diff --git a/.travis/appveyor.bat b/.ci/bootstrap.bat similarity index 64% rename from .travis/appveyor.bat rename to .ci/bootstrap.bat index 3723abeb6..9a4a110f6 100644 --- a/.travis/appveyor.bat +++ b/.ci/bootstrap.bat @@ -1,9 +1,5 @@ +@ECHO OFF SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION -del /q /s internal\c\libqb\*.o >nul 2>nul -del /q /s internal\c\libqb\*.a >nul 2>nul -del /q /s internal\c\parts\*.o >nul 2>nul -del /q /s internal\c\parts\*.a >nul 2>nul -del /q /s internal\temp\*.* >nul 2>nul cd internal\c set MINGW=mingw32 @@ -40,20 +36,4 @@ cd internal\c c_compiler\bin\windres.exe -i ..\temp\icon.rc -o ..\temp\icon.o c_compiler\bin\g++ -mconsole -s -Wfatal-errors -w -Wall qbx.cpp libqb\os\win\libqb_setup.o ..\temp\icon.o -D DEPENDENCY_LOADFONT parts\video\font\ttf\os\win\src.o -D DEPENDENCY_SOCKETS -D DEPENDENCY_NO_PRINTER -D DEPENDENCY_ICON -D DEPENDENCY_NO_SCREENIMAGE parts\core\os\win\src.a -lopengl32 -lglu32 -mwindows -static-libgcc -static-libstdc++ -D GLEW_STATIC -D FREEGLUT_STATIC -lws2_32 -lwinmm -lgdi32 -o "..\..\qb64_bootstrap.exe" IF ERRORLEVEL 1 exit /b 1 -cd ..\.. -echo Compiling new QB64 -echo From git %APPVEYOR_REPO_COMMIT:~0,7% > internal\version.txt -qb64_bootstrap.exe -x source\qb64.bas -o qb64.exe -IF ERRORLEVEL 1 exit /b 1 - -del qb64_bootstrap.exe -del /q /s secure-file -del /q /s internal\source\* -move internal\temp\* internal\source\ -del /q /s internal\c\libqb\*.o >nul 2>nul -del /q /s internal\c\libqb\*.a >nul 2>nul -del /q /s internal\c\parts\*.o >nul 2>nul -del /q /s internal\c\parts\*.a >nul 2>nul -cd internal\source -del /q /s debug_* recompile_* diff --git a/.ci/bootstrap.sh b/.ci/bootstrap.sh new file mode 100755 index 000000000..ac43d2b76 --- /dev/null +++ b/.ci/bootstrap.sh @@ -0,0 +1,40 @@ +#!/bin/bash + +OS=$1 + +com_build() { + cd internal/c/$1/os/$OS + echo -n "Building $2..." + if [[ $OS == "osx" ]]; then + ./setup_build.command + else + ./setup_build.sh + fi + if [ $? -ne 0 ]; then + echo "$2 build failed." + exit 1 + fi + echo "Done" + cd - > /dev/null +} + +com_build "libqb" "libQB" +com_build "parts/video/font/ttf" "FreeType" +if [[ $OS == "lnx" ]]; then + com_build "parts/core" "FreeGLUT" +fi + +cp -r internal/source/* internal/temp/ +cd internal/c +echo -n "Bootstrapping QB64..." +if [[ $OS == "osx" ]]; then + clang++ -w qbx.cpp libqb/os/osx/libqb_setup.o parts/video/font/ttf/os/osx/src.o -framework GLUT -framework OpenGL -framework Cocoa -lcurses -o ../../qb64_bootstrap +else + g++ -w qbx.cpp libqb/os/lnx/libqb_setup.o parts/video/font/ttf/os/lnx/src.o parts/core/os/lnx/src.a -lGL -lGLU -lX11 -lcurses -lpthread -ldl -lrt -D FREEGLUT_STATIC -DDEPENDENCY_USER_MODS -o ../../qb64_bootstrap +fi + +if [ $? -ne 0 ]; then + echo "QB64 bootstrap failed" + exit 1 +fi +echo "Done" diff --git a/.ci/build.bat b/.ci/build.bat new file mode 100644 index 000000000..e0f82e2bf --- /dev/null +++ b/.ci/build.bat @@ -0,0 +1,20 @@ +SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION + +echo Compiling new QB64 +echo From git %APPVEYOR_REPO_COMMIT:~0,7% > internal\version.txt +qb64_bootstrap.exe -z source\qb64.bas +cd internal\c +c_compiler\bin\g++ -mconsole -s -Wfatal-errors -w -Wall qbx.cpp libqb\os\win\libqb_setup.o ..\temp\icon.o -D DEPENDENCY_LOADFONT parts\video\font\ttf\os\win\src.o -D DEPENDENCY_SOCKETS -D DEPENDENCY_NO_PRINTER -D DEPENDENCY_ICON -D DEPENDENCY_NO_SCREENIMAGE parts\core\os\win\src.a -lopengl32 -lglu32 -mwindows -static-libgcc -static-libstdc++ -D GLEW_STATIC -D FREEGLUT_STATIC -lws2_32 -lwinmm -lgdi32 -o "..\..\qb64.exe" +IF ERRORLEVEL 1 exit /b 1 + +cd ..\.. +del qb64_bootstrap.exe +del /q /s secure-file +del /q /s internal\source\* +move internal\temp\* internal\source\ +del /q /s internal\c\libqb\*.o >nul 2>nul +del /q /s internal\c\libqb\*.a >nul 2>nul +del /q /s internal\c\parts\*.o >nul 2>nul +del /q /s internal\c\parts\*.a >nul 2>nul +cd internal\source +del /q /s debug_* recompile_* diff --git a/.travis/common-exclusion.list b/.ci/common-exclusion.list similarity index 51% rename from .travis/common-exclusion.list rename to .ci/common-exclusion.list index aca915c52..6e9890917 100644 --- a/.travis/common-exclusion.list +++ b/.ci/common-exclusion.list @@ -1,9 +1,10 @@ +.ci .travis .travis.yml appveyor.yml .git .gitignore +.github setup_win.bat -qb64/internal/c/mingw32 -qb64/internal/c/mingw64 -autosync.sh +internal/c/mingw32 +internal/c/mingw64 diff --git a/.ci/compile.bat b/.ci/compile.bat new file mode 100644 index 000000000..f1bea773a --- /dev/null +++ b/.ci/compile.bat @@ -0,0 +1,20 @@ +@ECHO OFF +SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION + +echo From git %GITHUB_SHA:~0,7% > internal\version.txt +qb64_bootstrap.exe -z source\qb64.bas +cd internal\c +c_compiler\bin\g++ -mconsole -s -Wfatal-errors -w -Wall qbx.cpp libqb\os\win\libqb_setup.o ..\temp\icon.o -D DEPENDENCY_LOADFONT parts\video\font\ttf\os\win\src.o -D DEPENDENCY_SOCKETS -D DEPENDENCY_NO_PRINTER -D DEPENDENCY_ICON -D DEPENDENCY_NO_SCREENIMAGE parts\core\os\win\src.a -lopengl32 -lglu32 -mwindows -static-libgcc -static-libstdc++ -D GLEW_STATIC -D FREEGLUT_STATIC -lws2_32 -lwinmm -lgdi32 -o "..\..\qb64.exe" +IF ERRORLEVEL 1 exit /b 1 + +cd ..\.. +del qb64_bootstrap.exe +del /q /s secure-file +del /q /s internal\source\* +del /q /s internal\temp\* +del /q /s internal\c\libqb\*.o >nul 2>nul +del /q /s internal\c\libqb\*.a >nul 2>nul +del /q /s internal\c\parts\*.o >nul 2>nul +del /q /s internal\c\parts\*.a >nul 2>nul +cd internal\source +del /q /s debug_* recompile_* diff --git a/.ci/compile.sh b/.ci/compile.sh new file mode 100755 index 000000000..b8c7d233b --- /dev/null +++ b/.ci/compile.sh @@ -0,0 +1,12 @@ +#!/bin/bash + +echo From git `echo $GITHUB_SHA | sed 's/\(.......\).*$/\1/'` > internal/version.txt +./qb64_bootstrap -x -w source/qb64.bas +SUCCESS=$? +rm qb64_bootstrap +rm internal/source/* +mv internal/temp/* internal/source/ +rm internal/source/debug_* internal/source/recompile_* +find . -type f -iname "*.a" -exec rm {} \; +find . -type f -iname "*.o" -exec rm {} \; +exit $SUCCESS diff --git a/.ci/deploy.ps1 b/.ci/deploy.ps1 new file mode 100644 index 000000000..016c33693 --- /dev/null +++ b/.ci/deploy.ps1 @@ -0,0 +1,12 @@ +$Bucket = "qb64" +$Timestamp = (Get-Date).ToUniversalTime().ToString("yyyy-MM-dd-HH-mm-ss") +$Filename = "qb64_development_win-${Env:PLATFORM}.7z" +# Ideally this would change the directory name to have useful information, but Windows gives an error +# "The process cannot access the file because it is being used by another process.", so this feature +# is disabled until someone can work out a better way. +# $Dirname = "qb64_${Timestamp}_$($Env:GITHUB_SHA.substring(0,7))_win-${Env:PLATFORM}" +# Rename-Item qb64 $Dirname +$Dirname = "qb64" +Set-Location .. +7z a "-xr@${Dirname}\.ci\common-exclusion.list" "-xr@${Dirname}\.ci\win-exclusion.list" $Filename $Dirname +aws --endpoint-url ${Env:S3_ENDPOINT} s3api put-object --bucket ${Bucket} --body $Filename --acl public-read --key development-builds/$Filename diff --git a/.ci/deploy.sh b/.ci/deploy.sh new file mode 100755 index 000000000..486cbd9e5 --- /dev/null +++ b/.ci/deploy.sh @@ -0,0 +1,16 @@ +#!/bin/bash + +OS=$1 +TZ=UTC now=`date +"%F-%H-%M-%S"` +BUCKET=qb64 +filename="qb64_development_${OS}.tar.gz" +dirname="qb64_${now}_`echo ${GITHUB_SHA} | sed 's/\(.......\).*$/\1/'`_${OS}" +cd .. +mv qb64 "${dirname}" +tar --create --auto-compress --file ${filename} --exclude-from=${dirname}/.ci/common-exclusion.list --exclude-from=${dirname}/.ci/$OS-exclusion.list ${dirname} +aws --endpoint-url ${S3_ENDPOINT} s3api put-object --bucket ${BUCKET} --body ${filename} --acl public-read --key development-builds/${filename} +if [[ $OS == lnx ]]; then + aws --endpoint-url ${S3_ENDPOINT} s3api put-object --bucket ${BUCKET} --body ${dirname}/CHANGELOG.md --acl public-read --key development-builds/changelog.md +fi +# Move it back so the post-job cleanup doesn't complain +mv "${dirname}" qb64 diff --git a/.travis/lnx-exclusion.list b/.ci/lnx-exclusion.list similarity index 69% rename from .travis/lnx-exclusion.list rename to .ci/lnx-exclusion.list index 16a8f91df..e7e35e664 100644 --- a/.travis/lnx-exclusion.list +++ b/.ci/lnx-exclusion.list @@ -1,3 +1,3 @@ -setup_osx.command +setup_macos.command internal/c/c_compiler qb64_start_osx.command diff --git a/.travis/osx-exclusion.list b/.ci/osx-exclusion.list similarity index 100% rename from .travis/osx-exclusion.list rename to .ci/osx-exclusion.list diff --git a/.ci/update-source.sh b/.ci/update-source.sh new file mode 100755 index 000000000..7b7c10f68 --- /dev/null +++ b/.ci/update-source.sh @@ -0,0 +1,9 @@ +#!/bin/bash + +git config --local user.email "flukiluke@gmail.com" +git config --local user.name "Autobuild Process" +git add internal/source +if [[ $(git diff --cached | wc -l) -gt 0 ]] + then git commit -m "Update internal/source" +fi + diff --git a/.travis/win-exclusion.list b/.ci/win-exclusion.list similarity index 100% rename from .travis/win-exclusion.list rename to .ci/win-exclusion.list diff --git a/.github/FUNDING.yml b/.github/FUNDING.yml new file mode 100644 index 000000000..7de31baf8 --- /dev/null +++ b/.github/FUNDING.yml @@ -0,0 +1,3 @@ +# These are supported funding model platforms + +patreon: qb64 diff --git a/.github/ISSUE_TEMPLATE/bug_report.md b/.github/ISSUE_TEMPLATE/bug_report.md new file mode 100644 index 000000000..4e199e675 --- /dev/null +++ b/.github/ISSUE_TEMPLATE/bug_report.md @@ -0,0 +1,32 @@ +--- +name: Bug report +about: Create a report to help us improve +title: '' +labels: '' +assignees: '' + +--- + +**QB64 info (please complete the following information):** + - First, make sure you've tried to replicate the problem in the latest development build. Get it from https://www.qb64.org/portal/development-build/: [Yes, the issue is in the latest dev build. / No, the issue was fixed. Yay!] + - If the suspected bug is also present in the latest dev build, please report what you get in the `Help->About` dialog: [e.g. `Version 1.5 dev build from git a6101af`] + - Report the OS you're using: [e.g. Windows 10 Build 2H2D] + + **Describe the bug** + A clear and concise description of what the bug is. + +**To Reproduce** +Steps to reproduce the behavior: +1. Go to '...' +2. Click on '....' +3. Scroll down to '....' +4. See error + +**Expected behavior** +A clear and concise description of what you expected to happen. + +**Screenshots** +If applicable, add screenshots to help explain your problem. If not, delete this block. + +**Additional context** +Add any other context about the problem here. diff --git a/.github/ISSUE_TEMPLATE/feature_request.md b/.github/ISSUE_TEMPLATE/feature_request.md new file mode 100644 index 000000000..e301d68ce --- /dev/null +++ b/.github/ISSUE_TEMPLATE/feature_request.md @@ -0,0 +1,20 @@ +--- +name: Feature request +about: Suggest an idea for this project +title: '' +labels: feature request +assignees: '' + +--- + +**Is your feature request related to a problem? Please describe.** +A clear and concise description of what the problem is. Ex. I'm always frustrated when [...] + +**Describe the solution you'd like** +A clear and concise description of what you want to happen. + +**Describe alternatives you've considered** +A clear and concise description of any alternative solutions or features you've considered. + +**Additional context** +Add any other context or screenshots about the feature request here. diff --git a/.github/workflows/release.yml b/.github/workflows/release.yml new file mode 100644 index 000000000..f051dd7e8 --- /dev/null +++ b/.github/workflows/release.yml @@ -0,0 +1,84 @@ +on: + push: + branches: + - master + +jobs: + linux-build: + runs-on: ubuntu-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + steps: + - uses: actions/checkout@v2 + - name: Install dependencies + run: sudo apt update && sudo apt install libglu1-mesa-dev libncurses-dev + - name: Bootstrap compiler + run: .ci/bootstrap.sh lnx + - name: Compile + run: .ci/compile.sh + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.sh lnx + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + + macos-build: + runs-on: macos-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + steps: + - uses: actions/checkout@v2 + - name: Bootstrap compiler + run: .ci/bootstrap.sh osx + - name: Compile + run: .ci/compile.sh + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.sh osx + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + + windows-x86-build: + runs-on: windows-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + env: + PLATFORM: x86 + steps: + - uses: actions/checkout@v2 + - name: Bootstrap compiler + run: .ci/bootstrap.bat + - name: Compile + run: .ci/compile.bat + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.ps1 + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + + windows-x64-build: + runs-on: windows-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + env: + PLATFORM: x64 + steps: + - uses: actions/checkout@v2 + - name: Bootstrap compiler + run: .ci/bootstrap.bat + - name: Compile + run: .ci/compile.bat + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.ps1 + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + diff --git a/.github/workflows/run.yml b/.github/workflows/run.yml new file mode 100644 index 000000000..113c2f14c --- /dev/null +++ b/.github/workflows/run.yml @@ -0,0 +1,94 @@ +on: + push: + branches: + - development + +jobs: + linux-build: + runs-on: ubuntu-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + steps: + - uses: actions/checkout@v2 + - name: Install dependencies + run: sudo apt update && sudo apt install libglu1-mesa-dev libncurses-dev + - name: Bootstrap compiler + run: .ci/bootstrap.sh lnx + - name: Compile + run: .ci/compile.sh + - name: Update source + if: github.event_name == 'push' + run: .ci/update-source.sh + - name: Push to repository + if: github.event_name == 'push' + uses: ad-m/github-push-action@19caa5c351f47734055690f7d01aaaef2f9114d5 + with: + github_token: ${{ secrets.GITHUB_TOKEN }} + branch: development + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.sh lnx + env: + # We are using Digital Ocean Spaces but they are API compatible with S3 + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + # AWS_REGION is useless but aws-cli gives errors if its not set + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + + macos-build: + runs-on: macos-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + steps: + - uses: actions/checkout@v2 + - name: Bootstrap compiler + run: .ci/bootstrap.sh osx + - name: Compile + run: .ci/compile.sh + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.sh osx + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + + windows-x86-build: + runs-on: windows-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + env: + PLATFORM: x86 + steps: + - uses: actions/checkout@v2 + - name: Bootstrap compiler + run: .ci/bootstrap.bat + - name: Compile + run: .ci/compile.bat + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.ps1 + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com + + windows-x64-build: + runs-on: windows-latest + if: "!contains(github.event.head_commit.message, 'ci-skip')" + env: + PLATFORM: x64 + steps: + - uses: actions/checkout@v2 + - name: Bootstrap compiler + run: .ci/bootstrap.bat + - name: Compile + run: .ci/compile.bat + - name: Publish to S3 + if: github.event_name == 'push' + run: .ci/deploy.ps1 + env: + AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }} + AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }} + AWS_REGION: us-east-2 + S3_ENDPOINT: https://nyc3.digitaloceanspaces.com diff --git a/.gitignore b/.gitignore index eca482e34..b786cf1ae 100644 --- a/.gitignore +++ b/.gitignore @@ -1,15 +1,17 @@ internal/c/c_compiler -internal/temp -internal/temp2 -internal/temp3 +internal/temp* *.o *.a *.exe -internal/config.txt +*.bas +internal/config*.txt +internal/config.ini internal/help -internal/config(2).txt -internal/config(1).txt internal/version.txt tempfoldersearch.bin internal/c/mingw32 internal/c/mingw64 +internal/c/qbx[2-9].cpp +*.ttf +/run_qb64.sh +/qb64 diff --git a/.travis.yml b/.travis.yml deleted file mode 100644 index ef52e028e..000000000 --- a/.travis.yml +++ /dev/null @@ -1,36 +0,0 @@ -language: cpp -install: true -script: ".travis/build.sh" -after_success: ".travis/push.sh" -matrix: - include: - - os: osx - compiler: clang - - os: linux - compiler: gcc -notifications: - irc: - channels: chat.freenode.net#qb64 - skip_join: true - template: - - 'Autobuild of branch %{branch}: %{message}' -addons: - ssh_known_hosts: qb64.org - apt: - packages: - - p7zip-full -before_deploy: -- openssl aes-256-cbc -K $encrypted_efd51ce9e893_key -iv $encrypted_efd51ce9e893_iv - -in .travis/travis-qb64.org_rsa.enc -out /tmp/travis-qb64.org_rsa -d -- eval "$(ssh-agent -s)" -- chmod 600 /tmp/travis-qb64.org_rsa -- ssh-add /tmp/travis-qb64.org_rsa -deploy: - provider: script - skip_cleanup: true - script: ".travis/deploy.sh" - on: - branch: - - development - - master -before_install: diff --git a/.travis/appveyor-deploy.ps1 b/.travis/appveyor-deploy.ps1 deleted file mode 100644 index 4927a8aa5..000000000 --- a/.travis/appveyor-deploy.ps1 +++ /dev/null @@ -1,5 +0,0 @@ -$filename = "qb64_" + (get-date -uformat "%Y-%m-%d-%H-%M-%S") + "_" + $Env:APPVEYOR_REPO_COMMIT.Substring(0,7) + "-" + $Env:APPVEYOR_REPO_BRANCH + "_win_" + $Env:PLATFORM + ".7z" -cd .. -7z a '-xr@qb64\.travis\common-exclusion.list' '-xr@qb64\.travis\win-exclusion.list' $filename qb64 - -scp -q -o StrictHostKeyChecking=no $filename m6rosupy1q2t@qb64.org:autobuilds/$Env:APPVEYOR_REPO_BRANCH/ diff --git a/.travis/appveyor-qb64.org_rsa.enc b/.travis/appveyor-qb64.org_rsa.enc deleted file mode 100644 index 4be36b374..000000000 Binary files a/.travis/appveyor-qb64.org_rsa.enc and /dev/null differ diff --git a/.travis/build-osx.sh b/.travis/build-osx.sh deleted file mode 100755 index 71b4f3b80..000000000 --- a/.travis/build-osx.sh +++ /dev/null @@ -1,66 +0,0 @@ -#!/bin/sh - -g++ --version - -###### Part 1: Build old QB64 ###### -echo "Preparing bootstrap:" -find . -type f -iname "*.command" -exec chmod +x {} \; -find . -type f -iname "*.a" -exec rm {} \; -find . -type f -iname "*.o" -exec rm {} \; - -rm internal/temp/* 2> /dev/null - -com_build() { - cd internal/c/$1/os/osx - echo "Building $2..." - ./setup_build.command - if [ $? -ne 0 ]; then - echo "$2 build failed." - exit 1 - fi - echo "Done" - cd - > /dev/null -} - -com_build "libqb" "libQB" -com_build "parts/video/font/ttf" "FreeType" - -cp -r internal/source/* internal/temp/ -cd internal/c -echo "Bootstrapping QB64..." -g++ -w qbx.cpp libqb/os/osx/libqb_setup.o parts/video/font/ttf/os/osx/src.o -framework GLUT -framework OpenGL -framework Cocoa -lcurses -o ../../qb64_bootstrap -if [ $? -ne 0 ]; then - echo "QB64 bootstrap failed" - exit 1 -fi -echo "Done" -cd - > /dev/null - -###### Part 2: Build new QB64 from .bas sources ###### -echo "Translating .bas source..." -echo From git `echo $TRAVIS_COMMIT | sed 's/\(.......\).*$/\1/'` > internal/version.txt -./qb64_bootstrap -x -z source/qb64.bas > /tmp/qb64-output -rm qb64_bootstrap -if [ `grep -v '^WARNING' /tmp/qb64-output | wc -l` -gt 2 ]; then - cat /tmp/qb64-output - rm /tmp/qb64-output - exit 1 -fi -echo "Done" - -echo "Testing compile/link..." -# extract g++ line -cd internal/temp/ -cpp_call=`awk '$1=="g++" {print $0}' < recompile_osx.command` - -# run g++ -cd ../c/ -$cpp_call -o ../../qb64_testrun -if [ $? -ne 0 -o ! -f ../../qb64_testrun ]; then - echo "Compile/link test failed" - exit 1 -fi -cd ../../ -rm qb64_testrun -echo "Done" -exit diff --git a/.travis/build.sh b/.travis/build.sh deleted file mode 100755 index b4a0f0175..000000000 --- a/.travis/build.sh +++ /dev/null @@ -1,75 +0,0 @@ -#!/bin/bash -if [ "$TRAVIS_OS_NAME" = "osx" ]; then exec .travis/build-osx.sh; fi - -###### Part 1: Build old QB64 ###### -echo "Preparing bootstrap:" -find . -type f -iname "*.sh" -exec chmod +x {} \; -find . -type f -iname "*.a" -exec rm {} \; -find . -type f -iname "*.o" -exec rm {} \; - -rm internal/temp/* 2> /dev/null - -com_build() { - cd internal/c/$1/os/lnx - echo -n "Building $2..." - ./setup_build.sh - if [ $? -ne 0 ]; then - echo "$2 build failed." - exit 1 - fi - echo "Done" - cd - > /dev/null -} - -com_build "libqb" "libQB" -com_build "parts/video/font/ttf" "FreeType" -com_build "parts/core" "FreeGLUT" - -cp -r internal/source/* internal/temp/ -cd internal/c -echo -n "Bootstrapping QB64..." -g++ $NOPIE -w qbx.cpp libqb/os/lnx/libqb_setup.o parts/video/font/ttf/os/lnx/src.o parts/core/os/lnx/src.a -lGL -lGLU -lX11 -lcurses -lpthread -ldl -lrt -D FREEGLUT_STATIC -DDEPENDENCY_USER_MODS -o ../../qb64_bootstrap -if [ $? -ne 0 ]; then - echo "QB64 bootstrap failed" - exit 1 -fi -echo "Done" -cd - > /dev/null - -###### Part 2: Build new QB64 from .bas sources ###### -echo -n "Translating .bas source..." -echo From git `echo $TRAVIS_COMMIT | sed 's/\(.......\).*$/\1/'` > internal/version.txt -./qb64_bootstrap -x -z source/qb64.bas > /tmp/qb64-output -rm qb64_bootstrap -if [ `grep -v '^WARNING' /tmp/qb64-output | wc -l` -gt 2 ]; then - cat /tmp/qb64-output - rm /tmp/qb64-output - exit 1 -fi -echo "Done" - -echo -n "Testing compile/link..." -# extract g++ line -cd internal/temp/ -cpp_call=`awk '$1=="g++" {print $0}' < recompile_lnx.sh` -echo $cpp_call - -# run g++ -cd ../c/ -${cpp_call/-no-pie/} -o ../../qb64_testrun -if [ $? -ne 0 -o ! -f ../../qb64_testrun ]; then - echo "Compile/link test failed" - exit 1 -fi -cd ../../ -rm qb64_testrun -echo "Done" -if [ "$TRAVIS_PULL_REQUEST" != "false" ]; then exit; fi - -###### Part 3: Establish new bootstrapee ###### -rm internal/source/* -mv internal/temp/* internal/source/ -find . -type f -iname "*.a" -exec rm {} \; -find . -type f -iname "*.o" -exec rm {} \; -cd internal/source -rm debug_* recompile_* diff --git a/.travis/deploy.sh b/.travis/deploy.sh deleted file mode 100755 index 371460dab..000000000 --- a/.travis/deploy.sh +++ /dev/null @@ -1,26 +0,0 @@ -#!/bin/sh - -if [ "$TRAVIS_OS_NAME" != "linux" ]; then exit; fi - -# Prepare archives -# mainversion=`awk '$1=="Version$" {split($3, A, /\"/);print A[2];}' < source/global/version.bas` -# buildnum=`awk '$1=="BuildNum$" {split($3,A, /[\"\/]/); print A[3];}' < source/global/version.bas` -TZ=UTC now=`date +"%F-%H-%M-%S"` -filebase="/tmp/qb64_${now}_`echo ${TRAVIS_COMMIT} | sed 's/\(.......\).*$/\1/'`-${TRAVIS_BRANCH}" -rm -r .dpl - -cd .. -tar --create --auto-compress --file ${filebase}_osx.tar.gz --exclude-from=qb64/.travis/common-exclusion.list --exclude-from=qb64/.travis/osx-exclusion.list qb64 -tar --create --auto-compress --file ${filebase}_lnx.tar.gz --exclude-from=qb64/.travis/common-exclusion.list --exclude-from=qb64/.travis/lnx-exclusion.list qb64 -#7z a -xr@qb64/.travis/common-exclusion.list -xr@qb64/.travis/win-exclusion.list ${filebase}_win.7z qb64/ > /dev/null - -# Send to server -# Sometimes the connection can be a bit flakey, so try multiple times on error -for i in `seq 1 10` -do scp ${filebase}_* m6rosupy1q2t@qb64.org:autobuilds/${TRAVIS_BRANCH}/ - if [ "$?" -eq 0 ] - then exit 0 - fi - echo scp failed -done - diff --git a/.travis/push.sh b/.travis/push.sh deleted file mode 100755 index ff6cd7023..000000000 --- a/.travis/push.sh +++ /dev/null @@ -1,14 +0,0 @@ -#!/bin/sh -if [ "$TRAVIS_OS_NAME" != "linux" ]; then exit; fi -if [ "${UPDATE_REPO}" != "yes" ]; then exit; fi -git config --global user.email "flukiluke@gmail.com" -git config --global user.name "Autobuild process" -git clone --depth=1 --branch=$TRAVIS_BRANCH https://${GH_TOKEN}@github.com/Galleondragon/qb64.git homeqb64 -cd homeqb64 -rm -r internal/source -cp -r ../internal/source internal/source -git add --all internal/source -git commit --message "Autobuild update [ci skip]" -git push -cd .. -rm -rf homeqb64 diff --git a/.travis/travis-qb64.org_rsa.enc b/.travis/travis-qb64.org_rsa.enc deleted file mode 100644 index 146ccb813..000000000 Binary files a/.travis/travis-qb64.org_rsa.enc and /dev/null differ diff --git a/CHANGELOG.md b/CHANGELOG.md new file mode 100644 index 000000000..de08c16e3 --- /dev/null +++ b/CHANGELOG.md @@ -0,0 +1,41 @@ +# QB64 development build - Changelog +Upcoming version is currently identified as v2.1, but that number may change before release. + +## New features +### All platforms +- Implement the `_Bin$` function as counterpart to `&B` prefixed number strings. Usage is analog to the legacy OCT$ and HEX$ functions. +- Save Watch Panel position and size. +- Add `$NOPREFIX` support for `$COLOR`. +- Allow changing color of menu panels and dialogs (Options->IDE Colors). +- Add support to different number formats in Watch Panel and Watch List dialog (dec/hex/oct/bin). + + + +## Fixes +### All platforms +- Fix function `LOC` returning wrong values when used on physical files. +- Fix glitch in syntax highlighter mistaking variable names with scientific notation. +- Fix Variable List dialog's "Add All" button not properly considering the active filter. +- Fix wiki update feature. +- Fix issue with Sub/Function parameters in `Declare` blocks with `$NoPrefix`. +- Fix issue with Sub/Function parameters without types after `As`. +- Fix issue with capitalization of array names in `LBound/UBound` calls. +- Fix capitalization of 'To' in `Case` statements. +- Fix indentation issue in disabled precompiler blocks. +- Fix crash when a variable was deleted between `$Debug` sessions. +- Reenables selecting a line by clicking the line number bar when `$Debug` is not used and the `Auto-add $Debug metacommand` feature is disabled. + + + +### Linux +- Fix building static libraries when installation path contains spaces. \ No newline at end of file diff --git a/COPYING.txt b/COPYING.txt new file mode 100644 index 000000000..f8b288860 --- /dev/null +++ b/COPYING.txt @@ -0,0 +1 @@ +Please refer to licenses/COPYING.TXT for licensing details. diff --git a/README.md b/README.md index 82b49e44e..c3eb0ca57 100644 --- a/README.md +++ b/README.md @@ -1,9 +1,55 @@ -_This repository is outdated. Follow development at https://github.com/QB64Team/qb64_ - # QB64 -

- -

+Download the appropriate package for your operating system. Check the Releases page. + + +## Windows + +Make sure to extract the package contents to a folder with full write permissions (failing to do so may result in IDE or compilation errors). + +* It is advisable to to whitelist the QB64 folder in your antivirus/antimalware software * + + +## macOS +Before using QB64 make sure to install the Xcode command line tools with: +```bash +xcode-select --install +``` + +Run ```./setup_osx.command``` to compile QB64 for your OS version. + + +## Linux +Compile QB64 with ```./setup_lnx.sh```. + +Dependencies should be automatically installed. Required packages include OpenGL, ALSA and the GNU C++ Compiler. + + +# Usage +Run the QB64 executable to launch the IDE, which you can use to edit your .BAS files. From there, hit F5 to compile and run your code. + +To generate a binary without running it, hit F11. + +Additionally, if you do not wish to use the integrated IDE and to only compile your program, you can use the following command-line calls: + +```qb64 -c yourfile.bas``` + +```qb64 -c yourfile.bas -o outputname.exe``` + +Replacing `-c` with `-x` will compile without opening a separate compiler window. \ No newline at end of file diff --git a/SAMPLES.txt b/SAMPLES.txt new file mode 100644 index 000000000..daee05619 --- /dev/null +++ b/SAMPLES.txt @@ -0,0 +1,3 @@ +The collection of sample programs previous distributed with QB64 is now available at https://www.qb64.org/forum/index.php?topic=171.0 + +More programs and useful code routines at https://www.qb64.org/forum/index.php?board=8.0 diff --git a/appveyor.yml b/appveyor.yml deleted file mode 100644 index 557bc46b6..000000000 --- a/appveyor.yml +++ /dev/null @@ -1,17 +0,0 @@ -version: 1.2.{build} -image: Visual Studio 2017 -clone_depth: 1 -environment: - sshkey: - secure: BiD9D+ye4Q+R8yBsThsfG0K+SFL5gRx6gNfxxSTR8ge3lp98cwZ3y7T3bq7tmgE7 -platform: - - x86 - - x64 -build_script: -- cmd: .travis\appveyor.bat -install: - - nuget install secure-file -ExcludeVersion - - cmd: secure-file\tools\secure-file -decrypt .travis\appveyor-qb64.org_rsa.enc -secret %sshkey% -out %userprofile%\.ssh\id_rsa -deploy_script: - - ps: .travis\appveyor-deploy.ps1 -test: off diff --git a/autosync.sh b/autosync.sh deleted file mode 100755 index e2c624efc..000000000 --- a/autosync.sh +++ /dev/null @@ -1,28 +0,0 @@ -#!/bin/bash -# This script reproduces any commits on upstream to the given remotes, but only on the given branches. -# It is intended to be run via a cron job or similar. -# The merge is --ff-only, so the target branches must not have anything else adding commits to them. - -set -e -cd ~/qb64 - -# Adding a new branch/remote? git checkout -b $remote-$branch $remote/$branch to create a new local. -BRANCHES='development' -REMOTES='origin fellippe qb64team' - -git fetch upstream - -for branch in $BRANCHES; do - for remote in $REMOTES; do - git checkout -q $remote-$branch - git merge -q --ff-only upstream/$branch - done -done - -for remote in $REMOTES; do - refspecs= - for branch in $BRANCHES; do - refspecs="$refspecs $remote-$branch:$branch" - done - git push -q $remote $refspecs -done diff --git a/cyberbit.ttf b/cyberbit.ttf deleted file mode 100644 index 264ccc4d0..000000000 Binary files a/cyberbit.ttf and /dev/null differ diff --git a/internal/c/common.h b/internal/c/common.h index 2fcd4a8c2..aa46548f9 100644 --- a/internal/c/common.h +++ b/internal/c/common.h @@ -100,7 +100,6 @@ #endif #endif - using namespace std; //QB64 string descriptor structure struct qbs_field{ @@ -270,6 +269,7 @@ */ ptrszint elementsize; int32 image; + int32 sound; }; struct mem_lock{ uint64 id; @@ -279,6 +279,7 @@ //2=image //3=sub/function scope block //4=array + //5=sound //---- type specific variables follow ---- void *offset;//used by malloc'ed blocks to free them }; diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp index a6ec82ce1..1c7f4ac0d 100644 --- a/internal/c/libqb.cpp +++ b/internal/c/libqb.cpp @@ -22,9 +22,15 @@ #endif - int32 disableEvents=0; +//Global console vvalues +static int32 consolekey; +static int32 consolemousex; +static int32 consolemousey; +static int32 consolebutton; +int32 func__getconsoleinput(); //declare here, so we can use with SLEEP and END commands + //This next block used to be in common.cpp; put here until I can find a better //place for it (LC, 2018-01-05) @@ -58,90 +64,58 @@ return (word << shift) | (word >> (32 - shift)); uint64 qbr_longdouble_to_uint64(long double f){if (f<0) return(f-0.5f); else return(f+0.5f);} int32 qbr_float_to_long(float f){if (f<0) return(f-0.5f); else return(f+0.5f);} int32 qbr_double_to_long(double f){if (f<0) return(f-0.5f); else return(f+0.5f);} + void fpu_reinit() { } // do nothing #else //QBASIC compatible rounding via FPU: - #ifdef QB64_MICROSOFT - int64 qbr(long double f){ - int64 i; int temp=0; - if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible. - __asm{ - fld f - fistp i - } - if (temp) return i|0x8000000000000000;//+9223372036854775808; - return i; - } - uint64 qbr_longdouble_to_uint64(long double f){ - uint64 i; - __asm{ - fld f - fistp i - } - return i; - } - int32 qbr_float_to_long(float f){ - int32 i; - __asm{ - fld f - fistp i - } - return i; - } - int32 qbr_double_to_long(double f){ - int32 i; - __asm{ - fld f - fistp i - } - return i; - } - #else - //FLDS=load single - //FLDL=load double - //FLDT=load long double - int64 qbr(long double f){ - int64 i; int temp=0; - if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible. - __asm__ ( + //FLDS=load single + //FLDL=load double + //FLDT=load long double + int64 qbr(long double f){ + int64 i; int temp=0; + if (f>9223372036854775807) {temp=1;f=f-9223372036854775808u;} //if it's too large for a signed int64, make it an unsigned int64 and return that value if possible. + __asm__ ( "fldt %1;" "fistpll %0;" :"=m" (i) :"m" (f) - ); - if (temp) return i|0x8000000000000000;// if it's an unsigned int64, manually set the bit flag - return i; - } - uint64 qbr_longdouble_to_uint64(long double f){ - uint64 i; - __asm__ ( + ); + if (temp) return i|0x8000000000000000;// if it's an unsigned int64, manually set the bit flag + return i; + } + uint64 qbr_longdouble_to_uint64(long double f){ + uint64 i; + __asm__ ( "fldt %1;" "fistpll %0;" :"=m" (i) :"m" (f) - ); - return i; - } - int32 qbr_float_to_long(float f){ - int32 i; - __asm__ ( + ); + return i; + } + int32 qbr_float_to_long(float f){ + int32 i; + __asm__ ( "flds %1;" "fistpl %0;" :"=m" (i) :"m" (f) - ); - return i; - } - int32 qbr_double_to_long(double f){ - int32 i; - __asm__ ( + ); + return i; + } + int32 qbr_double_to_long(double f){ + int32 i; + __asm__ ( "fldl %1;" "fistpl %0;" :"=m" (i) :"m" (f) - ); - return i; - } - #endif + ); + return i; + } + void fpu_reinit(){ + unsigned int mode = 0x37F; + asm("fldcw %0" : : "m" (*&mode)); + } #endif //x86 support //bit-array access functions (note: used to be included through 'bit.cpp') uint64 getubits(uint32 bsize,uint8 *base,ptrszint i){ @@ -278,8 +252,6 @@ int32 environment_2d__letterbox=0;//1=vertical black stripes required, 2=horizon -int32 qloud_next_input_index=1; - int32 window_exists=0; int32 create_window=0; int32 window_focused=0; //Not used on Windows @@ -1216,10 +1188,6 @@ typedef enum { -extern int32 cloud_app; -int32 cloud_chdir_complete=0; -int32 cloud_port[8]; - /* Restricted Functionality: (Security focused approach, does not include restricting sound etc) Block while compiling: (ONLY things that cannot be caught at runtime) @@ -1264,8 +1232,6 @@ int32 mem_lock_freed_max=1000;//number of allocated entries int32 mem_lock_freed_n=0;//number of entries ptrszint *mem_lock_freed=(ptrszint*)malloc(sizeof(ptrszint)*mem_lock_freed_max); -//inline removed because it is incompatible with Android studio x86 build - void new_mem_lock(){ if (mem_lock_freed_n){ mem_lock_tmp=(mem_lock*)mem_lock_freed[--mem_lock_freed_n]; @@ -1397,6 +1363,8 @@ extern uint32 qbevent; extern int32 console; extern int32 screen_hide_startup; +extern int32 asserts; +extern int32 vwatch; //... int64 exit_code=0; @@ -2358,18 +2326,6 @@ int32 exit_ok=0; int MessageBox2(int ignore,char* message,char* title,int type){ - if (cloud_app){ - FILE *f = fopen("..\\final.txt", "w"); - if (f != NULL) - { - fprintf(f, "%s", title); - fprintf(f, "\n"); - fprintf(f, "%s", message); - fclose(f); - } - exit(0);//should log error - } - #ifdef QB64_WINDOWS return MessageBox(window_handle,message,title,type); #else @@ -2749,24 +2705,7 @@ char *fixdir(qbs *filename){ //note: changes the slashes in a filename to make it compatible with the OS //applied to QB commands: open, bload/bsave, loadfont, loadimage, sndopen/sndplayfile static int32 i; - - if (cloud_app){ - for (i=0;ilen;i++){ - if ((filename->chr[i]>=48)&&(filename->chr[i]<=57)) goto ok; - if ((filename->chr[i]>=65)&&(filename->chr[i]<=90)){filename->chr[i]+=32; goto ok;}//force lowercase - if ((filename->chr[i]>=97)&&(filename->chr[i]<=122)) goto ok; - if (filename->chr[i]==95) goto ok;//underscore - if (filename->chr[i]==46){ - if (i!=0) goto ok;//period cannot be the first character - } - if (filename->chr[i]==0){ - if (i==(filename->len-1)) goto ok;//NULL terminator - } - error(263);//"Paths/Filename illegal in QLOUD" - ok:; - } - } - + for (i=0;ilen;i++){ #ifdef QB64_WINDOWS if (filename->chr[i]==47) filename->chr[i]=92; @@ -3479,7 +3418,14 @@ void sub__putimage(double f_dx1,double f_dy1,double f_dx2,double f_dy2,int32 src if (d->text){error(5); return;} dbpp=d->bytes_per_pixel; if ((sbpp==4)&&(dbpp==1)){error(5); return;} - if (s==d){error(5); return;}//cannot put source onto itself! + if (s==d){ + //{error(5); return;}//cannot put source onto itself! + int32 temphandle=func__copyimage(dst,NULL,0); + passed=passed|8; //make certain we set the flag TO LET QB64 know we're passing a handle to the temp image + sub__putimage(f_dx1, f_dy1, f_dx2, f_dy2,temphandle, dst, f_sx1, f_sy1, f_sx2, f_sy2, passed); + sub__freeimage(temphandle,1); + return; + } resolve_coordinates: @@ -5449,91 +5395,135 @@ extern uint32 error_goto_line; extern uint32 error_handling; extern uint32 error_retry; +void sub__echo(qbs *message); + +void unlockvWatchHandle() { + if (vwatch>0) vwatch=-1; +} + +int32 vWatchHandle() { + return vwatch; +} + +void sub__assert(int32 expression, qbs *assert_message, int32 passed) { + if (asserts==0) return; + if (expression==0) { + if (console==1 && passed==1) { + sub__echo(assert_message); + error(315); + return; + } + error(314); + } + return; +} + +char *human_error(int32 errorcode) { + switch (errorcode) { + case 0: return "No error"; + case 1: return "NEXT without FOR"; + case 2: return "Syntax error"; + case 3: return "RETURN without GOSUB"; + case 4: return "Out of DATA"; + case 5: return "Illegal function call"; + case 6: return "Overflow"; + case 7: return "Out of memory"; + case 8: return "Label not defined"; + case 9: return "Subscript out of range"; + case 10: return "Duplicate definition"; + case 12: return "Illegal in direct mode"; + case 13: return "Type mismatch"; + case 14: return "Out of string space"; + //error 15 undefined + case 16: return "String formula too complex"; + case 17: return "Cannot continue"; + case 18: return "Function not defined"; + case 19: return "No RESUME"; + case 20: return "RESUME without error"; + //error 21-23 undefined + case 24: return "Device timeout"; + case 25: return "Device fault"; + case 26: return "FOR without NEXT"; + case 27: return "Out of paper"; + //error 28 undefined + case 29: return "WHILE without WEND"; + case 30: return "WEND without WHILE"; + //error 31-32 undefined + case 33: return "Duplicate label"; + //error 34 undefined + case 35: return "Subprogram not defined"; + //error 36 undefined + case 37: return "Argument-count mismatch"; + case 38: return "Array not defined"; + case 40: return "Variable required"; + case 50: return "FIELD overflow"; + case 51: return "Internal error"; + case 52: return "Bad file name or number"; + case 53: return "File not found"; + case 54: return "Bad file mode"; + case 55: return "File already open"; + case 56: return "FIELD statement active"; + case 57: return "Device I/O error"; + case 58: return "File already exists"; + case 59: return "Bad record length"; + case 61: return "Disk full"; + case 62: return "Input past end of file"; + case 63: return "Bad record number"; + case 64: return "Bad file name"; + case 67: return "Too many files"; + case 68: return "Device unavailable"; + case 69: return "Communication-buffer overflow"; + case 70: return "Permission denied"; + case 71: return "Disk not ready"; + case 72: return "Disk-media error"; + case 73: return "Feature unavailable"; + case 74: return "Rename across disks"; + case 75: return "Path/File access error"; + case 76: return "Path not found"; + case 258: return "Invalid handle"; + case 300: return "Memory region out of range"; + case 301: return "Invalid size"; + case 302: return "Source memory region out of range"; + case 303: return "Destination memory region out of range"; + case 304: return "Source and destination memory regions out of range"; + case 305: return "Source memory has been freed"; + case 306: return "Destination memory has been freed"; + case 307: return "Memory already freed"; + case 308: return "Memory has been freed"; + case 309: return "Memory not initialized"; + case 310: return "Source memory not initialized"; + case 311: return "Destination memory not initialized"; + case 312: return "Source and destination memory not initialized"; + case 313: return "Source and destination memory have been freed"; + case 314: return "_ASSERT failed"; + case 315: return "_ASSERT failed (check console for description)"; + default: return "Unprintable error"; + } +} + +qbs *func_mid(qbs *str,int32 start,int32 l,int32 passed); +qbs *qbs_new_txt_len(const char *txt,int32 len); +qbs *func_command(int32 index, int32 passed); + void fix_error(){ char *errtitle = NULL, *errmess = NULL, *cp; int prevent_handling = 0, len, v; - if ((new_error >= 300) && (new_error <= 313)) prevent_handling = 1; + if ((new_error >= 300) && (new_error <= 315)) prevent_handling = 1; if (!error_goto_line || error_handling || prevent_handling) { - switch (new_error) { - case 1: cp="NEXT without FOR"; break; - case 2: cp="Syntax error"; break; - case 3: cp="RETURN without GOSUB"; break; - case 4: cp="Out of DATA"; break; - case 5: cp="Illegal function call"; break; - case 6: cp="Overflow"; break; - case 7: cp="Out of memory"; break; - case 8: cp="Label not defined"; break; - case 9: cp="Subscript out of range"; break; - case 10: cp="Duplicate definition"; break; - case 12: cp="Illegal in direct mode"; break; - case 13: cp="Type mismatch"; break; - case 14: cp="Out of string space"; break; - //error 15 undefined - case 16: cp="String formula too complex"; break; - case 17: cp="Cannot continue"; break; - case 18: cp="Function not defined"; break; - case 19: cp="No RESUME"; break; - case 20: cp="RESUME without error"; break; - //error 21-23 undefined - case 24: cp="Device timeout"; break; - case 25: cp="Device fault"; break; - case 26: cp="FOR without NEXT"; break; - case 27: cp="Out of paper"; break; - //error 28 undefined - case 29: cp="WHILE without WEND"; break; - case 30: cp="WEND without WHILE"; break; - //error 31-32 undefined - case 33: cp="Duplicate label"; break; - //error 34 undefined - case 35: cp="Subprogram not defined"; break; - //error 36 undefined - case 37: cp="Argument-count mismatch"; break; - case 38: cp="Array not defined"; break; - case 40: cp="Variable required"; break; - case 50: cp="FIELD overflow"; break; - case 51: cp="Internal error"; break; - case 52: cp="Bad file name or number"; break; - case 53: cp="File not found"; break; - case 54: cp="Bad file mode"; break; - case 55: cp="File already open"; break; - case 56: cp="FIELD statement active"; break; - case 57: cp="Device I/O error"; break; - case 58: cp="File already exists"; break; - case 59: cp="Bad record length"; break; - case 61: cp="Disk full"; break; - case 62: cp="Input past end of file"; break; - case 63: cp="Bad record number"; break; - case 64: cp="Bad file name"; break; - case 67: cp="Too many files"; break; - case 68: cp="Device unavailable"; break; - case 69: cp="Communication-buffer overflow"; break; - case 70: cp="Permission denied"; break; - case 71: cp="Disk not ready"; break; - case 72: cp="Disk-media error"; break; - case 73: cp="Feature unavailable"; break; - case 74: cp="Rename across disks"; break; - case 75: cp="Path/File access error"; break; - case 76: cp="Path not found"; break; - case 258: cp="Invalid handle"; break; - - case 300: cp="Memory region out of range"; break; - case 301: cp="Invalid size"; break; - case 302: cp="Source memory region out of range"; break; - case 303: cp="Destination memory region out of range"; break; - case 304: cp="Source and destination memory regions out of range"; break; - case 305: cp="Source memory has been freed"; break; - case 306: cp="Destination memory has been freed"; break; - case 307: cp="Memory already freed"; break; - case 308: cp="Memory has been freed"; break; - case 309: cp="Memory not initialized"; break; - case 310: cp="Source memory not initialized"; break; - case 311: cp="Destination memory not initialized"; break; - case 312: cp="Source and destination memory not initialized"; break; - case 313: cp="Source and destination memory have been freed"; break; - default: cp="Unprintable error"; break; + //strip path from binary name + static int32 i; + static qbs *binary_name=NULL; + if (!binary_name) binary_name=qbs_new(0,0); + qbs_set(binary_name,qbs_add(func_command( 0 ,1),qbs_new_txt_len("\0",1))); + for(i=binary_name->len;i>0;i--){ + if ((binary_name->chr[i-1]==47)||(binary_name->chr[i-1]==92)) { + qbs_set(binary_name,func_mid(binary_name, i + 1,NULL,0)); + break; + } } - #define FIXERRMSG_TITLE "%s%u" + cp = human_error(new_error); + #define FIXERRMSG_TITLE "%s%u - %s" #define FIXERRMSG_BODY "Line: %u (in %s)\n%s%s" #define FIXERRMSG_MAINFILE "main module" #define FIXERRMSG_CONT "\nContinue?" @@ -5545,10 +5535,10 @@ void fix_error(){ if (!errmess) exit(0); //At this point we just give up snprintf(errmess, len + 1, FIXERRMSG_BODY, (inclercl ? inclercl : ercl), (inclercl ? includedfilename : FIXERRMSG_MAINFILE), cp, (!prevent_handling ? FIXERRMSG_CONT : "")); - len = snprintf(errtitle, 0, FIXERRMSG_TITLE, (!prevent_handling ? FIXERRMSG_UNHAND : FIXERRMSG_CRIT), new_error); + len = snprintf(errtitle, 0, FIXERRMSG_TITLE, (!prevent_handling ? FIXERRMSG_UNHAND : FIXERRMSG_CRIT), new_error, binary_name->chr); errtitle = (char*)malloc(len + 1); if (!errtitle) exit(0); //At this point we just give up - snprintf(errtitle, len + 1, FIXERRMSG_TITLE, (!prevent_handling ? FIXERRMSG_UNHAND : FIXERRMSG_CRIT), new_error); + snprintf(errtitle, len + 1, FIXERRMSG_TITLE, (!prevent_handling ? FIXERRMSG_UNHAND : FIXERRMSG_CRIT), new_error, binary_name->chr); if (prevent_handling){ v=MessageBox2(NULL,errmess,errtitle,MB_OK); @@ -5602,8 +5592,6 @@ void error(int32 error_number){ if (error_number==259){MessageBox2(NULL,"Cannot find dynamic library file","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} if (error_number==260){MessageBox2(NULL,"Sub/Function does not exist in dynamic library","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} if (error_number==261){MessageBox2(NULL,"Sub/Function does not exist in dynamic library","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} - if (error_number==262){MessageBox2(NULL,"Function unavailable in QLOUD","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} - if (error_number==263){MessageBox2(NULL,"Paths/Filename illegal in QLOUD","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} if (error_number==270){MessageBox2(NULL,"_GL command called outside of SUB _GL's scope","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} if (error_number==271){MessageBox2(NULL,"END/SYSTEM called within SUB _GL's scope","Critical Error",MB_OK|MB_SYSTEMMODAL); exit(0);} @@ -5632,6 +5620,9 @@ void end(){ while(1) Sleep(16); } +int32 stop_program_state() { + return stop_program; +} //MEM_STATIC memory manager @@ -6490,6 +6481,8 @@ qbs *ui642string(uint64 v){ static qbs *tqbs; tqbs=qbs_new(8,1); *((uint64*)(tqb qbs *s2string(float v){ static qbs *tqbs; tqbs=qbs_new(4,1); *((float*)(tqbs->chr))=v; return tqbs;} qbs *d2string(double v){ static qbs *tqbs; tqbs=qbs_new(8,1); *((double*)(tqbs->chr))=v; return tqbs;} qbs *f2string(long double v){ static qbs *tqbs; tqbs=qbs_new(32,1); memset(tqbs->chr,0,32); *((long double*)(tqbs->chr))=v; return tqbs;} +qbs *o2string(ptrszint v){ static qbs *tqbs; tqbs=qbs_new(sizeof(ptrszint),1); memset(tqbs->chr,0,sizeof(ptrszint)); *((ptrszint*)(tqbs->chr))=v; return tqbs;} +qbs *uo2string(uptrszint v){ static qbs *tqbs; tqbs=qbs_new(sizeof(uptrszint),1); memset(tqbs->chr,0,sizeof(uptrszint)); *((uptrszint*)(tqbs->chr))=v; return tqbs;} qbs *bit2string(uint32 bsize,int64 v){ static qbs* tqbs; tqbs=qbs_new(8,1); @@ -6520,6 +6513,8 @@ uint64 string2ui64(qbs*str){ if (str->len<8) {error(5); return 0;} else {return float string2s(qbs*str){ if (str->len<4) {error(5); return 0;} else {return *((float*)str->chr);} } double string2d(qbs*str){ if (str->len<8) {error(5); return 0;} else {return *((double*)str->chr);} } long double string2f(qbs*str){ if (str->len<32) {error(5); return 0;} else {return *((long double*)str->chr);} } +ptrszint string2o(qbs*str){ if (str->lenchr);} } +uptrszint string2uo(qbs*str){ if (str->lenchr);} } uint64 string2ubit(qbs*str,uint32 bsize){ int64 bmask; if (str->len<((bsize+7)>>3)) {error(5); return 0;} @@ -6580,6 +6575,11 @@ qbs *func_string(int32 characters,int32 asciivalue){ return tqbs; } +void set_qbs_size(ptrszint *target_qbs,int32 newlength) { + qbs_set((qbs*)(*target_qbs), func_space(newlength)); + return; +} + int32 func_instr(int32 start,qbs *str,qbs *substr,int32 passed){ //QB64 difference: start can be 0 or negative //justification-start could be larger than the length of string to search in QBASIC @@ -6758,7 +6758,7 @@ int32 func__str_nc_compare(qbs *s1, qbs *s2) { } if (l1l1) return 1; + if (l1>l2) return 1; return 0; } @@ -6781,11 +6781,7 @@ int32 func__str_compare(qbs *s1, qbs *s2) { qbs *qbs_inkey(){ if (new_error) return qbs_new(0,1); qbs *tqbs; - if (cloud_app){ - Sleep(20); - }else{ - Sleep(0); - } + // Sleep(0); tqbs=qbs_new(2,1); if (cmem[0x41a]!=cmem[0x41c]){ tqbs->chr[0]=cmem[0x400+cmem[0x41a]]; @@ -6821,6 +6817,12 @@ void sub__keyclear(int32 buf, int32 passed) { //INP(&H60) buffer port60h_events = 0; } + #ifdef QB64_WINDOWS + //Windows Console Buffer + FlushConsoleInputBuffer(GetStdHandle (STD_INPUT_HANDLE)); + #endif + + } //STR() functions @@ -7406,6 +7408,30 @@ void qbg_sub_color(uint32 col1,uint32 col2,uint32 bordercolor,int32 passed){ //performs no action if nothing passed (as in QBASIC for some modes) return; } + + if (write_page->console){ + #ifdef QB64_WINDOWS + HANDLE output = GetStdHandle(STD_OUTPUT_HANDLE); + int color = col2 * 16 + col1; + SetConsoleTextAttribute(output, color); + #else + // Exactly how the colour is rendered depends on your terminal emulator and + // colour palette. Themes and user-customisation aside, the first 16 colours + // line up with the old VGA colour scheme. + // Most terminal emulators can handle 8 bit colour, see + // https://en.wikipedia.org/wiki/ANSI_escape_code#8-bit for the 8 bit colour palette. + if ((passed & 1 && (col1 > 255 || col1 < 0)) + || (passed & 2 && (col2 > 255 || col2 < 0))) + goto error; + + if (passed & 1) + printf("\033[38;5;%dm", col1); + + if (passed & 2) + printf("\033[48;5;%dm", col2); + #endif + return; + } if (write_page->compatible_mode==32){ if (passed&4) goto error; @@ -8038,7 +8064,7 @@ void sub_pcopy(int32 src,int32 dst){ return; } -void qbsub_width(int32 option,int32 value1,int32 value2,int32 passed){ +void qbsub_width(int32 option,int32 value1,int32 value2,int32 value3, int32 value4, int32 passed){ //[{#|LPRINT}][?],[?] static int32 i,i2; @@ -8071,9 +8097,33 @@ void qbsub_width(int32 option,int32 value1,int32 value2,int32 passed){ //COLOR selection is kept, all other values are lost (if staying in same "mode") static int32 f,f2,width,height; - if ((!(passed&1))&&(!(passed&2))) goto error;//cannot omit both arguments - width=value1; height=value2; + + #ifdef QB64_WINDOWS + if (write_page->console){ + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + HANDLE hConsole = GetStdHandle(STD_OUTPUT_HANDLE); + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + + GetConsoleScreenBufferInfo(cl_conout, &cl_bufinfo); //get the screen buffer information, for blank entries + + if (width<=0) width = cl_bufinfo.srWindow.Right - cl_bufinfo.srWindow.Left + 1;; //if width is omitted, then use existing width + if (height<=0) height = cl_bufinfo.srWindow.Bottom - cl_bufinfo.srWindow.Top + 1;; //if height is omitted, then use existing height + if (value3<=0) value3 = cl_bufinfo.dwSize.X; //if bufferwidth is omitted, then use existing buffer width + if (value4<=0) value4 = cl_bufinfo.dwSize.Y; //same as above, but for height + if (value3compatible_mode==32)||(write_page->compatible_mode==256)){ @@ -9649,11 +9699,64 @@ void sub_paint(float x,float y,uint32 fillcol,uint32 bordercol,qbs *backgroundst +////////////////////////////////////////////////////////////////////////////////////////////////////////// + +void getptsize_1bpp (const qbs *pt, int32 *sx, int32 *sy) { + *sx = 8; + *sy = pt->len; +} + +uint32 getptcol_1bpp (const qbs *pt, int32 x, int32 y) { + return (pt->chr[y] >> (7-x)) & 1; +} + +////////////////////////////////////////////////////////////////////////////////////////////////////////// + +void getptsize_2bpp (const qbs *pt, int32 *sx, int32 *sy) { + *sx = 4; + *sy = pt->len; +} + +uint32 getptcol_2bpp (const qbs *pt, int32 x, int32 y) { + return (pt->chr[y] >> ((3-x) << 1)) & 0x03; +} + +////////////////////////////////////////////////////////////////////////////////////////////////////////// + +void getptsize_4bpp (const qbs *pt, int32 *sx, int32 *sy) { + *sx = 8; + *sy = pt->len >> 2; + if (((*sy) << 2) < pt->len) ++*sy; +} + +uint32 getptcol_4bpp (const qbs *pt, int32 x, int32 y) { + int quadstart = (y << 2); + uint32 clr = 0; + for(uint8 i=0; i<4; ++i) { + uint8 byte = ((i+quadstart) >= pt->len ? 0 : pt->chr[i+quadstart]); + if (byte & (1 << (7-x))) + clr |= (1 << i); + } + return clr; +} + +////////////////////////////////////////////////////////////////////////////////////////////////////////// + +void getptsize_8bpp (const qbs *pt, int32 *sx, int32 *sy) { + *sx = 1; + *sy = pt->len; +} + +uint32 getptcol_8bpp (const qbs *pt, int x, int y) { + return pt->chr[y]; +} + +////////////////////////////////////////////////////////////////////////////////////////////////////////// + void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr,int32 passed){ if (new_error) return; //uses 2 buffers, a and b, and swaps between them for reading and creating - static uint32 fillcol=0;//stub static uint32 a_n=0; static uint16 *a_x=(uint16*)malloc(2*65536),*a_y=(uint16*)malloc(2*65536); static uint8 *a_t=(uint8*)malloc(65536); @@ -9665,171 +9768,80 @@ void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr, static uint32 offset; static uint8 *cp; static uint16 *sp; - static uint32 backgroundcol; - + static int32 done_size=640*480; + if (qbg_text_only){error(5); return;} if ((passed&2)==0){error(5); return;}//must be called with this parameter! - //STEP 1: create the tile in a buffer (tile) using the source string - static uint8 tilestr[256]; + if (fillstr->len==0){error(5); return;} + static uint8 tile[8][64]; static int32 sx,sy; - static int32 bytesperrow; - static int32 row2offset; - static int32 row3offset; - static int32 row4offset; - static int32 byte; - static int32 bitvalue; - static int32 c; - if (fillstr->len==0){error(5); return;} - if (qbg_bits_per_pixel==4){ - if (fillstr->len>256){error(5); return;} - }else{ - if (fillstr->len>64){error(5); return;} + void (*getptsize)(const qbs *pt, int32 *sx, int32 *sy) = getptsize_4bpp; + uint32 (*getptcol)(const qbs *pt, int32 x, int32 y) = getptcol_4bpp; + + switch(write_page->compatible_mode) { + case 1: + getptsize = getptsize_2bpp; + getptcol = getptcol_2bpp; + break; + case 2: + getptsize = getptsize_1bpp; + getptcol = getptcol_1bpp; + break; + case 7: + case 8: + case 9: + case 12: + getptsize = getptsize_4bpp; + getptcol = getptcol_4bpp; + break; + case 13: + getptsize = getptsize_8bpp; + getptcol = getptcol_8bpp; + break; } - memset(&tilestr[0],0,256); - memcpy(&tilestr[0],fillstr->chr,fillstr->len); - sx=8; sy=fillstr->len; //defaults - if (qbg_bits_per_pixel==8) sx=1; - if (qbg_bits_per_pixel==4){ - if (fillstr->len&3){ - sy=(fillstr->len-(fillstr->len&3)+4)>>2; + + getptsize(fillstr, &sx, &sy); + for(int x=0; xmask; + + if (passed&1){write_page->x+=x; write_page->y+=y;}else{write_page->x=x; write_page->y=y;} + + if (write_page->clipping_or_scaling){ + if (write_page->clipping_or_scaling==2){ + ix=qbr_float_to_long(write_page->x*write_page->scaling_x+write_page->scaling_offset_x)+write_page->view_offset_x; + iy=qbr_float_to_long(write_page->y*write_page->scaling_y+write_page->scaling_offset_y)+write_page->view_offset_y; }else{ - sy=fillstr->len>>2; - } - bytesperrow=sx>>3; if (sx&7) bytesperrow++; - row2offset=bytesperrow; - row3offset=bytesperrow*2; - row4offset=bytesperrow*3; - } - if (qbg_bits_per_pixel==2) sx=4; - //use modified "PUT" routine to create the tile - cp=&tilestr[0]; - {//layer - static int32 x,y; - for (y=0;y>3; - c=0; - if (cp[byte]&bitvalue) c|=1; - if (cp[row2offset+byte]&bitvalue) c|=2; - if (cp[row3offset+byte]&bitvalue) c|=4; - if (cp[row4offset+byte]&bitvalue) c|=8; - bitvalue>>=1; if (bitvalue==0) bitvalue=128; - } - if (qbg_bits_per_pixel==1){ - if (!(x&7)){ - byte=*cp; - cp++; - } - c=(byte&128)>>7; byte<<=1; - } - if (qbg_bits_per_pixel==2){ - if (!(x&3)){ - byte=*cp; - cp++; - } - c=(byte&192)>>6; byte<<=2; - } - //"pset" color - tile[x][y]=c; - }//x - if (qbg_bits_per_pixel==4) cp+=(bytesperrow*4); - if (qbg_bits_per_pixel==1){ - if (sx&7) cp++; - } - if (qbg_bits_per_pixel==2){ - if (sx&3) cp++; - } - }//y - }//unlayer - //tile created! - - //STEP 2: establish border and background colors - if ((passed&4)==0) bordercol=qbg_color; - bordercol&=qbg_pixel_mask; - - backgroundcol=0;//default - if (passed&8){ - if (backgroundstr->len==0){error(5); return;} - if (backgroundstr->len>255){error(5); return;} - if (qbg_bits_per_pixel==1){ - c=backgroundstr->chr[0]; - if ((c>0)&&(c<255)) backgroundcol=-1;//unclear definition - if (c==255) backgroundcol=1; - } - if (qbg_bits_per_pixel==2){ - backgroundcol=-1;//unclear definition - x2=backgroundstr->chr[0]; - y2=x2&3; - x2>>=2; if ((x2&3)!=y2) goto uncleardef; - x2>>=2; if ((x2&3)!=y2) goto uncleardef; - - x2>>=2; if ((x2&3)!=y2) goto uncleardef; - - backgroundcol=y2; - } - if (qbg_bits_per_pixel==4){ - backgroundcol=-1;//unclear definition - y2=0; - x2=4; if (backgroundstr->len<4) x2=backgroundstr->len; - c=0; memcpy(&c,backgroundstr->chr,x2); - x2=c&255; c>>=8; if ((x2!=0)&&(x2!=255)) goto uncleardef; - y2|=(x2&1); - x2=c&255; c>>=8; if ((x2!=0)&&(x2!=255)) goto uncleardef; - y2|=((x2&1)<<1); - x2=c&255; c>>=8; if ((x2!=0)&&(x2!=255)) goto uncleardef; - y2|=((x2&1)<<2); - x2=c&255; c>>=8; if ((x2!=0)&&(x2!=255)) goto uncleardef; - y2|=((x2&1)<<3); - backgroundcol=y2; - } - if (qbg_bits_per_pixel==8){ - backgroundcol=backgroundstr->chr[0]; - } - } - uncleardef: - - //STEP 3: perform tile'd fill - if (passed&1){qbg_x+=x; qbg_y+=y;}else{qbg_x=x; qbg_y=y;} - if (qbg_clipping_or_scaling){ - if (qbg_clipping_or_scaling==2){ - ix=qbr_float_to_long(qbg_x*qbg_scaling_x+qbg_scaling_offset_x)+qbg_view_offset_x; - iy=qbr_float_to_long(qbg_y*qbg_scaling_y+qbg_scaling_offset_y)+qbg_view_offset_y; - }else{ - ix=qbr_float_to_long(qbg_x)+qbg_view_offset_x; iy=qbr_float_to_long(qbg_y)+qbg_view_offset_y; + ix=qbr_float_to_long(write_page->x)+write_page->view_offset_x; iy=qbr_float_to_long(write_page->y)+write_page->view_offset_y; } }else{ - ix=qbr_float_to_long(qbg_x); iy=qbr_float_to_long(qbg_y); + ix=qbr_float_to_long(write_page->x); iy=qbr_float_to_long(write_page->y); } //return if offscreen - if ((ixqbg_view_x2)||(iy>qbg_view_y2)){ + if ((ixview_x1)||(iyview_y1)||(ix>write_page->view_x2)||(iy>write_page->view_y2)){ return; } - offset=iy*qbg_width+ix; + //overrides + qbg_active_page_offset=write_page->offset; + qbg_width=write_page->width; + qbg_view_x1=write_page->view_x1; + qbg_view_y1=write_page->view_y1; + qbg_view_x2=write_page->view_x2; + qbg_view_y2=write_page->view_y2; + i=write_page->width*write_page->height; + if (i>done_size){ + free(done); + done=(uint8*)calloc(i,1); + } //return if first point is the bordercolor - if (qbg_active_page_offset[offset]==bordercol) return; - - //return if first point is the same as the tile color used and is not the background color - fillcol=tile[ix%sx][iy%sy]; - if ((fillcol==qbg_active_page_offset[offset])&&(fillcol!=backgroundcol)) return; - qbg_active_page_offset[offset]=fillcol; - - - + if (qbg_active_page_offset[iy*qbg_width+ix]==bordercol) return; //create first node a_x[0]=ix; a_y[0]=iy; @@ -9841,7 +9853,7 @@ void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr, //&8=check below a_n=1; - qbg_active_page_offset[iy*qbg_width+ix]=fillcol; + qbg_active_page_offset[iy*qbg_width+ix]=tile[ix%sx][iy%sy]; done[iy*qbg_width+ix]=1; nextpass: @@ -9857,9 +9869,7 @@ void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr, if (!done[offset]){ done[offset]=1; if (qbg_active_page_offset[offset]!=bordercol){ - fillcol=tile[x2%sx][y2%sy]; - //no tile check required when moving horizontally! - qbg_active_page_offset[offset]=fillcol; + qbg_active_page_offset[offset]=tile[x2%sx][y2%sy]; b_t[b_n]=13; b_x[b_n]=x2; b_y[b_n]=y2; b_n++;//add new node }}}} @@ -9871,9 +9881,7 @@ void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr, if (!done[offset]){ done[offset]=1; if (qbg_active_page_offset[offset]!=bordercol){ - fillcol=tile[x2%sx][y2%sy]; - //no tile check required when moving horizontally! - qbg_active_page_offset[offset]=fillcol; + qbg_active_page_offset[offset]=tile[x2%sx][y2%sy]; b_t[b_n]=14; b_x[b_n]=x2; b_y[b_n]=y2; b_n++;//add new node }}}} @@ -9885,11 +9893,8 @@ void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr, if (!done[offset]){ done[offset]=1; if (qbg_active_page_offset[offset]!=bordercol){ - fillcol=tile[x2%sx][y2%sy]; - if ((fillcol!=qbg_active_page_offset[offset])||(fillcol==backgroundcol)){ - qbg_active_page_offset[offset]=fillcol; - b_t[b_n]=7; b_x[b_n]=x2; b_y[b_n]=y2; b_n++;//add new node - } + qbg_active_page_offset[offset]=tile[x2%sx][y2%sy]; + b_t[b_n]=7; b_x[b_n]=x2; b_y[b_n]=y2; b_n++;//add new node }}}} //below @@ -9900,18 +9905,15 @@ void sub_paint(float x,float y,qbs *fillstr,uint32 bordercol,qbs *backgroundstr, if (!done[offset]){ done[offset]=1; if (qbg_active_page_offset[offset]!=bordercol){ - fillcol=tile[x2%sx][y2%sy]; - if ((fillcol!=qbg_active_page_offset[offset])||(fillcol==backgroundcol)){ - qbg_active_page_offset[offset]=fillcol; - b_t[b_n]=11; b_x[b_n]=x2; b_y[b_n]=y2; b_n++;//add new node - } + qbg_active_page_offset[offset]=tile[x2%sx][y2%sy]; + b_t[b_n]=11; b_x[b_n]=x2; b_y[b_n]=y2; b_n++;//add new node }}}} }//i //no new nodes? if (b_n==0){ - memset(done,0,qbg_width*qbg_height);//cleanup + memset(done,0,write_page->width*write_page->height);//cleanup return;//finished! } @@ -10541,6 +10543,20 @@ void tab(){ newline(); write_page->holding_cursor=0; return; } + + #ifdef QB64_WINDOWS //if Windows console + if (write_page->console){ + if (func_pos(0)>write_page->width-10){ + printf("\n"); + return; + }else{ + do { + printf(" "); + }while(func_pos(0) % 10!=0); + } + return; + } + #endif //text if (write_page->text){ @@ -10637,6 +10653,9 @@ void qbs_print(qbs* str,int32 finish_on_new_line){ static qbs* strz; if (!strz) strz=qbs_new(0,0); qbs_set(strz,qbs_add(str,qbs_new_txt_len("\0",1))); if (finish_on_new_line) cout<<(char*)strz->chr<chr; + #ifndef QB64_WINDOWS + std::cout.flush(); + #endif return; } @@ -11194,13 +11213,25 @@ void qbg_sub_view(int32 x1,int32 y1,int32 x2,int32 y2,int32 fillcolor,int32 bord } - +void qbg_sub_locate(int32 row,int32 column,int32 cursor,int32 start,int32 stop,int32 passed); void sub_cls(int32 method,uint32 use_color,int32 passed){ if (new_error) return; static int32 characters,i; static uint16 *sp; static uint16 clearvalue; + if (write_page->console){ + #ifdef QB64_WINDOWS + system("cls"); //lazy but works + qbg_sub_locate(1, 1, 0, 0, 0, 3); //is this really necessary? + #else + if (passed&2) qbg_sub_color(0, use_color, 0, 2); + cout<<"\033[2J"; + qbg_sub_locate(1, 1, 0, 0, 0, 3); + #endif + return; + } + //validate if (passed&2){ if (write_page->bytes_per_pixel!=4){ @@ -11364,11 +11395,31 @@ void sub_cls(int32 method,uint32 use_color,int32 passed){ } - void qbg_sub_locate(int32 row,int32 column,int32 cursor,int32 start,int32 stop,int32 passed){ static int32 h,w,i; if (new_error) return; - + + if (write_page->console){ + #ifdef QB64_WINDOWS //If trying to locate with windows console + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + GetConsoleScreenBufferInfo(cl_conout, & cl_bufinfo); + if (column==0)column=cl_bufinfo.dwCursorPosition.X + 1; + if (row==0)row=cl_bufinfo.dwCursorPosition.Y + 1; + COORD pos = {column-1, row-1}; + HANDLE output = GetStdHandle (STD_OUTPUT_HANDLE); + SetConsoleCursorPosition(output, pos); + #else + // We don't have a good way of getting the current cursor position, so we ignore any LOCATEs + // that don't give an absolute position. + if (!(passed & 1 && passed & 2)) + return; + printf("\033[%d;%dH", row, column); + #endif + return; + } + //calculate height & width in characters if (write_page->compatible_mode){ h=write_page->height/fontheight[write_page->font]; @@ -11398,7 +11449,7 @@ void qbg_sub_locate(int32 row,int32 column,int32 cursor,int32 start,int32 stop,i buffer=(char*)malloc(80*25*2); c=write_page->color; c2=write_page->background_color; memcpy(buffer,&cmem[0xB8000],80*25*2); - qbsub_width(0,80,50,3); + qbsub_width(0,80,50,0,0,3); memcpy(&cmem[0xB8000],buffer,80*25*2); write_page->color=c; write_page->background_color=c2; free(buffer); @@ -11482,68 +11533,87 @@ void qbg_sub_locate(int32 row,int32 column,int32 cursor,int32 start,int32 stop,i //input helper functions: uint64 hexoct2uint64_value; -int32 hexoct2uint64(qbs* h){ - //returns 0=failed - // 1=HEX value (default if unspecified) - // 2=OCT value - static int32 i,i2; - static uint64 result; - result=0; - static int32 type; - type=0; - hexoct2uint64_value=0; - if (!h->len) return 1; - if (h->chr[0]!=38) return 0;//not "&" - if (h->len==1) return 1;//& received, but awaiting further input - i=h->chr[1]; - if ((i==72)||(i==104)) type=1;//"H"or"h" - if ((i==79)||(i==111)) type=2;//"O"or"o" - if (!type) return 0; - if (h->len==2) return type; - - if (type==1){ - if (h->len>18) return 0;//larger than int64 - for (i=2;ilen;i++){ - result<<=4; - i2=h->chr[i]; - // 0 - 9 A - F a - f - if ( ((i2>=48)&&(i2<=57)) || ((i2>=65)&&(i2<=70)) || ((i2>=97)&&(i2<=102)) ){ - if (i2>=97) i2-=32; - if (i2>=65) i2-=7; - i2-=48; - //i2 is now a values between 0 and 15 - result+=i2; - }else return 0;//invalid character - }//i - hexoct2uint64_value=result; - return 1; - }//type==1 - - if (type==2){ - //unsigned _int64 max=18446744073709551615 (decimal, 20 chars) - // =1777777777777777777777 (octal, 22 chars) - // =FFFFFFFFFFFFFFFF (hex, 16 chars) - if (h->len>24) return 0;//larger than int64 - if (h->len==24){ - if ((h->chr[2]!=48)&&(h->chr[2]!=49)) return 0;//larger than int64 - } - for (i=2;ilen;i++){ - result<<=3; - i2=h->chr[i]; - if ((i2>=48)&&(i2<=55)){//0-7 - i2-=48; - result+=i2; - }else return 0;//invalid character - }//i - hexoct2uint64_value=result; - return 2; - }//type==2 - +int32 hexoct2uint64(qbs *h) { + // returns 0 = failed + // 1 = HEX value (default if unspecified) + // 2 = OCT value + // 3 = BIN value + static int32 i, i2; + static uint64 result; + result = 0; + static int32 type; + type = 0; + hexoct2uint64_value = 0; + if (!h->len) return 1; + if (h->chr[0] != 38) return 0; // not "&" + if (h->len == 1) return 1; // "&" received, but awaiting further input + i = h->chr[1]; + if ((i == 72) || (i == 104)) type = 1; // "H" or "h" + if ((i == 79) || (i == 111)) type = 2; // "O" or "o" + if ((i == 66) || (i == 98)) type = 3; // "B" or "b" + if (!type) return 0; + if (h->len == 2) return type; + + // unsigned _int64 max = 18446744073709551615 (decimal, 20 chars) + // = 1111111 etc., max. 64x (binary, 64 chars) + // = 1777777777777777777777 (octal, 22 chars) + // = FFFFFFFFFFFFFFFF (hex, 16 chars) + + if (type == 1) { + if (h->len > 18) return 0; // larger than int64 + for (i = 2; i < h->len; i++) { + result <<= 4; + i2 = h->chr[i]; + // 0 - 9 / A - F / a - f + if (((i2 >= 48) && (i2 <= 57)) || ((i2 >= 65) && (i2 <= 70)) || ((i2 >= 97) && (i2 <= 102))) { + if (i2 >= 97) i2 -= 32; + if (i2 >= 65) i2 -= 7; + i2 -= 48; + // i2 is now a values between 0 and 15 + result += i2; + } else + return 0; // invalid character + } // i + hexoct2uint64_value = result; + return 1; + } // type == 1 + + if (type == 2) { + if (h->len > 24) return 0; // larger than int64 + if (h->len == 24) { + if ((h->chr[2] != 48) && (h->chr[2] != 49)) + return 0; // larger than int64 + } + for (i = 2; i < h->len; i++) { + result <<= 3; + i2 = h->chr[i]; + if ((i2 >= 48) && (i2 <= 55)) { // 0-7 + i2 -= 48; + result += i2; + } else + return 0; // invalid character + } // i + hexoct2uint64_value = result; + return 2; + } // type == 2 + + if (type == 3) { + if (h->len > 66) return 0; // larger than int64 + for (i = 2; i < h->len; i++) { + result <<= 1; + i2 = h->chr[i]; + if ((i2 >= 48) && (i2 <= 49)) { // 0-1 + i2 -= 48; + result += i2; + } else + return 0; // invalid character + } // i + hexoct2uint64_value = result; + return 3; + } // type == 3 } -extern void SUB_VKUPDATE(); - //input method (complex, calls other qbs functions) const char *uint64_max[] = {"18446744073709551615"}; const char *int64_max[] = {"9223372036854775807"}; @@ -11711,7 +11781,7 @@ void qbs_input(int32 numvariables,uint8 newline){ max<<=i4; max--; - //check for hex/oct + //check for hex/oct/bin if (i3=hexoct2uint64(qbs_input_arguements[argn])){ hexvalue=hexoct2uint64_value; if (hexvalue>max){valid=0; goto typechecked;} @@ -11736,7 +11806,18 @@ void qbs_input(int32 numvariables,uint8 newline){ value>>=3; } if (l>(2+i)){valid=0; goto typechecked;} - if (l==1) completewith=111;//"O" + if (l==1) completewith=79;//"O" + if (l==2) completewith=48;//"0" + } + if (i3==3){ + value=max; + i=0; + for (i2=1;i2<=64;i2++){ + if (value&0x1) i=i2; + value>>=1; + } + if (l>(2+i)){valid=0; goto typechecked;} + if (l==1) completewith=66;//"B" if (l==2) completewith=48;//"0" } finalvalue=hexvalue; @@ -11808,13 +11889,14 @@ void qbs_input(int32 numvariables,uint8 newline){ if ((qbs_input_variabletypes[argn]&511)==64){ if (l==0){completewith=48; *(int64*)qbs_input_variableoffsets[argn]=0; goto typechecked;} - //check for hex/oct + //check for hex/oct/bin if (i3=hexoct2uint64(qbs_input_arguements[argn])){ hexvalue=hexoct2uint64_value; if (hexvalue>max){valid=0; goto typechecked;} //set completewith value (if necessary) if (i3==1) if (l==1) completewith=72;//"H" - if (i3==2) if (l==1) completewith=111;//"O" + if (i3==2) if (l==1) completewith=79;//"O" + if (i3==3) if (l==1) completewith=66;//"B" if (l==2) completewith=48;//"0" *(uint64*)qbs_input_variableoffsets[argn]=hexvalue; goto typechecked; @@ -11898,12 +11980,13 @@ void qbs_input(int32 numvariables,uint8 newline){ //begin with a generic assessment, regardless of whether it is single, double or float if (l==0){completewith=48; goto typechecked;} - //check for hex/oct + //check for hex/oct/bin if (i3=hexoct2uint64(qbs_input_arguements[argn])){ hexvalue=hexoct2uint64_value; //set completewith value (if necessary) if (i3==1) if (l==1) completewith=72;//"H" - if (i3==2) if (l==1) completewith=111;//"O" + if (i3==2) if (l==1) completewith=79;//"O" + if (i3==3) if (l==1) completewith=66;//"B" if (l==2) completewith=48;//"0" //nb. because VC6 didn't support... //error C2520: conversion from uint64 to double not implemented, use signed int64 @@ -12235,10 +12318,6 @@ void qbs_input(int32 numvariables,uint8 newline){ Sleep(10); qbs_set(key,qbs_inkey()); - disableEvents=1;//we don't want the ON TIMER bound version of VKUPDATE to fire during a call to itself! - SUB_VKUPDATE(); - disableEvents=0; - } qbs_cleanup(qbs_tmp_base,0); @@ -12337,8 +12416,6 @@ void qbs_input(int32 numvariables,uint8 newline){ goto qbs_input_next; } - if (inpstr2->len>=255) goto qbs_input_next; - //affect inpstr2 with key qbs_set(inpstr2,qbs_add(inpstr2,key)); @@ -12594,11 +12671,21 @@ int32 func__blink(){ } int64 func__handle(){ - #ifdef QB64_GUI - #ifdef QB64_WINDOWS - while (!window_handle){Sleep(100);} + #ifdef QB64_WINDOWS + #ifdef DEPENDENCY_CONSOLE_ONLY + if (!window_handle) { + char pszConsoleTitle[1024]; + GetConsoleTitle(pszConsoleTitle,1024); + window_handle = FindWindow(NULL, pszConsoleTitle); + } return (ptrszint)window_handle; #endif + + if (!screen_hide){ + while (!window_exists){Sleep(100);} + while (!window_handle){Sleep(100);} + return (ptrszint)window_handle; + } #endif return 0; @@ -12612,6 +12699,13 @@ qbs *func__title(){ } } +void set_foreground_window(ptrszint i) { + #ifdef QB64_WINDOWS + BOOL result = SetForegroundWindow((HWND) i); + #endif + return; +} + int32 func__hasfocus() { #ifdef QB64_GUI #ifdef QB64_WINDOWS @@ -12938,7 +13032,6 @@ void sub_open(qbs *name,int32 type,int32 access,int32 sharing,int32 i,int64 reco if (sharing==2) g_restrictions=3; if (sharing==3) g_restrictions=1; if (sharing==4) g_restrictions=2; - if (cloud_app) g_restrictions=0;//applying restrictions on server not possible //note: In QB, opening a file already open for OUTPUT/APPEND created the 'file already open' error. // However, from a new cmd window (or a SHELLed QB program) it can be opened! @@ -12967,7 +13060,7 @@ void sub_open(qbs *name,int32 type,int32 access,int32 sharing,int32 i,int64 reco if (type==1){//set record length f->record_length=128; if (passed) if (record_length!=-1) f->record_length=record_length; - f->field_buffer=(uint8*)calloc(record_length,1); + f->field_buffer=(uint8*)calloc(f->record_length,1); } if (type==5){//seek eof @@ -13054,7 +13147,11 @@ void sub_close(int32 i2,int32 passed){ for (i=1;i<=special_handles->indexes;i++){ - sub_close(-i-1,1); + if (vwatch>0 && vwatch==i) { + //keep connection to the IDE open for $DEBUG mode + } else { + sub_close(-i-1,1); + } } @@ -13238,8 +13335,9 @@ uint8 n_digit[256]; int64 n_exp;//if 0, there is one digit in front of the decimal place uint8 n_neg;//if 1, the number is negative uint8 n_hex;//if 1, the digits are in hexidecimal and n_exp should be ignored -//if 2, the digits are in octal and n_exp should be ignored -//(consider revising variable name n_hex) + //if 2, the digits are in octal and n_exp should be ignored + //if 3, the digits are in binary and n_exp should be ignored + //(consider revising variable name n_hex) int32 n_roundincrement(){ static int32 i,i2,i3; @@ -13290,6 +13388,17 @@ int32 n_float(){ n_float_value=value; return 1; } + //bin? + if (n_hex==3){ + if (n_digits>64) return 0; + for (i=0;i308)return 0;//overflow @@ -13360,7 +13469,6 @@ int32 n_int64(){ return 1; } //oct - if (n_hex==2){ if (n_digits>=22){ @@ -13374,6 +13482,17 @@ int32 n_int64(){ n_int64_value=value; return 1; } + //bin + if (n_hex==3){ + if (n_digits>64) return 0; + for (i=0;i18)return 0;//overflow @@ -13454,6 +13573,17 @@ int32 n_uint64(){ n_uint64_value=uvalue; return 1; } + //bin + if (n_hex==3){ + if (n_digits>64) return 0; + for (i=0;i=data_size) goto gotnumber; - c=data[*data_offset]; - if (c==44){(*data_offset)++; goto gotnumber;} - if ((c==72)||(c==104)){//"H"or"h" - nexthexchr: - (*data_offset)++; if (*data_offset>=data_size) goto gotnumber; - c=data[*data_offset]; - if (c==44){(*data_offset)++; goto gotnumber;} - if ( ((c>=48)&&(c<=57)) || ((c>=65)&&(c<=70)) || ((c>=97)&&(c<=102)) ){//0-9 or A-F or a-f - if (n_digits==256) return 1;//Overflow - n_digit[n_digits]=c; - n_digits++; - n_hex=1; - goto nexthexchr; - } - return 3;//Syntax error + // hex/oct/bin + if (c == 38) { // "&" + (*data_offset)++; + if (*data_offset >= data_size) return 3; // Syntax error (missing H/O/B after &) + c = data[*data_offset]; + if (c == 44) { + (*data_offset)++; + return 3; // Syntax error (missing H/O/B after &) + } + if ((c == 72) || (c == 104)) { // "H" or "h" + nexthexchr: + (*data_offset)++; + if (*data_offset >= data_size) goto gotnumber; + c = data[*data_offset]; + if (c == 44) { + (*data_offset)++; + goto gotnumber; } - if ((c==79)||(c==111)){//"O"or"o" - nexthexchr2: - (*data_offset)++; if (*data_offset>=data_size) goto gotnumber; - c=data[*data_offset]; - if (c==44){(*data_offset)++; goto gotnumber;} - if ((c>=48)&&(c<=55)){//0-7 - if (n_digits==256) return 1;//Overflow - n_digit[n_digits]=c; - n_digits++; - n_hex=2; - goto nexthexchr2; - } - return 3;//Syntax error + if (((c >= 48) && (c <= 57)) || ((c >= 65) && (c <= 70)) || + ((c >= 97) && (c <= 102))) { // 0-9 or A-F or a-f + if (step == 5) return 3; // Syntax error (digits after type suffix) + if (n_digits == 256) return 1; // Overflow + n_digit[n_digits] = c; + n_digits++; + n_hex = 1; + goto nexthexchr; } - return 3;//Syntax error - }//& + if ((c == 33) || (c == 35) || (c == 36) || + (c == 37) || (c == 38) || (c == 96) || (c == 126)) { // type suffix + if (step <= 5) {step = 5; goto nexthexchr;} + } + return 3; // Syntax error (invalid HEX char) + } + if ((c == 79) || (c == 111)) { // "O" or "o" + nexthexchr2: + (*data_offset)++; + if (*data_offset >= data_size) goto gotnumber; + c = data[*data_offset]; + if (c == 44) { + (*data_offset)++; + goto gotnumber; + } + if ((c >= 48) && (c <= 55)) { // 0-7 + if (step == 5) return 3; // Syntax error (digits after type suffix) + if (n_digits == 256) return 1; // Overflow + n_digit[n_digits] = c; + n_digits++; + n_hex = 2; + goto nexthexchr2; + } + if ((c == 33) || (c == 35) || (c == 36) || + (c == 37) || (c == 38) || (c == 96) || (c == 126)) { // type suffix + if (step <= 5) {step = 5; goto nexthexchr2;} + } + return 3; // Syntax error (invalid OCT char) + } + if ((c == 66) || (c == 98)) { // "B" or "b" + nexthexchr3: + (*data_offset)++; + if (*data_offset >= data_size) goto gotnumber; + c = data[*data_offset]; + if (c == 44) { + (*data_offset)++; + goto gotnumber; + } + if ((c >= 48) && (c <= 49)) { // 0-1 + if (step == 5) return 3; // Syntax error (digits after type suffix) + if (n_digits == 256) return 1; // Overflow + n_digit[n_digits] = c; + n_digits++; + n_hex = 3; + goto nexthexchr3; + } + if ((c == 33) || (c == 35) || (c == 36) || + (c == 37) || (c == 38) || (c == 96) || (c == 126)) { // type suffix + if (step <= 5) {step = 5; goto nexthexchr3;} + } + return 3; // Syntax error (invalid BIN char) + } + return 3; // Syntax error (missing H/O/B after &) + } // "&" readnextchr: if (c==44){(*data_offset)++; goto gotnumber;} if (c==45){//- - if (step==0){n_neg=1; step=1; goto nextchr;} - if (step==3){negate_exponent=1; step=4; goto nextchr;} - return 3;//Syntax error + if (step==0){n_neg=1; step=1; goto nextchr;}//sign before integer part + if (step==3){negate_exponent=1; step=4; goto nextchr;}//exponent sign + return 3;//Syntax error (no - allowed in fraction part of number or after type suffix) } if (c==43){//+ - if (step==0){step=1; goto nextchr;} - if (step==3){step=4; goto nextchr;} - return 3;//Syntax error + if (step==0){step=1; goto nextchr;}//sign before integer part + if (step==3){step=4; goto nextchr;}//exponent sign + return 3;//Syntax error (no + allowed in fraction part of number or after type suffix) } if ((c>=48)&&(c<=57)){//0-9 + if (step == 5) return 3; // Syntax error (digit after type suffix) if (step<=1){//before decimal point step=1; @@ -13608,17 +13785,21 @@ int32 n_inputnumberfromdata(uint8 *data,ptrszint *data_offset,ptrszint data_size } if (c==46){//. - if (step>1) return 3;//Syntax error + if (step>1) return 3;//Syntax error (multiple . or after type suffix) if (n_digits==0) n_exp=-1; step=2; goto nextchr; } if ((c==68)||(c==69)||(c==100)||(c==101)){//D,E,d,e - if (step>2) return 3;//Syntax error + if (step>2) return 3;//Syntax error (multiple exponents or after type suffix) step=3; goto nextchr; } - return 3;//Syntax error + if ((c == 33) || (c == 35) || (c == 36) || + (c == 37) || (c == 38) || (c == 96) || (c == 126)) { // type suffix + if (step <= 5) {step = 5; goto nextchr;} + } + return 3;//Syntax error (invalid number char) nextchr: (*data_offset)++; if (*data_offset>=data_size) goto gotnumber; c=data[*data_offset]; @@ -13698,36 +13879,53 @@ int32 n_inputnumberfromfile(int32 fileno){ if (c==-1){return_value=2; goto error;}//input past end of file }while(c==32); - //hex/oct - if (c==38){//& - c=file_input_chr(fileno); if (c==-2) return 3; - if (c==-1) goto gotnumber; - if ((c==72)||(c==104)){//"H"or"h" - nexthexchr: - c=file_input_chr(fileno); if (c==-2) return 3; - if ( ((c>=48)&&(c<=57)) || ((c>=65)&&(c<=70)) || ((c>=97)&&(c<=102)) ){//0-9 or A-F or a-f - if (n_digits==256) goto error;//overflow - n_digit[n_digits]=c; - n_digits++; - n_hex=1; - goto nexthexchr; - } - goto gotnumber; - } - if ((c==79)||(c==111)){//"O"or"o" - nexthexchr2: - c=file_input_chr(fileno); if (c==-2) return 3; - if ((c>=48)&&(c<=55)){//0-7 - if (n_digits==256) goto error;//overflow - n_digit[n_digits]=c; - n_digits++; - n_hex=2; - goto nexthexchr2; - } - goto gotnumber; + // hex/oct/bin + if (c == 38) { // "&" + c = file_input_chr(fileno); + if (c == -2) return 3; + if (c == -1) goto gotnumber; + if ((c == 72) || (c == 104)) { // "H" or "h" + nexthexchr: + c = file_input_chr(fileno); + if (c == -2) return 3; + if (((c >= 48) && (c <= 57)) || ((c >= 65) && (c <= 70)) || + ((c >= 97) && (c <= 102))) { // 0-9 or A-F or a-f + if (n_digits == 256) goto error; // overflow + n_digit[n_digits] = c; + n_digits++; + n_hex = 1; + goto nexthexchr; } goto gotnumber; - }//& + } + if ((c == 79) || (c == 111)) { // "O" or "o" + nexthexchr2: + c = file_input_chr(fileno); + if (c == -2) return 3; + if ((c >= 48) && (c <= 55)) { // 0-7 + if (n_digits == 256) goto error; // overflow + n_digit[n_digits] = c; + n_digits++; + n_hex = 2; + goto nexthexchr2; + } + goto gotnumber; + } + if ((c == 66) || (c == 98)) { // "B" or "b" + nexthexchr3: + c = file_input_chr(fileno); + if (c == -2) return 3; + if ((c >= 48) && (c <= 49)) { // 0-1 + if (n_digits == 256) goto error; // overflow + n_digit[n_digits] = c; + n_digits++; + n_hex = 3; + goto nexthexchr3; + } + goto gotnumber; + } + goto gotnumber; + } // "&" readnextchr: if (c==-1) goto gotnumber; @@ -14013,7 +14211,7 @@ long double func_read_float(uint8 *data,ptrszint *data_offset,ptrszint data_size } if ((value>maxval)||(valuemaxval)||(valueconsole){ + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + GetConsoleScreenBufferInfo(cl_conout, & cl_bufinfo); + return cl_bufinfo.dwCursorPosition.Y + 1; + } + #endif if (write_page->holding_cursor){ if (write_page->cursor_y>=write_page->bottom_row) return write_page->bottom_row; else return write_page->cursor_y+1; } return write_page->cursor_y; } int32 func_pos(int32 ignore){ + #ifdef QB64_WINDOWS + if (write_page->console){ //qb64 console CSRLIN + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + GetConsoleScreenBufferInfo(cl_conout, & cl_bufinfo); + return cl_bufinfo.dwCursorPosition.X + 1; + } + #endif if (write_page->holding_cursor) return 1; return write_page->cursor_x; } @@ -15239,10 +15455,51 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub_sleep(int32 seconds,int32 passed){ if (new_error) return; + sleep_break=0; double prev,ms,now,elapsed;//cannot be static - if (passed) prev=GetTicks(); + prev=GetTicks(); ms=1000.0*(double)seconds; + + #ifdef QB64_WINDOWS + + if (read_page->console){ + int32 junk=0,junk2=0; + DWORD dwRet; + HANDLE hStdin = GetStdHandle (STD_INPUT_HANDLE); + FlushConsoleInputBuffer(hStdin); + if (passed){ + do{ + now=GetTicks(); + if (now0);//as long as our timer hasn't expired, we continue to run the loop and countdown the time remaining + return; //if we get here, something odd happened. We should expire automatically with the WAIT_TIMEOUT event before this occurs. + } + do{ //ignore all console input unless it's a keydown event + junk=func__getconsoleinput(); + }while(junk!=1); //only when junk = 1 do we have a keyboard event + Sleep(100); //Give the user time to remove their finger from the key, before clearing the buffer. + FlushConsoleInputBuffer(hStdin); //and flush the keyboard buffer after, so we don't leave stray events to be processed. + return; + } + #endif + + recalculate: wait: evnt(0);//handle general events @@ -15273,6 +15530,79 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ return; } + qbs *func__bin(int64 value,int32 neg_bits){ + + static int32 i,i2,i3,neg; + static int64 value2; + static qbs *str; + + str=qbs_new(64,1); + + //negative? + if ((value>>63)&1) neg=1; else neg=0; + + //calc. most significant bit + i2=0; + value2=value; + if (neg){ + for (i=1;i<=64;i++){ + if (!(value2&1)) i2=i; + value2>>=1; + } + if (i2>=neg_bits){ + //doesn't fit in neg_bits, so expand to next 16/32/64 boundary + i3=64; + if (i2<32) i3=32; + if (i2<16) i3=16; + i2=i3; + }else i2=neg_bits; + }else{ + for (i=1;i<=64;i++){ + if (value2&1) i2=i; + value2>>=1; + } + } + + if (!i2){str->chr[0]=48; str->len=1; return str;}//"0" + + //calc. number of characters required in i3 + i3=i2; // equal for BIN$ because one bit = one char + + //build string + str->len=i3; i3--; + for (i=1;i<=i2;i++){ + str->chr[i3--]=(value&1)+48; + value>>=1; + } + + return str; + + } + + //note: QBASIC doesn't have a BIN$ function + // QB64 uses 32 bin digits for SINGLE/DOUBLE/FLOAT but if this range is exceeded + // it uses up to 64 bin digits before generating an "OVERFLOW" error + //performs overflow check before calling func__bin + qbs *func__bin_float(long double value){ + static qbs *str; + static int64 ivalue; + static int64 uivalue; + //ref: uint64 0-18446744073709551615 + // int64 \969223372036854775808 to 9223372036854775807 + if ((value>=9.223372036854776E18)||(value<=-9.223372036854776E18)){ + //note: ideally, the following line would be used, however, qbr_longdouble_to_uint64 just does the same as qbr + //if ((value>=1.844674407370956E19)||(value<=-9.223372036854776E18)){ + str=qbs_new(0,1); error(6);//Overflow + return str; + } + if (value>=0){ + uivalue=qbr_longdouble_to_uint64(value); + ivalue=uivalue; + }else{ + ivalue=qbr(value); + } + return func__bin(ivalue,32); + } qbs *func_oct(int64 value,int32 neg_bits){ @@ -15328,10 +15658,10 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ } - //note: QBASIC uses 8 characters for SINGLE/DOUBLE or generates "OVERFLOW" if this range is exceeded - // QB64 uses 8 characters for SINGLE/DOUBLE/FLOAT but if this range is exceeded - // it uses up to 16 characters before generating an "OVERFLOW" error - //performs overflow check before calling func_hex + //note: QBASIC uses 11 oct digits for SINGLE/DOUBLE or generates "OVERFLOW" if this range is exceeded + // QB64 uses 11 oct digits for SINGLE/DOUBLE/FLOAT but if this range is exceeded + // it uses up to 22 oct digits before generating an "OVERFLOW" error + //performs overflow check before calling func_oct qbs *func_oct_float(long double value){ static qbs *str; static int64 ivalue; @@ -15400,9 +15730,9 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ } - //note: QBASIC uses 8 characters for SINGLE/DOUBLE or generates "OVERFLOW" if this range is exceeded - // QB64 uses 8 characters for SINGLE/DOUBLE/FLOAT but if this range is exceeded - // it uses up to 16 characters before generating an "OVERFLOW" error + //note: QBASIC uses 8 hex digits for SINGLE/DOUBLE or generates "OVERFLOW" if this range is exceeded + // QB64 uses 8 hex digits for SINGLE/DOUBLE/FLOAT but if this range is exceeded + // it uses up to 16 hex digits before generating an "OVERFLOW" error //performs overflow check before calling func_hex qbs *func_hex_float(long double value){ static qbs *str; @@ -15566,8 +15896,11 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //returns a string to advance to the horizontal position "pos" on either //the current line or the next line. static int32 w,div,cursor; + + static int32 cr_size; // a local in case file is SCRN + cr_size = tab_spc_cr_size; // init to caller's value //calculate width in spaces & current position - if (tab_spc_cr_size==2){ + if (cr_size==2){ //print to file div=1; w=2147483647; @@ -15578,9 +15911,14 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if (i<0) goto invalid_file;//TCP/IP unsupported if (gfs_fileno_valid(i)!=1) goto invalid_file;//Bad file name or number i=gfs_fileno[i];//convert fileno to gfs index + if (gfs_file[i].scrn == 1) { // going to screen, change the cr size + cr_size = 1; + } else { cursor=gfs_file[i].column; + } invalid_file:; - }else{ + } + if (cr_size == 1) { //print to surface if (write_page->text){ w=write_page->width; @@ -15602,7 +15940,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if ((pos<-32768)||(pos>32767)){ if (tab_LPRINT) sub__dest(tab_LPRINT_olddest); tqbs=qbs_new(0,1); - error(7); return tqbs;//Overflow + error(6); return tqbs;//Overflow } if (pos>w) pos%=w; if (pos<1) pos=1; @@ -15610,7 +15948,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ size=0; spaces=0; cr=0; if (cursor>pos){ cr=1; - size=tab_spc_cr_size; + size=cr_size; spaces=pos/div; if (pos%div) spaces++; spaces--;//don't put a space on the dest position size+=spaces; @@ -15621,8 +15959,8 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //build custom string tqbs=qbs_new(size,1); if (cr){ - tqbs->chr[0]=13; if (tab_spc_cr_size==2) tqbs->chr[1]=10; - memset(&tqbs->chr[tab_spc_cr_size],32,spaces); + tqbs->chr[0]=13; if (cr_size==2) tqbs->chr[1]=10; + memset(&tqbs->chr[cr_size],32,spaces); }else{ memset(tqbs->chr,32,spaces); } @@ -15634,7 +15972,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if (new_error) return qbs_new(0,1); static qbs *tqbs; - if ((spaces<-32768)||(spaces>32767)){tqbs=qbs_new(0,1); error(7); return tqbs;}//Overflow + if ((spaces<-32768)||(spaces>32767)){tqbs=qbs_new(0,1); error(6); return tqbs;}//Overflow if (spaces<0) spaces=0; //for files, spc simply adds that many spaces @@ -15724,6 +16062,23 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ uint8 *cp; if (!passed) returncol=0; + + #ifdef QB64_WINDOWS + if (read_page->console){ + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + COORD cp1 = {x-1, y-1}; + DWORD t; + uint16 a; + if (returncol){ + int x1 = ReadConsoleOutputAttribute(cl_conout, &a, 1, cp1, &t) ; + return a; + } else { + ReadConsoleOutputCharacterA(cl_conout, (char *) &a, 1, cp1, &t) ; + return a & 0xff; + } + } + #endif if (read_page->text){ //on screen? @@ -15970,19 +16325,13 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ } if (gfs->type==1){//RANDOM - return gfs_getpos(i)/gfs->record_length+1; + return gfs_getpos(i)/gfs->record_length; } if (gfs->type==2){//BINARY return gfs_getpos(i); } //APPEND/OUTPUT/INPUT - int64 pos; - pos=gfs_getpos(i); - if (!pos) return 1; - pos--; - pos/=128; - pos++; - return pos; + return gfs_getpos(i)/128; } qbs *func_input(int32 n,int32 i,int32 passed){ @@ -16204,7 +16553,13 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ #include "parts/audio/decode/src.c" #endif - + #ifdef DEPENDENCY_ZLIB + #ifdef QB64_BACKSLASH_FILESYSTEM + #include "parts\\zlib\\src.c" + #else + #include "parts/zlib/src.c" + #endif + #endif @@ -16219,7 +16574,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ qbs *func_command(int32 index, int32 passed){ static qbs *tqbs; if (passed) { //Get specific parameter - //If out of bounds or error getting cmdline args (on Android, perhaps), return empty string. + //If out of bounds or error getting cmdline args, return empty string. if (index >= func_command_count || index < 0 || func_command_array==NULL) {tqbs = qbs_new(0, 1); return tqbs;} int len = strlen(func_command_array[index]); //Create new temp qbs and copy data into it. @@ -16334,7 +16689,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ int64 func_shell(qbs *str){ if (new_error) return 1; - if (cloud_app){error(262); return 1;} int64 return_code; @@ -16609,7 +16963,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ int64 func__shellhide(qbs *str){ //func _SHELLHIDE(... if (new_error) return 1; - if (cloud_app){error(262); return 1;} static int64 return_code; return_code=0; @@ -16836,7 +17189,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub_shell(qbs *str,int32 passed){ if (new_error) return; - if (cloud_app){error(262); return;} //exit full screen mode if necessary static int32 full_screen_mode; @@ -17114,7 +17466,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub_shell2(qbs *str,int32 passed){ //HIDE if (new_error) return; - if (cloud_app){error(262); return;} if (passed&1){sub_shell4(str,passed&2); return;} if (!(passed&2)){error(5); return;}//should not hide a shell waiting for input @@ -17316,7 +17667,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub_shell3(qbs *str,int32 passed){//_DONTWAIT //shell3 launches 'str' but does not wait for it to complete if (new_error) return; - if (cloud_app){error(262); return;} if (passed&1){sub_shell4(str,passed&2); return;} @@ -17509,7 +17859,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub_shell4(qbs *str,int32 passed){//_DONTWAIT & _HIDE //if passed&2 set a string was given if (!(passed&2)){error(5); return;}//should not hide a shell waiting for input - if (cloud_app){error(262); return;} static qbs *strz=NULL; static int32 i; @@ -17771,25 +18120,11 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ static int32 tmp_long; static int32 got_ports=0; - if (cloud_app){ - cloud_chdir_complete=1; - - if (!got_ports){ - got_ports=1; - static FILE* file = fopen ("..\\ports.txt\0", "r"); - fscanf (file, "%d", &tmp_long); - cloud_port[1]=tmp_long; - fscanf (file, "%d", &tmp_long); - cloud_port[2]=tmp_long; - fclose (file); - } - } } void sub_mkdir(qbs *str){ if (new_error) return; - if (cloud_app){error(262); return;} static qbs *strz=NULL; if (!strz) strz=qbs_new(0,0); qbs_set(strz,qbs_add(str,qbs_new_txt_len("\0",1))); @@ -17833,9 +18168,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if (!screen_hide){ while (!window_exists){Sleep(100);} #ifdef QB64_GLUT - #ifndef QB64_ANDROID - glutSetCursor(GLUT_CURSOR_NONE); - #endif + glutSetCursor(GLUT_CURSOR_NONE); #endif } #endif @@ -17863,6 +18196,9 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if (qbs_equal(str,qbs_new_txt("HORIZONTAL"))) {mouse_cursor_style=GLUT_CURSOR_LEFT_RIGHT; goto cursor_valid;} if (qbs_equal(str,qbs_new_txt("TOPLEFT_BOTTOMRIGHT"))) {mouse_cursor_style=GLUT_CURSOR_TOP_LEFT_CORNER; goto cursor_valid;} if (qbs_equal(str,qbs_new_txt ("TOPRIGHT_BOTTOMLEFT"))) {mouse_cursor_style=GLUT_CURSOR_TOP_RIGHT_CORNER; goto cursor_valid;} + if (qbs_equal(str,qbs_new_txt ("WAIT"))) {mouse_cursor_style=GLUT_CURSOR_WAIT; goto cursor_valid;} + if (qbs_equal(str,qbs_new_txt ("HELP"))) {mouse_cursor_style=GLUT_CURSOR_HELP; goto cursor_valid;} + if(qbs_equal(str,qbs_new_txt("CYCLE"))||qbs_equal(str, qbs_new_txt("MOVE"))) {mouse_cursor_style=GLUT_CURSOR_CYCLE; goto cursor_valid;} error(5); return; } cursor_valid: @@ -17935,21 +18271,17 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ static float f; int32 handle; + + #ifdef QB64_WINDOWS + if (read_page->console){return consolemousex;} + #endif + handle=mouse_message_queue_default; if (passed) handle=context; mouse_message_queue_struct *queue=(mouse_message_queue_struct*)list_get(mouse_message_queue_handles,handle); if (queue==NULL){error(258); return 0;} x=queue->queue[queue->current].x; - /* - if (cloud_app){ - x2=display_page->width; if (display_page->text) x2*=fontwidth[display_page->font]; - x_limit=x2-1; - x_scale=1; - x_offset=0; - } - */ - //calculate pixel offset of mouse within SCREEN using environment variables x-=environment_2d__screen_x1; x=qbr_float_to_long((((float)x+0.5f)/environment_2d__screen_x_scale)-0.5f); @@ -17979,21 +18311,17 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ static float f; int32 handle; + + #ifdef QB64_WINDOWS + if (read_page->console){return consolemousey;} + #endif + handle=mouse_message_queue_default; if (passed) handle=context; mouse_message_queue_struct *queue=(mouse_message_queue_struct*)list_get(mouse_message_queue_handles,handle); if (queue==NULL){error(258); return 0;} y=queue->queue[queue->current].y; - /* - if (cloud_app){ - y2=display_page->height; if (display_page->text) y2*=fontheight[display_page->font]; - y_limit=y2-1; - y_scale=1; - y_offset=0; - } - */ - //calculate pixel offset of mouse within SCREEN using environment variables y-=environment_2d__screen_y1; y=qbr_float_to_long((((float)y+0.5f)/environment_2d__screen_y_scale)-0.5f); @@ -18096,6 +18424,17 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ int32 func__mousebutton(int32 i, int32 context, int32 passed){ if (i<1){error(5); return 0;} + #ifdef QB64_WINDOWS + if (read_page->console){ //console may support up to 5 mouse buttons according to the documentation. + if (i==1)return consolebutton&1; + if (i==2)return consolebutton&2; + if (i==3)return consolebutton&4; + if (i==4)return consolebutton&8; + if (i==5)return consolebutton&16; + return 0; + } + #endif + if (i>3) return 0;//current SDL only supports 3 mouse buttons! //swap indexes 2&3 if (i==2){ @@ -18115,6 +18454,16 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ int32 func__mousewheel(int32 context, int32 passed){ static uint32 x; int32 handle; + + + #ifdef QB64_WINDOWS + if (read_page->console){ + if (consolebutton<-0x100)return -1; + if (consolebutton>0x100)return 1; + return 0; + } + #endif + handle=mouse_message_queue_default; if (passed) handle=context; mouse_message_queue_struct *queue=(mouse_message_queue_struct*)list_get(mouse_message_queue_handles,handle); @@ -18218,6 +18567,24 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //Creating/destroying an image surface: int32 func__newimage(int32 x,int32 y,int32 bpp,int32 passed){ + #ifdef QB64_WINDOWS + #if WINVER >= 0x0600 //this block is not compatible with XP + static bool j; + if(j != 1){ + FARPROC dpiaware; + HMODULE user32 = LoadLibrary(TEXT("user32.dll")); + if(user32 != NULL){ + dpiaware = GetProcAddress(user32, "SetProcessDPIAware"); + if(NULL != dpiaware){ + (dpiaware) (); + j = 1; + FreeLibrary(user32); + } + FreeLibrary(user32); + } + } + #endif + #endif static int32 i; if (new_error) return 0; if (x<=0||y<=0){error(5); return 0;} @@ -18289,7 +18656,10 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ i2=newimg(); d=&img[i2]; memcpy(d,s,sizeof(img_struct)); - img[i2].lock_id=NULL; img[i2].lock_offset=NULL; // force _MEMIMGAGE to get a new lock for the copy + //don't duplicate the memory lock (if any), + //_MEMIMAGE needs to obtain a new lock for the copy + img[i2].lock_id=NULL; + img[i2].lock_offset=NULL; //duplicate pixel data bytes=d->width*d->height*d->bytes_per_pixel; d->offset=(uint8*)malloc(bytes); @@ -18359,7 +18729,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ static int32 i; //note: handles 0 & -1(1) are reserved for (i=2;iconsole && !passed)||i==console_image){ + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + GetConsoleScreenBufferInfo(cl_conout, &cl_bufinfo); + return cl_bufinfo.srWindow.Right - cl_bufinfo.srWindow.Left + 1; + } + #endif + if (passed){ if (i>=0){//validate i validatepage(i); i=page[i]; @@ -18591,6 +18972,18 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ int32 func__height(int32 i,int32 passed){ if (new_error) return 0; + + #ifdef QB64_WINDOWS + if ((read_page->console && !passed)||i==console_image){ + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + GetConsoleScreenBufferInfo(cl_conout, &cl_bufinfo); + return cl_bufinfo.srWindow.Bottom - cl_bufinfo.srWindow.Top + 1; + return cl_bufinfo.dwMaximumWindowSize.Y; + } + #endif + if (passed){ if (i>=0){//validate i validatepage(i); i=page[i]; @@ -19087,7 +19480,24 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //validate size if (size<1){error(5); return NULL;} if (size>2048) return -1; + + + //load the file + if (!f->len) return -1;//return invalid handle if null length string + int32 fh,result; + int64 bytes; + fh=gfs_open(f,1,0,0); + #ifdef QB64_WINDOWS //rather than just immediately tossing an error, let's try looking in the default OS folder for the font first in case the user left off the filepath. + if (fh<0&&recall==0) { + recall=-1; //to set a flag so we don't get trapped endlessly recalling the routine when the font actually doesn't exist + i=func__loadfont(qbs_add(qbs_new_txt("C:/Windows/Fonts/"),f), size, requirements,passed); //Look in the default windows font location + return i; + } + #endif + recall=0; + if (fh<0) return -1; //If we still can't load the font, then we just can't load the font... Send an error code back. + //check requirements memset(r,0,32); if (passed){ @@ -19122,23 +19532,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //8 dontblend (blending is the default in 32-bit alpha-enabled modes) //16 monospace //32 unicode - - //load the file - if (!f->len) return -1;//return invalid handle if null length string - int32 fh,result; - int64 bytes; - fh=gfs_open(f,1,0,0); - - #ifdef QB64_WINDOWS //rather than just immediately tossing an error, let's try looking in the default OS folder for the font first in case the user left off the filepath. - if (fh<0&&recall==0) { - recall=-1; //to set a flag so we don't get trapped endlessly recalling the routine when the font actually doesn't exist - i=func__loadfont(qbs_add(qbs_new_txt("C:/Windows/Fonts/"),f), size, requirements,passed); //Look in the default windows font location - return i; - } - #endif - recall=0; - - if (fh<0) return -1; + bytes=gfs_lof(fh); static uint8* content; content=(uint8*)malloc(bytes); if (!content){gfs_close(fh); return -1;} @@ -19597,40 +19991,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ sub_close(NULL,0); exit_blocked=0;//allow exit via X-box or CTRL+BREAK - - if (cloud_app){ - //1. set the display page as the destination page - sub__dest(func__display()); - //2. VIEW PRINT bottomline,bottomline - static int32 y; - if (write_page->text){ - y=write_page->height; - }else{ - y=write_page->height/fontheight[write_page->font]; - } - qbg_sub_view_print(y,y,1|2); - //3. PRINT 'clears the line without having to worry about its contents/size - qbs_print(nothingstring,1); - //4. PRINT "Press any key to continue" - qbs_print(qbs_new_txt("Program ended. Closing (10 seconds)..."),0); - //6. Enable autodisplay - autodisplay=1; - int sec=7; - while(sec--){ - evnt(1); - Sleep(1000); - qbs_print(qbs_new_txt("."),0); - } - sec=3; - while(sec--){ - Sleep(1000); - evnt(1); - } - - close_program=1; - end(); - exit(0);//<-- should never happen - } + #ifdef DEPENDENCY_CONSOLE_ONLY screen_hide=1; @@ -19668,12 +20029,21 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ }else{ if (console){ - //screen is hidden, console is visible - cout<<"\nPress enter to continue"; - static int32 ignore; - ignore=fgetc(stdin); + //screen is hidden, console is visible + #ifdef QB64_WINDOWS + cout<<"\nPress any key to continue"; + int32 junk; + FlushConsoleInputBuffer(GetStdHandle(STD_INPUT_HANDLE)); //clear any stray buffer events before we run END. + do{ //ignore all console input + junk=func__getconsoleinput(); + }while(junk!=1); //until we have a key down event + #else + cout<<"\nPress enter to continue"; + static int32 ignore; + ignore=fgetc(stdin); + #endif + } } - } close_program=1; end(); exit(0);//<-- should never happen @@ -20370,7 +20740,9 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //set screen mode to 0 (80x25) qbg_screen(0,NULL,0,0,NULL,1|4|8); //make sure WIDTH is 80x25 - qbsub_width(NULL,80,25,1|2); + qbsub_width(NULL,80,25,0,0,1|2); + //restore view print + qbg_sub_view_print(NULL,NULL,0); //restore palette restorepalette(write_page); //restore default colors @@ -20381,13 +20753,14 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //Reset RND & RANDOMIZE state rnd_seed=327680; rnd_seed_first=327680;//Note: must contain the same value as rnd_seed + //clear keyboard buffers + sub__keyclear(NULL,0); } void sub_run(qbs* f){ if (new_error) return; - if (cloud_app){error(262); return;} //run program static qbs *str=NULL; @@ -20642,9 +21015,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub__display(){ - if (cloud_app==0){ - if (screen_hide) return; - } + if (screen_hide) return; //disable autodisplay (if enabled) if (autodisplay){ @@ -21097,57 +21468,101 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ goto nextchar; } - - - #ifdef QB64_UNIX - extern char** environ; - #define envp environ - #else /* WINDOWS */ + #ifdef QB64_WINDOWS #define envp _environ + #else + extern char **environ; + #define envp environ #endif - size_t environ_count; - - qbs *func_environ(qbs *name) - { - static char *cp; - static qbs *tqbs; - static int32 bytes; - cp=getenv((char*)name->chr); - if (cp&&(cloud_app==0)){ - bytes=strlen(cp); - tqbs=qbs_new(bytes,1); - memcpy(tqbs->chr,cp,bytes); - }else{ - tqbs=qbs_new(0,1); + + int32 func__environcount() { + //count array bound + char **p = envp; + while (*++p); + return p - envp; + } + + qbs *func_environ(qbs *name) { + char *query, *result; + qbs *tqbs; + query = (char *)malloc(name->len + 1); + query[name->len] = '\0'; //add NULL terminator + memcpy(query, name->chr, name->len); + result = getenv(query); + if (result) { + int result_length = strlen(result); + tqbs = qbs_new(result_length, 1); + memcpy(tqbs->chr, result, result_length); + } + else { + tqbs = qbs_new(0, 1); } return tqbs; } - - qbs *func_environ(int32 number) - { - static qbs *tqbs; - static char *cp; - static int32 bytes; - if (cloud_app){tqbs=qbs_new(0,1); error(5); return tqbs;} - if (number<=0){tqbs=qbs_new(0,1); error(5); return tqbs;} - if (number>=environ_count){tqbs=qbs_new(0,1); return tqbs;} - cp=*(envp+number-1); - bytes=strlen(cp); - tqbs=qbs_new(bytes,1); - memcpy(tqbs->chr,cp,bytes); + + qbs *func_environ(int32 number) { + char *result; + qbs *tqbs; + int result_length; + if (number <= 0) { + tqbs = qbs_new(0, 1); + error(5); + return tqbs; + } + //Check we do not go beyond array bound + char **p = envp; + while (*++p); + if (number > p - envp) { + tqbs = qbs_new(0, 1); + return tqbs; + } + result = envp[number - 1]; + result_length = strlen(result); + tqbs = qbs_new(result_length, 1); + memcpy(tqbs->chr, result, result_length); return tqbs; } - void sub_environ(qbs *str) - { - if (cloud_app){error(262); return;} - static char *cp; - cp=(char*)malloc(str->len+1); - cp[str->len]=0;//add NULL terminator - memcpy(cp,str->chr,str->len); - putenv(cp); - free(cp); - environ_count++; + void sub_environ(qbs *str) { + char *buf; + char *separator; + buf = (char *)malloc(str->len + 1); + buf[str->len] = '\0'; + memcpy(buf, str->chr, str->len); + //Name and value may be separated by = or space + separator = strchr(buf, ' '); + if (!separator) { + separator = strchr(buf, '='); + } + if (!separator) { + //It is an error is there is no separator + error(5); + return; + } + // Split into two separate strings + *separator = '\0'; + if (separator == &buf[str->len] - 1) { + //Separator is at end of string, so remove the variable + #ifdef QB64_WINDOWS + *separator = '='; + _putenv(buf); + #else + unsetenv(buf); + #endif + } + else { + #ifdef QB64_WINDOWS + #if WINVER >= 0x0600 + _putenv_s(buf, separator + 1); + #else + *separator = '='; + _putenv(buf); + #endif + #else + setenv(buf, separator + 1, 1); + #endif + } + free(buf); } #ifdef QB64_WINDOWS @@ -21158,16 +21573,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ MessageBox2(NULL,(char*)s->chr,"showvalue",MB_OK|MB_SYSTEMMODAL); } #endif - - - - - - - - - - + //Referenced: http://johnnie.jerrata.com/winsocktutorial/ //Much of the unix sockets code based on http://beej.us/guide/bgnet/ @@ -21181,8 +21587,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ #include #endif - - #define NETWORK_ERROR -1 #define NETWORK_OK 0 @@ -21268,7 +21672,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ sockfd = socket(p->ai_family, p->ai_socktype, p->ai_protocol); if (sockfd == -1) continue; setsockopt(sockfd, SOL_SOCKET, SO_REUSEADDR, &yes, sizeof(int)); - if (bind(sockfd, p->ai_addr, p->ai_addrlen) == -1) { + if (::bind(sockfd, p->ai_addr, p->ai_addrlen) == -1) { close(sockfd); continue; } @@ -21450,14 +21854,18 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void tcp_out(void *connection,void *offset,ptrszint bytes){ #if !defined(DEPENDENCY_SOCKETS) - #elif defined(QB64_WINDOWS) || defined(QB64_UNIX) + #elif defined(QB64_WINDOWS) || defined(QB64_UNIX) + // Handle Windows which might not have this flag (it would be a no-op anyway) + #if !defined(MSG_NOSIGNAL) + #define MSG_NOSIGNAL 0 + #endif tcp_connection *tcp; tcp=(tcp_connection*)connection; int total = 0; // how many bytes we've sent int bytesleft = bytes; // how many we have left to send int n; while(total < bytes) { - n = send(tcp->socket, (char*)((char *)offset + total), bytesleft, 0); + n = send(tcp->socket, (char*)((char *)offset + total), bytesleft, MSG_NOSIGNAL); if (n < 0) { tcp->connected = 0; return; @@ -21469,7 +21877,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ #endif } - int32 cloud_port_redirect=-1; struct connection_struct{ int8 in_use;//0=not being used, 1=in use int8 protocol;//1=TCP/IP @@ -21619,7 +22026,11 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if ((method==0)||(method==1)){ if (parts<2) return -1; - if (qbs_equal(qbs_ucase(info_part[1]),qbs_new_txt("TCP/IP"))==0) return -1; + if (qbs_equal(qbs_ucase(info_part[1]),qbs_new_txt("TCP/IP"))==0) { + if (qbs_equal(qbs_ucase(info_part[1]),qbs_new_txt("QB64IDE"))==0 || vwatch!=-1) { + return -1; + } + } d=func_val(info_part[2]); port=qbr_double_to_long(d);//***assume*** port number is within valid range @@ -21627,10 +22038,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if (method==0){//_OPENCLIENT if (parts!=3) return -1; - if (cloud_app){ - if (port==cloud_port_redirect) port=cloud_port[1]; - } - static void *connection; qbs_set(str,qbs_add(info_part[3],strz)); connection=tcp_client_open(str->chr,port); @@ -21654,22 +22061,14 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //init stream my_stream_struct->in=NULL; my_stream_struct->in_size=0; my_stream_struct->in_limit=0; + if (vwatch==-1) vwatch=my_handle; return my_handle; }//client if (method==1){//_OPENHOST if (parts!=2) return -1; - - if (cloud_app){ - if (port==cloud_port[1]) goto gotcloudport; - if (port==cloud_port[2]) goto gotcloudport; - if ((port>=1)&&(port<=2)){port=cloud_port[port]; goto gotcloudport;} - cloud_port_redirect=port; - port=cloud_port[1];//unknown values default to primary hosting port - } - gotcloudport: - + static void *connection; connection=tcp_host_open(port); if (!connection) return 0; @@ -21874,7 +22273,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ - #if defined(QB64_LINUX) + #if defined(QB64_LINUX) && defined(QB64_GUI) //X11 clipboard interface for Linux //SDL_SysWMinfo syswminfo; @@ -21922,10 +22321,10 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ //SDL_EventState(SDL_SYSWMEVENT,SDL_ENABLE); //SDL_SetEventFilter(x11filter); x11_lock(); - targets=XInternAtom(X11_display,"TARGETS",True); - utf8string=XInternAtom(X11_display,"UTF8_STRING",True); - compoundtext=XInternAtom(X11_display,"COMPOUND_TEXT",True); - clipboard=XInternAtom(X11_display,"CLIPBOARD",True); + targets=XInternAtom(X11_display,"TARGETS",False); + utf8string=XInternAtom(X11_display,"UTF8_STRING",False); + compoundtext=XInternAtom(X11_display,"COMPOUND_TEXT",False); + clipboard=XInternAtom(X11_display,"CLIPBOARD",False); x11_unlock(); } } @@ -21997,6 +22396,9 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ return NULL; } + #elif defined(QB64_LINUX) + void x11clipboardcopy(const char *text){ } + char *x11clipboardpaste(){ return NULL; } #endif @@ -22261,6 +22663,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if ( (err) != noErr ) goto CantGetPasteboardItemIdentifier; err = PasteboardCopyItemFlavorData( inPasteboard, itemID, CFSTR("public.utf8-plain-text"), &flavorData ); + if ( (err) != noErr ) goto CantGetPasteboardItemCount; data = (char*)CFDataGetBytePtr(flavorData); uint32 size; @@ -22369,7 +22772,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ if (i32==258){ generic_get(i,-1,(uint8*)&i32,4); i32b=i32; generic_get(i,-1,(uint8*)&i32,4); - qbsub_width(0,i32b,i32,1+2); + qbsub_width(0,i32b,i32,0,0,1+2); generic_get(i,-1,(uint8*)&i32,4); } } @@ -23116,6 +23519,10 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ f->file_handle->seekp(position); } f->pos=position; + if (f->pos<=gfs_lof(i)){ + f->eof_passed=0; + f->eof_reached=0; + } return 0; #endif @@ -23130,6 +23537,10 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ } } f->pos=position; + if (f->pos<=gfs_lof(i)){ + f->eof_passed=0; + f->eof_reached=0; + } return 0; #endif @@ -23523,9 +23934,7 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ #endif //DEPENDENCY_SCREENIMAGE void sub__screenclick(int32 x,int32 y, int32 button, int32 passed){ - - if (cloud_app){error(262); return;} - + #ifdef QB64_WINDOWS static INPUT input; @@ -23984,8 +24393,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub__screenprint(qbs *txt){ - if (cloud_app){error(262); return;} - static int32 i,s,x,vk,c; #ifdef QB64_MACOSX @@ -24411,7 +24818,6 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ void sub_files(qbs *str,int32 passed){ if (new_error) return; - if (cloud_app){error(262); return;} static int32 i,i2,i3; static qbs *strz=NULL; if (!strz) strz=qbs_new(0,0); @@ -24839,6 +25245,9 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ #if defined(QB64_GUI) && defined(QB64_WINDOWS) && defined(QB64_GLUT) while (!window_exists){Sleep(100);} //Wait for window to be created before checking position return glutGet(GLUT_WINDOW_X) - glutGet(GLUT_WINDOW_BORDER_WIDTH); + #elif defined(QB64_GUI) && defined(QB64_MACOSX) && defined(QB64_GLUT) + while (!window_exists){Sleep(100);} //Wait for window to be created before checking position + return glutGet(GLUT_WINDOW_X); #endif return 0; //if not windows then return 0 } @@ -24847,6 +25256,9 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ #if defined(QB64_GUI) && defined(QB64_WINDOWS) && defined(QB64_GLUT) while (!window_exists){Sleep(100);} //Wait for window to be created before checking position return glutGet(GLUT_WINDOW_Y) - glutGet(GLUT_WINDOW_BORDER_WIDTH) - glutGet(GLUT_WINDOW_HEADER_HEIGHT); + #elif defined(QB64_GUI) && defined(QB64_MACOSX) && defined(QB64_GLUT) + while (!window_exists){Sleep(100);} //Wait for window to be created before checking position + return glutGet(GLUT_WINDOW_Y); #endif return 0; //if not windows then return 0 } @@ -25888,15 +26300,16 @@ void sub_put2(int32 i,int64 offset,void *element,int32 passed){ int32 func__screenhide(){return -screen_hide;} void sub__consoletitle(qbs* s){ - if (new_error) return; - static qbs *sz=NULL; if (!sz) sz=qbs_new(0,0); - static qbs *cz=NULL; if (!cz){cz=qbs_new(1,0); cz->chr[0]=0;} - qbs_set(sz,qbs_add(s,cz)); - if (console){ if (console_active){ - #ifdef QB64_WINDOWS - SetConsoleTitle((char*)sz->chr); - #endif - }} + #ifdef QB64_WINDOWS + char *title; + title = (char *)malloc(s->len + 1); + title[s->len] = '\0'; //add NULL terminator + memcpy(title, s->chr, s->len); + if (console){ if (console_active){ + SetConsoleTitle(title); + Sleep(40); + }} + #endif } @@ -26696,13 +27109,6 @@ qbs *func__startdir(){ qbs *rootDir=NULL;//the dir moved to when program begins -char *android_dir_downloads=NULL; -char *android_dir_documents=NULL; -char *android_dir_pictures=NULL; -char *android_dir_music=NULL; -char *android_dir_video=NULL; -char *android_dir_dcim=NULL; - qbs *func__dir(qbs* context_in){ static qbs *context=NULL; @@ -26711,10 +27117,6 @@ qbs *func__dir(qbs* context_in){ qbs_set(context,qbs_ucase(context_in)); if (qbs_equal(qbs_ucase(context),qbs_new_txt("TEXT"))||qbs_equal(qbs_ucase(context),qbs_new_txt("DOCUMENT"))||qbs_equal(qbs_ucase(context),qbs_new_txt("DOCUMENTS"))||qbs_equal(qbs_ucase(context),qbs_new_txt("MY DOCUMENTS"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_documents,0770); - return qbs_new_txt(android_dir_documents); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,5,NULL,0,osPath))){ //Documents @@ -26724,10 +27126,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("MUSIC"))||qbs_equal(qbs_ucase(context),qbs_new_txt("AUDIO"))||qbs_equal(qbs_ucase(context),qbs_new_txt("SOUND"))||qbs_equal(qbs_ucase(context),qbs_new_txt("SOUNDS"))||qbs_equal(qbs_ucase(context),qbs_new_txt("MY MUSIC"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_music,0770); - return qbs_new_txt(android_dir_music); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,13,NULL,0,osPath))){ //Music @@ -26737,10 +27135,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("PICTURE"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PICTURES"))||qbs_equal(qbs_ucase(context),qbs_new_txt("IMAGE"))||qbs_equal(qbs_ucase(context),qbs_new_txt("IMAGES"))||qbs_equal(qbs_ucase(context),qbs_new_txt("MY PICTURES"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_pictures,0770); - return qbs_new_txt(android_dir_pictures); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,39,NULL,0,osPath))){//Pictures @@ -26750,10 +27144,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("DCIM"))||qbs_equal(qbs_ucase(context),qbs_new_txt("CAMERA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("CAMERA ROLL"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PHOTO"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PHOTOS"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_dcim,0770); - return qbs_new_txt(android_dir_dcim); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,39,NULL,0,osPath))){//Pictures @@ -26763,10 +27153,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("MOVIE"))||qbs_equal(qbs_ucase(context),qbs_new_txt("MOVIES"))||qbs_equal(qbs_ucase(context),qbs_new_txt("VIDEO"))||qbs_equal(qbs_ucase(context),qbs_new_txt("VIDEOS"))||qbs_equal(qbs_ucase(context),qbs_new_txt("MY VIDEOS"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_video,0770); - return qbs_new_txt(android_dir_video); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,14,NULL,0,osPath))){ //Videos @@ -26776,10 +27162,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("DOWNLOAD"))||qbs_equal(qbs_ucase(context),qbs_new_txt("DOWNLOADS"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_downloads,0770); - return qbs_new_txt(android_dir_downloads); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,0x0028,NULL,0,osPath))){//user folder @@ -26791,10 +27173,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("DESKTOP"))){ - #ifdef QB64_ANDROID - mkdir(android_dir_downloads,0770); - return qbs_new_txt(android_dir_downloads); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,0,NULL,0,osPath))){ //Desktop @@ -26804,9 +27182,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("APPDATA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("APPLICATION DATA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAM DATA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("DATA"))){ - #ifdef QB64_ANDROID - return qbs_add(rootDir,qbs_new_txt("/")); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,0x001a,NULL,0,osPath))){ //CSIDL_APPDATA (%APPDATA%) @@ -26816,9 +27191,6 @@ qbs *func__dir(qbs* context_in){ } if (qbs_equal(qbs_ucase(context),qbs_new_txt("LOCALAPPDATA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("LOCAL APPLICATION DATA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("LOCAL PROGRAM DATA"))||qbs_equal(qbs_ucase(context),qbs_new_txt("LOCAL DATA"))){ - #ifdef QB64_ANDROID - return qbs_add(rootDir,qbs_new_txt("/")); - #endif #ifdef QB64_WINDOWS CHAR osPath[MAX_PATH]; if(SUCCEEDED(SHGetFolderPathA(NULL,0x001c,NULL,0,osPath))){ //CSIDL_LOCAL_APPDATA (%LOCALAPPDATA%) @@ -26826,6 +27198,37 @@ qbs *func__dir(qbs* context_in){ } #endif } + + if (qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAMFILES"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAM FILES"))){ + #ifdef QB64_WINDOWS + CHAR osPath[MAX_PATH]; + if(SUCCEEDED(SHGetFolderPathA(NULL,0x0026,NULL,0,osPath))){ //CSIDL_PROGRAM_FILES (%PROGRAMFILES%) + return qbs_add(qbs_new_txt(osPath),qbs_new_txt("\\")); + } + #endif + } + + if (qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAMFILESX86"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAMFILES X86"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAM FILES X86"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAM FILES 86"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAM FILES (X86)"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAMFILES (X86)"))||qbs_equal(qbs_ucase(context),qbs_new_txt("PROGRAM FILES(X86)"))){ + #ifdef QB64_WINDOWS && _WIN64 + CHAR osPath[MAX_PATH]; + if(SUCCEEDED(SHGetFolderPathA(NULL,0x002a,NULL,0,osPath))){ //CSIDL_PROGRAM_FILES (%PROGRAMFILES(X86)%) + return qbs_add(qbs_new_txt(osPath),qbs_new_txt("\\")); + } + #endif + } + + if (qbs_equal(qbs_ucase(context),qbs_new_txt("TEMP"))||qbs_equal(qbs_ucase(context),qbs_new_txt("TEMP FILES"))){ + #ifdef QB64_WINDOWS + CHAR osPath[MAX_PATH+1]; + DWORD pathlen; + pathlen = GetTempPathA(261, osPath); //%TEMP% + char path[pathlen]; + memcpy(path, &osPath, pathlen); + if (pathlen > 0){ + return qbs_new_txt(path); + } + #endif + } //general fallback location #ifdef QB64_WINDOWS @@ -26835,10 +27238,6 @@ qbs *func__dir(qbs* context_in){ } return qbs_new_txt(".\\");//current location #else - #ifdef QB64_ANDROID - mkdir(android_dir_downloads,0770); - return qbs_new_txt(android_dir_downloads); - #endif return qbs_new_txt("./");//current location #endif } @@ -26912,9 +27311,7 @@ int main( int argc, char* argv[] ){ this_mouse_message_queue->lastIndex=65535; this_mouse_message_queue->queue=(mouse_message*)calloc(1,sizeof(mouse_message)*(this_mouse_message_queue->lastIndex+1)); - if (!cloud_app){ - snd_init(); - } + snd_init(); @@ -26959,19 +27356,6 @@ int main( int argc, char* argv[] ){ ontimer[0].state=0; ontimer[0].active=0; - - - - - - - { - /* For bounds check on numeric ENVIRON$ */ - char **p = envp; - while (*p++); - environ_count = p - envp; - } - fontwidth[8]=8; fontwidth[14]=8; fontwidth[16]=8; fontheight[8]=8; fontheight[14]=14; fontheight[16]=16; fontflags[8]=16; fontflags[14]=16; fontflags[16]=16;//monospace flag @@ -27651,123 +28035,9 @@ void MAIN_LOOP(){ goto end_program; } - if (!cloud_app){ - snd_mainloop(); - } + snd_mainloop(); - - //check for input event (qloud_next_input_index) - if (cloud_app){ - - //***should be replaced with a timer based check (or removed)*** - //static int qloud_input_frame_count=0; - //qloud_input_frame_count++; - //if (qloud_input_frame_count>8) qloud_input_frame_count=1; - //if (qloud_input_frame_count==1){//~8 checks per second (would be ~64 without this check) - - qloud_input_recheck: - - FILE * pFile; - long lSize; - char * buffer; - size_t result; - pFile = NULL; - - static char filename[] = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"; - sprintf(filename, "input_%d.txt\0", qloud_next_input_index); - pFile = fopen ( filename , "rb" ); - if (pFile!=NULL) { - // obtain file size: - fseek (pFile , 0 , SEEK_END); - lSize = ftell (pFile); - rewind (pFile); - if (lSize>0){ - // allocate memory to contain the whole file: - buffer = (char*) calloc (1,sizeof(char)*lSize+1); - if (buffer != NULL) { - // copy the file into the buffer: - result = fread (buffer,1,lSize,pFile); - if (result == lSize) { - - if (buffer[lSize-1]==42){ //"*" terminator - - int start,stop; - start=0; - - int bi; - - nextcommand: - - for (bi=start;bi 4 changes p/sec if (frame&8) show_flashing=1; else show_flashing=0; - if (cloud_app){ - static double cloud_timer_flash; - cloud_timer_flash=func_timer(0.001,1)/2.0; - static int64 cloud_timer_flash_int; - cloud_timer_flash_int=cloud_timer_flash; - if (cloud_timer_flash_int&1) show_cursor=1; else show_cursor=0; - if (cloud_timer_flash_int&1) show_flashing=1; else show_flashing=0; - //static int qloud_show_cursor=0; - //qloud_show_cursor++; if (qloud_show_cursor&1) show_cursor=1; else show_cursor=0; - } - - - //calculate cursor position (base 0) cx=display_page->cursor_x-1; cy=display_page->cursor_y-1; @@ -28592,60 +28821,10 @@ void display(){ //if (!display_frame_begin) display_frame_begin=frame_i; display_frame[frame_i].state=DISPLAY_FRAME_STATE__READY; last_hardware_display_frame_order=display_frame[frame_i].order; - - - if (cloud_app){ - if (cloud_chdir_complete){ - - #ifdef QB64_WINDOWS - /* - static FILE *cloud_screenshot_file_handle=NULL; - if (cloud_screenshot_file_handle==NULL) cloud_screenshot_file_handle=fopen("output_image.raw","w+b"); - fseek ( cloud_screenshot_file_handle , 0 , SEEK_SET );//reset file pointer to beginning of file - static int32 w,h; - w=display_frame[frame_i].w; - h=display_frame[frame_i].h; - static int32 wh[2]; - wh[0]=w; - wh[1]=h; - fwrite (&wh[0] , 8, 1, cloud_screenshot_file_handle); - fwrite (display_frame[frame_i].bgra , w*h*4, 1, cloud_screenshot_file_handle); - fflush(cloud_screenshot_file_handle); - */ - - static HANDLE cloud_screenshot_file_handle=NULL; - if (cloud_screenshot_file_handle==NULL) cloud_screenshot_file_handle=CreateFile("output_image.raw", GENERIC_WRITE, FILE_SHARE_READ, NULL, CREATE_ALWAYS, - /*FILE_ATTRIBUTE_NORMAL*/FILE_FLAG_WRITE_THROUGH, NULL); - - - //fseek ( cloud_screenshot_file_handle , 0 , SEEK_SET );//reset file pointer to beginning of file - - - static int32 w,h,index=0; - w=display_frame[frame_i].w; - h=display_frame[frame_i].h; - index++; - static int32 header[3]; - header[0]=index; - header[1]=w; - header[2]=h; - - SetFilePointer(cloud_screenshot_file_handle,12,0,FILE_BEGIN); - WriteFile(cloud_screenshot_file_handle, display_frame[frame_i].bgra, w*h*4, NULL, NULL); - FlushFileBuffers(cloud_screenshot_file_handle); - SetFilePointer(cloud_screenshot_file_handle,0,0,FILE_BEGIN); - WriteFile(cloud_screenshot_file_handle, &header[0], 12, NULL, NULL); - - - //CloseHandle(cloud_screenshot_file_handle); - - #endif - } - } + no_new_frame:; display_page_invalid:; - cloud_skip_frame: //cancel frame if not built @@ -29752,3 +29931,171 @@ void reinit_glut_callbacks(){ #endif } + +int32 func__capslock(){ + #ifdef QB64_WINDOWS + return -GetKeyState(VK_CAPITAL); + #endif + return 0; +} + +int32 func__scrolllock(){ + #ifdef QB64_WINDOWS + return -GetKeyState(VK_SCROLL); + #endif + return 0; +} + +int32 func__numlock(){ + #ifdef QB64_WINDOWS + return -GetKeyState(VK_NUMLOCK); + #endif + return 0; +} + +void toggle_lock_key(int32 key_code){ + #ifdef QB64_WINDOWS + keybd_event (key_code, 0x45, 1, 0); + keybd_event (key_code, 0x45, 3, 0); + #endif +} + +void sub__capslock(int32 options){ + #ifdef QB64_WINDOWS + //VK_CAPITAL + int32 currentState = func__capslock(); + switch(options){ + case 1: //ON + if (currentState==-1) return; + break; + case 2: //OFF + if (currentState==0) return; + break; + } + // _TOGGLE: + toggle_lock_key(VK_CAPITAL); + #endif +} + +void sub__scrolllock(int32 options){ + #ifdef QB64_WINDOWS + //VK_SCROLL + int32 currentState = func__scrolllock(); + switch(options){ + case 1: //ON + if (currentState==-1) return; + break; + case 2: //OFF + if (currentState==0) return; + break; + } + // _TOGGLE: + toggle_lock_key(VK_SCROLL); + #endif +} + +void sub__numlock(int32 options){ + #ifdef QB64_WINDOWS + //VK_NUMLOCK + int32 currentState = func__numlock(); + switch(options){ + case 1: //ON + if (currentState==-1) return; + break; + case 2: //OFF + if (currentState==0) return; + break; + } + // _TOGGLE: + toggle_lock_key(VK_NUMLOCK); + #endif +} + +void sub__consolefont(qbs* FontName, int FontSize){ + #ifdef QB64_WINDOWS + #if WINVER >= 0x0600 //this block is not compatible with XP + SECURITY_ATTRIBUTES SecAttribs = {sizeof(SECURITY_ATTRIBUTES), 0, 1}; + HANDLE cl_conout = CreateFileA("CONOUT$", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, & SecAttribs, OPEN_EXISTING, 0, 0); + static int OneTimePause; + if (!OneTimePause){ // a slight delay so the console can be properly created and registered with Windows, before we try and change fonts with it. + Sleep(500); + OneTimePause=1; //after the first pause, the console should be created, so we don't need any more delays in the future. + } + CONSOLE_FONT_INFOEX info = {0}; + info.cbSize = sizeof(info); + info.dwFontSize.Y = FontSize; // leave X as zero + info.FontWeight = FW_NORMAL; + if (FontName->len>0){ //if we don't pass a font name, don't change the existing one. + const size_t cSize = FontName->len; + wchar_t* wc = new wchar_t[32]; + mbstowcs (wc, (char *)FontName->chr, cSize); + wcscpy(info.FaceName, wc); + delete[] wc; + } + + SetCurrentConsoleFontEx(cl_conout, NULL, &info); + #endif + #endif +} + + +void sub__console_cursor(int32 visible, int32 cursorsize, int32 passed){ + #ifdef QB64_WINDOWS + HANDLE consoleHandle = GetStdHandle(STD_OUTPUT_HANDLE); + CONSOLE_CURSOR_INFO info; + + GetConsoleCursorInfo(consoleHandle, &info); //get the original info, so we reuse it, unless the user called for a change. + + if (visible==1)info.bVisible = TRUE; //cursor is set to show + if (visible==2)info.bVisible = FALSE; //set to hide + if (passed&&cursorsize>=0&&cursorsize<=100)info.dwSize = cursorsize; //the user passed the cursor size, of a suitable size + + SetConsoleCursorInfo(consoleHandle, &info); + #endif +} + +int32 func__getconsoleinput(){ + #ifdef QB64_WINDOWS + HANDLE hStdin = GetStdHandle (STD_INPUT_HANDLE); + INPUT_RECORD irInputRecord; + DWORD dwEventsRead, fdwMode, dwMode; + CONSOLE_SCREEN_BUFFER_INFO cl_bufinfo; + + GetConsoleMode(hStdin, (LPDWORD)&dwMode); + fdwMode = ENABLE_EXTENDED_FLAGS; + SetConsoleMode(hStdin, fdwMode); + fdwMode = dwMode | ENABLE_WINDOW_INPUT | ENABLE_MOUSE_INPUT; + SetConsoleMode(hStdin, fdwMode); + + ReadConsoleInputA (hStdin, &irInputRecord, 1, &dwEventsRead); + switch(irInputRecord.EventType){ + case KEY_EVENT: //keyboard input + consolekey = irInputRecord.Event.KeyEvent.wVirtualScanCode; + if (!irInputRecord.Event.KeyEvent.bKeyDown) consolekey = -consolekey; //positive/negative return of scan codes. + return 1; + case MOUSE_EVENT: //mouse input + consolemousex = irInputRecord.Event.MouseEvent.dwMousePosition.X + 1; + consolemousey = irInputRecord.Event.MouseEvent.dwMousePosition.Y - cl_bufinfo.srWindow.Top + 1; + consolebutton = irInputRecord.Event.MouseEvent.dwButtonState; //button state for all buttons + //SetConsoleMode(hStdin, dwMode); + return 2; + } + #endif + return 0; //in case it's some other odd input +} + +int32 func__cinp (int32 toggle, int32 passed){ + #ifdef QB64_WINDOWS + int32 temp = consolekey; + consolekey = 0; //reset the console key, now that we've read it + if (passed==0)toggle=1; //default return of positive/negative scan code values + if (toggle) { + return temp; + }else{ + if (temp>=0)return temp; + return -temp + 128; + } + #else + return 0; + #endif +} diff --git a/internal/c/libqb.h b/internal/c/libqb.h index a9cd39f1f..30bd85362 100644 --- a/internal/c/libqb.h +++ b/internal/c/libqb.h @@ -68,4 +68,6 @@ extern qbs *qbs_lcase(qbs *str); extern qbs *qbs_ucase(qbs *str); + + using namespace std; #endif diff --git a/internal/c/libqb/gui.cpp b/internal/c/libqb/gui.cpp index aec2b00ed..23dda85d6 100644 --- a/internal/c/libqb/gui.cpp +++ b/internal/c/libqb/gui.cpp @@ -1,3 +1,8 @@ +#ifdef QB64_MACOSX +#include +#endif + +// trigger recompilation = 3 int32 displayorder_screen=1; int32 displayorder_hardware=2; @@ -18,7 +23,7 @@ void sub__displayorder(int32 method1,int32 method2,int32 method3,int32 method4){ displayorder_hardware1=0; displayorder_glrender=0; static int32 i,method; - for (i=1;i<=4;i++){ + for (i=1;i<=4;i++){ if (i==1) method=method1; if (i==2) method=method2; if (i==3) method=method3; @@ -98,7 +103,7 @@ void sub__glrender(int32 method){ - void free_hardware_img(int32 handle, int32 caller_id){ + void free_hardware_img(int32 handle, int32 caller_id){ hardware_img_struct* hardware_img; hardware_img=(hardware_img_struct*)list_get(hardware_img_handles,handle); @@ -116,7 +121,7 @@ void sub__glrender(int32 method){ glDeleteFramebuffersEXT(1, &depthbuffer_handle); } GLuint texture=(GLuint)hardware_img->texture_handle; - glDeleteTextures(1, &texture); + glDeleteTextures(1, &texture); //test reasset of hardware+img //hardware_img=(hardware_img_struct*)list_get(hardware_img_handles,handle); @@ -175,7 +180,7 @@ void sub__glrender(int32 method){ can_scale=1; if (resize_auto==2) environment_2d__screen_smooth=1; //note: screen will fix its aspect ratio automatically, so there is no need to enforce squarepixels - } + } } if (environment_2d__screen_width==environment__window_width && @@ -247,7 +252,7 @@ void sub__glrender(int32 method){ environment_2d__screen_scaled_height=environment_2d__screen_y2-environment_2d__screen_y1+1; environment_2d__screen_x_scale=(float)environment_2d__screen_scaled_width/(float)environment_2d__screen_width; environment_2d__screen_y_scale=(float)environment_2d__screen_scaled_height/(float)environment_2d__screen_height; - } + } }//prepare_environment_2d @@ -369,7 +374,7 @@ void sub__glrender(int32 method){ if (new_mode_shrunk==SMOOTH_MODE__DONT_SMOOTH){ if (render_state.source->PO2_fix==PO2_FIX__MIPMAPPED){ glTexParameterf (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); - }else{ + }else{ glTexParameterf (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);//Use _MAPTRIANGLE's _SMOOTHSHRUNK to apply linear filtering here } } @@ -442,7 +447,7 @@ void sub__glrender(int32 method){ } if (new_mode==DEPTHBUFFER_MODE__ON){ glEnable(GL_DEPTH_TEST); - glDepthMask(GL_TRUE); + glDepthMask(GL_TRUE); glAlphaFunc(GL_GREATER, 0.001); glEnable(GL_ALPHA_TEST); } @@ -463,7 +468,7 @@ void sub__glrender(int32 method){ glDisable(GL_CULL_FACE); } if (new_mode==CULL_MODE__CLOCKWISE_ONLY){ - glFrontFace(GL_CW); + glFrontFace(GL_CW); if (current_mode!=CULL_MODE__ANTICLOCKWISE_ONLY) glEnable(GL_CULL_FACE); } if (new_mode==CULL_MODE__ANTICLOCKWISE_ONLY){ @@ -493,7 +498,7 @@ void sub__glrender(int32 method){ glDisableClientState(GL_TEXTURE_COORD_ARRAY); glAlphaFunc(GL_ALWAYS, 0); if (framebufferobjects_supported) glBindFramebufferEXT(GL_FRAMEBUFFER, 0); - glBindTexture (GL_TEXTURE_2D, 0); + glBindTexture (GL_TEXTURE_2D, 0); glClear(GL_DEPTH_BUFFER_BIT); glColor4f(1.f, 1.f, 1.f, 1.f); glMatrixMode(GL_PROJECTION); @@ -506,11 +511,11 @@ void sub__glrender(int32 method){ set_cull_mode(CULL_MODE__UNKNOWN); set_render_source(INVALID_HARDWARE_HANDLE); set_render_dest(INVALID_HARDWARE_HANDLE); - new_mode=VIEW_MODE__UNKNOWN;//resets are performed before unknown operations are executed + new_mode=VIEW_MODE__UNKNOWN;//resets are performed before unknown operations are executed } if (new_mode==VIEW_MODE__2D){ if (current_mode!=VIEW_MODE__3D){ - glColor4f(1.0f, 1.0f, 1.0f, 1.0f); + glColor4f(1.0f, 1.0f, 1.0f, 1.0f); glDisable(GL_COLOR_MATERIAL); glDisable(GL_LIGHTING); set_alpha(ALPHA_MODE__BLEND); @@ -525,6 +530,44 @@ void sub__glrender(int32 method){ if (render_state.dest_handle==0){ static int32 dst_w,dst_h; + static int32 scale_factor=0; + + #ifdef QB64_MACOSX + if (scale_factor==0) { + // by default scale_factor should be 1, but in macOS Catalina (10.15.*) scale_factor must be setted in 2 + // * in cases where the app is executed on system with Retina Display + scale_factor = 1; // by default + + // lookup for retina/5k output from system_profiler (storing all outpun in stream) + bool b_isRetina, b_is5k; + FILE* consoleStream = popen("system_profiler SPDisplaysDataType", "r"); + if (consoleStream) { + char buffer[128]; + while (!feof(consoleStream)) { + if (fgets(buffer, 128, consoleStream) != NULL) { + string szBuffer(buffer); + + if (!b_isRetina) b_isRetina = (szBuffer.rfind("Retina") != ULONG_MAX); + if (!b_is5k) b_is5k = (szBuffer.rfind("5K") != ULONG_MAX); + } + } + } + pclose(consoleStream); + + if (b_isRetina || b_is5k) { + // apply only factor = 2 if macOS is Catalina (11.15.* // kern.osrelease 19.*) + char str[256]; + size_t size = sizeof(str); + int ret = sysctlbyname("kern.osrelease", str, &size, NULL, 0); + + string sz_osrelease(str); + if (sz_osrelease.rfind("19.") == 0) scale_factor=2; + } + } + #else + scale_factor=1; + #endif + dst_w=environment__window_width; dst_h=environment__window_height; @@ -538,7 +581,7 @@ void sub__glrender(int32 method){ glLoadIdentity(); glScalef(1, -1, 1);//flip vertically glTranslatef(0, -dst_h, 0);//move to new vertical position - glViewport(0,0,dst_w,dst_h); + glViewport(0,0,dst_w * scale_factor,dst_h * scale_factor); }else{ @@ -580,7 +623,7 @@ void sub__glrender(int32 method){ }else{ fov=90.0f*((float)environment__window_height/(float)environment_2d__screen_scaled_height); } - gluPerspective(fov, (GLfloat)dst_w / (GLfloat)dst_h, 0.1, 10000.0); // Set the Field of view angle (in degrees), the aspect ratio of our window, and the new and far planes + gluPerspective(fov, (GLfloat)dst_w / (GLfloat)dst_h, 0.1, 10000.0); // Set the Field of view angle (in degrees), the aspect ratio of our window, and the new and far planes glMatrixMode(GL_MODELVIEW); glLoadIdentity(); }else{ @@ -604,7 +647,7 @@ void sub__glrender(int32 method){ }else{ fov=90.0f; } - gluPerspective(fov, (GLfloat)dst_w / (GLfloat)dst_h, 0.1, 10000.0); // Set the Field of view angle (in degrees), the aspect ratio of our window, and the new and far planes + gluPerspective(fov, (GLfloat)dst_w / (GLfloat)dst_h, 0.1, 10000.0); // Set the Field of view angle (in degrees), the aspect ratio of our window, and the new and far planes glMatrixMode(GL_MODELVIEW); glLoadIdentity(); //alert("3D rendering onto FBO not supported yet"); @@ -671,7 +714,7 @@ void sub__glrender(int32 method){ glGenFramebuffersEXT(1, &framebuffer_handle); glBindFramebufferEXT(GL_FRAMEBUFFER, framebuffer_handle); hardware_img->dest_context_handle=framebuffer_handle; - glFramebufferTexture2DEXT(GL_FRAMEBUFFER, GL_COLOR_ATTACHMENT0, GL_TEXTURE_2D, hardware_img->texture_handle, 0); + glFramebufferTexture2DEXT(GL_FRAMEBUFFER, GL_COLOR_ATTACHMENT0, GL_TEXTURE_2D, hardware_img->texture_handle, 0); //glClearColor(0.0f, 0.0f, 0.0f, 0.0f); //glClear(GL_COLOR_BUFFER_BIT); @@ -786,7 +829,7 @@ void sub__glrender(int32 method){ if (src_hardware_img->source_state.PO2_fix){ src_w=src_hardware_img->PO2_w; src_h=src_hardware_img->PO2_h; - } + } //calc source texture co-ordinates static float x1f,y1f,x2f,y2f; @@ -1066,7 +1109,7 @@ void sub__glrender(int32 method){ if (src_hardware_img->source_state.PO2_fix){ src_w=src_hardware_img->PO2_w; src_h=src_hardware_img->PO2_h; - } + } //calc source texture co-ordinates static float x1f,y1f,x2f,y2f,x3f,y3f; @@ -1130,7 +1173,7 @@ void sub__glrender(int32 method){ static hardware_img_struct* dst_hardware_img; dst_hardware_img=(hardware_img_struct*)list_get(hardware_img_handles,dst_img); hardware_img_requires_depthbuffer(dst_hardware_img); - }else{ //dest is 0 + }else{ //dest is 0 } set_render_source(src_img); @@ -1178,7 +1221,7 @@ void sub__glrender(int32 method){ if (src_hardware_img->source_state.PO2_fix){ src_w=src_hardware_img->PO2_w; src_h=src_hardware_img->PO2_h; - } + } //calc source texture co-ordinates static float x1f,y1f,x2f,y2f,x3f,y3f; @@ -1275,7 +1318,7 @@ void sub__glrender(int32 method){ if (temp_window_title_set==1) { glutSetWindowTitle((char*)window_title); temp_window_title_set=0; - } + } #endif //general use variables @@ -1305,7 +1348,7 @@ void sub__glrender(int32 method){ in_GLUT_DISPLAY_REQUEST=0; return;//no frames exist yet, so screen size cannot be determined, therefore no action possible } - if (i!=last_i){ + if (i!=last_i){ for (i2=0; i2<=2;i2++){ if (display_frame[i2].order1) use_alpha=1; + use_alpha=0; if (level>1) use_alpha=1; - //put the software screen + //put the software screen hardware_img_put(0,0,environment_2d__screen_width-1,environment_2d__screen_height-1, software_screen_hardware_frame, 0, 0,0,f1->w-1,f1->h-1, @@ -1791,7 +1834,7 @@ void sub__glrender(int32 method){ if ((hgc->dst_img>0&&first_hardware_layer_rendered==0)||hgc->dst_img==dst){ hardware_img_put(hgc->dst_x1,hgc->dst_y1,hgc->dst_x2,hgc->dst_y2, hgc->src_img, hgc->dst_img, - hgc->src_x1,hgc->src_y1,hgc->src_x2,hgc->src_y2, + hgc->src_x1,hgc->src_y1,hgc->src_x2,hgc->src_y2, hgc->use_alpha,hgc->smooth); } } @@ -2023,20 +2066,29 @@ void sub__glrender(int32 method){ void GLUT_MOTION_FUNC(int x, int y){ - static int32 i,last_i; - static int32 xrel=0,yrel=0; - + int32 i, last_i; int32 handle; + int32 xrel, yrel; handle=mouse_message_queue_first; mouse_message_queue_struct *queue=(mouse_message_queue_struct*)list_get(mouse_message_queue_handles,handle); //message #1 last_i=queue->last; - i=queue->last+1; if (i>queue->lastIndex) i=0; + i=queue->last+1; if (i>queue->lastIndex) i=0; //wrap around if (i==queue->current){ - int32 nextIndex=queue->last+1; if (nextIndex>queue->lastIndex) nextIndex=0; + int32 nextIndex=queue->last+1; + if (nextIndex>queue->lastIndex) nextIndex=0; queue->current=nextIndex; } + #ifdef QB64_WINDOWS + // Windows calculates relative movement by intercepting WM_INPUT events instead + xrel = 0; + yrel = 0; + #else + xrel = x - queue->queue[queue->last].x; + yrel = y - queue->queue[queue->last].y; + #endif + queue->queue[i].x=x; queue->queue[i].y=y; queue->queue[i].movementx=xrel; @@ -2083,7 +2135,7 @@ void sub__glrender(int32 method){ fy*=2.0;//0 to 2 fy-=1.0;//-1 to 1 setDeviceEventAxisValue(d,eventIndex,0,fx); - setDeviceEventAxisValue(d,eventIndex,1,fy); + setDeviceEventAxisValue(d,eventIndex,1,fy); commitDeviceEvent(d); }else{ @@ -2096,7 +2148,7 @@ void sub__glrender(int32 method){ fx=xrel; fy=yrel; setDeviceEventWheelValue(d,eventIndex,0,fx); - setDeviceEventWheelValue(d,eventIndex,1,fy); + setDeviceEventWheelValue(d,eventIndex,1,fy); commitDeviceEvent(d); eventIndex=createDeviceEvent(d); diff --git a/internal/c/libqb/gui.h b/internal/c/libqb/gui.h index 00b684f84..a1015d69e 100644 --- a/internal/c/libqb/gui.h +++ b/internal/c/libqb/gui.h @@ -181,16 +181,6 @@ int32 requestedKeyboardOverlayImage=0; if (flags&NEW_HARDWARE_IMG__DUPLICATE_PROVIDED_BUFFER){ hardware_img->software_pixel_buffer=(uint32*)malloc(x*y*4); memcpy(hardware_img->software_pixel_buffer,pixels,x*y*4); - #ifdef QB64_ANDROID - //BGRA->RGBA - uint32 *pos=(uint32*)hardware_img->software_pixel_buffer; - int32 numPixels=x*y; - uint32 col; - while(numPixels--){ - col=*pos; - *pos++= (col&0xFF00FF00) | ((col & 0xFF0000) >> 16) | ((col & 0x0000FF) << 16); - } - #endif }else{ hardware_img->software_pixel_buffer=pixels; } diff --git a/internal/c/libqb/os/osx/build_test.command b/internal/c/libqb/os/osx/build_test.command old mode 100644 new mode 100755 index aa2b456d7..0d6da4916 --- a/internal/c/libqb/os/osx/build_test.command +++ b/internal/c/libqb/os/osx/build_test.command @@ -1,5 +1,5 @@ cd "$(dirname "$0")" -g++ -c -w -Wall ../../../libqb.mm -D DEPENDENCY_AUDIO_OUT -D DEPENDENCY_AUDIO_DECODE -D DEPENDENCY_AUDIO_CONVERSION -o libqb_test_only.o +clang++ -c -w -Wall ../../../libqb.mm -D DEPENDENCY_AUDIO_OUT -D DEPENDENCY_AUDIO_DECODE -D DEPENDENCY_AUDIO_CONVERSION -o libqb_test_only.o echo "Press any key to continue" Pause() { diff --git a/internal/c/libqb/os/osx/setup_build.command b/internal/c/libqb/os/osx/setup_build.command old mode 100644 new mode 100755 index e81aaea6b..6db7d8eb1 --- a/internal/c/libqb/os/osx/setup_build.command +++ b/internal/c/libqb/os/osx/setup_build.command @@ -1,3 +1,3 @@ cd "$(dirname "$0")" -g++ -c -w -Wall ../../../libqb.mm -D DEPENDENCY_LOADFONT -o libqb_setup.o +clang++ -c -w -Wall ../../../libqb.mm -D DEPENDENCY_LOADFONT -o libqb_setup.o diff --git a/internal/c/makeline_lnx_nogui.txt b/internal/c/makeline_lnx_nogui.txt new file mode 100644 index 000000000..e95fdbe52 --- /dev/null +++ b/internal/c/makeline_lnx_nogui.txt @@ -0,0 +1,2 @@ +g++ -no-pie -w qbx.cpp parts/core/os/lnx/src.a -lpthread -ldl -lrt -D FREEGLUT_STATIC -o + diff --git a/internal/c/makeline_osx.txt b/internal/c/makeline_osx.txt index 2406a18c6..f44517f5c 100644 --- a/internal/c/makeline_osx.txt +++ b/internal/c/makeline_osx.txt @@ -1,4 +1,4 @@ -g++ -w qbx.cpp -framework OpenGL -framework IOKit -framework GLUT -framework OpenGL -framework Cocoa -o +clang++ -w qbx.cpp -framework OpenGL -framework IOKit -framework GLUT -framework OpenGL -framework Cocoa -o (below for reference purposes only, above is minimum viable) -g++ -w qbx.cpp -framework ApplicationServices -framework OpenGL -framework IOKit -framework CoreServices -framework CoreFoundation -framework GLUT -framework OpenGL -framework Cocoa -o \ No newline at end of file +clang++ -w qbx.cpp -framework ApplicationServices -framework OpenGL -framework IOKit -framework CoreServices -framework CoreFoundation -framework GLUT -framework OpenGL -framework Cocoa -o \ No newline at end of file diff --git a/internal/c/mingw32/libexec/gcc/i686-w64-mingw32/8.1.0/install-tools/fixinc.sh b/internal/c/mingw32/libexec/gcc/i686-w64-mingw32/8.1.0/install-tools/fixinc.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/bin/python-config-u.sh b/internal/c/mingw32/opt/bin/python-config-u.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/bin/python-config.sh b/internal/c/mingw32/opt/bin/python-config.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/lib/itcl4.1.1/itclConfig.sh b/internal/c/mingw32/opt/lib/itcl4.1.1/itclConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/lib/tcl8.6/tclConfig.sh b/internal/c/mingw32/opt/lib/tcl8.6/tclConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/lib/tclConfig.sh b/internal/c/mingw32/opt/lib/tclConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/lib/tdbc1.0.6/tdbcConfig.sh b/internal/c/mingw32/opt/lib/tdbc1.0.6/tdbcConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/lib/tk8.6/tkConfig.sh b/internal/c/mingw32/opt/lib/tk8.6/tkConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/lib/tkConfig.sh b/internal/c/mingw32/opt/lib/tkConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw32/opt/ssl/misc/CA.sh b/internal/c/mingw32/opt/ssl/misc/CA.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/libexec/gcc/x86_64-w64-mingw32/8.1.0/install-tools/fixinc.sh b/internal/c/mingw64/libexec/gcc/x86_64-w64-mingw32/8.1.0/install-tools/fixinc.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/bin/python-config-u.sh b/internal/c/mingw64/opt/bin/python-config-u.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/bin/python-config.sh b/internal/c/mingw64/opt/bin/python-config.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/lib/itcl4.1.1/itclConfig.sh b/internal/c/mingw64/opt/lib/itcl4.1.1/itclConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/lib/tcl8.6/tclConfig.sh b/internal/c/mingw64/opt/lib/tcl8.6/tclConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/lib/tclConfig.sh b/internal/c/mingw64/opt/lib/tclConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/lib/tdbc1.0.6/tdbcConfig.sh b/internal/c/mingw64/opt/lib/tdbc1.0.6/tdbcConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/lib/tk8.6/tkConfig.sh b/internal/c/mingw64/opt/lib/tk8.6/tkConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/lib/tkConfig.sh b/internal/c/mingw64/opt/lib/tkConfig.sh old mode 100644 new mode 100755 diff --git a/internal/c/mingw64/opt/ssl/misc/CA.sh b/internal/c/mingw64/opt/ssl/misc/CA.sh old mode 100644 new mode 100755 diff --git a/internal/c/msbin.c b/internal/c/msbin.c index 85890be91..f623b7ab4 100644 --- a/internal/c/msbin.c +++ b/internal/c/msbin.c @@ -214,7 +214,7 @@ int32 _dieeetomsbin(double *src8, double *dest8) /* Make a clobberable copy of the source number */ memcpy(ieee,src8,8); //strncpy((char *)ieee,(char *)src8,8); - for (i=0; i<8; i++) msbin[i] = 0; + memset(msbin, 0, sizeof(*dest8)); //for (i=0; i<8; i++) msbin[i] = 0; /* If all are zero in src8, the msbin should be zero */ for (i=0; i<8; i++) any_on |= ieee[i]; @@ -222,12 +222,15 @@ int32 _dieeetomsbin(double *src8, double *dest8) sign = ieee[7] & 0x80; msbin[6] |= sign; - msbin_exp = (unsigned)(ieee[7] & 0x7f) * 0x10; + msbin_exp = (unsigned)(ieee[7] & 0x7f) << 4; //(unsigned)(ieee[7] & 0x7f) * 0x10; msbin_exp += ieee[6] >> 4; - if (msbin_exp-0x3ff > 0x80) return 1; - - msbin[7] = msbin_exp - 0x3ff + 0x80 + 1; + // verify the exponent is in range for MBF encoding + msbin_exp = msbin_exp - 0x3ff + 0x80 + 1; + if ((msbin_exp & 0xff00) != 0) return 1; + msbin[7] = msbin_exp; + // if (msbin_exp-0x3ff > 0x80) return 1; + // msbin[7] = msbin_exp - 0x3ff + 0x80 + 1; /* The ieee mantissa must be shifted up 3 bits */ ieee[6] &= 0x0f; /* mask out the exponent in the second byte */ diff --git a/internal/c/myip.cpp b/internal/c/myip.cpp index 445074e42..bfb8e21bd 100644 --- a/internal/c/myip.cpp +++ b/internal/c/myip.cpp @@ -29,40 +29,22 @@ _DELAY 0.05 ' 50ms delay (20 checks per second) GET #client, , a2$ a$ = a$ + a2$ - i = INSTR(a$, "Content-Length:") - IF i THEN - i2 = INSTR(i, a$, e$) - IF i2 THEN - l = VAL(MID$(a$, i + 15, i2 - i - 14)) - i3 = INSTR(i2, a$, e$ + e$) - IF i3 THEN - i3 = i3 + 4 'move i3 to start of data - IF (LEN(a$) - i3 + 1) = l THEN - CLOSE client ' CLOSE CLIENT - d$ = MID$(a$, i3, l) - - 'check IP format: - i = 0 'total dots - x$ = "" 'current number - FOR i2 = 1 TO LEN(d$) - IF ASC(d$, i2) = 46 THEN - IF LEN(x$) = 0 THEN EXIT FUNCTION - x$ = "" - i = i + 1 - IF i > 3 THEN EXIT FUNCTION - ELSEIF ASC(d$, i2) < 48 OR ASC(d$, i2) > 57 THEN - EXIT FUNCTION - ELSE - x$ = x$ + MID$(d$, i2, 1) - END IF - NEXT - - whatismyip$ = d$ - EXIT FUNCTION - END IF ' availabledata = l - END IF ' i3 - END IF ' i2 - END IF ' i + IF l = 0 THEN + i = INSTR(a$, e$ + e$) + IF i THEN + i2 = INSTR(i + 4, a$, e$) + IF i2 THEN + l = VAL("&H" + MID$(a$, i + 4, i2 - i - 2)) + a$ = MID$(a$, i + 4 + i2 - i - 2) + END IF ' i2 + END IF ' i + ELSE + IF LEN(a$) >= l THEN + whatismyip$ = LEFT$(a$, l) + CLOSE client + EXIT FUNCTION + END IF + END IF LOOP UNTIL TIMER > t! + 5 ' (in seconds) CLOSE client END FUNCTION @@ -77,8 +59,7 @@ qbs* WHATISMYIP(){ //changed name from FUNC_WHATISMYIP to WHATISMYIP uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; - - //data1.txt + // include "data1.txt" qbs *_FUNC_WHATISMYIP_STRING_WHATISMYIP=NULL; if (!_FUNC_WHATISMYIP_STRING_WHATISMYIP)_FUNC_WHATISMYIP_STRING_WHATISMYIP=qbs_new(0,0); qbs *_FUNC_WHATISMYIP_STRING_URL=NULL; @@ -87,77 +68,58 @@ qbs* WHATISMYIP(){ //changed name from FUNC_WHATISMYIP to WHATISMYIP if (!_FUNC_WHATISMYIP_STRING_URL2)_FUNC_WHATISMYIP_STRING_URL2=qbs_new(0,0); float *_FUNC_WHATISMYIP_SINGLE_X=NULL; if(_FUNC_WHATISMYIP_SINGLE_X==NULL){ - _FUNC_WHATISMYIP_SINGLE_X=(float*)mem_static_malloc(4); - *_FUNC_WHATISMYIP_SINGLE_X=0; + _FUNC_WHATISMYIP_SINGLE_X=(float*)mem_static_malloc(4); + *_FUNC_WHATISMYIP_SINGLE_X=0; } float *_FUNC_WHATISMYIP_SINGLE_CLIENT=NULL; if(_FUNC_WHATISMYIP_SINGLE_CLIENT==NULL){ - _FUNC_WHATISMYIP_SINGLE_CLIENT=(float*)mem_static_malloc(4); - *_FUNC_WHATISMYIP_SINGLE_CLIENT=0; + _FUNC_WHATISMYIP_SINGLE_CLIENT=(float*)mem_static_malloc(4); + *_FUNC_WHATISMYIP_SINGLE_CLIENT=0; } qbs *_FUNC_WHATISMYIP_STRING_E=NULL; if (!_FUNC_WHATISMYIP_STRING_E)_FUNC_WHATISMYIP_STRING_E=qbs_new(0,0); qbs *_FUNC_WHATISMYIP_STRING_URL3=NULL; if (!_FUNC_WHATISMYIP_STRING_URL3)_FUNC_WHATISMYIP_STRING_URL3=qbs_new(0,0); - byte_element_struct *byte_element_20=NULL; - if (!byte_element_20){ - if ((mem_static_pointer+=12)chr,_FUNC_WHATISMYIP_STRING_X->len,byte_element_21),0); + sub_put2(qbr(*_FUNC_WHATISMYIP_SINGLE_CLIENT),NULL,byte_element((uint64)_FUNC_WHATISMYIP_STRING_X->chr,_FUNC_WHATISMYIP_STRING_X->len,byte_element_3),0); qbs_cleanup(qbs_tmp_base,0); *_FUNC_WHATISMYIP_SINGLE_T=func_timer(NULL,0); do{ - sub__delay( 0.05E+0 ); - sub_get2(qbr(*_FUNC_WHATISMYIP_SINGLE_CLIENT),NULL,_FUNC_WHATISMYIP_STRING_A2,0); - qbs_cleanup(qbs_tmp_base,0); - qbs_set(_FUNC_WHATISMYIP_STRING_A,qbs_add(_FUNC_WHATISMYIP_STRING_A,_FUNC_WHATISMYIP_STRING_A2)); - qbs_cleanup(qbs_tmp_base,0); - *_FUNC_WHATISMYIP_SINGLE_I=func_instr(NULL,_FUNC_WHATISMYIP_STRING_A,qbs_new_txt_len("Content-Length:",15),0); - qbs_cleanup(qbs_tmp_base,0); - if ((*_FUNC_WHATISMYIP_SINGLE_I)||new_error){ - *_FUNC_WHATISMYIP_SINGLE_I2=func_instr(qbr(*_FUNC_WHATISMYIP_SINGLE_I),_FUNC_WHATISMYIP_STRING_A,_FUNC_WHATISMYIP_STRING_E,1); - qbs_cleanup(qbs_tmp_base,0); - if ((*_FUNC_WHATISMYIP_SINGLE_I2)||new_error){ - *_FUNC_WHATISMYIP_SINGLE_L=func_val(func_mid(_FUNC_WHATISMYIP_STRING_A,qbr(*_FUNC_WHATISMYIP_SINGLE_I+ 15 ),qbr(*_FUNC_WHATISMYIP_SINGLE_I2-*_FUNC_WHATISMYIP_SINGLE_I- 14 ),1)); - qbs_cleanup(qbs_tmp_base,0); - *_FUNC_WHATISMYIP_SINGLE_I3=func_instr(qbr(*_FUNC_WHATISMYIP_SINGLE_I2),_FUNC_WHATISMYIP_STRING_A,qbs_add(_FUNC_WHATISMYIP_STRING_E,_FUNC_WHATISMYIP_STRING_E),1); - qbs_cleanup(qbs_tmp_base,0); - if ((*_FUNC_WHATISMYIP_SINGLE_I3)||new_error){ - *_FUNC_WHATISMYIP_SINGLE_I3=*_FUNC_WHATISMYIP_SINGLE_I3+ 4 ; - if ((qbs_cleanup(qbs_tmp_base,-(((float)((_FUNC_WHATISMYIP_STRING_A->len-*_FUNC_WHATISMYIP_SINGLE_I3+ 1 )))==((float)(*_FUNC_WHATISMYIP_SINGLE_L)))))||new_error){ - sub_close(qbr(*_FUNC_WHATISMYIP_SINGLE_CLIENT),1); - qbs_set(_FUNC_WHATISMYIP_STRING_D,func_mid(_FUNC_WHATISMYIP_STRING_A,qbr(*_FUNC_WHATISMYIP_SINGLE_I3),qbr(*_FUNC_WHATISMYIP_SINGLE_L),1)); - qbs_cleanup(qbs_tmp_base,0); - *_FUNC_WHATISMYIP_SINGLE_I= 0 ; - qbs_set(_FUNC_WHATISMYIP_STRING_X,qbs_new_txt_len("",0)); - qbs_cleanup(qbs_tmp_base,0); - fornext_value25= 1 ; - fornext_finalvalue25=_FUNC_WHATISMYIP_STRING_D->len; - fornext_step25= 1 ; - if (fornext_step25<0) fornext_step_negative25=1; else fornext_step_negative25=0; - if (new_error) goto fornext_error25; - goto fornext_entrylabel25; - while(1){ - fornext_value25=fornext_step25+(*_FUNC_WHATISMYIP_SINGLE_I2); - fornext_entrylabel25: - *_FUNC_WHATISMYIP_SINGLE_I2=fornext_value25; - qbs_cleanup(qbs_tmp_base,0); - if (fornext_step_negative25){ - if (fornext_value25fornext_finalvalue25) break; - } - fornext_error25:; - if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_WHATISMYIP_STRING_D,qbr(*_FUNC_WHATISMYIP_SINGLE_I2))== 46 )))||new_error){ - if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WHATISMYIP_STRING_X->len== 0 )))||new_error){ - goto exit_subfunc; - } - qbs_set(_FUNC_WHATISMYIP_STRING_X,qbs_new_txt_len("",0)); - qbs_cleanup(qbs_tmp_base,0); - *_FUNC_WHATISMYIP_SINGLE_I=*_FUNC_WHATISMYIP_SINGLE_I+ 1 ; - if ((-(*_FUNC_WHATISMYIP_SINGLE_I> 3 ))||new_error){ - goto exit_subfunc; - } - }else{ - if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_WHATISMYIP_STRING_D,qbr(*_FUNC_WHATISMYIP_SINGLE_I2))< 48 ))|(-(qbs_asc(_FUNC_WHATISMYIP_STRING_D,qbr(*_FUNC_WHATISMYIP_SINGLE_I2))> 57 )))){ - goto exit_subfunc; - }else{ - qbs_set(_FUNC_WHATISMYIP_STRING_X,qbs_add(_FUNC_WHATISMYIP_STRING_X,func_mid(_FUNC_WHATISMYIP_STRING_D,qbr(*_FUNC_WHATISMYIP_SINGLE_I2), 1 ,1))); - qbs_cleanup(qbs_tmp_base,0); - } - } - fornext_continue_24:; - } - fornext_exit_24:; - qbs_set(_FUNC_WHATISMYIP_STRING_WHATISMYIP,_FUNC_WHATISMYIP_STRING_D); - qbs_cleanup(qbs_tmp_base,0); - goto exit_subfunc; - } - } - } - } - dl_continue_22:; + sub__delay( 0.05E+0 ); + sub_get2(qbr(*_FUNC_WHATISMYIP_SINGLE_CLIENT),NULL,_FUNC_WHATISMYIP_STRING_A2,0); + qbs_cleanup(qbs_tmp_base,0); + qbs_set(_FUNC_WHATISMYIP_STRING_A,qbs_add(_FUNC_WHATISMYIP_STRING_A,_FUNC_WHATISMYIP_STRING_A2)); + qbs_cleanup(qbs_tmp_base,0); + if ((-(*_FUNC_WHATISMYIP_SINGLE_L== 0 ))||new_error){ + *_FUNC_WHATISMYIP_SINGLE_I=func_instr(NULL,_FUNC_WHATISMYIP_STRING_A,qbs_add(_FUNC_WHATISMYIP_STRING_E,_FUNC_WHATISMYIP_STRING_E),0); + qbs_cleanup(qbs_tmp_base,0); + if ((*_FUNC_WHATISMYIP_SINGLE_I)||new_error){ + *_FUNC_WHATISMYIP_SINGLE_I2=func_instr(qbr(*_FUNC_WHATISMYIP_SINGLE_I+ 4 ),_FUNC_WHATISMYIP_STRING_A,_FUNC_WHATISMYIP_STRING_E,1); + qbs_cleanup(qbs_tmp_base,0); + if ((*_FUNC_WHATISMYIP_SINGLE_I2)||new_error){ + *_FUNC_WHATISMYIP_SINGLE_L=func_val(qbs_add(qbs_new_txt_len("&H",2),func_mid(_FUNC_WHATISMYIP_STRING_A,qbr(*_FUNC_WHATISMYIP_SINGLE_I+ 4 ),qbr(*_FUNC_WHATISMYIP_SINGLE_I2-*_FUNC_WHATISMYIP_SINGLE_I- 2 ),1))); + qbs_cleanup(qbs_tmp_base,0); + qbs_set(_FUNC_WHATISMYIP_STRING_A,func_mid(_FUNC_WHATISMYIP_STRING_A,qbr(*_FUNC_WHATISMYIP_SINGLE_I+ 4 +*_FUNC_WHATISMYIP_SINGLE_I2-*_FUNC_WHATISMYIP_SINGLE_I- 2 ),NULL,0)); + qbs_cleanup(qbs_tmp_base,0); + } + } + }else{ + if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WHATISMYIP_STRING_A->len>=*_FUNC_WHATISMYIP_SINGLE_L)))||new_error){ + qbs_set(_FUNC_WHATISMYIP_STRING_WHATISMYIP,qbs_left(_FUNC_WHATISMYIP_STRING_A,qbr(*_FUNC_WHATISMYIP_SINGLE_L))); + qbs_cleanup(qbs_tmp_base,0); + sub_close(qbr(*_FUNC_WHATISMYIP_SINGLE_CLIENT),1); + goto exit_subfunc; + } + } + dl_continue_4:; }while((!(-(((float)((func_timer(NULL,0))))>((float)((*_FUNC_WHATISMYIP_SINGLE_T+ 5 ))))))&&(!new_error)); - dl_exit_22:; + dl_exit_4:; sub_close(qbr(*_FUNC_WHATISMYIP_SINGLE_CLIENT),1); exit_subfunc:; free_mem_lock(sf_mem_lock); - - //"free1.txt" + // include "free1.txt" qbs_free(_FUNC_WHATISMYIP_STRING_URL); qbs_free(_FUNC_WHATISMYIP_STRING_URL2); qbs_free(_FUNC_WHATISMYIP_STRING_E); @@ -275,9 +193,8 @@ qbs* WHATISMYIP(){ //changed name from FUNC_WHATISMYIP to WHATISMYIP qbs_free(_FUNC_WHATISMYIP_STRING_X); qbs_free(_FUNC_WHATISMYIP_STRING_A2); qbs_free(_FUNC_WHATISMYIP_STRING_A); - qbs_free(_FUNC_WHATISMYIP_STRING_D); - - + // end of "free1.txt" + if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_WHATISMYIP_STRING_WHATISMYIP);return _FUNC_WHATISMYIP_STRING_WHATISMYIP; diff --git a/internal/c/os.h b/internal/c/os.h index 85b27e76e..869121445 100644 --- a/internal/c/os.h +++ b/internal/c/os.h @@ -34,12 +34,16 @@ #error "Unknown system; refusing to build. Edit os.h if needed" #endif -#if defined(_WIN64) || defined(__x86_64__) || defined(__ppc64__) || defined(QB64_MACOSX) +#if defined(_WIN64) || defined(__x86_64__) || defined(__ppc64__) || defined(QB64_MACOSX) || defined(__aarch64__) #define QB64_64 #else #define QB64_32 #endif +#if !defined(i386) && !defined(__x86_64__) + #define QB64_NOT_X86 +#endif + /* common types (not quite an include guard, but allows an including * file to not have these included. * diff --git a/internal/c/parts/audio/conversion/os/osx/build.command b/internal/c/parts/audio/conversion/os/osx/build.command old mode 100644 new mode 100755 index f376f5474..42121347c --- a/internal/c/parts/audio/conversion/os/osx/build.command +++ b/internal/c/parts/audio/conversion/os/osx/build.command @@ -1,5 +1,5 @@ cd "$(dirname "$0")" -gcc -c ../../src/resample.c -o temp/resample.o +clang -c ../../src/resample.c -o temp/resample.o ar rcs src.a temp/resample.o echo "Press any key to continue..." Pause() diff --git a/internal/c/parts/audio/decode/mp3_mini/os/osx/build.command b/internal/c/parts/audio/decode/mp3_mini/os/osx/build.command old mode 100644 new mode 100755 index dabea0015..54115af58 --- a/internal/c/parts/audio/decode/mp3_mini/os/osx/build.command +++ b/internal/c/parts/audio/decode/mp3_mini/os/osx/build.command @@ -1,5 +1,5 @@ cd "$(dirname "$0")" -gcc -c ../../src/minimp3.c -o temp/minimp3.o +clang -c ../../src/minimp3.c -o temp/minimp3.o ar rcs src.a temp/minimp3.o echo "Press any key to continue..." Pause() diff --git a/internal/c/parts/audio/decode/mp3_mini/src/libc.h b/internal/c/parts/audio/decode/mp3_mini/src/libc.h index 80a600df5..0294972fd 100644 --- a/internal/c/parts/audio/decode/mp3_mini/src/libc.h +++ b/internal/c/parts/audio/decode/mp3_mini/src/libc.h @@ -54,10 +54,12 @@ typedef unsigned __int64 uint64_t; typedef signed __int64 int64_t; #else - typedef unsigned long long uint64_t; - typedef signed long long int64_t; - // typedef __uint64_t uint64_t; - // typedef __int64_t int64_t; + #ifndef UINT64_MAX + typedef unsigned long long uint64_t; + #endif + #ifndef INT64_MAX + typedef signed long long int64_t; + #endif #endif #endif diff --git a/internal/c/parts/audio/decode/ogg/os/osx/build.command b/internal/c/parts/audio/decode/ogg/os/osx/build.command old mode 100644 new mode 100755 index 3f6f4a6f6..7622b01d4 --- a/internal/c/parts/audio/decode/ogg/os/osx/build.command +++ b/internal/c/parts/audio/decode/ogg/os/osx/build.command @@ -1,5 +1,5 @@ cd "$(dirname "$0")" -gcc -c ../../src/stb_vorbis.c -o src.o +clang -c ../../src/stb_vorbis.c -o src.o echo "Press any key to continue..." Pause() { diff --git a/internal/c/parts/audio/decode/src.c b/internal/c/parts/audio/decode/src.c index 455de635d..49f2d2e32 100644 --- a/internal/c/parts/audio/decode/src.c +++ b/internal/c/parts/audio/decode/src.c @@ -244,6 +244,61 @@ got_seq: return handle; } +mem_block func__memsound(int32 i,int32 targetChannel){ + + static mem_block b; + + if (new_error) goto error; + if (i<=0) goto error; + + sndsetup(); + + static snd_struct *sn; + sn = (snd_struct*)list_get(snd_handles, i); + if (!sn){ + goto error; + } + if (!snd_allow_internal){ + if (sn->internal){ + goto error; + } + } + if (targetChannel<1 || targetChannel>sn->seq->channels) goto error; + + if (sn->lock_id){ + b.lock_offset=(ptrszint)sn->lock_offset; b.lock_id=sn->lock_id;//get existing tag + }else{ + new_mem_lock(); + mem_lock_tmp->type=5;//sound + b.lock_offset=(ptrszint)mem_lock_tmp; b.lock_id=mem_lock_id; + sn->lock_offset=(void*)mem_lock_tmp; sn->lock_id=mem_lock_id;//create tag + } + + if (targetChannel==1) { + b.offset=(ptrszint)sn->seq->data_left; + b.size=sn->seq->data_left_size; + } + + if (targetChannel==2) { + b.offset=(ptrszint)sn->seq->data_right; + b.size=sn->seq->data_right_size; + } + + b.type=0;//sn->bytes_per_pixel+128+1024+2048;//integer+unsigned+pixeltype + b.elementsize=sn->seq->bits_per_sample/8; + b.sound=i; + + return b; + error: + b.offset=0; + b.size=0; + b.lock_offset=(ptrszint)mem_lock_base; b.lock_id=1073741821;//set invalid lock + b.type=0; + b.elementsize=0; + b.sound=0; + return b; +} + void sub__sndplayfile(qbs *filename, int32 sync, double volume, int32 passed){ if (new_error) return; diff --git a/internal/c/parts/audio/out/android/Android.mk b/internal/c/parts/audio/out/android/Android.mk deleted file mode 100644 index 5d673bea2..000000000 --- a/internal/c/parts/audio/out/android/Android.mk +++ /dev/null @@ -1,105 +0,0 @@ -ifeq ("$(ROOTDIR)","") - LOCAL_PATH := $(call my-dir) -else - LOCAL_PATH := $(ROOTDIR) -endif - -ANALYZE ?= no -ANALYZE_OUTPUT?=/dev/null - -include $(CLEAR_VARS) -TARGET_ARCH_ABI ?=armeabi-v7a -LOCAL_LDLIBS := -llog -LOCAL_MODULE := openal -LOCAL_ARM_MODE := arm -CLANG_VERSION ?= 3.1 -ROOTDIR ?= $(LOCAL_PATH) -OPENAL_DIR := OpenAL -MODULE := openal -MODULE_DST := obj/local/$(TARGET_ARCH_ABI)/objs/openal -ifeq ("$(BINDIR)","") - BINDIR := $(abspath $(ROOTDIR)/../obj/local/$(TARGET_ARCH_ABI)/objs/ ) -else - BINDIR := $(abspath $(BINDIR) ) -endif - -ANDROID_NDK_ROOT=/Developer/DestinyCloudFist/android-ndk-r8b - -LOCAL_CFLAGS += -I$(ROOTDIR)/$(OPENAL_DIR) \ - -I$(ROOTDIR)/$(OPENAL_DIR)/include \ - -I$(ROOTDIR)/$(OPENAL_DIR)/OpenAL32/Include \ - -DAL_ALEXT_PROTOTYPES \ - -DANDROID \ - -fpic \ - -ffunction-sections \ - -funwind-tables \ - -fstack-protector \ - -fno-short-enums \ - -DHAVE_GCC_VISIBILITY \ - -O3 \ - -g \ - -LOCAL_LDLIBS += -Wl,--build-id -Bsymbolic -shared - -# Default to Fixed-point math -ifeq ($(TARGET_ARCH_ABI),armeabi) - # ARMv5, used fixed point math - LOCAL_CFLAGS += -marm -DOPENAL_FIXED_POINT -DOPENAL_FIXED_POINT_SHIFT=16 -endif - - -MAX_SOURCES_LOW ?= 4 -MAX_SOURCES_START ?= 8 -MAX_SOURCES_HIGH ?= 64 -LOCAL_CFLAGS += -DMAX_SOURCES_LOW=$(MAX_SOURCES_LOW) -DMAX_SOURCES_START=$(MAX_SOURCES_START) -DMAX_SOURCES_HIGH=$(MAX_SOURCES_HIGH) - -LOCAL_SRC_FILES := \ - $(OPENAL_DIR)/Alc/android.c \ - $(OPENAL_DIR)/OpenAL32/alAuxEffectSlot.c \ - $(OPENAL_DIR)/OpenAL32/alBuffer.c \ - $(OPENAL_DIR)/OpenAL32/alDatabuffer.c \ - $(OPENAL_DIR)/OpenAL32/alEffect.c \ - $(OPENAL_DIR)/OpenAL32/alError.c \ - $(OPENAL_DIR)/OpenAL32/alExtension.c \ - $(OPENAL_DIR)/OpenAL32/alFilter.c \ - $(OPENAL_DIR)/OpenAL32/alListener.c \ - $(OPENAL_DIR)/OpenAL32/alSource.c \ - $(OPENAL_DIR)/OpenAL32/alState.c \ - $(OPENAL_DIR)/OpenAL32/alThunk.c \ - $(OPENAL_DIR)/Alc/ALc.c \ - $(OPENAL_DIR)/Alc/alcConfig.c \ - $(OPENAL_DIR)/Alc/alcEcho.c \ - $(OPENAL_DIR)/Alc/alcModulator.c \ - $(OPENAL_DIR)/Alc/alcReverb.c \ - $(OPENAL_DIR)/Alc/alcRing.c \ - $(OPENAL_DIR)/Alc/alcThread.c \ - $(OPENAL_DIR)/Alc/ALu.c \ - $(OPENAL_DIR)/Alc/bs2b.c \ - $(OPENAL_DIR)/Alc/null.c \ - $(OPENAL_DIR)/Alc/panning.c \ - $(OPENAL_DIR)/Alc/mixer.c \ - $(OPENAL_DIR)/Alc/audiotrack.c \ - - -# If building for versions after FROYO -ifeq ($(POST_FROYO), yes) - LOCAL_CFLAGS += -DPOST_FROYO -I$(ANDROID_NDK_ROOT)/platforms/android-9/arch-arm/usr/include/ - LOCAL_LDLIBS += -ldl -L$(ANDROID_NDK_ROOT)/platforms/android-9/arch-arm/usr/lib/ - LOCAL_SRC_FILES += $(OPENAL_DIR)/Alc/opensles.c -endif - - - - - - - - - - - - - - -include $(BUILD_SHARED_LIBRARY) - diff --git a/internal/c/parts/audio/out/android/Application.mk b/internal/c/parts/audio/out/android/Application.mk deleted file mode 100644 index fab0d7e5d..000000000 --- a/internal/c/parts/audio/out/android/Application.mk +++ /dev/null @@ -1,3 +0,0 @@ -APP_ABI := $(TARGET_ARCH_ABI) -# $(warning APP_ABI $(APP_ABI)) -# $(warning LOCAL_ARM_NEON $(LOCAL_ARM_NEON)) diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/al.h b/internal/c/parts/audio/out/android/OpenAL/Alc/AL/al.h deleted file mode 100644 index e084b3ed3..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/al.h +++ /dev/null @@ -1,825 +0,0 @@ -#ifndef AL_AL_H -#define AL_AL_H - -#ifdef ANDROID -#include -#ifndef LOGI -#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,"OpenAL",__VA_ARGS__) -#endif -#ifndef LOGE -#define LOGE(...) __android_log_print(ANDROID_LOG_ERROR,"OpenAL",__VA_ARGS__) -#endif -#endif - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define AL_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define AL_API __declspec(dllexport) - #else - #define AL_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define AL_API __attribute__((visibility("protected"))) - #else - #define AL_API extern - #endif -#endif - -#if defined(_WIN32) - #define AL_APIENTRY __cdecl -#else - #define AL_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The OPENAL, ALAPI, ALAPIENTRY, AL_INVALID, AL_ILLEGAL_ENUM, and - * AL_ILLEGAL_COMMAND macros are deprecated, but are included for - * applications porting code from AL 1.0 - */ -#define OPENAL -#define ALAPI AL_API -#define ALAPIENTRY AL_APIENTRY -#define AL_INVALID (-1) -#define AL_ILLEGAL_ENUM AL_INVALID_ENUM -#define AL_ILLEGAL_COMMAND AL_INVALID_OPERATION - -#define AL_VERSION_1_0 -#define AL_VERSION_1_1 - - -/** 8-bit boolean */ -typedef char ALboolean; - -/** character */ -typedef char ALchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALsizei; - -/** enumerated 32-bit value */ -typedef int ALenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALdouble; - -#ifdef OPENAL_FIXED_POINT -/* Apportable tries to define int64_t and int32_t if it thinks it is needed. - * But this is breaking in a complex project involving both pure C and C++ - * something is triggering redefinition errors. The workaround seems to be just using stdint.h. - */ -#include -/** Types and Macros for fixed-point math */ -#ifndef INT64_MAX -typedef long long int64_t; -#define INT64_MAX 9223372036854775807LL - -#endif -#ifndef INT32_MAX -typedef int int32_t; -#define INT32_MAX 2147483647 -#endif - -// FIXME(apportable) make this int32_t -typedef int64_t ALfp; -typedef int64_t ALdfp; - -#define ONE (1<=0 ? 0.5 : -0.5))) -#define ALfp2float(x) ((float)(x) / (1<=0 ? 0.5 : -0.5))) -#define ALdfp2double(x) ((double)(x) / (1<> OPENAL_FIXED_POINT_SHIFT)) - -#define int2ALdfp(x) ((ALdfp)(x) << OPENAL_FIXED_POINT_SHIFT) -#define ALdfp2int(x) ((ALint)((x) >> OPENAL_FIXED_POINT_SHIFT)) - -#define ALfpMult(x,y) ((ALfp)((((int64_t)(x))*((int64_t)(y)))>>OPENAL_FIXED_POINT_SHIFT)) -#define ALfpDiv(x,y) ((ALfp)(((int64_t)(x) << OPENAL_FIXED_POINT_SHIFT) / (y))) - -#define ALdfpMult(x,y) ALfpMult(x,y) -#define ALdfpDiv(x,y) ALfpDiv(x,y) - -#define __isnan(x) (0) -#define __cos(x) (float2ALfp(cos(ALfp2float(x)))) -#define __sin(x) (float2ALfp(sin(ALfp2float(x)))) -#define __log10(x) (float2ALfp(log10(ALfp2float(x)))) -#define __atan(x) (float2ALfp(atan(ALfp2float(x)))) - -#define toALfpConst(x) ((x)*(1< Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(ANDROID) -/* - * OpenAL extension for suspend/resume of audio throughout application lifecycle - */ -ALC_API void ALC_APIENTRY alcSuspend( void ); -ALC_API void ALC_APIENTRY alcResume( void ); -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/alext.h b/internal/c/parts/audio/out/android/OpenAL/Alc/AL/alext.h deleted file mode 100644 index f3c7bcae8..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/alext.h +++ /dev/null @@ -1,165 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2008 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifndef AL_ALEXT_H -#define AL_ALEXT_H - -#include - -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef AL_LOKI_IMA_ADPCM_format -#define AL_LOKI_IMA_ADPCM_format 1 -#define AL_FORMAT_IMA_ADPCM_MONO16_EXT 0x10000 -#define AL_FORMAT_IMA_ADPCM_STEREO16_EXT 0x10001 -#endif - -#ifndef AL_LOKI_WAVE_format -#define AL_LOKI_WAVE_format 1 -#define AL_FORMAT_WAVE_EXT 0x10002 -#endif - -#ifndef AL_EXT_vorbis -#define AL_EXT_vorbis 1 -#define AL_FORMAT_VORBIS_EXT 0x10003 -#endif - -#ifndef AL_LOKI_quadriphonic -#define AL_LOKI_quadriphonic 1 -#define AL_FORMAT_QUAD8_LOKI 0x10004 -#define AL_FORMAT_QUAD16_LOKI 0x10005 -#endif - -#ifndef AL_EXT_float32 -#define AL_EXT_float32 1 -#define AL_FORMAT_MONO_FLOAT32 0x10010 -#define AL_FORMAT_STEREO_FLOAT32 0x10011 -#endif - -#ifndef AL_EXT_double -#define AL_EXT_double 1 -#define AL_FORMAT_MONO_DOUBLE_EXT 0x10012 -#define AL_FORMAT_STEREO_DOUBLE_EXT 0x10013 -#endif - -#ifndef ALC_LOKI_audio_channel -#define ALC_LOKI_audio_channel 1 -#define ALC_CHAN_MAIN_LOKI 0x500001 -#define ALC_CHAN_PCM_LOKI 0x500002 -#define ALC_CHAN_CD_LOKI 0x500003 -#endif - -#ifndef ALC_ENUMERATE_ALL_EXT -#define ALC_ENUMERATE_ALL_EXT 1 -#define ALC_DEFAULT_ALL_DEVICES_SPECIFIER 0x1012 -#define ALC_ALL_DEVICES_SPECIFIER 0x1013 -#endif - -#ifndef AL_EXT_MCFORMATS -#define AL_EXT_MCFORMATS 1 -#define AL_FORMAT_QUAD8 0x1204 -#define AL_FORMAT_QUAD16 0x1205 -#define AL_FORMAT_QUAD32 0x1206 -#define AL_FORMAT_REAR8 0x1207 -#define AL_FORMAT_REAR16 0x1208 -#define AL_FORMAT_REAR32 0x1209 -#define AL_FORMAT_51CHN8 0x120A -#define AL_FORMAT_51CHN16 0x120B -#define AL_FORMAT_51CHN32 0x120C -#define AL_FORMAT_61CHN8 0x120D -#define AL_FORMAT_61CHN16 0x120E -#define AL_FORMAT_61CHN32 0x120F -#define AL_FORMAT_71CHN8 0x1210 -#define AL_FORMAT_71CHN16 0x1211 -#define AL_FORMAT_71CHN32 0x1212 -#endif - -#ifndef AL_EXT_MULAW_MCFORMATS -#define AL_EXT_MULAW_MCFORMATS 1 -#define AL_FORMAT_MONO_MULAW 0x10014 -#define AL_FORMAT_STEREO_MULAW 0x10015 -#define AL_FORMAT_QUAD_MULAW 0x10021 -#define AL_FORMAT_REAR_MULAW 0x10022 -#define AL_FORMAT_51CHN_MULAW 0x10023 -#define AL_FORMAT_61CHN_MULAW 0x10024 -#define AL_FORMAT_71CHN_MULAW 0x10025 -#endif - -#ifndef AL_EXT_IMA4 -#define AL_EXT_IMA4 1 -#define AL_FORMAT_MONO_IMA4 0x1300 -#define AL_FORMAT_STEREO_IMA4 0x1301 -#endif - -#ifndef AL_EXT_STATIC_BUFFER -#define AL_EXT_STATIC_BUFFER 1 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERDATASTATICPROC)(const ALint,ALenum,ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferDataStatic(const ALint buffer, ALenum format, ALvoid *data, ALsizei len, ALsizei freq); -#endif -#endif - -#ifndef ALC_EXT_EFX -#define ALC_EXT_EFX 1 -#include "efx.h" -#endif - -#ifndef ALC_EXT_disconnect -#define ALC_EXT_disconnect 1 -#define ALC_CONNECTED 0x313 -#endif - -#ifndef ALC_EXT_thread_local_context -#define ALC_EXT_thread_local_context 1 -typedef ALCboolean (ALC_APIENTRY*PFNALCSETTHREADCONTEXTPROC)(ALCcontext *context); -typedef ALCcontext* (ALC_APIENTRY*PFNALCGETTHREADCONTEXTPROC)(void); -#ifdef AL_ALEXT_PROTOTYPES -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context); -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void); -#endif -#endif - -#ifndef AL_EXT_source_distance_model -#define AL_EXT_source_distance_model 1 -#define AL_SOURCE_DISTANCE_MODEL 0x200 -#endif - -#ifndef AL_SOFT_buffer_sub_data -#define AL_SOFT_buffer_sub_data 1 -#define AL_BYTE_RW_OFFSETS_SOFT 0x1031 -#define AL_SAMPLE_RW_OFFSETS_SOFT 0x1032 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERSUBDATASOFTPROC)(ALuint,ALenum,const ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length); -#endif -#endif - -#ifndef AL_SOFT_loop_points -#define AL_SOFT_loop_points 1 -#define AL_LOOP_POINTS_SOFT 0x2015 -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/efx-creative.h b/internal/c/parts/audio/out/android/OpenAL/Alc/AL/efx-creative.h deleted file mode 100644 index 0a04c982e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/efx-creative.h +++ /dev/null @@ -1,3 +0,0 @@ -/* The tokens that would be defined here are already defined in efx.h. This - * empty file is here to provide compatibility with Windows-based projects - * that would include it. */ diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/efx.h b/internal/c/parts/audio/out/android/OpenAL/Alc/AL/efx.h deleted file mode 100644 index 0ccef95d6..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/efx.h +++ /dev/null @@ -1,758 +0,0 @@ -#ifndef AL_EFX_H -#define AL_EFX_H - - -#ifdef __cplusplus -extern "C" { -#endif - -#define ALC_EXT_EFX_NAME "ALC_EXT_EFX" - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - - -/* Listener properties. */ -#define AL_METERS_PER_UNIT 0x20004 - -/* Source properties. */ -#define AL_DIRECT_FILTER 0x20005 -#define AL_AUXILIARY_SEND_FILTER 0x20006 -#define AL_AIR_ABSORPTION_FACTOR 0x20007 -#define AL_ROOM_ROLLOFF_FACTOR 0x20008 -#define AL_CONE_OUTER_GAINHF 0x20009 -#define AL_DIRECT_FILTER_GAINHF_AUTO 0x2000A -#define AL_AUXILIARY_SEND_FILTER_GAIN_AUTO 0x2000B -#define AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO 0x2000C - - -/* Effect properties. */ - -/* Reverb effect parameters */ -#define AL_REVERB_DENSITY 0x0001 -#define AL_REVERB_DIFFUSION 0x0002 -#define AL_REVERB_GAIN 0x0003 -#define AL_REVERB_GAINHF 0x0004 -#define AL_REVERB_DECAY_TIME 0x0005 -#define AL_REVERB_DECAY_HFRATIO 0x0006 -#define AL_REVERB_REFLECTIONS_GAIN 0x0007 -#define AL_REVERB_REFLECTIONS_DELAY 0x0008 -#define AL_REVERB_LATE_REVERB_GAIN 0x0009 -#define AL_REVERB_LATE_REVERB_DELAY 0x000A -#define AL_REVERB_AIR_ABSORPTION_GAINHF 0x000B -#define AL_REVERB_ROOM_ROLLOFF_FACTOR 0x000C -#define AL_REVERB_DECAY_HFLIMIT 0x000D - -/* EAX Reverb effect parameters */ -#define AL_EAXREVERB_DENSITY 0x0001 -#define AL_EAXREVERB_DIFFUSION 0x0002 -#define AL_EAXREVERB_GAIN 0x0003 -#define AL_EAXREVERB_GAINHF 0x0004 -#define AL_EAXREVERB_GAINLF 0x0005 -#define AL_EAXREVERB_DECAY_TIME 0x0006 -#define AL_EAXREVERB_DECAY_HFRATIO 0x0007 -#define AL_EAXREVERB_DECAY_LFRATIO 0x0008 -#define AL_EAXREVERB_REFLECTIONS_GAIN 0x0009 -#define AL_EAXREVERB_REFLECTIONS_DELAY 0x000A -#define AL_EAXREVERB_REFLECTIONS_PAN 0x000B -#define AL_EAXREVERB_LATE_REVERB_GAIN 0x000C -#define AL_EAXREVERB_LATE_REVERB_DELAY 0x000D -#define AL_EAXREVERB_LATE_REVERB_PAN 0x000E -#define AL_EAXREVERB_ECHO_TIME 0x000F -#define AL_EAXREVERB_ECHO_DEPTH 0x0010 -#define AL_EAXREVERB_MODULATION_TIME 0x0011 -#define AL_EAXREVERB_MODULATION_DEPTH 0x0012 -#define AL_EAXREVERB_AIR_ABSORPTION_GAINHF 0x0013 -#define AL_EAXREVERB_HFREFERENCE 0x0014 -#define AL_EAXREVERB_LFREFERENCE 0x0015 -#define AL_EAXREVERB_ROOM_ROLLOFF_FACTOR 0x0016 -#define AL_EAXREVERB_DECAY_HFLIMIT 0x0017 - -/* Chorus effect parameters */ -#define AL_CHORUS_WAVEFORM 0x0001 -#define AL_CHORUS_PHASE 0x0002 -#define AL_CHORUS_RATE 0x0003 -#define AL_CHORUS_DEPTH 0x0004 -#define AL_CHORUS_FEEDBACK 0x0005 -#define AL_CHORUS_DELAY 0x0006 - -/* Distortion effect parameters */ -#define AL_DISTORTION_EDGE 0x0001 -#define AL_DISTORTION_GAIN 0x0002 -#define AL_DISTORTION_LOWPASS_CUTOFF 0x0003 -#define AL_DISTORTION_EQCENTER 0x0004 -#define AL_DISTORTION_EQBANDWIDTH 0x0005 - -/* Echo effect parameters */ -#define AL_ECHO_DELAY 0x0001 -#define AL_ECHO_LRDELAY 0x0002 -#define AL_ECHO_DAMPING 0x0003 -#define AL_ECHO_FEEDBACK 0x0004 -#define AL_ECHO_SPREAD 0x0005 - -/* Flanger effect parameters */ -#define AL_FLANGER_WAVEFORM 0x0001 -#define AL_FLANGER_PHASE 0x0002 -#define AL_FLANGER_RATE 0x0003 -#define AL_FLANGER_DEPTH 0x0004 -#define AL_FLANGER_FEEDBACK 0x0005 -#define AL_FLANGER_DELAY 0x0006 - -/* Frequency shifter effect parameters */ -#define AL_FREQUENCY_SHIFTER_FREQUENCY 0x0001 -#define AL_FREQUENCY_SHIFTER_LEFT_DIRECTION 0x0002 -#define AL_FREQUENCY_SHIFTER_RIGHT_DIRECTION 0x0003 - -/* Vocal morpher effect parameters */ -#define AL_VOCAL_MORPHER_PHONEMEA 0x0001 -#define AL_VOCAL_MORPHER_PHONEMEA_COARSE_TUNING 0x0002 -#define AL_VOCAL_MORPHER_PHONEMEB 0x0003 -#define AL_VOCAL_MORPHER_PHONEMEB_COARSE_TUNING 0x0004 -#define AL_VOCAL_MORPHER_WAVEFORM 0x0005 -#define AL_VOCAL_MORPHER_RATE 0x0006 - -/* Pitchshifter effect parameters */ -#define AL_PITCH_SHIFTER_COARSE_TUNE 0x0001 -#define AL_PITCH_SHIFTER_FINE_TUNE 0x0002 - -/* Ringmodulator effect parameters */ -#define AL_RING_MODULATOR_FREQUENCY 0x0001 -#define AL_RING_MODULATOR_HIGHPASS_CUTOFF 0x0002 -#define AL_RING_MODULATOR_WAVEFORM 0x0003 - -/* Autowah effect parameters */ -#define AL_AUTOWAH_ATTACK_TIME 0x0001 -#define AL_AUTOWAH_RELEASE_TIME 0x0002 -#define AL_AUTOWAH_RESONANCE 0x0003 -#define AL_AUTOWAH_PEAK_GAIN 0x0004 - -/* Compressor effect parameters */ -#define AL_COMPRESSOR_ONOFF 0x0001 - -/* Equalizer effect parameters */ -#define AL_EQUALIZER_LOW_GAIN 0x0001 -#define AL_EQUALIZER_LOW_CUTOFF 0x0002 -#define AL_EQUALIZER_MID1_GAIN 0x0003 -#define AL_EQUALIZER_MID1_CENTER 0x0004 -#define AL_EQUALIZER_MID1_WIDTH 0x0005 -#define AL_EQUALIZER_MID2_GAIN 0x0006 -#define AL_EQUALIZER_MID2_CENTER 0x0007 -#define AL_EQUALIZER_MID2_WIDTH 0x0008 -#define AL_EQUALIZER_HIGH_GAIN 0x0009 -#define AL_EQUALIZER_HIGH_CUTOFF 0x000A - -/* Effect type */ -#define AL_EFFECT_FIRST_PARAMETER 0x0000 -#define AL_EFFECT_LAST_PARAMETER 0x8000 -#define AL_EFFECT_TYPE 0x8001 - -/* Effect types, used with the AL_EFFECT_TYPE property */ -#define AL_EFFECT_NULL 0x0000 -#define AL_EFFECT_REVERB 0x0001 -#define AL_EFFECT_CHORUS 0x0002 -#define AL_EFFECT_DISTORTION 0x0003 -#define AL_EFFECT_ECHO 0x0004 -#define AL_EFFECT_FLANGER 0x0005 -#define AL_EFFECT_FREQUENCY_SHIFTER 0x0006 -#define AL_EFFECT_VOCAL_MORPHER 0x0007 -#define AL_EFFECT_PITCH_SHIFTER 0x0008 -#define AL_EFFECT_RING_MODULATOR 0x0009 -#define AL_EFFECT_AUTOWAH 0x000A -#define AL_EFFECT_COMPRESSOR 0x000B -#define AL_EFFECT_EQUALIZER 0x000C -#define AL_EFFECT_EAXREVERB 0x8000 - -/* Auxiliary Effect Slot properties. */ -#define AL_EFFECTSLOT_EFFECT 0x0001 -#define AL_EFFECTSLOT_GAIN 0x0002 -#define AL_EFFECTSLOT_AUXILIARY_SEND_AUTO 0x0003 - -/* NULL Auxiliary Slot ID to disable a source send. */ -#define AL_EFFECTSLOT_NULL 0x0000 - - -/* Filter properties. */ - -/* Lowpass filter parameters */ -#define AL_LOWPASS_GAIN 0x0001 -#define AL_LOWPASS_GAINHF 0x0002 - -/* Highpass filter parameters */ -#define AL_HIGHPASS_GAIN 0x0001 -#define AL_HIGHPASS_GAINLF 0x0002 - -/* Bandpass filter parameters */ -#define AL_BANDPASS_GAIN 0x0001 -#define AL_BANDPASS_GAINLF 0x0002 -#define AL_BANDPASS_GAINHF 0x0003 - -/* Filter type */ -#define AL_FILTER_FIRST_PARAMETER 0x0000 -#define AL_FILTER_LAST_PARAMETER 0x8000 -#define AL_FILTER_TYPE 0x8001 - -/* Filter types, used with the AL_FILTER_TYPE property */ -#define AL_FILTER_NULL 0x0000 -#define AL_FILTER_LOWPASS 0x0001 -#define AL_FILTER_HIGHPASS 0x0002 -#define AL_FILTER_BANDPASS 0x0003 - - -/* Effect object function types. */ -typedef void (AL_APIENTRY *LPALGENEFFECTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEEFFECTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISEFFECT)(ALuint); -typedef void (AL_APIENTRY *LPALEFFECTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALEFFECTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALEFFECTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTFV)(ALuint, ALenum, ALfloat*); - -/* Filter object function types. */ -typedef void (AL_APIENTRY *LPALGENFILTERS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEFILTERS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISFILTER)(ALuint); -typedef void (AL_APIENTRY *LPALFILTERI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALFILTERF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALFILTERFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERFV)(ALuint, ALenum, ALfloat*); - -/* Auxiliary Effect Slot object function types. */ -typedef void (AL_APIENTRY *LPALGENAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISAUXILIARYEFFECTSLOT)(ALuint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); - -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects); -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects); -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect); -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters); -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters); -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter); -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -#endif - -/* Filter ranges and defaults. */ - -/* Lowpass filter */ -#define LOWPASS_MIN_GAIN (0.0f) -#define LOWPASS_MAX_GAIN (1.0f) -#define LOWPASS_DEFAULT_GAIN (1.0f) - -#define LOWPASS_MIN_GAINHF (0.0f) -#define LOWPASS_MAX_GAINHF (1.0f) -#define LOWPASS_DEFAULT_GAINHF (1.0f) - -/* Highpass filter */ -#define HIGHPASS_MIN_GAIN (0.0f) -#define HIGHPASS_MAX_GAIN (1.0f) -#define HIGHPASS_DEFAULT_GAIN (1.0f) - -#define HIGHPASS_MIN_GAINLF (0.0f) -#define HIGHPASS_MAX_GAINLF (1.0f) -#define HIGHPASS_DEFAULT_GAINLF (1.0f) - -/* Bandpass filter */ -#define BANDPASS_MIN_GAIN (0.0f) -#define BANDPASS_MAX_GAIN (1.0f) -#define BANDPASS_DEFAULT_GAIN (1.0f) - -#define BANDPASS_MIN_GAINHF (0.0f) -#define BANDPASS_MAX_GAINHF (1.0f) -#define BANDPASS_DEFAULT_GAINHF (1.0f) - -#define BANDPASS_MIN_GAINLF (0.0f) -#define BANDPASS_MAX_GAINLF (1.0f) -#define BANDPASS_DEFAULT_GAINLF (1.0f) - - -/* Effect parameter ranges and defaults. */ - -/* Standard reverb effect */ -#define AL_REVERB_MIN_DENSITY (0.0f) -#define AL_REVERB_MAX_DENSITY (1.0f) -#define AL_REVERB_DEFAULT_DENSITY (1.0f) - -#define AL_REVERB_MIN_DIFFUSION (0.0f) -#define AL_REVERB_MAX_DIFFUSION (1.0f) -#define AL_REVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_REVERB_MIN_GAIN (0.0f) -#define AL_REVERB_MAX_GAIN (1.0f) -#define AL_REVERB_DEFAULT_GAIN (0.32f) - -#define AL_REVERB_MIN_GAINHF (0.0f) -#define AL_REVERB_MAX_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_GAINHF (0.89f) - -#define AL_REVERB_MIN_DECAY_TIME (0.1f) -#define AL_REVERB_MAX_DECAY_TIME (20.0f) -#define AL_REVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_REVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_REVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_REVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_REVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_REVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_REVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_REVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_REVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_REVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_REVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_REVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_REVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_REVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_REVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_REVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_REVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_REVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* EAX reverb effect */ -#define AL_EAXREVERB_MIN_DENSITY (0.0f) -#define AL_EAXREVERB_MAX_DENSITY (1.0f) -#define AL_EAXREVERB_DEFAULT_DENSITY (1.0f) - -#define AL_EAXREVERB_MIN_DIFFUSION (0.0f) -#define AL_EAXREVERB_MAX_DIFFUSION (1.0f) -#define AL_EAXREVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_EAXREVERB_MIN_GAIN (0.0f) -#define AL_EAXREVERB_MAX_GAIN (1.0f) -#define AL_EAXREVERB_DEFAULT_GAIN (0.32f) - -#define AL_EAXREVERB_MIN_GAINHF (0.0f) -#define AL_EAXREVERB_MAX_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINHF (0.89f) - -#define AL_EAXREVERB_MIN_GAINLF (0.0f) -#define AL_EAXREVERB_MAX_GAINLF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINLF (1.0f) - -#define AL_EAXREVERB_MIN_DECAY_TIME (0.1f) -#define AL_EAXREVERB_MAX_DECAY_TIME (20.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_EAXREVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_EAXREVERB_MIN_DECAY_LFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_LFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_LFRATIO (1.0f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_ECHO_TIME (0.075f) -#define AL_EAXREVERB_MAX_ECHO_TIME (0.25f) -#define AL_EAXREVERB_DEFAULT_ECHO_TIME (0.25f) - -#define AL_EAXREVERB_MIN_ECHO_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_ECHO_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_ECHO_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_MODULATION_TIME (0.04f) -#define AL_EAXREVERB_MAX_MODULATION_TIME (4.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_TIME (0.25f) - -#define AL_EAXREVERB_MIN_MODULATION_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_MODULATION_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_EAXREVERB_MIN_HFREFERENCE (1000.0f) -#define AL_EAXREVERB_MAX_HFREFERENCE (20000.0f) -#define AL_EAXREVERB_DEFAULT_HFREFERENCE (5000.0f) - -#define AL_EAXREVERB_MIN_LFREFERENCE (20.0f) -#define AL_EAXREVERB_MAX_LFREFERENCE (1000.0f) -#define AL_EAXREVERB_DEFAULT_LFREFERENCE (250.0f) - -#define AL_EAXREVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_EAXREVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_EAXREVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_EAXREVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* Chorus effect */ -#define AL_CHORUS_WAVEFORM_SINUSOID (0) -#define AL_CHORUS_WAVEFORM_TRIANGLE (1) - -#define AL_CHORUS_MIN_WAVEFORM (0) -#define AL_CHORUS_MAX_WAVEFORM (1) -#define AL_CHORUS_DEFAULT_WAVEFORM (1) - -#define AL_CHORUS_MIN_PHASE (-180) -#define AL_CHORUS_MAX_PHASE (180) -#define AL_CHORUS_DEFAULT_PHASE (90) - -#define AL_CHORUS_MIN_RATE (0.0f) -#define AL_CHORUS_MAX_RATE (10.0f) -#define AL_CHORUS_DEFAULT_RATE (1.1f) - -#define AL_CHORUS_MIN_DEPTH (0.0f) -#define AL_CHORUS_MAX_DEPTH (1.0f) -#define AL_CHORUS_DEFAULT_DEPTH (0.1f) - -#define AL_CHORUS_MIN_FEEDBACK (-1.0f) -#define AL_CHORUS_MAX_FEEDBACK (1.0f) -#define AL_CHORUS_DEFAULT_FEEDBACK (0.25f) - -#define AL_CHORUS_MIN_DELAY (0.0f) -#define AL_CHORUS_MAX_DELAY (0.016f) -#define AL_CHORUS_DEFAULT_DELAY (0.016f) - -/* Distortion effect */ -#define AL_DISTORTION_MIN_EDGE (0.0f) -#define AL_DISTORTION_MAX_EDGE (1.0f) -#define AL_DISTORTION_DEFAULT_EDGE (0.2f) - -#define AL_DISTORTION_MIN_GAIN (0.01f) -#define AL_DISTORTION_MAX_GAIN (1.0f) -#define AL_DISTORTION_DEFAULT_GAIN (0.05f) - -#define AL_DISTORTION_MIN_LOWPASS_CUTOFF (80.0f) -#define AL_DISTORTION_MAX_LOWPASS_CUTOFF (24000.0f) -#define AL_DISTORTION_DEFAULT_LOWPASS_CUTOFF (8000.0f) - -#define AL_DISTORTION_MIN_EQCENTER (80.0f) -#define AL_DISTORTION_MAX_EQCENTER (24000.0f) -#define AL_DISTORTION_DEFAULT_EQCENTER (3600.0f) - -#define AL_DISTORTION_MIN_EQBANDWIDTH (80.0f) -#define AL_DISTORTION_MAX_EQBANDWIDTH (24000.0f) -#define AL_DISTORTION_DEFAULT_EQBANDWIDTH (3600.0f) - -/* Echo effect */ -#define AL_ECHO_MIN_DELAY (0.0f) -#define AL_ECHO_MAX_DELAY (0.207f) -#define AL_ECHO_DEFAULT_DELAY (0.1f) - -#define AL_ECHO_MIN_LRDELAY (0.0f) -#define AL_ECHO_MAX_LRDELAY (0.404f) -#define AL_ECHO_DEFAULT_LRDELAY (0.1f) - -#define AL_ECHO_MIN_DAMPING (0.0f) -#define AL_ECHO_MAX_DAMPING (0.99f) -#define AL_ECHO_DEFAULT_DAMPING (0.5f) - -#define AL_ECHO_MIN_FEEDBACK (0.0f) -#define AL_ECHO_MAX_FEEDBACK (1.0f) -#define AL_ECHO_DEFAULT_FEEDBACK (0.5f) - -#define AL_ECHO_MIN_SPREAD (-1.0f) -#define AL_ECHO_MAX_SPREAD (1.0f) -#define AL_ECHO_DEFAULT_SPREAD (-1.0f) - -/* Flanger effect */ -#define AL_FLANGER_WAVEFORM_SINUSOID (0) -#define AL_FLANGER_WAVEFORM_TRIANGLE (1) - -#define AL_FLANGER_MIN_WAVEFORM (0) -#define AL_FLANGER_MAX_WAVEFORM (1) -#define AL_FLANGER_DEFAULT_WAVEFORM (1) - -#define AL_FLANGER_MIN_PHASE (-180) -#define AL_FLANGER_MAX_PHASE (180) -#define AL_FLANGER_DEFAULT_PHASE (0) - -#define AL_FLANGER_MIN_RATE (0.0f) -#define AL_FLANGER_MAX_RATE (10.0f) -#define AL_FLANGER_DEFAULT_RATE (0.27f) - -#define AL_FLANGER_MIN_DEPTH (0.0f) -#define AL_FLANGER_MAX_DEPTH (1.0f) -#define AL_FLANGER_DEFAULT_DEPTH (1.0f) - -#define AL_FLANGER_MIN_FEEDBACK (-1.0f) -#define AL_FLANGER_MAX_FEEDBACK (1.0f) -#define AL_FLANGER_DEFAULT_FEEDBACK (-0.5f) - -#define AL_FLANGER_MIN_DELAY (0.0f) -#define AL_FLANGER_MAX_DELAY (0.004f) -#define AL_FLANGER_DEFAULT_DELAY (0.002f) - -/* Frequency shifter effect */ -#define AL_FREQUENCY_SHIFTER_MIN_FREQUENCY (0.0f) -#define AL_FREQUENCY_SHIFTER_MAX_FREQUENCY (24000.0f) -#define AL_FREQUENCY_SHIFTER_DEFAULT_FREQUENCY (0.0f) - -#define AL_FREQUENCY_SHIFTER_MIN_LEFT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_LEFT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_LEFT_DIRECTION (0) - -#define AL_FREQUENCY_SHIFTER_DIRECTION_DOWN (0) -#define AL_FREQUENCY_SHIFTER_DIRECTION_UP (1) -#define AL_FREQUENCY_SHIFTER_DIRECTION_OFF (2) - -#define AL_FREQUENCY_SHIFTER_MIN_RIGHT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_RIGHT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_RIGHT_DIRECTION (0) - -/* Vocal morpher effect */ -#define AL_VOCAL_MORPHER_MIN_PHONEMEA (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEA_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB (10) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_PHONEME_A (0) -#define AL_VOCAL_MORPHER_PHONEME_E (1) -#define AL_VOCAL_MORPHER_PHONEME_I (2) -#define AL_VOCAL_MORPHER_PHONEME_O (3) -#define AL_VOCAL_MORPHER_PHONEME_U (4) -#define AL_VOCAL_MORPHER_PHONEME_AA (5) -#define AL_VOCAL_MORPHER_PHONEME_AE (6) -#define AL_VOCAL_MORPHER_PHONEME_AH (7) -#define AL_VOCAL_MORPHER_PHONEME_AO (8) -#define AL_VOCAL_MORPHER_PHONEME_EH (9) -#define AL_VOCAL_MORPHER_PHONEME_ER (10) -#define AL_VOCAL_MORPHER_PHONEME_IH (11) -#define AL_VOCAL_MORPHER_PHONEME_IY (12) -#define AL_VOCAL_MORPHER_PHONEME_UH (13) -#define AL_VOCAL_MORPHER_PHONEME_UW (14) -#define AL_VOCAL_MORPHER_PHONEME_B (15) -#define AL_VOCAL_MORPHER_PHONEME_D (16) -#define AL_VOCAL_MORPHER_PHONEME_F (17) -#define AL_VOCAL_MORPHER_PHONEME_G (18) -#define AL_VOCAL_MORPHER_PHONEME_J (19) -#define AL_VOCAL_MORPHER_PHONEME_K (20) -#define AL_VOCAL_MORPHER_PHONEME_L (21) -#define AL_VOCAL_MORPHER_PHONEME_M (22) -#define AL_VOCAL_MORPHER_PHONEME_N (23) -#define AL_VOCAL_MORPHER_PHONEME_P (24) -#define AL_VOCAL_MORPHER_PHONEME_R (25) -#define AL_VOCAL_MORPHER_PHONEME_S (26) -#define AL_VOCAL_MORPHER_PHONEME_T (27) -#define AL_VOCAL_MORPHER_PHONEME_V (28) -#define AL_VOCAL_MORPHER_PHONEME_Z (29) - -#define AL_VOCAL_MORPHER_WAVEFORM_SINUSOID (0) -#define AL_VOCAL_MORPHER_WAVEFORM_TRIANGLE (1) -#define AL_VOCAL_MORPHER_WAVEFORM_SAWTOOTH (2) - -#define AL_VOCAL_MORPHER_MIN_WAVEFORM (0) -#define AL_VOCAL_MORPHER_MAX_WAVEFORM (2) -#define AL_VOCAL_MORPHER_DEFAULT_WAVEFORM (0) - -#define AL_VOCAL_MORPHER_MIN_RATE (0.0f) -#define AL_VOCAL_MORPHER_MAX_RATE (10.0f) -#define AL_VOCAL_MORPHER_DEFAULT_RATE (1.41f) - -/* Pitch shifter effect */ -#define AL_PITCH_SHIFTER_MIN_COARSE_TUNE (-12) -#define AL_PITCH_SHIFTER_MAX_COARSE_TUNE (12) -#define AL_PITCH_SHIFTER_DEFAULT_COARSE_TUNE (12) - -#define AL_PITCH_SHIFTER_MIN_FINE_TUNE (-50) -#define AL_PITCH_SHIFTER_MAX_FINE_TUNE (50) -#define AL_PITCH_SHIFTER_DEFAULT_FINE_TUNE (0) - -/* Ring modulator effect */ -#define AL_RING_MODULATOR_MIN_FREQUENCY (0.0f) -#define AL_RING_MODULATOR_MAX_FREQUENCY (8000.0f) -#define AL_RING_MODULATOR_DEFAULT_FREQUENCY (440.0f) - -#define AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF (0.0f) -#define AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF (24000.0f) -#define AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF (800.0f) - -#define AL_RING_MODULATOR_SINUSOID (0) -#define AL_RING_MODULATOR_SAWTOOTH (1) -#define AL_RING_MODULATOR_SQUARE (2) - -#define AL_RING_MODULATOR_MIN_WAVEFORM (0) -#define AL_RING_MODULATOR_MAX_WAVEFORM (2) -#define AL_RING_MODULATOR_DEFAULT_WAVEFORM (0) - -/* Autowah effect */ -#define AL_AUTOWAH_MIN_ATTACK_TIME (0.0001f) -#define AL_AUTOWAH_MAX_ATTACK_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_ATTACK_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RELEASE_TIME (0.0001f) -#define AL_AUTOWAH_MAX_RELEASE_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_RELEASE_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RESONANCE (2.0f) -#define AL_AUTOWAH_MAX_RESONANCE (1000.0f) -#define AL_AUTOWAH_DEFAULT_RESONANCE (1000.0f) - -#define AL_AUTOWAH_MIN_PEAK_GAIN (0.00003f) -#define AL_AUTOWAH_MAX_PEAK_GAIN (31621.0f) -#define AL_AUTOWAH_DEFAULT_PEAK_GAIN (11.22f) - -/* Compressor effect */ -#define AL_COMPRESSOR_MIN_ONOFF (0) -#define AL_COMPRESSOR_MAX_ONOFF (1) -#define AL_COMPRESSOR_DEFAULT_ONOFF (1) - -/* Equalizer effect */ -#define AL_EQUALIZER_MIN_LOW_GAIN (0.126f) -#define AL_EQUALIZER_MAX_LOW_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_LOW_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_LOW_CUTOFF (50.0f) -#define AL_EQUALIZER_MAX_LOW_CUTOFF (800.0f) -#define AL_EQUALIZER_DEFAULT_LOW_CUTOFF (200.0f) - -#define AL_EQUALIZER_MIN_MID1_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID1_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID1_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID1_CENTER (200.0f) -#define AL_EQUALIZER_MAX_MID1_CENTER (3000.0f) -#define AL_EQUALIZER_DEFAULT_MID1_CENTER (500.0f) - -#define AL_EQUALIZER_MIN_MID1_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID1_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID1_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_MID2_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID2_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID2_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID2_CENTER (1000.0f) -#define AL_EQUALIZER_MAX_MID2_CENTER (8000.0f) -#define AL_EQUALIZER_DEFAULT_MID2_CENTER (3000.0f) - -#define AL_EQUALIZER_MIN_MID2_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID2_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID2_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_GAIN (0.126f) -#define AL_EQUALIZER_MAX_HIGH_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_HIGH_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_CUTOFF (4000.0f) -#define AL_EQUALIZER_MAX_HIGH_CUTOFF (16000.0f) -#define AL_EQUALIZER_DEFAULT_HIGH_CUTOFF (6000.0f) - - -/* Source parameter value ranges and defaults. */ -#define AL_MIN_AIR_ABSORPTION_FACTOR (0.0f) -#define AL_MAX_AIR_ABSORPTION_FACTOR (10.0f) -#define AL_DEFAULT_AIR_ABSORPTION_FACTOR (0.0f) - -#define AL_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_MIN_CONE_OUTER_GAINHF (0.0f) -#define AL_MAX_CONE_OUTER_GAINHF (1.0f) -#define AL_DEFAULT_CONE_OUTER_GAINHF (1.0f) - -#define AL_MIN_DIRECT_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_DIRECT_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_DIRECT_FILTER_GAINHF_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE - - -/* Listener parameter value ranges and defaults. */ -#define AL_MIN_METERS_PER_UNIT FLT_MIN -#define AL_MAX_METERS_PER_UNIT FLT_MAX -#define AL_DEFAULT_METERS_PER_UNIT (1.0f) - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* AL_EFX_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/oalMacOSX_OALExtensions.h b/internal/c/parts/audio/out/android/OpenAL/Alc/AL/oalMacOSX_OALExtensions.h deleted file mode 100644 index c3db30546..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/AL/oalMacOSX_OALExtensions.h +++ /dev/null @@ -1,161 +0,0 @@ -/********************************************************************************************************************************** -* -* OpenAL cross platform audio library -* Copyright (c) 2004-2006, Apple Computer, Inc. All rights reserved. -* Copyright (c) 2007-2008, Apple Inc. All rights reserved. -* -* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -* conditions are met: -* -* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. -* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -* disclaimer in the documentation and/or other materials provided with the distribution. -* 3. Neither the name of Apple Inc. ("Apple") nor the names of its contributors may be used to endorse or promote products derived -* from this software without specific prior written permission. -* -* THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS -* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED -* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -* -**********************************************************************************************************************************/ - -#ifndef __OAL_MAC_OSX_OAL_EXTENSIONS_H__ -#define __OAL_MAC_OSX_OAL_EXTENSIONS_H__ - -#include - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_MAC_OSX - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -// Retrieve functions via alGetProcAddress() by passing in strings: alcMacOSXMixerOutputRate or alcMacOSXGetMixerOutputRate - -// Setting the Mixer Output Rate effectively sets the samnple rate at which the mixer -typedef ALvoid (*alcMacOSXRenderingQualityProcPtr) (ALint value); -typedef ALvoid (*alMacOSXRenderChannelCountProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerMaxiumumBussesProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerOutputRateProcPtr) (ALdouble value); - -typedef ALint (*alcMacOSXGetRenderingQualityProcPtr) (); -typedef ALint (*alMacOSXGetRenderChannelCountProcPtr) (); -typedef ALint (*alcMacOSXGetMixerMaxiumumBussesProcPtr) (); -typedef ALdouble (*alcMacOSXGetMixerOutputRateProcPtr) (); - -/* Render Quality. Used with alcMacOSXRenderingQuality() */ - - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_HIGH 'rqhi' - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_LOW 'rdlo' - - // High Quality Spatial Algorithm suitable only for headphone use - #define ALC_IPHONE_SPATIAL_RENDERING_QUALITY_HEADPHONES 'hdph' - -/* - Render Channels. Used with alMacOSXRenderChannelCount() - Allows a user to force OpenAL to render to stereo, regardless of the audio hardware being used -*/ - #define ALC_MAC_OSX_RENDER_CHANNEL_COUNT_STEREO 'rcst' - -/* GameKit extension */ - - #define AL_GAMEKIT 'gksr' - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AL_EXT_SOURCE_NOTIFICATIONS - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Source Notifications - - Eliminates the need for continuous polling for source state by providing a - mechanism for the application to receive source state change notifications. - Upon receiving a notification, the application can retrieve the actual state - corresponding to the notification ID for which the notification was sent. - */ - -#define AL_QUEUE_HAS_LOOPED 0x9000 - -/* - Notification Proc: ALSourceNotificationProc - - sid - source id - notificationID - id of state that has changed - userData - user data provided to alSourceAddNotification() - */ - -typedef ALvoid (*alSourceNotificationProc)(ALuint sid, ALuint notificationID, ALvoid* userData); - -/* - API: alSourceAddNotification - - sid - source id - notificationID - id of state for which caller wants to be notified of a change - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - - Returns AL_NO_ERROR if request is successful. - - Valid IDs: - AL_SOURCE_STATE - AL_BUFFERS_PROCESSED - AL_QUEUE_HAS_LOOPED - notification sent when a looping source has looped to it's start point - */ -typedef ALenum (*alSourceAddNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* - API: alSourceRemoveStateNotification - - sid - source id - notificationID - id of state for which caller wants to remove an existing notification - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - */ -typedef ALvoid (*alSourceRemoveNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_ASA : Apple Spatial Audio Extension - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Used with the ASA API calls: alcASAGetSource(), alcASASetSource(), alcASAGetListener(), alcASASetListener() -*/ - -typedef ALenum (*alcASAGetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint dataSize); -typedef ALenum (*alcASAGetListenerProcPtr) (ALuint property, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetListenerProcPtr) (ALuint property, ALvoid *data, ALuint dataSize); - - /* listener properties */ - #define ALC_ASA_REVERB_ON 'rvon' // type ALuint - #define ALC_ASA_REVERB_GLOBAL_LEVEL 'rvgl' // type ALfloat -40.0 db - 40.0 db - - #define ALC_ASA_REVERB_ROOM_TYPE 'rvrt' // type ALint - - /* reverb room type presets for the ALC_ASA_REVERB_ROOM_TYPE property */ - #define ALC_ASA_REVERB_ROOM_TYPE_SmallRoom 0 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumRoom 1 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom 2 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall 3 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall 4 - #define ALC_ASA_REVERB_ROOM_TYPE_Plate 5 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumChamber 6 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeChamber 7 - #define ALC_ASA_REVERB_ROOM_TYPE_Cathedral 8 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom2 9 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall2 10 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall3 11 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall2 12 - - #define ALC_ASA_REVERB_EQ_GAIN 'rveg' // type ALfloat - #define ALC_ASA_REVERB_EQ_BANDWITH 'rveb' // type ALfloat - #define ALC_ASA_REVERB_EQ_FREQ 'rvef' // type ALfloat - - /* source properties */ - #define ALC_ASA_REVERB_SEND_LEVEL 'rvsl' // type ALfloat 0.0 (dry) - 1.0 (wet) (0-100% dry/wet mix, 0.0 default) - #define ALC_ASA_OCCLUSION 'occl' // type ALfloat -100.0 db (most occlusion) - 0.0 db (no occlusion, 0.0 default) - #define ALC_ASA_OBSTRUCTION 'obst' // type ALfloat -100.0 db (most obstruction) - 0.0 db (no obstruction, 0.0 default) - -#endif // __OAL_MAC_OSX_OAL_EXTENSIONS_H__ diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/ALc.c b/internal/c/parts/audio/out/android/OpenAL/Alc/ALc.c deleted file mode 100644 index 8f4d7a4a3..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/ALc.c +++ /dev/null @@ -1,2371 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "alSource.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alThunk.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alAuxEffectSlot.h" -#include "alDatabuffer.h" -#include "bs2b.h" -#include "alu.h" - - -#define EmptyFuncs { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL } -typedef struct BackendInfo { - const char *name; - void (*Init)(BackendFuncs*); - void (*Deinit)(void); - void (*Probe)(int); - BackendFuncs Funcs; -} BackendInfo; -static BackendInfo BackendList[] = { -#ifdef HAVE_PULSEAUDIO - { "pulse", alc_pulse_init, alc_pulse_deinit, alc_pulse_probe, EmptyFuncs }, -#endif -#ifdef HAVE_ALSA - { "alsa", alc_alsa_init, alc_alsa_deinit, alc_alsa_probe, EmptyFuncs }, -#endif -#ifdef HAVE_OSS - { "oss", alc_oss_init, alc_oss_deinit, alc_oss_probe, EmptyFuncs }, -#endif -#ifdef HAVE_SOLARIS - { "solaris", alc_solaris_init, alc_solaris_deinit, alc_solaris_probe, EmptyFuncs }, -#endif -#ifdef HAVE_DSOUND - { "dsound", alcDSoundInit, alcDSoundDeinit, alcDSoundProbe, EmptyFuncs }, -#endif -#ifdef HAVE_WINMM - { "winmm", alcWinMMInit, alcWinMMDeinit, alcWinMMProbe, EmptyFuncs }, -#endif -#ifdef HAVE_PORTAUDIO - { "port", alc_pa_init, alc_pa_deinit, alc_pa_probe, EmptyFuncs }, -#endif -#ifdef HAVE_OPENSLES - { "opensles", alc_opensles_init, alc_opensles_deinit, alc_opensles_probe, EmptyFuncs }, -#endif -#if defined(HAVE_AUDIOTRACK) - { "audiotrack", alc_audiotrack_init, alc_audiotrack_deinit, alc_audiotrack_probe, EmptyFuncs }, -#endif - - { "null", alc_null_init, alc_null_deinit, alc_null_probe, EmptyFuncs }, -#ifdef HAVE_WAVE - { "wave", alc_wave_init, alc_wave_deinit, alc_wave_probe, EmptyFuncs }, -#endif - - { NULL, NULL, NULL, NULL, EmptyFuncs } -}; -#undef EmptyFuncs - -/////////////////////////////////////////////////////// - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - -/////////////////////////////////////////////////////// -// STRING and EXTENSIONS - -typedef struct ALCfunction { - const ALCchar *funcName; - ALCvoid *address; -} ALCfunction; - -typedef struct ALCenums { - const ALCchar *enumName; - ALCenum value; -} ALCenums; - - -static const ALCfunction alcFunctions[] = { - { "alcCreateContext", (ALCvoid *) alcCreateContext }, - { "alcMakeContextCurrent", (ALCvoid *) alcMakeContextCurrent }, - { "alcProcessContext", (ALCvoid *) alcProcessContext }, - { "alcSuspendContext", (ALCvoid *) alcSuspendContext }, - { "alcDestroyContext", (ALCvoid *) alcDestroyContext }, - { "alcGetCurrentContext", (ALCvoid *) alcGetCurrentContext }, - { "alcGetContextsDevice", (ALCvoid *) alcGetContextsDevice }, - { "alcOpenDevice", (ALCvoid *) alcOpenDevice }, - { "alcCloseDevice", (ALCvoid *) alcCloseDevice }, - { "alcGetError", (ALCvoid *) alcGetError }, - { "alcIsExtensionPresent", (ALCvoid *) alcIsExtensionPresent }, - { "alcGetProcAddress", (ALCvoid *) alcGetProcAddress }, - { "alcGetEnumValue", (ALCvoid *) alcGetEnumValue }, - { "alcGetString", (ALCvoid *) alcGetString }, - { "alcGetIntegerv", (ALCvoid *) alcGetIntegerv }, - { "alcCaptureOpenDevice", (ALCvoid *) alcCaptureOpenDevice }, - { "alcCaptureCloseDevice", (ALCvoid *) alcCaptureCloseDevice }, - { "alcCaptureStart", (ALCvoid *) alcCaptureStart }, - { "alcCaptureStop", (ALCvoid *) alcCaptureStop }, - { "alcCaptureSamples", (ALCvoid *) alcCaptureSamples }, - - { "alcSetThreadContext", (ALCvoid *) alcSetThreadContext }, - { "alcGetThreadContext", (ALCvoid *) alcGetThreadContext }, - - { "alEnable", (ALCvoid *) alEnable }, - { "alDisable", (ALCvoid *) alDisable }, - { "alIsEnabled", (ALCvoid *) alIsEnabled }, - { "alGetString", (ALCvoid *) alGetString }, - { "alGetBooleanv", (ALCvoid *) alGetBooleanv }, - { "alGetIntegerv", (ALCvoid *) alGetIntegerv }, - { "alGetFloatv", (ALCvoid *) alGetFloatv }, - { "alGetDoublev", (ALCvoid *) alGetDoublev }, - { "alGetBoolean", (ALCvoid *) alGetBoolean }, - { "alGetInteger", (ALCvoid *) alGetInteger }, - { "alGetFloat", (ALCvoid *) alGetFloat }, - { "alGetDouble", (ALCvoid *) alGetDouble }, - { "alGetError", (ALCvoid *) alGetError }, - { "alIsExtensionPresent", (ALCvoid *) alIsExtensionPresent }, - { "alGetProcAddress", (ALCvoid *) alGetProcAddress }, - { "alGetEnumValue", (ALCvoid *) alGetEnumValue }, - { "alListenerf", (ALCvoid *) alListenerf }, - { "alListener3f", (ALCvoid *) alListener3f }, - { "alListenerfv", (ALCvoid *) alListenerfv }, - { "alListeneri", (ALCvoid *) alListeneri }, - { "alListener3i", (ALCvoid *) alListener3i }, - { "alListeneriv", (ALCvoid *) alListeneriv }, - { "alGetListenerf", (ALCvoid *) alGetListenerf }, - { "alGetListener3f", (ALCvoid *) alGetListener3f }, - { "alGetListenerfv", (ALCvoid *) alGetListenerfv }, - { "alGetListeneri", (ALCvoid *) alGetListeneri }, - { "alGetListener3i", (ALCvoid *) alGetListener3i }, - { "alGetListeneriv", (ALCvoid *) alGetListeneriv }, - { "alGenSources", (ALCvoid *) alGenSources }, - { "alDeleteSources", (ALCvoid *) alDeleteSources }, - { "alIsSource", (ALCvoid *) alIsSource }, - { "alSourcef", (ALCvoid *) alSourcef }, - { "alSource3f", (ALCvoid *) alSource3f }, - { "alSourcefv", (ALCvoid *) alSourcefv }, - { "alSourcei", (ALCvoid *) alSourcei }, - { "alSource3i", (ALCvoid *) alSource3i }, - { "alSourceiv", (ALCvoid *) alSourceiv }, - { "alGetSourcef", (ALCvoid *) alGetSourcef }, - { "alGetSource3f", (ALCvoid *) alGetSource3f }, - { "alGetSourcefv", (ALCvoid *) alGetSourcefv }, - { "alGetSourcei", (ALCvoid *) alGetSourcei }, - { "alGetSource3i", (ALCvoid *) alGetSource3i }, - { "alGetSourceiv", (ALCvoid *) alGetSourceiv }, - { "alSourcePlayv", (ALCvoid *) alSourcePlayv }, - { "alSourceStopv", (ALCvoid *) alSourceStopv }, - { "alSourceRewindv", (ALCvoid *) alSourceRewindv }, - { "alSourcePausev", (ALCvoid *) alSourcePausev }, - { "alSourcePlay", (ALCvoid *) alSourcePlay }, - { "alSourceStop", (ALCvoid *) alSourceStop }, - { "alSourceRewind", (ALCvoid *) alSourceRewind }, - { "alSourcePause", (ALCvoid *) alSourcePause }, - { "alSourceQueueBuffers", (ALCvoid *) alSourceQueueBuffers }, - { "alSourceUnqueueBuffers", (ALCvoid *) alSourceUnqueueBuffers }, - { "alGenBuffers", (ALCvoid *) alGenBuffers }, - { "alDeleteBuffers", (ALCvoid *) alDeleteBuffers }, - { "alIsBuffer", (ALCvoid *) alIsBuffer }, - { "alBufferData", (ALCvoid *) alBufferData }, - { "alBufferDataStatic", (ALCvoid *) alBufferData }, - { "alBufferf", (ALCvoid *) alBufferf }, - { "alBuffer3f", (ALCvoid *) alBuffer3f }, - { "alBufferfv", (ALCvoid *) alBufferfv }, - { "alBufferi", (ALCvoid *) alBufferi }, - { "alBuffer3i", (ALCvoid *) alBuffer3i }, - { "alBufferiv", (ALCvoid *) alBufferiv }, - { "alGetBufferf", (ALCvoid *) alGetBufferf }, - { "alGetBuffer3f", (ALCvoid *) alGetBuffer3f }, - { "alGetBufferfv", (ALCvoid *) alGetBufferfv }, - { "alGetBufferi", (ALCvoid *) alGetBufferi }, - { "alGetBuffer3i", (ALCvoid *) alGetBuffer3i }, - { "alGetBufferiv", (ALCvoid *) alGetBufferiv }, - { "alDopplerFactor", (ALCvoid *) alDopplerFactor }, - { "alDopplerVelocity", (ALCvoid *) alDopplerVelocity }, - { "alSpeedOfSound", (ALCvoid *) alSpeedOfSound }, - { "alDistanceModel", (ALCvoid *) alDistanceModel }, - - { "alGenFilters", (ALCvoid *) alGenFilters }, - { "alDeleteFilters", (ALCvoid *) alDeleteFilters }, - { "alIsFilter", (ALCvoid *) alIsFilter }, - { "alFilteri", (ALCvoid *) alFilteri }, - { "alFilteriv", (ALCvoid *) alFilteriv }, - { "alFilterf", (ALCvoid *) alFilterf }, - { "alFilterfv", (ALCvoid *) alFilterfv }, - { "alGetFilteri", (ALCvoid *) alGetFilteri }, - { "alGetFilteriv", (ALCvoid *) alGetFilteriv }, - { "alGetFilterf", (ALCvoid *) alGetFilterf }, - { "alGetFilterfv", (ALCvoid *) alGetFilterfv }, - - { "alGenEffects", (ALCvoid *) alGenEffects }, - { "alDeleteEffects", (ALCvoid *) alDeleteEffects }, - { "alIsEffect", (ALCvoid *) alIsEffect }, - { "alEffecti", (ALCvoid *) alEffecti }, - { "alEffectiv", (ALCvoid *) alEffectiv }, - { "alEffectf", (ALCvoid *) alEffectf }, - { "alEffectfv", (ALCvoid *) alEffectfv }, - { "alGetEffecti", (ALCvoid *) alGetEffecti }, - { "alGetEffectiv", (ALCvoid *) alGetEffectiv }, - { "alGetEffectf", (ALCvoid *) alGetEffectf }, - { "alGetEffectfv", (ALCvoid *) alGetEffectfv }, - - { "alGenAuxiliaryEffectSlots", (ALCvoid *) alGenAuxiliaryEffectSlots}, - { "alDeleteAuxiliaryEffectSlots",(ALCvoid *) alDeleteAuxiliaryEffectSlots}, - { "alIsAuxiliaryEffectSlot", (ALCvoid *) alIsAuxiliaryEffectSlot }, - { "alAuxiliaryEffectSloti", (ALCvoid *) alAuxiliaryEffectSloti }, - { "alAuxiliaryEffectSlotiv", (ALCvoid *) alAuxiliaryEffectSlotiv }, - { "alAuxiliaryEffectSlotf", (ALCvoid *) alAuxiliaryEffectSlotf }, - { "alAuxiliaryEffectSlotfv", (ALCvoid *) alAuxiliaryEffectSlotfv }, - { "alGetAuxiliaryEffectSloti", (ALCvoid *) alGetAuxiliaryEffectSloti}, - { "alGetAuxiliaryEffectSlotiv", (ALCvoid *) alGetAuxiliaryEffectSlotiv}, - { "alGetAuxiliaryEffectSlotf", (ALCvoid *) alGetAuxiliaryEffectSlotf}, - { "alGetAuxiliaryEffectSlotfv", (ALCvoid *) alGetAuxiliaryEffectSlotfv}, - - { "alBufferSubDataSOFT", (ALCvoid *) alBufferSubDataSOFT }, -#if 0 - { "alGenDatabuffersEXT", (ALCvoid *) alGenDatabuffersEXT }, - { "alDeleteDatabuffersEXT", (ALCvoid *) alDeleteDatabuffersEXT }, - { "alIsDatabufferEXT", (ALCvoid *) alIsDatabufferEXT }, - { "alDatabufferDataEXT", (ALCvoid *) alDatabufferDataEXT }, - { "alDatabufferSubDataEXT", (ALCvoid *) alDatabufferSubDataEXT }, - { "alGetDatabufferSubDataEXT", (ALCvoid *) alGetDatabufferSubDataEXT}, - { "alDatabufferfEXT", (ALCvoid *) alDatabufferfEXT }, - { "alDatabufferfvEXT", (ALCvoid *) alDatabufferfvEXT }, - { "alDatabufferiEXT", (ALCvoid *) alDatabufferiEXT }, - { "alDatabufferivEXT", (ALCvoid *) alDatabufferivEXT }, - { "alGetDatabufferfEXT", (ALCvoid *) alGetDatabufferfEXT }, - { "alGetDatabufferfvEXT", (ALCvoid *) alGetDatabufferfvEXT }, - { "alGetDatabufferiEXT", (ALCvoid *) alGetDatabufferiEXT }, - { "alGetDatabufferivEXT", (ALCvoid *) alGetDatabufferivEXT }, - { "alSelectDatabufferEXT", (ALCvoid *) alSelectDatabufferEXT }, - { "alMapDatabufferEXT", (ALCvoid *) alMapDatabufferEXT }, - { "alUnmapDatabufferEXT", (ALCvoid *) alUnmapDatabufferEXT }, -#endif - { NULL, (ALCvoid *) NULL } -}; - -static const ALCenums enumeration[] = { - // Types - { "ALC_INVALID", ALC_INVALID }, - { "ALC_FALSE", ALC_FALSE }, - { "ALC_TRUE", ALC_TRUE }, - - // ALC Properties - { "ALC_MAJOR_VERSION", ALC_MAJOR_VERSION }, - { "ALC_MINOR_VERSION", ALC_MINOR_VERSION }, - { "ALC_ATTRIBUTES_SIZE", ALC_ATTRIBUTES_SIZE }, - { "ALC_ALL_ATTRIBUTES", ALC_ALL_ATTRIBUTES }, - { "ALC_DEFAULT_DEVICE_SPECIFIER", ALC_DEFAULT_DEVICE_SPECIFIER }, - { "ALC_DEVICE_SPECIFIER", ALC_DEVICE_SPECIFIER }, - { "ALC_ALL_DEVICES_SPECIFIER", ALC_ALL_DEVICES_SPECIFIER }, - { "ALC_DEFAULT_ALL_DEVICES_SPECIFIER", ALC_DEFAULT_ALL_DEVICES_SPECIFIER }, - { "ALC_EXTENSIONS", ALC_EXTENSIONS }, - { "ALC_FREQUENCY", ALC_FREQUENCY }, - { "ALC_REFRESH", ALC_REFRESH }, - { "ALC_SYNC", ALC_SYNC }, - { "ALC_MONO_SOURCES", ALC_MONO_SOURCES }, - { "ALC_STEREO_SOURCES", ALC_STEREO_SOURCES }, - { "ALC_CAPTURE_DEVICE_SPECIFIER", ALC_CAPTURE_DEVICE_SPECIFIER }, - { "ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER", ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER}, - { "ALC_CAPTURE_SAMPLES", ALC_CAPTURE_SAMPLES }, - { "ALC_CONNECTED", ALC_CONNECTED }, - - // EFX Properties - { "ALC_EFX_MAJOR_VERSION", ALC_EFX_MAJOR_VERSION }, - { "ALC_EFX_MINOR_VERSION", ALC_EFX_MINOR_VERSION }, - { "ALC_MAX_AUXILIARY_SENDS", ALC_MAX_AUXILIARY_SENDS }, - - // ALC Error Message - { "ALC_NO_ERROR", ALC_NO_ERROR }, - { "ALC_INVALID_DEVICE", ALC_INVALID_DEVICE }, - { "ALC_INVALID_CONTEXT", ALC_INVALID_CONTEXT }, - { "ALC_INVALID_ENUM", ALC_INVALID_ENUM }, - { "ALC_INVALID_VALUE", ALC_INVALID_VALUE }, - { "ALC_OUT_OF_MEMORY", ALC_OUT_OF_MEMORY }, - { NULL, (ALCenum)0 } -}; -// Error strings -static const ALCchar alcNoError[] = "No Error"; -static const ALCchar alcErrInvalidDevice[] = "Invalid Device"; -static const ALCchar alcErrInvalidContext[] = "Invalid Context"; -static const ALCchar alcErrInvalidEnum[] = "Invalid Enum"; -static const ALCchar alcErrInvalidValue[] = "Invalid Value"; -static const ALCchar alcErrOutOfMemory[] = "Out of Memory"; - -/* Device lists. Sizes only include the first ending null character, not the - * second */ -static ALCchar *alcDeviceList; -static size_t alcDeviceListSize; -static ALCchar *alcAllDeviceList; -static size_t alcAllDeviceListSize; -static ALCchar *alcCaptureDeviceList; -static size_t alcCaptureDeviceListSize; -// Default is always the first in the list -static ALCchar *alcDefaultDeviceSpecifier; -static ALCchar *alcDefaultAllDeviceSpecifier; -static ALCchar *alcCaptureDefaultDeviceSpecifier; - - -static const ALCchar alcNoDeviceExtList[] = - "ALC_ENUMERATE_ALL_EXT ALC_ENUMERATION_EXT ALC_EXT_CAPTURE " - "ALC_EXT_thread_local_context"; -static const ALCchar alcExtensionList[] = - "ALC_ENUMERATE_ALL_EXT ALC_ENUMERATION_EXT ALC_EXT_CAPTURE " - "ALC_EXT_disconnect ALC_EXT_EFX ALC_EXT_thread_local_context"; -static const ALCint alcMajorVersion = 1; -static const ALCint alcMinorVersion = 1; - -static const ALCint alcEFXMajorVersion = 1; -static const ALCint alcEFXMinorVersion = 0; - -/////////////////////////////////////////////////////// - - -/////////////////////////////////////////////////////// -// Global Variables - -static ALCdevice *g_pDeviceList = NULL; -static ALCuint g_ulDeviceCount = 0; - -static CRITICAL_SECTION g_csMutex; - -// Context List -static ALCcontext *g_pContextList = NULL; -static ALCuint g_ulContextCount = 0; - -// Thread-local current context -static tls_type LocalContext; -// Process-wide current context -static ALCcontext *GlobalContext = NULL; - -// Context Error -static ALCenum g_eLastNullDeviceError = ALC_NO_ERROR; - -// Default context extensions -static const ALchar alExtList[] = - "AL_EXT_DOUBLE AL_EXT_EXPONENT_DISTANCE AL_EXT_FLOAT32 AL_EXT_IMA4 " - "AL_EXT_LINEAR_DISTANCE AL_EXT_MCFORMATS AL_EXT_MULAW " - "AL_EXT_MULAW_MCFORMATS AL_EXT_OFFSET AL_EXT_source_distance_model " - "AL_LOKI_quadriphonic AL_SOFT_buffer_sub_data AL_SOFT_loop_points"; - -// Mixing Priority Level -static ALint RTPrioLevel; - -// Output Log File -static FILE *LogFile; - -/////////////////////////////////////////////////////// - - -/////////////////////////////////////////////////////// -// ALC Related helper functions -static void ReleaseALC(void); - -#ifdef HAVE_GCC_DESTRUCTOR -static void alc_init(void) __attribute__((constructor)); -static void alc_deinit(void) __attribute__((destructor)); -#else -#ifdef _WIN32 -static void alc_init(void); -static void alc_deinit(void); - -BOOL APIENTRY DllMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved) -{ - (void)lpReserved; - - // Perform actions based on the reason for calling. - switch(ul_reason_for_call) - { - case DLL_PROCESS_ATTACH: - DisableThreadLibraryCalls(hModule); - alc_init(); - break; - - case DLL_PROCESS_DETACH: - alc_deinit(); - break; - } - return TRUE; -} -#endif -#endif - -static void alc_init(void) -{ - int i; - const char *devs, *str; - - str = getenv("ALSOFT_LOGFILE"); - if(str && str[0]) - { - LogFile = fopen(str, "w"); - if(!LogFile) - fprintf(stderr, "AL lib: Failed to open log file '%s'\n", str); - } - if(!LogFile) - LogFile = stderr; - - InitializeCriticalSection(&g_csMutex); - ALTHUNK_INIT(); - ReadALConfig(); - - tls_create(&LocalContext); - - RTPrioLevel = GetConfigValueInt(NULL, "rt-prio", 0); - - DefaultResampler = GetConfigValueInt(NULL, "resampler", RESAMPLER_DEFAULT); - if(DefaultResampler >= RESAMPLER_MAX || DefaultResampler <= RESAMPLER_MIN) - DefaultResampler = RESAMPLER_DEFAULT; - - devs = GetConfigValue(NULL, "drivers", ""); - if(devs[0]) - { - int n; - size_t len; - const char *next = devs; - int endlist, delitem; - - i = 0; - do { - devs = next; - next = strchr(devs, ','); - - delitem = (devs[0] == '-'); - if(devs[0] == '-') devs++; - - if(!devs[0] || devs[0] == ',') - { - endlist = 0; - continue; - } - endlist = 1; - - len = (next ? ((size_t)(next-devs)) : strlen(devs)); - for(n = i;BackendList[n].Init;n++) - { - if(len == strlen(BackendList[n].name) && - strncmp(BackendList[n].name, devs, len) == 0) - { - if(delitem) - { - do { - BackendList[n] = BackendList[n+1]; - ++n; - } while(BackendList[n].Init); - } - else - { - BackendInfo Bkp = BackendList[n]; - while(n > i) - { - BackendList[n] = BackendList[n-1]; - --n; - } - BackendList[n] = Bkp; - - i++; - } - break; - } - } - } while(next++); - - if(endlist) - { - BackendList[i].name = NULL; - BackendList[i].Init = NULL; - BackendList[i].Deinit = NULL; - BackendList[i].Probe = NULL; - } - } - - for(i = 0;BackendList[i].Init;i++) - BackendList[i].Init(&BackendList[i].Funcs); - - str = GetConfigValue(NULL, "excludefx", ""); - if(str[0]) - { - const struct { - const char *name; - int type; - } EffectList[] = { - { "eaxreverb", EAXREVERB }, - { "reverb", REVERB }, - { "echo", ECHO }, - { "modulator", MODULATOR }, - { NULL, 0 } - }; - int n; - size_t len; - const char *next = str; - - do { - str = next; - next = strchr(str, ','); - - if(!str[0] || next == str) - continue; - - len = (next ? ((size_t)(next-str)) : strlen(str)); - for(n = 0;EffectList[n].name;n++) - { - if(len == strlen(EffectList[n].name) && - strncmp(EffectList[n].name, str, len) == 0) - DisabledEffects[EffectList[n].type] = AL_TRUE; - } - } while(next++); - } -} - -static void alc_deinit(void) -{ - int i; - - ReleaseALC(); - - for(i = 0;BackendList[i].Deinit;i++) - BackendList[i].Deinit(); - - tls_delete(LocalContext); - - FreeALConfig(); - ALTHUNK_EXIT(); - DeleteCriticalSection(&g_csMutex); - - if(LogFile != stderr) - fclose(LogFile); - LogFile = NULL; -} - - -static void ProbeDeviceList() -{ - ALint i; - - free(alcDeviceList); alcDeviceList = NULL; - alcDeviceListSize = 0; - - for(i = 0;BackendList[i].Probe;i++) - BackendList[i].Probe(DEVICE_PROBE); -} - -static void ProbeAllDeviceList() -{ - ALint i; - - free(alcAllDeviceList); alcAllDeviceList = NULL; - alcAllDeviceListSize = 0; - - for(i = 0;BackendList[i].Probe;i++) - BackendList[i].Probe(ALL_DEVICE_PROBE); -} - -static void ProbeCaptureDeviceList() -{ - ALint i; - - free(alcCaptureDeviceList); alcCaptureDeviceList = NULL; - alcCaptureDeviceListSize = 0; - - for(i = 0;BackendList[i].Probe;i++) - BackendList[i].Probe(CAPTURE_DEVICE_PROBE); -} - - -static void AppendList(const ALCchar *name, ALCchar **List, size_t *ListSize) -{ - size_t len = strlen(name); - void *temp; - - if(len == 0) - return; - - temp = realloc(*List, (*ListSize) + len + 2); - if(!temp) - { - AL_PRINT("Realloc failed to add %s!\n", name); - return; - } - *List = temp; - - memcpy((*List)+(*ListSize), name, len+1); - *ListSize += len+1; - (*List)[*ListSize] = 0; -} - -#define DECL_APPEND_LIST_FUNC(type) \ -void Append##type##List(const ALCchar *name) \ -{ AppendList(name, &alc##type##List, &alc##type##ListSize); } - -DECL_APPEND_LIST_FUNC(Device) -DECL_APPEND_LIST_FUNC(AllDevice) -DECL_APPEND_LIST_FUNC(CaptureDevice) - -#undef DECL_APPEND_LIST_FUNC - - -void al_print(const char *fname, unsigned int line, const char *fmt, ...) -{ - const char *fn; - char str[256]; - int i; - - fn = strrchr(fname, '/'); - if(!fn) fn = strrchr(fname, '\\');; - if(!fn) fn = fname; - else fn += 1; - - i = snprintf(str, sizeof(str), "AL lib: %s:%d: ", fn, line); - if(i < (int)sizeof(str) && i > 0) - { - va_list ap; - va_start(ap, fmt); - vsnprintf(str+i, sizeof(str)-i, fmt, ap); - va_end(ap); - } - str[sizeof(str)-1] = 0; - - fprintf(LogFile, "%s", str); - fflush(LogFile); -} - -void SetRTPriority(void) -{ - ALboolean failed; - -#ifdef _WIN32 - if(RTPrioLevel > 0) - failed = !SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL); - else - failed = !SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_NORMAL); -#elif defined(HAVE_PTHREAD_SETSCHEDPARAM) - struct sched_param param; - - if(RTPrioLevel > 0) - { - /* Use the minimum real-time priority possible for now (on Linux this - * should be 1 for SCHED_RR) */ - param.sched_priority = sched_get_priority_min(SCHED_RR); - failed = !!pthread_setschedparam(pthread_self(), SCHED_RR, ¶m); - } - else - { - param.sched_priority = 0; - failed = !!pthread_setschedparam(pthread_self(), SCHED_OTHER, ¶m); - } -#else - /* Real-time priority not available */ - failed = (RTPrioLevel>0); -#endif - if(failed) - AL_PRINT("Failed to set priority level for thread\n"); -} - - -void InitUIntMap(UIntMap *map) -{ - map->array = NULL; - map->size = 0; - map->maxsize = 0; -} - -void ResetUIntMap(UIntMap *map) -{ - free(map->array); - map->array = NULL; - map->size = 0; - map->maxsize = 0; -} - -ALenum InsertUIntMapEntry(UIntMap *map, ALuint key, ALvoid *value) -{ - ALsizei pos = 0; - - if(map->size > 0) - { - ALsizei low = 0; - ALsizei high = map->size - 1; - while(low < high) - { - ALsizei mid = low + (high-low)/2; - if(map->array[mid].key < key) - low = mid + 1; - else - high = mid; - } - if(map->array[low].key < key) - low++; - pos = low; - } - - if(pos == map->size || map->array[pos].key != key) - { - if(map->size == map->maxsize) - { - ALvoid *temp; - ALsizei newsize; - - newsize = (map->maxsize ? (map->maxsize<<1) : 4); - if(newsize < map->maxsize) - return AL_OUT_OF_MEMORY; - - temp = realloc(map->array, newsize*sizeof(map->array[0])); - if(!temp) return AL_OUT_OF_MEMORY; - map->array = temp; - map->maxsize = newsize; - } - - map->size++; - if(pos < map->size-1) - memmove(&map->array[pos+1], &map->array[pos], - (map->size-1-pos)*sizeof(map->array[0])); - } - map->array[pos].key = key; - map->array[pos].value = value; - - return AL_NO_ERROR; -} - -void RemoveUIntMapKey(UIntMap *map, ALuint key) -{ - if(map->size > 0) - { - ALsizei low = 0; - ALsizei high = map->size - 1; - while(low < high) - { - ALsizei mid = low + (high-low)/2; - if(map->array[mid].key < key) - low = mid + 1; - else - high = mid; - } - if(map->array[low].key == key) - { - if(low < map->size-1) - memmove(&map->array[low], &map->array[low+1], - (map->size-1-low)*sizeof(map->array[0])); - map->size--; - } - } -} - -ALvoid *LookupUIntMapKey(UIntMap *map, ALuint key) -{ - if(map->size > 0) - { - ALsizei low = 0; - ALsizei high = map->size - 1; - while(low < high) - { - ALsizei mid = low + (high-low)/2; - if(map->array[mid].key < key) - low = mid + 1; - else - high = mid; - } - if(map->array[low].key == key) - return map->array[low].value; - } - return NULL; -} - - -ALuint BytesFromDevFmt(enum DevFmtType type) -{ - switch(type) - { - case DevFmtByte: return sizeof(ALbyte); - case DevFmtUByte: return sizeof(ALubyte); - case DevFmtShort: return sizeof(ALshort); - case DevFmtUShort: return sizeof(ALushort); - case DevFmtFloat: return sizeof(ALfloat); - } - return 0; -} -ALuint ChannelsFromDevFmt(enum DevFmtChannels chans) -{ - switch(chans) - { - case DevFmtMono: return 1; - case DevFmtStereo: return 2; - case DevFmtQuad: return 4; - case DevFmtX51: return 6; - case DevFmtX61: return 7; - case DevFmtX71: return 8; - } - return 0; -} -ALboolean DecomposeDevFormat(ALenum format, enum DevFmtChannels *chans, - enum DevFmtType *type) -{ - switch(format) - { - case AL_FORMAT_MONO8: - *chans = DevFmtMono; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_MONO16: - *chans = DevFmtMono; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_MONO_FLOAT32: - *chans = DevFmtMono; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_STEREO8: - *chans = DevFmtStereo; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_STEREO16: - *chans = DevFmtStereo; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_STEREO_FLOAT32: - *chans = DevFmtStereo; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_QUAD8: - *chans = DevFmtQuad; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_QUAD16: - *chans = DevFmtQuad; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_QUAD32: - *chans = DevFmtQuad; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_51CHN8: - *chans = DevFmtX51; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_51CHN16: - *chans = DevFmtX51; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_51CHN32: - *chans = DevFmtX51; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_61CHN8: - *chans = DevFmtX61; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_61CHN16: - *chans = DevFmtX61; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_61CHN32: - *chans = DevFmtX61; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_71CHN8: - *chans = DevFmtX71; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_71CHN16: - *chans = DevFmtX71; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_71CHN32: - *chans = DevFmtX71; - *type = DevFmtFloat; - return AL_TRUE; - } - return AL_FALSE; -} - -/* - IsDevice - - Check pDevice is a valid Device pointer -*/ -static ALCboolean IsDevice(ALCdevice *pDevice) -{ - ALCdevice *pTempDevice; - - SuspendContext(NULL); - - pTempDevice = g_pDeviceList; - while(pTempDevice && pTempDevice != pDevice) - pTempDevice = pTempDevice->next; - - ProcessContext(NULL); - - return (pTempDevice ? ALC_TRUE : ALC_FALSE); -} - -/* - IsContext - - Check pContext is a valid Context pointer -*/ -static ALCboolean IsContext(ALCcontext *pContext) -{ - ALCcontext *pTempContext; - - SuspendContext(NULL); - - pTempContext = g_pContextList; - while (pTempContext && pTempContext != pContext) - pTempContext = pTempContext->next; - - ProcessContext(NULL); - - return (pTempContext ? ALC_TRUE : ALC_FALSE); -} - - -/* - alcSetError - - Store latest ALC Error -*/ -ALCvoid alcSetError(ALCdevice *device, ALenum errorCode) -{ - if(IsDevice(device)) - device->LastError = errorCode; - else - g_eLastNullDeviceError = errorCode; -} - - -/* UpdateDeviceParams: - * - * Updates device parameters according to the attribute list. - */ -static ALCboolean UpdateDeviceParams(ALCdevice *device, const ALCint *attrList) -{ - ALCuint freq, numMono, numStereo, numSends; - ALboolean running; - ALuint oldRate; - ALuint attrIdx; - ALuint i; - - running = ((device->NumContexts > 0) ? AL_TRUE : AL_FALSE); - oldRate = device->Frequency; - - // Check for attributes - if(attrList && attrList[0]) - { - // If a context is already running on the device, stop playback so the - // device attributes can be updated - if(running) - { - ProcessContext(NULL); - ALCdevice_StopPlayback(device); - SuspendContext(NULL); - running = AL_FALSE; - } - - freq = device->Frequency; - numMono = device->NumMonoSources; - numStereo = device->NumStereoSources; - numSends = device->NumAuxSends; - - attrIdx = 0; - while(attrList[attrIdx]) - { - if(attrList[attrIdx] == ALC_FREQUENCY && - !ConfigValueExists(NULL, "frequency")) - { - freq = attrList[attrIdx + 1]; - if(freq < 8000) - freq = 8000; - } - - if(attrList[attrIdx] == ALC_STEREO_SOURCES) - { - numStereo = attrList[attrIdx + 1]; - if(numStereo > device->MaxNoOfSources) - numStereo = device->MaxNoOfSources; - - numMono = device->MaxNoOfSources - numStereo; - } - - if(attrList[attrIdx] == ALC_MAX_AUXILIARY_SENDS && - !ConfigValueExists(NULL, "sends")) - { - numSends = attrList[attrIdx + 1]; - if(numSends > MAX_SENDS) - numSends = MAX_SENDS; - } - - attrIdx += 2; - } - - device->UpdateSize = (ALuint64)device->UpdateSize * freq / - device->Frequency; - - device->Frequency = freq; - device->NumMonoSources = numMono; - device->NumStereoSources = numStereo; - device->NumAuxSends = numSends; - } - - if(running) - return ALC_TRUE; - - if(ALCdevice_ResetPlayback(device) == ALC_FALSE) - return ALC_FALSE; - - aluInitPanning(device); - - for(i = 0;i < MAXCHANNELS;i++) - { - device->ClickRemoval[i] = int2ALfp(0); - device->PendingClicks[i] = int2ALfp(0); - } - - for(i = 0;i < device->NumContexts;i++) - { - ALCcontext *context = device->Contexts[i]; - ALsizei pos; - - SuspendContext(context); - for(pos = 0;pos < context->EffectSlotMap.size;pos++) - { - ALeffectslot *slot = context->EffectSlotMap.array[pos].value; - - if(ALEffect_DeviceUpdate(slot->EffectState, device) == AL_FALSE) - { - ProcessContext(context); - return ALC_FALSE; - } - ALEffect_Update(slot->EffectState, context, &slot->effect); - } - - for(pos = 0;pos < context->SourceMap.size;pos++) - { - ALsource *source = context->SourceMap.array[pos].value; - ALuint s = device->NumAuxSends; - while(s < MAX_SENDS) - { - if(source->Send[s].Slot) - source->Send[s].Slot->refcount--; - source->Send[s].Slot = NULL; - source->Send[s].WetFilter.type = 0; - source->Send[s].WetFilter.filter = 0; - s++; - } - source->NeedsUpdate = AL_TRUE; - } - ProcessContext(context); - } - - if(device->Bs2bLevel > 0 && device->Bs2bLevel <= 6) - { - if(!device->Bs2b) - { - device->Bs2b = calloc(1, sizeof(*device->Bs2b)); - bs2b_clear(device->Bs2b); - } - bs2b_set_srate(device->Bs2b, device->Frequency); - bs2b_set_level(device->Bs2b, device->Bs2bLevel); - } - else - { - free(device->Bs2b); - device->Bs2b = NULL; - } - - if(ChannelsFromDevFmt(device->FmtChans) <= 2) - { - device->HeadDampen = float2ALfp(GetConfigValueFloat(NULL, "head_dampen", DEFAULT_HEAD_DAMPEN)); - device->HeadDampen = __min(device->HeadDampen, int2ALfp(1)); - device->HeadDampen = __max(device->HeadDampen, int2ALfp(0)); - } - else - device->HeadDampen = int2ALfp(0); - - return ALC_TRUE; -} - - -/* - SuspendContext - - Thread-safe entry -*/ -ALCvoid SuspendContext(ALCcontext *pContext) -{ - (void)pContext; - EnterCriticalSection(&g_csMutex); -} - - -/* - ProcessContext - - Thread-safe exit -*/ -ALCvoid ProcessContext(ALCcontext *pContext) -{ - (void)pContext; - LeaveCriticalSection(&g_csMutex); -} - - -/* - GetContextSuspended - - Returns the currently active Context, in a locked state -*/ -ALCcontext *GetContextSuspended(void) -{ - ALCcontext *pContext = NULL; - - SuspendContext(NULL); - - pContext = tls_get(LocalContext); - if(pContext && !IsContext(pContext)) - { - tls_set(LocalContext, NULL); - pContext = NULL; - } - if(!pContext) - pContext = GlobalContext; - - if(pContext) - SuspendContext(pContext); - - ProcessContext(NULL); - - return pContext; -} - - -/* - InitContext - - Initialize Context variables -*/ -static ALvoid InitContext(ALCcontext *pContext) -{ - //Initialise listener - pContext->Listener.Gain = int2ALfp(1); - pContext->Listener.MetersPerUnit = int2ALfp(1); - pContext->Listener.Position[0] = int2ALfp(0); - pContext->Listener.Position[1] = int2ALfp(0); - pContext->Listener.Position[2] = int2ALfp(0); - pContext->Listener.Velocity[0] = int2ALfp(0); - pContext->Listener.Velocity[1] = int2ALfp(0); - pContext->Listener.Velocity[2] = int2ALfp(0); - pContext->Listener.Forward[0] = int2ALfp(0); - pContext->Listener.Forward[1] = int2ALfp(0); - pContext->Listener.Forward[2] = int2ALfp(-1); - pContext->Listener.Up[0] = int2ALfp(0); - pContext->Listener.Up[1] = int2ALfp(1); - pContext->Listener.Up[2] = int2ALfp(0); - - //Validate pContext - pContext->LastError = AL_NO_ERROR; - pContext->Suspended = AL_FALSE; - pContext->ActiveSourceCount = 0; - InitUIntMap(&pContext->SourceMap); - InitUIntMap(&pContext->EffectSlotMap); - - //Set globals - pContext->DistanceModel = AL_INVERSE_DISTANCE_CLAMPED; - pContext->SourceDistanceModel = AL_FALSE; - pContext->DopplerFactor = int2ALfp(1); - pContext->DopplerVelocity = int2ALfp(1); - pContext->flSpeedOfSound = float2ALfp(SPEEDOFSOUNDMETRESPERSEC); - pContext->PrioritySlots = 0; - - pContext->ExtensionList = alExtList; -} - - -/* - ExitContext - - Clean up Context, destroy any remaining Sources -*/ -static ALCvoid ExitContext(ALCcontext *pContext) -{ - //Invalidate context - pContext->LastError = AL_NO_ERROR; -} - -/////////////////////////////////////////////////////// - - -/////////////////////////////////////////////////////// -// ALC Functions calls - - -// This should probably move to another c file but for now ... -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice(const ALCchar *deviceName, ALCuint frequency, ALCenum format, ALCsizei SampleSize) -{ - ALCboolean DeviceFound = ALC_FALSE; - ALCdevice *device = NULL; - ALCint i; - - if(SampleSize <= 0) - { - alcSetError(NULL, ALC_INVALID_VALUE); - return NULL; - } - - if(deviceName && !deviceName[0]) - deviceName = NULL; - - device = calloc(1, sizeof(ALCdevice)); - if(!device) - { - alcSetError(NULL, ALC_OUT_OF_MEMORY); - return NULL; - } - - //Validate device - device->Connected = ALC_TRUE; - device->IsCaptureDevice = AL_TRUE; - - device->szDeviceName = NULL; - - device->Frequency = frequency; - if(DecomposeDevFormat(format, &device->FmtChans, &device->FmtType) == AL_FALSE) - { - free(device); - alcSetError(NULL, ALC_INVALID_ENUM); - return NULL; - } - - device->UpdateSize = SampleSize; - device->NumUpdates = 1; - - SuspendContext(NULL); - for(i = 0;BackendList[i].Init;i++) - { - device->Funcs = &BackendList[i].Funcs; - if(ALCdevice_OpenCapture(device, deviceName)) - { - device->next = g_pDeviceList; - g_pDeviceList = device; - g_ulDeviceCount++; - - DeviceFound = ALC_TRUE; - break; - } - } - ProcessContext(NULL); - - if(!DeviceFound) - { - alcSetError(NULL, ALC_INVALID_VALUE); - free(device); - device = NULL; - } - - return device; -} - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice(ALCdevice *pDevice) -{ - ALCdevice **list; - - if(!IsDevice(pDevice) || !pDevice->IsCaptureDevice) - { - alcSetError(pDevice, ALC_INVALID_DEVICE); - return ALC_FALSE; - } - - SuspendContext(NULL); - - list = &g_pDeviceList; - while(*list != pDevice) - list = &(*list)->next; - - *list = (*list)->next; - g_ulDeviceCount--; - - ProcessContext(NULL); - - ALCdevice_CloseCapture(pDevice); - - free(pDevice->szDeviceName); - pDevice->szDeviceName = NULL; - - free(pDevice); - - return ALC_TRUE; -} - -ALC_API void ALC_APIENTRY alcCaptureStart(ALCdevice *device) -{ - SuspendContext(NULL); - if(!IsDevice(device) || !device->IsCaptureDevice) - alcSetError(device, ALC_INVALID_DEVICE); - else if(device->Connected) - ALCdevice_StartCapture(device); - ProcessContext(NULL); -} - -ALC_API void ALC_APIENTRY alcCaptureStop(ALCdevice *device) -{ - SuspendContext(NULL); - if(!IsDevice(device) || !device->IsCaptureDevice) - alcSetError(device, ALC_INVALID_DEVICE); - else - ALCdevice_StopCapture(device); - ProcessContext(NULL); -} - -ALC_API void ALC_APIENTRY alcCaptureSamples(ALCdevice *device, ALCvoid *buffer, ALCsizei samples) -{ - SuspendContext(NULL); - if(!IsDevice(device) || !device->IsCaptureDevice) - alcSetError(device, ALC_INVALID_DEVICE); - else - ALCdevice_CaptureSamples(device, buffer, samples); - ProcessContext(NULL); -} - -/* - alcGetError - - Return last ALC generated error code -*/ -ALC_API ALCenum ALC_APIENTRY alcGetError(ALCdevice *device) -{ - ALCenum errorCode; - - if(IsDevice(device)) - { - errorCode = device->LastError; - device->LastError = ALC_NO_ERROR; - } - else - { - errorCode = g_eLastNullDeviceError; - g_eLastNullDeviceError = ALC_NO_ERROR; - } - return errorCode; -} - - -/* - alcSuspendContext - - Not functional -*/ -ALC_API ALCvoid ALC_APIENTRY alcSuspendContext(ALCcontext *pContext) -{ - SuspendContext(NULL); - if(IsContext(pContext)) - pContext->Suspended = AL_TRUE; - ProcessContext(NULL); -} - - -/* - alcProcessContext - - Not functional -*/ -ALC_API ALCvoid ALC_APIENTRY alcProcessContext(ALCcontext *pContext) -{ - SuspendContext(NULL); - if(IsContext(pContext)) - pContext->Suspended = AL_FALSE; - ProcessContext(NULL); -} - - -/* - alcGetString - - Returns information about the Device, and error strings -*/ -ALC_API const ALCchar* ALC_APIENTRY alcGetString(ALCdevice *pDevice,ALCenum param) -{ - const ALCchar *value = NULL; - - switch (param) - { - case ALC_NO_ERROR: - value = alcNoError; - break; - - case ALC_INVALID_ENUM: - value = alcErrInvalidEnum; - break; - - case ALC_INVALID_VALUE: - value = alcErrInvalidValue; - break; - - case ALC_INVALID_DEVICE: - value = alcErrInvalidDevice; - break; - - case ALC_INVALID_CONTEXT: - value = alcErrInvalidContext; - break; - - case ALC_OUT_OF_MEMORY: - value = alcErrOutOfMemory; - break; - - case ALC_DEVICE_SPECIFIER: - if(IsDevice(pDevice)) - value = pDevice->szDeviceName; - else - { - ProbeDeviceList(); - value = alcDeviceList; - } - break; - - case ALC_ALL_DEVICES_SPECIFIER: - ProbeAllDeviceList(); - value = alcAllDeviceList; - break; - - case ALC_CAPTURE_DEVICE_SPECIFIER: - if(IsDevice(pDevice)) - value = pDevice->szDeviceName; - else - { - ProbeCaptureDeviceList(); - value = alcCaptureDeviceList; - } - break; - - /* Default devices are always first in the list */ - case ALC_DEFAULT_DEVICE_SPECIFIER: - if(!alcDeviceList) - ProbeDeviceList(); - - free(alcDefaultDeviceSpecifier); - alcDefaultDeviceSpecifier = strdup(alcDeviceList ? alcDeviceList : ""); - if(!alcDefaultDeviceSpecifier) - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - value = alcDefaultDeviceSpecifier; - break; - - case ALC_DEFAULT_ALL_DEVICES_SPECIFIER: - if(!alcAllDeviceList) - ProbeAllDeviceList(); - - free(alcDefaultAllDeviceSpecifier); - alcDefaultAllDeviceSpecifier = strdup(alcAllDeviceList ? - alcAllDeviceList : ""); - if(!alcDefaultAllDeviceSpecifier) - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - value = alcDefaultAllDeviceSpecifier; - break; - - case ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER: - if(!alcCaptureDeviceList) - ProbeCaptureDeviceList(); - - free(alcCaptureDefaultDeviceSpecifier); - alcCaptureDefaultDeviceSpecifier = strdup(alcCaptureDeviceList ? - alcCaptureDeviceList : ""); - if(!alcCaptureDefaultDeviceSpecifier) - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - value = alcCaptureDefaultDeviceSpecifier; - break; - - case ALC_EXTENSIONS: - if(IsDevice(pDevice)) - value = alcExtensionList; - else - value = alcNoDeviceExtList; - break; - - default: - alcSetError(pDevice, ALC_INVALID_ENUM); - break; - } - - return value; -} - - -/* - alcGetIntegerv - - Returns information about the Device and the version of Open AL -*/ -ALC_API ALCvoid ALC_APIENTRY alcGetIntegerv(ALCdevice *device,ALCenum param,ALsizei size,ALCint *data) -{ - if(size == 0 || data == NULL) - { - alcSetError(device, ALC_INVALID_VALUE); - return; - } - - if(IsDevice(device) && device->IsCaptureDevice) - { - SuspendContext(NULL); - - // Capture device - switch (param) - { - case ALC_CAPTURE_SAMPLES: - *data = ALCdevice_AvailableSamples(device); - break; - - case ALC_CONNECTED: - *data = device->Connected; - break; - - default: - alcSetError(device, ALC_INVALID_ENUM); - break; - } - - ProcessContext(NULL); - return; - } - - // Playback Device - switch (param) - { - case ALC_MAJOR_VERSION: - *data = alcMajorVersion; - break; - - case ALC_MINOR_VERSION: - *data = alcMinorVersion; - break; - - case ALC_EFX_MAJOR_VERSION: - *data = alcEFXMajorVersion; - break; - - case ALC_EFX_MINOR_VERSION: - *data = alcEFXMinorVersion; - break; - - case ALC_MAX_AUXILIARY_SENDS: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->NumAuxSends; - break; - - case ALC_ATTRIBUTES_SIZE: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = 13; - break; - - case ALC_ALL_ATTRIBUTES: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else if (size < 13) - alcSetError(device, ALC_INVALID_VALUE); - else - { - int i = 0; - - SuspendContext(NULL); - data[i++] = ALC_FREQUENCY; - data[i++] = device->Frequency; - - data[i++] = ALC_REFRESH; - data[i++] = device->Frequency / device->UpdateSize; - - data[i++] = ALC_SYNC; - data[i++] = ALC_FALSE; - - data[i++] = ALC_MONO_SOURCES; - data[i++] = device->NumMonoSources; - - data[i++] = ALC_STEREO_SOURCES; - data[i++] = device->NumStereoSources; - - data[i++] = ALC_MAX_AUXILIARY_SENDS; - data[i++] = device->NumAuxSends; - - data[i++] = 0; - ProcessContext(NULL); - } - break; - - case ALC_FREQUENCY: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->Frequency; - break; - - case ALC_REFRESH: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->Frequency / device->UpdateSize; - break; - - case ALC_SYNC: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = ALC_FALSE; - break; - - case ALC_MONO_SOURCES: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->NumMonoSources; - break; - - case ALC_STEREO_SOURCES: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->NumStereoSources; - break; - - case ALC_CONNECTED: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->Connected; - break; - - default: - alcSetError(device, ALC_INVALID_ENUM); - break; - } -} - - -/* - alcIsExtensionPresent - - Determines if there is support for a particular extension -*/ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent(ALCdevice *device, const ALCchar *extName) -{ - ALCboolean bResult = ALC_FALSE; - const char *ptr; - size_t len; - - if(!extName) - { - alcSetError(device, ALC_INVALID_VALUE); - return ALC_FALSE; - } - - len = strlen(extName); - ptr = (IsDevice(device) ? alcExtensionList : alcNoDeviceExtList); - while(ptr && *ptr) - { - if(strncasecmp(ptr, extName, len) == 0 && - (ptr[len] == '\0' || isspace(ptr[len]))) - { - bResult = ALC_TRUE; - break; - } - if((ptr=strchr(ptr, ' ')) != NULL) - { - do { - ++ptr; - } while(isspace(*ptr)); - } - } - - return bResult; -} - - -/* - alcGetProcAddress - - Retrieves the function address for a particular extension function -*/ -ALC_API ALCvoid* ALC_APIENTRY alcGetProcAddress(ALCdevice *device, const ALCchar *funcName) -{ - ALsizei i = 0; - - if(!funcName) - { - alcSetError(device, ALC_INVALID_VALUE); - return NULL; - } - - while(alcFunctions[i].funcName && strcmp(alcFunctions[i].funcName,funcName) != 0) - i++; - return alcFunctions[i].address; -} - - -/* - alcGetEnumValue - - Get the value for a particular ALC Enumerated Value -*/ -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue(ALCdevice *device, const ALCchar *enumName) -{ - ALsizei i = 0; - - if(!enumName) - { - alcSetError(device, ALC_INVALID_VALUE); - return (ALCenum)0; - } - - while(enumeration[i].enumName && strcmp(enumeration[i].enumName,enumName) != 0) - i++; - return enumeration[i].value; -} - - -/* - alcCreateContext - - Create and attach a Context to a particular Device. -*/ -ALC_API ALCcontext* ALC_APIENTRY alcCreateContext(ALCdevice *device, const ALCint *attrList) -{ - ALCcontext *ALContext; - void *temp; - - SuspendContext(NULL); - - if(!IsDevice(device) || device->IsCaptureDevice || !device->Connected) - { - alcSetError(device, ALC_INVALID_DEVICE); - ProcessContext(NULL); - return NULL; - } - - // Reset Context Last Error code - device->LastError = ALC_NO_ERROR; - - if(UpdateDeviceParams(device, attrList) == ALC_FALSE) - { - alcSetError(device, ALC_INVALID_DEVICE); - aluHandleDisconnect(device); - ProcessContext(NULL); - ALCdevice_StopPlayback(device); - return NULL; - } - - ALContext = NULL; - temp = realloc(device->Contexts, (device->NumContexts+1) * sizeof(*device->Contexts)); - if(temp) - { - device->Contexts = temp; - - ALContext = calloc(1, sizeof(ALCcontext)); - if(ALContext) - { - ALContext->MaxActiveSources = 256; - ALContext->ActiveSources = malloc(sizeof(ALContext->ActiveSources[0]) * - ALContext->MaxActiveSources); - } - } - if(!ALContext || !ALContext->ActiveSources) - { - free(ALContext); - alcSetError(device, ALC_OUT_OF_MEMORY); - ProcessContext(NULL); - if(device->NumContexts == 0) - ALCdevice_StopPlayback(device); - return NULL; - } - - device->Contexts[device->NumContexts++] = ALContext; - ALContext->Device = device; - - InitContext(ALContext); - - ALContext->next = g_pContextList; - g_pContextList = ALContext; - g_ulContextCount++; - - ProcessContext(NULL); - - return ALContext; -} - - -/* - alcDestroyContext - - Remove a Context -*/ -ALC_API ALCvoid ALC_APIENTRY alcDestroyContext(ALCcontext *context) -{ - ALCdevice *Device; - ALCcontext **list; - ALuint i; - - if(!IsContext(context)) - { - alcSetError(NULL, ALC_INVALID_CONTEXT); - return; - } - - Device = context->Device; - - if(Device->NumContexts == 1) - ALCdevice_StopPlayback(Device); - - SuspendContext(NULL); - - if(context == GlobalContext) - GlobalContext = NULL; - - for(i = 0;i < Device->NumContexts;i++) - { - if(Device->Contexts[i] == context) - { - Device->Contexts[i] = Device->Contexts[Device->NumContexts-1]; - Device->NumContexts--; - break; - } - } - - // Lock context - SuspendContext(context); - - if(context->SourceMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcDestroyContext(): deleting %d Source(s)\n", context->SourceMap.size); -#endif - ReleaseALSources(context); - } - ResetUIntMap(&context->SourceMap); - - if(context->EffectSlotMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcDestroyContext(): deleting %d AuxiliaryEffectSlot(s)\n", context->EffectSlotMap.size); -#endif - ReleaseALAuxiliaryEffectSlots(context); - } - ResetUIntMap(&context->EffectSlotMap); - - free(context->ActiveSources); - context->ActiveSources = NULL; - context->MaxActiveSources = 0; - context->ActiveSourceCount = 0; - - list = &g_pContextList; - while(*list != context) - list = &(*list)->next; - - *list = (*list)->next; - g_ulContextCount--; - - // Unlock context - ProcessContext(context); - ProcessContext(NULL); - - ExitContext(context); - - // Free memory (MUST do this after ProcessContext) - memset(context, 0, sizeof(ALCcontext)); - free(context); -} - - -/* - alcGetCurrentContext - - Returns the currently active Context -*/ -ALC_API ALCcontext* ALC_APIENTRY alcGetCurrentContext(ALCvoid) -{ - ALCcontext *pContext; - - if((pContext=GetContextSuspended()) != NULL) - ProcessContext(pContext); - - return pContext; -} - -/* - alcGetThreadContext - - Returns the currently active thread-local Context -*/ -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void) -{ - ALCcontext *pContext = NULL; - - SuspendContext(NULL); - - pContext = tls_get(LocalContext); - if(pContext && !IsContext(pContext)) - { - tls_set(LocalContext, NULL); - pContext = NULL; - } - - ProcessContext(NULL); - - return pContext; -} - - -/* - alcGetContextsDevice - - Returns the Device that a particular Context is attached to -*/ -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice(ALCcontext *pContext) -{ - ALCdevice *pDevice = NULL; - - SuspendContext(NULL); - if(IsContext(pContext)) - pDevice = pContext->Device; - else - alcSetError(NULL, ALC_INVALID_CONTEXT); - ProcessContext(NULL); - - return pDevice; -} - - -/* - alcMakeContextCurrent - - Makes the given Context the active Context -*/ -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent(ALCcontext *context) -{ - ALboolean bReturn = AL_TRUE; - - SuspendContext(NULL); - - // context must be a valid Context or NULL - if(context == NULL || IsContext(context)) - { - GlobalContext = context; - tls_set(LocalContext, NULL); - } - else - { - alcSetError(NULL, ALC_INVALID_CONTEXT); - bReturn = AL_FALSE; - } - - ProcessContext(NULL); - - return bReturn; -} - -/* - alcSetThreadContext - - Makes the given Context the active Context for the current thread -*/ -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context) -{ - ALboolean bReturn = AL_TRUE; - - SuspendContext(NULL); - - // context must be a valid Context or NULL - if(context == NULL || IsContext(context)) - tls_set(LocalContext, context); - else - { - alcSetError(NULL, ALC_INVALID_CONTEXT); - bReturn = AL_FALSE; - } - - ProcessContext(NULL); - - return bReturn; -} - - -// Sets the default channel order used by most non-WaveFormatEx-based APIs -void SetDefaultChannelOrder(ALCdevice *device) -{ - switch(device->FmtChans) - { - case DevFmtStereo: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; break; - -#ifdef STEREO_ONLY - case DevFmtMono: - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtMono: device->DevChannels[FRONT_CENTER] = 0; break; - - case DevFmtQuad: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; break; - - case DevFmtX51: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; - device->DevChannels[FRONT_CENTER] = 4; - device->DevChannels[LFE] = 5; break; - - case DevFmtX61: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_CENTER] = 4; - device->DevChannels[SIDE_LEFT] = 5; - device->DevChannels[SIDE_RIGHT] = 6; break; - - case DevFmtX71: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; - device->DevChannels[FRONT_CENTER] = 4; - device->DevChannels[LFE] = 5; - device->DevChannels[SIDE_LEFT] = 6; - device->DevChannels[SIDE_RIGHT] = 7; break; -#endif - } -} -// Sets the default order used by WaveFormatEx -void SetDefaultWFXChannelOrder(ALCdevice *device) -{ - switch(device->FmtChans) - { - - case DevFmtStereo: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; break; - -#ifdef STEREO_ONLY - case DevFmtMono: - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtMono: device->DevChannels[FRONT_CENTER] = 0; break; - - case DevFmtQuad: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; break; - - case DevFmtX51: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_LEFT] = 4; - device->DevChannels[BACK_RIGHT] = 5; break; - - case DevFmtX61: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_CENTER] = 4; - device->DevChannels[SIDE_LEFT] = 5; - device->DevChannels[SIDE_RIGHT] = 6; break; - - case DevFmtX71: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_LEFT] = 4; - device->DevChannels[BACK_RIGHT] = 5; - device->DevChannels[SIDE_LEFT] = 6; - device->DevChannels[SIDE_RIGHT] = 7; break; -#endif - } -} - -static ALenum GetFormatFromString(const char *str) -{ - if(strcasecmp(str, "AL_FORMAT_MONO32") == 0) return AL_FORMAT_MONO_FLOAT32; - if(strcasecmp(str, "AL_FORMAT_STEREO32") == 0) return AL_FORMAT_STEREO_FLOAT32; - if(strcasecmp(str, "AL_FORMAT_QUAD32") == 0) return AL_FORMAT_QUAD32; - if(strcasecmp(str, "AL_FORMAT_51CHN32") == 0) return AL_FORMAT_51CHN32; - if(strcasecmp(str, "AL_FORMAT_61CHN32") == 0) return AL_FORMAT_61CHN32; - if(strcasecmp(str, "AL_FORMAT_71CHN32") == 0) return AL_FORMAT_71CHN32; - - if(strcasecmp(str, "AL_FORMAT_MONO16") == 0) return AL_FORMAT_MONO16; - if(strcasecmp(str, "AL_FORMAT_STEREO16") == 0) return AL_FORMAT_STEREO16; - if(strcasecmp(str, "AL_FORMAT_QUAD16") == 0) return AL_FORMAT_QUAD16; - if(strcasecmp(str, "AL_FORMAT_51CHN16") == 0) return AL_FORMAT_51CHN16; - if(strcasecmp(str, "AL_FORMAT_61CHN16") == 0) return AL_FORMAT_61CHN16; - if(strcasecmp(str, "AL_FORMAT_71CHN16") == 0) return AL_FORMAT_71CHN16; - - if(strcasecmp(str, "AL_FORMAT_MONO8") == 0) return AL_FORMAT_MONO8; - if(strcasecmp(str, "AL_FORMAT_STEREO8") == 0) return AL_FORMAT_STEREO8; - if(strcasecmp(str, "AL_FORMAT_QUAD8") == 0) return AL_FORMAT_QUAD8; - if(strcasecmp(str, "AL_FORMAT_51CHN8") == 0) return AL_FORMAT_51CHN8; - if(strcasecmp(str, "AL_FORMAT_61CHN8") == 0) return AL_FORMAT_61CHN8; - if(strcasecmp(str, "AL_FORMAT_71CHN8") == 0) return AL_FORMAT_71CHN8; - - AL_PRINT("Unknown format: \"%s\"\n", str); - return AL_FORMAT_STEREO16; -} - -/* - alcOpenDevice - - Open the Device specified. -*/ -ALC_API ALCdevice* ALC_APIENTRY alcOpenDevice(const ALCchar *deviceName) -{ - ALboolean bDeviceFound = AL_FALSE; - const ALCchar *fmt; - ALCdevice *device; - ALint i; - - if(deviceName && !deviceName[0]) - deviceName = NULL; - - device = calloc(1, sizeof(ALCdevice)); - if(!device) - { - alcSetError(NULL, ALC_OUT_OF_MEMORY); - return NULL; - } - - //Validate device - device->Connected = ALC_TRUE; - device->IsCaptureDevice = AL_FALSE; - device->LastError = ALC_NO_ERROR; - - device->Bs2b = NULL; - device->szDeviceName = NULL; - - device->Contexts = NULL; - device->NumContexts = 0; - - InitUIntMap(&device->BufferMap); - InitUIntMap(&device->EffectMap); - InitUIntMap(&device->FilterMap); - InitUIntMap(&device->DatabufferMap); - - //Set output format - device->Frequency = GetConfigValueInt(NULL, "frequency", SWMIXER_OUTPUT_RATE); - if(device->Frequency < 8000) - device->Frequency = 8000; - - fmt = GetConfigValue(NULL, "format", "AL_FORMAT_STEREO16"); - if(DecomposeDevFormat(GetFormatFromString(fmt), - &device->FmtChans, &device->FmtType) == AL_FALSE) - { - /* Should never happen... */ - device->FmtChans = DevFmtStereo; - device->FmtType = DevFmtShort; - } - - device->NumUpdates = GetConfigValueInt(NULL, "periods", 4); - if(device->NumUpdates < 2) - device->NumUpdates = 4; - - device->UpdateSize = GetConfigValueInt(NULL, "period_size", 1024); - if(device->UpdateSize <= 0) - device->UpdateSize = 1024; - - device->MaxNoOfSources = GetConfigValueInt(NULL, "sources", 256); - if((ALint)device->MaxNoOfSources <= 0) - device->MaxNoOfSources = 256; - - device->AuxiliaryEffectSlotMax = GetConfigValueInt(NULL, "slots", 4); - if((ALint)device->AuxiliaryEffectSlotMax <= 0) - device->AuxiliaryEffectSlotMax = 4; - - device->NumStereoSources = 1; - device->NumMonoSources = device->MaxNoOfSources - device->NumStereoSources; - - device->NumAuxSends = GetConfigValueInt(NULL, "sends", 1); - if(device->NumAuxSends > MAX_SENDS) - device->NumAuxSends = MAX_SENDS; - - device->Bs2bLevel = GetConfigValueInt(NULL, "cf_level", 0); - - device->DuplicateStereo = GetConfigValueBool(NULL, "stereodup", 1); - - device->HeadDampen = int2ALfp(0); - - // Find a playback device to open - SuspendContext(NULL); - for(i = 0;BackendList[i].Init;i++) - { - - if (BackendList[i].Funcs.OpenPlayback == NULL) { - BackendList[i].Probe(DEVICE_PROBE); - if (BackendList[i].Funcs.OpenPlayback == NULL) { - continue; - } - } - device->Funcs = &BackendList[i].Funcs; - if(ALCdevice_OpenPlayback(device, deviceName)) - { - device->next = g_pDeviceList; - g_pDeviceList = device; - g_ulDeviceCount++; - - bDeviceFound = AL_TRUE; - break; - } - } - ProcessContext(NULL); - - if(!bDeviceFound) - { - // No suitable output device found - alcSetError(NULL, ALC_INVALID_VALUE); - free(device); - device = NULL; - } - - return device; -} - - -/* - alcCloseDevice - - Close the specified Device -*/ -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice(ALCdevice *pDevice) -{ - ALCdevice **list; - - if(!IsDevice(pDevice) || pDevice->IsCaptureDevice) - { - alcSetError(pDevice, ALC_INVALID_DEVICE); - return ALC_FALSE; - } - - SuspendContext(NULL); - - list = &g_pDeviceList; - while(*list != pDevice) - list = &(*list)->next; - - *list = (*list)->next; - g_ulDeviceCount--; - - ProcessContext(NULL); - - if(pDevice->NumContexts > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): destroying %u Context(s)\n", pDevice->NumContexts); -#endif - while(pDevice->NumContexts > 0) - alcDestroyContext(pDevice->Contexts[0]); - } - ALCdevice_ClosePlayback(pDevice); - - if(pDevice->BufferMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Buffer(s)\n", pDevice->BufferMap.size); -#endif - ReleaseALBuffers(pDevice); - } - ResetUIntMap(&pDevice->BufferMap); - - if(pDevice->EffectMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Effect(s)\n", pDevice->EffectMap.size); -#endif - ReleaseALEffects(pDevice); - } - ResetUIntMap(&pDevice->EffectMap); - - if(pDevice->FilterMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Filter(s)\n", pDevice->FilterMap.size); -#endif - ReleaseALFilters(pDevice); - } - ResetUIntMap(&pDevice->FilterMap); - - if(pDevice->DatabufferMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Databuffer(s)\n", pDevice->DatabufferMap.size); -#endif - ReleaseALDatabuffers(pDevice); - } - ResetUIntMap(&pDevice->DatabufferMap); - - free(pDevice->Bs2b); - pDevice->Bs2b = NULL; - - free(pDevice->szDeviceName); - pDevice->szDeviceName = NULL; - - free(pDevice->Contexts); - pDevice->Contexts = NULL; - - //Release device structure - memset(pDevice, 0, sizeof(ALCdevice)); - free(pDevice); - - return ALC_TRUE; -} - - -static void ReleaseALC(void) -{ - free(alcDeviceList); alcDeviceList = NULL; - alcDeviceListSize = 0; - free(alcAllDeviceList); alcAllDeviceList = NULL; - alcAllDeviceListSize = 0; - free(alcCaptureDeviceList); alcCaptureDeviceList = NULL; - alcCaptureDeviceListSize = 0; - - free(alcDefaultDeviceSpecifier); - alcDefaultDeviceSpecifier = NULL; - free(alcDefaultAllDeviceSpecifier); - alcDefaultAllDeviceSpecifier = NULL; - free(alcCaptureDefaultDeviceSpecifier); - alcCaptureDefaultDeviceSpecifier = NULL; - -#ifdef _DEBUG - if(g_ulDeviceCount > 0) - AL_PRINT("exit(): closing %u Device%s\n", g_ulDeviceCount, (g_ulDeviceCount>1)?"s":""); -#endif - - while(g_pDeviceList) - { - if(g_pDeviceList->IsCaptureDevice) - alcCaptureCloseDevice(g_pDeviceList); - else - alcCloseDevice(g_pDeviceList); - } -} - -/////////////////////////////////////////////////////// diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/ALu.c b/internal/c/parts/audio/out/android/OpenAL/Alc/ALu.c deleted file mode 100644 index 6e5f31350..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/ALu.c +++ /dev/null @@ -1,1118 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alListener.h" -#include "alAuxEffectSlot.h" -#include "alu.h" -#include "bs2b.h" - -#ifdef MAX_SOURCES_LOW -// For throttling AlSource.c -int alc_max_sources = MAX_SOURCES_LOW; -int alc_active_sources = 0; -int alc_num_cores = 0; -#endif - -static __inline ALvoid aluCrossproduct(const ALfp *inVector1, const ALfp *inVector2, ALfp *outVector) -{ - outVector[0] = (ALfpMult(inVector1[1],inVector2[2]) - ALfpMult(inVector1[2],inVector2[1])); - outVector[1] = (ALfpMult(inVector1[2],inVector2[0]) - ALfpMult(inVector1[0],inVector2[2])); - outVector[2] = (ALfpMult(inVector1[0],inVector2[1]) - ALfpMult(inVector1[1],inVector2[0])); -} - -static __inline ALfp aluDotproduct(const ALfp *inVector1, const ALfp *inVector2) -{ - return (ALfpMult(inVector1[0],inVector2[0]) + ALfpMult(inVector1[1],inVector2[1]) + - ALfpMult(inVector1[2],inVector2[2])); -} - -static __inline ALvoid aluNormalize(ALfp *inVector) -{ - ALfp length, inverse_length; - - length = aluSqrt(aluDotproduct(inVector, inVector)); - if(length != int2ALfp(0)) - { - inverse_length = ALfpDiv(int2ALfp(1),length); - inVector[0] = ALfpMult(inVector[0], inverse_length); - inVector[1] = ALfpMult(inVector[1], inverse_length); - inVector[2] = ALfpMult(inVector[2], inverse_length); - } -} - -static __inline ALvoid aluMatrixVector(ALfp *vector,ALfp w,ALfp matrix[4][4]) -{ - ALfp temp[4] = { - vector[0], vector[1], vector[2], w - }; - - vector[0] = ALfpMult(temp[0],matrix[0][0]) + ALfpMult(temp[1],matrix[1][0]) + ALfpMult(temp[2],matrix[2][0]) + ALfpMult(temp[3],matrix[3][0]); - vector[1] = ALfpMult(temp[0],matrix[0][1]) + ALfpMult(temp[1],matrix[1][1]) + ALfpMult(temp[2],matrix[2][1]) + ALfpMult(temp[3],matrix[3][1]); - vector[2] = ALfpMult(temp[0],matrix[0][2]) + ALfpMult(temp[1],matrix[1][2]) + ALfpMult(temp[2],matrix[2][2]) + ALfpMult(temp[3],matrix[3][2]); -} - - -ALvoid CalcNonAttnSourceParams(ALsource *ALSource, const ALCcontext *ALContext) -{ - ALfp SourceVolume,ListenerGain,MinVolume,MaxVolume; - ALbufferlistitem *BufferListItem; - enum DevFmtChannels DevChans; - enum FmtChannels Channels; - ALfp DryGain, DryGainHF; - ALfp WetGain[MAX_SENDS]; - ALfp WetGainHF[MAX_SENDS]; - ALint NumSends, Frequency; - ALboolean DupStereo; - ALfp Pitch; - ALfp cw; - ALint i; - - /* Get device properties */ - DevChans = ALContext->Device->FmtChans; - DupStereo = ALContext->Device->DuplicateStereo; - NumSends = ALContext->Device->NumAuxSends; - Frequency = ALContext->Device->Frequency; - - /* Get listener properties */ - ListenerGain = ALContext->Listener.Gain; - - /* Get source properties */ - SourceVolume = ALSource->flGain; - MinVolume = ALSource->flMinGain; - MaxVolume = ALSource->flMaxGain; - Pitch = ALSource->flPitch; - - /* Calculate the stepping value */ - Channels = FmtMono; - BufferListItem = ALSource->queue; - while(BufferListItem != NULL) - { - ALbuffer *ALBuffer; - if((ALBuffer=BufferListItem->buffer) != NULL) - { - ALint maxstep = STACK_DATA_SIZE / FrameSizeFromFmt(ALBuffer->FmtChannels, - ALBuffer->FmtType); - maxstep -= ResamplerPadding[ALSource->Resampler] + - ResamplerPrePadding[ALSource->Resampler] + 1; - maxstep = min(maxstep, INT_MAX>>FRACTIONBITS); - - Pitch = ALfpDiv(ALfpMult(Pitch, int2ALfp(ALBuffer->Frequency)), int2ALfp(Frequency)); - if(Pitch > int2ALfp(maxstep)) - ALSource->Params.Step = maxstep<Params.Step = ALfp2int(ALfpMult(Pitch, int2ALfp(FRACTIONONE))); - if(ALSource->Params.Step == 0) - ALSource->Params.Step = 1; - } - - Channels = ALBuffer->FmtChannels; - break; - } - BufferListItem = BufferListItem->next; - } - - /* Calculate gains */ - DryGain = SourceVolume; - DryGain = __min(DryGain,MaxVolume); - DryGain = __max(DryGain,MinVolume); - DryGainHF = int2ALfp(1); - - switch(ALSource->DirectFilter.type) - { - case AL_FILTER_LOWPASS: - DryGain = ALfpMult(DryGain, ALSource->DirectFilter.Gain); - DryGainHF = ALfpMult(DryGainHF, ALSource->DirectFilter.GainHF); - break; - } - - for(i = 0;i < MAXCHANNELS;i++) - { - ALuint i2; - for(i2 = 0;i2 < MAXCHANNELS;i2++) - ALSource->Params.DryGains[i][i2] = int2ALfp(0); - } - - switch(Channels) - { - case FmtMono: - ALSource->Params.DryGains[0][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - break; - case FmtStereo: - if(DupStereo == AL_FALSE) - { - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - } - else - { - switch(DevChans) - { - case DevFmtMono: - case DevFmtStereo: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; - -#ifdef STEREO_ONLY - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtQuad: - case DevFmtX51: - DryGain = ALfpMult(DryGain, aluSqrt(float2ALfp(2.0f/4.0f))); - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; - - case DevFmtX61: - DryGain = ALfpMult(DryGain, aluSqrt(float2ALfp(2.0f/4.0f))); - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; - - case DevFmtX71: - DryGain = ALfpMult(DryGain, aluSqrt(float2ALfp(2.0f/6.0f))); - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; -#endif - } - } - break; - - case FmtRear: -#ifndef STEREO_ONLY - ALSource->Params.DryGains[0][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtQuad: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtX51: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][LFE] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[4][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[5][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtX61: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][LFE] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[4][BACK_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[5][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[6][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtX71: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][LFE] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[4][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[5][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[6][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[7][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - } - - for(i = 0;i < NumSends;i++) - { - WetGain[i] = SourceVolume; - WetGain[i] = __min(WetGain[i],MaxVolume); - WetGain[i] = __max(WetGain[i],MinVolume); - WetGainHF[i] = int2ALfp(1); - - switch(ALSource->Send[i].WetFilter.type) - { - case AL_FILTER_LOWPASS: - WetGain[i] = ALfpMult(WetGain[i], ALSource->Send[i].WetFilter.Gain); - WetGainHF[i] = ALfpMult(WetGainHF[i], ALSource->Send[i].WetFilter.GainHF); - break; - } - - ALSource->Params.Send[i].WetGain = ALfpMult(WetGain[i], ListenerGain); - } - - /* Update filter coefficients. Calculations based on the I3DL2 - * spec. */ - cw = float2ALfp(cos(2.0*M_PI * LOWPASSFREQCUTOFF / Frequency)); - - /* We use two chained one-pole filters, so we need to take the - * square root of the squared gain, which is the same as the base - * gain. */ - ALSource->Params.iirFilter.coeff = lpCoeffCalc(DryGainHF, cw); - - for(i = 0;i < NumSends;i++) - { - /* We use a one-pole filter, so we need to take the squared gain */ - ALfp a = lpCoeffCalc(ALfpMult(WetGainHF[i],WetGainHF[i]), cw); - ALSource->Params.Send[i].iirFilter.coeff = a; - } -} - -ALvoid CalcSourceParams(ALsource *ALSource, const ALCcontext *ALContext) -{ - const ALCdevice *Device = ALContext->Device; - ALfp InnerAngle,OuterAngle,Angle,Distance,OrigDist; - ALfp Direction[3],Position[3],SourceToListener[3]; - ALfp Velocity[3],ListenerVel[3]; - ALfp MinVolume,MaxVolume,MinDist,MaxDist,Rolloff,OuterGainHF; - ALfp ConeVolume,ConeHF,SourceVolume,ListenerGain; - ALfp DopplerFactor, DopplerVelocity, SpeedOfSound; - ALfp AirAbsorptionFactor; - ALbufferlistitem *BufferListItem; - ALfp Attenuation, EffectiveDist; - ALfp RoomAttenuation[MAX_SENDS]; - ALfp MetersPerUnit; - ALfp RoomRolloff[MAX_SENDS]; - ALfp DryGain; - ALfp DryGainHF; - ALfp WetGain[MAX_SENDS]; - ALfp WetGainHF[MAX_SENDS]; - ALfp DirGain, AmbientGain; - const ALfp *SpeakerGain; - ALfp Pitch; - ALfp length; - ALuint Frequency; - ALint NumSends; - ALint pos, s, i; - ALfp cw; - - DryGainHF = int2ALfp(1); - for(i = 0;i < MAX_SENDS;i++) - WetGainHF[i] = int2ALfp(1); - - //Get context properties - DopplerFactor = ALfpMult(ALContext->DopplerFactor, ALSource->DopplerFactor); - DopplerVelocity = ALContext->DopplerVelocity; - SpeedOfSound = ALContext->flSpeedOfSound; - NumSends = Device->NumAuxSends; - Frequency = Device->Frequency; - - //Get listener properties - ListenerGain = ALContext->Listener.Gain; - MetersPerUnit = ALContext->Listener.MetersPerUnit; - memcpy(ListenerVel, ALContext->Listener.Velocity, sizeof(ALContext->Listener.Velocity)); - - //Get source properties - SourceVolume = ALSource->flGain; - memcpy(Position, ALSource->vPosition, sizeof(ALSource->vPosition)); - memcpy(Direction, ALSource->vOrientation, sizeof(ALSource->vOrientation)); - memcpy(Velocity, ALSource->vVelocity, sizeof(ALSource->vVelocity)); - MinVolume = ALSource->flMinGain; - MaxVolume = ALSource->flMaxGain; - MinDist = ALSource->flRefDistance; - MaxDist = ALSource->flMaxDistance; - Rolloff = ALSource->flRollOffFactor; - InnerAngle = ALSource->flInnerAngle; - OuterAngle = ALSource->flOuterAngle; - OuterGainHF = ALSource->OuterGainHF; - AirAbsorptionFactor = ALSource->AirAbsorptionFactor; - - //1. Translate Listener to origin (convert to head relative) - if(ALSource->bHeadRelative == AL_FALSE) - { - ALfp U[3],V[3],N[3]; - ALfp Matrix[4][4]; - - // Build transform matrix - memcpy(N, ALContext->Listener.Forward, sizeof(N)); // At-vector - aluNormalize(N); // Normalized At-vector - memcpy(V, ALContext->Listener.Up, sizeof(V)); // Up-vector - aluNormalize(V); // Normalized Up-vector - aluCrossproduct(N, V, U); // Right-vector - aluNormalize(U); // Normalized Right-vector - Matrix[0][0] = U[0]; Matrix[0][1] = V[0]; Matrix[0][2] = -1*N[0]; Matrix[0][3] = int2ALfp(0); - Matrix[1][0] = U[1]; Matrix[1][1] = V[1]; Matrix[1][2] = -1*N[1]; Matrix[1][3] = int2ALfp(0); - Matrix[2][0] = U[2]; Matrix[2][1] = V[2]; Matrix[2][2] = -1*N[2]; Matrix[2][3] = int2ALfp(0); - Matrix[3][0] = int2ALfp(0); Matrix[3][1] = int2ALfp(0); Matrix[3][2] = int2ALfp(0); Matrix[3][3] = int2ALfp(1); - - // Translate position - Position[0] -= ALContext->Listener.Position[0]; - Position[1] -= ALContext->Listener.Position[1]; - Position[2] -= ALContext->Listener.Position[2]; - - // Transform source position and direction into listener space - aluMatrixVector(Position, int2ALfp(1), Matrix); - aluMatrixVector(Direction, int2ALfp(0), Matrix); - // Transform source and listener velocity into listener space - aluMatrixVector(Velocity, int2ALfp(0), Matrix); - aluMatrixVector(ListenerVel, int2ALfp(0), Matrix); - } - else - ListenerVel[0] = ListenerVel[1] = ListenerVel[2] = int2ALfp(0); - - SourceToListener[0] = -1*Position[0]; - SourceToListener[1] = -1*Position[1]; - SourceToListener[2] = -1*Position[2]; - aluNormalize(SourceToListener); - aluNormalize(Direction); - - //2. Calculate distance attenuation - Distance = aluSqrt(aluDotproduct(Position, Position)); - OrigDist = Distance; - - Attenuation = int2ALfp(1); - for(i = 0;i < NumSends;i++) - { - RoomAttenuation[i] = int2ALfp(1); - - RoomRolloff[i] = ALSource->RoomRolloffFactor; - if(ALSource->Send[i].Slot && - (ALSource->Send[i].Slot->effect.type == AL_EFFECT_REVERB || - ALSource->Send[i].Slot->effect.type == AL_EFFECT_EAXREVERB)) - RoomRolloff[i] += ALSource->Send[i].Slot->effect.Reverb.RoomRolloffFactor; - } - - switch(ALContext->SourceDistanceModel ? ALSource->DistanceModel : - ALContext->DistanceModel) - { - case AL_INVERSE_DISTANCE_CLAMPED: - Distance=__max(Distance,MinDist); - Distance=__min(Distance,MaxDist); - if(MaxDist < MinDist) - break; - //fall-through - case AL_INVERSE_DISTANCE: - if(MinDist > int2ALfp(0)) - { - if((MinDist + ALfpMult(Rolloff, (Distance - MinDist))) > int2ALfp(0)) - Attenuation = ALfpDiv(MinDist, (MinDist + ALfpMult(Rolloff, (Distance - MinDist)))); - for(i = 0;i < NumSends;i++) - { - if((MinDist + ALfpMult(RoomRolloff[i], (Distance - MinDist))) > int2ALfp(0)) - RoomAttenuation[i] = ALfpDiv(MinDist, (MinDist + ALfpMult(RoomRolloff[i], (Distance - MinDist)))); - } - } - break; - - case AL_LINEAR_DISTANCE_CLAMPED: - Distance=__max(Distance,MinDist); - Distance=__min(Distance,MaxDist); - if(MaxDist < MinDist) - break; - //fall-through - case AL_LINEAR_DISTANCE: - if(MaxDist != MinDist) - { - Attenuation = int2ALfp(1) - ALfpDiv(ALfpMult(Rolloff,(Distance-MinDist)), (MaxDist - MinDist)); - Attenuation = __max(Attenuation, int2ALfp(0)); - for(i = 0;i < NumSends;i++) - { - RoomAttenuation[i] = int2ALfp(1) - ALfpDiv(ALfpMult(RoomRolloff[i],(Distance-MinDist)),(MaxDist - MinDist)); - RoomAttenuation[i] = __max(RoomAttenuation[i], int2ALfp(0)); - } - } - break; - - case AL_EXPONENT_DISTANCE_CLAMPED: - Distance=__max(Distance,MinDist); - Distance=__min(Distance,MaxDist); - if(MaxDist < MinDist) - break; - //fall-through - case AL_EXPONENT_DISTANCE: - if(Distance > int2ALfp(0) && MinDist > int2ALfp(0)) - { - Attenuation = aluPow(ALfpDiv(Distance,MinDist), (-1*Rolloff)); - for(i = 0;i < NumSends;i++) - RoomAttenuation[i] = aluPow(ALfpDiv(Distance,MinDist), (-1*RoomRolloff[i])); - } - break; - - case AL_NONE: - break; - } - - // Source Gain + Attenuation - DryGain = ALfpMult(SourceVolume, Attenuation); - for(i = 0;i < NumSends;i++) - WetGain[i] = ALfpMult(SourceVolume, RoomAttenuation[i]); - - EffectiveDist = int2ALfp(0); - if(MinDist > int2ALfp(0) && Attenuation < int2ALfp(1)) - EffectiveDist = ALfpMult((ALfpDiv(MinDist,Attenuation) - MinDist),MetersPerUnit); - - // Distance-based air absorption - if(AirAbsorptionFactor > int2ALfp(0) && EffectiveDist > int2ALfp(0)) - { - ALfp absorb; - - // Absorption calculation is done in dB - absorb = ALfpMult(ALfpMult(AirAbsorptionFactor,float2ALfp(AIRABSORBGAINDBHF)), - EffectiveDist); - // Convert dB to linear gain before applying - absorb = aluPow(int2ALfp(10), ALfpDiv(absorb,int2ALfp(20))); - - DryGainHF = ALfpMult(DryGainHF,absorb); - } - - //3. Apply directional soundcones - Angle = ALfpMult(aluAcos(aluDotproduct(Direction,SourceToListener)), float2ALfp(180.0f/M_PI)); - if(Angle >= InnerAngle && Angle <= OuterAngle) - { - ALfp scale; scale = ALfpDiv((Angle-InnerAngle), (OuterAngle-InnerAngle)); - ConeVolume = int2ALfp(1) + ALfpMult((ALSource->flOuterGain - int2ALfp(1)),scale); - ConeHF = (int2ALfp(1)+ALfpMult((OuterGainHF-int2ALfp(1)),scale)); - } - else if(Angle > OuterAngle) - { - ConeVolume = (int2ALfp(1)+(ALSource->flOuterGain-int2ALfp(1))); - ConeHF = (int2ALfp(1)+(OuterGainHF-int2ALfp(1))); - } - else - { - ConeVolume = int2ALfp(1); - ConeHF = int2ALfp(1); - } - - // Apply some high-frequency attenuation for sources behind the listener - // NOTE: This should be aluDotproduct({0,0,-1}, ListenerToSource), however - // that is equivalent to aluDotproduct({0,0,1}, SourceToListener), which is - // the same as SourceToListener[2] - Angle = ALfpMult(aluAcos(SourceToListener[2]), float2ALfp(180.0f/M_PI)); - // Sources within the minimum distance attenuate less - if(OrigDist < MinDist) - Angle = ALfpMult(Angle, ALfpDiv(OrigDist,MinDist)); - if(Angle > int2ALfp(90)) - { - ALfp scale; scale = ALfpDiv((Angle-int2ALfp(90)), float2ALfp(180.1f-90.0f)); // .1 to account for fp errors - ConeHF = ALfpMult(ConeHF, (int2ALfp(1) - ALfpMult(Device->HeadDampen,scale))); - } - - DryGain = ALfpMult(DryGain, ConeVolume); - if(ALSource->DryGainHFAuto) - DryGainHF = ALfpMult(DryGainHF, ConeHF); - - // Clamp to Min/Max Gain - DryGain = __min(DryGain,MaxVolume); - DryGain = __max(DryGain,MinVolume); - - for(i = 0;i < NumSends;i++) - { - ALeffectslot *Slot = ALSource->Send[i].Slot; - - if(!Slot || Slot->effect.type == AL_EFFECT_NULL) - { - ALSource->Params.Send[i].WetGain = int2ALfp(0); - WetGainHF[i] = int2ALfp(1); - continue; - } - - if(Slot->AuxSendAuto) - { - if(ALSource->WetGainAuto) - WetGain[i] = ALfpMult(WetGain[i], ConeVolume); - if(ALSource->WetGainHFAuto) - WetGainHF[i] = ALfpMult(WetGainHF[i], ConeHF); - - // Clamp to Min/Max Gain - WetGain[i] = __min(WetGain[i],MaxVolume); - WetGain[i] = __max(WetGain[i],MinVolume); - - if(Slot->effect.type == AL_EFFECT_REVERB || - Slot->effect.type == AL_EFFECT_EAXREVERB) - { - /* Apply a decay-time transformation to the wet path, based on - * the attenuation of the dry path. - * - * Using the approximate (effective) source to listener - * distance, the initial decay of the reverb effect is - * calculated and applied to the wet path. - */ - WetGain[i] = ALfpMult(WetGain[i], - aluPow(int2ALfp(10), - ALfpDiv(ALfpMult(ALfpDiv(EffectiveDist, - ALfpMult(float2ALfp(SPEEDOFSOUNDMETRESPERSEC), Slot->effect.Reverb.DecayTime)), - int2ALfp(-60)), - int2ALfp(20)))); - - WetGainHF[i] = ALfpMult(WetGainHF[i], - aluPow(Slot->effect.Reverb.AirAbsorptionGainHF, - ALfpMult(AirAbsorptionFactor, EffectiveDist))); - } - } - else - { - /* If the slot's auxiliary send auto is off, the data sent to the - * effect slot is the same as the dry path, sans filter effects */ - WetGain[i] = DryGain; - WetGainHF[i] = DryGainHF; - } - - switch(ALSource->Send[i].WetFilter.type) - { - case AL_FILTER_LOWPASS: - WetGain[i] = ALfpMult(WetGain[i], ALSource->Send[i].WetFilter.Gain); - WetGainHF[i] = ALfpMult(WetGainHF[i], ALSource->Send[i].WetFilter.GainHF); - break; - } - ALSource->Params.Send[i].WetGain = ALfpMult(WetGain[i], ListenerGain); - } - - // Apply filter gains and filters - switch(ALSource->DirectFilter.type) - { - case AL_FILTER_LOWPASS: - DryGain = ALfpMult(DryGain, ALSource->DirectFilter.Gain); - DryGainHF = ALfpMult(DryGainHF, ALSource->DirectFilter.GainHF); - break; - } - DryGain = ALfpMult(DryGain, ListenerGain); - - // Calculate Velocity - Pitch = ALSource->flPitch; - if(DopplerFactor != int2ALfp(0)) - { - ALfp VSS, VLS; - ALfp MaxVelocity; MaxVelocity = ALfpDiv(ALfpMult(SpeedOfSound,DopplerVelocity), - DopplerFactor); - - VSS = aluDotproduct(Velocity, SourceToListener); - if(VSS >= MaxVelocity) - VSS = (MaxVelocity - int2ALfp(1)); - else if(VSS <= -MaxVelocity) - VSS = (-MaxVelocity + int2ALfp(1)); - - VLS = aluDotproduct(ListenerVel, SourceToListener); - if(VLS >= MaxVelocity) - VLS = (MaxVelocity - int2ALfp(1)); - else if(VLS <= -MaxVelocity) - VLS = -MaxVelocity + int2ALfp(1); - - Pitch = ALfpMult(Pitch, - ALfpDiv((ALfpMult(SpeedOfSound,DopplerVelocity) - ALfpMult(DopplerFactor,VLS)), - (ALfpMult(SpeedOfSound,DopplerVelocity) - ALfpMult(DopplerFactor,VSS)))); - } - - BufferListItem = ALSource->queue; - while(BufferListItem != NULL) - { - ALbuffer *ALBuffer; - if((ALBuffer=BufferListItem->buffer) != NULL) - { - ALint maxstep = STACK_DATA_SIZE / FrameSizeFromFmt(ALBuffer->FmtChannels, - ALBuffer->FmtType); - maxstep -= ResamplerPadding[ALSource->Resampler] + - ResamplerPrePadding[ALSource->Resampler] + 1; - maxstep = min(maxstep, INT_MAX>>FRACTIONBITS); - - Pitch = ALfpDiv(ALfpMult(Pitch, int2ALfp(ALBuffer->Frequency)), int2ALfp(Frequency)); - if(Pitch > int2ALfp(maxstep)) - ALSource->Params.Step = maxstep<Params.Step = ALfp2int(ALfpMult(Pitch,float2ALfp(FRACTIONONE))); - if(ALSource->Params.Step == 0) - ALSource->Params.Step = 1; - } - break; - } - BufferListItem = BufferListItem->next; - } - - // Use energy-preserving panning algorithm for multi-speaker playback - length = __max(OrigDist, MinDist); - if(length > int2ALfp(0)) - { - ALfp invlen = ALfpDiv(int2ALfp(1), length); - Position[0] = ALfpMult(Position[0],invlen); - Position[1] = ALfpMult(Position[1],invlen); - Position[2] = ALfpMult(Position[2],invlen); - } - - pos = aluCart2LUTpos((-1*Position[2]), Position[0]); - SpeakerGain = &Device->PanningLUT[MAXCHANNELS * pos]; - - DirGain = aluSqrt((ALfpMult(Position[0],Position[0]) + ALfpMult(Position[2],Position[2]))); - // elevation adjustment for directional gain. this sucks, but - // has low complexity - AmbientGain = aluSqrt(float2ALfp(1.0f/Device->NumChan)); - for(s = 0;s < MAXCHANNELS;s++) - { - ALuint s2; - for(s2 = 0;s2 < MAXCHANNELS;s2++) - ALSource->Params.DryGains[s][s2] = int2ALfp(0); - } - for(s = 0;s < (ALsizei)Device->NumChan;s++) - { - Channel chan = Device->Speaker2Chan[s]; - ALfp gain; gain = AmbientGain + ALfpMult((SpeakerGain[chan]-AmbientGain),DirGain); - ALSource->Params.DryGains[0][chan] = ALfpMult(DryGain, gain); - } - - /* Update filter coefficients. */ - cw = __cos(ALfpDiv(float2ALfp(2.0*M_PI*LOWPASSFREQCUTOFF), int2ALfp(Frequency))); - - /* Spatialized sources use four chained one-pole filters, so we need to - * take the fourth root of the squared gain, which is the same as the - * square root of the base gain. */ - ALSource->Params.iirFilter.coeff = lpCoeffCalc(aluSqrt(DryGainHF), cw); - - for(i = 0;i < NumSends;i++) - { - /* The wet path uses two chained one-pole filters, so take the - * base gain (square root of the squared gain) */ - ALSource->Params.Send[i].iirFilter.coeff = lpCoeffCalc(WetGainHF[i], cw); - } -} - - -static __inline ALfloat aluF2F(ALfp val) -{ - return ALfp2float(val); -} -static __inline ALushort aluF2US(ALfp val) -{ - if(val > int2ALfp(1)) return 65535; - if(val < int2ALfp(-1)) return 0; - return (ALushort)(ALfp2int(ALfpMult(val,int2ALfp(32767))) + 32768); -} -static __inline ALshort aluF2S(ALfp val) -{ - if(val > int2ALfp(1)) return 32767; - if(val < int2ALfp(-1)) return -32768; - return (ALshort)(ALfp2int(ALfpMult(val,int2ALfp(32767)))); -} -static __inline ALubyte aluF2UB(ALfp val) -{ - ALushort i = aluF2US(val); - return i>>8; -} -static __inline ALbyte aluF2B(ALfp val) -{ - ALshort i = aluF2S(val); - return i>>8; -} - -static const Channel MonoChans[] = { FRONT_CENTER }; -static const Channel StereoChans[] = { FRONT_LEFT, FRONT_RIGHT }; -static const Channel QuadChans[] = { FRONT_LEFT, FRONT_RIGHT, - BACK_LEFT, BACK_RIGHT }; -static const Channel X51Chans[] = { FRONT_LEFT, FRONT_RIGHT, - FRONT_CENTER, LFE, - BACK_LEFT, BACK_RIGHT }; -static const Channel X61Chans[] = { FRONT_LEFT, FRONT_LEFT, - FRONT_CENTER, LFE, BACK_CENTER, - SIDE_LEFT, SIDE_RIGHT }; -static const Channel X71Chans[] = { FRONT_LEFT, FRONT_RIGHT, - FRONT_CENTER, LFE, - BACK_LEFT, BACK_RIGHT, - SIDE_LEFT, SIDE_RIGHT }; - -#define DECL_TEMPLATE(T, chans,N, func) \ -static void Write_##T##_##chans(ALCdevice *device, T *buffer, ALuint SamplesToDo)\ -{ \ - ALfp (*DryBuffer)[MAXCHANNELS] = device->DryBuffer; \ - ALfp (*Matrix)[MAXCHANNELS] = device->ChannelMatrix; \ - const ALuint *ChanMap = device->DevChannels; \ - ALuint i, j, c; \ - \ - for(i = 0;i < SamplesToDo;i++) \ - { \ - for(j = 0;j < N;j++) \ - { \ - ALfp samp; samp = int2ALfp(0); \ - for(c = 0;c < MAXCHANNELS;c++) { \ - ALfp m = Matrix[c][chans[j]]; \ - if (m != 0) \ - samp += ALfpMult(DryBuffer[i][c], m); \ - } \ - ((T*)buffer)[ChanMap[chans[j]]] = func(samp); \ - } \ - buffer = ((T*)buffer) + N; \ - } \ -} - -DECL_TEMPLATE(ALfloat, MonoChans,1, aluF2F) -DECL_TEMPLATE(ALfloat, QuadChans,4, aluF2F) -DECL_TEMPLATE(ALfloat, X51Chans,6, aluF2F) -DECL_TEMPLATE(ALfloat, X61Chans,7, aluF2F) -DECL_TEMPLATE(ALfloat, X71Chans,8, aluF2F) - -DECL_TEMPLATE(ALushort, MonoChans,1, aluF2US) -DECL_TEMPLATE(ALushort, QuadChans,4, aluF2US) -DECL_TEMPLATE(ALushort, X51Chans,6, aluF2US) -DECL_TEMPLATE(ALushort, X61Chans,7, aluF2US) -DECL_TEMPLATE(ALushort, X71Chans,8, aluF2US) - -DECL_TEMPLATE(ALshort, MonoChans,1, aluF2S) -DECL_TEMPLATE(ALshort, QuadChans,4, aluF2S) -DECL_TEMPLATE(ALshort, X51Chans,6, aluF2S) -DECL_TEMPLATE(ALshort, X61Chans,7, aluF2S) -DECL_TEMPLATE(ALshort, X71Chans,8, aluF2S) - -DECL_TEMPLATE(ALubyte, MonoChans,1, aluF2UB) -DECL_TEMPLATE(ALubyte, QuadChans,4, aluF2UB) -DECL_TEMPLATE(ALubyte, X51Chans,6, aluF2UB) -DECL_TEMPLATE(ALubyte, X61Chans,7, aluF2UB) -DECL_TEMPLATE(ALubyte, X71Chans,8, aluF2UB) - -DECL_TEMPLATE(ALbyte, MonoChans,1, aluF2B) -DECL_TEMPLATE(ALbyte, QuadChans,4, aluF2B) -DECL_TEMPLATE(ALbyte, X51Chans,6, aluF2B) -DECL_TEMPLATE(ALbyte, X61Chans,7, aluF2B) -DECL_TEMPLATE(ALbyte, X71Chans,8, aluF2B) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T, chans,N, func) \ -static void Write_##T##_##chans(ALCdevice *device, T *buffer, ALuint SamplesToDo)\ -{ \ - ALfp (*DryBuffer)[MAXCHANNELS] = device->DryBuffer; \ - ALfp (*Matrix)[MAXCHANNELS] = device->ChannelMatrix; \ - const ALuint *ChanMap = device->DevChannels; \ - ALuint i, j, c; \ - \ - if(device->Bs2b) \ - { \ - for(i = 0;i < SamplesToDo;i++) \ - { \ - ALfp samples[2] = { int2ALfp(0), int2ALfp(0) }; \ - for(c = 0;c < MAXCHANNELS;c++) \ - { \ - samples[0] += ALfpMult(DryBuffer[i][c],Matrix[c][FRONT_LEFT]); \ - samples[1] += ALfpMult(DryBuffer[i][c],Matrix[c][FRONT_RIGHT]); \ - } \ - bs2b_cross_feed(device->Bs2b, samples); \ - ((T*)buffer)[ChanMap[FRONT_LEFT]] = func(samples[0]); \ - ((T*)buffer)[ChanMap[FRONT_RIGHT]] = func(samples[1]); \ - buffer = ((T*)buffer) + 2; \ - } \ - } \ - else \ - { \ - for(i = 0;i < SamplesToDo;i++) \ - { \ - for(j = 0;j < N;j++) \ - { \ - ALfp samp = int2ALfp(0); \ - for(c = 0;c < MAXCHANNELS;c++) \ - samp += ALfpMult(DryBuffer[i][c], Matrix[c][chans[j]]); \ - ((T*)buffer)[ChanMap[chans[j]]] = func(samp); \ - } \ - buffer = ((T*)buffer) + N; \ - } \ - } \ -} - -DECL_TEMPLATE(ALfloat, StereoChans,2, aluF2F) -DECL_TEMPLATE(ALushort, StereoChans,2, aluF2US) -DECL_TEMPLATE(ALshort, StereoChans,2, aluF2S) -DECL_TEMPLATE(ALubyte, StereoChans,2, aluF2UB) -DECL_TEMPLATE(ALbyte, StereoChans,2, aluF2B) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T, func) \ -static void Write_##T(ALCdevice *device, T *buffer, ALuint SamplesToDo) \ -{ \ - switch(device->FmtChans) \ - { \ - case DevFmtMono: \ - Write_##T##_MonoChans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtStereo: \ - Write_##T##_StereoChans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtQuad: \ - Write_##T##_QuadChans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtX51: \ - Write_##T##_X51Chans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtX61: \ - Write_##T##_X61Chans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtX71: \ - Write_##T##_X71Chans(device, buffer, SamplesToDo); \ - break; \ - } \ -} - -DECL_TEMPLATE(ALfloat, aluF2F) -DECL_TEMPLATE(ALushort, aluF2US) -DECL_TEMPLATE(ALshort, aluF2S) -DECL_TEMPLATE(ALubyte, aluF2UB) -DECL_TEMPLATE(ALbyte, aluF2B) - -#undef DECL_TEMPLATE - -static __inline ALvoid aluMixDataPrivate(ALCdevice *device, ALvoid *buffer, ALsizei size) -{ - ALuint SamplesToDo; - ALeffectslot *ALEffectSlot; - ALCcontext **ctx, **ctx_end; - ALsource **src, **src_end; - int fpuState; - ALuint i, c; - ALsizei e; - -#if defined(HAVE_FESETROUND) - fpuState = fegetround(); - fesetround(FE_TOWARDZERO); -#elif defined(HAVE__CONTROLFP) - fpuState = _controlfp(_RC_CHOP, _MCW_RC); -#else - (void)fpuState; -#endif - - while(size > 0) - { - /* Setup variables */ - SamplesToDo = min(size, BUFFERSIZE); - - /* Clear mixing buffer */ - memset(device->DryBuffer, 0, SamplesToDo*MAXCHANNELS*sizeof(ALfp)); - - SuspendContext(NULL); - ctx = device->Contexts; - ctx_end = ctx + device->NumContexts; - while(ctx != ctx_end) - { - SuspendContext(*ctx); - - src = (*ctx)->ActiveSources; - src_end = src + (*ctx)->ActiveSourceCount; - while(src != src_end) - { - if((*src)->state != AL_PLAYING) - { - --((*ctx)->ActiveSourceCount); - *src = *(--src_end); - continue; - } - - if((*src)->NeedsUpdate) - { - ALsource_Update(*src, *ctx); - (*src)->NeedsUpdate = AL_FALSE; - } - - MixSource(*src, device, SamplesToDo); - src++; - } - - /* effect slot processing */ - for(e = 0;e < (*ctx)->EffectSlotMap.size;e++) - { - ALEffectSlot = (*ctx)->EffectSlotMap.array[e].value; - - for(i = 0;i < SamplesToDo;i++) - { - ALEffectSlot->ClickRemoval[0] -= ALfpDiv(ALEffectSlot->ClickRemoval[0], int2ALfp(256)); - ALEffectSlot->WetBuffer[i] += ALEffectSlot->ClickRemoval[0]; - } - for(i = 0;i < 1;i++) - { - ALEffectSlot->ClickRemoval[i] += ALEffectSlot->PendingClicks[i]; - ALEffectSlot->PendingClicks[i] = int2ALfp(0); - } - - ALEffect_Process(ALEffectSlot->EffectState, ALEffectSlot, - SamplesToDo, ALEffectSlot->WetBuffer, - device->DryBuffer); - - for(i = 0;i < SamplesToDo;i++) - ALEffectSlot->WetBuffer[i] = int2ALfp(0); - } - - ProcessContext(*ctx); - ctx++; - } - ProcessContext(NULL); - - //Post processing loop - for(i = 0;i < SamplesToDo;i++) - { - for(c = 0;c < MAXCHANNELS;c++) - { - device->ClickRemoval[c] -= ALfpDiv(device->ClickRemoval[c], int2ALfp(256)); - device->DryBuffer[i][c] += device->ClickRemoval[c]; - } - } - for(i = 0;i < MAXCHANNELS;i++) - { - device->ClickRemoval[i] += device->PendingClicks[i]; - device->PendingClicks[i] = int2ALfp(0); - } - - switch(device->FmtType) - { - case DevFmtByte: - Write_ALbyte(device, buffer, SamplesToDo); - break; - case DevFmtUByte: - Write_ALubyte(device, buffer, SamplesToDo); - break; - case DevFmtShort: - Write_ALshort(device, buffer, SamplesToDo); - break; - case DevFmtUShort: - Write_ALushort(device, buffer, SamplesToDo); - break; - case DevFmtFloat: - Write_ALfloat(device, buffer, SamplesToDo); - break; - } - - size -= SamplesToDo; - } - -#if defined(HAVE_FESETROUND) - fesetround(fpuState); -#elif defined(HAVE__CONTROLFP) - _controlfp(fpuState, _MCW_RC); -#endif -} - -static inline long timespecdiff(struct timespec *starttime, struct timespec *finishtime) -{ - long usec; - usec=(finishtime->tv_sec-starttime->tv_sec)*1000000; - usec+=(finishtime->tv_nsec-starttime->tv_nsec)/1000; - return usec; -} - -ALvoid aluMixData(ALCdevice *device, ALvoid *buffer, ALsizei size) -{ -#ifdef MAX_SOURCES_LOW - // Profile aluMixDataPrivate to set admission control parameters - static struct timespec ts_start; - static struct timespec ts_end; - long ts_diff; - int time_per_source; - int max_sources_within_deadline; - int mix_deadline_usec; - int max; - - if (alc_num_cores == 0) { - // FIXME(Apportable) this is Linux specific - alc_num_cores = sysconf( _SC_NPROCESSORS_ONLN ); - LOGI("_SC_NPROCESSORS_ONLN=%d", alc_num_cores); - } - - if (alc_num_cores > 1) { - // Allow OpenAL to monopolize one core - mix_deadline_usec = ((size*1000000) / device->Frequency) / 2; - } else { - // Try to cap mixing at 20% CPU - mix_deadline_usec = ((size*1000000) / device->Frequency) / 5; - } - - clock_gettime(CLOCK_MONOTONIC, &ts_start); - aluMixDataPrivate(device, buffer, size); - clock_gettime(CLOCK_MONOTONIC, &ts_end); - - // Time in micro-seconds that aluMixData has taken to run - ts_diff = timespecdiff(&ts_start, &ts_end); - - // Try to adjust the max sources limit adaptively, within a range - if (alc_active_sources > 0) { - time_per_source = max(1, ts_diff / alc_active_sources); - max_sources_within_deadline = mix_deadline_usec / time_per_source; - max = min(max(max_sources_within_deadline, MAX_SOURCES_LOW), MAX_SOURCES_HIGH); - if (max > alc_max_sources) { - alc_max_sources++; - } else if (max < alc_max_sources) { - alc_max_sources = max; - } - } else { - alc_max_sources = MAX_SOURCES_START; - } -#else - aluMixDataPrivate(device, buffer, size); -#endif -} - -ALvoid aluHandleDisconnect(ALCdevice *device) -{ - ALuint i; - - SuspendContext(NULL); - for(i = 0;i < device->NumContexts;i++) - { - ALCcontext *Context = device->Contexts[i]; - ALsource *source; - ALsizei pos; - - SuspendContext(Context); - - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - source = Context->SourceMap.array[pos].value; - if(source->state == AL_PLAYING) - { - source->state = AL_STOPPED; - source->BuffersPlayed = source->BuffersInQueue; - source->position = 0; - source->position_fraction = 0; - } - } - ProcessContext(Context); - } - - device->Connected = ALC_FALSE; - ProcessContext(NULL); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alAuxEffectSlot.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alAuxEffectSlot.h deleted file mode 100644 index 1c592ac8e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alAuxEffectSlot.h +++ /dev/null @@ -1,63 +0,0 @@ -#ifndef _AL_AUXEFFECTSLOT_H_ -#define _AL_AUXEFFECTSLOT_H_ - -#include "AL/al.h" -#include "alEffect.h" -#include "alFilter.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALeffectState ALeffectState; - -typedef struct ALeffectslot -{ - ALeffect effect; - - ALfp Gain; - ALboolean AuxSendAuto; - - ALeffectState *EffectState; - - ALfp WetBuffer[BUFFERSIZE]; - - ALfp ClickRemoval[1]; - ALfp PendingClicks[1]; - - ALuint refcount; - - // Index to itself - ALuint effectslot; - - struct ALeffectslot *next; -} ALeffectslot; - - -ALvoid ReleaseALAuxiliaryEffectSlots(ALCcontext *Context); - - -struct ALeffectState { - ALvoid (*Destroy)(ALeffectState *State); - ALboolean (*DeviceUpdate)(ALeffectState *State, ALCdevice *Device); - ALvoid (*Update)(ALeffectState *State, ALCcontext *Context, const ALeffect *Effect); - ALvoid (*Process)(ALeffectState *State, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]); -}; - -ALeffectState *NoneCreate(void); -ALeffectState *EAXVerbCreate(void); -ALeffectState *VerbCreate(void); -ALeffectState *EchoCreate(void); -ALeffectState *ModulatorCreate(void); - -#define ALEffect_Destroy(a) ((a)->Destroy((a))) -#define ALEffect_DeviceUpdate(a,b) ((a)->DeviceUpdate((a),(b))) -#define ALEffect_Update(a,b,c) ((a)->Update((a),(b),(c))) -#define ALEffect_Process(a,b,c,d,e) ((a)->Process((a),(b),(c),(d),(e))) - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alBuffer.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alBuffer.h deleted file mode 100644 index e22d839d5..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alBuffer.h +++ /dev/null @@ -1,98 +0,0 @@ -#ifndef _AL_BUFFER_H_ -#define _AL_BUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -/* Input formats (some are currently theoretical) */ -enum UserFmtType { - UserFmtByte, /* AL_BYTE */ - UserFmtUByte, /* AL_UNSIGNED_BYTE */ - UserFmtShort, /* AL_SHORT */ - UserFmtUShort, /* AL_UNSIGNED_SHORT */ - UserFmtInt, /* AL_INT */ - UserFmtUInt, /* AL_UNSIGNED_INT */ - UserFmtFloat, /* AL_FLOAT */ - UserFmtDouble, /* AL_DOUBLE */ - UserFmtMulaw, /* AL_MULAW */ - UserFmtIMA4, /* AL_IMA4 */ -}; -enum UserFmtChannels { - UserFmtMono, /* AL_MONO */ - UserFmtStereo, /* AL_STEREO */ - UserFmtRear, /* AL_REAR */ - UserFmtQuad, /* AL_QUAD */ - UserFmtX51, /* AL_5POINT1 (WFX order) */ - UserFmtX61, /* AL_6POINT1 (WFX order) */ - UserFmtX71, /* AL_7POINT1 (WFX order) */ -}; - -ALboolean DecomposeUserFormat(ALenum format, enum UserFmtChannels *chans, - enum UserFmtType *type); -ALuint BytesFromUserFmt(enum UserFmtType type); -ALuint ChannelsFromUserFmt(enum UserFmtChannels chans); -static __inline ALuint FrameSizeFromUserFmt(enum UserFmtChannels chans, - enum UserFmtType type) -{ - return ChannelsFromUserFmt(chans) * BytesFromUserFmt(type); -} - - -/* Storable formats */ -enum FmtType { - FmtUByte = UserFmtUByte, - FmtShort = UserFmtShort, - FmtFloat = UserFmtFloat, -}; -enum FmtChannels { - FmtMono = UserFmtMono, - FmtStereo = UserFmtStereo, - FmtRear = UserFmtRear, - FmtQuad = UserFmtQuad, - FmtX51 = UserFmtX51, - FmtX61 = UserFmtX61, - FmtX71 = UserFmtX71, -}; - -ALboolean DecomposeFormat(ALenum format, enum FmtChannels *chans, enum FmtType *type); -ALuint BytesFromFmt(enum FmtType type); -ALuint ChannelsFromFmt(enum FmtChannels chans); -static __inline ALuint FrameSizeFromFmt(enum FmtChannels chans, enum FmtType type) -{ - return ChannelsFromFmt(chans) * BytesFromFmt(type); -} - - -typedef struct ALbuffer -{ - ALvoid *data; - ALsizei size; - - ALsizei Frequency; - enum FmtChannels FmtChannels; - enum FmtType FmtType; - - enum UserFmtChannels OriginalChannels; - enum UserFmtType OriginalType; - ALsizei OriginalSize; - ALsizei OriginalAlign; - - ALsizei LoopStart; - ALsizei LoopEnd; - - ALuint refcount; // Number of sources using this buffer (deletion can only occur when this is 0) - - // Index to itself - ALuint buffer; -} ALbuffer; - -ALvoid ReleaseALBuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alDatabuffer.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alDatabuffer.h deleted file mode 100644 index 221855283..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alDatabuffer.h +++ /dev/null @@ -1,33 +0,0 @@ -#ifndef _AL_DATABUFFER_H_ -#define _AL_DATABUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define UNMAPPED 0 -#define MAPPED 1 - -typedef struct ALdatabuffer -{ - ALubyte *data; - ALintptrEXT size; - - ALenum state; - ALenum usage; - - /* Index to self */ - ALuint databuffer; - - struct ALdatabuffer *next; -} ALdatabuffer; - -ALvoid ReleaseALDatabuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alEffect.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alEffect.h deleted file mode 100644 index 041aa3edc..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alEffect.h +++ /dev/null @@ -1,83 +0,0 @@ -// NOTE: The effect structure is getting too large, it may be a good idea to -// start using a union or another form of unified storage. -#ifndef _AL_EFFECT_H_ -#define _AL_EFFECT_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -enum { - EAXREVERB = 0, - REVERB, - ECHO, - MODULATOR, - - MAX_EFFECTS -}; -extern ALboolean DisabledEffects[MAX_EFFECTS]; - -typedef struct ALeffect -{ - // Effect type (AL_EFFECT_NULL, ...) - ALenum type; - - struct { - // Shared Reverb Properties - ALfp Density; - ALfp Diffusion; - ALfp Gain; - ALfp GainHF; - ALfp DecayTime; - ALfp DecayHFRatio; - ALfp ReflectionsGain; - ALfp ReflectionsDelay; - ALfp LateReverbGain; - ALfp LateReverbDelay; - ALfp AirAbsorptionGainHF; - ALfp RoomRolloffFactor; - ALboolean DecayHFLimit; - - // Additional EAX Reverb Properties - ALfp GainLF; - ALfp DecayLFRatio; - ALfp ReflectionsPan[3]; - ALfp LateReverbPan[3]; - ALfp EchoTime; - ALfp EchoDepth; - ALfp ModulationTime; - ALfp ModulationDepth; - ALfp HFReference; - ALfp LFReference; - } Reverb; - - struct { - ALfp Delay; - ALfp LRDelay; - - ALfp Damping; - ALfp Feedback; - - ALfp Spread; - } Echo; - - struct { - ALfp Frequency; - ALfp HighPassCutoff; - ALint Waveform; - } Modulator; - - // Index to itself - ALuint effect; -} ALeffect; - - -ALvoid ReleaseALEffects(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alError.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alError.h deleted file mode 100644 index 7976e50f9..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alError.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef _AL_ERROR_H_ -#define _AL_ERROR_H_ - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -ALvoid alSetError(ALCcontext *Context, ALenum errorCode); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alFilter.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alFilter.h deleted file mode 100644 index 3b17b1f1e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alFilter.h +++ /dev/null @@ -1,139 +0,0 @@ -#ifndef _AL_FILTER_H_ -#define _AL_FILTER_H_ - -#include "AL/al.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct { - ALfp coeff; -#ifndef _MSC_VER - ALfp history[0]; -#else - ALfp history[1]; -#endif -} FILTER; - -static __inline ALfp lpFilter4P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - output = output + ALfpMult((history[2]-output),a); - history[2] = output; - output = output + ALfpMult((history[3]-output),a); - history[3] = output; - - return output; -} - -static __inline ALfp lpFilter2P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - - return output; -} - -static __inline ALfp lpFilter1P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - - return output; -} - -static __inline ALfp lpFilter4PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - output = output + ALfpMult((history[2]-output),a); - output = output + ALfpMult((history[3]-output),a); - - return output; -} - -static __inline ALfp lpFilter2PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - - return output; -} - -static __inline ALfp lpFilter1PC(FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - - return output; -} - -/* Calculates the low-pass filter coefficient given the pre-scaled gain and - * cos(w) value. Note that g should be pre-scaled (sqr(gain) for one-pole, - * sqrt(gain) for four-pole, etc) */ -static __inline ALfp lpCoeffCalc(ALfp g, ALfp cw) -{ - ALfp a = int2ALfp(0); - - /* Be careful with gains < 0.01, as that causes the coefficient - * head towards 1, which will flatten the signal */ - g = __max(g, float2ALfp(0.01f)); - if(g < float2ALfp(0.9999f)) /* 1-epsilon */ { - ALfp tmp; tmp = ALfpMult(ALfpMult(int2ALfp(2),g),(int2ALfp(1)-cw)) - ALfpMult(ALfpMult(g,g),(int2ALfp(1) - ALfpMult(cw,cw))); - a = ALfpDiv((int2ALfp(1) - ALfpMult(g,cw) - aluSqrt(tmp)), (int2ALfp(1) - g)); - } - - return a; -} - - -typedef struct ALfilter -{ - // Filter type (AL_FILTER_NULL, ...) - ALenum type; - - ALfp Gain; - ALfp GainHF; - - // Index to itself - ALuint filter; -} ALfilter; - - -ALvoid ReleaseALFilters(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alListener.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alListener.h deleted file mode 100644 index a2fc3ba0f..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alListener.h +++ /dev/null @@ -1,24 +0,0 @@ -#ifndef _AL_LISTENER_H_ -#define _AL_LISTENER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALlistener_struct -{ - ALfp Position[3]; - ALfp Velocity[3]; - ALfp Forward[3]; - ALfp Up[3]; - ALfp Gain; - ALfp MetersPerUnit; -} ALlistener; - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alMain.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alMain.h deleted file mode 100644 index 61448b205..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alMain.h +++ /dev/null @@ -1,503 +0,0 @@ -#ifndef AL_MAIN_H -#define AL_MAIN_H - -#include -#include -#include - -#ifdef HAVE_FENV_H -#include -#endif - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#ifndef AL_EXT_sample_buffer_object -#define AL_EXT_sample_buffer_object 1 -typedef ptrdiff_t ALintptrEXT; -typedef ptrdiff_t ALsizeiptrEXT; -#define AL_SAMPLE_SOURCE_EXT 0x1040 -#define AL_SAMPLE_SINK_EXT 0x1041 -#define AL_READ_ONLY_EXT 0x1042 -#define AL_WRITE_ONLY_EXT 0x1043 -#define AL_READ_WRITE_EXT 0x1044 -#define AL_STREAM_WRITE_EXT 0x1045 -#define AL_STREAM_READ_EXT 0x1046 -#define AL_STREAM_COPY_EXT 0x1047 -#define AL_STATIC_WRITE_EXT 0x1048 -#define AL_STATIC_READ_EXT 0x1049 -#define AL_STATIC_COPY_EXT 0x104A -#define AL_DYNAMIC_WRITE_EXT 0x104B -#define AL_DYNAMIC_READ_EXT 0x104C -#define AL_DYNAMIC_COPY_EXT 0x104D -typedef ALvoid (AL_APIENTRY*PFNALGENDATABUFFERSEXTPROC)(ALsizei n,ALuint *puiBuffers); -typedef ALvoid (AL_APIENTRY*PFNALDELETEDATABUFFERSEXTPROC)(ALsizei n, const ALuint *puiBuffers); -typedef ALboolean (AL_APIENTRY*PFNALISDATABUFFEREXTPROC)(ALuint uiBuffer); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERDATAEXTPROC)(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat flValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, const ALfloat* flValues); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint lValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, const ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat *pflValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, ALfloat* pflValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint *plValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALSELECTDATABUFFEREXTPROC)(ALenum target, ALuint uiBuffer); -typedef ALvoid* (AL_APIENTRY*PFNALMAPDATABUFFEREXTPROC)(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -typedef ALvoid (AL_APIENTRY*PFNALUNMAPDATABUFFEREXTPROC)(ALuint uiBuffer); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenDatabuffersEXT(ALsizei n,ALuint *puiBuffers); -AL_API ALvoid AL_APIENTRY alDeleteDatabuffersEXT(ALsizei n, const ALuint *puiBuffers); -AL_API ALboolean AL_APIENTRY alIsDatabufferEXT(ALuint uiBuffer); -AL_API ALvoid AL_APIENTRY alDatabufferDataEXT(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -AL_API ALvoid AL_APIENTRY alDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *data); -AL_API ALvoid AL_APIENTRY alGetDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *data); -AL_API ALvoid AL_APIENTRY alDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alDatabufferfvEXT(ALuint buffer, ALenum eParam, const ALfloat* flValues); -AL_API ALvoid AL_APIENTRY alDatabufferiEXT(ALuint buffer, ALenum eParam, ALint lValue); -AL_API ALvoid AL_APIENTRY alDatabufferivEXT(ALuint buffer, ALenum eParam, const ALint* plValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferfvEXT(ALuint buffer, ALenum eParam, ALfloat* pflValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferiEXT(ALuint buffer, ALenum eParam, ALint *plValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferivEXT(ALuint buffer, ALenum eParam, ALint* plValues); -AL_API ALvoid AL_APIENTRY alSelectDatabufferEXT(ALenum target, ALuint uiBuffer); -AL_API ALvoid* AL_APIENTRY alMapDatabufferEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -AL_API ALvoid AL_APIENTRY alUnmapDatabufferEXT(ALuint uiBuffer); -#endif -#endif - - -#if defined(HAVE_STDINT_H) -#include -typedef int64_t ALint64; -typedef uint64_t ALuint64; -#elif defined(HAVE___INT64) -typedef __int64 ALint64; -typedef unsigned __int64 ALuint64; -#elif (SIZEOF_LONG == 8) -typedef long ALint64; -typedef unsigned long ALuint64; -#elif (SIZEOF_LONG_LONG == 8) -typedef long long ALint64; -typedef unsigned long long ALuint64; -#endif - -#ifdef HAVE_GCC_FORMAT -#define PRINTF_STYLE(x, y) __attribute__((format(__printf__, (x), (y)))) -#else -#define PRINTF_STYLE(x, y) -#endif - -#ifdef _WIN32 - -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif -#include - -typedef DWORD tls_type; -#define tls_create(x) (*(x) = TlsAlloc()) -#define tls_delete(x) TlsFree((x)) -#define tls_get(x) TlsGetValue((x)) -#define tls_set(x, a) TlsSetValue((x), (a)) - -#else - -#include -#include -#include -#ifdef HAVE_PTHREAD_NP_H -#include -#endif -#include -#include -#include - -#define IsBadWritePtr(a,b) ((a) == NULL && (b) != 0) - -typedef pthread_key_t tls_type; -#define tls_create(x) pthread_key_create((x), NULL) -#define tls_delete(x) pthread_key_delete((x)) -#define tls_get(x) pthread_getspecific((x)) -#define tls_set(x, a) pthread_setspecific((x), (a)) - -typedef pthread_mutex_t CRITICAL_SECTION; -static __inline void EnterCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_lock(cs); - assert(ret == 0); -} -static __inline void LeaveCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_unlock(cs); - assert(ret == 0); -} -static __inline void InitializeCriticalSection(CRITICAL_SECTION *cs) -{ - pthread_mutexattr_t attrib; - int ret; - - ret = pthread_mutexattr_init(&attrib); - assert(ret == 0); - - ret = pthread_mutexattr_settype(&attrib, PTHREAD_MUTEX_RECURSIVE); -#ifdef HAVE_PTHREAD_NP_H - if(ret != 0) - ret = pthread_mutexattr_setkind_np(&attrib, PTHREAD_MUTEX_RECURSIVE); -#endif - assert(ret == 0); - ret = pthread_mutex_init(cs, &attrib); - assert(ret == 0); - - pthread_mutexattr_destroy(&attrib); -} - -static __inline void DeleteCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_destroy(cs); - assert(ret == 0); -} - -/* NOTE: This wrapper isn't quite accurate as it returns an ALuint, as opposed - * to the expected DWORD. Both are defined as unsigned 32-bit types, however. - * Additionally, Win32 is supposed to measure the time since Windows started, - * as opposed to the actual time. */ -static __inline ALuint timeGetTime(void) -{ -#if _POSIX_TIMERS > 0 - struct timespec ts; - int ret = -1; - -#if defined(_POSIX_MONOTONIC_CLOCK) && (_POSIX_MONOTONIC_CLOCK >= 0) -#if _POSIX_MONOTONIC_CLOCK == 0 - static int hasmono = 0; - if(hasmono > 0 || (hasmono == 0 && - (hasmono=sysconf(_SC_MONOTONIC_CLOCK)) > 0)) -#endif - ret = clock_gettime(CLOCK_MONOTONIC, &ts); -#endif - if(ret != 0) - ret = clock_gettime(CLOCK_REALTIME, &ts); - assert(ret == 0); - - return ts.tv_nsec/1000000 + ts.tv_sec*1000; -#else - struct timeval tv; - int ret; - - ret = gettimeofday(&tv, NULL); - assert(ret == 0); - - return tv.tv_usec/1000 + tv.tv_sec*1000; -#endif -} - -static __inline void Sleep(ALuint t) -{ - struct timespec tv, rem; - tv.tv_nsec = (t*1000000)%1000000000; - tv.tv_sec = t/1000; - - while(nanosleep(&tv, &rem) == -1 && errno == EINTR) - tv = rem; -} -#define min(x,y) (((x)<(y))?(x):(y)) -#define max(x,y) (((x)>(y))?(x):(y)) -#endif - -#include "alListener.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - - -#define SWMIXER_OUTPUT_RATE 44100 - -#define SPEEDOFSOUNDMETRESPERSEC (343.3f) -#define AIRABSORBGAINDBHF (-0.05f) - -#define LOWPASSFREQCUTOFF (5000) - -#define DEFAULT_HEAD_DAMPEN (0.25f) - - -// Find the next power-of-2 for non-power-of-2 numbers. -static __inline ALuint NextPowerOf2(ALuint value) -{ - ALuint powerOf2 = 1; - - if(value) - { - value--; - while(value) - { - value >>= 1; - powerOf2 <<= 1; - } - } - return powerOf2; -} - - -typedef struct { - ALCboolean (*OpenPlayback)(ALCdevice*, const ALCchar*); - void (*ClosePlayback)(ALCdevice*); - ALCboolean (*ResetPlayback)(ALCdevice*); - void (*StopPlayback)(ALCdevice*); - - ALCboolean (*OpenCapture)(ALCdevice*, const ALCchar*); - void (*CloseCapture)(ALCdevice*); - void (*StartCapture)(ALCdevice*); - void (*StopCapture)(ALCdevice*); - void (*CaptureSamples)(ALCdevice*, void*, ALCuint); - ALCuint (*AvailableSamples)(ALCdevice*); -} BackendFuncs; - -enum { - DEVICE_PROBE, - ALL_DEVICE_PROBE, - CAPTURE_DEVICE_PROBE -}; - -void alc_alsa_init(BackendFuncs *func_list); -void alc_alsa_deinit(void); -void alc_alsa_probe(int type); -void alc_oss_init(BackendFuncs *func_list); -void alc_oss_deinit(void); -void alc_oss_probe(int type); -void alc_solaris_init(BackendFuncs *func_list); -void alc_solaris_deinit(void); -void alc_solaris_probe(int type); -void alcDSoundInit(BackendFuncs *func_list); -void alcDSoundDeinit(void); -void alcDSoundProbe(int type); -void alcWinMMInit(BackendFuncs *FuncList); -void alcWinMMDeinit(void); -void alcWinMMProbe(int type); -void alc_pa_init(BackendFuncs *func_list); -void alc_pa_deinit(void); -void alc_pa_probe(int type); -void alc_wave_init(BackendFuncs *func_list); -void alc_wave_deinit(void); -void alc_wave_probe(int type); -void alc_pulse_init(BackendFuncs *func_list); -void alc_pulse_deinit(void); -void alc_pulse_probe(int type); -void alc_audiotrack_init(BackendFuncs *func_list); -void alc_audiotrack_deinit(void); -void alc_audiotrack_probe(int type); -void alc_opensles_init(BackendFuncs *func_list); -void alc_opensles_deinit(void); -void alc_opensles_probe(int type); -void alc_null_init(BackendFuncs *func_list); -void alc_null_deinit(void); -void alc_null_probe(int type); - - -typedef struct UIntMap { - struct { - ALuint key; - ALvoid *value; - } *array; - ALsizei size; - ALsizei maxsize; -} UIntMap; - -void InitUIntMap(UIntMap *map); -void ResetUIntMap(UIntMap *map); -ALenum InsertUIntMapEntry(UIntMap *map, ALuint key, ALvoid *value); -void RemoveUIntMapKey(UIntMap *map, ALuint key); -ALvoid *LookupUIntMapKey(UIntMap *map, ALuint key); - -/* Device formats */ -enum DevFmtType { - DevFmtByte, /* AL_BYTE */ - DevFmtUByte, /* AL_UNSIGNED_BYTE */ - DevFmtShort, /* AL_SHORT */ - DevFmtUShort, /* AL_UNSIGNED_SHORT */ - DevFmtFloat, /* AL_FLOAT */ -}; -enum DevFmtChannels { - DevFmtMono, /* AL_MONO */ - DevFmtStereo, /* AL_STEREO */ - DevFmtQuad, /* AL_QUAD */ - DevFmtX51, /* AL_5POINT1 */ - DevFmtX61, /* AL_6POINT1 */ - DevFmtX71, /* AL_7POINT1 */ -}; - -ALuint BytesFromDevFmt(enum DevFmtType type); -ALuint ChannelsFromDevFmt(enum DevFmtChannels chans); -static __inline ALuint FrameSizeFromDevFmt(enum DevFmtChannels chans, - enum DevFmtType type) -{ - return ChannelsFromDevFmt(chans) * BytesFromDevFmt(type); -} - - -struct ALCdevice_struct -{ - ALCboolean Connected; - ALboolean IsCaptureDevice; - - ALuint Frequency; - ALuint UpdateSize; - ALuint NumUpdates; - enum DevFmtChannels FmtChans; - enum DevFmtType FmtType; - - ALCchar *szDeviceName; - - ALCenum LastError; - - // Maximum number of sources that can be created - ALuint MaxNoOfSources; - // Maximum number of slots that can be created - ALuint AuxiliaryEffectSlotMax; - - ALCuint NumMonoSources; - ALCuint NumStereoSources; - ALuint NumAuxSends; - - // Map of Buffers for this device - UIntMap BufferMap; - - // Map of Effects for this device - UIntMap EffectMap; - - // Map of Filters for this device - UIntMap FilterMap; - - // Map of Databuffers for this device - UIntMap DatabufferMap; - - // Stereo-to-binaural filter - struct bs2b *Bs2b; - ALCint Bs2bLevel; - - // Simulated dampening from head occlusion - ALfp HeadDampen; - - // Duplicate stereo sources on the side/rear channels - ALboolean DuplicateStereo; - - // Dry path buffer mix - ALfp DryBuffer[BUFFERSIZE][MAXCHANNELS]; - - ALuint DevChannels[MAXCHANNELS]; - - ALfp ChannelMatrix[MAXCHANNELS][MAXCHANNELS]; - - Channel Speaker2Chan[MAXCHANNELS]; - ALfp PanningLUT[MAXCHANNELS * LUT_NUM]; - ALuint NumChan; - - ALfp ClickRemoval[MAXCHANNELS]; - ALfp PendingClicks[MAXCHANNELS]; - - // Contexts created on this device - ALCcontext **Contexts; - ALuint NumContexts; - - BackendFuncs *Funcs; - void *ExtraData; // For the backend's use - - ALCdevice *next; -}; - -#define ALCdevice_OpenPlayback(a,b) ((a)->Funcs->OpenPlayback((a), (b))) -#define ALCdevice_ClosePlayback(a) ((a)->Funcs->ClosePlayback((a))) -#define ALCdevice_ResetPlayback(a) ((a)->Funcs->ResetPlayback((a))) -#define ALCdevice_StopPlayback(a) ((a)->Funcs->StopPlayback((a))) -#define ALCdevice_OpenCapture(a,b) ((a)->Funcs->OpenCapture((a), (b))) -#define ALCdevice_CloseCapture(a) ((a)->Funcs->CloseCapture((a))) -#define ALCdevice_StartCapture(a) ((a)->Funcs->StartCapture((a))) -#define ALCdevice_StopCapture(a) ((a)->Funcs->StopCapture((a))) -#define ALCdevice_CaptureSamples(a,b,c) ((a)->Funcs->CaptureSamples((a), (b), (c))) -#define ALCdevice_AvailableSamples(a) ((a)->Funcs->AvailableSamples((a))) - -struct ALCcontext_struct -{ - ALlistener Listener; - - UIntMap SourceMap; - UIntMap EffectSlotMap; - - struct ALdatabuffer *SampleSource; - struct ALdatabuffer *SampleSink; - - ALenum LastError; - - ALboolean Suspended; - - ALenum DistanceModel; - ALboolean SourceDistanceModel; - - ALfp DopplerFactor; - ALfp DopplerVelocity; - ALfp flSpeedOfSound; - - struct ALsource **ActiveSources; - ALsizei ActiveSourceCount; - ALsizei MaxActiveSources; - - // Apportable Extension - ALsizei PrioritySlots; - - ALCdevice *Device; - const ALCchar *ExtensionList; - - ALCcontext *next; -}; - -void AppendDeviceList(const ALCchar *name); -void AppendAllDeviceList(const ALCchar *name); -void AppendCaptureDeviceList(const ALCchar *name); - -ALCvoid alcSetError(ALCdevice *device, ALenum errorCode); - -ALCvoid SuspendContext(ALCcontext *context); -ALCvoid ProcessContext(ALCcontext *context); - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr); -ALuint StopThread(ALvoid *thread); - -ALCcontext *GetContextSuspended(void); - -typedef struct RingBuffer RingBuffer; -RingBuffer *CreateRingBuffer(ALsizei frame_size, ALsizei length); -void DestroyRingBuffer(RingBuffer *ring); -ALsizei RingBufferSize(RingBuffer *ring); -void WriteRingBuffer(RingBuffer *ring, const ALubyte *data, ALsizei len); -void ReadRingBuffer(RingBuffer *ring, ALubyte *data, ALsizei len); - -void ReadALConfig(void); -void FreeALConfig(void); -int ConfigValueExists(const char *blockName, const char *keyName); -const char *GetConfigValue(const char *blockName, const char *keyName, const char *def); -int GetConfigValueInt(const char *blockName, const char *keyName, int def); -float GetConfigValueFloat(const char *blockName, const char *keyName, float def); -int GetConfigValueBool(const char *blockName, const char *keyName, int def); - -void SetRTPriority(void); - -void SetDefaultChannelOrder(ALCdevice *device); -void SetDefaultWFXChannelOrder(ALCdevice *device); - -void al_print(const char *fname, unsigned int line, const char *fmt, ...) - PRINTF_STYLE(3,4); -#define AL_PRINT(...) al_print(__FILE__, __LINE__, __VA_ARGS__) - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alSource.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alSource.h deleted file mode 100644 index b4a91e9d1..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alSource.h +++ /dev/null @@ -1,124 +0,0 @@ -#ifndef _AL_SOURCE_H_ -#define _AL_SOURCE_H_ - -#define MAX_SENDS 4 - -#include "alFilter.h" -#include "alu.h" -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - POINT_RESAMPLER = 0, - LINEAR_RESAMPLER, - CUBIC_RESAMPLER, - - RESAMPLER_MAX, - RESAMPLER_MIN = -1, - RESAMPLER_DEFAULT = LINEAR_RESAMPLER -} resampler_t; -extern resampler_t DefaultResampler; - -extern const ALsizei ResamplerPadding[RESAMPLER_MAX]; -extern const ALsizei ResamplerPrePadding[RESAMPLER_MAX]; - - -typedef struct ALbufferlistitem -{ - struct ALbuffer *buffer; - struct ALbufferlistitem *next; - struct ALbufferlistitem *prev; -} ALbufferlistitem; - -typedef struct ALsource -{ - ALfp flPitch; - ALfp flGain; - ALfp flOuterGain; - ALfp flMinGain; - ALfp flMaxGain; - ALfp flInnerAngle; - ALfp flOuterAngle; - ALfp flRefDistance; - ALfp flMaxDistance; - ALfp flRollOffFactor; - ALfp vPosition[3]; - ALfp vVelocity[3]; - ALfp vOrientation[3]; - ALboolean bHeadRelative; - ALboolean bLooping; - ALenum DistanceModel; - - // Apportably Extension - ALuint priority; - - resampler_t Resampler; - - ALenum state; - ALuint position; - ALuint position_fraction; - - struct ALbuffer *Buffer; - - ALbufferlistitem *queue; // Linked list of buffers in queue - ALuint BuffersInQueue; // Number of buffers in queue - ALuint BuffersPlayed; // Number of buffers played on this loop - - ALfilter DirectFilter; - - struct { - struct ALeffectslot *Slot; - ALfilter WetFilter; - } Send[MAX_SENDS]; - - ALboolean DryGainHFAuto; - ALboolean WetGainAuto; - ALboolean WetGainHFAuto; - ALfp OuterGainHF; - - ALfp AirAbsorptionFactor; - ALfp RoomRolloffFactor; - ALfp DopplerFactor; - - ALint lOffset; - ALint lOffsetType; - - // Source Type (Static, Streaming, or Undetermined) - ALint lSourceType; - - // Current target parameters used for mixing - ALboolean NeedsUpdate; - struct { - ALint Step; - - /* A mixing matrix. First subscript is the channel number of the input - * data (regardless of channel configuration) and the second is the - * channel target (eg. FRONT_LEFT) */ - ALfp DryGains[MAXCHANNELS][MAXCHANNELS]; - FILTER iirFilter; - ALfp history[MAXCHANNELS*2]; - - struct { - ALfp WetGain; - FILTER iirFilter; - ALfp history[MAXCHANNELS]; - } Send[MAX_SENDS]; - } Params; - - ALvoid (*Update)(struct ALsource *self, const ALCcontext *context); - - // Index to itself - ALuint source; -} ALsource; -#define ALsource_Update(s,a) ((s)->Update(s,a)) - -ALvoid ReleaseALSources(ALCcontext *Context); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alState.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alState.h deleted file mode 100644 index 332176b03..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alState.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef _AL_STATE_H_ -#define _AL_STATE_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alThunk.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alThunk.h deleted file mode 100644 index 902f00e54..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alThunk.h +++ /dev/null @@ -1,42 +0,0 @@ -#ifndef _AL_THUNK_H_ -#define _AL_THUNK_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -void alThunkInit(void); -void alThunkExit(void); -ALuint alThunkAddEntry(ALvoid *ptr); -void alThunkRemoveEntry(ALuint index); -ALvoid *alThunkLookupEntry(ALuint index); - -#if (SIZEOF_VOIDP > SIZEOF_UINT) - -#define ALTHUNK_INIT() alThunkInit() -#define ALTHUNK_EXIT() alThunkExit() -#define ALTHUNK_ADDENTRY(p) alThunkAddEntry(p) -#define ALTHUNK_REMOVEENTRY(i) alThunkRemoveEntry(i) -#define ALTHUNK_LOOKUPENTRY(i) alThunkLookupEntry(i) - -#else - -#define ALTHUNK_INIT() -#define ALTHUNK_EXIT() -#define ALTHUNK_ADDENTRY(p) ((ALuint)p) -#define ALTHUNK_REMOVEENTRY(i) ((ALvoid)i) -#define ALTHUNK_LOOKUPENTRY(i) ((ALvoid*)(i)) - -#endif // (SIZEOF_VOIDP > SIZEOF_INT) - -#ifdef __cplusplus -} -#endif - -#endif //_AL_THUNK_H_ - diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alcConfig.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alcConfig.c deleted file mode 100644 index 847e5d13f..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alcConfig.c +++ /dev/null @@ -1,338 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifdef _WIN32 -#ifdef __MINGW64__ -#define _WIN32_IE 0x501 -#else -#define _WIN32_IE 0x400 -#endif -#endif - -#include "config.h" - -#include -#include -#include -#include - -#include "alMain.h" - -#ifdef _WIN32_IE -#include -#endif - -typedef struct ConfigEntry { - char *key; - char *value; -} ConfigEntry; - -typedef struct ConfigBlock { - char *name; - ConfigEntry *entries; - size_t entryCount; -} ConfigBlock; - -static ConfigBlock *cfgBlocks; -static size_t cfgCount; - -static char buffer[1024]; - -static void LoadConfigFromFile(FILE *f) -{ - ConfigBlock *curBlock = cfgBlocks; - ConfigEntry *ent; - - while(fgets(buffer, sizeof(buffer), f)) - { - size_t i = 0; - - while(isspace(buffer[i])) - i++; - if(!buffer[i] || buffer[i] == '#') - continue; - - memmove(buffer, buffer+i, strlen(buffer+i)+1); - - if(buffer[0] == '[') - { - ConfigBlock *nextBlock; - - i = 1; - while(buffer[i] && buffer[i] != ']') - i++; - - if(!buffer[i]) - { - AL_PRINT("config parse error: bad line \"%s\"\n", buffer); - continue; - } - buffer[i] = 0; - - do { - i++; - if(buffer[i] && !isspace(buffer[i])) - { - if(buffer[i] != '#') - AL_PRINT("config warning: extra data after block: \"%s\"\n", buffer+i); - break; - } - } while(buffer[i]); - - nextBlock = NULL; - for(i = 0;i < cfgCount;i++) - { - if(strcasecmp(cfgBlocks[i].name, buffer+1) == 0) - { - nextBlock = cfgBlocks+i; -// AL_PRINT("found block '%s'\n", nextBlock->name); - break; - } - } - - if(!nextBlock) - { - nextBlock = realloc(cfgBlocks, (cfgCount+1)*sizeof(ConfigBlock)); - if(!nextBlock) - { - AL_PRINT("config parse error: error reallocating config blocks\n"); - continue; - } - cfgBlocks = nextBlock; - nextBlock = cfgBlocks+cfgCount; - cfgCount++; - - nextBlock->name = strdup(buffer+1); - nextBlock->entries = NULL; - nextBlock->entryCount = 0; - -// AL_PRINT("found new block '%s'\n", nextBlock->name); - } - curBlock = nextBlock; - continue; - } - - /* Look for the option name */ - i = 0; - while(buffer[i] && buffer[i] != '#' && buffer[i] != '=' && - !isspace(buffer[i])) - i++; - - if(!buffer[i] || buffer[i] == '#' || i == 0) - { - AL_PRINT("config parse error: malformed option line: \"%s\"\n", buffer); - continue; - } - - /* Seperate the option */ - if(buffer[i] != '=') - { - buffer[i++] = 0; - - while(isspace(buffer[i])) - i++; - if(buffer[i] != '=') - { - AL_PRINT("config parse error: option without a value: \"%s\"\n", buffer); - continue; - } - } - /* Find the start of the value */ - buffer[i++] = 0; - while(isspace(buffer[i])) - i++; - - /* Check if we already have this option set */ - ent = curBlock->entries; - while((size_t)(ent-curBlock->entries) < curBlock->entryCount) - { - if(strcasecmp(ent->key, buffer) == 0) - break; - ent++; - } - - if((size_t)(ent-curBlock->entries) >= curBlock->entryCount) - { - /* Allocate a new option entry */ - ent = realloc(curBlock->entries, (curBlock->entryCount+1)*sizeof(ConfigEntry)); - if(!ent) - { - AL_PRINT("config parse error: error reallocating config entries\n"); - continue; - } - curBlock->entries = ent; - ent = curBlock->entries + curBlock->entryCount; - curBlock->entryCount++; - - ent->key = strdup(buffer); - ent->value = NULL; - } - - /* Look for the end of the line (Null term, new-line, or #-symbol) and - eat up the trailing whitespace */ - memmove(buffer, buffer+i, strlen(buffer+i)+1); - - i = 0; - while(buffer[i] && buffer[i] != '#' && buffer[i] != '\n') - i++; - do { - i--; - } while(isspace(buffer[i])); - buffer[++i] = 0; - - free(ent->value); - ent->value = strdup(buffer); - -// AL_PRINT("found '%s' = '%s'\n", ent->key, ent->value); - } -} - -void ReadALConfig(void) -{ - FILE *f; - - cfgBlocks = calloc(1, sizeof(ConfigBlock)); - cfgBlocks->name = strdup("general"); - cfgCount = 1; - -#ifdef _WIN32 - if(SHGetSpecialFolderPathA(NULL, buffer, CSIDL_APPDATA, FALSE) != FALSE) - { - size_t p = strlen(buffer); - snprintf(buffer+p, sizeof(buffer)-p, "\\alsoft.ini"); - f = fopen(buffer, "rt"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - } -#else - f = fopen("/etc/openal/alsoft.conf", "r"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - if(getenv("HOME") && *(getenv("HOME"))) - { - snprintf(buffer, sizeof(buffer), "%s/.alsoftrc", getenv("HOME")); - f = fopen(buffer, "r"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - } -#endif - if(getenv("ALSOFT_CONF")) - { - f = fopen(getenv("ALSOFT_CONF"), "r"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - } -} - -void FreeALConfig(void) -{ - size_t i; - - for(i = 0;i < cfgCount;i++) - { - size_t j; - for(j = 0;j < cfgBlocks[i].entryCount;j++) - { - free(cfgBlocks[i].entries[j].key); - free(cfgBlocks[i].entries[j].value); - } - free(cfgBlocks[i].entries); - free(cfgBlocks[i].name); - } - free(cfgBlocks); - cfgBlocks = NULL; - cfgCount = 0; -} - -const char *GetConfigValue(const char *blockName, const char *keyName, const char *def) -{ - size_t i, j; - - if(!keyName) - return def; - - if(!blockName) - blockName = "general"; - - for(i = 0;i < cfgCount;i++) - { - if(strcasecmp(cfgBlocks[i].name, blockName) != 0) - continue; - - for(j = 0;j < cfgBlocks[i].entryCount;j++) - { - if(strcasecmp(cfgBlocks[i].entries[j].key, keyName) == 0) - { - if(cfgBlocks[i].entries[j].value[0]) - return cfgBlocks[i].entries[j].value; - return def; - } - } - } - - return def; -} - -int ConfigValueExists(const char *blockName, const char *keyName) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - return !!val[0]; -} - -int GetConfigValueInt(const char *blockName, const char *keyName, int def) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - - if(!val[0]) return def; - return strtol(val, NULL, 0); -} - -float GetConfigValueFloat(const char *blockName, const char *keyName, float def) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - - if(!val[0]) return def; -#ifdef HAVE_STRTOF - return strtof(val, NULL); -#else - return (float)strtod(val, NULL); -#endif -} - -int GetConfigValueBool(const char *blockName, const char *keyName, int def) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - - if(!val[0]) return !!def; - return (strcasecmp(val, "true") == 0 || strcasecmp(val, "yes") == 0 || - strcasecmp(val, "on") == 0 || atoi(val) != 0); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alcEcho.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alcEcho.c deleted file mode 100644 index 1abf0b2ec..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alcEcho.c +++ /dev/null @@ -1,203 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2009 by Chris Robinson. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "alMain.h" -#include "alFilter.h" -#include "alAuxEffectSlot.h" -#include "alError.h" -#include "alu.h" - - -typedef struct ALechoState { - // Must be first in all effects! - ALeffectState state; - - ALfp *SampleBuffer; - ALuint BufferLength; - - // The echo is two tap. The delay is the number of samples from before the - // current offset - struct { - ALuint delay; - } Tap[2]; - ALuint Offset; - // The LR gains for the first tap. The second tap uses the reverse - ALfp GainL; - ALfp GainR; - - ALfp FeedGain; - - ALfp Gain[MAXCHANNELS]; - - FILTER iirFilter; - ALfp history[2]; -} ALechoState; - -static ALvoid EchoDestroy(ALeffectState *effect) -{ - ALechoState *state = (ALechoState*)effect; - if(state) - { - free(state->SampleBuffer); - state->SampleBuffer = NULL; - free(state); - } -} - -static ALboolean EchoDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALechoState *state = (ALechoState*)effect; - ALuint maxlen, i; - - // Use the next power of 2 for the buffer length, so the tap offsets can be - // wrapped using a mask instead of a modulo - maxlen = (ALuint)(AL_ECHO_MAX_DELAY * Device->Frequency) + 1; - maxlen += (ALuint)(AL_ECHO_MAX_LRDELAY * Device->Frequency) + 1; - maxlen = NextPowerOf2(maxlen); - - if(maxlen != state->BufferLength) - { - void *temp; - - temp = realloc(state->SampleBuffer, maxlen * sizeof(ALfp)); - if(!temp) - return AL_FALSE; - state->SampleBuffer = temp; - state->BufferLength = maxlen; - } - for(i = 0;i < state->BufferLength;i++) - state->SampleBuffer[i] = int2ALfp(0); - - for(i = 0;i < MAXCHANNELS;i++) - state->Gain[i] = int2ALfp(0); - for(i = 0;i < Device->NumChan;i++) - { - Channel chan = Device->Speaker2Chan[i]; - state->Gain[chan] = int2ALfp(1); - } - - return AL_TRUE; -} - -static ALvoid EchoUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALechoState *state = (ALechoState*)effect; - ALuint frequency = Context->Device->Frequency; - ALfp lrpan, cw, a, g; - - state->Tap[0].delay = (ALuint)ALfp2int((ALfpMult(Effect->Echo.Delay, int2ALfp(frequency)) + int2ALfp(1))); - state->Tap[1].delay = (ALuint)ALfp2int(ALfpMult(Effect->Echo.LRDelay, int2ALfp(frequency))); - state->Tap[1].delay += state->Tap[0].delay; - - lrpan = (ALfpMult(Effect->Echo.Spread, float2ALfp(0.5f)) + float2ALfp(0.5f)); - state->GainL = aluSqrt( lrpan); - state->GainR = aluSqrt((int2ALfp(1)-lrpan)); - - state->FeedGain = Effect->Echo.Feedback; - - cw = __cos(ALfpDiv(float2ALfp(2.0*M_PI * LOWPASSFREQCUTOFF), int2ALfp(frequency))); - g = (int2ALfp(1) - Effect->Echo.Damping); - a = int2ALfp(0); - if(g < float2ALfp(0.9999f)) /* 1-epsilon */ { - // a = (1 - g*cw - aluSqrt(2*g*(1-cw) - g*g*(1 - cw*cw))) / (1 - g); - a = ALfpDiv((int2ALfp(1) - ALfpMult(g,cw) - aluSqrt((ALfpMult(ALfpMult(int2ALfp(2),g),(int2ALfp(1)-cw)) - - ALfpMult(ALfpMult(g,g),(int2ALfp(1) - ALfpMult(cw,cw)))))), - (int2ALfp(1) - g)); - } - state->iirFilter.coeff = a; -} - -static ALvoid EchoProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALechoState *state = (ALechoState*)effect; - const ALuint mask = state->BufferLength-1; - const ALuint tap1 = state->Tap[0].delay; - const ALuint tap2 = state->Tap[1].delay; - ALuint offset = state->Offset; - const ALfp gain = Slot->Gain; - ALfp samp[2], smp; - ALuint i; - - for(i = 0;i < SamplesToDo;i++,offset++) - { - // Sample first tap - smp = state->SampleBuffer[(offset-tap1) & mask]; - samp[0] = ALfpMult(smp, state->GainL); - samp[1] = ALfpMult(smp, state->GainR); - // Sample second tap. Reverse LR panning - smp = state->SampleBuffer[(offset-tap2) & mask]; - samp[0] += ALfpMult(smp, state->GainR); - samp[1] += ALfpMult(smp, state->GainL); - - // Apply damping and feedback gain to the second tap, and mix in the - // new sample - smp = lpFilter2P(&state->iirFilter, 0, (smp+SamplesIn[i])); - state->SampleBuffer[offset&mask] = ALfpMult(smp, state->FeedGain); - - // Apply slot gain - samp[0] = ALfpMult(samp[0], gain); - samp[1] = ALfpMult(samp[1], gain); - - SamplesOut[i][FRONT_LEFT] += ALfpMult(state->Gain[FRONT_LEFT], samp[0]); - SamplesOut[i][FRONT_RIGHT] += ALfpMult(state->Gain[FRONT_RIGHT], samp[1]); -#ifdef APPORTABLE_OPTIMIZED_OUT - SamplesOut[i][SIDE_LEFT] += ALfpMult(state->Gain[SIDE_LEFT], samp[0]); - SamplesOut[i][SIDE_RIGHT] += ALfpMult(state->Gain[SIDE_RIGHT], samp[1]); - SamplesOut[i][BACK_LEFT] += ALfpMult(state->Gain[BACK_LEFT], samp[0]); - SamplesOut[i][BACK_RIGHT] += ALfpMult(state->Gain[BACK_RIGHT], samp[1]); -#endif - - } - state->Offset = offset; -} - -ALeffectState *EchoCreate(void) -{ - ALechoState *state; - - state = malloc(sizeof(*state)); - if(!state) - return NULL; - - state->state.Destroy = EchoDestroy; - state->state.DeviceUpdate = EchoDeviceUpdate; - state->state.Update = EchoUpdate; - state->state.Process = EchoProcess; - - state->BufferLength = 0; - state->SampleBuffer = NULL; - - state->Tap[0].delay = 0; - state->Tap[1].delay = 0; - state->Offset = 0; - state->GainL = int2ALfp(0); - state->GainR = int2ALfp(0); - - state->iirFilter.coeff = int2ALfp(0); - state->iirFilter.history[0] = int2ALfp(0); - state->iirFilter.history[1] = int2ALfp(0); - - return &state->state; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alcModulator.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alcModulator.c deleted file mode 100644 index 445bf13ad..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alcModulator.c +++ /dev/null @@ -1,229 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2009 by Chris Robinson. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "alMain.h" -#include "alFilter.h" -#include "alAuxEffectSlot.h" -#include "alError.h" -#include "alu.h" - - -typedef struct ALmodulatorState { - // Must be first in all effects! - ALeffectState state; - - enum { - SINUSOID, - SAWTOOTH, - SQUARE - } Waveform; - - ALuint index; - ALuint step; - - ALfp Gain[MAXCHANNELS]; - - FILTER iirFilter; - ALfp history[1]; -} ALmodulatorState; - -#define WAVEFORM_FRACBITS 16 -#define WAVEFORM_FRACMASK ((1<>(WAVEFORM_FRACBITS-1))&1) ? -1 : 1); -} - - -static __inline ALfp hpFilter1P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = (output + ALfpMult((history[0]-output),a)); - history[0] = output; - - return (input - output); -} - - -static ALvoid ModulatorDestroy(ALeffectState *effect) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - free(state); -} - -static ALboolean ModulatorDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - ALuint index; - - for(index = 0;index < MAXCHANNELS;index++) - state->Gain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - state->Gain[chan] = int2ALfp(1); - } - - return AL_TRUE; -} - -static ALvoid ModulatorUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - ALfp cw, a; - a = int2ALfp(0); - - if(Effect->Modulator.Waveform == AL_RING_MODULATOR_SINUSOID) - state->Waveform = SINUSOID; - else if(Effect->Modulator.Waveform == AL_RING_MODULATOR_SAWTOOTH) - state->Waveform = SAWTOOTH; - else if(Effect->Modulator.Waveform == AL_RING_MODULATOR_SQUARE) - state->Waveform = SQUARE; - - state->step = ALfp2int(ALfpDiv(ALfpMult(Effect->Modulator.Frequency, - int2ALfp(1<Device->Frequency))); - if(!state->step) - state->step = 1; - - cw = __cos(ALfpDiv(ALfpMult(float2ALfp(2.0*M_PI), - Effect->Modulator.HighPassCutoff), - int2ALfp(Context->Device->Frequency))); - a = ((int2ALfp(2)-cw) - - aluSqrt((aluPow((int2ALfp(2)-cw), int2ALfp(2)) - int2ALfp(1)))); - state->iirFilter.coeff = a; -} - -static ALvoid ModulatorProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - const ALfp gain = Slot->Gain; - const ALuint step = state->step; - ALuint index = state->index; - ALfp samp; - ALuint i; - - switch(state->Waveform) - { - case SINUSOID: - for(i = 0;i < SamplesToDo;i++) - { -#ifdef APPORTABLE_OPTIMIZED_OUT -#define FILTER_OUT(func) do { \ - samp = SamplesIn[i]; \ - \ - index += step; \ - index &= WAVEFORM_FRACMASK; \ - samp *= func(index); \ - \ - samp = hpFilter1P(&state->iirFilter, 0, samp); \ - \ - /* Apply slot gain */ \ - samp *= gain; \ - \ - SamplesOut[i][FRONT_LEFT] += state->Gain[FRONT_LEFT] * samp; \ - SamplesOut[i][FRONT_RIGHT] += state->Gain[FRONT_RIGHT] * samp; \ - SamplesOut[i][FRONT_CENTER] += state->Gain[FRONT_CENTER] * samp; \ - SamplesOut[i][SIDE_LEFT] += state->Gain[SIDE_LEFT] * samp; \ - SamplesOut[i][SIDE_RIGHT] += state->Gain[SIDE_RIGHT] * samp; \ - SamplesOut[i][BACK_LEFT] += state->Gain[BACK_LEFT] * samp; \ - SamplesOut[i][BACK_RIGHT] += state->Gain[BACK_RIGHT] * samp; \ - SamplesOut[i][BACK_CENTER] += state->Gain[BACK_CENTER] * samp; \ -} while(0) -#else -//Apportable optimized version -#define FILTER_OUT(func) do { \ - samp = SamplesIn[i]; \ - \ - index += step; \ - index &= WAVEFORM_FRACMASK; \ - samp = ALfpMult(samp, func(index)); \ - \ - samp = hpFilter1P(&state->iirFilter, 0, samp); \ - \ - /* Apply slot gain */ \ - samp = ALfpMult(samp, gain); \ - \ - SamplesOut[i][FRONT_LEFT] += ALfpMult(state->Gain[FRONT_LEFT], samp); \ - SamplesOut[i][FRONT_RIGHT] += ALfpMult(state->Gain[FRONT_RIGHT], samp); \ -} while(0) -#endif - FILTER_OUT(sin_func); - } - break; - - case SAWTOOTH: - for(i = 0;i < SamplesToDo;i++) - { - FILTER_OUT(saw_func); - } - break; - - case SQUARE: - for(i = 0;i < SamplesToDo;i++) - { - FILTER_OUT(square_func); -#undef FILTER_OUT - } - break; - } - state->index = index; -} - -ALeffectState *ModulatorCreate(void) -{ - ALmodulatorState *state; - - state = malloc(sizeof(*state)); - if(!state) - return NULL; - - state->state.Destroy = ModulatorDestroy; - state->state.DeviceUpdate = ModulatorDeviceUpdate; - state->state.Update = ModulatorUpdate; - state->state.Process = ModulatorProcess; - - state->index = 0; - state->step = 1; - - state->iirFilter.coeff = int2ALfp(0); - state->iirFilter.history[0] = int2ALfp(0); - - return &state->state; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alcReverb.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alcReverb.c deleted file mode 100644 index 496a15db2..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alcReverb.c +++ /dev/null @@ -1,1371 +0,0 @@ -/** - * Reverb for the OpenAL cross platform audio library - * Copyright (C) 2008-2009 by Christopher Fitzgerald. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alAuxEffectSlot.h" -#include "alEffect.h" -#include "alError.h" -#include "alu.h" - -typedef struct DelayLine -{ - // The delay lines use sample lengths that are powers of 2 to allow the - // use of bit-masking instead of a modulus for wrapping. - ALuint Mask; - ALfp *Line; -} DelayLine; - -typedef struct ALverbState { - // Must be first in all effects! - ALeffectState state; - - // All delay lines are allocated as a single buffer to reduce memory - // fragmentation and management code. - ALfp *SampleBuffer; - ALuint TotalSamples; - // Master effect low-pass filter (2 chained 1-pole filters). - FILTER LpFilter; - ALfp LpHistory[2]; - struct { - // Modulator delay line. - DelayLine Delay; - // The vibrato time is tracked with an index over a modulus-wrapped - // range (in samples). - ALuint Index; - ALuint Range; - // The depth of frequency change (also in samples) and its filter. - ALfp Depth; - ALfp Coeff; - ALfp Filter; - } Mod; - // Initial effect delay. - DelayLine Delay; - // The tap points for the initial delay. First tap goes to early - // reflections, the last to late reverb. - ALuint DelayTap[2]; - struct { - // Output gain for early reflections. - ALfp Gain; - // Early reflections are done with 4 delay lines. - ALfp Coeff[4]; - DelayLine Delay[4]; - ALuint Offset[4]; - // The gain for each output channel based on 3D panning (only for the - // EAX path). - ALfp PanGain[MAXCHANNELS]; - } Early; - // Decorrelator delay line. - DelayLine Decorrelator; - // There are actually 4 decorrelator taps, but the first occurs at the - // initial sample. - ALuint DecoTap[3]; - struct { - // Output gain for late reverb. - ALfp Gain; - // Attenuation to compensate for the modal density and decay rate of - // the late lines. - ALfp DensityGain; - // The feed-back and feed-forward all-pass coefficient. - ALfp ApFeedCoeff; - // Mixing matrix coefficient. - ALfp MixCoeff; - // Late reverb has 4 parallel all-pass filters. - ALfp ApCoeff[4]; - DelayLine ApDelay[4]; - ALuint ApOffset[4]; - // In addition to 4 cyclical delay lines. - ALfp Coeff[4]; - DelayLine Delay[4]; - ALuint Offset[4]; - // The cyclical delay lines are 1-pole low-pass filtered. - ALfp LpCoeff[4]; - ALfp LpSample[4]; - // The gain for each output channel based on 3D panning (only for the - // EAX path). - ALfp PanGain[MAXCHANNELS]; - } Late; - struct { - // Attenuation to compensate for the modal density and decay rate of - // the echo line. - ALfp DensityGain; - // Echo delay and all-pass lines. - DelayLine Delay; - DelayLine ApDelay; - ALfp Coeff; - ALfp ApFeedCoeff; - ALfp ApCoeff; - ALuint Offset; - ALuint ApOffset; - // The echo line is 1-pole low-pass filtered. - ALfp LpCoeff; - ALfp LpSample; - // Echo mixing coefficients. - ALfp MixCoeff[2]; - } Echo; - // The current read offset for all delay lines. - ALuint Offset; - - // The gain for each output channel (non-EAX path only; aliased from - // Late.PanGain) - ALfp *Gain; -} ALverbState; - -/* This coefficient is used to define the maximum frequency range controlled - * by the modulation depth. The current value of 0.1 will allow it to swing - * from 0.9x to 1.1x. This value must be below 1. At 1 it will cause the - * sampler to stall on the downswing, and above 1 it will cause it to sample - * backwards. - */ -static const ALfp MODULATION_DEPTH_COEFF = toALfpConst(0.1f); - -/* A filter is used to avoid the terrible distortion caused by changing - * modulation time and/or depth. To be consistent across different sample - * rates, the coefficient must be raised to a constant divided by the sample - * rate: coeff^(constant / rate). - */ -static const ALfp MODULATION_FILTER_COEFF = toALfpConst(0.048f); -static const ALfp MODULATION_FILTER_CONST = toALfpConst(100000.0f); - -// When diffusion is above 0, an all-pass filter is used to take the edge off -// the echo effect. It uses the following line length (in seconds). -static const ALfp ECHO_ALLPASS_LENGTH = toALfpConst(0.0133f); - -// Input into the late reverb is decorrelated between four channels. Their -// timings are dependent on a fraction and multiplier. See the -// UpdateDecorrelator() routine for the calculations involved. -static const ALfp DECO_FRACTION = toALfpConst(0.15f); -static const ALfp DECO_MULTIPLIER = toALfpConst(2.0f); - -// All delay line lengths are specified in seconds. - -// The lengths of the early delay lines. -static const ALfp EARLY_LINE_LENGTH[4] = -{ - toALfpConst(0.0015f), toALfpConst(0.0045f), toALfpConst(0.0135f), toALfpConst(0.0405f) -}; - -// The lengths of the late all-pass delay lines. -static const ALfp ALLPASS_LINE_LENGTH[4] = -{ - toALfpConst(0.0151f), toALfpConst(0.0167f), toALfpConst(0.0183f), toALfpConst(0.0200f), -}; - -// The lengths of the late cyclical delay lines. -static const ALfp LATE_LINE_LENGTH[4] = -{ - toALfpConst(0.0211f), toALfpConst(0.0311f), toALfpConst(0.0461f), toALfpConst(0.0680f) -}; - -// The late cyclical delay lines have a variable length dependent on the -// effect's density parameter (inverted for some reason) and this multiplier. -static const ALfp LATE_LINE_MULTIPLIER = toALfpConst(4.0f); - -// Calculate the length of a delay line and store its mask and offset. -static ALuint CalcLineLength(ALfp length, ALintptrEXT offset, ALuint frequency, DelayLine *Delay) -{ - ALuint samples; - - // All line lengths are powers of 2, calculated from their lengths, with - // an additional sample in case of rounding errors. - samples = NextPowerOf2((ALuint)(ALfp2int(ALfpMult(length, int2ALfp(frequency)))) + 1); - // All lines share a single sample buffer. - Delay->Mask = samples - 1; - Delay->Line = (ALfp*)offset; - // Return the sample count for accumulation. - return samples; -} - -// Given the allocated sample buffer, this function updates each delay line -// offset. -static __inline ALvoid RealizeLineOffset(ALfp * sampleBuffer, DelayLine *Delay) -{ - Delay->Line = &sampleBuffer[(ALintptrEXT)Delay->Line]; -} - -/* Calculates the delay line metrics and allocates the shared sample buffer - * for all lines given a flag indicating whether or not to allocate the EAX- - * related delays (eaxFlag) and the sample rate (frequency). If an - * allocation failure occurs, it returns AL_FALSE. - */ -static ALboolean AllocLines(ALboolean eaxFlag, ALuint frequency, ALverbState *State) -{ - ALuint totalSamples, index; - ALfp length; - ALfp *newBuffer = NULL; - - // All delay line lengths are calculated to accomodate the full range of - // lengths given their respective paramters. - totalSamples = 0; - if(eaxFlag) - { - /* The modulator's line length is calculated from the maximum - * modulation time and depth coefficient, and halfed for the low-to- - * high frequency swing. An additional sample is added to keep it - * stable when there is no modulation. - */ - length = ((ALfpDiv(ALfpMult(float2ALfp(AL_EAXREVERB_MAX_MODULATION_TIME), MODULATION_DEPTH_COEFF), - int2ALfp(2))) + - ALfpDiv(int2ALfp(1), int2ALfp(frequency))); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Mod.Delay); - } - - // The initial delay is the sum of the reflections and late reverb - // delays. - if(eaxFlag) - length = float2ALfp(AL_EAXREVERB_MAX_REFLECTIONS_DELAY + - AL_EAXREVERB_MAX_LATE_REVERB_DELAY); - else - length = float2ALfp(AL_REVERB_MAX_REFLECTIONS_DELAY + - AL_REVERB_MAX_LATE_REVERB_DELAY); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Delay); - - // The early reflection lines. - for(index = 0;index < 4;index++) - totalSamples += CalcLineLength(EARLY_LINE_LENGTH[index], totalSamples, - frequency, &State->Early.Delay[index]); - - // The decorrelator line is calculated from the lowest reverb density (a - // parameter value of 1). - length = ALfpMult(ALfpMult(ALfpMult(ALfpMult(DECO_FRACTION, - DECO_MULTIPLIER), - DECO_MULTIPLIER), - LATE_LINE_LENGTH[0]), - (int2ALfp(1) + LATE_LINE_MULTIPLIER)); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Decorrelator); - - // The late all-pass lines. - for(index = 0;index < 4;index++) - totalSamples += CalcLineLength(ALLPASS_LINE_LENGTH[index], totalSamples, - frequency, &State->Late.ApDelay[index]); - - // The late delay lines are calculated from the lowest reverb density. - for(index = 0;index < 4;index++) - { - length = ALfpMult(LATE_LINE_LENGTH[index], (int2ALfp(1) + LATE_LINE_MULTIPLIER)); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Late.Delay[index]); - } - - if(eaxFlag) - { - // The echo all-pass and delay lines. - totalSamples += CalcLineLength(ECHO_ALLPASS_LENGTH, totalSamples, - frequency, &State->Echo.ApDelay); - totalSamples += CalcLineLength(float2ALfp(AL_EAXREVERB_MAX_ECHO_TIME), totalSamples, - frequency, &State->Echo.Delay); - } - - if(totalSamples != State->TotalSamples) - { - newBuffer = realloc(State->SampleBuffer, sizeof(ALfp) * totalSamples); - if(newBuffer == NULL) - return AL_FALSE; - State->SampleBuffer = newBuffer; - State->TotalSamples = totalSamples; - } - - // Update all delays to reflect the new sample buffer. - RealizeLineOffset(State->SampleBuffer, &State->Delay); - RealizeLineOffset(State->SampleBuffer, &State->Decorrelator); - for(index = 0;index < 4;index++) - { - RealizeLineOffset(State->SampleBuffer, &State->Early.Delay[index]); - RealizeLineOffset(State->SampleBuffer, &State->Late.ApDelay[index]); - RealizeLineOffset(State->SampleBuffer, &State->Late.Delay[index]); - } - if(eaxFlag) - { - RealizeLineOffset(State->SampleBuffer, &State->Mod.Delay); - RealizeLineOffset(State->SampleBuffer, &State->Echo.ApDelay); - RealizeLineOffset(State->SampleBuffer, &State->Echo.Delay); - } - - // Clear the sample buffer. - for(index = 0;index < State->TotalSamples;index++) - State->SampleBuffer[index] = int2ALfp(0); - - return AL_TRUE; -} - -// Calculate a decay coefficient given the length of each cycle and the time -// until the decay reaches -60 dB. -static __inline ALfp CalcDecayCoeff(ALfp length, ALfp decayTime) -{ - return aluPow(int2ALfp(10), ALfpDiv(length, - ALfpDiv(ALfpMult(decayTime, - int2ALfp(-60)), - int2ALfp(20)))); -} - -// Calculate a decay length from a coefficient and the time until the decay -// reaches -60 dB. -static __inline ALfp CalcDecayLength(ALfp coeff, ALfp decayTime) -{ - return ALfpMult(ALfpMult(ALfpDiv(__log10(coeff), int2ALfp(-60)), int2ALfp(20)), decayTime); -} - -// Calculate the high frequency parameter for the I3DL2 coefficient -// calculation. -static __inline ALfp CalcI3DL2HFreq(ALfp hfRef, ALuint frequency) -{ - return __cos(ALfpDiv(ALfpMult(float2ALfp(2.0f * M_PI), hfRef), int2ALfp(frequency))); -} - -// Calculate an attenuation to be applied to the input of any echo models to -// compensate for modal density and decay time. -static __inline ALfp CalcDensityGain(ALfp a) -{ - /* The energy of a signal can be obtained by finding the area under the - * squared signal. This takes the form of Sum(x_n^2), where x is the - * amplitude for the sample n. - * - * Decaying feedback matches exponential decay of the form Sum(a^n), - * where a is the attenuation coefficient, and n is the sample. The area - * under this decay curve can be calculated as: 1 / (1 - a). - * - * Modifying the above equation to find the squared area under the curve - * (for energy) yields: 1 / (1 - a^2). Input attenuation can then be - * calculated by inverting the square root of this approximation, - * yielding: 1 / sqrt(1 / (1 - a^2)), simplified to: sqrt(1 - a^2). - */ - return aluSqrt((int2ALfp(1) - ALfpMult(a, a))); -} - -// Calculate the mixing matrix coefficients given a diffusion factor. -static __inline ALvoid CalcMatrixCoeffs(ALfp diffusion, ALfp *x, ALfp *y) -{ - ALfp n, t; - - // The matrix is of order 4, so n is sqrt (4 - 1). - n = aluSqrt(int2ALfp(3)); - t = ALfpMult(diffusion, __atan(n)); - - // Calculate the first mixing matrix coefficient. - *x = __cos(t); - // Calculate the second mixing matrix coefficient. - *y = ALfpDiv(__sin(t), n); -} - -// Calculate the limited HF ratio for use with the late reverb low-pass -// filters. -static ALfp CalcLimitedHfRatio(ALfp hfRatio, ALfp airAbsorptionGainHF, ALfp decayTime) -{ - ALfp limitRatio; - - /* Find the attenuation due to air absorption in dB (converting delay - * time to meters using the speed of sound). Then reversing the decay - * equation, solve for HF ratio. The delay length is cancelled out of - * the equation, so it can be calculated once for all lines. - */ - limitRatio = ALfpDiv(int2ALfp(1), - ALfpMult(CalcDecayLength(airAbsorptionGainHF, decayTime), - float2ALfp(SPEEDOFSOUNDMETRESPERSEC))); - // Need to limit the result to a minimum of 0.1, just like the HF ratio - // parameter. - limitRatio = __max(limitRatio, float2ALfp(0.1f)); - - // Using the limit calculated above, apply the upper bound to the HF - // ratio. - return __min(hfRatio, limitRatio); -} - -// Calculate the coefficient for a HF (and eventually LF) decay damping -// filter. -static __inline ALfp CalcDampingCoeff(ALfp hfRatio, ALfp length, ALfp decayTime, ALfp decayCoeff, ALfp cw) -{ - ALfp coeff, g; - - // Eventually this should boost the high frequencies when the ratio - // exceeds 1. - coeff = int2ALfp(0); - if (hfRatio < int2ALfp(1)) - { - // Calculate the low-pass coefficient by dividing the HF decay - // coefficient by the full decay coefficient. - g = ALfpDiv(CalcDecayCoeff(length, ALfpMult(decayTime, hfRatio)), decayCoeff); - - // Damping is done with a 1-pole filter, so g needs to be squared. - g = ALfpMult(g, g); - coeff = lpCoeffCalc(g, cw); - - // Very low decay times will produce minimal output, so apply an - // upper bound to the coefficient. - coeff = __min(coeff, float2ALfp(0.98f)); - } - return coeff; -} - -// Update the EAX modulation index, range, and depth. Keep in mind that this -// kind of vibrato is additive and not multiplicative as one may expect. The -// downswing will sound stronger than the upswing. -static ALvoid UpdateModulator(ALfp modTime, ALfp modDepth, ALuint frequency, ALverbState *State) -{ - ALfp length; - - /* Modulation is calculated in two parts. - * - * The modulation time effects the sinus applied to the change in - * frequency. An index out of the current time range (both in samples) - * is incremented each sample. The range is bound to a reasonable - * minimum (1 sample) and when the timing changes, the index is rescaled - * to the new range (to keep the sinus consistent). - */ - length = ALfpMult(modTime, int2ALfp(frequency)); - if (length >= int2ALfp(1)) { - State->Mod.Index = (ALuint)(ALfp2int(ALfpDiv(ALfpMult(int2ALfp(State->Mod.Index), - length), - int2ALfp(State->Mod.Range)))); - State->Mod.Range = (ALuint)ALfp2int(length); - } else { - State->Mod.Index = 0; - State->Mod.Range = 1; - } - - /* The modulation depth effects the amount of frequency change over the - * range of the sinus. It needs to be scaled by the modulation time so - * that a given depth produces a consistent change in frequency over all - * ranges of time. Since the depth is applied to a sinus value, it needs - * to be halfed once for the sinus range and again for the sinus swing - * in time (half of it is spent decreasing the frequency, half is spent - * increasing it). - */ - State->Mod.Depth = ALfpMult(ALfpDiv(ALfpDiv(ALfpMult(ALfpMult(modDepth, - MODULATION_DEPTH_COEFF), - modTime), - int2ALfp(2)), - int2ALfp(2)), - int2ALfp(frequency)); -} - -// Update the offsets for the initial effect delay line. -static ALvoid UpdateDelayLine(ALfp earlyDelay, ALfp lateDelay, ALuint frequency, ALverbState *State) -{ - // Calculate the initial delay taps. - State->DelayTap[0] = (ALuint)(ALfp2int(ALfpMult(earlyDelay, int2ALfp(frequency)))); - State->DelayTap[1] = (ALuint)(ALfp2int(ALfpMult((earlyDelay + lateDelay), int2ALfp(frequency)))); -} - -// Update the early reflections gain and line coefficients. -static ALvoid UpdateEarlyLines(ALfp reverbGain, ALfp earlyGain, ALfp lateDelay, ALverbState *State) -{ - ALuint index; - - // Calculate the early reflections gain (from the master effect gain, and - // reflections gain parameters) with a constant attenuation of 0.5. - State->Early.Gain = ALfpMult(ALfpMult(float2ALfp(0.5f), reverbGain), earlyGain); - - // Calculate the gain (coefficient) for each early delay line using the - // late delay time. This expands the early reflections to the start of - // the late reverb. - for(index = 0;index < 4;index++) - State->Early.Coeff[index] = CalcDecayCoeff(EARLY_LINE_LENGTH[index], - lateDelay); -} - -// Update the offsets for the decorrelator line. -static ALvoid UpdateDecorrelator(ALfp density, ALuint frequency, ALverbState *State) -{ - ALuint index; - ALfp length; - - /* The late reverb inputs are decorrelated to smooth the reverb tail and - * reduce harsh echos. The first tap occurs immediately, while the - * remaining taps are delayed by multiples of a fraction of the smallest - * cyclical delay time. - * - * offset[index] = (FRACTION (MULTIPLIER^index)) smallest_delay - */ - for(index = 0;index < 3;index++) - { - length = ALfpMult(ALfpMult(ALfpMult(DECO_FRACTION, - aluPow(DECO_MULTIPLIER, int2ALfp(index))), - LATE_LINE_LENGTH[0]), - (int2ALfp(1) + ALfpMult(density, LATE_LINE_MULTIPLIER))); - State->DecoTap[index] = (ALuint)ALfp2int(ALfpMult(length, int2ALfp(frequency))); - } -} - -// Update the late reverb gains, line lengths, and line coefficients. -static ALvoid UpdateLateLines(ALfp reverbGain, ALfp lateGain, ALfp xMix, ALfp density, ALfp decayTime, ALfp diffusion, ALfp hfRatio, ALfp cw, ALuint frequency, ALverbState *State) -{ - ALfp length; - ALuint index; - - /* Calculate the late reverb gain (from the master effect gain, and late - * reverb gain parameters). Since the output is tapped prior to the - * application of the next delay line coefficients, this gain needs to be - * attenuated by the 'x' mixing matrix coefficient as well. - */ - State->Late.Gain = ALfpMult(ALfpMult(reverbGain, lateGain), xMix); - - /* To compensate for changes in modal density and decay time of the late - * reverb signal, the input is attenuated based on the maximal energy of - * the outgoing signal. This approximation is used to keep the apparent - * energy of the signal equal for all ranges of density and decay time. - * - * The average length of the cyclcical delay lines is used to calculate - * the attenuation coefficient. - */ - length = ALfpDiv((LATE_LINE_LENGTH[0] + LATE_LINE_LENGTH[1] + - LATE_LINE_LENGTH[2] + LATE_LINE_LENGTH[3]), - int2ALfp(4)); - length = ALfpMult(length, (int2ALfp(1) + ALfpMult(density, LATE_LINE_MULTIPLIER))); - State->Late.DensityGain = CalcDensityGain(CalcDecayCoeff(length, - decayTime)); - - // Calculate the all-pass feed-back and feed-forward coefficient. - State->Late.ApFeedCoeff = ALfpMult(float2ALfp(0.5f), aluPow(diffusion, int2ALfp(2))); - - for(index = 0;index < 4;index++) - { - // Calculate the gain (coefficient) for each all-pass line. - State->Late.ApCoeff[index] = CalcDecayCoeff(ALLPASS_LINE_LENGTH[index], - decayTime); - - // Calculate the length (in seconds) of each cyclical delay line. - length = ALfpMult(LATE_LINE_LENGTH[index], - (int2ALfp(1) + ALfpMult(density, LATE_LINE_MULTIPLIER))); - - // Calculate the delay offset for each cyclical delay line. - State->Late.Offset[index] = (ALuint)(ALfp2int(ALfpMult(length, int2ALfp(frequency)))); - - // Calculate the gain (coefficient) for each cyclical line. - State->Late.Coeff[index] = CalcDecayCoeff(length, decayTime); - - // Calculate the damping coefficient for each low-pass filter. - State->Late.LpCoeff[index] = - CalcDampingCoeff(hfRatio, length, decayTime, - State->Late.Coeff[index], cw); - - // Attenuate the cyclical line coefficients by the mixing coefficient - // (x). - State->Late.Coeff[index] = ALfpMult(State->Late.Coeff[index], xMix); - } -} - -// Update the echo gain, line offset, line coefficients, and mixing -// coefficients. -static ALvoid UpdateEchoLine(ALfp reverbGain, ALfp lateGain, ALfp echoTime, ALfp decayTime, ALfp diffusion, ALfp echoDepth, ALfp hfRatio, ALfp cw, ALuint frequency, ALverbState *State) -{ - // Update the offset and coefficient for the echo delay line. - State->Echo.Offset = (ALuint)(ALfp2int(ALfpMult(echoTime, int2ALfp(frequency)))); - - // Calculate the decay coefficient for the echo line. - State->Echo.Coeff = CalcDecayCoeff(echoTime, decayTime); - - // Calculate the energy-based attenuation coefficient for the echo delay - // line. - State->Echo.DensityGain = CalcDensityGain(State->Echo.Coeff); - - // Calculate the echo all-pass feed coefficient. - State->Echo.ApFeedCoeff = ALfpMult(float2ALfp(0.5f), aluPow(diffusion, int2ALfp(2))); - - // Calculate the echo all-pass attenuation coefficient. - State->Echo.ApCoeff = CalcDecayCoeff(ECHO_ALLPASS_LENGTH, decayTime); - - // Calculate the damping coefficient for each low-pass filter. - State->Echo.LpCoeff = CalcDampingCoeff(hfRatio, echoTime, decayTime, - State->Echo.Coeff, cw); - - /* Calculate the echo mixing coefficients. The first is applied to the - * echo itself. The second is used to attenuate the late reverb when - * echo depth is high and diffusion is low, so the echo is slightly - * stronger than the decorrelated echos in the reverb tail. - */ - State->Echo.MixCoeff[0] = ALfpMult(ALfpMult(reverbGain, lateGain), echoDepth); - State->Echo.MixCoeff[1] = (int2ALfp(1) - ALfpMult(ALfpMult(echoDepth, float2ALfp(0.5f)), (int2ALfp(1) - diffusion))); -} - -// Update the early and late 3D panning gains. -static ALvoid Update3DPanning(const ALCdevice *Device, const ALfp *ReflectionsPan, const ALfp *LateReverbPan, ALverbState *State) -{ - ALfp earlyPan[3] = { ReflectionsPan[0], ReflectionsPan[1], - ReflectionsPan[2] }; - ALfp latePan[3] = { LateReverbPan[0], LateReverbPan[1], - LateReverbPan[2] }; - const ALfp *speakerGain; - ALfp dirGain; - ALfp length; - ALuint index; - ALint pos; - - // Calculate the 3D-panning gains for the early reflections and late - // reverb. - length = (ALfpMult(earlyPan[0],earlyPan[0]) + ALfpMult(earlyPan[1],earlyPan[1]) + ALfpMult(earlyPan[2],earlyPan[2])); - if(length > int2ALfp(1)) - { - length = ALfpDiv(int2ALfp(1), aluSqrt(length)); - earlyPan[0] = ALfpMult(earlyPan[0], length); - earlyPan[1] = ALfpMult(earlyPan[1], length); - earlyPan[2] = ALfpMult(earlyPan[2], length); - } - length = (ALfpMult(latePan[0],latePan[0]) + ALfpMult(latePan[1],latePan[1]) + ALfpMult(latePan[2],latePan[2])); - if(length > int2ALfp(1)) - { - length = ALfpDiv(int2ALfp(1), aluSqrt(length)); - latePan[0] = ALfpMult(latePan[0], length); - latePan[1] = ALfpMult(latePan[1], length); - latePan[2] = ALfpMult(latePan[2], length); - } - - /* This code applies directional reverb just like the mixer applies - * directional sources. It diffuses the sound toward all speakers as the - * magnitude of the panning vector drops, which is only a rough - * approximation of the expansion of sound across the speakers from the - * panning direction. - */ - pos = aluCart2LUTpos(earlyPan[2], earlyPan[0]); - speakerGain = &Device->PanningLUT[MAXCHANNELS * pos]; - dirGain = aluSqrt((ALfpMult(earlyPan[0], earlyPan[0]) + ALfpMult(earlyPan[2], earlyPan[2]))); - - for(index = 0;index < MAXCHANNELS;index++) - State->Early.PanGain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - State->Early.PanGain[chan] = (int2ALfp(1) + ALfpMult((speakerGain[chan]-int2ALfp(1)),dirGain)); - } - - - pos = aluCart2LUTpos(latePan[2], latePan[0]); - speakerGain = &Device->PanningLUT[MAXCHANNELS * pos]; - dirGain = aluSqrt((ALfpMult(latePan[0], latePan[0]) + ALfpMult(latePan[2], latePan[2]))); - - for(index = 0;index < MAXCHANNELS;index++) - State->Late.PanGain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - State->Late.PanGain[chan] = (int2ALfp(1) + ALfpMult((speakerGain[chan]-int2ALfp(1)),dirGain)); - } -} - -// Basic delay line input/output routines. -static __inline ALfp DelayLineOut(DelayLine *Delay, ALuint offset) -{ - return Delay->Line[offset&Delay->Mask]; -} - -static __inline ALvoid DelayLineIn(DelayLine *Delay, ALuint offset, ALfp in) -{ - Delay->Line[offset&Delay->Mask] = in; -} - -// Attenuated delay line output routine. -static __inline ALfp AttenuatedDelayLineOut(DelayLine *Delay, ALuint offset, ALfp coeff) -{ - return ALfpMult(coeff, Delay->Line[offset&Delay->Mask]); -} - -// Basic attenuated all-pass input/output routine. -static __inline ALfp AllpassInOut(DelayLine *Delay, ALuint outOffset, ALuint inOffset, ALfp in, ALfp feedCoeff, ALfp coeff) -{ - ALfp out, feed; - - out = DelayLineOut(Delay, outOffset); - feed = ALfpMult(feedCoeff, in); - DelayLineIn(Delay, inOffset, (ALfpMult(feedCoeff, (out - feed)) + in)); - - // The time-based attenuation is only applied to the delay output to - // keep it from affecting the feed-back path (which is already controlled - // by the all-pass feed coefficient). - return (ALfpMult(coeff, out) - feed); -} - -// Given an input sample, this function produces modulation for the late -// reverb. -static __inline ALfp EAXModulation(ALverbState *State, ALfp in) -{ - ALfp sinus, frac; - ALuint offset; - ALfp out0, out1; - - // Calculate the sinus rythm (dependent on modulation time and the - // sampling rate). The center of the sinus is moved to reduce the delay - // of the effect when the time or depth are low. - sinus = (int2ALfp(1) - __cos(ALfpDiv(ALfpMult(float2ALfp(2.0f * M_PI), int2ALfp(State->Mod.Index)), int2ALfp(State->Mod.Range)))); - - // The depth determines the range over which to read the input samples - // from, so it must be filtered to reduce the distortion caused by even - // small parameter changes. - State->Mod.Filter = lerp(State->Mod.Filter, State->Mod.Depth, - State->Mod.Coeff); - - // Calculate the read offset and fraction between it and the next sample. - frac = (int2ALfp(1) + ALfpMult(State->Mod.Filter, sinus)); - offset = (ALuint)ALfp2int(frac); - frac = (frac - int2ALfp(offset)); - - // Get the two samples crossed by the offset, and feed the delay line - // with the next input sample. - out0 = DelayLineOut(&State->Mod.Delay, State->Offset - offset); - out1 = DelayLineOut(&State->Mod.Delay, State->Offset - offset - 1); - DelayLineIn(&State->Mod.Delay, State->Offset, in); - - // Step the modulation index forward, keeping it bound to its range. - State->Mod.Index = (State->Mod.Index + 1) % State->Mod.Range; - - // The output is obtained by linearly interpolating the two samples that - // were acquired above. - return lerp(out0, out1, frac); -} - -// Delay line output routine for early reflections. -static __inline ALfp EarlyDelayLineOut(ALverbState *State, ALuint index) -{ - return AttenuatedDelayLineOut(&State->Early.Delay[index], - State->Offset - State->Early.Offset[index], - State->Early.Coeff[index]); -} - -// Given an input sample, this function produces four-channel output for the -// early reflections. -static __inline ALvoid EarlyReflection(ALverbState *State, ALfp in, ALfp *out) -{ - ALfp d[4], v, f[4]; - - // Obtain the decayed results of each early delay line. - d[0] = EarlyDelayLineOut(State, 0); - d[1] = EarlyDelayLineOut(State, 1); - d[2] = EarlyDelayLineOut(State, 2); - d[3] = EarlyDelayLineOut(State, 3); - - /* The following uses a lossless scattering junction from waveguide - * theory. It actually amounts to a householder mixing matrix, which - * will produce a maximally diffuse response, and means this can probably - * be considered a simple feed-back delay network (FDN). - * N - * --- - * \ - * v = 2/N / d_i - * --- - * i=1 - */ - v = ALfpMult((d[0] + d[1] + d[2] + d[3]), float2ALfp(0.5f)); - // The junction is loaded with the input here. - v = (v + in); - - // Calculate the feed values for the delay lines. - f[0] = (v - d[0]); - f[1] = (v - d[1]); - f[2] = (v - d[2]); - f[3] = (v - d[3]); - - // Re-feed the delay lines. - DelayLineIn(&State->Early.Delay[0], State->Offset, f[0]); - DelayLineIn(&State->Early.Delay[1], State->Offset, f[1]); - DelayLineIn(&State->Early.Delay[2], State->Offset, f[2]); - DelayLineIn(&State->Early.Delay[3], State->Offset, f[3]); - - // Output the results of the junction for all four channels. - out[0] = ALfpMult(State->Early.Gain, f[0]); - out[1] = ALfpMult(State->Early.Gain, f[1]); - out[2] = ALfpMult(State->Early.Gain, f[2]); - out[3] = ALfpMult(State->Early.Gain, f[3]); -} - -// All-pass input/output routine for late reverb. -static __inline ALfp LateAllPassInOut(ALverbState *State, ALuint index, ALfp in) -{ - return AllpassInOut(&State->Late.ApDelay[index], - State->Offset - State->Late.ApOffset[index], - State->Offset, in, State->Late.ApFeedCoeff, - State->Late.ApCoeff[index]); -} - -// Delay line output routine for late reverb. -static __inline ALfp LateDelayLineOut(ALverbState *State, ALuint index) -{ - return AttenuatedDelayLineOut(&State->Late.Delay[index], - State->Offset - State->Late.Offset[index], - State->Late.Coeff[index]); -} - -// Low-pass filter input/output routine for late reverb. -static __inline ALfp LateLowPassInOut(ALverbState *State, ALuint index, ALfp in) -{ - in = lerp(in, State->Late.LpSample[index], State->Late.LpCoeff[index]); - State->Late.LpSample[index] = in; - return in; -} - -// Given four decorrelated input samples, this function produces four-channel -// output for the late reverb. -static __inline ALvoid LateReverb(ALverbState *State, ALfp *in, ALfp *out) -{ - ALfp d[4], f[4]; - - // Obtain the decayed results of the cyclical delay lines, and add the - // corresponding input channels. Then pass the results through the - // low-pass filters. - - // This is where the feed-back cycles from line 0 to 1 to 3 to 2 and back - // to 0. - d[0] = LateLowPassInOut(State, 2, (in[2] + LateDelayLineOut(State, 2))); - d[1] = LateLowPassInOut(State, 0, (in[0] + LateDelayLineOut(State, 0))); - d[2] = LateLowPassInOut(State, 3, (in[3] + LateDelayLineOut(State, 3))); - d[3] = LateLowPassInOut(State, 1, (in[1] + LateDelayLineOut(State, 1))); - - // To help increase diffusion, run each line through an all-pass filter. - // When there is no diffusion, the shortest all-pass filter will feed the - // shortest delay line. - d[0] = LateAllPassInOut(State, 0, d[0]); - d[1] = LateAllPassInOut(State, 1, d[1]); - d[2] = LateAllPassInOut(State, 2, d[2]); - d[3] = LateAllPassInOut(State, 3, d[3]); - - /* Late reverb is done with a modified feed-back delay network (FDN) - * topology. Four input lines are each fed through their own all-pass - * filter and then into the mixing matrix. The four outputs of the - * mixing matrix are then cycled back to the inputs. Each output feeds - * a different input to form a circlular feed cycle. - * - * The mixing matrix used is a 4D skew-symmetric rotation matrix derived - * using a single unitary rotational parameter: - * - * [ d, a, b, c ] 1 = a^2 + b^2 + c^2 + d^2 - * [ -a, d, c, -b ] - * [ -b, -c, d, a ] - * [ -c, b, -a, d ] - * - * The rotation is constructed from the effect's diffusion parameter, - * yielding: 1 = x^2 + 3 y^2; where a, b, and c are the coefficient y - * with differing signs, and d is the coefficient x. The matrix is thus: - * - * [ x, y, -y, y ] n = sqrt(matrix_order - 1) - * [ -y, x, y, y ] t = diffusion_parameter * atan(n) - * [ y, -y, x, y ] x = cos(t) - * [ -y, -y, -y, x ] y = sin(t) / n - * - * To reduce the number of multiplies, the x coefficient is applied with - * the cyclical delay line coefficients. Thus only the y coefficient is - * applied when mixing, and is modified to be: y / x. - */ - f[0] = (d[0] + ALfpMult(State->Late.MixCoeff, ( d[1] + -1*d[2] + d[3]))); - f[1] = (d[1] + ALfpMult(State->Late.MixCoeff, (-1*d[0] + d[2] + d[3]))); - f[2] = (d[2] + ALfpMult(State->Late.MixCoeff, ( d[0] + -1*d[1] + d[3]))); - f[3] = (d[3] + ALfpMult(State->Late.MixCoeff, (-1*d[0] + -1*d[1] + -1*d[2] ))); - - // Output the results of the matrix for all four channels, attenuated by - // the late reverb gain (which is attenuated by the 'x' mix coefficient). - out[0] = ALfpMult(State->Late.Gain, f[0]); - out[1] = ALfpMult(State->Late.Gain, f[1]); - out[2] = ALfpMult(State->Late.Gain, f[2]); - out[3] = ALfpMult(State->Late.Gain, f[3]); - - // Re-feed the cyclical delay lines. - DelayLineIn(&State->Late.Delay[0], State->Offset, f[0]); - DelayLineIn(&State->Late.Delay[1], State->Offset, f[1]); - DelayLineIn(&State->Late.Delay[2], State->Offset, f[2]); - DelayLineIn(&State->Late.Delay[3], State->Offset, f[3]); -} - -// Given an input sample, this function mixes echo into the four-channel late -// reverb. -static __inline ALvoid EAXEcho(ALverbState *State, ALfp in, ALfp *late) -{ - ALfp out, feed; - - // Get the latest attenuated echo sample for output. - feed = AttenuatedDelayLineOut(&State->Echo.Delay, - State->Offset - State->Echo.Offset, - State->Echo.Coeff); - - // Mix the output into the late reverb channels. - out = ALfpMult(State->Echo.MixCoeff[0], feed); - late[0] = (ALfpMult(State->Echo.MixCoeff[1], late[0]) + out); - late[1] = (ALfpMult(State->Echo.MixCoeff[1], late[1]) + out); - late[2] = (ALfpMult(State->Echo.MixCoeff[1], late[2]) + out); - late[3] = (ALfpMult(State->Echo.MixCoeff[1], late[3]) + out); - - // Mix the energy-attenuated input with the output and pass it through - // the echo low-pass filter. - feed = (feed + ALfpMult(State->Echo.DensityGain, in)); - feed = lerp(feed, State->Echo.LpSample, State->Echo.LpCoeff); - State->Echo.LpSample = feed; - - // Then the echo all-pass filter. - feed = AllpassInOut(&State->Echo.ApDelay, - State->Offset - State->Echo.ApOffset, - State->Offset, feed, State->Echo.ApFeedCoeff, - State->Echo.ApCoeff); - - // Feed the delay with the mixed and filtered sample. - DelayLineIn(&State->Echo.Delay, State->Offset, feed); -} - -// Perform the non-EAX reverb pass on a given input sample, resulting in -// four-channel output. -static __inline ALvoid VerbPass(ALverbState *State, ALfp in, ALfp *early, ALfp *late) -{ - ALfp feed, taps[4]; - - // Low-pass filter the incoming sample. - in = lpFilter2P(&State->LpFilter, 0, in); - - // Feed the initial delay line. - DelayLineIn(&State->Delay, State->Offset, in); - - // Calculate the early reflection from the first delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[0]); - EarlyReflection(State, in, early); - - // Feed the decorrelator from the energy-attenuated output of the second - // delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[1]); - feed = ALfpMult(in, State->Late.DensityGain); - DelayLineIn(&State->Decorrelator, State->Offset, feed); - - // Calculate the late reverb from the decorrelator taps. - taps[0] = feed; - taps[1] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[0]); - taps[2] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[1]); - taps[3] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[2]); - LateReverb(State, taps, late); - - // Step all delays forward one sample. - State->Offset++; -} - -// Perform the EAX reverb pass on a given input sample, resulting in four- -// channel output. -static __inline ALvoid EAXVerbPass(ALverbState *State, ALfp in, ALfp *early, ALfp *late) -{ - ALfp feed, taps[4]; - - // Low-pass filter the incoming sample. - in = lpFilter2P(&State->LpFilter, 0, in); - - // Perform any modulation on the input. - in = EAXModulation(State, in); - - // Feed the initial delay line. - DelayLineIn(&State->Delay, State->Offset, in); - - // Calculate the early reflection from the first delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[0]); - EarlyReflection(State, in, early); - - // Feed the decorrelator from the energy-attenuated output of the second - // delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[1]); - feed = ALfpMult(in, State->Late.DensityGain); - DelayLineIn(&State->Decorrelator, State->Offset, feed); - - // Calculate the late reverb from the decorrelator taps. - taps[0] = feed; - taps[1] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[0]); - taps[2] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[1]); - taps[3] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[2]); - LateReverb(State, taps, late); - - // Calculate and mix in any echo. - EAXEcho(State, in, late); - - // Step all delays forward one sample. - State->Offset++; -} - -// This destroys the reverb state. It should be called only when the effect -// slot has a different (or no) effect loaded over the reverb effect. -static ALvoid VerbDestroy(ALeffectState *effect) -{ - ALverbState *State = (ALverbState*)effect; - if(State) - { - free(State->SampleBuffer); - State->SampleBuffer = NULL; - free(State); - } -} - -// This updates the device-dependant reverb state. This is called on -// initialization and any time the device parameters (eg. playback frequency, -// or format) have been changed. -static ALboolean VerbDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Device->Frequency; - ALuint index; - - // Allocate the delay lines. - if(!AllocLines(AL_FALSE, frequency, State)) - return AL_FALSE; - - // The early reflection and late all-pass filter line lengths are static, - // so their offsets only need to be calculated once. - for(index = 0;index < 4;index++) - { - State->Early.Offset[index] = ALfp2int(ALfpMult(EARLY_LINE_LENGTH[index], - int2ALfp(frequency))); - State->Late.ApOffset[index] = ALfp2int(ALfpMult(ALLPASS_LINE_LENGTH[index], - int2ALfp(frequency))); - } - - for(index = 0;index < MAXCHANNELS;index++) - State->Gain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - State->Gain[chan] = int2ALfp(1); - } - - return AL_TRUE; -} - -// This updates the device-dependant EAX reverb state. This is called on -// initialization and any time the device parameters (eg. playback frequency, -// format) have been changed. -static ALboolean EAXVerbDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Device->Frequency, index; - - // Allocate the delay lines. - if(!AllocLines(AL_TRUE, frequency, State)) - return AL_FALSE; - - // Calculate the modulation filter coefficient. Notice that the exponent - // is calculated given the current sample rate. This ensures that the - // resulting filter response over time is consistent across all sample - // rates. - State->Mod.Coeff = aluPow(MODULATION_FILTER_COEFF, - ALfpDiv(MODULATION_FILTER_CONST, int2ALfp(frequency))); - - // The early reflection and late all-pass filter line lengths are static, - // so their offsets only need to be calculated once. - for(index = 0;index < 4;index++) - { - State->Early.Offset[index] = ALfp2int(ALfpMult(EARLY_LINE_LENGTH[index], - int2ALfp(frequency))); - State->Late.ApOffset[index] = ALfp2int(ALfpMult(ALLPASS_LINE_LENGTH[index], - int2ALfp(frequency))); - } - - // The echo all-pass filter line length is static, so its offset only - // needs to be calculated once. - State->Echo.ApOffset = ALfp2int(ALfpMult(ECHO_ALLPASS_LENGTH, int2ALfp(frequency))); - - return AL_TRUE; -} - -// This updates the reverb state. This is called any time the reverb effect -// is loaded into a slot. -static ALvoid VerbUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Context->Device->Frequency; - ALfp cw, x, y, hfRatio; - - // Calculate the master low-pass filter (from the master effect HF gain). - cw = CalcI3DL2HFreq(Effect->Reverb.HFReference, frequency); - // This is done with 2 chained 1-pole filters, so no need to square g. - State->LpFilter.coeff = lpCoeffCalc(Effect->Reverb.GainHF, cw); - - // Update the initial effect delay. - UpdateDelayLine(Effect->Reverb.ReflectionsDelay, - Effect->Reverb.LateReverbDelay, frequency, State); - - // Update the early lines. - UpdateEarlyLines(Effect->Reverb.Gain, Effect->Reverb.ReflectionsGain, - Effect->Reverb.LateReverbDelay, State); - - // Update the decorrelator. - UpdateDecorrelator(Effect->Reverb.Density, frequency, State); - - // Get the mixing matrix coefficients (x and y). - CalcMatrixCoeffs(Effect->Reverb.Diffusion, &x, &y); - // Then divide x into y to simplify the matrix calculation. - State->Late.MixCoeff = ALfpDiv(y, x); - - // If the HF limit parameter is flagged, calculate an appropriate limit - // based on the air absorption parameter. - hfRatio = Effect->Reverb.DecayHFRatio; - if(Effect->Reverb.DecayHFLimit && Effect->Reverb.AirAbsorptionGainHF < int2ALfp(1)) - hfRatio = CalcLimitedHfRatio(hfRatio, Effect->Reverb.AirAbsorptionGainHF, - Effect->Reverb.DecayTime); - - // Update the late lines. - UpdateLateLines(Effect->Reverb.Gain, Effect->Reverb.LateReverbGain, - x, Effect->Reverb.Density, Effect->Reverb.DecayTime, - Effect->Reverb.Diffusion, hfRatio, cw, frequency, State); -} - -// This updates the EAX reverb state. This is called any time the EAX reverb -// effect is loaded into a slot. -static ALvoid EAXVerbUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Context->Device->Frequency; - ALfp cw, x, y, hfRatio; - - // Calculate the master low-pass filter (from the master effect HF gain). - cw = CalcI3DL2HFreq(Effect->Reverb.HFReference, frequency); - // This is done with 2 chained 1-pole filters, so no need to square g. - State->LpFilter.coeff = lpCoeffCalc(Effect->Reverb.GainHF, cw); - - // Update the modulator line. - UpdateModulator(Effect->Reverb.ModulationTime, - Effect->Reverb.ModulationDepth, frequency, State); - - // Update the initial effect delay. - UpdateDelayLine(Effect->Reverb.ReflectionsDelay, - Effect->Reverb.LateReverbDelay, frequency, State); - - // Update the early lines. - UpdateEarlyLines(Effect->Reverb.Gain, Effect->Reverb.ReflectionsGain, - Effect->Reverb.LateReverbDelay, State); - - // Update the decorrelator. - UpdateDecorrelator(Effect->Reverb.Density, frequency, State); - - // Get the mixing matrix coefficients (x and y). - CalcMatrixCoeffs(Effect->Reverb.Diffusion, &x, &y); - // Then divide x into y to simplify the matrix calculation. - State->Late.MixCoeff = ALfpDiv(y, x); - - // If the HF limit parameter is flagged, calculate an appropriate limit - // based on the air absorption parameter. - hfRatio = Effect->Reverb.DecayHFRatio; - if(Effect->Reverb.DecayHFLimit && Effect->Reverb.AirAbsorptionGainHF < int2ALfp(1)) - hfRatio = CalcLimitedHfRatio(hfRatio, Effect->Reverb.AirAbsorptionGainHF, - Effect->Reverb.DecayTime); - - // Update the late lines. - UpdateLateLines(Effect->Reverb.Gain, Effect->Reverb.LateReverbGain, - x, Effect->Reverb.Density, Effect->Reverb.DecayTime, - Effect->Reverb.Diffusion, hfRatio, cw, frequency, State); - - // Update the echo line. - UpdateEchoLine(Effect->Reverb.Gain, Effect->Reverb.LateReverbGain, - Effect->Reverb.EchoTime, Effect->Reverb.DecayTime, - Effect->Reverb.Diffusion, Effect->Reverb.EchoDepth, - hfRatio, cw, frequency, State); - - // Update early and late 3D panning. - Update3DPanning(Context->Device, Effect->Reverb.ReflectionsPan, - Effect->Reverb.LateReverbPan, State); -} - -// This processes the reverb state, given the input samples and an output -// buffer. -static ALvoid VerbProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALverbState *State = (ALverbState*)effect; - ALuint index; - ALfp early[4], late[4], out[4]; - ALfp gain = Slot->Gain; - const ALfp *panGain = State->Gain; - - for(index = 0;index < SamplesToDo;index++) - { - // Process reverb for this sample. - VerbPass(State, SamplesIn[index], early, late); - - // Mix early reflections and late reverb. - out[0] = ALfpMult((early[0] + late[0]), gain); - out[1] = ALfpMult((early[1] + late[1]), gain); -#ifdef APPORTABLE_OPTIMIZED_OUT - out[2] = ALfpMult((early[2] + late[2]), gain); - out[3] = ALfpMult((early[3] + late[3]), gain); -#endif - - // Output the results. - SamplesOut[index][FRONT_LEFT] = (SamplesOut[index][FRONT_LEFT] + ALfpMult(panGain[FRONT_LEFT] , out[0])); - SamplesOut[index][FRONT_RIGHT] = (SamplesOut[index][FRONT_RIGHT] + ALfpMult(panGain[FRONT_RIGHT] , out[1])); -#ifdef APPORTABLE_OPTIMIZED_OUT - SamplesOut[index][FRONT_CENTER] = (SamplesOut[index][FRONT_CENTER] + ALfpMult(panGain[FRONT_CENTER] , out[3])); - SamplesOut[index][SIDE_LEFT] = (SamplesOut[index][SIDE_LEFT] + ALfpMult(panGain[SIDE_LEFT] , out[0])); - SamplesOut[index][SIDE_RIGHT] = (SamplesOut[index][SIDE_RIGHT] + ALfpMult(panGain[SIDE_RIGHT] , out[1])); - SamplesOut[index][BACK_LEFT] = (SamplesOut[index][BACK_LEFT] + ALfpMult(panGain[BACK_LEFT] , out[0])); - SamplesOut[index][BACK_RIGHT] = (SamplesOut[index][BACK_RIGHT] + ALfpMult(panGain[BACK_RIGHT] , out[1])); - SamplesOut[index][BACK_CENTER] = (SamplesOut[index][BACK_CENTER] + ALfpMult(panGain[BACK_CENTER] , out[2])); -#endif - } -} - -// This processes the EAX reverb state, given the input samples and an output -// buffer. -static ALvoid EAXVerbProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALverbState *State = (ALverbState*)effect; - ALuint index; - ALfp early[4], late[4]; - ALfp gain = Slot->Gain; - - for(index = 0;index < SamplesToDo;index++) - { - // Process reverb for this sample. - EAXVerbPass(State, SamplesIn[index], early, late); - - // Unfortunately, while the number and configuration of gains for - // panning adjust according to MAXCHANNELS, the output from the - // reverb engine is not so scalable. - SamplesOut[index][FRONT_LEFT] = (SamplesOut[index][FRONT_LEFT] + - ALfpMult((ALfpMult(State->Early.PanGain[FRONT_LEFT],early[0]) + - ALfpMult(State->Late.PanGain[FRONT_LEFT],late[0])), gain)); - SamplesOut[index][FRONT_RIGHT] = (SamplesOut[index][FRONT_RIGHT] + - ALfpMult((ALfpMult(State->Early.PanGain[FRONT_RIGHT],early[1]) + - ALfpMult(State->Late.PanGain[FRONT_RIGHT],late[1])), gain)); -#ifdef APPORTABLE_OPTIMIZED_OUT - SamplesOut[index][FRONT_CENTER] = (SamplesOut[index][FRONT_CENTER] + - ALfpMult((ALfpMult(State->Early.PanGain[FRONT_LEFT],early[3]) + - ALfpMult(State->Late.PanGain[FRONT_CENTER],late[3])), gain)); - SamplesOut[index][SIDE_LEFT] = (SamplesOut[index][SIDE_LEFT] + - ALfpMult((ALfpMult(State->Early.PanGain[SIDE_LEFT],early[0]) + - ALfpMult(State->Late.PanGain[SIDE_LEFT],late[0])), gain)); - SamplesOut[index][SIDE_RIGHT] = (SamplesOut[index][SIDE_RIGHT] + - ALfpMult((ALfpMult(State->Early.PanGain[SIDE_RIGHT],early[1]) + - ALfpMult(State->Late.PanGain[SIDE_RIGHT],late[1])), gain)); - SamplesOut[index][BACK_LEFT] = (SamplesOut[index][BACK_LEFT] + - ALfpMult((ALfpMult(State->Early.PanGain[BACK_LEFT],early[0]) + - ALfpMult(State->Late.PanGain[BACK_LEFT],late[0])), gain)); - SamplesOut[index][BACK_RIGHT] = (SamplesOut[index][BACK_RIGHT] + - ALfpMult((ALfpMult(State->Early.PanGain[BACK_RIGHT],early[1]) + - ALfpMult(State->Late.PanGain[BACK_RIGHT],late[1])), gain)); - SamplesOut[index][BACK_CENTER] = (SamplesOut[index][BACK_CENTER] + - ALfpMult((ALfpMult(State->Early.PanGain[BACK_CENTER],early[2]) + - ALfpMult(State->Late.PanGain[BACK_CENTER],late[2])), gain)); -#endif - - } -} - -// This creates the reverb state. It should be called only when the reverb -// effect is loaded into a slot that doesn't already have a reverb effect. -ALeffectState *VerbCreate(void) -{ - ALverbState *State = NULL; - ALuint index; - - State = malloc(sizeof(ALverbState)); - if(!State) - return NULL; - - State->state.Destroy = VerbDestroy; - State->state.DeviceUpdate = VerbDeviceUpdate; - State->state.Update = VerbUpdate; - State->state.Process = VerbProcess; - - State->TotalSamples = 0; - State->SampleBuffer = NULL; - - State->LpFilter.coeff = int2ALfp(0); - State->LpFilter.history[0] = int2ALfp(0); - State->LpFilter.history[1] = int2ALfp(0); - - State->Mod.Delay.Mask = 0; - State->Mod.Delay.Line = NULL; - State->Mod.Index = 0; - State->Mod.Range = 1; - State->Mod.Depth = int2ALfp(0); - State->Mod.Coeff = int2ALfp(0); - State->Mod.Filter = int2ALfp(0); - - State->Delay.Mask = 0; - State->Delay.Line = NULL; - State->DelayTap[0] = 0; - State->DelayTap[1] = 0; - - State->Early.Gain = int2ALfp(0); - for(index = 0;index < 4;index++) - { - State->Early.Coeff[index] = int2ALfp(0); - State->Early.Delay[index].Mask = 0; - State->Early.Delay[index].Line = NULL; - State->Early.Offset[index] = 0; - } - - State->Decorrelator.Mask = 0; - State->Decorrelator.Line = NULL; - State->DecoTap[0] = 0; - State->DecoTap[1] = 0; - State->DecoTap[2] = 0; - - State->Late.Gain = int2ALfp(0); - State->Late.DensityGain = int2ALfp(0); - State->Late.ApFeedCoeff = int2ALfp(0); - State->Late.MixCoeff = int2ALfp(0); - for(index = 0;index < 4;index++) - { - State->Late.ApCoeff[index] = int2ALfp(0); - State->Late.ApDelay[index].Mask = 0; - State->Late.ApDelay[index].Line = NULL; - State->Late.ApOffset[index] = 0; - - State->Late.Coeff[index] = int2ALfp(0); - State->Late.Delay[index].Mask = 0; - State->Late.Delay[index].Line = NULL; - State->Late.Offset[index] = 0; - - State->Late.LpCoeff[index] = int2ALfp(0); - State->Late.LpSample[index] = int2ALfp(0); - } - - for(index = 0;index < MAXCHANNELS;index++) - { - State->Early.PanGain[index] = int2ALfp(0); - State->Late.PanGain[index] = int2ALfp(0); - } - - State->Echo.DensityGain = int2ALfp(0); - State->Echo.Delay.Mask = 0; - State->Echo.Delay.Line = NULL; - State->Echo.ApDelay.Mask = 0; - State->Echo.ApDelay.Line = NULL; - State->Echo.Coeff = int2ALfp(0); - State->Echo.ApFeedCoeff = int2ALfp(0); - State->Echo.ApCoeff = int2ALfp(0); - State->Echo.Offset = 0; - State->Echo.ApOffset = 0; - State->Echo.LpCoeff = int2ALfp(0); - State->Echo.LpSample = int2ALfp(0); - State->Echo.MixCoeff[0] = int2ALfp(0); - State->Echo.MixCoeff[1] = int2ALfp(0); - - State->Offset = 0; - - State->Gain = State->Late.PanGain; - - return &State->state; -} - -ALeffectState *EAXVerbCreate(void) -{ - ALeffectState *State = VerbCreate(); - if(State) - { - State->DeviceUpdate = EAXVerbDeviceUpdate; - State->Update = EAXVerbUpdate; - State->Process = EAXVerbProcess; - } - return State; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alcRing.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alcRing.c deleted file mode 100644 index 3361eb6e5..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alcRing.c +++ /dev/null @@ -1,131 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "alMain.h" - - -struct RingBuffer { - ALubyte *mem; - - ALsizei frame_size; - ALsizei length; - ALint read_pos; - ALint write_pos; - - CRITICAL_SECTION cs; -}; - - -RingBuffer *CreateRingBuffer(ALsizei frame_size, ALsizei length) -{ - RingBuffer *ring = calloc(1, sizeof(*ring)); - if(ring) - { - ring->frame_size = frame_size; - ring->length = length+1; - ring->write_pos = 1; - ring->mem = malloc(ring->length * ring->frame_size); - if(!ring->mem) - { - free(ring); - ring = NULL; - } - - InitializeCriticalSection(&ring->cs); - } - return ring; -} - -void DestroyRingBuffer(RingBuffer *ring) -{ - if(ring) - { - DeleteCriticalSection(&ring->cs); - free(ring->mem); - free(ring); - } -} - -ALsizei RingBufferSize(RingBuffer *ring) -{ - ALsizei s; - - EnterCriticalSection(&ring->cs); - s = (ring->write_pos-ring->read_pos-1+ring->length) % ring->length; - LeaveCriticalSection(&ring->cs); - - return s; -} - -void WriteRingBuffer(RingBuffer *ring, const ALubyte *data, ALsizei len) -{ - int remain; - - EnterCriticalSection(&ring->cs); - - remain = (ring->read_pos-ring->write_pos+ring->length) % ring->length; - if(remain < len) len = remain; - - if(len > 0) - { - remain = ring->length - ring->write_pos; - if(remain < len) - { - memcpy(ring->mem+(ring->write_pos*ring->frame_size), data, - remain*ring->frame_size); - memcpy(ring->mem, data+(remain*ring->frame_size), - (len-remain)*ring->frame_size); - } - else - memcpy(ring->mem+(ring->write_pos*ring->frame_size), data, - len*ring->frame_size); - - ring->write_pos += len; - ring->write_pos %= ring->length; - } - - LeaveCriticalSection(&ring->cs); -} - -void ReadRingBuffer(RingBuffer *ring, ALubyte *data, ALsizei len) -{ - int remain; - - EnterCriticalSection(&ring->cs); - - remain = ring->length - ring->read_pos; - if(remain < len) - { - memcpy(data, ring->mem+(ring->read_pos*ring->frame_size), remain*ring->frame_size); - memcpy(data+(remain*ring->frame_size), ring->mem, (len-remain)*ring->frame_size); - } - else - memcpy(data, ring->mem+(ring->read_pos*ring->frame_size), len*ring->frame_size); - - ring->read_pos += len; - ring->read_pos %= ring->length; - - LeaveCriticalSection(&ring->cs); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alcThread.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alcThread.c deleted file mode 100644 index 582dfd8c2..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alcThread.c +++ /dev/null @@ -1,128 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include - -#include "alMain.h" -#include "alThunk.h" - - -#ifdef _WIN32 - -typedef struct { - ALuint (*func)(ALvoid*); - ALvoid *ptr; - HANDLE thread; -} ThreadInfo; - -static DWORD CALLBACK StarterFunc(void *ptr) -{ - ThreadInfo *inf = (ThreadInfo*)ptr; - ALint ret; - - ret = inf->func(inf->ptr); - ExitThread((DWORD)ret); - - return (DWORD)ret; -} - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr) -{ - DWORD dummy; - ThreadInfo *inf = malloc(sizeof(ThreadInfo)); - if(!inf) return 0; - - inf->func = func; - inf->ptr = ptr; - - inf->thread = CreateThread(NULL, 0, StarterFunc, inf, 0, &dummy); - if(!inf->thread) - { - free(inf); - return NULL; - } - - return inf; -} - -ALuint StopThread(ALvoid *thread) -{ - ThreadInfo *inf = thread; - DWORD ret = 0; - - WaitForSingleObject(inf->thread, INFINITE); - GetExitCodeThread(inf->thread, &ret); - CloseHandle(inf->thread); - - free(inf); - - return (ALuint)ret; -} - -#else - -#include - -typedef struct { - ALuint (*func)(ALvoid*); - ALvoid *ptr; - ALuint ret; - pthread_t thread; -} ThreadInfo; - -static void *StarterFunc(void *ptr) -{ - ThreadInfo *inf = (ThreadInfo*)ptr; - inf->ret = inf->func(inf->ptr); - return NULL; -} - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr) -{ - ThreadInfo *inf = malloc(sizeof(ThreadInfo)); - if(!inf) return NULL; - - inf->func = func; - inf->ptr = ptr; - if(pthread_create(&inf->thread, NULL, StarterFunc, inf) != 0) - { - free(inf); - return NULL; - } - - return inf; -} - -ALuint StopThread(ALvoid *thread) -{ - ThreadInfo *inf = thread; - ALuint ret; - - pthread_join(inf->thread, NULL); - ret = inf->ret; - - free(inf); - - return ret; -} - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alsa.c b/internal/c/parts/audio/out/android/OpenAL/Alc/alsa.c deleted file mode 100644 index a7e87587b..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alsa.c +++ /dev/null @@ -1,1048 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#ifdef HAVE_DLFCN_H -#include -#endif -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include - - -typedef struct { - snd_pcm_t *pcmHandle; - - ALvoid *buffer; - ALsizei size; - - ALboolean doCapture; - RingBuffer *ring; - - volatile int killNow; - ALvoid *thread; -} alsa_data; - -typedef struct { - ALCchar *name; - int card, dev; -} DevMap; - -static void *alsa_handle; -#define MAKE_FUNC(f) static typeof(f) * p##f -MAKE_FUNC(snd_strerror); -MAKE_FUNC(snd_pcm_open); -MAKE_FUNC(snd_pcm_close); -MAKE_FUNC(snd_pcm_nonblock); -MAKE_FUNC(snd_pcm_frames_to_bytes); -MAKE_FUNC(snd_pcm_bytes_to_frames); -MAKE_FUNC(snd_pcm_hw_params_malloc); -MAKE_FUNC(snd_pcm_hw_params_free); -MAKE_FUNC(snd_pcm_hw_params_any); -MAKE_FUNC(snd_pcm_hw_params_set_access); -MAKE_FUNC(snd_pcm_hw_params_set_format); -MAKE_FUNC(snd_pcm_hw_params_set_channels); -MAKE_FUNC(snd_pcm_hw_params_set_periods_near); -MAKE_FUNC(snd_pcm_hw_params_set_rate_near); -MAKE_FUNC(snd_pcm_hw_params_set_rate); -MAKE_FUNC(snd_pcm_hw_params_set_rate_resample); -MAKE_FUNC(snd_pcm_hw_params_set_buffer_time_near); -MAKE_FUNC(snd_pcm_hw_params_set_period_time_near); -MAKE_FUNC(snd_pcm_hw_params_set_buffer_size_near); -MAKE_FUNC(snd_pcm_hw_params_set_period_size_near); -MAKE_FUNC(snd_pcm_hw_params_set_buffer_size_min); -MAKE_FUNC(snd_pcm_hw_params_get_buffer_size); -MAKE_FUNC(snd_pcm_hw_params_get_period_size); -MAKE_FUNC(snd_pcm_hw_params_get_access); -MAKE_FUNC(snd_pcm_hw_params_get_periods); -MAKE_FUNC(snd_pcm_hw_params); -MAKE_FUNC(snd_pcm_sw_params_malloc); -MAKE_FUNC(snd_pcm_sw_params_current); -MAKE_FUNC(snd_pcm_sw_params_set_avail_min); -MAKE_FUNC(snd_pcm_sw_params); -MAKE_FUNC(snd_pcm_sw_params_free); -MAKE_FUNC(snd_pcm_prepare); -MAKE_FUNC(snd_pcm_start); -MAKE_FUNC(snd_pcm_resume); -MAKE_FUNC(snd_pcm_wait); -MAKE_FUNC(snd_pcm_state); -MAKE_FUNC(snd_pcm_avail_update); -MAKE_FUNC(snd_pcm_areas_silence); -MAKE_FUNC(snd_pcm_mmap_begin); -MAKE_FUNC(snd_pcm_mmap_commit); -MAKE_FUNC(snd_pcm_readi); -MAKE_FUNC(snd_pcm_writei); -MAKE_FUNC(snd_pcm_drain); -MAKE_FUNC(snd_pcm_recover); -MAKE_FUNC(snd_pcm_info_malloc); -MAKE_FUNC(snd_pcm_info_free); -MAKE_FUNC(snd_pcm_info_set_device); -MAKE_FUNC(snd_pcm_info_set_subdevice); -MAKE_FUNC(snd_pcm_info_set_stream); -MAKE_FUNC(snd_pcm_info_get_name); -MAKE_FUNC(snd_ctl_pcm_next_device); -MAKE_FUNC(snd_ctl_pcm_info); -MAKE_FUNC(snd_ctl_open); -MAKE_FUNC(snd_ctl_close); -MAKE_FUNC(snd_ctl_card_info_malloc); -MAKE_FUNC(snd_ctl_card_info_free); -MAKE_FUNC(snd_ctl_card_info); -MAKE_FUNC(snd_ctl_card_info_get_name); -MAKE_FUNC(snd_card_next); -#undef MAKE_FUNC - - -static const ALCchar alsaDevice[] = "ALSA Default"; -static DevMap *allDevNameMap; -static ALuint numDevNames; -static DevMap *allCaptureDevNameMap; -static ALuint numCaptureDevNames; - - -void *alsa_load(void) -{ - if(!alsa_handle) - { - char *str; - -#ifdef HAVE_DLFCN_H - alsa_handle = dlopen("libasound.so.2", RTLD_NOW); - if(!alsa_handle) - return NULL; - dlerror(); - -#define LOAD_FUNC(f) do { \ - p##f = dlsym(alsa_handle, #f); \ - if((str=dlerror()) != NULL) \ - { \ - dlclose(alsa_handle); \ - alsa_handle = NULL; \ - AL_PRINT("Could not load %s from libasound.so.2: %s\n", #f, str); \ - return NULL; \ - } \ -} while(0) -#else - str = NULL; - alsa_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(f) p##f = f -#endif - -LOAD_FUNC(snd_strerror); -LOAD_FUNC(snd_pcm_open); -LOAD_FUNC(snd_pcm_close); -LOAD_FUNC(snd_pcm_nonblock); -LOAD_FUNC(snd_pcm_frames_to_bytes); -LOAD_FUNC(snd_pcm_bytes_to_frames); -LOAD_FUNC(snd_pcm_hw_params_malloc); -LOAD_FUNC(snd_pcm_hw_params_free); -LOAD_FUNC(snd_pcm_hw_params_any); -LOAD_FUNC(snd_pcm_hw_params_set_access); -LOAD_FUNC(snd_pcm_hw_params_set_format); -LOAD_FUNC(snd_pcm_hw_params_set_channels); -LOAD_FUNC(snd_pcm_hw_params_set_periods_near); -LOAD_FUNC(snd_pcm_hw_params_set_rate_near); -LOAD_FUNC(snd_pcm_hw_params_set_rate); -LOAD_FUNC(snd_pcm_hw_params_set_rate_resample); -LOAD_FUNC(snd_pcm_hw_params_set_buffer_time_near); -LOAD_FUNC(snd_pcm_hw_params_set_period_time_near); -LOAD_FUNC(snd_pcm_hw_params_set_buffer_size_near); -LOAD_FUNC(snd_pcm_hw_params_set_buffer_size_min); -LOAD_FUNC(snd_pcm_hw_params_set_period_size_near); -LOAD_FUNC(snd_pcm_hw_params_get_buffer_size); -LOAD_FUNC(snd_pcm_hw_params_get_period_size); -LOAD_FUNC(snd_pcm_hw_params_get_access); -LOAD_FUNC(snd_pcm_hw_params_get_periods); -LOAD_FUNC(snd_pcm_hw_params); -LOAD_FUNC(snd_pcm_sw_params_malloc); -LOAD_FUNC(snd_pcm_sw_params_current); -LOAD_FUNC(snd_pcm_sw_params_set_avail_min); -LOAD_FUNC(snd_pcm_sw_params); -LOAD_FUNC(snd_pcm_sw_params_free); -LOAD_FUNC(snd_pcm_prepare); -LOAD_FUNC(snd_pcm_start); -LOAD_FUNC(snd_pcm_resume); -LOAD_FUNC(snd_pcm_wait); -LOAD_FUNC(snd_pcm_state); -LOAD_FUNC(snd_pcm_avail_update); -LOAD_FUNC(snd_pcm_areas_silence); -LOAD_FUNC(snd_pcm_mmap_begin); -LOAD_FUNC(snd_pcm_mmap_commit); -LOAD_FUNC(snd_pcm_readi); -LOAD_FUNC(snd_pcm_writei); -LOAD_FUNC(snd_pcm_drain); -LOAD_FUNC(snd_pcm_recover); - -LOAD_FUNC(snd_pcm_info_malloc); -LOAD_FUNC(snd_pcm_info_free); -LOAD_FUNC(snd_pcm_info_set_device); -LOAD_FUNC(snd_pcm_info_set_subdevice); -LOAD_FUNC(snd_pcm_info_set_stream); -LOAD_FUNC(snd_pcm_info_get_name); -LOAD_FUNC(snd_ctl_pcm_next_device); -LOAD_FUNC(snd_ctl_pcm_info); -LOAD_FUNC(snd_ctl_open); -LOAD_FUNC(snd_ctl_close); -LOAD_FUNC(snd_ctl_card_info_malloc); -LOAD_FUNC(snd_ctl_card_info_free); -LOAD_FUNC(snd_ctl_card_info); -LOAD_FUNC(snd_ctl_card_info_get_name); -LOAD_FUNC(snd_card_next); - -#undef LOAD_FUNC - } - return alsa_handle; -} - -static DevMap *probe_devices(snd_pcm_stream_t stream, ALuint *count) -{ - snd_ctl_t *handle; - int card, err, dev, idx; - snd_ctl_card_info_t *info; - snd_pcm_info_t *pcminfo; - DevMap *DevList; - char name[1024]; - - psnd_ctl_card_info_malloc(&info); - psnd_pcm_info_malloc(&pcminfo); - - card = -1; - if((err=psnd_card_next(&card)) < 0) - AL_PRINT("Failed to find a card: %s\n", psnd_strerror(err)); - - DevList = malloc(sizeof(DevMap) * 1); - DevList[0].name = strdup("ALSA Default"); - idx = 1; - while(card >= 0) - { - sprintf(name, "hw:%d", card); - if((err = psnd_ctl_open(&handle, name, 0)) < 0) - { - AL_PRINT("control open (%i): %s\n", card, psnd_strerror(err)); - goto next_card; - } - if((err = psnd_ctl_card_info(handle, info)) < 0) - { - AL_PRINT("control hardware info (%i): %s\n", card, psnd_strerror(err)); - psnd_ctl_close(handle); - goto next_card; - } - - dev = -1; - while(1) - { - const char *cname, *dname; - void *temp; - - if(psnd_ctl_pcm_next_device(handle, &dev) < 0) - AL_PRINT("snd_ctl_pcm_next_device failed\n"); - if(dev < 0) - break; - - psnd_pcm_info_set_device(pcminfo, dev); - psnd_pcm_info_set_subdevice(pcminfo, 0); - psnd_pcm_info_set_stream(pcminfo, stream); - if((err = psnd_ctl_pcm_info(handle, pcminfo)) < 0) { - if(err != -ENOENT) - AL_PRINT("control digital audio info (%i): %s\n", card, psnd_strerror(err)); - continue; - } - - temp = realloc(DevList, sizeof(DevMap) * (idx+1)); - if(temp) - { - DevList = temp; - cname = psnd_ctl_card_info_get_name(info); - dname = psnd_pcm_info_get_name(pcminfo); - snprintf(name, sizeof(name), "%s [%s] (hw:%d,%d) via ALSA", - cname, dname, card, dev); - DevList[idx].name = strdup(name); - DevList[idx].card = card; - DevList[idx].dev = dev; - idx++; - } - } - psnd_ctl_close(handle); - next_card: - if(psnd_card_next(&card) < 0) { - AL_PRINT("snd_card_next failed\n"); - break; - } - } - - psnd_pcm_info_free(pcminfo); - psnd_ctl_card_info_free(info); - - *count = idx; - return DevList; -} - - -static int xrun_recovery(snd_pcm_t *handle, int err) -{ - err = psnd_pcm_recover(handle, err, 1); - if(err < 0) - AL_PRINT("recover failed: %s\n", psnd_strerror(err)); - return err; -} - -static int verify_state(snd_pcm_t *handle) -{ - snd_pcm_state_t state = psnd_pcm_state(handle); - if(state == SND_PCM_STATE_DISCONNECTED) - return -ENODEV; - if(state == SND_PCM_STATE_XRUN) - { - int err = xrun_recovery(handle, -EPIPE); - if(err < 0) return err; - } - else if(state == SND_PCM_STATE_SUSPENDED) - { - int err = xrun_recovery(handle, -ESTRPIPE); - if(err < 0) return err; - } - - return state; -} - - -static ALuint ALSAProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - alsa_data *data = (alsa_data*)pDevice->ExtraData; - const snd_pcm_channel_area_t *areas = NULL; - snd_pcm_sframes_t avail, commitres; - snd_pcm_uframes_t offset, frames; - char *WritePtr; - int err; - - SetRTPriority(); - - while(!data->killNow) - { - int state = verify_state(data->pcmHandle); - if(state < 0) - { - AL_PRINT("Invalid state detected: %s\n", psnd_strerror(state)); - aluHandleDisconnect(pDevice); - break; - } - - avail = psnd_pcm_avail_update(data->pcmHandle); - if(avail < 0) - { - AL_PRINT("available update failed: %s\n", psnd_strerror(avail)); - continue; - } - - // make sure there's frames to process - if((snd_pcm_uframes_t)avail < pDevice->UpdateSize) - { - if(state != SND_PCM_STATE_RUNNING) - { - err = psnd_pcm_start(data->pcmHandle); - if(err < 0) - { - AL_PRINT("start failed: %s\n", psnd_strerror(err)); - continue; - } - } - if(psnd_pcm_wait(data->pcmHandle, 1000) == 0) - AL_PRINT("Wait timeout... buffer size too low?\n"); - continue; - } - avail -= avail%pDevice->UpdateSize; - - // it is possible that contiguous areas are smaller, thus we use a loop - while(avail > 0) - { - frames = avail; - - err = psnd_pcm_mmap_begin(data->pcmHandle, &areas, &offset, &frames); - if(err < 0) - { - AL_PRINT("mmap begin error: %s\n", psnd_strerror(err)); - break; - } - - WritePtr = (char*)areas->addr + (offset * areas->step / 8); - aluMixData(pDevice, WritePtr, frames); - - commitres = psnd_pcm_mmap_commit(data->pcmHandle, offset, frames); - if(commitres < 0 || (commitres-frames) != 0) - { - AL_PRINT("mmap commit error: %s\n", - psnd_strerror(commitres >= 0 ? -EPIPE : commitres)); - break; - } - - avail -= frames; - } - } - - return 0; -} - -static ALuint ALSANoMMapProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - alsa_data *data = (alsa_data*)pDevice->ExtraData; - snd_pcm_sframes_t avail; - char *WritePtr; - - SetRTPriority(); - - while(!data->killNow) - { - int state = verify_state(data->pcmHandle); - if(state < 0) - { - AL_PRINT("Invalid state detected: %s\n", psnd_strerror(state)); - aluHandleDisconnect(pDevice); - break; - } - - WritePtr = data->buffer; - avail = data->size / psnd_pcm_frames_to_bytes(data->pcmHandle, 1); - aluMixData(pDevice, WritePtr, avail); - - while(avail > 0) - { - int ret = psnd_pcm_writei(data->pcmHandle, WritePtr, avail); - switch (ret) - { - case -EAGAIN: - continue; - case -ESTRPIPE: - case -EPIPE: - case -EINTR: - ret = psnd_pcm_recover(data->pcmHandle, ret, 1); - if(ret < 0) - avail = 0; - break; - default: - if (ret >= 0) - { - WritePtr += psnd_pcm_frames_to_bytes(data->pcmHandle, ret); - avail -= ret; - } - break; - } - if (ret < 0) - { - ret = psnd_pcm_prepare(data->pcmHandle); - if(ret < 0) - break; - } - } - } - - return 0; -} - -static ALCboolean alsa_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - alsa_data *data; - char driver[64]; - int i; - - if(!alsa_load()) - return ALC_FALSE; - - strncpy(driver, GetConfigValue("alsa", "device", "default"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - - if(!deviceName) - deviceName = alsaDevice; - else if(strcmp(deviceName, alsaDevice) != 0) - { - size_t idx; - - if(!allDevNameMap) - allDevNameMap = probe_devices(SND_PCM_STREAM_PLAYBACK, &numDevNames); - - for(idx = 0;idx < numDevNames;idx++) - { - if(allDevNameMap[idx].name && - strcmp(deviceName, allDevNameMap[idx].name) == 0) - { - if(idx > 0) - sprintf(driver, "hw:%d,%d", allDevNameMap[idx].card, allDevNameMap[idx].dev); - break; - } - } - if(idx == numDevNames) - return ALC_FALSE; - } - - data = (alsa_data*)calloc(1, sizeof(alsa_data)); - - i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK); - if(i >= 0) - { - i = psnd_pcm_nonblock(data->pcmHandle, 0); - if(i < 0) - psnd_pcm_close(data->pcmHandle); - } - if(i < 0) - { - free(data); - AL_PRINT("Could not open playback device '%s': %s\n", driver, psnd_strerror(i)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void alsa_close_playback(ALCdevice *device) -{ - alsa_data *data = (alsa_data*)device->ExtraData; - - psnd_pcm_close(data->pcmHandle); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean alsa_reset_playback(ALCdevice *device) -{ - alsa_data *data = (alsa_data*)device->ExtraData; - snd_pcm_uframes_t periodSizeInFrames; - unsigned int periodLen, bufferLen; - snd_pcm_sw_params_t *sp = NULL; - snd_pcm_hw_params_t *p = NULL; - snd_pcm_access_t access; - snd_pcm_format_t format; - unsigned int periods; - unsigned int rate; - int allowmmap; - char *err; - int i; - - - format = -1; - switch(device->FmtType) - { - case DevFmtByte: - format = SND_PCM_FORMAT_S8; - break; - case DevFmtUByte: - format = SND_PCM_FORMAT_U8; - break; - case DevFmtShort: - format = SND_PCM_FORMAT_S16; - break; - case DevFmtUShort: - format = SND_PCM_FORMAT_U16; - break; - case DevFmtFloat: - format = SND_PCM_FORMAT_FLOAT; - break; - } - - allowmmap = GetConfigValueBool("alsa", "mmap", 1); - periods = device->NumUpdates; - periodLen = (ALuint64)device->UpdateSize * 1000000 / device->Frequency; - bufferLen = periodLen * periods; - rate = device->Frequency; - - err = NULL; - psnd_pcm_hw_params_malloc(&p); - - if((i=psnd_pcm_hw_params_any(data->pcmHandle, p)) < 0) - err = "any"; - /* set interleaved access */ - if(i >= 0 && (!allowmmap || (i=psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_MMAP_INTERLEAVED)) < 0)) - { - if(periods > 2) - { - periods--; - bufferLen = periodLen * periods; - } - if((i=psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_RW_INTERLEAVED)) < 0) - err = "set access"; - } - /* set format (implicitly sets sample bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, format)) < 0) - { - device->FmtType = DevFmtFloat; - if(format == SND_PCM_FORMAT_FLOAT || - (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, SND_PCM_FORMAT_FLOAT)) < 0) - { - device->FmtType = DevFmtShort; - if(format == SND_PCM_FORMAT_S16 || - (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, SND_PCM_FORMAT_S16)) < 0) - { - device->FmtType = DevFmtUByte; - if(format == SND_PCM_FORMAT_U8 || - (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, SND_PCM_FORMAT_U8)) < 0) - err = "set format"; - } - } - } - /* set channels (implicitly sets frame bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, ChannelsFromDevFmt(device->FmtChans))) < 0) - { - device->FmtChans = DevFmtStereo; - if((i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, 2)) < 0) - { - device->FmtChans = DevFmtMono; - if((i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, 1)) < 0) - err = "set channels"; - } - } - if(i >= 0 && (i=psnd_pcm_hw_params_set_rate_resample(data->pcmHandle, p, 0)) < 0) - { - AL_PRINT("Failed to disable ALSA resampler\n"); - i = 0; - } - /* set rate (implicitly constrains period/buffer parameters) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_rate_near(data->pcmHandle, p, &rate, NULL)) < 0) - err = "set rate near"; - /* set buffer time (implicitly constrains period/buffer parameters) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_buffer_time_near(data->pcmHandle, p, &bufferLen, NULL)) < 0) - err = "set buffer time near"; - /* set period time in frame units (implicitly sets buffer size/bytes/time and period size/bytes) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_period_time_near(data->pcmHandle, p, &periodLen, NULL)) < 0) - err = "set period time near"; - /* install and prepare hardware configuration */ - if(i >= 0 && (i=psnd_pcm_hw_params(data->pcmHandle, p)) < 0) - err = "set params"; - if(i >= 0 && (i=psnd_pcm_hw_params_get_access(p, &access)) < 0) - err = "get access"; - if(i >= 0 && (i=psnd_pcm_hw_params_get_period_size(p, &periodSizeInFrames, NULL)) < 0) - err = "get period size"; - if(i >= 0 && (i=psnd_pcm_hw_params_get_periods(p, &periods, NULL)) < 0) - err = "get periods"; - if(i < 0) - { - AL_PRINT("%s failed: %s\n", err, psnd_strerror(i)); - psnd_pcm_hw_params_free(p); - return ALC_FALSE; - } - - psnd_pcm_hw_params_free(p); - - err = NULL; - psnd_pcm_sw_params_malloc(&sp); - - if((i=psnd_pcm_sw_params_current(data->pcmHandle, sp)) != 0) - err = "sw current"; - if(i == 0 && (i=psnd_pcm_sw_params_set_avail_min(data->pcmHandle, sp, periodSizeInFrames)) != 0) - err = "sw set avail min"; - if(i == 0 && (i=psnd_pcm_sw_params(data->pcmHandle, sp)) != 0) - err = "sw set params"; - if(i != 0) - { - AL_PRINT("%s failed: %s\n", err, psnd_strerror(i)); - psnd_pcm_sw_params_free(sp); - return ALC_FALSE; - } - - psnd_pcm_sw_params_free(sp); - - device->Frequency = rate; - - SetDefaultChannelOrder(device); - - data->size = psnd_pcm_frames_to_bytes(data->pcmHandle, periodSizeInFrames); - if(access == SND_PCM_ACCESS_RW_INTERLEAVED) - { - /* Increase periods by one, since the temp buffer counts as an extra - * period */ - periods++; - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - return ALC_FALSE; - } - device->UpdateSize = periodSizeInFrames; - device->NumUpdates = periods; - data->thread = StartThread(ALSANoMMapProc, device); - } - else - { - i = psnd_pcm_prepare(data->pcmHandle); - if(i < 0) - { - AL_PRINT("prepare error: %s\n", psnd_strerror(i)); - return ALC_FALSE; - } - device->UpdateSize = periodSizeInFrames; - device->NumUpdates = periods; - data->thread = StartThread(ALSAProc, device); - } - if(data->thread == NULL) - { - AL_PRINT("Could not create playback thread\n"); - free(data->buffer); - data->buffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void alsa_stop_playback(ALCdevice *device) -{ - alsa_data *data = (alsa_data*)device->ExtraData; - - if(data->thread) - { - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - } - data->killNow = 0; - free(data->buffer); - data->buffer = NULL; -} - - -static ALCboolean alsa_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - snd_pcm_hw_params_t *p; - snd_pcm_uframes_t bufferSizeInFrames; - snd_pcm_format_t format; - ALuint frameSize; - alsa_data *data; - char driver[64]; - char *err; - int i; - - if(!alsa_load()) - return ALC_FALSE; - - strncpy(driver, GetConfigValue("alsa", "capture", "default"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - - if(!allCaptureDevNameMap) - allCaptureDevNameMap = probe_devices(SND_PCM_STREAM_CAPTURE, &numCaptureDevNames); - - if(!deviceName) - deviceName = allCaptureDevNameMap[0].name; - else - { - size_t idx; - - for(idx = 0;idx < numCaptureDevNames;idx++) - { - if(allCaptureDevNameMap[idx].name && - strcmp(deviceName, allCaptureDevNameMap[idx].name) == 0) - { - if(idx > 0) - sprintf(driver, "plughw:%d,%d", allCaptureDevNameMap[idx].card, allCaptureDevNameMap[idx].dev); - break; - } - } - if(idx == numCaptureDevNames) - return ALC_FALSE; - } - - data = (alsa_data*)calloc(1, sizeof(alsa_data)); - - i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_CAPTURE, SND_PCM_NONBLOCK); - if(i < 0) - { - AL_PRINT("Could not open capture device '%s': %s\n", driver, psnd_strerror(i)); - free(data); - return ALC_FALSE; - } - - format = -1; - switch(pDevice->FmtType) - { - case DevFmtByte: - format = SND_PCM_FORMAT_S8; - break; - case DevFmtUByte: - format = SND_PCM_FORMAT_U8; - break; - case DevFmtShort: - format = SND_PCM_FORMAT_S16; - break; - case DevFmtUShort: - format = SND_PCM_FORMAT_U16; - break; - case DevFmtFloat: - format = SND_PCM_FORMAT_FLOAT; - break; - } - - err = NULL; - bufferSizeInFrames = pDevice->UpdateSize * pDevice->NumUpdates; - psnd_pcm_hw_params_malloc(&p); - - if((i=psnd_pcm_hw_params_any(data->pcmHandle, p)) < 0) - err = "any"; - /* set interleaved access */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_RW_INTERLEAVED)) < 0) - err = "set access"; - /* set format (implicitly sets sample bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, format)) < 0) - err = "set format"; - /* set channels (implicitly sets frame bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, ChannelsFromDevFmt(pDevice->FmtChans))) < 0) - err = "set channels"; - /* set rate (implicitly constrains period/buffer parameters) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_rate(data->pcmHandle, p, pDevice->Frequency, 0)) < 0) - err = "set rate near"; - /* set buffer size in frame units (implicitly sets period size/bytes/time and buffer time/bytes) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_buffer_size_near(data->pcmHandle, p, &bufferSizeInFrames)) < 0) - err = "set buffer size near"; - /* install and prepare hardware configuration */ - if(i >= 0 && (i=psnd_pcm_hw_params(data->pcmHandle, p)) < 0) - err = "set params"; - if(i < 0) - { - AL_PRINT("%s failed: %s\n", err, psnd_strerror(i)); - psnd_pcm_hw_params_free(p); - goto error; - } - - if((i=psnd_pcm_hw_params_get_period_size(p, &bufferSizeInFrames, NULL)) < 0) - { - AL_PRINT("get size failed: %s\n", psnd_strerror(i)); - psnd_pcm_hw_params_free(p); - goto error; - } - - psnd_pcm_hw_params_free(p); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - data->ring = CreateRingBuffer(frameSize, pDevice->UpdateSize*pDevice->NumUpdates); - if(!data->ring) - { - AL_PRINT("ring buffer create failed\n"); - goto error; - } - - data->size = psnd_pcm_frames_to_bytes(data->pcmHandle, bufferSizeInFrames); - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - goto error; - } - - pDevice->szDeviceName = strdup(deviceName); - - pDevice->ExtraData = data; - return ALC_TRUE; - -error: - free(data->buffer); - DestroyRingBuffer(data->ring); - psnd_pcm_close(data->pcmHandle); - free(data); - - pDevice->ExtraData = NULL; - return ALC_FALSE; -} - -static void alsa_close_capture(ALCdevice *pDevice) -{ - alsa_data *data = (alsa_data*)pDevice->ExtraData; - - psnd_pcm_close(data->pcmHandle); - DestroyRingBuffer(data->ring); - - free(data->buffer); - free(data); - pDevice->ExtraData = NULL; -} - -static void alsa_start_capture(ALCdevice *Device) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - int err; - - err = psnd_pcm_start(data->pcmHandle); - if(err < 0) - { - AL_PRINT("start failed: %s\n", psnd_strerror(err)); - aluHandleDisconnect(Device); - } - else - data->doCapture = AL_TRUE; -} - -static void alsa_stop_capture(ALCdevice *Device) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - psnd_pcm_drain(data->pcmHandle); - data->doCapture = AL_FALSE; -} - -static ALCuint alsa_available_samples(ALCdevice *Device) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - snd_pcm_sframes_t avail; - - avail = (Device->Connected ? psnd_pcm_avail_update(data->pcmHandle) : 0); - if(avail < 0) - { - AL_PRINT("avail update failed: %s\n", psnd_strerror(avail)); - - if((avail=psnd_pcm_recover(data->pcmHandle, avail, 1)) >= 0) - { - if(data->doCapture) - avail = psnd_pcm_start(data->pcmHandle); - if(avail >= 0) - avail = psnd_pcm_avail_update(data->pcmHandle); - } - if(avail < 0) - { - AL_PRINT("restore error: %s\n", psnd_strerror(avail)); - aluHandleDisconnect(Device); - } - } - while(avail > 0) - { - snd_pcm_sframes_t amt; - - amt = psnd_pcm_bytes_to_frames(data->pcmHandle, data->size); - if(avail < amt) amt = avail; - - amt = psnd_pcm_readi(data->pcmHandle, data->buffer, amt); - if(amt < 0) - { - AL_PRINT("read error: %s\n", psnd_strerror(amt)); - - if(amt == -EAGAIN) - continue; - if((amt=psnd_pcm_recover(data->pcmHandle, amt, 1)) >= 0) - { - if(data->doCapture) - amt = psnd_pcm_start(data->pcmHandle); - if(amt >= 0) - amt = psnd_pcm_avail_update(data->pcmHandle); - } - if(amt < 0) - { - AL_PRINT("restore error: %s\n", psnd_strerror(amt)); - aluHandleDisconnect(Device); - break; - } - avail = amt; - continue; - } - - WriteRingBuffer(data->ring, data->buffer, amt); - avail -= amt; - } - - return RingBufferSize(data->ring); -} - -static void alsa_capture_samples(ALCdevice *Device, ALCvoid *Buffer, ALCuint Samples) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - - if(Samples <= alsa_available_samples(Device)) - ReadRingBuffer(data->ring, Buffer, Samples); - else - alcSetError(Device, ALC_INVALID_VALUE); -} - - -BackendFuncs alsa_funcs = { - alsa_open_playback, - alsa_close_playback, - alsa_reset_playback, - alsa_stop_playback, - alsa_open_capture, - alsa_close_capture, - alsa_start_capture, - alsa_stop_capture, - alsa_capture_samples, - alsa_available_samples -}; - -void alc_alsa_init(BackendFuncs *func_list) -{ - *func_list = alsa_funcs; -} - -void alc_alsa_deinit(void) -{ - ALuint i; - - for(i = 0;i < numDevNames;++i) - free(allDevNameMap[i].name); - free(allDevNameMap); - allDevNameMap = NULL; - numDevNames = 0; - - for(i = 0;i < numCaptureDevNames;++i) - free(allCaptureDevNameMap[i].name); - free(allCaptureDevNameMap); - allCaptureDevNameMap = NULL; - numCaptureDevNames = 0; - - if(alsa_handle) - { -#ifdef HAVE_DLFCN_H - dlclose(alsa_handle); -#endif - alsa_handle = NULL; - } -} - -void alc_alsa_probe(int type) -{ - ALuint i; - - if(!alsa_load()) - return; - - if(type == DEVICE_PROBE) - AppendDeviceList(alsaDevice); - else if(type == ALL_DEVICE_PROBE) - { - for(i = 0;i < numDevNames;++i) - free(allDevNameMap[i].name); - - free(allDevNameMap); - allDevNameMap = probe_devices(SND_PCM_STREAM_PLAYBACK, &numDevNames); - - for(i = 0;i < numDevNames;++i) - AppendAllDeviceList(allDevNameMap[i].name); - } - else if(type == CAPTURE_DEVICE_PROBE) - { - for(i = 0;i < numCaptureDevNames;++i) - free(allCaptureDevNameMap[i].name); - - free(allCaptureDevNameMap); - allCaptureDevNameMap = probe_devices(SND_PCM_STREAM_CAPTURE, &numCaptureDevNames); - - for(i = 0;i < numCaptureDevNames;++i) - AppendCaptureDeviceList(allCaptureDevNameMap[i].name); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/alu.h b/internal/c/parts/audio/out/android/OpenAL/Alc/alu.h deleted file mode 100644 index 508eb3800..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/alu.h +++ /dev/null @@ -1,140 +0,0 @@ -#ifndef _ALU_H_ -#define _ALU_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#include -#include -#ifdef HAVE_FLOAT_H -#include -#endif - -#ifndef M_PI -#define M_PI 3.14159265358979323846 /* pi */ -#define M_PI_2 1.57079632679489661923 /* pi/2 */ -#endif - -#ifdef HAVE_POWF -#define aluPow(x,y) (float2ALfp(powf(ALfp2float(x), ALfp2float(y)))) -#else -#define aluPow(x,y) (float2ALfp((float)pow((double)ALfp2float(x), (double)ALfp2float(y)))) -#endif - -#ifdef HAVE_SQRTF -#define aluSqrt(x) (float2ALfp(sqrtf(ALfp2float(x)))) -#else -#define aluSqrt(x) (float2ALfp((float)sqrt((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ACOSF -#define aluAcos(x) (float2ALfp(acosf(ALfp2float(x)))) -#else -#define aluAcos(x) (float2ALfp((float)acos((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ATANF -#define aluAtan(x) (float2ALfp(atanf(ALfp2float(x)))) -#else -#define aluAtan(x) (float2ALfp((float)atan((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_FABSF -#define aluFabs(x) (float2ALfp(fabsf(ALfp2float(x)))) -#else -#define aluFabs(x) (float2ALfp((float)fabs((double)ALfp2float(x)))) -#endif - -// FIXME make this better -#if defined(max) && !defined(__max) -#define __max(x,y) float2ALfp(max(ALfp2float(x),ALfp2float(y))) -#endif -#if defined(min) && !defined(__min) -#define __min(x,y) float2ALfp(min(ALfp2float(x),ALfp2float(y))) -#endif - -#define QUADRANT_NUM 128 -#define LUT_NUM (4 * QUADRANT_NUM) - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - FRONT_LEFT = 0, - FRONT_RIGHT, - FRONT_CENTER, - LFE, - BACK_LEFT, - BACK_RIGHT, - BACK_CENTER, - SIDE_LEFT, - SIDE_RIGHT, -} Channel; - -#ifndef MAXCHANNELS -#define MAXCHANNELS (SIDE_RIGHT+1) -#error MAXCHANNELS -#endif - -#define BUFFERSIZE 4096 - -#define FRACTIONBITS (14) -#define FRACTIONONE (1< -#include "alMain.h" -#include "apportable_openal_funcs.h" - -static JavaVM *javaVM = NULL; -JavaVM *alcGetJavaVM(void) { - return javaVM; -} - -jint JNI_OnLoad(JavaVM *vm, void *reserved) { - BackendFuncs func_list; - if (apportableOpenALFuncs.alc_android_set_java_vm) { - apportableOpenALFuncs.alc_android_set_java_vm(vm); - } - javaVM = vm; - return JNI_VERSION_1_4; -} - -void JNICALL JNI_OnUnload (JavaVM *vm, void *reserved) -{ - if (apportableOpenALFuncs.alc_android_set_java_vm) { - apportableOpenALFuncs.alc_android_set_java_vm(NULL); - } -} - -ALC_API void ALC_APIENTRY alcSuspend(void) { - if (apportableOpenALFuncs.alc_android_suspend) { - apportableOpenALFuncs.alc_android_suspend(); - } -} - -ALC_API void ALC_APIENTRY alcResume(void) { - if (apportableOpenALFuncs.alc_android_resume) { - apportableOpenALFuncs.alc_android_resume(); - } -} - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/apportable_openal_funcs.h b/internal/c/parts/audio/out/android/OpenAL/Alc/apportable_openal_funcs.h deleted file mode 100644 index 1e8d4b71f..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/apportable_openal_funcs.h +++ /dev/null @@ -1,12 +0,0 @@ -#ifndef __APPORTABLE_OPENAL_FUNCS_H__ -#define __APPORTABLE_OPENAL_FUNCS_H__ -#include - -typedef struct { - void (*alc_android_suspend)(); - void (*alc_android_resume)(); - void (*alc_android_set_java_vm)(JavaVM*); -} ApportableOpenALFuncs; -ApportableOpenALFuncs apportableOpenALFuncs; - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/audiotrack.c b/internal/c/parts/audio/out/android/OpenAL/Alc/audiotrack.c deleted file mode 100644 index ab685e45b..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/audiotrack.c +++ /dev/null @@ -1,334 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2010 by Chris Robinson - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include "apportable_openal_funcs.h" - -static const ALCchar android_device[] = "Android Default"; - -JavaVM* alcGetJavaVM(void); -static JNIEnv* env; - -static jclass cAudioTrack = NULL; - -static jmethodID mAudioTrack; -static jmethodID mGetMinBufferSize; -static jmethodID mPlay; -static jmethodID mPause; -static jmethodID mStop; -static jmethodID mRelease; -static jmethodID mWrite; - -static int suspended = 0; -static int audioTrackPlaying = 0; -static int audioTrackWasPlaying = 0; - -typedef struct -{ - pthread_t thread; - volatile int running; -} AndroidData; - -#define STREAM_MUSIC 3 -#define CHANNEL_CONFIGURATION_MONO 2 -#define CHANNEL_CONFIGURATION_STEREO 3 -#define ENCODING_PCM_8BIT 3 -#define ENCODING_PCM_16BIT 2 -#define MODE_STREAM 1 - -static void* thread_function(void* arg) -{ - ALCdevice* device = (ALCdevice*)arg; - AndroidData* data = (AndroidData*)device->ExtraData; - - JavaVM *javaVM = alcGetJavaVM(); - (*javaVM)->AttachCurrentThread(javaVM, &env, NULL); - - (*env)->PushLocalFrame(env, 2); - - int sampleRateInHz = device->Frequency; - int channelConfig = ChannelsFromDevFmt(device->FmtChans) == 1 ? CHANNEL_CONFIGURATION_MONO : CHANNEL_CONFIGURATION_STEREO; - int audioFormat = BytesFromDevFmt(device->FmtType) == 1 ? ENCODING_PCM_8BIT : ENCODING_PCM_16BIT; - - int bufferSizeInBytes = (*env)->CallStaticIntMethod(env, cAudioTrack, - mGetMinBufferSize, sampleRateInHz, channelConfig, audioFormat); - - // Suggestion from Eric Wing - /* According to the author Martins Mozelko, I should multiply bufferSizeInBytes to tune performance. - Say, multiply by 2. - But making this number smaller seems to reduce latency... - I have tried dividing by 2, 4, and 8. 8 refuses to play any sound. - It seems that this just divides out the multiplication of NumUpdates (default=4) - which returns it to min buffer size. - bufferSizeInBytes is used in multiple places and - bufferSizeInSamples is tied directly to bufferSizeInBytes though, so we need to be careful - about what we want to change. - I'm assuming Martins is correct and this is the indeed the place we want to change it. - Dividing out the bufferSizeInSamples separately and skipping the multiply did not work. - Omitting the multiply and not dividing did work, but the buffers may be unnecessarily large. - */ - bufferSizeInBytes = bufferSizeInBytes / device->NumUpdates; - - int bufferSizeInSamples = bufferSizeInBytes / FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - - jobject track = (*env)->NewObject(env, cAudioTrack, mAudioTrack, - STREAM_MUSIC, sampleRateInHz, channelConfig, audioFormat, device->NumUpdates * bufferSizeInBytes, MODE_STREAM); - - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mPlay); - audioTrackPlaying = 1; - - jarray buffer = (*env)->NewByteArray(env, bufferSizeInBytes); - - while (data->running) - { - if (suspended) { - if (audioTrackPlaying) { - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mPause); - audioTrackPlaying = 0; - } - usleep(5000); - continue; - } else if (!audioTrackPlaying) { - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mPlay); - audioTrackPlaying = 1; - } - - void* pBuffer = (*env)->GetPrimitiveArrayCritical(env, buffer, NULL); - - if (pBuffer) - { - aluMixData(device, pBuffer, bufferSizeInSamples); - (*env)->ReleasePrimitiveArrayCritical(env, buffer, pBuffer, 0); - - (*env)->CallNonvirtualIntMethod(env, track, cAudioTrack, mWrite, buffer, 0, bufferSizeInBytes); - } - else - { - AL_PRINT("Failed to get pointer to array bytes"); - } - } - - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mStop); - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mRelease); - audioTrackPlaying = 0; - - (*env)->PopLocalFrame(env, NULL); - - (*javaVM)->DetachCurrentThread(javaVM); - return NULL; -} - -static ALCboolean android_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - JavaVM *javaVM = alcGetJavaVM(); - (*javaVM)->AttachCurrentThread(javaVM, &env, NULL); - AndroidData* data; - int channels; - int bytes; - - if (!cAudioTrack) - { - /* Cache AudioTrack class and it's method id's - * And do this only once! - */ - - cAudioTrack = (*env)->FindClass(env, "android/media/AudioTrack"); - if (!cAudioTrack) - { - AL_PRINT("android.media.AudioTrack class is not found. Are you running at least 1.5 version?"); - return ALC_FALSE; - } - - cAudioTrack = (*env)->NewGlobalRef(env, cAudioTrack); - - mAudioTrack = (*env)->GetMethodID(env, cAudioTrack, "", "(IIIIII)V"); - mGetMinBufferSize = (*env)->GetStaticMethodID(env, cAudioTrack, "getMinBufferSize", "(III)I"); - mPlay = (*env)->GetMethodID(env, cAudioTrack, "play", "()V"); - mPause = (*env)->GetMethodID(env, cAudioTrack, "pause", "()V"); - mStop = (*env)->GetMethodID(env, cAudioTrack, "stop", "()V"); - mRelease = (*env)->GetMethodID(env, cAudioTrack, "release", "()V"); - mWrite = (*env)->GetMethodID(env, cAudioTrack, "write", "([BII)I"); - } - - if (!deviceName) - { - deviceName = android_device; - } - else if (strcmp(deviceName, android_device) != 0) - { - return ALC_FALSE; - } - - data = (AndroidData*)calloc(1, sizeof(*data)); - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void android_close_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - if (data != NULL) - { - free(data); - device->ExtraData = NULL; - } -} - -static ALCboolean android_reset_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - // if (ChannelsFromDevFmt(device->FmtChans) >= 2) - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_STEREO16 : AL_FORMAT_STEREO8; - // } - // else - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_MONO16 : AL_FORMAT_MONO8; - // } - - SetDefaultChannelOrder(device); - - data->running = 1; - pthread_create(&data->thread, NULL, thread_function, device); - - return ALC_TRUE; -} - -static void android_stop_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - if (data->running) - { - data->running = 0; - pthread_join(data->thread, NULL); - } - suspended = 0; -} - -static ALCboolean android_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - -static void android_close_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_start_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_stop_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint android_available_samples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - -static const BackendFuncs android_funcs = { - android_open_playback, - android_close_playback, - android_reset_playback, - android_stop_playback, - android_open_capture, - android_close_capture, - android_start_capture, - android_stop_capture, - android_capture_samples, - android_available_samples -}; - -static void alc_audiotrack_suspend() -{ - suspended = 1; - audioTrackWasPlaying = audioTrackPlaying; -} - -static void alc_audiotrack_resume() -{ - suspended = 0; - if (audioTrackWasPlaying) - { - while (!audioTrackPlaying) - { - sched_yield(); - } - audioTrackWasPlaying = 0; - } -} - - -void alc_audiotrack_init(BackendFuncs *func_list) -{ - *func_list = android_funcs; - - if (apportableOpenALFuncs.alc_android_suspend == NULL - && apportableOpenALFuncs.alc_android_set_java_vm == NULL) { - apportableOpenALFuncs.alc_android_suspend = alc_audiotrack_suspend; - apportableOpenALFuncs.alc_android_resume = alc_audiotrack_resume; - } -} - -void alc_audiotrack_deinit(void) -{ - /* release cached AudioTrack class */ - JavaVM *javaVM = alcGetJavaVM(); - (*env)->DeleteGlobalRef(env, cAudioTrack); - (*javaVM)->DetachCurrentThread(javaVM); - cAudioTrack = NULL; -} - -void alc_audiotrack_probe(int type) -{ - if (type == DEVICE_PROBE) - { - AppendDeviceList(android_device); - } - else if (type == ALL_DEVICE_PROBE) - { - AppendAllDeviceList(android_device); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/audiotrack.m b/internal/c/parts/audio/out/android/OpenAL/Alc/audiotrack.m deleted file mode 100644 index 8fe664a21..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/audiotrack.m +++ /dev/null @@ -1,304 +0,0 @@ -/** - * OpenAL cross platform audio library - * - * Copyright 2013 Apportable Inc. - * - * Copyright (C) 2010 by Chris Robinson - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#import "config.h" - -#import -#import -#import -#import "alMain.h" -#import "AL/al.h" -#import "AL/alc.h" - -#import "apportable_openal_funcs.h" -#import -#import - -static const ALCchar android_device[] = "Android Default"; - -static int suspended = 0; -static int audioTrackPlaying = 0; -static int audioTrackWasPlaying = 0; - -typedef struct -{ - pthread_t thread; - volatile int running; -} AndroidData; - -#define STREAM_MUSIC 3 -#define CHANNEL_CONFIGURATION_MONO 2 -#define CHANNEL_CONFIGURATION_STEREO 3 -#define ENCODING_PCM_8BIT 3 -#define ENCODING_PCM_16BIT 2 -#define MODE_STREAM 1 - -static void* thread_function(void* arg) -{ - @autoreleasepool - { - ALCdevice* device = (ALCdevice*)arg; - AndroidData* data = (AndroidData*)device->ExtraData; - - int sampleRateInHz = device->Frequency; - int channelConfig = ChannelsFromDevFmt(device->FmtChans) == 1 ? CHANNEL_CONFIGURATION_MONO : CHANNEL_CONFIGURATION_STEREO; - int audioFormat = BytesFromDevFmt(device->FmtType) == 1 ? ENCODING_PCM_8BIT : ENCODING_PCM_16BIT; - int bufferSizeInBytes = [AndroidAudioTrack minBufferSizeWithSampleRate:sampleRateInHz channelConfig:channelConfig audioFormat:audioFormat]; - - // Suggestion from Eric Wing - /* According to the author Martins Mozelko, I should multiply bufferSizeInBytes to tune performance. - Say, multiply by 2. - But making this number smaller seems to reduce latency... - I have tried dividing by 2, 4, and 8. 8 refuses to play any sound. - It seems that this just divides out the multiplication of NumUpdates (default=4) - which returns it to min buffer size. - bufferSizeInBytes is used in multiple places and - bufferSizeInSamples is tied directly to bufferSizeInBytes though, so we need to be careful - about what we want to change. - I'm assuming Martins is correct and this is the indeed the place we want to change it. - Dividing out the bufferSizeInSamples separately and skipping the multiply did not work. - Omitting the multiply and not dividing did work, but the buffers may be unnecessarily large. - */ - bufferSizeInBytes = bufferSizeInBytes / device->NumUpdates; - - int bufferSizeInSamples = bufferSizeInBytes / FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - - AndroidAudioTrack *track = [[AndroidAudioTrack alloc] - initWithStreamType:STREAM_MUSIC - sampleRate:sampleRateInHz - channelConfig:channelConfig - audioFormat:audioFormat - bufferSize:device->NumUpdates * bufferSizeInBytes - mode:MODE_STREAM]; - - [track play]; - audioTrackPlaying = 1; - - // Use JNI to avoid an extra copy of the audio buffer. Calling write through BridgeKit - // would require using an NSMutableData for the buffer, which would be copied to a new - // byte[] object on every write call. - - JNIEnv *env = [[NSThread currentThread] env]; - (*env)->PushLocalFrame(env, 1); - jarray buffer = (*env)->NewByteArray(env, bufferSizeInBytes); - jclass trackClass = [track javaClass].javaClass; - jmethodID writeMethod = (*env)->GetMethodID(env, trackClass, "write", "([BII)I"); - - while (data->running) - { - if (suspended) { - if (audioTrackPlaying) { - [track pause]; - audioTrackPlaying = 0; - } - usleep(5000); - continue; - } else if (!audioTrackPlaying) { - [track play]; - audioTrackPlaying = 1; - } - - void* pBuffer = (*env)->GetPrimitiveArrayCritical(env, buffer, NULL); - - if (pBuffer) - { - aluMixData(device, pBuffer, bufferSizeInSamples); - (*env)->ReleasePrimitiveArrayCritical(env, buffer, pBuffer, 0); - - (*env)->CallNonvirtualIntMethod(env, track->_object, trackClass, writeMethod, buffer, 0, bufferSizeInBytes); - } - else - { - AL_PRINT("Failed to get pointer to array bytes"); - } - } - - [track stop]; - [track release]; - audioTrackPlaying = 0; - - (*env)->PopLocalFrame(env, NULL); - - return NULL; - } -} - -static ALCboolean android_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - AndroidData* data; - int channels; - int bytes; - - if (!deviceName) - { - deviceName = android_device; - } - else if (strcmp(deviceName, android_device) != 0) - { - return ALC_FALSE; - } - - data = (AndroidData*)calloc(1, sizeof(*data)); - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void android_close_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - if (data != NULL) - { - free(data); - device->ExtraData = NULL; - } -} - -static ALCboolean android_reset_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - // if (ChannelsFromDevFmt(device->FmtChans) >= 2) - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_STEREO16 : AL_FORMAT_STEREO8; - // } - // else - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_MONO16 : AL_FORMAT_MONO8; - // } - - SetDefaultChannelOrder(device); - - data->running = 1; - pthread_create(&data->thread, NULL, thread_function, device); - - return ALC_TRUE; -} - -static void android_stop_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - if (data->running) - { - data->running = 0; - pthread_join(data->thread, NULL); - } - suspended = 0; -} - -static ALCboolean android_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - -static void android_close_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_start_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_stop_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint android_available_samples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - -static const BackendFuncs android_funcs = { - android_open_playback, - android_close_playback, - android_reset_playback, - android_stop_playback, - android_open_capture, - android_close_capture, - android_start_capture, - android_stop_capture, - android_capture_samples, - android_available_samples -}; - -static void alc_audiotrack_suspend() -{ - suspended = 1; - audioTrackWasPlaying = audioTrackPlaying; -} - -static void alc_audiotrack_resume() -{ - suspended = 0; - if (audioTrackWasPlaying) - { - while (!audioTrackPlaying) - { - sched_yield(); - } - audioTrackWasPlaying = 0; - } -} - - -void alc_audiotrack_init(BackendFuncs *func_list) -{ - *func_list = android_funcs; - - if (apportableOpenALFuncs.alc_android_suspend == NULL - && apportableOpenALFuncs.alc_android_set_java_vm == NULL) { - apportableOpenALFuncs.alc_android_suspend = alc_audiotrack_suspend; - apportableOpenALFuncs.alc_android_resume = alc_audiotrack_resume; - } -} - -void alc_audiotrack_deinit(void) -{ -} - -void alc_audiotrack_probe(int type) -{ - if (type == DEVICE_PROBE) - { - AppendDeviceList(android_device); - } - else if (type == ALL_DEVICE_PROBE) - { - AppendAllDeviceList(android_device); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/bs2b.c b/internal/c/parts/audio/out/android/OpenAL/Alc/bs2b.c deleted file mode 100644 index 36f946a1f..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/bs2b.c +++ /dev/null @@ -1,209 +0,0 @@ -/*- - * Copyright (c) 2005 Boris Mikhaylov - * - * Permission is hereby granted, free of charge, to any person obtaining - * a copy of this software and associated documentation files (the - * "Software"), to deal in the Software without restriction, including - * without limitation the rights to use, copy, modify, merge, publish, - * distribute, sublicense, and/or sell copies of the Software, and to - * permit persons to whom the Software is furnished to do so, subject to - * the following conditions: - * - * The above copyright notice and this permission notice shall be - * included in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, - * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. - * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY - * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, - * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE - * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include "config.h" - -#include - -#include "bs2b.h" - -#ifndef M_PI -#define M_PI 3.14159265358979323846 -#endif - -/* Single pole IIR filter. - * O[n] = a0*I[n] + a1*I[n-1] + b1*O[n-1] - */ - -/* Lowpass filter */ -#define lo_filter(in, out_1) (bs2b->a0_lo*(in) + bs2b->b1_lo*(out_1)) - -/* Highboost filter */ -#define hi_filter(in, in_1, out_1) (bs2b->a0_hi*(in) + bs2b->a1_hi*(in_1) + bs2b->b1_hi*(out_1)) - -/* Set up all data. */ -static void init(struct bs2b *bs2b) -{ - double Fc_lo, Fc_hi; - double G_lo, G_hi; - double x; - - if ((bs2b->srate > 192000) || (bs2b->srate < 2000)) - bs2b->srate = BS2B_DEFAULT_SRATE; - - switch(bs2b->level) - { - case BS2B_LOW_CLEVEL: /* Low crossfeed level */ - Fc_lo = 360.0; - Fc_hi = 501.0; - G_lo = 0.398107170553497; - G_hi = 0.205671765275719; - break; - - case BS2B_MIDDLE_CLEVEL: /* Middle crossfeed level */ - Fc_lo = 500.0; - Fc_hi = 711.0; - G_lo = 0.459726988530872; - G_hi = 0.228208484414988; - break; - - case BS2B_HIGH_CLEVEL: /* High crossfeed level (virtual speakers are closer to itself) */ - Fc_lo = 700.0; - Fc_hi = 1021.0; - G_lo = 0.530884444230988; - G_hi = 0.250105790667544; - break; - - case BS2B_LOW_ECLEVEL: /* Low easy crossfeed level */ - Fc_lo = 360.0; - Fc_hi = 494.0; - G_lo = 0.316227766016838; - G_hi = 0.168236228897329; - break; - - case BS2B_MIDDLE_ECLEVEL: /* Middle easy crossfeed level */ - Fc_lo = 500.0; - Fc_hi = 689.0; - G_lo = 0.354813389233575; - G_hi = 0.187169483835901; - break; - - default: /* High easy crossfeed level */ - bs2b->level = BS2B_HIGH_ECLEVEL; - - Fc_lo = 700.0; - Fc_hi = 975.0; - G_lo = 0.398107170553497; - G_hi = 0.205671765275719; - break; - } /* switch */ - - /* $fc = $Fc / $s; - * $d = 1 / 2 / pi / $fc; - * $x = exp(-1 / $d); - */ - - x = exp(-2.0 * M_PI * Fc_lo / bs2b->srate); - bs2b->b1_lo = x; - bs2b->a0_lo = G_lo * (1.0 - x); - - x = exp(-2.0 * M_PI * Fc_hi / bs2b->srate); - bs2b->b1_hi = x; - bs2b->a0_hi = 1.0 - G_hi * (1.0 - x); - bs2b->a1_hi = -x; - - bs2b->gain = 1.0 / (1.0 - G_hi + G_lo); -} /* init */ - -/* Exported functions. - * See descriptions in "bs2b.h" - */ - -void bs2b_set_level(struct bs2b *bs2b, int level) -{ - if(level == bs2b->level) - return; - bs2b->level = level; - init(bs2b); -} /* bs2b_set_level */ - -int bs2b_get_level(struct bs2b *bs2b) -{ - return bs2b->level; -} /* bs2b_get_level */ - -void bs2b_set_srate(struct bs2b *bs2b, int srate) -{ - if (srate == bs2b->srate) - return; - bs2b->srate = srate; - init(bs2b); -} /* bs2b_set_srate */ - -int bs2b_get_srate(struct bs2b *bs2b) -{ - return bs2b->srate; -} /* bs2b_get_srate */ - -void bs2b_clear(struct bs2b *bs2b) -{ - int loopv = sizeof(bs2b->last_sample); - - while (loopv) - { - ((char *)&bs2b->last_sample)[--loopv] = 0; - } -} /* bs2b_clear */ - -int bs2b_is_clear(struct bs2b *bs2b) -{ - int loopv = sizeof(bs2b->last_sample); - - while (loopv) - { - if (((char *)&bs2b->last_sample)[--loopv] != 0) - return 0; - } - return 1; -} /* bs2b_is_clear */ - -void bs2b_cross_feed(struct bs2b *bs2b, ALfp *ALsample) -{ - //FIXME fully convert to fixed point math - float sample[2]; - sample[0] = ALfp2float(ALsample[0]); - sample[1] = ALfp2float(ALsample[1]); - - /* Lowpass filter */ - bs2b->last_sample.lo[0] = lo_filter(sample[0], bs2b->last_sample.lo[0]); - bs2b->last_sample.lo[1] = lo_filter(sample[1], bs2b->last_sample.lo[1]); - - /* Highboost filter */ - bs2b->last_sample.hi[0] = hi_filter(sample[0], bs2b->last_sample.asis[0], bs2b->last_sample.hi[0]); - bs2b->last_sample.hi[1] = hi_filter(sample[1], bs2b->last_sample.asis[1], bs2b->last_sample.hi[1]); - bs2b->last_sample.asis[0] = sample[0]; - bs2b->last_sample.asis[1] = sample[1]; - - /* Crossfeed */ - sample[0] = bs2b->last_sample.hi[0] + bs2b->last_sample.lo[1]; - sample[1] = bs2b->last_sample.hi[1] + bs2b->last_sample.lo[0]; - - /* Bass boost cause allpass attenuation */ - sample[0] *= bs2b->gain; - sample[1] *= bs2b->gain; - - /* Clipping of overloaded samples */ -#if 0 - if (sample[0] > 1.0) - sample[0] = 1.0; - if (sample[0] < -1.0) - sample[0] = -1.0; - if (sample[1] > 1.0) - sample[1] = 1.0; - if (sample[1] < -1.0) - sample[1] = -1.0; -#endif - - ALsample[0] = float2ALfp(sample[0]); - ALsample[1] = float2ALfp(sample[1]); -} /* bs2b_cross_feed */ diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/bs2b.h b/internal/c/parts/audio/out/android/OpenAL/Alc/bs2b.h deleted file mode 100644 index 46696d970..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/bs2b.h +++ /dev/null @@ -1,111 +0,0 @@ -/*- - * Copyright (c) 2005 Boris Mikhaylov - * - * Permission is hereby granted, free of charge, to any person obtaining - * a copy of this software and associated documentation files (the - * "Software"), to deal in the Software without restriction, including - * without limitation the rights to use, copy, modify, merge, publish, - * distribute, sublicense, and/or sell copies of the Software, and to - * permit persons to whom the Software is furnished to do so, subject to - * the following conditions: - * - * The above copyright notice and this permission notice shall be - * included in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, - * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. - * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY - * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, - * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE - * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef BS2B_H -#define BS2B_H - -#include "AL/al.h" - -/* Number of crossfeed levels */ -#define BS2B_CLEVELS 3 - -/* Normal crossfeed levels */ -#define BS2B_HIGH_CLEVEL 3 -#define BS2B_MIDDLE_CLEVEL 2 -#define BS2B_LOW_CLEVEL 1 - -/* Easy crossfeed levels */ -#define BS2B_HIGH_ECLEVEL BS2B_HIGH_CLEVEL + BS2B_CLEVELS -#define BS2B_MIDDLE_ECLEVEL BS2B_MIDDLE_CLEVEL + BS2B_CLEVELS -#define BS2B_LOW_ECLEVEL BS2B_LOW_CLEVEL + BS2B_CLEVELS - -/* Default crossfeed levels */ -#define BS2B_DEFAULT_CLEVEL BS2B_HIGH_ECLEVEL -/* Default sample rate (Hz) */ -#define BS2B_DEFAULT_SRATE 44100 - -#ifdef __cplusplus -extern "C" { -#endif /* __cplusplus */ - -struct bs2b { - int level; /* Crossfeed level */ - int srate; /* Sample rate (Hz) */ - - /* Lowpass IIR filter coefficients */ - double a0_lo; - double b1_lo; - - /* Highboost IIR filter coefficients */ - double a0_hi; - double a1_hi; - double b1_hi; - - /* Global gain against overloading */ - double gain; - - /* Buffer of last filtered sample. - * [0] - first channel, [1] - second channel - */ - struct t_last_sample { - double asis[2]; - double lo[2]; - double hi[2]; - } last_sample; -}; - -/* Clear buffers and set new coefficients with new crossfeed level value. - * level - crossfeed level of *LEVEL values. - */ -void bs2b_set_level(struct bs2b *bs2b, int level); - -/* Return current crossfeed level value */ -int bs2b_get_level(struct bs2b *bs2b); - -/* Clear buffers and set new coefficients with new sample rate value. - * srate - sample rate by Hz. - */ -void bs2b_set_srate(struct bs2b *bs2b, int srate); - -/* Return current sample rate value */ -int bs2b_get_srate(struct bs2b *bs2b); - -/* Clear buffer */ -void bs2b_clear(struct bs2b *bs2b); - -/* Return 1 if buffer is clear */ -int bs2b_is_clear(struct bs2b *bs2b); - -/* Crossfeeds one stereo sample that are pointed by sample. - * [0] - first channel, [1] - second channel. - * Returns crossfided samle by sample pointer. - */ - -/* sample points to floats */ -void bs2b_cross_feed(struct bs2b *bs2b, ALfp *sample); - -#ifdef __cplusplus -} /* extern "C" */ -#endif /* __cplusplus */ - -#endif /* BS2B_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/config.h b/internal/c/parts/audio/out/android/OpenAL/Alc/config.h deleted file mode 100644 index 7016963e1..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/config.h +++ /dev/null @@ -1,125 +0,0 @@ -#ifndef CONFIG_H -#define CONFIG_H - -/* Define to the library version */ -#define ALSOFT_VERSION "1.12.854" - -#define AL_BUILD_LIBRARY - -/* Define if we have the Android backend */ -#if defined(ANDROID) - -// Stereo only on Android back-ends -#define MAXCHANNELS 3 -#define STEREO_ONLY 1 - -#if defined(POST_FROYO) -#define HAVE_OPENSLES 1 -#endif - -#define HAVE_AUDIOTRACK 1 - -// For throttling AlSource.c - -#ifndef MAX_SOURCES_LOW -#define MAX_SOURCES_LOW 4 -#endif -#ifndef MAX_SOURCES_START -#define MAX_SOURCES_START 8 -#endif -#ifndef MAX_SOURCES_HIGH -#define MAX_SOURCES_HIGH 64 -#endif -#endif - -/* Define if we have the ALSA backend */ -/* #cmakedefine HAVE_ALSA */ - -/* Define if we have the OSS backend */ -/* #cmakedefine HAVE_OSS */ - -/* Define if we have the Solaris backend */ -/* #cmakedefine HAVE_SOLARIS */ - -/* Define if we have the DSound backend */ -/* #cmakedefine HAVE_DSOUND */ - -/* Define if we have the Wave Writer backend */ -/* #cmakedefine HAVE_WAVE */ - -/* Define if we have the Windows Multimedia backend */ -/* #cmakedefine HAVE_WINMM */ - -/* Define if we have the PortAudio backend */ -/* #cmakedefine HAVE_PORTAUDIO */ - -/* Define if we have the PulseAudio backend */ -/* #cmakedefine HAVE_PULSEAUDIO */ - -/* Define if we have dlfcn.h */ -#define HAVE_DLFCN_H 1 - -/* Define if we have the stat function */ -#define HAVE_STAT 1 - -/* Define if we have the powf function */ -#define HAVE_POWF 1 - -/* Define if we have the sqrtf function */ -#define HAVE_SQRTF 1 - -/* Define if we have the acosf function */ -#define HAVE_ACOSF 1 - -/* Define if we have the atanf function */ -#define HAVE_ATANF 1 - -/* Define if we have the fabsf function */ -#define HAVE_FABSF 1 - -/* Define if we have the strtof function */ -#define HAVE_STRTOF 1 - -/* Define if we have stdint.h */ -#define HAVE_STDINT_H 1 - -/* Define if we have the __int64 type */ -/* #cmakedefine HAVE___INT64 */ - -/* Define to the size of a long int type */ -#define SIZEOF_LONG 4 - -/* Define to the size of a long long int type */ -#define SIZEOF_LONG_LONG 8 - -/* Define to the size of an unsigned int type */ -#define SIZEOF_UINT 4 - -/* Define to the size of a void pointer type */ -#define SIZEOF_VOIDP 4 - -/* Define if we have GCC's destructor attribute */ -#define HAVE_GCC_DESTRUCTOR 1 - -/* Define if we have GCC's format attribute */ -#define HAVE_GCC_FORMAT 1 - -/* Define if we have pthread_np.h */ -/* #cmakedefine HAVE_PTHREAD_NP_H */ - -/* Define if we have float.h */ -/* #cmakedefine HAVE_FLOAT_H */ - -/* Define if we have fenv.h */ -#define HAVE_FENV_H 1 - -/* Define if we have fesetround() */ -/* #cmakedefine HAVE_FESETROUND */ - -/* Define if we have _controlfp() */ -/* #cmakedefine HAVE__CONTROLFP */ - -/* Define if we have pthread_setschedparam() */ -#define HAVE_PTHREAD_SETSCHEDPARAM 1 - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/dsound.c b/internal/c/parts/audio/out/android/OpenAL/Alc/dsound.c deleted file mode 100644 index 26e6d46f9..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/dsound.c +++ /dev/null @@ -1,612 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#define _WIN32_WINNT 0x0500 -#define INITGUID -#include -#include -#include - -#include -#include -#include -#ifndef _WAVEFORMATEXTENSIBLE_ -#include -#include -#endif - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#ifndef DSSPEAKER_5POINT1 -#define DSSPEAKER_5POINT1 6 -#endif -#ifndef DSSPEAKER_7POINT1 -#define DSSPEAKER_7POINT1 7 -#endif - -DEFINE_GUID(KSDATAFORMAT_SUBTYPE_PCM, 0x00000001, 0x0000, 0x0010, 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71); -DEFINE_GUID(KSDATAFORMAT_SUBTYPE_IEEE_FLOAT, 0x00000003, 0x0000, 0x0010, 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71); - -static void *ds_handle; -static HRESULT (WINAPI *pDirectSoundCreate)(LPCGUID pcGuidDevice, LPDIRECTSOUND *ppDS, LPUNKNOWN pUnkOuter); -static HRESULT (WINAPI *pDirectSoundEnumerateA)(LPDSENUMCALLBACKA pDSEnumCallback, LPVOID pContext); - - -typedef struct { - // DirectSound Playback Device - LPDIRECTSOUND lpDS; - LPDIRECTSOUNDBUFFER DSpbuffer; - LPDIRECTSOUNDBUFFER DSsbuffer; - - volatile int killNow; - ALvoid *thread; -} DSoundData; - - -typedef struct { - ALCchar *name; - GUID guid; -} DevMap; - -static const ALCchar dsDevice[] = "DirectSound Default"; -static DevMap *DeviceList; -static ALuint NumDevices; - - -void *DSoundLoad(void) -{ - if(!ds_handle) - { -#ifdef _WIN32 - ds_handle = LoadLibraryA("dsound.dll"); - if(ds_handle == NULL) - { - AL_PRINT("Failed to load dsound.dll\n"); - return NULL; - } - -#define LOAD_FUNC(f) do { \ - p##f = (void*)GetProcAddress((HMODULE)ds_handle, #f); \ - if(p##f == NULL) \ - { \ - FreeLibrary(ds_handle); \ - ds_handle = NULL; \ - AL_PRINT("Could not load %s from dsound.dll\n", #f); \ - return NULL; \ - } \ -} while(0) -#else - ds_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(f) p##f = f -#endif - -LOAD_FUNC(DirectSoundCreate); -LOAD_FUNC(DirectSoundEnumerateA); -#undef LOAD_FUNC - } - return ds_handle; -} - - -static BOOL CALLBACK DSoundEnumDevices(LPGUID guid, LPCSTR desc, LPCSTR drvname, LPVOID data) -{ - char str[1024]; - void *temp; - int count; - ALuint i; - - (void)data; - (void)drvname; - - if(NumDevices == 0) - { - temp = realloc(DeviceList, sizeof(DevMap) * (NumDevices+1)); - if(temp) - { - DeviceList = temp; - DeviceList[NumDevices].name = strdup(dsDevice); - DeviceList[NumDevices].guid = GUID_NULL; - NumDevices++; - } - } - - if(!guid) - return TRUE; - - count = 0; - do { - if(count == 0) - snprintf(str, sizeof(str), "%s via DirectSound", desc); - else - snprintf(str, sizeof(str), "%s #%d via DirectSound", desc, count+1); - count++; - - for(i = 0;i < NumDevices;i++) - { - if(strcmp(str, DeviceList[i].name) == 0) - break; - } - } while(i != NumDevices); - - temp = realloc(DeviceList, sizeof(DevMap) * (NumDevices+1)); - if(temp) - { - DeviceList = temp; - DeviceList[NumDevices].name = strdup(str); - DeviceList[NumDevices].guid = *guid; - NumDevices++; - } - - return TRUE; -} - - -static ALuint DSoundProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - DSoundData *pData = (DSoundData*)pDevice->ExtraData; - DSBCAPS DSBCaps; - DWORD LastCursor = 0; - DWORD PlayCursor; - VOID *WritePtr1, *WritePtr2; - DWORD WriteCnt1, WriteCnt2; - BOOL Playing = FALSE; - DWORD FrameSize; - DWORD FragSize; - DWORD avail; - HRESULT err; - - SetRTPriority(); - - memset(&DSBCaps, 0, sizeof(DSBCaps)); - DSBCaps.dwSize = sizeof(DSBCaps); - err = IDirectSoundBuffer_GetCaps(pData->DSsbuffer, &DSBCaps); - if(FAILED(err)) - { - AL_PRINT("Failed to get buffer caps: 0x%lx\n", err); - aluHandleDisconnect(pDevice); - return 1; - } - - FrameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - FragSize = pDevice->UpdateSize * FrameSize; - - IDirectSoundBuffer_GetCurrentPosition(pData->DSsbuffer, &LastCursor, NULL); - while(!pData->killNow) - { - // Get current play and write cursors - IDirectSoundBuffer_GetCurrentPosition(pData->DSsbuffer, &PlayCursor, NULL); - avail = (PlayCursor-LastCursor+DSBCaps.dwBufferBytes) % DSBCaps.dwBufferBytes; - - if(avail < FragSize) - { - if(!Playing) - { - err = IDirectSoundBuffer_Play(pData->DSsbuffer, 0, 0, DSBPLAY_LOOPING); - if(FAILED(err)) - { - AL_PRINT("Failed to play buffer: 0x%lx\n", err); - aluHandleDisconnect(pDevice); - return 1; - } - Playing = TRUE; - } - Sleep(1); - continue; - } - avail -= avail%FragSize; - - // Lock output buffer - WriteCnt1 = 0; - WriteCnt2 = 0; - err = IDirectSoundBuffer_Lock(pData->DSsbuffer, LastCursor, avail, &WritePtr1, &WriteCnt1, &WritePtr2, &WriteCnt2, 0); - - // If the buffer is lost, restore it and lock - if(err == DSERR_BUFFERLOST) - { - err = IDirectSoundBuffer_Restore(pData->DSsbuffer); - if(SUCCEEDED(err)) - { - Playing = FALSE; - LastCursor = 0; - err = IDirectSoundBuffer_Lock(pData->DSsbuffer, 0, DSBCaps.dwBufferBytes, &WritePtr1, &WriteCnt1, &WritePtr2, &WriteCnt2, 0); - } - } - - // Successfully locked the output buffer - if(SUCCEEDED(err)) - { - // If we have an active context, mix data directly into output buffer otherwise fill with silence - aluMixData(pDevice, WritePtr1, WriteCnt1/FrameSize); - aluMixData(pDevice, WritePtr2, WriteCnt2/FrameSize); - - // Unlock output buffer only when successfully locked - IDirectSoundBuffer_Unlock(pData->DSsbuffer, WritePtr1, WriteCnt1, WritePtr2, WriteCnt2); - } - else - { - AL_PRINT("Buffer lock error: %#lx\n", err); - aluHandleDisconnect(pDevice); - return 1; - } - - // Update old write cursor location - LastCursor += WriteCnt1+WriteCnt2; - LastCursor %= DSBCaps.dwBufferBytes; - } - - return 0; -} - -static ALCboolean DSoundOpenPlayback(ALCdevice *device, const ALCchar *deviceName) -{ - DSoundData *pData = NULL; - LPGUID guid = NULL; - HRESULT hr; - - if(!DSoundLoad()) - return ALC_FALSE; - - if(!deviceName) - deviceName = dsDevice; - else if(strcmp(deviceName, dsDevice) != 0) - { - ALuint i; - - if(!DeviceList) - { - hr = pDirectSoundEnumerateA(DSoundEnumDevices, NULL); - if(FAILED(hr)) - AL_PRINT("Error enumerating DirectSound devices (%#x)!\n", (unsigned int)hr); - } - - for(i = 0;i < NumDevices;i++) - { - if(strcmp(deviceName, DeviceList[i].name) == 0) - { - if(i > 0) - guid = &DeviceList[i].guid; - break; - } - } - if(i == NumDevices) - return ALC_FALSE; - } - - //Initialise requested device - pData = calloc(1, sizeof(DSoundData)); - if(!pData) - { - alcSetError(device, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - - //DirectSound Init code - hr = pDirectSoundCreate(guid, &pData->lpDS, NULL); - if(SUCCEEDED(hr)) - hr = IDirectSound_SetCooperativeLevel(pData->lpDS, GetForegroundWindow(), DSSCL_PRIORITY); - if(FAILED(hr)) - { - if(pData->lpDS) - IDirectSound_Release(pData->lpDS); - free(pData); - AL_PRINT("Device init failed: 0x%08lx\n", hr); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = pData; - return ALC_TRUE; -} - -static void DSoundClosePlayback(ALCdevice *device) -{ - DSoundData *pData = device->ExtraData; - - IDirectSound_Release(pData->lpDS); - free(pData); - device->ExtraData = NULL; -} - -static ALCboolean DSoundResetPlayback(ALCdevice *device) -{ - DSoundData *pData = (DSoundData*)device->ExtraData; - DSBUFFERDESC DSBDescription; - WAVEFORMATEXTENSIBLE OutputType; - DWORD speakers; - HRESULT hr; - - memset(&OutputType, 0, sizeof(OutputType)); - - switch(device->FmtType) - { - case DevFmtByte: - device->FmtType = DevFmtUByte; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - break; - case DevFmtUByte: - case DevFmtShort: - case DevFmtFloat: - break; - } - - hr = IDirectSound_GetSpeakerConfig(pData->lpDS, &speakers); - if(SUCCEEDED(hr) && ConfigValueExists(NULL, "format")) - { - switch(device->FmtChans) - { - case DevFmtMono: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_MONO, 0); - break; - case DevFmtStereo: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_STEREO, 0); - break; - case DevFmtQuad: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_QUAD, 0); - break; - case DevFmtX51: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_5POINT1, 0); - break; - case DevFmtX61: - /* ??? */; - break; - case DevFmtX71: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_7POINT1, 0); - break; - } - } - if(SUCCEEDED(hr)) - { - speakers = DSSPEAKER_CONFIG(speakers); - if(speakers == DSSPEAKER_MONO) - { - device->FmtChans = DevFmtMono; - OutputType.dwChannelMask = SPEAKER_FRONT_CENTER; - } - else if(speakers == DSSPEAKER_STEREO || speakers == DSSPEAKER_HEADPHONE) - { - device->FmtChans = DevFmtStereo; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT; - } - else if(speakers == DSSPEAKER_QUAD) - { - device->FmtChans = DevFmtQuad; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT | - SPEAKER_BACK_LEFT | - SPEAKER_BACK_RIGHT; - } - else if(speakers == DSSPEAKER_5POINT1) - { - device->FmtChans = DevFmtX51; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT | - SPEAKER_FRONT_CENTER | - SPEAKER_LOW_FREQUENCY | - SPEAKER_BACK_LEFT | - SPEAKER_BACK_RIGHT; - } - else if(speakers == DSSPEAKER_7POINT1) - { - device->FmtChans = DevFmtX71; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT | - SPEAKER_FRONT_CENTER | - SPEAKER_LOW_FREQUENCY | - SPEAKER_BACK_LEFT | - SPEAKER_BACK_RIGHT | - SPEAKER_SIDE_LEFT | - SPEAKER_SIDE_RIGHT; - } - - OutputType.Format.wFormatTag = WAVE_FORMAT_PCM; - OutputType.Format.nChannels = ChannelsFromDevFmt(device->FmtChans); - OutputType.Format.wBitsPerSample = BytesFromDevFmt(device->FmtType) * 8; - OutputType.Format.nBlockAlign = OutputType.Format.nChannels*OutputType.Format.wBitsPerSample/8; - OutputType.Format.nSamplesPerSec = device->Frequency; - OutputType.Format.nAvgBytesPerSec = OutputType.Format.nSamplesPerSec*OutputType.Format.nBlockAlign; - OutputType.Format.cbSize = 0; - } - - if(OutputType.Format.nChannels > 2 || OutputType.Format.wBitsPerSample > 16) - { - OutputType.Format.wFormatTag = WAVE_FORMAT_EXTENSIBLE; - OutputType.Samples.wValidBitsPerSample = OutputType.Format.wBitsPerSample; - OutputType.Format.cbSize = 22; - if(OutputType.Format.wBitsPerSample == 32) - OutputType.SubFormat = KSDATAFORMAT_SUBTYPE_IEEE_FLOAT; - else - OutputType.SubFormat = KSDATAFORMAT_SUBTYPE_PCM; - } - else - { - if(SUCCEEDED(hr)) - { - memset(&DSBDescription,0,sizeof(DSBUFFERDESC)); - DSBDescription.dwSize=sizeof(DSBUFFERDESC); - DSBDescription.dwFlags=DSBCAPS_PRIMARYBUFFER; - hr = IDirectSound_CreateSoundBuffer(pData->lpDS, &DSBDescription, &pData->DSpbuffer, NULL); - } - if(SUCCEEDED(hr)) - hr = IDirectSoundBuffer_SetFormat(pData->DSpbuffer,&OutputType.Format); - } - - if(SUCCEEDED(hr)) - { - memset(&DSBDescription,0,sizeof(DSBUFFERDESC)); - DSBDescription.dwSize=sizeof(DSBUFFERDESC); - DSBDescription.dwFlags=DSBCAPS_GLOBALFOCUS|DSBCAPS_GETCURRENTPOSITION2; - DSBDescription.dwBufferBytes=device->UpdateSize * device->NumUpdates * - OutputType.Format.nBlockAlign; - DSBDescription.lpwfxFormat=&OutputType.Format; - hr = IDirectSound_CreateSoundBuffer(pData->lpDS, &DSBDescription, &pData->DSsbuffer, NULL); - } - - if(SUCCEEDED(hr)) - { - SetDefaultWFXChannelOrder(device); - pData->thread = StartThread(DSoundProc, device); - if(!pData->thread) - hr = E_FAIL; - } - - if(FAILED(hr)) - { - if (pData->DSsbuffer) - IDirectSoundBuffer_Release(pData->DSsbuffer); - pData->DSsbuffer = NULL; - if (pData->DSpbuffer) - IDirectSoundBuffer_Release(pData->DSpbuffer); - pData->DSpbuffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void DSoundStopPlayback(ALCdevice *device) -{ - DSoundData *pData = device->ExtraData; - - if(!pData->thread) - return; - - pData->killNow = 1; - StopThread(pData->thread); - pData->thread = NULL; - - pData->killNow = 0; - - IDirectSoundBuffer_Release(pData->DSsbuffer); - pData->DSsbuffer = NULL; - if (pData->DSpbuffer) - IDirectSoundBuffer_Release(pData->DSpbuffer); - pData->DSpbuffer = NULL; -} - - -static ALCboolean DSoundOpenCapture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - -static void DSoundCloseCapture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void DSoundStartCapture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void DSoundStopCapture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void DSoundCaptureSamples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint DSoundAvailableSamples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - - -BackendFuncs DSoundFuncs = { - DSoundOpenPlayback, - DSoundClosePlayback, - DSoundResetPlayback, - DSoundStopPlayback, - DSoundOpenCapture, - DSoundCloseCapture, - DSoundStartCapture, - DSoundStopCapture, - DSoundCaptureSamples, - DSoundAvailableSamples -}; - - -void alcDSoundInit(BackendFuncs *FuncList) -{ - *FuncList = DSoundFuncs; -} - -void alcDSoundDeinit(void) -{ - ALuint i; - - for(i = 0;i < NumDevices;++i) - free(DeviceList[i].name); - free(DeviceList); - DeviceList = NULL; - NumDevices = 0; - - if(ds_handle) - { -#ifdef _WIN32 - FreeLibrary(ds_handle); -#endif - ds_handle = NULL; - } -} - -void alcDSoundProbe(int type) -{ - if(!DSoundLoad()) return; - - if(type == DEVICE_PROBE) - AppendDeviceList(dsDevice); - else if(type == ALL_DEVICE_PROBE) - { - HRESULT hr; - ALuint i; - - for(i = 0;i < NumDevices;++i) - free(DeviceList[i].name); - free(DeviceList); - DeviceList = NULL; - NumDevices = 0; - - hr = pDirectSoundEnumerateA(DSoundEnumDevices, NULL); - if(FAILED(hr)) - AL_PRINT("Error enumerating DirectSound devices (%#x)!\n", (unsigned int)hr); - else - { - for(i = 0;i < NumDevices;i++) - AppendAllDeviceList(DeviceList[i].name); - } - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/mixer.c b/internal/c/parts/audio/out/android/OpenAL/Alc/mixer.c deleted file mode 100644 index 036441fd3..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/mixer.c +++ /dev/null @@ -1,813 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alListener.h" -#include "alAuxEffectSlot.h" -#include "alu.h" -#include "bs2b.h" - - -static __inline ALdfp point32(const ALfp *vals, ALint step, ALint frac) -{ return vals[0]; (void)step; (void)frac; } -static __inline ALdfp lerp32(const ALfp *vals, ALint step, ALint frac) -{ return lerp(vals[0], vals[step], ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))); } -static __inline ALdfp cubic32(const ALfp *vals, ALint step, ALint frac) -{ return cubic(vals[-step], vals[0], vals[step], vals[step+step], - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))); } - -static __inline ALdfp point16(const ALshort *vals, ALint step, ALint frac) -{ return ALfpMult(int2ALfp(vals[0]), float2ALfp(1.0/32767.0)); (void)step; (void)frac; } -static __inline ALdfp lerp16(const ALshort *vals, ALint step, ALint frac) -{ return ALfpMult(lerp(int2ALfp(vals[0]), int2ALfp(vals[step]), ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))), - float2ALfp(1.0/32767.0)); } -static __inline ALdfp cubic16(const ALshort *vals, ALint step, ALint frac) -{ return ALfpMult(cubic(int2ALfp(vals[-step]), int2ALfp(vals[0]), int2ALfp(vals[step]), int2ALfp(vals[step+step]), - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))), float2ALfp(1.0/32767.0)); } - -static __inline ALdfp point8(const ALubyte *vals, ALint step, ALint frac) -{ return ALfpMult(int2ALfp((int)vals[0]-128), float2ALfp(1.0/127.0)); (void)step; (void)frac; } -static __inline ALdfp lerp8(const ALubyte *vals, ALint step, ALint frac) -{ return ALfpMult((lerp(int2ALfp(vals[0]), int2ALfp(vals[step]), - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE))))- - int2ALfp(128)), - float2ALfp(1.0/127.0)); } -static __inline ALdfp cubic8(const ALubyte *vals, ALint step, ALint frac) -{ return ALfpMult((cubic(int2ALfp(vals[-step]), int2ALfp(vals[0]), int2ALfp(vals[step]), int2ALfp(vals[step+step]), - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE))))- - int2ALfp(128)), - float2ALfp(1.0/127.0)); } - - -#define DECL_TEMPLATE(T, sampler) \ -static void Mix_##T##_1_##sampler(ALsource *Source, ALCdevice *Device, \ - const T *data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - ALfp (*DryBuffer)[MAXCHANNELS]; \ - ALfp *ClickRemoval, *PendingClicks; \ - ALuint pos, frac; \ - ALfp DrySend[MAXCHANNELS]; \ - FILTER *DryFilter; \ - ALuint BufferIdx; \ - ALuint increment; \ - ALuint out, c; \ - ALfp value; \ - \ - increment = Source->Params.Step; \ - \ - DryBuffer = Device->DryBuffer; \ - ClickRemoval = Device->ClickRemoval; \ - PendingClicks = Device->PendingClicks; \ - DryFilter = &Source->Params.iirFilter; \ - for(c = 0;c < MAXCHANNELS;c++) \ - DrySend[c] = Source->Params.DryGains[0][c]; \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - \ - if(OutPos == 0) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter4PC(DryFilter, 0, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - ClickRemoval[c] = (ClickRemoval[c] - ALfpMult(value,DrySend[c])); \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - /* First order interpolator */ \ - value = sampler(data+pos, 1, frac); \ - \ - /* Direct path final mix buffer and panning */ \ - value = lpFilter4P(DryFilter, 0, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - DryBuffer[OutPos][c] = (DryBuffer[OutPos][c] + ALfpMult(value,DrySend[c])); \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter4PC(DryFilter, 0, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - PendingClicks[c] = (PendingClicks[c] + ALfpMult(value,DrySend[c])); \ - } \ - \ - for(out = 0;out < Device->NumAuxSends;out++) \ - { \ - ALfp WetSend; \ - ALfp *WetBuffer; \ - ALfp *WetClickRemoval; \ - ALfp *WetPendingClicks; \ - FILTER *WetFilter; \ - \ - if(!Source->Send[out].Slot || \ - Source->Send[out].Slot->effect.type == AL_EFFECT_NULL) \ - continue; \ - \ - WetBuffer = Source->Send[out].Slot->WetBuffer; \ - WetClickRemoval = Source->Send[out].Slot->ClickRemoval; \ - WetPendingClicks = Source->Send[out].Slot->PendingClicks; \ - WetFilter = &Source->Params.Send[out].iirFilter; \ - WetSend = Source->Params.Send[out].WetGain; \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - OutPos -= BufferSize; \ - \ - if(OutPos == 0) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter2PC(WetFilter, 0, value); \ - WetClickRemoval[0] = (WetClickRemoval[0] - ALfpMult(value,WetSend)); \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - /* First order interpolator */ \ - value = sampler(data+pos, 1, frac); \ - \ - /* Room path final mix buffer and panning */ \ - value = lpFilter2P(WetFilter, 0, value); \ - WetBuffer[OutPos] = (WetBuffer[OutPos] + ALfpMult(value,WetSend)); \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter2PC(WetFilter, 0, value); \ - WetPendingClicks[0] = (WetPendingClicks[0] + ALfpMult(value,WetSend)); \ - } \ - } \ - *DataPosInt += pos; \ - *DataPosFrac = frac; \ -} - -DECL_TEMPLATE(ALfp, point32) -DECL_TEMPLATE(ALfp, lerp32) -DECL_TEMPLATE(ALfp, cubic32) - -DECL_TEMPLATE(ALshort, point16) -DECL_TEMPLATE(ALshort, lerp16) -DECL_TEMPLATE(ALshort, cubic16) - -DECL_TEMPLATE(ALubyte, point8) -DECL_TEMPLATE(ALubyte, lerp8) -DECL_TEMPLATE(ALubyte, cubic8) - -#undef DECL_TEMPLATE - - -#define DECL_TEMPLATE(T, chnct, sampler) \ -static void Mix_##T##_##chnct##_##sampler(ALsource *Source, ALCdevice *Device,\ - const T *data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - const ALuint Channels = chnct; \ - const ALfp scaler = ALfpDiv(int2ALfp(1),int2ALfp(chnct)); \ - ALfp (*DryBuffer)[MAXCHANNELS]; \ - ALfp *ClickRemoval, *PendingClicks; \ - ALuint pos, frac; \ - ALfp DrySend[chnct][MAXCHANNELS]; \ - FILTER *DryFilter; \ - ALuint BufferIdx; \ - ALuint increment; \ - ALuint i, out, c; \ - ALfp value; \ - \ - increment = Source->Params.Step; \ - \ - DryBuffer = Device->DryBuffer; \ - ClickRemoval = Device->ClickRemoval; \ - PendingClicks = Device->PendingClicks; \ - DryFilter = &Source->Params.iirFilter; \ - for(i = 0;i < Channels;i++) \ - { \ - for(c = 0;c < MAXCHANNELS;c++) \ - DrySend[i][c] = Source->Params.DryGains[i][c]; \ - } \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - \ - if(OutPos == 0) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter2PC(DryFilter, i*2, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - ClickRemoval[c] = (ClickRemoval[c] - ALfpMult(value,DrySend[i][c])); \ - } \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter2P(DryFilter, i*2, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - DryBuffer[OutPos][c] = (DryBuffer[OutPos][c] + ALfpMult(value,DrySend[i][c])); \ - } \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter2PC(DryFilter, i*2, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - PendingClicks[c] = (PendingClicks[c] + ALfpMult(value,DrySend[i][c])); \ - } \ - } \ - \ - for(out = 0;out < Device->NumAuxSends;out++) \ - { \ - ALfp WetSend; \ - ALfp *WetBuffer; \ - ALfp *WetClickRemoval; \ - ALfp *WetPendingClicks; \ - FILTER *WetFilter; \ - \ - if(!Source->Send[out].Slot || \ - Source->Send[out].Slot->effect.type == AL_EFFECT_NULL) \ - continue; \ - \ - WetBuffer = Source->Send[out].Slot->WetBuffer; \ - WetClickRemoval = Source->Send[out].Slot->ClickRemoval; \ - WetPendingClicks = Source->Send[out].Slot->PendingClicks; \ - WetFilter = &Source->Params.Send[out].iirFilter; \ - WetSend = Source->Params.Send[out].WetGain; \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - OutPos -= BufferSize; \ - \ - if(OutPos == 0) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter1PC(WetFilter, i, value); \ - WetClickRemoval[0] = (WetClickRemoval[0] - ALfpMult(ALfpMult(value,WetSend), scaler)); \ - } \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter1P(WetFilter, i, value); \ - WetBuffer[OutPos] = (WetBuffer[OutPos] + ALfpMult(ALfpMult(value,WetSend), scaler)); \ - } \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter1PC(WetFilter, i, value); \ - WetPendingClicks[0] = (WetPendingClicks[0] + ALfpMult(ALfpMult(value,WetSend), scaler)); \ - } \ - } \ - } \ - *DataPosInt += pos; \ - *DataPosFrac = frac; \ -} - -DECL_TEMPLATE(ALfp, 2, point32) -DECL_TEMPLATE(ALfp, 2, lerp32) -DECL_TEMPLATE(ALfp, 2, cubic32) - -DECL_TEMPLATE(ALshort, 2, point16) -DECL_TEMPLATE(ALshort, 2, lerp16) -DECL_TEMPLATE(ALshort, 2, cubic16) - -DECL_TEMPLATE(ALubyte, 2, point8) -DECL_TEMPLATE(ALubyte, 2, lerp8) -DECL_TEMPLATE(ALubyte, 2, cubic8) - - -DECL_TEMPLATE(ALfp, 4, point32) -DECL_TEMPLATE(ALfp, 4, lerp32) -DECL_TEMPLATE(ALfp, 4, cubic32) - -DECL_TEMPLATE(ALshort, 4, point16) -DECL_TEMPLATE(ALshort, 4, lerp16) -DECL_TEMPLATE(ALshort, 4, cubic16) - -DECL_TEMPLATE(ALubyte, 4, point8) -DECL_TEMPLATE(ALubyte, 4, lerp8) -DECL_TEMPLATE(ALubyte, 4, cubic8) - - -DECL_TEMPLATE(ALfp, 6, point32) -DECL_TEMPLATE(ALfp, 6, lerp32) -DECL_TEMPLATE(ALfp, 6, cubic32) - -DECL_TEMPLATE(ALshort, 6, point16) -DECL_TEMPLATE(ALshort, 6, lerp16) -DECL_TEMPLATE(ALshort, 6, cubic16) - -DECL_TEMPLATE(ALubyte, 6, point8) -DECL_TEMPLATE(ALubyte, 6, lerp8) -DECL_TEMPLATE(ALubyte, 6, cubic8) - - -DECL_TEMPLATE(ALfp, 7, point32) -DECL_TEMPLATE(ALfp, 7, lerp32) -DECL_TEMPLATE(ALfp, 7, cubic32) - -DECL_TEMPLATE(ALshort, 7, point16) -DECL_TEMPLATE(ALshort, 7, lerp16) -DECL_TEMPLATE(ALshort, 7, cubic16) - -DECL_TEMPLATE(ALubyte, 7, point8) -DECL_TEMPLATE(ALubyte, 7, lerp8) -DECL_TEMPLATE(ALubyte, 7, cubic8) - - -DECL_TEMPLATE(ALfp, 8, point32) -DECL_TEMPLATE(ALfp, 8, lerp32) -DECL_TEMPLATE(ALfp, 8, cubic32) - -DECL_TEMPLATE(ALshort, 8, point16) -DECL_TEMPLATE(ALshort, 8, lerp16) -DECL_TEMPLATE(ALshort, 8, cubic16) - -DECL_TEMPLATE(ALubyte, 8, point8) -DECL_TEMPLATE(ALubyte, 8, lerp8) -DECL_TEMPLATE(ALubyte, 8, cubic8) - -#undef DECL_TEMPLATE - - -#define DECL_TEMPLATE(T, sampler) \ -static void Mix_##T##_##sampler(ALsource *Source, ALCdevice *Device, \ - enum FmtChannels FmtChannels, \ - const ALvoid *Data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - switch(FmtChannels) \ - { \ - case FmtMono: \ - Mix_##T##_1_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtStereo: \ - case FmtRear: \ - Mix_##T##_2_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtQuad: \ - Mix_##T##_4_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtX51: \ - Mix_##T##_6_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtX61: \ - Mix_##T##_7_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtX71: \ - Mix_##T##_8_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - } \ -} - -DECL_TEMPLATE(ALfp, point32) -DECL_TEMPLATE(ALfp, lerp32) -DECL_TEMPLATE(ALfp, cubic32) - -DECL_TEMPLATE(ALshort, point16) -DECL_TEMPLATE(ALshort, lerp16) -DECL_TEMPLATE(ALshort, cubic16) - -DECL_TEMPLATE(ALubyte, point8) -DECL_TEMPLATE(ALubyte, lerp8) -DECL_TEMPLATE(ALubyte, cubic8) - -#undef DECL_TEMPLATE - - -#define DECL_TEMPLATE(sampler) \ -static void Mix_##sampler(ALsource *Source, ALCdevice *Device, \ - enum FmtChannels FmtChannels, enum FmtType FmtType, \ - const ALvoid *Data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - switch(FmtType) \ - { \ - case FmtUByte: \ - Mix_ALubyte_##sampler##8(Source, Device, FmtChannels, \ - Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - \ - case FmtShort: \ - Mix_ALshort_##sampler##16(Source, Device, FmtChannels, \ - Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - \ - case FmtFloat: \ - Mix_ALfp_##sampler##32(Source, Device, FmtChannels, \ - Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - } \ -} - -DECL_TEMPLATE(point) -DECL_TEMPLATE(lerp) -DECL_TEMPLATE(cubic) - -#undef DECL_TEMPLATE - - -ALvoid MixSource(ALsource *Source, ALCdevice *Device, ALuint SamplesToDo) -{ - ALbufferlistitem *BufferListItem; - ALuint DataPosInt, DataPosFrac; - enum FmtChannels FmtChannels; - enum FmtType FmtType; - ALuint BuffersPlayed; - ALboolean Looping; - ALuint increment; - resampler_t Resampler; - ALenum State; - ALuint OutPos; - ALuint FrameSize; - ALint64 DataSize64; - ALuint i; - - /* Get source info */ - State = Source->state; - BuffersPlayed = Source->BuffersPlayed; - DataPosInt = Source->position; - DataPosFrac = Source->position_fraction; - Looping = Source->bLooping; - increment = Source->Params.Step; - Resampler = (increment == FRACTIONONE) ? POINT_RESAMPLER : - Source->Resampler; - - /* Get buffer info */ - FrameSize = 0; - FmtChannels = FmtMono; - FmtType = FmtUByte; - BufferListItem = Source->queue; - for(i = 0;i < Source->BuffersInQueue;i++) - { - const ALbuffer *ALBuffer; - if((ALBuffer=BufferListItem->buffer) != NULL) - { - FmtChannels = ALBuffer->FmtChannels; - FmtType = ALBuffer->FmtType; - FrameSize = FrameSizeFromFmt(FmtChannels, FmtType); - break; - } - BufferListItem = BufferListItem->next; - } - - /* Get current buffer queue item */ - BufferListItem = Source->queue; - for(i = 0;i < BuffersPlayed;i++) - BufferListItem = BufferListItem->next; - - OutPos = 0; - do { - const ALuint BufferPrePadding = ResamplerPrePadding[Resampler]; - const ALuint BufferPadding = ResamplerPadding[Resampler]; - ALubyte StackData[STACK_DATA_SIZE]; - ALubyte *SrcData = StackData; - ALuint SrcDataSize = 0; - ALuint BufferSize; - - /* Figure out how many buffer bytes will be needed */ - DataSize64 = SamplesToDo-OutPos+1; - DataSize64 *= increment; - DataSize64 += DataPosFrac+FRACTIONMASK; - DataSize64 >>= FRACTIONBITS; - DataSize64 += BufferPadding+BufferPrePadding; - DataSize64 *= FrameSize; - - BufferSize = min(DataSize64, STACK_DATA_SIZE); - BufferSize -= BufferSize%FrameSize; - - if(Source->lSourceType == AL_STATIC) - { - const ALbuffer *ALBuffer = Source->Buffer; - const ALubyte *Data = ALBuffer->data; - ALuint DataSize; - ALuint pos; - - /* If current pos is beyond the loop range, do not loop */ - if(Looping == AL_FALSE || DataPosInt >= (ALuint)ALBuffer->LoopEnd) - { - Looping = AL_FALSE; - - if(DataPosInt >= BufferPrePadding) - pos = (DataPosInt-BufferPrePadding)*FrameSize; - else - { - DataSize = (BufferPrePadding-DataPosInt)*FrameSize; - DataSize = min(BufferSize, DataSize); - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - pos = 0; - } - - /* Copy what's left to play in the source buffer, and clear the - * rest of the temp buffer */ - DataSize = ALBuffer->size - pos; - DataSize = min(BufferSize, DataSize); - - memcpy(&SrcData[SrcDataSize], &Data[pos], DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, BufferSize); - SrcDataSize += BufferSize; - BufferSize -= BufferSize; - } - else - { - ALuint LoopStart = ALBuffer->LoopStart; - ALuint LoopEnd = ALBuffer->LoopEnd; - - if(DataPosInt >= LoopStart) - { - pos = DataPosInt-LoopStart; - while(pos < BufferPrePadding) - pos += LoopEnd-LoopStart; - pos -= BufferPrePadding; - pos += LoopStart; - pos *= FrameSize; - } - else if(DataPosInt >= BufferPrePadding) - pos = (DataPosInt-BufferPrePadding)*FrameSize; - else - { - DataSize = (BufferPrePadding-DataPosInt)*FrameSize; - DataSize = min(BufferSize, DataSize); - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - pos = 0; - } - - /* Copy what's left of this loop iteration, then copy repeats - * of the loop section */ - DataSize = LoopEnd*FrameSize - pos; - DataSize = min(BufferSize, DataSize); - - memcpy(&SrcData[SrcDataSize], &Data[pos], DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - DataSize = (LoopEnd-LoopStart) * FrameSize; - while(BufferSize > 0) - { - DataSize = min(BufferSize, DataSize); - - memcpy(&SrcData[SrcDataSize], &Data[LoopStart*FrameSize], DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - } - } - } - else - { - /* Crawl the buffer queue to fill in the temp buffer */ - ALbufferlistitem *BufferListIter = BufferListItem; - ALuint pos; - - if(DataPosInt >= BufferPrePadding) - pos = (DataPosInt-BufferPrePadding)*FrameSize; - else - { - pos = (BufferPrePadding-DataPosInt)*FrameSize; - while(pos > 0) - { - if(!BufferListIter->prev && !Looping) - { - ALuint DataSize = min(BufferSize, pos); - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - pos = 0; - break; - } - - if(BufferListIter->prev) - BufferListIter = BufferListIter->prev; - else - { - while(BufferListIter->next) - BufferListIter = BufferListIter->next; - } - - if(BufferListIter->buffer) - { - if((ALuint)BufferListIter->buffer->size > pos) - { - pos = BufferListIter->buffer->size - pos; - break; - } - pos -= BufferListIter->buffer->size; - } - } - } - - while(BufferListIter && BufferSize > 0) - { - const ALbuffer *ALBuffer; - if((ALBuffer=BufferListIter->buffer) != NULL) - { - const ALubyte *Data = ALBuffer->data; - ALuint DataSize = ALBuffer->size; - - /* Skip the data already played */ - if(DataSize <= pos) - pos -= DataSize; - else - { - Data += pos; - DataSize -= pos; - pos -= pos; - - DataSize = min(BufferSize, DataSize); - memcpy(&SrcData[SrcDataSize], Data, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - } - } - BufferListIter = BufferListIter->next; - if(!BufferListIter && Looping) - BufferListIter = Source->queue; - else if(!BufferListIter) - { - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, BufferSize); - SrcDataSize += BufferSize; - BufferSize -= BufferSize; - } - } - } - - /* Figure out how many samples we can mix. */ - DataSize64 = SrcDataSize / FrameSize; - DataSize64 -= BufferPadding+BufferPrePadding; - DataSize64 <<= FRACTIONBITS; - DataSize64 -= increment; - DataSize64 -= DataPosFrac; - - BufferSize = (ALuint)((DataSize64+(increment-1)) / increment); - BufferSize = min(BufferSize, (SamplesToDo-OutPos)); - - SrcData += BufferPrePadding*FrameSize; - switch(Resampler) - { - case POINT_RESAMPLER: - Mix_point(Source, Device, FmtChannels, FmtType, - SrcData, &DataPosInt, &DataPosFrac, - OutPos, SamplesToDo, BufferSize); - break; - case LINEAR_RESAMPLER: - Mix_lerp(Source, Device, FmtChannels, FmtType, - SrcData, &DataPosInt, &DataPosFrac, - OutPos, SamplesToDo, BufferSize); - break; - case CUBIC_RESAMPLER: - Mix_cubic(Source, Device, FmtChannels, FmtType, - SrcData, &DataPosInt, &DataPosFrac, - OutPos, SamplesToDo, BufferSize); - break; - case RESAMPLER_MIN: - case RESAMPLER_MAX: - break; - } - OutPos += BufferSize; - - /* Handle looping sources */ - while(1) - { - const ALbuffer *ALBuffer; - ALuint DataSize = 0; - ALuint LoopStart = 0; - ALuint LoopEnd = 0; - - if((ALBuffer=BufferListItem->buffer) != NULL) - { - DataSize = ALBuffer->size / FrameSize; - LoopStart = ALBuffer->LoopStart; - LoopEnd = ALBuffer->LoopEnd; - if(LoopEnd > DataPosInt) - break; - } - - if(Looping && Source->lSourceType == AL_STATIC) - { - BufferListItem = Source->queue; - DataPosInt = ((DataPosInt-LoopStart)%(LoopEnd-LoopStart)) + LoopStart; - break; - } - - if(DataSize > DataPosInt) - break; - - if(BufferListItem->next) - { - BufferListItem = BufferListItem->next; - BuffersPlayed++; - } - else if(Looping) - { - BufferListItem = Source->queue; - BuffersPlayed = 0; - } - else - { - State = AL_STOPPED; - BufferListItem = Source->queue; - BuffersPlayed = Source->BuffersInQueue; - DataPosInt = 0; - DataPosFrac = 0; - break; - } - - DataPosInt -= DataSize; - } - } while(State == AL_PLAYING && OutPos < SamplesToDo); - - /* Update source info */ - Source->state = State; - Source->BuffersPlayed = BuffersPlayed; - Source->position = DataPosInt; - Source->position_fraction = DataPosFrac; - Source->Buffer = BufferListItem->buffer; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/null.c b/internal/c/parts/audio/out/android/OpenAL/Alc/null.c deleted file mode 100644 index 75fc883cd..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/null.c +++ /dev/null @@ -1,182 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2010 by Chris Robinson - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - - -typedef struct { - ALvoid *buffer; - ALuint size; - - volatile int killNow; - ALvoid *thread; -} null_data; - - -static const ALCchar nullDevice[] = "No Output"; - -static ALuint NullProc(ALvoid *ptr) -{ - ALCdevice *Device = (ALCdevice*)ptr; - null_data *data = (null_data*)Device->ExtraData; - ALuint now, start; - ALuint64 avail, done; - const ALuint restTime = ((ALuint)((ALuint64)Device->UpdateSize * 1000 / - Device->Frequency)) / 2; - - done = 0; - start = timeGetTime(); - while(!data->killNow && Device->Connected) - { - now = timeGetTime(); - - avail = (ALuint64)(now-start) * Device->Frequency / 1000; - if(avail < done) - { - /* Timer wrapped. Add the remainder of the cycle to the available - * count and reset the number of samples done */ - avail += (ALuint64)0xFFFFFFFFu*Device->Frequency/1000 - done; - done = 0; - } - if(avail-done < Device->UpdateSize) - { - Sleep(restTime); - continue; - } - - while(avail-done >= Device->UpdateSize) - { - aluMixData(Device, data->buffer, Device->UpdateSize); - done += Device->UpdateSize; - } - } - - return 0; -} - -static ALCboolean null_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - null_data *data; - - if(!deviceName) - deviceName = nullDevice; - else if(strcmp(deviceName, nullDevice) != 0) - return ALC_FALSE; - - data = (null_data*)calloc(1, sizeof(*data)); - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void null_close_playback(ALCdevice *device) -{ - null_data *data = (null_data*)device->ExtraData; - - free(data); - device->ExtraData = NULL; -} - -static ALCboolean null_reset_playback(ALCdevice *device) -{ - null_data *data = (null_data*)device->ExtraData; - - data->size = device->UpdateSize * FrameSizeFromDevFmt(device->FmtChans, - device->FmtType); - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - return ALC_FALSE; - } - SetDefaultWFXChannelOrder(device); - - data->thread = StartThread(NullProc, device); - if(data->thread == NULL) - { - free(data->buffer); - data->buffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void null_stop_playback(ALCdevice *device) -{ - null_data *data = (null_data*)device->ExtraData; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - - free(data->buffer); - data->buffer = NULL; -} - - -static ALCboolean null_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - (void)device; - (void)deviceName; - return ALC_FALSE; -} - - -BackendFuncs null_funcs = { - null_open_playback, - null_close_playback, - null_reset_playback, - null_stop_playback, - null_open_capture, - NULL, - NULL, - NULL, - NULL, - NULL -}; - -void alc_null_init(BackendFuncs *func_list) -{ - *func_list = null_funcs; -} - -void alc_null_deinit(void) -{ -} - -void alc_null_probe(int type) -{ - if(type == DEVICE_PROBE) - AppendDeviceList(nullDevice); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(nullDevice); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/opensles.c b/internal/c/parts/audio/out/android/OpenAL/Alc/opensles.c deleted file mode 100644 index f9ccb5a9e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/opensles.c +++ /dev/null @@ -1,800 +0,0 @@ -/* - * Copyright (C) 2011 The Android Open Source Project - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - */ - -/* This is an OpenAL backend for Android using the native audio APIs based on OpenSL ES 1.0.1. - * It is based on source code for the native-audio sample app bundled with NDK. - */ - -#include -#include -#include -#include -#include - -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include -#include -#include - -#include - - -#define LOG_NDEBUG 0 -#define LOG_TAG "OpenAL_SLES" - -#if 1 -#define LOGV(...) __android_log_print(ANDROID_LOG_INFO, LOG_TAG, __VA_ARGS__) -#else -#define LOGV(...) -#endif - -// for native audio -#include -#include - -#include "apportable_openal_funcs.h" - -#define MAKE_SYM_POINTER(sym) static typeof(sym) * p##sym = NULL -MAKE_SYM_POINTER(SL_IID_ENGINE); -MAKE_SYM_POINTER(SL_IID_ANDROIDSIMPLEBUFFERQUEUE); -MAKE_SYM_POINTER(SL_IID_PLAY); -MAKE_SYM_POINTER(SL_IID_BUFFERQUEUE); -MAKE_SYM_POINTER(slCreateEngine); - -// engine interfaces -static SLObjectItf engineObject = NULL; -static SLEngineItf engineEngine; - -// output mix interfaces -static SLObjectItf outputMixObject = NULL; - -// JNI stuff so we can get the runtime OS version number -static JavaVM* javaVM = NULL; - -static int alc_opensles_get_android_api() -{ - jclass androidVersionClass = NULL; - jfieldID androidSdkIntField = NULL; - int androidApiLevel = 0; - JNIEnv* env = NULL; - - (*javaVM)->GetEnv(javaVM, (void**)&env, JNI_VERSION_1_4); - androidVersionClass = (*env)->FindClass(env, "android/os/Build$VERSION"); - if (androidVersionClass) - { - androidSdkIntField = (*env)->GetStaticFieldID(env, androidVersionClass, "SDK_INT", "I"); - if (androidSdkIntField != NULL) - { - androidApiLevel = (int)((*env)->GetStaticIntField(env, androidVersionClass, androidSdkIntField)); - } - (*env)->DeleteLocalRef(env, androidVersionClass); - } - LOGV("API:%d", androidApiLevel); - return androidApiLevel; -} -static char *androidModel = NULL; -static char *alc_opensles_get_android_model() -{ - if (!androidModel) { - jclass androidBuildClass = NULL; - jfieldID androidModelField = NULL; - jstring androidModelString = NULL; - int androidApiLevel = 0; - JNIEnv* env = NULL; - - (*javaVM)->GetEnv(javaVM, (void**)&env, JNI_VERSION_1_4); - (*env)->PushLocalFrame(env, 5); - androidBuildClass = (*env)->FindClass(env, "android/os/Build"); - if (androidBuildClass) - { - androidModelField = (*env)->GetStaticFieldID(env, androidBuildClass, "MODEL", "Ljava/lang/String;"); - androidModelString = (*env)->GetStaticObjectField(env, androidBuildClass, androidModelField); - const char *unichars = (*env)->GetStringUTFChars(env, androidModelString, NULL); - if (!(*env)->ExceptionOccurred(env)) - { - jsize sz = (*env)->GetStringLength(env, androidModelString); - androidModel = malloc(sz+1); - if (androidModel) { - strncpy(androidModel, unichars, sz); - androidModel[sz] = '\0'; - } - } - (*env)->ReleaseStringUTFChars(env, androidModelString, unichars); - } - (*env)->PopLocalFrame(env, NULL); - } - LOGV("Model:%s", androidModel); - return androidModel; -} - -static long timespecdiff(struct timespec *starttime, struct timespec *finishtime) -{ - long msec; - msec=(finishtime->tv_sec-starttime->tv_sec)*1000; - msec+=(finishtime->tv_nsec-starttime->tv_nsec)/1000000; - return msec; - } - -// Cannot be a constant because we need to tweak differently depending on OS version. -static size_t bufferCount = 8; -static size_t bufferSize = (1024*4); -static size_t defaultBufferSize = (1024*4); -static size_t premixCount = 3; -#define bufferSizeMax (1024*4) - -typedef enum { - OUTPUT_BUFFER_STATE_UNKNOWN, - OUTPUT_BUFFER_STATE_FREE, - OUTPUT_BUFFER_STATE_MIXED, - OUTPUT_BUFFER_STATE_ENQUEUED, -} outputBuffer_state_t; - -typedef struct outputBuffer_s { - pthread_mutex_t mutex; - pthread_cond_t cond; - outputBuffer_state_t state; - char buffer[bufferSizeMax]; -} outputBuffer_t; - -// Will dynamically create the number of buffers (array elements) based on OS version. - - -typedef struct { - pthread_t playbackThread; - char threadShouldRun; - char threadIsReady; - char lastBufferEnqueued; - char lastBufferMixed; - - outputBuffer_t *outputBuffers; - - // buffer queue player interfaces - SLObjectItf bqPlayerObject; - SLPlayItf bqPlayerPlay; - SLAndroidSimpleBufferQueueItf bqPlayerBufferQueue; -} opesles_data_t; -#define MAX_DEVICES 3 -static ALCdevice *deviceList[MAX_DEVICES] = {NULL}; -static pthread_mutex_t deviceListMutex = PTHREAD_MUTEX_INITIALIZER; - -typedef void (*deviceListFn)(ALCdevice *); - -static void devlist_add(ALCdevice *pDevice) { - int i; - pthread_mutex_lock(&(deviceListMutex)); - for (i = 0; i < MAX_DEVICES; i++) { - if (deviceList[i] == pDevice) { - break; - } else if (deviceList[i] == NULL) { - deviceList[i] = pDevice; - break; - } - } - pthread_mutex_unlock(&(deviceListMutex)); -} - -static void devlist_remove(ALCdevice *pDevice) { - int i; - pthread_mutex_lock(&(deviceListMutex)); - for (i = 0; i < MAX_DEVICES; i++) { - if (deviceList[i] == pDevice) { - deviceList[i] = NULL; - } - } - pthread_mutex_unlock(&(deviceListMutex)); -} - -static void devlist_process(deviceListFn mapFunction) { - int i; - pthread_mutex_lock(&(deviceListMutex)); - for (i = 0; i < MAX_DEVICES; i++) { - if (deviceList[i]) { - pthread_mutex_unlock(&(deviceListMutex)); - mapFunction(deviceList[i]); - pthread_mutex_lock(&(deviceListMutex)); - } - } - pthread_mutex_unlock(&(deviceListMutex)); -} - - -static void *playback_function(void * context) { - LOGV("playback_function started"); - outputBuffer_t *buffer = NULL; - SLresult result; - struct timespec ts; - assert(NULL != context); - ALCdevice *pDevice = (ALCdevice *) context; - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - unsigned int bufferIndex = devState->lastBufferMixed; - - ALint frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - // Show a sensible name for the thread in debug tools - prctl(PR_SET_NAME, (unsigned long)"OpenAL/sl/m", 0, 0, 0); - - while (1) { - if (devState->threadShouldRun == 0) { - return NULL; - } - - bufferIndex = (++bufferIndex) % bufferCount; - buffer = &(devState->outputBuffers[bufferIndex]); - - pthread_mutex_lock(&(buffer->mutex)); - - - while (1) { - if (devState->threadShouldRun == 0) { - pthread_mutex_unlock(&(buffer->mutex)); - return NULL; - } - - // This is a little hacky, but here we avoid mixing too much data - if (buffer->state == OUTPUT_BUFFER_STATE_FREE) { - int i = (bufferIndex - premixCount) % bufferCount; - outputBuffer_t *buffer1 = &(devState->outputBuffers[i]); - if (buffer1->state == OUTPUT_BUFFER_STATE_ENQUEUED || - buffer1->state == OUTPUT_BUFFER_STATE_FREE) { - break; - } - } - - // No buffer available, wait for a buffer to become available - // or until playback is stopped/suspended - clock_gettime(CLOCK_REALTIME, &ts); - ts.tv_nsec += 5000000; - pthread_cond_timedwait(&(buffer->cond), &(buffer->mutex), &ts); - } - devState->threadIsReady = 1; - - aluMixData(pDevice, buffer->buffer, bufferSize/frameSize); - buffer->state = OUTPUT_BUFFER_STATE_MIXED; - pthread_cond_signal(&(buffer->cond)); - pthread_mutex_unlock(&(buffer->mutex)); - - devState->lastBufferMixed = bufferIndex; - } -} - -SLresult alc_opensles_init_extradata(ALCdevice *pDevice) -{ - opesles_data_t *devState = NULL; - int i; - devState = malloc(sizeof(opesles_data_t)); - if (!devState) { - return SL_RESULT_MEMORY_FAILURE; - } - bzero(devState, sizeof(opesles_data_t)); - devState->outputBuffers = (outputBuffer_t*) malloc(sizeof(outputBuffer_t)*bufferCount); - if (!devState->outputBuffers) { - free(devState); - return SL_RESULT_MEMORY_FAILURE; - } - pDevice->ExtraData = devState; - bzero(devState->outputBuffers, sizeof(outputBuffer_t)*bufferCount); - devState->lastBufferEnqueued = -1; - devState->lastBufferMixed = -1; - for (i = 0; i < bufferCount; i++) { - if (pthread_mutex_init(&(devState->outputBuffers[i].mutex), (pthread_mutexattr_t*) NULL) != 0) { - LOGV("Error on init of mutex"); - free(devState->outputBuffers); - free(devState); - return SL_RESULT_UNKNOWN_ERROR; - } - if (pthread_cond_init(&(devState->outputBuffers[i].cond), (pthread_condattr_t*) NULL) != 0) { - LOGV("Error on init of cond"); - free(devState->outputBuffers); - free(devState); - return SL_RESULT_UNKNOWN_ERROR; - } - devState->outputBuffers[i].state = OUTPUT_BUFFER_STATE_FREE; - } - // For the Android suspend/resume functionaly, keep track of all device contexts - devlist_add(pDevice); - return SL_RESULT_SUCCESS; -} - -static void start_playback(ALCdevice *pDevice) { - opesles_data_t *devState = NULL; - int i; - - if (pDevice->ExtraData == NULL) { - alc_opensles_init_extradata(pDevice); - devState = pDevice->ExtraData; - assert(devState != NULL); - } else { - devState = (opesles_data_t *) pDevice->ExtraData; - } - - if (devState->threadShouldRun == 1) { - // Gratuitous resume - return; - } - - // start/restart playback thread - devState->threadShouldRun = 1; - - pthread_attr_t playbackThreadAttr; - pthread_attr_init(&playbackThreadAttr); - struct sched_param playbackThreadParam; - playbackThreadParam.sched_priority = sched_get_priority_max(SCHED_RR); - pthread_attr_setschedpolicy(&playbackThreadAttr, SCHED_RR); - pthread_attr_setschedparam(&playbackThreadAttr, &playbackThreadParam); - pthread_create(&(devState->playbackThread), &playbackThreadAttr, playback_function, (void *) pDevice); - while (devState->threadShouldRun && (0 == devState->threadIsReady)) - { - sched_yield(); - } -} - -static void stop_playback(ALCdevice *pDevice) { - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - devState->threadShouldRun = 0; - pthread_join(devState->playbackThread, NULL); - return; -} - -// this callback handler is called every time a buffer finishes playing -static void opensles_callback(SLAndroidSimpleBufferQueueItf bq, void *context) -{ - ALCdevice *pDevice = (ALCdevice *) context; - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - unsigned int bufferIndex = devState->lastBufferEnqueued; - unsigned int i; - struct timespec ts; - int rc; - SLresult result; - outputBuffer_t *buffer = NULL; - - bufferIndex = (++bufferIndex) % bufferCount; - buffer = &(devState->outputBuffers[bufferIndex]); - - pthread_mutex_lock(&(buffer->mutex)); - // We will block until 'next' buffer has mixed audio, but first flag oldest equeued buffer as free - for (i = 1; i <= bufferCount; i++) { - unsigned int j = (devState->lastBufferEnqueued+i) % bufferCount; - outputBuffer_t *bufferFree = &(devState->outputBuffers[j]); - if (bufferFree->state == OUTPUT_BUFFER_STATE_ENQUEUED) { - bufferFree->state = OUTPUT_BUFFER_STATE_FREE; - break; - } - } - while (buffer->state != OUTPUT_BUFFER_STATE_MIXED) { - clock_gettime(CLOCK_REALTIME, &ts); - ts.tv_nsec += 100000; - rc = pthread_cond_timedwait(&(buffer->cond), &(buffer->mutex), &ts); - if (rc != 0) { - if (devState->threadShouldRun == 0) { - // we are probably suspended - pthread_mutex_unlock(&(buffer->mutex)); - return; - } - } - } - - if (devState->bqPlayerBufferQueue) { - result = (*devState->bqPlayerBufferQueue)->Enqueue(devState->bqPlayerBufferQueue, buffer->buffer, bufferSize); - if (SL_RESULT_SUCCESS == result) { - buffer->state = OUTPUT_BUFFER_STATE_ENQUEUED; - devState->lastBufferEnqueued = bufferIndex; - pthread_cond_signal(&(buffer->cond)); - } else { - bufferIndex--; - } - } - pthread_mutex_unlock(&(buffer->mutex)); -} - - -static const ALCchar opensles_device[] = "OpenSL ES"; - -// Apportable extensions -SLresult alc_opensles_create_native_audio_engine() -{ - if (engineObject) - return SL_RESULT_SUCCESS; - - SLresult result; - - // create engine - result = pslCreateEngine(&engineObject, 0, NULL, 0, NULL, NULL); - assert(SL_RESULT_SUCCESS == result); - - // realize the engine - result = (*engineObject)->Realize(engineObject, SL_BOOLEAN_FALSE); - assert(SL_RESULT_SUCCESS == result); - - // get the engine interface, which is needed in order to create other objects - result = (*engineObject)->GetInterface(engineObject, *pSL_IID_ENGINE, &engineEngine); - assert(SL_RESULT_SUCCESS == result); - - // create output mix - result = (*engineEngine)->CreateOutputMix(engineEngine, &outputMixObject, 0, NULL, NULL); - assert(SL_RESULT_SUCCESS == result); - - // realize the output mix - result = (*outputMixObject)->Realize(outputMixObject, SL_BOOLEAN_FALSE); - assert(SL_RESULT_SUCCESS == result); - - return result; -} - -// Backend functions, in same order as type BackendFuncs -static ALCboolean opensles_open_playback(ALCdevice *pDevice, const ALCchar *deviceName) -{ - LOGV("opensles_open_playback pDevice=%p, deviceName=%s", pDevice, deviceName); - - // Check if probe has linked the opensl symbols - if (pslCreateEngine == NULL) { - alc_opensles_probe(DEVICE_PROBE); - if (pslCreateEngine == NULL) { - return ALC_FALSE; - } - } - - if (pDevice->ExtraData == NULL) { - alc_opensles_init_extradata(pDevice); - } - - // create the engine and output mix objects - alc_opensles_create_native_audio_engine(); - - return ALC_TRUE; -} - - -static void opensles_close_playback(ALCdevice *pDevice) -{ - LOGV("opensles_close_playback pDevice=%p", pDevice); - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - - // shut down the native audio system - - // destroy buffer queue audio player object, and invalidate all associated interfaces - if (devState->bqPlayerObject != NULL) { - (*devState->bqPlayerObject)->Destroy(devState->bqPlayerObject); - devState->bqPlayerObject = NULL; - devState->bqPlayerPlay = NULL; - devState->bqPlayerBufferQueue = NULL; - } - - - - devlist_remove(pDevice); -} - -static ALCboolean opensles_reset_playback(ALCdevice *pDevice) -{ - if (pDevice == NULL) { - LOGE("Received a NULL ALCdevice! Returning ALC_FALSE from opensles_reset_playback"); - return ALC_FALSE; - } - LOGV("opensles_reset_playback pDevice=%p", pDevice); - opesles_data_t *devState; - unsigned bits = BytesFromDevFmt(pDevice->FmtType) * 8; - unsigned channels = ChannelsFromDevFmt(pDevice->FmtChans); - unsigned samples = pDevice->UpdateSize; - unsigned size = samples * channels * bits / 8; - SLuint32 sampling_rate = pDevice->Frequency * 1000; - SLresult result; - LOGV("bits=%u, channels=%u, samples=%u, size=%u, freq=%u", bits, channels, samples, size, pDevice->Frequency); - if (pDevice->Frequency <= 22050) { - bufferSize = defaultBufferSize / 2; - } - - devState = (opesles_data_t *) pDevice->ExtraData; - - // create buffer queue audio player - - // configure audio source - SLDataLocator_AndroidSimpleBufferQueue loc_bufq = {SL_DATALOCATOR_ANDROIDSIMPLEBUFFERQUEUE, 2}; -// SLDataFormat_PCM format_pcm = {SL_DATAFORMAT_PCM, 2, SL_SAMPLINGRATE_44_1, - SLDataFormat_PCM format_pcm = {SL_DATAFORMAT_PCM, 2, sampling_rate, - SL_PCMSAMPLEFORMAT_FIXED_16, SL_PCMSAMPLEFORMAT_FIXED_16, - SL_SPEAKER_FRONT_LEFT|SL_SPEAKER_FRONT_RIGHT, SL_BYTEORDER_LITTLEENDIAN}; - SLDataSource audioSrc = {&loc_bufq, &format_pcm}; - - // configure audio sink - SLDataLocator_OutputMix loc_outmix = {SL_DATALOCATOR_OUTPUTMIX, outputMixObject}; - SLDataSink audioSnk = {&loc_outmix, NULL}; - - // create audio player - LOGV("create audio player"); - const SLInterfaceID ids[1] = {*pSL_IID_ANDROIDSIMPLEBUFFERQUEUE}; - const SLboolean req[1] = {SL_BOOLEAN_TRUE}; - result = (*engineEngine)->CreateAudioPlayer(engineEngine, &devState->bqPlayerObject, &audioSrc, &audioSnk, - 1, ids, req); - if ((result != SL_RESULT_SUCCESS) || (devState->bqPlayerObject == NULL)) { - //RELEASE_LOG("create audio player is null or errored: %lx", result); - return ALC_FALSE; - } - - // realize the player - result = (*devState->bqPlayerObject)->Realize(devState->bqPlayerObject, SL_BOOLEAN_FALSE); - assert(SL_RESULT_SUCCESS == result); - - // get the play interface - result = (*devState->bqPlayerObject)->GetInterface(devState->bqPlayerObject, *pSL_IID_PLAY, &devState->bqPlayerPlay); - assert(SL_RESULT_SUCCESS == result); - - // get the buffer queue interface - result = (*devState->bqPlayerObject)->GetInterface(devState->bqPlayerObject, *pSL_IID_BUFFERQUEUE, - &devState->bqPlayerBufferQueue); - if ((result != SL_RESULT_SUCCESS) || (devState->bqPlayerBufferQueue == NULL)) { - //RELEASE_LOG("get the buffer queue interface is null or errored: %lx", result); - return ALC_FALSE; - } - - // register callback on the buffer queue - result = (*devState->bqPlayerBufferQueue)->RegisterCallback(devState->bqPlayerBufferQueue, opensles_callback, (void *) pDevice); - assert(SL_RESULT_SUCCESS == result); - - // playback_lock = createThreadLock(); - start_playback(pDevice); - - // set the player's state to playing - result = (*devState->bqPlayerPlay)->SetPlayState(devState->bqPlayerPlay, SL_PLAYSTATE_PLAYING); - assert(SL_RESULT_SUCCESS == result); - - // enqueue the first buffer to kick off the callbacks - result = (*devState->bqPlayerBufferQueue)->Enqueue(devState->bqPlayerBufferQueue, "\0", 1); - assert(SL_RESULT_SUCCESS == result); - - - SetDefaultWFXChannelOrder(pDevice); - devlist_add(pDevice); - - return ALC_TRUE; -} - - -static void opensles_stop_playback(ALCdevice *pDevice) -{ - LOGV("opensles_stop_playback device=%p", pDevice); - stop_playback(pDevice); -} - -static ALCboolean opensles_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - LOGV("opensles_open_capture device=%p, deviceName=%s", pDevice, deviceName); - return ALC_FALSE; -} - -static void opensles_close_capture(ALCdevice *pDevice) -{ - LOGV("opensles_closed_capture device=%p", pDevice); -} - -static void opensles_start_capture(ALCdevice *pDevice) -{ - LOGV("opensles_start_capture device=%p", pDevice); -} - -static void opensles_stop_capture(ALCdevice *pDevice) -{ - LOGV("opensles_stop_capture device=%p", pDevice); -} - -static void opensles_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - LOGV("opensles_capture_samples device=%p, pBuffer=%p, lSamples=%u", pDevice, pBuffer, lSamples); -} - -static ALCuint opensles_available_samples(ALCdevice *pDevice) -{ - LOGV("opensles_available_samples device=%p", pDevice); - return 0; -} - -// table of backend function pointers - -BackendFuncs opensles_funcs = { - opensles_open_playback, - opensles_close_playback, - opensles_reset_playback, - opensles_stop_playback, - opensles_open_capture, - opensles_close_capture, - opensles_start_capture, - opensles_stop_capture, - opensles_capture_samples, - opensles_available_samples -}; - -// global entry points called from XYZZY - - -static void suspend_device(ALCdevice *pDevice) { - SLresult result; - if (pDevice) { - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - if (devState->bqPlayerPlay) { - result = (*devState->bqPlayerPlay)->SetPlayState(devState->bqPlayerPlay, SL_PLAYSTATE_PAUSED); - if ((SL_RESULT_SUCCESS == result) && (devState->bqPlayerBufferQueue)) { - result = (*devState->bqPlayerBufferQueue)->Clear(devState->bqPlayerBufferQueue); - assert(SL_RESULT_SUCCESS == result); - } - } - stop_playback(pDevice); - } -} - -static void resume_device(ALCdevice *pDevice) { - SLresult result; - if (pDevice) { - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - if (devState->bqPlayerPlay) { - result = (*devState->bqPlayerPlay)->SetPlayState(devState->bqPlayerPlay, SL_PLAYSTATE_PLAYING); - // Pump some blank data into the buffer to stimulate the callback - if ((SL_RESULT_SUCCESS == result) && (devState->bqPlayerBufferQueue)) { - result = (*devState->bqPlayerBufferQueue)->Enqueue(devState->bqPlayerBufferQueue, "\0", 1); - assert(SL_RESULT_SUCCESS == result); - } - } - start_playback(pDevice); - } - } - -void alc_opensles_suspend() -{ - devlist_process(&suspend_device); -} - -void alc_opensles_resume() -{ - devlist_process(&resume_device); -} - -static void alc_opensles_set_java_vm(JavaVM *vm) -{ - // Called once and only once from JNI_OnLoad - javaVM = vm; - int i; - char *android_model; - char *low_buffer_models[] = { - "GT-I9300", - "GT-I9305", - "SHV-E210", - "SGH-T999", - "SGH-I747", - "SGH-N064", - "SC-06D", - "SGH-N035", - "SC-03E", - "SCH-R530", - "SCH-I535", - "SPH-L710", - "GT-I9308", - "SCH-I939", - "Kindle Fire", - NULL}; - - if(NULL != javaVM) - { - int android_os_version = alc_opensles_get_android_api(); - // If running on 4.1 (Jellybean) or later, use 8 buffers to avoid breakup/stuttering. - if(android_os_version >= 16) - { - premixCount = 5; - } - // Else, use 4 buffers to reduce latency - else - { - premixCount = 1; - } - android_model = alc_opensles_get_android_model(); - for (i = 0; low_buffer_models[i] != NULL; i++) { - if (strncmp(android_model, low_buffer_models[i], strlen(low_buffer_models[i])) == 0) { - LOGV("Using less buffering"); - defaultBufferSize = 1024; - bufferSize = 1024; - premixCount = 1; - break; - } - } - } -} - -void alc_opensles_init(BackendFuncs *func_list) -{ - LOGV("alc_opensles_init"); - - struct stat statinfo; - if (stat("/system/lib/libOpenSLES.so", &statinfo) != 0) { - return; - } - - *func_list = opensles_funcs; - - // We need the JavaVM for JNI so we can detect the OS version number at runtime. - // This is because we need to use different bufferCount values for Android 4.1 vs. pre-4.1. - // This must be set at constructor time before JNI_OnLoad is invoked. - apportableOpenALFuncs.alc_android_set_java_vm = alc_opensles_set_java_vm; -} - -void alc_opensles_deinit(void) -{ - LOGV("alc_opensles_deinit"); - - // destroy output mix object, and invalidate all associated interfaces - if (outputMixObject != NULL) { - (*outputMixObject)->Destroy(outputMixObject); - outputMixObject = NULL; - } - - // destroy engine object, and invalidate all associated interfaces - if (engineObject != NULL) { - (*engineObject)->Destroy(engineObject); - engineObject = NULL; - engineEngine = NULL; - } -} - -void alc_opensles_probe(int type) -{ - char *error; - struct stat statinfo; - if (stat("/system/lib/libOpenSLES.so", &statinfo) != 0) { - LOGV("alc_opensles_probe OpenSLES support not found."); - return; - } - - dlerror(); // Clear dl errors - void *dlHandle = dlopen("/system/lib/libOpenSLES.so", RTLD_NOW | RTLD_GLOBAL); - if (!dlHandle || (error = (typeof(error))dlerror()) != NULL) { - LOGV("OpenSLES could not be loaded."); - return; - } - -#define LOAD_SYM_POINTER(sym) \ - do { \ - p##sym = dlsym(dlHandle, #sym); \ - if((error=(typeof(error))dlerror()) != NULL) { \ - LOGV("alc_opensles_probe could not load %s, error: %s", #sym, error); \ - dlclose(dlHandle); \ - return; \ - } \ - } while(0) - - LOAD_SYM_POINTER(slCreateEngine); - LOAD_SYM_POINTER(SL_IID_ENGINE); - LOAD_SYM_POINTER(SL_IID_ANDROIDSIMPLEBUFFERQUEUE); - LOAD_SYM_POINTER(SL_IID_PLAY); - LOAD_SYM_POINTER(SL_IID_BUFFERQUEUE); - - apportableOpenALFuncs.alc_android_suspend = alc_opensles_suspend; - apportableOpenALFuncs.alc_android_resume = alc_opensles_resume; - - switch (type) { - case DEVICE_PROBE: - LOGV("alc_opensles_probe DEVICE_PROBE"); - AppendDeviceList(opensles_device); - break; - case ALL_DEVICE_PROBE: - LOGV("alc_opensles_probe ALL_DEVICE_PROBE"); - AppendAllDeviceList(opensles_device); - break; - default: - LOGV("alc_opensles_probe type=%d", type); - break; - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/oss.c b/internal/c/parts/audio/out/android/OpenAL/Alc/oss.c deleted file mode 100644 index ea18689d7..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/oss.c +++ /dev/null @@ -1,521 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include - -/* - * The OSS documentation talks about SOUND_MIXER_READ, but the header - * only contains MIXER_READ. Play safe. Same for WRITE. - */ -#ifndef SOUND_MIXER_READ -#define SOUND_MIXER_READ MIXER_READ -#endif -#ifndef SOUND_MIXER_WRITE -#define SOUND_MIXER_WRITE MIXER_WRITE -#endif - -static const ALCchar oss_device[] = "OSS Default"; - -typedef struct { - int fd; - volatile int killNow; - ALvoid *thread; - - ALubyte *mix_data; - int data_size; - - RingBuffer *ring; - int doCapture; -} oss_data; - - -static int log2i(ALCuint x) -{ - int y = 0; - while (x > 1) - { - x >>= 1; - y++; - } - return y; -} - - -static ALuint OSSProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - oss_data *data = (oss_data*)pDevice->ExtraData; - ALint frameSize; - ssize_t wrote; - - SetRTPriority(); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(!data->killNow && pDevice->Connected) - { - ALint len = data->data_size; - ALubyte *WritePtr = data->mix_data; - - aluMixData(pDevice, WritePtr, len/frameSize); - while(len > 0 && !data->killNow) - { - wrote = write(data->fd, WritePtr, len); - if(wrote < 0) - { - if(errno != EAGAIN && errno != EWOULDBLOCK && errno != EINTR) - { - AL_PRINT("write failed: %s\n", strerror(errno)); - aluHandleDisconnect(pDevice); - break; - } - - Sleep(1); - continue; - } - - len -= wrote; - WritePtr += wrote; - } - } - - return 0; -} - -static ALuint OSSCaptureProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - oss_data *data = (oss_data*)pDevice->ExtraData; - int frameSize; - int amt; - - SetRTPriority(); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(!data->killNow) - { - amt = read(data->fd, data->mix_data, data->data_size); - if(amt < 0) - { - AL_PRINT("read failed: %s\n", strerror(errno)); - aluHandleDisconnect(pDevice); - break; - } - if(amt == 0) - { - Sleep(1); - continue; - } - if(data->doCapture) - WriteRingBuffer(data->ring, data->mix_data, amt/frameSize); - } - - return 0; -} - -static ALCboolean oss_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - char driver[64]; - oss_data *data; - - strncpy(driver, GetConfigValue("oss", "device", "/dev/dsp"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - if(!deviceName) - deviceName = oss_device; - else if(strcmp(deviceName, oss_device) != 0) - return ALC_FALSE; - - data = (oss_data*)calloc(1, sizeof(oss_data)); - data->killNow = 0; - - data->fd = open(driver, O_WRONLY); - if(data->fd == -1) - { - free(data); - AL_PRINT("Could not open %s: %s\n", driver, strerror(errno)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void oss_close_playback(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - - close(data->fd); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean oss_reset_playback(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - int numFragmentsLogSize; - int log2FragmentSize; - unsigned int periods; - audio_buf_info info; - ALuint frameSize; - int numChannels; - int ossFormat; - int ossSpeed; - char *err; - - switch(device->FmtType) - { - case DevFmtByte: - ossFormat = AFMT_S8; - break; - case DevFmtUByte: - ossFormat = AFMT_U8; - break; - case DevFmtUShort: - case DevFmtFloat: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - ossFormat = AFMT_S16_NE; - break; - } - - periods = device->NumUpdates; - numChannels = ChannelsFromDevFmt(device->FmtChans); - frameSize = numChannels * BytesFromDevFmt(device->FmtType); - - ossSpeed = device->Frequency; - log2FragmentSize = log2i(device->UpdateSize * frameSize); - - /* according to the OSS spec, 16 bytes are the minimum */ - if (log2FragmentSize < 4) - log2FragmentSize = 4; - /* Subtract one period since the temp mixing buffer counts as one. Still - * need at least two on the card, though. */ - if(periods > 2) periods--; - numFragmentsLogSize = (periods << 16) | log2FragmentSize; - -#define CHECKERR(func) if((func) < 0) { \ - err = #func; \ - goto err; \ -} - /* Don't fail if SETFRAGMENT fails. We can handle just about anything - * that's reported back via GETOSPACE */ - ioctl(data->fd, SNDCTL_DSP_SETFRAGMENT, &numFragmentsLogSize); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SETFMT, &ossFormat)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_CHANNELS, &numChannels)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SPEED, &ossSpeed)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_GETOSPACE, &info)); - if(0) - { - err: - AL_PRINT("%s failed: %s\n", err, strerror(errno)); - return ALC_FALSE; - } -#undef CHECKERR - - if((int)ChannelsFromDevFmt(device->FmtChans) != numChannels) - { - AL_PRINT("Could not set %d channels, got %d instead\n", ChannelsFromDevFmt(device->FmtChans), numChannels); - return ALC_FALSE; - } - - if(!((ossFormat == AFMT_S8 && device->FmtType == DevFmtByte) || - (ossFormat == AFMT_U8 && device->FmtType == DevFmtUByte) || - (ossFormat == AFMT_S16_NE && device->FmtType == DevFmtShort))) - { - AL_PRINT("Could not set %#x format type, got OSS format %#x\n", device->FmtType, ossFormat); - return ALC_FALSE; - } - - device->Frequency = ossSpeed; - device->UpdateSize = info.fragsize / frameSize; - device->NumUpdates = info.fragments + 1; - - data->data_size = device->UpdateSize * frameSize; - data->mix_data = calloc(1, data->data_size); - - SetDefaultChannelOrder(device); - - data->thread = StartThread(OSSProc, device); - if(data->thread == NULL) - { - free(data->mix_data); - data->mix_data = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void oss_stop_playback(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - if(ioctl(data->fd, SNDCTL_DSP_RESET) != 0) - AL_PRINT("Error resetting device: %s\n", strerror(errno)); - - free(data->mix_data); - data->mix_data = NULL; -} - - -static ALCboolean oss_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - int numFragmentsLogSize; - int log2FragmentSize; - unsigned int periods; - audio_buf_info info; - ALuint frameSize; - int numChannels; - char driver[64]; - oss_data *data; - int ossFormat; - int ossSpeed; - char *err; - - strncpy(driver, GetConfigValue("oss", "capture", "/dev/dsp"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - if(!deviceName) - deviceName = oss_device; - else if(strcmp(deviceName, oss_device) != 0) - return ALC_FALSE; - - data = (oss_data*)calloc(1, sizeof(oss_data)); - data->killNow = 0; - - data->fd = open(driver, O_RDONLY); - if(data->fd == -1) - { - free(data); - AL_PRINT("Could not open %s: %s\n", driver, strerror(errno)); - return ALC_FALSE; - } - - switch(device->FmtType) - { - case DevFmtByte: - ossFormat = AFMT_S8; - break; - case DevFmtUByte: - ossFormat = AFMT_U8; - break; - case DevFmtShort: - ossFormat = AFMT_S16_NE; - break; - case DevFmtUShort: - case DevFmtFloat: - free(data); - AL_PRINT("Format type %#x capture not supported on OSS\n", device->FmtType); - return ALC_FALSE; - } - - periods = 4; - numChannels = ChannelsFromDevFmt(device->FmtChans); - frameSize = numChannels * BytesFromDevFmt(device->FmtType); - ossSpeed = device->Frequency; - log2FragmentSize = log2i(device->UpdateSize * device->NumUpdates * - frameSize / periods); - - /* according to the OSS spec, 16 bytes are the minimum */ - if (log2FragmentSize < 4) - log2FragmentSize = 4; - numFragmentsLogSize = (periods << 16) | log2FragmentSize; - -#define CHECKERR(func) if((func) < 0) { \ - err = #func; \ - goto err; \ -} - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SETFRAGMENT, &numFragmentsLogSize)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SETFMT, &ossFormat)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_CHANNELS, &numChannels)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SPEED, &ossSpeed)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_GETISPACE, &info)); - if(0) - { - err: - AL_PRINT("%s failed: %s\n", err, strerror(errno)); - close(data->fd); - free(data); - return ALC_FALSE; - } -#undef CHECKERR - - if((int)ChannelsFromDevFmt(device->FmtChans) != numChannels) - { - AL_PRINT("Could not set %d channels, got %d instead\n", ChannelsFromDevFmt(device->FmtChans), numChannels); - close(data->fd); - free(data); - return ALC_FALSE; - } - - if(!((ossFormat == AFMT_S8 && device->FmtType == DevFmtByte) || - (ossFormat == AFMT_U8 && device->FmtType == DevFmtUByte) || - (ossFormat == AFMT_S16_NE && device->FmtType == DevFmtShort))) - { - AL_PRINT("Could not set %#x format type, got OSS format %#x\n", device->FmtType, ossFormat); - close(data->fd); - free(data); - return ALC_FALSE; - } - - data->ring = CreateRingBuffer(frameSize, device->UpdateSize * device->NumUpdates); - if(!data->ring) - { - AL_PRINT("ring buffer create failed\n"); - close(data->fd); - free(data); - return ALC_FALSE; - } - - data->data_size = info.fragsize; - data->mix_data = calloc(1, data->data_size); - - device->ExtraData = data; - data->thread = StartThread(OSSCaptureProc, device); - if(data->thread == NULL) - { - device->ExtraData = NULL; - free(data->mix_data); - free(data); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - return ALC_TRUE; -} - -static void oss_close_capture(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - data->killNow = 1; - StopThread(data->thread); - - close(data->fd); - - DestroyRingBuffer(data->ring); - - free(data->mix_data); - free(data); - device->ExtraData = NULL; -} - -static void oss_start_capture(ALCdevice *pDevice) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - data->doCapture = 1; -} - -static void oss_stop_capture(ALCdevice *pDevice) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - data->doCapture = 0; -} - -static void oss_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - if(lSamples <= (ALCuint)RingBufferSize(data->ring)) - ReadRingBuffer(data->ring, pBuffer, lSamples); - else - alcSetError(pDevice, ALC_INVALID_VALUE); -} - -static ALCuint oss_available_samples(ALCdevice *pDevice) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - return RingBufferSize(data->ring); -} - - -BackendFuncs oss_funcs = { - oss_open_playback, - oss_close_playback, - oss_reset_playback, - oss_stop_playback, - oss_open_capture, - oss_close_capture, - oss_start_capture, - oss_stop_capture, - oss_capture_samples, - oss_available_samples -}; - -void alc_oss_init(BackendFuncs *func_list) -{ - *func_list = oss_funcs; -} - -void alc_oss_deinit(void) -{ -} - -void alc_oss_probe(int type) -{ - if(type == DEVICE_PROBE) - { -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("oss", "device", "/dev/dsp"), &buf) == 0) -#endif - AppendDeviceList(oss_device); - } - else if(type == ALL_DEVICE_PROBE) - { -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("oss", "device", "/dev/dsp"), &buf) == 0) -#endif - AppendAllDeviceList(oss_device); - } - else if(type == CAPTURE_DEVICE_PROBE) - { -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("oss", "capture", "/dev/dsp"), &buf) == 0) -#endif - AppendCaptureDeviceList(oss_device); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/panning.c b/internal/c/parts/audio/out/android/OpenAL/Alc/panning.c deleted file mode 100644 index 5e33d9f5e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/panning.c +++ /dev/null @@ -1,372 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2010 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alu.h" - -static void SetSpeakerArrangement(const char *name, ALfp SpeakerAngle[MAXCHANNELS], - Channel Speaker2Chan[MAXCHANNELS], ALint chans) -{ - char layout_str[256]; - char *confkey, *next; - char *sep, *end; - Channel val; - int i; - - if(!ConfigValueExists(NULL, name)) - name = "layout"; - - strncpy(layout_str, GetConfigValue(NULL, name, ""), sizeof(layout_str)); - layout_str[sizeof(layout_str)-1] = 0; - - if(!layout_str[0]) - return; - - next = confkey = layout_str; - while(next && *next) - { - confkey = next; - next = strchr(confkey, ','); - if(next) - { - *next = 0; - do { - next++; - } while(isspace(*next) || *next == ','); - } - - sep = strchr(confkey, '='); - if(!sep || confkey == sep) - continue; - - end = sep - 1; - while(isspace(*end) && end != confkey) - end--; - *(++end) = 0; - - if(strcmp(confkey, "fl") == 0 || strcmp(confkey, "front-left") == 0) - val = FRONT_LEFT; - else if(strcmp(confkey, "fr") == 0 || strcmp(confkey, "front-right") == 0) - val = FRONT_RIGHT; - else if(strcmp(confkey, "fc") == 0 || strcmp(confkey, "front-center") == 0) - val = FRONT_CENTER; - else if(strcmp(confkey, "bl") == 0 || strcmp(confkey, "back-left") == 0) - val = BACK_LEFT; - else if(strcmp(confkey, "br") == 0 || strcmp(confkey, "back-right") == 0) - val = BACK_RIGHT; - else if(strcmp(confkey, "bc") == 0 || strcmp(confkey, "back-center") == 0) - val = BACK_CENTER; - else if(strcmp(confkey, "sl") == 0 || strcmp(confkey, "side-left") == 0) - val = SIDE_LEFT; - else if(strcmp(confkey, "sr") == 0 || strcmp(confkey, "side-right") == 0) - val = SIDE_RIGHT; - else - { - AL_PRINT("Unknown speaker for %s: \"%s\"\n", name, confkey); - continue; - } - - *(sep++) = 0; - while(isspace(*sep)) - sep++; - - for(i = 0;i < chans;i++) - { - if(Speaker2Chan[i] == val) - { - long angle = strtol(sep, NULL, 10); - if(angle >= -180 && angle <= 180) - SpeakerAngle[i] = ALfpMult(int2ALfp(angle), float2ALfp(M_PI/180.0f)); - else - AL_PRINT("Invalid angle for speaker \"%s\": %ld\n", confkey, angle); - break; - } - } - } - - for(i = 0;i < chans;i++) - { - int min = i; - int i2; - - for(i2 = i+1;i2 < chans;i2++) - { - if(SpeakerAngle[i2] < SpeakerAngle[min]) - min = i2; - } - - if(min != i) - { - ALfp tmpf; - Channel tmpc; - - tmpf = SpeakerAngle[i]; - SpeakerAngle[i] = SpeakerAngle[min]; - SpeakerAngle[min] = tmpf; - - tmpc = Speaker2Chan[i]; - Speaker2Chan[i] = Speaker2Chan[min]; - Speaker2Chan[min] = tmpc; - } - } -} - -static ALfp aluLUTpos2Angle(ALint pos) -{ - if(pos < QUADRANT_NUM) - return aluAtan(ALfpDiv(int2ALfp(pos), int2ALfp(QUADRANT_NUM - pos))); - if(pos < 2 * QUADRANT_NUM) - return (float2ALfp(M_PI_2) + aluAtan(ALfpDiv(int2ALfp(pos - QUADRANT_NUM),int2ALfp(2 * QUADRANT_NUM - pos)))); - if(pos < 3 * QUADRANT_NUM) - return (aluAtan(ALfpDiv(int2ALfp(pos - 2 * QUADRANT_NUM), int2ALfp(3 * QUADRANT_NUM - pos))) - float2ALfp(M_PI)); - return (aluAtan(ALfpDiv(int2ALfp(pos - 3 * QUADRANT_NUM), int2ALfp(4 * QUADRANT_NUM - pos))) - float2ALfp(M_PI)); -} - -ALint aluCart2LUTpos(ALfp re, ALfp im) -{ - ALint pos = 0; - ALfp denom = (aluFabs(re) + aluFabs(im)); - if(denom > int2ALfp(0)) - pos = (ALint)ALfp2int(ALfpDiv(ALfpMult(int2ALfp(QUADRANT_NUM),aluFabs(im)), (denom + float2ALfp(0.5)))); - - if(re < int2ALfp(0)) - pos = 2 * QUADRANT_NUM - pos; - if(im < int2ALfp(0)) - pos = LUT_NUM - pos; - return pos%LUT_NUM; -} - -ALvoid aluInitPanning(ALCdevice *Device) -{ - ALfp SpeakerAngle[MAXCHANNELS]; - ALfp (*Matrix)[MAXCHANNELS]; - Channel *Speaker2Chan; - ALfp Alpha, Theta; - ALfp *PanningLUT; - ALint pos, offset; - ALuint s, s2; - - for(s = 0;s < MAXCHANNELS;s++) - { - for(s2 = 0;s2 < MAXCHANNELS;s2++) - Device->ChannelMatrix[s][s2] = ((s==s2) ? int2ALfp(1) : int2ALfp(0)); - } - - Speaker2Chan = Device->Speaker2Chan; - Matrix = Device->ChannelMatrix; - switch(Device->FmtChans) - { - case DevFmtMono: - Matrix[FRONT_LEFT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[FRONT_RIGHT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_LEFT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_RIGHT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][FRONT_CENTER] = int2ALfp(1); - Device->NumChan = 1; - Speaker2Chan[0] = FRONT_CENTER; - SpeakerAngle[0] = int2ALfp(0); - break; - - case DevFmtStereo: -#ifdef APPORTABLE_OPTIMIZED_OUT - // Leave as identity matrix if Apportable-optimized - Matrix[FRONT_CENTER][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[FRONT_CENTER][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][FRONT_LEFT] = int2ALfp(1); - Matrix[SIDE_RIGHT][FRONT_RIGHT] = int2ALfp(1); - Matrix[BACK_LEFT][FRONT_LEFT] = int2ALfp(1); - Matrix[BACK_RIGHT][FRONT_RIGHT] = int2ALfp(1); - Matrix[BACK_CENTER][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); -#endif - Device->NumChan = 2; - Speaker2Chan[0] = FRONT_LEFT; - Speaker2Chan[1] = FRONT_RIGHT; - SpeakerAngle[0] = float2ALfp(-90.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( 90.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_STEREO", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - -#ifdef STEREO_ONLY - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtQuad: - Matrix[FRONT_CENTER][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[FRONT_CENTER][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 4; - Speaker2Chan[0] = BACK_LEFT; - Speaker2Chan[1] = FRONT_LEFT; - Speaker2Chan[2] = FRONT_RIGHT; - Speaker2Chan[3] = BACK_RIGHT; - SpeakerAngle[0] = float2ALfp(-135.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( -45.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( 45.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 135.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_QUAD", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - - case DevFmtX51: - Matrix[SIDE_LEFT][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 5; - Speaker2Chan[0] = BACK_LEFT; - Speaker2Chan[1] = FRONT_LEFT; - Speaker2Chan[2] = FRONT_CENTER; - Speaker2Chan[3] = FRONT_RIGHT; - Speaker2Chan[4] = BACK_RIGHT; - SpeakerAngle[0] = float2ALfp(-110.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( -30.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( 0.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 30.0f * M_PI/180.0f); - SpeakerAngle[4] = float2ALfp( 110.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_51CHN", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - - case DevFmtX61: - Matrix[BACK_LEFT][BACK_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_LEFT][SIDE_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_RIGHT][BACK_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_RIGHT][SIDE_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 6; - Speaker2Chan[0] = SIDE_LEFT; - Speaker2Chan[1] = FRONT_LEFT; - Speaker2Chan[2] = FRONT_CENTER; - Speaker2Chan[3] = FRONT_RIGHT; - Speaker2Chan[4] = SIDE_RIGHT; - Speaker2Chan[5] = BACK_CENTER; - SpeakerAngle[0] = float2ALfp(-90.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp(-30.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( 0.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 30.0f * M_PI/180.0f); - SpeakerAngle[4] = float2ALfp( 90.0f * M_PI/180.0f); - SpeakerAngle[5] = float2ALfp(180.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_61CHN", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - - case DevFmtX71: - Matrix[BACK_CENTER][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 7; - Speaker2Chan[0] = BACK_LEFT; - Speaker2Chan[1] = SIDE_LEFT; - Speaker2Chan[2] = FRONT_LEFT; - Speaker2Chan[3] = FRONT_CENTER; - Speaker2Chan[4] = FRONT_RIGHT; - Speaker2Chan[5] = SIDE_RIGHT; - Speaker2Chan[6] = BACK_RIGHT; - SpeakerAngle[0] = float2ALfp(-150.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( -90.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( -30.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 0.0f * M_PI/180.0f); - SpeakerAngle[4] = float2ALfp( 30.0f * M_PI/180.0f); - SpeakerAngle[5] = float2ALfp( 90.0f * M_PI/180.0f); - SpeakerAngle[6] = float2ALfp( 150.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_71CHN", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; -#endif - } - - if(GetConfigValueBool(NULL, "scalemix", 0)) - { - ALfp maxout = int2ALfp(1);; - for(s = 0;s < MAXCHANNELS;s++) - { - ALfp out = int2ALfp(0); - for(s2 = 0;s2 < MAXCHANNELS;s2++) - out = (out + Device->ChannelMatrix[s2][s]); - maxout = __max(maxout, out); - } - - maxout = ALfpDiv(int2ALfp(1),maxout); - for(s = 0;s < MAXCHANNELS;s++) - { - for(s2 = 0;s2 < MAXCHANNELS;s2++) - Device->ChannelMatrix[s2][s] = ALfpMult(Device->ChannelMatrix[s2][s],maxout); - } - } - - PanningLUT = Device->PanningLUT; - for(pos = 0; pos < LUT_NUM; pos++) - { - /* clear all values */ - offset = MAXCHANNELS * pos; - for(s = 0; s < MAXCHANNELS; s++) - PanningLUT[offset+s] = int2ALfp(0); - - if(Device->NumChan == 1) - { - PanningLUT[offset + Speaker2Chan[0]] = int2ALfp(1); - continue; - } - - /* source angle */ - Theta = aluLUTpos2Angle(pos); - - /* set panning values */ - for(s = 0; s < Device->NumChan - 1; s++) - { - if(Theta >= SpeakerAngle[s] && Theta < SpeakerAngle[s+1]) - { - /* source between speaker s and speaker s+1 */ - Alpha = ALfpDiv(ALfpMult(float2ALfp(M_PI_2), (Theta-SpeakerAngle[s])), - (SpeakerAngle[s+1]-SpeakerAngle[s])); - PanningLUT[offset + Speaker2Chan[s]] = __cos(Alpha); - PanningLUT[offset + Speaker2Chan[s+1]] = __sin(Alpha); - break; - } - } - if(s == Device->NumChan - 1) - { - /* source between last and first speaker */ - if(Theta < SpeakerAngle[0]) - Theta = (Theta + float2ALfp(2.0f * M_PI)); - Alpha = ALfpDiv(ALfpMult(float2ALfp(M_PI_2), (Theta-SpeakerAngle[s])), - (float2ALfp(2.0f * M_PI) + SpeakerAngle[0]-SpeakerAngle[s])); - PanningLUT[offset + Speaker2Chan[s]] = __cos(Alpha); - PanningLUT[offset + Speaker2Chan[0]] = __sin(Alpha); - } - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/portaudio.c b/internal/c/parts/audio/out/android/OpenAL/Alc/portaudio.c deleted file mode 100644 index 77c7236fa..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/portaudio.c +++ /dev/null @@ -1,442 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#ifdef HAVE_DLFCN_H -#include -#endif - -#include - -static void *pa_handle; -#define MAKE_FUNC(x) static typeof(x) * p##x -MAKE_FUNC(Pa_Initialize); -MAKE_FUNC(Pa_Terminate); -MAKE_FUNC(Pa_GetErrorText); -MAKE_FUNC(Pa_StartStream); -MAKE_FUNC(Pa_StopStream); -MAKE_FUNC(Pa_OpenStream); -MAKE_FUNC(Pa_CloseStream); -MAKE_FUNC(Pa_GetDefaultOutputDevice); -MAKE_FUNC(Pa_GetStreamInfo); -#undef MAKE_FUNC - - -static const ALCchar pa_device[] = "PortAudio Default"; - - -void *pa_load(void) -{ - if(!pa_handle) - { - PaError err; - -#ifdef _WIN32 - pa_handle = LoadLibrary("portaudio.dll"); -#define LOAD_FUNC(x) do { \ - p##x = (typeof(p##x))GetProcAddress(pa_handle, #x); \ - if(!(p##x)) { \ - AL_PRINT("Could not load %s from portaudio.dll\n", #x); \ - FreeLibrary(pa_handle); \ - pa_handle = NULL; \ - return NULL; \ - } \ -} while(0) - -#elif defined(HAVE_DLFCN_H) - - const char *str; -#if defined(__APPLE__) && defined(__MACH__) -# define PALIB "libportaudio.2.dylib" -#else -# define PALIB "libportaudio.so.2" -#endif - pa_handle = dlopen(PALIB, RTLD_NOW); - dlerror(); - -#define LOAD_FUNC(f) do { \ - p##f = (typeof(f)*)dlsym(pa_handle, #f); \ - if((str=dlerror()) != NULL) \ - { \ - dlclose(pa_handle); \ - pa_handle = NULL; \ - AL_PRINT("Could not load %s from "PALIB": %s\n", #f, str); \ - return NULL; \ - } \ -} while(0) - -#else - pa_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(f) p##f = f -#endif - - if(!pa_handle) - return NULL; - -LOAD_FUNC(Pa_Initialize); -LOAD_FUNC(Pa_Terminate); -LOAD_FUNC(Pa_GetErrorText); -LOAD_FUNC(Pa_StartStream); -LOAD_FUNC(Pa_StopStream); -LOAD_FUNC(Pa_OpenStream); -LOAD_FUNC(Pa_CloseStream); -LOAD_FUNC(Pa_GetDefaultOutputDevice); -LOAD_FUNC(Pa_GetStreamInfo); - -#undef LOAD_FUNC - - if((err=pPa_Initialize()) != paNoError) - { - AL_PRINT("Pa_Initialize() returned an error: %s\n", pPa_GetErrorText(err)); -#ifdef _WIN32 - FreeLibrary(pa_handle); -#elif defined(HAVE_DLFCN_H) - dlclose(pa_handle); -#endif - pa_handle = NULL; - return NULL; - } - } - return pa_handle; -} - - -typedef struct { - PaStream *stream; - ALuint update_size; - - RingBuffer *ring; -} pa_data; - - -static int pa_callback(const void *inputBuffer, void *outputBuffer, - unsigned long framesPerBuffer, const PaStreamCallbackTimeInfo *timeInfo, - const PaStreamCallbackFlags statusFlags, void *userData) -{ - ALCdevice *device = (ALCdevice*)userData; - - (void)inputBuffer; - (void)timeInfo; - (void)statusFlags; - - aluMixData(device, outputBuffer, framesPerBuffer); - return 0; -} - -static int pa_capture_cb(const void *inputBuffer, void *outputBuffer, - unsigned long framesPerBuffer, const PaStreamCallbackTimeInfo *timeInfo, - const PaStreamCallbackFlags statusFlags, void *userData) -{ - ALCdevice *device = (ALCdevice*)userData; - pa_data *data = (pa_data*)device->ExtraData; - - (void)outputBuffer; - (void)timeInfo; - (void)statusFlags; - - WriteRingBuffer(data->ring, inputBuffer, framesPerBuffer); - return 0; -} - - -static ALCboolean pa_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - const PaStreamInfo *streamInfo; - PaStreamParameters outParams; - pa_data *data; - PaError err; - - if(!deviceName) - deviceName = pa_device; - else if(strcmp(deviceName, pa_device) != 0) - return ALC_FALSE; - - if(!pa_load()) - return ALC_FALSE; - - data = (pa_data*)calloc(1, sizeof(pa_data)); - data->update_size = device->UpdateSize; - - device->ExtraData = data; - - outParams.device = GetConfigValueInt("port", "device", -1); - if(outParams.device < 0) - outParams.device = pPa_GetDefaultOutputDevice(); - outParams.suggestedLatency = (device->UpdateSize*device->NumUpdates) / - (float)device->Frequency; - outParams.hostApiSpecificStreamInfo = NULL; - - switch(device->FmtType) - { - case DevFmtByte: - outParams.sampleFormat = paInt8; - break; - case DevFmtUByte: - outParams.sampleFormat = paUInt8; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - outParams.sampleFormat = paInt16; - break; - case DevFmtFloat: - outParams.sampleFormat = paFloat32; - break; - } - outParams.channelCount = ChannelsFromDevFmt(device->FmtChans); - - SetDefaultChannelOrder(device); - - err = pPa_OpenStream(&data->stream, NULL, &outParams, device->Frequency, - device->UpdateSize, paNoFlag, pa_callback, device); - if(err != paNoError) - { - AL_PRINT("Pa_OpenStream() returned an error: %s\n", pPa_GetErrorText(err)); - device->ExtraData = NULL; - free(data); - return ALC_FALSE; - } - streamInfo = pPa_GetStreamInfo(data->stream); - - device->szDeviceName = strdup(deviceName); - device->Frequency = streamInfo->sampleRate; - - return ALC_TRUE; -} - -static void pa_close_playback(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_CloseStream(data->stream); - if(err != paNoError) - AL_PRINT("Error closing stream: %s\n", pPa_GetErrorText(err)); - - free(data); - device->ExtraData = NULL; -} - -static ALCboolean pa_reset_playback(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - const PaStreamInfo *streamInfo; - PaError err; - - streamInfo = pPa_GetStreamInfo(data->stream); - device->Frequency = streamInfo->sampleRate; - device->UpdateSize = data->update_size; - - err = pPa_StartStream(data->stream); - if(err != paNoError) - { - AL_PRINT("Pa_StartStream() returned an error: %s\n", pPa_GetErrorText(err)); - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void pa_stop_playback(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_StopStream(data->stream); - if(err != paNoError) - AL_PRINT("Error stopping stream: %s\n", pPa_GetErrorText(err)); -} - - -static ALCboolean pa_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - PaStreamParameters inParams; - ALuint frame_size; - pa_data *data; - PaError err; - - if(!deviceName) - deviceName = pa_device; - else if(strcmp(deviceName, pa_device) != 0) - return ALC_FALSE; - - if(!pa_load()) - return ALC_FALSE; - - data = (pa_data*)calloc(1, sizeof(pa_data)); - if(data == NULL) - { - alcSetError(device, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - - frame_size = FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - data->ring = CreateRingBuffer(frame_size, device->UpdateSize*device->NumUpdates); - if(data->ring == NULL) - { - alcSetError(device, ALC_OUT_OF_MEMORY); - goto error; - } - - inParams.device = GetConfigValueInt("port", "capture", -1); - if(inParams.device < 0) - inParams.device = pPa_GetDefaultOutputDevice(); - inParams.suggestedLatency = 0.0f; - inParams.hostApiSpecificStreamInfo = NULL; - - switch(device->FmtType) - { - case DevFmtByte: - inParams.sampleFormat = paInt8; - break; - case DevFmtUByte: - inParams.sampleFormat = paUInt8; - break; - case DevFmtShort: - inParams.sampleFormat = paInt16; - break; - case DevFmtFloat: - inParams.sampleFormat = paFloat32; - break; - case DevFmtUShort: - AL_PRINT("Unsigned short not supported\n"); - goto error; - } - inParams.channelCount = ChannelsFromDevFmt(device->FmtChans); - - err = pPa_OpenStream(&data->stream, &inParams, NULL, device->Frequency, - paFramesPerBufferUnspecified, paNoFlag, pa_capture_cb, device); - if(err != paNoError) - { - AL_PRINT("Pa_OpenStream() returned an error: %s\n", pPa_GetErrorText(err)); - goto error; - } - - device->szDeviceName = strdup(deviceName); - - device->ExtraData = data; - return ALC_TRUE; - -error: - DestroyRingBuffer(data->ring); - free(data); - return ALC_FALSE; -} - -static void pa_close_capture(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_CloseStream(data->stream); - if(err != paNoError) - AL_PRINT("Error closing stream: %s\n", pPa_GetErrorText(err)); - - free(data); - device->ExtraData = NULL; -} - -static void pa_start_capture(ALCdevice *device) -{ - pa_data *data = device->ExtraData; - PaError err; - - err = pPa_StartStream(data->stream); - if(err != paNoError) - AL_PRINT("Error starting stream: %s\n", pPa_GetErrorText(err)); -} - -static void pa_stop_capture(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_StopStream(data->stream); - if(err != paNoError) - AL_PRINT("Error stopping stream: %s\n", pPa_GetErrorText(err)); -} - -static void pa_capture_samples(ALCdevice *device, ALCvoid *buffer, ALCuint samples) -{ - pa_data *data = device->ExtraData; - if(samples <= (ALCuint)RingBufferSize(data->ring)) - ReadRingBuffer(data->ring, buffer, samples); - else - alcSetError(device, ALC_INVALID_VALUE); -} - -static ALCuint pa_available_samples(ALCdevice *device) -{ - pa_data *data = device->ExtraData; - return RingBufferSize(data->ring); -} - - -static const BackendFuncs pa_funcs = { - pa_open_playback, - pa_close_playback, - pa_reset_playback, - pa_stop_playback, - pa_open_capture, - pa_close_capture, - pa_start_capture, - pa_stop_capture, - pa_capture_samples, - pa_available_samples -}; - -void alc_pa_init(BackendFuncs *func_list) -{ - *func_list = pa_funcs; -} - -void alc_pa_deinit(void) -{ - if(pa_handle) - { - pPa_Terminate(); -#ifdef _WIN32 - FreeLibrary(pa_handle); -#elif defined(HAVE_DLFCN_H) - dlclose(pa_handle); -#endif - pa_handle = NULL; - } -} - -void alc_pa_probe(int type) -{ - if(!pa_load()) return; - - if(type == DEVICE_PROBE) - AppendDeviceList(pa_device); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(pa_device); - else if(type == CAPTURE_DEVICE_PROBE) - AppendCaptureDeviceList(pa_device); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/pulseaudio.c b/internal/c/parts/audio/out/android/OpenAL/Alc/pulseaudio.c deleted file mode 100644 index 348f2d533..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/pulseaudio.c +++ /dev/null @@ -1,1358 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2009 by Konstantinos Natsakis - * Copyright (C) 2010 by Chris Robinson - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include "alMain.h" -#ifdef HAVE_DLFCN_H -#include -#endif - -#include - -#if PA_API_VERSION == 11 -#define PA_STREAM_ADJUST_LATENCY 0x2000U -#define PA_STREAM_EARLY_REQUESTS 0x4000U -static __inline int PA_STREAM_IS_GOOD(pa_stream_state_t x) -{ - return (x == PA_STREAM_CREATING || x == PA_STREAM_READY); -} -static __inline int PA_CONTEXT_IS_GOOD(pa_context_state_t x) -{ - return (x == PA_CONTEXT_CONNECTING || x == PA_CONTEXT_AUTHORIZING || - x == PA_CONTEXT_SETTING_NAME || x == PA_CONTEXT_READY); -} -#define PA_STREAM_IS_GOOD PA_STREAM_IS_GOOD -#define PA_CONTEXT_IS_GOOD PA_CONTEXT_IS_GOOD -#elif PA_API_VERSION != 12 -#error Invalid PulseAudio API version -#endif - -#ifndef PA_CHECK_VERSION -#define PA_CHECK_VERSION(major,minor,micro) \ - ((PA_MAJOR > (major)) || \ - (PA_MAJOR == (major) && PA_MINOR > (minor)) || \ - (PA_MAJOR == (major) && PA_MINOR == (minor) && PA_MICRO >= (micro))) -#endif - -static void *pa_handle; -#define MAKE_FUNC(x) static typeof(x) * p##x -MAKE_FUNC(pa_context_unref); -MAKE_FUNC(pa_sample_spec_valid); -MAKE_FUNC(pa_stream_drop); -MAKE_FUNC(pa_strerror); -MAKE_FUNC(pa_context_get_state); -MAKE_FUNC(pa_stream_get_state); -MAKE_FUNC(pa_threaded_mainloop_signal); -MAKE_FUNC(pa_stream_peek); -MAKE_FUNC(pa_threaded_mainloop_wait); -MAKE_FUNC(pa_threaded_mainloop_unlock); -MAKE_FUNC(pa_threaded_mainloop_in_thread); -MAKE_FUNC(pa_context_new); -MAKE_FUNC(pa_threaded_mainloop_stop); -MAKE_FUNC(pa_context_disconnect); -MAKE_FUNC(pa_threaded_mainloop_start); -MAKE_FUNC(pa_threaded_mainloop_get_api); -MAKE_FUNC(pa_context_set_state_callback); -MAKE_FUNC(pa_stream_write); -MAKE_FUNC(pa_xfree); -MAKE_FUNC(pa_stream_connect_record); -MAKE_FUNC(pa_stream_connect_playback); -MAKE_FUNC(pa_stream_readable_size); -MAKE_FUNC(pa_stream_writable_size); -MAKE_FUNC(pa_stream_cork); -MAKE_FUNC(pa_stream_is_suspended); -MAKE_FUNC(pa_stream_get_device_name); -MAKE_FUNC(pa_path_get_filename); -MAKE_FUNC(pa_get_binary_name); -MAKE_FUNC(pa_threaded_mainloop_free); -MAKE_FUNC(pa_context_errno); -MAKE_FUNC(pa_xmalloc); -MAKE_FUNC(pa_stream_unref); -MAKE_FUNC(pa_threaded_mainloop_accept); -MAKE_FUNC(pa_stream_set_write_callback); -MAKE_FUNC(pa_threaded_mainloop_new); -MAKE_FUNC(pa_context_connect); -MAKE_FUNC(pa_stream_set_buffer_attr); -MAKE_FUNC(pa_stream_get_buffer_attr); -MAKE_FUNC(pa_stream_get_sample_spec); -MAKE_FUNC(pa_stream_get_time); -MAKE_FUNC(pa_stream_set_read_callback); -MAKE_FUNC(pa_stream_set_state_callback); -MAKE_FUNC(pa_stream_set_moved_callback); -MAKE_FUNC(pa_stream_set_underflow_callback); -MAKE_FUNC(pa_stream_new); -MAKE_FUNC(pa_stream_disconnect); -MAKE_FUNC(pa_threaded_mainloop_lock); -MAKE_FUNC(pa_channel_map_init_auto); -MAKE_FUNC(pa_channel_map_parse); -MAKE_FUNC(pa_channel_map_snprint); -MAKE_FUNC(pa_channel_map_equal); -MAKE_FUNC(pa_context_get_server_info); -MAKE_FUNC(pa_context_get_sink_info_by_name); -MAKE_FUNC(pa_context_get_sink_info_list); -MAKE_FUNC(pa_context_get_source_info_list); -MAKE_FUNC(pa_operation_get_state); -MAKE_FUNC(pa_operation_unref); -#if PA_CHECK_VERSION(0,9,15) -MAKE_FUNC(pa_channel_map_superset); -MAKE_FUNC(pa_stream_set_buffer_attr_callback); -#endif -#if PA_CHECK_VERSION(0,9,16) -MAKE_FUNC(pa_stream_begin_write); -#endif -#undef MAKE_FUNC - -#ifndef PATH_MAX -#define PATH_MAX 4096 -#endif - -typedef struct { - char *device_name; - - ALCuint samples; - ALCuint frame_size; - - RingBuffer *ring; - - pa_buffer_attr attr; - pa_sample_spec spec; - - pa_threaded_mainloop *loop; - - ALvoid *thread; - volatile ALboolean killNow; - - pa_stream *stream; - pa_context *context; -} pulse_data; - -typedef struct { - char *name; - char *device_name; -} DevMap; - - -static const ALCchar pulse_device[] = "PulseAudio Default"; -static DevMap *allDevNameMap; -static ALuint numDevNames; -static DevMap *allCaptureDevNameMap; -static ALuint numCaptureDevNames; -static pa_context_flags_t pulse_ctx_flags; - - -void *pulse_load(void) //{{{ -{ - if(!pa_handle) - { -#ifdef _WIN32 - pa_handle = LoadLibrary("libpulse-0.dll"); -#define LOAD_FUNC(x) do { \ - p##x = (typeof(p##x))GetProcAddress(pa_handle, #x); \ - if(!(p##x)) { \ - AL_PRINT("Could not load %s from libpulse-0.dll\n", #x); \ - FreeLibrary(pa_handle); \ - pa_handle = NULL; \ - return NULL; \ - } \ -} while(0) -#define LOAD_OPTIONAL_FUNC(x) do { \ - p##x = (typeof(p##x))GetProcAddress(pa_handle, #x); \ -} while(0) - -#elif defined (HAVE_DLFCN_H) - - const char *err; -#if defined(__APPLE__) && defined(__MACH__) - pa_handle = dlopen("libpulse.0.dylib", RTLD_NOW); -#else - pa_handle = dlopen("libpulse.so.0", RTLD_NOW); -#endif - dlerror(); - -#define LOAD_FUNC(x) do { \ - p##x = dlsym(pa_handle, #x); \ - if((err=dlerror()) != NULL) { \ - AL_PRINT("Could not load %s from libpulse: %s\n", #x, err); \ - dlclose(pa_handle); \ - pa_handle = NULL; \ - return NULL; \ - } \ -} while(0) -#define LOAD_OPTIONAL_FUNC(x) do { \ - p##x = dlsym(pa_handle, #x); \ - if((err=dlerror()) != NULL) { \ - p##x = NULL; \ - } \ -} while(0) - -#else - - pa_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(x) p##x = (x) -#define LOAD_OPTIONAL_FUNC(x) p##x = (x) - -#endif - if(!pa_handle) - return NULL; - -LOAD_FUNC(pa_context_unref); -LOAD_FUNC(pa_sample_spec_valid); -LOAD_FUNC(pa_stream_drop); -LOAD_FUNC(pa_strerror); -LOAD_FUNC(pa_context_get_state); -LOAD_FUNC(pa_stream_get_state); -LOAD_FUNC(pa_threaded_mainloop_signal); -LOAD_FUNC(pa_stream_peek); -LOAD_FUNC(pa_threaded_mainloop_wait); -LOAD_FUNC(pa_threaded_mainloop_unlock); -LOAD_FUNC(pa_threaded_mainloop_in_thread); -LOAD_FUNC(pa_context_new); -LOAD_FUNC(pa_threaded_mainloop_stop); -LOAD_FUNC(pa_context_disconnect); -LOAD_FUNC(pa_threaded_mainloop_start); -LOAD_FUNC(pa_threaded_mainloop_get_api); -LOAD_FUNC(pa_context_set_state_callback); -LOAD_FUNC(pa_stream_write); -LOAD_FUNC(pa_xfree); -LOAD_FUNC(pa_stream_connect_record); -LOAD_FUNC(pa_stream_connect_playback); -LOAD_FUNC(pa_stream_readable_size); -LOAD_FUNC(pa_stream_writable_size); -LOAD_FUNC(pa_stream_cork); -LOAD_FUNC(pa_stream_is_suspended); -LOAD_FUNC(pa_stream_get_device_name); -LOAD_FUNC(pa_path_get_filename); -LOAD_FUNC(pa_get_binary_name); -LOAD_FUNC(pa_threaded_mainloop_free); -LOAD_FUNC(pa_context_errno); -LOAD_FUNC(pa_xmalloc); -LOAD_FUNC(pa_stream_unref); -LOAD_FUNC(pa_threaded_mainloop_accept); -LOAD_FUNC(pa_stream_set_write_callback); -LOAD_FUNC(pa_threaded_mainloop_new); -LOAD_FUNC(pa_context_connect); -LOAD_FUNC(pa_stream_set_buffer_attr); -LOAD_FUNC(pa_stream_get_buffer_attr); -LOAD_FUNC(pa_stream_get_sample_spec); -LOAD_FUNC(pa_stream_get_time); -LOAD_FUNC(pa_stream_set_read_callback); -LOAD_FUNC(pa_stream_set_state_callback); -LOAD_FUNC(pa_stream_set_moved_callback); -LOAD_FUNC(pa_stream_set_underflow_callback); -LOAD_FUNC(pa_stream_new); -LOAD_FUNC(pa_stream_disconnect); -LOAD_FUNC(pa_threaded_mainloop_lock); -LOAD_FUNC(pa_channel_map_init_auto); -LOAD_FUNC(pa_channel_map_parse); -LOAD_FUNC(pa_channel_map_snprint); -LOAD_FUNC(pa_channel_map_equal); -LOAD_FUNC(pa_context_get_server_info); -LOAD_FUNC(pa_context_get_sink_info_by_name); -LOAD_FUNC(pa_context_get_sink_info_list); -LOAD_FUNC(pa_context_get_source_info_list); -LOAD_FUNC(pa_operation_get_state); -LOAD_FUNC(pa_operation_unref); -#if PA_CHECK_VERSION(0,9,15) -LOAD_OPTIONAL_FUNC(pa_channel_map_superset); -LOAD_OPTIONAL_FUNC(pa_stream_set_buffer_attr_callback); -#endif -#if PA_CHECK_VERSION(0,9,16) -LOAD_OPTIONAL_FUNC(pa_stream_begin_write); -#endif - -#undef LOAD_OPTIONAL_FUNC -#undef LOAD_FUNC - } - return pa_handle; -} //}}} - -// PulseAudio Event Callbacks //{{{ -static void context_state_callback(pa_context *context, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - pa_context_state_t state; - - state = ppa_context_get_state(context); - if(state == PA_CONTEXT_READY || !PA_CONTEXT_IS_GOOD(state)) - ppa_threaded_mainloop_signal(loop, 0); -}//}}} - -static void stream_state_callback(pa_stream *stream, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - pa_stream_state_t state; - - state = ppa_stream_get_state(stream); - if(state == PA_STREAM_READY || !PA_STREAM_IS_GOOD(state)) - ppa_threaded_mainloop_signal(loop, 0); -}//}}} - -static void stream_signal_callback(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - (void)stream; - - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void stream_buffer_attr_callback(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - SuspendContext(NULL); - - data->attr = *(ppa_stream_get_buffer_attr(stream)); - Device->UpdateSize = data->attr.minreq / data->frame_size; - Device->NumUpdates = (data->attr.tlength/data->frame_size) / Device->UpdateSize; - if(Device->NumUpdates <= 1) - { - Device->NumUpdates = 1; - AL_PRINT("PulseAudio returned minreq > tlength/2; expect break up\n"); - } - - ProcessContext(NULL); -}//}}} - -static void stream_device_callback(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - free(data->device_name); - data->device_name = strdup(ppa_stream_get_device_name(stream)); -}//}}} - -static void context_state_callback2(pa_context *context, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - if(ppa_context_get_state(context) == PA_CONTEXT_FAILED) - { - AL_PRINT("Received context failure!\n"); - aluHandleDisconnect(Device); - } - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void stream_state_callback2(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - if(ppa_stream_get_state(stream) == PA_STREAM_FAILED) - { - AL_PRINT("Received stream failure!\n"); - aluHandleDisconnect(Device); - } - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void stream_success_callback(pa_stream *stream, int success, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - (void)stream; - (void)success; - - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void sink_info_callback(pa_context *context, const pa_sink_info *info, int eol, void *pdata) //{{{ -{ - ALCdevice *device = pdata; - pulse_data *data = device->ExtraData; - char chanmap_str[256] = ""; - const struct { - const char *str; - enum DevFmtChannels chans; - } chanmaps[] = { - { "front-left,front-right,front-center,lfe,rear-left,rear-right,side-left,side-right", - DevFmtX71 }, - { "front-left,front-right,front-center,lfe,rear-center,side-left,side-right", - DevFmtX61 }, - { "front-left,front-right,front-center,lfe,rear-left,rear-right", - DevFmtX51 }, - { "front-left,front-right,rear-left,rear-right", DevFmtQuad }, - { "front-left,front-right", DevFmtStereo }, - { "mono", DevFmtMono }, - { NULL, 0 } - }; - int i; - (void)context; - - if(eol) - { - ppa_threaded_mainloop_signal(data->loop, 0); - return; - } - - for(i = 0;chanmaps[i].str;i++) - { - pa_channel_map map; - if(!ppa_channel_map_parse(&map, chanmaps[i].str)) - continue; - - if(ppa_channel_map_equal(&info->channel_map, &map) -#if PA_CHECK_VERSION(0,9,15) - || (ppa_channel_map_superset && - ppa_channel_map_superset(&info->channel_map, &map)) -#endif - ) - { - device->FmtChans = chanmaps[i].chans; - return; - } - } - - ppa_channel_map_snprint(chanmap_str, sizeof(chanmap_str), &info->channel_map); - AL_PRINT("Failed to find format for channel map:\n %s\n", chanmap_str); -}//}}} - -static void sink_device_callback(pa_context *context, const pa_sink_info *info, int eol, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - char str[1024]; - void *temp; - int count; - ALuint i; - - (void)context; - - if(eol) - { - ppa_threaded_mainloop_signal(loop, 0); - return; - } - - count = 0; - do { - if(count == 0) - snprintf(str, sizeof(str), "%s via PulseAudio", info->description); - else - snprintf(str, sizeof(str), "%s #%d via PulseAudio", info->description, count+1); - count++; - - for(i = 0;i < numDevNames;i++) - { - if(strcmp(str, allDevNameMap[i].name) == 0) - break; - } - } while(i != numDevNames); - - temp = realloc(allDevNameMap, (numDevNames+1) * sizeof(*allDevNameMap)); - if(temp) - { - allDevNameMap = temp; - allDevNameMap[numDevNames].name = strdup(str); - allDevNameMap[numDevNames].device_name = strdup(info->name); - numDevNames++; - } -}//}}} - -static void source_device_callback(pa_context *context, const pa_source_info *info, int eol, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - char str[1024]; - void *temp; - int count; - ALuint i; - - (void)context; - - if(eol) - { - ppa_threaded_mainloop_signal(loop, 0); - return; - } - - count = 0; - do { - if(count == 0) - snprintf(str, sizeof(str), "%s via PulseAudio", info->description); - else - snprintf(str, sizeof(str), "%s #%d via PulseAudio", info->description, count+1); - count++; - - for(i = 0;i < numCaptureDevNames;i++) - { - if(strcmp(str, allCaptureDevNameMap[i].name) == 0) - break; - } - } while(i != numCaptureDevNames); - - temp = realloc(allCaptureDevNameMap, (numCaptureDevNames+1) * sizeof(*allCaptureDevNameMap)); - if(temp) - { - allCaptureDevNameMap = temp; - allCaptureDevNameMap[numCaptureDevNames].name = strdup(str); - allCaptureDevNameMap[numCaptureDevNames].device_name = strdup(info->name); - numCaptureDevNames++; - } -}//}}} -//}}} - -// PulseAudio I/O Callbacks //{{{ -static void stream_write_callback(pa_stream *stream, size_t len, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - (void)stream; - (void)len; - - ppa_threaded_mainloop_signal(data->loop, 0); -} //}}} -//}}} - -static ALuint PulseProc(ALvoid *param) -{ - ALCdevice *Device = param; - pulse_data *data = Device->ExtraData; - ssize_t len; - - SetRTPriority(); - - ppa_threaded_mainloop_lock(data->loop); - do { - len = (Device->Connected ? ppa_stream_writable_size(data->stream) : 0); - len -= len%(Device->UpdateSize*data->frame_size); - if(len == 0) - { - ppa_threaded_mainloop_wait(data->loop); - continue; - } - - while(len > 0) - { - size_t newlen = len; - void *buf; - pa_free_cb_t free_func = NULL; - -#if PA_CHECK_VERSION(0,9,16) - if(!ppa_stream_begin_write || - ppa_stream_begin_write(data->stream, &buf, &newlen) < 0) -#endif - { - buf = ppa_xmalloc(newlen); - free_func = ppa_xfree; - } - ppa_threaded_mainloop_unlock(data->loop); - - aluMixData(Device, buf, newlen/data->frame_size); - - ppa_threaded_mainloop_lock(data->loop); - ppa_stream_write(data->stream, buf, newlen, free_func, 0, PA_SEEK_RELATIVE); - len -= newlen; - } - } while(Device->Connected && !data->killNow); - ppa_threaded_mainloop_unlock(data->loop); - - return 0; -} - -static pa_context *connect_context(pa_threaded_mainloop *loop) -{ - const char *name = "OpenAL Soft"; - char path_name[PATH_MAX]; - pa_context_state_t state; - pa_context *context; - int err; - - if(ppa_get_binary_name(path_name, sizeof(path_name))) - name = ppa_path_get_filename(path_name); - - context = ppa_context_new(ppa_threaded_mainloop_get_api(loop), name); - if(!context) - { - AL_PRINT("pa_context_new() failed\n"); - return NULL; - } - - ppa_context_set_state_callback(context, context_state_callback, loop); - - if((err=ppa_context_connect(context, NULL, pulse_ctx_flags, NULL)) >= 0) - { - while((state=ppa_context_get_state(context)) != PA_CONTEXT_READY) - { - if(!PA_CONTEXT_IS_GOOD(state)) - { - err = ppa_context_errno(context); - if(err > 0) err = -err; - break; - } - - ppa_threaded_mainloop_wait(loop); - } - } - ppa_context_set_state_callback(context, NULL, NULL); - - if(err < 0) - { - AL_PRINT("Context did not connect: %s\n", ppa_strerror(err)); - ppa_context_unref(context); - return NULL; - } - - return context; -} - -static pa_stream *connect_playback_stream(ALCdevice *device, - pa_stream_flags_t flags, pa_buffer_attr *attr, pa_sample_spec *spec, - pa_channel_map *chanmap) -{ - pulse_data *data = device->ExtraData; - pa_stream_state_t state; - pa_stream *stream; - - stream = ppa_stream_new(data->context, "Playback Stream", spec, chanmap); - if(!stream) - { - AL_PRINT("pa_stream_new() failed: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - return NULL; - } - - ppa_stream_set_state_callback(stream, stream_state_callback, data->loop); - - if(ppa_stream_connect_playback(stream, data->device_name, attr, flags, NULL, NULL) < 0) - { - AL_PRINT("Stream did not connect: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - ppa_stream_unref(stream); - return NULL; - } - - while((state=ppa_stream_get_state(stream)) != PA_STREAM_READY) - { - if(!PA_STREAM_IS_GOOD(state)) - { - AL_PRINT("Stream did not get ready: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - ppa_stream_unref(stream); - return NULL; - } - - ppa_threaded_mainloop_wait(data->loop); - } - ppa_stream_set_state_callback(stream, NULL, NULL); - - return stream; -} - -static void probe_devices(ALboolean capture) -{ - pa_threaded_mainloop *loop; - - if(capture == AL_FALSE) - allDevNameMap = malloc(sizeof(DevMap) * 1); - else - allCaptureDevNameMap = malloc(sizeof(DevMap) * 1); - - if((loop=ppa_threaded_mainloop_new()) && - ppa_threaded_mainloop_start(loop) >= 0) - { - pa_context *context; - - ppa_threaded_mainloop_lock(loop); - context = connect_context(loop); - if(context) - { - pa_operation *o; - - if(capture == AL_FALSE) - { - allDevNameMap[0].name = strdup(pulse_device); - allDevNameMap[0].device_name = NULL; - numDevNames = 1; - - o = ppa_context_get_sink_info_list(context, sink_device_callback, loop); - } - else - { - allCaptureDevNameMap[0].name = strdup(pulse_device); - allCaptureDevNameMap[0].device_name = NULL; - numCaptureDevNames = 1; - - o = ppa_context_get_source_info_list(context, source_device_callback, loop); - } - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(loop); - ppa_operation_unref(o); - - ppa_context_disconnect(context); - ppa_context_unref(context); - } - ppa_threaded_mainloop_unlock(loop); - ppa_threaded_mainloop_stop(loop); - } - if(loop) - ppa_threaded_mainloop_free(loop); -} - - -static ALCboolean pulse_open(ALCdevice *device, const ALCchar *device_name) //{{{ -{ - pulse_data *data = ppa_xmalloc(sizeof(pulse_data)); - memset(data, 0, sizeof(*data)); - - if(!(data->loop = ppa_threaded_mainloop_new())) - { - AL_PRINT("pa_threaded_mainloop_new() failed!\n"); - goto out; - } - if(ppa_threaded_mainloop_start(data->loop) < 0) - { - AL_PRINT("pa_threaded_mainloop_start() failed\n"); - goto out; - } - - ppa_threaded_mainloop_lock(data->loop); - device->ExtraData = data; - - data->context = connect_context(data->loop); - if(!data->context) - { - ppa_threaded_mainloop_unlock(data->loop); - goto out; - } - ppa_context_set_state_callback(data->context, context_state_callback2, device); - - device->szDeviceName = strdup(device_name); - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_TRUE; - -out: - if(data->loop) - { - ppa_threaded_mainloop_stop(data->loop); - ppa_threaded_mainloop_free(data->loop); - } - - device->ExtraData = NULL; - ppa_xfree(data); - return ALC_FALSE; -} //}}} - -static void pulse_close(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - - ppa_threaded_mainloop_lock(data->loop); - - if(data->stream) - { - ppa_stream_disconnect(data->stream); - ppa_stream_unref(data->stream); - } - - ppa_context_disconnect(data->context); - ppa_context_unref(data->context); - - ppa_threaded_mainloop_unlock(data->loop); - - ppa_threaded_mainloop_stop(data->loop); - ppa_threaded_mainloop_free(data->loop); - - DestroyRingBuffer(data->ring); - free(data->device_name); - - device->ExtraData = NULL; - ppa_xfree(data); -} //}}} -//}}} - -// OpenAL {{{ -static ALCboolean pulse_open_playback(ALCdevice *device, const ALCchar *device_name) //{{{ -{ - char *pulse_name = NULL; - pa_sample_spec spec; - pulse_data *data; - - if(!pulse_load()) - return ALC_FALSE; - - if(!allDevNameMap) - probe_devices(AL_FALSE); - - if(!device_name && numDevNames > 0) - device_name = allDevNameMap[0].name; - else - { - ALuint i; - - for(i = 0;i < numDevNames;i++) - { - if(strcmp(device_name, allDevNameMap[i].name) == 0) - { - pulse_name = allDevNameMap[i].device_name; - break; - } - } - if(i == numDevNames) - return ALC_FALSE; - } - - if(pulse_open(device, device_name) == ALC_FALSE) - return ALC_FALSE; - - data = device->ExtraData; - - ppa_threaded_mainloop_lock(data->loop); - - spec.format = PA_SAMPLE_S16NE; - spec.rate = 44100; - spec.channels = 2; - - data->device_name = pulse_name; - pa_stream *stream = connect_playback_stream(device, 0, NULL, &spec, NULL); - if(!stream) - { - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - if(ppa_stream_is_suspended(stream)) - { - AL_PRINT("Device is suspended\n"); - ppa_stream_disconnect(stream); - ppa_stream_unref(stream); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - data->device_name = strdup(ppa_stream_get_device_name(stream)); - - ppa_stream_disconnect(stream); - ppa_stream_unref(stream); - - ppa_threaded_mainloop_unlock(data->loop); - - return ALC_TRUE; - -fail: - pulse_close(device); - return ALC_FALSE; -} //}}} - -static void pulse_close_playback(ALCdevice *device) //{{{ -{ - pulse_close(device); -} //}}} - -static ALCboolean pulse_reset_playback(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - pa_stream_flags_t flags = 0; - pa_channel_map chanmap; - - ppa_threaded_mainloop_lock(data->loop); - - if(!ConfigValueExists(NULL, "format")) - { - pa_operation *o; - o = ppa_context_get_sink_info_by_name(data->context, data->device_name, sink_info_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - } - if(!ConfigValueExists(NULL, "frequency")) - flags |= PA_STREAM_FIX_RATE; - - data->frame_size = FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - data->attr.prebuf = -1; - data->attr.fragsize = -1; - data->attr.minreq = device->UpdateSize * data->frame_size; - data->attr.tlength = data->attr.minreq * device->NumUpdates; - if(data->attr.tlength < data->attr.minreq*2) - data->attr.tlength = data->attr.minreq*2; - data->attr.maxlength = data->attr.tlength; - flags |= PA_STREAM_EARLY_REQUESTS; - flags |= PA_STREAM_INTERPOLATE_TIMING | PA_STREAM_AUTO_TIMING_UPDATE; - - switch(device->FmtType) - { - case DevFmtByte: - device->FmtType = DevFmtUByte; - /* fall-through */ - case DevFmtUByte: - data->spec.format = PA_SAMPLE_U8; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - data->spec.format = PA_SAMPLE_S16NE; - break; - case DevFmtFloat: - data->spec.format = PA_SAMPLE_FLOAT32NE; - break; - } - data->spec.rate = device->Frequency; - data->spec.channels = ChannelsFromDevFmt(device->FmtChans); - - if(ppa_sample_spec_valid(&data->spec) == 0) - { - AL_PRINT("Invalid sample format\n"); - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - - if(!ppa_channel_map_init_auto(&chanmap, data->spec.channels, PA_CHANNEL_MAP_WAVEEX)) - { - AL_PRINT("Couldn't build map for channel count (%d)!\n", data->spec.channels); - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - SetDefaultWFXChannelOrder(device); - - data->stream = connect_playback_stream(device, flags, &data->attr, &data->spec, &chanmap); - if(!data->stream) - { - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - - ppa_stream_set_state_callback(data->stream, stream_state_callback2, device); - - data->spec = *(ppa_stream_get_sample_spec(data->stream)); - if(device->Frequency != data->spec.rate) - { - pa_operation *o; - - /* Server updated our playback rate, so modify the buffer attribs - * accordingly. */ - data->attr.minreq = (ALuint64)(data->attr.minreq/data->frame_size) * - data->spec.rate / device->Frequency * data->frame_size; - data->attr.tlength = data->attr.minreq * device->NumUpdates; - data->attr.maxlength = data->attr.tlength; - - o = ppa_stream_set_buffer_attr(data->stream, &data->attr, - stream_success_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - - device->Frequency = data->spec.rate; - } - - stream_buffer_attr_callback(data->stream, device); -#if PA_CHECK_VERSION(0,9,15) - if(ppa_stream_set_buffer_attr_callback) - ppa_stream_set_buffer_attr_callback(data->stream, stream_buffer_attr_callback, device); -#endif - ppa_stream_set_moved_callback(data->stream, stream_device_callback, device); - ppa_stream_set_write_callback(data->stream, stream_write_callback, device); - ppa_stream_set_underflow_callback(data->stream, stream_signal_callback, device); - - data->thread = StartThread(PulseProc, device); - if(!data->thread) - { -#if PA_CHECK_VERSION(0,9,15) - if(ppa_stream_set_buffer_attr_callback) - ppa_stream_set_buffer_attr_callback(data->stream, NULL, NULL); -#endif - ppa_stream_set_moved_callback(data->stream, NULL, NULL); - ppa_stream_set_write_callback(data->stream, NULL, NULL); - ppa_stream_set_underflow_callback(data->stream, NULL, NULL); - ppa_stream_disconnect(data->stream); - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_TRUE; -} //}}} - -static void pulse_stop_playback(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - - if(!data->stream) - return; - - data->killNow = AL_TRUE; - if(data->thread) - { - ppa_threaded_mainloop_signal(data->loop, 0); - StopThread(data->thread); - data->thread = NULL; - } - data->killNow = AL_FALSE; - - ppa_threaded_mainloop_lock(data->loop); - -#if PA_CHECK_VERSION(0,9,15) - if(ppa_stream_set_buffer_attr_callback) - ppa_stream_set_buffer_attr_callback(data->stream, NULL, NULL); -#endif - ppa_stream_set_moved_callback(data->stream, NULL, NULL); - ppa_stream_set_write_callback(data->stream, NULL, NULL); - ppa_stream_set_underflow_callback(data->stream, NULL, NULL); - ppa_stream_disconnect(data->stream); - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); -} //}}} - - -static ALCboolean pulse_open_capture(ALCdevice *device, const ALCchar *device_name) //{{{ -{ - char *pulse_name = NULL; - pulse_data *data; - pa_stream_flags_t flags = 0; - pa_stream_state_t state; - pa_channel_map chanmap; - - if(!pulse_load()) - return ALC_FALSE; - - if(!allCaptureDevNameMap) - probe_devices(AL_TRUE); - - if(!device_name && numCaptureDevNames > 0) - device_name = allCaptureDevNameMap[0].name; - else - { - ALuint i; - - for(i = 0;i < numCaptureDevNames;i++) - { - if(strcmp(device_name, allCaptureDevNameMap[i].name) == 0) - { - pulse_name = allCaptureDevNameMap[i].device_name; - break; - } - } - if(i == numCaptureDevNames) - return ALC_FALSE; - } - - if(pulse_open(device, device_name) == ALC_FALSE) - return ALC_FALSE; - - data = device->ExtraData; - ppa_threaded_mainloop_lock(data->loop); - - data->samples = device->UpdateSize * device->NumUpdates; - data->frame_size = FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - if(data->samples < 100 * device->Frequency / 1000) - data->samples = 100 * device->Frequency / 1000; - - if(!(data->ring = CreateRingBuffer(data->frame_size, data->samples))) - { - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - data->attr.minreq = -1; - data->attr.prebuf = -1; - data->attr.maxlength = data->samples * data->frame_size; - data->attr.tlength = -1; - data->attr.fragsize = min(data->samples, 50 * device->Frequency / 1000) * - data->frame_size; - - data->spec.rate = device->Frequency; - data->spec.channels = ChannelsFromDevFmt(device->FmtChans); - - switch(device->FmtType) - { - case DevFmtUByte: - data->spec.format = PA_SAMPLE_U8; - break; - case DevFmtShort: - data->spec.format = PA_SAMPLE_S16NE; - break; - case DevFmtFloat: - data->spec.format = PA_SAMPLE_FLOAT32NE; - break; - case DevFmtByte: - case DevFmtUShort: - AL_PRINT("Capture format type %#x capture not supported on PulseAudio\n", device->FmtType); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - if(ppa_sample_spec_valid(&data->spec) == 0) - { - AL_PRINT("Invalid sample format\n"); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - if(!ppa_channel_map_init_auto(&chanmap, data->spec.channels, PA_CHANNEL_MAP_WAVEEX)) - { - AL_PRINT("Couldn't build map for channel count (%d)!\n", data->spec.channels); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - data->stream = ppa_stream_new(data->context, "Capture Stream", &data->spec, &chanmap); - if(!data->stream) - { - AL_PRINT("pa_stream_new() failed: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - ppa_stream_set_state_callback(data->stream, stream_state_callback, data->loop); - - flags |= PA_STREAM_START_CORKED|PA_STREAM_ADJUST_LATENCY; - if(ppa_stream_connect_record(data->stream, pulse_name, &data->attr, flags) < 0) - { - AL_PRINT("Stream did not connect: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - while((state=ppa_stream_get_state(data->stream)) != PA_STREAM_READY) - { - if(!PA_STREAM_IS_GOOD(state)) - { - AL_PRINT("Stream did not get ready: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - ppa_threaded_mainloop_wait(data->loop); - } - ppa_stream_set_state_callback(data->stream, stream_state_callback2, device); - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_TRUE; - -fail: - pulse_close(device); - return ALC_FALSE; -} //}}} - -static void pulse_close_capture(ALCdevice *device) //{{{ -{ - pulse_close(device); -} //}}} - -static void pulse_start_capture(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - pa_operation *o; - - ppa_threaded_mainloop_lock(data->loop); - o = ppa_stream_cork(data->stream, 0, stream_success_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - ppa_threaded_mainloop_unlock(data->loop); -} //}}} - -static void pulse_stop_capture(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - pa_operation *o; - - ppa_threaded_mainloop_lock(data->loop); - o = ppa_stream_cork(data->stream, 1, stream_success_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - ppa_threaded_mainloop_unlock(data->loop); -} //}}} - -static ALCuint pulse_available_samples(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - size_t samples; - - ppa_threaded_mainloop_lock(data->loop); - /* Capture is done in fragment-sized chunks, so we loop until we get all - * that's available */ - samples = (device->Connected ? ppa_stream_readable_size(data->stream) : 0); - while(samples > 0) - { - const void *buf; - size_t length; - - if(ppa_stream_peek(data->stream, &buf, &length) < 0) - { - AL_PRINT("pa_stream_peek() failed: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - break; - } - - WriteRingBuffer(data->ring, buf, length/data->frame_size); - samples -= length; - - ppa_stream_drop(data->stream); - } - ppa_threaded_mainloop_unlock(data->loop); - - return RingBufferSize(data->ring); -} //}}} - -static void pulse_capture_samples(ALCdevice *device, ALCvoid *buffer, ALCuint samples) //{{{ -{ - pulse_data *data = device->ExtraData; - - if(pulse_available_samples(device) >= samples) - ReadRingBuffer(data->ring, buffer, samples); - else - alcSetError(device, ALC_INVALID_VALUE); -} //}}} - - -BackendFuncs pulse_funcs = { //{{{ - pulse_open_playback, - pulse_close_playback, - pulse_reset_playback, - pulse_stop_playback, - pulse_open_capture, - pulse_close_capture, - pulse_start_capture, - pulse_stop_capture, - pulse_capture_samples, - pulse_available_samples -}; //}}} - -void alc_pulse_init(BackendFuncs *func_list) //{{{ -{ - *func_list = pulse_funcs; - - pulse_ctx_flags = 0; - if(!GetConfigValueBool("pulse", "spawn-server", 0)) - pulse_ctx_flags |= PA_CONTEXT_NOAUTOSPAWN; -} //}}} - -void alc_pulse_deinit(void) //{{{ -{ - ALuint i; - - for(i = 0;i < numDevNames;++i) - { - free(allDevNameMap[i].name); - free(allDevNameMap[i].device_name); - } - free(allDevNameMap); - allDevNameMap = NULL; - numDevNames = 0; - - for(i = 0;i < numCaptureDevNames;++i) - { - free(allCaptureDevNameMap[i].name); - free(allCaptureDevNameMap[i].device_name); - } - free(allCaptureDevNameMap); - allCaptureDevNameMap = NULL; - numCaptureDevNames = 0; - - if(pa_handle) - { -#ifdef _WIN32 - FreeLibrary(pa_handle); -#elif defined (HAVE_DLFCN_H) - dlclose(pa_handle); -#endif - pa_handle = NULL; - } -} //}}} - -void alc_pulse_probe(int type) //{{{ -{ - if(!pulse_load()) return; - - if(type == DEVICE_PROBE) - { - pa_threaded_mainloop *loop; - - if((loop=ppa_threaded_mainloop_new()) && - ppa_threaded_mainloop_start(loop) >= 0) - { - pa_context *context; - - ppa_threaded_mainloop_lock(loop); - context = connect_context(loop); - if(context) - { - AppendDeviceList(pulse_device); - - ppa_context_disconnect(context); - ppa_context_unref(context); - } - ppa_threaded_mainloop_unlock(loop); - ppa_threaded_mainloop_stop(loop); - } - if(loop) - ppa_threaded_mainloop_free(loop); - } - else if(type == ALL_DEVICE_PROBE) - { - ALuint i; - - for(i = 0;i < numDevNames;++i) - { - free(allDevNameMap[i].name); - free(allDevNameMap[i].device_name); - } - free(allDevNameMap); - allDevNameMap = NULL; - numDevNames = 0; - - probe_devices(AL_FALSE); - - for(i = 0;i < numDevNames;i++) - AppendAllDeviceList(allDevNameMap[i].name); - } - else if(type == CAPTURE_DEVICE_PROBE) - { - ALuint i; - - for(i = 0;i < numCaptureDevNames;++i) - { - free(allCaptureDevNameMap[i].name); - free(allCaptureDevNameMap[i].device_name); - } - free(allCaptureDevNameMap); - allCaptureDevNameMap = NULL; - numCaptureDevNames = 0; - - probe_devices(AL_TRUE); - - for(i = 0;i < numCaptureDevNames;i++) - AppendCaptureDeviceList(allCaptureDevNameMap[i].name); - } -} //}}} -//}}} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/solaris.c b/internal/c/parts/audio/out/android/OpenAL/Alc/solaris.c deleted file mode 100644 index 18c733439..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/solaris.c +++ /dev/null @@ -1,304 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include - - -static const ALCchar solaris_device[] = "Solaris Default"; - -typedef struct { - int fd; - volatile int killNow; - ALvoid *thread; - - ALubyte *mix_data; - int data_size; -} solaris_data; - - -static ALuint SolarisProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - solaris_data *data = (solaris_data*)pDevice->ExtraData; - ALint frameSize; - int wrote; - - SetRTPriority(); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(!data->killNow && pDevice->Connected) - { - ALint len = data->data_size; - ALubyte *WritePtr = data->mix_data; - - aluMixData(pDevice, WritePtr, len/frameSize); - while(len > 0 && !data->killNow) - { - wrote = write(data->fd, WritePtr, len); - if(wrote < 0) - { - if(errno != EAGAIN && errno != EWOULDBLOCK && errno != EINTR) - { - AL_PRINT("write failed: %s\n", strerror(errno)); - aluHandleDisconnect(pDevice); - break; - } - - Sleep(1); - continue; - } - - len -= wrote; - WritePtr += wrote; - } - } - - return 0; -} - - -static ALCboolean solaris_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - char driver[64]; - solaris_data *data; - - strncpy(driver, GetConfigValue("solaris", "device", "/dev/audio"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - - if(!deviceName) - deviceName = solaris_device; - else if(strcmp(deviceName, solaris_device) != 0) - return ALC_FALSE; - - data = (solaris_data*)calloc(1, sizeof(solaris_data)); - data->killNow = 0; - - data->fd = open(driver, O_WRONLY); - if(data->fd == -1) - { - free(data); - AL_PRINT("Could not open %s: %s\n", driver, strerror(errno)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void solaris_close_playback(ALCdevice *device) -{ - solaris_data *data = (solaris_data*)device->ExtraData; - - close(data->fd); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean solaris_reset_playback(ALCdevice *device) -{ - solaris_data *data = (solaris_data*)device->ExtraData; - audio_info_t info; - ALuint frameSize; - int numChannels; - - AUDIO_INITINFO(&info); - - info.play.sample_rate = device->Frequency; - - if(device->FmtChans != DevFmtMono) - device->FmtChans = DevFmtStereo; - numChannels = ChannelsFromDevFmt(device->FmtChans); - info.play.channels = numChannels; - - switch(device->FmtType) - { - case DevFmtByte: - info.play.precision = 8; - info.play.encoding = AUDIO_ENCODING_LINEAR; - break; - case DevFmtUByte: - info.play.precision = 8; - info.play.encoding = AUDIO_ENCODING_LINEAR8; - break; - case DevFmtUShort: - case DevFmtFloat: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - info.play.precision = 16; - info.play.encoding = AUDIO_ENCODING_LINEAR; - break; - } - - frameSize = numChannels * BytesFromDevFmt(device->FmtType); - info.play.buffer_size = device->UpdateSize*device->NumUpdates * frameSize; - - if(ioctl(data->fd, AUDIO_SETINFO, &info) < 0) - { - AL_PRINT("ioctl failed: %s\n", strerror(errno)); - return ALC_FALSE; - } - - if(ChannelsFromDevFmt(device->FmtChans) != info.play.channels) - { - AL_PRINT("Could not set %d channels, got %d instead\n", ChannelsFromDevFmt(device->FmtChans), info.play.channels); - return ALC_FALSE; - } - - if(!((info.play.precision == 8 && info.play.encoding == AUDIO_ENCODING_LINEAR && - device->FmtType == DevFmtByte) || - (info.play.precision == 8 && info.play.encoding == AUDIO_ENCODING_LINEAR8 && - device->FmtType == DevFmtUByte) || - (info.play.precision == 16 && info.play.encoding == AUDIO_ENCODING_LINEAR && - device->FmtType == DevFmtShort))) - { - AL_PRINT("Could not set %#x sample type, got %d (%#x)\n", - device->FmtType, info.play.precision, info.play.encoding); - return ALC_FALSE; - } - - device->Frequency = info.play.sample_rate; - device->UpdateSize = (info.play.buffer_size/device->NumUpdates) + 1; - - data->data_size = device->UpdateSize * frameSize; - data->mix_data = calloc(1, data->data_size); - - SetDefaultChannelOrder(device); - - data->thread = StartThread(SolarisProc, device); - if(data->thread == NULL) - { - free(data->mix_data); - data->mix_data = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void solaris_stop_playback(ALCdevice *device) -{ - solaris_data *data = (solaris_data*)device->ExtraData; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - if(ioctl(data->fd, AUDIO_DRAIN) < 0) - AL_PRINT("Error draining device: %s\n", strerror(errno)); - - free(data->mix_data); - data->mix_data = NULL; -} - - -static ALCboolean solaris_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - (void)device; - (void)deviceName; - return ALC_FALSE; -} - -static void solaris_close_capture(ALCdevice *device) -{ - (void)device; -} - -static void solaris_start_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void solaris_stop_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void solaris_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint solaris_available_samples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - - -BackendFuncs solaris_funcs = { - solaris_open_playback, - solaris_close_playback, - solaris_reset_playback, - solaris_stop_playback, - solaris_open_capture, - solaris_close_capture, - solaris_start_capture, - solaris_stop_capture, - solaris_capture_samples, - solaris_available_samples -}; - -void alc_solaris_init(BackendFuncs *func_list) -{ - *func_list = solaris_funcs; -} - -void alc_solaris_deinit(void) -{ -} - -void alc_solaris_probe(int type) -{ -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("solaris", "device", "/dev/audio"), &buf) != 0) - return; -#endif - - if(type == DEVICE_PROBE) - AppendDeviceList(solaris_device); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(solaris_device); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/wave.c b/internal/c/parts/audio/out/android/OpenAL/Alc/wave.c deleted file mode 100644 index 6ba662cf1..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/wave.c +++ /dev/null @@ -1,355 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - - -typedef struct { - FILE *f; - long DataStart; - - ALvoid *buffer; - ALuint size; - - volatile int killNow; - ALvoid *thread; -} wave_data; - - -static const ALCchar waveDevice[] = "Wave File Writer"; - -static const ALubyte SUBTYPE_PCM[] = { - 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x80, 0x00, 0x00, 0xaa, - 0x00, 0x38, 0x9b, 0x71 -}; -static const ALubyte SUBTYPE_FLOAT[] = { - 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x80, 0x00, 0x00, 0xaa, - 0x00, 0x38, 0x9b, 0x71 -}; - -static const ALuint channel_masks[] = { - 0, /* invalid */ - 0x4, /* Mono */ - 0x1 | 0x2, /* Stereo */ - 0, /* 3 channel */ - 0x1 | 0x2 | 0x10 | 0x20, /* Quad */ - 0, /* 5 channel */ - 0x1 | 0x2 | 0x4 | 0x8 | 0x10 | 0x20, /* 5.1 */ - 0x1 | 0x2 | 0x4 | 0x8 | 0x100 | 0x200 | 0x400, /* 6.1 */ - 0x1 | 0x2 | 0x4 | 0x8 | 0x10 | 0x20 | 0x200 | 0x400, /* 7.1 */ -}; - - -static void fwrite16le(ALushort val, FILE *f) -{ - fputc(val&0xff, f); - fputc((val>>8)&0xff, f); -} - -static void fwrite32le(ALuint val, FILE *f) -{ - fputc(val&0xff, f); - fputc((val>>8)&0xff, f); - fputc((val>>16)&0xff, f); - fputc((val>>24)&0xff, f); -} - - -static ALuint WaveProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - wave_data *data = (wave_data*)pDevice->ExtraData; - ALuint frameSize; - ALuint now, start; - ALuint64 avail, done; - size_t fs; - union { - short s; - char b[sizeof(short)]; - } uSB; - const ALuint restTime = (ALuint64)pDevice->UpdateSize * 1000 / - pDevice->Frequency / 2; - - uSB.s = 1; - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - done = 0; - start = timeGetTime(); - while(!data->killNow && pDevice->Connected) - { - now = timeGetTime(); - - avail = (ALuint64)(now-start) * pDevice->Frequency / 1000; - if(avail < done) - { - /* Timer wrapped. Add the remainder of the cycle to the available - * count and reset the number of samples done */ - avail += (ALuint64)0xFFFFFFFFu*pDevice->Frequency/1000 - done; - done = 0; - } - if(avail-done < pDevice->UpdateSize) - { - Sleep(restTime); - continue; - } - - while(avail-done >= pDevice->UpdateSize) - { - aluMixData(pDevice, data->buffer, pDevice->UpdateSize); - done += pDevice->UpdateSize; - - if(uSB.b[0] != 1) - { - ALuint bytesize = BytesFromDevFmt(pDevice->FmtType); - ALubyte *bytes = data->buffer; - ALuint i; - - if(bytesize == 1) - { - for(i = 0;i < data->size;i++) - fputc(bytes[i], data->f); - } - else if(bytesize == 2) - { - for(i = 0;i < data->size;i++) - fputc(bytes[i^1], data->f); - } - else if(bytesize == 4) - { - for(i = 0;i < data->size;i++) - fputc(bytes[i^3], data->f); - } - } - else - fs = fwrite(data->buffer, frameSize, pDevice->UpdateSize, - data->f); - if(ferror(data->f)) - { - AL_PRINT("Error writing to file\n"); - aluHandleDisconnect(pDevice); - break; - } - } - } - - return 0; -} - -static ALCboolean wave_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - wave_data *data; - const char *fname; - - fname = GetConfigValue("wave", "file", ""); - if(!fname[0]) - return ALC_FALSE; - - if(!deviceName) - deviceName = waveDevice; - else if(strcmp(deviceName, waveDevice) != 0) - return ALC_FALSE; - - data = (wave_data*)calloc(1, sizeof(wave_data)); - - data->f = fopen(fname, "wb"); - if(!data->f) - { - free(data); - AL_PRINT("Could not open file '%s': %s\n", fname, strerror(errno)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void wave_close_playback(ALCdevice *device) -{ - wave_data *data = (wave_data*)device->ExtraData; - - fclose(data->f); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean wave_reset_playback(ALCdevice *device) -{ - wave_data *data = (wave_data*)device->ExtraData; - ALuint channels=0, bits=0; - size_t val; - - fseek(data->f, 0, SEEK_SET); - clearerr(data->f); - - switch(device->FmtType) - { - case DevFmtByte: - device->FmtType = DevFmtUByte; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - break; - case DevFmtUByte: - case DevFmtShort: - case DevFmtFloat: - break; - } - bits = BytesFromDevFmt(device->FmtType) * 8; - channels = ChannelsFromDevFmt(device->FmtChans); - - fprintf(data->f, "RIFF"); - fwrite32le(0xFFFFFFFF, data->f); // 'RIFF' header len; filled in at close - - fprintf(data->f, "WAVE"); - - fprintf(data->f, "fmt "); - fwrite32le(40, data->f); // 'fmt ' header len; 40 bytes for EXTENSIBLE - - // 16-bit val, format type id (extensible: 0xFFFE) - fwrite16le(0xFFFE, data->f); - // 16-bit val, channel count - fwrite16le(channels, data->f); - // 32-bit val, frequency - fwrite32le(device->Frequency, data->f); - // 32-bit val, bytes per second - fwrite32le(device->Frequency * channels * bits / 8, data->f); - // 16-bit val, frame size - fwrite16le(channels * bits / 8, data->f); - // 16-bit val, bits per sample - fwrite16le(bits, data->f); - // 16-bit val, extra byte count - fwrite16le(22, data->f); - // 16-bit val, valid bits per sample - fwrite16le(bits, data->f); - // 32-bit val, channel mask - fwrite32le(channel_masks[channels], data->f); - // 16 byte GUID, sub-type format - val = fwrite(((bits==32) ? SUBTYPE_FLOAT : SUBTYPE_PCM), 1, 16, data->f); - - fprintf(data->f, "data"); - fwrite32le(0xFFFFFFFF, data->f); // 'data' header len; filled in at close - - if(ferror(data->f)) - { - AL_PRINT("Error writing header: %s\n", strerror(errno)); - return ALC_FALSE; - } - - data->DataStart = ftell(data->f); - - data->size = device->UpdateSize * channels * bits / 8; - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - return ALC_FALSE; - } - - SetDefaultWFXChannelOrder(device); - - data->thread = StartThread(WaveProc, device); - if(data->thread == NULL) - { - free(data->buffer); - data->buffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void wave_stop_playback(ALCdevice *device) -{ - wave_data *data = (wave_data*)device->ExtraData; - ALuint dataLen; - long size; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - - free(data->buffer); - data->buffer = NULL; - - size = ftell(data->f); - if(size > 0) - { - dataLen = size - data->DataStart; - if(fseek(data->f, data->DataStart-4, SEEK_SET) == 0) - fwrite32le(dataLen, data->f); // 'data' header len - if(fseek(data->f, 4, SEEK_SET) == 0) - fwrite32le(size-8, data->f); // 'WAVE' header len - } -} - - -static ALCboolean wave_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - - -BackendFuncs wave_funcs = { - wave_open_playback, - wave_close_playback, - wave_reset_playback, - wave_stop_playback, - wave_open_capture, - NULL, - NULL, - NULL, - NULL, - NULL -}; - -void alc_wave_init(BackendFuncs *func_list) -{ - *func_list = wave_funcs; -} - -void alc_wave_deinit(void) -{ -} - -void alc_wave_probe(int type) -{ - if(!ConfigValueExists("wave", "file")) - return; - - if(type == DEVICE_PROBE) - AppendDeviceList(waveDevice); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(waveDevice); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Alc/winmm.c b/internal/c/parts/audio/out/android/OpenAL/Alc/winmm.c deleted file mode 100644 index 10d0c28fe..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Alc/winmm.c +++ /dev/null @@ -1,784 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#define _WIN32_WINNT 0x0500 -#include -#include -#include - -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - - -typedef struct { - // MMSYSTEM Device - volatile ALboolean bWaveShutdown; - HANDLE hWaveHdrEvent; - HANDLE hWaveThreadEvent; - HANDLE hWaveThread; - DWORD ulWaveThreadID; - LONG lWaveBuffersCommitted; - WAVEHDR WaveBuffer[4]; - - union { - HWAVEIN In; - HWAVEOUT Out; - } hWaveHandle; - - ALsizei Frequency; - - RingBuffer *pRing; -} WinMMData; - - -static const ALCchar woDefault[] = "WaveOut Default"; - -static ALCchar **PlaybackDeviceList; -static ALuint NumPlaybackDevices; -static ALCchar **CaptureDeviceList; -static ALuint NumCaptureDevices; - - -static void ProbePlaybackDevices(void) -{ - ALuint i; - - for(i = 0;i < NumPlaybackDevices;i++) - free(PlaybackDeviceList[i]); - - NumPlaybackDevices = waveOutGetNumDevs(); - PlaybackDeviceList = realloc(PlaybackDeviceList, sizeof(ALCchar*) * NumPlaybackDevices); - for(i = 0;i < NumPlaybackDevices;i++) - { - WAVEOUTCAPS WaveCaps; - - PlaybackDeviceList[i] = NULL; - if(waveOutGetDevCaps(i, &WaveCaps, sizeof(WaveCaps)) == MMSYSERR_NOERROR) - { - char name[1024]; - ALuint count, j; - - count = 0; - do { - if(count == 0) - snprintf(name, sizeof(name), "%s via WaveOut", WaveCaps.szPname); - else - snprintf(name, sizeof(name), "%s #%d via WaveOut", WaveCaps.szPname, count+1); - count++; - - for(j = 0;j < i;j++) - { - if(strcmp(name, PlaybackDeviceList[j]) == 0) - break; - } - } while(j != i); - - PlaybackDeviceList[i] = strdup(name); - } - } -} - -static void ProbeCaptureDevices(void) -{ - ALuint i; - - for(i = 0;i < NumCaptureDevices;i++) - free(CaptureDeviceList[i]); - - NumCaptureDevices = waveInGetNumDevs(); - CaptureDeviceList = realloc(CaptureDeviceList, sizeof(ALCchar*) * NumCaptureDevices); - for(i = 0;i < NumCaptureDevices;i++) - { - WAVEINCAPS WaveInCaps; - - CaptureDeviceList[i] = NULL; - if(waveInGetDevCaps(i, &WaveInCaps, sizeof(WAVEINCAPS)) == MMSYSERR_NOERROR) - { - char name[1024]; - ALuint count, j; - - count = 0; - do { - if(count == 0) - snprintf(name, sizeof(name), "%s via WaveIn", WaveInCaps.szPname); - else - snprintf(name, sizeof(name), "%s #%d via WaveIn", WaveInCaps.szPname, count+1); - count++; - - for(j = 0;j < i;j++) - { - if(strcmp(name, CaptureDeviceList[j]) == 0) - break; - } - } while(j != i); - - CaptureDeviceList[i] = strdup(name); - } - } -} - - -/* - WaveOutProc - - Posts a message to 'PlaybackThreadProc' everytime a WaveOut Buffer is completed and - returns to the application (for more data) -*/ -static void CALLBACK WaveOutProc(HWAVEOUT hDevice,UINT uMsg,DWORD_PTR dwInstance,DWORD_PTR dwParam1,DWORD_PTR dwParam2) -{ - ALCdevice *pDevice = (ALCdevice*)dwInstance; - WinMMData *pData = pDevice->ExtraData; - - (void)hDevice; - (void)dwParam2; - - if(uMsg != WOM_DONE) - return; - - // Decrement number of buffers in use - InterlockedDecrement(&pData->lWaveBuffersCommitted); - - if(pData->bWaveShutdown == AL_FALSE) - { - // Notify Wave Processor Thread that a Wave Header has returned - PostThreadMessage(pData->ulWaveThreadID, uMsg, 0, dwParam1); - } - else - { - if(pData->lWaveBuffersCommitted == 0) - { - // Signal Wave Buffers Returned event - if(pData->hWaveHdrEvent) - SetEvent(pData->hWaveHdrEvent); - - // Post 'Quit' Message to WaveOut Processor Thread - PostThreadMessage(pData->ulWaveThreadID, WM_QUIT, 0, 0); - } - } -} - -/* - PlaybackThreadProc - - Used by "MMSYSTEM" Device. Called when a WaveOut buffer has used up its - audio data. -*/ -static DWORD WINAPI PlaybackThreadProc(LPVOID lpParameter) -{ - ALCdevice *pDevice = (ALCdevice*)lpParameter; - WinMMData *pData = pDevice->ExtraData; - LPWAVEHDR pWaveHdr; - ALuint FrameSize; - MSG msg; - - FrameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(GetMessage(&msg, NULL, 0, 0)) - { - if(msg.message != WOM_DONE || pData->bWaveShutdown) - continue; - - pWaveHdr = ((LPWAVEHDR)msg.lParam); - - aluMixData(pDevice, pWaveHdr->lpData, pWaveHdr->dwBufferLength/FrameSize); - - // Send buffer back to play more data - waveOutWrite(pData->hWaveHandle.Out, pWaveHdr, sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - // Signal Wave Thread completed event - if(pData->hWaveThreadEvent) - SetEvent(pData->hWaveThreadEvent); - - ExitThread(0); - - return 0; -} - -/* - WaveInProc - - Posts a message to 'CaptureThreadProc' everytime a WaveIn Buffer is completed and - returns to the application (with more data) -*/ -static void CALLBACK WaveInProc(HWAVEIN hDevice,UINT uMsg,DWORD_PTR dwInstance,DWORD_PTR dwParam1,DWORD_PTR dwParam2) -{ - ALCdevice *pDevice = (ALCdevice*)dwInstance; - WinMMData *pData = pDevice->ExtraData; - - (void)hDevice; - (void)dwParam2; - - if(uMsg != WIM_DATA) - return; - - // Decrement number of buffers in use - InterlockedDecrement(&pData->lWaveBuffersCommitted); - - if(pData->bWaveShutdown == AL_FALSE) - { - // Notify Wave Processor Thread that a Wave Header has returned - PostThreadMessage(pData->ulWaveThreadID,uMsg,0,dwParam1); - } - else - { - if(pData->lWaveBuffersCommitted == 0) - { - // Signal Wave Buffers Returned event - if(pData->hWaveHdrEvent) - SetEvent(pData->hWaveHdrEvent); - - // Post 'Quit' Message to WaveIn Processor Thread - PostThreadMessage(pData->ulWaveThreadID,WM_QUIT,0,0); - } - } -} - -/* - CaptureThreadProc - - Used by "MMSYSTEM" Device. Called when a WaveIn buffer had been filled with new - audio data. -*/ -static DWORD WINAPI CaptureThreadProc(LPVOID lpParameter) -{ - ALCdevice *pDevice = (ALCdevice*)lpParameter; - WinMMData *pData = pDevice->ExtraData; - LPWAVEHDR pWaveHdr; - ALuint FrameSize; - MSG msg; - - FrameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(GetMessage(&msg, NULL, 0, 0)) - { - if(msg.message != WIM_DATA || pData->bWaveShutdown) - continue; - - pWaveHdr = ((LPWAVEHDR)msg.lParam); - - WriteRingBuffer(pData->pRing, (ALubyte*)pWaveHdr->lpData, - pWaveHdr->dwBytesRecorded/FrameSize); - - // Send buffer back to capture more data - waveInAddBuffer(pData->hWaveHandle.In,pWaveHdr,sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - // Signal Wave Thread completed event - if(pData->hWaveThreadEvent) - SetEvent(pData->hWaveThreadEvent); - - ExitThread(0); - - return 0; -} - - -static ALCboolean WinMMOpenPlayback(ALCdevice *pDevice, const ALCchar *deviceName) -{ - WAVEFORMATEX wfexFormat; - WinMMData *pData = NULL; - UINT lDeviceID = 0; - MMRESULT res; - ALuint i = 0; - - // Find the Device ID matching the deviceName if valid - if(!deviceName || strcmp(deviceName, woDefault) == 0) - lDeviceID = WAVE_MAPPER; - else - { - if(!PlaybackDeviceList) - ProbePlaybackDevices(); - - for(i = 0;i < NumPlaybackDevices;i++) - { - if(PlaybackDeviceList[i] && - strcmp(deviceName, PlaybackDeviceList[i]) == 0) - { - lDeviceID = i; - break; - } - } - if(i == NumPlaybackDevices) - return ALC_FALSE; - } - - pData = calloc(1, sizeof(*pData)); - if(!pData) - { - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - pDevice->ExtraData = pData; - - if(pDevice->FmtChans != DevFmtMono) - pDevice->FmtChans = DevFmtStereo; - switch(pDevice->FmtType) - { - case DevFmtByte: - pDevice->FmtType = DevFmtUByte; - break; - case DevFmtUShort: - case DevFmtFloat: - pDevice->FmtType = DevFmtShort; - break; - case DevFmtUByte: - case DevFmtShort: - break; - } - - memset(&wfexFormat, 0, sizeof(WAVEFORMATEX)); - wfexFormat.wFormatTag = WAVE_FORMAT_PCM; - wfexFormat.nChannels = ChannelsFromDevFmt(pDevice->FmtChans); - wfexFormat.wBitsPerSample = BytesFromDevFmt(pDevice->FmtType) * 8; - wfexFormat.nBlockAlign = wfexFormat.wBitsPerSample * - wfexFormat.nChannels / 8; - wfexFormat.nSamplesPerSec = pDevice->Frequency; - wfexFormat.nAvgBytesPerSec = wfexFormat.nSamplesPerSec * - wfexFormat.nBlockAlign; - wfexFormat.cbSize = 0; - - if((res=waveOutOpen(&pData->hWaveHandle.Out, lDeviceID, &wfexFormat, (DWORD_PTR)&WaveOutProc, (DWORD_PTR)pDevice, CALLBACK_FUNCTION)) != MMSYSERR_NOERROR) - { - AL_PRINT("waveInOpen failed: %u\n", res); - goto failure; - } - - pData->hWaveHdrEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveOutAllHeadersReturned"); - pData->hWaveThreadEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveOutThreadDestroyed"); - if(pData->hWaveHdrEvent == NULL || pData->hWaveThreadEvent == NULL) - { - AL_PRINT("CreateEvent failed: %lu\n", GetLastError()); - goto failure; - } - - pData->Frequency = pDevice->Frequency; - - pDevice->szDeviceName = strdup((lDeviceID==WAVE_MAPPER) ? woDefault : - PlaybackDeviceList[lDeviceID]); - return ALC_TRUE; - -failure: - if(pData->hWaveThreadEvent) - CloseHandle(pData->hWaveThreadEvent); - if(pData->hWaveHdrEvent) - CloseHandle(pData->hWaveHdrEvent); - - if(pData->hWaveHandle.Out) - waveOutClose(pData->hWaveHandle.Out); - - free(pData); - pDevice->ExtraData = NULL; - return ALC_FALSE; -} - -static void WinMMClosePlayback(ALCdevice *device) -{ - WinMMData *pData = (WinMMData*)device->ExtraData; - - // Close the Wave device - CloseHandle(pData->hWaveThreadEvent); - pData->hWaveThreadEvent = 0; - - CloseHandle(pData->hWaveHdrEvent); - pData->hWaveHdrEvent = 0; - - waveInClose(pData->hWaveHandle.In); - pData->hWaveHandle.In = 0; - - free(pData); - device->ExtraData = NULL; -} - -static ALCboolean WinMMResetPlayback(ALCdevice *device) -{ - WinMMData *pData = (WinMMData*)device->ExtraData; - ALbyte *BufferData; - ALint lBufferSize; - ALuint i; - - pData->hWaveThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)PlaybackThreadProc, (LPVOID)device, 0, &pData->ulWaveThreadID); - if(pData->hWaveThread == NULL) - return ALC_FALSE; - - device->UpdateSize = (ALuint)((ALuint64)device->UpdateSize * - pData->Frequency / device->Frequency); - device->Frequency = pData->Frequency; - - pData->lWaveBuffersCommitted = 0; - - // Create 4 Buffers - lBufferSize = device->UpdateSize*device->NumUpdates / 4; - lBufferSize *= FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - - BufferData = calloc(4, lBufferSize); - for(i = 0;i < 4;i++) - { - memset(&pData->WaveBuffer[i], 0, sizeof(WAVEHDR)); - pData->WaveBuffer[i].dwBufferLength = lBufferSize; - pData->WaveBuffer[i].lpData = ((i==0) ? (LPSTR)BufferData : - (pData->WaveBuffer[i-1].lpData + - pData->WaveBuffer[i-1].dwBufferLength)); - waveOutPrepareHeader(pData->hWaveHandle.Out, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - waveOutWrite(pData->hWaveHandle.Out, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - return ALC_TRUE; -} - -static void WinMMStopPlayback(ALCdevice *device) -{ - WinMMData *pData = (WinMMData*)device->ExtraData; - int i; - - if(pData->hWaveThread == NULL) - return; - - // Set flag to stop processing headers - pData->bWaveShutdown = AL_TRUE; - - // Wait for signal that all Wave Buffers have returned - WaitForSingleObjectEx(pData->hWaveHdrEvent, 5000, FALSE); - - // Wait for signal that Wave Thread has been destroyed - WaitForSingleObjectEx(pData->hWaveThreadEvent, 5000, FALSE); - - CloseHandle(pData->hWaveThread); - pData->hWaveThread = 0; - - pData->bWaveShutdown = AL_FALSE; - - // Release the wave buffers - for(i = 0;i < 4;i++) - { - waveOutUnprepareHeader(pData->hWaveHandle.Out, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - if(i == 0) - free(pData->WaveBuffer[i].lpData); - pData->WaveBuffer[i].lpData = NULL; - } -} - - -static ALCboolean WinMMOpenCapture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - WAVEFORMATEX wfexCaptureFormat; - DWORD ulCapturedDataSize; - WinMMData *pData = NULL; - UINT lDeviceID = 0; - ALbyte *BufferData; - ALint lBufferSize; - MMRESULT res; - ALuint i; - - if(!CaptureDeviceList) - ProbeCaptureDevices(); - - // Find the Device ID matching the deviceName if valid - if(deviceName) - { - for(i = 0;i < NumCaptureDevices;i++) - { - if(CaptureDeviceList[i] && - strcmp(deviceName, CaptureDeviceList[i]) == 0) - { - lDeviceID = i; - break; - } - } - } - else - { - for(i = 0;i < NumCaptureDevices;i++) - { - if(CaptureDeviceList[i]) - { - lDeviceID = i; - break; - } - } - } - if(i == NumCaptureDevices) - return ALC_FALSE; - - pData = calloc(1, sizeof(*pData)); - if(!pData) - { - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - pDevice->ExtraData = pData; - - if((pDevice->FmtChans != DevFmtMono && pDevice->FmtChans != DevFmtStereo) || - (pDevice->FmtType != DevFmtUByte && pDevice->FmtType != DevFmtShort)) - { - alcSetError(pDevice, ALC_INVALID_ENUM); - goto failure; - } - - memset(&wfexCaptureFormat, 0, sizeof(WAVEFORMATEX)); - wfexCaptureFormat.wFormatTag = WAVE_FORMAT_PCM; - wfexCaptureFormat.nChannels = ChannelsFromDevFmt(pDevice->FmtChans); - wfexCaptureFormat.wBitsPerSample = BytesFromDevFmt(pDevice->FmtType) * 8; - wfexCaptureFormat.nBlockAlign = wfexCaptureFormat.wBitsPerSample * - wfexCaptureFormat.nChannels / 8; - wfexCaptureFormat.nSamplesPerSec = pDevice->Frequency; - wfexCaptureFormat.nAvgBytesPerSec = wfexCaptureFormat.nSamplesPerSec * - wfexCaptureFormat.nBlockAlign; - wfexCaptureFormat.cbSize = 0; - - if((res=waveInOpen(&pData->hWaveHandle.In, lDeviceID, &wfexCaptureFormat, (DWORD_PTR)&WaveInProc, (DWORD_PTR)pDevice, CALLBACK_FUNCTION)) != MMSYSERR_NOERROR) - { - AL_PRINT("waveInOpen failed: %u\n", res); - goto failure; - } - - pData->hWaveHdrEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveInAllHeadersReturned"); - pData->hWaveThreadEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveInThreadDestroyed"); - if(pData->hWaveHdrEvent == NULL || pData->hWaveThreadEvent == NULL) - { - AL_PRINT("CreateEvent failed: %lu\n", GetLastError()); - goto failure; - } - - pData->Frequency = pDevice->Frequency; - - // Allocate circular memory buffer for the captured audio - ulCapturedDataSize = pDevice->UpdateSize*pDevice->NumUpdates; - - // Make sure circular buffer is at least 100ms in size - if(ulCapturedDataSize < (wfexCaptureFormat.nSamplesPerSec / 10)) - ulCapturedDataSize = wfexCaptureFormat.nSamplesPerSec / 10; - - pData->pRing = CreateRingBuffer(wfexCaptureFormat.nBlockAlign, ulCapturedDataSize); - if(!pData->pRing) - goto failure; - - pData->lWaveBuffersCommitted = 0; - - // Create 4 Buffers of 50ms each - lBufferSize = wfexCaptureFormat.nAvgBytesPerSec / 20; - lBufferSize -= (lBufferSize % wfexCaptureFormat.nBlockAlign); - - BufferData = calloc(4, lBufferSize); - if(!BufferData) - goto failure; - - for(i = 0;i < 4;i++) - { - memset(&pData->WaveBuffer[i], 0, sizeof(WAVEHDR)); - pData->WaveBuffer[i].dwBufferLength = lBufferSize; - pData->WaveBuffer[i].lpData = ((i==0) ? (LPSTR)BufferData : - (pData->WaveBuffer[i-1].lpData + - pData->WaveBuffer[i-1].dwBufferLength)); - pData->WaveBuffer[i].dwFlags = 0; - pData->WaveBuffer[i].dwLoops = 0; - waveInPrepareHeader(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - waveInAddBuffer(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - pData->hWaveThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)CaptureThreadProc, (LPVOID)pDevice, 0, &pData->ulWaveThreadID); - if (pData->hWaveThread == NULL) - goto failure; - - pDevice->szDeviceName = strdup(CaptureDeviceList[lDeviceID]); - return ALC_TRUE; - -failure: - if(pData->hWaveThread) - CloseHandle(pData->hWaveThread); - - for(i = 0;i < 4;i++) - { - if(pData->WaveBuffer[i].lpData) - { - waveInUnprepareHeader(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - if(i == 0) - free(pData->WaveBuffer[i].lpData); - } - } - - if(pData->pRing) - DestroyRingBuffer(pData->pRing); - - if(pData->hWaveThreadEvent) - CloseHandle(pData->hWaveThreadEvent); - if(pData->hWaveHdrEvent) - CloseHandle(pData->hWaveHdrEvent); - - if(pData->hWaveHandle.In) - waveInClose(pData->hWaveHandle.In); - - free(pData); - pDevice->ExtraData = NULL; - return ALC_FALSE; -} - -static void WinMMCloseCapture(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - int i; - - // Call waveOutReset to shutdown wave device - pData->bWaveShutdown = AL_TRUE; - waveInReset(pData->hWaveHandle.In); - - // Wait for signal that all Wave Buffers have returned - WaitForSingleObjectEx(pData->hWaveHdrEvent, 5000, FALSE); - - // Wait for signal that Wave Thread has been destroyed - WaitForSingleObjectEx(pData->hWaveThreadEvent, 5000, FALSE); - - CloseHandle(pData->hWaveThread); - pData->hWaveThread = 0; - - // Release the wave buffers - for(i = 0;i < 4;i++) - { - waveInUnprepareHeader(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - if(i == 0) - free(pData->WaveBuffer[i].lpData); - pData->WaveBuffer[i].lpData = NULL; - } - - DestroyRingBuffer(pData->pRing); - pData->pRing = NULL; - - // Close the Wave device - CloseHandle(pData->hWaveThreadEvent); - pData->hWaveThreadEvent = 0; - - CloseHandle(pData->hWaveHdrEvent); - pData->hWaveHdrEvent = 0; - - waveInClose(pData->hWaveHandle.In); - pData->hWaveHandle.In = 0; - - free(pData); - pDevice->ExtraData = NULL; -} - -static void WinMMStartCapture(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - waveInStart(pData->hWaveHandle.In); -} - -static void WinMMStopCapture(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - waveInStop(pData->hWaveHandle.In); -} - -static ALCuint WinMMAvailableSamples(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - return RingBufferSize(pData->pRing); -} - -static void WinMMCaptureSamples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - - if(WinMMAvailableSamples(pDevice) >= lSamples) - ReadRingBuffer(pData->pRing, pBuffer, lSamples); - else - alcSetError(pDevice, ALC_INVALID_VALUE); -} - - -static BackendFuncs WinMMFuncs = { - WinMMOpenPlayback, - WinMMClosePlayback, - WinMMResetPlayback, - WinMMStopPlayback, - WinMMOpenCapture, - WinMMCloseCapture, - WinMMStartCapture, - WinMMStopCapture, - WinMMCaptureSamples, - WinMMAvailableSamples -}; - -void alcWinMMInit(BackendFuncs *FuncList) -{ - *FuncList = WinMMFuncs; -} - -void alcWinMMDeinit() -{ - ALuint lLoop; - - for(lLoop = 0;lLoop < NumPlaybackDevices;lLoop++) - free(PlaybackDeviceList[lLoop]); - free(PlaybackDeviceList); - PlaybackDeviceList = NULL; - - NumPlaybackDevices = 0; - - - for(lLoop = 0; lLoop < NumCaptureDevices; lLoop++) - free(CaptureDeviceList[lLoop]); - free(CaptureDeviceList); - CaptureDeviceList = NULL; - - NumCaptureDevices = 0; -} - -void alcWinMMProbe(int type) -{ - ALuint i; - - if(type == DEVICE_PROBE) - { - ProbePlaybackDevices(); - if(NumPlaybackDevices > 0) - AppendDeviceList(woDefault); - } - else if(type == ALL_DEVICE_PROBE) - { - ProbePlaybackDevices(); - if(NumPlaybackDevices > 0) - AppendAllDeviceList(woDefault); - for(i = 0;i < NumPlaybackDevices;i++) - { - if(PlaybackDeviceList[i]) - AppendAllDeviceList(PlaybackDeviceList[i]); - } - } - else if(type == CAPTURE_DEVICE_PROBE) - { - ProbeCaptureDevices(); - for(i = 0;i < NumCaptureDevices;i++) - { - if(CaptureDeviceList[i]) - AppendCaptureDeviceList(CaptureDeviceList[i]); - } - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/Makefile b/internal/c/parts/audio/out/android/OpenAL/Makefile deleted file mode 100644 index 1f84440d3..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/Makefile +++ /dev/null @@ -1,5 +0,0 @@ -ROOTDIR = ../.. -TARGET = System/OpenAL -DEPS = - -include $(ROOTDIR)/library.mk diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/al.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/al.h deleted file mode 100644 index e084b3ed3..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/al.h +++ /dev/null @@ -1,825 +0,0 @@ -#ifndef AL_AL_H -#define AL_AL_H - -#ifdef ANDROID -#include -#ifndef LOGI -#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,"OpenAL",__VA_ARGS__) -#endif -#ifndef LOGE -#define LOGE(...) __android_log_print(ANDROID_LOG_ERROR,"OpenAL",__VA_ARGS__) -#endif -#endif - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define AL_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define AL_API __declspec(dllexport) - #else - #define AL_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define AL_API __attribute__((visibility("protected"))) - #else - #define AL_API extern - #endif -#endif - -#if defined(_WIN32) - #define AL_APIENTRY __cdecl -#else - #define AL_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The OPENAL, ALAPI, ALAPIENTRY, AL_INVALID, AL_ILLEGAL_ENUM, and - * AL_ILLEGAL_COMMAND macros are deprecated, but are included for - * applications porting code from AL 1.0 - */ -#define OPENAL -#define ALAPI AL_API -#define ALAPIENTRY AL_APIENTRY -#define AL_INVALID (-1) -#define AL_ILLEGAL_ENUM AL_INVALID_ENUM -#define AL_ILLEGAL_COMMAND AL_INVALID_OPERATION - -#define AL_VERSION_1_0 -#define AL_VERSION_1_1 - - -/** 8-bit boolean */ -typedef char ALboolean; - -/** character */ -typedef char ALchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALsizei; - -/** enumerated 32-bit value */ -typedef int ALenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALdouble; - -#ifdef OPENAL_FIXED_POINT -/* Apportable tries to define int64_t and int32_t if it thinks it is needed. - * But this is breaking in a complex project involving both pure C and C++ - * something is triggering redefinition errors. The workaround seems to be just using stdint.h. - */ -#include -/** Types and Macros for fixed-point math */ -#ifndef INT64_MAX -typedef long long int64_t; -#define INT64_MAX 9223372036854775807LL - -#endif -#ifndef INT32_MAX -typedef int int32_t; -#define INT32_MAX 2147483647 -#endif - -// FIXME(apportable) make this int32_t -typedef int64_t ALfp; -typedef int64_t ALdfp; - -#define ONE (1<=0 ? 0.5 : -0.5))) -#define ALfp2float(x) ((float)(x) / (1<=0 ? 0.5 : -0.5))) -#define ALdfp2double(x) ((double)(x) / (1<> OPENAL_FIXED_POINT_SHIFT)) - -#define int2ALdfp(x) ((ALdfp)(x) << OPENAL_FIXED_POINT_SHIFT) -#define ALdfp2int(x) ((ALint)((x) >> OPENAL_FIXED_POINT_SHIFT)) - -#define ALfpMult(x,y) ((ALfp)((((int64_t)(x))*((int64_t)(y)))>>OPENAL_FIXED_POINT_SHIFT)) -#define ALfpDiv(x,y) ((ALfp)(((int64_t)(x) << OPENAL_FIXED_POINT_SHIFT) / (y))) - -#define ALdfpMult(x,y) ALfpMult(x,y) -#define ALdfpDiv(x,y) ALfpDiv(x,y) - -#define __isnan(x) (0) -#define __cos(x) (float2ALfp(cos(ALfp2float(x)))) -#define __sin(x) (float2ALfp(sin(ALfp2float(x)))) -#define __log10(x) (float2ALfp(log10(ALfp2float(x)))) -#define __atan(x) (float2ALfp(atan(ALfp2float(x)))) - -#define toALfpConst(x) ((x)*(1< Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(ANDROID) -/* - * OpenAL extension for suspend/resume of audio throughout application lifecycle - */ -ALC_API void ALC_APIENTRY alcSuspend( void ); -ALC_API void ALC_APIENTRY alcResume( void ); -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/alext.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/alext.h deleted file mode 100644 index f3c7bcae8..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/alext.h +++ /dev/null @@ -1,165 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2008 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifndef AL_ALEXT_H -#define AL_ALEXT_H - -#include - -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef AL_LOKI_IMA_ADPCM_format -#define AL_LOKI_IMA_ADPCM_format 1 -#define AL_FORMAT_IMA_ADPCM_MONO16_EXT 0x10000 -#define AL_FORMAT_IMA_ADPCM_STEREO16_EXT 0x10001 -#endif - -#ifndef AL_LOKI_WAVE_format -#define AL_LOKI_WAVE_format 1 -#define AL_FORMAT_WAVE_EXT 0x10002 -#endif - -#ifndef AL_EXT_vorbis -#define AL_EXT_vorbis 1 -#define AL_FORMAT_VORBIS_EXT 0x10003 -#endif - -#ifndef AL_LOKI_quadriphonic -#define AL_LOKI_quadriphonic 1 -#define AL_FORMAT_QUAD8_LOKI 0x10004 -#define AL_FORMAT_QUAD16_LOKI 0x10005 -#endif - -#ifndef AL_EXT_float32 -#define AL_EXT_float32 1 -#define AL_FORMAT_MONO_FLOAT32 0x10010 -#define AL_FORMAT_STEREO_FLOAT32 0x10011 -#endif - -#ifndef AL_EXT_double -#define AL_EXT_double 1 -#define AL_FORMAT_MONO_DOUBLE_EXT 0x10012 -#define AL_FORMAT_STEREO_DOUBLE_EXT 0x10013 -#endif - -#ifndef ALC_LOKI_audio_channel -#define ALC_LOKI_audio_channel 1 -#define ALC_CHAN_MAIN_LOKI 0x500001 -#define ALC_CHAN_PCM_LOKI 0x500002 -#define ALC_CHAN_CD_LOKI 0x500003 -#endif - -#ifndef ALC_ENUMERATE_ALL_EXT -#define ALC_ENUMERATE_ALL_EXT 1 -#define ALC_DEFAULT_ALL_DEVICES_SPECIFIER 0x1012 -#define ALC_ALL_DEVICES_SPECIFIER 0x1013 -#endif - -#ifndef AL_EXT_MCFORMATS -#define AL_EXT_MCFORMATS 1 -#define AL_FORMAT_QUAD8 0x1204 -#define AL_FORMAT_QUAD16 0x1205 -#define AL_FORMAT_QUAD32 0x1206 -#define AL_FORMAT_REAR8 0x1207 -#define AL_FORMAT_REAR16 0x1208 -#define AL_FORMAT_REAR32 0x1209 -#define AL_FORMAT_51CHN8 0x120A -#define AL_FORMAT_51CHN16 0x120B -#define AL_FORMAT_51CHN32 0x120C -#define AL_FORMAT_61CHN8 0x120D -#define AL_FORMAT_61CHN16 0x120E -#define AL_FORMAT_61CHN32 0x120F -#define AL_FORMAT_71CHN8 0x1210 -#define AL_FORMAT_71CHN16 0x1211 -#define AL_FORMAT_71CHN32 0x1212 -#endif - -#ifndef AL_EXT_MULAW_MCFORMATS -#define AL_EXT_MULAW_MCFORMATS 1 -#define AL_FORMAT_MONO_MULAW 0x10014 -#define AL_FORMAT_STEREO_MULAW 0x10015 -#define AL_FORMAT_QUAD_MULAW 0x10021 -#define AL_FORMAT_REAR_MULAW 0x10022 -#define AL_FORMAT_51CHN_MULAW 0x10023 -#define AL_FORMAT_61CHN_MULAW 0x10024 -#define AL_FORMAT_71CHN_MULAW 0x10025 -#endif - -#ifndef AL_EXT_IMA4 -#define AL_EXT_IMA4 1 -#define AL_FORMAT_MONO_IMA4 0x1300 -#define AL_FORMAT_STEREO_IMA4 0x1301 -#endif - -#ifndef AL_EXT_STATIC_BUFFER -#define AL_EXT_STATIC_BUFFER 1 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERDATASTATICPROC)(const ALint,ALenum,ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferDataStatic(const ALint buffer, ALenum format, ALvoid *data, ALsizei len, ALsizei freq); -#endif -#endif - -#ifndef ALC_EXT_EFX -#define ALC_EXT_EFX 1 -#include "efx.h" -#endif - -#ifndef ALC_EXT_disconnect -#define ALC_EXT_disconnect 1 -#define ALC_CONNECTED 0x313 -#endif - -#ifndef ALC_EXT_thread_local_context -#define ALC_EXT_thread_local_context 1 -typedef ALCboolean (ALC_APIENTRY*PFNALCSETTHREADCONTEXTPROC)(ALCcontext *context); -typedef ALCcontext* (ALC_APIENTRY*PFNALCGETTHREADCONTEXTPROC)(void); -#ifdef AL_ALEXT_PROTOTYPES -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context); -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void); -#endif -#endif - -#ifndef AL_EXT_source_distance_model -#define AL_EXT_source_distance_model 1 -#define AL_SOURCE_DISTANCE_MODEL 0x200 -#endif - -#ifndef AL_SOFT_buffer_sub_data -#define AL_SOFT_buffer_sub_data 1 -#define AL_BYTE_RW_OFFSETS_SOFT 0x1031 -#define AL_SAMPLE_RW_OFFSETS_SOFT 0x1032 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERSUBDATASOFTPROC)(ALuint,ALenum,const ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length); -#endif -#endif - -#ifndef AL_SOFT_loop_points -#define AL_SOFT_loop_points 1 -#define AL_LOOP_POINTS_SOFT 0x2015 -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/efx-creative.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/efx-creative.h deleted file mode 100644 index 0a04c982e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/efx-creative.h +++ /dev/null @@ -1,3 +0,0 @@ -/* The tokens that would be defined here are already defined in efx.h. This - * empty file is here to provide compatibility with Windows-based projects - * that would include it. */ diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/efx.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/efx.h deleted file mode 100644 index 0ccef95d6..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/efx.h +++ /dev/null @@ -1,758 +0,0 @@ -#ifndef AL_EFX_H -#define AL_EFX_H - - -#ifdef __cplusplus -extern "C" { -#endif - -#define ALC_EXT_EFX_NAME "ALC_EXT_EFX" - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - - -/* Listener properties. */ -#define AL_METERS_PER_UNIT 0x20004 - -/* Source properties. */ -#define AL_DIRECT_FILTER 0x20005 -#define AL_AUXILIARY_SEND_FILTER 0x20006 -#define AL_AIR_ABSORPTION_FACTOR 0x20007 -#define AL_ROOM_ROLLOFF_FACTOR 0x20008 -#define AL_CONE_OUTER_GAINHF 0x20009 -#define AL_DIRECT_FILTER_GAINHF_AUTO 0x2000A -#define AL_AUXILIARY_SEND_FILTER_GAIN_AUTO 0x2000B -#define AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO 0x2000C - - -/* Effect properties. */ - -/* Reverb effect parameters */ -#define AL_REVERB_DENSITY 0x0001 -#define AL_REVERB_DIFFUSION 0x0002 -#define AL_REVERB_GAIN 0x0003 -#define AL_REVERB_GAINHF 0x0004 -#define AL_REVERB_DECAY_TIME 0x0005 -#define AL_REVERB_DECAY_HFRATIO 0x0006 -#define AL_REVERB_REFLECTIONS_GAIN 0x0007 -#define AL_REVERB_REFLECTIONS_DELAY 0x0008 -#define AL_REVERB_LATE_REVERB_GAIN 0x0009 -#define AL_REVERB_LATE_REVERB_DELAY 0x000A -#define AL_REVERB_AIR_ABSORPTION_GAINHF 0x000B -#define AL_REVERB_ROOM_ROLLOFF_FACTOR 0x000C -#define AL_REVERB_DECAY_HFLIMIT 0x000D - -/* EAX Reverb effect parameters */ -#define AL_EAXREVERB_DENSITY 0x0001 -#define AL_EAXREVERB_DIFFUSION 0x0002 -#define AL_EAXREVERB_GAIN 0x0003 -#define AL_EAXREVERB_GAINHF 0x0004 -#define AL_EAXREVERB_GAINLF 0x0005 -#define AL_EAXREVERB_DECAY_TIME 0x0006 -#define AL_EAXREVERB_DECAY_HFRATIO 0x0007 -#define AL_EAXREVERB_DECAY_LFRATIO 0x0008 -#define AL_EAXREVERB_REFLECTIONS_GAIN 0x0009 -#define AL_EAXREVERB_REFLECTIONS_DELAY 0x000A -#define AL_EAXREVERB_REFLECTIONS_PAN 0x000B -#define AL_EAXREVERB_LATE_REVERB_GAIN 0x000C -#define AL_EAXREVERB_LATE_REVERB_DELAY 0x000D -#define AL_EAXREVERB_LATE_REVERB_PAN 0x000E -#define AL_EAXREVERB_ECHO_TIME 0x000F -#define AL_EAXREVERB_ECHO_DEPTH 0x0010 -#define AL_EAXREVERB_MODULATION_TIME 0x0011 -#define AL_EAXREVERB_MODULATION_DEPTH 0x0012 -#define AL_EAXREVERB_AIR_ABSORPTION_GAINHF 0x0013 -#define AL_EAXREVERB_HFREFERENCE 0x0014 -#define AL_EAXREVERB_LFREFERENCE 0x0015 -#define AL_EAXREVERB_ROOM_ROLLOFF_FACTOR 0x0016 -#define AL_EAXREVERB_DECAY_HFLIMIT 0x0017 - -/* Chorus effect parameters */ -#define AL_CHORUS_WAVEFORM 0x0001 -#define AL_CHORUS_PHASE 0x0002 -#define AL_CHORUS_RATE 0x0003 -#define AL_CHORUS_DEPTH 0x0004 -#define AL_CHORUS_FEEDBACK 0x0005 -#define AL_CHORUS_DELAY 0x0006 - -/* Distortion effect parameters */ -#define AL_DISTORTION_EDGE 0x0001 -#define AL_DISTORTION_GAIN 0x0002 -#define AL_DISTORTION_LOWPASS_CUTOFF 0x0003 -#define AL_DISTORTION_EQCENTER 0x0004 -#define AL_DISTORTION_EQBANDWIDTH 0x0005 - -/* Echo effect parameters */ -#define AL_ECHO_DELAY 0x0001 -#define AL_ECHO_LRDELAY 0x0002 -#define AL_ECHO_DAMPING 0x0003 -#define AL_ECHO_FEEDBACK 0x0004 -#define AL_ECHO_SPREAD 0x0005 - -/* Flanger effect parameters */ -#define AL_FLANGER_WAVEFORM 0x0001 -#define AL_FLANGER_PHASE 0x0002 -#define AL_FLANGER_RATE 0x0003 -#define AL_FLANGER_DEPTH 0x0004 -#define AL_FLANGER_FEEDBACK 0x0005 -#define AL_FLANGER_DELAY 0x0006 - -/* Frequency shifter effect parameters */ -#define AL_FREQUENCY_SHIFTER_FREQUENCY 0x0001 -#define AL_FREQUENCY_SHIFTER_LEFT_DIRECTION 0x0002 -#define AL_FREQUENCY_SHIFTER_RIGHT_DIRECTION 0x0003 - -/* Vocal morpher effect parameters */ -#define AL_VOCAL_MORPHER_PHONEMEA 0x0001 -#define AL_VOCAL_MORPHER_PHONEMEA_COARSE_TUNING 0x0002 -#define AL_VOCAL_MORPHER_PHONEMEB 0x0003 -#define AL_VOCAL_MORPHER_PHONEMEB_COARSE_TUNING 0x0004 -#define AL_VOCAL_MORPHER_WAVEFORM 0x0005 -#define AL_VOCAL_MORPHER_RATE 0x0006 - -/* Pitchshifter effect parameters */ -#define AL_PITCH_SHIFTER_COARSE_TUNE 0x0001 -#define AL_PITCH_SHIFTER_FINE_TUNE 0x0002 - -/* Ringmodulator effect parameters */ -#define AL_RING_MODULATOR_FREQUENCY 0x0001 -#define AL_RING_MODULATOR_HIGHPASS_CUTOFF 0x0002 -#define AL_RING_MODULATOR_WAVEFORM 0x0003 - -/* Autowah effect parameters */ -#define AL_AUTOWAH_ATTACK_TIME 0x0001 -#define AL_AUTOWAH_RELEASE_TIME 0x0002 -#define AL_AUTOWAH_RESONANCE 0x0003 -#define AL_AUTOWAH_PEAK_GAIN 0x0004 - -/* Compressor effect parameters */ -#define AL_COMPRESSOR_ONOFF 0x0001 - -/* Equalizer effect parameters */ -#define AL_EQUALIZER_LOW_GAIN 0x0001 -#define AL_EQUALIZER_LOW_CUTOFF 0x0002 -#define AL_EQUALIZER_MID1_GAIN 0x0003 -#define AL_EQUALIZER_MID1_CENTER 0x0004 -#define AL_EQUALIZER_MID1_WIDTH 0x0005 -#define AL_EQUALIZER_MID2_GAIN 0x0006 -#define AL_EQUALIZER_MID2_CENTER 0x0007 -#define AL_EQUALIZER_MID2_WIDTH 0x0008 -#define AL_EQUALIZER_HIGH_GAIN 0x0009 -#define AL_EQUALIZER_HIGH_CUTOFF 0x000A - -/* Effect type */ -#define AL_EFFECT_FIRST_PARAMETER 0x0000 -#define AL_EFFECT_LAST_PARAMETER 0x8000 -#define AL_EFFECT_TYPE 0x8001 - -/* Effect types, used with the AL_EFFECT_TYPE property */ -#define AL_EFFECT_NULL 0x0000 -#define AL_EFFECT_REVERB 0x0001 -#define AL_EFFECT_CHORUS 0x0002 -#define AL_EFFECT_DISTORTION 0x0003 -#define AL_EFFECT_ECHO 0x0004 -#define AL_EFFECT_FLANGER 0x0005 -#define AL_EFFECT_FREQUENCY_SHIFTER 0x0006 -#define AL_EFFECT_VOCAL_MORPHER 0x0007 -#define AL_EFFECT_PITCH_SHIFTER 0x0008 -#define AL_EFFECT_RING_MODULATOR 0x0009 -#define AL_EFFECT_AUTOWAH 0x000A -#define AL_EFFECT_COMPRESSOR 0x000B -#define AL_EFFECT_EQUALIZER 0x000C -#define AL_EFFECT_EAXREVERB 0x8000 - -/* Auxiliary Effect Slot properties. */ -#define AL_EFFECTSLOT_EFFECT 0x0001 -#define AL_EFFECTSLOT_GAIN 0x0002 -#define AL_EFFECTSLOT_AUXILIARY_SEND_AUTO 0x0003 - -/* NULL Auxiliary Slot ID to disable a source send. */ -#define AL_EFFECTSLOT_NULL 0x0000 - - -/* Filter properties. */ - -/* Lowpass filter parameters */ -#define AL_LOWPASS_GAIN 0x0001 -#define AL_LOWPASS_GAINHF 0x0002 - -/* Highpass filter parameters */ -#define AL_HIGHPASS_GAIN 0x0001 -#define AL_HIGHPASS_GAINLF 0x0002 - -/* Bandpass filter parameters */ -#define AL_BANDPASS_GAIN 0x0001 -#define AL_BANDPASS_GAINLF 0x0002 -#define AL_BANDPASS_GAINHF 0x0003 - -/* Filter type */ -#define AL_FILTER_FIRST_PARAMETER 0x0000 -#define AL_FILTER_LAST_PARAMETER 0x8000 -#define AL_FILTER_TYPE 0x8001 - -/* Filter types, used with the AL_FILTER_TYPE property */ -#define AL_FILTER_NULL 0x0000 -#define AL_FILTER_LOWPASS 0x0001 -#define AL_FILTER_HIGHPASS 0x0002 -#define AL_FILTER_BANDPASS 0x0003 - - -/* Effect object function types. */ -typedef void (AL_APIENTRY *LPALGENEFFECTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEEFFECTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISEFFECT)(ALuint); -typedef void (AL_APIENTRY *LPALEFFECTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALEFFECTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALEFFECTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTFV)(ALuint, ALenum, ALfloat*); - -/* Filter object function types. */ -typedef void (AL_APIENTRY *LPALGENFILTERS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEFILTERS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISFILTER)(ALuint); -typedef void (AL_APIENTRY *LPALFILTERI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALFILTERF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALFILTERFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERFV)(ALuint, ALenum, ALfloat*); - -/* Auxiliary Effect Slot object function types. */ -typedef void (AL_APIENTRY *LPALGENAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISAUXILIARYEFFECTSLOT)(ALuint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); - -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects); -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects); -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect); -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters); -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters); -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter); -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -#endif - -/* Filter ranges and defaults. */ - -/* Lowpass filter */ -#define LOWPASS_MIN_GAIN (0.0f) -#define LOWPASS_MAX_GAIN (1.0f) -#define LOWPASS_DEFAULT_GAIN (1.0f) - -#define LOWPASS_MIN_GAINHF (0.0f) -#define LOWPASS_MAX_GAINHF (1.0f) -#define LOWPASS_DEFAULT_GAINHF (1.0f) - -/* Highpass filter */ -#define HIGHPASS_MIN_GAIN (0.0f) -#define HIGHPASS_MAX_GAIN (1.0f) -#define HIGHPASS_DEFAULT_GAIN (1.0f) - -#define HIGHPASS_MIN_GAINLF (0.0f) -#define HIGHPASS_MAX_GAINLF (1.0f) -#define HIGHPASS_DEFAULT_GAINLF (1.0f) - -/* Bandpass filter */ -#define BANDPASS_MIN_GAIN (0.0f) -#define BANDPASS_MAX_GAIN (1.0f) -#define BANDPASS_DEFAULT_GAIN (1.0f) - -#define BANDPASS_MIN_GAINHF (0.0f) -#define BANDPASS_MAX_GAINHF (1.0f) -#define BANDPASS_DEFAULT_GAINHF (1.0f) - -#define BANDPASS_MIN_GAINLF (0.0f) -#define BANDPASS_MAX_GAINLF (1.0f) -#define BANDPASS_DEFAULT_GAINLF (1.0f) - - -/* Effect parameter ranges and defaults. */ - -/* Standard reverb effect */ -#define AL_REVERB_MIN_DENSITY (0.0f) -#define AL_REVERB_MAX_DENSITY (1.0f) -#define AL_REVERB_DEFAULT_DENSITY (1.0f) - -#define AL_REVERB_MIN_DIFFUSION (0.0f) -#define AL_REVERB_MAX_DIFFUSION (1.0f) -#define AL_REVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_REVERB_MIN_GAIN (0.0f) -#define AL_REVERB_MAX_GAIN (1.0f) -#define AL_REVERB_DEFAULT_GAIN (0.32f) - -#define AL_REVERB_MIN_GAINHF (0.0f) -#define AL_REVERB_MAX_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_GAINHF (0.89f) - -#define AL_REVERB_MIN_DECAY_TIME (0.1f) -#define AL_REVERB_MAX_DECAY_TIME (20.0f) -#define AL_REVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_REVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_REVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_REVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_REVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_REVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_REVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_REVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_REVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_REVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_REVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_REVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_REVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_REVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_REVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_REVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_REVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_REVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* EAX reverb effect */ -#define AL_EAXREVERB_MIN_DENSITY (0.0f) -#define AL_EAXREVERB_MAX_DENSITY (1.0f) -#define AL_EAXREVERB_DEFAULT_DENSITY (1.0f) - -#define AL_EAXREVERB_MIN_DIFFUSION (0.0f) -#define AL_EAXREVERB_MAX_DIFFUSION (1.0f) -#define AL_EAXREVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_EAXREVERB_MIN_GAIN (0.0f) -#define AL_EAXREVERB_MAX_GAIN (1.0f) -#define AL_EAXREVERB_DEFAULT_GAIN (0.32f) - -#define AL_EAXREVERB_MIN_GAINHF (0.0f) -#define AL_EAXREVERB_MAX_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINHF (0.89f) - -#define AL_EAXREVERB_MIN_GAINLF (0.0f) -#define AL_EAXREVERB_MAX_GAINLF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINLF (1.0f) - -#define AL_EAXREVERB_MIN_DECAY_TIME (0.1f) -#define AL_EAXREVERB_MAX_DECAY_TIME (20.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_EAXREVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_EAXREVERB_MIN_DECAY_LFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_LFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_LFRATIO (1.0f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_ECHO_TIME (0.075f) -#define AL_EAXREVERB_MAX_ECHO_TIME (0.25f) -#define AL_EAXREVERB_DEFAULT_ECHO_TIME (0.25f) - -#define AL_EAXREVERB_MIN_ECHO_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_ECHO_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_ECHO_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_MODULATION_TIME (0.04f) -#define AL_EAXREVERB_MAX_MODULATION_TIME (4.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_TIME (0.25f) - -#define AL_EAXREVERB_MIN_MODULATION_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_MODULATION_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_EAXREVERB_MIN_HFREFERENCE (1000.0f) -#define AL_EAXREVERB_MAX_HFREFERENCE (20000.0f) -#define AL_EAXREVERB_DEFAULT_HFREFERENCE (5000.0f) - -#define AL_EAXREVERB_MIN_LFREFERENCE (20.0f) -#define AL_EAXREVERB_MAX_LFREFERENCE (1000.0f) -#define AL_EAXREVERB_DEFAULT_LFREFERENCE (250.0f) - -#define AL_EAXREVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_EAXREVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_EAXREVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_EAXREVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* Chorus effect */ -#define AL_CHORUS_WAVEFORM_SINUSOID (0) -#define AL_CHORUS_WAVEFORM_TRIANGLE (1) - -#define AL_CHORUS_MIN_WAVEFORM (0) -#define AL_CHORUS_MAX_WAVEFORM (1) -#define AL_CHORUS_DEFAULT_WAVEFORM (1) - -#define AL_CHORUS_MIN_PHASE (-180) -#define AL_CHORUS_MAX_PHASE (180) -#define AL_CHORUS_DEFAULT_PHASE (90) - -#define AL_CHORUS_MIN_RATE (0.0f) -#define AL_CHORUS_MAX_RATE (10.0f) -#define AL_CHORUS_DEFAULT_RATE (1.1f) - -#define AL_CHORUS_MIN_DEPTH (0.0f) -#define AL_CHORUS_MAX_DEPTH (1.0f) -#define AL_CHORUS_DEFAULT_DEPTH (0.1f) - -#define AL_CHORUS_MIN_FEEDBACK (-1.0f) -#define AL_CHORUS_MAX_FEEDBACK (1.0f) -#define AL_CHORUS_DEFAULT_FEEDBACK (0.25f) - -#define AL_CHORUS_MIN_DELAY (0.0f) -#define AL_CHORUS_MAX_DELAY (0.016f) -#define AL_CHORUS_DEFAULT_DELAY (0.016f) - -/* Distortion effect */ -#define AL_DISTORTION_MIN_EDGE (0.0f) -#define AL_DISTORTION_MAX_EDGE (1.0f) -#define AL_DISTORTION_DEFAULT_EDGE (0.2f) - -#define AL_DISTORTION_MIN_GAIN (0.01f) -#define AL_DISTORTION_MAX_GAIN (1.0f) -#define AL_DISTORTION_DEFAULT_GAIN (0.05f) - -#define AL_DISTORTION_MIN_LOWPASS_CUTOFF (80.0f) -#define AL_DISTORTION_MAX_LOWPASS_CUTOFF (24000.0f) -#define AL_DISTORTION_DEFAULT_LOWPASS_CUTOFF (8000.0f) - -#define AL_DISTORTION_MIN_EQCENTER (80.0f) -#define AL_DISTORTION_MAX_EQCENTER (24000.0f) -#define AL_DISTORTION_DEFAULT_EQCENTER (3600.0f) - -#define AL_DISTORTION_MIN_EQBANDWIDTH (80.0f) -#define AL_DISTORTION_MAX_EQBANDWIDTH (24000.0f) -#define AL_DISTORTION_DEFAULT_EQBANDWIDTH (3600.0f) - -/* Echo effect */ -#define AL_ECHO_MIN_DELAY (0.0f) -#define AL_ECHO_MAX_DELAY (0.207f) -#define AL_ECHO_DEFAULT_DELAY (0.1f) - -#define AL_ECHO_MIN_LRDELAY (0.0f) -#define AL_ECHO_MAX_LRDELAY (0.404f) -#define AL_ECHO_DEFAULT_LRDELAY (0.1f) - -#define AL_ECHO_MIN_DAMPING (0.0f) -#define AL_ECHO_MAX_DAMPING (0.99f) -#define AL_ECHO_DEFAULT_DAMPING (0.5f) - -#define AL_ECHO_MIN_FEEDBACK (0.0f) -#define AL_ECHO_MAX_FEEDBACK (1.0f) -#define AL_ECHO_DEFAULT_FEEDBACK (0.5f) - -#define AL_ECHO_MIN_SPREAD (-1.0f) -#define AL_ECHO_MAX_SPREAD (1.0f) -#define AL_ECHO_DEFAULT_SPREAD (-1.0f) - -/* Flanger effect */ -#define AL_FLANGER_WAVEFORM_SINUSOID (0) -#define AL_FLANGER_WAVEFORM_TRIANGLE (1) - -#define AL_FLANGER_MIN_WAVEFORM (0) -#define AL_FLANGER_MAX_WAVEFORM (1) -#define AL_FLANGER_DEFAULT_WAVEFORM (1) - -#define AL_FLANGER_MIN_PHASE (-180) -#define AL_FLANGER_MAX_PHASE (180) -#define AL_FLANGER_DEFAULT_PHASE (0) - -#define AL_FLANGER_MIN_RATE (0.0f) -#define AL_FLANGER_MAX_RATE (10.0f) -#define AL_FLANGER_DEFAULT_RATE (0.27f) - -#define AL_FLANGER_MIN_DEPTH (0.0f) -#define AL_FLANGER_MAX_DEPTH (1.0f) -#define AL_FLANGER_DEFAULT_DEPTH (1.0f) - -#define AL_FLANGER_MIN_FEEDBACK (-1.0f) -#define AL_FLANGER_MAX_FEEDBACK (1.0f) -#define AL_FLANGER_DEFAULT_FEEDBACK (-0.5f) - -#define AL_FLANGER_MIN_DELAY (0.0f) -#define AL_FLANGER_MAX_DELAY (0.004f) -#define AL_FLANGER_DEFAULT_DELAY (0.002f) - -/* Frequency shifter effect */ -#define AL_FREQUENCY_SHIFTER_MIN_FREQUENCY (0.0f) -#define AL_FREQUENCY_SHIFTER_MAX_FREQUENCY (24000.0f) -#define AL_FREQUENCY_SHIFTER_DEFAULT_FREQUENCY (0.0f) - -#define AL_FREQUENCY_SHIFTER_MIN_LEFT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_LEFT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_LEFT_DIRECTION (0) - -#define AL_FREQUENCY_SHIFTER_DIRECTION_DOWN (0) -#define AL_FREQUENCY_SHIFTER_DIRECTION_UP (1) -#define AL_FREQUENCY_SHIFTER_DIRECTION_OFF (2) - -#define AL_FREQUENCY_SHIFTER_MIN_RIGHT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_RIGHT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_RIGHT_DIRECTION (0) - -/* Vocal morpher effect */ -#define AL_VOCAL_MORPHER_MIN_PHONEMEA (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEA_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB (10) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_PHONEME_A (0) -#define AL_VOCAL_MORPHER_PHONEME_E (1) -#define AL_VOCAL_MORPHER_PHONEME_I (2) -#define AL_VOCAL_MORPHER_PHONEME_O (3) -#define AL_VOCAL_MORPHER_PHONEME_U (4) -#define AL_VOCAL_MORPHER_PHONEME_AA (5) -#define AL_VOCAL_MORPHER_PHONEME_AE (6) -#define AL_VOCAL_MORPHER_PHONEME_AH (7) -#define AL_VOCAL_MORPHER_PHONEME_AO (8) -#define AL_VOCAL_MORPHER_PHONEME_EH (9) -#define AL_VOCAL_MORPHER_PHONEME_ER (10) -#define AL_VOCAL_MORPHER_PHONEME_IH (11) -#define AL_VOCAL_MORPHER_PHONEME_IY (12) -#define AL_VOCAL_MORPHER_PHONEME_UH (13) -#define AL_VOCAL_MORPHER_PHONEME_UW (14) -#define AL_VOCAL_MORPHER_PHONEME_B (15) -#define AL_VOCAL_MORPHER_PHONEME_D (16) -#define AL_VOCAL_MORPHER_PHONEME_F (17) -#define AL_VOCAL_MORPHER_PHONEME_G (18) -#define AL_VOCAL_MORPHER_PHONEME_J (19) -#define AL_VOCAL_MORPHER_PHONEME_K (20) -#define AL_VOCAL_MORPHER_PHONEME_L (21) -#define AL_VOCAL_MORPHER_PHONEME_M (22) -#define AL_VOCAL_MORPHER_PHONEME_N (23) -#define AL_VOCAL_MORPHER_PHONEME_P (24) -#define AL_VOCAL_MORPHER_PHONEME_R (25) -#define AL_VOCAL_MORPHER_PHONEME_S (26) -#define AL_VOCAL_MORPHER_PHONEME_T (27) -#define AL_VOCAL_MORPHER_PHONEME_V (28) -#define AL_VOCAL_MORPHER_PHONEME_Z (29) - -#define AL_VOCAL_MORPHER_WAVEFORM_SINUSOID (0) -#define AL_VOCAL_MORPHER_WAVEFORM_TRIANGLE (1) -#define AL_VOCAL_MORPHER_WAVEFORM_SAWTOOTH (2) - -#define AL_VOCAL_MORPHER_MIN_WAVEFORM (0) -#define AL_VOCAL_MORPHER_MAX_WAVEFORM (2) -#define AL_VOCAL_MORPHER_DEFAULT_WAVEFORM (0) - -#define AL_VOCAL_MORPHER_MIN_RATE (0.0f) -#define AL_VOCAL_MORPHER_MAX_RATE (10.0f) -#define AL_VOCAL_MORPHER_DEFAULT_RATE (1.41f) - -/* Pitch shifter effect */ -#define AL_PITCH_SHIFTER_MIN_COARSE_TUNE (-12) -#define AL_PITCH_SHIFTER_MAX_COARSE_TUNE (12) -#define AL_PITCH_SHIFTER_DEFAULT_COARSE_TUNE (12) - -#define AL_PITCH_SHIFTER_MIN_FINE_TUNE (-50) -#define AL_PITCH_SHIFTER_MAX_FINE_TUNE (50) -#define AL_PITCH_SHIFTER_DEFAULT_FINE_TUNE (0) - -/* Ring modulator effect */ -#define AL_RING_MODULATOR_MIN_FREQUENCY (0.0f) -#define AL_RING_MODULATOR_MAX_FREQUENCY (8000.0f) -#define AL_RING_MODULATOR_DEFAULT_FREQUENCY (440.0f) - -#define AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF (0.0f) -#define AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF (24000.0f) -#define AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF (800.0f) - -#define AL_RING_MODULATOR_SINUSOID (0) -#define AL_RING_MODULATOR_SAWTOOTH (1) -#define AL_RING_MODULATOR_SQUARE (2) - -#define AL_RING_MODULATOR_MIN_WAVEFORM (0) -#define AL_RING_MODULATOR_MAX_WAVEFORM (2) -#define AL_RING_MODULATOR_DEFAULT_WAVEFORM (0) - -/* Autowah effect */ -#define AL_AUTOWAH_MIN_ATTACK_TIME (0.0001f) -#define AL_AUTOWAH_MAX_ATTACK_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_ATTACK_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RELEASE_TIME (0.0001f) -#define AL_AUTOWAH_MAX_RELEASE_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_RELEASE_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RESONANCE (2.0f) -#define AL_AUTOWAH_MAX_RESONANCE (1000.0f) -#define AL_AUTOWAH_DEFAULT_RESONANCE (1000.0f) - -#define AL_AUTOWAH_MIN_PEAK_GAIN (0.00003f) -#define AL_AUTOWAH_MAX_PEAK_GAIN (31621.0f) -#define AL_AUTOWAH_DEFAULT_PEAK_GAIN (11.22f) - -/* Compressor effect */ -#define AL_COMPRESSOR_MIN_ONOFF (0) -#define AL_COMPRESSOR_MAX_ONOFF (1) -#define AL_COMPRESSOR_DEFAULT_ONOFF (1) - -/* Equalizer effect */ -#define AL_EQUALIZER_MIN_LOW_GAIN (0.126f) -#define AL_EQUALIZER_MAX_LOW_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_LOW_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_LOW_CUTOFF (50.0f) -#define AL_EQUALIZER_MAX_LOW_CUTOFF (800.0f) -#define AL_EQUALIZER_DEFAULT_LOW_CUTOFF (200.0f) - -#define AL_EQUALIZER_MIN_MID1_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID1_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID1_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID1_CENTER (200.0f) -#define AL_EQUALIZER_MAX_MID1_CENTER (3000.0f) -#define AL_EQUALIZER_DEFAULT_MID1_CENTER (500.0f) - -#define AL_EQUALIZER_MIN_MID1_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID1_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID1_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_MID2_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID2_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID2_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID2_CENTER (1000.0f) -#define AL_EQUALIZER_MAX_MID2_CENTER (8000.0f) -#define AL_EQUALIZER_DEFAULT_MID2_CENTER (3000.0f) - -#define AL_EQUALIZER_MIN_MID2_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID2_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID2_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_GAIN (0.126f) -#define AL_EQUALIZER_MAX_HIGH_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_HIGH_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_CUTOFF (4000.0f) -#define AL_EQUALIZER_MAX_HIGH_CUTOFF (16000.0f) -#define AL_EQUALIZER_DEFAULT_HIGH_CUTOFF (6000.0f) - - -/* Source parameter value ranges and defaults. */ -#define AL_MIN_AIR_ABSORPTION_FACTOR (0.0f) -#define AL_MAX_AIR_ABSORPTION_FACTOR (10.0f) -#define AL_DEFAULT_AIR_ABSORPTION_FACTOR (0.0f) - -#define AL_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_MIN_CONE_OUTER_GAINHF (0.0f) -#define AL_MAX_CONE_OUTER_GAINHF (1.0f) -#define AL_DEFAULT_CONE_OUTER_GAINHF (1.0f) - -#define AL_MIN_DIRECT_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_DIRECT_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_DIRECT_FILTER_GAINHF_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE - - -/* Listener parameter value ranges and defaults. */ -#define AL_MIN_METERS_PER_UNIT FLT_MIN -#define AL_MAX_METERS_PER_UNIT FLT_MAX -#define AL_DEFAULT_METERS_PER_UNIT (1.0f) - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* AL_EFX_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/oalMacOSX_OALExtensions.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/oalMacOSX_OALExtensions.h deleted file mode 100644 index c3db30546..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/AL/oalMacOSX_OALExtensions.h +++ /dev/null @@ -1,161 +0,0 @@ -/********************************************************************************************************************************** -* -* OpenAL cross platform audio library -* Copyright (c) 2004-2006, Apple Computer, Inc. All rights reserved. -* Copyright (c) 2007-2008, Apple Inc. All rights reserved. -* -* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -* conditions are met: -* -* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. -* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -* disclaimer in the documentation and/or other materials provided with the distribution. -* 3. Neither the name of Apple Inc. ("Apple") nor the names of its contributors may be used to endorse or promote products derived -* from this software without specific prior written permission. -* -* THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS -* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED -* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -* -**********************************************************************************************************************************/ - -#ifndef __OAL_MAC_OSX_OAL_EXTENSIONS_H__ -#define __OAL_MAC_OSX_OAL_EXTENSIONS_H__ - -#include - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_MAC_OSX - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -// Retrieve functions via alGetProcAddress() by passing in strings: alcMacOSXMixerOutputRate or alcMacOSXGetMixerOutputRate - -// Setting the Mixer Output Rate effectively sets the samnple rate at which the mixer -typedef ALvoid (*alcMacOSXRenderingQualityProcPtr) (ALint value); -typedef ALvoid (*alMacOSXRenderChannelCountProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerMaxiumumBussesProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerOutputRateProcPtr) (ALdouble value); - -typedef ALint (*alcMacOSXGetRenderingQualityProcPtr) (); -typedef ALint (*alMacOSXGetRenderChannelCountProcPtr) (); -typedef ALint (*alcMacOSXGetMixerMaxiumumBussesProcPtr) (); -typedef ALdouble (*alcMacOSXGetMixerOutputRateProcPtr) (); - -/* Render Quality. Used with alcMacOSXRenderingQuality() */ - - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_HIGH 'rqhi' - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_LOW 'rdlo' - - // High Quality Spatial Algorithm suitable only for headphone use - #define ALC_IPHONE_SPATIAL_RENDERING_QUALITY_HEADPHONES 'hdph' - -/* - Render Channels. Used with alMacOSXRenderChannelCount() - Allows a user to force OpenAL to render to stereo, regardless of the audio hardware being used -*/ - #define ALC_MAC_OSX_RENDER_CHANNEL_COUNT_STEREO 'rcst' - -/* GameKit extension */ - - #define AL_GAMEKIT 'gksr' - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AL_EXT_SOURCE_NOTIFICATIONS - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Source Notifications - - Eliminates the need for continuous polling for source state by providing a - mechanism for the application to receive source state change notifications. - Upon receiving a notification, the application can retrieve the actual state - corresponding to the notification ID for which the notification was sent. - */ - -#define AL_QUEUE_HAS_LOOPED 0x9000 - -/* - Notification Proc: ALSourceNotificationProc - - sid - source id - notificationID - id of state that has changed - userData - user data provided to alSourceAddNotification() - */ - -typedef ALvoid (*alSourceNotificationProc)(ALuint sid, ALuint notificationID, ALvoid* userData); - -/* - API: alSourceAddNotification - - sid - source id - notificationID - id of state for which caller wants to be notified of a change - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - - Returns AL_NO_ERROR if request is successful. - - Valid IDs: - AL_SOURCE_STATE - AL_BUFFERS_PROCESSED - AL_QUEUE_HAS_LOOPED - notification sent when a looping source has looped to it's start point - */ -typedef ALenum (*alSourceAddNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* - API: alSourceRemoveStateNotification - - sid - source id - notificationID - id of state for which caller wants to remove an existing notification - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - */ -typedef ALvoid (*alSourceRemoveNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_ASA : Apple Spatial Audio Extension - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Used with the ASA API calls: alcASAGetSource(), alcASASetSource(), alcASAGetListener(), alcASASetListener() -*/ - -typedef ALenum (*alcASAGetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint dataSize); -typedef ALenum (*alcASAGetListenerProcPtr) (ALuint property, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetListenerProcPtr) (ALuint property, ALvoid *data, ALuint dataSize); - - /* listener properties */ - #define ALC_ASA_REVERB_ON 'rvon' // type ALuint - #define ALC_ASA_REVERB_GLOBAL_LEVEL 'rvgl' // type ALfloat -40.0 db - 40.0 db - - #define ALC_ASA_REVERB_ROOM_TYPE 'rvrt' // type ALint - - /* reverb room type presets for the ALC_ASA_REVERB_ROOM_TYPE property */ - #define ALC_ASA_REVERB_ROOM_TYPE_SmallRoom 0 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumRoom 1 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom 2 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall 3 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall 4 - #define ALC_ASA_REVERB_ROOM_TYPE_Plate 5 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumChamber 6 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeChamber 7 - #define ALC_ASA_REVERB_ROOM_TYPE_Cathedral 8 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom2 9 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall2 10 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall3 11 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall2 12 - - #define ALC_ASA_REVERB_EQ_GAIN 'rveg' // type ALfloat - #define ALC_ASA_REVERB_EQ_BANDWITH 'rveb' // type ALfloat - #define ALC_ASA_REVERB_EQ_FREQ 'rvef' // type ALfloat - - /* source properties */ - #define ALC_ASA_REVERB_SEND_LEVEL 'rvsl' // type ALfloat 0.0 (dry) - 1.0 (wet) (0-100% dry/wet mix, 0.0 default) - #define ALC_ASA_OCCLUSION 'occl' // type ALfloat -100.0 db (most occlusion) - 0.0 db (no occlusion, 0.0 default) - #define ALC_ASA_OBSTRUCTION 'obst' // type ALfloat -100.0 db (most obstruction) - 0.0 db (no obstruction, 0.0 default) - -#endif // __OAL_MAC_OSX_OAL_EXTENSIONS_H__ diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alAuxEffectSlot.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alAuxEffectSlot.h deleted file mode 100644 index 1c592ac8e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alAuxEffectSlot.h +++ /dev/null @@ -1,63 +0,0 @@ -#ifndef _AL_AUXEFFECTSLOT_H_ -#define _AL_AUXEFFECTSLOT_H_ - -#include "AL/al.h" -#include "alEffect.h" -#include "alFilter.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALeffectState ALeffectState; - -typedef struct ALeffectslot -{ - ALeffect effect; - - ALfp Gain; - ALboolean AuxSendAuto; - - ALeffectState *EffectState; - - ALfp WetBuffer[BUFFERSIZE]; - - ALfp ClickRemoval[1]; - ALfp PendingClicks[1]; - - ALuint refcount; - - // Index to itself - ALuint effectslot; - - struct ALeffectslot *next; -} ALeffectslot; - - -ALvoid ReleaseALAuxiliaryEffectSlots(ALCcontext *Context); - - -struct ALeffectState { - ALvoid (*Destroy)(ALeffectState *State); - ALboolean (*DeviceUpdate)(ALeffectState *State, ALCdevice *Device); - ALvoid (*Update)(ALeffectState *State, ALCcontext *Context, const ALeffect *Effect); - ALvoid (*Process)(ALeffectState *State, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]); -}; - -ALeffectState *NoneCreate(void); -ALeffectState *EAXVerbCreate(void); -ALeffectState *VerbCreate(void); -ALeffectState *EchoCreate(void); -ALeffectState *ModulatorCreate(void); - -#define ALEffect_Destroy(a) ((a)->Destroy((a))) -#define ALEffect_DeviceUpdate(a,b) ((a)->DeviceUpdate((a),(b))) -#define ALEffect_Update(a,b,c) ((a)->Update((a),(b),(c))) -#define ALEffect_Process(a,b,c,d,e) ((a)->Process((a),(b),(c),(d),(e))) - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alBuffer.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alBuffer.h deleted file mode 100644 index e22d839d5..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alBuffer.h +++ /dev/null @@ -1,98 +0,0 @@ -#ifndef _AL_BUFFER_H_ -#define _AL_BUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -/* Input formats (some are currently theoretical) */ -enum UserFmtType { - UserFmtByte, /* AL_BYTE */ - UserFmtUByte, /* AL_UNSIGNED_BYTE */ - UserFmtShort, /* AL_SHORT */ - UserFmtUShort, /* AL_UNSIGNED_SHORT */ - UserFmtInt, /* AL_INT */ - UserFmtUInt, /* AL_UNSIGNED_INT */ - UserFmtFloat, /* AL_FLOAT */ - UserFmtDouble, /* AL_DOUBLE */ - UserFmtMulaw, /* AL_MULAW */ - UserFmtIMA4, /* AL_IMA4 */ -}; -enum UserFmtChannels { - UserFmtMono, /* AL_MONO */ - UserFmtStereo, /* AL_STEREO */ - UserFmtRear, /* AL_REAR */ - UserFmtQuad, /* AL_QUAD */ - UserFmtX51, /* AL_5POINT1 (WFX order) */ - UserFmtX61, /* AL_6POINT1 (WFX order) */ - UserFmtX71, /* AL_7POINT1 (WFX order) */ -}; - -ALboolean DecomposeUserFormat(ALenum format, enum UserFmtChannels *chans, - enum UserFmtType *type); -ALuint BytesFromUserFmt(enum UserFmtType type); -ALuint ChannelsFromUserFmt(enum UserFmtChannels chans); -static __inline ALuint FrameSizeFromUserFmt(enum UserFmtChannels chans, - enum UserFmtType type) -{ - return ChannelsFromUserFmt(chans) * BytesFromUserFmt(type); -} - - -/* Storable formats */ -enum FmtType { - FmtUByte = UserFmtUByte, - FmtShort = UserFmtShort, - FmtFloat = UserFmtFloat, -}; -enum FmtChannels { - FmtMono = UserFmtMono, - FmtStereo = UserFmtStereo, - FmtRear = UserFmtRear, - FmtQuad = UserFmtQuad, - FmtX51 = UserFmtX51, - FmtX61 = UserFmtX61, - FmtX71 = UserFmtX71, -}; - -ALboolean DecomposeFormat(ALenum format, enum FmtChannels *chans, enum FmtType *type); -ALuint BytesFromFmt(enum FmtType type); -ALuint ChannelsFromFmt(enum FmtChannels chans); -static __inline ALuint FrameSizeFromFmt(enum FmtChannels chans, enum FmtType type) -{ - return ChannelsFromFmt(chans) * BytesFromFmt(type); -} - - -typedef struct ALbuffer -{ - ALvoid *data; - ALsizei size; - - ALsizei Frequency; - enum FmtChannels FmtChannels; - enum FmtType FmtType; - - enum UserFmtChannels OriginalChannels; - enum UserFmtType OriginalType; - ALsizei OriginalSize; - ALsizei OriginalAlign; - - ALsizei LoopStart; - ALsizei LoopEnd; - - ALuint refcount; // Number of sources using this buffer (deletion can only occur when this is 0) - - // Index to itself - ALuint buffer; -} ALbuffer; - -ALvoid ReleaseALBuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alDatabuffer.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alDatabuffer.h deleted file mode 100644 index 221855283..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alDatabuffer.h +++ /dev/null @@ -1,33 +0,0 @@ -#ifndef _AL_DATABUFFER_H_ -#define _AL_DATABUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define UNMAPPED 0 -#define MAPPED 1 - -typedef struct ALdatabuffer -{ - ALubyte *data; - ALintptrEXT size; - - ALenum state; - ALenum usage; - - /* Index to self */ - ALuint databuffer; - - struct ALdatabuffer *next; -} ALdatabuffer; - -ALvoid ReleaseALDatabuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alEffect.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alEffect.h deleted file mode 100644 index 041aa3edc..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alEffect.h +++ /dev/null @@ -1,83 +0,0 @@ -// NOTE: The effect structure is getting too large, it may be a good idea to -// start using a union or another form of unified storage. -#ifndef _AL_EFFECT_H_ -#define _AL_EFFECT_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -enum { - EAXREVERB = 0, - REVERB, - ECHO, - MODULATOR, - - MAX_EFFECTS -}; -extern ALboolean DisabledEffects[MAX_EFFECTS]; - -typedef struct ALeffect -{ - // Effect type (AL_EFFECT_NULL, ...) - ALenum type; - - struct { - // Shared Reverb Properties - ALfp Density; - ALfp Diffusion; - ALfp Gain; - ALfp GainHF; - ALfp DecayTime; - ALfp DecayHFRatio; - ALfp ReflectionsGain; - ALfp ReflectionsDelay; - ALfp LateReverbGain; - ALfp LateReverbDelay; - ALfp AirAbsorptionGainHF; - ALfp RoomRolloffFactor; - ALboolean DecayHFLimit; - - // Additional EAX Reverb Properties - ALfp GainLF; - ALfp DecayLFRatio; - ALfp ReflectionsPan[3]; - ALfp LateReverbPan[3]; - ALfp EchoTime; - ALfp EchoDepth; - ALfp ModulationTime; - ALfp ModulationDepth; - ALfp HFReference; - ALfp LFReference; - } Reverb; - - struct { - ALfp Delay; - ALfp LRDelay; - - ALfp Damping; - ALfp Feedback; - - ALfp Spread; - } Echo; - - struct { - ALfp Frequency; - ALfp HighPassCutoff; - ALint Waveform; - } Modulator; - - // Index to itself - ALuint effect; -} ALeffect; - - -ALvoid ReleaseALEffects(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alError.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alError.h deleted file mode 100644 index 7976e50f9..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alError.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef _AL_ERROR_H_ -#define _AL_ERROR_H_ - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -ALvoid alSetError(ALCcontext *Context, ALenum errorCode); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alFilter.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alFilter.h deleted file mode 100644 index 3b17b1f1e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alFilter.h +++ /dev/null @@ -1,139 +0,0 @@ -#ifndef _AL_FILTER_H_ -#define _AL_FILTER_H_ - -#include "AL/al.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct { - ALfp coeff; -#ifndef _MSC_VER - ALfp history[0]; -#else - ALfp history[1]; -#endif -} FILTER; - -static __inline ALfp lpFilter4P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - output = output + ALfpMult((history[2]-output),a); - history[2] = output; - output = output + ALfpMult((history[3]-output),a); - history[3] = output; - - return output; -} - -static __inline ALfp lpFilter2P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - - return output; -} - -static __inline ALfp lpFilter1P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - - return output; -} - -static __inline ALfp lpFilter4PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - output = output + ALfpMult((history[2]-output),a); - output = output + ALfpMult((history[3]-output),a); - - return output; -} - -static __inline ALfp lpFilter2PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - - return output; -} - -static __inline ALfp lpFilter1PC(FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - - return output; -} - -/* Calculates the low-pass filter coefficient given the pre-scaled gain and - * cos(w) value. Note that g should be pre-scaled (sqr(gain) for one-pole, - * sqrt(gain) for four-pole, etc) */ -static __inline ALfp lpCoeffCalc(ALfp g, ALfp cw) -{ - ALfp a = int2ALfp(0); - - /* Be careful with gains < 0.01, as that causes the coefficient - * head towards 1, which will flatten the signal */ - g = __max(g, float2ALfp(0.01f)); - if(g < float2ALfp(0.9999f)) /* 1-epsilon */ { - ALfp tmp; tmp = ALfpMult(ALfpMult(int2ALfp(2),g),(int2ALfp(1)-cw)) - ALfpMult(ALfpMult(g,g),(int2ALfp(1) - ALfpMult(cw,cw))); - a = ALfpDiv((int2ALfp(1) - ALfpMult(g,cw) - aluSqrt(tmp)), (int2ALfp(1) - g)); - } - - return a; -} - - -typedef struct ALfilter -{ - // Filter type (AL_FILTER_NULL, ...) - ALenum type; - - ALfp Gain; - ALfp GainHF; - - // Index to itself - ALuint filter; -} ALfilter; - - -ALvoid ReleaseALFilters(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alListener.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alListener.h deleted file mode 100644 index a2fc3ba0f..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alListener.h +++ /dev/null @@ -1,24 +0,0 @@ -#ifndef _AL_LISTENER_H_ -#define _AL_LISTENER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALlistener_struct -{ - ALfp Position[3]; - ALfp Velocity[3]; - ALfp Forward[3]; - ALfp Up[3]; - ALfp Gain; - ALfp MetersPerUnit; -} ALlistener; - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alMain.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alMain.h deleted file mode 100644 index 61448b205..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alMain.h +++ /dev/null @@ -1,503 +0,0 @@ -#ifndef AL_MAIN_H -#define AL_MAIN_H - -#include -#include -#include - -#ifdef HAVE_FENV_H -#include -#endif - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#ifndef AL_EXT_sample_buffer_object -#define AL_EXT_sample_buffer_object 1 -typedef ptrdiff_t ALintptrEXT; -typedef ptrdiff_t ALsizeiptrEXT; -#define AL_SAMPLE_SOURCE_EXT 0x1040 -#define AL_SAMPLE_SINK_EXT 0x1041 -#define AL_READ_ONLY_EXT 0x1042 -#define AL_WRITE_ONLY_EXT 0x1043 -#define AL_READ_WRITE_EXT 0x1044 -#define AL_STREAM_WRITE_EXT 0x1045 -#define AL_STREAM_READ_EXT 0x1046 -#define AL_STREAM_COPY_EXT 0x1047 -#define AL_STATIC_WRITE_EXT 0x1048 -#define AL_STATIC_READ_EXT 0x1049 -#define AL_STATIC_COPY_EXT 0x104A -#define AL_DYNAMIC_WRITE_EXT 0x104B -#define AL_DYNAMIC_READ_EXT 0x104C -#define AL_DYNAMIC_COPY_EXT 0x104D -typedef ALvoid (AL_APIENTRY*PFNALGENDATABUFFERSEXTPROC)(ALsizei n,ALuint *puiBuffers); -typedef ALvoid (AL_APIENTRY*PFNALDELETEDATABUFFERSEXTPROC)(ALsizei n, const ALuint *puiBuffers); -typedef ALboolean (AL_APIENTRY*PFNALISDATABUFFEREXTPROC)(ALuint uiBuffer); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERDATAEXTPROC)(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat flValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, const ALfloat* flValues); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint lValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, const ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat *pflValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, ALfloat* pflValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint *plValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALSELECTDATABUFFEREXTPROC)(ALenum target, ALuint uiBuffer); -typedef ALvoid* (AL_APIENTRY*PFNALMAPDATABUFFEREXTPROC)(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -typedef ALvoid (AL_APIENTRY*PFNALUNMAPDATABUFFEREXTPROC)(ALuint uiBuffer); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenDatabuffersEXT(ALsizei n,ALuint *puiBuffers); -AL_API ALvoid AL_APIENTRY alDeleteDatabuffersEXT(ALsizei n, const ALuint *puiBuffers); -AL_API ALboolean AL_APIENTRY alIsDatabufferEXT(ALuint uiBuffer); -AL_API ALvoid AL_APIENTRY alDatabufferDataEXT(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -AL_API ALvoid AL_APIENTRY alDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *data); -AL_API ALvoid AL_APIENTRY alGetDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *data); -AL_API ALvoid AL_APIENTRY alDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alDatabufferfvEXT(ALuint buffer, ALenum eParam, const ALfloat* flValues); -AL_API ALvoid AL_APIENTRY alDatabufferiEXT(ALuint buffer, ALenum eParam, ALint lValue); -AL_API ALvoid AL_APIENTRY alDatabufferivEXT(ALuint buffer, ALenum eParam, const ALint* plValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferfvEXT(ALuint buffer, ALenum eParam, ALfloat* pflValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferiEXT(ALuint buffer, ALenum eParam, ALint *plValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferivEXT(ALuint buffer, ALenum eParam, ALint* plValues); -AL_API ALvoid AL_APIENTRY alSelectDatabufferEXT(ALenum target, ALuint uiBuffer); -AL_API ALvoid* AL_APIENTRY alMapDatabufferEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -AL_API ALvoid AL_APIENTRY alUnmapDatabufferEXT(ALuint uiBuffer); -#endif -#endif - - -#if defined(HAVE_STDINT_H) -#include -typedef int64_t ALint64; -typedef uint64_t ALuint64; -#elif defined(HAVE___INT64) -typedef __int64 ALint64; -typedef unsigned __int64 ALuint64; -#elif (SIZEOF_LONG == 8) -typedef long ALint64; -typedef unsigned long ALuint64; -#elif (SIZEOF_LONG_LONG == 8) -typedef long long ALint64; -typedef unsigned long long ALuint64; -#endif - -#ifdef HAVE_GCC_FORMAT -#define PRINTF_STYLE(x, y) __attribute__((format(__printf__, (x), (y)))) -#else -#define PRINTF_STYLE(x, y) -#endif - -#ifdef _WIN32 - -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif -#include - -typedef DWORD tls_type; -#define tls_create(x) (*(x) = TlsAlloc()) -#define tls_delete(x) TlsFree((x)) -#define tls_get(x) TlsGetValue((x)) -#define tls_set(x, a) TlsSetValue((x), (a)) - -#else - -#include -#include -#include -#ifdef HAVE_PTHREAD_NP_H -#include -#endif -#include -#include -#include - -#define IsBadWritePtr(a,b) ((a) == NULL && (b) != 0) - -typedef pthread_key_t tls_type; -#define tls_create(x) pthread_key_create((x), NULL) -#define tls_delete(x) pthread_key_delete((x)) -#define tls_get(x) pthread_getspecific((x)) -#define tls_set(x, a) pthread_setspecific((x), (a)) - -typedef pthread_mutex_t CRITICAL_SECTION; -static __inline void EnterCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_lock(cs); - assert(ret == 0); -} -static __inline void LeaveCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_unlock(cs); - assert(ret == 0); -} -static __inline void InitializeCriticalSection(CRITICAL_SECTION *cs) -{ - pthread_mutexattr_t attrib; - int ret; - - ret = pthread_mutexattr_init(&attrib); - assert(ret == 0); - - ret = pthread_mutexattr_settype(&attrib, PTHREAD_MUTEX_RECURSIVE); -#ifdef HAVE_PTHREAD_NP_H - if(ret != 0) - ret = pthread_mutexattr_setkind_np(&attrib, PTHREAD_MUTEX_RECURSIVE); -#endif - assert(ret == 0); - ret = pthread_mutex_init(cs, &attrib); - assert(ret == 0); - - pthread_mutexattr_destroy(&attrib); -} - -static __inline void DeleteCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_destroy(cs); - assert(ret == 0); -} - -/* NOTE: This wrapper isn't quite accurate as it returns an ALuint, as opposed - * to the expected DWORD. Both are defined as unsigned 32-bit types, however. - * Additionally, Win32 is supposed to measure the time since Windows started, - * as opposed to the actual time. */ -static __inline ALuint timeGetTime(void) -{ -#if _POSIX_TIMERS > 0 - struct timespec ts; - int ret = -1; - -#if defined(_POSIX_MONOTONIC_CLOCK) && (_POSIX_MONOTONIC_CLOCK >= 0) -#if _POSIX_MONOTONIC_CLOCK == 0 - static int hasmono = 0; - if(hasmono > 0 || (hasmono == 0 && - (hasmono=sysconf(_SC_MONOTONIC_CLOCK)) > 0)) -#endif - ret = clock_gettime(CLOCK_MONOTONIC, &ts); -#endif - if(ret != 0) - ret = clock_gettime(CLOCK_REALTIME, &ts); - assert(ret == 0); - - return ts.tv_nsec/1000000 + ts.tv_sec*1000; -#else - struct timeval tv; - int ret; - - ret = gettimeofday(&tv, NULL); - assert(ret == 0); - - return tv.tv_usec/1000 + tv.tv_sec*1000; -#endif -} - -static __inline void Sleep(ALuint t) -{ - struct timespec tv, rem; - tv.tv_nsec = (t*1000000)%1000000000; - tv.tv_sec = t/1000; - - while(nanosleep(&tv, &rem) == -1 && errno == EINTR) - tv = rem; -} -#define min(x,y) (((x)<(y))?(x):(y)) -#define max(x,y) (((x)>(y))?(x):(y)) -#endif - -#include "alListener.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - - -#define SWMIXER_OUTPUT_RATE 44100 - -#define SPEEDOFSOUNDMETRESPERSEC (343.3f) -#define AIRABSORBGAINDBHF (-0.05f) - -#define LOWPASSFREQCUTOFF (5000) - -#define DEFAULT_HEAD_DAMPEN (0.25f) - - -// Find the next power-of-2 for non-power-of-2 numbers. -static __inline ALuint NextPowerOf2(ALuint value) -{ - ALuint powerOf2 = 1; - - if(value) - { - value--; - while(value) - { - value >>= 1; - powerOf2 <<= 1; - } - } - return powerOf2; -} - - -typedef struct { - ALCboolean (*OpenPlayback)(ALCdevice*, const ALCchar*); - void (*ClosePlayback)(ALCdevice*); - ALCboolean (*ResetPlayback)(ALCdevice*); - void (*StopPlayback)(ALCdevice*); - - ALCboolean (*OpenCapture)(ALCdevice*, const ALCchar*); - void (*CloseCapture)(ALCdevice*); - void (*StartCapture)(ALCdevice*); - void (*StopCapture)(ALCdevice*); - void (*CaptureSamples)(ALCdevice*, void*, ALCuint); - ALCuint (*AvailableSamples)(ALCdevice*); -} BackendFuncs; - -enum { - DEVICE_PROBE, - ALL_DEVICE_PROBE, - CAPTURE_DEVICE_PROBE -}; - -void alc_alsa_init(BackendFuncs *func_list); -void alc_alsa_deinit(void); -void alc_alsa_probe(int type); -void alc_oss_init(BackendFuncs *func_list); -void alc_oss_deinit(void); -void alc_oss_probe(int type); -void alc_solaris_init(BackendFuncs *func_list); -void alc_solaris_deinit(void); -void alc_solaris_probe(int type); -void alcDSoundInit(BackendFuncs *func_list); -void alcDSoundDeinit(void); -void alcDSoundProbe(int type); -void alcWinMMInit(BackendFuncs *FuncList); -void alcWinMMDeinit(void); -void alcWinMMProbe(int type); -void alc_pa_init(BackendFuncs *func_list); -void alc_pa_deinit(void); -void alc_pa_probe(int type); -void alc_wave_init(BackendFuncs *func_list); -void alc_wave_deinit(void); -void alc_wave_probe(int type); -void alc_pulse_init(BackendFuncs *func_list); -void alc_pulse_deinit(void); -void alc_pulse_probe(int type); -void alc_audiotrack_init(BackendFuncs *func_list); -void alc_audiotrack_deinit(void); -void alc_audiotrack_probe(int type); -void alc_opensles_init(BackendFuncs *func_list); -void alc_opensles_deinit(void); -void alc_opensles_probe(int type); -void alc_null_init(BackendFuncs *func_list); -void alc_null_deinit(void); -void alc_null_probe(int type); - - -typedef struct UIntMap { - struct { - ALuint key; - ALvoid *value; - } *array; - ALsizei size; - ALsizei maxsize; -} UIntMap; - -void InitUIntMap(UIntMap *map); -void ResetUIntMap(UIntMap *map); -ALenum InsertUIntMapEntry(UIntMap *map, ALuint key, ALvoid *value); -void RemoveUIntMapKey(UIntMap *map, ALuint key); -ALvoid *LookupUIntMapKey(UIntMap *map, ALuint key); - -/* Device formats */ -enum DevFmtType { - DevFmtByte, /* AL_BYTE */ - DevFmtUByte, /* AL_UNSIGNED_BYTE */ - DevFmtShort, /* AL_SHORT */ - DevFmtUShort, /* AL_UNSIGNED_SHORT */ - DevFmtFloat, /* AL_FLOAT */ -}; -enum DevFmtChannels { - DevFmtMono, /* AL_MONO */ - DevFmtStereo, /* AL_STEREO */ - DevFmtQuad, /* AL_QUAD */ - DevFmtX51, /* AL_5POINT1 */ - DevFmtX61, /* AL_6POINT1 */ - DevFmtX71, /* AL_7POINT1 */ -}; - -ALuint BytesFromDevFmt(enum DevFmtType type); -ALuint ChannelsFromDevFmt(enum DevFmtChannels chans); -static __inline ALuint FrameSizeFromDevFmt(enum DevFmtChannels chans, - enum DevFmtType type) -{ - return ChannelsFromDevFmt(chans) * BytesFromDevFmt(type); -} - - -struct ALCdevice_struct -{ - ALCboolean Connected; - ALboolean IsCaptureDevice; - - ALuint Frequency; - ALuint UpdateSize; - ALuint NumUpdates; - enum DevFmtChannels FmtChans; - enum DevFmtType FmtType; - - ALCchar *szDeviceName; - - ALCenum LastError; - - // Maximum number of sources that can be created - ALuint MaxNoOfSources; - // Maximum number of slots that can be created - ALuint AuxiliaryEffectSlotMax; - - ALCuint NumMonoSources; - ALCuint NumStereoSources; - ALuint NumAuxSends; - - // Map of Buffers for this device - UIntMap BufferMap; - - // Map of Effects for this device - UIntMap EffectMap; - - // Map of Filters for this device - UIntMap FilterMap; - - // Map of Databuffers for this device - UIntMap DatabufferMap; - - // Stereo-to-binaural filter - struct bs2b *Bs2b; - ALCint Bs2bLevel; - - // Simulated dampening from head occlusion - ALfp HeadDampen; - - // Duplicate stereo sources on the side/rear channels - ALboolean DuplicateStereo; - - // Dry path buffer mix - ALfp DryBuffer[BUFFERSIZE][MAXCHANNELS]; - - ALuint DevChannels[MAXCHANNELS]; - - ALfp ChannelMatrix[MAXCHANNELS][MAXCHANNELS]; - - Channel Speaker2Chan[MAXCHANNELS]; - ALfp PanningLUT[MAXCHANNELS * LUT_NUM]; - ALuint NumChan; - - ALfp ClickRemoval[MAXCHANNELS]; - ALfp PendingClicks[MAXCHANNELS]; - - // Contexts created on this device - ALCcontext **Contexts; - ALuint NumContexts; - - BackendFuncs *Funcs; - void *ExtraData; // For the backend's use - - ALCdevice *next; -}; - -#define ALCdevice_OpenPlayback(a,b) ((a)->Funcs->OpenPlayback((a), (b))) -#define ALCdevice_ClosePlayback(a) ((a)->Funcs->ClosePlayback((a))) -#define ALCdevice_ResetPlayback(a) ((a)->Funcs->ResetPlayback((a))) -#define ALCdevice_StopPlayback(a) ((a)->Funcs->StopPlayback((a))) -#define ALCdevice_OpenCapture(a,b) ((a)->Funcs->OpenCapture((a), (b))) -#define ALCdevice_CloseCapture(a) ((a)->Funcs->CloseCapture((a))) -#define ALCdevice_StartCapture(a) ((a)->Funcs->StartCapture((a))) -#define ALCdevice_StopCapture(a) ((a)->Funcs->StopCapture((a))) -#define ALCdevice_CaptureSamples(a,b,c) ((a)->Funcs->CaptureSamples((a), (b), (c))) -#define ALCdevice_AvailableSamples(a) ((a)->Funcs->AvailableSamples((a))) - -struct ALCcontext_struct -{ - ALlistener Listener; - - UIntMap SourceMap; - UIntMap EffectSlotMap; - - struct ALdatabuffer *SampleSource; - struct ALdatabuffer *SampleSink; - - ALenum LastError; - - ALboolean Suspended; - - ALenum DistanceModel; - ALboolean SourceDistanceModel; - - ALfp DopplerFactor; - ALfp DopplerVelocity; - ALfp flSpeedOfSound; - - struct ALsource **ActiveSources; - ALsizei ActiveSourceCount; - ALsizei MaxActiveSources; - - // Apportable Extension - ALsizei PrioritySlots; - - ALCdevice *Device; - const ALCchar *ExtensionList; - - ALCcontext *next; -}; - -void AppendDeviceList(const ALCchar *name); -void AppendAllDeviceList(const ALCchar *name); -void AppendCaptureDeviceList(const ALCchar *name); - -ALCvoid alcSetError(ALCdevice *device, ALenum errorCode); - -ALCvoid SuspendContext(ALCcontext *context); -ALCvoid ProcessContext(ALCcontext *context); - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr); -ALuint StopThread(ALvoid *thread); - -ALCcontext *GetContextSuspended(void); - -typedef struct RingBuffer RingBuffer; -RingBuffer *CreateRingBuffer(ALsizei frame_size, ALsizei length); -void DestroyRingBuffer(RingBuffer *ring); -ALsizei RingBufferSize(RingBuffer *ring); -void WriteRingBuffer(RingBuffer *ring, const ALubyte *data, ALsizei len); -void ReadRingBuffer(RingBuffer *ring, ALubyte *data, ALsizei len); - -void ReadALConfig(void); -void FreeALConfig(void); -int ConfigValueExists(const char *blockName, const char *keyName); -const char *GetConfigValue(const char *blockName, const char *keyName, const char *def); -int GetConfigValueInt(const char *blockName, const char *keyName, int def); -float GetConfigValueFloat(const char *blockName, const char *keyName, float def); -int GetConfigValueBool(const char *blockName, const char *keyName, int def); - -void SetRTPriority(void); - -void SetDefaultChannelOrder(ALCdevice *device); -void SetDefaultWFXChannelOrder(ALCdevice *device); - -void al_print(const char *fname, unsigned int line, const char *fmt, ...) - PRINTF_STYLE(3,4); -#define AL_PRINT(...) al_print(__FILE__, __LINE__, __VA_ARGS__) - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alSource.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alSource.h deleted file mode 100644 index b4a91e9d1..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alSource.h +++ /dev/null @@ -1,124 +0,0 @@ -#ifndef _AL_SOURCE_H_ -#define _AL_SOURCE_H_ - -#define MAX_SENDS 4 - -#include "alFilter.h" -#include "alu.h" -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - POINT_RESAMPLER = 0, - LINEAR_RESAMPLER, - CUBIC_RESAMPLER, - - RESAMPLER_MAX, - RESAMPLER_MIN = -1, - RESAMPLER_DEFAULT = LINEAR_RESAMPLER -} resampler_t; -extern resampler_t DefaultResampler; - -extern const ALsizei ResamplerPadding[RESAMPLER_MAX]; -extern const ALsizei ResamplerPrePadding[RESAMPLER_MAX]; - - -typedef struct ALbufferlistitem -{ - struct ALbuffer *buffer; - struct ALbufferlistitem *next; - struct ALbufferlistitem *prev; -} ALbufferlistitem; - -typedef struct ALsource -{ - ALfp flPitch; - ALfp flGain; - ALfp flOuterGain; - ALfp flMinGain; - ALfp flMaxGain; - ALfp flInnerAngle; - ALfp flOuterAngle; - ALfp flRefDistance; - ALfp flMaxDistance; - ALfp flRollOffFactor; - ALfp vPosition[3]; - ALfp vVelocity[3]; - ALfp vOrientation[3]; - ALboolean bHeadRelative; - ALboolean bLooping; - ALenum DistanceModel; - - // Apportably Extension - ALuint priority; - - resampler_t Resampler; - - ALenum state; - ALuint position; - ALuint position_fraction; - - struct ALbuffer *Buffer; - - ALbufferlistitem *queue; // Linked list of buffers in queue - ALuint BuffersInQueue; // Number of buffers in queue - ALuint BuffersPlayed; // Number of buffers played on this loop - - ALfilter DirectFilter; - - struct { - struct ALeffectslot *Slot; - ALfilter WetFilter; - } Send[MAX_SENDS]; - - ALboolean DryGainHFAuto; - ALboolean WetGainAuto; - ALboolean WetGainHFAuto; - ALfp OuterGainHF; - - ALfp AirAbsorptionFactor; - ALfp RoomRolloffFactor; - ALfp DopplerFactor; - - ALint lOffset; - ALint lOffsetType; - - // Source Type (Static, Streaming, or Undetermined) - ALint lSourceType; - - // Current target parameters used for mixing - ALboolean NeedsUpdate; - struct { - ALint Step; - - /* A mixing matrix. First subscript is the channel number of the input - * data (regardless of channel configuration) and the second is the - * channel target (eg. FRONT_LEFT) */ - ALfp DryGains[MAXCHANNELS][MAXCHANNELS]; - FILTER iirFilter; - ALfp history[MAXCHANNELS*2]; - - struct { - ALfp WetGain; - FILTER iirFilter; - ALfp history[MAXCHANNELS]; - } Send[MAX_SENDS]; - } Params; - - ALvoid (*Update)(struct ALsource *self, const ALCcontext *context); - - // Index to itself - ALuint source; -} ALsource; -#define ALsource_Update(s,a) ((s)->Update(s,a)) - -ALvoid ReleaseALSources(ALCcontext *Context); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alState.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alState.h deleted file mode 100644 index 332176b03..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alState.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef _AL_STATE_H_ -#define _AL_STATE_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alThunk.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alThunk.h deleted file mode 100644 index 902f00e54..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alThunk.h +++ /dev/null @@ -1,42 +0,0 @@ -#ifndef _AL_THUNK_H_ -#define _AL_THUNK_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -void alThunkInit(void); -void alThunkExit(void); -ALuint alThunkAddEntry(ALvoid *ptr); -void alThunkRemoveEntry(ALuint index); -ALvoid *alThunkLookupEntry(ALuint index); - -#if (SIZEOF_VOIDP > SIZEOF_UINT) - -#define ALTHUNK_INIT() alThunkInit() -#define ALTHUNK_EXIT() alThunkExit() -#define ALTHUNK_ADDENTRY(p) alThunkAddEntry(p) -#define ALTHUNK_REMOVEENTRY(i) alThunkRemoveEntry(i) -#define ALTHUNK_LOOKUPENTRY(i) alThunkLookupEntry(i) - -#else - -#define ALTHUNK_INIT() -#define ALTHUNK_EXIT() -#define ALTHUNK_ADDENTRY(p) ((ALuint)p) -#define ALTHUNK_REMOVEENTRY(i) ((ALvoid)i) -#define ALTHUNK_LOOKUPENTRY(i) ((ALvoid*)(i)) - -#endif // (SIZEOF_VOIDP > SIZEOF_INT) - -#ifdef __cplusplus -} -#endif - -#endif //_AL_THUNK_H_ - diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alu.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alu.h deleted file mode 100644 index 508eb3800..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/Include/alu.h +++ /dev/null @@ -1,140 +0,0 @@ -#ifndef _ALU_H_ -#define _ALU_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#include -#include -#ifdef HAVE_FLOAT_H -#include -#endif - -#ifndef M_PI -#define M_PI 3.14159265358979323846 /* pi */ -#define M_PI_2 1.57079632679489661923 /* pi/2 */ -#endif - -#ifdef HAVE_POWF -#define aluPow(x,y) (float2ALfp(powf(ALfp2float(x), ALfp2float(y)))) -#else -#define aluPow(x,y) (float2ALfp((float)pow((double)ALfp2float(x), (double)ALfp2float(y)))) -#endif - -#ifdef HAVE_SQRTF -#define aluSqrt(x) (float2ALfp(sqrtf(ALfp2float(x)))) -#else -#define aluSqrt(x) (float2ALfp((float)sqrt((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ACOSF -#define aluAcos(x) (float2ALfp(acosf(ALfp2float(x)))) -#else -#define aluAcos(x) (float2ALfp((float)acos((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ATANF -#define aluAtan(x) (float2ALfp(atanf(ALfp2float(x)))) -#else -#define aluAtan(x) (float2ALfp((float)atan((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_FABSF -#define aluFabs(x) (float2ALfp(fabsf(ALfp2float(x)))) -#else -#define aluFabs(x) (float2ALfp((float)fabs((double)ALfp2float(x)))) -#endif - -// FIXME make this better -#if defined(max) && !defined(__max) -#define __max(x,y) float2ALfp(max(ALfp2float(x),ALfp2float(y))) -#endif -#if defined(min) && !defined(__min) -#define __min(x,y) float2ALfp(min(ALfp2float(x),ALfp2float(y))) -#endif - -#define QUADRANT_NUM 128 -#define LUT_NUM (4 * QUADRANT_NUM) - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - FRONT_LEFT = 0, - FRONT_RIGHT, - FRONT_CENTER, - LFE, - BACK_LEFT, - BACK_RIGHT, - BACK_CENTER, - SIDE_LEFT, - SIDE_RIGHT, -} Channel; - -#ifndef MAXCHANNELS -#define MAXCHANNELS (SIDE_RIGHT+1) -#error MAXCHANNELS -#endif - -#define BUFFERSIZE 4096 - -#define FRACTIONBITS (14) -#define FRACTIONONE (1< -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alAuxEffectSlot.h" -#include "alThunk.h" -#include "alError.h" -#include "alSource.h" - - -static ALvoid InitializeEffect(ALCcontext *Context, ALeffectslot *EffectSlot, ALeffect *effect); - -#define LookupEffectSlot(m, k) ((ALeffectslot*)LookupUIntMapKey(&(m), (k))) -#define LookupEffect(m, k) ((ALeffect*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(n < 0 || IsBadWritePtr((void*)effectslots, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else if((ALuint)n > Device->AuxiliaryEffectSlotMax - Context->EffectSlotMap.size) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALenum err; - ALsizei i, j; - - i = 0; - while(i < n) - { - ALeffectslot *slot = calloc(1, sizeof(ALeffectslot)); - if(!slot || !(slot->EffectState=NoneCreate())) - { - free(slot); - // We must have run out or memory - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteAuxiliaryEffectSlots(i, effectslots); - break; - } - - slot->effectslot = (ALuint)ALTHUNK_ADDENTRY(slot); - err = InsertUIntMapEntry(&Context->EffectSlotMap, - slot->effectslot, slot); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(slot->effectslot); - ALEffect_Destroy(slot->EffectState); - free(slot); - - alSetError(Context, err); - alDeleteAuxiliaryEffectSlots(i, effectslots); - break; - } - - effectslots[i++] = slot->effectslot; - - slot->Gain = int2ALfp(1); - slot->AuxSendAuto = AL_TRUE; - for(j = 0;j < BUFFERSIZE;j++) - slot->WetBuffer[j] = int2ALfp(0); - for(j = 0;j < 1;j++) - { - slot->ClickRemoval[j] = int2ALfp(0); - slot->PendingClicks[j] = int2ALfp(0); - } - slot->refcount = 0; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - ALboolean SlotsValid = AL_FALSE; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - SlotsValid = AL_TRUE; - // Check that all effectslots are valid - for(i = 0;i < n;i++) - { - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslots[i])) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - SlotsValid = AL_FALSE; - break; - } - else if(EffectSlot->refcount > 0) - { - alSetError(Context, AL_INVALID_NAME); - SlotsValid = AL_FALSE; - break; - } - } - } - - if(SlotsValid) - { - // All effectslots are valid - for(i = 0;i < n;i++) - { - // Recheck that the effectslot is valid, because there could be duplicated names - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslots[i])) == NULL) - continue; - - ALEffect_Destroy(EffectSlot->EffectState); - - RemoveUIntMapKey(&Context->EffectSlotMap, EffectSlot->effectslot); - ALTHUNK_REMOVEENTRY(EffectSlot->effectslot); - - memset(EffectSlot, 0, sizeof(ALeffectslot)); - free(EffectSlot); - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = (LookupEffectSlot(Context->EffectSlotMap, effectslot) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue) -{ - ALCdevice *Device; - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - ALeffectslot *EffectSlot; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: { - ALeffect *effect = NULL; - - if(iValue == 0 || - (effect=LookupEffect(Device->EffectMap, iValue)) != NULL) - { - InitializeEffect(Context, EffectSlot, effect); - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - } break; - - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - if(iValue == AL_TRUE || iValue == AL_FALSE) - { - EffectSlot->AuxSendAuto = iValue; - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - // Force updating the sources that use this slot, since it affects the - // sending parameters - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - ALuint i; - for(i = 0;i < Device->NumAuxSends;i++) - { - if(!source->Send[i].Slot || - source->Send[i].Slot->effectslot != effectslot) - continue; - source->NeedsUpdate = AL_TRUE; - break; - } - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - alAuxiliaryEffectSloti(effectslot, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flArg) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - ALfp flValue = float2ALfp(flArg); - - Context = GetContextSuspended(); - if(!Context) return; - - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - if(flValue >= int2ALfp(0) && flValue <= int2ALfp(1)) - EffectSlot->Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - alAuxiliaryEffectSlotf(effectslot, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - - Context = GetContextSuspended(); - if(!Context) return; - - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: - *piValue = EffectSlot->effect.effect; - break; - - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - *piValue = EffectSlot->AuxSendAuto; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - alGetAuxiliaryEffectSloti(effectslot, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - - Context = GetContextSuspended(); - if(!Context) return; - - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - *pflValue = ALfp2float(EffectSlot->Gain); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - alGetAuxiliaryEffectSlotf(effectslot, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - - -static ALvoid NoneDestroy(ALeffectState *State) -{ free(State); } -static ALboolean NoneDeviceUpdate(ALeffectState *State, ALCdevice *Device) -{ - return AL_TRUE; - (void)State; - (void)Device; -} -static ALvoid NoneUpdate(ALeffectState *State, ALCcontext *Context, const ALeffect *Effect) -{ - (void)State; - (void)Context; - (void)Effect; -} -static ALvoid NoneProcess(ALeffectState *State, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - (void)State; - (void)Slot; - (void)SamplesToDo; - (void)SamplesIn; - (void)SamplesOut; -} -ALeffectState *NoneCreate(void) -{ - ALeffectState *state; - - state = calloc(1, sizeof(*state)); - if(!state) - return NULL; - - state->Destroy = NoneDestroy; - state->DeviceUpdate = NoneDeviceUpdate; - state->Update = NoneUpdate; - state->Process = NoneProcess; - - return state; -} - -static ALvoid InitializeEffect(ALCcontext *Context, ALeffectslot *EffectSlot, ALeffect *effect) -{ - if(EffectSlot->effect.type != (effect?effect->type:AL_EFFECT_NULL)) - { - ALeffectState *NewState = NULL; - if(!effect || effect->type == AL_EFFECT_NULL) - NewState = NoneCreate(); - else if(effect->type == AL_EFFECT_EAXREVERB) - NewState = EAXVerbCreate(); - else if(effect->type == AL_EFFECT_REVERB) - NewState = VerbCreate(); - else if(effect->type == AL_EFFECT_ECHO) - NewState = EchoCreate(); - else if(effect->type == AL_EFFECT_RING_MODULATOR) - NewState = ModulatorCreate(); - /* No new state? An error occured.. */ - if(NewState == NULL || - ALEffect_DeviceUpdate(NewState, Context->Device) == AL_FALSE) - { - if(NewState) - ALEffect_Destroy(NewState); - alSetError(Context, AL_OUT_OF_MEMORY); - return; - } - if(EffectSlot->EffectState) - ALEffect_Destroy(EffectSlot->EffectState); - EffectSlot->EffectState = NewState; - } - if(!effect) - memset(&EffectSlot->effect, 0, sizeof(EffectSlot->effect)); - else - memcpy(&EffectSlot->effect, effect, sizeof(*effect)); - ALEffect_Update(EffectSlot->EffectState, Context, effect); -} - - -ALvoid ReleaseALAuxiliaryEffectSlots(ALCcontext *Context) -{ - ALsizei pos; - for(pos = 0;pos < Context->EffectSlotMap.size;pos++) - { - ALeffectslot *temp = Context->EffectSlotMap.array[pos].value; - Context->EffectSlotMap.array[pos].value = NULL; - - // Release effectslot structure - ALEffect_Destroy(temp->EffectState); - - ALTHUNK_REMOVEENTRY(temp->effectslot); - memset(temp, 0, sizeof(ALeffectslot)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alAuxEffectSlot.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alAuxEffectSlot.h deleted file mode 100644 index 1c592ac8e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alAuxEffectSlot.h +++ /dev/null @@ -1,63 +0,0 @@ -#ifndef _AL_AUXEFFECTSLOT_H_ -#define _AL_AUXEFFECTSLOT_H_ - -#include "AL/al.h" -#include "alEffect.h" -#include "alFilter.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALeffectState ALeffectState; - -typedef struct ALeffectslot -{ - ALeffect effect; - - ALfp Gain; - ALboolean AuxSendAuto; - - ALeffectState *EffectState; - - ALfp WetBuffer[BUFFERSIZE]; - - ALfp ClickRemoval[1]; - ALfp PendingClicks[1]; - - ALuint refcount; - - // Index to itself - ALuint effectslot; - - struct ALeffectslot *next; -} ALeffectslot; - - -ALvoid ReleaseALAuxiliaryEffectSlots(ALCcontext *Context); - - -struct ALeffectState { - ALvoid (*Destroy)(ALeffectState *State); - ALboolean (*DeviceUpdate)(ALeffectState *State, ALCdevice *Device); - ALvoid (*Update)(ALeffectState *State, ALCcontext *Context, const ALeffect *Effect); - ALvoid (*Process)(ALeffectState *State, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]); -}; - -ALeffectState *NoneCreate(void); -ALeffectState *EAXVerbCreate(void); -ALeffectState *VerbCreate(void); -ALeffectState *EchoCreate(void); -ALeffectState *ModulatorCreate(void); - -#define ALEffect_Destroy(a) ((a)->Destroy((a))) -#define ALEffect_DeviceUpdate(a,b) ((a)->DeviceUpdate((a),(b))) -#define ALEffect_Update(a,b,c) ((a)->Update((a),(b),(c))) -#define ALEffect_Process(a,b,c,d,e) ((a)->Process((a),(b),(c),(d),(e))) - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alBuffer.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alBuffer.c deleted file mode 100644 index 8d83ac4b8..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alBuffer.c +++ /dev/null @@ -1,1897 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alError.h" -#include "alBuffer.h" -#include "alDatabuffer.h" -#include "alThunk.h" - - -static ALenum LoadData(ALbuffer *ALBuf, ALuint freq, ALenum NewFormat, ALsizei size, enum UserFmtChannels chans, enum UserFmtType type, const ALvoid *data); -static void ConvertData(ALvoid *dst, enum FmtType dstType, const ALvoid *src, enum UserFmtType srcType, ALsizei len); -static void ConvertDataIMA4(ALvoid *dst, enum FmtType dstType, const ALvoid *src, ALint chans, ALsizei len); - -#define LookupBuffer(m, k) ((ALbuffer*)LookupUIntMapKey(&(m), (k))) - - -/* - * Global Variables - */ - -/* IMA ADPCM Stepsize table */ -static const long IMAStep_size[89] = { - 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, - 21, 23, 25, 28, 31, 34, 37, 41, 45, 50, 55, - 60, 66, 73, 80, 88, 97, 107, 118, 130, 143, 157, - 173, 190, 209, 230, 253, 279, 307, 337, 371, 408, 449, - 494, 544, 598, 658, 724, 796, 876, 963, 1060, 1166, 1282, - 1411, 1552, 1707, 1878, 2066, 2272, 2499, 2749, 3024, 3327, 3660, - 4026, 4428, 4871, 5358, 5894, 6484, 7132, 7845, 8630, 9493,10442, - 11487,12635,13899,15289,16818,18500,20350,22358,24633,27086,29794, - 32767 -}; - -/* IMA4 ADPCM Codeword decode table */ -static const long IMA4Codeword[16] = { - 1, 3, 5, 7, 9, 11, 13, 15, - -1,-3,-5,-7,-9,-11,-13,-15, -}; - -/* IMA4 ADPCM Step index adjust decode table */ -static const long IMA4Index_adjust[16] = { - -1,-1,-1,-1, 2, 4, 6, 8, - -1,-1,-1,-1, 2, 4, 6, 8 -}; - -/* A quick'n'dirty lookup table to decode a muLaw-encoded byte sample into a - * signed 16-bit sample */ -static const ALshort muLawDecompressionTable[256] = { - -32124,-31100,-30076,-29052,-28028,-27004,-25980,-24956, - -23932,-22908,-21884,-20860,-19836,-18812,-17788,-16764, - -15996,-15484,-14972,-14460,-13948,-13436,-12924,-12412, - -11900,-11388,-10876,-10364, -9852, -9340, -8828, -8316, - -7932, -7676, -7420, -7164, -6908, -6652, -6396, -6140, - -5884, -5628, -5372, -5116, -4860, -4604, -4348, -4092, - -3900, -3772, -3644, -3516, -3388, -3260, -3132, -3004, - -2876, -2748, -2620, -2492, -2364, -2236, -2108, -1980, - -1884, -1820, -1756, -1692, -1628, -1564, -1500, -1436, - -1372, -1308, -1244, -1180, -1116, -1052, -988, -924, - -876, -844, -812, -780, -748, -716, -684, -652, - -620, -588, -556, -524, -492, -460, -428, -396, - -372, -356, -340, -324, -308, -292, -276, -260, - -244, -228, -212, -196, -180, -164, -148, -132, - -120, -112, -104, -96, -88, -80, -72, -64, - -56, -48, -40, -32, -24, -16, -8, 0, - 32124, 31100, 30076, 29052, 28028, 27004, 25980, 24956, - 23932, 22908, 21884, 20860, 19836, 18812, 17788, 16764, - 15996, 15484, 14972, 14460, 13948, 13436, 12924, 12412, - 11900, 11388, 10876, 10364, 9852, 9340, 8828, 8316, - 7932, 7676, 7420, 7164, 6908, 6652, 6396, 6140, - 5884, 5628, 5372, 5116, 4860, 4604, 4348, 4092, - 3900, 3772, 3644, 3516, 3388, 3260, 3132, 3004, - 2876, 2748, 2620, 2492, 2364, 2236, 2108, 1980, - 1884, 1820, 1756, 1692, 1628, 1564, 1500, 1436, - 1372, 1308, 1244, 1180, 1116, 1052, 988, 924, - 876, 844, 812, 780, 748, 716, 684, 652, - 620, 588, 556, 524, 492, 460, 428, 396, - 372, 356, 340, 324, 308, 292, 276, 260, - 244, 228, 212, 196, 180, 164, 148, 132, - 120, 112, 104, 96, 88, 80, 72, 64, - 56, 48, 40, 32, 24, 16, 8, 0 -}; - -/* Values used when encoding a muLaw sample */ -static const int muLawBias = 0x84; -static const int muLawClip = 32635; -static const char muLawCompressTable[256] = -{ - 0,0,1,1,2,2,2,2,3,3,3,3,3,3,3,3, - 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, - 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, - 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7 -}; - -/* - * alGenBuffers(ALsizei n, ALuint *buffers) - * - * Generates n AL Buffers, and stores the Buffers Names in the array pointed - * to by buffers - */ -AL_API ALvoid AL_APIENTRY alGenBuffers(ALsizei n, ALuint *buffers) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - /* Check that we are actually generating some Buffers */ - if(n < 0 || IsBadWritePtr((void*)buffers, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - // Create all the new Buffers - while(i < n) - { - ALbuffer *buffer = calloc(1, sizeof(ALbuffer)); - if(!buffer) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteBuffers(i, buffers); - break; - } - - buffer->buffer = (ALuint)ALTHUNK_ADDENTRY(buffer); - err = InsertUIntMapEntry(&device->BufferMap, buffer->buffer, buffer); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(buffer->buffer); - memset(buffer, 0, sizeof(ALbuffer)); - free(buffer); - - alSetError(Context, err); - alDeleteBuffers(i, buffers); - break; - } - buffers[i++] = buffer->buffer; - } - } - - ProcessContext(Context); -} - -/* - * alDeleteBuffers(ALsizei n, ALuint *buffers) - * - * Deletes the n AL Buffers pointed to by buffers - */ -AL_API ALvoid AL_APIENTRY alDeleteBuffers(ALsizei n, const ALuint *buffers) -{ - ALCcontext *Context; - ALCdevice *device; - ALboolean Failed; - ALbuffer *ALBuf; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - Failed = AL_TRUE; - device = Context->Device; - /* Check we are actually Deleting some Buffers */ - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - - /* Check that all the buffers are valid and can actually be deleted */ - for(i = 0;i < n;i++) - { - if(!buffers[i]) - continue; - - /* Check for valid Buffer ID */ - if((ALBuf=LookupBuffer(device->BufferMap, buffers[i])) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - else if(ALBuf->refcount != 0) - { - /* Buffer still in use, cannot be deleted */ - alSetError(Context, AL_INVALID_OPERATION); - Failed = AL_TRUE; - break; - } - } - } - - /* If all the Buffers were valid (and have Reference Counts of 0), then we - * can delete them */ - if(!Failed) - { - for(i = 0;i < n;i++) - { - if((ALBuf=LookupBuffer(device->BufferMap, buffers[i])) == NULL) - continue; - - /* Release the memory used to store audio data */ - free(ALBuf->data); - - /* Release buffer structure */ - RemoveUIntMapKey(&device->BufferMap, ALBuf->buffer); - ALTHUNK_REMOVEENTRY(ALBuf->buffer); - - memset(ALBuf, 0, sizeof(ALbuffer)); - free(ALBuf); - } - } - - ProcessContext(Context); -} - -/* - * alIsBuffer(ALuint buffer) - * - * Checks if buffer is a valid Buffer Name - */ -AL_API ALboolean AL_APIENTRY alIsBuffer(ALuint buffer) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = ((!buffer || LookupBuffer(Context->Device->BufferMap, buffer)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -/* - * alBufferData(ALuint buffer, ALenum format, const ALvoid *data, - * ALsizei size, ALsizei freq) - * - * Fill buffer with audio data - */ -AL_API ALvoid AL_APIENTRY alBufferData(ALuint buffer,ALenum format,const ALvoid *data,ALsizei size,ALsizei freq) -{ - enum UserFmtChannels SrcChannels; - enum UserFmtType SrcType; - ALCcontext *Context; - ALCdevice *device; - ALbuffer *ALBuf; - ALenum err; - - Context = GetContextSuspended(); - if(!Context) return; - - if(Context->SampleSource) - { - ALintptrEXT offset; - - if(Context->SampleSource->state == MAPPED) - { - alSetError(Context, AL_INVALID_OPERATION); - ProcessContext(Context); - return; - } - - offset = (const ALubyte*)data - (ALubyte*)NULL; - data = Context->SampleSource->data + offset; - } - - device = Context->Device; - if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(Context, AL_INVALID_NAME); - else if(ALBuf->refcount != 0) - alSetError(Context, AL_INVALID_VALUE); - else if(size < 0 || freq < 0) - alSetError(Context, AL_INVALID_VALUE); - else if(DecomposeUserFormat(format, &SrcChannels, &SrcType) == AL_FALSE) - alSetError(Context, AL_INVALID_ENUM); - else switch(SrcType) - { - case UserFmtByte: - case UserFmtUByte: - case UserFmtShort: - case UserFmtUShort: - case UserFmtInt: - case UserFmtUInt: - case UserFmtFloat: - err = LoadData(ALBuf, freq, format, size, SrcChannels, SrcType, data); - if(err != AL_NO_ERROR) - alSetError(Context, err); - break; - - case UserFmtDouble: { - ALenum NewFormat = AL_FORMAT_MONO_FLOAT32; - switch(SrcChannels) - { - case UserFmtMono: NewFormat = AL_FORMAT_MONO_FLOAT32; break; - case UserFmtStereo: NewFormat = AL_FORMAT_STEREO_FLOAT32; break; - case UserFmtRear: NewFormat = AL_FORMAT_REAR32; break; - case UserFmtQuad: NewFormat = AL_FORMAT_QUAD32; break; - case UserFmtX51: NewFormat = AL_FORMAT_51CHN32; break; - case UserFmtX61: NewFormat = AL_FORMAT_61CHN32; break; - case UserFmtX71: NewFormat = AL_FORMAT_71CHN32; break; - } - err = LoadData(ALBuf, freq, NewFormat, size, SrcChannels, SrcType, data); - if(err != AL_NO_ERROR) - alSetError(Context, err); - } break; - - case UserFmtMulaw: - case UserFmtIMA4: { - ALenum NewFormat = AL_FORMAT_MONO16; - switch(SrcChannels) - { - case UserFmtMono: NewFormat = AL_FORMAT_MONO16; break; - case UserFmtStereo: NewFormat = AL_FORMAT_STEREO16; break; - case UserFmtRear: NewFormat = AL_FORMAT_REAR16; break; - case UserFmtQuad: NewFormat = AL_FORMAT_QUAD16; break; - case UserFmtX51: NewFormat = AL_FORMAT_51CHN16; break; - case UserFmtX61: NewFormat = AL_FORMAT_61CHN16; break; - case UserFmtX71: NewFormat = AL_FORMAT_71CHN16; break; - } - err = LoadData(ALBuf, freq, NewFormat, size, SrcChannels, SrcType, data); - if(err != AL_NO_ERROR) - alSetError(Context, err); - } break; - } - - ProcessContext(Context); -} - -/* - * alBufferSubDataSOFT(ALuint buffer, ALenum format, const ALvoid *data, - * ALsizei offset, ALsizei length) - * - * Update buffer's audio data - */ -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length) -{ - enum UserFmtChannels SrcChannels; - enum UserFmtType SrcType; - ALCcontext *Context; - ALCdevice *device; - ALbuffer *ALBuf; - - Context = GetContextSuspended(); - if(!Context) return; - - if(Context->SampleSource) - { - - if(Context->SampleSource->state == MAPPED) - { - alSetError(Context, AL_INVALID_OPERATION); - ProcessContext(Context); - return; - } - - offset = (const ALubyte*)data - (ALubyte*)NULL; - data = Context->SampleSource->data + offset; - } - - device = Context->Device; - if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(Context, AL_INVALID_NAME); - else if(length < 0 || offset < 0 || (length > 0 && data == NULL)) - alSetError(Context, AL_INVALID_VALUE); - else if(DecomposeUserFormat(format, &SrcChannels, &SrcType) == AL_FALSE || - SrcChannels != ALBuf->OriginalChannels || - SrcType != ALBuf->OriginalType) - alSetError(Context, AL_INVALID_ENUM); - else if(offset > ALBuf->OriginalSize || - length > ALBuf->OriginalSize-offset || - (offset%ALBuf->OriginalAlign) != 0 || - (length%ALBuf->OriginalAlign) != 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - if(SrcType == UserFmtIMA4) - { - ALuint Channels = ChannelsFromFmt(ALBuf->FmtChannels); - ALuint Bytes = BytesFromFmt(ALBuf->FmtType); - - /* offset -> byte offset, length -> block count */ - offset /= 36; - offset *= 65; - offset *= Bytes; - length /= ALBuf->OriginalAlign; - - ConvertDataIMA4(&((ALubyte*)ALBuf->data)[offset], ALBuf->FmtType, - data, Channels, length); - } - else - { - ALuint OldBytes = BytesFromUserFmt(SrcType); - ALuint Bytes = BytesFromFmt(ALBuf->FmtType); - - offset /= OldBytes; - offset *= Bytes; - length /= OldBytes; - - ConvertData(&((ALubyte*)ALBuf->data)[offset], ALBuf->FmtType, - data, SrcType, length); - } - } - - ProcessContext(Context); -} - - -AL_API void AL_APIENTRY alBufferf(ALuint buffer, ALenum eParam, ALfloat flValue) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)flValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBuffer3f(ALuint buffer, ALenum eParam, ALfloat flValue1, ALfloat flValue2, ALfloat flValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)flValue1; - (void)flValue2; - (void)flValue3; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBufferfv(ALuint buffer, ALenum eParam, const ALfloat* flValues) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!flValues) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBufferi(ALuint buffer, ALenum eParam, ALint lValue) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)lValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBuffer3i( ALuint buffer, ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)lValue1; - (void)lValue2; - (void)lValue3; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBufferiv(ALuint buffer, ALenum eParam, const ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *device; - ALbuffer *ALBuf; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValues) - alSetError(pContext, AL_INVALID_VALUE); - else if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - case AL_LOOP_POINTS_SOFT: - if(ALBuf->refcount > 0) - alSetError(pContext, AL_INVALID_OPERATION); - else if(plValues[0] < 0 || plValues[1] < 0 || - plValues[0] >= plValues[1] || ALBuf->size == 0) - alSetError(pContext, AL_INVALID_VALUE); - else - { - ALint maxlen = ALBuf->size / - FrameSizeFromFmt(ALBuf->FmtChannels, ALBuf->FmtType); - if(plValues[0] > maxlen || plValues[1] > maxlen) - alSetError(pContext, AL_INVALID_VALUE); - else - { - ALBuf->LoopStart = plValues[0]; - ALBuf->LoopEnd = plValues[1]; - } - } - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetBufferf(ALuint buffer, ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!pflValue) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBuffer3f(ALuint buffer, ALenum eParam, ALfloat* pflValue1, ALfloat* pflValue2, ALfloat* pflValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!pflValue1 || !pflValue2 || !pflValue3) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBufferfv(ALuint buffer, ALenum eParam, ALfloat* pflValues) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!pflValues) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetBufferi(ALuint buffer, ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - ALbuffer *pBuffer; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValue) - alSetError(pContext, AL_INVALID_VALUE); - else if((pBuffer=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - case AL_FREQUENCY: - *plValue = pBuffer->Frequency; - break; - - case AL_BITS: - *plValue = BytesFromFmt(pBuffer->FmtType) * 8; - break; - - case AL_CHANNELS: - *plValue = ChannelsFromFmt(pBuffer->FmtChannels); - break; - - case AL_SIZE: - *plValue = pBuffer->size; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBuffer3i(ALuint buffer, ALenum eParam, ALint* plValue1, ALint* plValue2, ALint* plValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValue1 || !plValue2 || !plValue3) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBufferiv(ALuint buffer, ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *device; - ALbuffer *ALBuf; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValues) - alSetError(pContext, AL_INVALID_VALUE); - else if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - case AL_FREQUENCY: - case AL_BITS: - case AL_CHANNELS: - case AL_SIZE: - alGetBufferi(buffer, eParam, plValues); - break; - - case AL_LOOP_POINTS_SOFT: - plValues[0] = ALBuf->LoopStart; - plValues[1] = ALBuf->LoopEnd; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -typedef ALubyte ALmulaw; - -static __inline ALshort DecodeMuLaw(ALmulaw val) -{ return muLawDecompressionTable[val]; } - -static ALmulaw EncodeMuLaw(ALshort val) -{ - ALint mant, exp, sign; - - sign = (val>>8) & 0x80; - if(sign) - { - /* -32768 doesn't properly negate on a short; it results in itself. - * So clamp to -32767 */ - val = max(val, -32767); - val = -val; - } - - val = min(val, muLawClip); - val += muLawBias; - - exp = muLawCompressTable[(val>>7) & 0xff]; - mant = (val >> (exp+3)) & 0x0f; - - return ~(sign | (exp<<4) | mant); -} - -static void DecodeIMA4Block(ALshort *dst, const ALubyte *src, ALint numchans) -{ - ALint sample[MAXCHANNELS], index[MAXCHANNELS]; - ALuint code[MAXCHANNELS]; - ALsizei j,k,c; - - for(c = 0;c < numchans;c++) - { - sample[c] = *(src++); - sample[c] |= *(src++) << 8; - sample[c] = (sample[c]^0x8000) - 32768; - index[c] = *(src++); - index[c] |= *(src++) << 8; - index[c] = (index[c]^0x8000) - 32768; - - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - dst[c] = sample[c]; - } - - j = 1; - while(j < 65) - { - for(c = 0;c < numchans;c++) - { - code[c] = *(src++); - code[c] |= *(src++) << 8; - code[c] |= *(src++) << 16; - code[c] |= *(src++) << 24; - } - - for(k = 0;k < 8;k++,j++) - { - for(c = 0;c < numchans;c++) - { - int nibble = code[c]&0xf; - code[c] >>= 4; - - sample[c] += IMA4Codeword[nibble] * IMAStep_size[index[c]] / 8; - sample[c] = max(-32768, sample[c]); - sample[c] = min(sample[c], 32767); - - index[c] += IMA4Index_adjust[nibble]; - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - dst[j*numchans + c] = sample[c]; - } - } - } -} - -static void EncodeIMA4Block(ALubyte *dst, const ALshort *src, ALint *sample, ALint *index, ALint numchans) -{ - ALsizei j,k,c; - - for(c = 0;c < numchans;c++) - { - int diff = src[c] - sample[c]; - int step = IMAStep_size[index[c]]; - int nibble; - - nibble = 0; - if(diff < 0) - { - nibble = 0x8; - diff = -diff; - } - - diff = min(step*2, diff); - nibble |= (diff*8/step - 1) / 2; - - sample[c] += IMA4Codeword[nibble] * step / 8; - sample[c] = max(-32768, sample[c]); - sample[c] = min(sample[c], 32767); - - index[c] += IMA4Index_adjust[nibble]; - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - *(dst++) = sample[c] & 0xff; - *(dst++) = (sample[c]>>8) & 0xff; - *(dst++) = index[c] & 0xff; - *(dst++) = (index[c]>>8) & 0xff; - } - - j = 1; - while(j < 65) - { - for(c = 0;c < numchans;c++) - { - for(k = 0;k < 8;k++) - { - int diff = src[(j+k)*numchans + c] - sample[c]; - int step = IMAStep_size[index[c]]; - int nibble; - - nibble = 0; - if(diff < 0) - { - nibble = 0x8; - diff = -diff; - } - - diff = min(step*2, diff); - nibble |= (diff*8/step - 1) / 2; - - sample[c] += IMA4Codeword[nibble] * step / 8; - sample[c] = max(-32768, sample[c]); - sample[c] = min(sample[c], 32767); - - index[c] += IMA4Index_adjust[nibble]; - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - if(!(k&1)) *dst = nibble; - else *(dst++) |= nibble<<4; - } - } - j += 8; - } -} - - -static __inline ALbyte Conv_ALbyte_ALbyte(ALbyte val) -{ return val; } -static __inline ALbyte Conv_ALbyte_ALubyte(ALubyte val) -{ return val-128; } -static __inline ALbyte Conv_ALbyte_ALshort(ALshort val) -{ return val>>8; } -static __inline ALbyte Conv_ALbyte_ALushort(ALushort val) -{ return (val>>8)-128; } -static __inline ALbyte Conv_ALbyte_ALint(ALint val) -{ return val>>24; } -static __inline ALbyte Conv_ALbyte_ALuint(ALuint val) -{ return (val>>24)-128; } -static __inline ALbyte Conv_ALbyte_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 127; - if(val < int2ALfp(-1)) return -128; - return ALfp2int(ALfpMult(val, int2ALfp(127))); -} -static __inline ALbyte Conv_ALbyte_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 127; - if(val < int2ALdfp(-1)) return -128; - return ALdfp2int(ALdfpMult(val, int2ALdfp(127))); -} -static __inline ALbyte Conv_ALbyte_ALmulaw(ALmulaw val) -{ return Conv_ALbyte_ALshort(DecodeMuLaw(val)); } - -static __inline ALubyte Conv_ALubyte_ALbyte(ALbyte val) -{ return val+128; } -static __inline ALubyte Conv_ALubyte_ALubyte(ALubyte val) -{ return val; } -static __inline ALubyte Conv_ALubyte_ALshort(ALshort val) -{ return (val>>8)+128; } -static __inline ALubyte Conv_ALubyte_ALushort(ALushort val) -{ return val>>8; } -static __inline ALubyte Conv_ALubyte_ALint(ALint val) -{ return (val>>24)+128; } -static __inline ALubyte Conv_ALubyte_ALuint(ALuint val) -{ return val>>24; } -static __inline ALubyte Conv_ALubyte_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 255; - if(val < int2ALfp(-1)) return 0; - return ALfp2int(ALfpMult(val, int2ALfp(127))) + 128; -} -static __inline ALubyte Conv_ALubyte_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 255; - if(val < int2ALdfp(-1)) return 0; - return ALdfp2int(ALdfpMult(val, int2ALdfp(127))) + 128; -} -static __inline ALubyte Conv_ALubyte_ALmulaw(ALmulaw val) -{ return Conv_ALubyte_ALshort(DecodeMuLaw(val)); } - -static __inline ALshort Conv_ALshort_ALbyte(ALbyte val) -{ return val<<8; } -static __inline ALshort Conv_ALshort_ALubyte(ALubyte val) -{ return (val-128)<<8; } -static __inline ALshort Conv_ALshort_ALshort(ALshort val) -{ return val; } -static __inline ALshort Conv_ALshort_ALushort(ALushort val) -{ return val-32768; } -static __inline ALshort Conv_ALshort_ALint(ALint val) -{ return val>>16; } -static __inline ALshort Conv_ALshort_ALuint(ALuint val) -{ return (val>>16)-32768; } -static __inline ALshort Conv_ALshort_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 32767; - if(val < int2ALfp(-1)) return -32768; - return ALfp2int(ALfpMult(val, int2ALfp(32767))); -} -static __inline ALshort Conv_ALshort_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 32767; - if(val < int2ALdfp(-1)) return -32768; - return ALdfp2int(ALdfpMult(val, int2ALdfp(32767))); -} -static __inline ALshort Conv_ALshort_ALmulaw(ALmulaw val) -{ return Conv_ALshort_ALshort(DecodeMuLaw(val)); } - -static __inline ALushort Conv_ALushort_ALbyte(ALbyte val) -{ return (val+128)<<8; } -static __inline ALushort Conv_ALushort_ALubyte(ALubyte val) -{ return val<<8; } -static __inline ALushort Conv_ALushort_ALshort(ALshort val) -{ return val+32768; } -static __inline ALushort Conv_ALushort_ALushort(ALushort val) -{ return val; } -static __inline ALushort Conv_ALushort_ALint(ALint val) -{ return (val>>16)+32768; } -static __inline ALushort Conv_ALushort_ALuint(ALuint val) -{ return val>>16; } -static __inline ALushort Conv_ALushort_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 65535; - if(val < int2ALfp(-1)) return 0; - return ALfp2int(ALfpMult(val, int2ALfp(32767))) + 32768; -} -static __inline ALushort Conv_ALushort_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 65535; - if(val < int2ALdfp(-1)) return 0; - return ALdfp2int(ALdfpMult(val, int2ALdfp(32767))) + 32768; -} -static __inline ALushort Conv_ALushort_ALmulaw(ALmulaw val) -{ return Conv_ALushort_ALshort(DecodeMuLaw(val)); } - -static __inline ALint Conv_ALint_ALbyte(ALbyte val) -{ return val<<24; } -static __inline ALint Conv_ALint_ALubyte(ALubyte val) -{ return (val-128)<<24; } -static __inline ALint Conv_ALint_ALshort(ALshort val) -{ return val<<16; } -static __inline ALint Conv_ALint_ALushort(ALushort val) -{ return (val-32768)<<16; } -static __inline ALint Conv_ALint_ALint(ALint val) -{ return val; } -static __inline ALint Conv_ALint_ALuint(ALuint val) -{ return val-2147483648u; } -static __inline ALint Conv_ALint_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 2147483647; - if(val < int2ALfp(-1)) return -2147483647-1; - return ALfp2int(ALfpMult(val, int2ALfp(2147483647))); -} -static __inline ALint Conv_ALint_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 2147483647; - if(val < int2ALdfp(-1)) return -2147483647-1; - return ALdfp2int(ALdfpMult(val, int2ALdfp(2147483647))); -} -static __inline ALint Conv_ALint_ALmulaw(ALmulaw val) -{ return Conv_ALint_ALshort(DecodeMuLaw(val)); } - -static __inline ALuint Conv_ALuint_ALbyte(ALbyte val) -{ return (val+128)<<24; } -static __inline ALuint Conv_ALuint_ALubyte(ALubyte val) -{ return val<<24; } -static __inline ALuint Conv_ALuint_ALshort(ALshort val) -{ return (val+32768)<<16; } -static __inline ALuint Conv_ALuint_ALushort(ALushort val) -{ return val<<16; } -static __inline ALuint Conv_ALuint_ALint(ALint val) -{ return val+2147483648u; } -static __inline ALuint Conv_ALuint_ALuint(ALuint val) -{ return val; } -static __inline ALuint Conv_ALuint_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 4294967295u; - if(val < int2ALfp(-1)) return 0; - return ALfp2int(ALfpMult(val, int2ALfp(2147483647))) + 2147483648u; -} -static __inline ALuint Conv_ALuint_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 4294967295u; - if(val < int2ALdfp(-1)) return 0; - return ALdfp2int(ALdfpMult(val, int2ALdfp(2147483647))) + 2147483648u; -} -static __inline ALuint Conv_ALuint_ALmulaw(ALmulaw val) -{ return Conv_ALuint_ALshort(DecodeMuLaw(val)); } - -// FIXME(apportable) make this more efficient with shifts for integer input -static __inline ALfp Conv_ALfp_ALbyte(ALbyte val) -{ return float2ALfp(val * (1.0f/127.0f)); } -static __inline ALfp Conv_ALfp_ALubyte(ALubyte val) -{ return float2ALfp((val-128) * (1.0f/127.0f)); } -static __inline ALfp Conv_ALfp_ALshort(ALshort val) -{ return float2ALfp(val * (1.0f/32767.0f)); } -static __inline ALfp Conv_ALfp_ALushort(ALushort val) -{ return float2ALfp((val-32768) * (1.0f/32767.0f)); } -static __inline ALfp Conv_ALfp_ALint(ALint val) -{ return float2ALfp(val * (1.0/2147483647.0)); } -static __inline ALfp Conv_ALfp_ALuint(ALuint val) -{ return float2ALfp((ALint)(val-2147483648u) * (1.0/2147483647.0)); } -static __inline ALfp Conv_ALfp_ALfp(ALfp val) -{ return val; } -static __inline ALfp Conv_ALfp_ALdfp(ALdfp val) -{ return (ALfp)val; } -static __inline ALfp Conv_ALfp_ALmulaw(ALmulaw val) -{ return Conv_ALfp_ALshort(DecodeMuLaw(val)); } - -// FIXME replace with shifts for integer args -static __inline ALdfp Conv_ALdfp_ALbyte(ALbyte val) -{ return double2ALdfp(val * (1.0/127.0)); } -static __inline ALdfp Conv_ALdfp_ALubyte(ALubyte val) -{ return double2ALdfp((val-128) * (1.0/127.0)); } -static __inline ALdfp Conv_ALdfp_ALshort(ALshort val) -{ return double2ALdfp(val * (1.0/32767.0)); } -static __inline ALdfp Conv_ALdfp_ALushort(ALushort val) -{ return double2ALdfp((val-32768) * (1.0/32767.0)); } -static __inline ALdfp Conv_ALdfp_ALint(ALint val) -{ return double2ALdfp(val * (1.0/2147483647.0)); } -static __inline ALdfp Conv_ALdfp_ALuint(ALuint val) -{ return double2ALdfp((ALint)(val-2147483648u) * (1.0/2147483647.0)); } -static __inline ALdfp Conv_ALdfp_ALfp(ALfp val) -{ return (ALdfp)val; } -static __inline ALdfp Conv_ALdfp_ALdfp(ALdfp val) -{ return val; } -static __inline ALdfp Conv_ALdfp_ALmulaw(ALmulaw val) -{ return Conv_ALdfp_ALshort(DecodeMuLaw(val)); } - -#define DECL_TEMPLATE(T) \ -static __inline ALmulaw Conv_ALmulaw_##T(T val) \ -{ return EncodeMuLaw(Conv_ALshort_##T(val)); } - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -static __inline ALmulaw Conv_ALmulaw_ALmulaw(ALmulaw val) -{ return val; } - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T1, T2) \ -static void Convert_##T1##_##T2(T1 *dst, const T2 *src, ALuint len) \ -{ \ - ALuint i; \ - for(i = 0;i < len;i++) \ - *(dst++) = Conv_##T1##_##T2(*(src++)); \ -} - -DECL_TEMPLATE(ALbyte, ALbyte) -DECL_TEMPLATE(ALbyte, ALubyte) -DECL_TEMPLATE(ALbyte, ALshort) -DECL_TEMPLATE(ALbyte, ALushort) -DECL_TEMPLATE(ALbyte, ALint) -DECL_TEMPLATE(ALbyte, ALuint) -DECL_TEMPLATE(ALbyte, ALfp) -DECL_TEMPLATE(ALbyte, ALdfp) -DECL_TEMPLATE(ALbyte, ALmulaw) - -DECL_TEMPLATE(ALubyte, ALbyte) -DECL_TEMPLATE(ALubyte, ALubyte) -DECL_TEMPLATE(ALubyte, ALshort) -DECL_TEMPLATE(ALubyte, ALushort) -DECL_TEMPLATE(ALubyte, ALint) -DECL_TEMPLATE(ALubyte, ALuint) -DECL_TEMPLATE(ALubyte, ALfp) -DECL_TEMPLATE(ALubyte, ALdfp) -DECL_TEMPLATE(ALubyte, ALmulaw) - -DECL_TEMPLATE(ALshort, ALbyte) -DECL_TEMPLATE(ALshort, ALubyte) -DECL_TEMPLATE(ALshort, ALshort) -DECL_TEMPLATE(ALshort, ALushort) -DECL_TEMPLATE(ALshort, ALint) -DECL_TEMPLATE(ALshort, ALuint) -DECL_TEMPLATE(ALshort, ALfp) -DECL_TEMPLATE(ALshort, ALdfp) -DECL_TEMPLATE(ALshort, ALmulaw) - -DECL_TEMPLATE(ALushort, ALbyte) -DECL_TEMPLATE(ALushort, ALubyte) -DECL_TEMPLATE(ALushort, ALshort) -DECL_TEMPLATE(ALushort, ALushort) -DECL_TEMPLATE(ALushort, ALint) -DECL_TEMPLATE(ALushort, ALuint) -DECL_TEMPLATE(ALushort, ALfp) -DECL_TEMPLATE(ALushort, ALdfp) -DECL_TEMPLATE(ALushort, ALmulaw) - -DECL_TEMPLATE(ALint, ALbyte) -DECL_TEMPLATE(ALint, ALubyte) -DECL_TEMPLATE(ALint, ALshort) -DECL_TEMPLATE(ALint, ALushort) -DECL_TEMPLATE(ALint, ALint) -DECL_TEMPLATE(ALint, ALuint) -DECL_TEMPLATE(ALint, ALfp) -DECL_TEMPLATE(ALint, ALdfp) -DECL_TEMPLATE(ALint, ALmulaw) - -DECL_TEMPLATE(ALuint, ALbyte) -DECL_TEMPLATE(ALuint, ALubyte) -DECL_TEMPLATE(ALuint, ALshort) -DECL_TEMPLATE(ALuint, ALushort) -DECL_TEMPLATE(ALuint, ALint) -DECL_TEMPLATE(ALuint, ALuint) -DECL_TEMPLATE(ALuint, ALfp) -DECL_TEMPLATE(ALuint, ALdfp) -DECL_TEMPLATE(ALuint, ALmulaw) - -DECL_TEMPLATE(ALfp, ALbyte) -DECL_TEMPLATE(ALfp, ALubyte) -DECL_TEMPLATE(ALfp, ALshort) -DECL_TEMPLATE(ALfp, ALushort) -DECL_TEMPLATE(ALfp, ALint) -DECL_TEMPLATE(ALfp, ALuint) -DECL_TEMPLATE(ALfp, ALfp) -DECL_TEMPLATE(ALfp, ALdfp) -DECL_TEMPLATE(ALfp, ALmulaw) - -DECL_TEMPLATE(ALdfp, ALbyte) -DECL_TEMPLATE(ALdfp, ALubyte) -DECL_TEMPLATE(ALdfp, ALshort) -DECL_TEMPLATE(ALdfp, ALushort) -DECL_TEMPLATE(ALdfp, ALint) -DECL_TEMPLATE(ALdfp, ALuint) -DECL_TEMPLATE(ALdfp, ALfp) -DECL_TEMPLATE(ALdfp, ALdfp) -DECL_TEMPLATE(ALdfp, ALmulaw) - -DECL_TEMPLATE(ALmulaw, ALbyte) -DECL_TEMPLATE(ALmulaw, ALubyte) -DECL_TEMPLATE(ALmulaw, ALshort) -DECL_TEMPLATE(ALmulaw, ALushort) -DECL_TEMPLATE(ALmulaw, ALint) -DECL_TEMPLATE(ALmulaw, ALuint) -DECL_TEMPLATE(ALmulaw, ALfp) -DECL_TEMPLATE(ALmulaw, ALdfp) -DECL_TEMPLATE(ALmulaw, ALmulaw) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T) \ -static void Convert_##T##_IMA4(T *dst, const ALubyte *src, ALuint numchans, \ - ALuint numblocks) \ -{ \ - ALuint i, j; \ - ALshort tmp[65*MAXCHANNELS]; /* Max samples an IMA4 frame can be */ \ - for(i = 0;i < numblocks;i++) \ - { \ - DecodeIMA4Block(tmp, src, numchans); \ - src += 36*numchans; \ - for(j = 0;j < 65*numchans;j++) \ - *(dst++) = Conv_##T##_ALshort(tmp[j]); \ - } \ -} - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -DECL_TEMPLATE(ALmulaw) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T) \ -static void Convert_IMA4_##T(ALubyte *dst, const T *src, ALuint numchans, \ - ALuint numblocks) \ -{ \ - ALuint i, j; \ - ALshort tmp[65*MAXCHANNELS]; /* Max samples an IMA4 frame can be */ \ - ALint sample[MAXCHANNELS] = {0}; \ - ALint index[MAXCHANNELS] = {0}; \ - for(i = 0;i < numblocks;i++) \ - { \ - for(j = 0;j < 65*numchans;j++) \ - tmp[j] = Conv_ALshort_##T(*(src++)); \ - EncodeIMA4Block(dst, tmp, sample, index, numchans); \ - dst += 36*numchans; \ - } \ -} - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -DECL_TEMPLATE(ALmulaw) - -#undef DECL_TEMPLATE - -static void Convert_IMA4_IMA4(ALubyte *dst, const ALubyte *src, ALuint numchans, - ALuint numblocks) -{ - memcpy(dst, src, numblocks*36*numchans); -} - -#define DECL_TEMPLATE(T) \ -static void Convert_##T(T *dst, const ALvoid *src, enum UserFmtType srcType, \ - ALsizei len) \ -{ \ - switch(srcType) \ - { \ - case UserFmtByte: \ - Convert_##T##_ALbyte(dst, src, len); \ - break; \ - case UserFmtUByte: \ - Convert_##T##_ALubyte(dst, src, len); \ - break; \ - case UserFmtShort: \ - Convert_##T##_ALshort(dst, src, len); \ - break; \ - case UserFmtUShort: \ - Convert_##T##_ALushort(dst, src, len); \ - break; \ - case UserFmtInt: \ - Convert_##T##_ALint(dst, src, len); \ - break; \ - case UserFmtUInt: \ - Convert_##T##_ALuint(dst, src, len); \ - break; \ - case UserFmtFloat: \ - Convert_##T##_ALfp(dst, src, len); \ - break; \ - case UserFmtDouble: \ - Convert_##T##_ALdfp(dst, src, len); \ - break; \ - case UserFmtMulaw: \ - Convert_##T##_ALmulaw(dst, src, len); \ - break; \ - case UserFmtIMA4: \ - break; /* not handled here */ \ - } \ -} - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -DECL_TEMPLATE(ALmulaw) - -#undef DECL_TEMPLATE - -static void Convert_IMA4(ALubyte *dst, const ALvoid *src, enum UserFmtType srcType, - ALint chans, ALsizei len) -{ - switch(srcType) - { - case UserFmtByte: - Convert_IMA4_ALbyte(dst, src, chans, len); - break; - case UserFmtUByte: - Convert_IMA4_ALubyte(dst, src, chans, len); - break; - case UserFmtShort: - Convert_IMA4_ALshort(dst, src, chans, len); - break; - case UserFmtUShort: - Convert_IMA4_ALushort(dst, src, chans, len); - break; - case UserFmtInt: - Convert_IMA4_ALint(dst, src, chans, len); - break; - case UserFmtUInt: - Convert_IMA4_ALuint(dst, src, chans, len); - break; - case UserFmtFloat: - Convert_IMA4_ALfp(dst, src, chans, len); - break; - case UserFmtDouble: - Convert_IMA4_ALdfp(dst, src, chans, len); - break; - case UserFmtMulaw: - Convert_IMA4_ALmulaw(dst, src, chans, len); - break; - case UserFmtIMA4: - Convert_IMA4_IMA4(dst, src, chans, len); - break; - } -} - - -static void ConvertData(ALvoid *dst, enum FmtType dstType, const ALvoid *src, enum UserFmtType srcType, ALsizei len) -{ - switch(dstType) - { - (void)Convert_ALbyte; - case FmtUByte: - Convert_ALubyte(dst, src, srcType, len); - break; - case FmtShort: - Convert_ALshort(dst, src, srcType, len); - break; - (void)Convert_ALushort; - (void)Convert_ALint; - (void)Convert_ALuint; - case FmtFloat: - Convert_ALfp(dst, src, srcType, len); - break; - (void)Convert_ALdfp; - (void)Convert_ALmulaw; - (void)Convert_IMA4; - } -} - -static void ConvertDataIMA4(ALvoid *dst, enum FmtType dstType, const ALvoid *src, ALint chans, ALsizei len) -{ - switch(dstType) - { - (void)Convert_ALbyte_IMA4; - case FmtUByte: - Convert_ALubyte_IMA4(dst, src, chans, len); - break; - case FmtShort: - Convert_ALshort_IMA4(dst, src, chans, len); - break; - (void)Convert_ALushort_IMA4; - (void)Convert_ALint_IMA4; - (void)Convert_ALuint_IMA4; - case FmtFloat: - Convert_ALfp_IMA4(dst, src, chans, len); - break; - (void)Convert_ALdfp_IMA4; - (void)Convert_ALmulaw_IMA4; - } -} - - -/* - * LoadData - * - * Loads the specified data into the buffer, using the specified formats. - * Currently, the new format must have the same channel configuration as the - * original format. - */ -static ALenum LoadData(ALbuffer *ALBuf, ALuint freq, ALenum NewFormat, ALsizei size, enum UserFmtChannels SrcChannels, enum UserFmtType SrcType, const ALvoid *data) -{ - ALuint NewChannels, NewBytes; - enum FmtChannels DstChannels; - enum FmtType DstType; - ALuint64 newsize; - ALvoid *temp; - - DecomposeFormat(NewFormat, &DstChannels, &DstType); - NewChannels = ChannelsFromFmt(DstChannels); - NewBytes = BytesFromFmt(DstType); - - assert((int)SrcChannels == (int)DstChannels); - - if(SrcType == UserFmtIMA4) - { - ALuint OrigChannels = ChannelsFromUserFmt(SrcChannels); - - /* Here is where things vary: - * nVidia and Apple use 64+1 sample frames per block -> block_size=36 bytes per channel - * Most PC sound software uses 2040+1 sample frames per block -> block_size=1024 bytes per channel - */ - if((size%(36*OrigChannels)) != 0) - return AL_INVALID_VALUE; - - newsize = size / 36; - newsize *= 65; - newsize *= NewBytes; - if(newsize > INT_MAX) - return AL_OUT_OF_MEMORY; - - temp = realloc(ALBuf->data, newsize); - if(!temp && newsize) return AL_OUT_OF_MEMORY; - ALBuf->data = temp; - ALBuf->size = newsize; - - if(data != NULL) - ConvertDataIMA4(ALBuf->data, DstType, data, OrigChannels, - newsize/(65*NewChannels*NewBytes)); - - ALBuf->OriginalChannels = SrcChannels; - ALBuf->OriginalType = SrcType; - ALBuf->OriginalSize = size; - ALBuf->OriginalAlign = 36 * OrigChannels; - } - else - { - ALuint OrigBytes = BytesFromUserFmt(SrcType); - ALuint OrigChannels = ChannelsFromUserFmt(SrcChannels); - - if((size%(OrigBytes*OrigChannels)) != 0) - return AL_INVALID_VALUE; - - newsize = size / OrigBytes; - newsize *= NewBytes; - if(newsize > INT_MAX) - return AL_OUT_OF_MEMORY; - - temp = realloc(ALBuf->data, newsize); - if(!temp && newsize) return AL_OUT_OF_MEMORY; - ALBuf->data = temp; - ALBuf->size = newsize; - - if(data != NULL) - ConvertData(ALBuf->data, DstType, data, SrcType, newsize/NewBytes); - - ALBuf->OriginalChannels = SrcChannels; - ALBuf->OriginalType = SrcType; - ALBuf->OriginalSize = size; - ALBuf->OriginalAlign = OrigBytes * OrigChannels; - } - - ALBuf->Frequency = freq; - ALBuf->FmtChannels = DstChannels; - ALBuf->FmtType = DstType; - - ALBuf->LoopStart = 0; - ALBuf->LoopEnd = newsize / NewChannels / NewBytes; - - return AL_NO_ERROR; -} - - -ALuint BytesFromUserFmt(enum UserFmtType type) -{ - switch(type) - { - case UserFmtByte: return sizeof(ALbyte); - case UserFmtUByte: return sizeof(ALubyte); - case UserFmtShort: return sizeof(ALshort); - case UserFmtUShort: return sizeof(ALushort); - case UserFmtInt: return sizeof(ALint); - case UserFmtUInt: return sizeof(ALuint); - case UserFmtFloat: return sizeof(ALfp); - case UserFmtDouble: return sizeof(ALdfp); - case UserFmtMulaw: return sizeof(ALubyte); - case UserFmtIMA4: break; /* not handled here */ - } - return 0; -} -ALuint ChannelsFromUserFmt(enum UserFmtChannels chans) -{ - switch(chans) - { - case UserFmtMono: return 1; - case UserFmtStereo: return 2; - case UserFmtRear: return 2; - case UserFmtQuad: return 4; - case UserFmtX51: return 6; - case UserFmtX61: return 7; - case UserFmtX71: return 8; - } - return 0; -} -ALboolean DecomposeUserFormat(ALenum format, enum UserFmtChannels *chans, - enum UserFmtType *type) -{ - switch(format) - { - case AL_FORMAT_MONO8: - *chans = UserFmtMono; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_MONO16: - *chans = UserFmtMono; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_MONO_FLOAT32: - *chans = UserFmtMono; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_MONO_DOUBLE_EXT: - *chans = UserFmtMono; - *type = UserFmtDouble; - return AL_TRUE; - case AL_FORMAT_MONO_IMA4: - *chans = UserFmtMono; - *type = UserFmtIMA4; - return AL_TRUE; - case AL_FORMAT_STEREO8: - *chans = UserFmtStereo; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_STEREO16: - *chans = UserFmtStereo; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_STEREO_FLOAT32: - *chans = UserFmtStereo; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_STEREO_DOUBLE_EXT: - *chans = UserFmtStereo; - *type = UserFmtDouble; - return AL_TRUE; - case AL_FORMAT_STEREO_IMA4: - *chans = UserFmtStereo; - *type = UserFmtIMA4; - return AL_TRUE; - case AL_FORMAT_QUAD8_LOKI: - case AL_FORMAT_QUAD8: - *chans = UserFmtQuad; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_QUAD16_LOKI: - case AL_FORMAT_QUAD16: - *chans = UserFmtQuad; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_QUAD32: - *chans = UserFmtQuad; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_REAR8: - *chans = UserFmtRear; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_REAR16: - *chans = UserFmtRear; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_REAR32: - *chans = UserFmtRear; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_51CHN8: - *chans = UserFmtX51; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_51CHN16: - *chans = UserFmtX51; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_51CHN32: - *chans = UserFmtX51; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_61CHN8: - *chans = UserFmtX61; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_61CHN16: - *chans = UserFmtX61; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_61CHN32: - *chans = UserFmtX61; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_71CHN8: - *chans = UserFmtX71; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_71CHN16: - *chans = UserFmtX71; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_71CHN32: - *chans = UserFmtX71; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_MONO_MULAW: - *chans = UserFmtMono; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_STEREO_MULAW: - *chans = UserFmtStereo; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_QUAD_MULAW: - *chans = UserFmtQuad; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_REAR_MULAW: - *chans = UserFmtRear; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_51CHN_MULAW: - *chans = UserFmtX51; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_61CHN_MULAW: - *chans = UserFmtX61; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_71CHN_MULAW: - *chans = UserFmtX71; - *type = UserFmtMulaw; - return AL_TRUE; - } - return AL_FALSE; -} - -ALuint BytesFromFmt(enum FmtType type) -{ - switch(type) - { - case FmtUByte: return sizeof(ALubyte); - case FmtShort: return sizeof(ALshort); - case FmtFloat: return sizeof(ALfp); - } - return 0; -} -ALuint ChannelsFromFmt(enum FmtChannels chans) -{ - switch(chans) - { - case FmtMono: return 1; - case FmtStereo: return 2; - case FmtRear: return 2; - case FmtQuad: return 4; - case FmtX51: return 6; - case FmtX61: return 7; - case FmtX71: return 8; - } - return 0; -} -ALboolean DecomposeFormat(ALenum format, enum FmtChannels *chans, enum FmtType *type) -{ - switch(format) - { - case AL_FORMAT_MONO8: - *chans = FmtMono; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_MONO16: - *chans = FmtMono; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_MONO_FLOAT32: - *chans = FmtMono; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_STEREO8: - *chans = FmtStereo; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_STEREO16: - *chans = FmtStereo; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_STEREO_FLOAT32: - *chans = FmtStereo; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_QUAD8_LOKI: - case AL_FORMAT_QUAD8: - *chans = FmtQuad; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_QUAD16_LOKI: - case AL_FORMAT_QUAD16: - *chans = FmtQuad; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_QUAD32: - *chans = FmtQuad; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_REAR8: - *chans = FmtRear; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_REAR16: - *chans = FmtRear; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_REAR32: - *chans = FmtRear; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_51CHN8: - *chans = FmtX51; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_51CHN16: - *chans = FmtX51; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_51CHN32: - *chans = FmtX51; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_61CHN8: - *chans = FmtX61; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_61CHN16: - *chans = FmtX61; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_61CHN32: - *chans = FmtX61; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_71CHN8: - *chans = FmtX71; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_71CHN16: - *chans = FmtX71; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_71CHN32: - *chans = FmtX71; - *type = FmtFloat; - return AL_TRUE; - } - return AL_FALSE; -} - - -/* - * ReleaseALBuffers() - * - * INTERNAL: Called to destroy any buffers that still exist on the device - */ -ALvoid ReleaseALBuffers(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->BufferMap.size;i++) - { - ALbuffer *temp = device->BufferMap.array[i].value; - device->BufferMap.array[i].value = NULL; - - free(temp->data); - - ALTHUNK_REMOVEENTRY(temp->buffer); - memset(temp, 0, sizeof(ALbuffer)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alBuffer.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alBuffer.h deleted file mode 100644 index e22d839d5..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alBuffer.h +++ /dev/null @@ -1,98 +0,0 @@ -#ifndef _AL_BUFFER_H_ -#define _AL_BUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -/* Input formats (some are currently theoretical) */ -enum UserFmtType { - UserFmtByte, /* AL_BYTE */ - UserFmtUByte, /* AL_UNSIGNED_BYTE */ - UserFmtShort, /* AL_SHORT */ - UserFmtUShort, /* AL_UNSIGNED_SHORT */ - UserFmtInt, /* AL_INT */ - UserFmtUInt, /* AL_UNSIGNED_INT */ - UserFmtFloat, /* AL_FLOAT */ - UserFmtDouble, /* AL_DOUBLE */ - UserFmtMulaw, /* AL_MULAW */ - UserFmtIMA4, /* AL_IMA4 */ -}; -enum UserFmtChannels { - UserFmtMono, /* AL_MONO */ - UserFmtStereo, /* AL_STEREO */ - UserFmtRear, /* AL_REAR */ - UserFmtQuad, /* AL_QUAD */ - UserFmtX51, /* AL_5POINT1 (WFX order) */ - UserFmtX61, /* AL_6POINT1 (WFX order) */ - UserFmtX71, /* AL_7POINT1 (WFX order) */ -}; - -ALboolean DecomposeUserFormat(ALenum format, enum UserFmtChannels *chans, - enum UserFmtType *type); -ALuint BytesFromUserFmt(enum UserFmtType type); -ALuint ChannelsFromUserFmt(enum UserFmtChannels chans); -static __inline ALuint FrameSizeFromUserFmt(enum UserFmtChannels chans, - enum UserFmtType type) -{ - return ChannelsFromUserFmt(chans) * BytesFromUserFmt(type); -} - - -/* Storable formats */ -enum FmtType { - FmtUByte = UserFmtUByte, - FmtShort = UserFmtShort, - FmtFloat = UserFmtFloat, -}; -enum FmtChannels { - FmtMono = UserFmtMono, - FmtStereo = UserFmtStereo, - FmtRear = UserFmtRear, - FmtQuad = UserFmtQuad, - FmtX51 = UserFmtX51, - FmtX61 = UserFmtX61, - FmtX71 = UserFmtX71, -}; - -ALboolean DecomposeFormat(ALenum format, enum FmtChannels *chans, enum FmtType *type); -ALuint BytesFromFmt(enum FmtType type); -ALuint ChannelsFromFmt(enum FmtChannels chans); -static __inline ALuint FrameSizeFromFmt(enum FmtChannels chans, enum FmtType type) -{ - return ChannelsFromFmt(chans) * BytesFromFmt(type); -} - - -typedef struct ALbuffer -{ - ALvoid *data; - ALsizei size; - - ALsizei Frequency; - enum FmtChannels FmtChannels; - enum FmtType FmtType; - - enum UserFmtChannels OriginalChannels; - enum UserFmtType OriginalType; - ALsizei OriginalSize; - ALsizei OriginalAlign; - - ALsizei LoopStart; - ALsizei LoopEnd; - - ALuint refcount; // Number of sources using this buffer (deletion can only occur when this is 0) - - // Index to itself - ALuint buffer; -} ALbuffer; - -ALvoid ReleaseALBuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alDatabuffer.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alDatabuffer.c deleted file mode 100644 index cbe65a096..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alDatabuffer.c +++ /dev/null @@ -1,648 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" -#include "alError.h" -#include "alDatabuffer.h" -#include "alThunk.h" - - -#define LookupDatabuffer(m, k) ((ALdatabuffer*)LookupUIntMapKey(&(m), (k))) - -/* -* alGenDatabuffersEXT(ALsizei n, ALuint *puiBuffers) -* -* Generates n AL Databuffers, and stores the Databuffers Names in the array pointed to by puiBuffers -*/ -AL_API ALvoid AL_APIENTRY alGenDatabuffersEXT(ALsizei n,ALuint *puiBuffers) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - /* Check that we are actually generation some Databuffers */ - if(n < 0 || IsBadWritePtr((void*)puiBuffers, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - /* Create all the new Databuffers */ - while(i < n) - { - ALdatabuffer *buffer = calloc(1, sizeof(ALdatabuffer)); - if(!buffer) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteDatabuffersEXT(i, puiBuffers); - break; - } - - buffer->databuffer = ALTHUNK_ADDENTRY(buffer); - err = InsertUIntMapEntry(&device->DatabufferMap, - buffer->databuffer, buffer); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(buffer->databuffer); - memset(buffer, 0, sizeof(ALdatabuffer)); - free(buffer); - - alSetError(Context, err); - alDeleteDatabuffersEXT(i, puiBuffers); - break; - } - puiBuffers[i++] = buffer->databuffer; - - buffer->state = UNMAPPED; - } - } - - ProcessContext(Context); -} - -/* -* alDatabeleteBuffersEXT(ALsizei n, ALuint *puiBuffers) -* -* Deletes the n AL Databuffers pointed to by puiBuffers -*/ -AL_API ALvoid AL_APIENTRY alDeleteDatabuffersEXT(ALsizei n, const ALuint *buffers) -{ - ALCcontext *Context; - ALCdevice *device; - ALdatabuffer *ALBuf; - ALboolean Failed; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - /* Check we are actually Deleting some Databuffers */ - Failed = AL_TRUE; - device = Context->Device; - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - /* Check that all the databuffers are valid and can actually be - * deleted */ - for(i = 0;i < n;i++) - { - if(!buffers[i]) - continue; - - /* Check for valid Buffer ID */ - if((ALBuf=LookupDatabuffer(device->DatabufferMap, buffers[i])) == NULL) - { - /* Invalid Databuffer */ - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - else if(ALBuf->state != UNMAPPED) - { - /* Databuffer still in use, cannot be deleted */ - alSetError(Context, AL_INVALID_OPERATION); - Failed = AL_TRUE; - break; - } - } - } - - /* If all the Databuffers were valid (and unmapped), then we can delete them */ - if(!Failed) - { - for(i = 0;i < n;i++) - { - if((ALBuf=LookupDatabuffer(device->DatabufferMap, buffers[i])) == NULL) - continue; - - if(ALBuf == Context->SampleSource) - Context->SampleSource = NULL; - if(ALBuf == Context->SampleSink) - Context->SampleSink = NULL; - - // Release the memory used to store audio data - free(ALBuf->data); - - // Release buffer structure - RemoveUIntMapKey(&device->DatabufferMap, ALBuf->databuffer); - ALTHUNK_REMOVEENTRY(ALBuf->databuffer); - - memset(ALBuf, 0, sizeof(ALdatabuffer)); - free(ALBuf); - } - } - - ProcessContext(Context); -} - -/* -* alIsDatabufferEXT(ALuint uiBuffer) -* -* Checks if ulBuffer is a valid Databuffer Name -*/ -AL_API ALboolean AL_APIENTRY alIsDatabufferEXT(ALuint buffer) -{ - ALCcontext *Context; - ALboolean result; - ALCdevice *device; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - device = Context->Device; - result = ((!buffer || LookupDatabuffer(device->DatabufferMap, buffer)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -/* -* alDatabufferDataEXT(ALuint buffer,ALvoid *data,ALsizei size,ALenum usage) -* -* Fill databuffer with data -*/ -AL_API ALvoid AL_APIENTRY alDatabufferDataEXT(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage) -{ - ALCcontext *Context; - ALdatabuffer *ALBuf; - ALCdevice *Device; - ALvoid *temp; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALBuf=LookupDatabuffer(Device->DatabufferMap, buffer)) != NULL) - { - if(ALBuf->state == UNMAPPED) - { - if(usage == AL_STREAM_WRITE_EXT || usage == AL_STREAM_READ_EXT || - usage == AL_STREAM_COPY_EXT || usage == AL_STATIC_WRITE_EXT || - usage == AL_STATIC_READ_EXT || usage == AL_STATIC_COPY_EXT || - usage == AL_DYNAMIC_WRITE_EXT || usage == AL_DYNAMIC_READ_EXT || - usage == AL_DYNAMIC_COPY_EXT) - { - if(size >= 0) - { - /* (Re)allocate data */ - temp = realloc(ALBuf->data, size); - if(temp) - { - ALBuf->data = temp; - ALBuf->size = size; - ALBuf->usage = usage; - if(data) - memcpy(ALBuf->data, data, size); - } - else - alSetError(Context, AL_OUT_OF_MEMORY); - } - else - alSetError(Context, AL_INVALID_VALUE); - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_OPERATION); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDatabufferSubDataEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *data) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(start >= 0 && length >= 0 && start+length <= pBuffer->size) - { - if(pBuffer->state == UNMAPPED) - memcpy(pBuffer->data+start, data, length); - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferSubDataEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *data) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(start >= 0 && length >= 0 && start+length <= pBuffer->size) - { - if(pBuffer->state == UNMAPPED) - memcpy(data, pBuffer->data+start, length); - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat flValue) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)flValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alDatabufferfvEXT(ALuint buffer, ALenum eParam, const ALfloat* flValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)flValues; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alDatabufferiEXT(ALuint buffer, ALenum eParam, ALint lValue) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)lValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alDatabufferivEXT(ALuint buffer, ALenum eParam, const ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)plValues; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue) - { - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferfvEXT(ALuint buffer, ALenum eParam, ALfloat* pflValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferiEXT(ALuint buffer, ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue) - { - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, buffer)) != NULL) - { - switch(eParam) - { - case AL_SIZE: - *plValue = (ALint)pBuffer->size; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferivEXT(ALuint buffer, ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch (eParam) - { - case AL_SIZE: - alGetDatabufferiEXT(buffer, eParam, plValues); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSelectDatabufferEXT(ALenum target, ALuint uiBuffer) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer = NULL; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(uiBuffer == 0 || - (pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(target == AL_SAMPLE_SOURCE_EXT) - pContext->SampleSource = pBuffer; - else if(target == AL_SAMPLE_SINK_EXT) - pContext->SampleSink = pBuffer; - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid* AL_APIENTRY alMapDatabufferEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALvoid *ret = NULL; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return NULL; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(start >= 0 && length >= 0 && start+length <= pBuffer->size) - { - if(access == AL_READ_ONLY_EXT || access == AL_WRITE_ONLY_EXT || - access == AL_READ_WRITE_EXT) - { - if(pBuffer->state == UNMAPPED) - { - ret = pBuffer->data + start; - pBuffer->state = MAPPED; - } - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_ENUM); - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); - - return ret; -} - -AL_API ALvoid AL_APIENTRY alUnmapDatabufferEXT(ALuint uiBuffer) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(pBuffer->state == MAPPED) - pBuffer->state = UNMAPPED; - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -/* -* ReleaseALDatabuffers() -* -* INTERNAL FN : Called by DLLMain on exit to destroy any buffers that still exist -*/ -ALvoid ReleaseALDatabuffers(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->DatabufferMap.size;i++) - { - ALdatabuffer *temp = device->DatabufferMap.array[i].value; - device->DatabufferMap.array[i].value = NULL; - - // Release buffer data - free(temp->data); - - // Release Buffer structure - ALTHUNK_REMOVEENTRY(temp->databuffer); - memset(temp, 0, sizeof(ALdatabuffer)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alDatabuffer.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alDatabuffer.h deleted file mode 100644 index 221855283..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alDatabuffer.h +++ /dev/null @@ -1,33 +0,0 @@ -#ifndef _AL_DATABUFFER_H_ -#define _AL_DATABUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define UNMAPPED 0 -#define MAPPED 1 - -typedef struct ALdatabuffer -{ - ALubyte *data; - ALintptrEXT size; - - ALenum state; - ALenum usage; - - /* Index to self */ - ALuint databuffer; - - struct ALdatabuffer *next; -} ALdatabuffer; - -ALvoid ReleaseALDatabuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alEffect.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alEffect.c deleted file mode 100644 index cb07e2164..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alEffect.c +++ /dev/null @@ -1,1377 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alEffect.h" -#include "alThunk.h" -#include "alError.h" - - -ALboolean DisabledEffects[MAX_EFFECTS]; - - -static void InitEffectParams(ALeffect *effect, ALenum type); - -#define LookupEffect(m, k) ((ALeffect*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0 || IsBadWritePtr((void*)effects, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - while(i < n) - { - ALeffect *effect = calloc(1, sizeof(ALeffect)); - if(!effect) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteEffects(i, effects); - break; - } - - effect->effect = ALTHUNK_ADDENTRY(effect); - err = InsertUIntMapEntry(&device->EffectMap, effect->effect, effect); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(effect->effect); - memset(effect, 0, sizeof(ALeffect)); - free(effect); - - alSetError(Context, err); - alDeleteEffects(i, effects); - break; - } - - effects[i++] = effect->effect; - InitEffectParams(effect, AL_EFFECT_NULL); - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects) -{ - ALCcontext *Context; - ALCdevice *device; - ALeffect *ALEffect; - ALboolean Failed; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - Failed = AL_TRUE; - device = Context->Device; - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - // Check that all effects are valid - for(i = 0;i < n;i++) - { - if(!effects[i]) - continue; - - if(LookupEffect(device->EffectMap, effects[i]) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - } - } - - if(!Failed) - { - // All effects are valid - for(i = 0;i < n;i++) - { - // Recheck that the effect is valid, because there could be duplicated names - if((ALEffect=LookupEffect(device->EffectMap, effects[i])) == NULL) - continue; - - RemoveUIntMapKey(&device->EffectMap, ALEffect->effect); - ALTHUNK_REMOVEENTRY(ALEffect->effect); - - memset(ALEffect, 0, sizeof(ALeffect)); - free(ALEffect); - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = ((!effect || LookupEffect(Context->Device->EffectMap, effect)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - ALboolean isOk = (iValue == AL_EFFECT_NULL || - (iValue == AL_EFFECT_EAXREVERB && !DisabledEffects[EAXREVERB]) || - (iValue == AL_EFFECT_REVERB && !DisabledEffects[REVERB]) || - (iValue == AL_EFFECT_ECHO && !DisabledEffects[ECHO]) || - (iValue == AL_EFFECT_RING_MODULATOR && !DisabledEffects[MODULATOR])); - - if(isOk) - InitEffectParams(ALEffect, iValue); - else - alSetError(Context, AL_INVALID_VALUE); - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - if(iValue >= AL_EAXREVERB_MIN_DECAY_HFLIMIT && - iValue <= AL_EAXREVERB_MAX_DECAY_HFLIMIT) - ALEffect->Reverb.DecayHFLimit = iValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - if(iValue >= AL_REVERB_MIN_DECAY_HFLIMIT && - iValue <= AL_REVERB_MAX_DECAY_HFLIMIT) - ALEffect->Reverb.DecayHFLimit = iValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - alEffectf(effect, param, (ALfloat)iValue); - break; - - case AL_RING_MODULATOR_WAVEFORM: - if(iValue >= AL_RING_MODULATOR_MIN_WAVEFORM && - iValue <= AL_RING_MODULATOR_MAX_WAVEFORM) - ALEffect->Modulator.Waveform = iValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - alEffecti(effect, param, piValues[0]); - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - alEffecti(effect, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - alEffecti(effect, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - case AL_RING_MODULATOR_WAVEFORM: - alEffecti(effect, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flArg) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - ALfp flValue = float2ALfp(flArg); - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DENSITY) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DENSITY)) - ALEffect->Reverb.Density = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DIFFUSION: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DIFFUSION) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DIFFUSION)) - ALEffect->Reverb.Diffusion = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_GAIN: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_GAIN) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_GAIN)) - ALEffect->Reverb.Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_GAINHF: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_GAINHF) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_GAIN)) - ALEffect->Reverb.GainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_GAINLF: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_GAINLF) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_GAINLF)) - ALEffect->Reverb.GainLF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DECAY_TIME: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DECAY_TIME) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DECAY_TIME)) - ALEffect->Reverb.DecayTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DECAY_HFRATIO: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DECAY_HFRATIO) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DECAY_HFRATIO)) - ALEffect->Reverb.DecayHFRatio = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DECAY_LFRATIO: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DECAY_LFRATIO) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DECAY_LFRATIO)) - ALEffect->Reverb.DecayLFRatio = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_REFLECTIONS_GAIN: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_REFLECTIONS_GAIN) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_REFLECTIONS_GAIN)) - ALEffect->Reverb.ReflectionsGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_REFLECTIONS_DELAY: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_REFLECTIONS_DELAY) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_REFLECTIONS_DELAY)) - ALEffect->Reverb.ReflectionsDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_LATE_REVERB_GAIN: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_LATE_REVERB_GAIN) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_LATE_REVERB_GAIN)) - ALEffect->Reverb.LateReverbGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_LATE_REVERB_DELAY: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_LATE_REVERB_DELAY) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_LATE_REVERB_DELAY)) - ALEffect->Reverb.LateReverbDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF)) - ALEffect->Reverb.AirAbsorptionGainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_ECHO_TIME: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_ECHO_TIME) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_ECHO_TIME)) - ALEffect->Reverb.EchoTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_ECHO_DEPTH: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_ECHO_DEPTH) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_ECHO_DEPTH)) - ALEffect->Reverb.EchoDepth = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_MODULATION_TIME: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_MODULATION_TIME) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_MODULATION_TIME)) - ALEffect->Reverb.ModulationTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_MODULATION_DEPTH: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_MODULATION_DEPTH) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_MODULATION_DEPTH)) - ALEffect->Reverb.ModulationDepth = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_HFREFERENCE: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_HFREFERENCE) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_HFREFERENCE)) - ALEffect->Reverb.HFReference = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_LFREFERENCE: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_LFREFERENCE) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_LFREFERENCE)) - ALEffect->Reverb.LFReference = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - if(flValue >= float2ALfp(0.0f) && flValue <= float2ALfp(10.0f)) - ALEffect->Reverb.RoomRolloffFactor = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - if(flValue >= float2ALfp(AL_REVERB_MIN_DENSITY) && - flValue <= float2ALfp(AL_REVERB_MAX_DENSITY)) - ALEffect->Reverb.Density = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_DIFFUSION: - if(flValue >= float2ALfp(AL_REVERB_MIN_DIFFUSION) && - flValue <= float2ALfp(AL_REVERB_MAX_DIFFUSION)) - ALEffect->Reverb.Diffusion = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_GAIN: - if(flValue >= float2ALfp(AL_REVERB_MIN_GAIN) && - flValue <= float2ALfp(AL_REVERB_MAX_GAIN)) - ALEffect->Reverb.Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_GAINHF: - if(flValue >= float2ALfp(AL_REVERB_MIN_GAINHF) && - flValue <= float2ALfp(AL_REVERB_MAX_GAINHF)) - ALEffect->Reverb.GainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_DECAY_TIME: - if(flValue >= float2ALfp(AL_REVERB_MIN_DECAY_TIME) && - flValue <= float2ALfp(AL_REVERB_MAX_DECAY_TIME)) - ALEffect->Reverb.DecayTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_DECAY_HFRATIO: - if(flValue >= float2ALfp(AL_REVERB_MIN_DECAY_HFRATIO) && - flValue <= float2ALfp(AL_REVERB_MAX_DECAY_HFRATIO)) - ALEffect->Reverb.DecayHFRatio = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_REFLECTIONS_GAIN: - if(flValue >= float2ALfp(AL_REVERB_MIN_REFLECTIONS_GAIN) && - flValue <= float2ALfp(AL_REVERB_MAX_REFLECTIONS_GAIN)) - ALEffect->Reverb.ReflectionsGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_REFLECTIONS_DELAY: - if(flValue >= float2ALfp(AL_REVERB_MIN_REFLECTIONS_DELAY) && - flValue <= float2ALfp(AL_REVERB_MAX_REFLECTIONS_DELAY)) - ALEffect->Reverb.ReflectionsDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_LATE_REVERB_GAIN: - if(flValue >= float2ALfp(AL_REVERB_MIN_LATE_REVERB_GAIN) && - flValue <= float2ALfp(AL_REVERB_MAX_LATE_REVERB_GAIN)) - ALEffect->Reverb.LateReverbGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_LATE_REVERB_DELAY: - if(flValue >= float2ALfp(AL_REVERB_MIN_LATE_REVERB_DELAY) && - flValue <= float2ALfp(AL_REVERB_MAX_LATE_REVERB_DELAY)) - ALEffect->Reverb.LateReverbDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_AIR_ABSORPTION_GAINHF: - if(flValue >= float2ALfp(AL_REVERB_MIN_AIR_ABSORPTION_GAINHF) && - flValue <= float2ALfp(AL_REVERB_MAX_AIR_ABSORPTION_GAINHF)) - ALEffect->Reverb.AirAbsorptionGainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - if(flValue >= float2ALfp(AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR) && - flValue <= float2ALfp(AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR)) - ALEffect->Reverb.RoomRolloffFactor = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - if(flValue >= float2ALfp(AL_ECHO_MIN_DELAY) && flValue <= float2ALfp(AL_ECHO_MAX_DELAY)) - ALEffect->Echo.Delay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_LRDELAY: - if(flValue >= float2ALfp(AL_ECHO_MIN_LRDELAY) && flValue <= float2ALfp(AL_ECHO_MAX_LRDELAY)) - ALEffect->Echo.LRDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_DAMPING: - if(flValue >= float2ALfp(AL_ECHO_MIN_DAMPING) && flValue <= float2ALfp(AL_ECHO_MAX_DAMPING)) - ALEffect->Echo.Damping = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_FEEDBACK: - if(flValue >= float2ALfp(AL_ECHO_MIN_FEEDBACK) && flValue <= float2ALfp(AL_ECHO_MAX_FEEDBACK)) - ALEffect->Echo.Feedback = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_SPREAD: - if(flValue >= float2ALfp(AL_ECHO_MIN_SPREAD) && flValue <= float2ALfp(AL_ECHO_MAX_SPREAD)) - ALEffect->Echo.Spread = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - if(flValue >= float2ALfp(AL_RING_MODULATOR_MIN_FREQUENCY) && - flValue <= float2ALfp(AL_RING_MODULATOR_MAX_FREQUENCY)) - ALEffect->Modulator.Frequency = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - if(flValue >= float2ALfp(AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF) && - flValue <= float2ALfp(AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF)) - ALEffect->Modulator.HighPassCutoff = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - case AL_EAXREVERB_DIFFUSION: - case AL_EAXREVERB_GAIN: - case AL_EAXREVERB_GAINHF: - case AL_EAXREVERB_GAINLF: - case AL_EAXREVERB_DECAY_TIME: - case AL_EAXREVERB_DECAY_HFRATIO: - case AL_EAXREVERB_DECAY_LFRATIO: - case AL_EAXREVERB_REFLECTIONS_GAIN: - case AL_EAXREVERB_REFLECTIONS_DELAY: - case AL_EAXREVERB_LATE_REVERB_GAIN: - case AL_EAXREVERB_LATE_REVERB_DELAY: - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - case AL_EAXREVERB_ECHO_TIME: - case AL_EAXREVERB_ECHO_DEPTH: - case AL_EAXREVERB_MODULATION_TIME: - case AL_EAXREVERB_MODULATION_DEPTH: - case AL_EAXREVERB_HFREFERENCE: - case AL_EAXREVERB_LFREFERENCE: - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - alEffectf(effect, param, pflValues[0]); - break; - - case AL_EAXREVERB_REFLECTIONS_PAN: - if(!__isnan(pflValues[0]) && !__isnan(pflValues[1]) && !__isnan(pflValues[2])) - { - ALEffect->Reverb.ReflectionsPan[0] = float2ALfp(pflValues[0]); - ALEffect->Reverb.ReflectionsPan[1] = float2ALfp(pflValues[1]); - ALEffect->Reverb.ReflectionsPan[2] = float2ALfp(pflValues[2]); - } - else - alSetError(Context, AL_INVALID_VALUE); - break; - case AL_EAXREVERB_LATE_REVERB_PAN: - if(!__isnan(pflValues[0]) && !__isnan(pflValues[1]) && !__isnan(pflValues[2])) - { - ALEffect->Reverb.LateReverbPan[0] = float2ALfp(pflValues[0]); - ALEffect->Reverb.LateReverbPan[1] = float2ALfp(pflValues[1]); - ALEffect->Reverb.LateReverbPan[2] = float2ALfp(pflValues[2]); - } - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - case AL_REVERB_DIFFUSION: - case AL_REVERB_GAIN: - case AL_REVERB_GAINHF: - case AL_REVERB_DECAY_TIME: - case AL_REVERB_DECAY_HFRATIO: - case AL_REVERB_REFLECTIONS_GAIN: - case AL_REVERB_REFLECTIONS_DELAY: - case AL_REVERB_LATE_REVERB_GAIN: - case AL_REVERB_LATE_REVERB_DELAY: - case AL_REVERB_AIR_ABSORPTION_GAINHF: - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - alEffectf(effect, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - case AL_ECHO_LRDELAY: - case AL_ECHO_DAMPING: - case AL_ECHO_FEEDBACK: - case AL_ECHO_SPREAD: - alEffectf(effect, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - alEffectf(effect, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - *piValue = ALEffect->type; - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - *piValue = ALEffect->Reverb.DecayHFLimit; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - *piValue = ALEffect->Reverb.DecayHFLimit; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - *piValue = (ALint)ALfp2float(ALEffect->Modulator.Frequency); - break; - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - *piValue = (ALint)ALfp2float(ALEffect->Modulator.HighPassCutoff); - break; - case AL_RING_MODULATOR_WAVEFORM: - *piValue = ALEffect->Modulator.Waveform; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - alGetEffecti(effect, param, piValues); - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - alGetEffecti(effect, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - alGetEffecti(effect, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - case AL_RING_MODULATOR_WAVEFORM: - alGetEffecti(effect, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - *pflValue = ALfp2float(ALEffect->Reverb.Density); - break; - - case AL_EAXREVERB_DIFFUSION: - *pflValue = ALfp2float(ALEffect->Reverb.Diffusion); - break; - - case AL_EAXREVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.Gain); - break; - - case AL_EAXREVERB_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.GainHF); - break; - - case AL_EAXREVERB_GAINLF: - *pflValue = ALfp2float(ALEffect->Reverb.GainLF); - break; - - case AL_EAXREVERB_DECAY_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.DecayTime); - break; - - case AL_EAXREVERB_DECAY_HFRATIO: - *pflValue = ALfp2float(ALEffect->Reverb.DecayHFRatio); - break; - - case AL_EAXREVERB_DECAY_LFRATIO: - *pflValue = ALfp2float(ALEffect->Reverb.DecayLFRatio); - break; - - case AL_EAXREVERB_REFLECTIONS_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsGain); - break; - - case AL_EAXREVERB_REFLECTIONS_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsDelay); - break; - - case AL_EAXREVERB_LATE_REVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbGain); - break; - - case AL_EAXREVERB_LATE_REVERB_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbDelay); - break; - - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.AirAbsorptionGainHF); - break; - - case AL_EAXREVERB_ECHO_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.EchoTime); - break; - - case AL_EAXREVERB_ECHO_DEPTH: - *pflValue = ALfp2float(ALEffect->Reverb.EchoDepth); - break; - - case AL_EAXREVERB_MODULATION_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.ModulationTime); - break; - - case AL_EAXREVERB_MODULATION_DEPTH: - *pflValue = ALfp2float(ALEffect->Reverb.ModulationDepth); - break; - - case AL_EAXREVERB_HFREFERENCE: - *pflValue = ALfp2float(ALEffect->Reverb.HFReference); - break; - - case AL_EAXREVERB_LFREFERENCE: - *pflValue = ALfp2float(ALEffect->Reverb.LFReference); - break; - - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - *pflValue = ALfp2float(ALEffect->Reverb.RoomRolloffFactor); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - *pflValue = ALfp2float(ALEffect->Reverb.Density); - break; - - case AL_REVERB_DIFFUSION: - *pflValue = ALfp2float(ALEffect->Reverb.Diffusion); - break; - - case AL_REVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.Gain); - break; - - case AL_REVERB_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.GainHF); - break; - - case AL_REVERB_DECAY_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.DecayTime); - break; - - case AL_REVERB_DECAY_HFRATIO: - *pflValue = ALfp2float(ALEffect->Reverb.DecayHFRatio); - break; - - case AL_REVERB_REFLECTIONS_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsGain); - break; - - case AL_REVERB_REFLECTIONS_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsDelay); - break; - - case AL_REVERB_LATE_REVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbGain); - break; - - case AL_REVERB_LATE_REVERB_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbDelay); - break; - - case AL_REVERB_AIR_ABSORPTION_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.AirAbsorptionGainHF); - break; - - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - *pflValue = ALfp2float(ALEffect->Reverb.RoomRolloffFactor); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - *pflValue = ALfp2float(ALEffect->Echo.Delay); - break; - - case AL_ECHO_LRDELAY: - *pflValue = ALfp2float(ALEffect->Echo.LRDelay); - break; - - case AL_ECHO_DAMPING: - *pflValue = ALfp2float(ALEffect->Echo.Damping); - break; - - case AL_ECHO_FEEDBACK: - *pflValue = ALfp2float(ALEffect->Echo.Feedback); - break; - - case AL_ECHO_SPREAD: - *pflValue = ALfp2float(ALEffect->Echo.Spread); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - *pflValue = ALfp2float(ALEffect->Modulator.Frequency); - break; - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - *pflValue = ALfp2float(ALEffect->Modulator.HighPassCutoff); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - case AL_EAXREVERB_DIFFUSION: - case AL_EAXREVERB_GAIN: - case AL_EAXREVERB_GAINHF: - case AL_EAXREVERB_GAINLF: - case AL_EAXREVERB_DECAY_TIME: - case AL_EAXREVERB_DECAY_HFRATIO: - case AL_EAXREVERB_DECAY_LFRATIO: - case AL_EAXREVERB_REFLECTIONS_GAIN: - case AL_EAXREVERB_REFLECTIONS_DELAY: - case AL_EAXREVERB_LATE_REVERB_GAIN: - case AL_EAXREVERB_LATE_REVERB_DELAY: - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - case AL_EAXREVERB_ECHO_TIME: - case AL_EAXREVERB_ECHO_DEPTH: - case AL_EAXREVERB_MODULATION_TIME: - case AL_EAXREVERB_MODULATION_DEPTH: - case AL_EAXREVERB_HFREFERENCE: - case AL_EAXREVERB_LFREFERENCE: - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - alGetEffectf(effect, param, pflValues); - break; - - case AL_EAXREVERB_REFLECTIONS_PAN: - pflValues[0] = ALfp2float(ALEffect->Reverb.ReflectionsPan[0]); - pflValues[1] = ALfp2float(ALEffect->Reverb.ReflectionsPan[1]); - pflValues[2] = ALfp2float(ALEffect->Reverb.ReflectionsPan[2]); - break; - case AL_EAXREVERB_LATE_REVERB_PAN: - pflValues[0] = ALfp2float(ALEffect->Reverb.LateReverbPan[0]); - pflValues[1] = ALfp2float(ALEffect->Reverb.LateReverbPan[1]); - pflValues[2] = ALfp2float(ALEffect->Reverb.LateReverbPan[2]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - case AL_REVERB_DIFFUSION: - case AL_REVERB_GAIN: - case AL_REVERB_GAINHF: - case AL_REVERB_DECAY_TIME: - case AL_REVERB_DECAY_HFRATIO: - case AL_REVERB_REFLECTIONS_GAIN: - case AL_REVERB_REFLECTIONS_DELAY: - case AL_REVERB_LATE_REVERB_GAIN: - case AL_REVERB_LATE_REVERB_DELAY: - case AL_REVERB_AIR_ABSORPTION_GAINHF: - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - alGetEffectf(effect, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - case AL_ECHO_LRDELAY: - case AL_ECHO_DAMPING: - case AL_ECHO_FEEDBACK: - case AL_ECHO_SPREAD: - alGetEffectf(effect, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - alGetEffectf(effect, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - - -ALvoid ReleaseALEffects(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->EffectMap.size;i++) - { - ALeffect *temp = device->EffectMap.array[i].value; - device->EffectMap.array[i].value = NULL; - - // Release effect structure - ALTHUNK_REMOVEENTRY(temp->effect); - memset(temp, 0, sizeof(ALeffect)); - free(temp); - } -} - - -static void InitEffectParams(ALeffect *effect, ALenum type) -{ - effect->type = type; - switch(type) - { - /* NOTE: Standard reverb and EAX reverb use the same defaults for the - * shared parameters, and EAX's additional parameters default to - * values assumed by standard reverb. - */ - case AL_EFFECT_EAXREVERB: - case AL_EFFECT_REVERB: - effect->Reverb.Density = float2ALfp(AL_EAXREVERB_DEFAULT_DENSITY); - effect->Reverb.Diffusion = float2ALfp(AL_EAXREVERB_DEFAULT_DIFFUSION); - effect->Reverb.Gain = float2ALfp(AL_EAXREVERB_DEFAULT_GAIN); - effect->Reverb.GainHF = float2ALfp(AL_EAXREVERB_DEFAULT_GAINHF); - effect->Reverb.GainLF = float2ALfp(AL_EAXREVERB_DEFAULT_GAINLF); - effect->Reverb.DecayTime = float2ALfp(AL_EAXREVERB_DEFAULT_DECAY_TIME); - effect->Reverb.DecayHFRatio = float2ALfp(AL_EAXREVERB_DEFAULT_DECAY_HFRATIO); - effect->Reverb.DecayLFRatio = float2ALfp(AL_EAXREVERB_DEFAULT_DECAY_LFRATIO); - effect->Reverb.ReflectionsGain = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN); - effect->Reverb.ReflectionsDelay = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY); - effect->Reverb.ReflectionsPan[0] = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ); - effect->Reverb.ReflectionsPan[1] = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ); - effect->Reverb.ReflectionsPan[2] = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ); - effect->Reverb.LateReverbGain = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN); - effect->Reverb.LateReverbDelay = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY); - effect->Reverb.LateReverbPan[0] = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ); - effect->Reverb.LateReverbPan[1] = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ); - effect->Reverb.LateReverbPan[2] = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ); - effect->Reverb.EchoTime = float2ALfp(AL_EAXREVERB_DEFAULT_ECHO_TIME); - effect->Reverb.EchoDepth = float2ALfp(AL_EAXREVERB_DEFAULT_ECHO_DEPTH); - effect->Reverb.ModulationTime = float2ALfp(AL_EAXREVERB_DEFAULT_MODULATION_TIME); - effect->Reverb.ModulationDepth = float2ALfp(AL_EAXREVERB_DEFAULT_MODULATION_DEPTH); - effect->Reverb.AirAbsorptionGainHF = float2ALfp(AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF); - effect->Reverb.HFReference = float2ALfp(AL_EAXREVERB_DEFAULT_HFREFERENCE); - effect->Reverb.LFReference = float2ALfp(AL_EAXREVERB_DEFAULT_LFREFERENCE); - effect->Reverb.RoomRolloffFactor = float2ALfp(AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR); - effect->Reverb.DecayHFLimit = AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT; - break; - case AL_EFFECT_ECHO: - effect->Echo.Delay = float2ALfp(AL_ECHO_DEFAULT_DELAY); - effect->Echo.LRDelay = float2ALfp(AL_ECHO_DEFAULT_LRDELAY); - effect->Echo.Damping = float2ALfp(AL_ECHO_DEFAULT_DAMPING); - effect->Echo.Feedback = float2ALfp(AL_ECHO_DEFAULT_FEEDBACK); - effect->Echo.Spread = float2ALfp(AL_ECHO_DEFAULT_SPREAD); - break; - case AL_EFFECT_RING_MODULATOR: - effect->Modulator.Frequency = float2ALfp(AL_RING_MODULATOR_DEFAULT_FREQUENCY); - effect->Modulator.HighPassCutoff = float2ALfp(AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF); - effect->Modulator.Waveform = AL_RING_MODULATOR_DEFAULT_WAVEFORM; - break; - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alEffect.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alEffect.h deleted file mode 100644 index 041aa3edc..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alEffect.h +++ /dev/null @@ -1,83 +0,0 @@ -// NOTE: The effect structure is getting too large, it may be a good idea to -// start using a union or another form of unified storage. -#ifndef _AL_EFFECT_H_ -#define _AL_EFFECT_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -enum { - EAXREVERB = 0, - REVERB, - ECHO, - MODULATOR, - - MAX_EFFECTS -}; -extern ALboolean DisabledEffects[MAX_EFFECTS]; - -typedef struct ALeffect -{ - // Effect type (AL_EFFECT_NULL, ...) - ALenum type; - - struct { - // Shared Reverb Properties - ALfp Density; - ALfp Diffusion; - ALfp Gain; - ALfp GainHF; - ALfp DecayTime; - ALfp DecayHFRatio; - ALfp ReflectionsGain; - ALfp ReflectionsDelay; - ALfp LateReverbGain; - ALfp LateReverbDelay; - ALfp AirAbsorptionGainHF; - ALfp RoomRolloffFactor; - ALboolean DecayHFLimit; - - // Additional EAX Reverb Properties - ALfp GainLF; - ALfp DecayLFRatio; - ALfp ReflectionsPan[3]; - ALfp LateReverbPan[3]; - ALfp EchoTime; - ALfp EchoDepth; - ALfp ModulationTime; - ALfp ModulationDepth; - ALfp HFReference; - ALfp LFReference; - } Reverb; - - struct { - ALfp Delay; - ALfp LRDelay; - - ALfp Damping; - ALfp Feedback; - - ALfp Spread; - } Echo; - - struct { - ALfp Frequency; - ALfp HighPassCutoff; - ALint Waveform; - } Modulator; - - // Index to itself - ALuint effect; -} ALeffect; - - -ALvoid ReleaseALEffects(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alError.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alError.c deleted file mode 100644 index b074a74be..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alError.c +++ /dev/null @@ -1,49 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2000 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include "alMain.h" -#include "AL/alc.h" -#include "alError.h" - -AL_API ALenum AL_APIENTRY alGetError(ALvoid) -{ - ALCcontext *Context; - ALenum errorCode; - - Context = GetContextSuspended(); - if(!Context) { - return AL_NO_ERROR; - } - - errorCode = Context->LastError; - Context->LastError = AL_NO_ERROR; - - ProcessContext(Context); - - return errorCode; -} - -ALvoid alSetError(ALCcontext *Context, ALenum errorCode) -{ - if(Context->LastError == AL_NO_ERROR) - Context->LastError = errorCode; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alError.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alError.h deleted file mode 100644 index 7976e50f9..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alError.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef _AL_ERROR_H_ -#define _AL_ERROR_H_ - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -ALvoid alSetError(ALCcontext *Context, ALenum errorCode); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alExtension.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alExtension.c deleted file mode 100644 index 2ec8c8041..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alExtension.c +++ /dev/null @@ -1,335 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include - -#include "alError.h" -#include "alMain.h" -#include "alFilter.h" -#include "alEffect.h" -#include "alAuxEffectSlot.h" -#include "alDatabuffer.h" -#include "alSource.h" -#include "alBuffer.h" -#include "AL/al.h" -#include "AL/alc.h" - -typedef struct ALenums { - const ALchar *enumName; - ALenum value; -} ALenums; - - -static const ALenums enumeration[] = { - // Types - { "AL_INVALID", AL_INVALID }, - { "AL_NONE", AL_NONE }, - { "AL_FALSE", AL_FALSE }, - { "AL_TRUE", AL_TRUE }, - - // Source and Listener Properties - { "AL_SOURCE_RELATIVE", AL_SOURCE_RELATIVE }, - { "AL_CONE_INNER_ANGLE", AL_CONE_INNER_ANGLE }, - { "AL_CONE_OUTER_ANGLE", AL_CONE_OUTER_ANGLE }, - { "AL_PITCH", AL_PITCH }, - { "AL_POSITION", AL_POSITION }, - { "AL_DIRECTION", AL_DIRECTION }, - { "AL_VELOCITY", AL_VELOCITY }, - { "AL_LOOPING", AL_LOOPING }, - { "AL_BUFFER", AL_BUFFER }, - { "AL_GAIN", AL_GAIN }, - { "AL_MIN_GAIN", AL_MIN_GAIN }, - { "AL_MAX_GAIN", AL_MAX_GAIN }, - { "AL_ORIENTATION", AL_ORIENTATION }, - { "AL_REFERENCE_DISTANCE", AL_REFERENCE_DISTANCE }, - { "AL_ROLLOFF_FACTOR", AL_ROLLOFF_FACTOR }, - { "AL_CONE_OUTER_GAIN", AL_CONE_OUTER_GAIN }, - { "AL_MAX_DISTANCE", AL_MAX_DISTANCE }, - { "AL_SEC_OFFSET", AL_SEC_OFFSET }, - { "AL_SAMPLE_OFFSET", AL_SAMPLE_OFFSET }, - { "AL_SAMPLE_RW_OFFSETS_SOFT", AL_SAMPLE_RW_OFFSETS_SOFT }, - { "AL_BYTE_OFFSET", AL_BYTE_OFFSET }, - { "AL_BYTE_RW_OFFSETS_SOFT", AL_BYTE_RW_OFFSETS_SOFT }, - { "AL_SOURCE_TYPE", AL_SOURCE_TYPE }, - { "AL_STATIC", AL_STATIC }, - { "AL_STREAMING", AL_STREAMING }, - { "AL_UNDETERMINED", AL_UNDETERMINED }, - { "AL_METERS_PER_UNIT", AL_METERS_PER_UNIT }, - - // Source EFX Properties - { "AL_DIRECT_FILTER", AL_DIRECT_FILTER }, - { "AL_AUXILIARY_SEND_FILTER", AL_AUXILIARY_SEND_FILTER }, - { "AL_AIR_ABSORPTION_FACTOR", AL_AIR_ABSORPTION_FACTOR }, - { "AL_ROOM_ROLLOFF_FACTOR", AL_ROOM_ROLLOFF_FACTOR }, - { "AL_CONE_OUTER_GAINHF", AL_CONE_OUTER_GAINHF }, - { "AL_DIRECT_FILTER_GAINHF_AUTO", AL_DIRECT_FILTER_GAINHF_AUTO }, - { "AL_AUXILIARY_SEND_FILTER_GAIN_AUTO", AL_AUXILIARY_SEND_FILTER_GAIN_AUTO }, - { "AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO", AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO}, - - // Source State information - { "AL_SOURCE_STATE", AL_SOURCE_STATE }, - { "AL_INITIAL", AL_INITIAL }, - { "AL_PLAYING", AL_PLAYING }, - { "AL_PAUSED", AL_PAUSED }, - { "AL_STOPPED", AL_STOPPED }, - - // Queue information - { "AL_BUFFERS_QUEUED", AL_BUFFERS_QUEUED }, - { "AL_BUFFERS_PROCESSED", AL_BUFFERS_PROCESSED }, - - // Buffer Formats - { "AL_FORMAT_MONO8", AL_FORMAT_MONO8 }, - { "AL_FORMAT_MONO16", AL_FORMAT_MONO16 }, - { "AL_FORMAT_MONO_FLOAT32", AL_FORMAT_MONO_FLOAT32 }, - { "AL_FORMAT_MONO_DOUBLE_EXT", AL_FORMAT_MONO_DOUBLE_EXT }, - { "AL_FORMAT_STEREO8", AL_FORMAT_STEREO8 }, - { "AL_FORMAT_STEREO16", AL_FORMAT_STEREO16 }, - { "AL_FORMAT_STEREO_FLOAT32", AL_FORMAT_STEREO_FLOAT32 }, - { "AL_FORMAT_STEREO_DOUBLE_EXT", AL_FORMAT_STEREO_DOUBLE_EXT }, - { "AL_FORMAT_MONO_IMA4", AL_FORMAT_MONO_IMA4 }, - { "AL_FORMAT_STEREO_IMA4", AL_FORMAT_STEREO_IMA4 }, - { "AL_FORMAT_QUAD8_LOKI", AL_FORMAT_QUAD8_LOKI }, - { "AL_FORMAT_QUAD16_LOKI", AL_FORMAT_QUAD16_LOKI }, - { "AL_FORMAT_QUAD8", AL_FORMAT_QUAD8 }, - { "AL_FORMAT_QUAD16", AL_FORMAT_QUAD16 }, - { "AL_FORMAT_QUAD32", AL_FORMAT_QUAD32 }, - { "AL_FORMAT_51CHN8", AL_FORMAT_51CHN8 }, - { "AL_FORMAT_51CHN16", AL_FORMAT_51CHN16 }, - { "AL_FORMAT_51CHN32", AL_FORMAT_51CHN32 }, - { "AL_FORMAT_61CHN8", AL_FORMAT_61CHN8 }, - { "AL_FORMAT_61CHN16", AL_FORMAT_61CHN16 }, - { "AL_FORMAT_61CHN32", AL_FORMAT_61CHN32 }, - { "AL_FORMAT_71CHN8", AL_FORMAT_71CHN8 }, - { "AL_FORMAT_71CHN16", AL_FORMAT_71CHN16 }, - { "AL_FORMAT_71CHN32", AL_FORMAT_71CHN32 }, - { "AL_FORMAT_REAR8", AL_FORMAT_REAR8 }, - { "AL_FORMAT_REAR16", AL_FORMAT_REAR16 }, - { "AL_FORMAT_REAR32", AL_FORMAT_REAR32 }, - { "AL_FORMAT_MONO_MULAW", AL_FORMAT_MONO_MULAW }, - { "AL_FORMAT_MONO_MULAW_EXT", AL_FORMAT_MONO_MULAW }, - { "AL_FORMAT_STEREO_MULAW", AL_FORMAT_STEREO_MULAW }, - { "AL_FORMAT_STEREO_MULAW_EXT", AL_FORMAT_STEREO_MULAW }, - { "AL_FORMAT_QUAD_MULAW", AL_FORMAT_QUAD_MULAW }, - { "AL_FORMAT_51CHN_MULAW", AL_FORMAT_51CHN_MULAW }, - { "AL_FORMAT_61CHN_MULAW", AL_FORMAT_61CHN_MULAW }, - { "AL_FORMAT_71CHN_MULAW", AL_FORMAT_71CHN_MULAW }, - { "AL_FORMAT_REAR_MULAW", AL_FORMAT_REAR_MULAW }, - - // Buffer attributes - { "AL_FREQUENCY", AL_FREQUENCY }, - { "AL_BITS", AL_BITS }, - { "AL_CHANNELS", AL_CHANNELS }, - { "AL_SIZE", AL_SIZE }, - - // Buffer States (not supported yet) - { "AL_UNUSED", AL_UNUSED }, - { "AL_PENDING", AL_PENDING }, - { "AL_PROCESSED", AL_PROCESSED }, - - // AL Error Messages - { "AL_NO_ERROR", AL_NO_ERROR }, - { "AL_INVALID_NAME", AL_INVALID_NAME }, - { "AL_INVALID_ENUM", AL_INVALID_ENUM }, - { "AL_INVALID_VALUE", AL_INVALID_VALUE }, - { "AL_INVALID_OPERATION", AL_INVALID_OPERATION }, - { "AL_OUT_OF_MEMORY", AL_OUT_OF_MEMORY }, - - // Context strings - { "AL_VENDOR", AL_VENDOR }, - { "AL_VERSION", AL_VERSION }, - { "AL_RENDERER", AL_RENDERER }, - { "AL_EXTENSIONS", AL_EXTENSIONS }, - - // Global states - { "AL_DOPPLER_FACTOR", AL_DOPPLER_FACTOR }, - { "AL_DOPPLER_VELOCITY", AL_DOPPLER_VELOCITY }, - { "AL_DISTANCE_MODEL", AL_DISTANCE_MODEL }, - { "AL_SPEED_OF_SOUND", AL_SPEED_OF_SOUND }, - { "AL_SOURCE_DISTANCE_MODEL", AL_SOURCE_DISTANCE_MODEL }, - - // Distance Models - { "AL_INVERSE_DISTANCE", AL_INVERSE_DISTANCE }, - { "AL_INVERSE_DISTANCE_CLAMPED", AL_INVERSE_DISTANCE_CLAMPED }, - { "AL_LINEAR_DISTANCE", AL_LINEAR_DISTANCE }, - { "AL_LINEAR_DISTANCE_CLAMPED", AL_LINEAR_DISTANCE_CLAMPED }, - { "AL_EXPONENT_DISTANCE", AL_EXPONENT_DISTANCE }, - { "AL_EXPONENT_DISTANCE_CLAMPED", AL_EXPONENT_DISTANCE_CLAMPED }, - - // Apportable Extensions - { "AL_PRIORITY", AL_PRIORITY }, - { "AL_PRIORITY_SLOTS", AL_PRIORITY_SLOTS }, - - // Filter types - { "AL_FILTER_TYPE", AL_FILTER_TYPE }, - { "AL_FILTER_NULL", AL_FILTER_NULL }, - { "AL_FILTER_LOWPASS", AL_FILTER_LOWPASS }, -#if 0 - { "AL_FILTER_HIGHPASS", AL_FILTER_HIGHPASS }, - { "AL_FILTER_BANDPASS", AL_FILTER_BANDPASS }, -#endif - - // Filter params - { "AL_LOWPASS_GAIN", AL_LOWPASS_GAIN }, - { "AL_LOWPASS_GAINHF", AL_LOWPASS_GAINHF }, - - // Effect types - { "AL_EFFECT_TYPE", AL_EFFECT_TYPE }, - { "AL_EFFECT_NULL", AL_EFFECT_NULL }, - { "AL_EFFECT_REVERB", AL_EFFECT_REVERB }, - { "AL_EFFECT_EAXREVERB", AL_EFFECT_EAXREVERB }, -#if 0 - { "AL_EFFECT_CHORUS", AL_EFFECT_CHORUS }, - { "AL_EFFECT_DISTORTION", AL_EFFECT_DISTORTION }, -#endif - { "AL_EFFECT_ECHO", AL_EFFECT_ECHO }, -#if 0 - { "AL_EFFECT_FLANGER", AL_EFFECT_FLANGER }, - { "AL_EFFECT_FREQUENCY_SHIFTER", AL_EFFECT_FREQUENCY_SHIFTER }, - { "AL_EFFECT_VOCAL_MORPHER", AL_EFFECT_VOCAL_MORPHER }, - { "AL_EFFECT_PITCH_SHIFTER", AL_EFFECT_PITCH_SHIFTER }, -#endif - { "AL_EFFECT_RING_MODULATOR", AL_EFFECT_RING_MODULATOR }, -#if 0 - { "AL_EFFECT_AUTOWAH", AL_EFFECT_AUTOWAH }, - { "AL_EFFECT_COMPRESSOR", AL_EFFECT_COMPRESSOR }, - { "AL_EFFECT_EQUALIZER", AL_EFFECT_EQUALIZER }, -#endif - - // Reverb params - { "AL_REVERB_DENSITY", AL_REVERB_DENSITY }, - { "AL_REVERB_DIFFUSION", AL_REVERB_DIFFUSION }, - { "AL_REVERB_GAIN", AL_REVERB_GAIN }, - { "AL_REVERB_GAINHF", AL_REVERB_GAINHF }, - { "AL_REVERB_DECAY_TIME", AL_REVERB_DECAY_TIME }, - { "AL_REVERB_DECAY_HFRATIO", AL_REVERB_DECAY_HFRATIO }, - { "AL_REVERB_REFLECTIONS_GAIN", AL_REVERB_REFLECTIONS_GAIN }, - { "AL_REVERB_REFLECTIONS_DELAY", AL_REVERB_REFLECTIONS_DELAY }, - { "AL_REVERB_LATE_REVERB_GAIN", AL_REVERB_LATE_REVERB_GAIN }, - { "AL_REVERB_LATE_REVERB_DELAY", AL_REVERB_LATE_REVERB_DELAY }, - { "AL_REVERB_AIR_ABSORPTION_GAINHF", AL_REVERB_AIR_ABSORPTION_GAINHF }, - { "AL_REVERB_ROOM_ROLLOFF_FACTOR", AL_REVERB_ROOM_ROLLOFF_FACTOR }, - { "AL_REVERB_DECAY_HFLIMIT", AL_REVERB_DECAY_HFLIMIT }, - - // EAX Reverb params - { "AL_EAXREVERB_DENSITY", AL_EAXREVERB_DENSITY }, - { "AL_EAXREVERB_DIFFUSION", AL_EAXREVERB_DIFFUSION }, - { "AL_EAXREVERB_GAIN", AL_EAXREVERB_GAIN }, - { "AL_EAXREVERB_GAINHF", AL_EAXREVERB_GAINHF }, - { "AL_EAXREVERB_GAINLF", AL_EAXREVERB_GAINLF }, - { "AL_EAXREVERB_DECAY_TIME", AL_EAXREVERB_DECAY_TIME }, - { "AL_EAXREVERB_DECAY_HFRATIO", AL_EAXREVERB_DECAY_HFRATIO }, - { "AL_EAXREVERB_DECAY_LFRATIO", AL_EAXREVERB_DECAY_LFRATIO }, - { "AL_EAXREVERB_REFLECTIONS_GAIN", AL_EAXREVERB_REFLECTIONS_GAIN }, - { "AL_EAXREVERB_REFLECTIONS_DELAY", AL_EAXREVERB_REFLECTIONS_DELAY }, - { "AL_EAXREVERB_REFLECTIONS_PAN", AL_EAXREVERB_REFLECTIONS_PAN }, - { "AL_EAXREVERB_LATE_REVERB_GAIN", AL_EAXREVERB_LATE_REVERB_GAIN }, - { "AL_EAXREVERB_LATE_REVERB_DELAY", AL_EAXREVERB_LATE_REVERB_DELAY }, - { "AL_EAXREVERB_LATE_REVERB_PAN", AL_EAXREVERB_LATE_REVERB_PAN }, - { "AL_EAXREVERB_ECHO_TIME", AL_EAXREVERB_ECHO_TIME }, - { "AL_EAXREVERB_ECHO_DEPTH", AL_EAXREVERB_ECHO_DEPTH }, - { "AL_EAXREVERB_MODULATION_TIME", AL_EAXREVERB_MODULATION_TIME }, - { "AL_EAXREVERB_MODULATION_DEPTH", AL_EAXREVERB_MODULATION_DEPTH }, - { "AL_EAXREVERB_AIR_ABSORPTION_GAINHF", AL_EAXREVERB_AIR_ABSORPTION_GAINHF }, - { "AL_EAXREVERB_HFREFERENCE", AL_EAXREVERB_HFREFERENCE }, - { "AL_EAXREVERB_LFREFERENCE", AL_EAXREVERB_LFREFERENCE }, - { "AL_EAXREVERB_ROOM_ROLLOFF_FACTOR", AL_EAXREVERB_ROOM_ROLLOFF_FACTOR }, - { "AL_EAXREVERB_DECAY_HFLIMIT", AL_EAXREVERB_DECAY_HFLIMIT }, - - // Echo params - { "AL_ECHO_DELAY", AL_ECHO_DELAY }, - { "AL_ECHO_LRDELAY", AL_ECHO_LRDELAY }, - { "AL_ECHO_DAMPING", AL_ECHO_DAMPING }, - { "AL_ECHO_FEEDBACK", AL_ECHO_FEEDBACK }, - { "AL_ECHO_SPREAD", AL_ECHO_SPREAD }, - - // Ring Modulator params - { "AL_RING_MODULATOR_FREQUENCY", AL_RING_MODULATOR_FREQUENCY }, - { "AL_RING_MODULATOR_HIGHPASS_CUTOFF", AL_RING_MODULATOR_HIGHPASS_CUTOFF }, - { "AL_RING_MODULATOR_WAVEFORM", AL_RING_MODULATOR_WAVEFORM }, - - - // Default - { NULL, (ALenum)0 } -}; - - - -AL_API ALboolean AL_APIENTRY alIsExtensionPresent(const ALchar *extName) -{ - ALboolean bIsSupported = AL_FALSE; - ALCcontext *pContext; - const char *ptr; - size_t len; - - pContext = GetContextSuspended(); - if(!pContext) return AL_FALSE; - - if(!extName) - { - alSetError(pContext, AL_INVALID_VALUE); - ProcessContext(pContext); - return AL_FALSE; - } - - len = strlen(extName); - ptr = pContext->ExtensionList; - while(ptr && *ptr) - { - if(strncasecmp(ptr, extName, len) == 0 && - (ptr[len] == '\0' || isspace(ptr[len]))) - { - bIsSupported = AL_TRUE; - break; - } - if((ptr=strchr(ptr, ' ')) != NULL) - { - do { - ++ptr; - } while(isspace(*ptr)); - } - } - - ProcessContext(pContext); - - return bIsSupported; -} - - -AL_API ALvoid* AL_APIENTRY alGetProcAddress(const ALchar *funcName) -{ - if(!funcName) - return NULL; - return alcGetProcAddress(NULL, funcName); -} - -AL_API ALenum AL_APIENTRY alGetEnumValue(const ALchar *enumName) -{ - ALsizei i = 0; - - while(enumeration[i].enumName && - strcmp(enumeration[i].enumName, enumName) != 0) - i++; - - return enumeration[i].value; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alFilter.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alFilter.c deleted file mode 100644 index 7d6cda809..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alFilter.c +++ /dev/null @@ -1,432 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alFilter.h" -#include "alThunk.h" -#include "alError.h" - - -static void InitFilterParams(ALfilter *filter, ALenum type); - -#define LookupFilter(m, k) ((ALfilter*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0 || IsBadWritePtr((void*)filters, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - while(i < n) - { - ALfilter *filter = calloc(1, sizeof(ALfilter)); - if(!filter) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteFilters(i, filters); - break; - } - - filter->filter = ALTHUNK_ADDENTRY(filter); - err = InsertUIntMapEntry(&device->FilterMap, filter->filter, filter); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(filter->filter); - memset(filter, 0, sizeof(ALfilter)); - free(filter); - - alSetError(Context, err); - alDeleteFilters(i, filters); - break; - } - - filters[i++] = filter->filter; - InitFilterParams(filter, AL_FILTER_NULL); - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters) -{ - ALCcontext *Context; - ALCdevice *device; - ALfilter *ALFilter; - ALboolean Failed; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - Failed = AL_TRUE; - device = Context->Device; - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - // Check that all filters are valid - for(i = 0;i < n;i++) - { - if(!filters[i]) - continue; - - if(LookupFilter(device->FilterMap, filters[i]) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - } - } - - if(!Failed) - { - // All filters are valid - for(i = 0;i < n;i++) - { - // Recheck that the filter is valid, because there could be duplicated names - if((ALFilter=LookupFilter(device->FilterMap, filters[i])) == NULL) - continue; - - RemoveUIntMapKey(&device->FilterMap, ALFilter->filter); - ALTHUNK_REMOVEENTRY(ALFilter->filter); - - memset(ALFilter, 0, sizeof(ALfilter)); - free(ALFilter); - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = ((!filter || LookupFilter(Context->Device->FilterMap, filter)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - if(iValue == AL_FILTER_NULL || - iValue == AL_FILTER_LOWPASS) - InitFilterParams(ALFilter, iValue); - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - alFilteri(filter, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flArg) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - ALfp flValue = float2ALfp(flArg); - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(ALFilter->type) - { - case AL_FILTER_LOWPASS: - switch(param) - { - case AL_LOWPASS_GAIN: - if(flValue >= int2ALfp(0) && flValue <= int2ALfp(1)) - ALFilter->Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_LOWPASS_GAINHF: - if(flValue >= int2ALfp(0) && flValue <= int2ALfp(1)) - ALFilter->GainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - default: - alFilterf(filter, param, pflValues[0]); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - *piValue = ALFilter->type; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - alGetFilteri(filter, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(ALFilter->type) - { - case AL_FILTER_LOWPASS: - switch(param) - { - case AL_LOWPASS_GAIN: - *pflValue = ALfp2float(ALFilter->Gain); - break; - - case AL_LOWPASS_GAINHF: - *pflValue = ALfp2float(ALFilter->GainHF); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - default: - alGetFilterf(filter, param, pflValues); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - - -ALvoid ReleaseALFilters(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->FilterMap.size;i++) - { - ALfilter *temp = device->FilterMap.array[i].value; - device->FilterMap.array[i].value = NULL; - - // Release filter structure - ALTHUNK_REMOVEENTRY(temp->filter); - memset(temp, 0, sizeof(ALfilter)); - free(temp); - } -} - - -static void InitFilterParams(ALfilter *filter, ALenum type) -{ - filter->type = type; - - filter->Gain = int2ALfp(1); - filter->GainHF = int2ALfp(1); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alFilter.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alFilter.h deleted file mode 100644 index 3b17b1f1e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alFilter.h +++ /dev/null @@ -1,139 +0,0 @@ -#ifndef _AL_FILTER_H_ -#define _AL_FILTER_H_ - -#include "AL/al.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct { - ALfp coeff; -#ifndef _MSC_VER - ALfp history[0]; -#else - ALfp history[1]; -#endif -} FILTER; - -static __inline ALfp lpFilter4P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - output = output + ALfpMult((history[2]-output),a); - history[2] = output; - output = output + ALfpMult((history[3]-output),a); - history[3] = output; - - return output; -} - -static __inline ALfp lpFilter2P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - - return output; -} - -static __inline ALfp lpFilter1P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - - return output; -} - -static __inline ALfp lpFilter4PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - output = output + ALfpMult((history[2]-output),a); - output = output + ALfpMult((history[3]-output),a); - - return output; -} - -static __inline ALfp lpFilter2PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - - return output; -} - -static __inline ALfp lpFilter1PC(FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - - return output; -} - -/* Calculates the low-pass filter coefficient given the pre-scaled gain and - * cos(w) value. Note that g should be pre-scaled (sqr(gain) for one-pole, - * sqrt(gain) for four-pole, etc) */ -static __inline ALfp lpCoeffCalc(ALfp g, ALfp cw) -{ - ALfp a = int2ALfp(0); - - /* Be careful with gains < 0.01, as that causes the coefficient - * head towards 1, which will flatten the signal */ - g = __max(g, float2ALfp(0.01f)); - if(g < float2ALfp(0.9999f)) /* 1-epsilon */ { - ALfp tmp; tmp = ALfpMult(ALfpMult(int2ALfp(2),g),(int2ALfp(1)-cw)) - ALfpMult(ALfpMult(g,g),(int2ALfp(1) - ALfpMult(cw,cw))); - a = ALfpDiv((int2ALfp(1) - ALfpMult(g,cw) - aluSqrt(tmp)), (int2ALfp(1) - g)); - } - - return a; -} - - -typedef struct ALfilter -{ - // Filter type (AL_FILTER_NULL, ...) - ALenum type; - - ALfp Gain; - ALfp GainHF; - - // Index to itself - ALuint filter; -} ALfilter; - - -ALvoid ReleaseALFilters(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alListener.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alListener.c deleted file mode 100644 index 78e658306..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alListener.c +++ /dev/null @@ -1,497 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2000 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include "alMain.h" -#include "AL/alc.h" -#include "alError.h" -#include "alListener.h" -#include "alSource.h" - -AL_API ALvoid AL_APIENTRY alListenerf(ALenum eParam, ALfloat flArg) -{ - ALCcontext *pContext; - ALboolean updateAll = AL_FALSE; - ALfp flValue = float2ALfp(flArg); - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_GAIN: - if(flValue >= int2ALfp(0)) - { - pContext->Listener.Gain = flValue; - updateAll = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_METERS_PER_UNIT: - if(flValue > int2ALfp(0)) - { - pContext->Listener.MetersPerUnit = flValue; - updateAll = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - // Force updating the sources for these parameters, since even head- - // relative sources are affected - if(updateAll) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alListener3f(ALenum eParam, ALfloat flArg1, ALfloat flArg2, ALfloat flArg3) -{ - ALCcontext *pContext; - ALboolean updateWorld = AL_FALSE; - ALfp flValue1 = float2ALfp(flArg1); - ALfp flValue2 = float2ALfp(flArg2); - ALfp flValue3 = float2ALfp(flArg3); - - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_POSITION: - pContext->Listener.Position[0] = flValue1; - pContext->Listener.Position[1] = flValue2; - pContext->Listener.Position[2] = flValue3; - updateWorld = AL_TRUE; - break; - - case AL_VELOCITY: - pContext->Listener.Velocity[0] = flValue1; - pContext->Listener.Velocity[1] = flValue2; - pContext->Listener.Velocity[2] = flValue3; - updateWorld = AL_TRUE; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - if(updateWorld) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - if(!source->bHeadRelative) - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alListenerfv(ALenum eParam, const ALfloat *pflValues) -{ - ALCcontext *pContext; - ALboolean updateWorld = AL_FALSE; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - switch(eParam) - { - case AL_GAIN: - case AL_METERS_PER_UNIT: - alListenerf(eParam, pflValues[0]); - break; - - case AL_POSITION: - case AL_VELOCITY: - alListener3f(eParam, pflValues[0], pflValues[1], pflValues[2]); - break; - - case AL_ORIENTATION: - // AT then UP - pContext->Listener.Forward[0] = float2ALfp(pflValues[0]); - pContext->Listener.Forward[1] = float2ALfp(pflValues[1]); - pContext->Listener.Forward[2] = float2ALfp(pflValues[2]); - pContext->Listener.Up[0] = float2ALfp(pflValues[3]); - pContext->Listener.Up[1] = float2ALfp(pflValues[4]); - pContext->Listener.Up[2] = float2ALfp(pflValues[5]); - updateWorld = AL_TRUE; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - if(updateWorld) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - if(!source->bHeadRelative) - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alListeneri(ALenum eParam, ALint lValue) -{ - ALCcontext *pContext; - - (void)lValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_PRIORITY_SLOTS: - pContext->PrioritySlots = (ALsizei)lValue; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alListener3i(ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_POSITION: - case AL_VELOCITY: - alListener3f(eParam, (ALfloat)lValue1, (ALfloat)lValue2, (ALfloat)lValue3); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alListeneriv( ALenum eParam, const ALint* plValues ) -{ - ALCcontext *pContext; - ALfloat flValues[6]; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - switch(eParam) - { - case AL_POSITION: - case AL_VELOCITY: - flValues[0] = (ALfloat)plValues[0]; - flValues[1] = (ALfloat)plValues[1]; - flValues[2] = (ALfloat)plValues[2]; - alListenerfv(eParam, flValues); - break; - - case AL_ORIENTATION: - flValues[0] = (ALfloat)plValues[0]; - flValues[1] = (ALfloat)plValues[1]; - flValues[2] = (ALfloat)plValues[2]; - flValues[3] = (ALfloat)plValues[3]; - flValues[4] = (ALfloat)plValues[4]; - flValues[5] = (ALfloat)plValues[5]; - alListenerfv(eParam, flValues); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListenerf(ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue) - { - switch(eParam) - { - case AL_GAIN: - *pflValue = ALfp2float(pContext->Listener.Gain); - break; - - case AL_METERS_PER_UNIT: - *pflValue = ALfp2float(pContext->Listener.MetersPerUnit); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListener3f(ALenum eParam, ALfloat *pflValue1, ALfloat *pflValue2, ALfloat *pflValue3) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue1 && pflValue2 && pflValue3) - { - switch(eParam) - { - case AL_POSITION: - *pflValue1 = ALfp2float(pContext->Listener.Position[0]); - *pflValue2 = ALfp2float(pContext->Listener.Position[1]); - *pflValue3 = ALfp2float(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - *pflValue1 = ALfp2float(pContext->Listener.Velocity[0]); - *pflValue2 = ALfp2float(pContext->Listener.Velocity[1]); - *pflValue3 = ALfp2float(pContext->Listener.Velocity[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListenerfv(ALenum eParam, ALfloat *pflValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - switch(eParam) - { - case AL_GAIN: - pflValues[0] = ALfp2float(pContext->Listener.Gain); - break; - - case AL_METERS_PER_UNIT: - pflValues[0] = ALfp2float(pContext->Listener.MetersPerUnit); - break; - - case AL_POSITION: - pflValues[0] = ALfp2float(pContext->Listener.Position[0]); - pflValues[1] = ALfp2float(pContext->Listener.Position[1]); - pflValues[2] = ALfp2float(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - pflValues[0] = ALfp2float(pContext->Listener.Velocity[0]); - pflValues[1] = ALfp2float(pContext->Listener.Velocity[1]); - pflValues[2] = ALfp2float(pContext->Listener.Velocity[2]); - break; - - case AL_ORIENTATION: - // AT then UP - pflValues[0] = ALfp2float(pContext->Listener.Forward[0]); - pflValues[1] = ALfp2float(pContext->Listener.Forward[1]); - pflValues[2] = ALfp2float(pContext->Listener.Forward[2]); - pflValues[3] = ALfp2float(pContext->Listener.Up[0]); - pflValues[4] = ALfp2float(pContext->Listener.Up[1]); - pflValues[5] = ALfp2float(pContext->Listener.Up[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListeneri(ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue) - { - switch(eParam) - { - case AL_PRIORITY_SLOTS: - *plValue = (ALint)pContext->PrioritySlots; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetListener3i(ALenum eParam, ALint *plValue1, ALint *plValue2, ALint *plValue3) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue1 && plValue2 && plValue3) - { - switch (eParam) - { - case AL_POSITION: - *plValue1 = (ALint)ALfp2int(pContext->Listener.Position[0]); - *plValue2 = (ALint)ALfp2int(pContext->Listener.Position[1]); - *plValue3 = (ALint)ALfp2int(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - *plValue1 = (ALint)ALfp2int(pContext->Listener.Velocity[0]); - *plValue2 = (ALint)ALfp2int(pContext->Listener.Velocity[1]); - *plValue3 = (ALint)ALfp2int(pContext->Listener.Velocity[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetListeneriv(ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - switch(eParam) - { - case AL_POSITION: - plValues[0] = (ALint)ALfp2int(pContext->Listener.Position[0]); - plValues[1] = (ALint)ALfp2int(pContext->Listener.Position[1]); - plValues[2] = (ALint)ALfp2int(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - plValues[0] = (ALint)ALfp2int(pContext->Listener.Velocity[0]); - plValues[1] = (ALint)ALfp2int(pContext->Listener.Velocity[1]); - plValues[2] = (ALint)ALfp2int(pContext->Listener.Velocity[2]); - break; - - case AL_ORIENTATION: - // AT then UP - plValues[0] = (ALint)ALfp2int(pContext->Listener.Forward[0]); - plValues[1] = (ALint)ALfp2int(pContext->Listener.Forward[1]); - plValues[2] = (ALint)ALfp2int(pContext->Listener.Forward[2]); - plValues[3] = (ALint)ALfp2int(pContext->Listener.Up[0]); - plValues[4] = (ALint)ALfp2int(pContext->Listener.Up[1]); - plValues[5] = (ALint)ALfp2int(pContext->Listener.Up[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alListener.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alListener.h deleted file mode 100644 index a2fc3ba0f..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alListener.h +++ /dev/null @@ -1,24 +0,0 @@ -#ifndef _AL_LISTENER_H_ -#define _AL_LISTENER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALlistener_struct -{ - ALfp Position[3]; - ALfp Velocity[3]; - ALfp Forward[3]; - ALfp Up[3]; - ALfp Gain; - ALfp MetersPerUnit; -} ALlistener; - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alMain.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alMain.h deleted file mode 100644 index 61448b205..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alMain.h +++ /dev/null @@ -1,503 +0,0 @@ -#ifndef AL_MAIN_H -#define AL_MAIN_H - -#include -#include -#include - -#ifdef HAVE_FENV_H -#include -#endif - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#ifndef AL_EXT_sample_buffer_object -#define AL_EXT_sample_buffer_object 1 -typedef ptrdiff_t ALintptrEXT; -typedef ptrdiff_t ALsizeiptrEXT; -#define AL_SAMPLE_SOURCE_EXT 0x1040 -#define AL_SAMPLE_SINK_EXT 0x1041 -#define AL_READ_ONLY_EXT 0x1042 -#define AL_WRITE_ONLY_EXT 0x1043 -#define AL_READ_WRITE_EXT 0x1044 -#define AL_STREAM_WRITE_EXT 0x1045 -#define AL_STREAM_READ_EXT 0x1046 -#define AL_STREAM_COPY_EXT 0x1047 -#define AL_STATIC_WRITE_EXT 0x1048 -#define AL_STATIC_READ_EXT 0x1049 -#define AL_STATIC_COPY_EXT 0x104A -#define AL_DYNAMIC_WRITE_EXT 0x104B -#define AL_DYNAMIC_READ_EXT 0x104C -#define AL_DYNAMIC_COPY_EXT 0x104D -typedef ALvoid (AL_APIENTRY*PFNALGENDATABUFFERSEXTPROC)(ALsizei n,ALuint *puiBuffers); -typedef ALvoid (AL_APIENTRY*PFNALDELETEDATABUFFERSEXTPROC)(ALsizei n, const ALuint *puiBuffers); -typedef ALboolean (AL_APIENTRY*PFNALISDATABUFFEREXTPROC)(ALuint uiBuffer); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERDATAEXTPROC)(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat flValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, const ALfloat* flValues); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint lValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, const ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat *pflValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, ALfloat* pflValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint *plValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALSELECTDATABUFFEREXTPROC)(ALenum target, ALuint uiBuffer); -typedef ALvoid* (AL_APIENTRY*PFNALMAPDATABUFFEREXTPROC)(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -typedef ALvoid (AL_APIENTRY*PFNALUNMAPDATABUFFEREXTPROC)(ALuint uiBuffer); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenDatabuffersEXT(ALsizei n,ALuint *puiBuffers); -AL_API ALvoid AL_APIENTRY alDeleteDatabuffersEXT(ALsizei n, const ALuint *puiBuffers); -AL_API ALboolean AL_APIENTRY alIsDatabufferEXT(ALuint uiBuffer); -AL_API ALvoid AL_APIENTRY alDatabufferDataEXT(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -AL_API ALvoid AL_APIENTRY alDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *data); -AL_API ALvoid AL_APIENTRY alGetDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *data); -AL_API ALvoid AL_APIENTRY alDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alDatabufferfvEXT(ALuint buffer, ALenum eParam, const ALfloat* flValues); -AL_API ALvoid AL_APIENTRY alDatabufferiEXT(ALuint buffer, ALenum eParam, ALint lValue); -AL_API ALvoid AL_APIENTRY alDatabufferivEXT(ALuint buffer, ALenum eParam, const ALint* plValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferfvEXT(ALuint buffer, ALenum eParam, ALfloat* pflValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferiEXT(ALuint buffer, ALenum eParam, ALint *plValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferivEXT(ALuint buffer, ALenum eParam, ALint* plValues); -AL_API ALvoid AL_APIENTRY alSelectDatabufferEXT(ALenum target, ALuint uiBuffer); -AL_API ALvoid* AL_APIENTRY alMapDatabufferEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -AL_API ALvoid AL_APIENTRY alUnmapDatabufferEXT(ALuint uiBuffer); -#endif -#endif - - -#if defined(HAVE_STDINT_H) -#include -typedef int64_t ALint64; -typedef uint64_t ALuint64; -#elif defined(HAVE___INT64) -typedef __int64 ALint64; -typedef unsigned __int64 ALuint64; -#elif (SIZEOF_LONG == 8) -typedef long ALint64; -typedef unsigned long ALuint64; -#elif (SIZEOF_LONG_LONG == 8) -typedef long long ALint64; -typedef unsigned long long ALuint64; -#endif - -#ifdef HAVE_GCC_FORMAT -#define PRINTF_STYLE(x, y) __attribute__((format(__printf__, (x), (y)))) -#else -#define PRINTF_STYLE(x, y) -#endif - -#ifdef _WIN32 - -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif -#include - -typedef DWORD tls_type; -#define tls_create(x) (*(x) = TlsAlloc()) -#define tls_delete(x) TlsFree((x)) -#define tls_get(x) TlsGetValue((x)) -#define tls_set(x, a) TlsSetValue((x), (a)) - -#else - -#include -#include -#include -#ifdef HAVE_PTHREAD_NP_H -#include -#endif -#include -#include -#include - -#define IsBadWritePtr(a,b) ((a) == NULL && (b) != 0) - -typedef pthread_key_t tls_type; -#define tls_create(x) pthread_key_create((x), NULL) -#define tls_delete(x) pthread_key_delete((x)) -#define tls_get(x) pthread_getspecific((x)) -#define tls_set(x, a) pthread_setspecific((x), (a)) - -typedef pthread_mutex_t CRITICAL_SECTION; -static __inline void EnterCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_lock(cs); - assert(ret == 0); -} -static __inline void LeaveCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_unlock(cs); - assert(ret == 0); -} -static __inline void InitializeCriticalSection(CRITICAL_SECTION *cs) -{ - pthread_mutexattr_t attrib; - int ret; - - ret = pthread_mutexattr_init(&attrib); - assert(ret == 0); - - ret = pthread_mutexattr_settype(&attrib, PTHREAD_MUTEX_RECURSIVE); -#ifdef HAVE_PTHREAD_NP_H - if(ret != 0) - ret = pthread_mutexattr_setkind_np(&attrib, PTHREAD_MUTEX_RECURSIVE); -#endif - assert(ret == 0); - ret = pthread_mutex_init(cs, &attrib); - assert(ret == 0); - - pthread_mutexattr_destroy(&attrib); -} - -static __inline void DeleteCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_destroy(cs); - assert(ret == 0); -} - -/* NOTE: This wrapper isn't quite accurate as it returns an ALuint, as opposed - * to the expected DWORD. Both are defined as unsigned 32-bit types, however. - * Additionally, Win32 is supposed to measure the time since Windows started, - * as opposed to the actual time. */ -static __inline ALuint timeGetTime(void) -{ -#if _POSIX_TIMERS > 0 - struct timespec ts; - int ret = -1; - -#if defined(_POSIX_MONOTONIC_CLOCK) && (_POSIX_MONOTONIC_CLOCK >= 0) -#if _POSIX_MONOTONIC_CLOCK == 0 - static int hasmono = 0; - if(hasmono > 0 || (hasmono == 0 && - (hasmono=sysconf(_SC_MONOTONIC_CLOCK)) > 0)) -#endif - ret = clock_gettime(CLOCK_MONOTONIC, &ts); -#endif - if(ret != 0) - ret = clock_gettime(CLOCK_REALTIME, &ts); - assert(ret == 0); - - return ts.tv_nsec/1000000 + ts.tv_sec*1000; -#else - struct timeval tv; - int ret; - - ret = gettimeofday(&tv, NULL); - assert(ret == 0); - - return tv.tv_usec/1000 + tv.tv_sec*1000; -#endif -} - -static __inline void Sleep(ALuint t) -{ - struct timespec tv, rem; - tv.tv_nsec = (t*1000000)%1000000000; - tv.tv_sec = t/1000; - - while(nanosleep(&tv, &rem) == -1 && errno == EINTR) - tv = rem; -} -#define min(x,y) (((x)<(y))?(x):(y)) -#define max(x,y) (((x)>(y))?(x):(y)) -#endif - -#include "alListener.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - - -#define SWMIXER_OUTPUT_RATE 44100 - -#define SPEEDOFSOUNDMETRESPERSEC (343.3f) -#define AIRABSORBGAINDBHF (-0.05f) - -#define LOWPASSFREQCUTOFF (5000) - -#define DEFAULT_HEAD_DAMPEN (0.25f) - - -// Find the next power-of-2 for non-power-of-2 numbers. -static __inline ALuint NextPowerOf2(ALuint value) -{ - ALuint powerOf2 = 1; - - if(value) - { - value--; - while(value) - { - value >>= 1; - powerOf2 <<= 1; - } - } - return powerOf2; -} - - -typedef struct { - ALCboolean (*OpenPlayback)(ALCdevice*, const ALCchar*); - void (*ClosePlayback)(ALCdevice*); - ALCboolean (*ResetPlayback)(ALCdevice*); - void (*StopPlayback)(ALCdevice*); - - ALCboolean (*OpenCapture)(ALCdevice*, const ALCchar*); - void (*CloseCapture)(ALCdevice*); - void (*StartCapture)(ALCdevice*); - void (*StopCapture)(ALCdevice*); - void (*CaptureSamples)(ALCdevice*, void*, ALCuint); - ALCuint (*AvailableSamples)(ALCdevice*); -} BackendFuncs; - -enum { - DEVICE_PROBE, - ALL_DEVICE_PROBE, - CAPTURE_DEVICE_PROBE -}; - -void alc_alsa_init(BackendFuncs *func_list); -void alc_alsa_deinit(void); -void alc_alsa_probe(int type); -void alc_oss_init(BackendFuncs *func_list); -void alc_oss_deinit(void); -void alc_oss_probe(int type); -void alc_solaris_init(BackendFuncs *func_list); -void alc_solaris_deinit(void); -void alc_solaris_probe(int type); -void alcDSoundInit(BackendFuncs *func_list); -void alcDSoundDeinit(void); -void alcDSoundProbe(int type); -void alcWinMMInit(BackendFuncs *FuncList); -void alcWinMMDeinit(void); -void alcWinMMProbe(int type); -void alc_pa_init(BackendFuncs *func_list); -void alc_pa_deinit(void); -void alc_pa_probe(int type); -void alc_wave_init(BackendFuncs *func_list); -void alc_wave_deinit(void); -void alc_wave_probe(int type); -void alc_pulse_init(BackendFuncs *func_list); -void alc_pulse_deinit(void); -void alc_pulse_probe(int type); -void alc_audiotrack_init(BackendFuncs *func_list); -void alc_audiotrack_deinit(void); -void alc_audiotrack_probe(int type); -void alc_opensles_init(BackendFuncs *func_list); -void alc_opensles_deinit(void); -void alc_opensles_probe(int type); -void alc_null_init(BackendFuncs *func_list); -void alc_null_deinit(void); -void alc_null_probe(int type); - - -typedef struct UIntMap { - struct { - ALuint key; - ALvoid *value; - } *array; - ALsizei size; - ALsizei maxsize; -} UIntMap; - -void InitUIntMap(UIntMap *map); -void ResetUIntMap(UIntMap *map); -ALenum InsertUIntMapEntry(UIntMap *map, ALuint key, ALvoid *value); -void RemoveUIntMapKey(UIntMap *map, ALuint key); -ALvoid *LookupUIntMapKey(UIntMap *map, ALuint key); - -/* Device formats */ -enum DevFmtType { - DevFmtByte, /* AL_BYTE */ - DevFmtUByte, /* AL_UNSIGNED_BYTE */ - DevFmtShort, /* AL_SHORT */ - DevFmtUShort, /* AL_UNSIGNED_SHORT */ - DevFmtFloat, /* AL_FLOAT */ -}; -enum DevFmtChannels { - DevFmtMono, /* AL_MONO */ - DevFmtStereo, /* AL_STEREO */ - DevFmtQuad, /* AL_QUAD */ - DevFmtX51, /* AL_5POINT1 */ - DevFmtX61, /* AL_6POINT1 */ - DevFmtX71, /* AL_7POINT1 */ -}; - -ALuint BytesFromDevFmt(enum DevFmtType type); -ALuint ChannelsFromDevFmt(enum DevFmtChannels chans); -static __inline ALuint FrameSizeFromDevFmt(enum DevFmtChannels chans, - enum DevFmtType type) -{ - return ChannelsFromDevFmt(chans) * BytesFromDevFmt(type); -} - - -struct ALCdevice_struct -{ - ALCboolean Connected; - ALboolean IsCaptureDevice; - - ALuint Frequency; - ALuint UpdateSize; - ALuint NumUpdates; - enum DevFmtChannels FmtChans; - enum DevFmtType FmtType; - - ALCchar *szDeviceName; - - ALCenum LastError; - - // Maximum number of sources that can be created - ALuint MaxNoOfSources; - // Maximum number of slots that can be created - ALuint AuxiliaryEffectSlotMax; - - ALCuint NumMonoSources; - ALCuint NumStereoSources; - ALuint NumAuxSends; - - // Map of Buffers for this device - UIntMap BufferMap; - - // Map of Effects for this device - UIntMap EffectMap; - - // Map of Filters for this device - UIntMap FilterMap; - - // Map of Databuffers for this device - UIntMap DatabufferMap; - - // Stereo-to-binaural filter - struct bs2b *Bs2b; - ALCint Bs2bLevel; - - // Simulated dampening from head occlusion - ALfp HeadDampen; - - // Duplicate stereo sources on the side/rear channels - ALboolean DuplicateStereo; - - // Dry path buffer mix - ALfp DryBuffer[BUFFERSIZE][MAXCHANNELS]; - - ALuint DevChannels[MAXCHANNELS]; - - ALfp ChannelMatrix[MAXCHANNELS][MAXCHANNELS]; - - Channel Speaker2Chan[MAXCHANNELS]; - ALfp PanningLUT[MAXCHANNELS * LUT_NUM]; - ALuint NumChan; - - ALfp ClickRemoval[MAXCHANNELS]; - ALfp PendingClicks[MAXCHANNELS]; - - // Contexts created on this device - ALCcontext **Contexts; - ALuint NumContexts; - - BackendFuncs *Funcs; - void *ExtraData; // For the backend's use - - ALCdevice *next; -}; - -#define ALCdevice_OpenPlayback(a,b) ((a)->Funcs->OpenPlayback((a), (b))) -#define ALCdevice_ClosePlayback(a) ((a)->Funcs->ClosePlayback((a))) -#define ALCdevice_ResetPlayback(a) ((a)->Funcs->ResetPlayback((a))) -#define ALCdevice_StopPlayback(a) ((a)->Funcs->StopPlayback((a))) -#define ALCdevice_OpenCapture(a,b) ((a)->Funcs->OpenCapture((a), (b))) -#define ALCdevice_CloseCapture(a) ((a)->Funcs->CloseCapture((a))) -#define ALCdevice_StartCapture(a) ((a)->Funcs->StartCapture((a))) -#define ALCdevice_StopCapture(a) ((a)->Funcs->StopCapture((a))) -#define ALCdevice_CaptureSamples(a,b,c) ((a)->Funcs->CaptureSamples((a), (b), (c))) -#define ALCdevice_AvailableSamples(a) ((a)->Funcs->AvailableSamples((a))) - -struct ALCcontext_struct -{ - ALlistener Listener; - - UIntMap SourceMap; - UIntMap EffectSlotMap; - - struct ALdatabuffer *SampleSource; - struct ALdatabuffer *SampleSink; - - ALenum LastError; - - ALboolean Suspended; - - ALenum DistanceModel; - ALboolean SourceDistanceModel; - - ALfp DopplerFactor; - ALfp DopplerVelocity; - ALfp flSpeedOfSound; - - struct ALsource **ActiveSources; - ALsizei ActiveSourceCount; - ALsizei MaxActiveSources; - - // Apportable Extension - ALsizei PrioritySlots; - - ALCdevice *Device; - const ALCchar *ExtensionList; - - ALCcontext *next; -}; - -void AppendDeviceList(const ALCchar *name); -void AppendAllDeviceList(const ALCchar *name); -void AppendCaptureDeviceList(const ALCchar *name); - -ALCvoid alcSetError(ALCdevice *device, ALenum errorCode); - -ALCvoid SuspendContext(ALCcontext *context); -ALCvoid ProcessContext(ALCcontext *context); - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr); -ALuint StopThread(ALvoid *thread); - -ALCcontext *GetContextSuspended(void); - -typedef struct RingBuffer RingBuffer; -RingBuffer *CreateRingBuffer(ALsizei frame_size, ALsizei length); -void DestroyRingBuffer(RingBuffer *ring); -ALsizei RingBufferSize(RingBuffer *ring); -void WriteRingBuffer(RingBuffer *ring, const ALubyte *data, ALsizei len); -void ReadRingBuffer(RingBuffer *ring, ALubyte *data, ALsizei len); - -void ReadALConfig(void); -void FreeALConfig(void); -int ConfigValueExists(const char *blockName, const char *keyName); -const char *GetConfigValue(const char *blockName, const char *keyName, const char *def); -int GetConfigValueInt(const char *blockName, const char *keyName, int def); -float GetConfigValueFloat(const char *blockName, const char *keyName, float def); -int GetConfigValueBool(const char *blockName, const char *keyName, int def); - -void SetRTPriority(void); - -void SetDefaultChannelOrder(ALCdevice *device); -void SetDefaultWFXChannelOrder(ALCdevice *device); - -void al_print(const char *fname, unsigned int line, const char *fmt, ...) - PRINTF_STYLE(3,4); -#define AL_PRINT(...) al_print(__FILE__, __LINE__, __VA_ARGS__) - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alSource.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alSource.c deleted file mode 100644 index 9ce764023..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alSource.c +++ /dev/null @@ -1,2095 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alError.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alThunk.h" -#include "alAuxEffectSlot.h" - -#ifdef ANDROID -// Apportable: Defines a cap on the maximum number of playing sources -extern int alc_max_sources; -extern int alc_active_sources; -#define LOG_TAG "OpenAL_alSource.c" -#define LOGV(...) __android_log_print(ANDROID_LOG_INFO, LOG_TAG, __VA_ARGS__) -#else -#define LOGV(...) -#endif - -resampler_t DefaultResampler; -const ALsizei ResamplerPadding[RESAMPLER_MAX] = { - 0, /* Point */ - 1, /* Linear */ - 2, /* Cubic */ -}; -const ALsizei ResamplerPrePadding[RESAMPLER_MAX] = { - 0, /* Point */ - 0, /* Linear */ - 1, /* Cubic */ -}; - - -static ALvoid InitSourceParams(ALsource *Source); -static ALvoid GetSourceOffset(ALsource *Source, ALenum eName, ALdfp *Offsets, ALdfp updateLen); -static ALboolean ApplyOffset(ALsource *Source); -static ALint GetByteOffset(ALsource *Source); - -#define LookupSource(m, k) ((ALsource*)LookupUIntMapKey(&(m), (k))) -#define LookupBuffer(m, k) ((ALbuffer*)LookupUIntMapKey(&(m), (k))) -#define LookupFilter(m, k) ((ALfilter*)LookupUIntMapKey(&(m), (k))) -#define LookupEffectSlot(m, k) ((ALeffectslot*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenSources(ALsizei n,ALuint *sources) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(n < 0 || IsBadWritePtr((void*)sources, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else if((ALuint)n > Device->MaxNoOfSources - Context->SourceMap.size) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALenum err; - ALsizei i; - - // Add additional sources to the list - i = 0; - while(i < n) - { - ALsource *source = calloc(1, sizeof(ALsource)); - if(!source) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteSources(i, sources); - break; - } - - source->source = (ALuint)ALTHUNK_ADDENTRY(source); - err = InsertUIntMapEntry(&Context->SourceMap, source->source, - source); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(source->source); - memset(source, 0, sizeof(ALsource)); - free(source); - - alSetError(Context, err); - alDeleteSources(i, sources); - break; - } - - sources[i++] = source->source; - InitSourceParams(source); - } - } - - ProcessContext(Context); -} - - -AL_API ALvoid AL_APIENTRY alDeleteSources(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i, j; - ALbufferlistitem *BufferList; - ALboolean SourcesValid = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - SourcesValid = AL_TRUE; - // Check that all Sources are valid (and can therefore be deleted) - for(i = 0;i < n;i++) - { - if(LookupSource(Context->SourceMap, sources[i]) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - SourcesValid = AL_FALSE; - break; - } - } - } - - if(SourcesValid) - { - // All Sources are valid, and can be deleted - for(i = 0;i < n;i++) - { - // Recheck that the Source is valid, because there could be duplicated Source names - if((Source=LookupSource(Context->SourceMap, sources[i])) == NULL) - continue; - - for(j = 0;j < Context->ActiveSourceCount;j++) - { - if(Context->ActiveSources[j] == Source) - { - ALsizei end = --(Context->ActiveSourceCount); - Context->ActiveSources[j] = Context->ActiveSources[end]; - break; - } - } - - // For each buffer in the source's queue... - while(Source->queue != NULL) - { - BufferList = Source->queue; - Source->queue = BufferList->next; - - if(BufferList->buffer != NULL) - BufferList->buffer->refcount--; - free(BufferList); - } - - for(j = 0;j < MAX_SENDS;++j) - { - if(Source->Send[j].Slot) - Source->Send[j].Slot->refcount--; - Source->Send[j].Slot = NULL; - } - - // Remove Source from list of Sources - RemoveUIntMapKey(&Context->SourceMap, Source->source); - ALTHUNK_REMOVEENTRY(Source->source); - - memset(Source,0,sizeof(ALsource)); - free(Source); - } - } - - ProcessContext(Context); -} - - -AL_API ALboolean AL_APIENTRY alIsSource(ALuint source) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = (LookupSource(Context->SourceMap, source) ? AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - - -AL_API ALvoid AL_APIENTRY alSourcef(ALuint source, ALenum eParam, ALfloat flValue) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_PITCH: - if(flValue >= 0.0f) - { - Source->flPitch = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_INNER_ANGLE: - if(flValue >= 0.0f && flValue <= 360.0f) - { - Source->flInnerAngle = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_OUTER_ANGLE: - if(flValue >= 0.0f && flValue <= 360.0f) - { - Source->flOuterAngle = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_GAIN: - if(flValue >= 0.0f) - { - Source->flGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_MAX_DISTANCE: - if(flValue >= 0.0f) - { - Source->flMaxDistance = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_ROLLOFF_FACTOR: - if(flValue >= 0.0f) - { - Source->flRollOffFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_REFERENCE_DISTANCE: - if(flValue >= 0.0f) - { - Source->flRefDistance = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_MIN_GAIN: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->flMinGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_MAX_GAIN: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->flMaxGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_OUTER_GAIN: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->flOuterGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_OUTER_GAINHF: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->OuterGainHF = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_AIR_ABSORPTION_FACTOR: - if(flValue >= 0.0f && flValue <= 10.0f) - { - Source->AirAbsorptionFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_ROOM_ROLLOFF_FACTOR: - if(flValue >= 0.0f && flValue <= 10.0f) - { - Source->RoomRolloffFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_DOPPLER_FACTOR: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->DopplerFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - if(flValue >= 0.0f) - { - Source->lOffsetType = eParam; - - // Store Offset (convert Seconds into Milliseconds) - if(eParam == AL_SEC_OFFSET) - Source->lOffset = (ALint)(flValue * 1000.0f); - else - Source->lOffset = (ALint)flValue; - - if ((Source->state == AL_PLAYING) || (Source->state == AL_PAUSED)) - { - if(ApplyOffset(Source) == AL_FALSE) - alSetError(pContext, AL_INVALID_VALUE); - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - { - // Invalid Source Name - alSetError(pContext, AL_INVALID_NAME); - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSource3f(ALuint source, ALenum eParam, ALfloat flValue1,ALfloat flValue2,ALfloat flValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_POSITION: - Source->vPosition[0] = float2ALfp(flValue1); - Source->vPosition[1] = float2ALfp(flValue2); - Source->vPosition[2] = float2ALfp(flValue3); - Source->NeedsUpdate = AL_TRUE; - break; - - case AL_VELOCITY: - Source->vVelocity[0] = float2ALfp(flValue1); - Source->vVelocity[1] = float2ALfp(flValue2); - Source->vVelocity[2] = float2ALfp(flValue3); - Source->NeedsUpdate = AL_TRUE; - break; - - case AL_DIRECTION: - Source->vOrientation[0] = float2ALfp(flValue1); - Source->vOrientation[1] = float2ALfp(flValue2); - Source->vOrientation[2] = float2ALfp(flValue3); - Source->NeedsUpdate = AL_TRUE; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSourcefv(ALuint source, ALenum eParam, const ALfloat *pflValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - if(LookupSource(pContext->SourceMap, source) != NULL) - { - switch(eParam) - { - case AL_PITCH: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_GAIN: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_REFERENCE_DISTANCE: - case AL_MIN_GAIN: - case AL_MAX_GAIN: - case AL_CONE_OUTER_GAIN: - case AL_CONE_OUTER_GAINHF: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_AIR_ABSORPTION_FACTOR: - case AL_ROOM_ROLLOFF_FACTOR: - alSourcef(source, eParam, pflValues[0]); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alSource3f(source, eParam, pflValues[0], pflValues[1], pflValues[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSourcei(ALuint source,ALenum eParam,ALint lValue) -{ - ALCcontext *pContext; - ALsource *Source; - ALbufferlistitem *BufferListItem; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - ALCdevice *device = pContext->Device; - - switch(eParam) - { - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_REFERENCE_DISTANCE: - alSourcef(source, eParam, (ALfloat)lValue); - break; - - case AL_SOURCE_RELATIVE: - if(lValue == AL_FALSE || lValue == AL_TRUE) - { - Source->bHeadRelative = (ALboolean)lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_LOOPING: - if(lValue == AL_FALSE || lValue == AL_TRUE) - Source->bLooping = (ALboolean)lValue; - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_BUFFER: - if(Source->state == AL_STOPPED || Source->state == AL_INITIAL) - { - ALbuffer *buffer = NULL; - - if(lValue == 0 || - (buffer=LookupBuffer(device->BufferMap, lValue)) != NULL) - { - // Remove all elements in the queue - while(Source->queue != NULL) - { - BufferListItem = Source->queue; - Source->queue = BufferListItem->next; - - if(BufferListItem->buffer) - BufferListItem->buffer->refcount--; - free(BufferListItem); - } - Source->BuffersInQueue = 0; - - // Add the buffer to the queue (as long as it is NOT the NULL buffer) - if(buffer != NULL) - { - // Source is now in STATIC mode - Source->lSourceType = AL_STATIC; - - // Add the selected buffer to the queue - BufferListItem = malloc(sizeof(ALbufferlistitem)); - BufferListItem->buffer = buffer; - BufferListItem->next = NULL; - BufferListItem->prev = NULL; - - Source->queue = BufferListItem; - Source->BuffersInQueue = 1; - - if(buffer->FmtChannels == FmtMono) - Source->Update = CalcSourceParams; - else - Source->Update = CalcNonAttnSourceParams; - - // Increment reference counter for buffer - buffer->refcount++; - } - else - { - // Source is now in UNDETERMINED mode - Source->lSourceType = AL_UNDETERMINED; - } - Source->BuffersPlayed = 0; - - // Update AL_BUFFER parameter - Source->Buffer = buffer; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_OPERATION); - break; - - case AL_SOURCE_STATE: - // Query only - alSetError(pContext, AL_INVALID_OPERATION); - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - if(lValue >= 0) - { - Source->lOffsetType = eParam; - - // Store Offset (convert Seconds into Milliseconds) - if(eParam == AL_SEC_OFFSET) - Source->lOffset = lValue * 1000; - else - Source->lOffset = lValue; - - if(Source->state == AL_PLAYING || Source->state == AL_PAUSED) - { - if(ApplyOffset(Source) == AL_FALSE) - alSetError(pContext, AL_INVALID_VALUE); - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_DIRECT_FILTER: { - ALfilter *filter = NULL; - - if(lValue == 0 || - (filter=LookupFilter(pContext->Device->FilterMap, lValue)) != NULL) - { - if(!filter) - { - Source->DirectFilter.type = AL_FILTER_NULL; - Source->DirectFilter.filter = 0; - } - else - memcpy(&Source->DirectFilter, filter, sizeof(*filter)); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - } break; - - case AL_DIRECT_FILTER_GAINHF_AUTO: - if(lValue == AL_TRUE || lValue == AL_FALSE) - { - Source->DryGainHFAuto = lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - if(lValue == AL_TRUE || lValue == AL_FALSE) - { - Source->WetGainAuto = lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - if(lValue == AL_TRUE || lValue == AL_FALSE) - { - Source->WetGainHFAuto = lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_DISTANCE_MODEL: - if(lValue == AL_NONE || - lValue == AL_INVERSE_DISTANCE || - lValue == AL_INVERSE_DISTANCE_CLAMPED || - lValue == AL_LINEAR_DISTANCE || - lValue == AL_LINEAR_DISTANCE_CLAMPED || - lValue == AL_EXPONENT_DISTANCE || - lValue == AL_EXPONENT_DISTANCE_CLAMPED) - { - Source->DistanceModel = lValue; - if(pContext->SourceDistanceModel) - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_PRIORITY: - Source->priority = lValue; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alSource3i(ALuint source, ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - ALCdevice *device = pContext->Device; - - switch (eParam) - { - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alSource3f(source, eParam, (ALfloat)lValue1, (ALfloat)lValue2, (ALfloat)lValue3); - break; - - case AL_AUXILIARY_SEND_FILTER: { - ALeffectslot *ALEffectSlot = NULL; - ALfilter *ALFilter = NULL; - - if((ALuint)lValue2 < device->NumAuxSends && - (lValue1 == 0 || - (ALEffectSlot=LookupEffectSlot(pContext->EffectSlotMap, lValue1)) != NULL) && - (lValue3 == 0 || - (ALFilter=LookupFilter(device->FilterMap, lValue3)) != NULL)) - { - /* Release refcount on the previous slot, and add one for - * the new slot */ - if(Source->Send[lValue2].Slot) - Source->Send[lValue2].Slot->refcount--; - Source->Send[lValue2].Slot = ALEffectSlot; - if(Source->Send[lValue2].Slot) - Source->Send[lValue2].Slot->refcount++; - - if(!ALFilter) - { - /* Disable filter */ - Source->Send[lValue2].WetFilter.type = 0; - Source->Send[lValue2].WetFilter.filter = 0; - } - else - memcpy(&Source->Send[lValue2].WetFilter, ALFilter, sizeof(*ALFilter)); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - } break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alSourceiv(ALuint source, ALenum eParam, const ALint* plValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - if(LookupSource(pContext->SourceMap, source) != NULL) - { - switch(eParam) - { - case AL_SOURCE_RELATIVE: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_LOOPING: - case AL_BUFFER: - case AL_SOURCE_STATE: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_REFERENCE_DISTANCE: - case AL_DIRECT_FILTER: - case AL_DIRECT_FILTER_GAINHF_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - case AL_DISTANCE_MODEL: - alSourcei(source, eParam, plValues[0]); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - case AL_AUXILIARY_SEND_FILTER: - alSource3i(source, eParam, plValues[0], plValues[1], plValues[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSourcef(ALuint source, ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_PITCH: - *pflValue = ALfp2float(Source->flPitch); - break; - - case AL_GAIN: - *pflValue = ALfp2float(Source->flGain); - break; - - case AL_MIN_GAIN: - *pflValue = ALfp2float(Source->flMinGain); - break; - - case AL_MAX_GAIN: - *pflValue = ALfp2float(Source->flMaxGain); - break; - - case AL_MAX_DISTANCE: - *pflValue = ALfp2float(Source->flMaxDistance); - break; - - case AL_ROLLOFF_FACTOR: - *pflValue = ALfp2float(Source->flRollOffFactor); - break; - - case AL_CONE_OUTER_GAIN: - *pflValue = ALfp2float(Source->flOuterGain); - break; - - case AL_CONE_OUTER_GAINHF: - *pflValue = ALfp2float(Source->OuterGainHF); - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - *pflValue = (ALfloat)ALdfp2double(Offsets[0]); - break; - - case AL_CONE_INNER_ANGLE: - *pflValue = ALfp2float(Source->flInnerAngle); - break; - - case AL_CONE_OUTER_ANGLE: - *pflValue = ALfp2float(Source->flOuterAngle); - break; - - case AL_REFERENCE_DISTANCE: - *pflValue = ALfp2float(Source->flRefDistance); - break; - - case AL_AIR_ABSORPTION_FACTOR: - *pflValue = ALfp2float(Source->AirAbsorptionFactor); - break; - - case AL_ROOM_ROLLOFF_FACTOR: - *pflValue = ALfp2float(Source->RoomRolloffFactor); - break; - - case AL_DOPPLER_FACTOR: - *pflValue = ALfp2float(Source->DopplerFactor); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSource3f(ALuint source, ALenum eParam, ALfloat* pflValue1, ALfloat* pflValue2, ALfloat* pflValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue1 && pflValue2 && pflValue3) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_POSITION: - *pflValue1 = ALfp2float(Source->vPosition[0]); - *pflValue2 = ALfp2float(Source->vPosition[1]); - *pflValue3 = ALfp2float(Source->vPosition[2]); - break; - - case AL_VELOCITY: - *pflValue1 = ALfp2float(Source->vVelocity[0]); - *pflValue2 = ALfp2float(Source->vVelocity[1]); - *pflValue3 = ALfp2float(Source->vVelocity[2]); - break; - - case AL_DIRECTION: - *pflValue1 = ALfp2float(Source->vOrientation[0]); - *pflValue2 = ALfp2float(Source->vOrientation[1]); - *pflValue3 = ALfp2float(Source->vOrientation[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSourcefv(ALuint source, ALenum eParam, ALfloat *pflValues) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_PITCH: - case AL_GAIN: - case AL_MIN_GAIN: - case AL_MAX_GAIN: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_DOPPLER_FACTOR: - case AL_CONE_OUTER_GAIN: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_REFERENCE_DISTANCE: - case AL_CONE_OUTER_GAINHF: - case AL_AIR_ABSORPTION_FACTOR: - case AL_ROOM_ROLLOFF_FACTOR: - alGetSourcef(source, eParam, pflValues); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alGetSource3f(source, eParam, pflValues+0, pflValues+1, pflValues+2); - break; - - case AL_SAMPLE_RW_OFFSETS_SOFT: - case AL_BYTE_RW_OFFSETS_SOFT: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - pflValues[0] = (ALfloat)ALdfp2double(Offsets[0]); - pflValues[1] = (ALfloat)ALdfp2double(Offsets[1]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSourcei(ALuint source, ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_MAX_DISTANCE: - *plValue = (ALint)ALfp2int(Source->flMaxDistance); - break; - - case AL_ROLLOFF_FACTOR: - *plValue = (ALint)ALfp2int(Source->flRollOffFactor); - break; - - case AL_REFERENCE_DISTANCE: - *plValue = (ALint)ALfp2int(Source->flRefDistance); - break; - - case AL_SOURCE_RELATIVE: - *plValue = Source->bHeadRelative; - break; - - case AL_CONE_INNER_ANGLE: - *plValue = (ALint)ALfp2int(Source->flInnerAngle); - break; - - case AL_CONE_OUTER_ANGLE: - *plValue = (ALint)ALfp2int(Source->flOuterAngle); - break; - - case AL_LOOPING: - *plValue = Source->bLooping; - break; - - case AL_BUFFER: - *plValue = (Source->Buffer ? Source->Buffer->buffer : 0); - break; - - case AL_SOURCE_STATE: - *plValue = Source->state; - break; - - case AL_BUFFERS_QUEUED: - *plValue = Source->BuffersInQueue; - break; - - case AL_BUFFERS_PROCESSED: - if(Source->bLooping || Source->lSourceType != AL_STREAMING) - { - /* Buffers on a looping source are in a perpetual state - * of PENDING, so don't report any as PROCESSED */ - *plValue = 0; - } - else - *plValue = Source->BuffersPlayed; - break; - - case AL_SOURCE_TYPE: - *plValue = Source->lSourceType; - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - *plValue = (ALint)ALfp2int(Offsets[0]); - break; - - case AL_DIRECT_FILTER: - *plValue = Source->DirectFilter.filter; - break; - - case AL_DIRECT_FILTER_GAINHF_AUTO: - *plValue = Source->DryGainHFAuto; - break; - - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - *plValue = Source->WetGainAuto; - break; - - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - *plValue = Source->WetGainHFAuto; - break; - - case AL_DOPPLER_FACTOR: - *plValue = (ALint)ALfp2int(Source->DopplerFactor); - break; - - case AL_DISTANCE_MODEL: - *plValue = Source->DistanceModel; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetSource3i(ALuint source, ALenum eParam, ALint* plValue1, ALint* plValue2, ALint* plValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue1 && plValue2 && plValue3) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_POSITION: - *plValue1 = (ALint)ALfp2int(Source->vPosition[0]); - *plValue2 = (ALint)ALfp2int(Source->vPosition[1]); - *plValue3 = (ALint)ALfp2int(Source->vPosition[2]); - break; - - case AL_VELOCITY: - *plValue1 = (ALint)ALfp2int(Source->vVelocity[0]); - *plValue2 = (ALint)ALfp2int(Source->vVelocity[1]); - *plValue3 = (ALint)ALfp2int(Source->vVelocity[2]); - break; - - case AL_DIRECTION: - *plValue1 = (ALint)ALfp2int(Source->vOrientation[0]); - *plValue2 = (ALint)ALfp2int(Source->vOrientation[1]); - *plValue3 = (ALint)ALfp2int(Source->vOrientation[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetSourceiv(ALuint source, ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_SOURCE_RELATIVE: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_LOOPING: - case AL_BUFFER: - case AL_SOURCE_STATE: - case AL_BUFFERS_QUEUED: - case AL_BUFFERS_PROCESSED: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_DOPPLER_FACTOR: - case AL_REFERENCE_DISTANCE: - case AL_SOURCE_TYPE: - case AL_DIRECT_FILTER: - case AL_DIRECT_FILTER_GAINHF_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - case AL_DISTANCE_MODEL: - alGetSourcei(source, eParam, plValues); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alGetSource3i(source, eParam, plValues+0, plValues+1, plValues+2); - break; - - case AL_SAMPLE_RW_OFFSETS_SOFT: - case AL_BYTE_RW_OFFSETS_SOFT: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - plValues[0] = (ALint)ALdfp2int(Offsets[0]); - plValues[1] = (ALint)ALdfp2int(Offsets[1]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSourcePlay(ALuint source) -{ - alSourcePlayv(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourcePlayv(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALbufferlistitem *BufferList; - ALsizei i, j; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check that all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - - while(Context->MaxActiveSources-Context->ActiveSourceCount < n) - { - void *temp = NULL; - ALsizei newcount; - - newcount = Context->MaxActiveSources << 1; - if(newcount > 0) - temp = realloc(Context->ActiveSources, - sizeof(*Context->ActiveSources) * newcount); - if(!temp) - { - alSetError(Context, AL_OUT_OF_MEMORY); - goto done; - } - - Context->ActiveSources = temp; - Context->MaxActiveSources = newcount; - } - - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - -#ifdef MAX_SOURCES_LOW - if (Context->ActiveSourceCount >= (alc_max_sources - Context->PrioritySlots) && Source->priority < 127) { - LOGV("Skipping starting source %d due to lack of CPU time.", sources[i]); - continue; - } -#endif - - // Check that there is a queue containing at least one non-null, non zero length AL Buffer - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer != NULL && BufferList->buffer->size) - break; - BufferList = BufferList->next; - } - - if(!BufferList) - { - Source->state = AL_STOPPED; - Source->BuffersPlayed = Source->BuffersInQueue; - Source->position = 0; - Source->position_fraction = 0; - Source->lOffset = 0; - continue; - } - - if(Source->state != AL_PAUSED) - { - Source->state = AL_PLAYING; - Source->position = 0; - Source->position_fraction = 0; - Source->BuffersPlayed = 0; - - Source->Buffer = Source->queue->buffer; - } - else - Source->state = AL_PLAYING; - - // Check if an Offset has been set - if(Source->lOffset) - ApplyOffset(Source); - - // If device is disconnected, go right to stopped - if(!Context->Device->Connected) - { - Source->state = AL_STOPPED; - Source->BuffersPlayed = Source->BuffersInQueue; - Source->position = 0; - Source->position_fraction = 0; - } - else - { - for(j = 0;j < Context->ActiveSourceCount;j++) - { - if(Context->ActiveSources[j] == Source) - break; - } - if(j == Context->ActiveSourceCount) - Context->ActiveSources[Context->ActiveSourceCount++] = Source; - } - } - -#ifdef MAX_SOURCES_LOW - //Apportable Need to give the ALC platform code a hint for setting Source limit based on performance - alc_active_sources = Context->ActiveSourceCount; -#endif - -done: - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSourcePause(ALuint source) -{ - alSourcePausev(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourcePausev(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - if(Source->state == AL_PLAYING) - Source->state = AL_PAUSED; - } - -done: - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSourceStop(ALuint source) -{ - alSourceStopv(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourceStopv(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - if(Source->state != AL_INITIAL) - { - Source->state = AL_STOPPED; - Source->BuffersPlayed = Source->BuffersInQueue; - } - Source->lOffset = 0; - } - -done: - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSourceRewind(ALuint source) -{ - alSourceRewindv(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourceRewindv(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - if(Source->state != AL_INITIAL) - { - Source->state = AL_INITIAL; - Source->position = 0; - Source->position_fraction = 0; - Source->BuffersPlayed = 0; - if(Source->queue) - Source->Buffer = Source->queue->buffer; - } - Source->lOffset = 0; - } - -done: - ProcessContext(Context); -} - - -AL_API ALvoid AL_APIENTRY alSourceQueueBuffers(ALuint source, ALsizei n, const ALuint *buffers) -{ - ALCcontext *Context; - ALCdevice *device; - ALsource *Source; - ALbuffer *buffer; - ALsizei i; - ALbufferlistitem *BufferListStart; - ALbufferlistitem *BufferList; - ALbuffer *BufferFmt; - - if(n == 0) - return; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check that all buffers are valid or zero and that the source is valid - - // Check that this is a valid source - if((Source=LookupSource(Context->SourceMap, source)) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - - // Check that this is not a STATIC Source - if(Source->lSourceType == AL_STATIC) - { - // Invalid Source Type (can't queue on a Static Source) - alSetError(Context, AL_INVALID_OPERATION); - goto done; - } - - device = Context->Device; - - BufferFmt = NULL; - - // Check existing Queue (if any) for a valid Buffers and get its frequency and format - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer) - { - BufferFmt = BufferList->buffer; - break; - } - BufferList = BufferList->next; - } - - for(i = 0;i < n;i++) - { - if(!buffers[i]) - continue; - - if((buffer=LookupBuffer(device->BufferMap, buffers[i])) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - - if(BufferFmt == NULL) - { - BufferFmt = buffer; - - if(buffer->FmtChannels == FmtMono) - Source->Update = CalcSourceParams; - else - Source->Update = CalcNonAttnSourceParams; - - Source->NeedsUpdate = AL_TRUE; - } - else if(BufferFmt->Frequency != buffer->Frequency || - BufferFmt->OriginalChannels != buffer->OriginalChannels || - BufferFmt->OriginalType != buffer->OriginalType) - { - alSetError(Context, AL_INVALID_OPERATION); - goto done; - } - } - - // Change Source Type - Source->lSourceType = AL_STREAMING; - - buffer = (ALbuffer*)ALTHUNK_LOOKUPENTRY(buffers[0]); - - // All buffers are valid - so add them to the list - BufferListStart = malloc(sizeof(ALbufferlistitem)); - BufferListStart->buffer = buffer; - BufferListStart->next = NULL; - BufferListStart->prev = NULL; - - // Increment reference counter for buffer - if(buffer) buffer->refcount++; - - BufferList = BufferListStart; - - for(i = 1;i < n;i++) - { - buffer = (ALbuffer*)ALTHUNK_LOOKUPENTRY(buffers[i]); - - BufferList->next = malloc(sizeof(ALbufferlistitem)); - BufferList->next->buffer = buffer; - BufferList->next->next = NULL; - BufferList->next->prev = BufferList; - - // Increment reference counter for buffer - if(buffer) buffer->refcount++; - - BufferList = BufferList->next; - } - - if(Source->queue == NULL) - { - Source->queue = BufferListStart; - // Update Current Buffer - Source->Buffer = BufferListStart->buffer; - } - else - { - // Find end of queue - BufferList = Source->queue; - while(BufferList->next != NULL) - BufferList = BufferList->next; - - BufferList->next = BufferListStart; - BufferList->next->prev = BufferList; - } - - // Update number of buffers in queue - Source->BuffersInQueue += n; - -done: - ProcessContext(Context); -} - - -// Implementation assumes that n is the number of buffers to be removed from the queue and buffers is -// an array of buffer IDs that are to be filled with the names of the buffers removed -AL_API ALvoid AL_APIENTRY alSourceUnqueueBuffers( ALuint source, ALsizei n, ALuint* buffers ) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - ALbufferlistitem *BufferList; - - if(n == 0) - return; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - if((Source=LookupSource(Context->SourceMap, source)) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - - if(Source->bLooping || Source->lSourceType != AL_STREAMING || - (ALuint)n > Source->BuffersPlayed) - { - // Some buffers can't be unqueue because they have not been processed - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - for(i = 0;i < n;i++) - { - BufferList = Source->queue; - Source->queue = BufferList->next; - - if(BufferList->buffer) - { - // Record name of buffer - buffers[i] = BufferList->buffer->buffer; - // Decrement buffer reference counter - BufferList->buffer->refcount--; - } - else - buffers[i] = 0; - - // Release memory for buffer list item - free(BufferList); - Source->BuffersInQueue--; - } - if(Source->queue) - Source->queue->prev = NULL; - - if(Source->state != AL_PLAYING) - { - if(Source->queue) - Source->Buffer = Source->queue->buffer; - else - Source->Buffer = NULL; - } - Source->BuffersPlayed -= n; - -done: - ProcessContext(Context); -} - - -static ALvoid InitSourceParams(ALsource *Source) -{ - Source->flInnerAngle = int2ALfp(360); - Source->flOuterAngle = int2ALfp(360); - Source->flPitch = int2ALfp(1); - Source->vPosition[0] = int2ALfp(0); - Source->vPosition[1] = int2ALfp(0); - Source->vPosition[2] = int2ALfp(0); - Source->vOrientation[0] = int2ALfp(0); - Source->vOrientation[1] = int2ALfp(0); - Source->vOrientation[2] = int2ALfp(0); - Source->vVelocity[0] = int2ALfp(0); - Source->vVelocity[1] = int2ALfp(0); - Source->vVelocity[2] = int2ALfp(0); - Source->flRefDistance = int2ALfp(1); - Source->flMaxDistance = int2ALfp(FLT_MAX); - Source->flRollOffFactor = int2ALfp(1); - Source->bLooping = AL_FALSE; - Source->flGain = int2ALfp(1); - Source->flMinGain = int2ALfp(0); - Source->flMaxGain = int2ALfp(1); - Source->flOuterGain = int2ALfp(0); - Source->OuterGainHF = int2ALfp(1); - - Source->DryGainHFAuto = AL_TRUE; - Source->WetGainAuto = AL_TRUE; - Source->WetGainHFAuto = AL_TRUE; - Source->AirAbsorptionFactor = int2ALfp(0); - Source->RoomRolloffFactor = int2ALfp(0); - Source->DopplerFactor = int2ALfp(1); - - Source->DistanceModel = AL_INVERSE_DISTANCE_CLAMPED; - - Source->Resampler = DefaultResampler; - - Source->state = AL_INITIAL; - Source->lSourceType = AL_UNDETERMINED; - - Source->NeedsUpdate = AL_TRUE; - - Source->Buffer = NULL; - Source->priority = 0; -} - - -/* - GetSourceOffset - - Gets the current playback position in the given Source, in the appropriate format (Bytes, Samples or MilliSeconds) - The offset is relative to the start of the queue (not the start of the current buffer) -*/ -static ALvoid GetSourceOffset(ALsource *Source, ALenum name, ALdfp *offset, ALdfp updateLen) -{ - const ALbufferlistitem *BufferList; - const ALbuffer *Buffer = NULL; - enum UserFmtType OriginalType; - ALsizei BufferFreq; - ALint Channels, Bytes; - ALuint readPos, writePos; - ALuint TotalBufferDataSize; - ALuint i; - - // Find the first non-NULL Buffer in the Queue - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer) - { - Buffer = BufferList->buffer; - break; - } - BufferList = BufferList->next; - } - - if((Source->state != AL_PLAYING && Source->state != AL_PAUSED) || !Buffer) - { - offset[0] = int2ALdfp(0); - offset[1] = int2ALdfp(0); - return; - } - - // Get Current Buffer Size and frequency (in milliseconds) - BufferFreq = Buffer->Frequency; - OriginalType = Buffer->OriginalType; - Channels = ChannelsFromFmt(Buffer->FmtChannels); - Bytes = BytesFromFmt(Buffer->FmtType); - - // Get Current BytesPlayed (NOTE : This is the byte offset into the *current* buffer) - readPos = Source->position * Channels * Bytes; - // Add byte length of any processed buffers in the queue - TotalBufferDataSize = 0; - BufferList = Source->queue; - for(i = 0;BufferList;i++) - { - if(BufferList->buffer) - { - if(i < Source->BuffersPlayed) - readPos += BufferList->buffer->size; - TotalBufferDataSize += BufferList->buffer->size; - } - BufferList = BufferList->next; - } - if(Source->state == AL_PLAYING) - writePos = readPos + ((ALuint)(ALdfp2int(ALdfpMult(updateLen,int2ALdfp(BufferFreq)))) * Channels * Bytes); - else - writePos = readPos; - - if(Source->bLooping) - { - readPos %= TotalBufferDataSize; - writePos %= TotalBufferDataSize; - } - else - { - // Wrap positions back to 0 - if(readPos >= TotalBufferDataSize) - readPos = 0; - if(writePos >= TotalBufferDataSize) - writePos = 0; - } - - switch(name) - { - case AL_SEC_OFFSET: - offset[0] = ALdfpDiv(readPos, int2ALdfp(Channels * Bytes * BufferFreq)); - offset[1] = ALdfpDiv(writePos, int2ALdfp(Channels * Bytes * BufferFreq)); - break; - case AL_SAMPLE_OFFSET: - case AL_SAMPLE_RW_OFFSETS_SOFT: - offset[0] = int2ALdfp(readPos / (Channels * Bytes)); - offset[1] = int2ALdfp(writePos / (Channels * Bytes)); - break; - case AL_BYTE_OFFSET: - case AL_BYTE_RW_OFFSETS_SOFT: - // Take into account the original format of the Buffer - if(OriginalType == UserFmtIMA4) - { - ALuint FrameBlockSize = 65 * Bytes * Channels; - ALuint BlockSize = 36 * Channels; - - // Round down to nearest ADPCM block - offset[0] = int2ALdfp(readPos / FrameBlockSize * BlockSize); - if(Source->state != AL_PLAYING) - offset[1] = offset[0]; - else - { - // Round up to nearest ADPCM block - offset[1] = int2ALdfp((writePos+FrameBlockSize-1) / - (FrameBlockSize * BlockSize)); - } - } - else - { - ALuint OrigBytes = BytesFromUserFmt(OriginalType); - offset[0] = int2ALdfp(readPos / Bytes * OrigBytes); - offset[1] = int2ALdfp(writePos / Bytes * OrigBytes); - } - break; - } -} - - -/* - ApplyOffset - - Apply a playback offset to the Source. This function will update the queue (to correctly - mark buffers as 'pending' or 'processed' depending upon the new offset. -*/ -static ALboolean ApplyOffset(ALsource *Source) -{ - const ALbufferlistitem *BufferList; - const ALbuffer *Buffer; - ALint lBufferSize, lTotalBufferSize; - ALint BuffersPlayed; - ALint lByteOffset; - - // Get true byte offset - lByteOffset = GetByteOffset(Source); - - // If the offset is invalid, don't apply it - if(lByteOffset == -1) - return AL_FALSE; - - // Sort out the queue (pending and processed states) - BufferList = Source->queue; - lTotalBufferSize = 0; - BuffersPlayed = 0; - - while(BufferList) - { - Buffer = BufferList->buffer; - lBufferSize = Buffer ? Buffer->size : 0; - - if(lBufferSize <= lByteOffset-lTotalBufferSize) - { - // Offset is past this buffer so increment BuffersPlayed - BuffersPlayed++; - } - else if(lTotalBufferSize <= lByteOffset) - { - // Offset is within this buffer - // Set Current Buffer - Source->Buffer = BufferList->buffer; - Source->BuffersPlayed = BuffersPlayed; - - // SW Mixer Positions are in Samples - Source->position = (lByteOffset - lTotalBufferSize) / - FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - return AL_TRUE; - } - - // Increment the TotalBufferSize - lTotalBufferSize += lBufferSize; - - // Move on to next buffer in the Queue - BufferList = BufferList->next; - } - // Offset is out of range of the buffer queue - return AL_FALSE; -} - - -/* - GetByteOffset - - Returns the 'true' byte offset into the Source's queue (from the Sample, Byte or Millisecond - offset supplied by the application). This takes into account the fact that the buffer format - may have been modifed by AL (e.g 8bit samples are converted to float) -*/ -static ALint GetByteOffset(ALsource *Source) -{ - const ALbuffer *Buffer = NULL; - const ALbufferlistitem *BufferList; - ALint ByteOffset = -1; - - // Find the first non-NULL Buffer in the Queue - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer) - { - Buffer = BufferList->buffer; - break; - } - BufferList = BufferList->next; - } - - if(!Buffer) - { - Source->lOffset = 0; - return -1; - } - - // Determine the ByteOffset (and ensure it is block aligned) - switch(Source->lOffsetType) - { - case AL_BYTE_OFFSET: - // Take into consideration the original format - ByteOffset = Source->lOffset; - if(Buffer->OriginalType == UserFmtIMA4) - { - // Round down to nearest ADPCM block - ByteOffset /= 36 * ChannelsFromUserFmt(Buffer->OriginalChannels); - // Multiply by compression rate (65 sample frames per block) - ByteOffset *= 65; - } - else - ByteOffset /= FrameSizeFromUserFmt(Buffer->OriginalChannels, Buffer->OriginalType); - ByteOffset *= FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - break; - - case AL_SAMPLE_OFFSET: - ByteOffset = Source->lOffset * FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - break; - - case AL_SEC_OFFSET: - // Note - lOffset is internally stored as Milliseconds - ByteOffset = (ALint)(Source->lOffset / 1000.0 * Buffer->Frequency); - ByteOffset *= FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - break; - } - // Clear Offset - Source->lOffset = 0; - - return ByteOffset; -} - - -ALvoid ReleaseALSources(ALCcontext *Context) -{ - ALsizei pos; - ALuint j; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *temp = Context->SourceMap.array[pos].value; - Context->SourceMap.array[pos].value = NULL; - - // For each buffer in the source's queue, decrement its reference counter and remove it - while(temp->queue != NULL) - { - ALbufferlistitem *BufferList = temp->queue; - temp->queue = BufferList->next; - - if(BufferList->buffer != NULL) - BufferList->buffer->refcount--; - free(BufferList); - } - - for(j = 0;j < MAX_SENDS;++j) - { - if(temp->Send[j].Slot) - temp->Send[j].Slot->refcount--; - temp->Send[j].Slot = NULL; - } - - // Release source structure - ALTHUNK_REMOVEENTRY(temp->source); - memset(temp, 0, sizeof(ALsource)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alSource.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alSource.h deleted file mode 100644 index b4a91e9d1..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alSource.h +++ /dev/null @@ -1,124 +0,0 @@ -#ifndef _AL_SOURCE_H_ -#define _AL_SOURCE_H_ - -#define MAX_SENDS 4 - -#include "alFilter.h" -#include "alu.h" -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - POINT_RESAMPLER = 0, - LINEAR_RESAMPLER, - CUBIC_RESAMPLER, - - RESAMPLER_MAX, - RESAMPLER_MIN = -1, - RESAMPLER_DEFAULT = LINEAR_RESAMPLER -} resampler_t; -extern resampler_t DefaultResampler; - -extern const ALsizei ResamplerPadding[RESAMPLER_MAX]; -extern const ALsizei ResamplerPrePadding[RESAMPLER_MAX]; - - -typedef struct ALbufferlistitem -{ - struct ALbuffer *buffer; - struct ALbufferlistitem *next; - struct ALbufferlistitem *prev; -} ALbufferlistitem; - -typedef struct ALsource -{ - ALfp flPitch; - ALfp flGain; - ALfp flOuterGain; - ALfp flMinGain; - ALfp flMaxGain; - ALfp flInnerAngle; - ALfp flOuterAngle; - ALfp flRefDistance; - ALfp flMaxDistance; - ALfp flRollOffFactor; - ALfp vPosition[3]; - ALfp vVelocity[3]; - ALfp vOrientation[3]; - ALboolean bHeadRelative; - ALboolean bLooping; - ALenum DistanceModel; - - // Apportably Extension - ALuint priority; - - resampler_t Resampler; - - ALenum state; - ALuint position; - ALuint position_fraction; - - struct ALbuffer *Buffer; - - ALbufferlistitem *queue; // Linked list of buffers in queue - ALuint BuffersInQueue; // Number of buffers in queue - ALuint BuffersPlayed; // Number of buffers played on this loop - - ALfilter DirectFilter; - - struct { - struct ALeffectslot *Slot; - ALfilter WetFilter; - } Send[MAX_SENDS]; - - ALboolean DryGainHFAuto; - ALboolean WetGainAuto; - ALboolean WetGainHFAuto; - ALfp OuterGainHF; - - ALfp AirAbsorptionFactor; - ALfp RoomRolloffFactor; - ALfp DopplerFactor; - - ALint lOffset; - ALint lOffsetType; - - // Source Type (Static, Streaming, or Undetermined) - ALint lSourceType; - - // Current target parameters used for mixing - ALboolean NeedsUpdate; - struct { - ALint Step; - - /* A mixing matrix. First subscript is the channel number of the input - * data (regardless of channel configuration) and the second is the - * channel target (eg. FRONT_LEFT) */ - ALfp DryGains[MAXCHANNELS][MAXCHANNELS]; - FILTER iirFilter; - ALfp history[MAXCHANNELS*2]; - - struct { - ALfp WetGain; - FILTER iirFilter; - ALfp history[MAXCHANNELS]; - } Send[MAX_SENDS]; - } Params; - - ALvoid (*Update)(struct ALsource *self, const ALCcontext *context); - - // Index to itself - ALuint source; -} ALsource; -#define ALsource_Update(s,a) ((s)->Update(s,a)) - -ALvoid ReleaseALSources(ALCcontext *Context); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alState.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alState.c deleted file mode 100644 index 74c6a4079..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alState.c +++ /dev/null @@ -1,661 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2000 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include "alMain.h" -#include "AL/alc.h" -#include "AL/alext.h" -#include "alError.h" -#include "alSource.h" -#include "alState.h" -#include "alDatabuffer.h" - -static const ALchar alVendor[] = "OpenAL Community"; -static const ALchar alVersion[] = "1.1 ALSOFT "ALSOFT_VERSION; -static const ALchar alRenderer[] = "OpenAL Soft"; - -// Error Messages -static const ALchar alNoError[] = "No Error"; -static const ALchar alErrInvalidName[] = "Invalid Name"; -static const ALchar alErrInvalidEnum[] = "Invalid Enum"; -static const ALchar alErrInvalidValue[] = "Invalid Value"; -static const ALchar alErrInvalidOp[] = "Invalid Operation"; -static const ALchar alErrOutOfMemory[] = "Out of Memory"; - -AL_API ALvoid AL_APIENTRY alEnable(ALenum capability) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - switch(capability) - { - case AL_SOURCE_DISTANCE_MODEL: - Context->SourceDistanceModel = AL_TRUE; - updateSources = AL_TRUE; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDisable(ALenum capability) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - switch(capability) - { - case AL_SOURCE_DISTANCE_MODEL: - Context->SourceDistanceModel = AL_FALSE; - updateSources = AL_TRUE; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsEnabled(ALenum capability) -{ - ALCcontext *Context; - ALboolean value=AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - switch(capability) - { - case AL_SOURCE_DISTANCE_MODEL: - value = Context->SourceDistanceModel; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALboolean AL_APIENTRY alGetBoolean(ALenum pname) -{ - ALCcontext *Context; - ALboolean value=AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - if(Context->DopplerFactor != int2ALfp(0)) - value = AL_TRUE; - break; - - case AL_DOPPLER_VELOCITY: - if(Context->DopplerVelocity != int2ALfp(0)) - value = AL_TRUE; - break; - - case AL_DISTANCE_MODEL: - if(Context->DistanceModel == AL_INVERSE_DISTANCE_CLAMPED) - value = AL_TRUE; - break; - - case AL_SPEED_OF_SOUND: - if(Context->flSpeedOfSound != int2ALfp(0)) - value = AL_TRUE; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALdouble AL_APIENTRY alGetDouble(ALenum pname) -{ - ALCcontext *Context; - ALdouble value = 0.0; - - Context = GetContextSuspended(); - if(!Context) return 0.0; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - value = (double)ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - value = (double)ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - value = (double)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - value = (double)ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALfloat AL_APIENTRY alGetFloat(ALenum pname) -{ - ALCcontext *Context; - ALfloat value = 0.0f; - - Context = GetContextSuspended(); - if(!Context) return 0.0f; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - value = ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - value = ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - value = (float)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - value = ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALint AL_APIENTRY alGetInteger(ALenum pname) -{ - ALCcontext *Context; - ALint value = 0; - - Context = GetContextSuspended(); - if(!Context) return 0; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - value = (ALint)ALfp2int(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - value = (ALint)ALfp2int(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - value = (ALint)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - value = (ALint)ALfp2int(Context->flSpeedOfSound); - break; - - case AL_SAMPLE_SOURCE_EXT: - if(Context->SampleSource) - value = (ALint)Context->SampleSource->databuffer; - else - value = 0; - break; - - case AL_SAMPLE_SINK_EXT: - if(Context->SampleSink) - value = (ALint)Context->SampleSink->databuffer; - else - value = 0; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALvoid AL_APIENTRY alGetBooleanv(ALenum pname,ALboolean *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = (ALboolean)((Context->DopplerFactor != int2ALfp(0)) ? AL_TRUE : AL_FALSE); - break; - - case AL_DOPPLER_VELOCITY: - *data = (ALboolean)((Context->DopplerVelocity != int2ALfp(0)) ? AL_TRUE : AL_FALSE); - break; - - case AL_DISTANCE_MODEL: - *data = (ALboolean)((Context->DistanceModel == AL_INVERSE_DISTANCE_CLAMPED) ? AL_TRUE : AL_FALSE); - break; - - case AL_SPEED_OF_SOUND: - *data = (ALboolean)((Context->flSpeedOfSound != int2ALfp(0)) ? AL_TRUE : AL_FALSE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetDoublev(ALenum pname,ALdouble *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = (double)ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - *data = (double)ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - *data = (double)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - *data = (double)ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFloatv(ALenum pname,ALfloat *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - *data = ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - *data = (float)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - *data = ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetIntegerv(ALenum pname,ALint *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = (ALint)ALfp2int(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - *data = (ALint)ALfp2int(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - *data = (ALint)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - *data = (ALint)ALfp2int(Context->flSpeedOfSound); - break; - - case AL_SAMPLE_SOURCE_EXT: - if(Context->SampleSource) - *data = (ALint)Context->SampleSource->databuffer; - else - *data = 0; - break; - - case AL_SAMPLE_SINK_EXT: - if(Context->SampleSink) - *data = (ALint)Context->SampleSink->databuffer; - else - *data = 0; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API const ALchar* AL_APIENTRY alGetString(ALenum pname) -{ - const ALchar *value; - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return NULL; - - switch(pname) - { - case AL_VENDOR: - value=alVendor; - break; - - case AL_VERSION: - value=alVersion; - break; - - case AL_RENDERER: - value=alRenderer; - break; - - case AL_EXTENSIONS: - value=pContext->ExtensionList;//alExtensions; - break; - - case AL_NO_ERROR: - value=alNoError; - break; - - case AL_INVALID_NAME: - value=alErrInvalidName; - break; - - case AL_INVALID_ENUM: - value=alErrInvalidEnum; - break; - - case AL_INVALID_VALUE: - value=alErrInvalidValue; - break; - - case AL_INVALID_OPERATION: - value=alErrInvalidOp; - break; - - case AL_OUT_OF_MEMORY: - value=alErrOutOfMemory; - break; - - default: - value=NULL; - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - ProcessContext(pContext); - - return value; -} - -AL_API ALvoid AL_APIENTRY alDopplerFactor(ALfloat value) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - if(value >= 0.0f) - { - Context->DopplerFactor = float2ALfp(value); - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - - // Force updating the sources for these parameters, since even head- - // relative sources are affected - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDopplerVelocity(ALfloat value) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - if(value > 0.0f) - { - Context->DopplerVelocity=float2ALfp(value); - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSpeedOfSound(ALfloat flSpeedOfSound) -{ - ALCcontext *pContext; - ALboolean updateSources = AL_FALSE; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(flSpeedOfSound > 0.0f) - { - pContext->flSpeedOfSound = float2ALfp(flSpeedOfSound); - updateSources = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alDistanceModel(ALenum value) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - switch(value) - { - case AL_NONE: - case AL_INVERSE_DISTANCE: - case AL_INVERSE_DISTANCE_CLAMPED: - case AL_LINEAR_DISTANCE: - case AL_LINEAR_DISTANCE_CLAMPED: - case AL_EXPONENT_DISTANCE: - case AL_EXPONENT_DISTANCE_CLAMPED: - Context->DistanceModel = value; - updateSources = !Context->SourceDistanceModel; - break; - - default: - alSetError(Context, AL_INVALID_VALUE); - break; - } - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alState.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alState.h deleted file mode 100644 index 332176b03..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alState.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef _AL_STATE_H_ -#define _AL_STATE_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alThunk.c b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alThunk.c deleted file mode 100644 index 08b80b067..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alThunk.c +++ /dev/null @@ -1,111 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include - -#include "alMain.h" -#include "alThunk.h" - -typedef struct { - ALvoid *ptr; - ALboolean InUse; -} ThunkEntry; - -static ThunkEntry *g_ThunkArray; -static ALuint g_ThunkArraySize; - -static CRITICAL_SECTION g_ThunkLock; - -void alThunkInit(void) -{ - InitializeCriticalSection(&g_ThunkLock); - g_ThunkArraySize = 1; - g_ThunkArray = calloc(1, g_ThunkArraySize * sizeof(ThunkEntry)); -} - -void alThunkExit(void) -{ - free(g_ThunkArray); - g_ThunkArray = NULL; - g_ThunkArraySize = 0; - DeleteCriticalSection(&g_ThunkLock); -} - -ALuint alThunkAddEntry(ALvoid *ptr) -{ - ALuint index; - - EnterCriticalSection(&g_ThunkLock); - - for(index = 0;index < g_ThunkArraySize;index++) - { - if(g_ThunkArray[index].InUse == AL_FALSE) - break; - } - - if(index == g_ThunkArraySize) - { - ThunkEntry *NewList; - - NewList = realloc(g_ThunkArray, g_ThunkArraySize*2 * sizeof(ThunkEntry)); - if(!NewList) - { - LeaveCriticalSection(&g_ThunkLock); - AL_PRINT("Realloc failed to increase to %u enties!\n", g_ThunkArraySize*2); - return 0; - } - memset(&NewList[g_ThunkArraySize], 0, g_ThunkArraySize*sizeof(ThunkEntry)); - g_ThunkArraySize *= 2; - g_ThunkArray = NewList; - } - - g_ThunkArray[index].ptr = ptr; - g_ThunkArray[index].InUse = AL_TRUE; - - LeaveCriticalSection(&g_ThunkLock); - - return index+1; -} - -void alThunkRemoveEntry(ALuint index) -{ - EnterCriticalSection(&g_ThunkLock); - - if(index > 0 && index <= g_ThunkArraySize) - g_ThunkArray[index-1].InUse = AL_FALSE; - - LeaveCriticalSection(&g_ThunkLock); -} - -ALvoid *alThunkLookupEntry(ALuint index) -{ - ALvoid *ptr = NULL; - - EnterCriticalSection(&g_ThunkLock); - - if(index > 0 && index <= g_ThunkArraySize) - ptr = g_ThunkArray[index-1].ptr; - - LeaveCriticalSection(&g_ThunkLock); - - return ptr; -} diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alThunk.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alThunk.h deleted file mode 100644 index 902f00e54..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alThunk.h +++ /dev/null @@ -1,42 +0,0 @@ -#ifndef _AL_THUNK_H_ -#define _AL_THUNK_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -void alThunkInit(void); -void alThunkExit(void); -ALuint alThunkAddEntry(ALvoid *ptr); -void alThunkRemoveEntry(ALuint index); -ALvoid *alThunkLookupEntry(ALuint index); - -#if (SIZEOF_VOIDP > SIZEOF_UINT) - -#define ALTHUNK_INIT() alThunkInit() -#define ALTHUNK_EXIT() alThunkExit() -#define ALTHUNK_ADDENTRY(p) alThunkAddEntry(p) -#define ALTHUNK_REMOVEENTRY(i) alThunkRemoveEntry(i) -#define ALTHUNK_LOOKUPENTRY(i) alThunkLookupEntry(i) - -#else - -#define ALTHUNK_INIT() -#define ALTHUNK_EXIT() -#define ALTHUNK_ADDENTRY(p) ((ALuint)p) -#define ALTHUNK_REMOVEENTRY(i) ((ALvoid)i) -#define ALTHUNK_LOOKUPENTRY(i) ((ALvoid*)(i)) - -#endif // (SIZEOF_VOIDP > SIZEOF_INT) - -#ifdef __cplusplus -} -#endif - -#endif //_AL_THUNK_H_ - diff --git a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alu.h b/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alu.h deleted file mode 100644 index 508eb3800..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/OpenAL32/alu.h +++ /dev/null @@ -1,140 +0,0 @@ -#ifndef _ALU_H_ -#define _ALU_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#include -#include -#ifdef HAVE_FLOAT_H -#include -#endif - -#ifndef M_PI -#define M_PI 3.14159265358979323846 /* pi */ -#define M_PI_2 1.57079632679489661923 /* pi/2 */ -#endif - -#ifdef HAVE_POWF -#define aluPow(x,y) (float2ALfp(powf(ALfp2float(x), ALfp2float(y)))) -#else -#define aluPow(x,y) (float2ALfp((float)pow((double)ALfp2float(x), (double)ALfp2float(y)))) -#endif - -#ifdef HAVE_SQRTF -#define aluSqrt(x) (float2ALfp(sqrtf(ALfp2float(x)))) -#else -#define aluSqrt(x) (float2ALfp((float)sqrt((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ACOSF -#define aluAcos(x) (float2ALfp(acosf(ALfp2float(x)))) -#else -#define aluAcos(x) (float2ALfp((float)acos((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ATANF -#define aluAtan(x) (float2ALfp(atanf(ALfp2float(x)))) -#else -#define aluAtan(x) (float2ALfp((float)atan((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_FABSF -#define aluFabs(x) (float2ALfp(fabsf(ALfp2float(x)))) -#else -#define aluFabs(x) (float2ALfp((float)fabs((double)ALfp2float(x)))) -#endif - -// FIXME make this better -#if defined(max) && !defined(__max) -#define __max(x,y) float2ALfp(max(ALfp2float(x),ALfp2float(y))) -#endif -#if defined(min) && !defined(__min) -#define __min(x,y) float2ALfp(min(ALfp2float(x),ALfp2float(y))) -#endif - -#define QUADRANT_NUM 128 -#define LUT_NUM (4 * QUADRANT_NUM) - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - FRONT_LEFT = 0, - FRONT_RIGHT, - FRONT_CENTER, - LFE, - BACK_LEFT, - BACK_RIGHT, - BACK_CENTER, - SIDE_LEFT, - SIDE_RIGHT, -} Channel; - -#ifndef MAXCHANNELS -#define MAXCHANNELS (SIDE_RIGHT+1) -#error MAXCHANNELS -#endif - -#define BUFFERSIZE 4096 - -#define FRACTIONBITS (14) -#define FRACTIONONE (1< Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/build.mk b/internal/c/parts/audio/out/android/OpenAL/build.mk deleted file mode 100644 index 6ffe5a25d..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/build.mk +++ /dev/null @@ -1,54 +0,0 @@ -MODULE = System/OpenAL - -CCFLAGS = \ - -I$(SYSDIR) \ - -I$(SYSDIR)/OpenAL/include \ - -I$(SYSDIR)/OpenAL/OpenAL32/Include \ - -DAL_BUILD_LIBRARY \ - -DAL_ALEXT_PROTOTYPES \ - -DVERDE_USE_REAL_FILE_IO \ - -OBJECTS = \ - -ifneq ($(OS), mac) -OBJECTS += \ - OpenAL32/alAuxEffectSlot.o \ - OpenAL32/alBuffer.o \ - OpenAL32/alDatabuffer.o \ - OpenAL32/alEffect.o \ - OpenAL32/alError.o \ - OpenAL32/alExtension.o \ - OpenAL32/alFilter.o \ - OpenAL32/alListener.o \ - OpenAL32/alSource.o \ - OpenAL32/alState.o \ - OpenAL32/alThunk.o \ - Alc/ALc.o \ - Alc/alcConfig.o \ - Alc/alcEcho.o \ - Alc/alcModulator.o \ - Alc/alcReverb.o \ - Alc/alcRing.o \ - Alc/alcThread.o \ - Alc/ALu.o \ - Alc/bs2b.o \ - Alc/null.o \ - Alc/panning.o \ - Alc/mixer.o \ - -endif - -ifeq ($(TARGET_OS), android) -OBJECTS += Alc/audiotrack.o -ifdef POST_FROYO -OBJECTS += Alc/opensles.o -endif -CCFLAGS += -I/Developer/AndroidNDK/platforms/android-9/arch-arm/usr/include -CCFLAGS += -DOPENAL_FIXED_POINT -DOPENAL_FIXED_POINT_SHIFT=16 -endif - -ifeq ($(OS), linux) -OBJECTS += Alc/oss.o -endif - -include $(ROOTDIR)/module.mk diff --git a/internal/c/parts/audio/out/android/OpenAL/include/AL/al.h b/internal/c/parts/audio/out/android/OpenAL/include/AL/al.h deleted file mode 100644 index e084b3ed3..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/include/AL/al.h +++ /dev/null @@ -1,825 +0,0 @@ -#ifndef AL_AL_H -#define AL_AL_H - -#ifdef ANDROID -#include -#ifndef LOGI -#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,"OpenAL",__VA_ARGS__) -#endif -#ifndef LOGE -#define LOGE(...) __android_log_print(ANDROID_LOG_ERROR,"OpenAL",__VA_ARGS__) -#endif -#endif - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define AL_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define AL_API __declspec(dllexport) - #else - #define AL_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define AL_API __attribute__((visibility("protected"))) - #else - #define AL_API extern - #endif -#endif - -#if defined(_WIN32) - #define AL_APIENTRY __cdecl -#else - #define AL_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The OPENAL, ALAPI, ALAPIENTRY, AL_INVALID, AL_ILLEGAL_ENUM, and - * AL_ILLEGAL_COMMAND macros are deprecated, but are included for - * applications porting code from AL 1.0 - */ -#define OPENAL -#define ALAPI AL_API -#define ALAPIENTRY AL_APIENTRY -#define AL_INVALID (-1) -#define AL_ILLEGAL_ENUM AL_INVALID_ENUM -#define AL_ILLEGAL_COMMAND AL_INVALID_OPERATION - -#define AL_VERSION_1_0 -#define AL_VERSION_1_1 - - -/** 8-bit boolean */ -typedef char ALboolean; - -/** character */ -typedef char ALchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALsizei; - -/** enumerated 32-bit value */ -typedef int ALenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALdouble; - -#ifdef OPENAL_FIXED_POINT -/* Apportable tries to define int64_t and int32_t if it thinks it is needed. - * But this is breaking in a complex project involving both pure C and C++ - * something is triggering redefinition errors. The workaround seems to be just using stdint.h. - */ -#include -/** Types and Macros for fixed-point math */ -#ifndef INT64_MAX -typedef long long int64_t; -#define INT64_MAX 9223372036854775807LL - -#endif -#ifndef INT32_MAX -typedef int int32_t; -#define INT32_MAX 2147483647 -#endif - -// FIXME(apportable) make this int32_t -typedef int64_t ALfp; -typedef int64_t ALdfp; - -#define ONE (1<=0 ? 0.5 : -0.5))) -#define ALfp2float(x) ((float)(x) / (1<=0 ? 0.5 : -0.5))) -#define ALdfp2double(x) ((double)(x) / (1<> OPENAL_FIXED_POINT_SHIFT)) - -#define int2ALdfp(x) ((ALdfp)(x) << OPENAL_FIXED_POINT_SHIFT) -#define ALdfp2int(x) ((ALint)((x) >> OPENAL_FIXED_POINT_SHIFT)) - -#define ALfpMult(x,y) ((ALfp)((((int64_t)(x))*((int64_t)(y)))>>OPENAL_FIXED_POINT_SHIFT)) -#define ALfpDiv(x,y) ((ALfp)(((int64_t)(x) << OPENAL_FIXED_POINT_SHIFT) / (y))) - -#define ALdfpMult(x,y) ALfpMult(x,y) -#define ALdfpDiv(x,y) ALfpDiv(x,y) - -#define __isnan(x) (0) -#define __cos(x) (float2ALfp(cos(ALfp2float(x)))) -#define __sin(x) (float2ALfp(sin(ALfp2float(x)))) -#define __log10(x) (float2ALfp(log10(ALfp2float(x)))) -#define __atan(x) (float2ALfp(atan(ALfp2float(x)))) - -#define toALfpConst(x) ((x)*(1< Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(ANDROID) -/* - * OpenAL extension for suspend/resume of audio throughout application lifecycle - */ -ALC_API void ALC_APIENTRY alcSuspend( void ); -ALC_API void ALC_APIENTRY alcResume( void ); -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/include/AL/alext.h b/internal/c/parts/audio/out/android/OpenAL/include/AL/alext.h deleted file mode 100644 index f3c7bcae8..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/include/AL/alext.h +++ /dev/null @@ -1,165 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2008 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifndef AL_ALEXT_H -#define AL_ALEXT_H - -#include - -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef AL_LOKI_IMA_ADPCM_format -#define AL_LOKI_IMA_ADPCM_format 1 -#define AL_FORMAT_IMA_ADPCM_MONO16_EXT 0x10000 -#define AL_FORMAT_IMA_ADPCM_STEREO16_EXT 0x10001 -#endif - -#ifndef AL_LOKI_WAVE_format -#define AL_LOKI_WAVE_format 1 -#define AL_FORMAT_WAVE_EXT 0x10002 -#endif - -#ifndef AL_EXT_vorbis -#define AL_EXT_vorbis 1 -#define AL_FORMAT_VORBIS_EXT 0x10003 -#endif - -#ifndef AL_LOKI_quadriphonic -#define AL_LOKI_quadriphonic 1 -#define AL_FORMAT_QUAD8_LOKI 0x10004 -#define AL_FORMAT_QUAD16_LOKI 0x10005 -#endif - -#ifndef AL_EXT_float32 -#define AL_EXT_float32 1 -#define AL_FORMAT_MONO_FLOAT32 0x10010 -#define AL_FORMAT_STEREO_FLOAT32 0x10011 -#endif - -#ifndef AL_EXT_double -#define AL_EXT_double 1 -#define AL_FORMAT_MONO_DOUBLE_EXT 0x10012 -#define AL_FORMAT_STEREO_DOUBLE_EXT 0x10013 -#endif - -#ifndef ALC_LOKI_audio_channel -#define ALC_LOKI_audio_channel 1 -#define ALC_CHAN_MAIN_LOKI 0x500001 -#define ALC_CHAN_PCM_LOKI 0x500002 -#define ALC_CHAN_CD_LOKI 0x500003 -#endif - -#ifndef ALC_ENUMERATE_ALL_EXT -#define ALC_ENUMERATE_ALL_EXT 1 -#define ALC_DEFAULT_ALL_DEVICES_SPECIFIER 0x1012 -#define ALC_ALL_DEVICES_SPECIFIER 0x1013 -#endif - -#ifndef AL_EXT_MCFORMATS -#define AL_EXT_MCFORMATS 1 -#define AL_FORMAT_QUAD8 0x1204 -#define AL_FORMAT_QUAD16 0x1205 -#define AL_FORMAT_QUAD32 0x1206 -#define AL_FORMAT_REAR8 0x1207 -#define AL_FORMAT_REAR16 0x1208 -#define AL_FORMAT_REAR32 0x1209 -#define AL_FORMAT_51CHN8 0x120A -#define AL_FORMAT_51CHN16 0x120B -#define AL_FORMAT_51CHN32 0x120C -#define AL_FORMAT_61CHN8 0x120D -#define AL_FORMAT_61CHN16 0x120E -#define AL_FORMAT_61CHN32 0x120F -#define AL_FORMAT_71CHN8 0x1210 -#define AL_FORMAT_71CHN16 0x1211 -#define AL_FORMAT_71CHN32 0x1212 -#endif - -#ifndef AL_EXT_MULAW_MCFORMATS -#define AL_EXT_MULAW_MCFORMATS 1 -#define AL_FORMAT_MONO_MULAW 0x10014 -#define AL_FORMAT_STEREO_MULAW 0x10015 -#define AL_FORMAT_QUAD_MULAW 0x10021 -#define AL_FORMAT_REAR_MULAW 0x10022 -#define AL_FORMAT_51CHN_MULAW 0x10023 -#define AL_FORMAT_61CHN_MULAW 0x10024 -#define AL_FORMAT_71CHN_MULAW 0x10025 -#endif - -#ifndef AL_EXT_IMA4 -#define AL_EXT_IMA4 1 -#define AL_FORMAT_MONO_IMA4 0x1300 -#define AL_FORMAT_STEREO_IMA4 0x1301 -#endif - -#ifndef AL_EXT_STATIC_BUFFER -#define AL_EXT_STATIC_BUFFER 1 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERDATASTATICPROC)(const ALint,ALenum,ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferDataStatic(const ALint buffer, ALenum format, ALvoid *data, ALsizei len, ALsizei freq); -#endif -#endif - -#ifndef ALC_EXT_EFX -#define ALC_EXT_EFX 1 -#include "efx.h" -#endif - -#ifndef ALC_EXT_disconnect -#define ALC_EXT_disconnect 1 -#define ALC_CONNECTED 0x313 -#endif - -#ifndef ALC_EXT_thread_local_context -#define ALC_EXT_thread_local_context 1 -typedef ALCboolean (ALC_APIENTRY*PFNALCSETTHREADCONTEXTPROC)(ALCcontext *context); -typedef ALCcontext* (ALC_APIENTRY*PFNALCGETTHREADCONTEXTPROC)(void); -#ifdef AL_ALEXT_PROTOTYPES -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context); -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void); -#endif -#endif - -#ifndef AL_EXT_source_distance_model -#define AL_EXT_source_distance_model 1 -#define AL_SOURCE_DISTANCE_MODEL 0x200 -#endif - -#ifndef AL_SOFT_buffer_sub_data -#define AL_SOFT_buffer_sub_data 1 -#define AL_BYTE_RW_OFFSETS_SOFT 0x1031 -#define AL_SAMPLE_RW_OFFSETS_SOFT 0x1032 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERSUBDATASOFTPROC)(ALuint,ALenum,const ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length); -#endif -#endif - -#ifndef AL_SOFT_loop_points -#define AL_SOFT_loop_points 1 -#define AL_LOOP_POINTS_SOFT 0x2015 -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/OpenAL/include/AL/efx-creative.h b/internal/c/parts/audio/out/android/OpenAL/include/AL/efx-creative.h deleted file mode 100644 index 0a04c982e..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/include/AL/efx-creative.h +++ /dev/null @@ -1,3 +0,0 @@ -/* The tokens that would be defined here are already defined in efx.h. This - * empty file is here to provide compatibility with Windows-based projects - * that would include it. */ diff --git a/internal/c/parts/audio/out/android/OpenAL/include/AL/efx.h b/internal/c/parts/audio/out/android/OpenAL/include/AL/efx.h deleted file mode 100644 index 0ccef95d6..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/include/AL/efx.h +++ /dev/null @@ -1,758 +0,0 @@ -#ifndef AL_EFX_H -#define AL_EFX_H - - -#ifdef __cplusplus -extern "C" { -#endif - -#define ALC_EXT_EFX_NAME "ALC_EXT_EFX" - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - - -/* Listener properties. */ -#define AL_METERS_PER_UNIT 0x20004 - -/* Source properties. */ -#define AL_DIRECT_FILTER 0x20005 -#define AL_AUXILIARY_SEND_FILTER 0x20006 -#define AL_AIR_ABSORPTION_FACTOR 0x20007 -#define AL_ROOM_ROLLOFF_FACTOR 0x20008 -#define AL_CONE_OUTER_GAINHF 0x20009 -#define AL_DIRECT_FILTER_GAINHF_AUTO 0x2000A -#define AL_AUXILIARY_SEND_FILTER_GAIN_AUTO 0x2000B -#define AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO 0x2000C - - -/* Effect properties. */ - -/* Reverb effect parameters */ -#define AL_REVERB_DENSITY 0x0001 -#define AL_REVERB_DIFFUSION 0x0002 -#define AL_REVERB_GAIN 0x0003 -#define AL_REVERB_GAINHF 0x0004 -#define AL_REVERB_DECAY_TIME 0x0005 -#define AL_REVERB_DECAY_HFRATIO 0x0006 -#define AL_REVERB_REFLECTIONS_GAIN 0x0007 -#define AL_REVERB_REFLECTIONS_DELAY 0x0008 -#define AL_REVERB_LATE_REVERB_GAIN 0x0009 -#define AL_REVERB_LATE_REVERB_DELAY 0x000A -#define AL_REVERB_AIR_ABSORPTION_GAINHF 0x000B -#define AL_REVERB_ROOM_ROLLOFF_FACTOR 0x000C -#define AL_REVERB_DECAY_HFLIMIT 0x000D - -/* EAX Reverb effect parameters */ -#define AL_EAXREVERB_DENSITY 0x0001 -#define AL_EAXREVERB_DIFFUSION 0x0002 -#define AL_EAXREVERB_GAIN 0x0003 -#define AL_EAXREVERB_GAINHF 0x0004 -#define AL_EAXREVERB_GAINLF 0x0005 -#define AL_EAXREVERB_DECAY_TIME 0x0006 -#define AL_EAXREVERB_DECAY_HFRATIO 0x0007 -#define AL_EAXREVERB_DECAY_LFRATIO 0x0008 -#define AL_EAXREVERB_REFLECTIONS_GAIN 0x0009 -#define AL_EAXREVERB_REFLECTIONS_DELAY 0x000A -#define AL_EAXREVERB_REFLECTIONS_PAN 0x000B -#define AL_EAXREVERB_LATE_REVERB_GAIN 0x000C -#define AL_EAXREVERB_LATE_REVERB_DELAY 0x000D -#define AL_EAXREVERB_LATE_REVERB_PAN 0x000E -#define AL_EAXREVERB_ECHO_TIME 0x000F -#define AL_EAXREVERB_ECHO_DEPTH 0x0010 -#define AL_EAXREVERB_MODULATION_TIME 0x0011 -#define AL_EAXREVERB_MODULATION_DEPTH 0x0012 -#define AL_EAXREVERB_AIR_ABSORPTION_GAINHF 0x0013 -#define AL_EAXREVERB_HFREFERENCE 0x0014 -#define AL_EAXREVERB_LFREFERENCE 0x0015 -#define AL_EAXREVERB_ROOM_ROLLOFF_FACTOR 0x0016 -#define AL_EAXREVERB_DECAY_HFLIMIT 0x0017 - -/* Chorus effect parameters */ -#define AL_CHORUS_WAVEFORM 0x0001 -#define AL_CHORUS_PHASE 0x0002 -#define AL_CHORUS_RATE 0x0003 -#define AL_CHORUS_DEPTH 0x0004 -#define AL_CHORUS_FEEDBACK 0x0005 -#define AL_CHORUS_DELAY 0x0006 - -/* Distortion effect parameters */ -#define AL_DISTORTION_EDGE 0x0001 -#define AL_DISTORTION_GAIN 0x0002 -#define AL_DISTORTION_LOWPASS_CUTOFF 0x0003 -#define AL_DISTORTION_EQCENTER 0x0004 -#define AL_DISTORTION_EQBANDWIDTH 0x0005 - -/* Echo effect parameters */ -#define AL_ECHO_DELAY 0x0001 -#define AL_ECHO_LRDELAY 0x0002 -#define AL_ECHO_DAMPING 0x0003 -#define AL_ECHO_FEEDBACK 0x0004 -#define AL_ECHO_SPREAD 0x0005 - -/* Flanger effect parameters */ -#define AL_FLANGER_WAVEFORM 0x0001 -#define AL_FLANGER_PHASE 0x0002 -#define AL_FLANGER_RATE 0x0003 -#define AL_FLANGER_DEPTH 0x0004 -#define AL_FLANGER_FEEDBACK 0x0005 -#define AL_FLANGER_DELAY 0x0006 - -/* Frequency shifter effect parameters */ -#define AL_FREQUENCY_SHIFTER_FREQUENCY 0x0001 -#define AL_FREQUENCY_SHIFTER_LEFT_DIRECTION 0x0002 -#define AL_FREQUENCY_SHIFTER_RIGHT_DIRECTION 0x0003 - -/* Vocal morpher effect parameters */ -#define AL_VOCAL_MORPHER_PHONEMEA 0x0001 -#define AL_VOCAL_MORPHER_PHONEMEA_COARSE_TUNING 0x0002 -#define AL_VOCAL_MORPHER_PHONEMEB 0x0003 -#define AL_VOCAL_MORPHER_PHONEMEB_COARSE_TUNING 0x0004 -#define AL_VOCAL_MORPHER_WAVEFORM 0x0005 -#define AL_VOCAL_MORPHER_RATE 0x0006 - -/* Pitchshifter effect parameters */ -#define AL_PITCH_SHIFTER_COARSE_TUNE 0x0001 -#define AL_PITCH_SHIFTER_FINE_TUNE 0x0002 - -/* Ringmodulator effect parameters */ -#define AL_RING_MODULATOR_FREQUENCY 0x0001 -#define AL_RING_MODULATOR_HIGHPASS_CUTOFF 0x0002 -#define AL_RING_MODULATOR_WAVEFORM 0x0003 - -/* Autowah effect parameters */ -#define AL_AUTOWAH_ATTACK_TIME 0x0001 -#define AL_AUTOWAH_RELEASE_TIME 0x0002 -#define AL_AUTOWAH_RESONANCE 0x0003 -#define AL_AUTOWAH_PEAK_GAIN 0x0004 - -/* Compressor effect parameters */ -#define AL_COMPRESSOR_ONOFF 0x0001 - -/* Equalizer effect parameters */ -#define AL_EQUALIZER_LOW_GAIN 0x0001 -#define AL_EQUALIZER_LOW_CUTOFF 0x0002 -#define AL_EQUALIZER_MID1_GAIN 0x0003 -#define AL_EQUALIZER_MID1_CENTER 0x0004 -#define AL_EQUALIZER_MID1_WIDTH 0x0005 -#define AL_EQUALIZER_MID2_GAIN 0x0006 -#define AL_EQUALIZER_MID2_CENTER 0x0007 -#define AL_EQUALIZER_MID2_WIDTH 0x0008 -#define AL_EQUALIZER_HIGH_GAIN 0x0009 -#define AL_EQUALIZER_HIGH_CUTOFF 0x000A - -/* Effect type */ -#define AL_EFFECT_FIRST_PARAMETER 0x0000 -#define AL_EFFECT_LAST_PARAMETER 0x8000 -#define AL_EFFECT_TYPE 0x8001 - -/* Effect types, used with the AL_EFFECT_TYPE property */ -#define AL_EFFECT_NULL 0x0000 -#define AL_EFFECT_REVERB 0x0001 -#define AL_EFFECT_CHORUS 0x0002 -#define AL_EFFECT_DISTORTION 0x0003 -#define AL_EFFECT_ECHO 0x0004 -#define AL_EFFECT_FLANGER 0x0005 -#define AL_EFFECT_FREQUENCY_SHIFTER 0x0006 -#define AL_EFFECT_VOCAL_MORPHER 0x0007 -#define AL_EFFECT_PITCH_SHIFTER 0x0008 -#define AL_EFFECT_RING_MODULATOR 0x0009 -#define AL_EFFECT_AUTOWAH 0x000A -#define AL_EFFECT_COMPRESSOR 0x000B -#define AL_EFFECT_EQUALIZER 0x000C -#define AL_EFFECT_EAXREVERB 0x8000 - -/* Auxiliary Effect Slot properties. */ -#define AL_EFFECTSLOT_EFFECT 0x0001 -#define AL_EFFECTSLOT_GAIN 0x0002 -#define AL_EFFECTSLOT_AUXILIARY_SEND_AUTO 0x0003 - -/* NULL Auxiliary Slot ID to disable a source send. */ -#define AL_EFFECTSLOT_NULL 0x0000 - - -/* Filter properties. */ - -/* Lowpass filter parameters */ -#define AL_LOWPASS_GAIN 0x0001 -#define AL_LOWPASS_GAINHF 0x0002 - -/* Highpass filter parameters */ -#define AL_HIGHPASS_GAIN 0x0001 -#define AL_HIGHPASS_GAINLF 0x0002 - -/* Bandpass filter parameters */ -#define AL_BANDPASS_GAIN 0x0001 -#define AL_BANDPASS_GAINLF 0x0002 -#define AL_BANDPASS_GAINHF 0x0003 - -/* Filter type */ -#define AL_FILTER_FIRST_PARAMETER 0x0000 -#define AL_FILTER_LAST_PARAMETER 0x8000 -#define AL_FILTER_TYPE 0x8001 - -/* Filter types, used with the AL_FILTER_TYPE property */ -#define AL_FILTER_NULL 0x0000 -#define AL_FILTER_LOWPASS 0x0001 -#define AL_FILTER_HIGHPASS 0x0002 -#define AL_FILTER_BANDPASS 0x0003 - - -/* Effect object function types. */ -typedef void (AL_APIENTRY *LPALGENEFFECTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEEFFECTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISEFFECT)(ALuint); -typedef void (AL_APIENTRY *LPALEFFECTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALEFFECTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALEFFECTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTFV)(ALuint, ALenum, ALfloat*); - -/* Filter object function types. */ -typedef void (AL_APIENTRY *LPALGENFILTERS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEFILTERS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISFILTER)(ALuint); -typedef void (AL_APIENTRY *LPALFILTERI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALFILTERF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALFILTERFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERFV)(ALuint, ALenum, ALfloat*); - -/* Auxiliary Effect Slot object function types. */ -typedef void (AL_APIENTRY *LPALGENAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISAUXILIARYEFFECTSLOT)(ALuint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); - -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects); -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects); -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect); -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters); -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters); -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter); -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -#endif - -/* Filter ranges and defaults. */ - -/* Lowpass filter */ -#define LOWPASS_MIN_GAIN (0.0f) -#define LOWPASS_MAX_GAIN (1.0f) -#define LOWPASS_DEFAULT_GAIN (1.0f) - -#define LOWPASS_MIN_GAINHF (0.0f) -#define LOWPASS_MAX_GAINHF (1.0f) -#define LOWPASS_DEFAULT_GAINHF (1.0f) - -/* Highpass filter */ -#define HIGHPASS_MIN_GAIN (0.0f) -#define HIGHPASS_MAX_GAIN (1.0f) -#define HIGHPASS_DEFAULT_GAIN (1.0f) - -#define HIGHPASS_MIN_GAINLF (0.0f) -#define HIGHPASS_MAX_GAINLF (1.0f) -#define HIGHPASS_DEFAULT_GAINLF (1.0f) - -/* Bandpass filter */ -#define BANDPASS_MIN_GAIN (0.0f) -#define BANDPASS_MAX_GAIN (1.0f) -#define BANDPASS_DEFAULT_GAIN (1.0f) - -#define BANDPASS_MIN_GAINHF (0.0f) -#define BANDPASS_MAX_GAINHF (1.0f) -#define BANDPASS_DEFAULT_GAINHF (1.0f) - -#define BANDPASS_MIN_GAINLF (0.0f) -#define BANDPASS_MAX_GAINLF (1.0f) -#define BANDPASS_DEFAULT_GAINLF (1.0f) - - -/* Effect parameter ranges and defaults. */ - -/* Standard reverb effect */ -#define AL_REVERB_MIN_DENSITY (0.0f) -#define AL_REVERB_MAX_DENSITY (1.0f) -#define AL_REVERB_DEFAULT_DENSITY (1.0f) - -#define AL_REVERB_MIN_DIFFUSION (0.0f) -#define AL_REVERB_MAX_DIFFUSION (1.0f) -#define AL_REVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_REVERB_MIN_GAIN (0.0f) -#define AL_REVERB_MAX_GAIN (1.0f) -#define AL_REVERB_DEFAULT_GAIN (0.32f) - -#define AL_REVERB_MIN_GAINHF (0.0f) -#define AL_REVERB_MAX_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_GAINHF (0.89f) - -#define AL_REVERB_MIN_DECAY_TIME (0.1f) -#define AL_REVERB_MAX_DECAY_TIME (20.0f) -#define AL_REVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_REVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_REVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_REVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_REVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_REVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_REVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_REVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_REVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_REVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_REVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_REVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_REVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_REVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_REVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_REVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_REVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_REVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* EAX reverb effect */ -#define AL_EAXREVERB_MIN_DENSITY (0.0f) -#define AL_EAXREVERB_MAX_DENSITY (1.0f) -#define AL_EAXREVERB_DEFAULT_DENSITY (1.0f) - -#define AL_EAXREVERB_MIN_DIFFUSION (0.0f) -#define AL_EAXREVERB_MAX_DIFFUSION (1.0f) -#define AL_EAXREVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_EAXREVERB_MIN_GAIN (0.0f) -#define AL_EAXREVERB_MAX_GAIN (1.0f) -#define AL_EAXREVERB_DEFAULT_GAIN (0.32f) - -#define AL_EAXREVERB_MIN_GAINHF (0.0f) -#define AL_EAXREVERB_MAX_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINHF (0.89f) - -#define AL_EAXREVERB_MIN_GAINLF (0.0f) -#define AL_EAXREVERB_MAX_GAINLF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINLF (1.0f) - -#define AL_EAXREVERB_MIN_DECAY_TIME (0.1f) -#define AL_EAXREVERB_MAX_DECAY_TIME (20.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_EAXREVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_EAXREVERB_MIN_DECAY_LFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_LFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_LFRATIO (1.0f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_ECHO_TIME (0.075f) -#define AL_EAXREVERB_MAX_ECHO_TIME (0.25f) -#define AL_EAXREVERB_DEFAULT_ECHO_TIME (0.25f) - -#define AL_EAXREVERB_MIN_ECHO_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_ECHO_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_ECHO_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_MODULATION_TIME (0.04f) -#define AL_EAXREVERB_MAX_MODULATION_TIME (4.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_TIME (0.25f) - -#define AL_EAXREVERB_MIN_MODULATION_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_MODULATION_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_EAXREVERB_MIN_HFREFERENCE (1000.0f) -#define AL_EAXREVERB_MAX_HFREFERENCE (20000.0f) -#define AL_EAXREVERB_DEFAULT_HFREFERENCE (5000.0f) - -#define AL_EAXREVERB_MIN_LFREFERENCE (20.0f) -#define AL_EAXREVERB_MAX_LFREFERENCE (1000.0f) -#define AL_EAXREVERB_DEFAULT_LFREFERENCE (250.0f) - -#define AL_EAXREVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_EAXREVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_EAXREVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_EAXREVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* Chorus effect */ -#define AL_CHORUS_WAVEFORM_SINUSOID (0) -#define AL_CHORUS_WAVEFORM_TRIANGLE (1) - -#define AL_CHORUS_MIN_WAVEFORM (0) -#define AL_CHORUS_MAX_WAVEFORM (1) -#define AL_CHORUS_DEFAULT_WAVEFORM (1) - -#define AL_CHORUS_MIN_PHASE (-180) -#define AL_CHORUS_MAX_PHASE (180) -#define AL_CHORUS_DEFAULT_PHASE (90) - -#define AL_CHORUS_MIN_RATE (0.0f) -#define AL_CHORUS_MAX_RATE (10.0f) -#define AL_CHORUS_DEFAULT_RATE (1.1f) - -#define AL_CHORUS_MIN_DEPTH (0.0f) -#define AL_CHORUS_MAX_DEPTH (1.0f) -#define AL_CHORUS_DEFAULT_DEPTH (0.1f) - -#define AL_CHORUS_MIN_FEEDBACK (-1.0f) -#define AL_CHORUS_MAX_FEEDBACK (1.0f) -#define AL_CHORUS_DEFAULT_FEEDBACK (0.25f) - -#define AL_CHORUS_MIN_DELAY (0.0f) -#define AL_CHORUS_MAX_DELAY (0.016f) -#define AL_CHORUS_DEFAULT_DELAY (0.016f) - -/* Distortion effect */ -#define AL_DISTORTION_MIN_EDGE (0.0f) -#define AL_DISTORTION_MAX_EDGE (1.0f) -#define AL_DISTORTION_DEFAULT_EDGE (0.2f) - -#define AL_DISTORTION_MIN_GAIN (0.01f) -#define AL_DISTORTION_MAX_GAIN (1.0f) -#define AL_DISTORTION_DEFAULT_GAIN (0.05f) - -#define AL_DISTORTION_MIN_LOWPASS_CUTOFF (80.0f) -#define AL_DISTORTION_MAX_LOWPASS_CUTOFF (24000.0f) -#define AL_DISTORTION_DEFAULT_LOWPASS_CUTOFF (8000.0f) - -#define AL_DISTORTION_MIN_EQCENTER (80.0f) -#define AL_DISTORTION_MAX_EQCENTER (24000.0f) -#define AL_DISTORTION_DEFAULT_EQCENTER (3600.0f) - -#define AL_DISTORTION_MIN_EQBANDWIDTH (80.0f) -#define AL_DISTORTION_MAX_EQBANDWIDTH (24000.0f) -#define AL_DISTORTION_DEFAULT_EQBANDWIDTH (3600.0f) - -/* Echo effect */ -#define AL_ECHO_MIN_DELAY (0.0f) -#define AL_ECHO_MAX_DELAY (0.207f) -#define AL_ECHO_DEFAULT_DELAY (0.1f) - -#define AL_ECHO_MIN_LRDELAY (0.0f) -#define AL_ECHO_MAX_LRDELAY (0.404f) -#define AL_ECHO_DEFAULT_LRDELAY (0.1f) - -#define AL_ECHO_MIN_DAMPING (0.0f) -#define AL_ECHO_MAX_DAMPING (0.99f) -#define AL_ECHO_DEFAULT_DAMPING (0.5f) - -#define AL_ECHO_MIN_FEEDBACK (0.0f) -#define AL_ECHO_MAX_FEEDBACK (1.0f) -#define AL_ECHO_DEFAULT_FEEDBACK (0.5f) - -#define AL_ECHO_MIN_SPREAD (-1.0f) -#define AL_ECHO_MAX_SPREAD (1.0f) -#define AL_ECHO_DEFAULT_SPREAD (-1.0f) - -/* Flanger effect */ -#define AL_FLANGER_WAVEFORM_SINUSOID (0) -#define AL_FLANGER_WAVEFORM_TRIANGLE (1) - -#define AL_FLANGER_MIN_WAVEFORM (0) -#define AL_FLANGER_MAX_WAVEFORM (1) -#define AL_FLANGER_DEFAULT_WAVEFORM (1) - -#define AL_FLANGER_MIN_PHASE (-180) -#define AL_FLANGER_MAX_PHASE (180) -#define AL_FLANGER_DEFAULT_PHASE (0) - -#define AL_FLANGER_MIN_RATE (0.0f) -#define AL_FLANGER_MAX_RATE (10.0f) -#define AL_FLANGER_DEFAULT_RATE (0.27f) - -#define AL_FLANGER_MIN_DEPTH (0.0f) -#define AL_FLANGER_MAX_DEPTH (1.0f) -#define AL_FLANGER_DEFAULT_DEPTH (1.0f) - -#define AL_FLANGER_MIN_FEEDBACK (-1.0f) -#define AL_FLANGER_MAX_FEEDBACK (1.0f) -#define AL_FLANGER_DEFAULT_FEEDBACK (-0.5f) - -#define AL_FLANGER_MIN_DELAY (0.0f) -#define AL_FLANGER_MAX_DELAY (0.004f) -#define AL_FLANGER_DEFAULT_DELAY (0.002f) - -/* Frequency shifter effect */ -#define AL_FREQUENCY_SHIFTER_MIN_FREQUENCY (0.0f) -#define AL_FREQUENCY_SHIFTER_MAX_FREQUENCY (24000.0f) -#define AL_FREQUENCY_SHIFTER_DEFAULT_FREQUENCY (0.0f) - -#define AL_FREQUENCY_SHIFTER_MIN_LEFT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_LEFT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_LEFT_DIRECTION (0) - -#define AL_FREQUENCY_SHIFTER_DIRECTION_DOWN (0) -#define AL_FREQUENCY_SHIFTER_DIRECTION_UP (1) -#define AL_FREQUENCY_SHIFTER_DIRECTION_OFF (2) - -#define AL_FREQUENCY_SHIFTER_MIN_RIGHT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_RIGHT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_RIGHT_DIRECTION (0) - -/* Vocal morpher effect */ -#define AL_VOCAL_MORPHER_MIN_PHONEMEA (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEA_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB (10) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_PHONEME_A (0) -#define AL_VOCAL_MORPHER_PHONEME_E (1) -#define AL_VOCAL_MORPHER_PHONEME_I (2) -#define AL_VOCAL_MORPHER_PHONEME_O (3) -#define AL_VOCAL_MORPHER_PHONEME_U (4) -#define AL_VOCAL_MORPHER_PHONEME_AA (5) -#define AL_VOCAL_MORPHER_PHONEME_AE (6) -#define AL_VOCAL_MORPHER_PHONEME_AH (7) -#define AL_VOCAL_MORPHER_PHONEME_AO (8) -#define AL_VOCAL_MORPHER_PHONEME_EH (9) -#define AL_VOCAL_MORPHER_PHONEME_ER (10) -#define AL_VOCAL_MORPHER_PHONEME_IH (11) -#define AL_VOCAL_MORPHER_PHONEME_IY (12) -#define AL_VOCAL_MORPHER_PHONEME_UH (13) -#define AL_VOCAL_MORPHER_PHONEME_UW (14) -#define AL_VOCAL_MORPHER_PHONEME_B (15) -#define AL_VOCAL_MORPHER_PHONEME_D (16) -#define AL_VOCAL_MORPHER_PHONEME_F (17) -#define AL_VOCAL_MORPHER_PHONEME_G (18) -#define AL_VOCAL_MORPHER_PHONEME_J (19) -#define AL_VOCAL_MORPHER_PHONEME_K (20) -#define AL_VOCAL_MORPHER_PHONEME_L (21) -#define AL_VOCAL_MORPHER_PHONEME_M (22) -#define AL_VOCAL_MORPHER_PHONEME_N (23) -#define AL_VOCAL_MORPHER_PHONEME_P (24) -#define AL_VOCAL_MORPHER_PHONEME_R (25) -#define AL_VOCAL_MORPHER_PHONEME_S (26) -#define AL_VOCAL_MORPHER_PHONEME_T (27) -#define AL_VOCAL_MORPHER_PHONEME_V (28) -#define AL_VOCAL_MORPHER_PHONEME_Z (29) - -#define AL_VOCAL_MORPHER_WAVEFORM_SINUSOID (0) -#define AL_VOCAL_MORPHER_WAVEFORM_TRIANGLE (1) -#define AL_VOCAL_MORPHER_WAVEFORM_SAWTOOTH (2) - -#define AL_VOCAL_MORPHER_MIN_WAVEFORM (0) -#define AL_VOCAL_MORPHER_MAX_WAVEFORM (2) -#define AL_VOCAL_MORPHER_DEFAULT_WAVEFORM (0) - -#define AL_VOCAL_MORPHER_MIN_RATE (0.0f) -#define AL_VOCAL_MORPHER_MAX_RATE (10.0f) -#define AL_VOCAL_MORPHER_DEFAULT_RATE (1.41f) - -/* Pitch shifter effect */ -#define AL_PITCH_SHIFTER_MIN_COARSE_TUNE (-12) -#define AL_PITCH_SHIFTER_MAX_COARSE_TUNE (12) -#define AL_PITCH_SHIFTER_DEFAULT_COARSE_TUNE (12) - -#define AL_PITCH_SHIFTER_MIN_FINE_TUNE (-50) -#define AL_PITCH_SHIFTER_MAX_FINE_TUNE (50) -#define AL_PITCH_SHIFTER_DEFAULT_FINE_TUNE (0) - -/* Ring modulator effect */ -#define AL_RING_MODULATOR_MIN_FREQUENCY (0.0f) -#define AL_RING_MODULATOR_MAX_FREQUENCY (8000.0f) -#define AL_RING_MODULATOR_DEFAULT_FREQUENCY (440.0f) - -#define AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF (0.0f) -#define AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF (24000.0f) -#define AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF (800.0f) - -#define AL_RING_MODULATOR_SINUSOID (0) -#define AL_RING_MODULATOR_SAWTOOTH (1) -#define AL_RING_MODULATOR_SQUARE (2) - -#define AL_RING_MODULATOR_MIN_WAVEFORM (0) -#define AL_RING_MODULATOR_MAX_WAVEFORM (2) -#define AL_RING_MODULATOR_DEFAULT_WAVEFORM (0) - -/* Autowah effect */ -#define AL_AUTOWAH_MIN_ATTACK_TIME (0.0001f) -#define AL_AUTOWAH_MAX_ATTACK_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_ATTACK_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RELEASE_TIME (0.0001f) -#define AL_AUTOWAH_MAX_RELEASE_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_RELEASE_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RESONANCE (2.0f) -#define AL_AUTOWAH_MAX_RESONANCE (1000.0f) -#define AL_AUTOWAH_DEFAULT_RESONANCE (1000.0f) - -#define AL_AUTOWAH_MIN_PEAK_GAIN (0.00003f) -#define AL_AUTOWAH_MAX_PEAK_GAIN (31621.0f) -#define AL_AUTOWAH_DEFAULT_PEAK_GAIN (11.22f) - -/* Compressor effect */ -#define AL_COMPRESSOR_MIN_ONOFF (0) -#define AL_COMPRESSOR_MAX_ONOFF (1) -#define AL_COMPRESSOR_DEFAULT_ONOFF (1) - -/* Equalizer effect */ -#define AL_EQUALIZER_MIN_LOW_GAIN (0.126f) -#define AL_EQUALIZER_MAX_LOW_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_LOW_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_LOW_CUTOFF (50.0f) -#define AL_EQUALIZER_MAX_LOW_CUTOFF (800.0f) -#define AL_EQUALIZER_DEFAULT_LOW_CUTOFF (200.0f) - -#define AL_EQUALIZER_MIN_MID1_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID1_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID1_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID1_CENTER (200.0f) -#define AL_EQUALIZER_MAX_MID1_CENTER (3000.0f) -#define AL_EQUALIZER_DEFAULT_MID1_CENTER (500.0f) - -#define AL_EQUALIZER_MIN_MID1_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID1_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID1_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_MID2_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID2_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID2_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID2_CENTER (1000.0f) -#define AL_EQUALIZER_MAX_MID2_CENTER (8000.0f) -#define AL_EQUALIZER_DEFAULT_MID2_CENTER (3000.0f) - -#define AL_EQUALIZER_MIN_MID2_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID2_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID2_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_GAIN (0.126f) -#define AL_EQUALIZER_MAX_HIGH_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_HIGH_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_CUTOFF (4000.0f) -#define AL_EQUALIZER_MAX_HIGH_CUTOFF (16000.0f) -#define AL_EQUALIZER_DEFAULT_HIGH_CUTOFF (6000.0f) - - -/* Source parameter value ranges and defaults. */ -#define AL_MIN_AIR_ABSORPTION_FACTOR (0.0f) -#define AL_MAX_AIR_ABSORPTION_FACTOR (10.0f) -#define AL_DEFAULT_AIR_ABSORPTION_FACTOR (0.0f) - -#define AL_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_MIN_CONE_OUTER_GAINHF (0.0f) -#define AL_MAX_CONE_OUTER_GAINHF (1.0f) -#define AL_DEFAULT_CONE_OUTER_GAINHF (1.0f) - -#define AL_MIN_DIRECT_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_DIRECT_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_DIRECT_FILTER_GAINHF_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE - - -/* Listener parameter value ranges and defaults. */ -#define AL_MIN_METERS_PER_UNIT FLT_MIN -#define AL_MAX_METERS_PER_UNIT FLT_MAX -#define AL_DEFAULT_METERS_PER_UNIT (1.0f) - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* AL_EFX_H */ diff --git a/internal/c/parts/audio/out/android/OpenAL/include/AL/oalMacOSX_OALExtensions.h b/internal/c/parts/audio/out/android/OpenAL/include/AL/oalMacOSX_OALExtensions.h deleted file mode 100644 index c3db30546..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/include/AL/oalMacOSX_OALExtensions.h +++ /dev/null @@ -1,161 +0,0 @@ -/********************************************************************************************************************************** -* -* OpenAL cross platform audio library -* Copyright (c) 2004-2006, Apple Computer, Inc. All rights reserved. -* Copyright (c) 2007-2008, Apple Inc. All rights reserved. -* -* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -* conditions are met: -* -* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. -* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -* disclaimer in the documentation and/or other materials provided with the distribution. -* 3. Neither the name of Apple Inc. ("Apple") nor the names of its contributors may be used to endorse or promote products derived -* from this software without specific prior written permission. -* -* THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS -* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED -* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -* -**********************************************************************************************************************************/ - -#ifndef __OAL_MAC_OSX_OAL_EXTENSIONS_H__ -#define __OAL_MAC_OSX_OAL_EXTENSIONS_H__ - -#include - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_MAC_OSX - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -// Retrieve functions via alGetProcAddress() by passing in strings: alcMacOSXMixerOutputRate or alcMacOSXGetMixerOutputRate - -// Setting the Mixer Output Rate effectively sets the samnple rate at which the mixer -typedef ALvoid (*alcMacOSXRenderingQualityProcPtr) (ALint value); -typedef ALvoid (*alMacOSXRenderChannelCountProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerMaxiumumBussesProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerOutputRateProcPtr) (ALdouble value); - -typedef ALint (*alcMacOSXGetRenderingQualityProcPtr) (); -typedef ALint (*alMacOSXGetRenderChannelCountProcPtr) (); -typedef ALint (*alcMacOSXGetMixerMaxiumumBussesProcPtr) (); -typedef ALdouble (*alcMacOSXGetMixerOutputRateProcPtr) (); - -/* Render Quality. Used with alcMacOSXRenderingQuality() */ - - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_HIGH 'rqhi' - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_LOW 'rdlo' - - // High Quality Spatial Algorithm suitable only for headphone use - #define ALC_IPHONE_SPATIAL_RENDERING_QUALITY_HEADPHONES 'hdph' - -/* - Render Channels. Used with alMacOSXRenderChannelCount() - Allows a user to force OpenAL to render to stereo, regardless of the audio hardware being used -*/ - #define ALC_MAC_OSX_RENDER_CHANNEL_COUNT_STEREO 'rcst' - -/* GameKit extension */ - - #define AL_GAMEKIT 'gksr' - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AL_EXT_SOURCE_NOTIFICATIONS - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Source Notifications - - Eliminates the need for continuous polling for source state by providing a - mechanism for the application to receive source state change notifications. - Upon receiving a notification, the application can retrieve the actual state - corresponding to the notification ID for which the notification was sent. - */ - -#define AL_QUEUE_HAS_LOOPED 0x9000 - -/* - Notification Proc: ALSourceNotificationProc - - sid - source id - notificationID - id of state that has changed - userData - user data provided to alSourceAddNotification() - */ - -typedef ALvoid (*alSourceNotificationProc)(ALuint sid, ALuint notificationID, ALvoid* userData); - -/* - API: alSourceAddNotification - - sid - source id - notificationID - id of state for which caller wants to be notified of a change - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - - Returns AL_NO_ERROR if request is successful. - - Valid IDs: - AL_SOURCE_STATE - AL_BUFFERS_PROCESSED - AL_QUEUE_HAS_LOOPED - notification sent when a looping source has looped to it's start point - */ -typedef ALenum (*alSourceAddNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* - API: alSourceRemoveStateNotification - - sid - source id - notificationID - id of state for which caller wants to remove an existing notification - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - */ -typedef ALvoid (*alSourceRemoveNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_ASA : Apple Spatial Audio Extension - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Used with the ASA API calls: alcASAGetSource(), alcASASetSource(), alcASAGetListener(), alcASASetListener() -*/ - -typedef ALenum (*alcASAGetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint dataSize); -typedef ALenum (*alcASAGetListenerProcPtr) (ALuint property, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetListenerProcPtr) (ALuint property, ALvoid *data, ALuint dataSize); - - /* listener properties */ - #define ALC_ASA_REVERB_ON 'rvon' // type ALuint - #define ALC_ASA_REVERB_GLOBAL_LEVEL 'rvgl' // type ALfloat -40.0 db - 40.0 db - - #define ALC_ASA_REVERB_ROOM_TYPE 'rvrt' // type ALint - - /* reverb room type presets for the ALC_ASA_REVERB_ROOM_TYPE property */ - #define ALC_ASA_REVERB_ROOM_TYPE_SmallRoom 0 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumRoom 1 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom 2 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall 3 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall 4 - #define ALC_ASA_REVERB_ROOM_TYPE_Plate 5 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumChamber 6 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeChamber 7 - #define ALC_ASA_REVERB_ROOM_TYPE_Cathedral 8 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom2 9 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall2 10 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall3 11 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall2 12 - - #define ALC_ASA_REVERB_EQ_GAIN 'rveg' // type ALfloat - #define ALC_ASA_REVERB_EQ_BANDWITH 'rveb' // type ALfloat - #define ALC_ASA_REVERB_EQ_FREQ 'rvef' // type ALfloat - - /* source properties */ - #define ALC_ASA_REVERB_SEND_LEVEL 'rvsl' // type ALfloat 0.0 (dry) - 1.0 (wet) (0-100% dry/wet mix, 0.0 default) - #define ALC_ASA_OCCLUSION 'occl' // type ALfloat -100.0 db (most occlusion) - 0.0 db (no occlusion, 0.0 default) - #define ALC_ASA_OBSTRUCTION 'obst' // type ALfloat -100.0 db (most obstruction) - 0.0 db (no obstruction, 0.0 default) - -#endif // __OAL_MAC_OSX_OAL_EXTENSIONS_H__ diff --git a/internal/c/parts/audio/out/android/OpenAL/include/config.h b/internal/c/parts/audio/out/android/OpenAL/include/config.h deleted file mode 100644 index 7016963e1..000000000 --- a/internal/c/parts/audio/out/android/OpenAL/include/config.h +++ /dev/null @@ -1,125 +0,0 @@ -#ifndef CONFIG_H -#define CONFIG_H - -/* Define to the library version */ -#define ALSOFT_VERSION "1.12.854" - -#define AL_BUILD_LIBRARY - -/* Define if we have the Android backend */ -#if defined(ANDROID) - -// Stereo only on Android back-ends -#define MAXCHANNELS 3 -#define STEREO_ONLY 1 - -#if defined(POST_FROYO) -#define HAVE_OPENSLES 1 -#endif - -#define HAVE_AUDIOTRACK 1 - -// For throttling AlSource.c - -#ifndef MAX_SOURCES_LOW -#define MAX_SOURCES_LOW 4 -#endif -#ifndef MAX_SOURCES_START -#define MAX_SOURCES_START 8 -#endif -#ifndef MAX_SOURCES_HIGH -#define MAX_SOURCES_HIGH 64 -#endif -#endif - -/* Define if we have the ALSA backend */ -/* #cmakedefine HAVE_ALSA */ - -/* Define if we have the OSS backend */ -/* #cmakedefine HAVE_OSS */ - -/* Define if we have the Solaris backend */ -/* #cmakedefine HAVE_SOLARIS */ - -/* Define if we have the DSound backend */ -/* #cmakedefine HAVE_DSOUND */ - -/* Define if we have the Wave Writer backend */ -/* #cmakedefine HAVE_WAVE */ - -/* Define if we have the Windows Multimedia backend */ -/* #cmakedefine HAVE_WINMM */ - -/* Define if we have the PortAudio backend */ -/* #cmakedefine HAVE_PORTAUDIO */ - -/* Define if we have the PulseAudio backend */ -/* #cmakedefine HAVE_PULSEAUDIO */ - -/* Define if we have dlfcn.h */ -#define HAVE_DLFCN_H 1 - -/* Define if we have the stat function */ -#define HAVE_STAT 1 - -/* Define if we have the powf function */ -#define HAVE_POWF 1 - -/* Define if we have the sqrtf function */ -#define HAVE_SQRTF 1 - -/* Define if we have the acosf function */ -#define HAVE_ACOSF 1 - -/* Define if we have the atanf function */ -#define HAVE_ATANF 1 - -/* Define if we have the fabsf function */ -#define HAVE_FABSF 1 - -/* Define if we have the strtof function */ -#define HAVE_STRTOF 1 - -/* Define if we have stdint.h */ -#define HAVE_STDINT_H 1 - -/* Define if we have the __int64 type */ -/* #cmakedefine HAVE___INT64 */ - -/* Define to the size of a long int type */ -#define SIZEOF_LONG 4 - -/* Define to the size of a long long int type */ -#define SIZEOF_LONG_LONG 8 - -/* Define to the size of an unsigned int type */ -#define SIZEOF_UINT 4 - -/* Define to the size of a void pointer type */ -#define SIZEOF_VOIDP 4 - -/* Define if we have GCC's destructor attribute */ -#define HAVE_GCC_DESTRUCTOR 1 - -/* Define if we have GCC's format attribute */ -#define HAVE_GCC_FORMAT 1 - -/* Define if we have pthread_np.h */ -/* #cmakedefine HAVE_PTHREAD_NP_H */ - -/* Define if we have float.h */ -/* #cmakedefine HAVE_FLOAT_H */ - -/* Define if we have fenv.h */ -#define HAVE_FENV_H 1 - -/* Define if we have fesetround() */ -/* #cmakedefine HAVE_FESETROUND */ - -/* Define if we have _controlfp() */ -/* #cmakedefine HAVE__CONTROLFP */ - -/* Define if we have pthread_setschedparam() */ -#define HAVE_PTHREAD_SETSCHEDPARAM 1 - -#endif diff --git a/internal/c/parts/audio/out/android/other/AL/al.h b/internal/c/parts/audio/out/android/other/AL/al.h deleted file mode 100644 index e084b3ed3..000000000 --- a/internal/c/parts/audio/out/android/other/AL/al.h +++ /dev/null @@ -1,825 +0,0 @@ -#ifndef AL_AL_H -#define AL_AL_H - -#ifdef ANDROID -#include -#ifndef LOGI -#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,"OpenAL",__VA_ARGS__) -#endif -#ifndef LOGE -#define LOGE(...) __android_log_print(ANDROID_LOG_ERROR,"OpenAL",__VA_ARGS__) -#endif -#endif - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define AL_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define AL_API __declspec(dllexport) - #else - #define AL_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define AL_API __attribute__((visibility("protected"))) - #else - #define AL_API extern - #endif -#endif - -#if defined(_WIN32) - #define AL_APIENTRY __cdecl -#else - #define AL_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The OPENAL, ALAPI, ALAPIENTRY, AL_INVALID, AL_ILLEGAL_ENUM, and - * AL_ILLEGAL_COMMAND macros are deprecated, but are included for - * applications porting code from AL 1.0 - */ -#define OPENAL -#define ALAPI AL_API -#define ALAPIENTRY AL_APIENTRY -#define AL_INVALID (-1) -#define AL_ILLEGAL_ENUM AL_INVALID_ENUM -#define AL_ILLEGAL_COMMAND AL_INVALID_OPERATION - -#define AL_VERSION_1_0 -#define AL_VERSION_1_1 - - -/** 8-bit boolean */ -typedef char ALboolean; - -/** character */ -typedef char ALchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALsizei; - -/** enumerated 32-bit value */ -typedef int ALenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALdouble; - -#ifdef OPENAL_FIXED_POINT -/* Apportable tries to define int64_t and int32_t if it thinks it is needed. - * But this is breaking in a complex project involving both pure C and C++ - * something is triggering redefinition errors. The workaround seems to be just using stdint.h. - */ -#include -/** Types and Macros for fixed-point math */ -#ifndef INT64_MAX -typedef long long int64_t; -#define INT64_MAX 9223372036854775807LL - -#endif -#ifndef INT32_MAX -typedef int int32_t; -#define INT32_MAX 2147483647 -#endif - -// FIXME(apportable) make this int32_t -typedef int64_t ALfp; -typedef int64_t ALdfp; - -#define ONE (1<=0 ? 0.5 : -0.5))) -#define ALfp2float(x) ((float)(x) / (1<=0 ? 0.5 : -0.5))) -#define ALdfp2double(x) ((double)(x) / (1<> OPENAL_FIXED_POINT_SHIFT)) - -#define int2ALdfp(x) ((ALdfp)(x) << OPENAL_FIXED_POINT_SHIFT) -#define ALdfp2int(x) ((ALint)((x) >> OPENAL_FIXED_POINT_SHIFT)) - -#define ALfpMult(x,y) ((ALfp)((((int64_t)(x))*((int64_t)(y)))>>OPENAL_FIXED_POINT_SHIFT)) -#define ALfpDiv(x,y) ((ALfp)(((int64_t)(x) << OPENAL_FIXED_POINT_SHIFT) / (y))) - -#define ALdfpMult(x,y) ALfpMult(x,y) -#define ALdfpDiv(x,y) ALfpDiv(x,y) - -#define __isnan(x) (0) -#define __cos(x) (float2ALfp(cos(ALfp2float(x)))) -#define __sin(x) (float2ALfp(sin(ALfp2float(x)))) -#define __log10(x) (float2ALfp(log10(ALfp2float(x)))) -#define __atan(x) (float2ALfp(atan(ALfp2float(x)))) - -#define toALfpConst(x) ((x)*(1< Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(ANDROID) -/* - * OpenAL extension for suspend/resume of audio throughout application lifecycle - */ -ALC_API void ALC_APIENTRY alcSuspend( void ); -ALC_API void ALC_APIENTRY alcResume( void ); -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/other/AL/alext.h b/internal/c/parts/audio/out/android/other/AL/alext.h deleted file mode 100644 index f3c7bcae8..000000000 --- a/internal/c/parts/audio/out/android/other/AL/alext.h +++ /dev/null @@ -1,165 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2008 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifndef AL_ALEXT_H -#define AL_ALEXT_H - -#include - -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef AL_LOKI_IMA_ADPCM_format -#define AL_LOKI_IMA_ADPCM_format 1 -#define AL_FORMAT_IMA_ADPCM_MONO16_EXT 0x10000 -#define AL_FORMAT_IMA_ADPCM_STEREO16_EXT 0x10001 -#endif - -#ifndef AL_LOKI_WAVE_format -#define AL_LOKI_WAVE_format 1 -#define AL_FORMAT_WAVE_EXT 0x10002 -#endif - -#ifndef AL_EXT_vorbis -#define AL_EXT_vorbis 1 -#define AL_FORMAT_VORBIS_EXT 0x10003 -#endif - -#ifndef AL_LOKI_quadriphonic -#define AL_LOKI_quadriphonic 1 -#define AL_FORMAT_QUAD8_LOKI 0x10004 -#define AL_FORMAT_QUAD16_LOKI 0x10005 -#endif - -#ifndef AL_EXT_float32 -#define AL_EXT_float32 1 -#define AL_FORMAT_MONO_FLOAT32 0x10010 -#define AL_FORMAT_STEREO_FLOAT32 0x10011 -#endif - -#ifndef AL_EXT_double -#define AL_EXT_double 1 -#define AL_FORMAT_MONO_DOUBLE_EXT 0x10012 -#define AL_FORMAT_STEREO_DOUBLE_EXT 0x10013 -#endif - -#ifndef ALC_LOKI_audio_channel -#define ALC_LOKI_audio_channel 1 -#define ALC_CHAN_MAIN_LOKI 0x500001 -#define ALC_CHAN_PCM_LOKI 0x500002 -#define ALC_CHAN_CD_LOKI 0x500003 -#endif - -#ifndef ALC_ENUMERATE_ALL_EXT -#define ALC_ENUMERATE_ALL_EXT 1 -#define ALC_DEFAULT_ALL_DEVICES_SPECIFIER 0x1012 -#define ALC_ALL_DEVICES_SPECIFIER 0x1013 -#endif - -#ifndef AL_EXT_MCFORMATS -#define AL_EXT_MCFORMATS 1 -#define AL_FORMAT_QUAD8 0x1204 -#define AL_FORMAT_QUAD16 0x1205 -#define AL_FORMAT_QUAD32 0x1206 -#define AL_FORMAT_REAR8 0x1207 -#define AL_FORMAT_REAR16 0x1208 -#define AL_FORMAT_REAR32 0x1209 -#define AL_FORMAT_51CHN8 0x120A -#define AL_FORMAT_51CHN16 0x120B -#define AL_FORMAT_51CHN32 0x120C -#define AL_FORMAT_61CHN8 0x120D -#define AL_FORMAT_61CHN16 0x120E -#define AL_FORMAT_61CHN32 0x120F -#define AL_FORMAT_71CHN8 0x1210 -#define AL_FORMAT_71CHN16 0x1211 -#define AL_FORMAT_71CHN32 0x1212 -#endif - -#ifndef AL_EXT_MULAW_MCFORMATS -#define AL_EXT_MULAW_MCFORMATS 1 -#define AL_FORMAT_MONO_MULAW 0x10014 -#define AL_FORMAT_STEREO_MULAW 0x10015 -#define AL_FORMAT_QUAD_MULAW 0x10021 -#define AL_FORMAT_REAR_MULAW 0x10022 -#define AL_FORMAT_51CHN_MULAW 0x10023 -#define AL_FORMAT_61CHN_MULAW 0x10024 -#define AL_FORMAT_71CHN_MULAW 0x10025 -#endif - -#ifndef AL_EXT_IMA4 -#define AL_EXT_IMA4 1 -#define AL_FORMAT_MONO_IMA4 0x1300 -#define AL_FORMAT_STEREO_IMA4 0x1301 -#endif - -#ifndef AL_EXT_STATIC_BUFFER -#define AL_EXT_STATIC_BUFFER 1 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERDATASTATICPROC)(const ALint,ALenum,ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferDataStatic(const ALint buffer, ALenum format, ALvoid *data, ALsizei len, ALsizei freq); -#endif -#endif - -#ifndef ALC_EXT_EFX -#define ALC_EXT_EFX 1 -#include "efx.h" -#endif - -#ifndef ALC_EXT_disconnect -#define ALC_EXT_disconnect 1 -#define ALC_CONNECTED 0x313 -#endif - -#ifndef ALC_EXT_thread_local_context -#define ALC_EXT_thread_local_context 1 -typedef ALCboolean (ALC_APIENTRY*PFNALCSETTHREADCONTEXTPROC)(ALCcontext *context); -typedef ALCcontext* (ALC_APIENTRY*PFNALCGETTHREADCONTEXTPROC)(void); -#ifdef AL_ALEXT_PROTOTYPES -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context); -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void); -#endif -#endif - -#ifndef AL_EXT_source_distance_model -#define AL_EXT_source_distance_model 1 -#define AL_SOURCE_DISTANCE_MODEL 0x200 -#endif - -#ifndef AL_SOFT_buffer_sub_data -#define AL_SOFT_buffer_sub_data 1 -#define AL_BYTE_RW_OFFSETS_SOFT 0x1031 -#define AL_SAMPLE_RW_OFFSETS_SOFT 0x1032 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERSUBDATASOFTPROC)(ALuint,ALenum,const ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length); -#endif -#endif - -#ifndef AL_SOFT_loop_points -#define AL_SOFT_loop_points 1 -#define AL_LOOP_POINTS_SOFT 0x2015 -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/AL/efx-creative.h b/internal/c/parts/audio/out/android/other/AL/efx-creative.h deleted file mode 100644 index 0a04c982e..000000000 --- a/internal/c/parts/audio/out/android/other/AL/efx-creative.h +++ /dev/null @@ -1,3 +0,0 @@ -/* The tokens that would be defined here are already defined in efx.h. This - * empty file is here to provide compatibility with Windows-based projects - * that would include it. */ diff --git a/internal/c/parts/audio/out/android/other/AL/efx.h b/internal/c/parts/audio/out/android/other/AL/efx.h deleted file mode 100644 index 0ccef95d6..000000000 --- a/internal/c/parts/audio/out/android/other/AL/efx.h +++ /dev/null @@ -1,758 +0,0 @@ -#ifndef AL_EFX_H -#define AL_EFX_H - - -#ifdef __cplusplus -extern "C" { -#endif - -#define ALC_EXT_EFX_NAME "ALC_EXT_EFX" - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - - -/* Listener properties. */ -#define AL_METERS_PER_UNIT 0x20004 - -/* Source properties. */ -#define AL_DIRECT_FILTER 0x20005 -#define AL_AUXILIARY_SEND_FILTER 0x20006 -#define AL_AIR_ABSORPTION_FACTOR 0x20007 -#define AL_ROOM_ROLLOFF_FACTOR 0x20008 -#define AL_CONE_OUTER_GAINHF 0x20009 -#define AL_DIRECT_FILTER_GAINHF_AUTO 0x2000A -#define AL_AUXILIARY_SEND_FILTER_GAIN_AUTO 0x2000B -#define AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO 0x2000C - - -/* Effect properties. */ - -/* Reverb effect parameters */ -#define AL_REVERB_DENSITY 0x0001 -#define AL_REVERB_DIFFUSION 0x0002 -#define AL_REVERB_GAIN 0x0003 -#define AL_REVERB_GAINHF 0x0004 -#define AL_REVERB_DECAY_TIME 0x0005 -#define AL_REVERB_DECAY_HFRATIO 0x0006 -#define AL_REVERB_REFLECTIONS_GAIN 0x0007 -#define AL_REVERB_REFLECTIONS_DELAY 0x0008 -#define AL_REVERB_LATE_REVERB_GAIN 0x0009 -#define AL_REVERB_LATE_REVERB_DELAY 0x000A -#define AL_REVERB_AIR_ABSORPTION_GAINHF 0x000B -#define AL_REVERB_ROOM_ROLLOFF_FACTOR 0x000C -#define AL_REVERB_DECAY_HFLIMIT 0x000D - -/* EAX Reverb effect parameters */ -#define AL_EAXREVERB_DENSITY 0x0001 -#define AL_EAXREVERB_DIFFUSION 0x0002 -#define AL_EAXREVERB_GAIN 0x0003 -#define AL_EAXREVERB_GAINHF 0x0004 -#define AL_EAXREVERB_GAINLF 0x0005 -#define AL_EAXREVERB_DECAY_TIME 0x0006 -#define AL_EAXREVERB_DECAY_HFRATIO 0x0007 -#define AL_EAXREVERB_DECAY_LFRATIO 0x0008 -#define AL_EAXREVERB_REFLECTIONS_GAIN 0x0009 -#define AL_EAXREVERB_REFLECTIONS_DELAY 0x000A -#define AL_EAXREVERB_REFLECTIONS_PAN 0x000B -#define AL_EAXREVERB_LATE_REVERB_GAIN 0x000C -#define AL_EAXREVERB_LATE_REVERB_DELAY 0x000D -#define AL_EAXREVERB_LATE_REVERB_PAN 0x000E -#define AL_EAXREVERB_ECHO_TIME 0x000F -#define AL_EAXREVERB_ECHO_DEPTH 0x0010 -#define AL_EAXREVERB_MODULATION_TIME 0x0011 -#define AL_EAXREVERB_MODULATION_DEPTH 0x0012 -#define AL_EAXREVERB_AIR_ABSORPTION_GAINHF 0x0013 -#define AL_EAXREVERB_HFREFERENCE 0x0014 -#define AL_EAXREVERB_LFREFERENCE 0x0015 -#define AL_EAXREVERB_ROOM_ROLLOFF_FACTOR 0x0016 -#define AL_EAXREVERB_DECAY_HFLIMIT 0x0017 - -/* Chorus effect parameters */ -#define AL_CHORUS_WAVEFORM 0x0001 -#define AL_CHORUS_PHASE 0x0002 -#define AL_CHORUS_RATE 0x0003 -#define AL_CHORUS_DEPTH 0x0004 -#define AL_CHORUS_FEEDBACK 0x0005 -#define AL_CHORUS_DELAY 0x0006 - -/* Distortion effect parameters */ -#define AL_DISTORTION_EDGE 0x0001 -#define AL_DISTORTION_GAIN 0x0002 -#define AL_DISTORTION_LOWPASS_CUTOFF 0x0003 -#define AL_DISTORTION_EQCENTER 0x0004 -#define AL_DISTORTION_EQBANDWIDTH 0x0005 - -/* Echo effect parameters */ -#define AL_ECHO_DELAY 0x0001 -#define AL_ECHO_LRDELAY 0x0002 -#define AL_ECHO_DAMPING 0x0003 -#define AL_ECHO_FEEDBACK 0x0004 -#define AL_ECHO_SPREAD 0x0005 - -/* Flanger effect parameters */ -#define AL_FLANGER_WAVEFORM 0x0001 -#define AL_FLANGER_PHASE 0x0002 -#define AL_FLANGER_RATE 0x0003 -#define AL_FLANGER_DEPTH 0x0004 -#define AL_FLANGER_FEEDBACK 0x0005 -#define AL_FLANGER_DELAY 0x0006 - -/* Frequency shifter effect parameters */ -#define AL_FREQUENCY_SHIFTER_FREQUENCY 0x0001 -#define AL_FREQUENCY_SHIFTER_LEFT_DIRECTION 0x0002 -#define AL_FREQUENCY_SHIFTER_RIGHT_DIRECTION 0x0003 - -/* Vocal morpher effect parameters */ -#define AL_VOCAL_MORPHER_PHONEMEA 0x0001 -#define AL_VOCAL_MORPHER_PHONEMEA_COARSE_TUNING 0x0002 -#define AL_VOCAL_MORPHER_PHONEMEB 0x0003 -#define AL_VOCAL_MORPHER_PHONEMEB_COARSE_TUNING 0x0004 -#define AL_VOCAL_MORPHER_WAVEFORM 0x0005 -#define AL_VOCAL_MORPHER_RATE 0x0006 - -/* Pitchshifter effect parameters */ -#define AL_PITCH_SHIFTER_COARSE_TUNE 0x0001 -#define AL_PITCH_SHIFTER_FINE_TUNE 0x0002 - -/* Ringmodulator effect parameters */ -#define AL_RING_MODULATOR_FREQUENCY 0x0001 -#define AL_RING_MODULATOR_HIGHPASS_CUTOFF 0x0002 -#define AL_RING_MODULATOR_WAVEFORM 0x0003 - -/* Autowah effect parameters */ -#define AL_AUTOWAH_ATTACK_TIME 0x0001 -#define AL_AUTOWAH_RELEASE_TIME 0x0002 -#define AL_AUTOWAH_RESONANCE 0x0003 -#define AL_AUTOWAH_PEAK_GAIN 0x0004 - -/* Compressor effect parameters */ -#define AL_COMPRESSOR_ONOFF 0x0001 - -/* Equalizer effect parameters */ -#define AL_EQUALIZER_LOW_GAIN 0x0001 -#define AL_EQUALIZER_LOW_CUTOFF 0x0002 -#define AL_EQUALIZER_MID1_GAIN 0x0003 -#define AL_EQUALIZER_MID1_CENTER 0x0004 -#define AL_EQUALIZER_MID1_WIDTH 0x0005 -#define AL_EQUALIZER_MID2_GAIN 0x0006 -#define AL_EQUALIZER_MID2_CENTER 0x0007 -#define AL_EQUALIZER_MID2_WIDTH 0x0008 -#define AL_EQUALIZER_HIGH_GAIN 0x0009 -#define AL_EQUALIZER_HIGH_CUTOFF 0x000A - -/* Effect type */ -#define AL_EFFECT_FIRST_PARAMETER 0x0000 -#define AL_EFFECT_LAST_PARAMETER 0x8000 -#define AL_EFFECT_TYPE 0x8001 - -/* Effect types, used with the AL_EFFECT_TYPE property */ -#define AL_EFFECT_NULL 0x0000 -#define AL_EFFECT_REVERB 0x0001 -#define AL_EFFECT_CHORUS 0x0002 -#define AL_EFFECT_DISTORTION 0x0003 -#define AL_EFFECT_ECHO 0x0004 -#define AL_EFFECT_FLANGER 0x0005 -#define AL_EFFECT_FREQUENCY_SHIFTER 0x0006 -#define AL_EFFECT_VOCAL_MORPHER 0x0007 -#define AL_EFFECT_PITCH_SHIFTER 0x0008 -#define AL_EFFECT_RING_MODULATOR 0x0009 -#define AL_EFFECT_AUTOWAH 0x000A -#define AL_EFFECT_COMPRESSOR 0x000B -#define AL_EFFECT_EQUALIZER 0x000C -#define AL_EFFECT_EAXREVERB 0x8000 - -/* Auxiliary Effect Slot properties. */ -#define AL_EFFECTSLOT_EFFECT 0x0001 -#define AL_EFFECTSLOT_GAIN 0x0002 -#define AL_EFFECTSLOT_AUXILIARY_SEND_AUTO 0x0003 - -/* NULL Auxiliary Slot ID to disable a source send. */ -#define AL_EFFECTSLOT_NULL 0x0000 - - -/* Filter properties. */ - -/* Lowpass filter parameters */ -#define AL_LOWPASS_GAIN 0x0001 -#define AL_LOWPASS_GAINHF 0x0002 - -/* Highpass filter parameters */ -#define AL_HIGHPASS_GAIN 0x0001 -#define AL_HIGHPASS_GAINLF 0x0002 - -/* Bandpass filter parameters */ -#define AL_BANDPASS_GAIN 0x0001 -#define AL_BANDPASS_GAINLF 0x0002 -#define AL_BANDPASS_GAINHF 0x0003 - -/* Filter type */ -#define AL_FILTER_FIRST_PARAMETER 0x0000 -#define AL_FILTER_LAST_PARAMETER 0x8000 -#define AL_FILTER_TYPE 0x8001 - -/* Filter types, used with the AL_FILTER_TYPE property */ -#define AL_FILTER_NULL 0x0000 -#define AL_FILTER_LOWPASS 0x0001 -#define AL_FILTER_HIGHPASS 0x0002 -#define AL_FILTER_BANDPASS 0x0003 - - -/* Effect object function types. */ -typedef void (AL_APIENTRY *LPALGENEFFECTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEEFFECTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISEFFECT)(ALuint); -typedef void (AL_APIENTRY *LPALEFFECTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALEFFECTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALEFFECTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTFV)(ALuint, ALenum, ALfloat*); - -/* Filter object function types. */ -typedef void (AL_APIENTRY *LPALGENFILTERS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEFILTERS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISFILTER)(ALuint); -typedef void (AL_APIENTRY *LPALFILTERI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALFILTERF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALFILTERFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERFV)(ALuint, ALenum, ALfloat*); - -/* Auxiliary Effect Slot object function types. */ -typedef void (AL_APIENTRY *LPALGENAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISAUXILIARYEFFECTSLOT)(ALuint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); - -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects); -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects); -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect); -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters); -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters); -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter); -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -#endif - -/* Filter ranges and defaults. */ - -/* Lowpass filter */ -#define LOWPASS_MIN_GAIN (0.0f) -#define LOWPASS_MAX_GAIN (1.0f) -#define LOWPASS_DEFAULT_GAIN (1.0f) - -#define LOWPASS_MIN_GAINHF (0.0f) -#define LOWPASS_MAX_GAINHF (1.0f) -#define LOWPASS_DEFAULT_GAINHF (1.0f) - -/* Highpass filter */ -#define HIGHPASS_MIN_GAIN (0.0f) -#define HIGHPASS_MAX_GAIN (1.0f) -#define HIGHPASS_DEFAULT_GAIN (1.0f) - -#define HIGHPASS_MIN_GAINLF (0.0f) -#define HIGHPASS_MAX_GAINLF (1.0f) -#define HIGHPASS_DEFAULT_GAINLF (1.0f) - -/* Bandpass filter */ -#define BANDPASS_MIN_GAIN (0.0f) -#define BANDPASS_MAX_GAIN (1.0f) -#define BANDPASS_DEFAULT_GAIN (1.0f) - -#define BANDPASS_MIN_GAINHF (0.0f) -#define BANDPASS_MAX_GAINHF (1.0f) -#define BANDPASS_DEFAULT_GAINHF (1.0f) - -#define BANDPASS_MIN_GAINLF (0.0f) -#define BANDPASS_MAX_GAINLF (1.0f) -#define BANDPASS_DEFAULT_GAINLF (1.0f) - - -/* Effect parameter ranges and defaults. */ - -/* Standard reverb effect */ -#define AL_REVERB_MIN_DENSITY (0.0f) -#define AL_REVERB_MAX_DENSITY (1.0f) -#define AL_REVERB_DEFAULT_DENSITY (1.0f) - -#define AL_REVERB_MIN_DIFFUSION (0.0f) -#define AL_REVERB_MAX_DIFFUSION (1.0f) -#define AL_REVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_REVERB_MIN_GAIN (0.0f) -#define AL_REVERB_MAX_GAIN (1.0f) -#define AL_REVERB_DEFAULT_GAIN (0.32f) - -#define AL_REVERB_MIN_GAINHF (0.0f) -#define AL_REVERB_MAX_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_GAINHF (0.89f) - -#define AL_REVERB_MIN_DECAY_TIME (0.1f) -#define AL_REVERB_MAX_DECAY_TIME (20.0f) -#define AL_REVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_REVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_REVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_REVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_REVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_REVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_REVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_REVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_REVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_REVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_REVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_REVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_REVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_REVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_REVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_REVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_REVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_REVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* EAX reverb effect */ -#define AL_EAXREVERB_MIN_DENSITY (0.0f) -#define AL_EAXREVERB_MAX_DENSITY (1.0f) -#define AL_EAXREVERB_DEFAULT_DENSITY (1.0f) - -#define AL_EAXREVERB_MIN_DIFFUSION (0.0f) -#define AL_EAXREVERB_MAX_DIFFUSION (1.0f) -#define AL_EAXREVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_EAXREVERB_MIN_GAIN (0.0f) -#define AL_EAXREVERB_MAX_GAIN (1.0f) -#define AL_EAXREVERB_DEFAULT_GAIN (0.32f) - -#define AL_EAXREVERB_MIN_GAINHF (0.0f) -#define AL_EAXREVERB_MAX_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINHF (0.89f) - -#define AL_EAXREVERB_MIN_GAINLF (0.0f) -#define AL_EAXREVERB_MAX_GAINLF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINLF (1.0f) - -#define AL_EAXREVERB_MIN_DECAY_TIME (0.1f) -#define AL_EAXREVERB_MAX_DECAY_TIME (20.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_EAXREVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_EAXREVERB_MIN_DECAY_LFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_LFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_LFRATIO (1.0f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_ECHO_TIME (0.075f) -#define AL_EAXREVERB_MAX_ECHO_TIME (0.25f) -#define AL_EAXREVERB_DEFAULT_ECHO_TIME (0.25f) - -#define AL_EAXREVERB_MIN_ECHO_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_ECHO_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_ECHO_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_MODULATION_TIME (0.04f) -#define AL_EAXREVERB_MAX_MODULATION_TIME (4.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_TIME (0.25f) - -#define AL_EAXREVERB_MIN_MODULATION_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_MODULATION_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_EAXREVERB_MIN_HFREFERENCE (1000.0f) -#define AL_EAXREVERB_MAX_HFREFERENCE (20000.0f) -#define AL_EAXREVERB_DEFAULT_HFREFERENCE (5000.0f) - -#define AL_EAXREVERB_MIN_LFREFERENCE (20.0f) -#define AL_EAXREVERB_MAX_LFREFERENCE (1000.0f) -#define AL_EAXREVERB_DEFAULT_LFREFERENCE (250.0f) - -#define AL_EAXREVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_EAXREVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_EAXREVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_EAXREVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* Chorus effect */ -#define AL_CHORUS_WAVEFORM_SINUSOID (0) -#define AL_CHORUS_WAVEFORM_TRIANGLE (1) - -#define AL_CHORUS_MIN_WAVEFORM (0) -#define AL_CHORUS_MAX_WAVEFORM (1) -#define AL_CHORUS_DEFAULT_WAVEFORM (1) - -#define AL_CHORUS_MIN_PHASE (-180) -#define AL_CHORUS_MAX_PHASE (180) -#define AL_CHORUS_DEFAULT_PHASE (90) - -#define AL_CHORUS_MIN_RATE (0.0f) -#define AL_CHORUS_MAX_RATE (10.0f) -#define AL_CHORUS_DEFAULT_RATE (1.1f) - -#define AL_CHORUS_MIN_DEPTH (0.0f) -#define AL_CHORUS_MAX_DEPTH (1.0f) -#define AL_CHORUS_DEFAULT_DEPTH (0.1f) - -#define AL_CHORUS_MIN_FEEDBACK (-1.0f) -#define AL_CHORUS_MAX_FEEDBACK (1.0f) -#define AL_CHORUS_DEFAULT_FEEDBACK (0.25f) - -#define AL_CHORUS_MIN_DELAY (0.0f) -#define AL_CHORUS_MAX_DELAY (0.016f) -#define AL_CHORUS_DEFAULT_DELAY (0.016f) - -/* Distortion effect */ -#define AL_DISTORTION_MIN_EDGE (0.0f) -#define AL_DISTORTION_MAX_EDGE (1.0f) -#define AL_DISTORTION_DEFAULT_EDGE (0.2f) - -#define AL_DISTORTION_MIN_GAIN (0.01f) -#define AL_DISTORTION_MAX_GAIN (1.0f) -#define AL_DISTORTION_DEFAULT_GAIN (0.05f) - -#define AL_DISTORTION_MIN_LOWPASS_CUTOFF (80.0f) -#define AL_DISTORTION_MAX_LOWPASS_CUTOFF (24000.0f) -#define AL_DISTORTION_DEFAULT_LOWPASS_CUTOFF (8000.0f) - -#define AL_DISTORTION_MIN_EQCENTER (80.0f) -#define AL_DISTORTION_MAX_EQCENTER (24000.0f) -#define AL_DISTORTION_DEFAULT_EQCENTER (3600.0f) - -#define AL_DISTORTION_MIN_EQBANDWIDTH (80.0f) -#define AL_DISTORTION_MAX_EQBANDWIDTH (24000.0f) -#define AL_DISTORTION_DEFAULT_EQBANDWIDTH (3600.0f) - -/* Echo effect */ -#define AL_ECHO_MIN_DELAY (0.0f) -#define AL_ECHO_MAX_DELAY (0.207f) -#define AL_ECHO_DEFAULT_DELAY (0.1f) - -#define AL_ECHO_MIN_LRDELAY (0.0f) -#define AL_ECHO_MAX_LRDELAY (0.404f) -#define AL_ECHO_DEFAULT_LRDELAY (0.1f) - -#define AL_ECHO_MIN_DAMPING (0.0f) -#define AL_ECHO_MAX_DAMPING (0.99f) -#define AL_ECHO_DEFAULT_DAMPING (0.5f) - -#define AL_ECHO_MIN_FEEDBACK (0.0f) -#define AL_ECHO_MAX_FEEDBACK (1.0f) -#define AL_ECHO_DEFAULT_FEEDBACK (0.5f) - -#define AL_ECHO_MIN_SPREAD (-1.0f) -#define AL_ECHO_MAX_SPREAD (1.0f) -#define AL_ECHO_DEFAULT_SPREAD (-1.0f) - -/* Flanger effect */ -#define AL_FLANGER_WAVEFORM_SINUSOID (0) -#define AL_FLANGER_WAVEFORM_TRIANGLE (1) - -#define AL_FLANGER_MIN_WAVEFORM (0) -#define AL_FLANGER_MAX_WAVEFORM (1) -#define AL_FLANGER_DEFAULT_WAVEFORM (1) - -#define AL_FLANGER_MIN_PHASE (-180) -#define AL_FLANGER_MAX_PHASE (180) -#define AL_FLANGER_DEFAULT_PHASE (0) - -#define AL_FLANGER_MIN_RATE (0.0f) -#define AL_FLANGER_MAX_RATE (10.0f) -#define AL_FLANGER_DEFAULT_RATE (0.27f) - -#define AL_FLANGER_MIN_DEPTH (0.0f) -#define AL_FLANGER_MAX_DEPTH (1.0f) -#define AL_FLANGER_DEFAULT_DEPTH (1.0f) - -#define AL_FLANGER_MIN_FEEDBACK (-1.0f) -#define AL_FLANGER_MAX_FEEDBACK (1.0f) -#define AL_FLANGER_DEFAULT_FEEDBACK (-0.5f) - -#define AL_FLANGER_MIN_DELAY (0.0f) -#define AL_FLANGER_MAX_DELAY (0.004f) -#define AL_FLANGER_DEFAULT_DELAY (0.002f) - -/* Frequency shifter effect */ -#define AL_FREQUENCY_SHIFTER_MIN_FREQUENCY (0.0f) -#define AL_FREQUENCY_SHIFTER_MAX_FREQUENCY (24000.0f) -#define AL_FREQUENCY_SHIFTER_DEFAULT_FREQUENCY (0.0f) - -#define AL_FREQUENCY_SHIFTER_MIN_LEFT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_LEFT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_LEFT_DIRECTION (0) - -#define AL_FREQUENCY_SHIFTER_DIRECTION_DOWN (0) -#define AL_FREQUENCY_SHIFTER_DIRECTION_UP (1) -#define AL_FREQUENCY_SHIFTER_DIRECTION_OFF (2) - -#define AL_FREQUENCY_SHIFTER_MIN_RIGHT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_RIGHT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_RIGHT_DIRECTION (0) - -/* Vocal morpher effect */ -#define AL_VOCAL_MORPHER_MIN_PHONEMEA (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEA_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB (10) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_PHONEME_A (0) -#define AL_VOCAL_MORPHER_PHONEME_E (1) -#define AL_VOCAL_MORPHER_PHONEME_I (2) -#define AL_VOCAL_MORPHER_PHONEME_O (3) -#define AL_VOCAL_MORPHER_PHONEME_U (4) -#define AL_VOCAL_MORPHER_PHONEME_AA (5) -#define AL_VOCAL_MORPHER_PHONEME_AE (6) -#define AL_VOCAL_MORPHER_PHONEME_AH (7) -#define AL_VOCAL_MORPHER_PHONEME_AO (8) -#define AL_VOCAL_MORPHER_PHONEME_EH (9) -#define AL_VOCAL_MORPHER_PHONEME_ER (10) -#define AL_VOCAL_MORPHER_PHONEME_IH (11) -#define AL_VOCAL_MORPHER_PHONEME_IY (12) -#define AL_VOCAL_MORPHER_PHONEME_UH (13) -#define AL_VOCAL_MORPHER_PHONEME_UW (14) -#define AL_VOCAL_MORPHER_PHONEME_B (15) -#define AL_VOCAL_MORPHER_PHONEME_D (16) -#define AL_VOCAL_MORPHER_PHONEME_F (17) -#define AL_VOCAL_MORPHER_PHONEME_G (18) -#define AL_VOCAL_MORPHER_PHONEME_J (19) -#define AL_VOCAL_MORPHER_PHONEME_K (20) -#define AL_VOCAL_MORPHER_PHONEME_L (21) -#define AL_VOCAL_MORPHER_PHONEME_M (22) -#define AL_VOCAL_MORPHER_PHONEME_N (23) -#define AL_VOCAL_MORPHER_PHONEME_P (24) -#define AL_VOCAL_MORPHER_PHONEME_R (25) -#define AL_VOCAL_MORPHER_PHONEME_S (26) -#define AL_VOCAL_MORPHER_PHONEME_T (27) -#define AL_VOCAL_MORPHER_PHONEME_V (28) -#define AL_VOCAL_MORPHER_PHONEME_Z (29) - -#define AL_VOCAL_MORPHER_WAVEFORM_SINUSOID (0) -#define AL_VOCAL_MORPHER_WAVEFORM_TRIANGLE (1) -#define AL_VOCAL_MORPHER_WAVEFORM_SAWTOOTH (2) - -#define AL_VOCAL_MORPHER_MIN_WAVEFORM (0) -#define AL_VOCAL_MORPHER_MAX_WAVEFORM (2) -#define AL_VOCAL_MORPHER_DEFAULT_WAVEFORM (0) - -#define AL_VOCAL_MORPHER_MIN_RATE (0.0f) -#define AL_VOCAL_MORPHER_MAX_RATE (10.0f) -#define AL_VOCAL_MORPHER_DEFAULT_RATE (1.41f) - -/* Pitch shifter effect */ -#define AL_PITCH_SHIFTER_MIN_COARSE_TUNE (-12) -#define AL_PITCH_SHIFTER_MAX_COARSE_TUNE (12) -#define AL_PITCH_SHIFTER_DEFAULT_COARSE_TUNE (12) - -#define AL_PITCH_SHIFTER_MIN_FINE_TUNE (-50) -#define AL_PITCH_SHIFTER_MAX_FINE_TUNE (50) -#define AL_PITCH_SHIFTER_DEFAULT_FINE_TUNE (0) - -/* Ring modulator effect */ -#define AL_RING_MODULATOR_MIN_FREQUENCY (0.0f) -#define AL_RING_MODULATOR_MAX_FREQUENCY (8000.0f) -#define AL_RING_MODULATOR_DEFAULT_FREQUENCY (440.0f) - -#define AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF (0.0f) -#define AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF (24000.0f) -#define AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF (800.0f) - -#define AL_RING_MODULATOR_SINUSOID (0) -#define AL_RING_MODULATOR_SAWTOOTH (1) -#define AL_RING_MODULATOR_SQUARE (2) - -#define AL_RING_MODULATOR_MIN_WAVEFORM (0) -#define AL_RING_MODULATOR_MAX_WAVEFORM (2) -#define AL_RING_MODULATOR_DEFAULT_WAVEFORM (0) - -/* Autowah effect */ -#define AL_AUTOWAH_MIN_ATTACK_TIME (0.0001f) -#define AL_AUTOWAH_MAX_ATTACK_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_ATTACK_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RELEASE_TIME (0.0001f) -#define AL_AUTOWAH_MAX_RELEASE_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_RELEASE_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RESONANCE (2.0f) -#define AL_AUTOWAH_MAX_RESONANCE (1000.0f) -#define AL_AUTOWAH_DEFAULT_RESONANCE (1000.0f) - -#define AL_AUTOWAH_MIN_PEAK_GAIN (0.00003f) -#define AL_AUTOWAH_MAX_PEAK_GAIN (31621.0f) -#define AL_AUTOWAH_DEFAULT_PEAK_GAIN (11.22f) - -/* Compressor effect */ -#define AL_COMPRESSOR_MIN_ONOFF (0) -#define AL_COMPRESSOR_MAX_ONOFF (1) -#define AL_COMPRESSOR_DEFAULT_ONOFF (1) - -/* Equalizer effect */ -#define AL_EQUALIZER_MIN_LOW_GAIN (0.126f) -#define AL_EQUALIZER_MAX_LOW_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_LOW_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_LOW_CUTOFF (50.0f) -#define AL_EQUALIZER_MAX_LOW_CUTOFF (800.0f) -#define AL_EQUALIZER_DEFAULT_LOW_CUTOFF (200.0f) - -#define AL_EQUALIZER_MIN_MID1_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID1_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID1_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID1_CENTER (200.0f) -#define AL_EQUALIZER_MAX_MID1_CENTER (3000.0f) -#define AL_EQUALIZER_DEFAULT_MID1_CENTER (500.0f) - -#define AL_EQUALIZER_MIN_MID1_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID1_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID1_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_MID2_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID2_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID2_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID2_CENTER (1000.0f) -#define AL_EQUALIZER_MAX_MID2_CENTER (8000.0f) -#define AL_EQUALIZER_DEFAULT_MID2_CENTER (3000.0f) - -#define AL_EQUALIZER_MIN_MID2_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID2_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID2_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_GAIN (0.126f) -#define AL_EQUALIZER_MAX_HIGH_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_HIGH_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_CUTOFF (4000.0f) -#define AL_EQUALIZER_MAX_HIGH_CUTOFF (16000.0f) -#define AL_EQUALIZER_DEFAULT_HIGH_CUTOFF (6000.0f) - - -/* Source parameter value ranges and defaults. */ -#define AL_MIN_AIR_ABSORPTION_FACTOR (0.0f) -#define AL_MAX_AIR_ABSORPTION_FACTOR (10.0f) -#define AL_DEFAULT_AIR_ABSORPTION_FACTOR (0.0f) - -#define AL_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_MIN_CONE_OUTER_GAINHF (0.0f) -#define AL_MAX_CONE_OUTER_GAINHF (1.0f) -#define AL_DEFAULT_CONE_OUTER_GAINHF (1.0f) - -#define AL_MIN_DIRECT_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_DIRECT_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_DIRECT_FILTER_GAINHF_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE - - -/* Listener parameter value ranges and defaults. */ -#define AL_MIN_METERS_PER_UNIT FLT_MIN -#define AL_MAX_METERS_PER_UNIT FLT_MAX -#define AL_DEFAULT_METERS_PER_UNIT (1.0f) - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* AL_EFX_H */ diff --git a/internal/c/parts/audio/out/android/other/AL/oalMacOSX_OALExtensions.h b/internal/c/parts/audio/out/android/other/AL/oalMacOSX_OALExtensions.h deleted file mode 100644 index c3db30546..000000000 --- a/internal/c/parts/audio/out/android/other/AL/oalMacOSX_OALExtensions.h +++ /dev/null @@ -1,161 +0,0 @@ -/********************************************************************************************************************************** -* -* OpenAL cross platform audio library -* Copyright (c) 2004-2006, Apple Computer, Inc. All rights reserved. -* Copyright (c) 2007-2008, Apple Inc. All rights reserved. -* -* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -* conditions are met: -* -* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. -* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -* disclaimer in the documentation and/or other materials provided with the distribution. -* 3. Neither the name of Apple Inc. ("Apple") nor the names of its contributors may be used to endorse or promote products derived -* from this software without specific prior written permission. -* -* THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS -* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED -* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -* -**********************************************************************************************************************************/ - -#ifndef __OAL_MAC_OSX_OAL_EXTENSIONS_H__ -#define __OAL_MAC_OSX_OAL_EXTENSIONS_H__ - -#include - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_MAC_OSX - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -// Retrieve functions via alGetProcAddress() by passing in strings: alcMacOSXMixerOutputRate or alcMacOSXGetMixerOutputRate - -// Setting the Mixer Output Rate effectively sets the samnple rate at which the mixer -typedef ALvoid (*alcMacOSXRenderingQualityProcPtr) (ALint value); -typedef ALvoid (*alMacOSXRenderChannelCountProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerMaxiumumBussesProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerOutputRateProcPtr) (ALdouble value); - -typedef ALint (*alcMacOSXGetRenderingQualityProcPtr) (); -typedef ALint (*alMacOSXGetRenderChannelCountProcPtr) (); -typedef ALint (*alcMacOSXGetMixerMaxiumumBussesProcPtr) (); -typedef ALdouble (*alcMacOSXGetMixerOutputRateProcPtr) (); - -/* Render Quality. Used with alcMacOSXRenderingQuality() */ - - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_HIGH 'rqhi' - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_LOW 'rdlo' - - // High Quality Spatial Algorithm suitable only for headphone use - #define ALC_IPHONE_SPATIAL_RENDERING_QUALITY_HEADPHONES 'hdph' - -/* - Render Channels. Used with alMacOSXRenderChannelCount() - Allows a user to force OpenAL to render to stereo, regardless of the audio hardware being used -*/ - #define ALC_MAC_OSX_RENDER_CHANNEL_COUNT_STEREO 'rcst' - -/* GameKit extension */ - - #define AL_GAMEKIT 'gksr' - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AL_EXT_SOURCE_NOTIFICATIONS - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Source Notifications - - Eliminates the need for continuous polling for source state by providing a - mechanism for the application to receive source state change notifications. - Upon receiving a notification, the application can retrieve the actual state - corresponding to the notification ID for which the notification was sent. - */ - -#define AL_QUEUE_HAS_LOOPED 0x9000 - -/* - Notification Proc: ALSourceNotificationProc - - sid - source id - notificationID - id of state that has changed - userData - user data provided to alSourceAddNotification() - */ - -typedef ALvoid (*alSourceNotificationProc)(ALuint sid, ALuint notificationID, ALvoid* userData); - -/* - API: alSourceAddNotification - - sid - source id - notificationID - id of state for which caller wants to be notified of a change - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - - Returns AL_NO_ERROR if request is successful. - - Valid IDs: - AL_SOURCE_STATE - AL_BUFFERS_PROCESSED - AL_QUEUE_HAS_LOOPED - notification sent when a looping source has looped to it's start point - */ -typedef ALenum (*alSourceAddNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* - API: alSourceRemoveStateNotification - - sid - source id - notificationID - id of state for which caller wants to remove an existing notification - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - */ -typedef ALvoid (*alSourceRemoveNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_ASA : Apple Spatial Audio Extension - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Used with the ASA API calls: alcASAGetSource(), alcASASetSource(), alcASAGetListener(), alcASASetListener() -*/ - -typedef ALenum (*alcASAGetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint dataSize); -typedef ALenum (*alcASAGetListenerProcPtr) (ALuint property, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetListenerProcPtr) (ALuint property, ALvoid *data, ALuint dataSize); - - /* listener properties */ - #define ALC_ASA_REVERB_ON 'rvon' // type ALuint - #define ALC_ASA_REVERB_GLOBAL_LEVEL 'rvgl' // type ALfloat -40.0 db - 40.0 db - - #define ALC_ASA_REVERB_ROOM_TYPE 'rvrt' // type ALint - - /* reverb room type presets for the ALC_ASA_REVERB_ROOM_TYPE property */ - #define ALC_ASA_REVERB_ROOM_TYPE_SmallRoom 0 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumRoom 1 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom 2 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall 3 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall 4 - #define ALC_ASA_REVERB_ROOM_TYPE_Plate 5 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumChamber 6 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeChamber 7 - #define ALC_ASA_REVERB_ROOM_TYPE_Cathedral 8 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom2 9 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall2 10 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall3 11 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall2 12 - - #define ALC_ASA_REVERB_EQ_GAIN 'rveg' // type ALfloat - #define ALC_ASA_REVERB_EQ_BANDWITH 'rveb' // type ALfloat - #define ALC_ASA_REVERB_EQ_FREQ 'rvef' // type ALfloat - - /* source properties */ - #define ALC_ASA_REVERB_SEND_LEVEL 'rvsl' // type ALfloat 0.0 (dry) - 1.0 (wet) (0-100% dry/wet mix, 0.0 default) - #define ALC_ASA_OCCLUSION 'occl' // type ALfloat -100.0 db (most occlusion) - 0.0 db (no occlusion, 0.0 default) - #define ALC_ASA_OBSTRUCTION 'obst' // type ALfloat -100.0 db (most obstruction) - 0.0 db (no obstruction, 0.0 default) - -#endif // __OAL_MAC_OSX_OAL_EXTENSIONS_H__ diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/ALc.c b/internal/c/parts/audio/out/android/other/stuff/Alc/ALc.c deleted file mode 100644 index 8f4d7a4a3..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/ALc.c +++ /dev/null @@ -1,2371 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "alSource.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alThunk.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alAuxEffectSlot.h" -#include "alDatabuffer.h" -#include "bs2b.h" -#include "alu.h" - - -#define EmptyFuncs { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL } -typedef struct BackendInfo { - const char *name; - void (*Init)(BackendFuncs*); - void (*Deinit)(void); - void (*Probe)(int); - BackendFuncs Funcs; -} BackendInfo; -static BackendInfo BackendList[] = { -#ifdef HAVE_PULSEAUDIO - { "pulse", alc_pulse_init, alc_pulse_deinit, alc_pulse_probe, EmptyFuncs }, -#endif -#ifdef HAVE_ALSA - { "alsa", alc_alsa_init, alc_alsa_deinit, alc_alsa_probe, EmptyFuncs }, -#endif -#ifdef HAVE_OSS - { "oss", alc_oss_init, alc_oss_deinit, alc_oss_probe, EmptyFuncs }, -#endif -#ifdef HAVE_SOLARIS - { "solaris", alc_solaris_init, alc_solaris_deinit, alc_solaris_probe, EmptyFuncs }, -#endif -#ifdef HAVE_DSOUND - { "dsound", alcDSoundInit, alcDSoundDeinit, alcDSoundProbe, EmptyFuncs }, -#endif -#ifdef HAVE_WINMM - { "winmm", alcWinMMInit, alcWinMMDeinit, alcWinMMProbe, EmptyFuncs }, -#endif -#ifdef HAVE_PORTAUDIO - { "port", alc_pa_init, alc_pa_deinit, alc_pa_probe, EmptyFuncs }, -#endif -#ifdef HAVE_OPENSLES - { "opensles", alc_opensles_init, alc_opensles_deinit, alc_opensles_probe, EmptyFuncs }, -#endif -#if defined(HAVE_AUDIOTRACK) - { "audiotrack", alc_audiotrack_init, alc_audiotrack_deinit, alc_audiotrack_probe, EmptyFuncs }, -#endif - - { "null", alc_null_init, alc_null_deinit, alc_null_probe, EmptyFuncs }, -#ifdef HAVE_WAVE - { "wave", alc_wave_init, alc_wave_deinit, alc_wave_probe, EmptyFuncs }, -#endif - - { NULL, NULL, NULL, NULL, EmptyFuncs } -}; -#undef EmptyFuncs - -/////////////////////////////////////////////////////// - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - -/////////////////////////////////////////////////////// -// STRING and EXTENSIONS - -typedef struct ALCfunction { - const ALCchar *funcName; - ALCvoid *address; -} ALCfunction; - -typedef struct ALCenums { - const ALCchar *enumName; - ALCenum value; -} ALCenums; - - -static const ALCfunction alcFunctions[] = { - { "alcCreateContext", (ALCvoid *) alcCreateContext }, - { "alcMakeContextCurrent", (ALCvoid *) alcMakeContextCurrent }, - { "alcProcessContext", (ALCvoid *) alcProcessContext }, - { "alcSuspendContext", (ALCvoid *) alcSuspendContext }, - { "alcDestroyContext", (ALCvoid *) alcDestroyContext }, - { "alcGetCurrentContext", (ALCvoid *) alcGetCurrentContext }, - { "alcGetContextsDevice", (ALCvoid *) alcGetContextsDevice }, - { "alcOpenDevice", (ALCvoid *) alcOpenDevice }, - { "alcCloseDevice", (ALCvoid *) alcCloseDevice }, - { "alcGetError", (ALCvoid *) alcGetError }, - { "alcIsExtensionPresent", (ALCvoid *) alcIsExtensionPresent }, - { "alcGetProcAddress", (ALCvoid *) alcGetProcAddress }, - { "alcGetEnumValue", (ALCvoid *) alcGetEnumValue }, - { "alcGetString", (ALCvoid *) alcGetString }, - { "alcGetIntegerv", (ALCvoid *) alcGetIntegerv }, - { "alcCaptureOpenDevice", (ALCvoid *) alcCaptureOpenDevice }, - { "alcCaptureCloseDevice", (ALCvoid *) alcCaptureCloseDevice }, - { "alcCaptureStart", (ALCvoid *) alcCaptureStart }, - { "alcCaptureStop", (ALCvoid *) alcCaptureStop }, - { "alcCaptureSamples", (ALCvoid *) alcCaptureSamples }, - - { "alcSetThreadContext", (ALCvoid *) alcSetThreadContext }, - { "alcGetThreadContext", (ALCvoid *) alcGetThreadContext }, - - { "alEnable", (ALCvoid *) alEnable }, - { "alDisable", (ALCvoid *) alDisable }, - { "alIsEnabled", (ALCvoid *) alIsEnabled }, - { "alGetString", (ALCvoid *) alGetString }, - { "alGetBooleanv", (ALCvoid *) alGetBooleanv }, - { "alGetIntegerv", (ALCvoid *) alGetIntegerv }, - { "alGetFloatv", (ALCvoid *) alGetFloatv }, - { "alGetDoublev", (ALCvoid *) alGetDoublev }, - { "alGetBoolean", (ALCvoid *) alGetBoolean }, - { "alGetInteger", (ALCvoid *) alGetInteger }, - { "alGetFloat", (ALCvoid *) alGetFloat }, - { "alGetDouble", (ALCvoid *) alGetDouble }, - { "alGetError", (ALCvoid *) alGetError }, - { "alIsExtensionPresent", (ALCvoid *) alIsExtensionPresent }, - { "alGetProcAddress", (ALCvoid *) alGetProcAddress }, - { "alGetEnumValue", (ALCvoid *) alGetEnumValue }, - { "alListenerf", (ALCvoid *) alListenerf }, - { "alListener3f", (ALCvoid *) alListener3f }, - { "alListenerfv", (ALCvoid *) alListenerfv }, - { "alListeneri", (ALCvoid *) alListeneri }, - { "alListener3i", (ALCvoid *) alListener3i }, - { "alListeneriv", (ALCvoid *) alListeneriv }, - { "alGetListenerf", (ALCvoid *) alGetListenerf }, - { "alGetListener3f", (ALCvoid *) alGetListener3f }, - { "alGetListenerfv", (ALCvoid *) alGetListenerfv }, - { "alGetListeneri", (ALCvoid *) alGetListeneri }, - { "alGetListener3i", (ALCvoid *) alGetListener3i }, - { "alGetListeneriv", (ALCvoid *) alGetListeneriv }, - { "alGenSources", (ALCvoid *) alGenSources }, - { "alDeleteSources", (ALCvoid *) alDeleteSources }, - { "alIsSource", (ALCvoid *) alIsSource }, - { "alSourcef", (ALCvoid *) alSourcef }, - { "alSource3f", (ALCvoid *) alSource3f }, - { "alSourcefv", (ALCvoid *) alSourcefv }, - { "alSourcei", (ALCvoid *) alSourcei }, - { "alSource3i", (ALCvoid *) alSource3i }, - { "alSourceiv", (ALCvoid *) alSourceiv }, - { "alGetSourcef", (ALCvoid *) alGetSourcef }, - { "alGetSource3f", (ALCvoid *) alGetSource3f }, - { "alGetSourcefv", (ALCvoid *) alGetSourcefv }, - { "alGetSourcei", (ALCvoid *) alGetSourcei }, - { "alGetSource3i", (ALCvoid *) alGetSource3i }, - { "alGetSourceiv", (ALCvoid *) alGetSourceiv }, - { "alSourcePlayv", (ALCvoid *) alSourcePlayv }, - { "alSourceStopv", (ALCvoid *) alSourceStopv }, - { "alSourceRewindv", (ALCvoid *) alSourceRewindv }, - { "alSourcePausev", (ALCvoid *) alSourcePausev }, - { "alSourcePlay", (ALCvoid *) alSourcePlay }, - { "alSourceStop", (ALCvoid *) alSourceStop }, - { "alSourceRewind", (ALCvoid *) alSourceRewind }, - { "alSourcePause", (ALCvoid *) alSourcePause }, - { "alSourceQueueBuffers", (ALCvoid *) alSourceQueueBuffers }, - { "alSourceUnqueueBuffers", (ALCvoid *) alSourceUnqueueBuffers }, - { "alGenBuffers", (ALCvoid *) alGenBuffers }, - { "alDeleteBuffers", (ALCvoid *) alDeleteBuffers }, - { "alIsBuffer", (ALCvoid *) alIsBuffer }, - { "alBufferData", (ALCvoid *) alBufferData }, - { "alBufferDataStatic", (ALCvoid *) alBufferData }, - { "alBufferf", (ALCvoid *) alBufferf }, - { "alBuffer3f", (ALCvoid *) alBuffer3f }, - { "alBufferfv", (ALCvoid *) alBufferfv }, - { "alBufferi", (ALCvoid *) alBufferi }, - { "alBuffer3i", (ALCvoid *) alBuffer3i }, - { "alBufferiv", (ALCvoid *) alBufferiv }, - { "alGetBufferf", (ALCvoid *) alGetBufferf }, - { "alGetBuffer3f", (ALCvoid *) alGetBuffer3f }, - { "alGetBufferfv", (ALCvoid *) alGetBufferfv }, - { "alGetBufferi", (ALCvoid *) alGetBufferi }, - { "alGetBuffer3i", (ALCvoid *) alGetBuffer3i }, - { "alGetBufferiv", (ALCvoid *) alGetBufferiv }, - { "alDopplerFactor", (ALCvoid *) alDopplerFactor }, - { "alDopplerVelocity", (ALCvoid *) alDopplerVelocity }, - { "alSpeedOfSound", (ALCvoid *) alSpeedOfSound }, - { "alDistanceModel", (ALCvoid *) alDistanceModel }, - - { "alGenFilters", (ALCvoid *) alGenFilters }, - { "alDeleteFilters", (ALCvoid *) alDeleteFilters }, - { "alIsFilter", (ALCvoid *) alIsFilter }, - { "alFilteri", (ALCvoid *) alFilteri }, - { "alFilteriv", (ALCvoid *) alFilteriv }, - { "alFilterf", (ALCvoid *) alFilterf }, - { "alFilterfv", (ALCvoid *) alFilterfv }, - { "alGetFilteri", (ALCvoid *) alGetFilteri }, - { "alGetFilteriv", (ALCvoid *) alGetFilteriv }, - { "alGetFilterf", (ALCvoid *) alGetFilterf }, - { "alGetFilterfv", (ALCvoid *) alGetFilterfv }, - - { "alGenEffects", (ALCvoid *) alGenEffects }, - { "alDeleteEffects", (ALCvoid *) alDeleteEffects }, - { "alIsEffect", (ALCvoid *) alIsEffect }, - { "alEffecti", (ALCvoid *) alEffecti }, - { "alEffectiv", (ALCvoid *) alEffectiv }, - { "alEffectf", (ALCvoid *) alEffectf }, - { "alEffectfv", (ALCvoid *) alEffectfv }, - { "alGetEffecti", (ALCvoid *) alGetEffecti }, - { "alGetEffectiv", (ALCvoid *) alGetEffectiv }, - { "alGetEffectf", (ALCvoid *) alGetEffectf }, - { "alGetEffectfv", (ALCvoid *) alGetEffectfv }, - - { "alGenAuxiliaryEffectSlots", (ALCvoid *) alGenAuxiliaryEffectSlots}, - { "alDeleteAuxiliaryEffectSlots",(ALCvoid *) alDeleteAuxiliaryEffectSlots}, - { "alIsAuxiliaryEffectSlot", (ALCvoid *) alIsAuxiliaryEffectSlot }, - { "alAuxiliaryEffectSloti", (ALCvoid *) alAuxiliaryEffectSloti }, - { "alAuxiliaryEffectSlotiv", (ALCvoid *) alAuxiliaryEffectSlotiv }, - { "alAuxiliaryEffectSlotf", (ALCvoid *) alAuxiliaryEffectSlotf }, - { "alAuxiliaryEffectSlotfv", (ALCvoid *) alAuxiliaryEffectSlotfv }, - { "alGetAuxiliaryEffectSloti", (ALCvoid *) alGetAuxiliaryEffectSloti}, - { "alGetAuxiliaryEffectSlotiv", (ALCvoid *) alGetAuxiliaryEffectSlotiv}, - { "alGetAuxiliaryEffectSlotf", (ALCvoid *) alGetAuxiliaryEffectSlotf}, - { "alGetAuxiliaryEffectSlotfv", (ALCvoid *) alGetAuxiliaryEffectSlotfv}, - - { "alBufferSubDataSOFT", (ALCvoid *) alBufferSubDataSOFT }, -#if 0 - { "alGenDatabuffersEXT", (ALCvoid *) alGenDatabuffersEXT }, - { "alDeleteDatabuffersEXT", (ALCvoid *) alDeleteDatabuffersEXT }, - { "alIsDatabufferEXT", (ALCvoid *) alIsDatabufferEXT }, - { "alDatabufferDataEXT", (ALCvoid *) alDatabufferDataEXT }, - { "alDatabufferSubDataEXT", (ALCvoid *) alDatabufferSubDataEXT }, - { "alGetDatabufferSubDataEXT", (ALCvoid *) alGetDatabufferSubDataEXT}, - { "alDatabufferfEXT", (ALCvoid *) alDatabufferfEXT }, - { "alDatabufferfvEXT", (ALCvoid *) alDatabufferfvEXT }, - { "alDatabufferiEXT", (ALCvoid *) alDatabufferiEXT }, - { "alDatabufferivEXT", (ALCvoid *) alDatabufferivEXT }, - { "alGetDatabufferfEXT", (ALCvoid *) alGetDatabufferfEXT }, - { "alGetDatabufferfvEXT", (ALCvoid *) alGetDatabufferfvEXT }, - { "alGetDatabufferiEXT", (ALCvoid *) alGetDatabufferiEXT }, - { "alGetDatabufferivEXT", (ALCvoid *) alGetDatabufferivEXT }, - { "alSelectDatabufferEXT", (ALCvoid *) alSelectDatabufferEXT }, - { "alMapDatabufferEXT", (ALCvoid *) alMapDatabufferEXT }, - { "alUnmapDatabufferEXT", (ALCvoid *) alUnmapDatabufferEXT }, -#endif - { NULL, (ALCvoid *) NULL } -}; - -static const ALCenums enumeration[] = { - // Types - { "ALC_INVALID", ALC_INVALID }, - { "ALC_FALSE", ALC_FALSE }, - { "ALC_TRUE", ALC_TRUE }, - - // ALC Properties - { "ALC_MAJOR_VERSION", ALC_MAJOR_VERSION }, - { "ALC_MINOR_VERSION", ALC_MINOR_VERSION }, - { "ALC_ATTRIBUTES_SIZE", ALC_ATTRIBUTES_SIZE }, - { "ALC_ALL_ATTRIBUTES", ALC_ALL_ATTRIBUTES }, - { "ALC_DEFAULT_DEVICE_SPECIFIER", ALC_DEFAULT_DEVICE_SPECIFIER }, - { "ALC_DEVICE_SPECIFIER", ALC_DEVICE_SPECIFIER }, - { "ALC_ALL_DEVICES_SPECIFIER", ALC_ALL_DEVICES_SPECIFIER }, - { "ALC_DEFAULT_ALL_DEVICES_SPECIFIER", ALC_DEFAULT_ALL_DEVICES_SPECIFIER }, - { "ALC_EXTENSIONS", ALC_EXTENSIONS }, - { "ALC_FREQUENCY", ALC_FREQUENCY }, - { "ALC_REFRESH", ALC_REFRESH }, - { "ALC_SYNC", ALC_SYNC }, - { "ALC_MONO_SOURCES", ALC_MONO_SOURCES }, - { "ALC_STEREO_SOURCES", ALC_STEREO_SOURCES }, - { "ALC_CAPTURE_DEVICE_SPECIFIER", ALC_CAPTURE_DEVICE_SPECIFIER }, - { "ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER", ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER}, - { "ALC_CAPTURE_SAMPLES", ALC_CAPTURE_SAMPLES }, - { "ALC_CONNECTED", ALC_CONNECTED }, - - // EFX Properties - { "ALC_EFX_MAJOR_VERSION", ALC_EFX_MAJOR_VERSION }, - { "ALC_EFX_MINOR_VERSION", ALC_EFX_MINOR_VERSION }, - { "ALC_MAX_AUXILIARY_SENDS", ALC_MAX_AUXILIARY_SENDS }, - - // ALC Error Message - { "ALC_NO_ERROR", ALC_NO_ERROR }, - { "ALC_INVALID_DEVICE", ALC_INVALID_DEVICE }, - { "ALC_INVALID_CONTEXT", ALC_INVALID_CONTEXT }, - { "ALC_INVALID_ENUM", ALC_INVALID_ENUM }, - { "ALC_INVALID_VALUE", ALC_INVALID_VALUE }, - { "ALC_OUT_OF_MEMORY", ALC_OUT_OF_MEMORY }, - { NULL, (ALCenum)0 } -}; -// Error strings -static const ALCchar alcNoError[] = "No Error"; -static const ALCchar alcErrInvalidDevice[] = "Invalid Device"; -static const ALCchar alcErrInvalidContext[] = "Invalid Context"; -static const ALCchar alcErrInvalidEnum[] = "Invalid Enum"; -static const ALCchar alcErrInvalidValue[] = "Invalid Value"; -static const ALCchar alcErrOutOfMemory[] = "Out of Memory"; - -/* Device lists. Sizes only include the first ending null character, not the - * second */ -static ALCchar *alcDeviceList; -static size_t alcDeviceListSize; -static ALCchar *alcAllDeviceList; -static size_t alcAllDeviceListSize; -static ALCchar *alcCaptureDeviceList; -static size_t alcCaptureDeviceListSize; -// Default is always the first in the list -static ALCchar *alcDefaultDeviceSpecifier; -static ALCchar *alcDefaultAllDeviceSpecifier; -static ALCchar *alcCaptureDefaultDeviceSpecifier; - - -static const ALCchar alcNoDeviceExtList[] = - "ALC_ENUMERATE_ALL_EXT ALC_ENUMERATION_EXT ALC_EXT_CAPTURE " - "ALC_EXT_thread_local_context"; -static const ALCchar alcExtensionList[] = - "ALC_ENUMERATE_ALL_EXT ALC_ENUMERATION_EXT ALC_EXT_CAPTURE " - "ALC_EXT_disconnect ALC_EXT_EFX ALC_EXT_thread_local_context"; -static const ALCint alcMajorVersion = 1; -static const ALCint alcMinorVersion = 1; - -static const ALCint alcEFXMajorVersion = 1; -static const ALCint alcEFXMinorVersion = 0; - -/////////////////////////////////////////////////////// - - -/////////////////////////////////////////////////////// -// Global Variables - -static ALCdevice *g_pDeviceList = NULL; -static ALCuint g_ulDeviceCount = 0; - -static CRITICAL_SECTION g_csMutex; - -// Context List -static ALCcontext *g_pContextList = NULL; -static ALCuint g_ulContextCount = 0; - -// Thread-local current context -static tls_type LocalContext; -// Process-wide current context -static ALCcontext *GlobalContext = NULL; - -// Context Error -static ALCenum g_eLastNullDeviceError = ALC_NO_ERROR; - -// Default context extensions -static const ALchar alExtList[] = - "AL_EXT_DOUBLE AL_EXT_EXPONENT_DISTANCE AL_EXT_FLOAT32 AL_EXT_IMA4 " - "AL_EXT_LINEAR_DISTANCE AL_EXT_MCFORMATS AL_EXT_MULAW " - "AL_EXT_MULAW_MCFORMATS AL_EXT_OFFSET AL_EXT_source_distance_model " - "AL_LOKI_quadriphonic AL_SOFT_buffer_sub_data AL_SOFT_loop_points"; - -// Mixing Priority Level -static ALint RTPrioLevel; - -// Output Log File -static FILE *LogFile; - -/////////////////////////////////////////////////////// - - -/////////////////////////////////////////////////////// -// ALC Related helper functions -static void ReleaseALC(void); - -#ifdef HAVE_GCC_DESTRUCTOR -static void alc_init(void) __attribute__((constructor)); -static void alc_deinit(void) __attribute__((destructor)); -#else -#ifdef _WIN32 -static void alc_init(void); -static void alc_deinit(void); - -BOOL APIENTRY DllMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved) -{ - (void)lpReserved; - - // Perform actions based on the reason for calling. - switch(ul_reason_for_call) - { - case DLL_PROCESS_ATTACH: - DisableThreadLibraryCalls(hModule); - alc_init(); - break; - - case DLL_PROCESS_DETACH: - alc_deinit(); - break; - } - return TRUE; -} -#endif -#endif - -static void alc_init(void) -{ - int i; - const char *devs, *str; - - str = getenv("ALSOFT_LOGFILE"); - if(str && str[0]) - { - LogFile = fopen(str, "w"); - if(!LogFile) - fprintf(stderr, "AL lib: Failed to open log file '%s'\n", str); - } - if(!LogFile) - LogFile = stderr; - - InitializeCriticalSection(&g_csMutex); - ALTHUNK_INIT(); - ReadALConfig(); - - tls_create(&LocalContext); - - RTPrioLevel = GetConfigValueInt(NULL, "rt-prio", 0); - - DefaultResampler = GetConfigValueInt(NULL, "resampler", RESAMPLER_DEFAULT); - if(DefaultResampler >= RESAMPLER_MAX || DefaultResampler <= RESAMPLER_MIN) - DefaultResampler = RESAMPLER_DEFAULT; - - devs = GetConfigValue(NULL, "drivers", ""); - if(devs[0]) - { - int n; - size_t len; - const char *next = devs; - int endlist, delitem; - - i = 0; - do { - devs = next; - next = strchr(devs, ','); - - delitem = (devs[0] == '-'); - if(devs[0] == '-') devs++; - - if(!devs[0] || devs[0] == ',') - { - endlist = 0; - continue; - } - endlist = 1; - - len = (next ? ((size_t)(next-devs)) : strlen(devs)); - for(n = i;BackendList[n].Init;n++) - { - if(len == strlen(BackendList[n].name) && - strncmp(BackendList[n].name, devs, len) == 0) - { - if(delitem) - { - do { - BackendList[n] = BackendList[n+1]; - ++n; - } while(BackendList[n].Init); - } - else - { - BackendInfo Bkp = BackendList[n]; - while(n > i) - { - BackendList[n] = BackendList[n-1]; - --n; - } - BackendList[n] = Bkp; - - i++; - } - break; - } - } - } while(next++); - - if(endlist) - { - BackendList[i].name = NULL; - BackendList[i].Init = NULL; - BackendList[i].Deinit = NULL; - BackendList[i].Probe = NULL; - } - } - - for(i = 0;BackendList[i].Init;i++) - BackendList[i].Init(&BackendList[i].Funcs); - - str = GetConfigValue(NULL, "excludefx", ""); - if(str[0]) - { - const struct { - const char *name; - int type; - } EffectList[] = { - { "eaxreverb", EAXREVERB }, - { "reverb", REVERB }, - { "echo", ECHO }, - { "modulator", MODULATOR }, - { NULL, 0 } - }; - int n; - size_t len; - const char *next = str; - - do { - str = next; - next = strchr(str, ','); - - if(!str[0] || next == str) - continue; - - len = (next ? ((size_t)(next-str)) : strlen(str)); - for(n = 0;EffectList[n].name;n++) - { - if(len == strlen(EffectList[n].name) && - strncmp(EffectList[n].name, str, len) == 0) - DisabledEffects[EffectList[n].type] = AL_TRUE; - } - } while(next++); - } -} - -static void alc_deinit(void) -{ - int i; - - ReleaseALC(); - - for(i = 0;BackendList[i].Deinit;i++) - BackendList[i].Deinit(); - - tls_delete(LocalContext); - - FreeALConfig(); - ALTHUNK_EXIT(); - DeleteCriticalSection(&g_csMutex); - - if(LogFile != stderr) - fclose(LogFile); - LogFile = NULL; -} - - -static void ProbeDeviceList() -{ - ALint i; - - free(alcDeviceList); alcDeviceList = NULL; - alcDeviceListSize = 0; - - for(i = 0;BackendList[i].Probe;i++) - BackendList[i].Probe(DEVICE_PROBE); -} - -static void ProbeAllDeviceList() -{ - ALint i; - - free(alcAllDeviceList); alcAllDeviceList = NULL; - alcAllDeviceListSize = 0; - - for(i = 0;BackendList[i].Probe;i++) - BackendList[i].Probe(ALL_DEVICE_PROBE); -} - -static void ProbeCaptureDeviceList() -{ - ALint i; - - free(alcCaptureDeviceList); alcCaptureDeviceList = NULL; - alcCaptureDeviceListSize = 0; - - for(i = 0;BackendList[i].Probe;i++) - BackendList[i].Probe(CAPTURE_DEVICE_PROBE); -} - - -static void AppendList(const ALCchar *name, ALCchar **List, size_t *ListSize) -{ - size_t len = strlen(name); - void *temp; - - if(len == 0) - return; - - temp = realloc(*List, (*ListSize) + len + 2); - if(!temp) - { - AL_PRINT("Realloc failed to add %s!\n", name); - return; - } - *List = temp; - - memcpy((*List)+(*ListSize), name, len+1); - *ListSize += len+1; - (*List)[*ListSize] = 0; -} - -#define DECL_APPEND_LIST_FUNC(type) \ -void Append##type##List(const ALCchar *name) \ -{ AppendList(name, &alc##type##List, &alc##type##ListSize); } - -DECL_APPEND_LIST_FUNC(Device) -DECL_APPEND_LIST_FUNC(AllDevice) -DECL_APPEND_LIST_FUNC(CaptureDevice) - -#undef DECL_APPEND_LIST_FUNC - - -void al_print(const char *fname, unsigned int line, const char *fmt, ...) -{ - const char *fn; - char str[256]; - int i; - - fn = strrchr(fname, '/'); - if(!fn) fn = strrchr(fname, '\\');; - if(!fn) fn = fname; - else fn += 1; - - i = snprintf(str, sizeof(str), "AL lib: %s:%d: ", fn, line); - if(i < (int)sizeof(str) && i > 0) - { - va_list ap; - va_start(ap, fmt); - vsnprintf(str+i, sizeof(str)-i, fmt, ap); - va_end(ap); - } - str[sizeof(str)-1] = 0; - - fprintf(LogFile, "%s", str); - fflush(LogFile); -} - -void SetRTPriority(void) -{ - ALboolean failed; - -#ifdef _WIN32 - if(RTPrioLevel > 0) - failed = !SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL); - else - failed = !SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_NORMAL); -#elif defined(HAVE_PTHREAD_SETSCHEDPARAM) - struct sched_param param; - - if(RTPrioLevel > 0) - { - /* Use the minimum real-time priority possible for now (on Linux this - * should be 1 for SCHED_RR) */ - param.sched_priority = sched_get_priority_min(SCHED_RR); - failed = !!pthread_setschedparam(pthread_self(), SCHED_RR, ¶m); - } - else - { - param.sched_priority = 0; - failed = !!pthread_setschedparam(pthread_self(), SCHED_OTHER, ¶m); - } -#else - /* Real-time priority not available */ - failed = (RTPrioLevel>0); -#endif - if(failed) - AL_PRINT("Failed to set priority level for thread\n"); -} - - -void InitUIntMap(UIntMap *map) -{ - map->array = NULL; - map->size = 0; - map->maxsize = 0; -} - -void ResetUIntMap(UIntMap *map) -{ - free(map->array); - map->array = NULL; - map->size = 0; - map->maxsize = 0; -} - -ALenum InsertUIntMapEntry(UIntMap *map, ALuint key, ALvoid *value) -{ - ALsizei pos = 0; - - if(map->size > 0) - { - ALsizei low = 0; - ALsizei high = map->size - 1; - while(low < high) - { - ALsizei mid = low + (high-low)/2; - if(map->array[mid].key < key) - low = mid + 1; - else - high = mid; - } - if(map->array[low].key < key) - low++; - pos = low; - } - - if(pos == map->size || map->array[pos].key != key) - { - if(map->size == map->maxsize) - { - ALvoid *temp; - ALsizei newsize; - - newsize = (map->maxsize ? (map->maxsize<<1) : 4); - if(newsize < map->maxsize) - return AL_OUT_OF_MEMORY; - - temp = realloc(map->array, newsize*sizeof(map->array[0])); - if(!temp) return AL_OUT_OF_MEMORY; - map->array = temp; - map->maxsize = newsize; - } - - map->size++; - if(pos < map->size-1) - memmove(&map->array[pos+1], &map->array[pos], - (map->size-1-pos)*sizeof(map->array[0])); - } - map->array[pos].key = key; - map->array[pos].value = value; - - return AL_NO_ERROR; -} - -void RemoveUIntMapKey(UIntMap *map, ALuint key) -{ - if(map->size > 0) - { - ALsizei low = 0; - ALsizei high = map->size - 1; - while(low < high) - { - ALsizei mid = low + (high-low)/2; - if(map->array[mid].key < key) - low = mid + 1; - else - high = mid; - } - if(map->array[low].key == key) - { - if(low < map->size-1) - memmove(&map->array[low], &map->array[low+1], - (map->size-1-low)*sizeof(map->array[0])); - map->size--; - } - } -} - -ALvoid *LookupUIntMapKey(UIntMap *map, ALuint key) -{ - if(map->size > 0) - { - ALsizei low = 0; - ALsizei high = map->size - 1; - while(low < high) - { - ALsizei mid = low + (high-low)/2; - if(map->array[mid].key < key) - low = mid + 1; - else - high = mid; - } - if(map->array[low].key == key) - return map->array[low].value; - } - return NULL; -} - - -ALuint BytesFromDevFmt(enum DevFmtType type) -{ - switch(type) - { - case DevFmtByte: return sizeof(ALbyte); - case DevFmtUByte: return sizeof(ALubyte); - case DevFmtShort: return sizeof(ALshort); - case DevFmtUShort: return sizeof(ALushort); - case DevFmtFloat: return sizeof(ALfloat); - } - return 0; -} -ALuint ChannelsFromDevFmt(enum DevFmtChannels chans) -{ - switch(chans) - { - case DevFmtMono: return 1; - case DevFmtStereo: return 2; - case DevFmtQuad: return 4; - case DevFmtX51: return 6; - case DevFmtX61: return 7; - case DevFmtX71: return 8; - } - return 0; -} -ALboolean DecomposeDevFormat(ALenum format, enum DevFmtChannels *chans, - enum DevFmtType *type) -{ - switch(format) - { - case AL_FORMAT_MONO8: - *chans = DevFmtMono; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_MONO16: - *chans = DevFmtMono; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_MONO_FLOAT32: - *chans = DevFmtMono; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_STEREO8: - *chans = DevFmtStereo; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_STEREO16: - *chans = DevFmtStereo; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_STEREO_FLOAT32: - *chans = DevFmtStereo; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_QUAD8: - *chans = DevFmtQuad; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_QUAD16: - *chans = DevFmtQuad; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_QUAD32: - *chans = DevFmtQuad; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_51CHN8: - *chans = DevFmtX51; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_51CHN16: - *chans = DevFmtX51; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_51CHN32: - *chans = DevFmtX51; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_61CHN8: - *chans = DevFmtX61; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_61CHN16: - *chans = DevFmtX61; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_61CHN32: - *chans = DevFmtX61; - *type = DevFmtFloat; - return AL_TRUE; - case AL_FORMAT_71CHN8: - *chans = DevFmtX71; - *type = DevFmtUByte; - return AL_TRUE; - case AL_FORMAT_71CHN16: - *chans = DevFmtX71; - *type = DevFmtShort; - return AL_TRUE; - case AL_FORMAT_71CHN32: - *chans = DevFmtX71; - *type = DevFmtFloat; - return AL_TRUE; - } - return AL_FALSE; -} - -/* - IsDevice - - Check pDevice is a valid Device pointer -*/ -static ALCboolean IsDevice(ALCdevice *pDevice) -{ - ALCdevice *pTempDevice; - - SuspendContext(NULL); - - pTempDevice = g_pDeviceList; - while(pTempDevice && pTempDevice != pDevice) - pTempDevice = pTempDevice->next; - - ProcessContext(NULL); - - return (pTempDevice ? ALC_TRUE : ALC_FALSE); -} - -/* - IsContext - - Check pContext is a valid Context pointer -*/ -static ALCboolean IsContext(ALCcontext *pContext) -{ - ALCcontext *pTempContext; - - SuspendContext(NULL); - - pTempContext = g_pContextList; - while (pTempContext && pTempContext != pContext) - pTempContext = pTempContext->next; - - ProcessContext(NULL); - - return (pTempContext ? ALC_TRUE : ALC_FALSE); -} - - -/* - alcSetError - - Store latest ALC Error -*/ -ALCvoid alcSetError(ALCdevice *device, ALenum errorCode) -{ - if(IsDevice(device)) - device->LastError = errorCode; - else - g_eLastNullDeviceError = errorCode; -} - - -/* UpdateDeviceParams: - * - * Updates device parameters according to the attribute list. - */ -static ALCboolean UpdateDeviceParams(ALCdevice *device, const ALCint *attrList) -{ - ALCuint freq, numMono, numStereo, numSends; - ALboolean running; - ALuint oldRate; - ALuint attrIdx; - ALuint i; - - running = ((device->NumContexts > 0) ? AL_TRUE : AL_FALSE); - oldRate = device->Frequency; - - // Check for attributes - if(attrList && attrList[0]) - { - // If a context is already running on the device, stop playback so the - // device attributes can be updated - if(running) - { - ProcessContext(NULL); - ALCdevice_StopPlayback(device); - SuspendContext(NULL); - running = AL_FALSE; - } - - freq = device->Frequency; - numMono = device->NumMonoSources; - numStereo = device->NumStereoSources; - numSends = device->NumAuxSends; - - attrIdx = 0; - while(attrList[attrIdx]) - { - if(attrList[attrIdx] == ALC_FREQUENCY && - !ConfigValueExists(NULL, "frequency")) - { - freq = attrList[attrIdx + 1]; - if(freq < 8000) - freq = 8000; - } - - if(attrList[attrIdx] == ALC_STEREO_SOURCES) - { - numStereo = attrList[attrIdx + 1]; - if(numStereo > device->MaxNoOfSources) - numStereo = device->MaxNoOfSources; - - numMono = device->MaxNoOfSources - numStereo; - } - - if(attrList[attrIdx] == ALC_MAX_AUXILIARY_SENDS && - !ConfigValueExists(NULL, "sends")) - { - numSends = attrList[attrIdx + 1]; - if(numSends > MAX_SENDS) - numSends = MAX_SENDS; - } - - attrIdx += 2; - } - - device->UpdateSize = (ALuint64)device->UpdateSize * freq / - device->Frequency; - - device->Frequency = freq; - device->NumMonoSources = numMono; - device->NumStereoSources = numStereo; - device->NumAuxSends = numSends; - } - - if(running) - return ALC_TRUE; - - if(ALCdevice_ResetPlayback(device) == ALC_FALSE) - return ALC_FALSE; - - aluInitPanning(device); - - for(i = 0;i < MAXCHANNELS;i++) - { - device->ClickRemoval[i] = int2ALfp(0); - device->PendingClicks[i] = int2ALfp(0); - } - - for(i = 0;i < device->NumContexts;i++) - { - ALCcontext *context = device->Contexts[i]; - ALsizei pos; - - SuspendContext(context); - for(pos = 0;pos < context->EffectSlotMap.size;pos++) - { - ALeffectslot *slot = context->EffectSlotMap.array[pos].value; - - if(ALEffect_DeviceUpdate(slot->EffectState, device) == AL_FALSE) - { - ProcessContext(context); - return ALC_FALSE; - } - ALEffect_Update(slot->EffectState, context, &slot->effect); - } - - for(pos = 0;pos < context->SourceMap.size;pos++) - { - ALsource *source = context->SourceMap.array[pos].value; - ALuint s = device->NumAuxSends; - while(s < MAX_SENDS) - { - if(source->Send[s].Slot) - source->Send[s].Slot->refcount--; - source->Send[s].Slot = NULL; - source->Send[s].WetFilter.type = 0; - source->Send[s].WetFilter.filter = 0; - s++; - } - source->NeedsUpdate = AL_TRUE; - } - ProcessContext(context); - } - - if(device->Bs2bLevel > 0 && device->Bs2bLevel <= 6) - { - if(!device->Bs2b) - { - device->Bs2b = calloc(1, sizeof(*device->Bs2b)); - bs2b_clear(device->Bs2b); - } - bs2b_set_srate(device->Bs2b, device->Frequency); - bs2b_set_level(device->Bs2b, device->Bs2bLevel); - } - else - { - free(device->Bs2b); - device->Bs2b = NULL; - } - - if(ChannelsFromDevFmt(device->FmtChans) <= 2) - { - device->HeadDampen = float2ALfp(GetConfigValueFloat(NULL, "head_dampen", DEFAULT_HEAD_DAMPEN)); - device->HeadDampen = __min(device->HeadDampen, int2ALfp(1)); - device->HeadDampen = __max(device->HeadDampen, int2ALfp(0)); - } - else - device->HeadDampen = int2ALfp(0); - - return ALC_TRUE; -} - - -/* - SuspendContext - - Thread-safe entry -*/ -ALCvoid SuspendContext(ALCcontext *pContext) -{ - (void)pContext; - EnterCriticalSection(&g_csMutex); -} - - -/* - ProcessContext - - Thread-safe exit -*/ -ALCvoid ProcessContext(ALCcontext *pContext) -{ - (void)pContext; - LeaveCriticalSection(&g_csMutex); -} - - -/* - GetContextSuspended - - Returns the currently active Context, in a locked state -*/ -ALCcontext *GetContextSuspended(void) -{ - ALCcontext *pContext = NULL; - - SuspendContext(NULL); - - pContext = tls_get(LocalContext); - if(pContext && !IsContext(pContext)) - { - tls_set(LocalContext, NULL); - pContext = NULL; - } - if(!pContext) - pContext = GlobalContext; - - if(pContext) - SuspendContext(pContext); - - ProcessContext(NULL); - - return pContext; -} - - -/* - InitContext - - Initialize Context variables -*/ -static ALvoid InitContext(ALCcontext *pContext) -{ - //Initialise listener - pContext->Listener.Gain = int2ALfp(1); - pContext->Listener.MetersPerUnit = int2ALfp(1); - pContext->Listener.Position[0] = int2ALfp(0); - pContext->Listener.Position[1] = int2ALfp(0); - pContext->Listener.Position[2] = int2ALfp(0); - pContext->Listener.Velocity[0] = int2ALfp(0); - pContext->Listener.Velocity[1] = int2ALfp(0); - pContext->Listener.Velocity[2] = int2ALfp(0); - pContext->Listener.Forward[0] = int2ALfp(0); - pContext->Listener.Forward[1] = int2ALfp(0); - pContext->Listener.Forward[2] = int2ALfp(-1); - pContext->Listener.Up[0] = int2ALfp(0); - pContext->Listener.Up[1] = int2ALfp(1); - pContext->Listener.Up[2] = int2ALfp(0); - - //Validate pContext - pContext->LastError = AL_NO_ERROR; - pContext->Suspended = AL_FALSE; - pContext->ActiveSourceCount = 0; - InitUIntMap(&pContext->SourceMap); - InitUIntMap(&pContext->EffectSlotMap); - - //Set globals - pContext->DistanceModel = AL_INVERSE_DISTANCE_CLAMPED; - pContext->SourceDistanceModel = AL_FALSE; - pContext->DopplerFactor = int2ALfp(1); - pContext->DopplerVelocity = int2ALfp(1); - pContext->flSpeedOfSound = float2ALfp(SPEEDOFSOUNDMETRESPERSEC); - pContext->PrioritySlots = 0; - - pContext->ExtensionList = alExtList; -} - - -/* - ExitContext - - Clean up Context, destroy any remaining Sources -*/ -static ALCvoid ExitContext(ALCcontext *pContext) -{ - //Invalidate context - pContext->LastError = AL_NO_ERROR; -} - -/////////////////////////////////////////////////////// - - -/////////////////////////////////////////////////////// -// ALC Functions calls - - -// This should probably move to another c file but for now ... -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice(const ALCchar *deviceName, ALCuint frequency, ALCenum format, ALCsizei SampleSize) -{ - ALCboolean DeviceFound = ALC_FALSE; - ALCdevice *device = NULL; - ALCint i; - - if(SampleSize <= 0) - { - alcSetError(NULL, ALC_INVALID_VALUE); - return NULL; - } - - if(deviceName && !deviceName[0]) - deviceName = NULL; - - device = calloc(1, sizeof(ALCdevice)); - if(!device) - { - alcSetError(NULL, ALC_OUT_OF_MEMORY); - return NULL; - } - - //Validate device - device->Connected = ALC_TRUE; - device->IsCaptureDevice = AL_TRUE; - - device->szDeviceName = NULL; - - device->Frequency = frequency; - if(DecomposeDevFormat(format, &device->FmtChans, &device->FmtType) == AL_FALSE) - { - free(device); - alcSetError(NULL, ALC_INVALID_ENUM); - return NULL; - } - - device->UpdateSize = SampleSize; - device->NumUpdates = 1; - - SuspendContext(NULL); - for(i = 0;BackendList[i].Init;i++) - { - device->Funcs = &BackendList[i].Funcs; - if(ALCdevice_OpenCapture(device, deviceName)) - { - device->next = g_pDeviceList; - g_pDeviceList = device; - g_ulDeviceCount++; - - DeviceFound = ALC_TRUE; - break; - } - } - ProcessContext(NULL); - - if(!DeviceFound) - { - alcSetError(NULL, ALC_INVALID_VALUE); - free(device); - device = NULL; - } - - return device; -} - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice(ALCdevice *pDevice) -{ - ALCdevice **list; - - if(!IsDevice(pDevice) || !pDevice->IsCaptureDevice) - { - alcSetError(pDevice, ALC_INVALID_DEVICE); - return ALC_FALSE; - } - - SuspendContext(NULL); - - list = &g_pDeviceList; - while(*list != pDevice) - list = &(*list)->next; - - *list = (*list)->next; - g_ulDeviceCount--; - - ProcessContext(NULL); - - ALCdevice_CloseCapture(pDevice); - - free(pDevice->szDeviceName); - pDevice->szDeviceName = NULL; - - free(pDevice); - - return ALC_TRUE; -} - -ALC_API void ALC_APIENTRY alcCaptureStart(ALCdevice *device) -{ - SuspendContext(NULL); - if(!IsDevice(device) || !device->IsCaptureDevice) - alcSetError(device, ALC_INVALID_DEVICE); - else if(device->Connected) - ALCdevice_StartCapture(device); - ProcessContext(NULL); -} - -ALC_API void ALC_APIENTRY alcCaptureStop(ALCdevice *device) -{ - SuspendContext(NULL); - if(!IsDevice(device) || !device->IsCaptureDevice) - alcSetError(device, ALC_INVALID_DEVICE); - else - ALCdevice_StopCapture(device); - ProcessContext(NULL); -} - -ALC_API void ALC_APIENTRY alcCaptureSamples(ALCdevice *device, ALCvoid *buffer, ALCsizei samples) -{ - SuspendContext(NULL); - if(!IsDevice(device) || !device->IsCaptureDevice) - alcSetError(device, ALC_INVALID_DEVICE); - else - ALCdevice_CaptureSamples(device, buffer, samples); - ProcessContext(NULL); -} - -/* - alcGetError - - Return last ALC generated error code -*/ -ALC_API ALCenum ALC_APIENTRY alcGetError(ALCdevice *device) -{ - ALCenum errorCode; - - if(IsDevice(device)) - { - errorCode = device->LastError; - device->LastError = ALC_NO_ERROR; - } - else - { - errorCode = g_eLastNullDeviceError; - g_eLastNullDeviceError = ALC_NO_ERROR; - } - return errorCode; -} - - -/* - alcSuspendContext - - Not functional -*/ -ALC_API ALCvoid ALC_APIENTRY alcSuspendContext(ALCcontext *pContext) -{ - SuspendContext(NULL); - if(IsContext(pContext)) - pContext->Suspended = AL_TRUE; - ProcessContext(NULL); -} - - -/* - alcProcessContext - - Not functional -*/ -ALC_API ALCvoid ALC_APIENTRY alcProcessContext(ALCcontext *pContext) -{ - SuspendContext(NULL); - if(IsContext(pContext)) - pContext->Suspended = AL_FALSE; - ProcessContext(NULL); -} - - -/* - alcGetString - - Returns information about the Device, and error strings -*/ -ALC_API const ALCchar* ALC_APIENTRY alcGetString(ALCdevice *pDevice,ALCenum param) -{ - const ALCchar *value = NULL; - - switch (param) - { - case ALC_NO_ERROR: - value = alcNoError; - break; - - case ALC_INVALID_ENUM: - value = alcErrInvalidEnum; - break; - - case ALC_INVALID_VALUE: - value = alcErrInvalidValue; - break; - - case ALC_INVALID_DEVICE: - value = alcErrInvalidDevice; - break; - - case ALC_INVALID_CONTEXT: - value = alcErrInvalidContext; - break; - - case ALC_OUT_OF_MEMORY: - value = alcErrOutOfMemory; - break; - - case ALC_DEVICE_SPECIFIER: - if(IsDevice(pDevice)) - value = pDevice->szDeviceName; - else - { - ProbeDeviceList(); - value = alcDeviceList; - } - break; - - case ALC_ALL_DEVICES_SPECIFIER: - ProbeAllDeviceList(); - value = alcAllDeviceList; - break; - - case ALC_CAPTURE_DEVICE_SPECIFIER: - if(IsDevice(pDevice)) - value = pDevice->szDeviceName; - else - { - ProbeCaptureDeviceList(); - value = alcCaptureDeviceList; - } - break; - - /* Default devices are always first in the list */ - case ALC_DEFAULT_DEVICE_SPECIFIER: - if(!alcDeviceList) - ProbeDeviceList(); - - free(alcDefaultDeviceSpecifier); - alcDefaultDeviceSpecifier = strdup(alcDeviceList ? alcDeviceList : ""); - if(!alcDefaultDeviceSpecifier) - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - value = alcDefaultDeviceSpecifier; - break; - - case ALC_DEFAULT_ALL_DEVICES_SPECIFIER: - if(!alcAllDeviceList) - ProbeAllDeviceList(); - - free(alcDefaultAllDeviceSpecifier); - alcDefaultAllDeviceSpecifier = strdup(alcAllDeviceList ? - alcAllDeviceList : ""); - if(!alcDefaultAllDeviceSpecifier) - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - value = alcDefaultAllDeviceSpecifier; - break; - - case ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER: - if(!alcCaptureDeviceList) - ProbeCaptureDeviceList(); - - free(alcCaptureDefaultDeviceSpecifier); - alcCaptureDefaultDeviceSpecifier = strdup(alcCaptureDeviceList ? - alcCaptureDeviceList : ""); - if(!alcCaptureDefaultDeviceSpecifier) - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - value = alcCaptureDefaultDeviceSpecifier; - break; - - case ALC_EXTENSIONS: - if(IsDevice(pDevice)) - value = alcExtensionList; - else - value = alcNoDeviceExtList; - break; - - default: - alcSetError(pDevice, ALC_INVALID_ENUM); - break; - } - - return value; -} - - -/* - alcGetIntegerv - - Returns information about the Device and the version of Open AL -*/ -ALC_API ALCvoid ALC_APIENTRY alcGetIntegerv(ALCdevice *device,ALCenum param,ALsizei size,ALCint *data) -{ - if(size == 0 || data == NULL) - { - alcSetError(device, ALC_INVALID_VALUE); - return; - } - - if(IsDevice(device) && device->IsCaptureDevice) - { - SuspendContext(NULL); - - // Capture device - switch (param) - { - case ALC_CAPTURE_SAMPLES: - *data = ALCdevice_AvailableSamples(device); - break; - - case ALC_CONNECTED: - *data = device->Connected; - break; - - default: - alcSetError(device, ALC_INVALID_ENUM); - break; - } - - ProcessContext(NULL); - return; - } - - // Playback Device - switch (param) - { - case ALC_MAJOR_VERSION: - *data = alcMajorVersion; - break; - - case ALC_MINOR_VERSION: - *data = alcMinorVersion; - break; - - case ALC_EFX_MAJOR_VERSION: - *data = alcEFXMajorVersion; - break; - - case ALC_EFX_MINOR_VERSION: - *data = alcEFXMinorVersion; - break; - - case ALC_MAX_AUXILIARY_SENDS: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->NumAuxSends; - break; - - case ALC_ATTRIBUTES_SIZE: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = 13; - break; - - case ALC_ALL_ATTRIBUTES: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else if (size < 13) - alcSetError(device, ALC_INVALID_VALUE); - else - { - int i = 0; - - SuspendContext(NULL); - data[i++] = ALC_FREQUENCY; - data[i++] = device->Frequency; - - data[i++] = ALC_REFRESH; - data[i++] = device->Frequency / device->UpdateSize; - - data[i++] = ALC_SYNC; - data[i++] = ALC_FALSE; - - data[i++] = ALC_MONO_SOURCES; - data[i++] = device->NumMonoSources; - - data[i++] = ALC_STEREO_SOURCES; - data[i++] = device->NumStereoSources; - - data[i++] = ALC_MAX_AUXILIARY_SENDS; - data[i++] = device->NumAuxSends; - - data[i++] = 0; - ProcessContext(NULL); - } - break; - - case ALC_FREQUENCY: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->Frequency; - break; - - case ALC_REFRESH: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->Frequency / device->UpdateSize; - break; - - case ALC_SYNC: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = ALC_FALSE; - break; - - case ALC_MONO_SOURCES: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->NumMonoSources; - break; - - case ALC_STEREO_SOURCES: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->NumStereoSources; - break; - - case ALC_CONNECTED: - if(!IsDevice(device)) - alcSetError(device, ALC_INVALID_DEVICE); - else - *data = device->Connected; - break; - - default: - alcSetError(device, ALC_INVALID_ENUM); - break; - } -} - - -/* - alcIsExtensionPresent - - Determines if there is support for a particular extension -*/ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent(ALCdevice *device, const ALCchar *extName) -{ - ALCboolean bResult = ALC_FALSE; - const char *ptr; - size_t len; - - if(!extName) - { - alcSetError(device, ALC_INVALID_VALUE); - return ALC_FALSE; - } - - len = strlen(extName); - ptr = (IsDevice(device) ? alcExtensionList : alcNoDeviceExtList); - while(ptr && *ptr) - { - if(strncasecmp(ptr, extName, len) == 0 && - (ptr[len] == '\0' || isspace(ptr[len]))) - { - bResult = ALC_TRUE; - break; - } - if((ptr=strchr(ptr, ' ')) != NULL) - { - do { - ++ptr; - } while(isspace(*ptr)); - } - } - - return bResult; -} - - -/* - alcGetProcAddress - - Retrieves the function address for a particular extension function -*/ -ALC_API ALCvoid* ALC_APIENTRY alcGetProcAddress(ALCdevice *device, const ALCchar *funcName) -{ - ALsizei i = 0; - - if(!funcName) - { - alcSetError(device, ALC_INVALID_VALUE); - return NULL; - } - - while(alcFunctions[i].funcName && strcmp(alcFunctions[i].funcName,funcName) != 0) - i++; - return alcFunctions[i].address; -} - - -/* - alcGetEnumValue - - Get the value for a particular ALC Enumerated Value -*/ -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue(ALCdevice *device, const ALCchar *enumName) -{ - ALsizei i = 0; - - if(!enumName) - { - alcSetError(device, ALC_INVALID_VALUE); - return (ALCenum)0; - } - - while(enumeration[i].enumName && strcmp(enumeration[i].enumName,enumName) != 0) - i++; - return enumeration[i].value; -} - - -/* - alcCreateContext - - Create and attach a Context to a particular Device. -*/ -ALC_API ALCcontext* ALC_APIENTRY alcCreateContext(ALCdevice *device, const ALCint *attrList) -{ - ALCcontext *ALContext; - void *temp; - - SuspendContext(NULL); - - if(!IsDevice(device) || device->IsCaptureDevice || !device->Connected) - { - alcSetError(device, ALC_INVALID_DEVICE); - ProcessContext(NULL); - return NULL; - } - - // Reset Context Last Error code - device->LastError = ALC_NO_ERROR; - - if(UpdateDeviceParams(device, attrList) == ALC_FALSE) - { - alcSetError(device, ALC_INVALID_DEVICE); - aluHandleDisconnect(device); - ProcessContext(NULL); - ALCdevice_StopPlayback(device); - return NULL; - } - - ALContext = NULL; - temp = realloc(device->Contexts, (device->NumContexts+1) * sizeof(*device->Contexts)); - if(temp) - { - device->Contexts = temp; - - ALContext = calloc(1, sizeof(ALCcontext)); - if(ALContext) - { - ALContext->MaxActiveSources = 256; - ALContext->ActiveSources = malloc(sizeof(ALContext->ActiveSources[0]) * - ALContext->MaxActiveSources); - } - } - if(!ALContext || !ALContext->ActiveSources) - { - free(ALContext); - alcSetError(device, ALC_OUT_OF_MEMORY); - ProcessContext(NULL); - if(device->NumContexts == 0) - ALCdevice_StopPlayback(device); - return NULL; - } - - device->Contexts[device->NumContexts++] = ALContext; - ALContext->Device = device; - - InitContext(ALContext); - - ALContext->next = g_pContextList; - g_pContextList = ALContext; - g_ulContextCount++; - - ProcessContext(NULL); - - return ALContext; -} - - -/* - alcDestroyContext - - Remove a Context -*/ -ALC_API ALCvoid ALC_APIENTRY alcDestroyContext(ALCcontext *context) -{ - ALCdevice *Device; - ALCcontext **list; - ALuint i; - - if(!IsContext(context)) - { - alcSetError(NULL, ALC_INVALID_CONTEXT); - return; - } - - Device = context->Device; - - if(Device->NumContexts == 1) - ALCdevice_StopPlayback(Device); - - SuspendContext(NULL); - - if(context == GlobalContext) - GlobalContext = NULL; - - for(i = 0;i < Device->NumContexts;i++) - { - if(Device->Contexts[i] == context) - { - Device->Contexts[i] = Device->Contexts[Device->NumContexts-1]; - Device->NumContexts--; - break; - } - } - - // Lock context - SuspendContext(context); - - if(context->SourceMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcDestroyContext(): deleting %d Source(s)\n", context->SourceMap.size); -#endif - ReleaseALSources(context); - } - ResetUIntMap(&context->SourceMap); - - if(context->EffectSlotMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcDestroyContext(): deleting %d AuxiliaryEffectSlot(s)\n", context->EffectSlotMap.size); -#endif - ReleaseALAuxiliaryEffectSlots(context); - } - ResetUIntMap(&context->EffectSlotMap); - - free(context->ActiveSources); - context->ActiveSources = NULL; - context->MaxActiveSources = 0; - context->ActiveSourceCount = 0; - - list = &g_pContextList; - while(*list != context) - list = &(*list)->next; - - *list = (*list)->next; - g_ulContextCount--; - - // Unlock context - ProcessContext(context); - ProcessContext(NULL); - - ExitContext(context); - - // Free memory (MUST do this after ProcessContext) - memset(context, 0, sizeof(ALCcontext)); - free(context); -} - - -/* - alcGetCurrentContext - - Returns the currently active Context -*/ -ALC_API ALCcontext* ALC_APIENTRY alcGetCurrentContext(ALCvoid) -{ - ALCcontext *pContext; - - if((pContext=GetContextSuspended()) != NULL) - ProcessContext(pContext); - - return pContext; -} - -/* - alcGetThreadContext - - Returns the currently active thread-local Context -*/ -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void) -{ - ALCcontext *pContext = NULL; - - SuspendContext(NULL); - - pContext = tls_get(LocalContext); - if(pContext && !IsContext(pContext)) - { - tls_set(LocalContext, NULL); - pContext = NULL; - } - - ProcessContext(NULL); - - return pContext; -} - - -/* - alcGetContextsDevice - - Returns the Device that a particular Context is attached to -*/ -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice(ALCcontext *pContext) -{ - ALCdevice *pDevice = NULL; - - SuspendContext(NULL); - if(IsContext(pContext)) - pDevice = pContext->Device; - else - alcSetError(NULL, ALC_INVALID_CONTEXT); - ProcessContext(NULL); - - return pDevice; -} - - -/* - alcMakeContextCurrent - - Makes the given Context the active Context -*/ -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent(ALCcontext *context) -{ - ALboolean bReturn = AL_TRUE; - - SuspendContext(NULL); - - // context must be a valid Context or NULL - if(context == NULL || IsContext(context)) - { - GlobalContext = context; - tls_set(LocalContext, NULL); - } - else - { - alcSetError(NULL, ALC_INVALID_CONTEXT); - bReturn = AL_FALSE; - } - - ProcessContext(NULL); - - return bReturn; -} - -/* - alcSetThreadContext - - Makes the given Context the active Context for the current thread -*/ -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context) -{ - ALboolean bReturn = AL_TRUE; - - SuspendContext(NULL); - - // context must be a valid Context or NULL - if(context == NULL || IsContext(context)) - tls_set(LocalContext, context); - else - { - alcSetError(NULL, ALC_INVALID_CONTEXT); - bReturn = AL_FALSE; - } - - ProcessContext(NULL); - - return bReturn; -} - - -// Sets the default channel order used by most non-WaveFormatEx-based APIs -void SetDefaultChannelOrder(ALCdevice *device) -{ - switch(device->FmtChans) - { - case DevFmtStereo: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; break; - -#ifdef STEREO_ONLY - case DevFmtMono: - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtMono: device->DevChannels[FRONT_CENTER] = 0; break; - - case DevFmtQuad: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; break; - - case DevFmtX51: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; - device->DevChannels[FRONT_CENTER] = 4; - device->DevChannels[LFE] = 5; break; - - case DevFmtX61: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_CENTER] = 4; - device->DevChannels[SIDE_LEFT] = 5; - device->DevChannels[SIDE_RIGHT] = 6; break; - - case DevFmtX71: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; - device->DevChannels[FRONT_CENTER] = 4; - device->DevChannels[LFE] = 5; - device->DevChannels[SIDE_LEFT] = 6; - device->DevChannels[SIDE_RIGHT] = 7; break; -#endif - } -} -// Sets the default order used by WaveFormatEx -void SetDefaultWFXChannelOrder(ALCdevice *device) -{ - switch(device->FmtChans) - { - - case DevFmtStereo: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; break; - -#ifdef STEREO_ONLY - case DevFmtMono: - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtMono: device->DevChannels[FRONT_CENTER] = 0; break; - - case DevFmtQuad: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[BACK_LEFT] = 2; - device->DevChannels[BACK_RIGHT] = 3; break; - - case DevFmtX51: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_LEFT] = 4; - device->DevChannels[BACK_RIGHT] = 5; break; - - case DevFmtX61: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_CENTER] = 4; - device->DevChannels[SIDE_LEFT] = 5; - device->DevChannels[SIDE_RIGHT] = 6; break; - - case DevFmtX71: device->DevChannels[FRONT_LEFT] = 0; - device->DevChannels[FRONT_RIGHT] = 1; - device->DevChannels[FRONT_CENTER] = 2; - device->DevChannels[LFE] = 3; - device->DevChannels[BACK_LEFT] = 4; - device->DevChannels[BACK_RIGHT] = 5; - device->DevChannels[SIDE_LEFT] = 6; - device->DevChannels[SIDE_RIGHT] = 7; break; -#endif - } -} - -static ALenum GetFormatFromString(const char *str) -{ - if(strcasecmp(str, "AL_FORMAT_MONO32") == 0) return AL_FORMAT_MONO_FLOAT32; - if(strcasecmp(str, "AL_FORMAT_STEREO32") == 0) return AL_FORMAT_STEREO_FLOAT32; - if(strcasecmp(str, "AL_FORMAT_QUAD32") == 0) return AL_FORMAT_QUAD32; - if(strcasecmp(str, "AL_FORMAT_51CHN32") == 0) return AL_FORMAT_51CHN32; - if(strcasecmp(str, "AL_FORMAT_61CHN32") == 0) return AL_FORMAT_61CHN32; - if(strcasecmp(str, "AL_FORMAT_71CHN32") == 0) return AL_FORMAT_71CHN32; - - if(strcasecmp(str, "AL_FORMAT_MONO16") == 0) return AL_FORMAT_MONO16; - if(strcasecmp(str, "AL_FORMAT_STEREO16") == 0) return AL_FORMAT_STEREO16; - if(strcasecmp(str, "AL_FORMAT_QUAD16") == 0) return AL_FORMAT_QUAD16; - if(strcasecmp(str, "AL_FORMAT_51CHN16") == 0) return AL_FORMAT_51CHN16; - if(strcasecmp(str, "AL_FORMAT_61CHN16") == 0) return AL_FORMAT_61CHN16; - if(strcasecmp(str, "AL_FORMAT_71CHN16") == 0) return AL_FORMAT_71CHN16; - - if(strcasecmp(str, "AL_FORMAT_MONO8") == 0) return AL_FORMAT_MONO8; - if(strcasecmp(str, "AL_FORMAT_STEREO8") == 0) return AL_FORMAT_STEREO8; - if(strcasecmp(str, "AL_FORMAT_QUAD8") == 0) return AL_FORMAT_QUAD8; - if(strcasecmp(str, "AL_FORMAT_51CHN8") == 0) return AL_FORMAT_51CHN8; - if(strcasecmp(str, "AL_FORMAT_61CHN8") == 0) return AL_FORMAT_61CHN8; - if(strcasecmp(str, "AL_FORMAT_71CHN8") == 0) return AL_FORMAT_71CHN8; - - AL_PRINT("Unknown format: \"%s\"\n", str); - return AL_FORMAT_STEREO16; -} - -/* - alcOpenDevice - - Open the Device specified. -*/ -ALC_API ALCdevice* ALC_APIENTRY alcOpenDevice(const ALCchar *deviceName) -{ - ALboolean bDeviceFound = AL_FALSE; - const ALCchar *fmt; - ALCdevice *device; - ALint i; - - if(deviceName && !deviceName[0]) - deviceName = NULL; - - device = calloc(1, sizeof(ALCdevice)); - if(!device) - { - alcSetError(NULL, ALC_OUT_OF_MEMORY); - return NULL; - } - - //Validate device - device->Connected = ALC_TRUE; - device->IsCaptureDevice = AL_FALSE; - device->LastError = ALC_NO_ERROR; - - device->Bs2b = NULL; - device->szDeviceName = NULL; - - device->Contexts = NULL; - device->NumContexts = 0; - - InitUIntMap(&device->BufferMap); - InitUIntMap(&device->EffectMap); - InitUIntMap(&device->FilterMap); - InitUIntMap(&device->DatabufferMap); - - //Set output format - device->Frequency = GetConfigValueInt(NULL, "frequency", SWMIXER_OUTPUT_RATE); - if(device->Frequency < 8000) - device->Frequency = 8000; - - fmt = GetConfigValue(NULL, "format", "AL_FORMAT_STEREO16"); - if(DecomposeDevFormat(GetFormatFromString(fmt), - &device->FmtChans, &device->FmtType) == AL_FALSE) - { - /* Should never happen... */ - device->FmtChans = DevFmtStereo; - device->FmtType = DevFmtShort; - } - - device->NumUpdates = GetConfigValueInt(NULL, "periods", 4); - if(device->NumUpdates < 2) - device->NumUpdates = 4; - - device->UpdateSize = GetConfigValueInt(NULL, "period_size", 1024); - if(device->UpdateSize <= 0) - device->UpdateSize = 1024; - - device->MaxNoOfSources = GetConfigValueInt(NULL, "sources", 256); - if((ALint)device->MaxNoOfSources <= 0) - device->MaxNoOfSources = 256; - - device->AuxiliaryEffectSlotMax = GetConfigValueInt(NULL, "slots", 4); - if((ALint)device->AuxiliaryEffectSlotMax <= 0) - device->AuxiliaryEffectSlotMax = 4; - - device->NumStereoSources = 1; - device->NumMonoSources = device->MaxNoOfSources - device->NumStereoSources; - - device->NumAuxSends = GetConfigValueInt(NULL, "sends", 1); - if(device->NumAuxSends > MAX_SENDS) - device->NumAuxSends = MAX_SENDS; - - device->Bs2bLevel = GetConfigValueInt(NULL, "cf_level", 0); - - device->DuplicateStereo = GetConfigValueBool(NULL, "stereodup", 1); - - device->HeadDampen = int2ALfp(0); - - // Find a playback device to open - SuspendContext(NULL); - for(i = 0;BackendList[i].Init;i++) - { - - if (BackendList[i].Funcs.OpenPlayback == NULL) { - BackendList[i].Probe(DEVICE_PROBE); - if (BackendList[i].Funcs.OpenPlayback == NULL) { - continue; - } - } - device->Funcs = &BackendList[i].Funcs; - if(ALCdevice_OpenPlayback(device, deviceName)) - { - device->next = g_pDeviceList; - g_pDeviceList = device; - g_ulDeviceCount++; - - bDeviceFound = AL_TRUE; - break; - } - } - ProcessContext(NULL); - - if(!bDeviceFound) - { - // No suitable output device found - alcSetError(NULL, ALC_INVALID_VALUE); - free(device); - device = NULL; - } - - return device; -} - - -/* - alcCloseDevice - - Close the specified Device -*/ -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice(ALCdevice *pDevice) -{ - ALCdevice **list; - - if(!IsDevice(pDevice) || pDevice->IsCaptureDevice) - { - alcSetError(pDevice, ALC_INVALID_DEVICE); - return ALC_FALSE; - } - - SuspendContext(NULL); - - list = &g_pDeviceList; - while(*list != pDevice) - list = &(*list)->next; - - *list = (*list)->next; - g_ulDeviceCount--; - - ProcessContext(NULL); - - if(pDevice->NumContexts > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): destroying %u Context(s)\n", pDevice->NumContexts); -#endif - while(pDevice->NumContexts > 0) - alcDestroyContext(pDevice->Contexts[0]); - } - ALCdevice_ClosePlayback(pDevice); - - if(pDevice->BufferMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Buffer(s)\n", pDevice->BufferMap.size); -#endif - ReleaseALBuffers(pDevice); - } - ResetUIntMap(&pDevice->BufferMap); - - if(pDevice->EffectMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Effect(s)\n", pDevice->EffectMap.size); -#endif - ReleaseALEffects(pDevice); - } - ResetUIntMap(&pDevice->EffectMap); - - if(pDevice->FilterMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Filter(s)\n", pDevice->FilterMap.size); -#endif - ReleaseALFilters(pDevice); - } - ResetUIntMap(&pDevice->FilterMap); - - if(pDevice->DatabufferMap.size > 0) - { -#ifdef _DEBUG - AL_PRINT("alcCloseDevice(): deleting %d Databuffer(s)\n", pDevice->DatabufferMap.size); -#endif - ReleaseALDatabuffers(pDevice); - } - ResetUIntMap(&pDevice->DatabufferMap); - - free(pDevice->Bs2b); - pDevice->Bs2b = NULL; - - free(pDevice->szDeviceName); - pDevice->szDeviceName = NULL; - - free(pDevice->Contexts); - pDevice->Contexts = NULL; - - //Release device structure - memset(pDevice, 0, sizeof(ALCdevice)); - free(pDevice); - - return ALC_TRUE; -} - - -static void ReleaseALC(void) -{ - free(alcDeviceList); alcDeviceList = NULL; - alcDeviceListSize = 0; - free(alcAllDeviceList); alcAllDeviceList = NULL; - alcAllDeviceListSize = 0; - free(alcCaptureDeviceList); alcCaptureDeviceList = NULL; - alcCaptureDeviceListSize = 0; - - free(alcDefaultDeviceSpecifier); - alcDefaultDeviceSpecifier = NULL; - free(alcDefaultAllDeviceSpecifier); - alcDefaultAllDeviceSpecifier = NULL; - free(alcCaptureDefaultDeviceSpecifier); - alcCaptureDefaultDeviceSpecifier = NULL; - -#ifdef _DEBUG - if(g_ulDeviceCount > 0) - AL_PRINT("exit(): closing %u Device%s\n", g_ulDeviceCount, (g_ulDeviceCount>1)?"s":""); -#endif - - while(g_pDeviceList) - { - if(g_pDeviceList->IsCaptureDevice) - alcCaptureCloseDevice(g_pDeviceList); - else - alcCloseDevice(g_pDeviceList); - } -} - -/////////////////////////////////////////////////////// diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/ALu.c b/internal/c/parts/audio/out/android/other/stuff/Alc/ALu.c deleted file mode 100644 index 6e5f31350..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/ALu.c +++ /dev/null @@ -1,1118 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alListener.h" -#include "alAuxEffectSlot.h" -#include "alu.h" -#include "bs2b.h" - -#ifdef MAX_SOURCES_LOW -// For throttling AlSource.c -int alc_max_sources = MAX_SOURCES_LOW; -int alc_active_sources = 0; -int alc_num_cores = 0; -#endif - -static __inline ALvoid aluCrossproduct(const ALfp *inVector1, const ALfp *inVector2, ALfp *outVector) -{ - outVector[0] = (ALfpMult(inVector1[1],inVector2[2]) - ALfpMult(inVector1[2],inVector2[1])); - outVector[1] = (ALfpMult(inVector1[2],inVector2[0]) - ALfpMult(inVector1[0],inVector2[2])); - outVector[2] = (ALfpMult(inVector1[0],inVector2[1]) - ALfpMult(inVector1[1],inVector2[0])); -} - -static __inline ALfp aluDotproduct(const ALfp *inVector1, const ALfp *inVector2) -{ - return (ALfpMult(inVector1[0],inVector2[0]) + ALfpMult(inVector1[1],inVector2[1]) + - ALfpMult(inVector1[2],inVector2[2])); -} - -static __inline ALvoid aluNormalize(ALfp *inVector) -{ - ALfp length, inverse_length; - - length = aluSqrt(aluDotproduct(inVector, inVector)); - if(length != int2ALfp(0)) - { - inverse_length = ALfpDiv(int2ALfp(1),length); - inVector[0] = ALfpMult(inVector[0], inverse_length); - inVector[1] = ALfpMult(inVector[1], inverse_length); - inVector[2] = ALfpMult(inVector[2], inverse_length); - } -} - -static __inline ALvoid aluMatrixVector(ALfp *vector,ALfp w,ALfp matrix[4][4]) -{ - ALfp temp[4] = { - vector[0], vector[1], vector[2], w - }; - - vector[0] = ALfpMult(temp[0],matrix[0][0]) + ALfpMult(temp[1],matrix[1][0]) + ALfpMult(temp[2],matrix[2][0]) + ALfpMult(temp[3],matrix[3][0]); - vector[1] = ALfpMult(temp[0],matrix[0][1]) + ALfpMult(temp[1],matrix[1][1]) + ALfpMult(temp[2],matrix[2][1]) + ALfpMult(temp[3],matrix[3][1]); - vector[2] = ALfpMult(temp[0],matrix[0][2]) + ALfpMult(temp[1],matrix[1][2]) + ALfpMult(temp[2],matrix[2][2]) + ALfpMult(temp[3],matrix[3][2]); -} - - -ALvoid CalcNonAttnSourceParams(ALsource *ALSource, const ALCcontext *ALContext) -{ - ALfp SourceVolume,ListenerGain,MinVolume,MaxVolume; - ALbufferlistitem *BufferListItem; - enum DevFmtChannels DevChans; - enum FmtChannels Channels; - ALfp DryGain, DryGainHF; - ALfp WetGain[MAX_SENDS]; - ALfp WetGainHF[MAX_SENDS]; - ALint NumSends, Frequency; - ALboolean DupStereo; - ALfp Pitch; - ALfp cw; - ALint i; - - /* Get device properties */ - DevChans = ALContext->Device->FmtChans; - DupStereo = ALContext->Device->DuplicateStereo; - NumSends = ALContext->Device->NumAuxSends; - Frequency = ALContext->Device->Frequency; - - /* Get listener properties */ - ListenerGain = ALContext->Listener.Gain; - - /* Get source properties */ - SourceVolume = ALSource->flGain; - MinVolume = ALSource->flMinGain; - MaxVolume = ALSource->flMaxGain; - Pitch = ALSource->flPitch; - - /* Calculate the stepping value */ - Channels = FmtMono; - BufferListItem = ALSource->queue; - while(BufferListItem != NULL) - { - ALbuffer *ALBuffer; - if((ALBuffer=BufferListItem->buffer) != NULL) - { - ALint maxstep = STACK_DATA_SIZE / FrameSizeFromFmt(ALBuffer->FmtChannels, - ALBuffer->FmtType); - maxstep -= ResamplerPadding[ALSource->Resampler] + - ResamplerPrePadding[ALSource->Resampler] + 1; - maxstep = min(maxstep, INT_MAX>>FRACTIONBITS); - - Pitch = ALfpDiv(ALfpMult(Pitch, int2ALfp(ALBuffer->Frequency)), int2ALfp(Frequency)); - if(Pitch > int2ALfp(maxstep)) - ALSource->Params.Step = maxstep<Params.Step = ALfp2int(ALfpMult(Pitch, int2ALfp(FRACTIONONE))); - if(ALSource->Params.Step == 0) - ALSource->Params.Step = 1; - } - - Channels = ALBuffer->FmtChannels; - break; - } - BufferListItem = BufferListItem->next; - } - - /* Calculate gains */ - DryGain = SourceVolume; - DryGain = __min(DryGain,MaxVolume); - DryGain = __max(DryGain,MinVolume); - DryGainHF = int2ALfp(1); - - switch(ALSource->DirectFilter.type) - { - case AL_FILTER_LOWPASS: - DryGain = ALfpMult(DryGain, ALSource->DirectFilter.Gain); - DryGainHF = ALfpMult(DryGainHF, ALSource->DirectFilter.GainHF); - break; - } - - for(i = 0;i < MAXCHANNELS;i++) - { - ALuint i2; - for(i2 = 0;i2 < MAXCHANNELS;i2++) - ALSource->Params.DryGains[i][i2] = int2ALfp(0); - } - - switch(Channels) - { - case FmtMono: - ALSource->Params.DryGains[0][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - break; - case FmtStereo: - if(DupStereo == AL_FALSE) - { - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - } - else - { - switch(DevChans) - { - case DevFmtMono: - case DevFmtStereo: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; - -#ifdef STEREO_ONLY - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtQuad: - case DevFmtX51: - DryGain = ALfpMult(DryGain, aluSqrt(float2ALfp(2.0f/4.0f))); - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; - - case DevFmtX61: - DryGain = ALfpMult(DryGain, aluSqrt(float2ALfp(2.0f/4.0f))); - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; - - case DevFmtX71: - DryGain = ALfpMult(DryGain, aluSqrt(float2ALfp(2.0f/6.0f))); - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[0][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); - break; -#endif - } - } - break; - - case FmtRear: -#ifndef STEREO_ONLY - ALSource->Params.DryGains[0][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtQuad: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtX51: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][LFE] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[4][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[5][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtX61: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][LFE] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[4][BACK_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[5][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[6][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - - case FmtX71: - ALSource->Params.DryGains[0][FRONT_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[1][FRONT_RIGHT] = ALfpMult(DryGain, ListenerGain); -#ifndef STEREO_ONLY - ALSource->Params.DryGains[2][FRONT_CENTER] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[3][LFE] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[4][BACK_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[5][BACK_RIGHT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[6][SIDE_LEFT] = ALfpMult(DryGain, ListenerGain); - ALSource->Params.DryGains[7][SIDE_RIGHT] = ALfpMult(DryGain, ListenerGain); -#endif - break; - } - - for(i = 0;i < NumSends;i++) - { - WetGain[i] = SourceVolume; - WetGain[i] = __min(WetGain[i],MaxVolume); - WetGain[i] = __max(WetGain[i],MinVolume); - WetGainHF[i] = int2ALfp(1); - - switch(ALSource->Send[i].WetFilter.type) - { - case AL_FILTER_LOWPASS: - WetGain[i] = ALfpMult(WetGain[i], ALSource->Send[i].WetFilter.Gain); - WetGainHF[i] = ALfpMult(WetGainHF[i], ALSource->Send[i].WetFilter.GainHF); - break; - } - - ALSource->Params.Send[i].WetGain = ALfpMult(WetGain[i], ListenerGain); - } - - /* Update filter coefficients. Calculations based on the I3DL2 - * spec. */ - cw = float2ALfp(cos(2.0*M_PI * LOWPASSFREQCUTOFF / Frequency)); - - /* We use two chained one-pole filters, so we need to take the - * square root of the squared gain, which is the same as the base - * gain. */ - ALSource->Params.iirFilter.coeff = lpCoeffCalc(DryGainHF, cw); - - for(i = 0;i < NumSends;i++) - { - /* We use a one-pole filter, so we need to take the squared gain */ - ALfp a = lpCoeffCalc(ALfpMult(WetGainHF[i],WetGainHF[i]), cw); - ALSource->Params.Send[i].iirFilter.coeff = a; - } -} - -ALvoid CalcSourceParams(ALsource *ALSource, const ALCcontext *ALContext) -{ - const ALCdevice *Device = ALContext->Device; - ALfp InnerAngle,OuterAngle,Angle,Distance,OrigDist; - ALfp Direction[3],Position[3],SourceToListener[3]; - ALfp Velocity[3],ListenerVel[3]; - ALfp MinVolume,MaxVolume,MinDist,MaxDist,Rolloff,OuterGainHF; - ALfp ConeVolume,ConeHF,SourceVolume,ListenerGain; - ALfp DopplerFactor, DopplerVelocity, SpeedOfSound; - ALfp AirAbsorptionFactor; - ALbufferlistitem *BufferListItem; - ALfp Attenuation, EffectiveDist; - ALfp RoomAttenuation[MAX_SENDS]; - ALfp MetersPerUnit; - ALfp RoomRolloff[MAX_SENDS]; - ALfp DryGain; - ALfp DryGainHF; - ALfp WetGain[MAX_SENDS]; - ALfp WetGainHF[MAX_SENDS]; - ALfp DirGain, AmbientGain; - const ALfp *SpeakerGain; - ALfp Pitch; - ALfp length; - ALuint Frequency; - ALint NumSends; - ALint pos, s, i; - ALfp cw; - - DryGainHF = int2ALfp(1); - for(i = 0;i < MAX_SENDS;i++) - WetGainHF[i] = int2ALfp(1); - - //Get context properties - DopplerFactor = ALfpMult(ALContext->DopplerFactor, ALSource->DopplerFactor); - DopplerVelocity = ALContext->DopplerVelocity; - SpeedOfSound = ALContext->flSpeedOfSound; - NumSends = Device->NumAuxSends; - Frequency = Device->Frequency; - - //Get listener properties - ListenerGain = ALContext->Listener.Gain; - MetersPerUnit = ALContext->Listener.MetersPerUnit; - memcpy(ListenerVel, ALContext->Listener.Velocity, sizeof(ALContext->Listener.Velocity)); - - //Get source properties - SourceVolume = ALSource->flGain; - memcpy(Position, ALSource->vPosition, sizeof(ALSource->vPosition)); - memcpy(Direction, ALSource->vOrientation, sizeof(ALSource->vOrientation)); - memcpy(Velocity, ALSource->vVelocity, sizeof(ALSource->vVelocity)); - MinVolume = ALSource->flMinGain; - MaxVolume = ALSource->flMaxGain; - MinDist = ALSource->flRefDistance; - MaxDist = ALSource->flMaxDistance; - Rolloff = ALSource->flRollOffFactor; - InnerAngle = ALSource->flInnerAngle; - OuterAngle = ALSource->flOuterAngle; - OuterGainHF = ALSource->OuterGainHF; - AirAbsorptionFactor = ALSource->AirAbsorptionFactor; - - //1. Translate Listener to origin (convert to head relative) - if(ALSource->bHeadRelative == AL_FALSE) - { - ALfp U[3],V[3],N[3]; - ALfp Matrix[4][4]; - - // Build transform matrix - memcpy(N, ALContext->Listener.Forward, sizeof(N)); // At-vector - aluNormalize(N); // Normalized At-vector - memcpy(V, ALContext->Listener.Up, sizeof(V)); // Up-vector - aluNormalize(V); // Normalized Up-vector - aluCrossproduct(N, V, U); // Right-vector - aluNormalize(U); // Normalized Right-vector - Matrix[0][0] = U[0]; Matrix[0][1] = V[0]; Matrix[0][2] = -1*N[0]; Matrix[0][3] = int2ALfp(0); - Matrix[1][0] = U[1]; Matrix[1][1] = V[1]; Matrix[1][2] = -1*N[1]; Matrix[1][3] = int2ALfp(0); - Matrix[2][0] = U[2]; Matrix[2][1] = V[2]; Matrix[2][2] = -1*N[2]; Matrix[2][3] = int2ALfp(0); - Matrix[3][0] = int2ALfp(0); Matrix[3][1] = int2ALfp(0); Matrix[3][2] = int2ALfp(0); Matrix[3][3] = int2ALfp(1); - - // Translate position - Position[0] -= ALContext->Listener.Position[0]; - Position[1] -= ALContext->Listener.Position[1]; - Position[2] -= ALContext->Listener.Position[2]; - - // Transform source position and direction into listener space - aluMatrixVector(Position, int2ALfp(1), Matrix); - aluMatrixVector(Direction, int2ALfp(0), Matrix); - // Transform source and listener velocity into listener space - aluMatrixVector(Velocity, int2ALfp(0), Matrix); - aluMatrixVector(ListenerVel, int2ALfp(0), Matrix); - } - else - ListenerVel[0] = ListenerVel[1] = ListenerVel[2] = int2ALfp(0); - - SourceToListener[0] = -1*Position[0]; - SourceToListener[1] = -1*Position[1]; - SourceToListener[2] = -1*Position[2]; - aluNormalize(SourceToListener); - aluNormalize(Direction); - - //2. Calculate distance attenuation - Distance = aluSqrt(aluDotproduct(Position, Position)); - OrigDist = Distance; - - Attenuation = int2ALfp(1); - for(i = 0;i < NumSends;i++) - { - RoomAttenuation[i] = int2ALfp(1); - - RoomRolloff[i] = ALSource->RoomRolloffFactor; - if(ALSource->Send[i].Slot && - (ALSource->Send[i].Slot->effect.type == AL_EFFECT_REVERB || - ALSource->Send[i].Slot->effect.type == AL_EFFECT_EAXREVERB)) - RoomRolloff[i] += ALSource->Send[i].Slot->effect.Reverb.RoomRolloffFactor; - } - - switch(ALContext->SourceDistanceModel ? ALSource->DistanceModel : - ALContext->DistanceModel) - { - case AL_INVERSE_DISTANCE_CLAMPED: - Distance=__max(Distance,MinDist); - Distance=__min(Distance,MaxDist); - if(MaxDist < MinDist) - break; - //fall-through - case AL_INVERSE_DISTANCE: - if(MinDist > int2ALfp(0)) - { - if((MinDist + ALfpMult(Rolloff, (Distance - MinDist))) > int2ALfp(0)) - Attenuation = ALfpDiv(MinDist, (MinDist + ALfpMult(Rolloff, (Distance - MinDist)))); - for(i = 0;i < NumSends;i++) - { - if((MinDist + ALfpMult(RoomRolloff[i], (Distance - MinDist))) > int2ALfp(0)) - RoomAttenuation[i] = ALfpDiv(MinDist, (MinDist + ALfpMult(RoomRolloff[i], (Distance - MinDist)))); - } - } - break; - - case AL_LINEAR_DISTANCE_CLAMPED: - Distance=__max(Distance,MinDist); - Distance=__min(Distance,MaxDist); - if(MaxDist < MinDist) - break; - //fall-through - case AL_LINEAR_DISTANCE: - if(MaxDist != MinDist) - { - Attenuation = int2ALfp(1) - ALfpDiv(ALfpMult(Rolloff,(Distance-MinDist)), (MaxDist - MinDist)); - Attenuation = __max(Attenuation, int2ALfp(0)); - for(i = 0;i < NumSends;i++) - { - RoomAttenuation[i] = int2ALfp(1) - ALfpDiv(ALfpMult(RoomRolloff[i],(Distance-MinDist)),(MaxDist - MinDist)); - RoomAttenuation[i] = __max(RoomAttenuation[i], int2ALfp(0)); - } - } - break; - - case AL_EXPONENT_DISTANCE_CLAMPED: - Distance=__max(Distance,MinDist); - Distance=__min(Distance,MaxDist); - if(MaxDist < MinDist) - break; - //fall-through - case AL_EXPONENT_DISTANCE: - if(Distance > int2ALfp(0) && MinDist > int2ALfp(0)) - { - Attenuation = aluPow(ALfpDiv(Distance,MinDist), (-1*Rolloff)); - for(i = 0;i < NumSends;i++) - RoomAttenuation[i] = aluPow(ALfpDiv(Distance,MinDist), (-1*RoomRolloff[i])); - } - break; - - case AL_NONE: - break; - } - - // Source Gain + Attenuation - DryGain = ALfpMult(SourceVolume, Attenuation); - for(i = 0;i < NumSends;i++) - WetGain[i] = ALfpMult(SourceVolume, RoomAttenuation[i]); - - EffectiveDist = int2ALfp(0); - if(MinDist > int2ALfp(0) && Attenuation < int2ALfp(1)) - EffectiveDist = ALfpMult((ALfpDiv(MinDist,Attenuation) - MinDist),MetersPerUnit); - - // Distance-based air absorption - if(AirAbsorptionFactor > int2ALfp(0) && EffectiveDist > int2ALfp(0)) - { - ALfp absorb; - - // Absorption calculation is done in dB - absorb = ALfpMult(ALfpMult(AirAbsorptionFactor,float2ALfp(AIRABSORBGAINDBHF)), - EffectiveDist); - // Convert dB to linear gain before applying - absorb = aluPow(int2ALfp(10), ALfpDiv(absorb,int2ALfp(20))); - - DryGainHF = ALfpMult(DryGainHF,absorb); - } - - //3. Apply directional soundcones - Angle = ALfpMult(aluAcos(aluDotproduct(Direction,SourceToListener)), float2ALfp(180.0f/M_PI)); - if(Angle >= InnerAngle && Angle <= OuterAngle) - { - ALfp scale; scale = ALfpDiv((Angle-InnerAngle), (OuterAngle-InnerAngle)); - ConeVolume = int2ALfp(1) + ALfpMult((ALSource->flOuterGain - int2ALfp(1)),scale); - ConeHF = (int2ALfp(1)+ALfpMult((OuterGainHF-int2ALfp(1)),scale)); - } - else if(Angle > OuterAngle) - { - ConeVolume = (int2ALfp(1)+(ALSource->flOuterGain-int2ALfp(1))); - ConeHF = (int2ALfp(1)+(OuterGainHF-int2ALfp(1))); - } - else - { - ConeVolume = int2ALfp(1); - ConeHF = int2ALfp(1); - } - - // Apply some high-frequency attenuation for sources behind the listener - // NOTE: This should be aluDotproduct({0,0,-1}, ListenerToSource), however - // that is equivalent to aluDotproduct({0,0,1}, SourceToListener), which is - // the same as SourceToListener[2] - Angle = ALfpMult(aluAcos(SourceToListener[2]), float2ALfp(180.0f/M_PI)); - // Sources within the minimum distance attenuate less - if(OrigDist < MinDist) - Angle = ALfpMult(Angle, ALfpDiv(OrigDist,MinDist)); - if(Angle > int2ALfp(90)) - { - ALfp scale; scale = ALfpDiv((Angle-int2ALfp(90)), float2ALfp(180.1f-90.0f)); // .1 to account for fp errors - ConeHF = ALfpMult(ConeHF, (int2ALfp(1) - ALfpMult(Device->HeadDampen,scale))); - } - - DryGain = ALfpMult(DryGain, ConeVolume); - if(ALSource->DryGainHFAuto) - DryGainHF = ALfpMult(DryGainHF, ConeHF); - - // Clamp to Min/Max Gain - DryGain = __min(DryGain,MaxVolume); - DryGain = __max(DryGain,MinVolume); - - for(i = 0;i < NumSends;i++) - { - ALeffectslot *Slot = ALSource->Send[i].Slot; - - if(!Slot || Slot->effect.type == AL_EFFECT_NULL) - { - ALSource->Params.Send[i].WetGain = int2ALfp(0); - WetGainHF[i] = int2ALfp(1); - continue; - } - - if(Slot->AuxSendAuto) - { - if(ALSource->WetGainAuto) - WetGain[i] = ALfpMult(WetGain[i], ConeVolume); - if(ALSource->WetGainHFAuto) - WetGainHF[i] = ALfpMult(WetGainHF[i], ConeHF); - - // Clamp to Min/Max Gain - WetGain[i] = __min(WetGain[i],MaxVolume); - WetGain[i] = __max(WetGain[i],MinVolume); - - if(Slot->effect.type == AL_EFFECT_REVERB || - Slot->effect.type == AL_EFFECT_EAXREVERB) - { - /* Apply a decay-time transformation to the wet path, based on - * the attenuation of the dry path. - * - * Using the approximate (effective) source to listener - * distance, the initial decay of the reverb effect is - * calculated and applied to the wet path. - */ - WetGain[i] = ALfpMult(WetGain[i], - aluPow(int2ALfp(10), - ALfpDiv(ALfpMult(ALfpDiv(EffectiveDist, - ALfpMult(float2ALfp(SPEEDOFSOUNDMETRESPERSEC), Slot->effect.Reverb.DecayTime)), - int2ALfp(-60)), - int2ALfp(20)))); - - WetGainHF[i] = ALfpMult(WetGainHF[i], - aluPow(Slot->effect.Reverb.AirAbsorptionGainHF, - ALfpMult(AirAbsorptionFactor, EffectiveDist))); - } - } - else - { - /* If the slot's auxiliary send auto is off, the data sent to the - * effect slot is the same as the dry path, sans filter effects */ - WetGain[i] = DryGain; - WetGainHF[i] = DryGainHF; - } - - switch(ALSource->Send[i].WetFilter.type) - { - case AL_FILTER_LOWPASS: - WetGain[i] = ALfpMult(WetGain[i], ALSource->Send[i].WetFilter.Gain); - WetGainHF[i] = ALfpMult(WetGainHF[i], ALSource->Send[i].WetFilter.GainHF); - break; - } - ALSource->Params.Send[i].WetGain = ALfpMult(WetGain[i], ListenerGain); - } - - // Apply filter gains and filters - switch(ALSource->DirectFilter.type) - { - case AL_FILTER_LOWPASS: - DryGain = ALfpMult(DryGain, ALSource->DirectFilter.Gain); - DryGainHF = ALfpMult(DryGainHF, ALSource->DirectFilter.GainHF); - break; - } - DryGain = ALfpMult(DryGain, ListenerGain); - - // Calculate Velocity - Pitch = ALSource->flPitch; - if(DopplerFactor != int2ALfp(0)) - { - ALfp VSS, VLS; - ALfp MaxVelocity; MaxVelocity = ALfpDiv(ALfpMult(SpeedOfSound,DopplerVelocity), - DopplerFactor); - - VSS = aluDotproduct(Velocity, SourceToListener); - if(VSS >= MaxVelocity) - VSS = (MaxVelocity - int2ALfp(1)); - else if(VSS <= -MaxVelocity) - VSS = (-MaxVelocity + int2ALfp(1)); - - VLS = aluDotproduct(ListenerVel, SourceToListener); - if(VLS >= MaxVelocity) - VLS = (MaxVelocity - int2ALfp(1)); - else if(VLS <= -MaxVelocity) - VLS = -MaxVelocity + int2ALfp(1); - - Pitch = ALfpMult(Pitch, - ALfpDiv((ALfpMult(SpeedOfSound,DopplerVelocity) - ALfpMult(DopplerFactor,VLS)), - (ALfpMult(SpeedOfSound,DopplerVelocity) - ALfpMult(DopplerFactor,VSS)))); - } - - BufferListItem = ALSource->queue; - while(BufferListItem != NULL) - { - ALbuffer *ALBuffer; - if((ALBuffer=BufferListItem->buffer) != NULL) - { - ALint maxstep = STACK_DATA_SIZE / FrameSizeFromFmt(ALBuffer->FmtChannels, - ALBuffer->FmtType); - maxstep -= ResamplerPadding[ALSource->Resampler] + - ResamplerPrePadding[ALSource->Resampler] + 1; - maxstep = min(maxstep, INT_MAX>>FRACTIONBITS); - - Pitch = ALfpDiv(ALfpMult(Pitch, int2ALfp(ALBuffer->Frequency)), int2ALfp(Frequency)); - if(Pitch > int2ALfp(maxstep)) - ALSource->Params.Step = maxstep<Params.Step = ALfp2int(ALfpMult(Pitch,float2ALfp(FRACTIONONE))); - if(ALSource->Params.Step == 0) - ALSource->Params.Step = 1; - } - break; - } - BufferListItem = BufferListItem->next; - } - - // Use energy-preserving panning algorithm for multi-speaker playback - length = __max(OrigDist, MinDist); - if(length > int2ALfp(0)) - { - ALfp invlen = ALfpDiv(int2ALfp(1), length); - Position[0] = ALfpMult(Position[0],invlen); - Position[1] = ALfpMult(Position[1],invlen); - Position[2] = ALfpMult(Position[2],invlen); - } - - pos = aluCart2LUTpos((-1*Position[2]), Position[0]); - SpeakerGain = &Device->PanningLUT[MAXCHANNELS * pos]; - - DirGain = aluSqrt((ALfpMult(Position[0],Position[0]) + ALfpMult(Position[2],Position[2]))); - // elevation adjustment for directional gain. this sucks, but - // has low complexity - AmbientGain = aluSqrt(float2ALfp(1.0f/Device->NumChan)); - for(s = 0;s < MAXCHANNELS;s++) - { - ALuint s2; - for(s2 = 0;s2 < MAXCHANNELS;s2++) - ALSource->Params.DryGains[s][s2] = int2ALfp(0); - } - for(s = 0;s < (ALsizei)Device->NumChan;s++) - { - Channel chan = Device->Speaker2Chan[s]; - ALfp gain; gain = AmbientGain + ALfpMult((SpeakerGain[chan]-AmbientGain),DirGain); - ALSource->Params.DryGains[0][chan] = ALfpMult(DryGain, gain); - } - - /* Update filter coefficients. */ - cw = __cos(ALfpDiv(float2ALfp(2.0*M_PI*LOWPASSFREQCUTOFF), int2ALfp(Frequency))); - - /* Spatialized sources use four chained one-pole filters, so we need to - * take the fourth root of the squared gain, which is the same as the - * square root of the base gain. */ - ALSource->Params.iirFilter.coeff = lpCoeffCalc(aluSqrt(DryGainHF), cw); - - for(i = 0;i < NumSends;i++) - { - /* The wet path uses two chained one-pole filters, so take the - * base gain (square root of the squared gain) */ - ALSource->Params.Send[i].iirFilter.coeff = lpCoeffCalc(WetGainHF[i], cw); - } -} - - -static __inline ALfloat aluF2F(ALfp val) -{ - return ALfp2float(val); -} -static __inline ALushort aluF2US(ALfp val) -{ - if(val > int2ALfp(1)) return 65535; - if(val < int2ALfp(-1)) return 0; - return (ALushort)(ALfp2int(ALfpMult(val,int2ALfp(32767))) + 32768); -} -static __inline ALshort aluF2S(ALfp val) -{ - if(val > int2ALfp(1)) return 32767; - if(val < int2ALfp(-1)) return -32768; - return (ALshort)(ALfp2int(ALfpMult(val,int2ALfp(32767)))); -} -static __inline ALubyte aluF2UB(ALfp val) -{ - ALushort i = aluF2US(val); - return i>>8; -} -static __inline ALbyte aluF2B(ALfp val) -{ - ALshort i = aluF2S(val); - return i>>8; -} - -static const Channel MonoChans[] = { FRONT_CENTER }; -static const Channel StereoChans[] = { FRONT_LEFT, FRONT_RIGHT }; -static const Channel QuadChans[] = { FRONT_LEFT, FRONT_RIGHT, - BACK_LEFT, BACK_RIGHT }; -static const Channel X51Chans[] = { FRONT_LEFT, FRONT_RIGHT, - FRONT_CENTER, LFE, - BACK_LEFT, BACK_RIGHT }; -static const Channel X61Chans[] = { FRONT_LEFT, FRONT_LEFT, - FRONT_CENTER, LFE, BACK_CENTER, - SIDE_LEFT, SIDE_RIGHT }; -static const Channel X71Chans[] = { FRONT_LEFT, FRONT_RIGHT, - FRONT_CENTER, LFE, - BACK_LEFT, BACK_RIGHT, - SIDE_LEFT, SIDE_RIGHT }; - -#define DECL_TEMPLATE(T, chans,N, func) \ -static void Write_##T##_##chans(ALCdevice *device, T *buffer, ALuint SamplesToDo)\ -{ \ - ALfp (*DryBuffer)[MAXCHANNELS] = device->DryBuffer; \ - ALfp (*Matrix)[MAXCHANNELS] = device->ChannelMatrix; \ - const ALuint *ChanMap = device->DevChannels; \ - ALuint i, j, c; \ - \ - for(i = 0;i < SamplesToDo;i++) \ - { \ - for(j = 0;j < N;j++) \ - { \ - ALfp samp; samp = int2ALfp(0); \ - for(c = 0;c < MAXCHANNELS;c++) { \ - ALfp m = Matrix[c][chans[j]]; \ - if (m != 0) \ - samp += ALfpMult(DryBuffer[i][c], m); \ - } \ - ((T*)buffer)[ChanMap[chans[j]]] = func(samp); \ - } \ - buffer = ((T*)buffer) + N; \ - } \ -} - -DECL_TEMPLATE(ALfloat, MonoChans,1, aluF2F) -DECL_TEMPLATE(ALfloat, QuadChans,4, aluF2F) -DECL_TEMPLATE(ALfloat, X51Chans,6, aluF2F) -DECL_TEMPLATE(ALfloat, X61Chans,7, aluF2F) -DECL_TEMPLATE(ALfloat, X71Chans,8, aluF2F) - -DECL_TEMPLATE(ALushort, MonoChans,1, aluF2US) -DECL_TEMPLATE(ALushort, QuadChans,4, aluF2US) -DECL_TEMPLATE(ALushort, X51Chans,6, aluF2US) -DECL_TEMPLATE(ALushort, X61Chans,7, aluF2US) -DECL_TEMPLATE(ALushort, X71Chans,8, aluF2US) - -DECL_TEMPLATE(ALshort, MonoChans,1, aluF2S) -DECL_TEMPLATE(ALshort, QuadChans,4, aluF2S) -DECL_TEMPLATE(ALshort, X51Chans,6, aluF2S) -DECL_TEMPLATE(ALshort, X61Chans,7, aluF2S) -DECL_TEMPLATE(ALshort, X71Chans,8, aluF2S) - -DECL_TEMPLATE(ALubyte, MonoChans,1, aluF2UB) -DECL_TEMPLATE(ALubyte, QuadChans,4, aluF2UB) -DECL_TEMPLATE(ALubyte, X51Chans,6, aluF2UB) -DECL_TEMPLATE(ALubyte, X61Chans,7, aluF2UB) -DECL_TEMPLATE(ALubyte, X71Chans,8, aluF2UB) - -DECL_TEMPLATE(ALbyte, MonoChans,1, aluF2B) -DECL_TEMPLATE(ALbyte, QuadChans,4, aluF2B) -DECL_TEMPLATE(ALbyte, X51Chans,6, aluF2B) -DECL_TEMPLATE(ALbyte, X61Chans,7, aluF2B) -DECL_TEMPLATE(ALbyte, X71Chans,8, aluF2B) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T, chans,N, func) \ -static void Write_##T##_##chans(ALCdevice *device, T *buffer, ALuint SamplesToDo)\ -{ \ - ALfp (*DryBuffer)[MAXCHANNELS] = device->DryBuffer; \ - ALfp (*Matrix)[MAXCHANNELS] = device->ChannelMatrix; \ - const ALuint *ChanMap = device->DevChannels; \ - ALuint i, j, c; \ - \ - if(device->Bs2b) \ - { \ - for(i = 0;i < SamplesToDo;i++) \ - { \ - ALfp samples[2] = { int2ALfp(0), int2ALfp(0) }; \ - for(c = 0;c < MAXCHANNELS;c++) \ - { \ - samples[0] += ALfpMult(DryBuffer[i][c],Matrix[c][FRONT_LEFT]); \ - samples[1] += ALfpMult(DryBuffer[i][c],Matrix[c][FRONT_RIGHT]); \ - } \ - bs2b_cross_feed(device->Bs2b, samples); \ - ((T*)buffer)[ChanMap[FRONT_LEFT]] = func(samples[0]); \ - ((T*)buffer)[ChanMap[FRONT_RIGHT]] = func(samples[1]); \ - buffer = ((T*)buffer) + 2; \ - } \ - } \ - else \ - { \ - for(i = 0;i < SamplesToDo;i++) \ - { \ - for(j = 0;j < N;j++) \ - { \ - ALfp samp = int2ALfp(0); \ - for(c = 0;c < MAXCHANNELS;c++) \ - samp += ALfpMult(DryBuffer[i][c], Matrix[c][chans[j]]); \ - ((T*)buffer)[ChanMap[chans[j]]] = func(samp); \ - } \ - buffer = ((T*)buffer) + N; \ - } \ - } \ -} - -DECL_TEMPLATE(ALfloat, StereoChans,2, aluF2F) -DECL_TEMPLATE(ALushort, StereoChans,2, aluF2US) -DECL_TEMPLATE(ALshort, StereoChans,2, aluF2S) -DECL_TEMPLATE(ALubyte, StereoChans,2, aluF2UB) -DECL_TEMPLATE(ALbyte, StereoChans,2, aluF2B) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T, func) \ -static void Write_##T(ALCdevice *device, T *buffer, ALuint SamplesToDo) \ -{ \ - switch(device->FmtChans) \ - { \ - case DevFmtMono: \ - Write_##T##_MonoChans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtStereo: \ - Write_##T##_StereoChans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtQuad: \ - Write_##T##_QuadChans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtX51: \ - Write_##T##_X51Chans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtX61: \ - Write_##T##_X61Chans(device, buffer, SamplesToDo); \ - break; \ - case DevFmtX71: \ - Write_##T##_X71Chans(device, buffer, SamplesToDo); \ - break; \ - } \ -} - -DECL_TEMPLATE(ALfloat, aluF2F) -DECL_TEMPLATE(ALushort, aluF2US) -DECL_TEMPLATE(ALshort, aluF2S) -DECL_TEMPLATE(ALubyte, aluF2UB) -DECL_TEMPLATE(ALbyte, aluF2B) - -#undef DECL_TEMPLATE - -static __inline ALvoid aluMixDataPrivate(ALCdevice *device, ALvoid *buffer, ALsizei size) -{ - ALuint SamplesToDo; - ALeffectslot *ALEffectSlot; - ALCcontext **ctx, **ctx_end; - ALsource **src, **src_end; - int fpuState; - ALuint i, c; - ALsizei e; - -#if defined(HAVE_FESETROUND) - fpuState = fegetround(); - fesetround(FE_TOWARDZERO); -#elif defined(HAVE__CONTROLFP) - fpuState = _controlfp(_RC_CHOP, _MCW_RC); -#else - (void)fpuState; -#endif - - while(size > 0) - { - /* Setup variables */ - SamplesToDo = min(size, BUFFERSIZE); - - /* Clear mixing buffer */ - memset(device->DryBuffer, 0, SamplesToDo*MAXCHANNELS*sizeof(ALfp)); - - SuspendContext(NULL); - ctx = device->Contexts; - ctx_end = ctx + device->NumContexts; - while(ctx != ctx_end) - { - SuspendContext(*ctx); - - src = (*ctx)->ActiveSources; - src_end = src + (*ctx)->ActiveSourceCount; - while(src != src_end) - { - if((*src)->state != AL_PLAYING) - { - --((*ctx)->ActiveSourceCount); - *src = *(--src_end); - continue; - } - - if((*src)->NeedsUpdate) - { - ALsource_Update(*src, *ctx); - (*src)->NeedsUpdate = AL_FALSE; - } - - MixSource(*src, device, SamplesToDo); - src++; - } - - /* effect slot processing */ - for(e = 0;e < (*ctx)->EffectSlotMap.size;e++) - { - ALEffectSlot = (*ctx)->EffectSlotMap.array[e].value; - - for(i = 0;i < SamplesToDo;i++) - { - ALEffectSlot->ClickRemoval[0] -= ALfpDiv(ALEffectSlot->ClickRemoval[0], int2ALfp(256)); - ALEffectSlot->WetBuffer[i] += ALEffectSlot->ClickRemoval[0]; - } - for(i = 0;i < 1;i++) - { - ALEffectSlot->ClickRemoval[i] += ALEffectSlot->PendingClicks[i]; - ALEffectSlot->PendingClicks[i] = int2ALfp(0); - } - - ALEffect_Process(ALEffectSlot->EffectState, ALEffectSlot, - SamplesToDo, ALEffectSlot->WetBuffer, - device->DryBuffer); - - for(i = 0;i < SamplesToDo;i++) - ALEffectSlot->WetBuffer[i] = int2ALfp(0); - } - - ProcessContext(*ctx); - ctx++; - } - ProcessContext(NULL); - - //Post processing loop - for(i = 0;i < SamplesToDo;i++) - { - for(c = 0;c < MAXCHANNELS;c++) - { - device->ClickRemoval[c] -= ALfpDiv(device->ClickRemoval[c], int2ALfp(256)); - device->DryBuffer[i][c] += device->ClickRemoval[c]; - } - } - for(i = 0;i < MAXCHANNELS;i++) - { - device->ClickRemoval[i] += device->PendingClicks[i]; - device->PendingClicks[i] = int2ALfp(0); - } - - switch(device->FmtType) - { - case DevFmtByte: - Write_ALbyte(device, buffer, SamplesToDo); - break; - case DevFmtUByte: - Write_ALubyte(device, buffer, SamplesToDo); - break; - case DevFmtShort: - Write_ALshort(device, buffer, SamplesToDo); - break; - case DevFmtUShort: - Write_ALushort(device, buffer, SamplesToDo); - break; - case DevFmtFloat: - Write_ALfloat(device, buffer, SamplesToDo); - break; - } - - size -= SamplesToDo; - } - -#if defined(HAVE_FESETROUND) - fesetround(fpuState); -#elif defined(HAVE__CONTROLFP) - _controlfp(fpuState, _MCW_RC); -#endif -} - -static inline long timespecdiff(struct timespec *starttime, struct timespec *finishtime) -{ - long usec; - usec=(finishtime->tv_sec-starttime->tv_sec)*1000000; - usec+=(finishtime->tv_nsec-starttime->tv_nsec)/1000; - return usec; -} - -ALvoid aluMixData(ALCdevice *device, ALvoid *buffer, ALsizei size) -{ -#ifdef MAX_SOURCES_LOW - // Profile aluMixDataPrivate to set admission control parameters - static struct timespec ts_start; - static struct timespec ts_end; - long ts_diff; - int time_per_source; - int max_sources_within_deadline; - int mix_deadline_usec; - int max; - - if (alc_num_cores == 0) { - // FIXME(Apportable) this is Linux specific - alc_num_cores = sysconf( _SC_NPROCESSORS_ONLN ); - LOGI("_SC_NPROCESSORS_ONLN=%d", alc_num_cores); - } - - if (alc_num_cores > 1) { - // Allow OpenAL to monopolize one core - mix_deadline_usec = ((size*1000000) / device->Frequency) / 2; - } else { - // Try to cap mixing at 20% CPU - mix_deadline_usec = ((size*1000000) / device->Frequency) / 5; - } - - clock_gettime(CLOCK_MONOTONIC, &ts_start); - aluMixDataPrivate(device, buffer, size); - clock_gettime(CLOCK_MONOTONIC, &ts_end); - - // Time in micro-seconds that aluMixData has taken to run - ts_diff = timespecdiff(&ts_start, &ts_end); - - // Try to adjust the max sources limit adaptively, within a range - if (alc_active_sources > 0) { - time_per_source = max(1, ts_diff / alc_active_sources); - max_sources_within_deadline = mix_deadline_usec / time_per_source; - max = min(max(max_sources_within_deadline, MAX_SOURCES_LOW), MAX_SOURCES_HIGH); - if (max > alc_max_sources) { - alc_max_sources++; - } else if (max < alc_max_sources) { - alc_max_sources = max; - } - } else { - alc_max_sources = MAX_SOURCES_START; - } -#else - aluMixDataPrivate(device, buffer, size); -#endif -} - -ALvoid aluHandleDisconnect(ALCdevice *device) -{ - ALuint i; - - SuspendContext(NULL); - for(i = 0;i < device->NumContexts;i++) - { - ALCcontext *Context = device->Contexts[i]; - ALsource *source; - ALsizei pos; - - SuspendContext(Context); - - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - source = Context->SourceMap.array[pos].value; - if(source->state == AL_PLAYING) - { - source->state = AL_STOPPED; - source->BuffersPlayed = source->BuffersInQueue; - source->position = 0; - source->position_fraction = 0; - } - } - ProcessContext(Context); - } - - device->Connected = ALC_FALSE; - ProcessContext(NULL); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alcConfig.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alcConfig.c deleted file mode 100644 index 847e5d13f..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alcConfig.c +++ /dev/null @@ -1,338 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifdef _WIN32 -#ifdef __MINGW64__ -#define _WIN32_IE 0x501 -#else -#define _WIN32_IE 0x400 -#endif -#endif - -#include "config.h" - -#include -#include -#include -#include - -#include "alMain.h" - -#ifdef _WIN32_IE -#include -#endif - -typedef struct ConfigEntry { - char *key; - char *value; -} ConfigEntry; - -typedef struct ConfigBlock { - char *name; - ConfigEntry *entries; - size_t entryCount; -} ConfigBlock; - -static ConfigBlock *cfgBlocks; -static size_t cfgCount; - -static char buffer[1024]; - -static void LoadConfigFromFile(FILE *f) -{ - ConfigBlock *curBlock = cfgBlocks; - ConfigEntry *ent; - - while(fgets(buffer, sizeof(buffer), f)) - { - size_t i = 0; - - while(isspace(buffer[i])) - i++; - if(!buffer[i] || buffer[i] == '#') - continue; - - memmove(buffer, buffer+i, strlen(buffer+i)+1); - - if(buffer[0] == '[') - { - ConfigBlock *nextBlock; - - i = 1; - while(buffer[i] && buffer[i] != ']') - i++; - - if(!buffer[i]) - { - AL_PRINT("config parse error: bad line \"%s\"\n", buffer); - continue; - } - buffer[i] = 0; - - do { - i++; - if(buffer[i] && !isspace(buffer[i])) - { - if(buffer[i] != '#') - AL_PRINT("config warning: extra data after block: \"%s\"\n", buffer+i); - break; - } - } while(buffer[i]); - - nextBlock = NULL; - for(i = 0;i < cfgCount;i++) - { - if(strcasecmp(cfgBlocks[i].name, buffer+1) == 0) - { - nextBlock = cfgBlocks+i; -// AL_PRINT("found block '%s'\n", nextBlock->name); - break; - } - } - - if(!nextBlock) - { - nextBlock = realloc(cfgBlocks, (cfgCount+1)*sizeof(ConfigBlock)); - if(!nextBlock) - { - AL_PRINT("config parse error: error reallocating config blocks\n"); - continue; - } - cfgBlocks = nextBlock; - nextBlock = cfgBlocks+cfgCount; - cfgCount++; - - nextBlock->name = strdup(buffer+1); - nextBlock->entries = NULL; - nextBlock->entryCount = 0; - -// AL_PRINT("found new block '%s'\n", nextBlock->name); - } - curBlock = nextBlock; - continue; - } - - /* Look for the option name */ - i = 0; - while(buffer[i] && buffer[i] != '#' && buffer[i] != '=' && - !isspace(buffer[i])) - i++; - - if(!buffer[i] || buffer[i] == '#' || i == 0) - { - AL_PRINT("config parse error: malformed option line: \"%s\"\n", buffer); - continue; - } - - /* Seperate the option */ - if(buffer[i] != '=') - { - buffer[i++] = 0; - - while(isspace(buffer[i])) - i++; - if(buffer[i] != '=') - { - AL_PRINT("config parse error: option without a value: \"%s\"\n", buffer); - continue; - } - } - /* Find the start of the value */ - buffer[i++] = 0; - while(isspace(buffer[i])) - i++; - - /* Check if we already have this option set */ - ent = curBlock->entries; - while((size_t)(ent-curBlock->entries) < curBlock->entryCount) - { - if(strcasecmp(ent->key, buffer) == 0) - break; - ent++; - } - - if((size_t)(ent-curBlock->entries) >= curBlock->entryCount) - { - /* Allocate a new option entry */ - ent = realloc(curBlock->entries, (curBlock->entryCount+1)*sizeof(ConfigEntry)); - if(!ent) - { - AL_PRINT("config parse error: error reallocating config entries\n"); - continue; - } - curBlock->entries = ent; - ent = curBlock->entries + curBlock->entryCount; - curBlock->entryCount++; - - ent->key = strdup(buffer); - ent->value = NULL; - } - - /* Look for the end of the line (Null term, new-line, or #-symbol) and - eat up the trailing whitespace */ - memmove(buffer, buffer+i, strlen(buffer+i)+1); - - i = 0; - while(buffer[i] && buffer[i] != '#' && buffer[i] != '\n') - i++; - do { - i--; - } while(isspace(buffer[i])); - buffer[++i] = 0; - - free(ent->value); - ent->value = strdup(buffer); - -// AL_PRINT("found '%s' = '%s'\n", ent->key, ent->value); - } -} - -void ReadALConfig(void) -{ - FILE *f; - - cfgBlocks = calloc(1, sizeof(ConfigBlock)); - cfgBlocks->name = strdup("general"); - cfgCount = 1; - -#ifdef _WIN32 - if(SHGetSpecialFolderPathA(NULL, buffer, CSIDL_APPDATA, FALSE) != FALSE) - { - size_t p = strlen(buffer); - snprintf(buffer+p, sizeof(buffer)-p, "\\alsoft.ini"); - f = fopen(buffer, "rt"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - } -#else - f = fopen("/etc/openal/alsoft.conf", "r"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - if(getenv("HOME") && *(getenv("HOME"))) - { - snprintf(buffer, sizeof(buffer), "%s/.alsoftrc", getenv("HOME")); - f = fopen(buffer, "r"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - } -#endif - if(getenv("ALSOFT_CONF")) - { - f = fopen(getenv("ALSOFT_CONF"), "r"); - if(f) - { - LoadConfigFromFile(f); - fclose(f); - } - } -} - -void FreeALConfig(void) -{ - size_t i; - - for(i = 0;i < cfgCount;i++) - { - size_t j; - for(j = 0;j < cfgBlocks[i].entryCount;j++) - { - free(cfgBlocks[i].entries[j].key); - free(cfgBlocks[i].entries[j].value); - } - free(cfgBlocks[i].entries); - free(cfgBlocks[i].name); - } - free(cfgBlocks); - cfgBlocks = NULL; - cfgCount = 0; -} - -const char *GetConfigValue(const char *blockName, const char *keyName, const char *def) -{ - size_t i, j; - - if(!keyName) - return def; - - if(!blockName) - blockName = "general"; - - for(i = 0;i < cfgCount;i++) - { - if(strcasecmp(cfgBlocks[i].name, blockName) != 0) - continue; - - for(j = 0;j < cfgBlocks[i].entryCount;j++) - { - if(strcasecmp(cfgBlocks[i].entries[j].key, keyName) == 0) - { - if(cfgBlocks[i].entries[j].value[0]) - return cfgBlocks[i].entries[j].value; - return def; - } - } - } - - return def; -} - -int ConfigValueExists(const char *blockName, const char *keyName) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - return !!val[0]; -} - -int GetConfigValueInt(const char *blockName, const char *keyName, int def) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - - if(!val[0]) return def; - return strtol(val, NULL, 0); -} - -float GetConfigValueFloat(const char *blockName, const char *keyName, float def) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - - if(!val[0]) return def; -#ifdef HAVE_STRTOF - return strtof(val, NULL); -#else - return (float)strtod(val, NULL); -#endif -} - -int GetConfigValueBool(const char *blockName, const char *keyName, int def) -{ - const char *val = GetConfigValue(blockName, keyName, ""); - - if(!val[0]) return !!def; - return (strcasecmp(val, "true") == 0 || strcasecmp(val, "yes") == 0 || - strcasecmp(val, "on") == 0 || atoi(val) != 0); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alcEcho.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alcEcho.c deleted file mode 100644 index 1abf0b2ec..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alcEcho.c +++ /dev/null @@ -1,203 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2009 by Chris Robinson. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "alMain.h" -#include "alFilter.h" -#include "alAuxEffectSlot.h" -#include "alError.h" -#include "alu.h" - - -typedef struct ALechoState { - // Must be first in all effects! - ALeffectState state; - - ALfp *SampleBuffer; - ALuint BufferLength; - - // The echo is two tap. The delay is the number of samples from before the - // current offset - struct { - ALuint delay; - } Tap[2]; - ALuint Offset; - // The LR gains for the first tap. The second tap uses the reverse - ALfp GainL; - ALfp GainR; - - ALfp FeedGain; - - ALfp Gain[MAXCHANNELS]; - - FILTER iirFilter; - ALfp history[2]; -} ALechoState; - -static ALvoid EchoDestroy(ALeffectState *effect) -{ - ALechoState *state = (ALechoState*)effect; - if(state) - { - free(state->SampleBuffer); - state->SampleBuffer = NULL; - free(state); - } -} - -static ALboolean EchoDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALechoState *state = (ALechoState*)effect; - ALuint maxlen, i; - - // Use the next power of 2 for the buffer length, so the tap offsets can be - // wrapped using a mask instead of a modulo - maxlen = (ALuint)(AL_ECHO_MAX_DELAY * Device->Frequency) + 1; - maxlen += (ALuint)(AL_ECHO_MAX_LRDELAY * Device->Frequency) + 1; - maxlen = NextPowerOf2(maxlen); - - if(maxlen != state->BufferLength) - { - void *temp; - - temp = realloc(state->SampleBuffer, maxlen * sizeof(ALfp)); - if(!temp) - return AL_FALSE; - state->SampleBuffer = temp; - state->BufferLength = maxlen; - } - for(i = 0;i < state->BufferLength;i++) - state->SampleBuffer[i] = int2ALfp(0); - - for(i = 0;i < MAXCHANNELS;i++) - state->Gain[i] = int2ALfp(0); - for(i = 0;i < Device->NumChan;i++) - { - Channel chan = Device->Speaker2Chan[i]; - state->Gain[chan] = int2ALfp(1); - } - - return AL_TRUE; -} - -static ALvoid EchoUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALechoState *state = (ALechoState*)effect; - ALuint frequency = Context->Device->Frequency; - ALfp lrpan, cw, a, g; - - state->Tap[0].delay = (ALuint)ALfp2int((ALfpMult(Effect->Echo.Delay, int2ALfp(frequency)) + int2ALfp(1))); - state->Tap[1].delay = (ALuint)ALfp2int(ALfpMult(Effect->Echo.LRDelay, int2ALfp(frequency))); - state->Tap[1].delay += state->Tap[0].delay; - - lrpan = (ALfpMult(Effect->Echo.Spread, float2ALfp(0.5f)) + float2ALfp(0.5f)); - state->GainL = aluSqrt( lrpan); - state->GainR = aluSqrt((int2ALfp(1)-lrpan)); - - state->FeedGain = Effect->Echo.Feedback; - - cw = __cos(ALfpDiv(float2ALfp(2.0*M_PI * LOWPASSFREQCUTOFF), int2ALfp(frequency))); - g = (int2ALfp(1) - Effect->Echo.Damping); - a = int2ALfp(0); - if(g < float2ALfp(0.9999f)) /* 1-epsilon */ { - // a = (1 - g*cw - aluSqrt(2*g*(1-cw) - g*g*(1 - cw*cw))) / (1 - g); - a = ALfpDiv((int2ALfp(1) - ALfpMult(g,cw) - aluSqrt((ALfpMult(ALfpMult(int2ALfp(2),g),(int2ALfp(1)-cw)) - - ALfpMult(ALfpMult(g,g),(int2ALfp(1) - ALfpMult(cw,cw)))))), - (int2ALfp(1) - g)); - } - state->iirFilter.coeff = a; -} - -static ALvoid EchoProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALechoState *state = (ALechoState*)effect; - const ALuint mask = state->BufferLength-1; - const ALuint tap1 = state->Tap[0].delay; - const ALuint tap2 = state->Tap[1].delay; - ALuint offset = state->Offset; - const ALfp gain = Slot->Gain; - ALfp samp[2], smp; - ALuint i; - - for(i = 0;i < SamplesToDo;i++,offset++) - { - // Sample first tap - smp = state->SampleBuffer[(offset-tap1) & mask]; - samp[0] = ALfpMult(smp, state->GainL); - samp[1] = ALfpMult(smp, state->GainR); - // Sample second tap. Reverse LR panning - smp = state->SampleBuffer[(offset-tap2) & mask]; - samp[0] += ALfpMult(smp, state->GainR); - samp[1] += ALfpMult(smp, state->GainL); - - // Apply damping and feedback gain to the second tap, and mix in the - // new sample - smp = lpFilter2P(&state->iirFilter, 0, (smp+SamplesIn[i])); - state->SampleBuffer[offset&mask] = ALfpMult(smp, state->FeedGain); - - // Apply slot gain - samp[0] = ALfpMult(samp[0], gain); - samp[1] = ALfpMult(samp[1], gain); - - SamplesOut[i][FRONT_LEFT] += ALfpMult(state->Gain[FRONT_LEFT], samp[0]); - SamplesOut[i][FRONT_RIGHT] += ALfpMult(state->Gain[FRONT_RIGHT], samp[1]); -#ifdef APPORTABLE_OPTIMIZED_OUT - SamplesOut[i][SIDE_LEFT] += ALfpMult(state->Gain[SIDE_LEFT], samp[0]); - SamplesOut[i][SIDE_RIGHT] += ALfpMult(state->Gain[SIDE_RIGHT], samp[1]); - SamplesOut[i][BACK_LEFT] += ALfpMult(state->Gain[BACK_LEFT], samp[0]); - SamplesOut[i][BACK_RIGHT] += ALfpMult(state->Gain[BACK_RIGHT], samp[1]); -#endif - - } - state->Offset = offset; -} - -ALeffectState *EchoCreate(void) -{ - ALechoState *state; - - state = malloc(sizeof(*state)); - if(!state) - return NULL; - - state->state.Destroy = EchoDestroy; - state->state.DeviceUpdate = EchoDeviceUpdate; - state->state.Update = EchoUpdate; - state->state.Process = EchoProcess; - - state->BufferLength = 0; - state->SampleBuffer = NULL; - - state->Tap[0].delay = 0; - state->Tap[1].delay = 0; - state->Offset = 0; - state->GainL = int2ALfp(0); - state->GainR = int2ALfp(0); - - state->iirFilter.coeff = int2ALfp(0); - state->iirFilter.history[0] = int2ALfp(0); - state->iirFilter.history[1] = int2ALfp(0); - - return &state->state; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alcModulator.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alcModulator.c deleted file mode 100644 index 445bf13ad..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alcModulator.c +++ /dev/null @@ -1,229 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2009 by Chris Robinson. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "alMain.h" -#include "alFilter.h" -#include "alAuxEffectSlot.h" -#include "alError.h" -#include "alu.h" - - -typedef struct ALmodulatorState { - // Must be first in all effects! - ALeffectState state; - - enum { - SINUSOID, - SAWTOOTH, - SQUARE - } Waveform; - - ALuint index; - ALuint step; - - ALfp Gain[MAXCHANNELS]; - - FILTER iirFilter; - ALfp history[1]; -} ALmodulatorState; - -#define WAVEFORM_FRACBITS 16 -#define WAVEFORM_FRACMASK ((1<>(WAVEFORM_FRACBITS-1))&1) ? -1 : 1); -} - - -static __inline ALfp hpFilter1P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = (output + ALfpMult((history[0]-output),a)); - history[0] = output; - - return (input - output); -} - - -static ALvoid ModulatorDestroy(ALeffectState *effect) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - free(state); -} - -static ALboolean ModulatorDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - ALuint index; - - for(index = 0;index < MAXCHANNELS;index++) - state->Gain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - state->Gain[chan] = int2ALfp(1); - } - - return AL_TRUE; -} - -static ALvoid ModulatorUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - ALfp cw, a; - a = int2ALfp(0); - - if(Effect->Modulator.Waveform == AL_RING_MODULATOR_SINUSOID) - state->Waveform = SINUSOID; - else if(Effect->Modulator.Waveform == AL_RING_MODULATOR_SAWTOOTH) - state->Waveform = SAWTOOTH; - else if(Effect->Modulator.Waveform == AL_RING_MODULATOR_SQUARE) - state->Waveform = SQUARE; - - state->step = ALfp2int(ALfpDiv(ALfpMult(Effect->Modulator.Frequency, - int2ALfp(1<Device->Frequency))); - if(!state->step) - state->step = 1; - - cw = __cos(ALfpDiv(ALfpMult(float2ALfp(2.0*M_PI), - Effect->Modulator.HighPassCutoff), - int2ALfp(Context->Device->Frequency))); - a = ((int2ALfp(2)-cw) - - aluSqrt((aluPow((int2ALfp(2)-cw), int2ALfp(2)) - int2ALfp(1)))); - state->iirFilter.coeff = a; -} - -static ALvoid ModulatorProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALmodulatorState *state = (ALmodulatorState*)effect; - const ALfp gain = Slot->Gain; - const ALuint step = state->step; - ALuint index = state->index; - ALfp samp; - ALuint i; - - switch(state->Waveform) - { - case SINUSOID: - for(i = 0;i < SamplesToDo;i++) - { -#ifdef APPORTABLE_OPTIMIZED_OUT -#define FILTER_OUT(func) do { \ - samp = SamplesIn[i]; \ - \ - index += step; \ - index &= WAVEFORM_FRACMASK; \ - samp *= func(index); \ - \ - samp = hpFilter1P(&state->iirFilter, 0, samp); \ - \ - /* Apply slot gain */ \ - samp *= gain; \ - \ - SamplesOut[i][FRONT_LEFT] += state->Gain[FRONT_LEFT] * samp; \ - SamplesOut[i][FRONT_RIGHT] += state->Gain[FRONT_RIGHT] * samp; \ - SamplesOut[i][FRONT_CENTER] += state->Gain[FRONT_CENTER] * samp; \ - SamplesOut[i][SIDE_LEFT] += state->Gain[SIDE_LEFT] * samp; \ - SamplesOut[i][SIDE_RIGHT] += state->Gain[SIDE_RIGHT] * samp; \ - SamplesOut[i][BACK_LEFT] += state->Gain[BACK_LEFT] * samp; \ - SamplesOut[i][BACK_RIGHT] += state->Gain[BACK_RIGHT] * samp; \ - SamplesOut[i][BACK_CENTER] += state->Gain[BACK_CENTER] * samp; \ -} while(0) -#else -//Apportable optimized version -#define FILTER_OUT(func) do { \ - samp = SamplesIn[i]; \ - \ - index += step; \ - index &= WAVEFORM_FRACMASK; \ - samp = ALfpMult(samp, func(index)); \ - \ - samp = hpFilter1P(&state->iirFilter, 0, samp); \ - \ - /* Apply slot gain */ \ - samp = ALfpMult(samp, gain); \ - \ - SamplesOut[i][FRONT_LEFT] += ALfpMult(state->Gain[FRONT_LEFT], samp); \ - SamplesOut[i][FRONT_RIGHT] += ALfpMult(state->Gain[FRONT_RIGHT], samp); \ -} while(0) -#endif - FILTER_OUT(sin_func); - } - break; - - case SAWTOOTH: - for(i = 0;i < SamplesToDo;i++) - { - FILTER_OUT(saw_func); - } - break; - - case SQUARE: - for(i = 0;i < SamplesToDo;i++) - { - FILTER_OUT(square_func); -#undef FILTER_OUT - } - break; - } - state->index = index; -} - -ALeffectState *ModulatorCreate(void) -{ - ALmodulatorState *state; - - state = malloc(sizeof(*state)); - if(!state) - return NULL; - - state->state.Destroy = ModulatorDestroy; - state->state.DeviceUpdate = ModulatorDeviceUpdate; - state->state.Update = ModulatorUpdate; - state->state.Process = ModulatorProcess; - - state->index = 0; - state->step = 1; - - state->iirFilter.coeff = int2ALfp(0); - state->iirFilter.history[0] = int2ALfp(0); - - return &state->state; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alcReverb.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alcReverb.c deleted file mode 100644 index 496a15db2..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alcReverb.c +++ /dev/null @@ -1,1371 +0,0 @@ -/** - * Reverb for the OpenAL cross platform audio library - * Copyright (C) 2008-2009 by Christopher Fitzgerald. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alAuxEffectSlot.h" -#include "alEffect.h" -#include "alError.h" -#include "alu.h" - -typedef struct DelayLine -{ - // The delay lines use sample lengths that are powers of 2 to allow the - // use of bit-masking instead of a modulus for wrapping. - ALuint Mask; - ALfp *Line; -} DelayLine; - -typedef struct ALverbState { - // Must be first in all effects! - ALeffectState state; - - // All delay lines are allocated as a single buffer to reduce memory - // fragmentation and management code. - ALfp *SampleBuffer; - ALuint TotalSamples; - // Master effect low-pass filter (2 chained 1-pole filters). - FILTER LpFilter; - ALfp LpHistory[2]; - struct { - // Modulator delay line. - DelayLine Delay; - // The vibrato time is tracked with an index over a modulus-wrapped - // range (in samples). - ALuint Index; - ALuint Range; - // The depth of frequency change (also in samples) and its filter. - ALfp Depth; - ALfp Coeff; - ALfp Filter; - } Mod; - // Initial effect delay. - DelayLine Delay; - // The tap points for the initial delay. First tap goes to early - // reflections, the last to late reverb. - ALuint DelayTap[2]; - struct { - // Output gain for early reflections. - ALfp Gain; - // Early reflections are done with 4 delay lines. - ALfp Coeff[4]; - DelayLine Delay[4]; - ALuint Offset[4]; - // The gain for each output channel based on 3D panning (only for the - // EAX path). - ALfp PanGain[MAXCHANNELS]; - } Early; - // Decorrelator delay line. - DelayLine Decorrelator; - // There are actually 4 decorrelator taps, but the first occurs at the - // initial sample. - ALuint DecoTap[3]; - struct { - // Output gain for late reverb. - ALfp Gain; - // Attenuation to compensate for the modal density and decay rate of - // the late lines. - ALfp DensityGain; - // The feed-back and feed-forward all-pass coefficient. - ALfp ApFeedCoeff; - // Mixing matrix coefficient. - ALfp MixCoeff; - // Late reverb has 4 parallel all-pass filters. - ALfp ApCoeff[4]; - DelayLine ApDelay[4]; - ALuint ApOffset[4]; - // In addition to 4 cyclical delay lines. - ALfp Coeff[4]; - DelayLine Delay[4]; - ALuint Offset[4]; - // The cyclical delay lines are 1-pole low-pass filtered. - ALfp LpCoeff[4]; - ALfp LpSample[4]; - // The gain for each output channel based on 3D panning (only for the - // EAX path). - ALfp PanGain[MAXCHANNELS]; - } Late; - struct { - // Attenuation to compensate for the modal density and decay rate of - // the echo line. - ALfp DensityGain; - // Echo delay and all-pass lines. - DelayLine Delay; - DelayLine ApDelay; - ALfp Coeff; - ALfp ApFeedCoeff; - ALfp ApCoeff; - ALuint Offset; - ALuint ApOffset; - // The echo line is 1-pole low-pass filtered. - ALfp LpCoeff; - ALfp LpSample; - // Echo mixing coefficients. - ALfp MixCoeff[2]; - } Echo; - // The current read offset for all delay lines. - ALuint Offset; - - // The gain for each output channel (non-EAX path only; aliased from - // Late.PanGain) - ALfp *Gain; -} ALverbState; - -/* This coefficient is used to define the maximum frequency range controlled - * by the modulation depth. The current value of 0.1 will allow it to swing - * from 0.9x to 1.1x. This value must be below 1. At 1 it will cause the - * sampler to stall on the downswing, and above 1 it will cause it to sample - * backwards. - */ -static const ALfp MODULATION_DEPTH_COEFF = toALfpConst(0.1f); - -/* A filter is used to avoid the terrible distortion caused by changing - * modulation time and/or depth. To be consistent across different sample - * rates, the coefficient must be raised to a constant divided by the sample - * rate: coeff^(constant / rate). - */ -static const ALfp MODULATION_FILTER_COEFF = toALfpConst(0.048f); -static const ALfp MODULATION_FILTER_CONST = toALfpConst(100000.0f); - -// When diffusion is above 0, an all-pass filter is used to take the edge off -// the echo effect. It uses the following line length (in seconds). -static const ALfp ECHO_ALLPASS_LENGTH = toALfpConst(0.0133f); - -// Input into the late reverb is decorrelated between four channels. Their -// timings are dependent on a fraction and multiplier. See the -// UpdateDecorrelator() routine for the calculations involved. -static const ALfp DECO_FRACTION = toALfpConst(0.15f); -static const ALfp DECO_MULTIPLIER = toALfpConst(2.0f); - -// All delay line lengths are specified in seconds. - -// The lengths of the early delay lines. -static const ALfp EARLY_LINE_LENGTH[4] = -{ - toALfpConst(0.0015f), toALfpConst(0.0045f), toALfpConst(0.0135f), toALfpConst(0.0405f) -}; - -// The lengths of the late all-pass delay lines. -static const ALfp ALLPASS_LINE_LENGTH[4] = -{ - toALfpConst(0.0151f), toALfpConst(0.0167f), toALfpConst(0.0183f), toALfpConst(0.0200f), -}; - -// The lengths of the late cyclical delay lines. -static const ALfp LATE_LINE_LENGTH[4] = -{ - toALfpConst(0.0211f), toALfpConst(0.0311f), toALfpConst(0.0461f), toALfpConst(0.0680f) -}; - -// The late cyclical delay lines have a variable length dependent on the -// effect's density parameter (inverted for some reason) and this multiplier. -static const ALfp LATE_LINE_MULTIPLIER = toALfpConst(4.0f); - -// Calculate the length of a delay line and store its mask and offset. -static ALuint CalcLineLength(ALfp length, ALintptrEXT offset, ALuint frequency, DelayLine *Delay) -{ - ALuint samples; - - // All line lengths are powers of 2, calculated from their lengths, with - // an additional sample in case of rounding errors. - samples = NextPowerOf2((ALuint)(ALfp2int(ALfpMult(length, int2ALfp(frequency)))) + 1); - // All lines share a single sample buffer. - Delay->Mask = samples - 1; - Delay->Line = (ALfp*)offset; - // Return the sample count for accumulation. - return samples; -} - -// Given the allocated sample buffer, this function updates each delay line -// offset. -static __inline ALvoid RealizeLineOffset(ALfp * sampleBuffer, DelayLine *Delay) -{ - Delay->Line = &sampleBuffer[(ALintptrEXT)Delay->Line]; -} - -/* Calculates the delay line metrics and allocates the shared sample buffer - * for all lines given a flag indicating whether or not to allocate the EAX- - * related delays (eaxFlag) and the sample rate (frequency). If an - * allocation failure occurs, it returns AL_FALSE. - */ -static ALboolean AllocLines(ALboolean eaxFlag, ALuint frequency, ALverbState *State) -{ - ALuint totalSamples, index; - ALfp length; - ALfp *newBuffer = NULL; - - // All delay line lengths are calculated to accomodate the full range of - // lengths given their respective paramters. - totalSamples = 0; - if(eaxFlag) - { - /* The modulator's line length is calculated from the maximum - * modulation time and depth coefficient, and halfed for the low-to- - * high frequency swing. An additional sample is added to keep it - * stable when there is no modulation. - */ - length = ((ALfpDiv(ALfpMult(float2ALfp(AL_EAXREVERB_MAX_MODULATION_TIME), MODULATION_DEPTH_COEFF), - int2ALfp(2))) + - ALfpDiv(int2ALfp(1), int2ALfp(frequency))); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Mod.Delay); - } - - // The initial delay is the sum of the reflections and late reverb - // delays. - if(eaxFlag) - length = float2ALfp(AL_EAXREVERB_MAX_REFLECTIONS_DELAY + - AL_EAXREVERB_MAX_LATE_REVERB_DELAY); - else - length = float2ALfp(AL_REVERB_MAX_REFLECTIONS_DELAY + - AL_REVERB_MAX_LATE_REVERB_DELAY); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Delay); - - // The early reflection lines. - for(index = 0;index < 4;index++) - totalSamples += CalcLineLength(EARLY_LINE_LENGTH[index], totalSamples, - frequency, &State->Early.Delay[index]); - - // The decorrelator line is calculated from the lowest reverb density (a - // parameter value of 1). - length = ALfpMult(ALfpMult(ALfpMult(ALfpMult(DECO_FRACTION, - DECO_MULTIPLIER), - DECO_MULTIPLIER), - LATE_LINE_LENGTH[0]), - (int2ALfp(1) + LATE_LINE_MULTIPLIER)); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Decorrelator); - - // The late all-pass lines. - for(index = 0;index < 4;index++) - totalSamples += CalcLineLength(ALLPASS_LINE_LENGTH[index], totalSamples, - frequency, &State->Late.ApDelay[index]); - - // The late delay lines are calculated from the lowest reverb density. - for(index = 0;index < 4;index++) - { - length = ALfpMult(LATE_LINE_LENGTH[index], (int2ALfp(1) + LATE_LINE_MULTIPLIER)); - totalSamples += CalcLineLength(length, totalSamples, frequency, - &State->Late.Delay[index]); - } - - if(eaxFlag) - { - // The echo all-pass and delay lines. - totalSamples += CalcLineLength(ECHO_ALLPASS_LENGTH, totalSamples, - frequency, &State->Echo.ApDelay); - totalSamples += CalcLineLength(float2ALfp(AL_EAXREVERB_MAX_ECHO_TIME), totalSamples, - frequency, &State->Echo.Delay); - } - - if(totalSamples != State->TotalSamples) - { - newBuffer = realloc(State->SampleBuffer, sizeof(ALfp) * totalSamples); - if(newBuffer == NULL) - return AL_FALSE; - State->SampleBuffer = newBuffer; - State->TotalSamples = totalSamples; - } - - // Update all delays to reflect the new sample buffer. - RealizeLineOffset(State->SampleBuffer, &State->Delay); - RealizeLineOffset(State->SampleBuffer, &State->Decorrelator); - for(index = 0;index < 4;index++) - { - RealizeLineOffset(State->SampleBuffer, &State->Early.Delay[index]); - RealizeLineOffset(State->SampleBuffer, &State->Late.ApDelay[index]); - RealizeLineOffset(State->SampleBuffer, &State->Late.Delay[index]); - } - if(eaxFlag) - { - RealizeLineOffset(State->SampleBuffer, &State->Mod.Delay); - RealizeLineOffset(State->SampleBuffer, &State->Echo.ApDelay); - RealizeLineOffset(State->SampleBuffer, &State->Echo.Delay); - } - - // Clear the sample buffer. - for(index = 0;index < State->TotalSamples;index++) - State->SampleBuffer[index] = int2ALfp(0); - - return AL_TRUE; -} - -// Calculate a decay coefficient given the length of each cycle and the time -// until the decay reaches -60 dB. -static __inline ALfp CalcDecayCoeff(ALfp length, ALfp decayTime) -{ - return aluPow(int2ALfp(10), ALfpDiv(length, - ALfpDiv(ALfpMult(decayTime, - int2ALfp(-60)), - int2ALfp(20)))); -} - -// Calculate a decay length from a coefficient and the time until the decay -// reaches -60 dB. -static __inline ALfp CalcDecayLength(ALfp coeff, ALfp decayTime) -{ - return ALfpMult(ALfpMult(ALfpDiv(__log10(coeff), int2ALfp(-60)), int2ALfp(20)), decayTime); -} - -// Calculate the high frequency parameter for the I3DL2 coefficient -// calculation. -static __inline ALfp CalcI3DL2HFreq(ALfp hfRef, ALuint frequency) -{ - return __cos(ALfpDiv(ALfpMult(float2ALfp(2.0f * M_PI), hfRef), int2ALfp(frequency))); -} - -// Calculate an attenuation to be applied to the input of any echo models to -// compensate for modal density and decay time. -static __inline ALfp CalcDensityGain(ALfp a) -{ - /* The energy of a signal can be obtained by finding the area under the - * squared signal. This takes the form of Sum(x_n^2), where x is the - * amplitude for the sample n. - * - * Decaying feedback matches exponential decay of the form Sum(a^n), - * where a is the attenuation coefficient, and n is the sample. The area - * under this decay curve can be calculated as: 1 / (1 - a). - * - * Modifying the above equation to find the squared area under the curve - * (for energy) yields: 1 / (1 - a^2). Input attenuation can then be - * calculated by inverting the square root of this approximation, - * yielding: 1 / sqrt(1 / (1 - a^2)), simplified to: sqrt(1 - a^2). - */ - return aluSqrt((int2ALfp(1) - ALfpMult(a, a))); -} - -// Calculate the mixing matrix coefficients given a diffusion factor. -static __inline ALvoid CalcMatrixCoeffs(ALfp diffusion, ALfp *x, ALfp *y) -{ - ALfp n, t; - - // The matrix is of order 4, so n is sqrt (4 - 1). - n = aluSqrt(int2ALfp(3)); - t = ALfpMult(diffusion, __atan(n)); - - // Calculate the first mixing matrix coefficient. - *x = __cos(t); - // Calculate the second mixing matrix coefficient. - *y = ALfpDiv(__sin(t), n); -} - -// Calculate the limited HF ratio for use with the late reverb low-pass -// filters. -static ALfp CalcLimitedHfRatio(ALfp hfRatio, ALfp airAbsorptionGainHF, ALfp decayTime) -{ - ALfp limitRatio; - - /* Find the attenuation due to air absorption in dB (converting delay - * time to meters using the speed of sound). Then reversing the decay - * equation, solve for HF ratio. The delay length is cancelled out of - * the equation, so it can be calculated once for all lines. - */ - limitRatio = ALfpDiv(int2ALfp(1), - ALfpMult(CalcDecayLength(airAbsorptionGainHF, decayTime), - float2ALfp(SPEEDOFSOUNDMETRESPERSEC))); - // Need to limit the result to a minimum of 0.1, just like the HF ratio - // parameter. - limitRatio = __max(limitRatio, float2ALfp(0.1f)); - - // Using the limit calculated above, apply the upper bound to the HF - // ratio. - return __min(hfRatio, limitRatio); -} - -// Calculate the coefficient for a HF (and eventually LF) decay damping -// filter. -static __inline ALfp CalcDampingCoeff(ALfp hfRatio, ALfp length, ALfp decayTime, ALfp decayCoeff, ALfp cw) -{ - ALfp coeff, g; - - // Eventually this should boost the high frequencies when the ratio - // exceeds 1. - coeff = int2ALfp(0); - if (hfRatio < int2ALfp(1)) - { - // Calculate the low-pass coefficient by dividing the HF decay - // coefficient by the full decay coefficient. - g = ALfpDiv(CalcDecayCoeff(length, ALfpMult(decayTime, hfRatio)), decayCoeff); - - // Damping is done with a 1-pole filter, so g needs to be squared. - g = ALfpMult(g, g); - coeff = lpCoeffCalc(g, cw); - - // Very low decay times will produce minimal output, so apply an - // upper bound to the coefficient. - coeff = __min(coeff, float2ALfp(0.98f)); - } - return coeff; -} - -// Update the EAX modulation index, range, and depth. Keep in mind that this -// kind of vibrato is additive and not multiplicative as one may expect. The -// downswing will sound stronger than the upswing. -static ALvoid UpdateModulator(ALfp modTime, ALfp modDepth, ALuint frequency, ALverbState *State) -{ - ALfp length; - - /* Modulation is calculated in two parts. - * - * The modulation time effects the sinus applied to the change in - * frequency. An index out of the current time range (both in samples) - * is incremented each sample. The range is bound to a reasonable - * minimum (1 sample) and when the timing changes, the index is rescaled - * to the new range (to keep the sinus consistent). - */ - length = ALfpMult(modTime, int2ALfp(frequency)); - if (length >= int2ALfp(1)) { - State->Mod.Index = (ALuint)(ALfp2int(ALfpDiv(ALfpMult(int2ALfp(State->Mod.Index), - length), - int2ALfp(State->Mod.Range)))); - State->Mod.Range = (ALuint)ALfp2int(length); - } else { - State->Mod.Index = 0; - State->Mod.Range = 1; - } - - /* The modulation depth effects the amount of frequency change over the - * range of the sinus. It needs to be scaled by the modulation time so - * that a given depth produces a consistent change in frequency over all - * ranges of time. Since the depth is applied to a sinus value, it needs - * to be halfed once for the sinus range and again for the sinus swing - * in time (half of it is spent decreasing the frequency, half is spent - * increasing it). - */ - State->Mod.Depth = ALfpMult(ALfpDiv(ALfpDiv(ALfpMult(ALfpMult(modDepth, - MODULATION_DEPTH_COEFF), - modTime), - int2ALfp(2)), - int2ALfp(2)), - int2ALfp(frequency)); -} - -// Update the offsets for the initial effect delay line. -static ALvoid UpdateDelayLine(ALfp earlyDelay, ALfp lateDelay, ALuint frequency, ALverbState *State) -{ - // Calculate the initial delay taps. - State->DelayTap[0] = (ALuint)(ALfp2int(ALfpMult(earlyDelay, int2ALfp(frequency)))); - State->DelayTap[1] = (ALuint)(ALfp2int(ALfpMult((earlyDelay + lateDelay), int2ALfp(frequency)))); -} - -// Update the early reflections gain and line coefficients. -static ALvoid UpdateEarlyLines(ALfp reverbGain, ALfp earlyGain, ALfp lateDelay, ALverbState *State) -{ - ALuint index; - - // Calculate the early reflections gain (from the master effect gain, and - // reflections gain parameters) with a constant attenuation of 0.5. - State->Early.Gain = ALfpMult(ALfpMult(float2ALfp(0.5f), reverbGain), earlyGain); - - // Calculate the gain (coefficient) for each early delay line using the - // late delay time. This expands the early reflections to the start of - // the late reverb. - for(index = 0;index < 4;index++) - State->Early.Coeff[index] = CalcDecayCoeff(EARLY_LINE_LENGTH[index], - lateDelay); -} - -// Update the offsets for the decorrelator line. -static ALvoid UpdateDecorrelator(ALfp density, ALuint frequency, ALverbState *State) -{ - ALuint index; - ALfp length; - - /* The late reverb inputs are decorrelated to smooth the reverb tail and - * reduce harsh echos. The first tap occurs immediately, while the - * remaining taps are delayed by multiples of a fraction of the smallest - * cyclical delay time. - * - * offset[index] = (FRACTION (MULTIPLIER^index)) smallest_delay - */ - for(index = 0;index < 3;index++) - { - length = ALfpMult(ALfpMult(ALfpMult(DECO_FRACTION, - aluPow(DECO_MULTIPLIER, int2ALfp(index))), - LATE_LINE_LENGTH[0]), - (int2ALfp(1) + ALfpMult(density, LATE_LINE_MULTIPLIER))); - State->DecoTap[index] = (ALuint)ALfp2int(ALfpMult(length, int2ALfp(frequency))); - } -} - -// Update the late reverb gains, line lengths, and line coefficients. -static ALvoid UpdateLateLines(ALfp reverbGain, ALfp lateGain, ALfp xMix, ALfp density, ALfp decayTime, ALfp diffusion, ALfp hfRatio, ALfp cw, ALuint frequency, ALverbState *State) -{ - ALfp length; - ALuint index; - - /* Calculate the late reverb gain (from the master effect gain, and late - * reverb gain parameters). Since the output is tapped prior to the - * application of the next delay line coefficients, this gain needs to be - * attenuated by the 'x' mixing matrix coefficient as well. - */ - State->Late.Gain = ALfpMult(ALfpMult(reverbGain, lateGain), xMix); - - /* To compensate for changes in modal density and decay time of the late - * reverb signal, the input is attenuated based on the maximal energy of - * the outgoing signal. This approximation is used to keep the apparent - * energy of the signal equal for all ranges of density and decay time. - * - * The average length of the cyclcical delay lines is used to calculate - * the attenuation coefficient. - */ - length = ALfpDiv((LATE_LINE_LENGTH[0] + LATE_LINE_LENGTH[1] + - LATE_LINE_LENGTH[2] + LATE_LINE_LENGTH[3]), - int2ALfp(4)); - length = ALfpMult(length, (int2ALfp(1) + ALfpMult(density, LATE_LINE_MULTIPLIER))); - State->Late.DensityGain = CalcDensityGain(CalcDecayCoeff(length, - decayTime)); - - // Calculate the all-pass feed-back and feed-forward coefficient. - State->Late.ApFeedCoeff = ALfpMult(float2ALfp(0.5f), aluPow(diffusion, int2ALfp(2))); - - for(index = 0;index < 4;index++) - { - // Calculate the gain (coefficient) for each all-pass line. - State->Late.ApCoeff[index] = CalcDecayCoeff(ALLPASS_LINE_LENGTH[index], - decayTime); - - // Calculate the length (in seconds) of each cyclical delay line. - length = ALfpMult(LATE_LINE_LENGTH[index], - (int2ALfp(1) + ALfpMult(density, LATE_LINE_MULTIPLIER))); - - // Calculate the delay offset for each cyclical delay line. - State->Late.Offset[index] = (ALuint)(ALfp2int(ALfpMult(length, int2ALfp(frequency)))); - - // Calculate the gain (coefficient) for each cyclical line. - State->Late.Coeff[index] = CalcDecayCoeff(length, decayTime); - - // Calculate the damping coefficient for each low-pass filter. - State->Late.LpCoeff[index] = - CalcDampingCoeff(hfRatio, length, decayTime, - State->Late.Coeff[index], cw); - - // Attenuate the cyclical line coefficients by the mixing coefficient - // (x). - State->Late.Coeff[index] = ALfpMult(State->Late.Coeff[index], xMix); - } -} - -// Update the echo gain, line offset, line coefficients, and mixing -// coefficients. -static ALvoid UpdateEchoLine(ALfp reverbGain, ALfp lateGain, ALfp echoTime, ALfp decayTime, ALfp diffusion, ALfp echoDepth, ALfp hfRatio, ALfp cw, ALuint frequency, ALverbState *State) -{ - // Update the offset and coefficient for the echo delay line. - State->Echo.Offset = (ALuint)(ALfp2int(ALfpMult(echoTime, int2ALfp(frequency)))); - - // Calculate the decay coefficient for the echo line. - State->Echo.Coeff = CalcDecayCoeff(echoTime, decayTime); - - // Calculate the energy-based attenuation coefficient for the echo delay - // line. - State->Echo.DensityGain = CalcDensityGain(State->Echo.Coeff); - - // Calculate the echo all-pass feed coefficient. - State->Echo.ApFeedCoeff = ALfpMult(float2ALfp(0.5f), aluPow(diffusion, int2ALfp(2))); - - // Calculate the echo all-pass attenuation coefficient. - State->Echo.ApCoeff = CalcDecayCoeff(ECHO_ALLPASS_LENGTH, decayTime); - - // Calculate the damping coefficient for each low-pass filter. - State->Echo.LpCoeff = CalcDampingCoeff(hfRatio, echoTime, decayTime, - State->Echo.Coeff, cw); - - /* Calculate the echo mixing coefficients. The first is applied to the - * echo itself. The second is used to attenuate the late reverb when - * echo depth is high and diffusion is low, so the echo is slightly - * stronger than the decorrelated echos in the reverb tail. - */ - State->Echo.MixCoeff[0] = ALfpMult(ALfpMult(reverbGain, lateGain), echoDepth); - State->Echo.MixCoeff[1] = (int2ALfp(1) - ALfpMult(ALfpMult(echoDepth, float2ALfp(0.5f)), (int2ALfp(1) - diffusion))); -} - -// Update the early and late 3D panning gains. -static ALvoid Update3DPanning(const ALCdevice *Device, const ALfp *ReflectionsPan, const ALfp *LateReverbPan, ALverbState *State) -{ - ALfp earlyPan[3] = { ReflectionsPan[0], ReflectionsPan[1], - ReflectionsPan[2] }; - ALfp latePan[3] = { LateReverbPan[0], LateReverbPan[1], - LateReverbPan[2] }; - const ALfp *speakerGain; - ALfp dirGain; - ALfp length; - ALuint index; - ALint pos; - - // Calculate the 3D-panning gains for the early reflections and late - // reverb. - length = (ALfpMult(earlyPan[0],earlyPan[0]) + ALfpMult(earlyPan[1],earlyPan[1]) + ALfpMult(earlyPan[2],earlyPan[2])); - if(length > int2ALfp(1)) - { - length = ALfpDiv(int2ALfp(1), aluSqrt(length)); - earlyPan[0] = ALfpMult(earlyPan[0], length); - earlyPan[1] = ALfpMult(earlyPan[1], length); - earlyPan[2] = ALfpMult(earlyPan[2], length); - } - length = (ALfpMult(latePan[0],latePan[0]) + ALfpMult(latePan[1],latePan[1]) + ALfpMult(latePan[2],latePan[2])); - if(length > int2ALfp(1)) - { - length = ALfpDiv(int2ALfp(1), aluSqrt(length)); - latePan[0] = ALfpMult(latePan[0], length); - latePan[1] = ALfpMult(latePan[1], length); - latePan[2] = ALfpMult(latePan[2], length); - } - - /* This code applies directional reverb just like the mixer applies - * directional sources. It diffuses the sound toward all speakers as the - * magnitude of the panning vector drops, which is only a rough - * approximation of the expansion of sound across the speakers from the - * panning direction. - */ - pos = aluCart2LUTpos(earlyPan[2], earlyPan[0]); - speakerGain = &Device->PanningLUT[MAXCHANNELS * pos]; - dirGain = aluSqrt((ALfpMult(earlyPan[0], earlyPan[0]) + ALfpMult(earlyPan[2], earlyPan[2]))); - - for(index = 0;index < MAXCHANNELS;index++) - State->Early.PanGain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - State->Early.PanGain[chan] = (int2ALfp(1) + ALfpMult((speakerGain[chan]-int2ALfp(1)),dirGain)); - } - - - pos = aluCart2LUTpos(latePan[2], latePan[0]); - speakerGain = &Device->PanningLUT[MAXCHANNELS * pos]; - dirGain = aluSqrt((ALfpMult(latePan[0], latePan[0]) + ALfpMult(latePan[2], latePan[2]))); - - for(index = 0;index < MAXCHANNELS;index++) - State->Late.PanGain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - State->Late.PanGain[chan] = (int2ALfp(1) + ALfpMult((speakerGain[chan]-int2ALfp(1)),dirGain)); - } -} - -// Basic delay line input/output routines. -static __inline ALfp DelayLineOut(DelayLine *Delay, ALuint offset) -{ - return Delay->Line[offset&Delay->Mask]; -} - -static __inline ALvoid DelayLineIn(DelayLine *Delay, ALuint offset, ALfp in) -{ - Delay->Line[offset&Delay->Mask] = in; -} - -// Attenuated delay line output routine. -static __inline ALfp AttenuatedDelayLineOut(DelayLine *Delay, ALuint offset, ALfp coeff) -{ - return ALfpMult(coeff, Delay->Line[offset&Delay->Mask]); -} - -// Basic attenuated all-pass input/output routine. -static __inline ALfp AllpassInOut(DelayLine *Delay, ALuint outOffset, ALuint inOffset, ALfp in, ALfp feedCoeff, ALfp coeff) -{ - ALfp out, feed; - - out = DelayLineOut(Delay, outOffset); - feed = ALfpMult(feedCoeff, in); - DelayLineIn(Delay, inOffset, (ALfpMult(feedCoeff, (out - feed)) + in)); - - // The time-based attenuation is only applied to the delay output to - // keep it from affecting the feed-back path (which is already controlled - // by the all-pass feed coefficient). - return (ALfpMult(coeff, out) - feed); -} - -// Given an input sample, this function produces modulation for the late -// reverb. -static __inline ALfp EAXModulation(ALverbState *State, ALfp in) -{ - ALfp sinus, frac; - ALuint offset; - ALfp out0, out1; - - // Calculate the sinus rythm (dependent on modulation time and the - // sampling rate). The center of the sinus is moved to reduce the delay - // of the effect when the time or depth are low. - sinus = (int2ALfp(1) - __cos(ALfpDiv(ALfpMult(float2ALfp(2.0f * M_PI), int2ALfp(State->Mod.Index)), int2ALfp(State->Mod.Range)))); - - // The depth determines the range over which to read the input samples - // from, so it must be filtered to reduce the distortion caused by even - // small parameter changes. - State->Mod.Filter = lerp(State->Mod.Filter, State->Mod.Depth, - State->Mod.Coeff); - - // Calculate the read offset and fraction between it and the next sample. - frac = (int2ALfp(1) + ALfpMult(State->Mod.Filter, sinus)); - offset = (ALuint)ALfp2int(frac); - frac = (frac - int2ALfp(offset)); - - // Get the two samples crossed by the offset, and feed the delay line - // with the next input sample. - out0 = DelayLineOut(&State->Mod.Delay, State->Offset - offset); - out1 = DelayLineOut(&State->Mod.Delay, State->Offset - offset - 1); - DelayLineIn(&State->Mod.Delay, State->Offset, in); - - // Step the modulation index forward, keeping it bound to its range. - State->Mod.Index = (State->Mod.Index + 1) % State->Mod.Range; - - // The output is obtained by linearly interpolating the two samples that - // were acquired above. - return lerp(out0, out1, frac); -} - -// Delay line output routine for early reflections. -static __inline ALfp EarlyDelayLineOut(ALverbState *State, ALuint index) -{ - return AttenuatedDelayLineOut(&State->Early.Delay[index], - State->Offset - State->Early.Offset[index], - State->Early.Coeff[index]); -} - -// Given an input sample, this function produces four-channel output for the -// early reflections. -static __inline ALvoid EarlyReflection(ALverbState *State, ALfp in, ALfp *out) -{ - ALfp d[4], v, f[4]; - - // Obtain the decayed results of each early delay line. - d[0] = EarlyDelayLineOut(State, 0); - d[1] = EarlyDelayLineOut(State, 1); - d[2] = EarlyDelayLineOut(State, 2); - d[3] = EarlyDelayLineOut(State, 3); - - /* The following uses a lossless scattering junction from waveguide - * theory. It actually amounts to a householder mixing matrix, which - * will produce a maximally diffuse response, and means this can probably - * be considered a simple feed-back delay network (FDN). - * N - * --- - * \ - * v = 2/N / d_i - * --- - * i=1 - */ - v = ALfpMult((d[0] + d[1] + d[2] + d[3]), float2ALfp(0.5f)); - // The junction is loaded with the input here. - v = (v + in); - - // Calculate the feed values for the delay lines. - f[0] = (v - d[0]); - f[1] = (v - d[1]); - f[2] = (v - d[2]); - f[3] = (v - d[3]); - - // Re-feed the delay lines. - DelayLineIn(&State->Early.Delay[0], State->Offset, f[0]); - DelayLineIn(&State->Early.Delay[1], State->Offset, f[1]); - DelayLineIn(&State->Early.Delay[2], State->Offset, f[2]); - DelayLineIn(&State->Early.Delay[3], State->Offset, f[3]); - - // Output the results of the junction for all four channels. - out[0] = ALfpMult(State->Early.Gain, f[0]); - out[1] = ALfpMult(State->Early.Gain, f[1]); - out[2] = ALfpMult(State->Early.Gain, f[2]); - out[3] = ALfpMult(State->Early.Gain, f[3]); -} - -// All-pass input/output routine for late reverb. -static __inline ALfp LateAllPassInOut(ALverbState *State, ALuint index, ALfp in) -{ - return AllpassInOut(&State->Late.ApDelay[index], - State->Offset - State->Late.ApOffset[index], - State->Offset, in, State->Late.ApFeedCoeff, - State->Late.ApCoeff[index]); -} - -// Delay line output routine for late reverb. -static __inline ALfp LateDelayLineOut(ALverbState *State, ALuint index) -{ - return AttenuatedDelayLineOut(&State->Late.Delay[index], - State->Offset - State->Late.Offset[index], - State->Late.Coeff[index]); -} - -// Low-pass filter input/output routine for late reverb. -static __inline ALfp LateLowPassInOut(ALverbState *State, ALuint index, ALfp in) -{ - in = lerp(in, State->Late.LpSample[index], State->Late.LpCoeff[index]); - State->Late.LpSample[index] = in; - return in; -} - -// Given four decorrelated input samples, this function produces four-channel -// output for the late reverb. -static __inline ALvoid LateReverb(ALverbState *State, ALfp *in, ALfp *out) -{ - ALfp d[4], f[4]; - - // Obtain the decayed results of the cyclical delay lines, and add the - // corresponding input channels. Then pass the results through the - // low-pass filters. - - // This is where the feed-back cycles from line 0 to 1 to 3 to 2 and back - // to 0. - d[0] = LateLowPassInOut(State, 2, (in[2] + LateDelayLineOut(State, 2))); - d[1] = LateLowPassInOut(State, 0, (in[0] + LateDelayLineOut(State, 0))); - d[2] = LateLowPassInOut(State, 3, (in[3] + LateDelayLineOut(State, 3))); - d[3] = LateLowPassInOut(State, 1, (in[1] + LateDelayLineOut(State, 1))); - - // To help increase diffusion, run each line through an all-pass filter. - // When there is no diffusion, the shortest all-pass filter will feed the - // shortest delay line. - d[0] = LateAllPassInOut(State, 0, d[0]); - d[1] = LateAllPassInOut(State, 1, d[1]); - d[2] = LateAllPassInOut(State, 2, d[2]); - d[3] = LateAllPassInOut(State, 3, d[3]); - - /* Late reverb is done with a modified feed-back delay network (FDN) - * topology. Four input lines are each fed through their own all-pass - * filter and then into the mixing matrix. The four outputs of the - * mixing matrix are then cycled back to the inputs. Each output feeds - * a different input to form a circlular feed cycle. - * - * The mixing matrix used is a 4D skew-symmetric rotation matrix derived - * using a single unitary rotational parameter: - * - * [ d, a, b, c ] 1 = a^2 + b^2 + c^2 + d^2 - * [ -a, d, c, -b ] - * [ -b, -c, d, a ] - * [ -c, b, -a, d ] - * - * The rotation is constructed from the effect's diffusion parameter, - * yielding: 1 = x^2 + 3 y^2; where a, b, and c are the coefficient y - * with differing signs, and d is the coefficient x. The matrix is thus: - * - * [ x, y, -y, y ] n = sqrt(matrix_order - 1) - * [ -y, x, y, y ] t = diffusion_parameter * atan(n) - * [ y, -y, x, y ] x = cos(t) - * [ -y, -y, -y, x ] y = sin(t) / n - * - * To reduce the number of multiplies, the x coefficient is applied with - * the cyclical delay line coefficients. Thus only the y coefficient is - * applied when mixing, and is modified to be: y / x. - */ - f[0] = (d[0] + ALfpMult(State->Late.MixCoeff, ( d[1] + -1*d[2] + d[3]))); - f[1] = (d[1] + ALfpMult(State->Late.MixCoeff, (-1*d[0] + d[2] + d[3]))); - f[2] = (d[2] + ALfpMult(State->Late.MixCoeff, ( d[0] + -1*d[1] + d[3]))); - f[3] = (d[3] + ALfpMult(State->Late.MixCoeff, (-1*d[0] + -1*d[1] + -1*d[2] ))); - - // Output the results of the matrix for all four channels, attenuated by - // the late reverb gain (which is attenuated by the 'x' mix coefficient). - out[0] = ALfpMult(State->Late.Gain, f[0]); - out[1] = ALfpMult(State->Late.Gain, f[1]); - out[2] = ALfpMult(State->Late.Gain, f[2]); - out[3] = ALfpMult(State->Late.Gain, f[3]); - - // Re-feed the cyclical delay lines. - DelayLineIn(&State->Late.Delay[0], State->Offset, f[0]); - DelayLineIn(&State->Late.Delay[1], State->Offset, f[1]); - DelayLineIn(&State->Late.Delay[2], State->Offset, f[2]); - DelayLineIn(&State->Late.Delay[3], State->Offset, f[3]); -} - -// Given an input sample, this function mixes echo into the four-channel late -// reverb. -static __inline ALvoid EAXEcho(ALverbState *State, ALfp in, ALfp *late) -{ - ALfp out, feed; - - // Get the latest attenuated echo sample for output. - feed = AttenuatedDelayLineOut(&State->Echo.Delay, - State->Offset - State->Echo.Offset, - State->Echo.Coeff); - - // Mix the output into the late reverb channels. - out = ALfpMult(State->Echo.MixCoeff[0], feed); - late[0] = (ALfpMult(State->Echo.MixCoeff[1], late[0]) + out); - late[1] = (ALfpMult(State->Echo.MixCoeff[1], late[1]) + out); - late[2] = (ALfpMult(State->Echo.MixCoeff[1], late[2]) + out); - late[3] = (ALfpMult(State->Echo.MixCoeff[1], late[3]) + out); - - // Mix the energy-attenuated input with the output and pass it through - // the echo low-pass filter. - feed = (feed + ALfpMult(State->Echo.DensityGain, in)); - feed = lerp(feed, State->Echo.LpSample, State->Echo.LpCoeff); - State->Echo.LpSample = feed; - - // Then the echo all-pass filter. - feed = AllpassInOut(&State->Echo.ApDelay, - State->Offset - State->Echo.ApOffset, - State->Offset, feed, State->Echo.ApFeedCoeff, - State->Echo.ApCoeff); - - // Feed the delay with the mixed and filtered sample. - DelayLineIn(&State->Echo.Delay, State->Offset, feed); -} - -// Perform the non-EAX reverb pass on a given input sample, resulting in -// four-channel output. -static __inline ALvoid VerbPass(ALverbState *State, ALfp in, ALfp *early, ALfp *late) -{ - ALfp feed, taps[4]; - - // Low-pass filter the incoming sample. - in = lpFilter2P(&State->LpFilter, 0, in); - - // Feed the initial delay line. - DelayLineIn(&State->Delay, State->Offset, in); - - // Calculate the early reflection from the first delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[0]); - EarlyReflection(State, in, early); - - // Feed the decorrelator from the energy-attenuated output of the second - // delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[1]); - feed = ALfpMult(in, State->Late.DensityGain); - DelayLineIn(&State->Decorrelator, State->Offset, feed); - - // Calculate the late reverb from the decorrelator taps. - taps[0] = feed; - taps[1] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[0]); - taps[2] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[1]); - taps[3] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[2]); - LateReverb(State, taps, late); - - // Step all delays forward one sample. - State->Offset++; -} - -// Perform the EAX reverb pass on a given input sample, resulting in four- -// channel output. -static __inline ALvoid EAXVerbPass(ALverbState *State, ALfp in, ALfp *early, ALfp *late) -{ - ALfp feed, taps[4]; - - // Low-pass filter the incoming sample. - in = lpFilter2P(&State->LpFilter, 0, in); - - // Perform any modulation on the input. - in = EAXModulation(State, in); - - // Feed the initial delay line. - DelayLineIn(&State->Delay, State->Offset, in); - - // Calculate the early reflection from the first delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[0]); - EarlyReflection(State, in, early); - - // Feed the decorrelator from the energy-attenuated output of the second - // delay tap. - in = DelayLineOut(&State->Delay, State->Offset - State->DelayTap[1]); - feed = ALfpMult(in, State->Late.DensityGain); - DelayLineIn(&State->Decorrelator, State->Offset, feed); - - // Calculate the late reverb from the decorrelator taps. - taps[0] = feed; - taps[1] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[0]); - taps[2] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[1]); - taps[3] = DelayLineOut(&State->Decorrelator, State->Offset - State->DecoTap[2]); - LateReverb(State, taps, late); - - // Calculate and mix in any echo. - EAXEcho(State, in, late); - - // Step all delays forward one sample. - State->Offset++; -} - -// This destroys the reverb state. It should be called only when the effect -// slot has a different (or no) effect loaded over the reverb effect. -static ALvoid VerbDestroy(ALeffectState *effect) -{ - ALverbState *State = (ALverbState*)effect; - if(State) - { - free(State->SampleBuffer); - State->SampleBuffer = NULL; - free(State); - } -} - -// This updates the device-dependant reverb state. This is called on -// initialization and any time the device parameters (eg. playback frequency, -// or format) have been changed. -static ALboolean VerbDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Device->Frequency; - ALuint index; - - // Allocate the delay lines. - if(!AllocLines(AL_FALSE, frequency, State)) - return AL_FALSE; - - // The early reflection and late all-pass filter line lengths are static, - // so their offsets only need to be calculated once. - for(index = 0;index < 4;index++) - { - State->Early.Offset[index] = ALfp2int(ALfpMult(EARLY_LINE_LENGTH[index], - int2ALfp(frequency))); - State->Late.ApOffset[index] = ALfp2int(ALfpMult(ALLPASS_LINE_LENGTH[index], - int2ALfp(frequency))); - } - - for(index = 0;index < MAXCHANNELS;index++) - State->Gain[index] = int2ALfp(0); - for(index = 0;index < Device->NumChan;index++) - { - Channel chan = Device->Speaker2Chan[index]; - State->Gain[chan] = int2ALfp(1); - } - - return AL_TRUE; -} - -// This updates the device-dependant EAX reverb state. This is called on -// initialization and any time the device parameters (eg. playback frequency, -// format) have been changed. -static ALboolean EAXVerbDeviceUpdate(ALeffectState *effect, ALCdevice *Device) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Device->Frequency, index; - - // Allocate the delay lines. - if(!AllocLines(AL_TRUE, frequency, State)) - return AL_FALSE; - - // Calculate the modulation filter coefficient. Notice that the exponent - // is calculated given the current sample rate. This ensures that the - // resulting filter response over time is consistent across all sample - // rates. - State->Mod.Coeff = aluPow(MODULATION_FILTER_COEFF, - ALfpDiv(MODULATION_FILTER_CONST, int2ALfp(frequency))); - - // The early reflection and late all-pass filter line lengths are static, - // so their offsets only need to be calculated once. - for(index = 0;index < 4;index++) - { - State->Early.Offset[index] = ALfp2int(ALfpMult(EARLY_LINE_LENGTH[index], - int2ALfp(frequency))); - State->Late.ApOffset[index] = ALfp2int(ALfpMult(ALLPASS_LINE_LENGTH[index], - int2ALfp(frequency))); - } - - // The echo all-pass filter line length is static, so its offset only - // needs to be calculated once. - State->Echo.ApOffset = ALfp2int(ALfpMult(ECHO_ALLPASS_LENGTH, int2ALfp(frequency))); - - return AL_TRUE; -} - -// This updates the reverb state. This is called any time the reverb effect -// is loaded into a slot. -static ALvoid VerbUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Context->Device->Frequency; - ALfp cw, x, y, hfRatio; - - // Calculate the master low-pass filter (from the master effect HF gain). - cw = CalcI3DL2HFreq(Effect->Reverb.HFReference, frequency); - // This is done with 2 chained 1-pole filters, so no need to square g. - State->LpFilter.coeff = lpCoeffCalc(Effect->Reverb.GainHF, cw); - - // Update the initial effect delay. - UpdateDelayLine(Effect->Reverb.ReflectionsDelay, - Effect->Reverb.LateReverbDelay, frequency, State); - - // Update the early lines. - UpdateEarlyLines(Effect->Reverb.Gain, Effect->Reverb.ReflectionsGain, - Effect->Reverb.LateReverbDelay, State); - - // Update the decorrelator. - UpdateDecorrelator(Effect->Reverb.Density, frequency, State); - - // Get the mixing matrix coefficients (x and y). - CalcMatrixCoeffs(Effect->Reverb.Diffusion, &x, &y); - // Then divide x into y to simplify the matrix calculation. - State->Late.MixCoeff = ALfpDiv(y, x); - - // If the HF limit parameter is flagged, calculate an appropriate limit - // based on the air absorption parameter. - hfRatio = Effect->Reverb.DecayHFRatio; - if(Effect->Reverb.DecayHFLimit && Effect->Reverb.AirAbsorptionGainHF < int2ALfp(1)) - hfRatio = CalcLimitedHfRatio(hfRatio, Effect->Reverb.AirAbsorptionGainHF, - Effect->Reverb.DecayTime); - - // Update the late lines. - UpdateLateLines(Effect->Reverb.Gain, Effect->Reverb.LateReverbGain, - x, Effect->Reverb.Density, Effect->Reverb.DecayTime, - Effect->Reverb.Diffusion, hfRatio, cw, frequency, State); -} - -// This updates the EAX reverb state. This is called any time the EAX reverb -// effect is loaded into a slot. -static ALvoid EAXVerbUpdate(ALeffectState *effect, ALCcontext *Context, const ALeffect *Effect) -{ - ALverbState *State = (ALverbState*)effect; - ALuint frequency = Context->Device->Frequency; - ALfp cw, x, y, hfRatio; - - // Calculate the master low-pass filter (from the master effect HF gain). - cw = CalcI3DL2HFreq(Effect->Reverb.HFReference, frequency); - // This is done with 2 chained 1-pole filters, so no need to square g. - State->LpFilter.coeff = lpCoeffCalc(Effect->Reverb.GainHF, cw); - - // Update the modulator line. - UpdateModulator(Effect->Reverb.ModulationTime, - Effect->Reverb.ModulationDepth, frequency, State); - - // Update the initial effect delay. - UpdateDelayLine(Effect->Reverb.ReflectionsDelay, - Effect->Reverb.LateReverbDelay, frequency, State); - - // Update the early lines. - UpdateEarlyLines(Effect->Reverb.Gain, Effect->Reverb.ReflectionsGain, - Effect->Reverb.LateReverbDelay, State); - - // Update the decorrelator. - UpdateDecorrelator(Effect->Reverb.Density, frequency, State); - - // Get the mixing matrix coefficients (x and y). - CalcMatrixCoeffs(Effect->Reverb.Diffusion, &x, &y); - // Then divide x into y to simplify the matrix calculation. - State->Late.MixCoeff = ALfpDiv(y, x); - - // If the HF limit parameter is flagged, calculate an appropriate limit - // based on the air absorption parameter. - hfRatio = Effect->Reverb.DecayHFRatio; - if(Effect->Reverb.DecayHFLimit && Effect->Reverb.AirAbsorptionGainHF < int2ALfp(1)) - hfRatio = CalcLimitedHfRatio(hfRatio, Effect->Reverb.AirAbsorptionGainHF, - Effect->Reverb.DecayTime); - - // Update the late lines. - UpdateLateLines(Effect->Reverb.Gain, Effect->Reverb.LateReverbGain, - x, Effect->Reverb.Density, Effect->Reverb.DecayTime, - Effect->Reverb.Diffusion, hfRatio, cw, frequency, State); - - // Update the echo line. - UpdateEchoLine(Effect->Reverb.Gain, Effect->Reverb.LateReverbGain, - Effect->Reverb.EchoTime, Effect->Reverb.DecayTime, - Effect->Reverb.Diffusion, Effect->Reverb.EchoDepth, - hfRatio, cw, frequency, State); - - // Update early and late 3D panning. - Update3DPanning(Context->Device, Effect->Reverb.ReflectionsPan, - Effect->Reverb.LateReverbPan, State); -} - -// This processes the reverb state, given the input samples and an output -// buffer. -static ALvoid VerbProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALverbState *State = (ALverbState*)effect; - ALuint index; - ALfp early[4], late[4], out[4]; - ALfp gain = Slot->Gain; - const ALfp *panGain = State->Gain; - - for(index = 0;index < SamplesToDo;index++) - { - // Process reverb for this sample. - VerbPass(State, SamplesIn[index], early, late); - - // Mix early reflections and late reverb. - out[0] = ALfpMult((early[0] + late[0]), gain); - out[1] = ALfpMult((early[1] + late[1]), gain); -#ifdef APPORTABLE_OPTIMIZED_OUT - out[2] = ALfpMult((early[2] + late[2]), gain); - out[3] = ALfpMult((early[3] + late[3]), gain); -#endif - - // Output the results. - SamplesOut[index][FRONT_LEFT] = (SamplesOut[index][FRONT_LEFT] + ALfpMult(panGain[FRONT_LEFT] , out[0])); - SamplesOut[index][FRONT_RIGHT] = (SamplesOut[index][FRONT_RIGHT] + ALfpMult(panGain[FRONT_RIGHT] , out[1])); -#ifdef APPORTABLE_OPTIMIZED_OUT - SamplesOut[index][FRONT_CENTER] = (SamplesOut[index][FRONT_CENTER] + ALfpMult(panGain[FRONT_CENTER] , out[3])); - SamplesOut[index][SIDE_LEFT] = (SamplesOut[index][SIDE_LEFT] + ALfpMult(panGain[SIDE_LEFT] , out[0])); - SamplesOut[index][SIDE_RIGHT] = (SamplesOut[index][SIDE_RIGHT] + ALfpMult(panGain[SIDE_RIGHT] , out[1])); - SamplesOut[index][BACK_LEFT] = (SamplesOut[index][BACK_LEFT] + ALfpMult(panGain[BACK_LEFT] , out[0])); - SamplesOut[index][BACK_RIGHT] = (SamplesOut[index][BACK_RIGHT] + ALfpMult(panGain[BACK_RIGHT] , out[1])); - SamplesOut[index][BACK_CENTER] = (SamplesOut[index][BACK_CENTER] + ALfpMult(panGain[BACK_CENTER] , out[2])); -#endif - } -} - -// This processes the EAX reverb state, given the input samples and an output -// buffer. -static ALvoid EAXVerbProcess(ALeffectState *effect, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - ALverbState *State = (ALverbState*)effect; - ALuint index; - ALfp early[4], late[4]; - ALfp gain = Slot->Gain; - - for(index = 0;index < SamplesToDo;index++) - { - // Process reverb for this sample. - EAXVerbPass(State, SamplesIn[index], early, late); - - // Unfortunately, while the number and configuration of gains for - // panning adjust according to MAXCHANNELS, the output from the - // reverb engine is not so scalable. - SamplesOut[index][FRONT_LEFT] = (SamplesOut[index][FRONT_LEFT] + - ALfpMult((ALfpMult(State->Early.PanGain[FRONT_LEFT],early[0]) + - ALfpMult(State->Late.PanGain[FRONT_LEFT],late[0])), gain)); - SamplesOut[index][FRONT_RIGHT] = (SamplesOut[index][FRONT_RIGHT] + - ALfpMult((ALfpMult(State->Early.PanGain[FRONT_RIGHT],early[1]) + - ALfpMult(State->Late.PanGain[FRONT_RIGHT],late[1])), gain)); -#ifdef APPORTABLE_OPTIMIZED_OUT - SamplesOut[index][FRONT_CENTER] = (SamplesOut[index][FRONT_CENTER] + - ALfpMult((ALfpMult(State->Early.PanGain[FRONT_LEFT],early[3]) + - ALfpMult(State->Late.PanGain[FRONT_CENTER],late[3])), gain)); - SamplesOut[index][SIDE_LEFT] = (SamplesOut[index][SIDE_LEFT] + - ALfpMult((ALfpMult(State->Early.PanGain[SIDE_LEFT],early[0]) + - ALfpMult(State->Late.PanGain[SIDE_LEFT],late[0])), gain)); - SamplesOut[index][SIDE_RIGHT] = (SamplesOut[index][SIDE_RIGHT] + - ALfpMult((ALfpMult(State->Early.PanGain[SIDE_RIGHT],early[1]) + - ALfpMult(State->Late.PanGain[SIDE_RIGHT],late[1])), gain)); - SamplesOut[index][BACK_LEFT] = (SamplesOut[index][BACK_LEFT] + - ALfpMult((ALfpMult(State->Early.PanGain[BACK_LEFT],early[0]) + - ALfpMult(State->Late.PanGain[BACK_LEFT],late[0])), gain)); - SamplesOut[index][BACK_RIGHT] = (SamplesOut[index][BACK_RIGHT] + - ALfpMult((ALfpMult(State->Early.PanGain[BACK_RIGHT],early[1]) + - ALfpMult(State->Late.PanGain[BACK_RIGHT],late[1])), gain)); - SamplesOut[index][BACK_CENTER] = (SamplesOut[index][BACK_CENTER] + - ALfpMult((ALfpMult(State->Early.PanGain[BACK_CENTER],early[2]) + - ALfpMult(State->Late.PanGain[BACK_CENTER],late[2])), gain)); -#endif - - } -} - -// This creates the reverb state. It should be called only when the reverb -// effect is loaded into a slot that doesn't already have a reverb effect. -ALeffectState *VerbCreate(void) -{ - ALverbState *State = NULL; - ALuint index; - - State = malloc(sizeof(ALverbState)); - if(!State) - return NULL; - - State->state.Destroy = VerbDestroy; - State->state.DeviceUpdate = VerbDeviceUpdate; - State->state.Update = VerbUpdate; - State->state.Process = VerbProcess; - - State->TotalSamples = 0; - State->SampleBuffer = NULL; - - State->LpFilter.coeff = int2ALfp(0); - State->LpFilter.history[0] = int2ALfp(0); - State->LpFilter.history[1] = int2ALfp(0); - - State->Mod.Delay.Mask = 0; - State->Mod.Delay.Line = NULL; - State->Mod.Index = 0; - State->Mod.Range = 1; - State->Mod.Depth = int2ALfp(0); - State->Mod.Coeff = int2ALfp(0); - State->Mod.Filter = int2ALfp(0); - - State->Delay.Mask = 0; - State->Delay.Line = NULL; - State->DelayTap[0] = 0; - State->DelayTap[1] = 0; - - State->Early.Gain = int2ALfp(0); - for(index = 0;index < 4;index++) - { - State->Early.Coeff[index] = int2ALfp(0); - State->Early.Delay[index].Mask = 0; - State->Early.Delay[index].Line = NULL; - State->Early.Offset[index] = 0; - } - - State->Decorrelator.Mask = 0; - State->Decorrelator.Line = NULL; - State->DecoTap[0] = 0; - State->DecoTap[1] = 0; - State->DecoTap[2] = 0; - - State->Late.Gain = int2ALfp(0); - State->Late.DensityGain = int2ALfp(0); - State->Late.ApFeedCoeff = int2ALfp(0); - State->Late.MixCoeff = int2ALfp(0); - for(index = 0;index < 4;index++) - { - State->Late.ApCoeff[index] = int2ALfp(0); - State->Late.ApDelay[index].Mask = 0; - State->Late.ApDelay[index].Line = NULL; - State->Late.ApOffset[index] = 0; - - State->Late.Coeff[index] = int2ALfp(0); - State->Late.Delay[index].Mask = 0; - State->Late.Delay[index].Line = NULL; - State->Late.Offset[index] = 0; - - State->Late.LpCoeff[index] = int2ALfp(0); - State->Late.LpSample[index] = int2ALfp(0); - } - - for(index = 0;index < MAXCHANNELS;index++) - { - State->Early.PanGain[index] = int2ALfp(0); - State->Late.PanGain[index] = int2ALfp(0); - } - - State->Echo.DensityGain = int2ALfp(0); - State->Echo.Delay.Mask = 0; - State->Echo.Delay.Line = NULL; - State->Echo.ApDelay.Mask = 0; - State->Echo.ApDelay.Line = NULL; - State->Echo.Coeff = int2ALfp(0); - State->Echo.ApFeedCoeff = int2ALfp(0); - State->Echo.ApCoeff = int2ALfp(0); - State->Echo.Offset = 0; - State->Echo.ApOffset = 0; - State->Echo.LpCoeff = int2ALfp(0); - State->Echo.LpSample = int2ALfp(0); - State->Echo.MixCoeff[0] = int2ALfp(0); - State->Echo.MixCoeff[1] = int2ALfp(0); - - State->Offset = 0; - - State->Gain = State->Late.PanGain; - - return &State->state; -} - -ALeffectState *EAXVerbCreate(void) -{ - ALeffectState *State = VerbCreate(); - if(State) - { - State->DeviceUpdate = EAXVerbDeviceUpdate; - State->Update = EAXVerbUpdate; - State->Process = EAXVerbProcess; - } - return State; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alcRing.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alcRing.c deleted file mode 100644 index 3361eb6e5..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alcRing.c +++ /dev/null @@ -1,131 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "alMain.h" - - -struct RingBuffer { - ALubyte *mem; - - ALsizei frame_size; - ALsizei length; - ALint read_pos; - ALint write_pos; - - CRITICAL_SECTION cs; -}; - - -RingBuffer *CreateRingBuffer(ALsizei frame_size, ALsizei length) -{ - RingBuffer *ring = calloc(1, sizeof(*ring)); - if(ring) - { - ring->frame_size = frame_size; - ring->length = length+1; - ring->write_pos = 1; - ring->mem = malloc(ring->length * ring->frame_size); - if(!ring->mem) - { - free(ring); - ring = NULL; - } - - InitializeCriticalSection(&ring->cs); - } - return ring; -} - -void DestroyRingBuffer(RingBuffer *ring) -{ - if(ring) - { - DeleteCriticalSection(&ring->cs); - free(ring->mem); - free(ring); - } -} - -ALsizei RingBufferSize(RingBuffer *ring) -{ - ALsizei s; - - EnterCriticalSection(&ring->cs); - s = (ring->write_pos-ring->read_pos-1+ring->length) % ring->length; - LeaveCriticalSection(&ring->cs); - - return s; -} - -void WriteRingBuffer(RingBuffer *ring, const ALubyte *data, ALsizei len) -{ - int remain; - - EnterCriticalSection(&ring->cs); - - remain = (ring->read_pos-ring->write_pos+ring->length) % ring->length; - if(remain < len) len = remain; - - if(len > 0) - { - remain = ring->length - ring->write_pos; - if(remain < len) - { - memcpy(ring->mem+(ring->write_pos*ring->frame_size), data, - remain*ring->frame_size); - memcpy(ring->mem, data+(remain*ring->frame_size), - (len-remain)*ring->frame_size); - } - else - memcpy(ring->mem+(ring->write_pos*ring->frame_size), data, - len*ring->frame_size); - - ring->write_pos += len; - ring->write_pos %= ring->length; - } - - LeaveCriticalSection(&ring->cs); -} - -void ReadRingBuffer(RingBuffer *ring, ALubyte *data, ALsizei len) -{ - int remain; - - EnterCriticalSection(&ring->cs); - - remain = ring->length - ring->read_pos; - if(remain < len) - { - memcpy(data, ring->mem+(ring->read_pos*ring->frame_size), remain*ring->frame_size); - memcpy(data+(remain*ring->frame_size), ring->mem, (len-remain)*ring->frame_size); - } - else - memcpy(data, ring->mem+(ring->read_pos*ring->frame_size), len*ring->frame_size); - - ring->read_pos += len; - ring->read_pos %= ring->length; - - LeaveCriticalSection(&ring->cs); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alcThread.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alcThread.c deleted file mode 100644 index 582dfd8c2..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alcThread.c +++ /dev/null @@ -1,128 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include - -#include "alMain.h" -#include "alThunk.h" - - -#ifdef _WIN32 - -typedef struct { - ALuint (*func)(ALvoid*); - ALvoid *ptr; - HANDLE thread; -} ThreadInfo; - -static DWORD CALLBACK StarterFunc(void *ptr) -{ - ThreadInfo *inf = (ThreadInfo*)ptr; - ALint ret; - - ret = inf->func(inf->ptr); - ExitThread((DWORD)ret); - - return (DWORD)ret; -} - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr) -{ - DWORD dummy; - ThreadInfo *inf = malloc(sizeof(ThreadInfo)); - if(!inf) return 0; - - inf->func = func; - inf->ptr = ptr; - - inf->thread = CreateThread(NULL, 0, StarterFunc, inf, 0, &dummy); - if(!inf->thread) - { - free(inf); - return NULL; - } - - return inf; -} - -ALuint StopThread(ALvoid *thread) -{ - ThreadInfo *inf = thread; - DWORD ret = 0; - - WaitForSingleObject(inf->thread, INFINITE); - GetExitCodeThread(inf->thread, &ret); - CloseHandle(inf->thread); - - free(inf); - - return (ALuint)ret; -} - -#else - -#include - -typedef struct { - ALuint (*func)(ALvoid*); - ALvoid *ptr; - ALuint ret; - pthread_t thread; -} ThreadInfo; - -static void *StarterFunc(void *ptr) -{ - ThreadInfo *inf = (ThreadInfo*)ptr; - inf->ret = inf->func(inf->ptr); - return NULL; -} - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr) -{ - ThreadInfo *inf = malloc(sizeof(ThreadInfo)); - if(!inf) return NULL; - - inf->func = func; - inf->ptr = ptr; - if(pthread_create(&inf->thread, NULL, StarterFunc, inf) != 0) - { - free(inf); - return NULL; - } - - return inf; -} - -ALuint StopThread(ALvoid *thread) -{ - ThreadInfo *inf = thread; - ALuint ret; - - pthread_join(inf->thread, NULL); - ret = inf->ret; - - free(inf); - - return ret; -} - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/alsa.c b/internal/c/parts/audio/out/android/other/stuff/Alc/alsa.c deleted file mode 100644 index a7e87587b..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/alsa.c +++ /dev/null @@ -1,1048 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#ifdef HAVE_DLFCN_H -#include -#endif -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include - - -typedef struct { - snd_pcm_t *pcmHandle; - - ALvoid *buffer; - ALsizei size; - - ALboolean doCapture; - RingBuffer *ring; - - volatile int killNow; - ALvoid *thread; -} alsa_data; - -typedef struct { - ALCchar *name; - int card, dev; -} DevMap; - -static void *alsa_handle; -#define MAKE_FUNC(f) static typeof(f) * p##f -MAKE_FUNC(snd_strerror); -MAKE_FUNC(snd_pcm_open); -MAKE_FUNC(snd_pcm_close); -MAKE_FUNC(snd_pcm_nonblock); -MAKE_FUNC(snd_pcm_frames_to_bytes); -MAKE_FUNC(snd_pcm_bytes_to_frames); -MAKE_FUNC(snd_pcm_hw_params_malloc); -MAKE_FUNC(snd_pcm_hw_params_free); -MAKE_FUNC(snd_pcm_hw_params_any); -MAKE_FUNC(snd_pcm_hw_params_set_access); -MAKE_FUNC(snd_pcm_hw_params_set_format); -MAKE_FUNC(snd_pcm_hw_params_set_channels); -MAKE_FUNC(snd_pcm_hw_params_set_periods_near); -MAKE_FUNC(snd_pcm_hw_params_set_rate_near); -MAKE_FUNC(snd_pcm_hw_params_set_rate); -MAKE_FUNC(snd_pcm_hw_params_set_rate_resample); -MAKE_FUNC(snd_pcm_hw_params_set_buffer_time_near); -MAKE_FUNC(snd_pcm_hw_params_set_period_time_near); -MAKE_FUNC(snd_pcm_hw_params_set_buffer_size_near); -MAKE_FUNC(snd_pcm_hw_params_set_period_size_near); -MAKE_FUNC(snd_pcm_hw_params_set_buffer_size_min); -MAKE_FUNC(snd_pcm_hw_params_get_buffer_size); -MAKE_FUNC(snd_pcm_hw_params_get_period_size); -MAKE_FUNC(snd_pcm_hw_params_get_access); -MAKE_FUNC(snd_pcm_hw_params_get_periods); -MAKE_FUNC(snd_pcm_hw_params); -MAKE_FUNC(snd_pcm_sw_params_malloc); -MAKE_FUNC(snd_pcm_sw_params_current); -MAKE_FUNC(snd_pcm_sw_params_set_avail_min); -MAKE_FUNC(snd_pcm_sw_params); -MAKE_FUNC(snd_pcm_sw_params_free); -MAKE_FUNC(snd_pcm_prepare); -MAKE_FUNC(snd_pcm_start); -MAKE_FUNC(snd_pcm_resume); -MAKE_FUNC(snd_pcm_wait); -MAKE_FUNC(snd_pcm_state); -MAKE_FUNC(snd_pcm_avail_update); -MAKE_FUNC(snd_pcm_areas_silence); -MAKE_FUNC(snd_pcm_mmap_begin); -MAKE_FUNC(snd_pcm_mmap_commit); -MAKE_FUNC(snd_pcm_readi); -MAKE_FUNC(snd_pcm_writei); -MAKE_FUNC(snd_pcm_drain); -MAKE_FUNC(snd_pcm_recover); -MAKE_FUNC(snd_pcm_info_malloc); -MAKE_FUNC(snd_pcm_info_free); -MAKE_FUNC(snd_pcm_info_set_device); -MAKE_FUNC(snd_pcm_info_set_subdevice); -MAKE_FUNC(snd_pcm_info_set_stream); -MAKE_FUNC(snd_pcm_info_get_name); -MAKE_FUNC(snd_ctl_pcm_next_device); -MAKE_FUNC(snd_ctl_pcm_info); -MAKE_FUNC(snd_ctl_open); -MAKE_FUNC(snd_ctl_close); -MAKE_FUNC(snd_ctl_card_info_malloc); -MAKE_FUNC(snd_ctl_card_info_free); -MAKE_FUNC(snd_ctl_card_info); -MAKE_FUNC(snd_ctl_card_info_get_name); -MAKE_FUNC(snd_card_next); -#undef MAKE_FUNC - - -static const ALCchar alsaDevice[] = "ALSA Default"; -static DevMap *allDevNameMap; -static ALuint numDevNames; -static DevMap *allCaptureDevNameMap; -static ALuint numCaptureDevNames; - - -void *alsa_load(void) -{ - if(!alsa_handle) - { - char *str; - -#ifdef HAVE_DLFCN_H - alsa_handle = dlopen("libasound.so.2", RTLD_NOW); - if(!alsa_handle) - return NULL; - dlerror(); - -#define LOAD_FUNC(f) do { \ - p##f = dlsym(alsa_handle, #f); \ - if((str=dlerror()) != NULL) \ - { \ - dlclose(alsa_handle); \ - alsa_handle = NULL; \ - AL_PRINT("Could not load %s from libasound.so.2: %s\n", #f, str); \ - return NULL; \ - } \ -} while(0) -#else - str = NULL; - alsa_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(f) p##f = f -#endif - -LOAD_FUNC(snd_strerror); -LOAD_FUNC(snd_pcm_open); -LOAD_FUNC(snd_pcm_close); -LOAD_FUNC(snd_pcm_nonblock); -LOAD_FUNC(snd_pcm_frames_to_bytes); -LOAD_FUNC(snd_pcm_bytes_to_frames); -LOAD_FUNC(snd_pcm_hw_params_malloc); -LOAD_FUNC(snd_pcm_hw_params_free); -LOAD_FUNC(snd_pcm_hw_params_any); -LOAD_FUNC(snd_pcm_hw_params_set_access); -LOAD_FUNC(snd_pcm_hw_params_set_format); -LOAD_FUNC(snd_pcm_hw_params_set_channels); -LOAD_FUNC(snd_pcm_hw_params_set_periods_near); -LOAD_FUNC(snd_pcm_hw_params_set_rate_near); -LOAD_FUNC(snd_pcm_hw_params_set_rate); -LOAD_FUNC(snd_pcm_hw_params_set_rate_resample); -LOAD_FUNC(snd_pcm_hw_params_set_buffer_time_near); -LOAD_FUNC(snd_pcm_hw_params_set_period_time_near); -LOAD_FUNC(snd_pcm_hw_params_set_buffer_size_near); -LOAD_FUNC(snd_pcm_hw_params_set_buffer_size_min); -LOAD_FUNC(snd_pcm_hw_params_set_period_size_near); -LOAD_FUNC(snd_pcm_hw_params_get_buffer_size); -LOAD_FUNC(snd_pcm_hw_params_get_period_size); -LOAD_FUNC(snd_pcm_hw_params_get_access); -LOAD_FUNC(snd_pcm_hw_params_get_periods); -LOAD_FUNC(snd_pcm_hw_params); -LOAD_FUNC(snd_pcm_sw_params_malloc); -LOAD_FUNC(snd_pcm_sw_params_current); -LOAD_FUNC(snd_pcm_sw_params_set_avail_min); -LOAD_FUNC(snd_pcm_sw_params); -LOAD_FUNC(snd_pcm_sw_params_free); -LOAD_FUNC(snd_pcm_prepare); -LOAD_FUNC(snd_pcm_start); -LOAD_FUNC(snd_pcm_resume); -LOAD_FUNC(snd_pcm_wait); -LOAD_FUNC(snd_pcm_state); -LOAD_FUNC(snd_pcm_avail_update); -LOAD_FUNC(snd_pcm_areas_silence); -LOAD_FUNC(snd_pcm_mmap_begin); -LOAD_FUNC(snd_pcm_mmap_commit); -LOAD_FUNC(snd_pcm_readi); -LOAD_FUNC(snd_pcm_writei); -LOAD_FUNC(snd_pcm_drain); -LOAD_FUNC(snd_pcm_recover); - -LOAD_FUNC(snd_pcm_info_malloc); -LOAD_FUNC(snd_pcm_info_free); -LOAD_FUNC(snd_pcm_info_set_device); -LOAD_FUNC(snd_pcm_info_set_subdevice); -LOAD_FUNC(snd_pcm_info_set_stream); -LOAD_FUNC(snd_pcm_info_get_name); -LOAD_FUNC(snd_ctl_pcm_next_device); -LOAD_FUNC(snd_ctl_pcm_info); -LOAD_FUNC(snd_ctl_open); -LOAD_FUNC(snd_ctl_close); -LOAD_FUNC(snd_ctl_card_info_malloc); -LOAD_FUNC(snd_ctl_card_info_free); -LOAD_FUNC(snd_ctl_card_info); -LOAD_FUNC(snd_ctl_card_info_get_name); -LOAD_FUNC(snd_card_next); - -#undef LOAD_FUNC - } - return alsa_handle; -} - -static DevMap *probe_devices(snd_pcm_stream_t stream, ALuint *count) -{ - snd_ctl_t *handle; - int card, err, dev, idx; - snd_ctl_card_info_t *info; - snd_pcm_info_t *pcminfo; - DevMap *DevList; - char name[1024]; - - psnd_ctl_card_info_malloc(&info); - psnd_pcm_info_malloc(&pcminfo); - - card = -1; - if((err=psnd_card_next(&card)) < 0) - AL_PRINT("Failed to find a card: %s\n", psnd_strerror(err)); - - DevList = malloc(sizeof(DevMap) * 1); - DevList[0].name = strdup("ALSA Default"); - idx = 1; - while(card >= 0) - { - sprintf(name, "hw:%d", card); - if((err = psnd_ctl_open(&handle, name, 0)) < 0) - { - AL_PRINT("control open (%i): %s\n", card, psnd_strerror(err)); - goto next_card; - } - if((err = psnd_ctl_card_info(handle, info)) < 0) - { - AL_PRINT("control hardware info (%i): %s\n", card, psnd_strerror(err)); - psnd_ctl_close(handle); - goto next_card; - } - - dev = -1; - while(1) - { - const char *cname, *dname; - void *temp; - - if(psnd_ctl_pcm_next_device(handle, &dev) < 0) - AL_PRINT("snd_ctl_pcm_next_device failed\n"); - if(dev < 0) - break; - - psnd_pcm_info_set_device(pcminfo, dev); - psnd_pcm_info_set_subdevice(pcminfo, 0); - psnd_pcm_info_set_stream(pcminfo, stream); - if((err = psnd_ctl_pcm_info(handle, pcminfo)) < 0) { - if(err != -ENOENT) - AL_PRINT("control digital audio info (%i): %s\n", card, psnd_strerror(err)); - continue; - } - - temp = realloc(DevList, sizeof(DevMap) * (idx+1)); - if(temp) - { - DevList = temp; - cname = psnd_ctl_card_info_get_name(info); - dname = psnd_pcm_info_get_name(pcminfo); - snprintf(name, sizeof(name), "%s [%s] (hw:%d,%d) via ALSA", - cname, dname, card, dev); - DevList[idx].name = strdup(name); - DevList[idx].card = card; - DevList[idx].dev = dev; - idx++; - } - } - psnd_ctl_close(handle); - next_card: - if(psnd_card_next(&card) < 0) { - AL_PRINT("snd_card_next failed\n"); - break; - } - } - - psnd_pcm_info_free(pcminfo); - psnd_ctl_card_info_free(info); - - *count = idx; - return DevList; -} - - -static int xrun_recovery(snd_pcm_t *handle, int err) -{ - err = psnd_pcm_recover(handle, err, 1); - if(err < 0) - AL_PRINT("recover failed: %s\n", psnd_strerror(err)); - return err; -} - -static int verify_state(snd_pcm_t *handle) -{ - snd_pcm_state_t state = psnd_pcm_state(handle); - if(state == SND_PCM_STATE_DISCONNECTED) - return -ENODEV; - if(state == SND_PCM_STATE_XRUN) - { - int err = xrun_recovery(handle, -EPIPE); - if(err < 0) return err; - } - else if(state == SND_PCM_STATE_SUSPENDED) - { - int err = xrun_recovery(handle, -ESTRPIPE); - if(err < 0) return err; - } - - return state; -} - - -static ALuint ALSAProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - alsa_data *data = (alsa_data*)pDevice->ExtraData; - const snd_pcm_channel_area_t *areas = NULL; - snd_pcm_sframes_t avail, commitres; - snd_pcm_uframes_t offset, frames; - char *WritePtr; - int err; - - SetRTPriority(); - - while(!data->killNow) - { - int state = verify_state(data->pcmHandle); - if(state < 0) - { - AL_PRINT("Invalid state detected: %s\n", psnd_strerror(state)); - aluHandleDisconnect(pDevice); - break; - } - - avail = psnd_pcm_avail_update(data->pcmHandle); - if(avail < 0) - { - AL_PRINT("available update failed: %s\n", psnd_strerror(avail)); - continue; - } - - // make sure there's frames to process - if((snd_pcm_uframes_t)avail < pDevice->UpdateSize) - { - if(state != SND_PCM_STATE_RUNNING) - { - err = psnd_pcm_start(data->pcmHandle); - if(err < 0) - { - AL_PRINT("start failed: %s\n", psnd_strerror(err)); - continue; - } - } - if(psnd_pcm_wait(data->pcmHandle, 1000) == 0) - AL_PRINT("Wait timeout... buffer size too low?\n"); - continue; - } - avail -= avail%pDevice->UpdateSize; - - // it is possible that contiguous areas are smaller, thus we use a loop - while(avail > 0) - { - frames = avail; - - err = psnd_pcm_mmap_begin(data->pcmHandle, &areas, &offset, &frames); - if(err < 0) - { - AL_PRINT("mmap begin error: %s\n", psnd_strerror(err)); - break; - } - - WritePtr = (char*)areas->addr + (offset * areas->step / 8); - aluMixData(pDevice, WritePtr, frames); - - commitres = psnd_pcm_mmap_commit(data->pcmHandle, offset, frames); - if(commitres < 0 || (commitres-frames) != 0) - { - AL_PRINT("mmap commit error: %s\n", - psnd_strerror(commitres >= 0 ? -EPIPE : commitres)); - break; - } - - avail -= frames; - } - } - - return 0; -} - -static ALuint ALSANoMMapProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - alsa_data *data = (alsa_data*)pDevice->ExtraData; - snd_pcm_sframes_t avail; - char *WritePtr; - - SetRTPriority(); - - while(!data->killNow) - { - int state = verify_state(data->pcmHandle); - if(state < 0) - { - AL_PRINT("Invalid state detected: %s\n", psnd_strerror(state)); - aluHandleDisconnect(pDevice); - break; - } - - WritePtr = data->buffer; - avail = data->size / psnd_pcm_frames_to_bytes(data->pcmHandle, 1); - aluMixData(pDevice, WritePtr, avail); - - while(avail > 0) - { - int ret = psnd_pcm_writei(data->pcmHandle, WritePtr, avail); - switch (ret) - { - case -EAGAIN: - continue; - case -ESTRPIPE: - case -EPIPE: - case -EINTR: - ret = psnd_pcm_recover(data->pcmHandle, ret, 1); - if(ret < 0) - avail = 0; - break; - default: - if (ret >= 0) - { - WritePtr += psnd_pcm_frames_to_bytes(data->pcmHandle, ret); - avail -= ret; - } - break; - } - if (ret < 0) - { - ret = psnd_pcm_prepare(data->pcmHandle); - if(ret < 0) - break; - } - } - } - - return 0; -} - -static ALCboolean alsa_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - alsa_data *data; - char driver[64]; - int i; - - if(!alsa_load()) - return ALC_FALSE; - - strncpy(driver, GetConfigValue("alsa", "device", "default"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - - if(!deviceName) - deviceName = alsaDevice; - else if(strcmp(deviceName, alsaDevice) != 0) - { - size_t idx; - - if(!allDevNameMap) - allDevNameMap = probe_devices(SND_PCM_STREAM_PLAYBACK, &numDevNames); - - for(idx = 0;idx < numDevNames;idx++) - { - if(allDevNameMap[idx].name && - strcmp(deviceName, allDevNameMap[idx].name) == 0) - { - if(idx > 0) - sprintf(driver, "hw:%d,%d", allDevNameMap[idx].card, allDevNameMap[idx].dev); - break; - } - } - if(idx == numDevNames) - return ALC_FALSE; - } - - data = (alsa_data*)calloc(1, sizeof(alsa_data)); - - i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK); - if(i >= 0) - { - i = psnd_pcm_nonblock(data->pcmHandle, 0); - if(i < 0) - psnd_pcm_close(data->pcmHandle); - } - if(i < 0) - { - free(data); - AL_PRINT("Could not open playback device '%s': %s\n", driver, psnd_strerror(i)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void alsa_close_playback(ALCdevice *device) -{ - alsa_data *data = (alsa_data*)device->ExtraData; - - psnd_pcm_close(data->pcmHandle); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean alsa_reset_playback(ALCdevice *device) -{ - alsa_data *data = (alsa_data*)device->ExtraData; - snd_pcm_uframes_t periodSizeInFrames; - unsigned int periodLen, bufferLen; - snd_pcm_sw_params_t *sp = NULL; - snd_pcm_hw_params_t *p = NULL; - snd_pcm_access_t access; - snd_pcm_format_t format; - unsigned int periods; - unsigned int rate; - int allowmmap; - char *err; - int i; - - - format = -1; - switch(device->FmtType) - { - case DevFmtByte: - format = SND_PCM_FORMAT_S8; - break; - case DevFmtUByte: - format = SND_PCM_FORMAT_U8; - break; - case DevFmtShort: - format = SND_PCM_FORMAT_S16; - break; - case DevFmtUShort: - format = SND_PCM_FORMAT_U16; - break; - case DevFmtFloat: - format = SND_PCM_FORMAT_FLOAT; - break; - } - - allowmmap = GetConfigValueBool("alsa", "mmap", 1); - periods = device->NumUpdates; - periodLen = (ALuint64)device->UpdateSize * 1000000 / device->Frequency; - bufferLen = periodLen * periods; - rate = device->Frequency; - - err = NULL; - psnd_pcm_hw_params_malloc(&p); - - if((i=psnd_pcm_hw_params_any(data->pcmHandle, p)) < 0) - err = "any"; - /* set interleaved access */ - if(i >= 0 && (!allowmmap || (i=psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_MMAP_INTERLEAVED)) < 0)) - { - if(periods > 2) - { - periods--; - bufferLen = periodLen * periods; - } - if((i=psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_RW_INTERLEAVED)) < 0) - err = "set access"; - } - /* set format (implicitly sets sample bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, format)) < 0) - { - device->FmtType = DevFmtFloat; - if(format == SND_PCM_FORMAT_FLOAT || - (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, SND_PCM_FORMAT_FLOAT)) < 0) - { - device->FmtType = DevFmtShort; - if(format == SND_PCM_FORMAT_S16 || - (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, SND_PCM_FORMAT_S16)) < 0) - { - device->FmtType = DevFmtUByte; - if(format == SND_PCM_FORMAT_U8 || - (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, SND_PCM_FORMAT_U8)) < 0) - err = "set format"; - } - } - } - /* set channels (implicitly sets frame bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, ChannelsFromDevFmt(device->FmtChans))) < 0) - { - device->FmtChans = DevFmtStereo; - if((i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, 2)) < 0) - { - device->FmtChans = DevFmtMono; - if((i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, 1)) < 0) - err = "set channels"; - } - } - if(i >= 0 && (i=psnd_pcm_hw_params_set_rate_resample(data->pcmHandle, p, 0)) < 0) - { - AL_PRINT("Failed to disable ALSA resampler\n"); - i = 0; - } - /* set rate (implicitly constrains period/buffer parameters) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_rate_near(data->pcmHandle, p, &rate, NULL)) < 0) - err = "set rate near"; - /* set buffer time (implicitly constrains period/buffer parameters) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_buffer_time_near(data->pcmHandle, p, &bufferLen, NULL)) < 0) - err = "set buffer time near"; - /* set period time in frame units (implicitly sets buffer size/bytes/time and period size/bytes) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_period_time_near(data->pcmHandle, p, &periodLen, NULL)) < 0) - err = "set period time near"; - /* install and prepare hardware configuration */ - if(i >= 0 && (i=psnd_pcm_hw_params(data->pcmHandle, p)) < 0) - err = "set params"; - if(i >= 0 && (i=psnd_pcm_hw_params_get_access(p, &access)) < 0) - err = "get access"; - if(i >= 0 && (i=psnd_pcm_hw_params_get_period_size(p, &periodSizeInFrames, NULL)) < 0) - err = "get period size"; - if(i >= 0 && (i=psnd_pcm_hw_params_get_periods(p, &periods, NULL)) < 0) - err = "get periods"; - if(i < 0) - { - AL_PRINT("%s failed: %s\n", err, psnd_strerror(i)); - psnd_pcm_hw_params_free(p); - return ALC_FALSE; - } - - psnd_pcm_hw_params_free(p); - - err = NULL; - psnd_pcm_sw_params_malloc(&sp); - - if((i=psnd_pcm_sw_params_current(data->pcmHandle, sp)) != 0) - err = "sw current"; - if(i == 0 && (i=psnd_pcm_sw_params_set_avail_min(data->pcmHandle, sp, periodSizeInFrames)) != 0) - err = "sw set avail min"; - if(i == 0 && (i=psnd_pcm_sw_params(data->pcmHandle, sp)) != 0) - err = "sw set params"; - if(i != 0) - { - AL_PRINT("%s failed: %s\n", err, psnd_strerror(i)); - psnd_pcm_sw_params_free(sp); - return ALC_FALSE; - } - - psnd_pcm_sw_params_free(sp); - - device->Frequency = rate; - - SetDefaultChannelOrder(device); - - data->size = psnd_pcm_frames_to_bytes(data->pcmHandle, periodSizeInFrames); - if(access == SND_PCM_ACCESS_RW_INTERLEAVED) - { - /* Increase periods by one, since the temp buffer counts as an extra - * period */ - periods++; - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - return ALC_FALSE; - } - device->UpdateSize = periodSizeInFrames; - device->NumUpdates = periods; - data->thread = StartThread(ALSANoMMapProc, device); - } - else - { - i = psnd_pcm_prepare(data->pcmHandle); - if(i < 0) - { - AL_PRINT("prepare error: %s\n", psnd_strerror(i)); - return ALC_FALSE; - } - device->UpdateSize = periodSizeInFrames; - device->NumUpdates = periods; - data->thread = StartThread(ALSAProc, device); - } - if(data->thread == NULL) - { - AL_PRINT("Could not create playback thread\n"); - free(data->buffer); - data->buffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void alsa_stop_playback(ALCdevice *device) -{ - alsa_data *data = (alsa_data*)device->ExtraData; - - if(data->thread) - { - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - } - data->killNow = 0; - free(data->buffer); - data->buffer = NULL; -} - - -static ALCboolean alsa_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - snd_pcm_hw_params_t *p; - snd_pcm_uframes_t bufferSizeInFrames; - snd_pcm_format_t format; - ALuint frameSize; - alsa_data *data; - char driver[64]; - char *err; - int i; - - if(!alsa_load()) - return ALC_FALSE; - - strncpy(driver, GetConfigValue("alsa", "capture", "default"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - - if(!allCaptureDevNameMap) - allCaptureDevNameMap = probe_devices(SND_PCM_STREAM_CAPTURE, &numCaptureDevNames); - - if(!deviceName) - deviceName = allCaptureDevNameMap[0].name; - else - { - size_t idx; - - for(idx = 0;idx < numCaptureDevNames;idx++) - { - if(allCaptureDevNameMap[idx].name && - strcmp(deviceName, allCaptureDevNameMap[idx].name) == 0) - { - if(idx > 0) - sprintf(driver, "plughw:%d,%d", allCaptureDevNameMap[idx].card, allCaptureDevNameMap[idx].dev); - break; - } - } - if(idx == numCaptureDevNames) - return ALC_FALSE; - } - - data = (alsa_data*)calloc(1, sizeof(alsa_data)); - - i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_CAPTURE, SND_PCM_NONBLOCK); - if(i < 0) - { - AL_PRINT("Could not open capture device '%s': %s\n", driver, psnd_strerror(i)); - free(data); - return ALC_FALSE; - } - - format = -1; - switch(pDevice->FmtType) - { - case DevFmtByte: - format = SND_PCM_FORMAT_S8; - break; - case DevFmtUByte: - format = SND_PCM_FORMAT_U8; - break; - case DevFmtShort: - format = SND_PCM_FORMAT_S16; - break; - case DevFmtUShort: - format = SND_PCM_FORMAT_U16; - break; - case DevFmtFloat: - format = SND_PCM_FORMAT_FLOAT; - break; - } - - err = NULL; - bufferSizeInFrames = pDevice->UpdateSize * pDevice->NumUpdates; - psnd_pcm_hw_params_malloc(&p); - - if((i=psnd_pcm_hw_params_any(data->pcmHandle, p)) < 0) - err = "any"; - /* set interleaved access */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_RW_INTERLEAVED)) < 0) - err = "set access"; - /* set format (implicitly sets sample bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_format(data->pcmHandle, p, format)) < 0) - err = "set format"; - /* set channels (implicitly sets frame bits) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_channels(data->pcmHandle, p, ChannelsFromDevFmt(pDevice->FmtChans))) < 0) - err = "set channels"; - /* set rate (implicitly constrains period/buffer parameters) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_rate(data->pcmHandle, p, pDevice->Frequency, 0)) < 0) - err = "set rate near"; - /* set buffer size in frame units (implicitly sets period size/bytes/time and buffer time/bytes) */ - if(i >= 0 && (i=psnd_pcm_hw_params_set_buffer_size_near(data->pcmHandle, p, &bufferSizeInFrames)) < 0) - err = "set buffer size near"; - /* install and prepare hardware configuration */ - if(i >= 0 && (i=psnd_pcm_hw_params(data->pcmHandle, p)) < 0) - err = "set params"; - if(i < 0) - { - AL_PRINT("%s failed: %s\n", err, psnd_strerror(i)); - psnd_pcm_hw_params_free(p); - goto error; - } - - if((i=psnd_pcm_hw_params_get_period_size(p, &bufferSizeInFrames, NULL)) < 0) - { - AL_PRINT("get size failed: %s\n", psnd_strerror(i)); - psnd_pcm_hw_params_free(p); - goto error; - } - - psnd_pcm_hw_params_free(p); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - data->ring = CreateRingBuffer(frameSize, pDevice->UpdateSize*pDevice->NumUpdates); - if(!data->ring) - { - AL_PRINT("ring buffer create failed\n"); - goto error; - } - - data->size = psnd_pcm_frames_to_bytes(data->pcmHandle, bufferSizeInFrames); - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - goto error; - } - - pDevice->szDeviceName = strdup(deviceName); - - pDevice->ExtraData = data; - return ALC_TRUE; - -error: - free(data->buffer); - DestroyRingBuffer(data->ring); - psnd_pcm_close(data->pcmHandle); - free(data); - - pDevice->ExtraData = NULL; - return ALC_FALSE; -} - -static void alsa_close_capture(ALCdevice *pDevice) -{ - alsa_data *data = (alsa_data*)pDevice->ExtraData; - - psnd_pcm_close(data->pcmHandle); - DestroyRingBuffer(data->ring); - - free(data->buffer); - free(data); - pDevice->ExtraData = NULL; -} - -static void alsa_start_capture(ALCdevice *Device) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - int err; - - err = psnd_pcm_start(data->pcmHandle); - if(err < 0) - { - AL_PRINT("start failed: %s\n", psnd_strerror(err)); - aluHandleDisconnect(Device); - } - else - data->doCapture = AL_TRUE; -} - -static void alsa_stop_capture(ALCdevice *Device) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - psnd_pcm_drain(data->pcmHandle); - data->doCapture = AL_FALSE; -} - -static ALCuint alsa_available_samples(ALCdevice *Device) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - snd_pcm_sframes_t avail; - - avail = (Device->Connected ? psnd_pcm_avail_update(data->pcmHandle) : 0); - if(avail < 0) - { - AL_PRINT("avail update failed: %s\n", psnd_strerror(avail)); - - if((avail=psnd_pcm_recover(data->pcmHandle, avail, 1)) >= 0) - { - if(data->doCapture) - avail = psnd_pcm_start(data->pcmHandle); - if(avail >= 0) - avail = psnd_pcm_avail_update(data->pcmHandle); - } - if(avail < 0) - { - AL_PRINT("restore error: %s\n", psnd_strerror(avail)); - aluHandleDisconnect(Device); - } - } - while(avail > 0) - { - snd_pcm_sframes_t amt; - - amt = psnd_pcm_bytes_to_frames(data->pcmHandle, data->size); - if(avail < amt) amt = avail; - - amt = psnd_pcm_readi(data->pcmHandle, data->buffer, amt); - if(amt < 0) - { - AL_PRINT("read error: %s\n", psnd_strerror(amt)); - - if(amt == -EAGAIN) - continue; - if((amt=psnd_pcm_recover(data->pcmHandle, amt, 1)) >= 0) - { - if(data->doCapture) - amt = psnd_pcm_start(data->pcmHandle); - if(amt >= 0) - amt = psnd_pcm_avail_update(data->pcmHandle); - } - if(amt < 0) - { - AL_PRINT("restore error: %s\n", psnd_strerror(amt)); - aluHandleDisconnect(Device); - break; - } - avail = amt; - continue; - } - - WriteRingBuffer(data->ring, data->buffer, amt); - avail -= amt; - } - - return RingBufferSize(data->ring); -} - -static void alsa_capture_samples(ALCdevice *Device, ALCvoid *Buffer, ALCuint Samples) -{ - alsa_data *data = (alsa_data*)Device->ExtraData; - - if(Samples <= alsa_available_samples(Device)) - ReadRingBuffer(data->ring, Buffer, Samples); - else - alcSetError(Device, ALC_INVALID_VALUE); -} - - -BackendFuncs alsa_funcs = { - alsa_open_playback, - alsa_close_playback, - alsa_reset_playback, - alsa_stop_playback, - alsa_open_capture, - alsa_close_capture, - alsa_start_capture, - alsa_stop_capture, - alsa_capture_samples, - alsa_available_samples -}; - -void alc_alsa_init(BackendFuncs *func_list) -{ - *func_list = alsa_funcs; -} - -void alc_alsa_deinit(void) -{ - ALuint i; - - for(i = 0;i < numDevNames;++i) - free(allDevNameMap[i].name); - free(allDevNameMap); - allDevNameMap = NULL; - numDevNames = 0; - - for(i = 0;i < numCaptureDevNames;++i) - free(allCaptureDevNameMap[i].name); - free(allCaptureDevNameMap); - allCaptureDevNameMap = NULL; - numCaptureDevNames = 0; - - if(alsa_handle) - { -#ifdef HAVE_DLFCN_H - dlclose(alsa_handle); -#endif - alsa_handle = NULL; - } -} - -void alc_alsa_probe(int type) -{ - ALuint i; - - if(!alsa_load()) - return; - - if(type == DEVICE_PROBE) - AppendDeviceList(alsaDevice); - else if(type == ALL_DEVICE_PROBE) - { - for(i = 0;i < numDevNames;++i) - free(allDevNameMap[i].name); - - free(allDevNameMap); - allDevNameMap = probe_devices(SND_PCM_STREAM_PLAYBACK, &numDevNames); - - for(i = 0;i < numDevNames;++i) - AppendAllDeviceList(allDevNameMap[i].name); - } - else if(type == CAPTURE_DEVICE_PROBE) - { - for(i = 0;i < numCaptureDevNames;++i) - free(allCaptureDevNameMap[i].name); - - free(allCaptureDevNameMap); - allCaptureDevNameMap = probe_devices(SND_PCM_STREAM_CAPTURE, &numCaptureDevNames); - - for(i = 0;i < numCaptureDevNames;++i) - AppendCaptureDeviceList(allCaptureDevNameMap[i].name); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/android.c b/internal/c/parts/audio/out/android/other/stuff/Alc/android.c deleted file mode 100644 index dae836953..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/android.c +++ /dev/null @@ -1,39 +0,0 @@ -#ifdef ANDROID -#include -#include "alMain.h" -#include "apportable_openal_funcs.h" - -static JavaVM *javaVM = NULL; -JavaVM *alcGetJavaVM(void) { - return javaVM; -} - -jint JNI_OnLoad(JavaVM *vm, void *reserved) { - BackendFuncs func_list; - if (apportableOpenALFuncs.alc_android_set_java_vm) { - apportableOpenALFuncs.alc_android_set_java_vm(vm); - } - javaVM = vm; - return JNI_VERSION_1_4; -} - -void JNICALL JNI_OnUnload (JavaVM *vm, void *reserved) -{ - if (apportableOpenALFuncs.alc_android_set_java_vm) { - apportableOpenALFuncs.alc_android_set_java_vm(NULL); - } -} - -ALC_API void ALC_APIENTRY alcSuspend(void) { - if (apportableOpenALFuncs.alc_android_suspend) { - apportableOpenALFuncs.alc_android_suspend(); - } -} - -ALC_API void ALC_APIENTRY alcResume(void) { - if (apportableOpenALFuncs.alc_android_resume) { - apportableOpenALFuncs.alc_android_resume(); - } -} - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/apportable_openal_funcs.h b/internal/c/parts/audio/out/android/other/stuff/Alc/apportable_openal_funcs.h deleted file mode 100644 index 1e8d4b71f..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/apportable_openal_funcs.h +++ /dev/null @@ -1,12 +0,0 @@ -#ifndef __APPORTABLE_OPENAL_FUNCS_H__ -#define __APPORTABLE_OPENAL_FUNCS_H__ -#include - -typedef struct { - void (*alc_android_suspend)(); - void (*alc_android_resume)(); - void (*alc_android_set_java_vm)(JavaVM*); -} ApportableOpenALFuncs; -ApportableOpenALFuncs apportableOpenALFuncs; - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/audiotrack.c b/internal/c/parts/audio/out/android/other/stuff/Alc/audiotrack.c deleted file mode 100644 index ab685e45b..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/audiotrack.c +++ /dev/null @@ -1,334 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2010 by Chris Robinson - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include "apportable_openal_funcs.h" - -static const ALCchar android_device[] = "Android Default"; - -JavaVM* alcGetJavaVM(void); -static JNIEnv* env; - -static jclass cAudioTrack = NULL; - -static jmethodID mAudioTrack; -static jmethodID mGetMinBufferSize; -static jmethodID mPlay; -static jmethodID mPause; -static jmethodID mStop; -static jmethodID mRelease; -static jmethodID mWrite; - -static int suspended = 0; -static int audioTrackPlaying = 0; -static int audioTrackWasPlaying = 0; - -typedef struct -{ - pthread_t thread; - volatile int running; -} AndroidData; - -#define STREAM_MUSIC 3 -#define CHANNEL_CONFIGURATION_MONO 2 -#define CHANNEL_CONFIGURATION_STEREO 3 -#define ENCODING_PCM_8BIT 3 -#define ENCODING_PCM_16BIT 2 -#define MODE_STREAM 1 - -static void* thread_function(void* arg) -{ - ALCdevice* device = (ALCdevice*)arg; - AndroidData* data = (AndroidData*)device->ExtraData; - - JavaVM *javaVM = alcGetJavaVM(); - (*javaVM)->AttachCurrentThread(javaVM, &env, NULL); - - (*env)->PushLocalFrame(env, 2); - - int sampleRateInHz = device->Frequency; - int channelConfig = ChannelsFromDevFmt(device->FmtChans) == 1 ? CHANNEL_CONFIGURATION_MONO : CHANNEL_CONFIGURATION_STEREO; - int audioFormat = BytesFromDevFmt(device->FmtType) == 1 ? ENCODING_PCM_8BIT : ENCODING_PCM_16BIT; - - int bufferSizeInBytes = (*env)->CallStaticIntMethod(env, cAudioTrack, - mGetMinBufferSize, sampleRateInHz, channelConfig, audioFormat); - - // Suggestion from Eric Wing - /* According to the author Martins Mozelko, I should multiply bufferSizeInBytes to tune performance. - Say, multiply by 2. - But making this number smaller seems to reduce latency... - I have tried dividing by 2, 4, and 8. 8 refuses to play any sound. - It seems that this just divides out the multiplication of NumUpdates (default=4) - which returns it to min buffer size. - bufferSizeInBytes is used in multiple places and - bufferSizeInSamples is tied directly to bufferSizeInBytes though, so we need to be careful - about what we want to change. - I'm assuming Martins is correct and this is the indeed the place we want to change it. - Dividing out the bufferSizeInSamples separately and skipping the multiply did not work. - Omitting the multiply and not dividing did work, but the buffers may be unnecessarily large. - */ - bufferSizeInBytes = bufferSizeInBytes / device->NumUpdates; - - int bufferSizeInSamples = bufferSizeInBytes / FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - - jobject track = (*env)->NewObject(env, cAudioTrack, mAudioTrack, - STREAM_MUSIC, sampleRateInHz, channelConfig, audioFormat, device->NumUpdates * bufferSizeInBytes, MODE_STREAM); - - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mPlay); - audioTrackPlaying = 1; - - jarray buffer = (*env)->NewByteArray(env, bufferSizeInBytes); - - while (data->running) - { - if (suspended) { - if (audioTrackPlaying) { - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mPause); - audioTrackPlaying = 0; - } - usleep(5000); - continue; - } else if (!audioTrackPlaying) { - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mPlay); - audioTrackPlaying = 1; - } - - void* pBuffer = (*env)->GetPrimitiveArrayCritical(env, buffer, NULL); - - if (pBuffer) - { - aluMixData(device, pBuffer, bufferSizeInSamples); - (*env)->ReleasePrimitiveArrayCritical(env, buffer, pBuffer, 0); - - (*env)->CallNonvirtualIntMethod(env, track, cAudioTrack, mWrite, buffer, 0, bufferSizeInBytes); - } - else - { - AL_PRINT("Failed to get pointer to array bytes"); - } - } - - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mStop); - (*env)->CallNonvirtualVoidMethod(env, track, cAudioTrack, mRelease); - audioTrackPlaying = 0; - - (*env)->PopLocalFrame(env, NULL); - - (*javaVM)->DetachCurrentThread(javaVM); - return NULL; -} - -static ALCboolean android_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - JavaVM *javaVM = alcGetJavaVM(); - (*javaVM)->AttachCurrentThread(javaVM, &env, NULL); - AndroidData* data; - int channels; - int bytes; - - if (!cAudioTrack) - { - /* Cache AudioTrack class and it's method id's - * And do this only once! - */ - - cAudioTrack = (*env)->FindClass(env, "android/media/AudioTrack"); - if (!cAudioTrack) - { - AL_PRINT("android.media.AudioTrack class is not found. Are you running at least 1.5 version?"); - return ALC_FALSE; - } - - cAudioTrack = (*env)->NewGlobalRef(env, cAudioTrack); - - mAudioTrack = (*env)->GetMethodID(env, cAudioTrack, "", "(IIIIII)V"); - mGetMinBufferSize = (*env)->GetStaticMethodID(env, cAudioTrack, "getMinBufferSize", "(III)I"); - mPlay = (*env)->GetMethodID(env, cAudioTrack, "play", "()V"); - mPause = (*env)->GetMethodID(env, cAudioTrack, "pause", "()V"); - mStop = (*env)->GetMethodID(env, cAudioTrack, "stop", "()V"); - mRelease = (*env)->GetMethodID(env, cAudioTrack, "release", "()V"); - mWrite = (*env)->GetMethodID(env, cAudioTrack, "write", "([BII)I"); - } - - if (!deviceName) - { - deviceName = android_device; - } - else if (strcmp(deviceName, android_device) != 0) - { - return ALC_FALSE; - } - - data = (AndroidData*)calloc(1, sizeof(*data)); - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void android_close_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - if (data != NULL) - { - free(data); - device->ExtraData = NULL; - } -} - -static ALCboolean android_reset_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - // if (ChannelsFromDevFmt(device->FmtChans) >= 2) - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_STEREO16 : AL_FORMAT_STEREO8; - // } - // else - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_MONO16 : AL_FORMAT_MONO8; - // } - - SetDefaultChannelOrder(device); - - data->running = 1; - pthread_create(&data->thread, NULL, thread_function, device); - - return ALC_TRUE; -} - -static void android_stop_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - if (data->running) - { - data->running = 0; - pthread_join(data->thread, NULL); - } - suspended = 0; -} - -static ALCboolean android_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - -static void android_close_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_start_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_stop_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint android_available_samples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - -static const BackendFuncs android_funcs = { - android_open_playback, - android_close_playback, - android_reset_playback, - android_stop_playback, - android_open_capture, - android_close_capture, - android_start_capture, - android_stop_capture, - android_capture_samples, - android_available_samples -}; - -static void alc_audiotrack_suspend() -{ - suspended = 1; - audioTrackWasPlaying = audioTrackPlaying; -} - -static void alc_audiotrack_resume() -{ - suspended = 0; - if (audioTrackWasPlaying) - { - while (!audioTrackPlaying) - { - sched_yield(); - } - audioTrackWasPlaying = 0; - } -} - - -void alc_audiotrack_init(BackendFuncs *func_list) -{ - *func_list = android_funcs; - - if (apportableOpenALFuncs.alc_android_suspend == NULL - && apportableOpenALFuncs.alc_android_set_java_vm == NULL) { - apportableOpenALFuncs.alc_android_suspend = alc_audiotrack_suspend; - apportableOpenALFuncs.alc_android_resume = alc_audiotrack_resume; - } -} - -void alc_audiotrack_deinit(void) -{ - /* release cached AudioTrack class */ - JavaVM *javaVM = alcGetJavaVM(); - (*env)->DeleteGlobalRef(env, cAudioTrack); - (*javaVM)->DetachCurrentThread(javaVM); - cAudioTrack = NULL; -} - -void alc_audiotrack_probe(int type) -{ - if (type == DEVICE_PROBE) - { - AppendDeviceList(android_device); - } - else if (type == ALL_DEVICE_PROBE) - { - AppendAllDeviceList(android_device); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/audiotrack.m b/internal/c/parts/audio/out/android/other/stuff/Alc/audiotrack.m deleted file mode 100644 index 8fe664a21..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/audiotrack.m +++ /dev/null @@ -1,304 +0,0 @@ -/** - * OpenAL cross platform audio library - * - * Copyright 2013 Apportable Inc. - * - * Copyright (C) 2010 by Chris Robinson - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#import "config.h" - -#import -#import -#import -#import "alMain.h" -#import "AL/al.h" -#import "AL/alc.h" - -#import "apportable_openal_funcs.h" -#import -#import - -static const ALCchar android_device[] = "Android Default"; - -static int suspended = 0; -static int audioTrackPlaying = 0; -static int audioTrackWasPlaying = 0; - -typedef struct -{ - pthread_t thread; - volatile int running; -} AndroidData; - -#define STREAM_MUSIC 3 -#define CHANNEL_CONFIGURATION_MONO 2 -#define CHANNEL_CONFIGURATION_STEREO 3 -#define ENCODING_PCM_8BIT 3 -#define ENCODING_PCM_16BIT 2 -#define MODE_STREAM 1 - -static void* thread_function(void* arg) -{ - @autoreleasepool - { - ALCdevice* device = (ALCdevice*)arg; - AndroidData* data = (AndroidData*)device->ExtraData; - - int sampleRateInHz = device->Frequency; - int channelConfig = ChannelsFromDevFmt(device->FmtChans) == 1 ? CHANNEL_CONFIGURATION_MONO : CHANNEL_CONFIGURATION_STEREO; - int audioFormat = BytesFromDevFmt(device->FmtType) == 1 ? ENCODING_PCM_8BIT : ENCODING_PCM_16BIT; - int bufferSizeInBytes = [AndroidAudioTrack minBufferSizeWithSampleRate:sampleRateInHz channelConfig:channelConfig audioFormat:audioFormat]; - - // Suggestion from Eric Wing - /* According to the author Martins Mozelko, I should multiply bufferSizeInBytes to tune performance. - Say, multiply by 2. - But making this number smaller seems to reduce latency... - I have tried dividing by 2, 4, and 8. 8 refuses to play any sound. - It seems that this just divides out the multiplication of NumUpdates (default=4) - which returns it to min buffer size. - bufferSizeInBytes is used in multiple places and - bufferSizeInSamples is tied directly to bufferSizeInBytes though, so we need to be careful - about what we want to change. - I'm assuming Martins is correct and this is the indeed the place we want to change it. - Dividing out the bufferSizeInSamples separately and skipping the multiply did not work. - Omitting the multiply and not dividing did work, but the buffers may be unnecessarily large. - */ - bufferSizeInBytes = bufferSizeInBytes / device->NumUpdates; - - int bufferSizeInSamples = bufferSizeInBytes / FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - - AndroidAudioTrack *track = [[AndroidAudioTrack alloc] - initWithStreamType:STREAM_MUSIC - sampleRate:sampleRateInHz - channelConfig:channelConfig - audioFormat:audioFormat - bufferSize:device->NumUpdates * bufferSizeInBytes - mode:MODE_STREAM]; - - [track play]; - audioTrackPlaying = 1; - - // Use JNI to avoid an extra copy of the audio buffer. Calling write through BridgeKit - // would require using an NSMutableData for the buffer, which would be copied to a new - // byte[] object on every write call. - - JNIEnv *env = [[NSThread currentThread] env]; - (*env)->PushLocalFrame(env, 1); - jarray buffer = (*env)->NewByteArray(env, bufferSizeInBytes); - jclass trackClass = [track javaClass].javaClass; - jmethodID writeMethod = (*env)->GetMethodID(env, trackClass, "write", "([BII)I"); - - while (data->running) - { - if (suspended) { - if (audioTrackPlaying) { - [track pause]; - audioTrackPlaying = 0; - } - usleep(5000); - continue; - } else if (!audioTrackPlaying) { - [track play]; - audioTrackPlaying = 1; - } - - void* pBuffer = (*env)->GetPrimitiveArrayCritical(env, buffer, NULL); - - if (pBuffer) - { - aluMixData(device, pBuffer, bufferSizeInSamples); - (*env)->ReleasePrimitiveArrayCritical(env, buffer, pBuffer, 0); - - (*env)->CallNonvirtualIntMethod(env, track->_object, trackClass, writeMethod, buffer, 0, bufferSizeInBytes); - } - else - { - AL_PRINT("Failed to get pointer to array bytes"); - } - } - - [track stop]; - [track release]; - audioTrackPlaying = 0; - - (*env)->PopLocalFrame(env, NULL); - - return NULL; - } -} - -static ALCboolean android_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - AndroidData* data; - int channels; - int bytes; - - if (!deviceName) - { - deviceName = android_device; - } - else if (strcmp(deviceName, android_device) != 0) - { - return ALC_FALSE; - } - - data = (AndroidData*)calloc(1, sizeof(*data)); - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void android_close_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - if (data != NULL) - { - free(data); - device->ExtraData = NULL; - } -} - -static ALCboolean android_reset_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - // if (ChannelsFromDevFmt(device->FmtChans) >= 2) - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_STEREO16 : AL_FORMAT_STEREO8; - // } - // else - // { - // device->Format = BytesFromDevFmt(device->FmtType) >= 2 ? AL_FORMAT_MONO16 : AL_FORMAT_MONO8; - // } - - SetDefaultChannelOrder(device); - - data->running = 1; - pthread_create(&data->thread, NULL, thread_function, device); - - return ALC_TRUE; -} - -static void android_stop_playback(ALCdevice *device) -{ - AndroidData* data = (AndroidData*)device->ExtraData; - - if (data->running) - { - data->running = 0; - pthread_join(data->thread, NULL); - } - suspended = 0; -} - -static ALCboolean android_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - -static void android_close_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_start_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_stop_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void android_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint android_available_samples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - -static const BackendFuncs android_funcs = { - android_open_playback, - android_close_playback, - android_reset_playback, - android_stop_playback, - android_open_capture, - android_close_capture, - android_start_capture, - android_stop_capture, - android_capture_samples, - android_available_samples -}; - -static void alc_audiotrack_suspend() -{ - suspended = 1; - audioTrackWasPlaying = audioTrackPlaying; -} - -static void alc_audiotrack_resume() -{ - suspended = 0; - if (audioTrackWasPlaying) - { - while (!audioTrackPlaying) - { - sched_yield(); - } - audioTrackWasPlaying = 0; - } -} - - -void alc_audiotrack_init(BackendFuncs *func_list) -{ - *func_list = android_funcs; - - if (apportableOpenALFuncs.alc_android_suspend == NULL - && apportableOpenALFuncs.alc_android_set_java_vm == NULL) { - apportableOpenALFuncs.alc_android_suspend = alc_audiotrack_suspend; - apportableOpenALFuncs.alc_android_resume = alc_audiotrack_resume; - } -} - -void alc_audiotrack_deinit(void) -{ -} - -void alc_audiotrack_probe(int type) -{ - if (type == DEVICE_PROBE) - { - AppendDeviceList(android_device); - } - else if (type == ALL_DEVICE_PROBE) - { - AppendAllDeviceList(android_device); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/bs2b.c b/internal/c/parts/audio/out/android/other/stuff/Alc/bs2b.c deleted file mode 100644 index 36f946a1f..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/bs2b.c +++ /dev/null @@ -1,209 +0,0 @@ -/*- - * Copyright (c) 2005 Boris Mikhaylov - * - * Permission is hereby granted, free of charge, to any person obtaining - * a copy of this software and associated documentation files (the - * "Software"), to deal in the Software without restriction, including - * without limitation the rights to use, copy, modify, merge, publish, - * distribute, sublicense, and/or sell copies of the Software, and to - * permit persons to whom the Software is furnished to do so, subject to - * the following conditions: - * - * The above copyright notice and this permission notice shall be - * included in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, - * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. - * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY - * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, - * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE - * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include "config.h" - -#include - -#include "bs2b.h" - -#ifndef M_PI -#define M_PI 3.14159265358979323846 -#endif - -/* Single pole IIR filter. - * O[n] = a0*I[n] + a1*I[n-1] + b1*O[n-1] - */ - -/* Lowpass filter */ -#define lo_filter(in, out_1) (bs2b->a0_lo*(in) + bs2b->b1_lo*(out_1)) - -/* Highboost filter */ -#define hi_filter(in, in_1, out_1) (bs2b->a0_hi*(in) + bs2b->a1_hi*(in_1) + bs2b->b1_hi*(out_1)) - -/* Set up all data. */ -static void init(struct bs2b *bs2b) -{ - double Fc_lo, Fc_hi; - double G_lo, G_hi; - double x; - - if ((bs2b->srate > 192000) || (bs2b->srate < 2000)) - bs2b->srate = BS2B_DEFAULT_SRATE; - - switch(bs2b->level) - { - case BS2B_LOW_CLEVEL: /* Low crossfeed level */ - Fc_lo = 360.0; - Fc_hi = 501.0; - G_lo = 0.398107170553497; - G_hi = 0.205671765275719; - break; - - case BS2B_MIDDLE_CLEVEL: /* Middle crossfeed level */ - Fc_lo = 500.0; - Fc_hi = 711.0; - G_lo = 0.459726988530872; - G_hi = 0.228208484414988; - break; - - case BS2B_HIGH_CLEVEL: /* High crossfeed level (virtual speakers are closer to itself) */ - Fc_lo = 700.0; - Fc_hi = 1021.0; - G_lo = 0.530884444230988; - G_hi = 0.250105790667544; - break; - - case BS2B_LOW_ECLEVEL: /* Low easy crossfeed level */ - Fc_lo = 360.0; - Fc_hi = 494.0; - G_lo = 0.316227766016838; - G_hi = 0.168236228897329; - break; - - case BS2B_MIDDLE_ECLEVEL: /* Middle easy crossfeed level */ - Fc_lo = 500.0; - Fc_hi = 689.0; - G_lo = 0.354813389233575; - G_hi = 0.187169483835901; - break; - - default: /* High easy crossfeed level */ - bs2b->level = BS2B_HIGH_ECLEVEL; - - Fc_lo = 700.0; - Fc_hi = 975.0; - G_lo = 0.398107170553497; - G_hi = 0.205671765275719; - break; - } /* switch */ - - /* $fc = $Fc / $s; - * $d = 1 / 2 / pi / $fc; - * $x = exp(-1 / $d); - */ - - x = exp(-2.0 * M_PI * Fc_lo / bs2b->srate); - bs2b->b1_lo = x; - bs2b->a0_lo = G_lo * (1.0 - x); - - x = exp(-2.0 * M_PI * Fc_hi / bs2b->srate); - bs2b->b1_hi = x; - bs2b->a0_hi = 1.0 - G_hi * (1.0 - x); - bs2b->a1_hi = -x; - - bs2b->gain = 1.0 / (1.0 - G_hi + G_lo); -} /* init */ - -/* Exported functions. - * See descriptions in "bs2b.h" - */ - -void bs2b_set_level(struct bs2b *bs2b, int level) -{ - if(level == bs2b->level) - return; - bs2b->level = level; - init(bs2b); -} /* bs2b_set_level */ - -int bs2b_get_level(struct bs2b *bs2b) -{ - return bs2b->level; -} /* bs2b_get_level */ - -void bs2b_set_srate(struct bs2b *bs2b, int srate) -{ - if (srate == bs2b->srate) - return; - bs2b->srate = srate; - init(bs2b); -} /* bs2b_set_srate */ - -int bs2b_get_srate(struct bs2b *bs2b) -{ - return bs2b->srate; -} /* bs2b_get_srate */ - -void bs2b_clear(struct bs2b *bs2b) -{ - int loopv = sizeof(bs2b->last_sample); - - while (loopv) - { - ((char *)&bs2b->last_sample)[--loopv] = 0; - } -} /* bs2b_clear */ - -int bs2b_is_clear(struct bs2b *bs2b) -{ - int loopv = sizeof(bs2b->last_sample); - - while (loopv) - { - if (((char *)&bs2b->last_sample)[--loopv] != 0) - return 0; - } - return 1; -} /* bs2b_is_clear */ - -void bs2b_cross_feed(struct bs2b *bs2b, ALfp *ALsample) -{ - //FIXME fully convert to fixed point math - float sample[2]; - sample[0] = ALfp2float(ALsample[0]); - sample[1] = ALfp2float(ALsample[1]); - - /* Lowpass filter */ - bs2b->last_sample.lo[0] = lo_filter(sample[0], bs2b->last_sample.lo[0]); - bs2b->last_sample.lo[1] = lo_filter(sample[1], bs2b->last_sample.lo[1]); - - /* Highboost filter */ - bs2b->last_sample.hi[0] = hi_filter(sample[0], bs2b->last_sample.asis[0], bs2b->last_sample.hi[0]); - bs2b->last_sample.hi[1] = hi_filter(sample[1], bs2b->last_sample.asis[1], bs2b->last_sample.hi[1]); - bs2b->last_sample.asis[0] = sample[0]; - bs2b->last_sample.asis[1] = sample[1]; - - /* Crossfeed */ - sample[0] = bs2b->last_sample.hi[0] + bs2b->last_sample.lo[1]; - sample[1] = bs2b->last_sample.hi[1] + bs2b->last_sample.lo[0]; - - /* Bass boost cause allpass attenuation */ - sample[0] *= bs2b->gain; - sample[1] *= bs2b->gain; - - /* Clipping of overloaded samples */ -#if 0 - if (sample[0] > 1.0) - sample[0] = 1.0; - if (sample[0] < -1.0) - sample[0] = -1.0; - if (sample[1] > 1.0) - sample[1] = 1.0; - if (sample[1] < -1.0) - sample[1] = -1.0; -#endif - - ALsample[0] = float2ALfp(sample[0]); - ALsample[1] = float2ALfp(sample[1]); -} /* bs2b_cross_feed */ diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/dsound.c b/internal/c/parts/audio/out/android/other/stuff/Alc/dsound.c deleted file mode 100644 index 26e6d46f9..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/dsound.c +++ /dev/null @@ -1,612 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#define _WIN32_WINNT 0x0500 -#define INITGUID -#include -#include -#include - -#include -#include -#include -#ifndef _WAVEFORMATEXTENSIBLE_ -#include -#include -#endif - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#ifndef DSSPEAKER_5POINT1 -#define DSSPEAKER_5POINT1 6 -#endif -#ifndef DSSPEAKER_7POINT1 -#define DSSPEAKER_7POINT1 7 -#endif - -DEFINE_GUID(KSDATAFORMAT_SUBTYPE_PCM, 0x00000001, 0x0000, 0x0010, 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71); -DEFINE_GUID(KSDATAFORMAT_SUBTYPE_IEEE_FLOAT, 0x00000003, 0x0000, 0x0010, 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71); - -static void *ds_handle; -static HRESULT (WINAPI *pDirectSoundCreate)(LPCGUID pcGuidDevice, LPDIRECTSOUND *ppDS, LPUNKNOWN pUnkOuter); -static HRESULT (WINAPI *pDirectSoundEnumerateA)(LPDSENUMCALLBACKA pDSEnumCallback, LPVOID pContext); - - -typedef struct { - // DirectSound Playback Device - LPDIRECTSOUND lpDS; - LPDIRECTSOUNDBUFFER DSpbuffer; - LPDIRECTSOUNDBUFFER DSsbuffer; - - volatile int killNow; - ALvoid *thread; -} DSoundData; - - -typedef struct { - ALCchar *name; - GUID guid; -} DevMap; - -static const ALCchar dsDevice[] = "DirectSound Default"; -static DevMap *DeviceList; -static ALuint NumDevices; - - -void *DSoundLoad(void) -{ - if(!ds_handle) - { -#ifdef _WIN32 - ds_handle = LoadLibraryA("dsound.dll"); - if(ds_handle == NULL) - { - AL_PRINT("Failed to load dsound.dll\n"); - return NULL; - } - -#define LOAD_FUNC(f) do { \ - p##f = (void*)GetProcAddress((HMODULE)ds_handle, #f); \ - if(p##f == NULL) \ - { \ - FreeLibrary(ds_handle); \ - ds_handle = NULL; \ - AL_PRINT("Could not load %s from dsound.dll\n", #f); \ - return NULL; \ - } \ -} while(0) -#else - ds_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(f) p##f = f -#endif - -LOAD_FUNC(DirectSoundCreate); -LOAD_FUNC(DirectSoundEnumerateA); -#undef LOAD_FUNC - } - return ds_handle; -} - - -static BOOL CALLBACK DSoundEnumDevices(LPGUID guid, LPCSTR desc, LPCSTR drvname, LPVOID data) -{ - char str[1024]; - void *temp; - int count; - ALuint i; - - (void)data; - (void)drvname; - - if(NumDevices == 0) - { - temp = realloc(DeviceList, sizeof(DevMap) * (NumDevices+1)); - if(temp) - { - DeviceList = temp; - DeviceList[NumDevices].name = strdup(dsDevice); - DeviceList[NumDevices].guid = GUID_NULL; - NumDevices++; - } - } - - if(!guid) - return TRUE; - - count = 0; - do { - if(count == 0) - snprintf(str, sizeof(str), "%s via DirectSound", desc); - else - snprintf(str, sizeof(str), "%s #%d via DirectSound", desc, count+1); - count++; - - for(i = 0;i < NumDevices;i++) - { - if(strcmp(str, DeviceList[i].name) == 0) - break; - } - } while(i != NumDevices); - - temp = realloc(DeviceList, sizeof(DevMap) * (NumDevices+1)); - if(temp) - { - DeviceList = temp; - DeviceList[NumDevices].name = strdup(str); - DeviceList[NumDevices].guid = *guid; - NumDevices++; - } - - return TRUE; -} - - -static ALuint DSoundProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - DSoundData *pData = (DSoundData*)pDevice->ExtraData; - DSBCAPS DSBCaps; - DWORD LastCursor = 0; - DWORD PlayCursor; - VOID *WritePtr1, *WritePtr2; - DWORD WriteCnt1, WriteCnt2; - BOOL Playing = FALSE; - DWORD FrameSize; - DWORD FragSize; - DWORD avail; - HRESULT err; - - SetRTPriority(); - - memset(&DSBCaps, 0, sizeof(DSBCaps)); - DSBCaps.dwSize = sizeof(DSBCaps); - err = IDirectSoundBuffer_GetCaps(pData->DSsbuffer, &DSBCaps); - if(FAILED(err)) - { - AL_PRINT("Failed to get buffer caps: 0x%lx\n", err); - aluHandleDisconnect(pDevice); - return 1; - } - - FrameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - FragSize = pDevice->UpdateSize * FrameSize; - - IDirectSoundBuffer_GetCurrentPosition(pData->DSsbuffer, &LastCursor, NULL); - while(!pData->killNow) - { - // Get current play and write cursors - IDirectSoundBuffer_GetCurrentPosition(pData->DSsbuffer, &PlayCursor, NULL); - avail = (PlayCursor-LastCursor+DSBCaps.dwBufferBytes) % DSBCaps.dwBufferBytes; - - if(avail < FragSize) - { - if(!Playing) - { - err = IDirectSoundBuffer_Play(pData->DSsbuffer, 0, 0, DSBPLAY_LOOPING); - if(FAILED(err)) - { - AL_PRINT("Failed to play buffer: 0x%lx\n", err); - aluHandleDisconnect(pDevice); - return 1; - } - Playing = TRUE; - } - Sleep(1); - continue; - } - avail -= avail%FragSize; - - // Lock output buffer - WriteCnt1 = 0; - WriteCnt2 = 0; - err = IDirectSoundBuffer_Lock(pData->DSsbuffer, LastCursor, avail, &WritePtr1, &WriteCnt1, &WritePtr2, &WriteCnt2, 0); - - // If the buffer is lost, restore it and lock - if(err == DSERR_BUFFERLOST) - { - err = IDirectSoundBuffer_Restore(pData->DSsbuffer); - if(SUCCEEDED(err)) - { - Playing = FALSE; - LastCursor = 0; - err = IDirectSoundBuffer_Lock(pData->DSsbuffer, 0, DSBCaps.dwBufferBytes, &WritePtr1, &WriteCnt1, &WritePtr2, &WriteCnt2, 0); - } - } - - // Successfully locked the output buffer - if(SUCCEEDED(err)) - { - // If we have an active context, mix data directly into output buffer otherwise fill with silence - aluMixData(pDevice, WritePtr1, WriteCnt1/FrameSize); - aluMixData(pDevice, WritePtr2, WriteCnt2/FrameSize); - - // Unlock output buffer only when successfully locked - IDirectSoundBuffer_Unlock(pData->DSsbuffer, WritePtr1, WriteCnt1, WritePtr2, WriteCnt2); - } - else - { - AL_PRINT("Buffer lock error: %#lx\n", err); - aluHandleDisconnect(pDevice); - return 1; - } - - // Update old write cursor location - LastCursor += WriteCnt1+WriteCnt2; - LastCursor %= DSBCaps.dwBufferBytes; - } - - return 0; -} - -static ALCboolean DSoundOpenPlayback(ALCdevice *device, const ALCchar *deviceName) -{ - DSoundData *pData = NULL; - LPGUID guid = NULL; - HRESULT hr; - - if(!DSoundLoad()) - return ALC_FALSE; - - if(!deviceName) - deviceName = dsDevice; - else if(strcmp(deviceName, dsDevice) != 0) - { - ALuint i; - - if(!DeviceList) - { - hr = pDirectSoundEnumerateA(DSoundEnumDevices, NULL); - if(FAILED(hr)) - AL_PRINT("Error enumerating DirectSound devices (%#x)!\n", (unsigned int)hr); - } - - for(i = 0;i < NumDevices;i++) - { - if(strcmp(deviceName, DeviceList[i].name) == 0) - { - if(i > 0) - guid = &DeviceList[i].guid; - break; - } - } - if(i == NumDevices) - return ALC_FALSE; - } - - //Initialise requested device - pData = calloc(1, sizeof(DSoundData)); - if(!pData) - { - alcSetError(device, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - - //DirectSound Init code - hr = pDirectSoundCreate(guid, &pData->lpDS, NULL); - if(SUCCEEDED(hr)) - hr = IDirectSound_SetCooperativeLevel(pData->lpDS, GetForegroundWindow(), DSSCL_PRIORITY); - if(FAILED(hr)) - { - if(pData->lpDS) - IDirectSound_Release(pData->lpDS); - free(pData); - AL_PRINT("Device init failed: 0x%08lx\n", hr); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = pData; - return ALC_TRUE; -} - -static void DSoundClosePlayback(ALCdevice *device) -{ - DSoundData *pData = device->ExtraData; - - IDirectSound_Release(pData->lpDS); - free(pData); - device->ExtraData = NULL; -} - -static ALCboolean DSoundResetPlayback(ALCdevice *device) -{ - DSoundData *pData = (DSoundData*)device->ExtraData; - DSBUFFERDESC DSBDescription; - WAVEFORMATEXTENSIBLE OutputType; - DWORD speakers; - HRESULT hr; - - memset(&OutputType, 0, sizeof(OutputType)); - - switch(device->FmtType) - { - case DevFmtByte: - device->FmtType = DevFmtUByte; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - break; - case DevFmtUByte: - case DevFmtShort: - case DevFmtFloat: - break; - } - - hr = IDirectSound_GetSpeakerConfig(pData->lpDS, &speakers); - if(SUCCEEDED(hr) && ConfigValueExists(NULL, "format")) - { - switch(device->FmtChans) - { - case DevFmtMono: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_MONO, 0); - break; - case DevFmtStereo: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_STEREO, 0); - break; - case DevFmtQuad: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_QUAD, 0); - break; - case DevFmtX51: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_5POINT1, 0); - break; - case DevFmtX61: - /* ??? */; - break; - case DevFmtX71: - speakers = DSSPEAKER_COMBINED(DSSPEAKER_7POINT1, 0); - break; - } - } - if(SUCCEEDED(hr)) - { - speakers = DSSPEAKER_CONFIG(speakers); - if(speakers == DSSPEAKER_MONO) - { - device->FmtChans = DevFmtMono; - OutputType.dwChannelMask = SPEAKER_FRONT_CENTER; - } - else if(speakers == DSSPEAKER_STEREO || speakers == DSSPEAKER_HEADPHONE) - { - device->FmtChans = DevFmtStereo; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT; - } - else if(speakers == DSSPEAKER_QUAD) - { - device->FmtChans = DevFmtQuad; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT | - SPEAKER_BACK_LEFT | - SPEAKER_BACK_RIGHT; - } - else if(speakers == DSSPEAKER_5POINT1) - { - device->FmtChans = DevFmtX51; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT | - SPEAKER_FRONT_CENTER | - SPEAKER_LOW_FREQUENCY | - SPEAKER_BACK_LEFT | - SPEAKER_BACK_RIGHT; - } - else if(speakers == DSSPEAKER_7POINT1) - { - device->FmtChans = DevFmtX71; - OutputType.dwChannelMask = SPEAKER_FRONT_LEFT | - SPEAKER_FRONT_RIGHT | - SPEAKER_FRONT_CENTER | - SPEAKER_LOW_FREQUENCY | - SPEAKER_BACK_LEFT | - SPEAKER_BACK_RIGHT | - SPEAKER_SIDE_LEFT | - SPEAKER_SIDE_RIGHT; - } - - OutputType.Format.wFormatTag = WAVE_FORMAT_PCM; - OutputType.Format.nChannels = ChannelsFromDevFmt(device->FmtChans); - OutputType.Format.wBitsPerSample = BytesFromDevFmt(device->FmtType) * 8; - OutputType.Format.nBlockAlign = OutputType.Format.nChannels*OutputType.Format.wBitsPerSample/8; - OutputType.Format.nSamplesPerSec = device->Frequency; - OutputType.Format.nAvgBytesPerSec = OutputType.Format.nSamplesPerSec*OutputType.Format.nBlockAlign; - OutputType.Format.cbSize = 0; - } - - if(OutputType.Format.nChannels > 2 || OutputType.Format.wBitsPerSample > 16) - { - OutputType.Format.wFormatTag = WAVE_FORMAT_EXTENSIBLE; - OutputType.Samples.wValidBitsPerSample = OutputType.Format.wBitsPerSample; - OutputType.Format.cbSize = 22; - if(OutputType.Format.wBitsPerSample == 32) - OutputType.SubFormat = KSDATAFORMAT_SUBTYPE_IEEE_FLOAT; - else - OutputType.SubFormat = KSDATAFORMAT_SUBTYPE_PCM; - } - else - { - if(SUCCEEDED(hr)) - { - memset(&DSBDescription,0,sizeof(DSBUFFERDESC)); - DSBDescription.dwSize=sizeof(DSBUFFERDESC); - DSBDescription.dwFlags=DSBCAPS_PRIMARYBUFFER; - hr = IDirectSound_CreateSoundBuffer(pData->lpDS, &DSBDescription, &pData->DSpbuffer, NULL); - } - if(SUCCEEDED(hr)) - hr = IDirectSoundBuffer_SetFormat(pData->DSpbuffer,&OutputType.Format); - } - - if(SUCCEEDED(hr)) - { - memset(&DSBDescription,0,sizeof(DSBUFFERDESC)); - DSBDescription.dwSize=sizeof(DSBUFFERDESC); - DSBDescription.dwFlags=DSBCAPS_GLOBALFOCUS|DSBCAPS_GETCURRENTPOSITION2; - DSBDescription.dwBufferBytes=device->UpdateSize * device->NumUpdates * - OutputType.Format.nBlockAlign; - DSBDescription.lpwfxFormat=&OutputType.Format; - hr = IDirectSound_CreateSoundBuffer(pData->lpDS, &DSBDescription, &pData->DSsbuffer, NULL); - } - - if(SUCCEEDED(hr)) - { - SetDefaultWFXChannelOrder(device); - pData->thread = StartThread(DSoundProc, device); - if(!pData->thread) - hr = E_FAIL; - } - - if(FAILED(hr)) - { - if (pData->DSsbuffer) - IDirectSoundBuffer_Release(pData->DSsbuffer); - pData->DSsbuffer = NULL; - if (pData->DSpbuffer) - IDirectSoundBuffer_Release(pData->DSpbuffer); - pData->DSpbuffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void DSoundStopPlayback(ALCdevice *device) -{ - DSoundData *pData = device->ExtraData; - - if(!pData->thread) - return; - - pData->killNow = 1; - StopThread(pData->thread); - pData->thread = NULL; - - pData->killNow = 0; - - IDirectSoundBuffer_Release(pData->DSsbuffer); - pData->DSsbuffer = NULL; - if (pData->DSpbuffer) - IDirectSoundBuffer_Release(pData->DSpbuffer); - pData->DSpbuffer = NULL; -} - - -static ALCboolean DSoundOpenCapture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - -static void DSoundCloseCapture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void DSoundStartCapture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void DSoundStopCapture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void DSoundCaptureSamples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint DSoundAvailableSamples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - - -BackendFuncs DSoundFuncs = { - DSoundOpenPlayback, - DSoundClosePlayback, - DSoundResetPlayback, - DSoundStopPlayback, - DSoundOpenCapture, - DSoundCloseCapture, - DSoundStartCapture, - DSoundStopCapture, - DSoundCaptureSamples, - DSoundAvailableSamples -}; - - -void alcDSoundInit(BackendFuncs *FuncList) -{ - *FuncList = DSoundFuncs; -} - -void alcDSoundDeinit(void) -{ - ALuint i; - - for(i = 0;i < NumDevices;++i) - free(DeviceList[i].name); - free(DeviceList); - DeviceList = NULL; - NumDevices = 0; - - if(ds_handle) - { -#ifdef _WIN32 - FreeLibrary(ds_handle); -#endif - ds_handle = NULL; - } -} - -void alcDSoundProbe(int type) -{ - if(!DSoundLoad()) return; - - if(type == DEVICE_PROBE) - AppendDeviceList(dsDevice); - else if(type == ALL_DEVICE_PROBE) - { - HRESULT hr; - ALuint i; - - for(i = 0;i < NumDevices;++i) - free(DeviceList[i].name); - free(DeviceList); - DeviceList = NULL; - NumDevices = 0; - - hr = pDirectSoundEnumerateA(DSoundEnumDevices, NULL); - if(FAILED(hr)) - AL_PRINT("Error enumerating DirectSound devices (%#x)!\n", (unsigned int)hr); - else - { - for(i = 0;i < NumDevices;i++) - AppendAllDeviceList(DeviceList[i].name); - } - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/mixer.c b/internal/c/parts/audio/out/android/other/stuff/Alc/mixer.c deleted file mode 100644 index 036441fd3..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/mixer.c +++ /dev/null @@ -1,813 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alListener.h" -#include "alAuxEffectSlot.h" -#include "alu.h" -#include "bs2b.h" - - -static __inline ALdfp point32(const ALfp *vals, ALint step, ALint frac) -{ return vals[0]; (void)step; (void)frac; } -static __inline ALdfp lerp32(const ALfp *vals, ALint step, ALint frac) -{ return lerp(vals[0], vals[step], ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))); } -static __inline ALdfp cubic32(const ALfp *vals, ALint step, ALint frac) -{ return cubic(vals[-step], vals[0], vals[step], vals[step+step], - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))); } - -static __inline ALdfp point16(const ALshort *vals, ALint step, ALint frac) -{ return ALfpMult(int2ALfp(vals[0]), float2ALfp(1.0/32767.0)); (void)step; (void)frac; } -static __inline ALdfp lerp16(const ALshort *vals, ALint step, ALint frac) -{ return ALfpMult(lerp(int2ALfp(vals[0]), int2ALfp(vals[step]), ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))), - float2ALfp(1.0/32767.0)); } -static __inline ALdfp cubic16(const ALshort *vals, ALint step, ALint frac) -{ return ALfpMult(cubic(int2ALfp(vals[-step]), int2ALfp(vals[0]), int2ALfp(vals[step]), int2ALfp(vals[step+step]), - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE)))), float2ALfp(1.0/32767.0)); } - -static __inline ALdfp point8(const ALubyte *vals, ALint step, ALint frac) -{ return ALfpMult(int2ALfp((int)vals[0]-128), float2ALfp(1.0/127.0)); (void)step; (void)frac; } -static __inline ALdfp lerp8(const ALubyte *vals, ALint step, ALint frac) -{ return ALfpMult((lerp(int2ALfp(vals[0]), int2ALfp(vals[step]), - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE))))- - int2ALfp(128)), - float2ALfp(1.0/127.0)); } -static __inline ALdfp cubic8(const ALubyte *vals, ALint step, ALint frac) -{ return ALfpMult((cubic(int2ALfp(vals[-step]), int2ALfp(vals[0]), int2ALfp(vals[step]), int2ALfp(vals[step+step]), - ALfpMult(int2ALfp(frac), ALfpDiv(int2ALfp(1),int2ALfp(FRACTIONONE))))- - int2ALfp(128)), - float2ALfp(1.0/127.0)); } - - -#define DECL_TEMPLATE(T, sampler) \ -static void Mix_##T##_1_##sampler(ALsource *Source, ALCdevice *Device, \ - const T *data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - ALfp (*DryBuffer)[MAXCHANNELS]; \ - ALfp *ClickRemoval, *PendingClicks; \ - ALuint pos, frac; \ - ALfp DrySend[MAXCHANNELS]; \ - FILTER *DryFilter; \ - ALuint BufferIdx; \ - ALuint increment; \ - ALuint out, c; \ - ALfp value; \ - \ - increment = Source->Params.Step; \ - \ - DryBuffer = Device->DryBuffer; \ - ClickRemoval = Device->ClickRemoval; \ - PendingClicks = Device->PendingClicks; \ - DryFilter = &Source->Params.iirFilter; \ - for(c = 0;c < MAXCHANNELS;c++) \ - DrySend[c] = Source->Params.DryGains[0][c]; \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - \ - if(OutPos == 0) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter4PC(DryFilter, 0, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - ClickRemoval[c] = (ClickRemoval[c] - ALfpMult(value,DrySend[c])); \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - /* First order interpolator */ \ - value = sampler(data+pos, 1, frac); \ - \ - /* Direct path final mix buffer and panning */ \ - value = lpFilter4P(DryFilter, 0, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - DryBuffer[OutPos][c] = (DryBuffer[OutPos][c] + ALfpMult(value,DrySend[c])); \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter4PC(DryFilter, 0, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - PendingClicks[c] = (PendingClicks[c] + ALfpMult(value,DrySend[c])); \ - } \ - \ - for(out = 0;out < Device->NumAuxSends;out++) \ - { \ - ALfp WetSend; \ - ALfp *WetBuffer; \ - ALfp *WetClickRemoval; \ - ALfp *WetPendingClicks; \ - FILTER *WetFilter; \ - \ - if(!Source->Send[out].Slot || \ - Source->Send[out].Slot->effect.type == AL_EFFECT_NULL) \ - continue; \ - \ - WetBuffer = Source->Send[out].Slot->WetBuffer; \ - WetClickRemoval = Source->Send[out].Slot->ClickRemoval; \ - WetPendingClicks = Source->Send[out].Slot->PendingClicks; \ - WetFilter = &Source->Params.Send[out].iirFilter; \ - WetSend = Source->Params.Send[out].WetGain; \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - OutPos -= BufferSize; \ - \ - if(OutPos == 0) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter2PC(WetFilter, 0, value); \ - WetClickRemoval[0] = (WetClickRemoval[0] - ALfpMult(value,WetSend)); \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - /* First order interpolator */ \ - value = sampler(data+pos, 1, frac); \ - \ - /* Room path final mix buffer and panning */ \ - value = lpFilter2P(WetFilter, 0, value); \ - WetBuffer[OutPos] = (WetBuffer[OutPos] + ALfpMult(value,WetSend)); \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - value = sampler(data+pos, 1, frac); \ - \ - value = lpFilter2PC(WetFilter, 0, value); \ - WetPendingClicks[0] = (WetPendingClicks[0] + ALfpMult(value,WetSend)); \ - } \ - } \ - *DataPosInt += pos; \ - *DataPosFrac = frac; \ -} - -DECL_TEMPLATE(ALfp, point32) -DECL_TEMPLATE(ALfp, lerp32) -DECL_TEMPLATE(ALfp, cubic32) - -DECL_TEMPLATE(ALshort, point16) -DECL_TEMPLATE(ALshort, lerp16) -DECL_TEMPLATE(ALshort, cubic16) - -DECL_TEMPLATE(ALubyte, point8) -DECL_TEMPLATE(ALubyte, lerp8) -DECL_TEMPLATE(ALubyte, cubic8) - -#undef DECL_TEMPLATE - - -#define DECL_TEMPLATE(T, chnct, sampler) \ -static void Mix_##T##_##chnct##_##sampler(ALsource *Source, ALCdevice *Device,\ - const T *data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - const ALuint Channels = chnct; \ - const ALfp scaler = ALfpDiv(int2ALfp(1),int2ALfp(chnct)); \ - ALfp (*DryBuffer)[MAXCHANNELS]; \ - ALfp *ClickRemoval, *PendingClicks; \ - ALuint pos, frac; \ - ALfp DrySend[chnct][MAXCHANNELS]; \ - FILTER *DryFilter; \ - ALuint BufferIdx; \ - ALuint increment; \ - ALuint i, out, c; \ - ALfp value; \ - \ - increment = Source->Params.Step; \ - \ - DryBuffer = Device->DryBuffer; \ - ClickRemoval = Device->ClickRemoval; \ - PendingClicks = Device->PendingClicks; \ - DryFilter = &Source->Params.iirFilter; \ - for(i = 0;i < Channels;i++) \ - { \ - for(c = 0;c < MAXCHANNELS;c++) \ - DrySend[i][c] = Source->Params.DryGains[i][c]; \ - } \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - \ - if(OutPos == 0) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter2PC(DryFilter, i*2, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - ClickRemoval[c] = (ClickRemoval[c] - ALfpMult(value,DrySend[i][c])); \ - } \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter2P(DryFilter, i*2, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - DryBuffer[OutPos][c] = (DryBuffer[OutPos][c] + ALfpMult(value,DrySend[i][c])); \ - } \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter2PC(DryFilter, i*2, value); \ - for(c = 0;c < MAXCHANNELS;c++) \ - PendingClicks[c] = (PendingClicks[c] + ALfpMult(value,DrySend[i][c])); \ - } \ - } \ - \ - for(out = 0;out < Device->NumAuxSends;out++) \ - { \ - ALfp WetSend; \ - ALfp *WetBuffer; \ - ALfp *WetClickRemoval; \ - ALfp *WetPendingClicks; \ - FILTER *WetFilter; \ - \ - if(!Source->Send[out].Slot || \ - Source->Send[out].Slot->effect.type == AL_EFFECT_NULL) \ - continue; \ - \ - WetBuffer = Source->Send[out].Slot->WetBuffer; \ - WetClickRemoval = Source->Send[out].Slot->ClickRemoval; \ - WetPendingClicks = Source->Send[out].Slot->PendingClicks; \ - WetFilter = &Source->Params.Send[out].iirFilter; \ - WetSend = Source->Params.Send[out].WetGain; \ - \ - pos = 0; \ - frac = *DataPosFrac; \ - OutPos -= BufferSize; \ - \ - if(OutPos == 0) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter1PC(WetFilter, i, value); \ - WetClickRemoval[0] = (WetClickRemoval[0] - ALfpMult(ALfpMult(value,WetSend), scaler)); \ - } \ - } \ - for(BufferIdx = 0;BufferIdx < BufferSize;BufferIdx++) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter1P(WetFilter, i, value); \ - WetBuffer[OutPos] = (WetBuffer[OutPos] + ALfpMult(ALfpMult(value,WetSend), scaler)); \ - } \ - \ - frac += increment; \ - pos += frac>>FRACTIONBITS; \ - frac &= FRACTIONMASK; \ - OutPos++; \ - } \ - if(OutPos == SamplesToDo) \ - { \ - for(i = 0;i < Channels;i++) \ - { \ - value = sampler(data + pos*Channels + i, Channels, frac); \ - \ - value = lpFilter1PC(WetFilter, i, value); \ - WetPendingClicks[0] = (WetPendingClicks[0] + ALfpMult(ALfpMult(value,WetSend), scaler)); \ - } \ - } \ - } \ - *DataPosInt += pos; \ - *DataPosFrac = frac; \ -} - -DECL_TEMPLATE(ALfp, 2, point32) -DECL_TEMPLATE(ALfp, 2, lerp32) -DECL_TEMPLATE(ALfp, 2, cubic32) - -DECL_TEMPLATE(ALshort, 2, point16) -DECL_TEMPLATE(ALshort, 2, lerp16) -DECL_TEMPLATE(ALshort, 2, cubic16) - -DECL_TEMPLATE(ALubyte, 2, point8) -DECL_TEMPLATE(ALubyte, 2, lerp8) -DECL_TEMPLATE(ALubyte, 2, cubic8) - - -DECL_TEMPLATE(ALfp, 4, point32) -DECL_TEMPLATE(ALfp, 4, lerp32) -DECL_TEMPLATE(ALfp, 4, cubic32) - -DECL_TEMPLATE(ALshort, 4, point16) -DECL_TEMPLATE(ALshort, 4, lerp16) -DECL_TEMPLATE(ALshort, 4, cubic16) - -DECL_TEMPLATE(ALubyte, 4, point8) -DECL_TEMPLATE(ALubyte, 4, lerp8) -DECL_TEMPLATE(ALubyte, 4, cubic8) - - -DECL_TEMPLATE(ALfp, 6, point32) -DECL_TEMPLATE(ALfp, 6, lerp32) -DECL_TEMPLATE(ALfp, 6, cubic32) - -DECL_TEMPLATE(ALshort, 6, point16) -DECL_TEMPLATE(ALshort, 6, lerp16) -DECL_TEMPLATE(ALshort, 6, cubic16) - -DECL_TEMPLATE(ALubyte, 6, point8) -DECL_TEMPLATE(ALubyte, 6, lerp8) -DECL_TEMPLATE(ALubyte, 6, cubic8) - - -DECL_TEMPLATE(ALfp, 7, point32) -DECL_TEMPLATE(ALfp, 7, lerp32) -DECL_TEMPLATE(ALfp, 7, cubic32) - -DECL_TEMPLATE(ALshort, 7, point16) -DECL_TEMPLATE(ALshort, 7, lerp16) -DECL_TEMPLATE(ALshort, 7, cubic16) - -DECL_TEMPLATE(ALubyte, 7, point8) -DECL_TEMPLATE(ALubyte, 7, lerp8) -DECL_TEMPLATE(ALubyte, 7, cubic8) - - -DECL_TEMPLATE(ALfp, 8, point32) -DECL_TEMPLATE(ALfp, 8, lerp32) -DECL_TEMPLATE(ALfp, 8, cubic32) - -DECL_TEMPLATE(ALshort, 8, point16) -DECL_TEMPLATE(ALshort, 8, lerp16) -DECL_TEMPLATE(ALshort, 8, cubic16) - -DECL_TEMPLATE(ALubyte, 8, point8) -DECL_TEMPLATE(ALubyte, 8, lerp8) -DECL_TEMPLATE(ALubyte, 8, cubic8) - -#undef DECL_TEMPLATE - - -#define DECL_TEMPLATE(T, sampler) \ -static void Mix_##T##_##sampler(ALsource *Source, ALCdevice *Device, \ - enum FmtChannels FmtChannels, \ - const ALvoid *Data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - switch(FmtChannels) \ - { \ - case FmtMono: \ - Mix_##T##_1_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtStereo: \ - case FmtRear: \ - Mix_##T##_2_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtQuad: \ - Mix_##T##_4_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtX51: \ - Mix_##T##_6_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtX61: \ - Mix_##T##_7_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - case FmtX71: \ - Mix_##T##_8_##sampler(Source, Device, Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - } \ -} - -DECL_TEMPLATE(ALfp, point32) -DECL_TEMPLATE(ALfp, lerp32) -DECL_TEMPLATE(ALfp, cubic32) - -DECL_TEMPLATE(ALshort, point16) -DECL_TEMPLATE(ALshort, lerp16) -DECL_TEMPLATE(ALshort, cubic16) - -DECL_TEMPLATE(ALubyte, point8) -DECL_TEMPLATE(ALubyte, lerp8) -DECL_TEMPLATE(ALubyte, cubic8) - -#undef DECL_TEMPLATE - - -#define DECL_TEMPLATE(sampler) \ -static void Mix_##sampler(ALsource *Source, ALCdevice *Device, \ - enum FmtChannels FmtChannels, enum FmtType FmtType, \ - const ALvoid *Data, ALuint *DataPosInt, ALuint *DataPosFrac, \ - ALuint OutPos, ALuint SamplesToDo, ALuint BufferSize) \ -{ \ - switch(FmtType) \ - { \ - case FmtUByte: \ - Mix_ALubyte_##sampler##8(Source, Device, FmtChannels, \ - Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - \ - case FmtShort: \ - Mix_ALshort_##sampler##16(Source, Device, FmtChannels, \ - Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - \ - case FmtFloat: \ - Mix_ALfp_##sampler##32(Source, Device, FmtChannels, \ - Data, DataPosInt, DataPosFrac, \ - OutPos, SamplesToDo, BufferSize); \ - break; \ - } \ -} - -DECL_TEMPLATE(point) -DECL_TEMPLATE(lerp) -DECL_TEMPLATE(cubic) - -#undef DECL_TEMPLATE - - -ALvoid MixSource(ALsource *Source, ALCdevice *Device, ALuint SamplesToDo) -{ - ALbufferlistitem *BufferListItem; - ALuint DataPosInt, DataPosFrac; - enum FmtChannels FmtChannels; - enum FmtType FmtType; - ALuint BuffersPlayed; - ALboolean Looping; - ALuint increment; - resampler_t Resampler; - ALenum State; - ALuint OutPos; - ALuint FrameSize; - ALint64 DataSize64; - ALuint i; - - /* Get source info */ - State = Source->state; - BuffersPlayed = Source->BuffersPlayed; - DataPosInt = Source->position; - DataPosFrac = Source->position_fraction; - Looping = Source->bLooping; - increment = Source->Params.Step; - Resampler = (increment == FRACTIONONE) ? POINT_RESAMPLER : - Source->Resampler; - - /* Get buffer info */ - FrameSize = 0; - FmtChannels = FmtMono; - FmtType = FmtUByte; - BufferListItem = Source->queue; - for(i = 0;i < Source->BuffersInQueue;i++) - { - const ALbuffer *ALBuffer; - if((ALBuffer=BufferListItem->buffer) != NULL) - { - FmtChannels = ALBuffer->FmtChannels; - FmtType = ALBuffer->FmtType; - FrameSize = FrameSizeFromFmt(FmtChannels, FmtType); - break; - } - BufferListItem = BufferListItem->next; - } - - /* Get current buffer queue item */ - BufferListItem = Source->queue; - for(i = 0;i < BuffersPlayed;i++) - BufferListItem = BufferListItem->next; - - OutPos = 0; - do { - const ALuint BufferPrePadding = ResamplerPrePadding[Resampler]; - const ALuint BufferPadding = ResamplerPadding[Resampler]; - ALubyte StackData[STACK_DATA_SIZE]; - ALubyte *SrcData = StackData; - ALuint SrcDataSize = 0; - ALuint BufferSize; - - /* Figure out how many buffer bytes will be needed */ - DataSize64 = SamplesToDo-OutPos+1; - DataSize64 *= increment; - DataSize64 += DataPosFrac+FRACTIONMASK; - DataSize64 >>= FRACTIONBITS; - DataSize64 += BufferPadding+BufferPrePadding; - DataSize64 *= FrameSize; - - BufferSize = min(DataSize64, STACK_DATA_SIZE); - BufferSize -= BufferSize%FrameSize; - - if(Source->lSourceType == AL_STATIC) - { - const ALbuffer *ALBuffer = Source->Buffer; - const ALubyte *Data = ALBuffer->data; - ALuint DataSize; - ALuint pos; - - /* If current pos is beyond the loop range, do not loop */ - if(Looping == AL_FALSE || DataPosInt >= (ALuint)ALBuffer->LoopEnd) - { - Looping = AL_FALSE; - - if(DataPosInt >= BufferPrePadding) - pos = (DataPosInt-BufferPrePadding)*FrameSize; - else - { - DataSize = (BufferPrePadding-DataPosInt)*FrameSize; - DataSize = min(BufferSize, DataSize); - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - pos = 0; - } - - /* Copy what's left to play in the source buffer, and clear the - * rest of the temp buffer */ - DataSize = ALBuffer->size - pos; - DataSize = min(BufferSize, DataSize); - - memcpy(&SrcData[SrcDataSize], &Data[pos], DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, BufferSize); - SrcDataSize += BufferSize; - BufferSize -= BufferSize; - } - else - { - ALuint LoopStart = ALBuffer->LoopStart; - ALuint LoopEnd = ALBuffer->LoopEnd; - - if(DataPosInt >= LoopStart) - { - pos = DataPosInt-LoopStart; - while(pos < BufferPrePadding) - pos += LoopEnd-LoopStart; - pos -= BufferPrePadding; - pos += LoopStart; - pos *= FrameSize; - } - else if(DataPosInt >= BufferPrePadding) - pos = (DataPosInt-BufferPrePadding)*FrameSize; - else - { - DataSize = (BufferPrePadding-DataPosInt)*FrameSize; - DataSize = min(BufferSize, DataSize); - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - pos = 0; - } - - /* Copy what's left of this loop iteration, then copy repeats - * of the loop section */ - DataSize = LoopEnd*FrameSize - pos; - DataSize = min(BufferSize, DataSize); - - memcpy(&SrcData[SrcDataSize], &Data[pos], DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - DataSize = (LoopEnd-LoopStart) * FrameSize; - while(BufferSize > 0) - { - DataSize = min(BufferSize, DataSize); - - memcpy(&SrcData[SrcDataSize], &Data[LoopStart*FrameSize], DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - } - } - } - else - { - /* Crawl the buffer queue to fill in the temp buffer */ - ALbufferlistitem *BufferListIter = BufferListItem; - ALuint pos; - - if(DataPosInt >= BufferPrePadding) - pos = (DataPosInt-BufferPrePadding)*FrameSize; - else - { - pos = (BufferPrePadding-DataPosInt)*FrameSize; - while(pos > 0) - { - if(!BufferListIter->prev && !Looping) - { - ALuint DataSize = min(BufferSize, pos); - - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - - pos = 0; - break; - } - - if(BufferListIter->prev) - BufferListIter = BufferListIter->prev; - else - { - while(BufferListIter->next) - BufferListIter = BufferListIter->next; - } - - if(BufferListIter->buffer) - { - if((ALuint)BufferListIter->buffer->size > pos) - { - pos = BufferListIter->buffer->size - pos; - break; - } - pos -= BufferListIter->buffer->size; - } - } - } - - while(BufferListIter && BufferSize > 0) - { - const ALbuffer *ALBuffer; - if((ALBuffer=BufferListIter->buffer) != NULL) - { - const ALubyte *Data = ALBuffer->data; - ALuint DataSize = ALBuffer->size; - - /* Skip the data already played */ - if(DataSize <= pos) - pos -= DataSize; - else - { - Data += pos; - DataSize -= pos; - pos -= pos; - - DataSize = min(BufferSize, DataSize); - memcpy(&SrcData[SrcDataSize], Data, DataSize); - SrcDataSize += DataSize; - BufferSize -= DataSize; - } - } - BufferListIter = BufferListIter->next; - if(!BufferListIter && Looping) - BufferListIter = Source->queue; - else if(!BufferListIter) - { - memset(&SrcData[SrcDataSize], (FmtType==FmtUByte)?0x80:0, BufferSize); - SrcDataSize += BufferSize; - BufferSize -= BufferSize; - } - } - } - - /* Figure out how many samples we can mix. */ - DataSize64 = SrcDataSize / FrameSize; - DataSize64 -= BufferPadding+BufferPrePadding; - DataSize64 <<= FRACTIONBITS; - DataSize64 -= increment; - DataSize64 -= DataPosFrac; - - BufferSize = (ALuint)((DataSize64+(increment-1)) / increment); - BufferSize = min(BufferSize, (SamplesToDo-OutPos)); - - SrcData += BufferPrePadding*FrameSize; - switch(Resampler) - { - case POINT_RESAMPLER: - Mix_point(Source, Device, FmtChannels, FmtType, - SrcData, &DataPosInt, &DataPosFrac, - OutPos, SamplesToDo, BufferSize); - break; - case LINEAR_RESAMPLER: - Mix_lerp(Source, Device, FmtChannels, FmtType, - SrcData, &DataPosInt, &DataPosFrac, - OutPos, SamplesToDo, BufferSize); - break; - case CUBIC_RESAMPLER: - Mix_cubic(Source, Device, FmtChannels, FmtType, - SrcData, &DataPosInt, &DataPosFrac, - OutPos, SamplesToDo, BufferSize); - break; - case RESAMPLER_MIN: - case RESAMPLER_MAX: - break; - } - OutPos += BufferSize; - - /* Handle looping sources */ - while(1) - { - const ALbuffer *ALBuffer; - ALuint DataSize = 0; - ALuint LoopStart = 0; - ALuint LoopEnd = 0; - - if((ALBuffer=BufferListItem->buffer) != NULL) - { - DataSize = ALBuffer->size / FrameSize; - LoopStart = ALBuffer->LoopStart; - LoopEnd = ALBuffer->LoopEnd; - if(LoopEnd > DataPosInt) - break; - } - - if(Looping && Source->lSourceType == AL_STATIC) - { - BufferListItem = Source->queue; - DataPosInt = ((DataPosInt-LoopStart)%(LoopEnd-LoopStart)) + LoopStart; - break; - } - - if(DataSize > DataPosInt) - break; - - if(BufferListItem->next) - { - BufferListItem = BufferListItem->next; - BuffersPlayed++; - } - else if(Looping) - { - BufferListItem = Source->queue; - BuffersPlayed = 0; - } - else - { - State = AL_STOPPED; - BufferListItem = Source->queue; - BuffersPlayed = Source->BuffersInQueue; - DataPosInt = 0; - DataPosFrac = 0; - break; - } - - DataPosInt -= DataSize; - } - } while(State == AL_PLAYING && OutPos < SamplesToDo); - - /* Update source info */ - Source->state = State; - Source->BuffersPlayed = BuffersPlayed; - Source->position = DataPosInt; - Source->position_fraction = DataPosFrac; - Source->Buffer = BufferListItem->buffer; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/null.c b/internal/c/parts/audio/out/android/other/stuff/Alc/null.c deleted file mode 100644 index 75fc883cd..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/null.c +++ /dev/null @@ -1,182 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2010 by Chris Robinson - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - - -typedef struct { - ALvoid *buffer; - ALuint size; - - volatile int killNow; - ALvoid *thread; -} null_data; - - -static const ALCchar nullDevice[] = "No Output"; - -static ALuint NullProc(ALvoid *ptr) -{ - ALCdevice *Device = (ALCdevice*)ptr; - null_data *data = (null_data*)Device->ExtraData; - ALuint now, start; - ALuint64 avail, done; - const ALuint restTime = ((ALuint)((ALuint64)Device->UpdateSize * 1000 / - Device->Frequency)) / 2; - - done = 0; - start = timeGetTime(); - while(!data->killNow && Device->Connected) - { - now = timeGetTime(); - - avail = (ALuint64)(now-start) * Device->Frequency / 1000; - if(avail < done) - { - /* Timer wrapped. Add the remainder of the cycle to the available - * count and reset the number of samples done */ - avail += (ALuint64)0xFFFFFFFFu*Device->Frequency/1000 - done; - done = 0; - } - if(avail-done < Device->UpdateSize) - { - Sleep(restTime); - continue; - } - - while(avail-done >= Device->UpdateSize) - { - aluMixData(Device, data->buffer, Device->UpdateSize); - done += Device->UpdateSize; - } - } - - return 0; -} - -static ALCboolean null_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - null_data *data; - - if(!deviceName) - deviceName = nullDevice; - else if(strcmp(deviceName, nullDevice) != 0) - return ALC_FALSE; - - data = (null_data*)calloc(1, sizeof(*data)); - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void null_close_playback(ALCdevice *device) -{ - null_data *data = (null_data*)device->ExtraData; - - free(data); - device->ExtraData = NULL; -} - -static ALCboolean null_reset_playback(ALCdevice *device) -{ - null_data *data = (null_data*)device->ExtraData; - - data->size = device->UpdateSize * FrameSizeFromDevFmt(device->FmtChans, - device->FmtType); - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - return ALC_FALSE; - } - SetDefaultWFXChannelOrder(device); - - data->thread = StartThread(NullProc, device); - if(data->thread == NULL) - { - free(data->buffer); - data->buffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void null_stop_playback(ALCdevice *device) -{ - null_data *data = (null_data*)device->ExtraData; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - - free(data->buffer); - data->buffer = NULL; -} - - -static ALCboolean null_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - (void)device; - (void)deviceName; - return ALC_FALSE; -} - - -BackendFuncs null_funcs = { - null_open_playback, - null_close_playback, - null_reset_playback, - null_stop_playback, - null_open_capture, - NULL, - NULL, - NULL, - NULL, - NULL -}; - -void alc_null_init(BackendFuncs *func_list) -{ - *func_list = null_funcs; -} - -void alc_null_deinit(void) -{ -} - -void alc_null_probe(int type) -{ - if(type == DEVICE_PROBE) - AppendDeviceList(nullDevice); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(nullDevice); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/opensles.c b/internal/c/parts/audio/out/android/other/stuff/Alc/opensles.c deleted file mode 100644 index 0dc597ee4..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/opensles.c +++ /dev/null @@ -1,800 +0,0 @@ -/* - * Copyright (C) 2011 The Android Open Source Project - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - */ - -/* This is an OpenAL backend for Android using the native audio APIs based on OpenSL ES 1.0.1. - * It is based on source code for the native-audio sample app bundled with NDK. - */ - -#include -#include -#include -#include -#include - -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include -#include -#include - -#include - - -#define LOG_NDEBUG 0 -#define LOG_TAG "OpenAL_SLES" - -#if 1 -#define LOGV(...) __android_log_print(ANDROID_LOG_INFO, LOG_TAG, __VA_ARGS__) -#else -#define LOGV(...) -#endif - -// for native audio -#include -#include - -#include "apportable_openal_funcs.h" - -#define MAKE_SYM_POINTER(sym) static typeof(sym) * p##sym = NULL -MAKE_SYM_POINTER(SL_IID_ENGINE); -MAKE_SYM_POINTER(SL_IID_ANDROIDSIMPLEBUFFERQUEUE); -MAKE_SYM_POINTER(SL_IID_PLAY); -MAKE_SYM_POINTER(SL_IID_BUFFERQUEUE); -MAKE_SYM_POINTER(slCreateEngine); - -// engine interfaces -static SLObjectItf engineObject = NULL; -static SLEngineItf engineEngine; - -// output mix interfaces -static SLObjectItf outputMixObject = NULL; - -// JNI stuff so we can get the runtime OS version number -static JavaVM* javaVM = NULL; - -static int alc_opensles_get_android_api() -{ - jclass androidVersionClass = NULL; - jfieldID androidSdkIntField = NULL; - int androidApiLevel = 0; - JNIEnv* env = NULL; - - (*javaVM)->GetEnv(javaVM, (void**)&env, JNI_VERSION_1_4); - androidVersionClass = (*env)->FindClass(env, "android/os/Build$VERSION"); - if (androidVersionClass) - { - androidSdkIntField = (*env)->GetStaticFieldID(env, androidVersionClass, "SDK_INT", "I"); - if (androidSdkIntField != NULL) - { - androidApiLevel = (int)((*env)->GetStaticIntField(env, androidVersionClass, androidSdkIntField)); - } - (*env)->DeleteLocalRef(env, androidVersionClass); - } - LOGV("API:%d", androidApiLevel); - return androidApiLevel; -} -static char *androidModel = NULL; -static char *alc_opensles_get_android_model() -{ - if (!androidModel) { - jclass androidBuildClass = NULL; - jfieldID androidModelField = NULL; - jstring androidModelString = NULL; - int androidApiLevel = 0; - JNIEnv* env = NULL; - - (*javaVM)->GetEnv(javaVM, (void**)&env, JNI_VERSION_1_4); - (*env)->PushLocalFrame(env, 5); - androidBuildClass = (*env)->FindClass(env, "android/os/Build"); - if (androidBuildClass) - { - androidModelField = (*env)->GetStaticFieldID(env, androidBuildClass, "MODEL", "Ljava/lang/String;"); - androidModelString = (*env)->GetStaticObjectField(env, androidBuildClass, androidModelField); - const char *unichars = (*env)->GetStringUTFChars(env, androidModelString, NULL); - if (!(*env)->ExceptionOccurred(env)) - { - jsize sz = (*env)->GetStringLength(env, androidModelString); - androidModel = malloc(sz+1); - if (androidModel) { - strncpy(androidModel, unichars, sz); - androidModel[sz] = '\0'; - } - } - (*env)->ReleaseStringUTFChars(env, androidModelString, unichars); - } - (*env)->PopLocalFrame(env, NULL); - } - LOGV("Model:%s", androidModel); - return androidModel; -} - -static long timespecdiff(struct timespec *starttime, struct timespec *finishtime) -{ - long msec; - msec=(finishtime->tv_sec-starttime->tv_sec)*1000; - msec+=(finishtime->tv_nsec-starttime->tv_nsec)/1000000; - return msec; - } - -// Cannot be a constant because we need to tweak differently depending on OS version. -static size_t bufferCount = 8; -static size_t bufferSize = (1024*4); -static size_t defaultBufferSize = (1024*4); -static size_t premixCount = 3; -#define bufferSizeMax (1024*4) - -typedef enum { - OUTPUT_BUFFER_STATE_UNKNOWN, - OUTPUT_BUFFER_STATE_FREE, - OUTPUT_BUFFER_STATE_MIXED, - OUTPUT_BUFFER_STATE_ENQUEUED, -} outputBuffer_state_t; - -typedef struct outputBuffer_s { - pthread_mutex_t mutex; - pthread_cond_t cond; - outputBuffer_state_t state; - char buffer[bufferSizeMax]; -} outputBuffer_t; - -// Will dynamically create the number of buffers (array elements) based on OS version. - - -typedef struct { - pthread_t playbackThread; - char threadShouldRun; - char threadIsReady; - char lastBufferEnqueued; - char lastBufferMixed; - - outputBuffer_t *outputBuffers; - - // buffer queue player interfaces - SLObjectItf bqPlayerObject; - SLPlayItf bqPlayerPlay; - SLAndroidSimpleBufferQueueItf bqPlayerBufferQueue; -} opesles_data_t; -#define MAX_DEVICES 3 -static ALCdevice *deviceList[MAX_DEVICES] = {NULL}; -static pthread_mutex_t deviceListMutex = PTHREAD_MUTEX_INITIALIZER; - -typedef void (*deviceListFn)(ALCdevice *); - -static void devlist_add(ALCdevice *pDevice) { - int i; - pthread_mutex_lock(&(deviceListMutex)); - for (i = 0; i < MAX_DEVICES; i++) { - if (deviceList[i] == pDevice) { - break; - } else if (deviceList[i] == NULL) { - deviceList[i] = pDevice; - break; - } - } - pthread_mutex_unlock(&(deviceListMutex)); -} - -static void devlist_remove(ALCdevice *pDevice) { - int i; - pthread_mutex_lock(&(deviceListMutex)); - for (i = 0; i < MAX_DEVICES; i++) { - if (deviceList[i] == pDevice) { - deviceList[i] = NULL; - } - } - pthread_mutex_unlock(&(deviceListMutex)); -} - -static void devlist_process(deviceListFn mapFunction) { - int i; - pthread_mutex_lock(&(deviceListMutex)); - for (i = 0; i < MAX_DEVICES; i++) { - if (deviceList[i]) { - pthread_mutex_unlock(&(deviceListMutex)); - mapFunction(deviceList[i]); - pthread_mutex_lock(&(deviceListMutex)); - } - } - pthread_mutex_unlock(&(deviceListMutex)); -} - - -static void *playback_function(void * context) { - LOGV("playback_function started"); - outputBuffer_t *buffer = NULL; - SLresult result; - struct timespec ts; - assert(NULL != context); - ALCdevice *pDevice = (ALCdevice *) context; - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - unsigned int bufferIndex = devState->lastBufferMixed; - - ALint frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - // Show a sensible name for the thread in debug tools - prctl(PR_SET_NAME, (unsigned long)"OpenAL/sl/m", 0, 0, 0); - - while (1) { - if (devState->threadShouldRun == 0) { - return NULL; - } - - bufferIndex = (++bufferIndex) % bufferCount; - buffer = &(devState->outputBuffers[bufferIndex]); - - pthread_mutex_lock(&(buffer->mutex)); - - - while (1) { - if (devState->threadShouldRun == 0) { - pthread_mutex_unlock(&(buffer->mutex)); - return NULL; - } - - // This is a little hacky, but here we avoid mixing too much data - if (buffer->state == OUTPUT_BUFFER_STATE_FREE) { - int i = (bufferIndex - premixCount) % bufferCount; - outputBuffer_t *buffer1 = &(devState->outputBuffers[i]); - if (buffer1->state == OUTPUT_BUFFER_STATE_ENQUEUED || - buffer1->state == OUTPUT_BUFFER_STATE_FREE) { - break; - } - } - - // No buffer available, wait for a buffer to become available - // or until playback is stopped/suspended - clock_gettime(CLOCK_REALTIME, &ts); - ts.tv_nsec += 5000000; - pthread_cond_timedwait(&(buffer->cond), &(buffer->mutex), &ts); - } - devState->threadIsReady = 1; - - aluMixData(pDevice, buffer->buffer, bufferSize/frameSize); - buffer->state = OUTPUT_BUFFER_STATE_MIXED; - pthread_cond_signal(&(buffer->cond)); - pthread_mutex_unlock(&(buffer->mutex)); - - devState->lastBufferMixed = bufferIndex; - } -} - -SLresult alc_opensles_init_extradata(ALCdevice *pDevice) -{ - opesles_data_t *devState = NULL; - int i; - devState = malloc(sizeof(opesles_data_t)); - if (!devState) { - return SL_RESULT_MEMORY_FAILURE; - } - bzero(devState, sizeof(opesles_data_t)); - devState->outputBuffers = (outputBuffer_t*) malloc(sizeof(outputBuffer_t)*bufferCount); - if (!devState->outputBuffers) { - free(devState); - return SL_RESULT_MEMORY_FAILURE; - } - pDevice->ExtraData = devState; - bzero(devState->outputBuffers, sizeof(outputBuffer_t)*bufferCount); - devState->lastBufferEnqueued = -1; - devState->lastBufferMixed = -1; - for (i = 0; i < bufferCount; i++) { - if (pthread_mutex_init(&(devState->outputBuffers[i].mutex), (pthread_mutexattr_t*) NULL) != 0) { - LOGV("Error on init of mutex"); - free(devState->outputBuffers); - free(devState); - return SL_RESULT_UNKNOWN_ERROR; - } - if (pthread_cond_init(&(devState->outputBuffers[i].cond), (pthread_condattr_t*) NULL) != 0) { - LOGV("Error on init of cond"); - free(devState->outputBuffers); - free(devState); - return SL_RESULT_UNKNOWN_ERROR; - } - devState->outputBuffers[i].state = OUTPUT_BUFFER_STATE_FREE; - } - // For the Android suspend/resume functionaly, keep track of all device contexts - devlist_add(pDevice); - return SL_RESULT_SUCCESS; -} - -static void start_playback(ALCdevice *pDevice) { - opesles_data_t *devState = NULL; - int i; - - if (pDevice->ExtraData == NULL) { - alc_opensles_init_extradata(pDevice); - devState = pDevice->ExtraData; - assert(devState != NULL); - } else { - devState = (opesles_data_t *) pDevice->ExtraData; - } - - if (devState->threadShouldRun == 1) { - // Gratuitous resume - return; - } - - // start/restart playback thread - devState->threadShouldRun = 1; - - pthread_attr_t playbackThreadAttr; - pthread_attr_init(&playbackThreadAttr); - struct sched_param playbackThreadParam; - playbackThreadParam.sched_priority = sched_get_priority_max(SCHED_RR); - pthread_attr_setschedpolicy(&playbackThreadAttr, SCHED_RR); - pthread_attr_setschedparam(&playbackThreadAttr, &playbackThreadParam); - pthread_create(&(devState->playbackThread), &playbackThreadAttr, playback_function, (void *) pDevice); - while (devState->threadShouldRun && (0 == devState->threadIsReady)) - { - sched_yield(); - } -} - -static void stop_playback(ALCdevice *pDevice) { - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - devState->threadShouldRun = 0; - pthread_join(devState->playbackThread, NULL); - return; -} - -// this callback handler is called every time a buffer finishes playing -static void opensles_callback(SLAndroidSimpleBufferQueueItf bq, void *context) -{ - ALCdevice *pDevice = (ALCdevice *) context; - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - unsigned int bufferIndex = devState->lastBufferEnqueued; - unsigned int i; - struct timespec ts; - int rc; - SLresult result; - outputBuffer_t *buffer = NULL; - - bufferIndex = (++bufferIndex) % bufferCount; - buffer = &(devState->outputBuffers[bufferIndex]); - - pthread_mutex_lock(&(buffer->mutex)); - // We will block until 'next' buffer has mixed audio, but first flag oldest equeued buffer as free - for (i = 1; i <= bufferCount; i++) { - unsigned int j = (devState->lastBufferEnqueued+i) % bufferCount; - outputBuffer_t *bufferFree = &(devState->outputBuffers[j]); - if (bufferFree->state == OUTPUT_BUFFER_STATE_ENQUEUED) { - bufferFree->state = OUTPUT_BUFFER_STATE_FREE; - break; - } - } - while (buffer->state != OUTPUT_BUFFER_STATE_MIXED) { - clock_gettime(CLOCK_REALTIME, &ts); - ts.tv_nsec += 100000; - rc = pthread_cond_timedwait(&(buffer->cond), &(buffer->mutex), &ts); - if (rc != 0) { - if (devState->threadShouldRun == 0) { - // we are probably suspended - pthread_mutex_unlock(&(buffer->mutex)); - return; - } - } - } - - if (devState->bqPlayerBufferQueue) { - result = (*devState->bqPlayerBufferQueue)->Enqueue(devState->bqPlayerBufferQueue, buffer->buffer, bufferSize); - if (SL_RESULT_SUCCESS == result) { - buffer->state = OUTPUT_BUFFER_STATE_ENQUEUED; - devState->lastBufferEnqueued = bufferIndex; - pthread_cond_signal(&(buffer->cond)); - } else { - bufferIndex--; - } - } - pthread_mutex_unlock(&(buffer->mutex)); -} - - -static const ALCchar opensles_device[] = "OpenSL ES"; - -// Apportable extensions -SLresult alc_opensles_create_native_audio_engine() -{ - if (engineObject) - return SL_RESULT_SUCCESS; - - SLresult result; - - // create engine - result = pslCreateEngine(&engineObject, 0, NULL, 0, NULL, NULL); - assert(SL_RESULT_SUCCESS == result); - - // realize the engine - result = (*engineObject)->Realize(engineObject, SL_BOOLEAN_FALSE); - assert(SL_RESULT_SUCCESS == result); - - // get the engine interface, which is needed in order to create other objects - result = (*engineObject)->GetInterface(engineObject, *pSL_IID_ENGINE, &engineEngine); - assert(SL_RESULT_SUCCESS == result); - - // create output mix - result = (*engineEngine)->CreateOutputMix(engineEngine, &outputMixObject, 0, NULL, NULL); - assert(SL_RESULT_SUCCESS == result); - - // realize the output mix - result = (*outputMixObject)->Realize(outputMixObject, SL_BOOLEAN_FALSE); - assert(SL_RESULT_SUCCESS == result); - - return result; -} - -// Backend functions, in same order as type BackendFuncs -static ALCboolean opensles_open_playback(ALCdevice *pDevice, const ALCchar *deviceName) -{ - LOGV("opensles_open_playback pDevice=%p, deviceName=%s", pDevice, deviceName); - - // Check if probe has linked the opensl symbols - if (pslCreateEngine == NULL) { - alc_opensles_probe(DEVICE_PROBE); - if (pslCreateEngine == NULL) { - return ALC_FALSE; - } - } - - if (pDevice->ExtraData == NULL) { - alc_opensles_init_extradata(pDevice); - } - - // create the engine and output mix objects - alc_opensles_create_native_audio_engine(); - - return ALC_TRUE; -} - - -static void opensles_close_playback(ALCdevice *pDevice) -{ - LOGV("opensles_close_playback pDevice=%p", pDevice); - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - - // shut down the native audio system - - // destroy buffer queue audio player object, and invalidate all associated interfaces - if (devState->bqPlayerObject != NULL) { - (*devState->bqPlayerObject)->Destroy(devState->bqPlayerObject); - devState->bqPlayerObject = NULL; - devState->bqPlayerPlay = NULL; - devState->bqPlayerBufferQueue = NULL; - } - - - - devlist_remove(pDevice); -} - -static ALCboolean opensles_reset_playback(ALCdevice *pDevice) -{ - if (pDevice == NULL) { - LOGE("Received a NULL ALCdevice! Returning ALC_FALSE from opensles_reset_playback"); - return ALC_FALSE; - } - LOGV("opensles_reset_playback pDevice=%p", pDevice); - opesles_data_t *devState; - unsigned bits = BytesFromDevFmt(pDevice->FmtType) * 8; - unsigned channels = ChannelsFromDevFmt(pDevice->FmtChans); - unsigned samples = pDevice->UpdateSize; - unsigned size = samples * channels * bits / 8; - SLuint32 sampling_rate = pDevice->Frequency * 1000; - SLresult result; - LOGV("bits=%u, channels=%u, samples=%u, size=%u, freq=%u", bits, channels, samples, size, pDevice->Frequency); - if (pDevice->Frequency <= 22050) { - bufferSize = defaultBufferSize / 2; - } - - devState = (opesles_data_t *) pDevice->ExtraData; - - // create buffer queue audio player - - // configure audio source - SLDataLocator_AndroidSimpleBufferQueue loc_bufq = {SL_DATALOCATOR_ANDROIDSIMPLEBUFFERQUEUE, 2}; -// SLDataFormat_PCM format_pcm = {SL_DATAFORMAT_PCM, 2, SL_SAMPLINGRATE_44_1, - SLDataFormat_PCM format_pcm = {SL_DATAFORMAT_PCM, 2, sampling_rate, - SL_PCMSAMPLEFORMAT_FIXED_16, SL_PCMSAMPLEFORMAT_FIXED_16, - SL_SPEAKER_FRONT_LEFT|SL_SPEAKER_FRONT_RIGHT, SL_BYTEORDER_LITTLEENDIAN}; - SLDataSource audioSrc = {&loc_bufq, &format_pcm}; - - // configure audio sink - SLDataLocator_OutputMix loc_outmix = {SL_DATALOCATOR_OUTPUTMIX, outputMixObject}; - SLDataSink audioSnk = {&loc_outmix, NULL}; - - // create audio player - LOGV("create audio player"); - const SLInterfaceID ids[1] = {*pSL_IID_ANDROIDSIMPLEBUFFERQUEUE}; - const SLboolean req[1] = {SL_BOOLEAN_TRUE}; - result = (*engineEngine)->CreateAudioPlayer(engineEngine, &devState->bqPlayerObject, &audioSrc, &audioSnk, - 1, ids, req); - if ((result != SL_RESULT_SUCCESS) || (devState->bqPlayerObject == NULL)) { - RELEASE_LOG("create audio player is null or errored: %lx", result); - return ALC_FALSE; - } - - // realize the player - result = (*devState->bqPlayerObject)->Realize(devState->bqPlayerObject, SL_BOOLEAN_FALSE); - assert(SL_RESULT_SUCCESS == result); - - // get the play interface - result = (*devState->bqPlayerObject)->GetInterface(devState->bqPlayerObject, *pSL_IID_PLAY, &devState->bqPlayerPlay); - assert(SL_RESULT_SUCCESS == result); - - // get the buffer queue interface - result = (*devState->bqPlayerObject)->GetInterface(devState->bqPlayerObject, *pSL_IID_BUFFERQUEUE, - &devState->bqPlayerBufferQueue); - if ((result != SL_RESULT_SUCCESS) || (devState->bqPlayerBufferQueue == NULL)) { - RELEASE_LOG("get the buffer queue interface is null or errored: %lx", result); - return ALC_FALSE; - } - - // register callback on the buffer queue - result = (*devState->bqPlayerBufferQueue)->RegisterCallback(devState->bqPlayerBufferQueue, opensles_callback, (void *) pDevice); - assert(SL_RESULT_SUCCESS == result); - - // playback_lock = createThreadLock(); - start_playback(pDevice); - - // set the player's state to playing - result = (*devState->bqPlayerPlay)->SetPlayState(devState->bqPlayerPlay, SL_PLAYSTATE_PLAYING); - assert(SL_RESULT_SUCCESS == result); - - // enqueue the first buffer to kick off the callbacks - result = (*devState->bqPlayerBufferQueue)->Enqueue(devState->bqPlayerBufferQueue, "\0", 1); - assert(SL_RESULT_SUCCESS == result); - - - SetDefaultWFXChannelOrder(pDevice); - devlist_add(pDevice); - - return ALC_TRUE; -} - - -static void opensles_stop_playback(ALCdevice *pDevice) -{ - LOGV("opensles_stop_playback device=%p", pDevice); - stop_playback(pDevice); -} - -static ALCboolean opensles_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - LOGV("opensles_open_capture device=%p, deviceName=%s", pDevice, deviceName); - return ALC_FALSE; -} - -static void opensles_close_capture(ALCdevice *pDevice) -{ - LOGV("opensles_closed_capture device=%p", pDevice); -} - -static void opensles_start_capture(ALCdevice *pDevice) -{ - LOGV("opensles_start_capture device=%p", pDevice); -} - -static void opensles_stop_capture(ALCdevice *pDevice) -{ - LOGV("opensles_stop_capture device=%p", pDevice); -} - -static void opensles_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - LOGV("opensles_capture_samples device=%p, pBuffer=%p, lSamples=%u", pDevice, pBuffer, lSamples); -} - -static ALCuint opensles_available_samples(ALCdevice *pDevice) -{ - LOGV("opensles_available_samples device=%p", pDevice); - return 0; -} - -// table of backend function pointers - -BackendFuncs opensles_funcs = { - opensles_open_playback, - opensles_close_playback, - opensles_reset_playback, - opensles_stop_playback, - opensles_open_capture, - opensles_close_capture, - opensles_start_capture, - opensles_stop_capture, - opensles_capture_samples, - opensles_available_samples -}; - -// global entry points called from XYZZY - - -static void suspend_device(ALCdevice *pDevice) { - SLresult result; - if (pDevice) { - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - if (devState->bqPlayerPlay) { - result = (*devState->bqPlayerPlay)->SetPlayState(devState->bqPlayerPlay, SL_PLAYSTATE_PAUSED); - if ((SL_RESULT_SUCCESS == result) && (devState->bqPlayerBufferQueue)) { - result = (*devState->bqPlayerBufferQueue)->Clear(devState->bqPlayerBufferQueue); - assert(SL_RESULT_SUCCESS == result); - } - } - stop_playback(pDevice); - } -} - -static void resume_device(ALCdevice *pDevice) { - SLresult result; - if (pDevice) { - opesles_data_t *devState = (opesles_data_t *) pDevice->ExtraData; - if (devState->bqPlayerPlay) { - result = (*devState->bqPlayerPlay)->SetPlayState(devState->bqPlayerPlay, SL_PLAYSTATE_PLAYING); - // Pump some blank data into the buffer to stimulate the callback - if ((SL_RESULT_SUCCESS == result) && (devState->bqPlayerBufferQueue)) { - result = (*devState->bqPlayerBufferQueue)->Enqueue(devState->bqPlayerBufferQueue, "\0", 1); - assert(SL_RESULT_SUCCESS == result); - } - } - start_playback(pDevice); - } - } - -void alc_opensles_suspend() -{ - devlist_process(&suspend_device); -} - -void alc_opensles_resume() -{ - devlist_process(&resume_device); -} - -static void alc_opensles_set_java_vm(JavaVM *vm) -{ - // Called once and only once from JNI_OnLoad - javaVM = vm; - int i; - char *android_model; - char *low_buffer_models[] = { - "GT-I9300", - "GT-I9305", - "SHV-E210", - "SGH-T999", - "SGH-I747", - "SGH-N064", - "SC-06D", - "SGH-N035", - "SC-03E", - "SCH-R530", - "SCH-I535", - "SPH-L710", - "GT-I9308", - "SCH-I939", - "Kindle Fire", - NULL}; - - if(NULL != javaVM) - { - int android_os_version = alc_opensles_get_android_api(); - // If running on 4.1 (Jellybean) or later, use 8 buffers to avoid breakup/stuttering. - if(android_os_version >= 16) - { - premixCount = 5; - } - // Else, use 4 buffers to reduce latency - else - { - premixCount = 1; - } - android_model = alc_opensles_get_android_model(); - for (i = 0; low_buffer_models[i] != NULL; i++) { - if (strncmp(android_model, low_buffer_models[i], strlen(low_buffer_models[i])) == 0) { - LOGV("Using less buffering"); - defaultBufferSize = 1024; - bufferSize = 1024; - premixCount = 1; - break; - } - } - } -} - -void alc_opensles_init(BackendFuncs *func_list) -{ - LOGV("alc_opensles_init"); - - struct stat statinfo; - if (stat("/system/lib/libOpenSLES.so", &statinfo) != 0) { - return; - } - - *func_list = opensles_funcs; - - // We need the JavaVM for JNI so we can detect the OS version number at runtime. - // This is because we need to use different bufferCount values for Android 4.1 vs. pre-4.1. - // This must be set at constructor time before JNI_OnLoad is invoked. - apportableOpenALFuncs.alc_android_set_java_vm = alc_opensles_set_java_vm; -} - -void alc_opensles_deinit(void) -{ - LOGV("alc_opensles_deinit"); - - // destroy output mix object, and invalidate all associated interfaces - if (outputMixObject != NULL) { - (*outputMixObject)->Destroy(outputMixObject); - outputMixObject = NULL; - } - - // destroy engine object, and invalidate all associated interfaces - if (engineObject != NULL) { - (*engineObject)->Destroy(engineObject); - engineObject = NULL; - engineEngine = NULL; - } -} - -void alc_opensles_probe(int type) -{ - char *error; - struct stat statinfo; - if (stat("/system/lib/libOpenSLES.so", &statinfo) != 0) { - LOGV("alc_opensles_probe OpenSLES support not found."); - return; - } - - dlerror(); // Clear dl errors - void *dlHandle = dlopen("/system/lib/libOpenSLES.so", RTLD_NOW | RTLD_GLOBAL); - if (!dlHandle || (error = (typeof(error))dlerror()) != NULL) { - LOGV("OpenSLES could not be loaded."); - return; - } - -#define LOAD_SYM_POINTER(sym) \ - do { \ - p##sym = dlsym(dlHandle, #sym); \ - if((error=(typeof(error))dlerror()) != NULL) { \ - LOGV("alc_opensles_probe could not load %s, error: %s", #sym, error); \ - dlclose(dlHandle); \ - return; \ - } \ - } while(0) - - LOAD_SYM_POINTER(slCreateEngine); - LOAD_SYM_POINTER(SL_IID_ENGINE); - LOAD_SYM_POINTER(SL_IID_ANDROIDSIMPLEBUFFERQUEUE); - LOAD_SYM_POINTER(SL_IID_PLAY); - LOAD_SYM_POINTER(SL_IID_BUFFERQUEUE); - - apportableOpenALFuncs.alc_android_suspend = alc_opensles_suspend; - apportableOpenALFuncs.alc_android_resume = alc_opensles_resume; - - switch (type) { - case DEVICE_PROBE: - LOGV("alc_opensles_probe DEVICE_PROBE"); - AppendDeviceList(opensles_device); - break; - case ALL_DEVICE_PROBE: - LOGV("alc_opensles_probe ALL_DEVICE_PROBE"); - AppendAllDeviceList(opensles_device); - break; - default: - LOGV("alc_opensles_probe type=%d", type); - break; - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/oss.c b/internal/c/parts/audio/out/android/other/stuff/Alc/oss.c deleted file mode 100644 index ea18689d7..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/oss.c +++ /dev/null @@ -1,521 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include - -/* - * The OSS documentation talks about SOUND_MIXER_READ, but the header - * only contains MIXER_READ. Play safe. Same for WRITE. - */ -#ifndef SOUND_MIXER_READ -#define SOUND_MIXER_READ MIXER_READ -#endif -#ifndef SOUND_MIXER_WRITE -#define SOUND_MIXER_WRITE MIXER_WRITE -#endif - -static const ALCchar oss_device[] = "OSS Default"; - -typedef struct { - int fd; - volatile int killNow; - ALvoid *thread; - - ALubyte *mix_data; - int data_size; - - RingBuffer *ring; - int doCapture; -} oss_data; - - -static int log2i(ALCuint x) -{ - int y = 0; - while (x > 1) - { - x >>= 1; - y++; - } - return y; -} - - -static ALuint OSSProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - oss_data *data = (oss_data*)pDevice->ExtraData; - ALint frameSize; - ssize_t wrote; - - SetRTPriority(); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(!data->killNow && pDevice->Connected) - { - ALint len = data->data_size; - ALubyte *WritePtr = data->mix_data; - - aluMixData(pDevice, WritePtr, len/frameSize); - while(len > 0 && !data->killNow) - { - wrote = write(data->fd, WritePtr, len); - if(wrote < 0) - { - if(errno != EAGAIN && errno != EWOULDBLOCK && errno != EINTR) - { - AL_PRINT("write failed: %s\n", strerror(errno)); - aluHandleDisconnect(pDevice); - break; - } - - Sleep(1); - continue; - } - - len -= wrote; - WritePtr += wrote; - } - } - - return 0; -} - -static ALuint OSSCaptureProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - oss_data *data = (oss_data*)pDevice->ExtraData; - int frameSize; - int amt; - - SetRTPriority(); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(!data->killNow) - { - amt = read(data->fd, data->mix_data, data->data_size); - if(amt < 0) - { - AL_PRINT("read failed: %s\n", strerror(errno)); - aluHandleDisconnect(pDevice); - break; - } - if(amt == 0) - { - Sleep(1); - continue; - } - if(data->doCapture) - WriteRingBuffer(data->ring, data->mix_data, amt/frameSize); - } - - return 0; -} - -static ALCboolean oss_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - char driver[64]; - oss_data *data; - - strncpy(driver, GetConfigValue("oss", "device", "/dev/dsp"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - if(!deviceName) - deviceName = oss_device; - else if(strcmp(deviceName, oss_device) != 0) - return ALC_FALSE; - - data = (oss_data*)calloc(1, sizeof(oss_data)); - data->killNow = 0; - - data->fd = open(driver, O_WRONLY); - if(data->fd == -1) - { - free(data); - AL_PRINT("Could not open %s: %s\n", driver, strerror(errno)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void oss_close_playback(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - - close(data->fd); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean oss_reset_playback(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - int numFragmentsLogSize; - int log2FragmentSize; - unsigned int periods; - audio_buf_info info; - ALuint frameSize; - int numChannels; - int ossFormat; - int ossSpeed; - char *err; - - switch(device->FmtType) - { - case DevFmtByte: - ossFormat = AFMT_S8; - break; - case DevFmtUByte: - ossFormat = AFMT_U8; - break; - case DevFmtUShort: - case DevFmtFloat: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - ossFormat = AFMT_S16_NE; - break; - } - - periods = device->NumUpdates; - numChannels = ChannelsFromDevFmt(device->FmtChans); - frameSize = numChannels * BytesFromDevFmt(device->FmtType); - - ossSpeed = device->Frequency; - log2FragmentSize = log2i(device->UpdateSize * frameSize); - - /* according to the OSS spec, 16 bytes are the minimum */ - if (log2FragmentSize < 4) - log2FragmentSize = 4; - /* Subtract one period since the temp mixing buffer counts as one. Still - * need at least two on the card, though. */ - if(periods > 2) periods--; - numFragmentsLogSize = (periods << 16) | log2FragmentSize; - -#define CHECKERR(func) if((func) < 0) { \ - err = #func; \ - goto err; \ -} - /* Don't fail if SETFRAGMENT fails. We can handle just about anything - * that's reported back via GETOSPACE */ - ioctl(data->fd, SNDCTL_DSP_SETFRAGMENT, &numFragmentsLogSize); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SETFMT, &ossFormat)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_CHANNELS, &numChannels)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SPEED, &ossSpeed)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_GETOSPACE, &info)); - if(0) - { - err: - AL_PRINT("%s failed: %s\n", err, strerror(errno)); - return ALC_FALSE; - } -#undef CHECKERR - - if((int)ChannelsFromDevFmt(device->FmtChans) != numChannels) - { - AL_PRINT("Could not set %d channels, got %d instead\n", ChannelsFromDevFmt(device->FmtChans), numChannels); - return ALC_FALSE; - } - - if(!((ossFormat == AFMT_S8 && device->FmtType == DevFmtByte) || - (ossFormat == AFMT_U8 && device->FmtType == DevFmtUByte) || - (ossFormat == AFMT_S16_NE && device->FmtType == DevFmtShort))) - { - AL_PRINT("Could not set %#x format type, got OSS format %#x\n", device->FmtType, ossFormat); - return ALC_FALSE; - } - - device->Frequency = ossSpeed; - device->UpdateSize = info.fragsize / frameSize; - device->NumUpdates = info.fragments + 1; - - data->data_size = device->UpdateSize * frameSize; - data->mix_data = calloc(1, data->data_size); - - SetDefaultChannelOrder(device); - - data->thread = StartThread(OSSProc, device); - if(data->thread == NULL) - { - free(data->mix_data); - data->mix_data = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void oss_stop_playback(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - if(ioctl(data->fd, SNDCTL_DSP_RESET) != 0) - AL_PRINT("Error resetting device: %s\n", strerror(errno)); - - free(data->mix_data); - data->mix_data = NULL; -} - - -static ALCboolean oss_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - int numFragmentsLogSize; - int log2FragmentSize; - unsigned int periods; - audio_buf_info info; - ALuint frameSize; - int numChannels; - char driver[64]; - oss_data *data; - int ossFormat; - int ossSpeed; - char *err; - - strncpy(driver, GetConfigValue("oss", "capture", "/dev/dsp"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - if(!deviceName) - deviceName = oss_device; - else if(strcmp(deviceName, oss_device) != 0) - return ALC_FALSE; - - data = (oss_data*)calloc(1, sizeof(oss_data)); - data->killNow = 0; - - data->fd = open(driver, O_RDONLY); - if(data->fd == -1) - { - free(data); - AL_PRINT("Could not open %s: %s\n", driver, strerror(errno)); - return ALC_FALSE; - } - - switch(device->FmtType) - { - case DevFmtByte: - ossFormat = AFMT_S8; - break; - case DevFmtUByte: - ossFormat = AFMT_U8; - break; - case DevFmtShort: - ossFormat = AFMT_S16_NE; - break; - case DevFmtUShort: - case DevFmtFloat: - free(data); - AL_PRINT("Format type %#x capture not supported on OSS\n", device->FmtType); - return ALC_FALSE; - } - - periods = 4; - numChannels = ChannelsFromDevFmt(device->FmtChans); - frameSize = numChannels * BytesFromDevFmt(device->FmtType); - ossSpeed = device->Frequency; - log2FragmentSize = log2i(device->UpdateSize * device->NumUpdates * - frameSize / periods); - - /* according to the OSS spec, 16 bytes are the minimum */ - if (log2FragmentSize < 4) - log2FragmentSize = 4; - numFragmentsLogSize = (periods << 16) | log2FragmentSize; - -#define CHECKERR(func) if((func) < 0) { \ - err = #func; \ - goto err; \ -} - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SETFRAGMENT, &numFragmentsLogSize)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SETFMT, &ossFormat)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_CHANNELS, &numChannels)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_SPEED, &ossSpeed)); - CHECKERR(ioctl(data->fd, SNDCTL_DSP_GETISPACE, &info)); - if(0) - { - err: - AL_PRINT("%s failed: %s\n", err, strerror(errno)); - close(data->fd); - free(data); - return ALC_FALSE; - } -#undef CHECKERR - - if((int)ChannelsFromDevFmt(device->FmtChans) != numChannels) - { - AL_PRINT("Could not set %d channels, got %d instead\n", ChannelsFromDevFmt(device->FmtChans), numChannels); - close(data->fd); - free(data); - return ALC_FALSE; - } - - if(!((ossFormat == AFMT_S8 && device->FmtType == DevFmtByte) || - (ossFormat == AFMT_U8 && device->FmtType == DevFmtUByte) || - (ossFormat == AFMT_S16_NE && device->FmtType == DevFmtShort))) - { - AL_PRINT("Could not set %#x format type, got OSS format %#x\n", device->FmtType, ossFormat); - close(data->fd); - free(data); - return ALC_FALSE; - } - - data->ring = CreateRingBuffer(frameSize, device->UpdateSize * device->NumUpdates); - if(!data->ring) - { - AL_PRINT("ring buffer create failed\n"); - close(data->fd); - free(data); - return ALC_FALSE; - } - - data->data_size = info.fragsize; - data->mix_data = calloc(1, data->data_size); - - device->ExtraData = data; - data->thread = StartThread(OSSCaptureProc, device); - if(data->thread == NULL) - { - device->ExtraData = NULL; - free(data->mix_data); - free(data); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - return ALC_TRUE; -} - -static void oss_close_capture(ALCdevice *device) -{ - oss_data *data = (oss_data*)device->ExtraData; - data->killNow = 1; - StopThread(data->thread); - - close(data->fd); - - DestroyRingBuffer(data->ring); - - free(data->mix_data); - free(data); - device->ExtraData = NULL; -} - -static void oss_start_capture(ALCdevice *pDevice) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - data->doCapture = 1; -} - -static void oss_stop_capture(ALCdevice *pDevice) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - data->doCapture = 0; -} - -static void oss_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - if(lSamples <= (ALCuint)RingBufferSize(data->ring)) - ReadRingBuffer(data->ring, pBuffer, lSamples); - else - alcSetError(pDevice, ALC_INVALID_VALUE); -} - -static ALCuint oss_available_samples(ALCdevice *pDevice) -{ - oss_data *data = (oss_data*)pDevice->ExtraData; - return RingBufferSize(data->ring); -} - - -BackendFuncs oss_funcs = { - oss_open_playback, - oss_close_playback, - oss_reset_playback, - oss_stop_playback, - oss_open_capture, - oss_close_capture, - oss_start_capture, - oss_stop_capture, - oss_capture_samples, - oss_available_samples -}; - -void alc_oss_init(BackendFuncs *func_list) -{ - *func_list = oss_funcs; -} - -void alc_oss_deinit(void) -{ -} - -void alc_oss_probe(int type) -{ - if(type == DEVICE_PROBE) - { -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("oss", "device", "/dev/dsp"), &buf) == 0) -#endif - AppendDeviceList(oss_device); - } - else if(type == ALL_DEVICE_PROBE) - { -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("oss", "device", "/dev/dsp"), &buf) == 0) -#endif - AppendAllDeviceList(oss_device); - } - else if(type == CAPTURE_DEVICE_PROBE) - { -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("oss", "capture", "/dev/dsp"), &buf) == 0) -#endif - AppendCaptureDeviceList(oss_device); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/panning.c b/internal/c/parts/audio/out/android/other/stuff/Alc/panning.c deleted file mode 100644 index 5e33d9f5e..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/panning.c +++ /dev/null @@ -1,372 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2010 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alu.h" - -static void SetSpeakerArrangement(const char *name, ALfp SpeakerAngle[MAXCHANNELS], - Channel Speaker2Chan[MAXCHANNELS], ALint chans) -{ - char layout_str[256]; - char *confkey, *next; - char *sep, *end; - Channel val; - int i; - - if(!ConfigValueExists(NULL, name)) - name = "layout"; - - strncpy(layout_str, GetConfigValue(NULL, name, ""), sizeof(layout_str)); - layout_str[sizeof(layout_str)-1] = 0; - - if(!layout_str[0]) - return; - - next = confkey = layout_str; - while(next && *next) - { - confkey = next; - next = strchr(confkey, ','); - if(next) - { - *next = 0; - do { - next++; - } while(isspace(*next) || *next == ','); - } - - sep = strchr(confkey, '='); - if(!sep || confkey == sep) - continue; - - end = sep - 1; - while(isspace(*end) && end != confkey) - end--; - *(++end) = 0; - - if(strcmp(confkey, "fl") == 0 || strcmp(confkey, "front-left") == 0) - val = FRONT_LEFT; - else if(strcmp(confkey, "fr") == 0 || strcmp(confkey, "front-right") == 0) - val = FRONT_RIGHT; - else if(strcmp(confkey, "fc") == 0 || strcmp(confkey, "front-center") == 0) - val = FRONT_CENTER; - else if(strcmp(confkey, "bl") == 0 || strcmp(confkey, "back-left") == 0) - val = BACK_LEFT; - else if(strcmp(confkey, "br") == 0 || strcmp(confkey, "back-right") == 0) - val = BACK_RIGHT; - else if(strcmp(confkey, "bc") == 0 || strcmp(confkey, "back-center") == 0) - val = BACK_CENTER; - else if(strcmp(confkey, "sl") == 0 || strcmp(confkey, "side-left") == 0) - val = SIDE_LEFT; - else if(strcmp(confkey, "sr") == 0 || strcmp(confkey, "side-right") == 0) - val = SIDE_RIGHT; - else - { - AL_PRINT("Unknown speaker for %s: \"%s\"\n", name, confkey); - continue; - } - - *(sep++) = 0; - while(isspace(*sep)) - sep++; - - for(i = 0;i < chans;i++) - { - if(Speaker2Chan[i] == val) - { - long angle = strtol(sep, NULL, 10); - if(angle >= -180 && angle <= 180) - SpeakerAngle[i] = ALfpMult(int2ALfp(angle), float2ALfp(M_PI/180.0f)); - else - AL_PRINT("Invalid angle for speaker \"%s\": %ld\n", confkey, angle); - break; - } - } - } - - for(i = 0;i < chans;i++) - { - int min = i; - int i2; - - for(i2 = i+1;i2 < chans;i2++) - { - if(SpeakerAngle[i2] < SpeakerAngle[min]) - min = i2; - } - - if(min != i) - { - ALfp tmpf; - Channel tmpc; - - tmpf = SpeakerAngle[i]; - SpeakerAngle[i] = SpeakerAngle[min]; - SpeakerAngle[min] = tmpf; - - tmpc = Speaker2Chan[i]; - Speaker2Chan[i] = Speaker2Chan[min]; - Speaker2Chan[min] = tmpc; - } - } -} - -static ALfp aluLUTpos2Angle(ALint pos) -{ - if(pos < QUADRANT_NUM) - return aluAtan(ALfpDiv(int2ALfp(pos), int2ALfp(QUADRANT_NUM - pos))); - if(pos < 2 * QUADRANT_NUM) - return (float2ALfp(M_PI_2) + aluAtan(ALfpDiv(int2ALfp(pos - QUADRANT_NUM),int2ALfp(2 * QUADRANT_NUM - pos)))); - if(pos < 3 * QUADRANT_NUM) - return (aluAtan(ALfpDiv(int2ALfp(pos - 2 * QUADRANT_NUM), int2ALfp(3 * QUADRANT_NUM - pos))) - float2ALfp(M_PI)); - return (aluAtan(ALfpDiv(int2ALfp(pos - 3 * QUADRANT_NUM), int2ALfp(4 * QUADRANT_NUM - pos))) - float2ALfp(M_PI)); -} - -ALint aluCart2LUTpos(ALfp re, ALfp im) -{ - ALint pos = 0; - ALfp denom = (aluFabs(re) + aluFabs(im)); - if(denom > int2ALfp(0)) - pos = (ALint)ALfp2int(ALfpDiv(ALfpMult(int2ALfp(QUADRANT_NUM),aluFabs(im)), (denom + float2ALfp(0.5)))); - - if(re < int2ALfp(0)) - pos = 2 * QUADRANT_NUM - pos; - if(im < int2ALfp(0)) - pos = LUT_NUM - pos; - return pos%LUT_NUM; -} - -ALvoid aluInitPanning(ALCdevice *Device) -{ - ALfp SpeakerAngle[MAXCHANNELS]; - ALfp (*Matrix)[MAXCHANNELS]; - Channel *Speaker2Chan; - ALfp Alpha, Theta; - ALfp *PanningLUT; - ALint pos, offset; - ALuint s, s2; - - for(s = 0;s < MAXCHANNELS;s++) - { - for(s2 = 0;s2 < MAXCHANNELS;s2++) - Device->ChannelMatrix[s][s2] = ((s==s2) ? int2ALfp(1) : int2ALfp(0)); - } - - Speaker2Chan = Device->Speaker2Chan; - Matrix = Device->ChannelMatrix; - switch(Device->FmtChans) - { - case DevFmtMono: - Matrix[FRONT_LEFT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[FRONT_RIGHT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_LEFT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_RIGHT][FRONT_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][FRONT_CENTER] = int2ALfp(1); - Device->NumChan = 1; - Speaker2Chan[0] = FRONT_CENTER; - SpeakerAngle[0] = int2ALfp(0); - break; - - case DevFmtStereo: -#ifdef APPORTABLE_OPTIMIZED_OUT - // Leave as identity matrix if Apportable-optimized - Matrix[FRONT_CENTER][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[FRONT_CENTER][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][FRONT_LEFT] = int2ALfp(1); - Matrix[SIDE_RIGHT][FRONT_RIGHT] = int2ALfp(1); - Matrix[BACK_LEFT][FRONT_LEFT] = int2ALfp(1); - Matrix[BACK_RIGHT][FRONT_RIGHT] = int2ALfp(1); - Matrix[BACK_CENTER][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); -#endif - Device->NumChan = 2; - Speaker2Chan[0] = FRONT_LEFT; - Speaker2Chan[1] = FRONT_RIGHT; - SpeakerAngle[0] = float2ALfp(-90.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( 90.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_STEREO", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - -#ifdef STEREO_ONLY - case DevFmtQuad: - case DevFmtX51: - case DevFmtX61: - case DevFmtX71: - break; -#else - case DevFmtQuad: - Matrix[FRONT_CENTER][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[FRONT_CENTER][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 4; - Speaker2Chan[0] = BACK_LEFT; - Speaker2Chan[1] = FRONT_LEFT; - Speaker2Chan[2] = FRONT_RIGHT; - Speaker2Chan[3] = BACK_RIGHT; - SpeakerAngle[0] = float2ALfp(-135.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( -45.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( 45.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 135.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_QUAD", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - - case DevFmtX51: - Matrix[SIDE_LEFT][FRONT_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_LEFT][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][FRONT_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[SIDE_RIGHT][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 5; - Speaker2Chan[0] = BACK_LEFT; - Speaker2Chan[1] = FRONT_LEFT; - Speaker2Chan[2] = FRONT_CENTER; - Speaker2Chan[3] = FRONT_RIGHT; - Speaker2Chan[4] = BACK_RIGHT; - SpeakerAngle[0] = float2ALfp(-110.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( -30.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( 0.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 30.0f * M_PI/180.0f); - SpeakerAngle[4] = float2ALfp( 110.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_51CHN", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - - case DevFmtX61: - Matrix[BACK_LEFT][BACK_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_LEFT][SIDE_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_RIGHT][BACK_CENTER] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_RIGHT][SIDE_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 6; - Speaker2Chan[0] = SIDE_LEFT; - Speaker2Chan[1] = FRONT_LEFT; - Speaker2Chan[2] = FRONT_CENTER; - Speaker2Chan[3] = FRONT_RIGHT; - Speaker2Chan[4] = SIDE_RIGHT; - Speaker2Chan[5] = BACK_CENTER; - SpeakerAngle[0] = float2ALfp(-90.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp(-30.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( 0.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 30.0f * M_PI/180.0f); - SpeakerAngle[4] = float2ALfp( 90.0f * M_PI/180.0f); - SpeakerAngle[5] = float2ALfp(180.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_61CHN", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; - - case DevFmtX71: - Matrix[BACK_CENTER][BACK_LEFT] = aluSqrt(float2ALfp(0.5)); - Matrix[BACK_CENTER][BACK_RIGHT] = aluSqrt(float2ALfp(0.5)); - Device->NumChan = 7; - Speaker2Chan[0] = BACK_LEFT; - Speaker2Chan[1] = SIDE_LEFT; - Speaker2Chan[2] = FRONT_LEFT; - Speaker2Chan[3] = FRONT_CENTER; - Speaker2Chan[4] = FRONT_RIGHT; - Speaker2Chan[5] = SIDE_RIGHT; - Speaker2Chan[6] = BACK_RIGHT; - SpeakerAngle[0] = float2ALfp(-150.0f * M_PI/180.0f); - SpeakerAngle[1] = float2ALfp( -90.0f * M_PI/180.0f); - SpeakerAngle[2] = float2ALfp( -30.0f * M_PI/180.0f); - SpeakerAngle[3] = float2ALfp( 0.0f * M_PI/180.0f); - SpeakerAngle[4] = float2ALfp( 30.0f * M_PI/180.0f); - SpeakerAngle[5] = float2ALfp( 90.0f * M_PI/180.0f); - SpeakerAngle[6] = float2ALfp( 150.0f * M_PI/180.0f); - SetSpeakerArrangement("layout_71CHN", SpeakerAngle, Speaker2Chan, Device->NumChan); - break; -#endif - } - - if(GetConfigValueBool(NULL, "scalemix", 0)) - { - ALfp maxout = int2ALfp(1);; - for(s = 0;s < MAXCHANNELS;s++) - { - ALfp out = int2ALfp(0); - for(s2 = 0;s2 < MAXCHANNELS;s2++) - out = (out + Device->ChannelMatrix[s2][s]); - maxout = __max(maxout, out); - } - - maxout = ALfpDiv(int2ALfp(1),maxout); - for(s = 0;s < MAXCHANNELS;s++) - { - for(s2 = 0;s2 < MAXCHANNELS;s2++) - Device->ChannelMatrix[s2][s] = ALfpMult(Device->ChannelMatrix[s2][s],maxout); - } - } - - PanningLUT = Device->PanningLUT; - for(pos = 0; pos < LUT_NUM; pos++) - { - /* clear all values */ - offset = MAXCHANNELS * pos; - for(s = 0; s < MAXCHANNELS; s++) - PanningLUT[offset+s] = int2ALfp(0); - - if(Device->NumChan == 1) - { - PanningLUT[offset + Speaker2Chan[0]] = int2ALfp(1); - continue; - } - - /* source angle */ - Theta = aluLUTpos2Angle(pos); - - /* set panning values */ - for(s = 0; s < Device->NumChan - 1; s++) - { - if(Theta >= SpeakerAngle[s] && Theta < SpeakerAngle[s+1]) - { - /* source between speaker s and speaker s+1 */ - Alpha = ALfpDiv(ALfpMult(float2ALfp(M_PI_2), (Theta-SpeakerAngle[s])), - (SpeakerAngle[s+1]-SpeakerAngle[s])); - PanningLUT[offset + Speaker2Chan[s]] = __cos(Alpha); - PanningLUT[offset + Speaker2Chan[s+1]] = __sin(Alpha); - break; - } - } - if(s == Device->NumChan - 1) - { - /* source between last and first speaker */ - if(Theta < SpeakerAngle[0]) - Theta = (Theta + float2ALfp(2.0f * M_PI)); - Alpha = ALfpDiv(ALfpMult(float2ALfp(M_PI_2), (Theta-SpeakerAngle[s])), - (float2ALfp(2.0f * M_PI) + SpeakerAngle[0]-SpeakerAngle[s])); - PanningLUT[offset + Speaker2Chan[s]] = __cos(Alpha); - PanningLUT[offset + Speaker2Chan[0]] = __sin(Alpha); - } - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/portaudio.c b/internal/c/parts/audio/out/android/other/stuff/Alc/portaudio.c deleted file mode 100644 index 77c7236fa..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/portaudio.c +++ /dev/null @@ -1,442 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#ifdef HAVE_DLFCN_H -#include -#endif - -#include - -static void *pa_handle; -#define MAKE_FUNC(x) static typeof(x) * p##x -MAKE_FUNC(Pa_Initialize); -MAKE_FUNC(Pa_Terminate); -MAKE_FUNC(Pa_GetErrorText); -MAKE_FUNC(Pa_StartStream); -MAKE_FUNC(Pa_StopStream); -MAKE_FUNC(Pa_OpenStream); -MAKE_FUNC(Pa_CloseStream); -MAKE_FUNC(Pa_GetDefaultOutputDevice); -MAKE_FUNC(Pa_GetStreamInfo); -#undef MAKE_FUNC - - -static const ALCchar pa_device[] = "PortAudio Default"; - - -void *pa_load(void) -{ - if(!pa_handle) - { - PaError err; - -#ifdef _WIN32 - pa_handle = LoadLibrary("portaudio.dll"); -#define LOAD_FUNC(x) do { \ - p##x = (typeof(p##x))GetProcAddress(pa_handle, #x); \ - if(!(p##x)) { \ - AL_PRINT("Could not load %s from portaudio.dll\n", #x); \ - FreeLibrary(pa_handle); \ - pa_handle = NULL; \ - return NULL; \ - } \ -} while(0) - -#elif defined(HAVE_DLFCN_H) - - const char *str; -#if defined(__APPLE__) && defined(__MACH__) -# define PALIB "libportaudio.2.dylib" -#else -# define PALIB "libportaudio.so.2" -#endif - pa_handle = dlopen(PALIB, RTLD_NOW); - dlerror(); - -#define LOAD_FUNC(f) do { \ - p##f = (typeof(f)*)dlsym(pa_handle, #f); \ - if((str=dlerror()) != NULL) \ - { \ - dlclose(pa_handle); \ - pa_handle = NULL; \ - AL_PRINT("Could not load %s from "PALIB": %s\n", #f, str); \ - return NULL; \ - } \ -} while(0) - -#else - pa_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(f) p##f = f -#endif - - if(!pa_handle) - return NULL; - -LOAD_FUNC(Pa_Initialize); -LOAD_FUNC(Pa_Terminate); -LOAD_FUNC(Pa_GetErrorText); -LOAD_FUNC(Pa_StartStream); -LOAD_FUNC(Pa_StopStream); -LOAD_FUNC(Pa_OpenStream); -LOAD_FUNC(Pa_CloseStream); -LOAD_FUNC(Pa_GetDefaultOutputDevice); -LOAD_FUNC(Pa_GetStreamInfo); - -#undef LOAD_FUNC - - if((err=pPa_Initialize()) != paNoError) - { - AL_PRINT("Pa_Initialize() returned an error: %s\n", pPa_GetErrorText(err)); -#ifdef _WIN32 - FreeLibrary(pa_handle); -#elif defined(HAVE_DLFCN_H) - dlclose(pa_handle); -#endif - pa_handle = NULL; - return NULL; - } - } - return pa_handle; -} - - -typedef struct { - PaStream *stream; - ALuint update_size; - - RingBuffer *ring; -} pa_data; - - -static int pa_callback(const void *inputBuffer, void *outputBuffer, - unsigned long framesPerBuffer, const PaStreamCallbackTimeInfo *timeInfo, - const PaStreamCallbackFlags statusFlags, void *userData) -{ - ALCdevice *device = (ALCdevice*)userData; - - (void)inputBuffer; - (void)timeInfo; - (void)statusFlags; - - aluMixData(device, outputBuffer, framesPerBuffer); - return 0; -} - -static int pa_capture_cb(const void *inputBuffer, void *outputBuffer, - unsigned long framesPerBuffer, const PaStreamCallbackTimeInfo *timeInfo, - const PaStreamCallbackFlags statusFlags, void *userData) -{ - ALCdevice *device = (ALCdevice*)userData; - pa_data *data = (pa_data*)device->ExtraData; - - (void)outputBuffer; - (void)timeInfo; - (void)statusFlags; - - WriteRingBuffer(data->ring, inputBuffer, framesPerBuffer); - return 0; -} - - -static ALCboolean pa_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - const PaStreamInfo *streamInfo; - PaStreamParameters outParams; - pa_data *data; - PaError err; - - if(!deviceName) - deviceName = pa_device; - else if(strcmp(deviceName, pa_device) != 0) - return ALC_FALSE; - - if(!pa_load()) - return ALC_FALSE; - - data = (pa_data*)calloc(1, sizeof(pa_data)); - data->update_size = device->UpdateSize; - - device->ExtraData = data; - - outParams.device = GetConfigValueInt("port", "device", -1); - if(outParams.device < 0) - outParams.device = pPa_GetDefaultOutputDevice(); - outParams.suggestedLatency = (device->UpdateSize*device->NumUpdates) / - (float)device->Frequency; - outParams.hostApiSpecificStreamInfo = NULL; - - switch(device->FmtType) - { - case DevFmtByte: - outParams.sampleFormat = paInt8; - break; - case DevFmtUByte: - outParams.sampleFormat = paUInt8; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - outParams.sampleFormat = paInt16; - break; - case DevFmtFloat: - outParams.sampleFormat = paFloat32; - break; - } - outParams.channelCount = ChannelsFromDevFmt(device->FmtChans); - - SetDefaultChannelOrder(device); - - err = pPa_OpenStream(&data->stream, NULL, &outParams, device->Frequency, - device->UpdateSize, paNoFlag, pa_callback, device); - if(err != paNoError) - { - AL_PRINT("Pa_OpenStream() returned an error: %s\n", pPa_GetErrorText(err)); - device->ExtraData = NULL; - free(data); - return ALC_FALSE; - } - streamInfo = pPa_GetStreamInfo(data->stream); - - device->szDeviceName = strdup(deviceName); - device->Frequency = streamInfo->sampleRate; - - return ALC_TRUE; -} - -static void pa_close_playback(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_CloseStream(data->stream); - if(err != paNoError) - AL_PRINT("Error closing stream: %s\n", pPa_GetErrorText(err)); - - free(data); - device->ExtraData = NULL; -} - -static ALCboolean pa_reset_playback(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - const PaStreamInfo *streamInfo; - PaError err; - - streamInfo = pPa_GetStreamInfo(data->stream); - device->Frequency = streamInfo->sampleRate; - device->UpdateSize = data->update_size; - - err = pPa_StartStream(data->stream); - if(err != paNoError) - { - AL_PRINT("Pa_StartStream() returned an error: %s\n", pPa_GetErrorText(err)); - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void pa_stop_playback(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_StopStream(data->stream); - if(err != paNoError) - AL_PRINT("Error stopping stream: %s\n", pPa_GetErrorText(err)); -} - - -static ALCboolean pa_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - PaStreamParameters inParams; - ALuint frame_size; - pa_data *data; - PaError err; - - if(!deviceName) - deviceName = pa_device; - else if(strcmp(deviceName, pa_device) != 0) - return ALC_FALSE; - - if(!pa_load()) - return ALC_FALSE; - - data = (pa_data*)calloc(1, sizeof(pa_data)); - if(data == NULL) - { - alcSetError(device, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - - frame_size = FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - data->ring = CreateRingBuffer(frame_size, device->UpdateSize*device->NumUpdates); - if(data->ring == NULL) - { - alcSetError(device, ALC_OUT_OF_MEMORY); - goto error; - } - - inParams.device = GetConfigValueInt("port", "capture", -1); - if(inParams.device < 0) - inParams.device = pPa_GetDefaultOutputDevice(); - inParams.suggestedLatency = 0.0f; - inParams.hostApiSpecificStreamInfo = NULL; - - switch(device->FmtType) - { - case DevFmtByte: - inParams.sampleFormat = paInt8; - break; - case DevFmtUByte: - inParams.sampleFormat = paUInt8; - break; - case DevFmtShort: - inParams.sampleFormat = paInt16; - break; - case DevFmtFloat: - inParams.sampleFormat = paFloat32; - break; - case DevFmtUShort: - AL_PRINT("Unsigned short not supported\n"); - goto error; - } - inParams.channelCount = ChannelsFromDevFmt(device->FmtChans); - - err = pPa_OpenStream(&data->stream, &inParams, NULL, device->Frequency, - paFramesPerBufferUnspecified, paNoFlag, pa_capture_cb, device); - if(err != paNoError) - { - AL_PRINT("Pa_OpenStream() returned an error: %s\n", pPa_GetErrorText(err)); - goto error; - } - - device->szDeviceName = strdup(deviceName); - - device->ExtraData = data; - return ALC_TRUE; - -error: - DestroyRingBuffer(data->ring); - free(data); - return ALC_FALSE; -} - -static void pa_close_capture(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_CloseStream(data->stream); - if(err != paNoError) - AL_PRINT("Error closing stream: %s\n", pPa_GetErrorText(err)); - - free(data); - device->ExtraData = NULL; -} - -static void pa_start_capture(ALCdevice *device) -{ - pa_data *data = device->ExtraData; - PaError err; - - err = pPa_StartStream(data->stream); - if(err != paNoError) - AL_PRINT("Error starting stream: %s\n", pPa_GetErrorText(err)); -} - -static void pa_stop_capture(ALCdevice *device) -{ - pa_data *data = (pa_data*)device->ExtraData; - PaError err; - - err = pPa_StopStream(data->stream); - if(err != paNoError) - AL_PRINT("Error stopping stream: %s\n", pPa_GetErrorText(err)); -} - -static void pa_capture_samples(ALCdevice *device, ALCvoid *buffer, ALCuint samples) -{ - pa_data *data = device->ExtraData; - if(samples <= (ALCuint)RingBufferSize(data->ring)) - ReadRingBuffer(data->ring, buffer, samples); - else - alcSetError(device, ALC_INVALID_VALUE); -} - -static ALCuint pa_available_samples(ALCdevice *device) -{ - pa_data *data = device->ExtraData; - return RingBufferSize(data->ring); -} - - -static const BackendFuncs pa_funcs = { - pa_open_playback, - pa_close_playback, - pa_reset_playback, - pa_stop_playback, - pa_open_capture, - pa_close_capture, - pa_start_capture, - pa_stop_capture, - pa_capture_samples, - pa_available_samples -}; - -void alc_pa_init(BackendFuncs *func_list) -{ - *func_list = pa_funcs; -} - -void alc_pa_deinit(void) -{ - if(pa_handle) - { - pPa_Terminate(); -#ifdef _WIN32 - FreeLibrary(pa_handle); -#elif defined(HAVE_DLFCN_H) - dlclose(pa_handle); -#endif - pa_handle = NULL; - } -} - -void alc_pa_probe(int type) -{ - if(!pa_load()) return; - - if(type == DEVICE_PROBE) - AppendDeviceList(pa_device); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(pa_device); - else if(type == CAPTURE_DEVICE_PROBE) - AppendCaptureDeviceList(pa_device); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/pulseaudio.c b/internal/c/parts/audio/out/android/other/stuff/Alc/pulseaudio.c deleted file mode 100644 index 348f2d533..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/pulseaudio.c +++ /dev/null @@ -1,1358 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2009 by Konstantinos Natsakis - * Copyright (C) 2010 by Chris Robinson - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include "alMain.h" -#ifdef HAVE_DLFCN_H -#include -#endif - -#include - -#if PA_API_VERSION == 11 -#define PA_STREAM_ADJUST_LATENCY 0x2000U -#define PA_STREAM_EARLY_REQUESTS 0x4000U -static __inline int PA_STREAM_IS_GOOD(pa_stream_state_t x) -{ - return (x == PA_STREAM_CREATING || x == PA_STREAM_READY); -} -static __inline int PA_CONTEXT_IS_GOOD(pa_context_state_t x) -{ - return (x == PA_CONTEXT_CONNECTING || x == PA_CONTEXT_AUTHORIZING || - x == PA_CONTEXT_SETTING_NAME || x == PA_CONTEXT_READY); -} -#define PA_STREAM_IS_GOOD PA_STREAM_IS_GOOD -#define PA_CONTEXT_IS_GOOD PA_CONTEXT_IS_GOOD -#elif PA_API_VERSION != 12 -#error Invalid PulseAudio API version -#endif - -#ifndef PA_CHECK_VERSION -#define PA_CHECK_VERSION(major,minor,micro) \ - ((PA_MAJOR > (major)) || \ - (PA_MAJOR == (major) && PA_MINOR > (minor)) || \ - (PA_MAJOR == (major) && PA_MINOR == (minor) && PA_MICRO >= (micro))) -#endif - -static void *pa_handle; -#define MAKE_FUNC(x) static typeof(x) * p##x -MAKE_FUNC(pa_context_unref); -MAKE_FUNC(pa_sample_spec_valid); -MAKE_FUNC(pa_stream_drop); -MAKE_FUNC(pa_strerror); -MAKE_FUNC(pa_context_get_state); -MAKE_FUNC(pa_stream_get_state); -MAKE_FUNC(pa_threaded_mainloop_signal); -MAKE_FUNC(pa_stream_peek); -MAKE_FUNC(pa_threaded_mainloop_wait); -MAKE_FUNC(pa_threaded_mainloop_unlock); -MAKE_FUNC(pa_threaded_mainloop_in_thread); -MAKE_FUNC(pa_context_new); -MAKE_FUNC(pa_threaded_mainloop_stop); -MAKE_FUNC(pa_context_disconnect); -MAKE_FUNC(pa_threaded_mainloop_start); -MAKE_FUNC(pa_threaded_mainloop_get_api); -MAKE_FUNC(pa_context_set_state_callback); -MAKE_FUNC(pa_stream_write); -MAKE_FUNC(pa_xfree); -MAKE_FUNC(pa_stream_connect_record); -MAKE_FUNC(pa_stream_connect_playback); -MAKE_FUNC(pa_stream_readable_size); -MAKE_FUNC(pa_stream_writable_size); -MAKE_FUNC(pa_stream_cork); -MAKE_FUNC(pa_stream_is_suspended); -MAKE_FUNC(pa_stream_get_device_name); -MAKE_FUNC(pa_path_get_filename); -MAKE_FUNC(pa_get_binary_name); -MAKE_FUNC(pa_threaded_mainloop_free); -MAKE_FUNC(pa_context_errno); -MAKE_FUNC(pa_xmalloc); -MAKE_FUNC(pa_stream_unref); -MAKE_FUNC(pa_threaded_mainloop_accept); -MAKE_FUNC(pa_stream_set_write_callback); -MAKE_FUNC(pa_threaded_mainloop_new); -MAKE_FUNC(pa_context_connect); -MAKE_FUNC(pa_stream_set_buffer_attr); -MAKE_FUNC(pa_stream_get_buffer_attr); -MAKE_FUNC(pa_stream_get_sample_spec); -MAKE_FUNC(pa_stream_get_time); -MAKE_FUNC(pa_stream_set_read_callback); -MAKE_FUNC(pa_stream_set_state_callback); -MAKE_FUNC(pa_stream_set_moved_callback); -MAKE_FUNC(pa_stream_set_underflow_callback); -MAKE_FUNC(pa_stream_new); -MAKE_FUNC(pa_stream_disconnect); -MAKE_FUNC(pa_threaded_mainloop_lock); -MAKE_FUNC(pa_channel_map_init_auto); -MAKE_FUNC(pa_channel_map_parse); -MAKE_FUNC(pa_channel_map_snprint); -MAKE_FUNC(pa_channel_map_equal); -MAKE_FUNC(pa_context_get_server_info); -MAKE_FUNC(pa_context_get_sink_info_by_name); -MAKE_FUNC(pa_context_get_sink_info_list); -MAKE_FUNC(pa_context_get_source_info_list); -MAKE_FUNC(pa_operation_get_state); -MAKE_FUNC(pa_operation_unref); -#if PA_CHECK_VERSION(0,9,15) -MAKE_FUNC(pa_channel_map_superset); -MAKE_FUNC(pa_stream_set_buffer_attr_callback); -#endif -#if PA_CHECK_VERSION(0,9,16) -MAKE_FUNC(pa_stream_begin_write); -#endif -#undef MAKE_FUNC - -#ifndef PATH_MAX -#define PATH_MAX 4096 -#endif - -typedef struct { - char *device_name; - - ALCuint samples; - ALCuint frame_size; - - RingBuffer *ring; - - pa_buffer_attr attr; - pa_sample_spec spec; - - pa_threaded_mainloop *loop; - - ALvoid *thread; - volatile ALboolean killNow; - - pa_stream *stream; - pa_context *context; -} pulse_data; - -typedef struct { - char *name; - char *device_name; -} DevMap; - - -static const ALCchar pulse_device[] = "PulseAudio Default"; -static DevMap *allDevNameMap; -static ALuint numDevNames; -static DevMap *allCaptureDevNameMap; -static ALuint numCaptureDevNames; -static pa_context_flags_t pulse_ctx_flags; - - -void *pulse_load(void) //{{{ -{ - if(!pa_handle) - { -#ifdef _WIN32 - pa_handle = LoadLibrary("libpulse-0.dll"); -#define LOAD_FUNC(x) do { \ - p##x = (typeof(p##x))GetProcAddress(pa_handle, #x); \ - if(!(p##x)) { \ - AL_PRINT("Could not load %s from libpulse-0.dll\n", #x); \ - FreeLibrary(pa_handle); \ - pa_handle = NULL; \ - return NULL; \ - } \ -} while(0) -#define LOAD_OPTIONAL_FUNC(x) do { \ - p##x = (typeof(p##x))GetProcAddress(pa_handle, #x); \ -} while(0) - -#elif defined (HAVE_DLFCN_H) - - const char *err; -#if defined(__APPLE__) && defined(__MACH__) - pa_handle = dlopen("libpulse.0.dylib", RTLD_NOW); -#else - pa_handle = dlopen("libpulse.so.0", RTLD_NOW); -#endif - dlerror(); - -#define LOAD_FUNC(x) do { \ - p##x = dlsym(pa_handle, #x); \ - if((err=dlerror()) != NULL) { \ - AL_PRINT("Could not load %s from libpulse: %s\n", #x, err); \ - dlclose(pa_handle); \ - pa_handle = NULL; \ - return NULL; \ - } \ -} while(0) -#define LOAD_OPTIONAL_FUNC(x) do { \ - p##x = dlsym(pa_handle, #x); \ - if((err=dlerror()) != NULL) { \ - p##x = NULL; \ - } \ -} while(0) - -#else - - pa_handle = (void*)0xDEADBEEF; -#define LOAD_FUNC(x) p##x = (x) -#define LOAD_OPTIONAL_FUNC(x) p##x = (x) - -#endif - if(!pa_handle) - return NULL; - -LOAD_FUNC(pa_context_unref); -LOAD_FUNC(pa_sample_spec_valid); -LOAD_FUNC(pa_stream_drop); -LOAD_FUNC(pa_strerror); -LOAD_FUNC(pa_context_get_state); -LOAD_FUNC(pa_stream_get_state); -LOAD_FUNC(pa_threaded_mainloop_signal); -LOAD_FUNC(pa_stream_peek); -LOAD_FUNC(pa_threaded_mainloop_wait); -LOAD_FUNC(pa_threaded_mainloop_unlock); -LOAD_FUNC(pa_threaded_mainloop_in_thread); -LOAD_FUNC(pa_context_new); -LOAD_FUNC(pa_threaded_mainloop_stop); -LOAD_FUNC(pa_context_disconnect); -LOAD_FUNC(pa_threaded_mainloop_start); -LOAD_FUNC(pa_threaded_mainloop_get_api); -LOAD_FUNC(pa_context_set_state_callback); -LOAD_FUNC(pa_stream_write); -LOAD_FUNC(pa_xfree); -LOAD_FUNC(pa_stream_connect_record); -LOAD_FUNC(pa_stream_connect_playback); -LOAD_FUNC(pa_stream_readable_size); -LOAD_FUNC(pa_stream_writable_size); -LOAD_FUNC(pa_stream_cork); -LOAD_FUNC(pa_stream_is_suspended); -LOAD_FUNC(pa_stream_get_device_name); -LOAD_FUNC(pa_path_get_filename); -LOAD_FUNC(pa_get_binary_name); -LOAD_FUNC(pa_threaded_mainloop_free); -LOAD_FUNC(pa_context_errno); -LOAD_FUNC(pa_xmalloc); -LOAD_FUNC(pa_stream_unref); -LOAD_FUNC(pa_threaded_mainloop_accept); -LOAD_FUNC(pa_stream_set_write_callback); -LOAD_FUNC(pa_threaded_mainloop_new); -LOAD_FUNC(pa_context_connect); -LOAD_FUNC(pa_stream_set_buffer_attr); -LOAD_FUNC(pa_stream_get_buffer_attr); -LOAD_FUNC(pa_stream_get_sample_spec); -LOAD_FUNC(pa_stream_get_time); -LOAD_FUNC(pa_stream_set_read_callback); -LOAD_FUNC(pa_stream_set_state_callback); -LOAD_FUNC(pa_stream_set_moved_callback); -LOAD_FUNC(pa_stream_set_underflow_callback); -LOAD_FUNC(pa_stream_new); -LOAD_FUNC(pa_stream_disconnect); -LOAD_FUNC(pa_threaded_mainloop_lock); -LOAD_FUNC(pa_channel_map_init_auto); -LOAD_FUNC(pa_channel_map_parse); -LOAD_FUNC(pa_channel_map_snprint); -LOAD_FUNC(pa_channel_map_equal); -LOAD_FUNC(pa_context_get_server_info); -LOAD_FUNC(pa_context_get_sink_info_by_name); -LOAD_FUNC(pa_context_get_sink_info_list); -LOAD_FUNC(pa_context_get_source_info_list); -LOAD_FUNC(pa_operation_get_state); -LOAD_FUNC(pa_operation_unref); -#if PA_CHECK_VERSION(0,9,15) -LOAD_OPTIONAL_FUNC(pa_channel_map_superset); -LOAD_OPTIONAL_FUNC(pa_stream_set_buffer_attr_callback); -#endif -#if PA_CHECK_VERSION(0,9,16) -LOAD_OPTIONAL_FUNC(pa_stream_begin_write); -#endif - -#undef LOAD_OPTIONAL_FUNC -#undef LOAD_FUNC - } - return pa_handle; -} //}}} - -// PulseAudio Event Callbacks //{{{ -static void context_state_callback(pa_context *context, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - pa_context_state_t state; - - state = ppa_context_get_state(context); - if(state == PA_CONTEXT_READY || !PA_CONTEXT_IS_GOOD(state)) - ppa_threaded_mainloop_signal(loop, 0); -}//}}} - -static void stream_state_callback(pa_stream *stream, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - pa_stream_state_t state; - - state = ppa_stream_get_state(stream); - if(state == PA_STREAM_READY || !PA_STREAM_IS_GOOD(state)) - ppa_threaded_mainloop_signal(loop, 0); -}//}}} - -static void stream_signal_callback(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - (void)stream; - - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void stream_buffer_attr_callback(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - SuspendContext(NULL); - - data->attr = *(ppa_stream_get_buffer_attr(stream)); - Device->UpdateSize = data->attr.minreq / data->frame_size; - Device->NumUpdates = (data->attr.tlength/data->frame_size) / Device->UpdateSize; - if(Device->NumUpdates <= 1) - { - Device->NumUpdates = 1; - AL_PRINT("PulseAudio returned minreq > tlength/2; expect break up\n"); - } - - ProcessContext(NULL); -}//}}} - -static void stream_device_callback(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - free(data->device_name); - data->device_name = strdup(ppa_stream_get_device_name(stream)); -}//}}} - -static void context_state_callback2(pa_context *context, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - if(ppa_context_get_state(context) == PA_CONTEXT_FAILED) - { - AL_PRINT("Received context failure!\n"); - aluHandleDisconnect(Device); - } - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void stream_state_callback2(pa_stream *stream, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - - if(ppa_stream_get_state(stream) == PA_STREAM_FAILED) - { - AL_PRINT("Received stream failure!\n"); - aluHandleDisconnect(Device); - } - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void stream_success_callback(pa_stream *stream, int success, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - (void)stream; - (void)success; - - ppa_threaded_mainloop_signal(data->loop, 0); -}//}}} - -static void sink_info_callback(pa_context *context, const pa_sink_info *info, int eol, void *pdata) //{{{ -{ - ALCdevice *device = pdata; - pulse_data *data = device->ExtraData; - char chanmap_str[256] = ""; - const struct { - const char *str; - enum DevFmtChannels chans; - } chanmaps[] = { - { "front-left,front-right,front-center,lfe,rear-left,rear-right,side-left,side-right", - DevFmtX71 }, - { "front-left,front-right,front-center,lfe,rear-center,side-left,side-right", - DevFmtX61 }, - { "front-left,front-right,front-center,lfe,rear-left,rear-right", - DevFmtX51 }, - { "front-left,front-right,rear-left,rear-right", DevFmtQuad }, - { "front-left,front-right", DevFmtStereo }, - { "mono", DevFmtMono }, - { NULL, 0 } - }; - int i; - (void)context; - - if(eol) - { - ppa_threaded_mainloop_signal(data->loop, 0); - return; - } - - for(i = 0;chanmaps[i].str;i++) - { - pa_channel_map map; - if(!ppa_channel_map_parse(&map, chanmaps[i].str)) - continue; - - if(ppa_channel_map_equal(&info->channel_map, &map) -#if PA_CHECK_VERSION(0,9,15) - || (ppa_channel_map_superset && - ppa_channel_map_superset(&info->channel_map, &map)) -#endif - ) - { - device->FmtChans = chanmaps[i].chans; - return; - } - } - - ppa_channel_map_snprint(chanmap_str, sizeof(chanmap_str), &info->channel_map); - AL_PRINT("Failed to find format for channel map:\n %s\n", chanmap_str); -}//}}} - -static void sink_device_callback(pa_context *context, const pa_sink_info *info, int eol, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - char str[1024]; - void *temp; - int count; - ALuint i; - - (void)context; - - if(eol) - { - ppa_threaded_mainloop_signal(loop, 0); - return; - } - - count = 0; - do { - if(count == 0) - snprintf(str, sizeof(str), "%s via PulseAudio", info->description); - else - snprintf(str, sizeof(str), "%s #%d via PulseAudio", info->description, count+1); - count++; - - for(i = 0;i < numDevNames;i++) - { - if(strcmp(str, allDevNameMap[i].name) == 0) - break; - } - } while(i != numDevNames); - - temp = realloc(allDevNameMap, (numDevNames+1) * sizeof(*allDevNameMap)); - if(temp) - { - allDevNameMap = temp; - allDevNameMap[numDevNames].name = strdup(str); - allDevNameMap[numDevNames].device_name = strdup(info->name); - numDevNames++; - } -}//}}} - -static void source_device_callback(pa_context *context, const pa_source_info *info, int eol, void *pdata) //{{{ -{ - pa_threaded_mainloop *loop = pdata; - char str[1024]; - void *temp; - int count; - ALuint i; - - (void)context; - - if(eol) - { - ppa_threaded_mainloop_signal(loop, 0); - return; - } - - count = 0; - do { - if(count == 0) - snprintf(str, sizeof(str), "%s via PulseAudio", info->description); - else - snprintf(str, sizeof(str), "%s #%d via PulseAudio", info->description, count+1); - count++; - - for(i = 0;i < numCaptureDevNames;i++) - { - if(strcmp(str, allCaptureDevNameMap[i].name) == 0) - break; - } - } while(i != numCaptureDevNames); - - temp = realloc(allCaptureDevNameMap, (numCaptureDevNames+1) * sizeof(*allCaptureDevNameMap)); - if(temp) - { - allCaptureDevNameMap = temp; - allCaptureDevNameMap[numCaptureDevNames].name = strdup(str); - allCaptureDevNameMap[numCaptureDevNames].device_name = strdup(info->name); - numCaptureDevNames++; - } -}//}}} -//}}} - -// PulseAudio I/O Callbacks //{{{ -static void stream_write_callback(pa_stream *stream, size_t len, void *pdata) //{{{ -{ - ALCdevice *Device = pdata; - pulse_data *data = Device->ExtraData; - (void)stream; - (void)len; - - ppa_threaded_mainloop_signal(data->loop, 0); -} //}}} -//}}} - -static ALuint PulseProc(ALvoid *param) -{ - ALCdevice *Device = param; - pulse_data *data = Device->ExtraData; - ssize_t len; - - SetRTPriority(); - - ppa_threaded_mainloop_lock(data->loop); - do { - len = (Device->Connected ? ppa_stream_writable_size(data->stream) : 0); - len -= len%(Device->UpdateSize*data->frame_size); - if(len == 0) - { - ppa_threaded_mainloop_wait(data->loop); - continue; - } - - while(len > 0) - { - size_t newlen = len; - void *buf; - pa_free_cb_t free_func = NULL; - -#if PA_CHECK_VERSION(0,9,16) - if(!ppa_stream_begin_write || - ppa_stream_begin_write(data->stream, &buf, &newlen) < 0) -#endif - { - buf = ppa_xmalloc(newlen); - free_func = ppa_xfree; - } - ppa_threaded_mainloop_unlock(data->loop); - - aluMixData(Device, buf, newlen/data->frame_size); - - ppa_threaded_mainloop_lock(data->loop); - ppa_stream_write(data->stream, buf, newlen, free_func, 0, PA_SEEK_RELATIVE); - len -= newlen; - } - } while(Device->Connected && !data->killNow); - ppa_threaded_mainloop_unlock(data->loop); - - return 0; -} - -static pa_context *connect_context(pa_threaded_mainloop *loop) -{ - const char *name = "OpenAL Soft"; - char path_name[PATH_MAX]; - pa_context_state_t state; - pa_context *context; - int err; - - if(ppa_get_binary_name(path_name, sizeof(path_name))) - name = ppa_path_get_filename(path_name); - - context = ppa_context_new(ppa_threaded_mainloop_get_api(loop), name); - if(!context) - { - AL_PRINT("pa_context_new() failed\n"); - return NULL; - } - - ppa_context_set_state_callback(context, context_state_callback, loop); - - if((err=ppa_context_connect(context, NULL, pulse_ctx_flags, NULL)) >= 0) - { - while((state=ppa_context_get_state(context)) != PA_CONTEXT_READY) - { - if(!PA_CONTEXT_IS_GOOD(state)) - { - err = ppa_context_errno(context); - if(err > 0) err = -err; - break; - } - - ppa_threaded_mainloop_wait(loop); - } - } - ppa_context_set_state_callback(context, NULL, NULL); - - if(err < 0) - { - AL_PRINT("Context did not connect: %s\n", ppa_strerror(err)); - ppa_context_unref(context); - return NULL; - } - - return context; -} - -static pa_stream *connect_playback_stream(ALCdevice *device, - pa_stream_flags_t flags, pa_buffer_attr *attr, pa_sample_spec *spec, - pa_channel_map *chanmap) -{ - pulse_data *data = device->ExtraData; - pa_stream_state_t state; - pa_stream *stream; - - stream = ppa_stream_new(data->context, "Playback Stream", spec, chanmap); - if(!stream) - { - AL_PRINT("pa_stream_new() failed: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - return NULL; - } - - ppa_stream_set_state_callback(stream, stream_state_callback, data->loop); - - if(ppa_stream_connect_playback(stream, data->device_name, attr, flags, NULL, NULL) < 0) - { - AL_PRINT("Stream did not connect: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - ppa_stream_unref(stream); - return NULL; - } - - while((state=ppa_stream_get_state(stream)) != PA_STREAM_READY) - { - if(!PA_STREAM_IS_GOOD(state)) - { - AL_PRINT("Stream did not get ready: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - ppa_stream_unref(stream); - return NULL; - } - - ppa_threaded_mainloop_wait(data->loop); - } - ppa_stream_set_state_callback(stream, NULL, NULL); - - return stream; -} - -static void probe_devices(ALboolean capture) -{ - pa_threaded_mainloop *loop; - - if(capture == AL_FALSE) - allDevNameMap = malloc(sizeof(DevMap) * 1); - else - allCaptureDevNameMap = malloc(sizeof(DevMap) * 1); - - if((loop=ppa_threaded_mainloop_new()) && - ppa_threaded_mainloop_start(loop) >= 0) - { - pa_context *context; - - ppa_threaded_mainloop_lock(loop); - context = connect_context(loop); - if(context) - { - pa_operation *o; - - if(capture == AL_FALSE) - { - allDevNameMap[0].name = strdup(pulse_device); - allDevNameMap[0].device_name = NULL; - numDevNames = 1; - - o = ppa_context_get_sink_info_list(context, sink_device_callback, loop); - } - else - { - allCaptureDevNameMap[0].name = strdup(pulse_device); - allCaptureDevNameMap[0].device_name = NULL; - numCaptureDevNames = 1; - - o = ppa_context_get_source_info_list(context, source_device_callback, loop); - } - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(loop); - ppa_operation_unref(o); - - ppa_context_disconnect(context); - ppa_context_unref(context); - } - ppa_threaded_mainloop_unlock(loop); - ppa_threaded_mainloop_stop(loop); - } - if(loop) - ppa_threaded_mainloop_free(loop); -} - - -static ALCboolean pulse_open(ALCdevice *device, const ALCchar *device_name) //{{{ -{ - pulse_data *data = ppa_xmalloc(sizeof(pulse_data)); - memset(data, 0, sizeof(*data)); - - if(!(data->loop = ppa_threaded_mainloop_new())) - { - AL_PRINT("pa_threaded_mainloop_new() failed!\n"); - goto out; - } - if(ppa_threaded_mainloop_start(data->loop) < 0) - { - AL_PRINT("pa_threaded_mainloop_start() failed\n"); - goto out; - } - - ppa_threaded_mainloop_lock(data->loop); - device->ExtraData = data; - - data->context = connect_context(data->loop); - if(!data->context) - { - ppa_threaded_mainloop_unlock(data->loop); - goto out; - } - ppa_context_set_state_callback(data->context, context_state_callback2, device); - - device->szDeviceName = strdup(device_name); - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_TRUE; - -out: - if(data->loop) - { - ppa_threaded_mainloop_stop(data->loop); - ppa_threaded_mainloop_free(data->loop); - } - - device->ExtraData = NULL; - ppa_xfree(data); - return ALC_FALSE; -} //}}} - -static void pulse_close(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - - ppa_threaded_mainloop_lock(data->loop); - - if(data->stream) - { - ppa_stream_disconnect(data->stream); - ppa_stream_unref(data->stream); - } - - ppa_context_disconnect(data->context); - ppa_context_unref(data->context); - - ppa_threaded_mainloop_unlock(data->loop); - - ppa_threaded_mainloop_stop(data->loop); - ppa_threaded_mainloop_free(data->loop); - - DestroyRingBuffer(data->ring); - free(data->device_name); - - device->ExtraData = NULL; - ppa_xfree(data); -} //}}} -//}}} - -// OpenAL {{{ -static ALCboolean pulse_open_playback(ALCdevice *device, const ALCchar *device_name) //{{{ -{ - char *pulse_name = NULL; - pa_sample_spec spec; - pulse_data *data; - - if(!pulse_load()) - return ALC_FALSE; - - if(!allDevNameMap) - probe_devices(AL_FALSE); - - if(!device_name && numDevNames > 0) - device_name = allDevNameMap[0].name; - else - { - ALuint i; - - for(i = 0;i < numDevNames;i++) - { - if(strcmp(device_name, allDevNameMap[i].name) == 0) - { - pulse_name = allDevNameMap[i].device_name; - break; - } - } - if(i == numDevNames) - return ALC_FALSE; - } - - if(pulse_open(device, device_name) == ALC_FALSE) - return ALC_FALSE; - - data = device->ExtraData; - - ppa_threaded_mainloop_lock(data->loop); - - spec.format = PA_SAMPLE_S16NE; - spec.rate = 44100; - spec.channels = 2; - - data->device_name = pulse_name; - pa_stream *stream = connect_playback_stream(device, 0, NULL, &spec, NULL); - if(!stream) - { - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - if(ppa_stream_is_suspended(stream)) - { - AL_PRINT("Device is suspended\n"); - ppa_stream_disconnect(stream); - ppa_stream_unref(stream); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - data->device_name = strdup(ppa_stream_get_device_name(stream)); - - ppa_stream_disconnect(stream); - ppa_stream_unref(stream); - - ppa_threaded_mainloop_unlock(data->loop); - - return ALC_TRUE; - -fail: - pulse_close(device); - return ALC_FALSE; -} //}}} - -static void pulse_close_playback(ALCdevice *device) //{{{ -{ - pulse_close(device); -} //}}} - -static ALCboolean pulse_reset_playback(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - pa_stream_flags_t flags = 0; - pa_channel_map chanmap; - - ppa_threaded_mainloop_lock(data->loop); - - if(!ConfigValueExists(NULL, "format")) - { - pa_operation *o; - o = ppa_context_get_sink_info_by_name(data->context, data->device_name, sink_info_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - } - if(!ConfigValueExists(NULL, "frequency")) - flags |= PA_STREAM_FIX_RATE; - - data->frame_size = FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - data->attr.prebuf = -1; - data->attr.fragsize = -1; - data->attr.minreq = device->UpdateSize * data->frame_size; - data->attr.tlength = data->attr.minreq * device->NumUpdates; - if(data->attr.tlength < data->attr.minreq*2) - data->attr.tlength = data->attr.minreq*2; - data->attr.maxlength = data->attr.tlength; - flags |= PA_STREAM_EARLY_REQUESTS; - flags |= PA_STREAM_INTERPOLATE_TIMING | PA_STREAM_AUTO_TIMING_UPDATE; - - switch(device->FmtType) - { - case DevFmtByte: - device->FmtType = DevFmtUByte; - /* fall-through */ - case DevFmtUByte: - data->spec.format = PA_SAMPLE_U8; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - data->spec.format = PA_SAMPLE_S16NE; - break; - case DevFmtFloat: - data->spec.format = PA_SAMPLE_FLOAT32NE; - break; - } - data->spec.rate = device->Frequency; - data->spec.channels = ChannelsFromDevFmt(device->FmtChans); - - if(ppa_sample_spec_valid(&data->spec) == 0) - { - AL_PRINT("Invalid sample format\n"); - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - - if(!ppa_channel_map_init_auto(&chanmap, data->spec.channels, PA_CHANNEL_MAP_WAVEEX)) - { - AL_PRINT("Couldn't build map for channel count (%d)!\n", data->spec.channels); - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - SetDefaultWFXChannelOrder(device); - - data->stream = connect_playback_stream(device, flags, &data->attr, &data->spec, &chanmap); - if(!data->stream) - { - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - - ppa_stream_set_state_callback(data->stream, stream_state_callback2, device); - - data->spec = *(ppa_stream_get_sample_spec(data->stream)); - if(device->Frequency != data->spec.rate) - { - pa_operation *o; - - /* Server updated our playback rate, so modify the buffer attribs - * accordingly. */ - data->attr.minreq = (ALuint64)(data->attr.minreq/data->frame_size) * - data->spec.rate / device->Frequency * data->frame_size; - data->attr.tlength = data->attr.minreq * device->NumUpdates; - data->attr.maxlength = data->attr.tlength; - - o = ppa_stream_set_buffer_attr(data->stream, &data->attr, - stream_success_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - - device->Frequency = data->spec.rate; - } - - stream_buffer_attr_callback(data->stream, device); -#if PA_CHECK_VERSION(0,9,15) - if(ppa_stream_set_buffer_attr_callback) - ppa_stream_set_buffer_attr_callback(data->stream, stream_buffer_attr_callback, device); -#endif - ppa_stream_set_moved_callback(data->stream, stream_device_callback, device); - ppa_stream_set_write_callback(data->stream, stream_write_callback, device); - ppa_stream_set_underflow_callback(data->stream, stream_signal_callback, device); - - data->thread = StartThread(PulseProc, device); - if(!data->thread) - { -#if PA_CHECK_VERSION(0,9,15) - if(ppa_stream_set_buffer_attr_callback) - ppa_stream_set_buffer_attr_callback(data->stream, NULL, NULL); -#endif - ppa_stream_set_moved_callback(data->stream, NULL, NULL); - ppa_stream_set_write_callback(data->stream, NULL, NULL); - ppa_stream_set_underflow_callback(data->stream, NULL, NULL); - ppa_stream_disconnect(data->stream); - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_FALSE; - } - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_TRUE; -} //}}} - -static void pulse_stop_playback(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - - if(!data->stream) - return; - - data->killNow = AL_TRUE; - if(data->thread) - { - ppa_threaded_mainloop_signal(data->loop, 0); - StopThread(data->thread); - data->thread = NULL; - } - data->killNow = AL_FALSE; - - ppa_threaded_mainloop_lock(data->loop); - -#if PA_CHECK_VERSION(0,9,15) - if(ppa_stream_set_buffer_attr_callback) - ppa_stream_set_buffer_attr_callback(data->stream, NULL, NULL); -#endif - ppa_stream_set_moved_callback(data->stream, NULL, NULL); - ppa_stream_set_write_callback(data->stream, NULL, NULL); - ppa_stream_set_underflow_callback(data->stream, NULL, NULL); - ppa_stream_disconnect(data->stream); - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); -} //}}} - - -static ALCboolean pulse_open_capture(ALCdevice *device, const ALCchar *device_name) //{{{ -{ - char *pulse_name = NULL; - pulse_data *data; - pa_stream_flags_t flags = 0; - pa_stream_state_t state; - pa_channel_map chanmap; - - if(!pulse_load()) - return ALC_FALSE; - - if(!allCaptureDevNameMap) - probe_devices(AL_TRUE); - - if(!device_name && numCaptureDevNames > 0) - device_name = allCaptureDevNameMap[0].name; - else - { - ALuint i; - - for(i = 0;i < numCaptureDevNames;i++) - { - if(strcmp(device_name, allCaptureDevNameMap[i].name) == 0) - { - pulse_name = allCaptureDevNameMap[i].device_name; - break; - } - } - if(i == numCaptureDevNames) - return ALC_FALSE; - } - - if(pulse_open(device, device_name) == ALC_FALSE) - return ALC_FALSE; - - data = device->ExtraData; - ppa_threaded_mainloop_lock(data->loop); - - data->samples = device->UpdateSize * device->NumUpdates; - data->frame_size = FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - if(data->samples < 100 * device->Frequency / 1000) - data->samples = 100 * device->Frequency / 1000; - - if(!(data->ring = CreateRingBuffer(data->frame_size, data->samples))) - { - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - data->attr.minreq = -1; - data->attr.prebuf = -1; - data->attr.maxlength = data->samples * data->frame_size; - data->attr.tlength = -1; - data->attr.fragsize = min(data->samples, 50 * device->Frequency / 1000) * - data->frame_size; - - data->spec.rate = device->Frequency; - data->spec.channels = ChannelsFromDevFmt(device->FmtChans); - - switch(device->FmtType) - { - case DevFmtUByte: - data->spec.format = PA_SAMPLE_U8; - break; - case DevFmtShort: - data->spec.format = PA_SAMPLE_S16NE; - break; - case DevFmtFloat: - data->spec.format = PA_SAMPLE_FLOAT32NE; - break; - case DevFmtByte: - case DevFmtUShort: - AL_PRINT("Capture format type %#x capture not supported on PulseAudio\n", device->FmtType); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - if(ppa_sample_spec_valid(&data->spec) == 0) - { - AL_PRINT("Invalid sample format\n"); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - if(!ppa_channel_map_init_auto(&chanmap, data->spec.channels, PA_CHANNEL_MAP_WAVEEX)) - { - AL_PRINT("Couldn't build map for channel count (%d)!\n", data->spec.channels); - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - data->stream = ppa_stream_new(data->context, "Capture Stream", &data->spec, &chanmap); - if(!data->stream) - { - AL_PRINT("pa_stream_new() failed: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - ppa_stream_set_state_callback(data->stream, stream_state_callback, data->loop); - - flags |= PA_STREAM_START_CORKED|PA_STREAM_ADJUST_LATENCY; - if(ppa_stream_connect_record(data->stream, pulse_name, &data->attr, flags) < 0) - { - AL_PRINT("Stream did not connect: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - while((state=ppa_stream_get_state(data->stream)) != PA_STREAM_READY) - { - if(!PA_STREAM_IS_GOOD(state)) - { - AL_PRINT("Stream did not get ready: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - - ppa_stream_unref(data->stream); - data->stream = NULL; - - ppa_threaded_mainloop_unlock(data->loop); - goto fail; - } - - ppa_threaded_mainloop_wait(data->loop); - } - ppa_stream_set_state_callback(data->stream, stream_state_callback2, device); - - ppa_threaded_mainloop_unlock(data->loop); - return ALC_TRUE; - -fail: - pulse_close(device); - return ALC_FALSE; -} //}}} - -static void pulse_close_capture(ALCdevice *device) //{{{ -{ - pulse_close(device); -} //}}} - -static void pulse_start_capture(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - pa_operation *o; - - ppa_threaded_mainloop_lock(data->loop); - o = ppa_stream_cork(data->stream, 0, stream_success_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - ppa_threaded_mainloop_unlock(data->loop); -} //}}} - -static void pulse_stop_capture(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - pa_operation *o; - - ppa_threaded_mainloop_lock(data->loop); - o = ppa_stream_cork(data->stream, 1, stream_success_callback, device); - while(ppa_operation_get_state(o) == PA_OPERATION_RUNNING) - ppa_threaded_mainloop_wait(data->loop); - ppa_operation_unref(o); - ppa_threaded_mainloop_unlock(data->loop); -} //}}} - -static ALCuint pulse_available_samples(ALCdevice *device) //{{{ -{ - pulse_data *data = device->ExtraData; - size_t samples; - - ppa_threaded_mainloop_lock(data->loop); - /* Capture is done in fragment-sized chunks, so we loop until we get all - * that's available */ - samples = (device->Connected ? ppa_stream_readable_size(data->stream) : 0); - while(samples > 0) - { - const void *buf; - size_t length; - - if(ppa_stream_peek(data->stream, &buf, &length) < 0) - { - AL_PRINT("pa_stream_peek() failed: %s\n", - ppa_strerror(ppa_context_errno(data->context))); - break; - } - - WriteRingBuffer(data->ring, buf, length/data->frame_size); - samples -= length; - - ppa_stream_drop(data->stream); - } - ppa_threaded_mainloop_unlock(data->loop); - - return RingBufferSize(data->ring); -} //}}} - -static void pulse_capture_samples(ALCdevice *device, ALCvoid *buffer, ALCuint samples) //{{{ -{ - pulse_data *data = device->ExtraData; - - if(pulse_available_samples(device) >= samples) - ReadRingBuffer(data->ring, buffer, samples); - else - alcSetError(device, ALC_INVALID_VALUE); -} //}}} - - -BackendFuncs pulse_funcs = { //{{{ - pulse_open_playback, - pulse_close_playback, - pulse_reset_playback, - pulse_stop_playback, - pulse_open_capture, - pulse_close_capture, - pulse_start_capture, - pulse_stop_capture, - pulse_capture_samples, - pulse_available_samples -}; //}}} - -void alc_pulse_init(BackendFuncs *func_list) //{{{ -{ - *func_list = pulse_funcs; - - pulse_ctx_flags = 0; - if(!GetConfigValueBool("pulse", "spawn-server", 0)) - pulse_ctx_flags |= PA_CONTEXT_NOAUTOSPAWN; -} //}}} - -void alc_pulse_deinit(void) //{{{ -{ - ALuint i; - - for(i = 0;i < numDevNames;++i) - { - free(allDevNameMap[i].name); - free(allDevNameMap[i].device_name); - } - free(allDevNameMap); - allDevNameMap = NULL; - numDevNames = 0; - - for(i = 0;i < numCaptureDevNames;++i) - { - free(allCaptureDevNameMap[i].name); - free(allCaptureDevNameMap[i].device_name); - } - free(allCaptureDevNameMap); - allCaptureDevNameMap = NULL; - numCaptureDevNames = 0; - - if(pa_handle) - { -#ifdef _WIN32 - FreeLibrary(pa_handle); -#elif defined (HAVE_DLFCN_H) - dlclose(pa_handle); -#endif - pa_handle = NULL; - } -} //}}} - -void alc_pulse_probe(int type) //{{{ -{ - if(!pulse_load()) return; - - if(type == DEVICE_PROBE) - { - pa_threaded_mainloop *loop; - - if((loop=ppa_threaded_mainloop_new()) && - ppa_threaded_mainloop_start(loop) >= 0) - { - pa_context *context; - - ppa_threaded_mainloop_lock(loop); - context = connect_context(loop); - if(context) - { - AppendDeviceList(pulse_device); - - ppa_context_disconnect(context); - ppa_context_unref(context); - } - ppa_threaded_mainloop_unlock(loop); - ppa_threaded_mainloop_stop(loop); - } - if(loop) - ppa_threaded_mainloop_free(loop); - } - else if(type == ALL_DEVICE_PROBE) - { - ALuint i; - - for(i = 0;i < numDevNames;++i) - { - free(allDevNameMap[i].name); - free(allDevNameMap[i].device_name); - } - free(allDevNameMap); - allDevNameMap = NULL; - numDevNames = 0; - - probe_devices(AL_FALSE); - - for(i = 0;i < numDevNames;i++) - AppendAllDeviceList(allDevNameMap[i].name); - } - else if(type == CAPTURE_DEVICE_PROBE) - { - ALuint i; - - for(i = 0;i < numCaptureDevNames;++i) - { - free(allCaptureDevNameMap[i].name); - free(allCaptureDevNameMap[i].device_name); - } - free(allCaptureDevNameMap); - allCaptureDevNameMap = NULL; - numCaptureDevNames = 0; - - probe_devices(AL_TRUE); - - for(i = 0;i < numCaptureDevNames;i++) - AppendCaptureDeviceList(allCaptureDevNameMap[i].name); - } -} //}}} -//}}} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/solaris.c b/internal/c/parts/audio/out/android/other/stuff/Alc/solaris.c deleted file mode 100644 index 18c733439..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/solaris.c +++ /dev/null @@ -1,304 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - -#include - - -static const ALCchar solaris_device[] = "Solaris Default"; - -typedef struct { - int fd; - volatile int killNow; - ALvoid *thread; - - ALubyte *mix_data; - int data_size; -} solaris_data; - - -static ALuint SolarisProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - solaris_data *data = (solaris_data*)pDevice->ExtraData; - ALint frameSize; - int wrote; - - SetRTPriority(); - - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(!data->killNow && pDevice->Connected) - { - ALint len = data->data_size; - ALubyte *WritePtr = data->mix_data; - - aluMixData(pDevice, WritePtr, len/frameSize); - while(len > 0 && !data->killNow) - { - wrote = write(data->fd, WritePtr, len); - if(wrote < 0) - { - if(errno != EAGAIN && errno != EWOULDBLOCK && errno != EINTR) - { - AL_PRINT("write failed: %s\n", strerror(errno)); - aluHandleDisconnect(pDevice); - break; - } - - Sleep(1); - continue; - } - - len -= wrote; - WritePtr += wrote; - } - } - - return 0; -} - - -static ALCboolean solaris_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - char driver[64]; - solaris_data *data; - - strncpy(driver, GetConfigValue("solaris", "device", "/dev/audio"), sizeof(driver)-1); - driver[sizeof(driver)-1] = 0; - - if(!deviceName) - deviceName = solaris_device; - else if(strcmp(deviceName, solaris_device) != 0) - return ALC_FALSE; - - data = (solaris_data*)calloc(1, sizeof(solaris_data)); - data->killNow = 0; - - data->fd = open(driver, O_WRONLY); - if(data->fd == -1) - { - free(data); - AL_PRINT("Could not open %s: %s\n", driver, strerror(errno)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void solaris_close_playback(ALCdevice *device) -{ - solaris_data *data = (solaris_data*)device->ExtraData; - - close(data->fd); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean solaris_reset_playback(ALCdevice *device) -{ - solaris_data *data = (solaris_data*)device->ExtraData; - audio_info_t info; - ALuint frameSize; - int numChannels; - - AUDIO_INITINFO(&info); - - info.play.sample_rate = device->Frequency; - - if(device->FmtChans != DevFmtMono) - device->FmtChans = DevFmtStereo; - numChannels = ChannelsFromDevFmt(device->FmtChans); - info.play.channels = numChannels; - - switch(device->FmtType) - { - case DevFmtByte: - info.play.precision = 8; - info.play.encoding = AUDIO_ENCODING_LINEAR; - break; - case DevFmtUByte: - info.play.precision = 8; - info.play.encoding = AUDIO_ENCODING_LINEAR8; - break; - case DevFmtUShort: - case DevFmtFloat: - device->FmtType = DevFmtShort; - /* fall-through */ - case DevFmtShort: - info.play.precision = 16; - info.play.encoding = AUDIO_ENCODING_LINEAR; - break; - } - - frameSize = numChannels * BytesFromDevFmt(device->FmtType); - info.play.buffer_size = device->UpdateSize*device->NumUpdates * frameSize; - - if(ioctl(data->fd, AUDIO_SETINFO, &info) < 0) - { - AL_PRINT("ioctl failed: %s\n", strerror(errno)); - return ALC_FALSE; - } - - if(ChannelsFromDevFmt(device->FmtChans) != info.play.channels) - { - AL_PRINT("Could not set %d channels, got %d instead\n", ChannelsFromDevFmt(device->FmtChans), info.play.channels); - return ALC_FALSE; - } - - if(!((info.play.precision == 8 && info.play.encoding == AUDIO_ENCODING_LINEAR && - device->FmtType == DevFmtByte) || - (info.play.precision == 8 && info.play.encoding == AUDIO_ENCODING_LINEAR8 && - device->FmtType == DevFmtUByte) || - (info.play.precision == 16 && info.play.encoding == AUDIO_ENCODING_LINEAR && - device->FmtType == DevFmtShort))) - { - AL_PRINT("Could not set %#x sample type, got %d (%#x)\n", - device->FmtType, info.play.precision, info.play.encoding); - return ALC_FALSE; - } - - device->Frequency = info.play.sample_rate; - device->UpdateSize = (info.play.buffer_size/device->NumUpdates) + 1; - - data->data_size = device->UpdateSize * frameSize; - data->mix_data = calloc(1, data->data_size); - - SetDefaultChannelOrder(device); - - data->thread = StartThread(SolarisProc, device); - if(data->thread == NULL) - { - free(data->mix_data); - data->mix_data = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void solaris_stop_playback(ALCdevice *device) -{ - solaris_data *data = (solaris_data*)device->ExtraData; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - if(ioctl(data->fd, AUDIO_DRAIN) < 0) - AL_PRINT("Error draining device: %s\n", strerror(errno)); - - free(data->mix_data); - data->mix_data = NULL; -} - - -static ALCboolean solaris_open_capture(ALCdevice *device, const ALCchar *deviceName) -{ - (void)device; - (void)deviceName; - return ALC_FALSE; -} - -static void solaris_close_capture(ALCdevice *device) -{ - (void)device; -} - -static void solaris_start_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void solaris_stop_capture(ALCdevice *pDevice) -{ - (void)pDevice; -} - -static void solaris_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - (void)pDevice; - (void)pBuffer; - (void)lSamples; -} - -static ALCuint solaris_available_samples(ALCdevice *pDevice) -{ - (void)pDevice; - return 0; -} - - -BackendFuncs solaris_funcs = { - solaris_open_playback, - solaris_close_playback, - solaris_reset_playback, - solaris_stop_playback, - solaris_open_capture, - solaris_close_capture, - solaris_start_capture, - solaris_stop_capture, - solaris_capture_samples, - solaris_available_samples -}; - -void alc_solaris_init(BackendFuncs *func_list) -{ - *func_list = solaris_funcs; -} - -void alc_solaris_deinit(void) -{ -} - -void alc_solaris_probe(int type) -{ -#ifdef HAVE_STAT - struct stat buf; - if(stat(GetConfigValue("solaris", "device", "/dev/audio"), &buf) != 0) - return; -#endif - - if(type == DEVICE_PROBE) - AppendDeviceList(solaris_device); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(solaris_device); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/wave.c b/internal/c/parts/audio/out/android/other/stuff/Alc/wave.c deleted file mode 100644 index 6ba662cf1..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/wave.c +++ /dev/null @@ -1,355 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - - -typedef struct { - FILE *f; - long DataStart; - - ALvoid *buffer; - ALuint size; - - volatile int killNow; - ALvoid *thread; -} wave_data; - - -static const ALCchar waveDevice[] = "Wave File Writer"; - -static const ALubyte SUBTYPE_PCM[] = { - 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x80, 0x00, 0x00, 0xaa, - 0x00, 0x38, 0x9b, 0x71 -}; -static const ALubyte SUBTYPE_FLOAT[] = { - 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x80, 0x00, 0x00, 0xaa, - 0x00, 0x38, 0x9b, 0x71 -}; - -static const ALuint channel_masks[] = { - 0, /* invalid */ - 0x4, /* Mono */ - 0x1 | 0x2, /* Stereo */ - 0, /* 3 channel */ - 0x1 | 0x2 | 0x10 | 0x20, /* Quad */ - 0, /* 5 channel */ - 0x1 | 0x2 | 0x4 | 0x8 | 0x10 | 0x20, /* 5.1 */ - 0x1 | 0x2 | 0x4 | 0x8 | 0x100 | 0x200 | 0x400, /* 6.1 */ - 0x1 | 0x2 | 0x4 | 0x8 | 0x10 | 0x20 | 0x200 | 0x400, /* 7.1 */ -}; - - -static void fwrite16le(ALushort val, FILE *f) -{ - fputc(val&0xff, f); - fputc((val>>8)&0xff, f); -} - -static void fwrite32le(ALuint val, FILE *f) -{ - fputc(val&0xff, f); - fputc((val>>8)&0xff, f); - fputc((val>>16)&0xff, f); - fputc((val>>24)&0xff, f); -} - - -static ALuint WaveProc(ALvoid *ptr) -{ - ALCdevice *pDevice = (ALCdevice*)ptr; - wave_data *data = (wave_data*)pDevice->ExtraData; - ALuint frameSize; - ALuint now, start; - ALuint64 avail, done; - size_t fs; - union { - short s; - char b[sizeof(short)]; - } uSB; - const ALuint restTime = (ALuint64)pDevice->UpdateSize * 1000 / - pDevice->Frequency / 2; - - uSB.s = 1; - frameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - done = 0; - start = timeGetTime(); - while(!data->killNow && pDevice->Connected) - { - now = timeGetTime(); - - avail = (ALuint64)(now-start) * pDevice->Frequency / 1000; - if(avail < done) - { - /* Timer wrapped. Add the remainder of the cycle to the available - * count and reset the number of samples done */ - avail += (ALuint64)0xFFFFFFFFu*pDevice->Frequency/1000 - done; - done = 0; - } - if(avail-done < pDevice->UpdateSize) - { - Sleep(restTime); - continue; - } - - while(avail-done >= pDevice->UpdateSize) - { - aluMixData(pDevice, data->buffer, pDevice->UpdateSize); - done += pDevice->UpdateSize; - - if(uSB.b[0] != 1) - { - ALuint bytesize = BytesFromDevFmt(pDevice->FmtType); - ALubyte *bytes = data->buffer; - ALuint i; - - if(bytesize == 1) - { - for(i = 0;i < data->size;i++) - fputc(bytes[i], data->f); - } - else if(bytesize == 2) - { - for(i = 0;i < data->size;i++) - fputc(bytes[i^1], data->f); - } - else if(bytesize == 4) - { - for(i = 0;i < data->size;i++) - fputc(bytes[i^3], data->f); - } - } - else - fs = fwrite(data->buffer, frameSize, pDevice->UpdateSize, - data->f); - if(ferror(data->f)) - { - AL_PRINT("Error writing to file\n"); - aluHandleDisconnect(pDevice); - break; - } - } - } - - return 0; -} - -static ALCboolean wave_open_playback(ALCdevice *device, const ALCchar *deviceName) -{ - wave_data *data; - const char *fname; - - fname = GetConfigValue("wave", "file", ""); - if(!fname[0]) - return ALC_FALSE; - - if(!deviceName) - deviceName = waveDevice; - else if(strcmp(deviceName, waveDevice) != 0) - return ALC_FALSE; - - data = (wave_data*)calloc(1, sizeof(wave_data)); - - data->f = fopen(fname, "wb"); - if(!data->f) - { - free(data); - AL_PRINT("Could not open file '%s': %s\n", fname, strerror(errno)); - return ALC_FALSE; - } - - device->szDeviceName = strdup(deviceName); - device->ExtraData = data; - return ALC_TRUE; -} - -static void wave_close_playback(ALCdevice *device) -{ - wave_data *data = (wave_data*)device->ExtraData; - - fclose(data->f); - free(data); - device->ExtraData = NULL; -} - -static ALCboolean wave_reset_playback(ALCdevice *device) -{ - wave_data *data = (wave_data*)device->ExtraData; - ALuint channels=0, bits=0; - size_t val; - - fseek(data->f, 0, SEEK_SET); - clearerr(data->f); - - switch(device->FmtType) - { - case DevFmtByte: - device->FmtType = DevFmtUByte; - break; - case DevFmtUShort: - device->FmtType = DevFmtShort; - break; - case DevFmtUByte: - case DevFmtShort: - case DevFmtFloat: - break; - } - bits = BytesFromDevFmt(device->FmtType) * 8; - channels = ChannelsFromDevFmt(device->FmtChans); - - fprintf(data->f, "RIFF"); - fwrite32le(0xFFFFFFFF, data->f); // 'RIFF' header len; filled in at close - - fprintf(data->f, "WAVE"); - - fprintf(data->f, "fmt "); - fwrite32le(40, data->f); // 'fmt ' header len; 40 bytes for EXTENSIBLE - - // 16-bit val, format type id (extensible: 0xFFFE) - fwrite16le(0xFFFE, data->f); - // 16-bit val, channel count - fwrite16le(channels, data->f); - // 32-bit val, frequency - fwrite32le(device->Frequency, data->f); - // 32-bit val, bytes per second - fwrite32le(device->Frequency * channels * bits / 8, data->f); - // 16-bit val, frame size - fwrite16le(channels * bits / 8, data->f); - // 16-bit val, bits per sample - fwrite16le(bits, data->f); - // 16-bit val, extra byte count - fwrite16le(22, data->f); - // 16-bit val, valid bits per sample - fwrite16le(bits, data->f); - // 32-bit val, channel mask - fwrite32le(channel_masks[channels], data->f); - // 16 byte GUID, sub-type format - val = fwrite(((bits==32) ? SUBTYPE_FLOAT : SUBTYPE_PCM), 1, 16, data->f); - - fprintf(data->f, "data"); - fwrite32le(0xFFFFFFFF, data->f); // 'data' header len; filled in at close - - if(ferror(data->f)) - { - AL_PRINT("Error writing header: %s\n", strerror(errno)); - return ALC_FALSE; - } - - data->DataStart = ftell(data->f); - - data->size = device->UpdateSize * channels * bits / 8; - data->buffer = malloc(data->size); - if(!data->buffer) - { - AL_PRINT("buffer malloc failed\n"); - return ALC_FALSE; - } - - SetDefaultWFXChannelOrder(device); - - data->thread = StartThread(WaveProc, device); - if(data->thread == NULL) - { - free(data->buffer); - data->buffer = NULL; - return ALC_FALSE; - } - - return ALC_TRUE; -} - -static void wave_stop_playback(ALCdevice *device) -{ - wave_data *data = (wave_data*)device->ExtraData; - ALuint dataLen; - long size; - - if(!data->thread) - return; - - data->killNow = 1; - StopThread(data->thread); - data->thread = NULL; - - data->killNow = 0; - - free(data->buffer); - data->buffer = NULL; - - size = ftell(data->f); - if(size > 0) - { - dataLen = size - data->DataStart; - if(fseek(data->f, data->DataStart-4, SEEK_SET) == 0) - fwrite32le(dataLen, data->f); // 'data' header len - if(fseek(data->f, 4, SEEK_SET) == 0) - fwrite32le(size-8, data->f); // 'WAVE' header len - } -} - - -static ALCboolean wave_open_capture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - (void)pDevice; - (void)deviceName; - return ALC_FALSE; -} - - -BackendFuncs wave_funcs = { - wave_open_playback, - wave_close_playback, - wave_reset_playback, - wave_stop_playback, - wave_open_capture, - NULL, - NULL, - NULL, - NULL, - NULL -}; - -void alc_wave_init(BackendFuncs *func_list) -{ - *func_list = wave_funcs; -} - -void alc_wave_deinit(void) -{ -} - -void alc_wave_probe(int type) -{ - if(!ConfigValueExists("wave", "file")) - return; - - if(type == DEVICE_PROBE) - AppendDeviceList(waveDevice); - else if(type == ALL_DEVICE_PROBE) - AppendAllDeviceList(waveDevice); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Alc/winmm.c b/internal/c/parts/audio/out/android/other/stuff/Alc/winmm.c deleted file mode 100644 index 10d0c28fe..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Alc/winmm.c +++ /dev/null @@ -1,784 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#define _WIN32_WINNT 0x0500 -#include -#include -#include - -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" - - -typedef struct { - // MMSYSTEM Device - volatile ALboolean bWaveShutdown; - HANDLE hWaveHdrEvent; - HANDLE hWaveThreadEvent; - HANDLE hWaveThread; - DWORD ulWaveThreadID; - LONG lWaveBuffersCommitted; - WAVEHDR WaveBuffer[4]; - - union { - HWAVEIN In; - HWAVEOUT Out; - } hWaveHandle; - - ALsizei Frequency; - - RingBuffer *pRing; -} WinMMData; - - -static const ALCchar woDefault[] = "WaveOut Default"; - -static ALCchar **PlaybackDeviceList; -static ALuint NumPlaybackDevices; -static ALCchar **CaptureDeviceList; -static ALuint NumCaptureDevices; - - -static void ProbePlaybackDevices(void) -{ - ALuint i; - - for(i = 0;i < NumPlaybackDevices;i++) - free(PlaybackDeviceList[i]); - - NumPlaybackDevices = waveOutGetNumDevs(); - PlaybackDeviceList = realloc(PlaybackDeviceList, sizeof(ALCchar*) * NumPlaybackDevices); - for(i = 0;i < NumPlaybackDevices;i++) - { - WAVEOUTCAPS WaveCaps; - - PlaybackDeviceList[i] = NULL; - if(waveOutGetDevCaps(i, &WaveCaps, sizeof(WaveCaps)) == MMSYSERR_NOERROR) - { - char name[1024]; - ALuint count, j; - - count = 0; - do { - if(count == 0) - snprintf(name, sizeof(name), "%s via WaveOut", WaveCaps.szPname); - else - snprintf(name, sizeof(name), "%s #%d via WaveOut", WaveCaps.szPname, count+1); - count++; - - for(j = 0;j < i;j++) - { - if(strcmp(name, PlaybackDeviceList[j]) == 0) - break; - } - } while(j != i); - - PlaybackDeviceList[i] = strdup(name); - } - } -} - -static void ProbeCaptureDevices(void) -{ - ALuint i; - - for(i = 0;i < NumCaptureDevices;i++) - free(CaptureDeviceList[i]); - - NumCaptureDevices = waveInGetNumDevs(); - CaptureDeviceList = realloc(CaptureDeviceList, sizeof(ALCchar*) * NumCaptureDevices); - for(i = 0;i < NumCaptureDevices;i++) - { - WAVEINCAPS WaveInCaps; - - CaptureDeviceList[i] = NULL; - if(waveInGetDevCaps(i, &WaveInCaps, sizeof(WAVEINCAPS)) == MMSYSERR_NOERROR) - { - char name[1024]; - ALuint count, j; - - count = 0; - do { - if(count == 0) - snprintf(name, sizeof(name), "%s via WaveIn", WaveInCaps.szPname); - else - snprintf(name, sizeof(name), "%s #%d via WaveIn", WaveInCaps.szPname, count+1); - count++; - - for(j = 0;j < i;j++) - { - if(strcmp(name, CaptureDeviceList[j]) == 0) - break; - } - } while(j != i); - - CaptureDeviceList[i] = strdup(name); - } - } -} - - -/* - WaveOutProc - - Posts a message to 'PlaybackThreadProc' everytime a WaveOut Buffer is completed and - returns to the application (for more data) -*/ -static void CALLBACK WaveOutProc(HWAVEOUT hDevice,UINT uMsg,DWORD_PTR dwInstance,DWORD_PTR dwParam1,DWORD_PTR dwParam2) -{ - ALCdevice *pDevice = (ALCdevice*)dwInstance; - WinMMData *pData = pDevice->ExtraData; - - (void)hDevice; - (void)dwParam2; - - if(uMsg != WOM_DONE) - return; - - // Decrement number of buffers in use - InterlockedDecrement(&pData->lWaveBuffersCommitted); - - if(pData->bWaveShutdown == AL_FALSE) - { - // Notify Wave Processor Thread that a Wave Header has returned - PostThreadMessage(pData->ulWaveThreadID, uMsg, 0, dwParam1); - } - else - { - if(pData->lWaveBuffersCommitted == 0) - { - // Signal Wave Buffers Returned event - if(pData->hWaveHdrEvent) - SetEvent(pData->hWaveHdrEvent); - - // Post 'Quit' Message to WaveOut Processor Thread - PostThreadMessage(pData->ulWaveThreadID, WM_QUIT, 0, 0); - } - } -} - -/* - PlaybackThreadProc - - Used by "MMSYSTEM" Device. Called when a WaveOut buffer has used up its - audio data. -*/ -static DWORD WINAPI PlaybackThreadProc(LPVOID lpParameter) -{ - ALCdevice *pDevice = (ALCdevice*)lpParameter; - WinMMData *pData = pDevice->ExtraData; - LPWAVEHDR pWaveHdr; - ALuint FrameSize; - MSG msg; - - FrameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(GetMessage(&msg, NULL, 0, 0)) - { - if(msg.message != WOM_DONE || pData->bWaveShutdown) - continue; - - pWaveHdr = ((LPWAVEHDR)msg.lParam); - - aluMixData(pDevice, pWaveHdr->lpData, pWaveHdr->dwBufferLength/FrameSize); - - // Send buffer back to play more data - waveOutWrite(pData->hWaveHandle.Out, pWaveHdr, sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - // Signal Wave Thread completed event - if(pData->hWaveThreadEvent) - SetEvent(pData->hWaveThreadEvent); - - ExitThread(0); - - return 0; -} - -/* - WaveInProc - - Posts a message to 'CaptureThreadProc' everytime a WaveIn Buffer is completed and - returns to the application (with more data) -*/ -static void CALLBACK WaveInProc(HWAVEIN hDevice,UINT uMsg,DWORD_PTR dwInstance,DWORD_PTR dwParam1,DWORD_PTR dwParam2) -{ - ALCdevice *pDevice = (ALCdevice*)dwInstance; - WinMMData *pData = pDevice->ExtraData; - - (void)hDevice; - (void)dwParam2; - - if(uMsg != WIM_DATA) - return; - - // Decrement number of buffers in use - InterlockedDecrement(&pData->lWaveBuffersCommitted); - - if(pData->bWaveShutdown == AL_FALSE) - { - // Notify Wave Processor Thread that a Wave Header has returned - PostThreadMessage(pData->ulWaveThreadID,uMsg,0,dwParam1); - } - else - { - if(pData->lWaveBuffersCommitted == 0) - { - // Signal Wave Buffers Returned event - if(pData->hWaveHdrEvent) - SetEvent(pData->hWaveHdrEvent); - - // Post 'Quit' Message to WaveIn Processor Thread - PostThreadMessage(pData->ulWaveThreadID,WM_QUIT,0,0); - } - } -} - -/* - CaptureThreadProc - - Used by "MMSYSTEM" Device. Called when a WaveIn buffer had been filled with new - audio data. -*/ -static DWORD WINAPI CaptureThreadProc(LPVOID lpParameter) -{ - ALCdevice *pDevice = (ALCdevice*)lpParameter; - WinMMData *pData = pDevice->ExtraData; - LPWAVEHDR pWaveHdr; - ALuint FrameSize; - MSG msg; - - FrameSize = FrameSizeFromDevFmt(pDevice->FmtChans, pDevice->FmtType); - - while(GetMessage(&msg, NULL, 0, 0)) - { - if(msg.message != WIM_DATA || pData->bWaveShutdown) - continue; - - pWaveHdr = ((LPWAVEHDR)msg.lParam); - - WriteRingBuffer(pData->pRing, (ALubyte*)pWaveHdr->lpData, - pWaveHdr->dwBytesRecorded/FrameSize); - - // Send buffer back to capture more data - waveInAddBuffer(pData->hWaveHandle.In,pWaveHdr,sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - // Signal Wave Thread completed event - if(pData->hWaveThreadEvent) - SetEvent(pData->hWaveThreadEvent); - - ExitThread(0); - - return 0; -} - - -static ALCboolean WinMMOpenPlayback(ALCdevice *pDevice, const ALCchar *deviceName) -{ - WAVEFORMATEX wfexFormat; - WinMMData *pData = NULL; - UINT lDeviceID = 0; - MMRESULT res; - ALuint i = 0; - - // Find the Device ID matching the deviceName if valid - if(!deviceName || strcmp(deviceName, woDefault) == 0) - lDeviceID = WAVE_MAPPER; - else - { - if(!PlaybackDeviceList) - ProbePlaybackDevices(); - - for(i = 0;i < NumPlaybackDevices;i++) - { - if(PlaybackDeviceList[i] && - strcmp(deviceName, PlaybackDeviceList[i]) == 0) - { - lDeviceID = i; - break; - } - } - if(i == NumPlaybackDevices) - return ALC_FALSE; - } - - pData = calloc(1, sizeof(*pData)); - if(!pData) - { - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - pDevice->ExtraData = pData; - - if(pDevice->FmtChans != DevFmtMono) - pDevice->FmtChans = DevFmtStereo; - switch(pDevice->FmtType) - { - case DevFmtByte: - pDevice->FmtType = DevFmtUByte; - break; - case DevFmtUShort: - case DevFmtFloat: - pDevice->FmtType = DevFmtShort; - break; - case DevFmtUByte: - case DevFmtShort: - break; - } - - memset(&wfexFormat, 0, sizeof(WAVEFORMATEX)); - wfexFormat.wFormatTag = WAVE_FORMAT_PCM; - wfexFormat.nChannels = ChannelsFromDevFmt(pDevice->FmtChans); - wfexFormat.wBitsPerSample = BytesFromDevFmt(pDevice->FmtType) * 8; - wfexFormat.nBlockAlign = wfexFormat.wBitsPerSample * - wfexFormat.nChannels / 8; - wfexFormat.nSamplesPerSec = pDevice->Frequency; - wfexFormat.nAvgBytesPerSec = wfexFormat.nSamplesPerSec * - wfexFormat.nBlockAlign; - wfexFormat.cbSize = 0; - - if((res=waveOutOpen(&pData->hWaveHandle.Out, lDeviceID, &wfexFormat, (DWORD_PTR)&WaveOutProc, (DWORD_PTR)pDevice, CALLBACK_FUNCTION)) != MMSYSERR_NOERROR) - { - AL_PRINT("waveInOpen failed: %u\n", res); - goto failure; - } - - pData->hWaveHdrEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveOutAllHeadersReturned"); - pData->hWaveThreadEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveOutThreadDestroyed"); - if(pData->hWaveHdrEvent == NULL || pData->hWaveThreadEvent == NULL) - { - AL_PRINT("CreateEvent failed: %lu\n", GetLastError()); - goto failure; - } - - pData->Frequency = pDevice->Frequency; - - pDevice->szDeviceName = strdup((lDeviceID==WAVE_MAPPER) ? woDefault : - PlaybackDeviceList[lDeviceID]); - return ALC_TRUE; - -failure: - if(pData->hWaveThreadEvent) - CloseHandle(pData->hWaveThreadEvent); - if(pData->hWaveHdrEvent) - CloseHandle(pData->hWaveHdrEvent); - - if(pData->hWaveHandle.Out) - waveOutClose(pData->hWaveHandle.Out); - - free(pData); - pDevice->ExtraData = NULL; - return ALC_FALSE; -} - -static void WinMMClosePlayback(ALCdevice *device) -{ - WinMMData *pData = (WinMMData*)device->ExtraData; - - // Close the Wave device - CloseHandle(pData->hWaveThreadEvent); - pData->hWaveThreadEvent = 0; - - CloseHandle(pData->hWaveHdrEvent); - pData->hWaveHdrEvent = 0; - - waveInClose(pData->hWaveHandle.In); - pData->hWaveHandle.In = 0; - - free(pData); - device->ExtraData = NULL; -} - -static ALCboolean WinMMResetPlayback(ALCdevice *device) -{ - WinMMData *pData = (WinMMData*)device->ExtraData; - ALbyte *BufferData; - ALint lBufferSize; - ALuint i; - - pData->hWaveThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)PlaybackThreadProc, (LPVOID)device, 0, &pData->ulWaveThreadID); - if(pData->hWaveThread == NULL) - return ALC_FALSE; - - device->UpdateSize = (ALuint)((ALuint64)device->UpdateSize * - pData->Frequency / device->Frequency); - device->Frequency = pData->Frequency; - - pData->lWaveBuffersCommitted = 0; - - // Create 4 Buffers - lBufferSize = device->UpdateSize*device->NumUpdates / 4; - lBufferSize *= FrameSizeFromDevFmt(device->FmtChans, device->FmtType); - - BufferData = calloc(4, lBufferSize); - for(i = 0;i < 4;i++) - { - memset(&pData->WaveBuffer[i], 0, sizeof(WAVEHDR)); - pData->WaveBuffer[i].dwBufferLength = lBufferSize; - pData->WaveBuffer[i].lpData = ((i==0) ? (LPSTR)BufferData : - (pData->WaveBuffer[i-1].lpData + - pData->WaveBuffer[i-1].dwBufferLength)); - waveOutPrepareHeader(pData->hWaveHandle.Out, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - waveOutWrite(pData->hWaveHandle.Out, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - return ALC_TRUE; -} - -static void WinMMStopPlayback(ALCdevice *device) -{ - WinMMData *pData = (WinMMData*)device->ExtraData; - int i; - - if(pData->hWaveThread == NULL) - return; - - // Set flag to stop processing headers - pData->bWaveShutdown = AL_TRUE; - - // Wait for signal that all Wave Buffers have returned - WaitForSingleObjectEx(pData->hWaveHdrEvent, 5000, FALSE); - - // Wait for signal that Wave Thread has been destroyed - WaitForSingleObjectEx(pData->hWaveThreadEvent, 5000, FALSE); - - CloseHandle(pData->hWaveThread); - pData->hWaveThread = 0; - - pData->bWaveShutdown = AL_FALSE; - - // Release the wave buffers - for(i = 0;i < 4;i++) - { - waveOutUnprepareHeader(pData->hWaveHandle.Out, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - if(i == 0) - free(pData->WaveBuffer[i].lpData); - pData->WaveBuffer[i].lpData = NULL; - } -} - - -static ALCboolean WinMMOpenCapture(ALCdevice *pDevice, const ALCchar *deviceName) -{ - WAVEFORMATEX wfexCaptureFormat; - DWORD ulCapturedDataSize; - WinMMData *pData = NULL; - UINT lDeviceID = 0; - ALbyte *BufferData; - ALint lBufferSize; - MMRESULT res; - ALuint i; - - if(!CaptureDeviceList) - ProbeCaptureDevices(); - - // Find the Device ID matching the deviceName if valid - if(deviceName) - { - for(i = 0;i < NumCaptureDevices;i++) - { - if(CaptureDeviceList[i] && - strcmp(deviceName, CaptureDeviceList[i]) == 0) - { - lDeviceID = i; - break; - } - } - } - else - { - for(i = 0;i < NumCaptureDevices;i++) - { - if(CaptureDeviceList[i]) - { - lDeviceID = i; - break; - } - } - } - if(i == NumCaptureDevices) - return ALC_FALSE; - - pData = calloc(1, sizeof(*pData)); - if(!pData) - { - alcSetError(pDevice, ALC_OUT_OF_MEMORY); - return ALC_FALSE; - } - pDevice->ExtraData = pData; - - if((pDevice->FmtChans != DevFmtMono && pDevice->FmtChans != DevFmtStereo) || - (pDevice->FmtType != DevFmtUByte && pDevice->FmtType != DevFmtShort)) - { - alcSetError(pDevice, ALC_INVALID_ENUM); - goto failure; - } - - memset(&wfexCaptureFormat, 0, sizeof(WAVEFORMATEX)); - wfexCaptureFormat.wFormatTag = WAVE_FORMAT_PCM; - wfexCaptureFormat.nChannels = ChannelsFromDevFmt(pDevice->FmtChans); - wfexCaptureFormat.wBitsPerSample = BytesFromDevFmt(pDevice->FmtType) * 8; - wfexCaptureFormat.nBlockAlign = wfexCaptureFormat.wBitsPerSample * - wfexCaptureFormat.nChannels / 8; - wfexCaptureFormat.nSamplesPerSec = pDevice->Frequency; - wfexCaptureFormat.nAvgBytesPerSec = wfexCaptureFormat.nSamplesPerSec * - wfexCaptureFormat.nBlockAlign; - wfexCaptureFormat.cbSize = 0; - - if((res=waveInOpen(&pData->hWaveHandle.In, lDeviceID, &wfexCaptureFormat, (DWORD_PTR)&WaveInProc, (DWORD_PTR)pDevice, CALLBACK_FUNCTION)) != MMSYSERR_NOERROR) - { - AL_PRINT("waveInOpen failed: %u\n", res); - goto failure; - } - - pData->hWaveHdrEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveInAllHeadersReturned"); - pData->hWaveThreadEvent = CreateEvent(NULL, AL_TRUE, AL_FALSE, "WaveInThreadDestroyed"); - if(pData->hWaveHdrEvent == NULL || pData->hWaveThreadEvent == NULL) - { - AL_PRINT("CreateEvent failed: %lu\n", GetLastError()); - goto failure; - } - - pData->Frequency = pDevice->Frequency; - - // Allocate circular memory buffer for the captured audio - ulCapturedDataSize = pDevice->UpdateSize*pDevice->NumUpdates; - - // Make sure circular buffer is at least 100ms in size - if(ulCapturedDataSize < (wfexCaptureFormat.nSamplesPerSec / 10)) - ulCapturedDataSize = wfexCaptureFormat.nSamplesPerSec / 10; - - pData->pRing = CreateRingBuffer(wfexCaptureFormat.nBlockAlign, ulCapturedDataSize); - if(!pData->pRing) - goto failure; - - pData->lWaveBuffersCommitted = 0; - - // Create 4 Buffers of 50ms each - lBufferSize = wfexCaptureFormat.nAvgBytesPerSec / 20; - lBufferSize -= (lBufferSize % wfexCaptureFormat.nBlockAlign); - - BufferData = calloc(4, lBufferSize); - if(!BufferData) - goto failure; - - for(i = 0;i < 4;i++) - { - memset(&pData->WaveBuffer[i], 0, sizeof(WAVEHDR)); - pData->WaveBuffer[i].dwBufferLength = lBufferSize; - pData->WaveBuffer[i].lpData = ((i==0) ? (LPSTR)BufferData : - (pData->WaveBuffer[i-1].lpData + - pData->WaveBuffer[i-1].dwBufferLength)); - pData->WaveBuffer[i].dwFlags = 0; - pData->WaveBuffer[i].dwLoops = 0; - waveInPrepareHeader(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - waveInAddBuffer(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - InterlockedIncrement(&pData->lWaveBuffersCommitted); - } - - pData->hWaveThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)CaptureThreadProc, (LPVOID)pDevice, 0, &pData->ulWaveThreadID); - if (pData->hWaveThread == NULL) - goto failure; - - pDevice->szDeviceName = strdup(CaptureDeviceList[lDeviceID]); - return ALC_TRUE; - -failure: - if(pData->hWaveThread) - CloseHandle(pData->hWaveThread); - - for(i = 0;i < 4;i++) - { - if(pData->WaveBuffer[i].lpData) - { - waveInUnprepareHeader(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - if(i == 0) - free(pData->WaveBuffer[i].lpData); - } - } - - if(pData->pRing) - DestroyRingBuffer(pData->pRing); - - if(pData->hWaveThreadEvent) - CloseHandle(pData->hWaveThreadEvent); - if(pData->hWaveHdrEvent) - CloseHandle(pData->hWaveHdrEvent); - - if(pData->hWaveHandle.In) - waveInClose(pData->hWaveHandle.In); - - free(pData); - pDevice->ExtraData = NULL; - return ALC_FALSE; -} - -static void WinMMCloseCapture(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - int i; - - // Call waveOutReset to shutdown wave device - pData->bWaveShutdown = AL_TRUE; - waveInReset(pData->hWaveHandle.In); - - // Wait for signal that all Wave Buffers have returned - WaitForSingleObjectEx(pData->hWaveHdrEvent, 5000, FALSE); - - // Wait for signal that Wave Thread has been destroyed - WaitForSingleObjectEx(pData->hWaveThreadEvent, 5000, FALSE); - - CloseHandle(pData->hWaveThread); - pData->hWaveThread = 0; - - // Release the wave buffers - for(i = 0;i < 4;i++) - { - waveInUnprepareHeader(pData->hWaveHandle.In, &pData->WaveBuffer[i], sizeof(WAVEHDR)); - if(i == 0) - free(pData->WaveBuffer[i].lpData); - pData->WaveBuffer[i].lpData = NULL; - } - - DestroyRingBuffer(pData->pRing); - pData->pRing = NULL; - - // Close the Wave device - CloseHandle(pData->hWaveThreadEvent); - pData->hWaveThreadEvent = 0; - - CloseHandle(pData->hWaveHdrEvent); - pData->hWaveHdrEvent = 0; - - waveInClose(pData->hWaveHandle.In); - pData->hWaveHandle.In = 0; - - free(pData); - pDevice->ExtraData = NULL; -} - -static void WinMMStartCapture(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - waveInStart(pData->hWaveHandle.In); -} - -static void WinMMStopCapture(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - waveInStop(pData->hWaveHandle.In); -} - -static ALCuint WinMMAvailableSamples(ALCdevice *pDevice) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - return RingBufferSize(pData->pRing); -} - -static void WinMMCaptureSamples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples) -{ - WinMMData *pData = (WinMMData*)pDevice->ExtraData; - - if(WinMMAvailableSamples(pDevice) >= lSamples) - ReadRingBuffer(pData->pRing, pBuffer, lSamples); - else - alcSetError(pDevice, ALC_INVALID_VALUE); -} - - -static BackendFuncs WinMMFuncs = { - WinMMOpenPlayback, - WinMMClosePlayback, - WinMMResetPlayback, - WinMMStopPlayback, - WinMMOpenCapture, - WinMMCloseCapture, - WinMMStartCapture, - WinMMStopCapture, - WinMMCaptureSamples, - WinMMAvailableSamples -}; - -void alcWinMMInit(BackendFuncs *FuncList) -{ - *FuncList = WinMMFuncs; -} - -void alcWinMMDeinit() -{ - ALuint lLoop; - - for(lLoop = 0;lLoop < NumPlaybackDevices;lLoop++) - free(PlaybackDeviceList[lLoop]); - free(PlaybackDeviceList); - PlaybackDeviceList = NULL; - - NumPlaybackDevices = 0; - - - for(lLoop = 0; lLoop < NumCaptureDevices; lLoop++) - free(CaptureDeviceList[lLoop]); - free(CaptureDeviceList); - CaptureDeviceList = NULL; - - NumCaptureDevices = 0; -} - -void alcWinMMProbe(int type) -{ - ALuint i; - - if(type == DEVICE_PROBE) - { - ProbePlaybackDevices(); - if(NumPlaybackDevices > 0) - AppendDeviceList(woDefault); - } - else if(type == ALL_DEVICE_PROBE) - { - ProbePlaybackDevices(); - if(NumPlaybackDevices > 0) - AppendAllDeviceList(woDefault); - for(i = 0;i < NumPlaybackDevices;i++) - { - if(PlaybackDeviceList[i]) - AppendAllDeviceList(PlaybackDeviceList[i]); - } - } - else if(type == CAPTURE_DEVICE_PROBE) - { - ProbeCaptureDevices(); - for(i = 0;i < NumCaptureDevices;i++) - { - if(CaptureDeviceList[i]) - AppendCaptureDeviceList(CaptureDeviceList[i]); - } - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/Makefile b/internal/c/parts/audio/out/android/other/stuff/Makefile deleted file mode 100644 index 1f84440d3..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/Makefile +++ /dev/null @@ -1,5 +0,0 @@ -ROOTDIR = ../.. -TARGET = System/OpenAL -DEPS = - -include $(ROOTDIR)/library.mk diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alAuxEffectSlot.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alAuxEffectSlot.h deleted file mode 100644 index 1c592ac8e..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alAuxEffectSlot.h +++ /dev/null @@ -1,63 +0,0 @@ -#ifndef _AL_AUXEFFECTSLOT_H_ -#define _AL_AUXEFFECTSLOT_H_ - -#include "AL/al.h" -#include "alEffect.h" -#include "alFilter.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALeffectState ALeffectState; - -typedef struct ALeffectslot -{ - ALeffect effect; - - ALfp Gain; - ALboolean AuxSendAuto; - - ALeffectState *EffectState; - - ALfp WetBuffer[BUFFERSIZE]; - - ALfp ClickRemoval[1]; - ALfp PendingClicks[1]; - - ALuint refcount; - - // Index to itself - ALuint effectslot; - - struct ALeffectslot *next; -} ALeffectslot; - - -ALvoid ReleaseALAuxiliaryEffectSlots(ALCcontext *Context); - - -struct ALeffectState { - ALvoid (*Destroy)(ALeffectState *State); - ALboolean (*DeviceUpdate)(ALeffectState *State, ALCdevice *Device); - ALvoid (*Update)(ALeffectState *State, ALCcontext *Context, const ALeffect *Effect); - ALvoid (*Process)(ALeffectState *State, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]); -}; - -ALeffectState *NoneCreate(void); -ALeffectState *EAXVerbCreate(void); -ALeffectState *VerbCreate(void); -ALeffectState *EchoCreate(void); -ALeffectState *ModulatorCreate(void); - -#define ALEffect_Destroy(a) ((a)->Destroy((a))) -#define ALEffect_DeviceUpdate(a,b) ((a)->DeviceUpdate((a),(b))) -#define ALEffect_Update(a,b,c) ((a)->Update((a),(b),(c))) -#define ALEffect_Process(a,b,c,d,e) ((a)->Process((a),(b),(c),(d),(e))) - - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alBuffer.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alBuffer.h deleted file mode 100644 index e22d839d5..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alBuffer.h +++ /dev/null @@ -1,98 +0,0 @@ -#ifndef _AL_BUFFER_H_ -#define _AL_BUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -/* Input formats (some are currently theoretical) */ -enum UserFmtType { - UserFmtByte, /* AL_BYTE */ - UserFmtUByte, /* AL_UNSIGNED_BYTE */ - UserFmtShort, /* AL_SHORT */ - UserFmtUShort, /* AL_UNSIGNED_SHORT */ - UserFmtInt, /* AL_INT */ - UserFmtUInt, /* AL_UNSIGNED_INT */ - UserFmtFloat, /* AL_FLOAT */ - UserFmtDouble, /* AL_DOUBLE */ - UserFmtMulaw, /* AL_MULAW */ - UserFmtIMA4, /* AL_IMA4 */ -}; -enum UserFmtChannels { - UserFmtMono, /* AL_MONO */ - UserFmtStereo, /* AL_STEREO */ - UserFmtRear, /* AL_REAR */ - UserFmtQuad, /* AL_QUAD */ - UserFmtX51, /* AL_5POINT1 (WFX order) */ - UserFmtX61, /* AL_6POINT1 (WFX order) */ - UserFmtX71, /* AL_7POINT1 (WFX order) */ -}; - -ALboolean DecomposeUserFormat(ALenum format, enum UserFmtChannels *chans, - enum UserFmtType *type); -ALuint BytesFromUserFmt(enum UserFmtType type); -ALuint ChannelsFromUserFmt(enum UserFmtChannels chans); -static __inline ALuint FrameSizeFromUserFmt(enum UserFmtChannels chans, - enum UserFmtType type) -{ - return ChannelsFromUserFmt(chans) * BytesFromUserFmt(type); -} - - -/* Storable formats */ -enum FmtType { - FmtUByte = UserFmtUByte, - FmtShort = UserFmtShort, - FmtFloat = UserFmtFloat, -}; -enum FmtChannels { - FmtMono = UserFmtMono, - FmtStereo = UserFmtStereo, - FmtRear = UserFmtRear, - FmtQuad = UserFmtQuad, - FmtX51 = UserFmtX51, - FmtX61 = UserFmtX61, - FmtX71 = UserFmtX71, -}; - -ALboolean DecomposeFormat(ALenum format, enum FmtChannels *chans, enum FmtType *type); -ALuint BytesFromFmt(enum FmtType type); -ALuint ChannelsFromFmt(enum FmtChannels chans); -static __inline ALuint FrameSizeFromFmt(enum FmtChannels chans, enum FmtType type) -{ - return ChannelsFromFmt(chans) * BytesFromFmt(type); -} - - -typedef struct ALbuffer -{ - ALvoid *data; - ALsizei size; - - ALsizei Frequency; - enum FmtChannels FmtChannels; - enum FmtType FmtType; - - enum UserFmtChannels OriginalChannels; - enum UserFmtType OriginalType; - ALsizei OriginalSize; - ALsizei OriginalAlign; - - ALsizei LoopStart; - ALsizei LoopEnd; - - ALuint refcount; // Number of sources using this buffer (deletion can only occur when this is 0) - - // Index to itself - ALuint buffer; -} ALbuffer; - -ALvoid ReleaseALBuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alDatabuffer.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alDatabuffer.h deleted file mode 100644 index 221855283..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alDatabuffer.h +++ /dev/null @@ -1,33 +0,0 @@ -#ifndef _AL_DATABUFFER_H_ -#define _AL_DATABUFFER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define UNMAPPED 0 -#define MAPPED 1 - -typedef struct ALdatabuffer -{ - ALubyte *data; - ALintptrEXT size; - - ALenum state; - ALenum usage; - - /* Index to self */ - ALuint databuffer; - - struct ALdatabuffer *next; -} ALdatabuffer; - -ALvoid ReleaseALDatabuffers(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alEffect.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alEffect.h deleted file mode 100644 index 041aa3edc..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alEffect.h +++ /dev/null @@ -1,83 +0,0 @@ -// NOTE: The effect structure is getting too large, it may be a good idea to -// start using a union or another form of unified storage. -#ifndef _AL_EFFECT_H_ -#define _AL_EFFECT_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -enum { - EAXREVERB = 0, - REVERB, - ECHO, - MODULATOR, - - MAX_EFFECTS -}; -extern ALboolean DisabledEffects[MAX_EFFECTS]; - -typedef struct ALeffect -{ - // Effect type (AL_EFFECT_NULL, ...) - ALenum type; - - struct { - // Shared Reverb Properties - ALfp Density; - ALfp Diffusion; - ALfp Gain; - ALfp GainHF; - ALfp DecayTime; - ALfp DecayHFRatio; - ALfp ReflectionsGain; - ALfp ReflectionsDelay; - ALfp LateReverbGain; - ALfp LateReverbDelay; - ALfp AirAbsorptionGainHF; - ALfp RoomRolloffFactor; - ALboolean DecayHFLimit; - - // Additional EAX Reverb Properties - ALfp GainLF; - ALfp DecayLFRatio; - ALfp ReflectionsPan[3]; - ALfp LateReverbPan[3]; - ALfp EchoTime; - ALfp EchoDepth; - ALfp ModulationTime; - ALfp ModulationDepth; - ALfp HFReference; - ALfp LFReference; - } Reverb; - - struct { - ALfp Delay; - ALfp LRDelay; - - ALfp Damping; - ALfp Feedback; - - ALfp Spread; - } Echo; - - struct { - ALfp Frequency; - ALfp HighPassCutoff; - ALint Waveform; - } Modulator; - - // Index to itself - ALuint effect; -} ALeffect; - - -ALvoid ReleaseALEffects(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alError.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alError.h deleted file mode 100644 index 7976e50f9..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alError.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef _AL_ERROR_H_ -#define _AL_ERROR_H_ - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -ALvoid alSetError(ALCcontext *Context, ALenum errorCode); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alFilter.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alFilter.h deleted file mode 100644 index 3b17b1f1e..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alFilter.h +++ /dev/null @@ -1,139 +0,0 @@ -#ifndef _AL_FILTER_H_ -#define _AL_FILTER_H_ - -#include "AL/al.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct { - ALfp coeff; -#ifndef _MSC_VER - ALfp history[0]; -#else - ALfp history[1]; -#endif -} FILTER; - -static __inline ALfp lpFilter4P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - output = output + ALfpMult((history[2]-output),a); - history[2] = output; - output = output + ALfpMult((history[3]-output),a); - history[3] = output; - - return output; -} - -static __inline ALfp lpFilter2P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - output = output + ALfpMult((history[1]-output),a); - history[1] = output; - - return output; -} - -static __inline ALfp lpFilter1P(FILTER *iir, ALuint offset, ALfp input) -{ - ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - history[0] = output; - - return output; -} - -static __inline ALfp lpFilter4PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - output = output + ALfpMult((history[2]-output),a); - output = output + ALfpMult((history[3]-output),a); - - return output; -} - -static __inline ALfp lpFilter2PC(const FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - output = output + ALfpMult((history[1]-output),a); - - return output; -} - -static __inline ALfp lpFilter1PC(FILTER *iir, ALuint offset, ALfp input) -{ - const ALfp *history = &iir->history[offset]; - ALfp a = iir->coeff; - ALfp output = input; - - output = output + ALfpMult((history[0]-output),a); - - return output; -} - -/* Calculates the low-pass filter coefficient given the pre-scaled gain and - * cos(w) value. Note that g should be pre-scaled (sqr(gain) for one-pole, - * sqrt(gain) for four-pole, etc) */ -static __inline ALfp lpCoeffCalc(ALfp g, ALfp cw) -{ - ALfp a = int2ALfp(0); - - /* Be careful with gains < 0.01, as that causes the coefficient - * head towards 1, which will flatten the signal */ - g = __max(g, float2ALfp(0.01f)); - if(g < float2ALfp(0.9999f)) /* 1-epsilon */ { - ALfp tmp; tmp = ALfpMult(ALfpMult(int2ALfp(2),g),(int2ALfp(1)-cw)) - ALfpMult(ALfpMult(g,g),(int2ALfp(1) - ALfpMult(cw,cw))); - a = ALfpDiv((int2ALfp(1) - ALfpMult(g,cw) - aluSqrt(tmp)), (int2ALfp(1) - g)); - } - - return a; -} - - -typedef struct ALfilter -{ - // Filter type (AL_FILTER_NULL, ...) - ALenum type; - - ALfp Gain; - ALfp GainHF; - - // Index to itself - ALuint filter; -} ALfilter; - - -ALvoid ReleaseALFilters(ALCdevice *device); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alListener.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alListener.h deleted file mode 100644 index a2fc3ba0f..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alListener.h +++ /dev/null @@ -1,24 +0,0 @@ -#ifndef _AL_LISTENER_H_ -#define _AL_LISTENER_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef struct ALlistener_struct -{ - ALfp Position[3]; - ALfp Velocity[3]; - ALfp Forward[3]; - ALfp Up[3]; - ALfp Gain; - ALfp MetersPerUnit; -} ALlistener; - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alMain.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alMain.h deleted file mode 100644 index 61448b205..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alMain.h +++ /dev/null @@ -1,503 +0,0 @@ -#ifndef AL_MAIN_H -#define AL_MAIN_H - -#include -#include -#include - -#ifdef HAVE_FENV_H -#include -#endif - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#ifndef AL_EXT_sample_buffer_object -#define AL_EXT_sample_buffer_object 1 -typedef ptrdiff_t ALintptrEXT; -typedef ptrdiff_t ALsizeiptrEXT; -#define AL_SAMPLE_SOURCE_EXT 0x1040 -#define AL_SAMPLE_SINK_EXT 0x1041 -#define AL_READ_ONLY_EXT 0x1042 -#define AL_WRITE_ONLY_EXT 0x1043 -#define AL_READ_WRITE_EXT 0x1044 -#define AL_STREAM_WRITE_EXT 0x1045 -#define AL_STREAM_READ_EXT 0x1046 -#define AL_STREAM_COPY_EXT 0x1047 -#define AL_STATIC_WRITE_EXT 0x1048 -#define AL_STATIC_READ_EXT 0x1049 -#define AL_STATIC_COPY_EXT 0x104A -#define AL_DYNAMIC_WRITE_EXT 0x104B -#define AL_DYNAMIC_READ_EXT 0x104C -#define AL_DYNAMIC_COPY_EXT 0x104D -typedef ALvoid (AL_APIENTRY*PFNALGENDATABUFFERSEXTPROC)(ALsizei n,ALuint *puiBuffers); -typedef ALvoid (AL_APIENTRY*PFNALDELETEDATABUFFERSEXTPROC)(ALsizei n, const ALuint *puiBuffers); -typedef ALboolean (AL_APIENTRY*PFNALISDATABUFFEREXTPROC)(ALuint uiBuffer); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERDATAEXTPROC)(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERSUBDATAEXTPROC)(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat flValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, const ALfloat* flValues); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint lValue); -typedef ALvoid (AL_APIENTRY*PFNALDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, const ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFEXTPROC)(ALuint buffer, ALenum eParam, ALfloat *pflValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERFVEXTPROC)(ALuint buffer, ALenum eParam, ALfloat* pflValues); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIEXTPROC)(ALuint buffer, ALenum eParam, ALint *plValue); -typedef ALvoid (AL_APIENTRY*PFNALGETDATABUFFERIVEXTPROC)(ALuint buffer, ALenum eParam, ALint* plValues); -typedef ALvoid (AL_APIENTRY*PFNALSELECTDATABUFFEREXTPROC)(ALenum target, ALuint uiBuffer); -typedef ALvoid* (AL_APIENTRY*PFNALMAPDATABUFFEREXTPROC)(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -typedef ALvoid (AL_APIENTRY*PFNALUNMAPDATABUFFEREXTPROC)(ALuint uiBuffer); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenDatabuffersEXT(ALsizei n,ALuint *puiBuffers); -AL_API ALvoid AL_APIENTRY alDeleteDatabuffersEXT(ALsizei n, const ALuint *puiBuffers); -AL_API ALboolean AL_APIENTRY alIsDatabufferEXT(ALuint uiBuffer); -AL_API ALvoid AL_APIENTRY alDatabufferDataEXT(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage); -AL_API ALvoid AL_APIENTRY alDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *data); -AL_API ALvoid AL_APIENTRY alGetDatabufferSubDataEXT(ALuint buffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *data); -AL_API ALvoid AL_APIENTRY alDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alDatabufferfvEXT(ALuint buffer, ALenum eParam, const ALfloat* flValues); -AL_API ALvoid AL_APIENTRY alDatabufferiEXT(ALuint buffer, ALenum eParam, ALint lValue); -AL_API ALvoid AL_APIENTRY alDatabufferivEXT(ALuint buffer, ALenum eParam, const ALint* plValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferfvEXT(ALuint buffer, ALenum eParam, ALfloat* pflValues); -AL_API ALvoid AL_APIENTRY alGetDatabufferiEXT(ALuint buffer, ALenum eParam, ALint *plValue); -AL_API ALvoid AL_APIENTRY alGetDatabufferivEXT(ALuint buffer, ALenum eParam, ALint* plValues); -AL_API ALvoid AL_APIENTRY alSelectDatabufferEXT(ALenum target, ALuint uiBuffer); -AL_API ALvoid* AL_APIENTRY alMapDatabufferEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access); -AL_API ALvoid AL_APIENTRY alUnmapDatabufferEXT(ALuint uiBuffer); -#endif -#endif - - -#if defined(HAVE_STDINT_H) -#include -typedef int64_t ALint64; -typedef uint64_t ALuint64; -#elif defined(HAVE___INT64) -typedef __int64 ALint64; -typedef unsigned __int64 ALuint64; -#elif (SIZEOF_LONG == 8) -typedef long ALint64; -typedef unsigned long ALuint64; -#elif (SIZEOF_LONG_LONG == 8) -typedef long long ALint64; -typedef unsigned long long ALuint64; -#endif - -#ifdef HAVE_GCC_FORMAT -#define PRINTF_STYLE(x, y) __attribute__((format(__printf__, (x), (y)))) -#else -#define PRINTF_STYLE(x, y) -#endif - -#ifdef _WIN32 - -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0500 -#endif -#include - -typedef DWORD tls_type; -#define tls_create(x) (*(x) = TlsAlloc()) -#define tls_delete(x) TlsFree((x)) -#define tls_get(x) TlsGetValue((x)) -#define tls_set(x, a) TlsSetValue((x), (a)) - -#else - -#include -#include -#include -#ifdef HAVE_PTHREAD_NP_H -#include -#endif -#include -#include -#include - -#define IsBadWritePtr(a,b) ((a) == NULL && (b) != 0) - -typedef pthread_key_t tls_type; -#define tls_create(x) pthread_key_create((x), NULL) -#define tls_delete(x) pthread_key_delete((x)) -#define tls_get(x) pthread_getspecific((x)) -#define tls_set(x, a) pthread_setspecific((x), (a)) - -typedef pthread_mutex_t CRITICAL_SECTION; -static __inline void EnterCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_lock(cs); - assert(ret == 0); -} -static __inline void LeaveCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_unlock(cs); - assert(ret == 0); -} -static __inline void InitializeCriticalSection(CRITICAL_SECTION *cs) -{ - pthread_mutexattr_t attrib; - int ret; - - ret = pthread_mutexattr_init(&attrib); - assert(ret == 0); - - ret = pthread_mutexattr_settype(&attrib, PTHREAD_MUTEX_RECURSIVE); -#ifdef HAVE_PTHREAD_NP_H - if(ret != 0) - ret = pthread_mutexattr_setkind_np(&attrib, PTHREAD_MUTEX_RECURSIVE); -#endif - assert(ret == 0); - ret = pthread_mutex_init(cs, &attrib); - assert(ret == 0); - - pthread_mutexattr_destroy(&attrib); -} - -static __inline void DeleteCriticalSection(CRITICAL_SECTION *cs) -{ - int ret; - ret = pthread_mutex_destroy(cs); - assert(ret == 0); -} - -/* NOTE: This wrapper isn't quite accurate as it returns an ALuint, as opposed - * to the expected DWORD. Both are defined as unsigned 32-bit types, however. - * Additionally, Win32 is supposed to measure the time since Windows started, - * as opposed to the actual time. */ -static __inline ALuint timeGetTime(void) -{ -#if _POSIX_TIMERS > 0 - struct timespec ts; - int ret = -1; - -#if defined(_POSIX_MONOTONIC_CLOCK) && (_POSIX_MONOTONIC_CLOCK >= 0) -#if _POSIX_MONOTONIC_CLOCK == 0 - static int hasmono = 0; - if(hasmono > 0 || (hasmono == 0 && - (hasmono=sysconf(_SC_MONOTONIC_CLOCK)) > 0)) -#endif - ret = clock_gettime(CLOCK_MONOTONIC, &ts); -#endif - if(ret != 0) - ret = clock_gettime(CLOCK_REALTIME, &ts); - assert(ret == 0); - - return ts.tv_nsec/1000000 + ts.tv_sec*1000; -#else - struct timeval tv; - int ret; - - ret = gettimeofday(&tv, NULL); - assert(ret == 0); - - return tv.tv_usec/1000 + tv.tv_sec*1000; -#endif -} - -static __inline void Sleep(ALuint t) -{ - struct timespec tv, rem; - tv.tv_nsec = (t*1000000)%1000000000; - tv.tv_sec = t/1000; - - while(nanosleep(&tv, &rem) == -1 && errno == EINTR) - tv = rem; -} -#define min(x,y) (((x)<(y))?(x):(y)) -#define max(x,y) (((x)>(y))?(x):(y)) -#endif - -#include "alListener.h" -#include "alu.h" - -#ifdef __cplusplus -extern "C" { -#endif - - -#define SWMIXER_OUTPUT_RATE 44100 - -#define SPEEDOFSOUNDMETRESPERSEC (343.3f) -#define AIRABSORBGAINDBHF (-0.05f) - -#define LOWPASSFREQCUTOFF (5000) - -#define DEFAULT_HEAD_DAMPEN (0.25f) - - -// Find the next power-of-2 for non-power-of-2 numbers. -static __inline ALuint NextPowerOf2(ALuint value) -{ - ALuint powerOf2 = 1; - - if(value) - { - value--; - while(value) - { - value >>= 1; - powerOf2 <<= 1; - } - } - return powerOf2; -} - - -typedef struct { - ALCboolean (*OpenPlayback)(ALCdevice*, const ALCchar*); - void (*ClosePlayback)(ALCdevice*); - ALCboolean (*ResetPlayback)(ALCdevice*); - void (*StopPlayback)(ALCdevice*); - - ALCboolean (*OpenCapture)(ALCdevice*, const ALCchar*); - void (*CloseCapture)(ALCdevice*); - void (*StartCapture)(ALCdevice*); - void (*StopCapture)(ALCdevice*); - void (*CaptureSamples)(ALCdevice*, void*, ALCuint); - ALCuint (*AvailableSamples)(ALCdevice*); -} BackendFuncs; - -enum { - DEVICE_PROBE, - ALL_DEVICE_PROBE, - CAPTURE_DEVICE_PROBE -}; - -void alc_alsa_init(BackendFuncs *func_list); -void alc_alsa_deinit(void); -void alc_alsa_probe(int type); -void alc_oss_init(BackendFuncs *func_list); -void alc_oss_deinit(void); -void alc_oss_probe(int type); -void alc_solaris_init(BackendFuncs *func_list); -void alc_solaris_deinit(void); -void alc_solaris_probe(int type); -void alcDSoundInit(BackendFuncs *func_list); -void alcDSoundDeinit(void); -void alcDSoundProbe(int type); -void alcWinMMInit(BackendFuncs *FuncList); -void alcWinMMDeinit(void); -void alcWinMMProbe(int type); -void alc_pa_init(BackendFuncs *func_list); -void alc_pa_deinit(void); -void alc_pa_probe(int type); -void alc_wave_init(BackendFuncs *func_list); -void alc_wave_deinit(void); -void alc_wave_probe(int type); -void alc_pulse_init(BackendFuncs *func_list); -void alc_pulse_deinit(void); -void alc_pulse_probe(int type); -void alc_audiotrack_init(BackendFuncs *func_list); -void alc_audiotrack_deinit(void); -void alc_audiotrack_probe(int type); -void alc_opensles_init(BackendFuncs *func_list); -void alc_opensles_deinit(void); -void alc_opensles_probe(int type); -void alc_null_init(BackendFuncs *func_list); -void alc_null_deinit(void); -void alc_null_probe(int type); - - -typedef struct UIntMap { - struct { - ALuint key; - ALvoid *value; - } *array; - ALsizei size; - ALsizei maxsize; -} UIntMap; - -void InitUIntMap(UIntMap *map); -void ResetUIntMap(UIntMap *map); -ALenum InsertUIntMapEntry(UIntMap *map, ALuint key, ALvoid *value); -void RemoveUIntMapKey(UIntMap *map, ALuint key); -ALvoid *LookupUIntMapKey(UIntMap *map, ALuint key); - -/* Device formats */ -enum DevFmtType { - DevFmtByte, /* AL_BYTE */ - DevFmtUByte, /* AL_UNSIGNED_BYTE */ - DevFmtShort, /* AL_SHORT */ - DevFmtUShort, /* AL_UNSIGNED_SHORT */ - DevFmtFloat, /* AL_FLOAT */ -}; -enum DevFmtChannels { - DevFmtMono, /* AL_MONO */ - DevFmtStereo, /* AL_STEREO */ - DevFmtQuad, /* AL_QUAD */ - DevFmtX51, /* AL_5POINT1 */ - DevFmtX61, /* AL_6POINT1 */ - DevFmtX71, /* AL_7POINT1 */ -}; - -ALuint BytesFromDevFmt(enum DevFmtType type); -ALuint ChannelsFromDevFmt(enum DevFmtChannels chans); -static __inline ALuint FrameSizeFromDevFmt(enum DevFmtChannels chans, - enum DevFmtType type) -{ - return ChannelsFromDevFmt(chans) * BytesFromDevFmt(type); -} - - -struct ALCdevice_struct -{ - ALCboolean Connected; - ALboolean IsCaptureDevice; - - ALuint Frequency; - ALuint UpdateSize; - ALuint NumUpdates; - enum DevFmtChannels FmtChans; - enum DevFmtType FmtType; - - ALCchar *szDeviceName; - - ALCenum LastError; - - // Maximum number of sources that can be created - ALuint MaxNoOfSources; - // Maximum number of slots that can be created - ALuint AuxiliaryEffectSlotMax; - - ALCuint NumMonoSources; - ALCuint NumStereoSources; - ALuint NumAuxSends; - - // Map of Buffers for this device - UIntMap BufferMap; - - // Map of Effects for this device - UIntMap EffectMap; - - // Map of Filters for this device - UIntMap FilterMap; - - // Map of Databuffers for this device - UIntMap DatabufferMap; - - // Stereo-to-binaural filter - struct bs2b *Bs2b; - ALCint Bs2bLevel; - - // Simulated dampening from head occlusion - ALfp HeadDampen; - - // Duplicate stereo sources on the side/rear channels - ALboolean DuplicateStereo; - - // Dry path buffer mix - ALfp DryBuffer[BUFFERSIZE][MAXCHANNELS]; - - ALuint DevChannels[MAXCHANNELS]; - - ALfp ChannelMatrix[MAXCHANNELS][MAXCHANNELS]; - - Channel Speaker2Chan[MAXCHANNELS]; - ALfp PanningLUT[MAXCHANNELS * LUT_NUM]; - ALuint NumChan; - - ALfp ClickRemoval[MAXCHANNELS]; - ALfp PendingClicks[MAXCHANNELS]; - - // Contexts created on this device - ALCcontext **Contexts; - ALuint NumContexts; - - BackendFuncs *Funcs; - void *ExtraData; // For the backend's use - - ALCdevice *next; -}; - -#define ALCdevice_OpenPlayback(a,b) ((a)->Funcs->OpenPlayback((a), (b))) -#define ALCdevice_ClosePlayback(a) ((a)->Funcs->ClosePlayback((a))) -#define ALCdevice_ResetPlayback(a) ((a)->Funcs->ResetPlayback((a))) -#define ALCdevice_StopPlayback(a) ((a)->Funcs->StopPlayback((a))) -#define ALCdevice_OpenCapture(a,b) ((a)->Funcs->OpenCapture((a), (b))) -#define ALCdevice_CloseCapture(a) ((a)->Funcs->CloseCapture((a))) -#define ALCdevice_StartCapture(a) ((a)->Funcs->StartCapture((a))) -#define ALCdevice_StopCapture(a) ((a)->Funcs->StopCapture((a))) -#define ALCdevice_CaptureSamples(a,b,c) ((a)->Funcs->CaptureSamples((a), (b), (c))) -#define ALCdevice_AvailableSamples(a) ((a)->Funcs->AvailableSamples((a))) - -struct ALCcontext_struct -{ - ALlistener Listener; - - UIntMap SourceMap; - UIntMap EffectSlotMap; - - struct ALdatabuffer *SampleSource; - struct ALdatabuffer *SampleSink; - - ALenum LastError; - - ALboolean Suspended; - - ALenum DistanceModel; - ALboolean SourceDistanceModel; - - ALfp DopplerFactor; - ALfp DopplerVelocity; - ALfp flSpeedOfSound; - - struct ALsource **ActiveSources; - ALsizei ActiveSourceCount; - ALsizei MaxActiveSources; - - // Apportable Extension - ALsizei PrioritySlots; - - ALCdevice *Device; - const ALCchar *ExtensionList; - - ALCcontext *next; -}; - -void AppendDeviceList(const ALCchar *name); -void AppendAllDeviceList(const ALCchar *name); -void AppendCaptureDeviceList(const ALCchar *name); - -ALCvoid alcSetError(ALCdevice *device, ALenum errorCode); - -ALCvoid SuspendContext(ALCcontext *context); -ALCvoid ProcessContext(ALCcontext *context); - -ALvoid *StartThread(ALuint (*func)(ALvoid*), ALvoid *ptr); -ALuint StopThread(ALvoid *thread); - -ALCcontext *GetContextSuspended(void); - -typedef struct RingBuffer RingBuffer; -RingBuffer *CreateRingBuffer(ALsizei frame_size, ALsizei length); -void DestroyRingBuffer(RingBuffer *ring); -ALsizei RingBufferSize(RingBuffer *ring); -void WriteRingBuffer(RingBuffer *ring, const ALubyte *data, ALsizei len); -void ReadRingBuffer(RingBuffer *ring, ALubyte *data, ALsizei len); - -void ReadALConfig(void); -void FreeALConfig(void); -int ConfigValueExists(const char *blockName, const char *keyName); -const char *GetConfigValue(const char *blockName, const char *keyName, const char *def); -int GetConfigValueInt(const char *blockName, const char *keyName, int def); -float GetConfigValueFloat(const char *blockName, const char *keyName, float def); -int GetConfigValueBool(const char *blockName, const char *keyName, int def); - -void SetRTPriority(void); - -void SetDefaultChannelOrder(ALCdevice *device); -void SetDefaultWFXChannelOrder(ALCdevice *device); - -void al_print(const char *fname, unsigned int line, const char *fmt, ...) - PRINTF_STYLE(3,4); -#define AL_PRINT(...) al_print(__FILE__, __LINE__, __VA_ARGS__) - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alSource.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alSource.h deleted file mode 100644 index b4a91e9d1..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alSource.h +++ /dev/null @@ -1,124 +0,0 @@ -#ifndef _AL_SOURCE_H_ -#define _AL_SOURCE_H_ - -#define MAX_SENDS 4 - -#include "alFilter.h" -#include "alu.h" -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - POINT_RESAMPLER = 0, - LINEAR_RESAMPLER, - CUBIC_RESAMPLER, - - RESAMPLER_MAX, - RESAMPLER_MIN = -1, - RESAMPLER_DEFAULT = LINEAR_RESAMPLER -} resampler_t; -extern resampler_t DefaultResampler; - -extern const ALsizei ResamplerPadding[RESAMPLER_MAX]; -extern const ALsizei ResamplerPrePadding[RESAMPLER_MAX]; - - -typedef struct ALbufferlistitem -{ - struct ALbuffer *buffer; - struct ALbufferlistitem *next; - struct ALbufferlistitem *prev; -} ALbufferlistitem; - -typedef struct ALsource -{ - ALfp flPitch; - ALfp flGain; - ALfp flOuterGain; - ALfp flMinGain; - ALfp flMaxGain; - ALfp flInnerAngle; - ALfp flOuterAngle; - ALfp flRefDistance; - ALfp flMaxDistance; - ALfp flRollOffFactor; - ALfp vPosition[3]; - ALfp vVelocity[3]; - ALfp vOrientation[3]; - ALboolean bHeadRelative; - ALboolean bLooping; - ALenum DistanceModel; - - // Apportably Extension - ALuint priority; - - resampler_t Resampler; - - ALenum state; - ALuint position; - ALuint position_fraction; - - struct ALbuffer *Buffer; - - ALbufferlistitem *queue; // Linked list of buffers in queue - ALuint BuffersInQueue; // Number of buffers in queue - ALuint BuffersPlayed; // Number of buffers played on this loop - - ALfilter DirectFilter; - - struct { - struct ALeffectslot *Slot; - ALfilter WetFilter; - } Send[MAX_SENDS]; - - ALboolean DryGainHFAuto; - ALboolean WetGainAuto; - ALboolean WetGainHFAuto; - ALfp OuterGainHF; - - ALfp AirAbsorptionFactor; - ALfp RoomRolloffFactor; - ALfp DopplerFactor; - - ALint lOffset; - ALint lOffsetType; - - // Source Type (Static, Streaming, or Undetermined) - ALint lSourceType; - - // Current target parameters used for mixing - ALboolean NeedsUpdate; - struct { - ALint Step; - - /* A mixing matrix. First subscript is the channel number of the input - * data (regardless of channel configuration) and the second is the - * channel target (eg. FRONT_LEFT) */ - ALfp DryGains[MAXCHANNELS][MAXCHANNELS]; - FILTER iirFilter; - ALfp history[MAXCHANNELS*2]; - - struct { - ALfp WetGain; - FILTER iirFilter; - ALfp history[MAXCHANNELS]; - } Send[MAX_SENDS]; - } Params; - - ALvoid (*Update)(struct ALsource *self, const ALCcontext *context); - - // Index to itself - ALuint source; -} ALsource; -#define ALsource_Update(s,a) ((s)->Update(s,a)) - -ALvoid ReleaseALSources(ALCcontext *Context); - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alState.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alState.h deleted file mode 100644 index 332176b03..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alState.h +++ /dev/null @@ -1,14 +0,0 @@ -#ifndef _AL_STATE_H_ -#define _AL_STATE_H_ - -#include "AL/al.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alThunk.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alThunk.h deleted file mode 100644 index 902f00e54..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alThunk.h +++ /dev/null @@ -1,42 +0,0 @@ -#ifndef _AL_THUNK_H_ -#define _AL_THUNK_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -void alThunkInit(void); -void alThunkExit(void); -ALuint alThunkAddEntry(ALvoid *ptr); -void alThunkRemoveEntry(ALuint index); -ALvoid *alThunkLookupEntry(ALuint index); - -#if (SIZEOF_VOIDP > SIZEOF_UINT) - -#define ALTHUNK_INIT() alThunkInit() -#define ALTHUNK_EXIT() alThunkExit() -#define ALTHUNK_ADDENTRY(p) alThunkAddEntry(p) -#define ALTHUNK_REMOVEENTRY(i) alThunkRemoveEntry(i) -#define ALTHUNK_LOOKUPENTRY(i) alThunkLookupEntry(i) - -#else - -#define ALTHUNK_INIT() -#define ALTHUNK_EXIT() -#define ALTHUNK_ADDENTRY(p) ((ALuint)p) -#define ALTHUNK_REMOVEENTRY(i) ((ALvoid)i) -#define ALTHUNK_LOOKUPENTRY(i) ((ALvoid*)(i)) - -#endif // (SIZEOF_VOIDP > SIZEOF_INT) - -#ifdef __cplusplus -} -#endif - -#endif //_AL_THUNK_H_ - diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alu.h b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alu.h deleted file mode 100644 index 508eb3800..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/Include/alu.h +++ /dev/null @@ -1,140 +0,0 @@ -#ifndef _ALU_H_ -#define _ALU_H_ - -#include "config.h" - -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" - -#include -#include -#ifdef HAVE_FLOAT_H -#include -#endif - -#ifndef M_PI -#define M_PI 3.14159265358979323846 /* pi */ -#define M_PI_2 1.57079632679489661923 /* pi/2 */ -#endif - -#ifdef HAVE_POWF -#define aluPow(x,y) (float2ALfp(powf(ALfp2float(x), ALfp2float(y)))) -#else -#define aluPow(x,y) (float2ALfp((float)pow((double)ALfp2float(x), (double)ALfp2float(y)))) -#endif - -#ifdef HAVE_SQRTF -#define aluSqrt(x) (float2ALfp(sqrtf(ALfp2float(x)))) -#else -#define aluSqrt(x) (float2ALfp((float)sqrt((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ACOSF -#define aluAcos(x) (float2ALfp(acosf(ALfp2float(x)))) -#else -#define aluAcos(x) (float2ALfp((float)acos((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_ATANF -#define aluAtan(x) (float2ALfp(atanf(ALfp2float(x)))) -#else -#define aluAtan(x) (float2ALfp((float)atan((double)ALfp2float(x)))) -#endif - -#ifdef HAVE_FABSF -#define aluFabs(x) (float2ALfp(fabsf(ALfp2float(x)))) -#else -#define aluFabs(x) (float2ALfp((float)fabs((double)ALfp2float(x)))) -#endif - -// FIXME make this better -#if defined(max) && !defined(__max) -#define __max(x,y) float2ALfp(max(ALfp2float(x),ALfp2float(y))) -#endif -#if defined(min) && !defined(__min) -#define __min(x,y) float2ALfp(min(ALfp2float(x),ALfp2float(y))) -#endif - -#define QUADRANT_NUM 128 -#define LUT_NUM (4 * QUADRANT_NUM) - -#ifdef __cplusplus -extern "C" { -#endif - -typedef enum { - FRONT_LEFT = 0, - FRONT_RIGHT, - FRONT_CENTER, - LFE, - BACK_LEFT, - BACK_RIGHT, - BACK_CENTER, - SIDE_LEFT, - SIDE_RIGHT, -} Channel; - -#ifndef MAXCHANNELS -#define MAXCHANNELS (SIDE_RIGHT+1) -#error MAXCHANNELS -#endif - -#define BUFFERSIZE 4096 - -#define FRACTIONBITS (14) -#define FRACTIONONE (1< -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alAuxEffectSlot.h" -#include "alThunk.h" -#include "alError.h" -#include "alSource.h" - - -static ALvoid InitializeEffect(ALCcontext *Context, ALeffectslot *EffectSlot, ALeffect *effect); - -#define LookupEffectSlot(m, k) ((ALeffectslot*)LookupUIntMapKey(&(m), (k))) -#define LookupEffect(m, k) ((ALeffect*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(n < 0 || IsBadWritePtr((void*)effectslots, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else if((ALuint)n > Device->AuxiliaryEffectSlotMax - Context->EffectSlotMap.size) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALenum err; - ALsizei i, j; - - i = 0; - while(i < n) - { - ALeffectslot *slot = calloc(1, sizeof(ALeffectslot)); - if(!slot || !(slot->EffectState=NoneCreate())) - { - free(slot); - // We must have run out or memory - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteAuxiliaryEffectSlots(i, effectslots); - break; - } - - slot->effectslot = (ALuint)ALTHUNK_ADDENTRY(slot); - err = InsertUIntMapEntry(&Context->EffectSlotMap, - slot->effectslot, slot); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(slot->effectslot); - ALEffect_Destroy(slot->EffectState); - free(slot); - - alSetError(Context, err); - alDeleteAuxiliaryEffectSlots(i, effectslots); - break; - } - - effectslots[i++] = slot->effectslot; - - slot->Gain = int2ALfp(1); - slot->AuxSendAuto = AL_TRUE; - for(j = 0;j < BUFFERSIZE;j++) - slot->WetBuffer[j] = int2ALfp(0); - for(j = 0;j < 1;j++) - { - slot->ClickRemoval[j] = int2ALfp(0); - slot->PendingClicks[j] = int2ALfp(0); - } - slot->refcount = 0; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - ALboolean SlotsValid = AL_FALSE; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - SlotsValid = AL_TRUE; - // Check that all effectslots are valid - for(i = 0;i < n;i++) - { - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslots[i])) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - SlotsValid = AL_FALSE; - break; - } - else if(EffectSlot->refcount > 0) - { - alSetError(Context, AL_INVALID_NAME); - SlotsValid = AL_FALSE; - break; - } - } - } - - if(SlotsValid) - { - // All effectslots are valid - for(i = 0;i < n;i++) - { - // Recheck that the effectslot is valid, because there could be duplicated names - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslots[i])) == NULL) - continue; - - ALEffect_Destroy(EffectSlot->EffectState); - - RemoveUIntMapKey(&Context->EffectSlotMap, EffectSlot->effectslot); - ALTHUNK_REMOVEENTRY(EffectSlot->effectslot); - - memset(EffectSlot, 0, sizeof(ALeffectslot)); - free(EffectSlot); - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = (LookupEffectSlot(Context->EffectSlotMap, effectslot) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue) -{ - ALCdevice *Device; - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - ALeffectslot *EffectSlot; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: { - ALeffect *effect = NULL; - - if(iValue == 0 || - (effect=LookupEffect(Device->EffectMap, iValue)) != NULL) - { - InitializeEffect(Context, EffectSlot, effect); - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - } break; - - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - if(iValue == AL_TRUE || iValue == AL_FALSE) - { - EffectSlot->AuxSendAuto = iValue; - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - // Force updating the sources that use this slot, since it affects the - // sending parameters - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - ALuint i; - for(i = 0;i < Device->NumAuxSends;i++) - { - if(!source->Send[i].Slot || - source->Send[i].Slot->effectslot != effectslot) - continue; - source->NeedsUpdate = AL_TRUE; - break; - } - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - alAuxiliaryEffectSloti(effectslot, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flArg) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - ALfp flValue = float2ALfp(flArg); - - Context = GetContextSuspended(); - if(!Context) return; - - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - if(flValue >= int2ALfp(0) && flValue <= int2ALfp(1)) - EffectSlot->Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - alAuxiliaryEffectSlotf(effectslot, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - - Context = GetContextSuspended(); - if(!Context) return; - - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: - *piValue = EffectSlot->effect.effect; - break; - - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - *piValue = EffectSlot->AuxSendAuto; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_EFFECT: - case AL_EFFECTSLOT_AUXILIARY_SEND_AUTO: - alGetAuxiliaryEffectSloti(effectslot, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue) -{ - ALCcontext *Context; - ALeffectslot *EffectSlot; - - Context = GetContextSuspended(); - if(!Context) return; - - if((EffectSlot=LookupEffectSlot(Context->EffectSlotMap, effectslot)) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - *pflValue = ALfp2float(EffectSlot->Gain); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(LookupEffectSlot(Context->EffectSlotMap, effectslot) != NULL) - { - switch(param) - { - case AL_EFFECTSLOT_GAIN: - alGetAuxiliaryEffectSlotf(effectslot, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - - -static ALvoid NoneDestroy(ALeffectState *State) -{ free(State); } -static ALboolean NoneDeviceUpdate(ALeffectState *State, ALCdevice *Device) -{ - return AL_TRUE; - (void)State; - (void)Device; -} -static ALvoid NoneUpdate(ALeffectState *State, ALCcontext *Context, const ALeffect *Effect) -{ - (void)State; - (void)Context; - (void)Effect; -} -static ALvoid NoneProcess(ALeffectState *State, const ALeffectslot *Slot, ALuint SamplesToDo, const ALfp *SamplesIn, ALfp (*SamplesOut)[MAXCHANNELS]) -{ - (void)State; - (void)Slot; - (void)SamplesToDo; - (void)SamplesIn; - (void)SamplesOut; -} -ALeffectState *NoneCreate(void) -{ - ALeffectState *state; - - state = calloc(1, sizeof(*state)); - if(!state) - return NULL; - - state->Destroy = NoneDestroy; - state->DeviceUpdate = NoneDeviceUpdate; - state->Update = NoneUpdate; - state->Process = NoneProcess; - - return state; -} - -static ALvoid InitializeEffect(ALCcontext *Context, ALeffectslot *EffectSlot, ALeffect *effect) -{ - if(EffectSlot->effect.type != (effect?effect->type:AL_EFFECT_NULL)) - { - ALeffectState *NewState = NULL; - if(!effect || effect->type == AL_EFFECT_NULL) - NewState = NoneCreate(); - else if(effect->type == AL_EFFECT_EAXREVERB) - NewState = EAXVerbCreate(); - else if(effect->type == AL_EFFECT_REVERB) - NewState = VerbCreate(); - else if(effect->type == AL_EFFECT_ECHO) - NewState = EchoCreate(); - else if(effect->type == AL_EFFECT_RING_MODULATOR) - NewState = ModulatorCreate(); - /* No new state? An error occured.. */ - if(NewState == NULL || - ALEffect_DeviceUpdate(NewState, Context->Device) == AL_FALSE) - { - if(NewState) - ALEffect_Destroy(NewState); - alSetError(Context, AL_OUT_OF_MEMORY); - return; - } - if(EffectSlot->EffectState) - ALEffect_Destroy(EffectSlot->EffectState); - EffectSlot->EffectState = NewState; - } - if(!effect) - memset(&EffectSlot->effect, 0, sizeof(EffectSlot->effect)); - else - memcpy(&EffectSlot->effect, effect, sizeof(*effect)); - ALEffect_Update(EffectSlot->EffectState, Context, effect); -} - - -ALvoid ReleaseALAuxiliaryEffectSlots(ALCcontext *Context) -{ - ALsizei pos; - for(pos = 0;pos < Context->EffectSlotMap.size;pos++) - { - ALeffectslot *temp = Context->EffectSlotMap.array[pos].value; - Context->EffectSlotMap.array[pos].value = NULL; - - // Release effectslot structure - ALEffect_Destroy(temp->EffectState); - - ALTHUNK_REMOVEENTRY(temp->effectslot); - memset(temp, 0, sizeof(ALeffectslot)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alBuffer.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alBuffer.c deleted file mode 100644 index 8d83ac4b8..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alBuffer.c +++ /dev/null @@ -1,1897 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include - -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alError.h" -#include "alBuffer.h" -#include "alDatabuffer.h" -#include "alThunk.h" - - -static ALenum LoadData(ALbuffer *ALBuf, ALuint freq, ALenum NewFormat, ALsizei size, enum UserFmtChannels chans, enum UserFmtType type, const ALvoid *data); -static void ConvertData(ALvoid *dst, enum FmtType dstType, const ALvoid *src, enum UserFmtType srcType, ALsizei len); -static void ConvertDataIMA4(ALvoid *dst, enum FmtType dstType, const ALvoid *src, ALint chans, ALsizei len); - -#define LookupBuffer(m, k) ((ALbuffer*)LookupUIntMapKey(&(m), (k))) - - -/* - * Global Variables - */ - -/* IMA ADPCM Stepsize table */ -static const long IMAStep_size[89] = { - 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, - 21, 23, 25, 28, 31, 34, 37, 41, 45, 50, 55, - 60, 66, 73, 80, 88, 97, 107, 118, 130, 143, 157, - 173, 190, 209, 230, 253, 279, 307, 337, 371, 408, 449, - 494, 544, 598, 658, 724, 796, 876, 963, 1060, 1166, 1282, - 1411, 1552, 1707, 1878, 2066, 2272, 2499, 2749, 3024, 3327, 3660, - 4026, 4428, 4871, 5358, 5894, 6484, 7132, 7845, 8630, 9493,10442, - 11487,12635,13899,15289,16818,18500,20350,22358,24633,27086,29794, - 32767 -}; - -/* IMA4 ADPCM Codeword decode table */ -static const long IMA4Codeword[16] = { - 1, 3, 5, 7, 9, 11, 13, 15, - -1,-3,-5,-7,-9,-11,-13,-15, -}; - -/* IMA4 ADPCM Step index adjust decode table */ -static const long IMA4Index_adjust[16] = { - -1,-1,-1,-1, 2, 4, 6, 8, - -1,-1,-1,-1, 2, 4, 6, 8 -}; - -/* A quick'n'dirty lookup table to decode a muLaw-encoded byte sample into a - * signed 16-bit sample */ -static const ALshort muLawDecompressionTable[256] = { - -32124,-31100,-30076,-29052,-28028,-27004,-25980,-24956, - -23932,-22908,-21884,-20860,-19836,-18812,-17788,-16764, - -15996,-15484,-14972,-14460,-13948,-13436,-12924,-12412, - -11900,-11388,-10876,-10364, -9852, -9340, -8828, -8316, - -7932, -7676, -7420, -7164, -6908, -6652, -6396, -6140, - -5884, -5628, -5372, -5116, -4860, -4604, -4348, -4092, - -3900, -3772, -3644, -3516, -3388, -3260, -3132, -3004, - -2876, -2748, -2620, -2492, -2364, -2236, -2108, -1980, - -1884, -1820, -1756, -1692, -1628, -1564, -1500, -1436, - -1372, -1308, -1244, -1180, -1116, -1052, -988, -924, - -876, -844, -812, -780, -748, -716, -684, -652, - -620, -588, -556, -524, -492, -460, -428, -396, - -372, -356, -340, -324, -308, -292, -276, -260, - -244, -228, -212, -196, -180, -164, -148, -132, - -120, -112, -104, -96, -88, -80, -72, -64, - -56, -48, -40, -32, -24, -16, -8, 0, - 32124, 31100, 30076, 29052, 28028, 27004, 25980, 24956, - 23932, 22908, 21884, 20860, 19836, 18812, 17788, 16764, - 15996, 15484, 14972, 14460, 13948, 13436, 12924, 12412, - 11900, 11388, 10876, 10364, 9852, 9340, 8828, 8316, - 7932, 7676, 7420, 7164, 6908, 6652, 6396, 6140, - 5884, 5628, 5372, 5116, 4860, 4604, 4348, 4092, - 3900, 3772, 3644, 3516, 3388, 3260, 3132, 3004, - 2876, 2748, 2620, 2492, 2364, 2236, 2108, 1980, - 1884, 1820, 1756, 1692, 1628, 1564, 1500, 1436, - 1372, 1308, 1244, 1180, 1116, 1052, 988, 924, - 876, 844, 812, 780, 748, 716, 684, 652, - 620, 588, 556, 524, 492, 460, 428, 396, - 372, 356, 340, 324, 308, 292, 276, 260, - 244, 228, 212, 196, 180, 164, 148, 132, - 120, 112, 104, 96, 88, 80, 72, 64, - 56, 48, 40, 32, 24, 16, 8, 0 -}; - -/* Values used when encoding a muLaw sample */ -static const int muLawBias = 0x84; -static const int muLawClip = 32635; -static const char muLawCompressTable[256] = -{ - 0,0,1,1,2,2,2,2,3,3,3,3,3,3,3,3, - 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, - 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, - 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, - 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7 -}; - -/* - * alGenBuffers(ALsizei n, ALuint *buffers) - * - * Generates n AL Buffers, and stores the Buffers Names in the array pointed - * to by buffers - */ -AL_API ALvoid AL_APIENTRY alGenBuffers(ALsizei n, ALuint *buffers) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - /* Check that we are actually generating some Buffers */ - if(n < 0 || IsBadWritePtr((void*)buffers, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - // Create all the new Buffers - while(i < n) - { - ALbuffer *buffer = calloc(1, sizeof(ALbuffer)); - if(!buffer) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteBuffers(i, buffers); - break; - } - - buffer->buffer = (ALuint)ALTHUNK_ADDENTRY(buffer); - err = InsertUIntMapEntry(&device->BufferMap, buffer->buffer, buffer); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(buffer->buffer); - memset(buffer, 0, sizeof(ALbuffer)); - free(buffer); - - alSetError(Context, err); - alDeleteBuffers(i, buffers); - break; - } - buffers[i++] = buffer->buffer; - } - } - - ProcessContext(Context); -} - -/* - * alDeleteBuffers(ALsizei n, ALuint *buffers) - * - * Deletes the n AL Buffers pointed to by buffers - */ -AL_API ALvoid AL_APIENTRY alDeleteBuffers(ALsizei n, const ALuint *buffers) -{ - ALCcontext *Context; - ALCdevice *device; - ALboolean Failed; - ALbuffer *ALBuf; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - Failed = AL_TRUE; - device = Context->Device; - /* Check we are actually Deleting some Buffers */ - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - - /* Check that all the buffers are valid and can actually be deleted */ - for(i = 0;i < n;i++) - { - if(!buffers[i]) - continue; - - /* Check for valid Buffer ID */ - if((ALBuf=LookupBuffer(device->BufferMap, buffers[i])) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - else if(ALBuf->refcount != 0) - { - /* Buffer still in use, cannot be deleted */ - alSetError(Context, AL_INVALID_OPERATION); - Failed = AL_TRUE; - break; - } - } - } - - /* If all the Buffers were valid (and have Reference Counts of 0), then we - * can delete them */ - if(!Failed) - { - for(i = 0;i < n;i++) - { - if((ALBuf=LookupBuffer(device->BufferMap, buffers[i])) == NULL) - continue; - - /* Release the memory used to store audio data */ - free(ALBuf->data); - - /* Release buffer structure */ - RemoveUIntMapKey(&device->BufferMap, ALBuf->buffer); - ALTHUNK_REMOVEENTRY(ALBuf->buffer); - - memset(ALBuf, 0, sizeof(ALbuffer)); - free(ALBuf); - } - } - - ProcessContext(Context); -} - -/* - * alIsBuffer(ALuint buffer) - * - * Checks if buffer is a valid Buffer Name - */ -AL_API ALboolean AL_APIENTRY alIsBuffer(ALuint buffer) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = ((!buffer || LookupBuffer(Context->Device->BufferMap, buffer)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -/* - * alBufferData(ALuint buffer, ALenum format, const ALvoid *data, - * ALsizei size, ALsizei freq) - * - * Fill buffer with audio data - */ -AL_API ALvoid AL_APIENTRY alBufferData(ALuint buffer,ALenum format,const ALvoid *data,ALsizei size,ALsizei freq) -{ - enum UserFmtChannels SrcChannels; - enum UserFmtType SrcType; - ALCcontext *Context; - ALCdevice *device; - ALbuffer *ALBuf; - ALenum err; - - Context = GetContextSuspended(); - if(!Context) return; - - if(Context->SampleSource) - { - ALintptrEXT offset; - - if(Context->SampleSource->state == MAPPED) - { - alSetError(Context, AL_INVALID_OPERATION); - ProcessContext(Context); - return; - } - - offset = (const ALubyte*)data - (ALubyte*)NULL; - data = Context->SampleSource->data + offset; - } - - device = Context->Device; - if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(Context, AL_INVALID_NAME); - else if(ALBuf->refcount != 0) - alSetError(Context, AL_INVALID_VALUE); - else if(size < 0 || freq < 0) - alSetError(Context, AL_INVALID_VALUE); - else if(DecomposeUserFormat(format, &SrcChannels, &SrcType) == AL_FALSE) - alSetError(Context, AL_INVALID_ENUM); - else switch(SrcType) - { - case UserFmtByte: - case UserFmtUByte: - case UserFmtShort: - case UserFmtUShort: - case UserFmtInt: - case UserFmtUInt: - case UserFmtFloat: - err = LoadData(ALBuf, freq, format, size, SrcChannels, SrcType, data); - if(err != AL_NO_ERROR) - alSetError(Context, err); - break; - - case UserFmtDouble: { - ALenum NewFormat = AL_FORMAT_MONO_FLOAT32; - switch(SrcChannels) - { - case UserFmtMono: NewFormat = AL_FORMAT_MONO_FLOAT32; break; - case UserFmtStereo: NewFormat = AL_FORMAT_STEREO_FLOAT32; break; - case UserFmtRear: NewFormat = AL_FORMAT_REAR32; break; - case UserFmtQuad: NewFormat = AL_FORMAT_QUAD32; break; - case UserFmtX51: NewFormat = AL_FORMAT_51CHN32; break; - case UserFmtX61: NewFormat = AL_FORMAT_61CHN32; break; - case UserFmtX71: NewFormat = AL_FORMAT_71CHN32; break; - } - err = LoadData(ALBuf, freq, NewFormat, size, SrcChannels, SrcType, data); - if(err != AL_NO_ERROR) - alSetError(Context, err); - } break; - - case UserFmtMulaw: - case UserFmtIMA4: { - ALenum NewFormat = AL_FORMAT_MONO16; - switch(SrcChannels) - { - case UserFmtMono: NewFormat = AL_FORMAT_MONO16; break; - case UserFmtStereo: NewFormat = AL_FORMAT_STEREO16; break; - case UserFmtRear: NewFormat = AL_FORMAT_REAR16; break; - case UserFmtQuad: NewFormat = AL_FORMAT_QUAD16; break; - case UserFmtX51: NewFormat = AL_FORMAT_51CHN16; break; - case UserFmtX61: NewFormat = AL_FORMAT_61CHN16; break; - case UserFmtX71: NewFormat = AL_FORMAT_71CHN16; break; - } - err = LoadData(ALBuf, freq, NewFormat, size, SrcChannels, SrcType, data); - if(err != AL_NO_ERROR) - alSetError(Context, err); - } break; - } - - ProcessContext(Context); -} - -/* - * alBufferSubDataSOFT(ALuint buffer, ALenum format, const ALvoid *data, - * ALsizei offset, ALsizei length) - * - * Update buffer's audio data - */ -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length) -{ - enum UserFmtChannels SrcChannels; - enum UserFmtType SrcType; - ALCcontext *Context; - ALCdevice *device; - ALbuffer *ALBuf; - - Context = GetContextSuspended(); - if(!Context) return; - - if(Context->SampleSource) - { - - if(Context->SampleSource->state == MAPPED) - { - alSetError(Context, AL_INVALID_OPERATION); - ProcessContext(Context); - return; - } - - offset = (const ALubyte*)data - (ALubyte*)NULL; - data = Context->SampleSource->data + offset; - } - - device = Context->Device; - if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(Context, AL_INVALID_NAME); - else if(length < 0 || offset < 0 || (length > 0 && data == NULL)) - alSetError(Context, AL_INVALID_VALUE); - else if(DecomposeUserFormat(format, &SrcChannels, &SrcType) == AL_FALSE || - SrcChannels != ALBuf->OriginalChannels || - SrcType != ALBuf->OriginalType) - alSetError(Context, AL_INVALID_ENUM); - else if(offset > ALBuf->OriginalSize || - length > ALBuf->OriginalSize-offset || - (offset%ALBuf->OriginalAlign) != 0 || - (length%ALBuf->OriginalAlign) != 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - if(SrcType == UserFmtIMA4) - { - ALuint Channels = ChannelsFromFmt(ALBuf->FmtChannels); - ALuint Bytes = BytesFromFmt(ALBuf->FmtType); - - /* offset -> byte offset, length -> block count */ - offset /= 36; - offset *= 65; - offset *= Bytes; - length /= ALBuf->OriginalAlign; - - ConvertDataIMA4(&((ALubyte*)ALBuf->data)[offset], ALBuf->FmtType, - data, Channels, length); - } - else - { - ALuint OldBytes = BytesFromUserFmt(SrcType); - ALuint Bytes = BytesFromFmt(ALBuf->FmtType); - - offset /= OldBytes; - offset *= Bytes; - length /= OldBytes; - - ConvertData(&((ALubyte*)ALBuf->data)[offset], ALBuf->FmtType, - data, SrcType, length); - } - } - - ProcessContext(Context); -} - - -AL_API void AL_APIENTRY alBufferf(ALuint buffer, ALenum eParam, ALfloat flValue) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)flValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBuffer3f(ALuint buffer, ALenum eParam, ALfloat flValue1, ALfloat flValue2, ALfloat flValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)flValue1; - (void)flValue2; - (void)flValue3; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBufferfv(ALuint buffer, ALenum eParam, const ALfloat* flValues) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!flValues) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBufferi(ALuint buffer, ALenum eParam, ALint lValue) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)lValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBuffer3i( ALuint buffer, ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - (void)lValue1; - (void)lValue2; - (void)lValue3; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alBufferiv(ALuint buffer, ALenum eParam, const ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *device; - ALbuffer *ALBuf; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValues) - alSetError(pContext, AL_INVALID_VALUE); - else if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - case AL_LOOP_POINTS_SOFT: - if(ALBuf->refcount > 0) - alSetError(pContext, AL_INVALID_OPERATION); - else if(plValues[0] < 0 || plValues[1] < 0 || - plValues[0] >= plValues[1] || ALBuf->size == 0) - alSetError(pContext, AL_INVALID_VALUE); - else - { - ALint maxlen = ALBuf->size / - FrameSizeFromFmt(ALBuf->FmtChannels, ALBuf->FmtType); - if(plValues[0] > maxlen || plValues[1] > maxlen) - alSetError(pContext, AL_INVALID_VALUE); - else - { - ALBuf->LoopStart = plValues[0]; - ALBuf->LoopEnd = plValues[1]; - } - } - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetBufferf(ALuint buffer, ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!pflValue) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBuffer3f(ALuint buffer, ALenum eParam, ALfloat* pflValue1, ALfloat* pflValue2, ALfloat* pflValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!pflValue1 || !pflValue2 || !pflValue3) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBufferfv(ALuint buffer, ALenum eParam, ALfloat* pflValues) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!pflValues) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetBufferi(ALuint buffer, ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - ALbuffer *pBuffer; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValue) - alSetError(pContext, AL_INVALID_VALUE); - else if((pBuffer=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - case AL_FREQUENCY: - *plValue = pBuffer->Frequency; - break; - - case AL_BITS: - *plValue = BytesFromFmt(pBuffer->FmtType) * 8; - break; - - case AL_CHANNELS: - *plValue = ChannelsFromFmt(pBuffer->FmtChannels); - break; - - case AL_SIZE: - *plValue = pBuffer->size; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBuffer3i(ALuint buffer, ALenum eParam, ALint* plValue1, ALint* plValue2, ALint* plValue3) -{ - ALCcontext *pContext; - ALCdevice *device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValue1 || !plValue2 || !plValue3) - alSetError(pContext, AL_INVALID_VALUE); - else if(LookupBuffer(device->BufferMap, buffer) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetBufferiv(ALuint buffer, ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *device; - ALbuffer *ALBuf; - - pContext = GetContextSuspended(); - if(!pContext) return; - - device = pContext->Device; - if(!plValues) - alSetError(pContext, AL_INVALID_VALUE); - else if((ALBuf=LookupBuffer(device->BufferMap, buffer)) == NULL) - alSetError(pContext, AL_INVALID_NAME); - else - { - switch(eParam) - { - case AL_FREQUENCY: - case AL_BITS: - case AL_CHANNELS: - case AL_SIZE: - alGetBufferi(buffer, eParam, plValues); - break; - - case AL_LOOP_POINTS_SOFT: - plValues[0] = ALBuf->LoopStart; - plValues[1] = ALBuf->LoopEnd; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - - ProcessContext(pContext); -} - - -typedef ALubyte ALmulaw; - -static __inline ALshort DecodeMuLaw(ALmulaw val) -{ return muLawDecompressionTable[val]; } - -static ALmulaw EncodeMuLaw(ALshort val) -{ - ALint mant, exp, sign; - - sign = (val>>8) & 0x80; - if(sign) - { - /* -32768 doesn't properly negate on a short; it results in itself. - * So clamp to -32767 */ - val = max(val, -32767); - val = -val; - } - - val = min(val, muLawClip); - val += muLawBias; - - exp = muLawCompressTable[(val>>7) & 0xff]; - mant = (val >> (exp+3)) & 0x0f; - - return ~(sign | (exp<<4) | mant); -} - -static void DecodeIMA4Block(ALshort *dst, const ALubyte *src, ALint numchans) -{ - ALint sample[MAXCHANNELS], index[MAXCHANNELS]; - ALuint code[MAXCHANNELS]; - ALsizei j,k,c; - - for(c = 0;c < numchans;c++) - { - sample[c] = *(src++); - sample[c] |= *(src++) << 8; - sample[c] = (sample[c]^0x8000) - 32768; - index[c] = *(src++); - index[c] |= *(src++) << 8; - index[c] = (index[c]^0x8000) - 32768; - - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - dst[c] = sample[c]; - } - - j = 1; - while(j < 65) - { - for(c = 0;c < numchans;c++) - { - code[c] = *(src++); - code[c] |= *(src++) << 8; - code[c] |= *(src++) << 16; - code[c] |= *(src++) << 24; - } - - for(k = 0;k < 8;k++,j++) - { - for(c = 0;c < numchans;c++) - { - int nibble = code[c]&0xf; - code[c] >>= 4; - - sample[c] += IMA4Codeword[nibble] * IMAStep_size[index[c]] / 8; - sample[c] = max(-32768, sample[c]); - sample[c] = min(sample[c], 32767); - - index[c] += IMA4Index_adjust[nibble]; - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - dst[j*numchans + c] = sample[c]; - } - } - } -} - -static void EncodeIMA4Block(ALubyte *dst, const ALshort *src, ALint *sample, ALint *index, ALint numchans) -{ - ALsizei j,k,c; - - for(c = 0;c < numchans;c++) - { - int diff = src[c] - sample[c]; - int step = IMAStep_size[index[c]]; - int nibble; - - nibble = 0; - if(diff < 0) - { - nibble = 0x8; - diff = -diff; - } - - diff = min(step*2, diff); - nibble |= (diff*8/step - 1) / 2; - - sample[c] += IMA4Codeword[nibble] * step / 8; - sample[c] = max(-32768, sample[c]); - sample[c] = min(sample[c], 32767); - - index[c] += IMA4Index_adjust[nibble]; - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - *(dst++) = sample[c] & 0xff; - *(dst++) = (sample[c]>>8) & 0xff; - *(dst++) = index[c] & 0xff; - *(dst++) = (index[c]>>8) & 0xff; - } - - j = 1; - while(j < 65) - { - for(c = 0;c < numchans;c++) - { - for(k = 0;k < 8;k++) - { - int diff = src[(j+k)*numchans + c] - sample[c]; - int step = IMAStep_size[index[c]]; - int nibble; - - nibble = 0; - if(diff < 0) - { - nibble = 0x8; - diff = -diff; - } - - diff = min(step*2, diff); - nibble |= (diff*8/step - 1) / 2; - - sample[c] += IMA4Codeword[nibble] * step / 8; - sample[c] = max(-32768, sample[c]); - sample[c] = min(sample[c], 32767); - - index[c] += IMA4Index_adjust[nibble]; - index[c] = max(0, index[c]); - index[c] = min(index[c], 88); - - if(!(k&1)) *dst = nibble; - else *(dst++) |= nibble<<4; - } - } - j += 8; - } -} - - -static __inline ALbyte Conv_ALbyte_ALbyte(ALbyte val) -{ return val; } -static __inline ALbyte Conv_ALbyte_ALubyte(ALubyte val) -{ return val-128; } -static __inline ALbyte Conv_ALbyte_ALshort(ALshort val) -{ return val>>8; } -static __inline ALbyte Conv_ALbyte_ALushort(ALushort val) -{ return (val>>8)-128; } -static __inline ALbyte Conv_ALbyte_ALint(ALint val) -{ return val>>24; } -static __inline ALbyte Conv_ALbyte_ALuint(ALuint val) -{ return (val>>24)-128; } -static __inline ALbyte Conv_ALbyte_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 127; - if(val < int2ALfp(-1)) return -128; - return ALfp2int(ALfpMult(val, int2ALfp(127))); -} -static __inline ALbyte Conv_ALbyte_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 127; - if(val < int2ALdfp(-1)) return -128; - return ALdfp2int(ALdfpMult(val, int2ALdfp(127))); -} -static __inline ALbyte Conv_ALbyte_ALmulaw(ALmulaw val) -{ return Conv_ALbyte_ALshort(DecodeMuLaw(val)); } - -static __inline ALubyte Conv_ALubyte_ALbyte(ALbyte val) -{ return val+128; } -static __inline ALubyte Conv_ALubyte_ALubyte(ALubyte val) -{ return val; } -static __inline ALubyte Conv_ALubyte_ALshort(ALshort val) -{ return (val>>8)+128; } -static __inline ALubyte Conv_ALubyte_ALushort(ALushort val) -{ return val>>8; } -static __inline ALubyte Conv_ALubyte_ALint(ALint val) -{ return (val>>24)+128; } -static __inline ALubyte Conv_ALubyte_ALuint(ALuint val) -{ return val>>24; } -static __inline ALubyte Conv_ALubyte_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 255; - if(val < int2ALfp(-1)) return 0; - return ALfp2int(ALfpMult(val, int2ALfp(127))) + 128; -} -static __inline ALubyte Conv_ALubyte_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 255; - if(val < int2ALdfp(-1)) return 0; - return ALdfp2int(ALdfpMult(val, int2ALdfp(127))) + 128; -} -static __inline ALubyte Conv_ALubyte_ALmulaw(ALmulaw val) -{ return Conv_ALubyte_ALshort(DecodeMuLaw(val)); } - -static __inline ALshort Conv_ALshort_ALbyte(ALbyte val) -{ return val<<8; } -static __inline ALshort Conv_ALshort_ALubyte(ALubyte val) -{ return (val-128)<<8; } -static __inline ALshort Conv_ALshort_ALshort(ALshort val) -{ return val; } -static __inline ALshort Conv_ALshort_ALushort(ALushort val) -{ return val-32768; } -static __inline ALshort Conv_ALshort_ALint(ALint val) -{ return val>>16; } -static __inline ALshort Conv_ALshort_ALuint(ALuint val) -{ return (val>>16)-32768; } -static __inline ALshort Conv_ALshort_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 32767; - if(val < int2ALfp(-1)) return -32768; - return ALfp2int(ALfpMult(val, int2ALfp(32767))); -} -static __inline ALshort Conv_ALshort_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 32767; - if(val < int2ALdfp(-1)) return -32768; - return ALdfp2int(ALdfpMult(val, int2ALdfp(32767))); -} -static __inline ALshort Conv_ALshort_ALmulaw(ALmulaw val) -{ return Conv_ALshort_ALshort(DecodeMuLaw(val)); } - -static __inline ALushort Conv_ALushort_ALbyte(ALbyte val) -{ return (val+128)<<8; } -static __inline ALushort Conv_ALushort_ALubyte(ALubyte val) -{ return val<<8; } -static __inline ALushort Conv_ALushort_ALshort(ALshort val) -{ return val+32768; } -static __inline ALushort Conv_ALushort_ALushort(ALushort val) -{ return val; } -static __inline ALushort Conv_ALushort_ALint(ALint val) -{ return (val>>16)+32768; } -static __inline ALushort Conv_ALushort_ALuint(ALuint val) -{ return val>>16; } -static __inline ALushort Conv_ALushort_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 65535; - if(val < int2ALfp(-1)) return 0; - return ALfp2int(ALfpMult(val, int2ALfp(32767))) + 32768; -} -static __inline ALushort Conv_ALushort_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 65535; - if(val < int2ALdfp(-1)) return 0; - return ALdfp2int(ALdfpMult(val, int2ALdfp(32767))) + 32768; -} -static __inline ALushort Conv_ALushort_ALmulaw(ALmulaw val) -{ return Conv_ALushort_ALshort(DecodeMuLaw(val)); } - -static __inline ALint Conv_ALint_ALbyte(ALbyte val) -{ return val<<24; } -static __inline ALint Conv_ALint_ALubyte(ALubyte val) -{ return (val-128)<<24; } -static __inline ALint Conv_ALint_ALshort(ALshort val) -{ return val<<16; } -static __inline ALint Conv_ALint_ALushort(ALushort val) -{ return (val-32768)<<16; } -static __inline ALint Conv_ALint_ALint(ALint val) -{ return val; } -static __inline ALint Conv_ALint_ALuint(ALuint val) -{ return val-2147483648u; } -static __inline ALint Conv_ALint_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 2147483647; - if(val < int2ALfp(-1)) return -2147483647-1; - return ALfp2int(ALfpMult(val, int2ALfp(2147483647))); -} -static __inline ALint Conv_ALint_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 2147483647; - if(val < int2ALdfp(-1)) return -2147483647-1; - return ALdfp2int(ALdfpMult(val, int2ALdfp(2147483647))); -} -static __inline ALint Conv_ALint_ALmulaw(ALmulaw val) -{ return Conv_ALint_ALshort(DecodeMuLaw(val)); } - -static __inline ALuint Conv_ALuint_ALbyte(ALbyte val) -{ return (val+128)<<24; } -static __inline ALuint Conv_ALuint_ALubyte(ALubyte val) -{ return val<<24; } -static __inline ALuint Conv_ALuint_ALshort(ALshort val) -{ return (val+32768)<<16; } -static __inline ALuint Conv_ALuint_ALushort(ALushort val) -{ return val<<16; } -static __inline ALuint Conv_ALuint_ALint(ALint val) -{ return val+2147483648u; } -static __inline ALuint Conv_ALuint_ALuint(ALuint val) -{ return val; } -static __inline ALuint Conv_ALuint_ALfp(ALfp val) -{ - if(val > int2ALfp(1)) return 4294967295u; - if(val < int2ALfp(-1)) return 0; - return ALfp2int(ALfpMult(val, int2ALfp(2147483647))) + 2147483648u; -} -static __inline ALuint Conv_ALuint_ALdfp(ALdfp val) -{ - if(val > int2ALdfp(1)) return 4294967295u; - if(val < int2ALdfp(-1)) return 0; - return ALdfp2int(ALdfpMult(val, int2ALdfp(2147483647))) + 2147483648u; -} -static __inline ALuint Conv_ALuint_ALmulaw(ALmulaw val) -{ return Conv_ALuint_ALshort(DecodeMuLaw(val)); } - -// FIXME(apportable) make this more efficient with shifts for integer input -static __inline ALfp Conv_ALfp_ALbyte(ALbyte val) -{ return float2ALfp(val * (1.0f/127.0f)); } -static __inline ALfp Conv_ALfp_ALubyte(ALubyte val) -{ return float2ALfp((val-128) * (1.0f/127.0f)); } -static __inline ALfp Conv_ALfp_ALshort(ALshort val) -{ return float2ALfp(val * (1.0f/32767.0f)); } -static __inline ALfp Conv_ALfp_ALushort(ALushort val) -{ return float2ALfp((val-32768) * (1.0f/32767.0f)); } -static __inline ALfp Conv_ALfp_ALint(ALint val) -{ return float2ALfp(val * (1.0/2147483647.0)); } -static __inline ALfp Conv_ALfp_ALuint(ALuint val) -{ return float2ALfp((ALint)(val-2147483648u) * (1.0/2147483647.0)); } -static __inline ALfp Conv_ALfp_ALfp(ALfp val) -{ return val; } -static __inline ALfp Conv_ALfp_ALdfp(ALdfp val) -{ return (ALfp)val; } -static __inline ALfp Conv_ALfp_ALmulaw(ALmulaw val) -{ return Conv_ALfp_ALshort(DecodeMuLaw(val)); } - -// FIXME replace with shifts for integer args -static __inline ALdfp Conv_ALdfp_ALbyte(ALbyte val) -{ return double2ALdfp(val * (1.0/127.0)); } -static __inline ALdfp Conv_ALdfp_ALubyte(ALubyte val) -{ return double2ALdfp((val-128) * (1.0/127.0)); } -static __inline ALdfp Conv_ALdfp_ALshort(ALshort val) -{ return double2ALdfp(val * (1.0/32767.0)); } -static __inline ALdfp Conv_ALdfp_ALushort(ALushort val) -{ return double2ALdfp((val-32768) * (1.0/32767.0)); } -static __inline ALdfp Conv_ALdfp_ALint(ALint val) -{ return double2ALdfp(val * (1.0/2147483647.0)); } -static __inline ALdfp Conv_ALdfp_ALuint(ALuint val) -{ return double2ALdfp((ALint)(val-2147483648u) * (1.0/2147483647.0)); } -static __inline ALdfp Conv_ALdfp_ALfp(ALfp val) -{ return (ALdfp)val; } -static __inline ALdfp Conv_ALdfp_ALdfp(ALdfp val) -{ return val; } -static __inline ALdfp Conv_ALdfp_ALmulaw(ALmulaw val) -{ return Conv_ALdfp_ALshort(DecodeMuLaw(val)); } - -#define DECL_TEMPLATE(T) \ -static __inline ALmulaw Conv_ALmulaw_##T(T val) \ -{ return EncodeMuLaw(Conv_ALshort_##T(val)); } - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -static __inline ALmulaw Conv_ALmulaw_ALmulaw(ALmulaw val) -{ return val; } - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T1, T2) \ -static void Convert_##T1##_##T2(T1 *dst, const T2 *src, ALuint len) \ -{ \ - ALuint i; \ - for(i = 0;i < len;i++) \ - *(dst++) = Conv_##T1##_##T2(*(src++)); \ -} - -DECL_TEMPLATE(ALbyte, ALbyte) -DECL_TEMPLATE(ALbyte, ALubyte) -DECL_TEMPLATE(ALbyte, ALshort) -DECL_TEMPLATE(ALbyte, ALushort) -DECL_TEMPLATE(ALbyte, ALint) -DECL_TEMPLATE(ALbyte, ALuint) -DECL_TEMPLATE(ALbyte, ALfp) -DECL_TEMPLATE(ALbyte, ALdfp) -DECL_TEMPLATE(ALbyte, ALmulaw) - -DECL_TEMPLATE(ALubyte, ALbyte) -DECL_TEMPLATE(ALubyte, ALubyte) -DECL_TEMPLATE(ALubyte, ALshort) -DECL_TEMPLATE(ALubyte, ALushort) -DECL_TEMPLATE(ALubyte, ALint) -DECL_TEMPLATE(ALubyte, ALuint) -DECL_TEMPLATE(ALubyte, ALfp) -DECL_TEMPLATE(ALubyte, ALdfp) -DECL_TEMPLATE(ALubyte, ALmulaw) - -DECL_TEMPLATE(ALshort, ALbyte) -DECL_TEMPLATE(ALshort, ALubyte) -DECL_TEMPLATE(ALshort, ALshort) -DECL_TEMPLATE(ALshort, ALushort) -DECL_TEMPLATE(ALshort, ALint) -DECL_TEMPLATE(ALshort, ALuint) -DECL_TEMPLATE(ALshort, ALfp) -DECL_TEMPLATE(ALshort, ALdfp) -DECL_TEMPLATE(ALshort, ALmulaw) - -DECL_TEMPLATE(ALushort, ALbyte) -DECL_TEMPLATE(ALushort, ALubyte) -DECL_TEMPLATE(ALushort, ALshort) -DECL_TEMPLATE(ALushort, ALushort) -DECL_TEMPLATE(ALushort, ALint) -DECL_TEMPLATE(ALushort, ALuint) -DECL_TEMPLATE(ALushort, ALfp) -DECL_TEMPLATE(ALushort, ALdfp) -DECL_TEMPLATE(ALushort, ALmulaw) - -DECL_TEMPLATE(ALint, ALbyte) -DECL_TEMPLATE(ALint, ALubyte) -DECL_TEMPLATE(ALint, ALshort) -DECL_TEMPLATE(ALint, ALushort) -DECL_TEMPLATE(ALint, ALint) -DECL_TEMPLATE(ALint, ALuint) -DECL_TEMPLATE(ALint, ALfp) -DECL_TEMPLATE(ALint, ALdfp) -DECL_TEMPLATE(ALint, ALmulaw) - -DECL_TEMPLATE(ALuint, ALbyte) -DECL_TEMPLATE(ALuint, ALubyte) -DECL_TEMPLATE(ALuint, ALshort) -DECL_TEMPLATE(ALuint, ALushort) -DECL_TEMPLATE(ALuint, ALint) -DECL_TEMPLATE(ALuint, ALuint) -DECL_TEMPLATE(ALuint, ALfp) -DECL_TEMPLATE(ALuint, ALdfp) -DECL_TEMPLATE(ALuint, ALmulaw) - -DECL_TEMPLATE(ALfp, ALbyte) -DECL_TEMPLATE(ALfp, ALubyte) -DECL_TEMPLATE(ALfp, ALshort) -DECL_TEMPLATE(ALfp, ALushort) -DECL_TEMPLATE(ALfp, ALint) -DECL_TEMPLATE(ALfp, ALuint) -DECL_TEMPLATE(ALfp, ALfp) -DECL_TEMPLATE(ALfp, ALdfp) -DECL_TEMPLATE(ALfp, ALmulaw) - -DECL_TEMPLATE(ALdfp, ALbyte) -DECL_TEMPLATE(ALdfp, ALubyte) -DECL_TEMPLATE(ALdfp, ALshort) -DECL_TEMPLATE(ALdfp, ALushort) -DECL_TEMPLATE(ALdfp, ALint) -DECL_TEMPLATE(ALdfp, ALuint) -DECL_TEMPLATE(ALdfp, ALfp) -DECL_TEMPLATE(ALdfp, ALdfp) -DECL_TEMPLATE(ALdfp, ALmulaw) - -DECL_TEMPLATE(ALmulaw, ALbyte) -DECL_TEMPLATE(ALmulaw, ALubyte) -DECL_TEMPLATE(ALmulaw, ALshort) -DECL_TEMPLATE(ALmulaw, ALushort) -DECL_TEMPLATE(ALmulaw, ALint) -DECL_TEMPLATE(ALmulaw, ALuint) -DECL_TEMPLATE(ALmulaw, ALfp) -DECL_TEMPLATE(ALmulaw, ALdfp) -DECL_TEMPLATE(ALmulaw, ALmulaw) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T) \ -static void Convert_##T##_IMA4(T *dst, const ALubyte *src, ALuint numchans, \ - ALuint numblocks) \ -{ \ - ALuint i, j; \ - ALshort tmp[65*MAXCHANNELS]; /* Max samples an IMA4 frame can be */ \ - for(i = 0;i < numblocks;i++) \ - { \ - DecodeIMA4Block(tmp, src, numchans); \ - src += 36*numchans; \ - for(j = 0;j < 65*numchans;j++) \ - *(dst++) = Conv_##T##_ALshort(tmp[j]); \ - } \ -} - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -DECL_TEMPLATE(ALmulaw) - -#undef DECL_TEMPLATE - -#define DECL_TEMPLATE(T) \ -static void Convert_IMA4_##T(ALubyte *dst, const T *src, ALuint numchans, \ - ALuint numblocks) \ -{ \ - ALuint i, j; \ - ALshort tmp[65*MAXCHANNELS]; /* Max samples an IMA4 frame can be */ \ - ALint sample[MAXCHANNELS] = {0}; \ - ALint index[MAXCHANNELS] = {0}; \ - for(i = 0;i < numblocks;i++) \ - { \ - for(j = 0;j < 65*numchans;j++) \ - tmp[j] = Conv_ALshort_##T(*(src++)); \ - EncodeIMA4Block(dst, tmp, sample, index, numchans); \ - dst += 36*numchans; \ - } \ -} - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -DECL_TEMPLATE(ALmulaw) - -#undef DECL_TEMPLATE - -static void Convert_IMA4_IMA4(ALubyte *dst, const ALubyte *src, ALuint numchans, - ALuint numblocks) -{ - memcpy(dst, src, numblocks*36*numchans); -} - -#define DECL_TEMPLATE(T) \ -static void Convert_##T(T *dst, const ALvoid *src, enum UserFmtType srcType, \ - ALsizei len) \ -{ \ - switch(srcType) \ - { \ - case UserFmtByte: \ - Convert_##T##_ALbyte(dst, src, len); \ - break; \ - case UserFmtUByte: \ - Convert_##T##_ALubyte(dst, src, len); \ - break; \ - case UserFmtShort: \ - Convert_##T##_ALshort(dst, src, len); \ - break; \ - case UserFmtUShort: \ - Convert_##T##_ALushort(dst, src, len); \ - break; \ - case UserFmtInt: \ - Convert_##T##_ALint(dst, src, len); \ - break; \ - case UserFmtUInt: \ - Convert_##T##_ALuint(dst, src, len); \ - break; \ - case UserFmtFloat: \ - Convert_##T##_ALfp(dst, src, len); \ - break; \ - case UserFmtDouble: \ - Convert_##T##_ALdfp(dst, src, len); \ - break; \ - case UserFmtMulaw: \ - Convert_##T##_ALmulaw(dst, src, len); \ - break; \ - case UserFmtIMA4: \ - break; /* not handled here */ \ - } \ -} - -DECL_TEMPLATE(ALbyte) -DECL_TEMPLATE(ALubyte) -DECL_TEMPLATE(ALshort) -DECL_TEMPLATE(ALushort) -DECL_TEMPLATE(ALint) -DECL_TEMPLATE(ALuint) -DECL_TEMPLATE(ALfp) -DECL_TEMPLATE(ALdfp) -DECL_TEMPLATE(ALmulaw) - -#undef DECL_TEMPLATE - -static void Convert_IMA4(ALubyte *dst, const ALvoid *src, enum UserFmtType srcType, - ALint chans, ALsizei len) -{ - switch(srcType) - { - case UserFmtByte: - Convert_IMA4_ALbyte(dst, src, chans, len); - break; - case UserFmtUByte: - Convert_IMA4_ALubyte(dst, src, chans, len); - break; - case UserFmtShort: - Convert_IMA4_ALshort(dst, src, chans, len); - break; - case UserFmtUShort: - Convert_IMA4_ALushort(dst, src, chans, len); - break; - case UserFmtInt: - Convert_IMA4_ALint(dst, src, chans, len); - break; - case UserFmtUInt: - Convert_IMA4_ALuint(dst, src, chans, len); - break; - case UserFmtFloat: - Convert_IMA4_ALfp(dst, src, chans, len); - break; - case UserFmtDouble: - Convert_IMA4_ALdfp(dst, src, chans, len); - break; - case UserFmtMulaw: - Convert_IMA4_ALmulaw(dst, src, chans, len); - break; - case UserFmtIMA4: - Convert_IMA4_IMA4(dst, src, chans, len); - break; - } -} - - -static void ConvertData(ALvoid *dst, enum FmtType dstType, const ALvoid *src, enum UserFmtType srcType, ALsizei len) -{ - switch(dstType) - { - (void)Convert_ALbyte; - case FmtUByte: - Convert_ALubyte(dst, src, srcType, len); - break; - case FmtShort: - Convert_ALshort(dst, src, srcType, len); - break; - (void)Convert_ALushort; - (void)Convert_ALint; - (void)Convert_ALuint; - case FmtFloat: - Convert_ALfp(dst, src, srcType, len); - break; - (void)Convert_ALdfp; - (void)Convert_ALmulaw; - (void)Convert_IMA4; - } -} - -static void ConvertDataIMA4(ALvoid *dst, enum FmtType dstType, const ALvoid *src, ALint chans, ALsizei len) -{ - switch(dstType) - { - (void)Convert_ALbyte_IMA4; - case FmtUByte: - Convert_ALubyte_IMA4(dst, src, chans, len); - break; - case FmtShort: - Convert_ALshort_IMA4(dst, src, chans, len); - break; - (void)Convert_ALushort_IMA4; - (void)Convert_ALint_IMA4; - (void)Convert_ALuint_IMA4; - case FmtFloat: - Convert_ALfp_IMA4(dst, src, chans, len); - break; - (void)Convert_ALdfp_IMA4; - (void)Convert_ALmulaw_IMA4; - } -} - - -/* - * LoadData - * - * Loads the specified data into the buffer, using the specified formats. - * Currently, the new format must have the same channel configuration as the - * original format. - */ -static ALenum LoadData(ALbuffer *ALBuf, ALuint freq, ALenum NewFormat, ALsizei size, enum UserFmtChannels SrcChannels, enum UserFmtType SrcType, const ALvoid *data) -{ - ALuint NewChannels, NewBytes; - enum FmtChannels DstChannels; - enum FmtType DstType; - ALuint64 newsize; - ALvoid *temp; - - DecomposeFormat(NewFormat, &DstChannels, &DstType); - NewChannels = ChannelsFromFmt(DstChannels); - NewBytes = BytesFromFmt(DstType); - - assert((int)SrcChannels == (int)DstChannels); - - if(SrcType == UserFmtIMA4) - { - ALuint OrigChannels = ChannelsFromUserFmt(SrcChannels); - - /* Here is where things vary: - * nVidia and Apple use 64+1 sample frames per block -> block_size=36 bytes per channel - * Most PC sound software uses 2040+1 sample frames per block -> block_size=1024 bytes per channel - */ - if((size%(36*OrigChannels)) != 0) - return AL_INVALID_VALUE; - - newsize = size / 36; - newsize *= 65; - newsize *= NewBytes; - if(newsize > INT_MAX) - return AL_OUT_OF_MEMORY; - - temp = realloc(ALBuf->data, newsize); - if(!temp && newsize) return AL_OUT_OF_MEMORY; - ALBuf->data = temp; - ALBuf->size = newsize; - - if(data != NULL) - ConvertDataIMA4(ALBuf->data, DstType, data, OrigChannels, - newsize/(65*NewChannels*NewBytes)); - - ALBuf->OriginalChannels = SrcChannels; - ALBuf->OriginalType = SrcType; - ALBuf->OriginalSize = size; - ALBuf->OriginalAlign = 36 * OrigChannels; - } - else - { - ALuint OrigBytes = BytesFromUserFmt(SrcType); - ALuint OrigChannels = ChannelsFromUserFmt(SrcChannels); - - if((size%(OrigBytes*OrigChannels)) != 0) - return AL_INVALID_VALUE; - - newsize = size / OrigBytes; - newsize *= NewBytes; - if(newsize > INT_MAX) - return AL_OUT_OF_MEMORY; - - temp = realloc(ALBuf->data, newsize); - if(!temp && newsize) return AL_OUT_OF_MEMORY; - ALBuf->data = temp; - ALBuf->size = newsize; - - if(data != NULL) - ConvertData(ALBuf->data, DstType, data, SrcType, newsize/NewBytes); - - ALBuf->OriginalChannels = SrcChannels; - ALBuf->OriginalType = SrcType; - ALBuf->OriginalSize = size; - ALBuf->OriginalAlign = OrigBytes * OrigChannels; - } - - ALBuf->Frequency = freq; - ALBuf->FmtChannels = DstChannels; - ALBuf->FmtType = DstType; - - ALBuf->LoopStart = 0; - ALBuf->LoopEnd = newsize / NewChannels / NewBytes; - - return AL_NO_ERROR; -} - - -ALuint BytesFromUserFmt(enum UserFmtType type) -{ - switch(type) - { - case UserFmtByte: return sizeof(ALbyte); - case UserFmtUByte: return sizeof(ALubyte); - case UserFmtShort: return sizeof(ALshort); - case UserFmtUShort: return sizeof(ALushort); - case UserFmtInt: return sizeof(ALint); - case UserFmtUInt: return sizeof(ALuint); - case UserFmtFloat: return sizeof(ALfp); - case UserFmtDouble: return sizeof(ALdfp); - case UserFmtMulaw: return sizeof(ALubyte); - case UserFmtIMA4: break; /* not handled here */ - } - return 0; -} -ALuint ChannelsFromUserFmt(enum UserFmtChannels chans) -{ - switch(chans) - { - case UserFmtMono: return 1; - case UserFmtStereo: return 2; - case UserFmtRear: return 2; - case UserFmtQuad: return 4; - case UserFmtX51: return 6; - case UserFmtX61: return 7; - case UserFmtX71: return 8; - } - return 0; -} -ALboolean DecomposeUserFormat(ALenum format, enum UserFmtChannels *chans, - enum UserFmtType *type) -{ - switch(format) - { - case AL_FORMAT_MONO8: - *chans = UserFmtMono; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_MONO16: - *chans = UserFmtMono; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_MONO_FLOAT32: - *chans = UserFmtMono; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_MONO_DOUBLE_EXT: - *chans = UserFmtMono; - *type = UserFmtDouble; - return AL_TRUE; - case AL_FORMAT_MONO_IMA4: - *chans = UserFmtMono; - *type = UserFmtIMA4; - return AL_TRUE; - case AL_FORMAT_STEREO8: - *chans = UserFmtStereo; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_STEREO16: - *chans = UserFmtStereo; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_STEREO_FLOAT32: - *chans = UserFmtStereo; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_STEREO_DOUBLE_EXT: - *chans = UserFmtStereo; - *type = UserFmtDouble; - return AL_TRUE; - case AL_FORMAT_STEREO_IMA4: - *chans = UserFmtStereo; - *type = UserFmtIMA4; - return AL_TRUE; - case AL_FORMAT_QUAD8_LOKI: - case AL_FORMAT_QUAD8: - *chans = UserFmtQuad; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_QUAD16_LOKI: - case AL_FORMAT_QUAD16: - *chans = UserFmtQuad; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_QUAD32: - *chans = UserFmtQuad; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_REAR8: - *chans = UserFmtRear; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_REAR16: - *chans = UserFmtRear; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_REAR32: - *chans = UserFmtRear; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_51CHN8: - *chans = UserFmtX51; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_51CHN16: - *chans = UserFmtX51; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_51CHN32: - *chans = UserFmtX51; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_61CHN8: - *chans = UserFmtX61; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_61CHN16: - *chans = UserFmtX61; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_61CHN32: - *chans = UserFmtX61; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_71CHN8: - *chans = UserFmtX71; - *type = UserFmtUByte; - return AL_TRUE; - case AL_FORMAT_71CHN16: - *chans = UserFmtX71; - *type = UserFmtShort; - return AL_TRUE; - case AL_FORMAT_71CHN32: - *chans = UserFmtX71; - *type = UserFmtFloat; - return AL_TRUE; - case AL_FORMAT_MONO_MULAW: - *chans = UserFmtMono; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_STEREO_MULAW: - *chans = UserFmtStereo; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_QUAD_MULAW: - *chans = UserFmtQuad; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_REAR_MULAW: - *chans = UserFmtRear; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_51CHN_MULAW: - *chans = UserFmtX51; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_61CHN_MULAW: - *chans = UserFmtX61; - *type = UserFmtMulaw; - return AL_TRUE; - case AL_FORMAT_71CHN_MULAW: - *chans = UserFmtX71; - *type = UserFmtMulaw; - return AL_TRUE; - } - return AL_FALSE; -} - -ALuint BytesFromFmt(enum FmtType type) -{ - switch(type) - { - case FmtUByte: return sizeof(ALubyte); - case FmtShort: return sizeof(ALshort); - case FmtFloat: return sizeof(ALfp); - } - return 0; -} -ALuint ChannelsFromFmt(enum FmtChannels chans) -{ - switch(chans) - { - case FmtMono: return 1; - case FmtStereo: return 2; - case FmtRear: return 2; - case FmtQuad: return 4; - case FmtX51: return 6; - case FmtX61: return 7; - case FmtX71: return 8; - } - return 0; -} -ALboolean DecomposeFormat(ALenum format, enum FmtChannels *chans, enum FmtType *type) -{ - switch(format) - { - case AL_FORMAT_MONO8: - *chans = FmtMono; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_MONO16: - *chans = FmtMono; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_MONO_FLOAT32: - *chans = FmtMono; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_STEREO8: - *chans = FmtStereo; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_STEREO16: - *chans = FmtStereo; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_STEREO_FLOAT32: - *chans = FmtStereo; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_QUAD8_LOKI: - case AL_FORMAT_QUAD8: - *chans = FmtQuad; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_QUAD16_LOKI: - case AL_FORMAT_QUAD16: - *chans = FmtQuad; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_QUAD32: - *chans = FmtQuad; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_REAR8: - *chans = FmtRear; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_REAR16: - *chans = FmtRear; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_REAR32: - *chans = FmtRear; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_51CHN8: - *chans = FmtX51; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_51CHN16: - *chans = FmtX51; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_51CHN32: - *chans = FmtX51; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_61CHN8: - *chans = FmtX61; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_61CHN16: - *chans = FmtX61; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_61CHN32: - *chans = FmtX61; - *type = FmtFloat; - return AL_TRUE; - case AL_FORMAT_71CHN8: - *chans = FmtX71; - *type = FmtUByte; - return AL_TRUE; - case AL_FORMAT_71CHN16: - *chans = FmtX71; - *type = FmtShort; - return AL_TRUE; - case AL_FORMAT_71CHN32: - *chans = FmtX71; - *type = FmtFloat; - return AL_TRUE; - } - return AL_FALSE; -} - - -/* - * ReleaseALBuffers() - * - * INTERNAL: Called to destroy any buffers that still exist on the device - */ -ALvoid ReleaseALBuffers(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->BufferMap.size;i++) - { - ALbuffer *temp = device->BufferMap.array[i].value; - device->BufferMap.array[i].value = NULL; - - free(temp->data); - - ALTHUNK_REMOVEENTRY(temp->buffer); - memset(temp, 0, sizeof(ALbuffer)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alDatabuffer.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alDatabuffer.c deleted file mode 100644 index cbe65a096..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alDatabuffer.c +++ /dev/null @@ -1,648 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "AL/alext.h" -#include "alError.h" -#include "alDatabuffer.h" -#include "alThunk.h" - - -#define LookupDatabuffer(m, k) ((ALdatabuffer*)LookupUIntMapKey(&(m), (k))) - -/* -* alGenDatabuffersEXT(ALsizei n, ALuint *puiBuffers) -* -* Generates n AL Databuffers, and stores the Databuffers Names in the array pointed to by puiBuffers -*/ -AL_API ALvoid AL_APIENTRY alGenDatabuffersEXT(ALsizei n,ALuint *puiBuffers) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - /* Check that we are actually generation some Databuffers */ - if(n < 0 || IsBadWritePtr((void*)puiBuffers, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - /* Create all the new Databuffers */ - while(i < n) - { - ALdatabuffer *buffer = calloc(1, sizeof(ALdatabuffer)); - if(!buffer) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteDatabuffersEXT(i, puiBuffers); - break; - } - - buffer->databuffer = ALTHUNK_ADDENTRY(buffer); - err = InsertUIntMapEntry(&device->DatabufferMap, - buffer->databuffer, buffer); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(buffer->databuffer); - memset(buffer, 0, sizeof(ALdatabuffer)); - free(buffer); - - alSetError(Context, err); - alDeleteDatabuffersEXT(i, puiBuffers); - break; - } - puiBuffers[i++] = buffer->databuffer; - - buffer->state = UNMAPPED; - } - } - - ProcessContext(Context); -} - -/* -* alDatabeleteBuffersEXT(ALsizei n, ALuint *puiBuffers) -* -* Deletes the n AL Databuffers pointed to by puiBuffers -*/ -AL_API ALvoid AL_APIENTRY alDeleteDatabuffersEXT(ALsizei n, const ALuint *buffers) -{ - ALCcontext *Context; - ALCdevice *device; - ALdatabuffer *ALBuf; - ALboolean Failed; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - /* Check we are actually Deleting some Databuffers */ - Failed = AL_TRUE; - device = Context->Device; - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - /* Check that all the databuffers are valid and can actually be - * deleted */ - for(i = 0;i < n;i++) - { - if(!buffers[i]) - continue; - - /* Check for valid Buffer ID */ - if((ALBuf=LookupDatabuffer(device->DatabufferMap, buffers[i])) == NULL) - { - /* Invalid Databuffer */ - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - else if(ALBuf->state != UNMAPPED) - { - /* Databuffer still in use, cannot be deleted */ - alSetError(Context, AL_INVALID_OPERATION); - Failed = AL_TRUE; - break; - } - } - } - - /* If all the Databuffers were valid (and unmapped), then we can delete them */ - if(!Failed) - { - for(i = 0;i < n;i++) - { - if((ALBuf=LookupDatabuffer(device->DatabufferMap, buffers[i])) == NULL) - continue; - - if(ALBuf == Context->SampleSource) - Context->SampleSource = NULL; - if(ALBuf == Context->SampleSink) - Context->SampleSink = NULL; - - // Release the memory used to store audio data - free(ALBuf->data); - - // Release buffer structure - RemoveUIntMapKey(&device->DatabufferMap, ALBuf->databuffer); - ALTHUNK_REMOVEENTRY(ALBuf->databuffer); - - memset(ALBuf, 0, sizeof(ALdatabuffer)); - free(ALBuf); - } - } - - ProcessContext(Context); -} - -/* -* alIsDatabufferEXT(ALuint uiBuffer) -* -* Checks if ulBuffer is a valid Databuffer Name -*/ -AL_API ALboolean AL_APIENTRY alIsDatabufferEXT(ALuint buffer) -{ - ALCcontext *Context; - ALboolean result; - ALCdevice *device; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - device = Context->Device; - result = ((!buffer || LookupDatabuffer(device->DatabufferMap, buffer)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -/* -* alDatabufferDataEXT(ALuint buffer,ALvoid *data,ALsizei size,ALenum usage) -* -* Fill databuffer with data -*/ -AL_API ALvoid AL_APIENTRY alDatabufferDataEXT(ALuint buffer,const ALvoid *data,ALsizeiptrEXT size,ALenum usage) -{ - ALCcontext *Context; - ALdatabuffer *ALBuf; - ALCdevice *Device; - ALvoid *temp; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALBuf=LookupDatabuffer(Device->DatabufferMap, buffer)) != NULL) - { - if(ALBuf->state == UNMAPPED) - { - if(usage == AL_STREAM_WRITE_EXT || usage == AL_STREAM_READ_EXT || - usage == AL_STREAM_COPY_EXT || usage == AL_STATIC_WRITE_EXT || - usage == AL_STATIC_READ_EXT || usage == AL_STATIC_COPY_EXT || - usage == AL_DYNAMIC_WRITE_EXT || usage == AL_DYNAMIC_READ_EXT || - usage == AL_DYNAMIC_COPY_EXT) - { - if(size >= 0) - { - /* (Re)allocate data */ - temp = realloc(ALBuf->data, size); - if(temp) - { - ALBuf->data = temp; - ALBuf->size = size; - ALBuf->usage = usage; - if(data) - memcpy(ALBuf->data, data, size); - } - else - alSetError(Context, AL_OUT_OF_MEMORY); - } - else - alSetError(Context, AL_INVALID_VALUE); - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_OPERATION); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDatabufferSubDataEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, const ALvoid *data) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(start >= 0 && length >= 0 && start+length <= pBuffer->size) - { - if(pBuffer->state == UNMAPPED) - memcpy(pBuffer->data+start, data, length); - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferSubDataEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALvoid *data) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(start >= 0 && length >= 0 && start+length <= pBuffer->size) - { - if(pBuffer->state == UNMAPPED) - memcpy(data, pBuffer->data+start, length); - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat flValue) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)flValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alDatabufferfvEXT(ALuint buffer, ALenum eParam, const ALfloat* flValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)flValues; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alDatabufferiEXT(ALuint buffer, ALenum eParam, ALint lValue) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)lValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alDatabufferivEXT(ALuint buffer, ALenum eParam, const ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - (void)plValues; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetDatabufferfEXT(ALuint buffer, ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue) - { - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferfvEXT(ALuint buffer, ALenum eParam, ALfloat* pflValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch(eParam) - { - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferiEXT(ALuint buffer, ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue) - { - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, buffer)) != NULL) - { - switch(eParam) - { - case AL_SIZE: - *plValue = (ALint)pBuffer->size; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alGetDatabufferivEXT(ALuint buffer, ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - Device = pContext->Device; - if(LookupDatabuffer(Device->DatabufferMap, buffer) != NULL) - { - switch (eParam) - { - case AL_SIZE: - alGetDatabufferiEXT(buffer, eParam, plValues); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSelectDatabufferEXT(ALenum target, ALuint uiBuffer) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer = NULL; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if(uiBuffer == 0 || - (pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(target == AL_SAMPLE_SOURCE_EXT) - pContext->SampleSource = pBuffer; - else if(target == AL_SAMPLE_SINK_EXT) - pContext->SampleSink = pBuffer; - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid* AL_APIENTRY alMapDatabufferEXT(ALuint uiBuffer, ALintptrEXT start, ALsizeiptrEXT length, ALenum access) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALvoid *ret = NULL; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return NULL; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(start >= 0 && length >= 0 && start+length <= pBuffer->size) - { - if(access == AL_READ_ONLY_EXT || access == AL_WRITE_ONLY_EXT || - access == AL_READ_WRITE_EXT) - { - if(pBuffer->state == UNMAPPED) - { - ret = pBuffer->data + start; - pBuffer->state = MAPPED; - } - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_ENUM); - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); - - return ret; -} - -AL_API ALvoid AL_APIENTRY alUnmapDatabufferEXT(ALuint uiBuffer) -{ - ALCcontext *pContext; - ALdatabuffer *pBuffer; - ALCdevice *Device; - - pContext = GetContextSuspended(); - if(!pContext) return; - - Device = pContext->Device; - if((pBuffer=LookupDatabuffer(Device->DatabufferMap, uiBuffer)) != NULL) - { - if(pBuffer->state == MAPPED) - pBuffer->state = UNMAPPED; - else - alSetError(pContext, AL_INVALID_OPERATION); - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -/* -* ReleaseALDatabuffers() -* -* INTERNAL FN : Called by DLLMain on exit to destroy any buffers that still exist -*/ -ALvoid ReleaseALDatabuffers(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->DatabufferMap.size;i++) - { - ALdatabuffer *temp = device->DatabufferMap.array[i].value; - device->DatabufferMap.array[i].value = NULL; - - // Release buffer data - free(temp->data); - - // Release Buffer structure - ALTHUNK_REMOVEENTRY(temp->databuffer); - memset(temp, 0, sizeof(ALdatabuffer)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alEffect.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alEffect.c deleted file mode 100644 index cb07e2164..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alEffect.c +++ /dev/null @@ -1,1377 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alEffect.h" -#include "alThunk.h" -#include "alError.h" - - -ALboolean DisabledEffects[MAX_EFFECTS]; - - -static void InitEffectParams(ALeffect *effect, ALenum type); - -#define LookupEffect(m, k) ((ALeffect*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0 || IsBadWritePtr((void*)effects, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - while(i < n) - { - ALeffect *effect = calloc(1, sizeof(ALeffect)); - if(!effect) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteEffects(i, effects); - break; - } - - effect->effect = ALTHUNK_ADDENTRY(effect); - err = InsertUIntMapEntry(&device->EffectMap, effect->effect, effect); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(effect->effect); - memset(effect, 0, sizeof(ALeffect)); - free(effect); - - alSetError(Context, err); - alDeleteEffects(i, effects); - break; - } - - effects[i++] = effect->effect; - InitEffectParams(effect, AL_EFFECT_NULL); - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects) -{ - ALCcontext *Context; - ALCdevice *device; - ALeffect *ALEffect; - ALboolean Failed; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - Failed = AL_TRUE; - device = Context->Device; - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - // Check that all effects are valid - for(i = 0;i < n;i++) - { - if(!effects[i]) - continue; - - if(LookupEffect(device->EffectMap, effects[i]) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - } - } - - if(!Failed) - { - // All effects are valid - for(i = 0;i < n;i++) - { - // Recheck that the effect is valid, because there could be duplicated names - if((ALEffect=LookupEffect(device->EffectMap, effects[i])) == NULL) - continue; - - RemoveUIntMapKey(&device->EffectMap, ALEffect->effect); - ALTHUNK_REMOVEENTRY(ALEffect->effect); - - memset(ALEffect, 0, sizeof(ALeffect)); - free(ALEffect); - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = ((!effect || LookupEffect(Context->Device->EffectMap, effect)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - ALboolean isOk = (iValue == AL_EFFECT_NULL || - (iValue == AL_EFFECT_EAXREVERB && !DisabledEffects[EAXREVERB]) || - (iValue == AL_EFFECT_REVERB && !DisabledEffects[REVERB]) || - (iValue == AL_EFFECT_ECHO && !DisabledEffects[ECHO]) || - (iValue == AL_EFFECT_RING_MODULATOR && !DisabledEffects[MODULATOR])); - - if(isOk) - InitEffectParams(ALEffect, iValue); - else - alSetError(Context, AL_INVALID_VALUE); - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - if(iValue >= AL_EAXREVERB_MIN_DECAY_HFLIMIT && - iValue <= AL_EAXREVERB_MAX_DECAY_HFLIMIT) - ALEffect->Reverb.DecayHFLimit = iValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - if(iValue >= AL_REVERB_MIN_DECAY_HFLIMIT && - iValue <= AL_REVERB_MAX_DECAY_HFLIMIT) - ALEffect->Reverb.DecayHFLimit = iValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - alEffectf(effect, param, (ALfloat)iValue); - break; - - case AL_RING_MODULATOR_WAVEFORM: - if(iValue >= AL_RING_MODULATOR_MIN_WAVEFORM && - iValue <= AL_RING_MODULATOR_MAX_WAVEFORM) - ALEffect->Modulator.Waveform = iValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - alEffecti(effect, param, piValues[0]); - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - alEffecti(effect, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - alEffecti(effect, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - case AL_RING_MODULATOR_WAVEFORM: - alEffecti(effect, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flArg) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - ALfp flValue = float2ALfp(flArg); - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DENSITY) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DENSITY)) - ALEffect->Reverb.Density = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DIFFUSION: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DIFFUSION) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DIFFUSION)) - ALEffect->Reverb.Diffusion = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_GAIN: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_GAIN) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_GAIN)) - ALEffect->Reverb.Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_GAINHF: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_GAINHF) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_GAIN)) - ALEffect->Reverb.GainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_GAINLF: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_GAINLF) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_GAINLF)) - ALEffect->Reverb.GainLF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DECAY_TIME: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DECAY_TIME) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DECAY_TIME)) - ALEffect->Reverb.DecayTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DECAY_HFRATIO: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DECAY_HFRATIO) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DECAY_HFRATIO)) - ALEffect->Reverb.DecayHFRatio = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_DECAY_LFRATIO: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_DECAY_LFRATIO) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_DECAY_LFRATIO)) - ALEffect->Reverb.DecayLFRatio = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_REFLECTIONS_GAIN: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_REFLECTIONS_GAIN) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_REFLECTIONS_GAIN)) - ALEffect->Reverb.ReflectionsGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_REFLECTIONS_DELAY: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_REFLECTIONS_DELAY) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_REFLECTIONS_DELAY)) - ALEffect->Reverb.ReflectionsDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_LATE_REVERB_GAIN: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_LATE_REVERB_GAIN) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_LATE_REVERB_GAIN)) - ALEffect->Reverb.LateReverbGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_LATE_REVERB_DELAY: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_LATE_REVERB_DELAY) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_LATE_REVERB_DELAY)) - ALEffect->Reverb.LateReverbDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF)) - ALEffect->Reverb.AirAbsorptionGainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_ECHO_TIME: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_ECHO_TIME) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_ECHO_TIME)) - ALEffect->Reverb.EchoTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_ECHO_DEPTH: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_ECHO_DEPTH) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_ECHO_DEPTH)) - ALEffect->Reverb.EchoDepth = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_MODULATION_TIME: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_MODULATION_TIME) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_MODULATION_TIME)) - ALEffect->Reverb.ModulationTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_MODULATION_DEPTH: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_MODULATION_DEPTH) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_MODULATION_DEPTH)) - ALEffect->Reverb.ModulationDepth = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_HFREFERENCE: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_HFREFERENCE) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_HFREFERENCE)) - ALEffect->Reverb.HFReference = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_LFREFERENCE: - if(flValue >= float2ALfp(AL_EAXREVERB_MIN_LFREFERENCE) && - flValue <= float2ALfp(AL_EAXREVERB_MAX_LFREFERENCE)) - ALEffect->Reverb.LFReference = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - if(flValue >= float2ALfp(0.0f) && flValue <= float2ALfp(10.0f)) - ALEffect->Reverb.RoomRolloffFactor = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - if(flValue >= float2ALfp(AL_REVERB_MIN_DENSITY) && - flValue <= float2ALfp(AL_REVERB_MAX_DENSITY)) - ALEffect->Reverb.Density = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_DIFFUSION: - if(flValue >= float2ALfp(AL_REVERB_MIN_DIFFUSION) && - flValue <= float2ALfp(AL_REVERB_MAX_DIFFUSION)) - ALEffect->Reverb.Diffusion = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_GAIN: - if(flValue >= float2ALfp(AL_REVERB_MIN_GAIN) && - flValue <= float2ALfp(AL_REVERB_MAX_GAIN)) - ALEffect->Reverb.Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_GAINHF: - if(flValue >= float2ALfp(AL_REVERB_MIN_GAINHF) && - flValue <= float2ALfp(AL_REVERB_MAX_GAINHF)) - ALEffect->Reverb.GainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_DECAY_TIME: - if(flValue >= float2ALfp(AL_REVERB_MIN_DECAY_TIME) && - flValue <= float2ALfp(AL_REVERB_MAX_DECAY_TIME)) - ALEffect->Reverb.DecayTime = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_DECAY_HFRATIO: - if(flValue >= float2ALfp(AL_REVERB_MIN_DECAY_HFRATIO) && - flValue <= float2ALfp(AL_REVERB_MAX_DECAY_HFRATIO)) - ALEffect->Reverb.DecayHFRatio = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_REFLECTIONS_GAIN: - if(flValue >= float2ALfp(AL_REVERB_MIN_REFLECTIONS_GAIN) && - flValue <= float2ALfp(AL_REVERB_MAX_REFLECTIONS_GAIN)) - ALEffect->Reverb.ReflectionsGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_REFLECTIONS_DELAY: - if(flValue >= float2ALfp(AL_REVERB_MIN_REFLECTIONS_DELAY) && - flValue <= float2ALfp(AL_REVERB_MAX_REFLECTIONS_DELAY)) - ALEffect->Reverb.ReflectionsDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_LATE_REVERB_GAIN: - if(flValue >= float2ALfp(AL_REVERB_MIN_LATE_REVERB_GAIN) && - flValue <= float2ALfp(AL_REVERB_MAX_LATE_REVERB_GAIN)) - ALEffect->Reverb.LateReverbGain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_LATE_REVERB_DELAY: - if(flValue >= float2ALfp(AL_REVERB_MIN_LATE_REVERB_DELAY) && - flValue <= float2ALfp(AL_REVERB_MAX_LATE_REVERB_DELAY)) - ALEffect->Reverb.LateReverbDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_AIR_ABSORPTION_GAINHF: - if(flValue >= float2ALfp(AL_REVERB_MIN_AIR_ABSORPTION_GAINHF) && - flValue <= float2ALfp(AL_REVERB_MAX_AIR_ABSORPTION_GAINHF)) - ALEffect->Reverb.AirAbsorptionGainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - if(flValue >= float2ALfp(AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR) && - flValue <= float2ALfp(AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR)) - ALEffect->Reverb.RoomRolloffFactor = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - if(flValue >= float2ALfp(AL_ECHO_MIN_DELAY) && flValue <= float2ALfp(AL_ECHO_MAX_DELAY)) - ALEffect->Echo.Delay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_LRDELAY: - if(flValue >= float2ALfp(AL_ECHO_MIN_LRDELAY) && flValue <= float2ALfp(AL_ECHO_MAX_LRDELAY)) - ALEffect->Echo.LRDelay = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_DAMPING: - if(flValue >= float2ALfp(AL_ECHO_MIN_DAMPING) && flValue <= float2ALfp(AL_ECHO_MAX_DAMPING)) - ALEffect->Echo.Damping = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_FEEDBACK: - if(flValue >= float2ALfp(AL_ECHO_MIN_FEEDBACK) && flValue <= float2ALfp(AL_ECHO_MAX_FEEDBACK)) - ALEffect->Echo.Feedback = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_ECHO_SPREAD: - if(flValue >= float2ALfp(AL_ECHO_MIN_SPREAD) && flValue <= float2ALfp(AL_ECHO_MAX_SPREAD)) - ALEffect->Echo.Spread = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - if(flValue >= float2ALfp(AL_RING_MODULATOR_MIN_FREQUENCY) && - flValue <= float2ALfp(AL_RING_MODULATOR_MAX_FREQUENCY)) - ALEffect->Modulator.Frequency = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - if(flValue >= float2ALfp(AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF) && - flValue <= float2ALfp(AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF)) - ALEffect->Modulator.HighPassCutoff = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - case AL_EAXREVERB_DIFFUSION: - case AL_EAXREVERB_GAIN: - case AL_EAXREVERB_GAINHF: - case AL_EAXREVERB_GAINLF: - case AL_EAXREVERB_DECAY_TIME: - case AL_EAXREVERB_DECAY_HFRATIO: - case AL_EAXREVERB_DECAY_LFRATIO: - case AL_EAXREVERB_REFLECTIONS_GAIN: - case AL_EAXREVERB_REFLECTIONS_DELAY: - case AL_EAXREVERB_LATE_REVERB_GAIN: - case AL_EAXREVERB_LATE_REVERB_DELAY: - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - case AL_EAXREVERB_ECHO_TIME: - case AL_EAXREVERB_ECHO_DEPTH: - case AL_EAXREVERB_MODULATION_TIME: - case AL_EAXREVERB_MODULATION_DEPTH: - case AL_EAXREVERB_HFREFERENCE: - case AL_EAXREVERB_LFREFERENCE: - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - alEffectf(effect, param, pflValues[0]); - break; - - case AL_EAXREVERB_REFLECTIONS_PAN: - if(!__isnan(pflValues[0]) && !__isnan(pflValues[1]) && !__isnan(pflValues[2])) - { - ALEffect->Reverb.ReflectionsPan[0] = float2ALfp(pflValues[0]); - ALEffect->Reverb.ReflectionsPan[1] = float2ALfp(pflValues[1]); - ALEffect->Reverb.ReflectionsPan[2] = float2ALfp(pflValues[2]); - } - else - alSetError(Context, AL_INVALID_VALUE); - break; - case AL_EAXREVERB_LATE_REVERB_PAN: - if(!__isnan(pflValues[0]) && !__isnan(pflValues[1]) && !__isnan(pflValues[2])) - { - ALEffect->Reverb.LateReverbPan[0] = float2ALfp(pflValues[0]); - ALEffect->Reverb.LateReverbPan[1] = float2ALfp(pflValues[1]); - ALEffect->Reverb.LateReverbPan[2] = float2ALfp(pflValues[2]); - } - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - case AL_REVERB_DIFFUSION: - case AL_REVERB_GAIN: - case AL_REVERB_GAINHF: - case AL_REVERB_DECAY_TIME: - case AL_REVERB_DECAY_HFRATIO: - case AL_REVERB_REFLECTIONS_GAIN: - case AL_REVERB_REFLECTIONS_DELAY: - case AL_REVERB_LATE_REVERB_GAIN: - case AL_REVERB_LATE_REVERB_DELAY: - case AL_REVERB_AIR_ABSORPTION_GAINHF: - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - alEffectf(effect, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - case AL_ECHO_LRDELAY: - case AL_ECHO_DAMPING: - case AL_ECHO_FEEDBACK: - case AL_ECHO_SPREAD: - alEffectf(effect, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - alEffectf(effect, param, pflValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - *piValue = ALEffect->type; - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - *piValue = ALEffect->Reverb.DecayHFLimit; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - *piValue = ALEffect->Reverb.DecayHFLimit; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - *piValue = (ALint)ALfp2float(ALEffect->Modulator.Frequency); - break; - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - *piValue = (ALint)ALfp2float(ALEffect->Modulator.HighPassCutoff); - break; - case AL_RING_MODULATOR_WAVEFORM: - *piValue = ALEffect->Modulator.Waveform; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(param == AL_EFFECT_TYPE) - { - alGetEffecti(effect, param, piValues); - } - else if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DECAY_HFLIMIT: - alGetEffecti(effect, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DECAY_HFLIMIT: - alGetEffecti(effect, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - case AL_RING_MODULATOR_WAVEFORM: - alGetEffecti(effect, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - *pflValue = ALfp2float(ALEffect->Reverb.Density); - break; - - case AL_EAXREVERB_DIFFUSION: - *pflValue = ALfp2float(ALEffect->Reverb.Diffusion); - break; - - case AL_EAXREVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.Gain); - break; - - case AL_EAXREVERB_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.GainHF); - break; - - case AL_EAXREVERB_GAINLF: - *pflValue = ALfp2float(ALEffect->Reverb.GainLF); - break; - - case AL_EAXREVERB_DECAY_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.DecayTime); - break; - - case AL_EAXREVERB_DECAY_HFRATIO: - *pflValue = ALfp2float(ALEffect->Reverb.DecayHFRatio); - break; - - case AL_EAXREVERB_DECAY_LFRATIO: - *pflValue = ALfp2float(ALEffect->Reverb.DecayLFRatio); - break; - - case AL_EAXREVERB_REFLECTIONS_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsGain); - break; - - case AL_EAXREVERB_REFLECTIONS_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsDelay); - break; - - case AL_EAXREVERB_LATE_REVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbGain); - break; - - case AL_EAXREVERB_LATE_REVERB_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbDelay); - break; - - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.AirAbsorptionGainHF); - break; - - case AL_EAXREVERB_ECHO_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.EchoTime); - break; - - case AL_EAXREVERB_ECHO_DEPTH: - *pflValue = ALfp2float(ALEffect->Reverb.EchoDepth); - break; - - case AL_EAXREVERB_MODULATION_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.ModulationTime); - break; - - case AL_EAXREVERB_MODULATION_DEPTH: - *pflValue = ALfp2float(ALEffect->Reverb.ModulationDepth); - break; - - case AL_EAXREVERB_HFREFERENCE: - *pflValue = ALfp2float(ALEffect->Reverb.HFReference); - break; - - case AL_EAXREVERB_LFREFERENCE: - *pflValue = ALfp2float(ALEffect->Reverb.LFReference); - break; - - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - *pflValue = ALfp2float(ALEffect->Reverb.RoomRolloffFactor); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - *pflValue = ALfp2float(ALEffect->Reverb.Density); - break; - - case AL_REVERB_DIFFUSION: - *pflValue = ALfp2float(ALEffect->Reverb.Diffusion); - break; - - case AL_REVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.Gain); - break; - - case AL_REVERB_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.GainHF); - break; - - case AL_REVERB_DECAY_TIME: - *pflValue = ALfp2float(ALEffect->Reverb.DecayTime); - break; - - case AL_REVERB_DECAY_HFRATIO: - *pflValue = ALfp2float(ALEffect->Reverb.DecayHFRatio); - break; - - case AL_REVERB_REFLECTIONS_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsGain); - break; - - case AL_REVERB_REFLECTIONS_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.ReflectionsDelay); - break; - - case AL_REVERB_LATE_REVERB_GAIN: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbGain); - break; - - case AL_REVERB_LATE_REVERB_DELAY: - *pflValue = ALfp2float(ALEffect->Reverb.LateReverbDelay); - break; - - case AL_REVERB_AIR_ABSORPTION_GAINHF: - *pflValue = ALfp2float(ALEffect->Reverb.AirAbsorptionGainHF); - break; - - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - *pflValue = ALfp2float(ALEffect->Reverb.RoomRolloffFactor); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - *pflValue = ALfp2float(ALEffect->Echo.Delay); - break; - - case AL_ECHO_LRDELAY: - *pflValue = ALfp2float(ALEffect->Echo.LRDelay); - break; - - case AL_ECHO_DAMPING: - *pflValue = ALfp2float(ALEffect->Echo.Damping); - break; - - case AL_ECHO_FEEDBACK: - *pflValue = ALfp2float(ALEffect->Echo.Feedback); - break; - - case AL_ECHO_SPREAD: - *pflValue = ALfp2float(ALEffect->Echo.Spread); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - *pflValue = ALfp2float(ALEffect->Modulator.Frequency); - break; - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - *pflValue = ALfp2float(ALEffect->Modulator.HighPassCutoff); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - ALeffect *ALEffect; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALEffect=LookupEffect(Device->EffectMap, effect)) != NULL) - { - if(ALEffect->type == AL_EFFECT_EAXREVERB) - { - switch(param) - { - case AL_EAXREVERB_DENSITY: - case AL_EAXREVERB_DIFFUSION: - case AL_EAXREVERB_GAIN: - case AL_EAXREVERB_GAINHF: - case AL_EAXREVERB_GAINLF: - case AL_EAXREVERB_DECAY_TIME: - case AL_EAXREVERB_DECAY_HFRATIO: - case AL_EAXREVERB_DECAY_LFRATIO: - case AL_EAXREVERB_REFLECTIONS_GAIN: - case AL_EAXREVERB_REFLECTIONS_DELAY: - case AL_EAXREVERB_LATE_REVERB_GAIN: - case AL_EAXREVERB_LATE_REVERB_DELAY: - case AL_EAXREVERB_AIR_ABSORPTION_GAINHF: - case AL_EAXREVERB_ECHO_TIME: - case AL_EAXREVERB_ECHO_DEPTH: - case AL_EAXREVERB_MODULATION_TIME: - case AL_EAXREVERB_MODULATION_DEPTH: - case AL_EAXREVERB_HFREFERENCE: - case AL_EAXREVERB_LFREFERENCE: - case AL_EAXREVERB_ROOM_ROLLOFF_FACTOR: - alGetEffectf(effect, param, pflValues); - break; - - case AL_EAXREVERB_REFLECTIONS_PAN: - pflValues[0] = ALfp2float(ALEffect->Reverb.ReflectionsPan[0]); - pflValues[1] = ALfp2float(ALEffect->Reverb.ReflectionsPan[1]); - pflValues[2] = ALfp2float(ALEffect->Reverb.ReflectionsPan[2]); - break; - case AL_EAXREVERB_LATE_REVERB_PAN: - pflValues[0] = ALfp2float(ALEffect->Reverb.LateReverbPan[0]); - pflValues[1] = ALfp2float(ALEffect->Reverb.LateReverbPan[1]); - pflValues[2] = ALfp2float(ALEffect->Reverb.LateReverbPan[2]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_REVERB) - { - switch(param) - { - case AL_REVERB_DENSITY: - case AL_REVERB_DIFFUSION: - case AL_REVERB_GAIN: - case AL_REVERB_GAINHF: - case AL_REVERB_DECAY_TIME: - case AL_REVERB_DECAY_HFRATIO: - case AL_REVERB_REFLECTIONS_GAIN: - case AL_REVERB_REFLECTIONS_DELAY: - case AL_REVERB_LATE_REVERB_GAIN: - case AL_REVERB_LATE_REVERB_DELAY: - case AL_REVERB_AIR_ABSORPTION_GAINHF: - case AL_REVERB_ROOM_ROLLOFF_FACTOR: - alGetEffectf(effect, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_ECHO) - { - switch(param) - { - case AL_ECHO_DELAY: - case AL_ECHO_LRDELAY: - case AL_ECHO_DAMPING: - case AL_ECHO_FEEDBACK: - case AL_ECHO_SPREAD: - alGetEffectf(effect, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else if(ALEffect->type == AL_EFFECT_RING_MODULATOR) - { - switch(param) - { - case AL_RING_MODULATOR_FREQUENCY: - case AL_RING_MODULATOR_HIGHPASS_CUTOFF: - alGetEffectf(effect, param, pflValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_ENUM); - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - - -ALvoid ReleaseALEffects(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->EffectMap.size;i++) - { - ALeffect *temp = device->EffectMap.array[i].value; - device->EffectMap.array[i].value = NULL; - - // Release effect structure - ALTHUNK_REMOVEENTRY(temp->effect); - memset(temp, 0, sizeof(ALeffect)); - free(temp); - } -} - - -static void InitEffectParams(ALeffect *effect, ALenum type) -{ - effect->type = type; - switch(type) - { - /* NOTE: Standard reverb and EAX reverb use the same defaults for the - * shared parameters, and EAX's additional parameters default to - * values assumed by standard reverb. - */ - case AL_EFFECT_EAXREVERB: - case AL_EFFECT_REVERB: - effect->Reverb.Density = float2ALfp(AL_EAXREVERB_DEFAULT_DENSITY); - effect->Reverb.Diffusion = float2ALfp(AL_EAXREVERB_DEFAULT_DIFFUSION); - effect->Reverb.Gain = float2ALfp(AL_EAXREVERB_DEFAULT_GAIN); - effect->Reverb.GainHF = float2ALfp(AL_EAXREVERB_DEFAULT_GAINHF); - effect->Reverb.GainLF = float2ALfp(AL_EAXREVERB_DEFAULT_GAINLF); - effect->Reverb.DecayTime = float2ALfp(AL_EAXREVERB_DEFAULT_DECAY_TIME); - effect->Reverb.DecayHFRatio = float2ALfp(AL_EAXREVERB_DEFAULT_DECAY_HFRATIO); - effect->Reverb.DecayLFRatio = float2ALfp(AL_EAXREVERB_DEFAULT_DECAY_LFRATIO); - effect->Reverb.ReflectionsGain = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN); - effect->Reverb.ReflectionsDelay = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY); - effect->Reverb.ReflectionsPan[0] = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ); - effect->Reverb.ReflectionsPan[1] = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ); - effect->Reverb.ReflectionsPan[2] = float2ALfp(AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ); - effect->Reverb.LateReverbGain = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN); - effect->Reverb.LateReverbDelay = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY); - effect->Reverb.LateReverbPan[0] = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ); - effect->Reverb.LateReverbPan[1] = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ); - effect->Reverb.LateReverbPan[2] = float2ALfp(AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ); - effect->Reverb.EchoTime = float2ALfp(AL_EAXREVERB_DEFAULT_ECHO_TIME); - effect->Reverb.EchoDepth = float2ALfp(AL_EAXREVERB_DEFAULT_ECHO_DEPTH); - effect->Reverb.ModulationTime = float2ALfp(AL_EAXREVERB_DEFAULT_MODULATION_TIME); - effect->Reverb.ModulationDepth = float2ALfp(AL_EAXREVERB_DEFAULT_MODULATION_DEPTH); - effect->Reverb.AirAbsorptionGainHF = float2ALfp(AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF); - effect->Reverb.HFReference = float2ALfp(AL_EAXREVERB_DEFAULT_HFREFERENCE); - effect->Reverb.LFReference = float2ALfp(AL_EAXREVERB_DEFAULT_LFREFERENCE); - effect->Reverb.RoomRolloffFactor = float2ALfp(AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR); - effect->Reverb.DecayHFLimit = AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT; - break; - case AL_EFFECT_ECHO: - effect->Echo.Delay = float2ALfp(AL_ECHO_DEFAULT_DELAY); - effect->Echo.LRDelay = float2ALfp(AL_ECHO_DEFAULT_LRDELAY); - effect->Echo.Damping = float2ALfp(AL_ECHO_DEFAULT_DAMPING); - effect->Echo.Feedback = float2ALfp(AL_ECHO_DEFAULT_FEEDBACK); - effect->Echo.Spread = float2ALfp(AL_ECHO_DEFAULT_SPREAD); - break; - case AL_EFFECT_RING_MODULATOR: - effect->Modulator.Frequency = float2ALfp(AL_RING_MODULATOR_DEFAULT_FREQUENCY); - effect->Modulator.HighPassCutoff = float2ALfp(AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF); - effect->Modulator.Waveform = AL_RING_MODULATOR_DEFAULT_WAVEFORM; - break; - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alError.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alError.c deleted file mode 100644 index b074a74be..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alError.c +++ /dev/null @@ -1,49 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2000 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include "alMain.h" -#include "AL/alc.h" -#include "alError.h" - -AL_API ALenum AL_APIENTRY alGetError(ALvoid) -{ - ALCcontext *Context; - ALenum errorCode; - - Context = GetContextSuspended(); - if(!Context) { - return AL_NO_ERROR; - } - - errorCode = Context->LastError; - Context->LastError = AL_NO_ERROR; - - ProcessContext(Context); - - return errorCode; -} - -ALvoid alSetError(ALCcontext *Context, ALenum errorCode) -{ - if(Context->LastError == AL_NO_ERROR) - Context->LastError = errorCode; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alExtension.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alExtension.c deleted file mode 100644 index 2ec8c8041..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alExtension.c +++ /dev/null @@ -1,335 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include - -#include "alError.h" -#include "alMain.h" -#include "alFilter.h" -#include "alEffect.h" -#include "alAuxEffectSlot.h" -#include "alDatabuffer.h" -#include "alSource.h" -#include "alBuffer.h" -#include "AL/al.h" -#include "AL/alc.h" - -typedef struct ALenums { - const ALchar *enumName; - ALenum value; -} ALenums; - - -static const ALenums enumeration[] = { - // Types - { "AL_INVALID", AL_INVALID }, - { "AL_NONE", AL_NONE }, - { "AL_FALSE", AL_FALSE }, - { "AL_TRUE", AL_TRUE }, - - // Source and Listener Properties - { "AL_SOURCE_RELATIVE", AL_SOURCE_RELATIVE }, - { "AL_CONE_INNER_ANGLE", AL_CONE_INNER_ANGLE }, - { "AL_CONE_OUTER_ANGLE", AL_CONE_OUTER_ANGLE }, - { "AL_PITCH", AL_PITCH }, - { "AL_POSITION", AL_POSITION }, - { "AL_DIRECTION", AL_DIRECTION }, - { "AL_VELOCITY", AL_VELOCITY }, - { "AL_LOOPING", AL_LOOPING }, - { "AL_BUFFER", AL_BUFFER }, - { "AL_GAIN", AL_GAIN }, - { "AL_MIN_GAIN", AL_MIN_GAIN }, - { "AL_MAX_GAIN", AL_MAX_GAIN }, - { "AL_ORIENTATION", AL_ORIENTATION }, - { "AL_REFERENCE_DISTANCE", AL_REFERENCE_DISTANCE }, - { "AL_ROLLOFF_FACTOR", AL_ROLLOFF_FACTOR }, - { "AL_CONE_OUTER_GAIN", AL_CONE_OUTER_GAIN }, - { "AL_MAX_DISTANCE", AL_MAX_DISTANCE }, - { "AL_SEC_OFFSET", AL_SEC_OFFSET }, - { "AL_SAMPLE_OFFSET", AL_SAMPLE_OFFSET }, - { "AL_SAMPLE_RW_OFFSETS_SOFT", AL_SAMPLE_RW_OFFSETS_SOFT }, - { "AL_BYTE_OFFSET", AL_BYTE_OFFSET }, - { "AL_BYTE_RW_OFFSETS_SOFT", AL_BYTE_RW_OFFSETS_SOFT }, - { "AL_SOURCE_TYPE", AL_SOURCE_TYPE }, - { "AL_STATIC", AL_STATIC }, - { "AL_STREAMING", AL_STREAMING }, - { "AL_UNDETERMINED", AL_UNDETERMINED }, - { "AL_METERS_PER_UNIT", AL_METERS_PER_UNIT }, - - // Source EFX Properties - { "AL_DIRECT_FILTER", AL_DIRECT_FILTER }, - { "AL_AUXILIARY_SEND_FILTER", AL_AUXILIARY_SEND_FILTER }, - { "AL_AIR_ABSORPTION_FACTOR", AL_AIR_ABSORPTION_FACTOR }, - { "AL_ROOM_ROLLOFF_FACTOR", AL_ROOM_ROLLOFF_FACTOR }, - { "AL_CONE_OUTER_GAINHF", AL_CONE_OUTER_GAINHF }, - { "AL_DIRECT_FILTER_GAINHF_AUTO", AL_DIRECT_FILTER_GAINHF_AUTO }, - { "AL_AUXILIARY_SEND_FILTER_GAIN_AUTO", AL_AUXILIARY_SEND_FILTER_GAIN_AUTO }, - { "AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO", AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO}, - - // Source State information - { "AL_SOURCE_STATE", AL_SOURCE_STATE }, - { "AL_INITIAL", AL_INITIAL }, - { "AL_PLAYING", AL_PLAYING }, - { "AL_PAUSED", AL_PAUSED }, - { "AL_STOPPED", AL_STOPPED }, - - // Queue information - { "AL_BUFFERS_QUEUED", AL_BUFFERS_QUEUED }, - { "AL_BUFFERS_PROCESSED", AL_BUFFERS_PROCESSED }, - - // Buffer Formats - { "AL_FORMAT_MONO8", AL_FORMAT_MONO8 }, - { "AL_FORMAT_MONO16", AL_FORMAT_MONO16 }, - { "AL_FORMAT_MONO_FLOAT32", AL_FORMAT_MONO_FLOAT32 }, - { "AL_FORMAT_MONO_DOUBLE_EXT", AL_FORMAT_MONO_DOUBLE_EXT }, - { "AL_FORMAT_STEREO8", AL_FORMAT_STEREO8 }, - { "AL_FORMAT_STEREO16", AL_FORMAT_STEREO16 }, - { "AL_FORMAT_STEREO_FLOAT32", AL_FORMAT_STEREO_FLOAT32 }, - { "AL_FORMAT_STEREO_DOUBLE_EXT", AL_FORMAT_STEREO_DOUBLE_EXT }, - { "AL_FORMAT_MONO_IMA4", AL_FORMAT_MONO_IMA4 }, - { "AL_FORMAT_STEREO_IMA4", AL_FORMAT_STEREO_IMA4 }, - { "AL_FORMAT_QUAD8_LOKI", AL_FORMAT_QUAD8_LOKI }, - { "AL_FORMAT_QUAD16_LOKI", AL_FORMAT_QUAD16_LOKI }, - { "AL_FORMAT_QUAD8", AL_FORMAT_QUAD8 }, - { "AL_FORMAT_QUAD16", AL_FORMAT_QUAD16 }, - { "AL_FORMAT_QUAD32", AL_FORMAT_QUAD32 }, - { "AL_FORMAT_51CHN8", AL_FORMAT_51CHN8 }, - { "AL_FORMAT_51CHN16", AL_FORMAT_51CHN16 }, - { "AL_FORMAT_51CHN32", AL_FORMAT_51CHN32 }, - { "AL_FORMAT_61CHN8", AL_FORMAT_61CHN8 }, - { "AL_FORMAT_61CHN16", AL_FORMAT_61CHN16 }, - { "AL_FORMAT_61CHN32", AL_FORMAT_61CHN32 }, - { "AL_FORMAT_71CHN8", AL_FORMAT_71CHN8 }, - { "AL_FORMAT_71CHN16", AL_FORMAT_71CHN16 }, - { "AL_FORMAT_71CHN32", AL_FORMAT_71CHN32 }, - { "AL_FORMAT_REAR8", AL_FORMAT_REAR8 }, - { "AL_FORMAT_REAR16", AL_FORMAT_REAR16 }, - { "AL_FORMAT_REAR32", AL_FORMAT_REAR32 }, - { "AL_FORMAT_MONO_MULAW", AL_FORMAT_MONO_MULAW }, - { "AL_FORMAT_MONO_MULAW_EXT", AL_FORMAT_MONO_MULAW }, - { "AL_FORMAT_STEREO_MULAW", AL_FORMAT_STEREO_MULAW }, - { "AL_FORMAT_STEREO_MULAW_EXT", AL_FORMAT_STEREO_MULAW }, - { "AL_FORMAT_QUAD_MULAW", AL_FORMAT_QUAD_MULAW }, - { "AL_FORMAT_51CHN_MULAW", AL_FORMAT_51CHN_MULAW }, - { "AL_FORMAT_61CHN_MULAW", AL_FORMAT_61CHN_MULAW }, - { "AL_FORMAT_71CHN_MULAW", AL_FORMAT_71CHN_MULAW }, - { "AL_FORMAT_REAR_MULAW", AL_FORMAT_REAR_MULAW }, - - // Buffer attributes - { "AL_FREQUENCY", AL_FREQUENCY }, - { "AL_BITS", AL_BITS }, - { "AL_CHANNELS", AL_CHANNELS }, - { "AL_SIZE", AL_SIZE }, - - // Buffer States (not supported yet) - { "AL_UNUSED", AL_UNUSED }, - { "AL_PENDING", AL_PENDING }, - { "AL_PROCESSED", AL_PROCESSED }, - - // AL Error Messages - { "AL_NO_ERROR", AL_NO_ERROR }, - { "AL_INVALID_NAME", AL_INVALID_NAME }, - { "AL_INVALID_ENUM", AL_INVALID_ENUM }, - { "AL_INVALID_VALUE", AL_INVALID_VALUE }, - { "AL_INVALID_OPERATION", AL_INVALID_OPERATION }, - { "AL_OUT_OF_MEMORY", AL_OUT_OF_MEMORY }, - - // Context strings - { "AL_VENDOR", AL_VENDOR }, - { "AL_VERSION", AL_VERSION }, - { "AL_RENDERER", AL_RENDERER }, - { "AL_EXTENSIONS", AL_EXTENSIONS }, - - // Global states - { "AL_DOPPLER_FACTOR", AL_DOPPLER_FACTOR }, - { "AL_DOPPLER_VELOCITY", AL_DOPPLER_VELOCITY }, - { "AL_DISTANCE_MODEL", AL_DISTANCE_MODEL }, - { "AL_SPEED_OF_SOUND", AL_SPEED_OF_SOUND }, - { "AL_SOURCE_DISTANCE_MODEL", AL_SOURCE_DISTANCE_MODEL }, - - // Distance Models - { "AL_INVERSE_DISTANCE", AL_INVERSE_DISTANCE }, - { "AL_INVERSE_DISTANCE_CLAMPED", AL_INVERSE_DISTANCE_CLAMPED }, - { "AL_LINEAR_DISTANCE", AL_LINEAR_DISTANCE }, - { "AL_LINEAR_DISTANCE_CLAMPED", AL_LINEAR_DISTANCE_CLAMPED }, - { "AL_EXPONENT_DISTANCE", AL_EXPONENT_DISTANCE }, - { "AL_EXPONENT_DISTANCE_CLAMPED", AL_EXPONENT_DISTANCE_CLAMPED }, - - // Apportable Extensions - { "AL_PRIORITY", AL_PRIORITY }, - { "AL_PRIORITY_SLOTS", AL_PRIORITY_SLOTS }, - - // Filter types - { "AL_FILTER_TYPE", AL_FILTER_TYPE }, - { "AL_FILTER_NULL", AL_FILTER_NULL }, - { "AL_FILTER_LOWPASS", AL_FILTER_LOWPASS }, -#if 0 - { "AL_FILTER_HIGHPASS", AL_FILTER_HIGHPASS }, - { "AL_FILTER_BANDPASS", AL_FILTER_BANDPASS }, -#endif - - // Filter params - { "AL_LOWPASS_GAIN", AL_LOWPASS_GAIN }, - { "AL_LOWPASS_GAINHF", AL_LOWPASS_GAINHF }, - - // Effect types - { "AL_EFFECT_TYPE", AL_EFFECT_TYPE }, - { "AL_EFFECT_NULL", AL_EFFECT_NULL }, - { "AL_EFFECT_REVERB", AL_EFFECT_REVERB }, - { "AL_EFFECT_EAXREVERB", AL_EFFECT_EAXREVERB }, -#if 0 - { "AL_EFFECT_CHORUS", AL_EFFECT_CHORUS }, - { "AL_EFFECT_DISTORTION", AL_EFFECT_DISTORTION }, -#endif - { "AL_EFFECT_ECHO", AL_EFFECT_ECHO }, -#if 0 - { "AL_EFFECT_FLANGER", AL_EFFECT_FLANGER }, - { "AL_EFFECT_FREQUENCY_SHIFTER", AL_EFFECT_FREQUENCY_SHIFTER }, - { "AL_EFFECT_VOCAL_MORPHER", AL_EFFECT_VOCAL_MORPHER }, - { "AL_EFFECT_PITCH_SHIFTER", AL_EFFECT_PITCH_SHIFTER }, -#endif - { "AL_EFFECT_RING_MODULATOR", AL_EFFECT_RING_MODULATOR }, -#if 0 - { "AL_EFFECT_AUTOWAH", AL_EFFECT_AUTOWAH }, - { "AL_EFFECT_COMPRESSOR", AL_EFFECT_COMPRESSOR }, - { "AL_EFFECT_EQUALIZER", AL_EFFECT_EQUALIZER }, -#endif - - // Reverb params - { "AL_REVERB_DENSITY", AL_REVERB_DENSITY }, - { "AL_REVERB_DIFFUSION", AL_REVERB_DIFFUSION }, - { "AL_REVERB_GAIN", AL_REVERB_GAIN }, - { "AL_REVERB_GAINHF", AL_REVERB_GAINHF }, - { "AL_REVERB_DECAY_TIME", AL_REVERB_DECAY_TIME }, - { "AL_REVERB_DECAY_HFRATIO", AL_REVERB_DECAY_HFRATIO }, - { "AL_REVERB_REFLECTIONS_GAIN", AL_REVERB_REFLECTIONS_GAIN }, - { "AL_REVERB_REFLECTIONS_DELAY", AL_REVERB_REFLECTIONS_DELAY }, - { "AL_REVERB_LATE_REVERB_GAIN", AL_REVERB_LATE_REVERB_GAIN }, - { "AL_REVERB_LATE_REVERB_DELAY", AL_REVERB_LATE_REVERB_DELAY }, - { "AL_REVERB_AIR_ABSORPTION_GAINHF", AL_REVERB_AIR_ABSORPTION_GAINHF }, - { "AL_REVERB_ROOM_ROLLOFF_FACTOR", AL_REVERB_ROOM_ROLLOFF_FACTOR }, - { "AL_REVERB_DECAY_HFLIMIT", AL_REVERB_DECAY_HFLIMIT }, - - // EAX Reverb params - { "AL_EAXREVERB_DENSITY", AL_EAXREVERB_DENSITY }, - { "AL_EAXREVERB_DIFFUSION", AL_EAXREVERB_DIFFUSION }, - { "AL_EAXREVERB_GAIN", AL_EAXREVERB_GAIN }, - { "AL_EAXREVERB_GAINHF", AL_EAXREVERB_GAINHF }, - { "AL_EAXREVERB_GAINLF", AL_EAXREVERB_GAINLF }, - { "AL_EAXREVERB_DECAY_TIME", AL_EAXREVERB_DECAY_TIME }, - { "AL_EAXREVERB_DECAY_HFRATIO", AL_EAXREVERB_DECAY_HFRATIO }, - { "AL_EAXREVERB_DECAY_LFRATIO", AL_EAXREVERB_DECAY_LFRATIO }, - { "AL_EAXREVERB_REFLECTIONS_GAIN", AL_EAXREVERB_REFLECTIONS_GAIN }, - { "AL_EAXREVERB_REFLECTIONS_DELAY", AL_EAXREVERB_REFLECTIONS_DELAY }, - { "AL_EAXREVERB_REFLECTIONS_PAN", AL_EAXREVERB_REFLECTIONS_PAN }, - { "AL_EAXREVERB_LATE_REVERB_GAIN", AL_EAXREVERB_LATE_REVERB_GAIN }, - { "AL_EAXREVERB_LATE_REVERB_DELAY", AL_EAXREVERB_LATE_REVERB_DELAY }, - { "AL_EAXREVERB_LATE_REVERB_PAN", AL_EAXREVERB_LATE_REVERB_PAN }, - { "AL_EAXREVERB_ECHO_TIME", AL_EAXREVERB_ECHO_TIME }, - { "AL_EAXREVERB_ECHO_DEPTH", AL_EAXREVERB_ECHO_DEPTH }, - { "AL_EAXREVERB_MODULATION_TIME", AL_EAXREVERB_MODULATION_TIME }, - { "AL_EAXREVERB_MODULATION_DEPTH", AL_EAXREVERB_MODULATION_DEPTH }, - { "AL_EAXREVERB_AIR_ABSORPTION_GAINHF", AL_EAXREVERB_AIR_ABSORPTION_GAINHF }, - { "AL_EAXREVERB_HFREFERENCE", AL_EAXREVERB_HFREFERENCE }, - { "AL_EAXREVERB_LFREFERENCE", AL_EAXREVERB_LFREFERENCE }, - { "AL_EAXREVERB_ROOM_ROLLOFF_FACTOR", AL_EAXREVERB_ROOM_ROLLOFF_FACTOR }, - { "AL_EAXREVERB_DECAY_HFLIMIT", AL_EAXREVERB_DECAY_HFLIMIT }, - - // Echo params - { "AL_ECHO_DELAY", AL_ECHO_DELAY }, - { "AL_ECHO_LRDELAY", AL_ECHO_LRDELAY }, - { "AL_ECHO_DAMPING", AL_ECHO_DAMPING }, - { "AL_ECHO_FEEDBACK", AL_ECHO_FEEDBACK }, - { "AL_ECHO_SPREAD", AL_ECHO_SPREAD }, - - // Ring Modulator params - { "AL_RING_MODULATOR_FREQUENCY", AL_RING_MODULATOR_FREQUENCY }, - { "AL_RING_MODULATOR_HIGHPASS_CUTOFF", AL_RING_MODULATOR_HIGHPASS_CUTOFF }, - { "AL_RING_MODULATOR_WAVEFORM", AL_RING_MODULATOR_WAVEFORM }, - - - // Default - { NULL, (ALenum)0 } -}; - - - -AL_API ALboolean AL_APIENTRY alIsExtensionPresent(const ALchar *extName) -{ - ALboolean bIsSupported = AL_FALSE; - ALCcontext *pContext; - const char *ptr; - size_t len; - - pContext = GetContextSuspended(); - if(!pContext) return AL_FALSE; - - if(!extName) - { - alSetError(pContext, AL_INVALID_VALUE); - ProcessContext(pContext); - return AL_FALSE; - } - - len = strlen(extName); - ptr = pContext->ExtensionList; - while(ptr && *ptr) - { - if(strncasecmp(ptr, extName, len) == 0 && - (ptr[len] == '\0' || isspace(ptr[len]))) - { - bIsSupported = AL_TRUE; - break; - } - if((ptr=strchr(ptr, ' ')) != NULL) - { - do { - ++ptr; - } while(isspace(*ptr)); - } - } - - ProcessContext(pContext); - - return bIsSupported; -} - - -AL_API ALvoid* AL_APIENTRY alGetProcAddress(const ALchar *funcName) -{ - if(!funcName) - return NULL; - return alcGetProcAddress(NULL, funcName); -} - -AL_API ALenum AL_APIENTRY alGetEnumValue(const ALchar *enumName) -{ - ALsizei i = 0; - - while(enumeration[i].enumName && - strcmp(enumeration[i].enumName, enumName) != 0) - i++; - - return enumeration[i].value; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alFilter.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alFilter.c deleted file mode 100644 index 7d6cda809..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alFilter.c +++ /dev/null @@ -1,432 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include - -#include "AL/al.h" -#include "AL/alc.h" -#include "alMain.h" -#include "alFilter.h" -#include "alThunk.h" -#include "alError.h" - - -static void InitFilterParams(ALfilter *filter, ALenum type); - -#define LookupFilter(m, k) ((ALfilter*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters) -{ - ALCcontext *Context; - ALsizei i=0; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0 || IsBadWritePtr((void*)filters, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALCdevice *device = Context->Device; - ALenum err; - - while(i < n) - { - ALfilter *filter = calloc(1, sizeof(ALfilter)); - if(!filter) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteFilters(i, filters); - break; - } - - filter->filter = ALTHUNK_ADDENTRY(filter); - err = InsertUIntMapEntry(&device->FilterMap, filter->filter, filter); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(filter->filter); - memset(filter, 0, sizeof(ALfilter)); - free(filter); - - alSetError(Context, err); - alDeleteFilters(i, filters); - break; - } - - filters[i++] = filter->filter; - InitFilterParams(filter, AL_FILTER_NULL); - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters) -{ - ALCcontext *Context; - ALCdevice *device; - ALfilter *ALFilter; - ALboolean Failed; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - Failed = AL_TRUE; - device = Context->Device; - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - Failed = AL_FALSE; - // Check that all filters are valid - for(i = 0;i < n;i++) - { - if(!filters[i]) - continue; - - if(LookupFilter(device->FilterMap, filters[i]) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - Failed = AL_TRUE; - break; - } - } - } - - if(!Failed) - { - // All filters are valid - for(i = 0;i < n;i++) - { - // Recheck that the filter is valid, because there could be duplicated names - if((ALFilter=LookupFilter(device->FilterMap, filters[i])) == NULL) - continue; - - RemoveUIntMapKey(&device->FilterMap, ALFilter->filter); - ALTHUNK_REMOVEENTRY(ALFilter->filter); - - memset(ALFilter, 0, sizeof(ALfilter)); - free(ALFilter); - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = ((!filter || LookupFilter(Context->Device->FilterMap, filter)) ? - AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - if(iValue == AL_FILTER_NULL || - iValue == AL_FILTER_LOWPASS) - InitFilterParams(ALFilter, iValue); - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - alFilteri(filter, param, piValues[0]); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flArg) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - ALfp flValue = float2ALfp(flArg); - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(ALFilter->type) - { - case AL_FILTER_LOWPASS: - switch(param) - { - case AL_LOWPASS_GAIN: - if(flValue >= int2ALfp(0) && flValue <= int2ALfp(1)) - ALFilter->Gain = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - case AL_LOWPASS_GAINHF: - if(flValue >= int2ALfp(0) && flValue <= int2ALfp(1)) - ALFilter->GainHF = flValue; - else - alSetError(Context, AL_INVALID_VALUE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - default: - alFilterf(filter, param, pflValues[0]); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - *piValue = ALFilter->type; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - case AL_FILTER_TYPE: - alGetFilteri(filter, param, piValues); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue) -{ - ALCcontext *Context; - ALCdevice *Device; - ALfilter *ALFilter; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if((ALFilter=LookupFilter(Device->FilterMap, filter)) != NULL) - { - switch(ALFilter->type) - { - case AL_FILTER_LOWPASS: - switch(param) - { - case AL_LOWPASS_GAIN: - *pflValue = ALfp2float(ALFilter->Gain); - break; - - case AL_LOWPASS_GAINHF: - *pflValue = ALfp2float(ALFilter->GainHF); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(LookupFilter(Device->FilterMap, filter) != NULL) - { - switch(param) - { - default: - alGetFilterf(filter, param, pflValues); - break; - } - } - else - alSetError(Context, AL_INVALID_NAME); - - ProcessContext(Context); -} - - -ALvoid ReleaseALFilters(ALCdevice *device) -{ - ALsizei i; - for(i = 0;i < device->FilterMap.size;i++) - { - ALfilter *temp = device->FilterMap.array[i].value; - device->FilterMap.array[i].value = NULL; - - // Release filter structure - ALTHUNK_REMOVEENTRY(temp->filter); - memset(temp, 0, sizeof(ALfilter)); - free(temp); - } -} - - -static void InitFilterParams(ALfilter *filter, ALenum type) -{ - filter->type = type; - - filter->Gain = int2ALfp(1); - filter->GainHF = int2ALfp(1); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alListener.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alListener.c deleted file mode 100644 index 78e658306..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alListener.c +++ /dev/null @@ -1,497 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2000 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include "alMain.h" -#include "AL/alc.h" -#include "alError.h" -#include "alListener.h" -#include "alSource.h" - -AL_API ALvoid AL_APIENTRY alListenerf(ALenum eParam, ALfloat flArg) -{ - ALCcontext *pContext; - ALboolean updateAll = AL_FALSE; - ALfp flValue = float2ALfp(flArg); - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_GAIN: - if(flValue >= int2ALfp(0)) - { - pContext->Listener.Gain = flValue; - updateAll = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_METERS_PER_UNIT: - if(flValue > int2ALfp(0)) - { - pContext->Listener.MetersPerUnit = flValue; - updateAll = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - // Force updating the sources for these parameters, since even head- - // relative sources are affected - if(updateAll) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alListener3f(ALenum eParam, ALfloat flArg1, ALfloat flArg2, ALfloat flArg3) -{ - ALCcontext *pContext; - ALboolean updateWorld = AL_FALSE; - ALfp flValue1 = float2ALfp(flArg1); - ALfp flValue2 = float2ALfp(flArg2); - ALfp flValue3 = float2ALfp(flArg3); - - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_POSITION: - pContext->Listener.Position[0] = flValue1; - pContext->Listener.Position[1] = flValue2; - pContext->Listener.Position[2] = flValue3; - updateWorld = AL_TRUE; - break; - - case AL_VELOCITY: - pContext->Listener.Velocity[0] = flValue1; - pContext->Listener.Velocity[1] = flValue2; - pContext->Listener.Velocity[2] = flValue3; - updateWorld = AL_TRUE; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - if(updateWorld) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - if(!source->bHeadRelative) - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alListenerfv(ALenum eParam, const ALfloat *pflValues) -{ - ALCcontext *pContext; - ALboolean updateWorld = AL_FALSE; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - switch(eParam) - { - case AL_GAIN: - case AL_METERS_PER_UNIT: - alListenerf(eParam, pflValues[0]); - break; - - case AL_POSITION: - case AL_VELOCITY: - alListener3f(eParam, pflValues[0], pflValues[1], pflValues[2]); - break; - - case AL_ORIENTATION: - // AT then UP - pContext->Listener.Forward[0] = float2ALfp(pflValues[0]); - pContext->Listener.Forward[1] = float2ALfp(pflValues[1]); - pContext->Listener.Forward[2] = float2ALfp(pflValues[2]); - pContext->Listener.Up[0] = float2ALfp(pflValues[3]); - pContext->Listener.Up[1] = float2ALfp(pflValues[4]); - pContext->Listener.Up[2] = float2ALfp(pflValues[5]); - updateWorld = AL_TRUE; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - if(updateWorld) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - if(!source->bHeadRelative) - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alListeneri(ALenum eParam, ALint lValue) -{ - ALCcontext *pContext; - - (void)lValue; - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_PRIORITY_SLOTS: - pContext->PrioritySlots = (ALsizei)lValue; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alListener3i(ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - switch(eParam) - { - case AL_POSITION: - case AL_VELOCITY: - alListener3f(eParam, (ALfloat)lValue1, (ALfloat)lValue2, (ALfloat)lValue3); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alListeneriv( ALenum eParam, const ALint* plValues ) -{ - ALCcontext *pContext; - ALfloat flValues[6]; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - switch(eParam) - { - case AL_POSITION: - case AL_VELOCITY: - flValues[0] = (ALfloat)plValues[0]; - flValues[1] = (ALfloat)plValues[1]; - flValues[2] = (ALfloat)plValues[2]; - alListenerfv(eParam, flValues); - break; - - case AL_ORIENTATION: - flValues[0] = (ALfloat)plValues[0]; - flValues[1] = (ALfloat)plValues[1]; - flValues[2] = (ALfloat)plValues[2]; - flValues[3] = (ALfloat)plValues[3]; - flValues[4] = (ALfloat)plValues[4]; - flValues[5] = (ALfloat)plValues[5]; - alListenerfv(eParam, flValues); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListenerf(ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue) - { - switch(eParam) - { - case AL_GAIN: - *pflValue = ALfp2float(pContext->Listener.Gain); - break; - - case AL_METERS_PER_UNIT: - *pflValue = ALfp2float(pContext->Listener.MetersPerUnit); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListener3f(ALenum eParam, ALfloat *pflValue1, ALfloat *pflValue2, ALfloat *pflValue3) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue1 && pflValue2 && pflValue3) - { - switch(eParam) - { - case AL_POSITION: - *pflValue1 = ALfp2float(pContext->Listener.Position[0]); - *pflValue2 = ALfp2float(pContext->Listener.Position[1]); - *pflValue3 = ALfp2float(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - *pflValue1 = ALfp2float(pContext->Listener.Velocity[0]); - *pflValue2 = ALfp2float(pContext->Listener.Velocity[1]); - *pflValue3 = ALfp2float(pContext->Listener.Velocity[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListenerfv(ALenum eParam, ALfloat *pflValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - switch(eParam) - { - case AL_GAIN: - pflValues[0] = ALfp2float(pContext->Listener.Gain); - break; - - case AL_METERS_PER_UNIT: - pflValues[0] = ALfp2float(pContext->Listener.MetersPerUnit); - break; - - case AL_POSITION: - pflValues[0] = ALfp2float(pContext->Listener.Position[0]); - pflValues[1] = ALfp2float(pContext->Listener.Position[1]); - pflValues[2] = ALfp2float(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - pflValues[0] = ALfp2float(pContext->Listener.Velocity[0]); - pflValues[1] = ALfp2float(pContext->Listener.Velocity[1]); - pflValues[2] = ALfp2float(pContext->Listener.Velocity[2]); - break; - - case AL_ORIENTATION: - // AT then UP - pflValues[0] = ALfp2float(pContext->Listener.Forward[0]); - pflValues[1] = ALfp2float(pContext->Listener.Forward[1]); - pflValues[2] = ALfp2float(pContext->Listener.Forward[2]); - pflValues[3] = ALfp2float(pContext->Listener.Up[0]); - pflValues[4] = ALfp2float(pContext->Listener.Up[1]); - pflValues[5] = ALfp2float(pContext->Listener.Up[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetListeneri(ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue) - { - switch(eParam) - { - case AL_PRIORITY_SLOTS: - *plValue = (ALint)pContext->PrioritySlots; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetListener3i(ALenum eParam, ALint *plValue1, ALint *plValue2, ALint *plValue3) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue1 && plValue2 && plValue3) - { - switch (eParam) - { - case AL_POSITION: - *plValue1 = (ALint)ALfp2int(pContext->Listener.Position[0]); - *plValue2 = (ALint)ALfp2int(pContext->Listener.Position[1]); - *plValue3 = (ALint)ALfp2int(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - *plValue1 = (ALint)ALfp2int(pContext->Listener.Velocity[0]); - *plValue2 = (ALint)ALfp2int(pContext->Listener.Velocity[1]); - *plValue3 = (ALint)ALfp2int(pContext->Listener.Velocity[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetListeneriv(ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - switch(eParam) - { - case AL_POSITION: - plValues[0] = (ALint)ALfp2int(pContext->Listener.Position[0]); - plValues[1] = (ALint)ALfp2int(pContext->Listener.Position[1]); - plValues[2] = (ALint)ALfp2int(pContext->Listener.Position[2]); - break; - - case AL_VELOCITY: - plValues[0] = (ALint)ALfp2int(pContext->Listener.Velocity[0]); - plValues[1] = (ALint)ALfp2int(pContext->Listener.Velocity[1]); - plValues[2] = (ALint)ALfp2int(pContext->Listener.Velocity[2]); - break; - - case AL_ORIENTATION: - // AT then UP - plValues[0] = (ALint)ALfp2int(pContext->Listener.Forward[0]); - plValues[1] = (ALint)ALfp2int(pContext->Listener.Forward[1]); - plValues[2] = (ALint)ALfp2int(pContext->Listener.Forward[2]); - plValues[3] = (ALint)ALfp2int(pContext->Listener.Up[0]); - plValues[4] = (ALint)ALfp2int(pContext->Listener.Up[1]); - plValues[5] = (ALint)ALfp2int(pContext->Listener.Up[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alSource.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alSource.c deleted file mode 100644 index 9ce764023..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alSource.c +++ /dev/null @@ -1,2095 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include -#include -#include "alMain.h" -#include "AL/al.h" -#include "AL/alc.h" -#include "alError.h" -#include "alSource.h" -#include "alBuffer.h" -#include "alThunk.h" -#include "alAuxEffectSlot.h" - -#ifdef ANDROID -// Apportable: Defines a cap on the maximum number of playing sources -extern int alc_max_sources; -extern int alc_active_sources; -#define LOG_TAG "OpenAL_alSource.c" -#define LOGV(...) __android_log_print(ANDROID_LOG_INFO, LOG_TAG, __VA_ARGS__) -#else -#define LOGV(...) -#endif - -resampler_t DefaultResampler; -const ALsizei ResamplerPadding[RESAMPLER_MAX] = { - 0, /* Point */ - 1, /* Linear */ - 2, /* Cubic */ -}; -const ALsizei ResamplerPrePadding[RESAMPLER_MAX] = { - 0, /* Point */ - 0, /* Linear */ - 1, /* Cubic */ -}; - - -static ALvoid InitSourceParams(ALsource *Source); -static ALvoid GetSourceOffset(ALsource *Source, ALenum eName, ALdfp *Offsets, ALdfp updateLen); -static ALboolean ApplyOffset(ALsource *Source); -static ALint GetByteOffset(ALsource *Source); - -#define LookupSource(m, k) ((ALsource*)LookupUIntMapKey(&(m), (k))) -#define LookupBuffer(m, k) ((ALbuffer*)LookupUIntMapKey(&(m), (k))) -#define LookupFilter(m, k) ((ALfilter*)LookupUIntMapKey(&(m), (k))) -#define LookupEffectSlot(m, k) ((ALeffectslot*)LookupUIntMapKey(&(m), (k))) - -AL_API ALvoid AL_APIENTRY alGenSources(ALsizei n,ALuint *sources) -{ - ALCcontext *Context; - ALCdevice *Device; - - Context = GetContextSuspended(); - if(!Context) return; - - Device = Context->Device; - if(n < 0 || IsBadWritePtr((void*)sources, n * sizeof(ALuint))) - alSetError(Context, AL_INVALID_VALUE); - else if((ALuint)n > Device->MaxNoOfSources - Context->SourceMap.size) - alSetError(Context, AL_INVALID_VALUE); - else - { - ALenum err; - ALsizei i; - - // Add additional sources to the list - i = 0; - while(i < n) - { - ALsource *source = calloc(1, sizeof(ALsource)); - if(!source) - { - alSetError(Context, AL_OUT_OF_MEMORY); - alDeleteSources(i, sources); - break; - } - - source->source = (ALuint)ALTHUNK_ADDENTRY(source); - err = InsertUIntMapEntry(&Context->SourceMap, source->source, - source); - if(err != AL_NO_ERROR) - { - ALTHUNK_REMOVEENTRY(source->source); - memset(source, 0, sizeof(ALsource)); - free(source); - - alSetError(Context, err); - alDeleteSources(i, sources); - break; - } - - sources[i++] = source->source; - InitSourceParams(source); - } - } - - ProcessContext(Context); -} - - -AL_API ALvoid AL_APIENTRY alDeleteSources(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i, j; - ALbufferlistitem *BufferList; - ALboolean SourcesValid = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - alSetError(Context, AL_INVALID_VALUE); - else - { - SourcesValid = AL_TRUE; - // Check that all Sources are valid (and can therefore be deleted) - for(i = 0;i < n;i++) - { - if(LookupSource(Context->SourceMap, sources[i]) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - SourcesValid = AL_FALSE; - break; - } - } - } - - if(SourcesValid) - { - // All Sources are valid, and can be deleted - for(i = 0;i < n;i++) - { - // Recheck that the Source is valid, because there could be duplicated Source names - if((Source=LookupSource(Context->SourceMap, sources[i])) == NULL) - continue; - - for(j = 0;j < Context->ActiveSourceCount;j++) - { - if(Context->ActiveSources[j] == Source) - { - ALsizei end = --(Context->ActiveSourceCount); - Context->ActiveSources[j] = Context->ActiveSources[end]; - break; - } - } - - // For each buffer in the source's queue... - while(Source->queue != NULL) - { - BufferList = Source->queue; - Source->queue = BufferList->next; - - if(BufferList->buffer != NULL) - BufferList->buffer->refcount--; - free(BufferList); - } - - for(j = 0;j < MAX_SENDS;++j) - { - if(Source->Send[j].Slot) - Source->Send[j].Slot->refcount--; - Source->Send[j].Slot = NULL; - } - - // Remove Source from list of Sources - RemoveUIntMapKey(&Context->SourceMap, Source->source); - ALTHUNK_REMOVEENTRY(Source->source); - - memset(Source,0,sizeof(ALsource)); - free(Source); - } - } - - ProcessContext(Context); -} - - -AL_API ALboolean AL_APIENTRY alIsSource(ALuint source) -{ - ALCcontext *Context; - ALboolean result; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - result = (LookupSource(Context->SourceMap, source) ? AL_TRUE : AL_FALSE); - - ProcessContext(Context); - - return result; -} - - -AL_API ALvoid AL_APIENTRY alSourcef(ALuint source, ALenum eParam, ALfloat flValue) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_PITCH: - if(flValue >= 0.0f) - { - Source->flPitch = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_INNER_ANGLE: - if(flValue >= 0.0f && flValue <= 360.0f) - { - Source->flInnerAngle = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_OUTER_ANGLE: - if(flValue >= 0.0f && flValue <= 360.0f) - { - Source->flOuterAngle = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_GAIN: - if(flValue >= 0.0f) - { - Source->flGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_MAX_DISTANCE: - if(flValue >= 0.0f) - { - Source->flMaxDistance = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_ROLLOFF_FACTOR: - if(flValue >= 0.0f) - { - Source->flRollOffFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_REFERENCE_DISTANCE: - if(flValue >= 0.0f) - { - Source->flRefDistance = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_MIN_GAIN: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->flMinGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_MAX_GAIN: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->flMaxGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_OUTER_GAIN: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->flOuterGain = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_CONE_OUTER_GAINHF: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->OuterGainHF = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_AIR_ABSORPTION_FACTOR: - if(flValue >= 0.0f && flValue <= 10.0f) - { - Source->AirAbsorptionFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_ROOM_ROLLOFF_FACTOR: - if(flValue >= 0.0f && flValue <= 10.0f) - { - Source->RoomRolloffFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_DOPPLER_FACTOR: - if(flValue >= 0.0f && flValue <= 1.0f) - { - Source->DopplerFactor = float2ALfp(flValue); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - if(flValue >= 0.0f) - { - Source->lOffsetType = eParam; - - // Store Offset (convert Seconds into Milliseconds) - if(eParam == AL_SEC_OFFSET) - Source->lOffset = (ALint)(flValue * 1000.0f); - else - Source->lOffset = (ALint)flValue; - - if ((Source->state == AL_PLAYING) || (Source->state == AL_PAUSED)) - { - if(ApplyOffset(Source) == AL_FALSE) - alSetError(pContext, AL_INVALID_VALUE); - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - { - // Invalid Source Name - alSetError(pContext, AL_INVALID_NAME); - } - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSource3f(ALuint source, ALenum eParam, ALfloat flValue1,ALfloat flValue2,ALfloat flValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_POSITION: - Source->vPosition[0] = float2ALfp(flValue1); - Source->vPosition[1] = float2ALfp(flValue2); - Source->vPosition[2] = float2ALfp(flValue3); - Source->NeedsUpdate = AL_TRUE; - break; - - case AL_VELOCITY: - Source->vVelocity[0] = float2ALfp(flValue1); - Source->vVelocity[1] = float2ALfp(flValue2); - Source->vVelocity[2] = float2ALfp(flValue3); - Source->NeedsUpdate = AL_TRUE; - break; - - case AL_DIRECTION: - Source->vOrientation[0] = float2ALfp(flValue1); - Source->vOrientation[1] = float2ALfp(flValue2); - Source->vOrientation[2] = float2ALfp(flValue3); - Source->NeedsUpdate = AL_TRUE; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSourcefv(ALuint source, ALenum eParam, const ALfloat *pflValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - if(LookupSource(pContext->SourceMap, source) != NULL) - { - switch(eParam) - { - case AL_PITCH: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_GAIN: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_REFERENCE_DISTANCE: - case AL_MIN_GAIN: - case AL_MAX_GAIN: - case AL_CONE_OUTER_GAIN: - case AL_CONE_OUTER_GAINHF: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_AIR_ABSORPTION_FACTOR: - case AL_ROOM_ROLLOFF_FACTOR: - alSourcef(source, eParam, pflValues[0]); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alSource3f(source, eParam, pflValues[0], pflValues[1], pflValues[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSourcei(ALuint source,ALenum eParam,ALint lValue) -{ - ALCcontext *pContext; - ALsource *Source; - ALbufferlistitem *BufferListItem; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - ALCdevice *device = pContext->Device; - - switch(eParam) - { - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_REFERENCE_DISTANCE: - alSourcef(source, eParam, (ALfloat)lValue); - break; - - case AL_SOURCE_RELATIVE: - if(lValue == AL_FALSE || lValue == AL_TRUE) - { - Source->bHeadRelative = (ALboolean)lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_LOOPING: - if(lValue == AL_FALSE || lValue == AL_TRUE) - Source->bLooping = (ALboolean)lValue; - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_BUFFER: - if(Source->state == AL_STOPPED || Source->state == AL_INITIAL) - { - ALbuffer *buffer = NULL; - - if(lValue == 0 || - (buffer=LookupBuffer(device->BufferMap, lValue)) != NULL) - { - // Remove all elements in the queue - while(Source->queue != NULL) - { - BufferListItem = Source->queue; - Source->queue = BufferListItem->next; - - if(BufferListItem->buffer) - BufferListItem->buffer->refcount--; - free(BufferListItem); - } - Source->BuffersInQueue = 0; - - // Add the buffer to the queue (as long as it is NOT the NULL buffer) - if(buffer != NULL) - { - // Source is now in STATIC mode - Source->lSourceType = AL_STATIC; - - // Add the selected buffer to the queue - BufferListItem = malloc(sizeof(ALbufferlistitem)); - BufferListItem->buffer = buffer; - BufferListItem->next = NULL; - BufferListItem->prev = NULL; - - Source->queue = BufferListItem; - Source->BuffersInQueue = 1; - - if(buffer->FmtChannels == FmtMono) - Source->Update = CalcSourceParams; - else - Source->Update = CalcNonAttnSourceParams; - - // Increment reference counter for buffer - buffer->refcount++; - } - else - { - // Source is now in UNDETERMINED mode - Source->lSourceType = AL_UNDETERMINED; - } - Source->BuffersPlayed = 0; - - // Update AL_BUFFER parameter - Source->Buffer = buffer; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - } - else - alSetError(pContext, AL_INVALID_OPERATION); - break; - - case AL_SOURCE_STATE: - // Query only - alSetError(pContext, AL_INVALID_OPERATION); - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - if(lValue >= 0) - { - Source->lOffsetType = eParam; - - // Store Offset (convert Seconds into Milliseconds) - if(eParam == AL_SEC_OFFSET) - Source->lOffset = lValue * 1000; - else - Source->lOffset = lValue; - - if(Source->state == AL_PLAYING || Source->state == AL_PAUSED) - { - if(ApplyOffset(Source) == AL_FALSE) - alSetError(pContext, AL_INVALID_VALUE); - } - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_DIRECT_FILTER: { - ALfilter *filter = NULL; - - if(lValue == 0 || - (filter=LookupFilter(pContext->Device->FilterMap, lValue)) != NULL) - { - if(!filter) - { - Source->DirectFilter.type = AL_FILTER_NULL; - Source->DirectFilter.filter = 0; - } - else - memcpy(&Source->DirectFilter, filter, sizeof(*filter)); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - } break; - - case AL_DIRECT_FILTER_GAINHF_AUTO: - if(lValue == AL_TRUE || lValue == AL_FALSE) - { - Source->DryGainHFAuto = lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - if(lValue == AL_TRUE || lValue == AL_FALSE) - { - Source->WetGainAuto = lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - if(lValue == AL_TRUE || lValue == AL_FALSE) - { - Source->WetGainHFAuto = lValue; - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_DISTANCE_MODEL: - if(lValue == AL_NONE || - lValue == AL_INVERSE_DISTANCE || - lValue == AL_INVERSE_DISTANCE_CLAMPED || - lValue == AL_LINEAR_DISTANCE || - lValue == AL_LINEAR_DISTANCE_CLAMPED || - lValue == AL_EXPONENT_DISTANCE || - lValue == AL_EXPONENT_DISTANCE_CLAMPED) - { - Source->DistanceModel = lValue; - if(pContext->SourceDistanceModel) - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - break; - - case AL_PRIORITY: - Source->priority = lValue; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alSource3i(ALuint source, ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - ALCdevice *device = pContext->Device; - - switch (eParam) - { - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alSource3f(source, eParam, (ALfloat)lValue1, (ALfloat)lValue2, (ALfloat)lValue3); - break; - - case AL_AUXILIARY_SEND_FILTER: { - ALeffectslot *ALEffectSlot = NULL; - ALfilter *ALFilter = NULL; - - if((ALuint)lValue2 < device->NumAuxSends && - (lValue1 == 0 || - (ALEffectSlot=LookupEffectSlot(pContext->EffectSlotMap, lValue1)) != NULL) && - (lValue3 == 0 || - (ALFilter=LookupFilter(device->FilterMap, lValue3)) != NULL)) - { - /* Release refcount on the previous slot, and add one for - * the new slot */ - if(Source->Send[lValue2].Slot) - Source->Send[lValue2].Slot->refcount--; - Source->Send[lValue2].Slot = ALEffectSlot; - if(Source->Send[lValue2].Slot) - Source->Send[lValue2].Slot->refcount++; - - if(!ALFilter) - { - /* Disable filter */ - Source->Send[lValue2].WetFilter.type = 0; - Source->Send[lValue2].WetFilter.filter = 0; - } - else - memcpy(&Source->Send[lValue2].WetFilter, ALFilter, sizeof(*ALFilter)); - Source->NeedsUpdate = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - } break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alSourceiv(ALuint source, ALenum eParam, const ALint* plValues) -{ - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - if(LookupSource(pContext->SourceMap, source) != NULL) - { - switch(eParam) - { - case AL_SOURCE_RELATIVE: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_LOOPING: - case AL_BUFFER: - case AL_SOURCE_STATE: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_REFERENCE_DISTANCE: - case AL_DIRECT_FILTER: - case AL_DIRECT_FILTER_GAINHF_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - case AL_DISTANCE_MODEL: - alSourcei(source, eParam, plValues[0]); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - case AL_AUXILIARY_SEND_FILTER: - alSource3i(source, eParam, plValues[0], plValues[1], plValues[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSourcef(ALuint source, ALenum eParam, ALfloat *pflValue) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_PITCH: - *pflValue = ALfp2float(Source->flPitch); - break; - - case AL_GAIN: - *pflValue = ALfp2float(Source->flGain); - break; - - case AL_MIN_GAIN: - *pflValue = ALfp2float(Source->flMinGain); - break; - - case AL_MAX_GAIN: - *pflValue = ALfp2float(Source->flMaxGain); - break; - - case AL_MAX_DISTANCE: - *pflValue = ALfp2float(Source->flMaxDistance); - break; - - case AL_ROLLOFF_FACTOR: - *pflValue = ALfp2float(Source->flRollOffFactor); - break; - - case AL_CONE_OUTER_GAIN: - *pflValue = ALfp2float(Source->flOuterGain); - break; - - case AL_CONE_OUTER_GAINHF: - *pflValue = ALfp2float(Source->OuterGainHF); - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - *pflValue = (ALfloat)ALdfp2double(Offsets[0]); - break; - - case AL_CONE_INNER_ANGLE: - *pflValue = ALfp2float(Source->flInnerAngle); - break; - - case AL_CONE_OUTER_ANGLE: - *pflValue = ALfp2float(Source->flOuterAngle); - break; - - case AL_REFERENCE_DISTANCE: - *pflValue = ALfp2float(Source->flRefDistance); - break; - - case AL_AIR_ABSORPTION_FACTOR: - *pflValue = ALfp2float(Source->AirAbsorptionFactor); - break; - - case AL_ROOM_ROLLOFF_FACTOR: - *pflValue = ALfp2float(Source->RoomRolloffFactor); - break; - - case AL_DOPPLER_FACTOR: - *pflValue = ALfp2float(Source->DopplerFactor); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSource3f(ALuint source, ALenum eParam, ALfloat* pflValue1, ALfloat* pflValue2, ALfloat* pflValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValue1 && pflValue2 && pflValue3) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_POSITION: - *pflValue1 = ALfp2float(Source->vPosition[0]); - *pflValue2 = ALfp2float(Source->vPosition[1]); - *pflValue3 = ALfp2float(Source->vPosition[2]); - break; - - case AL_VELOCITY: - *pflValue1 = ALfp2float(Source->vVelocity[0]); - *pflValue2 = ALfp2float(Source->vVelocity[1]); - *pflValue3 = ALfp2float(Source->vVelocity[2]); - break; - - case AL_DIRECTION: - *pflValue1 = ALfp2float(Source->vOrientation[0]); - *pflValue2 = ALfp2float(Source->vOrientation[1]); - *pflValue3 = ALfp2float(Source->vOrientation[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSourcefv(ALuint source, ALenum eParam, ALfloat *pflValues) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(pflValues) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_PITCH: - case AL_GAIN: - case AL_MIN_GAIN: - case AL_MAX_GAIN: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_DOPPLER_FACTOR: - case AL_CONE_OUTER_GAIN: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_REFERENCE_DISTANCE: - case AL_CONE_OUTER_GAINHF: - case AL_AIR_ABSORPTION_FACTOR: - case AL_ROOM_ROLLOFF_FACTOR: - alGetSourcef(source, eParam, pflValues); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alGetSource3f(source, eParam, pflValues+0, pflValues+1, pflValues+2); - break; - - case AL_SAMPLE_RW_OFFSETS_SOFT: - case AL_BYTE_RW_OFFSETS_SOFT: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - pflValues[0] = (ALfloat)ALdfp2double(Offsets[0]); - pflValues[1] = (ALfloat)ALdfp2double(Offsets[1]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alGetSourcei(ALuint source, ALenum eParam, ALint *plValue) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_MAX_DISTANCE: - *plValue = (ALint)ALfp2int(Source->flMaxDistance); - break; - - case AL_ROLLOFF_FACTOR: - *plValue = (ALint)ALfp2int(Source->flRollOffFactor); - break; - - case AL_REFERENCE_DISTANCE: - *plValue = (ALint)ALfp2int(Source->flRefDistance); - break; - - case AL_SOURCE_RELATIVE: - *plValue = Source->bHeadRelative; - break; - - case AL_CONE_INNER_ANGLE: - *plValue = (ALint)ALfp2int(Source->flInnerAngle); - break; - - case AL_CONE_OUTER_ANGLE: - *plValue = (ALint)ALfp2int(Source->flOuterAngle); - break; - - case AL_LOOPING: - *plValue = Source->bLooping; - break; - - case AL_BUFFER: - *plValue = (Source->Buffer ? Source->Buffer->buffer : 0); - break; - - case AL_SOURCE_STATE: - *plValue = Source->state; - break; - - case AL_BUFFERS_QUEUED: - *plValue = Source->BuffersInQueue; - break; - - case AL_BUFFERS_PROCESSED: - if(Source->bLooping || Source->lSourceType != AL_STREAMING) - { - /* Buffers on a looping source are in a perpetual state - * of PENDING, so don't report any as PROCESSED */ - *plValue = 0; - } - else - *plValue = Source->BuffersPlayed; - break; - - case AL_SOURCE_TYPE: - *plValue = Source->lSourceType; - break; - - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - *plValue = (ALint)ALfp2int(Offsets[0]); - break; - - case AL_DIRECT_FILTER: - *plValue = Source->DirectFilter.filter; - break; - - case AL_DIRECT_FILTER_GAINHF_AUTO: - *plValue = Source->DryGainHFAuto; - break; - - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - *plValue = Source->WetGainAuto; - break; - - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - *plValue = Source->WetGainHFAuto; - break; - - case AL_DOPPLER_FACTOR: - *plValue = (ALint)ALfp2int(Source->DopplerFactor); - break; - - case AL_DISTANCE_MODEL: - *plValue = Source->DistanceModel; - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetSource3i(ALuint source, ALenum eParam, ALint* plValue1, ALint* plValue2, ALint* plValue3) -{ - ALCcontext *pContext; - ALsource *Source; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValue1 && plValue2 && plValue3) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_POSITION: - *plValue1 = (ALint)ALfp2int(Source->vPosition[0]); - *plValue2 = (ALint)ALfp2int(Source->vPosition[1]); - *plValue3 = (ALint)ALfp2int(Source->vPosition[2]); - break; - - case AL_VELOCITY: - *plValue1 = (ALint)ALfp2int(Source->vVelocity[0]); - *plValue2 = (ALint)ALfp2int(Source->vVelocity[1]); - *plValue3 = (ALint)ALfp2int(Source->vVelocity[2]); - break; - - case AL_DIRECTION: - *plValue1 = (ALint)ALfp2int(Source->vOrientation[0]); - *plValue2 = (ALint)ALfp2int(Source->vOrientation[1]); - *plValue3 = (ALint)ALfp2int(Source->vOrientation[2]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API void AL_APIENTRY alGetSourceiv(ALuint source, ALenum eParam, ALint* plValues) -{ - ALCcontext *pContext; - ALsource *Source; - ALdfp Offsets[2]; - ALdfp updateLen; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(plValues) - { - if((Source=LookupSource(pContext->SourceMap, source)) != NULL) - { - switch(eParam) - { - case AL_SOURCE_RELATIVE: - case AL_CONE_INNER_ANGLE: - case AL_CONE_OUTER_ANGLE: - case AL_LOOPING: - case AL_BUFFER: - case AL_SOURCE_STATE: - case AL_BUFFERS_QUEUED: - case AL_BUFFERS_PROCESSED: - case AL_SEC_OFFSET: - case AL_SAMPLE_OFFSET: - case AL_BYTE_OFFSET: - case AL_MAX_DISTANCE: - case AL_ROLLOFF_FACTOR: - case AL_DOPPLER_FACTOR: - case AL_REFERENCE_DISTANCE: - case AL_SOURCE_TYPE: - case AL_DIRECT_FILTER: - case AL_DIRECT_FILTER_GAINHF_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAIN_AUTO: - case AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO: - case AL_DISTANCE_MODEL: - alGetSourcei(source, eParam, plValues); - break; - - case AL_POSITION: - case AL_VELOCITY: - case AL_DIRECTION: - alGetSource3i(source, eParam, plValues+0, plValues+1, plValues+2); - break; - - case AL_SAMPLE_RW_OFFSETS_SOFT: - case AL_BYTE_RW_OFFSETS_SOFT: - updateLen = ALdfpDiv(int2ALdfp(pContext->Device->UpdateSize), - int2ALdfp(pContext->Device->Frequency)); - GetSourceOffset(Source, eParam, Offsets, updateLen); - plValues[0] = (ALint)ALdfp2int(Offsets[0]); - plValues[1] = (ALint)ALdfp2int(Offsets[1]); - break; - - default: - alSetError(pContext, AL_INVALID_ENUM); - break; - } - } - else - alSetError(pContext, AL_INVALID_NAME); - } - else - alSetError(pContext, AL_INVALID_VALUE); - - ProcessContext(pContext); -} - - -AL_API ALvoid AL_APIENTRY alSourcePlay(ALuint source) -{ - alSourcePlayv(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourcePlayv(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALbufferlistitem *BufferList; - ALsizei i, j; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check that all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - - while(Context->MaxActiveSources-Context->ActiveSourceCount < n) - { - void *temp = NULL; - ALsizei newcount; - - newcount = Context->MaxActiveSources << 1; - if(newcount > 0) - temp = realloc(Context->ActiveSources, - sizeof(*Context->ActiveSources) * newcount); - if(!temp) - { - alSetError(Context, AL_OUT_OF_MEMORY); - goto done; - } - - Context->ActiveSources = temp; - Context->MaxActiveSources = newcount; - } - - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - -#ifdef MAX_SOURCES_LOW - if (Context->ActiveSourceCount >= (alc_max_sources - Context->PrioritySlots) && Source->priority < 127) { - LOGV("Skipping starting source %d due to lack of CPU time.", sources[i]); - continue; - } -#endif - - // Check that there is a queue containing at least one non-null, non zero length AL Buffer - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer != NULL && BufferList->buffer->size) - break; - BufferList = BufferList->next; - } - - if(!BufferList) - { - Source->state = AL_STOPPED; - Source->BuffersPlayed = Source->BuffersInQueue; - Source->position = 0; - Source->position_fraction = 0; - Source->lOffset = 0; - continue; - } - - if(Source->state != AL_PAUSED) - { - Source->state = AL_PLAYING; - Source->position = 0; - Source->position_fraction = 0; - Source->BuffersPlayed = 0; - - Source->Buffer = Source->queue->buffer; - } - else - Source->state = AL_PLAYING; - - // Check if an Offset has been set - if(Source->lOffset) - ApplyOffset(Source); - - // If device is disconnected, go right to stopped - if(!Context->Device->Connected) - { - Source->state = AL_STOPPED; - Source->BuffersPlayed = Source->BuffersInQueue; - Source->position = 0; - Source->position_fraction = 0; - } - else - { - for(j = 0;j < Context->ActiveSourceCount;j++) - { - if(Context->ActiveSources[j] == Source) - break; - } - if(j == Context->ActiveSourceCount) - Context->ActiveSources[Context->ActiveSourceCount++] = Source; - } - } - -#ifdef MAX_SOURCES_LOW - //Apportable Need to give the ALC platform code a hint for setting Source limit based on performance - alc_active_sources = Context->ActiveSourceCount; -#endif - -done: - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSourcePause(ALuint source) -{ - alSourcePausev(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourcePausev(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - if(Source->state == AL_PLAYING) - Source->state = AL_PAUSED; - } - -done: - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSourceStop(ALuint source) -{ - alSourceStopv(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourceStopv(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - if(Source->state != AL_INITIAL) - { - Source->state = AL_STOPPED; - Source->BuffersPlayed = Source->BuffersInQueue; - } - Source->lOffset = 0; - } - -done: - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSourceRewind(ALuint source) -{ - alSourceRewindv(1, &source); -} - -AL_API ALvoid AL_APIENTRY alSourceRewindv(ALsizei n, const ALuint *sources) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - if(n > 0 && !sources) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check all the Sources are valid - for(i = 0;i < n;i++) - { - if(!LookupSource(Context->SourceMap, sources[i])) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - } - - for(i = 0;i < n;i++) - { - Source = (ALsource*)ALTHUNK_LOOKUPENTRY(sources[i]); - if(Source->state != AL_INITIAL) - { - Source->state = AL_INITIAL; - Source->position = 0; - Source->position_fraction = 0; - Source->BuffersPlayed = 0; - if(Source->queue) - Source->Buffer = Source->queue->buffer; - } - Source->lOffset = 0; - } - -done: - ProcessContext(Context); -} - - -AL_API ALvoid AL_APIENTRY alSourceQueueBuffers(ALuint source, ALsizei n, const ALuint *buffers) -{ - ALCcontext *Context; - ALCdevice *device; - ALsource *Source; - ALbuffer *buffer; - ALsizei i; - ALbufferlistitem *BufferListStart; - ALbufferlistitem *BufferList; - ALbuffer *BufferFmt; - - if(n == 0) - return; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - // Check that all buffers are valid or zero and that the source is valid - - // Check that this is a valid source - if((Source=LookupSource(Context->SourceMap, source)) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - - // Check that this is not a STATIC Source - if(Source->lSourceType == AL_STATIC) - { - // Invalid Source Type (can't queue on a Static Source) - alSetError(Context, AL_INVALID_OPERATION); - goto done; - } - - device = Context->Device; - - BufferFmt = NULL; - - // Check existing Queue (if any) for a valid Buffers and get its frequency and format - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer) - { - BufferFmt = BufferList->buffer; - break; - } - BufferList = BufferList->next; - } - - for(i = 0;i < n;i++) - { - if(!buffers[i]) - continue; - - if((buffer=LookupBuffer(device->BufferMap, buffers[i])) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - - if(BufferFmt == NULL) - { - BufferFmt = buffer; - - if(buffer->FmtChannels == FmtMono) - Source->Update = CalcSourceParams; - else - Source->Update = CalcNonAttnSourceParams; - - Source->NeedsUpdate = AL_TRUE; - } - else if(BufferFmt->Frequency != buffer->Frequency || - BufferFmt->OriginalChannels != buffer->OriginalChannels || - BufferFmt->OriginalType != buffer->OriginalType) - { - alSetError(Context, AL_INVALID_OPERATION); - goto done; - } - } - - // Change Source Type - Source->lSourceType = AL_STREAMING; - - buffer = (ALbuffer*)ALTHUNK_LOOKUPENTRY(buffers[0]); - - // All buffers are valid - so add them to the list - BufferListStart = malloc(sizeof(ALbufferlistitem)); - BufferListStart->buffer = buffer; - BufferListStart->next = NULL; - BufferListStart->prev = NULL; - - // Increment reference counter for buffer - if(buffer) buffer->refcount++; - - BufferList = BufferListStart; - - for(i = 1;i < n;i++) - { - buffer = (ALbuffer*)ALTHUNK_LOOKUPENTRY(buffers[i]); - - BufferList->next = malloc(sizeof(ALbufferlistitem)); - BufferList->next->buffer = buffer; - BufferList->next->next = NULL; - BufferList->next->prev = BufferList; - - // Increment reference counter for buffer - if(buffer) buffer->refcount++; - - BufferList = BufferList->next; - } - - if(Source->queue == NULL) - { - Source->queue = BufferListStart; - // Update Current Buffer - Source->Buffer = BufferListStart->buffer; - } - else - { - // Find end of queue - BufferList = Source->queue; - while(BufferList->next != NULL) - BufferList = BufferList->next; - - BufferList->next = BufferListStart; - BufferList->next->prev = BufferList; - } - - // Update number of buffers in queue - Source->BuffersInQueue += n; - -done: - ProcessContext(Context); -} - - -// Implementation assumes that n is the number of buffers to be removed from the queue and buffers is -// an array of buffer IDs that are to be filled with the names of the buffers removed -AL_API ALvoid AL_APIENTRY alSourceUnqueueBuffers( ALuint source, ALsizei n, ALuint* buffers ) -{ - ALCcontext *Context; - ALsource *Source; - ALsizei i; - ALbufferlistitem *BufferList; - - if(n == 0) - return; - - Context = GetContextSuspended(); - if(!Context) return; - - if(n < 0) - { - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - if((Source=LookupSource(Context->SourceMap, source)) == NULL) - { - alSetError(Context, AL_INVALID_NAME); - goto done; - } - - if(Source->bLooping || Source->lSourceType != AL_STREAMING || - (ALuint)n > Source->BuffersPlayed) - { - // Some buffers can't be unqueue because they have not been processed - alSetError(Context, AL_INVALID_VALUE); - goto done; - } - - for(i = 0;i < n;i++) - { - BufferList = Source->queue; - Source->queue = BufferList->next; - - if(BufferList->buffer) - { - // Record name of buffer - buffers[i] = BufferList->buffer->buffer; - // Decrement buffer reference counter - BufferList->buffer->refcount--; - } - else - buffers[i] = 0; - - // Release memory for buffer list item - free(BufferList); - Source->BuffersInQueue--; - } - if(Source->queue) - Source->queue->prev = NULL; - - if(Source->state != AL_PLAYING) - { - if(Source->queue) - Source->Buffer = Source->queue->buffer; - else - Source->Buffer = NULL; - } - Source->BuffersPlayed -= n; - -done: - ProcessContext(Context); -} - - -static ALvoid InitSourceParams(ALsource *Source) -{ - Source->flInnerAngle = int2ALfp(360); - Source->flOuterAngle = int2ALfp(360); - Source->flPitch = int2ALfp(1); - Source->vPosition[0] = int2ALfp(0); - Source->vPosition[1] = int2ALfp(0); - Source->vPosition[2] = int2ALfp(0); - Source->vOrientation[0] = int2ALfp(0); - Source->vOrientation[1] = int2ALfp(0); - Source->vOrientation[2] = int2ALfp(0); - Source->vVelocity[0] = int2ALfp(0); - Source->vVelocity[1] = int2ALfp(0); - Source->vVelocity[2] = int2ALfp(0); - Source->flRefDistance = int2ALfp(1); - Source->flMaxDistance = int2ALfp(FLT_MAX); - Source->flRollOffFactor = int2ALfp(1); - Source->bLooping = AL_FALSE; - Source->flGain = int2ALfp(1); - Source->flMinGain = int2ALfp(0); - Source->flMaxGain = int2ALfp(1); - Source->flOuterGain = int2ALfp(0); - Source->OuterGainHF = int2ALfp(1); - - Source->DryGainHFAuto = AL_TRUE; - Source->WetGainAuto = AL_TRUE; - Source->WetGainHFAuto = AL_TRUE; - Source->AirAbsorptionFactor = int2ALfp(0); - Source->RoomRolloffFactor = int2ALfp(0); - Source->DopplerFactor = int2ALfp(1); - - Source->DistanceModel = AL_INVERSE_DISTANCE_CLAMPED; - - Source->Resampler = DefaultResampler; - - Source->state = AL_INITIAL; - Source->lSourceType = AL_UNDETERMINED; - - Source->NeedsUpdate = AL_TRUE; - - Source->Buffer = NULL; - Source->priority = 0; -} - - -/* - GetSourceOffset - - Gets the current playback position in the given Source, in the appropriate format (Bytes, Samples or MilliSeconds) - The offset is relative to the start of the queue (not the start of the current buffer) -*/ -static ALvoid GetSourceOffset(ALsource *Source, ALenum name, ALdfp *offset, ALdfp updateLen) -{ - const ALbufferlistitem *BufferList; - const ALbuffer *Buffer = NULL; - enum UserFmtType OriginalType; - ALsizei BufferFreq; - ALint Channels, Bytes; - ALuint readPos, writePos; - ALuint TotalBufferDataSize; - ALuint i; - - // Find the first non-NULL Buffer in the Queue - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer) - { - Buffer = BufferList->buffer; - break; - } - BufferList = BufferList->next; - } - - if((Source->state != AL_PLAYING && Source->state != AL_PAUSED) || !Buffer) - { - offset[0] = int2ALdfp(0); - offset[1] = int2ALdfp(0); - return; - } - - // Get Current Buffer Size and frequency (in milliseconds) - BufferFreq = Buffer->Frequency; - OriginalType = Buffer->OriginalType; - Channels = ChannelsFromFmt(Buffer->FmtChannels); - Bytes = BytesFromFmt(Buffer->FmtType); - - // Get Current BytesPlayed (NOTE : This is the byte offset into the *current* buffer) - readPos = Source->position * Channels * Bytes; - // Add byte length of any processed buffers in the queue - TotalBufferDataSize = 0; - BufferList = Source->queue; - for(i = 0;BufferList;i++) - { - if(BufferList->buffer) - { - if(i < Source->BuffersPlayed) - readPos += BufferList->buffer->size; - TotalBufferDataSize += BufferList->buffer->size; - } - BufferList = BufferList->next; - } - if(Source->state == AL_PLAYING) - writePos = readPos + ((ALuint)(ALdfp2int(ALdfpMult(updateLen,int2ALdfp(BufferFreq)))) * Channels * Bytes); - else - writePos = readPos; - - if(Source->bLooping) - { - readPos %= TotalBufferDataSize; - writePos %= TotalBufferDataSize; - } - else - { - // Wrap positions back to 0 - if(readPos >= TotalBufferDataSize) - readPos = 0; - if(writePos >= TotalBufferDataSize) - writePos = 0; - } - - switch(name) - { - case AL_SEC_OFFSET: - offset[0] = ALdfpDiv(readPos, int2ALdfp(Channels * Bytes * BufferFreq)); - offset[1] = ALdfpDiv(writePos, int2ALdfp(Channels * Bytes * BufferFreq)); - break; - case AL_SAMPLE_OFFSET: - case AL_SAMPLE_RW_OFFSETS_SOFT: - offset[0] = int2ALdfp(readPos / (Channels * Bytes)); - offset[1] = int2ALdfp(writePos / (Channels * Bytes)); - break; - case AL_BYTE_OFFSET: - case AL_BYTE_RW_OFFSETS_SOFT: - // Take into account the original format of the Buffer - if(OriginalType == UserFmtIMA4) - { - ALuint FrameBlockSize = 65 * Bytes * Channels; - ALuint BlockSize = 36 * Channels; - - // Round down to nearest ADPCM block - offset[0] = int2ALdfp(readPos / FrameBlockSize * BlockSize); - if(Source->state != AL_PLAYING) - offset[1] = offset[0]; - else - { - // Round up to nearest ADPCM block - offset[1] = int2ALdfp((writePos+FrameBlockSize-1) / - (FrameBlockSize * BlockSize)); - } - } - else - { - ALuint OrigBytes = BytesFromUserFmt(OriginalType); - offset[0] = int2ALdfp(readPos / Bytes * OrigBytes); - offset[1] = int2ALdfp(writePos / Bytes * OrigBytes); - } - break; - } -} - - -/* - ApplyOffset - - Apply a playback offset to the Source. This function will update the queue (to correctly - mark buffers as 'pending' or 'processed' depending upon the new offset. -*/ -static ALboolean ApplyOffset(ALsource *Source) -{ - const ALbufferlistitem *BufferList; - const ALbuffer *Buffer; - ALint lBufferSize, lTotalBufferSize; - ALint BuffersPlayed; - ALint lByteOffset; - - // Get true byte offset - lByteOffset = GetByteOffset(Source); - - // If the offset is invalid, don't apply it - if(lByteOffset == -1) - return AL_FALSE; - - // Sort out the queue (pending and processed states) - BufferList = Source->queue; - lTotalBufferSize = 0; - BuffersPlayed = 0; - - while(BufferList) - { - Buffer = BufferList->buffer; - lBufferSize = Buffer ? Buffer->size : 0; - - if(lBufferSize <= lByteOffset-lTotalBufferSize) - { - // Offset is past this buffer so increment BuffersPlayed - BuffersPlayed++; - } - else if(lTotalBufferSize <= lByteOffset) - { - // Offset is within this buffer - // Set Current Buffer - Source->Buffer = BufferList->buffer; - Source->BuffersPlayed = BuffersPlayed; - - // SW Mixer Positions are in Samples - Source->position = (lByteOffset - lTotalBufferSize) / - FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - return AL_TRUE; - } - - // Increment the TotalBufferSize - lTotalBufferSize += lBufferSize; - - // Move on to next buffer in the Queue - BufferList = BufferList->next; - } - // Offset is out of range of the buffer queue - return AL_FALSE; -} - - -/* - GetByteOffset - - Returns the 'true' byte offset into the Source's queue (from the Sample, Byte or Millisecond - offset supplied by the application). This takes into account the fact that the buffer format - may have been modifed by AL (e.g 8bit samples are converted to float) -*/ -static ALint GetByteOffset(ALsource *Source) -{ - const ALbuffer *Buffer = NULL; - const ALbufferlistitem *BufferList; - ALint ByteOffset = -1; - - // Find the first non-NULL Buffer in the Queue - BufferList = Source->queue; - while(BufferList) - { - if(BufferList->buffer) - { - Buffer = BufferList->buffer; - break; - } - BufferList = BufferList->next; - } - - if(!Buffer) - { - Source->lOffset = 0; - return -1; - } - - // Determine the ByteOffset (and ensure it is block aligned) - switch(Source->lOffsetType) - { - case AL_BYTE_OFFSET: - // Take into consideration the original format - ByteOffset = Source->lOffset; - if(Buffer->OriginalType == UserFmtIMA4) - { - // Round down to nearest ADPCM block - ByteOffset /= 36 * ChannelsFromUserFmt(Buffer->OriginalChannels); - // Multiply by compression rate (65 sample frames per block) - ByteOffset *= 65; - } - else - ByteOffset /= FrameSizeFromUserFmt(Buffer->OriginalChannels, Buffer->OriginalType); - ByteOffset *= FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - break; - - case AL_SAMPLE_OFFSET: - ByteOffset = Source->lOffset * FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - break; - - case AL_SEC_OFFSET: - // Note - lOffset is internally stored as Milliseconds - ByteOffset = (ALint)(Source->lOffset / 1000.0 * Buffer->Frequency); - ByteOffset *= FrameSizeFromFmt(Buffer->FmtChannels, Buffer->FmtType); - break; - } - // Clear Offset - Source->lOffset = 0; - - return ByteOffset; -} - - -ALvoid ReleaseALSources(ALCcontext *Context) -{ - ALsizei pos; - ALuint j; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *temp = Context->SourceMap.array[pos].value; - Context->SourceMap.array[pos].value = NULL; - - // For each buffer in the source's queue, decrement its reference counter and remove it - while(temp->queue != NULL) - { - ALbufferlistitem *BufferList = temp->queue; - temp->queue = BufferList->next; - - if(BufferList->buffer != NULL) - BufferList->buffer->refcount--; - free(BufferList); - } - - for(j = 0;j < MAX_SENDS;++j) - { - if(temp->Send[j].Slot) - temp->Send[j].Slot->refcount--; - temp->Send[j].Slot = NULL; - } - - // Release source structure - ALTHUNK_REMOVEENTRY(temp->source); - memset(temp, 0, sizeof(ALsource)); - free(temp); - } -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alState.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alState.c deleted file mode 100644 index 74c6a4079..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alState.c +++ /dev/null @@ -1,661 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2000 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include -#include "alMain.h" -#include "AL/alc.h" -#include "AL/alext.h" -#include "alError.h" -#include "alSource.h" -#include "alState.h" -#include "alDatabuffer.h" - -static const ALchar alVendor[] = "OpenAL Community"; -static const ALchar alVersion[] = "1.1 ALSOFT "ALSOFT_VERSION; -static const ALchar alRenderer[] = "OpenAL Soft"; - -// Error Messages -static const ALchar alNoError[] = "No Error"; -static const ALchar alErrInvalidName[] = "Invalid Name"; -static const ALchar alErrInvalidEnum[] = "Invalid Enum"; -static const ALchar alErrInvalidValue[] = "Invalid Value"; -static const ALchar alErrInvalidOp[] = "Invalid Operation"; -static const ALchar alErrOutOfMemory[] = "Out of Memory"; - -AL_API ALvoid AL_APIENTRY alEnable(ALenum capability) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - switch(capability) - { - case AL_SOURCE_DISTANCE_MODEL: - Context->SourceDistanceModel = AL_TRUE; - updateSources = AL_TRUE; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDisable(ALenum capability) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - switch(capability) - { - case AL_SOURCE_DISTANCE_MODEL: - Context->SourceDistanceModel = AL_FALSE; - updateSources = AL_TRUE; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALboolean AL_APIENTRY alIsEnabled(ALenum capability) -{ - ALCcontext *Context; - ALboolean value=AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - switch(capability) - { - case AL_SOURCE_DISTANCE_MODEL: - value = Context->SourceDistanceModel; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALboolean AL_APIENTRY alGetBoolean(ALenum pname) -{ - ALCcontext *Context; - ALboolean value=AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return AL_FALSE; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - if(Context->DopplerFactor != int2ALfp(0)) - value = AL_TRUE; - break; - - case AL_DOPPLER_VELOCITY: - if(Context->DopplerVelocity != int2ALfp(0)) - value = AL_TRUE; - break; - - case AL_DISTANCE_MODEL: - if(Context->DistanceModel == AL_INVERSE_DISTANCE_CLAMPED) - value = AL_TRUE; - break; - - case AL_SPEED_OF_SOUND: - if(Context->flSpeedOfSound != int2ALfp(0)) - value = AL_TRUE; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALdouble AL_APIENTRY alGetDouble(ALenum pname) -{ - ALCcontext *Context; - ALdouble value = 0.0; - - Context = GetContextSuspended(); - if(!Context) return 0.0; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - value = (double)ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - value = (double)ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - value = (double)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - value = (double)ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALfloat AL_APIENTRY alGetFloat(ALenum pname) -{ - ALCcontext *Context; - ALfloat value = 0.0f; - - Context = GetContextSuspended(); - if(!Context) return 0.0f; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - value = ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - value = ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - value = (float)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - value = ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALint AL_APIENTRY alGetInteger(ALenum pname) -{ - ALCcontext *Context; - ALint value = 0; - - Context = GetContextSuspended(); - if(!Context) return 0; - - switch(pname) - { - case AL_DOPPLER_FACTOR: - value = (ALint)ALfp2int(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - value = (ALint)ALfp2int(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - value = (ALint)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - value = (ALint)ALfp2int(Context->flSpeedOfSound); - break; - - case AL_SAMPLE_SOURCE_EXT: - if(Context->SampleSource) - value = (ALint)Context->SampleSource->databuffer; - else - value = 0; - break; - - case AL_SAMPLE_SINK_EXT: - if(Context->SampleSink) - value = (ALint)Context->SampleSink->databuffer; - else - value = 0; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - - ProcessContext(Context); - - return value; -} - -AL_API ALvoid AL_APIENTRY alGetBooleanv(ALenum pname,ALboolean *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = (ALboolean)((Context->DopplerFactor != int2ALfp(0)) ? AL_TRUE : AL_FALSE); - break; - - case AL_DOPPLER_VELOCITY: - *data = (ALboolean)((Context->DopplerVelocity != int2ALfp(0)) ? AL_TRUE : AL_FALSE); - break; - - case AL_DISTANCE_MODEL: - *data = (ALboolean)((Context->DistanceModel == AL_INVERSE_DISTANCE_CLAMPED) ? AL_TRUE : AL_FALSE); - break; - - case AL_SPEED_OF_SOUND: - *data = (ALboolean)((Context->flSpeedOfSound != int2ALfp(0)) ? AL_TRUE : AL_FALSE); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetDoublev(ALenum pname,ALdouble *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = (double)ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - *data = (double)ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - *data = (double)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - *data = (double)ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetFloatv(ALenum pname,ALfloat *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = ALfp2float(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - *data = ALfp2float(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - *data = (float)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - *data = ALfp2float(Context->flSpeedOfSound); - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alGetIntegerv(ALenum pname,ALint *data) -{ - ALCcontext *Context; - - Context = GetContextSuspended(); - if(!Context) return; - - if(data) - { - switch(pname) - { - case AL_DOPPLER_FACTOR: - *data = (ALint)ALfp2int(Context->DopplerFactor); - break; - - case AL_DOPPLER_VELOCITY: - *data = (ALint)ALfp2int(Context->DopplerVelocity); - break; - - case AL_DISTANCE_MODEL: - *data = (ALint)Context->DistanceModel; - break; - - case AL_SPEED_OF_SOUND: - *data = (ALint)ALfp2int(Context->flSpeedOfSound); - break; - - case AL_SAMPLE_SOURCE_EXT: - if(Context->SampleSource) - *data = (ALint)Context->SampleSource->databuffer; - else - *data = 0; - break; - - case AL_SAMPLE_SINK_EXT: - if(Context->SampleSink) - *data = (ALint)Context->SampleSink->databuffer; - else - *data = 0; - break; - - default: - alSetError(Context, AL_INVALID_ENUM); - break; - } - } - else - { - // data is a NULL pointer - alSetError(Context, AL_INVALID_VALUE); - } - - ProcessContext(Context); -} - -AL_API const ALchar* AL_APIENTRY alGetString(ALenum pname) -{ - const ALchar *value; - ALCcontext *pContext; - - pContext = GetContextSuspended(); - if(!pContext) return NULL; - - switch(pname) - { - case AL_VENDOR: - value=alVendor; - break; - - case AL_VERSION: - value=alVersion; - break; - - case AL_RENDERER: - value=alRenderer; - break; - - case AL_EXTENSIONS: - value=pContext->ExtensionList;//alExtensions; - break; - - case AL_NO_ERROR: - value=alNoError; - break; - - case AL_INVALID_NAME: - value=alErrInvalidName; - break; - - case AL_INVALID_ENUM: - value=alErrInvalidEnum; - break; - - case AL_INVALID_VALUE: - value=alErrInvalidValue; - break; - - case AL_INVALID_OPERATION: - value=alErrInvalidOp; - break; - - case AL_OUT_OF_MEMORY: - value=alErrOutOfMemory; - break; - - default: - value=NULL; - alSetError(pContext, AL_INVALID_ENUM); - break; - } - - ProcessContext(pContext); - - return value; -} - -AL_API ALvoid AL_APIENTRY alDopplerFactor(ALfloat value) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - if(value >= 0.0f) - { - Context->DopplerFactor = float2ALfp(value); - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - - // Force updating the sources for these parameters, since even head- - // relative sources are affected - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alDopplerVelocity(ALfloat value) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - if(value > 0.0f) - { - Context->DopplerVelocity=float2ALfp(value); - updateSources = AL_TRUE; - } - else - alSetError(Context, AL_INVALID_VALUE); - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} - -AL_API ALvoid AL_APIENTRY alSpeedOfSound(ALfloat flSpeedOfSound) -{ - ALCcontext *pContext; - ALboolean updateSources = AL_FALSE; - - pContext = GetContextSuspended(); - if(!pContext) return; - - if(flSpeedOfSound > 0.0f) - { - pContext->flSpeedOfSound = float2ALfp(flSpeedOfSound); - updateSources = AL_TRUE; - } - else - alSetError(pContext, AL_INVALID_VALUE); - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < pContext->SourceMap.size;pos++) - { - ALsource *source = pContext->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(pContext); -} - -AL_API ALvoid AL_APIENTRY alDistanceModel(ALenum value) -{ - ALCcontext *Context; - ALboolean updateSources = AL_FALSE; - - Context = GetContextSuspended(); - if(!Context) return; - - switch(value) - { - case AL_NONE: - case AL_INVERSE_DISTANCE: - case AL_INVERSE_DISTANCE_CLAMPED: - case AL_LINEAR_DISTANCE: - case AL_LINEAR_DISTANCE_CLAMPED: - case AL_EXPONENT_DISTANCE: - case AL_EXPONENT_DISTANCE_CLAMPED: - Context->DistanceModel = value; - updateSources = !Context->SourceDistanceModel; - break; - - default: - alSetError(Context, AL_INVALID_VALUE); - break; - } - - if(updateSources) - { - ALsizei pos; - for(pos = 0;pos < Context->SourceMap.size;pos++) - { - ALsource *source = Context->SourceMap.array[pos].value; - source->NeedsUpdate = AL_TRUE; - } - } - - ProcessContext(Context); -} diff --git a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alThunk.c b/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alThunk.c deleted file mode 100644 index 08b80b067..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/OpenAL32/alThunk.c +++ /dev/null @@ -1,111 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 1999-2007 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#include "config.h" - -#include - -#include "alMain.h" -#include "alThunk.h" - -typedef struct { - ALvoid *ptr; - ALboolean InUse; -} ThunkEntry; - -static ThunkEntry *g_ThunkArray; -static ALuint g_ThunkArraySize; - -static CRITICAL_SECTION g_ThunkLock; - -void alThunkInit(void) -{ - InitializeCriticalSection(&g_ThunkLock); - g_ThunkArraySize = 1; - g_ThunkArray = calloc(1, g_ThunkArraySize * sizeof(ThunkEntry)); -} - -void alThunkExit(void) -{ - free(g_ThunkArray); - g_ThunkArray = NULL; - g_ThunkArraySize = 0; - DeleteCriticalSection(&g_ThunkLock); -} - -ALuint alThunkAddEntry(ALvoid *ptr) -{ - ALuint index; - - EnterCriticalSection(&g_ThunkLock); - - for(index = 0;index < g_ThunkArraySize;index++) - { - if(g_ThunkArray[index].InUse == AL_FALSE) - break; - } - - if(index == g_ThunkArraySize) - { - ThunkEntry *NewList; - - NewList = realloc(g_ThunkArray, g_ThunkArraySize*2 * sizeof(ThunkEntry)); - if(!NewList) - { - LeaveCriticalSection(&g_ThunkLock); - AL_PRINT("Realloc failed to increase to %u enties!\n", g_ThunkArraySize*2); - return 0; - } - memset(&NewList[g_ThunkArraySize], 0, g_ThunkArraySize*sizeof(ThunkEntry)); - g_ThunkArraySize *= 2; - g_ThunkArray = NewList; - } - - g_ThunkArray[index].ptr = ptr; - g_ThunkArray[index].InUse = AL_TRUE; - - LeaveCriticalSection(&g_ThunkLock); - - return index+1; -} - -void alThunkRemoveEntry(ALuint index) -{ - EnterCriticalSection(&g_ThunkLock); - - if(index > 0 && index <= g_ThunkArraySize) - g_ThunkArray[index-1].InUse = AL_FALSE; - - LeaveCriticalSection(&g_ThunkLock); -} - -ALvoid *alThunkLookupEntry(ALuint index) -{ - ALvoid *ptr = NULL; - - EnterCriticalSection(&g_ThunkLock); - - if(index > 0 && index <= g_ThunkArraySize) - ptr = g_ThunkArray[index-1].ptr; - - LeaveCriticalSection(&g_ThunkLock); - - return ptr; -} diff --git a/internal/c/parts/audio/out/android/other/stuff/al.h b/internal/c/parts/audio/out/android/other/stuff/al.h deleted file mode 100644 index b469326de..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/al.h +++ /dev/null @@ -1,735 +0,0 @@ -#ifndef AL_AL_H -#define AL_AL_H - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define AL_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define AL_API __declspec(dllexport) - #else - #define AL_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define AL_API __attribute__((visibility("protected"))) - #else - #define AL_API extern - #endif -#endif - -#if defined(_WIN32) - #define AL_APIENTRY __cdecl -#else - #define AL_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The OPENAL, ALAPI, ALAPIENTRY, AL_INVALID, AL_ILLEGAL_ENUM, and - * AL_ILLEGAL_COMMAND macros are deprecated, but are included for - * applications porting code from AL 1.0 - */ -#define OPENAL -#define ALAPI AL_API -#define ALAPIENTRY AL_APIENTRY -#define AL_INVALID (-1) -#define AL_ILLEGAL_ENUM AL_INVALID_ENUM -#define AL_ILLEGAL_COMMAND AL_INVALID_OPERATION - -#define AL_VERSION_1_0 -#define AL_VERSION_1_1 - - -/** 8-bit boolean */ -typedef char ALboolean; - -/** character */ -typedef char ALchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALsizei; - -/** enumerated 32-bit value */ -typedef int ALenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALdouble; - -/** void type (for opaque pointers only) */ -typedef void ALvoid; - - -/* Enumerant values begin at column 50. No tabs. */ - -/* "no distance model" or "no buffer" */ -#define AL_NONE 0 - -/* Boolean False. */ -#define AL_FALSE 0 - -/** Boolean True. */ -#define AL_TRUE 1 - -/** Indicate Source has relative coordinates. */ -#define AL_SOURCE_RELATIVE 0x202 - - - -/** - * Directional source, inner cone angle, in degrees. - * Range: [0-360] - * Default: 360 - */ -#define AL_CONE_INNER_ANGLE 0x1001 - -/** - * Directional source, outer cone angle, in degrees. - * Range: [0-360] - * Default: 360 - */ -#define AL_CONE_OUTER_ANGLE 0x1002 - -/** - * Specify the pitch to be applied at source. - * Range: [0.5-2.0] - * Default: 1.0 - */ -#define AL_PITCH 0x1003 - -/** - * Specify the current location in three dimensional space. - * OpenAL, like OpenGL, uses a right handed coordinate system, - * where in a frontal default view X (thumb) points right, - * Y points up (index finger), and Z points towards the - * viewer/camera (middle finger). - * To switch from a left handed coordinate system, flip the - * sign on the Z coordinate. - * Listener position is always in the world coordinate system. - */ -#define AL_POSITION 0x1004 - -/** Specify the current direction. */ -#define AL_DIRECTION 0x1005 - -/** Specify the current velocity in three dimensional space. */ -#define AL_VELOCITY 0x1006 - -/** - * Indicate whether source is looping. - * Type: ALboolean? - * Range: [AL_TRUE, AL_FALSE] - * Default: FALSE. - */ -#define AL_LOOPING 0x1007 - -/** - * Indicate the buffer to provide sound samples. - * Type: ALuint. - * Range: any valid Buffer id. - */ -#define AL_BUFFER 0x1009 - -/** - * Indicate the gain (volume amplification) applied. - * Type: ALfloat. - * Range: ]0.0- ] - * A value of 1.0 means un-attenuated/unchanged. - * Each division by 2 equals an attenuation of -6dB. - * Each multiplicaton with 2 equals an amplification of +6dB. - * A value of 0.0 is meaningless with respect to a logarithmic - * scale; it is interpreted as zero volume - the channel - * is effectively disabled. - */ -#define AL_GAIN 0x100A - -/* - * Indicate minimum source attenuation - * Type: ALfloat - * Range: [0.0 - 1.0] - * - * Logarthmic - */ -#define AL_MIN_GAIN 0x100D - -/** - * Indicate maximum source attenuation - * Type: ALfloat - * Range: [0.0 - 1.0] - * - * Logarthmic - */ -#define AL_MAX_GAIN 0x100E - -/** - * Indicate listener orientation. - * - * at/up - */ -#define AL_ORIENTATION 0x100F - -/** - * Source state information. - */ -#define AL_SOURCE_STATE 0x1010 -#define AL_INITIAL 0x1011 -#define AL_PLAYING 0x1012 -#define AL_PAUSED 0x1013 -#define AL_STOPPED 0x1014 - -/** - * Buffer Queue params - */ -#define AL_BUFFERS_QUEUED 0x1015 -#define AL_BUFFERS_PROCESSED 0x1016 - -/** - * Source buffer position information - */ -#define AL_SEC_OFFSET 0x1024 -#define AL_SAMPLE_OFFSET 0x1025 -#define AL_BYTE_OFFSET 0x1026 - -/* - * Source type (Static, Streaming or undetermined) - * Source is Static if a Buffer has been attached using AL_BUFFER - * Source is Streaming if one or more Buffers have been attached using alSourceQueueBuffers - * Source is undetermined when it has the NULL buffer attached - */ -#define AL_SOURCE_TYPE 0x1027 -#define AL_STATIC 0x1028 -#define AL_STREAMING 0x1029 -#define AL_UNDETERMINED 0x1030 - -/** Sound samples: format specifier. */ -#define AL_FORMAT_MONO8 0x1100 -#define AL_FORMAT_MONO16 0x1101 -#define AL_FORMAT_STEREO8 0x1102 -#define AL_FORMAT_STEREO16 0x1103 - -/** - * source specific reference distance - * Type: ALfloat - * Range: 0.0 - +inf - * - * At 0.0, no distance attenuation occurs. Default is - * 1.0. - */ -#define AL_REFERENCE_DISTANCE 0x1020 - -/** - * source specific rolloff factor - * Type: ALfloat - * Range: 0.0 - +inf - * - */ -#define AL_ROLLOFF_FACTOR 0x1021 - -/** - * Directional source, outer cone gain. - * - * Default: 0.0 - * Range: [0.0 - 1.0] - * Logarithmic - */ -#define AL_CONE_OUTER_GAIN 0x1022 - -/** - * Indicate distance above which sources are not - * attenuated using the inverse clamped distance model. - * - * Default: +inf - * Type: ALfloat - * Range: 0.0 - +inf - */ -#define AL_MAX_DISTANCE 0x1023 - -/** - * Sound samples: frequency, in units of Hertz [Hz]. - * This is the number of samples per second. Half of the - * sample frequency marks the maximum significant - * frequency component. - */ -#define AL_FREQUENCY 0x2001 -#define AL_BITS 0x2002 -#define AL_CHANNELS 0x2003 -#define AL_SIZE 0x2004 - -/** - * Buffer state. - * - * Not supported for public use (yet). - */ -#define AL_UNUSED 0x2010 -#define AL_PENDING 0x2011 -#define AL_PROCESSED 0x2012 - - -/** Errors: No Error. */ -#define AL_NO_ERROR AL_FALSE - -/** - * Invalid Name paramater passed to AL call. - */ -#define AL_INVALID_NAME 0xA001 - -/** - * Invalid parameter passed to AL call. - */ -#define AL_INVALID_ENUM 0xA002 - -/** - * Invalid enum parameter value. - */ -#define AL_INVALID_VALUE 0xA003 - -/** - * Illegal call. - */ -#define AL_INVALID_OPERATION 0xA004 - - -/** - * No mojo. - */ -#define AL_OUT_OF_MEMORY 0xA005 - - -/** Context strings: Vendor Name. */ -#define AL_VENDOR 0xB001 -#define AL_VERSION 0xB002 -#define AL_RENDERER 0xB003 -#define AL_EXTENSIONS 0xB004 - -/** Global tweakage. */ - -/** - * Doppler scale. Default 1.0 - */ -#define AL_DOPPLER_FACTOR 0xC000 - -/** - * Tweaks speed of propagation. - */ -#define AL_DOPPLER_VELOCITY 0xC001 - -/** - * Speed of Sound in units per second - */ -#define AL_SPEED_OF_SOUND 0xC003 - -/** - * Distance models - * - * used in conjunction with DistanceModel - * - * implicit: NONE, which disances distance attenuation. - */ -#define AL_DISTANCE_MODEL 0xD000 -#define AL_INVERSE_DISTANCE 0xD001 -#define AL_INVERSE_DISTANCE_CLAMPED 0xD002 -#define AL_LINEAR_DISTANCE 0xD003 -#define AL_LINEAR_DISTANCE_CLAMPED 0xD004 -#define AL_EXPONENT_DISTANCE 0xD005 -#define AL_EXPONENT_DISTANCE_CLAMPED 0xD006 - - -/** - * Priority - * - * Apportable Extension. - * Used to prevent dynamic throttling of this source - * - */ -#define AL_PRIORITY 0xE001 -#define AL_PRIORITY_SLOTS 0xE002 - -/* - * Renderer State management - */ -AL_API void AL_APIENTRY alEnable( ALenum capability ); - -AL_API void AL_APIENTRY alDisable( ALenum capability ); - -AL_API ALboolean AL_APIENTRY alIsEnabled( ALenum capability ); - - -/* - * State retrieval - */ -AL_API const ALchar* AL_APIENTRY alGetString( ALenum param ); - -AL_API void AL_APIENTRY alGetBooleanv( ALenum param, ALboolean* data ); - -AL_API void AL_APIENTRY alGetIntegerv( ALenum param, ALint* data ); - -AL_API void AL_APIENTRY alGetFloatv( ALenum param, ALfloat* data ); - -AL_API void AL_APIENTRY alGetDoublev( ALenum param, ALdouble* data ); - -AL_API ALboolean AL_APIENTRY alGetBoolean( ALenum param ); - -AL_API ALint AL_APIENTRY alGetInteger( ALenum param ); - -AL_API ALfloat AL_APIENTRY alGetFloat( ALenum param ); - -AL_API ALdouble AL_APIENTRY alGetDouble( ALenum param ); - - -/* - * Error support. - * Obtain the most recent error generated in the AL state machine. - */ -AL_API ALenum AL_APIENTRY alGetError( void ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -AL_API ALboolean AL_APIENTRY alIsExtensionPresent( const ALchar* extname ); - -AL_API void* AL_APIENTRY alGetProcAddress( const ALchar* fname ); - -AL_API ALenum AL_APIENTRY alGetEnumValue( const ALchar* ename ); - - -/* - * LISTENER - * Listener represents the location and orientation of the - * 'user' in 3D-space. - * - * Properties include: - - * - * Gain AL_GAIN ALfloat - * Position AL_POSITION ALfloat[3] - * Velocity AL_VELOCITY ALfloat[3] - * Orientation AL_ORIENTATION ALfloat[6] (Forward then Up vectors) -*/ - -/* - * Set Listener parameters - */ -AL_API void AL_APIENTRY alListenerf( ALenum param, ALfloat value ); - -AL_API void AL_APIENTRY alListener3f( ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ); - -AL_API void AL_APIENTRY alListenerfv( ALenum param, const ALfloat* values ); - -AL_API void AL_APIENTRY alListeneri( ALenum param, ALint value ); - -AL_API void AL_APIENTRY alListener3i( ALenum param, ALint value1, ALint value2, ALint value3 ); - -AL_API void AL_APIENTRY alListeneriv( ALenum param, const ALint* values ); - -/* - * Get Listener parameters - */ -AL_API void AL_APIENTRY alGetListenerf( ALenum param, ALfloat* value ); - -AL_API void AL_APIENTRY alGetListener3f( ALenum param, ALfloat *value1, ALfloat *value2, ALfloat *value3 ); - -AL_API void AL_APIENTRY alGetListenerfv( ALenum param, ALfloat* values ); - -AL_API void AL_APIENTRY alGetListeneri( ALenum param, ALint* value ); - -AL_API void AL_APIENTRY alGetListener3i( ALenum param, ALint *value1, ALint *value2, ALint *value3 ); - -AL_API void AL_APIENTRY alGetListeneriv( ALenum param, ALint* values ); - - -/** - * SOURCE - * Sources represent individual sound objects in 3D-space. - * Sources take the PCM data provided in the specified Buffer, - * apply Source-specific modifications, and then - * submit them to be mixed according to spatial arrangement etc. - * - * Properties include: - - * - * Gain AL_GAIN ALfloat - * Min Gain AL_MIN_GAIN ALfloat - * Max Gain AL_MAX_GAIN ALfloat - * Position AL_POSITION ALfloat[3] - * Velocity AL_VELOCITY ALfloat[3] - * Direction AL_DIRECTION ALfloat[3] - * Head Relative Mode AL_SOURCE_RELATIVE ALint (AL_TRUE or AL_FALSE) - * Reference Distance AL_REFERENCE_DISTANCE ALfloat - * Max Distance AL_MAX_DISTANCE ALfloat - * RollOff Factor AL_ROLLOFF_FACTOR ALfloat - * Inner Angle AL_CONE_INNER_ANGLE ALint or ALfloat - * Outer Angle AL_CONE_OUTER_ANGLE ALint or ALfloat - * Cone Outer Gain AL_CONE_OUTER_GAIN ALint or ALfloat - * Pitch AL_PITCH ALfloat - * Looping AL_LOOPING ALint (AL_TRUE or AL_FALSE) - * MS Offset AL_MSEC_OFFSET ALint or ALfloat - * Byte Offset AL_BYTE_OFFSET ALint or ALfloat - * Sample Offset AL_SAMPLE_OFFSET ALint or ALfloat - * Attached Buffer AL_BUFFER ALint - * State (Query only) AL_SOURCE_STATE ALint - * Buffers Queued (Query only) AL_BUFFERS_QUEUED ALint - * Buffers Processed (Query only) AL_BUFFERS_PROCESSED ALint - */ - -/* Create Source objects */ -AL_API void AL_APIENTRY alGenSources( ALsizei n, ALuint* sources ); - -/* Delete Source objects */ -AL_API void AL_APIENTRY alDeleteSources( ALsizei n, const ALuint* sources ); - -/* Verify a handle is a valid Source */ -AL_API ALboolean AL_APIENTRY alIsSource( ALuint sid ); - -/* - * Set Source parameters - */ -AL_API void AL_APIENTRY alSourcef( ALuint sid, ALenum param, ALfloat value ); - -AL_API void AL_APIENTRY alSource3f( ALuint sid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ); - -AL_API void AL_APIENTRY alSourcefv( ALuint sid, ALenum param, const ALfloat* values ); - -AL_API void AL_APIENTRY alSourcei( ALuint sid, ALenum param, ALint value ); - -AL_API void AL_APIENTRY alSource3i( ALuint sid, ALenum param, ALint value1, ALint value2, ALint value3 ); - -AL_API void AL_APIENTRY alSourceiv( ALuint sid, ALenum param, const ALint* values ); - -/* - * Get Source parameters - */ -AL_API void AL_APIENTRY alGetSourcef( ALuint sid, ALenum param, ALfloat* value ); - -AL_API void AL_APIENTRY alGetSource3f( ALuint sid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3); - -AL_API void AL_APIENTRY alGetSourcefv( ALuint sid, ALenum param, ALfloat* values ); - -AL_API void AL_APIENTRY alGetSourcei( ALuint sid, ALenum param, ALint* value ); - -AL_API void AL_APIENTRY alGetSource3i( ALuint sid, ALenum param, ALint* value1, ALint* value2, ALint* value3); - -AL_API void AL_APIENTRY alGetSourceiv( ALuint sid, ALenum param, ALint* values ); - - -/* - * Source vector based playback calls - */ - -/* Play, replay, or resume (if paused) a list of Sources */ -AL_API void AL_APIENTRY alSourcePlayv( ALsizei ns, const ALuint *sids ); - -/* Stop a list of Sources */ -AL_API void AL_APIENTRY alSourceStopv( ALsizei ns, const ALuint *sids ); - -/* Rewind a list of Sources */ -AL_API void AL_APIENTRY alSourceRewindv( ALsizei ns, const ALuint *sids ); - -/* Pause a list of Sources */ -AL_API void AL_APIENTRY alSourcePausev( ALsizei ns, const ALuint *sids ); - -/* - * Source based playback calls - */ - -/* Play, replay, or resume a Source */ -AL_API void AL_APIENTRY alSourcePlay( ALuint sid ); - -/* Stop a Source */ -AL_API void AL_APIENTRY alSourceStop( ALuint sid ); - -/* Rewind a Source (set playback postiton to beginning) */ -AL_API void AL_APIENTRY alSourceRewind( ALuint sid ); - -/* Pause a Source */ -AL_API void AL_APIENTRY alSourcePause( ALuint sid ); - -/* - * Source Queuing - */ -AL_API void AL_APIENTRY alSourceQueueBuffers( ALuint sid, ALsizei numEntries, const ALuint *bids ); - -AL_API void AL_APIENTRY alSourceUnqueueBuffers( ALuint sid, ALsizei numEntries, ALuint *bids ); - - -/** - * BUFFER - * Buffer objects are storage space for sample data. - * Buffers are referred to by Sources. One Buffer can be used - * by multiple Sources. - * - * Properties include: - - * - * Frequency (Query only) AL_FREQUENCY ALint - * Size (Query only) AL_SIZE ALint - * Bits (Query only) AL_BITS ALint - * Channels (Query only) AL_CHANNELS ALint - */ - -/* Create Buffer objects */ -AL_API void AL_APIENTRY alGenBuffers( ALsizei n, ALuint* buffers ); - -/* Delete Buffer objects */ -AL_API void AL_APIENTRY alDeleteBuffers( ALsizei n, const ALuint* buffers ); - -/* Verify a handle is a valid Buffer */ -AL_API ALboolean AL_APIENTRY alIsBuffer( ALuint bid ); - -/* Specify the data to be copied into a buffer */ -AL_API void AL_APIENTRY alBufferData( ALuint bid, ALenum format, const ALvoid* data, ALsizei size, ALsizei freq ); - -/* - * Set Buffer parameters - */ -AL_API void AL_APIENTRY alBufferf( ALuint bid, ALenum param, ALfloat value ); - -AL_API void AL_APIENTRY alBuffer3f( ALuint bid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ); - -AL_API void AL_APIENTRY alBufferfv( ALuint bid, ALenum param, const ALfloat* values ); - -AL_API void AL_APIENTRY alBufferi( ALuint bid, ALenum param, ALint value ); - -AL_API void AL_APIENTRY alBuffer3i( ALuint bid, ALenum param, ALint value1, ALint value2, ALint value3 ); - -AL_API void AL_APIENTRY alBufferiv( ALuint bid, ALenum param, const ALint* values ); - -/* - * Get Buffer parameters - */ -AL_API void AL_APIENTRY alGetBufferf( ALuint bid, ALenum param, ALfloat* value ); - -AL_API void AL_APIENTRY alGetBuffer3f( ALuint bid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3); - -AL_API void AL_APIENTRY alGetBufferfv( ALuint bid, ALenum param, ALfloat* values ); - -AL_API void AL_APIENTRY alGetBufferi( ALuint bid, ALenum param, ALint* value ); - -AL_API void AL_APIENTRY alGetBuffer3i( ALuint bid, ALenum param, ALint* value1, ALint* value2, ALint* value3); - -AL_API void AL_APIENTRY alGetBufferiv( ALuint bid, ALenum param, ALint* values ); - - -/* - * Global Parameters - */ -AL_API void AL_APIENTRY alDopplerFactor( ALfloat value ); - -AL_API void AL_APIENTRY alDopplerVelocity( ALfloat value ); - -AL_API void AL_APIENTRY alSpeedOfSound( ALfloat value ); - -AL_API void AL_APIENTRY alDistanceModel( ALenum distanceModel ); - -/* - * Pointer-to-function types, useful for dynamically getting AL entry points. - */ -typedef void (AL_APIENTRY *LPALENABLE)( ALenum capability ); -typedef void (AL_APIENTRY *LPALDISABLE)( ALenum capability ); -typedef ALboolean (AL_APIENTRY *LPALISENABLED)( ALenum capability ); -typedef const ALchar* (AL_APIENTRY *LPALGETSTRING)( ALenum param ); -typedef void (AL_APIENTRY *LPALGETBOOLEANV)( ALenum param, ALboolean* data ); -typedef void (AL_APIENTRY *LPALGETINTEGERV)( ALenum param, ALint* data ); -typedef void (AL_APIENTRY *LPALGETFLOATV)( ALenum param, ALfloat* data ); -typedef void (AL_APIENTRY *LPALGETDOUBLEV)( ALenum param, ALdouble* data ); -typedef ALboolean (AL_APIENTRY *LPALGETBOOLEAN)( ALenum param ); -typedef ALint (AL_APIENTRY *LPALGETINTEGER)( ALenum param ); -typedef ALfloat (AL_APIENTRY *LPALGETFLOAT)( ALenum param ); -typedef ALdouble (AL_APIENTRY *LPALGETDOUBLE)( ALenum param ); -typedef ALenum (AL_APIENTRY *LPALGETERROR)( void ); -typedef ALboolean (AL_APIENTRY *LPALISEXTENSIONPRESENT)(const ALchar* extname ); -typedef void* (AL_APIENTRY *LPALGETPROCADDRESS)( const ALchar* fname ); -typedef ALenum (AL_APIENTRY *LPALGETENUMVALUE)( const ALchar* ename ); -typedef void (AL_APIENTRY *LPALLISTENERF)( ALenum param, ALfloat value ); -typedef void (AL_APIENTRY *LPALLISTENER3F)( ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ); -typedef void (AL_APIENTRY *LPALLISTENERFV)( ALenum param, const ALfloat* values ); -typedef void (AL_APIENTRY *LPALLISTENERI)( ALenum param, ALint value ); -typedef void (AL_APIENTRY *LPALLISTENER3I)( ALenum param, ALint value1, ALint value2, ALint value3 ); -typedef void (AL_APIENTRY *LPALLISTENERIV)( ALenum param, const ALint* values ); -typedef void (AL_APIENTRY *LPALGETLISTENERF)( ALenum param, ALfloat* value ); -typedef void (AL_APIENTRY *LPALGETLISTENER3F)( ALenum param, ALfloat *value1, ALfloat *value2, ALfloat *value3 ); -typedef void (AL_APIENTRY *LPALGETLISTENERFV)( ALenum param, ALfloat* values ); -typedef void (AL_APIENTRY *LPALGETLISTENERI)( ALenum param, ALint* value ); -typedef void (AL_APIENTRY *LPALGETLISTENER3I)( ALenum param, ALint *value1, ALint *value2, ALint *value3 ); -typedef void (AL_APIENTRY *LPALGETLISTENERIV)( ALenum param, ALint* values ); -typedef void (AL_APIENTRY *LPALGENSOURCES)( ALsizei n, ALuint* sources ); -typedef void (AL_APIENTRY *LPALDELETESOURCES)( ALsizei n, const ALuint* sources ); -typedef ALboolean (AL_APIENTRY *LPALISSOURCE)( ALuint sid ); -typedef void (AL_APIENTRY *LPALSOURCEF)( ALuint sid, ALenum param, ALfloat value); -typedef void (AL_APIENTRY *LPALSOURCE3F)( ALuint sid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ); -typedef void (AL_APIENTRY *LPALSOURCEFV)( ALuint sid, ALenum param, const ALfloat* values ); -typedef void (AL_APIENTRY *LPALSOURCEI)( ALuint sid, ALenum param, ALint value); -typedef void (AL_APIENTRY *LPALSOURCE3I)( ALuint sid, ALenum param, ALint value1, ALint value2, ALint value3 ); -typedef void (AL_APIENTRY *LPALSOURCEIV)( ALuint sid, ALenum param, const ALint* values ); -typedef void (AL_APIENTRY *LPALGETSOURCEF)( ALuint sid, ALenum param, ALfloat* value ); -typedef void (AL_APIENTRY *LPALGETSOURCE3F)( ALuint sid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3); -typedef void (AL_APIENTRY *LPALGETSOURCEFV)( ALuint sid, ALenum param, ALfloat* values ); -typedef void (AL_APIENTRY *LPALGETSOURCEI)( ALuint sid, ALenum param, ALint* value ); -typedef void (AL_APIENTRY *LPALGETSOURCE3I)( ALuint sid, ALenum param, ALint* value1, ALint* value2, ALint* value3); -typedef void (AL_APIENTRY *LPALGETSOURCEIV)( ALuint sid, ALenum param, ALint* values ); -typedef void (AL_APIENTRY *LPALSOURCEPLAYV)( ALsizei ns, const ALuint *sids ); -typedef void (AL_APIENTRY *LPALSOURCESTOPV)( ALsizei ns, const ALuint *sids ); -typedef void (AL_APIENTRY *LPALSOURCEREWINDV)( ALsizei ns, const ALuint *sids ); -typedef void (AL_APIENTRY *LPALSOURCEPAUSEV)( ALsizei ns, const ALuint *sids ); -typedef void (AL_APIENTRY *LPALSOURCEPLAY)( ALuint sid ); -typedef void (AL_APIENTRY *LPALSOURCESTOP)( ALuint sid ); -typedef void (AL_APIENTRY *LPALSOURCEREWIND)( ALuint sid ); -typedef void (AL_APIENTRY *LPALSOURCEPAUSE)( ALuint sid ); -typedef void (AL_APIENTRY *LPALSOURCEQUEUEBUFFERS)(ALuint sid, ALsizei numEntries, const ALuint *bids ); -typedef void (AL_APIENTRY *LPALSOURCEUNQUEUEBUFFERS)(ALuint sid, ALsizei numEntries, ALuint *bids ); -typedef void (AL_APIENTRY *LPALGENBUFFERS)( ALsizei n, ALuint* buffers ); -typedef void (AL_APIENTRY *LPALDELETEBUFFERS)( ALsizei n, const ALuint* buffers ); -typedef ALboolean (AL_APIENTRY *LPALISBUFFER)( ALuint bid ); -typedef void (AL_APIENTRY *LPALBUFFERDATA)( ALuint bid, ALenum format, const ALvoid* data, ALsizei size, ALsizei freq ); -typedef void (AL_APIENTRY *LPALBUFFERF)( ALuint bid, ALenum param, ALfloat value); -typedef void (AL_APIENTRY *LPALBUFFER3F)( ALuint bid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ); -typedef void (AL_APIENTRY *LPALBUFFERFV)( ALuint bid, ALenum param, const ALfloat* values ); -typedef void (AL_APIENTRY *LPALBUFFERI)( ALuint bid, ALenum param, ALint value); -typedef void (AL_APIENTRY *LPALBUFFER3I)( ALuint bid, ALenum param, ALint value1, ALint value2, ALint value3 ); -typedef void (AL_APIENTRY *LPALBUFFERIV)( ALuint bid, ALenum param, const ALint* values ); -typedef void (AL_APIENTRY *LPALGETBUFFERF)( ALuint bid, ALenum param, ALfloat* value ); -typedef void (AL_APIENTRY *LPALGETBUFFER3F)( ALuint bid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3); -typedef void (AL_APIENTRY *LPALGETBUFFERFV)( ALuint bid, ALenum param, ALfloat* values ); -typedef void (AL_APIENTRY *LPALGETBUFFERI)( ALuint bid, ALenum param, ALint* value ); -typedef void (AL_APIENTRY *LPALGETBUFFER3I)( ALuint bid, ALenum param, ALint* value1, ALint* value2, ALint* value3); -typedef void (AL_APIENTRY *LPALGETBUFFERIV)( ALuint bid, ALenum param, ALint* values ); -typedef void (AL_APIENTRY *LPALDOPPLERFACTOR)( ALfloat value ); -typedef void (AL_APIENTRY *LPALDOPPLERVELOCITY)( ALfloat value ); -typedef void (AL_APIENTRY *LPALSPEEDOFSOUND)( ALfloat value ); -typedef void (AL_APIENTRY *LPALDISTANCEMODEL)( ALenum distanceModel ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(__cplusplus) -} /* extern "C" */ -#endif - -#endif /* AL_AL_H */ diff --git a/internal/c/parts/audio/out/android/other/stuff/alc.h b/internal/c/parts/audio/out/android/other/stuff/alc.h deleted file mode 100644 index 04543a0ce..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/alc.h +++ /dev/null @@ -1,277 +0,0 @@ -#ifndef AL_ALC_H -#define AL_ALC_H - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define ALC_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define ALC_API __declspec(dllexport) - #else - #define ALC_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define ALC_API __attribute__((visibility("protected"))) - #else - #define ALC_API extern - #endif -#endif - -#if defined(_WIN32) - #define ALC_APIENTRY __cdecl -#else - #define ALC_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The ALCAPI, ALCAPIENTRY, and ALC_INVALID macros are deprecated, but are - * included for applications porting code from AL 1.0 - */ -#define ALCAPI ALC_API -#define ALCAPIENTRY ALC_APIENTRY -#define ALC_INVALID 0 - - -#define ALC_VERSION_0_1 1 - -typedef struct ALCdevice_struct ALCdevice; -typedef struct ALCcontext_struct ALCcontext; - - -/** 8-bit boolean */ -typedef char ALCboolean; - -/** character */ -typedef char ALCchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALCbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALCubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALCshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALCushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALCint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALCuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALCsizei; - -/** enumerated 32-bit value */ -typedef int ALCenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALCfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALCdouble; - -/** void type (for opaque pointers only) */ -typedef void ALCvoid; - - -/* Enumerant values begin at column 50. No tabs. */ - -/* Boolean False. */ -#define ALC_FALSE 0 - -/* Boolean True. */ -#define ALC_TRUE 1 - -/** - * followed by Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/other/stuff/build.mk b/internal/c/parts/audio/out/android/other/stuff/build.mk deleted file mode 100644 index 6ffe5a25d..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/build.mk +++ /dev/null @@ -1,54 +0,0 @@ -MODULE = System/OpenAL - -CCFLAGS = \ - -I$(SYSDIR) \ - -I$(SYSDIR)/OpenAL/include \ - -I$(SYSDIR)/OpenAL/OpenAL32/Include \ - -DAL_BUILD_LIBRARY \ - -DAL_ALEXT_PROTOTYPES \ - -DVERDE_USE_REAL_FILE_IO \ - -OBJECTS = \ - -ifneq ($(OS), mac) -OBJECTS += \ - OpenAL32/alAuxEffectSlot.o \ - OpenAL32/alBuffer.o \ - OpenAL32/alDatabuffer.o \ - OpenAL32/alEffect.o \ - OpenAL32/alError.o \ - OpenAL32/alExtension.o \ - OpenAL32/alFilter.o \ - OpenAL32/alListener.o \ - OpenAL32/alSource.o \ - OpenAL32/alState.o \ - OpenAL32/alThunk.o \ - Alc/ALc.o \ - Alc/alcConfig.o \ - Alc/alcEcho.o \ - Alc/alcModulator.o \ - Alc/alcReverb.o \ - Alc/alcRing.o \ - Alc/alcThread.o \ - Alc/ALu.o \ - Alc/bs2b.o \ - Alc/null.o \ - Alc/panning.o \ - Alc/mixer.o \ - -endif - -ifeq ($(TARGET_OS), android) -OBJECTS += Alc/audiotrack.o -ifdef POST_FROYO -OBJECTS += Alc/opensles.o -endif -CCFLAGS += -I/Developer/AndroidNDK/platforms/android-9/arch-arm/usr/include -CCFLAGS += -DOPENAL_FIXED_POINT -DOPENAL_FIXED_POINT_SHIFT=16 -endif - -ifeq ($(OS), linux) -OBJECTS += Alc/oss.o -endif - -include $(ROOTDIR)/module.mk diff --git a/internal/c/parts/audio/out/android/other/stuff/include/AL/al.h b/internal/c/parts/audio/out/android/other/stuff/include/AL/al.h deleted file mode 100644 index e084b3ed3..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/include/AL/al.h +++ /dev/null @@ -1,825 +0,0 @@ -#ifndef AL_AL_H -#define AL_AL_H - -#ifdef ANDROID -#include -#ifndef LOGI -#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,"OpenAL",__VA_ARGS__) -#endif -#ifndef LOGE -#define LOGE(...) __android_log_print(ANDROID_LOG_ERROR,"OpenAL",__VA_ARGS__) -#endif -#endif - -#if defined(__cplusplus) -extern "C" { -#endif - -#if defined(AL_LIBTYPE_STATIC) - #define AL_API -#elif defined(_WIN32) && !defined(_XBOX) - #if defined(AL_BUILD_LIBRARY) - #define AL_API __declspec(dllexport) - #else - #define AL_API __declspec(dllimport) - #endif -#else - #if defined(AL_BUILD_LIBRARY) && defined(HAVE_GCC_VISIBILITY) - #define AL_API __attribute__((visibility("protected"))) - #else - #define AL_API extern - #endif -#endif - -#if defined(_WIN32) - #define AL_APIENTRY __cdecl -#else - #define AL_APIENTRY -#endif - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export on -#endif - -/* - * The OPENAL, ALAPI, ALAPIENTRY, AL_INVALID, AL_ILLEGAL_ENUM, and - * AL_ILLEGAL_COMMAND macros are deprecated, but are included for - * applications porting code from AL 1.0 - */ -#define OPENAL -#define ALAPI AL_API -#define ALAPIENTRY AL_APIENTRY -#define AL_INVALID (-1) -#define AL_ILLEGAL_ENUM AL_INVALID_ENUM -#define AL_ILLEGAL_COMMAND AL_INVALID_OPERATION - -#define AL_VERSION_1_0 -#define AL_VERSION_1_1 - - -/** 8-bit boolean */ -typedef char ALboolean; - -/** character */ -typedef char ALchar; - -/** signed 8-bit 2's complement integer */ -typedef signed char ALbyte; - -/** unsigned 8-bit integer */ -typedef unsigned char ALubyte; - -/** signed 16-bit 2's complement integer */ -typedef short ALshort; - -/** unsigned 16-bit integer */ -typedef unsigned short ALushort; - -/** signed 32-bit 2's complement integer */ -typedef int ALint; - -/** unsigned 32-bit integer */ -typedef unsigned int ALuint; - -/** non-negative 32-bit binary integer size */ -typedef int ALsizei; - -/** enumerated 32-bit value */ -typedef int ALenum; - -/** 32-bit IEEE754 floating-point */ -typedef float ALfloat; - -/** 64-bit IEEE754 floating-point */ -typedef double ALdouble; - -#ifdef OPENAL_FIXED_POINT -/* Apportable tries to define int64_t and int32_t if it thinks it is needed. - * But this is breaking in a complex project involving both pure C and C++ - * something is triggering redefinition errors. The workaround seems to be just using stdint.h. - */ -#include -/** Types and Macros for fixed-point math */ -#ifndef INT64_MAX -typedef long long int64_t; -#define INT64_MAX 9223372036854775807LL - -#endif -#ifndef INT32_MAX -typedef int int32_t; -#define INT32_MAX 2147483647 -#endif - -// FIXME(apportable) make this int32_t -typedef int64_t ALfp; -typedef int64_t ALdfp; - -#define ONE (1<=0 ? 0.5 : -0.5))) -#define ALfp2float(x) ((float)(x) / (1<=0 ? 0.5 : -0.5))) -#define ALdfp2double(x) ((double)(x) / (1<> OPENAL_FIXED_POINT_SHIFT)) - -#define int2ALdfp(x) ((ALdfp)(x) << OPENAL_FIXED_POINT_SHIFT) -#define ALdfp2int(x) ((ALint)((x) >> OPENAL_FIXED_POINT_SHIFT)) - -#define ALfpMult(x,y) ((ALfp)((((int64_t)(x))*((int64_t)(y)))>>OPENAL_FIXED_POINT_SHIFT)) -#define ALfpDiv(x,y) ((ALfp)(((int64_t)(x) << OPENAL_FIXED_POINT_SHIFT) / (y))) - -#define ALdfpMult(x,y) ALfpMult(x,y) -#define ALdfpDiv(x,y) ALfpDiv(x,y) - -#define __isnan(x) (0) -#define __cos(x) (float2ALfp(cos(ALfp2float(x)))) -#define __sin(x) (float2ALfp(sin(ALfp2float(x)))) -#define __log10(x) (float2ALfp(log10(ALfp2float(x)))) -#define __atan(x) (float2ALfp(atan(ALfp2float(x)))) - -#define toALfpConst(x) ((x)*(1< Hz - */ -#define ALC_FREQUENCY 0x1007 - -/** - * followed by Hz - */ -#define ALC_REFRESH 0x1008 - -/** - * followed by AL_TRUE, AL_FALSE - */ -#define ALC_SYNC 0x1009 - -/** - * followed by Num of requested Mono (3D) Sources - */ -#define ALC_MONO_SOURCES 0x1010 - -/** - * followed by Num of requested Stereo Sources - */ -#define ALC_STEREO_SOURCES 0x1011 - -/** - * errors - */ - -/** - * No error - */ -#define ALC_NO_ERROR ALC_FALSE - -/** - * No device - */ -#define ALC_INVALID_DEVICE 0xA001 - -/** - * invalid context ID - */ -#define ALC_INVALID_CONTEXT 0xA002 - -/** - * bad enum - */ -#define ALC_INVALID_ENUM 0xA003 - -/** - * bad value - */ -#define ALC_INVALID_VALUE 0xA004 - -/** - * Out of memory. - */ -#define ALC_OUT_OF_MEMORY 0xA005 - - -/** - * The Specifier string for default device - */ -#define ALC_DEFAULT_DEVICE_SPECIFIER 0x1004 -#define ALC_DEVICE_SPECIFIER 0x1005 -#define ALC_EXTENSIONS 0x1006 - -#define ALC_MAJOR_VERSION 0x1000 -#define ALC_MINOR_VERSION 0x1001 - -#define ALC_ATTRIBUTES_SIZE 0x1002 -#define ALC_ALL_ATTRIBUTES 0x1003 - - -/** - * Capture extension - */ -#define ALC_CAPTURE_DEVICE_SPECIFIER 0x310 -#define ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER 0x311 -#define ALC_CAPTURE_SAMPLES 0x312 - - -/* - * Context Management - */ -ALC_API ALCcontext * ALC_APIENTRY alcCreateContext( ALCdevice *device, const ALCint* attrlist ); - -ALC_API ALCboolean ALC_APIENTRY alcMakeContextCurrent( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcProcessContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcSuspendContext( ALCcontext *context ); - -ALC_API void ALC_APIENTRY alcDestroyContext( ALCcontext *context ); - -ALC_API ALCcontext * ALC_APIENTRY alcGetCurrentContext( void ); - -ALC_API ALCdevice* ALC_APIENTRY alcGetContextsDevice( ALCcontext *context ); - - -/* - * Device Management - */ -ALC_API ALCdevice * ALC_APIENTRY alcOpenDevice( const ALCchar *devicename ); - -ALC_API ALCboolean ALC_APIENTRY alcCloseDevice( ALCdevice *device ); - - -/* - * Error support. - * Obtain the most recent Context error - */ -ALC_API ALCenum ALC_APIENTRY alcGetError( ALCdevice *device ); - - -/* - * Extension support. - * Query for the presence of an extension, and obtain any appropriate - * function pointers and enum values. - */ -ALC_API ALCboolean ALC_APIENTRY alcIsExtensionPresent( ALCdevice *device, const ALCchar *extname ); - -ALC_API void * ALC_APIENTRY alcGetProcAddress( ALCdevice *device, const ALCchar *funcname ); - -ALC_API ALCenum ALC_APIENTRY alcGetEnumValue( ALCdevice *device, const ALCchar *enumname ); - - -/* - * Query functions - */ -ALC_API const ALCchar * ALC_APIENTRY alcGetString( ALCdevice *device, ALCenum param ); - -ALC_API void ALC_APIENTRY alcGetIntegerv( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *data ); - - -/* - * Capture functions - */ -ALC_API ALCdevice* ALC_APIENTRY alcCaptureOpenDevice( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); - -ALC_API ALCboolean ALC_APIENTRY alcCaptureCloseDevice( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStart( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureStop( ALCdevice *device ); - -ALC_API void ALC_APIENTRY alcCaptureSamples( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -/* - * Pointer-to-function types, useful for dynamically getting ALC entry points. - */ -typedef ALCcontext * (ALC_APIENTRY *LPALCCREATECONTEXT) (ALCdevice *device, const ALCint *attrlist); -typedef ALCboolean (ALC_APIENTRY *LPALCMAKECONTEXTCURRENT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCPROCESSCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCSUSPENDCONTEXT)( ALCcontext *context ); -typedef void (ALC_APIENTRY *LPALCDESTROYCONTEXT)( ALCcontext *context ); -typedef ALCcontext * (ALC_APIENTRY *LPALCGETCURRENTCONTEXT)( void ); -typedef ALCdevice * (ALC_APIENTRY *LPALCGETCONTEXTSDEVICE)( ALCcontext *context ); -typedef ALCdevice * (ALC_APIENTRY *LPALCOPENDEVICE)( const ALCchar *devicename ); -typedef ALCboolean (ALC_APIENTRY *LPALCCLOSEDEVICE)( ALCdevice *device ); -typedef ALCenum (ALC_APIENTRY *LPALCGETERROR)( ALCdevice *device ); -typedef ALCboolean (ALC_APIENTRY *LPALCISEXTENSIONPRESENT)( ALCdevice *device, const ALCchar *extname ); -typedef void * (ALC_APIENTRY *LPALCGETPROCADDRESS)(ALCdevice *device, const ALCchar *funcname ); -typedef ALCenum (ALC_APIENTRY *LPALCGETENUMVALUE)(ALCdevice *device, const ALCchar *enumname ); -typedef const ALCchar* (ALC_APIENTRY *LPALCGETSTRING)( ALCdevice *device, ALCenum param ); -typedef void (ALC_APIENTRY *LPALCGETINTEGERV)( ALCdevice *device, ALCenum param, ALCsizei size, ALCint *dest ); -typedef ALCdevice * (ALC_APIENTRY *LPALCCAPTUREOPENDEVICE)( const ALCchar *devicename, ALCuint frequency, ALCenum format, ALCsizei buffersize ); -typedef ALCboolean (ALC_APIENTRY *LPALCCAPTURECLOSEDEVICE)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTART)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESTOP)( ALCdevice *device ); -typedef void (ALC_APIENTRY *LPALCCAPTURESAMPLES)( ALCdevice *device, ALCvoid *buffer, ALCsizei samples ); - -#if defined(TARGET_OS_MAC) && TARGET_OS_MAC - #pragma export off -#endif - -#if defined(ANDROID) -/* - * OpenAL extension for suspend/resume of audio throughout application lifecycle - */ -ALC_API void ALC_APIENTRY alcSuspend( void ); -ALC_API void ALC_APIENTRY alcResume( void ); -#endif - -#if defined(__cplusplus) -} -#endif - -#endif /* AL_ALC_H */ diff --git a/internal/c/parts/audio/out/android/other/stuff/include/AL/alext.h b/internal/c/parts/audio/out/android/other/stuff/include/AL/alext.h deleted file mode 100644 index f3c7bcae8..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/include/AL/alext.h +++ /dev/null @@ -1,165 +0,0 @@ -/** - * OpenAL cross platform audio library - * Copyright (C) 2008 by authors. - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - * Or go to http://www.gnu.org/copyleft/lgpl.html - */ - -#ifndef AL_ALEXT_H -#define AL_ALEXT_H - -#include - -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef AL_LOKI_IMA_ADPCM_format -#define AL_LOKI_IMA_ADPCM_format 1 -#define AL_FORMAT_IMA_ADPCM_MONO16_EXT 0x10000 -#define AL_FORMAT_IMA_ADPCM_STEREO16_EXT 0x10001 -#endif - -#ifndef AL_LOKI_WAVE_format -#define AL_LOKI_WAVE_format 1 -#define AL_FORMAT_WAVE_EXT 0x10002 -#endif - -#ifndef AL_EXT_vorbis -#define AL_EXT_vorbis 1 -#define AL_FORMAT_VORBIS_EXT 0x10003 -#endif - -#ifndef AL_LOKI_quadriphonic -#define AL_LOKI_quadriphonic 1 -#define AL_FORMAT_QUAD8_LOKI 0x10004 -#define AL_FORMAT_QUAD16_LOKI 0x10005 -#endif - -#ifndef AL_EXT_float32 -#define AL_EXT_float32 1 -#define AL_FORMAT_MONO_FLOAT32 0x10010 -#define AL_FORMAT_STEREO_FLOAT32 0x10011 -#endif - -#ifndef AL_EXT_double -#define AL_EXT_double 1 -#define AL_FORMAT_MONO_DOUBLE_EXT 0x10012 -#define AL_FORMAT_STEREO_DOUBLE_EXT 0x10013 -#endif - -#ifndef ALC_LOKI_audio_channel -#define ALC_LOKI_audio_channel 1 -#define ALC_CHAN_MAIN_LOKI 0x500001 -#define ALC_CHAN_PCM_LOKI 0x500002 -#define ALC_CHAN_CD_LOKI 0x500003 -#endif - -#ifndef ALC_ENUMERATE_ALL_EXT -#define ALC_ENUMERATE_ALL_EXT 1 -#define ALC_DEFAULT_ALL_DEVICES_SPECIFIER 0x1012 -#define ALC_ALL_DEVICES_SPECIFIER 0x1013 -#endif - -#ifndef AL_EXT_MCFORMATS -#define AL_EXT_MCFORMATS 1 -#define AL_FORMAT_QUAD8 0x1204 -#define AL_FORMAT_QUAD16 0x1205 -#define AL_FORMAT_QUAD32 0x1206 -#define AL_FORMAT_REAR8 0x1207 -#define AL_FORMAT_REAR16 0x1208 -#define AL_FORMAT_REAR32 0x1209 -#define AL_FORMAT_51CHN8 0x120A -#define AL_FORMAT_51CHN16 0x120B -#define AL_FORMAT_51CHN32 0x120C -#define AL_FORMAT_61CHN8 0x120D -#define AL_FORMAT_61CHN16 0x120E -#define AL_FORMAT_61CHN32 0x120F -#define AL_FORMAT_71CHN8 0x1210 -#define AL_FORMAT_71CHN16 0x1211 -#define AL_FORMAT_71CHN32 0x1212 -#endif - -#ifndef AL_EXT_MULAW_MCFORMATS -#define AL_EXT_MULAW_MCFORMATS 1 -#define AL_FORMAT_MONO_MULAW 0x10014 -#define AL_FORMAT_STEREO_MULAW 0x10015 -#define AL_FORMAT_QUAD_MULAW 0x10021 -#define AL_FORMAT_REAR_MULAW 0x10022 -#define AL_FORMAT_51CHN_MULAW 0x10023 -#define AL_FORMAT_61CHN_MULAW 0x10024 -#define AL_FORMAT_71CHN_MULAW 0x10025 -#endif - -#ifndef AL_EXT_IMA4 -#define AL_EXT_IMA4 1 -#define AL_FORMAT_MONO_IMA4 0x1300 -#define AL_FORMAT_STEREO_IMA4 0x1301 -#endif - -#ifndef AL_EXT_STATIC_BUFFER -#define AL_EXT_STATIC_BUFFER 1 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERDATASTATICPROC)(const ALint,ALenum,ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferDataStatic(const ALint buffer, ALenum format, ALvoid *data, ALsizei len, ALsizei freq); -#endif -#endif - -#ifndef ALC_EXT_EFX -#define ALC_EXT_EFX 1 -#include "efx.h" -#endif - -#ifndef ALC_EXT_disconnect -#define ALC_EXT_disconnect 1 -#define ALC_CONNECTED 0x313 -#endif - -#ifndef ALC_EXT_thread_local_context -#define ALC_EXT_thread_local_context 1 -typedef ALCboolean (ALC_APIENTRY*PFNALCSETTHREADCONTEXTPROC)(ALCcontext *context); -typedef ALCcontext* (ALC_APIENTRY*PFNALCGETTHREADCONTEXTPROC)(void); -#ifdef AL_ALEXT_PROTOTYPES -ALC_API ALCboolean ALC_APIENTRY alcSetThreadContext(ALCcontext *context); -ALC_API ALCcontext* ALC_APIENTRY alcGetThreadContext(void); -#endif -#endif - -#ifndef AL_EXT_source_distance_model -#define AL_EXT_source_distance_model 1 -#define AL_SOURCE_DISTANCE_MODEL 0x200 -#endif - -#ifndef AL_SOFT_buffer_sub_data -#define AL_SOFT_buffer_sub_data 1 -#define AL_BYTE_RW_OFFSETS_SOFT 0x1031 -#define AL_SAMPLE_RW_OFFSETS_SOFT 0x1032 -typedef ALvoid (AL_APIENTRY*PFNALBUFFERSUBDATASOFTPROC)(ALuint,ALenum,const ALvoid*,ALsizei,ALsizei); -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alBufferSubDataSOFT(ALuint buffer,ALenum format,const ALvoid *data,ALsizei offset,ALsizei length); -#endif -#endif - -#ifndef AL_SOFT_loop_points -#define AL_SOFT_loop_points 1 -#define AL_LOOP_POINTS_SOFT 0x2015 -#endif - -#ifdef __cplusplus -} -#endif - -#endif diff --git a/internal/c/parts/audio/out/android/other/stuff/include/AL/efx-creative.h b/internal/c/parts/audio/out/android/other/stuff/include/AL/efx-creative.h deleted file mode 100644 index 0a04c982e..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/include/AL/efx-creative.h +++ /dev/null @@ -1,3 +0,0 @@ -/* The tokens that would be defined here are already defined in efx.h. This - * empty file is here to provide compatibility with Windows-based projects - * that would include it. */ diff --git a/internal/c/parts/audio/out/android/other/stuff/include/AL/efx.h b/internal/c/parts/audio/out/android/other/stuff/include/AL/efx.h deleted file mode 100644 index 0ccef95d6..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/include/AL/efx.h +++ /dev/null @@ -1,758 +0,0 @@ -#ifndef AL_EFX_H -#define AL_EFX_H - - -#ifdef __cplusplus -extern "C" { -#endif - -#define ALC_EXT_EFX_NAME "ALC_EXT_EFX" - -#define ALC_EFX_MAJOR_VERSION 0x20001 -#define ALC_EFX_MINOR_VERSION 0x20002 -#define ALC_MAX_AUXILIARY_SENDS 0x20003 - - -/* Listener properties. */ -#define AL_METERS_PER_UNIT 0x20004 - -/* Source properties. */ -#define AL_DIRECT_FILTER 0x20005 -#define AL_AUXILIARY_SEND_FILTER 0x20006 -#define AL_AIR_ABSORPTION_FACTOR 0x20007 -#define AL_ROOM_ROLLOFF_FACTOR 0x20008 -#define AL_CONE_OUTER_GAINHF 0x20009 -#define AL_DIRECT_FILTER_GAINHF_AUTO 0x2000A -#define AL_AUXILIARY_SEND_FILTER_GAIN_AUTO 0x2000B -#define AL_AUXILIARY_SEND_FILTER_GAINHF_AUTO 0x2000C - - -/* Effect properties. */ - -/* Reverb effect parameters */ -#define AL_REVERB_DENSITY 0x0001 -#define AL_REVERB_DIFFUSION 0x0002 -#define AL_REVERB_GAIN 0x0003 -#define AL_REVERB_GAINHF 0x0004 -#define AL_REVERB_DECAY_TIME 0x0005 -#define AL_REVERB_DECAY_HFRATIO 0x0006 -#define AL_REVERB_REFLECTIONS_GAIN 0x0007 -#define AL_REVERB_REFLECTIONS_DELAY 0x0008 -#define AL_REVERB_LATE_REVERB_GAIN 0x0009 -#define AL_REVERB_LATE_REVERB_DELAY 0x000A -#define AL_REVERB_AIR_ABSORPTION_GAINHF 0x000B -#define AL_REVERB_ROOM_ROLLOFF_FACTOR 0x000C -#define AL_REVERB_DECAY_HFLIMIT 0x000D - -/* EAX Reverb effect parameters */ -#define AL_EAXREVERB_DENSITY 0x0001 -#define AL_EAXREVERB_DIFFUSION 0x0002 -#define AL_EAXREVERB_GAIN 0x0003 -#define AL_EAXREVERB_GAINHF 0x0004 -#define AL_EAXREVERB_GAINLF 0x0005 -#define AL_EAXREVERB_DECAY_TIME 0x0006 -#define AL_EAXREVERB_DECAY_HFRATIO 0x0007 -#define AL_EAXREVERB_DECAY_LFRATIO 0x0008 -#define AL_EAXREVERB_REFLECTIONS_GAIN 0x0009 -#define AL_EAXREVERB_REFLECTIONS_DELAY 0x000A -#define AL_EAXREVERB_REFLECTIONS_PAN 0x000B -#define AL_EAXREVERB_LATE_REVERB_GAIN 0x000C -#define AL_EAXREVERB_LATE_REVERB_DELAY 0x000D -#define AL_EAXREVERB_LATE_REVERB_PAN 0x000E -#define AL_EAXREVERB_ECHO_TIME 0x000F -#define AL_EAXREVERB_ECHO_DEPTH 0x0010 -#define AL_EAXREVERB_MODULATION_TIME 0x0011 -#define AL_EAXREVERB_MODULATION_DEPTH 0x0012 -#define AL_EAXREVERB_AIR_ABSORPTION_GAINHF 0x0013 -#define AL_EAXREVERB_HFREFERENCE 0x0014 -#define AL_EAXREVERB_LFREFERENCE 0x0015 -#define AL_EAXREVERB_ROOM_ROLLOFF_FACTOR 0x0016 -#define AL_EAXREVERB_DECAY_HFLIMIT 0x0017 - -/* Chorus effect parameters */ -#define AL_CHORUS_WAVEFORM 0x0001 -#define AL_CHORUS_PHASE 0x0002 -#define AL_CHORUS_RATE 0x0003 -#define AL_CHORUS_DEPTH 0x0004 -#define AL_CHORUS_FEEDBACK 0x0005 -#define AL_CHORUS_DELAY 0x0006 - -/* Distortion effect parameters */ -#define AL_DISTORTION_EDGE 0x0001 -#define AL_DISTORTION_GAIN 0x0002 -#define AL_DISTORTION_LOWPASS_CUTOFF 0x0003 -#define AL_DISTORTION_EQCENTER 0x0004 -#define AL_DISTORTION_EQBANDWIDTH 0x0005 - -/* Echo effect parameters */ -#define AL_ECHO_DELAY 0x0001 -#define AL_ECHO_LRDELAY 0x0002 -#define AL_ECHO_DAMPING 0x0003 -#define AL_ECHO_FEEDBACK 0x0004 -#define AL_ECHO_SPREAD 0x0005 - -/* Flanger effect parameters */ -#define AL_FLANGER_WAVEFORM 0x0001 -#define AL_FLANGER_PHASE 0x0002 -#define AL_FLANGER_RATE 0x0003 -#define AL_FLANGER_DEPTH 0x0004 -#define AL_FLANGER_FEEDBACK 0x0005 -#define AL_FLANGER_DELAY 0x0006 - -/* Frequency shifter effect parameters */ -#define AL_FREQUENCY_SHIFTER_FREQUENCY 0x0001 -#define AL_FREQUENCY_SHIFTER_LEFT_DIRECTION 0x0002 -#define AL_FREQUENCY_SHIFTER_RIGHT_DIRECTION 0x0003 - -/* Vocal morpher effect parameters */ -#define AL_VOCAL_MORPHER_PHONEMEA 0x0001 -#define AL_VOCAL_MORPHER_PHONEMEA_COARSE_TUNING 0x0002 -#define AL_VOCAL_MORPHER_PHONEMEB 0x0003 -#define AL_VOCAL_MORPHER_PHONEMEB_COARSE_TUNING 0x0004 -#define AL_VOCAL_MORPHER_WAVEFORM 0x0005 -#define AL_VOCAL_MORPHER_RATE 0x0006 - -/* Pitchshifter effect parameters */ -#define AL_PITCH_SHIFTER_COARSE_TUNE 0x0001 -#define AL_PITCH_SHIFTER_FINE_TUNE 0x0002 - -/* Ringmodulator effect parameters */ -#define AL_RING_MODULATOR_FREQUENCY 0x0001 -#define AL_RING_MODULATOR_HIGHPASS_CUTOFF 0x0002 -#define AL_RING_MODULATOR_WAVEFORM 0x0003 - -/* Autowah effect parameters */ -#define AL_AUTOWAH_ATTACK_TIME 0x0001 -#define AL_AUTOWAH_RELEASE_TIME 0x0002 -#define AL_AUTOWAH_RESONANCE 0x0003 -#define AL_AUTOWAH_PEAK_GAIN 0x0004 - -/* Compressor effect parameters */ -#define AL_COMPRESSOR_ONOFF 0x0001 - -/* Equalizer effect parameters */ -#define AL_EQUALIZER_LOW_GAIN 0x0001 -#define AL_EQUALIZER_LOW_CUTOFF 0x0002 -#define AL_EQUALIZER_MID1_GAIN 0x0003 -#define AL_EQUALIZER_MID1_CENTER 0x0004 -#define AL_EQUALIZER_MID1_WIDTH 0x0005 -#define AL_EQUALIZER_MID2_GAIN 0x0006 -#define AL_EQUALIZER_MID2_CENTER 0x0007 -#define AL_EQUALIZER_MID2_WIDTH 0x0008 -#define AL_EQUALIZER_HIGH_GAIN 0x0009 -#define AL_EQUALIZER_HIGH_CUTOFF 0x000A - -/* Effect type */ -#define AL_EFFECT_FIRST_PARAMETER 0x0000 -#define AL_EFFECT_LAST_PARAMETER 0x8000 -#define AL_EFFECT_TYPE 0x8001 - -/* Effect types, used with the AL_EFFECT_TYPE property */ -#define AL_EFFECT_NULL 0x0000 -#define AL_EFFECT_REVERB 0x0001 -#define AL_EFFECT_CHORUS 0x0002 -#define AL_EFFECT_DISTORTION 0x0003 -#define AL_EFFECT_ECHO 0x0004 -#define AL_EFFECT_FLANGER 0x0005 -#define AL_EFFECT_FREQUENCY_SHIFTER 0x0006 -#define AL_EFFECT_VOCAL_MORPHER 0x0007 -#define AL_EFFECT_PITCH_SHIFTER 0x0008 -#define AL_EFFECT_RING_MODULATOR 0x0009 -#define AL_EFFECT_AUTOWAH 0x000A -#define AL_EFFECT_COMPRESSOR 0x000B -#define AL_EFFECT_EQUALIZER 0x000C -#define AL_EFFECT_EAXREVERB 0x8000 - -/* Auxiliary Effect Slot properties. */ -#define AL_EFFECTSLOT_EFFECT 0x0001 -#define AL_EFFECTSLOT_GAIN 0x0002 -#define AL_EFFECTSLOT_AUXILIARY_SEND_AUTO 0x0003 - -/* NULL Auxiliary Slot ID to disable a source send. */ -#define AL_EFFECTSLOT_NULL 0x0000 - - -/* Filter properties. */ - -/* Lowpass filter parameters */ -#define AL_LOWPASS_GAIN 0x0001 -#define AL_LOWPASS_GAINHF 0x0002 - -/* Highpass filter parameters */ -#define AL_HIGHPASS_GAIN 0x0001 -#define AL_HIGHPASS_GAINLF 0x0002 - -/* Bandpass filter parameters */ -#define AL_BANDPASS_GAIN 0x0001 -#define AL_BANDPASS_GAINLF 0x0002 -#define AL_BANDPASS_GAINHF 0x0003 - -/* Filter type */ -#define AL_FILTER_FIRST_PARAMETER 0x0000 -#define AL_FILTER_LAST_PARAMETER 0x8000 -#define AL_FILTER_TYPE 0x8001 - -/* Filter types, used with the AL_FILTER_TYPE property */ -#define AL_FILTER_NULL 0x0000 -#define AL_FILTER_LOWPASS 0x0001 -#define AL_FILTER_HIGHPASS 0x0002 -#define AL_FILTER_BANDPASS 0x0003 - - -/* Effect object function types. */ -typedef void (AL_APIENTRY *LPALGENEFFECTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEEFFECTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISEFFECT)(ALuint); -typedef void (AL_APIENTRY *LPALEFFECTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALEFFECTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALEFFECTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETEFFECTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETEFFECTFV)(ALuint, ALenum, ALfloat*); - -/* Filter object function types. */ -typedef void (AL_APIENTRY *LPALGENFILTERS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEFILTERS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISFILTER)(ALuint); -typedef void (AL_APIENTRY *LPALFILTERI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALFILTERF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALFILTERFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETFILTERF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETFILTERFV)(ALuint, ALenum, ALfloat*); - -/* Auxiliary Effect Slot object function types. */ -typedef void (AL_APIENTRY *LPALGENAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef void (AL_APIENTRY *LPALDELETEAUXILIARYEFFECTSLOTS)(ALsizei, ALuint*); -typedef ALboolean (AL_APIENTRY *LPALISAUXILIARYEFFECTSLOT)(ALuint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat); -typedef void (AL_APIENTRY *LPALAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTI)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTIV)(ALuint, ALenum, ALint*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTF)(ALuint, ALenum, ALfloat*); -typedef void (AL_APIENTRY *LPALGETAUXILIARYEFFECTSLOTFV)(ALuint, ALenum, ALfloat*); - -#ifdef AL_ALEXT_PROTOTYPES -AL_API ALvoid AL_APIENTRY alGenEffects(ALsizei n, ALuint *effects); -AL_API ALvoid AL_APIENTRY alDeleteEffects(ALsizei n, ALuint *effects); -AL_API ALboolean AL_APIENTRY alIsEffect(ALuint effect); -AL_API ALvoid AL_APIENTRY alEffecti(ALuint effect, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alEffectf(ALuint effect, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetEffecti(ALuint effect, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetEffectiv(ALuint effect, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetEffectf(ALuint effect, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetEffectfv(ALuint effect, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenFilters(ALsizei n, ALuint *filters); -AL_API ALvoid AL_APIENTRY alDeleteFilters(ALsizei n, ALuint *filters); -AL_API ALboolean AL_APIENTRY alIsFilter(ALuint filter); -AL_API ALvoid AL_APIENTRY alFilteri(ALuint filter, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alFilterf(ALuint filter, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetFilteri(ALuint filter, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetFilteriv(ALuint filter, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetFilterf(ALuint filter, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetFilterfv(ALuint filter, ALenum param, ALfloat *pflValues); - -AL_API ALvoid AL_APIENTRY alGenAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALvoid AL_APIENTRY alDeleteAuxiliaryEffectSlots(ALsizei n, ALuint *effectslots); -AL_API ALboolean AL_APIENTRY alIsAuxiliaryEffectSlot(ALuint effectslot); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint iValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat flValue); -AL_API ALvoid AL_APIENTRY alAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSloti(ALuint effectslot, ALenum param, ALint *piValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotiv(ALuint effectslot, ALenum param, ALint *piValues); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotf(ALuint effectslot, ALenum param, ALfloat *pflValue); -AL_API ALvoid AL_APIENTRY alGetAuxiliaryEffectSlotfv(ALuint effectslot, ALenum param, ALfloat *pflValues); -#endif - -/* Filter ranges and defaults. */ - -/* Lowpass filter */ -#define LOWPASS_MIN_GAIN (0.0f) -#define LOWPASS_MAX_GAIN (1.0f) -#define LOWPASS_DEFAULT_GAIN (1.0f) - -#define LOWPASS_MIN_GAINHF (0.0f) -#define LOWPASS_MAX_GAINHF (1.0f) -#define LOWPASS_DEFAULT_GAINHF (1.0f) - -/* Highpass filter */ -#define HIGHPASS_MIN_GAIN (0.0f) -#define HIGHPASS_MAX_GAIN (1.0f) -#define HIGHPASS_DEFAULT_GAIN (1.0f) - -#define HIGHPASS_MIN_GAINLF (0.0f) -#define HIGHPASS_MAX_GAINLF (1.0f) -#define HIGHPASS_DEFAULT_GAINLF (1.0f) - -/* Bandpass filter */ -#define BANDPASS_MIN_GAIN (0.0f) -#define BANDPASS_MAX_GAIN (1.0f) -#define BANDPASS_DEFAULT_GAIN (1.0f) - -#define BANDPASS_MIN_GAINHF (0.0f) -#define BANDPASS_MAX_GAINHF (1.0f) -#define BANDPASS_DEFAULT_GAINHF (1.0f) - -#define BANDPASS_MIN_GAINLF (0.0f) -#define BANDPASS_MAX_GAINLF (1.0f) -#define BANDPASS_DEFAULT_GAINLF (1.0f) - - -/* Effect parameter ranges and defaults. */ - -/* Standard reverb effect */ -#define AL_REVERB_MIN_DENSITY (0.0f) -#define AL_REVERB_MAX_DENSITY (1.0f) -#define AL_REVERB_DEFAULT_DENSITY (1.0f) - -#define AL_REVERB_MIN_DIFFUSION (0.0f) -#define AL_REVERB_MAX_DIFFUSION (1.0f) -#define AL_REVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_REVERB_MIN_GAIN (0.0f) -#define AL_REVERB_MAX_GAIN (1.0f) -#define AL_REVERB_DEFAULT_GAIN (0.32f) - -#define AL_REVERB_MIN_GAINHF (0.0f) -#define AL_REVERB_MAX_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_GAINHF (0.89f) - -#define AL_REVERB_MIN_DECAY_TIME (0.1f) -#define AL_REVERB_MAX_DECAY_TIME (20.0f) -#define AL_REVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_REVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_REVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_REVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_REVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_REVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_REVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_REVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_REVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_REVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_REVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_REVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_REVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_REVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_REVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_REVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_REVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_REVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_REVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_REVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_REVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_REVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_REVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* EAX reverb effect */ -#define AL_EAXREVERB_MIN_DENSITY (0.0f) -#define AL_EAXREVERB_MAX_DENSITY (1.0f) -#define AL_EAXREVERB_DEFAULT_DENSITY (1.0f) - -#define AL_EAXREVERB_MIN_DIFFUSION (0.0f) -#define AL_EAXREVERB_MAX_DIFFUSION (1.0f) -#define AL_EAXREVERB_DEFAULT_DIFFUSION (1.0f) - -#define AL_EAXREVERB_MIN_GAIN (0.0f) -#define AL_EAXREVERB_MAX_GAIN (1.0f) -#define AL_EAXREVERB_DEFAULT_GAIN (0.32f) - -#define AL_EAXREVERB_MIN_GAINHF (0.0f) -#define AL_EAXREVERB_MAX_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINHF (0.89f) - -#define AL_EAXREVERB_MIN_GAINLF (0.0f) -#define AL_EAXREVERB_MAX_GAINLF (1.0f) -#define AL_EAXREVERB_DEFAULT_GAINLF (1.0f) - -#define AL_EAXREVERB_MIN_DECAY_TIME (0.1f) -#define AL_EAXREVERB_MAX_DECAY_TIME (20.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_TIME (1.49f) - -#define AL_EAXREVERB_MIN_DECAY_HFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_HFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_HFRATIO (0.83f) - -#define AL_EAXREVERB_MIN_DECAY_LFRATIO (0.1f) -#define AL_EAXREVERB_MAX_DECAY_LFRATIO (2.0f) -#define AL_EAXREVERB_DEFAULT_DECAY_LFRATIO (1.0f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_GAIN (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_GAIN (3.16f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_GAIN (0.05f) - -#define AL_EAXREVERB_MIN_REFLECTIONS_DELAY (0.0f) -#define AL_EAXREVERB_MAX_REFLECTIONS_DELAY (0.3f) -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_DELAY (0.007f) - -#define AL_EAXREVERB_DEFAULT_REFLECTIONS_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_GAIN (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_GAIN (10.0f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_GAIN (1.26f) - -#define AL_EAXREVERB_MIN_LATE_REVERB_DELAY (0.0f) -#define AL_EAXREVERB_MAX_LATE_REVERB_DELAY (0.1f) -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_DELAY (0.011f) - -#define AL_EAXREVERB_DEFAULT_LATE_REVERB_PAN_XYZ (0.0f) - -#define AL_EAXREVERB_MIN_ECHO_TIME (0.075f) -#define AL_EAXREVERB_MAX_ECHO_TIME (0.25f) -#define AL_EAXREVERB_DEFAULT_ECHO_TIME (0.25f) - -#define AL_EAXREVERB_MIN_ECHO_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_ECHO_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_ECHO_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_MODULATION_TIME (0.04f) -#define AL_EAXREVERB_MAX_MODULATION_TIME (4.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_TIME (0.25f) - -#define AL_EAXREVERB_MIN_MODULATION_DEPTH (0.0f) -#define AL_EAXREVERB_MAX_MODULATION_DEPTH (1.0f) -#define AL_EAXREVERB_DEFAULT_MODULATION_DEPTH (0.0f) - -#define AL_EAXREVERB_MIN_AIR_ABSORPTION_GAINHF (0.892f) -#define AL_EAXREVERB_MAX_AIR_ABSORPTION_GAINHF (1.0f) -#define AL_EAXREVERB_DEFAULT_AIR_ABSORPTION_GAINHF (0.994f) - -#define AL_EAXREVERB_MIN_HFREFERENCE (1000.0f) -#define AL_EAXREVERB_MAX_HFREFERENCE (20000.0f) -#define AL_EAXREVERB_DEFAULT_HFREFERENCE (5000.0f) - -#define AL_EAXREVERB_MIN_LFREFERENCE (20.0f) -#define AL_EAXREVERB_MAX_LFREFERENCE (1000.0f) -#define AL_EAXREVERB_DEFAULT_LFREFERENCE (250.0f) - -#define AL_EAXREVERB_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_EAXREVERB_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_EAXREVERB_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_EAXREVERB_MIN_DECAY_HFLIMIT AL_FALSE -#define AL_EAXREVERB_MAX_DECAY_HFLIMIT AL_TRUE -#define AL_EAXREVERB_DEFAULT_DECAY_HFLIMIT AL_TRUE - -/* Chorus effect */ -#define AL_CHORUS_WAVEFORM_SINUSOID (0) -#define AL_CHORUS_WAVEFORM_TRIANGLE (1) - -#define AL_CHORUS_MIN_WAVEFORM (0) -#define AL_CHORUS_MAX_WAVEFORM (1) -#define AL_CHORUS_DEFAULT_WAVEFORM (1) - -#define AL_CHORUS_MIN_PHASE (-180) -#define AL_CHORUS_MAX_PHASE (180) -#define AL_CHORUS_DEFAULT_PHASE (90) - -#define AL_CHORUS_MIN_RATE (0.0f) -#define AL_CHORUS_MAX_RATE (10.0f) -#define AL_CHORUS_DEFAULT_RATE (1.1f) - -#define AL_CHORUS_MIN_DEPTH (0.0f) -#define AL_CHORUS_MAX_DEPTH (1.0f) -#define AL_CHORUS_DEFAULT_DEPTH (0.1f) - -#define AL_CHORUS_MIN_FEEDBACK (-1.0f) -#define AL_CHORUS_MAX_FEEDBACK (1.0f) -#define AL_CHORUS_DEFAULT_FEEDBACK (0.25f) - -#define AL_CHORUS_MIN_DELAY (0.0f) -#define AL_CHORUS_MAX_DELAY (0.016f) -#define AL_CHORUS_DEFAULT_DELAY (0.016f) - -/* Distortion effect */ -#define AL_DISTORTION_MIN_EDGE (0.0f) -#define AL_DISTORTION_MAX_EDGE (1.0f) -#define AL_DISTORTION_DEFAULT_EDGE (0.2f) - -#define AL_DISTORTION_MIN_GAIN (0.01f) -#define AL_DISTORTION_MAX_GAIN (1.0f) -#define AL_DISTORTION_DEFAULT_GAIN (0.05f) - -#define AL_DISTORTION_MIN_LOWPASS_CUTOFF (80.0f) -#define AL_DISTORTION_MAX_LOWPASS_CUTOFF (24000.0f) -#define AL_DISTORTION_DEFAULT_LOWPASS_CUTOFF (8000.0f) - -#define AL_DISTORTION_MIN_EQCENTER (80.0f) -#define AL_DISTORTION_MAX_EQCENTER (24000.0f) -#define AL_DISTORTION_DEFAULT_EQCENTER (3600.0f) - -#define AL_DISTORTION_MIN_EQBANDWIDTH (80.0f) -#define AL_DISTORTION_MAX_EQBANDWIDTH (24000.0f) -#define AL_DISTORTION_DEFAULT_EQBANDWIDTH (3600.0f) - -/* Echo effect */ -#define AL_ECHO_MIN_DELAY (0.0f) -#define AL_ECHO_MAX_DELAY (0.207f) -#define AL_ECHO_DEFAULT_DELAY (0.1f) - -#define AL_ECHO_MIN_LRDELAY (0.0f) -#define AL_ECHO_MAX_LRDELAY (0.404f) -#define AL_ECHO_DEFAULT_LRDELAY (0.1f) - -#define AL_ECHO_MIN_DAMPING (0.0f) -#define AL_ECHO_MAX_DAMPING (0.99f) -#define AL_ECHO_DEFAULT_DAMPING (0.5f) - -#define AL_ECHO_MIN_FEEDBACK (0.0f) -#define AL_ECHO_MAX_FEEDBACK (1.0f) -#define AL_ECHO_DEFAULT_FEEDBACK (0.5f) - -#define AL_ECHO_MIN_SPREAD (-1.0f) -#define AL_ECHO_MAX_SPREAD (1.0f) -#define AL_ECHO_DEFAULT_SPREAD (-1.0f) - -/* Flanger effect */ -#define AL_FLANGER_WAVEFORM_SINUSOID (0) -#define AL_FLANGER_WAVEFORM_TRIANGLE (1) - -#define AL_FLANGER_MIN_WAVEFORM (0) -#define AL_FLANGER_MAX_WAVEFORM (1) -#define AL_FLANGER_DEFAULT_WAVEFORM (1) - -#define AL_FLANGER_MIN_PHASE (-180) -#define AL_FLANGER_MAX_PHASE (180) -#define AL_FLANGER_DEFAULT_PHASE (0) - -#define AL_FLANGER_MIN_RATE (0.0f) -#define AL_FLANGER_MAX_RATE (10.0f) -#define AL_FLANGER_DEFAULT_RATE (0.27f) - -#define AL_FLANGER_MIN_DEPTH (0.0f) -#define AL_FLANGER_MAX_DEPTH (1.0f) -#define AL_FLANGER_DEFAULT_DEPTH (1.0f) - -#define AL_FLANGER_MIN_FEEDBACK (-1.0f) -#define AL_FLANGER_MAX_FEEDBACK (1.0f) -#define AL_FLANGER_DEFAULT_FEEDBACK (-0.5f) - -#define AL_FLANGER_MIN_DELAY (0.0f) -#define AL_FLANGER_MAX_DELAY (0.004f) -#define AL_FLANGER_DEFAULT_DELAY (0.002f) - -/* Frequency shifter effect */ -#define AL_FREQUENCY_SHIFTER_MIN_FREQUENCY (0.0f) -#define AL_FREQUENCY_SHIFTER_MAX_FREQUENCY (24000.0f) -#define AL_FREQUENCY_SHIFTER_DEFAULT_FREQUENCY (0.0f) - -#define AL_FREQUENCY_SHIFTER_MIN_LEFT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_LEFT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_LEFT_DIRECTION (0) - -#define AL_FREQUENCY_SHIFTER_DIRECTION_DOWN (0) -#define AL_FREQUENCY_SHIFTER_DIRECTION_UP (1) -#define AL_FREQUENCY_SHIFTER_DIRECTION_OFF (2) - -#define AL_FREQUENCY_SHIFTER_MIN_RIGHT_DIRECTION (0) -#define AL_FREQUENCY_SHIFTER_MAX_RIGHT_DIRECTION (2) -#define AL_FREQUENCY_SHIFTER_DEFAULT_RIGHT_DIRECTION (0) - -/* Vocal morpher effect */ -#define AL_VOCAL_MORPHER_MIN_PHONEMEA (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEA_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEA_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEA_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB (0) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB (29) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB (10) - -#define AL_VOCAL_MORPHER_MIN_PHONEMEB_COARSE_TUNING (-24) -#define AL_VOCAL_MORPHER_MAX_PHONEMEB_COARSE_TUNING (24) -#define AL_VOCAL_MORPHER_DEFAULT_PHONEMEB_COARSE_TUNING (0) - -#define AL_VOCAL_MORPHER_PHONEME_A (0) -#define AL_VOCAL_MORPHER_PHONEME_E (1) -#define AL_VOCAL_MORPHER_PHONEME_I (2) -#define AL_VOCAL_MORPHER_PHONEME_O (3) -#define AL_VOCAL_MORPHER_PHONEME_U (4) -#define AL_VOCAL_MORPHER_PHONEME_AA (5) -#define AL_VOCAL_MORPHER_PHONEME_AE (6) -#define AL_VOCAL_MORPHER_PHONEME_AH (7) -#define AL_VOCAL_MORPHER_PHONEME_AO (8) -#define AL_VOCAL_MORPHER_PHONEME_EH (9) -#define AL_VOCAL_MORPHER_PHONEME_ER (10) -#define AL_VOCAL_MORPHER_PHONEME_IH (11) -#define AL_VOCAL_MORPHER_PHONEME_IY (12) -#define AL_VOCAL_MORPHER_PHONEME_UH (13) -#define AL_VOCAL_MORPHER_PHONEME_UW (14) -#define AL_VOCAL_MORPHER_PHONEME_B (15) -#define AL_VOCAL_MORPHER_PHONEME_D (16) -#define AL_VOCAL_MORPHER_PHONEME_F (17) -#define AL_VOCAL_MORPHER_PHONEME_G (18) -#define AL_VOCAL_MORPHER_PHONEME_J (19) -#define AL_VOCAL_MORPHER_PHONEME_K (20) -#define AL_VOCAL_MORPHER_PHONEME_L (21) -#define AL_VOCAL_MORPHER_PHONEME_M (22) -#define AL_VOCAL_MORPHER_PHONEME_N (23) -#define AL_VOCAL_MORPHER_PHONEME_P (24) -#define AL_VOCAL_MORPHER_PHONEME_R (25) -#define AL_VOCAL_MORPHER_PHONEME_S (26) -#define AL_VOCAL_MORPHER_PHONEME_T (27) -#define AL_VOCAL_MORPHER_PHONEME_V (28) -#define AL_VOCAL_MORPHER_PHONEME_Z (29) - -#define AL_VOCAL_MORPHER_WAVEFORM_SINUSOID (0) -#define AL_VOCAL_MORPHER_WAVEFORM_TRIANGLE (1) -#define AL_VOCAL_MORPHER_WAVEFORM_SAWTOOTH (2) - -#define AL_VOCAL_MORPHER_MIN_WAVEFORM (0) -#define AL_VOCAL_MORPHER_MAX_WAVEFORM (2) -#define AL_VOCAL_MORPHER_DEFAULT_WAVEFORM (0) - -#define AL_VOCAL_MORPHER_MIN_RATE (0.0f) -#define AL_VOCAL_MORPHER_MAX_RATE (10.0f) -#define AL_VOCAL_MORPHER_DEFAULT_RATE (1.41f) - -/* Pitch shifter effect */ -#define AL_PITCH_SHIFTER_MIN_COARSE_TUNE (-12) -#define AL_PITCH_SHIFTER_MAX_COARSE_TUNE (12) -#define AL_PITCH_SHIFTER_DEFAULT_COARSE_TUNE (12) - -#define AL_PITCH_SHIFTER_MIN_FINE_TUNE (-50) -#define AL_PITCH_SHIFTER_MAX_FINE_TUNE (50) -#define AL_PITCH_SHIFTER_DEFAULT_FINE_TUNE (0) - -/* Ring modulator effect */ -#define AL_RING_MODULATOR_MIN_FREQUENCY (0.0f) -#define AL_RING_MODULATOR_MAX_FREQUENCY (8000.0f) -#define AL_RING_MODULATOR_DEFAULT_FREQUENCY (440.0f) - -#define AL_RING_MODULATOR_MIN_HIGHPASS_CUTOFF (0.0f) -#define AL_RING_MODULATOR_MAX_HIGHPASS_CUTOFF (24000.0f) -#define AL_RING_MODULATOR_DEFAULT_HIGHPASS_CUTOFF (800.0f) - -#define AL_RING_MODULATOR_SINUSOID (0) -#define AL_RING_MODULATOR_SAWTOOTH (1) -#define AL_RING_MODULATOR_SQUARE (2) - -#define AL_RING_MODULATOR_MIN_WAVEFORM (0) -#define AL_RING_MODULATOR_MAX_WAVEFORM (2) -#define AL_RING_MODULATOR_DEFAULT_WAVEFORM (0) - -/* Autowah effect */ -#define AL_AUTOWAH_MIN_ATTACK_TIME (0.0001f) -#define AL_AUTOWAH_MAX_ATTACK_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_ATTACK_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RELEASE_TIME (0.0001f) -#define AL_AUTOWAH_MAX_RELEASE_TIME (1.0f) -#define AL_AUTOWAH_DEFAULT_RELEASE_TIME (0.06f) - -#define AL_AUTOWAH_MIN_RESONANCE (2.0f) -#define AL_AUTOWAH_MAX_RESONANCE (1000.0f) -#define AL_AUTOWAH_DEFAULT_RESONANCE (1000.0f) - -#define AL_AUTOWAH_MIN_PEAK_GAIN (0.00003f) -#define AL_AUTOWAH_MAX_PEAK_GAIN (31621.0f) -#define AL_AUTOWAH_DEFAULT_PEAK_GAIN (11.22f) - -/* Compressor effect */ -#define AL_COMPRESSOR_MIN_ONOFF (0) -#define AL_COMPRESSOR_MAX_ONOFF (1) -#define AL_COMPRESSOR_DEFAULT_ONOFF (1) - -/* Equalizer effect */ -#define AL_EQUALIZER_MIN_LOW_GAIN (0.126f) -#define AL_EQUALIZER_MAX_LOW_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_LOW_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_LOW_CUTOFF (50.0f) -#define AL_EQUALIZER_MAX_LOW_CUTOFF (800.0f) -#define AL_EQUALIZER_DEFAULT_LOW_CUTOFF (200.0f) - -#define AL_EQUALIZER_MIN_MID1_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID1_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID1_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID1_CENTER (200.0f) -#define AL_EQUALIZER_MAX_MID1_CENTER (3000.0f) -#define AL_EQUALIZER_DEFAULT_MID1_CENTER (500.0f) - -#define AL_EQUALIZER_MIN_MID1_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID1_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID1_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_MID2_GAIN (0.126f) -#define AL_EQUALIZER_MAX_MID2_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_MID2_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_MID2_CENTER (1000.0f) -#define AL_EQUALIZER_MAX_MID2_CENTER (8000.0f) -#define AL_EQUALIZER_DEFAULT_MID2_CENTER (3000.0f) - -#define AL_EQUALIZER_MIN_MID2_WIDTH (0.01f) -#define AL_EQUALIZER_MAX_MID2_WIDTH (1.0f) -#define AL_EQUALIZER_DEFAULT_MID2_WIDTH (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_GAIN (0.126f) -#define AL_EQUALIZER_MAX_HIGH_GAIN (7.943f) -#define AL_EQUALIZER_DEFAULT_HIGH_GAIN (1.0f) - -#define AL_EQUALIZER_MIN_HIGH_CUTOFF (4000.0f) -#define AL_EQUALIZER_MAX_HIGH_CUTOFF (16000.0f) -#define AL_EQUALIZER_DEFAULT_HIGH_CUTOFF (6000.0f) - - -/* Source parameter value ranges and defaults. */ -#define AL_MIN_AIR_ABSORPTION_FACTOR (0.0f) -#define AL_MAX_AIR_ABSORPTION_FACTOR (10.0f) -#define AL_DEFAULT_AIR_ABSORPTION_FACTOR (0.0f) - -#define AL_MIN_ROOM_ROLLOFF_FACTOR (0.0f) -#define AL_MAX_ROOM_ROLLOFF_FACTOR (10.0f) -#define AL_DEFAULT_ROOM_ROLLOFF_FACTOR (0.0f) - -#define AL_MIN_CONE_OUTER_GAINHF (0.0f) -#define AL_MAX_CONE_OUTER_GAINHF (1.0f) -#define AL_DEFAULT_CONE_OUTER_GAINHF (1.0f) - -#define AL_MIN_DIRECT_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_DIRECT_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_DIRECT_FILTER_GAINHF_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAIN_AUTO AL_TRUE - -#define AL_MIN_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_FALSE -#define AL_MAX_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE -#define AL_DEFAULT_AUXILIARY_SEND_FILTER_GAINHF_AUTO AL_TRUE - - -/* Listener parameter value ranges and defaults. */ -#define AL_MIN_METERS_PER_UNIT FLT_MIN -#define AL_MAX_METERS_PER_UNIT FLT_MAX -#define AL_DEFAULT_METERS_PER_UNIT (1.0f) - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* AL_EFX_H */ diff --git a/internal/c/parts/audio/out/android/other/stuff/include/AL/oalMacOSX_OALExtensions.h b/internal/c/parts/audio/out/android/other/stuff/include/AL/oalMacOSX_OALExtensions.h deleted file mode 100644 index c3db30546..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/include/AL/oalMacOSX_OALExtensions.h +++ /dev/null @@ -1,161 +0,0 @@ -/********************************************************************************************************************************** -* -* OpenAL cross platform audio library -* Copyright (c) 2004-2006, Apple Computer, Inc. All rights reserved. -* Copyright (c) 2007-2008, Apple Inc. All rights reserved. -* -* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -* conditions are met: -* -* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. -* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -* disclaimer in the documentation and/or other materials provided with the distribution. -* 3. Neither the name of Apple Inc. ("Apple") nor the names of its contributors may be used to endorse or promote products derived -* from this software without specific prior written permission. -* -* THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS -* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED -* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -* -**********************************************************************************************************************************/ - -#ifndef __OAL_MAC_OSX_OAL_EXTENSIONS_H__ -#define __OAL_MAC_OSX_OAL_EXTENSIONS_H__ - -#include - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_MAC_OSX - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - -// Retrieve functions via alGetProcAddress() by passing in strings: alcMacOSXMixerOutputRate or alcMacOSXGetMixerOutputRate - -// Setting the Mixer Output Rate effectively sets the samnple rate at which the mixer -typedef ALvoid (*alcMacOSXRenderingQualityProcPtr) (ALint value); -typedef ALvoid (*alMacOSXRenderChannelCountProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerMaxiumumBussesProcPtr) (ALint value); -typedef ALvoid (*alcMacOSXMixerOutputRateProcPtr) (ALdouble value); - -typedef ALint (*alcMacOSXGetRenderingQualityProcPtr) (); -typedef ALint (*alMacOSXGetRenderChannelCountProcPtr) (); -typedef ALint (*alcMacOSXGetMixerMaxiumumBussesProcPtr) (); -typedef ALdouble (*alcMacOSXGetMixerOutputRateProcPtr) (); - -/* Render Quality. Used with alcMacOSXRenderingQuality() */ - - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_HIGH 'rqhi' - #define ALC_MAC_OSX_SPATIAL_RENDERING_QUALITY_LOW 'rdlo' - - // High Quality Spatial Algorithm suitable only for headphone use - #define ALC_IPHONE_SPATIAL_RENDERING_QUALITY_HEADPHONES 'hdph' - -/* - Render Channels. Used with alMacOSXRenderChannelCount() - Allows a user to force OpenAL to render to stereo, regardless of the audio hardware being used -*/ - #define ALC_MAC_OSX_RENDER_CHANNEL_COUNT_STEREO 'rcst' - -/* GameKit extension */ - - #define AL_GAMEKIT 'gksr' - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AL_EXT_SOURCE_NOTIFICATIONS - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Source Notifications - - Eliminates the need for continuous polling for source state by providing a - mechanism for the application to receive source state change notifications. - Upon receiving a notification, the application can retrieve the actual state - corresponding to the notification ID for which the notification was sent. - */ - -#define AL_QUEUE_HAS_LOOPED 0x9000 - -/* - Notification Proc: ALSourceNotificationProc - - sid - source id - notificationID - id of state that has changed - userData - user data provided to alSourceAddNotification() - */ - -typedef ALvoid (*alSourceNotificationProc)(ALuint sid, ALuint notificationID, ALvoid* userData); - -/* - API: alSourceAddNotification - - sid - source id - notificationID - id of state for which caller wants to be notified of a change - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - - Returns AL_NO_ERROR if request is successful. - - Valid IDs: - AL_SOURCE_STATE - AL_BUFFERS_PROCESSED - AL_QUEUE_HAS_LOOPED - notification sent when a looping source has looped to it's start point - */ -typedef ALenum (*alSourceAddNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* - API: alSourceRemoveStateNotification - - sid - source id - notificationID - id of state for which caller wants to remove an existing notification - notifyProc - notification proc - userData - ptr to applications user data, will be returned in the notification proc - */ -typedef ALvoid (*alSourceRemoveNotificationProcPtr) (ALuint sid, ALuint notificationID, alSourceNotificationProc notifyProc, ALvoid* userData); - -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ALC_EXT_ASA : Apple Spatial Audio Extension - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -/* - Used with the ASA API calls: alcASAGetSource(), alcASASetSource(), alcASAGetListener(), alcASASetListener() -*/ - -typedef ALenum (*alcASAGetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetSourceProcPtr) (ALuint property, ALuint source, ALvoid *data, ALuint dataSize); -typedef ALenum (*alcASAGetListenerProcPtr) (ALuint property, ALvoid *data, ALuint* dataSize); -typedef ALenum (*alcASASetListenerProcPtr) (ALuint property, ALvoid *data, ALuint dataSize); - - /* listener properties */ - #define ALC_ASA_REVERB_ON 'rvon' // type ALuint - #define ALC_ASA_REVERB_GLOBAL_LEVEL 'rvgl' // type ALfloat -40.0 db - 40.0 db - - #define ALC_ASA_REVERB_ROOM_TYPE 'rvrt' // type ALint - - /* reverb room type presets for the ALC_ASA_REVERB_ROOM_TYPE property */ - #define ALC_ASA_REVERB_ROOM_TYPE_SmallRoom 0 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumRoom 1 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom 2 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall 3 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall 4 - #define ALC_ASA_REVERB_ROOM_TYPE_Plate 5 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumChamber 6 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeChamber 7 - #define ALC_ASA_REVERB_ROOM_TYPE_Cathedral 8 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeRoom2 9 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall2 10 - #define ALC_ASA_REVERB_ROOM_TYPE_MediumHall3 11 - #define ALC_ASA_REVERB_ROOM_TYPE_LargeHall2 12 - - #define ALC_ASA_REVERB_EQ_GAIN 'rveg' // type ALfloat - #define ALC_ASA_REVERB_EQ_BANDWITH 'rveb' // type ALfloat - #define ALC_ASA_REVERB_EQ_FREQ 'rvef' // type ALfloat - - /* source properties */ - #define ALC_ASA_REVERB_SEND_LEVEL 'rvsl' // type ALfloat 0.0 (dry) - 1.0 (wet) (0-100% dry/wet mix, 0.0 default) - #define ALC_ASA_OCCLUSION 'occl' // type ALfloat -100.0 db (most occlusion) - 0.0 db (no occlusion, 0.0 default) - #define ALC_ASA_OBSTRUCTION 'obst' // type ALfloat -100.0 db (most obstruction) - 0.0 db (no obstruction, 0.0 default) - -#endif // __OAL_MAC_OSX_OAL_EXTENSIONS_H__ diff --git a/internal/c/parts/audio/out/android/other/stuff/include/config.h b/internal/c/parts/audio/out/android/other/stuff/include/config.h deleted file mode 100644 index 7016963e1..000000000 --- a/internal/c/parts/audio/out/android/other/stuff/include/config.h +++ /dev/null @@ -1,125 +0,0 @@ -#ifndef CONFIG_H -#define CONFIG_H - -/* Define to the library version */ -#define ALSOFT_VERSION "1.12.854" - -#define AL_BUILD_LIBRARY - -/* Define if we have the Android backend */ -#if defined(ANDROID) - -// Stereo only on Android back-ends -#define MAXCHANNELS 3 -#define STEREO_ONLY 1 - -#if defined(POST_FROYO) -#define HAVE_OPENSLES 1 -#endif - -#define HAVE_AUDIOTRACK 1 - -// For throttling AlSource.c - -#ifndef MAX_SOURCES_LOW -#define MAX_SOURCES_LOW 4 -#endif -#ifndef MAX_SOURCES_START -#define MAX_SOURCES_START 8 -#endif -#ifndef MAX_SOURCES_HIGH -#define MAX_SOURCES_HIGH 64 -#endif -#endif - -/* Define if we have the ALSA backend */ -/* #cmakedefine HAVE_ALSA */ - -/* Define if we have the OSS backend */ -/* #cmakedefine HAVE_OSS */ - -/* Define if we have the Solaris backend */ -/* #cmakedefine HAVE_SOLARIS */ - -/* Define if we have the DSound backend */ -/* #cmakedefine HAVE_DSOUND */ - -/* Define if we have the Wave Writer backend */ -/* #cmakedefine HAVE_WAVE */ - -/* Define if we have the Windows Multimedia backend */ -/* #cmakedefine HAVE_WINMM */ - -/* Define if we have the PortAudio backend */ -/* #cmakedefine HAVE_PORTAUDIO */ - -/* Define if we have the PulseAudio backend */ -/* #cmakedefine HAVE_PULSEAUDIO */ - -/* Define if we have dlfcn.h */ -#define HAVE_DLFCN_H 1 - -/* Define if we have the stat function */ -#define HAVE_STAT 1 - -/* Define if we have the powf function */ -#define HAVE_POWF 1 - -/* Define if we have the sqrtf function */ -#define HAVE_SQRTF 1 - -/* Define if we have the acosf function */ -#define HAVE_ACOSF 1 - -/* Define if we have the atanf function */ -#define HAVE_ATANF 1 - -/* Define if we have the fabsf function */ -#define HAVE_FABSF 1 - -/* Define if we have the strtof function */ -#define HAVE_STRTOF 1 - -/* Define if we have stdint.h */ -#define HAVE_STDINT_H 1 - -/* Define if we have the __int64 type */ -/* #cmakedefine HAVE___INT64 */ - -/* Define to the size of a long int type */ -#define SIZEOF_LONG 4 - -/* Define to the size of a long long int type */ -#define SIZEOF_LONG_LONG 8 - -/* Define to the size of an unsigned int type */ -#define SIZEOF_UINT 4 - -/* Define to the size of a void pointer type */ -#define SIZEOF_VOIDP 4 - -/* Define if we have GCC's destructor attribute */ -#define HAVE_GCC_DESTRUCTOR 1 - -/* Define if we have GCC's format attribute */ -#define HAVE_GCC_FORMAT 1 - -/* Define if we have pthread_np.h */ -/* #cmakedefine HAVE_PTHREAD_NP_H */ - -/* Define if we have float.h */ -/* #cmakedefine HAVE_FLOAT_H */ - -/* Define if we have fenv.h */ -#define HAVE_FENV_H 1 - -/* Define if we have fesetround() */ -/* #cmakedefine HAVE_FESETROUND */ - -/* Define if we have _controlfp() */ -/* #cmakedefine HAVE__CONTROLFP */ - -/* Define if we have pthread_setschedparam() */ -#define HAVE_PTHREAD_SETSCHEDPARAM 1 - -#endif diff --git a/internal/c/parts/audio/out/os/osx/build.command b/internal/c/parts/audio/out/os/osx/build.command old mode 100644 new mode 100755 index dfc0f393c..0d56cbdb0 --- a/internal/c/parts/audio/out/os/osx/build.command +++ b/internal/c/parts/audio/out/os/osx/build.command @@ -1,32 +1,32 @@ cd "$(dirname "$0")" -gcc -s -c -w -Wall ../../src/coreaudio.c -D AL_LIBTYPE_STATIC -o temp/coreaudio.o -gcc -s -c -w -Wall ../../src/helpers.c -D AL_LIBTYPE_STATIC -o temp/helpers.o -gcc -s -c -w -Wall ../../src/bs2b.c -D AL_LIBTYPE_STATIC -o temp/bs2b.o -gcc -s -c -w -Wall ../../src/alAuxEffectSlot.c -D AL_LIBTYPE_STATIC -o temp/alAuxEffectSlot.o -gcc -s -c -w -Wall ../../src/alBuffer.c -D AL_LIBTYPE_STATIC -o temp/alBuffer.o -gcc -s -c -w -Wall ../../src/ALc.c -D AL_LIBTYPE_STATIC -o temp/ALc.o -gcc -s -c -w -Wall ../../src/alcConfig.c -D AL_LIBTYPE_STATIC -o temp/alcConfig.o -gcc -s -c -w -Wall ../../src/alcDedicated.c -D AL_LIBTYPE_STATIC -o temp/alcDedicated.o -gcc -s -c -w -Wall ../../src/alcEcho.c -D AL_LIBTYPE_STATIC -o temp/alcEcho.o -gcc -s -c -w -Wall ../../src/alcModulator.c -D AL_LIBTYPE_STATIC -o temp/alcModulator.o -gcc -s -c -w -Wall ../../src/alcReverb.c -D AL_LIBTYPE_STATIC -o temp/alcReverb.o -gcc -s -c -w -Wall ../../src/alcRing.c -D AL_LIBTYPE_STATIC -o temp/alcRing.o -gcc -s -c -w -Wall ../../src/alcThread.c -D AL_LIBTYPE_STATIC -o temp/alcThread.o -gcc -s -c -w -Wall ../../src/alEffect.c -D AL_LIBTYPE_STATIC -o temp/alEffect.o -gcc -s -c -w -Wall ../../src/alError.c -D AL_LIBTYPE_STATIC -o temp/alError.o -gcc -s -c -w -Wall ../../src/alExtension.c -D AL_LIBTYPE_STATIC -o temp/alExtension.o -gcc -s -c -w -Wall ../../src/alFilter.c -D AL_LIBTYPE_STATIC -o temp/alFilter.o -gcc -s -c -w -Wall ../../src/alListener.c -D AL_LIBTYPE_STATIC -o temp/alListener.o -gcc -s -c -w -Wall ../../src/alSource.c -D AL_LIBTYPE_STATIC -o temp/alSource.o -gcc -s -c -w -Wall ../../src/alState.c -D AL_LIBTYPE_STATIC -o temp/alState.o -gcc -s -c -w -Wall ../../src/alThunk.c -D AL_LIBTYPE_STATIC -o temp/alThunk.o -gcc -s -c -w -Wall ../../src/ALu.c -D AL_LIBTYPE_STATIC -o temp/ALu.o -gcc -s -c -w -Wall ../../src/hrtf.c -D AL_LIBTYPE_STATIC -o temp/hrtf.o -gcc -s -c -w -Wall ../../src/loopback.c -D AL_LIBTYPE_STATIC -o temp/loopback.o -gcc -s -c -w -Wall ../../src/mixer.c -D AL_LIBTYPE_STATIC -o temp/mixer.o -gcc -s -c -w -Wall ../../src/null.c -D AL_LIBTYPE_STATIC -o temp/null.o -gcc -s -c -w -Wall ../../src/panning.c -D AL_LIBTYPE_STATIC -o temp/panning.o -gcc -s -c -w -Wall ../../src/wave.c -D AL_LIBTYPE_STATIC -o temp/wave.o +clang -s -c -w -Wall ../../src/coreaudio.c -D AL_LIBTYPE_STATIC -o temp/coreaudio.o +clang -s -c -w -Wall ../../src/helpers.c -D AL_LIBTYPE_STATIC -o temp/helpers.o +clang -s -c -w -Wall ../../src/bs2b.c -D AL_LIBTYPE_STATIC -o temp/bs2b.o +clang -s -c -w -Wall ../../src/alAuxEffectSlot.c -D AL_LIBTYPE_STATIC -o temp/alAuxEffectSlot.o +clang -s -c -w -Wall ../../src/alBuffer.c -D AL_LIBTYPE_STATIC -o temp/alBuffer.o +clang -s -c -w -Wall ../../src/ALc.c -D AL_LIBTYPE_STATIC -o temp/ALc.o +clang -s -c -w -Wall ../../src/alcConfig.c -D AL_LIBTYPE_STATIC -o temp/alcConfig.o +clang -s -c -w -Wall ../../src/alcDedicated.c -D AL_LIBTYPE_STATIC -o temp/alcDedicated.o +clang -s -c -w -Wall ../../src/alcEcho.c -D AL_LIBTYPE_STATIC -o temp/alcEcho.o +clang -s -c -w -Wall ../../src/alcModulator.c -D AL_LIBTYPE_STATIC -o temp/alcModulator.o +clang -s -c -w -Wall ../../src/alcReverb.c -D AL_LIBTYPE_STATIC -o temp/alcReverb.o +clang -s -c -w -Wall ../../src/alcRing.c -D AL_LIBTYPE_STATIC -o temp/alcRing.o +clang -s -c -w -Wall ../../src/alcThread.c -D AL_LIBTYPE_STATIC -o temp/alcThread.o +clang -s -c -w -Wall ../../src/alEffect.c -D AL_LIBTYPE_STATIC -o temp/alEffect.o +clang -s -c -w -Wall ../../src/alError.c -D AL_LIBTYPE_STATIC -o temp/alError.o +clang -s -c -w -Wall ../../src/alExtension.c -D AL_LIBTYPE_STATIC -o temp/alExtension.o +clang -s -c -w -Wall ../../src/alFilter.c -D AL_LIBTYPE_STATIC -o temp/alFilter.o +clang -s -c -w -Wall ../../src/alListener.c -D AL_LIBTYPE_STATIC -o temp/alListener.o +clang -s -c -w -Wall ../../src/alSource.c -D AL_LIBTYPE_STATIC -o temp/alSource.o +clang -s -c -w -Wall ../../src/alState.c -D AL_LIBTYPE_STATIC -o temp/alState.o +clang -s -c -w -Wall ../../src/alThunk.c -D AL_LIBTYPE_STATIC -o temp/alThunk.o +clang -s -c -w -Wall ../../src/ALu.c -D AL_LIBTYPE_STATIC -o temp/ALu.o +clang -s -c -w -Wall ../../src/hrtf.c -D AL_LIBTYPE_STATIC -o temp/hrtf.o +clang -s -c -w -Wall ../../src/loopback.c -D AL_LIBTYPE_STATIC -o temp/loopback.o +clang -s -c -w -Wall ../../src/mixer.c -D AL_LIBTYPE_STATIC -o temp/mixer.o +clang -s -c -w -Wall ../../src/null.c -D AL_LIBTYPE_STATIC -o temp/null.o +clang -s -c -w -Wall ../../src/panning.c -D AL_LIBTYPE_STATIC -o temp/panning.o +clang -s -c -w -Wall ../../src/wave.c -D AL_LIBTYPE_STATIC -o temp/wave.o ar rcs src.a temp/alAuxEffectSlot.o temp/alBuffer.o temp/ALc.o temp/alcConfig.o temp/alcDedicated.o temp/alcEcho.o temp/alcModulator.o temp/alcReverb.o temp/alcRing.o temp/alcThread.o temp/alEffect.o temp/alError.o temp/alExtension.o temp/alFilter.o temp/alListener.o temp/coreaudio.o temp/alSource.o temp/alState.o temp/alThunk.o temp/ALu.o temp/hrtf.o temp/loopback.o temp/mixer.o temp/null.o temp/panning.o temp/wave.o temp/helpers.o temp/bs2b.o echo "Press any key to continue..." Pause() @@ -44,28 +44,28 @@ Pause ####### added for OSX (above) -gcc -s -c -w -Wall ../../src/coreaudio.c -D AL_LIBTYPE_STATIC -o temp/coreaudio.o +clang -s -c -w -Wall ../../src/coreaudio.c -D AL_LIBTYPE_STATIC -o temp/coreaudio.o ###### removed for osx -gcc -s -c -w -Wall ../../src/alsa.c -D AL_LIBTYPE_STATIC -o temp/alsa.o +clang -s -c -w -Wall ../../src/alsa.c -D AL_LIBTYPE_STATIC -o temp/alsa.o ####Compiled but unrequired (using ALSA instead)#### -gcc -s -c -w -Wall ../../src/oss.c -D AL_LIBTYPE_STATIC -o temp/oss.o +clang -s -c -w -Wall ../../src/oss.c -D AL_LIBTYPE_STATIC -o temp/oss.o temp/oss.o -gcc -s -c -w -Wall ../../src/pulseaudio.c -D AL_LIBTYPE_STATIC -o temp/pulseaudio.o +clang -s -c -w -Wall ../../src/pulseaudio.c -D AL_LIBTYPE_STATIC -o temp/pulseaudio.o temp/pulseaudio.o ####These all failed to compile in Ubuntu#### -gcc -s -c -w -Wall ../../src/solaris.c -D AL_LIBTYPE_STATIC -o temp/solaris.o -gcc -s -c -w -Wall ../../src/sndio.c -D AL_LIBTYPE_STATIC -o temp/sndio.o -gcc -s -c -w -Wall ../../src/portaudio.c -D AL_LIBTYPE_STATIC -o temp/portaudio.o -gcc -s -c -w -Wall ../../src/coreaudio.c -D AL_LIBTYPE_STATIC -o temp/coreaudio.o -gcc -s -c -w -Wall ../../src/opensl.c -D AL_LIBTYPE_STATIC -o temp/opensl.o +clang -s -c -w -Wall ../../src/solaris.c -D AL_LIBTYPE_STATIC -o temp/solaris.o +clang -s -c -w -Wall ../../src/sndio.c -D AL_LIBTYPE_STATIC -o temp/sndio.o +clang -s -c -w -Wall ../../src/portaudio.c -D AL_LIBTYPE_STATIC -o temp/portaudio.o +clang -s -c -w -Wall ../../src/coreaudio.c -D AL_LIBTYPE_STATIC -o temp/coreaudio.o +clang -s -c -w -Wall ../../src/opensl.c -D AL_LIBTYPE_STATIC -o temp/opensl.o ####These are Windows specific#### -gcc -s -c -w -Wall ../../src/dsound.c -D AL_LIBTYPE_STATIC -o temp/dsound.o -gcc -s -c -w -Wall ../../src/mmdevapi.c -D AL_LIBTYPE_STATIC -o temp/mmdevapi.o -gcc -s -c -w -Wall ../../src/winmm.c -D AL_LIBTYPE_STATIC -o temp/winmm.o +clang -s -c -w -Wall ../../src/dsound.c -D AL_LIBTYPE_STATIC -o temp/dsound.o +clang -s -c -w -Wall ../../src/mmdevapi.c -D AL_LIBTYPE_STATIC -o temp/mmdevapi.o +clang -s -c -w -Wall ../../src/winmm.c -D AL_LIBTYPE_STATIC -o temp/winmm.o diff --git a/internal/c/parts/audio/out/src.c b/internal/c/parts/audio/out/src.c index 26771f025..ce30561bd 100644 --- a/internal/c/parts/audio/out/src.c +++ b/internal/c/parts/audio/out/src.c @@ -152,6 +152,9 @@ list *snd_sequences=list_new(sizeof(snd_sequence_struct)); struct snd_struct{ + void *lock_offset; + int64 lock_id; + uint8 internal;//1=internal uint8 type;//1=RAW, 2=SEQUENCE @@ -264,9 +267,9 @@ int32 snd_init_done=0; void snd_init(){ if (!snd_init_done){ - dev = alcOpenDevice(NULL); if(!dev) exit(111); - ctx = alcCreateContext(dev, NULL); - alcMakeContextCurrent(ctx); if(!ctx) exit(222); + dev = alcOpenDevice(NULL); if (!dev) goto done; + ctx = alcCreateContext(dev, NULL); if (!ctx) goto done; + alcMakeContextCurrent(ctx); alListener3f(AL_POSITION, 0, 0, 0); alListener3f(AL_VELOCITY, 0, 0, 0); @@ -276,6 +279,7 @@ void snd_init(){ } + done:; snd_init_done=1; } @@ -1048,6 +1052,10 @@ void sub__sndclose(int32 handle){ } snd->close=1;//raw snd->raw_close_time=GetTicks(); + + if (snd->lock_id){ + free_mem_lock((mem_lock*)snd->lock_offset);//untag + } }//sndclose //"macros" diff --git a/internal/c/parts/core/android_core/.gitignore b/internal/c/parts/core/android_core/.gitignore deleted file mode 100644 index 31cc3ede7..000000000 --- a/internal/c/parts/core/android_core/.gitignore +++ /dev/null @@ -1,32 +0,0 @@ -Makefile.in -Makefile -INSTALL -.deps -aclocal.m4 -autom4te.cache -compile -config.guess -config.sub -configure -configure.cache -config.log -config.status -# config.h.in is now static and used with CMake, keep it: -#config.h.in -config.h -depcomp -install-sh -ltmain.sh -missing -stamp-h1 -*.tar -*.tar.gz -*.tar.bz2 -*.zip -*.o -*.a -*~ -# my build dirs: -cross-android -cross-woe -native diff --git a/internal/c/parts/core/android_core/AUTHORS b/internal/c/parts/core/android_core/AUTHORS deleted file mode 100644 index a47dd60ed..000000000 --- a/internal/c/parts/core/android_core/AUTHORS +++ /dev/null @@ -1,39 +0,0 @@ -Pawel W. Olszta - the person to be blamed for freeglut - -Andreas Umbach - the first person to contribute to the freeglut project, - contributed the cube and sphere geometry code - -Steve Baker - joystick code (from his great PLIB), numerous hints - tips on the freeglut usability - and for taking the project over when Pawel bowed out - -Christopher John Purnell -Don Heyse -Dave McClurg -John F. Fay -Norman Vine -Daniel Wagner -Sven Panne - contributing to the project, using the product, and generally keeping it going - -Brian Paul -Eric Sandall - giving us the oomph! to make an official release - -James 'J.C.' Jones - designing the new website - -John Tsiombikas - Linux spaceball support, XR&R gamemode, misc linux fixes and breakages - -Diederick C. Niehorster -Chris Marshall -Clive McCarthy -Eero Pajarre -Florian Echtler -Matti Lehtonen - -...and all the opengl-gamedev-l people that made Pawel start this project :) diff --git a/internal/c/parts/core/android_core/CMakeLists.txt b/internal/c/parts/core/android_core/CMakeLists.txt deleted file mode 100644 index c4105caeb..000000000 --- a/internal/c/parts/core/android_core/CMakeLists.txt +++ /dev/null @@ -1,359 +0,0 @@ -PROJECT(freeglut) -CMAKE_MINIMUM_REQUIRED(VERSION 2.6) - -# NOTE: On Windows and Cygwin, the dll's are placed in the -# CMAKE_RUNTIME_OUTPUT_DIRECTORY, while their corresponding import -# libraries end up in CMAKE_ARCHIVE_OUTPUT_DIRECTORY. On other -# platforms, such as Linux, the shared libraries are put in -# CMAKE_ARCHIVE_OUTPUT_DIRECTORY instead. -# Static libraries end up in CMAKE_ARCHIVE_OUTPUT_DIRECTORY on all -# platforms (unless -SET(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/bin) -SET(CMAKE_ARCHIVE_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/lib) - -# setup version numbers -# TODO: Update these for each release! -set(VERSION_MAJOR 3) -set(VERSION_MINOR 0) -set(VERSION_PATCH 0) - - -SET(FREEGLUT_HEADERS - include/GL/freeglut.h - include/GL/freeglut_ext.h - include/GL/freeglut_std.h - include/GL/glut.h -) -SET(FREEGLUT_SRCS - ${FREEGLUT_HEADERS} - src/fg_callbacks.c - src/fg_cursor.c - src/fg_display.c - src/fg_ext.c - src/fg_font_data.c - src/fg_gamemode.c - src/fg_init.c - src/fg_internal.h - src/fg_input_devices.c - src/fg_joystick.c - src/fg_main.c - src/fg_misc.c - src/fg_overlay.c - src/fg_spaceball.c - src/fg_state.c - src/fg_stroke_mono_roman.c - src/fg_stroke_roman.c - src/fg_structure.c - src/fg_videoresize.c - src/fg_window.c -) -# Android port requires adding a version of these compatible with -# OpenGL ES (TODO): -IF(NOT ANDROID) - LIST(APPEND FREEGLUT_SRCS - src/fg_font.c - src/fg_geometry.c - src/fg_menu.c - src/fg_teapot.c - ) -ENDIF() - -IF(WIN32) - LIST(APPEND FREEGLUT_SRCS - src/mswin/fg_cursor_mswin.c - src/mswin/fg_display_mswin.c - src/mswin/fg_ext_mswin.c - src/mswin/fg_gamemode_mswin.c - src/mswin/fg_init_mswin.c - src/mswin/fg_internal_mswin.h - src/mswin/fg_input_devices_mswin.c - src/mswin/fg_joystick_mswin.c - src/mswin/fg_main_mswin.c - src/mswin/fg_menu_mswin.c - src/mswin/fg_spaceball_mswin.c - src/mswin/fg_state_mswin.c - src/mswin/fg_structure_mswin.c - src/mswin/fg_window_mswin.c - ${CMAKE_BINARY_DIR}/freeglut.rc # generated below from freeglut.rc.in - ) - IF (NOT CMAKE_CL_64) - # .def file only for 32bit Windows builds - LIST(APPEND FREEGLUT_SRCS - ${CMAKE_BINARY_DIR}/freeglutdll.def # generated below from src/freeglutdll.def.in - ) - ENDIF() - -ELSEIF(ANDROID) - LIST(APPEND FREEGLUT_SRCS - src/egl/fg_internal_egl.h - src/egl/fg_display_egl.c - src/egl/fg_init_egl.c - src/egl/fg_structure_egl.c - src/egl/fg_window_egl.c - src/android/native_app_glue/android_native_app_glue.c - src/android/native_app_glue/android_native_app_glue.h - src/android/fg_runtime_android.c - src/android/fg_gamemode_android.c - src/android/fg_input_devices_android.c - src/android/fg_joystick_android.c - src/android/fg_main_android.c - src/android/fg_spaceball_android.c - src/android/fg_state_android.c - src/android/fg_window_android.c - src/android/opengles_stubs.c - src/android/fg_internal_android.h - ) -ELSE() - LIST(APPEND FREEGLUT_SRCS - src/x11/fg_cursor_x11.c - src/x11/fg_display_x11.c - src/x11/fg_ext_x11.c - src/x11/fg_gamemode_x11.c - src/x11/fg_glutfont_definitions_x11.c - src/x11/fg_init_x11.c - src/x11/fg_internal_x11.h - src/x11/fg_input_devices_x11.c - src/x11/fg_joystick_x11.c - src/x11/fg_main_x11.c - src/x11/fg_menu_x11.c - src/x11/fg_spaceball_x11.c - src/x11/fg_state_x11.c - src/x11/fg_structure_x11.c - src/x11/fg_window_x11.c - src/x11/fg_xinput_x11.c - ) -ENDIF() - -# BUILD_SHARED_LIBS is already a standard CMake variable, but we need to -# re-declare it here so it will show up in the GUI. -# by default, we want to build both -OPTION(BUILD_SHARED_LIBS "Build FreeGLUT shared library." ON) -OPTION(BUILD_STATIC_LIBS "Build FreeGLUT static library." ON) - -# OpenGL ES support -OPTION(FREEGLUT_GLES1 "Use OpenGL ES 1.x (requires EGL)" OFF) -OPTION(FREEGLUT_GLES2 "Use OpenGL ES 2.x (requires EGL) (overrides BUILD_GLES1)" OFF) - -IF(FREEGLUT_GLES2) - ADD_DEFINITIONS(-DGLESv2) - LIST(APPEND LIBS GLESv2 EGL) -ELSEIF(FREEGLUT_GLES1) - ADD_DEFINITIONS(-DGLESv1) - LIST(APPEND LIBS GLESv1 EGL) -ELSE() - FIND_PACKAGE(OpenGL REQUIRED) - LIST(APPEND LIBS ${OPENGL_gl_LIBRARY}) - INCLUDE_DIRECTORIES(${OPENGL_INCLUDE_DIR}) -ENDIF() - -# lib m for math, not needed on windows -IF (NOT WIN32) - LIST(APPEND LIBS m) -ENDIF() - -IF(WIN32) - # hide insecure CRT warnings, common practice - ADD_DEFINITIONS(-D_CRT_SECURE_NO_WARNINGS) -ENDIF() - -if(UNIX AND NOT ANDROID) - FIND_PACKAGE(X11 REQUIRED) - LIST(APPEND LIBS ${X11_LIBRARIES}) - IF(X11_Xrandr_FOUND) - SET(HAVE_X11_EXTENSIONS_XRANDR_H TRUE) - LIST(APPEND LIBS ${X11_Xrandr_LIB}) - ENDIF() - IF(X11_xf86vmode_FOUND) - SET(HAVE_X11_EXTENSIONS_XF86VMODE_H TRUE) - # Work-around http://www.cmake.org/Bug/bug_view_page.php?bug_id=6976 - IF(NOT "${X11_Xxf86vm_LIB}") - SET(X11_Xxf86vm_LIB "Xxf86vm") - ENDIF() - LIST(APPEND LIBS ${X11_Xxf86vm_LIB}) - ENDIF() -ENDIF() - -INCLUDE(CheckIncludeFiles) -INCLUDE(CheckFunctionExists) -INCLUDE(CheckTypeSize) -CHECK_INCLUDE_FILES(sys/types.h HAVE_SYS_TYPES_H) -CHECK_INCLUDE_FILES(unistd.h HAVE_UNISTD_H) -CHECK_INCLUDE_FILES(sys/time.h HAVE_SYS_TIME_H) -CHECK_INCLUDE_FILES(stdbool.h HAVE_STDBOOL_H) -CHECK_INCLUDE_FILES(sys/param.h HAVE_SYS_PARAM_H) -CHECK_INCLUDE_FILES(sys/ioctl.h HAVE_SYS_IOCTL_H) -CHECK_INCLUDE_FILES(fcntl.h HAVE_FCNTL_H) -CHECK_INCLUDE_FILES(errno.h HAVE_ERRNO_H) -CHECK_INCLUDE_FILES(usbhid.h HAVE_USBHID_H) -CHECK_FUNCTION_EXISTS(gettimeofday HAVE_GETTIMEOFDAY) -CHECK_FUNCTION_EXISTS(vfprintf HAVE_VFPRINTF) -CHECK_FUNCTION_EXISTS(_doprnt HAVE_DOPRNT) -CHECK_FUNCTION_EXISTS(XParseGeometry HAVE_XPARSEGEOMETRY) -IF (NOT HAVE_XPARSEGEOMETRY) - LIST(APPEND FREEGLUT_SRCS - src/util/xparsegeometry_repl.c - src/util/xparsegeometry_repl.h) - SET(NEED_XPARSEGEOMETRY_IMPL TRUE) -ENDIF() -# decide on suitable type for internal time keeping, 64-bit if possible -CHECK_INCLUDE_FILES(stdint.h HAVE_STDINT_H) -CHECK_INCLUDE_FILES(inttypes.h HAVE_INTTYPES_H) -IF (NOT (HAVE_STDINT_H OR HAVE_INTTYPES_H)) - IF (MSVC) - # Some old Microsoft VC don't support unsigned long long, but all we - # care about support unsigned __int64, so test for presence of that - # type - CHECK_TYPE_SIZE("unsigned __int64" U__INT64 BUILTIN_TYPES_ONLY) - ELSEIF() - CHECK_TYPE_SIZE("unsigned long long" ULONG_LONG BUILTIN_TYPES_ONLY) - ENDIF() -ENDIF() - - -# The generated config.h is placed in the project's build directory, just to -# ensure that all CMake-generated files are kept away from the main source tree. -# As a result, the build directory must to be added to the include path list. -CONFIGURE_FILE(${CMAKE_SOURCE_DIR}/config.h.in ${CMAKE_BINARY_DIR}/config.h) -INCLUDE_DIRECTORIES(${CMAKE_BINARY_DIR} ${CMAKE_SOURCE_DIR}/include ${CMAKE_SOURCE_DIR}/src) -ADD_DEFINITIONS(-DHAVE_CONFIG_H) -IF(WIN32) - # we also have to generate freeglut.rc, which contains the version - # number - CONFIGURE_FILE(${CMAKE_SOURCE_DIR}/freeglut.rc.in ${CMAKE_BINARY_DIR}/freeglut.rc) - IF (MSVC AND NOT CMAKE_CL_64) - # .def file only for 32bit Windows builds with Visual Studio - CONFIGURE_FILE(${CMAKE_SOURCE_DIR}/src/freeglutdll.def.in ${CMAKE_BINARY_DIR}/freeglutdll.def) - ENDIF() -ENDIF() - -IF(BUILD_SHARED_LIBS) - ADD_LIBRARY(freeglut SHARED ${FREEGLUT_SRCS}) -ENDIF() -IF(BUILD_STATIC_LIBS) - ADD_LIBRARY(freeglut_static STATIC ${FREEGLUT_SRCS}) -ENDIF() - - -IF(WIN32) - LIST(APPEND LIBS winmm) - IF(BUILD_SHARED_LIBS) - SET_TARGET_PROPERTIES(freeglut PROPERTIES COMPILE_FLAGS -DFREEGLUT_EXPORTS) - ENDIF() - IF(BUILD_STATIC_LIBS) - SET_TARGET_PROPERTIES(freeglut_static PROPERTIES COMPILE_FLAGS -DFREEGLUT_STATIC) - # need to set machine:x64 for linker, at least for VC10, and - # doesn't hurt for older compilers: - # http://public.kitware.com/Bug/view.php?id=11240#c22768 - IF (CMAKE_CL_64) - SET_TARGET_PROPERTIES(freeglut_static PROPERTIES STATIC_LIBRARY_FLAGS "/machine:x64") - ENDIF() - ENDIF() -ELSE() - # on UNIX we need to make sure: - # - all shared libraries must have a soname/version, see : - # http://sourceware.org/autobook/autobook/autobook_91.html#SEC91 - # http://www.gnu.org/software/libtool/manual/html_node/Updating-version-info.html - # Current: -version-info 12:0:9 -> 3.9.0 - # - the output library should be named glut so it'll be linkable with -lglut - # - the shared library should link to the dependency libraries so that the user - # won't have to link them explicitly (they shouldn't have to know that we depend - # on Xrandr or Xxf86vm) - SET_TARGET_PROPERTIES(freeglut PROPERTIES VERSION 3.9.0 SOVERSION 3 OUTPUT_NAME glut) - SET_TARGET_PROPERTIES(freeglut_static PROPERTIES OUTPUT_NAME glut) - IF(ANDROID) - # Not in CMake toolchain file, because the toolchain - # file is called several times and generally doesn't - # seem to be meant for modifying CFLAGS: - # '-mandroid' is not mandatory but doesn't hurt - # '-O0 -gstabs+' helps the currently buggy GDB port - # Too late to manipulate ENV: SET(ENV{CFLAGS} "$ENV{CFLAGS} -mandroid") - # Not using _INIT variables, they seem to be used internally only - SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -mandroid") - SET(CMAKE_C_FLAGS_DEBUG "${CMAKE_C_FLAGS_DEBUG} -O0 -gstabs+") - ENDIF() -ENDIF() -IF(BUILD_SHARED_LIBS) - TARGET_LINK_LIBRARIES(freeglut ${LIBS}) -ENDIF() -IF(BUILD_STATIC_LIBS) - TARGET_LINK_LIBRARIES(freeglut_static ${LIBS}) -ENDIF() - -IF(BUILD_SHARED_LIBS) - INSTALL(TARGETS freeglut DESTINATION lib) -ENDIF() -IF(BUILD_STATIC_LIBS) - INSTALL(TARGETS freeglut_static DESTINATION lib) -ENDIF() -INSTALL(FILES ${FREEGLUT_HEADERS} DESTINATION include/GL) - - - -# Optionally build demos, on by default. -option( FREEGLUT_BUILD_DEMOS "Build FreeGLUT demos." ON ) - -SET(DEMO_LIBS ${OPENGL_glu_LIBRARY} ${LIBS}) -# lib m for math, not needed on windows -IF (NOT WIN32) - LIST(APPEND DEMO_LIBS m) -ENDIF() - -MACRO(ADD_DEMO name) - IF( FREEGLUT_BUILD_DEMOS ) - IF(BUILD_SHARED_LIBS) - ADD_EXECUTABLE(${name} ${ARGN}) - TARGET_LINK_LIBRARIES(${name} ${DEMO_LIBS} freeglut) - ENDIF() - IF(BUILD_STATIC_LIBS) - ADD_EXECUTABLE(${name}_static ${ARGN}) - TARGET_LINK_LIBRARIES(${name}_static ${DEMO_LIBS} freeglut_static) - SET_TARGET_PROPERTIES(${name}_static PROPERTIES COMPILE_FLAGS -DFREEGLUT_STATIC) - ENDIF() - ENDIF() -ENDMACRO() - -ADD_DEMO(CallbackMaker progs/demos/CallbackMaker/CallbackMaker.c) -ADD_DEMO(Fractals progs/demos/Fractals/fractals.c) -ADD_DEMO(Fractals_random progs/demos/Fractals_random/fractals_random.c) -ADD_DEMO(Lorenz progs/demos/Lorenz/lorenz.c) -ADD_DEMO(One progs/demos/One/one.c) -ADD_DEMO(Resizer progs/demos/Resizer/Resizer.cpp) -ADD_DEMO(shapes progs/demos/shapes/shapes.c) -ADD_DEMO(smooth_opengl3 progs/demos/smooth_opengl3/smooth_opengl3.c) -ADD_DEMO(spaceball progs/demos/spaceball/spaceball.c - progs/demos/spaceball/vmath.c - progs/demos/spaceball/vmath.h) -ADD_DEMO(subwin progs/demos/subwin/subwin.c) -ADD_DEMO(timer progs/demos/timer/timer.c) - -# finally, if any demos are built, copy needed files to output directory -# (currently, thats just the input file for the Fractals demo) -IF(FREEGLUT_BUILD_DEMOS) - # 1) copy fractals.dat from freeglut/progs/demos/Fractals - IF(BUILD_SHARED_LIBS) - SET(Frac_target Fractals) - ELSE() - SET(Frac_target Fractals_static) - ENDIF() - GET_TARGET_PROPERTY(DEMO_OUTPUT_DIRECTORY ${Frac_target} RUNTIME_OUTPUT_DIRECTORY) - ADD_CUSTOM_COMMAND( - TARGET ${Frac_target} - POST_BUILD - COMMAND ${CMAKE_COMMAND} -E copy - ${PROJECT_SOURCE_DIR}/progs/demos/Fractals/fractals.dat - ${DEMO_OUTPUT_DIRECTORY}/${CMAKE_CFG_INTDIR} - ) -ENDIF() - -# pkg-config support, to install at $(libdir)/pkgconfig -# Define static build dependencies -IF(WIN32) - SET(LIBS_PRIVATE "-lopengl32 -lwinmm -lgdi32") -ELSEIF(ANDROID) - SET(LIBS_PRIVATE "-llog -landroid -lGLESv2 -lEGL") -ELSE() - SET(LIBS_PRIVATE "-lX11 -lXxf86vm -lXrandr -lGLESv2 -lEGL") -ENDIF() -CONFIGURE_FILE(${CMAKE_SOURCE_DIR}/freeglut.pc.in ${CMAKE_BINARY_DIR}/freeglut.pc @ONLY) -INSTALL(FILES ${CMAKE_BINARY_DIR}/freeglut.pc DESTINATION share/pkgconfig) -# TODO: change the library name when building for GLES, e.g. -lglut-GLES2 diff --git a/internal/c/parts/core/android_core/COPYING b/internal/c/parts/core/android_core/COPYING deleted file mode 100644 index 01c11838d..000000000 --- a/internal/c/parts/core/android_core/COPYING +++ /dev/null @@ -1,27 +0,0 @@ - - Freeglut Copyright - ------------------ - - Freeglut code without an explicit copyright is covered by the following - copyright: - - Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - Permission is hereby granted, free of charge, to any person obtaining a copy - of this software and associated documentation files (the "Software"), to deal - in the Software without restriction, including without limitation the rights - to use, copy, modify, merge, publish, distribute, sublicense, and/or sell - copies or substantial portions of the Software. - - The above copyright notice and this permission notice shall be included in - all copies or substantial portions of the Software. - - THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - - Except as contained in this notice, the name of Pawel W. Olszta shall not be - used in advertising or otherwise to promote the sale, use or other dealings - in this Software without prior written authorization from Pawel W. Olszta. diff --git a/internal/c/parts/core/android_core/ChangeLog b/internal/c/parts/core/android_core/ChangeLog deleted file mode 100644 index 65452a72b..000000000 --- a/internal/c/parts/core/android_core/ChangeLog +++ /dev/null @@ -1,3775 +0,0 @@ -2012-01-09 John F. Fay - * Released freeglut 2.8.0 a few days ago and am restarting the ChangeLog - * Added 'cmake' support - * Moved source files from 'src' directory to 'src/Common' directory with - an eye to moving platform-specific code to separate files in separate - directories - -2009-08-10 Sven Panne - - * include/GL/freeglut_ext.h,include/GL/freeglut_std.h,src/freeglut_ext.c, - src/freeglut_init.c,src/freeglut_internal.h,src/freeglut_state.c, - src/freeglut_window.c,src/freeglutdll.def: Added support for sRGB - framebuffers via the GLX_ARB_framebuffer_sRGB / WGL_ARB_framebuffer_sRGB - extensions. Added support for context profiles via the new parts of the - GLX_ARB_create_context / WGL_ARB_create_context extensions. - -2009-06-11 Paul Blew - - * replaced broken IDE based OpenWatcom build with a makefile based one - -2009-06-11 Sven Panne - - * include/GL/freeglut_std.h: Disable the ATEXIT_HACK for Watcom, their - "exit" function has a different calling convention, leading to - compilation errors. - -2009-05-24 Sven Panne - - * freeglut_static_vs2008.vcproj,freeglut_vs2008.vcproj, - freeglut_vs2008.sln,freeglut_vs2008_static.sln: Move all files related - to Visual Studio 2008 into 2 directories, one for the normal DLL - build, and one for the static build. We should do this for other IDEs, - too. - -2009-05-22 Sven Panne - - * include/GL/freeglut_std.h: Avoid warnings when the ATEXIT_HACK is used - with GCC, making the hack even uglier. - - * include/GL/freeglut_std.h,src/freeglut_init.c,src/freeglut_internal.h, - src/freeglut_menu.c,src/freeglut_window.c,src/freeglutdll.def: Added the - ugly ATEXIT_HACK from GLUT 3.7, making freeglut binary compatible with the - GLUT DLLs out in the wild. - - * src/freeglutdll.def: Removed obsolete lines. Fixed version number. - - * freeglut_vs2008.vcproj: Use our module definition file, so we get - undecorated names in the resulting DLL, just like the classic GLUT DLL - from Nate Robins. - -2009-04-05 Sven Panne - - * Makefile.am: Added more project/workspace/... files to distribution. - * .cvsignore,doc/.cvsignore,include/.cvsignore,include/GL/.cvsignore, - progs/.cvsignore,progs/demos/.cvsignore, - progs/demos/CallbackMaker/.cvsignore,progs/demos/Fractals/.cvsignore, - progs/demos/Fractals_random/.cvsignore,progs/demos/Lorenz/.cvsignore, - progs/demos/One/.cvsignore,progs/demos/shapes/.cvsignore, - src/.cvsignore: Removed remnants of CVS. - -2009-03-30 Sven Panne - - * progs/demos/smooth_opengl3/smooth_opengl3.c: Make the example fully - OpenGL-3.1-compliant. - -2009-03-27 Sven Panne - - * progs/demos/smooth_opengl3/smooth_opengl3.c: Make Visual C happy by - including stddef.h and explicitly marking some literals as float. - -2009-03-26 Sven Panne - - * src/freeglut_init.c,src/freeglut_input_devices.c: Unbreak the build: - C++ style comments are not allowed in ISO C90 - -2009-03-19 John F. Fay - - * src/freeglut_input_devices.c: Fixing "freeglut_input_devices.c" for - MSVS2005 and later per e-mail from Diederick Niehorster dated Thu - 3/19/2009 6:57 AM - -2009-03-17 John F. Fay - - * src/freeglut_init.c, src/freeglut_input_devices.c: Removing some build - warnings from deprecated functions for VS2008 per e-mail from - Diederick Niehorster dated Tue 3/10/2009 - * freeglut_static_vs2008.vcproj, freeglut_vs2008.sln, - freeglut_vs2008.vcproj, - progs/demos/CallbackMaker/CallbackMakerStatic_vs2008.vcproj, - progs/demos/CallbackMaker/CallbackMaker_vs2008.vcproj, - progs/demos/Fractals/FractalsStatic_vs2008.vcproj, - progs/demos/Fractals/Fractals_vs2008.vcproj, - progs/demos/Fractals_random/Fractals_randomStatic_vs2008.vcproj, - progs/demos/Fractals_random/Fractals_random_vs2008.vcproj, - progs/demos/Lorenz/lorenzStatic_vs2008.vcproj, - progs/demos/Lorenz/lorenz_vs2008.vcproj, - progs/demos/One/oneStatic_vs2008.vcproj, - progs/demos/One/one_vs2008.vcproj, progs/demos/demos_vs2008.sln, - progs/demos/shapes/shapesStatic_vs2008.vcproj, - progs/demos/shapes/shapes_vs2008.vcproj, - progs/demos/smooth_opengl3/smooth_opengl3Static_vs2008.vcproj, - progs/demos/smooth_opengl3/smooth_opengl3_vs2008.vcproj: Adding Visual - Studio 2008 solution and project files - -2009-03-16 Sven Panne - - * src/freeglut_init.c,src/freeglut_window.c: Set the default number of - samples per pixel to 4 and actually use the value set with - glutSetOption(GLUT_MULTISAMPLE,...) in Windows code. Previously the - Windows code used a hardwired value of 4 and the GLX code had a - default of 0, neither made much sense. Similarly, set the default - number of auxiliary buffers to 1 and use that value when GLUT_AUX is - used. Note: There latter token has the same value as GLUT_AUX1, and - for historical reasons we seem to have 2 APIs to set the number of - auxiliary buffers: Explicitly using GLUT_AUX1 ... GLUT_AUX4, and using - a combination of GLUT_AUX with glutSetOption. The default of 1 ensures - consistent behaviour in both cases. - * src/freeglut_state.c: Added GLUT_AUX and GLUT_MULTISAMPLE as possible - parameters for glutGet, making things more symmetric with - glutSetOption. - * src/freeglutdll.def: Added missing API entries. - -2009-03-10 John F. Fay - - * progs/demos/demos.dsw: Adding the "smooth_opengl3" demo - -2009-03-09 John F. Fay - - * include/GL/freeglut_std.h: Making the definition of - "WIN32_LEAN_AND_MEAN" conditional to enhance compatibility with GLEW - per suggestion by Diederick C. Niehorster in e-mail dated Mon 3/9/2009 - 8:06 AM - * progs/demos/Fractals/fractals.c: Setting the "fractals" demo initial - number of levels to 4 per suggestion from Diederick C. Niehorster - [diederick@niehorster.eu] in e-mail dated Mon 3/9/2009 5:29 AM - -2009-03-01 John F. Fay - - * progs/demos/CallbackMaker/CallbackMaker.c, - progs/demos/Lorenz/lorenz.c, progs/demos/shapes/shapes.c: Fixing - Microsoft compatibility with the new "vsnprintf" by putting an - underscore in front of it if WIN32 is defined but __CYGWIN__ is not - -2009-03-01 Sven Panne - - * configure.ac: We do not depend on GLU anymore - * README.win32: Added notes for building under Cygwin - * src/Makefile.am: To build shared libraries on Windows, one has to - declare explicitly that there are no undefined symbols during linking. - No idea why, but this seems to be the only way to enable this on - Cygwin via -mno-cygwin. Hopefully this won't cause problems on other - platforms (which has to be tested). - * progs/demos/smooth_opengl3/smooth_opengl3.c: Windows fun again: Use - the correct calling convention for OpenGL extension entries. - -2009-02-28 Sven Panne - - * progs/demos/smooth_opengl3/smooth_opengl3.c: When -mno-cygwin is used, - we get ancient GL headers, so be a bit more conservative. - * progs/demos/Fractals_random/fractals_random.c, - progs/demos/Lorenz/lorenz.c, progs/demos/shapes/shapes.c: - _CrtDumpMemoryLeaks and its header are Microsoft-specific, e.g. Cygwin - doesn't provide them. - * src/freeglut_window.c: Do not try to destroy a GLX context when there - is none, e.g. when glXCreateContextAttribsARB is not there. - * src/freeglut_joystick.c: Use snprintf or _snprintf instead of the - potentially dangerous sprintf to avoid warnings. - - NOTE: Due to excessive use of #ifdefs, the joystick code is on the - border of being unmaintainable! I could only check that it compiles - cleanly on my Linux box. Others should test this on their platforms - (Windows, Mac OS X, *BSD) to make sure that nothing has been broken. - * progs/demos/CallbackMaker/CallbackMaker.c, - progs/demos/Lorenz/lorenz.c, progs/demos/shapes/shapes.c: Use - vsnprintf instead of the potentially dangerous sprintf to avoid - warnings. Using snprintf directly would be a little bit more tricky, - because once again Microsoft decided to avoid followind standards and - provide _snprintf instead. We could use this, too, but this would - require an additional autoconf check, which I'd like to avoid, if - possible. - - Note: If VS *still* issues warnings, but this time about vsnprintf, - somebody should add some pragmas or whatever is needed to shut up that - warning, it would be silly. - * progs/demos/Lorenz/lorenz.c: Position the distance message closer to - the middle of the window, it has been far, far off to the upper right. - * src/freeglut_internal.h: Synched version number with configure.ac. We - should better remove this redundancy and calculate this from - configure.ac directly. - -2009-02-19 John F. Fay - - * progs/demos/smooth_opengl3/smooth_opengl3.dsp, - progs/demos/smooth_opengl3/smooth_opengl3Static.dsp: Fixing the - DOS/Linux line ending problems in the progs/demos/smooth_opengl3 - project files - -2009-02-18 John F. Fay - - * src/freeglut_window.c: Fixing a build error caused by a variable - declaration being out of place - -2009-02-15 Sven Panne - - * progs/demos/smooth_opengl3/smooth_opengl3.c: Final changes to make the - example fully OpenGL-3.0-compliant: - - * Use vertex attribute arrays. - - * Use our own projection matrix. - - * Do not use deprecated vertex/fragment shader variables. - * progs/demos/smooth_opengl3/smooth_opengl3.c: Use GLSL shaders (still - 1.20, though). Dump GL info. - * progs/demos/smooth_opengl3/smooth_opengl3.c: Added a commandline - option for 'classic' contexts. Aesthetic changes. - * progs/demos/smooth_opengl3/smooth_opengl3.c: Use VBOs in new example. - Added a few comments. - -2009-02-14 Sven Panne - - * configure.ac, progs/demos/Makefile.am, progs/demos/smooth_opengl3, - progs/demos/smooth_opengl3/Makefile.am, - progs/demos/smooth_opengl3/smooth_opengl3.c, - progs/demos/smooth_opengl3/smooth_opengl3.dsp, - progs/demos/smooth_opengl3/smooth_opengl3Static.dsp: Initial version - of a fully OpenGL-3.0-compliant of the famous smooth.c from the Red - Book. What has been done already: - - * Explicitly request a forward-compatible 3.0 context - - * Report GL errors, if any, at a few crucial places - - * Replaced gluOrtho2D with a home-grown matrix + glLoadMatrixf - - What remains to be done: - - * Use vertex shaders and fragment shaders - - * Use vertex buffer objects - -2009-02-13 Sven Panne - - * README: Mention autogen.sh - * src/freeglut_window.c: Synchronized WGL behavior with GLX - implementation: Do not call the new context creation API when it is - not required. Fixing a bug in a previous commit on the way... :-} - * src/freeglut_internal.h, src/freeglut_window.c: More refactorings: - Removed useless return value. Simplified control structures even more. - * src/freeglut_window.c: Refactoring only (replace nested conditionals - with guard clauses), making the normal path of execution much clearer. - * configure.ac: We have added some API entries, so we have to update - library version information conforming to - http://www.gnu.org/software/libtool/manual/html_node/Updating-version-info.html - * autogen.sh, configure.ac: Avoid CR\LF vs. LF troubles when using - TortoiseSVN plus Cygwin. - * .: Ignore config.lt, too. It seems to be generated by recent - autotools. - -2009-02-13 John F. Fay - - * src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_window.c: - Adding OpenGL 3.0 context detection for Windows per e-mail from Paul - Martz dated Thu 2/12/2009 9:03 AM (more or less) - -2009-02-03 John F. Fay - - * README: Adding some instructions about building on a *nix platform to - the 'README' file - * include/GL/freeglut_ext.h, src/freeglut_main.c: Removing some errant - tabs, fixing ticket #2137721, and adding special-key capability to - recognizing the NumLock, Delete, and keypad '5' keys - * src/freeglut_joystick.c, src/freeglut_main.c: A further response to - bug [ 1804696 ] Warnings when building on OpenSolaris -- per comment - by Nigel Stewart on that bug report - -2009-02-02 John F. Fay - - * src/freeglut_internal.h, src/freeglut_joystick.c: Fixing bug [ 1804696 - ] Warnings when building on OpenSolaris as updated 2/2/09 by Nigel - Stewart - -2008-11-20 Sven Panne - - * src/freeglut_glutfont_definitions.c, src/freeglut_internal.h: Yet - another try to make the font definitions compile on all platforms. - -2008-11-17 John F. Fay - - * src/freeglut_glutfont_definitions.c, src/freeglut_internal.h: Allowing - "freeglut" to compile without errors under *nix. Before this, there - were problems with conflicting definitions of the GLUT font - definitions. - -2008-11-06 Sven Panne - - * src/freeglut_main.c: Ooops, forgot one file in the previous commit - (fix for "--without-x"). - * configure.ac: Use autoconf to detect gettimeofday instead of broken - #ifdef. - - Note: freeglut compiles under Cygwin now, even when "--without-x" is - used for configuration. - * configure.ac: We need to link against winmm under Cygwin when - --without-x is used to get timeBeginPeriod, timeEndPeriod, joyGetPosEx - and joyGetDevCaps. - * src/freeglut_window.c: Fixed first parameter of CreateWindow call, - used for multisampling on Windows. It compiles, but it is otherwise - untested. - -2008-11-05 Sven Panne - - * src/freeglut_misc.c: Be conservative about the presence of - GL_TABLE_TOO_LARGE. - * src/freeglut_glutfont_definitions.c, src/freeglut_stroke_mono_roman.c, - src/freeglut_stroke_roman.c: freeglut_internal.h needs some GL types, - but it is not self-contained. TODO: Move freeglut.h #include into - freeglut_internal.h itself? - * src/freeglut_window.c: Removed the annoying "Unable to create direct - context rendering..." warning, it served no real purpose, and on some - platforms there simply is no such thing as a direct context. - * progs/demos/CallbackMaker, progs/demos/Fractals, - progs/demos/Fractals_random, progs/demos/Lorenz, progs/demos/One, - progs/demos/shapes: Ignore *.exe - * src/freeglut_ext.c: Handle new glutInitContext* API entries in - glutGetProcAddress - * src/freeglut_internal.h: Make freeglut compile under Cygwin, which has - an ancient GLX header - -2008-11-02 Sven Panne - - * include/GL/freeglut_ext.h, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_state.c, src/freeglut_window.c: - Added OpenGL 3.0 context creation API entries - - glutInitContextVersion, glutInitContextFlags - - and their related constants - - GLUT_INIT_MAJOR_VERSION GLUT_INIT_MINOR_VERSION GLUT_INIT_FLAGS - - GLUT_DEBUG GLUT_FORWARD_COMPATIBLE - - Note that this works with GLX only currently, the glutInitContext* API - entries have no effect for WGL yet. - - TODO: Centralize the context creation code for WGL (the harder part) - and use the new wglCreateContextAttribsARB API entry (the easy part, - re-use most of the GLX code). - * src/freeglut_window.c: Refactored GLX context creation into a single - function, centralizing things to be changed for OpenGL 3.0 context - creation and removing some cut-n-paste. - * src/freeglut_ext.c, src/freeglut_internal.h: Make a - wgl/glXGetProcAddress abstraction available internally. We will need - this to get the new context creation function. - * src/freeglut_misc.c: Do not depend on GLU, it will vanish in the - future, at least in its current form. - * src/freeglut_internal.h: Removed superfluous #includes. - * configure.ac: Fix for bug #1709675 ("probably not be so - ISO-conformant"): The C compiler flag -Werror is not used by default - anymore, a separate configure flag --enable-warnings-as-errors has - been introduced for this purpose, which is off by default. - * configure.ac: Added AM_PROG_CC_C_O to configure.ac, removing a warning - during autogen.sh. This flag seems to be necessary for per-target - flags (used in demo programs) nowadays. - -2008-07-21 John F. Fay - - * configure.ac, src/Makefile.am: Implementing a patch from Jocelyn - Frechot (thank you, Jocelyn) that "should enable the XInput extension - management with the autotools." See e-mail of Sun 7/20/2008 12:01 PM. - -2008-07-10 John F. Fay - - * src/freeglut_ext.c: Adding "glutExit" to the functions in - "fghGetProcAddress" in accordance with an e-mail from Jocelyn Frechot - dated Tue 7/8/2008 12:26 PM - -2008-04-05 John F. Fay - - * src/freeglut_main.c: Adding "SC_MONITORPOWER" and other new options to - the "wParam" option list (e-mail from Ron Larkin, 3/17/08, 11:00 AM) - -2007-12-02 John F. Fay - - * include/GL/freeglut_ext.h, src/freeglut_display.c, src/freeglut_ext.c, - src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_window.c: Adding - "glutFullScreenToggle" for X11 -- still needs implementation in - Windows (e-mail by Jocelyn Frechot, Sun 11/25/2007 11:29 AM) - -2007-12-01 John F. Fay - - * src/freeglut_window.c: Fixing the window position for asynchronous X11 - implementations (e-mail by Jocelyn Frechot, Sun 11/25/2007 11:29 AM) - -2007-11-26 John F. Fay - - * progs/demos/Fractals/fractals.c: Making a demo program that uses - "glutMainLoopEvent" - -2007-11-12 John F. Fay - - * include/GL/freeglut_ext.h, src/freeglut_ext.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_state.c, - src/freeglut_structure.c, src/freeglut_window.c: Implementing Jocelyn - Frechot's changes -- see e-mail of Thursday, 11/8/2007 9:12 AM. - -2007-10-02 John F. Fay - - * src/freeglut_joystick.c: Removing more Win64 build warnings from - joystick code - -2007-09-30 John F. Fay - - * src/freeglut_main.c: Removing the final compiler warning when building - on Win75 -- thank you, Antonio Mattos. - -2007-09-29 John F. Fay - - * src/freeglut_cursor.c: Removing the remaining compiler warnings from - the cursor code, thanks to Antonio Mattos of Brazil. The double - type-casting is needed because of a bug in the new MSVC; there is a - discussion on the web on this subject. - -2007-09-25 John F. Fay - - * src/freeglut_cursor.c: Changing the cursor definition macro for newer - versions of MSVC -- thanks to "Mattos" of Brazil - * src/freeglut_window.c: More changes for Jocelyn Frechot's - multisampling changes. The library builds now. It still needs some - testing with sample cases under X11. - -2007-09-23 John F. Fay - - * src/freeglut_window.c: Fixing a remaining bug in the multisampling - change ... there may be more ... - -2007-09-22 John F. Fay - - * src/freeglut_internal.h, src/freeglut_state.c, - src/freeglut_structure.c, src/freeglut_window.c: Putting in Jocelyn - Frechot's X11 visual context changes. THIS WILL BREAK THE BUILD as I - am unable to test it on a Linux machine here. Somebody please test it - for me. - -2007-09-21 John F. Fay - - * src/freeglut_init.c, src/freeglut_main.c, src/freeglut_misc.c: - Removing compiler warnings in MSVC 2005 build - * include/GL/freeglut_ext.h, src/freeglut_init.c: Implementing Larry - Ramey's "glutExit" feature (see e-mails from him on 11/9/05, 6/28/06) - -2007-09-19 John F. Fay - - * include/GL/freeglut_std.h, src/freeglut_window.c: Implementing first - part of Windows version of "GLUT_CAPTIONLESS" and "GLUT_BORDERLESS" - per feature request "[ 1197016 ] need GLUT_CAPTIONLESS window option". - Needs more work; menus are slightly mispositioned, X11 version does - not support it, banner appears at beginning but disappears on window - resize. But this is a start. - * src/freeglut_main.c: Fixing Linux key-repeat mode bug reported in "[ - 1796845 ] Keyboard events are lost when key repeat is enabled." - * src/freeglut_joystick.c: Fixing a build error on SuSE described in bug - report "[ 1792047 ] freeglut_joystick.c error" - -2007-09-18 John F. Fay - - * src/freeglut_window.c: Implementing feature request "[ 947118 ] Popup - menu is hidden under the TOPMOST window" - * src/freeglut_menu.c: Adding Takeshi Nishimura's Feature Request "[ - 1045202 ] Cope with a menu with many items" -- sorry it took so long. - * src/freeglut_window.c: Addressing Feature Request #1307049 that - "freeglut" should return 0 if "glutGetWindow" is called without a - prior call to "glutInit", rather than terminating on error. - * freeglut.dep, freeglut.mak, freeglut_static.dep, freeglut_static.mak: - Added Windows "nmake" Makefiles and dependency files for the two - "freeglut" projects in accordance with Feature Request #1454543 - -2007-09-16 John F. Fay - - * src/freeglut_window.c: Fixing bug #1688954, submitted in Marcy '07. I - changed "FREEGLUT" to _T("FREEGLUT") and nothing changed on my Windows - XP system. If this will allow it to work on Vista, then in it goes. - * src/freeglut_gamemode.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_structure.c, src/freeglut_window.c: - Fixing bug report #1052151 from October 2004. - -2006-11-28 John F. Fay - - * FrequentlyAskedQuestions: Adding a Frequently Asked Questions file - -2006-09-28 Joe Krahn - - * src/freeglut_state.c, src/freeglut_window.c: Removed incorrect comment - about internal WGL/ARB definitions. I actually had put those comments - in because I had meant to go back and re-check the WGL extension. But, - maybe locally defined extensions should be kept in a separate include - file? - -2006-09-27 Joe Krahn - - * freeglut.dsp, freeglut.dsw, freeglut_static.dsp, - progs/demos/CallbackMaker/CallbackMaker.dsp, - progs/demos/CallbackMaker/CallbackMakerStatic.dsp, - progs/demos/Fractals/Fractals.dsp, - progs/demos/Fractals/FractalsStatic.dsp, - progs/demos/Fractals_random/Fractals_random.dsp, - progs/demos/Fractals_random/Fractals_randomStatic.dsp, - progs/demos/Lorenz/lorenz.dsp, progs/demos/Lorenz/lorenzStatic.dsp, - progs/demos/One/one.dsp, progs/demos/One/oneStatic.dsp, - progs/demos/demos.dsw, progs/demos/shapes/shapes.dsp, - progs/demos/shapes/shapesStatic.dsp: Undo svn:eol-style=CR/LF for MSVC - project files. - -2006-09-26 Joe Krahn - - * include/GL/freeglut_std.h, src/freeglut_joystick.c, - src/freeglut_state.c, src/freeglut_window.c: Added - FREEGLUT_LIB_PRAGMAS to control MS library pragmas, and fixed NOMINMAX - define. - * freeglut.dsp, freeglut.dsw, freeglut_static.dsp, - progs/demos/CallbackMaker/CallbackMaker.dsp, - progs/demos/CallbackMaker/CallbackMakerStatic.dsp, - progs/demos/Fractals/Fractals.dsp, - progs/demos/Fractals/FractalsStatic.dsp, - progs/demos/Fractals_random/Fractals_random.dsp, - progs/demos/Fractals_random/Fractals_randomStatic.dsp, - progs/demos/Lorenz/lorenz.dsp, progs/demos/Lorenz/lorenzStatic.dsp, - progs/demos/One/one.dsp, progs/demos/One/oneStatic.dsp, - progs/demos/demos.dsw, progs/demos/shapes/shapes.dsp, - progs/demos/shapes/shapesStatic.dsp: Added svn:eol-style=CRLF property - to MSVC project/workspace files. - -2006-09-25 John F. Fay - - * src/freeglut_window.c: Fixing a typo bug in the display mode checking - (removing multisampling if it is not supported) - -2006-09-25 Joe Krahn - - * src/freeglut_state.c: Fixed a small mistake in the previous commit for - glutGet. - * src/freeglut_state.c: Added proper support for number of mouse buttons - in X11, and a keyboard in Windows CE. Also, several glutGet results - returning TRUE/FALSE were changed to 1/0, because the actual return - type is int (although they are technically the same in practice). - -2006-09-24 Joe Krahn - - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c: - Converted Time counter to a uniform unsigned long it value. The - initialized flag was redundant with the main Initialized flag, and - conversion of timeval to milliseconds in POSIX makes the code cleaner. - Timeval has a longer range, but the time value is already limited by - the GLUT API. - -2006-09-23 Joe Krahn - - * src/freeglut_gamemode.c, src/freeglut_internal.h, src/freeglut_main.c: - Removed WindowState.IsGameMode; it is redundant with - Structure.GameModeWindow - -2006-09-21 John F. Fay - - * src/freeglut_state.c, src/freeglut_window.c: Adding support for the - multisampling query per bug report 1274193 - * ChangeLog, src/freeglut_main.c: Fixing Bug #1398196 - Windows message - argument - -2006-09-21 Joe Krahn - - * src/freeglut_cursor.c: test (comment edited) - -2006-09-21 John F. Fay - - * ChangeLog, src/freeglut_init.c: Adding temporary fix to - "glutInitDisplayString" to ignore numerical assignments - * ChangeLog, src/freeglut_window.c: Adding multisampling to *nix and - Windows; also some other pixel format enhancements to Windows - * ChangeLog, progs/demos/CallbackMaker/CallbackMaker.c: Enhancing the - "CallbackMaker" demo - * ChangeLog, src/freeglut_cursor.c, src/freeglut_display.c, - src/freeglut_ext.c, src/freeglut_gamemode.c, - src/freeglut_glutfont_definitions.c, src/freeglut_init.c, - src/freeglut_input_devices.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_misc.c, src/freeglut_state.c, src/freeglut_teapot.c, - src/freeglut_teapot_data.h, src/freeglut_window.c: Joe Krahn's changes - to "TARGET_HOST" defined constants - * ChangeLog, src/freeglut_internal.h, src/freeglut_joystick.c, - src/freeglut_main.c, src/freeglut_window.c: Fixing two minor bugs, - adding comments - * ChangeLog, src/freeglut_gamemode.c, src/freeglut_internal.h, - src/freeglut_menu.c, src/freeglut_state.c, src/freeglut_structure.c: - Changing "GameMode" to "GameModeWindow ... and testing whether I can - get to SVN directly - -2006-08-05 Sven Panne - - * ChangeLog, progs/demos/Fractals/fractals.c, - progs/demos/Fractals_random/fractals_random.c, - progs/demos/Lorenz/lorenz.c: Check fgets for return value to avoid - warnings. - * freeglut.spec: Fixed typo in date - * freeglut.spec: Updated build requirements for SuSE 10.1 - -2005-10-12 Sven Panne - - * ., .cvsignore: Ooops, forgot to ingore INSTALL and install-sh in - previous commit... - * ChangeLog, include/GL/freeglut_ext.h, include/GL/freeglut_std.h: Moved - GLUT_INIT_STATE to , it is not part of the original - GLUT. - * ., .cvsignore, ChangeLog, INSTALL, autogen.sh, install-sh, - mkinstalldirs: Simply use autoreconf in autogen.sh, it is much simpler - and the recommended way in the autotools documentation. Removed - INSTALL, install-sh and mkinstalldirs, they are either unused or - automatically generated by autogen.sh. - -2005-10-06 John F. Fay - - * include/GL/freeglut_ext.h: Allowing compilation of Windows version by - removing DLL decorations from deprecated joystick interface extensions - * src/freeglut_window.c: Implementing Stereo in Windows - -2005-09-07 Sven Panne - - * ChangeLog, src/Makefile.am: Use target-specific *_CPPFLAGS, not the - deprecated INCLUDES. - * ChangeLog, autogen.sh: Use -Wall for automake to catch some buglets, - deprecated stuff, etc. - -2005-09-04 Sven Panne - - * ChangeLog, autogen.sh: Silenced autogen.sh - -2005-08-31 John F. Fay - - * freeglut.rc, freeglut.tgt, freeglut.wpj, freeglut_static.tgt: - Necessary files for Open Watcom support - * src/freeglut_internal.h: Adding Open Watcom support - * ChangeLog, README.win32: Documenting support for Open Watcom - * include/GL/freeglut_std.h: Implementing WATCOM support - -2005-07-14 Sven Panne - - * src/freeglut_input_devices.c: Nuked useless bit-fiddling, pointed out - by John. I was a bit too quick to cut-n-paste the cfmakeraw() - definition into our code... :-] - * ChangeLog, src/freeglutdll.def: Synched the DLL definitions with - reality. - * ChangeLog, src/freeglut_cursor.c: Fixed the GLUT_CURSOR_INHERIT logic - once again... - - Note that this commit is untested, but at least it looks better than - before. We really a need a cursor test program. - -2005-07-13 John F. Fay - - * src/freeglut_cursor.c: Fixing a cursor bug in \"GLUT_CURSOR_INHERIT\" - -2005-07-13 Sven Panne - - * ChangeLog, configure.ac: Improve autoconf magic: To detect headers - like GL/gl.h, it might be necessary to temporarily use the X11 flags - found by AC_PATH_XTRA. - * ChangeLog, src/freeglut_joystick.c: Avoid gcc warnings for some - joystick code (e.g. on Solaris). - * src/freeglut_input_devices.c: Tiny cleanup only... - * ChangeLog, src/freeglut_input_devices.c: Solaris doesn't have - cfmakeraw, but it is only a convenience function for some - bit-fiddling, anyway. - -2005-07-08 Sven Panne - - * ChangeLog, include/GL/freeglut_ext.h, src/freeglut_ext.c, - src/freeglut_internal.h: Made all the "glutJoystickXXX" functions part - of the freeglut extensions. If this is not what we want, we can easily - #ifdef this away again... - * ChangeLog, src/freeglut_geometry.c: Made a few global arrays "static", - avoiding namespace pollution. The only externally visible symbols - should either be from the GLUT API ("glutXXX") or internal freeglut - entities ("fgYYY"). Reformatted things a bit on the way. - -2005-07-06 Sven Panne - - * ChangeLog, src/freeglut_main.c: We only have pending redisplay - callbacks when the window wants to be redisplayed *and* it is visible. - Otherwise we won't redraw, anyway, and immediately discover that - there's still something to do, etc. etc., leading to 100% CPU load. - * ChangeLog, src/freeglut_main.c: Removed redundant code. - * ChangeLog, src/freeglut_init.c: X11 only: Destroy the global menu - rendering context when deinitializing. The visual/context handling for - menus is still rather obscure, though... - * progs/demos/Lorenz/lorenz.c: Reverting previous commit: %lf is a valid - format specifier for the scanf familiy of functions only, not for the - printf family. - -2005-07-05 John F. Fay - - * src/freeglut_main.c: Implementing the new menu context variable names - in Windows ... - * src/freeglut_internal.h: Changing a comment ... nothing big. - * progs/demos/Lorenz/lorenz.c: Fixing output formats ... nothing big - -2005-07-05 Sven Panne - - * ChangeLog, src/freeglut_state.c, src/freeglut_window.c: X11 only: Free - XVisualInfo structures when they are not needed anymore, fixing a - space leak. Not perfect for menus yet... - * src/freeglut_internal.h, src/freeglut_window.c: Tiny change to make - grep's life easier: Rename the fields of the menu context. Not really - worth a ChangeLog entry... - - IMHO it looks like we could kill the whole MenuContext stuff, it is of - no use currently and some things look strange, like e.g. having a - context per menu. The latter is not OK when a menu is attached to - multiple windows. - -2005-07-02 Sven Panne - - * ChangeLog, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_main.c, src/freeglut_state.c: Handle modifiers in - MotionNotify events, too. This fixes bug #1227920 (glutGetModifiers - not set/allowed in mouse callbacks). In addition, some related cleanup - has been done. - * ChangeLog, src/freeglut_joystick.c: Partial fixes for bug #1218900 - (freeglut-2.4.0 on FreeBSD). - * ChangeLog, Makefile.am: Remove wrong "execute" bits when creating a - distribution. This fixes bug #961938 (Executable bit set on non exe - files). - * configure.ac: Tiny cosmetic change, not worth a ChangeLog entry. - * ChangeLog: Added John's missing ChangeLog entry. - -2005-07-01 John F. Fay - - * freeglut.dsp, freeglut_static.dsp: Adding the - \"freeglut_input_devices.c\" file to the Windows project files - -2005-07-01 Sven Panne - - * ChangeLog, configure.ac, src/Makefile.am: Some steps toward - compilation under MinGW. Note that there are still linking troubles - for the examples. - * src/freeglut_internal.h: Fixed #ifdef for ChangeDisplaySettingsEx - prototype. - * ChangeLog, src/freeglut_input_devices.c: Silenced a signed/unsigned - mismatched via a cast. - * ChangeLog, src/freeglut_internal.h: MinGW is lacking a prototype for - ChangeDisplaySettingsEx, so supply one in this case. Note that this - should better be handled via autoconf than via cpp. - * ChangeLog, Makefile.am: Removed redundant files from EXTRA_DIST. - -2005-06-30 Sven Panne - - * src/freeglut_main.c: Ooops, forgot to set the current window in the - last commit. I'll have to test better before comitting... :-] - * ChangeLog, src/freeglut_main.c: When a window is iconified, only an - UnmapNotify is sent, not a VisibilityNotify, so we have to handle the - window status callback in the former case, too. This fixes bug #763442 - (Call the visibility callback when minimizing a window). - * ChangeLog, src/freeglut_main.c: Cleaned up - CreateNotify/ConfigureNotify handling. - * src/freeglut_main.c: Ooops, forgot to dump a few fields in some - events... - * ChangeLog, configure.ac, src/freeglut_main.c: Added --enable-debug - configure flag. Currently it only turns on X11 event tracing, but in - the future we could add more. - - Note: freeglut_main.c could benefit from some restructuring to clean - up the #ifdefs and cut down the sizes of some extremely long - functions. - * ., .cvsignore: Ignore files generated during RPM build. - -2005-06-23 John F. Fay - - * doc/freeglut_user_interface.html: Fixing the documentation regarding - callbacks and geometry shape additions - * progs/demos/Fractals/Fractals.dsp, - progs/demos/Fractals/FractalsStatic.dsp, - progs/demos/Fractals_random/Fractals_random.dsp, - progs/demos/Fractals_random/Fractals_randomStatic.dsp, - progs/demos/Lorenz/lorenz.dsp, progs/demos/Lorenz/lorenzStatic.dsp, - progs/demos/One/one.dsp, progs/demos/One/oneStatic.dsp, - progs/demos/shapes/shapes.dsp, progs/demos/shapes/shapesStatic.dsp: - Adding separate static library and DLL demonstration program projects - * progs/demos/CallbackMaker/CallbackMaker.dsp, - progs/demos/CallbackMaker/CallbackMakerStatic.dsp: Adding separate - demo program projects for static library and DLL versions - * progs/demos/demos.dsw: Adding support for separate static library demo - programs - * ChangeLog: Keeping current ... - * src/freeglut_input_devices.c: New file for Joe Krahn\'s dials input - device - -2005-06-22 John F. Fay - - * src/freeglut_geometry.c: Fixing a bug in the Sierpinski sponge code - that made the application crash if called with number of levels < 0 - * src/Makefile.am, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_state.c: Joe Krahn\'s input - (dials) device implementation. - -2005-06-14 Sven Panne - - * ChangeLog, freeglut.spec: Added an RPM spec file based on the one - shipped with SuSE 9.3. - -2005-06-10 James Jones - - * ChangeLog, configure.ac: Release of 2.4.0 - -2005-06-02 James Jones - - * ChangeLog, configure.ac, src/freeglut_internal.h: 2.4.0 Release - Candiate 5 - -2005-05-26 John F. Fay - - * src/freeglut_main.c: Takeshi Nishimura\'s changes to make the Windows - mouse wheel/button mapping match that of X11; also fixing a typo in - the associated mouse callback argument list - -2005-05-26 James Jones - - * ChangeLog, configure.ac: 2.4.0 RC4 updates - * src/freeglut_main.c: Fix joysticks so they are polled by their timer - correctly. (Dan Torop) - -2005-05-24 Sven Panne - - * ChangeLog, src/freeglut_gamemode.c: The original glutEnterGameMode() - returns the window id of the game mode window, not TRUE/FALSE, we - should better follow that. Note that most man pages claim that this - function returns void, but this is definitely wrong. - * ChangeLog, src/freeglut_gamemode.c, src/freeglut_main.c: When - switching to game mode under X11, no ConfigureNotify event will happen - and consequently no reshape callback will ever be called via the - normal mechanism. To fix this, note that the game mode window needs to - be resized and handle this before redraw. - -2005-05-22 Sven Panne - - * ChangeLog, src/freeglut_ext.c: Guarantee consistency of - names/addresses in glutGetProcAddress by using a macro. In addition, - this avoids any non-constant initializer issues which might be raised - when using WinDoze GCCs. The additional code overhead is negligible, - at least for x86 (a few instructions per name). - * ChangeLog, configure.ac: Lowering minimum autoconf version required. - -2005-05-20 James Jones - - * ChangeLog: Tag for 2.4.0 RC3 - * ChangeLog: Notes - -2005-05-19 Sven Panne - - * src/freeglut_gamemode.c: Fixed SF bug #1204256: Off-by-one error in - X11 mode switching. The code which changes the X11 video mode has an - off-by-one error, resulting in a wrong mode or segfault. I've - refactored the code slighty to make it hopefully clearer what's going - on and corrected some #ifdefs on the way. Now at least the "One" demo - works for me. - * src/freeglut_window.c: Fixed SF bug #1204261: Mini space leak when - creating an X11 window (X11 text property values have to be freed - after using them) - -2005-05-18 John F. Fay - - * src/freeglut_gamemode.c: Removing a C++ comment and simplifying the - string handling - -2005-05-17 John F. Fay - - * src/freeglut_gamemode.c: Misiek\'s changes to fix Game Mode--getting - display settings under Windows and setting the window size correctly - on all operating systems. - -2005-05-16 James Jones - - * ChangeLog: Mark for 2.4 RC 2 - -2005-05-13 John F. Fay - - * src/freeglut_menu.c: Removing two unused variables so this will - compile on Linux with -Wall - -2005-05-12 John F. Fay - - * ChangeLog: Updating the ChangeLog ... - * src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_menu.c: - Takeshi Nishimura\'s menu changes--menus should now work properly. Use - the GLUT \"GLUTmech\" and \"walker\" demos to test them. - * src/freeglut_main.c: Takeshi Nishimura\'s menu fixes - -2005-05-09 James Jones - - * ChangeLog, Makefile.am, configure.ac: Freeglut 2.4.0 Release Candidate - 1 - -2005-05-06 Sven Panne - - * ChangeLog, progs/demos/shapes/shapes.c: Fixed a cuboctahedron vertex, - implemented wire mode for that shape. - * ChangeLog, progs/demos/shapes/shapes.c, src/freeglut_internal.h, - src/freeglut_main.c: Necessary compilation fixes for newer GCCs (e.g. - 3.3.5, 4.0). Side effect: The shapes demo has a new 'i' key now. - -2005-05-05 John F. Fay - - * ChangeLog: Updated the ChangeLog again ... - -2005-05-04 John F. Fay - - * progs/demos/shapes/shapes.c: Replacing the original \"freeglut\" - \"shapes\" demo with the much snazzier OpenGLUT \"shapes\" demo. Many - thanks to the OpenGLUT community for writing it. The copyright notice - stays in the program. - * src/freeglut_main.c: Changing hard-coded constant (number of mouse - buttons = 3) to a \"glutDeviceGet\" call in two places under X11 - * src/freeglutdll.def: Changing the version number from 2.0 to 2.4.0 ... - do we need to add any new interface functions? - * src/freeglut_internal.h: Removing an unused variable - * src/freeglut_window.c: Adding a comment on why \"freeglut\" differs - from GLUT in a particular way - * src/freeglut_joystick.c: Removing an unused function - * src/freeglut_init.c: Making the \"key repeat\" initialization - consistent with the rest of its usage; also making the - \"initDisplayString\" ever-so-slightly mroe general - * ChangeLog, TODO, src/freeglut_window.c: Updating the ChangeLog and - TODO files in preparation for the upcoming release - -2005-04-29 John F. Fay - - * src/freeglut_joystick.c: Adding a \"TODO\" comment about dynamically - allocating joystick buttonj and axis arrays - * ChangeLog: Updationg the ChangeLog ... - -2005-04-28 John F. Fay - - * README.win32: Adding a \"README.Win32\" file with instructions on how - to install \"freeglut\" under Windows. - * src/freeglut_main.c: Adding Window Exit event handling to the Windows - code; also adding a note that eventually it would be good to handle - the Window Entry event - -2005-04-27 John F. Fay - - * src/freeglut_window.c: Fixing bug [ 1111218 ] fullscreen not working - Better late than never. - * src/freeglut_init.c: Fixing Bug Report [ 1160442 ] - glutGet(GLUT_ELAPSED_TIME) is too granular - -2005-04-26 John F. Fay - - * src/freeglut_internal.h, src/freeglut_structure.c: Fixing the - typecasts on the callback fetches and invocations to allow - \"freeglut\" to compile with GCC 4.0 - * src/freeglut_menu.c: Fixing erroneous implementation of Takeshi\'s fix - * src/Makefile.am: Changing include path from relative to absolute to - support off-directory builds (Yuri D\'Elia, March 22, 5:59 PM) - * LISEZ_MOI: Adding \"LISEZ-MOI\", the French version of \"README\" - -2005-04-25 John F. Fay - - * ChangeLog: Updating the ChangeLog ... it seems to be something of a - stepchild if we\'re not careful. - -2005-04-22 John F. Fay - - * src/freeglut_menu.c: Yuri D\'Elia\'s changes to get the virtual - maximum screen extent instead of the actual screen size. - * src/freeglut_gamemode.c: Yuri D\'Elia\'s changes to the game mode - window - * src/freeglut_structure.c: Change a hard-coded number to a defined - constant and add some initializations - * src/freeglut_cursor.c: Removing duplicate cursor code. This and the - previous change (in freeglut_main.c) apparently got combined. - * ChangeLog: Updating the ChangeLog to reflect activity over the past - few months - * src/freeglut_callbacks.c, src/freeglut_cursor.c, - src/freeglut_display.c, src/freeglut_gamemode.c, - src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_misc.c, src/freeglut_state.c, src/freeglut_structure.c, - src/freeglut_window.c: Trying again to change \"fgStructure.Window\" - to \"fgStructure.CurrentWindow\" and \"fgStructure.Menu\" to - \"fgStructure.CurrentMenu\" for easier maintenance. - -2005-04-15 John F. Fay - - * ChangeLog: Updating the ChangeLog as a means of testing pCVSc - * src/freeglut_internal.h: Testing! - -2005-03-23 Brian Paul - - * include/GL/freeglut_ext.h: added comment about AUX flags - -2005-02-16 Brian Paul - - * src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_structure.c, src/freeglut_window.c: fixes for menus being - attached to multiple buttons/windows (John Fay) - * src/freeglut_callbacks.c: added error check (John Fay) - -2005-02-15 Brian Paul - - * src/freeglut_init.c, src/freeglut_window.c: AUX buffers for Windows - (John Fay) - -2005-02-11 Brian Paul - - * include/GL/freeglut_ext.h, src/freeglut_init.c, src/freeglut_window.c: - Aux color buffer support. Pass one of GLUT_AUX[1234] to - glutInitDisplayMode. Only implemented/tested on GLX, not Windows. - * include/GL/freeglut_ext.h, src/freeglut_ext.c, - src/freeglut_internal.h: Fix object/function pointer inconsistencies - which are a problem for gcc 3.4.2. Added GLUTproc type, returned by - glutGetProcAddress(). - -2005-01-23 Sven Panne - - * configure.ac: autoconf 2.58 is enough - * src/freeglut_callbacks.c, src/freeglut_internal.h: Stylistic change - only (added "do { ... } while( 0 )" around multi-statement macros) - * configure.ac, src/freeglut_joystick.c, src/freeglut_main.c: Testing - for errno.h is overkill. :-) - * src/freeglut_cursor.c, src/freeglut_main.c: Windows platforms only: - Merged some cursor-related code from John Fay (with minor changes) - -2005-01-05 Sven Panne - - * src/freeglut_ext.c, src/freeglut_font.c, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_window.c: Hopefully removed all - damage done by commits without merge - * ChangeLog, src/freeglut_cursor.c: Reworked the X11 part of - glutSetCursor, fixing bug #764187 (Variable mouse pointers don't work) - on the way: * Use slightly more compatible cursor shapes for - GLUT_CURSOR_RIGHT_ARROW and GLUT_CURSOR_LEFT_ARROW. * Refactored and - fixed the erroneous code for GLUT_CURSOR_NONE. * Removed the incorrect - use of XFreeCursor and use a cache of cursors instead. Cursors are - never freed now, we could do this e.g. via reference countig if this - is really needed. * Fixed error handling. * Unknown cursor types are - an error now. * Now the window state always corresponds to the wanted - cursorID, even in the case of GLUT_CURSOR_FULL_CROSSHAIR. - - NOTE: I am not sure where the cursor cache should really reside, - currently it is simply a file-local variable. - -2005-01-03 Sven Panne - - * ChangeLog, src/freeglut_gamemode.c: Fixed part of bug #926883 (Video - mode matching code, memory leaks, fullscreen), i.e. issue warnings - when XF86VidModeFOO fails. - * ChangeLog, src/freeglut_gamemode.c: (234) Fixed part of bug #926883 - (Video mode matching code, memory leaks, fullscreen): Now we first try - to get an exact mode match, ignoring the refresh rate if none could be - found. This way the X11 part and the WinDoze behave similarly. NOTE: - We still don't behave like GLUT, because it has a wider notion of - "best" match. We have to refactor and extend freeglut quite a bit to - do that. - * ChangeLog, src/freeglut_gamemode.c: Fixed part of bug #926883 (Video - mode matching code, memory leaks, fullscreen), i.e. memory leak caused - by not freeing the mode lines returned by XF86VidModeGetAllModeLines - * ChangeLog, src/freeglut_window.c: Improved error message a bit when no - suitable visual could be found (X11 only). - * configure.ac, src/freeglut_internal.h, src/freeglut_main.c: autoconf'd - vfprintf - * src/freeglut_joystick.c: Removed redundant #include - * ChangeLog, configure.ac, src/freeglut_joystick.c, src/freeglut_main.c: - autoconf'd handling and removed an unused '#include - ' - * configure.ac, src/freeglut_joystick.c, src/freeglut_main.c: autoconf'd - and handling, removing MIN/MAX macros on the - way. - * src/freeglut_internal.h: Cosmetics. - * configure.ac, src/freeglut_joystick.c: autoconf'd and - handling - * src/freeglut_internal.h, src/freeglut_joystick.c, src/freeglut_main.c: - Improved / handling as suggested by the - autoconf docs. - * configure.ac, progs/demos/Lorenz/lorenz.c, src/freeglut_internal.h, - src/freeglut_main.c: Fixed / handling as - suggested by the autoconf docs. - * src/freeglut_callbacks.c, src/freeglut_cursor.c, - src/freeglut_display.c, src/freeglut_ext.c, src/freeglut_font.c, - src/freeglut_font_data.c, src/freeglut_gamemode.c, - src/freeglut_geometry.c, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_misc.c, src/freeglut_overlay.c, src/freeglut_state.c, - src/freeglut_structure.c, src/freeglut_teapot.c, - src/freeglut_videoresize.c, src/freeglut_window.c: Moved '#include - "config.h"' to freeglut_internal.h, we will need it there soon and it - makes everything a bit shorter. - * ChangeLog: Resurrected my recent additions which were nuked by the - previous commit, adding the latest change on the way. :-( - * acconfig.h: Removed acconfig.h, it is deprecated and we don't need it. - * src/freeglut_cursor.c, src/freeglut_font.c, src/freeglut_init.c, - src/freeglut_structure.c: Make it compile again with "-Wall -pedantic - -Werror", redoing quite a few things I've fixed already a few days - ago. Have today's commits been done by copying instead of merging? :-( - -2005-01-03 James Jones - - * src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_window.c: Changes remove duplicate menu code from - "freeglut_window.c" and put it into one place in "freeglut_menu.c" - where it belongs. - John Fay - * ChangeLog: General ChangeLog Updates - * src/freeglut_callbacks.c, src/freeglut_cursor.c, - src/freeglut_display.c, src/freeglut_ext.c, src/freeglut_font.c, - src/freeglut_gamemode.c, src/freeglut_geometry.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_menu.c, src/freeglut_misc.c, src/freeglut_state.c, - src/freeglut_structure.c, src/freeglut_teapot.c, - src/freeglut_teapot_data.h, src/freeglut_window.c: Adding - initialization checking to all GLUT interface functions and removing - asserts from the rest of the code - John Fay - -2005-01-01 Sven Panne - - * ChangeLog, src/Makefile.am: Added missing files from "src" - subdirectory to dist. - * AUTHORS: Synched with project member list on SourceForge - * ChangeLog, Makefile.am, configure.ac: Modernized configure.ac a bit - and added a rule to Makefile.am to update libtool. Note that all gcc - compiler warnings are now on by default. - * ChangeLog, include/GL/freeglut_std.h, - progs/demos/CallbackMaker/CallbackMaker.c, - progs/demos/Fractals_random/fractals_random.c, - progs/demos/Lorenz/lorenz.c, progs/demos/One/one.c, - src/freeglut_cursor.c, src/freeglut_font.c, src/freeglut_init.c, - src/freeglut_teapot_data.h: Make "gcc -Wall -pedantic -Werror" happy. - * ., .cvsignore: Ignore files generated by autoscan. - * ChangeLog, INSTALL, configure.ac, configure.in: Renamed "configure.in" - to the officially preferred "configure.ac". - * stamp-h, stamp-h.in: Removed unused stamp-h* files, configure - generates them (a single stamp-h1, to be exact). - * ChangeLog, Makefile.am: Added eMbedded Visual Tools project/workspace - files to distribution. - * ., .cvsignore: Ignore distribution tar files - -2004-12-31 Sven Panne - - * ChangeLog, src/freeglut_main.c: Fixed first bug of #1064195 (two - things when using signals): Don't issue a warning about select when a - non-blocked signal was caught. This makes sense and is more compatible - with GLUT. - * ChangeLog, src/freeglut_font.c: Fixed bug #1040435 (glutBitmapString() - bug). - * ChangeLog: Alas, the ChangeLog has not the usual ChangeLog format, so - tell (X)Emacs about that fact. - * ChangeLog, src/freeglut_window.c: Fixed bug #1045054 (KeyReleaseMask - typo). - * ChangeLog, src/freeglut_state.c: Fixed bug #1087642 - (glutDeviceGet(GLUT_DEVICE_KEY_REPEAT) unimplemented). - * ChangeLog, src/freeglut_ext.c: Fixed bug #1079530 (glutGetProcAddress - and geometric objects). - * ., .cvsignore, doc, doc/.cvsignore, include, include/.cvsignore, - include/GL, include/GL/.cvsignore, progs, progs/.cvsignore, - progs/demos, progs/demos/.cvsignore, progs/demos/CallbackMaker, - progs/demos/CallbackMaker/.cvsignore, progs/demos/Fractals, - progs/demos/Fractals/.cvsignore, progs/demos/Fractals_random, - progs/demos/Fractals_random/.cvsignore, progs/demos/Lorenz, - progs/demos/Lorenz/.cvsignore, progs/demos/One, - progs/demos/One/.cvsignore, progs/demos/shapes, - progs/demos/shapes/.cvsignore, src, src/.cvsignore: Improved - ignorance. - -2004-12-17 James Jones - - * src/freeglut_cursor.c, src/freeglut_display.c, - src/freeglut_internal.h, src/freeglut_menu.c, src/freeglut_misc.c, - src/freeglut_window.c: Some assertion changes / removals from Dr. John - Fay - -2004-10-06 Brian Paul - - * src/freeglut_callbacks.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_state.c: joystick init fixes - (John Fay) - -2004-10-05 Brian Paul - - * src/freeglut_main.c: updated comments (John Fay) - * src/freeglut_init.c, src/freeglut_main.c, src/freeglut_window.c: - improved comments and mouse coord adjustments (John Fay) - * src/freeglut_init.c: more clean-ups, fixes from John Fay - -2004-09-23 Brian Paul - - * src/freeglut_font.c, src/freeglut_stroke_mono_roman.c, - src/freeglut_stroke_roman.c: font updates from John Fay - * src/freeglut_main.c: more updates from John Fay - * src/freeglut_geometry.c, src/freeglut_init.c: assorted updates from - John Fay - -2004-09-15 James Jones - - * src/freeglut_init.c: Fix to glutInit() command-line argument - compaction - Patch #1027724 from takeshi2 - -2004-09-13 Brian Paul - - * src/freeglut_callbacks.c, src/freeglut_cursor.c, - src/freeglut_gamemode.c, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_main.c, src/freeglut_state.c, - src/freeglut_window.c: more updates from John Fay - * src/freeglut_cursor.c, src/freeglut_gamemode.c, - src/freeglut_geometry.c, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_structure.c, src/freeglut_teapot.c, - src/freeglut_window.c: some function renaming, etc (John Fay) - -2004-09-10 Brian Paul - - * src/freeglut_callbacks.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_main.c: joystick updates from - John Fay - * src/freeglut_cursor.c, src/freeglut_font_data.c, - src/freeglut_gamemode.c, src/freeglut_geometry.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_menu.c, src/freeglut_misc.c, src/freeglut_state.c, - src/freeglut_stroke_mono_roman.c, src/freeglut_stroke_roman.c, - src/freeglut_structure.c, src/freeglut_teapot.c, - src/freeglut_window.c: updated comments from John Fay - -2004-08-11 James Jones - - * src/freeglut_gamemode.c, src/freeglut_internal.h, src/freeglut_main.c: - Fix a game mode crashing bug, conditional compilation for Windows, and - comment out some diagnostic prints (John Fay) - -2004-08-05 James Jones - - * src/freeglut_window.c: Implements Richard Rauch's request that the - warning about indirect rendering contexts be suppressed for his BSD - operating systems. - * src/freeglut_teapot_data.h: Someone used C++ style comments in a C - file... tisk tisk... - * src/freeglut_font.c: Bugfix for "glutBitmapString" so that it now - handles end-of-line characters properly (Richard Rauch) - * README: Incremental update ... (John Fay) - -2004-06-29 Brian Paul - - * src/freeglut_structure.c: give menu windows the title 'freeglut menu' - (helps Chromium) - * src/freeglut_window.c: move glXMakeCurrent() to after the point where - the window's title is set (helps Chromium) - -2004-05-13 James Jones - - * freeglut.dsp, freeglut_static.dsp: Add one more header file to MSVC - files - -2004-05-12 James Jones - - * include/GL/freeglut_ext.h, include/GL/freeglut_std.h: John Fay: - Direct/indirect rendering context change, fix a bug that somebody - reported (about needing "GLUT_XLIB_IMPLEMENTATION" defined) and remove - a false deprecation of a function. - * src/freeglut_main.c: John Fay: A bug fix re: behavior of the code when - the user clicks the "x" to close a window, and commentary to a message - type with fixes for a Windows event processing bug. - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_state.c, - src/freeglut_window.c: John Fay: Implement the modified logic of the - direct/indirect rendering context. - * src/freeglut_font.c, src/freeglut_font_data.c: John Fay: Implement the - upper end of the bitmapped fonts (beyond ASCII code 127). The fonts - are very close to the GLUT fonts. - * src/freeglut_teapot.c, src/freeglut_teapot_data.h: John Fay: These - files implement the teapot for WINCE. - * src/freeglut_internal.h: John Fay: Remove some obsolete defined - symbols. - * freeglut.dsp, freeglut_static.dsp: John Fay: Add - "freeglut_glutfont_definitions.c" to the build and tell it to look in - the "include" directory for the file. - -2004-03-28 Steve Baker - - * progs/demos/shapes/shapes.c: Removed unnecessary initialisation. - * progs/demos/shapes/shapes.c: Added a cullface test. - -2004-03-22 drgoldie - - * freeglut_evc4.vcp, src/freeglut_gx.cpp, src/freeglut_init.c, - src/freeglut_main.c: removed .cpp file (using LoadLibrary() instead) - removed modified gx.h file cleaned up all // and tabs - -2004-03-17 nigels - - * src/freeglut_main.c: Prevent exceeding array bounds in X11 key-repeat - detection - -2004-03-16 drgoldie - - * freeglut_evc4.vcp, src/freeglut_ext.c, src/freeglut_gx.cpp, - src/freeglut_init.c, src/freeglut_main.c, src/freeglut_misc.c, - src/freeglut_state.c, src/freeglut_window.c: replaced all tabs with 4 - spaces replaced all // with /* */ block fixed freeglut_gx.cpp file - with #if TARGET_HOST_WINCE - -2004-03-16 nigels - - * src/freeglut_init.c, src/freeglut_main.c, src/freeglut_state.c: - Whitespace conversion - tabs to 4 spaces - * src/freeglut_window.c: Revert X11 fgCloseWindow to 1.38 pre-offscreen - implementation. - -2004-03-15 drgoldie - - * freeglut_evc4.vcp, src/freeglut_gx.cpp, src/freeglut_main.c: fixed - mouse position and keyboard mapping. added c-wrapper cpp file for - GAPI. - * freeglut_evc4.vcp, freeglut_evc4.vcw, include/GL/freeglut_std.h, - src/freeglut_cursor.c, src/freeglut_display.c, src/freeglut_ext.c, - src/freeglut_gamemode.c, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_main.c, src/freeglut_menu.c, src/freeglut_misc.c, - src/freeglut_state.c, src/freeglut_window.c: added support for - WindowsCE (building on top of klimt) - -2004-03-15 nigels - - * src/freeglut_main.c: Repeat-key handling for Win32 Utilise both - FreeGLUT state and per-window filtering modes - -2004-03-15 rkrolib - - * ChangeLog: Forgot to update the ChangeLog for the benefit of those who - do not have CVS or Web access. - * configure.in, include/GL/freeglut_ext.h, src/freeglut_internal.h, - src/freeglut_window.c: Completed removal of all support for the - offscreen rendering. - - If you wish to do offscreen supportin a portable manner, you will no - longer be able to do so with current versions of freeglut. - * progs/demos/Makefile.am: Removed Makefile support for the offscreen - demo. - * progs/demos/One/one.c, progs/demos/offscreen: Removed offscreen demo - program. - -2004-03-15 nigels - - * src/Makefile.am: Provide local include path to automake for - GL/freeglut.h etc - -2004-03-14 nigels - - * src/freeglut_window.c: Code formatting tweak - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_misc.c, src/freeglut_state.c, src/freeglut_structure.c: - Resolution of X11 key-repeat handling - - glutSetKeyRepeat is global to all FreeGLUT windows in the application - glutIgnoreKeyRepeat is a per-window over-ride - - To avoid nasty global X11 state interaction, or GLUT-style event queue - filtering - the approach in FreeGLUT is to use the current key state - XQueryKeymap to detect and ignore KeyRelease/KeyPress pairs that are - auto-generated. - - See also: - http://pyopengl.sourceforge.net/documentation/manual/glutSetKeyRepeat.3GLUT.xml - http://pyopengl.sourceforge.net/documentation/manual/glutIgnoreKeyRepeat.3GLUT.xml - * src/freeglut_callbacks.c, src/freeglut_cursor.c, src/freeglut_ext.c, - src/freeglut_font.c, src/freeglut_font_data.c, - src/freeglut_gamemode.c, src/freeglut_geometry.c, - src/freeglut_glutfont_definitions.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_structure.c, src/freeglut_window.c: - Stripped out tabs and end-of-line whitespace Differences are in - whitespace only - -2004-03-10 nigels - - * src/freeglut_window.c: Resolve [ 853044 ] FreeGLUT menus on Win32 in - task bar and ALT-TAB list CreateWindowEx(WS_EX_TOOLWINDOW,...) - extended style suppresses the popup menu window from the taskbar or - ALT-TAB list - -2004-03-08 nigels - - * src/freeglut_init.c: ignoreKeyRepeat mode in FreeGLUT is TRUE by - default For compatibility with GLUT, the mode should be FALSE by - default This issues was probably undetected until now because - ignoreKeyRepeat didn't yet work. - * src/freeglut_main.c: Resolved bug #869765 glutIgnoreKeyRepeat() Fix - (Win32) glutIgnoreKeyRepeat now behaves correctly on Win32 - * src/freeglut_internal.h: C++ style comment converted to C style - comment - * src/freeglut_callbacks.c, src/freeglut_cursor.c, - src/freeglut_display.c, src/freeglut_ext.c, src/freeglut_font.c, - src/freeglut_font_data.c, src/freeglut_gamemode.c, - src/freeglut_geometry.c, src/freeglut_init.c, src/freeglut_joystick.c, - src/freeglut_main.c, src/freeglut_menu.c, src/freeglut_misc.c, - src/freeglut_overlay.c, src/freeglut_state.c, - src/freeglut_structure.c, src/freeglut_teapot.c, - src/freeglut_videoresize.c, src/freeglut_window.c: Include freeglut - header via rather than "../include/GL/freeglut.h" This - allows some additional flexibility with file layout. It should be the - responsibility of the build environment, rather than at source level. - This change tested on MSVC 6, cygwin and mingw32 gcc and Linux gcc. - -2004-03-03 nigels - - * src/freeglut_joystick.c: According to John F. Fay: The variable - "num_axes" should be "joy->num_axes". - -2004-02-20 rkrolib - - * src/freeglut_gamemode.c: Removed nonstandard #warning constructs. - Converted to XXX comments. (These are warnings about gamemode features - not working the same on some systems as on others. The semantics of - gamemode are dubious, since it was never formally documented, and has - for a long time worked in different ways on different systems, so it - is arguable that there is nothing really wrong with systems that don't - support resolution-changes.) - * src/freeglut_callbacks.c: Fixed the bug where glutDisplayFunc() was - effectively invoking glutPostRedsiplay(). This is wrong on the face of - it, and may be at root for some of the annoying "timing" issues we've - had with redisplay events being called inappopriately. - -2004-02-19 rkrolib - - * progs/demos/offscreen/Makefile.am: I had rubbed the - offscreen/Makefile.am off from the shapes demo. I forgot to remove a - couple of references to the shapes.c and shapes.dsp (.dsw?) files. - * configure.in, include/GL/freeglut_ext.h, progs/demos/Makefile.am, - progs/demos/offscreen, progs/demos/offscreen/Makefile.am, - progs/demos/offscreen/offscreen.c: Added "offscreen" demo, a very - simple program that produces an onscreen window and, upon command, - renders a similar offscreen display and writes the result to disk. - - Also, modified the build structure for UNIX_X11 to autobuild the demo. - (Not done for WIN32 at this time.) - - Also, forgot to previously commit the updated freeglut_ext.h include. - Eeep. - -2004-02-18 rkrolib - - * src/freeglut_window.c: Minor comment adjustments. - -2004-02-18 nigels - - * src/freeglut_geometry.c: Refinements to comments - -2004-02-14 rkrolib - - * src/freeglut_joystick.c: Normalized the style of the new joystick a - bit. - * src/freeglut_main.c: For some reason, the X "expose" event handler was - *directly* calling the display handler in the client. (Okay, it was - calling a function that operates on the window handle.) - - If you have any complexity to the display code, this can be painful to - watch. I can't think of a good reason to do the display immediately, - so I fixed the code to do a glutPostRedisplay(). - * src/freeglut_joystick.c: A commit on behalf of John (in turn, and in - part, also on behalf of Thierry). - - * Renamed some of the old PLIB functions to have glut* prefixes. (I - guess that there is some thought about exporting them to the API.) - - * Changes from Thierry for FreeBSD support, and/or results of testing? - - * I re-merged an XXX comment re. NetBSD/amd64 and propogated a comment - on a duplicated #define for FreeBSD. We need the GNU autoconfig stuff - to be updated by someone who groks it, now. - -2004-02-09 rkrolib - - * src/freeglut_init.c: Commit of John's tidying-up of a comment, closing - out an XXX comment that I wrote. Thanks, John. - -2004-02-07 rkrolib - - * src/freeglut_window.c: ...AND a tab snuck into my changes for - GLUT_OFFSCREEN support. Mea culpa. - * src/freeglut_joystick.c: Removed a ^M that snuck into the #pragma for - the new joystick code. - * src/freeglut_window.c: Ooops. We don't want people to be able to - create a subwindow of an offscreen window. (^& This is no longer - permitted. - - (Actually, it would be nice if it would work, but I don't think that - you can subwindow a pixmap in UNIX_X11, and assume that subwindowing - offscreen doesn't work on WIN32, either.) - * ChangeLog: Added entries for the joystick updates and the offscreen - experimental support. - * src/freeglut_joystick.c: Changed a couple of XXX comments. Added a new - one. These all the nest of #ifs in the BSD section of the new joystick - code. - * progs/demos/CallbackMaker/CallbackMaker.c: "Heavy editing" by John to - his CallbackMaker demo. - * src/freeglut_joystick.c: John added a #pragma to the joystick code for - WIN32 users. - * src/freeglut_internal.h, src/freeglut_window.c: Adds GLUT_OFFSCREEN as - a display mode option. This includes: - - * Recognizing the mode when you call glutCreateWindow(). (Offscreen - looks and acts like a top-level window in many ways.) - - * During the life of the offscreen "window", various window-management - functions are modified to respect offscreen status. - - (Excepting reshaping windows, there is not much useful interpretation - for managment of offscreen areas. Reshaping is possibly more work than - it's worth to support, and GLUT specs allow us to ignore the request.) - - * Cleanup for "offscreen" windows is a little different than for - regular windows. - - Windows still don't start up quite ideally. Offscreen windows should - probably get a reshape event, but not a display. - -2004-02-05 rkrolib - - * src/freeglut_init.c, src/freeglut_joystick.c: Big import of updated - joystick code from PLIB, with permission from Steve Baker. Most of the - adaptation done by John, with a little bit of testing and changes by - Thierry Thomas and myself. Seems to compile on: - - WIN32 Red Hat LINUX FreeBSD NetBSD/amd64 - -2004-02-01 rkrolib - - * src/freeglut_main.c: Close a bug whereby events can be delayed - arbitrarily long if they get caught between the socket and the - client-side queue on X, sometime after glutMainLoopEvent()'s loop - quits and before the sleep code is invoked. - -2004-01-16 rkrolib - - * src/freeglut_main.c: Ammended a comment on fgCheckJoystickCallback(). - * src/freeglut_main.c: Minor style normalizations to minimize the diffs - between *now* and from before John's changes. No functional changes: - - * Removed some hard TABs introduced. * Removed some - spaces-at-end-of-line introduced. * A couple of function calls were - touched up. - - I did this separately only because I don't like messing with other - people's commits. (I don't like feeling like the style police, either, - but when I mess with the commit, there's no room for reverting my - interference if it is deemed undesirable...) - * src/freeglut_main.c: Some changes from John. - - The main attraction seems to be correcting a bug with the action-on- - window-close. - -2004-01-05 nigels - - * src/freeglut_main.c, src/freeglut_window.c: Win32 glutIconifyWindow() - patch contributed by John F. Fay Restrict resize callbacks to visible - windows When iconified via glutIconifyWindow(), don't pass (0,0) to - resize callback Note that minimising the window via the menu or - minimise button is not yet resolved. - -2003-12-30 rkrolib - - * src/freeglut_main.c, src/freeglut_menu.c, src/freeglut_structure.c: - Split a few overlong lines. - - Adjusted some spacing in a few spots to be more consistant with - freeglut style. Including one unindented if() body. - - Eliminated a dead variable. - * src/freeglut_joystick.c: Changed several #ifdef's to proper #if's. - Eeek. Oook. - * src/freeglut_main.c: Hm... I thought that I committed this last night. - What's up? - - This is Nigel's modified fgSleepForEvents(), essentially. Take 2. - -2003-12-30 nigels - - * include/GL/freeglut_std.h: Three supported win32 compilation - environments: MSVC, Cygwin and MingW32 #pragma is specific to MS - compiler - * src/freeglut_internal.h: Explicitly cast function pointer to (void *) - in SET_WCB since all callbacks stored as void pointers suppress gcc - -Wall -pendantic "noise" - * src/freeglut_structure.c: Typesafe handling of temporary window - destroy callback Move assignment out of while test, scope temporary - inside loop Be explicit about assignment/comparison in if test for gcc - peace of mind suppress gcc -Wall -pendantic "noise" - * src/freeglut_internal.h: Three supported win32 compilation - environments: MSVC, Cygwin and MingW32 The windows mmsystem header - need only be included internally to freeglut strdup vs _strdup is - specific to the MS compiler - * src/freeglut_font.c: strlen expects (char *), rather than (unsigned - char *) suppress gcc -Wall -pendantic "noise" - * src/freeglut_cursor.c: Replace assignment of array to struct with - field-by-field assignment suppress gcc -Wall -pendantic "noise" - * src/freeglut_menu.c: glutBitmapString and glutBitmapLength expect - (unsigned char *) rather than (char *) suppress gcc in -Wall - -pendantic "noise" - * src/freeglut_joystick.c: Replace #ifdef WIN32 with #ifdef - TARGET_HOST_WIN32, as per FreeGLUT convention - * src/freeglut_init.c: fgState.FPSInterval is unsigned int (GLuint), - environment variable GLUT_FPS can be negative - * src/freeglut_window.c: OpenGL context is not made current on Win32 - until fgSetWindow is called. This resolves severe problems observed in - GLUI applications. - * src/freeglut_window.c: #pragma message is only understood my MS - compiler #if defined(_MSC_VER) .. #endif - * src/freeglut_state.c: Resolve bug 864978 - GLUT_OWNS_JOYSTICK - unhandled - * src/freeglut_main.c: Tidy nested if/else to suppress gcc -Wall - -pedantic noise gcc suggests explicit braces to avoid ambiguous `else' - -2003-12-25 rkrolib - - * progs/demos/CallbackMaker/CallbackMaker.c, - progs/demos/Fractals/fractals.c, - progs/demos/Fractals_random/fractals_random.c: Configuring with - "--enable-warnings" broke three demos: * CallbackMaker defined, but - did not use, the Joystick() function (a callback for the freeglut - joystick interface). I uncommented the callback-registration. I assume - that it was commented out because it was spammy. (freeglut does - joysticks by polling with a timer.) Perhaps a longer interval than - 10ms would be advisable? - - * fractals.c used strcpy() without getting the prototype. Added - #include at the top. - - * fractals_random.c had the same problem as fractals.c. - -2003-12-23 rkrolib - - * src/freeglut_main.c: Moved the window-resize code so that it happens - whenever there is a pending resize for the window, whether or not the - window is visible or in need of a redisplay. The resize is now done - before the visibility and need-to-redisplay checks. - -2003-12-22 rkrolib - - * src/freeglut_structure.c: Got rid of those int/ptr warnings on AMD64. - (The code was casting an {int} to a pointer, and later retrieving the - int by another cast. It should be safe provided that pointers are at - least as big as {int}, but GCC was giving warnings on my system, - so...fixed.) - * src/freeglut_main.c, src/freeglut_structure.c: Several - test-on-assignment cases have been converted to stop GCC from - complaining about if( a = get_a_value_for_a( ) ) type code. - -2003-12-19 rkrolib - - * src/freeglut_internal.h: Ooops, left some cruft in a comment in the - header when committing the last patch. Cleaned up. - * src/freeglut_callbacks.c, src/freeglut_internal.h, - src/freeglut_structure.c: Wrote SET_WCB() to set a window callback. - This lets us out of using the FETCH_WCB() as an lvalue (which it - shouldn't, since the value of the FETCH is cast to the correct - function-pointer type). - -2003-12-15 James Jones - - * progs/demos/Fractals/Fractals.dsp: Change the destination directory of - the debug version to "Debug" (John Fay) - -2003-12-13 James Jones - - * ChangeLog: Release 2.2.0 - -2003-12-11 rkrolib - - * src/freeglut_main.c, src/freeglut_window.c: Stripped out TABs that got - reintroduced. - - There were no changes other than replacing about 10 to 12 TABs with a - visually-suitable number of spaces, so this can probably be blindly - treated as equivalent to the previous versions of the two affected - files. - -2003-12-11 Christopher John Purnell - - * src/freeglut_internal.h, src/freeglut_structure.c: The deferred window - destruction code was destroying the windows in reverse order. This - cased a crash when the call to glutDestroyWindow() for a sub windows - was immediately followed by a call to glutDestroyWindow() for it's - parent. fgCloseWindows() would call fgDestroyWindow() for the parent - first fgDestroyWindws() would recurse over the children and then - fgCloseWindows() would call fgDestroyWindow() again for the child. - - I've replaced the single linked list with one of our two way link list - structures. I've also moved it into fgStructure because that seemed - the consistent thing to do. - - I said the the deferred windows destruction causes more problems then - it solves. - -2003-12-11 James Jones - - * progs/demos/CallbackMaker/Makefile.am: Include project file in the - distribution. - * ChangeLog: Updates for 2.2.0 RC2 - * progs/demos/demos.dsw: Add shapes to the Visual C workspace. - * progs/demos/shapes/Makefile.am: Package the visual C project file with - the distribution - * configure.in: Set the version to 2.2.0 - * src/freeglut_gamemode.c, src/freeglut_main.c, src/freeglut_window.c: - Nigel Stewart's Win32 window-sizing fix for game mode - * progs/demos/One/one.c: Disable/enable lighting in the "one.c" demo - (John Fay) - * progs/demos/CallbackMaker/CallbackMaker.dsp: Add some essentials to - get this program to compile (Nigel) - * src/freeglut_internal.h: Update to reflect 2.2.0 release - * ChangeLog: Note the release of 2.2.0 RC1 - -2003-12-11 rkrolib - - * src/freeglut_structure.c, src/freeglut_window.c: John correctly - observed that the initialization {OldHeight} and {OldWidth} in the - window structure should be done for both windows and sub-windows, and - the easiest way to do this is in the - freeglut_structure.c:fgCreateWindow() code. So, transplant one line. - -2003-12-10 rkrolib - - * src/freeglut_main.c: Commit of John's change to stop an infinite-loop - condition when the only windows left are freeglut menu windows, and - correctly calls exit() if we drop out of the main loop without having - requested any freeglut extensions to glutMainLoop() handling. - -2003-12-07 rkrolib - - * progs/demos/shapes/shapes.c, progs/demos/shapes/shapes.dsp: Two from - Nigel: - - * Updated shapes.c. I think that it's just reformatting and the - addition of some comments. - - * Added shapes.dsp, a Microsoft Visual C++ Developer Studio Project - file for building shapes on WIN32 with MSVC++. - -2003-12-03 Christopher John Purnell - - * configure.in: Added an option to enable gcc compiler warnings. I've - explicitly excluded the one about adding parentheses. - -2003-12-03 rkrolib - - * src/freeglut_main.c: Touched up several comments, pointing up things - that may be worth reflect- ing upon in the future. - * src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_window.c: - Hrm. I misunderstood the purpose of {window->State.Width} and - {...Height}. Those are *not* records of the old values, but rather of - the *desired* *new* values, hence it was inappropriate to use them in - ConfigureNotify X11 event handling. Doing so introduced some new - problems. - - So, I created OldHeight and OldWidth in the window State structure, - and *those* do what I require. - - I also stripped out the obsolete comment about getting extra/bogus - reshape events. (Though I maintain that an application should be - robust against them, freeglut should no longer generate them if the - window has not changed size since last reported.) - -2003-12-02 rkrolib - - * src/freeglut_main.c: Changed Create/ConfigureNotify handling in - UNIX_X11: - - * Just need to call GETWINDOW() once. Ooops. Heh. * Update - {window->State} with the new size of the window. * If the window-size - has NOT changed, then do NOT call the Reshape event. - * src/freeglut_main.c: Added an "XXX" earmark for post-release - contemplation. (The point is definitely in need of consideration, I - believe, but is not immediately a major bug, so I'd rather not mess - with it at the risk of postponing a release "soon".) - * src/freeglut_main.c: Ensure that the time-out for sleeping is never - negative. - * src/freeglut_main.c: Fixed a bug for UNIX_X11 where window reshape - events were causing freeglut to mark the window as *needing* a reshape - (which during general display callback handling would result in - effectively a glutReshapeWindow()). - - The code is now system-dependant. It should be abstracted to a - function, but is presently copied in two places. Sorry. - - Also, inverted the order of the associated if()/else check (in both - WIN32 and UNIX_X11 branches) since the former "else" part was a - one-line callback invocation. - - This fixes two seemingly unrelated bugs that I was seeing in UNIX_X11. - -2003-12-01 Christopher John Purnell - - * src/freeglut_internal.h: Added missing prototype for new list - function. - -2003-11-28 Christopher John Purnell - - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_structure.c: Timer optimizations. Made the list of - pendinig timers ordered. Added a free list of used timer structures. - * src/freeglut_callbacks.c: Timer optimizations. - * src/freeglut_window.c: Fixed windows compilation problem with last - update. - -2003-11-27 Christopher John Purnell - - * src/freeglut_gamemode.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_structure.c, src/freeglut_window.c: Window close fix. The - default behaiour should now be the same as with glut. - -2003-11-26 rkrolib - - * src/freeglut_init.c: Added change from Nigel to have resize events - cause redraw events in WIN32. Also slightly reshuffled comments to - deal with line-wrap issues. - -2003-11-25 rkrolib - - * src/freeglut_main.c: John reported, and fixed, a problem that recent - changes caused for the Lorenz demo (seems to be WIN32 specific). - * src/freeglut_structure.c: Update from John: Removed the freeglut hack - of decrementing the highst-window-ID marker when the highest window is - deleted. (This was a half-way measure for an idea that was decided to - be dubious in the first place.) - * configure.in, progs/demos/Makefile.am, progs/demos/shapes, - progs/demos/shapes/Makefile.am, progs/demos/shapes/shapes.c: Added a - new demo (from Nigel) showing some of the basic GLUT geometry shapes. - "shapes" is the name of the demo. - * include/GL/freeglut_ext.h, src/freeglut_geometry.c: Commit of work - from Nigel: - - Massive rework of the geometric primitive code. Includes a new - primitive (cylinder; solid and wireframe) and corresponding update to - freeglut_ext.h for the prototype. - * src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_structure.c: More work from John (sorry for - procrastinating): - - * We forgot to bump our version number in freeglut_internal.h It is - now at 2.0.2 (actually, I think that 2.1.0 might be a better choice), - which is presumably going to be our next formal release. 2.0.1 is - incorrectly identified as 2.0.0 in the header. - - * A typo in a comment has been corrected ("than"/"that"). - - * Numerous "manual" checks for callbacks are omitted now, since - INVOKE_WCB() does this for us. These were holdovers from the - pre-INVOKE_WCB() days. There may be some very subtle changes in - freeglut behavior, since freeglut used to test the callbacks a little - earlier in some cases and may have skipped some minor things (like - changes to the current window) in some special cases, otherwise. It is - not believed that any documented behavior is broken, and it is - unlikely---not to say impossible---that any extant applications will - detect the change. It is even possible that there is no external - behavioral change in freeglut. - - This also significantly simplifies some sections of code that used to - have conditional execution. "Unconditional code is simpler code" as - one of the comments used to say. - - * Lots of XXX commentary is now removed. Some of it was obsoleted by - other changes, some by changes from John. - * src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_structure.c: Change from John (I removed a couple of - spaces from a couple of lines in his freeglut_internal.h file where - they were wrapping in EMACS; otherwise, the files are exactly as he - sent them to me). - - The change unifies the WIN32 and UNIX_X11 code by defining our own - window-handle-type in freeglut_internal.h. This let John rip out some - #if garbage in several places. The result is clearer code. - - Thanks, John! - -2003-11-21 rkrolib - - * src/freeglut_font.c, src/freeglut_geometry.c, - src/freeglut_glutfont_definitions.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_misc.c, src/freeglut_state.c, src/freeglut_structure.c, - src/freeglut_window.c: Numerous style normalizations from John: - - * Convert "return( value );" to "return value;" * Normalize spacing - around semicolons. * Remove extraneous parens. * Split multi-statement - lines into multiple lines. (Mostly things of the form: "if( condition - ) return;".) - * src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_window.c: - All changes are from John, except for: (a) I re-inserted the meat of a - comment that I still feel is relavent. (b) I fixed a compile-time - error in the UNIX_X11 code where a variable is declared after - executable code in a block without creating a new sub-block for the - declaration. - - Changes from John include: (a) Style revision. (b) Changes to postpone - the handling of window resizes. - - Lots of lines were changed, but I think that thos two cover the ground - that he hit. See the diffs for details. - -2003-11-18 Christopher John Purnell - - * src/freeglut_cursor.c, src/freeglut_ext.c, src/freeglut_geometry.c, - src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_menu.c, src/freeglut_state.c, src/freeglut_structure.c: - Lots of stuff that John F. Fay pointed out. Plus some changes to - remove gcc warnings. - -2003-11-17 Christopher John Purnell - - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_structure.c: Fix spelling mistake - in a variable name. Added a comment for John Fay. Added the copyright - notice for XParseGeometry source. - -2003-11-16 Christopher John Purnell - - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_structure.c: Made Modifers variable - global as per glut classic. - * src/freeglut_init.c: Removed old unused glutInitDisplayString code. - Reformated new glutInitDisplayString and XParseGeometry code. - * src/freeglut_init.c: Use XParseGeometry for better geometry parsing. - Moved geometry parsing to after fgInitialize() so we can use the - screen size to correctly calculate negative positions in the geometry - string. Copied the code for XParseGeometry from the X11 sources for - use in the Win32 version. freeglut now passes test1 of the glut test - suite. - -2003-11-15 Christopher John Purnell - - * src/freeglut_gamemode.c, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_main.c, src/freeglut_structure.c, src/freeglut_window.c: - Removed the state variable BuildingAMenu. Instead pass a new parameter - isMenu to fgCreateWindow(). Elsewhere use window->IsMenu. - * src/freeglut_init.c: freeglut_assert_ready is going to have to go at - some point. But for now I've moved setting fgState.Initalized to - GL_FALSE. - * src/freeglut_callbacks.c, src/freeglut_display.c, - src/freeglut_gamemode.c, src/freeglut_init.c, src/freeglut_internal.h, - src/freeglut_joystick.c, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_misc.c, src/freeglut_state.c, src/freeglut_structure.c, - src/freeglut_window.c: Replace TRUE with GL_TRUE and FALSE with - GL_FALSE where the type is GLboolean. - -2003-11-15 rkrolib - - * src/freeglut_main.c, src/freeglut_menu.c: Normalized the spacing - around symbols, for the most part. Ho-hum. - -2003-11-15 Christopher John Purnell - - * src/freeglut_main.c: Added a call to fgDeinitialize() before the call - to exit() in fgError(). - -2003-11-15 rkrolib - - * src/freeglut_joystick.c: Style normalizations to the joystick code. - -2003-11-15 Christopher John Purnell - - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_state.c, src/freeglut_structure.c, src/freeglut_window.c: - Added a new state variable "Initalized". Replaced referenced to - Time.Set with this new variable where appropriate. fgElapsedTime() now - set the start time if Time.Set is false. Moved - glutGet(GLUT_ELAPSED_TIME) handling to before the assert. - -2003-11-14 rkrolib - - * src/freeglut_internal.h: Normalized the internal header's style a bit. - * src/freeglut_init.c: Plowed one more file this morning. Still just - trivial formatting issues. - - And I left alone the "INIT DISPLAY STRING PARSING" section, since it - still appears to be in flux. - * src/freeglut_font.c, src/freeglut_gamemode.c: Yet more trivial style - normalizations. - - Sorry, but that's all that I'm up to at the moment. On the plus, - excepting the font_data file (which I've been skipping), up through - this file, I think that the code style is pretty close to uniform. - * src/freeglut_font.c: Minor style corrections. - * src/freeglut_display.c: Minor spacing quibble. - * src/freeglut_cursor.c: Added a brief explanatory note to the X code - for GLUT_CURSOR_NONE. - - Corrected the indentation of a block of code. - * src/freeglut_window.c: Noted one of a few cases where we do something - immediately that could more efficiently be postponed, quite - easily---and which GLUT promises *is* to be postponed. (It is unlikely - that the difference will break any apps, but postponing should be - easy...) - - No real change, just a comment in the code. - -2003-11-11 rkrolib - - * ChangeLog: Updated ChangeLog for the day. - * include/GL/freeglut_std.h, progs/demos/One/one.c, src/freeglut_ext.c, - src/freeglut_font.c: Removal of all remaining TABs in the freeglut - *.[ch] files. (I missed a few in the "one" demo, it seems, and some - more crept back into freeglut_(ext|font).c, presumably due to my own - edits when I forgot to use the "freeglut-c-mode" in EMACS.) - * progs/demos/One/one.c: Moved glutInit*() functions ahead of - glutInit(). (This is proper use of glutInit() in general, since it - allows the user to override settings via {argc, argv} command-line - params.) - * progs/demos/One/one.c: Style normalizations: Removed CRs and hard TABs - mostly. - * ChangeLog, src/freeglut_structure.c: Corrected the numbering of the - ChangeLog (there were two (110)s). - - Added entries summarizing my commits since September or late August, - for the benefit of those lacking both CVS and web access. - * progs/demos/demos.dsw: Added CRs to the ends of all lines in MS - developer studio demos.dsw file.. - -2003-11-10 rkrolib - - * src/freeglut_main.c: John's fix for the minimize/close/maximize - controls no longer working. WIN32 expected us to pass the message on - up the chain (or do something else with it), rather than just throwing - away the event, for a certain class of events. (See the diffs for more - details.) - - The code is also slightly reformatted from what was previously in the - repository. - * freeglut.dsp, freeglut_static.dsp, - progs/demos/CallbackMaker/CallbackMaker.dsp, progs/demos/demos.dsw: A - *.dsp file for CallbackMaker in the demos. - - Plus updated *.dsp and *.dsw files to reflect the new freeglut header - file. - - NOTE: The prior version of the *.dsw file does not in fact have CRs. I - thought that it did. For consistancy, I am not putting them in in this - version, either. (At least one person said that his MSVC++ system is - happy with the current files. If there are problems, we can easily add - the CRs, but that should be a separate commit...) - * configure.in, progs/demos/CallbackMaker, - progs/demos/CallbackMaker/CallbackMaker.c, - progs/demos/CallbackMaker/Makefile.am, - progs/demos/Fractals_random/fractals_random.c, - progs/demos/Makefile.am: New demo from John: CallbackMaker. - - This demo shows the use of every callback that you can register with - freeglut, and also generates event reports so that you can see what is - happening to the program as it runs. - - Not much to look at, but both utilitarian and a practical example. - - Please double-check that I updated everything that needs to be - updated. I reran autogen.sh and ./configure, and it built okay for me. - (^& - * src/freeglut_structure.c: Hm. I thought that I already hit this file - for style normalization. Oh well... Should be no functional changes. - Should be pretty close to in-line with the style of changes that I've - been making else- where. - * src/freeglut_structure.c: Ooops. Forgot that we already had a call to - fgClearCallBacks() in the code and added a second one. I just deleted - the new one. Sorry. - * src/freeglut_structure.c: Added Nigel's suggested code to clear all - but the destroy callback early on, leaving Destroy to be cleared later - after the last possible point where it should be invoked. - * src/freeglut_menu.c: Modified the menus to refer to {border} rather - than {FREEGLUT_MENU_BORDER}, in fghDisplayMenuBox(). The local - variable was already defined and used for some purposes, so we might - as well use it throughout. It does serve to shorten and clarify the - code a bit---though I have mixed feelings about creating aliases that - way. - - Still, the variable already existed and was already used in places. - (We could even move it into the freeglut state, or make it a {const - static} value...) - - Oh well. Stuff to ponder. - * src/freeglut_cursor.c: Well, a couple of days have gone by, so I - assume that items (a) and (b) in the freeglut_cursor.c file's "Open - issues" comment are now satisfactor- ily closed. - - I also partially implemented some error-checking, using my limited - understanding of how Xlib users are supposed to do this. (No one - commented about the lack of error-checking, pro or con. Perhaps - someone will care to comment now?) - - At present, it just will print out a warning, via fgWarning(). In part - because I'm not sure what is best to do, and in part because failure - to set the cursor type is probably not a fatal problem. - -2003-11-08 Christopher John Purnell - - * progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/One/Makefile.am: Applied - Braden McDaniel's non-srcdir build patch. - -2003-11-08 rkrolib - - * src/freeglut_menu.c: A first pass over freeglut_menu.c to bring it in - line with the rest of freeglut's style. Mostly re-indenting and - splitting long lines. For those that may be concerned: No, I didn't do - any more arrangments of the form (CONST == a) rather than (a == - CONST). (^& - * progs/demos/Fractals_random/fractals_random.c: Altered the way that - the {random} value (from 0..3) is chosen. - - Previously, it picked out two adjacent bits in the result of rand(). - Unfortunately, these adjacent bits (at least on NetBSD) have a certain - amount of dependance. After a period (perhaps a thousand or so?), it - starts to repeat the pattern of those two bits. (I think; I haven't - actually tested that directly.) This presumably is locking it into a - an an N-way attractor on the "snowflake", such that if you zoom in a - ways, you will start to see some spots *quickly* are colored, and - others are *never* colored. - - What I've done now is to pick up two widely-spaced bits in a single - rand() call. (Perhaps we would do as well to pick up something like - bit #16 from two consecutive rand() calls?) These widely-spaced bits - have a lower statistical dependance on one another (if I can get away - with using that term for an arithmetic operation; though since stats - has more to do with sampling and less to do with true randomness, I - may be safe). - - The net effect, at leats on NetBSD, is far better snowflake if you - zoom in on it. - -2003-11-07 rkrolib - - * src/freeglut_main.c: From John: - - [This] implements the visible/invisible for Windows. It does NOT call - the visibility callback, though. - * src/freeglut_main.c: Stripped out the now truly extraneous {braces} in - such forms as: - - if( ... ) { INVOKE_WCB( ... ); } - - Check for compiling on WIN32. - * src/freeglut_internal.h: Adopted Eero Pajarre's suggestion of using a - do { ... } while rather than { ... } for the INVOKE_WCB() macro. This - lets it be used "more like a function", in that: - - if( ... ) INVOKE_WCB( ... ); else ... - - ...is now legal. - * src/freeglut_main.c: Pure code janitoring: Shuffled the order of some - of the case statements in the UNIX_X11 X event processing loop. (In - general, it's nice to have case statements sorted, especially when you - have a *huge* switch statement like this. That makes it easier to find - the one that you're looking for, and to see if a certain case is - defined...) - * src/freeglut_main.c: Combined EnterNotify and LeaveNotify event - processing in the UNIX_X11 event loop. - * src/freeglut_main.c: Added ReparentNotify case to UNIX_X11 event loop, - to catch the extraneous ReparentNotify event types (type 21). - * src/freeglut_internal.h, src/freeglut_structure.c: Oh well, I might as - well add the call to clear callbacks on window destruction. Also - renamed the function to do this: fgClearCallBacks(). Ho-hum. - * src/freeglut_internal.h, src/freeglut_structure.c: Added - fgInitCallBacks() to freeglut_structure.c. (The function takes an - {SFG_Window *}.) Added prototype to freeglut_internal.h. Added use of - the function to the window initialization. (Don't count on calloc(), - which sets all bits to 0.) - * src/freeglut_gamemode.c: Style normalization; removal of - say-nothing-useful comments. - * src/freeglut_font.c: Normalized the style of freeglut_font.c No - substantial alterations. - * src/freeglut_ext.c: Somewhat normalized the style of this file. - - Also moved the "glutMouseWheelFunc" extension down into the - "extensions" part of the table. (Purely internal organization. It will - still be found.) - * src/freeglut_display.c: Further normalization of the code's style. No - substantial changes. - * src/freeglut_cursor.c: Split one last overlong line in - freeglut_cursor.c. - * src/freeglut_cursor.c: Added GLUT_CURSOR_NONE support in UNIX_X11 - (well, NetBSD; you lot need to try it on others; (^&). - - Deallocated some resources that we are creating. VERY slight memory - leak, but plugged now. - - These two complete the first two "Open issues" ( (a) and (b) ). The - first one also completes X support for glutSetCursor(). If others can - verify, we can fully demote the outstanding bug over this to - WIN32-specific. - - I'll delete the dead Open issues and re-letter the others if someone - will cross-check me. Or if no one says anything in a day or two. (^& - * src/freeglut_cursor.c: Further normalized the style of the cursor - code. - * src/freeglut_callbacks.c: Slight style improvements. Two rules of - thumb that are almost always good to apply: - - * Don't write a == CONST. Instead, write CONST == a. Or, more - generally (in C like languages): Avoid putting an lvalue on the - left-hand side of an == comparison. (For consistancy, I try to avoid - lvalues on the left- hand side of any comparison---but == is the most - notorious.) - - (An "lvalue" is a value that can safely go on the left side of an "=" - assignment, of course. (^&) - - * Do not write if( !condition ) return; other_thing; return; - - (See page 18 of K&P's _The Elements of Programming Style_.) - - Instead, it is better to just write: - - if( condition ) other_thing; return; - - There are times when sacrificing structured programming (e.g., via - multiple return statements) is okay. But, here, there is no apparent - gain---indeed, there seems only loss---in the non-structured code. - * src/freeglut_main.c: Grr. Forgot to enable the "freeglut" C - programming mode in EMACS, and had a few TABs in the last commit. This - fixes that. Sorry. - * src/freeglut_main.c: Minor corrections to the UNIX_X11 mouse-wheel - support. In part this reflects that {button} is already shifted to the - GLUT numbering, and hence should be counted as 3&4, 5&6, etc. - - The other change was simply to clarify the computation of {direction}. - The original code did some clever arithmetic. The new code is more - straightforward, even if it requires more lines to express. - -2003-11-06 rkrolib - - * src/freeglut_main.c: Ooops. I screwed up on part of John's fixes. - Sorry. - - I think that I have his fix properly committed now. Mea culpa. - * src/freeglut_callbacks.c, src/freeglut_internal.h, - src/freeglut_main.c, src/freeglut_structure.c: Cleanup pass after - committing callback conversion (from structure to array-of-pointers). - Mostly deleted commented-out struct-based code. Also added some XXX - comments that I though should be pondered. (My own pair of eyes, and - one brain cell, were not sufficient at this time to decide what to do - for those ponderables. (^&) - * src/freeglut_callbacks.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_misc.c, src/freeglut_structure.c: Converted the - "Callbacks" structure (with named members holding individual callback - pointers) to a "CallBacks" array in fgState. (This is to allow us to - write a loop to clear all callbacks from windows when the window is - dead/dying. Using this, we can safely assign NULL to each in a loop.) - - Support includes two new macros, FETCH_WCB() and INVOKE_WCB(). See - freeglut_internal.h for more details there. - - Some typedefs of function pointer types were altered to make them more - uniform (necessary for the macros). - - All references to window-based callbacks in freeglut are updated to - use the new macros. - - Old usages will cause compile-time errors. - - As a side bonus, the new invocation macro sets the current window and - checks pointers so that these common steps can be uniformly done on - every window-based callback. This makes it easier to do things right. - At the same time, the array notation (and now required associated - casts) make it harder to bypass the macros and abuse the function - pointers, in general. - - After this commit, I will go through the code and clean up dangling - issues about formatting. This commit is just a "it now works, let's - checkpoint it" type of affair. - * src/freeglut_main.c: From John, a couple of lines needed to be changed - to fix the mouse wheel support on WIN32. - * progs/demos/Fractals_random/fractals_random.c: Update from John: - Includes mouse button, mouse motion, and mouse wheel support. - -2003-11-04 rkrolib - - * src/freeglut_menu.c: Multiple changes from John. Style issues, plus a - bug-fix to check a pointer before deallocating some memory. - - He also removed one obsolete comment, and added some more comments. - * src/freeglut_main.c: Some changes, mostly from John. Mostly style - changes. - - One bug fix from John: Execution state bug-fix in glutMainLoop(), per - his post yesterday. - - One fix from me: Changed "if( ButtonPress )" to "if( pressed )". - {ButtonPress} is a constant. - * progs/demos/Fractals_random/fractals_random.c: Per John's emailed - desire to have all files obey UNIX EOL conventions, I have stripped - out carriage returns from this file. - - This is the *only* change, but every line is touched. If you want to - see the real differences between older and newer versions, you will - have to get local copies of each and first match their EOL - convnetions. - * progs/demos/Lorenz/lorenz.c: Update from John: - - I [John] added a feature to check for memory leaks under Windows. - * progs/demos/Fractals_random/fractals_random.c: Update from John: - - I [John] converted everything to double precision to avoid compiler - warnings. I also added a feature to check for memory leaks under - Windows and removed a memory leak (surprise!). - * src/freeglut_callbacks.c, src/freeglut_cursor.c, - src/freeglut_display.c, src/freeglut_ext.c, src/freeglut_font.c, - src/freeglut_gamemode.c, src/freeglut_geometry.c, - src/freeglut_glutfont_definitions.c, src/freeglut_init.c, - src/freeglut_joystick.c, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_misc.c, src/freeglut_overlay.c, src/freeglut_state.c, - src/freeglut_structure.c, src/freeglut_teapot.c, - src/freeglut_videoresize.c, src/freeglut_window.c: Got rid of the - G_LOG_DOMAIN junk, per discussion on the mailing list. - * src/freeglut_callbacks.c: Minor formatting quibbles. (The brain isn't - up to anything more serious at the moment.) - * src/freeglut_main.c: Missed a block where one level was 2-space - indented. - - Nit-picked a few other lines for consistancy. - -2003-11-03 rkrolib - - * src/freeglut_init.c: Fixed a memory leak (thanks for the correction, - John!). - - Smoothed over some code style issues while I was here, but left the - init-string parsing alone for now. - * freeglut13.dsp, freeglutdll.dsp, freeglutstatic.dsw: Deleted 3 files - (again?) from CVS, on John's request. Old/obsolete MSVC++ project - files. (freeglut13.dsp, freeglutdll.dsp, freeglutstatic.dsw) - * src/freeglut_main.c, src/freeglut_structure.c: * Indentation issues. * - Pulled some common code into a nicely packaged function. * Found some - pointer/int issues. - * src/freeglut_main.c: Heh. - - Forgot to wrap the fgGetXModifiers() in a #if. Fixed. - * src/freeglut_main.c: Extracted some common code to a subroutine, in - glutMainLoopEvent(). (The common code was a snippet to compute X - keyboard modifiers as a bit-mask of GLUT symbols.) - * src/freeglut_main.c: Caught a few more little style issues. - * src/freeglut_main.c: Added a "case" for an X event that we turn on but - do not use. ({MapNotify}). We already caught {MappingNotify} and - {UnmapNotify}. - * src/freeglut_main.c: * Fixed a bug in the X11 handling of - scrollwheel/mouse. The old code, I believe, checked if *either* a - wheel or button callback was set, and then decided which to use---and - unconditionally called it. I left the "either" check in, but added - additional checks before actually doing the invocation. * Lots of - reformatting. Massive. The usual suspects, though, and fairly trivial: - Re-indenting to standard size, shuffling some spaces to match the - freeglut "standard" of: if( ... ) ...and: func( ... ) - -2003-10-31 rkrolib - - * src/freeglut_callbacks.c: Cleaned up one macro definition. - - Picked up an over-long line that I missed before. - * src/freeglut_callbacks.c: Fit some long lines to 80 columns. - * src/freeglut_cursor.c, src/freeglut_display.c, - src/freeglut_gamemode.c, src/freeglut_geometry.c: Last of the hard - TABs in the src/*.c files. - * src/freeglut_init.c, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_menu.c, src/freeglut_state.c: En masse removal of most (I - think) of the remaining hard TABs in files. There are still a couple - of files that need to be hit. - * src/freeglut_window.c: Picked up some stray TABs scattered in this - file. - * src/freeglut_window.c: Noted by XXX comments that the XFlush() calls - probably shouldn't be there. Flushing the X protocol stack every - little bit both adds clutter to the code and may impede performance. - - It seems that we should be able to get rid of these, though allowing - client code to directly call glutMainLoopEvent() does make it a little - more complicated. - - Something to ponder. - * src/freeglut_window.c: Polished off the say-nothing-new comments and - lines-over-80-columns in freeglut_window.c - - There should be no functional changes. - * src/freeglut_window.c: Missed a few say-nothing-new comments in - fgOpenWindow(). Eeep. Should be better now. (^& - * src/freeglut_window.c: Cleansed fgCloseWindow(): * say-nothing-new - comments axed. * de-TABbed. * Made the white-space to be consistant. - * src/freeglut_window.c: Cleaned up fgOpenWindow(): * Removed TABs. * - Made indentation consistant. * Deleted say-nothing-new comments. * - Changed an *error*check* from an assert to an if(). (The error-check - was on window creation; we don't want to lose that if the user - compiles with asserts deactivated. Also, assert()s really tell us more - about programming errors, rather than run-time errors, so it is a - little misleading to use assert() for error-checks, even if you can - depend upon assert()s never being compiled away to null statements.) * - Added some XXX comments for things that bear some rumination. - * src/freeglut_window.c: Cleanup to fgSetWindow(). The usual suspects: * - Removed tabs. * Made indentation consistant. * Killed off - say-nothing-new comments. - * src/freeglut_window.c: Cleanup to fgSetupixelFormat(). Should be no - functional changes. - - Code facelift included: - - * Consistant indentation. * Removal of all TABs (there were a bunch). - * Fit to 80 columns. - * src/freeglut_window.c: There should be no changes to code - functionality, though a fair bit of little changes to the code - appearance. - - * Fit the comments at the start of the file to fit 80 columns. * Noted - an unusual feature of the ATTRIB() macro. * Added ATTRIB_VAL() macro - which is really just two ATTRIB()s. This lets us put things like - {ATTRIB (GLX_RED_SIZE); ATTRIB (1);} on one statement: {ATTRIB_VAL - (GLX_RED_SIZE, 1);}. I did this to preserve some of the layout of - information while also avoiding the nasty semi-visible ";" in the - middle of a line of code. And by putting the {braces} in the macro - definition, I was able to visually clean code of the form: if - (condition) { ATTRIB( X ); ATTRIB( 1 ); } ...rewriting as: if - (condition) ATTRIB_VAL( X, 1 ); * Eliminated a bunch of - say-nothing-new comments in fgChooseVisual(). * Combined some - semi-useful comments into a block comment summarizing a loop. - -2003-10-30 rkrolib - - * src/freeglut_structure.c: Finished off most of the issues with - freeglut_structure.c, from a stylistic point of view (at least, - insofar as: The original file's code was INCON- SISTANT. I did not - remove the "!= NULL" stuff, did not address the shortest-branch-first - issue for if-else statements, and left some rather ugly "if (x) {... - return y} /* else do this */ return NULL;" garbage. This should, I - think, be re-written as "if (x) return y; else return NULL;" or even - better, "ret = NULL; if (x) ret = y; return ret;" - - In short, the code still has some issues, but I think that it's a bit - better. - - (Oh, I also got rid of oustanding TABs.) - * src/freeglut_structure.c: Eliminated most of the say-nothing-new - comments. - - Fit most of the code to no more than 80 columns. - - Raised some issues about completeness/correctness of trying to - decrement the max-window-ID (apparently in order to partially recycle - some window IDs to slightly slow the rate of growth of window IDs). (I - didn't change what the code does, though.) - - The functionality of the code should be unchanged. - * src/freeglut_main.c: Forgot to set {direction} explicitly to +/- 1 for - freeglut mouse-wheel API on MS-WINDOWS. Oops. - - Now it should always report +/- 1 on MS-WINDOWS, per the spec. - * src/freeglut_main.c: Minor fix to allow for multiple ticks to be - received at one time by the WIN32 code. Take abs(direction) as the - number of ticks, and count it down. - - *should* be included by freeglut_internal.h, I think, so it - should be okay; otherwise add a suitable #include. - * src/freeglut_main.c: Grrr. My attempt to commit got aborted, and the - commit message was lost. Now I've lost track of what I said I'd done. - Something like: - - * Fixed some issues with multiple wheels. * Noted in comments some - issues about other-than-3-real-buttons. * Fixed formatting to fit 80 - columns. * Removed some BCPL/C++ style comments (//) that are not - legal, and which, if memory servers, are not even strictly legal when - disabled by preprocessor directives. E.g., - - #if 0 not-syntactically-valid-C #endif - - ...is not legal. Though most cpp's will discard the bracketed material - completely before the main C compiler pass has a chance to analyze the - syntax. (MSVC++ and GCC both don't seem to mind the BCPL style - comments in plain C, but let's keep the sources clean, eh?) * Fixed a - problem that would have caused freeglut to report doubled wheel events - under XFree86. - - Not tested other than compiling. Personally, I think that the - interface is inherently broken at this point unless you are willing to - get user- configuration. (Which would then solve the complaint that - Steve had about computing the tick-size on behalf of applications.) - I.e., there is NO WAY to know if we have the right buttons to start - wheels at, or if there are any buttons after the first wheel(s), etc. - We just have to guess---and if we are wrong, we can get varying - degrees of brokeness. - -2003-10-29 Christopher John Purnell - - * src/freeglut_window.c: There is a problem with the way I did - glutFullscreen() in my last commit. So I've copied the way the game - mode does it. It's not ideal but it works. The glutGet() for the - window border sizes will also have to be fixed at some point. - * src/freeglut_window.c: Rewrote glutFullscreen(). It now correctly - places the window in X11. It now uses system dependant code for more - efficient use of windowing system calls. - -2003-10-29 rkrolib - - * src/freeglut_joystick.c: Should be no real changes to the code - function. - - I missed a few lines that went past 80 columns. (^& - - Also made formatting more consistant. - - Added a couple of XXX comments re. FreeBSD vs. general BSD #ifdef's. - * src/freeglut_joystick.c: Should be entirely superficial changes to - code style: - - * Fit lines to 80 columns. (It does get tiresome seeing long lines - forced to break by the right-hand border of windows...(^&) * - Eliminated say-nothing-new comments. * Made formatting more consistant - in spots. * Eliminated some hard TAB characters. - * src/freeglut_joystick.c: Added Thierry's change to include - sys/param.h. This lets us pick out version numbers for OS releases - corresponding to system headers. - - I modified it to also work with NetBSD; I cannot confirm if it is safe - with any other systems, so it remains protected by a #if. - * src/freeglut_state.c: Deleted some say-nothing-new comments. - - Added some XXX's where comments seemed to require future attention. - - Added some new comments with XXX's where future attention seems - profitable. - * src/freeglut_state.c: Deleted a bunch of say-nothing-new comments. - Someday, there shall be an end to them. - * src/freeglut_state.c: Previous changes were made without the freeglut - major mode in EMACS. Re-tweaked some lines (mostly got rid of some - TABs, but also resulted in some changed indentation). - - Reformatted a big comment to fit to 80 columns. - - Removed bogus references to "Linux". (UNIX, and/or X11 were relavent, - and "UNIX/X11" was substituted for "Linux" in those places. This - includes UNIX-alike systems.) - * src/freeglut_state.c: Rewrote the TODO BEFORE THE STABLE RELEASE - comment to fit to 80 columns. - - Cleanup of fghGetConfig(). (One return statement, simpler code.) - - Made glutSetOption() have a more consistant style---and also got its - lines to stay under 80 columns. - * src/freeglut_misc.c: Got the last of the say-nothing-new comments in - freeglut_misc.c. - - (I would have picked them up before, but wanted the bug-fix and - conversion-to-error-message changes to go in before I did more - superficial stuff.) - * src/freeglut_cursor.c, src/freeglut_main.c, src/freeglut_misc.c: * - Fixed a bug that I introduced in fgWarning()/fgError(): I thought that - ((a) || (b)) was defined to have value as: (a) if (a) != 0 (b) if (a) - == 0 - - ...instead, it has value 0/1. This was causing a bug. It's probably - just as well, since what I was trying to do definitely fell into the - category of "clever code" rather than "clear code". - - Sorry. - - * Made glutSetKeyRepeat() call fgError() if you go out of range. (The - old code silently did nothing---not even a warning.) - - If it is really desirable to keep running, we should probably at least - generate an fgWarning(). - - * Deleted some say-nothing-new comments. - - * XXX added: Is glutSetKeyRepeat() deprecated? - -2003-10-28 rkrolib - - * include/GL/freeglut_ext.h, src/freeglut_callbacks.c, - src/freeglut_ext.c, src/freeglut_internal.h, src/freeglut_main.c: - Commit, mostly of work from John: - - * Removed some say-nothing-useful comments. * Added some tentative - mouse-wheel support. * Fairly massive reformatting of code. - - I made some secondary changes to his changes: - - * One compilation error was fixed (missing close-paren + semicolon). * - Deleted a few ore say-nothing-useful comments. * Some of John's code - was strangely formatted to the point that it seemed completely out of - place, so I took the liberty of reformatting it. Since I used GNU - EMACS's key (which re-indents rather than inserts TAB - characters), I had to propogate some indentation changes a little - further than the bare necessity to match up with John's changes. (John - seems to shoot for 2-space indents, while EMACS (and I, I confess) - strongly prefer 4-space indents. The code that I was re-indenting had - been put to 8-space indents, however.) - - I have *not* tested the code beyond compiling. I assume that John did - (and that the compilation error was a result a minor change just - before asking me to commit). - * src/freeglut_cursor.c: Re-indentation style changes from John. - - There should be no alterations to how the code performs. - - (I modified how the X11 section of the set-cursor code is indented to - slightly better match (IMHO) the rest of his changes.) - -2003-10-27 rkrolib - - * src/freeglut_menu.c: Converted a few "x != NULL" tests to "x" for - clarity. - - I think that I've touched enough lines of source for one morning. - * src/freeglut_menu.c: Cleaned up a little redundancy in a comment on - the {menu_pen_*} variables. - * src/freeglut_menu.c: Removed about 90 lines of say-nothing-new - comments. - - The code should be functionally unaltered by these changes. - * src/freeglut_menu.c: Propogated a pointer-check from menu-attach to - menu-detach. (Apparently, in some cases, the Menu member variable can - be NULL.) - - Corrected the menu-attach code to make sure that both Window and Menu - pointers are non-NULL (rather than "at least one"). - - Rewrote button-checks to more simply and more clearly assert that the - "menu button" is a valid button for menu actions: Instead of - laboriously comparing against the three valid buttons (0, 1, 2 or - GLUT_BUTTON_*), we do a simpler range-check and the upper bound is - {FREEGLUT_MAX_MENUS}, allowing us to change the number of menuable - buttons fairly easily in the future. - - Also deleted a few say-nothing-new comments. - * src/freeglut_menu.c: Cosmetic changes (mostly deleted a few more - say-nothing-new comments). The functionality of the code should be - unchanged. - * src/freeglut_menu.c: Changed an "#elif TARGET_HOST_UNIX_X11" to - "#else", since this simply governed menu aesthetics. I think that it's - better to have a default that works than to break completely, should - freeglut ever be ported to a new (non-WIN32, non-UNIX/X11) target. - * src/freeglut_menu.c: Minor modifications to the menus: - - * Updated an old "TODO BEFORE STABLE" comment. - - * Expanded a comment re. some #define macros. - - * Made colors and font choice system dependant. The UNIX freeglut - menus look more like UNIX GLUT menus, now. (This is PURELY a cosmetic - change. But it achieves better compatibility visually.) - * src/freeglut_main.c: Cleaned up glutMainLoop() a bit: - - * Deleted numerous say-nothing-new comments. * Reformatted a - say-something-useful comment to fit on an 80-column display. - * src/freeglut_main.c: Partially (re-?)unified some of the - glutMainLoopEvent() code. The only code that really needs to be - system-specific is the window event handling, which in MS-WINDOWS is - tucked into a separate function. In UNIX/X11, it's all spilled out - into glutMainLoopEvent() for some reason. - - If the X11 code could be tucked into another function, - glutMainLoopEvent() could be platform-independant. - -2003-10-26 rkrolib - - * src/freeglut_main.c: Moved the idle callback out of - glutMainLoopEvent() and into glutMainLoop(), per discussion on the - list. The code looks okay, to me, though I remain less than wholly - convinced that treating idles as special cases is the best way to go. - Still, a case can be made for taking "non-event" idle callbacks out of - the "event loop". From an organizational perspective, I think that - it's an improvement, and it fixes a bug for at least one program. - * src/freeglut_menu.c: Added John's text-positioning modification. - - The lines that he was altering were very oddly-split, so while I was - at it, I repaired the line-break damage. - * src/freeglut_joystick.c: Committed change from Nigel to fix the - joystick bug. (The joystick code was not setting the GLUT window prior - to calling callbacks.) - - Please verify. If so, this closes out, I think, the latter half of - that bug report, so anyone with the means to modify/close bug reports - should do so upon verification of the fix. - * src/freeglut_main.c: Superficial cleanup of the code. Mostly taking - lines such as: - - ... - - /* * */ - - - ...and rewrote as: - - ... - - freeglut_main.c still has a lot of that in it, but it looks a bit - better, now. - * src/freeglut_init.c: Added some error-checking (particularly w.r.t. - strdup()). - - Deleted numerous 4-line "padding" sequences of C-as-English trans- - literation comments. - - Re-indented some (but not all) code that is using 2-space indentation. - (Most of the freeglut code seems to be using 4-space indentation.) - - I did not touch the "INIT DISPLAY STRING PARSING" code, since it is - filled with a ton of over-long lines and also appears to be in more - flux than the rest of the code. (Well, I added one error-check to a - strdup().) - * src/freeglut_font.c: Removed two more bogus "carriage return" - references where the comments were in fact talking about a line feed - (a.k.a. newline, LF, ^J, \n, ...). - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c: - Fixed the buglet about failing to report the program's name on error- - messages. Please test. (Modified glutInit(), the state structure, and - the warn/err functions.) - -2003-10-23 James Jones - - * ChangeLog: Released 2.0.1 - -2003-10-21 Christopher John Purnell - - * configure.in, include/GL/Makefile.am, include/GL/freeglut.h, - include/GL/freeglut_std.h, include/GL/glut.h, - progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/One/Makefile.am, - src/Makefile.am: Added --disable-replace-glut option to autoconf - configure. - -2003-10-15 James Jones - - * NEWS: Noted the release of 2.0.0 - * configure.in: Version bump - -2003-10-14 rkrolib - - * src/freeglut_font.c: Swept the freeglut_font.c for comment cleanup: * - Got rid of the "rewrite C as English" comments. * Corrected several - bogus references to "carriage returns" (in strings). The symbols were - newlines or EOLs or LFs (\n). They were *not* carriage returns or CRs - (\r). * Clarified the comments on glBitmap() calls. - -2003-10-13 rkrolib - - * progs/demos/Fractals/fractals.c, - progs/demos/Fractals_random/fractals_random.c: Small bug-fix that's - been on my mind: - - Modified the two Fractals* demos so that they only clear (for the - random one) or redraw (for the non-random one) if there is need to do - so. (E.g., pressing the space bar should not clear and redraw the - random fractal since no parameters are altered.) - * src/freeglut_cursor.c, src/freeglut_display.c: Removed the obsolete - hack (or very ill-conceived dream), fgDisplayCursor(). - * src/freeglut_display.c: Cleaned up some of the style issues (mostly - "fluff" comments) in freeglut_display.c. - * src/freeglut_cursor.c: Comment-cleaning sweep. - - Mostly got rid of the say-it-in-English comments that were adding 1 - line of English and 2 or 3 lines of filler for each of several lines - of C code. Updated a couple of other comments, and tweaked some - white-space. - * src/freeglut_callbacks.c: Cleaned up the comments a bit in the - callbacks.c file (mostly removed some of the - kill-4-lines-to-translate-one-line-of-C-into-English comments). - -2003-10-12 rkrolib - - * src/freeglut_cursor.c: Added all missing GLUT cursor types for X11. - - (Type NONE is not properly supported, yet.) - - Corrected behavior for the several old types: * Wrong glyphs. * - Reversed glyphs (left/right confusion!) - - There are some remaining imperfections, but it's a lot closer to GLUT - comformity, now. - -2003-10-11 rkrolib - - * src/freeglut_callbacks.c: Three tidying-up changes to the code of - freeglut_callbacks.c; none of them are Earth-shattering, but as I - swept through looking somewhat more systematically for errors, I - picked these off. See the diff's for details. - * src/freeglut_callbacks.c: Fixed a basic readability/style error in the - code. (Two statements per line are almost never a good idea; in this - case the combined line was past 80 columns.) - * src/freeglut_callbacks.c: Added a safety-check on a memory allocation. - (Timers were using dynamic memory allocation but NOT checking the - result!) - * src/freeglut_menu.c: Committed two lines from John to help fix the - menus a bit. - * src/freeglut_callbacks.c: Check the glutDisplayFunc() callback for - being a NULL pointer. This is illegal and is disallowed in GLUT 3.0+, - so we disallow it too in freeglut 2.0.1+ - -2003-10-09 rkrolib - - * progs/demos/Fractals/fractals.c, - progs/demos/Fractals_random/fractals_random.c: Applied John's updated - ReadConfigFile() changes to the fractals demos. - * progs/demos/Fractals_random/fractals_random.c: Fixed: * glutInit() - ordering w.r.t. glutInit*() and {argv} processing. * Aspect ratio. * - Removed depth-buffer usage. (Also done for Fractals in previous - commit...) - * progs/demos/Fractals/fractals.c: A few minor changes: * glutInit*() - calls should preceed glutInit(), per se, generally. This is so that - glutInit()'s configuration (which picks up on user parameters) can - override application defaults. * glutInit() should be called before - ANY attempt to process {argv, argc}. This is because there may be - GLUT/freeglut parameters (such as "-display" on X11). * If the window - is tall and skinny, rather than short and squat, we need to handle - aspect ratios differently. - - The first is a user-interface bug. The second is a serious bug - (especially since the demo assumes that argv[1] contains a filename). - The third is a display bug. - -2003-10-08 rkrolib - - * src/freeglut_main.c: Changed CreateNotify (in X11 ONLY) to act like a - ConfigureNotify event. - - This is done so that subwindows on X11 will get "resize" events when - they are created. Old GLUT did this---presumably by design in order to - ensure that (a) All windows get notified of their size as soon as the - window exists, and (b) probably more importantly, so that windows and - sub-windows behave as much alike as possible. I believe that GLUT was - right to do this, and I believe that compatibility requires this (I - have a sample program that breaks in freeglut but not GLUT without - this fix). - - I did not touch the Microsoft side, because I don't know what their OS - does---nor if old GLUT was historically system-dependant about this. - -2003-10-08 Eric Sandall - - * ChangeLog, src/freeglut_menu.c: freeglut_menu.c:217,519,532: Fix menus - to stay in the window (John Fay) - -2003-10-08 rkrolib - - * src/freeglut_menu.c: Several updates from John and myself. - - The broad outlines are: - - * Color schemes are now in variables, are closer to old GLUT, and are - system dependant (as old GLUT did). * You can change the font to any - bitmapped font more easily, which can aid in finding a better - approximation. (Old GLUT does not seem to have used a GLUT font for - the menus, which causes problems for us.) The menus rescale - automatically, including the triangle "arrow" for sub-menus. * Menus - have real borders, and the placement of highlighting is much improved. - * src/freeglut_main.c: Fixed a bug in the menu callback behavior. Menus - were not setting the current window correctly. - -2003-10-06 Eric Sandall - - * ChangeLog, src/freeglut_menu.c: freeglut_menu.c:328 Fix submenu - triangle (John Fay) - -2003-10-04 James Jones - - * ChangeLog, src/freeglut_main.c, src/freeglut_structure.c: Tweaking for - menu behavior in Linux regarding mouse whatnot - John Fay - -2003-10-01 rkrolib - - * src/freeglut_joystick.c: Applied a patch from "extraeme@netbsd.org" to - add joystick support. Untested, but it compiles for me. - - Should also add Joystick support for older FreeBSD systems. Also - untested. - * src/freeglut_main.c: Added support for more arbitrary number of mouse - buttons (though only the first three can work with menus), in X. This - closes a compatibility gap with old GLUT, and leaves us the option of - supporting scroll-wheels properly. - -2003-09-27 Christopher John Purnell - - * progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/One/Makefile.am: Don't - install the demos. - -2003-09-26 James Jones - - * progs/demos/Makefile.am: Package the demos.dsw file. - * progs/demos/demos.dsw: Demos workspace for MSVC users - -2003-09-24 rkrolib - - * src/freeglut_main.c: Corrected a bug w.r.t. display and joystick - events. When getting ready to sleep, we need to go through ALL windows - to check for pending joysticks and to check for pending redisplays. I - was just going through all TOP- LEVEL windows. Eeek. This won't do. - -2003-09-23 Brian Paul - - * progs/demos/Fractals_random/fractals_random.c: added needClear flag to - take care of initial window clear and window resize clears - -2003-09-23 rkrolib - - * src/freeglut_init.c: Per Nigel Stewart's comments, converted - - #ifdef TARGET_HOST_... - - to: - - #if TARGET_HOST_... - - in src/freeglut_init.c. These changes should not have any functional - impact at this time, but you don't want bad examples lying around to - trip people up later. - * progs/demos/Fractals_random/fractals_random.c, src/freeglut_main.c, - src/freeglut_window.c: Fixed: * GLUT_SINGLE now should behave more or - less correctly. Thanks to Brian Paul! - - * Sleeping is now cognizant of outstanding redisplays. - - * Fractals_random has been restored more or less to as-before, save - that it uses the more minimal glFlush() rather than glutSwapBuffers(). - glutSwapBuffers() was only required when freeglut was incorrectly - handling promotion to double-buffering. - -2003-09-22 rkrolib - - * src/freeglut_main.c: Moved the #include/#ifdef/#define stuff up to the - top. - - Changed #ifdef to #if, per Nigel(?)'s comment. Ooops. - -2003-09-22 Christopher John Purnell - - * progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/One/Makefile.am: Fix to - allow demos to compile before freeglut has been installed. - -2003-09-22 James Jones - - * progs/demos/Fractals_random/fractals_random.c: Add an idle function to - ensure that the screen gets drawn even when callbacks are not - generated by the mouse/keyboard. - -2003-09-21 James Jones - - * progs/demos/Fractals/fractals.c, - progs/demos/Fractals_random/fractals_random.c: Note the possible - buffer overflow in window_title - * progs/demos/Fractals/fractals.c: Fix the window title. - * progs/demos/Fractals_random/fractals_random.c: Fix window title, and - ensure that the random integer is not forced to be zero (Thanks - Richard Rauch!) - -2003-09-20 James Jones - - * src/freeglut_main.c: Richard Rauch's patch to ensure that freeglut - does not use 100% CPU even while idling. - * src/freeglut_font.c: Resolution for bug 809561 reported by Nigel - Stewart, regarding a possible array underflow error of -1 in the event - of "character" being zero. - -2003-09-14 Christopher John Purnell - - * configure.in, progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/One/Makefile.am, - src/Makefile.am: Removed unused AC_PROG_RANLIB from configure.in Added - passing of $(X_CFLAGS) to compiler. - -2003-09-14 James Jones - - * include/GL/glut.h: Resolve bug 806008 -- let Microsoft's compiler know - to use Windows libraries even if not using our project files. - -2003-09-13 James Jones - - * ChangeLog: Taking care of keeping things mostly up-to-date - * TODO: Most everything's been resolved for the 2.0.0 release. - * src/freeglut_joystick.c: Thierry Thomas said that FreeBSD has no - machine/joystick.h, instead a sys/joystick.h. I've made the change -- - here's hoping it works. - * progs/demos/One/one.c: Removed the incorrect relative path for - including freeglut.h - * progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/One/Makefile.am: Made all - demos compile. Thanks to Thierry Thomas for reporting bug 802809, - which alerted that *none* of the demos compiled automatically! - * src/freeglut_main.c: Nigel Stewart's joystick fix (for hopefully all - platforms), SourceForge bug 805481 - * progs/demos/Lorenz/lorenz.dsp, progs/demos/One/one.dsp: Fix location - of the include files from a fixed to relative path. Closes bug 805477 - * freeglut.dsp, freeglut.dsw, freeglut_static.dsp, freeglutstatic.dsw: - Add dos line endings. Fixes bug 805476 - -2003-09-10 Christopher John Purnell - - * src/freeglut_joystick.c: A minor fix to that last commit. - * src/freeglut_joystick.c: Removed some remaining glib depandancy. - -2003-09-10 James Jones - - * src/freeglut_main.c: Re-add catches for the case in which a menu - callback destroys the menu. - John Fay - -2003-09-09 Christopher John Purnell - - * src/freeglut_main.c: More to fix a deinitialization related crash. - * src/freeglut_structure.c: Fix for a deinitialization related crash. - -2003-09-08 James Jones - - * src/freeglut_main.c, src/freeglut_structure.c: Menus should deallocate - better now - John Fay - -2003-09-05 James Jones - - * Makefile.am: Add freeglut_static.dsp to the releases - -2003-09-03 Christopher John Purnell - - * src/freeglut_gamemode.c: Moved #ifdef for non XFree86 X11 compile. - -2003-09-02 Christopher John Purnell - - * src/freeglut_window.c: Fix to stop fgSetWindow(NULL) crashing on X11. - -2003-08-29 James Jones - - * src/freeglut_main.c, src/freeglut_menu.c, src/freeglut_structure.c: - These change a bunch of assignments to calls to set the current window - correctly, and also (possibly) fixes most of the remaining menu - problem. - John Fay - * src/freeglut_main.c: Another typecast bugfix from John Fay - -2003-08-28 Christopher John Purnell - - * src/freeglut_init.c: Changed #ifdef to #if - -2003-08-28 James Jones - - * src/freeglut_font.c: change the GLUT stroke function arguments from - "const char *" to "const unsigned char *" - John Fay - * include/GL/freeglut_ext.h, include/GL/glut.h: Changes stroke function - arguments from "const char*" to "const unsigned char *" - John Fay - -2003-08-28 Christopher John Purnell - - * freeglut-1.3: Removing files from old freeglut-1.3 directory. - -2003-08-28 James Jones - - * src/freeglut_callbacks.c, src/freeglut_geometry.c, - src/freeglut_init.c, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_menu.c, src/freeglut_structure.c: Casting changes, John - Fay - -2003-08-27 James Jones - - * src/freeglut_init.c, src/freeglut_internal.h, src/freeglut_main.c, - src/freeglut_menu.c: Major overhaul to the menu system, by John Fay - -2003-08-27 Christopher John Purnell - - * include/GL/freeglut.h, include/GL/freeglut_ext.h, include/GL/glut.h: - Added double underscores to the header included macros. - -2003-08-20 Christopher John Purnell - - * src/freeglut_gamemode.c: Minor typo fix - -2003-08-19 Christopher John Purnell - - * src/freeglut_gamemode.c: Moving that "#if TARGET_HOST_UNIX_X11" to the - correct place. - -2003-08-17 Christopher John Purnell - - * ChangeLog, src/freeglut_gamemode.c, src/freeglut_internal.h, - src/freeglut_window.c: Game mode fixes from Bernhard Kaindl and Eric - Espie. - -2003-08-05 Christopher John Purnell - - * src/Makefile.am, src/freeglut_menu.c, src/freeglut_window.c, - src/mwmborder.c: Using override_redirect instead of motif wm hints. It - now rasies the menu windows before showing them. Move the show to - after the reshape and position so we don't get a flash of the menu - window at it's old size and position. - * src/mwmborder.c: I suspect a lot of people will not have motif - installed. - -2003-08-05 Eric Sandall - - * ChangeLog, src/Makefile.am, src/freeglut_window.c: (98) - src/Makefile.am:34 Added mwmborder.c (99) src/freeglut_window.c:67 - Removed #included "mwmborder.c" - * ChangeLog, src/freeglut_main.c: src/freeglut_main.c:816 and :1571, set - the current window (John F. Fay) - -2003-08-04 Christopher John Purnell - - * src/freeglut_state.c: Added X11 code for - glutGet(GLUT_WINDOW_BORDER_WIDTH) and - glutGet(GLUT_WINDOW_HEADER_HEIGHT). - * src/freeglut_internal.h, src/freeglut_state.c: Replacing - glutGet(GLUT_WINDOW_X) and glutGet(GLUT_WINDOW_Y) on X11 with - something that works. Also a minor correction to the xf86vidmode - autoconf stuff. - -2003-08-04 James Jones - - * src/freeglut_window.c: Keep the X11 decoration-zapping code confined - to X11-using platforms! Oops! - * src/freeglut_window.c, src/mwmborder.c: Menus' decorations are removed - on Linux. Not sure if we want the mwmborder.c a separate file or not; - doing it separate for right now. Makefile was not updated, since the - .c is just #included. - -2003-08-03 Christopher John Purnell - - * configure.in: Got rid of configure warnings when using a newer - autoconf - -2003-08-02 Christopher John Purnell - - * src/freeglut_glutfont_definitions.c, src/freeglut_internal.h: Putting - stuff back that was undone with the menu code committed. - -2003-08-02 James Jones - - * src/freeglut_callbacks.c, src/freeglut_display.c, - src/freeglut_glutfont_definitions.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_menu.c, - src/freeglut_state.c, src/freeglut_structure.c, src/freeglut_window.c: - Major menu changes (they appear in their own window, have own - rendering context) by John Fay and a little by James C. Jones. They - work perfectly on Win32, and work... on Linux. - -2003-08-01 Christopher John Purnell - - * configure.in, src/Makefile.am, src/freeglut_glutfont_definitions.c, - src/freeglut_internal.h: Added autoconf detection for the xf86 vid - mode extentions. - -2003-08-01 Eric Sandall - - * ChangeLog, src/freeglut_window.c: src/freeglut_window.c:551 Removed - extra carriage return for Windows users (John F. Fay) - * ChangeLog: Credit Dave Reed for fix - * ChangeLog, src/freeglut_internal.h: src/freeglut_initial.c:91 Added - check for SOLARIS OS - -2003-07-23 Christopher John Purnell - - * include/GL/glut.h, src/Makefile.am, src/freeglut_font.c, - src/freeglut_glutfont_definitions.c: This should put an end to the - font binary compatibility issue. - -2003-07-23 Eric Sandall - - * ChangeLog, src/freeglut_window.c: src/freeglut_window.c Windowing - fixes from John F. - * ChangeLog, doc/Makefile.am: doc/Makefile.am:4 Removed trailing - backslash and added an empty last line - -2003-07-23 Brian Paul - - * doc/download.html: no change, testing CVS - -2003-07-22 Brian Paul - - * doc/download.html: no change, just testing CVS - -2003-07-22 Eric Sandall - - * ChangeLog, freeglut.lsm: freeglut.lsm:3 Removed 'beta' label for next - release, thanks to Bernhard Kaindl. - -2003-07-21 Christopher John Purnell - - * src/Makefile.am: The version info had the revision and the age - transposed. - -2003-07-21 Eric Sandall - - * ChangeLog, src/Makefile.am: src/Makefile.am:38 Changed versioning to - 11:0:8 thanks to Bernhard Kaindl - -2003-07-17 Eric Sandall - - * ChangeLog, freeglut.dsp, freeglut_static.dsp: Applied John F. Fay's - fixes to freeglut.dsp and freeglut_static.dsp - * ChangeLog, src/freeglut_state.c: Changed the overlay - (freeglut_state.c:662) to return FALSE, as it's not imp lemented yet - -2003-07-12 Andreas Umbach - - * src/Makefile.am: renamed freeglut library to glut, bumped version info - to 3:8:0 - * configure.in: bumped version number to 2.0.0 - * Makefile.am, configure.in, doc/Makefile.am, include/GL/Makefile.am, - progs/Makefile.am, progs/demos/Fractals/Makefile.am, - progs/demos/Fractals_random/Makefile.am, - progs/demos/Lorenz/Makefile.am, progs/demos/Makefile.am, - progs/demos/One/Makefile.am, src/Makefile.am: changes for make dist - * freeglut13.plg: MSVC generated file - -2003-07-11 Christopher John Purnell - - * include/GL/glut.h, src/freeglut_font.c: Fix for the font binary - compatibility problem. - -2003-07-10 Christopher John Purnell - - * src/Makefile.am: Changed to build libfreeglut.so.2.0.0 - -2003-07-10 James Jones - - * TODO, freeglut.dsp, freeglut_static.dsp: Changes to TODO, Windows - files - from John Fay - * progs/demos/Fractals_random/Fractals_random.dsp: Changes by John Fay - * progs/demos/Fractals/Fractals.dsp, progs/demos/Fractals/fractals.c: - Changes to the Fractals demo by John Fay - * progs/demos/One/one.dsp: Initial project file from John Fay - * progs/demos/Lorenz/lorenz.c, progs/demos/Lorenz/lorenz.dsp: - Modifications from John Fay - -2003-07-07 Christopher John Purnell - - * src/freeglut_main.c: glutMainLoopEvent() was not closing windows - properly. Moved call to fgCloseWindows() from glutMainLoop() to the - end of glutMainLoopEvent(). - -2003-07-03 Eric Sandall - - * ChangeLog, src/freeglut_misc.c: Removed unused char *ptr from - freeglut_misc.c - -2003-07-02 Christopher John Purnell - - * src/freeglut_main.c: It was crashing on and event for a unknown - window. - -2003-07-02 Brian Paul - - * src/freeglut_misc.c: rewrite of glutExtensionSupported - works - correctly now - -2003-07-02 Eric Sandall - - * ChangeLog: * Removed tests directory - * ChangeLog, Makefile.am, configure.in, progs/demos/One, - progs/demos/One/Makefile.am, progs/demos/One/one.c, tests: * Removed - genfonts/genstrokes code, updated configure.in and Makefile.in - - * Moved tests/one.c into progs/demos/One/one.c, updated configure.in - and Makefile.in - * genfonts: Removed genfonts - -2003-07-02 Christopher John Purnell - - * genfonts/to_stroke.y: Added some semicolons that yacc was warning - about. - -2003-07-01 James Jones - - * AUTHORS: John Fay commanded me to add my name to the file. He's crazy, - but that's okay. - -2003-07-01 Eric Sandall - - * ChangeLog, src/freeglut_misc.c: Fixed the 'ptr + len' problem in - freeglut_misc.c:90 - -2003-07-01 Brian Paul - - * doc/freeglut_user_interface.html: version bumps - * tests/Makefile.am: bump version to 2.0 - * src/Makefile.am, src/freeglutdll.def: bump versions to 2.0 - * src/freeglut_gamemode.c: xf86VidMode error checking (Andrew - Lentvorski) - -2003-06-30 Brian Paul - - * progs/demos/Lorenz, progs/demos/Lorenz/lorenz.c, - progs/demos/Lorenz/lorenz.dsp: Lorenz attractor demo (John Fay) - * freeglut.dsp, freeglut_static.dsp: updates from John Fay - -2003-06-28 Eric Sandall - - * ChangeLog, include/GL/Makefile.am: Now installs freeglut_ext.h and - glut.h to /usr/include/GL (was missing before) - -2003-06-27 Brian Paul - - * include/GL/freeglut_ext.h, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_main.c, src/freeglut_state.c, - src/freeglut_stroke_mono_roman.c: XF86 game mode fixes, context - sharing option. (John Fay) - -2003-06-25 Eric Sandall - - * ChangeLog: Added another of my changes (freeglut.kdevelop) and fixed - the version number for my MS VS change (*.dsp) - -2003-06-25 Brian Paul - - * src/freeglut_internal.h: version bumps - * freeglut.lsm, include/GL/glut.h, src/freeglut_stroke_mono_roman.c, - src/freeglut_stroke_roman.c: Assorted version 2.0.0 updates (John - Fay). - * doc/freeglut_user_interface.html: updated version, italicize freeglut - (John Fay) - -2003-06-25 Eric Sandall - - * ChangeLog, freeglut.dsp, freeglut_static.dsp: Added 'freeglut_ext.c' - to the project files 'freeglut.dsp' and 'freeglut_static.dsp' (New - list #10) - -2003-06-24 Andreas Umbach - - * ChangeLog: Fixed autogen.sh and removed aclocal.m4 - * aclocal.m4: this file is autogenerated by aclocal - * autogen.sh: fixed aclocal / autoheader order; some cosmetics - -2003-06-24 Eric Sandall - - * freeglut.kdevelop: Project file for Gideon (KDevelop 3.0) - -2003-06-23 Eric Sandall - - * ChangeLog, Makefile.am, TODO, configure.in, freeglut.dsp, - freeglut.kdevprj, freeglut13.dsp, freeglut13.plg, freeglut_static.dsp, - freeglutdll.dsp, src, src/Makefile.am, src/freeglut_callbacks.c, - src/freeglut_cursor.c, src/freeglut_display.c, src/freeglut_ext.c, - src/freeglut_font.c, src/freeglut_font_data.c, - src/freeglut_gamemode.c, src/freeglut_geometry.c, src/freeglut_init.c, - src/freeglut_internal.h, src/freeglut_joystick.c, src/freeglut_main.c, - src/freeglut_menu.c, src/freeglut_misc.c, src/freeglut_overlay.c, - src/freeglut_state.c, src/freeglut_stroke_mono_roman.c, - src/freeglut_stroke_roman.c, src/freeglut_structure.c, - src/freeglut_teapot.c, src/freeglut_videoresize.c, - src/freeglut_window.c, src/freeglutdll.def, src/templates, - src/templates/cpp_template, src/templates/header_template, - tests/Makefile.am: Changed all references to the 'freeglut-1.3' - directory to 'src', copied 'freeglut-1.3' to 'src' and added all files - from 'src' to the repository (TODO #34). - * ChangeLog: Updated ChangeLog with my aclocal.m4 change - * aclocal.m4: Updated aclocal.m4 with aclocal 1.7.3 (was created with - aclocal 1.5) - -2003-06-23 Brian Paul - - * freeglut-1.3/freeglut_geometry.c: adjusted precision (John Fay) - * doc/freeglut_user_interface.html, freeglut-1.3/freeglut_display.c, - freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_geometry.c, - freeglut-1.3/freeglut_teapot.c, include/GL/freeglut_ext.h, - include/GL/glut.h: Assorted updates from John Fay. - -2003-06-20 Eric Sandall - - * TODO: Updated TODO from John Fay - -2003-06-20 Brian Paul - - * progs, progs/demos, progs/demos/Fractals, - progs/demos/Fractals/Fractals.dsp, progs/demos/Fractals/fractals.c, - progs/demos/Fractals/fractals.dat, progs/demos/Fractals_random, - progs/demos/Fractals_random/Fractals_random.dsp, - progs/demos/Fractals_random/fractals.dat, - progs/demos/Fractals_random/fractals_random.c: Fractal demo (John Fay) - -2003-06-20 Eric Sandall - - * ChangeLog: Added the autogen.sh addition to ChangeLog - * autogen.sh: Initial version of autogen.sh, tested here and creates the - correct files - -2003-06-20 Brian Paul - - * freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_state.c: - Windows patches (Eero Pajarre) - * NEWS: list the 1.4 release (fill in date) - this is a cvs check-in - test - -2003-06-19 Don Heyse - - * freeglut-1.3/freeglut_joystick.c: Oops, missed the - fghJoystickRawRead() fix for FreeBSD. - -2003-06-19 Brian Paul - - * doc/freeglut_user_interface.html, freeglut-1.3/freeglut_display.c, - freeglut-1.3/freeglut_ext.c, freeglut-1.3/freeglut_internal.h, - freeglut-1.3/freeglut_main.c: s/FreeGLUT/freeglut/ - -2003-06-19 Don Heyse - - * freeglut-1.3/freeglut_joystick.c: Applied tthierry's patch to fix - compiling on FreeBSD. - -2003-06-19 Brian Paul - - * freeglut-1.3/freeglut_internal.h: added VERSION_MAJOR/MINOR/PATCH - * doc/freeglut_user_interface.html: restore text lost from previous - check-in - * include/GL/glut.h: s/FREEGLUT_VERSION_1_3/FREEGLUT_VERSION_1_4/ - -2003-06-19 Eric Sandall - - * include/GL/freeglut_ext.h, include/GL/glut.h: GLUT_VERSION updates - from John Fay - -2003-06-18 Eric Sandall - - * AUTHORS: Forgot a file...looked so innocous just sitting there... :) - * ChangeLog, doc/freeglut_user_interface.html, - freeglut-1.3/freeglut_callbacks.c, freeglut-1.3/freeglut_ext.c, - freeglut-1.3/freeglut_internal.h, freeglut-1.3/freeglut_menu.c, - freeglut-1.3/freeglut_structure.c, freeglut-1.3/freeglut_teapot.c, - freeglut-1.3/freeglut_window.c, include/GL/freeglut_ext.h: * Hopefully - I did THIS one right (used 'cvs update' to Merge) - - Authors - The first update in quite a while - - ChangeLog - Added the recent changes - - freeglut_callbacks.c - Added Aleksandar Donev's menu destruction - callback - - freeglut_internal.h - Added the user data to the structures and made - the menu state/status callbacks window-independent - - freeglut_menu.c - Removed several OpenGL compiler warnings and added - A. Donev's menu user data functions - - freeglut_structure.c - Added Aleksandar Donev's menu destruction - callback - - freeglut_teapot.c - Removed or suppressed several compiler warnings - - freeglut_window.c - Updated the window positioning code and added A. - Donev's window user data - - freeglut_ext.h - Added the menu destruction callback and user data - functions - * freeglut-1.3/freeglut_ext.h: * Removed freeglut_ext.h (wasn't supposed - to be added) - -2003-06-18 Brian Paul - - * doc/freeglut_user_interface.html, freeglut-1.3/freeglut_internal.h, - freeglut-1.3/freeglut_state.c, include/GL/freeglut_ext.h, - include/GL/glut.h: Added FREEGLUT_VERSION_1_3. Added GLUT_VERSION for - glutGet(). Added glutGet() documentation. - * freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_ext.h, - freeglut-1.3/freeglut_init.c, freeglut-1.3/freeglut_internal.h, - freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_state.c, - freeglut-1.3/freeglut_structure.c, freeglut-1.3/freeglut_window.c: - remove DOS-style CR characters - * doc/freeglut_user_interface.html: added glutGetProcAddress and - GLUT_FPS info - * ChangeLog: added glutGetProcAddress() and GLUT_FPS - -2003-06-17 Brian Paul - - * freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_init.c, - freeglut-1.3/freeglut_internal.h: restore GLUT_FPS env var feature - lost in previous check-in - -2003-06-17 Eric Sandall - - * ChangeLog: * Updated ChangeLog - * freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_structure.c: Set - #4: * Fixes a couple of compiler warnings and other bugs. * - freeglut_main.c: Removes a compiler warning * freeglut_structure.c: - Sets the current window before calling the window closure callback * - Possibly other changes - * freeglut-1.3/freeglut_ext.h: * Rest of Set #3 - * freeglut-1.3/freeglut_state.c: Set #3: Fixes for window positioning - problem Windows - * freeglut-1.3/freeglut_init.c: Eero Pajarre's GLUT_ICON code for - Windows - * freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_internal.h, - freeglut-1.3/freeglut_window.c: First group of patches: Adds - single-buffered rendering (or its emulation) in Windows. - -2003-06-17 Brian Paul - - * freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_init.c, - freeglut-1.3/freeglut_internal.h: added GLUT_FPS env var option - * freeglut-1.3/Makefile.am, freeglut-1.3/freeglut_ext.c, - include/GL/freeglut_ext.h: added glutGetProcAddress() - -2003-06-12 Don Heyse - - * freeglut-1.3/freeglut_main.c: Fix the keyboard up callback and a - compiler warning. - * freeglut-1.3/freeglut_structure.c: Set the current window before - calling the window closure callback. - * freeglut-1.3/freeglut_state.c, include/GL/freeglut_ext.h: John's - window positioning corrections. - * freeglut-1.3/freeglut_init.c: Eero Pajarre's icon code. - * freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_internal.h, - freeglut-1.3/freeglut_window.c: Single buffered rendering for Windows. - -2003-06-02 Don Heyse - - * doc/freeglut_user_interface.html: John Documented InitWindowPosition - extensions and added some kbd fn info. - * ChangeLog: Documented Johns changes from May 03. - * freeglut-1.3/freeglut_state.c: Do not allow glutGet to reposition the - window 1 pixel toward bottom right. - * freeglut-1.3/freeglut_main.c: Pass mouse pos to Windows kbd callback. - Resequenced a few things for UNIX. - -2003-03-23 Christopher John Purnell - - * freeglut-1.3/freeglut_gamemode.c: Applied patch to fix GameMode issues - supplied by Bernhard Kaindl. - -2003-03-12 Don Heyse - - * include/GL/glut.h: Switch to ANSI C comments. - * freeglut-1.3/freeglut_cursor.c, freeglut-1.3/freeglut_display.c, - freeglut-1.3/freeglut_font.c, freeglut-1.3/freeglut_geometry.c, - freeglut-1.3/freeglut_internal.h, freeglut-1.3/freeglut_joystick.c, - freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_structure.c, - freeglut-1.3/freeglut_window.c: Switch to ANSI C comments. Removed - always true tests on unsigned char. Single buffering fix.. - -2003-02-13 Don Heyse - - * freeglut.dsp, freeglut.dsw, freeglut_static.dsp: Switching to John - Fays version of the VC++ project files. - -2003-02-08 Steve Baker - - * freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_joystick.c: - Removed erroneous GPL license comments. - -2003-02-07 Don Heyse - - * freeglut-1.3/freeglut_callbacks.c, freeglut-1.3/freeglut_cursor.c, - freeglut-1.3/freeglut_display.c, freeglut-1.3/freeglut_font_data.c, - freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_geometry.c, - freeglut-1.3/freeglut_init.c, freeglut-1.3/freeglut_joystick.c, - freeglut-1.3/freeglut_misc.c, freeglut-1.3/freeglut_overlay.c, - freeglut-1.3/freeglut_stroke_mono_roman.c, - freeglut-1.3/freeglut_stroke_roman.c, freeglut-1.3/freeglut_teapot.c, - freeglut-1.3/freeglut_videoresize.c: Moved freeglut_internal.h to the - freeglut source code private directory. - * freeglut-1.3/freeglut_structure.c: SubWindow border thickness fix. - Overlay changes in glutGet. - * freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_menu.c, - freeglut-1.3/freeglut_state.c, freeglut-1.3/freeglut_window.c: Johns - changes for layers, fgSetWindow, and fgSetupPixelFormat. - * freeglut-1.3/freeglut_font.c: John fixed a bug that make bitmap font - one pixel wider than its drawn. - * freeglut-1.3/freeglut_internal.h, include/GL/freeglut_internal.h: - Moved freeglut_internal.h to the private directory with the other - freeglut sources. - * include/GL/freeglut.h, include/GL/freeglut_ext.h, include/GL/glut.h: - Broke freeglut.h into glut.h and freeglut_ext.h - -2003-01-06 Don Heyse - - * freeglut-1.3/freeglutdll.def: Exports file for Win32 dll. One EXPORT - for each FGAPI line in freeglut.h - -2003-01-04 Steve Baker - - * aclocal.m4, freeglut-1.3/freeglut_joystick.c: Cleanup joystick - deallocation. - -2002-12-10 Don Heyse - - * freeglut.dsw, freeglutdll.dsp: Allow DLL and static library build on - Windows. - * include/GL/freeglut.h: Added check for FREEGLUT_DLL to allow static & - DLL build on Windows. - -2002-12-04 Don Heyse - - * freeglut-1.3/freeglut_font_data.c: More bitmap font spacing fixes from - John. - -2002-11-29 Don Heyse - - * freeglut-1.3/freeglut_init.c: Fixed Win95 crash when getenv("DISPLAY") - returned NULL ptr. - * freeglut-1.3/freeglut_font_data.c: The lowercase t in helvetica12 was - too skinny. - * freeglut-1.3/freeglut_font.c, freeglut-1.3/freeglut_font_data.c: - Adjusted character spacing on a few fonts. - * ChangeLog: Many updates from John Fay. - * freeglutstatic.dsw: Added Visual C++ 6 Static library project for John - Fay. - -2002-11-28 Don Heyse - - * freeglut.dsp: Visual C++ 6 project file for static freeglut lib. - * include/GL/freeglut.h, include/GL/freeglut_internal.h: Many updates - from John Fay. (freeglut.h may need a small change to allow Win32 DLL - build again) - * freeglut-1.3/freeglut_geometry.c: Many updates from John Fay. - * freeglut-1.3/freeglut_callbacks.c, freeglut-1.3/freeglut_cursor.c, - freeglut-1.3/freeglut_font.c, freeglut-1.3/freeglut_font_data.c, - freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_init.c, - freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_menu.c, - freeglut-1.3/freeglut_misc.c, freeglut-1.3/freeglut_state.c, - freeglut-1.3/freeglut_stroke_mono_roman.c, - freeglut-1.3/freeglut_stroke_roman.c, - freeglut-1.3/freeglut_structure.c, freeglut-1.3/freeglut_window.c: - Many updates from John Fay. - * freeglut-1.3/freeglut_joystick.c: Fixes from freeglut_portable patch. - Memory leak fix from John. Return_if_fail fix. - -2002-11-26 Don Heyse - - * doc/freeglut_user_interface.html: Added on behalf of John Fay. - -2002-10-22 Don Heyse - - * freeglut-1.3/freeglut_geometry.c: Implemented tetrahedra, octahedra, - dodecahedra, and icosahedra. Checked in on behalf of John F. Fay - . - -2002-05-20 Don Heyse - - * freeglut-1.3/freeglut_font.c: Fixed previous fix so it compiles. - -2002-05-20 Christopher John Purnell - - * freeglut-1.3/freeglut_font.c: My bad. - -2002-05-18 Christopher John Purnell - - * freeglut-1.3/Makefile.am, freeglut-1.3/freeglut_font.c, - freeglut-1.3/freeglut_stroke_mono_roman.c, - freeglut-1.3/freeglut_stroke_roman.c, genfonts/Roman_M.src, - genfonts/lex.l, genfonts/to_stroke.y, genfonts/wfont.h, - include/GL/freeglut.h, include/GL/freeglut_internal.h: Added stroke - fonts. - -2002-05-17 Christopher John Purnell - - * freeglut-1.3/freeglut_cursor.c, freeglut-1.3/freeglut_display.c, - freeglut-1.3/freeglut_overlay.c, freeglut-1.3/freeglut_teapot.c, - freeglut-1.3/freeglut_videoresize.c, tests/one.c: Removed some DOS - line ends. - -2002-05-16 Christopher John Purnell - - * freeglut-1.3/freeglut_main.c: Removed one last glib call. - -2002-01-20 Steve Baker - - * README, freeglut-1.3/.deps/freeglut_callbacks.P, - freeglut-1.3/.deps/freeglut_cursor.P, - freeglut-1.3/.deps/freeglut_display.P, - freeglut-1.3/.deps/freeglut_font.P, - freeglut-1.3/.deps/freeglut_font_data.P, - freeglut-1.3/.deps/freeglut_gamemode.P, - freeglut-1.3/.deps/freeglut_geometry.P, - freeglut-1.3/.deps/freeglut_init.P, - freeglut-1.3/.deps/freeglut_joystick.P, - freeglut-1.3/.deps/freeglut_main.P, - freeglut-1.3/.deps/freeglut_menu.P, - freeglut-1.3/.deps/freeglut_misc.P, - freeglut-1.3/.deps/freeglut_overlay.P, - freeglut-1.3/.deps/freeglut_state.P, - freeglut-1.3/.deps/freeglut_structure.P, - freeglut-1.3/.deps/freeglut_teapot.P: Removed a bunch of '.P' files - that don't belong in the CVS archive. - -2001-08-05 Christopher John Purnell - - * freeglut-1.3/freeglut_callbacks.c, freeglut-1.3/freeglut_main.c, - freeglut-1.3/freeglut_window.c, include/GL/freeglut_internal.h: Added - keyup events code. Added missing specal keys. Made menu callbacks - global. - * freeglut-1.3/freeglut_window.c: More position tweeks. - -2001-08-04 Christopher John Purnell - - * freeglut-1.3/freeglut_main.c, include/GL/freeglut.h: Fixed redisplay - bug. Fixed modifier values. - * freeglut-1.3/freeglut_window.c: Improved window positioning. - -2001-07-30 Christopher John Purnell - - * freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_structure.c: A - stupid bug fixed. - -2001-07-30 Andreas Umbach - - * freeglut-1.3/freeglut_init.c, freeglut-1.3/freeglut_main.c: one more - g_assert removed - * include/GL/freeglut_internal.h: removed glib dependencies from win32 - * freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_init.c, - freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_window.c: - - removed glib dependencies from win32 code - -2001-07-29 Christopher John Purnell - - * freeglut-1.3/freeglut_structure.c: Fixed bug list code. - * freeglut-1.3/Makefile.am, freeglut-1.3/freeglut_callbacks.c, - freeglut-1.3/freeglut_font.c, freeglut-1.3/freeglut_font_data.c, - freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_geometry.c, - freeglut-1.3/freeglut_init.c, freeglut-1.3/freeglut_joystick.c, - freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_menu.c, - freeglut-1.3/freeglut_misc.c, freeglut-1.3/freeglut_state.c, - freeglut-1.3/freeglut_structure.c, freeglut-1.3/freeglut_window.c, - genfonts/Makefile.am, genfonts/genfonts.c, genfonts/genstroke.c, - include/GL/freeglut.h, include/GL/freeglut_internal.h: Removed glib - dependancy - * configure.in, freeglut-1.3/Makefile.am, genfonts/Makefile.am: The - build system now looks for X. - -2001-07-27 Steve Baker - - * doc, doc/download.html, doc/freeglut.html, doc/freeglut_logo.png, - doc/index.html, doc/ogl_sm.png, doc/progress.html, doc/structure.html: - Added documents. - * genfonts/.deps, tests/.deps: Removed some more files that don't belong - in CVS - * configure, freeglut-1.3/Makefile, freeglut-1.3/Makefile.in, - genfonts/Makefile, genfonts/Makefile.in, include/GL/Makefile, - include/GL/Makefile.in, include/Makefile, include/Makefile.in, - tests/Makefile, tests/Makefile.in: Removed files checked in in error. - * freeglut-1.3/.deps, freeglut-1.3/.deps/freeglut_callbacks.P, - freeglut-1.3/.deps/freeglut_cursor.P, - freeglut-1.3/.deps/freeglut_display.P, - freeglut-1.3/.deps/freeglut_font.P, - freeglut-1.3/.deps/freeglut_font_data.P, - freeglut-1.3/.deps/freeglut_gamemode.P, - freeglut-1.3/.deps/freeglut_geometry.P, - freeglut-1.3/.deps/freeglut_init.P, - freeglut-1.3/.deps/freeglut_joystick.P, - freeglut-1.3/.deps/freeglut_main.P, - freeglut-1.3/.deps/freeglut_menu.P, - freeglut-1.3/.deps/freeglut_misc.P, - freeglut-1.3/.deps/freeglut_overlay.P, - freeglut-1.3/.deps/freeglut_state.P, - freeglut-1.3/.deps/freeglut_structure.P, - freeglut-1.3/.deps/freeglut_teapot.P, - freeglut-1.3/.deps/freeglut_videoresize.P, - freeglut-1.3/.deps/freeglut_window.P, freeglut-1.3/Makefile, - freeglut-1.3/Makefile.in: Initial revision - * ., AUTHORS, COPYING, ChangeLog, INSTALL, Makefile.am, NEWS, README, - TODO, acconfig.h, aclocal.m4, configure, configure.in, freeglut-1.3, - freeglut-1.3/Makefile.am, freeglut-1.3/freeglut_callbacks.c, - freeglut-1.3/freeglut_cursor.c, freeglut-1.3/freeglut_display.c, - freeglut-1.3/freeglut_font.c, freeglut-1.3/freeglut_font_data.c, - freeglut-1.3/freeglut_gamemode.c, freeglut-1.3/freeglut_geometry.c, - freeglut-1.3/freeglut_init.c, freeglut-1.3/freeglut_joystick.c, - freeglut-1.3/freeglut_main.c, freeglut-1.3/freeglut_menu.c, - freeglut-1.3/freeglut_misc.c, freeglut-1.3/freeglut_overlay.c, - freeglut-1.3/freeglut_state.c, freeglut-1.3/freeglut_structure.c, - freeglut-1.3/freeglut_teapot.c, freeglut-1.3/freeglut_videoresize.c, - freeglut-1.3/freeglut_window.c, freeglut-1.3/templates, - freeglut-1.3/templates/cpp_template, - freeglut-1.3/templates/header_template, freeglut.dsw, - freeglut.kdevprj, freeglut.lsm, freeglut13.dsp, freeglut13.plg, - genfonts, genfonts/.deps, genfonts/.deps/genfonts.P, - genfonts/.deps/genstroke.P, genfonts/Makefile, genfonts/Makefile.am, - genfonts/Makefile.in, genfonts/Roman.src, genfonts/Roman_M.src, - genfonts/genfonts.c, genfonts/genstroke.c, include, include/GL, - include/GL/Makefile, include/GL/Makefile.am, include/GL/Makefile.in, - include/GL/freeglut.h, include/GL/freeglut_internal.h, - include/Makefile, include/Makefile.am, include/Makefile.in, - install-sh, mkinstalldirs, stamp-h, stamp-h.in, tests, tests/.deps, - tests/.deps/one.P, tests/Makefile, tests/Makefile.am, - tests/Makefile.in, tests/one.c: Initial revision - diff --git a/internal/c/parts/core/android_core/FrequentlyAskedQuestions b/internal/c/parts/core/android_core/FrequentlyAskedQuestions deleted file mode 100644 index 6261f1efd..000000000 --- a/internal/c/parts/core/android_core/FrequentlyAskedQuestions +++ /dev/null @@ -1,70 +0,0 @@ -========== ===== ========= ===== ======== -FREQUENTLY ASKED QUESTIONS ABOUT freeglut -========== ===== ========= ===== ======== - -Last updated on November 28, 2006 - - -General Questions -======= ========= -(1) Will "freeglut" ever support (fill in the blank)? - - If the GLUT library supports the feature, "freeglut" should support it. If "freeglut" does not support it and there is a call for it, then we are certainly open to adding it. - - If the GLUT library does not support the feature, "freeglut" is probably not going to. The "freeglut" library was designed to be a drop-in replacement for GLUT, a lightweight and simple windowing system for the OpenGL Red Book demonstration programs and no more. If you want a more functional windowing system we suggest that you look elsewhere. - -(#) I have a question that is not answered here. What do I do to get an answer? - - Check the "README" files that came with the distribution. If the question is not addressed there, please post it on the "freeglut-developer" mailing list on the Source Forge web site. - - - - - -*nix Questions -==== ========= - -(1) How I can build "freeglut" with debugging symbols and traces? - - CFLAGS="-g $CFLAGS" LDFLAGS="-g $LDFLAGS" ./configure \ - --enable-debug - - -(2) How can I have both a normal, and a debug-enabled version of "freeglut"? - - cd .. - mkdir freeglut-normal - cd freeglut-normal - ../freeglut-2.x/configure - make - cd .. - mkdir freeglut-debug - CFLAGS="-g $CFLAGS" LDFLAGS="-g $LDFLAGS" \ - ../freeglut-2.x/ configure --enable-debug [*] - make - - [*] optionally use --program-suffix=dbg to have them coexist when installing - - -(3) My linking fails due to undefined symbols. What libraries do I need to link? - - Look at the generated libfreeglut.la or use libtool --link (see the libtool manual). - - - - - -Windows Questions -======= ========= - -(1) My linking fails due to undefined symbols. What libraries do I need to link? - - All the required libraries (and a couple of unnecessary ones) should be automatically included thanks to the "#pragma comment (lib" statements in "freeglut_std.h". If your linking fails due to undefined symbols, there is an excellent chance that "freeglut" is not the culprit. - - - - - -Other Operating System Questions -===== ========= ====== ========= - diff --git a/internal/c/parts/core/android_core/LISEZMOI.cygwin_mingw b/internal/c/parts/core/android_core/LISEZMOI.cygwin_mingw deleted file mode 100644 index 66afa9b2a..000000000 --- a/internal/c/parts/core/android_core/LISEZMOI.cygwin_mingw +++ /dev/null @@ -1,218 +0,0 @@ -Glut alors! - -Par Jean-Seb le vendredi 10 juillet 2009, 00:18 - - -Freeglut est une évolution open-source de Glut. -Sous Windows, on peut l'utiliser avec Cygwin. -Facile ? Oui, si on accepte de distribuer "cygwin1.dll" -Aidons Freeglut à conquérir son indépendance ! -m.à.j 10/7/2009 : génération d'une librairie pour linker depuis la dll. - - -Récupération des sources - - * Reprenez les sources de la version 2.6.0 qui intègre les changements - récents. - * Pour l'instant, il s'agit d'une RC (Release Candidate), mais la version - finale ne saurait tarder. - * L'utilisation de la 2.6 est préférable à la branche 2.4-stable, de - nombreux bugs étant corrigés. - * Vous trouverez les sources sur le site de Freeglut: - o http://freeglut.sourceforge.net/ - - -Principe -Objectif - - * Nous allons créer une dll liée à Cygwin, et une bibliothèque statique - indépendante - * Nous créerons également une librairie dynamique, permettant de linker avec - la dll. - -Liste des fichiers générés - - * freeglut.dll : une dll classique pour le linkage dynamique. - * libfreeglut.a : la bibliothèque statique. Le programme final est autonome - (du moins pour OpenGL). - * libfreeglutdll.a : la bibliothèque dynamique. Le programme final a besoin - de freeglut.dll. - - -Préparation - - * Dépliez l'archive freeglut. - * Allez dans le répertoire src (situé à la racine du répertoire Freeglut), - et créez un sous-répertoire "Gl" - o Dans ce sous-répertoire, copiez les fichiers du répertoire - "include/Gl" - - * Pourquoi faut-il créer un répertoire "Gl" pour la compilation ? - o C'était juste pour simplifier les choses lors de mes essais. - o Sinon vous pouvez créer directement les répertoires, et copier les - fichiers comme indiqué au point installation (lire plus loin). - - * Faites un peu de ménage dans /lib : - o Effacez toutes les références à la glut, pour ne pas avoir de - conflit au linkage. - o Cette étape est facultative, vous pouvez également choisir de ne - faire le ménage qu' après une compilation réussie de Freeglut. - o Attention à ne pas effacer, dans un enthousiasme rédempteur, la - bibliothèque glu32.lib (à ne pas confondre avec glut32.lib). - - -Compilation - - * Oubliez le triptyque ./configure , make , make install. - o Ca ne marche pas du tout avec Cygwin. - - * Voici un Makefile qui fera l'affaire: - -#Makefile pour Freeglut 2.6.0-rc et Cygwin -#A placer dans le répertoire "src/Common" - -sources=$(wildcard *.c) -objs=$(sources:.c=.o) -libname=freeglut - - -CFLAGS=-O2 -DTARGET_HOST_MS_WINDOWS -DX_DISPLAY_MISSING -DFREEGLUT_STATIC -I./ -LDFLAGS=-lopengl32 -lgdi32 -lwinmm - -nocyg=-mno-cygwin -mwindows - -all: $(objs) - #construction dll liée à cygwin1.dll - gcc $(nocyg) $(objs) -shared $(LDFLAGS) -o $(libname).dll - nm $(libname).dll | awk 'BEGIN { print "EXPORTS" } /T _glut/ {sub( /^.*T _/, "\t"); print}' > $(libname).def - dlltool --dllname $(libname).dll --input-def $(libname).def --output-lib lib$(libname)dll.a - - #construction bibliothèque statique indépendante de cygwin - ar cr lib$(libname).a $(objs) - #pas forcément obligatoire (création d'un index pour accélérer les accès) - ranlib lib$(libname).a - -%.o: %.c - gcc $(nocyg) -c $(CFLAGS) $< - -clean: - rm -f *.o $(libname).dll $(libname).def lib$(libname)dll.a lib$(libname).a - - - - -Quelques remarques sur le Makefile - - * Ce makefile crée une dll, une bibliothèque statique (une archive, en - d'autres termes) et la bibliothèque dynamique qui permettra l'utilisation - de la dll. - - * Ne cherchez pas à stripper la bibliothèque statique! Vous ne pourriez plus - compiler en statique. - o Par contre, vous pouvez stripper l'exécutable final obtenu lors de - la compilation de votre application. - - * J'ai choisi d'appeller la dll et les bibliothèques par leurs "vrais noms": - freeglut.dll libfreeglutdll.a et libfreeglut.a. - o Le script configure recréait (pour des raisons de compatibilité avec - l'ancienne bibliothèque Glut) glut.dll et libglut.a. - o Lors des mes essais, j'ai eu des conflits avec une authentique - "glut" qui trainait dans mon "/lib". J'ai décidé d'appeller les - choses par leur nom, afin d'éviter les confusions. - o Rien ne vous empêche de renommer la dll, si vous avez besoin - d'utiliser des programmes Glut que vous ne pouvez pas recompiler. - - * La bibliothèque dynamique est générée à partir de la dll. - o Par souci de concision, j'ai utilisé awk. Il génère le fichier - d'exports utilisé par dlltool. - o La seule chose notable est la sélection des fonctions dont le nom - commence par _glut, afin d'éviter d'inclure dans la librairie - dynamique des fonctions sans rapport avec freeglut. - o ensuite, on utilise dlltool de façon très classique. - -nm $(libname).dll | awk 'BEGIN { print "EXPORTS" } /T _glut/ {sub( /^.*T _/, "\t"); print}' > $(libname).def -dlltool --dllname $(libname).dll --input-def $(libname).def --output-lib lib$(libname)dll.a - - - - -Installation - - * Copiez libfreeglut.a, libfreeglutdll.a dans le répertoire /lib de Cygwin. - * Copiez freglut.dll dans le system32 de Windows (ce qui est pratique, mais - pas propre!). - * Copiez les fichiers headers de Freeglut (/include/gl) dans /usr/include/Gl - de Cygwin. - * Copiez les fichiers headers (toujours /include/gl) dans - /usr/include/mingw/Gl : ceci sert aux compilations avec le flag - -mno-cygwin, qui utilise alors les includes de mingw. - o Vous aurez éventuellement besoin d'écraser d'anciens fichiers - include, correspondants à Glut, si vous l'avez installé avec Cygwin. - - -Utilisation de la bibliothèque - - * Nous allons tester avec le programme shapes, présent dans - progs/demos/shapes - o -mno-cygwin sert à forcer l'utilisation de Mingw sans la grosse - dépendance cygwin1.dll. - o -mwindows sert uniquement à enlever l'horrible fenêtre shell (très - utile pour la mise au point, par contre). - o -L. (notez le point après le "L") : j'ai laissé libfreeglut.a, - libfreeglutdll.a et freeglut.dll dans le répertoire de test, le - temps des tests justement. - - -Compilation en librairie statique freeglut, sans cygwin - - * Toute l'astuce réside dans le define : -DFREEGLUT_STATIC - o Il sert à obtenir la bonne décoration des noms de fonctions dans les - imports de la lib Freeglut. - o Vous pouvez essayer sans et prendre un éditeur hexa pour voir les - différences dans l'objet. - * attention à l'ordre des bibliothèques : -lfreeglut (statique) doit se - trouver avant la déclaration des bibliothèques dynamiques. - - * gcc shapes.c -L. -lfreeglut -lopengl32 -lwinmm -lgdi32 -mno-cygwin - -mwindows -DFREEGLUT_STATIC - - -Compilation avec dll freeglut, sans cygwin - - * Pour le define, même remarque que ci-dessus - * L'ordre des bibliothèques n'a plus d'importance. - - * gcc shapes.c -L. -lopengl32 -lwinmm -lgdi32 -lfreeglut -mno-cygwin - -DFREEGLUT_STATIC - - -Compilation avec dll freeglut, avec Cygwin - - * Cet exemple est donné uniquement pour référence, le thème de ce billet étant de se débarrasser de Cygwin. - o Disons que ça peut servir pendant la mise au point (et encore). - - * gcc shapes.c -L. -lopengl32 -lwinmm -lgdi32 -lfreeglut - - - -Où sont les dooooocs ? - - * Freeglut est livré avec sa documentation, plus très à jour. - o Il semble qu'il y ait un problème avec la doc Glut originale. Non - seulement elle ne correspond pas forcément au fonctionnement de - Freeglut, mais de plus, son auteur (Mark Kilgard) l'a copyrighté. Sa - distribution est donc difficile. - - * Jocelyn Fréchot a entrepris une mise à niveau des docs pour la version - 2.6.0. On peut les trouver sur son site pour l'instant: - o http://jocelyn.frechot.free.fr/freeglut/ - - -Quelque chose a survécu ... - - * J'ai également testé la recompilation des démos de la lib Glut originelle - (paix à ses cendres). - o Rien de particulier à signaler. - - * Merci à tous les mainteneurs courageux de Freeglut, qu'on croyait morts, - mais qui bougent encore. diff --git a/internal/c/parts/core/android_core/LISEZ_MOI b/internal/c/parts/core/android_core/LISEZ_MOI deleted file mode 100644 index ac4eccfcb..000000000 --- a/internal/c/parts/core/android_core/LISEZ_MOI +++ /dev/null @@ -1,86 +0,0 @@ -Brève Vue d'ensemble -==================== - -C'est le paquet de freeglut. - -Freeglut, le toolkit de service d'openGL ("OpenGL Utility Toolkit") libre, est censé pour être -un libre changent l'indigène à la bibliothèque de GLUT de Mark Kilgard. Il est distribué sous -un permis de modèle de X-Consortium (voyez COPIER pour des détails), de vous offrir une chance -d'employer et/ou modifier la source. - -Il se sert de bibliothèques OpenGL, GLU, GLib, et pthreads-win32. La bibliothèque ne se sert -d'aucun code de SURABONDANCE et n'est pas 100% compatible. La recompilation de code et/ou les -légères modifications pourraient être exigées pour vos applications pour fonctionner avec le -freeglut. - - -PORTS -===== - -X11 et les ports Win32 sont à une étape avançée d'alpha, qui signifie qu'elles fournissent la fonctionnalité limitée de la SURABONDANCE api 3. Il y a un cours d'en de recherche pour vérifier si le port de BeOS pourrait être facilement fait en utilisant la structure courante de freeglut. - - INSTALLATION -============ - -Voyez le dossier d'INSTALLATION. Pour le Windows: - -1)Téléchargez Freeglut.tar.gz - -2)Renommez en Freeglut.tar - -3)Décompressez avec WINZIP - -4)Dans MSVC,vous obtenez un répertoire FREEGLUT\DEBUG ou se trouve FREEGLUT.DLL - -5)Si vous n'avez pas FEEGLUT.LIB,il faut la construire: - Ouvrez FREEGLUT.DSW(C'est un workspace) - ouvrez le projet et cliquez sur "BUILD" puis "SET ACTIVE CONFIGURATION" - ajoutez "FREEGLUT-DEBUG". - -6)Pour votre propre projet,apres la compilation,appuyer sur ALT-F7.Cliquez sur LINK,puis sur - CATEGORIES et selectionnez "INPUT".Plus bas dans la fenetre,il y a un champ appelé - "ADDITIONNAL LIBRARY PATH",ajoutez:C:\MSVC\FREEGLUT\DEBUG pour que le programme trouve la - FREEGLUT.LIB. - -7)Copiez(NE PAS DEPLACER) la FREEGLUT.DLL de DEBUG vers le répertoire qui contient votre fichier - EXE. - -8)Pour une installation globale copier FREEGLUT.DLL dans C:\WINNT\SYSTEM32. - - - -CONTRIBUTION -============ - -Le bogue et les pièces rapportées absentes de dispositifs sont certainement bienvenus. Juste -comme des commentaires et des propositions de FREEGLUT api 1 soyez. Veuillez juste pour rendre -le regard de difficultés visuellement juste comme le reste du code (les étiquettes ont converti -les 4 espaces blancs). Les commentaires sont vraiment bienvenus, comme je crois qu'il ferait -beau pour des personnes nouveaux que frais à OpenGL voient comment les choses sont faites... - - -EMPLACEMENT DE WEB ET ENTRER EN CONTACT AVEC LE D'AUTEUR -======================================================== - -Le projet de Freeglut s'est déplacé au SourceForge : -http://freeglut.sourceforge.net - - -LE D'ESPOIR -=========== -Espoir vous trouvez mon travail de façon ou d'autre utile. -Pawel W. Olszta, - - -DÉPASSEMENT DU BATON==================== - -En décembre 2000, Pawel a décidé qu'il n'a plus souhaité maintenir le freeglut parce qu'il s'est -déplacé hors du champ de graphiques. J'ai offert pour succéder de lui et avoir couru le projet -depuis 2001 le 13 janv.. I'm également l'auteur et le défenseur de la suite de bibliothèque de -PLIB et du 'freeglut' ; vraiment ajustements dedans bien avec ce travail. J'espère juste que je -peux vivre jusqu'aux niveaux élevés de Pawel's. Pawel reste sur la liste active de réalisateurs. -Steve Baker - http://plib.sourceforge.net - - - diff --git a/internal/c/parts/core/android_core/NEWS b/internal/c/parts/core/android_core/NEWS deleted file mode 100644 index 4c3c6dc06..000000000 --- a/internal/c/parts/core/android_core/NEWS +++ /dev/null @@ -1,70 +0,0 @@ -Jan 16th 2000: - - First really functional release of freeglut. - - -Jan 13th 2001: - - Steve Baker takes over as maintainer of freeglut. - - -Jun ??th 2003: - - freeglut 1.4 released. - -September 29, 2003: - - freeglut 2.0.0 released. - -... - -Mar ??, 2009: - - freeglut 2.6.0 released. Changes compared to 2.4.0: - - * Tons of bug fixes - - * Added deprecated, but working Joystick API. - - * Added new constant GLUT_INIT_STATE for glutGet() to check if freeglut is - already initialized. - - * Added new API entry for full-screen mode - - void glutFullScreenToggle( void ); - - with a related new constant GLUT_FULL_SCREEN for glutGet(). - - * Added new API entry to de-initialize freeglut: - - void glutExit( void ); - - * Added more special keys: GLUT_KEY_NUM_LOCK, GLUT_KEY_BEGIN GLUT_KEY_DELETE - - * Added support for windows without captions and/or borders via two new - constants GLUT_CAPTIONLESS and GLUT_BORDERLESS for glutInitDisplayMode - (currently works for Windows only). - - * Added support for multisampling: The number of samples per pixel to use - when GLUT_MULTISAMPLE is specified in glutInitDisplayMode() can be set via - glutSetOption() with parameter GLUT_MULTISAMPLE now. glutGet() with the - same token retrieves that value. The possible number of samples per pixels - can be queried via the new API entry - - int *glutGetModeValues( GLenum mode, int *size ); - - with mode GLUT_MULTISAMPLE. (glutGetModeValues() currently only works for - X11) - - * Added new constant GLUT_AUX for glutSetOption() to set the number of - auxiliary buffers. The possible number of auxiliary buffers can be - queried via glutGetModeValues with mode GLUT_AUX. - - * Added support for versioned (i.e. 3.0) OpenGL contexts: New API entries - - void glutInitContextVersion( int majorVersion, int minorVersion ); - void glutInitContextFlags( int flags ); - - with related new constants GLUT_DEBUG and GLUT_FORWARD_COMPATIBLE for - the latter API entry. Added new constants GLUT_INIT_MAJOR_VERSION, - GLUT_INIT_MINOR_VERSION and GLUT_INIT_FLAGS for glutGet(). diff --git a/internal/c/parts/core/android_core/README b/internal/c/parts/core/android_core/README deleted file mode 100644 index 34cf96192..000000000 --- a/internal/c/parts/core/android_core/README +++ /dev/null @@ -1,83 +0,0 @@ - - BRIEF OVERVIEW - ============== - - This is the freeglut package. - - Freeglut, the Free openGL Utility Toolkit, is meant to be a free alter- - native to Mark Kilgard's GLUT library. It is distributed under an X-Consor- - tium style license (see COPYING for details), to offer you a chance to use - and/or modify the source. - - It makes use of OpenGL, GLU, and pthreads-win32 libraries. The library does - not make use of any GLUT code and is not 100% compatible. Code recompilation - and/or slight modifications might be required for your applications to work - with freeglut. - - - PORTS - ===== - - Both X11 and Win32 ports are in an advanced alpha stage, which means that - they provide limited functionality of GLUT API 3. There is an investigation - en course to check if the BeOS port could be easily done using the current - freeglut structure. - - - INSTALLATION - ============ - - Use the following commands to build from scratch on a *nix X11 platform: - - ./autogen.sh - ./configure - make - - The first command is only needed after a fresh checkout, a source distribution - already contains all necessary files for the last two steps. - - - CONTRIBUTING - ============ - - Bug and missing features patches are certainly welcome. Just as comments - and FREEGLUT API 1 propositions are. - - Just please to make the fixes look visually just as the rest of the code - does (tabs converted 4 white spaces). Comments are really welcome, as I - believe it would be nice for people fresh new to OpenGL see how the things - are done... - - - WEB SITE AND CONTACTING THE AUTHOR - ================================== - - Freeglut project has moved to the SourceForge: - http://freeglut.sourceforge.net - - - THE HOPE - ======== - - Hope you find my work somehow useful. - Pawel W. Olszta, - - - PASSING THE BATON - ================= - - In late December 2000, Pawel decided that he no longer - wished to maintain freeglut because he has moved out of - the graphics field. I volunteered to take over from him - and have been running the project since Jan 13th 2001. - - I'm also the author and maintainer of the PLIB library suite - and 'freeglut' really fits in well with that work. - - I just hope I can live up to Pawel's high standards. Pawel - remains on the active developers list. - - Steve Baker - http://plib.sourceforge.net - - diff --git a/internal/c/parts/core/android_core/README.android b/internal/c/parts/core/android_core/README.android deleted file mode 100644 index e27f0108a..000000000 --- a/internal/c/parts/core/android_core/README.android +++ /dev/null @@ -1,105 +0,0 @@ -Status -====== - -Done: -- Initialize context with EGL -- Keyboard support -- Mouse support -- Virtual keypad (on touchscreen) -- Extract assets in cache dir on start-up - -TODO: -- Open new windows (if that's possible) -- Joystick support (xperia play...) -- Display translucent keys on virtual keypad -- API to detect touchscreen presence -- API to disable assets extract -- GLES2 support for geometry and menus - (possibly also GLES1) -- Generate freeglut_std.h with GLES1 or GLES2 or non-ES headers -- Make EGL support reusable by Mesa X11 -- ... - - -Create a module compatible with the NDK build-system -==================================================== - -- Use your own cross-compiler for Android, or export the one from the - NDK: - - /usr/src/android-ndk-r7/build/tools/make-standalone-toolchain.sh \ - --platform=android-9 \ - --install-dir=/usr/src/ndk-standalone-9 - -- Build FreeGLUT with a '/freeglut' prefix : - - PATH=/usr/src/ndk-standalone-9/bin:$PATH - cd /usr/src/freeglut-3.0.0/ - cmake \ - -D CMAKE_TOOLCHAIN_FILE=android_toolchain.cmake \ - -D CMAKE_INSTALL_PREFIX=/freeglut \ - -D FREEGLUT_GLES2=ON \ - -D FREEGLUT_BUILD_DEMOS=NO \ - . - make -j4 - make install DESTDIR=$(pwd) - -- Copy Android.mk in the new 'freeglut/' directory : - - cp android/Android.mk freeglut/ - -- Reference this module in your jni/Android.mk: - - LOCAL_STATIC_LIBRARIES := ... freeglut - ... - $(call import-module,freeglut) - -- You now can point your NDK_MODULE_PATH to this module! - - ndk-build NDK_MODULE_PATH=/usr/src/freeglut-3.0.0/freeglut/ - - -Compile FreeGLUT for a traditional cross-compiler environment -============================================================= - -- Use your own cross-compiler for Android, or export the one from the - NDK: - - /usr/src/android-ndk-r7/build/tools/make-standalone-toolchain.sh \ - --platform=android-9 \ - --install-dir=/usr/src/ndk-standalone-9 - -- Compile FreeGLUT and install it in your Android cross-compiler path: - - - PATH=/usr/src/ndk-standalone-9/bin:$PATH - cd /usr/src/freeglut-3.0.0/ - cmake \ - -D CMAKE_TOOLCHAIN_FILE=android_toolchain.cmake \ - -D CMAKE_INSTALL_PREFIX=/usr/src/ndk-standalone-9 \ - -D FREEGLUT_GLES2=ON \ - -D FREEGLUT_BUILD_DEMOS=NO \ - . - make -j4 - make install - -- Compile your own project. - -For instance if you use the autotools: - - PATH=/usr/src/ndk-standalone-9/bin:$PATH - ./configure --host=arm-linux-androideabi --prefix=/somewhere - make - make install - -If you use CMake, you may want to copy our Android toolchain -'android_toolchain.cmake': - - cp .../android_toolchain.cmake . - cmake \ - -D CMAKE_TOOLCHAIN_FILE=android_toolchain.cmake - -D CMAKE_INSTALL_PREFIX=/somewhere \ - -D MY_PROG_OPTION=something ... \ - . - make -j4 - make install diff --git a/internal/c/parts/core/android_core/README.cmake b/internal/c/parts/core/android_core/README.cmake deleted file mode 100644 index f77608760..000000000 --- a/internal/c/parts/core/android_core/README.cmake +++ /dev/null @@ -1,54 +0,0 @@ -How to build freeglut with CMake on Windows (MS Visual Studio) --------------------------------------------------------------- -1. Download CMake (http://www.cmake.org/cmake/resources/software.html). - Get one of the releases from the binary distribution section. -2. Run the CMake installer, install wherever you like. -3. Launch CMake via Start > Program Files > CMake 2.8 > CMake (GUI) - (note that the shortcut put by the installer on your desktop does NOT - point to the CMake GUI program!) -4. In the "Where is the source code" box, type or browse to the root - directory of your freeglut source (so that's /freeglut, not - /freeglut/src). -5. In the "Where to build the binaries" box, type or browse to any - folder you like - this will be where the Visual Studio solution will be - generated. This folder does not have to exist yet. -6. Hit the Configure button near the bottom of the window. -7. Pick your target compiler, make sure that its installed on your - system of course! -8. Answer Ok when asked if you want to create the build directory. -9. Wait for the configure process to finish. -10. The screen will now have some configuration options on it, for - instance specifying whether you want to build static and/or shared - libraries (see below for a complete list). When you've selected your - options, click the Configure button again. -11. The Generate button at the bottom will now be enabled. Click Generate. -12. The build files will now be generated in the location you picked. - -You can now navigate to the build directory you specified in step 5. -Open the freeglut.sln file that was generated in your build directory, -and compile as usual - - -How to build freeglut on UNIX ------------------------------ -1. Make sure you have cmake installed. Examples: - - Debian/Ubuntu: apt-get install cmake - - Fedora: yum install cmake - - FreeBSD: cd /usr/ports/devel/cmake && make install - Or directly from their website: - http://www.cmake.org/cmake/resources/software.html -2. Run cmake . in the freeglut directory to generate the makefile. -3. Run make to build, and make install to install, freeglut. -4. If you wish to change any build options run ccmake . - - -Breakdown of CMake configuration options ----------------------------------------- -BUILD_SHARED_LIBS [ON, OFF] Build freeglut as a shared library -BUILD_STATIC_LIBS [ON, OFF] Build freeglut as a static library -CMAKE_BUILD_TYPE [Empty, Debug, Release] Can be overriden by passing it - as a make variable during build. -CMAKE_INSTALL_PREFIX Installation prefix (e.g. /usr/local on UNIX) -FREEGLUT_BUILD_DEMOS [ON, OFF] Controls whether the demos are built or not. -FREEGLUT_GLES1 [ON, OFF] TODO -FREEGLUT_GLES2 [ON, OFF] TODO diff --git a/internal/c/parts/core/android_core/README.cygwin_mingw b/internal/c/parts/core/android_core/README.cygwin_mingw deleted file mode 100644 index fee09c140..000000000 --- a/internal/c/parts/core/android_core/README.cygwin_mingw +++ /dev/null @@ -1,209 +0,0 @@ -Glut then! - -By Jean-Seb on Friday July 10, 2009, 00:18 -Translated by Babelfish with a scrub from John F. Fay. For points of confusion -please refer to the original French version. - -Freeglut is an open-source evolution of GLUT. -Under Windows, one can use it with Cygwin. -Easy? Yes, if one agrees to distribute "cygwin1.dll". -Let us help freeglut gain its independence ! -Update 10/7/2009: generation of a library for linking without the DLL. - - -Grabbing the sources - - * Download the sources for version 2.6.0 which integrates recent changes. - * Using version 2.6 is better than the 2.4-stable branch because many - bugs have been corrected. - * You will find the sources on the site of Freeglut: - o http://freeglut.sourceforge.net/ - - -Goals - - * We will create a DLL for Cygwin, and an independent static library - * We will also create a dynamic library, allowing linking with the DLL. - - -List of generated files - - * freeglut.dll: a traditional DLL for the dynamic linkage. - * libfreeglut.a: the static library. The final program is autonomous (at - least for OpenGL). - * libfreeglutdll.a: the dynamic library. The final program needs - freeglut.dll. - - -Preparation - - * Extract the files from the freeglut archive. - * Go in the directory src (located at the root of the Freeglut directory), - and create a "Gl" sub-directory - o In this sub-directory, copy the files of the directory "include/Gl" - - * Why is it necessary to create a "Gl" directory for compilation? - o I needed it to simplify things during my tests. - o If not you can create the repertories directly, and copy the files - as indicated in the point installation (see below). - - * Do a little housekeeping in /lib: - o Erase all the references to the glut, so as not to conflict with the - linking. - o This stage is optional, you can also choose to do the housekeeping - only after a successful compilation of Freeglut. - o In your enthusiasm to clean things up, be careful not to erase the - library glu32.lib (not to be confused with glut32.lib). - - -Compilation - - * Forget the "./configure, make, make install" triptych. - o It does not go at all with Cygwin. - - * Here Makefile which will make the deal: - -#Makefile for Freeglut 2.6.0-rc and Cygwin -#To place in the directory 'src/Common' - -sources=$ (wildcard *.c) -objs=$ (sources: .c=.o) -libname=freeglut - - -CFLAGS=-O2 - DTARGET_HOST_MS_WINDOWS - DX_DISPLAY_MISSING - DFREEGLUT_STATIC - I./ -LDFLAGS=-lopengl32 - lgdi32 - lwinmm - -nocyg=-mno-cygwin - mwindows - -all: $ (objs) - #construction DLL related to cygwin1.dll - gcc $(nocyg) $(objs) -shared $(LDFLAGS) -o $(libname).dll - nm $(libname).dll | awk 'BEGIN { print "EXPORTS" } /T _glut/ {sub( /^.*T _/, "\t"); print}' > $(libname).def - dlltool --dllname $(libname).dll --input-def $(libname).def --output-lib lib$(libname)dll.a - - #construction static library independent of cygwin - ar cr lib$(libname).a $(objs) - #pas inevitably obligatory (creation of an index to accelerate the accesses) - ranlib lib$(libname).a - -%.o: %.c - gcc $(nocyg) -c $(CFLAGS) $< - -clean: - rm -f *.o $(libname).dll $(libname).def lib$(libname)dll.a lib$(libname).a - - - - -Some remarks on the Makefile - - * This makefile creates a DLL, a static library (a file, in other words) and - the dynamic library which will allow the use of the DLL. - - * Do not try to strip the static library! You may not be able to compile - applications with static library any more. - o On the other hand, you can strip the final executable obtained after - compiling your application. - - * I chose to call the DLL and the libraries by their "true names": - freeglut.dll libfreeglutdll.a and libfreeglut.a. - o Script configures recreated (for reasons of compatibility with the - old GLUT library) glut.dll and libglut.a. - o During the my tests, I had conflicts with an authentic "glut" which - trailed in my "/lib". I decided to call the things by their name, in - order to avoid confusions. - o Nothing prevents you from renaming the DLL, if you need to use GLUT - programs which you cannot recompile. - - * The dynamic library is generated starting from the DLL. - o For reasons of brevity, I used awk. It generates the export file - used by dlltool. - o The only notable thing is the selection of the functions whose name - starts with _glut, in order to avoid including in the dynamic - library the functions that are not related to freeglut. - o then, one uses dlltool in a very traditional way. - -nm $(libname).dll | awk 'BEGIN { print "EXPORTS" } /T _glut/ {sub( /^.*T _/, "\t"); print}' > $(libname).def -dlltool --dllname $(libname).dll --input-def $(libname).def --output-lib lib$(libname)dll.a - - - - -Installation - - * Copy libfreeglut.a, libfreeglutdll.a into the Cygwin directory /lib. - * Copy freglut.dll in the system32 of Windows (this is practical, but not - clean!). - * Copy the files headers of Freeglut (/include/gl) into the Cygwin directory - /usr/include/Gl. - * Copy the files headers (always /include/gl) into /usr/include/mingw/Gl: - this is used for compilations with the flag - mno-cygwin, which uses the - includes in mingw. - o You may need to erase the old GLUT include files if you installed it - with Cygwin. - - -Use of the library - - * We will test with the program shapes, found in progs/demonstrations/shapes - o -mno-cygwin is used to force the use of Mingw without the large - dependence cygwin1.dll. - o -mwindows is only used to remove the horrible Shell window (very - useful for the settling, on the other hand). - o -L. (note the period after the "L"): I left libfreeglut.a, - libfreeglutdll.a and freeglut.dll in the test directory, at the time - of the tests. - - -Compilation of the static freeglut library, without cygwin - - * All the simplicity lies in the define: -DFREEGLUT_STATIC - o It serves to obtain good decoration of the function names in the - imports of the lib Freeglut. - o You can test without and use a hex editor to see the differences - in the objects. - * attention with the order of the libraries: -lfreeglut (static) must be - before the declaration of the dynamic libraries. - - * gcc shapes.c -L. -lfreeglut -lopengl32 -lwinmm -lgdi32 -mno-cygwin -mwindows -DFREEGLUT_STATIC - - -Compilation with DLL freeglut, without cygwin - - * For the define, see the notices above - * The order of the libraries is no longer important. - - * gcc shapes.c -L. -lopengl32 -lwinmm -lgdi32 -lfreeglut -mno-cygwin -DFREEGLUT_STATIC - - -Compilation with DLL freeglut, Cygwin - - * This example is given only for reference, the topic of this ticket being - to get rid of Cygwin. - o Let us say that can be used to make the point (and later). - - * gcc shapes.c -L. -lopengl32 -lwinmm -lgdi32 -lfreeglut - - - -Where are the dooooocs? - - * Freeglut is delivered with its documentation, more very up to date. - o It seems that there is a problem with the original GLUT - documentation. Not only it does not correspond completely to the - operation of Freeglut, but moreover, its author (Mark Kilgard) - copyrighted it. Its distribution is thus difficult. - - * Jocelyn Fréchot undertook a levelling of the docs for version 2.6.0. One can find them on his site for the moment: - o http://jocelyn.frechot.free.fr/freeglut/ - - -Something survived... - - * I also tested the recompiling of the demonstrations of the original lib - GLUT (peace with its ashes). - o Nothing in particular to be announced. - - * Thank you with all the courageous maintainers for Freeglut, that one - believed dead, but which still move. diff --git a/internal/c/parts/core/android_core/README.mac b/internal/c/parts/core/android_core/README.mac deleted file mode 100644 index 47ebf8d8e..000000000 --- a/internal/c/parts/core/android_core/README.mac +++ /dev/null @@ -1,33 +0,0 @@ - January 2011 -To the gentle Mac user, - -I realize that this is hardly a full explanation of how to build on a Mac, -but it will need to suffice for now. - -There was an e-mail on the "freeglut" developers mailing list titled -"Compiling Static freeglut on mac" with a datestamp of 10/12/2010 at -11:20 AM (possibly corrected for Central time, USA). Another e-mail -on the same mailing list from the same person, in reply to his original -missive, is dated 11/9/2010 at 10:03 PM. This file is an attempt to -capture the knowledge in those two e-mails. - -The author of the e-mails was trying to compile a static "freeglut" -library on Mac OSX version 10.5.8. He tried building both freeglut -versions 2.4.0 and 2.6.0 with a command ... - -./configure --disabled-shared --enable-static -make - -... and got a "non_lazy_ptr" error in both cases. He was able to fix -the problem by using the following "configure" command instead: - -./configure --disable-warnings --disable-shared --enable-static CPPFLAGS=-I/usr/X11/include -L/usr/X11/lib LDFLAGS=-I/usr/X11/include -L/usr/X11/lib -framework GLUT - - -Any further information on building "freeglut" on a Mac would be deeply -appreciated. I believe that much of the information on building it on -*nix systems also applies to the Mac. - -John F. Fay -1/22/11 - diff --git a/internal/c/parts/core/android_core/README.mingw_cross b/internal/c/parts/core/android_core/README.mingw_cross deleted file mode 100644 index 448ecccf1..000000000 --- a/internal/c/parts/core/android_core/README.mingw_cross +++ /dev/null @@ -1,61 +0,0 @@ -Cross-compilation from GNU/Linux (static and shared DLL) -======================================================== - -Install MinGW, and specify which MinGW you're using: - -- on Debian/Ubuntu, mingw-w64, 32-bit executables: - - apt-get install mingw-w64 - GNU_HOST=i686-w64-mingw32 - -- on Debian/Ubuntu, mingw-w64, 64-bit executables: - - apt-get install mingw-w64 - GNU_HOST=x86_64-w64-mingw32 - -- on Fedora, mingw32, 32-bit executables: - - yum install mingw32-gcc - GNU_HOST=i686-pc-mingw32 - -- on Debian/Ubuntu, mingw32 (deprecated): - - apt-get install mingw32 - GNU_HOST=i586-mingw32msvc - - -With the GNU Autotools ----------------------- - -Cross-compile with: - - ./configure --host=$GNU_HOST --prefix=/freeglut - make -j4 - make install DESTDIR=$(pwd) - -Everything is now in the new 'freeglut/' directory. -The .dll is in 'freeglut/bin/'. - - -With CMake ----------- - -Cross-compile with: - - cmake \ - -D GNU_HOST=$GNU_HOST \ - -D CMAKE_TOOLCHAIN_FILE=mingw_cross_toolchain.cmake \ - -D CMAKE_INSTALL_PREFIX=/freeglut \ - . - make -j4 - make install DESTDIR=$(pwd) - -Everything is now in the new 'freeglut/' directory. -The .dll is in 'freeglut/lib/'. - - -Compiling your code -------------------- - -Compilation of your own programs is done as usual. -See README.cygwin_mingw for details. diff --git a/internal/c/parts/core/android_core/README.win32 b/internal/c/parts/core/android_core/README.win32 deleted file mode 100644 index 88df4688a..000000000 --- a/internal/c/parts/core/android_core/README.win32 +++ /dev/null @@ -1,81 +0,0 @@ -Installing the Libraries with MSVC -================================== - -To install "freeglut" on your system so that your other projects will see it, -you will need to copy various files to various locations. - - - The header files "freeglut.h", "freeglut_ext.h", "freeglut_std.h", and - "glut.h" (distributed in the directory "freeglut\freeglut\include\GL") - need to be copied to a "GL" directory under the MSVC include directory. - The MSVC include directory generally has a path similar to - "C:\Program Files\Microsoft Visual Studio\VC98\Include" - The "GL" subdirectory under that will probably already have the header - files "gl.h", "glaux.h", and "glu.h". - - The library file "freeglut.lib" or "freeglut_static.lib" (from the - corresponding debug or release directory) needs to be copied into the - MSVC library directory. This usually has a path similar to - "C:\Program Files\Microsoft Visual Studio\VC98\Lib" - Note that there is no "GL" subdirectory here. This directory should - already have the files "opengl32.lib", "glu32.lib", and "glaux.lib". - - If you are using the DLL version of "freeglut", the file "freeglut.dll" - needs to be copied from the Debug or the Release directory into the - DLL directory. This usually has a path similar to - "C:\Windows\System32" - and will probably already have the files "opengl32.dll" and "glu32.dll". - - -Building and Installing the Libraries with Open Watcom -====================================================== - -Start a command prompt and change directory to the freeglut installation -directory. Type "wmake -f Makefile.wat all" to build the DLL and static -libraries in both debug and release versions. - -To install "freeglut" on your system so that your other projects will see it, -you will need to copy various files to various locations. - - - The header files "freeglut.h", "freeglut_ext.h", "freeglut_std.h", and - "glut.h" (distributed in the directory "freeglut\freeglut\include\GL") - need to be copied to a "GL" directory under the Open Watcom 32-bit - Windows include directory. This usually has a path similar to - "C:\WATCOM\h\nt\GL" - - The library file "freeglut.lib" or "freeglut_static.lib" (from the - corresponding debug or release directory) needs to be copied into the - Open Watcom 32-bit Windows library directory. This usually has a path - similar to - "C:\WATCOM\lib386\nt" - - If you are using the DLL version of "freeglut", the file "freeglut.dll" - needs to be copied from the Debug or the Release directory into the - DLL directory. This usually has a path similar to - "C:\Windows\System32" - and will probably already have the files "opengl32.dll" and "glu32.dll". - - -Unlike the *nix release, the library names are NOT automatic replacements for -the GLUT library names. You may rename them manually if you wish, but this is -not necessary as the header file includes a pragma telling the compiler which -library file to look for. - - -Building and Installing the Libraries with Cygwin -================================================= - -To build "freeglut" under Cygwin, you have two choices: - -- You can build a normal Cygwin library, which depends on Cygwin's X11 - libraries. To do this, you can just use the normal autotools incantation: - ./configure && make install - -- Alternatively, you can build a DLL which does not depend on X11 and links - against the opengl32 DLL. To do this, configure need a few more flags: - ./configure CPPFLAGS=-mno-cygwin LDFLAGS=-mno-cygwin --without-x && make install - - -If you don't have MSVC, Open Watcom or Cygwin -============================================= - -The "freeglut" developers' community discussed the possibility of distributing -binaries and decided against it. If you need Windows library files, please -contact John F. Fay at or put a request on the -"freeglut" developers' mailing list . - diff --git a/internal/c/parts/core/android_core/TODO b/internal/c/parts/core/android_core/TODO deleted file mode 100644 index 2fdc3a0e9..000000000 --- a/internal/c/parts/core/android_core/TODO +++ /dev/null @@ -1,107 +0,0 @@ - - The not-so-up-to-date TODO list can be found under following URL: - http://freeglut.sourceforge.net/progress.html - -Issues in Freeglut (so we don't forget): - -*fixed*(D) I'd like to change the names of the Windows target directories from names like "Debug__Win32_freeglut_static" (or something like that) to names like "DebugStatic". - -Issues that can Wait until 2.2.0: - -(1) In the Atlantis demo, under windows and with the task bar to the left of the screen, the GLUT window comes up in a position relative to the corner of the screen while the "freeglut" window comes up down and to the right of where it was the last time it was opened. - -(2) In the Atlantis demo, if you stop the animation and move the mouse around with a menu open, the whales jiggle but don't circulate. My guess is that you need a way to redisplay the menu without forcing a redisplay from the application. - -(3) In the Atlantis demo, if you bring up the menu in GLUT the animation stops; in freeglut the fish and whales wiggle without advancing. This may be another manifestation of (2). - -(4) In the Atlantis demo modified to draw a solid torus instead of a mother whale, the torus is not shaded according to the lighting. This is true with both GLUT and freeglut. With freeglut, when you bring up a menu the shading used to turn on but doesn't any longer; with GLUT it never did and still does not. Interestingly, if you change to a teapot it is shaded, but other geometric shapes are not shaded. - -*fixed*(5) The "freeglut" wire cone does not look like the GLUT wire cone. There are several differences, one of which is that the "freeglut" cone draws the base. - -*fixed*(6) With the "bluepony" demo under Windows, if you reshape the window using the mouse, the scene does not redraw until you move it with a keypress (arrow key or space bar to start the animation). Check out the "CS_VREDRAW or CS_HREDRAW" sections in MSVC help for a pointer about this. - -(7) If you compare the "bounce" demo with freeglut and GLUT, you see that the "freeglut" lights are larger and dimmer (and don't shine on the walls) than the GLUT lights. - -*fixed*(8) Large submenus in "freeglut" tend to cover their parent menus, making it difficult to get past them. This is visible in the "geoface" demo. In GLUT the menus can extend outside the window; "freeglut" should do the same thing. - -(9) In the "gliq" demo, the cones forming the ends of the arrows in the "select board" are lighted differently in "freeglut" than they are in GLUT. - -*fixed*(10) The "skyfly" demo resized my video and set it to 256 colors but didn't set it back when it was done. This is a problem with "skyfly" and not freeglut. - - -*fixed*(11) We seem to have troubles with programs that use display lists. Check out the "walker" demo and load a new curve set. If you have the debugger going while it is loading, you get the new curves; otherwise you don't. This has to do with the debugger hiding the freeglut window while the display list is being changed. - -*fixed*(12) The "fgCleanUpGlutsMess" function seems to duplicate the "fgDestroyStructure" or "fgDeinitialize" function and should probably be removed. - -*fixed*(13) The "G_LOG_DOMAIN" defined constants are never used. Should we start using them in warning and error messages or should we delete them? - -*fixed*(14) The "freeglut_internal.h" file on lines 45ff defines or undefines "G_DISABLE_ASSERT" and "G_DISABLE_CHECKS" but these are never used. Shall we start using them or should we delete them? - -*fixed*(15) P-GUIDE apparently calls the get and set window size functions repeatedly. Each time it does, the window shrinks by 2 pixels in each direction. - -(16) (for Don Heyse) We need to implement the "glutLayerGet ( GLUT_NORMAL_DAMAGED )" call. - - -(17) Also from Aleksandar Donev: can some add support for building a debugging version of freeglut to the makefiles? I have no clue how to use automake... - -(18) There is a big guess about the mouse buttons count under X11 (always 3) -- I must remember to correct the menu activation code if this shows to be invalid. - -(19) None of the bizarre input devices found in GLUT API is supported (and probably won't). - -(20) The joystick code should work fine but I haven't tested it out yet. It might not compile under FreeBSD, as I had to convert it from C++ to C and had no possibility to compile it under FreeBSD. - -(21) The menu is displayed using OpenGL, so it requires the window's contents to be refreshed at an interactive rate, which sometimes does not happen. That's why I'll consider adding optional window-system menu navigation later. For now -- extensive testing is what I believe should be done with the menu system. (Several of the GLUT demos use the menu system. John Fay has checked it out pretty well.) - -(22) Need to have own cursor shapes, so that freeglut can pass them to the windowing system, draw them using glBitmap() and/or texture mapping. The cursor shapes are very probable to be found in XFree86 sources. - -(23) Indexed color mode might work, however I have not tested it yet. glutGetColor/glutSetColor is not implemented. Again, looks like a single Xlib call, but there might be some problems with the colormap access. Need to switch into indexed color mode some day and check it out (does Mesa 3.1 work with indexed color mode?) - -(24) Overlays are not supported, but one of the GLUT conformance tests fails due to glutLayerGet( GLUT_NORMAL_DAMAGED ) returning FALSE when the window has actually been damaged. - -(25) Layers would be good for drawing the menus and mouse cursor, as they wouldn't force the application redraw to update their state. - -(26) Does the init display string work? - -(27) Is the game mode string parsed correctly? - -(28) Does the geometry need normal vectors? - -(29) The visibility/window status function is a conceptual mess. I had to peer into the GLUT source code to see what actually happens inside. It helped me a bit, but still one of the visibility tests fails. This is probably the reason for which a window covered by enlightenment status bar is marked as hidden and does not get redrawn. - -(30) GLX 1.3 spec states that glXChooseVisual() et consortes are deprecated. Should move to glXFBConfig. - -(31) Need to investigate what happens when initial window position is set to (-1,-1). GLUT specification says, that the window positioning should be left to the window system. And I do not know how to force it do so... - -(32) I was told it is wrong to have the redisplay forced in the main loop. Is that right? - -(33) Some of the tests freeze because they do not generate the glutPostRedisplay() call every frame. Again, this is somehow handled by GLUT, but I can't see how. And why. Looks like I've fixed it (or rather hacked it?) by forcing a redisplay every frame, but this is no good and kills interactiveness of my console :D - -(34) We should really implement overlays, if only for the sake of completeness. - -(35) Menus do not display in single-buffered windows, although they are active and the user can pick from them if he knows how to move the mouse exactly right. - -(36) In the "boundary.c" demo in the "advanced" directory, if the outline rendering is turned on the menu background turns black. - -(37) In the "comp.c" demo in the "advanced" directory, we find that we need a window to be defined before "glutGet ( GLUT_DISPLAY_MODE_POSSIBLE )" can be called. GLUT does not have this restriction. In "freeglut" there is a check at the beginning of the "fgSetupPixelFormat" call and a few references to "window->" later in the function. - -(38) When you get around the requirement for an existing window in "comp.c", you find that "freeglut" renders the window differently from GLUT. For starters, "freeglut" looks like it is double-buffering while GLUT looks like it is single-buffering. In 'freeglut" the background is all black while in GLUT it starts black and turns white before your eyes. - -(39) Running the "convolve" GLUT demo in the "advanced" directory (after fixing it so it doesn't terminate on error), I find that the "freeglut" version runs much more slowly than the GLUT version. I think this has to do with forcing redraws when the menu comes up. - -(40) The "genmipmap" demo runs much more slowly in "freeglut" than in GLUT (try moving a window!) and flashes the texture over the whole window instead of just the part of the window where it finally settles down. - -(41) We need to keep the "freeglut" structure current (including the GLUT action on window closure) after the last window closes. (Aleksandar Donev e-mail, 7/4/03, 5:00 PM). - -*fixed*(42) Menus need to display in their own subwindow with a special menu OpenGL rendering context. This will fix a wide range of menu-related bugs. - -*fixed*(43) We need to keep the "freeglut" structure current (including the GLUT action on window closure) after the last window closes. - -*fixed*(44) The "freeglut" wire cone differs from the GLUT wire cone. As a minimum, it draws the base where GLUT does not. I would check the solid cone as well. - -(45) The different mouse pointers (crosshair, double pointer, etc.) do not get shown. - -(46) The visibility callback is not invoked when minimizing a window. It should be. - -(47) We should add a "glutExit" call to the interface. Also a "glutGet" to tell whether it has been initialized properly. And have "freeglut" call "glutExit" before it calls "exit ()". - - diff --git a/internal/c/parts/core/android_core/android/Android.mk b/internal/c/parts/core/android_core/android/Android.mk deleted file mode 100644 index 790c967e8..000000000 --- a/internal/c/parts/core/android_core/android/Android.mk +++ /dev/null @@ -1,9 +0,0 @@ -LOCAL_PATH:= $(call my-dir) - -include $(CLEAR_VARS) - -LOCAL_MODULE := freeglut -LOCAL_SRC_FILES := lib/libglut.a -LOCAL_EXPORT_C_INCLUDES := $(LOCAL_PATH)/include - -include $(PREBUILT_STATIC_LIBRARY) diff --git a/internal/c/parts/core/android_core/android/README b/internal/c/parts/core/android_core/android/README deleted file mode 100644 index df63705f2..000000000 --- a/internal/c/parts/core/android_core/android/README +++ /dev/null @@ -1,2 +0,0 @@ -- Android.mk : used to create a module compatible with the NDK build - system. See ../README.android for details. diff --git a/internal/c/parts/core/android_core/android_toolchain.cmake b/internal/c/parts/core/android_core/android_toolchain.cmake deleted file mode 100644 index 9abe8834f..000000000 --- a/internal/c/parts/core/android_core/android_toolchain.cmake +++ /dev/null @@ -1,8 +0,0 @@ -# CMake toolchain file, cf. README.android -SET(CMAKE_SYSTEM_NAME Linux) # Tell CMake we're cross-compiling -include(CMakeForceCompiler) -# Prefix detection only works with compiler id "GNU" -CMAKE_FORCE_C_COMPILER(arm-linux-androideabi-gcc GNU) -# '-DANDROID' is the Android build system convention -ADD_DEFINITIONS(-DANDROID) -SET(ANDROID TRUE) diff --git a/internal/c/parts/core/android_core/config.h.in b/internal/c/parts/core/android_core/config.h.in deleted file mode 100644 index 84d0e5aad..000000000 --- a/internal/c/parts/core/android_core/config.h.in +++ /dev/null @@ -1,24 +0,0 @@ -#cmakedefine HAVE_X11_EXTENSIONS_XF86VMODE_H -#cmakedefine HAVE_X11_EXTENSIONS_XRANDR_H -#cmakedefine HAVE_SYS_TYPES_H -#cmakedefine HAVE_UNISTD_H -#cmakedefine HAVE_SYS_TIME_H -#cmakedefine HAVE_STDBOOL_H -#cmakedefine HAVE_SYS_PARAM_H -#cmakedefine HAVE_SYS_IOCTL_H -#cmakedefine HAVE_FCNTL_H -#cmakedefine HAVE_ERRNO_H -#cmakedefine HAVE_USBHID_H -#cmakedefine HAVE_GETTIMEOFDAY -#cmakedefine HAVE_VFPRINTF -#cmakedefine HAVE_DOPRNT -#cmakedefine NEED_XPARSEGEOMETRY_IMPL -#cmakedefine HAVE_STDINT_H -#cmakedefine HAVE_INTTYPES_H -#cmakedefine HAVE_ULONG_LONG -#cmakedefine HAVE_U__INT64 - -/* version numbers */ -#define VERSION_MAJOR @VERSION_MAJOR@ -#define VERSION_MINOR @VERSION_MINOR@ -#define VERSION_PATCH @VERSION_PATCH@ diff --git a/internal/c/parts/core/android_core/doc/download.html b/internal/c/parts/core/android_core/doc/download.html deleted file mode 100644 index 033ff534b..000000000 --- a/internal/c/parts/core/android_core/doc/download.html +++ /dev/null @@ -1,42 +0,0 @@ - - - - - - - - - - The freeglut project - - - -
The freeglut logo
- -
-I upload it, you download it. That's the ying-yang nature of the Buddha. -
- -

- -

January the 16th, 2000 -

Here is a list of files you can download: -

- -

- -
- diff --git a/internal/c/parts/core/android_core/doc/freeglut.html b/internal/c/parts/core/android_core/doc/freeglut.html deleted file mode 100644 index fb953f6bb..000000000 --- a/internal/c/parts/core/android_core/doc/freeglut.html +++ /dev/null @@ -1,163 +0,0 @@ - - - - - - - - - - The freeglut project - - - -
The freeglut logo
- -
-I am best at what I do worst and for this gift I feel blessed... -
- -

- -

January the 2nd, 2000 - -

The alpha version has been released yesterday. Today I have been busy with moving -the project site to the SourceForge. As for -now there will be the web site available and I will give it a try to set up the -freeglut mailing lists. There will be no CVS access available for now (my dialup -internet connection sucks so badly that I wouldn't be able to work on the project). -After I am done with that, I will try announcing the project on www.opengl.org. - -

Of other things, there has been rumours floating round the routers and hubs about -Mark Kilgard changing the GLUT's license, but this is unconfirmed. It would be really -cool if he did so, there's no better motivation to work than a bit of sound competition. -As for me, I already put too much work into the freeglut project to terminate it just -now. We'll see what happens next. - -

January the 4th, 2000 - -

Ho-ho-ho. Freeglut-1.3 works fine with `Tux the Penguin and the Quest for Herring'. -At least that's what Steve Baker, the author, says. Not only that, Steve has provided -us with the joystick code (from his great PLIB project) and numerous hints and tips -about making freeglut more useful (I will try to put the results of our discussion -on the structure page). - -

As for other issues -- I promise I will start the Win32 port this weekend. -BTW. -- is there a decent cross compiler for Linux that generates Win32 executables, -so that I don't have to use windows for development? And what about Wine OpenGL -support? - -

The package is now some 40kB smaller than the previous one. Did some general -clean ups, removed unnecessary configure scripts in the genfonts directory, -the configure cahce, the Makefiles and so on. Also, I have started introducing -the new internal structure, as described here. - -

January the 6th, 2000 - -

The missing glutInit() issue seems to be solved. Chris Purnell (fxGLUT author) says -that the GLUT window and menu creation functions call glutInit() if the caller didn't -do that before. - -

The enumerations for GLUT_KEY_UP and GLUT_KEY_RIGHT were accidentally swapped. -They should be OK now. Hope the rest is OK :) - -

Added two new API calls to freeglut-1.3 -- glutBitmapHeight() and glutStrokeHeight(), -as suggested by Steve Baker. This won't break the GLUT compatibility a lot, and I've -heard it can be useful. Here you go. - -

The structure plans page has been updated. The numerous -feature hints from opengl-gamedev-l readers have been added. - -

Somebody (Chris?) hinted me that the stroke fonts can be found in the XFree86 -sources. I browsed through it and -- presto. Now I only need to define the stroke fonts -structure (should be very similiar to bitmapped one) and write quite a simple parser. - -

I've spent the (late) evening doing the init display string parsing and making -my logics classes homework :) Both is harder than I primarily thought, but fortunately -for me I can commit errors in one of those tasks. Guess which one? Argh. :) - -

January the 8th, 2000 - -

First of all, both the missing glutInit() and glutGet(GLUT_WINDOW_[X|Y]) issues are -fixed now. The first problem was solved thanks to Chris Purnell, who showed me the way -GLUT dealt with the problem. Good for me there's someone who reads it's source code (I -just felt it would be unfair for me to do so :D). The second problem was solved by -adding a XMoveWindow call just after the window creation and initial mapping. This is -strange. Maybe one of the Xlib calls between the creation and mapping spoiled the -window's coordinates? - -

This makes even more GLUT tests work fine. The tests can be found in any decent -GLUT 3.7 distribution. Following tests produce a FAIL message: test18.c (some layer -issues), test19.c (see the GLUT_NORMAL_DAMAGED issue on the progress page), test22.c -(window stacking/visibilty problems), test23.c (glutInitDisplayString() is unfinished), -test25.c (the freeglut fonts differ a bit from GLUT's), test28.c (-iconic handling -is missing(?)). Gee :) - -

I've spent another hour doing the glutInitDisplayString(), but it still is far from -being complete. And I've also started gathering information on doing the game mode -stuff. The video mode enumeration in both cases will be painful. - -

There is a big issue with the window contents redrawing. Right now, it is forced -every time there are no events pending in the main loop. I know it's wrong, but it -without such an approach some of the test programs freeze soon after starting. Could -someone peer-review the main loop code please? - -

I have decided to start the Win32 port this weekend. As for now, the code compiles -under vc++5.0. I will start making it work as soon as I download the pthreads library -and the newest version of GLib for Windows. It was quite a good idea to start the port, -as the Microsoft's compiler generates much more warnings and I had quite a few things -fixed for free. - -

January the 9th, 2000 - -

Doing the Win32 port all the day... Actually, there is enough code to make it work, -however I am sure only of that it compiles (more or less). I need to download the -pthreads-win32 library to get the GLib working first, and somehow I was unable to -do it during the weekend. Once again -- the Win32 port does not work yet. Oh, and -I need adding the __declspec(dllexport) thing... - -

After it starts working, I'll have to clean up the code a bit, I guess... - -

January the 10th, 2000 - -

Here I am at three o'clock am, half-awake, uploading and downloading things for -freeglut. I never thought I'd be able to force myself getting up that early :) - -

January the 16th, 2000 - -

Both the flu and a terrible feeling about the dialup bills made me slow down -a bit, the internet activity I mean :). But here I am again uploading the latest -snapshot. The biggest news about it is the Win32 port working, with nearly all -features you can find in the X11 version implemented (still, it needs some debugging). -For the Unix port, game mode support (loosely based on SDL source code posted at Neal -Tringham's www.pseudonymz.demon.co.uk) and numerous bug fixes have been introduced. - -

In order to compile the Win32 version, you'll need pthreads-win32 library (see -sourceware.cygnus.org), the GLib-1.2.x (www.gtk.org, I've been using the 1.2.6), -a working native compiler (Microsoft VisualC++ 5.0 in my case), and a bit of patience. -See the project files I've supplied for some definitions needed (FREEGLUT_LIBRARY_BUILD -needs to be declared when building the DLL), and don't forget freeglut joystick code -is making use of Win32 multimedia extensions (link against winmm.lib). - -

Be prepared to meet the fact Mesa 3.1 (or at least my compilation) doesn't work very -well with this snapshot -- something's messed up when changing WGL contexts. This is -really strange, as the Microsoft's OpenGL works pretty fine, as does Dominik Behr's -miniGL thing. The assumption is that I've taken some approach that somehow is valid -with Microsoft's drivers, but is not OpenGL conformant. Could anyone check this out -please? - -

My plan for next week is to add some lesser features missing, and start learning -maths as the session at my university is coming in really fast :) This way or another, -expect the next release not any sooner than next weekend (given that no nasty bugs get -digged out). - -

Argh. Don't be surprised if the code doesn't compile under X-11 other than XFree86. -It could fail when trying to include the X11/extensions/xf86vmode.h include header, -in that case just comment out that inclusion line (found in freeglut_internal.h). -Is there any intelligent way to detect the existence of an include header, and if -it's autoconf to be the answer, how to use it? - -

Back to the main page - -

- diff --git a/internal/c/parts/core/android_core/doc/freeglut_logo.png b/internal/c/parts/core/android_core/doc/freeglut_logo.png deleted file mode 100644 index 36bf1b570..000000000 Binary files a/internal/c/parts/core/android_core/doc/freeglut_logo.png and /dev/null differ diff --git a/internal/c/parts/core/android_core/doc/freeglut_user_interface.html b/internal/c/parts/core/android_core/doc/freeglut_user_interface.html deleted file mode 100644 index 518322380..000000000 --- a/internal/c/parts/core/android_core/doc/freeglut_user_interface.html +++ /dev/null @@ -1,1956 +0,0 @@ - - - - - - - - - - FREEGLUT Application Program Interface - - - -
-
-

The Open-Source

-
-
-

OpenGL Utility Toolkit

-
-
-

(freeglut 2.0.0)

-
-
-

Application Programming Interface

-
-
- -
-

Version 4.0

-
- -
-

The freeglut Programming Consortium

-
- -
-

July, 2003

-
- -


- OpenGL is a trademark of Silicon Graphics, Inc. X Window System is a trademark -of X Consortium, Inc.  Spaceball is a registered trademark of Spatial -Systems Inc.
- The authors have taken care in preparation of this documentation but make -no expressed or implied warranty of any kind and assumes no responsibility - for errors or omissions. No liability is assumed for incidental or consequential - damages in connection with or arising from the use of information or programs - contained herein.
-  

- -

1.0  - Contents

- 1.0  Contents - -

2.0  Introduction -

- -

3.0  Background -

- -
3.1  Design Philosophy
- 3.2  Conventions
- 3.3  Terminology
- 3.4  Differences from GLUT 3.7
- -


- 4.0  Initialization Functions -

- -
4.1  glutInit
- 4.2  glutInitWindowPosition, glutInitWindowSize
- 4.3  glutInitDisplayMode
- 4.4  glutInitDisplayString
- -


- 5.0  Event Processing Functions -

- -
5.1  glutMainLoop
- 5.2  glutMainLoopEvent
- 5.3  glutLeaveMainLoop
- -


- 6.0  Window Functions -

- -
6.1  glutCreateWindow
- 6.2  glutCreateSubwindow
- 6.3  glutDestroyWindow
- 6.4  glutSetWindow, glutGetWindow
- 6.5  glutSetWindowTitle, glutSetIconTitle
- 6.6  glutReshapeWindow
- 6.7  glutPositionWindow
- 6.8  glutShowWindow, glutHideWindow, glutIconifyWindow
- 6.9  glutPushWindow, glutPopWindow
- 6.10  glutFullScreen
- -


- 7.0  Display Functions -

- -
7.1  glutPostRedisplay
- 7.2  glutPostWindowRedisplay
- 7.3  glutSwapBuffers
- -


- 8.0  Mouse Cursor Functions -

- -
8.1  glutSetCursor
- 8.2  glutWarpPointer
- -


- 9.0  Overlay Functions -

- -
9.1  glutEstablishOverlay
- 9.2  glutRemoveOverlay
- 9.3  glutUseLayer
- 9.4  glutPostOverlayRedisplay
- 9.5  glutPostWindowOverlayRedisplay
- 9.6  glutShowOverlay, glutHideOverlay
- -


- 10.0  Menu Functions -

- -
10.1  glutCreateMenu
- 10.2  glutDestroyMenu
- 10.3  glutGetMenu, glutSetMenu
- 10.4  glutAddMenuEntry
- 10.5  glutAddSubMenu
- 10.6  glutChangeToMenuEntry
- 10.7  glutChangeToSubMenu
- 10.8  glutRemoveMenuItem
- 10.9  glutAttachMenu, glutDetachMenu
- -


- 11.0  Global Callback Registration Functions -

- -
11.1  glutTimerFunc
- 11.2  glutIdleFunc
- -


- 12.0  Window-Specific Callback Registration - Functions -

- -
12.1  glutDisplayFunc
- 12.2  glutOverlayDisplayFunc
- 12.3  glutReshapeFunc
- 12.4  glutCloseFunc
- 12.5  glutKeyboardFunc
- 12.6  glutSpecialFunc
- 12.7  glutKeyboardUpFunc
- 12.8  glutSpecialUpFunc
- 12.9  glutMouseFunc
- 12.10  glutMotionFunc, glutPassiveMotionFunc
- 12.11  glutVisibilityFunc
- 12.12  glutEntryFunc
- 12.13  glutJoystickFunc
- 12.14  glutSpaceballMotionFunc
- 12.15  glutSpaceballRotateFunc
- 12.16  glutSpaceballButtonFunc
- 12.17  glutButtonBoxFunc
- 12.18  glutDialsFunc
- 12.19  glutTabletMotionFunc
- 12.20  glutTabletButtonFunc -

12.21  glutMenuStatusFunc
- 12.22  glutWindowStatusFunc

-
- -


- 13.0  State Setting and Retrieval Functions -

- -
13.1  glutSetOption
- 13.2  glutGet
- 13.3  glutDeviceGet
- 13.4  glutGetModifiers
- 13.5  glutLayerGet
- 13.6  glutExtensionSupported
-13.7  glutGetProcAddress
-
- -


- 14.0  Font Rendering Functions -

- -
14.1  glutBitmapCharacter
- 14.2  glutBitmapString
- 14.3  glutBitmapWidth
- 14.4  glutBitmapLength
- 14.5  glutBitmapHeight
- 14.6  glutStrokeCharacter
- 14.7  glutStrokeString
- 14.8  glutStrokeWidth
- 14.9  glutStrokeLength
- 14.10  glutStrokeHeight
- -


- 15.0  Geometric Object Rendering Functions -

- -
15.1  glutWireSphere, glutSolidSphere -
- 15.2  glutWireTorus, glutSolidTorus
- 15.3  glutWireCone, glutSolidCone
- 15.4  glutWireCube, glutSolidCube
- 15.5  glutWireTetrahedron, glutSolidTetrahedron
- 15.6  glutWireOctahedron, glutSolidOctahedron
- 15.7  glutWireDodecahedron, glutSolidDodecahedron
- 15.8  glutWireIcosahedron, glutSolidIcosahedron
- 15.9  glutWireRhombicDodecahedron, glutSolidRhombicDodecahedron
- 15.10  glutWireTeapot, glutSolidTeapot
- -


- 16.0  Game Mode Functions -

- -
16.1  glutGameModeString
- 16.2  glutEnterGameMode, glutLeaveGameMode
- 16.3  glutGameModeGet
- -


- 17.0  Video Resize Functions -

- -
17.1  glutVideoResizeGet
- 17.2  glutSetupVideoResizing, glutStopVideoResizing
- 17.3  glutVideoResize
- 17.4  glutVideoPan
- -


- 18.0  Color Map Functions -

- -
18.1  glutSetColor, glutGetColor -
- 18.2  glutCopyColormap
- -


- 19.0  Miscellaneous Functions -

- -
19.1  glutIgnoreKeyRepeat, -glutSetKeyRepeat
- 19.2  glutForceJoystickFunc
- 19.3  glutReportErrors
- -


- 20.0  Usage Notes -

- -

21.0  - Implementation Notes -

- -

22.0  GLUT -State -

- -

23.0  - "freeglut.h" Header File -

- -

24.0  References -

- -

25.0  Index -
-  
-  

- -

2.0  - Introduction

-   -

3.0  - Background

- The OpenGL programming world owes a tremendous debt to Mr. Mark J. Kilgard - for writing the OpenGL Utility Toolkit, or GLUT.  The GLUT library -of functions allows an application programmer to create, control, and manipulate - windows independent of what operating system the program is running on.  - By hiding the dependency on the operating system from the application programmer, - he allowed people to write truly portable OpenGL applications. - -

    Mr. Kilgard copyrighted -his library and gave it a rather unusual license.  Under his license, -people are allowed freely to copy and distribute the libraries and the source -code, but they are not allowed to modify it.  For a long time this did -not matter because the GLUT library worked so well and because Mr. Kilgard -was releasing updates on a regular basis.  But with the passage of time, -people started wanting some slightly different behaviours in their windowing -system.  When Mr. Kilgard stopped supporting the GLUT library in 1999, -having moved on to bigger and better things, this started to become a problem. -

- -

    In December 1999, -Mr. Pawel Olzsta started work on an open-source clone of the GLUT library.  -This open-source clone, which does not use any of the GLUT source code, has -evolved into the present freeglut library.  This documentation -specifies the application program interface to the freeglut library. -

- -

3.1  Design Philosophy

- -

3.2  Conventions

- -

3.3  Terminology

- -

3.4  Differences from GLUT 3.7

- Since the freeglut library was developed in order to update GLUT, - it is natural that there will be some differences between the two.  -Each function in the API notes any differences between the GLUT and the -freeglut function behaviours.  The important ones are summarized -here. -

3.4.1  glutMainLoop Behaviour

- One of the commonest complaints about the GLUT library was that once an -application called "glutMainLoop", it never got control back.  -There was no way for an application to loop in GLUT for a while, possibly -as a subloop while a specific window was open, and then return to the calling -function.  A new function, "glutMainLoopEvent", has been added -to allow this functionality.  Another function, "glutLeaveMainLoop -", has also been added to allow the application to tell freeglut to clean -up and close down. -

3.4.2  Action on Window Closure

- Another difficulty with GLUT, especially with multiple-window programs, -is that if the user clicks on the "x" in the window header the application -exits immediately.  The application programmer can now set an option, -" GLUT_ACTION_ON_WINDOW_CLOSE", to specify whether execution should -continue, whether GLUT should return control to the main program, or whether -GLUT should simply exit (the default). - -

3.4.3  Changes to Callbacks
-

- Several new callbacks have been added and several callbacks which were specific -to Silicon Graphics hardware have not been implemented.  Most or all -of the new callbacks are listed in the GLUT Version 4 "glut.h" header file -but did not make it into the documentation.  The new callbacks consist -of regular and special key release callbacks, a joystick callback, a window -status callback, window closure callbacks, a menu closure callback, and a -mouse wheel callback.  Unsupported callbacks are the three Spaceball -callbacks, the ButtonBox callback, and the two Tablet -callbacks.  If the user has a need for an unsupported callback he should -contact the freeglut development team.
- -

3.4.4  String Rendering
-

- New functions have been added to render full character strings (including -carriage returns) rather than rendering one character at a time.  More -functions return the widths of character strings and the font heights, in -pixels for bitmapped fonts and in OpenGL units for the stroke fonts.
- -

3.4.5  Geometry Rendering
-

- Functions have been added to render a wireframe and a solid rhombic -dodecahedron, a cylinder, and a Sierpinski sponge. -

3.4.5  Extension Function Queries

- glutGetProcAddress is a wrapper for the glXGetProcAddressARB and wglGetProcAddress -functions. -

4.0  - Initialization Functions

- -

4.1  glutInit

- -

4.2  glutInitWindowPosition, glutInitWindowSize

- The "glutInitWindowPosition " and "glutInitWindowSize -" functions specify a desired position and size for windows that freeglut - will create in the future. -

Usage

- -

void glutInitWindowPosition ( int -x, int y ) ;
- void glutInitWindowSize ( int width, -int height ) ;

- -

Description

- -

The "glutInitWindowPosition - " and "glutInitWindowSize" functions specify a desired position -and size for windows that freeglut will create in the future.  -The position is measured in pixels from the upper left hand corner of the -screen, with "x" increasing to the right and "y" increasing towards the bottom -of the screen.  The size is measured in pixels.  Freeglut - does not promise to follow these specifications in creating its windows, -it certainly makes an attempt to.

- -

The position and size of a window are -a matter of some subtlety.  Most windows have a usable area surrounded -by a border and with a title bar on the top.  The border and title bar -are commonly called "decorations."  The position of the window unfortunately -varies with the operating system.  On Linux, it is the coordinates of -the upper left-hand corner of its decorations.  On Windows, it is the -coordinates of the upper left hand corner of its usable interior.  For -both operating systems, the size of the window is the size of the usable interior. -

- -

Windows has some additional quirks which -the application programmer should know about.  First, the minimum y-coordinate -of a window decoration is zero.  (This is a feature of freeglut - and can be adjusted if so desired.)  Second, there appears to be a -minimum window width on Windows which is 104 pixels.  The user may specify -a smaller width, but the Windows system calls ignore it.  It is also -impossible to make a window narrower than this by dragging on its corner. -

- -

Changes From GLUT

- -

For some reason, GLUT is not affected -by the 104-pixel minimum window width.  If the user clicks on the corner -of a window which is narrower than this amount, the window will immediately -snap out to this width, but the application can call "glutReshapeWindow - " and make a window narrower again.

- -

4.3  glutInitDisplayMode

- -

4.4  glutInitDisplayString

- -

5.0  - Event Processing Functions

- After an application has finished initializing its windows and menus, it - enters an event loop.  Within this loop, freeglut polls the -data entry devices (keyboard, mouse, etc.) and calls the application's appropriate -callbacks. -

In GLUT, control never returned from -the event loop (as invoked by the "glutMainLoop" function) to the -calling function.  This prevented an application from having re-entrant -code, in which GLUT could be invoked from within a callback, and it prevented -the application from doing any post-processing (such as freeing allocated -memory) after GLUT had closed down.  Freeglut allows the application -programmer to specify more direct control over the event loop by means of -two new functions.  The first, "glutMainLoopEvent", processes -a single iteration of the event loop and allows the application to use a different -event loop controller or to contain re-entrant code.  The second, " -glutLeaveMainLoop", causes the event loop to exit nicely; this is preferable -to the application's calling "exit" from within a GLUT callback. -

- -

5.1  glutMainLoop

- The "glutMainLoop" function enters the event loop. - -

Usage

- -

void glutMainLoop ( void ) ; -

- -

Description

- -

The  "glutMainLoop" function -causes the program to enter the window event loop.  An application should -call this function at most once.  It will call any application callback -functions as required to process mouse clicks, mouse motion, key presses, -and so on.

- -

Changes From GLUT

- -

In GLUT, there was absolutely no way -for the application programmer to have control return from the "glutMainLoop - " function to the calling function.  Freeglut allows the programmer -to force this by setting the "GLUT_ACTION_ON_WINDOW_CLOSE" option -and invoking the "glutLeaveMainLoop" function from one of the callbacks.  - Stopping the program this way is preferable to simply calling "exit - " from within a callback because this allows freeglut to free allocated - memory and otherwise clean up after itself.  (I know I just said this, - but I think it is important enough that it bears repeating.)

- -

5.2  glutMainLoopEvent

- The "glutMainLoopEvent" function processes a single iteration -in the freeglut event loop. -

Usage

- -

void glutMainLoopEvent ( void ) ; -

- -

Description

- -

The  "glutMainLoopEvent - " function causes freeglut to process one iteration's worth of events -in its event loop.  This allows the application to control its own event -loop and still use the freeglut windowing system.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

5.3  glutLeaveMainLoop

- The "glutLeaveMainLoop" function causes freeglut to stop - its event loop. -

Usage

- -

void glutLeaveMainLoop ( void ) ; -

- -

Description

- -

The  "glutLeaveMainLoop - " function causes freeglut to stop the event loop.  If the -" GLUT_ACTION_ON_WINDOW_CLOSE" option has been set to "GLUT_ACTION_CONTINUE_EXECUTION - ", control will return to the function which called "glutMainLoop - "; otherwise the application will exit.

- -

If the application has two nested calls -to "glutMainLoop" and calls "glutLeaveMainLoop", the behaviour -of freeglut is undefined.  It may leave only the inner nested -loop or it may leave both loops.  If the reader has a strong preference -for one behaviour over the other he should contact the freeglut Programming -Consortium and ask for the code to be fixed.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

6.0  - Window Functions

- -

6.1  glutCreateWindow

- -

6.2  glutCreateSubwindow

- -

6.3  glutDestroyWindow

- -

6.4  glutSetWindow, glutGetWindow

- -

6.5  glutSetWindowTitle, glutSetIconTitle

- -

6.6  glutReshapeWindow

- -

6.7  glutPositionWindow

- -

6.8  glutShowWindow, glutHideWindow, -glutIconifyWindow

- -

6.9  glutPushWindow, glutPopWindow

- -

6.10  glutFullScreen

- -

7.0  - Display Functions

- -

7.1  glutPostRedisplay

- -

7.2  glutPostWindowRedisplay

- -

7.3  glutSwapBuffers

- -

8.0  - Mouse Cursor Functions

- -

8.1  glutSetCursor

- -

8.2  glutWarpPointer

- -

9.0  - Overlay Functions

- Freeglut does not allow overlays, although it does "answer the mail" - with function stubs so that GLUT-based programs can compile and link against - freeglut without modification.  -If the reader needs overlays, he should contact the freeglut Programming -Consortium and ask for them to be implemented.  He should also be prepared -to assist in the implementation. -

9.1  glutEstablishOverlay

- The "glutEstablishOverlay" function is not implemented in freeglut - . -

Usage

- -

void glutEstablishOverlay ( void -) ;

- -

Description

- -

The "glutEstablishOverlay" function -is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

9.2  glutRemoveOverlay

- The "glutRemoveOverlay" function is not implemented in freeglut - . -

Usage

- -

void glutRemoveOverlay ( void ) ; -

- -

Description

- -

The "glutRemoveOverlay" function -is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

9.3  glutUseLayer

- The "glutUseLayer" function is not implemented in freeglut - . -

Usage

- -

void glutUseLayer (  GLenum -layer ) ;

- -

Description

- -

The "glutUseLayer" function -is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

9.4  glutPostOverlayRedisplay

- The "glutPostOverlayRedisplay " function is not implemented in - freeglut. - -

Usage

- -

void glutPostOverlayRedisplay ( void -) ;

- -

Description

- -

The "glutPostOverlayRedisplay - " function is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

9.5  glutPostWindowOverlayRedisplay

- The "glutPostWindowOverlayRedisplay " function is not implemented - in freeglut. -

Usage

- -

void glutPostWindowOverlayRedisplay -( int window ) ;

- -

Description

- -

The "glutPostWindowOverlayRedisplay - " function is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

9.6  glutShowOverlay, glutHideOverlay

- The "glutShowOverlay" and "glutHideOverlay" functions -are not implemented in freeglut . - -

Usage

- -

void glutShowOverlay( void ) ; -
- void glutHideOverlay( void ) ; -

- -

Description

- -

The "glutShowOverlay" and " -glutHideOverlay" functions are not implemented in freeglut . -

- -

Changes From GLUT

- -

GLUT implements these functions.

- -

10.0  - Menu Functions

- -

10.1  glutCreateMenu

- -

10.2  glutDestroyMenu

- -

10.3  glutGetMenu, glutSetMenu

- -

10.4  glutAddMenuEntry

- -

10.5  glutAddSubMenu

- -

10.6  glutChangeToMenuEntry

- -

10.7  glutChangeToSubMenu

- -

10.8  glutRemoveMenuItem

- -

10.9  glutAttachMenu, glutDetachMenu

- -

11.0  - Global Callback Registration Functions

- -

11.1  glutTimerFunc

- -

11.2  glutIdleFunc

- The "glutIdleFunc" function sets the global idle callback. -Freeglut calls the idle callback when there are no inputs from the user. - -

Usage

- -

void glutIdleFunc ( void (*func) -( void ) ) ;

- -

func    The new -global idle callback function

- -

Description

- -

The  "glutIdleFunc" function -specifies the function that freeglut will call to perform background -processing tasks such as continuous animation when window system events are -not being received.  If enabled, this function is called continuously -from freeglut while no events are received.  The callback function -has no parameters and returns no value.  Freeglut does not change -the current window or the current menu before invoking the idle -callback; programs with multiple windows or menus must explicitly set the - current window and current menu - and not rely on its current setting.
-     The amount of computation and rendering done in an idle -callback should be minimized to avoid affecting the program's interactive - response.  In general, no more than a single frame of rendering should - be done in a single invocation of an idle callback.
-     Calling "glutIdleFunc" with a NULL argument -disables the call to an idle callback.

- -

Changes From GLUT

- -

Application programmers should note that -if they have specified the "continue execution" action on window closure, - freeglut will continue to call the -idle callback after the user has closed a window by clicking on the "x" in -the window header bar.  If the idle callback renders a particular window -(this is considered bad form but is frequently done anyway), the programmer -should supply a window closure callback for that window which changes or disables -the idle callback.

- -

12.0  - Window-Specific Callback Registration Functions

- -

12.1  glutDisplayFunc

- -

12.2  glutOverlayDisplayFunc

- -

12.3  glutReshapeFunc

- -

12.4  glutCloseFunc

- -

12.5  glutKeyboardFunc

- -

12.6  glutSpecialFunc

- The "glutSpecialFunc" function sets the window's special key press - callback. Freeglut calls the special key press callback when the -user presses a special key. -

Usage

- -

void glutSpecialFunc ( void (*func) -( int key, int x, int y ) ) ;

- -

func    The window's -new special key press callback function
- key     The -key whose press triggers the callback
- x       - The x-coordinate of the mouse relative -to the window at the time the key is pressed
- y       - The y-coordinate of the mouse relative -to the window at the time the key is pressed

- -

Description

- -

The  "glutSpecialFunc" -function specifies the function that freeglut will call when the user -presses a special key on the keyboard.  The callback function has one -argument:  the name of the function to be invoked ("called back") at -the time at which the special key is pressed.  The function returns no -value.  Freeglut sets the current window to the window -which is active when the callback is invoked.  "Special keys" are the -function keys, the arrow keys, the Page Up and Page Down keys, and the Insert -key.  The Delete key is considered to be a regular key.
-     Calling "glutSpecialUpFunc" with a NULL argument -disables the call to the window's special key press callback.

- -

    The "key -" argument may take one of the following defined constant values:

- -
    -
  • GLUT_KEY_F1, GLUT_KEY_F2, ..., GLUT_KEY_F12                             - - F1 through F12 keys
  • -
  • GLUT_KEY_PAGE_UP, GLUT_KEY_PAGE_DOWN                                           - - Page Up and Page Down keys
  • -
  • GLUT_KEY_HOME, GLUT_KEY_END                                                             - - Home and End keys
  • -
  • GLUT_KEY_LEFT, GLUT_KEY_RIGHT, GLUT_KEY_UP, GLUT_KEY_DOWN - - arrow keys
  • -
  • GLUT_KEY_INSERT                                                                                     - - Insert key
  • - -
- Changes From GLUT -

None.

- -

12.7  glutKeyboardUpFunc

- The "glutKeyboardUpFunc" function sets the window's key release - callback. Freeglut calls the key release callback when the user releases -a key. -

Usage

- -

void glutKeyboardUpFunc ( void (*func) -( unsigned char key, int x, int y ) ) ;

- -

func    The window's -new key release callback function
- key     The -key whose release triggers the callback
- x       - The x-coordinate of the mouse relative -to the window at the time the key is released
- y       - The y-coordinate of the mouse relative -to the window at the time the key is released

- -

Description

- -

The  "glutKeyboardUpFunc -" function specifies the function that freeglut will call when the -user releases a key from the keyboard.  The callback function has one -argument:  the name of the function to be invoked ("called back") at -the time at which the key is released.  The function returns no value.  - Freeglut sets the current window - to the window which is active when the callback is invoked.
-     While freeglut checks for upper or lower case -letters, it does not do so for non-alphabetical characters.  Nor does -it account for the Caps-Lock key being on.  The operating system may -send some unexpected characters to freeglut, such as "8" when the -user is pressing the Shift key.  Freeglut also invokes the callback -when the user releases the Control, Alt, or Shift keys, among others.  -Releasing the Delete key causes this function to be invoked with a value -of 127 for "key".
-     Calling "glutKeyboardUpFunc" with a NULL argument -disables the call to the window's key release callback.

- -

Changes From GLUT

- -

This function is not implemented in GLUT -versions before Version 4.  It has been designed to be as close to GLUT -as possible.  Users who find differences should contact the - freeglut Programming Consortium to -have them fixed.

- -

12.8  glutSpecialUpFunc

- The "glutSpecialUpFunc" function sets the window's special key -release callback. Freeglut calls the special key release callback -when the user releases a special key. -

Usage

- -

void glutSpecialUpFunc ( void (*func) -( int key, int x, int y ) ) ;

- -

func    The window's -new special key release callback function
- key     The -key whose release triggers the callback
- x       - The x-coordinate of the mouse relative -to the window at the time the key is released
- y       - The y-coordinate of the mouse relative -to the window at the time the key is released

- -

Description

- -

The  "glutSpecialUpFunc -" function specifies the function that freeglut will call when the -user releases a special key from the keyboard.  The callback function -has one argument:  the name of the function to be invoked ("called back") -at the time at which the special key is released.  The function returns -no value.  Freeglut sets the current window to the window -which is active when the callback is invoked.  "Special keys" are the -function keys, the arrow keys, the Page Up and Page Down keys, and the Insert -key.  The Delete key is considered to be a regular key.
-     Calling "glutSpecialUpFunc" with a NULL argument -disables the call to the window's special key release callback.

- -

    The "key -" argument may take one of the following defined constant values:

- -
    -
  • GLUT_KEY_F1, GLUT_KEY_F2, ..., GLUT_KEY_F12                             - - F1 through F12 keys
  • -
  • GLUT_KEY_PAGE_UP, GLUT_KEY_PAGE_DOWN                                           - - Page Up and Page Down keys
  • -
  • GLUT_KEY_HOME, GLUT_KEY_END                                                             - - Home and End keys
  • -
  • GLUT_KEY_LEFT, GLUT_KEY_RIGHT, GLUT_KEY_UP, GLUT_KEY_DOWN - - arrow keys
  • -
  • GLUT_KEY_INSERT                                                                                     - - Insert key
  • - -
- Changes From GLUT -

This function is not implemented in GLUT -versions before Version 4.  It has been designed to be as close to GLUT -as possible.  Users who find differences should contact the - freeglut Programming Consortium to -have them fixed.

- -

12.9  glutMouseFunc

- -

12.10  glutMotionFunc, glutPassiveMotionFunc

- -

12.11  glutVisibilityFunc

- -

12.12  glutEntryFunc

- -

12.13  glutJoystickFunc

- -

12.14  glutSpaceballMotionFunc

- The "glutSpaceballMotionFunc" function is not implemented in - freeglut, although the library does -"answer the mail" to the extent that a call to the function will not produce -an error.. -

Usage

- -

void glutSpaceballMotionFunc ( void -(* callback)( int x, int y, int z ) ) ;

- -

Description

- -

The "glutSpaceballMotionFunc - " function is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.15  glutSpaceballRotateFunc

- The "glutSpaceballRotateFunc" function is not implemented in - freeglut, although the library does -"answer the mail" to the extent that a call to the function will not produce -an error.. -

Usage

- -

void glutSpaceballRotateFunc ( void -(* callback)( int x, int y, int z ) ) ;

- -

Description

- -

The "glutSpaceballRotateFunc - " function is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.16  glutSpaceballButtonFunc

- The "glutSpaceballButtonFunc" function is not implemented in - freeglut, although the library does -"answer the mail" to the extent that a call to the function will not produce -an error.. -

Usage

- -

void glutSpaceballButtonFunc ( void -(* callback)( int button, int updown ) ) ;

- -

Description

- -

The "glutSpaceballButtonFunc - " function is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.17  glutButtonBoxFunc

- The "glutSpaceballButtonBoxFunc" function is not implemented -in freeglut, although the library does "answer the mail" to the extent -that a call to the function will not produce an error.. - -

Usage

- -

void glutSpaceballButtonBoxFunc ( -void (* callback)( int button, int updown ) ) ;

- -

Description

- -

The "glutSpaceballButtonBoxFunc - " function is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.18  glutDialsFunc

- The "glutDialsFunc" function is not implemented in freeglut - , although the library does "answer the mail" to the extent that a call -to the function will not produce an error.. - -

Usage

- -

void glutDialsFunc ( void (* callback)( -int dial, int value ) ) ;

- -

Description

- -

The "glutDialsFunc" function -is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.19  glutTabletMotionFunc

- The "glutTabletMotionFunc" function is not implemented in - freeglut, although the library does "answer the mail" to the extent -that a call to the function will not produce an error.. - -

Usage

- -

void glutTabletMotionFunc ( void -(* callback)( int x, int y ) ) ;

- -

Description

- -

The "glutTabletMotionFunc" function -is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.20  glutTabletButtonFunc

- The "glutTabletButtonFunc" function is not implemented in - freeglut, although the library does "answer the mail" to the extent -that a call to the function will not produce an error.. - -

Usage

- -

void glutTabletButtonFunc ( void -(* callback)( int button, int updown, int x, int y ) ) ;

- -

Description

- -

The "glutTabletButtonFunc" function -is not implemented in freeglut.

- -

Changes From GLUT

- -

GLUT implements this function.

- -

12.21  glutMenuStatusFunc

- -

12.22  glutWindowStatusFunc

- -

13.0  - State Setting and Retrieval Functions

- -

13.1  glutSetOption

- -

13.2  glutGet

- - -

-The following state variables may be queried with "glutGet". -The returned value is an integer. -

- -

-These queries are with respect to the current window: -

- -
    -
  • GLUT_WINDOW_X - window X position -
  • GLUT_WINDOW_Y - window Y position -
  • GLUT_WINDOW_WIDTH - window width -
  • GLUT_WINDOW_HEIGHT - window height -
  • GLUT_WINDOW_BUFFER_SIZE - number of color or color index bits per pixel -
  • GLUT_WINDOW_STENCIL_SIZE - number of bits per stencil value -
  • GLUT_WINDOW_DEPTH_SIZE - number of bits per depth value -
  • GLUT_WINDOW_RED_SIZE - number of bits per red value -
  • GLUT_WINDOW_GREEN_SIZE - number of bits per green value -
  • GLUT_WINDOW_BLUE_SIZE - number of bits per blue value -
  • GLUT_WINDOW_ALPHA_SIZE - number of bits per alpha value -
  • GLUT_WINDOW_ACCUM_RED_SIZE - number of red bits in the accumulation buffer -
  • GLUT_WINDOW_ACCUM_GREEN_SIZE - number of green bits in the accumulation buffer -
  • GLUT_WINDOW_ACCUM_BLUE_SIZE - number of blue bits in the accumulation buffer -
  • GLUT_WINDOW_ACCUM_ALPHA_SIZE - number of alpha bits in the accumulation buffer -
  • GLUT_WINDOW_DOUBLEBUFFER - 1 if the color buffer is double buffered, 0 otherwise -
  • GLUT_WINDOW_RGBA - 1 if the color buffers are RGB[A], 0 for color index -
  • GLUT_WINDOW_PARENT - parent window ID -
  • GLUT_WINDOW_NUM_CHILDREN - number of child windows -
  • GLUT_WINDOW_COLORMAP_SIZE - number of entries in the window's colormap -
  • GLUT_WINDOW_NUM_SAMPLES - number of samples per pixel if using multisampling -
  • GLUT_WINDOW_STEREO - 1 if the window supports stereo, 0 otherwise -
  • GLUT_WINDOW_CURSOR - current cursor -
  • GLUT_WINDOW_FORMAT_ID - on Windows, return the pixel format number of the current window -
- -

-These queries do not depend on the current window. -

- -
    -
  • GLUT_SCREEN_WIDTH - width of the screen in pixels -
  • GLUT_SCREEN_HEIGHT - height of the screen in pixels -
  • GLUT_SCREEN_WIDTH_MM - width of the screen in millimeters -
  • GLUT_SCREEN_HEIGHT_MM - height of the screen in millimeters -
  • GLUT_MENU_NUM_ITEMS - number of items in the current menu -
  • GLUT_DISPLAY_MODE_POSSIBLE - return 1 if the current display mode is supported, 0 otherwise -
  • GLUT_INIT_WINDOW_X - X position last set by glutInitWindowPosition -
  • GLUT_INIT_WINDOW_Y - Y position last set by glutInitWindowPosition -
  • GLUT_INIT_WINDOW_WIDTH - width last set by glutInitWindowSize -
  • GLUT_INIT_WINDOW_HEIGHT - height last set by glutInitWindowSize -
  • GLUT_INIT_DISPLAY_MODE - display mode last set by glutInitDisplayMode -
  • GLUT_ELAPSED_TIME - time (in milliseconds) elapsed since glutInit or glutGet(GLUT_ELAPSED_TIME) was first called -
  • GLUT_INIT_STATE - ? -
  • GLUT_VERSION - Return value will be X*10000+Y*100+Z where X is the - major version, Y is the minor version and Z is the patch level. - This query is only supported in freeglut (version 2.0.0 or later). -
- - -

13.3  glutDeviceGet

- -

13.4  glutGetModifiers

- -

13.5  glutLayerGet

- -

13.6  glutExtensionSupported

- -

13.7  glutGetProcAddress

-

glutGetProcAddress returns -a pointer to a named GL or freeglut function.

-

Usage

-

void *glutGetProcAddress ( const -char *procName ) ;

-

procName        - Name of an OpenGL or GLUT function. -

-

Description

-

glutGetProcAddress is useful -for dealing with OpenGL extensions. If an application calls OpenGL extension -functions directly, that application will only link/run with an OpenGL library -that supports the extension. By using a function pointer returned from glutGetProcAddress(), -the application will avoid this hard dependency and be more portable and interoperate -better with various implementations of OpenGL.

-

Both OpenGL functions and freeglut -functions can be queried with this function.

-

Changes From GLUT

- -

GLUT does not include this function. -

- -

14.0  - Font Rendering Functions

- Freeglut supports two types of font rendering:  bitmap fonts, - which are rendered using the "glBitmap" function call, and stroke - fonts, which are rendered as sequences of OpenGL line segments.  Because - they are rendered as bitmaps, the bitmap fonts tend to render more quickly - than stroke fonts, but they are less flexible in terms of scaling and rendering.  - Bitmap font characters are positioned with calls to the "glRasterPos* - " functions while stroke font characters use the OpenGL transformations -to position characters. -

    It should be noted -that freeglut fonts are similar but not identical to GLUT fonts.  -At the moment, freeglut fonts do not support the "`" (backquote) and -"|" (vertical line) characters; in their place it renders asterisks.

- -

    Freeglut supports -the following bitmap fonts:

- -
    -
  • GLUT_BITMAP_8_BY_13 - A variable-width font with every character - fitting in a rectangle of 13 pixels high by at most 8 pixels wide.
  • -
  • GLUT_BITMAP_9_BY_15 - A variable-width font with every character - fitting in a rectangle of 15 pixels high by at most 9 pixels wide.
  • -
  • GLUT_BITMAP_TIMES_ROMAN_10 - A 10-point variable-width Times -Roman font.
  • -
  • GLUT_BITMAP_TIMES_ROMAN_24 - A 24-point variable-width Times -Roman font.
  • -
  • GLUT_BITMAP_HELVETICA_10 - A 10-point variable-width Helvetica - font.
  • -
  • GLUT_BITMAP_HELVETICA_12 - A 12-point variable-width Helvetica - font.
  • -
  • GLUT_BITMAP_HELVETICA_18 - A 18-point variable-width Helvetica - font.
  • - -
- Freeglut calls "glRasterPos4v" to advance the cursor by -the width of a character and to render carriage returns when appropriate.  - It does not use any display lists in it rendering in bitmap fonts. - -

    Freeglut supports -the following stroke fonts:

- -
    -
  • GLUT_STROKE_ROMAN - A proportionally-spaced Roman Simplex -font
  • -
  • GLUT_STROKE_MONO_ROMAN - A fixed-width Roman Simplex font
  • - -
- Freeglut does not use any display lists in its rendering of stroke - fonts.  It calls "glTranslatef" to advance the cursor by the -width of a character and to render carriage returns when appropriate. - -

14.1  glutBitmapCharacter

- The "glutBitmapCharacter" function renders a single bitmapped -character in the current window using the specified font. - -

Usage

- -

void glutBitmapCharacter ( void *font, -int character ) ;

- -

font        - The bitmapped font to use in rendering -the character
- character   The ASCII -code of the character to be rendered

- -

Description

- -

The  "glutBitmapCharacter - " function renders the given character in the specified bitmap font.  - Freeglut automatically sets the necessary -pixel unpack storage modes and restores the existing modes when it has finished.  -Before the first call to "glutBitMapCharacter " the application -program should call "glRasterPos*" to set the position of the character -in the window.  The "glutBitmapCharacter " function advances -the cursor position as part of its call to "glBitmap " and so the -application does not need to call "glRasterPos*" again for successive -characters on the same line.

- -

Changes From GLUT

- -

Nonexistent characters are rendered as -asterisks.  The rendering position in freeglut is apparently off -from GLUT's position by a few pixels vertically and one or two pixels horizontally. -

- -

14.2  glutBitmapString

- The "glutBitmapString" function renders a string of bitmapped -characters in the current window using the specified font. - -

Usage

- -

void glutBitmapString ( void *font, -char *string ) ;

- -

font      - The bitmapped font to use in rendering -the character string
- string    String -of characters to be rendered

- -

Description

- -

The  "glutBitmapString - " function renders the given character string in the specified bitmap font.  - Freeglut automatically sets the necessary -pixel unpack storage modes and restores the existing modes when it has finished.  -Before calling "glutBitMapString" the application program should -call "glRasterPos*" to set the position of the string in the window.  -The "glutBitmapString" function handles carriage returns.  -Nonexistent characters are rendered as asterisks.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

14.3  glutBitmapWidth

- The "glutBitmapWidth" function returns the width in pixels of -a single bitmapped character in the specified font. - -

Usage

- -

int glutBitmapWidth ( void *font, -int character ) ;

- -

font        - The bitmapped font to use in calculating -the character width
- character   The ASCII -code of the character

- -

Description

- -

The  "glutBitmapWidth" -function returns the width of the given character in the specified bitmap -font.  Because the font is bitmapped, the width is an exact integer. -

- -

Changes From GLUT

- -

Nonexistent characters return the width -of an asterisk.

- -

14.4  glutBitmapLength

- The "glutBitmapLength" function returns the width in pixels of -a string of bitmapped characters in the specified font. - -

Usage

- -

int glutBitmapLength ( void *font, -char *string ) ;

- -

font    The bitmapped -font to use in calculating the character width
- string  String of characters -whose width is to be calculated

- -

Description

- -

The  "glutBitmapLength - " function returns the width in pixels of the given character string in -the specified bitmap font.  Because the font is bitmapped, the width -is an exact integer:  the return value is identical to the sum of the -character widths returned by a series of calls to "glutBitmapWidth -".  The width of nonexistent characters is counted to be the width of -an asterisk.

- -

    If the string contains -one or more carriage returns, freeglut calculates the widths in pixels -of the lines separately and returns the largest width.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

14.5  glutBitmapHeight

- The "glutBitmapHeight" function returns the height in pixels of - the specified font. -

Usage

- -

int glutBitmapHeight ( void *font -) ;

- -

font        - The bitmapped font to use in calculating -the character height

- -

Description

- -

The  "glutBitmapHeight - " function returns the height of a character in the specified bitmap font.  -Because the font is bitmapped, the height is an exact integer.  The fonts -are designed such that all characters have (nominally) the same height. -

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

14.6  glutStrokeCharacter

- The "glutStrokeCharacter" function renders a single stroke character - in the current window using the specified font. - -

Usage

- -

void glutStrokeCharacter ( void *font, -int character ) ;

- -

font        - The stroke font to use in rendering -the character
- character   The ASCII -code of the character to be rendered

- -

Description

- -

The  "glutStrokeCharacter - " function renders the given character in the specified stroke font.  -Before the first call to "glutStrokeCharacter" the application program -should call the OpenGL transformation (positioning and scaling) functions -to set the position of the character in the window.  The "glutStrokeCharacter - " function advances the cursor position by a call to "glTranslatef - " and so the application does not need to call the OpenGL positioning functions - again for successive characters on the same line.

- -

Changes From GLUT

- -

Nonexistent characters are rendered as -asterisks.

- -

14.7  glutStrokeString

- The "glutStrokeString" function renders a string of characters -in the current window using the specified stroke font. - -

Usage

- -

void glutStrokeString ( void *font, -char *string ) ;

- -

font      - The stroke font to use in rendering -the character string
- string    String -of characters to be rendered

- -

Description

- -

The  "glutStrokeString - " function renders the given character string in the specified stroke font.  -Before calling "glutStrokeString" the application program should -call the OpenGL transformation (positioning and scaling) functions to set -the position of the string in the window.  The "glutStrokeString - " function handles carriage returns.  Nonexistent characters are rendered -as asterisks.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

14.8  glutStrokeWidth

- The "glutStrokeWidth" function returns the width in pixels of -a single character in the specified stroke font. - -

Usage

- -

int glutStrokeWidth ( void *font, -int character ) ;

- -

font        - The stroke font to use in calculating -the character width
- character   The ASCII -code of the character

- -

Description

- -

The  "glutStrokeWidth" -function returns the width of the given character in the specified stroke -font.  Because the font is a stroke font, the width is actually a floating-point -number; the function rounds it to the nearest integer for the return value. -

- -

Changes From GLUT

- -

Nonexistent characters return the width -of an asterisk.

- -

14.9  glutStrokeLength

- The "glutStrokeLength" function returns the width in pixels of -a string of characters in the specified stroke font. - -

Usage

- -

int glutStrokeLength ( void *font, -char *string ) ;

- -

font    The stroke -font to use in calculating the character width
- string  String of characters -whose width is to be calculated

- -

Description

- -

The  "glutStrokeLength - " function returns the width in pixels of the given character string in -the specified stroke font.  Because the font is a stroke font, the width -of an individual character is a floating-point number.  Freeglut - adds the floating-point widths and rounds the funal result to return the -integer value.  Thus the return value may differ from the sum of the -character widths returned by a series of calls to "glutStrokeWidth - ".  The width of nonexistent characters is counted to be the width -of an asterisk.

- -

    If the string contains -one or more carriage returns, freeglut calculates the widths in pixels -of the lines separately and returns the largest width.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

14.10  glutStrokeHeight

- The "glutStrokeHeight" function returns the height in pixels of - the specified font. -

Usage

- -

GLfloat glutStrokeHeight ( void *font -) ;

- -

font        - The stroke font to use in calculating -the character height

- -

Description

- -

The  "glutStrokeHeight - " function returns the height of a character in the specified stroke font.  -The application programmer should note that, unlike the other freeglut - font functions, this one returns a floating-point number.  The fonts -are designed such that all characters have (nominally) the same height.

- -

Changes From GLUT

- -

GLUT does not include this function. -

- -

15.0  - Geometric Object Rendering Functions

- Freeglut includes eighteen routines for generating easily-recognizable - 3-d geometric objects.  These routines are effectively the same ones - that are included in the GLUT library, and reflect the functionality available - in the aux toolkit described in the OpenGL Programmer's Guide - .  They are included to allow programmers to create with a single -line of code a three-dimensional object which can be used to test a variety -of OpenGL functionality.  None of the routines generates a display list -for the object which it draws.  The functions generate normals appropriate -for lighting but, except for the teapon functions, do not generate texture -coordinates. -

15.1  glutWireSphere, glutSolidSphere

- The "glutWireSphere" and "glutSolidSphere" functions -draw a wireframe and solid sphere respectively. - -

Usage

- -

void glutWireSphere ( GLdouble dRadius, -GLint slices, GLint stacks ) ;

- -

void glutSolidSphere ( GLdouble dRadius, -GLint slices, GLint stacks ) ;

- -

dRadius       - The desired radius of the sphere

- -

slices        - The desired number of slices (divisions -in the longitudinal direction) in the sphere

- -

stacks        - The desired number of stacks (divisions -in the latitudinal direction) in the sphere.  The number of points in -this direction, including the north and south poles, is stacks+1 -

- -

Description

- -

The "glutWireSphere" and " - glutSolidSphere" functions render a sphere centered at the origin -of the modeling coordinate system.  The north and south poles of the -sphere are on the positive and negative Z-axes respectively and the prime -meridian crosses the positive X-axis.

- -

Changes From GLUT

- -

None that we know of.

- -

15.2  glutWireTorus, glutSolidTorus

- The "glutWireTorus" and "glutSolidTorus" functions draw - a wireframe and solid torus (donut shape) respectively. - -

Usage

- -

void glutWireTorus ( GLdouble dInnerRadius, -GLdouble dOuterRadius, GLint nSides, GLint nRings ) ;

- -

void glutSolidTorus ( GLdouble dInnerRadius, -GLdouble dOuterRadius, GLint nSides, GLint nRings ) ;

- -

dInnerRadius        - The desired inner radius of the torus, -from the origin to the circle defining the centers of the outer circles

- -

dOuterRadius        - The desired outer radius of the torus, -from the center of the outer circle to the actual surface of the torus

- -

nSides        - The desired number of segments in a -single outer circle of the torus

- -

nRings        - The desired number of outer circles -around the origin of the torus

- -

Description

- -

The "glutWireTorus" and " - glutSolidTorus" functions render a torus centered at the origin of -the modeling coordinate system.  The torus is circularly symmetric about -the Z-axis and starts at the positive X-axis.

- -

Changes From GLUT

- -

None that we know of.

- -

15.3  glutWireCone, glutSolidCone

- The "glutWireCone" and "glutSolidCone" functions draw -a wireframe and solid cone respectively. - -

Usage

- -

void glutWireCone ( GLdouble base, -GLdouble height, GLint slices, GLint stacks ) ;

- -

void glutSolidCone ( GLdouble base, -GLdouble height, GLint slices, GLint stacks ) ;

- -

base          - The desired radius of the base of the -cone

- -

height        - The desired height of the cone

- -

slices        - The desired number of slices around -the base of the cone

- -

stacks        - The desired number of segments between -the base and the tip of the cone (the number of points, including the tip, -is stacks + 1)

- -

Description

- -

The "glutWireCone" and " - glutSolidCone" functions render a right circular cone with a base -centered at the origin and in the X-Y plane and its tip on the positive Z-axis.  -The wire cone is rendered with triangular elements.

- -

Changes From GLUT

- -

None that we know of.

- -

15.4  glutWireCube, glutSolidCube

- The "glutWireCube" and "glutSolidCube" functions draw -a wireframe and solid cube respectively. - -

Usage

- -

void glutWireCube ( GLdouble dSize -) ;

- -

void glutSolidCube ( GLdouble dSize -) ;

- -

dSize         - The desired length of an edge of the -cube

- -

Description

- -

The "glutWireCube" and " - glutSolidCube" functions render a cube of the desired size, centered -at the origin.  Its faces are normal to the coordinate directions.

- -

Changes From GLUT

- -

None that we know of.

- -

15.5  glutWireTetrahedron, glutSolidTetrahedron

- The "glutWireTetrahedron" and "glutSolidTetrahedron" -functions draw a wireframe and solid tetrahedron (four-sided Platonic solid) -respectively. -

Usage

- -

void glutWireTetrahedron ( void ) -;

- -

void glutSolidTetrahedron ( void -) ;

- -

Description

- -

The "glutWireTetrahedron" and -"glutSolidTetrahedron" functions render a tetrahedron whose corners -are each a distance of one from the origin.  The length of each side -is 2/3 sqrt(6).  One corner is on the positive X-axis and another is -in the X-Y plane with a positive Y-coordinate.

- -

Changes From GLUT

- -

None that we know of.

- -

15.6  glutWireOctahedron, glutSolidOctahedron

- The "glutWireOctahedron" and "glutSolidOctahedron" functions - draw a wireframe and solid octahedron (eight-sided Platonic solid) respectively. - -

Usage

- -

void glutWireOctahedron ( void ) -;

- -

void glutSolidOctahedron ( void ) -;

- -

Description

- -

The "glutWireOctahedron" and -"glutSolidOctahedron" functions render an octahedron whose corners -are each a distance of one from the origin.  The length of each side -is sqrt(2).  The corners are on the positive and negative coordinate -axes.

- -

Changes From GLUT

- -

None that we know of.

- -

15.7  glutWireDodecahedron, glutSolidDodecahedron

- The "glutWireDodecahedron" and "glutSolidDodecahedron -" functions draw a wireframe and solid dodecahedron (twelve-sided Platonic -solid) respectively. -

Usage

- -

void glutWireDodecahedron ( void -) ;

- -

void glutSolidDodecahedron ( void -) ;

- -

Description

- -

The "glutWireDodecahedron" and -"glutSolidDodecahedron" functions render a dodecahedron whose corners -are each a distance of sqrt(3) from the origin.  The length of each -side is sqrt(5)-1.  There are twenty corners; interestingly enough, -eight of them coincide with the corners of a cube with sizes of length 2. -

- -

Changes From GLUT

- -

None that we know of.

- -

15.8  glutWireIcosahedron, glutSolidIcosahedron

- The "glutWireIcosahedron" and "glutSolidIcosahedron" -functions draw a wireframe and solid icosahedron (twenty-sided Platonic solid) -respectively. -

Usage

- -

void glutWireIcosahedron ( void ) -;

- -

void glutSolidIcosahedron ( void -) ;

- -

Description

- -

The "glutWireIcosahedron" and -"glutSolidIcosahedron" functions render an icosahedron whose corners -are each a unit distance from the origin.  The length of each side is -slightly greater than one.  Two of the corners lie on the positive and -negative X-axes.

- -

Changes From GLUT

- -

None that we know of.

- -

15.7  glutWireRhombicDodecahedron, -glutSolidRhombicDodecahedron

- The "glutWireRhombicDodecahedron" and "glutSolidRhombicDodecahedron - " functions draw a wireframe and solid rhombic dodecahedron (twelve-sided - semi-regular solid) respectively. -

Usage

- -

void glutWireRhombicDodecahedron -( void ) ;

- -

void glutSolidRhombicDodecahedron -( void ) ;

- -

Description

- -

The "glutWireRhombicDodecahedron - " and "glutSolidRhombicDodecahedron" functions render a rhombic -dodecahedron whose corners are at most a distance of one from the origin.  -The rhombic dodecahedron has faces which are identical rhombuses (rhombi?) -but which have some vertices at which three faces meet and some vertices at -which four faces meet.  The length of each side is sqrt(3)/2.  Vertices -at which four faces meet are found at (0, 0, +1) and ( +sqrt(2)/2, - +sqrt(2)/2, 0).

- -

Changes From GLUT

- -

GLUT does not include these functions. -

- -

15.10  glutWireTeapot, glutSolidTeapot

- The "glutWireTeapot" and "glutSolidTeapot" functions -draw a wireframe and solid teapot respectively. - -

Usage

- -

void glutWireTeapot ( GLdouble dSize -) ;

- -

void glutSolidTeapot ( GLdouble dSize -) ;

- -

dSize         - The desired size of the teapot

- -

Description

- -

The "glutWireTeapot" and " - glutSolidTeapot" functions render a teapot of the desired size, centered -at the origin.  This is the famous OpenGL teapot [add reference].

- -

Changes From GLUT

- -

None that we know of.

- -

16.0  - Game Mode Functions

- -

16.1  glutGameModeString

- -

16.2  glutEnterGameMode, glutLeaveGameMode

- -

16.3  glutGameModeGet

- -

17.0  - Video Resize Functions

- -

17.1  glutVideoResizeGet

- -

17.2  glutSetupVideoResizing, -glutStopVideoResizing

- -

17.3  glutVideoResize

- -

17.4  glutVideoPan

- -

18.0  - Color Map Functions

- -

18.1  glutSetColor, glutGetColor

- -

18.2  glutCopyColormap

- -

19.0  - Miscellaneous Functions

- -

19.1  glutIgnoreKeyRepeat, glutSetKeyRepeat

- -

19.2  glutForceJoystickFunc

- -

19.3  glutReportErrors

- -

20.0  - Usage Notes

- -

The following environment variables -are recognized by freeglut:

-
    -
  • DISPLAY - specifies a display name.
    -
  • -
  • GLUT_FPS - specifies a time interval -(in milliseconds) for reporting framerate messages to stderr. For example, -if FREEGLUT_FPS is set to 5000, every 5 seconds a message will be printed -to stderr showing the current frame rate. The frame rate is measured by counting -the number of times glutSwapBuffers() is called over the time interval.
  • -
  • GLUT_ICON - specifies the icon that -goes in the upper left-hand corner of the freeglut windows
  • -
-

21.0  - Implementation Notes

- -

22.0  -GLUT State

- -

23.0  -"freeglut.h" Header File

- - -

-Application programmers who are porting their GLUT programs to freeglut may continue -to include <GL/glut.h> in their programs. -Programs which use the freeglut-specific extensions to GLUT should include -<GL/freeglut.h>. One possible arrangement is as follows: -

- -
-#ifdef FREEGLUT
-#include <GL/freeglut_ext.h>
-#else
-#include <GL/glut.h>
-#endif
-
- -

-Compile-time freeglut version testing can be done as follows: -

- -
-#ifdef FREEGLUT_VERSION_2_0
-  code specific to freeglut 2.0 or later here
-#endif
-
- -

-In future releases, FREEGLUT_VERSION_2_1, FREEGLUT_VERSION_2_2, etc will -be defined. This scheme mimics OpenGL conventions. -

- -

-The freeglut version can be queried at runtime by calling -glutGet(GLUT_VERSION). -The result will be X*10000+Y*100+Z where X is the major version, Y is the -minor version and Z is the patch level. -

-

-This may be used as follows: -

- -
-if (glutGet(GLUT_VERSION) < 20001) {
-    printf("Sorry, you need freeglut version 2.0.1 or later to run this program.\n");
-    exit(1);
-}
-
- - - -

24.0  -References

- -

25.0  -Index

-  -

 
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  

- - - diff --git a/internal/c/parts/core/android_core/doc/index.html b/internal/c/parts/core/android_core/doc/index.html deleted file mode 100644 index 730647779..000000000 --- a/internal/c/parts/core/android_core/doc/index.html +++ /dev/null @@ -1,101 +0,0 @@ - - -The freeglut project - - - - - - - - -
- -
The freeglut logo
-
The free OpenGL utility toolkit
- -
- -
- -

-
Hosted at SourceForge
-
- -
- -
    - -
  • What -

    -freeglut is a completely OpenSourced alternative to the OpenGL Utility -Toolkit (GLUT) library. GLUT was originally written by Mark Kilgard -to support the sample programs in the second edition OpenGL 'RedBook'. -Since then, GLUT has been used in a wide variety of practical applications -because it is simple, universally available and highly portable. -

    -GLUT (and hence freeglut) allows the user to create and manage -windows containing OpenGL contexts on a wide range of platforms and -also read the mouse, keyboard and joystick functions. -

    -freeglut is released under the X-Consortium license. -

    - -

  • Why -

    -The original GLUT library seems to have been abandoned with the most -recent version (3.7) dating back to August 1998. It's license does -not allow anyone to distribute modified the library code. This would -be OK, if not for the fact that GLUT is getting old and really needs -improvement. Also, GLUT's license is incompatible with some software -distributions (eg Xfree86). -

    - -

  • Who -

    -freeglut was originally written by Pawel W. Olszta with contributions -from Andreas Umbach and Steve Baker. Steve is now the official -owner/maintainer of freeglut. -

    - -

  • When -

    -Pawel started freeglut development on December 1st, 1999. -The project is now a virtually 100% replacement for the original -GLUT with only a few departures (such as the abandonment of SGI-specific -features such as the Dials&Buttons box and Dynamic Video Resolution). -

    - -

  • Downloads -

    -Check the -downloads page for the latest release. -

    - -

  • Support -

    -Send freeglut related questions to the appropriate freeglut mailing list: -

    -You can subscribe to them via the - -SourceForge project interface. -

    - -

  • Documentation -

    -I believe this is enough for a short introduction. -If you are not tired of reading yet, check out the -freeglut project log. Here you will find the -yet-to-be-introduced new project structure -description. Finally, here you will find the latest -work progress report. Since freeglut is -a re-implementation of the original GLUT API, you can find API -documentation at http://www.opengl.org. -

    -

- - diff --git a/internal/c/parts/core/android_core/doc/ogl_sm.png b/internal/c/parts/core/android_core/doc/ogl_sm.png deleted file mode 100644 index 80baefc64..000000000 Binary files a/internal/c/parts/core/android_core/doc/ogl_sm.png and /dev/null differ diff --git a/internal/c/parts/core/android_core/doc/progress.html b/internal/c/parts/core/android_core/doc/progress.html deleted file mode 100644 index 2c13c7141..000000000 --- a/internal/c/parts/core/android_core/doc/progress.html +++ /dev/null @@ -1,137 +0,0 @@ - - - - - - - - - - The freeglut project - - - -
The freeglut logo
-
-I love reports. They are so full of brightness and hope... -
- -

- -

January the 16th, 2000 - -

It looks like both X11 and Win32 version have reached a comparable usability stage. -They are still missing many GLUT API 3 features, but the number is getting smaller and -smaller every day :) - -

  • input devices
  • - -

    Keyboard and mouse seems to work well. There is a big guess about the mouse buttons -count under X11 (always 3) -- I must remember to correct the menu activation code if -this shows to be invalid. - -

    None of the bizarre input devices found in GLUT API is supported (and probably won't). - -

    Steve Baker contributed the joystick code. It should work fine, as it did in PLIB, -but I haven't tested it out yet. It might not compile under FreeBSD, as I had to -convert it from C++ to C and had no possibility to compile it under FreeBSD (the Win32 -version had some typos, but I've already fixed them). - -

  • pull-down menus
  • - -

    Pull down menus seem to work. The menu is displayed using OpenGL, so it requires -the window's contents to be refreshed at an interactive rate, which sometimes does not -happen. That's why I'll consider adding optional window-system menu navigation later. -For now -- extensive testing is what I believe should be done with the menu system. - -

  • fonts
  • - -

    Bitmap fonts support is done. However it would be good to add two more API functions --- glutBitmapString() and glutStrokeString(), which should limit the quantity of state -changes when drawing longer strings. - -

    Good that somebody finally told me where to get the stroke fonts data from... XFree86 -sources contain the ROMAN and MONO ROMAN stroke fonts data. For now stroke fonts are -rendered using the bitmap font GLUT_BITMAP_8_BY_13. - -

    What has changed is the way the fonts are specified. I moved to the GLUT's strange -way of supplying (fake for freeglut) font data pointers instead of some nice enums. -Hope it helps in achieving the binary compatibility between freeglut and GLUT. - -

    Added two new API calls: glutBitmapHeight() and glutStrokeHeight(), that return -a font's height. Hope this doesn't break the GLUT compatibility a lot. - -

  • mouse cursor
  • - -

    Need to have own cursor shapes, so that freeglut can pass them to the windowing -system, draw them using glBitmap() and/or texture mapping. The cursor shapes are very -probable to be found in XFree86 sources. - -

  • indexed color mode
  • - -

    This might work, however I have not tested it yet. glutGetColor/glutSetColor is not -implemented. Again, looks like a single Xlib call, but there might be some problems -with the colormap access. Need to switch into indexed color mode some day and check it -out (does Mesa 3.1 work with indexed color mode?) - -

  • planes
  • - -

    Overlays are not supported, but one of the GLUT conformance tests fails due to -glutLayerGet( GLUT_NORMAL_DAMAGED ) returning FALSE when the window has actually -been damaged. - -

    Layers would be good for drawing the menus and mouse cursor, as they wouldn't force -the application redraw to update their state. - -

  • init display string
  • - -

    I am in middle of the fight with the init display string. It's parsing OK, now it -would be cool to make it impress some effects on the display... - -

  • game mode
  • - -

    Is the game mode string parsed correctly? - -

  • geometry
  • - -

    Andreas Umbach has contributed the cube and sphere code. The teapot rendering is -done using free SGI code. I have also added the cone rendering, however it is missing -normal vectors (just as Andrea's wireframed cube does). All of the glut*hedron() -functions await to be implemented. - -

  • obvious bugs
  • - -

      -
    1. -the visibility/window status function is a conceptual mess. I had to peer into the GLUT -source code to see what actually happens inside. It helped me a bit, but still one of -the visibility tests fails. This is probably the reason for which a window covered by -enlightenment status bar is marked as hidden and does not get redrawn.
    2. - -
    3. -GLX 1.3 spec states that glXChooseVisual() et consortes are deprecated. Should move to -glXFBConfig.
    4. - -
    5. -need to investigate what happens when initial window position is set to (-1,-1). GLUT -specification says, that the window positioning should be left to the window system. -And I do not know how to force it do so...
    6. - -
    7. -I was told it is wrong to have the redisplay forced in the main loop. Is that right?
    8. - -

  • not so obvious bugs
  • - -

      -
    1. some of the tests freeze because they do not generate the glutPostRedisplay() call -every frame. Again, this is somehow handled by GLUT, but I can't see how. And why. - -

      Looks like I've fixed it (or rather hacked it?) by forcing a redisplay every -frame, but this is no good and kills interactiveness of my console :D

    2. - -
- -Back to the main page - -
- diff --git a/internal/c/parts/core/android_core/doc/structure.html b/internal/c/parts/core/android_core/doc/structure.html deleted file mode 100644 index 2cc5ddda0..000000000 --- a/internal/c/parts/core/android_core/doc/structure.html +++ /dev/null @@ -1,80 +0,0 @@ - - - - - - - - - - The freeglut project - - - -
The freeglut logo
-
-I've got a master plan (to take your API down)... -
- -

- -

After that I get the freeglut Windows port working in an acceptable manner and thus -getting assured that the freeglut internal structure is valid, I will split the project -into three separate parts, listed below. - -

  • freeglut-common
  • - -

    The least common denominator between the two freeglut versions. This will probably -contain most of the internal structure of the toolkit, notably the windows and menu -hierarchy, and possibly some private helpers. - -

  • freeglut-1.3
  • - -

    The GLUT API 3 compatible library. This is what's can be found now in the alpha -release (apart from the bugs, naturally :D). - -

  • freeglut-2.0
  • - -

    Hopefully this will be what GLUT should have been from the beginning. I will give -a try to design a much more coherent API than GLUT's, aiming at fast games prototyping. -Suggestions are welcome.

- -

Here's a list of propositions I have received so far. Hopefully this some day -turns into an API spefication proposal, not just a bunch of meaningless phrases...
- -

  • glutBitmapHeight() and glutStrokeHeight() -- I have added them to the -freeglut-1.3 API, they are already implemented and should work fine,
  • -
  • glutBitmapString() and glutStrokeString(), to write (multiple-line maybe) -strings, starting from the current raster position, using some simple formatting -maybe (changing the color, font, etc.?)
  • -
  • texture mapped fonts -- this is easy and could be added to freeglut-1.3, but -would require adding the...
  • -
  • glutHint() function to tell freeglut to: use bitmapped/texture mapped fonts, -draw the menus and mouse cursor using OpenGL/window system, and stuff...
  • -
  • glutMainLoop() termination and glutMainLoopStep() function, which should -perform a single check of pending events, so that one can have his own main loop,
  • -
  • multiple joysticks support with multiple axes, buttons, hats, etc. It is a real -good thing to do, yet the API to do the magic might result in being really twisted,
  • -
  • glutModifierFunc() could be added, or glutGetModifierState() should be allowed -to be called anywhere from the client's code
  • - -

    We might also think about:
    - -

  • freeglut-2.0 modularity via plugins, so that only the features that one -needs get loaded (plugins are easily supported by GLib),
  • -
  • OpenGL state management functions,
  • -
  • audio support -- using OpenAL maybe?,
  • -
  • a real menu system, not only the popups
  • -
  • non-OpenGL but portable UI, something like Java Swing
  • -
  • window-closing confirmation box (this is related to the above)
  • - -

    Following ideas are bad for freeglut:
    - -

  • more accurate timers under Win32 -- this goes to the GLib development afaik
  • -
  • portable file I/O, portable threads, plugins/modules -- this is already -done in GLib
  • - -

    Back to the main page - -
    - diff --git a/internal/c/parts/core/android_core/freeglut.lsm b/internal/c/parts/core/android_core/freeglut.lsm deleted file mode 100644 index a4ece73f9..000000000 --- a/internal/c/parts/core/android_core/freeglut.lsm +++ /dev/null @@ -1,14 +0,0 @@ -Begin3 -Title: freeglut -Version: 2.0.0 -Entered-date: -Description: The free OpenGL utility toolkit, alternative to the GLUT library -Keywords: -Author: Pawel W. Olszta -Maintained-by: Stephen J. Baker -Primary-site: http://freeglut.sourceforge.net -Home-page: http://freeglut.sourceforge.net -Original-site: -Platforms: Linux and other Unices; Windows -Copying-policy: X-Consortium style license -End diff --git a/internal/c/parts/core/android_core/freeglut.pc.in b/internal/c/parts/core/android_core/freeglut.pc.in deleted file mode 100644 index d28872e51..000000000 --- a/internal/c/parts/core/android_core/freeglut.pc.in +++ /dev/null @@ -1,10 +0,0 @@ -prefix=@CMAKE_INSTALL_PREFIX@ -libdir=${prefix}/lib -includedir=${prefix}/include - -Name: glut -Description: A freely licensed and improved alternative to the GLUT library -Version: @VERSION_MAJOR@.@VERSION_MINOR@.@VERSION_PATCH@ -Libs: -L${libdir} -lglut -Libs.private: @LIBS_PRIVATE@ -Cflags: -I${includedir} diff --git a/internal/c/parts/core/android_core/freeglut.rc.in b/internal/c/parts/core/android_core/freeglut.rc.in deleted file mode 100644 index 938cb7a64..000000000 --- a/internal/c/parts/core/android_core/freeglut.rc.in +++ /dev/null @@ -1,40 +0,0 @@ - -/* 0 ICON DISCARDABLE "OpenGL.ico" */ - -1 VERSIONINFO - FILEVERSION @VERSION_MAJOR@,@VERSION_MINOR@,@VERSION_PATCH@,0 - PRODUCTVERSION @VERSION_MAJOR@,@VERSION_MINOR@,@VERSION_PATCH@,0 - FILEFLAGSMASK 0x3fL -#ifdef _DEBUG - FILEFLAGS 0x1L -#else - FILEFLAGS 0x0L -#endif - FILEOS 0x40004L - FILETYPE 0x1L - FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "080904b0" - BEGIN - /* VALUE "Comments", "\0" */ - /* VALUE "CompanyName", "\0" */ - VALUE "FileDescription", "Freeglut OpenGL Utility Toolkit\0" - VALUE "FileVersion", "@VERSION_MAJOR@, @VERSION_MINOR@, @VERSION_PATCH@, 0\0" - VALUE "InternalName", "freeglutdll\0" - VALUE "LegalCopyright", "Copyright © 1999-2000 Pawel W. Olszta, 2000-2012 Stephen J. Baker\0" - /* VALUE "LegalTrademarks", "\0" */ - VALUE "OriginalFilename", "freeglut.dll\0" - /* VALUE "PrivateBuild", "\0" */ - VALUE "ProductName", "Freeglut OpenGL Utility Toolkit\0" - VALUE "ProductVersion", "@VERSION_MAJOR@, @VERSION_MINOR@, @VERSION_PATCH@, 0\0" - /* VALUE "SpecialBuild", "\0" */ - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x809, 1200 - END -END - diff --git a/internal/c/parts/core/android_core/freeglut.spec b/internal/c/parts/core/android_core/freeglut.spec deleted file mode 100644 index f828f6d38..000000000 --- a/internal/c/parts/core/android_core/freeglut.spec +++ /dev/null @@ -1,147 +0,0 @@ -# -# spec file for package freeglut (Version 2.6.0) -# -# Copyright (c) 2005 SUSE LINUX Products GmbH, Nuernberg, Germany. -# This file and all modifications and additions to the pristine -# package are under the same license as the package itself. -# -# Please submit bugfixes or comments via http://www.suse.de/feedback/ -# - -# norootforbuild -# usedforbuild Mesa Mesa-devel aaa_base acl attr audit-libs autoconf automake bash bind-libs bind-utils binutils bison bzip2 coreutils cpio cpp cracklib cvs cyrus-sasl db diffutils e2fsprogs expat file filesystem fillup findutils flex fontconfig fontconfig-devel gawk gcc gcc-c++ gdbm gdbm-devel gettext gettext-devel glibc glibc-devel glibc-locale gpm grep groff gzip info insserv klogd less libacl libattr libcom_err libdrm libdrm-devel libgcc libnscd libstdc++ libstdc++-devel libtool libxcrypt libzio m4 make man mktemp module-init-tools ncurses ncurses-devel net-tools netcfg openldap2-client openmotif-libs openssl pam pam-modules patch perl permissions popt procinfo procps psmisc pwdutils rcs readline rpm sed strace sysvinit tar tcpd texinfo timezone unzip util-linux vim xorg-x11-devel xorg-x11-libs zlib zlib-devel - -BuildRequires: Mesa-devel gcc-c++ libdrm-devel - -Name: freeglut -Summary: Freely Licensed Alternative to the GLUT Library -Version: 2.6.0 -Release: 1 -URL: http://freeglut.sourceforge.net/ -Source0: http://switch.dl.sourceforge.net/sourceforge/freeglut/freeglut-%{version}.tar.gz -# NOTE: SuSE adds the original GLUT man pages. If you don't have the file -# below, comment that line out and remove "-b1" from the setup macro. -Source1: glutman.tar.bz2 -License: X11/MIT -Provides: mesaglut -Obsoletes: mesaglut -Group: System/Libraries -BuildRoot: %{_tmppath}/%{name}-%{version}-build - -%description -freeglut is a completely Open Source alternative to the OpenGL Utility -Toolkit (GLUT) library. GLUT was originally written by Mark Kilgard to -support the sample programs in the second edition OpenGL Redbook. Since -then, GLUT has been used in a wide variety of practical applications -because it is simple, universally available, and highly portable. - -GLUT (and freeglut) allow the user to create and manage windows -containing OpenGL contexts and also read the mouse, keyboard, and -joystick functions on a wide range of platforms. - - - -Authors: --------- - Pawel W. Olszta - Andreas Umbach - Steve Baker - -%package devel -Summary: Development Package for freeglut (GLUT Library) -Group: Development/Libraries/X11 -Requires: %{name} = %{version}-%{release} -Provides: mesaglut-devel -Obsoletes: mesaglut-devel - -%description devel -Freeglut (GLUT library) development package. - - - -%debug_package -%prep -%setup -q -b1 - -%build -./autogen.sh -CFLAGS="$RPM_OPT_FLAGS" \ - ./configure --prefix=/usr --libdir=%_libdir -make %{?jobs:-j%jobs} - -%install -rm -rf $RPM_BUILD_ROOT - -%makeinstall -# GLUT manual pages -touch man-pages -if test -d ../glut-3.7 ; then - mkdir -p ${RPM_BUILD_ROOT}/%{_mandir}/man3 - dir=`pwd` - pushd ../glut-3.7 - for i in man/glut/glut*; do - install -m 644 $i ${RPM_BUILD_ROOT}/%{_mandir}/man3/`basename $i man`3 - gzip -9 ${RPM_BUILD_ROOT}/%{_mandir}/man3/`basename $i man`3 - echo %{_mandir}/man3/`basename $i man`3.gz >> ${dir}/man-pages - done - popd -fi - -%post -%run_ldconfig - -%postun -%run_ldconfig - -%clean -rm -rf $RPM_BUILD_ROOT - -%files -%defattr(-,root,root) -%{_libdir}/libglut.so.* - -%files devel -f man-pages -%defattr(-,root,root) -%{_includedir}/GL/* -%{_libdir}/libglut.a -%{_libdir}/libglut.la -%{_libdir}/libglut.so - -%changelog -n freeglut -* Sun Apr 05 2009 - sven.panne@aedion.de -- updated to release 2.6.0 -* Sat Aug 05 2006 - sven.panne@aedion.de -- Updated build requirements for SuSE 10.1 -* Mon Jun 13 2005 - sven.panne@aedion.de -- updated to release 2.4.0 -- use autogen.sh -- no need to remove demos -- conditionalized handling of GLUT manual pages -* Thu Apr 29 2004 - coolo@suse.de -- build parallel if available -- build as user -* Mon Dec 15 2003 - sndirsch@suse.de -- updated to release 2.2.0 - * Mousewheel Support for Win32 & X11 - * More unified Win32/*nix behavior and code - * Code style cleanups - * Visibility support in Win32 - * Many other Good Bug Fixes -* Sat Dec 06 2003 - sndirsch@suse.de -- updated to release 2.0.1 - * fixes a number of bugs with menus -* Fri Oct 10 2003 - adrian@suse.de -- fix build for mips -- satisfy configure checks -* Thu Oct 02 2003 - sndirsch@suse.de -- provides/obsoletes mesaglut/mesglut-devel now -* Tue Sep 30 2003 - sndirsch@suse.de -- removed demos -* Tue Sep 30 2003 - sndirsch@suse.de -- added GLUT manual pages -* Mon Sep 29 2003 - sndirsch@suse.de -- updated to final release 2.0.0 -* Thu Aug 14 2003 - sndirsch@suse.de -- added GameMode fix (GameModeFixes-4.dif) -* Thu Aug 07 2003 - sndirsch@suse.de -- created package diff --git a/internal/c/parts/core/android_core/include/GL/freeglut.h b/internal/c/parts/core/android_core/include/GL/freeglut.h deleted file mode 100644 index 241b7fc8f..000000000 --- a/internal/c/parts/core/android_core/include/GL/freeglut.h +++ /dev/null @@ -1,22 +0,0 @@ -#ifndef __FREEGLUT_H__ -#define __FREEGLUT_H__ - -/* - * freeglut.h - * - * The freeglut library include file - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include "freeglut_std.h" -#include "freeglut_ext.h" - -/*** END OF FILE ***/ - -#endif /* __FREEGLUT_H__ */ diff --git a/internal/c/parts/core/android_core/include/GL/freeglut_ext.h b/internal/c/parts/core/android_core/include/GL/freeglut_ext.h deleted file mode 100644 index a1d7ea165..000000000 --- a/internal/c/parts/core/android_core/include/GL/freeglut_ext.h +++ /dev/null @@ -1,237 +0,0 @@ -#ifndef __FREEGLUT_EXT_H__ -#define __FREEGLUT_EXT_H__ - -/* - * freeglut_ext.h - * - * The non-GLUT-compatible extensions to the freeglut library include file - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 2 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifdef __cplusplus - extern "C" { -#endif - -/* - * Additional GLUT Key definitions for the Special key function - */ -#define GLUT_KEY_NUM_LOCK 0x006D -#define GLUT_KEY_BEGIN 0x006E -#define GLUT_KEY_DELETE 0x006F -#define GLUT_KEY_SHIFT_L 0x0070 -#define GLUT_KEY_SHIFT_R 0x0071 -#define GLUT_KEY_CTRL_L 0x0072 -#define GLUT_KEY_CTRL_R 0x0073 -#define GLUT_KEY_ALT_L 0x0074 -#define GLUT_KEY_ALT_R 0x0075 - -/* - * GLUT API Extension macro definitions -- behaviour when the user clicks on an "x" to close a window - */ -#define GLUT_ACTION_EXIT 0 -#define GLUT_ACTION_GLUTMAINLOOP_RETURNS 1 -#define GLUT_ACTION_CONTINUE_EXECUTION 2 - -/* - * Create a new rendering context when the user opens a new window? - */ -#define GLUT_CREATE_NEW_CONTEXT 0 -#define GLUT_USE_CURRENT_CONTEXT 1 - -/* - * Direct/Indirect rendering context options (has meaning only in Unix/X11) - */ -#define GLUT_FORCE_INDIRECT_CONTEXT 0 -#define GLUT_ALLOW_DIRECT_CONTEXT 1 -#define GLUT_TRY_DIRECT_CONTEXT 2 -#define GLUT_FORCE_DIRECT_CONTEXT 3 - -/* - * GLUT API Extension macro definitions -- the glutGet parameters - */ -#define GLUT_INIT_STATE 0x007C - -#define GLUT_ACTION_ON_WINDOW_CLOSE 0x01F9 - -#define GLUT_WINDOW_BORDER_WIDTH 0x01FA -#define GLUT_WINDOW_HEADER_HEIGHT 0x01FB - -#define GLUT_VERSION 0x01FC - -#define GLUT_RENDERING_CONTEXT 0x01FD -#define GLUT_DIRECT_RENDERING 0x01FE - -#define GLUT_FULL_SCREEN 0x01FF - -/* - * New tokens for glutInitDisplayMode. - * Only one GLUT_AUXn bit may be used at a time. - * Value 0x0400 is defined in OpenGLUT. - */ -#define GLUT_AUX 0x1000 - -#define GLUT_AUX1 0x1000 -#define GLUT_AUX2 0x2000 -#define GLUT_AUX3 0x4000 -#define GLUT_AUX4 0x8000 - -/* - * Context-related flags, see freeglut_state.c - * Set the requested OpenGL version - */ -#define GLUT_INIT_MAJOR_VERSION 0x0200 -#define GLUT_INIT_MINOR_VERSION 0x0201 -#define GLUT_INIT_FLAGS 0x0202 -#define GLUT_INIT_PROFILE 0x0203 - -/* - * Flags for glutInitContextFlags, see freeglut_init.c - */ -#define GLUT_DEBUG 0x0001 -#define GLUT_FORWARD_COMPATIBLE 0x0002 - - -/* - * Flags for glutInitContextProfile, see freeglut_init.c - */ -#define GLUT_CORE_PROFILE 0x0001 -#define GLUT_COMPATIBILITY_PROFILE 0x0002 - -/* - * Process loop function, see freeglut_main.c - */ -FGAPI void FGAPIENTRY glutMainLoopEvent( void ); -FGAPI void FGAPIENTRY glutLeaveMainLoop( void ); -FGAPI void FGAPIENTRY glutExit ( void ); - -/* - * Window management functions, see freeglut_window.c - */ -FGAPI void FGAPIENTRY glutFullScreenToggle( void ); -FGAPI void FGAPIENTRY glutLeaveFullScreen( void ); - -/* - * Window-specific callback functions, see freeglut_callbacks.c - */ -FGAPI void FGAPIENTRY glutMouseWheelFunc( void (* callback)( int, int, int, int ) ); -FGAPI void FGAPIENTRY glutCloseFunc( void (* callback)( void ) ); -FGAPI void FGAPIENTRY glutWMCloseFunc( void (* callback)( void ) ); -/* A. Donev: Also a destruction callback for menus */ -FGAPI void FGAPIENTRY glutMenuDestroyFunc( void (* callback)( void ) ); - -/* - * State setting and retrieval functions, see freeglut_state.c - */ -FGAPI void FGAPIENTRY glutSetOption ( GLenum option_flag, int value ); -FGAPI int * FGAPIENTRY glutGetModeValues(GLenum mode, int * size); -/* A.Donev: User-data manipulation */ -FGAPI void* FGAPIENTRY glutGetWindowData( void ); -FGAPI void FGAPIENTRY glutSetWindowData(void* data); -FGAPI void* FGAPIENTRY glutGetMenuData( void ); -FGAPI void FGAPIENTRY glutSetMenuData(void* data); - -/* - * Font stuff, see freeglut_font.c - */ -FGAPI int FGAPIENTRY glutBitmapHeight( void* font ); -FGAPI GLfloat FGAPIENTRY glutStrokeHeight( void* font ); -FGAPI void FGAPIENTRY glutBitmapString( void* font, const unsigned char *string ); -FGAPI void FGAPIENTRY glutStrokeString( void* font, const unsigned char *string ); - -/* - * Geometry functions, see freeglut_geometry.c - */ -FGAPI void FGAPIENTRY glutWireRhombicDodecahedron( void ); -FGAPI void FGAPIENTRY glutSolidRhombicDodecahedron( void ); -FGAPI void FGAPIENTRY glutWireSierpinskiSponge ( int num_levels, GLdouble offset[3], GLdouble scale ); -FGAPI void FGAPIENTRY glutSolidSierpinskiSponge ( int num_levels, GLdouble offset[3], GLdouble scale ); -FGAPI void FGAPIENTRY glutWireCylinder( GLdouble radius, GLdouble height, GLint slices, GLint stacks); -FGAPI void FGAPIENTRY glutSolidCylinder( GLdouble radius, GLdouble height, GLint slices, GLint stacks); - -/* - * Extension functions, see freeglut_ext.c - */ -typedef void (*GLUTproc)(); -FGAPI GLUTproc FGAPIENTRY glutGetProcAddress( const char *procName ); - -/* - * Multi-touch/multi-pointer extensions - */ - -#define GLUT_HAS_MULTI 1 - -FGAPI void FGAPIENTRY glutMultiEntryFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutMultiButtonFunc( void (* callback)( int, int, int, int, int ) ); -FGAPI void FGAPIENTRY glutMultiMotionFunc( void (* callback)( int, int, int ) ); -FGAPI void FGAPIENTRY glutMultiPassiveFunc( void (* callback)( int, int, int ) ); - -/* - * Joystick functions, see freeglut_joystick.c - */ -/* USE OF THESE FUNCTIONS IS DEPRECATED !!!!! */ -/* If you have a serious need for these functions in your application, please either - * contact the "freeglut" developer community at freeglut-developer@lists.sourceforge.net, - * switch to the OpenGLUT library, or else port your joystick functionality over to PLIB's - * "js" library. - */ -int glutJoystickGetNumAxes( int ident ); -int glutJoystickGetNumButtons( int ident ); -int glutJoystickNotWorking( int ident ); -float glutJoystickGetDeadBand( int ident, int axis ); -void glutJoystickSetDeadBand( int ident, int axis, float db ); -float glutJoystickGetSaturation( int ident, int axis ); -void glutJoystickSetSaturation( int ident, int axis, float st ); -void glutJoystickSetMinRange( int ident, float *axes ); -void glutJoystickSetMaxRange( int ident, float *axes ); -void glutJoystickSetCenter( int ident, float *axes ); -void glutJoystickGetMinRange( int ident, float *axes ); -void glutJoystickGetMaxRange( int ident, float *axes ); -void glutJoystickGetCenter( int ident, float *axes ); - -/* - * Initialization functions, see freeglut_init.c - */ -FGAPI void FGAPIENTRY glutInitContextVersion( int majorVersion, int minorVersion ); -FGAPI void FGAPIENTRY glutInitContextFlags( int flags ); -FGAPI void FGAPIENTRY glutInitContextProfile( int profile ); - -/* to get the typedef for va_list */ -#include - -FGAPI void FGAPIENTRY glutInitErrorFunc( void (* vError)( const char *fmt, va_list ap ) ); -FGAPI void FGAPIENTRY glutInitWarningFunc( void (* vWarning)( const char *fmt, va_list ap ) ); - -/* - * GLUT API macro definitions -- the display mode definitions - */ -#define GLUT_CAPTIONLESS 0x0400 -#define GLUT_BORDERLESS 0x0800 -#define GLUT_SRGB 0x1000 - -#ifdef __cplusplus - } -#endif - -/*** END OF FILE ***/ - -#endif /* __FREEGLUT_EXT_H__ */ diff --git a/internal/c/parts/core/android_core/include/GL/freeglut_std.h b/internal/c/parts/core/android_core/include/GL/freeglut_std.h deleted file mode 100644 index 886150bef..000000000 --- a/internal/c/parts/core/android_core/include/GL/freeglut_std.h +++ /dev/null @@ -1,640 +0,0 @@ -#ifndef __FREEGLUT_STD_H__ -#define __FREEGLUT_STD_H__ - -/* - * freeglut_std.h - * - * The GLUT-compatible part of the freeglut library include file - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 2 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifdef __cplusplus - extern "C" { -#endif - -/* - * Under windows, we have to differentiate between static and dynamic libraries - */ -#ifdef _WIN32 -/* #pragma may not be supported by some compilers. - * Discussion by FreeGLUT developers suggests that - * Visual C++ specific code involving pragmas may - * need to move to a separate header. 24th Dec 2003 - */ - -/* Define FREEGLUT_LIB_PRAGMAS to 1 to include library - * pragmas or to 0 to exclude library pragmas. - * The default behavior depends on the compiler/platform. - */ -# ifndef FREEGLUT_LIB_PRAGMAS -# if ( defined(_MSC_VER) || defined(__WATCOMC__) ) && !defined(_WIN32_WCE) -# define FREEGLUT_LIB_PRAGMAS 1 -# else -# define FREEGLUT_LIB_PRAGMAS 0 -# endif -# endif - -# ifndef WIN32_LEAN_AND_MEAN -# define WIN32_LEAN_AND_MEAN 1 -# endif -# ifndef NOMINMAX -# define NOMINMAX -# endif -# include - -/* Windows static library */ -# ifdef FREEGLUT_STATIC - -# define FGAPI -# define FGAPIENTRY - - /* Link with Win32 static freeglut lib */ -# if FREEGLUT_LIB_PRAGMAS -# pragma comment (lib, "freeglut_static.lib") -# endif - -/* Windows shared library (DLL) */ -# else - -# define FGAPIENTRY __stdcall -# if defined(FREEGLUT_EXPORTS) -# define FGAPI __declspec(dllexport) -# else -# define FGAPI __declspec(dllimport) - - /* Link with Win32 shared freeglut lib */ -# if FREEGLUT_LIB_PRAGMAS -# pragma comment (lib, "freeglut.lib") -# endif - -# endif - -# endif - -/* Drag in other Windows libraries as required by FreeGLUT */ -# if FREEGLUT_LIB_PRAGMAS -# pragma comment (lib, "glu32.lib") /* link OpenGL Utility lib */ -# pragma comment (lib, "opengl32.lib") /* link Microsoft OpenGL lib */ -# pragma comment (lib, "gdi32.lib") /* link Windows GDI lib */ -# pragma comment (lib, "winmm.lib") /* link Windows MultiMedia lib */ -# pragma comment (lib, "user32.lib") /* link Windows user lib */ -# endif - -#else - -/* Non-Windows definition of FGAPI and FGAPIENTRY */ -# define FGAPI -# define FGAPIENTRY - -#endif - -/* - * The freeglut and GLUT API versions - */ -#define FREEGLUT 1 -#define GLUT_API_VERSION 4 -#define FREEGLUT_VERSION_2_0 1 -#define GLUT_XLIB_IMPLEMENTATION 13 - -/* - * Always include OpenGL and GLU headers - */ -#ifdef ANDROID -/* Use EGL (implies OpenGL ES) */ -/* TODO: EGL/GLES builds should be more generally defined, possibly by - generating this file dynamically */ -# include -/* TODO: we probably need 2 builds: -lGLESv1 and -lGLESv2 */ -/* #include */ -# include -/* TODO: temporary work-around for e.g. glutWireCube */ -# define GLdouble GLfloat -#else -# include -# include -#endif - -/* - * GLUT API macro definitions -- the special key codes: - */ -#define GLUT_KEY_F1 0x0001 -#define GLUT_KEY_F2 0x0002 -#define GLUT_KEY_F3 0x0003 -#define GLUT_KEY_F4 0x0004 -#define GLUT_KEY_F5 0x0005 -#define GLUT_KEY_F6 0x0006 -#define GLUT_KEY_F7 0x0007 -#define GLUT_KEY_F8 0x0008 -#define GLUT_KEY_F9 0x0009 -#define GLUT_KEY_F10 0x000A -#define GLUT_KEY_F11 0x000B -#define GLUT_KEY_F12 0x000C -#define GLUT_KEY_LEFT 0x0064 -#define GLUT_KEY_UP 0x0065 -#define GLUT_KEY_RIGHT 0x0066 -#define GLUT_KEY_DOWN 0x0067 -#define GLUT_KEY_PAGE_UP 0x0068 -#define GLUT_KEY_PAGE_DOWN 0x0069 -#define GLUT_KEY_HOME 0x006A -#define GLUT_KEY_END 0x006B -#define GLUT_KEY_INSERT 0x006C - -/* - * GLUT API macro definitions -- mouse state definitions - */ -#define GLUT_LEFT_BUTTON 0x0000 -#define GLUT_MIDDLE_BUTTON 0x0001 -#define GLUT_RIGHT_BUTTON 0x0002 -#define GLUT_DOWN 0x0000 -#define GLUT_UP 0x0001 -#define GLUT_LEFT 0x0000 -#define GLUT_ENTERED 0x0001 - -/* - * GLUT API macro definitions -- the display mode definitions - */ -#define GLUT_RGB 0x0000 -#define GLUT_RGBA 0x0000 -#define GLUT_INDEX 0x0001 -#define GLUT_SINGLE 0x0000 -#define GLUT_DOUBLE 0x0002 -#define GLUT_ACCUM 0x0004 -#define GLUT_ALPHA 0x0008 -#define GLUT_DEPTH 0x0010 -#define GLUT_STENCIL 0x0020 -#define GLUT_MULTISAMPLE 0x0080 -#define GLUT_STEREO 0x0100 -#define GLUT_LUMINANCE 0x0200 - -/* - * GLUT API macro definitions -- windows and menu related definitions - */ -#define GLUT_MENU_NOT_IN_USE 0x0000 -#define GLUT_MENU_IN_USE 0x0001 -#define GLUT_NOT_VISIBLE 0x0000 -#define GLUT_VISIBLE 0x0001 -#define GLUT_HIDDEN 0x0000 -#define GLUT_FULLY_RETAINED 0x0001 -#define GLUT_PARTIALLY_RETAINED 0x0002 -#define GLUT_FULLY_COVERED 0x0003 - -/* - * GLUT API macro definitions -- fonts definitions - * - * Steve Baker suggested to make it binary compatible with GLUT: - */ -#if defined(_MSC_VER) || defined(__CYGWIN__) || defined(__MINGW32__) || defined(__WATCOMC__) -# define GLUT_STROKE_ROMAN ((void *)0x0000) -# define GLUT_STROKE_MONO_ROMAN ((void *)0x0001) -# define GLUT_BITMAP_9_BY_15 ((void *)0x0002) -# define GLUT_BITMAP_8_BY_13 ((void *)0x0003) -# define GLUT_BITMAP_TIMES_ROMAN_10 ((void *)0x0004) -# define GLUT_BITMAP_TIMES_ROMAN_24 ((void *)0x0005) -# define GLUT_BITMAP_HELVETICA_10 ((void *)0x0006) -# define GLUT_BITMAP_HELVETICA_12 ((void *)0x0007) -# define GLUT_BITMAP_HELVETICA_18 ((void *)0x0008) -#else - /* - * I don't really know if it's a good idea... But here it goes: - */ - extern void* glutStrokeRoman; - extern void* glutStrokeMonoRoman; - extern void* glutBitmap9By15; - extern void* glutBitmap8By13; - extern void* glutBitmapTimesRoman10; - extern void* glutBitmapTimesRoman24; - extern void* glutBitmapHelvetica10; - extern void* glutBitmapHelvetica12; - extern void* glutBitmapHelvetica18; - - /* - * Those pointers will be used by following definitions: - */ -# define GLUT_STROKE_ROMAN ((void *) &glutStrokeRoman) -# define GLUT_STROKE_MONO_ROMAN ((void *) &glutStrokeMonoRoman) -# define GLUT_BITMAP_9_BY_15 ((void *) &glutBitmap9By15) -# define GLUT_BITMAP_8_BY_13 ((void *) &glutBitmap8By13) -# define GLUT_BITMAP_TIMES_ROMAN_10 ((void *) &glutBitmapTimesRoman10) -# define GLUT_BITMAP_TIMES_ROMAN_24 ((void *) &glutBitmapTimesRoman24) -# define GLUT_BITMAP_HELVETICA_10 ((void *) &glutBitmapHelvetica10) -# define GLUT_BITMAP_HELVETICA_12 ((void *) &glutBitmapHelvetica12) -# define GLUT_BITMAP_HELVETICA_18 ((void *) &glutBitmapHelvetica18) -#endif - -/* - * GLUT API macro definitions -- the glutGet parameters - */ -#define GLUT_WINDOW_X 0x0064 -#define GLUT_WINDOW_Y 0x0065 -#define GLUT_WINDOW_WIDTH 0x0066 -#define GLUT_WINDOW_HEIGHT 0x0067 -#define GLUT_WINDOW_BUFFER_SIZE 0x0068 -#define GLUT_WINDOW_STENCIL_SIZE 0x0069 -#define GLUT_WINDOW_DEPTH_SIZE 0x006A -#define GLUT_WINDOW_RED_SIZE 0x006B -#define GLUT_WINDOW_GREEN_SIZE 0x006C -#define GLUT_WINDOW_BLUE_SIZE 0x006D -#define GLUT_WINDOW_ALPHA_SIZE 0x006E -#define GLUT_WINDOW_ACCUM_RED_SIZE 0x006F -#define GLUT_WINDOW_ACCUM_GREEN_SIZE 0x0070 -#define GLUT_WINDOW_ACCUM_BLUE_SIZE 0x0071 -#define GLUT_WINDOW_ACCUM_ALPHA_SIZE 0x0072 -#define GLUT_WINDOW_DOUBLEBUFFER 0x0073 -#define GLUT_WINDOW_RGBA 0x0074 -#define GLUT_WINDOW_PARENT 0x0075 -#define GLUT_WINDOW_NUM_CHILDREN 0x0076 -#define GLUT_WINDOW_COLORMAP_SIZE 0x0077 -#define GLUT_WINDOW_NUM_SAMPLES 0x0078 -#define GLUT_WINDOW_STEREO 0x0079 -#define GLUT_WINDOW_CURSOR 0x007A - -#define GLUT_SCREEN_WIDTH 0x00C8 -#define GLUT_SCREEN_HEIGHT 0x00C9 -#define GLUT_SCREEN_WIDTH_MM 0x00CA -#define GLUT_SCREEN_HEIGHT_MM 0x00CB -#define GLUT_MENU_NUM_ITEMS 0x012C -#define GLUT_DISPLAY_MODE_POSSIBLE 0x0190 -#define GLUT_INIT_WINDOW_X 0x01F4 -#define GLUT_INIT_WINDOW_Y 0x01F5 -#define GLUT_INIT_WINDOW_WIDTH 0x01F6 -#define GLUT_INIT_WINDOW_HEIGHT 0x01F7 -#define GLUT_INIT_DISPLAY_MODE 0x01F8 -#define GLUT_ELAPSED_TIME 0x02BC -#define GLUT_WINDOW_FORMAT_ID 0x007B - -/* - * GLUT API macro definitions -- the glutDeviceGet parameters - */ -#define GLUT_HAS_KEYBOARD 0x0258 -#define GLUT_HAS_MOUSE 0x0259 -#define GLUT_HAS_SPACEBALL 0x025A -#define GLUT_HAS_DIAL_AND_BUTTON_BOX 0x025B -#define GLUT_HAS_TABLET 0x025C -#define GLUT_NUM_MOUSE_BUTTONS 0x025D -#define GLUT_NUM_SPACEBALL_BUTTONS 0x025E -#define GLUT_NUM_BUTTON_BOX_BUTTONS 0x025F -#define GLUT_NUM_DIALS 0x0260 -#define GLUT_NUM_TABLET_BUTTONS 0x0261 -#define GLUT_DEVICE_IGNORE_KEY_REPEAT 0x0262 -#define GLUT_DEVICE_KEY_REPEAT 0x0263 -#define GLUT_HAS_JOYSTICK 0x0264 -#define GLUT_OWNS_JOYSTICK 0x0265 -#define GLUT_JOYSTICK_BUTTONS 0x0266 -#define GLUT_JOYSTICK_AXES 0x0267 -#define GLUT_JOYSTICK_POLL_RATE 0x0268 - -/* - * GLUT API macro definitions -- the glutLayerGet parameters - */ -#define GLUT_OVERLAY_POSSIBLE 0x0320 -#define GLUT_LAYER_IN_USE 0x0321 -#define GLUT_HAS_OVERLAY 0x0322 -#define GLUT_TRANSPARENT_INDEX 0x0323 -#define GLUT_NORMAL_DAMAGED 0x0324 -#define GLUT_OVERLAY_DAMAGED 0x0325 - -/* - * GLUT API macro definitions -- the glutVideoResizeGet parameters - */ -#define GLUT_VIDEO_RESIZE_POSSIBLE 0x0384 -#define GLUT_VIDEO_RESIZE_IN_USE 0x0385 -#define GLUT_VIDEO_RESIZE_X_DELTA 0x0386 -#define GLUT_VIDEO_RESIZE_Y_DELTA 0x0387 -#define GLUT_VIDEO_RESIZE_WIDTH_DELTA 0x0388 -#define GLUT_VIDEO_RESIZE_HEIGHT_DELTA 0x0389 -#define GLUT_VIDEO_RESIZE_X 0x038A -#define GLUT_VIDEO_RESIZE_Y 0x038B -#define GLUT_VIDEO_RESIZE_WIDTH 0x038C -#define GLUT_VIDEO_RESIZE_HEIGHT 0x038D - -/* - * GLUT API macro definitions -- the glutUseLayer parameters - */ -#define GLUT_NORMAL 0x0000 -#define GLUT_OVERLAY 0x0001 - -/* - * GLUT API macro definitions -- the glutGetModifiers parameters - */ -#define GLUT_ACTIVE_SHIFT 0x0001 -#define GLUT_ACTIVE_CTRL 0x0002 -#define GLUT_ACTIVE_ALT 0x0004 - -/* - * GLUT API macro definitions -- the glutSetCursor parameters - */ -#define GLUT_CURSOR_RIGHT_ARROW 0x0000 -#define GLUT_CURSOR_LEFT_ARROW 0x0001 -#define GLUT_CURSOR_INFO 0x0002 -#define GLUT_CURSOR_DESTROY 0x0003 -#define GLUT_CURSOR_HELP 0x0004 -#define GLUT_CURSOR_CYCLE 0x0005 -#define GLUT_CURSOR_SPRAY 0x0006 -#define GLUT_CURSOR_WAIT 0x0007 -#define GLUT_CURSOR_TEXT 0x0008 -#define GLUT_CURSOR_CROSSHAIR 0x0009 -#define GLUT_CURSOR_UP_DOWN 0x000A -#define GLUT_CURSOR_LEFT_RIGHT 0x000B -#define GLUT_CURSOR_TOP_SIDE 0x000C -#define GLUT_CURSOR_BOTTOM_SIDE 0x000D -#define GLUT_CURSOR_LEFT_SIDE 0x000E -#define GLUT_CURSOR_RIGHT_SIDE 0x000F -#define GLUT_CURSOR_TOP_LEFT_CORNER 0x0010 -#define GLUT_CURSOR_TOP_RIGHT_CORNER 0x0011 -#define GLUT_CURSOR_BOTTOM_RIGHT_CORNER 0x0012 -#define GLUT_CURSOR_BOTTOM_LEFT_CORNER 0x0013 -#define GLUT_CURSOR_INHERIT 0x0064 -#define GLUT_CURSOR_NONE 0x0065 -#define GLUT_CURSOR_FULL_CROSSHAIR 0x0066 - -/* - * GLUT API macro definitions -- RGB color component specification definitions - */ -#define GLUT_RED 0x0000 -#define GLUT_GREEN 0x0001 -#define GLUT_BLUE 0x0002 - -/* - * GLUT API macro definitions -- additional keyboard and joystick definitions - */ -#define GLUT_KEY_REPEAT_OFF 0x0000 -#define GLUT_KEY_REPEAT_ON 0x0001 -#define GLUT_KEY_REPEAT_DEFAULT 0x0002 - -#define GLUT_JOYSTICK_BUTTON_A 0x0001 -#define GLUT_JOYSTICK_BUTTON_B 0x0002 -#define GLUT_JOYSTICK_BUTTON_C 0x0004 -#define GLUT_JOYSTICK_BUTTON_D 0x0008 - -/* - * GLUT API macro definitions -- game mode definitions - */ -#define GLUT_GAME_MODE_ACTIVE 0x0000 -#define GLUT_GAME_MODE_POSSIBLE 0x0001 -#define GLUT_GAME_MODE_WIDTH 0x0002 -#define GLUT_GAME_MODE_HEIGHT 0x0003 -#define GLUT_GAME_MODE_PIXEL_DEPTH 0x0004 -#define GLUT_GAME_MODE_REFRESH_RATE 0x0005 -#define GLUT_GAME_MODE_DISPLAY_CHANGED 0x0006 - -/* - * Initialization functions, see fglut_init.c - */ -FGAPI void FGAPIENTRY glutInit( int* pargc, char** argv ); -FGAPI void FGAPIENTRY glutInitWindowPosition( int x, int y ); -FGAPI void FGAPIENTRY glutInitWindowSize( int width, int height ); -FGAPI void FGAPIENTRY glutInitDisplayMode( unsigned int displayMode ); -FGAPI void FGAPIENTRY glutInitDisplayString( const char* displayMode ); - -/* - * Process loop function, see freeglut_main.c - */ -FGAPI void FGAPIENTRY glutMainLoop( void ); - -/* - * Window management functions, see freeglut_window.c - */ -FGAPI int FGAPIENTRY glutCreateWindow( const char* title ); -FGAPI int FGAPIENTRY glutCreateSubWindow( int window, int x, int y, int width, int height ); -FGAPI void FGAPIENTRY glutDestroyWindow( int window ); -FGAPI void FGAPIENTRY glutSetWindow( int window ); -FGAPI int FGAPIENTRY glutGetWindow( void ); -FGAPI void FGAPIENTRY glutSetWindowTitle( const char* title ); -FGAPI void FGAPIENTRY glutSetIconTitle( const char* title ); -FGAPI void FGAPIENTRY glutReshapeWindow( int width, int height ); -FGAPI void FGAPIENTRY glutPositionWindow( int x, int y ); -FGAPI void FGAPIENTRY glutShowWindow( void ); -FGAPI void FGAPIENTRY glutHideWindow( void ); -FGAPI void FGAPIENTRY glutIconifyWindow( void ); -FGAPI void FGAPIENTRY glutPushWindow( void ); -FGAPI void FGAPIENTRY glutPopWindow( void ); -FGAPI void FGAPIENTRY glutFullScreen( void ); - -/* - * Display-connected functions, see freeglut_display.c - */ -FGAPI void FGAPIENTRY glutPostWindowRedisplay( int window ); -FGAPI void FGAPIENTRY glutPostRedisplay( void ); -FGAPI void FGAPIENTRY glutSwapBuffers( void ); - -/* - * Mouse cursor functions, see freeglut_cursor.c - */ -FGAPI void FGAPIENTRY glutWarpPointer( int x, int y ); -FGAPI void FGAPIENTRY glutSetCursor( int cursor ); - -/* - * Overlay stuff, see freeglut_overlay.c - */ -FGAPI void FGAPIENTRY glutEstablishOverlay( void ); -FGAPI void FGAPIENTRY glutRemoveOverlay( void ); -FGAPI void FGAPIENTRY glutUseLayer( GLenum layer ); -FGAPI void FGAPIENTRY glutPostOverlayRedisplay( void ); -FGAPI void FGAPIENTRY glutPostWindowOverlayRedisplay( int window ); -FGAPI void FGAPIENTRY glutShowOverlay( void ); -FGAPI void FGAPIENTRY glutHideOverlay( void ); - -/* - * Menu stuff, see freeglut_menu.c - */ -FGAPI int FGAPIENTRY glutCreateMenu( void (* callback)( int menu ) ); -FGAPI void FGAPIENTRY glutDestroyMenu( int menu ); -FGAPI int FGAPIENTRY glutGetMenu( void ); -FGAPI void FGAPIENTRY glutSetMenu( int menu ); -FGAPI void FGAPIENTRY glutAddMenuEntry( const char* label, int value ); -FGAPI void FGAPIENTRY glutAddSubMenu( const char* label, int subMenu ); -FGAPI void FGAPIENTRY glutChangeToMenuEntry( int item, const char* label, int value ); -FGAPI void FGAPIENTRY glutChangeToSubMenu( int item, const char* label, int value ); -FGAPI void FGAPIENTRY glutRemoveMenuItem( int item ); -FGAPI void FGAPIENTRY glutAttachMenu( int button ); -FGAPI void FGAPIENTRY glutDetachMenu( int button ); - -/* - * Global callback functions, see freeglut_callbacks.c - */ -FGAPI void FGAPIENTRY glutTimerFunc( unsigned int time, void (* callback)( int ), int value ); -FGAPI void FGAPIENTRY glutIdleFunc( void (* callback)( void ) ); - -/* - * Window-specific callback functions, see freeglut_callbacks.c - */ -FGAPI void FGAPIENTRY glutKeyboardFunc( void (* callback)( unsigned char, int, int ) ); -FGAPI void FGAPIENTRY glutSpecialFunc( void (* callback)( int, int, int ) ); -FGAPI void FGAPIENTRY glutReshapeFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutVisibilityFunc( void (* callback)( int ) ); -FGAPI void FGAPIENTRY glutDisplayFunc( void (* callback)( void ) ); -FGAPI void FGAPIENTRY glutMouseFunc( void (* callback)( int, int, int, int ) ); -FGAPI void FGAPIENTRY glutMotionFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutPassiveMotionFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutEntryFunc( void (* callback)( int ) ); - -FGAPI void FGAPIENTRY glutKeyboardUpFunc( void (* callback)( unsigned char, int, int ) ); -FGAPI void FGAPIENTRY glutSpecialUpFunc( void (* callback)( int, int, int ) ); -FGAPI void FGAPIENTRY glutJoystickFunc( void (* callback)( unsigned int, int, int, int ), int pollInterval ); -FGAPI void FGAPIENTRY glutMenuStateFunc( void (* callback)( int ) ); -FGAPI void FGAPIENTRY glutMenuStatusFunc( void (* callback)( int, int, int ) ); -FGAPI void FGAPIENTRY glutOverlayDisplayFunc( void (* callback)( void ) ); -FGAPI void FGAPIENTRY glutWindowStatusFunc( void (* callback)( int ) ); - -FGAPI void FGAPIENTRY glutSpaceballMotionFunc( void (* callback)( int, int, int ) ); -FGAPI void FGAPIENTRY glutSpaceballRotateFunc( void (* callback)( int, int, int ) ); -FGAPI void FGAPIENTRY glutSpaceballButtonFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutButtonBoxFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutDialsFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutTabletMotionFunc( void (* callback)( int, int ) ); -FGAPI void FGAPIENTRY glutTabletButtonFunc( void (* callback)( int, int, int, int ) ); - -/* - * State setting and retrieval functions, see freeglut_state.c - */ -FGAPI int FGAPIENTRY glutGet( GLenum query ); -FGAPI int FGAPIENTRY glutDeviceGet( GLenum query ); -FGAPI int FGAPIENTRY glutGetModifiers( void ); -FGAPI int FGAPIENTRY glutLayerGet( GLenum query ); - -/* - * Font stuff, see freeglut_font.c - */ -FGAPI void FGAPIENTRY glutBitmapCharacter( void* font, int character ); -FGAPI int FGAPIENTRY glutBitmapWidth( void* font, int character ); -FGAPI void FGAPIENTRY glutStrokeCharacter( void* font, int character ); -FGAPI int FGAPIENTRY glutStrokeWidth( void* font, int character ); -FGAPI int FGAPIENTRY glutBitmapLength( void* font, const unsigned char* string ); -FGAPI int FGAPIENTRY glutStrokeLength( void* font, const unsigned char* string ); - -/* - * Geometry functions, see freeglut_geometry.c - */ -FGAPI void FGAPIENTRY glutWireCube( GLdouble size ); -FGAPI void FGAPIENTRY glutSolidCube( GLdouble size ); -FGAPI void FGAPIENTRY glutWireSphere( GLdouble radius, GLint slices, GLint stacks ); -FGAPI void FGAPIENTRY glutSolidSphere( GLdouble radius, GLint slices, GLint stacks ); -FGAPI void FGAPIENTRY glutWireCone( GLdouble base, GLdouble height, GLint slices, GLint stacks ); -FGAPI void FGAPIENTRY glutSolidCone( GLdouble base, GLdouble height, GLint slices, GLint stacks ); - -FGAPI void FGAPIENTRY glutWireTorus( GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings ); -FGAPI void FGAPIENTRY glutSolidTorus( GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings ); -FGAPI void FGAPIENTRY glutWireDodecahedron( void ); -FGAPI void FGAPIENTRY glutSolidDodecahedron( void ); -FGAPI void FGAPIENTRY glutWireOctahedron( void ); -FGAPI void FGAPIENTRY glutSolidOctahedron( void ); -FGAPI void FGAPIENTRY glutWireTetrahedron( void ); -FGAPI void FGAPIENTRY glutSolidTetrahedron( void ); -FGAPI void FGAPIENTRY glutWireIcosahedron( void ); -FGAPI void FGAPIENTRY glutSolidIcosahedron( void ); - -/* - * Teapot rendering functions, found in freeglut_teapot.c - */ -FGAPI void FGAPIENTRY glutWireTeapot( GLdouble size ); -FGAPI void FGAPIENTRY glutSolidTeapot( GLdouble size ); - -/* - * Game mode functions, see freeglut_gamemode.c - */ -FGAPI void FGAPIENTRY glutGameModeString( const char* string ); -FGAPI int FGAPIENTRY glutEnterGameMode( void ); -FGAPI void FGAPIENTRY glutLeaveGameMode( void ); -FGAPI int FGAPIENTRY glutGameModeGet( GLenum query ); - -/* - * Video resize functions, see freeglut_videoresize.c - */ -FGAPI int FGAPIENTRY glutVideoResizeGet( GLenum query ); -FGAPI void FGAPIENTRY glutSetupVideoResizing( void ); -FGAPI void FGAPIENTRY glutStopVideoResizing( void ); -FGAPI void FGAPIENTRY glutVideoResize( int x, int y, int width, int height ); -FGAPI void FGAPIENTRY glutVideoPan( int x, int y, int width, int height ); - -/* - * Colormap functions, see freeglut_misc.c - */ -FGAPI void FGAPIENTRY glutSetColor( int color, GLfloat red, GLfloat green, GLfloat blue ); -FGAPI GLfloat FGAPIENTRY glutGetColor( int color, int component ); -FGAPI void FGAPIENTRY glutCopyColormap( int window ); - -/* - * Misc keyboard and joystick functions, see freeglut_misc.c - */ -FGAPI void FGAPIENTRY glutIgnoreKeyRepeat( int ignore ); -FGAPI void FGAPIENTRY glutSetKeyRepeat( int repeatMode ); -FGAPI void FGAPIENTRY glutForceJoystickFunc( void ); - -/* - * Misc functions, see freeglut_misc.c - */ -FGAPI int FGAPIENTRY glutExtensionSupported( const char* extension ); -FGAPI void FGAPIENTRY glutReportErrors( void ); - -/* Comment from glut.h of classic GLUT: - - Win32 has an annoying issue where there are multiple C run-time - libraries (CRTs). If the executable is linked with a different CRT - from the GLUT DLL, the GLUT DLL will not share the same CRT static - data seen by the executable. In particular, atexit callbacks registered - in the executable will not be called if GLUT calls its (different) - exit routine). GLUT is typically built with the - "/MD" option (the CRT with multithreading DLL support), but the Visual - C++ linker default is "/ML" (the single threaded CRT). - - One workaround to this issue is requiring users to always link with - the same CRT as GLUT is compiled with. That requires users supply a - non-standard option. GLUT 3.7 has its own built-in workaround where - the executable's "exit" function pointer is covertly passed to GLUT. - GLUT then calls the executable's exit function pointer to ensure that - any "atexit" calls registered by the application are called if GLUT - needs to exit. - - Note that the __glut*WithExit routines should NEVER be called directly. - To avoid the atexit workaround, #define GLUT_DISABLE_ATEXIT_HACK. */ - -/* to get the prototype for exit() */ -#include - -#if defined(_WIN32) && !defined(GLUT_DISABLE_ATEXIT_HACK) && !defined(__WATCOMC__) -FGAPI void FGAPIENTRY __glutInitWithExit(int *argcp, char **argv, void (__cdecl *exitfunc)(int)); -FGAPI int FGAPIENTRY __glutCreateWindowWithExit(const char *title, void (__cdecl *exitfunc)(int)); -FGAPI int FGAPIENTRY __glutCreateMenuWithExit(void (* func)(int), void (__cdecl *exitfunc)(int)); -#ifndef FREEGLUT_BUILDING_LIB -#if defined(__GNUC__) -#define FGUNUSED __attribute__((unused)) -#else -#define FGUNUSED -#endif -static void FGAPIENTRY FGUNUSED glutInit_ATEXIT_HACK(int *argcp, char **argv) { __glutInitWithExit(argcp, argv, exit); } -#define glutInit glutInit_ATEXIT_HACK -static int FGAPIENTRY FGUNUSED glutCreateWindow_ATEXIT_HACK(const char *title) { return __glutCreateWindowWithExit(title, exit); } -#define glutCreateWindow glutCreateWindow_ATEXIT_HACK -static int FGAPIENTRY FGUNUSED glutCreateMenu_ATEXIT_HACK(void (* func)(int)) { return __glutCreateMenuWithExit(func, exit); } -#define glutCreateMenu glutCreateMenu_ATEXIT_HACK -#endif -#endif - -#ifdef __cplusplus - } -#endif - -/*** END OF FILE ***/ - -#endif /* __FREEGLUT_STD_H__ */ - diff --git a/internal/c/parts/core/android_core/include/GL/glut.h b/internal/c/parts/core/android_core/include/GL/glut.h deleted file mode 100644 index ce612381d..000000000 --- a/internal/c/parts/core/android_core/include/GL/glut.h +++ /dev/null @@ -1,21 +0,0 @@ -#ifndef __GLUT_H__ -#define __GLUT_H__ - -/* - * glut.h - * - * The freeglut library include file - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include "freeglut_std.h" - -/*** END OF FILE ***/ - -#endif /* __GLUT_H__ */ diff --git a/internal/c/parts/core/android_core/mingw_cross_toolchain.cmake b/internal/c/parts/core/android_core/mingw_cross_toolchain.cmake deleted file mode 100644 index 3745de6b4..000000000 --- a/internal/c/parts/core/android_core/mingw_cross_toolchain.cmake +++ /dev/null @@ -1,9 +0,0 @@ -# CMake toolchain file, cf. README.mingw_cross -SET(CMAKE_SYSTEM_NAME Windows) -include(CMakeForceCompiler) -IF("${GNU_HOST}" STREQUAL "") - SET(GNU_HOST i586-mingw32msvc) -ENDIF() -# Prefix detection only works with compiler id "GNU" -CMAKE_FORCE_C_COMPILER(${GNU_HOST}-gcc GNU) -SET(CMAKE_RC_COMPILER ${GNU_HOST}-windres) diff --git a/internal/c/parts/core/android_core/progs/demos/CallbackMaker/CallbackMaker.c b/internal/c/parts/core/android_core/progs/demos/CallbackMaker/CallbackMaker.c deleted file mode 100644 index 25d47d290..000000000 --- a/internal/c/parts/core/android_core/progs/demos/CallbackMaker/CallbackMaker.c +++ /dev/null @@ -1,536 +0,0 @@ -/* CallbackMaker.c */ -/* - * Program to invoke all the callbacks that "freeglut" supports - */ - - -#include -#include -#include -#include - -static int sequence_number = 0 ; - -int reshape_called = 0, key_called = 0, special_called = 0, visibility_called = 0, - keyup_called = 0, specialup_called = 0, joystick_called = 0, mouse_called = 0, - mousewheel_called = 0, motion_called = 0, passivemotion_called = 0, entry_called = 0, - close_called = 0, overlaydisplay_called = 0, windowstatus_called = 0, - spacemotion_called = 0, spacerotation_called = 0, spacebutton_called = 0, - buttonbox_called = 0, dials_called = 0, tabletmotion_called = 0, tabletbutton_called = 0, - menudestroy_called = 0, menustatus_called = 0 ; -int reshape_width = -1, reshape_height = -1, reshape_seq = -1 ; -int key_key = -1, key_x = -1, key_y = -1, key_seq = -1 ; -int special_key = -1, special_x = -1, special_y = -1, special_seq = -1 ; -int visibility_vis = -1, visibility_seq = -1 ; -int keyup_key = -1, keyup_x = -1, keyup_y = -1, keyup_seq = -1 ; -int specialup_key = -1, specialup_x = -1, specialup_y = -1, specialup_seq = -1 ; -int joystick_a = -1, joystick_b = -1, joystick_c = -1, joystick_d = -1, joystick_seq = -1 ; /* Need meaningful names */ -int mouse_button = -1, mouse_updown = -1, mouse_x = -1, mouse_y = -1, mouse_seq = -1 ; -int mousewheel_number = -1, mousewheel_direction = -1, mousewheel_x = -1, mousewheel_y = -1, mousewheel_seq = -1 ; -int motion_x = -1, motion_y = -1, motion_seq = -1 ; -int passivemotion_x = -1, passivemotion_y = -1, passivemotion_seq = -1 ; - -static void -bitmapPrintf (const char *fmt, ...) -{ - static char buf[256]; - va_list args; - - va_start(args, fmt); -#if defined(WIN32) && !defined(__CYGWIN__) - (void) _vsnprintf (buf, sizeof(buf), fmt, args); -#else - (void) vsnprintf (buf, sizeof(buf), fmt, args); -#endif - va_end(args); - glutBitmapString ( GLUT_BITMAP_HELVETICA_12, (unsigned char*)buf ) ; -} - - -static void -Display(void) -{ - int window = glutGetWindow () ; - glClear ( GL_COLOR_BUFFER_BIT ); - - glDisable ( GL_DEPTH_TEST ); - glMatrixMode ( GL_PROJECTION ); - glPushMatrix(); - glLoadIdentity(); - glOrtho(0, glutGet ( GLUT_WINDOW_WIDTH ), - 0, glutGet ( GLUT_WINDOW_HEIGHT ), -1, 1 ); - glMatrixMode ( GL_MODELVIEW ); - glPushMatrix (); - glLoadIdentity (); - glColor3ub ( 0, 0, 0 ); - glRasterPos2i ( 10, glutGet ( GLUT_WINDOW_HEIGHT ) - 10 ); - - if ( reshape_called ) - { - bitmapPrintf ( "Reshape %d: %d %d\n", reshape_seq, reshape_width, reshape_height ); - } - - if ( key_called ) - { - bitmapPrintf ( "Key %d: %d(%c) %d %d\n", key_seq, key_key, key_key, key_x, key_y ); - } - - if ( special_called ) - { - bitmapPrintf ( "Special %d: %d(%c) %d %d\n", special_seq, special_key, special_key, special_x, special_y ); - } - - if ( visibility_called ) - { - bitmapPrintf ( "Visibility %d: %d\n", visibility_seq, visibility_vis ); - } - - if ( keyup_called ) - { - bitmapPrintf ( "Key Up %d: %d(%c) %d %d\n", keyup_seq, keyup_key, keyup_key, keyup_x, keyup_y ); - } - - if ( specialup_called ) - { - bitmapPrintf ( "Special Up %d: %d(%c) %d %d\n", specialup_seq, specialup_key, specialup_key, specialup_x, specialup_y ); - } - - if ( joystick_called ) - { - bitmapPrintf ( "Joystick %d: %d %d %d %d\n", joystick_seq, joystick_a, joystick_b, joystick_c, joystick_d ); - } - - if ( mouse_called ) - { - bitmapPrintf ( "Mouse %d: %d %d %d %d\n", mouse_seq, mouse_button, mouse_updown, mouse_x, mouse_y ); - } - - if ( mousewheel_called ) - { - bitmapPrintf ( "Mouse Wheel %d: %d %d %d %d\n", mousewheel_seq, mousewheel_number, mousewheel_direction, mousewheel_x, mousewheel_y ); - } - - if ( motion_called ) - { - bitmapPrintf ( "Motion %d: %d %d\n", motion_seq, motion_x, motion_y ); - } - - if ( passivemotion_called ) - { - bitmapPrintf ( "Passive Motion %d: %d %d\n", passivemotion_seq, passivemotion_x, passivemotion_y ); - } - - glMatrixMode ( GL_PROJECTION ); - glPopMatrix (); - glMatrixMode ( GL_MODELVIEW ); - glPopMatrix (); - glEnable ( GL_DEPTH_TEST ); - - printf ( "%6d Window %d Display Callback\n", - ++sequence_number, window ) ; - glutSwapBuffers(); -} - -static void -Reshape(int width, int height) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Reshape Callback: %d %d\n", - ++sequence_number, window, width, height ) ; - reshape_called = 1 ; - reshape_width = width ; - reshape_height = height ; - reshape_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Key(unsigned char key, int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Keyboard Callback: %d %d %d\n", - ++sequence_number, window, key, x, y ) ; - key_called = 1 ; - key_key = key ; - key_x = x ; - key_y = y ; - key_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Special(int key, int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Special Key Callback: %d %d %d\n", - ++sequence_number, window, key, x, y ) ; - special_called = 1 ; - special_key = key ; - special_x = x ; - special_y = y ; - special_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Visibility(int vis) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Visibility Callback: %d\n", - ++sequence_number, window, vis ) ; - visibility_called = 1 ; - visibility_vis = vis ; - visibility_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -KeyUp(unsigned char key, int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Key Release Callback: %d %d %d\n", - ++sequence_number, window, key, x, y ) ; - keyup_called = 1 ; - keyup_key = key ; - keyup_x = x ; - keyup_y = y ; - keyup_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -SpecialUp(int key, int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Special Key Release Callback: %d %d %d\n", - ++sequence_number, window, key, x, y ) ; - specialup_called = 1 ; - specialup_key = key ; - specialup_x = x ; - specialup_y = y ; - specialup_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Joystick( unsigned int a, int b, int c, int d) /* Need meaningful names */ -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Joystick Callback: %d %d %d %d\n", - ++sequence_number, window, a, b, c, d ) ; - joystick_called = 1 ; - joystick_a = a ; - joystick_b = b ; - joystick_c = c ; - joystick_d = d ; - joystick_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Mouse(int button, int updown, int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Mouse Click Callback: %d %d %d %d\n", - ++sequence_number, window, button, updown, x, y ) ; - mouse_called = 1 ; - mouse_button = button ; - mouse_updown = updown ; - mouse_x = x ; - mouse_y = y ; - mouse_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -MouseWheel(int wheel_number, int direction, int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Mouse Wheel Callback: %d %d %d %d\n", - ++sequence_number, window, wheel_number, direction, x, y ) ; - mousewheel_called = 1 ; - mousewheel_number = wheel_number ; - mousewheel_direction = direction ; - mousewheel_x = x ; - mousewheel_y = y ; - mousewheel_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Motion(int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Mouse Motion Callback: %d %d\n", - ++sequence_number, window, x, y ) ; - motion_called = 1 ; - motion_x = x ; - motion_y = y ; - motion_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -PassiveMotion(int x, int y) -{ - int window = glutGetWindow () ; - printf ( "%6d Window %d Mouse Passive Motion Callback: %d %d\n", - ++sequence_number, window, x, y ) ; - passivemotion_called = 1 ; - passivemotion_x = x ; - passivemotion_y = y ; - passivemotion_seq = sequence_number ; - glutPostRedisplay () ; -} - -static void -Entry(int state) -{ - int window = glutGetWindow () ; - entry_called = 1 ; - printf ( "%6d Window %d Entry Callback: %d\n", - ++sequence_number, window, state ) ; - glutPostRedisplay () ; -} - -static void -Close(void) -{ - int window = glutGetWindow () ; - close_called = 1 ; - printf ( "%6d Window %d Close Callback\n", - ++sequence_number, window ) ; -} - -static void -OverlayDisplay(void) -{ - int window = glutGetWindow () ; - overlaydisplay_called = 1 ; - printf ( "%6d Window %d OverlayDisplay Callback\n", - ++sequence_number, window ) ; - glutPostRedisplay () ; -} - -static void -WindowStatus(int state) -{ - int window = glutGetWindow () ; - windowstatus_called = 1 ; - printf ( "%6d Window %d WindowStatus Callback: %d\n", - ++sequence_number, window, state ) ; - glutPostRedisplay () ; -} - -static void -SpaceMotion(int x, int y, int z) -{ - int window = glutGetWindow () ; - spacemotion_called = 1 ; - printf ( "%6d Window %d SpaceMotion Callback: %d %d %d\n", - ++sequence_number, window, x, y, z ) ; - glutPostRedisplay () ; -} - -static void -SpaceRotation(int x, int y, int z) -{ - int window = glutGetWindow () ; - spacerotation_called = 1 ; - printf ( "%6d Window %d SpaceRotation Callback: %d %d %d\n", - ++sequence_number, window, x, y, z ) ; - glutPostRedisplay () ; -} - -static void -SpaceButton(int button, int updown) -{ - int window = glutGetWindow () ; - spacebutton_called = 1 ; - printf ( "%6d Window %d SpaceButton Callback: %d %d\n", - ++sequence_number, window, button, updown ) ; - glutPostRedisplay () ; -} - -static void -Dials(int x, int y) -{ - int window = glutGetWindow () ; - dials_called = 1 ; - printf ( "%6d Window %d Dials Callback: %d %d\n", - ++sequence_number, window, x, y ) ; - glutPostRedisplay () ; -} - -static void -ButtonBox(int button, int updown) -{ - int window = glutGetWindow () ; - buttonbox_called = 1 ; - printf ( "%6d Window %d ButtonBox Callback: %d %d\n", - ++sequence_number, window, button, updown ) ; - glutPostRedisplay () ; -} - -static void -TabletMotion(int x, int y) -{ - int window = glutGetWindow () ; - tabletmotion_called = 1 ; - printf ( "%6d Window %d TabletMotion Callback: %d %d\n", - ++sequence_number, window, x, y ) ; - glutPostRedisplay () ; -} - -static void -TabletButton(int button, int updown, int x, int y) -{ - int window = glutGetWindow () ; - tabletbutton_called = 1 ; - printf ( "%6d Window %d TabletButton Callback: %d %d %d %d\n", - ++sequence_number, window, button, updown, x, y ) ; - glutPostRedisplay () ; -} - -static void -MenuCallback ( int menuID ) -{ - int window = glutGetWindow () ; - printf( "%6d Window %d MenuCallback - menuID is %d\n", - ++sequence_number, window, menuID ); -} - -static void -MenuDestroy( void ) -{ - int window = glutGetWindow () ; - menudestroy_called = 1 ; - printf ( "%6d Window %d MenuDestroy Callback\n", - ++sequence_number, window ) ; - glutPostRedisplay () ; -} - -static void -MenuStatus( int status, int x, int y ) -{ - int window = glutGetWindow () ; - menudestroy_called = 1 ; - printf ( "%6d Window %d MenuStatus Callback: %d %d %d\n", - ++sequence_number, window, status, x, y ) ; - glutPostRedisplay () ; -} - -static void Idle ( void ) -{ - ++sequence_number ; -} - -int -main(int argc, char *argv[]) -{ -#define STRING_LENGTH 10 - int freeglut_window, aux_window ; - char dummy_string[STRING_LENGTH]; - - int menuID, subMenuA, subMenuB; - - glutInitWindowSize(500, 250); - glutInitWindowPosition ( 140, 140 ); - glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE ); - glutInit(&argc, argv); - - freeglut_window = glutCreateWindow( "Callback Demo" ); - printf ( "Creating window %d as 'Callback Demo'\n", freeglut_window ) ; - - glClearColor(1.0, 1.0, 1.0, 1.0); - - glutDisplayFunc( Display ); - glutReshapeFunc( Reshape ); - glutKeyboardFunc( Key ); - glutSpecialFunc( Special ); - glutVisibilityFunc( Visibility ); - glutKeyboardUpFunc( KeyUp ); - glutSpecialUpFunc( SpecialUp ); - glutJoystickFunc( Joystick, 100 ); - glutMouseFunc ( Mouse ) ; - glutMouseWheelFunc ( MouseWheel ) ; - glutMotionFunc ( Motion ) ; - glutPassiveMotionFunc ( PassiveMotion ) ; - glutEntryFunc ( Entry ) ; - glutCloseFunc ( Close ) ; - glutOverlayDisplayFunc ( OverlayDisplay ) ; - glutWindowStatusFunc ( WindowStatus ) ; - glutSpaceballMotionFunc ( SpaceMotion ) ; - glutSpaceballRotateFunc ( SpaceRotation ) ; - glutSpaceballButtonFunc ( SpaceButton ) ; - glutButtonBoxFunc ( ButtonBox ) ; - glutDialsFunc ( Dials ) ; - glutTabletMotionFunc ( TabletMotion ) ; - glutTabletButtonFunc ( TabletButton ) ; - glutMenuDestroyFunc ( MenuDestroy ); - glutMenuStatusFunc ( MenuStatus ); - glutSetKeyRepeat(GLUT_KEY_REPEAT_OFF) ; - - subMenuA = glutCreateMenu( MenuCallback ); - glutAddMenuEntry( "Sub menu A1 (01)", 1 ); - glutAddMenuEntry( "Sub menu A2 (02)", 2 ); - glutAddMenuEntry( "Sub menu A3 (03)", 3 ); - - subMenuB = glutCreateMenu( MenuCallback ); - glutAddMenuEntry( "Sub menu B1 (04)", 4 ); - glutAddMenuEntry( "Sub menu B2 (05)", 5 ); - glutAddMenuEntry( "Sub menu B3 (06)", 6 ); - glutAddSubMenu( "Going to sub menu A", subMenuA ); - - menuID = glutCreateMenu( MenuCallback ); - glutAddMenuEntry( "Entry one", 1 ); - glutAddMenuEntry( "Entry two", 2 ); - glutAddMenuEntry( "Entry three", 3 ); - glutAddMenuEntry( "Entry four", 4 ); - glutAddMenuEntry( "Entry five", 5 ); - glutAddSubMenu( "Enter sub menu A", subMenuA ); - glutAddSubMenu( "Enter sub menu B", subMenuB ); - - glutAttachMenu( GLUT_LEFT_BUTTON ); - - aux_window = glutCreateWindow( "Second Window" ); - printf ( "Creating window %d as 'Second Window'\n", aux_window ) ; - - glClearColor(1.0, 1.0, 1.0, 1.0); - - glutDisplayFunc( Display ); - glutReshapeFunc( Reshape ); - glutKeyboardFunc( Key ); - glutSpecialFunc( Special ); - glutVisibilityFunc( Visibility ); - glutKeyboardUpFunc( KeyUp ); - glutSpecialUpFunc( SpecialUp ); - /* glutJoystickFunc( Joystick, 100 ); */ - glutMouseFunc ( Mouse ) ; - glutMouseWheelFunc ( MouseWheel ) ; - glutMotionFunc ( Motion ) ; - glutPassiveMotionFunc ( PassiveMotion ) ; - glutEntryFunc ( Entry ) ; - glutCloseFunc ( Close ) ; - glutOverlayDisplayFunc ( OverlayDisplay ) ; - glutWindowStatusFunc ( WindowStatus ) ; - glutSpaceballMotionFunc ( SpaceMotion ) ; - glutSpaceballRotateFunc ( SpaceRotation ) ; - glutSpaceballButtonFunc ( SpaceButton ) ; - glutButtonBoxFunc ( ButtonBox ) ; - glutDialsFunc ( Dials ) ; - glutTabletMotionFunc ( TabletMotion ) ; - glutTabletButtonFunc ( TabletButton ) ; - glutSetKeyRepeat(GLUT_KEY_REPEAT_OFF) ; - - glutIdleFunc ( Idle ); - - printf ( "Please enter something to continue: " ); - fgets ( dummy_string, STRING_LENGTH, stdin ); - - glutMainLoop(); - - printf ( "Back from the 'freeglut' main loop\n" ) ; - - return 0; /* ANSI C requires main to return int. */ -} diff --git a/internal/c/parts/core/android_core/progs/demos/Fractals/fractals.c b/internal/c/parts/core/android_core/progs/demos/Fractals/fractals.c deleted file mode 100644 index 4375750f7..000000000 --- a/internal/c/parts/core/android_core/progs/demos/Fractals/fractals.c +++ /dev/null @@ -1,336 +0,0 @@ -/* fractals.c */ -/* - * Program to draw a fractal by Michael Barnsley's deterministic algorithm. - * Algorithm: - * (1) Define the affine transformations (of the form r(i+1) = A r(i) + b ) - * (2) Find the stationary point for each transformation - * (3) To draw: - * - If you are at the lowest level, draw lines connecting all the stationary points - * - If not, call the draw function recursively with each affine transformation applied - */ - -/* - * User Commands: - * +,- - increment/decrement number of levels - * PgUp, PgDn - increase/decrease scaling - * Arrow keys - translate viewing section - * r - reset view - * Escape - quit - */ - -#include -#include -#include -#include -#include - -typedef struct -{ - double a00, a01, a10, a11 ; /* Transformation matrix */ - double b0, b1 ; /* Constant vector added on */ - double statx, staty ; /* Coordinates of the stationary point */ -} -AffineTrans ; - -/* Number of levels to draw the fractal */ -static int num_levels = 4 ; - -/* The definition of the fractal */ -static int num_trans ; -static AffineTrans *affine ; - -/* Flag telling us to keep executing the main loop */ -static int continue_in_main_loop = 1; - -/* the window title */ -char window_title [ 80 ] ; - -/* The amount the view is translated and scaled */ -double xwin = 0.0, ywin = 0.0 ; -double scale_factor = 1.0 ; - -static void draw_level ( int num, double m00, double m01, double m10, double m11, double n0, double n1 ) -{ - /* Draw a fractal transformed by "M", "N" as passed in */ - int i ; - - if ( num == 0 ) - { - double x0 = m00 * affine[0].statx + m01 * affine[0].staty + n0 ; - double y0 = m10 * affine[0].statx + m11 * affine[0].staty + n1 ; - - for ( i = 1; i < num_trans; i++ ) - { - double x1 = m00 * affine[i].statx + m01 * affine[i].staty + n0 ; - double y1 = m10 * affine[i].statx + m11 * affine[i].staty + n1 ; - - glVertex2d ( x0, y0 ) ; - glVertex2d ( x1, y1 ) ; - - x0 = x1 ; - y0 = y1 ; - } - } - else - { - /* Map each affine transformation in the fractal through the one passed in and call "draw_level" */ - - for ( i = 0; i < num_trans; i++ ) - { - draw_level ( num-1, m00*affine[i].a00+m01*affine[i].a10, m00*affine[i].a01+m01*affine[i].a11, - m10*affine[i].a00+m11*affine[i].a10, m10*affine[i].a01+m11*affine[i].a11, - m00*affine[i].b0 +m01*affine[i].b1 + n0, m10*affine[i].b0 +m11*affine[i].b1 + n1 ) ; - } - } -} - -static void -Display(void) -{ - glClear( GL_COLOR_BUFFER_BIT ); - - /* the curve */ - glPushMatrix(); - glScalef(2.5, 2.5, 2.5); - - glColor4f(0.0, 0.0, 0.0, 1.0); - glBegin ( GL_LINES ) ; - draw_level ( num_levels, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0 ); - glEnd () ; - - glPopMatrix(); - glutSwapBuffers(); -} - -static void -Reshape(int width, int height) -{ - float ar; - glViewport ( 0, 0, width, height ) ; - glMatrixMode ( GL_PROJECTION ) ; - glLoadIdentity(); - ar = (float) width / (float) height ; - if( ar > 1 ) - glFrustum ( -ar, ar, -1.0, 1.0, 2.0, 100.0 ) ; - else - glFrustum ( -1.0, 1.0, -1/ar, 1/ar, 2.0, 100.0 ); - glMatrixMode ( GL_MODELVIEW ) ; - glLoadIdentity () ; - xwin = -1.0 ; - ywin = 0.0 ; - glTranslated ( xwin, ywin, -5.0 ) ; -} - -static void -Key(unsigned char key, int x, int y) -{ - int need_redisplay = 1; - - switch (key) { - case 27: /* Escape key */ - continue_in_main_loop = 0 ; - break; - - case '+' : - ++num_levels ; - break ; - - case '-' : - if ( num_levels > 0 ) - --num_levels ; - break ; - - case 'r' : case 'R' : - glMatrixMode ( GL_MODELVIEW ) ; - glLoadIdentity(); - xwin = -1.0 ; - ywin = 0.0 ; - glTranslated ( xwin, ywin, -5.0 ) ; - break ; - - default: - need_redisplay = 0; - break; - } - if (need_redisplay) - glutPostRedisplay(); -} - -static void -Special(int key, int x, int y) -{ - int need_redisplay = 1; - - switch (key) { - case GLUT_KEY_UP : - glMatrixMode ( GL_MODELVIEW ) ; - ywin += 0.1 * scale_factor ; - glTranslated ( 0.0, 0.1 * scale_factor, 0.0 ) ; - break ; - - case GLUT_KEY_DOWN : - glMatrixMode ( GL_MODELVIEW ) ; - ywin -= 0.1 * scale_factor ; - glTranslated ( 0.0, -0.1 * scale_factor, 0.0 ) ; - break ; - - case GLUT_KEY_LEFT : - glMatrixMode ( GL_MODELVIEW ) ; - xwin -= 0.1 * scale_factor ; - glTranslated ( -0.1 * scale_factor, 0.0, 0.0 ) ; - break ; - - case GLUT_KEY_RIGHT : - glMatrixMode ( GL_MODELVIEW ) ; - xwin += 0.1 * scale_factor ; - glTranslated ( 0.1 * scale_factor, 0.0, 0.0 ) ; - break ; - - case GLUT_KEY_PAGE_UP : - glMatrixMode ( GL_MODELVIEW ) ; - glTranslated ( -xwin, -ywin, 0.0 ) ; - glScaled ( 1.25, 1.25, 1.25 ) ; - glTranslated ( xwin, ywin, 0.0 ) ; - scale_factor *= 0.8 ; - break ; - - case GLUT_KEY_PAGE_DOWN : - glMatrixMode ( GL_MODELVIEW ) ; - glTranslated ( -xwin, -ywin, 0.0 ) ; - glScaled ( 0.8, 0.8, 0.8 ) ; - glTranslated ( xwin, ywin, 0.0 ) ; - scale_factor *= 1.25 ; - break ; - - default: - need_redisplay = 0; - break; - } - if (need_redisplay) - glutPostRedisplay(); -} - - -static void -checkedFGets ( char *s, int size, FILE *stream ) -{ - if ( fgets ( s, size, stream ) == NULL ) { - fprintf ( stderr, "fgets failed\n"); - exit ( EXIT_FAILURE ); - } -} - - -void readConfigFile ( char *fnme ) -{ - FILE *fptr = fopen ( fnme, "rt" ) ; - int i ; - char inputline [ 256 ] ; - - if ( fptr ) - { - /* Read a header line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - /* Read a comment line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - /* Read the window title */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - /* We assume here that this line will not exceed 79 characters plus a - newline (window_title is 80 characters long). That'll cause a buffer - overflow. For a simple program like this, though, we're letting it - slide! - */ - sscanf ( inputline, "%[a-zA-Z0-9!@#$%^&*()+=/\\_-\" ]", window_title ) ; - - /* Read a comment line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - /* Read the number of affine transformations */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - sscanf ( inputline, "%d", &num_trans ) ; - - affine = (AffineTrans *)malloc ( num_trans * sizeof(AffineTrans) ) ; - - /* Read a comment line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - for ( i = 0; i < num_trans; i++ ) - { - /* Read an affine transformation definition */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - sscanf ( inputline, "%lf %lf %lf %lf %lf %lf", &affine[i].a00, &affine[i].a01, - &affine[i].a10, &affine[i].a11, &affine[i].b0, &affine[i].b1 ) ; - } - } - else /* No data file, set a default */ - { - printf ( "ERROR opening file <%s>\n", fnme ) ; - strcpy ( window_title, "Cantor Dust" ) ; - num_trans = 2 ; - affine = (AffineTrans *)malloc ( num_trans * sizeof(AffineTrans) ) ; - affine[0].a00 = 0.25 ; affine[0].a01 = 0.00 ; affine[0].a10 = 0.00 ; affine[0].a11 = 0.25 ; - affine[0].b0 = 0.0 ; affine[0].b1 = 0.0 ; - affine[1].a00 = 0.25 ; affine[1].a01 = 0.00 ; affine[1].a10 = 0.00 ; affine[1].a11 = 0.25 ; - affine[1].b0 = 0.5 ; affine[1].b1 = 0.0 ; - } - - for ( i = 0; i < num_trans; i++ ) - { - double m00, m01, m10, m11 ; /* Matrix "I" minus "A" */ - double determ ; /* Determinant of this matrix */ - - /* Calculate the stationary point */ - - m00 = 1.0 - affine[i].a00 ; - m01 = - affine[i].a01 ; - m10 = - affine[i].a10 ; - m11 = 1.0 - affine[i].a11 ; - - determ = m00 * m11 - m01 * m10 ; - - if ( fabs ( determ ) > 1.e-6 ) - { - affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ; - affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ; - } - else - affine[i].statx = affine[i].staty = 0.0 ; - } -} - -int -main(int argc, char *argv[]) -{ - int fractal_window ; - - glutInitWindowSize(500, 250); - glutInitWindowPosition ( 140, 140 ); - glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE ); - glutInit(&argc, argv); - - if ( argc > 1 ) - readConfigFile ( argv[1] ) ; - else - readConfigFile ( "fractals.dat" ) ; - - fractal_window = glutCreateWindow( window_title ); - - glClearColor(1.0, 1.0, 1.0, 1.0); - - glutReshapeFunc(Reshape); - glutKeyboardFunc(Key); - glutSpecialFunc(Special); - glutDisplayFunc(Display); - -#ifdef WIN32 -#endif - - while ( continue_in_main_loop ) - glutMainLoopEvent(); - - printf ( "Back from the 'freeglut' main loop\n" ) ; - - return 0; /* ANSI C requires main to return int. */ -} diff --git a/internal/c/parts/core/android_core/progs/demos/Fractals/fractals.dat b/internal/c/parts/core/android_core/progs/demos/Fractals/fractals.dat deleted file mode 100644 index 4a9399a87..000000000 --- a/internal/c/parts/core/android_core/progs/demos/Fractals/fractals.dat +++ /dev/null @@ -1,10 +0,0 @@ -Koch Snowflake Fractal -Title of window -"Koch Snowflake" -Number of transformations -4 - A00 A01 A10 A11 B0 B1 -0.33333 0.0 0.0 0.33333 0.0 0.0 -0.16667 -.28868 0.28868 0.16667 0.33333 0.0 -0.16667 0.28868 -.28868 0.16667 0.5 0.28868 -0.33333 0.0 0.0 0.33333 0.66667 0.0 diff --git a/internal/c/parts/core/android_core/progs/demos/Fractals_random/fractals.dat b/internal/c/parts/core/android_core/progs/demos/Fractals_random/fractals.dat deleted file mode 100644 index 4a9399a87..000000000 --- a/internal/c/parts/core/android_core/progs/demos/Fractals_random/fractals.dat +++ /dev/null @@ -1,10 +0,0 @@ -Koch Snowflake Fractal -Title of window -"Koch Snowflake" -Number of transformations -4 - A00 A01 A10 A11 B0 B1 -0.33333 0.0 0.0 0.33333 0.0 0.0 -0.16667 -.28868 0.28868 0.16667 0.33333 0.0 -0.16667 0.28868 -.28868 0.16667 0.5 0.28868 -0.33333 0.0 0.0 0.33333 0.66667 0.0 diff --git a/internal/c/parts/core/android_core/progs/demos/Fractals_random/fractals_random.c b/internal/c/parts/core/android_core/progs/demos/Fractals_random/fractals_random.c deleted file mode 100644 index 05af288cd..000000000 --- a/internal/c/parts/core/android_core/progs/demos/Fractals_random/fractals_random.c +++ /dev/null @@ -1,387 +0,0 @@ -/* fractals_random.c */ -/* This demo shows a single-buffering "freeglut" example. */ - -/* - * Program to draw a fractal by Michael Barnsley's stochastic algorithm. - * Algorithm: - * (1) Define the affine transformations (of the form r(i+1) = A r(i) + b ) - * (2) Find the stationary point for the first transformation - * (3) To draw: - * - Pick a random integer between 1 and the number of transformations (inclusive) - * - Send the current point through the transformation to create the new current point - * - Plot the new current point - */ - -/* - * User Commands: - * PgUp, PgDn - increase/decrease scaling - * Arrow keys - translate viewing section - * r - reset view - * Escape - quit - */ - -#include -#include -#include -#include -#include -#ifdef _MSC_VER -/* DUMP MEMORY LEAKS */ -#include -#endif - -typedef struct -{ - double a00, a01, a10, a11 ; /* Transformation matrix */ - double b0, b1 ; /* Constant vector added on */ - double statx, staty ; /* Coordinates of the stationary point */ -} -AffineTrans ; - -/* Number of levels to draw the fractal */ -static int num_levels = 0 ; - -/* The definition of the fractal */ -static int num_trans ; -static AffineTrans *affine ; - -/* the window title */ -char window_title [ 80 ] ; - -/* The amount the view is translated */ -double xwin = 0.0, ywin = 0.0 ; -double scale_factor = 1.0 ; - -/* The current point */ -double current_x = 0.0, current_y = 0.0 ; - -/* Signals when a glClear is needed */ -static GLboolean needClear = GL_TRUE; - -static void draw_level ( int num, double m00, double m01, double m10, double m11, double n0, double n1 ) -{ - /* Draw a fractal transformed by "M", "N" as passed in */ - int i ; - - for ( i = 0; i < 10; i++ ) - { - int random = ( rand( ) >> 10 ) % num_trans; - double new_x = affine[random].a00 * current_x + affine[random].a01 * current_y + affine[random].b0 ; - double new_y = affine[random].a10 * current_x + affine[random].a11 * current_y + affine[random].b1 ; - - glVertex2d ( new_x, new_y ) ; - current_x = new_x ; - current_y = new_y ; - } -} - -static void -Display(void) -{ - if (needClear) { - glClear(GL_COLOR_BUFFER_BIT); - needClear = GL_FALSE; - } - - /* the curve */ - glPushMatrix(); - glScaled(2.5, 2.5, 2.5); - - glColor4f(0.0, 0.0, 0.0, 1.0); - glBegin ( GL_POINTS ) ; - draw_level ( num_levels, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0 ); - glEnd () ; - - glPopMatrix(); - - glFlush(); - glutPostRedisplay(); /* Needed so that this function will be called again */ -} - -static void -Reshape(int width, int height) -{ - float ar; - glViewport(0, 0, width, height); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - ar = (float) width / (float) height; - if( ar > 1 ) - glFrustum(-ar, ar, -1.0, 1.0, 2.0, 100.0); - else - glFrustum(-1.0, 1.0, -1/ar, 1/ar, 2.0, 100.0); - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - xwin = -1.0 ; - ywin = 0.0 ; - glTranslated(xwin, ywin, -5.0); - needClear = GL_TRUE; -} - -static void -Key(unsigned char key, int x, int y) -{ - int changed_settings = 1; - - switch (key) { - case 27: /* Escape key */ - glutLeaveMainLoop (); - break; - - case 'r' : case 'R' : - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - xwin = -1.0 ; - ywin = 0.0 ; - glTranslated(xwin, ywin, -5.0); - break ; - - default: - changed_settings = 0; - break; - } - if (changed_settings) - needClear = GL_TRUE; - glutPostRedisplay(); -} - -static void -Special(int key, int x, int y) -{ - int changed_settings = 1; - - switch (key) { - case GLUT_KEY_UP : - glMatrixMode(GL_MODELVIEW); - ywin += 0.1 * scale_factor ; - glTranslated(0.0, 0.1 * scale_factor, 0.0); - break ; - - case GLUT_KEY_DOWN : - glMatrixMode(GL_MODELVIEW); - ywin -= 0.1 * scale_factor ; - glTranslated(0.0, -0.1 * scale_factor, 0.0); - break ; - - case GLUT_KEY_LEFT : - glMatrixMode(GL_MODELVIEW); - xwin -= 0.1 * scale_factor ; - glTranslated(-0.1 * scale_factor, 0.0, 0.0); - break ; - - case GLUT_KEY_RIGHT : - glMatrixMode(GL_MODELVIEW); - xwin += 0.1 * scale_factor ; - glTranslated(0.1 * scale_factor, 0.0, 0.0); - break ; - - case GLUT_KEY_PAGE_UP : - glMatrixMode(GL_MODELVIEW); - glTranslated ( -xwin, -ywin, 0.0 ) ; - glScaled(1.25, 1.25, 1.25); - glTranslated ( xwin, ywin, 0.0 ) ; - scale_factor *= 0.8 ; - break ; - - case GLUT_KEY_PAGE_DOWN : - glMatrixMode(GL_MODELVIEW); - glTranslated ( -xwin, -ywin, 0.0 ) ; - glScaled(0.8, 0.8, 0.8); - glTranslated ( xwin, ywin, 0.0 ) ; - scale_factor *= 1.25 ; - break ; - - default: - changed_settings = 0; - break; - } - if (changed_settings) - needClear = GL_TRUE; - - glutPostRedisplay(); -} - - -static int mouse_x = 0, mouse_y = 0 ; -static int button_down = GLUT_DOWN ; - -static void -Mouse ( int button, int updown, int x, int y ) -{ - button_down = updown ; - - if ( updown == GLUT_DOWN ) - { - mouse_x = x ; - mouse_y = y ; - } -} - -static void -MouseMotion ( int x, int y ) -{ - int window_width = glutGet ( GLUT_WINDOW_WIDTH ) ; - int window_height = glutGet ( GLUT_WINDOW_HEIGHT ) ; - int window_size = ( window_width < window_height ) ? window_width : window_height ; - - double delta_x = 5.0 * (double)(x - mouse_x) / (double)(window_size) ; - double delta_y = 5.0 * (double)(y - mouse_y) / (double)(window_size) ; - - xwin += delta_x * scale_factor ; - ywin -= delta_y * scale_factor ; - glMatrixMode ( GL_MODELVIEW ) ; - glTranslated ( delta_x * scale_factor, -delta_y * scale_factor, 0.0 ) ; - - needClear = GL_TRUE; - glutPostRedisplay(); - - mouse_x = x ; - mouse_y = y ; -} - -static void -MouseWheel ( int wheel_number, int direction, int x, int y ) -{ - double scale = ( direction > 0 ) ? 1.25 : 0.8 ; - - glMatrixMode ( GL_MODELVIEW ) ; - glTranslated ( -xwin, -ywin, 0.0 ) ; - glScaled ( scale, scale, scale ) ; - glTranslated ( xwin, ywin, 0.0 ) ; - scale_factor /= scale ; - - needClear = GL_TRUE; - glutPostRedisplay(); -} - - -static void -checkedFGets ( char *s, int size, FILE *stream ) -{ - if ( fgets ( s, size, stream ) == NULL ) { - fprintf ( stderr, "fgets failed\n"); - exit ( EXIT_FAILURE ); - } -} - - -void readConfigFile ( char *fnme ) -{ - FILE *fptr = fopen ( fnme, "rt" ) ; - int i ; - char inputline [ 256 ] ; - - if ( fptr ) - { - /* Read a header line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - /* Read a comment line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - /* Read the window title */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - /* We assume here that this line will not exceed 79 characters plus a - newline (window_title is 80 characters long). That'll cause a buffer - overflow. For a simple program like this, though, we're letting it - slide! - */ - sscanf ( inputline, "%[a-zA-Z0-9!@#$%^&*()+=/\\_-\" ]", window_title ) ; - - /* Read a comment line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - /* Read the number of affine transformations */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - sscanf ( inputline, "%d", &num_trans ) ; - - affine = (AffineTrans *)malloc ( num_trans * sizeof(AffineTrans) ) ; - - /* Read a comment line */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - - for ( i = 0; i < num_trans; i++ ) - { - /* Read an affine transformation definition */ - checkedFGets ( inputline, sizeof ( inputline ), fptr ) ; - sscanf ( inputline, "%lf %lf %lf %lf %lf %lf", &affine[i].a00, &affine[i].a01, - &affine[i].a10, &affine[i].a11, &affine[i].b0, &affine[i].b1 ) ; - } - } - else /* No data file, set a default */ - { - printf ( "ERROR opening file <%s>\n", fnme ) ; - strcpy ( window_title, "Cantor Dust" ) ; - num_trans = 2 ; - affine = (AffineTrans *)malloc ( num_trans * sizeof(AffineTrans) ) ; - affine[0].a00 = 0.25 ; affine[0].a01 = 0.00 ; affine[0].a10 = 0.00 ; affine[0].a11 = 0.25 ; - affine[0].b0 = 0.0 ; affine[0].b1 = 0.0 ; - affine[1].a00 = 0.25 ; affine[1].a01 = 0.00 ; affine[1].a10 = 0.00 ; affine[1].a11 = 0.25 ; - affine[1].b0 = 0.5 ; affine[1].b1 = 0.0 ; - } - - for ( i = 0; i < num_trans; i++ ) - { - double m00, m01, m10, m11 ; /* Matrix "I" minus "A" */ - double determ ; /* Determinant of this matrix */ - - /* Calculate the stationary point */ - - m00 = 1.0 - affine[i].a00 ; - m01 = - affine[i].a01 ; - m10 = - affine[i].a10 ; - m11 = 1.0 - affine[i].a11 ; - - determ = m00 * m11 - m01 * m10 ; - - if ( fabs ( determ ) > 1.e-6 ) - { - affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ; - affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ; - } - else - affine[i].statx = affine[i].staty = 0.0 ; - } -} - -int -main(int argc, char *argv[]) -{ - int fractal_window ; - - glutInitDisplayMode( GLUT_RGB | GLUT_SINGLE ); - - glutInitWindowSize(500, 250); - glutInitWindowPosition ( 140, 140 ) ; - glutInit(&argc, argv); - - if ( argc > 1 ) - readConfigFile ( argv[1] ) ; - else - readConfigFile ( "fractals.dat" ) ; - - fractal_window = glutCreateWindow( window_title ); - - glClearColor(1.0, 1.0, 1.0, 1.0); - - glutReshapeFunc(Reshape); - glutKeyboardFunc(Key); - glutSpecialFunc(Special); - glutDisplayFunc(Display); - glutMouseFunc(Mouse); - glutMotionFunc(MouseMotion); - glutMouseWheelFunc(MouseWheel); - - glutMainLoop(); - - printf ( "Back from the 'freeglut' main loop\n" ) ; - - free ( affine ) ; - -#ifdef _MSC_VER - /* DUMP MEMORY LEAK INFORMATION */ - _CrtDumpMemoryLeaks () ; -#endif - - return 0; /* ANSI C requires main to return int. */ -} diff --git a/internal/c/parts/core/android_core/progs/demos/Lorenz/lorenz.c b/internal/c/parts/core/android_core/progs/demos/Lorenz/lorenz.c deleted file mode 100644 index d27fa7620..000000000 --- a/internal/c/parts/core/android_core/progs/demos/Lorenz/lorenz.c +++ /dev/null @@ -1,379 +0,0 @@ -/* - * Lorenz Strange Attractor - * - * Written by John F. Fay in honor of the "freeglut" 2.0.0 release in July 2003 - * - * What it does: - * This program starts with two particles right next to each other. The particles - * move through a three-dimensional phase space governed by the following equations: - * dx/dt = sigma * ( y - x ) - * dy/dt = r * x - y + x * z - * dz/dt = x * y + b * z - * These are the Lorenz equations and define the "Lorenz Attractor." Any two particles - * arbitrarily close together will move apart as time increases, but their tracks are - * confined within a region of the space. - * - * Commands: - * Arrow keys: Rotate the view - * PgUp, PgDn: Zoom in and out - * Mouse click: Center on the nearest point on a particle trajectory - * - * 'r'/'R': Reset the simulation - * 'm'/'M': Modify the Lorenz parameters (in the text window) - * 's'/'S': Stop (the advancement in time) - * 'g'/'G': Go - * : Single-step - * : Quit - */ - -/* Include Files */ -#include -#include -#include -#include -#include -#include -#ifdef _MSC_VER -/* DUMP MEMORY LEAKS */ -#include -#endif - - -/************************************** Defined Constants ***************************************/ -/* Number of points to draw in the curves */ -#define NUM_POINTS 512 - -/* Angle to rotate when the user presses an arrow key */ -#define ROTATION_ANGLE 5.0 - -/* Amount to scale bu when the user presses PgUp or PgDn */ -#define SCALE_FACTOR 0.8 - - -/*************************************** Global Variables ***************************************/ -/* Lorenz Attractor variables */ -double s0 = 10.0, r0 = 28.0, b0 = 8.0/3.0 ; /* Default Lorenz attactor parameters */ -double time_step = 0.03 ; /* Time step in the simulation */ -double sigma = 10.0, r = 28.0, b = 8.0/3.0 ; /* Lorenz attactor parameters */ -double red_position[NUM_POINTS][3] ; /* Path of the red point */ -double grn_position[NUM_POINTS][3] ; /* Path of the green point */ -int array_index ; /* Position in *_position arrays of most recent point */ -double distance = 0.0 ; /* Distance between the two points */ - -/* GLUT variables */ -double yaw = 0.0, pit = 0.0 ; /* Euler angles of the viewing rotation */ -double scale = 1.0 ; /* Scale factor */ -double xcen = 0.0, ycen = 0.0, zcen = 0.0 ; /* Coordinates of the point looked at */ - -int animate = 1 ; /* 0 - stop, 1 = go, 2 = single-step */ - - -/******************************************* Functions ******************************************/ - -/* The Lorenz Attractor */ -void calc_deriv ( double position[3], double deriv[3] ) -{ - /* Calculate the Lorenz attractor derivatives */ - deriv[0] = sigma * ( position[1] - position[0] ) ; - deriv[1] = ( r + position[2] ) * position[0] - position[1] ; - deriv[2] = -position[0] * position[1] - b * position[2] ; -} - -void advance_in_time ( double time_step, double position[3], double new_position[3] ) -{ - /* Move a point along the Lorenz attractor */ - double deriv0[3], deriv1[3], deriv2[3], deriv3[3] ; - int i ; - memcpy ( new_position, position, 3 * sizeof(double) ) ; /* Save the present values */ - - /* First pass in a Fourth-Order Runge-Kutta integration method */ - calc_deriv ( position, deriv0 ) ; - for ( i = 0; i < 3; i++ ) - new_position[i] = position[i] + 0.5 * time_step * deriv0[i] ; - - /* Second pass */ - calc_deriv ( new_position, deriv1 ) ; - for ( i = 0; i < 3; i++ ) - new_position[i] = position[i] + 0.5 * time_step * deriv1[i] ; - - /* Third pass */ - calc_deriv ( position, deriv2 ) ; - for ( i = 0; i < 3; i++ ) - new_position[i] = position[i] + time_step * deriv2[i] ; - - /* Second pass */ - calc_deriv ( new_position, deriv3 ) ; - for ( i = 0; i < 3; i++ ) - new_position[i] = position[i] + 0.1666666666666666667 * time_step * - ( deriv0[i] + 2.0 * ( deriv1[i] + deriv2[i] ) + deriv3[i] ) ; -} - -static void -checkedFGets ( char *s, int size, FILE *stream ) -{ - if ( fgets ( s, size, stream ) == NULL ) { - fprintf ( stderr, "fgets failed\n"); - exit ( EXIT_FAILURE ); - } -} - - -/* GLUT callbacks */ - -#define INPUT_LINE_LENGTH 80 - -void key_cb ( unsigned char key, int x, int y ) -{ - int i ; - char inputline [ INPUT_LINE_LENGTH ] ; - - switch ( key ) - { - case 'r' : case 'R' : /* Reset the simulation */ - /* Reset the Lorenz parameters */ - sigma = s0 ; - b = b0 ; - r = r0 ; - /* Set an initial position */ - red_position[0][0] = (double)rand() / (double)RAND_MAX ; - red_position[0][1] = (double)rand() / (double)RAND_MAX ; - red_position[0][2] = (double)rand() / (double)RAND_MAX ; - grn_position[0][0] = (double)rand() / (double)RAND_MAX ; - grn_position[0][1] = (double)rand() / (double)RAND_MAX ; - grn_position[0][2] = (double)rand() / (double)RAND_MAX ; - array_index = 0 ; - /* Initialize the arrays */ - for ( i = 1; i < NUM_POINTS; i++ ) - { - memcpy ( red_position[i], red_position[0], 3 * sizeof(double) ) ; - memcpy ( grn_position[i], grn_position[0], 3 * sizeof(double) ) ; - } - - break ; - - case 'm' : case 'M' : /* Modify the Lorenz parameters */ - printf ( "Please enter new value for (default %f, currently %f): ", s0, sigma ) ; - checkedFGets ( inputline, sizeof ( inputline ), stdin ) ; - sscanf ( inputline, "%lf", &sigma ) ; - - printf ( "Please enter new value for (default %f, currently %f): ", b0, b ) ; - checkedFGets ( inputline, sizeof ( inputline ), stdin ) ; - sscanf ( inputline, "%lf", &b ) ; - - printf ( "Please enter new value for (default %f, currently %f): ", r0, r ) ; - checkedFGets ( inputline, sizeof ( inputline ), stdin ) ; - sscanf ( inputline, "%lf", &r ) ; - - break ; - - case 's' : case 'S' : /* Stop the animation */ - animate = 0 ; - break ; - - case 'g' : case 'G' : /* Start the animation */ - animate = 1 ; - break ; - - case ' ' : /* Spacebar: Single step */ - animate = 2 ; - break ; - - case 27 : /* Escape key */ - glutLeaveMainLoop () ; - break ; - } -} - -void special_cb ( int key, int x, int y ) -{ - switch ( key ) - { - case GLUT_KEY_UP : /* Rotate up a little */ - glRotated ( ROTATION_ANGLE, 0.0, 1.0, 0.0 ) ; - break ; - - case GLUT_KEY_DOWN : /* Rotate down a little */ - glRotated ( -ROTATION_ANGLE, 0.0, 1.0, 0.0 ) ; - break ; - - case GLUT_KEY_LEFT : /* Rotate left a little */ - glRotated ( ROTATION_ANGLE, 0.0, 0.0, 1.0 ) ; - break ; - - case GLUT_KEY_RIGHT : /* Rotate right a little */ - glRotated ( -ROTATION_ANGLE, 0.0, 0.0, 1.0 ) ; - break ; - - case GLUT_KEY_PAGE_UP : /* Zoom in a little */ - glScaled ( 1.0 / SCALE_FACTOR, 1.0 / SCALE_FACTOR, 1.0 / SCALE_FACTOR ) ; - break ; - - case GLUT_KEY_PAGE_DOWN : /* Zoom out a little */ - glScaled ( SCALE_FACTOR, SCALE_FACTOR, SCALE_FACTOR ) ; - break ; - } - - glutPostRedisplay () ; -} - -void mouse_cb ( int button, int updown, int x, int y ) -{ - if ( updown == GLUT_DOWN ) - { - double dist = 1.0e20 ; /* A very large number */ - dist = 0.0 ; /* so we don't get "unused variable" compiler warning */ - /* The idea here is that we go into "pick" mode and pick the nearest point - to the mouse click position. Unfortunately I don't have the time to implement - it at the moment. */ - } -} - -void draw_curve ( int index, double position [ NUM_POINTS ][3] ) -{ - int i = index ; - - glBegin ( GL_LINE_STRIP ) ; - do - { - i = ( i == NUM_POINTS-1 ) ? 0 : i + 1 ; - glVertex3dv ( position[i] ) ; - } - while ( i != index ) ; - - glEnd () ; -} - -void bitmapPrintf (const char *fmt, ...) -{ - static char buf[256]; - va_list args; - - va_start(args, fmt); -#if defined(WIN32) && !defined(__CYGWIN__) - (void) _vsnprintf (buf, sizeof(buf), fmt, args); -#else - (void) vsnprintf (buf, sizeof(buf), fmt, args); -#endif - va_end(args); - glutBitmapString ( GLUT_BITMAP_HELVETICA_12, (unsigned char*)buf ) ; -} - -void display_cb ( void ) -{ - glClear ( GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT ) ; - - glColor3d ( 1.0, 1.0, 1.0 ) ; /* White */ - /* Draw some axes */ - glBegin ( GL_LINES ) ; - glVertex3d ( 0.0, 0.0, 0.0 ) ; - glVertex3d ( 2.0, 0.0, 0.0 ) ; - glVertex3d ( 0.0, 0.0, 0.0 ) ; - glVertex3d ( 0.0, 1.0, 0.0 ) ; - glVertex3d ( 0.0, 0.0, 0.0 ) ; - glVertex3d ( 0.0, 0.0, 1.0 ) ; - glEnd () ; - - glColor3d ( 1.0, 0.0, 0.0 ) ; /* Red */ - draw_curve ( array_index, red_position ) ; - - glColor3d ( 0.0, 1.0, 0.0 ) ; /* Green */ - draw_curve ( array_index, grn_position ) ; - - /* Print the distance between the two points */ - glColor3d ( 1.0, 1.0, 1.0 ) ; /* White */ - glRasterPos2i ( 1, 1 ) ; - bitmapPrintf ( "Distance: %10.6f", distance ) ; - - glutSwapBuffers(); -} - -void reshape_cb ( int width, int height ) -{ - float ar; - glViewport ( 0, 0, width, height ) ; - glMatrixMode ( GL_PROJECTION ) ; - glLoadIdentity () ; - ar = (float) width / (float) height ; - glFrustum ( -ar, ar, -1.0, 1.0, 10.0, 100.0 ) ; - glMatrixMode ( GL_MODELVIEW ) ; - glLoadIdentity () ; - xcen = 0.0 ; - ycen = 0.0 ; - zcen = 0.0 ; - glTranslated ( xcen, ycen, zcen - 50.0 ) ; -} - - -void timer_cb ( int value ) -{ - /* Function called at regular intervals to update the positions of the points */ - double deltax, deltay, deltaz ; - int new_index = array_index + 1 ; - - /* Set the next timed callback */ - glutTimerFunc ( 30, timer_cb, 0 ) ; - - if ( animate > 0 ) - { - if ( new_index == NUM_POINTS ) new_index = 0 ; - advance_in_time ( time_step, red_position[array_index], red_position[new_index] ) ; - advance_in_time ( time_step, grn_position[array_index], grn_position[new_index] ) ; - array_index = new_index ; - - deltax = red_position[array_index][0] - grn_position[array_index][0] ; - deltay = red_position[array_index][1] - grn_position[array_index][1] ; - deltaz = red_position[array_index][2] - grn_position[array_index][2] ; - distance = sqrt ( deltax * deltax + deltay * deltay + deltaz * deltaz ) ; - - if ( animate == 2 ) animate = 0 ; - } - - glutPostRedisplay () ; -} - - - -/* The Main Program */ - -int main ( int argc, char *argv[] ) -{ - int pargc = argc ; - - /* Initialize the random number generator */ - srand ( 1023 ) ; - - /* Set up the OpenGL parameters */ - glEnable ( GL_DEPTH_TEST ) ; - glClearColor ( 0.0, 0.0, 0.0, 0.0 ) ; - glClearDepth ( 1.0 ) ; - - /* Initialize GLUT */ - glutInitWindowSize ( 600, 600 ) ; - glutInit ( &pargc, argv ) ; - glutInitDisplayMode ( GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH ) ; - - /* Create the window */ - glutCreateWindow ( "Lorenz Attractor" ) ; - glutKeyboardFunc ( key_cb ) ; - glutMouseFunc ( mouse_cb ) ; - glutSpecialFunc ( special_cb ) ; - glutDisplayFunc ( display_cb ) ; - glutReshapeFunc ( reshape_cb ) ; - glutTimerFunc ( 30, timer_cb, 0 ) ; - - /* Initialize the attractor: The easiest way is to call the keyboard callback with an - * argument of 'r' for Reset. - */ - key_cb ( 'r', 0, 0 ) ; - - /* Enter the GLUT main loop */ - glutMainLoop () ; - -#ifdef _MSC_VER - /* DUMP MEMORY LEAK INFORMATION */ - _CrtDumpMemoryLeaks () ; -#endif - - return 0 ; -} - diff --git a/internal/c/parts/core/android_core/progs/demos/One/one.c b/internal/c/parts/core/android_core/progs/demos/One/one.c deleted file mode 100644 index bc4004582..000000000 --- a/internal/c/parts/core/android_core/progs/demos/One/one.c +++ /dev/null @@ -1,339 +0,0 @@ -/* - * one.c - * - * Hey! This was the original file where freeglut development started. Just - * note what I have written here at the time. And see the creation date :) - * - * : This is a wrapper. I still have to figure out - * : how to build shared libraries under *nix :) - * - * Copyright (c) 1999 by Pawel W. Olszta - * Written by Pawel W. Olszta, - * Creation date: czw gru 2 11:58:41 CET 1999 - */ - -#ifdef HAVE_CONFIG_H -#include -#endif - -#include -#include - -#include - -int g_LeaveGameMode = 0; -int g_InGameMode = 0; - -/* - * Call this function to have some text drawn at given coordinates - */ -void PrintText( int nX, int nY, char* pszText ) -{ - int lines; - char *p; - - /* - * Prepare the OpenGL state - */ - glDisable( GL_LIGHTING ); - glDisable( GL_DEPTH_TEST ); - glMatrixMode( GL_PROJECTION ); - glPushMatrix(); - glLoadIdentity(); - - /* - * Have an orthogonal projection matrix set - */ - glOrtho( 0, glutGet( GLUT_WINDOW_WIDTH ), - 0, glutGet( GLUT_WINDOW_HEIGHT ), - -1, +1 - ); - - /* - * Now the matrix mode - */ - glMatrixMode( GL_MODELVIEW ); - glPushMatrix(); - glLoadIdentity(); - - /* - * Now the main text - */ - glColor3ub( 0, 0, 0 ); - glRasterPos2i( nX, nY ); - - for( p=pszText, lines=0; *p; p++ ) - { - if( *p == '\n' ) - { - lines++; - glRasterPos2i( nX, nY-(lines*18) ); - } - - glutBitmapCharacter( GLUT_BITMAP_HELVETICA_18, *p ); - } - - /* - * Revert to the old matrix modes - */ - glMatrixMode( GL_PROJECTION ); - glPopMatrix(); - - glMatrixMode( GL_MODELVIEW ); - glPopMatrix(); - - /* - * Restore the old OpenGL states - */ - glColor4f( 1.0f, 1.0f, 1.0f, 1.0f ); - glEnable( GL_DEPTH_TEST ); - glEnable( GL_LIGHTING ); -} - -/* - * This is the display routine for our sample FreeGLUT windows - */ -static float g_fTime = 0.0f; - -void SampleDisplay( void ) -{ - /* - * Clear the screen - */ - glClearColor( 0, 0.5, 1, 1 ); - glClear( GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT ); - - /* - * Have the cube rotated - */ - glMatrixMode( GL_MODELVIEW ); - glPushMatrix(); - - glRotatef( g_fTime, 0, 0, 1 ); - glRotatef( g_fTime, 0, 1, 0 ); - glRotatef( g_fTime, 1, 0, 0 ); - - /* - * And then drawn... - */ - glColor3f( 1, 1, 0 ); - /* glutWireCube( 20.0 ); */ - glutWireTeapot( 20.0 ); - /* glutWireSpher( 15.0, 15, 15 ); */ - /* glColor3f( 0, 1, 0 ); */ - /* glutWireCube( 30.0 ); */ - /* glutSolidCone( 10, 20, 10, 2 ); */ - - /* - * Don't forget about the model-view matrix - */ - glPopMatrix( ); - - /* - * Draw a silly text - */ - if( g_InGameMode == 0 ) - PrintText( 20, 20, "Hello there cruel world!" ); - else - PrintText( 20, 20, "Press ESC to leave the game mode!" ); - - /* - * And swap this context's buffers - */ - glutSwapBuffers( ); -} - -/* - * This is a sample idle function - */ -void SampleIdle( void ) -{ - g_fTime += 0.5f; - - if( g_LeaveGameMode == 1 ) - { - glutLeaveGameMode( ); - g_LeaveGameMode = 0; - g_InGameMode = 0; - } -} - -/* - * The reshape function - */ -void SampleReshape( int nWidth, int nHeight ) -{ - GLfloat fAspect = (GLfloat) nHeight / (GLfloat) nWidth; - GLfloat fPos[ 4 ] = { 0.0f, 0.0f, 10.0f, 0.0f }; - GLfloat fCol[ 4 ] = { 0.5f, 1.0f, 0.0f, 1.0f }; - - /* - * Update the viewport first - */ - glViewport( 0, 0, nWidth, nHeight ); - - /* - * Then the projection matrix - */ - glMatrixMode( GL_PROJECTION ); - glLoadIdentity(); - glFrustum( -1.0, 1.0, -fAspect, fAspect, 1.0, 80.0 ); - - /* - * Move back the camera a bit - */ - glMatrixMode( GL_MODELVIEW ); - glLoadIdentity( ); - glTranslatef( 0.0, 0.0, -40.0f ); - - /* - * Enable some features... - */ - glEnable( GL_CULL_FACE ); - glEnable( GL_DEPTH_TEST ); - glEnable( GL_NORMALIZE ); - - /* - * Set up some lighting - */ - glLightfv( GL_LIGHT0, GL_POSITION, fPos ); - glEnable( GL_LIGHTING ); - glEnable( GL_LIGHT0 ); - - /* - * Set up a sample material - */ - glMaterialfv( GL_FRONT, GL_AMBIENT_AND_DIFFUSE, fCol ); -} - -/* - * A sample keyboard callback - */ -void SampleKeyboard( unsigned char cChar, int nMouseX, int nMouseY ) -{ - printf( "SampleKeyboard(): keypress '%c' at (%i,%i)\n", - cChar, nMouseX, nMouseY ); -} - -/* - * A sample keyboard callback (for game mode window) - */ -void SampleGameModeKeyboard( unsigned char cChar, int nMouseX, int nMouseY ) -{ - if( cChar == 27 ) - g_LeaveGameMode = 1; -} - - -/* - * A sample special callback - */ -void SampleSpecial( int nSpecial, int nMouseX, int nMouseY ) -{ - printf( "SampleSpecial(): special keypress %i at (%i,%i)\n", - nSpecial, nMouseX, nMouseY ); -} - -/* - * A sample menu callback - */ -void SampleMenu( int menuID ) -{ - /* - * Just print something funny - */ - printf( "SampleMenu() callback executed, menuID is %i\n", menuID ); -} - -/* - * The sample's entry point - */ -int main( int argc, char** argv ) -{ - int menuID, subMenuA, subMenuB; - - glutInitDisplayString( "stencil~2 rgb double depth>=16 samples" ); - glutInitDisplayMode( GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH ); - glutInitWindowPosition( 100, 100 ); - - glutInit( &argc, argv ); - - glutSetOption(GLUT_ACTION_ON_WINDOW_CLOSE,GLUT_ACTION_GLUTMAINLOOP_RETURNS); - - subMenuA = glutCreateMenu( SampleMenu ); - glutAddMenuEntry( "Sub menu A1 (01)", 1 ); - glutAddMenuEntry( "Sub menu A2 (02)", 2 ); - glutAddMenuEntry( "Sub menu A3 (03)", 3 ); - - subMenuB = glutCreateMenu( SampleMenu ); - glutAddMenuEntry( "Sub menu B1 (04)", 4 ); - glutAddMenuEntry( "Sub menu B2 (05)", 5 ); - glutAddMenuEntry( "Sub menu B3 (06)", 6 ); - glutAddSubMenu( "Going to sub menu A", subMenuA ); - - menuID = glutCreateMenu( SampleMenu ); - glutAddMenuEntry( "Entry one", 1 ); - glutAddMenuEntry( "Entry two", 2 ); - glutAddMenuEntry( "Entry three", 3 ); - glutAddMenuEntry( "Entry four", 4 ); - glutAddMenuEntry( "Entry five", 5 ); - glutAddSubMenu( "Enter sub menu A", subMenuA ); - glutAddSubMenu( "Enter sub menu B", subMenuB ); - - glutCreateWindow( "Hello world!" ); - glutDisplayFunc( SampleDisplay ); - glutReshapeFunc( SampleReshape ); - glutKeyboardFunc( SampleKeyboard ); - glutSpecialFunc( SampleSpecial ); - glutIdleFunc( SampleIdle ); - glutAttachMenu( GLUT_LEFT_BUTTON ); - - glutInitWindowPosition( 200, 200 ); - glutCreateWindow( "I am not Jan B." ); - glutDisplayFunc( SampleDisplay ); - glutReshapeFunc( SampleReshape ); - glutKeyboardFunc( SampleKeyboard ); - glutSpecialFunc( SampleSpecial ); - glutIdleFunc( SampleIdle ); - glutAttachMenu( GLUT_LEFT_BUTTON ); - - printf( "Testing game mode string parsing, don't panic!\n" ); - glutGameModeString( "320x240:32@100" ); - glutGameModeString( "640x480:16@72" ); - glutGameModeString( "1024x768" ); - glutGameModeString( ":32@120" ); - glutGameModeString( "Toudi glupcze, Danwin bedzie moj!" ); - - glutGameModeString( "640x480:37@300" ); /* this one should fail */ - glutEnterGameMode(); - - glutGameModeString( "800x600" ); /* this one is likely to succeed */ - glutEnterGameMode(); - - if (glutGameModeGet(GLUT_GAME_MODE_ACTIVE)) - g_InGameMode = 1; - glutDisplayFunc( SampleDisplay ); - glutReshapeFunc( SampleReshape ); - glutKeyboardFunc( SampleGameModeKeyboard ); - glutIdleFunc( SampleIdle ); - glutAttachMenu( GLUT_LEFT_BUTTON ); - - printf( "current window is %ix%i at (%i,%i)\n", - glutGet( GLUT_WINDOW_WIDTH ), glutGet( GLUT_WINDOW_HEIGHT ), - glutGet( GLUT_WINDOW_X ), glutGet( GLUT_WINDOW_Y ) - ); - - /* - * Enter the main FreeGLUT processing loop - */ - glutMainLoop(); - - printf( "glutMainLoop() termination works fine!\n" ); - - /* - * This is never reached in FreeGLUT. Is that good? - */ - return EXIT_SUCCESS; -} - -/*** END OF FILE ***/ \ No newline at end of file diff --git a/internal/c/parts/core/android_core/progs/demos/Resizer/Resizer.cpp b/internal/c/parts/core/android_core/progs/demos/Resizer/Resizer.cpp deleted file mode 100644 index 8252d7dea..000000000 --- a/internal/c/parts/core/android_core/progs/demos/Resizer/Resizer.cpp +++ /dev/null @@ -1,140 +0,0 @@ -#include - -#include - -int nWindow; -int nLoopMain = 0; - -int nPosX, nPosY; -int nWidth, nHeight; - -void SampleKeyboard( unsigned char cChar, int nMouseX, int nMouseY ); -void Redisplay(); - - - - - -void DrawQuad() -{ - glBegin(GL_QUADS); - glVertex2d(nWidth*.25, nHeight*.75); - glVertex2d(nWidth*.75, nHeight*.75); - glVertex2d(nWidth*.75, nHeight*.25); - glVertex2d(nWidth*.25, nHeight*.25); - glEnd(); -} - -void SampleKeyboard( unsigned char cChar, int nMouseX, int nMouseY ) -{ - if (cChar == 27) - glutLeaveMainLoop(); - - else if (cChar=='f') - { - printf("main window toggle fullscreen\n"); - - glutFullScreenToggle(); - } - else if (cChar=='r') - { - printf("main window resize\n"); - - if (nWidth<400) - glutReshapeWindow(600,300); - else - glutReshapeWindow(300,300); - } - else if (cChar=='m') - { - printf("main window position\n"); - - /* The window position you request is the outer top-left of the window, - * the client area is at a different position if the window has borders - * and/or a title bar. - */ - if (nPosX<400) - glutPositionWindow(600,300); - else - glutPositionWindow(300,300); - } -} - -void Idle(void) -{ - glutPostRedisplay(); -} - -void Reshape(int x, int y) -{ - nWidth = glutGet(GLUT_WINDOW_WIDTH); - nHeight = glutGet(GLUT_WINDOW_HEIGHT); - - glViewport(0,0,nWidth,nHeight); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - gluOrtho2D(0,nWidth,0,nHeight); -} - -void Redisplay(void) -{ - if (nLoopMain++%6==0) - { - int border, caption; - - nPosX = glutGet(GLUT_WINDOW_X); - nPosY = glutGet(GLUT_WINDOW_Y); - nWidth = glutGet(GLUT_WINDOW_WIDTH); - nHeight = glutGet(GLUT_WINDOW_HEIGHT); - border = glutGet(GLUT_WINDOW_BORDER_WIDTH); - caption = glutGet(GLUT_WINDOW_HEADER_HEIGHT); - /* returned position is top-left of client area, to get top-left of - * of window you'll need to add the size of the border and caption - * of the current window (can be 0). - * Note that the window position is not necessarily positive (e.g. - * when the window is on a monitor to the left of the primary monitor - * or simply when maximized--try pressing the maximize button). - * the returned size is the size of the client area - */ - printf("window now %dx%d, top-left of client at: (%d,%d), of window at: (%d,%d)\n", - nWidth, nHeight, - nPosX ,nPosY, - nPosX-border, - nPosY-border-caption); - } - - glClearColor(.2f,0.f,0.f,0.f); - glClear(GL_COLOR_BUFFER_BIT); - glColor3f(1,1,1); - DrawQuad(); - - glutSwapBuffers(); - glutPostRedisplay(); -} - - -int main(int argc, char* argv[]) -{ - glutInit( &argc, argv ); - glutInitDisplayMode( GLUT_RGB | GLUT_DOUBLE /*| GLUT_BORDERLESS*/); // do try as well with GLUT_BORDERLESS and GLUT_CAPTIONLESS - glutSetOption(GLUT_ACTION_ON_WINDOW_CLOSE,GLUT_ACTION_GLUTMAINLOOP_RETURNS); - - /* The window position you request is the outer top-left of the window, - * the client area is at a different position if the window has borders - * and/or a title bar. - */ - glutInitWindowPosition(150,250); - glutInitWindowSize(200,200); - - nWindow = glutCreateWindow("test"); - printf("main window id: %d\n", nWindow); - - glutKeyboardFunc( SampleKeyboard ); - glutDisplayFunc( Redisplay ); - glutReshapeFunc( Reshape ); - - glutMainLoop(); - printf("glutMainLoop returned\n"); - - return 1; -} \ No newline at end of file diff --git a/internal/c/parts/core/android_core/progs/demos/shapes/shapes.c b/internal/c/parts/core/android_core/progs/demos/shapes/shapes.c deleted file mode 100644 index 5b0da269a..000000000 --- a/internal/c/parts/core/android_core/progs/demos/shapes/shapes.c +++ /dev/null @@ -1,416 +0,0 @@ -/*! \file shapes.c - \ingroup demos - - This program is a test harness for the various shapes - in OpenGLUT. It may also be useful to see which - parameters control what behavior in the OpenGLUT - objects. - - Spinning wireframe and solid-shaded shapes are - displayed. Some parameters can be adjusted. - - Keys: - - Esc   Quit - - q Q   Quit - - i I   Show info - - p P   Toggle perspective or orthographic projection - - = +   Increase \a slices - - - _   Decreate \a slices - - , <   Decreate \a stacks - - . >   Increase \a stacks - - 9 (   Decreate \a depth (Sierpinski Sponge) - - 0 )   Increase \a depth (Sierpinski Sponge) - - up    Increase "outer radius" - - down  Decrease "outer radius" - - left  Decrease "inner radius" - - right Increase "inner radius" - - PgUp  Next shape-drawing function - - PgDn  Prev shape-drawing function - - \author Written by Nigel Stewart November 2003 - - \author Portions Copyright (C) 2004, the OpenGLUT project contributors.
    - OpenGLUT branched from freeglut in February, 2004. - - \image html openglut_shapes.png OpenGLUT Geometric Shapes Demonstration - \include demos/shapes/shapes.c -*/ - -#include - -#include -#include -#include - -#ifdef _MSC_VER -/* DUMP MEMORY LEAKS */ -#include -#endif - -/* - * This macro is only intended to be used on arrays, of course. - */ -#define NUMBEROF(x) ((sizeof(x))/(sizeof(x[0]))) - -/* - * These global variables control which object is drawn, - * and how it is drawn. No object uses all of these - * variables. - */ -static int function_index; -static int slices = 16; -static int stacks = 16; -static double irad = .25; -static double orad = 1.0; /* doubles as size for objects other than Torus */ -static int depth = 4; -static double offset[ 3 ] = { 0, 0, 0 }; -static GLboolean show_info = GL_TRUE; -static float ar; -static int persProject = 1; - -/* - * These one-liners draw particular objects, fetching appropriate - * information from the above globals. They are just thin wrappers - * for the FreeGLUT objects. - */ -static void drawSolidTetrahedron(void) { glutSolidTetrahedron (); } -static void drawWireTetrahedron(void) { glutWireTetrahedron (); } -static void drawSolidCube(void) { glutSolidCube(orad); } /* orad doubles as size input */ -static void drawWireCube(void) { glutWireCube(orad); } /* orad doubles as size input */ -static void drawSolidOctahedron(void) { glutSolidOctahedron (); } -static void drawWireOctahedron(void) { glutWireOctahedron (); } -static void drawSolidDodecahedron(void) { glutSolidDodecahedron (); } -static void drawWireDodecahedron(void) { glutWireDodecahedron (); } -static void drawSolidRhombicDodecahedron(void) { glutSolidRhombicDodecahedron (); } -static void drawWireRhombicDodecahedron(void) { glutWireRhombicDodecahedron (); } -static void drawSolidIcosahedron(void) { glutSolidIcosahedron (); } -static void drawWireIcosahedron(void) { glutWireIcosahedron (); } -static void drawSolidSierpinskiSponge(void) { glutSolidSierpinskiSponge (depth, offset, orad);} /* orad doubles as size input */ -static void drawWireSierpinskiSponge(void) { glutWireSierpinskiSponge (depth, offset, orad); } /* orad doubles as size input */ -static void drawSolidTeapot(void) { glutSolidTeapot(orad); } /* orad doubles as size input */ -static void drawWireTeapot(void) { glutWireTeapot(orad); } /* orad doubles as size input */ -static void drawSolidTorus(void) { glutSolidTorus(irad,orad,slices,stacks); } -static void drawWireTorus(void) { glutWireTorus (irad,orad,slices,stacks); } -static void drawSolidSphere(void) { glutSolidSphere(orad,slices,stacks); } /* orad doubles as size input */ -static void drawWireSphere(void) { glutWireSphere(orad,slices,stacks); } /* orad doubles as size input */ -static void drawSolidCone(void) { glutSolidCone(orad,orad,slices,stacks); } /* orad doubles as size input */ -static void drawWireCone(void) { glutWireCone(orad,orad,slices,stacks); } /* orad doubles as size input */ -static void drawSolidCylinder(void) { glutSolidCylinder(orad,orad,slices,stacks); } /* orad doubles as size input */ -static void drawWireCylinder(void) { glutWireCylinder(orad,orad,slices,stacks); } /* orad doubles as size input */ - -#define RADIUS 1.0f - -static void drawSolidCuboctahedron(void) -{ - glBegin( GL_TRIANGLES ); - glNormal3d( 0.577350269189, 0.577350269189, 0.577350269189); glVertex3d( RADIUS, RADIUS, 0.0 ); glVertex3d( 0.0, RADIUS, RADIUS ); glVertex3d( RADIUS, 0.0, RADIUS ); - glNormal3d( 0.577350269189, 0.577350269189,-0.577350269189); glVertex3d( RADIUS, RADIUS, 0.0 ); glVertex3d( RADIUS, 0.0,-RADIUS ); glVertex3d( 0.0, RADIUS,-RADIUS ); - glNormal3d( 0.577350269189,-0.577350269189, 0.577350269189); glVertex3d( RADIUS,-RADIUS, 0.0 ); glVertex3d( RADIUS, 0.0, RADIUS ); glVertex3d( 0.0,-RADIUS, RADIUS ); - glNormal3d( 0.577350269189,-0.577350269189,-0.577350269189); glVertex3d( RADIUS,-RADIUS, 0.0 ); glVertex3d( 0.0,-RADIUS,-RADIUS ); glVertex3d( RADIUS, 0.0,-RADIUS ); - glNormal3d(-0.577350269189, 0.577350269189, 0.577350269189); glVertex3d(-RADIUS, RADIUS, 0.0 ); glVertex3d(-RADIUS, 0.0, RADIUS ); glVertex3d( 0.0, RADIUS, RADIUS ); - glNormal3d(-0.577350269189, 0.577350269189,-0.577350269189); glVertex3d(-RADIUS, RADIUS, 0.0 ); glVertex3d( 0.0, RADIUS,-RADIUS ); glVertex3d(-RADIUS, 0.0,-RADIUS ); - glNormal3d(-0.577350269189,-0.577350269189, 0.577350269189); glVertex3d(-RADIUS,-RADIUS, 0.0 ); glVertex3d( 0.0,-RADIUS, RADIUS ); glVertex3d(-RADIUS, 0.0, RADIUS ); - glNormal3d(-0.577350269189,-0.577350269189,-0.577350269189); glVertex3d(-RADIUS,-RADIUS, 0.0 ); glVertex3d(-RADIUS, 0.0,-RADIUS ); glVertex3d( 0.0,-RADIUS,-RADIUS ); - glEnd(); - - glBegin( GL_QUADS ); - glNormal3d( 1.0, 0.0, 0.0 ); glVertex3d( RADIUS, RADIUS, 0.0 ); glVertex3d( RADIUS, 0.0, RADIUS ); glVertex3d( RADIUS,-RADIUS, 0.0 ); glVertex3d( RADIUS, 0.0,-RADIUS ); - glNormal3d(-1.0, 0.0, 0.0 ); glVertex3d(-RADIUS, RADIUS, 0.0 ); glVertex3d(-RADIUS, 0.0,-RADIUS ); glVertex3d(-RADIUS,-RADIUS, 0.0 ); glVertex3d(-RADIUS, 0.0, RADIUS ); - glNormal3d( 0.0, 1.0, 0.0 ); glVertex3d( RADIUS, RADIUS, 0.0 ); glVertex3d( 0.0, RADIUS,-RADIUS ); glVertex3d(-RADIUS, RADIUS, 0.0 ); glVertex3d( 0.0, RADIUS, RADIUS ); - glNormal3d( 0.0,-1.0, 0.0 ); glVertex3d( RADIUS,-RADIUS, 0.0 ); glVertex3d( 0.0,-RADIUS, RADIUS ); glVertex3d(-RADIUS,-RADIUS, 0.0 ); glVertex3d( 0.0,-RADIUS,-RADIUS ); - glNormal3d( 0.0, 0.0, 1.0 ); glVertex3d( RADIUS, 0.0, RADIUS ); glVertex3d( 0.0, RADIUS, RADIUS ); glVertex3d(-RADIUS, 0.0, RADIUS ); glVertex3d( 0.0,-RADIUS, RADIUS ); - glNormal3d( 0.0, 0.0,-1.0 ); glVertex3d( RADIUS, 0.0,-RADIUS ); glVertex3d( 0.0,-RADIUS,-RADIUS ); glVertex3d(-RADIUS, 0.0,-RADIUS ); glVertex3d( 0.0, RADIUS,-RADIUS ); - glEnd(); -} - -static void drawWireCuboctahedron(void) -{ - glBegin( GL_LINE_LOOP ); - glNormal3d( 1.0, 0.0, 0.0 ); glVertex3d( RADIUS, RADIUS, 0.0 ); glVertex3d( RADIUS, 0.0, RADIUS ); glVertex3d( RADIUS,-RADIUS, 0.0 ); glVertex3d( RADIUS, 0.0,-RADIUS ); - glEnd(); - glBegin( GL_LINE_LOOP ); - glNormal3d(-1.0, 0.0, 0.0 ); glVertex3d(-RADIUS, RADIUS, 0.0 ); glVertex3d(-RADIUS, 0.0,-RADIUS ); glVertex3d(-RADIUS,-RADIUS, 0.0 ); glVertex3d(-RADIUS, 0.0, RADIUS ); - glEnd(); - glBegin( GL_LINE_LOOP ); - glNormal3d( 0.0, 1.0, 0.0 ); glVertex3d( RADIUS, RADIUS, 0.0 ); glVertex3d( 0.0, RADIUS,-RADIUS ); glVertex3d(-RADIUS, RADIUS, 0.0 ); glVertex3d( 0.0, RADIUS, RADIUS ); - glEnd(); - glBegin( GL_LINE_LOOP ); - glNormal3d( 0.0,-1.0, 0.0 ); glVertex3d( RADIUS,-RADIUS, 0.0 ); glVertex3d( 0.0,-RADIUS, RADIUS ); glVertex3d(-RADIUS,-RADIUS, 0.0 ); glVertex3d( 0.0,-RADIUS,-RADIUS ); - glEnd(); - glBegin( GL_LINE_LOOP ); - glNormal3d( 0.0, 0.0, 1.0 ); glVertex3d( RADIUS, 0.0, RADIUS ); glVertex3d( 0.0, RADIUS, RADIUS ); glVertex3d(-RADIUS, 0.0, RADIUS ); glVertex3d( 0.0,-RADIUS, RADIUS ); - glEnd(); - glBegin( GL_LINE_LOOP ); - glNormal3d( 0.0, 0.0,-1.0 ); glVertex3d( RADIUS, 0.0,-RADIUS ); glVertex3d( 0.0,-RADIUS,-RADIUS ); glVertex3d(-RADIUS, 0.0,-RADIUS ); glVertex3d( 0.0, RADIUS,-RADIUS ); - glEnd(); -} - -#undef RADIUS - -/* - * This structure defines an entry in our function-table. - */ -typedef struct -{ - const char * const name; - void (*solid) (void); - void (*wire) (void); -} entry; - -#define ENTRY(e) {#e, drawSolid##e, drawWire##e} -static const entry table [] = -{ - ENTRY (Tetrahedron), - ENTRY (Cube), - ENTRY (Octahedron), - ENTRY (Dodecahedron), - ENTRY (RhombicDodecahedron), - ENTRY (Icosahedron), - ENTRY (SierpinskiSponge), - ENTRY (Teapot), - ENTRY (Torus), - ENTRY (Sphere), - ENTRY (Cone), - ENTRY (Cylinder), - ENTRY (Cuboctahedron) -}; -#undef ENTRY - -/*! - Does printf()-like work using freeglut - glutBitmapString(). Uses a fixed font. Prints - at the indicated row/column position. - - Limitation: Cannot address pixels. - Limitation: Renders in screen coords, not model coords. -*/ -static void shapesPrintf (int row, int col, const char *fmt, ...) -{ - static char buf[256]; - int viewport[4]; - void *font = GLUT_BITMAP_9_BY_15; - va_list args; - - va_start(args, fmt); -#if defined(WIN32) && !defined(__CYGWIN__) - (void) _vsnprintf (buf, sizeof(buf), fmt, args); -#else - (void) vsnprintf (buf, sizeof(buf), fmt, args); -#endif - va_end(args); - - glGetIntegerv(GL_VIEWPORT,viewport); - - glPushMatrix(); - glLoadIdentity(); - - glMatrixMode(GL_PROJECTION); - glPushMatrix(); - glLoadIdentity(); - - glOrtho(0,viewport[2],0,viewport[3],-1,1); - - glRasterPos2i - ( - glutBitmapWidth(font, ' ') * col, - - glutBitmapHeight(font) * row + viewport[3] - ); - glutBitmapString (font, (unsigned char*)buf); - - glPopMatrix(); - glMatrixMode(GL_MODELVIEW); - glPopMatrix(); -} - -/* GLUT callback Handlers */ - -static void -resize(int width, int height) -{ - ar = (float) width / (float) height; - - glViewport(0, 0, width, height); -} - -static void display(void) -{ - const double t = glutGet(GLUT_ELAPSED_TIME) / 1000.0; - const double a = t*90.0; - - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - if (persProject) - glFrustum(-ar, ar, -1.0, 1.0, 2.0, 100.0); - else - glOrtho(-ar*3, ar*3, -3.0, 3.0, 2.0, 100.0); - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - glEnable(GL_LIGHTING); - - glColor3d(1,0,0); - - glPushMatrix(); - glTranslated(0,1.2,-6); - glRotated(60,1,0,0); - glRotated(a,0,0,1); - table [function_index].solid (); - glPopMatrix(); - - glPushMatrix(); - glTranslated(0,-1.2,-6); - glRotated(60,1,0,0); - glRotated(a,0,0,1); - table [function_index].wire (); - glPopMatrix(); - - glDisable(GL_LIGHTING); - glColor3d(0.1,0.1,0.4); - - if( show_info ) { - shapesPrintf (1, 1, "Shape PgUp PgDn: %s", table [function_index].name); - shapesPrintf (2, 1, "Slices +-: %d Stacks <>: %d", slices, stacks); - shapesPrintf (3, 1, "nSides +-: %d nRings <>: %d", slices, stacks); - shapesPrintf (4, 1, "Depth (): %d", depth); - shapesPrintf (5, 1, "Outer radius Up Down : %f", orad); - shapesPrintf (6, 1, "Inner radius Left Right: %f", irad); - } else { - printf ( "Shape %d slides %d stacks %d\n", function_index, slices, stacks ) ; - } - - glutSwapBuffers(); -} - - -static void -key(unsigned char key, int x, int y) -{ - switch (key) - { - case 27 : - case 'Q': - case 'q': glutLeaveMainLoop () ; break; - - case 'I': - case 'i': show_info = ( show_info == GL_TRUE ) ? GL_FALSE : GL_TRUE; break; - - case '=': - case '+': slices++; break; - - case '-': - case '_': if( slices > -1 ) slices--; break; - - case ',': - case '<': if( stacks > -1 ) stacks--; break; - - case '.': - case '>': stacks++; break; - - case '9': - case '(': if( depth > -1 ) depth--; break; - - case '0': - case ')': ++depth; break; - - case 'P': - case 'p': persProject=!persProject; break; - - default: - break; - } - - glutPostRedisplay(); -} - -static void special (int key, int x, int y) -{ - switch (key) - { - case GLUT_KEY_PAGE_UP: ++function_index; break; - case GLUT_KEY_PAGE_DOWN: --function_index; break; - case GLUT_KEY_UP: orad *= 2; break; - case GLUT_KEY_DOWN: orad /= 2; break; - - case GLUT_KEY_RIGHT: irad *= 2; break; - case GLUT_KEY_LEFT: irad /= 2; break; - - default: - break; - } - - if (0 > function_index) - function_index = NUMBEROF (table) - 1; - - if (NUMBEROF (table) <= ( unsigned )function_index) - function_index = 0; -} - - -static void -idle(void) -{ - glutPostRedisplay(); -} - -const GLfloat light_ambient[] = { 0.0f, 0.0f, 0.0f, 1.0f }; -const GLfloat light_diffuse[] = { 1.0f, 1.0f, 1.0f, 1.0f }; -const GLfloat light_specular[] = { 1.0f, 1.0f, 1.0f, 1.0f }; -const GLfloat light_position[] = { 2.0f, 5.0f, 5.0f, 0.0f }; - -const GLfloat mat_ambient[] = { 0.7f, 0.7f, 0.7f, 1.0f }; -const GLfloat mat_diffuse[] = { 0.8f, 0.8f, 0.8f, 1.0f }; -const GLfloat mat_specular[] = { 1.0f, 1.0f, 1.0f, 1.0f }; -const GLfloat high_shininess[] = { 100.0f }; - -/* Program entry point */ - -int -main(int argc, char *argv[]) -{ - glutInitWindowSize(640,480); - glutInitWindowPosition(40,40); - glutInit(&argc, argv); - glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH | GLUT_MULTISAMPLE); - - glutCreateWindow("FreeGLUT Shapes"); - - glutReshapeFunc(resize); - glutDisplayFunc(display); - glutKeyboardFunc(key); - glutSpecialFunc(special); - glutIdleFunc(idle); - - glutSetOption ( GLUT_ACTION_ON_WINDOW_CLOSE, GLUT_ACTION_CONTINUE_EXECUTION ) ; - - glClearColor(1,1,1,1); - glEnable(GL_CULL_FACE); - glCullFace(GL_BACK); - - glEnable(GL_DEPTH_TEST); - glDepthFunc(GL_LESS); - - glEnable(GL_LIGHT0); - glEnable(GL_NORMALIZE); - glEnable(GL_COLOR_MATERIAL); - - glLightfv(GL_LIGHT0, GL_AMBIENT, light_ambient); - glLightfv(GL_LIGHT0, GL_DIFFUSE, light_diffuse); - glLightfv(GL_LIGHT0, GL_SPECULAR, light_specular); - glLightfv(GL_LIGHT0, GL_POSITION, light_position); - - glMaterialfv(GL_FRONT, GL_AMBIENT, mat_ambient); - glMaterialfv(GL_FRONT, GL_DIFFUSE, mat_diffuse); - glMaterialfv(GL_FRONT, GL_SPECULAR, mat_specular); - glMaterialfv(GL_FRONT, GL_SHININESS, high_shininess); - - glutMainLoop(); - -#ifdef _MSC_VER - /* DUMP MEMORY LEAK INFORMATION */ - _CrtDumpMemoryLeaks () ; -#endif - - return EXIT_SUCCESS; -} diff --git a/internal/c/parts/core/android_core/progs/demos/smooth_opengl3/smooth_opengl3.c b/internal/c/parts/core/android_core/progs/demos/smooth_opengl3/smooth_opengl3.c deleted file mode 100644 index abbdfb56c..000000000 --- a/internal/c/parts/core/android_core/progs/demos/smooth_opengl3/smooth_opengl3.c +++ /dev/null @@ -1,420 +0,0 @@ -/* - * smooth_opengl3.c, based on smooth.c, which is (c) by SGI, see below. - * This program demonstrates smooth shading in a way which is fully - * OpenGL-3.1-compliant. - * A smooth shaded polygon is drawn in a 2-D projection. - */ - -/* - * Original copyright notice from smooth.c: - * - * License Applicability. Except to the extent portions of this file are - * made subject to an alternative license as permitted in the SGI Free - * Software License B, Version 1.1 (the "License"), the contents of this - * file are subject only to the provisions of the License. You may not use - * this file except in compliance with the License. You may obtain a copy - * of the License at Silicon Graphics, Inc., attn: Legal Services, 1600 - * Amphitheatre Parkway, Mountain View, CA 94043-1351, or at: - * - * http://oss.sgi.com/projects/FreeB - * - * Note that, as provided in the License, the Software is distributed on an - * "AS IS" basis, with ALL EXPRESS AND IMPLIED WARRANTIES AND CONDITIONS - * DISCLAIMED, INCLUDING, WITHOUT LIMITATION, ANY IMPLIED WARRANTIES AND - * CONDITIONS OF MERCHANTABILITY, SATISFACTORY QUALITY, FITNESS FOR A - * PARTICULAR PURPOSE, AND NON-INFRINGEMENT. - * - * Original Code. The Original Code is: OpenGL Sample Implementation, - * Version 1.2.1, released January 26, 2000, developed by Silicon Graphics, - * Inc. The Original Code is Copyright (c) 1991-2000 Silicon Graphics, Inc. - * Copyright in any portions created by third parties is as indicated - * elsewhere herein. All Rights Reserved. - * - * Additional Notice Provisions: The application programming interfaces - * established by SGI in conjunction with the Original Code are The - * OpenGL(R) Graphics System: A Specification (Version 1.2.1), released - * April 1, 1999; The OpenGL(R) Graphics System Utility Library (Version - * 1.3), released November 4, 1998; and OpenGL(R) Graphics with the X - * Window System(R) (Version 1.3), released October 19, 1998. This software - * was created using the OpenGL(R) version 1.2.1 Sample Implementation - * published by SGI, but has not been independently verified as being - * compliant with the OpenGL(R) version 1.2.1 Specification. - * - */ - -#include -#include -#include -#include -#include - -/* report GL errors, if any, to stderr */ -void checkError(const char *functionName) -{ - GLenum error; - while (( error = glGetError() ) != GL_NO_ERROR) { - fprintf (stderr, "GL error 0x%X detected in %s\n", error, functionName); - } -} - -/* extension #defines, types and entries, avoiding a dependency on additional - libraries like GLEW or the GL/glext.h header */ -#ifndef GL_ARRAY_BUFFER -#define GL_ARRAY_BUFFER 0x8892 -#endif - -#ifndef GL_STATIC_DRAW -#define GL_STATIC_DRAW 0x88E4 -#endif - -#ifndef GL_FRAGMENT_SHADER -#define GL_FRAGMENT_SHADER 0x8B30 -#endif - -#ifndef GL_VERTEX_SHADER -#define GL_VERTEX_SHADER 0x8B31 -#endif - -#ifndef GL_SHADING_LANGUAGE_VERSION -#define GL_SHADING_LANGUAGE_VERSION 0x8B8C -#endif - -#ifndef GL_COMPILE_STATUS -#define GL_COMPILE_STATUS 0x8B81 -#endif - -#ifndef GL_LINK_STATUS -#define GL_LINK_STATUS 0x8B82 -#endif - -#ifndef GL_INFO_LOG_LENGTH -#define GL_INFO_LOG_LENGTH 0x8B84 -#endif - -typedef ptrdiff_t ourGLsizeiptr; -typedef char ourGLchar; - -#ifndef APIENTRY -#define APIENTRY -#endif - -typedef void (APIENTRY *PFNGLGENBUFFERSPROC) (GLsizei n, GLuint *buffers); -typedef void (APIENTRY *PFNGLBINDBUFFERPROC) (GLenum target, GLuint buffer); -typedef void (APIENTRY *PFNGLBUFFERDATAPROC) (GLenum target, ourGLsizeiptr size, const GLvoid *data, GLenum usage); -typedef GLuint (APIENTRY *PFNGLCREATESHADERPROC) (GLenum type); -typedef void (APIENTRY *PFNGLSHADERSOURCEPROC) (GLuint shader, GLsizei count, const ourGLchar **string, const GLint *length); -typedef void (APIENTRY *PFNGLCOMPILESHADERPROC) (GLuint shader); -typedef GLuint (APIENTRY *PFNGLCREATEPROGRAMPROC) (void); -typedef void (APIENTRY *PFNGLATTACHSHADERPROC) (GLuint program, GLuint shader); -typedef void (APIENTRY *PFNGLLINKPROGRAMPROC) (GLuint program); -typedef void (APIENTRY *PFNGLUSEPROGRAMPROC) (GLuint program); -typedef void (APIENTRY *PFNGLGETSHADERIVPROC) (GLuint shader, GLenum pname, GLint *params); -typedef void (APIENTRY *PFNGLGETSHADERINFOLOGPROC) (GLuint shader, GLsizei bufSize, GLsizei *length, ourGLchar *infoLog); -typedef void (APIENTRY *PFNGLGETPROGRAMIVPROC) (GLenum target, GLenum pname, GLint *params); -typedef void (APIENTRY *PFNGLGETPROGRAMINFOLOGPROC) (GLuint program, GLsizei bufSize, GLsizei *length, ourGLchar *infoLog); -typedef GLint (APIENTRY *PFNGLGETATTRIBLOCATIONPROC) (GLuint program, const ourGLchar *name); -typedef void (APIENTRY *PFNGLVERTEXATTRIBPOINTERPROC) (GLuint index, GLint size, GLenum type, GLboolean normalized, GLsizei stride, const GLvoid *pointer); -typedef void (APIENTRY *PFNGLENABLEVERTEXATTRIBARRAYPROC) (GLuint index); -typedef GLint (APIENTRY *PFNGLGETUNIFORMLOCATIONPROC) (GLuint program, const ourGLchar *name); -typedef void (APIENTRY *PFNGLUNIFORMMATRIX4FVPROC) (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value); - -PFNGLGENBUFFERSPROC gl_GenBuffers; -PFNGLBINDBUFFERPROC gl_BindBuffer; -PFNGLBUFFERDATAPROC gl_BufferData; -PFNGLCREATESHADERPROC gl_CreateShader; -PFNGLSHADERSOURCEPROC gl_ShaderSource; -PFNGLCOMPILESHADERPROC gl_CompileShader; -PFNGLCREATEPROGRAMPROC gl_CreateProgram; -PFNGLATTACHSHADERPROC gl_AttachShader; -PFNGLLINKPROGRAMPROC gl_LinkProgram; -PFNGLUSEPROGRAMPROC gl_UseProgram; -PFNGLGETSHADERIVPROC gl_GetShaderiv; -PFNGLGETSHADERINFOLOGPROC gl_GetShaderInfoLog; -PFNGLGETPROGRAMIVPROC gl_GetProgramiv; -PFNGLGETPROGRAMINFOLOGPROC gl_GetProgramInfoLog; -PFNGLGETATTRIBLOCATIONPROC gl_GetAttribLocation; -PFNGLVERTEXATTRIBPOINTERPROC gl_VertexAttribPointer; -PFNGLENABLEVERTEXATTRIBARRAYPROC gl_EnableVertexAttribArray; -PFNGLGETUNIFORMLOCATIONPROC gl_GetUniformLocation; -PFNGLUNIFORMMATRIX4FVPROC gl_UniformMatrix4fv; - -void initExtensionEntries(void) -{ - gl_GenBuffers = (PFNGLGENBUFFERSPROC) glutGetProcAddress ("glGenBuffers"); - gl_BindBuffer = (PFNGLBINDBUFFERPROC) glutGetProcAddress ("glBindBuffer"); - gl_BufferData = (PFNGLBUFFERDATAPROC) glutGetProcAddress ("glBufferData"); - gl_CreateShader = (PFNGLCREATESHADERPROC) glutGetProcAddress ("glCreateShader"); - gl_ShaderSource = (PFNGLSHADERSOURCEPROC) glutGetProcAddress ("glShaderSource"); - gl_CompileShader = (PFNGLCOMPILESHADERPROC) glutGetProcAddress ("glCompileShader"); - gl_CreateProgram = (PFNGLCREATEPROGRAMPROC) glutGetProcAddress ("glCreateProgram"); - gl_AttachShader = (PFNGLATTACHSHADERPROC) glutGetProcAddress ("glAttachShader"); - gl_LinkProgram = (PFNGLLINKPROGRAMPROC) glutGetProcAddress ("glLinkProgram"); - gl_UseProgram = (PFNGLUSEPROGRAMPROC) glutGetProcAddress ("glUseProgram"); - gl_GetShaderiv = (PFNGLGETSHADERIVPROC) glutGetProcAddress ("glGetShaderiv"); - gl_GetShaderInfoLog = (PFNGLGETSHADERINFOLOGPROC) glutGetProcAddress ("glGetShaderInfoLog"); - gl_GetProgramiv = (PFNGLGETPROGRAMIVPROC) glutGetProcAddress ("glGetProgramiv"); - gl_GetProgramInfoLog = (PFNGLGETPROGRAMINFOLOGPROC) glutGetProcAddress ("glGetProgramInfoLog"); - gl_GetAttribLocation = (PFNGLGETATTRIBLOCATIONPROC) glutGetProcAddress ("glGetAttribLocation"); - gl_VertexAttribPointer = (PFNGLVERTEXATTRIBPOINTERPROC) glutGetProcAddress ("glVertexAttribPointer"); - gl_EnableVertexAttribArray = (PFNGLENABLEVERTEXATTRIBARRAYPROC) glutGetProcAddress ("glEnableVertexAttribArray"); - gl_GetUniformLocation = (PFNGLGETUNIFORMLOCATIONPROC) glutGetProcAddress ("glGetUniformLocation"); - gl_UniformMatrix4fv = (PFNGLUNIFORMMATRIX4FVPROC) glutGetProcAddress ("glUniformMatrix4fv"); -} - -/* vertex array data for a colored 2D triangle, consisting of RGB color values - and XY coordinates */ -const GLfloat varray[] = { - 1.0f, 0.0f, 0.0f, /* red */ - 5.0f, 5.0f, /* lower left */ - - 0.0f, 1.0f, 0.0f, /* green */ - 25.0f, 5.0f, /* lower right */ - - 0.0f, 0.0f, 1.0f, /* blue */ - 5.0f, 25.0f /* upper left */ -}; - -/* ISO C somehow enforces this silly use of 'enum' for compile-time constants */ -enum { - numColorComponents = 3, - numVertexComponents = 2, - stride = sizeof(GLfloat) * (numColorComponents + numVertexComponents), - numElements = sizeof(varray) / stride -}; - -/* the name of the vertex buffer object */ -GLuint vertexBufferName; - -void initBuffer(void) -{ - gl_GenBuffers (1, &vertexBufferName); - gl_BindBuffer (GL_ARRAY_BUFFER, vertexBufferName); - gl_BufferData (GL_ARRAY_BUFFER, sizeof(varray), varray, GL_STATIC_DRAW); - checkError ("initBuffer"); -} - -const ourGLchar *vertexShaderSource[] = { - "#version 140\n", - "uniform mat4 fg_ProjectionMatrix;\n", - "in vec4 fg_Color;\n", - "in vec4 fg_Vertex;\n", - "smooth out vec4 fg_SmoothColor;\n", - "void main()\n", - "{\n", - " fg_SmoothColor = fg_Color;\n", - " gl_Position = fg_ProjectionMatrix * fg_Vertex;\n", - "}\n" -}; - -const ourGLchar *fragmentShaderSource[] = { - "#version 140\n", - "smooth in vec4 fg_SmoothColor;\n", - "out vec4 fg_FragColor;\n", - "void main(void)\n", - "{\n", - " fg_FragColor = fg_SmoothColor;\n", - "}\n" -}; - -void compileAndCheck(GLuint shader) -{ - GLint status; - gl_CompileShader (shader); - gl_GetShaderiv (shader, GL_COMPILE_STATUS, &status); - if (status == GL_FALSE) { - GLint infoLogLength; - ourGLchar *infoLog; - gl_GetShaderiv (shader, GL_INFO_LOG_LENGTH, &infoLogLength); - infoLog = (ourGLchar*) malloc (infoLogLength); - gl_GetShaderInfoLog (shader, infoLogLength, NULL, infoLog); - fprintf (stderr, "compile log: %s\n", infoLog); - free (infoLog); - } -} - -GLuint compileShaderSource(GLenum type, GLsizei count, const ourGLchar **string) -{ - GLuint shader = gl_CreateShader (type); - gl_ShaderSource (shader, count, string, NULL); - compileAndCheck (shader); - return shader; -} - -void linkAndCheck(GLuint program) -{ - GLint status; - gl_LinkProgram (program); - gl_GetProgramiv (program, GL_LINK_STATUS, &status); - if (status == GL_FALSE) { - GLint infoLogLength; - ourGLchar *infoLog; - gl_GetProgramiv (program, GL_INFO_LOG_LENGTH, &infoLogLength); - infoLog = (ourGLchar*) malloc (infoLogLength); - gl_GetProgramInfoLog (program, infoLogLength, NULL, infoLog); - fprintf (stderr, "link log: %s\n", infoLog); - free (infoLog); - } -} - -GLuint createProgram(GLuint vertexShader, GLuint fragmentShader) -{ - GLuint program = gl_CreateProgram (); - if (vertexShader != 0) { - gl_AttachShader (program, vertexShader); - } - if (fragmentShader != 0) { - gl_AttachShader (program, fragmentShader); - } - linkAndCheck (program); - return program; -} - -GLuint fgProjectionMatrixIndex; -GLuint fgColorIndex; -GLuint fgVertexIndex; - -void initShader(void) -{ - const GLsizei vertexShaderLines = sizeof(vertexShaderSource) / sizeof(ourGLchar*); - GLuint vertexShader = - compileShaderSource (GL_VERTEX_SHADER, vertexShaderLines, vertexShaderSource); - - const GLsizei fragmentShaderLines = sizeof(fragmentShaderSource) / sizeof(ourGLchar*); - GLuint fragmentShader = - compileShaderSource (GL_FRAGMENT_SHADER, fragmentShaderLines, fragmentShaderSource); - - GLuint program = createProgram (vertexShader, fragmentShader); - - gl_UseProgram (program); - - fgProjectionMatrixIndex = gl_GetUniformLocation(program, "fg_ProjectionMatrix"); - - fgColorIndex = gl_GetAttribLocation(program, "fg_Color"); - gl_EnableVertexAttribArray (fgColorIndex); - - fgVertexIndex = gl_GetAttribLocation(program, "fg_Vertex"); - gl_EnableVertexAttribArray (fgVertexIndex); - - checkError ("initShader"); -} - -void initRendering(void) -{ - glClearColor (0.0, 0.0, 0.0, 0.0); - checkError ("initRendering"); -} - -void init(void) -{ - initExtensionEntries (); - initBuffer (); - initShader (); - initRendering (); -} - -void dumpInfo(void) -{ - printf ("Vendor: %s\n", glGetString (GL_VENDOR)); - printf ("Renderer: %s\n", glGetString (GL_RENDERER)); - printf ("Version: %s\n", glGetString (GL_VERSION)); - printf ("GLSL: %s\n", glGetString (GL_SHADING_LANGUAGE_VERSION)); - checkError ("dumpInfo"); -} - -const GLvoid *bufferObjectPtr (GLsizei index) -{ - return (const GLvoid *) (((char *) NULL) + index); -} - -GLfloat projectionMatrix[16]; - -void triangle(void) -{ - gl_UniformMatrix4fv (fgProjectionMatrixIndex, 1, GL_FALSE, projectionMatrix); - - gl_BindBuffer (GL_ARRAY_BUFFER, vertexBufferName); - gl_VertexAttribPointer (fgColorIndex, numColorComponents, GL_FLOAT, GL_FALSE, - stride, bufferObjectPtr (0)); - gl_VertexAttribPointer (fgVertexIndex, numVertexComponents, GL_FLOAT, GL_FALSE, - stride, bufferObjectPtr (sizeof(GLfloat) * numColorComponents)); - glDrawArrays(GL_TRIANGLES, 0, numElements); - checkError ("triangle"); -} - -void display(void) -{ - glClear (GL_COLOR_BUFFER_BIT); - triangle (); - glFlush (); - checkError ("display"); -} - -void loadOrthof(GLfloat *m, GLfloat l, GLfloat r, GLfloat b, GLfloat t, - GLfloat n, GLfloat f) -{ - m[ 0] = 2.0f / (r - l); - m[ 1] = 0.0f; - m[ 2] = 0.0f; - m[ 3] = 0.0f; - - m[ 4] = 0.0f; - m[ 5] = 2.0f / (t - b); - m[ 6] = 0.0f; - m[ 7] = 0.0f; - - m[ 8] = 0.0f; - m[ 9] = 0.0f; - m[10] = -2.0f / (f - n); - m[11] = 0.0f; - - m[12] = -(r + l) / (r - l); - m[13] = -(t + b) / (t - b); - m[14] = -(f + n) / (f - n); - m[15] = 1.0f; -} - -void loadOrtho2Df(GLfloat *m, GLfloat l, GLfloat r, GLfloat b, GLfloat t) -{ - loadOrthof (m, l, r, b, t, -1.0f, 1.0f); -} - -void reshape (int w, int h) -{ - glViewport (0, 0, (GLsizei) w, (GLsizei) h); - if (w <= h) { - loadOrtho2Df (projectionMatrix, 0.0f, 30.0f, 0.0f, 30.0f * (GLfloat) h/(GLfloat) w); - } else { - loadOrtho2Df (projectionMatrix, 0.0f, 30.0f * (GLfloat) w/(GLfloat) h, 0.0f, 30.0f); - } - checkError ("reshape"); -} - -void keyboard(unsigned char key, int x, int y) -{ - switch (key) { - case 27: - exit(0); - break; - } -} - -int main(int argc, char** argv) -{ - glutInit(&argc, argv); - glutInitDisplayMode (GLUT_SINGLE | GLUT_RGB); - /* add command line argument "classic" for a pre-3.x context */ - if ((argc != 2) || (strcmp (argv[1], "classic") != 0)) { - glutInitContextVersion (3, 1); - glutInitContextFlags (GLUT_FORWARD_COMPATIBLE | GLUT_DEBUG); - } - glutInitWindowSize (500, 500); - glutInitWindowPosition (100, 100); - glutCreateWindow (argv[0]); - dumpInfo (); - init (); - glutDisplayFunc(display); - glutReshapeFunc(reshape); - glutKeyboardFunc (keyboard); - glutMainLoop(); - return 0; -} diff --git a/internal/c/parts/core/android_core/progs/demos/spaceball/spaceball.c b/internal/c/parts/core/android_core/progs/demos/spaceball/spaceball.c deleted file mode 100644 index 52da93a7f..000000000 --- a/internal/c/parts/core/android_core/progs/demos/spaceball/spaceball.c +++ /dev/null @@ -1,177 +0,0 @@ -/* Spaceball demo - * - * Written by John Tsiombikas - * (converted from the libspnav cube example) - * - * Use the spaceball to move and rotate the colored cube. - * Pressing any button will reset the cube at its original location. - * - * Press escape or q to exit. - */ - -#include -#include -#include -#include -#include "vmath.h" - -#ifndef M_PI -#define M_PI 3.14159265358979323846264338327950 -#endif - -void draw_cube(void); - -/* callbacks */ -void disp(void); -void reshape(int x, int y); -void keyb(unsigned char key, int x, int y); -void sbmot(int x, int y, int z); /* spaceball translation */ -void sbrot(int x, int y, int z); /* spaceball rotation */ -void sbbut(int bn, int state); /* spaceball button */ - -vec3_t pos = {0, 0, -6}; -quat_t rot = {0, 0, 0, 1}; - -int main(int argc, char **argv) -{ - glutInit(&argc, argv); - glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE); - glutCreateWindow("spaceball demo"); - - glutDisplayFunc(disp); - glutReshapeFunc(reshape); - glutKeyboardFunc(keyb); - glutSpaceballMotionFunc(sbmot); - glutSpaceballRotateFunc(sbrot); - glutSpaceballButtonFunc(sbbut); - - glEnable(GL_CULL_FACE); - - glutMainLoop(); - return 0; -} - -void disp(void) -{ - mat4_t xform; - - quat_to_mat(xform, rot); - - glClear(GL_COLOR_BUFFER_BIT); - - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - glTranslatef(pos.x, pos.y, pos.z); - glMultMatrixf((float*)xform); - - draw_cube(); - - glutSwapBuffers(); -} - -void draw_cube(void) -{ - glBegin(GL_QUADS); - /* face +Z */ - glNormal3f(0, 0, 1); - glColor3f(1, 0, 0); - glVertex3f(-1, -1, 1); - glVertex3f(1, -1, 1); - glVertex3f(1, 1, 1); - glVertex3f(-1, 1, 1); - /* face +X */ - glNormal3f(1, 0, 0); - glColor3f(0, 1, 0); - glVertex3f(1, -1, 1); - glVertex3f(1, -1, -1); - glVertex3f(1, 1, -1); - glVertex3f(1, 1, 1); - /* face -Z */ - glNormal3f(0, 0, -1); - glColor3f(0, 0, 1); - glVertex3f(1, -1, -1); - glVertex3f(-1, -1, -1); - glVertex3f(-1, 1, -1); - glVertex3f(1, 1, -1); - /* face -X */ - glNormal3f(-1, 0, 0); - glColor3f(1, 1, 0); - glVertex3f(-1, -1, -1); - glVertex3f(-1, -1, 1); - glVertex3f(-1, 1, 1); - glVertex3f(-1, 1, -1); - /* face +Y */ - glNormal3f(0, 1, 0); - glColor3f(0, 1, 1); - glVertex3f(-1, 1, 1); - glVertex3f(1, 1, 1); - glVertex3f(1, 1, -1); - glVertex3f(-1, 1, -1); - /* face -Y */ - glNormal3f(0, -1, 0); - glColor3f(1, 0, 1); - glVertex3f(-1, -1, -1); - glVertex3f(1, -1, -1); - glVertex3f(1, -1, 1); - glVertex3f(-1, -1, 1); - glEnd(); -} - -/* 45deg fov */ -#define FOV (M_PI / 4.0) - -void reshape(int x, int y) -{ - float aspect = (float)x / (float)y; - float halfy = (float)tan(FOV / 2.0); - float halfx = halfy * aspect; - - glViewport(0, 0, x, y); - - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glFrustum(-halfx, halfx, -halfy, halfy, 1.0, 1000.0); -} - -void keyb(unsigned char key, int x, int y) -{ - switch(key) { - case 'q': - case 'Q': - case 27: - exit(0); - - case ' ': - /* reset initial view */ - pos = v3_cons(0, 0, -6); - rot = quat_cons(1, 0, 0, 0); - glutPostRedisplay(); - - default: - break; - } -} - -void sbmot(int x, int y, int z) -{ - pos.x += x * 0.001f; - pos.y += y * 0.001f; - pos.z -= z * 0.001f; - glutPostRedisplay(); -} - -void sbrot(int x, int y, int z) -{ - float axis_len = (float)sqrt(x * x + y * y + z * z); - rot = quat_rotate(rot, axis_len * 0.001f, -x / axis_len, -y / axis_len, z / axis_len); - glutPostRedisplay(); -} - -void sbbut(int bn, int state) -{ - if(state == GLUT_DOWN) { - pos = v3_cons(0, 0, -6); - rot = quat_cons(1, 0, 0, 0); - glutPostRedisplay(); - } -} diff --git a/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.c b/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.c deleted file mode 100644 index 7ef3c25e7..000000000 --- a/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.c +++ /dev/null @@ -1,16 +0,0 @@ -#include -#include "vmath.h" - -quat_t quat_rotate(quat_t q, float angle, float x, float y, float z) -{ - quat_t rq; - float half_angle = angle * 0.5f; - float sin_half = (float)sin(half_angle); - - rq.w = (float)cos(half_angle); - rq.x = x * sin_half; - rq.y = y * sin_half; - rq.z = z * sin_half; - - return quat_mul(q, rq); -} diff --git a/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.h b/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.h deleted file mode 100644 index 249a504f3..000000000 --- a/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.h +++ /dev/null @@ -1,38 +0,0 @@ -#ifndef VMATH_H_ -#define VMATH_H_ - -#if defined(WIN32) -#define INLINE -#else -#define INLINE inline -#endif - - -typedef struct { float x, y, z; } vec3_t; -typedef struct { float x, y, z, w; } vec4_t; - -typedef vec4_t quat_t; - -typedef float mat4_t[4][4]; - -/* vector functions */ -static INLINE vec3_t v3_cons(float x, float y, float z); -static INLINE float v3_dot(vec3_t v1, vec3_t v2); - -/* quaternion functions */ -static INLINE quat_t quat_cons(float s, float x, float y, float z); -static INLINE vec3_t quat_vec(quat_t q); -static INLINE quat_t quat_mul(quat_t q1, quat_t q2); -static INLINE void quat_to_mat(mat4_t res, quat_t q); -quat_t quat_rotate(quat_t q, float angle, float x, float y, float z); - -/* matrix functions */ -static INLINE void m4_cons(mat4_t m, - float m11, float m12, float m13, float m14, - float m21, float m22, float m23, float m24, - float m31, float m32, float m33, float m34, - float m41, float m42, float m43, float m44); - -#include "vmath.inl" - -#endif /* VMATH_H_ */ diff --git a/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.inl b/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.inl deleted file mode 100644 index e3ad6b879..000000000 --- a/internal/c/parts/core/android_core/progs/demos/spaceball/vmath.inl +++ /dev/null @@ -1,68 +0,0 @@ -/* vector functions */ -static INLINE vec3_t v3_cons(float x, float y, float z) -{ - vec3_t res; - res.x = x; - res.y = y; - res.z = z; - return res; -} - -static INLINE vec3_t quat_vec(quat_t q) -{ - vec3_t v; - v.x = q.x; - v.y = q.y; - v.z = q.z; - return v; -} - -static INLINE float v3_dot(vec3_t v1, vec3_t v2) -{ - return v1.x * v2.x + v1.y * v2.y + v1.z * v2.z; -} - -/* quaternion functions */ -static INLINE quat_t quat_cons(float s, float x, float y, float z) -{ - quat_t q; - q.x = x; - q.y = y; - q.z = z; - q.w = s; - return q; -} - -static INLINE quat_t quat_mul(quat_t q1, quat_t q2) -{ - quat_t res; - vec3_t v1 = quat_vec(q1); - vec3_t v2 = quat_vec(q2); - - res.w = q1.w * q2.w - v3_dot(v1, v2); - res.x = v2.x * q1.w + v1.x * q2.w + (v1.y * v2.z - v1.z * v2.y); - res.y = v2.y * q1.w + v1.y * q2.w + (v1.z * v2.x - v1.x * v2.z); - res.z = v2.z * q1.w + v1.z * q2.w + (v1.x * v2.y - v1.y * v2.x); - return res; -} - -static INLINE void quat_to_mat(mat4_t res, quat_t q) -{ - m4_cons(res, 1.0f - 2.0f * q.y*q.y - 2.0f * q.z*q.z, 2.0f * q.x * q.y + 2.0f * q.w * q.z, 2.0f * q.z * q.x - 2.0f * q.w * q.y, 0, - 2.0f * q.x * q.y - 2.0f * q.w * q.z, 1.0f - 2.0f * q.x*q.x - 2.0f * q.z*q.z, 2.0f * q.y * q.z + 2.0f * q.w * q.x, 0, - 2.0f * q.z * q.x + 2.0f * q.w * q.y, 2.0f * q.y * q.z - 2.0f * q.w * q.x, 1.0f - 2.0f * q.x*q.x - 2.0f * q.y*q.y, 0, - 0, 0, 0, 1); -} - -/* matrix functions */ -static INLINE void m4_cons(mat4_t m, - float m11, float m12, float m13, float m14, - float m21, float m22, float m23, float m24, - float m31, float m32, float m33, float m34, - float m41, float m42, float m43, float m44) -{ - m[0][0] = m11; m[1][0] = m12; m[2][0] = m13; m[3][0] = m14; - m[0][1] = m21; m[1][1] = m22; m[2][1] = m23; m[3][1] = m24; - m[0][2] = m31; m[1][2] = m32; m[2][2] = m33; m[3][2] = m34; - m[0][3] = m41; m[1][3] = m42; m[2][3] = m43; m[3][3] = m44; -} diff --git a/internal/c/parts/core/android_core/progs/demos/subwin/subwin.c b/internal/c/parts/core/android_core/progs/demos/subwin/subwin.c deleted file mode 100644 index fe7fc99c8..000000000 --- a/internal/c/parts/core/android_core/progs/demos/subwin/subwin.c +++ /dev/null @@ -1,220 +0,0 @@ -/*! \file subwin.c - \ingroup demos - - This program is a test harness for the subwindows - in OpenGLUT. Based Originally on shape.c demo. - - \author Written by Evan Felix February 2011 - - \author Portions Copyright (C) 2004, the OpenGLUT project contributors.
    - OpenGLUT branched from freeglut in February, 2004. - - \image html openglut_subwin.png OpenGLUT Sub Window Demonstration - \include demos/subwin/subwin.c -*/ - -#include - -#include -#include -#include -#include -#ifdef _MSC_VER -/* DUMP MEMORY LEAKS */ -#include -#endif - -#define MAXSTR 16 -char **strings; -int mainwin; - - -/*! - Does printf()-like work using freeglut/OpenGLUT - glutBitmapString(). Uses a fixed font. Prints - at the indicated row/column position. - - Limitation: Cannot address pixels. - Limitation: Renders in screen coords, not model coords. -*/ -static void shapesPrintf (int row, int col, const char *fmt, ...) -{ - static char buf[256]; - int viewport[4]; - void *font = GLUT_BITMAP_9_BY_15; - va_list args; - - va_start(args, fmt); -#if defined(WIN32) && !defined(__CYGWIN__) - (void) _vsnprintf (buf, sizeof(buf), fmt, args); -#else - (void) vsnprintf (buf, sizeof(buf), fmt, args); -#endif - va_end(args); - - glGetIntegerv(GL_VIEWPORT,viewport); - - glPushMatrix(); - glLoadIdentity(); - - glMatrixMode(GL_PROJECTION); - glPushMatrix(); - glLoadIdentity(); - - glOrtho(0,viewport[2],0,viewport[3],-1,1); - - glRasterPos2i - ( - glutBitmapWidth(font, ' ') * col, - - glutBitmapHeight(font) * (row+2) + viewport[3] - ); - glutBitmapString (font, (unsigned char*)buf); - - glPopMatrix(); - glMatrixMode(GL_MODELVIEW); - glPopMatrix(); -} - -/* GLUT callback Handlers */ - -static void -resize(int width, int height) -{ - - glViewport(0, 0, width, height); - - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - /*gluOrtho2D(0, width, 0, height);*/ - - glMatrixMode(GL_MODELVIEW); - glLoadIdentity() ; -} - -static void display(void) -{ - - int win = glutGetWindow(); - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - glColor3d(1,0,0); - - glDisable(GL_LIGHTING); - glColor3d(0.1,0.1,0.4); - - if (win == mainwin) { - shapesPrintf (2, 3, "Move The mouse into different windows"); - shapesPrintf (3, 3, "pressing keys will add to the string"); - } - shapesPrintf (5, 3, "Window: %d", win); - shapesPrintf (6, 3, "String: %s", strings[win]); - - glutSwapBuffers(); -} - - -static void -key(unsigned char key, int x, int y) -{ - char *s,str[2]; - int win = glutGetWindow(); - - switch (key) - { - case 27 : - case 'Q': - case 'q': glutLeaveMainLoop () ; break; - - default: - s=strings[win]; - if (strlen(s)+1>MAXSTR) { - s[0]=0; - } - str[0]=key; - str[1]=0; - strcat(s,str); - break; - } - - glutPostRedisplay(); -} - -static void special (int key, int x, int y) -{ - switch (key) - { - default: - break; - } - glutPostRedisplay(); -} - - -static void -entry(int state) -{ - int win = glutGetWindow(); - printf("Win: %d, state: %d\n",win,state); -} - -/* Program entry point */ - -int -main(int argc, char *argv[]) -{ - int winmax,sw1,sw2,i; - - glutInitWindowSize(640,480); - glutInitWindowPosition(40,40); - glutInit(&argc, argv); - glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH | GLUT_MULTISAMPLE); - - glutCreateWindow("FreeGLUT Sub Windows"); - - glutReshapeFunc(resize); - glutDisplayFunc(display); - glutKeyboardFunc(key); - glutSpecialFunc(special); - glutEntryFunc(entry); - - glutSetOption ( GLUT_ACTION_ON_WINDOW_CLOSE, GLUT_ACTION_CONTINUE_EXECUTION ) ; - - glClearColor(1,1,1,1); - - mainwin = glutGetWindow(); - winmax=mainwin; - - sw1=glutCreateSubWindow(mainwin,4,240,314,236); - glutReshapeFunc(resize); - glutDisplayFunc(display); - glutKeyboardFunc(key); - glutSpecialFunc(special); - glutEntryFunc(entry); - glClearColor(0.7f,0.7f,0.7f,1); - winmax = sw1 > winmax ? sw1 : winmax; - - sw2=glutCreateSubWindow(mainwin,322,240,314,236); - glutReshapeFunc(resize); - glutDisplayFunc(display); - glutKeyboardFunc(key); - glutSpecialFunc(special); - glutEntryFunc(entry); - glClearColor(0.7f,0.7f,0.7f,1); - winmax = sw2 > winmax ? sw2 : winmax; - - strings = malloc(sizeof(char *)*(winmax+1)); - for (i=0;i - * - * Demonstrate the use of glutTimerFunc, by changing the color of the - * framebuffer every (approximately) 1 sec. - */ -#include -#include - -void disp(void); -void timer_func(int unused); - -/* color index will be advanced every time the timer expires */ -int cidx; -float color[][3] = { - {1, 0, 0}, - {0, 1, 0}, - {0, 0, 1}, - {1, 1, 0}, - {0, 1, 1}, - {1, 0, 1} -}; - -int main(int argc, char **argv) -{ - glutInit(&argc, argv); - glutInitWindowSize(128, 128); - glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE); - glutCreateWindow("timer test"); - - glutDisplayFunc(disp); - - /* get timer started, its reset in the timer function itself */ - glutTimerFunc(1000, timer_func, 0); - - glutMainLoop(); - return 0; -} - -void disp(void) -{ - glClearColor(color[cidx][0], color[cidx][1], color[cidx][2], 1); - glClear(GL_COLOR_BUFFER_BIT); - - glutSwapBuffers(); -} - -void timer_func(int unused) -{ - /* advance the color index and trigger a redisplay */ - cidx = (cidx + 1) % (sizeof color / sizeof *color); - glutPostRedisplay(); - - /* (re)set the timer callback and ask glut to call it in 1 second */ - glutTimerFunc(1000, timer_func, 0); -} diff --git a/internal/c/parts/core/android_core/src/android/fg_gamemode_android.c b/internal/c/parts/core/android_core/src/android/fg_gamemode_android.c deleted file mode 100644 index 56137735c..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_gamemode_android.c +++ /dev/null @@ -1,57 +0,0 @@ -/* - * freeglut_gamemode_x11.c - * - * The game mode handling code. - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * Changes the current display mode to match user's settings - */ -GLboolean fgPlatformChangeDisplayMode( GLboolean haveToTest ) -{ - fprintf(stderr, "fgPlatformChangeDisplayMode: STUB\n"); - return GL_FALSE; -} - -void fgPlatformEnterGameMode( void ) -{ - fprintf(stderr, "fgPlatformEnterGameMode: STUB\n"); -} - -void fgPlatformRememberState( void ) -{ - fprintf(stderr, "fgPlatformRememberState: STUB\n"); -} - -void fgPlatformRestoreState( void ) -{ - fprintf(stderr, "fgPlatformRestoreState: STUB\n"); -} - -void fgPlatformLeaveGameMode( void ) -{ - fprintf(stderr, "fgPlatformLeaveGameMode: STUB\n"); -} - diff --git a/internal/c/parts/core/android_core/src/android/fg_input_devices_android.c b/internal/c/parts/core/android_core/src/android/fg_input_devices_android.c deleted file mode 100644 index 5f1b8d4bd..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_input_devices_android.c +++ /dev/null @@ -1,68 +0,0 @@ -/* - * freeglut_input_devices_android.c - * - * Handles miscellaneous input devices via direct serial-port access. - * - * Written by Joe Krahn 2005 - * Copyright (c) 2005 Stephen J. Baker. All Rights Reserved. - * Copied for Platform code by Evan Felix - * Copyright 2012 (C) Sylvain Beucler - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA OR STEPHEN J. BAKER BE LIABLE FOR ANY CLAIM, DAMAGES OR - * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, - * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - */ - -#include -typedef struct _serialport SERIALPORT; - -/* - * Try initializing the input device(s) - */ -void fgPlatformRegisterDialDevice ( const char *dial_device ) -{ - fprintf(stderr, "fgPlatformRegisterDialDevice: STUB\n"); -} - -SERIALPORT *serial_open ( const char *device ) -{ - fprintf(stderr, "serial_open: STUB\n"); - return NULL; -} - -void serial_close(SERIALPORT *port) -{ - fprintf(stderr, "serial_close: STUB\n"); -} - -int serial_getchar(SERIALPORT *port) -{ - fprintf(stderr, "serial_getchar: STUB\n"); - return EOF; -} - -int serial_putchar(SERIALPORT *port, unsigned char ch) -{ - fprintf(stderr, "serial_putchar: STUB\n"); - return 0; -} - -void serial_flush ( SERIALPORT *port ) -{ - fprintf(stderr, "serial_flush: STUB\n"); -} diff --git a/internal/c/parts/core/android_core/src/android/fg_internal_android.h b/internal/c/parts/core/android_core/src/android/fg_internal_android.h deleted file mode 100644 index 739a49e43..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_internal_android.h +++ /dev/null @@ -1,86 +0,0 @@ -/* - * freeglut_internal_android.h - * - * The freeglut library private include file. - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef FREEGLUT_INTERNAL_ANDROID_H -#define FREEGLUT_INTERNAL_ANDROID_H - - -/* -- PLATFORM-SPECIFIC INCLUDES ------------------------------------------- */ -/* Android OpenGL ES is accessed through EGL */ -#include "egl/fg_internal_egl.h" - -/** - * Virtual PAD (spots on touchscreen that simulate keys) - */ -struct vpad_state { - bool on; - bool left; - bool right; - bool up; - bool down; -}; -struct touchscreen { - struct vpad_state vpad; - bool in_mmotion; -}; - - -/* -- JOYSTICK-SPECIFIC STRUCTURES AND TYPES ------------------------------- */ -/* - * Initial defines from "js.h" starting around line 33 with the existing "freeglut_joystick.c" - * interspersed - */ - - /* - * We'll put these values in and that should - * allow the code to at least compile when there is - * no support. The JS open routine should error out - * and shut off all the code downstream anyway and if - * the application doesn't use a joystick we'll be fine. - */ - - struct JS_DATA_TYPE - { - int buttons; - int x; - int y; - }; - -# define JS_RETURN (sizeof(struct JS_DATA_TYPE)) - -/* XXX It might be better to poll the operating system for the numbers of buttons and - * XXX axes and then dynamically allocate the arrays. - */ -# define _JS_MAX_AXES 16 -typedef struct tagSFG_PlatformJoystick SFG_PlatformJoystick; -struct tagSFG_PlatformJoystick -{ - struct JS_DATA_TYPE js; - - char fname [ 128 ]; - int fd; -}; - -#endif /* FREEGLUT_INTERNAL_ANDROID_H */ diff --git a/internal/c/parts/core/android_core/src/android/fg_joystick_android.c b/internal/c/parts/core/android_core/src/android/fg_joystick_android.c deleted file mode 100644 index c9705f0a7..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_joystick_android.c +++ /dev/null @@ -1,50 +0,0 @@ -/* - * freeglut_joystick_android.c - * - * Joystick handling code - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Steve Baker, - * Copied for Platform code by Evan Felix - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -void fgPlatformJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - fprintf(stderr, "fgPlatformJoystickRawRead: STUB\n"); -} - -void fgPlatformJoystickOpen( SFG_Joystick* joy ) -{ - fprintf(stderr, "fgPlatformJoystickOpen: STUB\n"); -} - -void fgPlatformJoystickInit( SFG_Joystick *fgJoystick[], int ident ) -{ - fprintf(stderr, "fgJoystick: STUB\n"); -} - -void fgPlatformJoystickClose ( int ident ) -{ - fprintf(stderr, "fgPlatformJoystickClose: STUB\n"); -} diff --git a/internal/c/parts/core/android_core/src/android/fg_main_android.c b/internal/c/parts/core/android_core/src/android/fg_main_android.c deleted file mode 100644 index 6c37a26e6..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_main_android.c +++ /dev/null @@ -1,404 +0,0 @@ -/* - * freeglut_main_android.c - * - * The Android-specific windows message processing methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -#include -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "FreeGLUT", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "FreeGLUT", __VA_ARGS__)) -#include -#include - -static struct touchscreen touchscreen; -static unsigned char key_a2fg[256]; - -/* Cf. http://developer.android.com/reference/android/view/KeyEvent.html */ -/* These codes are missing in */ -/* Don't convert to enum, since it may conflict with future version of - that */ -#define AKEYCODE_FORWARD_DEL 112 -#define AKEYCODE_CTRL_LEFT 113 -#define AKEYCODE_CTRL_RIGHT 114 -#define AKEYCODE_MOVE_HOME 122 -#define AKEYCODE_MOVE_END 123 -#define AKEYCODE_INSERT 124 -#define AKEYCODE_ESCAPE 127 -#define AKEYCODE_F1 131 -#define AKEYCODE_F2 132 -#define AKEYCODE_F3 133 -#define AKEYCODE_F4 134 -#define AKEYCODE_F5 135 -#define AKEYCODE_F6 136 -#define AKEYCODE_F7 137 -#define AKEYCODE_F8 138 -#define AKEYCODE_F9 139 -#define AKEYCODE_F10 140 -#define AKEYCODE_F11 141 -#define AKEYCODE_F12 142 - -#define EVENT_HANDLED 1 -#define EVENT_NOT_HANDLED 0 - -/** - * Initialize Android keycode to GLUT keycode mapping - */ -static void key_init() { - memset(key_a2fg, 0, sizeof(key_a2fg)); - - key_a2fg[AKEYCODE_F1] = GLUT_KEY_F1; - key_a2fg[AKEYCODE_F2] = GLUT_KEY_F2; - key_a2fg[AKEYCODE_F3] = GLUT_KEY_F3; - key_a2fg[AKEYCODE_F4] = GLUT_KEY_F4; - key_a2fg[AKEYCODE_F5] = GLUT_KEY_F5; - key_a2fg[AKEYCODE_F6] = GLUT_KEY_F6; - key_a2fg[AKEYCODE_F7] = GLUT_KEY_F7; - key_a2fg[AKEYCODE_F8] = GLUT_KEY_F8; - key_a2fg[AKEYCODE_F9] = GLUT_KEY_F9; - key_a2fg[AKEYCODE_F10] = GLUT_KEY_F10; - key_a2fg[AKEYCODE_F11] = GLUT_KEY_F11; - key_a2fg[AKEYCODE_F12] = GLUT_KEY_F12; - - key_a2fg[AKEYCODE_PAGE_UP] = GLUT_KEY_PAGE_UP; - key_a2fg[AKEYCODE_PAGE_DOWN] = GLUT_KEY_PAGE_DOWN; - key_a2fg[AKEYCODE_MOVE_HOME] = GLUT_KEY_HOME; - key_a2fg[AKEYCODE_MOVE_END] = GLUT_KEY_END; - key_a2fg[AKEYCODE_INSERT] = GLUT_KEY_INSERT; - - key_a2fg[AKEYCODE_DPAD_UP] = GLUT_KEY_UP; - key_a2fg[AKEYCODE_DPAD_DOWN] = GLUT_KEY_DOWN; - key_a2fg[AKEYCODE_DPAD_LEFT] = GLUT_KEY_LEFT; - key_a2fg[AKEYCODE_DPAD_RIGHT] = GLUT_KEY_RIGHT; - - key_a2fg[AKEYCODE_ALT_LEFT] = GLUT_KEY_ALT_L; - key_a2fg[AKEYCODE_ALT_RIGHT] = GLUT_KEY_ALT_R; - key_a2fg[AKEYCODE_SHIFT_LEFT] = GLUT_KEY_SHIFT_L; - key_a2fg[AKEYCODE_SHIFT_RIGHT] = GLUT_KEY_SHIFT_R; - key_a2fg[AKEYCODE_CTRL_LEFT] = GLUT_KEY_CTRL_L; - key_a2fg[AKEYCODE_CTRL_RIGHT] = GLUT_KEY_CTRL_R; -} - -/** - * Convert an Android key event to ASCII. - */ -static unsigned char key_ascii(struct android_app* app, AInputEvent* event) { - int32_t code = AKeyEvent_getKeyCode(event); - - /* Handle a few special cases: */ - switch (code) { - case AKEYCODE_DEL: - return 8; - case AKEYCODE_FORWARD_DEL: - return 127; - case AKEYCODE_ESCAPE: - return 27; - } - - /* Get usable JNI context */ - JNIEnv* env = app->activity->env; - JavaVM* vm = app->activity->vm; - (*vm)->AttachCurrentThread(vm, &env, NULL); - - jclass KeyEventClass = (*env)->FindClass(env, "android/view/KeyEvent"); - jmethodID KeyEventConstructor = (*env)->GetMethodID(env, KeyEventClass, "", "(II)V"); - jobject keyEvent = (*env)->NewObject(env, KeyEventClass, KeyEventConstructor, - AKeyEvent_getAction(event), AKeyEvent_getKeyCode(event)); - jmethodID KeyEvent_getUnicodeChar = (*env)->GetMethodID(env, KeyEventClass, "getUnicodeChar", "(I)I"); - int ascii = (*env)->CallIntMethod(env, keyEvent, KeyEvent_getUnicodeChar, AKeyEvent_getMetaState(event)); - - /* LOGI("getUnicodeChar(%d) = %d ('%c')", AKeyEvent_getKeyCode(event), ascii, ascii); */ - - return ascii; -} - -/* - * Handle a window configuration change. When no reshape - * callback is hooked, the viewport size is updated to - * match the new window size. - */ -void fgPlatformReshapeWindow ( SFG_Window *window, int width, int height ) -{ - fprintf(stderr, "fgPlatformReshapeWindow: STUB\n"); -} - -/* - * A static helper function to execute display callback for a window - */ -void fgPlatformDisplayWindow ( SFG_Window *window ) -{ - fghRedrawWindow ( window ) ; -} - -unsigned long fgPlatformSystemTime ( void ) -{ - struct timeval now; - gettimeofday( &now, NULL ); - return now.tv_usec/1000 + now.tv_sec*1000; -} - -/* - * Does the magic required to relinquish the CPU until something interesting - * happens. - */ -void fgPlatformSleepForEvents( long msec ) -{ - /* fprintf(stderr, "fgPlatformSleepForEvents: STUB\n"); */ -} - -/** - * Process the next input event. - */ -int32_t handle_input(struct android_app* app, AInputEvent* event) { - SFG_Window* window = fgStructure.CurrentWindow; - - /* FIXME: in Android, when key is repeated, down and up events - happen most often at the exact same time. This makes it - impossible to animate based on key press time. */ - /* e.g. down/up/wait/down/up rather than down/wait/down/wait/up */ - - if (AInputEvent_getType(event) == AINPUT_EVENT_TYPE_KEY) { - /* LOGI("action: %d", AKeyEvent_getAction(event)); */ - /* LOGI("keycode: %d", code); */ - int32_t code = AKeyEvent_getKeyCode(event); - - if (AKeyEvent_getAction(event) == AKEY_EVENT_ACTION_DOWN) { - int32_t keypress = 0; - unsigned char ascii = 0; - if ((keypress = key_a2fg[code]) && FETCH_WCB(*window, Special)) { - INVOKE_WCB(*window, Special, (keypress, window->State.MouseX, window->State.MouseY)); - return EVENT_HANDLED; - } else if ((ascii = key_ascii(app, event)) && FETCH_WCB(*window, Keyboard)) { - INVOKE_WCB(*window, Keyboard, (ascii, window->State.MouseX, window->State.MouseY)); - return EVENT_HANDLED; - } - } - else if (AKeyEvent_getAction(event) == AKEY_EVENT_ACTION_UP) { - int32_t keypress = 0; - unsigned char ascii = 0; - if ((keypress = key_a2fg[code]) && FETCH_WCB(*window, Special)) { - INVOKE_WCB(*window, SpecialUp, (keypress, window->State.MouseX, window->State.MouseY)); - return EVENT_HANDLED; - } else if ((ascii = key_ascii(app, event)) && FETCH_WCB(*window, Keyboard)) { - INVOKE_WCB(*window, KeyboardUp, (ascii, window->State.MouseX, window->State.MouseY)); - return EVENT_HANDLED; - } - } - } - - if (AInputEvent_getType(event) == AINPUT_EVENT_TYPE_MOTION) { - int32_t action = AMotionEvent_getAction(event); - float x = AMotionEvent_getX(event, 0); - float y = AMotionEvent_getY(event, 0); - LOGI("motion %.01f,%.01f action=%d", x, y, AMotionEvent_getAction(event)); - - /* Virtual arrows PAD */ - // Don't interfere with existing mouse move event - //if (!touchscreen.in_mmotion) { - if (1==0) {//QB64 uses its own virtual KB and this interferes with QB64's mouse input - struct vpad_state prev_vpad = touchscreen.vpad; - touchscreen.vpad.left = touchscreen.vpad.right - = touchscreen.vpad.up = touchscreen.vpad.down = false; - - int32_t width = ANativeWindow_getWidth(window->Window.Handle); - int32_t height = ANativeWindow_getHeight(window->Window.Handle); - if (action == AMOTION_EVENT_ACTION_DOWN || action == AMOTION_EVENT_ACTION_MOVE) { - if ((x > 0 && x < 100) && (y > (height - 100) && y < height)) - touchscreen.vpad.left = true; - if ((x > 200 && x < 300) && (y > (height - 100) && y < height)) - touchscreen.vpad.right = true; - if ((x > 100 && x < 200) && (y > (height - 100) && y < height)) - touchscreen.vpad.down = true; - if ((x > 100 && x < 200) && (y > (height - 200) && y < (height - 100))) - touchscreen.vpad.up = true; - } - if (action == AMOTION_EVENT_ACTION_DOWN && - (touchscreen.vpad.left || touchscreen.vpad.right || touchscreen.vpad.down || touchscreen.vpad.up)) - touchscreen.vpad.on = true; - if (action == AMOTION_EVENT_ACTION_UP) - touchscreen.vpad.on = false; - if (prev_vpad.left != touchscreen.vpad.left - || prev_vpad.right != touchscreen.vpad.right - || prev_vpad.up != touchscreen.vpad.up - || prev_vpad.down != touchscreen.vpad.down - || prev_vpad.on != touchscreen.vpad.on) { - if (FETCH_WCB(*window, Special)) { - if (prev_vpad.left == false && touchscreen.vpad.left == true) - INVOKE_WCB(*window, Special, (GLUT_KEY_LEFT, x, y)); - else if (prev_vpad.right == false && touchscreen.vpad.right == true) - INVOKE_WCB(*window, Special, (GLUT_KEY_RIGHT, x, y)); - else if (prev_vpad.up == false && touchscreen.vpad.up == true) - INVOKE_WCB(*window, Special, (GLUT_KEY_UP, x, y)); - else if (prev_vpad.down == false && touchscreen.vpad.down == true) - INVOKE_WCB(*window, Special, (GLUT_KEY_DOWN, x, y)); - } - if (FETCH_WCB(*window, SpecialUp)) { - if (prev_vpad.left == true && touchscreen.vpad.left == false) - INVOKE_WCB(*window, SpecialUp, (GLUT_KEY_LEFT, x, y)); - if (prev_vpad.right == true && touchscreen.vpad.right == false) - INVOKE_WCB(*window, SpecialUp, (GLUT_KEY_RIGHT, x, y)); - if (prev_vpad.up == true && touchscreen.vpad.up == false) - INVOKE_WCB(*window, SpecialUp, (GLUT_KEY_UP, x, y)); - if (prev_vpad.down == true && touchscreen.vpad.down == false) - INVOKE_WCB(*window, SpecialUp, (GLUT_KEY_DOWN, x, y)); - } - return EVENT_HANDLED; - } - } - - /* Normal mouse events */ - if (!touchscreen.vpad.on) { - window->State.MouseX = x; - window->State.MouseY = y; - LOGI("Changed mouse position: %d,%d", x, y); - if (action == AMOTION_EVENT_ACTION_DOWN && FETCH_WCB(*window, Mouse)) { - touchscreen.in_mmotion = true; - INVOKE_WCB(*window, Mouse, (GLUT_LEFT_BUTTON, GLUT_DOWN, x, y)); - } else if (action == AMOTION_EVENT_ACTION_UP && FETCH_WCB(*window, Mouse)) { - touchscreen.in_mmotion = false; - INVOKE_WCB(*window, Mouse, (GLUT_LEFT_BUTTON, GLUT_UP, x, y)); - } else if (action == AMOTION_EVENT_ACTION_MOVE && FETCH_WCB(*window, Motion)) { - INVOKE_WCB(*window, Motion, (x, y)); - } - } - - return EVENT_HANDLED; - } - - /* Let Android handle other events (e.g. Back and Menu buttons) */ - return EVENT_NOT_HANDLED; -} - -/** - * Process the next main command. - */ -void handle_cmd(struct android_app* app, int32_t cmd) { - switch (cmd) { - case APP_CMD_SAVE_STATE: - /* The system has asked us to save our current state. Do so. */ - LOGI("handle_cmd: APP_CMD_SAVE_STATE"); - break; - case APP_CMD_INIT_WINDOW: - /* The window is being shown, get it ready. */ - LOGI("handle_cmd: APP_CMD_INIT_WINDOW"); - fgDisplay.pDisplay.single_window->Window.Handle = app->window; - /* glPlatformOpenWindow was waiting for Handle to be defined and - will now return from fgPlatformProcessSingleEvent() */ - break; - case APP_CMD_TERM_WINDOW: - /* The window is being hidden or closed, clean it up. */ - LOGI("handle_cmd: APP_CMD_TERM_WINDOW"); - fgDestroyWindow(fgDisplay.pDisplay.single_window); - break; - case APP_CMD_DESTROY: - /* Not reached because GLUT exit()s when last window is closed */ - LOGI("handle_cmd: APP_CMD_DESTROY"); - break; - case APP_CMD_GAINED_FOCUS: - LOGI("handle_cmd: APP_CMD_GAINED_FOCUS"); - break; - case APP_CMD_LOST_FOCUS: - LOGI("handle_cmd: APP_CMD_LOST_FOCUS"); - break; - case APP_CMD_CONFIG_CHANGED: - /* Handle rotation / orientation change */ - LOGI("handle_cmd: APP_CMD_CONFIG_CHANGED"); - break; - case APP_CMD_WINDOW_RESIZED: - LOGI("handle_cmd: APP_CMD_WINDOW_RESIZED"); - if (fgDisplay.pDisplay.single_window->Window.pContext.eglSurface != EGL_NO_SURFACE) - /* Make ProcessSingleEvent detect the new size, only available - after the next SwapBuffer */ - glutPostRedisplay(); - break; - default: - LOGI("handle_cmd: unhandled cmd=%d", cmd); - } -} - -void fgPlatformProcessSingleEvent ( void ) -{ - static int32_t last_width = -1; - static int32_t last_height = -1; - - /* When the screen is resized, the window handle still points to the - old window until the next SwapBuffer, while it's crucial to set - the size (onShape) correctly before the next onDisplay callback. - Plus we don't know if the next SwapBuffer already occurred at the - time we process the event (e.g. during onDisplay). */ - /* So we do the check each time rather than on event. */ - /* Interestingly, on a Samsung Galaxy S/PowerVR SGX540 GPU/Android - 2.3, that next SwapBuffer is fake (but still necessary to get the - new size). */ - SFG_Window* window = fgDisplay.pDisplay.single_window; - if (window != NULL && window->Window.Handle != NULL) { - int32_t width = ANativeWindow_getWidth(window->Window.Handle); - int32_t height = ANativeWindow_getHeight(window->Window.Handle); - if (width != last_width || height != last_height) { - last_width = width; - last_height = height; - LOGI("width=%d, height=%d", width, height); - if( FETCH_WCB( *window, Reshape ) ) - INVOKE_WCB( *window, Reshape, ( width, height ) ); - else - glViewport( 0, 0, width, height ); - glutPostRedisplay(); - } - } - - /* Read pending event. */ - int ident; - int events; - struct android_poll_source* source; - /* This is called "ProcessSingleEvent" but this means we'd only - process ~60 (screen Hz) mouse events per second, plus other ports - are processing all events already. So let's process all pending - events. */ - /* if ((ident=ALooper_pollOnce(0, NULL, &events, (void**)&source)) >= 0) { */ - while ((ident=ALooper_pollAll(0, NULL, &events, (void**)&source)) >= 0) { - /* Process this event. */ - if (source != NULL) { - source->process(source->app, source); - } - } -} - -void fgPlatformMainLoopPreliminaryWork ( void ) -{ - printf("fgPlatformMainLoopPreliminaryWork\n"); - - key_init(); - - /* Make sure glue isn't stripped. */ - /* JNI entry points need to be bundled even when linking statically */ - app_dummy(); -} - -void fgPlatformDeinitialiseInputDevices ( void ) -{ - fprintf(stderr, "fgPlatformDeinitialiseInputDevices: STUB\n"); -} diff --git a/internal/c/parts/core/android_core/src/android/fg_runtime_android.c b/internal/c/parts/core/android_core/src/android/fg_runtime_android.c deleted file mode 100644 index 9d3d49a96..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_runtime_android.c +++ /dev/null @@ -1,167 +0,0 @@ -/* - * freeglut_runtime_android.c - * - * Android runtime - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -/* Parts taken from Android NDK's 'native-activity' sample : */ -/* - * Copyright (C) 2010 The Android Open Source Project - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - * - */ - -#include -#include -#include -#include -#include -#include -#include -#include "android/native_app_glue/android_native_app_glue.h" - -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "FreeGLUT", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "FreeGLUT", __VA_ARGS__)) - -/* Cf. freeglut_main_android.c */ -extern int32_t handle_input(struct android_app* app, AInputEvent* event); -extern void handle_cmd(struct android_app* app, int32_t cmd); - -extern int main(int argc, char* argv[], struct android_app* app); - -/** NativeActivity Callbacks **/ -/* Caution: they are called in the native_activity thread, not the - FreeGLUT thread. Use android_app_write_cmd. */ - -/* Could be used instead of onNativeWindowRedrawNeeded */ -/* Deals with status bar presence */ -static void onContentRectChanged(ANativeActivity* activity, const ARect* rect) { - LOGI("onContentRectChanged: l=%d,t=%d,r=%d,b=%d", rect->left, rect->top, rect->right, rect->bottom); -} - -/* Bug: not called during a resize in android-9, only once on startup :/ */ -static void onNativeWindowResized(ANativeActivity* activity, ANativeWindow* window) { - LOGI("onNativeWindowResized: %p\n", (void*)activity); -} - -/* Called after a resize, compensate broken onNativeWindowResized */ -static void onNativeWindowRedrawNeeded(ANativeActivity* activity, ANativeWindow* window) { - LOGI("onNativeWindowRedrawNeeded: %p\n", (void*)activity); - struct android_app* app = (struct android_app*)activity->instance; - //if (fgDisplay.pDisplay.single_window->Window.pContext.eglSurface != EGL_NO_SURFACE) - android_app_write_cmd(app, APP_CMD_WINDOW_RESIZED); -} - -/** - * Extract all .apk assets to the application directory so they can be - * accessed using accessed. - * TODO: parse directories recursively - */ - - -/* - -//Not used. QB64 uses a custom assets extraction system - -static void extract_assets(struct android_app* app) { - // Get usable JNI context - JNIEnv* env = app->activity->env; - JavaVM* vm = app->activity->vm; - (*vm)->AttachCurrentThread(vm, &env, NULL); - { - // Get a handle on our calling NativeActivity class - jclass activityClass = (*env)->GetObjectClass(env, app->activity->clazz); - - // Get path to cache dir (/data/data/org.myapp/cache) - jmethodID getCacheDir = (*env)->GetMethodID(env, activityClass, "getCacheDir", "()Ljava/io/File;"); - jobject file = (*env)->CallObjectMethod(env, app->activity->clazz, getCacheDir); - jclass fileClass = (*env)->FindClass(env, "java/io/File"); - jmethodID getAbsolutePath = (*env)->GetMethodID(env, fileClass, "getAbsolutePath", "()Ljava/lang/String;"); - jstring jpath = (jstring)(*env)->CallObjectMethod(env, file, getAbsolutePath); - const char* app_dir = (*env)->GetStringUTFChars(env, jpath, NULL); - - // chdir in the application cache directory - LOGI("app_dir: %s", app_dir); - chdir(app_dir); - (*env)->ReleaseStringUTFChars(env, jpath, app_dir); - - // Pre-extract assets, to avoid Android-specific file opening - { - AAssetManager* mgr = app->activity->assetManager; - AAssetDir* assetDir = AAssetManager_openDir(mgr, ""); - const char* filename = (const char*)NULL; - while ((filename = AAssetDir_getNextFileName(assetDir)) != NULL) { - AAsset* asset = AAssetManager_open(mgr, filename, AASSET_MODE_STREAMING); - char buf[BUFSIZ]; - int nb_read = 0; - FILE* out = fopen(filename, "w"); - while ((nb_read = AAsset_read(asset, buf, BUFSIZ)) > 0) - fwrite(buf, nb_read, 1, out); - fclose(out); - AAsset_close(asset); - } - AAssetDir_close(assetDir); - } - } -} -*/ - -/** - * This is the main entry point of a native application that is using - * android_native_app_glue. It runs in its own thread, with its own - * event loop for receiving input events and doing other things. - */ -void android_main(struct android_app* app) { - LOGI("android_main"); - - // Register window resize callback - app->activity->callbacks->onNativeWindowResized = onNativeWindowResized; - app->activity->callbacks->onContentRectChanged = onContentRectChanged; - app->activity->callbacks->onNativeWindowRedrawNeeded = onNativeWindowRedrawNeeded; - - app->onAppCmd = handle_cmd; - app->onInputEvent = handle_input; - - //QB64 uses a custom asset extraction system - //extract_assets(app); - - /* Call user's main */ - { - char progname[5] = "self"; - char* argv[] = {progname, NULL}; - main(1, argv, app); - } - - LOGI("android_main: end"); - exit(0); -} diff --git a/internal/c/parts/core/android_core/src/android/fg_runtime_android.c.bak b/internal/c/parts/core/android_core/src/android/fg_runtime_android.c.bak deleted file mode 100644 index 981067019..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_runtime_android.c.bak +++ /dev/null @@ -1,163 +0,0 @@ -/* - * freeglut_runtime_android.c - * - * Android runtime - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -/* Parts taken from Android NDK's 'native-activity' sample : */ -/* - * Copyright (C) 2010 The Android Open Source Project - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - * - */ - -#include -#include -#include -#include -#include -#include -#include -#include "android/native_app_glue/android_native_app_glue.h" - -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "FreeGLUT", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "FreeGLUT", __VA_ARGS__)) - -/* Cf. freeglut_main_android.c */ -extern int32_t handle_input(struct android_app* app, AInputEvent* event); -extern void handle_cmd(struct android_app* app, int32_t cmd); - -extern int main(int argc, char* argv[]); - -/** NativeActivity Callbacks **/ -/* Caution: they are called in the native_activity thread, not the - FreeGLUT thread. Use android_app_write_cmd. */ - -/* Could be used instead of onNativeWindowRedrawNeeded */ -/* Deals with status bar presence */ -static void onContentRectChanged(ANativeActivity* activity, const ARect* rect) { - LOGI("onContentRectChanged: l=%d,t=%d,r=%d,b=%d", rect->left, rect->top, rect->right, rect->bottom); -} - -/* Bug: not called during a resize in android-9, only once on startup :/ */ -static void onNativeWindowResized(ANativeActivity* activity, ANativeWindow* window) { - LOGI("onNativeWindowResized: %p\n", (void*)activity); -} - -/* Called after a resize, compensate broken onNativeWindowResized */ -static void onNativeWindowRedrawNeeded(ANativeActivity* activity, ANativeWindow* window) { - LOGI("onNativeWindowRedrawNeeded: %p\n", (void*)activity); - struct android_app* app = (struct android_app*)activity->instance; - //if (fgDisplay.pDisplay.single_window->Window.pContext.eglSurface != EGL_NO_SURFACE) - android_app_write_cmd(app, APP_CMD_WINDOW_RESIZED); -} - -/** - * Extract all .apk assets to the application directory so they can be - * accessed using accessed. - * TODO: parse directories recursively - */ -static void extract_assets(struct android_app* app) { - /* Get usable JNI context */ - JNIEnv* env = app->activity->env; - JavaVM* vm = app->activity->vm; - (*vm)->AttachCurrentThread(vm, &env, NULL); - - { - /* Get a handle on our calling NativeActivity class */ - jclass activityClass = (*env)->GetObjectClass(env, app->activity->clazz); - - /* Get path to cache dir (/data/data/org.myapp/cache) */ - jmethodID getCacheDir = (*env)->GetMethodID(env, activityClass, "getCacheDir", "()Ljava/io/File;"); - jobject file = (*env)->CallObjectMethod(env, app->activity->clazz, getCacheDir); - jclass fileClass = (*env)->FindClass(env, "java/io/File"); - jmethodID getAbsolutePath = (*env)->GetMethodID(env, fileClass, "getAbsolutePath", "()Ljava/lang/String;"); - jstring jpath = (jstring)(*env)->CallObjectMethod(env, file, getAbsolutePath); - const char* app_dir = (*env)->GetStringUTFChars(env, jpath, NULL); - - /* chdir in the application cache directory */ - LOGI("app_dir: %s", app_dir); - chdir(app_dir); - (*env)->ReleaseStringUTFChars(env, jpath, app_dir); - - /* Pre-extract assets, to avoid Android-specific file opening */ - { - AAssetManager* mgr = app->activity->assetManager; - AAssetDir* assetDir = AAssetManager_openDir(mgr, ""); - const char* filename = (const char*)NULL; - while ((filename = AAssetDir_getNextFileName(assetDir)) != NULL) { - AAsset* asset = AAssetManager_open(mgr, filename, AASSET_MODE_STREAMING); - char buf[BUFSIZ]; - int nb_read = 0; - FILE* out = fopen(filename, "w"); - while ((nb_read = AAsset_read(asset, buf, BUFSIZ)) > 0) - fwrite(buf, nb_read, 1, out); - fclose(out); - AAsset_close(asset); - } - AAssetDir_close(assetDir); - } - } -} - -/** - * This is the main entry point of a native application that is using - * android_native_app_glue. It runs in its own thread, with its own - * event loop for receiving input events and doing other things. - */ -void android_main(struct android_app* app) { - LOGI("android_main"); - - - - - // Register window resize callback - app->activity->callbacks->onNativeWindowResized = onNativeWindowResized; - app->activity->callbacks->onContentRectChanged = onContentRectChanged; - app->activity->callbacks->onNativeWindowRedrawNeeded = onNativeWindowRedrawNeeded; - - app->onAppCmd = handle_cmd; - app->onInputEvent = handle_input; - - extract_assets(app); - - /* Call user's main */ - { - char progname[5] = "self"; - char* argv[] = {progname, NULL}; - main(1, argv); - } - - LOGI("android_main: end"); - exit(0); -} diff --git a/internal/c/parts/core/android_core/src/android/fg_spaceball_android.c b/internal/c/parts/core/android_core/src/android/fg_spaceball_android.c deleted file mode 100644 index b05f40172..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_spaceball_android.c +++ /dev/null @@ -1,58 +0,0 @@ -/* - * freeglut_spaceball_android.c - * - * Spaceball support for Windows - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by Evan Felix - * Creation date: Sat Feb 4, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ -/* - * This code is a very complicated way of doing nothing. - * But is needed for Android platform builds. - */ - -#include -#include "fg_internal.h" - -void fgPlatformInitializeSpaceball(void) -{ - return; -} - -void fgPlatformSpaceballClose(void) -{ - return; -} - -int fgPlatformHasSpaceball(void) -{ - return 0; -} - -int fgPlatformSpaceballNumButtons(void) -{ - return 0; -} - -void fgPlatformSpaceballSetWindow(SFG_Window *window) -{ - return; -} diff --git a/internal/c/parts/core/android_core/src/android/fg_state_android.c b/internal/c/parts/core/android_core/src/android/fg_state_android.c deleted file mode 100644 index 1a7ba1de7..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_state_android.c +++ /dev/null @@ -1,113 +0,0 @@ -/* - * freeglut_state_android.c - * - * Android-specific freeglut state query methods. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include -#include -#include "fg_internal.h" - -int fgPlatformGlutGet ( GLenum eWhat ) -{ - fprintf(stderr, "fgPlatformGlutGet: STUB\n"); - - switch (eWhat) { - case GLUT_WINDOW_WIDTH: - case GLUT_WINDOW_HEIGHT: - { - if ( fgStructure.CurrentWindow == NULL ) - return 0; - int32_t width = ANativeWindow_getWidth(fgStructure.CurrentWindow->Window.Handle); - int32_t height = ANativeWindow_getHeight(fgStructure.CurrentWindow->Window.Handle); - switch ( eWhat ) - { - case GLUT_WINDOW_WIDTH: - return width; - case GLUT_WINDOW_HEIGHT: - return height; - } - } - } - return -1; -} - -int fgPlatformGlutDeviceGet ( GLenum eWhat ) -{ - fprintf(stderr, "fgPlatformGlutDeviceGet: STUB\n"); - return -1; -} - -int fgPlatformGlutLayerGet( GLenum eWhat ) -{ - /* - * This is easy as layers are not implemented ;-) - * - * XXX Can we merge the UNIX/X11 and WIN32 sections? Or - * XXX is overlay support planned? - */ - switch( eWhat ) - { - case GLUT_OVERLAY_POSSIBLE: - return 0; - - case GLUT_LAYER_IN_USE: - return GLUT_NORMAL; - - case GLUT_HAS_OVERLAY: - return 0; - - case GLUT_TRANSPARENT_INDEX: - /* - * Return just anything, which is always defined as zero - * - * XXX HUH? - */ - return 0; - - case GLUT_NORMAL_DAMAGED: - /* XXX Actually I do not know. Maybe. */ - return 0; - - case GLUT_OVERLAY_DAMAGED: - return -1; - - default: - fgWarning( "glutLayerGet(): missing enum handle %d", eWhat ); - break; - } - - /* And fail. That's good. Programs do love failing. */ - return -1; -} - - -int *fgPlatformGlutGetModeValues(GLenum eWhat, int *size) -{ - fprintf(stderr, "fgPlatformGlutGetModeValues: STUB\n"); - return NULL; -} - - diff --git a/internal/c/parts/core/android_core/src/android/fg_window_android.c b/internal/c/parts/core/android_core/src/android/fg_window_android.c deleted file mode 100644 index 66808e097..000000000 --- a/internal/c/parts/core/android_core/src/android/fg_window_android.c +++ /dev/null @@ -1,191 +0,0 @@ -#include -#include -#include -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "native-activity", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "native-activity", __VA_ARGS__)) -//LOGI("tracer********************10"); - - -/* - * freeglut_window_android.c - * - * Window management methods for Android - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "fg_internal.h" -extern EGLSurface fghEGLPlatformOpenWindow( EGLNativeWindowType handle ); - -/* - * Opens a window. Requires a SFG_Window object created and attached - * to the freeglut structure. OpenGL context is created here. - */ -void fgPlatformOpenWindow( SFG_Window* window, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isSubWindow ) -{ - -LOGI("tracer********************200"); - - printf("fgPlatformOpenWindow %p ID=%d\n", (void*)window, window->ID); - -LOGI("tracer********************201"); - - /* TODO: only one full-screen window possible? */ - static int nb_windows = 0; - if (nb_windows == 0) { - nb_windows++; - fgDisplay.pDisplay.single_window = window; - printf("=> %p ID=%d\n", (void*)fgDisplay.pDisplay.single_window, fgDisplay.pDisplay.single_window->ID); - } else { - return; - } - -LOGI("tracer********************202"); - - - /* Wait until window is available and OpenGL context is created */ - /* Normally events are processed through glutMainLoop(), but the - user didn't call it yet, and the Android may not have initialized - the View yet. So we need to wait for that to happen. */ - /* We can't return from this function before the OpenGL context is - properly made current with a valid surface. So we wait for the - surface. */ - while (fgDisplay.pDisplay.single_window->Window.Handle == NULL) { - /* APP_CMD_INIT_WINDOW will do the job */ - fgPlatformProcessSingleEvent(); - } - -LOGI("tracer********************203"); - - EGLDisplay display = fgDisplay.pDisplay.eglDisplay; - EGLint format = fgDisplay.pDisplay.eglContextFormat; - -LOGI("tracer********************204"); - - ANativeWindow_setBuffersGeometry(window->Window.Handle, 0, 0, format); - -LOGI("tracer********************205"); - - window->Window.pContext.eglSurface = fghEGLPlatformOpenWindow(window->Window.Handle); - -LOGI("tracer********************206"); - - window->State.Visible = GL_TRUE; -} - -void fgPlatformSetWindow ( SFG_Window *window ) -{ - /* TODO: only a single window possible? */ -} - -/* - * This function makes the current window visible - */ -void fgPlatformGlutShowWindow( void ) -{ - fprintf(stderr, "fgPlatformGlutShowWindow: STUB\n"); -} - -/* - * This function hides the current window - */ -void fgPlatformGlutHideWindow( void ) -{ - fprintf(stderr, "fgPlatformGlutHideWindow: STUB\n"); -} - -/* - * Iconify the current window (top-level windows only) - */ -void fgPlatformGlutIconifyWindow( void ) -{ - fprintf(stderr, "fgPlatformGlutIconifyWindow: STUB\n"); -} - -/* - * Set the current window's title - */ -void fgPlatformGlutSetWindowTitle( const char* title ) -{ - fprintf(stderr, "fgPlatformGlutSetWindowTitle: STUB\n"); -} - -/* - * Set the current window's iconified title - */ -void fgPlatformGlutSetIconTitle( const char* title ) -{ - fprintf(stderr, "fgPlatformGlutSetIconTitle: STUB\n");} - -/* - * Change the current window's position - */ -void fgPlatformGlutPositionWindow( int x, int y ) -{ - fprintf(stderr, "fgPlatformGlutPositionWindow: STUB\n"); -} - -/* - * Lowers the current window (by Z order change) - */ -void fgPlatformGlutPushWindow( void ) -{ - fprintf(stderr, "fgPlatformGlutPushWindow: STUB\n"); -} - -/* - * Raises the current window (by Z order change) - */ -void fgPlatformGlutPopWindow( void ) -{ - fprintf(stderr, "fgPlatformGlutPopWindow: STUB\n"); -} - -/* - * Resize the current window so that it fits the whole screen - */ -void fgPlatformGlutFullScreen( SFG_Window *win ) -{ - fprintf(stderr, "fgPlatformGlutFullScreen: STUB\n"); -} - -/* - * If we are fullscreen, resize the current window back to its original size - */ -void fgPlatformGlutLeaveFullScreen( SFG_Window *win ) -{ - fprintf(stderr, "fgPlatformGlutLeaveFullScreen: STUB\n"); -} - -/* - * Toggle the window's full screen state. - */ -void fgPlatformGlutFullScreenToggle( SFG_Window *win ) -{ - fprintf(stderr, "fgPlatformGlutFullScreenToggle: STUB\n"); -} diff --git a/internal/c/parts/core/android_core/src/android/native_app_glue/README b/internal/c/parts/core/android_core/src/android/native_app_glue/README deleted file mode 100644 index 8fefe32fa..000000000 --- a/internal/c/parts/core/android_core/src/android/native_app_glue/README +++ /dev/null @@ -1,7 +0,0 @@ -This code is copied from the Android NDK r7, from -source/android/native_app_glue/ . - -A few GCC warnings were suppressed. - -'android_app_write_cmd' was made non-static so that resize events can -be injected from FreeGLUT. diff --git a/internal/c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.c b/internal/c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.c deleted file mode 100644 index c2ac9bd50..000000000 --- a/internal/c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.c +++ /dev/null @@ -1,436 +0,0 @@ -/* - * Copyright (C) 2010 The Android Open Source Project - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - * - */ - -#include - -#include -#include -#include -#include - -#include "android_native_app_glue.h" -#include - -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "threaded_app", __VA_ARGS__)) - -static void free_saved_state(struct android_app* android_app) { - pthread_mutex_lock(&android_app->mutex); - if (android_app->savedState != NULL) { - free(android_app->savedState); - android_app->savedState = NULL; - android_app->savedStateSize = 0; - } - pthread_mutex_unlock(&android_app->mutex); -} - -int8_t android_app_read_cmd(struct android_app* android_app) { - int8_t cmd; - if (read(android_app->msgread, &cmd, sizeof(cmd)) == sizeof(cmd)) { - switch (cmd) { - case APP_CMD_SAVE_STATE: - free_saved_state(android_app); - break; - } - return cmd; - } else { - LOGI("No data on command pipe!"); - } - return -1; -} - -static void print_cur_config(struct android_app* android_app) { - char lang[2], country[2]; - AConfiguration_getLanguage(android_app->config, lang); - AConfiguration_getCountry(android_app->config, country); - - LOGI("Config: mcc=%d mnc=%d lang=%c%c cnt=%c%c orien=%d touch=%d dens=%d " - "keys=%d nav=%d keysHid=%d navHid=%d sdk=%d size=%d long=%d " - "modetype=%d modenight=%d", - AConfiguration_getMcc(android_app->config), - AConfiguration_getMnc(android_app->config), - lang[0], lang[1], country[0], country[1], - AConfiguration_getOrientation(android_app->config), - AConfiguration_getTouchscreen(android_app->config), - AConfiguration_getDensity(android_app->config), - AConfiguration_getKeyboard(android_app->config), - AConfiguration_getNavigation(android_app->config), - AConfiguration_getKeysHidden(android_app->config), - AConfiguration_getNavHidden(android_app->config), - AConfiguration_getSdkVersion(android_app->config), - AConfiguration_getScreenSize(android_app->config), - AConfiguration_getScreenLong(android_app->config), - AConfiguration_getUiModeType(android_app->config), - AConfiguration_getUiModeNight(android_app->config)); -} - -void android_app_pre_exec_cmd(struct android_app* android_app, int8_t cmd) { - switch (cmd) { - case APP_CMD_INPUT_CHANGED: - LOGI("APP_CMD_INPUT_CHANGED\n"); - pthread_mutex_lock(&android_app->mutex); - if (android_app->inputQueue != NULL) { - AInputQueue_detachLooper(android_app->inputQueue); - } - android_app->inputQueue = android_app->pendingInputQueue; - if (android_app->inputQueue != NULL) { - LOGI("Attaching input queue to looper"); - AInputQueue_attachLooper(android_app->inputQueue, - android_app->looper, LOOPER_ID_INPUT, NULL, - &android_app->inputPollSource); - } - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - break; - - case APP_CMD_INIT_WINDOW: - LOGI("APP_CMD_INIT_WINDOW\n"); - pthread_mutex_lock(&android_app->mutex); - android_app->window = android_app->pendingWindow; - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - break; - - case APP_CMD_TERM_WINDOW: - LOGI("APP_CMD_TERM_WINDOW\n"); - pthread_cond_broadcast(&android_app->cond); - break; - - case APP_CMD_RESUME: - case APP_CMD_START: - case APP_CMD_PAUSE: - case APP_CMD_STOP: - LOGI("activityState=%d\n", cmd); - pthread_mutex_lock(&android_app->mutex); - android_app->activityState = cmd; - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - break; - - case APP_CMD_CONFIG_CHANGED: - LOGI("APP_CMD_CONFIG_CHANGED\n"); - AConfiguration_fromAssetManager(android_app->config, - android_app->activity->assetManager); - print_cur_config(android_app); - break; - - case APP_CMD_DESTROY: - LOGI("APP_CMD_DESTROY\n"); - android_app->destroyRequested = 1; - break; - } -} - -void android_app_post_exec_cmd(struct android_app* android_app, int8_t cmd) { - switch (cmd) { - case APP_CMD_TERM_WINDOW: - LOGI("APP_CMD_TERM_WINDOW\n"); - pthread_mutex_lock(&android_app->mutex); - android_app->window = NULL; - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - break; - - case APP_CMD_SAVE_STATE: - LOGI("APP_CMD_SAVE_STATE\n"); - pthread_mutex_lock(&android_app->mutex); - android_app->stateSaved = 1; - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - break; - - case APP_CMD_RESUME: - free_saved_state(android_app); - break; - } -} - -void app_dummy() { - -} - -static void android_app_destroy(struct android_app* android_app) { - LOGI("android_app_destroy!"); - free_saved_state(android_app); - pthread_mutex_lock(&android_app->mutex); - if (android_app->inputQueue != NULL) { - AInputQueue_detachLooper(android_app->inputQueue); - } - AConfiguration_delete(android_app->config); - android_app->destroyed = 1; - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - /* // Can't touch android_app object after this. */ -} - -static void process_input(struct android_app* app, struct android_poll_source* source) { - AInputEvent* event = NULL; - if (AInputQueue_getEvent(app->inputQueue, &event) >= 0) { - LOGI("New input event: type=%d\n", AInputEvent_getType(event)); - if (AInputQueue_preDispatchEvent(app->inputQueue, event)) { - return; - } - { - int32_t handled = 0; - if (app->onInputEvent != NULL) handled = app->onInputEvent(app, event); - AInputQueue_finishEvent(app->inputQueue, event, handled); - } - } else { - LOGI("Failure reading next input event: %s\n", strerror(errno)); - } -} - -static void process_cmd(struct android_app* app, struct android_poll_source* source) { - int8_t cmd = android_app_read_cmd(app); - android_app_pre_exec_cmd(app, cmd); - if (app->onAppCmd != NULL) app->onAppCmd(app, cmd); - android_app_post_exec_cmd(app, cmd); -} - -static void* android_app_entry(void* param) { - struct android_app* android_app = (struct android_app*)param; - ALooper* looper; - - android_app->config = AConfiguration_new(); - AConfiguration_fromAssetManager(android_app->config, android_app->activity->assetManager); - - print_cur_config(android_app); - - android_app->cmdPollSource.id = LOOPER_ID_MAIN; - android_app->cmdPollSource.app = android_app; - android_app->cmdPollSource.process = process_cmd; - android_app->inputPollSource.id = LOOPER_ID_INPUT; - android_app->inputPollSource.app = android_app; - android_app->inputPollSource.process = process_input; - - looper = ALooper_prepare(ALOOPER_PREPARE_ALLOW_NON_CALLBACKS); - ALooper_addFd(looper, android_app->msgread, LOOPER_ID_MAIN, ALOOPER_EVENT_INPUT, NULL, - &android_app->cmdPollSource); - android_app->looper = looper; - - pthread_mutex_lock(&android_app->mutex); - android_app->running = 1; - pthread_cond_broadcast(&android_app->cond); - pthread_mutex_unlock(&android_app->mutex); - - android_main(android_app); - - android_app_destroy(android_app); - return NULL; -} - -/* // -------------------------------------------------------------------- */ -/* // Native activity interaction (called from main thread) */ -/* // -------------------------------------------------------------------- */ - -static struct android_app* android_app_create(ANativeActivity* activity, - void* savedState, size_t savedStateSize) { - struct android_app* android_app = (struct android_app*)malloc(sizeof(struct android_app)); - int msgpipe[2]; - pthread_attr_t attr; - memset(android_app, 0, sizeof(struct android_app)); - android_app->activity = activity; - - pthread_mutex_init(&android_app->mutex, NULL); - pthread_cond_init(&android_app->cond, NULL); - - if (savedState != NULL) { - android_app->savedState = malloc(savedStateSize); - android_app->savedStateSize = savedStateSize; - memcpy(android_app->savedState, savedState, savedStateSize); - } - - if (pipe(msgpipe)) { - LOGI("could not create pipe: %s", strerror(errno)); - } - android_app->msgread = msgpipe[0]; - android_app->msgwrite = msgpipe[1]; - - pthread_attr_init(&attr); - pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED); - pthread_create(&android_app->thread, &attr, android_app_entry, android_app); - - /* // Wait for thread to start. */ - pthread_mutex_lock(&android_app->mutex); - while (!android_app->running) { - pthread_cond_wait(&android_app->cond, &android_app->mutex); - } - pthread_mutex_unlock(&android_app->mutex); - - return android_app; -} - -/* static */void android_app_write_cmd(struct android_app* android_app, int8_t cmd) { - if (write(android_app->msgwrite, &cmd, sizeof(cmd)) != sizeof(cmd)) { - LOGI("Failure writing android_app cmd: %s\n", strerror(errno)); - } -} - -static void android_app_set_input(struct android_app* android_app, AInputQueue* inputQueue) { - pthread_mutex_lock(&android_app->mutex); - android_app->pendingInputQueue = inputQueue; - android_app_write_cmd(android_app, APP_CMD_INPUT_CHANGED); - while (android_app->inputQueue != android_app->pendingInputQueue) { - pthread_cond_wait(&android_app->cond, &android_app->mutex); - } - pthread_mutex_unlock(&android_app->mutex); -} - -static void android_app_set_window(struct android_app* android_app, ANativeWindow* window) { - pthread_mutex_lock(&android_app->mutex); - if (android_app->pendingWindow != NULL) { - android_app_write_cmd(android_app, APP_CMD_TERM_WINDOW); - } - android_app->pendingWindow = window; - if (window != NULL) { - android_app_write_cmd(android_app, APP_CMD_INIT_WINDOW); - } - while (android_app->window != android_app->pendingWindow) { - pthread_cond_wait(&android_app->cond, &android_app->mutex); - } - pthread_mutex_unlock(&android_app->mutex); -} - -static void android_app_set_activity_state(struct android_app* android_app, int8_t cmd) { - pthread_mutex_lock(&android_app->mutex); - android_app_write_cmd(android_app, cmd); - while (android_app->activityState != cmd) { - pthread_cond_wait(&android_app->cond, &android_app->mutex); - } - pthread_mutex_unlock(&android_app->mutex); -} - -static void android_app_free(struct android_app* android_app) { - pthread_mutex_lock(&android_app->mutex); - android_app_write_cmd(android_app, APP_CMD_DESTROY); - while (!android_app->destroyed) { - pthread_cond_wait(&android_app->cond, &android_app->mutex); - } - pthread_mutex_unlock(&android_app->mutex); - - close(android_app->msgread); - close(android_app->msgwrite); - pthread_cond_destroy(&android_app->cond); - pthread_mutex_destroy(&android_app->mutex); - free(android_app); -} - -static void onDestroy(ANativeActivity* activity) { - LOGI("Destroy: %p\n", (void*)activity); - android_app_free((struct android_app*)activity->instance); -} - -static void onStart(ANativeActivity* activity) { - LOGI("Start: %p\n", (void*)activity); - android_app_set_activity_state((struct android_app*)activity->instance, APP_CMD_START); -} - -static void onResume(ANativeActivity* activity) { - LOGI("Resume: %p\n", (void*)activity); - android_app_set_activity_state((struct android_app*)activity->instance, APP_CMD_RESUME); -} - -static void* onSaveInstanceState(ANativeActivity* activity, size_t* outLen) { - struct android_app* android_app = (struct android_app*)activity->instance; - void* savedState = NULL; - - LOGI("SaveInstanceState: %p\n", (void*)activity); - pthread_mutex_lock(&android_app->mutex); - android_app->stateSaved = 0; - android_app_write_cmd(android_app, APP_CMD_SAVE_STATE); - while (!android_app->stateSaved) { - pthread_cond_wait(&android_app->cond, &android_app->mutex); - } - - if (android_app->savedState != NULL) { - savedState = android_app->savedState; - *outLen = android_app->savedStateSize; - android_app->savedState = NULL; - android_app->savedStateSize = 0; - } - - pthread_mutex_unlock(&android_app->mutex); - - return savedState; -} - -static void onPause(ANativeActivity* activity) { - LOGI("Pause: %p\n", (void*)activity); - android_app_set_activity_state((struct android_app*)activity->instance, APP_CMD_PAUSE); -} - -static void onStop(ANativeActivity* activity) { - LOGI("Stop: %p\n", (void*)activity); - android_app_set_activity_state((struct android_app*)activity->instance, APP_CMD_STOP); -} - -static void onConfigurationChanged(ANativeActivity* activity) { - struct android_app* android_app = (struct android_app*)activity->instance; - LOGI("ConfigurationChanged: %p\n", (void*)activity); - android_app_write_cmd(android_app, APP_CMD_CONFIG_CHANGED); -} - -static void onLowMemory(ANativeActivity* activity) { - struct android_app* android_app = (struct android_app*)activity->instance; - LOGI("LowMemory: %p\n", (void*)activity); - android_app_write_cmd(android_app, APP_CMD_LOW_MEMORY); -} - -static void onWindowFocusChanged(ANativeActivity* activity, int focused) { - LOGI("WindowFocusChanged: %p -- %d\n", (void*)activity, focused); - android_app_write_cmd((struct android_app*)activity->instance, - focused ? APP_CMD_GAINED_FOCUS : APP_CMD_LOST_FOCUS); -} - -static void onNativeWindowCreated(ANativeActivity* activity, ANativeWindow* window) { - LOGI("NativeWindowCreated: %p -- %p\n", (void*)activity, (void*)window); - android_app_set_window((struct android_app*)activity->instance, window); -} - -static void onNativeWindowDestroyed(ANativeActivity* activity, ANativeWindow* window) { - LOGI("NativeWindowDestroyed: %p -- %p\n", (void*)activity, (void*)window); - android_app_set_window((struct android_app*)activity->instance, NULL); -} - -static void onInputQueueCreated(ANativeActivity* activity, AInputQueue* queue) { - LOGI("InputQueueCreated: %p -- %p\n", (void*)activity, (void*)queue); - android_app_set_input((struct android_app*)activity->instance, queue); -} - -static void onInputQueueDestroyed(ANativeActivity* activity, AInputQueue* queue) { - LOGI("InputQueueDestroyed: %p -- %p\n", (void*)activity, (void*)queue); - android_app_set_input((struct android_app*)activity->instance, NULL); -} - -void ANativeActivity_onCreate(ANativeActivity* activity, - void* savedState, size_t savedStateSize) { - LOGI("Creating: %p\n", (void*)activity); - activity->callbacks->onDestroy = onDestroy; - activity->callbacks->onStart = onStart; - activity->callbacks->onResume = onResume; - activity->callbacks->onSaveInstanceState = onSaveInstanceState; - activity->callbacks->onPause = onPause; - activity->callbacks->onStop = onStop; - activity->callbacks->onConfigurationChanged = onConfigurationChanged; - activity->callbacks->onLowMemory = onLowMemory; - activity->callbacks->onWindowFocusChanged = onWindowFocusChanged; - activity->callbacks->onNativeWindowCreated = onNativeWindowCreated; - activity->callbacks->onNativeWindowDestroyed = onNativeWindowDestroyed; - activity->callbacks->onInputQueueCreated = onInputQueueCreated; - activity->callbacks->onInputQueueDestroyed = onInputQueueDestroyed; - - activity->instance = android_app_create(activity, savedState, savedStateSize); -} diff --git a/internal/c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.h b/internal/c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.h deleted file mode 100644 index e675c37db..000000000 --- a/internal/c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.h +++ /dev/null @@ -1,349 +0,0 @@ -/* - * Copyright (C) 2010 The Android Open Source Project - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - * - */ - -#ifndef _ANDROID_NATIVE_APP_GLUE_H -#define _ANDROID_NATIVE_APP_GLUE_H - -#include -#include -#include - -#include -#include -#include - -#ifdef __cplusplus -extern "C" { -#endif - -/** - * The native activity interface provided by - * is based on a set of application-provided callbacks that will be called - * by the Activity's main thread when certain events occur. - * - * This means that each one of this callbacks _should_ _not_ block, or they - * risk having the system force-close the application. This programming - * model is direct, lightweight, but constraining. - * - * The 'threaded_native_app' static library is used to provide a different - * execution model where the application can implement its own main event - * loop in a different thread instead. Here's how it works: - * - * 1/ The application must provide a function named "android_main()" that - * will be called when the activity is created, in a new thread that is - * distinct from the activity's main thread. - * - * 2/ android_main() receives a pointer to a valid "android_app" structure - * that contains references to other important objects, e.g. the - * ANativeActivity obejct instance the application is running in. - * - * 3/ the "android_app" object holds an ALooper instance that already - * listens to two important things: - * - * - activity lifecycle events (e.g. "pause", "resume"). See APP_CMD_XXX - * declarations below. - * - * - input events coming from the AInputQueue attached to the activity. - * - * Each of these correspond to an ALooper identifier returned by - * ALooper_pollOnce with values of LOOPER_ID_MAIN and LOOPER_ID_INPUT, - * respectively. - * - * Your application can use the same ALooper to listen to additional - * file-descriptors. They can either be callback based, or with return - * identifiers starting with LOOPER_ID_USER. - * - * 4/ Whenever you receive a LOOPER_ID_MAIN or LOOPER_ID_INPUT event, - * the returned data will point to an android_poll_source structure. You - * can call the process() function on it, and fill in android_app->onAppCmd - * and android_app->onInputEvent to be called for your own processing - * of the event. - * - * Alternatively, you can call the low-level functions to read and process - * the data directly... look at the process_cmd() and process_input() - * implementations in the glue to see how to do this. - * - * See the sample named "native-activity" that comes with the NDK with a - * full usage example. Also look at the JavaDoc of NativeActivity. - */ - -struct android_app; - -/** - * Data associated with an ALooper fd that will be returned as the "outData" - * when that source has data ready. - */ -struct android_poll_source { - /* // The identifier of this source. May be LOOPER_ID_MAIN or */ - /* // LOOPER_ID_INPUT. */ - int32_t id; - - /* // The android_app this ident is associated with. */ - struct android_app* app; - - /* // Function to call to perform the standard processing of data from */ - /* // this source. */ - void (*process)(struct android_app* app, struct android_poll_source* source); -}; - -/** - * This is the interface for the standard glue code of a threaded - * application. In this model, the application's code is running - * in its own thread separate from the main thread of the process. - * It is not required that this thread be associated with the Java - * VM, although it will need to be in order to make JNI calls any - * Java objects. - */ -struct android_app { - /* // The application can place a pointer to its own state object */ - /* // here if it likes. */ - void* userData; - - /* // Fill this in with the function to process main app commands (APP_CMD_*) */ - void (*onAppCmd)(struct android_app* app, int32_t cmd); - - /* // Fill this in with the function to process input events. At this point */ - /* // the event has already been pre-dispatched, and it will be finished upon */ - /* // return. Return 1 if you have handled the event, 0 for any default */ - /* // dispatching. */ - int32_t (*onInputEvent)(struct android_app* app, AInputEvent* event); - - /* // The ANativeActivity object instance that this app is running in. */ - ANativeActivity* activity; - - /* // The current configuration the app is running in. */ - AConfiguration* config; - - /* // This is the last instance's saved state, as provided at creation time. */ - /* // It is NULL if there was no state. You can use this as you need; the */ - /* // memory will remain around until you call android_app_exec_cmd() for */ - /* // APP_CMD_RESUME, at which point it will be freed and savedState set to NULL. */ - /* // These variables should only be changed when processing a APP_CMD_SAVE_STATE, */ - /* // at which point they will be initialized to NULL and you can malloc your */ - /* // state and place the information here. In that case the memory will be */ - /* // freed for you later. */ - void* savedState; - size_t savedStateSize; - - /* // The ALooper associated with the app's thread. */ - ALooper* looper; - - /* // When non-NULL, this is the input queue from which the app will */ - /* // receive user input events. */ - AInputQueue* inputQueue; - - /* // When non-NULL, this is the window surface that the app can draw in. */ - ANativeWindow* window; - - /* // Current content rectangle of the window; this is the area where the */ - /* // window's content should be placed to be seen by the user. */ - ARect contentRect; - - /* // Current state of the app's activity. May be either APP_CMD_START, */ - /* // APP_CMD_RESUME, APP_CMD_PAUSE, or APP_CMD_STOP; see below. */ - int activityState; - - /* // This is non-zero when the application's NativeActivity is being */ - /* // destroyed and waiting for the app thread to complete. */ - int destroyRequested; - - /* // ------------------------------------------------- */ - /* // Below are "private" implementation of the glue code. */ - - pthread_mutex_t mutex; - pthread_cond_t cond; - - int msgread; - int msgwrite; - - pthread_t thread; - - struct android_poll_source cmdPollSource; - struct android_poll_source inputPollSource; - - int running; - int stateSaved; - int destroyed; - int redrawNeeded; - AInputQueue* pendingInputQueue; - ANativeWindow* pendingWindow; - ARect pendingContentRect; -}; - -enum { - /** - * Looper data ID of commands coming from the app's main thread, which - * is returned as an identifier from ALooper_pollOnce(). The data for this - * identifier is a pointer to an android_poll_source structure. - * These can be retrieved and processed with android_app_read_cmd() - * and android_app_exec_cmd(). - */ - LOOPER_ID_MAIN = 1, - - /** - * Looper data ID of events coming from the AInputQueue of the - * application's window, which is returned as an identifier from - * ALooper_pollOnce(). The data for this identifier is a pointer to an - * android_poll_source structure. These can be read via the inputQueue - * object of android_app. - */ - LOOPER_ID_INPUT = 2, - - /** - * Start of user-defined ALooper identifiers. - */ - LOOPER_ID_USER = 3 -}; - -enum { - /** - * Command from main thread: the AInputQueue has changed. Upon processing - * this command, android_app->inputQueue will be updated to the new queue - * (or NULL). - */ - APP_CMD_INPUT_CHANGED, - - /** - * Command from main thread: a new ANativeWindow is ready for use. Upon - * receiving this command, android_app->window will contain the new window - * surface. - */ - APP_CMD_INIT_WINDOW, - - /** - * Command from main thread: the existing ANativeWindow needs to be - * terminated. Upon receiving this command, android_app->window still - * contains the existing window; after calling android_app_exec_cmd - * it will be set to NULL. - */ - APP_CMD_TERM_WINDOW, - - /** - * Command from main thread: the current ANativeWindow has been resized. - * Please redraw with its new size. - */ - APP_CMD_WINDOW_RESIZED, - - /** - * Command from main thread: the system needs that the current ANativeWindow - * be redrawn. You should redraw the window before handing this to - * android_app_exec_cmd() in order to avoid transient drawing glitches. - */ - APP_CMD_WINDOW_REDRAW_NEEDED, - - /** - * Command from main thread: the content area of the window has changed, - * such as from the soft input window being shown or hidden. You can - * find the new content rect in android_app::contentRect. - */ - APP_CMD_CONTENT_RECT_CHANGED, - - /** - * Command from main thread: the app's activity window has gained - * input focus. - */ - APP_CMD_GAINED_FOCUS, - - /** - * Command from main thread: the app's activity window has lost - * input focus. - */ - APP_CMD_LOST_FOCUS, - - /** - * Command from main thread: the current device configuration has changed. - */ - APP_CMD_CONFIG_CHANGED, - - /** - * Command from main thread: the system is running low on memory. - * Try to reduce your memory use. - */ - APP_CMD_LOW_MEMORY, - - /** - * Command from main thread: the app's activity has been started. - */ - APP_CMD_START, - - /** - * Command from main thread: the app's activity has been resumed. - */ - APP_CMD_RESUME, - - /** - * Command from main thread: the app should generate a new saved state - * for itself, to restore from later if needed. If you have saved state, - * allocate it with malloc and place it in android_app.savedState with - * the size in android_app.savedStateSize. The will be freed for you - * later. - */ - APP_CMD_SAVE_STATE, - - /** - * Command from main thread: the app's activity has been paused. - */ - APP_CMD_PAUSE, - - /** - * Command from main thread: the app's activity has been stopped. - */ - APP_CMD_STOP, - - /** - * Command from main thread: the app's activity is being destroyed, - * and waiting for the app thread to clean up and exit before proceeding. - */ - APP_CMD_DESTROY -}; - -/** - * Call when ALooper_pollAll() returns LOOPER_ID_MAIN, reading the next - * app command message. - */ -int8_t android_app_read_cmd(struct android_app* android_app); - -/** - * Call with the command returned by android_app_read_cmd() to do the - * initial pre-processing of the given command. You can perform your own - * actions for the command after calling this function. - */ -void android_app_pre_exec_cmd(struct android_app* android_app, int8_t cmd); - -/** - * Call with the command returned by android_app_read_cmd() to do the - * final post-processing of the given command. You must have done your own - * actions for the command before calling this function. - */ -void android_app_post_exec_cmd(struct android_app* android_app, int8_t cmd); - -/** - * Dummy function you can call to ensure glue code isn't stripped. - */ -void app_dummy(); - -/** - * This is the function that application code must implement, representing - * the main entry to the app. - */ -extern void android_main(struct android_app* app); - -#ifdef __cplusplus -} -#endif - -#endif /* _ANDROID_NATIVE_APP_GLUE_H */ diff --git a/internal/c/parts/core/android_core/src/android/opengles_stubs.c b/internal/c/parts/core/android_core/src/android/opengles_stubs.c deleted file mode 100644 index 2063b349e..000000000 --- a/internal/c/parts/core/android_core/src/android/opengles_stubs.c +++ /dev/null @@ -1,9 +0,0 @@ -#include -#include "fg_internal.h" - -void fgDeactivateMenu( SFG_Window *window ) { - fprintf(stderr, "fgDeactivateMenu: STUB\n"); -} -void fgDisplayMenu( void ) { - fprintf(stderr, "fgDisplayMenu: STUB\n"); -} diff --git a/internal/c/parts/core/android_core/src/egl/fg_display_egl.c b/internal/c/parts/core/android_core/src/egl/fg_display_egl.c deleted file mode 100644 index b3a4f98ec..000000000 --- a/internal/c/parts/core/android_core/src/egl/fg_display_egl.c +++ /dev/null @@ -1,37 +0,0 @@ -/* - * freeglut_display_android.c - * - * Display message posting, context buffer swapping. - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -#include -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "FreeGLUT", __VA_ARGS__)) - -void fgPlatformGlutSwapBuffers( SFG_PlatformDisplay *pDisplayPtr, SFG_Window* CurrentWindow ) -{ - /* LOGI("Swap!"); */ - if (!eglSwapBuffers(pDisplayPtr->eglDisplay, CurrentWindow->Window.pContext.eglSurface)) - fgError("eglSwapBuffers: error %x\n", eglGetError()); -} diff --git a/internal/c/parts/core/android_core/src/egl/fg_init_egl.c b/internal/c/parts/core/android_core/src/egl/fg_init_egl.c deleted file mode 100644 index 5241a468c..000000000 --- a/internal/c/parts/core/android_core/src/egl/fg_init_egl.c +++ /dev/null @@ -1,85 +0,0 @@ -/* - * freeglut_init_android.c - * - * Various freeglut initialization functions. - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "fg_internal.h" - -#include - -/* - * A call to this function should initialize all the display stuff... - */ -void fgPlatformInitialize( const char* displayName ) -{ - fprintf(stderr, "fgPlatformInitialize\n"); - fgState.Initialised = GL_TRUE; - - /* CreateDisplay */ - /* Using EGL_DEFAULT_DISPLAY, or a specific native display */ - EGLNativeDisplayType nativeDisplay = EGL_DEFAULT_DISPLAY; - fgDisplay.pDisplay.eglDisplay = eglGetDisplay(nativeDisplay); - - - FREEGLUT_INTERNAL_ERROR_EXIT(fgDisplay.pDisplay.eglDisplay != EGL_NO_DISPLAY, - "No display available", "fgPlatformInitialize"); - - - - if (!eglInitialize(fgDisplay.pDisplay.eglDisplay, NULL, NULL)) - fgError("eglInitialize: error %x\n", eglGetError()); - - - /* CreateContext */ - fghCreateContext(); - - // fgDisplay.ScreenWidth = ...; - // fgDisplay.ScreenHeight = ...; - // fgDisplay.ScreenWidthMM = ...; - // fgDisplay.ScreenHeightMM = ...; -} - -void fgPlatformCloseDisplay ( void ) -{ - eglMakeCurrent(fgDisplay.pDisplay.eglDisplay, EGL_NO_SURFACE, EGL_NO_SURFACE, EGL_NO_CONTEXT); - if (fgDisplay.pDisplay.eglContext != EGL_NO_CONTEXT) { - eglDestroyContext(fgDisplay.pDisplay.eglDisplay, fgDisplay.pDisplay.eglContext); - fgDisplay.pDisplay.eglContext = EGL_NO_CONTEXT; - } - - if (fgDisplay.pDisplay.eglDisplay != EGL_NO_DISPLAY) { - eglTerminate(fgDisplay.pDisplay.eglDisplay); - fgDisplay.pDisplay.eglDisplay = EGL_NO_DISPLAY; - } -} - -/** - * Destroy a menu context - */ -void fgPlatformDestroyContext ( SFG_PlatformDisplay pDisplay, SFG_WindowContextType MContext ) -{ - if (MContext != EGL_NO_CONTEXT) - eglDestroyContext(pDisplay.eglDisplay, MContext); -} diff --git a/internal/c/parts/core/android_core/src/egl/fg_internal_egl.h b/internal/c/parts/core/android_core/src/egl/fg_internal_egl.h deleted file mode 100644 index 8d27eda0f..000000000 --- a/internal/c/parts/core/android_core/src/egl/fg_internal_egl.h +++ /dev/null @@ -1,68 +0,0 @@ -/* - * freeglut_internal_android.h - * - * The freeglut library private include file. - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef FREEGLUT_INTERNAL_EGL_H -#define FREEGLUT_INTERNAL_EGL_H - -#include - -/* -- GLOBAL TYPE DEFINITIONS ---------------------------------------------- */ -/* The structure used by display initialization in freeglut_init.c */ -typedef struct tagSFG_PlatformDisplay SFG_PlatformDisplay; -struct tagSFG_Window; -struct tagSFG_PlatformDisplay -{ - /* Used to initialize and deinitialize EGL */ - EGLDisplay eglDisplay; - EGLContext eglContext; - EGLConfig eglContextConfig; - EGLint eglContextFormat; - struct tagSFG_Window* single_window; -}; - - -/* - * Make "freeglut" window handle and context types so that we don't need so - * much conditionally-compiled code later in the library. - */ -typedef EGLNativeWindowType SFG_WindowHandleType ; -typedef EGLContext SFG_WindowContextType ; -typedef struct tagSFG_PlatformContext SFG_PlatformContext; -/* SFG_PlatformContext is used for SFG_Window.Window */ -struct tagSFG_PlatformContext -{ - EGLSurface eglSurface; -}; - - -/* Window's state description. This structure should be kept portable. */ -typedef struct tagSFG_PlatformWindowState SFG_PlatformWindowState; -struct tagSFG_PlatformWindowState -{ - int OldWidth; /* Window width from before a resize */ - int OldHeight; /* " height " " " " */ -}; - -#endif diff --git a/internal/c/parts/core/android_core/src/egl/fg_structure_egl.c b/internal/c/parts/core/android_core/src/egl/fg_structure_egl.c deleted file mode 100644 index d91c38785..000000000 --- a/internal/c/parts/core/android_core/src/egl/fg_structure_egl.c +++ /dev/null @@ -1,34 +0,0 @@ -/* - * freeglut_structure_egl.c - * - * Windows and menus need tree structure - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -extern SFG_Structure fgStructure; - -void fgPlatformCreateWindow ( SFG_Window *window ) -{ - window->Window.pContext.eglSurface = EGL_NO_SURFACE; -} diff --git a/internal/c/parts/core/android_core/src/egl/fg_window_egl.c b/internal/c/parts/core/android_core/src/egl/fg_window_egl.c deleted file mode 100644 index 557da1803..000000000 --- a/internal/c/parts/core/android_core/src/egl/fg_window_egl.c +++ /dev/null @@ -1,196 +0,0 @@ -#include -#include -#include -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "native-activity", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "native-activity", __VA_ARGS__)) -//LOGI("tracer********************500"); - -/* - * freeglut_display_android.c - * - * Window management methods for EGL - * - * Copyright (C) 2012 Sylvain Beucler - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/** - * Initialize an EGL context for the current display. - */ -void fghCreateContext( ) { - /* - * Here specify the attributes of the desired configuration. - * Below, we select an EGLConfig with at least 8 bits per color - * component compatible with on-screen windows - */ - /* Ensure OpenGLES 2.0 context */ - printf("DisplayMode: %d (DEPTH %d)\n", fgState.DisplayMode, (fgState.DisplayMode & GLUT_DEPTH)); - -//EGL_OPENGL_ES2_BIT removed -/* - const EGLint attribs[] = { - EGL_SURFACE_TYPE, EGL_WINDOW_BIT, - EGL_RENDERABLE_TYPE, - EGL_BLUE_SIZE, 1, - EGL_GREEN_SIZE, 1, - EGL_RED_SIZE, 1, - EGL_ALPHA_SIZE, (fgState.DisplayMode & GLUT_ALPHA) ? 1 : 0, - EGL_DEPTH_SIZE, (fgState.DisplayMode & GLUT_DEPTH) ? 1 : 0, - EGL_STENCIL_SIZE, (fgState.DisplayMode & GLUT_STENCIL) ? 1 : 0, - EGL_SAMPLE_BUFFERS, (fgState.DisplayMode & GLUT_MULTISAMPLE) ? 1 : 0, - EGL_SAMPLES, (fgState.DisplayMode & GLUT_MULTISAMPLE) ? fgState.SampleNumber : 0, - EGL_NONE - }; -*/ - const EGLint attribs[] = { -/* - EGL_SURFACE_TYPE, - EGL_WINDOW_BIT, - //EGL_RENDERABLE_TYPE, //THIS IS ONLY FOR GLES2 - EGL_BLUE_SIZE, 8, - EGL_GREEN_SIZE, 8, - EGL_RED_SIZE, 8, - EGL_ALPHA_SIZE, 8, - - EGL_NONE -*/ - -EGL_RENDERABLE_TYPE, EGL_OPENGL_ES_BIT, - EGL_BLUE_SIZE, 1, EGL_GREEN_SIZE, 1, EGL_RED_SIZE, 1, - EGL_DEPTH_SIZE, 16, EGL_SURFACE_TYPE, EGL_WINDOW_BIT, - EGL_SURFACE_TYPE, EGL_WINDOW_BIT, EGL_NONE - - - }; - - - - - - - - - EGLint format; - EGLint numConfigs; - EGLConfig config; - EGLContext context; - - EGLDisplay eglDisplay = fgDisplay.pDisplay.eglDisplay; - - /* TODO : apply DisplayMode */ - /* (GLUT_DEPTH already applied in attribs[] above) */ - - /* Here, the application chooses the configuration it desires. In this - * sample, we have a very simplified selection process, where we pick - * the first EGLConfig that matches our criteria */ - eglChooseConfig(eglDisplay, attribs, &config, 1, &numConfigs); - - /* EGL_NATIVE_VISUAL_ID is an attribute of the EGLConfig that is - * guaranteed to be accepted by ANativeWindow_setBuffersGeometry(). - * As soon as we picked a EGLConfig, we can safely reconfigure the - * ANativeWindow buffers to match, using EGL_NATIVE_VISUAL_ID. */ - eglGetConfigAttrib(eglDisplay, config, EGL_NATIVE_VISUAL_ID, &format); - - /* Default, but doesn't hurt */ - eglBindAPI(EGL_OPENGL_ES_API); - - /* Ensure OpenGLES 2.0 context */ - static const EGLint ctx_attribs[] = { - EGL_CONTEXT_CLIENT_VERSION, 2, - EGL_NONE - }; - -// context = eglCreateContext(eglDisplay, config, EGL_NO_CONTEXT, ctx_attribs); - context = eglCreateContext(eglDisplay, config, EGL_NO_CONTEXT, NULL); - - if (context == EGL_NO_CONTEXT) { - fgWarning("Cannot initialize EGL context, err=%x\n", eglGetError()); - fghContextCreationError(); - } - -/* - EGLint ver = -1; - eglQueryContext(fgDisplay.pDisplay.eglDisplay, context, EGL_CONTEXT_CLIENT_VERSION, &ver); - if (ver != 2) - fgError("Wrong GLES major version: %d\n", ver); -*/ - - fgDisplay.pDisplay.eglContext = context; - fgDisplay.pDisplay.eglContextConfig = config; - fgDisplay.pDisplay.eglContextFormat = format; - -} - - -/* - * Really opens a window when handle is available - */ -EGLSurface fghEGLPlatformOpenWindow( EGLNativeWindowType handle ) -{ - -LOGI("tracer********************500"); - - EGLDisplay display = fgDisplay.pDisplay.eglDisplay; - EGLContext context = fgDisplay.pDisplay.eglContext; - EGLConfig config = fgDisplay.pDisplay.eglContextConfig; - -LOGI("tracer********************501"); - - EGLSurface surface = eglCreateWindowSurface(display, config, handle, NULL); - if (surface == EGL_NO_SURFACE){ -LOGI("tracer********************501.1"); - LOGI("Cannot create EGL window surface, err="); -__android_log_print(ANDROID_LOG_DEBUG, "LOG_TAG", "Need to print : %d",eglGetError()); - -LOGI("tracer********************501.2"); - fgError("Cannot create EGL window surface, err=%x\n", eglGetError()); -} - - -LOGI("tracer********************502"); - - - if (eglMakeCurrent(display, surface, surface, context) == EGL_FALSE) - fgError("eglMakeCurrent: err=%x\n", eglGetError()); - - -LOGI("tracer********************503"); - - - - //EGLint w, h; - //eglQuerySurface(display, surface, EGL_WIDTH, &w); - //eglQuerySurface(display, surface, EGL_HEIGHT, &h); - - return surface; -} - -/* - * Closes a window, destroying the frame and OpenGL context - */ -void fgPlatformCloseWindow( SFG_Window* window ) -{ - if (window->Window.pContext.eglSurface != EGL_NO_SURFACE) { - eglDestroySurface(fgDisplay.pDisplay.eglDisplay, window->Window.pContext.eglSurface); - window->Window.pContext.eglSurface = EGL_NO_SURFACE; - } -} diff --git a/internal/c/parts/core/android_core/src/fg_callbacks.c b/internal/c/parts/core/android_core/src/fg_callbacks.c deleted file mode 100644 index 1c53bfb7e..000000000 --- a/internal/c/parts/core/android_core/src/fg_callbacks.c +++ /dev/null @@ -1,412 +0,0 @@ -/* - * freeglut_callbacks.c - * - * The callbacks setting methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Fri Dec 3 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * All of the callbacks setting methods can be generalized to this: - */ -#define SET_CALLBACK(a) \ -do \ -{ \ - if( fgStructure.CurrentWindow == NULL ) \ - return; \ - SET_WCB( ( *( fgStructure.CurrentWindow ) ), a, callback ); \ -} while( 0 ) - -/* - * Sets the Display callback for the current window - */ -void FGAPIENTRY glutDisplayFunc( void (* callback)( void ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDisplayFunc" ); - if( !callback ) - fgError( "Fatal error in program. NULL display callback not " - "permitted in GLUT 3.0+ or freeglut 2.0.1+" ); - SET_CALLBACK( Display ); -} - -/* - * Sets the Reshape callback for the current window - */ -void FGAPIENTRY glutReshapeFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReshapeFunc" ); - SET_CALLBACK( Reshape ); -} - -/* - * Sets the Keyboard callback for the current window - */ -void FGAPIENTRY glutKeyboardFunc( void (* callback) - ( unsigned char, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutKeyboardFunc" ); - SET_CALLBACK( Keyboard ); -} - -/* - * Sets the Special callback for the current window - */ -void FGAPIENTRY glutSpecialFunc( void (* callback)( int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSpecialFunc" ); - SET_CALLBACK( Special ); -} - -/* - * Sets the global idle callback - */ -void FGAPIENTRY glutIdleFunc( void (* callback)( void ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIdleFunc" ); - fgState.IdleCallback = callback; -} - -/* - * Sets the Timer callback for the current window - */ -void FGAPIENTRY glutTimerFunc( unsigned int timeOut, void (* callback)( int ), - int timerID ) -{ - SFG_Timer *timer, *node; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutTimerFunc" ); - - if( (timer = fgState.FreeTimers.Last) ) - { - fgListRemove( &fgState.FreeTimers, &timer->Node ); - } - else - { - if( ! (timer = malloc(sizeof(SFG_Timer))) ) - fgError( "Fatal error: " - "Memory allocation failure in glutTimerFunc()" ); - } - - timer->Callback = callback; - timer->ID = timerID; - timer->TriggerTime = fgElapsedTime() + timeOut; - - for( node = fgState.Timers.First; node; node = node->Node.Next ) - { - if( node->TriggerTime > timer->TriggerTime ) - break; - } - - fgListInsert( &fgState.Timers, &node->Node, &timer->Node ); -} - -/* - * Sets the Visibility callback for the current window. - */ -static void fghVisibility( int status ) -{ - int glut_status = GLUT_VISIBLE; - - FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Visibility Callback" ); - freeglut_return_if_fail( fgStructure.CurrentWindow ); - - if( ( GLUT_HIDDEN == status ) || ( GLUT_FULLY_COVERED == status ) ) - glut_status = GLUT_NOT_VISIBLE; - INVOKE_WCB( *( fgStructure.CurrentWindow ), Visibility, ( glut_status ) ); -} - -void FGAPIENTRY glutVisibilityFunc( void (* callback)( int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutVisibilityFunc" ); - SET_CALLBACK( Visibility ); - - if( callback ) - glutWindowStatusFunc( fghVisibility ); - else - glutWindowStatusFunc( NULL ); -} - -/* - * Sets the keyboard key release callback for the current window - */ -void FGAPIENTRY glutKeyboardUpFunc( void (* callback) - ( unsigned char, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutKeyboardUpFunc" ); - SET_CALLBACK( KeyboardUp ); -} - -/* - * Sets the special key release callback for the current window - */ -void FGAPIENTRY glutSpecialUpFunc( void (* callback)( int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSpecialUpFunc" ); - SET_CALLBACK( SpecialUp ); -} - -/* - * Sets the joystick callback and polling rate for the current window - */ -void FGAPIENTRY glutJoystickFunc( void (* callback) - ( unsigned int, int, int, int ), - int pollInterval ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickFunc" ); - fgInitialiseJoysticks (); - - if ( ( ( fgStructure.CurrentWindow->State.JoystickPollRate < 0 ) || - !FETCH_WCB(*fgStructure.CurrentWindow,Joystick) ) && /* Joystick callback was disabled */ - ( callback && ( pollInterval >= 0 ) ) ) /* but is now enabled */ - ++fgState.NumActiveJoysticks; - else if ( ( ( fgStructure.CurrentWindow->State.JoystickPollRate >= 0 ) && - FETCH_WCB(*fgStructure.CurrentWindow,Joystick) ) && /* Joystick callback was enabled */ - ( !callback || ( pollInterval < 0 ) ) ) /* but is now disabled */ - --fgState.NumActiveJoysticks; - - SET_CALLBACK( Joystick ); - fgStructure.CurrentWindow->State.JoystickPollRate = pollInterval; - - fgStructure.CurrentWindow->State.JoystickLastPoll = - fgElapsedTime() - fgStructure.CurrentWindow->State.JoystickPollRate; - - if( fgStructure.CurrentWindow->State.JoystickLastPoll < 0 ) - fgStructure.CurrentWindow->State.JoystickLastPoll = 0; -} - -/* - * Sets the mouse callback for the current window - */ -void FGAPIENTRY glutMouseFunc( void (* callback)( int, int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMouseFunc" ); - SET_CALLBACK( Mouse ); -} - -/* - * Sets the mouse wheel callback for the current window - */ -void FGAPIENTRY glutMouseWheelFunc( void (* callback)( int, int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMouseWheelFunc" ); - SET_CALLBACK( MouseWheel ); -} - -/* - * Sets the mouse motion callback for the current window (one or more buttons - * are pressed) - */ -void FGAPIENTRY glutMotionFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMotionFunc" ); - SET_CALLBACK( Motion ); -} - -/* - * Sets the passive mouse motion callback for the current window (no mouse - * buttons are pressed) - */ -void FGAPIENTRY glutPassiveMotionFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPassiveMotionFunc" ); - SET_CALLBACK( Passive ); -} - -/* - * Window mouse entry/leave callback - */ -void FGAPIENTRY glutEntryFunc( void (* callback)( int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutEntryFunc" ); - SET_CALLBACK( Entry ); -} - -/* - * Window destruction callbacks - */ -void FGAPIENTRY glutCloseFunc( void (* callback)( void ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCloseFunc" ); - SET_CALLBACK( Destroy ); -} - -void FGAPIENTRY glutWMCloseFunc( void (* callback)( void ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutWMCloseFunc" ); - glutCloseFunc( callback ); -} - -/* A. Donev: Destruction callback for menus */ -void FGAPIENTRY glutMenuDestroyFunc( void (* callback)( void ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMenuDestroyFunc" ); - if( fgStructure.CurrentMenu ) - fgStructure.CurrentMenu->Destroy = callback; -} - -/* - * Deprecated version of glutMenuStatusFunc callback setting method - */ -void FGAPIENTRY glutMenuStateFunc( void (* callback)( int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMenuStateFunc" ); - fgState.MenuStateCallback = callback; -} - -/* - * Sets the global menu status callback for the current window - */ -void FGAPIENTRY glutMenuStatusFunc( void (* callback)( int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMenuStatusFunc" ); - fgState.MenuStatusCallback = callback; -} - -/* - * Sets the overlay display callback for the current window - */ -void FGAPIENTRY glutOverlayDisplayFunc( void (* callback)( void ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutOverlayDisplayFunc" ); - SET_CALLBACK( OverlayDisplay ); -} - -/* - * Sets the window status callback for the current window - */ -void FGAPIENTRY glutWindowStatusFunc( void (* callback)( int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutWindowStatusFunc" ); - SET_CALLBACK( WindowStatus ); -} - -/* - * Sets the spaceball motion callback for the current window - */ -void FGAPIENTRY glutSpaceballMotionFunc( void (* callback)( int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSpaceballMotionFunc" ); - fgInitialiseSpaceball(); - - SET_CALLBACK( SpaceMotion ); -} - -/* - * Sets the spaceball rotate callback for the current window - */ -void FGAPIENTRY glutSpaceballRotateFunc( void (* callback)( int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSpaceballRotateFunc" ); - fgInitialiseSpaceball(); - - SET_CALLBACK( SpaceRotation ); -} - -/* - * Sets the spaceball button callback for the current window - */ -void FGAPIENTRY glutSpaceballButtonFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSpaceballButtonFunc" ); - fgInitialiseSpaceball(); - - SET_CALLBACK( SpaceButton ); -} - -/* - * Sets the button box callback for the current window - */ -void FGAPIENTRY glutButtonBoxFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutButtonBoxFunc" ); - SET_CALLBACK( ButtonBox ); -} - -/* - * Sets the dials box callback for the current window - */ -void FGAPIENTRY glutDialsFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDialsFunc" ); - SET_CALLBACK( Dials ); -} - -/* - * Sets the tablet motion callback for the current window - */ -void FGAPIENTRY glutTabletMotionFunc( void (* callback)( int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutTabletMotionFunc" ); - SET_CALLBACK( TabletMotion ); -} - -/* - * Sets the tablet buttons callback for the current window - */ -void FGAPIENTRY glutTabletButtonFunc( void (* callback)( int, int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutTabletButtonFunc" ); - SET_CALLBACK( TabletButton ); -} - -/* - * Sets the multi-pointer entry callback for the current window - */ -void FGAPIENTRY glutMultiEntryFunc( void (* callback)(int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMultiEntryFunc" ); - SET_CALLBACK( MultiEntry ); -} - -/* - * Sets the multi-pointer button callback for the current window - */ -void FGAPIENTRY glutMultiButtonFunc( void (* callback)(int, int, int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMultiButtonFunc" ); - SET_CALLBACK( MultiButton ); -} - -/* - * Sets the multi-pointer motion callback for the current window - */ -void FGAPIENTRY glutMultiMotionFunc( void (* callback)(int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMultiMotionFunc" ); - SET_CALLBACK( MultiMotion ); -} - -/* - * Sets the multi-pointer passive motion callback for the current window - */ -void FGAPIENTRY glutMultiPassiveFunc( void (* callback)(int, int, int ) ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMultiPassiveFunc" ); - SET_CALLBACK( MultiPassive ); -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_cursor.c b/internal/c/parts/core/android_core/src/fg_cursor.c deleted file mode 100644 index 97ed24f8f..000000000 --- a/internal/c/parts/core/android_core/src/fg_cursor.c +++ /dev/null @@ -1,79 +0,0 @@ -/* - * freeglut_cursor.c - * - * The mouse cursor related stuff. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * glutSetCursor() -- Win32 mappings are incomplete. - * - * It would be good to use custom mouse cursor shapes, and introduce - * an option to display them using glBitmap() and/or texture mapping, - * apart from the windowing system version. - */ - -/* -- PRIVATE FUNCTIONS --------------------------------------------------- */ - -extern void fgPlatformSetCursor ( SFG_Window *window, int cursorID ); -extern void fgPlatformWarpPointer ( int x, int y ); - - - -/* -- INTERNAL FUNCTIONS ---------------------------------------------------- */ -void fgSetCursor ( SFG_Window *window, int cursorID ) -{ - fgPlatformSetCursor ( window, cursorID ); -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Set the cursor image to be used for the current window - */ -void FGAPIENTRY glutSetCursor( int cursorID ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetCursor" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetCursor" ); - - fgPlatformSetCursor ( fgStructure.CurrentWindow, cursorID ); - fgStructure.CurrentWindow->State.Cursor = cursorID; -} - -/* - * Moves the mouse pointer to given window coordinates - */ -void FGAPIENTRY glutWarpPointer( int x, int y ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutWarpPointer" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutWarpPointer" ); - - fgPlatformWarpPointer ( x, y ); -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_display.c b/internal/c/parts/core/android_core/src/fg_display.c deleted file mode 100644 index 8fc1abbbf..000000000 --- a/internal/c/parts/core/android_core/src/fg_display.c +++ /dev/null @@ -1,104 +0,0 @@ -/* - * freeglut_display.c - * - * Display message posting, context buffer swapping. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Fri Dec 3 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - - -/* Function prototypes */ -extern void fgPlatformGlutSwapBuffers( SFG_PlatformDisplay *pDisplayPtr, SFG_Window* CurrentWindow ); - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Marks the current window to have the redisplay performed when possible... - */ -void FGAPIENTRY glutPostRedisplay( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPostRedisplay" ); - if ( ! fgStructure.CurrentWindow ) - { - fgError ( " ERROR: Function <%s> called" - " with no current window defined.", "glutPostRedisplay" ) ; - } - - fgStructure.CurrentWindow->State.Redisplay = GL_TRUE; -} - -/* - * Swaps the buffers for the current window (if any) - */ -void FGAPIENTRY glutSwapBuffers( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSwapBuffers" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSwapBuffers" ); - - /* - * "glXSwapBuffers" already performs an implicit call to "glFlush". What - * about "SwapBuffers"? - */ - glFlush( ); - if( ! fgStructure.CurrentWindow->Window.DoubleBuffered ) - return; - - fgPlatformGlutSwapBuffers( &fgDisplay.pDisplay, fgStructure.CurrentWindow ); - - /* GLUT_FPS env var support */ - if( fgState.FPSInterval ) - { - GLint t = glutGet( GLUT_ELAPSED_TIME ); - fgState.SwapCount++; - if( fgState.SwapTime == 0 ) - fgState.SwapTime = t; - else if( t - fgState.SwapTime > fgState.FPSInterval ) - { - float time = 0.001f * ( t - fgState.SwapTime ); - float fps = ( float )fgState.SwapCount / time; - fprintf( stderr, - "freeglut: %d frames in %.2f seconds = %.2f FPS\n", - fgState.SwapCount, time, fps ); - fgState.SwapTime = t; - fgState.SwapCount = 0; - } - } -} - -/* - * Mark appropriate window to be displayed - */ -void FGAPIENTRY glutPostWindowRedisplay( int windowID ) -{ - SFG_Window* window; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPostWindowRedisplay" ); - window = fgWindowByID( windowID ); - freeglut_return_if_fail( window ); - window->State.Redisplay = GL_TRUE; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_ext.c b/internal/c/parts/core/android_core/src/fg_ext.c deleted file mode 100644 index 58166813b..000000000 --- a/internal/c/parts/core/android_core/src/fg_ext.c +++ /dev/null @@ -1,221 +0,0 @@ -/* - * freeglut_ext.c - * - * Functions related to OpenGL extensions. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 9 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define GLX_GLXEXT_PROTOTYPES -#include -#include "fg_internal.h" - -extern SFG_Proc fgPlatformGetProcAddress( const char *procName ); -extern GLUTproc fgPlatformGetGLUTProcAddress( const char *procName ); - -static GLUTproc fghGetGLUTProcAddress( const char* procName ) -{ - /* optimization: quick initial check */ - if( strncmp( procName, "glut", 4 ) != 0 ) - return NULL; - -#define CHECK_NAME(x) if( strcmp( procName, #x ) == 0) return (GLUTproc)x; - CHECK_NAME(glutInit); - CHECK_NAME(glutInitDisplayMode); - CHECK_NAME(glutInitDisplayString); - CHECK_NAME(glutInitWindowPosition); - CHECK_NAME(glutInitWindowSize); - CHECK_NAME(glutMainLoop); - CHECK_NAME(glutExit); - CHECK_NAME(glutCreateWindow); - CHECK_NAME(glutCreateSubWindow); - CHECK_NAME(glutDestroyWindow); - CHECK_NAME(glutPostRedisplay); - CHECK_NAME(glutPostWindowRedisplay); - CHECK_NAME(glutSwapBuffers); - CHECK_NAME(glutGetWindow); - CHECK_NAME(glutSetWindow); - CHECK_NAME(glutSetWindowTitle); - CHECK_NAME(glutSetIconTitle); - CHECK_NAME(glutPositionWindow); - CHECK_NAME(glutReshapeWindow); - CHECK_NAME(glutPopWindow); - CHECK_NAME(glutPushWindow); - CHECK_NAME(glutIconifyWindow); - CHECK_NAME(glutShowWindow); - CHECK_NAME(glutHideWindow); - CHECK_NAME(glutFullScreen); - CHECK_NAME(glutSetCursor); - CHECK_NAME(glutWarpPointer); - CHECK_NAME(glutEstablishOverlay); - CHECK_NAME(glutRemoveOverlay); - CHECK_NAME(glutUseLayer); - CHECK_NAME(glutPostOverlayRedisplay); - CHECK_NAME(glutPostWindowOverlayRedisplay); - CHECK_NAME(glutShowOverlay); - CHECK_NAME(glutHideOverlay); - CHECK_NAME(glutCreateMenu); - CHECK_NAME(glutDestroyMenu); - CHECK_NAME(glutGetMenu); - CHECK_NAME(glutSetMenu); - CHECK_NAME(glutAddMenuEntry); - CHECK_NAME(glutAddSubMenu); - CHECK_NAME(glutChangeToMenuEntry); - CHECK_NAME(glutChangeToSubMenu); - CHECK_NAME(glutRemoveMenuItem); - CHECK_NAME(glutAttachMenu); - CHECK_NAME(glutDetachMenu); - CHECK_NAME(glutDisplayFunc); - CHECK_NAME(glutReshapeFunc); - CHECK_NAME(glutKeyboardFunc); - CHECK_NAME(glutMouseFunc); - CHECK_NAME(glutMultiEntryFunc); - CHECK_NAME(glutMultiMotionFunc); - CHECK_NAME(glutMultiButtonFunc); - CHECK_NAME(glutMultiPassiveFunc); - CHECK_NAME(glutMotionFunc); - CHECK_NAME(glutPassiveMotionFunc); - CHECK_NAME(glutEntryFunc); - CHECK_NAME(glutVisibilityFunc); - CHECK_NAME(glutIdleFunc); - CHECK_NAME(glutTimerFunc); - CHECK_NAME(glutMenuStateFunc); - CHECK_NAME(glutSpecialFunc); - CHECK_NAME(glutSpaceballMotionFunc); - CHECK_NAME(glutSpaceballRotateFunc); - CHECK_NAME(glutSpaceballButtonFunc); - CHECK_NAME(glutButtonBoxFunc); - CHECK_NAME(glutDialsFunc); - CHECK_NAME(glutTabletMotionFunc); - CHECK_NAME(glutTabletButtonFunc); - CHECK_NAME(glutMenuStatusFunc); - CHECK_NAME(glutOverlayDisplayFunc); - CHECK_NAME(glutWindowStatusFunc); - CHECK_NAME(glutKeyboardUpFunc); - CHECK_NAME(glutSpecialUpFunc); - CHECK_NAME(glutSetColor); - CHECK_NAME(glutGetColor); - CHECK_NAME(glutCopyColormap); - CHECK_NAME(glutGet); - CHECK_NAME(glutDeviceGet); - CHECK_NAME(glutExtensionSupported); - CHECK_NAME(glutGetModifiers); - CHECK_NAME(glutLayerGet); - CHECK_NAME(glutBitmapCharacter); - CHECK_NAME(glutBitmapWidth); - CHECK_NAME(glutStrokeCharacter); - CHECK_NAME(glutStrokeWidth); - CHECK_NAME(glutBitmapLength); - CHECK_NAME(glutStrokeLength); - CHECK_NAME(glutWireSphere); - CHECK_NAME(glutSolidSphere); - CHECK_NAME(glutWireCone); - CHECK_NAME(glutSolidCone); - CHECK_NAME(glutWireCube); - CHECK_NAME(glutSolidCube); - CHECK_NAME(glutWireTorus); - CHECK_NAME(glutSolidTorus); - CHECK_NAME(glutWireDodecahedron); - CHECK_NAME(glutSolidDodecahedron); - CHECK_NAME(glutWireTeapot); - CHECK_NAME(glutSolidTeapot); - CHECK_NAME(glutWireOctahedron); - CHECK_NAME(glutSolidOctahedron); - CHECK_NAME(glutWireTetrahedron); - CHECK_NAME(glutSolidTetrahedron); - CHECK_NAME(glutWireIcosahedron); - CHECK_NAME(glutSolidIcosahedron); - CHECK_NAME(glutVideoResizeGet); - CHECK_NAME(glutSetupVideoResizing); - CHECK_NAME(glutStopVideoResizing); - CHECK_NAME(glutVideoResize); - CHECK_NAME(glutVideoPan); - CHECK_NAME(glutReportErrors); - CHECK_NAME(glutIgnoreKeyRepeat); - CHECK_NAME(glutSetKeyRepeat); - - /* freeglut extensions */ - CHECK_NAME(glutMainLoopEvent); - CHECK_NAME(glutLeaveMainLoop); - CHECK_NAME(glutCloseFunc); - CHECK_NAME(glutWMCloseFunc); - CHECK_NAME(glutMenuDestroyFunc); - CHECK_NAME(glutFullScreenToggle); - CHECK_NAME(glutLeaveFullScreen); - CHECK_NAME(glutSetOption); - CHECK_NAME(glutGetModeValues); - CHECK_NAME(glutSetWindowData); - CHECK_NAME(glutGetWindowData); - CHECK_NAME(glutSetMenuData); - CHECK_NAME(glutGetMenuData); - CHECK_NAME(glutBitmapHeight); - CHECK_NAME(glutStrokeHeight); - CHECK_NAME(glutBitmapString); - CHECK_NAME(glutStrokeString); - CHECK_NAME(glutWireRhombicDodecahedron); - CHECK_NAME(glutSolidRhombicDodecahedron); - CHECK_NAME(glutWireSierpinskiSponge); - CHECK_NAME(glutSolidSierpinskiSponge); - CHECK_NAME(glutWireCylinder); - CHECK_NAME(glutSolidCylinder); - CHECK_NAME(glutGetProcAddress); - CHECK_NAME(glutMouseWheelFunc); - CHECK_NAME(glutJoystickGetNumAxes); - CHECK_NAME(glutJoystickGetNumButtons); - CHECK_NAME(glutJoystickNotWorking); - CHECK_NAME(glutJoystickGetDeadBand); - CHECK_NAME(glutJoystickSetDeadBand); - CHECK_NAME(glutJoystickGetSaturation); - CHECK_NAME(glutJoystickSetSaturation); - CHECK_NAME(glutJoystickSetMinRange); - CHECK_NAME(glutJoystickSetMaxRange); - CHECK_NAME(glutJoystickSetCenter); - CHECK_NAME(glutJoystickGetMinRange); - CHECK_NAME(glutJoystickGetMaxRange); - CHECK_NAME(glutJoystickGetCenter); - CHECK_NAME(glutInitContextVersion); - CHECK_NAME(glutInitContextFlags); - CHECK_NAME(glutInitContextProfile); - CHECK_NAME(glutInitErrorFunc); - CHECK_NAME(glutInitWarningFunc); -#undef CHECK_NAME - - return NULL; -} - - - -GLUTproc FGAPIENTRY -glutGetProcAddress( const char *procName ) -{ - GLUTproc p; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetProcAddress" ); - - /* Try GLUT functions first, then core GL functions */ - p = fghGetGLUTProcAddress( procName ); - - /* Some GLUT functions are platform-specific: */ - if ( !p ) - p = fgPlatformGetGLUTProcAddress( procName ); - - return ( p != NULL ) ? p : fgPlatformGetProcAddress( procName ); -} diff --git a/internal/c/parts/core/android_core/src/fg_font.c b/internal/c/parts/core/android_core/src/fg_font.c deleted file mode 100644 index 03a95f721..000000000 --- a/internal/c/parts/core/android_core/src/fg_font.c +++ /dev/null @@ -1,384 +0,0 @@ -/* - * freeglut_font.c - * - * Bitmap and stroke fonts displaying. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * Test things out ... - */ - -/* -- IMPORT DECLARATIONS -------------------------------------------------- */ - -/* - * These are the font faces defined in freeglut_font_data.c file: - */ -extern SFG_Font fgFontFixed8x13; -extern SFG_Font fgFontFixed9x15; -extern SFG_Font fgFontHelvetica10; -extern SFG_Font fgFontHelvetica12; -extern SFG_Font fgFontHelvetica18; -extern SFG_Font fgFontTimesRoman10; -extern SFG_Font fgFontTimesRoman24; -extern SFG_StrokeFont fgStrokeRoman; -extern SFG_StrokeFont fgStrokeMonoRoman; - - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - -/* - * Matches a font ID with a SFG_Font structure pointer. - * This was changed to match the GLUT header style. - */ -static SFG_Font* fghFontByID( void* font ) -{ - if( font == GLUT_BITMAP_8_BY_13 ) - return &fgFontFixed8x13; - if( font == GLUT_BITMAP_9_BY_15 ) - return &fgFontFixed9x15; - if( font == GLUT_BITMAP_HELVETICA_10 ) - return &fgFontHelvetica10; - if( font == GLUT_BITMAP_HELVETICA_12 ) - return &fgFontHelvetica12; - if( font == GLUT_BITMAP_HELVETICA_18 ) - return &fgFontHelvetica18; - if( font == GLUT_BITMAP_TIMES_ROMAN_10 ) - return &fgFontTimesRoman10; - if( font == GLUT_BITMAP_TIMES_ROMAN_24 ) - return &fgFontTimesRoman24; - - fgWarning( "font 0x%08x not found", font ); - return 0; -} - -/* - * Matches a font ID with a SFG_StrokeFont structure pointer. - * This was changed to match the GLUT header style. - */ -static SFG_StrokeFont* fghStrokeByID( void* font ) -{ - if( font == GLUT_STROKE_ROMAN ) - return &fgStrokeRoman; - if( font == GLUT_STROKE_MONO_ROMAN ) - return &fgStrokeMonoRoman; - - fgWarning( "stroke font 0x%08x not found", font ); - return 0; -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Draw a bitmap character - */ -void FGAPIENTRY glutBitmapCharacter( void* fontID, int character ) -{ - const GLubyte* face; - SFG_Font* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapCharacter" ); - font = fghFontByID( fontID ); - freeglut_return_if_fail( ( character >= 1 )&&( character < 256 ) ); - freeglut_return_if_fail( font ); - - /* - * Find the character we want to draw (???) - */ - face = font->Characters[ character ]; - - glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT ); - glPixelStorei( GL_UNPACK_SWAP_BYTES, GL_FALSE ); - glPixelStorei( GL_UNPACK_LSB_FIRST, GL_FALSE ); - glPixelStorei( GL_UNPACK_ROW_LENGTH, 0 ); - glPixelStorei( GL_UNPACK_SKIP_ROWS, 0 ); - glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0 ); - glPixelStorei( GL_UNPACK_ALIGNMENT, 1 ); - glBitmap( - face[ 0 ], font->Height, /* The bitmap's width and height */ - font->xorig, font->yorig, /* The origin in the font glyph */ - ( float )( face[ 0 ] ), 0.0, /* The raster advance -- inc. x,y */ - ( face + 1 ) /* The packed bitmap data... */ - ); - glPopClientAttrib( ); -} - -void FGAPIENTRY glutBitmapString( void* fontID, const unsigned char *string ) -{ - unsigned char c; - float x = 0.0f ; - SFG_Font* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapString" ); - font = fghFontByID( fontID ); - freeglut_return_if_fail( font ); - if ( !string || ! *string ) - return; - - glPushClientAttrib( GL_CLIENT_PIXEL_STORE_BIT ); - glPixelStorei( GL_UNPACK_SWAP_BYTES, GL_FALSE ); - glPixelStorei( GL_UNPACK_LSB_FIRST, GL_FALSE ); - glPixelStorei( GL_UNPACK_ROW_LENGTH, 0 ); - glPixelStorei( GL_UNPACK_SKIP_ROWS, 0 ); - glPixelStorei( GL_UNPACK_SKIP_PIXELS, 0 ); - glPixelStorei( GL_UNPACK_ALIGNMENT, 1 ); - - /* - * Step through the string, drawing each character. - * A newline will simply translate the next character's insertion - * point back to the start of the line and down one line. - */ - while( ( c = *string++) ) - if( c == '\n' ) - { - glBitmap ( 0, 0, 0, 0, -x, (float) -font->Height, NULL ); - x = 0.0f; - } - else /* Not an EOL, draw the bitmap character */ - { - const GLubyte* face = font->Characters[ c ]; - - glBitmap( - face[ 0 ], font->Height, /* Bitmap's width and height */ - font->xorig, font->yorig, /* The origin in the font glyph */ - ( float )( face[ 0 ] ), 0.0, /* The raster advance; inc. x,y */ - ( face + 1 ) /* The packed bitmap data... */ - ); - - x += ( float )( face[ 0 ] ); - } - - glPopClientAttrib( ); -} - -/* - * Returns the width in pixels of a font's character - */ -int FGAPIENTRY glutBitmapWidth( void* fontID, int character ) -{ - SFG_Font* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapWidth" ); - font = fghFontByID( fontID ); - freeglut_return_val_if_fail( character > 0 && character < 256, 0 ); - freeglut_return_val_if_fail( font, 0 ); - return *( font->Characters[ character ] ); -} - -/* - * Return the width of a string drawn using a bitmap font - */ -int FGAPIENTRY glutBitmapLength( void* fontID, const unsigned char* string ) -{ - unsigned char c; - int length = 0, this_line_length = 0; - SFG_Font* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapLength" ); - font = fghFontByID( fontID ); - freeglut_return_val_if_fail( font, 0 ); - if ( !string || ! *string ) - return 0; - - while( ( c = *string++) ) - { - if( c != '\n' )/* Not an EOL, increment length of line */ - this_line_length += *( font->Characters[ c ]); - else /* EOL; reset the length of this line */ - { - if( length < this_line_length ) - length = this_line_length; - this_line_length = 0; - } - } - if ( length < this_line_length ) - length = this_line_length; - - return length; -} - -/* - * Returns the height of a bitmap font - */ -int FGAPIENTRY glutBitmapHeight( void* fontID ) -{ - SFG_Font* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutBitmapHeight" ); - font = fghFontByID( fontID ); - freeglut_return_val_if_fail( font, 0 ); - return font->Height; -} - -/* - * Draw a stroke character - */ -void FGAPIENTRY glutStrokeCharacter( void* fontID, int character ) -{ - const SFG_StrokeChar *schar; - const SFG_StrokeStrip *strip; - int i, j; - SFG_StrokeFont* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeCharacter" ); - font = fghStrokeByID( fontID ); - freeglut_return_if_fail( character >= 0 ); - freeglut_return_if_fail( character < font->Quantity ); - freeglut_return_if_fail( font ); - - schar = font->Characters[ character ]; - freeglut_return_if_fail( schar ); - strip = schar->Strips; - - for( i = 0; i < schar->Number; i++, strip++ ) - { - glBegin( GL_LINE_STRIP ); - for( j = 0; j < strip->Number; j++ ) - glVertex2f( strip->Vertices[ j ].X, strip->Vertices[ j ].Y ); - glEnd( ); - glBegin( GL_POINTS ); - for( j = 0; j < strip->Number; j++ ) - glVertex2f( strip->Vertices[ j ].X, strip->Vertices[ j ].Y ); - glEnd( ); - } - glTranslatef( schar->Right, 0.0, 0.0 ); -} - -void FGAPIENTRY glutStrokeString( void* fontID, const unsigned char *string ) -{ - unsigned char c; - int i, j; - float length = 0.0; - SFG_StrokeFont* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeString" ); - font = fghStrokeByID( fontID ); - freeglut_return_if_fail( font ); - if ( !string || ! *string ) - return; - - /* - * Step through the string, drawing each character. - * A newline will simply translate the next character's insertion - * point back to the start of the line and down one line. - */ - while( ( c = *string++) ) - if( c < font->Quantity ) - { - if( c == '\n' ) - { - glTranslatef ( -length, -( float )( font->Height ), 0.0 ); - length = 0.0; - } - else /* Not an EOL, draw the bitmap character */ - { - const SFG_StrokeChar *schar = font->Characters[ c ]; - if( schar ) - { - const SFG_StrokeStrip *strip = schar->Strips; - - for( i = 0; i < schar->Number; i++, strip++ ) - { - glBegin( GL_LINE_STRIP ); - for( j = 0; j < strip->Number; j++ ) - glVertex2f( strip->Vertices[ j ].X, - strip->Vertices[ j ].Y); - - glEnd( ); - } - - length += schar->Right; - glTranslatef( schar->Right, 0.0, 0.0 ); - } - } - } -} - -/* - * Return the width in pixels of a stroke character - */ -int FGAPIENTRY glutStrokeWidth( void* fontID, int character ) -{ - const SFG_StrokeChar *schar; - SFG_StrokeFont* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeWidth" ); - font = fghStrokeByID( fontID ); - freeglut_return_val_if_fail( ( character >= 0 ) && - ( character < font->Quantity ), - 0 - ); - freeglut_return_val_if_fail( font, 0 ); - schar = font->Characters[ character ]; - freeglut_return_val_if_fail( schar, 0 ); - - return ( int )( schar->Right + 0.5 ); -} - -/* - * Return the width of a string drawn using a stroke font - */ -int FGAPIENTRY glutStrokeLength( void* fontID, const unsigned char* string ) -{ - unsigned char c; - float length = 0.0; - float this_line_length = 0.0; - SFG_StrokeFont* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeLength" ); - font = fghStrokeByID( fontID ); - freeglut_return_val_if_fail( font, 0 ); - if ( !string || ! *string ) - return 0; - - while( ( c = *string++) ) - if( c < font->Quantity ) - { - if( c == '\n' ) /* EOL; reset the length of this line */ - { - if( length < this_line_length ) - length = this_line_length; - this_line_length = 0.0; - } - else /* Not an EOL, increment the length of this line */ - { - const SFG_StrokeChar *schar = font->Characters[ c ]; - if( schar ) - this_line_length += schar->Right; - } - } - if( length < this_line_length ) - length = this_line_length; - return( int )( length + 0.5 ); -} - -/* - * Returns the height of a stroke font - */ -GLfloat FGAPIENTRY glutStrokeHeight( void* fontID ) -{ - SFG_StrokeFont* font; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutStrokeHeight" ); - font = fghStrokeByID( fontID ); - freeglut_return_val_if_fail( font, 0.0 ); - return font->Height; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_font_data.c b/internal/c/parts/core/android_core/src/fg_font_data.c deleted file mode 100644 index fa26d54f3..000000000 --- a/internal/c/parts/core/android_core/src/fg_font_data.c +++ /dev/null @@ -1,2020 +0,0 @@ -/* - \file og_font_data.c - \brief Bitmapped font data for OpenGLUT fonts. -*/ - -/* - * This file has been automatically generated by the - * genfonts utility. - * - * The legal status of this file is a bit vague. The font glyphs - * themselves come from XFree86 v4.3.0 (as of this writing), and as - * part of the X server may be subject to the XFree86 copyrights. - * The original freeglut fonts were extracted by a utility written - * by Pawel W. Olszta (see below) and the generated fonts contained - * his copyright exclusively. Steve Baker asserts that Pawel - * assigned intellectual property rights to Steve Baker. Steve - * Baker also asserts that fonts cannot be copyrighted. He has - * neither stripped the copyright from the freeglut fonts nor - * formally retitled anything in his name. Since that time, the - * OpenGLUT project has branched from freeglut, and has made - * necessary modifications to Pawel's ``genfonts'' utility. - * To that extent, OpenGLUT may have some title to this file. - * What is fairly clear is that the font data is licensed under - * the XFree86 license (which is variously termed ``XFree'' and - * ``MIT'' by the freeglut project). It is believed that all - * title holders wish this file to be as useful as possible, and - * that either the ``XFree'' or ``MIT'' license works. - * - * Portions copyright (c) 2004, the OpenGLUT project contributors. - * OpenGLUT branched from freeglut in February, 2004. - * - * Copyright (c) 1999-2000 by Pawel W. Olszta - * Written by Pawel W. Olszta, - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Sotware. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * The following bitmapped fonts are defined in this file: - * - * 1. fgFontFixed8x13 - * -misc-fixed-medium-r-normal--13-120-75-75-C-80-iso8859-1 - * 2. fgFontFixed9x15 - * -misc-fixed-medium-r-normal--15-140-75-75-C-90-iso8859-1 - * 3. fgFontHelvetica10 - * -adobe-helvetica-medium-r-normal--10-100-75-75-p-56-iso8859-1 - * 4. fgFontHelvetica12 - * -adobe-helvetica-medium-r-normal--12-120-75-75-p-67-iso8859-1 - * 5. fgFontHelvetica18 - * -adobe-helvetica-medium-r-normal--18-180-75-75-p-98-iso8859-1 - * 6. fgFontTimesRoman10 - * -adobe-times-medium-r-normal--10-100-75-75-p-54-iso8859-1 - * 7. fgFontTimesRoman24 - * -adobe-times-medium-r-normal--24-240-75-75-p-124-iso8859-1 - */ - -static const GLubyte Fixed8x13_Character_000[] = { 8, 0, 0, 0,170, 0,130, 0,130, 0,130, 0,170, 0, 0}; -static const GLubyte Fixed8x13_Character_001[] = { 8, 0, 0, 0, 0, 16, 56,124,254,124, 56, 16, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_002[] = { 8, 0,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170}; -static const GLubyte Fixed8x13_Character_003[] = { 8, 0, 0, 0, 4, 4, 4, 4,174,160,224,160,160, 0, 0}; -static const GLubyte Fixed8x13_Character_004[] = { 8, 0, 0, 0, 8, 8, 12, 8,142,128,192,128,224, 0, 0}; -static const GLubyte Fixed8x13_Character_005[] = { 8, 0, 0, 0, 10, 10, 12, 10,108,128,128,128, 96, 0, 0}; -static const GLubyte Fixed8x13_Character_006[] = { 8, 0, 0, 0, 8, 8, 12, 8,238,128,128,128,128, 0, 0}; -static const GLubyte Fixed8x13_Character_007[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 24, 36, 36, 24, 0, 0}; -static const GLubyte Fixed8x13_Character_008[] = { 8, 0, 0, 0, 0,124, 0, 16, 16,124, 16, 16, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_009[] = { 8, 0, 0, 0, 14, 8, 8, 8,168,160,160,160,192, 0, 0}; -static const GLubyte Fixed8x13_Character_010[] = { 8, 0, 0, 0, 4, 4, 4, 4, 46, 80, 80,136,136, 0, 0}; -static const GLubyte Fixed8x13_Character_011[] = { 8, 0, 0, 0, 0, 0, 0, 0,240, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_012[] = { 8, 0, 16, 16, 16, 16, 16, 16,240, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_013[] = { 8, 0, 16, 16, 16, 16, 16, 16, 31, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_014[] = { 8, 0, 0, 0, 0, 0, 0, 0, 31, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_015[] = { 8, 0, 16, 16, 16, 16, 16, 16,255, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_016[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255}; -static const GLubyte Fixed8x13_Character_017[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_018[] = { 8, 0, 0, 0, 0, 0, 0, 0,255, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_019[] = { 8, 0, 0, 0, 0,255, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_020[] = { 8, 0,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_021[] = { 8, 0, 16, 16, 16, 16, 16, 16, 31, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_022[] = { 8, 0, 16, 16, 16, 16, 16, 16,240, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_023[] = { 8, 0, 0, 0, 0, 0, 0, 0,255, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_024[] = { 8, 0, 16, 16, 16, 16, 16, 16,255, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_025[] = { 8, 0, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16}; -static const GLubyte Fixed8x13_Character_026[] = { 8, 0, 0, 0,254, 0, 14, 48,192, 48, 14, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_027[] = { 8, 0, 0, 0,254, 0,224, 24, 6, 24,224, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_028[] = { 8, 0, 0, 0, 68, 68, 68, 68, 68,254, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_029[] = { 8, 0, 0, 0, 32, 32,126, 16, 8,126, 4, 4, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_030[] = { 8, 0, 0, 0,220, 98, 32, 32, 32,112, 32, 34, 28, 0, 0}; -static const GLubyte Fixed8x13_Character_031[] = { 8, 0, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_032[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_033[] = { 8, 0, 0, 0, 16, 0, 16, 16, 16, 16, 16, 16, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_034[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 36, 36, 36, 0, 0}; -static const GLubyte Fixed8x13_Character_035[] = { 8, 0, 0, 0, 0, 36, 36,126, 36,126, 36, 36, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_036[] = { 8, 0, 0, 0, 16,120, 20, 20, 56, 80, 80, 60, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_037[] = { 8, 0, 0, 0, 68, 42, 36, 16, 8, 8, 36, 82, 34, 0, 0}; -static const GLubyte Fixed8x13_Character_038[] = { 8, 0, 0, 0, 58, 68, 74, 48, 72, 72, 48, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_039[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, 48, 56, 0, 0}; -static const GLubyte Fixed8x13_Character_040[] = { 8, 0, 0, 0, 4, 8, 8, 16, 16, 16, 8, 8, 4, 0, 0}; -static const GLubyte Fixed8x13_Character_041[] = { 8, 0, 0, 0, 32, 16, 16, 8, 8, 8, 16, 16, 32, 0, 0}; -static const GLubyte Fixed8x13_Character_042[] = { 8, 0, 0, 0, 0, 0, 36, 24,126, 24, 36, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_043[] = { 8, 0, 0, 0, 0, 0, 16, 16,124, 16, 16, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_044[] = { 8, 0, 0, 64, 48, 56, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_045[] = { 8, 0, 0, 0, 0, 0, 0, 0,126, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_046[] = { 8, 0, 0, 16, 56, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_047[] = { 8, 0, 0, 0,128,128, 64, 32, 16, 8, 4, 2, 2, 0, 0}; -static const GLubyte Fixed8x13_Character_048[] = { 8, 0, 0, 0, 24, 36, 66, 66, 66, 66, 66, 36, 24, 0, 0}; -static const GLubyte Fixed8x13_Character_049[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16, 80, 48, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_050[] = { 8, 0, 0, 0,126, 64, 32, 24, 4, 2, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_051[] = { 8, 0, 0, 0, 60, 66, 2, 2, 28, 8, 4, 2,126, 0, 0}; -static const GLubyte Fixed8x13_Character_052[] = { 8, 0, 0, 0, 4, 4,126, 68, 68, 36, 20, 12, 4, 0, 0}; -static const GLubyte Fixed8x13_Character_053[] = { 8, 0, 0, 0, 60, 66, 2, 2, 98, 92, 64, 64,126, 0, 0}; -static const GLubyte Fixed8x13_Character_054[] = { 8, 0, 0, 0, 60, 66, 66, 98, 92, 64, 64, 32, 28, 0, 0}; -static const GLubyte Fixed8x13_Character_055[] = { 8, 0, 0, 0, 32, 32, 16, 16, 8, 8, 4, 2,126, 0, 0}; -static const GLubyte Fixed8x13_Character_056[] = { 8, 0, 0, 0, 60, 66, 66, 66, 60, 66, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_057[] = { 8, 0, 0, 0, 56, 4, 2, 2, 58, 70, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_058[] = { 8, 0, 0, 16, 56, 16, 0, 0, 16, 56, 16, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_059[] = { 8, 0, 0, 64, 48, 56, 0, 0, 16, 56, 16, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_060[] = { 8, 0, 0, 0, 2, 4, 8, 16, 32, 16, 8, 4, 2, 0, 0}; -static const GLubyte Fixed8x13_Character_061[] = { 8, 0, 0, 0, 0, 0,126, 0, 0,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_062[] = { 8, 0, 0, 0, 64, 32, 16, 8, 4, 8, 16, 32, 64, 0, 0}; -static const GLubyte Fixed8x13_Character_063[] = { 8, 0, 0, 0, 8, 0, 8, 8, 4, 2, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_064[] = { 8, 0, 0, 0, 60, 64, 74, 86, 82, 78, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_065[] = { 8, 0, 0, 0, 66, 66, 66,126, 66, 66, 66, 36, 24, 0, 0}; -static const GLubyte Fixed8x13_Character_066[] = { 8, 0, 0, 0,252, 66, 66, 66,124, 66, 66, 66,252, 0, 0}; -static const GLubyte Fixed8x13_Character_067[] = { 8, 0, 0, 0, 60, 66, 64, 64, 64, 64, 64, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_068[] = { 8, 0, 0, 0,252, 66, 66, 66, 66, 66, 66, 66,252, 0, 0}; -static const GLubyte Fixed8x13_Character_069[] = { 8, 0, 0, 0,126, 64, 64, 64,120, 64, 64, 64,126, 0, 0}; -static const GLubyte Fixed8x13_Character_070[] = { 8, 0, 0, 0, 64, 64, 64, 64,120, 64, 64, 64,126, 0, 0}; -static const GLubyte Fixed8x13_Character_071[] = { 8, 0, 0, 0, 58, 70, 66, 78, 64, 64, 64, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_072[] = { 8, 0, 0, 0, 66, 66, 66, 66,126, 66, 66, 66, 66, 0, 0}; -static const GLubyte Fixed8x13_Character_073[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16, 16, 16,124, 0, 0}; -static const GLubyte Fixed8x13_Character_074[] = { 8, 0, 0, 0, 56, 68, 4, 4, 4, 4, 4, 4, 31, 0, 0}; -static const GLubyte Fixed8x13_Character_075[] = { 8, 0, 0, 0, 66, 68, 72, 80, 96, 80, 72, 68, 66, 0, 0}; -static const GLubyte Fixed8x13_Character_076[] = { 8, 0, 0, 0,126, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0}; -static const GLubyte Fixed8x13_Character_077[] = { 8, 0, 0, 0,130,130,130,146,146,170,198,130,130, 0, 0}; -static const GLubyte Fixed8x13_Character_078[] = { 8, 0, 0, 0, 66, 66, 66, 70, 74, 82, 98, 66, 66, 0, 0}; -static const GLubyte Fixed8x13_Character_079[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_080[] = { 8, 0, 0, 0, 64, 64, 64, 64,124, 66, 66, 66,124, 0, 0}; -static const GLubyte Fixed8x13_Character_081[] = { 8, 0, 0, 2, 60, 74, 82, 66, 66, 66, 66, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_082[] = { 8, 0, 0, 0, 66, 68, 72, 80,124, 66, 66, 66,124, 0, 0}; -static const GLubyte Fixed8x13_Character_083[] = { 8, 0, 0, 0, 60, 66, 2, 2, 60, 64, 64, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_084[] = { 8, 0, 0, 0, 16, 16, 16, 16, 16, 16, 16, 16,254, 0, 0}; -static const GLubyte Fixed8x13_Character_085[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 66, 0, 0}; -static const GLubyte Fixed8x13_Character_086[] = { 8, 0, 0, 0, 16, 40, 40, 40, 68, 68, 68,130,130, 0, 0}; -static const GLubyte Fixed8x13_Character_087[] = { 8, 0, 0, 0, 68,170,146,146,146,130,130,130,130, 0, 0}; -static const GLubyte Fixed8x13_Character_088[] = { 8, 0, 0, 0,130,130, 68, 40, 16, 40, 68,130,130, 0, 0}; -static const GLubyte Fixed8x13_Character_089[] = { 8, 0, 0, 0, 16, 16, 16, 16, 16, 40, 68,130,130, 0, 0}; -static const GLubyte Fixed8x13_Character_090[] = { 8, 0, 0, 0,126, 64, 64, 32, 16, 8, 4, 2,126, 0, 0}; -static const GLubyte Fixed8x13_Character_091[] = { 8, 0, 0, 0, 60, 32, 32, 32, 32, 32, 32, 32, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_092[] = { 8, 0, 0, 0, 2, 2, 4, 8, 16, 32, 64,128,128, 0, 0}; -static const GLubyte Fixed8x13_Character_093[] = { 8, 0, 0, 0,120, 8, 8, 8, 8, 8, 8, 8,120, 0, 0}; -static const GLubyte Fixed8x13_Character_094[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 68, 40, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_095[] = { 8, 0, 0,254, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_096[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 24, 56, 0, 0}; -static const GLubyte Fixed8x13_Character_097[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_098[] = { 8, 0, 0, 0, 92, 98, 66, 66, 98, 92, 64, 64, 64, 0, 0}; -static const GLubyte Fixed8x13_Character_099[] = { 8, 0, 0, 0, 60, 66, 64, 64, 66, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_100[] = { 8, 0, 0, 0, 58, 70, 66, 66, 70, 58, 2, 2, 2, 0, 0}; -static const GLubyte Fixed8x13_Character_101[] = { 8, 0, 0, 0, 60, 66, 64,126, 66, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_102[] = { 8, 0, 0, 0, 32, 32, 32, 32,124, 32, 32, 34, 28, 0, 0}; -static const GLubyte Fixed8x13_Character_103[] = { 8, 0, 60, 66, 60, 64, 56, 68, 68, 58, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_104[] = { 8, 0, 0, 0, 66, 66, 66, 66, 98, 92, 64, 64, 64, 0, 0}; -static const GLubyte Fixed8x13_Character_105[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 48, 0, 16, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_106[] = { 8, 0, 56, 68, 68, 4, 4, 4, 4, 12, 0, 4, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_107[] = { 8, 0, 0, 0, 66, 68, 72,112, 72, 68, 64, 64, 64, 0, 0}; -static const GLubyte Fixed8x13_Character_108[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16, 16, 16, 48, 0, 0}; -static const GLubyte Fixed8x13_Character_109[] = { 8, 0, 0, 0,130,146,146,146,146,236, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_110[] = { 8, 0, 0, 0, 66, 66, 66, 66, 98, 92, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_111[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_112[] = { 8, 0, 64, 64, 64, 92, 98, 66, 98, 92, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_113[] = { 8, 0, 2, 2, 2, 58, 70, 66, 70, 58, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_114[] = { 8, 0, 0, 0, 32, 32, 32, 32, 34, 92, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_115[] = { 8, 0, 0, 0, 60, 66, 12, 48, 66, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_116[] = { 8, 0, 0, 0, 28, 34, 32, 32, 32,124, 32, 32, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_117[] = { 8, 0, 0, 0, 58, 68, 68, 68, 68, 68, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_118[] = { 8, 0, 0, 0, 16, 40, 40, 68, 68, 68, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_119[] = { 8, 0, 0, 0, 68,170,146,146,130,130, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_120[] = { 8, 0, 0, 0, 66, 36, 24, 24, 36, 66, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_121[] = { 8, 0, 60, 66, 2, 58, 70, 66, 66, 66, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_122[] = { 8, 0, 0, 0,126, 32, 16, 8, 4,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_123[] = { 8, 0, 0, 0, 14, 16, 16, 8, 48, 8, 16, 16, 14, 0, 0}; -static const GLubyte Fixed8x13_Character_124[] = { 8, 0, 0, 0, 16, 16, 16, 16, 16, 16, 16, 16, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_125[] = { 8, 0, 0, 0,112, 8, 8, 16, 12, 16, 8, 8,112, 0, 0}; -static const GLubyte Fixed8x13_Character_126[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 72, 84, 36, 0, 0}; -static const GLubyte Fixed8x13_Character_127[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_128[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_129[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_130[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_131[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_132[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_133[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_134[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_135[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_136[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_137[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_138[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_139[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_140[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_141[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_142[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_143[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_144[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_145[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_146[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_147[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_148[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_149[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_150[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_151[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_152[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_153[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_154[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_155[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_156[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_157[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_158[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_159[] = { 9, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_160[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_161[] = { 8, 0, 0, 0, 16, 16, 16, 16, 16, 16, 16, 0, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_162[] = { 8, 0, 0, 0, 0, 16, 56, 84, 80, 80, 84, 56, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_163[] = { 8, 0, 0, 0,220, 98, 32, 32, 32,112, 32, 34, 28, 0, 0}; -static const GLubyte Fixed8x13_Character_164[] = { 8, 0, 0, 0, 0, 66, 60, 36, 36, 60, 66, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_165[] = { 8, 0, 0, 0, 16, 16,124, 16,124, 40, 68,130,130, 0, 0}; -static const GLubyte Fixed8x13_Character_166[] = { 8, 0, 0, 0, 16, 16, 16, 16, 0, 16, 16, 16, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_167[] = { 8, 0, 0, 0, 24, 36, 4, 24, 36, 36, 24, 32, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_168[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,108, 0, 0}; -static const GLubyte Fixed8x13_Character_169[] = { 8, 0, 0, 0, 0, 56, 68,146,170,162,170,146, 68, 56, 0}; -static const GLubyte Fixed8x13_Character_170[] = { 8, 0, 0, 0, 0, 0,124, 0, 60, 68, 60, 4, 56, 0, 0}; -static const GLubyte Fixed8x13_Character_171[] = { 8, 0, 0, 0, 0, 18, 36, 72,144, 72, 36, 18, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_172[] = { 8, 0, 0, 0, 0, 2, 2, 2,126, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_173[] = { 8, 0, 0, 0, 0, 0, 0, 0, 60, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_174[] = { 8, 0, 0, 0, 0, 56, 68,170,178,170,170,146, 68, 56, 0}; -static const GLubyte Fixed8x13_Character_175[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 0}; -static const GLubyte Fixed8x13_Character_176[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 24, 36, 36, 24, 0, 0}; -static const GLubyte Fixed8x13_Character_177[] = { 8, 0, 0, 0, 0,124, 0, 16, 16,124, 16, 16, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_178[] = { 8, 0, 0, 0, 0, 0, 0, 0,120, 64, 48, 8, 72, 48, 0}; -static const GLubyte Fixed8x13_Character_179[] = { 8, 0, 0, 0, 0, 0, 0, 0, 48, 72, 8, 16, 72, 48, 0}; -static const GLubyte Fixed8x13_Character_180[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_181[] = { 8, 0, 0, 64, 90,102, 66, 66, 66, 66, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_182[] = { 8, 0, 0, 0, 20, 20, 20, 20, 52,116,116,116, 62, 0, 0}; -static const GLubyte Fixed8x13_Character_183[] = { 8, 0, 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_184[] = { 8, 0, 24, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_185[] = { 8, 0, 0, 0, 0, 0, 0, 0,112, 32, 32, 32, 96, 32, 0}; -static const GLubyte Fixed8x13_Character_186[] = { 8, 0, 0, 0, 0, 0, 0,120, 0, 48, 72, 72, 48, 0, 0}; -static const GLubyte Fixed8x13_Character_187[] = { 8, 0, 0, 0, 0,144, 72, 36, 18, 36, 72,144, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_188[] = { 8, 0, 0, 0, 6, 26, 18, 10,230, 66, 64, 64,192, 64, 0}; -static const GLubyte Fixed8x13_Character_189[] = { 8, 0, 0, 0, 30, 16, 12, 2,242, 76, 64, 64,192, 64, 0}; -static const GLubyte Fixed8x13_Character_190[] = { 8, 0, 0, 0, 6, 26, 18, 10,102,146, 16, 32,144, 96, 0}; -static const GLubyte Fixed8x13_Character_191[] = { 8, 0, 0, 0, 60, 66, 66, 64, 32, 16, 16, 0, 16, 0, 0}; -static const GLubyte Fixed8x13_Character_192[] = { 8, 0, 0, 0, 66, 66,126, 66, 66, 36, 24, 0, 8, 16, 0}; -static const GLubyte Fixed8x13_Character_193[] = { 8, 0, 0, 0, 66, 66,126, 66, 66, 36, 24, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_194[] = { 8, 0, 0, 0, 66, 66,126, 66, 66, 36, 24, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_195[] = { 8, 0, 0, 0, 66, 66,126, 66, 66, 36, 24, 0, 76, 50, 0}; -static const GLubyte Fixed8x13_Character_196[] = { 8, 0, 0, 0, 66, 66,126, 66, 66, 36, 24, 0, 36, 36, 0}; -static const GLubyte Fixed8x13_Character_197[] = { 8, 0, 0, 0, 66, 66,126, 66, 66, 36, 24, 24, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_198[] = { 8, 0, 0, 0,158,144,144,240,156,144,144,144,110, 0, 0}; -static const GLubyte Fixed8x13_Character_199[] = { 8, 0, 16, 8, 60, 66, 64, 64, 64, 64, 64, 66, 60, 0, 0}; -static const GLubyte Fixed8x13_Character_200[] = { 8, 0, 0, 0,126, 64, 64,120, 64, 64,126, 0, 8, 16, 0}; -static const GLubyte Fixed8x13_Character_201[] = { 8, 0, 0, 0,126, 64, 64,120, 64, 64,126, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_202[] = { 8, 0, 0, 0,126, 64, 64,120, 64, 64,126, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_203[] = { 8, 0, 0, 0,126, 64, 64,120, 64, 64,126, 0, 36, 36, 0}; -static const GLubyte Fixed8x13_Character_204[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16,124, 0, 16, 32, 0}; -static const GLubyte Fixed8x13_Character_205[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16,124, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_206[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16,124, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_207[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 16,124, 0, 40, 40, 0}; -static const GLubyte Fixed8x13_Character_208[] = { 8, 0, 0, 0,120, 68, 66, 66,226, 66, 66, 68,120, 0, 0}; -static const GLubyte Fixed8x13_Character_209[] = { 8, 0, 0, 0,130,134,138,146,162,194,130, 0,152,100, 0}; -static const GLubyte Fixed8x13_Character_210[] = { 8, 0, 0, 0,124,130,130,130,130,130,124, 0, 16, 32, 0}; -static const GLubyte Fixed8x13_Character_211[] = { 8, 0, 0, 0,124,130,130,130,130,130,124, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_212[] = { 8, 0, 0, 0,124,130,130,130,130,130,124, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_213[] = { 8, 0, 0, 0,124,130,130,130,130,130,124, 0,152,100, 0}; -static const GLubyte Fixed8x13_Character_214[] = { 8, 0, 0, 0,124,130,130,130,130,130,124, 0, 40, 40, 0}; -static const GLubyte Fixed8x13_Character_215[] = { 8, 0, 0, 0, 0, 66, 36, 24, 24, 36, 66, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_216[] = { 8, 0, 0, 64, 60, 98, 82, 82, 82, 74, 74, 70, 60, 2, 0}; -static const GLubyte Fixed8x13_Character_217[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 0, 8, 16, 0}; -static const GLubyte Fixed8x13_Character_218[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_219[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_220[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 0, 36, 36, 0}; -static const GLubyte Fixed8x13_Character_221[] = { 8, 0, 0, 0, 16, 16, 16, 16, 40, 68, 68, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_222[] = { 8, 0, 0, 0, 64, 64, 64,124, 66, 66, 66,124, 64, 0, 0}; -static const GLubyte Fixed8x13_Character_223[] = { 8, 0, 0, 0, 92, 66, 66, 76, 80, 72, 68, 68, 56, 0, 0}; -static const GLubyte Fixed8x13_Character_224[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 0, 8, 16, 0}; -static const GLubyte Fixed8x13_Character_225[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 0, 8, 4, 0}; -static const GLubyte Fixed8x13_Character_226[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_227[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 0, 76, 50, 0}; -static const GLubyte Fixed8x13_Character_228[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 0, 36, 36, 0}; -static const GLubyte Fixed8x13_Character_229[] = { 8, 0, 0, 0, 58, 70, 66, 62, 2, 60, 0, 24, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_230[] = { 8, 0, 0, 0,108,146,144,124, 18,108, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_231[] = { 8, 0, 16, 8, 60, 66, 64, 64, 66, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_232[] = { 8, 0, 0, 0, 60, 66, 64,126, 66, 60, 0, 0, 8, 16, 0}; -static const GLubyte Fixed8x13_Character_233[] = { 8, 0, 0, 0, 60, 66, 64,126, 66, 60, 0, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_234[] = { 8, 0, 0, 0, 60, 66, 64,126, 66, 60, 0, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_235[] = { 8, 0, 0, 0, 60, 66, 64,126, 66, 60, 0, 0, 36, 36, 0}; -static const GLubyte Fixed8x13_Character_236[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 48, 0, 0, 16, 32, 0}; -static const GLubyte Fixed8x13_Character_237[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 48, 0, 0, 32, 16, 0}; -static const GLubyte Fixed8x13_Character_238[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 48, 0, 0, 72, 48, 0}; -static const GLubyte Fixed8x13_Character_239[] = { 8, 0, 0, 0,124, 16, 16, 16, 16, 48, 0, 0, 40, 40, 0}; -static const GLubyte Fixed8x13_Character_240[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 4, 40, 24, 36, 0}; -static const GLubyte Fixed8x13_Character_241[] = { 8, 0, 0, 0, 66, 66, 66, 66, 98, 92, 0, 0, 76, 50, 0}; -static const GLubyte Fixed8x13_Character_242[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 0, 0, 16, 32, 0}; -static const GLubyte Fixed8x13_Character_243[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 0, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_244[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 0, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_245[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 0, 0, 76, 50, 0}; -static const GLubyte Fixed8x13_Character_246[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 60, 0, 0, 36, 36, 0}; -static const GLubyte Fixed8x13_Character_247[] = { 8, 0, 0, 0, 0, 16, 16, 0,124, 0, 16, 16, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_248[] = { 8, 0, 0, 64, 60, 98, 82, 74, 70, 60, 2, 0, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_249[] = { 8, 0, 0, 0, 58, 68, 68, 68, 68, 68, 0, 0, 16, 32, 0}; -static const GLubyte Fixed8x13_Character_250[] = { 8, 0, 0, 0, 58, 68, 68, 68, 68, 68, 0, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_251[] = { 8, 0, 0, 0, 58, 68, 68, 68, 68, 68, 0, 0, 36, 24, 0}; -static const GLubyte Fixed8x13_Character_252[] = { 8, 0, 0, 0, 58, 68, 68, 68, 68, 68, 0, 0, 40, 40, 0}; -static const GLubyte Fixed8x13_Character_253[] = { 8, 0, 60, 66, 2, 58, 70, 66, 66, 66, 0, 0, 16, 8, 0}; -static const GLubyte Fixed8x13_Character_254[] = { 8, 0, 64, 64, 92, 98, 66, 66, 98, 92, 64, 64, 0, 0, 0}; -static const GLubyte Fixed8x13_Character_255[] = { 8, 0, 60, 66, 2, 58, 70, 66, 66, 66, 0, 0, 36, 36, 0}; - -/* The font characters mapping: */ -static const GLubyte* Fixed8x13_Character_Map[] = {Fixed8x13_Character_000,Fixed8x13_Character_001,Fixed8x13_Character_002,Fixed8x13_Character_003,Fixed8x13_Character_004,Fixed8x13_Character_005,Fixed8x13_Character_006,Fixed8x13_Character_007,Fixed8x13_Character_008,Fixed8x13_Character_009,Fixed8x13_Character_010,Fixed8x13_Character_011,Fixed8x13_Character_012,Fixed8x13_Character_013,Fixed8x13_Character_014,Fixed8x13_Character_015, - Fixed8x13_Character_016,Fixed8x13_Character_017,Fixed8x13_Character_018,Fixed8x13_Character_019,Fixed8x13_Character_020,Fixed8x13_Character_021,Fixed8x13_Character_022,Fixed8x13_Character_023,Fixed8x13_Character_024,Fixed8x13_Character_025,Fixed8x13_Character_026,Fixed8x13_Character_027,Fixed8x13_Character_028,Fixed8x13_Character_029,Fixed8x13_Character_030,Fixed8x13_Character_031, - Fixed8x13_Character_032,Fixed8x13_Character_033,Fixed8x13_Character_034,Fixed8x13_Character_035,Fixed8x13_Character_036,Fixed8x13_Character_037,Fixed8x13_Character_038,Fixed8x13_Character_039,Fixed8x13_Character_040,Fixed8x13_Character_041,Fixed8x13_Character_042,Fixed8x13_Character_043,Fixed8x13_Character_044,Fixed8x13_Character_045,Fixed8x13_Character_046,Fixed8x13_Character_047, - Fixed8x13_Character_048,Fixed8x13_Character_049,Fixed8x13_Character_050,Fixed8x13_Character_051,Fixed8x13_Character_052,Fixed8x13_Character_053,Fixed8x13_Character_054,Fixed8x13_Character_055,Fixed8x13_Character_056,Fixed8x13_Character_057,Fixed8x13_Character_058,Fixed8x13_Character_059,Fixed8x13_Character_060,Fixed8x13_Character_061,Fixed8x13_Character_062,Fixed8x13_Character_063, - Fixed8x13_Character_064,Fixed8x13_Character_065,Fixed8x13_Character_066,Fixed8x13_Character_067,Fixed8x13_Character_068,Fixed8x13_Character_069,Fixed8x13_Character_070,Fixed8x13_Character_071,Fixed8x13_Character_072,Fixed8x13_Character_073,Fixed8x13_Character_074,Fixed8x13_Character_075,Fixed8x13_Character_076,Fixed8x13_Character_077,Fixed8x13_Character_078,Fixed8x13_Character_079, - Fixed8x13_Character_080,Fixed8x13_Character_081,Fixed8x13_Character_082,Fixed8x13_Character_083,Fixed8x13_Character_084,Fixed8x13_Character_085,Fixed8x13_Character_086,Fixed8x13_Character_087,Fixed8x13_Character_088,Fixed8x13_Character_089,Fixed8x13_Character_090,Fixed8x13_Character_091,Fixed8x13_Character_092,Fixed8x13_Character_093,Fixed8x13_Character_094,Fixed8x13_Character_095, - Fixed8x13_Character_096,Fixed8x13_Character_097,Fixed8x13_Character_098,Fixed8x13_Character_099,Fixed8x13_Character_100,Fixed8x13_Character_101,Fixed8x13_Character_102,Fixed8x13_Character_103,Fixed8x13_Character_104,Fixed8x13_Character_105,Fixed8x13_Character_106,Fixed8x13_Character_107,Fixed8x13_Character_108,Fixed8x13_Character_109,Fixed8x13_Character_110,Fixed8x13_Character_111, - Fixed8x13_Character_112,Fixed8x13_Character_113,Fixed8x13_Character_114,Fixed8x13_Character_115,Fixed8x13_Character_116,Fixed8x13_Character_117,Fixed8x13_Character_118,Fixed8x13_Character_119,Fixed8x13_Character_120,Fixed8x13_Character_121,Fixed8x13_Character_122,Fixed8x13_Character_123,Fixed8x13_Character_124,Fixed8x13_Character_125,Fixed8x13_Character_126,Fixed8x13_Character_032, - Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032, - Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032,Fixed8x13_Character_032, - Fixed8x13_Character_160,Fixed8x13_Character_161,Fixed8x13_Character_162,Fixed8x13_Character_163,Fixed8x13_Character_164,Fixed8x13_Character_165,Fixed8x13_Character_166,Fixed8x13_Character_167,Fixed8x13_Character_168,Fixed8x13_Character_169,Fixed8x13_Character_170,Fixed8x13_Character_171,Fixed8x13_Character_172,Fixed8x13_Character_173,Fixed8x13_Character_174,Fixed8x13_Character_175, - Fixed8x13_Character_176,Fixed8x13_Character_177,Fixed8x13_Character_178,Fixed8x13_Character_179,Fixed8x13_Character_180,Fixed8x13_Character_181,Fixed8x13_Character_182,Fixed8x13_Character_183,Fixed8x13_Character_184,Fixed8x13_Character_185,Fixed8x13_Character_186,Fixed8x13_Character_187,Fixed8x13_Character_188,Fixed8x13_Character_189,Fixed8x13_Character_190,Fixed8x13_Character_191, - Fixed8x13_Character_192,Fixed8x13_Character_193,Fixed8x13_Character_194,Fixed8x13_Character_195,Fixed8x13_Character_196,Fixed8x13_Character_197,Fixed8x13_Character_198,Fixed8x13_Character_199,Fixed8x13_Character_200,Fixed8x13_Character_201,Fixed8x13_Character_202,Fixed8x13_Character_203,Fixed8x13_Character_204,Fixed8x13_Character_205,Fixed8x13_Character_206,Fixed8x13_Character_207, - Fixed8x13_Character_208,Fixed8x13_Character_209,Fixed8x13_Character_210,Fixed8x13_Character_211,Fixed8x13_Character_212,Fixed8x13_Character_213,Fixed8x13_Character_214,Fixed8x13_Character_215,Fixed8x13_Character_216,Fixed8x13_Character_217,Fixed8x13_Character_218,Fixed8x13_Character_219,Fixed8x13_Character_220,Fixed8x13_Character_221,Fixed8x13_Character_222,Fixed8x13_Character_223, - Fixed8x13_Character_224,Fixed8x13_Character_225,Fixed8x13_Character_226,Fixed8x13_Character_227,Fixed8x13_Character_228,Fixed8x13_Character_229,Fixed8x13_Character_230,Fixed8x13_Character_231,Fixed8x13_Character_232,Fixed8x13_Character_233,Fixed8x13_Character_234,Fixed8x13_Character_235,Fixed8x13_Character_236,Fixed8x13_Character_237,Fixed8x13_Character_238,Fixed8x13_Character_239, - Fixed8x13_Character_240,Fixed8x13_Character_241,Fixed8x13_Character_242,Fixed8x13_Character_243,Fixed8x13_Character_244,Fixed8x13_Character_245,Fixed8x13_Character_246,Fixed8x13_Character_247,Fixed8x13_Character_248,Fixed8x13_Character_249,Fixed8x13_Character_250,Fixed8x13_Character_251,Fixed8x13_Character_252,Fixed8x13_Character_253,Fixed8x13_Character_254,Fixed8x13_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontFixed8x13 = { "-misc-fixed-medium-r-normal--13-120-75-75-C-80-iso8859-1", 256, 14, Fixed8x13_Character_Map, 0, 3 }; - -static const GLubyte Fixed9x15_Character_000[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_001[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 28, 0, 62, 0,127, 0,255,128,127, 0, 62, 0, 28, 0, 8, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_002[] = { 9, 0, 0,170,128, 85, 0,170,128, 85, 0,170,128, 85, 0,170,128, 85, 0,170,128, 85, 0,170,128, 85, 0,170,128, 85, 0,170,128}; -static const GLubyte Fixed9x15_Character_003[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 4, 0, 4, 0, 31, 0, 0, 0, 72, 0, 72, 0,120, 0, 72, 0, 72, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_004[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 14, 0, 72, 0, 79, 0, 64, 0,112, 0, 64, 0,120, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_005[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 9, 0, 14, 0, 9, 0, 14, 0, 0, 0, 56, 0, 64, 0, 64, 0, 64, 0, 56, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_006[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 14, 0, 8, 0, 15, 0, 0, 0,120, 0, 64, 0, 64, 0, 64, 0, 64, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_007[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 18, 0, 18, 0, 12, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_008[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 0, 0, 8, 0, 8, 0, 8, 0,127, 0, 8, 0, 8, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_009[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 8, 0, 8, 0, 8, 0, 8, 0, 0, 0, 68, 0, 76, 0, 84, 0,100, 0, 68, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_010[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 4, 0, 4, 0, 31, 0, 0, 0, 16, 0, 40, 0, 40, 0, 68, 0, 68, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_011[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,248, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_012[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_013[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 15,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_014[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,128, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_015[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0,255,128, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_016[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,128}; -static const GLubyte Fixed9x15_Character_017[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,128, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_018[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_019[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,255,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_020[] = { 9, 0, 0,255,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_021[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 15,128, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_022[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0,248, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_023[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,128, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_024[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0,255,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_025[] = { 9, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_026[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 0, 0, 3, 0, 28, 0, 96, 0, 28, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_027[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 0, 0, 96, 0, 28, 0, 3, 0, 28, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_028[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 34, 0, 34, 0, 34, 0, 34, 0, 34, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_029[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 16, 0,127, 0, 8, 0,127, 0, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_030[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 46, 0, 81, 0, 48, 0, 16, 0, 16, 0,124, 0, 16, 0, 16, 0, 17, 0, 14, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_031[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_032[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_033[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_034[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 18, 0, 18, 0, 18, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_035[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 36, 0, 36, 0,126, 0, 36, 0, 36, 0,126, 0, 36, 0, 36, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_036[] = { 9, 0, 0, 0, 0, 0, 0, 8, 0, 62, 0, 73, 0, 9, 0, 9, 0, 10, 0, 28, 0, 40, 0, 72, 0, 73, 0, 62, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_037[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 37, 0, 37, 0, 18, 0, 8, 0, 8, 0, 36, 0, 82, 0, 82, 0, 33, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_038[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 49, 0, 74, 0, 68, 0, 74, 0, 49, 0, 48, 0, 72, 0, 72, 0, 72, 0, 48, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_039[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 8, 0, 4, 0, 6, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_040[] = { 9, 0, 0, 0, 0, 0, 0, 4, 0, 8, 0, 8, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 8, 0, 8, 0, 4, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_041[] = { 9, 0, 0, 0, 0, 0, 0, 16, 0, 8, 0, 8, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 8, 0, 8, 0, 16, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_042[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 73, 0, 42, 0, 28, 0, 42, 0, 73, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_043[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0,127, 0, 8, 0, 8, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_044[] = { 9, 0, 0, 8, 0, 4, 0, 4, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_045[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_046[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_047[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 64, 0, 32, 0, 32, 0, 16, 0, 8, 0, 8, 0, 4, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_048[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_049[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 72, 0, 40, 0, 24, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_050[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 64, 0, 32, 0, 16, 0, 8, 0, 4, 0, 2, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_051[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 1, 0, 1, 0, 1, 0, 14, 0, 4, 0, 2, 0, 1, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_052[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 2, 0,127, 0, 66, 0, 34, 0, 18, 0, 10, 0, 6, 0, 2, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_053[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 1, 0, 1, 0, 1, 0, 97, 0, 94, 0, 64, 0, 64, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_054[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 97, 0, 94, 0, 64, 0, 64, 0, 32, 0, 30, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_055[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 32, 0, 16, 0, 16, 0, 8, 0, 4, 0, 2, 0, 1, 0, 1, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_056[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 65, 0, 65, 0, 34, 0, 28, 0, 34, 0, 65, 0, 34, 0, 28, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_057[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0, 2, 0, 1, 0, 1, 0, 61, 0, 67, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_058[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_059[] = { 9, 0, 0, 8, 0, 4, 0, 4, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_060[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 4, 0, 8, 0, 16, 0, 32, 0, 32, 0, 16, 0, 8, 0, 4, 0, 2, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_061[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 0, 0, 0, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_062[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 16, 0, 8, 0, 4, 0, 2, 0, 2, 0, 4, 0, 8, 0, 16, 0, 32, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_063[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, 8, 0, 8, 0, 4, 0, 2, 0, 1, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_064[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 64, 0, 64, 0, 77, 0, 83, 0, 81, 0, 79, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_065[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 65, 0, 34, 0, 20, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_066[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 33, 0, 33, 0, 33, 0, 33, 0,126, 0, 33, 0, 33, 0, 33, 0,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_067[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_068[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 33, 0, 33, 0, 33, 0, 33, 0, 33, 0, 33, 0, 33, 0, 33, 0,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_069[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 32, 0, 32, 0, 32, 0, 32, 0, 60, 0, 32, 0, 32, 0, 32, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_070[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 32, 0, 32, 0, 32, 0, 32, 0, 60, 0, 32, 0, 32, 0, 32, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_071[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 71, 0, 64, 0, 64, 0, 64, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_072[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_073[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_074[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0, 66, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 15,128, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_075[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 66, 0, 68, 0, 72, 0, 80, 0,112, 0, 72, 0, 68, 0, 66, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_076[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_077[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 73, 0, 73, 0, 85, 0, 85, 0, 99, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_078[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 67, 0, 69, 0, 73, 0, 81, 0, 97, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_079[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_080[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0,126, 0, 65, 0, 65, 0, 65, 0,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_081[] = { 9, 0, 0, 0, 0, 3, 0, 4, 0, 62, 0, 73, 0, 81, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_082[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 66, 0, 68, 0, 72, 0,126, 0, 65, 0, 65, 0, 65, 0,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_083[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 1, 0, 6, 0, 56, 0, 64, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_084[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_085[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_086[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 20, 0, 20, 0, 20, 0, 34, 0, 34, 0, 34, 0, 65, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_087[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 85, 0, 73, 0, 73, 0, 73, 0, 73, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_088[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 34, 0, 20, 0, 8, 0, 8, 0, 20, 0, 34, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_089[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 20, 0, 34, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_090[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 64, 0, 64, 0, 32, 0, 16, 0, 8, 0, 4, 0, 2, 0, 1, 0,127, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_091[] = { 9, 0, 0, 0, 0, 0, 0, 30, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 16, 0, 30, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_092[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 0, 4, 0, 8, 0, 8, 0, 16, 0, 32, 0, 32, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_093[] = { 9, 0, 0, 0, 0, 0, 0, 60, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 60, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_094[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 34, 0, 20, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_095[] = { 9, 0, 0, 0, 0, 0, 0,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_096[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 8, 0, 16, 0, 48, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_097[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_098[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 94, 0, 97, 0, 65, 0, 65, 0, 65, 0, 97, 0, 94, 0, 64, 0, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_099[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 64, 0, 64, 0, 64, 0, 65, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_100[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 65, 0, 65, 0, 67, 0, 61, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_101[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 64, 0, 64, 0,127, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_102[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 16, 0, 16, 0, 16, 0,124, 0, 16, 0, 16, 0, 17, 0, 17, 0, 14, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_103[] = { 9, 0, 0, 62, 0, 65, 0, 65, 0, 62, 0, 64, 0, 60, 0, 66, 0, 66, 0, 66, 0, 61, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_104[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 97, 0, 94, 0, 64, 0, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_105[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 56, 0, 0, 0, 0, 0, 24, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_106[] = { 9, 0, 0, 60, 0, 66, 0, 66, 0, 66, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 14, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_107[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 70, 0, 88, 0, 96, 0, 88, 0, 70, 0, 65, 0, 64, 0, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_108[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 56, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_109[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 73, 0, 73, 0, 73, 0, 73, 0, 73, 0,118, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_110[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 97, 0, 94, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_111[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_112[] = { 9, 0, 0, 64, 0, 64, 0, 64, 0, 94, 0, 97, 0, 65, 0, 65, 0, 65, 0, 97, 0, 94, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_113[] = { 9, 0, 0, 1, 0, 1, 0, 1, 0, 61, 0, 67, 0, 65, 0, 65, 0, 65, 0, 67, 0, 61, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_114[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 32, 0, 32, 0, 32, 0, 33, 0, 49, 0, 78, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_115[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 1, 0, 62, 0, 64, 0, 65, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_116[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 14, 0, 17, 0, 16, 0, 16, 0, 16, 0, 16, 0,126, 0, 16, 0, 16, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_117[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_118[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 20, 0, 20, 0, 34, 0, 34, 0, 65, 0, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_119[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 85, 0, 73, 0, 73, 0, 73, 0, 65, 0, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_120[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 34, 0, 20, 0, 8, 0, 20, 0, 34, 0, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_121[] = { 9, 0, 0, 60, 0, 66, 0, 2, 0, 58, 0, 70, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_122[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 32, 0, 16, 0, 8, 0, 4, 0, 2, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_123[] = { 9, 0, 0, 0, 0, 0, 0, 7, 0, 8, 0, 8, 0, 8, 0, 4, 0, 24, 0, 24, 0, 4, 0, 8, 0, 8, 0, 8, 0, 7, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_124[] = { 9, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_125[] = { 9, 0, 0, 0, 0, 0, 0,112, 0, 8, 0, 8, 0, 8, 0, 16, 0, 12, 0, 12, 0, 16, 0, 8, 0, 8, 0, 8, 0,112, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_126[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 0, 73, 0, 49, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_127[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_128[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_129[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_130[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_131[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_132[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_133[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_134[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_135[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_136[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_137[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_138[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_139[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_140[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_141[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_142[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_143[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_144[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_145[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_146[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_147[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_148[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_149[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_150[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_151[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_152[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_153[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_154[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_155[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_156[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_157[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_158[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_159[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 91, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0, 65, 0, 64, 0, 1, 0,109, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_160[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_161[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 0, 0, 0, 0, 8, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_162[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 60, 0, 82, 0, 80, 0, 72, 0, 74, 0, 60, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_163[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 46, 0, 81, 0, 48, 0, 16, 0, 16, 0,124, 0, 16, 0, 16, 0, 17, 0, 14, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_164[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 62, 0, 34, 0, 34, 0, 62, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_165[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 62, 0, 8, 0, 62, 0, 20, 0, 34, 0, 65, 0, 65, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_166[] = { 9, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_167[] = { 9, 0, 0, 0, 0, 0, 0, 24, 0, 36, 0, 4, 0, 24, 0, 36, 0, 36, 0, 36, 0, 24, 0, 32, 0, 36, 0, 24, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_168[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 34, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_169[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0, 66, 0,153, 0,165, 0,161, 0,165, 0,153, 0, 66, 0, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_170[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 0, 0, 60, 0, 72, 0, 56, 0, 72, 0, 48, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_171[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 18, 0, 36, 0, 72, 0, 72, 0, 36, 0, 18, 0, 9, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_172[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 2, 0,126, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_173[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_174[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0, 66, 0,165, 0,169, 0,185, 0,165, 0,185, 0, 66, 0, 60, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_175[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_176[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 18, 0, 18, 0, 12, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_177[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 0, 0, 8, 0, 8, 0, 8, 0,127, 0, 8, 0, 8, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_178[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120, 0, 64, 0, 48, 0, 8, 0, 72, 0, 48, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_179[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 0, 72, 0, 8, 0, 16, 0, 72, 0, 48, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_180[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 8, 0, 4, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_181[] = { 9, 0, 0, 0, 0, 64, 0, 64, 0, 93, 0, 99, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_182[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 5, 0, 5, 0, 5, 0, 5, 0, 61, 0, 69, 0, 69, 0, 69, 0, 63, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_183[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_184[] = { 9, 0, 0, 24, 0, 36, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_185[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,112, 0, 32, 0, 32, 0, 32, 0, 96, 0, 32, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_186[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 0, 0, 56, 0, 68, 0, 68, 0, 56, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_187[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 72, 0, 36, 0, 18, 0, 9, 0, 9, 0, 18, 0, 36, 0, 72, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_188[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 13, 0, 9, 0, 5, 0,115, 0, 33, 0, 32, 0, 32, 0, 96, 0, 32, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_189[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 8, 0, 6, 0, 1, 0,121, 0, 38, 0, 32, 0, 32, 0, 96, 0, 32, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_190[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 13, 0, 9, 0, 5, 0, 51, 0, 73, 0, 8, 0, 16, 0, 72, 0, 48, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_191[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 64, 0, 32, 0, 16, 0, 8, 0, 8, 0, 0, 0, 8, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_192[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 8, 0, 16, 0, 32, 0}; -static const GLubyte Fixed9x15_Character_193[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 8, 0, 4, 0, 2, 0}; -static const GLubyte Fixed9x15_Character_194[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 34, 0, 20, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_195[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 78, 0, 49, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_196[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 34, 0, 34, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_197[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 34, 0, 20, 0, 28, 0, 34, 0, 28, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_198[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 79, 0, 72, 0, 72, 0, 72, 0,126, 0, 72, 0, 72, 0, 72, 0, 72, 0, 55, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_199[] = { 9, 0, 0, 24, 0, 36, 0, 12, 0, 62, 0, 65, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 65, 0, 62, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_200[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 32, 0, 32, 0, 32, 0, 60, 0, 32, 0, 32, 0,127, 0, 0, 0, 8, 0, 16, 0, 32, 0}; -static const GLubyte Fixed9x15_Character_201[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 32, 0, 32, 0, 32, 0, 60, 0, 32, 0, 32, 0,127, 0, 0, 0, 8, 0, 4, 0, 2, 0}; -static const GLubyte Fixed9x15_Character_202[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 32, 0, 32, 0, 32, 0, 60, 0, 32, 0, 32, 0,127, 0, 0, 0, 34, 0, 20, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_203[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 32, 0, 32, 0, 32, 0, 60, 0, 32, 0, 32, 0,127, 0, 0, 0, 34, 0, 34, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_204[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 62, 0, 0, 0, 8, 0, 16, 0, 32, 0}; -static const GLubyte Fixed9x15_Character_205[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 62, 0, 0, 0, 8, 0, 4, 0, 2, 0}; -static const GLubyte Fixed9x15_Character_206[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 62, 0, 0, 0, 34, 0, 20, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_207[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 62, 0, 0, 0, 34, 0, 34, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_208[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 33, 0, 33, 0, 33, 0, 33, 0,225, 0, 33, 0, 33, 0, 33, 0,124, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_209[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 67, 0, 69, 0, 73, 0, 73, 0, 81, 0, 97, 0, 65, 0, 0, 0, 78, 0, 49, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_210[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 8, 0, 16, 0, 32, 0}; -static const GLubyte Fixed9x15_Character_211[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 8, 0, 4, 0, 2, 0}; -static const GLubyte Fixed9x15_Character_212[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 34, 0, 20, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_213[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 78, 0, 49, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_214[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 34, 0, 34, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_215[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 34, 0, 20, 0, 8, 0, 20, 0, 34, 0, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_216[] = { 9, 0, 0, 0, 0, 0, 0, 64, 0, 62, 0, 97, 0, 81, 0, 81, 0, 73, 0, 73, 0, 69, 0, 69, 0, 67, 0, 62, 0, 1, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_217[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 8, 0, 16, 0, 32, 0}; -static const GLubyte Fixed9x15_Character_218[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 8, 0, 4, 0, 2, 0}; -static const GLubyte Fixed9x15_Character_219[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 34, 0, 20, 0, 8, 0}; -static const GLubyte Fixed9x15_Character_220[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 34, 0, 34, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_221[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 20, 0, 34, 0, 65, 0, 65, 0, 0, 0, 8, 0, 4, 0, 2, 0}; -static const GLubyte Fixed9x15_Character_222[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 64, 0, 64, 0, 64, 0,126, 0, 65, 0, 65, 0, 65, 0,126, 0, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_223[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 44, 0, 34, 0, 34, 0, 34, 0, 36, 0,104, 0, 36, 0, 34, 0, 34, 0, 28, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_224[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 4, 0, 8, 0, 16, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_225[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 8, 0, 4, 0, 2, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_226[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 34, 0, 20, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_227[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 38, 0, 25, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_228[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 34, 0, 34, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_229[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 67, 0, 65, 0, 63, 0, 1, 0, 1, 0, 62, 0, 0, 0, 12, 0, 18, 0, 12, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_230[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 55, 0, 73, 0, 72, 0, 62, 0, 9, 0, 73, 0, 54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_231[] = { 9, 0, 0, 24, 0, 36, 0, 12, 0, 62, 0, 65, 0, 64, 0, 64, 0, 64, 0, 65, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_232[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 64, 0, 64, 0,127, 0, 65, 0, 65, 0, 62, 0, 0, 0, 8, 0, 16, 0, 32, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_233[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 64, 0, 64, 0,127, 0, 65, 0, 65, 0, 62, 0, 0, 0, 8, 0, 4, 0, 2, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_234[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 64, 0, 64, 0,127, 0, 65, 0, 65, 0, 62, 0, 0, 0, 34, 0, 20, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_235[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 64, 0, 64, 0,127, 0, 65, 0, 65, 0, 62, 0, 0, 0, 34, 0, 34, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_236[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 56, 0, 0, 0, 8, 0, 16, 0, 32, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_237[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 56, 0, 0, 0, 16, 0, 8, 0, 4, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_238[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 56, 0, 0, 0, 68, 0, 40, 0, 16, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_239[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 56, 0, 0, 0, 36, 0, 36, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_240[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 4, 0, 40, 0, 24, 0, 36, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_241[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 97, 0, 94, 0, 0, 0, 78, 0, 49, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_242[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 8, 0, 16, 0, 32, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_243[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 8, 0, 4, 0, 2, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_244[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 34, 0, 20, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_245[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 78, 0, 49, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_246[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 62, 0, 0, 0, 34, 0, 34, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_247[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 28, 0, 8, 0, 0, 0,127, 0, 0, 0, 8, 0, 28, 0, 8, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_248[] = { 9, 0, 0, 0, 0, 0, 0, 64, 0, 62, 0, 81, 0, 81, 0, 73, 0, 69, 0, 69, 0, 62, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_249[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 8, 0, 16, 0, 32, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_250[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 8, 0, 4, 0, 2, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_251[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 34, 0, 20, 0, 8, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_252[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 61, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 36, 0, 36, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_253[] = { 9, 0, 0, 60, 0, 66, 0, 2, 0, 58, 0, 70, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 16, 0, 8, 0, 4, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_254[] = { 9, 0, 0, 64, 0, 64, 0, 64, 0, 94, 0, 97, 0, 65, 0, 65, 0, 97, 0, 94, 0, 64, 0, 64, 0, 64, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Fixed9x15_Character_255[] = { 9, 0, 0, 60, 0, 66, 0, 2, 0, 58, 0, 70, 0, 66, 0, 66, 0, 66, 0, 66, 0, 66, 0, 0, 0, 36, 0, 36, 0, 0, 0, 0, 0}; - -/* The font characters mapping: */ -static const GLubyte* Fixed9x15_Character_Map[] = {Fixed9x15_Character_000,Fixed9x15_Character_001,Fixed9x15_Character_002,Fixed9x15_Character_003,Fixed9x15_Character_004,Fixed9x15_Character_005,Fixed9x15_Character_006,Fixed9x15_Character_007,Fixed9x15_Character_008,Fixed9x15_Character_009,Fixed9x15_Character_010,Fixed9x15_Character_011,Fixed9x15_Character_012,Fixed9x15_Character_013,Fixed9x15_Character_014,Fixed9x15_Character_015, - Fixed9x15_Character_016,Fixed9x15_Character_017,Fixed9x15_Character_018,Fixed9x15_Character_019,Fixed9x15_Character_020,Fixed9x15_Character_021,Fixed9x15_Character_022,Fixed9x15_Character_023,Fixed9x15_Character_024,Fixed9x15_Character_025,Fixed9x15_Character_026,Fixed9x15_Character_027,Fixed9x15_Character_028,Fixed9x15_Character_029,Fixed9x15_Character_030,Fixed9x15_Character_031, - Fixed9x15_Character_032,Fixed9x15_Character_033,Fixed9x15_Character_034,Fixed9x15_Character_035,Fixed9x15_Character_036,Fixed9x15_Character_037,Fixed9x15_Character_038,Fixed9x15_Character_039,Fixed9x15_Character_040,Fixed9x15_Character_041,Fixed9x15_Character_042,Fixed9x15_Character_043,Fixed9x15_Character_044,Fixed9x15_Character_045,Fixed9x15_Character_046,Fixed9x15_Character_047, - Fixed9x15_Character_048,Fixed9x15_Character_049,Fixed9x15_Character_050,Fixed9x15_Character_051,Fixed9x15_Character_052,Fixed9x15_Character_053,Fixed9x15_Character_054,Fixed9x15_Character_055,Fixed9x15_Character_056,Fixed9x15_Character_057,Fixed9x15_Character_058,Fixed9x15_Character_059,Fixed9x15_Character_060,Fixed9x15_Character_061,Fixed9x15_Character_062,Fixed9x15_Character_063, - Fixed9x15_Character_064,Fixed9x15_Character_065,Fixed9x15_Character_066,Fixed9x15_Character_067,Fixed9x15_Character_068,Fixed9x15_Character_069,Fixed9x15_Character_070,Fixed9x15_Character_071,Fixed9x15_Character_072,Fixed9x15_Character_073,Fixed9x15_Character_074,Fixed9x15_Character_075,Fixed9x15_Character_076,Fixed9x15_Character_077,Fixed9x15_Character_078,Fixed9x15_Character_079, - Fixed9x15_Character_080,Fixed9x15_Character_081,Fixed9x15_Character_082,Fixed9x15_Character_083,Fixed9x15_Character_084,Fixed9x15_Character_085,Fixed9x15_Character_086,Fixed9x15_Character_087,Fixed9x15_Character_088,Fixed9x15_Character_089,Fixed9x15_Character_090,Fixed9x15_Character_091,Fixed9x15_Character_092,Fixed9x15_Character_093,Fixed9x15_Character_094,Fixed9x15_Character_095, - Fixed9x15_Character_096,Fixed9x15_Character_097,Fixed9x15_Character_098,Fixed9x15_Character_099,Fixed9x15_Character_100,Fixed9x15_Character_101,Fixed9x15_Character_102,Fixed9x15_Character_103,Fixed9x15_Character_104,Fixed9x15_Character_105,Fixed9x15_Character_106,Fixed9x15_Character_107,Fixed9x15_Character_108,Fixed9x15_Character_109,Fixed9x15_Character_110,Fixed9x15_Character_111, - Fixed9x15_Character_112,Fixed9x15_Character_113,Fixed9x15_Character_114,Fixed9x15_Character_115,Fixed9x15_Character_116,Fixed9x15_Character_117,Fixed9x15_Character_118,Fixed9x15_Character_119,Fixed9x15_Character_120,Fixed9x15_Character_121,Fixed9x15_Character_122,Fixed9x15_Character_123,Fixed9x15_Character_124,Fixed9x15_Character_125,Fixed9x15_Character_126,Fixed9x15_Character_032, - Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032, - Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032,Fixed9x15_Character_032, - Fixed9x15_Character_160,Fixed9x15_Character_161,Fixed9x15_Character_162,Fixed9x15_Character_163,Fixed9x15_Character_164,Fixed9x15_Character_165,Fixed9x15_Character_166,Fixed9x15_Character_167,Fixed9x15_Character_168,Fixed9x15_Character_169,Fixed9x15_Character_170,Fixed9x15_Character_171,Fixed9x15_Character_172,Fixed9x15_Character_173,Fixed9x15_Character_174,Fixed9x15_Character_175, - Fixed9x15_Character_176,Fixed9x15_Character_177,Fixed9x15_Character_178,Fixed9x15_Character_179,Fixed9x15_Character_180,Fixed9x15_Character_181,Fixed9x15_Character_182,Fixed9x15_Character_183,Fixed9x15_Character_184,Fixed9x15_Character_185,Fixed9x15_Character_186,Fixed9x15_Character_187,Fixed9x15_Character_188,Fixed9x15_Character_189,Fixed9x15_Character_190,Fixed9x15_Character_191, - Fixed9x15_Character_192,Fixed9x15_Character_193,Fixed9x15_Character_194,Fixed9x15_Character_195,Fixed9x15_Character_196,Fixed9x15_Character_197,Fixed9x15_Character_198,Fixed9x15_Character_199,Fixed9x15_Character_200,Fixed9x15_Character_201,Fixed9x15_Character_202,Fixed9x15_Character_203,Fixed9x15_Character_204,Fixed9x15_Character_205,Fixed9x15_Character_206,Fixed9x15_Character_207, - Fixed9x15_Character_208,Fixed9x15_Character_209,Fixed9x15_Character_210,Fixed9x15_Character_211,Fixed9x15_Character_212,Fixed9x15_Character_213,Fixed9x15_Character_214,Fixed9x15_Character_215,Fixed9x15_Character_216,Fixed9x15_Character_217,Fixed9x15_Character_218,Fixed9x15_Character_219,Fixed9x15_Character_220,Fixed9x15_Character_221,Fixed9x15_Character_222,Fixed9x15_Character_223, - Fixed9x15_Character_224,Fixed9x15_Character_225,Fixed9x15_Character_226,Fixed9x15_Character_227,Fixed9x15_Character_228,Fixed9x15_Character_229,Fixed9x15_Character_230,Fixed9x15_Character_231,Fixed9x15_Character_232,Fixed9x15_Character_233,Fixed9x15_Character_234,Fixed9x15_Character_235,Fixed9x15_Character_236,Fixed9x15_Character_237,Fixed9x15_Character_238,Fixed9x15_Character_239, - Fixed9x15_Character_240,Fixed9x15_Character_241,Fixed9x15_Character_242,Fixed9x15_Character_243,Fixed9x15_Character_244,Fixed9x15_Character_245,Fixed9x15_Character_246,Fixed9x15_Character_247,Fixed9x15_Character_248,Fixed9x15_Character_249,Fixed9x15_Character_250,Fixed9x15_Character_251,Fixed9x15_Character_252,Fixed9x15_Character_253,Fixed9x15_Character_254,Fixed9x15_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontFixed9x15 = { "-misc-fixed-medium-r-normal--15-140-75-75-C-90-iso8859-1", 256, 16, Fixed9x15_Character_Map, 0, 4 }; - -static const GLubyte Helvetica10_Character_000[] = { 8, 0, 0, 0, 84, 0, 68, 0, 68, 0, 84, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_001[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_002[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_003[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_004[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_005[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_006[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_007[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_008[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_009[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_010[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_011[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_012[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_013[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_014[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_015[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_016[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_017[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_018[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_019[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_020[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_021[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_022[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_023[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_024[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_025[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_026[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_027[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_028[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_029[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_030[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_031[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_032[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_033[] = { 3, 0, 0, 0, 64, 0, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_034[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 80, 0, 0, 0}; -static const GLubyte Helvetica10_Character_035[] = { 6, 0, 0, 0, 80, 80,248, 40,124, 40, 40, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_036[] = { 6, 0, 0, 32,112,168, 40,112,160,168,112, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_037[] = { 9, 0, 0, 0, 0, 0, 0, 38, 0, 41, 0, 22, 0, 16, 0, 8, 0,104, 0,148, 0,100, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_038[] = { 8, 0, 0, 0, 50, 76, 76, 82, 48, 40, 40, 16, 0, 0, 0}; -static const GLubyte Helvetica10_Character_039[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 64, 32, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_040[] = { 4, 0, 32, 64, 64,128,128,128,128, 64, 64, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_041[] = { 4, 0, 64, 32, 32, 16, 16, 16, 16, 32, 32, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_042[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0,160, 64,160, 0, 0, 0}; -static const GLubyte Helvetica10_Character_043[] = { 6, 0, 0, 0, 0, 32, 32,248, 32, 32, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_044[] = { 3, 0,128, 64, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_045[] = { 7, 0, 0, 0, 0, 0, 0,124, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_046[] = { 3, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_047[] = { 3, 0, 0, 0,128,128, 64, 64, 64, 64, 32, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_048[] = { 6, 0, 0, 0,112,136,136,136,136,136,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_049[] = { 6, 0, 0, 0, 32, 32, 32, 32, 32, 32, 96, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_050[] = { 6, 0, 0, 0,248,128, 64, 48, 8, 8,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_051[] = { 6, 0, 0, 0,112,136, 8, 8, 48, 8,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_052[] = { 6, 0, 0, 0, 16, 16,248,144, 80, 80, 48, 16, 0, 0, 0}; -static const GLubyte Helvetica10_Character_053[] = { 6, 0, 0, 0,112,136, 8, 8,240,128,128,248, 0, 0, 0}; -static const GLubyte Helvetica10_Character_054[] = { 6, 0, 0, 0,112,136,136,200,176,128,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_055[] = { 6, 0, 0, 0, 64, 64, 32, 32, 16, 16, 8,248, 0, 0, 0}; -static const GLubyte Helvetica10_Character_056[] = { 6, 0, 0, 0,112,136,136,136,112,136,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_057[] = { 6, 0, 0, 0,112,136, 8,104,152,136,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_058[] = { 3, 0, 0, 0, 64, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_059[] = { 3, 0,128, 64, 64, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_060[] = { 6, 0, 0, 0, 0, 16, 32, 64, 32, 16, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_061[] = { 5, 0, 0, 0, 0, 0,240, 0,240, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_062[] = { 6, 0, 0, 0, 0, 64, 32, 16, 32, 64, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_063[] = { 6, 0, 0, 0, 32, 0, 32, 32, 16, 8, 72, 48, 0, 0, 0}; -static const GLubyte Helvetica10_Character_064[] = { 11, 0, 0, 62, 0, 64, 0,155, 0,164,128,164,128,162, 64,146, 64, 77, 64, 32,128, 31, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_065[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 0, 0, 0}; -static const GLubyte Helvetica10_Character_066[] = { 7, 0, 0, 0,120, 68, 68, 68,120, 68, 68,120, 0, 0, 0}; -static const GLubyte Helvetica10_Character_067[] = { 8, 0, 0, 0, 60, 66, 64, 64, 64, 64, 66, 60, 0, 0, 0}; -static const GLubyte Helvetica10_Character_068[] = { 8, 0, 0, 0,120, 68, 66, 66, 66, 66, 68,120, 0, 0, 0}; -static const GLubyte Helvetica10_Character_069[] = { 7, 0, 0, 0,124, 64, 64, 64,124, 64, 64,124, 0, 0, 0}; -static const GLubyte Helvetica10_Character_070[] = { 6, 0, 0, 0, 64, 64, 64, 64,120, 64, 64,124, 0, 0, 0}; -static const GLubyte Helvetica10_Character_071[] = { 8, 0, 0, 0, 58, 70, 66, 70, 64, 64, 66, 60, 0, 0, 0}; -static const GLubyte Helvetica10_Character_072[] = { 8, 0, 0, 0, 66, 66, 66, 66,126, 66, 66, 66, 0, 0, 0}; -static const GLubyte Helvetica10_Character_073[] = { 3, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_074[] = { 5, 0, 0, 0, 96,144, 16, 16, 16, 16, 16, 16, 0, 0, 0}; -static const GLubyte Helvetica10_Character_075[] = { 7, 0, 0, 0, 68, 68, 72, 72,112, 80, 72, 68, 0, 0, 0}; -static const GLubyte Helvetica10_Character_076[] = { 6, 0, 0, 0,120, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_077[] = { 9, 0, 0, 0, 0, 0, 0, 73, 0, 73, 0, 73, 0, 85, 0, 85, 0, 99, 0, 99, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_078[] = { 8, 0, 0, 0, 70, 70, 74, 74, 82, 82, 98, 98, 0, 0, 0}; -static const GLubyte Helvetica10_Character_079[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 60, 0, 0, 0}; -static const GLubyte Helvetica10_Character_080[] = { 7, 0, 0, 0, 64, 64, 64, 64,120, 68, 68,120, 0, 0, 0}; -static const GLubyte Helvetica10_Character_081[] = { 8, 0, 0, 1, 62, 70, 74, 66, 66, 66, 66, 60, 0, 0, 0}; -static const GLubyte Helvetica10_Character_082[] = { 7, 0, 0, 0, 68, 68, 68, 68,120, 68, 68,120, 0, 0, 0}; -static const GLubyte Helvetica10_Character_083[] = { 7, 0, 0, 0, 56, 68, 68, 4, 56, 64, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica10_Character_084[] = { 5, 0, 0, 0, 32, 32, 32, 32, 32, 32, 32,248, 0, 0, 0}; -static const GLubyte Helvetica10_Character_085[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 0, 0, 0}; -static const GLubyte Helvetica10_Character_086[] = { 7, 0, 0, 0, 16, 40, 40, 68, 68, 68,130,130, 0, 0, 0}; -static const GLubyte Helvetica10_Character_087[] = { 9, 0, 0, 0, 0, 0, 0, 34, 0, 34, 0, 34, 0, 85, 0, 73, 0, 73, 0,136,128,136,128, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_088[] = { 7, 0, 0, 0, 68, 68, 40, 40, 16, 40, 68, 68, 0, 0, 0}; -static const GLubyte Helvetica10_Character_089[] = { 7, 0, 0, 0, 16, 16, 16, 40, 40, 68, 68,130, 0, 0, 0}; -static const GLubyte Helvetica10_Character_090[] = { 7, 0, 0, 0,124, 64, 32, 16, 16, 8, 4,124, 0, 0, 0}; -static const GLubyte Helvetica10_Character_091[] = { 3, 0, 96, 64, 64, 64, 64, 64, 64, 64, 64, 96, 0, 0, 0}; -static const GLubyte Helvetica10_Character_092[] = { 3, 0, 0, 0, 32, 32, 64, 64, 64, 64,128,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_093[] = { 3, 0,192, 64, 64, 64, 64, 64, 64, 64, 64,192, 0, 0, 0}; -static const GLubyte Helvetica10_Character_094[] = { 6, 0, 0, 0, 0, 0, 0,136, 80, 80, 32, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_095[] = { 6, 0,252, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_096[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 63, 64, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_097[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_098[] = { 6, 0, 0, 0,176,200,136,136,200,176,128,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_099[] = { 5, 0, 0, 0, 96,144,128,128,144, 96, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_100[] = { 6, 0, 0, 0,104,152,136,136,152,104, 8, 8, 0, 0, 0}; -static const GLubyte Helvetica10_Character_101[] = { 5, 0, 0, 0, 96,144,128,240,144, 96, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_102[] = { 4, 0, 0, 0, 64, 64, 64, 64, 64,224, 64, 48, 0, 0, 0}; -static const GLubyte Helvetica10_Character_103[] = { 6, 0,112, 8,104,152,136,136,152,104, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_104[] = { 6, 0, 0, 0,136,136,136,136,200,176,128,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_105[] = { 2, 0, 0, 0,128,128,128,128,128,128, 0,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_106[] = { 2, 0, 0,128,128,128,128,128,128,128, 0,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_107[] = { 5, 0, 0, 0,144,144,160,192,160,144,128,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_108[] = { 2, 0, 0, 0,128,128,128,128,128,128,128,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_109[] = { 8, 0, 0, 0,146,146,146,146,146,236, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_110[] = { 6, 0, 0, 0,136,136,136,136,200,176, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_111[] = { 6, 0, 0, 0,112,136,136,136,136,112, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_112[] = { 6, 0,128,128,176,200,136,136,200,176, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_113[] = { 6, 0, 8, 8,104,152,136,136,152,104, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_114[] = { 4, 0, 0, 0,128,128,128,128,192,160, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_115[] = { 5, 0, 0, 0, 96,144, 16, 96,144, 96, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_116[] = { 4, 0, 0, 0, 96, 64, 64, 64, 64,224, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_117[] = { 5, 0, 0, 0,112,144,144,144,144,144, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_118[] = { 6, 0, 0, 0, 32, 32, 80, 80,136,136, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_119[] = { 8, 0, 0, 0, 40, 40, 84, 84,146,146, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_120[] = { 6, 0, 0, 0,136,136, 80, 32, 80,136, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_121[] = { 5, 0,128, 64, 64, 96,160,160,144,144, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_122[] = { 5, 0, 0, 0,240,128, 64, 32, 16,240, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_123[] = { 3, 0, 32, 64, 64, 64, 64,128, 64, 64, 64, 32, 0, 0, 0}; -static const GLubyte Helvetica10_Character_124[] = { 3, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_125[] = { 3, 0,128, 64, 64, 64, 64, 32, 64, 64, 64,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_126[] = { 7, 0, 0, 0, 0, 0, 0,152,100, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_127[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_128[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_129[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_130[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_131[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_132[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_133[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_134[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_135[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_136[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_137[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_138[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_139[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_140[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_141[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_142[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_143[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_144[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_145[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_146[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_147[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_148[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_149[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_150[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_151[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_152[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_153[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_154[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_155[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_156[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_157[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_158[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_159[] = { 13, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 68, 0, 0, 0, 68, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_160[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_161[] = { 3, 0, 64, 64, 64, 64, 64, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_162[] = { 6, 0, 0, 64,112,168,160,160,168,112, 16, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_163[] = { 6, 0, 0, 0,176, 72, 64, 64,224, 64, 72, 48, 0, 0, 0}; -static const GLubyte Helvetica10_Character_164[] = { 5, 0, 0, 0, 0,144, 96,144,144, 96,144, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_165[] = { 6, 0, 0, 0, 32,248, 32,248, 80, 80,136,136, 0, 0, 0}; -static const GLubyte Helvetica10_Character_166[] = { 3, 0, 64, 64, 64, 64, 0, 0, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_167[] = { 6, 0,112,136, 24,112,200,152,112,192,136,112, 0, 0, 0}; -static const GLubyte Helvetica10_Character_168[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,160, 0, 0, 0}; -static const GLubyte Helvetica10_Character_169[] = { 9, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 77, 0, 81, 0, 77, 0, 34, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_170[] = { 4, 0, 0, 0, 0, 0, 0,224, 0,160, 32,224, 0, 0, 0}; -static const GLubyte Helvetica10_Character_171[] = { 6, 0, 0, 0, 40, 80,160, 80, 40, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_172[] = { 7, 0, 0, 0, 0, 0, 4, 4,124, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_173[] = { 4, 0, 0, 0, 0, 0, 0,224, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_174[] = { 9, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 85, 0, 89, 0, 93, 0, 34, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_175[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,224, 0, 0, 0}; -static const GLubyte Helvetica10_Character_176[] = { 4, 0, 0, 0, 0, 0, 0, 96,144,144, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_177[] = { 6, 0, 0, 0,248, 0, 32, 32,248, 32, 32, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_178[] = { 3, 0, 0, 0, 0, 0, 0,224, 64,160, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_179[] = { 3, 0, 0, 0, 0, 0, 0,192, 32, 64,224, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_180[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_181[] = { 5, 0,128,128,240,144,144,144,144,144, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_182[] = { 6, 0, 40, 40, 40, 40, 40,104,232,232,232,124, 0, 0, 0}; -static const GLubyte Helvetica10_Character_183[] = { 3, 0, 0, 0, 0, 0, 0,192, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_184[] = { 3, 0,192, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_185[] = { 3, 0, 0, 0, 0, 0, 0, 64, 64,192, 64, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_186[] = { 4, 0, 0, 0, 0, 0, 0,224, 0,224,160,224, 0, 0, 0}; -static const GLubyte Helvetica10_Character_187[] = { 6, 0, 0, 0,160, 80, 40, 80,160, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_188[] = { 9, 0, 0, 0, 0, 0, 0, 33, 0, 23,128, 19, 0, 9, 0, 72, 0, 68, 0,196, 0, 66, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_189[] = { 9, 0, 0, 0, 0, 0, 0, 39, 0, 18, 0, 21, 0, 11, 0, 72, 0, 68, 0,196, 0, 66, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_190[] = { 9, 0, 0, 0, 0, 0, 0, 33, 0, 23,128, 19, 0, 9, 0,200, 0, 36, 0, 68, 0,226, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_191[] = { 6, 0, 48, 72, 64, 32, 16, 16, 0, 16, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_192[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 0, 16, 32}; -static const GLubyte Helvetica10_Character_193[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 0, 16, 8}; -static const GLubyte Helvetica10_Character_194[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 0, 40, 16}; -static const GLubyte Helvetica10_Character_195[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 0, 40, 20}; -static const GLubyte Helvetica10_Character_196[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 0, 40, 0}; -static const GLubyte Helvetica10_Character_197[] = { 7, 0, 0, 0,130,130,124, 68, 40, 40, 16, 16, 16, 40, 16}; -static const GLubyte Helvetica10_Character_198[] = { 10, 0, 0, 0, 0, 0, 0,143,128,136, 0,120, 0, 72, 0, 47,128, 40, 0, 24, 0, 31,128, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_199[] = { 8, 0, 24, 8, 60, 66, 64, 64, 64, 64, 66, 60, 0, 0, 0}; -static const GLubyte Helvetica10_Character_200[] = { 7, 0, 0, 0,124, 64, 64, 64,124, 64, 64,124, 0, 16, 32}; -static const GLubyte Helvetica10_Character_201[] = { 7, 0, 0, 0,124, 64, 64, 64,124, 64, 64,124, 0, 16, 8}; -static const GLubyte Helvetica10_Character_202[] = { 7, 0, 0, 0,124, 64, 64,124, 64, 64, 64,124, 0, 40, 16}; -static const GLubyte Helvetica10_Character_203[] = { 7, 0, 0, 0,124, 64, 64, 64,124, 64, 64,124, 0, 40, 0}; -static const GLubyte Helvetica10_Character_204[] = { 3, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64,128}; -static const GLubyte Helvetica10_Character_205[] = { 3, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64, 32}; -static const GLubyte Helvetica10_Character_206[] = { 3, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 0,160, 64}; -static const GLubyte Helvetica10_Character_207[] = { 3, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 0,160, 0}; -static const GLubyte Helvetica10_Character_208[] = { 8, 0, 0, 0,120, 68, 66, 66,242, 66, 68,120, 0, 0, 0}; -static const GLubyte Helvetica10_Character_209[] = { 8, 0, 0, 0, 70, 70, 74, 74, 82, 82, 98, 98, 0, 40, 20}; -static const GLubyte Helvetica10_Character_210[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 60, 0, 8, 16}; -static const GLubyte Helvetica10_Character_211[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 60, 0, 8, 4}; -static const GLubyte Helvetica10_Character_212[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 60, 0, 20, 8}; -static const GLubyte Helvetica10_Character_213[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 60, 0, 40, 20}; -static const GLubyte Helvetica10_Character_214[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 60, 0, 36, 0}; -static const GLubyte Helvetica10_Character_215[] = { 6, 0, 0, 0, 0,136, 80, 32, 80,136, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_216[] = { 8, 0, 0, 64, 60, 98, 82, 82, 74, 74, 70, 60, 2, 0, 0}; -static const GLubyte Helvetica10_Character_217[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 0, 8, 16}; -static const GLubyte Helvetica10_Character_218[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 0, 16, 8}; -static const GLubyte Helvetica10_Character_219[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 0, 20, 8}; -static const GLubyte Helvetica10_Character_220[] = { 8, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 0, 36, 0}; -static const GLubyte Helvetica10_Character_221[] = { 7, 0, 0, 0, 16, 16, 16, 40, 40, 68, 68,130, 0, 16, 8}; -static const GLubyte Helvetica10_Character_222[] = { 7, 0, 0, 0, 64, 64,120, 68, 68,120, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica10_Character_223[] = { 5, 0, 0, 0,160,144,144,144,160,144,144, 96, 0, 0, 0}; -static const GLubyte Helvetica10_Character_224[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 0, 32, 64, 0, 0}; -static const GLubyte Helvetica10_Character_225[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 0, 32, 16, 0, 0}; -static const GLubyte Helvetica10_Character_226[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 0, 80, 32, 0, 0}; -static const GLubyte Helvetica10_Character_227[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 0,160, 80, 0, 0}; -static const GLubyte Helvetica10_Character_228[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 0, 80, 0, 0, 0}; -static const GLubyte Helvetica10_Character_229[] = { 5, 0, 0, 0,104,144,144,112, 16,224, 32, 80, 32, 0, 0}; -static const GLubyte Helvetica10_Character_230[] = { 8, 0, 0, 0,108,146,144,126, 18,236, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_231[] = { 5, 0, 96, 32, 96,144,128,128,144, 96, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_232[] = { 5, 0, 0, 0, 96,144,128,240,144, 96, 0, 32, 64, 0, 0}; -static const GLubyte Helvetica10_Character_233[] = { 5, 0, 0, 0, 96,144,128,240,144, 96, 0, 64, 32, 0, 0}; -static const GLubyte Helvetica10_Character_234[] = { 5, 0, 0, 0, 96,144,128,240,144, 96, 0, 80, 32, 0, 0}; -static const GLubyte Helvetica10_Character_235[] = { 5, 0, 0, 0, 96,144,128,240,144, 96, 0, 80, 0, 0, 0}; -static const GLubyte Helvetica10_Character_236[] = { 2, 0, 0, 0,128,128,128,128,128,128, 0,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_237[] = { 2, 0, 0, 0,128,128,128,128,128,128, 0,128, 64, 0, 0}; -static const GLubyte Helvetica10_Character_238[] = { 2, 0, 0, 0,128,128,128,128,128,128, 0, 64,128, 0, 0}; -static const GLubyte Helvetica10_Character_239[] = { 2, 0, 0, 0, 64, 64, 64, 64, 64, 64, 0,160, 0, 0, 0}; -static const GLubyte Helvetica10_Character_240[] = { 6, 0, 0, 0,112,136,136,136,136,120,144, 96, 80, 0, 0}; -static const GLubyte Helvetica10_Character_241[] = { 5, 0, 0, 0,144,144,144,144,144,224, 0,160, 80, 0, 0}; -static const GLubyte Helvetica10_Character_242[] = { 6, 0, 0, 0,112,136,136,136,136,112, 0, 32, 64, 0, 0}; -static const GLubyte Helvetica10_Character_243[] = { 6, 0, 0, 0,112,136,136,136,136,112, 0, 32, 16, 0, 0}; -static const GLubyte Helvetica10_Character_244[] = { 6, 0, 0, 0,112,136,136,136,136,112, 0, 80, 32, 0, 0}; -static const GLubyte Helvetica10_Character_245[] = { 6, 0, 0, 0,112,136,136,136,136,112, 0, 80, 40, 0, 0}; -static const GLubyte Helvetica10_Character_246[] = { 6, 0, 0, 0,112,136,136,136,136,112, 0, 80, 0, 0, 0}; -static const GLubyte Helvetica10_Character_247[] = { 6, 0, 0, 0, 0, 32, 0,248, 0, 32, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_248[] = { 6, 0, 0, 0,112,136,200,168,152,116, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica10_Character_249[] = { 5, 0, 0, 0,112,144,144,144,144,144, 0, 32, 64, 0, 0}; -static const GLubyte Helvetica10_Character_250[] = { 5, 0, 0, 0,112,144,144,144,144,144, 0, 64, 32, 0, 0}; -static const GLubyte Helvetica10_Character_251[] = { 5, 0, 0, 0,112,144,144,144,144,144, 0, 80, 32, 0, 0}; -static const GLubyte Helvetica10_Character_252[] = { 5, 0, 0, 0,112,144,144,144,144,144, 0, 80, 0, 0, 0}; -static const GLubyte Helvetica10_Character_253[] = { 5, 0,128, 64, 64, 96,160,160,144,144, 0, 32, 16, 0, 0}; -static const GLubyte Helvetica10_Character_254[] = { 6, 0,128,128,176,200,136,136,200,176,128,128, 0, 0, 0}; -static const GLubyte Helvetica10_Character_255[] = { 5, 0,128, 64, 64, 96,160,160,144,144, 0, 80, 0, 0, 0}; - -/* The font characters mapping: */ -static const GLubyte* Helvetica10_Character_Map[] = {Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032, - Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032, - Helvetica10_Character_032,Helvetica10_Character_033,Helvetica10_Character_034,Helvetica10_Character_035,Helvetica10_Character_036,Helvetica10_Character_037,Helvetica10_Character_038,Helvetica10_Character_039,Helvetica10_Character_040,Helvetica10_Character_041,Helvetica10_Character_042,Helvetica10_Character_043,Helvetica10_Character_044,Helvetica10_Character_045,Helvetica10_Character_046,Helvetica10_Character_047, - Helvetica10_Character_048,Helvetica10_Character_049,Helvetica10_Character_050,Helvetica10_Character_051,Helvetica10_Character_052,Helvetica10_Character_053,Helvetica10_Character_054,Helvetica10_Character_055,Helvetica10_Character_056,Helvetica10_Character_057,Helvetica10_Character_058,Helvetica10_Character_059,Helvetica10_Character_060,Helvetica10_Character_061,Helvetica10_Character_062,Helvetica10_Character_063, - Helvetica10_Character_064,Helvetica10_Character_065,Helvetica10_Character_066,Helvetica10_Character_067,Helvetica10_Character_068,Helvetica10_Character_069,Helvetica10_Character_070,Helvetica10_Character_071,Helvetica10_Character_072,Helvetica10_Character_073,Helvetica10_Character_074,Helvetica10_Character_075,Helvetica10_Character_076,Helvetica10_Character_077,Helvetica10_Character_078,Helvetica10_Character_079, - Helvetica10_Character_080,Helvetica10_Character_081,Helvetica10_Character_082,Helvetica10_Character_083,Helvetica10_Character_084,Helvetica10_Character_085,Helvetica10_Character_086,Helvetica10_Character_087,Helvetica10_Character_088,Helvetica10_Character_089,Helvetica10_Character_090,Helvetica10_Character_091,Helvetica10_Character_092,Helvetica10_Character_093,Helvetica10_Character_094,Helvetica10_Character_095, - Helvetica10_Character_096,Helvetica10_Character_097,Helvetica10_Character_098,Helvetica10_Character_099,Helvetica10_Character_100,Helvetica10_Character_101,Helvetica10_Character_102,Helvetica10_Character_103,Helvetica10_Character_104,Helvetica10_Character_105,Helvetica10_Character_106,Helvetica10_Character_107,Helvetica10_Character_108,Helvetica10_Character_109,Helvetica10_Character_110,Helvetica10_Character_111, - Helvetica10_Character_112,Helvetica10_Character_113,Helvetica10_Character_114,Helvetica10_Character_115,Helvetica10_Character_116,Helvetica10_Character_117,Helvetica10_Character_118,Helvetica10_Character_119,Helvetica10_Character_120,Helvetica10_Character_121,Helvetica10_Character_122,Helvetica10_Character_123,Helvetica10_Character_124,Helvetica10_Character_125,Helvetica10_Character_126,Helvetica10_Character_032, - Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032, - Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032,Helvetica10_Character_032, - Helvetica10_Character_160,Helvetica10_Character_161,Helvetica10_Character_162,Helvetica10_Character_163,Helvetica10_Character_164,Helvetica10_Character_165,Helvetica10_Character_166,Helvetica10_Character_167,Helvetica10_Character_168,Helvetica10_Character_169,Helvetica10_Character_170,Helvetica10_Character_171,Helvetica10_Character_172,Helvetica10_Character_173,Helvetica10_Character_174,Helvetica10_Character_175, - Helvetica10_Character_176,Helvetica10_Character_177,Helvetica10_Character_178,Helvetica10_Character_179,Helvetica10_Character_180,Helvetica10_Character_181,Helvetica10_Character_182,Helvetica10_Character_183,Helvetica10_Character_184,Helvetica10_Character_185,Helvetica10_Character_186,Helvetica10_Character_187,Helvetica10_Character_188,Helvetica10_Character_189,Helvetica10_Character_190,Helvetica10_Character_191, - Helvetica10_Character_192,Helvetica10_Character_193,Helvetica10_Character_194,Helvetica10_Character_195,Helvetica10_Character_196,Helvetica10_Character_197,Helvetica10_Character_198,Helvetica10_Character_199,Helvetica10_Character_200,Helvetica10_Character_201,Helvetica10_Character_202,Helvetica10_Character_203,Helvetica10_Character_204,Helvetica10_Character_205,Helvetica10_Character_206,Helvetica10_Character_207, - Helvetica10_Character_208,Helvetica10_Character_209,Helvetica10_Character_210,Helvetica10_Character_211,Helvetica10_Character_212,Helvetica10_Character_213,Helvetica10_Character_214,Helvetica10_Character_215,Helvetica10_Character_216,Helvetica10_Character_217,Helvetica10_Character_218,Helvetica10_Character_219,Helvetica10_Character_220,Helvetica10_Character_221,Helvetica10_Character_222,Helvetica10_Character_223, - Helvetica10_Character_224,Helvetica10_Character_225,Helvetica10_Character_226,Helvetica10_Character_227,Helvetica10_Character_228,Helvetica10_Character_229,Helvetica10_Character_230,Helvetica10_Character_231,Helvetica10_Character_232,Helvetica10_Character_233,Helvetica10_Character_234,Helvetica10_Character_235,Helvetica10_Character_236,Helvetica10_Character_237,Helvetica10_Character_238,Helvetica10_Character_239, - Helvetica10_Character_240,Helvetica10_Character_241,Helvetica10_Character_242,Helvetica10_Character_243,Helvetica10_Character_244,Helvetica10_Character_245,Helvetica10_Character_246,Helvetica10_Character_247,Helvetica10_Character_248,Helvetica10_Character_249,Helvetica10_Character_250,Helvetica10_Character_251,Helvetica10_Character_252,Helvetica10_Character_253,Helvetica10_Character_254,Helvetica10_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontHelvetica10 = { "-adobe-helvetica-medium-r-normal--10-100-75-75-p-56-iso8859-1", 256, 14, Helvetica10_Character_Map, 0, 3 }; - -static const GLubyte Helvetica12_Character_000[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_001[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_002[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_003[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_004[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_005[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_006[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_007[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_008[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_009[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_010[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_011[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_012[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_013[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_014[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_015[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_016[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_017[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_018[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_019[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_020[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_021[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_022[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_023[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_024[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_025[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_026[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_027[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_028[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_029[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_030[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_031[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_032[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_033[] = { 3, 0, 0, 0, 0, 64, 0, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_034[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 80, 80, 0, 0, 0}; -static const GLubyte Helvetica12_Character_035[] = { 7, 0, 0, 0, 0, 80, 80, 80,252, 40,252, 40, 40, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_036[] = { 7, 0, 0, 0, 16, 56, 84, 84, 20, 56, 80, 84, 56, 16, 0, 0, 0}; -static const GLubyte Helvetica12_Character_037[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 17,128, 10, 64, 10, 64, 9,128, 4, 0, 52, 0, 74, 0, 74, 0, 49, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_038[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 57, 0, 70, 0, 66, 0, 69, 0, 40, 0, 24, 0, 36, 0, 36, 0, 24, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_039[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, 32, 96, 0, 0, 0}; -static const GLubyte Helvetica12_Character_040[] = { 4, 0, 16, 32, 32, 64, 64, 64, 64, 64, 64, 32, 32, 16, 0, 0, 0}; -static const GLubyte Helvetica12_Character_041[] = { 4, 0,128, 64, 64, 32, 32, 32, 32, 32, 32, 64, 64,128, 0, 0, 0}; -static const GLubyte Helvetica12_Character_042[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 32, 80, 0, 0, 0}; -static const GLubyte Helvetica12_Character_043[] = { 7, 0, 0, 0, 0, 0, 16, 16,124, 16, 16, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_044[] = { 4, 0, 0, 64, 32, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_045[] = { 8, 0, 0, 0, 0, 0, 0, 0,124, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_046[] = { 3, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_047[] = { 4, 0, 0, 0, 0,128,128, 64, 64, 64, 32, 32, 16, 16, 0, 0, 0}; -static const GLubyte Helvetica12_Character_048[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 68, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_049[] = { 7, 0, 0, 0, 0, 16, 16, 16, 16, 16, 16, 16,112, 16, 0, 0, 0}; -static const GLubyte Helvetica12_Character_050[] = { 7, 0, 0, 0, 0,124, 64, 64, 32, 16, 8, 4, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_051[] = { 7, 0, 0, 0, 0, 56, 68, 68, 4, 4, 24, 4, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_052[] = { 7, 0, 0, 0, 0, 8, 8,252,136, 72, 40, 40, 24, 8, 0, 0, 0}; -static const GLubyte Helvetica12_Character_053[] = { 7, 0, 0, 0, 0, 56, 68, 68, 4, 4,120, 64, 64,124, 0, 0, 0}; -static const GLubyte Helvetica12_Character_054[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68,100, 88, 64, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_055[] = { 7, 0, 0, 0, 0, 32, 32, 16, 16, 16, 8, 8, 4,124, 0, 0, 0}; -static const GLubyte Helvetica12_Character_056[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 56, 68, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_057[] = { 7, 0, 0, 0, 0, 56, 68, 4, 4, 60, 68, 68, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_058[] = { 3, 0, 0, 0, 0, 64, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_059[] = { 3, 0, 0,128, 64, 64, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_060[] = { 7, 0, 0, 0, 0, 0, 12, 48,192, 48, 12, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_061[] = { 7, 0, 0, 0, 0, 0, 0,124, 0,124, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_062[] = { 7, 0, 0, 0, 0, 0, 96, 24, 6, 24, 96, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_063[] = { 7, 0, 0, 0, 0, 16, 0, 16, 16, 8, 8, 68, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_064[] = { 12, 0, 0, 0, 0, 0, 0, 31, 0, 32, 0, 77,128, 83, 64, 81, 32, 81, 32, 73, 32, 38,160, 48, 64, 15,128, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_065[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 20, 0, 8, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_066[] = { 8, 0, 0, 0, 0,124, 66, 66, 66,124, 66, 66, 66,124, 0, 0, 0}; -static const GLubyte Helvetica12_Character_067[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 33, 0, 30, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_068[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 66, 0, 65, 0, 65, 0, 65, 0, 65, 0, 65, 0, 66, 0,124, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_069[] = { 8, 0, 0, 0, 0,126, 64, 64, 64,126, 64, 64, 64,126, 0, 0, 0}; -static const GLubyte Helvetica12_Character_070[] = { 8, 0, 0, 0, 0, 64, 64, 64, 64,124, 64, 64, 64,126, 0, 0, 0}; -static const GLubyte Helvetica12_Character_071[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 29, 0, 35, 0, 65, 0, 65, 0, 71, 0, 64, 0, 64, 0, 33, 0, 30, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_072[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 65, 0,127, 0, 65, 0, 65, 0, 65, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_073[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_074[] = { 7, 0, 0, 0, 0, 56, 68, 68, 4, 4, 4, 4, 4, 4, 0, 0, 0}; -static const GLubyte Helvetica12_Character_075[] = { 8, 0, 0, 0, 0, 65, 66, 68, 72,112, 80, 72, 68, 66, 0, 0, 0}; -static const GLubyte Helvetica12_Character_076[] = { 7, 0, 0, 0, 0,124, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_077[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 68, 64, 68, 64, 74, 64, 74, 64, 81, 64, 81, 64, 96,192, 96,192, 64, 64, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_078[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 67, 0, 69, 0, 69, 0, 73, 0, 81, 0, 81, 0, 97, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_079[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64,128, 64,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_080[] = { 8, 0, 0, 0, 0, 64, 64, 64, 64,124, 66, 66, 66,124, 0, 0, 0}; -static const GLubyte Helvetica12_Character_081[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30,128, 33, 0, 66,128, 68,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_082[] = { 8, 0, 0, 0, 0, 66, 66, 66, 68,124, 66, 66, 66,124, 0, 0, 0}; -static const GLubyte Helvetica12_Character_083[] = { 8, 0, 0, 0, 0, 60, 66, 66, 2, 12, 48, 64, 66, 60, 0, 0, 0}; -static const GLubyte Helvetica12_Character_084[] = { 7, 0, 0, 0, 0, 16, 16, 16, 16, 16, 16, 16, 16,254, 0, 0, 0}; -static const GLubyte Helvetica12_Character_085[] = { 8, 0, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 66, 0, 0, 0}; -static const GLubyte Helvetica12_Character_086[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 20, 0, 20, 0, 34, 0, 34, 0, 34, 0, 65, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_087[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 17, 0, 17, 0, 17, 0, 42,128, 42,128, 36,128, 68, 64, 68, 64, 68, 64, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_088[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 34, 0, 34, 0, 20, 0, 8, 0, 20, 0, 34, 0, 34, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_089[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 20, 0, 34, 0, 34, 0, 65, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_090[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,127, 0, 64, 0, 32, 0, 16, 0, 8, 0, 4, 0, 2, 0, 1, 0,127, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_091[] = { 3, 0, 96, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 96, 0, 0, 0}; -static const GLubyte Helvetica12_Character_092[] = { 4, 0, 0, 0, 0, 16, 16, 32, 32, 32, 64, 64,128,128, 0, 0, 0}; -static const GLubyte Helvetica12_Character_093[] = { 3, 0,192, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,192, 0, 0, 0}; -static const GLubyte Helvetica12_Character_094[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0,136, 80, 32, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_095[] = { 7, 0, 0,254, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_096[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192,128, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_097[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_098[] = { 7, 0, 0, 0, 0, 88,100, 68, 68, 68,100, 88, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_099[] = { 7, 0, 0, 0, 0, 56, 68, 64, 64, 64, 68, 56, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_100[] = { 7, 0, 0, 0, 0, 52, 76, 68, 68, 68, 76, 52, 4, 4, 0, 0, 0}; -static const GLubyte Helvetica12_Character_101[] = { 7, 0, 0, 0, 0, 56, 68, 64,124, 68, 68, 56, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_102[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64,224, 64, 48, 0, 0, 0}; -static const GLubyte Helvetica12_Character_103[] = { 7, 0, 56, 68, 4, 52, 76, 68, 68, 68, 76, 52, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_104[] = { 7, 0, 0, 0, 0, 68, 68, 68, 68, 68,100, 88, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_105[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 0, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_106[] = { 3, 0,128, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_107[] = { 6, 0, 0, 0, 0, 68, 72, 80, 96, 96, 80, 72, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_108[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_109[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 73, 0, 73, 0, 73, 0, 73, 0, 73, 0,109, 0, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_110[] = { 7, 0, 0, 0, 0, 68, 68, 68, 68, 68,100, 88, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_111[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 56, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_112[] = { 7, 0, 64, 64, 64, 88,100, 68, 68, 68,100, 88, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_113[] = { 7, 0, 4, 4, 4, 52, 76, 68, 68, 68, 76, 52, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_114[] = { 4, 0, 0, 0, 0, 64, 64, 64, 64, 64, 96, 80, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_115[] = { 6, 0, 0, 0, 0, 48, 72, 8, 48, 64, 72, 48, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_116[] = { 3, 0, 0, 0, 0, 96, 64, 64, 64, 64, 64,224, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_117[] = { 7, 0, 0, 0, 0, 52, 76, 68, 68, 68, 68, 68, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_118[] = { 7, 0, 0, 0, 0, 16, 16, 40, 40, 68, 68, 68, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_119[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 34, 0, 85, 0, 73, 0, 73, 0,136,128,136,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_120[] = { 6, 0, 0, 0, 0,132,132, 72, 48, 48, 72,132, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_121[] = { 7, 0, 64, 32, 16, 16, 40, 40, 72, 68, 68, 68, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_122[] = { 6, 0, 0, 0, 0,120, 64, 32, 32, 16, 8,120, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_123[] = { 4, 0, 48, 64, 64, 64, 64, 64,128, 64, 64, 64, 64, 48, 0, 0, 0}; -static const GLubyte Helvetica12_Character_124[] = { 3, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_125[] = { 4, 0,192, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32,192, 0, 0, 0}; -static const GLubyte Helvetica12_Character_126[] = { 7, 0, 0, 0, 0, 0, 0, 0,152,100, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_127[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_128[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_129[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_130[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_131[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_132[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_133[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_134[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_135[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_136[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_137[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_138[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_139[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_140[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_141[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_142[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_143[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_144[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_145[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_146[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_147[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_148[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_149[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_150[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_151[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_152[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_153[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_154[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_155[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_156[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_157[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_158[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_159[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 85, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 65, 0, 0, 0, 85, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_160[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_161[] = { 3, 0, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_162[] = { 7, 0, 0, 0, 32, 56,100, 80, 80, 80, 84, 56, 8, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_163[] = { 7, 0, 0, 0, 0, 88, 36, 16, 16,120, 32, 32, 36, 24, 0, 0, 0}; -static const GLubyte Helvetica12_Character_164[] = { 7, 0, 0, 0, 0, 0,132,120, 72, 72,120,132, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_165[] = { 7, 0, 0, 0, 0, 16, 16,124, 16,124, 16, 40, 68, 68, 0, 0, 0}; -static const GLubyte Helvetica12_Character_166[] = { 3, 0, 0, 64, 64, 64, 64, 0, 0, 0, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_167[] = { 6, 0,112,136, 8, 48, 72,136,136,144, 96,128,136,112, 0, 0, 0}; -static const GLubyte Helvetica12_Character_168[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,160, 0, 0, 0}; -static const GLubyte Helvetica12_Character_169[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 32,128, 78, 64, 81, 64, 80, 64, 81, 64, 78, 64, 32,128, 31, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_170[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0,112, 0, 80, 16,112, 0, 0, 0}; -static const GLubyte Helvetica12_Character_171[] = { 7, 0, 0, 0, 0, 0, 20, 40, 80, 40, 20, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_172[] = { 8, 0, 0, 0, 0, 0, 0, 2, 2, 2,126, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_173[] = { 5, 0, 0, 0, 0, 0, 0, 0,240, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_174[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 32,128, 74, 64, 74, 64, 76, 64, 74, 64, 78, 64, 32,128, 31, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_175[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,240, 0, 0, 0}; -static const GLubyte Helvetica12_Character_176[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 96,144,144, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_177[] = { 7, 0, 0, 0, 0,124, 0, 16, 16,124, 16, 16, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_178[] = { 4, 0, 0, 0, 0, 0, 0, 0,240, 64, 32,144, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_179[] = { 4, 0, 0, 0, 0, 0, 0, 0,192, 32, 64, 32,224, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_180[] = { 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 64, 0, 0}; -static const GLubyte Helvetica12_Character_181[] = { 7, 0, 64, 64, 64,116, 76, 68, 68, 68, 68, 68, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_182[] = { 7, 0, 40, 40, 40, 40, 40, 40,104,232,232,232,104, 60, 0, 0, 0}; -static const GLubyte Helvetica12_Character_183[] = { 3, 0, 0, 0, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_184[] = { 3, 0,192, 32, 32, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_185[] = { 4, 0, 0, 0, 0, 0, 0, 0, 32, 32, 32, 96, 32, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_186[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0,112, 0,112, 80,112, 0, 0, 0}; -static const GLubyte Helvetica12_Character_187[] = { 7, 0, 0, 0, 0, 0, 80, 40, 20, 40, 80, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_188[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 39,128, 21, 0, 19, 0, 73, 0, 68, 0, 68, 0,194, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_189[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 71,128, 34, 0, 17, 0, 20,128, 75, 0, 72, 0, 68, 0,194, 0, 65, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_190[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 33, 0, 23,128, 21, 0, 11, 0,201, 0, 36, 0, 68, 0, 34, 0,225, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_191[] = { 7, 0, 56, 68, 68, 32, 32, 16, 16, 0, 16, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_192[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 8, 0, 8, 0, 0, 0, 8, 0, 16, 0}; -static const GLubyte Helvetica12_Character_193[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 8, 0, 8, 0, 0, 0, 8, 0, 4, 0}; -static const GLubyte Helvetica12_Character_194[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 8, 0, 8, 0, 0, 0, 20, 0, 8, 0}; -static const GLubyte Helvetica12_Character_195[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 8, 0, 8, 0, 0, 0, 20, 0, 10, 0}; -static const GLubyte Helvetica12_Character_196[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 8, 0, 8, 0, 0, 0, 20, 0, 0, 0}; -static const GLubyte Helvetica12_Character_197[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 65, 0, 65, 0, 62, 0, 34, 0, 34, 0, 20, 0, 8, 0, 8, 0, 8, 0, 20, 0, 8, 0}; -static const GLubyte Helvetica12_Character_198[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 71,192, 68, 0, 68, 0, 60, 0, 39,192, 36, 0, 20, 0, 20, 0, 15,192, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_199[] = { 9, 0, 0, 24, 0, 4, 0, 4, 0, 30, 0, 33, 0, 64, 0, 64, 0, 64, 0, 64, 0, 64, 0, 33, 0, 30, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_200[] = { 8, 0, 0, 0, 0,126, 64, 64, 64,126, 64, 64, 64,126, 0, 8, 16}; -static const GLubyte Helvetica12_Character_201[] = { 8, 0, 0, 0, 0,126, 64, 64, 64,126, 64, 64, 64,126, 0, 8, 4}; -static const GLubyte Helvetica12_Character_202[] = { 8, 0, 0, 0, 0,126, 64, 64, 64,126, 64, 64, 64,126, 0, 20, 8}; -static const GLubyte Helvetica12_Character_203[] = { 8, 0, 0, 0, 0,126, 64, 64, 64,126, 64, 64, 64,126, 0, 20, 0}; -static const GLubyte Helvetica12_Character_204[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64,128}; -static const GLubyte Helvetica12_Character_205[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64, 32}; -static const GLubyte Helvetica12_Character_206[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0,160, 64}; -static const GLubyte Helvetica12_Character_207[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0,160, 0}; -static const GLubyte Helvetica12_Character_208[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 66, 0, 65, 0, 65, 0,241, 0, 65, 0, 65, 0, 66, 0,124, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_209[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 67, 0, 69, 0, 69, 0, 73, 0, 81, 0, 81, 0, 97, 0, 65, 0, 0, 0, 20, 0, 10, 0}; -static const GLubyte Helvetica12_Character_210[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64,128, 64,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 4, 0, 8, 0}; -static const GLubyte Helvetica12_Character_211[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64,128, 64,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 4, 0, 2, 0}; -static const GLubyte Helvetica12_Character_212[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64,128, 64,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 10, 0, 4, 0}; -static const GLubyte Helvetica12_Character_213[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64,128, 64,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 20, 0, 10, 0}; -static const GLubyte Helvetica12_Character_214[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 33, 0, 64,128, 64,128, 64,128, 64,128, 64,128, 33, 0, 30, 0, 0, 0, 18, 0, 0, 0}; -static const GLubyte Helvetica12_Character_215[] = { 7, 0, 0, 0, 0, 0, 68, 40, 16, 40, 68, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_216[] = { 10, 0, 0, 0, 0, 0, 0,128, 0, 94, 0, 33, 0, 80,128, 72,128, 68,128, 68,128, 66,128, 33, 0, 30,128, 0, 64, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_217[] = { 8, 0, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 66, 0, 8, 16}; -static const GLubyte Helvetica12_Character_218[] = { 8, 0, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 66, 0, 8, 4}; -static const GLubyte Helvetica12_Character_219[] = { 8, 0, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 66, 0, 20, 8}; -static const GLubyte Helvetica12_Character_220[] = { 8, 0, 0, 0, 0, 60, 66, 66, 66, 66, 66, 66, 66, 66, 0, 36, 0}; -static const GLubyte Helvetica12_Character_221[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 8, 0, 8, 0, 20, 0, 34, 0, 34, 0, 65, 0, 65, 0, 0, 0, 8, 0, 4, 0}; -static const GLubyte Helvetica12_Character_222[] = { 8, 0, 0, 0, 0, 64, 64,124, 66, 66, 66,124, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_223[] = { 7, 0, 0, 0, 0, 88, 68, 68, 68, 88, 68, 68, 68, 56, 0, 0, 0}; -static const GLubyte Helvetica12_Character_224[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 0, 8, 16, 0, 0}; -static const GLubyte Helvetica12_Character_225[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 0, 16, 8, 0, 0}; -static const GLubyte Helvetica12_Character_226[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 0, 40, 16, 0, 0}; -static const GLubyte Helvetica12_Character_227[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 0, 40, 20, 0, 0}; -static const GLubyte Helvetica12_Character_228[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 0, 40, 0, 0, 0}; -static const GLubyte Helvetica12_Character_229[] = { 7, 0, 0, 0, 0, 58, 68, 68, 60, 4, 68, 56, 24, 36, 24, 0, 0}; -static const GLubyte Helvetica12_Character_230[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 59,128, 68, 64, 68, 0, 63,192, 4, 64, 68, 64, 59,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_231[] = { 7, 0, 48, 8, 16, 56, 68, 64, 64, 64, 68, 56, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_232[] = { 7, 0, 0, 0, 0, 56, 68, 64,124, 68, 68, 56, 0, 16, 32, 0, 0}; -static const GLubyte Helvetica12_Character_233[] = { 7, 0, 0, 0, 0, 56, 68, 64,124, 68, 68, 56, 0, 16, 8, 0, 0}; -static const GLubyte Helvetica12_Character_234[] = { 7, 0, 0, 0, 0, 56, 68, 64,124, 68, 68, 56, 0, 40, 16, 0, 0}; -static const GLubyte Helvetica12_Character_235[] = { 7, 0, 0, 0, 0, 56, 68, 64,124, 68, 68, 56, 0, 40, 0, 0, 0}; -static const GLubyte Helvetica12_Character_236[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 0, 64,128, 0, 0}; -static const GLubyte Helvetica12_Character_237[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 0, 64, 32, 0, 0}; -static const GLubyte Helvetica12_Character_238[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 0,160, 64, 0, 0}; -static const GLubyte Helvetica12_Character_239[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 0,160, 0, 0, 0}; -static const GLubyte Helvetica12_Character_240[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 60, 4, 40, 24, 52, 0, 0}; -static const GLubyte Helvetica12_Character_241[] = { 7, 0, 0, 0, 0, 68, 68, 68, 68, 68,100, 88, 0, 40, 20, 0, 0}; -static const GLubyte Helvetica12_Character_242[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 56, 0, 16, 32, 0, 0}; -static const GLubyte Helvetica12_Character_243[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 56, 0, 16, 8, 0, 0}; -static const GLubyte Helvetica12_Character_244[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 56, 0, 40, 16, 0, 0}; -static const GLubyte Helvetica12_Character_245[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 56, 0, 40, 20, 0, 0}; -static const GLubyte Helvetica12_Character_246[] = { 7, 0, 0, 0, 0, 56, 68, 68, 68, 68, 68, 56, 0, 40, 0, 0, 0}; -static const GLubyte Helvetica12_Character_247[] = { 7, 0, 0, 0, 0, 0, 16, 0,124, 0, 16, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_248[] = { 7, 0, 0, 0, 0,184, 68,100, 84, 76, 68, 58, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica12_Character_249[] = { 7, 0, 0, 0, 0, 52, 76, 68, 68, 68, 68, 68, 0, 16, 32, 0, 0}; -static const GLubyte Helvetica12_Character_250[] = { 7, 0, 0, 0, 0, 52, 76, 68, 68, 68, 68, 68, 0, 16, 8, 0, 0}; -static const GLubyte Helvetica12_Character_251[] = { 7, 0, 0, 0, 0, 52, 76, 68, 68, 68, 68, 68, 0, 40, 16, 0, 0}; -static const GLubyte Helvetica12_Character_252[] = { 7, 0, 0, 0, 0, 52, 76, 68, 68, 68, 68, 68, 0, 40, 0, 0, 0}; -static const GLubyte Helvetica12_Character_253[] = { 7, 0, 64, 32, 16, 16, 40, 40, 72, 68, 68, 68, 0, 16, 8, 0, 0}; -static const GLubyte Helvetica12_Character_254[] = { 7, 0, 64, 64, 64, 88,100, 68, 68, 68,100, 88, 64, 64, 0, 0, 0}; -static const GLubyte Helvetica12_Character_255[] = { 7, 0, 96, 16, 16, 16, 24, 40, 40, 36, 68, 68, 0, 40, 0, 0, 0}; - -/* The font characters mapping: */ -static const GLubyte* Helvetica12_Character_Map[] = {Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032, - Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032, - Helvetica12_Character_032,Helvetica12_Character_033,Helvetica12_Character_034,Helvetica12_Character_035,Helvetica12_Character_036,Helvetica12_Character_037,Helvetica12_Character_038,Helvetica12_Character_039,Helvetica12_Character_040,Helvetica12_Character_041,Helvetica12_Character_042,Helvetica12_Character_043,Helvetica12_Character_044,Helvetica12_Character_045,Helvetica12_Character_046,Helvetica12_Character_047, - Helvetica12_Character_048,Helvetica12_Character_049,Helvetica12_Character_050,Helvetica12_Character_051,Helvetica12_Character_052,Helvetica12_Character_053,Helvetica12_Character_054,Helvetica12_Character_055,Helvetica12_Character_056,Helvetica12_Character_057,Helvetica12_Character_058,Helvetica12_Character_059,Helvetica12_Character_060,Helvetica12_Character_061,Helvetica12_Character_062,Helvetica12_Character_063, - Helvetica12_Character_064,Helvetica12_Character_065,Helvetica12_Character_066,Helvetica12_Character_067,Helvetica12_Character_068,Helvetica12_Character_069,Helvetica12_Character_070,Helvetica12_Character_071,Helvetica12_Character_072,Helvetica12_Character_073,Helvetica12_Character_074,Helvetica12_Character_075,Helvetica12_Character_076,Helvetica12_Character_077,Helvetica12_Character_078,Helvetica12_Character_079, - Helvetica12_Character_080,Helvetica12_Character_081,Helvetica12_Character_082,Helvetica12_Character_083,Helvetica12_Character_084,Helvetica12_Character_085,Helvetica12_Character_086,Helvetica12_Character_087,Helvetica12_Character_088,Helvetica12_Character_089,Helvetica12_Character_090,Helvetica12_Character_091,Helvetica12_Character_092,Helvetica12_Character_093,Helvetica12_Character_094,Helvetica12_Character_095, - Helvetica12_Character_096,Helvetica12_Character_097,Helvetica12_Character_098,Helvetica12_Character_099,Helvetica12_Character_100,Helvetica12_Character_101,Helvetica12_Character_102,Helvetica12_Character_103,Helvetica12_Character_104,Helvetica12_Character_105,Helvetica12_Character_106,Helvetica12_Character_107,Helvetica12_Character_108,Helvetica12_Character_109,Helvetica12_Character_110,Helvetica12_Character_111, - Helvetica12_Character_112,Helvetica12_Character_113,Helvetica12_Character_114,Helvetica12_Character_115,Helvetica12_Character_116,Helvetica12_Character_117,Helvetica12_Character_118,Helvetica12_Character_119,Helvetica12_Character_120,Helvetica12_Character_121,Helvetica12_Character_122,Helvetica12_Character_123,Helvetica12_Character_124,Helvetica12_Character_125,Helvetica12_Character_126,Helvetica12_Character_032, - Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032, - Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032,Helvetica12_Character_032, - Helvetica12_Character_160,Helvetica12_Character_161,Helvetica12_Character_162,Helvetica12_Character_163,Helvetica12_Character_164,Helvetica12_Character_165,Helvetica12_Character_166,Helvetica12_Character_167,Helvetica12_Character_168,Helvetica12_Character_169,Helvetica12_Character_170,Helvetica12_Character_171,Helvetica12_Character_172,Helvetica12_Character_173,Helvetica12_Character_174,Helvetica12_Character_175, - Helvetica12_Character_176,Helvetica12_Character_177,Helvetica12_Character_178,Helvetica12_Character_179,Helvetica12_Character_180,Helvetica12_Character_181,Helvetica12_Character_182,Helvetica12_Character_183,Helvetica12_Character_184,Helvetica12_Character_185,Helvetica12_Character_186,Helvetica12_Character_187,Helvetica12_Character_188,Helvetica12_Character_189,Helvetica12_Character_190,Helvetica12_Character_191, - Helvetica12_Character_192,Helvetica12_Character_193,Helvetica12_Character_194,Helvetica12_Character_195,Helvetica12_Character_196,Helvetica12_Character_197,Helvetica12_Character_198,Helvetica12_Character_199,Helvetica12_Character_200,Helvetica12_Character_201,Helvetica12_Character_202,Helvetica12_Character_203,Helvetica12_Character_204,Helvetica12_Character_205,Helvetica12_Character_206,Helvetica12_Character_207, - Helvetica12_Character_208,Helvetica12_Character_209,Helvetica12_Character_210,Helvetica12_Character_211,Helvetica12_Character_212,Helvetica12_Character_213,Helvetica12_Character_214,Helvetica12_Character_215,Helvetica12_Character_216,Helvetica12_Character_217,Helvetica12_Character_218,Helvetica12_Character_219,Helvetica12_Character_220,Helvetica12_Character_221,Helvetica12_Character_222,Helvetica12_Character_223, - Helvetica12_Character_224,Helvetica12_Character_225,Helvetica12_Character_226,Helvetica12_Character_227,Helvetica12_Character_228,Helvetica12_Character_229,Helvetica12_Character_230,Helvetica12_Character_231,Helvetica12_Character_232,Helvetica12_Character_233,Helvetica12_Character_234,Helvetica12_Character_235,Helvetica12_Character_236,Helvetica12_Character_237,Helvetica12_Character_238,Helvetica12_Character_239, - Helvetica12_Character_240,Helvetica12_Character_241,Helvetica12_Character_242,Helvetica12_Character_243,Helvetica12_Character_244,Helvetica12_Character_245,Helvetica12_Character_246,Helvetica12_Character_247,Helvetica12_Character_248,Helvetica12_Character_249,Helvetica12_Character_250,Helvetica12_Character_251,Helvetica12_Character_252,Helvetica12_Character_253,Helvetica12_Character_254,Helvetica12_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontHelvetica12 = { "-adobe-helvetica-medium-r-normal--12-120-75-75-p-67-iso8859-1", 256, 16, Helvetica12_Character_Map, 0, 4 }; - -static const GLubyte Helvetica18_Character_000[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 64, 16, 0, 0, 64, 16, 0, 0, 64, 16, 0, 0, 64, 16, 0, 0, 64, 16, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_001[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_002[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_003[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_004[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_005[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_006[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_007[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_008[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_009[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_010[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_011[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_012[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_013[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_014[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_015[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_016[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_017[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_018[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_019[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_020[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_021[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_022[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_023[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_024[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_025[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_026[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_027[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_028[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_029[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_030[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_031[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_032[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_033[] = { 6, 0, 0, 0, 0, 0, 48, 48, 0, 0, 32, 32, 48, 48, 48, 48, 48, 48, 48, 48, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_034[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,144,144,216,216,216, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_035[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 36, 0, 36, 0, 36, 0,255,128,255,128, 18, 0, 18, 0, 18, 0,127,192,127,192, 9, 0, 9, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_036[] = { 10, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 31, 0, 63,128,117,192,100,192, 4,192, 7,128, 31, 0, 60, 0,116, 0,100, 0,101,128, 63,128, 31, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_037[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 60, 12,126, 6,102, 6,102, 3,126, 3, 60, 1,128, 61,128,126,192,102,192,102, 96,126, 96, 60, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_038[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 56, 63,112,115,224, 97,192, 97,224, 99, 96,119, 96, 62, 0, 30, 0, 51, 0, 51, 0, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_039[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, 32, 32, 96, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_040[] = { 6, 0, 8, 24, 48, 48, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48, 48, 24, 8, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_041[] = { 6, 0, 64, 96, 48, 48, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 48, 48, 96, 64, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_042[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 68, 56, 56,124, 16, 16, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_043[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 12, 0, 12, 0,127,128,127,128, 12, 0, 12, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_044[] = { 5, 0, 0, 64, 32, 32, 96, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_045[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128,127,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_046[] = { 5, 0, 0, 0, 0, 0, 96, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_047[] = { 5, 0, 0, 0, 0, 0,192,192, 64, 64, 96, 96, 32, 32, 48, 48, 16, 16, 24, 24, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_048[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63, 0, 51, 0, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 51, 0, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_049[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 62, 0, 62, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_050[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128,127,128, 96, 0,112, 0, 56, 0, 28, 0, 14, 0, 7, 0, 3,128, 1,128, 97,128,127, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_051[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63, 0, 99,128, 97,128, 1,128, 3,128, 15, 0, 14, 0, 3, 0, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_052[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,128, 1,128, 1,128,127,192,127,192, 97,128, 49,128, 25,128, 25,128, 13,128, 7,128, 3,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_053[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0,127, 0, 99,128, 97,128, 1,128, 1,128, 99,128,127, 0,126, 0, 96, 0, 96, 0,127, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_054[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63, 0,113,128, 97,128, 97,128, 97,128,127, 0,110, 0, 96, 0, 96, 0, 49,128, 63,128, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_055[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 0, 48, 0, 24, 0, 24, 0, 24, 0, 12, 0, 12, 0, 6, 0, 6, 0, 3, 0, 1,128,127,128,127,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_056[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63, 0,115,128, 97,128, 97,128, 51, 0, 63, 0, 51, 0, 97,128, 97,128,115,128, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_057[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0,127, 0, 99, 0, 1,128, 1,128, 29,128, 63,128, 97,128, 97,128, 97,128, 99,128, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_058[] = { 5, 0, 0, 0, 0, 0, 96, 96, 0, 0, 0, 0, 0, 0, 96, 96, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_059[] = { 5, 0, 0, 64, 32, 32, 96, 96, 0, 0, 0, 0, 0, 0, 96, 96, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_060[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,128, 7,128, 30, 0, 56, 0, 96, 0, 56, 0, 30, 0, 7,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_061[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63,128, 63,128, 0, 0, 0, 0, 63,128, 63,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_062[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 0,120, 0, 30, 0, 7, 0, 1,128, 7, 0, 30, 0,120, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_063[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 24, 0, 0, 0, 0, 0, 24, 0, 24, 0, 24, 0, 28, 0, 14, 0, 7, 0, 99, 0, 99, 0,127, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_064[] = { 18, 0, 0, 0, 0, 0, 0, 3,240, 0, 15,248, 0, 28, 0, 0, 56, 0, 0, 51,184, 0,103,252, 0,102,102, 0,102, 51, 0,102, 51, 0,102, 49,128, 99, 25,128, 51,185,128, 49,217,128, 24, 3, 0, 14, 7, 0, 7,254, 0, 1,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_065[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_066[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,224, 96,112, 96, 48, 96, 48, 96,112,127,224,127,192, 96,192, 96, 96, 96, 96, 96,224,127,192,127,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_067[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 0, 96, 0, 96, 0, 96, 0, 96, 0,112, 0, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_068[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128,127,192, 96,224, 96, 96, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 96, 96,224,127,192,127,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_069[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,192, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0,127,192,127,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_070[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0,127,192,127,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_071[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,216, 31,248, 56, 56, 48, 24,112, 24, 96,248, 96,248, 96, 0, 96, 0,112, 24, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_072[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48,127,240,127,240, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_073[] = { 6, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_074[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63, 0,115,128, 97,128, 97,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_075[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 56, 96,112, 96,224, 97,192, 99,128,103, 0,126, 0,124, 0,110, 0,103, 0, 99,128, 97,192, 96,224, 96,112, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_076[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_077[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97,134, 97,134, 99,198, 98, 70,102,102,102,102,108, 54,108, 54,120, 30,120, 30,112, 14,112, 14, 96, 6, 96, 6, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_078[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 48, 96,112, 96,240, 96,240, 97,176, 99, 48, 99, 48,102, 48,102, 48,108, 48,120, 48,120, 48,112, 48, 96, 48, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_079[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 28, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_080[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,192, 96,224, 96, 96, 96, 96, 96,224,127,192,127,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_081[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 7,216, 31,240, 56,120, 48,216,112,220, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_082[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96,192, 96,192,127,128,127,192, 96,224, 96, 96, 96, 96, 96,224,127,192,127,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_083[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31,128, 63,224,112,112, 96, 48, 0, 48, 0,112, 1,224, 15,128, 62, 0,112, 0, 96, 48,112,112, 63,224, 15,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_084[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0,127,224,127,224, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_085[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,128, 63,224, 48, 96, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_086[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 7,128, 7,128, 12,192, 12,192, 12,192, 24, 96, 24, 96, 24, 96, 48, 48, 48, 48, 48, 48, 96, 24, 96, 24, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_087[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 12, 0, 12, 12, 0, 14, 28, 0, 26, 22, 0, 27, 54, 0, 27, 54, 0, 51, 51, 0, 51, 51, 0, 49, 35, 0, 49,227, 0, 97,225,128, 96,193,128, 96,193,128, 96,193,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_088[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 48,112,112, 48, 96, 56,224, 24,192, 13,128, 7, 0, 7, 0, 13,128, 24,192, 56,224, 48, 96,112,112, 96, 48, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_089[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 7,128, 12,192, 24, 96, 24, 96, 48, 48, 48, 48, 96, 24, 96, 24, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_090[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,224,127,224, 96, 0, 48, 0, 24, 0, 12, 0, 14, 0, 6, 0, 3, 0, 1,128, 0,192, 0, 96,127,224,127,224, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_091[] = { 5, 0,120,120, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96,120,120, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_092[] = { 5, 0, 0, 0, 0, 0, 24, 24, 16, 16, 48, 48, 32, 32, 96, 96, 64, 64,192,192, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_093[] = { 5, 0,240,240, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,240,240, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_094[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 99, 0, 54, 0, 28, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_095[] = { 10, 0, 0,255,192,255,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_096[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 96, 64, 64, 32, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_097[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_098[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,111, 0,127,128,113,128, 96,192, 96,192, 96,192, 96,192,113,128,127,128,111, 0, 96, 0, 96, 0, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_099[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96, 0, 96, 0, 96, 0, 96, 0, 49,128, 63,128, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_100[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30,192, 63,192, 49,192, 96,192, 96,192, 96,192, 96,192, 49,192, 63,192, 30,192, 0,192, 0,192, 0,192, 0,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_101[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63,128,113,128, 96, 0, 96, 0,127,128, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_102[] = { 6, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48,252,252, 48, 48, 60, 28, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_103[] = { 11, 0, 0, 14, 0, 63,128, 49,128, 0,192, 30,192, 63,192, 49,192, 96,192, 96,192, 96,192, 96,192, 48,192, 63,192, 30,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_104[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128,113,128,111,128,103, 0, 96, 0, 96, 0, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_105[] = { 4, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0, 0, 96, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_106[] = { 4, 0,192,224, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0, 0, 96, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_107[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 99,128, 99, 0,103, 0,102, 0,108, 0,124, 0,120, 0,108, 0,102, 0, 99, 0, 96, 0, 96, 0, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_108[] = { 4, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_109[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 99, 24, 99, 24, 99, 24, 99, 24, 99, 24, 99, 24, 99, 24,115,152,111,120,102, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_110[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128,113,128,111,128,103, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_111[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_112[] = { 11, 0, 0, 96, 0, 96, 0, 96, 0, 96, 0,111, 0,127,128,113,128, 96,192, 96,192, 96,192, 96,192,113,128,127,128,111, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_113[] = { 11, 0, 0, 0,192, 0,192, 0,192, 0,192, 30,192, 63,192, 49,192, 96,192, 96,192, 96,192, 96,192, 49,192, 63,192, 30,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_114[] = { 6, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96,112,108,108, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_115[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0,126, 0, 99, 0, 3, 0, 31, 0,126, 0, 96, 0, 99, 0, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_116[] = { 6, 0, 0, 0, 0, 0, 24, 56, 48, 48, 48, 48, 48, 48,252,252, 48, 48, 48, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_117[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 57,128,125,128, 99,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_118[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 30, 0, 18, 0, 51, 0, 51, 0, 51, 0, 97,128, 97,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_119[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12,192, 12,192, 28,224, 20,160, 52,176, 51, 48, 51, 48, 99, 24, 99, 24, 99, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_120[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97,128,115,128, 51, 0, 30, 0, 12, 0, 12, 0, 30, 0, 51, 0,115,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_121[] = { 10, 0, 0, 56, 0, 56, 0, 12, 0, 12, 0, 12, 0, 12, 0, 30, 0, 18, 0, 51, 0, 51, 0, 51, 0, 97,128, 97,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_122[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0,127, 0, 96, 0, 48, 0, 24, 0, 12, 0, 6, 0, 3, 0,127, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_123[] = { 6, 0, 12, 24, 48, 48, 48, 48, 48, 48, 96,192, 96, 48, 48, 48, 48, 48, 24, 12, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_124[] = { 4, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_125[] = { 6, 0,192, 96, 48, 48, 48, 48, 48, 48, 24, 12, 24, 48, 48, 48, 48, 48, 96,192, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_126[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,102, 0, 63, 0, 25,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_127[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_128[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_129[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_130[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_131[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_132[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_133[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_134[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_135[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_136[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_137[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_138[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_139[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_140[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_141[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_142[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_143[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_144[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_145[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_146[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_147[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_148[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_149[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_150[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_151[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_152[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_153[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_154[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_155[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_156[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_157[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_158[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_159[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 64, 16, 0, 0, 0, 0, 85, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_160[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_161[] = { 6, 0, 48, 48, 48, 48, 48, 48, 48, 48, 16, 16, 0, 0, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_162[] = { 10, 0, 0, 0, 0, 0, 0, 8, 0, 8, 0, 31, 0, 63,128, 53,128,100, 0,100, 0,100, 0,100, 0, 53,128, 63,128, 31, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_163[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,223, 0,255,128, 96,128, 48, 0, 24, 0, 24, 0,126, 0, 48, 0, 96, 0, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_164[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97,128,127,128, 51, 0, 51, 0, 51, 0,127,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_165[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 12, 0, 12, 0,127,128, 12, 0,127,128, 30, 0, 51, 0, 51, 0, 51, 0, 97,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_166[] = { 4, 0, 0, 96, 96, 96, 96, 96, 96, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_167[] = { 10, 0, 0, 30, 0, 63, 0, 97,128, 97,128, 3,128, 7, 0, 31, 0, 57,128,113,128, 97,128, 99,128, 55, 0, 62, 0,120, 0, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_168[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,216,216, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_169[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 24, 48, 32, 8, 35,136, 68, 68, 72, 4, 72, 4, 72, 4, 68, 68, 35,136, 32, 8, 24, 48, 7,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_170[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 52,108, 36, 28,100, 56, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_171[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 27, 0, 54, 0,108, 0,108, 0, 54, 0, 27, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_172[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 0,192, 0,192,127,192,127,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_173[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0,124,124, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_174[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 24, 48, 32, 8, 36, 40, 68, 68, 68,132, 71,196, 68, 36, 68, 36, 39,200, 32, 8, 24, 48, 7,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_175[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,248, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_176[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,108, 68,108, 56, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_177[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128,127,128, 0, 0, 12, 0, 12, 0, 12, 0,127,128,127,128, 12, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_178[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,248,248, 96, 48, 24,152,248,112, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_179[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,112,248,152, 48, 48,152,248,112, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_180[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 96, 48, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_181[] = { 10, 0, 0, 96, 0, 96, 0, 96, 0, 96, 0,109,128,127,128,115,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_182[] = { 10, 0, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 25, 0, 57, 0,121, 0,121, 0,121, 0,121, 0, 57, 0, 31,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_183[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_184[] = { 5, 0,240,216, 24,112, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_185[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48,112,112, 48, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_186[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 56,108, 68, 68,108, 56, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_187[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 72, 0,108, 0, 54, 0, 27, 0, 27, 0, 54, 0,108, 0, 72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_188[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 24, 24, 24, 12,252, 6,216, 6,120, 51, 56, 49, 24, 49,136, 48,192, 48,192,112, 96,112, 48, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_189[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24,124, 24,124, 12, 48, 6, 24, 6, 12, 51, 76, 49,124, 49,184, 48,192, 48,192,112, 96,112, 48, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_190[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 24, 24, 24, 12,252, 6,216, 6,120,115, 56,249, 24,153,136, 48,192, 48,192,152, 96,248, 48,112, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_191[] = { 10, 0, 0, 62, 0,127, 0, 99, 0, 99, 0,112, 0, 56, 0, 28, 0, 12, 0, 12, 0, 12, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_192[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 0, 0, 6, 0, 12, 0, 24, 0}; -static const GLubyte Helvetica18_Character_193[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 0, 0, 6, 0, 3, 0, 1,128}; -static const GLubyte Helvetica18_Character_194[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 0, 0, 25,128, 15, 0, 6, 0}; -static const GLubyte Helvetica18_Character_195[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 0, 0, 19, 0, 22,128, 12,128}; -static const GLubyte Helvetica18_Character_196[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 0, 0, 25,128, 25,128, 0, 0}; -static const GLubyte Helvetica18_Character_197[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 48,192, 48, 96, 96, 96, 96,127,224, 63,192, 48,192, 48,192, 25,128, 25,128, 15, 0, 15, 0, 6, 0, 6, 0, 15, 0, 25,128, 25,128, 15, 0}; -static const GLubyte Helvetica18_Character_198[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96,255,128, 96,255,128, 48,192, 0, 48,192, 0, 63,192, 0, 31,192, 0, 24,255, 0, 24,255, 0, 12,192, 0, 12,192, 0, 6,192, 0, 6,192, 0, 3,255,128, 3,255,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_199[] = { 14, 0, 0, 15, 0, 13,128, 1,128, 7, 0, 7,192, 31,240, 56, 56, 48, 24,112, 0, 96, 0, 96, 0, 96, 0, 96, 0,112, 0, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_200[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,192, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0,127,192,127,192, 0, 0, 6, 0, 12, 0, 24, 0}; -static const GLubyte Helvetica18_Character_201[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,192, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0,127,192,127,192, 0, 0, 6, 0, 3, 0, 1,128}; -static const GLubyte Helvetica18_Character_202[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,192, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0,127,192,127,192, 0, 0, 25,128, 15, 0, 6, 0}; -static const GLubyte Helvetica18_Character_203[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,192, 96, 0, 96, 0, 96, 0, 96, 0,127,128,127,128, 96, 0, 96, 0, 96, 0, 96, 0,127,192,127,192, 0, 0, 25,128, 25,128, 0, 0}; -static const GLubyte Helvetica18_Character_204[] = { 6, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 0, 48, 96,192}; -static const GLubyte Helvetica18_Character_205[] = { 6, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 0, 48, 24, 12}; -static const GLubyte Helvetica18_Character_206[] = { 6, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 0,204,120, 48}; -static const GLubyte Helvetica18_Character_207[] = { 6, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 0,204,204, 0}; -static const GLubyte Helvetica18_Character_208[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128,127,192, 96,224, 96, 96, 96, 48, 96, 48,252, 48,252, 48, 96, 48, 96, 48, 96, 96, 96,224,127,192,127,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_209[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 48, 96,112, 96,240, 96,240, 97,176, 99, 48, 99, 48,102, 48,102, 48,108, 48,108, 48,120, 48,112, 48,112, 48, 0, 0, 9,128, 11, 64, 6, 64}; -static const GLubyte Helvetica18_Character_210[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 28, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 1,128, 3, 0, 6, 0}; -static const GLubyte Helvetica18_Character_211[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 28, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 1,128, 0,192, 0, 96}; -static const GLubyte Helvetica18_Character_212[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 28, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 6, 96, 3,192, 1,128}; -static const GLubyte Helvetica18_Character_213[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 28, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 4,192, 5,160, 3, 32}; -static const GLubyte Helvetica18_Character_214[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,192, 31,240, 56, 56, 48, 24,112, 28, 96, 12, 96, 12, 96, 12, 96, 12,112, 28, 48, 24, 56, 56, 31,240, 7,192, 0, 0, 6,192, 6,192, 0, 0}; -static const GLubyte Helvetica18_Character_215[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192,192, 97,128, 51, 0, 30, 0, 12, 0, 30, 0, 51, 0, 97,128,192,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_216[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,199,192,255,240,120, 56, 56, 24,108, 28,110, 12,103, 12, 99,140, 97,204,112,220, 48,120, 56, 56, 31,252, 7,204, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_217[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,128, 63,224, 48, 96, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 0, 0, 3, 0, 6, 0, 12, 0}; -static const GLubyte Helvetica18_Character_218[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,128, 63,224, 48, 96, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 0, 0, 6, 0, 3, 0, 1,128}; -static const GLubyte Helvetica18_Character_219[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,128, 63,224, 48, 96, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 0, 0, 12,192, 7,128, 3, 0}; -static const GLubyte Helvetica18_Character_220[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,128, 63,224, 48, 96, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 0, 0, 12,192, 12,192, 0, 0}; -static const GLubyte Helvetica18_Character_221[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 7,128, 12,192, 24, 96, 24, 96, 48, 48, 48, 48, 96, 24, 96, 24, 0, 0, 3, 0, 1,128, 0,192}; -static const GLubyte Helvetica18_Character_222[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 0, 96, 0, 96, 0,127,128,127,192, 96,224, 96, 96, 96, 96, 96,224,127,192,127,128, 96, 0, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_223[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,110, 0,111, 0, 99, 0, 99, 0, 99, 0, 99, 0,110, 0,110, 0, 99, 0, 99, 0, 99, 0, 99, 0, 62, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_224[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 0, 0, 12, 0, 24, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_225[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 0, 0, 24, 0, 12, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_226[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 0, 0, 51, 0, 30, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_227[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 0, 0, 38, 0, 45, 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_228[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 0, 0, 54, 0, 54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_229[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 0,119, 0, 99, 0, 99, 0,115, 0, 63, 0, 7, 0, 99, 0,119, 0, 62, 0, 28, 0, 54, 0, 54, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_230[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58,240,119,252, 99,140, 99, 0,115, 0, 63,252, 7, 12, 99, 12,119,248, 62,240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_231[] = { 10, 0, 0, 60, 0, 54, 0, 6, 0, 28, 0, 31, 0, 63,128, 49,128, 96, 0, 96, 0, 96, 0, 96, 0, 49,128, 63,128, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_232[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63,128,113,128, 96, 0, 96, 0,127,128, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 12, 0, 24, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_233[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63,128,113,128, 96, 0, 96, 0,127,128, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 12, 0, 6, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_234[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63,128,113,128, 96, 0, 96, 0,127,128, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 51, 0, 30, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_235[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, 63,128,113,128, 96, 0, 96, 0,127,128, 97,128, 97,128, 63, 0, 30, 0, 0, 0, 27, 0, 27, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_236[] = { 4, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0, 48, 96,192, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_237[] = { 4, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0,192, 96, 48, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_238[] = { 4, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0,144,240, 96, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_239[] = { 4, 0, 0, 0, 0, 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 0,216,216, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_240[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 38, 0, 28, 0, 27, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_241[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128,113,128,111,128,103, 0, 0, 0, 38, 0, 45, 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_242[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 0, 0, 6, 0, 12, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_243[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 0, 0, 12, 0, 6, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_244[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 0, 0, 25,128, 15, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_245[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 0, 0, 19, 0, 22,128, 12,128, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_246[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 63,128, 49,128, 96,192, 96,192, 96,192, 96,192, 49,128, 63,128, 31, 0, 0, 0, 27, 0, 27, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_247[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0,127,128,127,128, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_248[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,206, 0,127,128, 49,128,120,192,108,192,102,192, 99,192, 49,128, 63,192, 14, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_249[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 57,128,125,128, 99,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 0, 0, 6, 0, 12, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_250[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 57,128,125,128, 99,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 0, 0, 12, 0, 6, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_251[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 57,128,125,128, 99,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 0, 0, 51, 0, 30, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_252[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 57,128,125,128, 99,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 97,128, 0, 0, 51, 0, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_253[] = { 10, 0, 0, 56, 0, 56, 0, 12, 0, 12, 0, 12, 0, 12, 0, 30, 0, 18, 0, 51, 0, 51, 0, 51, 0, 97,128, 97,128, 97,128, 0, 0, 12, 0, 6, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_254[] = { 11, 0, 0, 96, 0, 96, 0, 96, 0, 96, 0,111, 0,127,128,113,128, 96,192, 96,192, 96,192, 96,192,113,128,127,128,111, 0, 96, 0, 96, 0, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte Helvetica18_Character_255[] = { 10, 0, 0, 56, 0, 56, 0, 12, 0, 12, 0, 12, 0, 12, 0, 30, 0, 18, 0, 51, 0, 51, 0, 51, 0, 97,128, 97,128, 97,128, 0, 0, 51, 0, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; - -/* The font characters mapping: */ -static const GLubyte* Helvetica18_Character_Map[] = {Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032, - Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032, - Helvetica18_Character_032,Helvetica18_Character_033,Helvetica18_Character_034,Helvetica18_Character_035,Helvetica18_Character_036,Helvetica18_Character_037,Helvetica18_Character_038,Helvetica18_Character_039,Helvetica18_Character_040,Helvetica18_Character_041,Helvetica18_Character_042,Helvetica18_Character_043,Helvetica18_Character_044,Helvetica18_Character_045,Helvetica18_Character_046,Helvetica18_Character_047, - Helvetica18_Character_048,Helvetica18_Character_049,Helvetica18_Character_050,Helvetica18_Character_051,Helvetica18_Character_052,Helvetica18_Character_053,Helvetica18_Character_054,Helvetica18_Character_055,Helvetica18_Character_056,Helvetica18_Character_057,Helvetica18_Character_058,Helvetica18_Character_059,Helvetica18_Character_060,Helvetica18_Character_061,Helvetica18_Character_062,Helvetica18_Character_063, - Helvetica18_Character_064,Helvetica18_Character_065,Helvetica18_Character_066,Helvetica18_Character_067,Helvetica18_Character_068,Helvetica18_Character_069,Helvetica18_Character_070,Helvetica18_Character_071,Helvetica18_Character_072,Helvetica18_Character_073,Helvetica18_Character_074,Helvetica18_Character_075,Helvetica18_Character_076,Helvetica18_Character_077,Helvetica18_Character_078,Helvetica18_Character_079, - Helvetica18_Character_080,Helvetica18_Character_081,Helvetica18_Character_082,Helvetica18_Character_083,Helvetica18_Character_084,Helvetica18_Character_085,Helvetica18_Character_086,Helvetica18_Character_087,Helvetica18_Character_088,Helvetica18_Character_089,Helvetica18_Character_090,Helvetica18_Character_091,Helvetica18_Character_092,Helvetica18_Character_093,Helvetica18_Character_094,Helvetica18_Character_095, - Helvetica18_Character_096,Helvetica18_Character_097,Helvetica18_Character_098,Helvetica18_Character_099,Helvetica18_Character_100,Helvetica18_Character_101,Helvetica18_Character_102,Helvetica18_Character_103,Helvetica18_Character_104,Helvetica18_Character_105,Helvetica18_Character_106,Helvetica18_Character_107,Helvetica18_Character_108,Helvetica18_Character_109,Helvetica18_Character_110,Helvetica18_Character_111, - Helvetica18_Character_112,Helvetica18_Character_113,Helvetica18_Character_114,Helvetica18_Character_115,Helvetica18_Character_116,Helvetica18_Character_117,Helvetica18_Character_118,Helvetica18_Character_119,Helvetica18_Character_120,Helvetica18_Character_121,Helvetica18_Character_122,Helvetica18_Character_123,Helvetica18_Character_124,Helvetica18_Character_125,Helvetica18_Character_126,Helvetica18_Character_032, - Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032, - Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032,Helvetica18_Character_032, - Helvetica18_Character_160,Helvetica18_Character_161,Helvetica18_Character_162,Helvetica18_Character_163,Helvetica18_Character_164,Helvetica18_Character_165,Helvetica18_Character_166,Helvetica18_Character_167,Helvetica18_Character_168,Helvetica18_Character_169,Helvetica18_Character_170,Helvetica18_Character_171,Helvetica18_Character_172,Helvetica18_Character_173,Helvetica18_Character_174,Helvetica18_Character_175, - Helvetica18_Character_176,Helvetica18_Character_177,Helvetica18_Character_178,Helvetica18_Character_179,Helvetica18_Character_180,Helvetica18_Character_181,Helvetica18_Character_182,Helvetica18_Character_183,Helvetica18_Character_184,Helvetica18_Character_185,Helvetica18_Character_186,Helvetica18_Character_187,Helvetica18_Character_188,Helvetica18_Character_189,Helvetica18_Character_190,Helvetica18_Character_191, - Helvetica18_Character_192,Helvetica18_Character_193,Helvetica18_Character_194,Helvetica18_Character_195,Helvetica18_Character_196,Helvetica18_Character_197,Helvetica18_Character_198,Helvetica18_Character_199,Helvetica18_Character_200,Helvetica18_Character_201,Helvetica18_Character_202,Helvetica18_Character_203,Helvetica18_Character_204,Helvetica18_Character_205,Helvetica18_Character_206,Helvetica18_Character_207, - Helvetica18_Character_208,Helvetica18_Character_209,Helvetica18_Character_210,Helvetica18_Character_211,Helvetica18_Character_212,Helvetica18_Character_213,Helvetica18_Character_214,Helvetica18_Character_215,Helvetica18_Character_216,Helvetica18_Character_217,Helvetica18_Character_218,Helvetica18_Character_219,Helvetica18_Character_220,Helvetica18_Character_221,Helvetica18_Character_222,Helvetica18_Character_223, - Helvetica18_Character_224,Helvetica18_Character_225,Helvetica18_Character_226,Helvetica18_Character_227,Helvetica18_Character_228,Helvetica18_Character_229,Helvetica18_Character_230,Helvetica18_Character_231,Helvetica18_Character_232,Helvetica18_Character_233,Helvetica18_Character_234,Helvetica18_Character_235,Helvetica18_Character_236,Helvetica18_Character_237,Helvetica18_Character_238,Helvetica18_Character_239, - Helvetica18_Character_240,Helvetica18_Character_241,Helvetica18_Character_242,Helvetica18_Character_243,Helvetica18_Character_244,Helvetica18_Character_245,Helvetica18_Character_246,Helvetica18_Character_247,Helvetica18_Character_248,Helvetica18_Character_249,Helvetica18_Character_250,Helvetica18_Character_251,Helvetica18_Character_252,Helvetica18_Character_253,Helvetica18_Character_254,Helvetica18_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontHelvetica18 = { "-adobe-helvetica-medium-r-normal--18-180-75-75-p-98-iso8859-1", 256, 23, Helvetica18_Character_Map, 0, 5 }; - -static const GLubyte TimesRoman10_Character_000[] = { 8, 0, 0, 0, 0,170, 0,130, 0,130, 0,170, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_001[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_002[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_003[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_004[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_005[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_006[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_007[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_008[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_009[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_010[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_011[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_012[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_013[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_014[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_015[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_016[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_017[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_018[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_019[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_020[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_021[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_022[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_023[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_024[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_025[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_026[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_027[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_028[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_029[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_030[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_031[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_032[] = { 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_033[] = { 3, 0, 0, 0, 0, 64, 0, 64, 64, 64, 64, 64, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_034[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0,160,160, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_035[] = { 5, 0, 0, 0, 0, 80, 80,248, 80,248, 80, 80, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_036[] = { 5, 0, 0, 0, 32,224,144, 16, 96,128,144,112, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_037[] = { 8, 0, 0, 0, 0, 68, 42, 42, 86,168,164,126, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_038[] = { 8, 0, 0, 0, 0,118,141,152,116,110, 80, 48, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_039[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64,192, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_040[] = { 4, 0, 0, 32, 64, 64,128,128,128, 64, 64, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_041[] = { 4, 0, 0,128, 64, 64, 32, 32, 32, 64, 64,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_042[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0,160, 64,160, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_043[] = { 6, 0, 0, 0, 0, 32, 32,248, 32, 32, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_044[] = { 3, 0, 0, 64, 64, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_045[] = { 7, 0, 0, 0, 0, 0, 0,120, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_046[] = { 3, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_047[] = { 3, 0, 0, 0, 0,128,128, 64, 64, 64, 32, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_048[] = { 5, 0, 0, 0, 0, 96,144,144,144,144,144, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_049[] = { 5, 0, 0, 0, 0,112, 32, 32, 32, 32, 96, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_050[] = { 5, 0, 0, 0, 0,240, 64, 32, 32, 16,144, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_051[] = { 5, 0, 0, 0, 0,224, 16, 16, 96, 16,144, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_052[] = { 5, 0, 0, 0, 0, 16, 16,248,144, 80, 48, 16, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_053[] = { 5, 0, 0, 0, 0,224,144, 16, 16,224, 64,112, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_054[] = { 5, 0, 0, 0, 0, 96,144,144,144,224, 64, 48, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_055[] = { 5, 0, 0, 0, 0, 64, 64, 64, 32, 32,144,240, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_056[] = { 5, 0, 0, 0, 0, 96,144,144, 96,144,144, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_057[] = { 5, 0, 0, 0, 0,192, 32,112,144,144,144, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_058[] = { 3, 0, 0, 0, 0, 64, 0, 0, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_059[] = { 3, 0, 0, 64, 64, 64, 0, 0, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_060[] = { 5, 0, 0, 0, 0, 16, 32, 64, 32, 16, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_061[] = { 6, 0, 0, 0, 0, 0,248, 0,248, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_062[] = { 5, 0, 0, 0, 0,128, 64, 32, 64,128, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_063[] = { 4, 0, 0, 0, 0, 64, 0, 64, 64, 32,160,224, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_064[] = { 9, 0, 0, 0, 0, 62, 0, 64, 0,146, 0,173, 0,165, 0,165, 0,157, 0, 66, 0, 60, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_065[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_066[] = { 6, 0, 0, 0, 0,240, 72, 72,112, 72, 72,240, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_067[] = { 7, 0, 0, 0, 0,120,196,128,128,128,196,124, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_068[] = { 7, 0, 0, 0, 0,248, 76, 68, 68, 68, 76,248, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_069[] = { 6, 0, 0, 0, 0,248, 72, 64,112, 64, 72,248, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_070[] = { 6, 0, 0, 0, 0,224, 64, 64,112, 64, 72,248, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_071[] = { 7, 0, 0, 0, 0,120,196,132,156,128,196,124, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_072[] = { 8, 0, 0, 0, 0,238, 68, 68,124, 68, 68,238, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_073[] = { 4, 0, 0, 0, 0,224, 64, 64, 64, 64, 64,224, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_074[] = { 4, 0, 0, 0, 0,192,160, 32, 32, 32, 32,112, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_075[] = { 7, 0, 0, 0, 0,236, 72, 80, 96, 80, 72,236, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_076[] = { 6, 0, 0, 0, 0,248, 72, 64, 64, 64, 64,224, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_077[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0,235,128, 73, 0, 85, 0, 85, 0, 99, 0, 99, 0,227,128, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_078[] = { 8, 0, 0, 0, 0,228, 76, 76, 84, 84,100,238, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_079[] = { 7, 0, 0, 0, 0,120,204,132,132,132,204,120, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_080[] = { 6, 0, 0, 0, 0,224, 64, 64,112, 72, 72,240, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_081[] = { 7, 0, 0, 12, 24,112,204,132,132,132,204,120, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_082[] = { 7, 0, 0, 0, 0,236, 72, 80,112, 72, 72,240, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_083[] = { 5, 0, 0, 0, 0,224,144, 16, 96,192,144,112, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_084[] = { 6, 0, 0, 0, 0,112, 32, 32, 32, 32,168,248, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_085[] = { 8, 0, 0, 0, 0, 56,108, 68, 68, 68, 68,238, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_086[] = { 8, 0, 0, 0, 0, 16, 16, 40, 40,108, 68,238, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_087[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 34, 0, 85, 0, 85, 0,201,128,136,128,221,192, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_088[] = { 8, 0, 0, 0, 0,238, 68, 40, 16, 40, 68,238, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_089[] = { 8, 0, 0, 0, 0, 56, 16, 16, 40, 40, 68,238, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_090[] = { 6, 0, 0, 0, 0,248,136, 64, 32, 16,136,248, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_091[] = { 3, 0, 0,192,128,128,128,128,128,128,128,192, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_092[] = { 3, 0, 0, 0, 0, 32, 32, 64, 64, 64,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_093[] = { 3, 0, 0,192, 64, 64, 64, 64, 64, 64, 64,192, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_094[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 80, 80, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_095[] = { 5, 0,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_096[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192,128, 0, 0}; -static const GLubyte TimesRoman10_Character_097[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_098[] = { 5, 0, 0, 0, 0,224,144,144,144,224,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_099[] = { 4, 0, 0, 0, 0, 96,128,128,128, 96, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_100[] = { 5, 0, 0, 0, 0,104,144,144,144,112, 16, 48, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_101[] = { 4, 0, 0, 0, 0, 96,128,192,160, 96, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_102[] = { 4, 0, 0, 0, 0,224, 64, 64, 64,224, 64, 48, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_103[] = { 5, 0, 0,224,144, 96, 64,160,160,112, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_104[] = { 5, 0, 0, 0, 0,216,144,144,144,224,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_105[] = { 3, 0, 0, 0, 0, 64, 64, 64, 64,192, 0, 64, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_106[] = { 3, 0, 0,128, 64, 64, 64, 64, 64,192, 0, 64, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_107[] = { 5, 0, 0, 0, 0,152,144,224,160,144,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_108[] = { 4, 0, 0, 0, 0,224, 64, 64, 64, 64, 64,192, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_109[] = { 8, 0, 0, 0, 0,219,146,146,146,236, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_110[] = { 5, 0, 0, 0, 0,216,144,144,144,224, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_111[] = { 5, 0, 0, 0, 0, 96,144,144,144, 96, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_112[] = { 5, 0, 0,192,128,224,144,144,144,224, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_113[] = { 5, 0, 0, 56, 16,112,144,144,144,112, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_114[] = { 4, 0, 0, 0, 0,224, 64, 64, 96,160, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_115[] = { 4, 0, 0, 0, 0,224, 32, 96,128,224, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_116[] = { 4, 0, 0, 0, 0, 48, 64, 64, 64,224, 64, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_117[] = { 5, 0, 0, 0, 0,104,144,144,144,144, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_118[] = { 5, 0, 0, 0, 0, 32, 96, 80,144,216, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_119[] = { 8, 0, 0, 0, 0, 40,108, 84,146,219, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_120[] = { 6, 0, 0, 0, 0,216, 80, 32, 80,216, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_121[] = { 5, 0, 0,128,128, 64, 96,160,144,184, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_122[] = { 5, 0, 0, 0, 0,240,144, 64, 32,240, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_123[] = { 4, 0, 0, 32, 64, 64, 64,128, 64, 64, 64, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_124[] = { 2, 0, 0,128,128,128,128,128,128,128,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_125[] = { 4, 0, 0,128, 64, 64, 64, 32, 64, 64, 64,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_126[] = { 7, 0, 0, 0, 0, 0, 0,152,100, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_127[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_128[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_129[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_130[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_131[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_132[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_133[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_134[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_135[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_136[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_137[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_138[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_139[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_140[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_141[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_142[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_143[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_144[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_145[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_146[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_147[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_148[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_149[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_150[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_151[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_152[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_153[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_154[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_155[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_156[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_157[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_158[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_159[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0,170, 0, 0, 0,130, 0, 0, 0,130, 0, 0, 0,170, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_160[] = { 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_161[] = { 3, 0, 0, 64, 64, 64, 64, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_162[] = { 5, 0, 0, 0,128,224,144,128,144,112, 16, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_163[] = { 5, 0, 0, 0, 0,240,200, 64,224, 64, 80, 48, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_164[] = { 5, 0, 0, 0, 0, 0,136,112, 80, 80,112,136, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_165[] = { 5, 0, 0, 0, 0,112, 32,248, 32,216, 80,136, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_166[] = { 2, 0, 0, 0, 0,128,128,128, 0,128,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_167[] = { 5, 0, 0, 0,224,144, 32, 80,144,160, 64,144,112, 0, 0}; -static const GLubyte TimesRoman10_Character_168[] = { 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_169[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 77, 0, 81, 0, 77, 0, 34, 0, 28, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_170[] = { 4, 0, 0, 0, 0, 0, 0,224, 0,160, 32,192, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_171[] = { 5, 0, 0, 0, 0, 0, 80,160,160, 80, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_172[] = { 7, 0, 0, 0, 0, 0, 4, 4,124, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_173[] = { 4, 0, 0, 0, 0, 0, 0,224, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_174[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 85, 0, 89, 0, 93, 0, 34, 0, 28, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_175[] = { 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,224, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_176[] = { 4, 0, 0, 0, 0, 0, 0, 0, 96,144,144, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_177[] = { 6, 0, 0, 0, 0,248, 0, 32, 32,248, 32, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_178[] = { 3, 0, 0, 0, 0, 0, 0, 0,224, 64,160, 96, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_179[] = { 3, 0, 0, 0, 0, 0, 0, 0,192, 32, 64,224, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_180[] = { 3, 0, 0, 0, 0, 0, 0, 0, 0, 0,128, 64, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_181[] = { 5, 0, 0,128,128,232,144,144,144,144, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_182[] = { 6, 0, 0, 40, 40, 40, 40,104,232,232,232,124, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_183[] = { 2, 0, 0, 0, 0, 0, 0,128, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_184[] = { 4, 0,192, 32, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_185[] = { 3, 0, 0, 0, 0, 0, 0, 0,224, 64,192, 64, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_186[] = { 4, 0, 0, 0, 0, 0, 0,224, 0, 64,160, 64, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_187[] = { 5, 0, 0, 0, 0, 0,160, 80, 80,160, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_188[] = { 8, 0, 0, 0, 0, 68, 62, 44,244, 72,200, 68, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_189[] = { 8, 0, 0, 0, 0, 78, 36, 42,246, 72,200, 68, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_190[] = { 8, 0, 0, 0, 0, 68, 62, 44,212, 40, 72,228, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_191[] = { 4, 0, 0,224,160,128, 64, 64, 0, 64, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_192[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 0, 16, 32}; -static const GLubyte TimesRoman10_Character_193[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 0, 16, 8}; -static const GLubyte TimesRoman10_Character_194[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 0, 40, 16}; -static const GLubyte TimesRoman10_Character_195[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 0, 40, 20}; -static const GLubyte TimesRoman10_Character_196[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 0, 40, 0}; -static const GLubyte TimesRoman10_Character_197[] = { 8, 0, 0, 0, 0,238, 68,124, 40, 40, 56, 16, 16, 40, 16}; -static const GLubyte TimesRoman10_Character_198[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0,239, 0, 73, 0,120, 0, 46, 0, 40, 0, 57, 0, 31, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_199[] = { 7, 0, 96, 16, 32,120,196,128,128,128,196,124, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_200[] = { 6, 0, 0, 0, 0,248, 72, 64,112, 64, 72,248, 0, 32, 64}; -static const GLubyte TimesRoman10_Character_201[] = { 6, 0, 0, 0, 0,248, 72, 64,112, 64, 72,248, 0, 32, 16}; -static const GLubyte TimesRoman10_Character_202[] = { 6, 0, 0, 0, 0,248, 72, 64,112, 64, 72,248, 0, 80, 32}; -static const GLubyte TimesRoman10_Character_203[] = { 6, 0, 0, 0, 0,248, 72, 64,112, 64, 72,248, 0, 80, 0}; -static const GLubyte TimesRoman10_Character_204[] = { 4, 0, 0, 0, 0,224, 64, 64, 64, 64, 64,224, 0, 64,128}; -static const GLubyte TimesRoman10_Character_205[] = { 4, 0, 0, 0, 0,224, 64, 64, 64, 64, 64,224, 0, 64, 32}; -static const GLubyte TimesRoman10_Character_206[] = { 4, 0, 0, 0, 0,224, 64, 64, 64, 64, 64,224, 0,160, 64}; -static const GLubyte TimesRoman10_Character_207[] = { 4, 0, 0, 0, 0,224, 64, 64, 64, 64, 64,224, 0,160, 0}; -static const GLubyte TimesRoman10_Character_208[] = { 7, 0, 0, 0, 0,248, 76, 68,228, 68, 76,248, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_209[] = { 8, 0, 0, 0, 0,228, 76, 76, 84, 84,100,238, 0, 80, 40}; -static const GLubyte TimesRoman10_Character_210[] = { 7, 0, 0, 0, 0,120,204,132,132,132,204,120, 0, 32, 64}; -static const GLubyte TimesRoman10_Character_211[] = { 7, 0, 0, 0, 0,120,204,132,132,132,204,120, 0, 16, 8}; -static const GLubyte TimesRoman10_Character_212[] = { 7, 0, 0, 0, 0,120,204,132,132,132,204,120, 0, 80, 32}; -static const GLubyte TimesRoman10_Character_213[] = { 7, 0, 0, 0, 0,120,204,132,132,132,204,120, 0, 80, 40}; -static const GLubyte TimesRoman10_Character_214[] = { 7, 0, 0, 0, 0,120,204,132,132,132,204,120, 0, 80, 0}; -static const GLubyte TimesRoman10_Character_215[] = { 6, 0, 0, 0, 0,136, 80, 32, 80,136, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_216[] = { 8, 0, 0, 0,128,124,102, 82, 82, 74,102, 62, 1, 0, 0}; -static const GLubyte TimesRoman10_Character_217[] = { 8, 0, 0, 0, 0, 56,108, 68, 68, 68, 68,238, 0, 16, 32}; -static const GLubyte TimesRoman10_Character_218[] = { 8, 0, 0, 0, 0, 56,108, 68, 68, 68, 68,238, 0, 16, 8}; -static const GLubyte TimesRoman10_Character_219[] = { 8, 0, 0, 0, 0, 56,108, 68, 68, 68, 68,238, 0, 40, 16}; -static const GLubyte TimesRoman10_Character_220[] = { 8, 0, 0, 0, 0, 56,108, 68, 68, 68, 68,238, 0, 40, 0}; -static const GLubyte TimesRoman10_Character_221[] = { 8, 0, 0, 0, 0, 56, 16, 16, 40, 40, 68,238, 0, 16, 8}; -static const GLubyte TimesRoman10_Character_222[] = { 6, 0, 0, 0, 0,224, 64,112, 72,112, 64,224, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_223[] = { 5, 0, 0, 0, 0,224, 80, 80, 96, 80, 80, 32, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_224[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 0, 64,128, 0, 0}; -static const GLubyte TimesRoman10_Character_225[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 0, 64, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_226[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 0,160, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_227[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 0,160, 80, 0, 0}; -static const GLubyte TimesRoman10_Character_228[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 0,160, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_229[] = { 4, 0, 0, 0, 0,224,160, 96, 32,192, 64,160, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_230[] = { 6, 0, 0, 0, 0,216,160,112, 40,216, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_231[] = { 4, 0,192, 32, 64, 96,128,128,128, 96, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_232[] = { 4, 0, 0, 0, 0, 96,128,192,160, 96, 0, 64,128, 0, 0}; -static const GLubyte TimesRoman10_Character_233[] = { 4, 0, 0, 0, 0, 96,128,192,160, 96, 0, 64, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_234[] = { 4, 0, 0, 0, 0, 96,128,192,160, 96, 0,160, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_235[] = { 4, 0, 0, 0, 0, 96,128,192,160, 96, 0,160, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_236[] = { 4, 0, 0, 0, 0,224, 64, 64, 64,192, 0, 64,128, 0, 0}; -static const GLubyte TimesRoman10_Character_237[] = { 4, 0, 0, 0, 0,224, 64, 64, 64,192, 0, 64, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_238[] = { 4, 0, 0, 0, 0,224, 64, 64, 64,192, 0,160, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_239[] = { 4, 0, 0, 0, 0,224, 64, 64, 64,192, 0,160, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_240[] = { 5, 0, 0, 0, 0, 96,144,144,144,112,160,112, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_241[] = { 5, 0, 0, 0, 0,216,144,144,144,224, 0,160, 80, 0, 0}; -static const GLubyte TimesRoman10_Character_242[] = { 5, 0, 0, 0, 0, 96,144,144,144, 96, 0, 32, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_243[] = { 5, 0, 0, 0, 0, 96,144,144,144, 96, 0, 64, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_244[] = { 5, 0, 0, 0, 0, 96,144,144,144, 96, 0,160, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_245[] = { 5, 0, 0, 0, 0, 96,144,144,144, 96, 0,160, 80, 0, 0}; -static const GLubyte TimesRoman10_Character_246[] = { 5, 0, 0, 0, 0, 96,144,144,144, 96, 0,160, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_247[] = { 6, 0, 0, 0, 0, 32, 0,248, 0, 32, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_248[] = { 5, 0, 0, 0, 0,224,144,144,144,112, 8, 0, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_249[] = { 5, 0, 0, 0, 0,104,144,144,144,144, 0, 32, 64, 0, 0}; -static const GLubyte TimesRoman10_Character_250[] = { 5, 0, 0, 0, 0,104,144,144,144,144, 0, 64, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_251[] = { 5, 0, 0, 0, 0,104,144,144,144,144, 0, 80, 32, 0, 0}; -static const GLubyte TimesRoman10_Character_252[] = { 5, 0, 0, 0, 0,104,144,144,144,144, 0, 80, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_253[] = { 5, 0, 0,128,192, 64, 96,160,144,184, 0, 32, 16, 0, 0}; -static const GLubyte TimesRoman10_Character_254[] = { 5, 0, 0,192,128,224,144,144,144,224,128,128, 0, 0, 0}; -static const GLubyte TimesRoman10_Character_255[] = { 5, 0, 0,128,192, 64, 96,160,144,184, 0,160, 0, 0, 0}; - -/* The font characters mapping: */ -static const GLubyte* TimesRoman10_Character_Map[] = {TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032, - TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032, - TimesRoman10_Character_032,TimesRoman10_Character_033,TimesRoman10_Character_034,TimesRoman10_Character_035,TimesRoman10_Character_036,TimesRoman10_Character_037,TimesRoman10_Character_038,TimesRoman10_Character_039,TimesRoman10_Character_040,TimesRoman10_Character_041,TimesRoman10_Character_042,TimesRoman10_Character_043,TimesRoman10_Character_044,TimesRoman10_Character_045,TimesRoman10_Character_046,TimesRoman10_Character_047, - TimesRoman10_Character_048,TimesRoman10_Character_049,TimesRoman10_Character_050,TimesRoman10_Character_051,TimesRoman10_Character_052,TimesRoman10_Character_053,TimesRoman10_Character_054,TimesRoman10_Character_055,TimesRoman10_Character_056,TimesRoman10_Character_057,TimesRoman10_Character_058,TimesRoman10_Character_059,TimesRoman10_Character_060,TimesRoman10_Character_061,TimesRoman10_Character_062,TimesRoman10_Character_063, - TimesRoman10_Character_064,TimesRoman10_Character_065,TimesRoman10_Character_066,TimesRoman10_Character_067,TimesRoman10_Character_068,TimesRoman10_Character_069,TimesRoman10_Character_070,TimesRoman10_Character_071,TimesRoman10_Character_072,TimesRoman10_Character_073,TimesRoman10_Character_074,TimesRoman10_Character_075,TimesRoman10_Character_076,TimesRoman10_Character_077,TimesRoman10_Character_078,TimesRoman10_Character_079, - TimesRoman10_Character_080,TimesRoman10_Character_081,TimesRoman10_Character_082,TimesRoman10_Character_083,TimesRoman10_Character_084,TimesRoman10_Character_085,TimesRoman10_Character_086,TimesRoman10_Character_087,TimesRoman10_Character_088,TimesRoman10_Character_089,TimesRoman10_Character_090,TimesRoman10_Character_091,TimesRoman10_Character_092,TimesRoman10_Character_093,TimesRoman10_Character_094,TimesRoman10_Character_095, - TimesRoman10_Character_096,TimesRoman10_Character_097,TimesRoman10_Character_098,TimesRoman10_Character_099,TimesRoman10_Character_100,TimesRoman10_Character_101,TimesRoman10_Character_102,TimesRoman10_Character_103,TimesRoman10_Character_104,TimesRoman10_Character_105,TimesRoman10_Character_106,TimesRoman10_Character_107,TimesRoman10_Character_108,TimesRoman10_Character_109,TimesRoman10_Character_110,TimesRoman10_Character_111, - TimesRoman10_Character_112,TimesRoman10_Character_113,TimesRoman10_Character_114,TimesRoman10_Character_115,TimesRoman10_Character_116,TimesRoman10_Character_117,TimesRoman10_Character_118,TimesRoman10_Character_119,TimesRoman10_Character_120,TimesRoman10_Character_121,TimesRoman10_Character_122,TimesRoman10_Character_123,TimesRoman10_Character_124,TimesRoman10_Character_125,TimesRoman10_Character_126,TimesRoman10_Character_032, - TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032, - TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032,TimesRoman10_Character_032, - TimesRoman10_Character_160,TimesRoman10_Character_161,TimesRoman10_Character_162,TimesRoman10_Character_163,TimesRoman10_Character_164,TimesRoman10_Character_165,TimesRoman10_Character_166,TimesRoman10_Character_167,TimesRoman10_Character_168,TimesRoman10_Character_169,TimesRoman10_Character_170,TimesRoman10_Character_171,TimesRoman10_Character_172,TimesRoman10_Character_173,TimesRoman10_Character_174,TimesRoman10_Character_175, - TimesRoman10_Character_176,TimesRoman10_Character_177,TimesRoman10_Character_178,TimesRoman10_Character_179,TimesRoman10_Character_180,TimesRoman10_Character_181,TimesRoman10_Character_182,TimesRoman10_Character_183,TimesRoman10_Character_184,TimesRoman10_Character_185,TimesRoman10_Character_186,TimesRoman10_Character_187,TimesRoman10_Character_188,TimesRoman10_Character_189,TimesRoman10_Character_190,TimesRoman10_Character_191, - TimesRoman10_Character_192,TimesRoman10_Character_193,TimesRoman10_Character_194,TimesRoman10_Character_195,TimesRoman10_Character_196,TimesRoman10_Character_197,TimesRoman10_Character_198,TimesRoman10_Character_199,TimesRoman10_Character_200,TimesRoman10_Character_201,TimesRoman10_Character_202,TimesRoman10_Character_203,TimesRoman10_Character_204,TimesRoman10_Character_205,TimesRoman10_Character_206,TimesRoman10_Character_207, - TimesRoman10_Character_208,TimesRoman10_Character_209,TimesRoman10_Character_210,TimesRoman10_Character_211,TimesRoman10_Character_212,TimesRoman10_Character_213,TimesRoman10_Character_214,TimesRoman10_Character_215,TimesRoman10_Character_216,TimesRoman10_Character_217,TimesRoman10_Character_218,TimesRoman10_Character_219,TimesRoman10_Character_220,TimesRoman10_Character_221,TimesRoman10_Character_222,TimesRoman10_Character_223, - TimesRoman10_Character_224,TimesRoman10_Character_225,TimesRoman10_Character_226,TimesRoman10_Character_227,TimesRoman10_Character_228,TimesRoman10_Character_229,TimesRoman10_Character_230,TimesRoman10_Character_231,TimesRoman10_Character_232,TimesRoman10_Character_233,TimesRoman10_Character_234,TimesRoman10_Character_235,TimesRoman10_Character_236,TimesRoman10_Character_237,TimesRoman10_Character_238,TimesRoman10_Character_239, - TimesRoman10_Character_240,TimesRoman10_Character_241,TimesRoman10_Character_242,TimesRoman10_Character_243,TimesRoman10_Character_244,TimesRoman10_Character_245,TimesRoman10_Character_246,TimesRoman10_Character_247,TimesRoman10_Character_248,TimesRoman10_Character_249,TimesRoman10_Character_250,TimesRoman10_Character_251,TimesRoman10_Character_252,TimesRoman10_Character_253,TimesRoman10_Character_254,TimesRoman10_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontTimesRoman10 = { "-adobe-times-medium-r-normal--10-100-75-75-p-54-iso8859-1", 256, 14, TimesRoman10_Character_Map, 0, 4 }; - -static const GLubyte TimesRoman24_Character_000[] = { 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 64, 0, 64, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_001[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_002[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_003[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_004[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_005[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_006[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_007[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_008[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_009[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_010[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_011[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_012[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_013[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_014[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_015[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_016[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_017[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_018[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_019[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_020[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_021[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_022[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_023[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_024[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_025[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_026[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_027[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_028[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_029[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_030[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_031[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_032[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_033[] = { 8, 0, 0, 0, 0, 0, 0, 0, 24, 24, 0, 0, 0, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_034[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 68, 0,102, 0,102, 0,102, 0,102, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_035[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, 0, 17, 0, 17, 0, 17, 0, 17, 0,127,224,127,224, 8,128, 8,128, 8,128, 63,240, 63,240, 4, 64, 4, 64, 4, 64, 4, 64, 4, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_036[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 63, 0,229,192,196,192,132, 96,132, 96, 4, 96, 4,224, 7,192, 7,128, 30, 0, 60, 0,116, 0,100, 0,100, 32,100, 96, 52,224, 31,128, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_037[] = { 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 30, 0, 12, 57, 0, 6, 48,128, 2, 48, 64, 3, 48, 64, 1,152, 64, 0,140,192, 0,199,128, 60, 96, 0,114, 32, 0, 97, 48, 0, 96,152, 0, 96,136, 0, 48,140, 0, 25,254, 0, 15, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_038[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, 30, 0, 63,191, 0,112,240,128, 96, 96, 0, 96,224, 0, 96,208, 0, 49,144, 0, 27,136, 0, 15, 12, 0, 7, 31, 0, 7,128, 0, 14,192, 0, 12, 96, 0, 12, 32, 0, 12, 32, 0, 6, 96, 0, 3,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_039[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 12, 4, 28, 24, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_040[] = { 8, 0, 0, 2, 4, 8, 24, 16, 48, 48, 96, 96, 96, 96, 96, 96, 96, 96, 48, 48, 16, 24, 8, 4, 2, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_041[] = { 8, 0, 0, 64, 32, 16, 24, 8, 12, 12, 6, 6, 6, 6, 6, 6, 6, 6, 12, 12, 8, 24, 16, 32, 64, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_042[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 7, 0, 50, 96, 58,224, 7, 0, 58,224, 50, 96, 7, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_043[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0,127,248,127,248, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_044[] = { 7, 0, 0, 0, 0, 48, 24, 8, 56, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_045[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,248,127,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_046[] = { 6, 0, 0, 0, 0, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_047[] = { 7, 0, 0, 0, 0,192,192,192, 64, 96, 96, 32, 48, 48, 16, 24, 24, 8, 12, 12, 4, 6, 6, 6, 6, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_048[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 25,128, 48,192, 48,192,112,224, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 48,192, 25,128, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_049[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63,192, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 6, 0, 30, 0, 6, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_050[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,192,127,224, 48, 32, 24, 0, 12, 0, 6, 0, 2, 0, 3, 0, 1,128, 1,128, 0,192, 0,192, 64,192, 64,192, 33,192, 63,128, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_051[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0,115, 0, 97,128, 0,128, 0,192, 0,192, 0,192, 1,192, 3,128, 15, 0, 6, 0, 3, 0, 65,128, 65,128, 35,128, 63, 0, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_052[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,128, 1,128, 1,128, 1,128,127,224,127,224, 97,128, 33,128, 49,128, 17,128, 25,128, 9,128, 13,128, 5,128, 3,128, 3,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_053[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 0,113,192, 96,192, 0, 96, 0, 96, 0, 96, 0, 96, 0,224, 1,192, 7,192, 63, 0, 60, 0, 48, 0, 16, 0, 16, 0, 15,192, 15,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_054[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 61,192, 48,192,112, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96,192,121,192,119, 0, 48, 0, 56, 0, 24, 0, 12, 0, 7, 0, 1,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_055[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 6, 0, 6, 0, 6, 0, 2, 0, 3, 0, 3, 0, 1, 0, 1,128, 1,128, 0,128, 0,192, 64,192, 96, 96,127,224, 63,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_056[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192,112,192, 96, 96, 96, 96, 96, 96, 32,224, 48,192, 27,128, 15, 0, 15, 0, 25,128, 48,192, 48,192, 48,192, 25,128, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_057[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120, 0, 14, 0, 3, 0, 1,128, 1,192, 0,192, 14,192, 57,224, 48,224, 96, 96, 96, 96, 96, 96, 96, 96, 96,224, 48,192, 59,192, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_058[] = { 6, 0, 0, 0, 0, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_059[] = { 7, 0, 0, 0, 0, 48, 24, 8, 56, 48, 0, 0, 0, 0, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_060[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 0,224, 3,128, 14, 0, 56, 0, 96, 0, 56, 0, 14, 0, 3,128, 0,224, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_061[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,248,127,248, 0, 0, 0, 0,127,248,127,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_062[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 0, 56, 0, 14, 0, 3,128, 0,224, 0, 48, 0,224, 3,128, 14, 0, 56, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_063[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 12, 0, 0, 0, 0, 0, 4, 0, 4, 0, 4, 0, 6, 0, 6, 0, 3, 0, 3,128, 1,192, 48,192, 48,192, 32,192, 49,128, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_064[] = { 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 0, 3,131, 0, 6, 0, 0, 12, 0, 0, 24,119,128, 24,222,192, 49,142, 96, 49,134, 32, 49,134, 48, 49,134, 16, 49,131, 16, 48,195, 16, 48,227, 16, 56,127, 16, 24, 59, 48, 28, 0, 32, 14, 0, 96, 7, 0,192, 3,195,128, 0,254, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_065[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 6, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_066[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,240, 24, 60, 24, 12, 24, 6, 24, 6, 24, 6, 24, 12, 24, 28, 31,240, 24, 32, 24, 24, 24, 12, 24, 12, 24, 12, 24, 24, 24, 56,127,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_067[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 15, 28, 28, 4, 48, 2, 48, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 48, 2, 48, 2, 28, 6, 14, 30, 3,242, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_068[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,224, 0, 24, 56, 0, 24, 28, 0, 24, 6, 0, 24, 6, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 6, 0, 24, 6, 0, 24, 28, 0, 24, 56, 0,127,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_069[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252, 24, 12, 24, 4, 24, 4, 24, 0, 24, 0, 24, 32, 24, 32, 31,224, 24, 32, 24, 32, 24, 0, 24, 0, 24, 8, 24, 8, 24, 24,127,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_070[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 16, 24, 16, 31,240, 24, 16, 24, 16, 24, 0, 24, 0, 24, 8, 24, 8, 24, 24,127,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_071[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 15, 28, 0, 28, 14, 0, 48, 6, 0, 48, 6, 0, 96, 6, 0, 96, 6, 0, 96, 31,128, 96, 0, 0, 96, 0, 0, 96, 0, 0, 96, 0, 0, 48, 2, 0, 48, 2, 0, 28, 6, 0, 14, 30, 0, 3,242, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_072[] = { 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 15,192, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 31,255, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0,126, 15,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_073[] = { 8, 0, 0, 0, 0, 0, 0, 0,126, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,126, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_074[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, 0,102, 0, 99, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 15,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_075[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 15,128, 24, 7, 0, 24, 14, 0, 24, 28, 0, 24, 56, 0, 24,112, 0, 24,224, 0, 25,192, 0, 31,128, 0, 31, 0, 0, 25,128, 0, 24,192, 0, 24, 96, 0, 24, 48, 0, 24, 24, 0, 24, 12, 0,126, 63, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_076[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252, 24, 12, 24, 4, 24, 4, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0,126, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_077[] = { 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 16,252, 16, 48, 48, 16, 48, 48, 16,104, 48, 16,104, 48, 16,196, 48, 16,196, 48, 17,132, 48, 17,130, 48, 19, 2, 48, 19, 1, 48, 22, 1, 48, 22, 1, 48, 28, 0,176, 28, 0,176, 24, 0,112,120, 0,124, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_078[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 6, 0, 16, 14, 0, 16, 14, 0, 16, 26, 0, 16, 50, 0, 16, 50, 0, 16, 98, 0, 16,194, 0, 16,194, 0, 17,130, 0, 19, 2, 0, 19, 2, 0, 22, 2, 0, 28, 2, 0, 28, 2, 0, 24, 2, 0,120, 15,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_079[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_080[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 31,224, 24, 56, 24, 24, 24, 12, 24, 12, 24, 12, 24, 24, 24, 56,127,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_081[] = { 18, 0, 0, 0, 0, 0, 0, 0, 7,128, 0, 28, 0, 0, 56, 0, 0,112, 0, 0,224, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_082[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 15, 24, 14, 24, 28, 24, 56, 24, 48, 24, 96, 24,224, 25,192, 31,224, 24, 56, 24, 24, 24, 28, 24, 12, 24, 28, 24, 24, 24, 56,127,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_083[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 79, 0,120,192, 96, 96, 64, 48, 64, 48, 0, 48, 0,112, 1,224, 7,192, 15, 0, 60, 0,112, 0, 96, 32, 96, 32, 96, 96, 49,224, 15, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_084[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,224, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 65,130, 65,130, 97,134,127,254, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_085[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 24, 0, 12, 4, 0, 24, 4, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0,126, 15,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_086[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,128, 0, 1,128, 0, 1,128, 0, 3,192, 0, 3, 64, 0, 3, 96, 0, 6, 32, 0, 6, 32, 0, 6, 48, 0, 12, 16, 0, 12, 24, 0, 24, 8, 0, 24, 8, 0, 24, 12, 0, 48, 4, 0, 48, 6, 0,252, 31,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_087[] = { 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,131, 0, 1,131, 0, 1,131,128, 3,135,128, 3, 70,128, 3, 70,192, 6, 70, 64, 6, 76, 64, 6, 76, 96, 12, 44, 96, 12, 44, 32, 24, 44, 32, 24, 24, 48, 24, 24, 16, 48, 24, 16, 48, 24, 24,252,126,126, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_088[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 15,192, 48, 3,128, 24, 7, 0, 8, 14, 0, 4, 12, 0, 6, 24, 0, 2, 56, 0, 1,112, 0, 0,224, 0, 0,192, 0, 1,192, 0, 3,160, 0, 3, 16, 0, 6, 8, 0, 14, 12, 0, 28, 6, 0,126, 15,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_089[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,224, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 3,192, 3, 64, 6, 96, 6, 32, 12, 48, 28, 16, 24, 24, 56, 8, 48, 12,252, 63, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_090[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252,112, 12, 56, 4, 24, 4, 28, 0, 12, 0, 14, 0, 7, 0, 3, 0, 3,128, 1,128, 1,192, 0,224, 64, 96, 64,112, 96, 56,127,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_091[] = { 8, 0, 0, 0, 62, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 62, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_092[] = { 7, 0, 0, 0, 0, 0, 0, 0, 6, 6, 4, 12, 12, 8, 24, 24, 16, 48, 48, 32, 96, 96, 64,192,192, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_093[] = { 8, 0, 0, 0,124, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,124, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_094[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, 64, 96,192, 32,128, 49,128, 17, 0, 27, 0, 10, 0, 14, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_095[] = { 13, 0, 0, 0, 0,255,248,255,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_096[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48,112, 64, 96, 48, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_097[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_098[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 47, 0, 57,192, 48,192, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48,192, 57,192, 55, 0, 48, 0, 48, 0, 48, 0, 48, 0,112, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_099[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 32,192, 49,192, 15,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_100[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 96, 57,192, 48,192, 96,192, 96,192, 96,192, 96,192, 96,192, 96,192, 48,192, 57,192, 14,192, 0,192, 0,192, 0,192, 0,192, 1,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_101[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0,127,192, 96,192, 32,192, 49,128, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_102[] = { 7, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,254, 48, 48, 48, 22, 14, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_103[] = { 12, 0, 0, 0, 0, 31,128,120,224, 96, 48, 96, 16, 48, 48, 31,224, 63,128, 48, 0, 24, 0, 31, 0, 25,128, 48,192, 48,192, 48,192, 48,192, 25,128, 15,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_104[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120,240, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 56,224, 55,192, 51,128, 48, 0, 48, 0, 48, 0, 48, 0,112, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_105[] = { 6, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_106[] = { 6, 0, 0,192,224, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_107[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,121,240, 48,224, 49,192, 51,128, 55, 0, 54, 0, 60, 0, 52, 0, 50, 0, 51, 0, 49,128, 51,224, 48, 0, 48, 0, 48, 0, 48, 0,112, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_108[] = { 6, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_109[] = { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120,241,224, 48, 96,192, 48, 96,192, 48, 96,192, 48, 96,192, 48, 96,192, 48, 96,192, 48, 96,192, 48, 96,192, 56,241,192, 55,207,128,115,135, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_110[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120,240, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 56,224, 55,192,115,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_111[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_112[] = { 12, 0, 0, 0, 0,120, 0, 48, 0, 48, 0, 48, 0, 48, 0, 55, 0, 57,192, 48,192, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48,192, 57,192,119, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_113[] = { 12, 0, 0, 0, 0, 1,224, 0,192, 0,192, 0,192, 0,192, 14,192, 57,192, 48,192, 96,192, 96,192, 96,192, 96,192, 96,192, 96,192, 48,192, 57,192, 14,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_114[] = { 8, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 59, 55,115, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_115[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 0, 99, 0, 65,128, 1,128, 3,128, 15, 0, 62, 0, 56, 0,112, 0, 97, 0, 51, 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_116[] = { 7, 0, 0, 0, 0, 0, 0, 0, 28, 50, 48, 48, 48, 48, 48, 48, 48, 48, 48,254,112, 48, 16, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_117[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14,112, 31, 96, 56,224, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96,112,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_118[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 14, 0, 14, 0, 26, 0, 25, 0, 25, 0, 49, 0, 48,128, 48,128, 96,128, 96,192,241,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_119[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 16, 0, 14, 56, 0, 14, 56, 0, 26, 40, 0, 26,100, 0, 25,100, 0, 49,100, 0, 48,194, 0, 48,194, 0, 96,194, 0, 96,195, 0,241,231,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_120[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120,240, 48, 96, 16,192, 25,192, 13,128, 7, 0, 6, 0, 13, 0, 28,128, 24,192, 48, 96,120,240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_121[] = { 11, 0, 0, 0, 0,224, 0,240, 0, 24, 0, 8, 0, 12, 0, 4, 0, 14, 0, 14, 0, 26, 0, 25, 0, 25, 0, 49, 0, 48,128, 48,128, 96,128, 96,192,241,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_122[] = { 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,128, 97,128, 48,128, 56, 0, 24, 0, 28, 0, 12, 0, 14, 0, 7, 0, 67, 0, 97,128,127,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_123[] = { 10, 0, 0, 0, 0, 3,128, 6, 0, 12, 0, 12, 0, 12, 0, 12, 0, 12, 0, 12, 0, 8, 0, 24, 0, 16, 0, 96, 0, 16, 0, 24, 0, 8, 0, 12, 0, 12, 0, 12, 0, 12, 0, 12, 0, 6, 0, 3,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_124[] = { 6, 0, 0, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_125[] = { 10, 0, 0, 0, 0,112, 0, 24, 0, 12, 0, 12, 0, 12, 0, 12, 0, 12, 0, 12, 0, 4, 0, 6, 0, 2, 0, 1,128, 2, 0, 6, 0, 4, 0, 12, 0, 12, 0, 12, 0, 12, 0, 12, 0, 24, 0,112, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_126[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 65,192, 99,224, 62, 48, 28, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_127[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_128[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_129[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_130[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_131[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_132[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_133[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_134[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_135[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_136[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_137[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_138[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_139[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_140[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_141[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_142[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_143[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_144[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_145[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_146[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_147[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_148[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_149[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_150[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_151[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_152[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_153[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_154[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_155[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_156[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_157[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_158[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_159[] = { 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 64, 0, 64, 0, 0, 0, 0, 0, 85, 85, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_160[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_161[] = { 8, 0, 0, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 0, 0, 0, 12, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_162[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 32, 0, 31, 0, 63,128, 56, 64,104, 0,100, 0,100, 0,100, 0, 98, 0, 98, 0, 33,192, 49,192, 15,128, 0,128, 0,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_163[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,115,192, 95, 96, 60, 32, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24, 0,126, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24,192, 12,192, 7,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_164[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 48,119,112, 63,224, 24,192, 48, 96, 48, 96, 48, 96, 48, 96, 24,192, 63,224,119,112, 96, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_165[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,192, 3, 0, 3, 0, 3, 0, 3, 0, 31,224, 3, 0, 31,224, 3, 0, 7,128, 12,128, 12,192, 24, 64, 24, 96, 48, 32,112, 48,248,124, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_166[] = { 6, 0, 0, 0, 0, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 0, 0, 0, 48, 48, 48, 48, 48, 48, 48, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_167[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, 0, 25, 0, 24,128, 1,128, 3,128, 7, 0, 14, 0, 29, 0, 56,128, 48,192, 32,192, 33,192, 19,128, 15, 0, 14, 0, 28, 0, 24, 0, 17,128, 9,128, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_168[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,102,102, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_169[] = { 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,248, 0, 14, 14, 0, 24, 3, 0, 48,225,128, 35,184,128, 98, 12,192, 70, 0, 64, 68, 0, 64, 68, 0, 64, 68, 0, 64, 70, 0, 64, 98, 12,192, 35,152,128, 48,241,128, 24, 3, 0, 14, 14, 0, 3,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_170[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0,118,204,204,124, 12,204,120, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_171[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 32, 6, 96, 12,192, 25,128, 51, 0, 51, 0, 25,128, 12,192, 6, 96, 2, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_172[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 24, 0, 24, 0, 24, 0, 24,127,248,127,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_173[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127, 0,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_174[] = { 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,248, 0, 14, 14, 0, 24, 3, 0, 48, 1,128, 35,140,128, 97, 24,192, 65, 16, 64, 65, 32, 64, 65,240, 64, 65, 24, 64, 65, 8, 64, 97, 8,192, 33, 24,128, 51,241,128, 24, 3, 0, 14, 14, 0, 3,248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_175[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126,126, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_176[] = { 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 34, 0, 65, 0, 65, 0, 65, 0, 34, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_177[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,248,127,248, 0, 0, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0,127,248,127,248, 3, 0, 3, 0, 3, 0, 3, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_178[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 68, 32, 48, 16, 8, 12,140, 76, 56, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_179[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,112,136,140, 12, 8, 48, 8,140, 76, 56, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_180[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, 24, 14, 6, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_181[] = { 13, 0, 0, 0, 0, 32, 0,112, 0, 96, 0, 32, 0, 32, 0, 46,112, 63, 96, 56,224, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96,112,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_182[] = { 11, 0, 0, 0, 0, 4,128, 4,128, 4,128, 4,128, 4,128, 4,128, 4,128, 4,128, 4,128, 4,128, 4,128, 12,128, 28,128, 60,128, 60,128,124,128,124,128,124,128, 60,128, 60,128, 28,128, 15,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_183[] = { 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_184[] = { 8, 0, 60,102, 6, 30, 24, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_185[] = { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 16, 16, 16, 16, 16, 16, 80, 48, 16, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_186[] = { 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 60,102,102,102,102,102, 60, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_187[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 51, 0, 25,128, 12,192, 6, 96, 6, 96, 12,192, 25,128, 51, 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_188[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 2, 0, 8, 2, 0, 12,127,128, 4, 34, 0, 6, 50, 0, 3, 18, 0, 1, 10, 0,125,142, 0, 16,134, 0, 16,194, 0, 16, 96, 0, 16, 32, 0, 16, 48, 0, 16, 16, 0, 80, 24, 0, 48, 12, 0, 16, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_189[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 63, 0, 8, 17, 0, 12, 8, 0, 4, 12, 0, 6, 4, 0, 3, 2, 0, 1, 3, 0,125,163, 0, 16,147, 0, 16,206, 0, 16, 96, 0, 16, 32, 0, 16, 48, 0, 16, 16, 0, 80, 24, 0, 48, 12, 0, 16, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_190[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 2, 0, 8, 2, 0, 12,127,128, 4, 34, 0, 6, 50, 0, 3, 18, 0, 1, 10, 0,113,142, 0,136,134, 0,140,194, 0, 12, 96, 0, 8, 32, 0, 48, 48, 0, 8, 16, 0,140, 24, 0, 76, 12, 0, 56, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_191[] = { 11, 0, 0, 0, 0, 31, 0, 49,128, 96,128, 97,128, 97,128,112, 0, 56, 0, 24, 0, 28, 0, 12, 0, 12, 0, 4, 0, 4, 0, 0, 0, 0, 0, 6, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_192[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 6, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 0, 0, 0, 0, 32, 0, 0,192, 0, 3,128, 0, 3, 0, 0}; -static const GLubyte TimesRoman24_Character_193[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 6, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 0, 0, 0, 1, 0, 0, 0,192, 0, 0,112, 0, 0, 48, 0}; -static const GLubyte TimesRoman24_Character_194[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 6, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 0, 0, 0, 8, 16, 0, 6, 96, 0, 3,192, 0, 1,128, 0}; -static const GLubyte TimesRoman24_Character_195[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 7, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 0, 0, 0, 0, 0, 0, 4,224, 0, 3,144, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_196[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 6, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 0, 0, 0, 0, 0, 0, 6, 48, 0, 6, 48, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_197[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252, 31,128, 48, 6, 0, 16, 6, 0, 16, 12, 0, 24, 12, 0, 8, 12, 0, 15,248, 0, 12, 24, 0, 4, 24, 0, 4, 48, 0, 6, 48, 0, 2, 48, 0, 2, 96, 0, 1, 96, 0, 1,192, 0, 1,192, 0, 0,128, 0, 1,192, 0, 2, 32, 0, 2, 32, 0, 1,192, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_198[] = { 21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,249,255,240, 48, 96, 48, 16, 96, 16, 16, 96, 16, 24, 96, 0, 8, 96, 0, 15,224,128, 12, 96,128, 4,127,128, 4, 96,128, 6, 96,128, 2, 96, 0, 2, 96, 0, 1, 96, 32, 1, 96, 32, 1,224, 96, 3,255,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_199[] = { 16, 0, 0, 3,192, 6, 96, 0, 96, 1,224, 1,128, 0,128, 3,240, 15, 28, 28, 4, 48, 2, 48, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 48, 2, 48, 2, 28, 6, 14, 30, 3,242, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_200[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252, 24, 12, 24, 4, 24, 4, 24, 0, 24, 0, 24, 32, 24, 32, 31,224, 24, 32, 24, 32, 24, 0, 24, 0, 24, 8, 24, 8, 24, 24,127,248, 0, 0, 0,128, 3, 0, 14, 0, 12, 0}; -static const GLubyte TimesRoman24_Character_201[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252, 24, 12, 24, 4, 24, 4, 24, 0, 24, 0, 24, 32, 24, 32, 31,224, 24, 32, 24, 32, 24, 0, 24, 0, 24, 8, 24, 8, 24, 24,127,248, 0, 0, 2, 0, 1,128, 0,224, 0, 96}; -static const GLubyte TimesRoman24_Character_202[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252, 24, 12, 24, 4, 24, 4, 24, 0, 24, 0, 24, 32, 24, 32, 31,224, 24, 32, 24, 32, 24, 0, 24, 0, 24, 8, 24, 8, 24, 24,127,248, 0, 0, 8, 16, 6, 96, 3,192, 1,128}; -static const GLubyte TimesRoman24_Character_203[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,252, 24, 12, 24, 4, 24, 4, 24, 0, 24, 0, 24, 32, 24, 32, 31,224, 24, 32, 24, 32, 24, 0, 24, 0, 24, 8, 24, 8, 24, 24,127,248, 0, 0, 0, 0, 12,192, 12,192, 0, 0}; -static const GLubyte TimesRoman24_Character_204[] = { 8, 0, 0, 0, 0, 0, 0, 0,126, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,126, 0, 4, 24,112, 96}; -static const GLubyte TimesRoman24_Character_205[] = { 8, 0, 0, 0, 0, 0, 0, 0,126, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,126, 0, 32, 24, 14, 6}; -static const GLubyte TimesRoman24_Character_206[] = { 8, 0, 0, 0, 0, 0, 0, 0, 63, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 63, 0, 64, 51, 30, 12}; -static const GLubyte TimesRoman24_Character_207[] = { 8, 0, 0, 0, 0, 0, 0, 0,126, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,126, 0, 0,102,102, 0}; -static const GLubyte TimesRoman24_Character_208[] = { 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,224, 0, 24, 56, 0, 24, 28, 0, 24, 6, 0, 24, 6, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0,255, 3, 0, 24, 3, 0, 24, 3, 0, 24, 3, 0, 24, 6, 0, 24, 6, 0, 24, 28, 0, 24, 56, 0,127,224, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_209[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,124, 6, 0, 16, 14, 0, 16, 14, 0, 16, 26, 0, 16, 50, 0, 16, 50, 0, 16, 98, 0, 16,194, 0, 16,194, 0, 17,130, 0, 19, 2, 0, 19, 2, 0, 22, 2, 0, 28, 2, 0, 28, 2, 0, 24, 2, 0,120, 15,128, 0, 0, 0, 0, 0, 0, 2,112, 0, 1,200, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_210[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 0, 32, 0, 0,192, 0, 3,128, 0, 3, 0, 0}; -static const GLubyte TimesRoman24_Character_211[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 0,128, 0, 0, 96, 0, 0, 56, 0, 0, 24, 0}; -static const GLubyte TimesRoman24_Character_212[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 4, 8, 0, 3, 48, 0, 1,224, 0, 0,192, 0}; -static const GLubyte TimesRoman24_Character_213[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 0, 0, 0, 2,112, 0, 1,200, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_214[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 28, 0, 28, 14, 0, 48, 3, 0, 48, 3, 0, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 96, 1,128, 48, 3, 0, 48, 3, 0, 28, 14, 0, 14, 28, 0, 3,240, 0, 0, 0, 0, 0, 0, 0, 3, 48, 0, 3, 48, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_215[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, 16, 48, 48, 24, 96, 12,192, 7,128, 3, 0, 7,128, 12,192, 24, 96, 48, 48, 32, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_216[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, 19,240, 0, 14, 28, 0, 28, 14, 0, 52, 3, 0, 50, 3, 0, 97, 1,128, 97, 1,128, 96,129,128, 96,129,128, 96, 65,128, 96, 65,128, 96, 33,128, 48, 35, 0, 48, 19, 0, 28, 14, 0, 14, 28, 0, 3,242, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_217[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 24, 0, 12, 4, 0, 24, 4, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0,126, 15,128, 0, 0, 0, 0, 32, 0, 0,192, 0, 3,128, 0, 3, 0, 0}; -static const GLubyte TimesRoman24_Character_218[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 24, 0, 12, 4, 0, 24, 4, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0,126, 15,128, 0, 0, 0, 0,128, 0, 0, 96, 0, 0, 56, 0, 0, 24, 0}; -static const GLubyte TimesRoman24_Character_219[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 24, 0, 12, 4, 0, 24, 4, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0,126, 15,128, 0, 0, 0, 4, 8, 0, 3, 48, 0, 1,224, 0, 0,192, 0}; -static const GLubyte TimesRoman24_Character_220[] = { 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3,240, 0, 14, 24, 0, 12, 4, 0, 24, 4, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0, 24, 2, 0,126, 15,128, 0, 0, 0, 0, 0, 0, 3, 24, 0, 3, 24, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_221[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,224, 1,128, 1,128, 1,128, 1,128, 1,128, 1,128, 3,192, 3, 64, 6, 96, 6, 32, 12, 48, 28, 16, 24, 24, 56, 8, 48, 12,252, 63, 0, 0, 1, 0, 0,192, 0,112, 0, 48}; -static const GLubyte TimesRoman24_Character_222[] = { 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,126, 0, 24, 0, 24, 0, 24, 0, 31,224, 24, 56, 24, 24, 24, 12, 24, 12, 24, 12, 24, 24, 24, 56, 31,224, 24, 0, 24, 0, 24, 0,126, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_223[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,115,128, 54, 64, 54, 96, 48, 96, 48, 96, 48,224, 48,192, 49,192, 51,128, 54, 0, 49,128, 48,192, 48,192, 48,192, 48,192, 25,128, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_224[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 2, 0, 12, 0, 56, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_225[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 8, 0, 6, 0, 3,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_226[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 33, 0, 18, 0, 30, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_227[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 0, 0, 46, 0, 29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_228[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 0, 0, 51, 0, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_229[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,192,125,128, 99,128, 97,128, 97,128, 49,128, 29,128, 7,128, 1,128, 49,128, 51,128, 31, 0, 0, 0, 14, 0, 17, 0, 17, 0, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_230[] = { 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56,120,125,252, 99,194, 97,128, 97,128, 49,128, 29,128, 7,254, 1,134, 49,134, 51,204, 30,120, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_231[] = { 11, 0, 0, 30, 0, 51, 0, 3, 0, 15, 0, 12, 0, 4, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0, 96, 0, 96, 0, 32,192, 49,192, 15,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_232[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0,127,192, 96,192, 32,192, 49,128, 15, 0, 0, 0, 2, 0, 12, 0, 56, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_233[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0,127,192, 96,192, 32,192, 49,128, 15, 0, 0, 0, 8, 0, 6, 0, 3,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_234[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0,127,192, 96,192, 32,192, 49,128, 15, 0, 0, 0, 16,128, 9, 0, 15, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_235[] = { 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 63,128, 56, 64,112, 0, 96, 0, 96, 0, 96, 0,127,192, 96,192, 32,192, 49,128, 15, 0, 0, 0, 0, 0, 25,128, 25,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_236[] = { 6, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0, 8, 48,224,192, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_237[] = { 6, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0, 64, 48, 28, 12, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_238[] = { 6, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0,132, 72,120, 48, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_239[] = { 6, 0, 0, 0, 0, 0, 0, 0,120, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,112, 0, 0,204,204, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_240[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15,128, 99, 0, 30, 0, 15, 0, 56,192, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_241[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,120,240, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 56,224, 55,192,115,128, 0, 0, 0, 0, 19,128, 14, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_242[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15, 0, 0, 0, 1, 0, 6, 0, 28, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_243[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15, 0, 0, 0, 4, 0, 3, 0, 1,192, 0,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_244[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15, 0, 0, 0, 16,128, 9, 0, 15, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_245[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15, 0, 0, 0, 0, 0, 19,128, 14, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_246[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 57,192, 48,192, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 48,192, 57,192, 15, 0, 0, 0, 0, 0, 25,128, 25,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_247[] = { 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 3, 0, 0, 0, 0, 0,127,248,127,248, 0, 0, 0, 0, 3, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_248[] = { 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 96, 0,111, 0, 57,192, 56,192,104, 96,108, 96,100, 96,102, 96, 98, 96, 99, 96, 49,192, 57,192, 15, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_249[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14,112, 31, 96, 56,224, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96,112,224, 0, 0, 1, 0, 6, 0, 28, 0, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_250[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14,112, 31, 96, 56,224, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96,112,224, 0, 0, 4, 0, 3, 0, 1,192, 0,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_251[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14,112, 31, 96, 56,224, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96,112,224, 0, 0, 16,128, 9, 0, 15, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_252[] = { 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14,112, 31, 96, 56,224, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96,112,224, 0, 0, 0, 0, 25,128, 25,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_253[] = { 11, 0, 0, 0, 0,224, 0,240, 0, 24, 0, 8, 0, 12, 0, 4, 0, 14, 0, 14, 0, 26, 0, 25, 0, 25, 0, 49, 0, 48,128, 48,128, 96,128, 96,192,241,224, 0, 0, 8, 0, 6, 0, 3,128, 1,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_254[] = { 12, 0, 0, 0, 0,120, 0, 48, 0, 48, 0, 48, 0, 48, 0, 55, 0, 57,192, 48,192, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48, 96, 48,192, 57,192, 55, 0, 48, 0, 48, 0, 48, 0, 48, 0,112, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -static const GLubyte TimesRoman24_Character_255[] = { 11, 0, 0, 0, 0,224, 0,240, 0, 24, 0, 8, 0, 12, 0, 4, 0, 14, 0, 14, 0, 26, 0, 25, 0, 25, 0, 49, 0, 48,128, 48,128, 96,128, 96,192,241,224, 0, 0, 0, 0, 51, 0, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; - -/* The font characters mapping: */ -static const GLubyte* TimesRoman24_Character_Map[] = {TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032, - TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032, - TimesRoman24_Character_032,TimesRoman24_Character_033,TimesRoman24_Character_034,TimesRoman24_Character_035,TimesRoman24_Character_036,TimesRoman24_Character_037,TimesRoman24_Character_038,TimesRoman24_Character_039,TimesRoman24_Character_040,TimesRoman24_Character_041,TimesRoman24_Character_042,TimesRoman24_Character_043,TimesRoman24_Character_044,TimesRoman24_Character_045,TimesRoman24_Character_046,TimesRoman24_Character_047, - TimesRoman24_Character_048,TimesRoman24_Character_049,TimesRoman24_Character_050,TimesRoman24_Character_051,TimesRoman24_Character_052,TimesRoman24_Character_053,TimesRoman24_Character_054,TimesRoman24_Character_055,TimesRoman24_Character_056,TimesRoman24_Character_057,TimesRoman24_Character_058,TimesRoman24_Character_059,TimesRoman24_Character_060,TimesRoman24_Character_061,TimesRoman24_Character_062,TimesRoman24_Character_063, - TimesRoman24_Character_064,TimesRoman24_Character_065,TimesRoman24_Character_066,TimesRoman24_Character_067,TimesRoman24_Character_068,TimesRoman24_Character_069,TimesRoman24_Character_070,TimesRoman24_Character_071,TimesRoman24_Character_072,TimesRoman24_Character_073,TimesRoman24_Character_074,TimesRoman24_Character_075,TimesRoman24_Character_076,TimesRoman24_Character_077,TimesRoman24_Character_078,TimesRoman24_Character_079, - TimesRoman24_Character_080,TimesRoman24_Character_081,TimesRoman24_Character_082,TimesRoman24_Character_083,TimesRoman24_Character_084,TimesRoman24_Character_085,TimesRoman24_Character_086,TimesRoman24_Character_087,TimesRoman24_Character_088,TimesRoman24_Character_089,TimesRoman24_Character_090,TimesRoman24_Character_091,TimesRoman24_Character_092,TimesRoman24_Character_093,TimesRoman24_Character_094,TimesRoman24_Character_095, - TimesRoman24_Character_096,TimesRoman24_Character_097,TimesRoman24_Character_098,TimesRoman24_Character_099,TimesRoman24_Character_100,TimesRoman24_Character_101,TimesRoman24_Character_102,TimesRoman24_Character_103,TimesRoman24_Character_104,TimesRoman24_Character_105,TimesRoman24_Character_106,TimesRoman24_Character_107,TimesRoman24_Character_108,TimesRoman24_Character_109,TimesRoman24_Character_110,TimesRoman24_Character_111, - TimesRoman24_Character_112,TimesRoman24_Character_113,TimesRoman24_Character_114,TimesRoman24_Character_115,TimesRoman24_Character_116,TimesRoman24_Character_117,TimesRoman24_Character_118,TimesRoman24_Character_119,TimesRoman24_Character_120,TimesRoman24_Character_121,TimesRoman24_Character_122,TimesRoman24_Character_123,TimesRoman24_Character_124,TimesRoman24_Character_125,TimesRoman24_Character_126,TimesRoman24_Character_032, - TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032, - TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032,TimesRoman24_Character_032, - TimesRoman24_Character_160,TimesRoman24_Character_161,TimesRoman24_Character_162,TimesRoman24_Character_163,TimesRoman24_Character_164,TimesRoman24_Character_165,TimesRoman24_Character_166,TimesRoman24_Character_167,TimesRoman24_Character_168,TimesRoman24_Character_169,TimesRoman24_Character_170,TimesRoman24_Character_171,TimesRoman24_Character_172,TimesRoman24_Character_173,TimesRoman24_Character_174,TimesRoman24_Character_175, - TimesRoman24_Character_176,TimesRoman24_Character_177,TimesRoman24_Character_178,TimesRoman24_Character_179,TimesRoman24_Character_180,TimesRoman24_Character_181,TimesRoman24_Character_182,TimesRoman24_Character_183,TimesRoman24_Character_184,TimesRoman24_Character_185,TimesRoman24_Character_186,TimesRoman24_Character_187,TimesRoman24_Character_188,TimesRoman24_Character_189,TimesRoman24_Character_190,TimesRoman24_Character_191, - TimesRoman24_Character_192,TimesRoman24_Character_193,TimesRoman24_Character_194,TimesRoman24_Character_195,TimesRoman24_Character_196,TimesRoman24_Character_197,TimesRoman24_Character_198,TimesRoman24_Character_199,TimesRoman24_Character_200,TimesRoman24_Character_201,TimesRoman24_Character_202,TimesRoman24_Character_203,TimesRoman24_Character_204,TimesRoman24_Character_205,TimesRoman24_Character_206,TimesRoman24_Character_207, - TimesRoman24_Character_208,TimesRoman24_Character_209,TimesRoman24_Character_210,TimesRoman24_Character_211,TimesRoman24_Character_212,TimesRoman24_Character_213,TimesRoman24_Character_214,TimesRoman24_Character_215,TimesRoman24_Character_216,TimesRoman24_Character_217,TimesRoman24_Character_218,TimesRoman24_Character_219,TimesRoman24_Character_220,TimesRoman24_Character_221,TimesRoman24_Character_222,TimesRoman24_Character_223, - TimesRoman24_Character_224,TimesRoman24_Character_225,TimesRoman24_Character_226,TimesRoman24_Character_227,TimesRoman24_Character_228,TimesRoman24_Character_229,TimesRoman24_Character_230,TimesRoman24_Character_231,TimesRoman24_Character_232,TimesRoman24_Character_233,TimesRoman24_Character_234,TimesRoman24_Character_235,TimesRoman24_Character_236,TimesRoman24_Character_237,TimesRoman24_Character_238,TimesRoman24_Character_239, - TimesRoman24_Character_240,TimesRoman24_Character_241,TimesRoman24_Character_242,TimesRoman24_Character_243,TimesRoman24_Character_244,TimesRoman24_Character_245,TimesRoman24_Character_246,TimesRoman24_Character_247,TimesRoman24_Character_248,TimesRoman24_Character_249,TimesRoman24_Character_250,TimesRoman24_Character_251,TimesRoman24_Character_252,TimesRoman24_Character_253,TimesRoman24_Character_254,TimesRoman24_Character_255,NULL}; - -/* The font structure: */ -const SFG_Font fgFontTimesRoman24 = { "-adobe-times-medium-r-normal--24-240-75-75-p-124-iso8859-1", 256, 29, TimesRoman24_Character_Map, 0, 7 }; - diff --git a/internal/c/parts/core/android_core/src/fg_gamemode.c b/internal/c/parts/core/android_core/src/fg_gamemode.c deleted file mode 100644 index f4e8410d7..000000000 --- a/internal/c/parts/core/android_core/src/fg_gamemode.c +++ /dev/null @@ -1,179 +0,0 @@ -/* - * freeglut_gamemode.c - * - * The game mode handling code. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * glutGameModeString() -- missing - * glutEnterGameMode() -- X11 version - * glutLeaveGameMode() -- is that correct? - * glutGameModeGet() -- is that correct? - */ - - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ -extern void fgPlatformRememberState( void ); -extern void fgPlatformRestoreState( void ); -extern GLboolean fgPlatformChangeDisplayMode( GLboolean haveToTest ); -extern void fgPlatformEnterGameMode( void ); -extern void fgPlatformLeaveGameMode( void ); - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Sets the game mode display string - */ -void FGAPIENTRY glutGameModeString( const char* string ) -{ - int width = -1, height = -1, depth = -1, refresh = -1; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGameModeString" ); - - /* - * This one seems a bit easier than glutInitDisplayString. The bad thing - * about it that I was unable to find the game mode string definition, so - * that I assumed it is: "[width]x[height]:[depth]@[refresh rate]", which - * appears in all GLUT game mode programs I have seen to date. - */ - if( sscanf( string, "%ix%i:%i@%i", &width, &height, &depth, &refresh ) != - 4 ) - if( sscanf( string, "%ix%i:%i", &width, &height, &depth ) != 3 ) - if( sscanf( string, "%ix%i@%i", &width, &height, &refresh ) != 3 ) - if( sscanf( string, "%ix%i", &width, &height ) != 2 ) - if( sscanf( string, ":%i@%i", &depth, &refresh ) != 2 ) - if( sscanf( string, ":%i", &depth ) != 1 ) - if( sscanf( string, "@%i", &refresh ) != 1 ) - fgWarning( - "unable to parse game mode string `%s'", - string - ); - - /* All values not specified are now set to -1, which means those - * aspects of the current display mode are not changed in - * fgPlatformChangeDisplayMode() above. - */ - fgState.GameModeSize.X = width; - fgState.GameModeSize.Y = height; - fgState.GameModeDepth = depth; - fgState.GameModeRefresh = refresh; -} - - - -/* - * Enters the game mode - */ -int FGAPIENTRY glutEnterGameMode( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutEnterGameMode" ); - - if( fgStructure.GameModeWindow ) - fgAddToWindowDestroyList( fgStructure.GameModeWindow ); - else - fgPlatformRememberState( ); - - if( ! fgPlatformChangeDisplayMode( GL_FALSE ) ) - { - fgWarning( "failed to change screen settings" ); - return 0; - } - - fgStructure.GameModeWindow = fgCreateWindow( - NULL, "FREEGLUT", GL_TRUE, 0, 0, - GL_TRUE, fgState.GameModeSize.X, fgState.GameModeSize.Y, - GL_TRUE, GL_FALSE - ); - - fgStructure.GameModeWindow->State.Width = fgState.GameModeSize.X; - fgStructure.GameModeWindow->State.Height = fgState.GameModeSize.Y; - fgStructure.GameModeWindow->State.NeedToResize = GL_TRUE; - - fgPlatformEnterGameMode(); - - return fgStructure.GameModeWindow->ID; -} - -/* - * Leaves the game mode - */ -void FGAPIENTRY glutLeaveGameMode( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveGameMode" ); - - freeglut_return_if_fail( fgStructure.GameModeWindow ); - - fgAddToWindowDestroyList( fgStructure.GameModeWindow ); - fgStructure.GameModeWindow = NULL; - - fgPlatformLeaveGameMode(); - - fgPlatformRestoreState(); -} - -/* - * Returns information concerning the freeglut game mode - */ -int FGAPIENTRY glutGameModeGet( GLenum eWhat ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGameModeGet" ); - - switch( eWhat ) - { - case GLUT_GAME_MODE_ACTIVE: - return !!fgStructure.GameModeWindow; - - case GLUT_GAME_MODE_POSSIBLE: - return fgPlatformChangeDisplayMode( GL_TRUE ); - - case GLUT_GAME_MODE_WIDTH: - return fgState.GameModeSize.X; - - case GLUT_GAME_MODE_HEIGHT: - return fgState.GameModeSize.Y; - - case GLUT_GAME_MODE_PIXEL_DEPTH: - return fgState.GameModeDepth; - - case GLUT_GAME_MODE_REFRESH_RATE: - return fgState.GameModeRefresh; - - case GLUT_GAME_MODE_DISPLAY_CHANGED: - /* - * This is true if the game mode has been activated successfully.. - */ - return !!fgStructure.GameModeWindow; - } - - fgWarning( "Unknown gamemode get: %d", eWhat ); - return -1; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_geometry.c b/internal/c/parts/core/android_core/src/fg_geometry.c deleted file mode 100644 index 027d8ad30..000000000 --- a/internal/c/parts/core/android_core/src/fg_geometry.c +++ /dev/null @@ -1,1371 +0,0 @@ -/* - * freeglut_geometry.c - * - * Freeglut geometry rendering methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Fri Dec 3 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * - * Need more types of polyhedra? See CPolyhedron in MRPT - * - * TODO BEFORE THE STABLE RELEASE: - * - * See fghTetrahedron - * - * Following functions have been contributed by Andreas Umbach. - * - * glutWireCube() -- looks OK - * glutSolidCube() -- OK - * - * Those functions have been implemented by John Fay. - * - * glutWireTorus() -- looks OK - * glutSolidTorus() -- looks OK - * glutWireDodecahedron() -- looks OK - * glutSolidDodecahedron() -- looks OK - * glutWireOctahedron() -- looks OK - * glutSolidOctahedron() -- looks OK - * glutWireTetrahedron() -- looks OK - * glutSolidTetrahedron() -- looks OK - * glutWireIcosahedron() -- looks OK - * glutSolidIcosahedron() -- looks OK - * - * The Following functions have been updated by Nigel Stewart, based - * on FreeGLUT 2.0.0 implementations: - * - * glutWireSphere() -- looks OK - * glutSolidSphere() -- looks OK - * glutWireCone() -- looks OK - * glutSolidCone() -- looks OK - */ - - -/* General function for drawing geometry. As for all geometry we have no - * redundancy (or hardly any in the case of cones and cylinders) in terms - * of the vertex/normal combinations, we just use glDrawArrays. - * useWireMode controls the drawing of solids (false) or wire frame - * versions (TRUE) of the geometry you pass - */ -static void fghDrawGeometry(GLenum vertexMode, GLdouble *vertices, GLdouble *normals, GLboolean *edgeFlags, GLsizei numVertices, GLboolean useWireMode) -{ - if (useWireMode) - { - glPushAttrib(GL_POLYGON_BIT); - glPolygonMode(GL_FRONT_AND_BACK, GL_LINE); - } - - if (1) - { - glEnableClientState(GL_VERTEX_ARRAY); - glEnableClientState(GL_NORMAL_ARRAY); - if (edgeFlags) - glEnableClientState(GL_EDGE_FLAG_ARRAY); - - glVertexPointer(3, GL_DOUBLE, 0, vertices); - glNormalPointer(GL_DOUBLE, 0, normals); - if (edgeFlags) - glEdgeFlagPointer(0,edgeFlags); - glDrawArrays(vertexMode, 0, numVertices); - - glDisableClientState(GL_VERTEX_ARRAY); - glDisableClientState(GL_NORMAL_ARRAY); - if (edgeFlags) - glDisableClientState(GL_EDGE_FLAG_ARRAY); - } - else - { - int i; - glBegin(vertexMode); - for(i=0; i 0 ) - { - GLdouble local_offset[3] ; /* Use a local variable to avoid buildup of roundoff errors */ - unsigned int stride = ipow(4,--numLevels)*TETRAHEDRON_VERT_ELEM_PER_OBJ; - scale /= 2.0 ; - for ( i = 0 ; i < TETRAHEDRON_NUM_FACES ; i++ ) - { - int idx = i*3; - local_offset[0] = offset[0] + scale * tetrahedron_v[idx ]; - local_offset[1] = offset[1] + scale * tetrahedron_v[idx+1]; - local_offset[2] = offset[2] + scale * tetrahedron_v[idx+2]; - fghSierpinskiSpongeGenerate ( numLevels, local_offset, scale, vertices+i*stride, normals+i*stride ); - } - } -} - -/* -- Now the various shapes involving circles -- */ -/* - * Compute lookup table of cos and sin values forming a cirle - * - * Notes: - * It is the responsibility of the caller to free these tables - * The size of the table is (n+1) to form a connected loop - * The last entry is exactly the same as the first - * The sign of n can be flipped to get the reverse loop - */ -static void fghCircleTable(double **sint,double **cost,const int n) -{ - int i; - - /* Table size, the sign of n flips the circle direction */ - - const int size = abs(n); - - /* Determine the angle between samples */ - - const double angle = 2*M_PI/(double)( ( n == 0 ) ? 1 : n ); - - /* Allocate memory for n samples, plus duplicate of first entry at the end */ - - *sint = (double *) calloc(sizeof(double), size+1); - *cost = (double *) calloc(sizeof(double), size+1); - - /* Bail out if memory allocation fails, fgError never returns */ - - if (!(*sint) || !(*cost)) - { - free(*sint); - free(*cost); - fgError("Failed to allocate memory in fghCircleTable"); - } - - /* Compute cos and sin around the circle */ - - (*sint)[0] = 0.0; - (*cost)[0] = 1.0; - - for (i=1; i0)?1:0]; - r0 = 0.0; - r1 = sint2[(stacks>0)?1:0]; - - glBegin(GL_TRIANGLE_FAN); - - glNormal3d(0,0,1); - glVertex3d(0,0,radius); - - for (j=slices; j>=0; j--) - { - glNormal3d(cost1[j]*r1, sint1[j]*r1, z1 ); - glVertex3d(cost1[j]*r1*radius, sint1[j]*r1*radius, z1*radius); - } - - glEnd(); - - /* Cover each stack with a quad strip, except the top and bottom stacks */ - - for( i=1; i 0 ) ? stacks : 1 ); - const double rStep = base / ( ( stacks > 0 ) ? stacks : 1 ); - - /* Scaling factors for vertex normals */ - - const double cosn = ( height / sqrt ( height * height + base * base )); - const double sinn = ( base / sqrt ( height * height + base * base )); - - /* Pre-computed circle */ - - double *sint,*cost; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSolidCone" ); - - fghCircleTable(&sint,&cost,-slices); - - /* Cover the circular base with a triangle fan... */ - - z0 = 0.0; - z1 = zStep; - - r0 = base; - r1 = r0 - rStep; - - glBegin(GL_TRIANGLE_FAN); - - glNormal3d(0.0,0.0,-1.0); - glVertex3d(0.0,0.0, z0 ); - - for (j=0; j<=slices; j++) - glVertex3d(cost[j]*r0, sint[j]*r0, z0); - - glEnd(); - - /* Cover each stack with a quad strip, except the top stack */ - - for( i=0; i 0 ) ? stacks : 1 ); - const double rStep = base / ( ( stacks > 0 ) ? stacks : 1 ); - - /* Scaling factors for vertex normals */ - - const double cosn = ( height / sqrt ( height * height + base * base )); - const double sinn = ( base / sqrt ( height * height + base * base )); - - /* Pre-computed circle */ - - double *sint,*cost; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutWireCone" ); - - fghCircleTable(&sint,&cost,-slices); - - /* Draw the stacks... */ - - for (i=0; i 0 ) ? stacks : 1 ); - - /* Pre-computed circle */ - - double *sint,*cost; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSolidCylinder" ); - - fghCircleTable(&sint,&cost,-slices); - - /* Cover the base and top */ - - glBegin(GL_TRIANGLE_FAN); - glNormal3d(0.0, 0.0, -1.0 ); - glVertex3d(0.0, 0.0, 0.0 ); - for (j=0; j<=slices; j++) - glVertex3d(cost[j]*radius, sint[j]*radius, 0.0); - glEnd(); - - glBegin(GL_TRIANGLE_FAN); - glNormal3d(0.0, 0.0, 1.0 ); - glVertex3d(0.0, 0.0, height); - for (j=slices; j>=0; j--) - glVertex3d(cost[j]*radius, sint[j]*radius, height); - glEnd(); - - /* Do the stacks */ - - z0 = 0.0; - z1 = zStep; - - for (i=1; i<=stacks; i++) - { - if (i==stacks) - z1 = height; - - glBegin(GL_QUAD_STRIP); - for (j=0; j<=slices; j++ ) - { - glNormal3d(cost[j], sint[j], 0.0 ); - glVertex3d(cost[j]*radius, sint[j]*radius, z0 ); - glVertex3d(cost[j]*radius, sint[j]*radius, z1 ); - } - glEnd(); - - z0 = z1; z1 += zStep; - } - - /* Release sin and cos tables */ - - free(sint); - free(cost); -} - -/* - * Draws a wire cylinder - */ -void FGAPIENTRY glutWireCylinder(GLdouble radius, GLdouble height, GLint slices, GLint stacks) -{ - int i,j; - - /* Step in z and radius as stacks are drawn. */ - - double z = 0.0; - const double zStep = height / ( ( stacks > 0 ) ? stacks : 1 ); - - /* Pre-computed circle */ - - double *sint,*cost; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutWireCylinder" ); - - fghCircleTable(&sint,&cost,-slices); - - /* Draw the stacks... */ - - for (i=0; i<=stacks; i++) - { - if (i==stacks) - z = height; - - glBegin(GL_LINE_LOOP); - - for( j=0; j - * Creation date: Thu Dec 2 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * fgDeinitialize() -- Win32's OK, X11 needs the OS-specific - * deinitialization done - * glutInitDisplayString() -- display mode string parsing - * - * Wouldn't it be cool to use gettext() for error messages? I just love - * bash saying "nie znaleziono pliku" instead of "file not found" :) - * Is gettext easily portable? - */ - -/* -- GLOBAL VARIABLES ----------------------------------------------------- */ - -/* - * A structure pointed by fgDisplay holds all information - * regarding the display, screen, root window etc. - */ -SFG_Display fgDisplay; - -/* - * The settings for the current freeglut session - */ -SFG_State fgState = { { -1, -1, GL_FALSE }, /* Position */ - { 300, 300, GL_TRUE }, /* Size */ - GLUT_RGBA | GLUT_SINGLE | GLUT_DEPTH, /* DisplayMode */ - GL_FALSE, /* Initialised */ - GLUT_TRY_DIRECT_CONTEXT, /* DirectContext */ - GL_FALSE, /* ForceIconic */ - GL_FALSE, /* UseCurrentContext */ - GL_FALSE, /* GLDebugSwitch */ - GL_FALSE, /* XSyncSwitch */ - GLUT_KEY_REPEAT_ON, /* KeyRepeat */ - INVALID_MODIFIERS, /* Modifiers */ - 0, /* FPSInterval */ - 0, /* SwapCount */ - 0, /* SwapTime */ - 0, /* Time */ - { NULL, NULL }, /* Timers */ - { NULL, NULL }, /* FreeTimers */ - NULL, /* IdleCallback */ - 0, /* ActiveMenus */ - NULL, /* MenuStateCallback */ - NULL, /* MenuStatusCallback */ - { -1, -1, GL_TRUE }, /* GameModeSize */ - -1, /* GameModeDepth */ - -1, /* GameModeRefresh */ - GLUT_ACTION_EXIT, /* ActionOnWindowClose */ - GLUT_EXEC_STATE_INIT, /* ExecState */ - NULL, /* ProgramName */ - GL_FALSE, /* JoysticksInitialised */ - 0, /* NumActiveJoysticks */ - GL_FALSE, /* InputDevsInitialised */ - 0, /* MouseWheelTicks */ - 1, /* AuxiliaryBufferNumber */ - 4, /* SampleNumber */ - 1, /* OpenGL context MajorVersion */ - 0, /* OpenGL context MinorVersion */ - 0, /* OpenGL ContextFlags */ - 0, /* OpenGL ContextProfile */ - NULL, /* ErrorFunc */ - NULL /* WarningFunc */ -}; - - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - -extern void fgPlatformInitialize( const char* displayName ); -extern void fgPlatformDeinitialiseInputDevices ( void ); -extern void fgPlatformCloseDisplay ( void ); -extern void fgPlatformDestroyContext ( SFG_PlatformDisplay pDisplay, SFG_WindowContextType MContext ); - - -void fghParseCommandLineArguments ( int* pargc, char** argv, char **pDisplayName, char **pGeometry ) -{ -#ifndef _WIN32_WCE - int i, j, argc = *pargc; - - { - /* check if GLUT_FPS env var is set */ - const char *fps = getenv( "GLUT_FPS" ); - - if( fps ) - { - int interval; - sscanf( fps, "%d", &interval ); - - if( interval <= 0 ) - fgState.FPSInterval = 5000; /* 5000 millisecond default */ - else - fgState.FPSInterval = interval; - } - } - - *pDisplayName = getenv( "DISPLAY" ); - - for( i = 1; i < argc; i++ ) - { - if( strcmp( argv[ i ], "-display" ) == 0 ) - { - if( ++i >= argc ) - fgError( "-display parameter must be followed by display name" ); - - *pDisplayName = argv[ i ]; - - argv[ i - 1 ] = NULL; - argv[ i ] = NULL; - ( *pargc ) -= 2; - } - else if( strcmp( argv[ i ], "-geometry" ) == 0 ) - { - if( ++i >= argc ) - fgError( "-geometry parameter must be followed by window " - "geometry settings" ); - - *pGeometry = argv[ i ]; - - argv[ i - 1 ] = NULL; - argv[ i ] = NULL; - ( *pargc ) -= 2; - } - else if( strcmp( argv[ i ], "-direct" ) == 0) - { - if( fgState.DirectContext == GLUT_FORCE_INDIRECT_CONTEXT ) - fgError( "parameters ambiguity, -direct and -indirect " - "cannot be both specified" ); - - fgState.DirectContext = GLUT_FORCE_DIRECT_CONTEXT; - argv[ i ] = NULL; - ( *pargc )--; - } - else if( strcmp( argv[ i ], "-indirect" ) == 0 ) - { - if( fgState.DirectContext == GLUT_FORCE_DIRECT_CONTEXT ) - fgError( "parameters ambiguity, -direct and -indirect " - "cannot be both specified" ); - - fgState.DirectContext = GLUT_FORCE_INDIRECT_CONTEXT; - argv[ i ] = NULL; - (*pargc)--; - } - else if( strcmp( argv[ i ], "-iconic" ) == 0 ) - { - fgState.ForceIconic = GL_TRUE; - argv[ i ] = NULL; - ( *pargc )--; - } - else if( strcmp( argv[ i ], "-gldebug" ) == 0 ) - { - fgState.GLDebugSwitch = GL_TRUE; - argv[ i ] = NULL; - ( *pargc )--; - } - else if( strcmp( argv[ i ], "-sync" ) == 0 ) - { - fgState.XSyncSwitch = GL_TRUE; - argv[ i ] = NULL; - ( *pargc )--; - } - } - - /* Compact {argv}. */ - for( i = j = 1; i < *pargc; i++, j++ ) - { - /* Guaranteed to end because there are "*pargc" arguments left */ - while ( argv[ j ] == NULL ) - j++; - if ( i != j ) - argv[ i ] = argv[ j ]; - } - -#endif /* _WIN32_WCE */ - -} - - -void fghCloseInputDevices ( void ) -{ - if ( fgState.JoysticksInitialised ) - fgJoystickClose( ); - - if ( fgState.InputDevsInitialised ) - fgInputDeviceClose( ); -} - - -/* - * Perform the freeglut deinitialization... - */ -void fgDeinitialize( void ) -{ - SFG_Timer *timer; - - if( !fgState.Initialised ) - { - return; - } - - /* If we're in game mode, we want to leave game mode */ - if( fgStructure.GameModeWindow ) { - glutLeaveGameMode(); - } - - /* If there was a menu created, destroy the rendering context */ - if( fgStructure.MenuContext ) - { - fgPlatformDestroyContext (fgDisplay.pDisplay, fgStructure.MenuContext->MContext ); - free( fgStructure.MenuContext ); - fgStructure.MenuContext = NULL; - } - - fgDestroyStructure( ); - - while( ( timer = fgState.Timers.First) ) - { - fgListRemove( &fgState.Timers, &timer->Node ); - free( timer ); - } - - while( ( timer = fgState.FreeTimers.First) ) - { - fgListRemove( &fgState.FreeTimers, &timer->Node ); - free( timer ); - } - - fgPlatformDeinitialiseInputDevices (); - - fgState.MouseWheelTicks = 0; - - fgState.MajorVersion = 1; - fgState.MinorVersion = 0; - fgState.ContextFlags = 0; - fgState.ContextProfile = 0; - - fgState.Initialised = GL_FALSE; - - fgState.Position.X = -1; - fgState.Position.Y = -1; - fgState.Position.Use = GL_FALSE; - - fgState.Size.X = 300; - fgState.Size.Y = 300; - fgState.Size.Use = GL_TRUE; - - fgState.DisplayMode = GLUT_RGBA | GLUT_SINGLE | GLUT_DEPTH; - - fgState.DirectContext = GLUT_TRY_DIRECT_CONTEXT; - fgState.ForceIconic = GL_FALSE; - fgState.UseCurrentContext = GL_FALSE; - fgState.GLDebugSwitch = GL_FALSE; - fgState.XSyncSwitch = GL_FALSE; - fgState.ActionOnWindowClose = GLUT_ACTION_EXIT; - fgState.ExecState = GLUT_EXEC_STATE_INIT; - - fgState.KeyRepeat = GLUT_KEY_REPEAT_ON; - fgState.Modifiers = INVALID_MODIFIERS; - - fgState.GameModeSize.X = -1; - fgState.GameModeSize.Y = -1; - fgState.GameModeDepth = -1; - fgState.GameModeRefresh = -1; - - fgListInit( &fgState.Timers ); - fgListInit( &fgState.FreeTimers ); - - fgState.IdleCallback = NULL; - fgState.MenuStateCallback = ( FGCBMenuState )NULL; - fgState.MenuStatusCallback = ( FGCBMenuStatus )NULL; - - fgState.SwapCount = 0; - fgState.SwapTime = 0; - fgState.FPSInterval = 0; - - if( fgState.ProgramName ) - { - free( fgState.ProgramName ); - fgState.ProgramName = NULL; - } - - fgPlatformCloseDisplay (); - - fgState.Initialised = GL_FALSE; -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ -#if defined(NEED_XPARSEGEOMETRY_IMPL) -# include "util/xparsegeometry_repl.h" -#endif - -/* - * Perform initialization. This usually happens on the program startup - * and restarting after glutMainLoop termination... - */ -void FGAPIENTRY glutInit( int* pargc, char** argv ) -{ - char* displayName = NULL; - char* geometry = NULL; - if( fgState.Initialised ) - fgError( "illegal glutInit() reinitialization attempt" ); - - if (pargc && *pargc && argv && *argv && **argv) - { - fgState.ProgramName = strdup (*argv); - - if( !fgState.ProgramName ) - fgError ("Could not allocate space for the program's name."); - } - - fgCreateStructure( ); - - - - /* Get start time */ - fgState.Time = fgSystemTime(); - - - fghParseCommandLineArguments ( pargc, argv, &displayName, &geometry ); - /* - * Have the display created now. If there wasn't a "-display" - * in the program arguments, we will use the DISPLAY environment - * variable for opening the X display (see code above): - */ - - - - fgPlatformInitialize( displayName ); - - - - /* - * Geometry parsing deferred until here because we may need the screen - * size. - */ - if (geometry ) - { - unsigned int parsedWidth, parsedHeight; - int mask = XParseGeometry( geometry, - &fgState.Position.X, &fgState.Position.Y, - &parsedWidth, &parsedHeight ); - /* TODO: Check for overflow? */ - fgState.Size.X = parsedWidth; - fgState.Size.Y = parsedHeight; - - if( (mask & (WidthValue|HeightValue)) == (WidthValue|HeightValue) ) - fgState.Size.Use = GL_TRUE; - - if( mask & XNegative ) - fgState.Position.X += fgDisplay.ScreenWidth - fgState.Size.X; - - if( mask & YNegative ) - fgState.Position.Y += fgDisplay.ScreenHeight - fgState.Size.Y; - - if( (mask & (XValue|YValue)) == (XValue|YValue) ) - fgState.Position.Use = GL_TRUE; - } -} - -/* - * Undoes all the "glutInit" stuff - */ -void FGAPIENTRY glutExit ( void ) -{ - fgDeinitialize (); -} - -/* - * Sets the default initial window position for new windows - */ -void FGAPIENTRY glutInitWindowPosition( int x, int y ) -{ - fgState.Position.X = x; - fgState.Position.Y = y; - - if( ( x >= 0 ) && ( y >= 0 ) ) - fgState.Position.Use = GL_TRUE; - else - fgState.Position.Use = GL_FALSE; -} - -/* - * Sets the default initial window size for new windows - */ -void FGAPIENTRY glutInitWindowSize( int width, int height ) -{ - fgState.Size.X = width; - fgState.Size.Y = height; - - if( ( width > 0 ) && ( height > 0 ) ) - fgState.Size.Use = GL_TRUE; - else - fgState.Size.Use = GL_FALSE; -} - -/* - * Sets the default display mode for all new windows - */ -void FGAPIENTRY glutInitDisplayMode( unsigned int displayMode ) -{ - /* We will make use of this value when creating a new OpenGL context... */ - fgState.DisplayMode = displayMode; -} - - -/* -- INIT DISPLAY STRING PARSING ------------------------------------------ */ - -static char* Tokens[] = -{ - "alpha", "acca", "acc", "blue", "buffer", "conformant", "depth", "double", - "green", "index", "num", "red", "rgba", "rgb", "luminance", "stencil", - "single", "stereo", "samples", "slow", "win32pdf", "win32pfd", "xvisual", - "xstaticgray", "xgrayscale", "xstaticcolor", "xpseudocolor", - "xtruecolor", "xdirectcolor", - "xstaticgrey", "xgreyscale", "xstaticcolour", "xpseudocolour", - "xtruecolour", "xdirectcolour", "borderless", "aux" -}; -#define NUM_TOKENS (sizeof(Tokens) / sizeof(*Tokens)) - -void FGAPIENTRY glutInitDisplayString( const char* displayMode ) -{ - int glut_state_flag = 0 ; - /* - * Unpack a lot of options from a character string. The options are - * delimited by blanks or tabs. - */ - char *token ; - size_t len = strlen ( displayMode ); - char *buffer = (char *)malloc ( (len+1) * sizeof(char) ); - memcpy ( buffer, displayMode, len ); - buffer[len] = '\0'; - - token = strtok ( buffer, " \t" ); - - while ( token ) - { - /* Process this token */ - int i ; - - /* Temporary fix: Ignore any length specifications and at least - * process the basic token - * TODO: Fix this permanently - */ - size_t cleanlength = strcspn ( token, "=<>~!" ); - - for ( i = 0; i < NUM_TOKENS; i++ ) - { - if ( strncmp ( token, Tokens[i], cleanlength ) == 0 ) break ; - } - - switch ( i ) - { - case 0 : /* "alpha": Alpha color buffer precision in bits */ - glut_state_flag |= GLUT_ALPHA ; /* Somebody fix this for me! */ - break ; - - case 1 : /* "acca": Red, green, blue, and alpha accumulation buffer - precision in bits */ - break ; - - case 2 : /* "acc": Red, green, and blue accumulation buffer precision - in bits with zero bits alpha */ - glut_state_flag |= GLUT_ACCUM ; /* Somebody fix this for me! */ - break ; - - case 3 : /* "blue": Blue color buffer precision in bits */ - break ; - - case 4 : /* "buffer": Number of bits in the color index color buffer - */ - break ; - - case 5 : /* "conformant": Boolean indicating if the frame buffer - configuration is conformant or not */ - break ; - - case 6 : /* "depth": Number of bits of precision in the depth buffer */ - glut_state_flag |= GLUT_DEPTH ; /* Somebody fix this for me! */ - break ; - - case 7 : /* "double": Boolean indicating if the color buffer is - double buffered */ - glut_state_flag |= GLUT_DOUBLE ; - break ; - - case 8 : /* "green": Green color buffer precision in bits */ - break ; - - case 9 : /* "index": Boolean if the color model is color index or not - */ - glut_state_flag |= GLUT_INDEX ; - break ; - - case 10 : /* "num": A special capability name indicating where the - value represents the Nth frame buffer configuration - matching the description string */ - break ; - - case 11 : /* "red": Red color buffer precision in bits */ - break ; - - case 12 : /* "rgba": Number of bits of red, green, blue, and alpha in - the RGBA color buffer */ - glut_state_flag |= GLUT_RGBA ; /* Somebody fix this for me! */ - break ; - - case 13 : /* "rgb": Number of bits of red, green, and blue in the - RGBA color buffer with zero bits alpha */ - glut_state_flag |= GLUT_RGB ; /* Somebody fix this for me! */ - break ; - - case 14 : /* "luminance": Number of bits of red in the RGBA and zero - bits of green, blue (alpha not specified) of color buffer - precision */ - glut_state_flag |= GLUT_LUMINANCE ; /* Somebody fix this for me! */ - break ; - - case 15 : /* "stencil": Number of bits in the stencil buffer */ - glut_state_flag |= GLUT_STENCIL; /* Somebody fix this for me! */ - break ; - - case 16 : /* "single": Boolean indicate the color buffer is single - buffered */ - glut_state_flag |= GLUT_SINGLE ; - break ; - - case 17 : /* "stereo": Boolean indicating the color buffer supports - OpenGL-style stereo */ - glut_state_flag |= GLUT_STEREO ; - break ; - - case 18 : /* "samples": Indicates the number of multisamples to use - based on GLX's SGIS_multisample extension (for - antialiasing) */ - glut_state_flag |= GLUT_MULTISAMPLE ; /*Somebody fix this for me!*/ - break ; - - case 19 : /* "slow": Boolean indicating if the frame buffer - configuration is slow or not */ - break ; - - case 20 : /* "win32pdf": (incorrect spelling but was there before */ - case 21 : /* "win32pfd": matches the Win32 Pixel Format Descriptor by - number */ -#if TARGET_HOST_MS_WINDOWS -#endif - break ; - - case 22 : /* "xvisual": matches the X visual ID by number */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 23 : /* "xstaticgray": */ - case 29 : /* "xstaticgrey": boolean indicating if the frame buffer - configuration's X visual is of type StaticGray */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 24 : /* "xgrayscale": */ - case 30 : /* "xgreyscale": boolean indicating if the frame buffer - configuration's X visual is of type GrayScale */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 25 : /* "xstaticcolor": */ - case 31 : /* "xstaticcolour": boolean indicating if the frame buffer - configuration's X visual is of type StaticColor */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 26 : /* "xpseudocolor": */ - case 32 : /* "xpseudocolour": boolean indicating if the frame buffer - configuration's X visual is of type PseudoColor */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 27 : /* "xtruecolor": */ - case 33 : /* "xtruecolour": boolean indicating if the frame buffer - configuration's X visual is of type TrueColor */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 28 : /* "xdirectcolor": */ - case 34 : /* "xdirectcolour": boolean indicating if the frame buffer - configuration's X visual is of type DirectColor */ -#if TARGET_HOST_POSIX_X11 -#endif - break ; - - case 35 : /* "borderless": windows should not have borders */ - glut_state_flag |= GLUT_BORDERLESS; - break ; - - case 36 : /* "aux": some number of aux buffers */ - glut_state_flag |= GLUT_AUX; - break ; - - case 37 : /* Unrecognized */ - fgWarning ( "WARNING - Display string token not recognized: %s", - token ); - break ; - } - - token = strtok ( NULL, " \t" ); - } - - free ( buffer ); - - /* We will make use of this value when creating a new OpenGL context... */ - fgState.DisplayMode = glut_state_flag; -} - -/* -- SETTING OPENGL 3.0 CONTEXT CREATION PARAMETERS ---------------------- */ - -void FGAPIENTRY glutInitContextVersion( int majorVersion, int minorVersion ) -{ - /* We will make use of these value when creating a new OpenGL context... */ - fgState.MajorVersion = majorVersion; - fgState.MinorVersion = minorVersion; -} - - -void FGAPIENTRY glutInitContextFlags( int flags ) -{ - /* We will make use of this value when creating a new OpenGL context... */ - fgState.ContextFlags = flags; -} - -void FGAPIENTRY glutInitContextProfile( int profile ) -{ - /* We will make use of this value when creating a new OpenGL context... */ - fgState.ContextProfile = profile; -} - -/* -------------- User Defined Error/Warning Handler Support -------------- */ - -/* - * Sets the user error handler (note the use of va_list for the args to the fmt) - */ -void FGAPIENTRY glutInitErrorFunc( void (* vfgError) ( const char *fmt, va_list ap ) ) -{ - /* This allows user programs to handle freeglut errors */ - fgState.ErrorFunc = vfgError; -} - -/* - * Sets the user warning handler (note the use of va_list for the args to the fmt) - */ -void FGAPIENTRY glutInitWarningFunc( void (* vfgWarning) ( const char *fmt, va_list ap ) ) -{ - /* This allows user programs to handle freeglut warnings */ - fgState.WarningFunc = vfgWarning; -} - -/*** END OF FILE ***/ \ No newline at end of file diff --git a/internal/c/parts/core/android_core/src/fg_input_devices.c b/internal/c/parts/core/android_core/src/fg_input_devices.c deleted file mode 100644 index a5abac72f..000000000 --- a/internal/c/parts/core/android_core/src/fg_input_devices.c +++ /dev/null @@ -1,213 +0,0 @@ -/* - * freeglut_input_devices.c - * - * Handles miscellaneous input devices via direct serial-port access. - * Proper X11 XInput device support is not yet supported. - * Also lacks Mac support. - * - * Written by Joe Krahn 2005 - * - * Copyright (c) 2005 Stephen J. Baker. All Rights Reserved. - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA OR STEPHEN J. BAKER BE LIABLE FOR ANY CLAIM, DAMAGES OR - * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, - * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - */ - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -#include -#include "fg_internal.h" - -typedef struct _serialport SERIALPORT; - - -/********************* Dialbox definitions ***********************/ - -#define DIAL_NUM_VALUATORS 8 - -/* dial parser state machine states */ -#define DIAL_NEW (-1) -#define DIAL_WHICH_DEVICE 0 -#define DIAL_VALUE_HIGH 1 -#define DIAL_VALUE_LOW 2 - -/* dial/button box commands */ -#define DIAL_INITIALIZE 0x20 -#define DIAL_SET_LEDS 0x75 -#define DIAL_SET_TEXT 0x61 -#define DIAL_SET_AUTO_DIALS 0x50 -#define DIAL_SET_AUTO_DELTA_DIALS 0x51 -#define DIAL_SET_FILTER 0x53 -#define DIAL_SET_BUTTONS_MOM_TYPE 0x71 -#define DIAL_SET_AUTO_MOM_BUTTONS 0x73 -#define DIAL_SET_ALL_LEDS 0x4b -#define DIAL_CLEAR_ALL_LEDS 0x4c - -/* dial/button box replies and events */ -#define DIAL_INITIALIZED 0x20 -#define DIAL_BASE 0x30 -#define DIAL_DELTA_BASE 0x40 -#define DIAL_PRESS_BASE 0xc0 -#define DIAL_RELEASE_BASE 0xe0 - -/* macros to determine reply type */ -#define IS_DIAL_EVENT(ch) (((ch)>=DIAL_BASE)&&((ch)=DIAL_PRESS_BASE)&&((ch)=DIAL_RELEASE_BASE)&&((ch)Callbacks[CB_Dials] */ - INVOKE_WCB ( *window,Dials, ( ((int*)enumerator->data)[0], ((int*)enumerator->data)[1]) ); - fgEnumSubWindows ( window, fghcbEnumDialCallbacks, enumerator ); -} - -static void send_dial_event ( int num, int value ) -{ - SFG_Enumerator enumerator; - int data[2]; - data[0] = num; - data[1] = value; - enumerator.found = GL_FALSE; - enumerator.data = data; - fgEnumWindows ( fghcbEnumDialCallbacks, &enumerator ); -} - -/********************************************************************/ -static void poll_dials ( int id ) -{ - int data; - static int dial_state = DIAL_NEW; - static int dial_which; - static int dial_value; - static int dials[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }; - - if ( !dialbox_port ) return; - - while ( (data=serial_getchar(dialbox_port)) != EOF ) - { - if ( ( dial_state > DIAL_WHICH_DEVICE ) || IS_DIAL_EVENT ( data ) ) - { - switch ( dial_state ) - { - case DIAL_WHICH_DEVICE: - dial_which = data - DIAL_BASE; - dial_state++; - break; - case DIAL_VALUE_HIGH: - dial_value = ( data << 8 ); - dial_state++; - break; - case DIAL_VALUE_LOW: - dial_value |= data; - if ( dial_value & 0x8000 ) dial_value -= 0x10000; - dials[dial_which] = dial_value; - send_dial_event ( dial_which + 1, dial_value * 360 / 256 ); - dial_state = DIAL_WHICH_DEVICE; - break; - default: - /* error: Impossible state value! */ - break; - } - } - else if ( data == DIAL_INITIALIZED ) - { - fgState.InputDevsInitialised = GL_TRUE; - dial_state = DIAL_WHICH_DEVICE; - serial_putchar(dialbox_port,DIAL_SET_AUTO_DIALS); - serial_putchar(dialbox_port,0xff); - serial_putchar(dialbox_port,0xff); - } - else /* Unknown data; try flushing. */ - serial_flush(dialbox_port); - } - - glutTimerFunc ( 2, poll_dials, 0 ); -} - diff --git a/internal/c/parts/core/android_core/src/fg_internal.h b/internal/c/parts/core/android_core/src/fg_internal.h deleted file mode 100644 index 716f60465..000000000 --- a/internal/c/parts/core/android_core/src/fg_internal.h +++ /dev/null @@ -1,969 +0,0 @@ -/* - * fg_internal.h - * - * The freeglut library private include file. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 2 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef FREEGLUT_INTERNAL_H -#define FREEGLUT_INTERNAL_H - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -/* Freeglut is intended to function under all Unix/X11 and Win32 platforms. */ -/* XXX: Don't all MS-Windows compilers (except Cygwin) have _WIN32 defined? - * XXX: If so, remove the first set of defined()'s below. - */ -#if !defined(TARGET_HOST_POSIX_X11) && !defined(TARGET_HOST_MS_WINDOWS) && !defined(TARGET_HOST_MAC_OSX) && !defined(TARGET_HOST_SOLARIS) -#if defined(_MSC_VER) || defined(__WATCOMC__) || defined(__MINGW32__) \ - || defined(_WIN32) || defined(_WIN32_WCE) \ - || ( defined(__CYGWIN__) && defined(X_DISPLAY_MISSING) ) -# define TARGET_HOST_MS_WINDOWS 1 - -#elif defined (ANDROID) -# define TARGET_HOST_ANDROID 1 - -#elif defined(__posix__) || defined(__unix__) || defined(__linux__) || defined(__sun) -# define TARGET_HOST_POSIX_X11 1 - -#elif defined(__APPLE__) -/* This is a placeholder until we get native OSX support ironed out -- JFF 11/18/09 */ -# define TARGET_HOST_POSIX_X11 1 -/* # define TARGET_HOST_MAC_OSX 1 */ - -#else -# error "Unrecognized target host!" - -#endif -#endif - -/* Detect both SunPro and gcc compilers on Sun Solaris */ -#if defined (__SVR4) && defined (__sun) -# define TARGET_HOST_SOLARIS 1 -#endif - -#ifndef TARGET_HOST_MS_WINDOWS -# define TARGET_HOST_MS_WINDOWS 0 -#endif - -#ifndef TARGET_HOST_POSIX_X11 -# define TARGET_HOST_POSIX_X11 0 -#endif - -#ifndef TARGET_HOST_MAC_OSX -# define TARGET_HOST_MAC_OSX 0 -#endif - -#ifndef TARGET_HOST_SOLARIS -# define TARGET_HOST_SOLARIS 0 -#endif - -/* -- FIXED CONFIGURATION LIMITS ------------------------------------------- */ - -#define FREEGLUT_MAX_MENUS 3 - -/* These files should be available on every platform. */ -#include -#include -#include -#include -#include - -/* These are included based on autoconf directives. */ -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_UNISTD_H -# include -#endif -#ifdef TIME_WITH_SYS_TIME -# include -# include -#elif defined(HAVE_SYS_TIME_H) -# include -#else -# include -#endif - -/* -- AUTOCONF HACKS --------------------------------------------------------*/ - -/* XXX: Update autoconf to avoid these. - * XXX: Are non-POSIX platforms intended not to use autoconf? - * If so, perhaps there should be a config_guess.h for them. Alternatively, - * config guesses could be placed above, just after the config.h exclusion. - */ -#if defined(__FreeBSD__) || defined(__NetBSD__) -# define HAVE_USB_JS 1 -# if defined(__NetBSD__) || ( defined(__FreeBSD__) && __FreeBSD_version >= 500000) -# define HAVE_USBHID_H 1 -# endif -#endif - -#if defined(_MSC_VER) || defined(__WATCOMC__) -/* strdup() is non-standard, for all but POSIX-2001 */ -#define strdup _strdup -#endif - -/* M_PI is non-standard (defined by BSD, not ISO-C) */ -#ifndef M_PI -# define M_PI 3.14159265358979323846 -#endif - - - -#ifdef HAVE_STDBOOL_H -# include -# ifndef TRUE -# define TRUE true -# endif -# ifndef FALSE -# define FALSE false -# endif -#else -# ifndef TRUE -# define TRUE 1 -# endif -# ifndef FALSE -# define FALSE 0 -# endif -#endif - -/* General defines */ -#define INVALID_MODIFIERS 0xffffffff - -/* FreeGLUT internal time type */ -#if defined(HAVE_STDINT_H) -# include - typedef uint64_t fg_time_t; -#elif defined(HAVE_INTTYPES_H) -# include - typedef uint64_t fg_time_t; -#elif defined(HAVE_U__INT64) - typedef unsigned __int64 fg_time_t; -#elif defined(HAVE_ULONG_LONG) - typedef unsigned long long fg_time_t; -#else - typedef unsigned long fg_time_t; -#endif - - - -/* Platform-specific includes */ -#if TARGET_HOST_POSIX_X11 -#include "x11/fg_internal_x11.h" -#endif -#if TARGET_HOST_MS_WINDOWS -#include "mswin/fg_internal_mswin.h" -#endif -#if TARGET_HOST_ANDROID -#include "android/fg_internal_android.h" -#endif - - -/* -- GLOBAL TYPE DEFINITIONS ---------------------------------------------- */ - -/* Freeglut callbacks type definitions */ -typedef void (* FGCBDisplay )( void ); -typedef void (* FGCBReshape )( int, int ); -typedef void (* FGCBVisibility )( int ); -typedef void (* FGCBKeyboard )( unsigned char, int, int ); -typedef void (* FGCBSpecial )( int, int, int ); -typedef void (* FGCBMouse )( int, int, int, int ); -typedef void (* FGCBMouseWheel )( int, int, int, int ); -typedef void (* FGCBMotion )( int, int ); -typedef void (* FGCBPassive )( int, int ); -typedef void (* FGCBEntry )( int ); -typedef void (* FGCBWindowStatus )( int ); -typedef void (* FGCBSelect )( int, int, int ); -typedef void (* FGCBJoystick )( unsigned int, int, int, int ); -typedef void (* FGCBKeyboardUp )( unsigned char, int, int ); -typedef void (* FGCBSpecialUp )( int, int, int ); -typedef void (* FGCBOverlayDisplay)( void ); -typedef void (* FGCBSpaceMotion )( int, int, int ); -typedef void (* FGCBSpaceRotation )( int, int, int ); -typedef void (* FGCBSpaceButton )( int, int ); -typedef void (* FGCBDials )( int, int ); -typedef void (* FGCBButtonBox )( int, int ); -typedef void (* FGCBTabletMotion )( int, int ); -typedef void (* FGCBTabletButton )( int, int, int, int ); -typedef void (* FGCBDestroy )( void ); - -typedef void (* FGCBMultiEntry )( int, int ); -typedef void (* FGCBMultiButton )( int, int, int, int, int ); -typedef void (* FGCBMultiMotion )( int, int, int ); -typedef void (* FGCBMultiPassive )( int, int, int ); - -/* The global callbacks type definitions */ -typedef void (* FGCBIdle )( void ); -typedef void (* FGCBTimer )( int ); -typedef void (* FGCBMenuState )( int ); -typedef void (* FGCBMenuStatus )( int, int, int ); - -/* The callback used when creating/using menus */ -typedef void (* FGCBMenu )( int ); - -/* The FreeGLUT error/warning handler type definition */ -typedef void (* FGError ) ( const char *fmt, va_list ap); -typedef void (* FGWarning ) ( const char *fmt, va_list ap); - - -/* A list structure */ -typedef struct tagSFG_List SFG_List; -struct tagSFG_List -{ - void *First; - void *Last; -}; - -/* A list node structure */ -typedef struct tagSFG_Node SFG_Node; -struct tagSFG_Node -{ - void *Next; - void *Prev; -}; - -/* A helper structure holding two ints and a boolean */ -typedef struct tagSFG_XYUse SFG_XYUse; -struct tagSFG_XYUse -{ - GLint X, Y; /* The two integers... */ - GLboolean Use; /* ...and a single boolean. */ -}; - -/* - * An enumeration containing the state of the GLUT execution: - * initializing, running, or stopping - */ -typedef enum -{ - GLUT_EXEC_STATE_INIT, - GLUT_EXEC_STATE_RUNNING, - GLUT_EXEC_STATE_STOP -} fgExecutionState ; - -/* This structure holds different freeglut settings */ -typedef struct tagSFG_State SFG_State; -struct tagSFG_State -{ - SFG_XYUse Position; /* The default windows' position */ - SFG_XYUse Size; /* The default windows' size */ - unsigned int DisplayMode; /* Display mode for new windows */ - - GLboolean Initialised; /* freeglut has been initialised */ - - int DirectContext; /* Direct rendering state */ - - GLboolean ForceIconic; /* New top windows are iconified */ - GLboolean UseCurrentContext; /* New windows share with current */ - - GLboolean GLDebugSwitch; /* OpenGL state debugging switch */ - GLboolean XSyncSwitch; /* X11 sync protocol switch */ - - int KeyRepeat; /* Global key repeat mode. */ - int Modifiers; /* Current ALT/SHIFT/CTRL state */ - - GLuint FPSInterval; /* Interval between FPS printfs */ - GLuint SwapCount; /* Count of glutSwapBuffer calls */ - GLuint SwapTime; /* Time of last SwapBuffers */ - - fg_time_t Time; /* Time that glutInit was called */ - SFG_List Timers; /* The freeglut timer hooks */ - SFG_List FreeTimers; /* The unused timer hooks */ - - FGCBIdle IdleCallback; /* The global idle callback */ - - int ActiveMenus; /* Num. of currently active menus */ - FGCBMenuState MenuStateCallback; /* Menu callbacks are global */ - FGCBMenuStatus MenuStatusCallback; - - SFG_XYUse GameModeSize; /* Game mode screen's dimensions */ - int GameModeDepth; /* The pixel depth for game mode */ - int GameModeRefresh; /* The refresh rate for game mode */ - - int ActionOnWindowClose; /* Action when user closes window */ - - fgExecutionState ExecState; /* Used for GLUT termination */ - char *ProgramName; /* Name of the invoking program */ - GLboolean JoysticksInitialised; /* Only initialize if application calls for them */ - int NumActiveJoysticks; /* Number of active joysticks -- if zero, don't poll joysticks */ - GLboolean InputDevsInitialised; /* Only initialize if application calls for them */ - - int MouseWheelTicks; /* Number of ticks the mouse wheel has turned */ - - int AuxiliaryBufferNumber; /* Number of auxiliary buffers */ - int SampleNumber; /* Number of samples per pixel */ - - int MajorVersion; /* Major OpenGL context version */ - int MinorVersion; /* Minor OpenGL context version */ - int ContextFlags; /* OpenGL context flags */ - int ContextProfile; /* OpenGL context profile */ - FGError ErrorFunc; /* User defined error handler */ - FGWarning WarningFunc; /* User defined warning handler */ -}; - -/* The structure used by display initialization in freeglut_init.c */ -typedef struct tagSFG_Display SFG_Display; -struct tagSFG_Display -{ - SFG_PlatformDisplay pDisplay; - - int ScreenWidth; /* The screen's width in pixels */ - int ScreenHeight; /* The screen's height in pixels */ - int ScreenWidthMM; /* The screen's width in milimeters */ - int ScreenHeightMM; /* The screen's height in milimeters */ -}; - - -/* The user can create any number of timer hooks */ -typedef struct tagSFG_Timer SFG_Timer; -struct tagSFG_Timer -{ - SFG_Node Node; - int ID; /* The timer ID integer */ - FGCBTimer Callback; /* The timer callback */ - fg_time_t TriggerTime; /* The timer trigger time */ -}; - -/* - * A window and its OpenGL context. The contents of this structure - * are highly dependant on the target operating system we aim at... - */ -typedef struct tagSFG_Context SFG_Context; -struct tagSFG_Context -{ - SFG_WindowHandleType Handle; /* The window's handle */ - SFG_WindowContextType Context; /* The window's OpenGL/WGL context */ - - SFG_PlatformContext pContext; /* The window's FBConfig (X11) or device context (Windows) */ - - int DoubleBuffered; /* Treat the window as double-buffered */ -}; - - -typedef struct tagSFG_WindowState SFG_WindowState; -struct tagSFG_WindowState -{ - /* Note that on Windows, sizes always refer to the client area, thus without the window decorations */ - int Width; /* Window's width in pixels */ - int Height; /* The same about the height */ - - SFG_PlatformWindowState pWState; /* Window width/height (X11) or rectangle/style (Windows) from before a resize */ - - GLboolean Redisplay; /* Do we have to redisplay? */ - GLboolean Visible; /* Is the window visible now */ - - int Cursor; /* The currently selected cursor */ - - long JoystickPollRate; /* The joystick polling rate */ - fg_time_t JoystickLastPoll; /* When the last poll happened */ - - int MouseX, MouseY; /* The most recent mouse position */ - - GLboolean IgnoreKeyRepeat; /* Whether to ignore key repeat. */ - GLboolean KeyRepeating; /* Currently in repeat mode */ - - GLboolean NeedToResize; /* Do we need to resize the window? */ - - GLboolean IsFullscreen; /* is the window fullscreen? */ -}; - - -/* - * A generic function pointer. We should really use the GLUTproc type - * defined in freeglut_ext.h, but if we include that header in this file - * a bunch of other stuff (font-related) blows up! - */ -typedef void (*SFG_Proc)(); - - -/* - * SET_WCB() is used as: - * - * SET_WCB( window, cbname, func ); - * - * ...where {window} is the freeglut window to set the callback, - * {cbname} is the window-specific callback to set, - * {func} is a function-pointer. - * - * Originally, {FETCH_WCB( ... ) = func} was rather sloppily used, - * but this can cause warnings because the FETCH_WCB() macro type- - * casts its result, and a type-cast value shouldn't be an lvalue. - * - * The {if( FETCH_WCB( ... ) != func )} test is to do type-checking - * and for no other reason. Since it's hidden in the macro, the - * ugliness is felt to be rather benign. - */ -#define SET_WCB(window,cbname,func) \ -do \ -{ \ - if( FETCH_WCB( window, cbname ) != (SFG_Proc)(func) ) \ - (((window).CallBacks[CB_ ## cbname]) = (SFG_Proc)(func)); \ -} while( 0 ) - -/* - * FETCH_WCB() is used as: - * - * FETCH_WCB( window, cbname ); - * - * ...where {window} is the freeglut window to fetch the callback from, - * {cbname} is the window-specific callback to fetch. - * - * The result is correctly type-cast to the callback function pointer - * type. - */ -#define FETCH_WCB(window,cbname) \ - ((window).CallBacks[CB_ ## cbname]) - -/* - * INVOKE_WCB() is used as: - * - * INVOKE_WCB( window, cbname, ( arg_list ) ); - * - * ...where {window} is the freeglut window, - * {cbname} is the window-specific callback to be invoked, - * {(arg_list)} is the parameter list. - * - * The callback is invoked as: - * - * callback( arg_list ); - * - * ...so the parentheses are REQUIRED in the {arg_list}. - * - * NOTE that it does a sanity-check and also sets the - * current window. - * - */ -#if TARGET_HOST_MS_WINDOWS && !defined(_WIN32_WCE) /* FIXME: also WinCE? */ -#define INVOKE_WCB(window,cbname,arg_list) \ -do \ -{ \ - if( FETCH_WCB( window, cbname ) ) \ - { \ - FGCB ## cbname func = (FGCB ## cbname)(FETCH_WCB( window, cbname )); \ - fgSetWindow( &window ); \ - func arg_list; \ - } \ -} while( 0 ) -#else -#define INVOKE_WCB(window,cbname,arg_list) \ -do \ -{ \ - if( FETCH_WCB( window, cbname ) ) \ - { \ - fgSetWindow( &window ); \ - ((FGCB ## cbname)FETCH_WCB( window, cbname )) arg_list; \ - } \ -} while( 0 ) -#endif - -/* - * The window callbacks the user can supply us with. Should be kept portable. - * - * This enumeration provides the freeglut CallBack numbers. - * The symbolic constants are indices into a window's array of - * function callbacks. The names are formed by splicing a common - * prefix onto the callback's base name. (This was originally - * done so that an early stage of development could live side-by- - * side with the old callback code. The old callback code used - * the bare callback's name as a structure member, so I used a - * prefix for the array index name.) - * - * XXX For consistancy, perhaps the prefix should match the - * XXX FETCH* and INVOKE* macro suffices. I.e., WCB_, rather than - * XXX CB_. - */ -enum -{ - CB_Display, - CB_Reshape, - CB_Keyboard, - CB_KeyboardUp, - CB_Special, - CB_SpecialUp, - CB_Mouse, - CB_MouseWheel, - CB_Motion, - CB_Passive, - CB_Entry, - CB_Visibility, - CB_WindowStatus, - CB_Joystick, - CB_Destroy, - - /* MPX-related */ - CB_MultiEntry, - CB_MultiButton, - CB_MultiMotion, - CB_MultiPassive, - - /* Presently ignored */ - CB_Select, - CB_OverlayDisplay, - CB_SpaceMotion, /* presently implemented only on UNIX/X11 */ - CB_SpaceRotation, /* presently implemented only on UNIX/X11 */ - CB_SpaceButton, /* presently implemented only on UNIX/X11 */ - CB_Dials, - CB_ButtonBox, - CB_TabletMotion, - CB_TabletButton, - - /* Always make this the LAST one */ - TOTAL_CALLBACKS -}; - - -/* This structure holds the OpenGL rendering context for all the menu windows */ -typedef struct tagSFG_MenuContext SFG_MenuContext; -struct tagSFG_MenuContext -{ - SFG_WindowContextType MContext; /* The menu window's WGL context */ -}; - -/* This structure describes a menu */ -typedef struct tagSFG_Window SFG_Window; -typedef struct tagSFG_MenuEntry SFG_MenuEntry; -typedef struct tagSFG_Menu SFG_Menu; -struct tagSFG_Menu -{ - SFG_Node Node; - void *UserData; /* User data passed back at callback */ - int ID; /* The global menu ID */ - SFG_List Entries; /* The menu entries list */ - FGCBMenu Callback; /* The menu callback */ - FGCBDestroy Destroy; /* Destruction callback */ - GLboolean IsActive; /* Is the menu selected? */ - int Width; /* Menu box width in pixels */ - int Height; /* Menu box height in pixels */ - int X, Y; /* Menu box raster position */ - - SFG_MenuEntry *ActiveEntry; /* Currently active entry in the menu */ - SFG_Window *Window; /* Window for menu */ - SFG_Window *ParentWindow; /* Window in which the menu is invoked */ -}; - -/* This is a menu entry */ -struct tagSFG_MenuEntry -{ - SFG_Node Node; - int ID; /* The menu entry ID (local) */ - int Ordinal; /* The menu's ordinal number */ - char* Text; /* The text to be displayed */ - SFG_Menu* SubMenu; /* Optional sub-menu tree */ - GLboolean IsActive; /* Is the entry highlighted? */ - int Width; /* Label's width in pixels */ -}; - -/* - * A window, making part of freeglut windows hierarchy. - * Should be kept portable. - * - * NOTE that ActiveMenu is set to menu itself if the window is a menu. - */ -struct tagSFG_Window -{ - SFG_Node Node; - int ID; /* Window's ID number */ - - SFG_Context Window; /* Window and OpenGL context */ - SFG_WindowState State; /* The window state */ - SFG_Proc CallBacks[ TOTAL_CALLBACKS ]; /* Array of window callbacks */ - void *UserData ; /* For use by user */ - - SFG_Menu* Menu[ FREEGLUT_MAX_MENUS ]; /* Menus appended to window */ - SFG_Menu* ActiveMenu; /* The window's active menu */ - - SFG_Window* Parent; /* The parent to this window */ - SFG_List Children; /* The subwindows d.l. list */ - - GLboolean IsMenu; /* Set to 1 if we are a menu */ -}; - - -/* A linked list structure of windows */ -typedef struct tagSFG_WindowList SFG_WindowList ; -struct tagSFG_WindowList -{ - SFG_Node node; - SFG_Window *window ; -}; - -/* This holds information about all the windows, menus etc. */ -typedef struct tagSFG_Structure SFG_Structure; -struct tagSFG_Structure -{ - SFG_List Windows; /* The global windows list */ - SFG_List Menus; /* The global menus list */ - SFG_List WindowsToDestroy; - - SFG_Window* CurrentWindow; /* The currently set window */ - SFG_Menu* CurrentMenu; /* Same, but menu... */ - - SFG_MenuContext* MenuContext; /* OpenGL rendering context for menus */ - - SFG_Window* GameModeWindow; /* The game mode window */ - - int WindowID; /* The new current window ID */ - int MenuID; /* The new current menu ID */ -}; - -/* - * This structure is used for the enumeration purposes. - * You can easily extend its functionalities by declaring - * a structure containing enumerator's contents and custom - * data, then casting its pointer to (SFG_Enumerator *). - */ -typedef struct tagSFG_Enumerator SFG_Enumerator; -struct tagSFG_Enumerator -{ - GLboolean found; /* Used to terminate search */ - void* data; /* Custom data pointer */ -}; -typedef void (* FGCBenumerator )( SFG_Window *, SFG_Enumerator * ); - -/* The bitmap font structure */ -typedef struct tagSFG_Font SFG_Font; -struct tagSFG_Font -{ - char* Name; /* The source font name */ - int Quantity; /* Number of chars in font */ - int Height; /* Height of the characters */ - const GLubyte** Characters; /* The characters mapping */ - - float xorig, yorig; /* Relative origin of the character */ -}; - -/* The stroke font structures */ - -typedef struct tagSFG_StrokeVertex SFG_StrokeVertex; -struct tagSFG_StrokeVertex -{ - GLfloat X, Y; -}; - -typedef struct tagSFG_StrokeStrip SFG_StrokeStrip; -struct tagSFG_StrokeStrip -{ - int Number; - const SFG_StrokeVertex* Vertices; -}; - -typedef struct tagSFG_StrokeChar SFG_StrokeChar; -struct tagSFG_StrokeChar -{ - GLfloat Right; - int Number; - const SFG_StrokeStrip* Strips; -}; - -typedef struct tagSFG_StrokeFont SFG_StrokeFont; -struct tagSFG_StrokeFont -{ - char* Name; /* The source font name */ - int Quantity; /* Number of chars in font */ - GLfloat Height; /* Height of the characters */ - const SFG_StrokeChar** Characters; /* The characters mapping */ -}; - - -/* -- JOYSTICK-SPECIFIC STRUCTURES AND TYPES ------------------------------- */ -/* - * Initial defines from "js.h" starting around line 33 with the existing "freeglut_joystick.c" - * interspersed - */ - -#if TARGET_HOST_MACINTOSH -# include -#endif - -#if TARGET_HOST_MAC_OSX -# include -# include -# include -#endif - -/* XXX It might be better to poll the operating system for the numbers of buttons and - * XXX axes and then dynamically allocate the arrays. - */ -#define _JS_MAX_BUTTONS 32 - -#if TARGET_HOST_MACINTOSH -# define _JS_MAX_AXES 9 -typedef struct tagSFG_PlatformJoystick SFG_PlatformJoystick; -struct tagSFG_PlatformJoystick -{ -#define ISP_NUM_AXIS 9 -#define ISP_NUM_NEEDS 41 - ISpElementReference isp_elem [ ISP_NUM_NEEDS ]; - ISpNeed isp_needs [ ISP_NUM_NEEDS ]; -}; -#endif - -#if TARGET_HOST_MAC_OSX -# define _JS_MAX_AXES 16 -typedef struct tagSFG_PlatformJoystick SFG_PlatformJoystick; -struct tagSFG_PlatformJoystick -{ - IOHIDDeviceInterface ** hidDev; - IOHIDElementCookie buttonCookies[41]; - IOHIDElementCookie axisCookies[_JS_MAX_AXES]; -/* The next two variables are not used anywhere */ -/* long minReport[_JS_MAX_AXES], - * maxReport[_JS_MAX_AXES]; - */ -}; -#endif - - -/* - * Definition of "SFG_Joystick" structure -- based on JS's "jsJoystick" object class. - * See "js.h" lines 80-178. - */ -typedef struct tagSFG_Joystick SFG_Joystick; -struct tagSFG_Joystick -{ - SFG_PlatformJoystick pJoystick; - - int id; - GLboolean error; - char name [ 128 ]; - int num_axes; - int num_buttons; - - float dead_band[ _JS_MAX_AXES ]; - float saturate [ _JS_MAX_AXES ]; - float center [ _JS_MAX_AXES ]; - float max [ _JS_MAX_AXES ]; - float min [ _JS_MAX_AXES ]; -}; - - - -/* -- GLOBAL VARIABLES EXPORTS --------------------------------------------- */ - -/* Freeglut display related stuff (initialized once per session) */ -extern SFG_Display fgDisplay; - -/* Freeglut internal structure */ -extern SFG_Structure fgStructure; - -/* The current freeglut settings */ -extern SFG_State fgState; - - -/* -- PRIVATE FUNCTION DECLARATIONS ---------------------------------------- */ - -/* - * A call to this function makes us sure that the Display and Structure - * subsystems have been properly initialized and are ready to be used - */ -#define FREEGLUT_EXIT_IF_NOT_INITIALISED( string ) \ - if ( ! fgState.Initialised ) \ - { \ - fgError ( " ERROR: Function <%s> called" \ - " without first calling 'glutInit'.", (string) ) ; \ - } - -#define FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED( string ) \ - if ( ! fgState.Initialised ) \ - { \ - fgError ( " ERROR: Internal <%s> function called" \ - " without first calling 'glutInit'.", (string) ) ; \ - } - -#define FREEGLUT_INTERNAL_ERROR_EXIT( cond, string, function ) \ - if ( ! ( cond ) ) \ - { \ - fgError ( " ERROR: Internal error <%s> in function %s", \ - (string), (function) ) ; \ - } - -/* - * Following definitions are somewhat similiar to GLib's, - * but do not generate any log messages: - */ -#define freeglut_return_if_fail( expr ) \ - if( !(expr) ) \ - return; -#define freeglut_return_val_if_fail( expr, val ) \ - if( !(expr) ) \ - return val ; - -/* - * A call to those macros assures us that there is a current - * window set, respectively: - */ -#define FREEGLUT_EXIT_IF_NO_WINDOW( string ) \ - if ( ! fgStructure.CurrentWindow && \ - ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION ) ) \ - { \ - fgError ( " ERROR: Function <%s> called" \ - " with no current window defined.", (string) ) ; \ - } - -/* - * The deinitialize function gets called on glutMainLoop() end. It should clean up - * everything inside of the freeglut - */ -void fgDeinitialize( void ); - -/* - * Those two functions are used to create/destroy the freeglut internal - * structures. This actually happens when calling glutInit() and when - * quitting the glutMainLoop() (which actually happens, when all windows - * have been closed). - */ -void fgCreateStructure( void ); -void fgDestroyStructure( void ); - -/* - * Window creation, opening, closing and destruction. - * Also CallBack clearing/initialization. - * Defined in freeglut_structure.c, freeglut_window.c. - */ -SFG_Window* fgCreateWindow( SFG_Window* parent, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isMenu ); -void fgSetWindow ( SFG_Window *window ); -void fgOpenWindow( SFG_Window* window, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isSubWindow ); -void fgCloseWindow( SFG_Window* window ); -void fgAddToWindowDestroyList ( SFG_Window* window ); -void fgCloseWindows (); -void fgDestroyWindow( SFG_Window* window ); - -/* Menu creation and destruction. Defined in freeglut_structure.c */ -SFG_Menu* fgCreateMenu( FGCBMenu menuCallback ); -void fgDestroyMenu( SFG_Menu* menu ); - -/* Joystick device management functions, defined in freeglut_joystick.c */ -int fgJoystickDetect( void ); -void fgInitialiseJoysticks( void ); -void fgJoystickClose( void ); -void fgJoystickPollWindow( SFG_Window* window ); - -/* InputDevice Initialisation and Closure */ -int fgInputDeviceDetect( void ); -void fgInitialiseInputDevices( void ); -void fgInputDeviceClose( void ); - -/* spaceball device functions, defined in freeglut_spaceball.c */ -void fgInitialiseSpaceball( void ); -void fgSpaceballClose( void ); -void fgSpaceballSetWindow( SFG_Window *window ); - -int fgHasSpaceball( void ); -int fgSpaceballNumButtons( void ); - -/* Setting the cursor for a given window */ -void fgSetCursor ( SFG_Window *window, int cursorID ); - -/* - * Helper function to enumerate through all registered windows - * and one to enumerate all of a window's subwindows... - * - * The GFunc callback for those functions will be defined as: - * - * void enumCallback( gpointer window, gpointer enumerator ); - * - * where window is the enumerated (sub)window pointer (SFG_Window *), - * and userData is the a custom user-supplied pointer. Functions - * are defined and exported from freeglut_structure.c file. - */ -void fgEnumWindows( FGCBenumerator enumCallback, SFG_Enumerator* enumerator ); -void fgEnumSubWindows( SFG_Window* window, FGCBenumerator enumCallback, - SFG_Enumerator* enumerator ); - -/* - * fgWindowByHandle returns a (SFG_Window *) value pointing to the - * first window in the queue matching the specified window handle. - * The function is defined in freeglut_structure.c file. - */ -SFG_Window* fgWindowByHandle( SFG_WindowHandleType hWindow ); - -/* - * This function is similiar to the previous one, except it is - * looking for a specified (sub)window identifier. The function - * is defined in freeglut_structure.c file. - */ -SFG_Window* fgWindowByID( int windowID ); - -/* - * Looks up a menu given its ID. This is easier than fgWindowByXXX - * as all menus are placed in a single doubly linked list... - */ -SFG_Menu* fgMenuByID( int menuID ); - -/* - * The menu activation and deactivation the code. This is the meat - * of the menu user interface handling code... - */ -void fgUpdateMenuHighlight ( SFG_Menu *menu ); -GLboolean fgCheckActiveMenu ( SFG_Window *window, int button, GLboolean pressed, - int mouse_x, int mouse_y ); -void fgDeactivateMenu( SFG_Window *window ); - -/* - * This function gets called just before the buffers swap, so that - * freeglut can display the pull-down menus via OpenGL. The function - * is defined in freeglut_menu.c file. - */ -void fgDisplayMenu( void ); - -/* Elapsed time as per glutGet(GLUT_ELAPSED_TIME). */ -fg_time_t fgElapsedTime( void ); - -/* System time in milliseconds */ -fg_time_t fgSystemTime(void); - -/* List functions */ -void fgListInit(SFG_List *list); -void fgListAppend(SFG_List *list, SFG_Node *node); -void fgListRemove(SFG_List *list, SFG_Node *node); -int fgListLength(SFG_List *list); -void fgListInsert(SFG_List *list, SFG_Node *next, SFG_Node *node); - -/* Error Message functions */ -void fgError( const char *fmt, ... ); -void fgWarning( const char *fmt, ... ); - -SFG_Proc fgPlatformGetProcAddress( const char *procName ); - -/* pushing attribute/value pairs into an array */ -#define ATTRIB(a) attributes[where++]=(a) -#define ATTRIB_VAL(a,v) {ATTRIB(a); ATTRIB(v);} - -int fghIsLegacyContextVersionRequested( void ); -int fghMapBit( int mask, int from, int to ); -int fghIsLegacyContextRequested( void ); -void fghContextCreationError( void ); -int fghNumberOfAuxBuffersRequested( void ); - -#endif /* FREEGLUT_INTERNAL_H */ - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_joystick.c b/internal/c/parts/core/android_core/src/fg_joystick.c deleted file mode 100644 index d0528d3be..000000000 --- a/internal/c/parts/core/android_core/src/fg_joystick.c +++ /dev/null @@ -1,1070 +0,0 @@ -/* - * freeglut_joystick.c - * - * Joystick handling code - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Steve Baker, - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -/* - * FreeBSD port by Stephen Montgomery-Smith - * - * Redone by John Fay 2/4/04 with another look from the PLIB "js" library. - * Many thanks for Steve Baker for permission to pull from that library. - */ - -#include -#include "fg_internal.h" -#ifdef HAVE_SYS_PARAM_H -# include -#endif - -#define JS_TRUE 1 -#define JS_FALSE 0 - -/* BSD defines from "jsBSD.cxx" around lines 42-270 */ - -#if defined(__NetBSD__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) - -# ifdef HAVE_USB_JS -# if defined(__NetBSD__) -/* XXX The below hack is done until freeglut's autoconf is updated. */ -# define HAVE_USBHID_H 1 -# ifdef HAVE_USBHID_H -# include -# else -# include -# endif -# elif defined(__FreeBSD__) || defined(__FreeBSD_kernel__) -# ifdef HAVE_USBHID_H -# include -# else -# include -# endif -# endif -# include -# include - -/* Compatibility with older usb.h revisions */ -# if !defined(USB_MAX_DEVNAMES) && defined(MAXDEVNAMES) -# define USB_MAX_DEVNAMES MAXDEVNAMES -# endif -# endif - -static int hatmap_x[9] = { 0, 0, 1, 1, 1, 0, -1, -1, -1 }; -static int hatmap_y[9] = { 0, 1, 1, 0, -1, -1, -1, 0, 1 }; -struct os_specific_s { - char fname [128 ]; - int fd; - int is_analog; - /* The following structure members are specific to analog joysticks */ - struct joystick ajs; -# ifdef HAVE_USB_JS - /* The following structure members are specific to USB joysticks */ - struct hid_item *hids; - int hid_dlen; - int hid_offset; - char *hid_data_buf; - int axes_usage [ _JS_MAX_AXES ]; -# endif - /* We keep button and axes state ourselves, as they might not be updated - * on every read of a USB device - */ - int cache_buttons; - float cache_axes [ _JS_MAX_AXES ]; -}; - -/* Idents lower than USB_IDENT_OFFSET are for analog joysticks. */ -# define USB_IDENT_OFFSET 2 - -# define USBDEV "/dev/usb" -# define UHIDDEV "/dev/uhid" -# define AJSDEV "/dev/joy" - -# ifdef HAVE_USB_JS -/* - * fghJoystickFindUSBdev (and its helper, fghJoystickWalkUSBdev) try to locate - * the full name of a USB device. If /dev/usbN isn't readable, we punt and - * return the uhidN device name. We warn the user of this situation once. - */ -static char *fghJoystickWalkUSBdev(int f, char *dev, char *out, int outlen) -{ - struct usb_device_info di; - int i, a; - char *cp; - - for (a = 1; a < USB_MAX_DEVICES; a++) { - di.udi_addr = a; - if (ioctl(f, USB_DEVICEINFO, &di) != 0) - return NULL; - for (i = 0; i < USB_MAX_DEVNAMES; i++) - if (di.udi_devnames[i][0] && - strcmp(di.udi_devnames[i], dev) == 0) { - cp = calloc( 1, strlen(di.udi_vendor) + strlen(di.udi_product) + 2); - strcpy(cp, di.udi_vendor); - strcat(cp, " "); - strcat(cp, di.udi_product); - strncpy(out, cp, outlen - 1); - out[outlen - 1] = 0; - free( cp ); - return out; - } - } - return NULL; -} - -static int fghJoystickFindUSBdev(char *name, char *out, int outlen) -{ - int i, f; - char buf[50]; - char *cp; - static int protection_warned = 0; - - for (i = 0; i < 16; i++) { - snprintf(buf, sizeof(buf), "%s%d", USBDEV, i); - f = open(buf, O_RDONLY); - if (f >= 0) { - cp = fghJoystickWalkUSBdev(f, name, out, outlen); - close(f); - if (cp) - return 1; - } -#ifdef HAVE_ERRNO_H - else if (errno == EACCES) { - if (!protection_warned) { - fgWarning ( "Can't open %s for read!", buf ); - protection_warned = 1; - } - } -#endif - } - return 0; -} - -static int fghJoystickInitializeHID(struct os_specific_s *os, - int *num_axes, int *num_buttons) -{ - int size, is_joystick; -# ifdef HAVE_USBHID_H - int report_id = 0; -# endif - struct hid_data *d; - struct hid_item h; - report_desc_t rd; - - if ( ( rd = hid_get_report_desc( os->fd ) ) == 0 ) - { -#ifdef HAVE_ERRNO_H - fgWarning ( "error: %s: %s", os->fname, strerror( errno ) ); -#else - fgWarning ( "error: %s", os->fname ); -#endif - return FALSE; - } - - os->hids = NULL; - -# ifdef HAVE_USBHID_H - if( ioctl( os->fd, USB_GET_REPORT_ID, &report_id ) < 0) - { - /*** XXX {report_id} may not be the right variable? ***/ -#ifdef HAVE_ERRNO_H - fgWarning ( "error: %s%d: %s", UHIDDEV, report_id, strerror( errno ) ); -#else - fgWarning ( "error: %s%d", UHIDDEV, report_id ); -#endif - return FALSE; - } - - size = hid_report_size( rd, hid_input, report_id ); -# else - size = hid_report_size( rd, 0, hid_input ); -# endif - os->hid_data_buf = calloc( 1, size ); - os->hid_dlen = size; - - is_joystick = 0; -# ifdef HAVE_USBHID_H - d = hid_start_parse( rd, 1 << hid_input, report_id ); -# else - d = hid_start_parse( rd, 1 << hid_input ); -# endif - while( hid_get_item( d, &h ) ) - { - int usage, page, interesting_hid; - - page = HID_PAGE( h.usage ); - usage = HID_USAGE( h.usage ); - - /* This test is somewhat too simplistic, but this is how MicroSoft - * does, so I guess it works for all joysticks/game pads. */ - is_joystick = is_joystick || - ( h.kind == hid_collection && - page == HUP_GENERIC_DESKTOP && - ( usage == HUG_JOYSTICK || usage == HUG_GAME_PAD ) ); - - if( h.kind != hid_input ) - continue; - - if( !is_joystick ) - continue; - - interesting_hid = TRUE; - if( page == HUP_GENERIC_DESKTOP ) - { - switch( usage ) - { - case HUG_X: - case HUG_RX: - case HUG_Y: - case HUG_RY: - case HUG_Z: - case HUG_RZ: - case HUG_SLIDER: - if( *num_axes < _JS_MAX_AXES ) - { - os->axes_usage[ *num_axes ] = usage; - ( *num_axes )++; - } - break; - case HUG_HAT_SWITCH: - /* Allocate two axes for a hat */ - if( *num_axes + 1 < _JS_MAX_AXES ) - { - os->axes_usage[ *num_axes ] = usage; - (*num_axes)++; - os->axes_usage[ *num_axes ] = usage; - (*num_axes)++; - } - break; - default: - interesting_hid = FALSE; - break; - } - } - else if( page == HUP_BUTTON ) - { - interesting_hid = ( usage > 0 ) && - ( usage <= _JS_MAX_BUTTONS ); - - if( interesting_hid && usage - 1 > *num_buttons ) - *num_buttons = usage - 1; - } - - if( interesting_hid ) - { - h.next = os->hids; - os->hids = calloc( 1, sizeof ( struct hid_item ) ); - *os->hids = h; - } - } - hid_end_parse( d ); - - return os->hids != NULL; -} -# endif -#endif - -/* - * Functions associated with the "jsJoystick" class in PLIB - */ -#if TARGET_HOST_MAC_OSX -#define K_NUM_DEVICES 32 -int numDevices; -io_object_t ioDevices[K_NUM_DEVICES]; - -static void fghJoystickFindDevices ( SFG_Joystick* joy, mach_port_t ); -static CFDictionaryRef fghJoystickGetCFProperties ( SFG_Joystick* joy, io_object_t ); - -static void fghJoystickEnumerateElements ( SFG_Joystick* joy, CFTypeRef element ); -/* callback for CFArrayApply */ -static void fghJoystickElementEnumerator ( SFG_Joystick* joy, void *element, void* vjs ); - -static void fghJoystickAddAxisElement ( SFG_Joystick* joy, CFDictionaryRef axis ); -static void fghJoystickAddButtonElement ( SFG_Joystick* joy, CFDictionaryRef button ); -static void fghJoystickAddHatElement ( SFG_Joystick* joy, CFDictionaryRef hat ); -#endif - - -/* External function declarations (mostly platform-specific) */ -extern void fgPlatformJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ); -extern void fgPlatformJoystickOpen( SFG_Joystick* joy ); -extern void fgPlatformJoystickInit( SFG_Joystick *fgJoystick[], int ident ); -extern void fgPlatformJoystickClose ( int ident ); - -/* - * The static joystick structure pointer - */ -#define MAX_NUM_JOYSTICKS 2 -SFG_Joystick *fgJoystick [ MAX_NUM_JOYSTICKS ]; - -/* - * Read the raw joystick data - */ -static void fghJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - int i; - - /* Defaults */ - if( buttons ) - *buttons = 0; - - if( axes ) - for( i = 0; i < joy->num_axes; i++ ) - axes[ i ] = 1500.0f; - - if( joy->error ) - return; - - fgPlatformJoystickRawRead ( joy, buttons, axes ); -} - -/* - * Correct the joystick axis data - */ -static float fghJoystickFudgeAxis( SFG_Joystick* joy, float value, int axis ) -{ - if( value < joy->center[ axis ] ) - { - float xx = ( value - joy->center[ axis ] ) / ( joy->center[ axis ] - - joy->min[ axis ] ); - - if( xx < -joy->saturate[ axis ] ) - return -1.0f; - - if( xx > -joy->dead_band [ axis ] ) - return 0.0f; - - xx = ( xx + joy->dead_band[ axis ] ) / ( joy->saturate[ axis ] - - joy->dead_band[ axis ] ); - - return ( xx < -1.0f ) ? -1.0f : xx; - } - else - { - float xx = ( value - joy->center [ axis ] ) / ( joy->max[ axis ] - - joy->center[ axis ] ); - - if( xx > joy->saturate[ axis ] ) - return 1.0f; - - if( xx < joy->dead_band[ axis ] ) - return 0.0f; - - xx = ( xx - joy->dead_band[ axis ] ) / ( joy->saturate[ axis ] - - joy->dead_band[ axis ] ); - - return ( xx > 1.0f ) ? 1.0f : xx; - } -} - -/* - * Read the corrected joystick data - */ -static void fghJoystickRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - float raw_axes[ _JS_MAX_AXES ]; - int i; - - if( joy->error ) - { - if( buttons ) - *buttons = 0; - - if( axes ) - for ( i=0; inum_axes; i++ ) - axes[ i ] = 0.0f; - } - - fghJoystickRawRead( joy, buttons, raw_axes ); - - if( axes ) - for( i=0; inum_axes; i++ ) - axes[ i ] = fghJoystickFudgeAxis( joy, raw_axes[ i ], i ); -} - -/* - * Happy happy happy joy joy joy (happy new year toudi :D) - */ - - -#if TARGET_HOST_MAC_OSX -/** open the IOKit connection, enumerate all the HID devices, add their -interface references to the static array. We then use the array index -as the device number when we come to open() the joystick. */ -static int fghJoystickFindDevices ( SFG_Joystick *joy, mach_port_t masterPort ) -{ - CFMutableDictionaryRef hidMatch = NULL; - IOReturn rv = kIOReturnSuccess; - - io_iterator_t hidIterator; - io_object_t ioDev; - - /* build a dictionary matching HID devices */ - hidMatch = IOServiceMatching(kIOHIDDeviceKey); - - rv = IOServiceGetMatchingServices(masterPort, hidMatch, &hidIterator); - if (rv != kIOReturnSuccess || !hidIterator) { - fgWarning( "no joystick (HID) devices found" ); - return; - } - - /* iterate */ - while ((ioDev = IOIteratorNext(hidIterator))) { - /* filter out keyboard and mouse devices */ - CFDictionaryRef properties = getCFProperties(ioDev); - long usage, page; - - CFTypeRef refPage = CFDictionaryGetValue (properties, CFSTR(kIOHIDPrimaryUsagePageKey)); - CFTypeRef refUsage = CFDictionaryGetValue (properties, CFSTR(kIOHIDPrimaryUsageKey)); - CFNumberGetValue((CFNumberRef) refUsage, kCFNumberLongType, &usage); - CFNumberGetValue((CFNumberRef) refPage, kCFNumberLongType, &page); - - /* keep only joystick devices */ - if ( ( page == kHIDPage_GenericDesktop ) && ( - (usage == kHIDUsage_GD_Joystick) - || (usage == kHIDUsage_GD_GamePad) - || (usage == kHIDUsage_GD_MultiAxisController) - || (usage == kHIDUsage_GD_Hatswitch) /* last two necessary ? */ - /* add it to the array */ - ioDevices[numDevices++] = ioDev; - } - - IOObjectRelease(hidIterator); -} - -static CFDictionaryRef fghJoystickGetCFProperties ( SFG_Joystick *joy, io_object_t ioDev ) -{ - IOReturn rv; - CFMutableDictionaryRef cfProperties; - -#if 0 - /* comment copied from darwin/SDL_sysjoystick.c */ - /* Mac OS X currently is not mirroring all USB properties to HID page so need to look at USB device page also - * get dictionary for usb properties: step up two levels and get CF dictionary for USB properties - */ - - io_registry_entry_t parent1, parent2; - - rv = IORegistryEntryGetParentEntry (ioDev, kIOServicePlane, &parent1); - if (rv != kIOReturnSuccess) { - fgWarning ( "error getting device entry parent"); - return NULL; - } - - rv = IORegistryEntryGetParentEntry (parent1, kIOServicePlane, &parent2); - if (rv != kIOReturnSuccess) { - fgWarning ( "error getting device entry parent 2"); - return NULL; - } -#endif - - rv = IORegistryEntryCreateCFProperties( ioDev /*parent2*/, - &cfProperties, kCFAllocatorDefault, kNilOptions); - if (rv != kIOReturnSuccess || !cfProperties) { - fgWarning ( "error getting device properties"); - return NULL; - } - - return cfProperties; -} - -static void fghJoystickElementEnumerator ( SFG_Joystick *joy, void *element, void* vjs ) -{ - if (CFGetTypeID((CFTypeRef) element) != CFDictionaryGetTypeID()) { - fgError ( "%s", "element enumerator passed non-dictionary value"); - return; - } - - static_cast(vjs)->parseElement ( (CFDictionaryRef) element ); -} - -/** element enumerator function : pass NULL for top-level*/ -static void fghJoystickEnumerateElements ( SFG_Joystick *joy, CFTypeRef element ) -{ - FREEGLUT_INTERNAL_ERROR_EXIT( (CFGetTypeID(element) == CFArrayGetTypeID(), - "Joystick element type mismatch", - "fghJoystickEnumerateElements" ); - - CFRange range = {0, CFArrayGetCount ((CFArrayRef)element)}; - CFArrayApplyFunction((CFArrayRef) element, range, - &fghJoystickElementEnumerator, joy ); -} - -static void fghJoystickAddAxisElement ( SFG_Joystick *joy, CFDictionaryRef axis ) -{ - long cookie, lmin, lmax; - int index = joy->num_axes++; - - CFNumberGetValue ((CFNumberRef) - CFDictionaryGetValue ( axis, CFSTR(kIOHIDElementCookieKey) ), - kCFNumberLongType, &cookie); - - joy->pJoystick.axisCookies[index] = (IOHIDElementCookie) cookie; - - CFNumberGetValue ((CFNumberRef) - CFDictionaryGetValue ( axis, CFSTR(kIOHIDElementMinKey) ), - kCFNumberLongType, &lmin); - - CFNumberGetValue ((CFNumberRef) - CFDictionaryGetValue ( axis, CFSTR(kIOHIDElementMaxKey) ), - kCFNumberLongType, &lmax); - - joy->min[index] = lmin; - joy->max[index] = lmax; - joy->dead_band[index] = 0.0; - joy->saturate[index] = 1.0; - joy->center[index] = (lmax + lmin) * 0.5; -} - -static void fghJoystickAddButtonElement ( SFG_Joystick *joy, CFDictionaryRef button ) -{ - long cookie; - CFNumberGetValue ((CFNumberRef) - CFDictionaryGetValue ( button, CFSTR(kIOHIDElementCookieKey) ), - kCFNumberLongType, &cookie); - - joy->pJoystick.buttonCookies[num_buttons++] = (IOHIDElementCookie) cookie; - /* anything else for buttons? */ -} - -static void fghJoystickAddHatElement ( SFG_Joystick *joy, CFDictionaryRef button ) -{ - /* hatCookies[num_hats++] = (IOHIDElementCookie) cookie; */ - /* do we map hats to axes or buttons? */ -} -#endif - -/* - * Platform-Specific Code - */ - -#if TARGET_HOST_MACINTOSH -void fgPlatformJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - int i; - - if ( buttons ) - { - *buttons = 0; - - for ( i = 0; i < joy->num_buttons; i++ ) - { - UInt32 state; - int err = ISpElement_GetSimpleState ( joy->pJoystick.isp_elem [ i + ISP_NUM_AXIS ], &state); - ISP_CHECK_ERR(err) - - *buttons |= state << i; - } - } - - if ( axes ) - { - for ( i = 0; i < joy->num_axes; i++ ) - { - UInt32 state; - int err = ISpElement_GetSimpleState ( joy->pJoystick.isp_elem [ i ], &state ); - ISP_CHECK_ERR(err) - - axes [i] = (float) state; - } - } -} - - -void fgPlatformJoystickOpen( SFG_Joystick* joy ) -{ - int i = 0; - OSStatus err; - - /* XXX FIXME: get joystick name in Mac */ - - err = ISpStartup( ); - - if( err == noErr ) - { -#define ISP_CHECK_ERR(x) if( x != noErr ) { joy->error = GL_TRUE; return; } - - joy->error = GL_TRUE; - - /* initialize the needs structure */ - ISpNeed temp_isp_needs[ ISP_NUM_NEEDS ] = - { - { "\pX-Axis", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pY-Axis", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pZ-Axis", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pR-Axis", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pAxis 4", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pAxis 5", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pAxis 6", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pAxis 7", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - { "\pAxis 8", 128, 0, 0, kISpElementKind_Axis, kISpElementLabel_None, 0, 0, 0, 0 }, - - { "\pButton 0", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 1", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 2", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 3", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 4", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 5", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 6", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 7", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 8", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 9", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 10", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 11", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 12", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 13", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 14", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 15", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 16", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 17", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 18", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 19", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 20", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 21", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 22", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 23", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 24", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 25", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 26", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 27", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 28", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 29", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 30", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - { "\pButton 31", 128, 0, 0, kISpElementKind_Button, kISpElementLabel_Btn_Select, 0, 0, 0, 0 }, - }; - - memcpy( joy->pJoystick.isp_needs, temp_isp_needs, sizeof (temp_isp_needs ) ); - - - /* next two calls allow keyboard and mouse to emulate other input - * devices (gamepads, joysticks, etc) - */ - /* - err = ISpDevices_ActivateClass ( kISpDeviceClass_Keyboard ); - ISP_CHECK_ERR(err) - - - err = ISpDevices_ActivateClass ( kISpDeviceClass_Mouse ); - ISP_CHECK_ERR(err) - */ - - err = ISpElement_NewVirtualFromNeeds( ISP_NUM_NEEDS, - joy->pJoystick.isp_needs, joy->pJoystick.isp_elem, - 0 ); - ISP_CHECK_ERR( err ) - - err = ISpInit( ISP_NUM_NEEDS, joy->pJoystick.isp_needs, joy->pJoystick.isp_elem, - 'freeglut', nil, 0, 128, 0 ); - ISP_CHECK_ERR( err ) - - joy->num_buttons = ISP_NUM_NEEDS - ISP_NUM_AXIS; - joy->num_axes = ISP_NUM_AXIS; - - for( i = 0; i < joy->num_axes; i++ ) - { - joy->dead_band[ i ] = 0; - joy->saturate [ i ] = 1; - joy->center [ i ] = kISpAxisMiddle; - joy->max [ i ] = kISpAxisMaximum; - joy->min [ i ] = kISpAxisMinimum; - } - - joy->error = GL_FALSE; - } - else - joy->num_buttons = joy->num_axes = 0; -} - - -void fgPlatformJoystickInit( SFG_Joystick *fgJoystick[], int ident ) -{ - fgJoystick[ ident ]->id = ident; - snprintf( fgJoystick[ ident ]->pJoystick.fname, sizeof(fgJoystick[ ident ]->pJoystick.fname), "/dev/js%d", ident ); /* FIXME */ - fgJoystick[ ident ]->error = GL_FALSE; -} - - -void fgPlatformJoystickClose ( int ident ) -{ - ISpSuspend( ); - ISpStop( ); - ISpShutdown( ); -} -#endif - -#if TARGET_HOST_MAC_OSX -void fgPlatformJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - int i; - - if ( buttons != NULL ) - { - *buttons = 0; - - for ( i = 0; i < joy->num_buttons; i++ ) - { - IOHIDEventStruct hidEvent; - (*(joy->pJoystick.hidDev))->getElementValue ( joy->pJoystick.hidDev, joy->pJoystick.buttonCookies[i], &hidEvent ); - if ( hidEvent.value ) - *buttons |= 1 << i; - } - } - - if ( axes != NULL ) - { - for ( i = 0; i < joy->num_axes; i++ ) - { - IOHIDEventStruct hidEvent; - (*(joy->pJoystick.hidDev))->getElementValue ( joy->pJoystick.hidDev, joy->pJoystick.axisCookies[i], &hidEvent ); - axes[i] = hidEvent.value; - } - } -} - - -void fgPlatformJoystickOpen( SFG_Joystick* joy ) -{ - IOReturn rv; - SInt32 score; - IOCFPlugInInterface **plugin; - - HRESULT pluginResult; - - CFDictionaryRef props; - CFTypeRef topLevelElement; - - if( joy->id >= numDevices ) - { - fgWarning( "device index out of range in fgJoystickOpen()" ); - return; - } - - /* create device interface */ - rv = IOCreatePlugInInterfaceForService( ioDevices[ joy->id ], - kIOHIDDeviceUserClientTypeID, - kIOCFPlugInInterfaceID, - &plugin, &score ); - - if( rv != kIOReturnSuccess ) - { - fgWarning( "error creating plugin for io device" ); - return; - } - - pluginResult = ( *plugin )->QueryInterface( - plugin, - CFUUIDGetUUIDBytes(kIOHIDDeviceInterfaceID), - &( LPVOID )joy->pJoystick.hidDev - ); - - if( pluginResult != S_OK ) - fgWarning ( "QI-ing IO plugin to HID Device interface failed" ); - - ( *plugin )->Release( plugin ); /* don't leak a ref */ - if( joy->pJoystick.hidDev == NULL ) - return; - - /* store the interface in this instance */ - rv = ( *( joy->pJoystick.hidDev ) )->open( joy->pJoystick.hidDev, 0 ); - if( rv != kIOReturnSuccess ) - { - fgWarning( "error opening device interface"); - return; - } - - props = getCFProperties( ioDevices[ joy->id ] ); - - /* recursively enumerate all the bits */ - CFTypeRef topLevelElement = - CFDictionaryGetValue( props, CFSTR( kIOHIDElementKey ) ); - enumerateElements( topLevelElement ); - - CFRelease( props ); -} - - -void fgPlatformJoystickInit( SFG_Joystick *fgJoystick[], int ident ) -{ - fgJoystick[ ident ]->id = ident; - fgJoystick[ ident ]->error = GL_FALSE; - fgJoystick[ ident ]->num_axes = 0; - fgJoystick[ ident ]->num_buttons = 0; - - if( numDevices < 0 ) - { - /* do first-time init (since we can't over-ride jsInit, hmm */ - numDevices = 0; - - mach_port_t masterPort; - IOReturn rv = IOMasterPort( bootstrap_port, &masterPort ); - if( rv != kIOReturnSuccess ) - { - fgWarning( "error getting master Mach port" ); - return; - } - fghJoystickFindDevices( masterPort ); - } - - if ( ident >= numDevices ) - { - fgJoystick[ ident ]->error = GL_TRUE; - return; - } - - /* get the name now too */ - CFDictionaryRef properties = getCFProperties( ioDevices[ ident ] ); - CFTypeRef ref = CFDictionaryGetValue( properties, - CFSTR( kIOHIDProductKey ) ); - if (!ref) - ref = CFDictionaryGetValue(properties, CFSTR( "USB Product Name" ) ); - - if( !ref || - !CFStringGetCString( ( CFStringRef )ref, name, 128, - CFStringGetSystemEncoding( ) ) ) - { - fgWarning( "error getting device name" ); - name[ 0 ] = '\0'; - } -} - - -void fgPlatformJoystickClose ( int ident ) -{ - ( *( fgJoystick[ ident ]->pJoystick.hidDev ) )-> - close( fgJoystick[ ident ]->pJoystick.hidDev ); -} -#endif - - - - -static void fghJoystickOpen( SFG_Joystick* joy ) -{ - /* - * Default values (for no joystick -- each conditional will reset the - * error flag) - */ - joy->error = TRUE; - joy->num_axes = joy->num_buttons = 0; - joy->name[ 0 ] = '\0'; - - fgPlatformJoystickOpen ( joy ); - -} - -/* - * This function replaces the constructor method in the JS library. - */ -static void fghJoystickInit( int ident ) -{ - if( ident >= MAX_NUM_JOYSTICKS ) - fgError( "Too large a joystick number: %d", ident ); - - if( fgJoystick[ ident ] ) - fgError( "illegal attempt to initialize joystick device again" ); - - fgJoystick[ ident ] = - ( SFG_Joystick * )calloc( sizeof( SFG_Joystick ), 1 ); - - /* Set defaults */ - fgJoystick[ ident ]->num_axes = fgJoystick[ ident ]->num_buttons = 0; - fgJoystick[ ident ]->error = GL_TRUE; - - fgPlatformJoystickInit( fgJoystick, ident ); - - fghJoystickOpen( fgJoystick[ ident ] ); -} - -/* - * Try initializing all the joysticks (well, both of them) - */ -void fgInitialiseJoysticks ( void ) -{ - if( !fgState.JoysticksInitialised ) - { - int ident ; - for ( ident = 0; ident < MAX_NUM_JOYSTICKS; ident++ ) - fghJoystickInit( ident ); - - fgState.JoysticksInitialised = GL_TRUE; - } -} - - -void fgJoystickClose( void ) -{ - int ident ; - for( ident = 0; ident < MAX_NUM_JOYSTICKS; ident++ ) - { - if( fgJoystick[ ident ] ) - { - fgPlatformJoystickClose ( ident ); - - free( fgJoystick[ ident ] ); - fgJoystick[ ident ] = NULL; - /* show joystick has been deinitialized */ - } - } -} - -/* - * Polls the joystick and executes the joystick callback hooked to the - * window specified in the function's parameter: - */ -void fgJoystickPollWindow( SFG_Window* window ) -{ - float axes[ _JS_MAX_AXES ]; - int buttons; - int ident; - - freeglut_return_if_fail( window ); - freeglut_return_if_fail( FETCH_WCB( *window, Joystick ) ); - - for( ident = 0; ident < MAX_NUM_JOYSTICKS; ident++ ) - { - if( fgJoystick[ident] ) - { - fghJoystickRead( fgJoystick[ident], &buttons, axes ); - - if( !fgJoystick[ident]->error ) - INVOKE_WCB( *window, Joystick, - ( buttons, - (int) ( axes[ 0 ] * 1000.0f ), - (int) ( axes[ 1 ] * 1000.0f ), - (int) ( axes[ 2 ] * 1000.0f ) ) - ); - } - } -} - -/* - * Implementation for glutDeviceGet(GLUT_HAS_JOYSTICK) - */ -int fgJoystickDetect( void ) -{ - int ident; - - fgInitialiseJoysticks (); - - if ( !fgState.JoysticksInitialised ) - return 0; - - for( ident=0; identerror ) - return 1; - - return 0; -} - -/* - * Joystick information, setup and execution functions - */ - -/* - * Forces the joystick callback to be executed - */ -void FGAPIENTRY glutForceJoystickFunc( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutForceJoystickFunc" ); -#if !defined(_WIN32_WCE) - freeglut_return_if_fail( fgStructure.CurrentWindow != NULL ); - freeglut_return_if_fail( FETCH_WCB( *( fgStructure.CurrentWindow ), Joystick ) ); - fgJoystickPollWindow( fgStructure.CurrentWindow ); -#endif /* !defined(_WIN32_WCE) */ -} -int glutJoystickGetNumAxes( int ident ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetNumAxes" ); - return fgJoystick[ ident ]->num_axes; -} -int glutJoystickGetNumButtons( int ident ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetNumButtons" ); - return fgJoystick[ ident ]->num_buttons; -} -int glutJoystickNotWorking( int ident ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickNotWorking" ); - return fgJoystick[ ident ]->error; -} - -float glutJoystickGetDeadBand( int ident, int axis ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetDeadBand" ); - return fgJoystick[ ident ]->dead_band [ axis ]; -} -void glutJoystickSetDeadBand( int ident, int axis, float db ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickSetDeadBand" ); - fgJoystick[ ident ]->dead_band[ axis ] = db; -} - -float glutJoystickGetSaturation( int ident, int axis ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetSaturation" ); - return fgJoystick[ ident ]->saturate[ axis ]; -} -void glutJoystickSetSaturation( int ident, int axis, float st ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickSetSaturation" ); - fgJoystick[ ident ]->saturate [ axis ] = st; -} - -void glutJoystickSetMinRange( int ident, float *axes ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickSetMinRange" ); - memcpy( fgJoystick[ ident ]->min, axes, - fgJoystick[ ident ]->num_axes * sizeof( float ) ); -} -void glutJoystickSetMaxRange( int ident, float *axes ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickSetMaxRange" ); - memcpy( fgJoystick[ ident ]->max, axes, - fgJoystick[ ident ]->num_axes * sizeof( float ) ); -} -void glutJoystickSetCenter( int ident, float *axes ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickSetCenter" ); - memcpy( fgJoystick[ ident ]->center, axes, - fgJoystick[ ident ]->num_axes * sizeof( float ) ); -} - -void glutJoystickGetMinRange( int ident, float *axes ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetMinRange" ); - memcpy( axes, fgJoystick[ ident ]->min, - fgJoystick[ ident ]->num_axes * sizeof( float ) ); -} -void glutJoystickGetMaxRange( int ident, float *axes ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetMaxRange" ); - memcpy( axes, fgJoystick[ ident ]->max, - fgJoystick[ ident ]->num_axes * sizeof( float ) ); -} -void glutJoystickGetCenter( int ident, float *axes ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutJoystickGetCenter" ); - memcpy( axes, fgJoystick[ ident ]->center, - fgJoystick[ ident ]->num_axes * sizeof( float ) ); -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_main.c b/internal/c/parts/core/android_core/src/fg_main.c deleted file mode 100644 index 22acba9c3..000000000 --- a/internal/c/parts/core/android_core/src/fg_main.c +++ /dev/null @@ -1,466 +0,0 @@ -/* - * freeglut_main.c - * - * The windows message processing methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Fri Dec 3 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" -#ifdef HAVE_ERRNO_H -# include -#endif -#include -#ifdef HAVE_VFPRINTF -# define VFPRINTF(s,f,a) vfprintf((s),(f),(a)) -#elif defined(HAVE__DOPRNT) -# define VFPRINTF(s,f,a) _doprnt((f),(a),(s)) -#else -# define VFPRINTF(s,f,a) -#endif - -/* - * Try to get the maximum value allowed for ints, falling back to the minimum - * guaranteed by ISO C99 if there is no suitable header. - */ -#ifdef HAVE_LIMITS_H -# include -#endif -#ifndef INT_MAX -# define INT_MAX 32767 -#endif - -#ifndef MIN -# define MIN(a,b) (((a)<(b)) ? (a) : (b)) -#endif - -extern void fgPlatformReshapeWindow ( SFG_Window *window, int width, int height ); -extern void fgPlatformDisplayWindow ( SFG_Window *window ); -extern fg_time_t fgPlatformSystemTime ( void ); -extern void fgPlatformSleepForEvents( fg_time_t msec ); -extern void fgPlatformProcessSingleEvent ( void ); -extern void fgPlatformMainLoopPreliminaryWork ( void ); - - - - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - -static void fghReshapeWindow ( SFG_Window *window, int width, int height ) -{ - SFG_Window *current_window = fgStructure.CurrentWindow; - - freeglut_return_if_fail( window != NULL ); - - fgPlatformReshapeWindow ( window, width, height ); - - if( FETCH_WCB( *window, Reshape ) ) - INVOKE_WCB( *window, Reshape, ( width, height ) ); - else - { - fgSetWindow( window ); - glViewport( 0, 0, width, height ); - } - - /* - * Force a window redraw. In Windows at least this is only a partial - * solution: if the window is increasing in size in either dimension, - * the already-drawn part does not get drawn again and things look funny. - * But without this we get this bad behaviour whenever we resize the - * window. - */ - window->State.Redisplay = GL_TRUE; - - if( window->IsMenu ) - fgSetWindow( current_window ); -} - -/* - * Calls a window's redraw method. This is used when - * a redraw is forced by the incoming window messages. - */ -void fghRedrawWindow ( SFG_Window *window ) -{ - SFG_Window *current_window = fgStructure.CurrentWindow; - - freeglut_return_if_fail( window ); - freeglut_return_if_fail( FETCH_WCB ( *window, Display ) ); - - window->State.Redisplay = GL_FALSE; - - freeglut_return_if_fail( window->State.Visible ); - - fgSetWindow( window ); - - if( window->State.NeedToResize ) - { - fghReshapeWindow( - window, - window->State.Width, - window->State.Height - ); - - window->State.NeedToResize = GL_FALSE; - } - - INVOKE_WCB( *window, Display, ( ) ); - - fgSetWindow( current_window ); -} - - -static void fghcbDisplayWindow( SFG_Window *window, - SFG_Enumerator *enumerator ) -{ - if( window->State.Redisplay && - window->State.Visible ) - { - window->State.Redisplay = GL_FALSE; - fgPlatformDisplayWindow ( window ); - } - - fgEnumSubWindows( window, fghcbDisplayWindow, enumerator ); -} - -/* - * Make all windows perform a display call - */ -static void fghDisplayAll( void ) -{ - SFG_Enumerator enumerator; - - enumerator.found = GL_FALSE; - enumerator.data = NULL; - - fgEnumWindows( fghcbDisplayWindow, &enumerator ); -} - -/* - * Window enumerator callback to check for the joystick polling code - */ -static void fghcbCheckJoystickPolls( SFG_Window *window, - SFG_Enumerator *enumerator ) -{ - fg_time_t checkTime = fgElapsedTime( ); - - if( window->State.JoystickLastPoll + window->State.JoystickPollRate <= - checkTime ) - { -#if !defined(_WIN32_WCE) - fgJoystickPollWindow( window ); -#endif /* !defined(_WIN32_WCE) */ - window->State.JoystickLastPoll = checkTime; - } - - fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator ); -} - -/* - * Check all windows for joystick polling - */ -static void fghCheckJoystickPolls( void ) -{ - SFG_Enumerator enumerator; - - enumerator.found = GL_FALSE; - enumerator.data = NULL; - - fgEnumWindows( fghcbCheckJoystickPolls, &enumerator ); -} - -/* - * Check the global timers - */ -static void fghCheckTimers( void ) -{ - fg_time_t checkTime = fgElapsedTime( ); - - while( fgState.Timers.First ) - { - SFG_Timer *timer = fgState.Timers.First; - - if( timer->TriggerTime > checkTime ) - break; - - fgListRemove( &fgState.Timers, &timer->Node ); - fgListAppend( &fgState.FreeTimers, &timer->Node ); - - timer->Callback( timer->ID ); - } -} - - -/* Platform-dependent time in milliseconds, as an unsigned 64-bit integer. - * This doesn't overflow in any reasonable time, so no need to worry about - * that. The GLUT API return value will however overflow after 49.7 days, - * and on Windows we (currently) do not have access to a 64-bit timestamp, - * which means internal time will still get in trouble when running the - * application for more than 49.7 days. - * This value wraps every 49.7 days, but integer overflows cancel - * when subtracting an initial start time, unless the total time exceeds - * 32-bit, where the GLUT API return value is also overflowed. - */ -fg_time_t fgSystemTime(void) -{ - return fgPlatformSystemTime(); -} - -/* - * Elapsed Time - */ -fg_time_t fgElapsedTime( void ) -{ - return fgSystemTime() - fgState.Time; -} - -/* - * Error Messages. - */ -void fgError( const char *fmt, ... ) -{ - va_list ap; - - if (fgState.ErrorFunc) { - - va_start( ap, fmt ); - - /* call user set error handler here */ - fgState.ErrorFunc(fmt, ap); - - va_end( ap ); - - } else { - - va_start( ap, fmt ); - - fprintf( stderr, "freeglut "); - if( fgState.ProgramName ) - fprintf( stderr, "(%s): ", fgState.ProgramName ); - VFPRINTF( stderr, fmt, ap ); - fprintf( stderr, "\n" ); - - va_end( ap ); - - if ( fgState.Initialised ) - fgDeinitialize (); - - exit( 1 ); - } -} - -void fgWarning( const char *fmt, ... ) -{ - va_list ap; - - if (fgState.WarningFunc) { - - va_start( ap, fmt ); - - /* call user set warning handler here */ - fgState.WarningFunc(fmt, ap); - - va_end( ap ); - - } else { - - va_start( ap, fmt ); - - fprintf( stderr, "freeglut "); - if( fgState.ProgramName ) - fprintf( stderr, "(%s): ", fgState.ProgramName ); - VFPRINTF( stderr, fmt, ap ); - fprintf( stderr, "\n" ); - - va_end( ap ); - } -} - - -/* - * Indicates whether Joystick events are being used by ANY window. - * - * The current mechanism is to walk all of the windows and ask if - * there is a joystick callback. We have a short-circuit early - * return if we find any joystick handler registered. - * - * The real way to do this is to make use of the glutTimer() API - * to more cleanly re-implement the joystick API. Then, this code - * and all other "joystick timer" code can be yanked. - * - */ -static void fghCheckJoystickCallback( SFG_Window* w, SFG_Enumerator* e) -{ - if( FETCH_WCB( *w, Joystick ) ) - { - e->found = GL_TRUE; - e->data = w; - } - fgEnumSubWindows( w, fghCheckJoystickCallback, e ); -} -static int fghHaveJoystick( void ) -{ - SFG_Enumerator enumerator; - - enumerator.found = GL_FALSE; - enumerator.data = NULL; - fgEnumWindows( fghCheckJoystickCallback, &enumerator ); - return !!enumerator.data; -} -static void fghHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e) -{ - if( w->State.Redisplay && w->State.Visible ) - { - e->found = GL_TRUE; - e->data = w; - } - fgEnumSubWindows( w, fghHavePendingRedisplaysCallback, e ); -} -static int fghHavePendingRedisplays (void) -{ - SFG_Enumerator enumerator; - - enumerator.found = GL_FALSE; - enumerator.data = NULL; - fgEnumWindows( fghHavePendingRedisplaysCallback, &enumerator ); - return !!enumerator.data; -} -/* - * Returns the number of GLUT ticks (milliseconds) till the next timer event. - */ -static fg_time_t fghNextTimer( void ) -{ - fg_time_t currentTime = fgElapsedTime(); - SFG_Timer *timer = fgState.Timers.First; - - if( !timer ) - return INT_MAX; - - if( timer->TriggerTime < currentTime ) - return 0; - else - return timer->TriggerTime - currentTime; -} - -static void fghSleepForEvents( void ) -{ - fg_time_t msec; - - if( fgState.IdleCallback || fghHavePendingRedisplays( ) ) - return; - - msec = fghNextTimer( ); - /* XXX Use GLUT timers for joysticks... */ - /* XXX Dumb; forces granularity to .01sec */ - if( fghHaveJoystick( ) && ( msec > 10 ) ) - msec = 10; - - fgPlatformSleepForEvents ( msec ); -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Executes a single iteration in the freeglut processing loop. - */ -void FGAPIENTRY glutMainLoopEvent( void ) -{ - fgPlatformProcessSingleEvent (); - - if( fgState.Timers.First ) - fghCheckTimers( ); - fghCheckJoystickPolls( ); - fghDisplayAll( ); - - fgCloseWindows( ); -} - -/* - * Enters the freeglut processing loop. - * Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP". - */ -void FGAPIENTRY glutMainLoop( void ) -{ - int action; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoop" ); - - fgPlatformMainLoopPreliminaryWork (); - - fgState.ExecState = GLUT_EXEC_STATE_RUNNING ; - while( fgState.ExecState == GLUT_EXEC_STATE_RUNNING ) - { - SFG_Window *window; - - glutMainLoopEvent( ); - /* - * Step through the list of windows, seeing if there are any - * that are not menus - */ - for( window = ( SFG_Window * )fgStructure.Windows.First; - window; - window = ( SFG_Window * )window->Node.Next ) - if ( ! ( window->IsMenu ) ) - break; - - if( ! window ) - fgState.ExecState = GLUT_EXEC_STATE_STOP; - else - { - if( fgState.IdleCallback ) - { - if( fgStructure.CurrentWindow && - fgStructure.CurrentWindow->IsMenu ) - /* fail safe */ - fgSetWindow( window ); - fgState.IdleCallback( ); - } - - fghSleepForEvents( ); - } - } - - /* - * When this loop terminates, destroy the display, state and structure - * of a freeglut session, so that another glutInit() call can happen - * - * Save the "ActionOnWindowClose" because "fgDeinitialize" resets it. - */ - action = fgState.ActionOnWindowClose; - fgDeinitialize( ); - if( action == GLUT_ACTION_EXIT ) - exit( 0 ); -} - -/* - * Leaves the freeglut processing loop. - */ -void FGAPIENTRY glutLeaveMainLoop( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveMainLoop" ); - fgState.ExecState = GLUT_EXEC_STATE_STOP ; -} - - - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_menu.c b/internal/c/parts/core/android_core/src/fg_menu.c deleted file mode 100644 index 937673ebf..000000000 --- a/internal/c/parts/core/android_core/src/fg_menu.c +++ /dev/null @@ -1,969 +0,0 @@ -/* - * freeglut_menu.c - * - * Pull-down menu creation and handling. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "fg_internal.h" - -/* -- DEFINITIONS ---------------------------------------------------------- */ - -/* - * FREEGLUT_MENU_FONT can be any freeglut bitmapped font. - * (Stroked fonts would not be out of the question, but we'd need to alter - * code, since GLUT (hence freeglut) does not quite unify stroked and - * bitmapped font handling.) - * Old UNIX/X11 GLUT (BSD, UNIX, IRIX, LINUX, HPUX, ...) used a system - * font best approximated by an 18-pixel HELVETICA, I think. MS-WINDOWS - * GLUT used something closest to the 8x13 fixed-width font. (Old - * GLUT apparently uses host-system menus rather than building its own. - * freeglut is building its own menus from scratch.) - * - * FREEGLUT_MENU_HEIGHT gives the height of ONE menu box. This should be - * the distances between two adjacent menu entries. It should scale - * automatically with the font choice, so you needn't alter it---unless you - * use a stroked font. - * - * FREEGLUT_MENU_BORDER says how many pixels to allow around the edge of a - * menu. (It also seems to be the same as the number of pixels used as - * a border around *items* to separate them from neighbors. John says - * that that wasn't the original intent...if not, perhaps we need another - * symbolic constant, FREEGLUT_MENU_ITEM_BORDER, or such.) - */ -/* See platform-specific header files for menu font and color definitions */ - -#define FREEGLUT_MENU_HEIGHT (glutBitmapHeight(FREEGLUT_MENU_FONT) + \ - FREEGLUT_MENU_BORDER) -#define FREEGLUT_MENU_BORDER 2 - - -/* - * These variables are for rendering the freeglut menu items. - * - * The choices are fore- and background, with and without h for Highlighting. - * Old GLUT appeared to be system-dependant for its colors (sigh) so we are - * too. These variables should be stuffed into global state and initialized - * via the glutInit*() system. - */ -static float menu_pen_fore [4] = FREEGLUT_MENU_PEN_FORE_COLORS ; -static float menu_pen_back [4] = FREEGLUT_MENU_PEN_BACK_COLORS ; -static float menu_pen_hfore [4] = FREEGLUT_MENU_PEN_HFORE_COLORS; -static float menu_pen_hback [4] = FREEGLUT_MENU_PEN_HBACK_COLORS; - - -extern GLvoid fgPlatformGetGameModeVMaxExtent( SFG_Window* window, int* x, int* y ); - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - -/* - * Private function to find a menu entry by index - */ -static SFG_MenuEntry *fghFindMenuEntry( SFG_Menu* menu, int index ) -{ - SFG_MenuEntry *entry; - int i = 1; - - for( entry = (SFG_MenuEntry *)menu->Entries.First; - entry; - entry = (SFG_MenuEntry *)entry->Node.Next ) - { - if( i == index ) - break; - ++i; - } - - return entry; -} - -/* - * Deactivates a menu pointed by the function argument. - */ -static void fghDeactivateSubMenu( SFG_MenuEntry *menuEntry ) -{ - SFG_MenuEntry *subMenuIter; - /* Hide the present menu's window */ - fgSetWindow( menuEntry->SubMenu->Window ); - glutHideWindow( ); - - /* Forget about having that menu active anymore, now: */ - menuEntry->SubMenu->Window->ActiveMenu = NULL; - menuEntry->SubMenu->IsActive = GL_FALSE; - menuEntry->SubMenu->ActiveEntry = NULL; - - /* Hide all submenu windows, and the root menu's window. */ - for ( subMenuIter = (SFG_MenuEntry *)menuEntry->SubMenu->Entries.First; - subMenuIter; - subMenuIter = (SFG_MenuEntry *)subMenuIter->Node.Next ) - { - subMenuIter->IsActive = GL_FALSE; - - /* Is that an active submenu by any case? */ - if( subMenuIter->SubMenu ) - fghDeactivateSubMenu( subMenuIter ); - } - - fgSetWindow ( menuEntry->SubMenu->ParentWindow ) ; -} - -/* - * Private function to get the virtual maximum screen extent - */ -static GLvoid fghGetVMaxExtent( SFG_Window* window, int* x, int* y ) -{ - if( fgStructure.GameModeWindow ) - fgPlatformGetGameModeVMaxExtent ( window, x, y ); - else - { - *x = fgDisplay.ScreenWidth; - *y = fgDisplay.ScreenHeight; - } -} - -/* - * Private function to check for the current menu/sub menu activity state - */ -static GLboolean fghCheckMenuStatus( SFG_Menu* menu ) -{ - SFG_MenuEntry* menuEntry; - int x, y; - - /* First of all check any of the active sub menus... */ - for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; - menuEntry; - menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next ) - { - if( menuEntry->SubMenu && menuEntry->IsActive ) - { - /* - * OK, have the sub-menu checked, too. If it returns GL_TRUE, it - * will mean that it caught the mouse cursor and we do not need - * to regenerate the activity list, and so our parents do... - */ - GLboolean return_status; - - menuEntry->SubMenu->Window->State.MouseX = - menu->Window->State.MouseX + menu->X - menuEntry->SubMenu->X; - menuEntry->SubMenu->Window->State.MouseY = - menu->Window->State.MouseY + menu->Y - menuEntry->SubMenu->Y; - return_status = fghCheckMenuStatus( menuEntry->SubMenu ); - - if ( return_status ) - return GL_TRUE; - } - } - - /* That much about our sub menus, let's get to checking the current menu: */ - x = menu->Window->State.MouseX; - y = menu->Window->State.MouseY; - - /* Check if the mouse cursor is contained within the current menu box */ - if( ( x >= FREEGLUT_MENU_BORDER ) && - ( x < menu->Width - FREEGLUT_MENU_BORDER ) && - ( y >= FREEGLUT_MENU_BORDER ) && - ( y < menu->Height - FREEGLUT_MENU_BORDER ) ) - { - int menuID = ( y - FREEGLUT_MENU_BORDER ) / FREEGLUT_MENU_HEIGHT; - - /* The mouse cursor is somewhere over our box, check it out. */ - menuEntry = fghFindMenuEntry( menu, menuID + 1 ); - FREEGLUT_INTERNAL_ERROR_EXIT( menuEntry, "Cannot find menu entry", - "fghCheckMenuStatus" ); - - menuEntry->IsActive = GL_TRUE; - menuEntry->Ordinal = menuID; - - /* - * If this is not the same as the last active menu entry, deactivate - * the previous entry. Specifically, if the previous active entry - * was a submenu then deactivate it. - */ - if( menu->ActiveEntry && ( menuEntry != menu->ActiveEntry ) ) - if( menu->ActiveEntry->SubMenu ) - fghDeactivateSubMenu( menu->ActiveEntry ); - - if( menuEntry != menu->ActiveEntry ) - { - menu->Window->State.Redisplay = GL_TRUE; - if( menu->ActiveEntry ) - menu->ActiveEntry->IsActive = GL_FALSE; - } - - menu->ActiveEntry = menuEntry; - menu->IsActive = GL_TRUE; /* XXX Do we need this? */ - - /* - * OKi, we have marked that entry as active, but it would be also - * nice to have its contents updated, in case it's a sub menu. - * Also, ignore the return value of the check function: - */ - if( menuEntry->SubMenu ) - { - if ( ! menuEntry->SubMenu->IsActive ) - { - int max_x, max_y; - SFG_Window *current_window = fgStructure.CurrentWindow; - - /* Set up the initial menu position now... */ - menuEntry->SubMenu->IsActive = GL_TRUE; - - /* Set up the initial submenu position now: */ - fghGetVMaxExtent(menu->ParentWindow, &max_x, &max_y); - menuEntry->SubMenu->X = menu->X + menu->Width; - menuEntry->SubMenu->Y = menu->Y + - menuEntry->Ordinal * FREEGLUT_MENU_HEIGHT; - - if( menuEntry->SubMenu->X + menuEntry->SubMenu->Width > max_x ) - menuEntry->SubMenu->X = menu->X - menuEntry->SubMenu->Width; - - if( menuEntry->SubMenu->Y + menuEntry->SubMenu->Height > max_y ) - { - menuEntry->SubMenu->Y -= ( menuEntry->SubMenu->Height - - FREEGLUT_MENU_HEIGHT - - 2 * FREEGLUT_MENU_BORDER ); - if( menuEntry->SubMenu->Y < 0 ) - menuEntry->SubMenu->Y = 0; - } - - fgSetWindow( menuEntry->SubMenu->Window ); - glutPositionWindow( menuEntry->SubMenu->X, - menuEntry->SubMenu->Y ); - glutReshapeWindow( menuEntry->SubMenu->Width, - menuEntry->SubMenu->Height ); - glutPopWindow( ); - glutShowWindow( ); - menuEntry->SubMenu->Window->ActiveMenu = menuEntry->SubMenu; - fgSetWindow( current_window ); - menuEntry->SubMenu->Window->State.MouseX = - x + menu->X - menuEntry->SubMenu->X; - menuEntry->SubMenu->Window->State.MouseY = - y + menu->Y - menuEntry->SubMenu->Y; - fghCheckMenuStatus( menuEntry->SubMenu ); - } - - /* Activate it because its parent entry is active */ - menuEntry->SubMenu->IsActive = GL_TRUE; /* XXX Do we need this? */ - } - - /* Report back that we have caught the menu cursor */ - return GL_TRUE; - } - - /* Looks like the menu cursor is somewhere else... */ - if( menu->ActiveEntry && menu->ActiveEntry->IsActive && - ( !menu->ActiveEntry->SubMenu || - !menu->ActiveEntry->SubMenu->IsActive ) ) - { - menu->Window->State.Redisplay = GL_TRUE; - menu->ActiveEntry->IsActive = GL_FALSE; - menu->ActiveEntry = NULL; - } - - return GL_FALSE; -} - -/* - * Displays a menu box and all of its submenus (if they are active) - */ -static void fghDisplayMenuBox( SFG_Menu* menu ) -{ - SFG_MenuEntry *menuEntry; - int i; - int border = FREEGLUT_MENU_BORDER; - - /* - * Have the menu box drawn first. The +- values are - * here just to make it more nice-looking... - */ - /* a non-black dark version of the below. */ - glColor4f( 1.0f, 1.0f, 1.0f, 1.0f ); - glBegin( GL_QUAD_STRIP ); - glVertex2i( menu->Width , 0 ); - glVertex2i( menu->Width - border, border); - glVertex2i( 0 , 0 ); - glVertex2i( border, border); - glVertex2i( 0 , menu->Height ); - glVertex2i( border, menu->Height - border); - glEnd( ); - - /* a non-black dark version of the below. */ - glColor4f( 0.5f, 0.5f, 0.5f, 1.0f ); - glBegin( GL_QUAD_STRIP ); - glVertex2i( 0 , menu->Height ); - glVertex2i( border, menu->Height - border); - glVertex2i( menu->Width , menu->Height ); - glVertex2i( menu->Width - border, menu->Height - border); - glVertex2i( menu->Width , 0 ); - glVertex2i( menu->Width - border, border); - glEnd( ); - - glColor4fv( menu_pen_back ); - glBegin( GL_QUADS ); - glVertex2i( border, border); - glVertex2i( menu->Width - border, border); - glVertex2i( menu->Width - border, menu->Height - border); - glVertex2i( border, menu->Height - border); - glEnd( ); - - /* Check if any of the submenus is currently active... */ - for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; - menuEntry; - menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next ) - { - /* Has the menu been marked as active, maybe? */ - if( menuEntry->IsActive ) - { - /* - * That's truly right, and we need to have it highlighted. - * There is an assumption that mouse cursor didn't move - * since the last check of menu activity state: - */ - int menuID = menuEntry->Ordinal; - - /* So have the highlight drawn... */ - glColor4fv( menu_pen_hback ); - glBegin( GL_QUADS ); - glVertex2i( border, - (menuID + 0)*FREEGLUT_MENU_HEIGHT + border ); - glVertex2i( menu->Width - border, - (menuID + 0)*FREEGLUT_MENU_HEIGHT + border ); - glVertex2i( menu->Width - border, - (menuID + 1)*FREEGLUT_MENU_HEIGHT + border ); - glVertex2i( border, - (menuID + 1)*FREEGLUT_MENU_HEIGHT + border ); - glEnd( ); - } - } - - /* Print the menu entries now... */ - - glColor4fv( menu_pen_fore ); - - for( menuEntry = (SFG_MenuEntry *)menu->Entries.First, i = 0; - menuEntry; - menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next, ++i ) - { - /* If the menu entry is active, set the color to white */ - if( menuEntry->IsActive ) - glColor4fv( menu_pen_hfore ); - - /* Move the raster into position... */ - /* Try to center the text - JCJ 31 July 2003*/ - glRasterPos2i( - 2 * border, - ( i + 1 )*FREEGLUT_MENU_HEIGHT - - ( int )( FREEGLUT_MENU_HEIGHT*0.3 - border ) - ); - - /* Have the label drawn, character after character: */ - glutBitmapString( FREEGLUT_MENU_FONT, - (unsigned char *)menuEntry->Text); - - /* If it's a submenu, draw a right arrow */ - if( menuEntry->SubMenu ) - { - int width = glutBitmapWidth( FREEGLUT_MENU_FONT, '_' ); - int x_base = menu->Width - 2 - width; - int y_base = i*FREEGLUT_MENU_HEIGHT + border; - glBegin( GL_TRIANGLES ); - glVertex2i( x_base, y_base + 2*border); - glVertex2i( menu->Width - 2, y_base + - ( FREEGLUT_MENU_HEIGHT + border) / 2 ); - glVertex2i( x_base, y_base + FREEGLUT_MENU_HEIGHT - border ); - glEnd( ); - } - - /* If the menu entry is active, reset the color */ - if( menuEntry->IsActive ) - glColor4fv( menu_pen_fore ); - } -} - -/* - * Private static function to set the parent window of a submenu and all - * of its submenus - */ -static void fghSetMenuParentWindow( SFG_Window *window, SFG_Menu *menu ) -{ - SFG_MenuEntry *menuEntry; - - menu->ParentWindow = window; - - for( menuEntry = ( SFG_MenuEntry * )menu->Entries.First; - menuEntry; - menuEntry = ( SFG_MenuEntry * )menuEntry->Node.Next ) - if( menuEntry->SubMenu ) - fghSetMenuParentWindow( window, menuEntry->SubMenu ); -} - -/* - * Function to check for menu entry selection on menu deactivation - */ -static void fghExecuteMenuCallback( SFG_Menu* menu ) -{ - SFG_MenuEntry *menuEntry; - - /* First of all check any of the active sub menus... */ - for( menuEntry = (SFG_MenuEntry *)menu->Entries.First; - menuEntry; - menuEntry = (SFG_MenuEntry *)menuEntry->Node.Next) - { - if( menuEntry->IsActive ) - { - if( menuEntry->SubMenu ) - fghExecuteMenuCallback( menuEntry->SubMenu ); - else - if( menu->Callback ) - { - SFG_Menu *save_menu = fgStructure.CurrentMenu; - fgStructure.CurrentMenu = menu; - menu->Callback( menuEntry->ID ); - fgStructure.CurrentMenu = save_menu; - } - - return; - } - } -} - - -/* - * Displays the currently active menu for the current window - */ -void fgDisplayMenu( void ) -{ - SFG_Window* window = fgStructure.CurrentWindow; - SFG_Menu* menu = NULL; - - FREEGLUT_INTERNAL_ERROR_EXIT ( fgStructure.CurrentWindow, "Displaying menu in nonexistent window", - "fgDisplayMenu" ); - - /* Check if there is an active menu attached to this window... */ - menu = window->ActiveMenu; - freeglut_return_if_fail( menu ); - - fgSetWindow( menu->Window ); - - glPushAttrib( GL_DEPTH_BUFFER_BIT | GL_TEXTURE_BIT | GL_LIGHTING_BIT | - GL_POLYGON_BIT ); - - glDisable( GL_DEPTH_TEST ); - glDisable( GL_TEXTURE_2D ); - glDisable( GL_LIGHTING ); - glDisable( GL_CULL_FACE ); - - glMatrixMode( GL_PROJECTION ); - glPushMatrix( ); - glLoadIdentity( ); - glOrtho( - 0, glutGet( GLUT_WINDOW_WIDTH ), - glutGet( GLUT_WINDOW_HEIGHT ), 0, - -1, 1 - ); - - glMatrixMode( GL_MODELVIEW ); - glPushMatrix( ); - glLoadIdentity( ); - - fghDisplayMenuBox( menu ); - - glPopAttrib( ); - - glMatrixMode( GL_PROJECTION ); - glPopMatrix( ); - glMatrixMode( GL_MODELVIEW ); - glPopMatrix( ); - - glutSwapBuffers( ); - - fgSetWindow ( window ); -} - -/* - * Activates a menu pointed by the function argument - */ -static void fghActivateMenu( SFG_Window* window, int button ) -{ - int max_x, max_y; - - /* We'll be referencing this menu a lot, so remember its address: */ - SFG_Menu* menu = window->Menu[ button ]; - SFG_Window* current_window = fgStructure.CurrentWindow; - - /* If the menu is already active in another window, deactivate it there */ - if ( menu->ParentWindow ) - menu->ParentWindow->ActiveMenu = NULL ; - - /* Mark the menu as active, so that it gets displayed: */ - window->ActiveMenu = menu; - menu->IsActive = GL_TRUE; - fghSetMenuParentWindow ( window, menu ); - fgState.ActiveMenus++; - - /* Set up the initial menu position now: */ - fghGetVMaxExtent(menu->ParentWindow, &max_x, &max_y); - fgSetWindow( window ); - menu->X = window->State.MouseX + glutGet( GLUT_WINDOW_X ); - menu->Y = window->State.MouseY + glutGet( GLUT_WINDOW_Y ); - - if( menu->X + menu->Width > max_x ) - menu->X -=menu->Width; - - if( menu->Y + menu->Height > max_y ) - { - menu->Y -=menu->Height; - if( menu->Y < 0 ) - menu->Y = 0; - } - - menu->Window->State.MouseX = - window->State.MouseX + glutGet( GLUT_WINDOW_X ) - menu->X; - menu->Window->State.MouseY = - window->State.MouseY + glutGet( GLUT_WINDOW_Y ) - menu->Y; - - fgSetWindow( menu->Window ); - glutPositionWindow( menu->X, menu->Y ); - glutReshapeWindow( menu->Width, menu->Height ); - glutPopWindow( ); - glutShowWindow( ); - menu->Window->ActiveMenu = menu; - fghCheckMenuStatus( menu ); - fgSetWindow( current_window ); -} - -/* - * Update Highlight states of the menu - * - * Current mouse position is in menu->Window->State.MouseX/Y. - */ -void fgUpdateMenuHighlight ( SFG_Menu *menu ) -{ - fghCheckMenuStatus( menu ); -} - -/* - * Check whether an active menu absorbs a mouse click - */ -GLboolean fgCheckActiveMenu ( SFG_Window *window, int button, GLboolean pressed, - int mouse_x, int mouse_y ) -{ - /* - * Near as I can tell, this is the menu behaviour: - * - Down-click the menu button, menu not active: activate - * the menu with its upper left-hand corner at the mouse - * location. - * - Down-click any button outside the menu, menu active: - * deactivate the menu - * - Down-click any button inside the menu, menu active: - * select the menu entry and deactivate the menu - * - Up-click the menu button, menu not active: nothing happens - * - Up-click the menu button outside the menu, menu active: - * nothing happens - * - Up-click the menu button inside the menu, menu active: - * select the menu entry and deactivate the menu - * Since menus can have submenus, we need to check this recursively. - */ - if( window->ActiveMenu ) - { - if( window == window->ActiveMenu->ParentWindow ) - { - window->ActiveMenu->Window->State.MouseX = - mouse_x - window->ActiveMenu->X; - window->ActiveMenu->Window->State.MouseY = - mouse_y - window->ActiveMenu->Y; - } - - /* In the menu, invoke the callback and deactivate the menu */ - if( fghCheckMenuStatus( window->ActiveMenu ) ) - { - /* - * Save the current window and menu and set the current - * window to the window whose menu this is - */ - SFG_Window *save_window = fgStructure.CurrentWindow; - SFG_Menu *save_menu = fgStructure.CurrentMenu; - SFG_Window *parent_window = window->ActiveMenu->ParentWindow; - fgSetWindow( parent_window ); - fgStructure.CurrentMenu = window->ActiveMenu; - - /* Execute the menu callback */ - fghExecuteMenuCallback( window->ActiveMenu ); - fgDeactivateMenu( parent_window ); - - /* Restore the current window and menu */ - fgSetWindow( save_window ); - fgStructure.CurrentMenu = save_menu; - } - else if( pressed ) - /* - * Outside the menu, deactivate if it's a downclick - * - * XXX This isn't enough. A downclick outside of - * XXX the interior of our freeglut windows should also - * XXX deactivate the menu. This is more complicated. - */ - fgDeactivateMenu( window->ActiveMenu->ParentWindow ); - - /* - * XXX Why does an active menu require a redisplay at - * XXX this point? If this can come out cleanly, then - * XXX it probably should do so; if not, a comment should - * XXX explain it. - */ - if( ! window->IsMenu ) - window->State.Redisplay = GL_TRUE; - - return GL_TRUE; - } - - /* No active menu, let's check whether we need to activate one. */ - if( ( 0 <= button ) && - ( FREEGLUT_MAX_MENUS > button ) && - ( window->Menu[ button ] ) && - pressed ) - { - /* XXX Posting a requisite Redisplay seems bogus. */ - window->State.Redisplay = GL_TRUE; - fghActivateMenu( window, button ); - return GL_TRUE; - } - - return GL_FALSE; -} - -/* - * Deactivates a menu pointed by the function argument. - */ -void fgDeactivateMenu( SFG_Window *window ) -{ - SFG_Window *parent_window = NULL; - - /* Check if there is an active menu attached to this window... */ - SFG_Menu* menu = window->ActiveMenu; - SFG_MenuEntry *menuEntry; - - /* Did we find an active window? */ - freeglut_return_if_fail( menu ); - - parent_window = menu->ParentWindow; - - /* Hide the present menu's window */ - fgSetWindow( menu->Window ); - glutHideWindow( ); - - /* Forget about having that menu active anymore, now: */ - menu->Window->ActiveMenu = NULL; - menu->ParentWindow->ActiveMenu = NULL; - fghSetMenuParentWindow ( NULL, menu ); - menu->IsActive = GL_FALSE; - menu->ActiveEntry = NULL; - - fgState.ActiveMenus--; - - /* Hide all submenu windows, and the root menu's window. */ - for ( menuEntry = ( SFG_MenuEntry * )menu->Entries.First; - menuEntry; - menuEntry = ( SFG_MenuEntry * )menuEntry->Node.Next ) - { - menuEntry->IsActive = GL_FALSE; - - /* Is that an active submenu by any case? */ - if( menuEntry->SubMenu ) - fghDeactivateSubMenu( menuEntry ); - } - - fgSetWindow ( parent_window ) ; -} - -/* - * Recalculates current menu's box size - */ -void fghCalculateMenuBoxSize( void ) -{ - SFG_MenuEntry* menuEntry; - int width = 0, height = 0; - - /* Make sure there is a current menu set */ - freeglut_return_if_fail( fgStructure.CurrentMenu ); - - /* The menu's box size depends on the menu entries: */ - for( menuEntry = ( SFG_MenuEntry * )fgStructure.CurrentMenu->Entries.First; - menuEntry; - menuEntry = ( SFG_MenuEntry * )menuEntry->Node.Next ) - { - /* Update the menu entry's width value */ - menuEntry->Width = glutBitmapLength( - FREEGLUT_MENU_FONT, - (unsigned char *)menuEntry->Text - ); - - /* - * If the entry is a submenu, then it needs to be wider to - * accomodate the arrow. JCJ 31 July 2003 - */ - if (menuEntry->SubMenu ) - menuEntry->Width += glutBitmapLength( - FREEGLUT_MENU_FONT, - (unsigned char *)"_" - ); - - /* Check if it's the biggest we've found */ - if( menuEntry->Width > width ) - width = menuEntry->Width; - - height += FREEGLUT_MENU_HEIGHT; - } - - /* Store the menu's box size now: */ - fgStructure.CurrentMenu->Height = height + 2 * FREEGLUT_MENU_BORDER; - fgStructure.CurrentMenu->Width = width + 4 * FREEGLUT_MENU_BORDER; -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Creates a new menu object, adding it to the freeglut structure - */ -int FGAPIENTRY glutCreateMenu( void(* callback)( int ) ) -{ - /* The menu object creation code resides in freeglut_structure.c */ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateMenu" ); - return fgCreateMenu( callback )->ID; -} - -/* - * Destroys a menu object, removing all references to it - */ -void FGAPIENTRY glutDestroyMenu( int menuID ) -{ - SFG_Menu* menu; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDestroyMenu" ); - menu = fgMenuByID( menuID ); - - freeglut_return_if_fail( menu ); - - /* The menu object destruction code resides in freeglut_structure.c */ - fgDestroyMenu( menu ); -} - -/* - * Returns the ID number of the currently active menu - */ -int FGAPIENTRY glutGetMenu( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetMenu" ); - - if( fgStructure.CurrentMenu ) - return fgStructure.CurrentMenu->ID; - - return 0; -} - -/* - * Sets the current menu given its menu ID - */ -void FGAPIENTRY glutSetMenu( int menuID ) -{ - SFG_Menu* menu; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetMenu" ); - menu = fgMenuByID( menuID ); - - freeglut_return_if_fail( menu ); - - fgStructure.CurrentMenu = menu; -} - -/* - * Adds a menu entry to the bottom of the current menu - */ -void FGAPIENTRY glutAddMenuEntry( const char* label, int value ) -{ - SFG_MenuEntry* menuEntry; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutAddMenuEntry" ); - menuEntry = (SFG_MenuEntry *)calloc( sizeof(SFG_MenuEntry), 1 ); - freeglut_return_if_fail( fgStructure.CurrentMenu ); - - menuEntry->Text = strdup( label ); - menuEntry->ID = value; - - /* Have the new menu entry attached to the current menu */ - fgListAppend( &fgStructure.CurrentMenu->Entries, &menuEntry->Node ); - - fghCalculateMenuBoxSize( ); -} - -/* - * Add a sub menu to the bottom of the current menu - */ -void FGAPIENTRY glutAddSubMenu( const char *label, int subMenuID ) -{ - SFG_MenuEntry *menuEntry; - SFG_Menu *subMenu; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutAddSubMenu" ); - menuEntry = ( SFG_MenuEntry * )calloc( sizeof( SFG_MenuEntry ), 1 ); - subMenu = fgMenuByID( subMenuID ); - - freeglut_return_if_fail( fgStructure.CurrentMenu ); - freeglut_return_if_fail( subMenu ); - - menuEntry->Text = strdup( label ); - menuEntry->SubMenu = subMenu; - menuEntry->ID = -1; - - fgListAppend( &fgStructure.CurrentMenu->Entries, &menuEntry->Node ); - fghCalculateMenuBoxSize( ); -} - -/* - * Changes the specified menu item in the current menu into a menu entry - */ -void FGAPIENTRY glutChangeToMenuEntry( int item, const char* label, int value ) -{ - SFG_MenuEntry* menuEntry = NULL; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutChangeToMenuEntry" ); - freeglut_return_if_fail( fgStructure.CurrentMenu ); - - /* Get n-th menu entry in the current menu, starting from one: */ - menuEntry = fghFindMenuEntry( fgStructure.CurrentMenu, item ); - - freeglut_return_if_fail( menuEntry ); - - /* We want it to become a normal menu entry, so: */ - if( menuEntry->Text ) - free( menuEntry->Text ); - - menuEntry->Text = strdup( label ); - menuEntry->ID = value; - menuEntry->SubMenu = NULL; - fghCalculateMenuBoxSize( ); -} - -/* - * Changes the specified menu item in the current menu into a sub-menu trigger. - */ -void FGAPIENTRY glutChangeToSubMenu( int item, const char* label, - int subMenuID ) -{ - SFG_Menu* subMenu; - SFG_MenuEntry* menuEntry; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutChangeToSubMenu" ); - subMenu = fgMenuByID( subMenuID ); - menuEntry = NULL; - - freeglut_return_if_fail( fgStructure.CurrentMenu ); - freeglut_return_if_fail( subMenu ); - - /* Get n-th menu entry in the current menu, starting from one: */ - menuEntry = fghFindMenuEntry( fgStructure.CurrentMenu, item ); - - freeglut_return_if_fail( menuEntry ); - - /* We want it to become a sub menu entry, so: */ - if( menuEntry->Text ) - free( menuEntry->Text ); - - menuEntry->Text = strdup( label ); - menuEntry->SubMenu = subMenu; - menuEntry->ID = -1; - fghCalculateMenuBoxSize( ); -} - -/* - * Removes the specified menu item from the current menu - */ -void FGAPIENTRY glutRemoveMenuItem( int item ) -{ - SFG_MenuEntry* menuEntry; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutRemoveMenuItem" ); - freeglut_return_if_fail( fgStructure.CurrentMenu ); - - /* Get n-th menu entry in the current menu, starting from one: */ - menuEntry = fghFindMenuEntry( fgStructure.CurrentMenu, item ); - - freeglut_return_if_fail( menuEntry ); - - fgListRemove( &fgStructure.CurrentMenu->Entries, &menuEntry->Node ); - if ( menuEntry->Text ) - free( menuEntry->Text ); - - free( menuEntry ); - fghCalculateMenuBoxSize( ); -} - -/* - * Attaches a menu to the current window - */ -void FGAPIENTRY glutAttachMenu( int button ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutAttachMenu" ); - - freeglut_return_if_fail( fgStructure.CurrentWindow ); - freeglut_return_if_fail( fgStructure.CurrentMenu ); - - freeglut_return_if_fail( button >= 0 ); - freeglut_return_if_fail( button < FREEGLUT_MAX_MENUS ); - - fgStructure.CurrentWindow->Menu[ button ] = fgStructure.CurrentMenu; -} - -/* - * Detaches a menu from the current window - */ -void FGAPIENTRY glutDetachMenu( int button ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDetachMenu" ); - - freeglut_return_if_fail( fgStructure.CurrentWindow ); - freeglut_return_if_fail( fgStructure.CurrentMenu ); - - freeglut_return_if_fail( button >= 0 ); - freeglut_return_if_fail( button < FREEGLUT_MAX_MENUS ); - - fgStructure.CurrentWindow->Menu[ button ] = NULL; -} - -/* - * A.Donev: Set and retrieve the menu's user data - */ -void* FGAPIENTRY glutGetMenuData( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetMenuData" ); - return fgStructure.CurrentMenu->UserData; -} - -void FGAPIENTRY glutSetMenuData(void* data) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetMenuData" ); - fgStructure.CurrentMenu->UserData=data; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_misc.c b/internal/c/parts/core/android_core/src/fg_misc.c deleted file mode 100644 index 1c33a7ed7..000000000 --- a/internal/c/parts/core/android_core/src/fg_misc.c +++ /dev/null @@ -1,203 +0,0 @@ -/* - * freeglut_misc.c - * - * Functions that didn't fit anywhere else... - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 9 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * glutSetColor() -- - * glutGetColor() -- - * glutCopyColormap() -- - * glutSetKeyRepeat() -- this is evil and should be removed from API - */ - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * This functions checks if an OpenGL extension is supported or not - * - * XXX Wouldn't this be simpler and clearer if we used strtok()? - */ -int FGAPIENTRY glutExtensionSupported( const char* extension ) -{ - const char *extensions, *start; - const size_t len = strlen( extension ); - - /* Make sure there is a current window, and thus a current context available */ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutExtensionSupported" ); - freeglut_return_val_if_fail( fgStructure.CurrentWindow != NULL, 0 ); - - if (strchr(extension, ' ')) - return 0; - start = extensions = (const char *) glGetString(GL_EXTENSIONS); - - /* XXX consider printing a warning to stderr that there's no current - * rendering context. - */ - freeglut_return_val_if_fail( extensions != NULL, 0 ); - - while (1) { - const char *p = strstr(extensions, extension); - if (!p) - return 0; /* not found */ - /* check that the match isn't a super string */ - if ((p == start || p[-1] == ' ') && (p[len] == ' ' || p[len] == 0)) - return 1; - /* skip the false match and continue */ - extensions = p + len; - } - - return 0 ; -} - -#ifndef GL_INVALID_FRAMEBUFFER_OPERATION -#ifdef GL_INVALID_FRAMEBUFFER_OPERATION_EXT -#define GL_INVALID_FRAMEBUFFER_OPERATION GL_INVALID_FRAMEBUFFER_OPERATION_EXT -#else -#define GL_INVALID_FRAMEBUFFER_OPERATION 0x0506 -#endif -#endif - -#ifndef GL_TABLE_TOO_LARGE -#ifdef GL_TABLE_TOO_LARGE_EXT -#define GL_TABLE_TOO_LARGE GL_TABLE_TOO_LARGE_EXT -#else -#define GL_TABLE_TOO_LARGE 0x8031 -#endif -#endif - -#ifndef GL_TEXTURE_TOO_LARGE -#ifdef GL_TEXTURE_TOO_LARGE_EXT -#define GL_TEXTURE_TOO_LARGE GL_TEXTURE_TOO_LARGE_EXT -#else -#define GL_TEXTURE_TOO_LARGE 0x8065 -#endif -#endif - -/* - * A cut-down local version of gluErrorString to avoid depending on GLU. - */ -static const char* fghErrorString( GLenum error ) -{ - switch ( error ) { - case GL_INVALID_ENUM: return "invalid enumerant"; - case GL_INVALID_VALUE: return "invalid value"; - case GL_INVALID_OPERATION: return "invalid operation"; -#ifndef GL_ES_VERSION_2_0 - case GL_STACK_OVERFLOW: return "stack overflow"; - case GL_STACK_UNDERFLOW: return "stack underflow"; -#endif - case GL_OUT_OF_MEMORY: return "out of memory"; - case GL_TABLE_TOO_LARGE: return "table too large"; - case GL_INVALID_FRAMEBUFFER_OPERATION: return "invalid framebuffer operation"; - case GL_TEXTURE_TOO_LARGE: return "texture too large"; - default: return "unknown GL error"; - } -} - -/* - * This function reports all the OpenGL errors that happened till now - */ -void FGAPIENTRY glutReportErrors( void ) -{ - GLenum error; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReportErrors" ); - while( ( error = glGetError() ) != GL_NO_ERROR ) - fgWarning( "GL error: %s", fghErrorString( error ) ); -} - -/* - * Control the auto-repeat of keystrokes to the current window - */ -void FGAPIENTRY glutIgnoreKeyRepeat( int ignore ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIgnoreKeyRepeat" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutIgnoreKeyRepeat" ); - - fgStructure.CurrentWindow->State.IgnoreKeyRepeat = ignore ? GL_TRUE : GL_FALSE; -} - -/* - * Set global auto-repeat of keystrokes - * - * RepeatMode should be either: - * GLUT_KEY_REPEAT_OFF - * GLUT_KEY_REPEAT_ON - * GLUT_KEY_REPEAT_DEFAULT - */ -void FGAPIENTRY glutSetKeyRepeat( int repeatMode ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetKeyRepeat" ); - - switch( repeatMode ) - { - case GLUT_KEY_REPEAT_OFF: - case GLUT_KEY_REPEAT_ON: - fgState.KeyRepeat = repeatMode; - break; - - case GLUT_KEY_REPEAT_DEFAULT: - fgState.KeyRepeat = GLUT_KEY_REPEAT_ON; - break; - - default: - fgError ("Invalid glutSetKeyRepeat mode: %d", repeatMode); - break; - } -} - -/* - * - */ -void FGAPIENTRY glutSetColor( int nColor, GLfloat red, GLfloat green, GLfloat blue ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetColor" ); - /* We really need to do something here. */ -} - -/* - * - */ -GLfloat FGAPIENTRY glutGetColor( int color, int component ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetColor" ); - /* We really need to do something here. */ - return( 0.0f ); -} - -/* - * - */ -void FGAPIENTRY glutCopyColormap( int window ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCopyColormap" ); - /* We really need to do something here. */ -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_overlay.c b/internal/c/parts/core/android_core/src/fg_overlay.c deleted file mode 100644 index bcc245cf3..000000000 --- a/internal/c/parts/core/android_core/src/fg_overlay.c +++ /dev/null @@ -1,45 +0,0 @@ -/* - * freeglut_overlay.c - * - * Overlay management functions (as defined by GLUT API) - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * NOTE: functions declared in this file probably will not be implemented. - */ - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -void FGAPIENTRY glutEstablishOverlay( void ) { /* Not implemented */ } -void FGAPIENTRY glutRemoveOverlay( void ) { /* Not implemented */ } -void FGAPIENTRY glutUseLayer( GLenum layer ) { /* Not implemented */ } -void FGAPIENTRY glutPostOverlayRedisplay( void ) { /* Not implemented */ } -void FGAPIENTRY glutPostWindowOverlayRedisplay( int ID ) { /* Not implemented */ } -void FGAPIENTRY glutShowOverlay( void ) { /* Not implemented */ } -void FGAPIENTRY glutHideOverlay( void ) { /* Not implemented */ } - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_spaceball.c b/internal/c/parts/core/android_core/src/fg_spaceball.c deleted file mode 100644 index 1c9fc3a5f..000000000 --- a/internal/c/parts/core/android_core/src/fg_spaceball.c +++ /dev/null @@ -1,76 +0,0 @@ -/* Spaceball support for Linux. - * Written by John Tsiombikas - * - * This code supports 3Dconnexion's 6-dof space-whatever devices. - * It can communicate with either the proprietary 3Dconnexion daemon (3dxsrv) - * free spacenavd (http://spacenav.sourceforge.net), through the "standard" - * magellan X-based protocol. - */ - -#include -#include "fg_internal.h" - -/* -- PRIVATE FUNCTIONS --------------------------------------------------- */ - -extern void fgPlatformInitializeSpaceball(void); -extern void fgPlatformSpaceballClose(void); -extern int fgPlatformHasSpaceball(void); -extern int fgPlatformSpaceballNumButtons(void); -extern void fgPlatformSpaceballSetWindow(SFG_Window *window); - - -int sball_initialized = 0; - -void fgInitialiseSpaceball(void) -{ - if(sball_initialized != 0) { - return; - } - - fgPlatformInitializeSpaceball(); - - sball_initialized = 1; -} - -void fgSpaceballClose(void) -{ - fgPlatformSpaceballClose();} - -int fgHasSpaceball(void) -{ - if(sball_initialized == 0) { - fgInitialiseSpaceball(); - if(sball_initialized != 1) { - fgWarning("fgInitialiseSpaceball failed\n"); - return 0; - } - } - - return fgPlatformHasSpaceball(); -} - -int fgSpaceballNumButtons(void) -{ - if(sball_initialized == 0) { - fgInitialiseSpaceball(); - if(sball_initialized != 1) { - fgWarning("fgInitialiseSpaceball failed\n"); - return 0; - } - } - - return fgPlatformSpaceballNumButtons(); -} - -void fgSpaceballSetWindow(SFG_Window *window) -{ - if(sball_initialized == 0) { - fgInitialiseSpaceball(); - if(sball_initialized != 1) { - return; - } - } - - fgPlatformSpaceballSetWindow(window); -} - diff --git a/internal/c/parts/core/android_core/src/fg_state.c b/internal/c/parts/core/android_core/src/fg_state.c deleted file mode 100644 index 2a4862f2e..000000000 --- a/internal/c/parts/core/android_core/src/fg_state.c +++ /dev/null @@ -1,346 +0,0 @@ -/* - * freeglut_state.c - * - * Freeglut state query methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * glutGet() -- X11 tests passed, but check if all enums - * handled (what about Win32?) - * glutDeviceGet() -- X11 tests passed, but check if all enums - * handled (what about Win32?) - * glutGetModifiers() -- OK, but could also remove the limitation - * glutLayerGet() -- what about GLUT_NORMAL_DAMAGED? - * - * The fail-on-call policy will help adding the most needed things imho. - */ - -extern int fgPlatformGlutGet ( GLenum eWhat ); -extern int fgPlatformGlutDeviceGet ( GLenum eWhat ); -extern int *fgPlatformGlutGetModeValues(GLenum eWhat, int *size); - - -/* -- LOCAL DEFINITIONS ---------------------------------------------------- */ - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * General settings assignment method - */ -void FGAPIENTRY glutSetOption( GLenum eWhat, int value ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetOption" ); - - /* - * XXX In chronological code add order. (WHY in that order?) - */ - switch( eWhat ) - { - case GLUT_INIT_WINDOW_X: - fgState.Position.X = (GLint)value; - break; - - case GLUT_INIT_WINDOW_Y: - fgState.Position.Y = (GLint)value; - break; - - case GLUT_INIT_WINDOW_WIDTH: - fgState.Size.X = (GLint)value; - break; - - case GLUT_INIT_WINDOW_HEIGHT: - fgState.Size.Y = (GLint)value; - break; - - case GLUT_INIT_DISPLAY_MODE: - fgState.DisplayMode = (unsigned int)value; - break; - - case GLUT_ACTION_ON_WINDOW_CLOSE: - fgState.ActionOnWindowClose = value; - break; - - case GLUT_RENDERING_CONTEXT: - fgState.UseCurrentContext = - ( value == GLUT_USE_CURRENT_CONTEXT ) ? GL_TRUE : GL_FALSE; - break; - - case GLUT_DIRECT_RENDERING: - fgState.DirectContext = value; - break; - - case GLUT_WINDOW_CURSOR: - if( fgStructure.CurrentWindow != NULL ) - fgStructure.CurrentWindow->State.Cursor = value; - break; - - case GLUT_AUX: - fgState.AuxiliaryBufferNumber = value; - break; - - case GLUT_MULTISAMPLE: - fgState.SampleNumber = value; - break; - - default: - fgWarning( "glutSetOption(): missing enum handle %d", eWhat ); - break; - } -} - -/* - * General settings query method - */ -int FGAPIENTRY glutGet( GLenum eWhat ) -{ - switch (eWhat) - { - case GLUT_INIT_STATE: - return fgState.Initialised; - - case GLUT_ELAPSED_TIME: - return (int) fgElapsedTime(); - } - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGet" ); - - /* XXX In chronological code add order. (WHY in that order?) */ - switch( eWhat ) - { - /* Following values are stored in fgState and fgDisplay global structures */ - case GLUT_SCREEN_WIDTH: return fgDisplay.ScreenWidth ; - case GLUT_SCREEN_HEIGHT: return fgDisplay.ScreenHeight ; - case GLUT_SCREEN_WIDTH_MM: return fgDisplay.ScreenWidthMM ; - case GLUT_SCREEN_HEIGHT_MM: return fgDisplay.ScreenHeightMM; - case GLUT_INIT_WINDOW_X: return fgState.Position.Use ? - fgState.Position.X : -1 ; - case GLUT_INIT_WINDOW_Y: return fgState.Position.Use ? - fgState.Position.Y : -1 ; - case GLUT_INIT_WINDOW_WIDTH: return fgState.Size.Use ? - fgState.Size.X : -1 ; - case GLUT_INIT_WINDOW_HEIGHT: return fgState.Size.Use ? - fgState.Size.Y : -1 ; - case GLUT_INIT_DISPLAY_MODE: return fgState.DisplayMode ; - case GLUT_INIT_MAJOR_VERSION: return fgState.MajorVersion ; - case GLUT_INIT_MINOR_VERSION: return fgState.MinorVersion ; - case GLUT_INIT_FLAGS: return fgState.ContextFlags ; - case GLUT_INIT_PROFILE: return fgState.ContextProfile ; - - /* The window structure queries */ - case GLUT_WINDOW_PARENT: - if( fgStructure.CurrentWindow == NULL ) return 0; - if( fgStructure.CurrentWindow->Parent == NULL ) return 0; - return fgStructure.CurrentWindow->Parent->ID; - - case GLUT_WINDOW_NUM_CHILDREN: - if( fgStructure.CurrentWindow == NULL ) - return 0; - return fgListLength( &fgStructure.CurrentWindow->Children ); - - case GLUT_WINDOW_CURSOR: - if( fgStructure.CurrentWindow == NULL ) - return 0; - return fgStructure.CurrentWindow->State.Cursor; - - case GLUT_MENU_NUM_ITEMS: - if( fgStructure.CurrentMenu == NULL ) - return 0; - return fgListLength( &fgStructure.CurrentMenu->Entries ); - - case GLUT_ACTION_ON_WINDOW_CLOSE: - return fgState.ActionOnWindowClose; - - case GLUT_VERSION : - return VERSION_MAJOR * 10000 + VERSION_MINOR * 100 + VERSION_PATCH; - - case GLUT_RENDERING_CONTEXT: - return fgState.UseCurrentContext ? GLUT_USE_CURRENT_CONTEXT - : GLUT_CREATE_NEW_CONTEXT; - - case GLUT_DIRECT_RENDERING: - return fgState.DirectContext; - - case GLUT_FULL_SCREEN: - return fgStructure.CurrentWindow->State.IsFullscreen; - - case GLUT_AUX: - return fgState.AuxiliaryBufferNumber; - - case GLUT_MULTISAMPLE: - return fgState.SampleNumber; - - default: - return fgPlatformGlutGet ( eWhat ); - break; - } - return -1; -} - -/* - * Returns various device information. - */ -int FGAPIENTRY glutDeviceGet( GLenum eWhat ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDeviceGet" ); - - /* XXX WARNING: we are mostly lying in this function. */ - switch( eWhat ) - { - case GLUT_HAS_JOYSTICK: - return fgJoystickDetect (); - - case GLUT_OWNS_JOYSTICK: - return fgState.JoysticksInitialised; - - case GLUT_JOYSTICK_POLL_RATE: - return fgStructure.CurrentWindow ? fgStructure.CurrentWindow->State.JoystickPollRate : 0; - - /* XXX The following two are only for Joystick 0 but this is an improvement */ - case GLUT_JOYSTICK_BUTTONS: - return glutJoystickGetNumButtons ( 0 ); - - case GLUT_JOYSTICK_AXES: - return glutJoystickGetNumAxes ( 0 ); - - case GLUT_HAS_DIAL_AND_BUTTON_BOX: - return fgInputDeviceDetect (); - - case GLUT_NUM_DIALS: - if ( fgState.InputDevsInitialised ) return 8; - return 0; - - case GLUT_NUM_BUTTON_BOX_BUTTONS: - return 0; - - case GLUT_HAS_SPACEBALL: - return fgHasSpaceball(); - - case GLUT_HAS_TABLET: - return 0; - - case GLUT_NUM_SPACEBALL_BUTTONS: - return fgSpaceballNumButtons(); - - case GLUT_NUM_TABLET_BUTTONS: - return 0; - - case GLUT_DEVICE_IGNORE_KEY_REPEAT: - return fgStructure.CurrentWindow ? fgStructure.CurrentWindow->State.IgnoreKeyRepeat : 0; - - case GLUT_DEVICE_KEY_REPEAT: - return fgState.KeyRepeat; - - default: - return fgPlatformGlutDeviceGet ( eWhat ); - } - - /* And now -- the failure. */ - return -1; -} - -/* - * This should return the current state of ALT, SHIFT and CTRL keys. - */ -int FGAPIENTRY glutGetModifiers( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetModifiers" ); - if( fgState.Modifiers == INVALID_MODIFIERS ) - { - fgWarning( "glutGetModifiers() called outside an input callback" ); - return 0; - } - - return fgState.Modifiers; -} - -/* - * Return the state of the GLUT API overlay subsystem. A misery ;-) - */ -int FGAPIENTRY glutLayerGet( GLenum eWhat ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLayerGet" ); - - /* - * This is easy as layers are not implemented and - * overlay support is not planned. E.g. on Windows, - * overlay requests in PFDs are ignored - * (see iLayerType at http://msdn.microsoft.com/en-us/library/dd368826(v=vs.85).aspx) - */ - switch( eWhat ) - { - - case GLUT_OVERLAY_POSSIBLE: - return 0 ; - - case GLUT_LAYER_IN_USE: - return GLUT_NORMAL; - - case GLUT_HAS_OVERLAY: - return 0; - - case GLUT_TRANSPARENT_INDEX: - /* - * Return just anything, which is always defined as zero - * - * XXX HUH? - */ - return 0; - - case GLUT_NORMAL_DAMAGED: - /* XXX Actually I do not know. Maybe. */ - return 0; - - case GLUT_OVERLAY_DAMAGED: - return -1; - - default: - fgWarning( "glutLayerGet(): missing enum handle %d", eWhat ); - break; - } - - /* And fail. That's good. Programs do love failing. */ - return -1; -} - -int * FGAPIENTRY glutGetModeValues(GLenum eWhat, int *size) -{ - int *array; - - FREEGLUT_EXIT_IF_NOT_INITIALISED("glutGetModeValues"); - - *size = 0; - array = fgPlatformGlutGetModeValues ( eWhat, size ); - - return array; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_stroke_mono_roman.c b/internal/c/parts/core/android_core/src/fg_stroke_mono_roman.c deleted file mode 100644 index d1e2c412c..000000000 --- a/internal/c/parts/core/android_core/src/fg_stroke_mono_roman.c +++ /dev/null @@ -1,2849 +0,0 @@ -/* - * freeglut_stroke_mono_roman.c - * - * freeglut Monospace Roman stroke font definition - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - - -/* This file has been automatically generated by the genstroke utility. */ - -#include -#include "fg_internal.h" - -/* char: 0x20 */ - -static const SFG_StrokeStrip ch32st[] = -{ - { 0, NULL } -}; - -static const SFG_StrokeChar ch32 = {104.762f,0,ch32st}; - -/* char: 0x21 */ - -static const SFG_StrokeVertex ch33st0[] = -{ - {52.381f,100.0f}, - {52.381f,33.3333f} -}; - -static const SFG_StrokeVertex ch33st1[] = -{ - {52.381f,9.5238f}, - {47.6191f,4.7619f}, - {52.381f,0.0f}, - {57.1429f,4.7619f}, - {52.381f,9.5238f} -}; - -static const SFG_StrokeStrip ch33st[] = -{ - {2,ch33st0}, - {5,ch33st1} -}; - -static const SFG_StrokeChar ch33 = {104.762f,2,ch33st}; - -/* char: 0x22 */ - -static const SFG_StrokeVertex ch34st0[] = -{ - {33.3334f,100.0f}, - {33.3334f,66.6667f} -}; - -static const SFG_StrokeVertex ch34st1[] = -{ - {71.4286f,100.0f}, - {71.4286f,66.6667f} -}; - -static const SFG_StrokeStrip ch34st[] = -{ - {2,ch34st0}, - {2,ch34st1} -}; - -static const SFG_StrokeChar ch34 = {104.762f,2,ch34st}; - -/* char: 0x23 */ - -static const SFG_StrokeVertex ch35st0[] = -{ - {54.7619f,119.048f}, - {21.4286f,-33.3333f} -}; - -static const SFG_StrokeVertex ch35st1[] = -{ - {83.3334f,119.048f}, - {50.0f,-33.3333f} -}; - -static const SFG_StrokeVertex ch35st2[] = -{ - {21.4286f,57.1429f}, - {88.0952f,57.1429f} -}; - -static const SFG_StrokeVertex ch35st3[] = -{ - {16.6667f,28.5714f}, - {83.3334f,28.5714f} -}; - -static const SFG_StrokeStrip ch35st[] = -{ - {2,ch35st0}, - {2,ch35st1}, - {2,ch35st2}, - {2,ch35st3} -}; - -static const SFG_StrokeChar ch35 = {104.762f,4,ch35st}; - -/* char: 0x24 */ - -static const SFG_StrokeVertex ch36st0[] = -{ - {42.8571f,119.048f}, - {42.8571f,-19.0476f} -}; - -static const SFG_StrokeVertex ch36st1[] = -{ - {61.9047f,119.048f}, - {61.9047f,-19.0476f} -}; - -static const SFG_StrokeVertex ch36st2[] = -{ - {85.7143f,85.7143f}, - {76.1905f,95.2381f}, - {61.9047f,100.0f}, - {42.8571f,100.0f}, - {28.5714f,95.2381f}, - {19.0476f,85.7143f}, - {19.0476f,76.1905f}, - {23.8095f,66.6667f}, - {28.5714f,61.9048f}, - {38.0952f,57.1429f}, - {66.6666f,47.619f}, - {76.1905f,42.8571f}, - {80.9524f,38.0952f}, - {85.7143f,28.5714f}, - {85.7143f,14.2857f}, - {76.1905f,4.7619f}, - {61.9047f,0.0f}, - {42.8571f,0.0f}, - {28.5714f,4.7619f}, - {19.0476f,14.2857f} -}; - -static const SFG_StrokeStrip ch36st[] = -{ - {2,ch36st0}, - {2,ch36st1}, - {20,ch36st2} -}; - -static const SFG_StrokeChar ch36 = {104.762f,3,ch36st}; - -/* char: 0x25 */ - -static const SFG_StrokeVertex ch37st0[] = -{ - {95.2381f,100.0f}, - {9.5238f,0.0f} -}; - -static const SFG_StrokeVertex ch37st1[] = -{ - {33.3333f,100.0f}, - {42.8571f,90.4762f}, - {42.8571f,80.9524f}, - {38.0952f,71.4286f}, - {28.5714f,66.6667f}, - {19.0476f,66.6667f}, - {9.5238f,76.1905f}, - {9.5238f,85.7143f}, - {14.2857f,95.2381f}, - {23.8095f,100.0f}, - {33.3333f,100.0f}, - {42.8571f,95.2381f}, - {57.1428f,90.4762f}, - {71.4286f,90.4762f}, - {85.7143f,95.2381f}, - {95.2381f,100.0f} -}; - -static const SFG_StrokeVertex ch37st2[] = -{ - {76.1905f,33.3333f}, - {66.6667f,28.5714f}, - {61.9048f,19.0476f}, - {61.9048f,9.5238f}, - {71.4286f,0.0f}, - {80.9524f,0.0f}, - {90.4762f,4.7619f}, - {95.2381f,14.2857f}, - {95.2381f,23.8095f}, - {85.7143f,33.3333f}, - {76.1905f,33.3333f} -}; - -static const SFG_StrokeStrip ch37st[] = -{ - {2,ch37st0}, - {16,ch37st1}, - {11,ch37st2} -}; - -static const SFG_StrokeChar ch37 = {104.762f,3,ch37st}; - -/* char: 0x26 */ - -static const SFG_StrokeVertex ch38st0[] = -{ - {100.0f,57.1429f}, - {100.0f,61.9048f}, - {95.2381f,66.6667f}, - {90.4762f,66.6667f}, - {85.7143f,61.9048f}, - {80.9524f,52.381f}, - {71.4286f,28.5714f}, - {61.9048f,14.2857f}, - {52.3809f,4.7619f}, - {42.8571f,0.0f}, - {23.8095f,0.0f}, - {14.2857f,4.7619f}, - {9.5238f,9.5238f}, - {4.7619f,19.0476f}, - {4.7619f,28.5714f}, - {9.5238f,38.0952f}, - {14.2857f,42.8571f}, - {47.619f,61.9048f}, - {52.3809f,66.6667f}, - {57.1429f,76.1905f}, - {57.1429f,85.7143f}, - {52.3809f,95.2381f}, - {42.8571f,100.0f}, - {33.3333f,95.2381f}, - {28.5714f,85.7143f}, - {28.5714f,76.1905f}, - {33.3333f,61.9048f}, - {42.8571f,47.619f}, - {66.6667f,14.2857f}, - {76.1905f,4.7619f}, - {85.7143f,0.0f}, - {95.2381f,0.0f}, - {100.0f,4.7619f}, - {100.0f,9.5238f} -}; - -static const SFG_StrokeStrip ch38st[] = -{ - {34,ch38st0} -}; - -static const SFG_StrokeChar ch38 = {104.762f,1,ch38st}; - -/* char: 0x27 */ - -static const SFG_StrokeVertex ch39st0[] = -{ - {52.381f,100.0f}, - {52.381f,66.6667f} -}; - -static const SFG_StrokeStrip ch39st[] = -{ - {2,ch39st0} -}; - -static const SFG_StrokeChar ch39 = {104.762f,1,ch39st}; - -/* char: 0x28 */ - -static const SFG_StrokeVertex ch40st0[] = -{ - {69.0476f,119.048f}, - {59.5238f,109.524f}, - {50.0f,95.2381f}, - {40.4762f,76.1905f}, - {35.7143f,52.381f}, - {35.7143f,33.3333f}, - {40.4762f,9.5238f}, - {50.0f,-9.5238f}, - {59.5238f,-23.8095f}, - {69.0476f,-33.3333f} -}; - -static const SFG_StrokeStrip ch40st[] = -{ - {10,ch40st0} -}; - -static const SFG_StrokeChar ch40 = {104.762f,1,ch40st}; - -/* char: 0x29 */ - -static const SFG_StrokeVertex ch41st0[] = -{ - {35.7143f,119.048f}, - {45.2381f,109.524f}, - {54.7619f,95.2381f}, - {64.2857f,76.1905f}, - {69.0476f,52.381f}, - {69.0476f,33.3333f}, - {64.2857f,9.5238f}, - {54.7619f,-9.5238f}, - {45.2381f,-23.8095f}, - {35.7143f,-33.3333f} -}; - -static const SFG_StrokeStrip ch41st[] = -{ - {10,ch41st0} -}; - -static const SFG_StrokeChar ch41 = {104.762f,1,ch41st}; - -/* char: 0x2a */ - -static const SFG_StrokeVertex ch42st0[] = -{ - {52.381f,71.4286f}, - {52.381f,14.2857f} -}; - -static const SFG_StrokeVertex ch42st1[] = -{ - {28.5715f,57.1429f}, - {76.1905f,28.5714f} -}; - -static const SFG_StrokeVertex ch42st2[] = -{ - {76.1905f,57.1429f}, - {28.5715f,28.5714f} -}; - -static const SFG_StrokeStrip ch42st[] = -{ - {2,ch42st0}, - {2,ch42st1}, - {2,ch42st2} -}; - -static const SFG_StrokeChar ch42 = {104.762f,3,ch42st}; - -/* char: 0x2b */ - -static const SFG_StrokeVertex ch43st0[] = -{ - {52.3809f,85.7143f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch43st1[] = -{ - {9.5238f,42.8571f}, - {95.2381f,42.8571f} -}; - -static const SFG_StrokeStrip ch43st[] = -{ - {2,ch43st0}, - {2,ch43st1} -}; - -static const SFG_StrokeChar ch43 = {104.762f,2,ch43st}; - -/* char: 0x2c */ - -static const SFG_StrokeVertex ch44st0[] = -{ - {57.1429f,4.7619f}, - {52.381f,0.0f}, - {47.6191f,4.7619f}, - {52.381f,9.5238f}, - {57.1429f,4.7619f}, - {57.1429f,-4.7619f}, - {52.381f,-14.2857f}, - {47.6191f,-19.0476f} -}; - -static const SFG_StrokeStrip ch44st[] = -{ - {8,ch44st0} -}; - -static const SFG_StrokeChar ch44 = {104.762f,1,ch44st}; - -/* char: 0x2d */ - -static const SFG_StrokeVertex ch45st0[] = -{ - {9.5238f,42.8571f}, - {95.2381f,42.8571f} -}; - -static const SFG_StrokeStrip ch45st[] = -{ - {2,ch45st0} -}; - -static const SFG_StrokeChar ch45 = {104.762f,1,ch45st}; - -/* char: 0x2e */ - -static const SFG_StrokeVertex ch46st0[] = -{ - {52.381f,9.5238f}, - {47.6191f,4.7619f}, - {52.381f,0.0f}, - {57.1429f,4.7619f}, - {52.381f,9.5238f} -}; - -static const SFG_StrokeStrip ch46st[] = -{ - {5,ch46st0} -}; - -static const SFG_StrokeChar ch46 = {104.762f,1,ch46st}; - -/* char: 0x2f */ - -static const SFG_StrokeVertex ch47st0[] = -{ - {19.0476f,-14.2857f}, - {85.7143f,100.0f} -}; - -static const SFG_StrokeStrip ch47st[] = -{ - {2,ch47st0} -}; - -static const SFG_StrokeChar ch47 = {104.762f,1,ch47st}; - -/* char: 0x30 */ - -static const SFG_StrokeVertex ch48st0[] = -{ - {47.619f,100.0f}, - {33.3333f,95.2381f}, - {23.8095f,80.9524f}, - {19.0476f,57.1429f}, - {19.0476f,42.8571f}, - {23.8095f,19.0476f}, - {33.3333f,4.7619f}, - {47.619f,0.0f}, - {57.1428f,0.0f}, - {71.4286f,4.7619f}, - {80.9524f,19.0476f}, - {85.7143f,42.8571f}, - {85.7143f,57.1429f}, - {80.9524f,80.9524f}, - {71.4286f,95.2381f}, - {57.1428f,100.0f}, - {47.619f,100.0f} -}; - -static const SFG_StrokeStrip ch48st[] = -{ - {17,ch48st0} -}; - -static const SFG_StrokeChar ch48 = {104.762f,1,ch48st}; - -/* char: 0x31 */ - -static const SFG_StrokeVertex ch49st0[] = -{ - {40.4762f,80.9524f}, - {50.0f,85.7143f}, - {64.2857f,100.0f}, - {64.2857f,0.0f} -}; - -static const SFG_StrokeStrip ch49st[] = -{ - {4,ch49st0} -}; - -static const SFG_StrokeChar ch49 = {104.762f,1,ch49st}; - -/* char: 0x32 */ - -static const SFG_StrokeVertex ch50st0[] = -{ - {23.8095f,76.1905f}, - {23.8095f,80.9524f}, - {28.5714f,90.4762f}, - {33.3333f,95.2381f}, - {42.8571f,100.0f}, - {61.9047f,100.0f}, - {71.4286f,95.2381f}, - {76.1905f,90.4762f}, - {80.9524f,80.9524f}, - {80.9524f,71.4286f}, - {76.1905f,61.9048f}, - {66.6666f,47.619f}, - {19.0476f,0.0f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeStrip ch50st[] = -{ - {14,ch50st0} -}; - -static const SFG_StrokeChar ch50 = {104.762f,1,ch50st}; - -/* char: 0x33 */ - -static const SFG_StrokeVertex ch51st0[] = -{ - {28.5714f,100.0f}, - {80.9524f,100.0f}, - {52.3809f,61.9048f}, - {66.6666f,61.9048f}, - {76.1905f,57.1429f}, - {80.9524f,52.381f}, - {85.7143f,38.0952f}, - {85.7143f,28.5714f}, - {80.9524f,14.2857f}, - {71.4286f,4.7619f}, - {57.1428f,0.0f}, - {42.8571f,0.0f}, - {28.5714f,4.7619f}, - {23.8095f,9.5238f}, - {19.0476f,19.0476f} -}; - -static const SFG_StrokeStrip ch51st[] = -{ - {15,ch51st0} -}; - -static const SFG_StrokeChar ch51 = {104.762f,1,ch51st}; - -/* char: 0x34 */ - -static const SFG_StrokeVertex ch52st0[] = -{ - {64.2857f,100.0f}, - {16.6667f,33.3333f}, - {88.0952f,33.3333f} -}; - -static const SFG_StrokeVertex ch52st1[] = -{ - {64.2857f,100.0f}, - {64.2857f,0.0f} -}; - -static const SFG_StrokeStrip ch52st[] = -{ - {3,ch52st0}, - {2,ch52st1} -}; - -static const SFG_StrokeChar ch52 = {104.762f,2,ch52st}; - -/* char: 0x35 */ - -static const SFG_StrokeVertex ch53st0[] = -{ - {76.1905f,100.0f}, - {28.5714f,100.0f}, - {23.8095f,57.1429f}, - {28.5714f,61.9048f}, - {42.8571f,66.6667f}, - {57.1428f,66.6667f}, - {71.4286f,61.9048f}, - {80.9524f,52.381f}, - {85.7143f,38.0952f}, - {85.7143f,28.5714f}, - {80.9524f,14.2857f}, - {71.4286f,4.7619f}, - {57.1428f,0.0f}, - {42.8571f,0.0f}, - {28.5714f,4.7619f}, - {23.8095f,9.5238f}, - {19.0476f,19.0476f} -}; - -static const SFG_StrokeStrip ch53st[] = -{ - {17,ch53st0} -}; - -static const SFG_StrokeChar ch53 = {104.762f,1,ch53st}; - -/* char: 0x36 */ - -static const SFG_StrokeVertex ch54st0[] = -{ - {78.5714f,85.7143f}, - {73.8096f,95.2381f}, - {59.5238f,100.0f}, - {50.0f,100.0f}, - {35.7143f,95.2381f}, - {26.1905f,80.9524f}, - {21.4286f,57.1429f}, - {21.4286f,33.3333f}, - {26.1905f,14.2857f}, - {35.7143f,4.7619f}, - {50.0f,0.0f}, - {54.7619f,0.0f}, - {69.0476f,4.7619f}, - {78.5714f,14.2857f}, - {83.3334f,28.5714f}, - {83.3334f,33.3333f}, - {78.5714f,47.619f}, - {69.0476f,57.1429f}, - {54.7619f,61.9048f}, - {50.0f,61.9048f}, - {35.7143f,57.1429f}, - {26.1905f,47.619f}, - {21.4286f,33.3333f} -}; - -static const SFG_StrokeStrip ch54st[] = -{ - {23,ch54st0} -}; - -static const SFG_StrokeChar ch54 = {104.762f,1,ch54st}; - -/* char: 0x37 */ - -static const SFG_StrokeVertex ch55st0[] = -{ - {85.7143f,100.0f}, - {38.0952f,0.0f} -}; - -static const SFG_StrokeVertex ch55st1[] = -{ - {19.0476f,100.0f}, - {85.7143f,100.0f} -}; - -static const SFG_StrokeStrip ch55st[] = -{ - {2,ch55st0}, - {2,ch55st1} -}; - -static const SFG_StrokeChar ch55 = {104.762f,2,ch55st}; - -/* char: 0x38 */ - -static const SFG_StrokeVertex ch56st0[] = -{ - {42.8571f,100.0f}, - {28.5714f,95.2381f}, - {23.8095f,85.7143f}, - {23.8095f,76.1905f}, - {28.5714f,66.6667f}, - {38.0952f,61.9048f}, - {57.1428f,57.1429f}, - {71.4286f,52.381f}, - {80.9524f,42.8571f}, - {85.7143f,33.3333f}, - {85.7143f,19.0476f}, - {80.9524f,9.5238f}, - {76.1905f,4.7619f}, - {61.9047f,0.0f}, - {42.8571f,0.0f}, - {28.5714f,4.7619f}, - {23.8095f,9.5238f}, - {19.0476f,19.0476f}, - {19.0476f,33.3333f}, - {23.8095f,42.8571f}, - {33.3333f,52.381f}, - {47.619f,57.1429f}, - {66.6666f,61.9048f}, - {76.1905f,66.6667f}, - {80.9524f,76.1905f}, - {80.9524f,85.7143f}, - {76.1905f,95.2381f}, - {61.9047f,100.0f}, - {42.8571f,100.0f} -}; - -static const SFG_StrokeStrip ch56st[] = -{ - {29,ch56st0} -}; - -static const SFG_StrokeChar ch56 = {104.762f,1,ch56st}; - -/* char: 0x39 */ - -static const SFG_StrokeVertex ch57st0[] = -{ - {83.3334f,66.6667f}, - {78.5714f,52.381f}, - {69.0476f,42.8571f}, - {54.7619f,38.0952f}, - {50.0f,38.0952f}, - {35.7143f,42.8571f}, - {26.1905f,52.381f}, - {21.4286f,66.6667f}, - {21.4286f,71.4286f}, - {26.1905f,85.7143f}, - {35.7143f,95.2381f}, - {50.0f,100.0f}, - {54.7619f,100.0f}, - {69.0476f,95.2381f}, - {78.5714f,85.7143f}, - {83.3334f,66.6667f}, - {83.3334f,42.8571f}, - {78.5714f,19.0476f}, - {69.0476f,4.7619f}, - {54.7619f,0.0f}, - {45.2381f,0.0f}, - {30.9524f,4.7619f}, - {26.1905f,14.2857f} -}; - -static const SFG_StrokeStrip ch57st[] = -{ - {23,ch57st0} -}; - -static const SFG_StrokeChar ch57 = {104.762f,1,ch57st}; - -/* char: 0x3a */ - -static const SFG_StrokeVertex ch58st0[] = -{ - {52.381f,66.6667f}, - {47.6191f,61.9048f}, - {52.381f,57.1429f}, - {57.1429f,61.9048f}, - {52.381f,66.6667f} -}; - -static const SFG_StrokeVertex ch58st1[] = -{ - {52.381f,9.5238f}, - {47.6191f,4.7619f}, - {52.381f,0.0f}, - {57.1429f,4.7619f}, - {52.381f,9.5238f} -}; - -static const SFG_StrokeStrip ch58st[] = -{ - {5,ch58st0}, - {5,ch58st1} -}; - -static const SFG_StrokeChar ch58 = {104.762f,2,ch58st}; - -/* char: 0x3b */ - -static const SFG_StrokeVertex ch59st0[] = -{ - {52.381f,66.6667f}, - {47.6191f,61.9048f}, - {52.381f,57.1429f}, - {57.1429f,61.9048f}, - {52.381f,66.6667f} -}; - -static const SFG_StrokeVertex ch59st1[] = -{ - {57.1429f,4.7619f}, - {52.381f,0.0f}, - {47.6191f,4.7619f}, - {52.381f,9.5238f}, - {57.1429f,4.7619f}, - {57.1429f,-4.7619f}, - {52.381f,-14.2857f}, - {47.6191f,-19.0476f} -}; - -static const SFG_StrokeStrip ch59st[] = -{ - {5,ch59st0}, - {8,ch59st1} -}; - -static const SFG_StrokeChar ch59 = {104.762f,2,ch59st}; - -/* char: 0x3c */ - -static const SFG_StrokeVertex ch60st0[] = -{ - {90.4762f,85.7143f}, - {14.2857f,42.8571f}, - {90.4762f,0.0f} -}; - -static const SFG_StrokeStrip ch60st[] = -{ - {3,ch60st0} -}; - -static const SFG_StrokeChar ch60 = {104.762f,1,ch60st}; - -/* char: 0x3d */ - -static const SFG_StrokeVertex ch61st0[] = -{ - {9.5238f,57.1429f}, - {95.2381f,57.1429f} -}; - -static const SFG_StrokeVertex ch61st1[] = -{ - {9.5238f,28.5714f}, - {95.2381f,28.5714f} -}; - -static const SFG_StrokeStrip ch61st[] = -{ - {2,ch61st0}, - {2,ch61st1} -}; - -static const SFG_StrokeChar ch61 = {104.762f,2,ch61st}; - -/* char: 0x3e */ - -static const SFG_StrokeVertex ch62st0[] = -{ - {14.2857f,85.7143f}, - {90.4762f,42.8571f}, - {14.2857f,0.0f} -}; - -static const SFG_StrokeStrip ch62st[] = -{ - {3,ch62st0} -}; - -static const SFG_StrokeChar ch62 = {104.762f,1,ch62st}; - -/* char: 0x3f */ - -static const SFG_StrokeVertex ch63st0[] = -{ - {23.8095f,76.1905f}, - {23.8095f,80.9524f}, - {28.5714f,90.4762f}, - {33.3333f,95.2381f}, - {42.8571f,100.0f}, - {61.9047f,100.0f}, - {71.4285f,95.2381f}, - {76.1905f,90.4762f}, - {80.9524f,80.9524f}, - {80.9524f,71.4286f}, - {76.1905f,61.9048f}, - {71.4285f,57.1429f}, - {52.3809f,47.619f}, - {52.3809f,33.3333f} -}; - -static const SFG_StrokeVertex ch63st1[] = -{ - {52.3809f,9.5238f}, - {47.619f,4.7619f}, - {52.3809f,0.0f}, - {57.1428f,4.7619f}, - {52.3809f,9.5238f} -}; - -static const SFG_StrokeStrip ch63st[] = -{ - {14,ch63st0}, - {5,ch63st1} -}; - -static const SFG_StrokeChar ch63 = {104.762f,2,ch63st}; - -/* char: 0x40 */ - -static const SFG_StrokeVertex ch64st0[] = -{ - {64.2857f,52.381f}, - {54.7619f,57.1429f}, - {45.2381f,57.1429f}, - {40.4762f,47.619f}, - {40.4762f,42.8571f}, - {45.2381f,33.3333f}, - {54.7619f,33.3333f}, - {64.2857f,38.0952f} -}; - -static const SFG_StrokeVertex ch64st1[] = -{ - {64.2857f,57.1429f}, - {64.2857f,38.0952f}, - {69.0476f,33.3333f}, - {78.5714f,33.3333f}, - {83.3334f,42.8571f}, - {83.3334f,47.619f}, - {78.5714f,61.9048f}, - {69.0476f,71.4286f}, - {54.7619f,76.1905f}, - {50.0f,76.1905f}, - {35.7143f,71.4286f}, - {26.1905f,61.9048f}, - {21.4286f,47.619f}, - {21.4286f,42.8571f}, - {26.1905f,28.5714f}, - {35.7143f,19.0476f}, - {50.0f,14.2857f}, - {54.7619f,14.2857f}, - {69.0476f,19.0476f} -}; - -static const SFG_StrokeStrip ch64st[] = -{ - {8,ch64st0}, - {19,ch64st1} -}; - -static const SFG_StrokeChar ch64 = {104.762f,2,ch64st}; - -/* char: 0x41 */ - -static const SFG_StrokeVertex ch65st0[] = -{ - {52.3809f,100.0f}, - {14.2857f,0.0f} -}; - -static const SFG_StrokeVertex ch65st1[] = -{ - {52.3809f,100.0f}, - {90.4762f,0.0f} -}; - -static const SFG_StrokeVertex ch65st2[] = -{ - {28.5714f,33.3333f}, - {76.1905f,33.3333f} -}; - -static const SFG_StrokeStrip ch65st[] = -{ - {2,ch65st0}, - {2,ch65st1}, - {2,ch65st2} -}; - -static const SFG_StrokeChar ch65 = {104.762f,3,ch65st}; - -/* char: 0x42 */ - -static const SFG_StrokeVertex ch66st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch66st1[] = -{ - {19.0476f,100.0f}, - {61.9047f,100.0f}, - {76.1905f,95.2381f}, - {80.9524f,90.4762f}, - {85.7143f,80.9524f}, - {85.7143f,71.4286f}, - {80.9524f,61.9048f}, - {76.1905f,57.1429f}, - {61.9047f,52.381f} -}; - -static const SFG_StrokeVertex ch66st2[] = -{ - {19.0476f,52.381f}, - {61.9047f,52.381f}, - {76.1905f,47.619f}, - {80.9524f,42.8571f}, - {85.7143f,33.3333f}, - {85.7143f,19.0476f}, - {80.9524f,9.5238f}, - {76.1905f,4.7619f}, - {61.9047f,0.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeStrip ch66st[] = -{ - {2,ch66st0}, - {9,ch66st1}, - {10,ch66st2} -}; - -static const SFG_StrokeChar ch66 = {104.762f,3,ch66st}; - -/* char: 0x43 */ - -static const SFG_StrokeVertex ch67st0[] = -{ - {88.0952f,76.1905f}, - {83.3334f,85.7143f}, - {73.8096f,95.2381f}, - {64.2857f,100.0f}, - {45.2381f,100.0f}, - {35.7143f,95.2381f}, - {26.1905f,85.7143f}, - {21.4286f,76.1905f}, - {16.6667f,61.9048f}, - {16.6667f,38.0952f}, - {21.4286f,23.8095f}, - {26.1905f,14.2857f}, - {35.7143f,4.7619f}, - {45.2381f,0.0f}, - {64.2857f,0.0f}, - {73.8096f,4.7619f}, - {83.3334f,14.2857f}, - {88.0952f,23.8095f} -}; - -static const SFG_StrokeStrip ch67st[] = -{ - {18,ch67st0} -}; - -static const SFG_StrokeChar ch67 = {104.762f,1,ch67st}; - -/* char: 0x44 */ - -static const SFG_StrokeVertex ch68st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch68st1[] = -{ - {19.0476f,100.0f}, - {52.3809f,100.0f}, - {66.6666f,95.2381f}, - {76.1905f,85.7143f}, - {80.9524f,76.1905f}, - {85.7143f,61.9048f}, - {85.7143f,38.0952f}, - {80.9524f,23.8095f}, - {76.1905f,14.2857f}, - {66.6666f,4.7619f}, - {52.3809f,0.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeStrip ch68st[] = -{ - {2,ch68st0}, - {12,ch68st1} -}; - -static const SFG_StrokeChar ch68 = {104.762f,2,ch68st}; - -/* char: 0x45 */ - -static const SFG_StrokeVertex ch69st0[] = -{ - {21.4286f,100.0f}, - {21.4286f,0.0f} -}; - -static const SFG_StrokeVertex ch69st1[] = -{ - {21.4286f,100.0f}, - {83.3334f,100.0f} -}; - -static const SFG_StrokeVertex ch69st2[] = -{ - {21.4286f,52.381f}, - {59.5238f,52.381f} -}; - -static const SFG_StrokeVertex ch69st3[] = -{ - {21.4286f,0.0f}, - {83.3334f,0.0f} -}; - -static const SFG_StrokeStrip ch69st[] = -{ - {2,ch69st0}, - {2,ch69st1}, - {2,ch69st2}, - {2,ch69st3} -}; - -static const SFG_StrokeChar ch69 = {104.762f,4,ch69st}; - -/* char: 0x46 */ - -static const SFG_StrokeVertex ch70st0[] = -{ - {21.4286f,100.0f}, - {21.4286f,0.0f} -}; - -static const SFG_StrokeVertex ch70st1[] = -{ - {21.4286f,100.0f}, - {83.3334f,100.0f} -}; - -static const SFG_StrokeVertex ch70st2[] = -{ - {21.4286f,52.381f}, - {59.5238f,52.381f} -}; - -static const SFG_StrokeStrip ch70st[] = -{ - {2,ch70st0}, - {2,ch70st1}, - {2,ch70st2} -}; - -static const SFG_StrokeChar ch70 = {104.762f,3,ch70st}; - -/* char: 0x47 */ - -static const SFG_StrokeVertex ch71st0[] = -{ - {88.0952f,76.1905f}, - {83.3334f,85.7143f}, - {73.8096f,95.2381f}, - {64.2857f,100.0f}, - {45.2381f,100.0f}, - {35.7143f,95.2381f}, - {26.1905f,85.7143f}, - {21.4286f,76.1905f}, - {16.6667f,61.9048f}, - {16.6667f,38.0952f}, - {21.4286f,23.8095f}, - {26.1905f,14.2857f}, - {35.7143f,4.7619f}, - {45.2381f,0.0f}, - {64.2857f,0.0f}, - {73.8096f,4.7619f}, - {83.3334f,14.2857f}, - {88.0952f,23.8095f}, - {88.0952f,38.0952f} -}; - -static const SFG_StrokeVertex ch71st1[] = -{ - {64.2857f,38.0952f}, - {88.0952f,38.0952f} -}; - -static const SFG_StrokeStrip ch71st[] = -{ - {19,ch71st0}, - {2,ch71st1} -}; - -static const SFG_StrokeChar ch71 = {104.762f,2,ch71st}; - -/* char: 0x48 */ - -static const SFG_StrokeVertex ch72st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch72st1[] = -{ - {85.7143f,100.0f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeVertex ch72st2[] = -{ - {19.0476f,52.381f}, - {85.7143f,52.381f} -}; - -static const SFG_StrokeStrip ch72st[] = -{ - {2,ch72st0}, - {2,ch72st1}, - {2,ch72st2} -}; - -static const SFG_StrokeChar ch72 = {104.762f,3,ch72st}; - -/* char: 0x49 */ - -static const SFG_StrokeVertex ch73st0[] = -{ - {52.381f,100.0f}, - {52.381f,0.0f} -}; - -static const SFG_StrokeStrip ch73st[] = -{ - {2,ch73st0} -}; - -static const SFG_StrokeChar ch73 = {104.762f,1,ch73st}; - -/* char: 0x4a */ - -static const SFG_StrokeVertex ch74st0[] = -{ - {76.1905f,100.0f}, - {76.1905f,23.8095f}, - {71.4286f,9.5238f}, - {66.6667f,4.7619f}, - {57.1429f,0.0f}, - {47.6191f,0.0f}, - {38.0953f,4.7619f}, - {33.3334f,9.5238f}, - {28.5715f,23.8095f}, - {28.5715f,33.3333f} -}; - -static const SFG_StrokeStrip ch74st[] = -{ - {10,ch74st0} -}; - -static const SFG_StrokeChar ch74 = {104.762f,1,ch74st}; - -/* char: 0x4b */ - -static const SFG_StrokeVertex ch75st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch75st1[] = -{ - {85.7143f,100.0f}, - {19.0476f,33.3333f} -}; - -static const SFG_StrokeVertex ch75st2[] = -{ - {42.8571f,57.1429f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeStrip ch75st[] = -{ - {2,ch75st0}, - {2,ch75st1}, - {2,ch75st2} -}; - -static const SFG_StrokeChar ch75 = {104.762f,3,ch75st}; - -/* char: 0x4c */ - -static const SFG_StrokeVertex ch76st0[] = -{ - {23.8095f,100.0f}, - {23.8095f,0.0f} -}; - -static const SFG_StrokeVertex ch76st1[] = -{ - {23.8095f,0.0f}, - {80.9524f,0.0f} -}; - -static const SFG_StrokeStrip ch76st[] = -{ - {2,ch76st0}, - {2,ch76st1} -}; - -static const SFG_StrokeChar ch76 = {104.762f,2,ch76st}; - -/* char: 0x4d */ - -static const SFG_StrokeVertex ch77st0[] = -{ - {14.2857f,100.0f}, - {14.2857f,0.0f} -}; - -static const SFG_StrokeVertex ch77st1[] = -{ - {14.2857f,100.0f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch77st2[] = -{ - {90.4762f,100.0f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch77st3[] = -{ - {90.4762f,100.0f}, - {90.4762f,0.0f} -}; - -static const SFG_StrokeStrip ch77st[] = -{ - {2,ch77st0}, - {2,ch77st1}, - {2,ch77st2}, - {2,ch77st3} -}; - -static const SFG_StrokeChar ch77 = {104.762f,4,ch77st}; - -/* char: 0x4e */ - -static const SFG_StrokeVertex ch78st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch78st1[] = -{ - {19.0476f,100.0f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeVertex ch78st2[] = -{ - {85.7143f,100.0f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeStrip ch78st[] = -{ - {2,ch78st0}, - {2,ch78st1}, - {2,ch78st2} -}; - -static const SFG_StrokeChar ch78 = {104.762f,3,ch78st}; - -/* char: 0x4f */ - -static const SFG_StrokeVertex ch79st0[] = -{ - {42.8571f,100.0f}, - {33.3333f,95.2381f}, - {23.8095f,85.7143f}, - {19.0476f,76.1905f}, - {14.2857f,61.9048f}, - {14.2857f,38.0952f}, - {19.0476f,23.8095f}, - {23.8095f,14.2857f}, - {33.3333f,4.7619f}, - {42.8571f,0.0f}, - {61.9047f,0.0f}, - {71.4286f,4.7619f}, - {80.9524f,14.2857f}, - {85.7143f,23.8095f}, - {90.4762f,38.0952f}, - {90.4762f,61.9048f}, - {85.7143f,76.1905f}, - {80.9524f,85.7143f}, - {71.4286f,95.2381f}, - {61.9047f,100.0f}, - {42.8571f,100.0f} -}; - -static const SFG_StrokeStrip ch79st[] = -{ - {21,ch79st0} -}; - -static const SFG_StrokeChar ch79 = {104.762f,1,ch79st}; - -/* char: 0x50 */ - -static const SFG_StrokeVertex ch80st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch80st1[] = -{ - {19.0476f,100.0f}, - {61.9047f,100.0f}, - {76.1905f,95.2381f}, - {80.9524f,90.4762f}, - {85.7143f,80.9524f}, - {85.7143f,66.6667f}, - {80.9524f,57.1429f}, - {76.1905f,52.381f}, - {61.9047f,47.619f}, - {19.0476f,47.619f} -}; - -static const SFG_StrokeStrip ch80st[] = -{ - {2,ch80st0}, - {10,ch80st1} -}; - -static const SFG_StrokeChar ch80 = {104.762f,2,ch80st}; - -/* char: 0x51 */ - -static const SFG_StrokeVertex ch81st0[] = -{ - {42.8571f,100.0f}, - {33.3333f,95.2381f}, - {23.8095f,85.7143f}, - {19.0476f,76.1905f}, - {14.2857f,61.9048f}, - {14.2857f,38.0952f}, - {19.0476f,23.8095f}, - {23.8095f,14.2857f}, - {33.3333f,4.7619f}, - {42.8571f,0.0f}, - {61.9047f,0.0f}, - {71.4286f,4.7619f}, - {80.9524f,14.2857f}, - {85.7143f,23.8095f}, - {90.4762f,38.0952f}, - {90.4762f,61.9048f}, - {85.7143f,76.1905f}, - {80.9524f,85.7143f}, - {71.4286f,95.2381f}, - {61.9047f,100.0f}, - {42.8571f,100.0f} -}; - -static const SFG_StrokeVertex ch81st1[] = -{ - {57.1428f,19.0476f}, - {85.7143f,-9.5238f} -}; - -static const SFG_StrokeStrip ch81st[] = -{ - {21,ch81st0}, - {2,ch81st1} -}; - -static const SFG_StrokeChar ch81 = {104.762f,2,ch81st}; - -/* char: 0x52 */ - -static const SFG_StrokeVertex ch82st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch82st1[] = -{ - {19.0476f,100.0f}, - {61.9047f,100.0f}, - {76.1905f,95.2381f}, - {80.9524f,90.4762f}, - {85.7143f,80.9524f}, - {85.7143f,71.4286f}, - {80.9524f,61.9048f}, - {76.1905f,57.1429f}, - {61.9047f,52.381f}, - {19.0476f,52.381f} -}; - -static const SFG_StrokeVertex ch82st2[] = -{ - {52.3809f,52.381f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeStrip ch82st[] = -{ - {2,ch82st0}, - {10,ch82st1}, - {2,ch82st2} -}; - -static const SFG_StrokeChar ch82 = {104.762f,3,ch82st}; - -/* char: 0x53 */ - -static const SFG_StrokeVertex ch83st0[] = -{ - {85.7143f,85.7143f}, - {76.1905f,95.2381f}, - {61.9047f,100.0f}, - {42.8571f,100.0f}, - {28.5714f,95.2381f}, - {19.0476f,85.7143f}, - {19.0476f,76.1905f}, - {23.8095f,66.6667f}, - {28.5714f,61.9048f}, - {38.0952f,57.1429f}, - {66.6666f,47.619f}, - {76.1905f,42.8571f}, - {80.9524f,38.0952f}, - {85.7143f,28.5714f}, - {85.7143f,14.2857f}, - {76.1905f,4.7619f}, - {61.9047f,0.0f}, - {42.8571f,0.0f}, - {28.5714f,4.7619f}, - {19.0476f,14.2857f} -}; - -static const SFG_StrokeStrip ch83st[] = -{ - {20,ch83st0} -}; - -static const SFG_StrokeChar ch83 = {104.762f,1,ch83st}; - -/* char: 0x54 */ - -static const SFG_StrokeVertex ch84st0[] = -{ - {52.3809f,100.0f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch84st1[] = -{ - {19.0476f,100.0f}, - {85.7143f,100.0f} -}; - -static const SFG_StrokeStrip ch84st[] = -{ - {2,ch84st0}, - {2,ch84st1} -}; - -static const SFG_StrokeChar ch84 = {104.762f,2,ch84st}; - -/* char: 0x55 */ - -static const SFG_StrokeVertex ch85st0[] = -{ - {19.0476f,100.0f}, - {19.0476f,28.5714f}, - {23.8095f,14.2857f}, - {33.3333f,4.7619f}, - {47.619f,0.0f}, - {57.1428f,0.0f}, - {71.4286f,4.7619f}, - {80.9524f,14.2857f}, - {85.7143f,28.5714f}, - {85.7143f,100.0f} -}; - -static const SFG_StrokeStrip ch85st[] = -{ - {10,ch85st0} -}; - -static const SFG_StrokeChar ch85 = {104.762f,1,ch85st}; - -/* char: 0x56 */ - -static const SFG_StrokeVertex ch86st0[] = -{ - {14.2857f,100.0f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch86st1[] = -{ - {90.4762f,100.0f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeStrip ch86st[] = -{ - {2,ch86st0}, - {2,ch86st1} -}; - -static const SFG_StrokeChar ch86 = {104.762f,2,ch86st}; - -/* char: 0x57 */ - -static const SFG_StrokeVertex ch87st0[] = -{ - {4.7619f,100.0f}, - {28.5714f,0.0f} -}; - -static const SFG_StrokeVertex ch87st1[] = -{ - {52.3809f,100.0f}, - {28.5714f,0.0f} -}; - -static const SFG_StrokeVertex ch87st2[] = -{ - {52.3809f,100.0f}, - {76.1905f,0.0f} -}; - -static const SFG_StrokeVertex ch87st3[] = -{ - {100.0f,100.0f}, - {76.1905f,0.0f} -}; - -static const SFG_StrokeStrip ch87st[] = -{ - {2,ch87st0}, - {2,ch87st1}, - {2,ch87st2}, - {2,ch87st3} -}; - -static const SFG_StrokeChar ch87 = {104.762f,4,ch87st}; - -/* char: 0x58 */ - -static const SFG_StrokeVertex ch88st0[] = -{ - {19.0476f,100.0f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeVertex ch88st1[] = -{ - {85.7143f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeStrip ch88st[] = -{ - {2,ch88st0}, - {2,ch88st1} -}; - -static const SFG_StrokeChar ch88 = {104.762f,2,ch88st}; - -/* char: 0x59 */ - -static const SFG_StrokeVertex ch89st0[] = -{ - {14.2857f,100.0f}, - {52.3809f,52.381f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch89st1[] = -{ - {90.4762f,100.0f}, - {52.3809f,52.381f} -}; - -static const SFG_StrokeStrip ch89st[] = -{ - {3,ch89st0}, - {2,ch89st1} -}; - -static const SFG_StrokeChar ch89 = {104.762f,2,ch89st}; - -/* char: 0x5a */ - -static const SFG_StrokeVertex ch90st0[] = -{ - {85.7143f,100.0f}, - {19.0476f,0.0f} -}; - -static const SFG_StrokeVertex ch90st1[] = -{ - {19.0476f,100.0f}, - {85.7143f,100.0f} -}; - -static const SFG_StrokeVertex ch90st2[] = -{ - {19.0476f,0.0f}, - {85.7143f,0.0f} -}; - -static const SFG_StrokeStrip ch90st[] = -{ - {2,ch90st0}, - {2,ch90st1}, - {2,ch90st2} -}; - -static const SFG_StrokeChar ch90 = {104.762f,3,ch90st}; - -/* char: 0x5b */ - -static const SFG_StrokeVertex ch91st0[] = -{ - {35.7143f,119.048f}, - {35.7143f,-33.3333f} -}; - -static const SFG_StrokeVertex ch91st1[] = -{ - {40.4762f,119.048f}, - {40.4762f,-33.3333f} -}; - -static const SFG_StrokeVertex ch91st2[] = -{ - {35.7143f,119.048f}, - {69.0476f,119.048f} -}; - -static const SFG_StrokeVertex ch91st3[] = -{ - {35.7143f,-33.3333f}, - {69.0476f,-33.3333f} -}; - -static const SFG_StrokeStrip ch91st[] = -{ - {2,ch91st0}, - {2,ch91st1}, - {2,ch91st2}, - {2,ch91st3} -}; - -static const SFG_StrokeChar ch91 = {104.762f,4,ch91st}; - -/* char: 0x5c */ - -static const SFG_StrokeVertex ch92st0[] = -{ - {19.0476f,100.0f}, - {85.7143f,-14.2857f} -}; - -static const SFG_StrokeStrip ch92st[] = -{ - {2,ch92st0} -}; - -static const SFG_StrokeChar ch92 = {104.762f,1,ch92st}; - -/* char: 0x5d */ - -static const SFG_StrokeVertex ch93st0[] = -{ - {64.2857f,119.048f}, - {64.2857f,-33.3333f} -}; - -static const SFG_StrokeVertex ch93st1[] = -{ - {69.0476f,119.048f}, - {69.0476f,-33.3333f} -}; - -static const SFG_StrokeVertex ch93st2[] = -{ - {35.7143f,119.048f}, - {69.0476f,119.048f} -}; - -static const SFG_StrokeVertex ch93st3[] = -{ - {35.7143f,-33.3333f}, - {69.0476f,-33.3333f} -}; - -static const SFG_StrokeStrip ch93st[] = -{ - {2,ch93st0}, - {2,ch93st1}, - {2,ch93st2}, - {2,ch93st3} -}; - -static const SFG_StrokeChar ch93 = {104.762f,4,ch93st}; - -/* char: 0x5e */ - -static const SFG_StrokeVertex ch94st0[] = -{ - {52.3809f,109.524f}, - {14.2857f,42.8571f} -}; - -static const SFG_StrokeVertex ch94st1[] = -{ - {52.3809f,109.524f}, - {90.4762f,42.8571f} -}; - -static const SFG_StrokeStrip ch94st[] = -{ - {2,ch94st0}, - {2,ch94st1} -}; - -static const SFG_StrokeChar ch94 = {104.762f,2,ch94st}; - -/* char: 0x5f */ - -static const SFG_StrokeVertex ch95st0[] = -{ - {0,-33.3333f}, - {104.762f,-33.3333f}, - {104.762f,-28.5714f}, - {0,-28.5714f}, - {0,-33.3333f} -}; - -static const SFG_StrokeStrip ch95st[] = -{ - {5,ch95st0} -}; - -static const SFG_StrokeChar ch95 = {104.762f,1,ch95st}; - -/* char: 0x60 */ - -static const SFG_StrokeVertex ch96st0[] = -{ - {42.8572f,100.0f}, - {66.6667f,71.4286f} -}; - -static const SFG_StrokeVertex ch96st1[] = -{ - {42.8572f,100.0f}, - {38.0953f,95.2381f}, - {66.6667f,71.4286f} -}; - -static const SFG_StrokeStrip ch96st[] = -{ - {2,ch96st0}, - {3,ch96st1} -}; - -static const SFG_StrokeChar ch96 = {104.762f,2,ch96st}; - -/* char: 0x61 */ - -static const SFG_StrokeVertex ch97st0[] = -{ - {80.9524f,66.6667f}, - {80.9524f,0.0f} -}; - -static const SFG_StrokeVertex ch97st1[] = -{ - {80.9524f,52.381f}, - {71.4285f,61.9048f}, - {61.9047f,66.6667f}, - {47.619f,66.6667f}, - {38.0952f,61.9048f}, - {28.5714f,52.381f}, - {23.8095f,38.0952f}, - {23.8095f,28.5714f}, - {28.5714f,14.2857f}, - {38.0952f,4.7619f}, - {47.619f,0.0f}, - {61.9047f,0.0f}, - {71.4285f,4.7619f}, - {80.9524f,14.2857f} -}; - -static const SFG_StrokeStrip ch97st[] = -{ - {2,ch97st0}, - {14,ch97st1} -}; - -static const SFG_StrokeChar ch97 = {104.762f,2,ch97st}; - -/* char: 0x62 */ - -static const SFG_StrokeVertex ch98st0[] = -{ - {23.8095f,100.0f}, - {23.8095f,0.0f} -}; - -static const SFG_StrokeVertex ch98st1[] = -{ - {23.8095f,52.381f}, - {33.3333f,61.9048f}, - {42.8571f,66.6667f}, - {57.1428f,66.6667f}, - {66.6666f,61.9048f}, - {76.1905f,52.381f}, - {80.9524f,38.0952f}, - {80.9524f,28.5714f}, - {76.1905f,14.2857f}, - {66.6666f,4.7619f}, - {57.1428f,0.0f}, - {42.8571f,0.0f}, - {33.3333f,4.7619f}, - {23.8095f,14.2857f} -}; - -static const SFG_StrokeStrip ch98st[] = -{ - {2,ch98st0}, - {14,ch98st1} -}; - -static const SFG_StrokeChar ch98 = {104.762f,2,ch98st}; - -/* char: 0x63 */ - -static const SFG_StrokeVertex ch99st0[] = -{ - {80.9524f,52.381f}, - {71.4285f,61.9048f}, - {61.9047f,66.6667f}, - {47.619f,66.6667f}, - {38.0952f,61.9048f}, - {28.5714f,52.381f}, - {23.8095f,38.0952f}, - {23.8095f,28.5714f}, - {28.5714f,14.2857f}, - {38.0952f,4.7619f}, - {47.619f,0.0f}, - {61.9047f,0.0f}, - {71.4285f,4.7619f}, - {80.9524f,14.2857f} -}; - -static const SFG_StrokeStrip ch99st[] = -{ - {14,ch99st0} -}; - -static const SFG_StrokeChar ch99 = {104.762f,1,ch99st}; - -/* char: 0x64 */ - -static const SFG_StrokeVertex ch100st0[] = -{ - {80.9524f,100.0f}, - {80.9524f,0.0f} -}; - -static const SFG_StrokeVertex ch100st1[] = -{ - {80.9524f,52.381f}, - {71.4285f,61.9048f}, - {61.9047f,66.6667f}, - {47.619f,66.6667f}, - {38.0952f,61.9048f}, - {28.5714f,52.381f}, - {23.8095f,38.0952f}, - {23.8095f,28.5714f}, - {28.5714f,14.2857f}, - {38.0952f,4.7619f}, - {47.619f,0.0f}, - {61.9047f,0.0f}, - {71.4285f,4.7619f}, - {80.9524f,14.2857f} -}; - -static const SFG_StrokeStrip ch100st[] = -{ - {2,ch100st0}, - {14,ch100st1} -}; - -static const SFG_StrokeChar ch100 = {104.762f,2,ch100st}; - -/* char: 0x65 */ - -static const SFG_StrokeVertex ch101st0[] = -{ - {23.8095f,38.0952f}, - {80.9524f,38.0952f}, - {80.9524f,47.619f}, - {76.1905f,57.1429f}, - {71.4285f,61.9048f}, - {61.9047f,66.6667f}, - {47.619f,66.6667f}, - {38.0952f,61.9048f}, - {28.5714f,52.381f}, - {23.8095f,38.0952f}, - {23.8095f,28.5714f}, - {28.5714f,14.2857f}, - {38.0952f,4.7619f}, - {47.619f,0.0f}, - {61.9047f,0.0f}, - {71.4285f,4.7619f}, - {80.9524f,14.2857f} -}; - -static const SFG_StrokeStrip ch101st[] = -{ - {17,ch101st0} -}; - -static const SFG_StrokeChar ch101 = {104.762f,1,ch101st}; - -/* char: 0x66 */ - -static const SFG_StrokeVertex ch102st0[] = -{ - {71.4286f,100.0f}, - {61.9048f,100.0f}, - {52.381f,95.2381f}, - {47.6191f,80.9524f}, - {47.6191f,0.0f} -}; - -static const SFG_StrokeVertex ch102st1[] = -{ - {33.3334f,66.6667f}, - {66.6667f,66.6667f} -}; - -static const SFG_StrokeStrip ch102st[] = -{ - {5,ch102st0}, - {2,ch102st1} -}; - -static const SFG_StrokeChar ch102 = {104.762f,2,ch102st}; - -/* char: 0x67 */ - -static const SFG_StrokeVertex ch103st0[] = -{ - {80.9524f,66.6667f}, - {80.9524f,-9.5238f}, - {76.1905f,-23.8095f}, - {71.4285f,-28.5714f}, - {61.9047f,-33.3333f}, - {47.619f,-33.3333f}, - {38.0952f,-28.5714f} -}; - -static const SFG_StrokeVertex ch103st1[] = -{ - {80.9524f,52.381f}, - {71.4285f,61.9048f}, - {61.9047f,66.6667f}, - {47.619f,66.6667f}, - {38.0952f,61.9048f}, - {28.5714f,52.381f}, - {23.8095f,38.0952f}, - {23.8095f,28.5714f}, - {28.5714f,14.2857f}, - {38.0952f,4.7619f}, - {47.619f,0.0f}, - {61.9047f,0.0f}, - {71.4285f,4.7619f}, - {80.9524f,14.2857f} -}; - -static const SFG_StrokeStrip ch103st[] = -{ - {7,ch103st0}, - {14,ch103st1} -}; - -static const SFG_StrokeChar ch103 = {104.762f,2,ch103st}; - -/* char: 0x68 */ - -static const SFG_StrokeVertex ch104st0[] = -{ - {26.1905f,100.0f}, - {26.1905f,0.0f} -}; - -static const SFG_StrokeVertex ch104st1[] = -{ - {26.1905f,47.619f}, - {40.4762f,61.9048f}, - {50.0f,66.6667f}, - {64.2857f,66.6667f}, - {73.8095f,61.9048f}, - {78.5715f,47.619f}, - {78.5715f,0.0f} -}; - -static const SFG_StrokeStrip ch104st[] = -{ - {2,ch104st0}, - {7,ch104st1} -}; - -static const SFG_StrokeChar ch104 = {104.762f,2,ch104st}; - -/* char: 0x69 */ - -static const SFG_StrokeVertex ch105st0[] = -{ - {47.6191f,100.0f}, - {52.381f,95.2381f}, - {57.1429f,100.0f}, - {52.381f,104.762f}, - {47.6191f,100.0f} -}; - -static const SFG_StrokeVertex ch105st1[] = -{ - {52.381f,66.6667f}, - {52.381f,0.0f} -}; - -static const SFG_StrokeStrip ch105st[] = -{ - {5,ch105st0}, - {2,ch105st1} -}; - -static const SFG_StrokeChar ch105 = {104.762f,2,ch105st}; - -/* char: 0x6a */ - -static const SFG_StrokeVertex ch106st0[] = -{ - {57.1429f,100.0f}, - {61.9048f,95.2381f}, - {66.6667f,100.0f}, - {61.9048f,104.762f}, - {57.1429f,100.0f} -}; - -static const SFG_StrokeVertex ch106st1[] = -{ - {61.9048f,66.6667f}, - {61.9048f,-14.2857f}, - {57.1429f,-28.5714f}, - {47.6191f,-33.3333f}, - {38.0953f,-33.3333f} -}; - -static const SFG_StrokeStrip ch106st[] = -{ - {5,ch106st0}, - {5,ch106st1} -}; - -static const SFG_StrokeChar ch106 = {104.762f,2,ch106st}; - -/* char: 0x6b */ - -static const SFG_StrokeVertex ch107st0[] = -{ - {26.1905f,100.0f}, - {26.1905f,0.0f} -}; - -static const SFG_StrokeVertex ch107st1[] = -{ - {73.8095f,66.6667f}, - {26.1905f,19.0476f} -}; - -static const SFG_StrokeVertex ch107st2[] = -{ - {45.2381f,38.0952f}, - {78.5715f,0.0f} -}; - -static const SFG_StrokeStrip ch107st[] = -{ - {2,ch107st0}, - {2,ch107st1}, - {2,ch107st2} -}; - -static const SFG_StrokeChar ch107 = {104.762f,3,ch107st}; - -/* char: 0x6c */ - -static const SFG_StrokeVertex ch108st0[] = -{ - {52.381f,100.0f}, - {52.381f,0.0f} -}; - -static const SFG_StrokeStrip ch108st[] = -{ - {2,ch108st0} -}; - -static const SFG_StrokeChar ch108 = {104.762f,1,ch108st}; - -/* char: 0x6d */ - -static const SFG_StrokeVertex ch109st0[] = -{ - {0,66.6667f}, - {0,0.0f} -}; - -static const SFG_StrokeVertex ch109st1[] = -{ - {0,47.619f}, - {14.2857f,61.9048f}, - {23.8095f,66.6667f}, - {38.0952f,66.6667f}, - {47.619f,61.9048f}, - {52.381f,47.619f}, - {52.381f,0.0f} -}; - -static const SFG_StrokeVertex ch109st2[] = -{ - {52.381f,47.619f}, - {66.6667f,61.9048f}, - {76.1905f,66.6667f}, - {90.4762f,66.6667f}, - {100.0f,61.9048f}, - {104.762f,47.619f}, - {104.762f,0.0f} -}; - -static const SFG_StrokeStrip ch109st[] = -{ - {2,ch109st0}, - {7,ch109st1}, - {7,ch109st2} -}; - -static const SFG_StrokeChar ch109 = {104.762f,3,ch109st}; - -/* char: 0x6e */ - -static const SFG_StrokeVertex ch110st0[] = -{ - {26.1905f,66.6667f}, - {26.1905f,0.0f} -}; - -static const SFG_StrokeVertex ch110st1[] = -{ - {26.1905f,47.619f}, - {40.4762f,61.9048f}, - {50.0f,66.6667f}, - {64.2857f,66.6667f}, - {73.8095f,61.9048f}, - {78.5715f,47.619f}, - {78.5715f,0.0f} -}; - -static const SFG_StrokeStrip ch110st[] = -{ - {2,ch110st0}, - {7,ch110st1} -}; - -static const SFG_StrokeChar ch110 = {104.762f,2,ch110st}; - -/* char: 0x6f */ - -static const SFG_StrokeVertex ch111st0[] = -{ - {45.2381f,66.6667f}, - {35.7143f,61.9048f}, - {26.1905f,52.381f}, - {21.4286f,38.0952f}, - {21.4286f,28.5714f}, - {26.1905f,14.2857f}, - {35.7143f,4.7619f}, - {45.2381f,0.0f}, - {59.5238f,0.0f}, - {69.0476f,4.7619f}, - {78.5714f,14.2857f}, - {83.3334f,28.5714f}, - {83.3334f,38.0952f}, - {78.5714f,52.381f}, - {69.0476f,61.9048f}, - {59.5238f,66.6667f}, - {45.2381f,66.6667f} -}; - -static const SFG_StrokeStrip ch111st[] = -{ - {17,ch111st0} -}; - -static const SFG_StrokeChar ch111 = {104.762f,1,ch111st}; - -/* char: 0x70 */ - -static const SFG_StrokeVertex ch112st0[] = -{ - {23.8095f,66.6667f}, - {23.8095f,-33.3333f} -}; - -static const SFG_StrokeVertex ch112st1[] = -{ - {23.8095f,52.381f}, - {33.3333f,61.9048f}, - {42.8571f,66.6667f}, - {57.1428f,66.6667f}, - {66.6666f,61.9048f}, - {76.1905f,52.381f}, - {80.9524f,38.0952f}, - {80.9524f,28.5714f}, - {76.1905f,14.2857f}, - {66.6666f,4.7619f}, - {57.1428f,0.0f}, - {42.8571f,0.0f}, - {33.3333f,4.7619f}, - {23.8095f,14.2857f} -}; - -static const SFG_StrokeStrip ch112st[] = -{ - {2,ch112st0}, - {14,ch112st1} -}; - -static const SFG_StrokeChar ch112 = {104.762f,2,ch112st}; - -/* char: 0x71 */ - -static const SFG_StrokeVertex ch113st0[] = -{ - {80.9524f,66.6667f}, - {80.9524f,-33.3333f} -}; - -static const SFG_StrokeVertex ch113st1[] = -{ - {80.9524f,52.381f}, - {71.4285f,61.9048f}, - {61.9047f,66.6667f}, - {47.619f,66.6667f}, - {38.0952f,61.9048f}, - {28.5714f,52.381f}, - {23.8095f,38.0952f}, - {23.8095f,28.5714f}, - {28.5714f,14.2857f}, - {38.0952f,4.7619f}, - {47.619f,0.0f}, - {61.9047f,0.0f}, - {71.4285f,4.7619f}, - {80.9524f,14.2857f} -}; - -static const SFG_StrokeStrip ch113st[] = -{ - {2,ch113st0}, - {14,ch113st1} -}; - -static const SFG_StrokeChar ch113 = {104.762f,2,ch113st}; - -/* char: 0x72 */ - -static const SFG_StrokeVertex ch114st0[] = -{ - {33.3334f,66.6667f}, - {33.3334f,0.0f} -}; - -static const SFG_StrokeVertex ch114st1[] = -{ - {33.3334f,38.0952f}, - {38.0953f,52.381f}, - {47.6191f,61.9048f}, - {57.1429f,66.6667f}, - {71.4286f,66.6667f} -}; - -static const SFG_StrokeStrip ch114st[] = -{ - {2,ch114st0}, - {5,ch114st1} -}; - -static const SFG_StrokeChar ch114 = {104.762f,2,ch114st}; - -/* char: 0x73 */ - -static const SFG_StrokeVertex ch115st0[] = -{ - {78.5715f,52.381f}, - {73.8095f,61.9048f}, - {59.5238f,66.6667f}, - {45.2381f,66.6667f}, - {30.9524f,61.9048f}, - {26.1905f,52.381f}, - {30.9524f,42.8571f}, - {40.4762f,38.0952f}, - {64.2857f,33.3333f}, - {73.8095f,28.5714f}, - {78.5715f,19.0476f}, - {78.5715f,14.2857f}, - {73.8095f,4.7619f}, - {59.5238f,0.0f}, - {45.2381f,0.0f}, - {30.9524f,4.7619f}, - {26.1905f,14.2857f} -}; - -static const SFG_StrokeStrip ch115st[] = -{ - {17,ch115st0} -}; - -static const SFG_StrokeChar ch115 = {104.762f,1,ch115st}; - -/* char: 0x74 */ - -static const SFG_StrokeVertex ch116st0[] = -{ - {47.6191f,100.0f}, - {47.6191f,19.0476f}, - {52.381f,4.7619f}, - {61.9048f,0.0f}, - {71.4286f,0.0f} -}; - -static const SFG_StrokeVertex ch116st1[] = -{ - {33.3334f,66.6667f}, - {66.6667f,66.6667f} -}; - -static const SFG_StrokeStrip ch116st[] = -{ - {5,ch116st0}, - {2,ch116st1} -}; - -static const SFG_StrokeChar ch116 = {104.762f,2,ch116st}; - -/* char: 0x75 */ - -static const SFG_StrokeVertex ch117st0[] = -{ - {26.1905f,66.6667f}, - {26.1905f,19.0476f}, - {30.9524f,4.7619f}, - {40.4762f,0.0f}, - {54.7619f,0.0f}, - {64.2857f,4.7619f}, - {78.5715f,19.0476f} -}; - -static const SFG_StrokeVertex ch117st1[] = -{ - {78.5715f,66.6667f}, - {78.5715f,0.0f} -}; - -static const SFG_StrokeStrip ch117st[] = -{ - {7,ch117st0}, - {2,ch117st1} -}; - -static const SFG_StrokeChar ch117 = {104.762f,2,ch117st}; - -/* char: 0x76 */ - -static const SFG_StrokeVertex ch118st0[] = -{ - {23.8095f,66.6667f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeVertex ch118st1[] = -{ - {80.9524f,66.6667f}, - {52.3809f,0.0f} -}; - -static const SFG_StrokeStrip ch118st[] = -{ - {2,ch118st0}, - {2,ch118st1} -}; - -static const SFG_StrokeChar ch118 = {104.762f,2,ch118st}; - -/* char: 0x77 */ - -static const SFG_StrokeVertex ch119st0[] = -{ - {14.2857f,66.6667f}, - {33.3333f,0.0f} -}; - -static const SFG_StrokeVertex ch119st1[] = -{ - {52.3809f,66.6667f}, - {33.3333f,0.0f} -}; - -static const SFG_StrokeVertex ch119st2[] = -{ - {52.3809f,66.6667f}, - {71.4286f,0.0f} -}; - -static const SFG_StrokeVertex ch119st3[] = -{ - {90.4762f,66.6667f}, - {71.4286f,0.0f} -}; - -static const SFG_StrokeStrip ch119st[] = -{ - {2,ch119st0}, - {2,ch119st1}, - {2,ch119st2}, - {2,ch119st3} -}; - -static const SFG_StrokeChar ch119 = {104.762f,4,ch119st}; - -/* char: 0x78 */ - -static const SFG_StrokeVertex ch120st0[] = -{ - {26.1905f,66.6667f}, - {78.5715f,0.0f} -}; - -static const SFG_StrokeVertex ch120st1[] = -{ - {78.5715f,66.6667f}, - {26.1905f,0.0f} -}; - -static const SFG_StrokeStrip ch120st[] = -{ - {2,ch120st0}, - {2,ch120st1} -}; - -static const SFG_StrokeChar ch120 = {104.762f,2,ch120st}; - -/* char: 0x79 */ - -static const SFG_StrokeVertex ch121st0[] = -{ - {26.1905f,66.6667f}, - {54.7619f,0.0f} -}; - -static const SFG_StrokeVertex ch121st1[] = -{ - {83.3334f,66.6667f}, - {54.7619f,0.0f}, - {45.2381f,-19.0476f}, - {35.7143f,-28.5714f}, - {26.1905f,-33.3333f}, - {21.4286f,-33.3333f} -}; - -static const SFG_StrokeStrip ch121st[] = -{ - {2,ch121st0}, - {6,ch121st1} -}; - -static const SFG_StrokeChar ch121 = {104.762f,2,ch121st}; - -/* char: 0x7a */ - -static const SFG_StrokeVertex ch122st0[] = -{ - {78.5715f,66.6667f}, - {26.1905f,0.0f} -}; - -static const SFG_StrokeVertex ch122st1[] = -{ - {26.1905f,66.6667f}, - {78.5715f,66.6667f} -}; - -static const SFG_StrokeVertex ch122st2[] = -{ - {26.1905f,0.0f}, - {78.5715f,0.0f} -}; - -static const SFG_StrokeStrip ch122st[] = -{ - {2,ch122st0}, - {2,ch122st1}, - {2,ch122st2} -}; - -static const SFG_StrokeChar ch122 = {104.762f,3,ch122st}; - -/* char: 0x7b */ - -static const SFG_StrokeVertex ch123st0[] = -{ - {64.2857f,119.048f}, - {54.7619f,114.286f}, - {50.0f,109.524f}, - {45.2381f,100.0f}, - {45.2381f,90.4762f}, - {50.0f,80.9524f}, - {54.7619f,76.1905f}, - {59.5238f,66.6667f}, - {59.5238f,57.1429f}, - {50.0f,47.619f} -}; - -static const SFG_StrokeVertex ch123st1[] = -{ - {54.7619f,114.286f}, - {50.0f,104.762f}, - {50.0f,95.2381f}, - {54.7619f,85.7143f}, - {59.5238f,80.9524f}, - {64.2857f,71.4286f}, - {64.2857f,61.9048f}, - {59.5238f,52.381f}, - {40.4762f,42.8571f}, - {59.5238f,33.3333f}, - {64.2857f,23.8095f}, - {64.2857f,14.2857f}, - {59.5238f,4.7619f}, - {54.7619f,0.0f}, - {50.0f,-9.5238f}, - {50.0f,-19.0476f}, - {54.7619f,-28.5714f} -}; - -static const SFG_StrokeVertex ch123st2[] = -{ - {50.0f,38.0952f}, - {59.5238f,28.5714f}, - {59.5238f,19.0476f}, - {54.7619f,9.5238f}, - {50.0f,4.7619f}, - {45.2381f,-4.7619f}, - {45.2381f,-14.2857f}, - {50.0f,-23.8095f}, - {54.7619f,-28.5714f}, - {64.2857f,-33.3333f} -}; - -static const SFG_StrokeStrip ch123st[] = -{ - {10,ch123st0}, - {17,ch123st1}, - {10,ch123st2} -}; - -static const SFG_StrokeChar ch123 = {104.762f,3,ch123st}; - -/* char: 0x7c */ - -static const SFG_StrokeVertex ch124st0[] = -{ - {52.381f,119.048f}, - {52.381f,-33.3333f} -}; - -static const SFG_StrokeStrip ch124st[] = -{ - {2,ch124st0} -}; - -static const SFG_StrokeChar ch124 = {104.762f,1,ch124st}; - -/* char: 0x7d */ - -static const SFG_StrokeVertex ch125st0[] = -{ - {40.4762f,119.048f}, - {50.0f,114.286f}, - {54.7619f,109.524f}, - {59.5238f,100.0f}, - {59.5238f,90.4762f}, - {54.7619f,80.9524f}, - {50.0f,76.1905f}, - {45.2381f,66.6667f}, - {45.2381f,57.1429f}, - {54.7619f,47.619f} -}; - -static const SFG_StrokeVertex ch125st1[] = -{ - {50.0f,114.286f}, - {54.7619f,104.762f}, - {54.7619f,95.2381f}, - {50.0f,85.7143f}, - {45.2381f,80.9524f}, - {40.4762f,71.4286f}, - {40.4762f,61.9048f}, - {45.2381f,52.381f}, - {64.2857f,42.8571f}, - {45.2381f,33.3333f}, - {40.4762f,23.8095f}, - {40.4762f,14.2857f}, - {45.2381f,4.7619f}, - {50.0f,0.0f}, - {54.7619f,-9.5238f}, - {54.7619f,-19.0476f}, - {50.0f,-28.5714f} -}; - -static const SFG_StrokeVertex ch125st2[] = -{ - {54.7619f,38.0952f}, - {45.2381f,28.5714f}, - {45.2381f,19.0476f}, - {50.0f,9.5238f}, - {54.7619f,4.7619f}, - {59.5238f,-4.7619f}, - {59.5238f,-14.2857f}, - {54.7619f,-23.8095f}, - {50.0f,-28.5714f}, - {40.4762f,-33.3333f} -}; - -static const SFG_StrokeStrip ch125st[] = -{ - {10,ch125st0}, - {17,ch125st1}, - {10,ch125st2} -}; - -static const SFG_StrokeChar ch125 = {104.762f,3,ch125st}; - -/* char: 0x7e */ - -static const SFG_StrokeVertex ch126st0[] = -{ - {9.5238f,28.5714f}, - {9.5238f,38.0952f}, - {14.2857f,52.381f}, - {23.8095f,57.1429f}, - {33.3333f,57.1429f}, - {42.8571f,52.381f}, - {61.9048f,38.0952f}, - {71.4286f,33.3333f}, - {80.9524f,33.3333f}, - {90.4762f,38.0952f}, - {95.2381f,47.619f} -}; - -static const SFG_StrokeVertex ch126st1[] = -{ - {9.5238f,38.0952f}, - {14.2857f,47.619f}, - {23.8095f,52.381f}, - {33.3333f,52.381f}, - {42.8571f,47.619f}, - {61.9048f,33.3333f}, - {71.4286f,28.5714f}, - {80.9524f,28.5714f}, - {90.4762f,33.3333f}, - {95.2381f,47.619f}, - {95.2381f,57.1429f} -}; - -static const SFG_StrokeStrip ch126st[] = -{ - {11,ch126st0}, - {11,ch126st1} -}; - -static const SFG_StrokeChar ch126 = {104.762f,2,ch126st}; - -/* char: 0x7f */ - -static const SFG_StrokeVertex ch127st0[] = -{ - {71.4286f,100.0f}, - {33.3333f,-33.3333f} -}; - -static const SFG_StrokeVertex ch127st1[] = -{ - {47.619f,66.6667f}, - {33.3333f,61.9048f}, - {23.8095f,52.381f}, - {19.0476f,38.0952f}, - {19.0476f,23.8095f}, - {23.8095f,14.2857f}, - {33.3333f,4.7619f}, - {47.619f,0.0f}, - {57.1428f,0.0f}, - {71.4286f,4.7619f}, - {80.9524f,14.2857f}, - {85.7143f,28.5714f}, - {85.7143f,42.8571f}, - {80.9524f,52.381f}, - {71.4286f,61.9048f}, - {57.1428f,66.6667f}, - {47.619f,66.6667f} -}; - -static const SFG_StrokeStrip ch127st[] = -{ - {2,ch127st0}, - {17,ch127st1} -}; - -static const SFG_StrokeChar ch127 = {104.762f,2,ch127st}; - -static const SFG_StrokeChar *chars[] = -{ - 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, - &ch32, &ch33, &ch34, &ch35, &ch36, &ch37, &ch38, &ch39, - &ch40, &ch41, &ch42, &ch43, &ch44, &ch45, &ch46, &ch47, - &ch48, &ch49, &ch50, &ch51, &ch52, &ch53, &ch54, &ch55, - &ch56, &ch57, &ch58, &ch59, &ch60, &ch61, &ch62, &ch63, - &ch64, &ch65, &ch66, &ch67, &ch68, &ch69, &ch70, &ch71, - &ch72, &ch73, &ch74, &ch75, &ch76, &ch77, &ch78, &ch79, - &ch80, &ch81, &ch82, &ch83, &ch84, &ch85, &ch86, &ch87, - &ch88, &ch89, &ch90, &ch91, &ch92, &ch93, &ch94, &ch95, - &ch96, &ch97, &ch98, &ch99, &ch100, &ch101, &ch102, &ch103, - &ch104, &ch105, &ch106, &ch107, &ch108, &ch109, &ch110, &ch111, - &ch112, &ch113, &ch114, &ch115, &ch116, &ch117, &ch118, &ch119, - &ch120, &ch121, &ch122, &ch123, &ch124, &ch125, &ch126, &ch127 -}; - -const SFG_StrokeFont fgStrokeMonoRoman = {"MonoRoman",128,152.381f,chars}; diff --git a/internal/c/parts/core/android_core/src/fg_stroke_roman.c b/internal/c/parts/core/android_core/src/fg_stroke_roman.c deleted file mode 100644 index db16dbdbe..000000000 --- a/internal/c/parts/core/android_core/src/fg_stroke_roman.c +++ /dev/null @@ -1,2849 +0,0 @@ -/* - * freeglut_stroke_roman.c - * - * freeglut Roman stroke font definition - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - - -/* This file has been automatically generated by the genstroke utility. */ - -#include -#include "fg_internal.h" - -/* char: 0x20 */ - -static const SFG_StrokeStrip ch32st[] = -{ - { 0, NULL } -}; - -static const SFG_StrokeChar ch32 = {104.762f,0,ch32st}; - -/* char: 0x21 */ - -static const SFG_StrokeVertex ch33st0[] = -{ - {13.3819f,100.0f}, - {13.3819f,33.3333f} -}; - -static const SFG_StrokeVertex ch33st1[] = -{ - {13.3819f,9.5238f}, - {8.62f,4.7619f}, - {13.3819f,0.0f}, - {18.1438f,4.7619f}, - {13.3819f,9.5238f} -}; - -static const SFG_StrokeStrip ch33st[] = -{ - {2,ch33st0}, - {5,ch33st1} -}; - -static const SFG_StrokeChar ch33 = {26.6238f,2,ch33st}; - -/* char: 0x22 */ - -static const SFG_StrokeVertex ch34st0[] = -{ - {4.02f,100.0f}, - {4.02f,66.6667f} -}; - -static const SFG_StrokeVertex ch34st1[] = -{ - {42.1152f,100.0f}, - {42.1152f,66.6667f} -}; - -static const SFG_StrokeStrip ch34st[] = -{ - {2,ch34st0}, - {2,ch34st1} -}; - -static const SFG_StrokeChar ch34 = {51.4352f,2,ch34st}; - -/* char: 0x23 */ - -static const SFG_StrokeVertex ch35st0[] = -{ - {41.2952f,119.048f}, - {7.9619f,-33.3333f} -}; - -static const SFG_StrokeVertex ch35st1[] = -{ - {69.8667f,119.048f}, - {36.5333f,-33.3333f} -}; - -static const SFG_StrokeVertex ch35st2[] = -{ - {7.9619f,57.1429f}, - {74.6286f,57.1429f} -}; - -static const SFG_StrokeVertex ch35st3[] = -{ - {3.2f,28.5714f}, - {69.8667f,28.5714f} -}; - -static const SFG_StrokeStrip ch35st[] = -{ - {2,ch35st0}, - {2,ch35st1}, - {2,ch35st2}, - {2,ch35st3} -}; - -static const SFG_StrokeChar ch35 = {79.4886f,4,ch35st}; - -/* char: 0x24 */ - -static const SFG_StrokeVertex ch36st0[] = -{ - {28.6295f,119.048f}, - {28.6295f,-19.0476f} -}; - -static const SFG_StrokeVertex ch36st1[] = -{ - {47.6771f,119.048f}, - {47.6771f,-19.0476f} -}; - -static const SFG_StrokeVertex ch36st2[] = -{ - {71.4867f,85.7143f}, - {61.9629f,95.2381f}, - {47.6771f,100.0f}, - {28.6295f,100.0f}, - {14.3438f,95.2381f}, - {4.82f,85.7143f}, - {4.82f,76.1905f}, - {9.5819f,66.6667f}, - {14.3438f,61.9048f}, - {23.8676f,57.1429f}, - {52.439f,47.619f}, - {61.9629f,42.8571f}, - {66.7248f,38.0952f}, - {71.4867f,28.5714f}, - {71.4867f,14.2857f}, - {61.9629f,4.7619f}, - {47.6771f,0.0f}, - {28.6295f,0.0f}, - {14.3438f,4.7619f}, - {4.82f,14.2857f} -}; - -static const SFG_StrokeStrip ch36st[] = -{ - {2,ch36st0}, - {2,ch36st1}, - {20,ch36st2} -}; - -static const SFG_StrokeChar ch36 = {76.2067f,3,ch36st}; - -/* char: 0x25 */ - -static const SFG_StrokeVertex ch37st0[] = -{ - {92.0743f,100.0f}, - {6.36f,0.0f} -}; - -static const SFG_StrokeVertex ch37st1[] = -{ - {30.1695f,100.0f}, - {39.6933f,90.4762f}, - {39.6933f,80.9524f}, - {34.9314f,71.4286f}, - {25.4076f,66.6667f}, - {15.8838f,66.6667f}, - {6.36f,76.1905f}, - {6.36f,85.7143f}, - {11.1219f,95.2381f}, - {20.6457f,100.0f}, - {30.1695f,100.0f}, - {39.6933f,95.2381f}, - {53.979f,90.4762f}, - {68.2648f,90.4762f}, - {82.5505f,95.2381f}, - {92.0743f,100.0f} -}; - -static const SFG_StrokeVertex ch37st2[] = -{ - {73.0267f,33.3333f}, - {63.5029f,28.5714f}, - {58.741f,19.0476f}, - {58.741f,9.5238f}, - {68.2648f,0.0f}, - {77.7886f,0.0f}, - {87.3124f,4.7619f}, - {92.0743f,14.2857f}, - {92.0743f,23.8095f}, - {82.5505f,33.3333f}, - {73.0267f,33.3333f} -}; - -static const SFG_StrokeStrip ch37st[] = -{ - {2,ch37st0}, - {16,ch37st1}, - {11,ch37st2} -}; - -static const SFG_StrokeChar ch37 = {96.5743f,3,ch37st}; - -/* char: 0x26 */ - -static const SFG_StrokeVertex ch38st0[] = -{ - {101.218f,57.1429f}, - {101.218f,61.9048f}, - {96.4562f,66.6667f}, - {91.6943f,66.6667f}, - {86.9324f,61.9048f}, - {82.1705f,52.381f}, - {72.6467f,28.5714f}, - {63.1229f,14.2857f}, - {53.599f,4.7619f}, - {44.0752f,0.0f}, - {25.0276f,0.0f}, - {15.5038f,4.7619f}, - {10.7419f,9.5238f}, - {5.98f,19.0476f}, - {5.98f,28.5714f}, - {10.7419f,38.0952f}, - {15.5038f,42.8571f}, - {48.8371f,61.9048f}, - {53.599f,66.6667f}, - {58.361f,76.1905f}, - {58.361f,85.7143f}, - {53.599f,95.2381f}, - {44.0752f,100.0f}, - {34.5514f,95.2381f}, - {29.7895f,85.7143f}, - {29.7895f,76.1905f}, - {34.5514f,61.9048f}, - {44.0752f,47.619f}, - {67.8848f,14.2857f}, - {77.4086f,4.7619f}, - {86.9324f,0.0f}, - {96.4562f,0.0f}, - {101.218f,4.7619f}, - {101.218f,9.5238f} -}; - -static const SFG_StrokeStrip ch38st[] = -{ - {34,ch38st0} -}; - -static const SFG_StrokeChar ch38 = {101.758f,1,ch38st}; - -/* char: 0x27 */ - -static const SFG_StrokeVertex ch39st0[] = -{ - {4.44f,100.0f}, - {4.44f,66.6667f} -}; - -static const SFG_StrokeStrip ch39st[] = -{ - {2,ch39st0} -}; - -static const SFG_StrokeChar ch39 = {13.62f,1,ch39st}; - -/* char: 0x28 */ - -static const SFG_StrokeVertex ch40st0[] = -{ - {40.9133f,119.048f}, - {31.3895f,109.524f}, - {21.8657f,95.2381f}, - {12.3419f,76.1905f}, - {7.58f,52.381f}, - {7.58f,33.3333f}, - {12.3419f,9.5238f}, - {21.8657f,-9.5238f}, - {31.3895f,-23.8095f}, - {40.9133f,-33.3333f} -}; - -static const SFG_StrokeStrip ch40st[] = -{ - {10,ch40st0} -}; - -static const SFG_StrokeChar ch40 = {47.1733f,1,ch40st}; - -/* char: 0x29 */ - -static const SFG_StrokeVertex ch41st0[] = -{ - {5.28f,119.048f}, - {14.8038f,109.524f}, - {24.3276f,95.2381f}, - {33.8514f,76.1905f}, - {38.6133f,52.381f}, - {38.6133f,33.3333f}, - {33.8514f,9.5238f}, - {24.3276f,-9.5238f}, - {14.8038f,-23.8095f}, - {5.28f,-33.3333f} -}; - -static const SFG_StrokeStrip ch41st[] = -{ - {10,ch41st0} -}; - -static const SFG_StrokeChar ch41 = {47.5333f,1,ch41st}; - -/* char: 0x2a */ - -static const SFG_StrokeVertex ch42st0[] = -{ - {30.7695f,71.4286f}, - {30.7695f,14.2857f} -}; - -static const SFG_StrokeVertex ch42st1[] = -{ - {6.96f,57.1429f}, - {54.579f,28.5714f} -}; - -static const SFG_StrokeVertex ch42st2[] = -{ - {54.579f,57.1429f}, - {6.96f,28.5714f} -}; - -static const SFG_StrokeStrip ch42st[] = -{ - {2,ch42st0}, - {2,ch42st1}, - {2,ch42st2} -}; - -static const SFG_StrokeChar ch42 = {59.439f,3,ch42st}; - -/* char: 0x2b */ - -static const SFG_StrokeVertex ch43st0[] = -{ - {48.8371f,85.7143f}, - {48.8371f,0.0f} -}; - -static const SFG_StrokeVertex ch43st1[] = -{ - {5.98f,42.8571f}, - {91.6943f,42.8571f} -}; - -static const SFG_StrokeStrip ch43st[] = -{ - {2,ch43st0}, - {2,ch43st1} -}; - -static const SFG_StrokeChar ch43 = {97.2543f,2,ch43st}; - -/* char: 0x2c */ - -static const SFG_StrokeVertex ch44st0[] = -{ - {18.2838f,4.7619f}, - {13.5219f,0.0f}, - {8.76f,4.7619f}, - {13.5219f,9.5238f}, - {18.2838f,4.7619f}, - {18.2838f,-4.7619f}, - {13.5219f,-14.2857f}, - {8.76f,-19.0476f} -}; - -static const SFG_StrokeStrip ch44st[] = -{ - {8,ch44st0} -}; - -static const SFG_StrokeChar ch44 = {26.0638f,1,ch44st}; - -/* char: 0x2d */ - -static const SFG_StrokeVertex ch45st0[] = -{ - {7.38f,42.8571f}, - {93.0943f,42.8571f} -}; - -static const SFG_StrokeStrip ch45st[] = -{ - {2,ch45st0} -}; - -static const SFG_StrokeChar ch45 = {100.754f,1,ch45st}; - -/* char: 0x2e */ - -static const SFG_StrokeVertex ch46st0[] = -{ - {13.1019f,9.5238f}, - {8.34f,4.7619f}, - {13.1019f,0.0f}, - {17.8638f,4.7619f}, - {13.1019f,9.5238f} -}; - -static const SFG_StrokeStrip ch46st[] = -{ - {5,ch46st0} -}; - -static const SFG_StrokeChar ch46 = {26.4838f,1,ch46st}; - -/* char: 0x2f */ - -static const SFG_StrokeVertex ch47st0[] = -{ - {7.24f,-14.2857f}, - {73.9067f,100.0f} -}; - -static const SFG_StrokeStrip ch47st[] = -{ - {2,ch47st0} -}; - -static const SFG_StrokeChar ch47 = {82.1067f,1,ch47st}; - -/* char: 0x30 */ - -static const SFG_StrokeVertex ch48st0[] = -{ - {33.5514f,100.0f}, - {19.2657f,95.2381f}, - {9.7419f,80.9524f}, - {4.98f,57.1429f}, - {4.98f,42.8571f}, - {9.7419f,19.0476f}, - {19.2657f,4.7619f}, - {33.5514f,0.0f}, - {43.0752f,0.0f}, - {57.361f,4.7619f}, - {66.8848f,19.0476f}, - {71.6467f,42.8571f}, - {71.6467f,57.1429f}, - {66.8848f,80.9524f}, - {57.361f,95.2381f}, - {43.0752f,100.0f}, - {33.5514f,100.0f} -}; - -static const SFG_StrokeStrip ch48st[] = -{ - {17,ch48st0} -}; - -static const SFG_StrokeChar ch48 = {77.0667f,1,ch48st}; - -/* char: 0x31 */ - -static const SFG_StrokeVertex ch49st0[] = -{ - {11.82f,80.9524f}, - {21.3438f,85.7143f}, - {35.6295f,100.0f}, - {35.6295f,0.0f} -}; - -static const SFG_StrokeStrip ch49st[] = -{ - {4,ch49st0} -}; - -static const SFG_StrokeChar ch49 = {66.5295f,1,ch49st}; - -/* char: 0x32 */ - -static const SFG_StrokeVertex ch50st0[] = -{ - {10.1819f,76.1905f}, - {10.1819f,80.9524f}, - {14.9438f,90.4762f}, - {19.7057f,95.2381f}, - {29.2295f,100.0f}, - {48.2771f,100.0f}, - {57.801f,95.2381f}, - {62.5629f,90.4762f}, - {67.3248f,80.9524f}, - {67.3248f,71.4286f}, - {62.5629f,61.9048f}, - {53.039f,47.619f}, - {5.42f,0.0f}, - {72.0867f,0.0f} -}; - -static const SFG_StrokeStrip ch50st[] = -{ - {14,ch50st0} -}; - -static const SFG_StrokeChar ch50 = {77.6467f,1,ch50st}; - -/* char: 0x33 */ - -static const SFG_StrokeVertex ch51st0[] = -{ - {14.5238f,100.0f}, - {66.9048f,100.0f}, - {38.3333f,61.9048f}, - {52.619f,61.9048f}, - {62.1429f,57.1429f}, - {66.9048f,52.381f}, - {71.6667f,38.0952f}, - {71.6667f,28.5714f}, - {66.9048f,14.2857f}, - {57.381f,4.7619f}, - {43.0952f,0.0f}, - {28.8095f,0.0f}, - {14.5238f,4.7619f}, - {9.7619f,9.5238f}, - {5.0f,19.0476f} -}; - -static const SFG_StrokeStrip ch51st[] = -{ - {15,ch51st0} -}; - -static const SFG_StrokeChar ch51 = {77.0467f,1,ch51st}; - -/* char: 0x34 */ - -static const SFG_StrokeVertex ch52st0[] = -{ - {51.499f,100.0f}, - {3.88f,33.3333f}, - {75.3086f,33.3333f} -}; - -static const SFG_StrokeVertex ch52st1[] = -{ - {51.499f,100.0f}, - {51.499f,0.0f} -}; - -static const SFG_StrokeStrip ch52st[] = -{ - {3,ch52st0}, - {2,ch52st1} -}; - -static const SFG_StrokeChar ch52 = {80.1686f,2,ch52st}; - -/* char: 0x35 */ - -static const SFG_StrokeVertex ch53st0[] = -{ - {62.0029f,100.0f}, - {14.3838f,100.0f}, - {9.6219f,57.1429f}, - {14.3838f,61.9048f}, - {28.6695f,66.6667f}, - {42.9552f,66.6667f}, - {57.241f,61.9048f}, - {66.7648f,52.381f}, - {71.5267f,38.0952f}, - {71.5267f,28.5714f}, - {66.7648f,14.2857f}, - {57.241f,4.7619f}, - {42.9552f,0.0f}, - {28.6695f,0.0f}, - {14.3838f,4.7619f}, - {9.6219f,9.5238f}, - {4.86f,19.0476f} -}; - -static const SFG_StrokeStrip ch53st[] = -{ - {17,ch53st0} -}; - -static const SFG_StrokeChar ch53 = {77.6867f,1,ch53st}; - -/* char: 0x36 */ - -static const SFG_StrokeVertex ch54st0[] = -{ - {62.7229f,85.7143f}, - {57.961f,95.2381f}, - {43.6752f,100.0f}, - {34.1514f,100.0f}, - {19.8657f,95.2381f}, - {10.3419f,80.9524f}, - {5.58f,57.1429f}, - {5.58f,33.3333f}, - {10.3419f,14.2857f}, - {19.8657f,4.7619f}, - {34.1514f,0.0f}, - {38.9133f,0.0f}, - {53.199f,4.7619f}, - {62.7229f,14.2857f}, - {67.4848f,28.5714f}, - {67.4848f,33.3333f}, - {62.7229f,47.619f}, - {53.199f,57.1429f}, - {38.9133f,61.9048f}, - {34.1514f,61.9048f}, - {19.8657f,57.1429f}, - {10.3419f,47.619f}, - {5.58f,33.3333f} -}; - -static const SFG_StrokeStrip ch54st[] = -{ - {23,ch54st0} -}; - -static const SFG_StrokeChar ch54 = {73.8048f,1,ch54st}; - -/* char: 0x37 */ - -static const SFG_StrokeVertex ch55st0[] = -{ - {72.2267f,100.0f}, - {24.6076f,0.0f} -}; - -static const SFG_StrokeVertex ch55st1[] = -{ - {5.56f,100.0f}, - {72.2267f,100.0f} -}; - -static const SFG_StrokeStrip ch55st[] = -{ - {2,ch55st0}, - {2,ch55st1} -}; - -static const SFG_StrokeChar ch55 = {77.2267f,2,ch55st}; - -/* char: 0x38 */ - -static const SFG_StrokeVertex ch56st0[] = -{ - {29.4095f,100.0f}, - {15.1238f,95.2381f}, - {10.3619f,85.7143f}, - {10.3619f,76.1905f}, - {15.1238f,66.6667f}, - {24.6476f,61.9048f}, - {43.6952f,57.1429f}, - {57.981f,52.381f}, - {67.5048f,42.8571f}, - {72.2667f,33.3333f}, - {72.2667f,19.0476f}, - {67.5048f,9.5238f}, - {62.7429f,4.7619f}, - {48.4571f,0.0f}, - {29.4095f,0.0f}, - {15.1238f,4.7619f}, - {10.3619f,9.5238f}, - {5.6f,19.0476f}, - {5.6f,33.3333f}, - {10.3619f,42.8571f}, - {19.8857f,52.381f}, - {34.1714f,57.1429f}, - {53.219f,61.9048f}, - {62.7429f,66.6667f}, - {67.5048f,76.1905f}, - {67.5048f,85.7143f}, - {62.7429f,95.2381f}, - {48.4571f,100.0f}, - {29.4095f,100.0f} -}; - -static const SFG_StrokeStrip ch56st[] = -{ - {29,ch56st0} -}; - -static const SFG_StrokeChar ch56 = {77.6667f,1,ch56st}; - -/* char: 0x39 */ - -static const SFG_StrokeVertex ch57st0[] = -{ - {68.5048f,66.6667f}, - {63.7429f,52.381f}, - {54.219f,42.8571f}, - {39.9333f,38.0952f}, - {35.1714f,38.0952f}, - {20.8857f,42.8571f}, - {11.3619f,52.381f}, - {6.6f,66.6667f}, - {6.6f,71.4286f}, - {11.3619f,85.7143f}, - {20.8857f,95.2381f}, - {35.1714f,100.0f}, - {39.9333f,100.0f}, - {54.219f,95.2381f}, - {63.7429f,85.7143f}, - {68.5048f,66.6667f}, - {68.5048f,42.8571f}, - {63.7429f,19.0476f}, - {54.219f,4.7619f}, - {39.9333f,0.0f}, - {30.4095f,0.0f}, - {16.1238f,4.7619f}, - {11.3619f,14.2857f} -}; - -static const SFG_StrokeStrip ch57st[] = -{ - {23,ch57st0} -}; - -static const SFG_StrokeChar ch57 = {74.0648f,1,ch57st}; - -/* char: 0x3a */ - -static const SFG_StrokeVertex ch58st0[] = -{ - {14.0819f,66.6667f}, - {9.32f,61.9048f}, - {14.0819f,57.1429f}, - {18.8438f,61.9048f}, - {14.0819f,66.6667f} -}; - -static const SFG_StrokeVertex ch58st1[] = -{ - {14.0819f,9.5238f}, - {9.32f,4.7619f}, - {14.0819f,0.0f}, - {18.8438f,4.7619f}, - {14.0819f,9.5238f} -}; - -static const SFG_StrokeStrip ch58st[] = -{ - {5,ch58st0}, - {5,ch58st1} -}; - -static const SFG_StrokeChar ch58 = {26.2238f,2,ch58st}; - -/* char: 0x3b */ - -static const SFG_StrokeVertex ch59st0[] = -{ - {12.9619f,66.6667f}, - {8.2f,61.9048f}, - {12.9619f,57.1429f}, - {17.7238f,61.9048f}, - {12.9619f,66.6667f} -}; - -static const SFG_StrokeVertex ch59st1[] = -{ - {17.7238f,4.7619f}, - {12.9619f,0.0f}, - {8.2f,4.7619f}, - {12.9619f,9.5238f}, - {17.7238f,4.7619f}, - {17.7238f,-4.7619f}, - {12.9619f,-14.2857f}, - {8.2f,-19.0476f} -}; - -static const SFG_StrokeStrip ch59st[] = -{ - {5,ch59st0}, - {8,ch59st1} -}; - -static const SFG_StrokeChar ch59 = {26.3038f,2,ch59st}; - -/* char: 0x3c */ - -static const SFG_StrokeVertex ch60st0[] = -{ - {79.2505f,85.7143f}, - {3.06f,42.8571f}, - {79.2505f,0.0f} -}; - -static const SFG_StrokeStrip ch60st[] = -{ - {3,ch60st0} -}; - -static const SFG_StrokeChar ch60 = {81.6105f,1,ch60st}; - -/* char: 0x3d */ - -static const SFG_StrokeVertex ch61st0[] = -{ - {5.7f,57.1429f}, - {91.4143f,57.1429f} -}; - -static const SFG_StrokeVertex ch61st1[] = -{ - {5.7f,28.5714f}, - {91.4143f,28.5714f} -}; - -static const SFG_StrokeStrip ch61st[] = -{ - {2,ch61st0}, - {2,ch61st1} -}; - -static const SFG_StrokeChar ch61 = {97.2543f,2,ch61st}; - -/* char: 0x3e */ - -static const SFG_StrokeVertex ch62st0[] = -{ - {2.78f,85.7143f}, - {78.9705f,42.8571f}, - {2.78f,0.0f} -}; - -static const SFG_StrokeStrip ch62st[] = -{ - {3,ch62st0} -}; - -static const SFG_StrokeChar ch62 = {81.6105f,1,ch62st}; - -/* char: 0x3f */ - -static const SFG_StrokeVertex ch63st0[] = -{ - {8.42f,76.1905f}, - {8.42f,80.9524f}, - {13.1819f,90.4762f}, - {17.9438f,95.2381f}, - {27.4676f,100.0f}, - {46.5152f,100.0f}, - {56.039f,95.2381f}, - {60.801f,90.4762f}, - {65.5629f,80.9524f}, - {65.5629f,71.4286f}, - {60.801f,61.9048f}, - {56.039f,57.1429f}, - {36.9914f,47.619f}, - {36.9914f,33.3333f} -}; - -static const SFG_StrokeVertex ch63st1[] = -{ - {36.9914f,9.5238f}, - {32.2295f,4.7619f}, - {36.9914f,0.0f}, - {41.7533f,4.7619f}, - {36.9914f,9.5238f} -}; - -static const SFG_StrokeStrip ch63st[] = -{ - {14,ch63st0}, - {5,ch63st1} -}; - -static const SFG_StrokeChar ch63 = {73.9029f,2,ch63st}; - -/* char: 0x40 */ - -static const SFG_StrokeVertex ch64st0[] = -{ - {49.2171f,52.381f}, - {39.6933f,57.1429f}, - {30.1695f,57.1429f}, - {25.4076f,47.619f}, - {25.4076f,42.8571f}, - {30.1695f,33.3333f}, - {39.6933f,33.3333f}, - {49.2171f,38.0952f} -}; - -static const SFG_StrokeVertex ch64st1[] = -{ - {49.2171f,57.1429f}, - {49.2171f,38.0952f}, - {53.979f,33.3333f}, - {63.5029f,33.3333f}, - {68.2648f,42.8571f}, - {68.2648f,47.619f}, - {63.5029f,61.9048f}, - {53.979f,71.4286f}, - {39.6933f,76.1905f}, - {34.9314f,76.1905f}, - {20.6457f,71.4286f}, - {11.1219f,61.9048f}, - {6.36f,47.619f}, - {6.36f,42.8571f}, - {11.1219f,28.5714f}, - {20.6457f,19.0476f}, - {34.9314f,14.2857f}, - {39.6933f,14.2857f}, - {53.979f,19.0476f} -}; - -static const SFG_StrokeStrip ch64st[] = -{ - {8,ch64st0}, - {19,ch64st1} -}; - -static const SFG_StrokeChar ch64 = {74.3648f,2,ch64st}; - -/* char: 0x41 */ - -static const SFG_StrokeVertex ch65st0[] = -{ - {40.5952f,100.0f}, - {2.5f,0.0f} -}; - -static const SFG_StrokeVertex ch65st1[] = -{ - {40.5952f,100.0f}, - {78.6905f,0.0f} -}; - -static const SFG_StrokeVertex ch65st2[] = -{ - {16.7857f,33.3333f}, - {64.4048f,33.3333f} -}; - -static const SFG_StrokeStrip ch65st[] = -{ - {2,ch65st0}, - {2,ch65st1}, - {2,ch65st2} -}; - -static const SFG_StrokeChar ch65 = {80.4905f,3,ch65st}; - -/* char: 0x42 */ - -static const SFG_StrokeVertex ch66st0[] = -{ - {11.42f,100.0f}, - {11.42f,0.0f} -}; - -static const SFG_StrokeVertex ch66st1[] = -{ - {11.42f,100.0f}, - {54.2771f,100.0f}, - {68.5629f,95.2381f}, - {73.3248f,90.4762f}, - {78.0867f,80.9524f}, - {78.0867f,71.4286f}, - {73.3248f,61.9048f}, - {68.5629f,57.1429f}, - {54.2771f,52.381f} -}; - -static const SFG_StrokeVertex ch66st2[] = -{ - {11.42f,52.381f}, - {54.2771f,52.381f}, - {68.5629f,47.619f}, - {73.3248f,42.8571f}, - {78.0867f,33.3333f}, - {78.0867f,19.0476f}, - {73.3248f,9.5238f}, - {68.5629f,4.7619f}, - {54.2771f,0.0f}, - {11.42f,0.0f} -}; - -static const SFG_StrokeStrip ch66st[] = -{ - {2,ch66st0}, - {9,ch66st1}, - {10,ch66st2} -}; - -static const SFG_StrokeChar ch66 = {83.6267f,3,ch66st}; - -/* char: 0x43 */ - -static const SFG_StrokeVertex ch67st0[] = -{ - {78.0886f,76.1905f}, - {73.3267f,85.7143f}, - {63.8029f,95.2381f}, - {54.279f,100.0f}, - {35.2314f,100.0f}, - {25.7076f,95.2381f}, - {16.1838f,85.7143f}, - {11.4219f,76.1905f}, - {6.66f,61.9048f}, - {6.66f,38.0952f}, - {11.4219f,23.8095f}, - {16.1838f,14.2857f}, - {25.7076f,4.7619f}, - {35.2314f,0.0f}, - {54.279f,0.0f}, - {63.8029f,4.7619f}, - {73.3267f,14.2857f}, - {78.0886f,23.8095f} -}; - -static const SFG_StrokeStrip ch67st[] = -{ - {18,ch67st0} -}; - -static const SFG_StrokeChar ch67 = {84.4886f,1,ch67st}; - -/* char: 0x44 */ - -static const SFG_StrokeVertex ch68st0[] = -{ - {11.96f,100.0f}, - {11.96f,0.0f} -}; - -static const SFG_StrokeVertex ch68st1[] = -{ - {11.96f,100.0f}, - {45.2933f,100.0f}, - {59.579f,95.2381f}, - {69.1029f,85.7143f}, - {73.8648f,76.1905f}, - {78.6267f,61.9048f}, - {78.6267f,38.0952f}, - {73.8648f,23.8095f}, - {69.1029f,14.2857f}, - {59.579f,4.7619f}, - {45.2933f,0.0f}, - {11.96f,0.0f} -}; - -static const SFG_StrokeStrip ch68st[] = -{ - {2,ch68st0}, - {12,ch68st1} -}; - -static const SFG_StrokeChar ch68 = {85.2867f,2,ch68st}; - -/* char: 0x45 */ - -static const SFG_StrokeVertex ch69st0[] = -{ - {11.42f,100.0f}, - {11.42f,0.0f} -}; - -static const SFG_StrokeVertex ch69st1[] = -{ - {11.42f,100.0f}, - {73.3248f,100.0f} -}; - -static const SFG_StrokeVertex ch69st2[] = -{ - {11.42f,52.381f}, - {49.5152f,52.381f} -}; - -static const SFG_StrokeVertex ch69st3[] = -{ - {11.42f,0.0f}, - {73.3248f,0.0f} -}; - -static const SFG_StrokeStrip ch69st[] = -{ - {2,ch69st0}, - {2,ch69st1}, - {2,ch69st2}, - {2,ch69st3} -}; - -static const SFG_StrokeChar ch69 = {78.1848f,4,ch69st}; - -/* char: 0x46 */ - -static const SFG_StrokeVertex ch70st0[] = -{ - {11.42f,100.0f}, - {11.42f,0.0f} -}; - -static const SFG_StrokeVertex ch70st1[] = -{ - {11.42f,100.0f}, - {73.3248f,100.0f} -}; - -static const SFG_StrokeVertex ch70st2[] = -{ - {11.42f,52.381f}, - {49.5152f,52.381f} -}; - -static const SFG_StrokeStrip ch70st[] = -{ - {2,ch70st0}, - {2,ch70st1}, - {2,ch70st2} -}; - -static const SFG_StrokeChar ch70 = {78.7448f,3,ch70st}; - -/* char: 0x47 */ - -static const SFG_StrokeVertex ch71st0[] = -{ - {78.4886f,76.1905f}, - {73.7267f,85.7143f}, - {64.2029f,95.2381f}, - {54.679f,100.0f}, - {35.6314f,100.0f}, - {26.1076f,95.2381f}, - {16.5838f,85.7143f}, - {11.8219f,76.1905f}, - {7.06f,61.9048f}, - {7.06f,38.0952f}, - {11.8219f,23.8095f}, - {16.5838f,14.2857f}, - {26.1076f,4.7619f}, - {35.6314f,0.0f}, - {54.679f,0.0f}, - {64.2029f,4.7619f}, - {73.7267f,14.2857f}, - {78.4886f,23.8095f}, - {78.4886f,38.0952f} -}; - -static const SFG_StrokeVertex ch71st1[] = -{ - {54.679f,38.0952f}, - {78.4886f,38.0952f} -}; - -static const SFG_StrokeStrip ch71st[] = -{ - {19,ch71st0}, - {2,ch71st1} -}; - -static const SFG_StrokeChar ch71 = {89.7686f,2,ch71st}; - -/* char: 0x48 */ - -static const SFG_StrokeVertex ch72st0[] = -{ - {11.42f,100.0f}, - {11.42f,0.0f} -}; - -static const SFG_StrokeVertex ch72st1[] = -{ - {78.0867f,100.0f}, - {78.0867f,0.0f} -}; - -static const SFG_StrokeVertex ch72st2[] = -{ - {11.42f,52.381f}, - {78.0867f,52.381f} -}; - -static const SFG_StrokeStrip ch72st[] = -{ - {2,ch72st0}, - {2,ch72st1}, - {2,ch72st2} -}; - -static const SFG_StrokeChar ch72 = {89.0867f,3,ch72st}; - -/* char: 0x49 */ - -static const SFG_StrokeVertex ch73st0[] = -{ - {10.86f,100.0f}, - {10.86f,0.0f} -}; - -static const SFG_StrokeStrip ch73st[] = -{ - {2,ch73st0} -}; - -static const SFG_StrokeChar ch73 = {21.3f,1,ch73st}; - -/* char: 0x4a */ - -static const SFG_StrokeVertex ch74st0[] = -{ - {50.119f,100.0f}, - {50.119f,23.8095f}, - {45.3571f,9.5238f}, - {40.5952f,4.7619f}, - {31.0714f,0.0f}, - {21.5476f,0.0f}, - {12.0238f,4.7619f}, - {7.2619f,9.5238f}, - {2.5f,23.8095f}, - {2.5f,33.3333f} -}; - -static const SFG_StrokeStrip ch74st[] = -{ - {10,ch74st0} -}; - -static const SFG_StrokeChar ch74 = {59.999f,1,ch74st}; - -/* char: 0x4b */ - -static const SFG_StrokeVertex ch75st0[] = -{ - {11.28f,100.0f}, - {11.28f,0.0f} -}; - -static const SFG_StrokeVertex ch75st1[] = -{ - {77.9467f,100.0f}, - {11.28f,33.3333f} -}; - -static const SFG_StrokeVertex ch75st2[] = -{ - {35.0895f,57.1429f}, - {77.9467f,0.0f} -}; - -static const SFG_StrokeStrip ch75st[] = -{ - {2,ch75st0}, - {2,ch75st1}, - {2,ch75st2} -}; - -static const SFG_StrokeChar ch75 = {79.3267f,3,ch75st}; - -/* char: 0x4c */ - -static const SFG_StrokeVertex ch76st0[] = -{ - {11.68f,100.0f}, - {11.68f,0.0f} -}; - -static const SFG_StrokeVertex ch76st1[] = -{ - {11.68f,0.0f}, - {68.8229f,0.0f} -}; - -static const SFG_StrokeStrip ch76st[] = -{ - {2,ch76st0}, - {2,ch76st1} -}; - -static const SFG_StrokeChar ch76 = {71.3229f,2,ch76st}; - -/* char: 0x4d */ - -static const SFG_StrokeVertex ch77st0[] = -{ - {10.86f,100.0f}, - {10.86f,0.0f} -}; - -static const SFG_StrokeVertex ch77st1[] = -{ - {10.86f,100.0f}, - {48.9552f,0.0f} -}; - -static const SFG_StrokeVertex ch77st2[] = -{ - {87.0505f,100.0f}, - {48.9552f,0.0f} -}; - -static const SFG_StrokeVertex ch77st3[] = -{ - {87.0505f,100.0f}, - {87.0505f,0.0f} -}; - -static const SFG_StrokeStrip ch77st[] = -{ - {2,ch77st0}, - {2,ch77st1}, - {2,ch77st2}, - {2,ch77st3} -}; - -static const SFG_StrokeChar ch77 = {97.2105f,4,ch77st}; - -/* char: 0x4e */ - -static const SFG_StrokeVertex ch78st0[] = -{ - {11.14f,100.0f}, - {11.14f,0.0f} -}; - -static const SFG_StrokeVertex ch78st1[] = -{ - {11.14f,100.0f}, - {77.8067f,0.0f} -}; - -static const SFG_StrokeVertex ch78st2[] = -{ - {77.8067f,100.0f}, - {77.8067f,0.0f} -}; - -static const SFG_StrokeStrip ch78st[] = -{ - {2,ch78st0}, - {2,ch78st1}, - {2,ch78st2} -}; - -static const SFG_StrokeChar ch78 = {88.8067f,3,ch78st}; - -/* char: 0x4f */ - -static const SFG_StrokeVertex ch79st0[] = -{ - {34.8114f,100.0f}, - {25.2876f,95.2381f}, - {15.7638f,85.7143f}, - {11.0019f,76.1905f}, - {6.24f,61.9048f}, - {6.24f,38.0952f}, - {11.0019f,23.8095f}, - {15.7638f,14.2857f}, - {25.2876f,4.7619f}, - {34.8114f,0.0f}, - {53.859f,0.0f}, - {63.3829f,4.7619f}, - {72.9067f,14.2857f}, - {77.6686f,23.8095f}, - {82.4305f,38.0952f}, - {82.4305f,61.9048f}, - {77.6686f,76.1905f}, - {72.9067f,85.7143f}, - {63.3829f,95.2381f}, - {53.859f,100.0f}, - {34.8114f,100.0f} -}; - -static const SFG_StrokeStrip ch79st[] = -{ - {21,ch79st0} -}; - -static const SFG_StrokeChar ch79 = {88.8305f,1,ch79st}; - -/* char: 0x50 */ - -static const SFG_StrokeVertex ch80st0[] = -{ - {12.1f,100.0f}, - {12.1f,0.0f} -}; - -static const SFG_StrokeVertex ch80st1[] = -{ - {12.1f,100.0f}, - {54.9571f,100.0f}, - {69.2429f,95.2381f}, - {74.0048f,90.4762f}, - {78.7667f,80.9524f}, - {78.7667f,66.6667f}, - {74.0048f,57.1429f}, - {69.2429f,52.381f}, - {54.9571f,47.619f}, - {12.1f,47.619f} -}; - -static const SFG_StrokeStrip ch80st[] = -{ - {2,ch80st0}, - {10,ch80st1} -}; - -static const SFG_StrokeChar ch80 = {85.6667f,2,ch80st}; - -/* char: 0x51 */ - -static const SFG_StrokeVertex ch81st0[] = -{ - {33.8714f,100.0f}, - {24.3476f,95.2381f}, - {14.8238f,85.7143f}, - {10.0619f,76.1905f}, - {5.3f,61.9048f}, - {5.3f,38.0952f}, - {10.0619f,23.8095f}, - {14.8238f,14.2857f}, - {24.3476f,4.7619f}, - {33.8714f,0.0f}, - {52.919f,0.0f}, - {62.4429f,4.7619f}, - {71.9667f,14.2857f}, - {76.7286f,23.8095f}, - {81.4905f,38.0952f}, - {81.4905f,61.9048f}, - {76.7286f,76.1905f}, - {71.9667f,85.7143f}, - {62.4429f,95.2381f}, - {52.919f,100.0f}, - {33.8714f,100.0f} -}; - -static const SFG_StrokeVertex ch81st1[] = -{ - {48.1571f,19.0476f}, - {76.7286f,-9.5238f} -}; - -static const SFG_StrokeStrip ch81st[] = -{ - {21,ch81st0}, - {2,ch81st1} -}; - -static const SFG_StrokeChar ch81 = {88.0905f,2,ch81st}; - -/* char: 0x52 */ - -static const SFG_StrokeVertex ch82st0[] = -{ - {11.68f,100.0f}, - {11.68f,0.0f} -}; - -static const SFG_StrokeVertex ch82st1[] = -{ - {11.68f,100.0f}, - {54.5371f,100.0f}, - {68.8229f,95.2381f}, - {73.5848f,90.4762f}, - {78.3467f,80.9524f}, - {78.3467f,71.4286f}, - {73.5848f,61.9048f}, - {68.8229f,57.1429f}, - {54.5371f,52.381f}, - {11.68f,52.381f} -}; - -static const SFG_StrokeVertex ch82st2[] = -{ - {45.0133f,52.381f}, - {78.3467f,0.0f} -}; - -static const SFG_StrokeStrip ch82st[] = -{ - {2,ch82st0}, - {10,ch82st1}, - {2,ch82st2} -}; - -static const SFG_StrokeChar ch82 = {82.3667f,3,ch82st}; - -/* char: 0x53 */ - -static const SFG_StrokeVertex ch83st0[] = -{ - {74.6667f,85.7143f}, - {65.1429f,95.2381f}, - {50.8571f,100.0f}, - {31.8095f,100.0f}, - {17.5238f,95.2381f}, - {8.0f,85.7143f}, - {8.0f,76.1905f}, - {12.7619f,66.6667f}, - {17.5238f,61.9048f}, - {27.0476f,57.1429f}, - {55.619f,47.619f}, - {65.1429f,42.8571f}, - {69.9048f,38.0952f}, - {74.6667f,28.5714f}, - {74.6667f,14.2857f}, - {65.1429f,4.7619f}, - {50.8571f,0.0f}, - {31.8095f,0.0f}, - {17.5238f,4.7619f}, - {8.0f,14.2857f} -}; - -static const SFG_StrokeStrip ch83st[] = -{ - {20,ch83st0} -}; - -static const SFG_StrokeChar ch83 = {80.8267f,1,ch83st}; - -/* char: 0x54 */ - -static const SFG_StrokeVertex ch84st0[] = -{ - {35.6933f,100.0f}, - {35.6933f,0.0f} -}; - -static const SFG_StrokeVertex ch84st1[] = -{ - {2.36f,100.0f}, - {69.0267f,100.0f} -}; - -static const SFG_StrokeStrip ch84st[] = -{ - {2,ch84st0}, - {2,ch84st1} -}; - -static const SFG_StrokeChar ch84 = {71.9467f,2,ch84st}; - -/* char: 0x55 */ - -static const SFG_StrokeVertex ch85st0[] = -{ - {11.54f,100.0f}, - {11.54f,28.5714f}, - {16.3019f,14.2857f}, - {25.8257f,4.7619f}, - {40.1114f,0.0f}, - {49.6352f,0.0f}, - {63.921f,4.7619f}, - {73.4448f,14.2857f}, - {78.2067f,28.5714f}, - {78.2067f,100.0f} -}; - -static const SFG_StrokeStrip ch85st[] = -{ - {10,ch85st0} -}; - -static const SFG_StrokeChar ch85 = {89.4867f,1,ch85st}; - -/* char: 0x56 */ - -static const SFG_StrokeVertex ch86st0[] = -{ - {2.36f,100.0f}, - {40.4552f,0.0f} -}; - -static const SFG_StrokeVertex ch86st1[] = -{ - {78.5505f,100.0f}, - {40.4552f,0.0f} -}; - -static const SFG_StrokeStrip ch86st[] = -{ - {2,ch86st0}, - {2,ch86st1} -}; - -static const SFG_StrokeChar ch86 = {81.6105f,2,ch86st}; - -/* char: 0x57 */ - -static const SFG_StrokeVertex ch87st0[] = -{ - {2.22f,100.0f}, - {26.0295f,0.0f} -}; - -static const SFG_StrokeVertex ch87st1[] = -{ - {49.839f,100.0f}, - {26.0295f,0.0f} -}; - -static const SFG_StrokeVertex ch87st2[] = -{ - {49.839f,100.0f}, - {73.6486f,0.0f} -}; - -static const SFG_StrokeVertex ch87st3[] = -{ - {97.4581f,100.0f}, - {73.6486f,0.0f} -}; - -static const SFG_StrokeStrip ch87st[] = -{ - {2,ch87st0}, - {2,ch87st1}, - {2,ch87st2}, - {2,ch87st3} -}; - -static const SFG_StrokeChar ch87 = {100.518f,4,ch87st}; - -/* char: 0x58 */ - -static const SFG_StrokeVertex ch88st0[] = -{ - {2.5f,100.0f}, - {69.1667f,0.0f} -}; - -static const SFG_StrokeVertex ch88st1[] = -{ - {69.1667f,100.0f}, - {2.5f,0.0f} -}; - -static const SFG_StrokeStrip ch88st[] = -{ - {2,ch88st0}, - {2,ch88st1} -}; - -static const SFG_StrokeChar ch88 = {72.3667f,2,ch88st}; - -/* char: 0x59 */ - -static const SFG_StrokeVertex ch89st0[] = -{ - {1.52f,100.0f}, - {39.6152f,52.381f}, - {39.6152f,0.0f} -}; - -static const SFG_StrokeVertex ch89st1[] = -{ - {77.7105f,100.0f}, - {39.6152f,52.381f} -}; - -static const SFG_StrokeStrip ch89st[] = -{ - {3,ch89st0}, - {2,ch89st1} -}; - -static const SFG_StrokeChar ch89 = {79.6505f,2,ch89st}; - -/* char: 0x5a */ - -static const SFG_StrokeVertex ch90st0[] = -{ - {69.1667f,100.0f}, - {2.5f,0.0f} -}; - -static const SFG_StrokeVertex ch90st1[] = -{ - {2.5f,100.0f}, - {69.1667f,100.0f} -}; - -static const SFG_StrokeVertex ch90st2[] = -{ - {2.5f,0.0f}, - {69.1667f,0.0f} -}; - -static const SFG_StrokeStrip ch90st[] = -{ - {2,ch90st0}, - {2,ch90st1}, - {2,ch90st2} -}; - -static const SFG_StrokeChar ch90 = {73.7467f,3,ch90st}; - -/* char: 0x5b */ - -static const SFG_StrokeVertex ch91st0[] = -{ - {7.78f,119.048f}, - {7.78f,-33.3333f} -}; - -static const SFG_StrokeVertex ch91st1[] = -{ - {12.5419f,119.048f}, - {12.5419f,-33.3333f} -}; - -static const SFG_StrokeVertex ch91st2[] = -{ - {7.78f,119.048f}, - {41.1133f,119.048f} -}; - -static const SFG_StrokeVertex ch91st3[] = -{ - {7.78f,-33.3333f}, - {41.1133f,-33.3333f} -}; - -static const SFG_StrokeStrip ch91st[] = -{ - {2,ch91st0}, - {2,ch91st1}, - {2,ch91st2}, - {2,ch91st3} -}; - -static const SFG_StrokeChar ch91 = {46.1133f,4,ch91st}; - -/* char: 0x5c */ - -static const SFG_StrokeVertex ch92st0[] = -{ - {5.84f,100.0f}, - {72.5067f,-14.2857f} -}; - -static const SFG_StrokeStrip ch92st[] = -{ - {2,ch92st0} -}; - -static const SFG_StrokeChar ch92 = {78.2067f,1,ch92st}; - -/* char: 0x5d */ - -static const SFG_StrokeVertex ch93st0[] = -{ - {33.0114f,119.048f}, - {33.0114f,-33.3333f} -}; - -static const SFG_StrokeVertex ch93st1[] = -{ - {37.7733f,119.048f}, - {37.7733f,-33.3333f} -}; - -static const SFG_StrokeVertex ch93st2[] = -{ - {4.44f,119.048f}, - {37.7733f,119.048f} -}; - -static const SFG_StrokeVertex ch93st3[] = -{ - {4.44f,-33.3333f}, - {37.7733f,-33.3333f} -}; - -static const SFG_StrokeStrip ch93st[] = -{ - {2,ch93st0}, - {2,ch93st1}, - {2,ch93st2}, - {2,ch93st3} -}; - -static const SFG_StrokeChar ch93 = {46.3933f,4,ch93st}; - -/* char: 0x5e */ - -static const SFG_StrokeVertex ch94st0[] = -{ - {44.0752f,109.524f}, - {5.98f,42.8571f} -}; - -static const SFG_StrokeVertex ch94st1[] = -{ - {44.0752f,109.524f}, - {82.1705f,42.8571f} -}; - -static const SFG_StrokeStrip ch94st[] = -{ - {2,ch94st0}, - {2,ch94st1} -}; - -static const SFG_StrokeChar ch94 = {90.2305f,2,ch94st}; - -/* char: 0x5f */ - -static const SFG_StrokeVertex ch95st0[] = -{ - {-1.1f,-33.3333f}, - {103.662f,-33.3333f}, - {103.662f,-28.5714f}, - {-1.1f,-28.5714f}, - {-1.1f,-33.3333f} -}; - -static const SFG_StrokeStrip ch95st[] = -{ - {5,ch95st0} -}; - -static const SFG_StrokeChar ch95 = {104.062f,1,ch95st}; - -/* char: 0x60 */ - -static const SFG_StrokeVertex ch96st0[] = -{ - {33.0219f,100.0f}, - {56.8314f,71.4286f} -}; - -static const SFG_StrokeVertex ch96st1[] = -{ - {33.0219f,100.0f}, - {28.26f,95.2381f}, - {56.8314f,71.4286f} -}; - -static const SFG_StrokeStrip ch96st[] = -{ - {2,ch96st0}, - {3,ch96st1} -}; - -static const SFG_StrokeChar ch96 = {83.5714f,2,ch96st}; - -/* char: 0x61 */ - -static const SFG_StrokeVertex ch97st0[] = -{ - {63.8229f,66.6667f}, - {63.8229f,0.0f} -}; - -static const SFG_StrokeVertex ch97st1[] = -{ - {63.8229f,52.381f}, - {54.299f,61.9048f}, - {44.7752f,66.6667f}, - {30.4895f,66.6667f}, - {20.9657f,61.9048f}, - {11.4419f,52.381f}, - {6.68f,38.0952f}, - {6.68f,28.5714f}, - {11.4419f,14.2857f}, - {20.9657f,4.7619f}, - {30.4895f,0.0f}, - {44.7752f,0.0f}, - {54.299f,4.7619f}, - {63.8229f,14.2857f} -}; - -static const SFG_StrokeStrip ch97st[] = -{ - {2,ch97st0}, - {14,ch97st1} -}; - -static const SFG_StrokeChar ch97 = {66.6029f,2,ch97st}; - -/* char: 0x62 */ - -static const SFG_StrokeVertex ch98st0[] = -{ - {8.76f,100.0f}, - {8.76f,0.0f} -}; - -static const SFG_StrokeVertex ch98st1[] = -{ - {8.76f,52.381f}, - {18.2838f,61.9048f}, - {27.8076f,66.6667f}, - {42.0933f,66.6667f}, - {51.6171f,61.9048f}, - {61.141f,52.381f}, - {65.9029f,38.0952f}, - {65.9029f,28.5714f}, - {61.141f,14.2857f}, - {51.6171f,4.7619f}, - {42.0933f,0.0f}, - {27.8076f,0.0f}, - {18.2838f,4.7619f}, - {8.76f,14.2857f} -}; - -static const SFG_StrokeStrip ch98st[] = -{ - {2,ch98st0}, - {14,ch98st1} -}; - -static const SFG_StrokeChar ch98 = {70.4629f,2,ch98st}; - -/* char: 0x63 */ - -static const SFG_StrokeVertex ch99st0[] = -{ - {62.6629f,52.381f}, - {53.139f,61.9048f}, - {43.6152f,66.6667f}, - {29.3295f,66.6667f}, - {19.8057f,61.9048f}, - {10.2819f,52.381f}, - {5.52f,38.0952f}, - {5.52f,28.5714f}, - {10.2819f,14.2857f}, - {19.8057f,4.7619f}, - {29.3295f,0.0f}, - {43.6152f,0.0f}, - {53.139f,4.7619f}, - {62.6629f,14.2857f} -}; - -static const SFG_StrokeStrip ch99st[] = -{ - {14,ch99st0} -}; - -static const SFG_StrokeChar ch99 = {68.9229f,1,ch99st}; - -/* char: 0x64 */ - -static const SFG_StrokeVertex ch100st0[] = -{ - {61.7829f,100.0f}, - {61.7829f,0.0f} -}; - -static const SFG_StrokeVertex ch100st1[] = -{ - {61.7829f,52.381f}, - {52.259f,61.9048f}, - {42.7352f,66.6667f}, - {28.4495f,66.6667f}, - {18.9257f,61.9048f}, - {9.4019f,52.381f}, - {4.64f,38.0952f}, - {4.64f,28.5714f}, - {9.4019f,14.2857f}, - {18.9257f,4.7619f}, - {28.4495f,0.0f}, - {42.7352f,0.0f}, - {52.259f,4.7619f}, - {61.7829f,14.2857f} -}; - -static const SFG_StrokeStrip ch100st[] = -{ - {2,ch100st0}, - {14,ch100st1} -}; - -static const SFG_StrokeChar ch100 = {70.2629f,2,ch100st}; - -/* char: 0x65 */ - -static const SFG_StrokeVertex ch101st0[] = -{ - {5.72f,38.0952f}, - {62.8629f,38.0952f}, - {62.8629f,47.619f}, - {58.101f,57.1429f}, - {53.339f,61.9048f}, - {43.8152f,66.6667f}, - {29.5295f,66.6667f}, - {20.0057f,61.9048f}, - {10.4819f,52.381f}, - {5.72f,38.0952f}, - {5.72f,28.5714f}, - {10.4819f,14.2857f}, - {20.0057f,4.7619f}, - {29.5295f,0.0f}, - {43.8152f,0.0f}, - {53.339f,4.7619f}, - {62.8629f,14.2857f} -}; - -static const SFG_StrokeStrip ch101st[] = -{ - {17,ch101st0} -}; - -static const SFG_StrokeChar ch101 = {68.5229f,1,ch101st}; - -/* char: 0x66 */ - -static const SFG_StrokeVertex ch102st0[] = -{ - {38.7752f,100.0f}, - {29.2514f,100.0f}, - {19.7276f,95.2381f}, - {14.9657f,80.9524f}, - {14.9657f,0.0f} -}; - -static const SFG_StrokeVertex ch102st1[] = -{ - {0.68f,66.6667f}, - {34.0133f,66.6667f} -}; - -static const SFG_StrokeStrip ch102st[] = -{ - {5,ch102st0}, - {2,ch102st1} -}; - -static const SFG_StrokeChar ch102 = {38.6552f,2,ch102st}; - -/* char: 0x67 */ - -static const SFG_StrokeVertex ch103st0[] = -{ - {62.5029f,66.6667f}, - {62.5029f,-9.5238f}, - {57.741f,-23.8095f}, - {52.979f,-28.5714f}, - {43.4552f,-33.3333f}, - {29.1695f,-33.3333f}, - {19.6457f,-28.5714f} -}; - -static const SFG_StrokeVertex ch103st1[] = -{ - {62.5029f,52.381f}, - {52.979f,61.9048f}, - {43.4552f,66.6667f}, - {29.1695f,66.6667f}, - {19.6457f,61.9048f}, - {10.1219f,52.381f}, - {5.36f,38.0952f}, - {5.36f,28.5714f}, - {10.1219f,14.2857f}, - {19.6457f,4.7619f}, - {29.1695f,0.0f}, - {43.4552f,0.0f}, - {52.979f,4.7619f}, - {62.5029f,14.2857f} -}; - -static const SFG_StrokeStrip ch103st[] = -{ - {7,ch103st0}, - {14,ch103st1} -}; - -static const SFG_StrokeChar ch103 = {70.9829f,2,ch103st}; - -/* char: 0x68 */ - -static const SFG_StrokeVertex ch104st0[] = -{ - {9.6f,100.0f}, - {9.6f,0.0f} -}; - -static const SFG_StrokeVertex ch104st1[] = -{ - {9.6f,47.619f}, - {23.8857f,61.9048f}, - {33.4095f,66.6667f}, - {47.6952f,66.6667f}, - {57.219f,61.9048f}, - {61.981f,47.619f}, - {61.981f,0.0f} -}; - -static const SFG_StrokeStrip ch104st[] = -{ - {2,ch104st0}, - {7,ch104st1} -}; - -static const SFG_StrokeChar ch104 = {71.021f,2,ch104st}; - -/* char: 0x69 */ - -static const SFG_StrokeVertex ch105st0[] = -{ - {10.02f,100.0f}, - {14.7819f,95.2381f}, - {19.5438f,100.0f}, - {14.7819f,104.762f}, - {10.02f,100.0f} -}; - -static const SFG_StrokeVertex ch105st1[] = -{ - {14.7819f,66.6667f}, - {14.7819f,0.0f} -}; - -static const SFG_StrokeStrip ch105st[] = -{ - {5,ch105st0}, - {2,ch105st1} -}; - -static const SFG_StrokeChar ch105 = {28.8638f,2,ch105st}; - -/* char: 0x6a */ - -static const SFG_StrokeVertex ch106st0[] = -{ - {17.3876f,100.0f}, - {22.1495f,95.2381f}, - {26.9114f,100.0f}, - {22.1495f,104.762f}, - {17.3876f,100.0f} -}; - -static const SFG_StrokeVertex ch106st1[] = -{ - {22.1495f,66.6667f}, - {22.1495f,-14.2857f}, - {17.3876f,-28.5714f}, - {7.8638f,-33.3333f}, - {-1.66f,-33.3333f} -}; - -static const SFG_StrokeStrip ch106st[] = -{ - {5,ch106st0}, - {5,ch106st1} -}; - -static const SFG_StrokeChar ch106 = {36.2314f,2,ch106st}; - -/* char: 0x6b */ - -static const SFG_StrokeVertex ch107st0[] = -{ - {9.6f,100.0f}, - {9.6f,0.0f} -}; - -static const SFG_StrokeVertex ch107st1[] = -{ - {57.219f,66.6667f}, - {9.6f,19.0476f} -}; - -static const SFG_StrokeVertex ch107st2[] = -{ - {28.6476f,38.0952f}, - {61.981f,0.0f} -}; - -static const SFG_StrokeStrip ch107st[] = -{ - {2,ch107st0}, - {2,ch107st1}, - {2,ch107st2} -}; - -static const SFG_StrokeChar ch107 = {62.521f,3,ch107st}; - -/* char: 0x6c */ - -static const SFG_StrokeVertex ch108st0[] = -{ - {10.02f,100.0f}, - {10.02f,0.0f} -}; - -static const SFG_StrokeStrip ch108st[] = -{ - {2,ch108st0} -}; - -static const SFG_StrokeChar ch108 = {19.34f,1,ch108st}; - -/* char: 0x6d */ - -static const SFG_StrokeVertex ch109st0[] = -{ - {9.6f,66.6667f}, - {9.6f,0.0f} -}; - -static const SFG_StrokeVertex ch109st1[] = -{ - {9.6f,47.619f}, - {23.8857f,61.9048f}, - {33.4095f,66.6667f}, - {47.6952f,66.6667f}, - {57.219f,61.9048f}, - {61.981f,47.619f}, - {61.981f,0.0f} -}; - -static const SFG_StrokeVertex ch109st2[] = -{ - {61.981f,47.619f}, - {76.2667f,61.9048f}, - {85.7905f,66.6667f}, - {100.076f,66.6667f}, - {109.6f,61.9048f}, - {114.362f,47.619f}, - {114.362f,0.0f} -}; - -static const SFG_StrokeStrip ch109st[] = -{ - {2,ch109st0}, - {7,ch109st1}, - {7,ch109st2} -}; - -static const SFG_StrokeChar ch109 = {123.962f,3,ch109st}; - -/* char: 0x6e */ - -static const SFG_StrokeVertex ch110st0[] = -{ - {9.18f,66.6667f}, - {9.18f,0.0f} -}; - -static const SFG_StrokeVertex ch110st1[] = -{ - {9.18f,47.619f}, - {23.4657f,61.9048f}, - {32.9895f,66.6667f}, - {47.2752f,66.6667f}, - {56.799f,61.9048f}, - {61.561f,47.619f}, - {61.561f,0.0f} -}; - -static const SFG_StrokeStrip ch110st[] = -{ - {2,ch110st0}, - {7,ch110st1} -}; - -static const SFG_StrokeChar ch110 = {70.881f,2,ch110st}; - -/* char: 0x6f */ - -static const SFG_StrokeVertex ch111st0[] = -{ - {28.7895f,66.6667f}, - {19.2657f,61.9048f}, - {9.7419f,52.381f}, - {4.98f,38.0952f}, - {4.98f,28.5714f}, - {9.7419f,14.2857f}, - {19.2657f,4.7619f}, - {28.7895f,0.0f}, - {43.0752f,0.0f}, - {52.599f,4.7619f}, - {62.1229f,14.2857f}, - {66.8848f,28.5714f}, - {66.8848f,38.0952f}, - {62.1229f,52.381f}, - {52.599f,61.9048f}, - {43.0752f,66.6667f}, - {28.7895f,66.6667f} -}; - -static const SFG_StrokeStrip ch111st[] = -{ - {17,ch111st0} -}; - -static const SFG_StrokeChar ch111 = {71.7448f,1,ch111st}; - -/* char: 0x70 */ - -static const SFG_StrokeVertex ch112st0[] = -{ - {9.46f,66.6667f}, - {9.46f,-33.3333f} -}; - -static const SFG_StrokeVertex ch112st1[] = -{ - {9.46f,52.381f}, - {18.9838f,61.9048f}, - {28.5076f,66.6667f}, - {42.7933f,66.6667f}, - {52.3171f,61.9048f}, - {61.841f,52.381f}, - {66.6029f,38.0952f}, - {66.6029f,28.5714f}, - {61.841f,14.2857f}, - {52.3171f,4.7619f}, - {42.7933f,0.0f}, - {28.5076f,0.0f}, - {18.9838f,4.7619f}, - {9.46f,14.2857f} -}; - -static const SFG_StrokeStrip ch112st[] = -{ - {2,ch112st0}, - {14,ch112st1} -}; - -static const SFG_StrokeChar ch112 = {70.8029f,2,ch112st}; - -/* char: 0x71 */ - -static const SFG_StrokeVertex ch113st0[] = -{ - {61.9829f,66.6667f}, - {61.9829f,-33.3333f} -}; - -static const SFG_StrokeVertex ch113st1[] = -{ - {61.9829f,52.381f}, - {52.459f,61.9048f}, - {42.9352f,66.6667f}, - {28.6495f,66.6667f}, - {19.1257f,61.9048f}, - {9.6019f,52.381f}, - {4.84f,38.0952f}, - {4.84f,28.5714f}, - {9.6019f,14.2857f}, - {19.1257f,4.7619f}, - {28.6495f,0.0f}, - {42.9352f,0.0f}, - {52.459f,4.7619f}, - {61.9829f,14.2857f} -}; - -static const SFG_StrokeStrip ch113st[] = -{ - {2,ch113st0}, - {14,ch113st1} -}; - -static const SFG_StrokeChar ch113 = {70.7429f,2,ch113st}; - -/* char: 0x72 */ - -static const SFG_StrokeVertex ch114st0[] = -{ - {9.46f,66.6667f}, - {9.46f,0.0f} -}; - -static const SFG_StrokeVertex ch114st1[] = -{ - {9.46f,38.0952f}, - {14.2219f,52.381f}, - {23.7457f,61.9048f}, - {33.2695f,66.6667f}, - {47.5552f,66.6667f} -}; - -static const SFG_StrokeStrip ch114st[] = -{ - {2,ch114st0}, - {5,ch114st1} -}; - -static const SFG_StrokeChar ch114 = {49.4952f,2,ch114st}; - -/* char: 0x73 */ - -static const SFG_StrokeVertex ch115st0[] = -{ - {57.081f,52.381f}, - {52.319f,61.9048f}, - {38.0333f,66.6667f}, - {23.7476f,66.6667f}, - {9.4619f,61.9048f}, - {4.7f,52.381f}, - {9.4619f,42.8571f}, - {18.9857f,38.0952f}, - {42.7952f,33.3333f}, - {52.319f,28.5714f}, - {57.081f,19.0476f}, - {57.081f,14.2857f}, - {52.319f,4.7619f}, - {38.0333f,0.0f}, - {23.7476f,0.0f}, - {9.4619f,4.7619f}, - {4.7f,14.2857f} -}; - -static const SFG_StrokeStrip ch115st[] = -{ - {17,ch115st0} -}; - -static const SFG_StrokeChar ch115 = {62.321f,1,ch115st}; - -/* char: 0x74 */ - -static const SFG_StrokeVertex ch116st0[] = -{ - {14.8257f,100.0f}, - {14.8257f,19.0476f}, - {19.5876f,4.7619f}, - {29.1114f,0.0f}, - {38.6352f,0.0f} -}; - -static const SFG_StrokeVertex ch116st1[] = -{ - {0.54f,66.6667f}, - {33.8733f,66.6667f} -}; - -static const SFG_StrokeStrip ch116st[] = -{ - {5,ch116st0}, - {2,ch116st1} -}; - -static const SFG_StrokeChar ch116 = {39.3152f,2,ch116st}; - -/* char: 0x75 */ - -static const SFG_StrokeVertex ch117st0[] = -{ - {9.46f,66.6667f}, - {9.46f,19.0476f}, - {14.2219f,4.7619f}, - {23.7457f,0.0f}, - {38.0314f,0.0f}, - {47.5552f,4.7619f}, - {61.841f,19.0476f} -}; - -static const SFG_StrokeVertex ch117st1[] = -{ - {61.841f,66.6667f}, - {61.841f,0.0f} -}; - -static const SFG_StrokeStrip ch117st[] = -{ - {7,ch117st0}, - {2,ch117st1} -}; - -static const SFG_StrokeChar ch117 = {71.161f,2,ch117st}; - -/* char: 0x76 */ - -static const SFG_StrokeVertex ch118st0[] = -{ - {1.8f,66.6667f}, - {30.3714f,0.0f} -}; - -static const SFG_StrokeVertex ch118st1[] = -{ - {58.9429f,66.6667f}, - {30.3714f,0.0f} -}; - -static const SFG_StrokeStrip ch118st[] = -{ - {2,ch118st0}, - {2,ch118st1} -}; - -static const SFG_StrokeChar ch118 = {60.6029f,2,ch118st}; - -/* char: 0x77 */ - -static const SFG_StrokeVertex ch119st0[] = -{ - {2.5f,66.6667f}, - {21.5476f,0.0f} -}; - -static const SFG_StrokeVertex ch119st1[] = -{ - {40.5952f,66.6667f}, - {21.5476f,0.0f} -}; - -static const SFG_StrokeVertex ch119st2[] = -{ - {40.5952f,66.6667f}, - {59.6429f,0.0f} -}; - -static const SFG_StrokeVertex ch119st3[] = -{ - {78.6905f,66.6667f}, - {59.6429f,0.0f} -}; - -static const SFG_StrokeStrip ch119st[] = -{ - {2,ch119st0}, - {2,ch119st1}, - {2,ch119st2}, - {2,ch119st3} -}; - -static const SFG_StrokeChar ch119 = {80.4905f,4,ch119st}; - -/* char: 0x78 */ - -static const SFG_StrokeVertex ch120st0[] = -{ - {1.66f,66.6667f}, - {54.041f,0.0f} -}; - -static const SFG_StrokeVertex ch120st1[] = -{ - {54.041f,66.6667f}, - {1.66f,0.0f} -}; - -static const SFG_StrokeStrip ch120st[] = -{ - {2,ch120st0}, - {2,ch120st1} -}; - -static const SFG_StrokeChar ch120 = {56.401f,2,ch120st}; - -/* char: 0x79 */ - -static const SFG_StrokeVertex ch121st0[] = -{ - {6.5619f,66.6667f}, - {35.1333f,0.0f} -}; - -static const SFG_StrokeVertex ch121st1[] = -{ - {63.7048f,66.6667f}, - {35.1333f,0.0f}, - {25.6095f,-19.0476f}, - {16.0857f,-28.5714f}, - {6.5619f,-33.3333f}, - {1.8f,-33.3333f} -}; - -static const SFG_StrokeStrip ch121st[] = -{ - {2,ch121st0}, - {6,ch121st1} -}; - -static const SFG_StrokeChar ch121 = {66.0648f,2,ch121st}; - -/* char: 0x7a */ - -static const SFG_StrokeVertex ch122st0[] = -{ - {56.821f,66.6667f}, - {4.44f,0.0f} -}; - -static const SFG_StrokeVertex ch122st1[] = -{ - {4.44f,66.6667f}, - {56.821f,66.6667f} -}; - -static const SFG_StrokeVertex ch122st2[] = -{ - {4.44f,0.0f}, - {56.821f,0.0f} -}; - -static const SFG_StrokeStrip ch122st[] = -{ - {2,ch122st0}, - {2,ch122st1}, - {2,ch122st2} -}; - -static const SFG_StrokeChar ch122 = {61.821f,3,ch122st}; - -/* char: 0x7b */ - -static const SFG_StrokeVertex ch123st0[] = -{ - {31.1895f,119.048f}, - {21.6657f,114.286f}, - {16.9038f,109.524f}, - {12.1419f,100.0f}, - {12.1419f,90.4762f}, - {16.9038f,80.9524f}, - {21.6657f,76.1905f}, - {26.4276f,66.6667f}, - {26.4276f,57.1429f}, - {16.9038f,47.619f} -}; - -static const SFG_StrokeVertex ch123st1[] = -{ - {21.6657f,114.286f}, - {16.9038f,104.762f}, - {16.9038f,95.2381f}, - {21.6657f,85.7143f}, - {26.4276f,80.9524f}, - {31.1895f,71.4286f}, - {31.1895f,61.9048f}, - {26.4276f,52.381f}, - {7.38f,42.8571f}, - {26.4276f,33.3333f}, - {31.1895f,23.8095f}, - {31.1895f,14.2857f}, - {26.4276f,4.7619f}, - {21.6657f,0.0f}, - {16.9038f,-9.5238f}, - {16.9038f,-19.0476f}, - {21.6657f,-28.5714f} -}; - -static const SFG_StrokeVertex ch123st2[] = -{ - {16.9038f,38.0952f}, - {26.4276f,28.5714f}, - {26.4276f,19.0476f}, - {21.6657f,9.5238f}, - {16.9038f,4.7619f}, - {12.1419f,-4.7619f}, - {12.1419f,-14.2857f}, - {16.9038f,-23.8095f}, - {21.6657f,-28.5714f}, - {31.1895f,-33.3333f} -}; - -static const SFG_StrokeStrip ch123st[] = -{ - {10,ch123st0}, - {17,ch123st1}, - {10,ch123st2} -}; - -static const SFG_StrokeChar ch123 = {41.6295f,3,ch123st}; - -/* char: 0x7c */ - -static const SFG_StrokeVertex ch124st0[] = -{ - {11.54f,119.048f}, - {11.54f,-33.3333f} -}; - -static const SFG_StrokeStrip ch124st[] = -{ - {2,ch124st0} -}; - -static const SFG_StrokeChar ch124 = {23.78f,1,ch124st}; - -/* char: 0x7d */ - -static const SFG_StrokeVertex ch125st0[] = -{ - {9.18f,119.048f}, - {18.7038f,114.286f}, - {23.4657f,109.524f}, - {28.2276f,100.0f}, - {28.2276f,90.4762f}, - {23.4657f,80.9524f}, - {18.7038f,76.1905f}, - {13.9419f,66.6667f}, - {13.9419f,57.1429f}, - {23.4657f,47.619f} -}; - -static const SFG_StrokeVertex ch125st1[] = -{ - {18.7038f,114.286f}, - {23.4657f,104.762f}, - {23.4657f,95.2381f}, - {18.7038f,85.7143f}, - {13.9419f,80.9524f}, - {9.18f,71.4286f}, - {9.18f,61.9048f}, - {13.9419f,52.381f}, - {32.9895f,42.8571f}, - {13.9419f,33.3333f}, - {9.18f,23.8095f}, - {9.18f,14.2857f}, - {13.9419f,4.7619f}, - {18.7038f,0.0f}, - {23.4657f,-9.5238f}, - {23.4657f,-19.0476f}, - {18.7038f,-28.5714f} -}; - -static const SFG_StrokeVertex ch125st2[] = -{ - {23.4657f,38.0952f}, - {13.9419f,28.5714f}, - {13.9419f,19.0476f}, - {18.7038f,9.5238f}, - {23.4657f,4.7619f}, - {28.2276f,-4.7619f}, - {28.2276f,-14.2857f}, - {23.4657f,-23.8095f}, - {18.7038f,-28.5714f}, - {9.18f,-33.3333f} -}; - -static const SFG_StrokeStrip ch125st[] = -{ - {10,ch125st0}, - {17,ch125st1}, - {10,ch125st2} -}; - -static const SFG_StrokeChar ch125 = {41.4695f,3,ch125st}; - -/* char: 0x7e */ - -static const SFG_StrokeVertex ch126st0[] = -{ - {2.92f,28.5714f}, - {2.92f,38.0952f}, - {7.6819f,52.381f}, - {17.2057f,57.1429f}, - {26.7295f,57.1429f}, - {36.2533f,52.381f}, - {55.301f,38.0952f}, - {64.8248f,33.3333f}, - {74.3486f,33.3333f}, - {83.8724f,38.0952f}, - {88.6343f,47.619f} -}; - -static const SFG_StrokeVertex ch126st1[] = -{ - {2.92f,38.0952f}, - {7.6819f,47.619f}, - {17.2057f,52.381f}, - {26.7295f,52.381f}, - {36.2533f,47.619f}, - {55.301f,33.3333f}, - {64.8248f,28.5714f}, - {74.3486f,28.5714f}, - {83.8724f,33.3333f}, - {88.6343f,47.619f}, - {88.6343f,57.1429f} -}; - -static const SFG_StrokeStrip ch126st[] = -{ - {11,ch126st0}, - {11,ch126st1} -}; - -static const SFG_StrokeChar ch126 = {91.2743f,2,ch126st}; - -/* char: 0x7f */ - -static const SFG_StrokeVertex ch127st0[] = -{ - {52.381f,100.0f}, - {14.2857f,-33.3333f} -}; - -static const SFG_StrokeVertex ch127st1[] = -{ - {28.5714f,66.6667f}, - {14.2857f,61.9048f}, - {4.7619f,52.381f}, - {0.0f,38.0952f}, - {0.0f,23.8095f}, - {4.7619f,14.2857f}, - {14.2857f,4.7619f}, - {28.5714f,0.0f}, - {38.0952f,0.0f}, - {52.381f,4.7619f}, - {61.9048f,14.2857f}, - {66.6667f,28.5714f}, - {66.6667f,42.8571f}, - {61.9048f,52.381f}, - {52.381f,61.9048f}, - {38.0952f,66.6667f}, - {28.5714f,66.6667f} -}; - -static const SFG_StrokeStrip ch127st[] = -{ - {2,ch127st0}, - {17,ch127st1} -}; - -static const SFG_StrokeChar ch127 = {66.6667f,2,ch127st}; - -static const SFG_StrokeChar *chars[] = -{ - 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, - &ch32, &ch33, &ch34, &ch35, &ch36, &ch37, &ch38, &ch39, - &ch40, &ch41, &ch42, &ch43, &ch44, &ch45, &ch46, &ch47, - &ch48, &ch49, &ch50, &ch51, &ch52, &ch53, &ch54, &ch55, - &ch56, &ch57, &ch58, &ch59, &ch60, &ch61, &ch62, &ch63, - &ch64, &ch65, &ch66, &ch67, &ch68, &ch69, &ch70, &ch71, - &ch72, &ch73, &ch74, &ch75, &ch76, &ch77, &ch78, &ch79, - &ch80, &ch81, &ch82, &ch83, &ch84, &ch85, &ch86, &ch87, - &ch88, &ch89, &ch90, &ch91, &ch92, &ch93, &ch94, &ch95, - &ch96, &ch97, &ch98, &ch99, &ch100, &ch101, &ch102, &ch103, - &ch104, &ch105, &ch106, &ch107, &ch108, &ch109, &ch110, &ch111, - &ch112, &ch113, &ch114, &ch115, &ch116, &ch117, &ch118, &ch119, - &ch120, &ch121, &ch122, &ch123, &ch124, &ch125, &ch126, &ch127 -}; - -const SFG_StrokeFont fgStrokeRoman = {"Roman",128,152.381f,chars}; diff --git a/internal/c/parts/core/android_core/src/fg_structure.c b/internal/c/parts/core/android_core/src/fg_structure.c deleted file mode 100644 index 54ad8ce37..000000000 --- a/internal/c/parts/core/android_core/src/fg_structure.c +++ /dev/null @@ -1,614 +0,0 @@ -#include -#include -#include -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "native-activity", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "native-activity", __VA_ARGS__)) -//LOGI("tracer********************10"); - -/* - * freeglut_structure.c - * - * Windows and menus need tree structure - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Sat Dec 18 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* -- GLOBAL EXPORTS ------------------------------------------------------- */ - -/* - * The SFG_Structure container holds information about windows and menus - * created between glutInit() and glutMainLoop() return. - */ - -SFG_Structure fgStructure = { { NULL, NULL }, /* The list of windows */ - { NULL, NULL }, /* The list of menus */ - { NULL, NULL }, /* Windows to Destroy list */ - NULL, /* The current window */ - NULL, /* The current menu */ - NULL, /* The menu OpenGL context */ - NULL, /* The game mode window */ - 0, /* The current new window ID */ - 0 }; /* The current new menu ID */ - - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - -extern void fgPlatformCreateWindow ( SFG_Window *window ); - -static void fghClearCallBacks( SFG_Window *window ) -{ - if( window ) - { - int i; - for( i = 0; i < TOTAL_CALLBACKS; ++i ) - window->CallBacks[ i ] = NULL; - } -} - -/* - * This private function creates, opens and adds to the hierarchy - * a freeglut window complete with OpenGL context and stuff... - * - * If parent is set to NULL, the window created will be a topmost one. - */ -SFG_Window* fgCreateWindow( SFG_Window* parent, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isMenu ) -{ - -LOGI("tracer********************11"); - - /* Have the window object created */ - SFG_Window *window = (SFG_Window *)calloc( sizeof(SFG_Window), 1 ); - -LOGI("tracer********************12"); - fgPlatformCreateWindow ( window ); - -LOGI("tracer********************13"); - fghClearCallBacks( window ); - -LOGI("tracer********************14"); - /* Initialize the object properties */ - window->ID = ++fgStructure.WindowID; - -LOGI("tracer********************15"); - fgListInit( &window->Children ); - if( parent ) - { -LOGI("tracer********************16"); - fgListAppend( &parent->Children, &window->Node ); -LOGI("tracer********************17"); - window->Parent = parent; - } - else - fgListAppend( &fgStructure.Windows, &window->Node ); - - /* Set the default mouse cursor and reset the modifiers value */ - window->State.Cursor = GLUT_CURSOR_INHERIT; -LOGI("tracer********************18"); - window->IsMenu = isMenu; - - window->State.IgnoreKeyRepeat = GL_FALSE; - window->State.KeyRepeating = GL_FALSE; - window->State.IsFullscreen = GL_FALSE; - -LOGI("tracer********************19"); - /* - * Open the window now. The fgOpenWindow() function is system - * dependant, and resides in freeglut_window.c. Uses fgState. - */ - fgOpenWindow( window, title, positionUse, x, y, sizeUse, w, h, gameMode, - (GLboolean)(parent ? GL_TRUE : GL_FALSE) ); - -LOGI("tracer********************20"); - return window; -} - -/* - * This private function creates a menu and adds it to the menus list - */ -SFG_Menu* fgCreateMenu( FGCBMenu menuCallback ) -{ - int x = 100, y = 100, w = 1, h = 1; - SFG_Window *current_window = fgStructure.CurrentWindow; - - /* Have the menu object created */ - SFG_Menu* menu = (SFG_Menu *)calloc( sizeof(SFG_Menu), 1 ); - - menu->ParentWindow = NULL; - - /* Create a window for the menu to reside in. */ - - fgCreateWindow( NULL, "freeglut menu", GL_TRUE, x, y, GL_TRUE, w, h, - GL_FALSE, GL_TRUE ); - menu->Window = fgStructure.CurrentWindow; - glutDisplayFunc( fgDisplayMenu ); - - glutHideWindow( ); /* Hide the window for now */ - fgSetWindow( current_window ); - - /* Initialize the object properties: */ - menu->ID = ++fgStructure.MenuID; - menu->Callback = menuCallback; - menu->ActiveEntry = NULL; - - fgListInit( &menu->Entries ); - fgListAppend( &fgStructure.Menus, &menu->Node ); - - /* Newly created menus implicitly become current ones */ - fgStructure.CurrentMenu = menu; - - return menu; -} - -/* - * Function to add a window to the linked list of windows to destroy. - * Subwindows are automatically added because they hang from the window - * structure. - */ -void fgAddToWindowDestroyList( SFG_Window* window ) -{ - SFG_WindowList *new_list_entry = - ( SFG_WindowList* )malloc( sizeof(SFG_WindowList ) ); - new_list_entry->window = window; - fgListAppend( &fgStructure.WindowsToDestroy, &new_list_entry->node ); - - /* Check if the window is the current one... */ - if( fgStructure.CurrentWindow == window ) - fgStructure.CurrentWindow = NULL; - - /* - * Clear all window callbacks except Destroy, which will - * be invoked later. Right now, we are potentially carrying - * out a freeglut operation at the behest of a client callback, - * so we are reluctant to re-enter the client with the Destroy - * callback, right now. The others are all wiped out, however, - * to ensure that they are no longer called after this point. - */ - { - FGCBDestroy destroy = (FGCBDestroy)FETCH_WCB( *window, Destroy ); - fghClearCallBacks( window ); - SET_WCB( *window, Destroy, destroy ); - } -} - -/* - * Function to close down all the windows in the "WindowsToDestroy" list - */ -void fgCloseWindows( ) -{ - while( fgStructure.WindowsToDestroy.First ) - { - SFG_WindowList *window_ptr = fgStructure.WindowsToDestroy.First; - fgDestroyWindow( window_ptr->window ); - fgListRemove( &fgStructure.WindowsToDestroy, &window_ptr->node ); - free( window_ptr ); - } -} - -/* - * This function destroys a window and all of its subwindows. Actually, - * another function, defined in freeglut_window.c is called, but this is - * a whole different story... - */ -void fgDestroyWindow( SFG_Window* window ) -{ - FREEGLUT_INTERNAL_ERROR_EXIT ( window, "Window destroy function called with null window", - "fgDestroyWindow" ); - - while( window->Children.First ) - fgDestroyWindow( ( SFG_Window * )window->Children.First ); - - { - SFG_Window *activeWindow = fgStructure.CurrentWindow; - INVOKE_WCB( *window, Destroy, ( ) ); - fgSetWindow( activeWindow ); - } - - if( window->Parent ) - fgListRemove( &window->Parent->Children, &window->Node ); - else - fgListRemove( &fgStructure.Windows, &window->Node ); - - if( window->ActiveMenu ) - fgDeactivateMenu( window ); - - fghClearCallBacks( window ); - fgCloseWindow( window ); - free( window ); - if( fgStructure.CurrentWindow == window ) - fgStructure.CurrentWindow = NULL; -} - -/* - * This is a helper static function that removes a menu (given its pointer) - * from any windows that can be accessed from a given parent... - */ -static void fghRemoveMenuFromWindow( SFG_Window* window, SFG_Menu* menu ) -{ - SFG_Window *subWindow; - int i; - - /* Check whether this is the active menu in the window */ - if ( menu == window->ActiveMenu ) - window->ActiveMenu = NULL ; - - /* - * Check if the menu is attached to the current window, - * if so, have it detached (by overwriting with a NULL): - */ - for( i = 0; i < FREEGLUT_MAX_MENUS; i++ ) - if( window->Menu[ i ] == menu ) - window->Menu[ i ] = NULL; - - /* Call this function for all of the window's children recursively: */ - for( subWindow = (SFG_Window *)window->Children.First; - subWindow; - subWindow = (SFG_Window *)subWindow->Node.Next) - fghRemoveMenuFromWindow( subWindow, menu ); -} - -/* - * This is a static helper function that removes menu references - * from another menu, given two pointers to them... - */ -static void fghRemoveMenuFromMenu( SFG_Menu* from, SFG_Menu* menu ) -{ - SFG_MenuEntry *entry; - - for( entry = (SFG_MenuEntry *)from->Entries.First; - entry; - entry = ( SFG_MenuEntry * )entry->Node.Next ) - if( entry->SubMenu == menu ) - entry->SubMenu = NULL; -} - -/* - * This function destroys a menu specified by the parameter. All menus - * and windows are updated to make sure no ill pointers hang around. - */ -void fgDestroyMenu( SFG_Menu* menu ) -{ - SFG_Window *window; - SFG_Menu *from; - - FREEGLUT_INTERNAL_ERROR_EXIT ( menu, "Menu destroy function called with null menu", - "fgDestroyMenu" ); - - /* First of all, have all references to this menu removed from all windows: */ - for( window = (SFG_Window *)fgStructure.Windows.First; - window; - window = (SFG_Window *)window->Node.Next ) - fghRemoveMenuFromWindow( window, menu ); - - /* Now proceed with removing menu entries that lead to this menu */ - for( from = ( SFG_Menu * )fgStructure.Menus.First; - from; - from = ( SFG_Menu * )from->Node.Next ) - fghRemoveMenuFromMenu( from, menu ); - - /* - * If the programmer defined a destroy callback, call it - * A. Donev: But first make this the active menu - */ - if( menu->Destroy ) - { - SFG_Menu *activeMenu=fgStructure.CurrentMenu; - fgStructure.CurrentMenu = menu; - menu->Destroy( ); - fgStructure.CurrentMenu = activeMenu; - } - - /* - * Now we are pretty sure the menu is not used anywhere - * and that we can remove all of its entries - */ - while( menu->Entries.First ) - { - SFG_MenuEntry *entry = ( SFG_MenuEntry * ) menu->Entries.First; - - fgListRemove( &menu->Entries, &entry->Node ); - - if( entry->Text ) - free( entry->Text ); - entry->Text = NULL; - - free( entry ); - } - - if( fgStructure.CurrentWindow == menu->Window ) - fgSetWindow( NULL ); - fgDestroyWindow( menu->Window ); - fgListRemove( &fgStructure.Menus, &menu->Node ); - if( fgStructure.CurrentMenu == menu ) - fgStructure.CurrentMenu = NULL; - - free( menu ); -} - -/* - * This function should be called on glutInit(). It will prepare the internal - * structure of freeglut to be used in the application. The structure will be - * destroyed using fgDestroyStructure() on glutMainLoop() return. In that - * case further use of freeglut should be preceeded with a glutInit() call. - */ -void fgCreateStructure( void ) -{ - /* - * We will be needing two lists: the first containing windows, - * and the second containing the user-defined menus. - * Also, no current window/menu is set, as none has been created yet. - */ - - fgListInit(&fgStructure.Windows); - fgListInit(&fgStructure.Menus); - fgListInit(&fgStructure.WindowsToDestroy); - - fgStructure.CurrentWindow = NULL; - fgStructure.CurrentMenu = NULL; - fgStructure.MenuContext = NULL; - fgStructure.GameModeWindow = NULL; - fgStructure.WindowID = 0; - fgStructure.MenuID = 0; -} - -/* - * This function is automatically called on glutMainLoop() return. - * It should deallocate and destroy all remnants of previous - * glutInit()-enforced structure initialization... - */ -void fgDestroyStructure( void ) -{ - /* Clean up the WindowsToDestroy list. */ - fgCloseWindows( ); - - /* Make sure all windows and menus have been deallocated */ - while( fgStructure.Menus.First ) - fgDestroyMenu( ( SFG_Menu * )fgStructure.Menus.First ); - - while( fgStructure.Windows.First ) - fgDestroyWindow( ( SFG_Window * )fgStructure.Windows.First ); -} - -/* - * Helper function to enumerate through all registered top-level windows - */ -void fgEnumWindows( FGCBenumerator enumCallback, SFG_Enumerator* enumerator ) -{ - SFG_Window *window; - - FREEGLUT_INTERNAL_ERROR_EXIT ( enumCallback && enumerator, - "Enumerator or callback missing from window enumerator call", - "fgEnumWindows" ); - - /* Check every of the top-level windows */ - for( window = ( SFG_Window * )fgStructure.Windows.First; - window; - window = ( SFG_Window * )window->Node.Next ) - { - enumCallback( window, enumerator ); - if( enumerator->found ) - return; - } -} - -/* - * Helper function to enumerate through all a window's subwindows - * (single level descent) - */ -void fgEnumSubWindows( SFG_Window* window, FGCBenumerator enumCallback, - SFG_Enumerator* enumerator ) -{ - SFG_Window *child; - - FREEGLUT_INTERNAL_ERROR_EXIT ( enumCallback && enumerator, - "Enumerator or callback missing from subwindow enumerator call", - "fgEnumSubWindows" ); - FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Window Enumeration" ); - - for( child = ( SFG_Window * )window->Children.First; - child; - child = ( SFG_Window * )child->Node.Next ) - { - enumCallback( child, enumerator ); - if( enumerator->found ) - return; - } -} - -/* - * A static helper function to look for a window given its handle - */ -static void fghcbWindowByHandle( SFG_Window *window, - SFG_Enumerator *enumerator ) -{ - if ( enumerator->found ) - return; - - /* Check the window's handle. Hope this works. Looks ugly. That's for sure. */ - if( window->Window.Handle == (SFG_WindowHandleType) (enumerator->data) ) - { - enumerator->found = GL_TRUE; - enumerator->data = window; - - return; - } - - /* Otherwise, check this window's children */ - fgEnumSubWindows( window, fghcbWindowByHandle, enumerator ); -} - -/* - * fgWindowByHandle returns a (SFG_Window *) value pointing to the - * first window in the queue matching the specified window handle. - * The function is defined in freeglut_structure.c file. - */ -SFG_Window* fgWindowByHandle ( SFG_WindowHandleType hWindow ) -{ - SFG_Enumerator enumerator; - - /* This is easy and makes use of the windows enumeration defined above */ - enumerator.found = GL_FALSE; - enumerator.data = (void *)hWindow; - fgEnumWindows( fghcbWindowByHandle, &enumerator ); - - if( enumerator.found ) - return( SFG_Window *) enumerator.data; - return NULL; -} - -/* - * A static helper function to look for a window given its ID - */ -static void fghcbWindowByID( SFG_Window *window, SFG_Enumerator *enumerator ) -{ - /* Make sure we do not overwrite our precious results... */ - if( enumerator->found ) - return; - - /* Check the window's handle. Hope this works. Looks ugly. That's for sure. */ - if( window->ID == *( int *)(enumerator->data) ) - { - enumerator->found = GL_TRUE; - enumerator->data = window; - - return; - } - - /* Otherwise, check this window's children */ - fgEnumSubWindows( window, fghcbWindowByID, enumerator ); -} - -/* - * This function is similiar to the previous one, except it is - * looking for a specified (sub)window identifier. The function - * is defined in freeglut_structure.c file. - */ -SFG_Window* fgWindowByID( int windowID ) -{ - SFG_Enumerator enumerator; - - /* Uses a method very similiar for fgWindowByHandle... */ - enumerator.found = GL_FALSE; - enumerator.data = ( void * )&windowID; - fgEnumWindows( fghcbWindowByID, &enumerator ); - if( enumerator.found ) - return ( SFG_Window * )enumerator.data; - return NULL; -} - -/* - * Looks up a menu given its ID. This is easier that fgWindowByXXX - * as all menus are placed in one doubly linked list... - */ -SFG_Menu* fgMenuByID( int menuID ) -{ - SFG_Menu *menu = NULL; - - /* It's enough to check all entries in fgStructure.Menus... */ - for( menu = (SFG_Menu *)fgStructure.Menus.First; - menu; - menu = (SFG_Menu *)menu->Node.Next ) - if( menu->ID == menuID ) - return menu; - return NULL; -} - -/* - * List functions... - */ -void fgListInit(SFG_List *list) -{ - list->First = NULL; - list->Last = NULL; -} - -void fgListAppend(SFG_List *list, SFG_Node *node) -{ - if ( list->Last ) - { - SFG_Node *ln = (SFG_Node *) list->Last; - ln->Next = node; - node->Prev = ln; - } - else - { - node->Prev = NULL; - list->First = node; - } - - node->Next = NULL; - list->Last = node; -} - -void fgListRemove(SFG_List *list, SFG_Node *node) -{ - if( node->Next ) - ( ( SFG_Node * )node->Next )->Prev = node->Prev; - if( node->Prev ) - ( ( SFG_Node * )node->Prev )->Next = node->Next; - if( ( ( SFG_Node * )list->First ) == node ) - list->First = node->Next; - if( ( ( SFG_Node * )list->Last ) == node ) - list->Last = node->Prev; -} - -int fgListLength(SFG_List *list) -{ - SFG_Node *node; - int length = 0; - - for( node =( SFG_Node * )list->First; - node; - node = ( SFG_Node * )node->Next ) - ++length; - - return length; -} - - -void fgListInsert(SFG_List *list, SFG_Node *next, SFG_Node *node) -{ - SFG_Node *prev; - - if( (node->Next = next) ) - { - prev = next->Prev; - next->Prev = node; - } - else - { - prev = list->Last; - list->Last = node; - } - - if( (node->Prev = prev) ) - prev->Next = node; - else - list->First = node; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/fg_teapot.c b/internal/c/parts/core/android_core/src/fg_teapot.c deleted file mode 100644 index 1353c484d..000000000 --- a/internal/c/parts/core/android_core/src/fg_teapot.c +++ /dev/null @@ -1,200 +0,0 @@ -/* - * freeglut_teapot.c - * - * Teapot(tm) rendering code. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Fri Dec 24 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -/* - * Original teapot code copyright follows: - */ - -/* - * (c) Copyright 1993, Silicon Graphics, Inc. - * - * ALL RIGHTS RESERVED - * - * Permission to use, copy, modify, and distribute this software - * for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that - * both the copyright notice and this permission notice appear in - * supporting documentation, and that the name of Silicon - * Graphics, Inc. not be used in advertising or publicity - * pertaining to distribution of the software without specific, - * written prior permission. - * - * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU - * "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR - * OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF - * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. IN NO - * EVENT SHALL SILICON GRAPHICS, INC. BE LIABLE TO YOU OR ANYONE - * ELSE FOR ANY DIRECT, SPECIAL, INCIDENTAL, INDIRECT OR - * CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES WHATSOEVER, - * INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT, LOSS OF USE, - * SAVINGS OR REVENUE, OR THE CLAIMS OF THIRD PARTIES, WHETHER OR - * NOT SILICON GRAPHICS, INC. HAS BEEN ADVISED OF THE POSSIBILITY - * OF SUCH LOSS, HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, - * ARISING OUT OF OR IN CONNECTION WITH THE POSSESSION, USE OR - * PERFORMANCE OF THIS SOFTWARE. - * - * US Government Users Restricted Rights - * - * Use, duplication, or disclosure by the Government is subject to - * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph - * (c)(1)(ii) of the Rights in Technical Data and Computer - * Software clause at DFARS 252.227-7013 and/or in similar or - * successor clauses in the FAR or the DOD or NASA FAR - * Supplement. Unpublished-- rights reserved under the copyright - * laws of the United States. Contractor/manufacturer is Silicon - * Graphics, Inc., 2011 N. Shoreline Blvd., Mountain View, CA - * 94039-7311. - * - * OpenGL(TM) is a trademark of Silicon Graphics, Inc. - */ - -#include -#include "fg_internal.h" -#include "fg_teapot_data.h" - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - - -static void fghTeapot( GLint grid, GLdouble scale, GLenum type ) -{ -#if defined(_WIN32_WCE) - int i, numV=sizeof(strip_vertices)/4, numI=sizeof(strip_normals)/4; -#else - double p[4][4][3], q[4][4][3], r[4][4][3], s[4][4][3]; - long i, j, k, l; -#endif - - glPushAttrib( GL_ENABLE_BIT | GL_EVAL_BIT ); - glEnable( GL_AUTO_NORMAL ); - glEnable( GL_NORMALIZE ); - glEnable( GL_MAP2_VERTEX_3 ); - glEnable( GL_MAP2_TEXTURE_COORD_2 ); - - glPushMatrix(); - glRotated( 270.0, 1.0, 0.0, 0.0 ); - glScaled( 0.5 * scale, 0.5 * scale, 0.5 * scale ); - glTranslated( 0.0, 0.0, -1.5 ); - -#if defined(_WIN32_WCE) - glRotated( 90.0, 1.0, 0.0, 0.0 ); - glBegin( GL_TRIANGLE_STRIP ); - - for( i = 0; i < numV-1; i++ ) - { - int vidx = strip_vertices[i], - nidx = strip_normals[i]; - - if( vidx != -1 ) - { - glNormal3fv( normals[nidx] ); - glVertex3fv( vertices[vidx] ); - } - else - { - glEnd(); - glBegin( GL_TRIANGLE_STRIP ); - } - } - - glEnd(); -#else - for (i = 0; i < 10; i++) { - for (j = 0; j < 4; j++) { - for (k = 0; k < 4; k++) { - for (l = 0; l < 3; l++) { - p[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l]; - q[j][k][l] = cpdata[patchdata[i][j * 4 + (3 - k)]][l]; - if (l == 1) - q[j][k][l] *= -1.0; - if (i < 6) { - r[j][k][l] = - cpdata[patchdata[i][j * 4 + (3 - k)]][l]; - if (l == 0) - r[j][k][l] *= -1.0; - s[j][k][l] = cpdata[patchdata[i][j * 4 + k]][l]; - if (l == 0) - s[j][k][l] *= -1.0; - if (l == 1) - s[j][k][l] *= -1.0; - } - } - } - } - - glMap2d(GL_MAP2_TEXTURE_COORD_2, 0.0, 1.0, 2, 2, 0.0, 1.0, 4, 2, - &tex[0][0][0]); - glMap2d(GL_MAP2_VERTEX_3, 0.0, 1.0, 3, 4, 0.0, 1.0, 12, 4, - &p[0][0][0]); - glMapGrid2d(grid, 0.0, 1.0, grid, 0.0, 1.0); - glEvalMesh2(type, 0, grid, 0, grid); - glMap2d(GL_MAP2_VERTEX_3, 0.0, 1.0, 3, 4, 0.0, 1.0, 12, 4, - &q[0][0][0]); - glEvalMesh2(type, 0, grid, 0, grid); - if (i < 6) { - glMap2d(GL_MAP2_VERTEX_3, 0.0, 1.0, 3, 4, 0.0, 1.0, 12, 4, - &r[0][0][0]); - glEvalMesh2(type, 0, grid, 0, grid); - glMap2d(GL_MAP2_VERTEX_3, 0.0, 1.0, 3, 4, 0.0, 1.0, 12, 4, - &s[0][0][0]); - glEvalMesh2(type, 0, grid, 0, grid); - } - } -#endif /* defined(_WIN32_WCE) */ - - glPopMatrix(); - glPopAttrib(); -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Renders a beautiful wired teapot... - */ -void FGAPIENTRY glutWireTeapot( GLdouble size ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutWireTeapot" ); - /* We will use the general teapot rendering code */ - fghTeapot( 10, size, GL_LINE ); -} - -/* - * Renders a beautiful filled teapot... - */ -void FGAPIENTRY glutSolidTeapot( GLdouble size ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSolidTeapot" ); - /* We will use the general teapot rendering code */ - fghTeapot( 7, size, GL_FILL ); -} - -/*** END OF FILE ***/ - - - - - diff --git a/internal/c/parts/core/android_core/src/fg_teapot_data.h b/internal/c/parts/core/android_core/src/fg_teapot_data.h deleted file mode 100644 index 183951be1..000000000 --- a/internal/c/parts/core/android_core/src/fg_teapot_data.h +++ /dev/null @@ -1,2429 +0,0 @@ -/* - * freeglut_teapot_data.h - * - * The freeglut library teapot data include file. - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef FREEGLUT_TEAPOT_DATA_H -#define FREEGLUT_TEAPOT_DATA_H - -#if defined(_WIN32_WCE) -/* - * Submitted through the kind offices of Daniel Wagner (daniel@ims.tuwien.ac.at) - */ - -/* 530 vertices */ - -const int numVertices = 530; -const float vertices[530][3] = { -2.1f, 3.6f, 0.0f, -2.071f, 3.711f, 0.0f, -2.105f, 3.748f, 0.0f, -2.174f, 3.711f, 0.0f, -2.25f, 3.6f, 0.0f, -1.937f, 3.6f, 0.8242f, -1.91f, 3.711f, 0.8128f, -1.942f, 3.748f, 0.8261f, -2.005f, 3.711f, 0.8532f, -2.076f, 3.6f, 0.8831f, -1.491f, 3.6f, 1.491f, -1.47f, 3.711f, 1.47f, -1.494f, 3.748f, 1.494f, -1.543f, 3.711f, 1.543f, -1.597f, 3.6f, 1.597f, -0.8242f, 3.6f, 1.937f, -0.8128f, 3.711f, 1.91f, -0.8261f, 3.748f, 1.942f, -0.8532f, 3.711f, 2.005f, -0.8831f, 3.6f, 2.076f, -0.0f, 3.6f, 2.1f, -0.0f, 3.711f, 2.071f, -0.0f, 3.748f, 2.105f, -0.0f, 3.711f, 2.174f, -0.0f, 3.6f, 2.25f, --0.8812f, 3.6f, 1.937f, --0.8368f, 3.711f, 1.91f, --0.8332f, 3.748f, 1.942f, --0.8541f, 3.711f, 2.005f, --0.8831f, 3.6f, 2.076f, --1.542f, 3.6f, 1.491f, --1.492f, 3.711f, 1.47f, --1.501f, 3.748f, 1.494f, --1.544f, 3.711f, 1.543f, --1.597f, 3.6f, 1.597f, --1.956f, 3.6f, 0.8242f, --1.918f, 3.711f, 0.8128f, --1.944f, 3.748f, 0.8261f, --2.006f, 3.711f, 0.8532f, --2.076f, 3.6f, 0.8831f, --2.1f, 3.6f, 0.0f, --2.071f, 3.711f, 0.0f, --2.105f, 3.748f, 0.0f, --2.174f, 3.711f, 0.0f, --2.25f, 3.6f, 0.0f, --1.937f, 3.6f, -0.8242f, --1.91f, 3.711f, -0.8128f, --1.942f, 3.748f, -0.8261f, --2.005f, 3.711f, -0.8532f, --2.076f, 3.6f, -0.8831f, --1.491f, 3.6f, -1.491f, --1.47f, 3.711f, -1.47f, --1.494f, 3.748f, -1.494f, --1.543f, 3.711f, -1.543f, --1.597f, 3.6f, -1.597f, --0.8242f, 3.6f, -1.937f, --0.8128f, 3.711f, -1.91f, --0.8261f, 3.748f, -1.942f, --0.8532f, 3.711f, -2.005f, --0.8831f, 3.6f, -2.076f, -0.0f, 3.6f, -2.1f, -0.0f, 3.711f, -2.071f, -0.0f, 3.748f, -2.105f, -0.0f, 3.711f, -2.174f, -0.0f, 3.6f, -2.25f, -0.8242f, 3.6f, -1.937f, -0.8128f, 3.711f, -1.91f, -0.8261f, 3.748f, -1.942f, -0.8532f, 3.711f, -2.005f, -0.8831f, 3.6f, -2.076f, -1.491f, 3.6f, -1.491f, -1.47f, 3.711f, -1.47f, -1.494f, 3.748f, -1.494f, -1.543f, 3.711f, -1.543f, -1.597f, 3.6f, -1.597f, -1.937f, 3.6f, -0.8242f, -1.91f, 3.711f, -0.8128f, -1.942f, 3.748f, -0.8261f, -2.005f, 3.711f, -0.8532f, -2.076f, 3.6f, -0.8831f, -2.525f, 3.011f, 0.0f, -2.766f, 2.433f, 0.0f, -2.936f, 1.876f, 0.0f, -3.0f, 1.35f, 0.0f, -2.33f, 3.011f, 0.9912f, -2.551f, 2.433f, 1.086f, -2.708f, 1.876f, 1.152f, -2.767f, 1.35f, 1.178f, -1.793f, 3.011f, 1.793f, -1.964f, 2.433f, 1.964f, -2.084f, 1.876f, 2.084f, -2.13f, 1.35f, 2.13f, -0.9912f, 3.011f, 2.33f, -1.086f, 2.433f, 2.551f, -1.152f, 1.876f, 2.708f, -1.178f, 1.35f, 2.767f, -0.0f, 3.011f, 2.525f, -0.0f, 2.433f, 2.766f, -0.0f, 1.876f, 2.936f, -0.0f, 1.35f, 3.0f, --0.9912f, 3.011f, 2.33f, --1.086f, 2.433f, 2.551f, --1.152f, 1.876f, 2.708f, --1.178f, 1.35f, 2.767f, --1.793f, 3.011f, 1.793f, --1.964f, 2.433f, 1.964f, --2.084f, 1.876f, 2.084f, --2.13f, 1.35f, 2.13f, --2.33f, 3.011f, 0.9912f, --2.551f, 2.433f, 1.086f, --2.708f, 1.876f, 1.152f, --2.767f, 1.35f, 1.178f, --2.525f, 3.011f, 0.0f, --2.766f, 2.433f, 0.0f, --2.936f, 1.876f, 0.0f, --3.0f, 1.35f, 0.0f, --2.33f, 3.011f, -0.9912f, --2.551f, 2.433f, -1.086f, --2.708f, 1.876f, -1.152f, --2.767f, 1.35f, -1.178f, --1.793f, 3.011f, -1.793f, --1.964f, 2.433f, -1.964f, --2.084f, 1.876f, -2.084f, --2.13f, 1.35f, -2.13f, --0.9912f, 3.011f, -2.33f, --1.086f, 2.433f, -2.551f, --1.152f, 1.876f, -2.708f, --1.178f, 1.35f, -2.767f, -0.0f, 3.011f, -2.525f, -0.0f, 2.433f, -2.766f, -0.0f, 1.876f, -2.936f, -0.0f, 1.35f, -3.0f, -0.9912f, 3.011f, -2.33f, -1.086f, 2.433f, -2.551f, -1.152f, 1.876f, -2.708f, -1.178f, 1.35f, -2.767f, -1.793f, 3.011f, -1.793f, -1.964f, 2.433f, -1.964f, -2.084f, 1.876f, -2.084f, -2.13f, 1.35f, -2.13f, -2.33f, 3.011f, -0.9912f, -2.551f, 2.433f, -1.086f, -2.708f, 1.876f, -1.152f, -2.767f, 1.35f, -1.178f, -2.883f, 0.9053f, 0.0f, -2.625f, 0.5766f, 0.0f, -2.367f, 0.3533f, 0.0f, -2.25f, 0.225f, 0.0f, -2.659f, 0.9053f, 1.132f, -2.422f, 0.5766f, 1.03f, -2.184f, 0.3533f, 0.9291f, -2.076f, 0.225f, 0.8831f, -2.047f, 0.9053f, 2.047f, -1.864f, 0.5766f, 1.864f, -1.681f, 0.3533f, 1.681f, -1.597f, 0.225f, 1.597f, -1.132f, 0.9053f, 2.659f, -1.03f, 0.5766f, 2.422f, -0.9291f, 0.3533f, 2.184f, -0.8831f, 0.225f, 2.076f, -0.0f, 0.9053f, 2.883f, -0.0f, 0.5766f, 2.625f, -0.0f, 0.3533f, 2.367f, -0.0f, 0.225f, 2.25f, --1.132f, 0.9053f, 2.659f, --1.03f, 0.5766f, 2.422f, --0.9291f, 0.3533f, 2.184f, --0.8831f, 0.225f, 2.076f, --2.047f, 0.9053f, 2.047f, --1.864f, 0.5766f, 1.864f, --1.681f, 0.3533f, 1.681f, --1.597f, 0.225f, 1.597f, --2.659f, 0.9053f, 1.132f, --2.422f, 0.5766f, 1.03f, --2.184f, 0.3533f, 0.9291f, --2.076f, 0.225f, 0.8831f, --2.883f, 0.9053f, 0.0f, --2.625f, 0.5766f, 0.0f, --2.367f, 0.3533f, 0.0f, --2.25f, 0.225f, 0.0f, --2.659f, 0.9053f, -1.132f, --2.422f, 0.5766f, -1.03f, --2.184f, 0.3533f, -0.9291f, --2.076f, 0.225f, -0.8831f, --2.047f, 0.9053f, -2.047f, --1.864f, 0.5766f, -1.864f, --1.681f, 0.3533f, -1.681f, --1.597f, 0.225f, -1.597f, --1.132f, 0.9053f, -2.659f, --1.03f, 0.5766f, -2.422f, --0.9291f, 0.3533f, -2.184f, --0.8831f, 0.225f, -2.076f, -0.0f, 0.9053f, -2.883f, -0.0f, 0.5766f, -2.625f, -0.0f, 0.3533f, -2.367f, -0.0f, 0.225f, -2.25f, -1.132f, 0.9053f, -2.659f, -1.03f, 0.5766f, -2.422f, -0.9291f, 0.3533f, -2.184f, -0.8831f, 0.225f, -2.076f, -2.047f, 0.9053f, -2.047f, -1.864f, 0.5766f, -1.864f, -1.681f, 0.3533f, -1.681f, -1.597f, 0.225f, -1.597f, -2.659f, 0.9053f, -1.132f, -2.422f, 0.5766f, -1.03f, -2.184f, 0.3533f, -0.9291f, -2.076f, 0.225f, -0.8831f, -2.199f, 0.1424f, 0.0f, -1.927f, 0.07031f, 0.0f, -1.253f, 0.01934f, 0.0f, -0.0f, 0.0f, 0.0f, -2.029f, 0.1424f, 0.8631f, -1.777f, 0.07031f, 0.7562f, -1.156f, 0.01934f, 0.4919f, -1.561f, 0.1424f, 1.561f, -1.368f, 0.07031f, 1.368f, -0.8899f, 0.01934f, 0.8899f, -0.8631f, 0.1424f, 2.029f, -0.7562f, 0.07031f, 1.777f, -0.4919f, 0.01934f, 1.156f, -0.0f, 0.1424f, 2.199f, -0.0f, 0.07031f, 1.927f, -0.0f, 0.01934f, 1.253f, --0.8631f, 0.1424f, 2.029f, --0.7562f, 0.07031f, 1.777f, --0.4919f, 0.01934f, 1.156f, --1.561f, 0.1424f, 1.561f, --1.368f, 0.07031f, 1.368f, --0.8899f, 0.01934f, 0.8899f, --2.029f, 0.1424f, 0.8631f, --1.777f, 0.07031f, 0.7562f, --1.156f, 0.01934f, 0.4919f, --2.199f, 0.1424f, 0.0f, --1.927f, 0.07031f, 0.0f, --1.253f, 0.01934f, 0.0f, --2.029f, 0.1424f, -0.8631f, --1.777f, 0.07031f, -0.7562f, --1.156f, 0.01934f, -0.4919f, --1.561f, 0.1424f, -1.561f, --1.368f, 0.07031f, -1.368f, --0.8899f, 0.01934f, -0.8899f, --0.8631f, 0.1424f, -2.029f, --0.7562f, 0.07031f, -1.777f, --0.4919f, 0.01934f, -1.156f, -0.0f, 0.1424f, -2.199f, -0.0f, 0.07031f, -1.927f, -0.0f, 0.01934f, -1.253f, -0.8631f, 0.1424f, -2.029f, -0.7562f, 0.07031f, -1.777f, -0.4919f, 0.01934f, -1.156f, -1.561f, 0.1424f, -1.561f, -1.368f, 0.07031f, -1.368f, -0.8899f, 0.01934f, -0.8899f, -2.029f, 0.1424f, -0.8631f, -1.777f, 0.07031f, -0.7562f, -1.156f, 0.01934f, -0.4919f, --2.4f, 3.038f, 0.0f, --3.101f, 3.032f, 0.0f, --3.619f, 2.995f, 0.0f, --3.94f, 2.895f, 0.0f, --4.05f, 2.7f, 0.0f, --2.377f, 3.09f, 0.2531f, --3.122f, 3.084f, 0.2531f, --3.669f, 3.041f, 0.2531f, --4.005f, 2.926f, 0.2531f, --4.12f, 2.7f, 0.2531f, --2.325f, 3.206f, 0.3375f, --3.168f, 3.198f, 0.3375f, --3.778f, 3.143f, 0.3375f, --4.15f, 2.993f, 0.3375f, --4.275f, 2.7f, 0.3375f, --2.273f, 3.322f, 0.2531f, --3.214f, 3.313f, 0.2531f, --3.888f, 3.244f, 0.2531f, --4.294f, 3.06f, 0.2531f, --4.43f, 2.7f, 0.2531f, --2.25f, 3.375f, 0.0f, --3.234f, 3.364f, 0.0f, --3.938f, 3.291f, 0.0f, --4.359f, 3.09f, 0.0f, --4.5f, 2.7f, 0.0f, --2.273f, 3.322f, -0.2531f, --3.214f, 3.313f, -0.2531f, --3.888f, 3.244f, -0.2531f, --4.294f, 3.06f, -0.2531f, --4.43f, 2.7f, -0.2531f, --2.325f, 3.206f, -0.3375f, --3.168f, 3.198f, -0.3375f, --3.778f, 3.143f, -0.3375f, --4.15f, 2.993f, -0.3375f, --4.275f, 2.7f, -0.3375f, --2.377f, 3.09f, -0.2531f, --3.122f, 3.084f, -0.2531f, --3.669f, 3.041f, -0.2531f, --4.005f, 2.926f, -0.2531f, --4.12f, 2.7f, -0.2531f, --3.991f, 2.394f, 0.0f, --3.806f, 2.025f, 0.0f, --3.48f, 1.656f, 0.0f, --3.0f, 1.35f, 0.0f, --4.055f, 2.365f, 0.2531f, --3.852f, 1.98f, 0.2531f, --3.496f, 1.6f, 0.2531f, --2.977f, 1.28f, 0.2531f, --4.196f, 2.3f, 0.3375f, --3.952f, 1.881f, 0.3375f, --3.531f, 1.478f, 0.3375f, --2.925f, 1.125f, 0.3375f, --4.336f, 2.235f, 0.2531f, --4.051f, 1.782f, 0.2531f, --3.566f, 1.356f, 0.2531f, --2.873f, 0.9703f, 0.2531f, --4.4f, 2.205f, 0.0f, --4.097f, 1.737f, 0.0f, --3.582f, 1.3f, 0.0f, --2.85f, 0.9f, 0.0f, --4.336f, 2.235f, -0.2531f, --4.051f, 1.782f, -0.2531f, --3.566f, 1.356f, -0.2531f, --2.873f, 0.9703f, -0.2531f, --4.196f, 2.3f, -0.3375f, --3.952f, 1.881f, -0.3375f, --3.531f, 1.478f, -0.3375f, --2.925f, 1.125f, -0.3375f, --4.055f, 2.365f, -0.2531f, --3.852f, 1.98f, -0.2531f, --3.496f, 1.6f, -0.2531f, --2.977f, 1.28f, -0.2531f, -2.55f, 2.137f, 0.0f, -3.27f, 2.303f, 0.0f, -3.581f, 2.7f, 0.0f, -3.752f, 3.182f, 0.0f, -4.05f, 3.6f, 0.0f, -2.55f, 1.944f, 0.5569f, -3.324f, 2.159f, 0.5028f, -3.652f, 2.617f, 0.3839f, -3.838f, 3.151f, 0.265f, -4.191f, 3.6f, 0.2109f, -2.55f, 1.519f, 0.7425f, -3.445f, 1.844f, 0.6704f, -3.806f, 2.433f, 0.5119f, -4.027f, 3.085f, 0.3533f, -4.5f, 3.6f, 0.2813f, -2.55f, 1.093f, 0.5569f, -3.566f, 1.529f, 0.5028f, -3.961f, 2.249f, 0.3839f, -4.215f, 3.018f, 0.265f, -4.809f, 3.6f, 0.2109f, -2.55f, 0.9f, 0.0f, -3.621f, 1.385f, 0.0f, -4.031f, 2.166f, 0.0f, -4.301f, 2.988f, 0.0f, -4.95f, 3.6f, 0.0f, -2.55f, 1.093f, -0.5569f, -3.566f, 1.529f, -0.5028f, -3.961f, 2.249f, -0.3839f, -4.215f, 3.018f, -0.265f, -4.809f, 3.6f, -0.2109f, -2.55f, 1.519f, -0.7425f, -3.445f, 1.844f, -0.6704f, -3.806f, 2.433f, -0.5119f, -4.027f, 3.085f, -0.3533f, -4.5f, 3.6f, -0.2813f, -2.55f, 1.944f, -0.5569f, -3.324f, 2.159f, -0.5028f, -3.652f, 2.617f, -0.3839f, -3.838f, 3.151f, -0.265f, -4.191f, 3.6f, -0.2109f, -4.158f, 3.663f, 0.0f, -4.238f, 3.684f, 0.0f, -4.261f, 3.663f, 0.0f, -4.2f, 3.6f, 0.0f, -4.308f, 3.666f, 0.1978f, -4.379f, 3.689f, 0.1687f, -4.381f, 3.668f, 0.1397f, -4.294f, 3.6f, 0.1266f, -4.64f, 3.673f, 0.2637f, -4.69f, 3.7f, 0.225f, -4.645f, 3.677f, 0.1863f, -4.5f, 3.6f, 0.1688f, -4.971f, 3.68f, 0.1978f, -5.001f, 3.711f, 0.1687f, -4.909f, 3.687f, 0.1397f, -4.706f, 3.6f, 0.1266f, -5.122f, 3.683f, 0.0f, -5.142f, 3.716f, 0.0f, -5.029f, 3.691f, 0.0f, -4.8f, 3.6f, 0.0f, -4.971f, 3.68f, -0.1978f, -5.001f, 3.711f, -0.1687f, -4.909f, 3.687f, -0.1397f, -4.706f, 3.6f, -0.1266f, -4.64f, 3.673f, -0.2637f, -4.69f, 3.7f, -0.225f, -4.645f, 3.677f, -0.1863f, -4.5f, 3.6f, -0.1688f, -4.308f, 3.666f, -0.1978f, -4.379f, 3.689f, -0.1687f, -4.381f, 3.668f, -0.1397f, -4.294f, 3.6f, -0.1266f, -0.0f, 4.725f, 0.0f, -0.5109f, 4.651f, 0.0f, -0.4875f, 4.472f, 0.0f, -0.2953f, 4.25f, 0.0f, -0.3f, 4.05f, 0.0f, -0.4715f, 4.651f, 0.2011f, -0.4499f, 4.472f, 0.1918f, -0.2725f, 4.25f, 0.1161f, -0.2768f, 4.05f, 0.1178f, -0.3632f, 4.651f, 0.3632f, -0.3465f, 4.472f, 0.3465f, -0.2098f, 4.25f, 0.2098f, -0.213f, 4.05f, 0.213f, -0.2011f, 4.651f, 0.4715f, -0.1918f, 4.472f, 0.4499f, -0.1161f, 4.25f, 0.2725f, -0.1178f, 4.05f, 0.2768f, -0.0f, 4.651f, 0.5109f, -0.0f, 4.472f, 0.4875f, -0.0f, 4.25f, 0.2953f, -0.0f, 4.05f, 0.3f, --0.2011f, 4.651f, 0.4715f, --0.1918f, 4.472f, 0.4499f, --0.1161f, 4.25f, 0.2725f, --0.1178f, 4.05f, 0.2768f, --0.3632f, 4.651f, 0.3632f, --0.3465f, 4.472f, 0.3465f, --0.2098f, 4.25f, 0.2098f, --0.213f, 4.05f, 0.213f, --0.4715f, 4.651f, 0.2011f, --0.4499f, 4.472f, 0.1918f, --0.2725f, 4.25f, 0.1161f, --0.2768f, 4.05f, 0.1178f, --0.5109f, 4.651f, 0.0f, --0.4875f, 4.472f, 0.0f, --0.2953f, 4.25f, 0.0f, --0.3f, 4.05f, 0.0f, --0.4715f, 4.651f, -0.2011f, --0.4499f, 4.472f, -0.1918f, --0.2725f, 4.25f, -0.1161f, --0.2768f, 4.05f, -0.1178f, --0.3632f, 4.651f, -0.3632f, --0.3465f, 4.472f, -0.3465f, --0.2098f, 4.25f, -0.2098f, --0.213f, 4.05f, -0.213f, --0.2011f, 4.651f, -0.4715f, --0.1918f, 4.472f, -0.4499f, --0.1161f, 4.25f, -0.2725f, --0.1178f, 4.05f, -0.2768f, -0.0f, 4.651f, -0.5109f, -0.0f, 4.472f, -0.4875f, -0.0f, 4.25f, -0.2953f, -0.0f, 4.05f, -0.3f, -0.2011f, 4.651f, -0.4715f, -0.1918f, 4.472f, -0.4499f, -0.1161f, 4.25f, -0.2725f, -0.1178f, 4.05f, -0.2768f, -0.3632f, 4.651f, -0.3632f, -0.3465f, 4.472f, -0.3465f, -0.2098f, 4.25f, -0.2098f, -0.213f, 4.05f, -0.213f, -0.4715f, 4.651f, -0.2011f, -0.4499f, 4.472f, -0.1918f, -0.2725f, 4.25f, -0.1161f, -0.2768f, 4.05f, -0.1178f, -0.6844f, 3.916f, 0.0f, -1.237f, 3.825f, 0.0f, -1.734f, 3.734f, 0.0f, -1.95f, 3.6f, 0.0f, -0.6313f, 3.916f, 0.2686f, -1.142f, 3.825f, 0.4857f, -1.6f, 3.734f, 0.6807f, -1.799f, 3.6f, 0.7654f, -0.4859f, 3.916f, 0.4859f, -0.8786f, 3.825f, 0.8786f, -1.231f, 3.734f, 1.231f, -1.385f, 3.6f, 1.385f, -0.2686f, 3.916f, 0.6313f, -0.4857f, 3.825f, 1.142f, -0.6807f, 3.734f, 1.6f, -0.7654f, 3.6f, 1.799f, -0.0f, 3.916f, 0.6844f, -0.0f, 3.825f, 1.237f, -0.0f, 3.734f, 1.734f, -0.0f, 3.6f, 1.95f, --0.2686f, 3.916f, 0.6313f, --0.4857f, 3.825f, 1.142f, --0.6807f, 3.734f, 1.6f, --0.7654f, 3.6f, 1.799f, --0.4859f, 3.916f, 0.4859f, --0.8786f, 3.825f, 0.8786f, --1.231f, 3.734f, 1.231f, --1.385f, 3.6f, 1.385f, --0.6313f, 3.916f, 0.2686f, --1.142f, 3.825f, 0.4857f, --1.6f, 3.734f, 0.6807f, --1.799f, 3.6f, 0.7654f, --0.6844f, 3.916f, 0.0f, --1.237f, 3.825f, 0.0f, --1.734f, 3.734f, 0.0f, --1.95f, 3.6f, 0.0f, --0.6313f, 3.916f, -0.2686f, --1.142f, 3.825f, -0.4857f, --1.6f, 3.734f, -0.6807f, --1.799f, 3.6f, -0.7654f, --0.4859f, 3.916f, -0.4859f, --0.8786f, 3.825f, -0.8786f, --1.231f, 3.734f, -1.231f, --1.385f, 3.6f, -1.385f, --0.2686f, 3.916f, -0.6313f, --0.4857f, 3.825f, -1.142f, --0.6807f, 3.734f, -1.6f, --0.7654f, 3.6f, -1.799f, -0.0f, 3.916f, -0.6844f, -0.0f, 3.825f, -1.237f, -0.0f, 3.734f, -1.734f, -0.0f, 3.6f, -1.95f, -0.2686f, 3.916f, -0.6313f, -0.4857f, 3.825f, -1.142f, -0.6807f, 3.734f, -1.6f, -0.7654f, 3.6f, -1.799f, -0.4859f, 3.916f, -0.4859f, -0.8786f, 3.825f, -0.8786f, -1.231f, 3.734f, -1.231f, -1.385f, 3.6f, -1.385f, -0.6313f, 3.916f, -0.2686f, -1.142f, 3.825f, -0.4857f, -1.6f, 3.734f, -0.6807f, -1.799f, 3.6f, -0.7654f -}; - - -/* 530 normals */ -const int numNormals = 530; -const float normals[530][3] = { -0.0486f, -0.9986f, 0.0168f, -0.9976f, -0.0678f, -0.0008f, --0.233f, 0.8502f, -0.4719f, --0.2299f, 0.9679f, 0.1004f, --0.1648f, 0.985f, 0.0501f, --0.0117f, 0.7461f, 0.6656f, --0.0888f, 0.9692f, 0.2294f, -0.6449f, -0.7172f, -0.2637f, --0.066f, 0.9851f, 0.1583f, --0.6585f, -0.342f, -0.6703f, --0.293f, 0.9558f, 0.0209f, -0.179f, 0.9825f, -0.0513f, --0.0094f, 0.903f, 0.4295f, --0.0059f, -0.986f, -0.1662f, --0.7355f, 0.6774f, -0.0026f, --0.997f, 0.0763f, 0.0019f, --0.1478f, 0.9333f, 0.3271f, --0.3014f, -0.6034f, -0.7382f, --0.7048f, -0.0681f, 0.706f, --0.3361f, 0.9332f, 0.1263f, -0.3709f, 0.1524f, -0.916f, --0.3399f, -0.4121f, 0.8453f, -0.1921f, 0.9724f, -0.1316f, --0.2671f, 0.7429f, 0.6137f, -0.0888f, 0.9692f, -0.2294f, -0.066f, 0.9851f, -0.1583f, -0.9411f, 0.338f, 0.001f, -0.8666f, -0.2559f, 0.4282f, --0.8029f, 0.4968f, 0.3293f, --0.0008f, -0.0678f, -0.9976f, --0.8453f, -0.4121f, -0.3399f, --0.4801f, -0.8741f, 0.0733f, -0.6355f, -0.772f, 0.0006f, --0.9215f, -0.0678f, 0.3822f, --0.6698f, -0.6907f, -0.2723f, -0.3734f, 0.876f, -0.3051f, -0.3548f, -0.4118f, 0.8393f, --0.3629f, 0.2429f, 0.8995f, -0.9033f, 0.2079f, 0.375f, --0.2824f, 0.5939f, 0.7532f, -0.8938f, 0.4452f, 0.0532f, -0.1478f, 0.9333f, -0.3271f, -0.0085f, -0.0031f, -0.9999f, -0.3595f, 0.933f, 0.0115f, -0.8995f, 0.2429f, 0.3629f, -0.7048f, -0.0681f, -0.706f, --0.6428f, -0.7172f, -0.2688f, -0.6366f, -0.447f, 0.6283f, --0.1213f, -0.9861f, -0.1128f, -0.8003f, 0.4978f, 0.334f, -0.3361f, 0.9332f, -0.1263f, -0.3399f, -0.4121f, -0.8453f, --0.3909f, 0.4452f, 0.8055f, -0.0117f, 0.7462f, -0.6655f, -0.9215f, -0.0678f, -0.3822f, -0.3582f, -0.7656f, 0.5343f, --0.9782f, 0.2075f, -0.0011f, -0.2824f, 0.5939f, -0.7532f, -0.035f, -0.8413f, 0.5393f, --0.8044f, 0.5934f, 0.0262f, --0.1128f, -0.9861f, 0.1213f, -0.13f, -0.1396f, 0.9816f, -0.6644f, 0.3392f, 0.6659f, --0.0042f, -0.6898f, -0.7239f, --0.1587f, 0.9851f, 0.065f, --0.8719f, -0.3415f, 0.3508f, -0.6486f, 0.4756f, -0.5941f, --0.4991f, 0.8499f, -0.1684f, --0.3969f, 0.6342f, -0.6634f, -0.7041f, -0.3863f, -0.5956f, -0.3909f, 0.4452f, -0.8055f, --0.0391f, -0.0113f, 0.9991f, --0.3321f, 0.5936f, -0.733f, -0.8523f, -0.5219f, -0.0338f, -0.329f, 0.4978f, 0.8023f, -0.8044f, 0.5934f, -0.0262f, -0.1128f, -0.9861f, -0.1213f, -0.0178f, 0.9861f, -0.1651f, -0.3491f, 0.4045f, 0.8452f, --0.2727f, 0.8505f, 0.4496f, -0.065f, 0.9851f, 0.1587f, --0.0005f, 0.4037f, 0.9148f, --0.0077f, -0.4109f, -0.9116f, -0.5609f, -0.604f, 0.5661f, -0.8236f, 0.5668f, -0.0138f, -0.1587f, 0.9851f, -0.065f, -0.8719f, -0.3415f, -0.3508f, --0.7382f, -0.6034f, 0.3014f, -0.0346f, 0.8495f, 0.5263f, --0.4373f, -0.7921f, -0.4257f, --0.0532f, 0.4452f, 0.8938f, -0.0689f, -0.9861f, 0.1509f, --0.1509f, -0.9861f, 0.0689f, -0.7706f, -0.2424f, -0.5893f, --0.7543f, -0.6564f, 0.0105f, -0.0005f, 0.4037f, -0.9148f, --0.9116f, -0.4109f, 0.0077f, -0.0058f, -0.0438f, 0.999f, -0.1719f, 0.985f, 0.0005f, --0.1697f, 0.9693f, 0.1774f, -0.5874f, -0.5124f, 0.6263f, -0.7382f, -0.6034f, -0.3014f, --0.1518f, 0.985f, -0.081f, -0.646f, 0.4051f, 0.6468f, -0.334f, 0.4978f, -0.8003f, --0.7354f, -0.6034f, -0.3082f, --0.6919f, 0.2428f, -0.6798f, -0.0532f, 0.4452f, -0.8938f, -0.3547f, -0.3173f, 0.8794f, -0.9879f, -0.1547f, -0.0033f, --0.0462f, -0.9986f, 0.0223f, --0.6088f, 0.4806f, 0.6311f, --0.109f, -0.1969f, -0.9743f, -0.1509f, -0.9861f, -0.0689f, --0.0568f, 0.9983f, 0.0009f, -0.9074f, -0.3096f, -0.2839f, -0.8677f, 0.4969f, 0.0026f, --0.2723f, -0.6907f, 0.6698f, --0.4734f, -0.6798f, 0.5599f, -0.9116f, -0.4109f, -0.0077f, -0.1697f, 0.9693f, -0.1774f, -0.5875f, 0.5937f, 0.5497f, --0.3232f, 0.6846f, 0.6533f, --0.5078f, -0.6913f, 0.5139f, --0.4612f, 0.7474f, -0.478f, --0.2071f, -0.8049f, 0.556f, --0.6976f, -0.7164f, -0.0027f, --0.8697f, 0.3388f, 0.3587f, -0.0462f, -0.9986f, -0.0223f, -0.2723f, -0.6907f, -0.6698f, --0.829f, -0.4466f, -0.3365f, -0.9148f, 0.4037f, 0.0005f, --0.1583f, 0.9851f, -0.066f, -0.148f, 0.9838f, 0.1002f, --0.1717f, 0.985f, -0.0162f, --0.4282f, -0.2559f, 0.8666f, -0.3094f, -0.2556f, 0.9159f, -0.2803f, -0.6907f, 0.6665f, --0.6154f, 0.497f, 0.6117f, --0.0262f, 0.5934f, -0.8044f, -0.0286f, 0.1639f, -0.986f, --0.6924f, 0.2083f, 0.6907f, --0.0105f, 0.9975f, -0.0685f, -0.5078f, -0.6913f, -0.5139f, -0.2071f, -0.8049f, -0.556f, --0.4903f, -0.7178f, -0.4942f, --0.2637f, -0.7172f, -0.6449f, --0.3822f, -0.0678f, -0.9215f, -0.8697f, 0.3388f, -0.3587f, -0.2461f, -0.805f, 0.5397f, --0.2615f, 0.9334f, 0.2452f, -0.6187f, 0.747f, -0.243f, -0.0375f, -0.8401f, -0.5411f, -0.0054f, 0.9691f, 0.2464f, -0.3587f, 0.3388f, 0.8697f, -0.3993f, 0.6582f, -0.6381f, --0.3476f, -0.4464f, -0.8245f, -0.099f, 0.9692f, 0.2251f, --0.3666f, -0.3412f, 0.8655f, -0.0396f, 0.153f, -0.9874f, -0.0349f, 0.9969f, -0.0698f, -0.1096f, 0.985f, 0.1324f, --0.0578f, -0.9861f, 0.1556f, -0.4479f, -0.5145f, -0.7311f, -0.6924f, 0.2083f, -0.6907f, -0.6096f, 0.747f, 0.265f, --0.3508f, -0.3415f, -0.8719f, --0.6215f, 0.4454f, -0.6443f, --0.4942f, -0.7178f, 0.4903f, --0.9402f, -0.3403f, -0.0085f, -0.0056f, -0.0358f, 0.9993f, -0.2615f, 0.9334f, -0.2452f, --0.0024f, 0.0291f, -0.9995f, --0.2667f, 0.9637f, -0.001f, -0.0569f, -0.2712f, -0.9608f, -0.7463f, 0.254f, 0.615f, -0.5153f, 0.6516f, -0.5564f, -0.0223f, -0.9986f, 0.0462f, -0.3666f, -0.3412f, -0.8655f, -0.0578f, -0.9861f, -0.1556f, -0.6111f, 0.4984f, 0.6148f, --0.243f, 0.747f, -0.6187f, --0.0092f, 0.2338f, -0.9722f, -0.478f, 0.7474f, -0.4612f, --0.0058f, -0.4457f, -0.8951f, --0.4856f, -0.6774f, -0.5524f, -0.54f, 0.6414f, 0.5448f, --0.3365f, -0.4466f, 0.829f, --0.2257f, 0.795f, 0.5629f, -0.8055f, 0.4452f, 0.3909f, -0.3729f, 0.208f, 0.9042f, --0.727f, -0.2562f, 0.6369f, --0.0514f, -0.9986f, 0.0029f, -0.9159f, 0.1555f, -0.3699f, -0.0019f, -0.2377f, -0.9713f, -0.4942f, -0.7178f, -0.4903f, -0.6497f, -0.4127f, 0.6383f, -0.0089f, 0.0486f, -0.9987f, --0.0213f, 0.6301f, -0.7761f, --0.9269f, -0.3751f, 0.0038f, --0.1215f, 0.9852f, 0.1207f, --0.5856f, 0.5198f, 0.6218f, -0.8655f, -0.3412f, 0.3666f, --0.2464f, 0.9691f, 0.0054f, -0.0123f, 0.1386f, 0.9902f, -0.0179f, -0.0369f, 0.9991f, --0.1207f, 0.9852f, -0.1215f, --0.0081f, 0.5671f, 0.8235f, --0.8689f, 0.3387f, -0.3607f, -0.0062f, 0.0309f, -0.9995f, -0.3365f, -0.4466f, -0.829f, --0.3787f, 0.2424f, -0.8931f, --0.2904f, 0.4454f, -0.8468f, --0.8707f, 0.4915f, 0.0133f, -0.163f, -0.8182f, 0.5512f, -0.4337f, -0.8052f, 0.4041f, -0.0514f, -0.9986f, -0.0029f, --0.0084f, 0.1303f, 0.9914f, --0.706f, -0.0681f, -0.7048f, --0.556f, -0.8049f, -0.2071f, -0.8448f, 0.4045f, 0.3501f, -0.4259f, -0.5474f, 0.7203f, --0.6907f, 0.2083f, -0.6924f, -0.1215f, 0.9852f, -0.1207f, --0.1263f, 0.9332f, -0.3361f, -0.7711f, -0.0741f, -0.6323f, -0.2464f, 0.9691f, -0.0054f, -0.1774f, 0.9693f, 0.1697f, --0.9042f, 0.208f, 0.3729f, --0.8393f, -0.4118f, 0.3548f, -0.6888f, -0.7219f, -0.0648f, -0.1556f, -0.9861f, 0.0578f, -0.3271f, 0.9333f, 0.1478f, --0.0024f, 0.2379f, 0.9712f, --0.0026f, 0.4969f, 0.8677f, -0.0f, 1.0f, 0.0f, -0.1912f, -0.9815f, -0.0025f, --0.3762f, -0.6681f, 0.6418f, --0.7759f, 0.0432f, 0.6292f, --0.0208f, -0.8044f, -0.5936f, --0.2274f, 0.8822f, -0.4122f, -0.7532f, 0.5939f, 0.2824f, --0.9221f, -0.0681f, -0.3807f, --0.2198f, 0.8494f, 0.4796f, -0.0065f, -0.7656f, 0.6431f, --0.5876f, 0.4472f, -0.6742f, -0.7981f, -0.6024f, 0.0036f, --0.0383f, -0.9986f, -0.0341f, --0.6369f, -0.2562f, -0.727f, --0.5497f, 0.5937f, 0.5875f, -0.1084f, 0.9431f, 0.314f, -0.9042f, 0.208f, -0.3729f, --0.6659f, 0.3392f, 0.6644f, -0.8393f, -0.4118f, -0.3548f, -0.0029f, -0.9986f, 0.0514f, --0.9647f, -0.2552f, -0.0635f, --0.2294f, 0.9692f, -0.0888f, -0.0026f, 0.4969f, -0.8677f, -0.2452f, 0.9334f, 0.2615f, -0.5171f, -0.4876f, -0.7033f, --0.8951f, -0.4457f, 0.0058f, --0.5936f, -0.8044f, 0.0208f, -0.5642f, -0.5426f, -0.6222f, -0.5938f, 0.4451f, 0.6702f, -0.5497f, 0.5937f, -0.5875f, -0.6657f, 0.4653f, 0.5832f, -0.4857f, -0.6243f, 0.6117f, --0.0486f, -0.9986f, -0.0168f, --0.6468f, 0.4051f, 0.646f, -0.6659f, 0.3392f, -0.6644f, -0.1833f, 0.9735f, -0.1365f, -0.3955f, 0.8505f, 0.3465f, -0.5139f, -0.6913f, 0.5078f, -0.8023f, 0.4978f, -0.329f, --0.001f, 0.338f, 0.9411f, --0.2496f, 0.8321f, -0.4951f, -0.8951f, -0.4457f, -0.0058f, -0.233f, 0.8502f, 0.4719f, --0.0168f, -0.9986f, 0.0486f, -0.5936f, -0.8044f, -0.0208f, --0.05f, 0.3155f, 0.9475f, -0.6585f, -0.342f, 0.6703f, -0.4909f, -0.1864f, -0.8509f, --0.37f, 0.9238f, -0.0973f, -0.6468f, 0.4051f, -0.646f, -0.0059f, -0.986f, 0.1662f, --0.3724f, 0.9278f, -0.0202f, --0.3501f, 0.4045f, 0.8448f, --0.0425f, 0.8398f, -0.5411f, --0.1684f, 0.8499f, 0.4991f, --0.6665f, -0.6907f, 0.2803f, --0.2251f, 0.9692f, 0.099f, -0.9241f, -0.3816f, -0.0169f, -0.001f, 0.338f, -0.9411f, --0.9411f, 0.338f, -0.001f, --0.8666f, -0.2559f, -0.4282f, -0.0262f, 0.5183f, -0.8547f, -0.3014f, -0.6034f, 0.7382f, -0.0168f, -0.9986f, -0.0486f, --0.3548f, -0.4118f, -0.8393f, --0.6023f, -0.5297f, 0.5971f, --0.9033f, 0.2079f, -0.375f, --0.8938f, 0.4452f, -0.0532f, -0.6044f, 0.7397f, 0.2957f, -0.0008f, -0.0678f, 0.9976f, -0.7058f, 0.0906f, -0.7025f, -0.8453f, -0.4121f, 0.3399f, --0.3595f, 0.933f, -0.0115f, -0.6698f, -0.6907f, 0.2723f, --0.8995f, 0.2429f, -0.3629f, --0.6366f, -0.447f, -0.6283f, -0.3501f, 0.4045f, -0.8448f, --0.01f, -0.0605f, 0.9981f, --0.8003f, 0.4978f, -0.334f, -0.1684f, 0.8499f, -0.4991f, -0.6665f, -0.6907f, -0.2803f, -0.2251f, 0.9692f, -0.099f, --0.0036f, -0.6024f, 0.7981f, -0.6637f, -0.2967f, -0.6865f, --0.081f, 0.985f, 0.1518f, -0.0084f, 0.2423f, 0.9701f, -0.0071f, -0.9029f, -0.4296f, --0.8679f, 0.4966f, -0.0026f, -0.0123f, 0.5735f, 0.819f, --0.0005f, 0.985f, 0.1719f, -0.6428f, -0.7172f, 0.2688f, -0.6588f, -0.3366f, 0.6727f, -0.1213f, -0.9861f, 0.1128f, --0.8931f, 0.2424f, 0.3787f, --0.1662f, -0.986f, 0.0059f, -0.9994f, 0.0313f, 0.0095f, -0.762f, -0.146f, 0.6308f, --0.7731f, 0.0861f, -0.6283f, --0.6644f, 0.3392f, -0.6659f, --0.0027f, -0.7164f, 0.6976f, -0.0036f, -0.6024f, -0.7981f, -0.9782f, 0.2075f, 0.0011f, -0.0405f, -0.9991f, -0.0018f, -0.6882f, -0.703f, 0.179f, --0.0115f, 0.933f, 0.3595f, -0.0911f, 0.0518f, -0.9944f, -0.0005f, 0.985f, -0.1719f, -0.5337f, -0.5852f, -0.6104f, -0.0042f, -0.6898f, 0.7239f, -0.4863f, 0.2366f, 0.8411f, -0.4991f, 0.8499f, 0.1684f, --0.6543f, 0.7561f, 0.0071f, -0.265f, 0.747f, -0.6096f, --0.329f, 0.4978f, -0.8023f, -0.1662f, -0.986f, -0.0059f, --0.3491f, 0.4045f, -0.8452f, -0.3321f, 0.5936f, 0.733f, --0.065f, 0.9851f, -0.1587f, --0.6283f, -0.447f, 0.6366f, -0.0027f, -0.7164f, -0.6976f, --0.1316f, 0.6339f, 0.762f, --0.5609f, -0.604f, -0.5661f, --0.8452f, 0.4045f, 0.3491f, --0.5263f, 0.8495f, 0.0346f, -0.0115f, 0.933f, -0.3595f, --0.0346f, 0.8495f, -0.5263f, -0.0077f, -0.4109f, 0.9116f, -0.5758f, -0.8175f, -0.0017f, --0.0011f, 0.2075f, 0.9782f, --0.0689f, -0.9861f, -0.1509f, -0.2934f, -0.5928f, -0.7499f, -0.0724f, 0.1198f, -0.9901f, --0.7367f, -0.275f, -0.6176f, --0.3131f, 0.8154f, 0.4868f, --0.0114f, 0.0022f, 0.9999f, -0.6283f, -0.447f, -0.6366f, -0.8452f, 0.4045f, -0.3491f, -0.5263f, 0.8495f, -0.0346f, --0.6383f, -0.4127f, 0.6497f, --0.1719f, 0.985f, -0.0005f, --0.6703f, -0.342f, 0.6585f, --0.0085f, -0.3403f, 0.9402f, --0.646f, 0.4051f, -0.6468f, -0.0011f, 0.2075f, -0.9782f, --0.7216f, -0.3071f, 0.6204f, -0.0282f, 0.0023f, -0.9995f, --0.2483f, 0.6806f, -0.6892f, -0.1518f, 0.985f, 0.081f, -0.047f, 0.0466f, -0.9978f, -0.7354f, -0.6034f, 0.3082f, -0.6919f, 0.2428f, 0.6798f, -0.4086f, -0.3626f, -0.8375f, -0.6383f, -0.4127f, -0.6497f, --0.5875f, 0.5937f, -0.5497f, -0.6703f, -0.342f, -0.6585f, --0.8245f, -0.4464f, 0.3476f, -0.0085f, -0.3403f, -0.9402f, --0.0591f, -0.0663f, 0.996f, -0.0f, -1.0f, 0.0f, -0.4612f, 0.7474f, 0.478f, -0.6976f, -0.7164f, 0.0027f, --0.9148f, 0.4037f, -0.0005f, -0.173f, -0.8158f, -0.5518f, --0.3607f, 0.3387f, 0.8689f, -0.7836f, -0.2411f, 0.5724f, --0.1985f, 0.8026f, -0.5623f, --0.3094f, -0.2556f, -0.9159f, --0.2803f, -0.6907f, -0.6665f, -0.8245f, -0.4464f, -0.3476f, -0.829f, -0.4466f, 0.3365f, --0.4848f, 0.7385f, 0.4683f, -0.1583f, 0.9851f, 0.066f, --0.0077f, 0.7656f, -0.6432f, --0.0162f, 0.985f, 0.1717f, -0.1717f, 0.985f, 0.0162f, -0.0244f, 0.9805f, -0.1949f, --0.2461f, -0.805f, -0.5397f, -0.0262f, 0.5934f, 0.8044f, -0.142f, 0.1881f, 0.9718f, -0.1846f, 0.1002f, 0.9776f, -0.4903f, -0.7178f, 0.4942f, -0.2637f, -0.7172f, 0.6449f, -0.3822f, -0.0678f, 0.9215f, --0.0054f, 0.9691f, -0.2464f, -0.3607f, 0.3387f, -0.8689f, --0.3587f, 0.3388f, -0.8697f, --0.5694f, -0.8219f, 0.0081f, --0.1324f, 0.985f, 0.1096f, --0.099f, 0.9692f, -0.2251f, --0.6702f, 0.4451f, 0.5938f, -0.0077f, -0.9976f, 0.0684f, --0.5661f, -0.604f, 0.5609f, --0.1096f, 0.985f, -0.1324f, --0.6096f, 0.747f, -0.265f, --0.0015f, 0.0295f, -0.9995f, -0.3476f, -0.4464f, 0.8245f, --0.0635f, -0.2552f, 0.9647f, --0.8468f, 0.4454f, 0.2904f, --0.4719f, 0.8502f, 0.233f, --0.0502f, 0.8385f, 0.5425f, --0.6671f, 0.7448f, -0.0116f, -0.3508f, -0.3415f, 0.8719f, --0.4119f, 0.6135f, -0.6736f, --0.2688f, -0.7172f, 0.6428f, --0.4041f, -0.8052f, 0.4337f, --0.375f, 0.2079f, 0.9033f, --0.0223f, -0.9986f, -0.0462f, -0.6702f, 0.4451f, -0.5938f, -0.9402f, -0.3403f, 0.0085f, -0.5661f, -0.604f, -0.5609f, --0.6252f, 0.7406f, 0.246f, --0.0341f, -0.9986f, 0.0383f, --0.6111f, 0.4984f, -0.6148f, -0.6655f, 0.7462f, 0.0117f, -0.1233f, 0.199f, 0.9722f, -0.8468f, 0.4454f, -0.2904f, -0.7383f, 0.2702f, -0.6179f, --0.8055f, 0.4452f, -0.3909f, --0.3729f, 0.208f, -0.9042f, -0.4719f, 0.8502f, -0.233f, -0.243f, 0.747f, 0.6187f, --0.6497f, -0.4127f, -0.6383f, --0.5406f, 0.5651f, -0.623f, -0.0058f, -0.4457f, 0.8951f, --0.3082f, -0.6034f, 0.7354f, --0.8655f, -0.3412f, -0.3666f, -0.2688f, -0.7172f, -0.6428f, -0.4041f, -0.8052f, -0.4337f, -0.375f, 0.2079f, -0.9033f, -0.0341f, -0.9986f, -0.0383f, --0.9701f, 0.2423f, 0.0084f, --0.3807f, -0.0681f, 0.9221f, -0.9643f, -0.2551f, 0.0705f, --0.8758f, 0.4808f, 0.0415f, -0.1207f, 0.9852f, 0.1215f, -0.4821f, 0.7724f, 0.4133f, --0.0522f, 0.9982f, 0.0278f, --0.4337f, -0.8052f, -0.4041f, --0.6164f, 0.4198f, 0.6661f, --0.8448f, 0.4045f, -0.3501f, -0.3082f, -0.6034f, -0.7354f, -0.8689f, 0.3387f, 0.3607f, -0.6894f, -0.7242f, 0.0091f, -0.3787f, 0.2424f, 0.8931f, -0.2904f, 0.4454f, 0.8468f, -0.6148f, 0.4984f, -0.6111f, -0.0501f, 0.985f, 0.1648f, --0.5397f, -0.805f, 0.2461f, --0.9159f, -0.2556f, 0.3094f, -0.706f, -0.0681f, 0.7048f, --0.3341f, 0.4972f, 0.8006f, -0.556f, -0.8049f, 0.2071f, --0.1774f, 0.9693f, -0.1697f, -0.6907f, 0.2083f, 0.6924f, -0.1263f, 0.9332f, 0.3361f, -0.3807f, -0.0681f, -0.9221f, --0.1556f, -0.9861f, -0.0578f, --0.3271f, 0.9333f, -0.1478f, --0.3465f, 0.8505f, 0.3955f, -0.5315f, 0.8438f, -0.0735f, -0.9737f, 0.2276f, -0.0003f, -0.6441f, 0.7648f, -0.0112f, --0.7239f, -0.6898f, 0.0042f, --0.7532f, 0.5939f, -0.2824f, -0.1093f, 0.1415f, -0.9838f, -0.5397f, -0.805f, -0.2461f, --0.7981f, -0.6024f, -0.0036f, -0.9456f, 0.3251f, -0.0052f, -0.1278f, 0.9696f, -0.2085f, -0.0208f, -0.8044f, 0.5936f, -0.1635f, 0.1348f, -0.9772f, --0.733f, 0.5936f, 0.3321f, --0.0505f, 0.9852f, -0.1635f, -0.4089f, -0.9069f, -0.1015f, --0.0029f, -0.9986f, -0.0514f, --0.1796f, 0.814f, -0.5522f, -0.9221f, -0.0681f, 0.3807f, -0.0383f, -0.9986f, 0.0341f, -0.6369f, -0.2562f, 0.727f, -0.3465f, 0.8505f, -0.3955f, --0.2452f, 0.9334f, -0.2615f, -0.4921f, -0.247f, 0.8346f, --0.9976f, -0.0678f, 0.0008f, --0.5396f, 0.8418f, -0.0094f, -0.2294f, 0.9692f, 0.0888f, -0.7239f, -0.6898f, -0.0042f, --0.4472f, 0.5952f, 0.6675f, --0.6449f, -0.7172f, 0.2637f, -0.4543f, 0.2732f, -0.8478f, --0.6798f, 0.2428f, 0.6919f, --0.5938f, 0.4451f, -0.6702f, -0.733f, 0.5936f, -0.3321f, --0.3955f, 0.8505f, -0.3465f, --0.5139f, -0.6913f, -0.5078f, --0.623f, -0.5156f, -0.5881f -}; - -/* 1 color */ -/*255 255 0 */ - -/* 1024 faces */ -/* numIdx fidx0 fidx1 fidx2 nidx0 nidx1 nidx2 coloridx */ - -const int numFaces = 1024; -const int faces[1024][8] = { -3, 0, 5, 6, 255, 295, 309, 0, -3, 6, 1, 0, 309, 465, 255, 0, -3, 1, 6, 7, 465, 309, 134, 0, -3, 7, 2, 1, 134, 4, 465, 0, -3, 2, 7, 8, 4, 134, 165, 0, -3, 8, 3, 2, 165, 448, 4, 0, -3, 3, 8, 9, 448, 165, 49, 0, -3, 9, 4, 3, 49, 116, 448, 0, -3, 5, 10, 11, 295, 248, 106, 0, -3, 11, 6, 5, 106, 309, 295, 0, -3, 6, 11, 12, 309, 106, 102, 0, -3, 12, 7, 6, 102, 134, 309, 0, -3, 7, 12, 13, 134, 102, 394, 0, -3, 13, 8, 7, 394, 165, 134, 0, -3, 8, 13, 14, 165, 394, 180, 0, -3, 14, 9, 8, 180, 49, 165, 0, -3, 10, 15, 16, 248, 401, 211, 0, -3, 16, 11, 10, 211, 106, 248, 0, -3, 11, 16, 17, 106, 211, 427, 0, -3, 17, 12, 11, 427, 102, 106, 0, -3, 12, 17, 18, 102, 427, 455, 0, -3, 18, 13, 12, 455, 394, 102, 0, -3, 13, 18, 19, 394, 455, 74, 0, -3, 19, 14, 13, 74, 180, 394, 0, -3, 15, 20, 21, 401, 174, 182, 0, -3, 21, 16, 15, 182, 211, 401, 0, -3, 16, 21, 22, 211, 182, 507, 0, -3, 22, 17, 16, 507, 427, 211, 0, -3, 17, 22, 23, 427, 507, 5, 0, -3, 23, 18, 17, 5, 455, 427, 0, -3, 18, 23, 24, 455, 5, 234, 0, -3, 24, 19, 18, 234, 74, 455, 0, -3, 20, 25, 26, 174, 386, 20, 0, -3, 26, 21, 20, 20, 182, 174, 0, -3, 21, 26, 27, 182, 20, 410, 0, -3, 27, 22, 21, 410, 507, 182, 0, -3, 22, 27, 28, 507, 410, 23, 0, -3, 28, 23, 22, 23, 5, 507, 0, -3, 23, 28, 29, 5, 23, 485, 0, -3, 29, 24, 23, 485, 234, 5, 0, -3, 25, 30, 31, 386, 69, 305, 0, -3, 31, 26, 25, 305, 20, 386, 0, -3, 26, 31, 32, 20, 305, 503, 0, -3, 32, 27, 26, 503, 410, 20, 0, -3, 27, 32, 33, 410, 503, 405, 0, -3, 33, 28, 27, 405, 23, 410, 0, -3, 28, 33, 34, 23, 405, 138, 0, -3, 34, 29, 28, 138, 485, 23, 0, -3, 30, 35, 36, 69, 115, 193, 0, -3, 36, 31, 30, 193, 305, 69, 0, -3, 31, 36, 37, 305, 193, 270, 0, -3, 37, 32, 31, 270, 503, 305, 0, -3, 32, 37, 38, 503, 270, 445, 0, -3, 38, 33, 32, 445, 405, 503, 0, -3, 33, 38, 39, 405, 445, 28, 0, -3, 39, 34, 33, 28, 138, 405, 0, -3, 35, 40, 41, 115, 467, 495, 0, -3, 41, 36, 35, 495, 193, 115, 0, -3, 36, 41, 42, 193, 495, 11, 0, -3, 42, 37, 36, 11, 270, 193, 0, -3, 37, 42, 43, 270, 11, 435, 0, -3, 43, 38, 37, 435, 445, 270, 0, -3, 38, 43, 44, 445, 435, 322, 0, -3, 44, 39, 38, 322, 28, 445, 0, -3, 40, 45, 46, 467, 27, 44, 0, -3, 46, 41, 40, 44, 495, 467, 0, -3, 41, 46, 47, 495, 44, 409, 0, -3, 47, 42, 41, 409, 11, 495, 0, -3, 42, 47, 48, 11, 409, 428, 0, -3, 48, 43, 42, 428, 435, 11, 0, -3, 43, 48, 49, 435, 428, 313, 0, -3, 49, 44, 43, 313, 322, 435, 0, -3, 45, 50, 51, 27, 513, 385, 0, -3, 51, 46, 45, 385, 44, 27, 0, -3, 46, 51, 52, 44, 385, 382, 0, -3, 52, 47, 46, 382, 409, 44, 0, -3, 47, 52, 53, 409, 382, 124, 0, -3, 53, 48, 47, 124, 428, 409, 0, -3, 48, 53, 54, 428, 124, 447, 0, -3, 54, 49, 48, 447, 313, 428, 0, -3, 50, 55, 56, 513, 136, 478, 0, -3, 56, 51, 50, 478, 385, 513, 0, -3, 51, 56, 57, 385, 478, 161, 0, -3, 57, 52, 51, 161, 382, 385, 0, -3, 52, 57, 58, 382, 161, 181, 0, -3, 58, 53, 52, 181, 124, 382, 0, -3, 53, 58, 59, 124, 181, 348, 0, -3, 59, 54, 53, 348, 447, 124, 0, -3, 55, 60, 61, 136, 431, 320, 0, -3, 61, 56, 55, 320, 478, 136, 0, -3, 56, 61, 62, 478, 320, 481, 0, -3, 62, 57, 56, 481, 161, 478, 0, -3, 57, 62, 63, 161, 481, 53, 0, -3, 63, 58, 57, 53, 181, 161, 0, -3, 58, 63, 64, 181, 53, 257, 0, -3, 64, 59, 58, 257, 348, 181, 0, -3, 60, 65, 66, 431, 135, 37, 0, -3, 66, 61, 60, 37, 320, 431, 0, -3, 61, 66, 67, 320, 37, 408, 0, -3, 67, 62, 61, 408, 481, 320, 0, -3, 62, 67, 68, 481, 408, 347, 0, -3, 68, 63, 62, 347, 53, 481, 0, -3, 63, 68, 69, 53, 347, 104, 0, -3, 69, 64, 63, 104, 257, 53, 0, -3, 65, 70, 71, 135, 191, 524, 0, -3, 71, 66, 65, 524, 37, 135, 0, -3, 66, 71, 72, 37, 524, 319, 0, -3, 72, 67, 66, 319, 408, 37, 0, -3, 67, 72, 73, 408, 319, 183, 0, -3, 73, 68, 67, 183, 347, 408, 0, -3, 68, 73, 74, 347, 183, 480, 0, -3, 74, 69, 68, 480, 104, 347, 0, -3, 70, 75, 76, 191, 483, 328, 0, -3, 76, 71, 70, 328, 524, 191, 0, -3, 71, 76, 77, 524, 328, 422, 0, -3, 77, 72, 71, 422, 319, 524, 0, -3, 72, 77, 78, 319, 422, 151, 0, -3, 78, 73, 72, 151, 183, 319, 0, -3, 73, 78, 79, 183, 151, 273, 0, -3, 79, 74, 73, 273, 480, 183, 0, -3, 75, 0, 1, 483, 255, 465, 0, -3, 1, 76, 75, 465, 328, 483, 0, -3, 76, 1, 2, 328, 465, 4, 0, -3, 2, 77, 76, 4, 422, 328, 0, -3, 77, 2, 3, 422, 4, 448, 0, -3, 3, 78, 77, 448, 151, 422, 0, -3, 78, 3, 4, 151, 448, 116, 0, -3, 4, 79, 78, 116, 273, 151, 0, -3, 4, 9, 84, 116, 49, 220, 0, -3, 84, 80, 4, 220, 131, 116, 0, -3, 80, 84, 85, 131, 220, 476, 0, -3, 85, 81, 80, 476, 26, 131, 0, -3, 81, 85, 86, 26, 476, 38, 0, -3, 86, 82, 81, 38, 336, 26, 0, -3, 82, 86, 87, 336, 38, 511, 0, -3, 87, 83, 82, 511, 1, 336, 0, -3, 9, 14, 88, 49, 180, 103, 0, -3, 88, 84, 9, 103, 220, 49, 0, -3, 84, 88, 89, 220, 103, 62, 0, -3, 89, 85, 84, 62, 476, 220, 0, -3, 85, 89, 90, 476, 62, 488, 0, -3, 90, 86, 85, 488, 38, 476, 0, -3, 86, 90, 91, 38, 488, 484, 0, -3, 91, 87, 86, 484, 511, 38, 0, -3, 14, 19, 92, 180, 74, 78, 0, -3, 92, 88, 14, 78, 103, 180, 0, -3, 88, 92, 93, 103, 78, 154, 0, -3, 93, 89, 88, 154, 62, 103, 0, -3, 89, 93, 94, 62, 154, 190, 0, -3, 94, 90, 89, 190, 488, 62, 0, -3, 90, 94, 95, 488, 190, 417, 0, -3, 95, 91, 90, 417, 484, 488, 0, -3, 19, 24, 96, 74, 234, 81, 0, -3, 96, 92, 19, 81, 78, 74, 0, -3, 92, 96, 97, 78, 81, 274, 0, -3, 97, 93, 92, 274, 154, 78, 0, -3, 93, 97, 98, 154, 274, 363, 0, -3, 98, 94, 93, 363, 190, 154, 0, -3, 94, 98, 99, 190, 363, 304, 0, -3, 99, 95, 94, 304, 417, 190, 0, -3, 24, 29, 100, 234, 485, 287, 0, -3, 100, 96, 24, 287, 81, 234, 0, -3, 96, 100, 101, 81, 287, 398, 0, -3, 101, 97, 96, 398, 274, 81, 0, -3, 97, 101, 102, 274, 398, 440, 0, -3, 102, 98, 97, 440, 363, 274, 0, -3, 98, 102, 103, 363, 440, 466, 0, -3, 103, 99, 98, 466, 304, 363, 0, -3, 29, 34, 104, 485, 138, 268, 0, -3, 104, 100, 29, 268, 287, 485, 0, -3, 100, 104, 105, 287, 268, 252, 0, -3, 105, 101, 100, 252, 398, 287, 0, -3, 101, 105, 106, 398, 252, 141, 0, -3, 106, 102, 101, 141, 440, 398, 0, -3, 102, 106, 107, 440, 141, 18, 0, -3, 107, 103, 102, 18, 466, 440, 0, -3, 34, 39, 108, 138, 28, 357, 0, -3, 108, 104, 34, 357, 268, 138, 0, -3, 104, 108, 109, 268, 357, 127, 0, -3, 109, 105, 104, 127, 252, 268, 0, -3, 105, 109, 110, 252, 127, 228, 0, -3, 110, 106, 105, 228, 141, 252, 0, -3, 106, 110, 111, 141, 228, 33, 0, -3, 111, 107, 106, 33, 18, 141, 0, -3, 39, 44, 112, 28, 322, 396, 0, -3, 112, 108, 39, 396, 357, 28, 0, -3, 108, 112, 113, 357, 396, 294, 0, -3, 113, 109, 108, 294, 127, 357, 0, -3, 109, 113, 114, 127, 294, 56, 0, -3, 114, 110, 109, 56, 228, 127, 0, -3, 110, 114, 115, 228, 56, 517, 0, -3, 115, 111, 110, 517, 33, 228, 0, -3, 44, 49, 116, 322, 313, 474, 0, -3, 116, 112, 44, 474, 396, 322, 0, -3, 112, 116, 117, 396, 474, 208, 0, -3, 117, 113, 112, 208, 294, 396, 0, -3, 113, 117, 118, 294, 208, 301, 0, -3, 118, 114, 113, 301, 56, 294, 0, -3, 114, 118, 119, 56, 301, 242, 0, -3, 119, 115, 114, 242, 517, 56, 0, -3, 49, 54, 120, 313, 447, 377, 0, -3, 120, 116, 49, 377, 474, 313, 0, -3, 116, 120, 121, 474, 377, 333, 0, -3, 121, 117, 116, 333, 208, 474, 0, -3, 117, 121, 122, 208, 333, 222, 0, -3, 122, 118, 117, 222, 301, 208, 0, -3, 118, 122, 123, 301, 222, 218, 0, -3, 123, 119, 118, 218, 242, 301, 0, -3, 54, 59, 124, 447, 348, 350, 0, -3, 124, 120, 54, 350, 377, 447, 0, -3, 120, 124, 125, 377, 350, 420, 0, -3, 125, 121, 120, 420, 333, 377, 0, -3, 121, 125, 126, 333, 420, 453, 0, -3, 126, 122, 121, 453, 222, 333, 0, -3, 122, 126, 127, 222, 453, 147, 0, -3, 127, 123, 122, 147, 218, 222, 0, -3, 59, 64, 128, 348, 257, 95, 0, -3, 128, 124, 59, 95, 350, 348, 0, -3, 124, 128, 129, 350, 95, 293, 0, -3, 129, 125, 124, 293, 420, 350, 0, -3, 125, 129, 130, 420, 293, 378, 0, -3, 130, 126, 125, 378, 453, 420, 0, -3, 126, 130, 131, 453, 378, 29, 0, -3, 131, 127, 126, 29, 147, 453, 0, -3, 64, 69, 132, 257, 104, 311, 0, -3, 132, 128, 64, 311, 95, 257, 0, -3, 128, 132, 133, 95, 311, 419, 0, -3, 133, 129, 128, 419, 293, 95, 0, -3, 129, 133, 134, 293, 419, 463, 0, -3, 134, 130, 129, 463, 378, 293, 0, -3, 130, 134, 135, 378, 463, 490, 0, -3, 135, 131, 130, 490, 29, 378, 0, -3, 69, 74, 136, 104, 480, 284, 0, -3, 136, 132, 69, 284, 311, 104, 0, -3, 132, 136, 137, 311, 284, 269, 0, -3, 137, 133, 132, 269, 419, 311, 0, -3, 133, 137, 138, 419, 269, 164, 0, -3, 138, 134, 133, 164, 463, 419, 0, -3, 134, 138, 139, 463, 164, 45, 0, -3, 139, 135, 134, 45, 490, 463, 0, -3, 74, 79, 140, 480, 273, 371, 0, -3, 140, 136, 74, 371, 284, 480, 0, -3, 136, 140, 141, 284, 371, 148, 0, -3, 141, 137, 136, 148, 269, 284, 0, -3, 137, 141, 142, 269, 148, 251, 0, -3, 142, 138, 137, 251, 164, 269, 0, -3, 138, 142, 143, 164, 251, 54, 0, -3, 143, 139, 138, 54, 45, 164, 0, -3, 79, 4, 80, 273, 116, 131, 0, -3, 80, 140, 79, 131, 371, 273, 0, -3, 140, 80, 81, 371, 131, 26, 0, -3, 81, 141, 140, 26, 148, 371, 0, -3, 141, 81, 82, 148, 26, 336, 0, -3, 82, 142, 141, 336, 251, 148, 0, -3, 142, 82, 83, 251, 336, 1, 0, -3, 83, 143, 142, 1, 54, 251, 0, -3, 83, 87, 148, 1, 511, 404, 0, -3, 148, 144, 83, 404, 276, 1, 0, -3, 144, 148, 149, 276, 404, 308, 0, -3, 149, 145, 144, 308, 520, 276, 0, -3, 145, 149, 150, 520, 308, 325, 0, -3, 150, 146, 145, 325, 395, 520, 0, -3, 146, 150, 151, 395, 325, 384, 0, -3, 151, 147, 146, 384, 246, 395, 0, -3, 87, 91, 152, 511, 484, 47, 0, -3, 152, 148, 87, 47, 404, 511, 0, -3, 148, 152, 153, 404, 47, 272, 0, -3, 153, 149, 148, 272, 308, 404, 0, -3, 149, 153, 154, 308, 272, 415, 0, -3, 154, 150, 149, 415, 325, 308, 0, -3, 150, 154, 155, 325, 415, 83, 0, -3, 155, 151, 150, 83, 384, 325, 0, -3, 91, 95, 156, 484, 417, 430, 0, -3, 156, 152, 91, 430, 47, 484, 0, -3, 152, 156, 157, 47, 430, 137, 0, -3, 157, 153, 152, 137, 272, 47, 0, -3, 153, 157, 158, 272, 137, 416, 0, -3, 158, 154, 153, 416, 415, 272, 0, -3, 154, 158, 159, 415, 416, 297, 0, -3, 159, 155, 154, 297, 83, 415, 0, -3, 95, 99, 160, 417, 304, 458, 0, -3, 160, 156, 95, 458, 430, 417, 0, -3, 156, 160, 161, 430, 458, 343, 0, -3, 161, 157, 156, 343, 137, 430, 0, -3, 157, 161, 162, 137, 343, 334, 0, -3, 162, 158, 157, 334, 416, 137, 0, -3, 158, 162, 163, 416, 334, 317, 0, -3, 163, 159, 158, 317, 297, 416, 0, -3, 99, 103, 164, 304, 466, 187, 0, -3, 164, 160, 99, 187, 458, 304, 0, -3, 160, 164, 165, 458, 187, 117, 0, -3, 165, 161, 160, 117, 343, 458, 0, -3, 161, 165, 166, 343, 117, 438, 0, -3, 166, 162, 161, 438, 334, 343, 0, -3, 162, 166, 167, 334, 438, 459, 0, -3, 167, 163, 162, 459, 317, 334, 0, -3, 103, 107, 168, 466, 18, 353, 0, -3, 168, 164, 103, 353, 187, 466, 0, -3, 164, 168, 169, 187, 353, 123, 0, -3, 169, 165, 164, 123, 117, 187, 0, -3, 165, 169, 170, 117, 123, 168, 0, -3, 170, 166, 165, 168, 438, 117, 0, -3, 166, 170, 171, 438, 168, 426, 0, -3, 171, 167, 166, 426, 459, 438, 0, -3, 107, 111, 172, 18, 33, 390, 0, -3, 172, 168, 107, 390, 353, 18, 0, -3, 168, 172, 173, 353, 390, 290, 0, -3, 173, 169, 168, 290, 123, 353, 0, -3, 169, 173, 174, 123, 290, 522, 0, -3, 174, 170, 169, 522, 168, 123, 0, -3, 170, 174, 175, 168, 522, 87, 0, -3, 175, 171, 170, 87, 426, 168, 0, -3, 111, 115, 176, 33, 517, 260, 0, -3, 176, 172, 111, 260, 390, 33, 0, -3, 172, 176, 177, 390, 260, 497, 0, -3, 177, 173, 172, 497, 290, 390, 0, -3, 173, 177, 178, 290, 497, 126, 0, -3, 178, 174, 173, 126, 522, 290, 0, -3, 174, 178, 179, 522, 126, 501, 0, -3, 179, 175, 174, 501, 87, 522, 0, -3, 115, 119, 180, 517, 242, 130, 0, -3, 180, 176, 115, 130, 260, 517, 0, -3, 176, 180, 181, 260, 130, 34, 0, -3, 181, 177, 176, 34, 497, 260, 0, -3, 177, 181, 182, 497, 34, 46, 0, -3, 182, 178, 177, 46, 126, 497, 0, -3, 178, 182, 183, 126, 46, 105, 0, -3, 183, 179, 178, 105, 501, 126, 0, -3, 119, 123, 184, 242, 218, 310, 0, -3, 184, 180, 119, 310, 130, 242, 0, -3, 180, 184, 185, 130, 310, 528, 0, -3, 185, 181, 180, 528, 34, 130, 0, -3, 181, 185, 186, 34, 528, 145, 0, -3, 186, 182, 181, 145, 46, 34, 0, -3, 182, 186, 187, 46, 145, 356, 0, -3, 187, 183, 182, 356, 105, 46, 0, -3, 123, 127, 188, 218, 147, 156, 0, -3, 188, 184, 123, 156, 310, 218, 0, -3, 184, 188, 189, 310, 156, 402, 0, -3, 189, 185, 184, 402, 528, 310, 0, -3, 185, 189, 190, 528, 402, 146, 0, -3, 190, 186, 185, 146, 145, 528, 0, -3, 186, 190, 191, 145, 146, 17, 0, -3, 191, 187, 186, 17, 356, 145, 0, -3, 127, 131, 192, 147, 29, 184, 0, -3, 192, 188, 127, 184, 156, 147, 0, -3, 188, 192, 193, 156, 184, 63, 0, -3, 193, 189, 188, 63, 402, 156, 0, -3, 189, 193, 194, 402, 63, 354, 0, -3, 194, 190, 189, 354, 146, 402, 0, -3, 190, 194, 195, 146, 354, 335, 0, -3, 195, 191, 190, 335, 17, 146, 0, -3, 131, 135, 196, 29, 490, 210, 0, -3, 196, 192, 131, 210, 184, 29, 0, -3, 192, 196, 197, 184, 210, 129, 0, -3, 197, 193, 192, 129, 63, 184, 0, -3, 193, 197, 198, 63, 129, 461, 0, -3, 198, 194, 193, 461, 354, 63, 0, -3, 194, 198, 199, 354, 461, 475, 0, -3, 199, 195, 194, 475, 335, 354, 0, -3, 135, 139, 200, 490, 45, 370, 0, -3, 200, 196, 135, 370, 210, 490, 0, -3, 196, 200, 201, 210, 370, 143, 0, -3, 201, 197, 196, 143, 129, 210, 0, -3, 197, 201, 202, 129, 143, 195, 0, -3, 202, 198, 197, 195, 461, 129, 0, -3, 198, 202, 203, 461, 195, 444, 0, -3, 203, 199, 198, 444, 475, 461, 0, -3, 139, 143, 204, 45, 54, 403, 0, -3, 204, 200, 139, 403, 370, 45, 0, -3, 200, 204, 205, 370, 403, 315, 0, -3, 205, 201, 200, 315, 143, 370, 0, -3, 201, 205, 206, 143, 315, 7, 0, -3, 206, 202, 201, 7, 195, 143, 0, -3, 202, 206, 207, 195, 7, 101, 0, -3, 207, 203, 202, 101, 444, 195, 0, -3, 143, 83, 144, 54, 1, 276, 0, -3, 144, 204, 143, 276, 403, 54, 0, -3, 204, 144, 145, 403, 276, 520, 0, -3, 145, 205, 204, 520, 315, 403, 0, -3, 205, 145, 146, 315, 520, 395, 0, -3, 146, 206, 205, 395, 7, 315, 0, -3, 206, 146, 147, 7, 395, 246, 0, -3, 147, 207, 206, 246, 101, 7, 0, -3, 147, 151, 212, 246, 384, 486, 0, -3, 212, 208, 147, 486, 279, 246, 0, -3, 208, 212, 213, 279, 486, 231, 0, -3, 213, 209, 208, 231, 349, 279, 0, -3, 209, 213, 214, 349, 231, 0, 0, -3, 214, 210, 209, 0, 216, 349, 0, -3, 210, 214, 211, 216, 0, 393, 0, -3, 211, 211, 210, 393, 393, 216, 0, -3, 151, 155, 215, 384, 83, 215, 0, -3, 215, 212, 151, 215, 486, 384, 0, -3, 212, 215, 216, 486, 215, 327, 0, -3, 216, 213, 212, 327, 231, 486, 0, -3, 213, 216, 217, 231, 327, 512, 0, -3, 217, 214, 213, 512, 0, 231, 0, -3, 214, 217, 211, 0, 512, 393, 0, -3, 211, 211, 214, 393, 393, 0, 0, -3, 155, 159, 218, 83, 297, 149, 0, -3, 218, 215, 155, 149, 215, 83, 0, -3, 215, 218, 219, 215, 149, 91, 0, -3, 219, 216, 215, 91, 327, 215, 0, -3, 216, 219, 220, 327, 91, 177, 0, -3, 220, 217, 216, 177, 512, 327, 0, -3, 217, 220, 211, 512, 177, 393, 0, -3, 211, 211, 217, 393, 393, 512, 0, -3, 159, 163, 221, 297, 317, 504, 0, -3, 221, 218, 159, 504, 149, 297, 0, -3, 218, 221, 222, 149, 504, 285, 0, -3, 222, 219, 218, 285, 91, 149, 0, -3, 219, 222, 223, 91, 285, 254, 0, -3, 223, 220, 219, 254, 177, 91, 0, -3, 220, 223, 211, 177, 254, 393, 0, -3, 211, 211, 220, 393, 393, 177, 0, -3, 163, 167, 224, 317, 459, 125, 0, -3, 224, 221, 163, 125, 504, 317, 0, -3, 221, 224, 225, 504, 125, 162, 0, -3, 225, 222, 221, 162, 285, 504, 0, -3, 222, 225, 226, 285, 162, 278, 0, -3, 226, 223, 222, 278, 254, 285, 0, -3, 223, 226, 211, 254, 278, 393, 0, -3, 211, 211, 223, 393, 393, 254, 0, -3, 167, 171, 227, 459, 426, 439, 0, -3, 227, 224, 167, 439, 125, 459, 0, -3, 224, 227, 228, 125, 439, 60, 0, -3, 228, 225, 224, 60, 162, 125, 0, -3, 225, 228, 229, 162, 60, 446, 0, -3, 229, 226, 225, 446, 278, 162, 0, -3, 226, 229, 211, 278, 446, 393, 0, -3, 211, 211, 226, 393, 393, 278, 0, -3, 171, 175, 230, 426, 87, 482, 0, -3, 230, 227, 171, 482, 439, 426, 0, -3, 227, 230, 231, 439, 482, 92, 0, -3, 231, 228, 227, 92, 60, 439, 0, -3, 228, 231, 232, 60, 92, 110, 0, -3, 232, 229, 228, 110, 446, 60, 0, -3, 229, 232, 211, 446, 110, 393, 0, -3, 211, 211, 229, 393, 393, 446, 0, -3, 175, 179, 233, 87, 501, 261, 0, -3, 233, 230, 175, 261, 482, 87, 0, -3, 230, 233, 234, 482, 261, 329, 0, -3, 234, 231, 230, 329, 92, 482, 0, -3, 231, 234, 235, 92, 329, 192, 0, -3, 235, 232, 231, 192, 110, 92, 0, -3, 232, 235, 211, 110, 192, 393, 0, -3, 211, 211, 232, 393, 393, 110, 0, -3, 179, 183, 236, 501, 105, 219, 0, -3, 236, 233, 179, 219, 261, 501, 0, -3, 233, 236, 237, 261, 219, 491, 0, -3, 237, 234, 233, 491, 329, 261, 0, -3, 234, 237, 238, 329, 491, 267, 0, -3, 238, 235, 234, 267, 192, 329, 0, -3, 235, 238, 211, 192, 267, 393, 0, -3, 211, 211, 235, 393, 393, 192, 0, -3, 183, 187, 239, 105, 356, 472, 0, -3, 239, 236, 183, 472, 219, 105, 0, -3, 236, 239, 240, 219, 472, 48, 0, -3, 240, 237, 236, 48, 491, 219, 0, -3, 237, 240, 241, 491, 48, 247, 0, -3, 241, 238, 237, 247, 267, 491, 0, -3, 238, 241, 211, 267, 247, 393, 0, -3, 211, 211, 238, 393, 393, 267, 0, -3, 187, 191, 242, 356, 17, 411, 0, -3, 242, 239, 187, 411, 472, 356, 0, -3, 239, 242, 243, 472, 411, 364, 0, -3, 243, 240, 239, 364, 48, 472, 0, -3, 240, 243, 244, 48, 364, 441, 0, -3, 244, 241, 240, 441, 247, 48, 0, -3, 241, 244, 211, 247, 441, 393, 0, -3, 211, 211, 241, 393, 393, 247, 0, -3, 191, 195, 245, 17, 335, 239, 0, -3, 245, 242, 191, 239, 411, 17, 0, -3, 242, 245, 246, 411, 239, 13, 0, -3, 246, 243, 242, 13, 364, 411, 0, -3, 243, 246, 247, 364, 13, 509, 0, -3, 247, 244, 243, 509, 441, 364, 0, -3, 244, 247, 211, 441, 509, 393, 0, -3, 211, 211, 244, 393, 393, 441, 0, -3, 195, 199, 248, 335, 475, 144, 0, -3, 248, 245, 195, 144, 239, 335, 0, -3, 245, 248, 249, 239, 144, 179, 0, -3, 249, 246, 245, 179, 13, 239, 0, -3, 246, 249, 250, 13, 179, 298, 0, -3, 250, 247, 246, 298, 509, 13, 0, -3, 247, 250, 211, 509, 298, 393, 0, -3, 211, 211, 247, 393, 393, 509, 0, -3, 199, 203, 251, 475, 444, 462, 0, -3, 251, 248, 199, 462, 144, 475, 0, -3, 248, 251, 252, 144, 462, 76, 0, -3, 252, 249, 248, 76, 179, 144, 0, -3, 249, 252, 253, 179, 76, 464, 0, -3, 253, 250, 249, 464, 298, 179, 0, -3, 250, 253, 211, 298, 464, 393, 0, -3, 211, 211, 250, 393, 393, 298, 0, -3, 203, 207, 254, 444, 101, 500, 0, -3, 254, 251, 203, 500, 462, 444, 0, -3, 251, 254, 255, 462, 500, 113, 0, -3, 255, 252, 251, 113, 76, 462, 0, -3, 252, 255, 256, 76, 113, 128, 0, -3, 256, 253, 252, 128, 464, 76, 0, -3, 253, 256, 211, 464, 128, 393, 0, -3, 211, 211, 253, 393, 393, 464, 0, -3, 207, 147, 208, 101, 246, 279, 0, -3, 208, 254, 207, 279, 500, 101, 0, -3, 254, 208, 209, 500, 279, 349, 0, -3, 209, 255, 254, 349, 113, 500, 0, -3, 255, 209, 210, 113, 349, 216, 0, -3, 210, 256, 255, 216, 128, 113, 0, -3, 256, 210, 211, 128, 216, 393, 0, -3, 211, 211, 256, 393, 393, 128, 0, -3, 257, 262, 263, 425, 244, 58, 0, -3, 263, 258, 257, 58, 337, 425, 0, -3, 258, 263, 264, 337, 58, 214, 0, -3, 264, 259, 258, 214, 236, 337, 0, -3, 259, 264, 265, 236, 214, 266, 0, -3, 265, 260, 259, 266, 32, 236, 0, -3, 260, 265, 266, 32, 266, 331, 0, -3, 266, 261, 260, 331, 109, 32, 0, -3, 262, 267, 268, 244, 233, 369, 0, -3, 268, 263, 262, 369, 58, 244, 0, -3, 263, 268, 269, 58, 369, 71, 0, -3, 269, 264, 263, 71, 214, 58, 0, -3, 264, 269, 270, 214, 71, 392, 0, -3, 270, 265, 264, 392, 266, 214, 0, -3, 265, 270, 271, 266, 392, 312, 0, -3, 271, 266, 265, 312, 331, 266, 0, -3, 267, 272, 273, 233, 12, 434, 0, -3, 273, 268, 267, 434, 369, 233, 0, -3, 268, 273, 274, 369, 434, 188, 0, -3, 274, 269, 268, 188, 71, 369, 0, -3, 269, 274, 275, 71, 188, 201, 0, -3, 275, 270, 269, 201, 392, 71, 0, -3, 270, 275, 276, 392, 201, 238, 0, -3, 276, 271, 270, 238, 312, 392, 0, -3, 272, 277, 278, 12, 142, 114, 0, -3, 278, 273, 272, 114, 434, 12, 0, -3, 273, 278, 279, 434, 114, 173, 0, -3, 279, 274, 273, 173, 188, 434, 0, -3, 274, 279, 280, 188, 173, 14, 0, -3, 280, 275, 274, 14, 201, 188, 0, -3, 275, 280, 281, 201, 14, 15, 0, -3, 281, 276, 275, 15, 238, 201, 0, -3, 277, 282, 283, 142, 407, 288, 0, -3, 283, 278, 277, 288, 114, 142, 0, -3, 278, 283, 284, 114, 288, 400, 0, -3, 284, 279, 278, 400, 173, 114, 0, -3, 279, 284, 285, 173, 400, 457, 0, -3, 285, 280, 279, 457, 14, 173, 0, -3, 280, 285, 286, 14, 457, 332, 0, -3, 286, 281, 280, 332, 15, 14, 0, -3, 282, 287, 288, 407, 194, 42, 0, -3, 288, 283, 282, 42, 288, 407, 0, -3, 283, 288, 289, 288, 42, 380, 0, -3, 289, 284, 283, 380, 400, 288, 0, -3, 284, 289, 290, 400, 380, 383, 0, -3, 290, 285, 284, 383, 457, 400, 0, -3, 285, 290, 291, 457, 383, 197, 0, -3, 291, 286, 285, 197, 332, 457, 0, -3, 287, 292, 293, 194, 321, 152, 0, -3, 293, 288, 287, 152, 42, 194, 0, -3, 288, 293, 294, 42, 152, 397, 0, -3, 294, 289, 288, 397, 380, 42, 0, -3, 289, 294, 295, 380, 397, 342, 0, -3, 295, 290, 289, 342, 383, 380, 0, -3, 290, 295, 296, 383, 342, 225, 0, -3, 296, 291, 290, 225, 197, 383, 0, -3, 292, 257, 258, 321, 425, 337, 0, -3, 258, 293, 292, 337, 152, 321, 0, -3, 293, 258, 259, 152, 337, 236, 0, -3, 259, 294, 293, 236, 397, 152, 0, -3, 294, 259, 260, 397, 236, 32, 0, -3, 260, 295, 294, 32, 342, 397, 0, -3, 295, 260, 261, 342, 32, 109, 0, -3, 261, 296, 295, 109, 225, 342, 0, -3, 261, 266, 301, 109, 331, 175, 0, -3, 301, 297, 261, 175, 502, 109, 0, -3, 297, 301, 302, 502, 175, 265, 0, -3, 302, 298, 297, 265, 84, 502, 0, -3, 298, 302, 303, 84, 265, 186, 0, -3, 303, 299, 298, 186, 496, 84, 0, -3, 299, 303, 304, 496, 186, 470, 0, -3, 304, 300, 299, 470, 494, 496, 0, -3, 266, 271, 305, 331, 312, 170, 0, -3, 305, 301, 266, 170, 175, 331, 0, -3, 301, 305, 306, 175, 170, 97, 0, -3, 306, 302, 301, 97, 265, 175, 0, -3, 302, 306, 307, 265, 97, 205, 0, -3, 307, 303, 302, 205, 186, 265, 0, -3, 303, 307, 308, 186, 205, 449, 0, -3, 308, 304, 303, 449, 470, 186, 0, -3, 271, 276, 309, 312, 238, 379, 0, -3, 309, 305, 271, 379, 170, 312, 0, -3, 305, 309, 310, 170, 379, 300, 0, -3, 310, 306, 305, 300, 97, 170, 0, -3, 306, 310, 311, 97, 300, 118, 0, -3, 311, 307, 306, 118, 205, 97, 0, -3, 307, 311, 312, 205, 118, 237, 0, -3, 312, 308, 307, 237, 449, 205, 0, -3, 276, 281, 313, 238, 15, 199, 0, -3, 313, 309, 276, 199, 379, 238, 0, -3, 309, 313, 314, 379, 199, 94, 0, -3, 314, 310, 309, 94, 300, 379, 0, -3, 310, 314, 315, 300, 94, 421, 0, -3, 315, 311, 310, 421, 118, 300, 0, -3, 311, 315, 316, 118, 421, 31, 0, -3, 316, 312, 311, 31, 237, 118, 0, -3, 281, 286, 317, 15, 332, 367, 0, -3, 317, 313, 281, 367, 199, 15, 0, -3, 313, 317, 318, 199, 367, 529, 0, -3, 318, 314, 313, 529, 94, 199, 0, -3, 314, 318, 319, 94, 529, 185, 0, -3, 319, 315, 314, 185, 421, 94, 0, -3, 315, 319, 320, 421, 185, 89, 0, -3, 320, 316, 315, 89, 31, 421, 0, -3, 286, 291, 321, 332, 197, 172, 0, -3, 321, 317, 286, 172, 367, 332, 0, -3, 317, 321, 322, 367, 172, 209, 0, -3, 322, 318, 317, 209, 529, 367, 0, -3, 318, 322, 323, 529, 209, 429, 0, -3, 323, 319, 318, 429, 185, 529, 0, -3, 319, 323, 324, 185, 429, 112, 0, -3, 324, 320, 319, 112, 89, 185, 0, -3, 291, 296, 325, 197, 225, 451, 0, -3, 325, 321, 291, 451, 172, 197, 0, -3, 321, 325, 326, 172, 451, 66, 0, -3, 326, 322, 321, 66, 209, 172, 0, -3, 322, 326, 327, 209, 66, 176, 0, -3, 327, 323, 322, 176, 429, 209, 0, -3, 323, 327, 328, 429, 176, 155, 0, -3, 328, 324, 323, 155, 112, 429, 0, -3, 296, 261, 297, 225, 109, 502, 0, -3, 297, 325, 296, 502, 451, 225, 0, -3, 325, 297, 298, 451, 502, 84, 0, -3, 298, 326, 325, 84, 66, 451, 0, -3, 326, 298, 299, 66, 84, 496, 0, -3, 299, 327, 326, 496, 176, 66, 0, -3, 327, 299, 300, 176, 496, 494, 0, -3, 300, 328, 327, 494, 155, 176, 0, -3, 329, 334, 335, 3, 355, 122, 0, -3, 335, 330, 329, 122, 518, 3, 0, -3, 330, 335, 336, 518, 122, 111, 0, -3, 336, 331, 330, 111, 213, 518, 0, -3, 331, 336, 337, 213, 111, 473, 0, -3, 337, 332, 331, 473, 468, 213, 0, -3, 332, 337, 338, 468, 473, 521, 0, -3, 338, 333, 332, 521, 346, 468, 0, -3, 334, 339, 340, 355, 61, 414, 0, -3, 340, 335, 334, 414, 122, 355, 0, -3, 335, 340, 341, 122, 414, 413, 0, -3, 341, 336, 335, 413, 111, 122, 0, -3, 336, 341, 342, 111, 413, 204, 0, -3, 342, 337, 336, 204, 473, 111, 0, -3, 337, 342, 343, 473, 204, 217, 0, -3, 343, 338, 337, 217, 521, 473, 0, -3, 339, 344, 345, 61, 55, 100, 0, -3, 345, 340, 339, 100, 414, 61, 0, -3, 340, 345, 346, 414, 100, 399, 0, -3, 346, 341, 340, 399, 413, 414, 0, -3, 341, 346, 347, 413, 399, 326, 0, -3, 347, 342, 341, 326, 204, 413, 0, -3, 342, 347, 348, 204, 326, 221, 0, -3, 348, 343, 342, 221, 217, 204, 0, -3, 344, 349, 350, 55, 508, 477, 0, -3, 350, 345, 344, 477, 100, 55, 0, -3, 345, 350, 351, 100, 477, 292, 0, -3, 351, 346, 345, 292, 399, 100, 0, -3, 346, 351, 352, 399, 292, 73, 0, -3, 352, 347, 346, 73, 326, 399, 0, -3, 347, 352, 353, 326, 73, 362, 0, -3, 353, 348, 347, 362, 221, 326, 0, -3, 349, 354, 355, 508, 365, 262, 0, -3, 355, 350, 349, 262, 477, 508, 0, -3, 350, 355, 356, 477, 262, 93, 0, -3, 356, 351, 350, 93, 292, 477, 0, -3, 351, 356, 357, 292, 93, 318, 0, -3, 357, 352, 351, 318, 73, 292, 0, -3, 352, 357, 358, 73, 318, 163, 0, -3, 358, 353, 352, 163, 362, 73, 0, -3, 354, 359, 360, 365, 140, 340, 0, -3, 360, 355, 354, 340, 262, 365, 0, -3, 355, 360, 361, 262, 340, 505, 0, -3, 361, 356, 355, 505, 93, 262, 0, -3, 356, 361, 362, 93, 505, 499, 0, -3, 362, 357, 356, 499, 318, 93, 0, -3, 357, 362, 363, 318, 499, 159, 0, -3, 363, 358, 357, 159, 163, 318, 0, -3, 359, 364, 365, 140, 510, 68, 0, -3, 365, 360, 359, 68, 340, 140, 0, -3, 360, 365, 366, 340, 68, 167, 0, -3, 366, 361, 360, 167, 505, 340, 0, -3, 361, 366, 367, 505, 167, 245, 0, -3, 367, 362, 361, 245, 499, 505, 0, -3, 362, 367, 368, 499, 245, 437, 0, -3, 368, 363, 362, 437, 159, 499, 0, -3, 364, 329, 330, 510, 3, 518, 0, -3, 330, 365, 364, 518, 68, 510, 0, -3, 365, 330, 331, 68, 518, 213, 0, -3, 331, 366, 365, 213, 167, 68, 0, -3, 366, 331, 332, 167, 213, 468, 0, -3, 332, 367, 366, 468, 245, 167, 0, -3, 367, 332, 333, 245, 468, 346, 0, -3, 333, 368, 367, 346, 437, 245, 0, -3, 333, 338, 373, 346, 521, 79, 0, -3, 373, 369, 333, 79, 286, 346, 0, -3, 369, 373, 374, 286, 79, 77, 0, -3, 374, 370, 369, 77, 22, 286, 0, -3, 370, 374, 375, 22, 77, 523, 0, -3, 375, 371, 370, 523, 330, 22, 0, -3, 371, 375, 376, 330, 523, 259, 0, -3, 376, 372, 371, 259, 338, 330, 0, -3, 338, 343, 377, 521, 217, 207, 0, -3, 377, 373, 338, 207, 79, 521, 0, -3, 373, 377, 378, 79, 207, 471, 0, -3, 378, 374, 373, 471, 77, 79, 0, -3, 374, 378, 379, 77, 471, 198, 0, -3, 379, 375, 374, 198, 523, 77, 0, -3, 375, 379, 380, 523, 198, 366, 0, -3, 380, 376, 375, 366, 259, 523, 0, -3, 343, 348, 381, 217, 221, 516, 0, -3, 381, 377, 343, 516, 207, 217, 0, -3, 377, 381, 382, 207, 516, 250, 0, -3, 382, 378, 377, 250, 471, 207, 0, -3, 378, 382, 383, 471, 250, 240, 0, -3, 383, 379, 378, 240, 198, 471, 0, -3, 379, 383, 384, 198, 240, 381, 0, -3, 384, 380, 379, 381, 366, 198, 0, -3, 348, 353, 385, 221, 362, 230, 0, -3, 385, 381, 348, 230, 516, 221, 0, -3, 381, 385, 386, 516, 230, 303, 0, -3, 386, 382, 381, 303, 250, 516, 0, -3, 382, 386, 387, 250, 303, 10, 0, -3, 387, 383, 382, 10, 240, 250, 0, -3, 383, 387, 388, 240, 10, 283, 0, -3, 388, 384, 383, 283, 381, 240, 0, -3, 353, 358, 389, 362, 163, 282, 0, -3, 389, 385, 353, 282, 230, 362, 0, -3, 385, 389, 390, 230, 282, 35, 0, -3, 390, 386, 385, 35, 303, 230, 0, -3, 386, 390, 391, 303, 35, 243, 0, -3, 391, 387, 386, 243, 10, 303, 0, -3, 387, 391, 392, 10, 243, 368, 0, -3, 392, 388, 387, 368, 283, 10, 0, -3, 358, 363, 393, 163, 159, 296, 0, -3, 393, 389, 358, 296, 282, 163, 0, -3, 389, 393, 394, 282, 296, 160, 0, -3, 394, 390, 389, 160, 35, 282, 0, -3, 390, 394, 395, 35, 160, 323, 0, -3, 395, 391, 390, 323, 243, 35, 0, -3, 391, 395, 396, 243, 323, 280, 0, -3, 396, 392, 391, 280, 368, 243, 0, -3, 363, 368, 397, 159, 437, 275, 0, -3, 397, 393, 363, 275, 296, 159, 0, -3, 393, 397, 398, 296, 275, 133, 0, -3, 398, 394, 393, 133, 160, 296, 0, -3, 394, 398, 399, 160, 133, 344, 0, -3, 399, 395, 394, 344, 323, 160, 0, -3, 395, 399, 400, 323, 344, 108, 0, -3, 400, 396, 395, 108, 280, 323, 0, -3, 368, 333, 369, 437, 346, 286, 0, -3, 369, 397, 368, 286, 275, 437, 0, -3, 397, 369, 370, 275, 286, 22, 0, -3, 370, 398, 397, 22, 133, 275, 0, -3, 398, 370, 371, 133, 22, 330, 0, -3, 371, 399, 398, 330, 344, 133, 0, -3, 399, 371, 372, 344, 330, 338, 0, -3, 372, 400, 399, 338, 108, 344, 0, -3, 401, 401, 406, 235, 235, 189, 0, -3, 406, 402, 401, 189, 40, 235, 0, -3, 402, 406, 407, 40, 189, 306, 0, -3, 407, 403, 402, 306, 119, 40, 0, -3, 403, 407, 408, 119, 306, 202, 0, -3, 408, 404, 403, 202, 443, 119, 0, -3, 404, 408, 409, 443, 202, 241, 0, -3, 409, 405, 404, 241, 75, 443, 0, -3, 401, 401, 410, 235, 235, 263, 0, -3, 410, 406, 401, 263, 189, 235, 0, -3, 406, 410, 411, 189, 263, 196, 0, -3, 411, 407, 406, 196, 306, 189, 0, -3, 407, 411, 412, 306, 196, 281, 0, -3, 412, 408, 407, 281, 202, 306, 0, -3, 408, 412, 413, 202, 281, 121, 0, -3, 413, 409, 408, 121, 241, 202, 0, -3, 401, 401, 414, 235, 235, 479, 0, -3, 414, 410, 401, 479, 263, 235, 0, -3, 410, 414, 415, 263, 479, 36, 0, -3, 415, 411, 410, 36, 196, 263, 0, -3, 411, 415, 416, 196, 36, 436, 0, -3, 416, 412, 411, 436, 281, 196, 0, -3, 412, 416, 417, 281, 436, 351, 0, -3, 417, 413, 412, 351, 121, 281, 0, -3, 401, 401, 418, 235, 235, 90, 0, -3, 418, 414, 401, 90, 479, 235, 0, -3, 414, 418, 419, 479, 90, 361, 0, -3, 419, 415, 414, 361, 36, 479, 0, -3, 415, 419, 420, 36, 361, 376, 0, -3, 420, 416, 415, 376, 436, 36, 0, -3, 416, 420, 421, 436, 376, 412, 0, -3, 421, 417, 416, 412, 351, 436, 0, -3, 401, 401, 422, 235, 235, 52, 0, -3, 422, 418, 401, 52, 90, 235, 0, -3, 418, 422, 423, 90, 52, 21, 0, -3, 423, 419, 418, 21, 361, 90, 0, -3, 419, 423, 424, 361, 21, 158, 0, -3, 424, 420, 419, 158, 376, 361, 0, -3, 420, 424, 425, 376, 158, 39, 0, -3, 425, 421, 420, 39, 412, 376, 0, -3, 401, 401, 426, 235, 235, 424, 0, -3, 426, 422, 401, 424, 52, 235, 0, -3, 422, 426, 427, 52, 424, 373, 0, -3, 427, 423, 422, 373, 21, 52, 0, -3, 423, 427, 428, 21, 373, 375, 0, -3, 428, 424, 423, 375, 158, 21, 0, -3, 424, 428, 429, 158, 375, 249, 0, -3, 429, 425, 424, 249, 39, 158, 0, -3, 401, 401, 430, 235, 235, 432, 0, -3, 430, 426, 401, 432, 424, 235, 0, -3, 426, 430, 431, 424, 432, 229, 0, -3, 431, 427, 426, 229, 373, 424, 0, -3, 427, 431, 432, 373, 229, 65, 0, -3, 432, 428, 427, 65, 375, 373, 0, -3, 428, 432, 433, 375, 65, 506, 0, -3, 433, 429, 428, 506, 249, 375, 0, -3, 401, 401, 434, 235, 235, 302, 0, -3, 434, 430, 401, 302, 432, 235, 0, -3, 430, 434, 435, 432, 302, 96, 0, -3, 435, 431, 430, 96, 229, 432, 0, -3, 431, 435, 436, 229, 96, 169, 0, -3, 436, 432, 431, 169, 65, 229, 0, -3, 432, 436, 437, 65, 169, 59, 0, -3, 437, 433, 432, 59, 506, 65, 0, -3, 401, 401, 438, 235, 235, 452, 0, -3, 438, 434, 401, 452, 302, 235, 0, -3, 434, 438, 439, 302, 452, 30, 0, -3, 439, 435, 434, 30, 96, 302, 0, -3, 435, 439, 440, 96, 30, 460, 0, -3, 440, 436, 435, 460, 169, 96, 0, -3, 436, 440, 441, 169, 460, 498, 0, -3, 441, 437, 436, 498, 59, 169, 0, -3, 401, 401, 442, 235, 235, 525, 0, -3, 442, 438, 401, 525, 452, 235, 0, -3, 438, 442, 443, 452, 525, 456, 0, -3, 443, 439, 438, 456, 30, 452, 0, -3, 439, 443, 444, 30, 456, 9, 0, -3, 444, 440, 439, 9, 460, 30, 0, -3, 440, 444, 445, 460, 9, 388, 0, -3, 445, 441, 440, 388, 498, 460, 0, -3, 401, 401, 446, 235, 235, 212, 0, -3, 446, 442, 401, 212, 525, 235, 0, -3, 442, 446, 447, 525, 212, 299, 0, -3, 447, 443, 442, 299, 456, 525, 0, -3, 443, 447, 448, 456, 299, 166, 0, -3, 448, 444, 443, 166, 9, 456, 0, -3, 444, 448, 449, 9, 166, 72, 0, -3, 449, 445, 444, 72, 388, 9, 0, -3, 401, 401, 450, 235, 235, 107, 0, -3, 450, 446, 401, 107, 212, 235, 0, -3, 446, 450, 451, 212, 107, 82, 0, -3, 451, 447, 446, 82, 299, 212, 0, -3, 447, 451, 452, 299, 82, 391, 0, -3, 452, 448, 447, 391, 166, 299, 0, -3, 448, 452, 453, 166, 391, 139, 0, -3, 453, 449, 448, 139, 72, 166, 0, -3, 401, 401, 454, 235, 235, 70, 0, -3, 454, 450, 401, 70, 107, 235, 0, -3, 450, 454, 455, 107, 70, 51, 0, -3, 455, 451, 450, 51, 82, 107, 0, -3, 451, 455, 456, 82, 51, 178, 0, -3, 456, 452, 451, 178, 391, 82, 0, -3, 452, 456, 457, 391, 178, 57, 0, -3, 457, 453, 452, 57, 139, 391, 0, -3, 401, 401, 458, 235, 235, 442, 0, -3, 458, 454, 401, 442, 70, 235, 0, -3, 454, 458, 459, 70, 442, 387, 0, -3, 459, 455, 454, 387, 51, 70, 0, -3, 455, 459, 460, 51, 387, 389, 0, -3, 460, 456, 455, 389, 178, 51, 0, -3, 456, 460, 461, 178, 389, 264, 0, -3, 461, 457, 456, 264, 57, 178, 0, -3, 401, 401, 462, 235, 235, 450, 0, -3, 462, 458, 401, 450, 442, 235, 0, -3, 458, 462, 463, 442, 450, 253, 0, -3, 463, 459, 458, 253, 387, 442, 0, -3, 459, 463, 464, 387, 253, 86, 0, -3, 464, 460, 459, 86, 389, 387, 0, -3, 460, 464, 465, 389, 86, 526, 0, -3, 465, 461, 460, 526, 264, 389, 0, -3, 401, 401, 402, 235, 235, 40, 0, -3, 402, 462, 401, 40, 450, 235, 0, -3, 462, 402, 403, 450, 40, 119, 0, -3, 403, 463, 462, 119, 253, 450, 0, -3, 463, 403, 404, 253, 119, 443, 0, -3, 404, 464, 463, 443, 86, 253, 0, -3, 464, 404, 405, 86, 443, 75, 0, -3, 405, 465, 464, 75, 526, 86, 0, -3, 405, 409, 470, 75, 241, 519, 0, -3, 470, 466, 405, 519, 226, 75, 0, -3, 466, 470, 471, 226, 519, 406, 0, -3, 471, 467, 466, 406, 98, 226, 0, -3, 467, 471, 472, 98, 406, 232, 0, -3, 472, 468, 467, 232, 43, 98, 0, -3, 468, 472, 473, 43, 232, 345, 0, -3, 473, 469, 468, 345, 372, 43, 0, -3, 409, 413, 474, 241, 121, 227, 0, -3, 474, 470, 409, 227, 519, 241, 0, -3, 470, 474, 475, 519, 227, 469, 0, -3, 475, 471, 470, 469, 406, 519, 0, -3, 471, 475, 476, 406, 469, 258, 0, -3, 476, 472, 471, 258, 232, 406, 0, -3, 472, 476, 477, 232, 258, 271, 0, -3, 477, 473, 472, 271, 345, 232, 0, -3, 413, 417, 478, 121, 351, 157, 0, -3, 478, 474, 413, 157, 227, 121, 0, -3, 474, 478, 479, 227, 157, 80, 0, -3, 479, 475, 474, 80, 469, 227, 0, -3, 475, 479, 480, 469, 80, 489, 0, -3, 480, 476, 475, 489, 258, 469, 0, -3, 476, 480, 481, 258, 489, 277, 0, -3, 481, 477, 476, 277, 271, 258, 0, -3, 417, 421, 482, 351, 412, 153, 0, -3, 482, 478, 417, 153, 157, 351, 0, -3, 478, 482, 483, 157, 153, 324, 0, -3, 483, 479, 478, 324, 80, 157, 0, -3, 479, 483, 484, 80, 324, 339, 0, -3, 484, 480, 479, 339, 489, 80, 0, -3, 480, 484, 485, 489, 339, 88, 0, -3, 485, 481, 480, 88, 277, 489, 0, -3, 421, 425, 486, 412, 39, 6, 0, -3, 486, 482, 421, 6, 153, 412, 0, -3, 482, 486, 487, 153, 6, 8, 0, -3, 487, 483, 482, 8, 324, 153, 0, -3, 483, 487, 488, 324, 8, 16, 0, -3, 488, 484, 483, 16, 339, 324, 0, -3, 484, 488, 489, 339, 16, 289, 0, -3, 489, 485, 484, 289, 88, 339, 0, -3, 425, 429, 490, 39, 249, 99, 0, -3, 490, 486, 425, 99, 6, 39, 0, -3, 486, 490, 491, 6, 99, 200, 0, -3, 491, 487, 486, 200, 8, 6, 0, -3, 487, 491, 492, 8, 200, 150, 0, -3, 492, 488, 487, 150, 16, 8, 0, -3, 488, 492, 493, 16, 150, 493, 0, -3, 493, 489, 488, 493, 289, 16, 0, -3, 429, 433, 494, 249, 506, 291, 0, -3, 494, 490, 429, 291, 99, 249, 0, -3, 490, 494, 495, 99, 291, 64, 0, -3, 495, 491, 490, 64, 200, 99, 0, -3, 491, 495, 496, 200, 64, 19, 0, -3, 496, 492, 491, 19, 150, 200, 0, -3, 492, 496, 497, 150, 19, 433, 0, -3, 497, 493, 492, 433, 493, 150, 0, -3, 433, 437, 498, 506, 59, 203, 0, -3, 498, 494, 433, 203, 291, 506, 0, -3, 494, 498, 499, 291, 203, 374, 0, -3, 499, 495, 494, 374, 64, 291, 0, -3, 495, 499, 500, 64, 374, 307, 0, -3, 500, 496, 495, 307, 19, 64, 0, -3, 496, 500, 501, 19, 307, 358, 0, -3, 501, 497, 496, 358, 433, 19, 0, -3, 437, 441, 502, 59, 498, 256, 0, -3, 502, 498, 437, 256, 203, 59, 0, -3, 498, 502, 503, 203, 256, 132, 0, -3, 503, 499, 498, 132, 374, 203, 0, -3, 499, 503, 504, 374, 132, 492, 0, -3, 504, 500, 499, 492, 307, 374, 0, -3, 500, 504, 505, 307, 492, 67, 0, -3, 505, 501, 500, 67, 358, 307, 0, -3, 441, 445, 506, 498, 388, 487, 0, -3, 506, 502, 441, 487, 256, 498, 0, -3, 502, 506, 507, 256, 487, 206, 0, -3, 507, 503, 502, 206, 132, 256, 0, -3, 503, 507, 508, 132, 206, 515, 0, -3, 508, 504, 503, 515, 492, 132, 0, -3, 504, 508, 509, 492, 515, 527, 0, -3, 509, 505, 504, 527, 67, 492, 0, -3, 445, 449, 510, 388, 72, 423, 0, -3, 510, 506, 445, 423, 487, 388, 0, -3, 506, 510, 511, 487, 423, 352, 0, -3, 511, 507, 506, 352, 206, 487, 0, -3, 507, 511, 512, 206, 352, 224, 0, -3, 512, 508, 507, 224, 515, 206, 0, -3, 508, 512, 513, 515, 224, 2, 0, -3, 513, 509, 508, 2, 527, 515, 0, -3, 449, 453, 514, 72, 139, 418, 0, -3, 514, 510, 449, 418, 423, 72, 0, -3, 510, 514, 515, 423, 418, 341, 0, -3, 515, 511, 510, 341, 352, 423, 0, -3, 511, 515, 516, 352, 341, 359, 0, -3, 516, 512, 511, 359, 224, 352, 0, -3, 512, 516, 517, 224, 359, 360, 0, -3, 517, 513, 512, 360, 2, 224, 0, -3, 453, 457, 518, 139, 57, 24, 0, -3, 518, 514, 453, 24, 418, 139, 0, -3, 514, 518, 519, 418, 24, 25, 0, -3, 519, 515, 514, 25, 341, 418, 0, -3, 515, 519, 520, 341, 25, 41, 0, -3, 520, 516, 515, 41, 359, 341, 0, -3, 516, 520, 521, 359, 41, 314, 0, -3, 521, 517, 516, 314, 360, 359, 0, -3, 457, 461, 522, 57, 264, 120, 0, -3, 522, 518, 457, 120, 24, 57, 0, -3, 518, 522, 523, 24, 120, 223, 0, -3, 523, 519, 518, 223, 25, 24, 0, -3, 519, 523, 524, 25, 223, 171, 0, -3, 524, 520, 519, 171, 41, 25, 0, -3, 520, 524, 525, 41, 171, 514, 0, -3, 525, 521, 520, 514, 314, 41, 0, -3, 461, 465, 526, 264, 526, 316, 0, -3, 526, 522, 461, 316, 120, 264, 0, -3, 522, 526, 527, 120, 316, 85, 0, -3, 527, 523, 522, 85, 223, 120, 0, -3, 523, 527, 528, 223, 85, 50, 0, -3, 528, 524, 523, 50, 171, 223, 0, -3, 524, 528, 529, 171, 50, 454, 0, -3, 529, 525, 524, 454, 514, 171, 0, -3, 465, 405, 466, 526, 75, 226, 0, -3, 466, 526, 465, 226, 316, 526, 0, -3, 526, 466, 467, 316, 226, 98, 0, -3, 467, 527, 526, 98, 85, 316, 0, -3, 527, 467, 468, 85, 98, 43, 0, -3, 468, 528, 527, 43, 50, 85, 0, -3, 528, 468, 469, 50, 43, 372, 0, -3, 469, 529, 528, 372, 454, 50, 0 -}; - - -const int strip_vertices[] = { -508, 508, 504, 509, 504, 505, 500, 501, 496, 497, 492, 493, 488, 489, 484, 485, 480, 481, 476, 477, 472, 473, -1, -476, 475, 480, 479, 484, 483, 488, 487, 492, 491, 496, 495, 500, 499, 504, 499, 503, 498, 502, 437, 441, -1, -527, 526, 467, 466, 471, 470, 475, 474, 479, 478, 483, 482, 487, 486, 491, 490, 495, 494, 499, 494, 498, -1, -490, 490, 425, 486, 421, 482, 417, 478, 413, 474, 409, 470, 405, 466, 465, 526, 465, 461, 460, 456, 455, 451, -1, -405, 465, 464, 460, 459, 455, 454, 450, -1, -455, 451, 450, 446, 450, 401, 454, 458, 459, 463, 464, 404, 405, 404, 409, 408, 413, 412, 417, 416, 421, 420, -1, -421, 420, 425, 420, 424, 419, 423, 418, 422, 418, 401, 414, 410, 415, 411, 416, 411, 412, 407, 408, 403, 404, 403, 463, -1, -418, 418, 414, 419, 415, 420, 416, -1, -407, 403, 402, 462, -1, -403, 463, 462, 458, 462, 401, 402, 406, 407, 406, 411, 406, 410, 401, -1, -494, 494, 498, 433, 437, 432, 436, 431, 435, 430, 434, 430, 401, 426, 422, 427, 423, 428, 424, 429, 425, 490, -1, -430, 430, 426, 431, 427, 432, 428, 433, 429, 494, 490, -1, -437, 437, 441, 436, 440, 435, 439, 434, 438, 401, 442, 446, 447, 451, 452, 456, 457, 461, 522, 526, 527, -1, -452, 448, 447, -1, -510, 445, 449, 444, 448, 443, 447, 443, 442, 443, 438, 443, 439, 444, 440, 445, 441, 506, 502, 507, 503, -1, -510, 506, 445, -1, -507, 506, 511, 510, 515, 510, 514, 449, 453, 448, 453, 452, 457, -1, -527, 523, 522, 518, 457, 518, 453, 518, 514, 519, 515, -1, -523, 519, 518, -1, -504, 503, 508, 507, 512, 511, 516, 515, 520, 519, 524, 523, 528, 527, 468, 467, 472, 471, 476, 475, -1, -472, 473, 468, 469, 528, 529, 524, 525, 520, 521, 516, 517, 512, 513, 508, 509, -1, -211, 211, 214, 210, 209, -1, -212, 215, 216, 219, 220, 223, 220, 211, 217, 214, 213, 209, 213, 208, 212, 147, -1, -220, 217, 216, 213, 212, -1, -251, 251, 248, 252, 249, 253, 250, 253, 211, 256, 210, 255, 209, 254, 208, 207, 147, 206, 147, 146, 147, 151, 212, 215, -1, -206, 206, 202, 207, 203, 254, 251, 255, 252, 256, 253, -1, -223, 223, 222, 219, 218, 215, 155, 151, 150, 146, 145, 146, 205, 206, 201, 202, 197, 202, 198, 203, 199, 251, 248, -1, -145, 149, 150, 154, 155, 159, 218, 221, 222, 225, 226, 229, -1, -204, 204, 145, 144, 149, 148, 149, 153, 154, 158, 159, 163, 221, 224, 225, 228, 229, 232, 229, 211, 226, 223, 222, -1, -224, 224, 167, 163, 162, 158, 157, 153, 152, 148, 87, 148, 83, 144, 143, 204, 139, 200, 135, 196, 131, 192, -1, -82, 83, 142, 143, 138, 139, 134, 135, 130, 131, 126, 127, 122, 123, 118, 123, 119, 184, 180, 185, 181, -1, -81, 82, 141, 142, 137, 138, 133, 134, 129, 130, 125, 126, 121, 122, 117, 118, 113, 114, 109, 110, -1, -80, 81, 140, 141, 136, 137, 132, 133, 128, 129, 124, 125, 120, 121, 116, 117, 112, 113, 108, 109, -1, -4, 80, 79, 140, 74, 136, 69, 132, 64, 128, 59, 124, 54, 120, 49, 116, 44, 112, 39, 108, -1, -79, 79, 73, 74, 68, 69, 63, 64, 58, 59, 53, 54, 48, 49, 48, 43, 42, 37, 36, 31, 30, 31, 25, -1, -42, 42, 48, 47, 53, 52, 58, 57, 63, 62, 68, 67, 73, 72, 78, 77, 3, 2, 8, 7, 13, -1, -36, 36, 42, 41, 47, 46, 52, 51, 57, 56, 62, 61, 67, 66, 72, 71, 77, 76, 2, 1, 7, -1, -66, 66, 60, 61, 55, 56, 50, 51, 45, 46, 40, 41, 35, 36, 30, -1, -31, 31, 25, 26, 20, 21, 15, 16, 10, 11, 5, 6, 0, 1, 75, 76, 70, 71, 65, 66, 60, -1, -1, 1, 7, 6, 12, 11, 17, 16, 22, 21, 27, 26, 32, 31, 32, 37, 38, 43, 44, 49, -1, -7, 7, 13, 12, 18, 17, 23, 22, 28, 27, 33, 32, 33, 38, -1, -44, 44, 38, 39, 33, 34, 28, 29, 23, 24, 18, 19, 13, 14, 8, 9, 3, 4, 78, 79, 73, -1, -39, 108, 34, 104, 29, 100, 24, 96, 19, 92, 14, 88, 9, 84, 4, 84, 80, 85, 81, 86, 81, 82, -1, -108, 109, 104, 105, 100, 101, 96, 97, 92, 93, 88, 89, 84, 85, -1, -109, 110, 105, 106, 101, 102, 97, 98, 93, 94, 89, 90, 85, 86, -1, -118, 119, 114, 115, 110, 111, 106, 107, 102, 103, 98, 99, 94, 95, 90, 91, 86, 87, 82, 83, -1, -111, 115, 176, -1, -107, 111, 172, 176, 177, -1, -103, 107, 168, 172, 173, 177, 178, -1, -99, 103, 164, 168, 169, 173, 174, 178, 179, -1, -95, 99, 160, 164, 165, 169, 170, 174, 175, 179, 233, -1, -91, 95, 156, 160, 161, 165, 166, 170, 171, 175, 230, 233, 234, -1, -87, 91, 152, 156, 157, 161, 162, 166, 167, 171, 227, 230, 231, 234, 235, 234, 238, 234, 237, 233, 236, 179, -1, -185, 185, 181, 186, 182, 187, 183, 239, 236, 240, 237, 241, 238, 211, 235, 232, 231, 228, 227, 224, 167, -1, -236, 179, 183, 178, 182, 177, 181, 176, 180, 115, 119, -1, -131, 192, 127, 188, 123, 188, 184, 189, 185, 190, 186, 191, 187, 242, 239, 243, 240, 244, 241, 244, 211, 247, -1, -192, 192, 188, 193, 189, 194, 190, 195, 191, 245, 242, 246, 243, 247, 244, -1, -211, 247, 250, 246, 249, 245, 248, 195, 199, 194, 198, 193, 197, 192, 197, 196, 201, 200, 205, 204, 145, -1, -393, 393, 394, 398, 399, 371, -1, -399, 395, 394, -1, -363, 363, 393, 397, 398, 370, 371, 375, -1, -379, 375, 374, 370, 369, 397, 368, 363, 362, -1, -396, 395, 400, 399, 372, 371, 376, 375, 380, 379, 384, 383, 388, 387, 392, 391, 396, 391, 395, 390, 394, -1, -374, 378, 379, 378, 383, 382, 387, 386, 391, 386, 390, 385, 389, 353, 358, 352, 357, 351, 356, 350, 355, -1, -341, 341, 347, 346, 352, 346, 351, 345, 350, -1, -335, 334, 340, 339, 345, 344, 350, 349, 355, 354, -1, -390, 390, 394, 389, 393, 358, 363, 357, 362, 356, 361, 355, 360, 354, 360, 359, 365, 364, 330, 329, 335, 334, -1, -345, 346, 340, 341, 335, 336, 330, 331, 365, 366, 360, 366, 361, 367, 362, 367, 368, 333, 369, 373, 374, 378, -1, -353, 353, 348, 385, 381, 386, 381, 382, 377, 378, 377, 373, 338, 333, 332, 367, 332, 366, 332, 331, 337, 336, 342, 341, 347, -1, -332, 337, 338, 343, 377, 343, 381, 343, 348, 342, 348, 347, 353, 352, -1, -337, 342, 343, -1, -314, 314, 319, 318, 323, 322, 323, 327, -1, -309, 309, 314, 313, 318, 317, 322, 321, 322, 326, 327, 299, -1, -271, 271, 309, 276, 313, 281, 317, 286, 321, 291, 321, 325, 326, 298, 299, 303, -1, -265, 265, 271, 270, 276, 275, 281, 280, 286, 285, 291, 290, 291, 296, 325, 297, 298, 302, 303, 307, -1, -259, 259, 265, 264, 270, 269, 275, 274, 280, 279, 285, 284, 290, 289, 290, 295, 296, 261, 297, 301, 302, 306, 307, 311, -1, -293, 293, 259, 258, 264, 263, 269, 268, 274, 273, 279, 278, 284, 283, 289, 288, 289, 294, 295, 260, 261, 266, -1, -309, 305, 271, 266, 265, 260, 259, 294, 293, 288, 287, 288, 282, 283, 277, 278, 272, 273, 267, 268, 262, -1, -268, 268, 262, 263, 257, 258, 292, 293, 287, -1, -261, 266, 301, 305, 306, 310, 311, 315, 316, 320, -1, -316, 316, 311, 312, 307, 308, 303, 304, 299, 300, 327, 328, 323, 324, 319, 320, 319, 315, 314, 310, 309, 305, -1 -}; - - -const int strip_normals[] = { -515, 515, 492, 527, 492, 67, 307, 358, 19, 433, 150, 493, 16, 289, 339, 88, 489, 277, 258, 271, 232, 345, -1, -258, 469, 489, 80, 339, 324, 16, 8, 150, 200, 19, 64, 307, 374, 492, 374, 132, 203, 256, 59, 498, -1, -85, 316, 98, 226, 406, 519, 469, 227, 80, 157, 324, 153, 8, 6, 200, 99, 64, 291, 374, 291, 203, -1, -99, 99, 39, 6, 412, 153, 351, 157, 121, 227, 241, 519, 75, 226, 526, 316, 526, 264, 389, 178, 51, 82, -1, -75, 526, 86, 389, 387, 51, 70, 107, -1, -51, 82, 107, 212, 107, 235, 70, 442, 387, 253, 86, 443, 75, 443, 241, 202, 121, 281, 351, 436, 412, 376, -1, -412, 376, 39, 376, 158, 361, 21, 90, 52, 90, 235, 479, 263, 36, 196, 436, 196, 281, 306, 202, 119, 443, 119, 253, -1, -90, 90, 479, 361, 36, 376, 436, -1, -306, 119, 40, 450, -1, -119, 253, 450, 442, 450, 235, 40, 189, 306, 189, 196, 189, 263, 235, -1, -291, 291, 203, 506, 59, 65, 169, 229, 96, 432, 302, 432, 235, 424, 52, 373, 21, 375, 158, 249, 39, 99, -1, -432, 432, 424, 229, 373, 65, 375, 506, 249, 291, 99, -1, -59, 59, 498, 169, 460, 96, 30, 302, 452, 235, 525, 212, 299, 82, 391, 178, 57, 264, 120, 316, 85, -1, -391, 166, 299, -1, -423, 388, 72, 9, 166, 456, 299, 456, 525, 456, 452, 456, 30, 9, 460, 388, 498, 487, 256, 206, 132, -1, -423, 487, 388, -1, -206, 487, 352, 423, 341, 423, 418, 72, 139, 166, 139, 391, 57, -1, -85, 223, 120, 24, 57, 24, 139, 24, 418, 25, 341, -1, -223, 25, 24, -1, -492, 132, 515, 206, 224, 352, 359, 341, 41, 25, 171, 223, 50, 85, 43, 98, 232, 406, 258, 469, -1, -232, 345, 43, 372, 50, 454, 171, 514, 41, 314, 359, 360, 224, 2, 515, 527, -1, -393, 393, 0, 216, 349, -1, -486, 215, 327, 91, 177, 254, 177, 393, 512, 0, 231, 349, 231, 279, 486, 246, -1, -177, 512, 327, 231, 486, -1, -462, 462, 144, 76, 179, 464, 298, 464, 393, 128, 216, 113, 349, 500, 279, 101, 246, 7, 246, 395, 246, 384, 486, 215, -1, -7, 7, 195, 101, 444, 500, 462, 113, 76, 128, 464, -1, -254, 254, 285, 91, 149, 215, 83, 384, 325, 395, 520, 395, 315, 7, 143, 195, 129, 195, 461, 444, 475, 462, 144, -1, -520, 308, 325, 415, 83, 297, 149, 504, 285, 162, 278, 446, -1, -403, 403, 520, 276, 308, 404, 308, 272, 415, 416, 297, 317, 504, 125, 162, 60, 446, 110, 446, 393, 278, 254, 285, -1, -125, 125, 459, 317, 334, 416, 137, 272, 47, 404, 511, 404, 1, 276, 54, 403, 45, 370, 490, 210, 29, 184, -1, -336, 1, 251, 54, 164, 45, 463, 490, 378, 29, 453, 147, 222, 218, 301, 218, 242, 310, 130, 528, 34, -1, -26, 336, 148, 251, 269, 164, 419, 463, 293, 378, 420, 453, 333, 222, 208, 301, 294, 56, 127, 228, -1, -131, 26, 371, 148, 284, 269, 311, 419, 95, 293, 350, 420, 377, 333, 474, 208, 396, 294, 357, 127, -1, -116, 131, 273, 371, 480, 284, 104, 311, 257, 95, 348, 350, 447, 377, 313, 474, 322, 396, 28, 357, -1, -273, 273, 183, 480, 347, 104, 53, 257, 181, 348, 124, 447, 428, 313, 428, 435, 11, 270, 193, 305, 69, 305, 386, -1, -11, 11, 428, 409, 124, 382, 181, 161, 53, 481, 347, 408, 183, 319, 151, 422, 448, 4, 165, 134, 394, -1, -193, 193, 11, 495, 409, 44, 382, 385, 161, 478, 481, 320, 408, 37, 319, 524, 422, 328, 4, 465, 134, -1, -37, 37, 431, 320, 136, 478, 513, 385, 27, 44, 467, 495, 115, 193, 69, -1, -305, 305, 386, 20, 174, 182, 401, 211, 248, 106, 295, 309, 255, 465, 483, 328, 191, 524, 135, 37, 431, -1, -465, 465, 134, 309, 102, 106, 427, 211, 507, 182, 410, 20, 503, 305, 503, 270, 445, 435, 322, 313, -1, -134, 134, 394, 102, 455, 427, 5, 507, 23, 410, 405, 503, 405, 445, -1, -322, 322, 445, 28, 405, 138, 23, 485, 5, 234, 455, 74, 394, 180, 165, 49, 448, 116, 151, 273, 183, -1, -28, 357, 138, 268, 485, 287, 234, 81, 74, 78, 180, 103, 49, 220, 116, 220, 131, 476, 26, 38, 26, 336, -1, -357, 127, 268, 252, 287, 398, 81, 274, 78, 154, 103, 62, 220, 476, -1, -127, 228, 252, 141, 398, 440, 274, 363, 154, 190, 62, 488, 476, 38, -1, -301, 242, 56, 517, 228, 33, 141, 18, 440, 466, 363, 304, 190, 417, 488, 484, 38, 511, 336, 1, -1, -33, 517, 260, -1, -18, 33, 390, 260, 497, -1, -466, 18, 353, 390, 290, 497, 126, -1, -304, 466, 187, 353, 123, 290, 522, 126, 501, -1, -417, 304, 458, 187, 117, 123, 168, 522, 87, 501, 261, -1, -484, 417, 430, 458, 343, 117, 438, 168, 426, 87, 482, 261, 329, -1, -511, 484, 47, 430, 137, 343, 334, 438, 459, 426, 439, 482, 92, 329, 192, 329, 267, 329, 491, 261, 219, 501, -1, -528, 528, 34, 145, 46, 356, 105, 472, 219, 48, 491, 247, 267, 393, 192, 110, 92, 60, 439, 125, 459, -1, -219, 501, 105, 126, 46, 497, 34, 260, 130, 517, 242, -1, -29, 184, 147, 156, 218, 156, 310, 402, 528, 146, 145, 17, 356, 411, 472, 364, 48, 441, 247, 441, 393, 509, -1, -184, 184, 156, 63, 402, 354, 146, 335, 17, 239, 411, 13, 364, 509, 441, -1, -393, 509, 298, 13, 179, 239, 144, 335, 475, 354, 461, 63, 129, 184, 129, 210, 143, 370, 315, 403, 520, -1, -296, 296, 160, 133, 344, 330, -1, -344, 323, 160, -1, -159, 159, 296, 275, 133, 22, 330, 523, -1, -198, 523, 77, 22, 286, 275, 437, 159, 499, -1, -280, 323, 108, 344, 338, 330, 259, 523, 366, 198, 381, 240, 283, 10, 368, 243, 280, 243, 323, 35, 160, -1, -77, 471, 198, 471, 240, 250, 10, 303, 243, 303, 35, 230, 282, 362, 163, 73, 318, 292, 93, 477, 262, -1, -413, 413, 326, 399, 73, 399, 292, 100, 477, -1, -122, 355, 414, 61, 100, 55, 477, 508, 262, 365, -1, -35, 35, 160, 282, 296, 163, 159, 318, 499, 93, 505, 262, 340, 365, 340, 140, 68, 510, 518, 3, 122, 355, -1, -100, 399, 414, 413, 122, 111, 518, 213, 68, 167, 340, 167, 505, 245, 499, 245, 437, 346, 286, 79, 77, 471, -1, -362, 362, 221, 230, 516, 303, 516, 250, 207, 471, 207, 79, 521, 346, 468, 245, 468, 167, 468, 213, 473, 111, 204, 413, 326, -1, -468, 473, 521, 217, 207, 217, 516, 217, 221, 204, 221, 326, 362, 73, -1, -473, 204, 217, -1, -94, 94, 185, 529, 429, 209, 429, 176, -1, -379, 379, 94, 199, 529, 367, 209, 172, 209, 66, 176, 496, -1, -312, 312, 379, 238, 199, 15, 367, 332, 172, 197, 172, 451, 66, 84, 496, 186, -1, -266, 266, 312, 392, 238, 201, 15, 14, 332, 457, 197, 383, 197, 225, 451, 502, 84, 265, 186, 205, -1, -236, 236, 266, 214, 392, 71, 201, 188, 14, 173, 457, 400, 383, 380, 383, 342, 225, 109, 502, 175, 265, 97, 205, 118, -1, -152, 152, 236, 337, 214, 58, 71, 369, 188, 434, 173, 114, 400, 288, 380, 42, 380, 397, 342, 32, 109, 331, -1, -379, 170, 312, 331, 266, 32, 236, 397, 152, 42, 194, 42, 407, 288, 142, 114, 12, 434, 233, 369, 244, -1, -369, 369, 244, 58, 425, 337, 321, 152, 194, -1, -109, 331, 175, 170, 97, 300, 118, 421, 31, 89, -1, -31, 31, 118, 237, 205, 449, 186, 470, 496, 494, 176, 155, 429, 112, 185, 89, 185, 421, 94, 300, 379, 170, -1 -}; - -#else /* defined(_WIN32_WCE) */ - -/* - * Original teapot code copyright follows: - */ - -/* - * (c) Copyright 1993, Silicon Graphics, Inc. - * - * ALL RIGHTS RESERVED - * - * Permission to use, copy, modify, and distribute this software - * for any purpose and without fee is hereby granted, provided - * that the above copyright notice appear in all copies and that - * both the copyright notice and this permission notice appear in - * supporting documentation, and that the name of Silicon - * Graphics, Inc. not be used in advertising or publicity - * pertaining to distribution of the software without specific, - * written prior permission. - * - * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU - * "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR - * OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF - * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. IN NO - * EVENT SHALL SILICON GRAPHICS, INC. BE LIABLE TO YOU OR ANYONE - * ELSE FOR ANY DIRECT, SPECIAL, INCIDENTAL, INDIRECT OR - * CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES WHATSOEVER, - * INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT, LOSS OF USE, - * SAVINGS OR REVENUE, OR THE CLAIMS OF THIRD PARTIES, WHETHER OR - * NOT SILICON GRAPHICS, INC. HAS BEEN ADVISED OF THE POSSIBILITY - * OF SUCH LOSS, HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, - * ARISING OUT OF OR IN CONNECTION WITH THE POSSESSION, USE OR - * PERFORMANCE OF THIS SOFTWARE. - * - * US Government Users Restricted Rights - * - * Use, duplication, or disclosure by the Government is subject to - * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph - * (c)(1)(ii) of the Rights in Technical Data and Computer - * Software clause at DFARS 252.227-7013 and/or in similar or - * successor clauses in the FAR or the DOD or NASA FAR - * Supplement. Unpublished-- rights reserved under the copyright - * laws of the United States. Contractor/manufacturer is Silicon - * Graphics, Inc., 2011 N. Shoreline Blvd., Mountain View, CA - * 94039-7311. - * - * OpenGL(TM) is a trademark of Silicon Graphics, Inc. - */ - -/* - * Rim, body, lid, and bottom data must be reflected in x and y; - * handle and spout data across the y axis only. - */ -static int patchdata[][16] = -{ - { 102, 103, 104, 105, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 }, /* rim */ - { 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27 }, /* body */ - { 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40 }, - { 96, 96, 96, 96, 97, 98, 99, 100, 101, 101, 101, 101, 0, 1, 2, 3 }, /* lid */ - { 0, 1, 2, 3, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117 }, - { 118, 118, 118, 118, 124, 122, 119, 121, 123, 126, 125, 120, 40, 39, 38, 37 }, /* bottom */ - { 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56 }, /* handle */ - { 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 28, 65, 66, 67 }, - { 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83 }, /* spout */ - { 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95 } -}; - -static double cpdata[][3] = -{ - {0.2, 0, 2.7}, {0.2, -0.112, 2.7}, {0.112, -0.2, 2.7}, {0, - -0.2, 2.7}, {1.3375, 0, 2.53125}, {1.3375, -0.749, 2.53125}, - {0.749, -1.3375, 2.53125}, {0, -1.3375, 2.53125}, {1.4375, - 0, 2.53125}, {1.4375, -0.805, 2.53125}, {0.805, -1.4375, - 2.53125}, {0, -1.4375, 2.53125}, {1.5, 0, 2.4}, {1.5, -0.84, - 2.4}, {0.84, -1.5, 2.4}, {0, -1.5, 2.4}, {1.75, 0, 1.875}, - {1.75, -0.98, 1.875}, {0.98, -1.75, 1.875}, {0, -1.75, - 1.875}, {2, 0, 1.35}, {2, -1.12, 1.35}, {1.12, -2, 1.35}, - {0, -2, 1.35}, {2, 0, 0.9}, {2, -1.12, 0.9}, {1.12, -2, - 0.9}, {0, -2, 0.9}, {-2, 0, 0.9}, {2, 0, 0.45}, {2, -1.12, - 0.45}, {1.12, -2, 0.45}, {0, -2, 0.45}, {1.5, 0, 0.225}, - {1.5, -0.84, 0.225}, {0.84, -1.5, 0.225}, {0, -1.5, 0.225}, - {1.5, 0, 0.15}, {1.5, -0.84, 0.15}, {0.84, -1.5, 0.15}, {0, - -1.5, 0.15}, {-1.6, 0, 2.025}, {-1.6, -0.3, 2.025}, {-1.5, - -0.3, 2.25}, {-1.5, 0, 2.25}, {-2.3, 0, 2.025}, {-2.3, -0.3, - 2.025}, {-2.5, -0.3, 2.25}, {-2.5, 0, 2.25}, {-2.7, 0, - 2.025}, {-2.7, -0.3, 2.025}, {-3, -0.3, 2.25}, {-3, 0, - 2.25}, {-2.7, 0, 1.8}, {-2.7, -0.3, 1.8}, {-3, -0.3, 1.8}, - {-3, 0, 1.8}, {-2.7, 0, 1.575}, {-2.7, -0.3, 1.575}, {-3, - -0.3, 1.35}, {-3, 0, 1.35}, {-2.5, 0, 1.125}, {-2.5, -0.3, - 1.125}, {-2.65, -0.3, 0.9375}, {-2.65, 0, 0.9375}, {-2, - -0.3, 0.9}, {-1.9, -0.3, 0.6}, {-1.9, 0, 0.6}, {1.7, 0, - 1.425}, {1.7, -0.66, 1.425}, {1.7, -0.66, 0.6}, {1.7, 0, - 0.6}, {2.6, 0, 1.425}, {2.6, -0.66, 1.425}, {3.1, -0.66, - 0.825}, {3.1, 0, 0.825}, {2.3, 0, 2.1}, {2.3, -0.25, 2.1}, - {2.4, -0.25, 2.025}, {2.4, 0, 2.025}, {2.7, 0, 2.4}, {2.7, - -0.25, 2.4}, {3.3, -0.25, 2.4}, {3.3, 0, 2.4}, {2.8, 0, - 2.475}, {2.8, -0.25, 2.475}, {3.525, -0.25, 2.49375}, - {3.525, 0, 2.49375}, {2.9, 0, 2.475}, {2.9, -0.15, 2.475}, - {3.45, -0.15, 2.5125}, {3.45, 0, 2.5125}, {2.8, 0, 2.4}, - {2.8, -0.15, 2.4}, {3.2, -0.15, 2.4}, {3.2, 0, 2.4}, {0, 0, - 3.15}, {0.8, 0, 3.15}, {0.8, -0.45, 3.15}, {0.45, -0.8, - 3.15}, {0, -0.8, 3.15}, {0, 0, 2.85}, {1.4, 0, 2.4}, {1.4, - -0.784, 2.4}, {0.784, -1.4, 2.4}, {0, -1.4, 2.4}, {0.4, 0, - 2.55}, {0.4, -0.224, 2.55}, {0.224, -0.4, 2.55}, {0, -0.4, - 2.55}, {1.3, 0, 2.55}, {1.3, -0.728, 2.55}, {0.728, -1.3, - 2.55}, {0, -1.3, 2.55}, {1.3, 0, 2.4}, {1.3, -0.728, 2.4}, - {0.728, -1.3, 2.4}, {0, -1.3, 2.4}, {0, 0, 0}, {1.425, - -0.798, 0}, {1.5, 0, 0.075}, {1.425, 0, 0}, {0.798, -1.425, - 0}, {0, -1.5, 0.075}, {0, -1.425, 0}, {1.5, -0.84, 0.075}, - {0.84, -1.5, 0.075} -}; - -static double tex[2][2][2] = -{ - { {0.0, 0.0}, {1.0, 0.0} }, - { {0.0, 1.0}, {1.0, 1.0} } -}; -#endif /* defined(_WIN32_WCE) */ - - -#endif /* FREEGLUT_TEAPOT_DATA_H */ - diff --git a/internal/c/parts/core/android_core/src/fg_videoresize.c b/internal/c/parts/core/android_core/src/fg_videoresize.c deleted file mode 100644 index ce406f34a..000000000 --- a/internal/c/parts/core/android_core/src/fg_videoresize.c +++ /dev/null @@ -1,44 +0,0 @@ -/* - * freeglut_videoresize.c - * - * Video resize functions (as defined by GLUT API) - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Thu Dec 16 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "fg_internal.h" - -/* - * NOTE: functions declared in this file probably will not be implemented. - */ - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -int FGAPIENTRY glutVideoResizeGet( GLenum eWhat ) { return( 0x00 ); } -void FGAPIENTRY glutSetupVideoResizing( void ) { /* Not implemented */ } -void FGAPIENTRY glutStopVideoResizing( void ) { /* Not implemented */ } -void FGAPIENTRY glutVideoResize( int x, int y, int w, int h ) { /* Not implemented */ } -void FGAPIENTRY glutVideoPan( int x, int y, int w, int h ) { /* Not implemented */ } - -/*** END OF FILE ***/ - diff --git a/internal/c/parts/core/android_core/src/fg_window.c b/internal/c/parts/core/android_core/src/fg_window.c deleted file mode 100644 index e6365b561..000000000 --- a/internal/c/parts/core/android_core/src/fg_window.c +++ /dev/null @@ -1,525 +0,0 @@ -#include -#include -#include -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "native-activity", __VA_ARGS__)) -#define LOGW(...) ((void)__android_log_print(ANDROID_LOG_WARN, "native-activity", __VA_ARGS__)) -//LOGI("tracer********************10"); - -/* - * freeglut_window.c - * - * Window management methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Creation date: Fri Dec 3 1999 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * fgSetupPixelFormat -- ignores the display mode settings - * fgOpenWindow() -- check the Win32 version, -iconic handling! - * fgCloseWindow() -- check the Win32 version - * glutCreateWindow() -- Check when default position and size is {-1,-1} - * glutCreateSubWindow() -- Check when default position and size is {-1,-1} - * glutDestroyWindow() -- check the Win32 version - * glutSetWindow() -- check the Win32 version - * glutSetWindowTitle() -- check the Win32 version - * glutSetIconTitle() -- check the Win32 version - * glutShowWindow() -- check the Win32 version - * glutHideWindow() -- check the Win32 version - * glutIconifyWindow() -- check the Win32 version - * glutPushWindow() -- check the Win32 version - * glutPopWindow() -- check the Win32 version - */ - - -extern void fgPlatformSetWindow ( SFG_Window *window ); -extern void fgPlatformOpenWindow( SFG_Window* window, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isSubWindow ); -extern void fgPlatformCloseWindow( SFG_Window* window ); -extern void fgPlatformGlutShowWindow( void ); -extern void fgPlatformGlutHideWindow( void ); -extern void fgPlatformGlutIconifyWindow( void ); -extern void fgPlatformGlutSetWindowTitle( const char* title ); -extern void fgPlatformGlutSetIconTitle( const char* title ); -extern void fgPlatformGlutPositionWindow( int x, int y ); -extern void fgPlatformGlutPushWindow( void ); -extern void fgPlatformGlutPopWindow( void ); -extern void fgPlatformGlutFullScreen( SFG_Window *win ); -extern void fgPlatformGlutLeaveFullScreen( SFG_Window *win ); -extern void fgPlatformGlutFullScreenToggle( SFG_Window *win ); - - -/* -- PRIVATE FUNCTIONS ---------------------------------------------------- */ - -int fghIsLegacyContextVersionRequested( void ) -{ - return fgState.MajorVersion < 2 || (fgState.MajorVersion == 2 && fgState.MinorVersion <= 1); -} - -int fghIsLegacyContextRequested( void ) -{ - return fghIsLegacyContextVersionRequested() && - fgState.ContextFlags == 0 && - fgState.ContextProfile == 0; -} - -int fghNumberOfAuxBuffersRequested( void ) -{ - if ( fgState.DisplayMode & GLUT_AUX4 ) { - return 4; - } - if ( fgState.DisplayMode & GLUT_AUX3 ) { - return 3; - } - if ( fgState.DisplayMode & GLUT_AUX2 ) { - return 2; - } - if ( fgState.DisplayMode & GLUT_AUX1 ) { /* NOTE: Same as GLUT_AUX! */ - return fgState.AuxiliaryBufferNumber; - } - return 0; -} - -int fghMapBit( int mask, int from, int to ) -{ - return ( mask & from ) ? to : 0; - -} - -void fghContextCreationError( void ) -{ - fgError( "Unable to create OpenGL %d.%d context (flags %x, profile %x)", - fgState.MajorVersion, fgState.MinorVersion, fgState.ContextFlags, - fgState.ContextProfile ); -} - - -/* -- SYSTEM-DEPENDENT PRIVATE FUNCTIONS ------------------------------------ */ - -/* - * Sets the OpenGL context and the fgStructure "Current Window" pointer to - * the window structure passed in. - */ -void fgSetWindow ( SFG_Window *window ) -{ - fgPlatformSetWindow ( window ); - - fgStructure.CurrentWindow = window; -} - -/* - * Opens a window. Requires a SFG_Window object created and attached - * to the freeglut structure. OpenGL context is created here. - */ -void fgOpenWindow( SFG_Window* window, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isSubWindow ) -{ - -LOGI("tracer********************101"); - fgPlatformOpenWindow( window, title, - positionUse, x, y, - sizeUse, w, h, - gameMode, isSubWindow ); -LOGI("tracer********************102"); - - fgSetWindow( window ); -LOGI("tracer********************103"); - - window->Window.DoubleBuffered = - ( fgState.DisplayMode & GLUT_DOUBLE ) ? 1 : 0; - -LOGI("tracer********************104"); - -#ifndef EGL_VERSION_1_0 /* No glDrawBuffer/glReadBuffer in GLES */ - if ( ! window->Window.DoubleBuffered ) - { - glDrawBuffer ( GL_FRONT ); - glReadBuffer ( GL_FRONT ); - } -#endif - -LOGI("tracer********************105"); - -} - -/* - * Closes a window, destroying the frame and OpenGL context - */ -void fgCloseWindow( SFG_Window* window ) -{ - /* if we're in gamemode and we're closing the gamemode window, - * call glutLeaveGameMode first to make sure the gamemode is - * properly closed before closing the window - */ - if (fgStructure.GameModeWindow != NULL && fgStructure.GameModeWindow->ID==window->ID) - glutLeaveGameMode(); - - fgPlatformCloseWindow ( window ); -} - - -/* -- INTERFACE FUNCTIONS -------------------------------------------------- */ - -/* - * Creates a new top-level freeglut window - */ -int FGAPIENTRY glutCreateWindow( const char* title ) -{ - /* XXX GLUT does not exit; it simply calls "glutInit" quietly if the - * XXX application has not already done so. The "freeglut" community - * XXX decided not to go this route (freeglut-developer e-mail from - * XXX Steve Baker, 12/16/04, 4:22 PM CST, "Re: [Freeglut-developer] - * XXX Desired 'freeglut' behaviour when there is no current window" - */ -LOGI("creatwindow********************1"); - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateWindow" ); -LOGI("creatwindow********************2"); - -int mywindow; - -mywindow=fgCreateWindow( NULL, title, fgState.Position.Use, - fgState.Position.X, fgState.Position.Y, - fgState.Size.Use, fgState.Size.X, fgState.Size.Y, - GL_FALSE, GL_FALSE )->ID; - -LOGI("creatwindow********************3"); - - return mywindow; - - -} - -/* - * This function creates a sub window. - */ -int FGAPIENTRY glutCreateSubWindow( int parentID, int x, int y, int w, int h ) -{ - int ret = 0; - SFG_Window* window = NULL; - SFG_Window* parent = NULL; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutCreateSubWindow" ); - parent = fgWindowByID( parentID ); - freeglut_return_val_if_fail( parent != NULL, 0 ); - if ( x < 0 ) - { - x = parent->State.Width + x ; - if ( w >= 0 ) x -= w ; - } - - if ( w < 0 ) w = parent->State.Width - x + w ; - if ( w < 0 ) - { - x += w ; - w = -w ; - } - - if ( y < 0 ) - { - y = parent->State.Height + y ; - if ( h >= 0 ) y -= h ; - } - - if ( h < 0 ) h = parent->State.Height - y + h ; - if ( h < 0 ) - { - y += h ; - h = -h ; - } - - window = fgCreateWindow( parent, "", GL_TRUE, x, y, GL_TRUE, w, h, GL_FALSE, GL_FALSE ); - ret = window->ID; - - return ret; -} - -/* - * Destroys a window and all of its subwindows - */ -void FGAPIENTRY glutDestroyWindow( int windowID ) -{ - SFG_Window* window; - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutDestroyWindow" ); - window = fgWindowByID( windowID ); - freeglut_return_if_fail( window != NULL ); - { - fgExecutionState ExecState = fgState.ExecState; - fgAddToWindowDestroyList( window ); - fgState.ExecState = ExecState; - } -} - -/* - * This function selects the specified window as the current window - */ -void FGAPIENTRY glutSetWindow( int ID ) -{ - SFG_Window* window = NULL; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindow" ); - if( fgStructure.CurrentWindow != NULL ) - if( fgStructure.CurrentWindow->ID == ID ) - return; - - window = fgWindowByID( ID ); - if( window == NULL ) - { - fgWarning( "glutSetWindow(): window ID %d not found!", ID ); - return; - } - - fgSetWindow( window ); -} - -/* - * This function returns the ID number of the current window, 0 if none exists - */ -int FGAPIENTRY glutGetWindow( void ) -{ - SFG_Window *win = fgStructure.CurrentWindow; - /* - * Since GLUT did not throw an error if this function was called without a prior call to - * "glutInit", this function shouldn't do so here. Instead let us return a zero. - * See Feature Request "[ 1307049 ] glutInit check". - */ - if ( ! fgState.Initialised ) - return 0; - - while ( win && win->IsMenu ) - win = win->Parent; - return win ? win->ID : 0; -} - -/* - * This function makes the current window visible - */ -void FGAPIENTRY glutShowWindow( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutShowWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutShowWindow" ); - - fgPlatformGlutShowWindow (); - - fgStructure.CurrentWindow->State.Redisplay = GL_TRUE; -} - -/* - * This function hides the current window - */ -void FGAPIENTRY glutHideWindow( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutHideWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutHideWindow" ); - - fgPlatformGlutHideWindow (); - - fgStructure.CurrentWindow->State.Redisplay = GL_FALSE; -} - -/* - * Iconify the current window (top-level windows only) - */ -void FGAPIENTRY glutIconifyWindow( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutIconifyWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutIconifyWindow" ); - - fgStructure.CurrentWindow->State.Visible = GL_FALSE; - - fgPlatformGlutIconifyWindow (); - - fgStructure.CurrentWindow->State.Redisplay = GL_FALSE; -} - -/* - * Set the current window's title - */ -void FGAPIENTRY glutSetWindowTitle( const char* title ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowTitle" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowTitle" ); - if( ! fgStructure.CurrentWindow->Parent ) - { - fgPlatformGlutSetWindowTitle ( title ); - } -} - -/* - * Set the current window's iconified title - */ -void FGAPIENTRY glutSetIconTitle( const char* title ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetIconTitle" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetIconTitle" ); - - if( ! fgStructure.CurrentWindow->Parent ) - { - fgPlatformGlutSetIconTitle ( title ); - } -} - -/* - * Change the current window's size - */ -void FGAPIENTRY glutReshapeWindow( int width, int height ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutReshapeWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutReshapeWindow" ); - - if (glutGet(GLUT_FULL_SCREEN)) - { - /* Leave full screen state before resizing. */ - glutLeaveFullScreen(); - } - - fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE; - fgStructure.CurrentWindow->State.Width = width ; - fgStructure.CurrentWindow->State.Height = height; -} - -/* - * Change the current window's position - */ -void FGAPIENTRY glutPositionWindow( int x, int y ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPositionWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPositionWindow" ); - - if (glutGet(GLUT_FULL_SCREEN)) - { - /* Leave full screen state before moving. */ - glutLeaveFullScreen(); - } - - fgPlatformGlutPositionWindow ( x, y ); -} - -/* - * Lowers the current window (by Z order change) - */ -void FGAPIENTRY glutPushWindow( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPushWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPushWindow" ); - - fgPlatformGlutPushWindow (); -} - -/* - * Raises the current window (by Z order change) - */ -void FGAPIENTRY glutPopWindow( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutPopWindow" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutPopWindow" ); - - fgPlatformGlutPopWindow (); -} - -/* - * Resize the current window so that it fits the whole screen - */ -void FGAPIENTRY glutFullScreen( void ) -{ - SFG_Window *win; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreen" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreen" ); - - win = fgStructure.CurrentWindow; - - if (win->Parent) - { - /* Child windows cannot be made fullscreen, consistent with GLUT's behavior - * Also, what would it mean for a child window to be fullscreen, given that it - * is confined to its parent? - */ - fgWarning("glutFullScreen called on a child window, ignoring..."); - return; - } - else if (fgStructure.GameModeWindow != NULL && fgStructure.GameModeWindow->ID==win->ID) - { - /* Ignore fullscreen call on GameMode window, those are always fullscreen already */ - return; - } - - fgPlatformGlutFullScreen ( win ); -} - -/* - * If we are fullscreen, resize the current window back to its original size - */ -void FGAPIENTRY glutLeaveFullScreen( void ) -{ - SFG_Window *win; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreen" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreen" ); - - win = fgStructure.CurrentWindow; - - fgPlatformGlutLeaveFullScreen ( win ); -} - -/* - * Toggle the window's full screen state. - */ -void FGAPIENTRY glutFullScreenToggle( void ) -{ - SFG_Window *win; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutFullScreenToggle" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutFullScreenToggle" ); - - win = fgStructure.CurrentWindow; - - fgPlatformGlutFullScreenToggle ( win ); -} - -/* - * A.Donev: Set and retrieve the window's user data - */ -void* FGAPIENTRY glutGetWindowData( void ) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutGetWindowData" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutGetWindowData" ); - return fgStructure.CurrentWindow->UserData; -} - -void FGAPIENTRY glutSetWindowData(void* data) -{ - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutSetWindowData" ); - FREEGLUT_EXIT_IF_NO_WINDOW ( "glutSetWindowData" ); - fgStructure.CurrentWindow->UserData = data; -} - -/*** END OF FILE ***/ diff --git a/internal/c/parts/core/android_core/src/freeglutdll.def.in b/internal/c/parts/core/android_core/src/freeglutdll.def.in deleted file mode 100644 index c587e3ae9..000000000 --- a/internal/c/parts/core/android_core/src/freeglutdll.def.in +++ /dev/null @@ -1,155 +0,0 @@ -LIBRARY freeglut -VERSION @VERSION_MAJOR@.@VERSION_MINOR@ -EXPORTS - glutInit - glutInitWindowPosition - glutInitWindowSize - glutInitDisplayMode - glutInitDisplayString - glutMainLoop - glutMainLoopEvent - glutLeaveMainLoop - glutCreateWindow - glutCreateSubWindow - glutDestroyWindow - glutSetWindow - glutGetWindow - glutSetWindowData - glutGetWindowData - glutSetWindowTitle - glutSetIconTitle - glutReshapeWindow - glutPositionWindow - glutShowWindow - glutHideWindow - glutIconifyWindow - glutPushWindow - glutPopWindow - glutFullScreen - glutPostWindowRedisplay - glutPostRedisplay - glutSwapBuffers - glutWarpPointer - glutSetCursor - glutEstablishOverlay - glutRemoveOverlay - glutUseLayer - glutPostOverlayRedisplay - glutPostWindowOverlayRedisplay - glutShowOverlay - glutHideOverlay - glutCreateMenu - glutDestroyMenu - glutGetMenu - glutSetMenu - glutGetMenuData - glutSetMenuData - glutAddMenuEntry - glutAddSubMenu - glutChangeToMenuEntry - glutChangeToSubMenu - glutRemoveMenuItem - glutAttachMenu - glutDetachMenu - glutTimerFunc - glutIdleFunc - glutKeyboardFunc - glutSpecialFunc - glutReshapeFunc - glutVisibilityFunc - glutDisplayFunc - glutMouseFunc - glutMouseWheelFunc - glutMotionFunc - glutPassiveMotionFunc - glutEntryFunc - glutCloseFunc - glutWMCloseFunc - glutKeyboardUpFunc - glutSpecialUpFunc - glutJoystickFunc - glutMenuStateFunc - glutMenuStatusFunc - glutMenuDestroyFunc - glutOverlayDisplayFunc - glutWindowStatusFunc - glutSpaceballMotionFunc - glutSpaceballRotateFunc - glutSpaceballButtonFunc - glutButtonBoxFunc - glutDialsFunc - glutTabletMotionFunc - glutTabletButtonFunc - glutSetOption - glutGet - glutDeviceGet - glutGetModifiers - glutLayerGet - glutBitmapCharacter - glutBitmapWidth - glutStrokeCharacter - glutStrokeWidth - glutBitmapLength - glutStrokeLength - glutBitmapHeight - glutStrokeHeight - glutBitmapString - glutStrokeString - glutWireCube - glutSolidCube - glutWireSphere - glutSolidSphere - glutWireCone - glutSolidCone - glutWireTorus - glutSolidTorus - glutWireDodecahedron - glutSolidDodecahedron - glutWireOctahedron - glutSolidOctahedron - glutWireTetrahedron - glutSolidTetrahedron - glutWireIcosahedron - glutSolidIcosahedron - glutWireRhombicDodecahedron - glutSolidRhombicDodecahedron - glutWireSierpinskiSponge - glutSolidSierpinskiSponge - glutWireTeapot - glutSolidTeapot - glutWireCylinder - glutSolidCylinder - glutGameModeString - glutEnterGameMode - glutLeaveGameMode - glutGameModeGet - glutVideoResizeGet - glutSetupVideoResizing - glutStopVideoResizing - glutVideoResize - glutVideoPan - glutSetColor - glutGetColor - glutCopyColormap - glutIgnoreKeyRepeat - glutSetKeyRepeat - glutForceJoystickFunc - glutExtensionSupported - glutReportErrors - glutGetProcAddress - glutExit - glutFullScreenToggle - glutLeaveFullScreen - glutGetModeValues - glutInitContextFlags - glutInitContextVersion - glutInitContextProfile - glutInitErrorFunc - glutInitWarningFunc - __glutInitWithExit - __glutCreateWindowWithExit - __glutCreateMenuWithExit - glutMultiButtonFunc - glutMultiEntryFunc - glutMultiMotionFunc - glutMultiPassiveFunc diff --git a/internal/c/parts/core/android_core/src/mswin/fg_cursor_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_cursor_mswin.c deleted file mode 100644 index 7ae0461bb..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_cursor_mswin.c +++ /dev/null @@ -1,115 +0,0 @@ -/* - * freeglut_cursor_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Thu Jan 19, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - - - -void fgPlatformSetCursor ( SFG_Window *window, int cursorID ) -{ - /* - * Joe Krahn is re-writing the following code. - */ - /* Set the cursor AND change it for this window class. */ -#if !defined(__MINGW64__) && _MSC_VER <= 1200 -# define MAP_CURSOR(a,b) \ - case a: \ - SetCursor( LoadCursor( NULL, b ) ); \ - SetClassLong( window->Window.Handle, \ - GCL_HCURSOR, \ - ( LONG )LoadCursor( NULL, b ) ); \ - break; - /* Nuke the cursor AND change it for this window class. */ -# define ZAP_CURSOR(a,b) \ - case a: \ - SetCursor( NULL ); \ - SetClassLong( window->Window.Handle, \ - GCL_HCURSOR, ( LONG )NULL ); \ - break; -#else -# define MAP_CURSOR(a,b) \ - case a: \ - SetCursor( LoadCursor( NULL, b ) ); \ - SetClassLongPtr( window->Window.Handle, \ - GCLP_HCURSOR, \ - ( LONG )( LONG_PTR )LoadCursor( NULL, b ) ); \ - break; - /* Nuke the cursor AND change it for this window class. */ -# define ZAP_CURSOR(a,b) \ - case a: \ - SetCursor( NULL ); \ - SetClassLongPtr( window->Window.Handle, \ - GCLP_HCURSOR, ( LONG )( LONG_PTR )NULL ); \ - break; -#endif - - switch( cursorID ) - { - MAP_CURSOR( GLUT_CURSOR_RIGHT_ARROW, IDC_ARROW ); - MAP_CURSOR( GLUT_CURSOR_LEFT_ARROW, IDC_ARROW ); - MAP_CURSOR( GLUT_CURSOR_INFO, IDC_HELP ); - MAP_CURSOR( GLUT_CURSOR_DESTROY, IDC_CROSS ); - MAP_CURSOR( GLUT_CURSOR_HELP, IDC_HELP ); - MAP_CURSOR( GLUT_CURSOR_CYCLE, IDC_SIZEALL ); - MAP_CURSOR( GLUT_CURSOR_SPRAY, IDC_CROSS ); - MAP_CURSOR( GLUT_CURSOR_WAIT, IDC_WAIT ); - MAP_CURSOR( GLUT_CURSOR_TEXT, IDC_IBEAM ); - MAP_CURSOR( GLUT_CURSOR_CROSSHAIR, IDC_CROSS ); - MAP_CURSOR( GLUT_CURSOR_UP_DOWN, IDC_SIZENS ); - MAP_CURSOR( GLUT_CURSOR_LEFT_RIGHT, IDC_SIZEWE ); - MAP_CURSOR( GLUT_CURSOR_TOP_SIDE, IDC_ARROW ); /* XXX ToDo */ - MAP_CURSOR( GLUT_CURSOR_BOTTOM_SIDE, IDC_ARROW ); /* XXX ToDo */ - MAP_CURSOR( GLUT_CURSOR_LEFT_SIDE, IDC_ARROW ); /* XXX ToDo */ - MAP_CURSOR( GLUT_CURSOR_RIGHT_SIDE, IDC_ARROW ); /* XXX ToDo */ - MAP_CURSOR( GLUT_CURSOR_TOP_LEFT_CORNER, IDC_SIZENWSE ); - MAP_CURSOR( GLUT_CURSOR_TOP_RIGHT_CORNER, IDC_SIZENESW ); - MAP_CURSOR( GLUT_CURSOR_BOTTOM_RIGHT_CORNER, IDC_SIZENWSE ); - MAP_CURSOR( GLUT_CURSOR_BOTTOM_LEFT_CORNER, IDC_SIZENESW ); - MAP_CURSOR( GLUT_CURSOR_INHERIT, IDC_ARROW ); /* XXX ToDo */ - ZAP_CURSOR( GLUT_CURSOR_NONE, NULL ); - MAP_CURSOR( GLUT_CURSOR_FULL_CROSSHAIR, IDC_CROSS ); /* XXX ToDo */ - - default: - fgError( "Unknown cursor type: %d", cursorID ); - break; - } -} - - -void fgPlatformWarpPointer ( int x, int y ) -{ - POINT coords; - coords.x = x; - coords.y = y; - - /* ClientToScreen() translates {coords} for us. */ - ClientToScreen( fgStructure.CurrentWindow->Window.Handle, &coords ); - SetCursorPos( coords.x, coords.y ); -} - - diff --git a/internal/c/parts/core/android_core/src/mswin/fg_display_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_display_mswin.c deleted file mode 100644 index 2ebb581c9..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_display_mswin.c +++ /dev/null @@ -1,37 +0,0 @@ -/* - * freeglut_display_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sat Jan 28, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - - - - -void fgPlatformGlutSwapBuffers( SFG_PlatformDisplay *pDisplayPtr, SFG_Window* CurrentWindow ) -{ - SwapBuffers( CurrentWindow->Window.pContext.Device ); -} diff --git a/internal/c/parts/core/android_core/src/mswin/fg_ext_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_ext_mswin.c deleted file mode 100644 index f05f27910..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_ext_mswin.c +++ /dev/null @@ -1,56 +0,0 @@ -/* - * freeglut_ext_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Thu Jan 19, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -GLUTproc fgPlatformGetGLUTProcAddress( const char* procName ) -{ -#if !defined(_WIN32_WCE) - /* optimization: quick initial check */ - if( strncmp( procName, "glut", 4 ) != 0 ) - return NULL; - -#define CHECK_NAME(x) if( strcmp( procName, #x ) == 0) return (GLUTproc)x; - CHECK_NAME(glutJoystickFunc); - CHECK_NAME(glutForceJoystickFunc); - CHECK_NAME(glutGameModeString); - CHECK_NAME(glutEnterGameMode); - CHECK_NAME(glutLeaveGameMode); - CHECK_NAME(glutGameModeGet); -#undef CHECK_NAME -#endif /* !defined(_WIN32_WCE) */ - - return NULL; -} - - - -SFG_Proc fgPlatformGetProcAddress( const char *procName ) -{ - return (SFG_Proc)wglGetProcAddress( ( LPCSTR )procName ); -} diff --git a/internal/c/parts/core/android_core/src/mswin/fg_gamemode_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_gamemode_mswin.c deleted file mode 100644 index 49565a9cb..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_gamemode_mswin.c +++ /dev/null @@ -1,153 +0,0 @@ -/* - * freeglut_gamemode_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Thu Jan 19, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -/* - * Remembers the current visual settings, so that - * we can change them and restore later... - */ -void fgPlatformRememberState( void ) -{ - /* Grab the current desktop settings... */ - - /* hack to get around my stupid cross-gcc headers */ - #define FREEGLUT_ENUM_CURRENT_SETTINGS -1 - - EnumDisplaySettings( fgDisplay.pDisplay.DisplayName, FREEGLUT_ENUM_CURRENT_SETTINGS, - &fgDisplay.pDisplay.DisplayMode ); - - /* Make sure we will be restoring all settings needed */ - fgDisplay.pDisplay.DisplayMode.dmFields |= - DM_PELSWIDTH | DM_PELSHEIGHT | DM_BITSPERPEL | DM_DISPLAYFREQUENCY; - -} - -/* - * Restores the previously remembered visual settings - */ -void fgPlatformRestoreState( void ) -{ - /* Restore the previously remembered desktop display settings */ - ChangeDisplaySettingsEx( fgDisplay.pDisplay.DisplayName,&fgDisplay.pDisplay.DisplayMode, 0,0,0 ); -} - - - - -/* - * Changes the current display mode to match user's settings - */ -GLboolean fgPlatformChangeDisplayMode( GLboolean haveToTest ) -{ - GLboolean success = GL_FALSE; - DEVMODE devMode; - char *fggmstr = NULL; - char displayMode[300]; - - success = GL_FALSE; - - EnumDisplaySettings( fgDisplay.pDisplay.DisplayName, -1, &devMode ); - devMode.dmFields = 0; - - if (fgState.GameModeSize.X!=-1) - { - devMode.dmPelsWidth = fgState.GameModeSize.X; - devMode.dmFields |= DM_PELSWIDTH; - } - if (fgState.GameModeSize.Y!=-1) - { - devMode.dmPelsHeight = fgState.GameModeSize.Y; - devMode.dmFields |= DM_PELSHEIGHT; - } - if (fgState.GameModeDepth!=-1) - { - devMode.dmBitsPerPel = fgState.GameModeDepth; - devMode.dmFields |= DM_BITSPERPEL; - } - if (fgState.GameModeRefresh!=-1) - { - devMode.dmDisplayFrequency = fgState.GameModeRefresh; - devMode.dmFields |= DM_DISPLAYFREQUENCY; - } - - switch ( ChangeDisplaySettingsEx(fgDisplay.pDisplay.DisplayName, &devMode, NULL, haveToTest ? CDS_TEST : CDS_FULLSCREEN , NULL) ) - { - case DISP_CHANGE_SUCCESSFUL: - success = GL_TRUE; - - if (!haveToTest) - { - /* update vars in case if windows switched to proper mode */ - EnumDisplaySettings( fgDisplay.pDisplay.DisplayName, FREEGLUT_ENUM_CURRENT_SETTINGS, &devMode ); - fgState.GameModeSize.X = devMode.dmPelsWidth; - fgState.GameModeSize.Y = devMode.dmPelsHeight; - fgState.GameModeDepth = devMode.dmBitsPerPel; - fgState.GameModeRefresh = devMode.dmDisplayFrequency; - } - break; - case DISP_CHANGE_RESTART: - fggmstr = "The computer must be restarted for the graphics mode to work."; - break; - case DISP_CHANGE_BADFLAGS: - fggmstr = "An invalid set of flags was passed in."; - break; - case DISP_CHANGE_BADPARAM: - fggmstr = "An invalid parameter was passed in. This can include an invalid flag or combination of flags."; - break; - case DISP_CHANGE_FAILED: - fggmstr = "The display driver failed the specified graphics mode."; - break; - case DISP_CHANGE_BADMODE: - fggmstr = "The graphics mode is not supported."; - break; - default: - fggmstr = "Unknown error in graphics mode???"; /* dunno if it is possible,MSDN does not mention any other error */ - break; - } - - if ( !success ) - { - /* I'd rather get info whats going on in my program than wonder about */ - /* magic happenings behind my back, its lib for devels at last ;) */ - - /* append display mode to error to make things more informative */ - sprintf(displayMode,"%s Problem with requested mode: %ix%i:%i@%i", fggmstr, devMode.dmPelsWidth, devMode.dmPelsHeight, devMode.dmBitsPerPel, devMode.dmDisplayFrequency); - fgWarning(displayMode); - } - - return success; -} - -void fgPlatformEnterGameMode( void ) -{ -} - -void fgPlatformLeaveGameMode( void ) -{ -} diff --git a/internal/c/parts/core/android_core/src/mswin/fg_init_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_init_mswin.c deleted file mode 100644 index 2c8fb98f0..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_init_mswin.c +++ /dev/null @@ -1,176 +0,0 @@ -/* - * freeglut_init_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Thu Jan 19, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "../fg_internal.h" - - - -extern LRESULT CALLBACK fgPlatformWindowProc( HWND hWnd, UINT uMsg, - WPARAM wParam, LPARAM lParam ); - - -/* - * A call to this function should initialize all the display stuff... - */ -void fgPlatformInitialize( const char* displayName ) -{ - WNDCLASS wc; - ATOM atom; - - /* What we need to do is to initialize the fgDisplay global structure here. */ - fgDisplay.pDisplay.Instance = GetModuleHandle( NULL ); - fgDisplay.pDisplay.DisplayName= displayName ? strdup(displayName) : 0 ; - atom = GetClassInfo( fgDisplay.pDisplay.Instance, _T("FREEGLUT"), &wc ); - - if( atom == 0 ) - { - ZeroMemory( &wc, sizeof(WNDCLASS) ); - - /* - * Each of the windows should have its own device context, and we - * want redraw events during Vertical and Horizontal Resizes by - * the user. - * - * XXX Old code had "| CS_DBCLCKS" commented out. Plans for the - * XXX future? Dead-end idea? - */ - wc.lpfnWndProc = fgPlatformWindowProc; - wc.cbClsExtra = 0; - wc.cbWndExtra = 0; - wc.hInstance = fgDisplay.pDisplay.Instance; - wc.hIcon = LoadIcon( fgDisplay.pDisplay.Instance, _T("GLUT_ICON") ); - -#if defined(_WIN32_WCE) - wc.style = CS_HREDRAW | CS_VREDRAW; -#else - wc.style = CS_OWNDC | CS_HREDRAW | CS_VREDRAW; - if (!wc.hIcon) - wc.hIcon = LoadIcon( NULL, IDI_WINLOGO ); -#endif - - wc.hCursor = LoadCursor( NULL, IDC_ARROW ); - wc.hbrBackground = NULL; - wc.lpszMenuName = NULL; - wc.lpszClassName = _T("FREEGLUT"); - - /* Register the window class */ - atom = RegisterClass( &wc ); - FREEGLUT_INTERNAL_ERROR_EXIT ( atom, "Window Class Not Registered", "fgPlatformInitialize" ); - } - - /* The screen dimensions can be obtained via GetSystemMetrics() calls */ - fgDisplay.ScreenWidth = GetSystemMetrics( SM_CXSCREEN ); - fgDisplay.ScreenHeight = GetSystemMetrics( SM_CYSCREEN ); - - { - HWND desktop = GetDesktopWindow( ); - HDC context = GetDC( desktop ); - - fgDisplay.ScreenWidthMM = GetDeviceCaps( context, HORZSIZE ); - fgDisplay.ScreenHeightMM = GetDeviceCaps( context, VERTSIZE ); - - ReleaseDC( desktop, context ); - } - /* If we have a DisplayName try to use it for metrics */ - if( fgDisplay.pDisplay.DisplayName ) - { - HDC context = CreateDC(fgDisplay.pDisplay.DisplayName,0,0,0); - if( context ) - { - fgDisplay.ScreenWidth = GetDeviceCaps( context, HORZRES ); - fgDisplay.ScreenHeight = GetDeviceCaps( context, VERTRES ); - fgDisplay.ScreenWidthMM = GetDeviceCaps( context, HORZSIZE ); - fgDisplay.ScreenHeightMM = GetDeviceCaps( context, VERTSIZE ); - DeleteDC(context); - } - else - fgWarning("fgPlatformInitialize: " - "CreateDC failed, Screen size info may be incorrect\n" - "This is quite likely caused by a bad '-display' parameter"); - - } - /* Set the timer granularity to 1 ms */ - timeBeginPeriod ( 1 ); - - - fgState.Initialised = GL_TRUE; - - /* Avoid registering atexit callback on Win32 as it can result in an - * access violation due to calling into a module which has been - * unloaded. - * Any cleanup isn't needed on Windows anyway, the OS takes care of it. - * see: http://blogs.msdn.com/b/oldnewthing/archive/2012/01/05/10253268.aspx - */ -/* atexit(fgDeinitialize); */ - - /* InputDevice uses GlutTimerFunc(), so fgState.Initialised must be TRUE */ - fgInitialiseInputDevices(); -} - - - -/* Platform-Specific Deinitialization Functions: */ -extern void fghCloseInputDevices ( void ); - -void fgPlatformDeinitialiseInputDevices ( void ) -{ -#if !defined(_WIN32_WCE) - fghCloseInputDevices (); -#endif /* !defined(_WIN32_WCE) */ - fgState.JoysticksInitialised = GL_FALSE; - fgState.InputDevsInitialised = GL_FALSE; -} - -void fgPlatformCloseDisplay ( void ) -{ - if( fgDisplay.pDisplay.DisplayName ) - { - free( fgDisplay.pDisplay.DisplayName ); - fgDisplay.pDisplay.DisplayName = NULL; - } - - /* Reset the timer granularity */ - timeEndPeriod ( 1 ); -} - -void fgPlatformDestroyContext ( SFG_PlatformDisplay pDisplay, SFG_WindowContextType MContext ) -{ - /* Do nothing -- this is required for X11 */ -} - -/* -- PLATFORM-SPECIFIC INTERFACE FUNCTION -------------------------------------------------- */ - -void (__cdecl *__glutExitFunc)( int return_value ) = NULL; - -void FGAPIENTRY __glutInitWithExit( int *pargc, char **argv, void (__cdecl *exit_function)(int) ) -{ - __glutExitFunc = exit_function; - glutInit(pargc, argv); -} - diff --git a/internal/c/parts/core/android_core/src/mswin/fg_input_devices_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_input_devices_mswin.c deleted file mode 100644 index 17c235736..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_input_devices_mswin.c +++ /dev/null @@ -1,127 +0,0 @@ -/* - * freeglut_input_devices_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sat Jan 21, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -#include -#include - -typedef struct { - HANDLE fh; - COMMTIMEOUTS timeouts_save; - DCB dcb_save; -} SERIALPORT; - -/* Serial Port Prototypes */ -SERIALPORT *serial_open ( const char *device ); -void serial_close ( SERIALPORT *port ); -int serial_getchar ( SERIALPORT *port ); -int serial_putchar ( SERIALPORT *port, unsigned char ch ); -void serial_flush ( SERIALPORT *port ); - - -void fgPlatformRegisterDialDevice ( const char *dial_device ) -{ - if (!dial_device){ - static char devname[256]; - DWORD size=sizeof(devname); - DWORD type = REG_SZ; - HKEY key; - if (RegOpenKeyA(HKEY_LOCAL_MACHINE,"SOFTWARE\\FreeGLUT",&key)==ERROR_SUCCESS) { - if (RegQueryValueExA(key,"DialboxSerialPort",NULL,&type,(LPBYTE)devname,&size)==ERROR_SUCCESS){ - dial_device=devname; - } - RegCloseKey(key); - } - } -} - - -/* Serial Port Functions */ -SERIALPORT *serial_open(const char *device){ - HANDLE fh; - DCB dcb={sizeof(DCB)}; - COMMTIMEOUTS timeouts; - SERIALPORT *port; - - fh = CreateFile(device,GENERIC_READ|GENERIC_WRITE,0,NULL, - OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL); - if (!fh) return NULL; - - port = malloc(sizeof(SERIALPORT)); - ZeroMemory(port, sizeof(SERIALPORT)); - port->fh = fh; - - /* save current port settings */ - GetCommState(fh,&port->dcb_save); - GetCommTimeouts(fh,&port->timeouts_save); - - dcb.DCBlength=sizeof(DCB); - BuildCommDCB("96,n,8,1",&dcb); - SetCommState(fh,&dcb); - - ZeroMemory(&timeouts,sizeof(timeouts)); - timeouts.ReadTotalTimeoutConstant=1; - timeouts.WriteTotalTimeoutConstant=1; - SetCommTimeouts(fh,&timeouts); - - serial_flush(port); - - return port; -} - -void serial_close(SERIALPORT *port){ - if (port){ - /* restore old port settings */ - SetCommState(port->fh,&port->dcb_save); - SetCommTimeouts(port->fh,&port->timeouts_save); - CloseHandle(port->fh); - free(port); - } -} - -int serial_getchar(SERIALPORT *port){ - DWORD n; - unsigned char ch; - if (!port) return EOF; - if (!ReadFile(port->fh,&ch,1,&n,NULL)) return EOF; - if (n==1) return ch; - return EOF; -} - -int serial_putchar(SERIALPORT *port, unsigned char ch){ - DWORD n; - if (!port) return 0; - return WriteFile(port->fh,&ch,1,&n,NULL); -} - -void serial_flush ( SERIALPORT *port ) -{ - FlushFileBuffers(port->fh); -} - diff --git a/internal/c/parts/core/android_core/src/mswin/fg_internal_mswin.h b/internal/c/parts/core/android_core/src/mswin/fg_internal_mswin.h deleted file mode 100644 index f0b0f54a4..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_internal_mswin.h +++ /dev/null @@ -1,126 +0,0 @@ -/* - * freeglut_internal_mswin.h - * - * The freeglut library private include file. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Thu Jan 19, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef FREEGLUT_INTERNAL_MSWIN_H -#define FREEGLUT_INTERNAL_MSWIN_H - - -/* All Win32 headers depend on the huge windows.h recursive include. - * Note: Lower-case header names are used, for best cross-platform - * compatibility. - */ -#if !defined(_WIN32_WCE) -# include -# include -# include -/* CYGWIN does not have tchar.h, but has TEXT(x), defined in winnt.h. */ -# ifndef __CYGWIN__ -# include -# else -# define _TEXT(x) TEXT(x) -# define _T(x) TEXT(x) -# endif - -#endif - - -#ifndef HAVE_VFPRINTF -#define HAVE_VFPRINTF 1 -#endif - -/* MinGW may lack a prototype for ChangeDisplaySettingsEx() (depending on the version?) */ -#if !defined(ChangeDisplaySettingsEx) -LONG WINAPI ChangeDisplaySettingsExA(LPCSTR,LPDEVMODEA,HWND,DWORD,LPVOID); -LONG WINAPI ChangeDisplaySettingsExW(LPCWSTR,LPDEVMODEW,HWND,DWORD,LPVOID); -# ifdef UNICODE -# define ChangeDisplaySettingsEx ChangeDisplaySettingsExW -# else -# define ChangeDisplaySettingsEx ChangeDisplaySettingsExA -# endif -#endif - - -/* Structure Definitions */ - -typedef struct tagSFG_PlatformDisplay SFG_PlatformDisplay; -struct tagSFG_PlatformDisplay -{ - HINSTANCE Instance; /* The application's instance */ - DEVMODE DisplayMode; /* Desktop's display settings */ - char *DisplayName; /* Display name for multi display support*/ -}; - -/* - * Make "freeglut" window handle and context types so that we don't need so - * much conditionally-compiled code later in the library. - */ -typedef HWND SFG_WindowHandleType; -typedef HGLRC SFG_WindowContextType; -typedef struct tagSFG_PlatformContext SFG_PlatformContext; -struct tagSFG_PlatformContext -{ - HDC Device; /* The window's device context */ -}; - - -/* Window's state description. This structure should be kept portable. */ -typedef struct tagSFG_PlatformWindowState SFG_PlatformWindowState; -struct tagSFG_PlatformWindowState -{ - RECT OldRect; /* window rect - stored before the window is made fullscreen */ - DWORD OldStyle; /* window style - stored before the window is made fullscreen */ -}; - - - -/* Joystick-Specific Definitions */ -#if !defined(_WIN32_WCE) -# define _JS_MAX_AXES 8 -typedef struct tagSFG_PlatformJoystick SFG_PlatformJoystick; -struct tagSFG_PlatformJoystick -{ - JOYCAPS jsCaps; - JOYINFOEX js; - UINT js_id; -}; -#endif - - -/* Menu font and color definitions */ -#define FREEGLUT_MENU_FONT GLUT_BITMAP_8_BY_13 - -#define FREEGLUT_MENU_PEN_FORE_COLORS {0.0f, 0.0f, 0.0f, 1.0f} -#define FREEGLUT_MENU_PEN_BACK_COLORS {0.85f, 0.85f, 0.85f, 1.0f} -#define FREEGLUT_MENU_PEN_HFORE_COLORS {1.0f, 1.0f, 1.0f, 1.0f} -#define FREEGLUT_MENU_PEN_HBACK_COLORS {0.15f, 0.15f, 0.45f, 1.0f} - - -/* Function to be called on exit */ -extern void (__cdecl *__glutExitFunc)( int return_value ); - - -#endif /* FREEGLUT_INTERNAL_MSWIN_H */ diff --git a/internal/c/parts/core/android_core/src/mswin/fg_joystick_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_joystick_mswin.c deleted file mode 100644 index a782e5a16..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_joystick_mswin.c +++ /dev/null @@ -1,264 +0,0 @@ -/* - * freeglut_joystick_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sat Jan 28, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - - -#if !defined(_WIN32_WCE) -# include -# include -# include - - - - -void fgPlatformJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - MMRESULT status; - - status = joyGetPosEx( joy->pJoystick.js_id, &joy->pJoystick.js ); - - if ( status != JOYERR_NOERROR ) - { - joy->error = GL_TRUE; - return; - } - - if ( buttons ) - *buttons = joy->pJoystick.js.dwButtons; - - if ( axes ) - { - /* - * WARNING - Fall through case clauses!! - */ - switch ( joy->num_axes ) - { - case 8: - /* Generate two POV axes from the POV hat angle. - * Low 16 bits of js.dwPOV gives heading (clockwise from ahead) in - * hundredths of a degree, or 0xFFFF when idle. - */ - if ( ( joy->pJoystick.js.dwPOV & 0xFFFF ) == 0xFFFF ) - { - axes [ 6 ] = 0.0; - axes [ 7 ] = 0.0; - } - else - { - /* This is the contentious bit: how to convert angle to X/Y. - * wk: I know of no define for PI that we could use here: - * SG_PI would pull in sg, M_PI is undefined for MSVC - * But the accuracy of the value of PI is very unimportant at - * this point. - */ - float s = (float) sin ( ( joy->pJoystick.js.dwPOV & 0xFFFF ) * ( 0.01 * 3.1415926535f / 180.0f ) ); - float c = (float) cos ( ( joy->pJoystick.js.dwPOV & 0xFFFF ) * ( 0.01 * 3.1415926535f / 180.0f ) ); - - /* Convert to coordinates on a square so that North-East - * is (1,1) not (.7,.7), etc. - * s and c cannot both be zero so we won't divide by zero. - */ - if ( fabs ( s ) < fabs ( c ) ) - { - axes [ 6 ] = ( c < 0.0 ) ? -s/c : s/c ; - axes [ 7 ] = ( c < 0.0 ) ? -1.0f : 1.0f; - } - else - { - axes [ 6 ] = ( s < 0.0 ) ? -1.0f : 1.0f; - axes [ 7 ] = ( s < 0.0 ) ? -c/s : c/s ; - } - } - - case 6: axes[5] = (float) joy->pJoystick.js.dwVpos; - case 5: axes[4] = (float) joy->pJoystick.js.dwUpos; - case 4: axes[3] = (float) joy->pJoystick.js.dwRpos; - case 3: axes[2] = (float) joy->pJoystick.js.dwZpos; - case 2: axes[1] = (float) joy->pJoystick.js.dwYpos; - case 1: axes[0] = (float) joy->pJoystick.js.dwXpos; - } - } -} - - - -/* Inspired by - http://msdn.microsoft.com/archive/en-us/dnargame/html/msdn_sidewind3d.asp - */ -# if FREEGLUT_LIB_PRAGMAS -# pragma comment (lib, "advapi32.lib") -# endif - -static int fghJoystickGetOEMProductName ( SFG_Joystick* joy, char *buf, int buf_sz ) -{ - char buffer [ 256 ]; - - char OEMKey [ 256 ]; - - HKEY hKey; - DWORD dwcb; - LONG lr; - - if ( joy->error ) - return 0; - - /* Open .. MediaResources\CurrentJoystickSettings */ - _snprintf ( buffer, sizeof(buffer), "%s\\%s\\%s", - REGSTR_PATH_JOYCONFIG, joy->pJoystick.jsCaps.szRegKey, - REGSTR_KEY_JOYCURR ); - - lr = RegOpenKeyEx ( HKEY_LOCAL_MACHINE, buffer, 0, KEY_QUERY_VALUE, &hKey); - - if ( lr != ERROR_SUCCESS ) return 0; - - /* Get OEM Key name */ - dwcb = sizeof(OEMKey); - - /* JOYSTICKID1-16 is zero-based; registry entries for VJOYD are 1-based. */ - _snprintf ( buffer, sizeof(buffer), "Joystick%d%s", joy->pJoystick.js_id + 1, REGSTR_VAL_JOYOEMNAME ); - - lr = RegQueryValueEx ( hKey, buffer, 0, 0, (LPBYTE) OEMKey, &dwcb); - RegCloseKey ( hKey ); - - if ( lr != ERROR_SUCCESS ) return 0; - - /* Open OEM Key from ...MediaProperties */ - _snprintf ( buffer, sizeof(buffer), "%s\\%s", REGSTR_PATH_JOYOEM, OEMKey ); - - lr = RegOpenKeyEx ( HKEY_LOCAL_MACHINE, buffer, 0, KEY_QUERY_VALUE, &hKey ); - - if ( lr != ERROR_SUCCESS ) return 0; - - /* Get OEM Name */ - dwcb = buf_sz; - - lr = RegQueryValueEx ( hKey, REGSTR_VAL_JOYOEMNAME, 0, 0, (LPBYTE) buf, - &dwcb ); - RegCloseKey ( hKey ); - - if ( lr != ERROR_SUCCESS ) return 0; - - return 1; -} - - -void fgPlatformJoystickOpen( SFG_Joystick* joy ) -{ - int i = 0; - - joy->pJoystick.js.dwFlags = JOY_RETURNALL; - joy->pJoystick.js.dwSize = sizeof( joy->pJoystick.js ); - - memset( &joy->pJoystick.jsCaps, 0, sizeof( joy->pJoystick.jsCaps ) ); - - joy->error = - ( joyGetDevCaps( joy->pJoystick.js_id, &joy->pJoystick.jsCaps, sizeof( joy->pJoystick.jsCaps ) ) != - JOYERR_NOERROR ); - - if( joy->pJoystick.jsCaps.wNumAxes == 0 ) - { - joy->num_axes = 0; - joy->error = GL_TRUE; - } - else - { - /* Device name from jsCaps is often "Microsoft PC-joystick driver", - * at least for USB. Try to get the real name from the registry. - */ - if ( ! fghJoystickGetOEMProductName( joy, joy->name, - sizeof( joy->name ) ) ) - { - fgWarning( "JS: Failed to read joystick name from registry" ); - strncpy( joy->name, joy->pJoystick.jsCaps.szPname, sizeof( joy->name ) ); - } - - /* Windows joystick drivers may provide any combination of - * X,Y,Z,R,U,V,POV - not necessarily the first n of these. - */ - if( joy->pJoystick.jsCaps.wCaps & JOYCAPS_HASPOV ) - { - joy->num_axes = _JS_MAX_AXES; - joy->min[ 7 ] = -1.0; joy->max[ 7 ] = 1.0; /* POV Y */ - joy->min[ 6 ] = -1.0; joy->max[ 6 ] = 1.0; /* POV X */ - } - else - joy->num_axes = 6; - - joy->min[ 5 ] = ( float )joy->pJoystick.jsCaps.wVmin; - joy->max[ 5 ] = ( float )joy->pJoystick.jsCaps.wVmax; - joy->min[ 4 ] = ( float )joy->pJoystick.jsCaps.wUmin; - joy->max[ 4 ] = ( float )joy->pJoystick.jsCaps.wUmax; - joy->min[ 3 ] = ( float )joy->pJoystick.jsCaps.wRmin; - joy->max[ 3 ] = ( float )joy->pJoystick.jsCaps.wRmax; - joy->min[ 2 ] = ( float )joy->pJoystick.jsCaps.wZmin; - joy->max[ 2 ] = ( float )joy->pJoystick.jsCaps.wZmax; - joy->min[ 1 ] = ( float )joy->pJoystick.jsCaps.wYmin; - joy->max[ 1 ] = ( float )joy->pJoystick.jsCaps.wYmax; - joy->min[ 0 ] = ( float )joy->pJoystick.jsCaps.wXmin; - joy->max[ 0 ] = ( float )joy->pJoystick.jsCaps.wXmax; - } - - /* Guess all the rest judging on the axes extremals */ - for( i = 0; i < joy->num_axes; i++ ) - { - joy->center [ i ] = ( joy->max[ i ] + joy->min[ i ] ) * 0.5f; - joy->dead_band[ i ] = 0.0f; - joy->saturate [ i ] = 1.0f; - } -} - - - -void fgPlatformJoystickInit( SFG_Joystick *fgJoystick[], int ident ) -{ - switch( ident ) - { - case 0: - fgJoystick[ ident ]->pJoystick.js_id = JOYSTICKID1; - fgJoystick[ ident ]->error = GL_FALSE; - break; - case 1: - fgJoystick[ ident ]->pJoystick.js_id = JOYSTICKID2; - fgJoystick[ ident ]->error = GL_FALSE; - break; - default: - fgJoystick[ ident ]->num_axes = 0; - fgJoystick[ ident ]->error = GL_TRUE; - return; - } -} - - - -void fgPlatformJoystickClose ( int ident ) -{ - /* Do nothing special */ -} -#endif - diff --git a/internal/c/parts/core/android_core/src/mswin/fg_main_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_main_mswin.c deleted file mode 100644 index e813c0a4e..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_main_mswin.c +++ /dev/null @@ -1,1131 +0,0 @@ -/* - * freeglut_main_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sat Jan 21, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - - -extern void fghRedrawWindow ( SFG_Window *window ); - -extern void fgNewWGLCreateContext( SFG_Window* window ); -extern GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly, - unsigned char layer_type ); - -#ifdef WM_TOUCH -typedef BOOL (WINAPI *pGetTouchInputInfo)(HTOUCHINPUT,UINT,PTOUCHINPUT,int); -typedef BOOL (WINAPI *pCloseTouchInputHandle)(HTOUCHINPUT); -static pGetTouchInputInfo fghGetTouchInputInfo = (pGetTouchInputInfo)0xDEADBEEF; -static pCloseTouchInputHandle fghCloseTouchInputHandle = (pCloseTouchInputHandle)0xDEADBEEF; -#endif - -#ifdef _WIN32_WCE -typedef struct GXDisplayProperties GXDisplayProperties; -typedef struct GXKeyList GXKeyList; -#include - -typedef struct GXKeyList (*GXGETDEFAULTKEYS)(int); -typedef int (*GXOPENINPUT)(); - -GXGETDEFAULTKEYS GXGetDefaultKeys_ = NULL; -GXOPENINPUT GXOpenInput_ = NULL; - -struct GXKeyList gxKeyList; -#endif /* _WIN32_WCE */ - -/* - * Helper functions for getting client area from the window rect - * and the window rect from the client area given the style of the window - * (or a valid window pointer from which the style can be queried). - */ -extern void fghComputeWindowRectFromClientArea_QueryWindow( const SFG_Window *window, RECT *clientRect, BOOL posIsOutside ); -extern RECT fghGetClientArea ( const SFG_Window *window, BOOL wantPosOutside ); - - -void fgPlatformReshapeWindow ( SFG_Window *window, int width, int height ) -{ - RECT windowRect; - - /* - * For windowed mode, get the current position of the - * window and resize taking the size of the frame - * decorations into account. - */ - - /* "GetWindowRect" returns the pixel coordinates of the outside of the window */ - GetWindowRect( window->Window.Handle, &windowRect ); - - /* Create rect in FreeGLUT format, (X,Y) topleft outside window, WxH of client area */ - windowRect.right = windowRect.left+width; - windowRect.bottom = windowRect.top+height; - - if (window->Parent == NULL) - /* get the window rect from this to feed to SetWindowPos, correct for window decorations */ - fghComputeWindowRectFromClientArea_QueryWindow(window,&windowRect,TRUE); - else - { - /* correct rect for position client area of parent window - * (SetWindowPos input for child windows is in coordinates - * relative to the parent's client area). - * Child windows don't have decoration, so no need to correct - * for them. - */ - RECT parentRect; - parentRect = fghGetClientArea( window->Parent, FALSE ); - windowRect.left -= parentRect.left; - windowRect.right -= parentRect.left; - windowRect.top -= parentRect.top; - windowRect.bottom -= parentRect.top; - } - - /* Do the actual resizing */ - SetWindowPos( window->Window.Handle, - HWND_TOP, - windowRect.left, windowRect.top, - windowRect.right - windowRect.left, - windowRect.bottom- windowRect.top, - SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING | - SWP_NOZORDER - ); -} - - -void fgPlatformDisplayWindow ( SFG_Window *window ) -{ - RedrawWindow( - window->Window.Handle, NULL, NULL, - RDW_NOERASE | RDW_INTERNALPAINT | RDW_INVALIDATE | RDW_UPDATENOW - ); -} - - -fg_time_t fgPlatformSystemTime ( void ) -{ -#if defined(_WIN32_WCE) - return GetTickCount(); -#else - /* TODO: do this with QueryPerformanceCounter as timeGetTime has - * insufficient resolution (only about 5 ms on system under low load). - * See: - * http://msdn.microsoft.com/en-us/library/windows/desktop/dd757629(v=vs.85).aspx - * Or maybe QueryPerformanceCounter is not a good idea either, see - * http://old.nabble.com/Re%3A-glutTimerFunc-does-not-detect-if-system-time-moved-backward-p33479674.html - * for some other ideas (at bottom)... - */ - return timeGetTime(); -#endif -} - - -void fgPlatformSleepForEvents( fg_time_t msec ) -{ - MsgWaitForMultipleObjects( 0, NULL, FALSE, (DWORD) msec, QS_ALLINPUT ); -} - - -void fgPlatformProcessSingleEvent ( void ) -{ - MSG stMsg; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" ); - - while( PeekMessage( &stMsg, NULL, 0, 0, PM_NOREMOVE ) ) - { - if( GetMessage( &stMsg, NULL, 0, 0 ) == 0 ) - { - if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT ) - { - fgDeinitialize( ); - exit( 0 ); - } - else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS ) - fgState.ExecState = GLUT_EXEC_STATE_STOP; - - return; - } - - TranslateMessage( &stMsg ); - DispatchMessage( &stMsg ); - } -} - - - -void fgPlatformMainLoopPreliminaryWork ( void ) -{ - SFG_Window *window = (SFG_Window *)fgStructure.Windows.First ; - - /* - * Processing before the main loop: If there is a window which is open and - * which has a visibility callback, call it. I know this is an ugly hack, - * but I'm not sure what else to do about it. Ideally we should leave - * something uninitialized in the create window code and initialize it in - * the main loop, and have that initialization create a "WM_ACTIVATE" - * message. Then we would put the visibility callback code in the - * "case WM_ACTIVATE" block below. - John Fay -- 10/24/02 - */ - while( window ) - { - if ( FETCH_WCB( *window, Visibility ) ) - { - SFG_Window *current_window = fgStructure.CurrentWindow ; - - INVOKE_WCB( *window, Visibility, ( window->State.Visible ) ); - fgSetWindow( current_window ); - } - - window = (SFG_Window *)window->Node.Next ; - } -} - - -/* - * Determine a GLUT modifer mask based on MS-WINDOWS system info. - */ -static int fgPlatformGetModifiers (void) -{ - return - ( ( ( GetKeyState( VK_LSHIFT ) < 0 ) || - ( GetKeyState( VK_RSHIFT ) < 0 )) ? GLUT_ACTIVE_SHIFT : 0 ) | - ( ( ( GetKeyState( VK_LCONTROL ) < 0 ) || - ( GetKeyState( VK_RCONTROL ) < 0 )) ? GLUT_ACTIVE_CTRL : 0 ) | - ( ( ( GetKeyState( VK_LMENU ) < 0 ) || - ( GetKeyState( VK_RMENU ) < 0 )) ? GLUT_ACTIVE_ALT : 0 ); -} - -/* - * The window procedure for handling Win32 events - */ -LRESULT CALLBACK fgPlatformWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, - LPARAM lParam ) -{ - static unsigned char lControl = 0, rControl = 0, lShift = 0, - rShift = 0, lAlt = 0, rAlt = 0; - - SFG_Window* window; - PAINTSTRUCT ps; - LRESULT lRet = 1; - - FREEGLUT_INTERNAL_ERROR_EXIT_IF_NOT_INITIALISED ( "Event Handler" ) ; - - window = fgWindowByHandle( hWnd ); - - if ( ( window == NULL ) && ( uMsg != WM_CREATE ) ) - return DefWindowProc( hWnd, uMsg, wParam, lParam ); - - /* printf ( "Window %3d message <%04x> %12d %12d\n", window?window->ID:0, - uMsg, wParam, lParam ); */ - - if ( window ) - { - /* Checking for CTRL, ALT, and SHIFT key positions: Key Down! */ - if ( !lControl && GetAsyncKeyState ( VK_LCONTROL ) ) - { - INVOKE_WCB ( *window, Special, - ( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY ) - ); - - lControl = 1; - } - - if ( !rControl && GetAsyncKeyState ( VK_RCONTROL ) ) - { - INVOKE_WCB ( *window, Special, - ( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY ) - ); - - rControl = 1; - } - - if ( !lShift && GetAsyncKeyState ( VK_LSHIFT ) ) - { - INVOKE_WCB ( *window, Special, - ( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY ) - ); - - lShift = 1; - } - - if ( !rShift && GetAsyncKeyState ( VK_RSHIFT ) ) - { - INVOKE_WCB ( *window, Special, - ( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY ) - ); - - rShift = 1; - } - - if ( !lAlt && GetAsyncKeyState ( VK_LMENU ) ) - { - INVOKE_WCB ( *window, Special, - ( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY ) - ); - - lAlt = 1; - } - - if ( !rAlt && GetAsyncKeyState ( VK_RMENU ) ) - { - INVOKE_WCB ( *window, Special, - ( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY ) - ); - - rAlt = 1; - } - - /* Checking for CTRL, ALT, and SHIFT key positions: Key Up! */ - if ( lControl && !GetAsyncKeyState ( VK_LCONTROL ) ) - { - INVOKE_WCB ( *window, SpecialUp, - ( GLUT_KEY_CTRL_L, window->State.MouseX, window->State.MouseY ) - ); - - lControl = 0; - } - - if ( rControl && !GetAsyncKeyState ( VK_RCONTROL ) ) - { - INVOKE_WCB ( *window, SpecialUp, - ( GLUT_KEY_CTRL_R, window->State.MouseX, window->State.MouseY ) - ); - - rControl = 0; - } - - if ( lShift && !GetAsyncKeyState ( VK_LSHIFT ) ) - { - INVOKE_WCB ( *window, SpecialUp, - ( GLUT_KEY_SHIFT_L, window->State.MouseX, window->State.MouseY ) - ); - - lShift = 0; - } - - if ( rShift && !GetAsyncKeyState ( VK_RSHIFT ) ) - { - INVOKE_WCB ( *window, SpecialUp, - ( GLUT_KEY_SHIFT_R, window->State.MouseX, window->State.MouseY ) - ); - - rShift = 0; - } - - if ( lAlt && !GetAsyncKeyState ( VK_LMENU ) ) - { - INVOKE_WCB ( *window, SpecialUp, - ( GLUT_KEY_ALT_L, window->State.MouseX, window->State.MouseY ) - ); - - lAlt = 0; - } - - if ( rAlt && !GetAsyncKeyState ( VK_RMENU ) ) - { - INVOKE_WCB ( *window, SpecialUp, - ( GLUT_KEY_ALT_R, window->State.MouseX, window->State.MouseY ) - ); - - rAlt = 0; - } - } - - switch( uMsg ) - { - case WM_CREATE: - /* The window structure is passed as the creation structure parameter... */ - window = (SFG_Window *) (((LPCREATESTRUCT) lParam)->lpCreateParams); - FREEGLUT_INTERNAL_ERROR_EXIT ( ( window != NULL ), "Cannot create window", - "fgPlatformWindowProc" ); - - window->Window.Handle = hWnd; - window->Window.pContext.Device = GetDC( hWnd ); - if( window->IsMenu ) - { - unsigned int current_DisplayMode = fgState.DisplayMode; - fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB | GLUT_DEPTH; -#if !defined(_WIN32_WCE) - fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE ); -#endif - fgState.DisplayMode = current_DisplayMode; - - if( fgStructure.MenuContext ) - wglMakeCurrent( window->Window.pContext.Device, - fgStructure.MenuContext->MContext - ); - else - { - fgStructure.MenuContext = - (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) ); - fgStructure.MenuContext->MContext = - wglCreateContext( window->Window.pContext.Device ); - } - - /* window->Window.Context = wglGetCurrentContext (); */ - window->Window.Context = wglCreateContext( window->Window.pContext.Device ); - } - else - { -#if !defined(_WIN32_WCE) - fgSetupPixelFormat( window, GL_FALSE, PFD_MAIN_PLANE ); -#endif - - if( ! fgState.UseCurrentContext ) - window->Window.Context = - wglCreateContext( window->Window.pContext.Device ); - else - { - window->Window.Context = wglGetCurrentContext( ); - if( ! window->Window.Context ) - window->Window.Context = - wglCreateContext( window->Window.pContext.Device ); - } - -#if !defined(_WIN32_WCE) - fgNewWGLCreateContext( window ); -#endif - } - - window->State.NeedToResize = GL_TRUE; - /* if we used CW_USEDEFAULT (thats a negative value) for the size - * of the window, query the window now for the size at which it - * was created. - */ - if( ( window->State.Width < 0 ) || ( window->State.Height < 0 ) ) - { - SFG_Window *current_window = fgStructure.CurrentWindow; - - fgSetWindow( window ); - window->State.Width = glutGet( GLUT_WINDOW_WIDTH ); - window->State.Height = glutGet( GLUT_WINDOW_HEIGHT ); - fgSetWindow( current_window ); - } - - ReleaseDC( window->Window.Handle, window->Window.pContext.Device ); - -#if defined(_WIN32_WCE) - /* Take over button handling */ - { - HINSTANCE dxDllLib=LoadLibrary(_T("gx.dll")); - if (dxDllLib) - { - GXGetDefaultKeys_=(GXGETDEFAULTKEYS)GetProcAddress(dxDllLib, _T("?GXGetDefaultKeys@@YA?AUGXKeyList@@H@Z")); - GXOpenInput_=(GXOPENINPUT)GetProcAddress(dxDllLib, _T("?GXOpenInput@@YAHXZ")); - } - - if(GXOpenInput_) - (*GXOpenInput_)(); - if(GXGetDefaultKeys_) - gxKeyList = (*GXGetDefaultKeys_)(GX_LANDSCAPEKEYS); - } - -#endif /* defined(_WIN32_WCE) */ - break; - - case WM_SIZE: - /* - * If the window is visible, then it is the user manually resizing it. - * If it is not, then it is the system sending us a dummy resize with - * zero dimensions on a "glutIconifyWindow" call. - */ - if( window->State.Visible ) - { - window->State.NeedToResize = GL_TRUE; -#if defined(_WIN32_WCE) - window->State.Width = HIWORD(lParam); - window->State.Height = LOWORD(lParam); -#else - window->State.Width = LOWORD(lParam); - window->State.Height = HIWORD(lParam); -#endif /* defined(_WIN32_WCE) */ - } - - break; - - case WM_SETFOCUS: -/* printf("WM_SETFOCUS: %p\n", window ); */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - INVOKE_WCB( *window, Entry, ( GLUT_ENTERED ) ); - - UpdateWindow ( hWnd ); - break; - - case WM_KILLFOCUS: -/* printf("WM_KILLFOCUS: %p\n", window ); */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - INVOKE_WCB( *window, Entry, ( GLUT_LEFT ) ); - - if( window->IsMenu && - window->ActiveMenu && window->ActiveMenu->IsActive ) - fgUpdateMenuHighlight( window->ActiveMenu ); - - break; - -#if 0 - case WM_ACTIVATE: - if (LOWORD(wParam) != WA_INACTIVE) - { -/* printf("WM_ACTIVATE: fgSetCursor( %p, %d)\n", window, - window->State.Cursor ); */ - fgSetCursor( window, window->State.Cursor ); - } - - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - break; -#endif - - case WM_SETCURSOR: -/* printf ( "Cursor event %x %x %x %x\n", window, window->State.Cursor, lParam, wParam ) ; */ - if( LOWORD( lParam ) == HTCLIENT ) - fgSetCursor ( window, window->State.Cursor ) ; - else - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - break; - - case WM_SHOWWINDOW: - window->State.Visible = GL_TRUE; - window->State.Redisplay = GL_TRUE; - break; - - case WM_PAINT: - /* Turn on the visibility in case it was turned off somehow */ - window->State.Visible = GL_TRUE; - BeginPaint( hWnd, &ps ); - fghRedrawWindow( window ); - EndPaint( hWnd, &ps ); - break; - - case WM_CLOSE: - fgDestroyWindow ( window ); - if ( fgState.ActionOnWindowClose != GLUT_ACTION_CONTINUE_EXECUTION ) - PostQuitMessage(0); - break; - - case WM_DESTROY: - /* - * The window already got destroyed, so don't bother with it. - */ - return 0; - - case WM_MOUSEMOVE: - { -#if defined(_WIN32_WCE) - window->State.MouseX = 320-HIWORD( lParam ); - window->State.MouseY = LOWORD( lParam ); -#else - window->State.MouseX = LOWORD( lParam ); - window->State.MouseY = HIWORD( lParam ); -#endif /* defined(_WIN32_WCE) */ - /* Restrict to [-32768, 32767] to match X11 behaviour */ - /* See comment in "freeglut_developer" mailing list 10/4/04 */ - if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536; - if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536; - - if ( window->ActiveMenu ) - { - fgUpdateMenuHighlight( window->ActiveMenu ); - break; - } - SetFocus(window->Window.Handle); - - fgState.Modifiers = fgPlatformGetModifiers( ); - - if( ( wParam & MK_LBUTTON ) || - ( wParam & MK_MBUTTON ) || - ( wParam & MK_RBUTTON ) ) - INVOKE_WCB( *window, Motion, ( window->State.MouseX, - window->State.MouseY ) ); - else - INVOKE_WCB( *window, Passive, ( window->State.MouseX, - window->State.MouseY ) ); - - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case WM_LBUTTONDOWN: - case WM_MBUTTONDOWN: - case WM_RBUTTONDOWN: - case WM_LBUTTONUP: - case WM_MBUTTONUP: - case WM_RBUTTONUP: - { - GLboolean pressed = GL_TRUE; - int button; - -#if defined(_WIN32_WCE) - window->State.MouseX = 320-HIWORD( lParam ); - window->State.MouseY = LOWORD( lParam ); -#else - window->State.MouseX = LOWORD( lParam ); - window->State.MouseY = HIWORD( lParam ); -#endif /* defined(_WIN32_WCE) */ - - /* Restrict to [-32768, 32767] to match X11 behaviour */ - /* See comment in "freeglut_developer" mailing list 10/4/04 */ - if ( window->State.MouseX > 32767 ) window->State.MouseX -= 65536; - if ( window->State.MouseY > 32767 ) window->State.MouseY -= 65536; - - switch( uMsg ) - { - case WM_LBUTTONDOWN: - pressed = GL_TRUE; - button = GLUT_LEFT_BUTTON; - break; - case WM_MBUTTONDOWN: - pressed = GL_TRUE; - button = GLUT_MIDDLE_BUTTON; - break; - case WM_RBUTTONDOWN: - pressed = GL_TRUE; - button = GLUT_RIGHT_BUTTON; - break; - case WM_LBUTTONUP: - pressed = GL_FALSE; - button = GLUT_LEFT_BUTTON; - break; - case WM_MBUTTONUP: - pressed = GL_FALSE; - button = GLUT_MIDDLE_BUTTON; - break; - case WM_RBUTTONUP: - pressed = GL_FALSE; - button = GLUT_RIGHT_BUTTON; - break; - default: - pressed = GL_FALSE; - button = -1; - break; - } - -#if !defined(_WIN32_WCE) - if( GetSystemMetrics( SM_SWAPBUTTON ) ) - { - if( button == GLUT_LEFT_BUTTON ) - button = GLUT_RIGHT_BUTTON; - else - if( button == GLUT_RIGHT_BUTTON ) - button = GLUT_LEFT_BUTTON; - } -#endif /* !defined(_WIN32_WCE) */ - - if( button == -1 ) - return DefWindowProc( hWnd, uMsg, lParam, wParam ); - - /* - * Do not execute the application's mouse callback if a menu - * is hooked to this button. In that case an appropriate - * private call should be generated. - */ - if( fgCheckActiveMenu( window, button, pressed, - window->State.MouseX, window->State.MouseY ) ) - break; - - /* Set capture so that the window captures all the mouse messages */ - /* - * XXX - Multiple button support: Under X11, the mouse is not released - * XXX - from the window until all buttons have been released, even if the - * XXX - user presses a button in another window. This will take more - * XXX - code changes than I am up to at the moment (10/5/04). The present - * XXX - is a 90 percent solution. - */ - if ( pressed == GL_TRUE ) - SetCapture ( window->Window.Handle ) ; - else - ReleaseCapture () ; - - if( ! FETCH_WCB( *window, Mouse ) ) - break; - - fgSetWindow( window ); - fgState.Modifiers = fgPlatformGetModifiers( ); - - INVOKE_WCB( - *window, Mouse, - ( button, - pressed ? GLUT_DOWN : GLUT_UP, - window->State.MouseX, - window->State.MouseY - ) - ); - - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case 0x020a: - /* Should be WM_MOUSEWHEEL but my compiler doesn't recognize it */ - { - int wheel_number = LOWORD( wParam ); - short ticks = ( short )HIWORD( wParam ); - fgState.MouseWheelTicks += ticks; - - /* - * XXX Should use WHEEL_DELTA instead of 120 - */ - if ( abs ( fgState.MouseWheelTicks ) > 120 ) - { - int direction = ( fgState.MouseWheelTicks > 0 ) ? 1 : -1; - - if( ! FETCH_WCB( *window, MouseWheel ) && - ! FETCH_WCB( *window, Mouse ) ) - break; - - fgSetWindow( window ); - fgState.Modifiers = fgPlatformGetModifiers( ); - - /* - * XXX Should use WHEEL_DELTA instead of 120 - */ - while( abs ( fgState.MouseWheelTicks ) > 120 ) - { - if( FETCH_WCB( *window, MouseWheel ) ) - INVOKE_WCB( *window, MouseWheel, - ( wheel_number, - direction, - window->State.MouseX, - window->State.MouseY - ) - ); - else /* No mouse wheel, call the mouse button callback twice */ - { - /* - * Map wheel zero to button 3 and 4; +1 to 3, -1 to 4 - * " " one +1 to 5, -1 to 6, ... - * - * XXX The below assumes that you have no more than 3 mouse - * XXX buttons. Sorry. - */ - int button = wheel_number * 2 + 3; - if( direction < 0 ) - ++button; - INVOKE_WCB( *window, Mouse, - ( button, GLUT_DOWN, - window->State.MouseX, window->State.MouseY ) - ); - INVOKE_WCB( *window, Mouse, - ( button, GLUT_UP, - window->State.MouseX, window->State.MouseY ) - ); - } - - /* - * XXX Should use WHEEL_DELTA instead of 120 - */ - fgState.MouseWheelTicks -= 120 * direction; - } - - fgState.Modifiers = INVALID_MODIFIERS; - } - } - break ; - - case WM_SYSKEYDOWN: - case WM_KEYDOWN: - { - int keypress = -1; - POINT mouse_pos ; - - if( ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) && (HIWORD(lParam) & KF_REPEAT) ) - break; - - /* - * Remember the current modifiers state. This is done here in order - * to make sure the VK_DELETE keyboard callback is executed properly. - */ - fgState.Modifiers = fgPlatformGetModifiers( ); - - GetCursorPos( &mouse_pos ); - ScreenToClient( window->Window.Handle, &mouse_pos ); - - window->State.MouseX = mouse_pos.x; - window->State.MouseY = mouse_pos.y; - - /* Convert the Win32 keystroke codes to GLUTtish way */ -# define KEY(a,b) case a: keypress = b; break; - - switch( wParam ) - { - KEY( VK_F1, GLUT_KEY_F1 ); - KEY( VK_F2, GLUT_KEY_F2 ); - KEY( VK_F3, GLUT_KEY_F3 ); - KEY( VK_F4, GLUT_KEY_F4 ); - KEY( VK_F5, GLUT_KEY_F5 ); - KEY( VK_F6, GLUT_KEY_F6 ); - KEY( VK_F7, GLUT_KEY_F7 ); - KEY( VK_F8, GLUT_KEY_F8 ); - KEY( VK_F9, GLUT_KEY_F9 ); - KEY( VK_F10, GLUT_KEY_F10 ); - KEY( VK_F11, GLUT_KEY_F11 ); - KEY( VK_F12, GLUT_KEY_F12 ); - KEY( VK_PRIOR, GLUT_KEY_PAGE_UP ); - KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN ); - KEY( VK_HOME, GLUT_KEY_HOME ); - KEY( VK_END, GLUT_KEY_END ); - KEY( VK_LEFT, GLUT_KEY_LEFT ); - KEY( VK_UP, GLUT_KEY_UP ); - KEY( VK_RIGHT, GLUT_KEY_RIGHT ); - KEY( VK_DOWN, GLUT_KEY_DOWN ); - KEY( VK_INSERT, GLUT_KEY_INSERT ); - KEY( VK_LCONTROL, GLUT_KEY_CTRL_L ); - KEY( VK_RCONTROL, GLUT_KEY_CTRL_R ); - KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L ); - KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R ); - KEY( VK_LMENU, GLUT_KEY_ALT_L ); - KEY( VK_RMENU, GLUT_KEY_ALT_R ); - - case VK_DELETE: - /* The delete key should be treated as an ASCII keypress: */ - INVOKE_WCB( *window, Keyboard, - ( 127, window->State.MouseX, window->State.MouseY ) - ); - } - -#if defined(_WIN32_WCE) - if(!(lParam & 0x40000000)) /* Prevent auto-repeat */ - { - if(wParam==(unsigned)gxKeyList.vkRight) - keypress = GLUT_KEY_RIGHT; - else if(wParam==(unsigned)gxKeyList.vkLeft) - keypress = GLUT_KEY_LEFT; - else if(wParam==(unsigned)gxKeyList.vkUp) - keypress = GLUT_KEY_UP; - else if(wParam==(unsigned)gxKeyList.vkDown) - keypress = GLUT_KEY_DOWN; - else if(wParam==(unsigned)gxKeyList.vkA) - keypress = GLUT_KEY_F1; - else if(wParam==(unsigned)gxKeyList.vkB) - keypress = GLUT_KEY_F2; - else if(wParam==(unsigned)gxKeyList.vkC) - keypress = GLUT_KEY_F3; - else if(wParam==(unsigned)gxKeyList.vkStart) - keypress = GLUT_KEY_F4; - } -#endif - - if( keypress != -1 ) - INVOKE_WCB( *window, Special, - ( keypress, - window->State.MouseX, window->State.MouseY ) - ); - - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case WM_SYSKEYUP: - case WM_KEYUP: - { - int keypress = -1; - POINT mouse_pos; - - /* - * Remember the current modifiers state. This is done here in order - * to make sure the VK_DELETE keyboard callback is executed properly. - */ - fgState.Modifiers = fgPlatformGetModifiers( ); - - GetCursorPos( &mouse_pos ); - ScreenToClient( window->Window.Handle, &mouse_pos ); - - window->State.MouseX = mouse_pos.x; - window->State.MouseY = mouse_pos.y; - - /* - * Convert the Win32 keystroke codes to GLUTtish way. - * "KEY(a,b)" was defined under "WM_KEYDOWN" - */ - - switch( wParam ) - { - KEY( VK_F1, GLUT_KEY_F1 ); - KEY( VK_F2, GLUT_KEY_F2 ); - KEY( VK_F3, GLUT_KEY_F3 ); - KEY( VK_F4, GLUT_KEY_F4 ); - KEY( VK_F5, GLUT_KEY_F5 ); - KEY( VK_F6, GLUT_KEY_F6 ); - KEY( VK_F7, GLUT_KEY_F7 ); - KEY( VK_F8, GLUT_KEY_F8 ); - KEY( VK_F9, GLUT_KEY_F9 ); - KEY( VK_F10, GLUT_KEY_F10 ); - KEY( VK_F11, GLUT_KEY_F11 ); - KEY( VK_F12, GLUT_KEY_F12 ); - KEY( VK_PRIOR, GLUT_KEY_PAGE_UP ); - KEY( VK_NEXT, GLUT_KEY_PAGE_DOWN ); - KEY( VK_HOME, GLUT_KEY_HOME ); - KEY( VK_END, GLUT_KEY_END ); - KEY( VK_LEFT, GLUT_KEY_LEFT ); - KEY( VK_UP, GLUT_KEY_UP ); - KEY( VK_RIGHT, GLUT_KEY_RIGHT ); - KEY( VK_DOWN, GLUT_KEY_DOWN ); - KEY( VK_INSERT, GLUT_KEY_INSERT ); - KEY( VK_LCONTROL, GLUT_KEY_CTRL_L ); - KEY( VK_RCONTROL, GLUT_KEY_CTRL_R ); - KEY( VK_LSHIFT, GLUT_KEY_SHIFT_L ); - KEY( VK_RSHIFT, GLUT_KEY_SHIFT_R ); - KEY( VK_LMENU, GLUT_KEY_ALT_L ); - KEY( VK_RMENU, GLUT_KEY_ALT_R ); - - case VK_DELETE: - /* The delete key should be treated as an ASCII keypress: */ - INVOKE_WCB( *window, KeyboardUp, - ( 127, window->State.MouseX, window->State.MouseY ) - ); - break; - - default: - { -#if !defined(_WIN32_WCE) - BYTE state[ 256 ]; - WORD code[ 2 ]; - - GetKeyboardState( state ); - - if( ToAscii( (UINT)wParam, 0, state, code, 0 ) == 1 ) - wParam=code[ 0 ]; - - INVOKE_WCB( *window, KeyboardUp, - ( (char)wParam, - window->State.MouseX, window->State.MouseY ) - ); -#endif /* !defined(_WIN32_WCE) */ - } - } - - if( keypress != -1 ) - INVOKE_WCB( *window, SpecialUp, - ( keypress, - window->State.MouseX, window->State.MouseY ) - ); - - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case WM_SYSCHAR: - case WM_CHAR: - { - if( (fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE) && (HIWORD(lParam) & KF_REPEAT) ) - break; - - fgState.Modifiers = fgPlatformGetModifiers( ); - INVOKE_WCB( *window, Keyboard, - ( (char)wParam, - window->State.MouseX, window->State.MouseY ) - ); - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case WM_CAPTURECHANGED: - /* User has finished resizing the window, force a redraw */ - INVOKE_WCB( *window, Display, ( ) ); - - /*lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); */ - break; - - /* Other messages that I have seen and which are not handled already */ - case WM_SETTEXT: /* 0x000c */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - /* Pass it on to "DefWindowProc" to set the window text */ - break; - - case WM_GETTEXT: /* 0x000d */ - /* Ideally we would copy the title of the window into "lParam" */ - /* strncpy ( (char *)lParam, "Window Title", wParam ); - lRet = ( wParam > 12 ) ? 12 : wParam; */ - /* the number of characters copied */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - break; - - case WM_GETTEXTLENGTH: /* 0x000e */ - /* Ideally we would get the length of the title of the window */ - lRet = 12; - /* the number of characters in "Window Title\0" (see above) */ - break; - - case WM_ERASEBKGND: /* 0x0014 */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - break; - -#if !defined(_WIN32_WCE) - case WM_SYNCPAINT: /* 0x0088 */ - /* Another window has moved, need to update this one */ - window->State.Redisplay = GL_TRUE; - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - /* Help screen says this message must be passed to "DefWindowProc" */ - break; - - case WM_NCPAINT: /* 0x0085 */ - /* Need to update the border of this window */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - /* Pass it on to "DefWindowProc" to repaint a standard border */ - break; - - case WM_SYSCOMMAND : /* 0x0112 */ - { - /* - * We have received a system command message. Try to act on it. - * The commands are passed in through the "wParam" parameter: - * The least significant digit seems to be which edge of the window - * is being used for a resize event: - * 4 3 5 - * 1 2 - * 7 6 8 - * Congratulations and thanks to Richard Rauch for figuring this out.. - */ - switch ( wParam & 0xfff0 ) - { - case SC_SIZE : - break ; - - case SC_MOVE : - break ; - - case SC_MINIMIZE : - /* User has clicked on the "-" to minimize the window */ - /* Turn off the visibility */ - window->State.Visible = GL_FALSE ; - - break ; - - case SC_MAXIMIZE : - break ; - - case SC_NEXTWINDOW : - break ; - - case SC_PREVWINDOW : - break ; - - case SC_CLOSE : - /* Followed very closely by a WM_CLOSE message */ - break ; - - case SC_VSCROLL : - break ; - - case SC_HSCROLL : - break ; - - case SC_MOUSEMENU : - break ; - - case SC_KEYMENU : - break ; - - case SC_ARRANGE : - break ; - - case SC_RESTORE : - break ; - - case SC_TASKLIST : - break ; - - case SC_SCREENSAVE : - break ; - - case SC_HOTKEY : - break ; - -#if(WINVER >= 0x0400) - case SC_DEFAULT : - break ; - - case SC_MONITORPOWER : - break ; - - case SC_CONTEXTHELP : - break ; -#endif /* WINVER >= 0x0400 */ - - default: -#if _DEBUG - fgWarning( "Unknown wParam type 0x%x", wParam ); -#endif - break; - } - } -#endif /* !defined(_WIN32_WCE) */ - - /* We need to pass the message on to the operating system as well */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - break; - -#ifdef WM_TOUCH - /* handle multi-touch messages */ - case WM_TOUCH: - { - unsigned int numInputs = (unsigned int)wParam; - unsigned int i = 0; - TOUCHINPUT* ti = (TOUCHINPUT*)malloc( sizeof(TOUCHINPUT)*numInputs); - - if (fghGetTouchInputInfo == (pGetTouchInputInfo)0xDEADBEEF) { - fghGetTouchInputInfo = (pGetTouchInputInfo)GetProcAddress(GetModuleHandle("user32"),"GetTouchInputInfo"); - fghCloseTouchInputHandle = (pCloseTouchInputHandle)GetProcAddress(GetModuleHandle("user32"),"CloseTouchInputHandle"); - } - - if (!fghGetTouchInputInfo) { - free( (void*)ti ); - break; - } - - if (fghGetTouchInputInfo( (HTOUCHINPUT)lParam, numInputs, ti, sizeof(TOUCHINPUT) )) { - /* Handle each contact point */ - for (i = 0; i < numInputs; ++i ) { - - POINT tp; - tp.x = TOUCH_COORD_TO_PIXEL(ti[i].x); - tp.y = TOUCH_COORD_TO_PIXEL(ti[i].y); - ScreenToClient( hWnd, &tp ); - - ti[i].dwID = ti[i].dwID * 2; - - if (ti[i].dwFlags & TOUCHEVENTF_DOWN) { - INVOKE_WCB( *window, MultiEntry, ( ti[i].dwID, GLUT_ENTERED ) ); - INVOKE_WCB( *window, MultiButton, ( ti[i].dwID, tp.x, tp.y, 0, GLUT_DOWN ) ); - } else if (ti[i].dwFlags & TOUCHEVENTF_MOVE) { - INVOKE_WCB( *window, MultiMotion, ( ti[i].dwID, tp.x, tp.y ) ); - } else if (ti[i].dwFlags & TOUCHEVENTF_UP) { - INVOKE_WCB( *window, MultiButton, ( ti[i].dwID, tp.x, tp.y, 0, GLUT_UP ) ); - INVOKE_WCB( *window, MultiEntry, ( ti[i].dwID, GLUT_LEFT ) ); - } - } - } - fghCloseTouchInputHandle((HTOUCHINPUT)lParam); - free( (void*)ti ); - lRet = 0; /*DefWindowProc( hWnd, uMsg, wParam, lParam );*/ - break; - } -#endif - default: - /* Handle unhandled messages */ - lRet = DefWindowProc( hWnd, uMsg, wParam, lParam ); - break; - } - - return lRet; -} diff --git a/internal/c/parts/core/android_core/src/mswin/fg_menu_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_menu_mswin.c deleted file mode 100644 index b745e1f12..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_menu_mswin.c +++ /dev/null @@ -1,48 +0,0 @@ -/* - * freeglut_menu_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sun Jan 22, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "../fg_internal.h" - - -GLvoid fgPlatformGetGameModeVMaxExtent( SFG_Window* window, int* x, int* y ) -{ - *x = glutGet ( GLUT_SCREEN_WIDTH ); - *y = glutGet ( GLUT_SCREEN_HEIGHT ); -} - - - -/* -- PLATFORM-SPECIFIC INTERFACE FUNCTION -------------------------------------------------- */ - -int FGAPIENTRY __glutCreateMenuWithExit( void(* callback)( int ), void (__cdecl *exit_function)(int) ) -{ - __glutExitFunc = exit_function; - return glutCreateMenu( callback ); -} - diff --git a/internal/c/parts/core/android_core/src/mswin/fg_spaceball_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_spaceball_mswin.c deleted file mode 100644 index d89d1c849..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_spaceball_mswin.c +++ /dev/null @@ -1,58 +0,0 @@ -/* - * freeglut_spaceball_mswin.c - * - * Spaceball support for Windows - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by Evan Felix - * Creation date: Sat Feb 4, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ -/* - * This code is a very complicated way of doing nothing. - * But is needed for mswindows platform builds. - */ - -#include -#include "../fg_internal.h" - -void fgPlatformInitializeSpaceball(void) -{ - return; -} - -void fgPlatformSpaceballClose(void) -{ - return; -} - -int fgPlatformHasSpaceball(void) -{ - return 0; -} - -int fgPlatformSpaceballNumButtons(void) -{ - return 0; -} - -void fgPlatformSpaceballSetWindow(SFG_Window *window) -{ - return; -} diff --git a/internal/c/parts/core/android_core/src/mswin/fg_state_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_state_mswin.c deleted file mode 100644 index ed54938a2..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_state_mswin.c +++ /dev/null @@ -1,306 +0,0 @@ -/* - * freeglut_state_mswin.c - * - * The Windows-specific state query methods. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sun Jan 22, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - - -extern GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly, - unsigned char layer_type ); - -/* - * Helper functions for getting client area from the window rect - * and the window rect from the client area given the style of the window - * (or a valid window pointer from which the style can be queried). - */ -extern RECT fghGetClientArea( const SFG_Window *window, BOOL wantPosOutside ); -extern void fghGetBorderWidth(const DWORD windowStyle, int* xBorderWidth, int* yBorderWidth); - - -/* The following include file is available from SGI but is not standard: - * #include - * So we copy the necessary parts out of it to support the multisampling query - */ -#define WGL_SAMPLES_ARB 0x2042 - -#if defined(_WIN32_WCE) -# include -# ifdef FREEGLUT_LIB_PRAGMAS -# pragma comment( lib, "Aygshell.lib" ) -# endif -#endif /* defined(_WIN32_WCE) */ - - - -int fgPlatformGlutGet ( GLenum eWhat ) -{ - int returnValue ; - GLboolean boolValue ; - - int nsamples = 0; - - switch( eWhat ) - { - case GLUT_WINDOW_NUM_SAMPLES: - glGetIntegerv(WGL_SAMPLES_ARB, &nsamples); - return nsamples; - - /* Handle the OpenGL inquiries */ - case GLUT_WINDOW_RGBA: -#if defined(_WIN32_WCE) - boolValue = (GLboolean)0; /* WinCE doesn't support this feature */ -#else - glGetBooleanv ( GL_RGBA_MODE, &boolValue ); - returnValue = boolValue ? 1 : 0; -#endif - return returnValue; - case GLUT_WINDOW_DOUBLEBUFFER: -#if defined(_WIN32_WCE) - boolValue = (GLboolean)0; /* WinCE doesn't support this feature */ -#else - glGetBooleanv ( GL_DOUBLEBUFFER, &boolValue ); - returnValue = boolValue ? 1 : 0; -#endif - return returnValue; - case GLUT_WINDOW_STEREO: -#if defined(_WIN32_WCE) - boolValue = (GLboolean)0; /* WinCE doesn't support this feature */ -#else - glGetBooleanv ( GL_STEREO, &boolValue ); - returnValue = boolValue ? 1 : 0; -#endif - return returnValue; - - case GLUT_WINDOW_RED_SIZE: - glGetIntegerv ( GL_RED_BITS, &returnValue ); - return returnValue; - case GLUT_WINDOW_GREEN_SIZE: - glGetIntegerv ( GL_GREEN_BITS, &returnValue ); - return returnValue; - case GLUT_WINDOW_BLUE_SIZE: - glGetIntegerv ( GL_BLUE_BITS, &returnValue ); - return returnValue; - case GLUT_WINDOW_ALPHA_SIZE: - glGetIntegerv ( GL_ALPHA_BITS, &returnValue ); - return returnValue; - case GLUT_WINDOW_ACCUM_RED_SIZE: -#if defined(_WIN32_WCE) - returnValue = 0; /* WinCE doesn't support this feature */ -#else - glGetIntegerv ( GL_ACCUM_RED_BITS, &returnValue ); -#endif - return returnValue; - case GLUT_WINDOW_ACCUM_GREEN_SIZE: -#if defined(_WIN32_WCE) - returnValue = 0; /* WinCE doesn't support this feature */ -#else - glGetIntegerv ( GL_ACCUM_GREEN_BITS, &returnValue ); -#endif - return returnValue; - case GLUT_WINDOW_ACCUM_BLUE_SIZE: -#if defined(_WIN32_WCE) - returnValue = 0; /* WinCE doesn't support this feature */ -#else - glGetIntegerv ( GL_ACCUM_BLUE_BITS, &returnValue ); -#endif - return returnValue; - case GLUT_WINDOW_ACCUM_ALPHA_SIZE: -#if defined(_WIN32_WCE) - returnValue = 0; /* WinCE doesn't support this feature */ -#else - glGetIntegerv ( GL_ACCUM_ALPHA_BITS, &returnValue ); -#endif - return returnValue; - case GLUT_WINDOW_DEPTH_SIZE: - glGetIntegerv ( GL_DEPTH_BITS, &returnValue ); - return returnValue; - - case GLUT_WINDOW_BUFFER_SIZE: - returnValue = 1 ; /* ????? */ - return returnValue; - case GLUT_WINDOW_STENCIL_SIZE: - returnValue = 0 ; /* ????? */ - return returnValue; - - case GLUT_WINDOW_X: - case GLUT_WINDOW_Y: - case GLUT_WINDOW_WIDTH: - case GLUT_WINDOW_HEIGHT: - { - /* - * There is considerable confusion about the "right thing to - * do" concerning window size and position. GLUT itself is - * not consistent between Windows and UNIX/X11; since - * platform independence is a virtue for "freeglut", we - * decided to break with GLUT's behaviour. - * - * Under UNIX/X11, it is apparently not possible to get the - * window border sizes in order to subtract them off the - * window's initial position until some time after the window - * has been created. Therefore we decided on the following - * behaviour, both under Windows and under UNIX/X11: - * - When you create a window with position (x,y) and size - * (w,h), the upper left hand corner of the outside of the - * window is at (x,y) and the size of the drawable area is - * (w,h). - * - When you query the size and position of the window--as - * is happening here for Windows--"freeglut" will return - * the size of the drawable area--the (w,h) that you - * specified when you created the window--and the coordinates - * of the upper left hand corner of the drawable - * area--which is NOT the (x,y) you specified. - */ - - RECT winRect; - - freeglut_return_val_if_fail( fgStructure.CurrentWindow != NULL, 0 ); - -#if defined(_WIN32_WCE) - GetWindowRect( fgStructure.CurrentWindow->Window.Handle, &winRect ); -#else - winRect = fghGetClientArea(fgStructure.CurrentWindow, FALSE); -#endif /* defined(_WIN32_WCE) */ - - switch( eWhat ) - { - case GLUT_WINDOW_X: return winRect.left ; - case GLUT_WINDOW_Y: return winRect.top ; - case GLUT_WINDOW_WIDTH: return winRect.right - winRect.left; - case GLUT_WINDOW_HEIGHT: return winRect.bottom - winRect.top; - } - } - break; - - case GLUT_WINDOW_BORDER_WIDTH : - case GLUT_WINDOW_HEADER_HEIGHT : -#if defined(_WIN32_WCE) - return 0; -#else - { - DWORD windowStyle; - - if (fgStructure.CurrentWindow && fgStructure.CurrentWindow->Window.Handle) - windowStyle = GetWindowLong(fgStructure.CurrentWindow->Window.Handle, GWL_STYLE); - else - /* If no window, return sizes for a default window with title bar and border */ - windowStyle = WS_OVERLAPPEDWINDOW; - - switch( eWhat ) - { - case GLUT_WINDOW_BORDER_WIDTH: - { - int xBorderWidth, yBorderWidth; - fghGetBorderWidth(windowStyle, &xBorderWidth, &yBorderWidth); - return xBorderWidth; - } - case GLUT_WINDOW_HEADER_HEIGHT: - /* Need to query for WS_MAXIMIZEBOX to see if we have a title bar, the WS_CAPTION query is also true for a WS_DLGFRAME only... */ - return (windowStyle & WS_MAXIMIZEBOX)? GetSystemMetrics( SM_CYCAPTION ) : 0; - } - } -#endif /* defined(_WIN32_WCE) */ - - case GLUT_DISPLAY_MODE_POSSIBLE: -#if defined(_WIN32_WCE) - return 0; -#else - return fgSetupPixelFormat( fgStructure.CurrentWindow, GL_TRUE, - PFD_MAIN_PLANE ); -#endif /* defined(_WIN32_WCE) */ - - - case GLUT_WINDOW_FORMAT_ID: -#if !defined(_WIN32_WCE) - if( fgStructure.CurrentWindow != NULL ) - return GetPixelFormat( fgStructure.CurrentWindow->Window.pContext.Device ); -#endif /* defined(_WIN32_WCE) */ - return 0; - - default: - fgWarning( "glutGet(): missing enum handle %d", eWhat ); - break; - } - - return -1; -} - - -int fgPlatformGlutDeviceGet ( GLenum eWhat ) -{ - switch( eWhat ) - { - case GLUT_HAS_KEYBOARD: - /* - * Win32 is assumed a keyboard, and this cannot be queried, - * except for WindowsCE. - */ -#if defined(_WIN32_CE) - return ( GetKeyboardStatus() & KBDI_KEYBOARD_PRESENT ) ? 1 : 0; -# if FREEGLUT_LIB_PRAGMAS -# pragma comment (lib,"Kbdui.lib") -# endif - -#else - return 1; -#endif - - case GLUT_HAS_MOUSE: - /* - * MS Windows can be booted without a mouse. - */ - return GetSystemMetrics( SM_MOUSEPRESENT ); - - case GLUT_NUM_MOUSE_BUTTONS: -# if defined(_WIN32_WCE) - return 1; -# else - return GetSystemMetrics( SM_CMOUSEBUTTONS ); -# endif - - default: - fgWarning( "glutDeviceGet(): missing enum handle %d", eWhat ); - break; - } - - /* And now -- the failure. */ - return -1; -} - -/* - * This is for querying the number of supported auxiliary or multisample - * buffers for a (the current?) display mode. - * see http://old.nabble.com/-GLX--glutGetModeValues-to13514723.html#a13514723 - * Not currently implemented, but we should be able to query the relevant - * info using - * http://www.opengl.org/registry/specs/ARB/wgl_pixel_format.txt - * (if supported on the executing machine!) - */ -int *fgPlatformGlutGetModeValues(GLenum eWhat, int *size) -{ - *size = 0; - return NULL; -} \ No newline at end of file diff --git a/internal/c/parts/core/android_core/src/mswin/fg_structure_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_structure_mswin.c deleted file mode 100644 index 8487a8af0..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_structure_mswin.c +++ /dev/null @@ -1,34 +0,0 @@ -/* - * freeglut_structure_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sun Jan 22, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - - -void fgPlatformCreateWindow ( SFG_Window *window ) -{ -} diff --git a/internal/c/parts/core/android_core/src/mswin/fg_window_mswin.c b/internal/c/parts/core/android_core/src/mswin/fg_window_mswin.c deleted file mode 100644 index e40f1575c..000000000 --- a/internal/c/parts/core/android_core/src/mswin/fg_window_mswin.c +++ /dev/null @@ -1,1079 +0,0 @@ -/* - * freeglut_window_mswin.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sun Jan 22, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include "../fg_internal.h" - - -/* The following include file is available from SGI but is not standard: - * #include - * So we copy the necessary parts out of it. - * XXX: should local definitions for extensions be put in a separate include file? - */ -typedef const char * (WINAPI * PFNWGLGETEXTENSIONSSTRINGARBPROC) (HDC hdc); - -typedef BOOL (WINAPI * PFNWGLCHOOSEPIXELFORMATARBPROC) (HDC hdc, const int *piAttribIList, const FLOAT *pfAttribFList, UINT nMaxFormats, int *piFormats, UINT *nNumFormats); - -#define WGL_DRAW_TO_WINDOW_ARB 0x2001 -#define WGL_ACCELERATION_ARB 0x2003 -#define WGL_SUPPORT_OPENGL_ARB 0x2010 -#define WGL_DOUBLE_BUFFER_ARB 0x2011 -#define WGL_COLOR_BITS_ARB 0x2014 -#define WGL_ALPHA_BITS_ARB 0x201B -#define WGL_DEPTH_BITS_ARB 0x2022 -#define WGL_STENCIL_BITS_ARB 0x2023 -#define WGL_FULL_ACCELERATION_ARB 0x2027 - -#define WGL_SAMPLE_BUFFERS_ARB 0x2041 -#define WGL_SAMPLES_ARB 0x2042 - -#define WGL_TYPE_RGBA_FLOAT_ARB 0x21A0 - -#define WGL_FRAMEBUFFER_SRGB_CAPABLE_ARB 0x20A9 - -#ifndef WGL_ARB_create_context -#define WGL_ARB_create_context 1 -#ifdef WGL_WGLEXT_PROTOTYPES -extern HGLRC WINAPI wglCreateContextAttribsARB (HDC, HGLRC, const int *); -#endif /* WGL_WGLEXT_PROTOTYPES */ -typedef HGLRC (WINAPI * PFNWGLCREATECONTEXTATTRIBSARBPROC) (HDC hDC, HGLRC hShareContext, const int *attribList); - -#define WGL_CONTEXT_MAJOR_VERSION_ARB 0x2091 -#define WGL_CONTEXT_MINOR_VERSION_ARB 0x2092 -#define WGL_CONTEXT_LAYER_PLANE_ARB 0x2093 -#define WGL_CONTEXT_FLAGS_ARB 0x2094 -#define WGL_CONTEXT_PROFILE_MASK_ARB 0x9126 - -#define WGL_CONTEXT_DEBUG_BIT_ARB 0x0001 -#define WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x0002 - -#define WGL_CONTEXT_CORE_PROFILE_BIT_ARB 0x00000001 -#define WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB 0x00000002 - -#define ERROR_INVALID_VERSION_ARB 0x2095 -#define ERROR_INVALID_PROFILE_ARB 0x2096 -#endif -/* End of copying the necessary parts out of it. */ - -#ifdef WM_TOUCH -typedef BOOL (WINAPI *pRegisterTouchWindow)(HWND,ULONG); -static pRegisterTouchWindow fghRegisterTouchWindow = (pRegisterTouchWindow)0xDEADBEEF; -#endif - -/* - * Helper functions for getting client area from the window rect - * and the window rect from the client area given the style of the window - * (or a valid window pointer from which the style can be queried). - */ -extern void fghGetBorderWidth(const DWORD windowStyle, int* xBorderWidth, int* yBorderWidth); - - -/* - * Setup the pixel format for a Win32 window - */ - -#if defined(_WIN32_WCE) -static wchar_t* fghWstrFromStr(const char* str) -{ - int i,len=strlen(str); - wchar_t* wstr = (wchar_t*)malloc(2*len+2); - for(i=0; iWindow.pContext.Device, window->Window.Context ); - - if ( !fghIsExtensionSupported( window->Window.pContext.Device, "WGL_ARB_create_context" ) ) - { - return; - } - - /* new context creation */ - fghFillContextAttributes( attributes ); - - wglCreateContextAttribsARB = (PFNWGLCREATECONTEXTATTRIBSARBPROC) wglGetProcAddress( "wglCreateContextAttribsARB" ); - if ( wglCreateContextAttribsARB == NULL ) - { - fgError( "wglCreateContextAttribsARB not found" ); - } - - context = wglCreateContextAttribsARB( window->Window.pContext.Device, 0, attributes ); - if ( context == NULL ) - { - fghContextCreationError(); - } - - wglMakeCurrent( NULL, NULL ); - wglDeleteContext( window->Window.Context ); - window->Window.Context = context; -} - -#if !defined(_WIN32_WCE) - -static void fghFillPFD( PIXELFORMATDESCRIPTOR *ppfd, HDC hdc, unsigned char layer_type ) -{ - int flags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL; - if ( fgState.DisplayMode & GLUT_DOUBLE ) { - flags |= PFD_DOUBLEBUFFER; - } - if ( fgState.DisplayMode & GLUT_STEREO ) { - flags |= PFD_STEREO; - } - -#if defined(_MSC_VER) -#pragma message( "fgSetupPixelFormat(): there is still some work to do here!" ) -#endif - - /* Specify which pixel format do we opt for... */ - ppfd->nSize = sizeof(PIXELFORMATDESCRIPTOR); - ppfd->nVersion = 1; - ppfd->dwFlags = flags; - - if( fgState.DisplayMode & GLUT_INDEX ) { - ppfd->iPixelType = PFD_TYPE_COLORINDEX; - ppfd->cRedBits = 0; - ppfd->cGreenBits = 0; - ppfd->cBlueBits = 0; - ppfd->cAlphaBits = 0; - } else { - ppfd->iPixelType = PFD_TYPE_RGBA; - ppfd->cRedBits = 8; - ppfd->cGreenBits = 8; - ppfd->cBlueBits = 8; - ppfd->cAlphaBits = ( fgState.DisplayMode & GLUT_ALPHA ) ? 8 : 0; - } - - ppfd->cColorBits = 24; - ppfd->cRedShift = 0; - ppfd->cGreenShift = 0; - ppfd->cBlueShift = 0; - ppfd->cAlphaShift = 0; - ppfd->cAccumBits = ( fgState.DisplayMode & GLUT_ACCUM ) ? 1 : 0; - ppfd->cAccumRedBits = 0; - ppfd->cAccumGreenBits = 0; - ppfd->cAccumBlueBits = 0; - ppfd->cAccumAlphaBits = 0; - - /* Hmmm, or 32/0 instead of 24/8? */ - ppfd->cDepthBits = 24; - ppfd->cStencilBits = 8; - - ppfd->cAuxBuffers = fghNumberOfAuxBuffersRequested(); - ppfd->iLayerType = layer_type; - ppfd->bReserved = 0; - ppfd->dwLayerMask = 0; - ppfd->dwVisibleMask = 0; - ppfd->dwDamageMask = 0; - - ppfd->cColorBits = (BYTE) GetDeviceCaps( hdc, BITSPIXEL ); -} - -static void fghFillPixelFormatAttributes( int *attributes, const PIXELFORMATDESCRIPTOR *ppfd ) -{ - int where = 0; - - ATTRIB_VAL( WGL_DRAW_TO_WINDOW_ARB, GL_TRUE ); - ATTRIB_VAL( WGL_SUPPORT_OPENGL_ARB, GL_TRUE ); - ATTRIB_VAL( WGL_ACCELERATION_ARB, WGL_FULL_ACCELERATION_ARB ); - - ATTRIB_VAL( WGL_COLOR_BITS_ARB, ppfd->cColorBits ); - ATTRIB_VAL( WGL_ALPHA_BITS_ARB, ppfd->cAlphaBits ); - ATTRIB_VAL( WGL_DEPTH_BITS_ARB, ppfd->cDepthBits ); - ATTRIB_VAL( WGL_STENCIL_BITS_ARB, ppfd->cStencilBits ); - - ATTRIB_VAL( WGL_DOUBLE_BUFFER_ARB, ( fgState.DisplayMode & GLUT_DOUBLE ) != 0 ); - - if ( fgState.DisplayMode & GLUT_SRGB ) { - ATTRIB_VAL( WGL_FRAMEBUFFER_SRGB_CAPABLE_ARB, TRUE ); - } - - ATTRIB_VAL( WGL_SAMPLE_BUFFERS_ARB, GL_TRUE ); - ATTRIB_VAL( WGL_SAMPLES_ARB, fgState.SampleNumber ); - ATTRIB( 0 ); -} -#endif - -GLboolean fgSetupPixelFormat( SFG_Window* window, GLboolean checkOnly, - unsigned char layer_type ) -{ -#if defined(_WIN32_WCE) - return GL_TRUE; -#else - PIXELFORMATDESCRIPTOR pfd; - PIXELFORMATDESCRIPTOR* ppfd = &pfd; - int pixelformat; - HDC current_hDC; - GLboolean success; - - if (checkOnly) - current_hDC = CreateDC(TEXT("DISPLAY"), NULL ,NULL ,NULL); - else - current_hDC = window->Window.pContext.Device; - - fghFillPFD( ppfd, current_hDC, layer_type ); - - pixelformat = ChoosePixelFormat( current_hDC, ppfd ); - - /* windows hack for multismapling/sRGB */ - if ( ( fgState.DisplayMode & GLUT_MULTISAMPLE ) || - ( fgState.DisplayMode & GLUT_SRGB ) ) - { - HGLRC rc, rc_before=wglGetCurrentContext(); - HWND hWnd; - HDC hDC, hDC_before=wglGetCurrentDC(); - WNDCLASS wndCls; - - /* create a dummy window */ - ZeroMemory(&wndCls, sizeof(wndCls)); - wndCls.lpfnWndProc = DefWindowProc; - wndCls.hInstance = fgDisplay.pDisplay.Instance; - wndCls.style = CS_OWNDC | CS_HREDRAW | CS_VREDRAW; - wndCls.lpszClassName = _T("FREEGLUT_dummy"); - RegisterClass( &wndCls ); - - hWnd=CreateWindow(_T("FREEGLUT_dummy"), _T(""), WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_OVERLAPPEDWINDOW , 0,0,0,0, 0, 0, fgDisplay.pDisplay.Instance, 0 ); - hDC=GetDC(hWnd); - SetPixelFormat( hDC, pixelformat, ppfd ); - - rc = wglCreateContext( hDC ); - wglMakeCurrent(hDC, rc); - - if ( fghIsExtensionSupported( hDC, "WGL_ARB_multisample" ) ) - { - PFNWGLCHOOSEPIXELFORMATARBPROC wglChoosePixelFormatARBProc = - (PFNWGLCHOOSEPIXELFORMATARBPROC) wglGetProcAddress("wglChoosePixelFormatARB"); - if ( wglChoosePixelFormatARBProc ) - { - int attributes[100]; - int iPixelFormat; - BOOL bValid; - float fAttributes[] = { 0, 0 }; - UINT numFormats; - fghFillPixelFormatAttributes( attributes, ppfd ); - bValid = wglChoosePixelFormatARBProc(hDC, attributes, fAttributes, 1, &iPixelFormat, &numFormats); - - if ( bValid && numFormats > 0 ) - { - pixelformat = iPixelFormat; - } - } - } - - wglMakeCurrent( hDC_before, rc_before); - wglDeleteContext(rc); - ReleaseDC(hWnd, hDC); - DestroyWindow(hWnd); - UnregisterClass(_T("FREEGLUT_dummy"), fgDisplay.pDisplay.Instance); - } - - success = ( pixelformat != 0 ) && ( checkOnly || SetPixelFormat( current_hDC, pixelformat, ppfd ) ); - - if (checkOnly) - DeleteDC(current_hDC); - - return success; -#endif /* defined(_WIN32_WCE) */ -} - - - -void fgPlatformSetWindow ( SFG_Window *window ) -{ - if ( window != fgStructure.CurrentWindow ) - { - if( fgStructure.CurrentWindow ) - ReleaseDC( fgStructure.CurrentWindow->Window.Handle, - fgStructure.CurrentWindow->Window.pContext.Device ); - - if ( window ) - { - window->Window.pContext.Device = GetDC( window->Window.Handle ); - wglMakeCurrent( - window->Window.pContext.Device, - window->Window.Context - ); - } - } -} - - - -/* Computes position of corners of window Rect (outer position including - * decorations) based on the provided client rect and based on the style - * of the window in question. - * If posIsOutside is set to true, the input client Rect is taken to follow - * freeGLUT's window specification convention in which the top-left corner - * is at the outside of the window, while the size - * (rect.right-rect.left,rect.bottom-rect.top) is the size of the drawable - * area. - */ -void fghComputeWindowRectFromClientArea_UseStyle( const DWORD windowStyle, RECT *clientRect, BOOL posIsOutside ) -{ - int xBorderWidth = 0, yBorderWidth = 0; - - /* If window has title bar, correct rect for it */ - if (windowStyle & WS_MAXIMIZEBOX) /* Need to query for WS_MAXIMIZEBOX to see if we have a title bar, the WS_CAPTION query is also true for a WS_DLGFRAME only... */ - if (posIsOutside) - clientRect->bottom += GetSystemMetrics( SM_CYCAPTION ); - else - clientRect->top -= GetSystemMetrics( SM_CYCAPTION ); - - /* get width of window's borders (frame), correct rect for it. - * Note, borders can be of zero width if style does not specify borders - */ - fghGetBorderWidth(windowStyle, &xBorderWidth, &yBorderWidth); - if (posIsOutside) - { - clientRect->right += xBorderWidth * 2; - clientRect->bottom += yBorderWidth * 2; - } - else - { - clientRect->left -= xBorderWidth; - clientRect->right += xBorderWidth; - clientRect->top -= yBorderWidth; - clientRect->bottom += yBorderWidth; - } -} - -/* Computes position of corners of window Rect (outer position including - * decorations) based on the provided client rect and based on the style - * of the window in question. If the window pointer or the window handle - * is NULL, a fully decorated window (caption and border) is assumed. - * Furthermore, if posIsOutside is set to true, the input client Rect is - * taken to follow freeGLUT's window specification convention in which the - * top-left corner is at the outside of the window, while the size - * (rect.right-rect.left,rect.bottom-rect.top) is the size of the drawable - * area. -*/ -void fghComputeWindowRectFromClientArea_QueryWindow( const SFG_Window *window, RECT *clientRect, BOOL posIsOutside ) -{ - DWORD windowStyle = 0; - - if (window && window->Window.Handle) - windowStyle = GetWindowLong(window->Window.Handle, GWL_STYLE); - else - windowStyle = WS_OVERLAPPEDWINDOW; - - fghComputeWindowRectFromClientArea_UseStyle(windowStyle, clientRect, posIsOutside); -} - -/* Computes position of corners of client area (drawable area) of a window - * based on the provided window Rect (outer position including decorations) - * and based on the style of the window in question. If the window pointer - * or the window handle is NULL, a fully decorated window (caption and - * border) is assumed. - * Furthermore, if wantPosOutside is set to true, the output client Rect - * will follow freeGLUT's window specification convention in which the - * top-left corner is at the outside of the window, the size - * (rect.right-rect.left,rect.bottom-rect.top) is the size of the drawable - * area. - */ -void fghComputeClientAreaFromWindowRect( const SFG_Window *window, RECT *windowRect, BOOL wantPosOutside ) -{ - DWORD windowStyle = 0; - int xBorderWidth = 0, yBorderWidth = 0; - - if (window && window->Window.Handle) - windowStyle = GetWindowLong(window->Window.Handle, GWL_STYLE); - else - windowStyle = WS_OVERLAPPEDWINDOW; - - /* If window has title bar, correct rect for it */ - if (windowStyle & WS_MAXIMIZEBOX) /* Need to query for WS_MAXIMIZEBOX to see if we have a title bar, the WS_CAPTION query is also true for a WS_DLGFRAME only... */ - if (wantPosOutside) - windowRect->bottom -= GetSystemMetrics( SM_CYCAPTION ); - else - windowRect->top += GetSystemMetrics( SM_CYCAPTION ); - - /* get width of window's borders (frame), correct rect for it. - * Note, borders can be of zero width if style does not specify borders - */ - fghGetBorderWidth(windowStyle, &xBorderWidth, &yBorderWidth); - if (wantPosOutside) - { - windowRect->right -= xBorderWidth * 2; - windowRect->bottom -= yBorderWidth * 2; - } - else - { - windowRect->left += xBorderWidth; - windowRect->right -= xBorderWidth; - windowRect->top += yBorderWidth; - windowRect->bottom -= yBorderWidth; - } -} - -/* Gets the rect describing the client area (drawable area) of the - * specified window. - * Returns an empty rect if window pointer or window handle is NULL. - * If wantPosOutside is set to true, the output client Rect - * will follow freeGLUT's window specification convention in which the - * top-left corner is at the outside of the window, while the size - * (rect.right-rect.left,rect.bottom-rect.top) is the size of the drawable - * area. - */ -RECT fghGetClientArea( const SFG_Window *window, BOOL wantPosOutside ) -{ - RECT windowRect = {0,0,0,0}; - - freeglut_return_val_if_fail((window && window->Window.Handle),windowRect); - - /* - * call GetWindowRect() - * (this returns the pixel coordinates of the outside of the window) - */ - GetWindowRect( window->Window.Handle, &windowRect ); - - /* Then correct the results */ - fghComputeClientAreaFromWindowRect(window, &windowRect, wantPosOutside); - - return windowRect; -} - -/* Returns the width of the window borders based on the window's style. - */ -void fghGetBorderWidth(const DWORD windowStyle, int* xBorderWidth, int* yBorderWidth) -{ - if (windowStyle & WS_THICKFRAME) - { - *xBorderWidth = GetSystemMetrics(SM_CXSIZEFRAME); - *yBorderWidth = GetSystemMetrics(SM_CYSIZEFRAME); - } - else if (windowStyle & WS_DLGFRAME) - { - *xBorderWidth = GetSystemMetrics(SM_CXFIXEDFRAME); - *yBorderWidth = GetSystemMetrics(SM_CYFIXEDFRAME); - } - else - { - *xBorderWidth = 0; - *yBorderWidth = 0; - } -} - -#if(WINVER >= 0x500) -typedef struct -{ - int *x; - int *y; - const char *name; -} m_proc_t; - -static BOOL CALLBACK m_proc(HMONITOR mon, - HDC hdc, - LPRECT rect, - LPARAM data) -{ - m_proc_t *dp=(m_proc_t *)data; - MONITORINFOEX info; - BOOL res; - info.cbSize=sizeof(info); - res=GetMonitorInfo(mon,(LPMONITORINFO)&info); - if( res ) - { - if( strcmp(dp->name,info.szDevice)==0 ) - { - *(dp->x)=info.rcMonitor.left; - *(dp->y)=info.rcMonitor.top; - return FALSE; - } - } - return TRUE; -} - -/* - * this function returns the origin of the screen identified by - * fgDisplay.pDisplay.DisplayName, and 0 otherwise. - * This is used in fgOpenWindow to open the gamemode window on the screen - * identified by the -display command line argument. The function should - * not be called otherwise. - */ - -static void get_display_origin(int *xp,int *yp) -{ - *xp = 0; - *yp = 0; - - if( fgDisplay.pDisplay.DisplayName ) - { - m_proc_t st; - st.x=xp; - st.y=yp; - st.name=fgDisplay.pDisplay.DisplayName; - EnumDisplayMonitors(0,0,m_proc,(LPARAM)&st); - } -} -#else -#pragma message( "-display parameter only works if compiled with WINVER >= 0x0500") - -static void get_display_origin(int *xp,int *yp) -{ - *xp = 0; - *yp = 0; - - if( fgDisplay.pDisplay.DisplayName ) - { - fgWarning( "for working -display support FreeGLUT must be compiled with WINVER >= 0x0500"); - } -} -#endif - - - -/* - * Opens a window. Requires a SFG_Window object created and attached - * to the freeglut structure. OpenGL context is created here. - */ -void fgPlatformOpenWindow( SFG_Window* window, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isSubWindow ) -{ - - WNDCLASS wc; - DWORD flags = 0; - DWORD exFlags = 0; - ATOM atom; - - /* Grab the window class we have registered on glutInit(): */ - atom = GetClassInfo( fgDisplay.pDisplay.Instance, _T("FREEGLUT"), &wc ); - FREEGLUT_INTERNAL_ERROR_EXIT ( atom, "Window Class Info Not Found", - "fgOpenWindow" ); - - /* Determine window style flags*/ - if( gameMode ) - { - FREEGLUT_INTERNAL_ERROR_EXIT ( window->Parent == NULL, - "Game mode being invoked on a subwindow", - "fgOpenWindow" ); - - /* - * Set the window creation flags appropriately to make the window - * entirely visible: - */ - flags = WS_POPUP | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_VISIBLE; - } - else - { - flags = WS_CLIPSIBLINGS | WS_CLIPCHILDREN; - - /* - * There's a small difference between creating the top, child and - * menu windows - */ - if ( window->IsMenu ) - { - flags |= WS_POPUP; - exFlags |= WS_EX_TOOLWINDOW; - } -#if defined(_WIN32_WCE) - /* no decorations for windows CE */ -#else - /* if this is not a subwindow (child), set its style based on the requested display mode */ - else if( window->Parent == NULL ) - if ( fgState.DisplayMode & GLUT_BORDERLESS ) - { - /* no window decorations needed */ - } - else if ( fgState.DisplayMode & GLUT_CAPTIONLESS ) - /* only window decoration is a border, no title bar or buttons */ - flags |= WS_DLGFRAME; - else - /* window decoration are a border, title bar and buttons. - * NB: we later query whether the window has a title bar or - * not by testing for the maximize button, as the test for - * WS_CAPTION can be true without the window having a title - * bar. This style WS_OVERLAPPEDWINDOW gives you a maximize - * button. */ - flags |= WS_OVERLAPPEDWINDOW; -#endif - else - /* subwindows always have no decoration, but are marked as a child window to the OS */ - flags |= WS_CHILD; - } - - /* determine window size and position */ - if( gameMode ) - { - /* if in gamemode, query the origin of specified by the -display - * command line parameter (if any) and offset the upper-left corner - * of the window so we create the window on that screen. - * The -display argument doesn't do anything if not trying to enter - * gamemode. - */ - int xoff=0, yoff=0; - get_display_origin(&xoff,&yoff); - x += xoff; - y += yoff; - } - if( !positionUse ) - { - x = CW_USEDEFAULT; - y = CW_USEDEFAULT; - } - if( !sizeUse ) - { - if( ! window->IsMenu ) - { - w = CW_USEDEFAULT; - h = CW_USEDEFAULT; - } - else /* fail safe - Windows can make a window of size (0, 0) */ - w = h = 300; /* default window size */ - } - /* store requested client area width and height */ - window->State.Width = w; - window->State.Height = h; - -#if !defined(_WIN32_WCE) /* no decorations for windows CE */ - if( sizeUse ) - { - RECT windowRect; - /* - * Update the window dimensions, taking the window decorations - * into account. FreeGLUT is to create the window with the - * topleft outside corner at (x,y) and with client area - * dimensions (w,h). - * note: don't need to do this when w=h=CW_USEDEFAULT, so in the - * if( sizeUse ) here is convenient. - */ - windowRect.left = x; - windowRect.top = y; - windowRect.right = x+w; - windowRect.bottom = y+h; - - fghComputeWindowRectFromClientArea_UseStyle(flags,&windowRect,TRUE); - - w = windowRect.right - windowRect.left; - h = windowRect.bottom- windowRect.top; - } -#endif /* !defined(_WIN32_WCE) */ - -#if defined(_WIN32_WCE) - { - wchar_t* wstr = fghWstrFromStr(title); - - window->Window.Handle = CreateWindow( - _T("FREEGLUT"), - wstr, - WS_VISIBLE | WS_POPUP, - 0,0, 240,320, - NULL, - NULL, - fgDisplay.pDisplay.Instance, - (LPVOID) window - ); - - free(wstr); - - SHFullScreen(window->Window.Handle, SHFS_HIDESTARTICON); - SHFullScreen(window->Window.Handle, SHFS_HIDESIPBUTTON); - SHFullScreen(window->Window.Handle, SHFS_HIDETASKBAR); - MoveWindow(window->Window.Handle, 0, 0, 240, 320, TRUE); - ShowWindow(window->Window.Handle, SW_SHOW); - UpdateWindow(window->Window.Handle); - } -#else - window->Window.Handle = CreateWindowEx( - exFlags, - _T("FREEGLUT"), - title, - flags, - x, y, w, h, - (HWND) window->Parent == NULL ? NULL : window->Parent->Window.Handle, - (HMENU) NULL, - fgDisplay.pDisplay.Instance, - (LPVOID) window - ); -#endif /* defined(_WIN32_WCE) */ - - if( !( window->Window.Handle ) ) - fgError( "Failed to create a window (%s)!", title ); - -#if !defined(_WIN32_WCE) - /* Need to set requested style again, apparently Windows doesn't listen when requesting windows without title bar or borders */ - SetWindowLong(window->Window.Handle, GWL_STYLE, flags); - SetWindowPos(window->Window.Handle, HWND_TOP, 0,0,0,0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED); -#endif /* defined(_WIN32_WCE) */ - - /* Make a menu window always on top - fix Feature Request 947118 */ - if( window->IsMenu || gameMode ) - SetWindowPos( - window->Window.Handle, - HWND_TOPMOST, - 0, 0, 0, 0, - SWP_NOMOVE | SWP_NOSIZE - ); - - /* Enable multitouch: additional flag TWF_FINETOUCH, TWF_WANTPALM */ - #ifdef WM_TOUCH - if (fghRegisterTouchWindow == (pRegisterTouchWindow)0xDEADBEEF) - fghRegisterTouchWindow = (pRegisterTouchWindow)GetProcAddress(GetModuleHandle("user32"),"RegisterTouchWindow"); - if (fghRegisterTouchWindow) - fghRegisterTouchWindow( window->Window.Handle, TWF_FINETOUCH | TWF_WANTPALM ); - #endif - -#if defined(_WIN32_WCE) - ShowWindow( window->Window.Handle, SW_SHOW ); -#else - ShowWindow( window->Window.Handle, - fgState.ForceIconic ? SW_SHOWMINIMIZED : SW_SHOW ); -#endif /* defined(_WIN32_WCE) */ - - UpdateWindow( window->Window.Handle ); - ShowCursor( TRUE ); /* XXX Old comments say "hide cursor"! */ - -} - - -/* - * Closes a window, destroying the frame and OpenGL context - */ -void fgPlatformCloseWindow( SFG_Window* window ) -{ - /* Make sure we don't close a window with current context active */ - if( fgStructure.CurrentWindow == window ) - wglMakeCurrent( NULL, NULL ); - - /* - * Step through the list of windows. If the rendering context - * is not being used by another window, then we delete it. - */ - { - int used = FALSE ; - SFG_Window *iter ; - - for( iter = (SFG_Window *)fgStructure.Windows.First; - iter; - iter = (SFG_Window *)iter->Node.Next ) - { - if( ( iter->Window.Context == window->Window.Context ) && - ( iter != window ) ) - used = TRUE; - } - - if( ! used ) - wglDeleteContext( window->Window.Context ); - } - - DestroyWindow( window->Window.Handle ); -} - - - -/* - * This function makes the current window visible - */ -void fgPlatformGlutShowWindow( void ) -{ - ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_SHOW ); -} - -/* - * This function hides the current window - */ -void fgPlatformGlutHideWindow( void ) -{ - ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_HIDE ); -} - -/* - * Iconify the current window (top-level windows only) - */ -void fgPlatformGlutIconifyWindow( void ) -{ - ShowWindow( fgStructure.CurrentWindow->Window.Handle, SW_MINIMIZE ); -} - -/* - * Set the current window's title - */ -void fgPlatformGlutSetWindowTitle( const char* title ) -{ -#ifdef _WIN32_WCE - { - wchar_t* wstr = fghWstrFromStr(title); - SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr ); - free(wstr); - } -#else - SetWindowText( fgStructure.CurrentWindow->Window.Handle, title ); -#endif -} - -/* - * Set the current window's iconified title - */ -void fgPlatformGlutSetIconTitle( const char* title ) -{ -#ifdef _WIN32_WCE - { - wchar_t* wstr = fghWstrFromStr(title); - SetWindowText( fgStructure.CurrentWindow->Window.Handle, wstr ); - free(wstr); - } -#else - SetWindowText( fgStructure.CurrentWindow->Window.Handle, title ); -#endif -} - -/* - * Change the current window's position - */ -void fgPlatformGlutPositionWindow( int x, int y ) -{ - RECT winRect; - - /* "GetWindowRect" returns the pixel coordinates of the outside of the window */ - GetWindowRect( fgStructure.CurrentWindow->Window.Handle, &winRect ); - MoveWindow( - fgStructure.CurrentWindow->Window.Handle, - x, - y, - winRect.right - winRect.left, - winRect.bottom - winRect.top, - TRUE - ); -} - -/* - * Lowers the current window (by Z order change) - */ -void fgPlatformGlutPushWindow( void ) -{ - SetWindowPos( - fgStructure.CurrentWindow->Window.Handle, - HWND_BOTTOM, - 0, 0, 0, 0, - SWP_NOSIZE | SWP_NOMOVE - ); -} - -/* - * Raises the current window (by Z order change) - */ -void fgPlatformGlutPopWindow( void ) -{ - SetWindowPos( - fgStructure.CurrentWindow->Window.Handle, - HWND_TOP, - 0, 0, 0, 0, - SWP_NOSIZE | SWP_NOMOVE - ); -} - -/* - * Resize the current window so that it fits the whole screen - */ -void fgPlatformGlutFullScreen( SFG_Window *win ) -{ -#if !defined(_WIN32_WCE) /* FIXME: what about WinCE */ - - if (glutGet(GLUT_FULL_SCREEN)) - { - /* Leave full screen state before entering fullscreen again (resizing?) */ - glutLeaveFullScreen(); - } - - { -#if(WINVER >= 0x0500) /* Windows 2000 or later */ - DWORD s; - RECT rect; - HMONITOR hMonitor; - MONITORINFO mi; - - /* For fullscreen mode, first remove all window decoration - * and set style to popup so it will overlap the taskbar - * then force to maximize on the screen on which it has the most - * overlap. - */ - - - /* store current window rect */ - GetWindowRect( win->Window.Handle, &win->State.pWState.OldRect ); - - /* store current window style */ - win->State.pWState.OldStyle = s = GetWindowLong(win->Window.Handle, GWL_STYLE); - - /* remove decorations from style and add popup style*/ - s &= ~WS_OVERLAPPEDWINDOW; - s |= WS_POPUP; - SetWindowLong(win->Window.Handle, GWL_STYLE, s); - SetWindowPos(win->Window.Handle, HWND_TOP, 0,0,0,0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED); - - /* For fullscreen mode, find the monitor that is covered the most - * by the window and get its rect as the resize target. - */ - hMonitor= MonitorFromRect(&win->State.pWState.OldRect, MONITOR_DEFAULTTONEAREST); - mi.cbSize = sizeof(mi); - GetMonitorInfo(hMonitor, &mi); - rect = mi.rcMonitor; -#else /* if (WINVER >= 0x0500) */ - RECT rect; - - /* For fullscreen mode, force the top-left corner to 0,0 - * and adjust the window rectangle so that the client area - * covers the whole screen. - */ - - rect.left = 0; - rect.top = 0; - rect.right = fgDisplay.ScreenWidth; - rect.bottom = fgDisplay.ScreenHeight; - - AdjustWindowRect ( &rect, WS_OVERLAPPEDWINDOW | WS_CLIPSIBLINGS | - WS_CLIPCHILDREN, FALSE ); -#endif /* (WINVER >= 0x0500) */ - - /* - * then resize window - * SWP_NOACTIVATE Do not activate the window - * SWP_NOOWNERZORDER Do not change position in z-order - * SWP_NOSENDCHANGING Suppress WM_WINDOWPOSCHANGING message - * SWP_NOZORDER Retains the current Z order (ignore 2nd param) - */ - SetWindowPos( fgStructure.CurrentWindow->Window.Handle, - HWND_TOP, - rect.left, - rect.top, - rect.right - rect.left, - rect.bottom - rect.top, - SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING | - SWP_NOZORDER - ); - - win->State.IsFullscreen = GL_TRUE; - } -#endif -} - -/* - * If we are fullscreen, resize the current window back to its original size - */ -void fgPlatformGlutLeaveFullScreen( SFG_Window *win ) -{ -#if !defined(_WIN32_WCE) /* FIXME: what about WinCE */ - if (!glutGet(GLUT_FULL_SCREEN)) - { - /* nothing to do */ - return; - } - - /* restore style of window before making it fullscreen */ - SetWindowLong(win->Window.Handle, GWL_STYLE, win->State.pWState.OldStyle); - SetWindowPos(win->Window.Handle, HWND_TOP, 0,0,0,0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED); - - /* Then resize */ - SetWindowPos(win->Window.Handle, - HWND_TOP, - win->State.pWState.OldRect.left, - win->State.pWState.OldRect.top, - win->State.pWState.OldRect.right - win->State.pWState.OldRect.left, - win->State.pWState.OldRect.bottom - win->State.pWState.OldRect.top, - SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOSENDCHANGING | - SWP_NOZORDER - ); - - win->State.IsFullscreen = GL_FALSE; -#endif -} - -/* - * Toggle the window's full screen state. - */ -void fgPlatformGlutFullScreenToggle( SFG_Window *win ) -{ - if (!win->State.IsFullscreen) - glutFullScreen(); - else - glutLeaveFullScreen(); -} - - -/* -- PLATFORM-SPECIFIC INTERFACE FUNCTION -------------------------------------------------- */ - -int FGAPIENTRY __glutCreateWindowWithExit( const char *title, void (__cdecl *exit_function)(int) ) -{ - __glutExitFunc = exit_function; - return glutCreateWindow( title ); -} - diff --git a/internal/c/parts/core/android_core/src/util/xparsegeometry_repl.c b/internal/c/parts/core/android_core/src/util/xparsegeometry_repl.c deleted file mode 100644 index 332c73a26..000000000 --- a/internal/c/parts/core/android_core/src/util/xparsegeometry_repl.c +++ /dev/null @@ -1,162 +0,0 @@ -#include - -/* - * Everything down to the end of the next two functions is copied from the X sources. - */ - -/* - -Copyright 1985, 1986, 1987,1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included -in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall -not be used in advertising or otherwise to promote the sale, use or -other dealings in this Software without prior written authorization -from The Open Group. - -*/ - -#include "xparsegeometry_repl.h" - -/* - * XParseGeometry parses strings of the form - * "=x{+-}{+-}", where - * width, height, xoffset, and yoffset are unsigned integers. - * Example: "=80x24+300-49" - * The equal sign is optional. - * It returns a bitmask that indicates which of the four values - * were actually found in the string. For each value found, - * the corresponding argument is updated; for each value - * not found, the corresponding argument is left unchanged. - */ - -static int -ReadInteger(char *string, char **NextString) -{ - register int Result = 0; - int Sign = 1; - - if (*string == '+') - string++; - else if (*string == '-') - { - string++; - Sign = -1; - } - for (; (*string >= '0') && (*string <= '9'); string++) - { - Result = (Result * 10) + (*string - '0'); - } - *NextString = string; - if (Sign >= 0) - return Result; - else - return -Result; -} - -int XParseGeometry ( - const char *string, - int *x, - int *y, - unsigned int *width, /* RETURN */ - unsigned int *height) /* RETURN */ -{ - int mask = NoValue; - register char *strind; - unsigned int tempWidth = 0, tempHeight = 0; - int tempX = 0, tempY = 0; - char *nextCharacter; - - if ( (string == NULL) || (*string == '\0')) - return mask; - if (*string == '=') - string++; /* ignore possible '=' at beg of geometry spec */ - - strind = (char *)string; - if (*strind != '+' && *strind != '-' && *strind != 'x') { - tempWidth = ReadInteger(strind, &nextCharacter); - if (strind == nextCharacter) - return 0; - strind = nextCharacter; - mask |= WidthValue; - } - - if (*strind == 'x' || *strind == 'X') { - strind++; - tempHeight = ReadInteger(strind, &nextCharacter); - if (strind == nextCharacter) - return 0; - strind = nextCharacter; - mask |= HeightValue; - } - - if ((*strind == '+') || (*strind == '-')) { - if (*strind == '-') { - strind++; - tempX = -ReadInteger(strind, &nextCharacter); - if (strind == nextCharacter) - return 0; - strind = nextCharacter; - mask |= XNegative; - } - else - { - strind++; - tempX = ReadInteger(strind, &nextCharacter); - if (strind == nextCharacter) - return 0; - strind = nextCharacter; - } - mask |= XValue; - if ((*strind == '+') || (*strind == '-')) { - if (*strind == '-') { - strind++; - tempY = -ReadInteger(strind, &nextCharacter); - if (strind == nextCharacter) - return 0; - strind = nextCharacter; - mask |= YNegative; - } - else - { - strind++; - tempY = ReadInteger(strind, &nextCharacter); - if (strind == nextCharacter) - return 0; - strind = nextCharacter; - } - mask |= YValue; - } - } - - /* If strind isn't at the end of the string the it's an invalid - geometry specification. */ - - if (*strind != '\0') return 0; - - if (mask & XValue) - *x = tempX; - if (mask & YValue) - *y = tempY; - if (mask & WidthValue) - *width = tempWidth; - if (mask & HeightValue) - *height = tempHeight; - return mask; -} diff --git a/internal/c/parts/core/android_core/src/util/xparsegeometry_repl.h b/internal/c/parts/core/android_core/src/util/xparsegeometry_repl.h deleted file mode 100644 index 926716403..000000000 --- a/internal/c/parts/core/android_core/src/util/xparsegeometry_repl.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Copied from the X sources. - */ - -/* - -Copyright 1985, 1986, 1987,1998 The Open Group - -Permission to use, copy, modify, distribute, and sell this software and its -documentation for any purpose is hereby granted without fee, provided that -the above copyright notice appear in all copies and that both that -copyright notice and this permission notice appear in supporting -documentation. - -The above copyright notice and this permission notice shall be included -in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall -not be used in advertising or otherwise to promote the sale, use or -other dealings in this Software without prior written authorization -from The Open Group. - -*/ - -#ifndef XPARSEGEOMETRY_REPL_H -#define XPARSEGEOMETRY_REPL_H - -#define NoValue 0x0000 -#define XValue 0x0001 -#define YValue 0x0002 -#define WidthValue 0x0004 -#define HeightValue 0x0008 -#define AllValues 0x000F -#define XNegative 0x0010 -#define YNegative 0x0020 - -extern int XParseGeometry (const char *string, /* INPUT */ - int *x, int *y, /* RETURN */ - unsigned int *width, unsigned int *height); /* RETURN */ - - -#endif diff --git a/internal/c/parts/core/android_core/src/x11/fg_cursor_x11.c b/internal/c/parts/core/android_core/src/x11/fg_cursor_x11.c deleted file mode 100644 index 1deee241b..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_cursor_x11.c +++ /dev/null @@ -1,151 +0,0 @@ -/* - * freeglut_cursor_x11.c - * - * The Windows-specific mouse cursor related stuff. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sun Feb 5, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -/* This code is for Posix/X11, Solaris, and OSX */ -#include - -/* - * A factory method for an empty cursor - */ -static Cursor getEmptyCursor( void ) -{ - static Cursor cursorNone = None; - if( cursorNone == None ) { - char cursorNoneBits[ 32 ]; - XColor dontCare; - Pixmap cursorNonePixmap; - memset( cursorNoneBits, 0, sizeof( cursorNoneBits ) ); - memset( &dontCare, 0, sizeof( dontCare ) ); - cursorNonePixmap = XCreateBitmapFromData ( fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.RootWindow, - cursorNoneBits, 16, 16 ); - if( cursorNonePixmap != None ) { - cursorNone = XCreatePixmapCursor( fgDisplay.pDisplay.Display, - cursorNonePixmap, cursorNonePixmap, - &dontCare, &dontCare, 0, 0 ); - XFreePixmap( fgDisplay.pDisplay.Display, cursorNonePixmap ); - } - } - return cursorNone; -} - -typedef struct tag_cursorCacheEntry cursorCacheEntry; -struct tag_cursorCacheEntry { - unsigned int cursorShape; /* an XC_foo value */ - Cursor cachedCursor; /* None if the corresponding cursor has - not been created yet */ -}; - -/* - * Note: The arrangement of the table below depends on the fact that - * the "normal" GLUT_CURSOR_* values start a 0 and are consecutive. - */ -static cursorCacheEntry cursorCache[] = { - { XC_arrow, None }, /* GLUT_CURSOR_RIGHT_ARROW */ - { XC_top_left_arrow, None }, /* GLUT_CURSOR_LEFT_ARROW */ - { XC_hand1, None }, /* GLUT_CURSOR_INFO */ - { XC_pirate, None }, /* GLUT_CURSOR_DESTROY */ - { XC_question_arrow, None }, /* GLUT_CURSOR_HELP */ - { XC_exchange, None }, /* GLUT_CURSOR_CYCLE */ - { XC_spraycan, None }, /* GLUT_CURSOR_SPRAY */ - { XC_watch, None }, /* GLUT_CURSOR_WAIT */ - { XC_xterm, None }, /* GLUT_CURSOR_TEXT */ - { XC_crosshair, None }, /* GLUT_CURSOR_CROSSHAIR */ - { XC_sb_v_double_arrow, None }, /* GLUT_CURSOR_UP_DOWN */ - { XC_sb_h_double_arrow, None }, /* GLUT_CURSOR_LEFT_RIGHT */ - { XC_top_side, None }, /* GLUT_CURSOR_TOP_SIDE */ - { XC_bottom_side, None }, /* GLUT_CURSOR_BOTTOM_SIDE */ - { XC_left_side, None }, /* GLUT_CURSOR_LEFT_SIDE */ - { XC_right_side, None }, /* GLUT_CURSOR_RIGHT_SIDE */ - { XC_top_left_corner, None }, /* GLUT_CURSOR_TOP_LEFT_CORNER */ - { XC_top_right_corner, None }, /* GLUT_CURSOR_TOP_RIGHT_CORNER */ - { XC_bottom_right_corner, None }, /* GLUT_CURSOR_BOTTOM_RIGHT_CORNER */ - { XC_bottom_left_corner, None } /* GLUT_CURSOR_BOTTOM_LEFT_CORNER */ -}; - -void fgPlatformSetCursor ( SFG_Window *window, int cursorID ) -{ - Cursor cursor; - /* - * XXX FULL_CROSSHAIR demotes to plain CROSSHAIR. Old GLUT allows - * for this, but if there is a system that easily supports a full- - * window (or full-screen) crosshair, we might consider it. - */ - int cursorIDToUse = - ( cursorID == GLUT_CURSOR_FULL_CROSSHAIR ) ? GLUT_CURSOR_CROSSHAIR : cursorID; - - if( ( cursorIDToUse >= 0 ) && - ( cursorIDToUse < sizeof( cursorCache ) / sizeof( cursorCache[0] ) ) ) { - cursorCacheEntry *entry = &cursorCache[ cursorIDToUse ]; - if( entry->cachedCursor == None ) { - entry->cachedCursor = - XCreateFontCursor( fgDisplay.pDisplay.Display, entry->cursorShape ); - } - cursor = entry->cachedCursor; - } else { - switch( cursorIDToUse ) - { - case GLUT_CURSOR_NONE: - cursor = getEmptyCursor( ); - break; - - case GLUT_CURSOR_INHERIT: - cursor = None; - break; - - default: - fgError( "Unknown cursor type: %d", cursorIDToUse ); - return; - } - } - - if ( cursorIDToUse == GLUT_CURSOR_INHERIT ) { - XUndefineCursor( fgDisplay.pDisplay.Display, window->Window.Handle ); - } else if ( cursor != None ) { - XDefineCursor( fgDisplay.pDisplay.Display, window->Window.Handle, cursor ); - } else if ( cursorIDToUse != GLUT_CURSOR_NONE ) { - fgError( "Failed to create cursor" ); - } -} - - -void fgPlatformWarpPointer ( int x, int y ) -{ - XWarpPointer( - fgDisplay.pDisplay.Display, - None, - fgStructure.CurrentWindow->Window.Handle, - 0, 0, 0, 0, - x, y - ); - /* Make the warp visible immediately. */ - XFlush( fgDisplay.pDisplay.Display ); -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_display_x11.c b/internal/c/parts/core/android_core/src/x11/fg_display_x11.c deleted file mode 100644 index e7429b515..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_display_x11.c +++ /dev/null @@ -1,36 +0,0 @@ -/* - * freeglut_display_x11.c - * - * Display message posting, context buffer swapping. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -void fgPlatformGlutSwapBuffers( SFG_PlatformDisplay *pDisplayPtr, SFG_Window* CurrentWindow ) -{ - glXSwapBuffers( pDisplayPtr->Display, CurrentWindow->Window.Handle ); -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_ext_x11.c b/internal/c/parts/core/android_core/src/x11/fg_ext_x11.c deleted file mode 100644 index c821eb0cb..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_ext_x11.c +++ /dev/null @@ -1,60 +0,0 @@ -/* - * freeglut_ext.c - * - * Functions related to OpenGL extensions. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define GLX_GLXEXT_PROTOTYPES -#include -#include "../fg_internal.h" - -GLUTproc fgPlatformGetGLUTProcAddress( const char* procName ) -{ - /* optimization: quick initial check */ - if( strncmp( procName, "glut", 4 ) != 0 ) - return NULL; - -#define CHECK_NAME(x) if( strcmp( procName, #x ) == 0) return (GLUTproc)x; - CHECK_NAME(glutJoystickFunc); - CHECK_NAME(glutForceJoystickFunc); - CHECK_NAME(glutGameModeString); - CHECK_NAME(glutEnterGameMode); - CHECK_NAME(glutLeaveGameMode); - CHECK_NAME(glutGameModeGet); -#undef CHECK_NAME - - return NULL; -} - - -SFG_Proc fgPlatformGetProcAddress( const char *procName ) -{ -#if defined( GLX_ARB_get_proc_address ) - return (SFG_Proc)glXGetProcAddressARB( ( const GLubyte * )procName ); -#else - return NULL; -#endif -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_gamemode_x11.c b/internal/c/parts/core/android_core/src/x11/fg_gamemode_x11.c deleted file mode 100644 index d218774ad..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_gamemode_x11.c +++ /dev/null @@ -1,571 +0,0 @@ -/* - * freeglut_gamemode_x11.c - * - * The game mode handling code. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -static int xrandr_resize(int xsz, int ysz, int rate, int just_checking) -{ -#ifdef HAVE_X11_EXTENSIONS_XRANDR_H - int event_base, error_base, ver_major, ver_minor, use_rate; - XRRScreenConfiguration *xrr_config = 0; - Status result = -1; - - /* must check at runtime for the availability of the extension */ - if(!XRRQueryExtension(fgDisplay.pDisplay.Display, &event_base, &error_base)) { - return -1; - } - - XRRQueryVersion(fgDisplay.pDisplay.Display, &ver_major, &ver_minor); - - /* we only heed the rate if we CAN actually use it (Xrandr >= 1.1) and - * the user actually cares about it (rate > 0) - */ - use_rate = ( rate > 0 ) && ( ( ver_major >= 1 ) || - ( ( ver_major == 1 ) && ( ver_minor >= 1 ) ) ); - - /* this loop is only so that the whole thing will be repeated if someone - * else changes video mode between our query of the current information and - * the attempt to change it. - */ - do { - XRRScreenSize *ssizes; - short *rates; - Rotation rot; - int i, ssizes_count, rates_count, curr, res_idx = -1; - Time timestamp, cfg_timestamp; - - if(xrr_config) { - XRRFreeScreenConfigInfo(xrr_config); - } - - if(!(xrr_config = XRRGetScreenInfo(fgDisplay.pDisplay.Display, fgDisplay.pDisplay.RootWindow))) { - fgWarning("XRRGetScreenInfo failed"); - break; - } - ssizes = XRRConfigSizes(xrr_config, &ssizes_count); - curr = XRRConfigCurrentConfiguration(xrr_config, &rot); - timestamp = XRRConfigTimes(xrr_config, &cfg_timestamp); - - /* if either of xsz or ysz are unspecified, use the current values */ - if(xsz <= 0) - xsz = fgState.GameModeSize.X = ssizes[curr].width; - if(ysz <= 0) - ysz = fgState.GameModeSize.Y = ssizes[curr].height; - - - if(xsz == ssizes[curr].width && ysz == ssizes[curr].height) { - /* no need to switch, we're already in the requested resolution */ - res_idx = curr; - } else { - for(i=0; i= 1 ) || ( ( RANDR_MAJOR == 1 ) && ( RANDR_MINOR >= 1 ) ) - if(use_rate) { - rate = fgState.GameModeRefresh; - - /* for the selected resolution, let's find out if there is - * a matching refresh rate available. - */ - rates = XRRConfigRates(xrr_config, res_idx, &rates_count); - - for(i=0; i= 1 ) || ( ( RANDR_MAJOR == 1 ) && ( RANDR_MINOR >= 1 ) ) - if(use_rate) - result = XRRSetScreenConfigAndRate(fgDisplay.pDisplay.Display, xrr_config, - fgDisplay.pDisplay.RootWindow, res_idx, rot, rate, timestamp); - else -#endif - result = XRRSetScreenConfig(fgDisplay.pDisplay.Display, xrr_config, - fgDisplay.pDisplay.RootWindow, res_idx, rot, timestamp); - - } while(result == RRSetConfigInvalidTime); - - if(xrr_config) { - XRRFreeScreenConfigInfo(xrr_config); - } - - if(result == 0) { - return 0; - } - -#endif /* HAVE_X11_EXTENSIONS_XRANDR_H */ - return -1; -} - -/* - * Remembers the current visual settings, so that - * we can change them and restore later... - */ -void fgPlatformRememberState( void ) -{ - int event_base, error_base; - - /* - * Remember the current pointer location before going fullscreen - * for restoring it later: - */ - Window junk_window; - unsigned int junk_mask; - - XQueryPointer(fgDisplay.pDisplay.Display, fgDisplay.pDisplay.RootWindow, - &junk_window, &junk_window, - &fgDisplay.pDisplay.DisplayPointerX, &fgDisplay.pDisplay.DisplayPointerY, - &fgDisplay.pDisplay.DisplayPointerX, &fgDisplay.pDisplay.DisplayPointerY, &junk_mask); - -# ifdef HAVE_X11_EXTENSIONS_XRANDR_H - if(XRRQueryExtension(fgDisplay.pDisplay.Display, &event_base, &error_base)) { - XRRScreenConfiguration *xrr_config; - XRRScreenSize *ssizes; - Rotation rot; - int ssize_count, curr; - - if((xrr_config = XRRGetScreenInfo(fgDisplay.pDisplay.Display, fgDisplay.pDisplay.RootWindow))) { - ssizes = XRRConfigSizes(xrr_config, &ssize_count); - curr = XRRConfigCurrentConfiguration(xrr_config, &rot); - - fgDisplay.pDisplay.prev_xsz = ssizes[curr].width; - fgDisplay.pDisplay.prev_ysz = ssizes[curr].height; - fgDisplay.pDisplay.prev_refresh = -1; - -# if ( RANDR_MAJOR >= 1 ) || ( ( RANDR_MAJOR == 1 ) && ( RANDR_MINOR >= 1 ) ) - if(fgState.GameModeRefresh != -1) { - fgDisplay.pDisplay.prev_refresh = XRRConfigCurrentRate(xrr_config); - } -# endif - - fgDisplay.pDisplay.prev_size_valid = 1; - - XRRFreeScreenConfigInfo(xrr_config); - } - } -# endif - - /* - * This highly depends on the XFree86 extensions, - * not approved as X Consortium standards - */ -# ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - if(!XF86VidModeQueryExtension(fgDisplay.pDisplay.Display, &event_base, &error_base)) { - return; - } - - /* - * Remember the current ViewPort location of the screen to be able to - * restore the ViewPort on LeaveGameMode(): - */ - if( !XF86VidModeGetViewPort( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - &fgDisplay.pDisplay.DisplayViewPortX, - &fgDisplay.pDisplay.DisplayViewPortY ) ) - fgWarning( "XF86VidModeGetViewPort failed" ); - - - /* Query the current display settings: */ - fgDisplay.pDisplay.DisplayModeValid = - XF86VidModeGetModeLine( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - &fgDisplay.pDisplay.DisplayModeClock, - &fgDisplay.pDisplay.DisplayMode - ); - - if( !fgDisplay.pDisplay.DisplayModeValid ) - fgWarning( "XF86VidModeGetModeLine failed" ); -# endif - -} - -/* - * Restores the previously remembered visual settings - */ -void fgPlatformRestoreState( void ) -{ - /* Restore the remembered pointer position: */ - XWarpPointer( - fgDisplay.pDisplay.Display, None, fgDisplay.pDisplay.RootWindow, 0, 0, 0, 0, - fgDisplay.pDisplay.DisplayPointerX, fgDisplay.pDisplay.DisplayPointerY - ); - - -# ifdef HAVE_X11_EXTENSIONS_XRANDR_H - if(fgDisplay.pDisplay.prev_size_valid) { - if(xrandr_resize(fgDisplay.pDisplay.prev_xsz, fgDisplay.pDisplay.prev_ysz, fgDisplay.pDisplay.prev_refresh, 0) != -1) { - fgDisplay.pDisplay.prev_size_valid = 0; -# ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - fgDisplay.pDisplay.DisplayModeValid = 0; -# endif - return; - } - } -# endif - - - -# ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - /* - * This highly depends on the XFree86 extensions, - * not approved as X Consortium standards - */ - - if( fgDisplay.pDisplay.DisplayModeValid ) - { - XF86VidModeModeInfo** displayModes; - int i, displayModesCount; - - if( !XF86VidModeGetAllModeLines( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - &displayModesCount, - &displayModes ) ) - { - fgWarning( "XF86VidModeGetAllModeLines failed" ); - return; - } - - - /* - * Check every of the modes looking for one that matches our demands. - * If we find one, switch to it and restore the remembered viewport. - */ - for( i = 0; i < displayModesCount; i++ ) - { - if(displayModes[ i ]->hdisplay == fgDisplay.pDisplay.DisplayMode.hdisplay && - displayModes[ i ]->vdisplay == fgDisplay.pDisplay.DisplayMode.vdisplay && - displayModes[ i ]->dotclock == fgDisplay.pDisplay.DisplayModeClock ) - { - if( !XF86VidModeSwitchToMode( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - displayModes[ i ] ) ) - { - fgWarning( "XF86VidModeSwitchToMode failed" ); - break; - } - - if( !XF86VidModeSetViewPort( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - fgDisplay.pDisplay.DisplayViewPortX, - fgDisplay.pDisplay.DisplayViewPortY ) ) - fgWarning( "XF86VidModeSetViewPort failed" ); - - - /* - * For the case this would be the last X11 call the application - * calls exit() we've to flush the X11 output queue to have the - * commands sent to the X server before the application exits. - */ - XFlush( fgDisplay.pDisplay.Display ); - - fgDisplay.pDisplay.DisplayModeValid = 0; -# ifdef HAVE_X11_EXTENSIONS_XRANDR_H - fgDisplay.pDisplay.prev_size_valid = 0; -# endif - - break; - } - } - XFree( displayModes ); - } - -# endif - -} - -#ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - -/* - * Checks a single display mode settings against user's preferences. - */ -static GLboolean fghCheckDisplayMode( int width, int height, int depth, int refresh ) -{ - /* The desired values should be stored in fgState structure... */ - return ( width == fgState.GameModeSize.X ) && - ( height == fgState.GameModeSize.Y ) && - ( depth == fgState.GameModeDepth ) && - ( refresh == fgState.GameModeRefresh ); -} - -/* - * Checks all display modes settings against user's preferences. - * Returns the mode number found or -1 if none could be found. - */ -static int fghCheckDisplayModes( GLboolean exactMatch, int displayModesCount, XF86VidModeModeInfo** displayModes ) -{ - int i; - for( i = 0; i < displayModesCount; i++ ) - { - /* Compute the displays refresh rate, dotclock comes in kHz. */ - int refresh = ( displayModes[ i ]->dotclock * 1000 ) / - ( displayModes[ i ]->htotal * displayModes[ i ]->vtotal ); - - if( fghCheckDisplayMode( displayModes[ i ]->hdisplay, - displayModes[ i ]->vdisplay, - fgState.GameModeDepth, - ( exactMatch ? refresh : fgState.GameModeRefresh ) ) ) { - if (!exactMatch) - { - /* Update the chosen refresh rate, otherwise a - * glutGameModeGet(GLUT_GAME_MODE_REFRESH_RATE) would not - * return the right values - */ - fgState.GameModeRefresh = refresh; - } - - return i; - } - } - return -1; -} - -#endif - -/* - * Changes the current display mode to match user's settings - */ -GLboolean fgPlatformChangeDisplayMode( GLboolean haveToTest ) -{ - GLboolean success = GL_FALSE; - /* first try to use XRandR, then fallback to XF86VidMode */ -# ifdef HAVE_X11_EXTENSIONS_XRANDR_H - if(xrandr_resize(fgState.GameModeSize.X, fgState.GameModeSize.Y, - fgState.GameModeRefresh, haveToTest) != -1) { - return GL_TRUE; - } -# endif - - - /* - * This highly depends on the XFree86 extensions, - * not approved as X Consortium standards - */ -# ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - - /* - * This is also used by applications which check modes by calling - * glutGameModeGet(GLUT_GAME_MODE_POSSIBLE), so allow the check: - */ - if( haveToTest || fgDisplay.pDisplay.DisplayModeValid ) - { - XF86VidModeModeInfo** displayModes; - int i, displayModesCount; - - /* If we don't have a valid modeline in the display structure, which - * can happen if this is called from glutGameModeGet instead of - * glutEnterGameMode, then we need to query the current mode, to make - * unspecified settings to default to their current values. - */ - if(!fgDisplay.pDisplay.DisplayModeValid) { - if(!XF86VidModeGetModeLine(fgDisplay.pDisplay.Display, fgDisplay.pDisplay.Screen, - &fgDisplay.pDisplay.DisplayModeClock, &fgDisplay.pDisplay.DisplayMode)) { - return success; - } - } - - if (fgState.GameModeSize.X == -1) - { - fgState.GameModeSize.X = fgDisplay.pDisplay.DisplayMode.hdisplay; - } - if (fgState.GameModeSize.Y == -1) - { - fgState.GameModeSize.Y = fgDisplay.pDisplay.DisplayMode.vdisplay; - } - if (fgState.GameModeDepth == -1) - { - /* can't get color depth from this, nor can we change it, do nothing - * TODO: get with XGetVisualInfo()? but then how to set? - */ - } - if (fgState.GameModeRefresh == -1) - { - /* Compute the displays refresh rate, dotclock comes in kHz. */ - int refresh = ( fgDisplay.pDisplay.DisplayModeClock * 1000 ) / - ( fgDisplay.pDisplay.DisplayMode.htotal * fgDisplay.pDisplay.DisplayMode.vtotal ); - - fgState.GameModeRefresh = refresh; - } - - /* query all possible display modes */ - if( !XF86VidModeGetAllModeLines( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - &displayModesCount, - &displayModes ) ) - { - fgWarning( "XF86VidModeGetAllModeLines failed" ); - return success; - } - - - /* - * Check every of the modes looking for one that matches our demands, - * ignoring the refresh rate if no exact match could be found. - */ - i = fghCheckDisplayModes( GL_TRUE, displayModesCount, displayModes ); - if( i < 0 ) { - i = fghCheckDisplayModes( GL_FALSE, displayModesCount, displayModes ); - } - success = ( i < 0 ) ? GL_FALSE : GL_TRUE; - - if( !haveToTest && success ) { - if( !XF86VidModeSwitchToMode( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - displayModes[ i ] ) ) - fgWarning( "XF86VidModeSwitchToMode failed" ); - } - - XFree( displayModes ); - } - -# endif - - return success; -} - - -void fgPlatformEnterGameMode( void ) -{ - - /* - * Sync needed to avoid a real race, the Xserver must have really created - * the window before we can grab the pointer into it: - */ - XSync( fgDisplay.pDisplay.Display, False ); - /* - * Grab the pointer to confine it into the window after the calls to - * XWrapPointer() which ensure that the pointer really enters the window. - * - * We also need to wait here until XGrabPointer() returns GrabSuccess, - * otherwise the new window is not viewable yet and if the next function - * (XSetInputFocus) is called with a not yet viewable window, it will exit - * the application which we have to aviod, so wait until it's viewable: - */ - while( GrabSuccess != XGrabPointer( - fgDisplay.pDisplay.Display, fgStructure.GameModeWindow->Window.Handle, - TRUE, - ButtonPressMask | ButtonReleaseMask | ButtonMotionMask - | PointerMotionMask, - GrabModeAsync, GrabModeAsync, - fgStructure.GameModeWindow->Window.Handle, None, CurrentTime) ) - usleep( 100 ); - /* - * Change input focus to the new window. This will exit the application - * if the new window is not viewable yet, see the XGrabPointer loop above. - */ - XSetInputFocus( - fgDisplay.pDisplay.Display, - fgStructure.GameModeWindow->Window.Handle, - RevertToNone, - CurrentTime - ); - - /* Move the Pointer to the middle of the fullscreen window */ - XWarpPointer( - fgDisplay.pDisplay.Display, - None, - fgDisplay.pDisplay.RootWindow, - 0, 0, 0, 0, - fgState.GameModeSize.X/2, fgState.GameModeSize.Y/2 - ); - -# ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - - if( fgDisplay.pDisplay.DisplayModeValid ) - { - int x, y; - Window child; - - /* Change to viewport to the window topleft edge: */ - if( !XF86VidModeSetViewPort( fgDisplay.pDisplay.Display, fgDisplay.pDisplay.Screen, 0, 0 ) ) - fgWarning( "XF86VidModeSetViewPort failed" ); - - /* - * Final window repositioning: It could be avoided using an undecorated - * window using override_redirect, but this * would possily require - * more changes and investigation. - */ - - /* Get the current postion of the drawable area on screen */ - XTranslateCoordinates( - fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - fgDisplay.pDisplay.RootWindow, - 0, 0, &x, &y, - &child - ); - - /* Move the decorataions out of the topleft corner of the display */ - XMoveWindow( fgDisplay.pDisplay.Display, fgStructure.CurrentWindow->Window.Handle, - -x, -y); - } - -#endif - - /* Grab the keyboard, too */ - XGrabKeyboard( - fgDisplay.pDisplay.Display, - fgStructure.GameModeWindow->Window.Handle, - FALSE, - GrabModeAsync, GrabModeAsync, - CurrentTime - ); - -} - -void fgPlatformLeaveGameMode( void ) -{ - XUngrabPointer( fgDisplay.pDisplay.Display, CurrentTime ); - XUngrabKeyboard( fgDisplay.pDisplay.Display, CurrentTime ); -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_glutfont_definitions_x11.c b/internal/c/parts/core/android_core/src/x11/fg_glutfont_definitions_x11.c deleted file mode 100644 index 1aa6b7013..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_glutfont_definitions_x11.c +++ /dev/null @@ -1,104 +0,0 @@ -/* - * freeglut_glutfont_definitions_x11.c - * - * Bitmap and stroke fonts displaying. - * - * Copyright (c) 2003 Stephen J. Baker (whether he wants it or not). - * All Rights Reserved. - * Written by John F. Fay , who releases the - * copyright over to the "freeglut" project lead. - * Creation date: Mon July 21 2003 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -/* - * This file is necessary for the *nix version of "freeglut" because the - * original GLUT defined its font variables in rather an unusual way. - * Publicly, in "glut.h", they were defined as "void *". Privately, - * in one of the source code files, they were defined as pointers to a - * structure. Most compilers and linkers are satisfied with the "void *" - * and don't go any farther, but some of them balked. In particular, - * when compiling with "freeglut" and then trying to run using the GLUT - * ".so" library, some of them would give an error. So we are having to - * create this file to define the variables as pointers to an unusual - * structure to match GLUT. - */ - -/* - * freeglut_internal.h uses some GL types, but including the GL header portably - * is a bit tricky, so we include freeglut_std.h here, which contains the - * necessary machinery. But this poses another problem, caused by the ugly - * original defintion of the font constants in "classic" GLUT: They are defined - * as void* externally, so we move them temporarily out of the way by AN EXTREME - * CPP HACK. - */ - -#define glutStrokeRoman glutStrokeRomanIGNOREME -#define glutStrokeMonoRoman glutStrokeMonoRomanIGNOREME -#define glutBitmap9By15 glutBitmap9By15IGNOREME -#define glutBitmap8By13 glutBitmap8By13IGNOREME -#define glutBitmapTimesRoman10 glutBitmapTimesRoman10IGNOREME -#define glutBitmapTimesRoman24 glutBitmapTimesRoman24IGNOREME -#define glutBitmapHelvetica10 glutBitmapHelvetica10IGNOREME -#define glutBitmapHelvetica12 glutBitmapHelvetica12IGNOREME -#define glutBitmapHelvetica18 glutBitmapHelvetica18IGNOREME - -#include - -#undef glutStrokeRoman -#undef glutStrokeMonoRoman -#undef glutBitmap9By15 -#undef glutBitmap8By13 -#undef glutBitmapTimesRoman10 -#undef glutBitmapTimesRoman24 -#undef glutBitmapHelvetica10 -#undef glutBitmapHelvetica12 -#undef glutBitmapHelvetica18 - -#include "../fg_internal.h" - -struct freeglutStrokeFont -{ - const char *name ; - int num_chars ; - void *ch ; - float top ; - float bottom ; -}; - -struct freeglutBitmapFont -{ - const char *name ; - const int num_chars ; - const int first ; - const void *ch ; -}; - - -struct freeglutStrokeFont glutStrokeRoman ; -struct freeglutStrokeFont glutStrokeMonoRoman ; - -struct freeglutBitmapFont glutBitmap9By15 ; -struct freeglutBitmapFont glutBitmap8By13 ; -struct freeglutBitmapFont glutBitmapTimesRoman10 ; -struct freeglutBitmapFont glutBitmapTimesRoman24 ; -struct freeglutBitmapFont glutBitmapHelvetica10 ; -struct freeglutBitmapFont glutBitmapHelvetica12 ; -struct freeglutBitmapFont glutBitmapHelvetica18 ; - diff --git a/internal/c/parts/core/android_core/src/x11/fg_init_x11.c b/internal/c/parts/core/android_core/src/x11/fg_init_x11.c deleted file mode 100644 index 343e55725..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_init_x11.c +++ /dev/null @@ -1,273 +0,0 @@ -/* - * freeglut_init_x11.c - * - * Various freeglut initialization functions. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include /* LONG_MAX */ -#include -#include "../fg_internal.h" - -/* Return the atom associated with "name". */ -static Atom fghGetAtom(const char * name) -{ - return XInternAtom(fgDisplay.pDisplay.Display, name, False); -} - -/* - * Check if "property" is set on "window". The property's values are returned - * through "data". If the property is set and is of type "type", return the - * number of elements in "data". Return zero otherwise. In both cases, use - * "Xfree()" to free "data". - */ -static int fghGetWindowProperty(Window window, - Atom property, - Atom type, - unsigned char ** data) -{ - /* - * Caller always has to use "Xfree()" to free "data", since - * "XGetWindowProperty() always allocates one extra byte in prop_return - * [i.e. "data"] (even if the property is zero length) [..]". - */ - - int status; /* Returned by "XGetWindowProperty". */ - - Atom type_returned; - int temp_format; /* Not used. */ - unsigned long number_of_elements; - unsigned long temp_bytes_after; /* Not used. */ - - - status = XGetWindowProperty(fgDisplay.pDisplay.Display, - window, - property, - 0, - LONG_MAX, - False, - type, - &type_returned, - &temp_format, - &number_of_elements, - &temp_bytes_after, - data); - - FREEGLUT_INTERNAL_ERROR_EXIT(status == Success, - "XGetWindowProperty failled", - "fghGetWindowProperty"); - - if (type_returned != type) - { - number_of_elements = 0; - } - - return number_of_elements; -} - -/* Check if the window manager is NET WM compliant. */ -static int fghNetWMSupported(void) -{ - Atom wm_check; - Window ** window_ptr_1; - - int number_of_windows; - int net_wm_supported; - - - net_wm_supported = 0; - - wm_check = fghGetAtom("_NET_SUPPORTING_WM_CHECK"); - window_ptr_1 = malloc(sizeof(Window *)); - - /* - * Check that the window manager has set this property on the root window. - * The property must be the ID of a child window. - */ - number_of_windows = fghGetWindowProperty(fgDisplay.pDisplay.RootWindow, - wm_check, - XA_WINDOW, - (unsigned char **) window_ptr_1); - if (number_of_windows == 1) - { - Window ** window_ptr_2; - - window_ptr_2 = malloc(sizeof(Window *)); - - /* Check that the window has the same property set to the same value. */ - number_of_windows = fghGetWindowProperty(**window_ptr_1, - wm_check, - XA_WINDOW, - (unsigned char **) window_ptr_2); - if ((number_of_windows == 1) && (**window_ptr_1 == **window_ptr_2)) - { - /* NET WM compliant */ - net_wm_supported = 1; - } - - XFree(*window_ptr_2); - free(window_ptr_2); - } - - XFree(*window_ptr_1); - free(window_ptr_1); - - return net_wm_supported; -} - -/* Check if "hint" is present in "property" for "window". */ -int fgHintPresent(Window window, Atom property, Atom hint) -{ - Atom *atoms; - int number_of_atoms; - int supported; - int i; - - supported = 0; - - number_of_atoms = fghGetWindowProperty(window, - property, - XA_ATOM, - (unsigned char **) &atoms); - for (i = 0; i < number_of_atoms; i++) - { - if (atoms[i] == hint) - { - supported = 1; - break; - } - } - - XFree(atoms); - return supported; -} - -/* - * A call to this function should initialize all the display stuff... - */ -void fgPlatformInitialize( const char* displayName ) -{ - fgDisplay.pDisplay.Display = XOpenDisplay( displayName ); - - if( fgDisplay.pDisplay.Display == NULL ) - fgError( "failed to open display '%s'", XDisplayName( displayName ) ); - - if( !glXQueryExtension( fgDisplay.pDisplay.Display, NULL, NULL ) ) - fgError( "OpenGL GLX extension not supported by display '%s'", - XDisplayName( displayName ) ); - - fgDisplay.pDisplay.Screen = DefaultScreen( fgDisplay.pDisplay.Display ); - fgDisplay.pDisplay.RootWindow = RootWindow( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen - ); - - fgDisplay.ScreenWidth = DisplayWidth( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen - ); - fgDisplay.ScreenHeight = DisplayHeight( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen - ); - - fgDisplay.ScreenWidthMM = DisplayWidthMM( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen - ); - fgDisplay.ScreenHeightMM = DisplayHeightMM( - fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen - ); - - fgDisplay.pDisplay.Connection = ConnectionNumber( fgDisplay.pDisplay.Display ); - - /* Create the window deletion atom */ - fgDisplay.pDisplay.DeleteWindow = fghGetAtom("WM_DELETE_WINDOW"); - - /* Create the state and full screen atoms */ - fgDisplay.pDisplay.State = None; - fgDisplay.pDisplay.StateFullScreen = None; - - if (fghNetWMSupported()) - { - const Atom supported = fghGetAtom("_NET_SUPPORTED"); - const Atom state = fghGetAtom("_NET_WM_STATE"); - - /* Check if the state hint is supported. */ - if (fgHintPresent(fgDisplay.pDisplay.RootWindow, supported, state)) - { - const Atom full_screen = fghGetAtom("_NET_WM_STATE_FULLSCREEN"); - - fgDisplay.pDisplay.State = state; - - /* Check if the window manager supports full screen. */ - /** Check "_NET_WM_ALLOWED_ACTIONS" on our window instead? **/ - if (fgHintPresent(fgDisplay.pDisplay.RootWindow, supported, full_screen)) - { - fgDisplay.pDisplay.StateFullScreen = full_screen; - } - } - } - - - fgState.Initialised = GL_TRUE; - - atexit(fgDeinitialize); - - /* InputDevice uses GlutTimerFunc(), so fgState.Initialised must be TRUE */ - fgInitialiseInputDevices(); -} - -void fgPlatformDeinitialiseInputDevices ( void ) -{ - fghCloseInputDevices (); - - fgState.JoysticksInitialised = GL_FALSE; - fgState.InputDevsInitialised = GL_FALSE; -} - - -void fgPlatformCloseDisplay ( void ) -{ - /* - * Make sure all X-client data we have created will be destroyed on - * display closing - */ - XSetCloseDownMode( fgDisplay.pDisplay.Display, DestroyAll ); - - /* - * Close the display connection, destroying all windows we have - * created so far - */ - XCloseDisplay( fgDisplay.pDisplay.Display ); -} - - -void fgPlatformDestroyContext ( SFG_PlatformDisplay pDisplay, SFG_WindowContextType MContext ) -{ - /* Note that the MVisualInfo is not owned by the MenuContext! */ - glXDestroyContext( pDisplay.Display, MContext ); -} diff --git a/internal/c/parts/core/android_core/src/x11/fg_input_devices_x11.c b/internal/c/parts/core/android_core/src/x11/fg_input_devices_x11.c deleted file mode 100644 index 4335df3c4..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_input_devices_x11.c +++ /dev/null @@ -1,132 +0,0 @@ -/* - * freeglut_input_devices_x11.c - * - * Handles miscellaneous input devices via direct serial-port access. - * Proper X11 XInput device support is not yet supported. - * Also lacks Mac support. - * - * Written by Joe Krahn 2005 - * - * Copyright (c) 2005 Stephen J. Baker. All Rights Reserved. - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA OR STEPHEN J. BAKER BE LIABLE FOR ANY CLAIM, DAMAGES OR - * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, - * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - * DEALINGS IN THE SOFTWARE. - */ - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -#include -#include "../fg_internal.h" - -#ifdef HAVE_ERRNO_H -#include -#endif -#include -#include -#include -#include -#include -#include - -struct _serialport { - int fd; - struct termios termio, termio_save; -}; - -typedef struct _serialport SERIALPORT; - -void serial_flush ( SERIALPORT *port ); - -/* local variables */ -static SERIALPORT *dialbox_port=NULL; - -/*****************************************************************/ - -/* - * Try initializing the input device(s) - */ -void fgPlatformRegisterDialDevice ( const char *dial_device ) -{ -} - -SERIALPORT *serial_open ( const char *device ) -{ - int fd; - struct termios termio; - SERIALPORT *port; - - fd = open(device, O_RDWR | O_NONBLOCK ); - if (fd <0) { - perror(device); - return NULL; - } - - port = malloc(sizeof(SERIALPORT)); - memset(port, 0, sizeof(SERIALPORT)); - port->fd = fd; - - /* save current port settings */ - tcgetattr(fd,&port->termio_save); - - memset(&termio, 0, sizeof(termio)); - termio.c_cflag = CS8 | CREAD | HUPCL ; - termio.c_iflag = IGNPAR | IGNBRK ; - termio.c_cc[VTIME] = 0; /* inter-character timer */ - termio.c_cc[VMIN] = 1; /* block read until 1 chars received, when blocking I/O */ - - cfsetispeed(&termio, B9600); - cfsetospeed(&termio, B9600); - tcsetattr(fd,TCSANOW,&termio); - - serial_flush(port); - return port; -} - -void serial_close(SERIALPORT *port) -{ - if (port) - { - /* restore old port settings */ - tcsetattr(port->fd,TCSANOW,&port->termio_save); - close(port->fd); - free(port); - } -} - -int serial_getchar(SERIALPORT *port) -{ - unsigned char ch; - if (!port) return EOF; - if (read(port->fd,&ch,1)) return ch; - return EOF; -} - -int serial_putchar(SERIALPORT *port, unsigned char ch) -{ - if (!port) return 0; - return write(port->fd,&ch,1); -} - -void serial_flush ( SERIALPORT *port ) -{ - tcflush ( port->fd, TCIOFLUSH ); -} diff --git a/internal/c/parts/core/android_core/src/x11/fg_internal_x11.h b/internal/c/parts/core/android_core/src/x11/fg_internal_x11.h deleted file mode 100644 index 02472e77b..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_internal_x11.h +++ /dev/null @@ -1,229 +0,0 @@ -/* - * freeglut_internal_x11.h - * - * The freeglut library private include file. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by Diederick C. Niehorster, - * Creation date: Fri Jan 20, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#ifndef FREEGLUT_INTERNAL_X11_H -#define FREEGLUT_INTERNAL_X11_H - - -/* -- PLATFORM-SPECIFIC INCLUDES ------------------------------------------- */ -#include -#include -#include -#include -#include -#ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H -# include -#endif -#ifdef HAVE_X11_EXTENSIONS_XRANDR_H -# include -#endif -/* If GLX is too old, we will fail during runtime when multisampling - is requested, but at least freeglut compiles. */ -#ifndef GLX_SAMPLE_BUFFERS -# define GLX_SAMPLE_BUFFERS 0x80A8 -#endif -#ifndef GLX_SAMPLES -# define GLX_SAMPLES 0x80A9 -#endif - - - -/* -- GLOBAL TYPE DEFINITIONS ---------------------------------------------- */ -/* The structure used by display initialization in freeglut_init.c */ -typedef struct tagSFG_PlatformDisplay SFG_PlatformDisplay; -struct tagSFG_PlatformDisplay -{ - Display* Display; /* The display we are being run in. */ - int Screen; /* The screen we are about to use. */ - Window RootWindow; /* The screen's root window. */ - int Connection; /* The display's connection number */ - Atom DeleteWindow; /* The window deletion atom */ - Atom State; /* The state atom */ - Atom StateFullScreen; /* The full screen atom */ - -#ifdef HAVE_X11_EXTENSIONS_XRANDR_H - int prev_xsz, prev_ysz; - int prev_refresh; - int prev_size_valid; -#endif /* HAVE_X11_EXTENSIONS_XRANDR_H */ - -#ifdef HAVE_X11_EXTENSIONS_XF86VMODE_H - /* - * XF86VidMode may be compilable even if it fails at runtime. Therefore, - * the validity of the VidMode has to be tracked - */ - int DisplayModeValid; /* Flag that indicates runtime status*/ - XF86VidModeModeLine DisplayMode; /* Current screen's display settings */ - int DisplayModeClock; /* The display mode's refresh rate */ - int DisplayViewPortX; /* saved X location of the viewport */ - int DisplayViewPortY; /* saved Y location of the viewport */ -#endif /* HAVE_X11_EXTENSIONS_XF86VMODE_H */ - - int DisplayPointerX; /* saved X location of the pointer */ - int DisplayPointerY; /* saved Y location of the pointer */ -}; - - -/* - * Make "freeglut" window handle and context types so that we don't need so - * much conditionally-compiled code later in the library. - */ -typedef Window SFG_WindowHandleType ; -typedef GLXContext SFG_WindowContextType ; -typedef struct tagSFG_PlatformContext SFG_PlatformContext; -struct tagSFG_PlatformContext -{ - GLXFBConfig* FBConfig; /* The window's FBConfig */ -}; - - -/* Window's state description. This structure should be kept portable. */ -typedef struct tagSFG_PlatformWindowState SFG_PlatformWindowState; -struct tagSFG_PlatformWindowState -{ - int OldWidth; /* Window width from before a resize */ - int OldHeight; /* " height " " " " */ -}; - - -/* -- JOYSTICK-SPECIFIC STRUCTURES AND TYPES ------------------------------- */ -/* - * Initial defines from "js.h" starting around line 33 with the existing "freeglut_joystick.c" - * interspersed - */ -# ifdef HAVE_SYS_IOCTL_H -# include -# endif -# ifdef HAVE_FCNTL_H -# include -# endif -# ifdef HAVE_ERRNO_H -# include -# include -# endif -# if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__NetBSD__) -/* XXX The below hack is done until freeglut's autoconf is updated. */ -# define HAVE_USB_JS 1 - -# if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) -# include -# else -/* - * XXX NetBSD/amd64 systems may find that they have to steal the - * XXX /usr/include/machine/joystick.h from a NetBSD/i386 system. - * XXX I cannot comment whether that works for the interface, but - * XXX it lets you compile...(^& I do not think that we can do away - * XXX with this header. - */ -# include /* For analog joysticks */ -# endif -# define JS_DATA_TYPE joystick -# define JS_RETURN (sizeof(struct JS_DATA_TYPE)) -# endif - -# if defined(__linux__) -# include - -/* check the joystick driver version */ -# if defined(JS_VERSION) && JS_VERSION >= 0x010000 -# define JS_NEW -# endif -# else /* Not BSD or Linux */ -# ifndef JS_RETURN - - /* - * We'll put these values in and that should - * allow the code to at least compile when there is - * no support. The JS open routine should error out - * and shut off all the code downstream anyway and if - * the application doesn't use a joystick we'll be fine. - */ - - struct JS_DATA_TYPE - { - int buttons; - int x; - int y; - }; - -# define JS_RETURN (sizeof(struct JS_DATA_TYPE)) -# endif -# endif - -/* XXX It might be better to poll the operating system for the numbers of buttons and - * XXX axes and then dynamically allocate the arrays. - */ -# define _JS_MAX_AXES 16 -typedef struct tagSFG_PlatformJoystick SFG_PlatformJoystick; -struct tagSFG_PlatformJoystick -{ -# if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__NetBSD__) - struct os_specific_s *os; -# endif - -# ifdef JS_NEW - struct js_event js; - int tmp_buttons; - float tmp_axes [ _JS_MAX_AXES ]; -# else - struct JS_DATA_TYPE js; -# endif - - char fname [ 128 ]; - int fd; -}; - - -/* Menu font and color definitions */ -#define FREEGLUT_MENU_FONT GLUT_BITMAP_HELVETICA_18 - -#define FREEGLUT_MENU_PEN_FORE_COLORS {0.0f, 0.0f, 0.0f, 1.0f} -#define FREEGLUT_MENU_PEN_BACK_COLORS {0.70f, 0.70f, 0.70f, 1.0f} -#define FREEGLUT_MENU_PEN_HFORE_COLORS {0.0f, 0.0f, 0.0f, 1.0f} -#define FREEGLUT_MENU_PEN_HBACK_COLORS {1.0f, 1.0f, 1.0f, 1.0f} - - - - -/* -- PRIVATE FUNCTION DECLARATIONS ---------------------------------------- */ -/* spaceball device functions, defined in freeglut_spaceball.c */ -int fgIsSpaceballXEvent( const XEvent *ev ); -void fgSpaceballHandleXEvent( const XEvent *ev ); - -/* - * Check if "hint" is present in "property" for "window". See freeglut_init.c - */ -int fgHintPresent(Window window, Atom property, Atom hint); - -/* Handler for X extension Events */ -#ifdef HAVE_X11_EXTENSIONS_XINPUT2_H - void fgHandleExtensionEvents( XEvent * ev ); - void fgRegisterDevices( Display* dpy, Window* win ); -#endif - - -#endif /* FREEGLUT_INTERNAL_X11_H */ diff --git a/internal/c/parts/core/android_core/src/x11/fg_joystick_x11.c b/internal/c/parts/core/android_core/src/x11/fg_joystick_x11.c deleted file mode 100644 index 8c185a45d..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_joystick_x11.c +++ /dev/null @@ -1,465 +0,0 @@ -/* - * freeglut_joystick_x11.c - * - * Joystick handling code - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Steve Baker, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -/* - * FreeBSD port by Stephen Montgomery-Smith - * - * Redone by John Fay 2/4/04 with another look from the PLIB "js" library. - * Many thanks for Steve Baker for permission to pull from that library. - */ - -#include -#include "../fg_internal.h" -#ifdef HAVE_SYS_PARAM_H -# include -#endif - - -/*this should be defined in a header file */ -#define MAX_NUM_JOYSTICKS 2 -extern SFG_Joystick *fgJoystick [ MAX_NUM_JOYSTICKS ]; - -void fgPlatformJoystickRawRead( SFG_Joystick* joy, int* buttons, float* axes ) -{ - int status; - - int i; - -#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__NetBSD__) - int len; - - if ( joy->pJoystick.os->is_analog ) - { - int status = read ( joy->pJoystick.os->fd, &joy->pJoystick.os->ajs, sizeof(joy->pJoystick.os->ajs) ); - if ( status != sizeof(joy->pJoystick.os->ajs) ) { - perror ( joy->pJoystick.os->fname ); - joy->error = GL_TRUE; - return; - } - if ( buttons != NULL ) - *buttons = ( joy->pJoystick.os->ajs.b1 ? 1 : 0 ) | ( joy->pJoystick.os->ajs.b2 ? 2 : 0 ); - - if ( axes != NULL ) - { - axes[0] = (float) joy->pJoystick.os->ajs.x; - axes[1] = (float) joy->pJoystick.os->ajs.y; - } - - return; - } - -# ifdef HAVE_USB_JS - while ( ( len = read ( joy->pJoystick.os->fd, joy->pJoystick.os->hid_data_buf, joy->pJoystick.os->hid_dlen ) ) == joy->pJoystick.os->hid_dlen ) - { - struct hid_item *h; - - for ( h = joy->pJoystick.os->hids; h; h = h->next ) - { - int d = hid_get_data ( joy->pJoystick.os->hid_data_buf, h ); - - int page = HID_PAGE ( h->usage ); - int usage = HID_USAGE ( h->usage ); - - if ( page == HUP_GENERIC_DESKTOP ) - { - int i; - for ( i = 0; i < joy->num_axes; i++ ) - if (joy->pJoystick.os->axes_usage[i] == usage) - { - if (usage == HUG_HAT_SWITCH) - { - if (d < 0 || d > 8) - d = 0; /* safety */ - joy->pJoystick.os->cache_axes[i] = (float)hatmap_x[d]; - joy->pJoystick.os->cache_axes[i + 1] = (float)hatmap_y[d]; - } - else - { - joy->pJoystick.os->cache_axes[i] = (float)d; - } - break; - } - } - else if (page == HUP_BUTTON) - { - if (usage > 0 && usage < _JS_MAX_BUTTONS + 1) - { - if (d) - joy->pJoystick.os->cache_buttons |= (1 << ( usage - 1 )); - else - joy->pJoystick.os->cache_buttons &= ~(1 << ( usage - 1 )); - } - } - } - } -# ifdef HAVE_ERRNO_H - if ( len < 0 && errno != EAGAIN ) -# else - if ( len < 0 ) -# endif - { - perror( joy->pJoystick.os->fname ); - joy->error = 1; - } - if ( buttons != NULL ) *buttons = joy->pJoystick.os->cache_buttons; - if ( axes != NULL ) - memcpy ( axes, joy->pJoystick.os->cache_axes, sizeof(float) * joy->num_axes ); -# endif -#endif - -#ifdef JS_NEW - - while ( 1 ) - { - status = read ( joy->pJoystick.fd, &joy->pJoystick.js, sizeof(struct js_event) ); - - if ( status != sizeof( struct js_event ) ) - { -# ifdef HAVE_ERRNO_H - if ( errno == EAGAIN ) - { - /* Use the old values */ - if ( buttons ) - *buttons = joy->pJoystick.tmp_buttons; - if ( axes ) - memcpy( axes, joy->pJoystick.tmp_axes, - sizeof( float ) * joy->num_axes ); - return; - } -# endif - - fgWarning ( "%s", joy->pJoystick.fname ); - joy->error = GL_TRUE; - return; - } - - switch ( joy->pJoystick.js.type & ~JS_EVENT_INIT ) - { - case JS_EVENT_BUTTON: - if( joy->pJoystick.js.value == 0 ) /* clear the flag */ - joy->pJoystick.tmp_buttons &= ~( 1 << joy->pJoystick.js.number ); - else - joy->pJoystick.tmp_buttons |= ( 1 << joy->pJoystick.js.number ); - break; - - case JS_EVENT_AXIS: - if ( joy->pJoystick.js.number < joy->num_axes ) - { - joy->pJoystick.tmp_axes[ joy->pJoystick.js.number ] = ( float )joy->pJoystick.js.value; - - if( axes ) - memcpy( axes, joy->pJoystick.tmp_axes, sizeof(float) * joy->num_axes ); - } - break; - - default: - fgWarning ( "PLIB_JS: Unrecognised /dev/js return!?!" ); - - /* use the old values */ - - if ( buttons != NULL ) *buttons = joy->pJoystick.tmp_buttons; - if ( axes != NULL ) - memcpy ( axes, joy->pJoystick.tmp_axes, sizeof(float) * joy->num_axes ); - - return; - } - - if( buttons ) - *buttons = joy->pJoystick.tmp_buttons; - } -#else - - status = read( joy->pJoystick.fd, &joy->pJoystick.js, JS_RETURN ); - - if ( status != JS_RETURN ) - { - fgWarning( "%s", joy->pJoystick.fname ); - joy->error = GL_TRUE; - return; - } - - if ( buttons ) -# if defined( __FreeBSD__ ) || defined(__FreeBSD_kernel__) || defined( __NetBSD__ ) - *buttons = ( joy->pJoystick.js.b1 ? 1 : 0 ) | ( joy->pJoystick.js.b2 ? 2 : 0 ); /* XXX Should not be here -- BSD is handled earlier */ -# else - *buttons = joy->pJoystick.js.buttons; -# endif - - if ( axes ) - { - axes[ 0 ] = (float) joy->pJoystick.js.x; - axes[ 1 ] = (float) joy->pJoystick.js.y; - } -#endif -} - - -void fgPlatformJoystickOpen( SFG_Joystick* joy ) -{ -#if defined( __FreeBSD__ ) || defined(__FreeBSD_kernel__) || defined( __NetBSD__ ) - int i = 0; - char *cp; -#endif -#ifdef JS_NEW - unsigned char u; - int i=0; -#else -# if defined( __linux__ ) || TARGET_HOST_SOLARIS - int i = 0; - int counter = 0; -# endif -#endif - -#if defined( __FreeBSD__ ) || defined(__FreeBSD_kernel__) || defined( __NetBSD__ ) - for( i = 0; i < _JS_MAX_AXES; i++ ) - joy->pJoystick.os->cache_axes[ i ] = 0.0f; - - joy->pJoystick.os->cache_buttons = 0; - - joy->pJoystick.os->fd = open( joy->pJoystick.os->fname, O_RDONLY | O_NONBLOCK); - -#ifdef HAVE_ERRNO_H - if( joy->pJoystick.os->fd < 0 && errno == EACCES ) - fgWarning ( "%s exists but is not readable by you", joy->pJoystick.os->fname ); -#endif - - joy->error =( joy->pJoystick.os->fd < 0 ); - - if( joy->error ) - return; - - joy->num_axes = 0; - joy->num_buttons = 0; - if( joy->pJoystick.os->is_analog ) - { - FILE *joyfile; - char joyfname[ 1024 ]; - int noargs, in_no_axes; - - float axes [ _JS_MAX_AXES ]; - int buttons[ _JS_MAX_AXES ]; - - joy->num_axes = 2; - joy->num_buttons = 32; - - fghJoystickRawRead( joy, buttons, axes ); - joy->error = axes[ 0 ] < -1000000000.0f; - if( joy->error ) - return; - - snprintf( joyfname, sizeof(joyfname), "%s/.joy%drc", getenv( "HOME" ), joy->id ); - - joyfile = fopen( joyfname, "r" ); - joy->error =( joyfile == NULL ); - if( joy->error ) - return; - - noargs = fscanf( joyfile, "%d%f%f%f%f%f%f", &in_no_axes, - &joy->min[ 0 ], &joy->center[ 0 ], &joy->max[ 0 ], - &joy->min[ 1 ], &joy->center[ 1 ], &joy->max[ 1 ] ); - joy->error = noargs != 7 || in_no_axes != _JS_MAX_AXES; - fclose( joyfile ); - if( joy->error ) - return; - - for( i = 0; i < _JS_MAX_AXES; i++ ) - { - joy->dead_band[ i ] = 0.0f; - joy->saturate [ i ] = 1.0f; - } - - return; /* End of analog code */ - } - -# ifdef HAVE_USB_JS - if( ! fghJoystickInitializeHID( joy->pJoystick.os, &joy->num_axes, - &joy->num_buttons ) ) - { - close( joy->pJoystick.os->fd ); - joy->error = GL_TRUE; - return; - } - - cp = strrchr( joy->pJoystick.os->fname, '/' ); - if( cp ) - { - if( fghJoystickFindUSBdev( &cp[1], joy->name, sizeof( joy->name ) ) == - 0 ) - strcpy( joy->name, &cp[1] ); - } - - if( joy->num_axes > _JS_MAX_AXES ) - joy->num_axes = _JS_MAX_AXES; - - for( i = 0; i < _JS_MAX_AXES; i++ ) - { - /* We really should get this from the HID, but that data seems - * to be quite unreliable for analog-to-USB converters. Punt for - * now. - */ - if( joy->pJoystick.os->axes_usage[ i ] == HUG_HAT_SWITCH ) - { - joy->max [ i ] = 1.0f; - joy->center[ i ] = 0.0f; - joy->min [ i ] = -1.0f; - } - else - { - joy->max [ i ] = 255.0f; - joy->center[ i ] = 127.0f; - joy->min [ i ] = 0.0f; - } - - joy->dead_band[ i ] = 0.0f; - joy->saturate[ i ] = 1.0f; - } -# endif -#endif - -#if defined( __linux__ ) || TARGET_HOST_SOLARIS - /* Default for older Linux systems. */ - joy->num_axes = 2; - joy->num_buttons = 32; - -# ifdef JS_NEW - for( i = 0; i < _JS_MAX_AXES; i++ ) - joy->pJoystick.tmp_axes[ i ] = 0.0f; - - joy->pJoystick.tmp_buttons = 0; -# endif - - joy->pJoystick.fd = open( joy->pJoystick.fname, O_RDONLY ); - - joy->error =( joy->pJoystick.fd < 0 ); - - if( joy->error ) - return; - - /* Set the correct number of axes for the linux driver */ -# ifdef JS_NEW - /* Melchior Franz's fixes for big-endian Linuxes since writing - * to the upper byte of an uninitialized word doesn't work. - * 9 April 2003 - */ - ioctl( joy->pJoystick.fd, JSIOCGAXES, &u ); - joy->num_axes = u; - ioctl( joy->pJoystick.fd, JSIOCGBUTTONS, &u ); - joy->num_buttons = u; - ioctl( joy->pJoystick.fd, JSIOCGNAME( sizeof( joy->name ) ), joy->name ); - fcntl( joy->pJoystick.fd, F_SETFL, O_NONBLOCK ); -# endif - - /* - * The Linux driver seems to return 512 for all axes - * when no stick is present - but there is a chance - * that could happen by accident - so it's gotta happen - * on both axes for at least 100 attempts. - * - * PWO: shouldn't be that done somehow wiser on the kernel level? - */ -# ifndef JS_NEW - counter = 0; - - do - { - fghJoystickRawRead( joy, NULL, joy->center ); - counter++; - } while( !joy->error && - counter < 100 && - joy->center[ 0 ] == 512.0f && - joy->center[ 1 ] == 512.0f ); - - if ( counter >= 100 ) - joy->error = GL_TRUE; -# endif - - for( i = 0; i < _JS_MAX_AXES; i++ ) - { -# ifdef JS_NEW - joy->max [ i ] = 32767.0f; - joy->center[ i ] = 0.0f; - joy->min [ i ] = -32767.0f; -# else - joy->max[ i ] = joy->center[ i ] * 2.0f; - joy->min[ i ] = 0.0f; -# endif - joy->dead_band[ i ] = 0.0f; - joy->saturate [ i ] = 1.0f; - } -#endif -} - - -void fgPlatformJoystickInit( SFG_Joystick *fgJoystick[], int ident ) -{ -#if defined( __FreeBSD__ ) || defined(__FreeBSD_kernel__) || defined( __NetBSD__ ) - fgJoystick[ ident ]->id = ident; - fgJoystick[ ident ]->error = GL_FALSE; - - fgJoystick[ ident ]->pJoystick.os = calloc( 1, sizeof( struct os_specific_s ) ); - memset( fgJoystick[ ident ]->pJoystick.os, 0, sizeof( struct os_specific_s ) ); - if( ident < USB_IDENT_OFFSET ) - fgJoystick[ ident ]->pJoystick.os->is_analog = 1; - if( fgJoystick[ ident ]->pJoystick.os->is_analog ) - snprintf( fgJoystick[ ident ]->pJoystick.os->fname, sizeof(fgJoystick[ ident ]->pJoystick.os->fname), "%s%d", AJSDEV, ident ); - else - snprintf( fgJoystick[ ident ]->pJoystick.os->fname, sizeof(fgJoystick[ ident ]->pJoystick.os->fname), "%s%d", UHIDDEV, - ident - USB_IDENT_OFFSET ); -#elif defined( __linux__ ) - fgJoystick[ ident ]->id = ident; - fgJoystick[ ident ]->error = GL_FALSE; - - snprintf( fgJoystick[ident]->pJoystick.fname, sizeof(fgJoystick[ident]->pJoystick.fname), "/dev/input/js%d", ident ); - - if( access( fgJoystick[ ident ]->pJoystick.fname, F_OK ) != 0 ) - snprintf( fgJoystick[ ident ]->pJoystick.fname, sizeof(fgJoystick[ ident ]->pJoystick.fname), "/dev/js%d", ident ); -#endif -} - - -void fgPlatformJoystickClose ( int ident ) -{ -#if defined( __FreeBSD__ ) || defined(__FreeBSD_kernel__) || defined( __NetBSD__ ) - if( fgJoystick[ident]->pJoystick.os ) - { - if( ! fgJoystick[ ident ]->error ) - close( fgJoystick[ ident ]->pJoystick.os->fd ); -#ifdef HAVE_USB_JS - if( fgJoystick[ ident ]->pJoystick.os->hids ) - free (fgJoystick[ ident ]->pJoystick.os->hids); - if( fgJoystick[ ident ]->pJoystick.os->hid_data_buf ) - free( fgJoystick[ ident ]->pJoystick.os->hid_data_buf ); -#endif - free( fgJoystick[ident]->pJoystick.os ); - } -#endif - - if( ! fgJoystick[ident]->error ) - close( fgJoystick[ ident ]->pJoystick.fd ); -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_main_x11.c b/internal/c/parts/core/android_core/src/x11/fg_main_x11.c deleted file mode 100644 index 1daca9826..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_main_x11.c +++ /dev/null @@ -1,1083 +0,0 @@ -/* - * freeglut_main_x11.c - * - * The X11-specific windows message processing methods. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" -#ifdef HAVE_ERRNO_H -# include -#endif -#include -#ifdef HAVE_VFPRINTF -# define VFPRINTF(s,f,a) vfprintf((s),(f),(a)) -#elif defined(HAVE__DOPRNT) -# define VFPRINTF(s,f,a) _doprnt((f),(a),(s)) -#else -# define VFPRINTF(s,f,a) -#endif - -/* - * Try to get the maximum value allowed for ints, falling back to the minimum - * guaranteed by ISO C99 if there is no suitable header. - */ -#ifdef HAVE_LIMITS_H -# include -#endif -#ifndef INT_MAX -# define INT_MAX 32767 -#endif - -#ifndef MIN -# define MIN(a,b) (((a)<(b)) ? (a) : (b)) -#endif - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * There are some issues concerning window redrawing under X11, and maybe - * some events are not handled. The Win32 version lacks some more features, - * but seems acceptable for not demanding purposes. - * - * Need to investigate why the X11 version breaks out with an error when - * closing a window (using the window manager, not glutDestroyWindow)... - */ - - -/* - * Handle a window configuration change. When no reshape - * callback is hooked, the viewport size is updated to - * match the new window size. - */ -void fgPlatformReshapeWindow ( SFG_Window *window, int width, int height ) -{ - XResizeWindow( fgDisplay.pDisplay.Display, window->Window.Handle, - width, height ); - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - - -/* - * A static helper function to execute display callback for a window - */ -void fgPlatformDisplayWindow ( SFG_Window *window ) -{ - fghRedrawWindow ( window ) ; -} - - -fg_time_t fgPlatformSystemTime ( void ) -{ -#ifdef CLOCK_MONOTONIC - struct timespec now; - clock_gettime(CLOCK_MONOTONIC, &now); - return now.tv_nsec/1000000 + now.tv_sec*1000; -#elif defined(HAVE_GETTIMEOFDAY) - struct timeval now; - gettimeofday( &now, NULL ); - return now.tv_usec/1000 + now.tv_sec*1000; -#endif -} - -/* - * Does the magic required to relinquish the CPU until something interesting - * happens. - */ - -void fgPlatformSleepForEvents( fg_time_t msec ) -{ - /* - * Possibly due to aggressive use of XFlush() and friends, - * it is possible to have our socket drained but still have - * unprocessed events. (Or, this may just be normal with - * X, anyway?) We do non-trivial processing of X events - * after the event-reading loop, in any case, so we - * need to allow that we may have an empty socket but non- - * empty event queue. - */ - if( ! XPending( fgDisplay.pDisplay.Display ) ) - { - fd_set fdset; - int err; - int socket; - struct timeval wait; - - socket = ConnectionNumber( fgDisplay.pDisplay.Display ); - FD_ZERO( &fdset ); - FD_SET( socket, &fdset ); - wait.tv_sec = msec / 1000; - wait.tv_usec = (msec % 1000) * 1000; - err = select( socket+1, &fdset, NULL, NULL, &wait ); - -#ifdef HAVE_ERRNO_H - if( ( -1 == err ) && ( errno != EINTR ) ) - fgWarning ( "freeglut select() error: %d", errno ); -#endif - } -} - - -/* - * Returns GLUT modifier mask for the state field of an X11 event. - */ -int fgPlatformGetModifiers( int state ) -{ - int ret = 0; - - if( state & ( ShiftMask | LockMask ) ) - ret |= GLUT_ACTIVE_SHIFT; - if( state & ControlMask ) - ret |= GLUT_ACTIVE_CTRL; - if( state & Mod1Mask ) - ret |= GLUT_ACTIVE_ALT; - - return ret; -} - -static const char* fghTypeToString( int type ) -{ - switch( type ) { - case KeyPress: return "KeyPress"; - case KeyRelease: return "KeyRelease"; - case ButtonPress: return "ButtonPress"; - case ButtonRelease: return "ButtonRelease"; - case MotionNotify: return "MotionNotify"; - case EnterNotify: return "EnterNotify"; - case LeaveNotify: return "LeaveNotify"; - case FocusIn: return "FocusIn"; - case FocusOut: return "FocusOut"; - case KeymapNotify: return "KeymapNotify"; - case Expose: return "Expose"; - case GraphicsExpose: return "GraphicsExpose"; - case NoExpose: return "NoExpose"; - case VisibilityNotify: return "VisibilityNotify"; - case CreateNotify: return "CreateNotify"; - case DestroyNotify: return "DestroyNotify"; - case UnmapNotify: return "UnmapNotify"; - case MapNotify: return "MapNotify"; - case MapRequest: return "MapRequest"; - case ReparentNotify: return "ReparentNotify"; - case ConfigureNotify: return "ConfigureNotify"; - case ConfigureRequest: return "ConfigureRequest"; - case GravityNotify: return "GravityNotify"; - case ResizeRequest: return "ResizeRequest"; - case CirculateNotify: return "CirculateNotify"; - case CirculateRequest: return "CirculateRequest"; - case PropertyNotify: return "PropertyNotify"; - case SelectionClear: return "SelectionClear"; - case SelectionRequest: return "SelectionRequest"; - case SelectionNotify: return "SelectionNotify"; - case ColormapNotify: return "ColormapNotify"; - case ClientMessage: return "ClientMessage"; - case MappingNotify: return "MappingNotify"; - default: return "UNKNOWN"; - } -} - -static const char* fghBoolToString( Bool b ) -{ - return b == False ? "False" : "True"; -} - -static const char* fghNotifyHintToString( char is_hint ) -{ - switch( is_hint ) { - case NotifyNormal: return "NotifyNormal"; - case NotifyHint: return "NotifyHint"; - default: return "UNKNOWN"; - } -} - -static const char* fghNotifyModeToString( int mode ) -{ - switch( mode ) { - case NotifyNormal: return "NotifyNormal"; - case NotifyGrab: return "NotifyGrab"; - case NotifyUngrab: return "NotifyUngrab"; - case NotifyWhileGrabbed: return "NotifyWhileGrabbed"; - default: return "UNKNOWN"; - } -} - -static const char* fghNotifyDetailToString( int detail ) -{ - switch( detail ) { - case NotifyAncestor: return "NotifyAncestor"; - case NotifyVirtual: return "NotifyVirtual"; - case NotifyInferior: return "NotifyInferior"; - case NotifyNonlinear: return "NotifyNonlinear"; - case NotifyNonlinearVirtual: return "NotifyNonlinearVirtual"; - case NotifyPointer: return "NotifyPointer"; - case NotifyPointerRoot: return "NotifyPointerRoot"; - case NotifyDetailNone: return "NotifyDetailNone"; - default: return "UNKNOWN"; - } -} - -static const char* fghVisibilityToString( int state ) { - switch( state ) { - case VisibilityUnobscured: return "VisibilityUnobscured"; - case VisibilityPartiallyObscured: return "VisibilityPartiallyObscured"; - case VisibilityFullyObscured: return "VisibilityFullyObscured"; - default: return "UNKNOWN"; - } -} - -static const char* fghConfigureDetailToString( int detail ) -{ - switch( detail ) { - case Above: return "Above"; - case Below: return "Below"; - case TopIf: return "TopIf"; - case BottomIf: return "BottomIf"; - case Opposite: return "Opposite"; - default: return "UNKNOWN"; - } -} - -static const char* fghPlaceToString( int place ) -{ - switch( place ) { - case PlaceOnTop: return "PlaceOnTop"; - case PlaceOnBottom: return "PlaceOnBottom"; - default: return "UNKNOWN"; - } -} - -static const char* fghMappingRequestToString( int request ) -{ - switch( request ) { - case MappingModifier: return "MappingModifier"; - case MappingKeyboard: return "MappingKeyboard"; - case MappingPointer: return "MappingPointer"; - default: return "UNKNOWN"; - } -} - -static const char* fghPropertyStateToString( int state ) -{ - switch( state ) { - case PropertyNewValue: return "PropertyNewValue"; - case PropertyDelete: return "PropertyDelete"; - default: return "UNKNOWN"; - } -} - -static const char* fghColormapStateToString( int state ) -{ - switch( state ) { - case ColormapUninstalled: return "ColormapUninstalled"; - case ColormapInstalled: return "ColormapInstalled"; - default: return "UNKNOWN"; - } -} - -static void fghPrintEvent( XEvent *event ) -{ - switch( event->type ) { - - case KeyPress: - case KeyRelease: { - XKeyEvent *e = &event->xkey; - fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, " - "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, " - "keycode=%u, same_screen=%s", fghTypeToString( e->type ), - e->window, e->root, e->subwindow, (unsigned long)e->time, - e->x, e->y, e->x_root, e->y_root, e->state, e->keycode, - fghBoolToString( e->same_screen ) ); - break; - } - - case ButtonPress: - case ButtonRelease: { - XButtonEvent *e = &event->xbutton; - fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, " - "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, " - "button=%u, same_screen=%d", fghTypeToString( e->type ), - e->window, e->root, e->subwindow, (unsigned long)e->time, - e->x, e->y, e->x_root, e->y_root, e->state, e->button, - fghBoolToString( e->same_screen ) ); - break; - } - - case MotionNotify: { - XMotionEvent *e = &event->xmotion; - fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, " - "(x,y)=(%d,%d), (x_root,y_root)=(%d,%d), state=0x%x, " - "is_hint=%s, same_screen=%d", fghTypeToString( e->type ), - e->window, e->root, e->subwindow, (unsigned long)e->time, - e->x, e->y, e->x_root, e->y_root, e->state, - fghNotifyHintToString( e->is_hint ), - fghBoolToString( e->same_screen ) ); - break; - } - - case EnterNotify: - case LeaveNotify: { - XCrossingEvent *e = &event->xcrossing; - fgWarning( "%s: window=0x%x, root=0x%x, subwindow=0x%x, time=%lu, " - "(x,y)=(%d,%d), mode=%s, detail=%s, same_screen=%d, " - "focus=%d, state=0x%x", fghTypeToString( e->type ), - e->window, e->root, e->subwindow, (unsigned long)e->time, - e->x, e->y, fghNotifyModeToString( e->mode ), - fghNotifyDetailToString( e->detail ), (int)e->same_screen, - (int)e->focus, e->state ); - break; - } - - case FocusIn: - case FocusOut: { - XFocusChangeEvent *e = &event->xfocus; - fgWarning( "%s: window=0x%x, mode=%s, detail=%s", - fghTypeToString( e->type ), e->window, - fghNotifyModeToString( e->mode ), - fghNotifyDetailToString( e->detail ) ); - break; - } - - case KeymapNotify: { - XKeymapEvent *e = &event->xkeymap; - char buf[32 * 2 + 1]; - int i; - for ( i = 0; i < 32; i++ ) { - snprintf( &buf[ i * 2 ], sizeof( buf ) - i * 2, - "%02x", e->key_vector[ i ] ); - } - buf[ i ] = '\0'; - fgWarning( "%s: window=0x%x, %s", fghTypeToString( e->type ), e->window, - buf ); - break; - } - - case Expose: { - XExposeEvent *e = &event->xexpose; - fgWarning( "%s: window=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), " - "count=%d", fghTypeToString( e->type ), e->window, e->x, - e->y, e->width, e->height, e->count ); - break; - } - - case GraphicsExpose: { - XGraphicsExposeEvent *e = &event->xgraphicsexpose; - fgWarning( "%s: drawable=0x%x, (x,y)=(%d,%d), (width,height)=(%d,%d), " - "count=%d, (major_code,minor_code)=(%d,%d)", - fghTypeToString( e->type ), e->drawable, e->x, e->y, - e->width, e->height, e->count, e->major_code, - e->minor_code ); - break; - } - - case NoExpose: { - XNoExposeEvent *e = &event->xnoexpose; - fgWarning( "%s: drawable=0x%x, (major_code,minor_code)=(%d,%d)", - fghTypeToString( e->type ), e->drawable, e->major_code, - e->minor_code ); - break; - } - - case VisibilityNotify: { - XVisibilityEvent *e = &event->xvisibility; - fgWarning( "%s: window=0x%x, state=%s", fghTypeToString( e->type ), - e->window, fghVisibilityToString( e->state) ); - break; - } - - case CreateNotify: { - XCreateWindowEvent *e = &event->xcreatewindow; - fgWarning( "%s: (x,y)=(%d,%d), (width,height)=(%d,%d), border_width=%d, " - "window=0x%x, override_redirect=%s", - fghTypeToString( e->type ), e->x, e->y, e->width, e->height, - e->border_width, e->window, - fghBoolToString( e->override_redirect ) ); - break; - } - - case DestroyNotify: { - XDestroyWindowEvent *e = &event->xdestroywindow; - fgWarning( "%s: event=0x%x, window=0x%x", - fghTypeToString( e->type ), e->event, e->window ); - break; - } - - case UnmapNotify: { - XUnmapEvent *e = &event->xunmap; - fgWarning( "%s: event=0x%x, window=0x%x, from_configure=%s", - fghTypeToString( e->type ), e->event, e->window, - fghBoolToString( e->from_configure ) ); - break; - } - - case MapNotify: { - XMapEvent *e = &event->xmap; - fgWarning( "%s: event=0x%x, window=0x%x, override_redirect=%s", - fghTypeToString( e->type ), e->event, e->window, - fghBoolToString( e->override_redirect ) ); - break; - } - - case MapRequest: { - XMapRequestEvent *e = &event->xmaprequest; - fgWarning( "%s: parent=0x%x, window=0x%x", - fghTypeToString( event->type ), e->parent, e->window ); - break; - } - - case ReparentNotify: { - XReparentEvent *e = &event->xreparent; - fgWarning( "%s: event=0x%x, window=0x%x, parent=0x%x, (x,y)=(%d,%d), " - "override_redirect=%s", fghTypeToString( e->type ), - e->event, e->window, e->parent, e->x, e->y, - fghBoolToString( e->override_redirect ) ); - break; - } - - case ConfigureNotify: { - XConfigureEvent *e = &event->xconfigure; - fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d), " - "(width,height)=(%d,%d), border_width=%d, above=0x%x, " - "override_redirect=%s", fghTypeToString( e->type ), e->event, - e->window, e->x, e->y, e->width, e->height, e->border_width, - e->above, fghBoolToString( e->override_redirect ) ); - break; - } - - case ConfigureRequest: { - XConfigureRequestEvent *e = &event->xconfigurerequest; - fgWarning( "%s: parent=0x%x, window=0x%x, (x,y)=(%d,%d), " - "(width,height)=(%d,%d), border_width=%d, above=0x%x, " - "detail=%s, value_mask=%lx", fghTypeToString( e->type ), - e->parent, e->window, e->x, e->y, e->width, e->height, - e->border_width, e->above, - fghConfigureDetailToString( e->detail ), e->value_mask ); - break; - } - - case GravityNotify: { - XGravityEvent *e = &event->xgravity; - fgWarning( "%s: event=0x%x, window=0x%x, (x,y)=(%d,%d)", - fghTypeToString( e->type ), e->event, e->window, e->x, e->y ); - break; - } - - case ResizeRequest: { - XResizeRequestEvent *e = &event->xresizerequest; - fgWarning( "%s: window=0x%x, (width,height)=(%d,%d)", - fghTypeToString( e->type ), e->window, e->width, e->height ); - break; - } - - case CirculateNotify: { - XCirculateEvent *e = &event->xcirculate; - fgWarning( "%s: event=0x%x, window=0x%x, place=%s", - fghTypeToString( e->type ), e->event, e->window, - fghPlaceToString( e->place ) ); - break; - } - - case CirculateRequest: { - XCirculateRequestEvent *e = &event->xcirculaterequest; - fgWarning( "%s: parent=0x%x, window=0x%x, place=%s", - fghTypeToString( e->type ), e->parent, e->window, - fghPlaceToString( e->place ) ); - break; - } - - case PropertyNotify: { - XPropertyEvent *e = &event->xproperty; - fgWarning( "%s: window=0x%x, atom=%lu, time=%lu, state=%s", - fghTypeToString( e->type ), e->window, - (unsigned long)e->atom, (unsigned long)e->time, - fghPropertyStateToString( e->state ) ); - break; - } - - case SelectionClear: { - XSelectionClearEvent *e = &event->xselectionclear; - fgWarning( "%s: window=0x%x, selection=%lu, time=%lu", - fghTypeToString( e->type ), e->window, - (unsigned long)e->selection, (unsigned long)e->time ); - break; - } - - case SelectionRequest: { - XSelectionRequestEvent *e = &event->xselectionrequest; - fgWarning( "%s: owner=0x%x, requestor=0x%x, selection=0x%x, " - "target=0x%x, property=%lu, time=%lu", - fghTypeToString( e->type ), e->owner, e->requestor, - (unsigned long)e->selection, (unsigned long)e->target, - (unsigned long)e->property, (unsigned long)e->time ); - break; - } - - case SelectionNotify: { - XSelectionEvent *e = &event->xselection; - fgWarning( "%s: requestor=0x%x, selection=0x%x, target=0x%x, " - "property=%lu, time=%lu", fghTypeToString( e->type ), - e->requestor, (unsigned long)e->selection, - (unsigned long)e->target, (unsigned long)e->property, - (unsigned long)e->time ); - break; - } - - case ColormapNotify: { - XColormapEvent *e = &event->xcolormap; - fgWarning( "%s: window=0x%x, colormap=%lu, new=%s, state=%s", - fghTypeToString( e->type ), e->window, - (unsigned long)e->colormap, fghBoolToString( e->new ), - fghColormapStateToString( e->state ) ); - break; - } - - case ClientMessage: { - XClientMessageEvent *e = &event->xclient; - char buf[ 61 ]; - char* p = buf; - char* end = buf + sizeof( buf ); - int i; - switch( e->format ) { - case 8: - for ( i = 0; i < 20; i++, p += 3 ) { - snprintf( p, end - p, " %02x", e->data.b[ i ] ); - } - break; - case 16: - for ( i = 0; i < 10; i++, p += 5 ) { - snprintf( p, end - p, " %04x", e->data.s[ i ] ); - } - break; - case 32: - for ( i = 0; i < 5; i++, p += 9 ) { - snprintf( p, end - p, " %08lx", e->data.l[ i ] ); - } - break; - } - *p = '\0'; - fgWarning( "%s: window=0x%x, message_type=%lu, format=%d, data=(%s )", - fghTypeToString( e->type ), e->window, - (unsigned long)e->message_type, e->format, buf ); - break; - } - - case MappingNotify: { - XMappingEvent *e = &event->xmapping; - fgWarning( "%s: window=0x%x, request=%s, first_keycode=%d, count=%d", - fghTypeToString( e->type ), e->window, - fghMappingRequestToString( e->request ), e->first_keycode, - e->count ); - break; - } - - default: { - fgWarning( "%s", fghTypeToString( event->type ) ); - break; - } - } -} - - -void fgPlatformProcessSingleEvent ( void ) -{ - SFG_Window* window; - XEvent event; - - /* This code was repeated constantly, so here it goes into a definition: */ -#define GETWINDOW(a) \ - window = fgWindowByHandle( event.a.window ); \ - if( window == NULL ) \ - break; - -#define GETMOUSE(a) \ - window->State.MouseX = event.a.x; \ - window->State.MouseY = event.a.y; - - FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoopEvent" ); - - while( XPending( fgDisplay.pDisplay.Display ) ) - { - XNextEvent( fgDisplay.pDisplay.Display, &event ); -#if _DEBUG - fghPrintEvent( &event ); -#endif - - switch( event.type ) - { - case ClientMessage: - if(fgIsSpaceballXEvent(&event)) { - fgSpaceballHandleXEvent(&event); - break; - } - /* Destroy the window when the WM_DELETE_WINDOW message arrives */ - if( (Atom) event.xclient.data.l[ 0 ] == fgDisplay.pDisplay.DeleteWindow ) - { - GETWINDOW( xclient ); - - fgDestroyWindow ( window ); - - if( fgState.ActionOnWindowClose == GLUT_ACTION_EXIT ) - { - fgDeinitialize( ); - exit( 0 ); - } - else if( fgState.ActionOnWindowClose == GLUT_ACTION_GLUTMAINLOOP_RETURNS ) - fgState.ExecState = GLUT_EXEC_STATE_STOP; - - return; - } - break; - - /* - * CreateNotify causes a configure-event so that sub-windows are - * handled compatibly with GLUT. Otherwise, your sub-windows - * (in freeglut only) will not get an initial reshape event, - * which can break things. - * - * GLUT presumably does this because it generally tries to treat - * sub-windows the same as windows. - */ - case CreateNotify: - case ConfigureNotify: - { - int width, height; - if( event.type == CreateNotify ) { - GETWINDOW( xcreatewindow ); - width = event.xcreatewindow.width; - height = event.xcreatewindow.height; - } else { - GETWINDOW( xconfigure ); - width = event.xconfigure.width; - height = event.xconfigure.height; - } - - if( ( width != window->State.pWState.OldWidth ) || - ( height != window->State.pWState.OldHeight ) ) - { - SFG_Window *current_window = fgStructure.CurrentWindow; - - window->State.pWState.OldWidth = width; - window->State.pWState.OldHeight = height; - if( FETCH_WCB( *window, Reshape ) ) - INVOKE_WCB( *window, Reshape, ( width, height ) ); - else - { - fgSetWindow( window ); - glViewport( 0, 0, width, height ); - } - glutPostRedisplay( ); - if( window->IsMenu ) - fgSetWindow( current_window ); - } - } - break; - - case DestroyNotify: - /* - * This is sent to confirm the XDestroyWindow call. - * - * XXX WHY is this commented out? Should we re-enable it? - */ - /* fgAddToWindowDestroyList ( window ); */ - break; - - case Expose: - /* - * We are too dumb to process partial exposes... - * - * XXX Well, we could do it. However, it seems to only - * XXX be potentially useful for single-buffered (since - * XXX double-buffered does not respect viewport when we - * XXX do a buffer-swap). - * - */ - if( event.xexpose.count == 0 ) - { - GETWINDOW( xexpose ); - window->State.Redisplay = GL_TRUE; - } - break; - - case MapNotify: - break; - - case UnmapNotify: - /* We get this when iconifying a window. */ - GETWINDOW( xunmap ); - INVOKE_WCB( *window, WindowStatus, ( GLUT_HIDDEN ) ); - window->State.Visible = GL_FALSE; - break; - - case MappingNotify: - /* - * Have the client's keyboard knowledge updated (xlib.ps, - * page 206, says that's a good thing to do) - */ - XRefreshKeyboardMapping( (XMappingEvent *) &event ); - break; - - case VisibilityNotify: - { - /* - * Sending this event, the X server can notify us that the window - * has just acquired one of the three possible visibility states: - * VisibilityUnobscured, VisibilityPartiallyObscured or - * VisibilityFullyObscured. Note that we DO NOT receive a - * VisibilityNotify event when iconifying a window, we only get an - * UnmapNotify then. - */ - GETWINDOW( xvisibility ); - switch( event.xvisibility.state ) - { - case VisibilityUnobscured: - INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_RETAINED ) ); - window->State.Visible = GL_TRUE; - break; - - case VisibilityPartiallyObscured: - INVOKE_WCB( *window, WindowStatus, - ( GLUT_PARTIALLY_RETAINED ) ); - window->State.Visible = GL_TRUE; - break; - - case VisibilityFullyObscured: - INVOKE_WCB( *window, WindowStatus, ( GLUT_FULLY_COVERED ) ); - window->State.Visible = GL_FALSE; - break; - - default: - fgWarning( "Unknown X visibility state: %d", - event.xvisibility.state ); - break; - } - } - break; - - case EnterNotify: - case LeaveNotify: - GETWINDOW( xcrossing ); - GETMOUSE( xcrossing ); - if( ( event.type == LeaveNotify ) && window->IsMenu && - window->ActiveMenu && window->ActiveMenu->IsActive ) - fgUpdateMenuHighlight( window->ActiveMenu ); - - INVOKE_WCB( *window, Entry, ( ( EnterNotify == event.type ) ? - GLUT_ENTERED : - GLUT_LEFT ) ); - break; - - case MotionNotify: - { - GETWINDOW( xmotion ); - GETMOUSE( xmotion ); - - if( window->ActiveMenu ) - { - if( window == window->ActiveMenu->ParentWindow ) - { - window->ActiveMenu->Window->State.MouseX = - event.xmotion.x_root - window->ActiveMenu->X; - window->ActiveMenu->Window->State.MouseY = - event.xmotion.y_root - window->ActiveMenu->Y; - } - - fgUpdateMenuHighlight( window->ActiveMenu ); - - break; - } - - /* - * XXX For more than 5 buttons, just check {event.xmotion.state}, - * XXX rather than a host of bit-masks? Or maybe we need to - * XXX track ButtonPress/ButtonRelease events in our own - * XXX bit-mask? - */ - fgState.Modifiers = fgPlatformGetModifiers( event.xmotion.state ); - if ( event.xmotion.state & ( Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask ) ) { - INVOKE_WCB( *window, Motion, ( event.xmotion.x, - event.xmotion.y ) ); - } else { - INVOKE_WCB( *window, Passive, ( event.xmotion.x, - event.xmotion.y ) ); - } - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case ButtonRelease: - case ButtonPress: - { - GLboolean pressed = GL_TRUE; - int button; - - if( event.type == ButtonRelease ) - pressed = GL_FALSE ; - - /* - * A mouse button has been pressed or released. Traditionally, - * break if the window was found within the freeglut structures. - */ - GETWINDOW( xbutton ); - GETMOUSE( xbutton ); - - /* - * An X button (at least in XFree86) is numbered from 1. - * A GLUT button is numbered from 0. - * Old GLUT passed through buttons other than just the first - * three, though it only gave symbolic names and official - * support to the first three. - */ - button = event.xbutton.button - 1; - - /* - * Do not execute the application's mouse callback if a menu - * is hooked to this button. In that case an appropriate - * private call should be generated. - */ - if( fgCheckActiveMenu( window, button, pressed, - event.xbutton.x_root, event.xbutton.y_root ) ) - break; - - /* - * Check if there is a mouse or mouse wheel callback hooked to the - * window - */ - if( ! FETCH_WCB( *window, Mouse ) && - ! FETCH_WCB( *window, MouseWheel ) ) - break; - - fgState.Modifiers = fgPlatformGetModifiers( event.xbutton.state ); - - /* Finally execute the mouse or mouse wheel callback */ - if( ( button < glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS ) ) || ( ! FETCH_WCB( *window, MouseWheel ) ) ) - INVOKE_WCB( *window, Mouse, ( button, - pressed ? GLUT_DOWN : GLUT_UP, - event.xbutton.x, - event.xbutton.y ) - ); - else - { - /* - * Map 4 and 5 to wheel zero; EVEN to +1, ODD to -1 - * " 6 and 7 " " one; ... - * - * XXX This *should* be behind some variables/macros, - * XXX since the order and numbering isn't certain - * XXX See XFree86 configuration docs (even back in the - * XXX 3.x days, and especially with 4.x). - * - * XXX Note that {button} has already been decremented - * XXX in mapping from X button numbering to GLUT. - * - * XXX Should add support for partial wheel turns as Windows does -- 5/27/11 - */ - int wheel_number = (button - glutDeviceGet ( GLUT_NUM_MOUSE_BUTTONS )) / 2; - int direction = -1; - if( button % 2 ) - direction = 1; - - if( pressed ) - INVOKE_WCB( *window, MouseWheel, ( wheel_number, - direction, - event.xbutton.x, - event.xbutton.y ) - ); - } - fgState.Modifiers = INVALID_MODIFIERS; - } - break; - - case KeyRelease: - case KeyPress: - { - FGCBKeyboard keyboard_cb; - FGCBSpecial special_cb; - - GETWINDOW( xkey ); - GETMOUSE( xkey ); - - /* Detect auto repeated keys, if configured globally or per-window */ - - if ( fgState.KeyRepeat==GLUT_KEY_REPEAT_OFF || window->State.IgnoreKeyRepeat==GL_TRUE ) - { - if (event.type==KeyRelease) - { - /* - * Look at X11 keystate to detect repeat mode. - * While X11 says the key is actually held down, we'll ignore KeyRelease/KeyPress pairs. - */ - - char keys[32]; - XQueryKeymap( fgDisplay.pDisplay.Display, keys ); /* Look at X11 keystate to detect repeat mode */ - - if ( event.xkey.keycode<256 ) /* XQueryKeymap is limited to 256 keycodes */ - { - if ( keys[event.xkey.keycode>>3] & (1<<(event.xkey.keycode%8)) ) - window->State.KeyRepeating = GL_TRUE; - else - window->State.KeyRepeating = GL_FALSE; - } - } - } - else - window->State.KeyRepeating = GL_FALSE; - - /* Cease processing this event if it is auto repeated */ - - if (window->State.KeyRepeating) - { - if (event.type == KeyPress) window->State.KeyRepeating = GL_FALSE; - break; - } - - if( event.type == KeyPress ) - { - keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, Keyboard )); - special_cb = (FGCBSpecial) ( FETCH_WCB( *window, Special )); - } - else - { - keyboard_cb = (FGCBKeyboard)( FETCH_WCB( *window, KeyboardUp )); - special_cb = (FGCBSpecial) ( FETCH_WCB( *window, SpecialUp )); - } - - /* Is there a keyboard/special callback hooked for this window? */ - if( keyboard_cb || special_cb ) - { - XComposeStatus composeStatus; - char asciiCode[ 32 ]; - KeySym keySym; - int len; - - /* Check for the ASCII/KeySym codes associated with the event: */ - len = XLookupString( &event.xkey, asciiCode, sizeof(asciiCode), - &keySym, &composeStatus - ); - - /* GLUT API tells us to have two separate callbacks... */ - if( len > 0 ) - { - /* ...one for the ASCII translateable keypresses... */ - if( keyboard_cb ) - { - fgSetWindow( window ); - fgState.Modifiers = fgPlatformGetModifiers( event.xkey.state ); - keyboard_cb( asciiCode[ 0 ], - event.xkey.x, event.xkey.y - ); - fgState.Modifiers = INVALID_MODIFIERS; - } - } - else - { - int special = -1; - - /* - * ...and one for all the others, which need to be - * translated to GLUT_KEY_Xs... - */ - switch( keySym ) - { - case XK_F1: special = GLUT_KEY_F1; break; - case XK_F2: special = GLUT_KEY_F2; break; - case XK_F3: special = GLUT_KEY_F3; break; - case XK_F4: special = GLUT_KEY_F4; break; - case XK_F5: special = GLUT_KEY_F5; break; - case XK_F6: special = GLUT_KEY_F6; break; - case XK_F7: special = GLUT_KEY_F7; break; - case XK_F8: special = GLUT_KEY_F8; break; - case XK_F9: special = GLUT_KEY_F9; break; - case XK_F10: special = GLUT_KEY_F10; break; - case XK_F11: special = GLUT_KEY_F11; break; - case XK_F12: special = GLUT_KEY_F12; break; - - case XK_KP_Left: - case XK_Left: special = GLUT_KEY_LEFT; break; - case XK_KP_Right: - case XK_Right: special = GLUT_KEY_RIGHT; break; - case XK_KP_Up: - case XK_Up: special = GLUT_KEY_UP; break; - case XK_KP_Down: - case XK_Down: special = GLUT_KEY_DOWN; break; - - case XK_KP_Prior: - case XK_Prior: special = GLUT_KEY_PAGE_UP; break; - case XK_KP_Next: - case XK_Next: special = GLUT_KEY_PAGE_DOWN; break; - case XK_KP_Home: - case XK_Home: special = GLUT_KEY_HOME; break; - case XK_KP_End: - case XK_End: special = GLUT_KEY_END; break; - case XK_KP_Insert: - case XK_Insert: special = GLUT_KEY_INSERT; break; - - case XK_Num_Lock : special = GLUT_KEY_NUM_LOCK; break; - case XK_KP_Begin : special = GLUT_KEY_BEGIN; break; - case XK_KP_Delete: special = GLUT_KEY_DELETE; break; - - case XK_Shift_L: special = GLUT_KEY_SHIFT_L; break; - case XK_Shift_R: special = GLUT_KEY_SHIFT_R; break; - case XK_Control_L: special = GLUT_KEY_CTRL_L; break; - case XK_Control_R: special = GLUT_KEY_CTRL_R; break; - case XK_Alt_L: special = GLUT_KEY_ALT_L; break; - case XK_Alt_R: special = GLUT_KEY_ALT_R; break; - } - - /* - * Execute the callback (if one has been specified), - * given that the special code seems to be valid... - */ - if( special_cb && (special != -1) ) - { - fgSetWindow( window ); - fgState.Modifiers = fgPlatformGetModifiers( event.xkey.state ); - special_cb( special, event.xkey.x, event.xkey.y ); - fgState.Modifiers = INVALID_MODIFIERS; - } - } - } - } - break; - - case ReparentNotify: - break; /* XXX Should disable this event */ - - /* Not handled */ - case GravityNotify: - break; - - default: - /* enter handling of Extension Events here */ - #ifdef HAVE_X11_EXTENSIONS_XINPUT2_H - fgHandleExtensionEvents( &event ); - #endif - break; - } - } -} - - -void fgPlatformMainLoopPreliminaryWork ( void ) -{ -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_menu_x11.c b/internal/c/parts/core/android_core/src/x11/fg_menu_x11.c deleted file mode 100644 index caf8c8fd2..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_menu_x11.c +++ /dev/null @@ -1,49 +0,0 @@ -/* - * freeglut_menu_x11.c - * - * Pull-down menu creation and handling. - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Wed Feb 1, 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -/* - * * Private function to get the virtual maximum screen extent - * */ -GLvoid fgPlatformGetGameModeVMaxExtent( SFG_Window* window, int* x, int* y ) -{ - int wx, wy; - Window w; - - XTranslateCoordinates( - fgDisplay.pDisplay.Display, - window->Window.Handle, - fgDisplay.pDisplay.RootWindow, - 0, 0, &wx, &wy, &w); - - *x = fgState.GameModeSize.X + wx; - *y = fgState.GameModeSize.Y + wy; -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_spaceball_x11.c b/internal/c/parts/core/android_core/src/x11/fg_spaceball_x11.c deleted file mode 100644 index e348bf9af..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_spaceball_x11.c +++ /dev/null @@ -1,415 +0,0 @@ -/* Spaceball support for Linux. - * Written by John Tsiombikas - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * This code supports 3Dconnexion's 6-dof space-whatever devices. - * It can communicate with either the proprietary 3Dconnexion daemon (3dxsrv) - * free spacenavd (http://spacenav.sourceforge.net), through the "standard" - * magellan X-based protocol. - */ - -#include -#include "../fg_internal.h" - -#include - -extern int sball_initialized; - -enum { - SPNAV_EVENT_ANY, /* used by spnav_remove_events() */ - SPNAV_EVENT_MOTION, - SPNAV_EVENT_BUTTON /* includes both press and release */ -}; - -struct spnav_event_motion { - int type; - int x, y, z; - int rx, ry, rz; - unsigned int period; - int *data; -}; - -struct spnav_event_button { - int type; - int press; - int bnum; -}; - -typedef union spnav_event { - int type; - struct spnav_event_motion motion; - struct spnav_event_button button; -} spnav_event; - - -static int spnav_x11_open(Display *dpy, Window win); -static int spnav_x11_window(Window win); -static int spnav_x11_event(const XEvent *xev, spnav_event *event); -static int spnav_close(void); -static int spnav_fd(void); -static int spnav_remove_events(int type); - -static SFG_Window *spnav_win; - -void fgPlatformInitializeSpaceball(void) -{ - Window w; - - sball_initialized = 1; - if(!fgStructure.CurrentWindow) - { - sball_initialized = -1; - return; - } - - w = fgStructure.CurrentWindow->Window.Handle; - if(spnav_x11_open(fgDisplay.pDisplay.Display, w) == -1) - { - sball_initialized = -1; - return; - } -} - -void fgPlatformSpaceballClose(void) -{ - spnav_close(); -} - -int fgPlatformHasSpaceball(void) -{ - /* XXX this function should somehow query the driver if there's a device - * plugged in, as opposed to just checking if there's a driver to talk to. - */ - return spnav_fd() == -1 ? 0 : 1; -} - -int fgPlatformSpaceballNumButtons(void) { - return 2; -} - -void fgPlatformSpaceballSetWindow(SFG_Window *window) -{ - if(spnav_win != window) { - spnav_x11_window(window->Window.Handle); - spnav_win = window; - } -} - -int fgIsSpaceballXEvent(const XEvent *xev) -{ - spnav_event sev; - - if(spnav_win != fgStructure.CurrentWindow) { - /* this will also initialize spaceball if needed (first call) */ - fgSpaceballSetWindow(fgStructure.CurrentWindow); - } - - if(sball_initialized != 1) { - return 0; - } - - return spnav_x11_event(xev, &sev); -} - -void fgSpaceballHandleXEvent(const XEvent *xev) -{ - spnav_event sev; - - if(sball_initialized == 0) { - fgInitialiseSpaceball(); - if(sball_initialized != 1) { - return; - } - } - - if(spnav_x11_event(xev, &sev)) { - switch(sev.type) { - case SPNAV_EVENT_MOTION: - if(sev.motion.x | sev.motion.y | sev.motion.z) { - INVOKE_WCB(*spnav_win, SpaceMotion, (sev.motion.x, sev.motion.y, sev.motion.z)); - } - if(sev.motion.rx | sev.motion.ry | sev.motion.rz) { - INVOKE_WCB(*spnav_win, SpaceRotation, (sev.motion.rx, sev.motion.ry, sev.motion.rz)); - } - spnav_remove_events(SPNAV_EVENT_MOTION); - break; - - case SPNAV_EVENT_BUTTON: - INVOKE_WCB(*spnav_win, SpaceButton, (sev.button.bnum, sev.button.press ? GLUT_DOWN : GLUT_UP)); - break; - - default: - break; - } - } -} - -/* -The following code is part of libspnav, part of the spacenav project (spacenav.sf.net) -Copyright (C) 2007-2009 John Tsiombikas - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - -1. Redistributions of source code must retain the above copyright notice, this - list of conditions and the following disclaimer. -2. Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. -3. The name of the author may not be used to endorse or promote products - derived from this software without specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED -WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO -EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT -OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING -IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY -OF SUCH DAMAGE. -*/ -#include -#include -#include - -#ifdef HAVE_ERRNO_H -#include -#endif - -#include -#include - -static Window get_daemon_window(Display *dpy); -static int catch_badwin(Display *dpy, XErrorEvent *err); - -static Display *dpy; -static Window app_win; -static Atom motion_event, button_press_event, button_release_event, command_event; - -enum { - CMD_APP_WINDOW = 27695, - CMD_APP_SENS -}; - -#define IS_OPEN dpy - -struct event_node { - spnav_event event; - struct event_node *next; -}; - -static int spnav_x11_open(Display *display, Window win) -{ - if(IS_OPEN) { - return -1; - } - - dpy = display; - - motion_event = XInternAtom(dpy, "MotionEvent", True); - button_press_event = XInternAtom(dpy, "ButtonPressEvent", True); - button_release_event = XInternAtom(dpy, "ButtonReleaseEvent", True); - command_event = XInternAtom(dpy, "CommandEvent", True); - - if(!motion_event || !button_press_event || !button_release_event || !command_event) { - dpy = 0; - return -1; /* daemon not started */ - } - - if(spnav_x11_window(win) == -1) { - dpy = 0; - return -1; /* daemon not started */ - } - - app_win = win; - return 0; -} - -static int spnav_close(void) -{ - if(dpy) { - spnav_x11_window(DefaultRootWindow(dpy)); - app_win = 0; - dpy = 0; - return 0; - } - return -1; -} - -static int spnav_x11_window(Window win) -{ - int (*prev_xerr_handler)(Display*, XErrorEvent*); - XEvent xev; - Window daemon_win; - - if(!IS_OPEN) { - return -1; - } - - if(!(daemon_win = get_daemon_window(dpy))) { - return -1; - } - - prev_xerr_handler = XSetErrorHandler(catch_badwin); - - xev.type = ClientMessage; - xev.xclient.send_event = False; - xev.xclient.display = dpy; - xev.xclient.window = win; - xev.xclient.message_type = command_event; - xev.xclient.format = 16; - xev.xclient.data.s[0] = ((unsigned int)win & 0xffff0000) >> 16; - xev.xclient.data.s[1] = (unsigned int)win & 0xffff; - xev.xclient.data.s[2] = CMD_APP_WINDOW; - - XSendEvent(dpy, daemon_win, False, 0, &xev); - XSync(dpy, False); - - XSetErrorHandler(prev_xerr_handler); - return 0; -} - -static int spnav_fd(void) -{ - if(dpy) { - return ConnectionNumber(dpy); - } - return -1; -} - -/*static int spnav_wait_event(spnav_event *event) -{ - if(dpy) { - for(;;) { - XEvent xev; - XNextEvent(dpy, &xev); - - if(spnav_x11_event(&xev, event) > 0) { - return event->type; - } - } - } - return 0; -} - -static int spnav_poll_event(spnav_event *event) -{ - if(dpy) { - if(XPending(dpy)) { - XEvent xev; - XNextEvent(dpy, &xev); - - return spnav_x11_event(&xev, event); - } - } - return 0; -}*/ - -static Bool match_events(Display *dpy, XEvent *xev, char *arg) -{ - int evtype = *(int*)arg; - - if(xev->type != ClientMessage) { - return False; - } - - if(xev->xclient.message_type == motion_event) { - return !evtype || evtype == SPNAV_EVENT_MOTION ? True : False; - } - if(xev->xclient.message_type == button_press_event || - xev->xclient.message_type == button_release_event) { - return !evtype || evtype == SPNAV_EVENT_BUTTON ? True : False; - } - return False; -} - -static int spnav_remove_events(int type) -{ - int rm_count = 0; - - if(dpy) { - XEvent xev; - - while(XCheckIfEvent(dpy, &xev, match_events, (char*)&type)) { - rm_count++; - } - return rm_count; - } - return 0; -} - -static int spnav_x11_event(const XEvent *xev, spnav_event *event) -{ - int i; - int xmsg_type; - - if(xev->type != ClientMessage) { - return 0; - } - - xmsg_type = xev->xclient.message_type; - - if(xmsg_type != motion_event && xmsg_type != button_press_event && - xmsg_type != button_release_event) { - return 0; - } - - if(xmsg_type == motion_event) { - event->type = SPNAV_EVENT_MOTION; - event->motion.data = &event->motion.x; - - for(i=0; i<6; i++) { - event->motion.data[i] = xev->xclient.data.s[i + 2]; - } - event->motion.period = xev->xclient.data.s[8]; - } else { - event->type = SPNAV_EVENT_BUTTON; - event->button.press = xmsg_type == button_press_event ? 1 : 0; - event->button.bnum = xev->xclient.data.s[2]; - } - return event->type; -} - - -static Window get_daemon_window(Display *dpy) -{ - Window win, root_win; - XTextProperty wname; - Atom type; - int fmt; - unsigned long nitems, bytes_after; - unsigned char *prop; - - root_win = DefaultRootWindow(dpy); - - XGetWindowProperty(dpy, root_win, command_event, 0, 1, False, AnyPropertyType, &type, &fmt, &nitems, &bytes_after, &prop); - if(!prop) { - return 0; - } - - win = *(Window*)prop; - XFree(prop); - - if(!XGetWMName(dpy, win, &wname) || strcmp("Magellan Window", (char*)wname.value) != 0) { - return 0; - } - - return win; -} - -static int catch_badwin(Display *dpy, XErrorEvent *err) -{ - char buf[256]; - - if(err->error_code == BadWindow) { - /* do nothing? */ - } else { - XGetErrorText(dpy, err->error_code, buf, sizeof buf); - fprintf(stderr, "Caught unexpected X error: %s\n", buf); - } - return 0; -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_state_x11.c b/internal/c/parts/core/android_core/src/x11/fg_state_x11.c deleted file mode 100644 index ff280c46c..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_state_x11.c +++ /dev/null @@ -1,363 +0,0 @@ -/* - * freeglut_state_x11.c - * - * X11-specific freeglut state query methods. - * - * Copyright (c) 2012 Stephen J. Baker. All Rights Reserved. - * Written by John F. Fay, - * Creation date: Sat Feb 4 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -/* - * TODO BEFORE THE STABLE RELEASE: - * - * fgPlatformChooseFBConfig() -- OK, but what about glutInitDisplayString()? - */ - -/* A helper function to check if a display mode is possible to use */ -GLXFBConfig* fgPlatformChooseFBConfig( int* numcfgs ); - -/* - * Queries the GL context about some attributes - */ -int fgPlatformGetConfig( int attribute ) -{ - int returnValue = 0; - int result; /* Not checked */ - - if( fgStructure.CurrentWindow ) - result = glXGetFBConfigAttrib( fgDisplay.pDisplay.Display, - *(fgStructure.CurrentWindow->Window.pContext.FBConfig), - attribute, - &returnValue ); - - return returnValue; -} - -int fgPlatformGlutGet ( GLenum eWhat ) -{ - int nsamples = 0; - - switch( eWhat ) - { - /* - * The window/context specific queries are handled mostly by - * fgPlatformGetConfig(). - */ - case GLUT_WINDOW_NUM_SAMPLES: -#ifdef GLX_VERSION_1_3 - glGetIntegerv(GL_SAMPLES, &nsamples); -#endif - return nsamples; - - /* - * The rest of GLX queries under X are general enough to use a macro to - * check them - */ -# define GLX_QUERY(a,b) case a: return fgPlatformGetConfig( b ); - - GLX_QUERY( GLUT_WINDOW_RGBA, GLX_RGBA ); - GLX_QUERY( GLUT_WINDOW_DOUBLEBUFFER, GLX_DOUBLEBUFFER ); - GLX_QUERY( GLUT_WINDOW_BUFFER_SIZE, GLX_BUFFER_SIZE ); - GLX_QUERY( GLUT_WINDOW_STENCIL_SIZE, GLX_STENCIL_SIZE ); - GLX_QUERY( GLUT_WINDOW_DEPTH_SIZE, GLX_DEPTH_SIZE ); - GLX_QUERY( GLUT_WINDOW_RED_SIZE, GLX_RED_SIZE ); - GLX_QUERY( GLUT_WINDOW_GREEN_SIZE, GLX_GREEN_SIZE ); - GLX_QUERY( GLUT_WINDOW_BLUE_SIZE, GLX_BLUE_SIZE ); - GLX_QUERY( GLUT_WINDOW_ALPHA_SIZE, GLX_ALPHA_SIZE ); - GLX_QUERY( GLUT_WINDOW_ACCUM_RED_SIZE, GLX_ACCUM_RED_SIZE ); - GLX_QUERY( GLUT_WINDOW_ACCUM_GREEN_SIZE, GLX_ACCUM_GREEN_SIZE ); - GLX_QUERY( GLUT_WINDOW_ACCUM_BLUE_SIZE, GLX_ACCUM_BLUE_SIZE ); - GLX_QUERY( GLUT_WINDOW_ACCUM_ALPHA_SIZE, GLX_ACCUM_ALPHA_SIZE ); - GLX_QUERY( GLUT_WINDOW_STEREO, GLX_STEREO ); - -# undef GLX_QUERY - - /* Colormap size is handled in a bit different way than all the rest */ - case GLUT_WINDOW_COLORMAP_SIZE: - if( (fgPlatformGetConfig( GLX_RGBA )) || (fgStructure.CurrentWindow == NULL) ) - { - /* - * We've got a RGBA visual, so there is no colormap at all. - * The other possibility is that we have no current window set. - */ - return 0; - } - else - { - const GLXFBConfig * fbconfig = - fgStructure.CurrentWindow->Window.pContext.FBConfig; - - XVisualInfo * visualInfo = - glXGetVisualFromFBConfig( fgDisplay.pDisplay.Display, *fbconfig ); - - const int result = visualInfo->visual->map_entries; - - XFree(visualInfo); - - return result; - } - - /* - * Those calls are somewhat similiar, as they use XGetWindowAttributes() - * function - */ - case GLUT_WINDOW_X: - case GLUT_WINDOW_Y: - case GLUT_WINDOW_BORDER_WIDTH: - case GLUT_WINDOW_HEADER_HEIGHT: - { - int x, y; - Window w; - - if( fgStructure.CurrentWindow == NULL ) - return 0; - - XTranslateCoordinates( - fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - fgDisplay.pDisplay.RootWindow, - 0, 0, &x, &y, &w); - - switch ( eWhat ) - { - case GLUT_WINDOW_X: return x; - case GLUT_WINDOW_Y: return y; - } - - if ( w == 0 ) - return 0; - XTranslateCoordinates( - fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - w, 0, 0, &x, &y, &w); - - switch ( eWhat ) - { - case GLUT_WINDOW_BORDER_WIDTH: return x; - case GLUT_WINDOW_HEADER_HEIGHT: return y; - } - } - - case GLUT_WINDOW_WIDTH: - case GLUT_WINDOW_HEIGHT: - { - XWindowAttributes winAttributes; - - if( fgStructure.CurrentWindow == NULL ) - return 0; - XGetWindowAttributes( - fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - &winAttributes - ); - switch ( eWhat ) - { - case GLUT_WINDOW_WIDTH: return winAttributes.width ; - case GLUT_WINDOW_HEIGHT: return winAttributes.height ; - } - } - - /* I do not know yet if there will be a fgChooseVisual() function for Win32 */ - case GLUT_DISPLAY_MODE_POSSIBLE: - { - /* We should not have to call fgPlatformChooseFBConfig again here. */ - GLXFBConfig * fbconfig; - int isPossible; - - fbconfig = fgPlatformChooseFBConfig(NULL); - - if (fbconfig == NULL) - { - isPossible = 0; - } - else - { - isPossible = 1; - XFree(fbconfig); - } - - return isPossible; - } - - /* This is system-dependant */ - case GLUT_WINDOW_FORMAT_ID: - if( fgStructure.CurrentWindow == NULL ) - return 0; - - return fgPlatformGetConfig( GLX_VISUAL_ID ); - - default: - fgWarning( "glutGet(): missing enum handle %d", eWhat ); - break; - } - - return -1; -} - - -int fgPlatformGlutDeviceGet ( GLenum eWhat ) -{ - switch( eWhat ) - { - case GLUT_HAS_KEYBOARD: - /* - * X11 has a core keyboard by definition, although it can - * be present as a virtual/dummy keyboard. For now, there - * is no reliable way to tell if a real keyboard is present. - */ - return 1; - - /* X11 has a mouse by definition */ - case GLUT_HAS_MOUSE: - return 1 ; - - case GLUT_NUM_MOUSE_BUTTONS: - /* We should be able to pass NULL when the last argument is zero, - * but at least one X server has a bug where this causes a segfault. - * - * In XFree86/Xorg servers, a mouse wheel is seen as two buttons - * rather than an Axis; "freeglut_main.c" expects this when - * checking for a wheel event. - */ - { - unsigned char map; - int nbuttons = XGetPointerMapping(fgDisplay.pDisplay.Display, &map,0); - return nbuttons; - } - - default: - fgWarning( "glutDeviceGet(): missing enum handle %d", eWhat ); - break; - } - - /* And now -- the failure. */ - return -1; -} - - -int *fgPlatformGlutGetModeValues(GLenum eWhat, int *size) -{ - int *array; - - int attributes[9]; - GLXFBConfig * fbconfigArray; /* Array of FBConfigs */ - int fbconfigArraySize; /* Number of FBConfigs in the array */ - int attribute_name = 0; - - array = NULL; - *size = 0; - - switch (eWhat) - { - case GLUT_AUX: - case GLUT_MULTISAMPLE: - - attributes[0] = GLX_BUFFER_SIZE; - attributes[1] = GLX_DONT_CARE; - - switch (eWhat) - { - case GLUT_AUX: - /* - FBConfigs are now sorted by increasing number of auxiliary - buffers. We want at least one buffer. - */ - attributes[2] = GLX_AUX_BUFFERS; - attributes[3] = 1; - attributes[4] = None; - - attribute_name = GLX_AUX_BUFFERS; - - break; - - - case GLUT_MULTISAMPLE: - attributes[2] = GLX_AUX_BUFFERS; - attributes[3] = GLX_DONT_CARE; - attributes[4] = GLX_SAMPLE_BUFFERS; - attributes[5] = 1; - /* - FBConfigs are now sorted by increasing number of samples per - pixel. We want at least one sample. - */ - attributes[6] = GLX_SAMPLES; - attributes[7] = 1; - attributes[8] = None; - - attribute_name = GLX_SAMPLES; - - break; - } - - fbconfigArray = glXChooseFBConfig(fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - attributes, - &fbconfigArraySize); - - if (fbconfigArray != NULL) - { - int * temp_array; - int result; /* Returned by glXGetFBConfigAttrib. Not checked. */ - int previous_value; - int i; - - temp_array = malloc(sizeof(int) * fbconfigArraySize); - previous_value = 0; - - for (i = 0; i < fbconfigArraySize; i++) - { - int value; - - result = glXGetFBConfigAttrib(fgDisplay.pDisplay.Display, - fbconfigArray[i], - attribute_name, - &value); - if (value > previous_value) - { - temp_array[*size] = value; - previous_value = value; - (*size)++; - } - } - - array = malloc(sizeof(int) * (*size)); - for (i = 0; i < *size; i++) - { - array[i] = temp_array[i]; - } - - free(temp_array); - XFree(fbconfigArray); - } - - break; - - default: - break; - } - - return array; -} - - diff --git a/internal/c/parts/core/android_core/src/x11/fg_structure_x11.c b/internal/c/parts/core/android_core/src/x11/fg_structure_x11.c deleted file mode 100644 index 5375e2430..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_structure_x11.c +++ /dev/null @@ -1,40 +0,0 @@ -/* - * freeglut_structure.c - * - * Windows and menus need tree structure - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#include -#include "../fg_internal.h" - -extern SFG_Structure fgStructure; - -void fgPlatformCreateWindow ( SFG_Window *window ) -{ - window->Window.pContext.FBConfig = NULL; - - window->State.pWState.OldHeight = window->State.pWState.OldWidth = -1; -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_window_x11.c b/internal/c/parts/core/android_core/src/x11/fg_window_x11.c deleted file mode 100644 index ad5fc915c..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_window_x11.c +++ /dev/null @@ -1,800 +0,0 @@ -/* - * freeglut_window_x11.c - * - * Window management methods for X11 - * - * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. - * Written by Pawel W. Olszta, - * Copied for Platform code by Evan Felix - * Creation date: Thur Feb 2 2012 - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the "Software"), - * to deal in the Software without restriction, including without limitation - * the rights to use, copy, modify, merge, publish, distribute, sublicense, - * and/or sell copies of the Software, and to permit persons to whom the - * Software is furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL - * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER - * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN - * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - */ - -#define FREEGLUT_BUILDING_LIB -#include -#include /* LONG_MAX */ -#include /* usleep */ -#include "../fg_internal.h" - -/* pushing attribute/value pairs into an array */ -#define ATTRIB(a) attributes[where++]=(a) -#define ATTRIB_VAL(a,v) {ATTRIB(a); ATTRIB(v);} - - -#ifndef GLX_FRAMEBUFFER_SRGB_CAPABLE_ARB -#define GLX_FRAMEBUFFER_SRGB_CAPABLE_ARB 0x20B2 -#endif - -#ifndef GLX_CONTEXT_MAJOR_VERSION_ARB -#define GLX_CONTEXT_MAJOR_VERSION_ARB 0x2091 -#endif - -#ifndef GLX_CONTEXT_MINOR_VERSION_ARB -#define GLX_CONTEXT_MINOR_VERSION_ARB 0x2092 -#endif - -#ifndef GLX_CONTEXT_FLAGS_ARB -#define GLX_CONTEXT_FLAGS_ARB 0x2094 -#endif - -#ifndef GLX_CONTEXT_PROFILE_MASK_ARB -#define GLX_CONTEXT_PROFILE_MASK_ARB 0x9126 -#endif - -#ifndef GLX_CONTEXT_DEBUG_BIT_ARB -#define GLX_CONTEXT_DEBUG_BIT_ARB 0x0001 -#endif - -#ifndef GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB -#define GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x0002 -#endif - -#ifndef GLX_CONTEXT_CORE_PROFILE_BIT_ARB -#define GLX_CONTEXT_CORE_PROFILE_BIT_ARB 0x00000001 -#endif - -#ifndef GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB -#define GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB 0x00000002 -#endif - -#ifndef GLX_RGBA_FLOAT_TYPE -#define GLX_RGBA_FLOAT_TYPE 0x20B9 -#endif - -#ifndef GLX_RGBA_FLOAT_BIT -#define GLX_RGBA_FLOAT_BIT 0x00000004 -#endif - - -/* - * Chooses a visual basing on the current display mode settings - */ - -GLXFBConfig* fgPlatformChooseFBConfig( int *numcfgs ) -{ - GLboolean wantIndexedMode = GL_FALSE; - int attributes[ 100 ]; - int where = 0, numAuxBuffers; - - /* First we have to process the display mode settings... */ - if( fgState.DisplayMode & GLUT_INDEX ) { - ATTRIB_VAL( GLX_BUFFER_SIZE, 8 ); - /* Buffer size is selected later. */ - - ATTRIB_VAL( GLX_RENDER_TYPE, GLX_COLOR_INDEX_BIT ); - wantIndexedMode = GL_TRUE; - } else { - ATTRIB_VAL( GLX_RED_SIZE, 1 ); - ATTRIB_VAL( GLX_GREEN_SIZE, 1 ); - ATTRIB_VAL( GLX_BLUE_SIZE, 1 ); - if( fgState.DisplayMode & GLUT_ALPHA ) { - ATTRIB_VAL( GLX_ALPHA_SIZE, 1 ); - } - } - - if( fgState.DisplayMode & GLUT_DOUBLE ) { - ATTRIB_VAL( GLX_DOUBLEBUFFER, True ); - } - - if( fgState.DisplayMode & GLUT_STEREO ) { - ATTRIB_VAL( GLX_STEREO, True ); - } - - if( fgState.DisplayMode & GLUT_DEPTH ) { - ATTRIB_VAL( GLX_DEPTH_SIZE, 1 ); - } - - if( fgState.DisplayMode & GLUT_STENCIL ) { - ATTRIB_VAL( GLX_STENCIL_SIZE, 1 ); - } - - if( fgState.DisplayMode & GLUT_ACCUM ) { - ATTRIB_VAL( GLX_ACCUM_RED_SIZE, 1 ); - ATTRIB_VAL( GLX_ACCUM_GREEN_SIZE, 1 ); - ATTRIB_VAL( GLX_ACCUM_BLUE_SIZE, 1 ); - if( fgState.DisplayMode & GLUT_ALPHA ) { - ATTRIB_VAL( GLX_ACCUM_ALPHA_SIZE, 1 ); - } - } - - numAuxBuffers = fghNumberOfAuxBuffersRequested(); - if ( numAuxBuffers > 0 ) { - ATTRIB_VAL( GLX_AUX_BUFFERS, numAuxBuffers ); - } - - if( fgState.DisplayMode & GLUT_SRGB ) { - ATTRIB_VAL( GLX_FRAMEBUFFER_SRGB_CAPABLE_ARB, True ); - } - - if (fgState.DisplayMode & GLUT_MULTISAMPLE) { - ATTRIB_VAL(GLX_SAMPLE_BUFFERS, 1); - ATTRIB_VAL(GLX_SAMPLES, fgState.SampleNumber); - } - - /* Push a terminator at the end of the list */ - ATTRIB( None ); - - { - GLXFBConfig * fbconfigArray; /* Array of FBConfigs */ - GLXFBConfig * fbconfig; /* The FBConfig we want */ - int fbconfigArraySize; /* Number of FBConfigs in the array */ - - - /* Get all FBConfigs that match "attributes". */ - fbconfigArray = glXChooseFBConfig( fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - attributes, - &fbconfigArraySize ); - - if (fbconfigArray != NULL) - { - int result; /* Returned by glXGetFBConfigAttrib, not checked. */ - - - if( wantIndexedMode ) - { - /* - * In index mode, we want the largest buffer size, i.e. visual - * depth. Here, FBConfigs are sorted by increasing buffer size - * first, so FBConfigs with the largest size come last. - */ - - int bufferSizeMin, bufferSizeMax; - - /* Get bufferSizeMin. */ - result = - glXGetFBConfigAttrib( fgDisplay.pDisplay.Display, - fbconfigArray[0], - GLX_BUFFER_SIZE, - &bufferSizeMin ); - /* Get bufferSizeMax. */ - result = - glXGetFBConfigAttrib( fgDisplay.pDisplay.Display, - fbconfigArray[fbconfigArraySize - 1], - GLX_BUFFER_SIZE, - &bufferSizeMax ); - - if (bufferSizeMax > bufferSizeMin) - { - /* - * Free and reallocate fbconfigArray, keeping only FBConfigs - * with the largest buffer size. - */ - XFree(fbconfigArray); - - /* Add buffer size token at the end of the list. */ - where--; - ATTRIB_VAL( GLX_BUFFER_SIZE, bufferSizeMax ); - ATTRIB( None ); - - fbconfigArray = glXChooseFBConfig( fgDisplay.pDisplay.Display, - fgDisplay.pDisplay.Screen, - attributes, - &fbconfigArraySize ); - } - } - - /* - * We now have an array of FBConfigs, the first one being the "best" - * one. So we should return only this FBConfig: - * - * int fbconfigXID; - * - * - pick the XID of the FBConfig we want - * result = glXGetFBConfigAttrib( fgDisplay.pDisplay.Display, - * fbconfigArray[0], - * GLX_FBCONFIG_ID, - * &fbconfigXID ); - * - * - free the array - * XFree(fbconfigArray); - * - * - reset "attributes" with the XID - * where = 0; - * ATTRIB_VAL( GLX_FBCONFIG_ID, fbconfigXID ); - * ATTRIB( None ); - * - * - get our FBConfig only - * fbconfig = glXChooseFBConfig( fgDisplay.pDisplay.Display, - * fgDisplay.pDisplay.Screen, - * attributes, - * &fbconfigArraySize ); - * - * However, for some configurations (for instance multisampling with - * Mesa 6.5.2 and ATI drivers), this does not work: - * glXChooseFBConfig returns NULL, whereas fbconfigXID is a valid - * XID. Further investigation is needed. - * - * So, for now, we return the whole array of FBConfigs. This should - * not produce any side effects elsewhere. - */ - fbconfig = fbconfigArray; - } - else - { - fbconfig = NULL; - } - - if (numcfgs) - *numcfgs = fbconfigArraySize; - - return fbconfig; - } -} - - -static void fghFillContextAttributes( int *attributes ) { - int where = 0, contextFlags, contextProfile; - - if ( !fghIsLegacyContextVersionRequested() ) { - ATTRIB_VAL( GLX_CONTEXT_MAJOR_VERSION_ARB, fgState.MajorVersion ); - ATTRIB_VAL( GLX_CONTEXT_MINOR_VERSION_ARB, fgState.MinorVersion ); - } - - contextFlags = - fghMapBit( fgState.ContextFlags, GLUT_DEBUG, GLX_CONTEXT_DEBUG_BIT_ARB ) | - fghMapBit( fgState.ContextFlags, GLUT_FORWARD_COMPATIBLE, GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB ); - if ( contextFlags != 0 ) { - ATTRIB_VAL( GLX_CONTEXT_FLAGS_ARB, contextFlags ); - } - - contextProfile = - fghMapBit( fgState.ContextProfile, GLUT_CORE_PROFILE, GLX_CONTEXT_CORE_PROFILE_BIT_ARB ) | - fghMapBit( fgState.ContextProfile, GLUT_COMPATIBILITY_PROFILE, GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB ); - if ( contextProfile != 0 ) { - ATTRIB_VAL( GLX_CONTEXT_PROFILE_MASK_ARB, contextProfile ); - } - - ATTRIB( 0 ); -} - -typedef GLXContext (*CreateContextAttribsProc)(Display *dpy, GLXFBConfig config, - GLXContext share_list, Bool direct, - const int *attrib_list); - -static GLXContext fghCreateNewContext( SFG_Window* window ) -{ - /* for color model calculation */ - int menu = ( window->IsMenu && !fgStructure.MenuContext ); - int index_mode = ( fgState.DisplayMode & GLUT_INDEX ); - - /* "classic" context creation */ - Display *dpy = fgDisplay.pDisplay.Display; - GLXFBConfig config = *(window->Window.pContext.FBConfig); - int render_type = ( !menu && index_mode ) ? GLX_COLOR_INDEX_TYPE : GLX_RGBA_TYPE; - GLXContext share_list = NULL; - Bool direct = ( fgState.DirectContext != GLUT_FORCE_INDIRECT_CONTEXT ); - GLXContext context; - - /* new context creation */ - int attributes[9]; - CreateContextAttribsProc createContextAttribs = (CreateContextAttribsProc) fgPlatformGetProcAddress( "glXCreateContextAttribsARB" ); - - /* glXCreateContextAttribsARB not found, yet the user has requested the new context creation */ - if ( !createContextAttribs && !fghIsLegacyContextRequested() ) { - fgWarning( "OpenGL >2.1 context requested but glXCreateContextAttribsARB is not available! Falling back to legacy context creation" ); - fgState.MajorVersion = 2; - fgState.MinorVersion = 1; - } - - /* If nothing fancy has been required, simply use the old context creation GLX API entry */ - if ( fghIsLegacyContextRequested() || !createContextAttribs ) - { - context = glXCreateNewContext( dpy, config, render_type, share_list, direct ); - if ( context == NULL ) { - fghContextCreationError(); - } - return context; - } - - /* color index mode is not available anymore with OpenGL 3.0 */ - if ( render_type == GLX_COLOR_INDEX_TYPE ) { - fgWarning( "color index mode is deprecated, using RGBA mode" ); - } - - fghFillContextAttributes( attributes ); - - context = createContextAttribs( dpy, config, share_list, direct, attributes ); - if ( context == NULL ) { - fghContextCreationError(); - } - return context; -} - - -#define _NET_WM_STATE_TOGGLE 2 -static int fghResizeFullscrToggle(void) -{ - XWindowAttributes attributes; - - if(glutGet(GLUT_FULL_SCREEN)) { - /* restore original window size */ - SFG_Window *win = fgStructure.CurrentWindow; - fgStructure.CurrentWindow->State.NeedToResize = GL_TRUE; - fgStructure.CurrentWindow->State.Width = win->State.pWState.OldWidth; - fgStructure.CurrentWindow->State.Height = win->State.pWState.OldHeight; - - } else { - /* resize the window to cover the entire screen */ - XGetWindowAttributes(fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - &attributes); - - /* - * The "x" and "y" members of "attributes" are the window's coordinates - * relative to its parent, i.e. to the decoration window. - */ - XMoveResizeWindow(fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - -attributes.x, - -attributes.y, - fgDisplay.ScreenWidth, - fgDisplay.ScreenHeight); - } - return 0; -} - -static int fghEwmhFullscrToggle(void) -{ - XEvent xev; - long evmask = SubstructureRedirectMask | SubstructureNotifyMask; - - if(!fgDisplay.pDisplay.State || !fgDisplay.pDisplay.StateFullScreen) { - return -1; - } - - xev.type = ClientMessage; - xev.xclient.window = fgStructure.CurrentWindow->Window.Handle; - xev.xclient.message_type = fgDisplay.pDisplay.State; - xev.xclient.format = 32; - xev.xclient.data.l[0] = _NET_WM_STATE_TOGGLE; - xev.xclient.data.l[1] = fgDisplay.pDisplay.StateFullScreen; - xev.xclient.data.l[2] = 0; /* no second property to toggle */ - xev.xclient.data.l[3] = 1; /* source indication: application */ - xev.xclient.data.l[4] = 0; /* unused */ - - if(!XSendEvent(fgDisplay.pDisplay.Display, fgDisplay.pDisplay.RootWindow, 0, evmask, &xev)) { - return -1; - } - return 0; -} - -static int fghToggleFullscreen(void) -{ - /* first try the EWMH (_NET_WM_STATE) method ... */ - if(fghEwmhFullscrToggle() != -1) { - return 0; - } - - /* fall back to resizing the window */ - if(fghResizeFullscrToggle() != -1) { - return 0; - } - return -1; -} - -void fgPlatformSetWindow ( SFG_Window *window ) -{ - if ( window ) - { - glXMakeContextCurrent( - fgDisplay.pDisplay.Display, - window->Window.Handle, - window->Window.Handle, - window->Window.Context - ); - } -} - -static Bool fghWindowIsVisible( Display *display, XEvent *event, XPointer arg) -{ - Window window = (Window)arg; - return (event->type == MapNotify) && (event->xmap.window == window); -} - -/* - * Opens a window. Requires a SFG_Window object created and attached - * to the freeglut structure. OpenGL context is created here. - */ -void fgPlatformOpenWindow( SFG_Window* window, const char* title, - GLboolean positionUse, int x, int y, - GLboolean sizeUse, int w, int h, - GLboolean gameMode, GLboolean isSubWindow ) -{ - XVisualInfo * visualInfo = NULL; - XSetWindowAttributes winAttr; - XTextProperty textProperty; - XSizeHints sizeHints; - XWMHints wmHints; - XEvent eventReturnBuffer; /* return buffer required for a call */ - unsigned long mask; - int num_FBConfigs, i; - unsigned int current_DisplayMode = fgState.DisplayMode ; - - /* Save the display mode if we are creating a menu window */ - if( window->IsMenu && ( ! fgStructure.MenuContext ) ) - fgState.DisplayMode = GLUT_DOUBLE | GLUT_RGB ; - - window->Window.pContext.FBConfig = fgPlatformChooseFBConfig( &num_FBConfigs ); - - if( window->IsMenu && ( ! fgStructure.MenuContext ) ) - fgState.DisplayMode = current_DisplayMode ; - - if( ! window->Window.pContext.FBConfig ) - { - /* - * The "fgPlatformChooseFBConfig" returned a null meaning that the visual - * context is not available. - * Try a couple of variations to see if they will work. - */ - if( !( fgState.DisplayMode & GLUT_DOUBLE ) ) - { - fgState.DisplayMode |= GLUT_DOUBLE ; - window->Window.pContext.FBConfig = fgPlatformChooseFBConfig( &num_FBConfigs ); - fgState.DisplayMode &= ~GLUT_DOUBLE; - } - - if( fgState.DisplayMode & GLUT_MULTISAMPLE ) - { - fgState.DisplayMode &= ~GLUT_MULTISAMPLE ; - window->Window.pContext.FBConfig = fgPlatformChooseFBConfig( &num_FBConfigs ); - fgState.DisplayMode |= GLUT_MULTISAMPLE; - } - } - - FREEGLUT_INTERNAL_ERROR_EXIT( window->Window.pContext.FBConfig != NULL, - "FBConfig with necessary capabilities not found", "fgOpenWindow" ); - - /* Get the X visual. */ - for (i = 0; i < num_FBConfigs; i++) { - visualInfo = glXGetVisualFromFBConfig( fgDisplay.pDisplay.Display, - window->Window.pContext.FBConfig[i] ); - if (visualInfo) - break; - } - - FREEGLUT_INTERNAL_ERROR_EXIT( visualInfo != NULL, - "visualInfo could not be retrieved from FBConfig", "fgOpenWindow" ); - - /* - * XXX HINT: the masks should be updated when adding/removing callbacks. - * XXX This might speed up message processing. Is that true? - * XXX - * XXX A: Not appreciably, but it WILL make it easier to debug. - * XXX Try tracing old GLUT and try tracing freeglut. Old GLUT - * XXX turns off events that it doesn't need and is a whole lot - * XXX more pleasant to trace. (Think mouse-motion! Tons of - * XXX ``bonus'' GUI events stream in.) - */ - winAttr.event_mask = - StructureNotifyMask | SubstructureNotifyMask | ExposureMask | - ButtonPressMask | ButtonReleaseMask | KeyPressMask | KeyReleaseMask | - VisibilityChangeMask | EnterWindowMask | LeaveWindowMask | - PointerMotionMask | ButtonMotionMask; - winAttr.background_pixmap = None; - winAttr.background_pixel = 0; - winAttr.border_pixel = 0; - - winAttr.colormap = XCreateColormap( - fgDisplay.pDisplay.Display, fgDisplay.pDisplay.RootWindow, - visualInfo->visual, AllocNone - ); - - mask = CWBackPixmap | CWBorderPixel | CWColormap | CWEventMask; - - if( window->IsMenu || ( gameMode == GL_TRUE ) ) - { - winAttr.override_redirect = True; - mask |= CWOverrideRedirect; - } - - if( ! positionUse ) - x = y = -1; /* default window position */ - if( ! sizeUse ) - w = h = 300; /* default window size */ - - window->Window.Handle = XCreateWindow( - fgDisplay.pDisplay.Display, - window->Parent == NULL ? fgDisplay.pDisplay.RootWindow : - window->Parent->Window.Handle, - x, y, w, h, 0, - visualInfo->depth, InputOutput, - visualInfo->visual, mask, - &winAttr - ); - - /* - * The GLX context creation, possibly trying the direct context rendering - * or else use the current context if the user has so specified - */ - - if( window->IsMenu ) - { - /* - * If there isn't already an OpenGL rendering context for menu - * windows, make one - */ - if( !fgStructure.MenuContext ) - { - fgStructure.MenuContext = - (SFG_MenuContext *)malloc( sizeof(SFG_MenuContext) ); - fgStructure.MenuContext->MContext = fghCreateNewContext( window ); - } - - /* window->Window.Context = fgStructure.MenuContext->MContext; */ - window->Window.Context = fghCreateNewContext( window ); - } - else if( fgState.UseCurrentContext ) - { - window->Window.Context = glXGetCurrentContext( ); - - if( ! window->Window.Context ) - window->Window.Context = fghCreateNewContext( window ); - } - else - window->Window.Context = fghCreateNewContext( window ); - -#if !defined( __FreeBSD__ ) && !defined( __NetBSD__ ) - if( !glXIsDirect( fgDisplay.pDisplay.Display, window->Window.Context ) ) - { - if( fgState.DirectContext == GLUT_FORCE_DIRECT_CONTEXT ) - fgError( "Unable to force direct context rendering for window '%s'", - title ); - } -#endif - - /* - * XXX Assume the new window is visible by default - * XXX Is this a safe assumption? - */ - window->State.Visible = GL_TRUE; - - sizeHints.flags = 0; - if ( positionUse ) - sizeHints.flags |= USPosition; - if ( sizeUse ) - sizeHints.flags |= USSize; - - /* - * Fill in the size hints values now (the x, y, width and height - * settings are obsolete, are there any more WMs that support them?) - * Unless the X servers actually stop supporting these, we should - * continue to fill them in. It is *not* our place to tell the user - * that they should replace a window manager that they like, and which - * works, just because *we* think that it's not "modern" enough. - */ - sizeHints.x = x; - sizeHints.y = y; - sizeHints.width = w; - sizeHints.height = h; - - wmHints.flags = StateHint; - wmHints.initial_state = fgState.ForceIconic ? IconicState : NormalState; - /* Prepare the window and iconified window names... */ - XStringListToTextProperty( (char **) &title, 1, &textProperty ); - - XSetWMProperties( - fgDisplay.pDisplay.Display, - window->Window.Handle, - &textProperty, - &textProperty, - 0, - 0, - &sizeHints, - &wmHints, - NULL - ); - XFree( textProperty.value ); - - XSetWMProtocols( fgDisplay.pDisplay.Display, window->Window.Handle, - &fgDisplay.pDisplay.DeleteWindow, 1 ); - - glXMakeContextCurrent( - fgDisplay.pDisplay.Display, - window->Window.Handle, - window->Window.Handle, - window->Window.Context - ); - - /* register extension events _before_ window is mapped */ - #ifdef HAVE_X11_EXTENSIONS_XINPUT2_H - fgRegisterDevices( fgDisplay.pDisplay.Display, &(window->Window.Handle) ); - #endif - - XMapWindow( fgDisplay.pDisplay.Display, window->Window.Handle ); - - XFree(visualInfo); - - if( !isSubWindow) - XPeekIfEvent( fgDisplay.pDisplay.Display, &eventReturnBuffer, &fghWindowIsVisible, (XPointer)(window->Window.Handle) ); -} - - -/* - * Closes a window, destroying the frame and OpenGL context - */ -void fgPlatformCloseWindow( SFG_Window* window ) -{ - if( window->Window.Context ) - glXDestroyContext( fgDisplay.pDisplay.Display, window->Window.Context ); - XFree( window->Window.pContext.FBConfig ); - - if( window->Window.Handle ) { - XDestroyWindow( fgDisplay.pDisplay.Display, window->Window.Handle ); - } - /* XFlush( fgDisplay.pDisplay.Display ); */ /* XXX Shouldn't need this */ -} - - -/* - * This function makes the current window visible - */ -void fgPlatformGlutShowWindow( void ) -{ - XMapWindow( fgDisplay.pDisplay.Display, fgStructure.CurrentWindow->Window.Handle ); - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - -/* - * This function hides the current window - */ -void fgPlatformGlutHideWindow( void ) -{ - if( fgStructure.CurrentWindow->Parent == NULL ) - XWithdrawWindow( fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - fgDisplay.pDisplay.Screen ); - else - XUnmapWindow( fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle ); - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - -/* - * Iconify the current window (top-level windows only) - */ -void fgPlatformGlutIconifyWindow( void ) -{ - XIconifyWindow( fgDisplay.pDisplay.Display, fgStructure.CurrentWindow->Window.Handle, - fgDisplay.pDisplay.Screen ); - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - -/* - * Set the current window's title - */ -void fgPlatformGlutSetWindowTitle( const char* title ) -{ - XTextProperty text; - - text.value = (unsigned char *) title; - text.encoding = XA_STRING; - text.format = 8; - text.nitems = strlen( title ); - - XSetWMName( - fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - &text - ); - - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - -/* - * Set the current window's iconified title - */ -void fgPlatformGlutSetIconTitle( const char* title ) -{ - XTextProperty text; - - text.value = (unsigned char *) title; - text.encoding = XA_STRING; - text.format = 8; - text.nitems = strlen( title ); - - XSetWMIconName( - fgDisplay.pDisplay.Display, - fgStructure.CurrentWindow->Window.Handle, - &text - ); - - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - -/* - * Change the current window's position - */ -void fgPlatformGlutPositionWindow( int x, int y ) -{ - XMoveWindow( fgDisplay.pDisplay.Display, fgStructure.CurrentWindow->Window.Handle, - x, y ); - XFlush( fgDisplay.pDisplay.Display ); /* XXX Shouldn't need this */ -} - -/* - * Lowers the current window (by Z order change) - */ -void fgPlatformGlutPushWindow( void ) -{ - XLowerWindow( fgDisplay.pDisplay.Display, fgStructure.CurrentWindow->Window.Handle ); -} - -/* - * Raises the current window (by Z order change) - */ -void fgPlatformGlutPopWindow( void ) -{ - XRaiseWindow( fgDisplay.pDisplay.Display, fgStructure.CurrentWindow->Window.Handle ); -} - -/* - * Resize the current window so that it fits the whole screen - */ -void fgPlatformGlutFullScreen( SFG_Window *win ) -{ - if(!glutGet(GLUT_FULL_SCREEN)) { - if(fghToggleFullscreen() != -1) { - win->State.IsFullscreen = GL_TRUE; - } - } -} - -/* - * If we are fullscreen, resize the current window back to its original size - */ -void fgPlatformGlutLeaveFullScreen( SFG_Window *win ) -{ - if(glutGet(GLUT_FULL_SCREEN)) { - if(fghToggleFullscreen() != -1) { - win->State.IsFullscreen = GL_FALSE; - } - } -} - -/* - * Toggle the window's full screen state. - */ -void fgPlatformGlutFullScreenToggle( SFG_Window *win ) -{ - if(fghToggleFullscreen() != -1) { - win->State.IsFullscreen = !win->State.IsFullscreen; - } -} - diff --git a/internal/c/parts/core/android_core/src/x11/fg_xinput_x11.c b/internal/c/parts/core/android_core/src/x11/fg_xinput_x11.c deleted file mode 100644 index fac1bf721..000000000 --- a/internal/c/parts/core/android_core/src/x11/fg_xinput_x11.c +++ /dev/null @@ -1,219 +0,0 @@ -/* Written for XI1 by Nikolas Doerfler (c) 2008 * - * Rewritten for XI2 by Florian Echtler (c) 2009 */ - -#include - -#include "../fg_internal.h" - -#if HAVE_X11_EXTENSIONS_XINPUT2_H - -#include -#include - -#include -#include - -/* import function from freeglut_main.c */ -extern int fgPlatformGetModifiers( int state ); - -/* extension opcode for XInput */ -int xi_opcode = -1; - -/** - * \brief Sets window up for XI2 events. - */ -void fgRegisterDevices( Display* dpy, Window* win ) { - - XIEventMask mask; - unsigned char flags[2] = { 0, 0 }; - int event, error; - - /*Display* dpy = fgDisplay.pDisplay.Display; - Window* win = glutGetXWindow();*/ - - /* get XInput extension opcode */ - if (!XQueryExtension( dpy, "XInputExtension", &xi_opcode, &event, &error )) { xi_opcode = -1; } - - /* Select for motion events */ - mask.deviceid = XIAllMasterDevices; - mask.mask_len = 2; - mask.mask = flags; - - XISetMask(mask.mask, XI_Enter); - XISetMask(mask.mask, XI_Motion); - XISetMask(mask.mask, XI_ButtonPress); - XISetMask(mask.mask, XI_ButtonRelease); - XISetMask(mask.mask, XI_Leave); - /*XISetMask(mask.mask, XI_KeyPress); - XISetMask(mask.mask, XI_KeyRelease); - XISetMask(mask.mask, XI_DeviceChanged); - XISetMask(mask.mask, XI_RawEvent); - XISetMask(mask.mask, XI_FocusIn); - XISetMask(mask.mask, XI_FocusOut); - XISetMask(mask.mask, XI_HierarchyChanged);*/ - - XISelectEvents( dpy, *win, &mask, 1 ); -} - - -void fgPrintXILeaveEvent(XILeaveEvent* event) -{ - char* mode = ""; - char* detail = ""; - int i; - - printf(" windows: root 0x%lx event 0x%lx child 0x%ld\n", - event->root, event->event, event->child); - switch(event->mode) - { - case NotifyNormal: mode = "NotifyNormal"; break; - case NotifyGrab: mode = "NotifyGrab"; break; - case NotifyUngrab: mode = "NotifyUngrab"; break; - case NotifyWhileGrabbed: mode = "NotifyWhileGrabbed"; break; - } - switch (event->detail) - { - case NotifyAncestor: detail = "NotifyAncestor"; break; - case NotifyVirtual: detail = "NotifyVirtual"; break; - case NotifyInferior: detail = "NotifyInferior"; break; - case NotifyNonlinear: detail = "NotifyNonlinear"; break; - case NotifyNonlinearVirtual: detail = "NotifyNonlinearVirtual"; break; - case NotifyPointer: detail = "NotifyPointer"; break; - case NotifyPointerRoot: detail = "NotifyPointerRoot"; break; - case NotifyDetailNone: detail = "NotifyDetailNone"; break; - } - printf(" mode: %s (detail %s)\n", mode, detail); - printf(" flags: %s %s\n", event->focus ? "[focus]" : "", - event->same_screen ? "[same screen]" : ""); - printf(" buttons:"); - for (i = 0; i < event->buttons.mask_len * 8; i++) - if (XIMaskIsSet(event->buttons.mask, i)) - printf(" %d", i); - printf("\n"); - - printf(" modifiers: locked 0x%x latched 0x%x base 0x%x\n", - event->mods.locked, event->mods.latched, - event->mods.base); - printf(" group: locked 0x%x latched 0x%x base 0x%x\n", - event->group.locked, event->group.latched, - event->group.base); - - printf(" root x/y: %.2f / %.2f\n", event->root_x, event->root_y); - printf(" event x/y: %.2f / %.2f\n", event->event_x, event->event_y); - -} - - -void fgPrintXIDeviceEvent(XIDeviceEvent* event) -{ - double *val; - int i; - - printf(" device: %d (%d)\n", event->deviceid, event->sourceid); - printf(" detail: %d\n", event->detail); - printf(" buttons:"); - for (i = 0; i < event->buttons.mask_len * 8; i++) - if (XIMaskIsSet(event->buttons.mask, i)) - printf(" %d", i); - printf("\n"); - - printf(" modifiers: locked 0x%x latched 0x%x base 0x%x\n", - event->mods.locked, event->mods.latched, - event->mods.base); - printf(" group: locked 0x%x latched 0x%x base 0x%x\n", - event->group.locked, event->group.latched, - event->group.base); - printf(" valuators:"); - - val = event->valuators.values; - for (i = 0; i < event->valuators.mask_len * 8; i++) - if (XIMaskIsSet(event->valuators.mask, i)) - printf(" %d: %.2f", i, *val++); - printf("\n"); - - printf(" windows: root 0x%lx event 0x%lx child 0x%ld\n", - event->root, event->event, event->child); - printf(" root x/y: %.2f / %.2f\n", event->root_x, event->root_y); - printf(" event x/y: %.2f / %.2f\n", event->event_x, event->event_y); - -} - - -/** - * \brief This function is called when an Extension Event is received - * and calls the corresponding callback functions for these events. - */ -void fgHandleExtensionEvents( XEvent* base_ev ) { - - int i, button = 0; - XGenericEventCookie* cookie = (XGenericEventCookie*)&(base_ev->xcookie); - - if ( XGetEventData( fgDisplay.pDisplay.Display, cookie ) && (cookie->type == GenericEvent) && (cookie->extension == xi_opcode) ) { - - XIDeviceEvent* event = (XIDeviceEvent*)(cookie->data); - /*printf("XI2 event type: %d - %d\n", cookie->evtype, event->type );*/ - - SFG_Window* window = fgWindowByHandle( event->event ); - if (!window) return; - - switch (cookie->evtype) { - - case XI_Enter: - case XI_Leave: - fgState.Modifiers = fgPlatformGetModifiers( ((XIEnterEvent*)event)->mods.base ); - INVOKE_WCB( *window, MultiEntry, ( - event->deviceid, - (event->evtype == XI_Enter ? GLUT_ENTERED : GLUT_LEFT) - )); - #if _DEBUG - fgPrintXILeaveEvent((XILeaveEvent*)event); - #endif - break; - - case XI_ButtonPress: - case XI_ButtonRelease: - fgState.Modifiers = fgPlatformGetModifiers( event->mods.base ); - INVOKE_WCB( *window, MultiButton, ( - event->deviceid, - event->event_x, - event->event_y, - (event->detail)-1, - (event->evtype == XI_ButtonPress ? GLUT_DOWN : GLUT_UP) - )); - INVOKE_WCB( *window, Mouse, ( - (event->detail)-1, - (event->evtype == XI_ButtonPress ? GLUT_DOWN : GLUT_UP), - event->event_x, - event->event_y - )); - break; - - case XI_Motion: - fgState.Modifiers = fgPlatformGetModifiers( event->mods.base ); - for (i = 0; i < event->buttons.mask_len; i++) if (event->buttons.mask[i]) button = 1; - if (button) { - INVOKE_WCB( *window, MultiMotion, ( event->deviceid, event->event_x, event->event_y ) ); - INVOKE_WCB( *window, Motion, ( event->event_x, event->event_y ) ); - } else { - INVOKE_WCB( *window, MultiPassive, ( event->deviceid, event->event_x, event->event_y ) ); - INVOKE_WCB( *window, Passive, ( event->event_x, event->event_y ) ); - } - #if _DEBUG - fgPrintXIDeviceEvent(event); - #endif - break; - - default: - #if _DEBUG - fgWarning( "Unknown XI2 device event:" ); - fgPrintXIDeviceEvent( event ); - #endif - break; - } - fgState.Modifiers = INVALID_MODIFIERS; - } - XFreeEventData( fgDisplay.pDisplay.Display, cookie ); -} - -#endif - diff --git a/internal/c/parts/core/src/freeglut_main.c b/internal/c/parts/core/src/freeglut_main.c index 250f52500..0d1e43b79 100644 --- a/internal/c/parts/core/src/freeglut_main.c +++ b/internal/c/parts/core/src/freeglut_main.c @@ -2251,13 +2251,11 @@ LRESULT CALLBACK fgWindowProc( HWND hWnd, UINT uMsg, WPARAM wParam, static RAWINPUTDEVICE Rid[1]; case WM_INPUT: { - - -if (raw_setup){ - //QB64 - //adapted from http://msdn.microsoft.com/en-us/library/windows/desktop/ee418864%28v=vs.85%29.aspx#WM_INPUT - UINT dwSize = 40; - static BYTE lpb[40]; + if (raw_setup){ + //QB64 + //adapted from http://msdn.microsoft.com/en-us/library/windows/desktop/ee418864%28v=vs.85%29.aspx#WM_INPUT + UINT dwSize = sizeof(RAWINPUT); + static BYTE lpb[sizeof(RAWINPUT)]; GetRawInputData((HRAWINPUT)lParam, RID_INPUT, lpb, &dwSize, sizeof(RAWINPUTHEADER)); RAWINPUT* raw = (RAWINPUT*)lpb; @@ -2268,9 +2266,8 @@ if (raw_setup){ if (xPosRelative||yPosRelative) qb64_custom_event(QB64_EVENT_RELATIVE_MOUSE_MOVEMENT,xPosRelative,yPosRelative,0,0,0,0,0,0,NULL,NULL); } -} - - break; + } + break; } diff --git a/internal/c/parts/input/game_controller/os/osx/build.command b/internal/c/parts/input/game_controller/os/osx/build.command old mode 100644 new mode 100755 index 204f63593..61e35f063 --- a/internal/c/parts/input/game_controller/os/osx/build.command +++ b/internal/c/parts/input/game_controller/os/osx/build.command @@ -1,6 +1,6 @@ cd "$(dirname "$0")" -gcc -s -c -w -Wall ../../src/Gamepad_macosx.c -o temp/Gamepad_macosx.o -gcc -s -c -w -Wall ../../src/Gamepad_private.c -o temp/Gamepad_private.o +clang -s -c -w -Wall ../../src/Gamepad_macosx.c -o temp/Gamepad_macosx.o +clang -s -c -w -Wall ../../src/Gamepad_private.c -o temp/Gamepad_private.o ar rcs src.a temp/Gamepad_private.o temp/Gamepad_macosx.o echo "Press any key to continue..." Pause() diff --git a/internal/c/parts/video/font/ttf/os/osx/build.command b/internal/c/parts/video/font/ttf/os/osx/build.command old mode 100644 new mode 100755 index bfb617298..0f64658b1 --- a/internal/c/parts/video/font/ttf/os/osx/build.command +++ b/internal/c/parts/video/font/ttf/os/osx/build.command @@ -1,5 +1,5 @@ cd "$(dirname "$0")" -g++ -s -c -w -Wall ../../src/freetypeamalgam.c -o src.o +clang++ -s -c -w -Wall ../../src/freetypeamalgam.c -o src.o echo "Press any key to continue..." Pause() { diff --git a/internal/c/parts/video/font/ttf/os/osx/setup_build.command b/internal/c/parts/video/font/ttf/os/osx/setup_build.command old mode 100644 new mode 100755 index 8ef9a0363..0ea7f68d1 --- a/internal/c/parts/video/font/ttf/os/osx/setup_build.command +++ b/internal/c/parts/video/font/ttf/os/osx/setup_build.command @@ -1,2 +1,2 @@ cd "$(dirname "$0")" -g++ -s -c -w -Wall ../../src/freetypeamalgam.c -o src.o +clang++ -s -c -w -Wall ../../src/freetypeamalgam.c -o src.o diff --git a/internal/c/parts/video/image/decode/bmp/src.c b/internal/c/parts/video/image/decode/bmp/src.c index 54ae19990..cb0188a6c 100644 --- a/internal/c/parts/video/image/decode/bmp/src.c +++ b/internal/c/parts/video/image/decode/bmp/src.c @@ -1,46 +1,46 @@ #ifdef QB64_BACKSLASH_FILESYSTEM - #include "src\\EasyBMP.cpp" -#else - #include "src/EasyBMP.cpp" + #include "src\\EasyBMP.cpp" + #else + #include "src/EasyBMP.cpp" #endif uint8 *image_decode_bmp(uint8 *content,int32 bytes,int32 *result,int32 *x,int32 *y){ -//Result:bit 1=Success,bit 2=32bit[BGRA] -*result=0; - - - -BMP bm; - -if(!bm.ReadFromMemory((char*)content, bytes)){ - return NULL; -} - - - - -int32 h,w; -h=bm.TellHeight(); -w=bm.TellWidth(); - -uint8 *out; -out=(uint8*)malloc(h*w*4); - -uint8* o; -int32 x2,y2; -o=out; -for (y2=0;y2Blue; o++; - *o=bm(x2,y2)->Green; o++; - *o=bm(x2,y2)->Red; o++; - *o=255; o++; -} -} - -*result=1+2; -*x=w; -*y=h; -return out; - + //Result:bit 1=Success,bit 2=32bit[BGRA] + *result=0; + + + + BMP bm; + + if(!bm.ReadFromMemory((char*)content, bytes)){ + return NULL; + } + + + + + int32 h,w; + h=bm.TellHeight(); + w=bm.TellWidth(); + + uint8 *out; + out=(uint8*)malloc(h*w*4); + + uint8* o; + int32 x2,y2; + o=out; + for (y2=0;y2Blue; o++; + *o=bm(x2,y2)->Green; o++; + *o=bm(x2,y2)->Red; o++; + *o=255; o++; + } + } + + *result=1+2; + *x=w; + *y=h; + return out; + } \ No newline at end of file diff --git a/internal/c/parts/video/image/src.c b/internal/c/parts/video/image/src.c index b82910408..0975d79ce 100644 --- a/internal/c/parts/video/image/src.c +++ b/internal/c/parts/video/image/src.c @@ -1,110 +1,110 @@ extern uint32 matchcol(int32 r,int32 g,int32 b); #ifndef DEPENDENCY_IMAGE_CODEC - //Stub(s): - int32 func__loadimage(qbs *f,int32 bpp,int32 passed); -#else - -#ifdef QB64_BACKSLASH_FILESYSTEM - #include "decode\\jpg\\src.c" - #include "decode\\png\\src.c" - #include "decode\\bmp\\src.c" - #include "decode\\other\\src.c" //PNG, TGA, BMP, PSD, GIF, HDR, PIC, PNM(PPM/PGM) -#else - #include "decode/jpg/src.c" - #include "decode/png/src.c" - #include "decode/bmp/src.c" - #include "decode/other/src.c" //PNG, TGA, BMP, PSD, GIF, HDR, PIC, PNM(PPM/PGM) -#endif - -int32 func__loadimage(qbs *f,int32 bpp,int32 passed){ -if (new_error) return 0; - -static int32 isHardware; -isHardware=0; if (bpp==33){bpp=32; isHardware=1;} - -//validate bpp -if (passed){ -if ((bpp!=32)&&(bpp!=256)){error(5); return 0;} -}else{ -if (write_page->text){error(5); return 0;} -bpp=-1; -} -if (!f->len) return -1; //return invalid handle if null length string -if (bpp==256) return -1; //return invalid handle if 256-color mode requested (not valid in this version) - -//load the file -int32 fh,result = 0; -int64 lof; -fh=gfs_open(f,1,0,0); -if (fh<0) return -1; -lof=gfs_lof(fh); -static uint8* content; -content=(uint8*)malloc(lof); if (!content){gfs_close(fh); return -1;} -result=gfs_read(fh,-1,content,lof); -gfs_close(fh); -if (result<0){free(content); return -1;} - -//Identify format: - static int32 format; -format=0; - -//'.png' -if (lof>=8){ -if ((content[0]==0x89)&&(content[1]==0x50)&&(content[2]==0x4E)&&(content[3]==0x47)&& - (content[4]==0x0D)&&(content[5]==0x0A)&&(content[6]==0x1A)&&(content[7]==0x0A)) - {format=2; goto got_format;}//PNG -}//8 - -//'.bmp' -if (lof>=6){ - if ((content[0]==0x42)&&(content[1]==0x4D)){ - if ( (*((int32*)(&content[2]))) == lof ){//length of file - format=3; goto got_format; - } - }//BMP -}//6 - -//'.jpg' The first two bytes of every JPEG stream are the Start Of Image (SOI) marker values FFh D8h -if (lof>=2){ -if ((content[0]==0xFF)&&(content[1]==0xD8)){format=1; goto got_format;}//JP[E]G -}//2 - -got_format: - -static uint8 *pixels; -static int32 x,y; - -if (format==1) pixels=image_decode_jpg(content,lof,&result,&x,&y); -if (format==2) pixels=image_decode_png(content,lof,&result,&x,&y); -if (format==3) pixels=image_decode_bmp(content,lof,&result,&x,&y); -if (!(result & 1)) { - pixels=image_decode_other(content,lof,&result,&x,&y); -} -free(content); -if (!(result&1)) return -1; - -//... - -static int32 i; -static int32 prevDest; -static uint16 scanX, scanY; -static uint8 red, green, blue; - -i=func__newimage(x,y,32,1); -if (i==-1){free(pixels); return -1;} -memcpy(img[-i].offset,pixels,x*y*4); - -free(pixels); - -if (isHardware){ - static int32 iHardware; - iHardware=func__copyimage(i,33,1); - sub__freeimage(i,1); - i=iHardware; -} - -return i; -} - + //Stub(s): + int32 func__loadimage(qbs *f,int32 bpp,int32 passed); + #else + + #ifdef QB64_BACKSLASH_FILESYSTEM + #include "decode\\jpg\\src.c" + #include "decode\\png\\src.c" + #include "decode\\bmp\\src.c" + #include "decode\\other\\src.c" //PNG, TGA, BMP, PSD, GIF, HDR, PIC, PNM(PPM/PGM) + #else + #include "decode/jpg/src.c" + #include "decode/png/src.c" + #include "decode/bmp/src.c" + #include "decode/other/src.c" //PNG, TGA, BMP, PSD, GIF, HDR, PIC, PNM(PPM/PGM) + #endif + + int32 func__loadimage(qbs *f,int32 bpp,int32 passed){ + if (new_error) return 0; + + static int32 isHardware; + isHardware=0; if (bpp==33){bpp=32; isHardware=1;} + + //validate bpp + if (passed){ + if ((bpp!=32)&&(bpp!=256)){error(5); return 0;} + }else{ + if (write_page->text){error(5); return 0;} + bpp=-1; + } + if (!f->len) return -1; //return invalid handle if null length string + if (bpp==256) return -1; //return invalid handle if 256-color mode requested (not valid in this version) + + //load the file + int32 fh,result = 0; + int64 lof; + fh=gfs_open(f,1,0,0); + if (fh<0) return -1; + lof=gfs_lof(fh); + static uint8* content; + content=(uint8*)malloc(lof); if (!content){gfs_close(fh); return -1;} + result=gfs_read(fh,-1,content,lof); + gfs_close(fh); + if (result<0){free(content); return -1;} + + //Identify format: + static int32 format; + format=0; + + //'.png' + if (lof>=8){ + if ((content[0]==0x89)&&(content[1]==0x50)&&(content[2]==0x4E)&&(content[3]==0x47)&& + (content[4]==0x0D)&&(content[5]==0x0A)&&(content[6]==0x1A)&&(content[7]==0x0A)) + {format=2; goto got_format;}//PNG + }//8 + + //'.bmp' + if (lof>=6){ + if ((content[0]==0x42)&&(content[1]==0x4D)){ + if ( (*((int32*)(&content[2]))) == lof ){//length of file + format=3; goto got_format; + } + }//BMP + }//6 + + //'.jpg' The first two bytes of every JPEG stream are the Start Of Image (SOI) marker values FFh D8h + if (lof>=2){ + if ((content[0]==0xFF)&&(content[1]==0xD8)){format=1; goto got_format;}//JP[E]G + }//2 + + got_format: + + static uint8 *pixels; + static int32 x,y; + + if (format==1) pixels=image_decode_jpg(content,lof,&result,&x,&y); + if (format==2) pixels=image_decode_png(content,lof,&result,&x,&y); + if (format==3) pixels=image_decode_bmp(content,lof,&result,&x,&y); + if (!(result & 1)) { + pixels=image_decode_other(content,lof,&result,&x,&y); + } + free(content); + if (!(result&1)) return -1; + + //... + + static int32 i; + static int32 prevDest; + static uint16 scanX, scanY; + static uint8 red, green, blue; + + i=func__newimage(x,y,32,1); + if (i==-1){free(pixels); return -1;} + memcpy(img[-i].offset,pixels,x*y*4); + + free(pixels); + + if (isHardware){ + static int32 iHardware; + iHardware=func__copyimage(i,33,1); + sub__freeimage(i,1); + i=iHardware; + } + + return i; + } + #endif diff --git a/internal/c/parts/zlib/src.c b/internal/c/parts/zlib/src.c new file mode 100644 index 000000000..c8d70d12a --- /dev/null +++ b/internal/c/parts/zlib/src.c @@ -0,0 +1,38 @@ +#include + + qbs *func__deflate(qbs *text){ + uLongf filesize = (uint32)text->len; //length of the text + uLongf compsize = compressBound(filesize); + unsigned char *dest = (unsigned char *)malloc(compsize); + int32 result = compress(dest, &compsize, text->chr, filesize); + qbs *ret = qbs_new(compsize,1); + memcpy(ret->chr, dest, compsize); + free(dest); + return ret; + } + + qbs *func__inflate(qbs *text, int64 originalsize, int32 passed){ + int32 result=0; + if (passed==1){ + uLongf uncompsize = originalsize; + unsigned char *dest = (unsigned char *)malloc(originalsize); + int32 result = uncompress(dest, &uncompsize, text->chr, text->len); + qbs *ret = qbs_new(uncompsize,1); + memcpy(ret->chr, dest, uncompsize); + free(dest); + return ret; + }else{ + uLongf uncompsize = 0; + unsigned char *dest; + do { + uncompsize = uncompsize + 10000000; //10 mb original buffer, resized by 10 mb each pass until it's large enough to hold the uncompressed data. + dest = (unsigned char *)malloc(uncompsize); + result = uncompress(dest, &uncompsize, text->chr, text->len); + if (result==Z_BUF_ERROR)free(dest); //if the buffer is too small, free the old buffer + } while(result==Z_BUF_ERROR); // and try again with a larger buffer + qbs *ret = qbs_new(uncompsize,1); + memcpy(ret->chr, dest, uncompsize); + free(dest); + return ret; + } + } \ No newline at end of file diff --git a/internal/c/purge_all_precompiled_content.command b/internal/c/purge_all_precompiled_content.command old mode 100644 new mode 100755 diff --git a/internal/c/purge_all_precompiled_content_lnx.sh b/internal/c/purge_all_precompiled_content_lnx.sh index 7684aed3a..3b9b1bd85 100755 --- a/internal/c/purge_all_precompiled_content_lnx.sh +++ b/internal/c/purge_all_precompiled_content_lnx.sh @@ -1,32 +1,32 @@ #!/bin/sh -rm libqb/os/win/*.o -rm libqb/os/lnx/*.o +rm -f libqb/os/win/*.o +rm -f libqb/os/lnx/*.o -rm parts/core/os/win/src.a -rm parts/core/os/lnx/src.a -rm parts/core/os/win/temp/*.o -rm parts/core/os/lnx/temp/*.o +rm -f parts/core/os/win/src.a +rm -f parts/core/os/lnx/src.a +rm -f parts/core/os/win/temp/*.o +rm -f parts/core/os/lnx/temp/*.o -rm parts/audio/decode/mp3/os/win/src.a -rm parts/audio/decode/mp3/os/lnx/src.a -rm parts/audio/decode/mp3/os/win/temp/*.o -rm parts/audio/decode/mp3/os/lnx/temp/*.o +rm -f parts/audio/decode/mp3/os/win/src.a +rm -f parts/audio/decode/mp3/os/lnx/src.a +rm -f parts/audio/decode/mp3/os/win/temp/*.o +rm -f parts/audio/decode/mp3/os/lnx/temp/*.o -rm parts/audio/decode/ogg/os/win/src.o -rm parts/audio/decode/ogg/os/lnx/src.o -rm parts/audio/decode/ogg/os/win/temp/*.o -rm parts/audio/decode/ogg/os/lnx/temp/*.o +rm -f parts/audio/decode/ogg/os/win/src.o +rm -f parts/audio/decode/ogg/os/lnx/src.o +rm -f parts/audio/decode/ogg/os/win/temp/*.o +rm -f parts/audio/decode/ogg/os/lnx/temp/*.o -rm parts/audio/conversion/os/win/src.a -rm parts/audio/conversion/os/lnx/src.a -rm parts/audio/conversion/os/win/temp/*.o -rm parts/audio/conversion/os/lnx/temp/*.o +rm -f parts/audio/conversion/os/win/src.a +rm -f parts/audio/conversion/os/lnx/src.a +rm -f parts/audio/conversion/os/win/temp/*.o +rm -f parts/audio/conversion/os/lnx/temp/*.o -rm parts/audio/out/os/win/src.a -rm parts/audio/out/os/lnx/src.a -rm parts/audio/out/os/win/temp/*.o -rm parts/audio/out/os/lnx/temp/*.o +rm -f parts/audio/out/os/win/src.a +rm -f parts/audio/out/os/lnx/src.a +rm -f parts/audio/out/os/win/temp/*.o +rm -f parts/audio/out/os/lnx/temp/*.o -rm parts/video/font/ttf/os/win/src.o -rm parts/video/font/ttf/os/lnx/src.o \ No newline at end of file +rm -f parts/video/font/ttf/os/win/src.o +rm -f parts/video/font/ttf/os/lnx/src.o diff --git a/internal/c/purge_all_precompiled_content_osx.command b/internal/c/purge_all_precompiled_content_osx.command old mode 100644 new mode 100755 index 0d58b169d..81484bb75 --- a/internal/c/purge_all_precompiled_content_osx.command +++ b/internal/c/purge_all_precompiled_content_osx.command @@ -1,32 +1,32 @@ cd "$(dirname "$0")" -rm libqb/os/win/*.o -rm libqb/os/lnx/*.o +rm -f libqb/os/win/*.o +rm -f libqb/os/osx/*.o -rm parts/core/os/win/src.a -rm parts/core/os/lnx/src.a -rm parts/core/os/win/temp/*.o -rm parts/core/os/lnx/temp/*.o +rm -f parts/core/os/win/src.a +rm -f parts/core/os/osx/src.a +rm -f parts/core/os/win/temp/*.o +rm -f parts/core/os/osx/temp/*.o -rm parts/audio/decode/mp3/os/win/src.a -rm parts/audio/decode/mp3/os/lnx/src.a -rm parts/audio/decode/mp3/os/win/temp/*.o -rm parts/audio/decode/mp3/os/lnx/temp/*.o +rm -f parts/audio/decode/mp3/os/win/src.a +rm -f parts/audio/decode/mp3/os/osx/src.a +rm -f parts/audio/decode/mp3/os/win/temp/*.o +rm -f parts/audio/decode/mp3/os/osx/temp/*.o -rm parts/audio/decode/ogg/os/win/src.o -rm parts/audio/decode/ogg/os/lnx/src.o -rm parts/audio/decode/ogg/os/win/temp/*.o -rm parts/audio/decode/ogg/os/lnx/temp/*.o +rm -f parts/audio/decode/ogg/os/win/src.o +rm -f parts/audio/decode/ogg/os/osx/src.o +rm -f parts/audio/decode/ogg/os/win/temp/*.o +rm -f parts/audio/decode/ogg/os/osx/temp/*.o -rm parts/audio/conversion/os/win/src.a -rm parts/audio/conversion/os/lnx/src.a -rm parts/audio/conversion/os/win/temp/*.o -rm parts/audio/conversion/os/lnx/temp/*.o +rm -f parts/audio/conversion/os/win/src.a +rm -f parts/audio/conversion/os/osx/src.a +rm -f parts/audio/conversion/os/win/temp/*.o +rm -f parts/audio/conversion/os/osx/temp/*.o -rm parts/audio/out/os/win/src.a -rm parts/audio/out/os/lnx/src.a -rm parts/audio/out/os/win/temp/*.o -rm parts/audio/out/os/lnx/temp/*.o +rm -f parts/audio/out/os/win/src.a +rm -f parts/audio/out/os/osx/src.a +rm -f parts/audio/out/os/win/temp/*.o +rm -f parts/audio/out/os/osx/temp/*.o -rm parts/video/font/ttf/os/win/src.o -rm parts/video/font/ttf/os/lnx/src.o \ No newline at end of file +rm -f parts/video/font/ttf/os/win/src.o +rm -f parts/video/font/ttf/os/osx/src.o diff --git a/internal/c/qbx.cpp b/internal/c/qbx.cpp old mode 100644 new mode 100755 index bbf4a9256..c209feac6 --- a/internal/c/qbx.cpp +++ b/internal/c/qbx.cpp @@ -1,5 +1,27 @@ #include "common.h" + +extern int32 func__cinp (int32 toggle, int32 passed); //Console INP scan code reader +extern int func__capslock(); +extern int func__scrolllock(); +extern int func__numlock(); +extern void sub__capslock(int32 options); +extern void sub__scrolllock(int32 options); +extern void sub__numlock(int32 options); +extern void sub__consolefont(qbs* FontName, int FontSize); +extern void sub__console_cursor(int32 visible, int32 cursorsize, int32 passed); +extern int32 func__getconsoleinput(); + +extern void unlockvWatchHandle(); +extern int32 vWatchHandle(); + +#ifdef DEPENDENCY_ZLIB + #include + qbs *func__deflate(qbs *text); + qbs *func__inflate(qbs *text, int64 originalsize, int32 passed); +#endif + + #ifdef QB64_MACOSX #include #endif @@ -99,6 +121,7 @@ uint8**out_data,int32*out_x,int32 *out_y,int32*out_x_pre_increment,int32*out_x_p extern void sub__title(qbs *title); extern void sub__echo(qbs *message); +extern void sub__assert(int32 expression, qbs *assert_message, int32 passed); extern void sub__finishdrop(); extern int32 func__filedrop(); extern void sub__filedrop(int32 on_off=NULL); @@ -139,6 +162,7 @@ extern void sub__memfree(void *); extern void sub__memcopy(void *sblk,ptrszint soff,ptrszint bytes,void *dblk,ptrszint doff); extern mem_block func__memnew(ptrszint); extern mem_block func__memimage(int32,int32); +extern mem_block func__memsound(int32 i,int32 targetChannel); extern int64 func__shellhide(qbs *str); extern int64 func_shell(qbs *str); @@ -153,6 +177,8 @@ extern int32 func_windowexists(); extern int32 func_screenicon(); extern int32 func_screenwidth(); extern int32 func_screenheight(); +extern int32 func__borderwidth(); +extern int32 func__titlebarheight(); extern void sub_screenicon(); extern void sub__console(int32); extern int32 func__console(); @@ -161,6 +187,7 @@ extern int32 func__controlchr(); extern void sub__blink(int32); extern int32 func__blink(); extern int32 func__hasfocus(); +extern void set_foreground_window(ptrszint i); extern qbs *func__title(); extern int32 func__handle(); extern int32 func__fileexists(qbs*); @@ -223,6 +250,7 @@ extern int32 func__openconnection(int32); extern int32 func__openclient(qbs*); extern int32 func__connected(int32); extern qbs *func__connectionaddress(int32); +extern int32 func__environcount(); extern qbs *func_environ(qbs*); extern qbs *func_environ(int32); extern void sub_environ(qbs*); @@ -257,7 +285,9 @@ extern uint64 build_uint64(uint32 val2,uint32 val1); extern void fix_error(); extern double get_error_erl(); extern uint32 get_error_err(); +extern char *human_error(int32 errorcode); extern void end(); +extern int32 stop_program_state(); extern uint8 *mem_static_malloc(uint32 size); extern void mem_static_restore(uint8* restore_point); extern uint8 *cmem_dynamic_malloc(uint32 size); @@ -282,6 +312,7 @@ extern qbs *qbs_new_txt(const char *txt); extern qbs *qbs_new_txt_len(const char *txt,int32 len); extern qbs *qbs_new_fixed(uint8 *offset,uint32 size,uint8 tmp); extern qbs *qbs_new(int32 size,uint8 tmp); +extern void set_qbs_size(ptrszint *target_qbs,int32 newlength); extern qbs *qbs_set(qbs *deststr,qbs *srcstr); extern qbs *qbs_add(qbs *str1,qbs *str2); extern qbs *qbs_ucase(qbs *str); @@ -356,7 +387,7 @@ extern void defaultcolors(); extern void validatepage(int32 n); extern void qbg_screen(int32 mode,int32 color_switch,int32 active_page,int32 visual_page,int32 refresh,int32 passed); extern void sub_pcopy(int32 src,int32 dst); -extern void qbsub_width(int32 option,int32 value1,int32 value2,int32 passed); +extern void qbsub_width(int32 option,int32 value1,int32 value2,int32 value3, int32 value4, int32 passed); extern void pset(int32 x,int32 y,uint32 col); extern void pset_and_clip(int32 x,int32 y,uint32 col); extern void qb32_boxfill(float x1f,float y1f,float x2f,float y2f,uint32 col); @@ -458,6 +489,8 @@ extern long double func_fix_float(long double value); extern double func_exp_single(double value); extern long double func_exp_float(long double value); extern void sub_sleep(int32 seconds,int32 passed); +extern qbs *func__bin(int64 value,int32 neg_bits); +extern qbs *func__bin_float(long double value); extern qbs *func_oct(int64 value,int32 neg_bits); extern qbs *func_oct_float(long double value); extern qbs *func_hex(int64 value,int32 neg_size); @@ -606,6 +639,8 @@ extern qbs *ui642string(uint64 v); extern qbs *s2string(float v); extern qbs *d2string(double v); extern qbs *f2string(long double v); +extern qbs *o2string(ptrszint v); +extern qbs *uo2string(uptrszint v); extern char string2b(qbs*str); extern uint8 string2ub(qbs*str); extern int16 string2i(qbs*str); @@ -617,9 +652,15 @@ extern uint64 string2ui64(qbs*str); extern float string2s(qbs*str); extern double string2d(qbs*str); extern long double string2f(qbs*str); +extern ptrszint string2o(qbs*str); +extern uptrszint string2uo(qbs*str); //Cobalt(aka Dave) added the next 2 lines -int64 func__shr(int64 a1, int b1); -int64 func__shl(int64 a1, int b1); +uint64 func__shr(uint64 a1, int b1); +uint64 func__shl(uint64 a1, int b1); +int64 func__readbit(uint64 a1, int b1); +uint64 func__setbit(uint64 a1, int b1); +uint64 func__resetbit(uint64 a1, int b1); +uint64 func__togglebit(uint64 a1, int b1); #ifndef QB64_WINDOWS extern void Sleep(uint32 milliseconds); extern void ZeroMemory(void *ptr,int64 bytes); @@ -628,6 +669,7 @@ extern int64 qbr(long double f); extern uint64 qbr_longdouble_to_uint64(long double f); extern int32 qbr_float_to_long(float f); extern int32 qbr_double_to_long(double f); +extern void fpu_reinit(void); extern uint64 getubits(uint32 bsize,uint8 *base,ptrszint i); extern int64 getbits(uint32 bsize,uint8 *base,ptrszint i); @@ -677,6 +719,7 @@ double error_erl=0; uint32 qbs_tmp_list_nexti=1; uint32 error_occurred=0; uint32 new_error=0; +uint32 bkp_new_error=0; qbs* nothingstring; uint32 qbevent=0; uint8 suspend_program=0; @@ -900,6 +943,46 @@ inline int16 func_abs(int16 d){return abs(d);} inline int32 func_abs(int32 d){return abs(d);} inline int64 func_abs(int64 d){return llabs(d);} +extern int32 disableEvents; + +ptrszint check_lbound(ptrszint *array,int32 index, int32 num_indexes) { + static ptrszint ret; + disableEvents = 1; + ret = func_lbound((ptrszint*)(*array),index,num_indexes); + new_error=0; + disableEvents = 0; + return ret; +} + +ptrszint check_ubound(ptrszint *array,int32 index, int32 num_indexes) { + static ptrszint ret; + disableEvents = 1; + ret = func_ubound((ptrszint*)(*array),index,num_indexes); + new_error=0; + disableEvents = 0; + return ret; +} + +uint64 call_getubits(uint32 bsize,ptrszint *array,ptrszint i) { + return getubits(bsize,(uint8*)(*array),i); +} + +int64 call_getbits(uint32 bsize,ptrszint *array,ptrszint i) { + return getbits(bsize,(uint8*)(*array),i); +} + +void call_setbits(uint32 bsize,ptrszint *array,ptrszint i,int64 val) { + setbits(bsize,(uint8*)(*array),i,val); +} + +int32 logical_drives() { + #ifdef QB64_WINDOWS + return GetLogicalDrives(); + #else + return 0; + #endif +} + inline ptrszint array_check(uptrszint index,uptrszint limit){ //nb. forces signed index into an unsigned variable for quicker comparison if (index>b1;} +inline int64 func__readbit(uint64 a1, int b1) +{if (a1 & 1ull<type=3;} @@ -2169,7 +2185,7 @@ void QBMAIN(void *unused) } chain_input(); #include "..\\temp\\main.txt" - #else + #else #include "../temp/maindata.txt" #include "../temp/runline.txt" #include "../temp/mainerr.txt" @@ -2190,4 +2206,3 @@ void QBMAIN(void *unused) #endif //} (closed by main.txt) - diff --git a/internal/help/$ASSERTS.txt b/internal/help/$ASSERTS.txt new file mode 100644 index 000000000..f42ba38cf --- /dev/null +++ b/internal/help/$ASSERTS.txt @@ -0,0 +1,45 @@ +The [[$ASSERTS]] metacommand enables debug tests with the [[_ASSERT]] macro. + + +{{PageSyntax}} +:[[$ASSERTS]] +:[[$ASSERTS]]:CONSOLE + + +{{PageDescription}} +* If an error message is passed to the [[_ASSERT]] statement, it is displayed in the console window if [[$ASSERTS|$ASSERTS:CONSOLE]] is used. + + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example:'' Adding test checks for parameter inputs in a function. +{{CodeStart}} +{{Cl|$ASSERTS}}:CONSOLE + +{{Cl|DO}} + a = {{Cl|INT}}({{Cl|RND}} * 10) + b$ = myFunc$(a) + {{Cl|PRINT}} a, , b$ + {{Cl|_LIMIT}} 3 +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|_KEYHIT}} + +{{Cl|FUNCTION}} myFunc$ (value {{Cl|AS}} {{Cl|SINGLE}}) + {{Cl|_ASSERT}} value > 0, "Value cannot be zero" + {{Cl|_ASSERT}} value <= 10, "Value cannot exceed 10" + + {{Cl|IF}} value > 1 {{Cl|THEN}} plural$ = "s" + myFunc$ = {{Cl|STRING$}}(value, "*") + {{Cl|STR$}}(value) + " star" + plural$ + " :-)" +{{Cl|END}} {{Cl|FUNCTION}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_ASSERT]] +* [[$CHECKING]] +* [[Relational Operations]] + + +{{PageNavigation}} diff --git a/internal/help/$CHECKING.txt b/internal/help/$CHECKING.txt index f764b222e..0fbbaa317 100644 --- a/internal/help/$CHECKING.txt +++ b/internal/help/$CHECKING.txt @@ -9,11 +9,11 @@ The [[$CHECKING]] metacommand turns C++ event checking ON or OFF. * The OFF action turns event checking off and should '''only be used when running stable, errorless code.''' * The default [[$CHECKING]]:ON action is only required when checking has been turned OFF previously. * When [[$CHECKING]]:OFF is used, all error code and the reporting code is removed from the EXE program. -* '''Warning: Turning OFF error checking could create a General Protection Fault. +* '''Warning: Turning OFF error checking could create a General Protection Fault (or segfault). Use only with 100% stable sections of code.''' ===Details=== * After every QB64 command is translated to C++, the compiler adds special code sections to check for [[ON TIMER (n)]] events and errors that may have occured in the last function call. Disabling error checking with the [[$CHECKING]]:OFF directive prevents the compiler from adding the extra code sections. -* Setting [[$CHECKING]]:OFF is only designed for 100% stable, error-less sections of code, where every CPU cycle saved counts, such as in a software 3D texture mapper, for example. +* Setting [[$CHECKING]]:OFF is only designed for 100% stable, errorless sections of code, where every CPU cycle saved counts, such as in a software 3D texture mapper, for example. {{PageSeeAlso}} @@ -23,4 +23,4 @@ The [[$CHECKING]] metacommand turns C++ event checking ON or OFF. * [[ERROR Codes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$COLOR.txt b/internal/help/$COLOR.txt new file mode 100644 index 000000000..ec582144c --- /dev/null +++ b/internal/help/$COLOR.txt @@ -0,0 +1,50 @@ +[[$COLOR]] is a metacommand that adds named color [[CONST|constants]] in a program. + + +{{PageSyntax}} +: [[$COLOR]]:0 +: [[$COLOR]]:32 + + +{{PageDescription}} +* [[$COLOR]]:0 adds [[CONST|constants]] for colors 0-15. The actual constant names can be found in the file '''source/utilities/color0.bi'''. +* [[$COLOR]]:32 adds [[CONST|constants]] for 32-bit colors, similar to HTML color names. The actual constant names can be found in the file '''source/utilities/color32.bi'''. +* [[$COLOR]] is a shorthand to manually using [[$INCLUDE]] pointing to the files listed above. +* ''NOTE'': When using [[$NOPREFIX]], the color constants change to '''C_''' (ex: '''Blue''' becomes '''C_Blue'''). + + +{{PageExamples}} +''Example 1:'' Adding named color constants for SCREEN 0: +{{CodeStart}} +{{Cl|$COLOR}}:0 +{{Cl|COLOR}} BrightWhite, Red +{{Cl|PRINT}} "BrightWhite on red." + {{CodeEnd}} + + +''Example 2:'' Adding named color constants for 32-bit modes: +{{CodeStart}} +{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 400, 32) +{{Cl|$COLOR}}:32 +{{Cl|COLOR}} CrayolaGold, DarkCyan +{{Cl|PRINT}} "CrayolaGold on DarkCyan." + {{CodeEnd}} + + +''Example 3:'' Using [[$COLOR]] with [[$NOPREFIX]]: +{{CodeStart}} +{{Cl|$NOPREFIX}} +{{Cl|$COLOR}}:0 +{{Cl|COLOR}} C_BrightWhite, C_Red +{{Cl|PRINT}} "BrightWhite on Red." + {{CodeEnd}} + + +{{PageSeeAlso}} +* [[COLOR]], [[SCREEN]] +* [[_NEWIMAGE]], [[$INCLUDE]] +* [[$NOPREFIX]] +* [[Metacommand]] + + +{{PageNavigation}} diff --git a/internal/help/$CONSOLE.txt b/internal/help/$CONSOLE.txt index 8e4ba7023..675ee91c8 100644 --- a/internal/help/$CONSOLE.txt +++ b/internal/help/$CONSOLE.txt @@ -1,19 +1,21 @@ -The [[$CONSOLE]] [[Metacommand]] creates a console window that can be used throughout a QB64 program module. +The [[$CONSOLE]] [[metacommand]] creates a console window that can be used throughout a QB64 program module. {{PageSyntax}} : [[$CONSOLE]][:ONLY] +{{Description}} * [[_CONSOLE]] '''ON''' or '''OFF''' may be used to show or hide the console window at run time. * The ''':ONLY''' option can be used when only a console window is desired without a program window. -* [[_DEST]] [[_CONSOLE]] may be used to send screen output to the console window. +* [[_DEST]] and [[_SOURCE]] are automatically set to [[_CONSOLE]] when the ''':ONLY''' option is used, in order to send screen output to the console window and get input from it too. +** In normal [[$CONSOLE]] mode (dual screen) you have to manually set [[_DEST]] and [[_SOURCE]] to [[_CONSOLE]] in order to work with the console window. * [[_SCREENHIDE]] and [[_SCREENSHOW]] can be used to hide or show the main program window. * [[_DELAY]] or [[SLEEP]] can be used to allow the console window to be set in front of the main program window. -* '''QB64 [[Metacommand]]s are not commented out with ' or REM, differently from Qbasic metacommands''' -* Change the title of the [[$CONSOLE]] windows created using [[_CONSOLETITLE]] +* [[_CONSOLETITLE]] can be used to change the title of the console window. * '''Note:''' Text can be copied partially or totally from console screens in Windows by highlighting and using the title bar menu. -:: To copy console text output, right click the title bar and select ''Edit'' for ''Mark'' to highlight and repeat to ''Copy'' +:: To copy console text output, right click the title bar and select ''Edit'' for ''Mark'' to highlight and repeat to ''Copy'' +* QB64 [[Metacommand]]s are not commented out with ' or REM, differently from QBasic metacommands. {{PageExamples}} @@ -27,7 +29,7 @@ The [[$CONSOLE]] [[Metacommand]] creates a console window that can be used throu {{Cl|_CONSOLE}} ON {{Cl|_DEST}} {{Cl|_CONSOLE}} -{{Cl|PRINT}} "Close this console window or click main window and press a key!" '' '' +{{Cl|PRINT}} "Close this console window or click main window and press a key!" '' '' {{CodeEnd}} @@ -38,17 +40,17 @@ The [[$CONSOLE]] [[Metacommand]] creates a console window that can be used throu c&& = -1: d& = -1: e% = -1: f%% = -1 hx$ = {{Cl|HEX$}}(f%%) -{{Cl|PRINT}} "Max hex {{Cl|_BYTE}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|_BYTE}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(e%) -{{Cl|PRINT}} "Max hex {{Cl|INTEGER}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|INTEGER}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(d&) -{{Cl|PRINT}} "Max hex {{Cl|LONG}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|LONG}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(c&&) -{{Cl|PRINT}} "Max hex {{Cl|_INTEGER64}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|_INTEGER64}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(9223372036854775807) -{{Cl|PRINT}} "Max {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" +{{Cl|PRINT}} "Max {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" hx$ = {{Cl|HEX$}}(-9223372036854775808) -{{Cl|PRINT}} "Min {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" '' '' +{{Cl|PRINT}} "Min {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" '' '' {{CodeEnd}} {{OutputStart}}Max hex _BYTE = FF with 2 digits = 255 Max hex INTEGER = FFFF with 4 digits = 65535 @@ -57,7 +59,7 @@ Max hex _INTEGER64 = FFFFFFFFFFFFFFFF with 16 digits =-1 Max _INTEGER64 value = 7FFFFFFFFFFFFFFF with 16 digits Min _INTEGER64 value = 8000000000000000 with 16 digits {{OutputEnd}} -: ''Console:'' Right click and select ''Edit'' > ''Select All'' (mouse highlight after) then hit Enter or select ''Edit'' > ''Copy'' to the [[_CLIPBOARD$ (function)|clipboard]]. +: ''Console:'' Right click and select ''Edit'' > ''Select All'' (mouse highlight after) then hit Enter or select ''Edit'' > ''Copy'' to the [[_CLIPBOARD$ (function)|clipboard]]. {{TextStart}}Max hex _BYTE = FF with 2 digits = 255 Max hex INTEGER = FFFF with 4 digits = 65535 Max hex LONG = FFFFFFFF with 8 digits = 4294967295 @@ -73,4 +75,4 @@ Max hex _INTEGER64 = FFFFFFFFFFFFFFFF with 16 digits =-1 * [[C_Libraries#Console_Window|C Console Library]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$DEBUG.txt b/internal/help/$DEBUG.txt new file mode 100644 index 000000000..22eddc43a --- /dev/null +++ b/internal/help/$DEBUG.txt @@ -0,0 +1,42 @@ +{{DISPLAYTITLE:$DEBUG}} +'''$DEBUG''' is precompiler [[Metacommand|metacommand]], which enables debugging features, allowing you to step through your code running line by line and to inspect variables and change their values in real time. + + +{{PageSyntax}} +:[[$DEBUG]] + + +{{PageDescription}} +* '''$DEBUG''' injects extra code in the resulting binary, allowing the IDE to control the execution flow of your program. +* When '''$DEBUG''' is used, the IDE will connect to your running program using a local TCP/IP connection. +** You may get a prompt from your Operating System regarding this, so it may be necessary to allow the IDE to receive connections. +** No external connections are created, and your running program will only attempt to connect locally to the IDE. +* The default TCP/IP port starts at 9001. Multiple running instances of the IDE will attempt to open ports 9002 and up. +** You can change the base port in the Debug menu. +* The metacommand is supposed to be removed once your program is ready for release, although leaving it in won't have any effect if your program isn't run from the IDE. +** The only drawback of leaving the metacommand in is that your binary will end up being larger than required. + +== $DEBUG Mode Operation == +* To start execution in pause mode, you can use '''F7''' or '''F8'''. +* There will be an arrow next to the line number where execution is paused, indicating the next line that will be run. +* When you enable '''$DEBUG''' mode, you can set breakpoints by clicking the line number at which you wish to stop execution. This can also be achieved by using the '''F9''' key. +** Breakpoints are indicated by a red dot next to the line number. +** To clear all breakpoints, hit '''F10'''. +* To skip a line during execution, shift-click a line number +** Lines marked for skipping are indicated by an exclamation mark next to the line number. +* '''F4''' opens the Variable List dialog, which allows you to add variables to the Watch List. +* During execution, the Variable List dialog also allows you to set the values of variables and also to create Watchpoints. +* Watchpoints halt execution, similarly to breakpoints, but do so when a variable matches the condition you specify. +** You can use relational operators (=, <>, >=, <=, >, <) to create watchpoint conditions. +* After a breakpoint or a watchpoint is reached, '''F5''' can be used to continue execution. +* '''F6''' can be used when the execution pointer is inside a sub/function. When used, execution will proceed until the procedure is ended. +* '''F7''' can be used to run line by line, and can be used to debug code inside subs/functions (Step Into). +* '''F8''' can be used to run line by line without entering sub/function calls (Step Over). +* '''F12''' can be used to show the current call stack (which procedure calls led to the current line). + + +{{PageSeeAlso}} +* [[Metacommand]]s + + +{{PageNavigation}} diff --git a/internal/help/$DYNAMIC.txt b/internal/help/$DYNAMIC.txt index ba3b2256e..db5a69682 100644 --- a/internal/help/$DYNAMIC.txt +++ b/internal/help/$DYNAMIC.txt @@ -1,12 +1,12 @@ -The [[$DYNAMIC]] [[Metacommand|metacommand]] allows the creation of dynamic (changeable) arrays. +The [[$DYNAMIC]] [[Metacommand|metacommand]] allows the creation of dynamic (resizable) arrays. {{PageSyntax}} -:{[[REM]] | ' } [[$DYNAMIC]] +:{[[REM]] | [[apostrophe|']] } [[$DYNAMIC]] {{PageDescription}} -* QBasic [[Metacommand|metacommands]] require [[REM]] or [[Apostrophe|apostrophe]] (') before them and are always placed at the start of the main module. +* QBasic [[Metacommand|metacommands]] require [[REM]] or [[Apostrophe|apostrophe]] (') before them and are normally placed at the start of the main module. * Dynamic arrays can be resized using [[REDIM]]. The array's type cannot be changed. * All data in the array will be lost when [[REDIM]]ensioned except when [[_PRESERVE]] is used. * [[REDIM]] [[_PRESERVE]] can preserve and may move the previous array data when the array boundaries change. @@ -43,4 +43,4 @@ The [[$DYNAMIC]] [[Metacommand|metacommand]] allows the creation of dynamic (cha * [[Arrays]], [[Metacommand]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$ELSE.txt b/internal/help/$ELSE.txt index a24e3a42b..cc2bd5368 100644 --- a/internal/help/$ELSE.txt +++ b/internal/help/$ELSE.txt @@ -1 +1 @@ -#REDIRECT [[$IF]] \ No newline at end of file +#REDIRECT [[$IF]] diff --git a/internal/help/$ELSEIF.txt b/internal/help/$ELSEIF.txt index a24e3a42b..cc2bd5368 100644 --- a/internal/help/$ELSEIF.txt +++ b/internal/help/$ELSEIF.txt @@ -1 +1 @@ -#REDIRECT [[$IF]] \ No newline at end of file +#REDIRECT [[$IF]] diff --git a/internal/help/$END_IF.txt b/internal/help/$END_IF.txt index a24e3a42b..cc2bd5368 100644 --- a/internal/help/$END_IF.txt +++ b/internal/help/$END_IF.txt @@ -1 +1 @@ -#REDIRECT [[$IF]] \ No newline at end of file +#REDIRECT [[$IF]] diff --git a/internal/help/$ERROR.txt b/internal/help/$ERROR.txt new file mode 100644 index 000000000..b0b3187d5 --- /dev/null +++ b/internal/help/$ERROR.txt @@ -0,0 +1,30 @@ +The [[$ERROR]] metacommand triggers a compilation error. + + +{{PageSyntax}} +: [[$ERROR]] MESSAGE + +{{PageDescription}} +* The Metacommand does '''not''' require a comment or REM before it. +* MESSAGE is any text. Quotation marks are not required. +* When QB64 tries to compile an $ERROR metacommand a compilation error is triggered and MESSAGE is shown to the user. This is useful in [[$IF]] blocks. + +===Details=== +* If there is a particular situation where you know your program will not work properly, you can prevent the user compiling and give them a helpful error message instead by checking for the condition with [[$IF]]. +* An [[$ERROR]] directive not inside an [[$IF]] (or [[$ELSEIF]]) block is useless because the program will never compile. + +{{PageExamples}} +{{CodeStart}} '' '' +{{Cl|$IF}} VERSION < 2.1 OR WINDOWS = 0 THEN + {{Cl|$ERROR}} Requires Windows QB64 version 2.1 or above +{{Cl|$END IF}} +{{CodeEnd}} +''Output'': Compilation check failed: REQUIRES WINDOWS QB64 VERSION 2.1 OR ABOVE on line 2 (assuming your version of QB64 doesn't meet those requirements). + + +{{PageSeeAlso}} +* [[Metacommand]] +* [[$IF]] + + +{{PageNavigation}} diff --git a/internal/help/$EXEICON.txt b/internal/help/$EXEICON.txt new file mode 100644 index 000000000..d9447d7cc --- /dev/null +++ b/internal/help/$EXEICON.txt @@ -0,0 +1,33 @@ +'''$EXEICON''' pre-compiler metacommand embeds a designated icon file into the compiled EXE file to be viewed in Windows Explorer. + + +{{PageSyntax}} +: [[$EXEICON]]:'{{Parameter|iconfile.ico}}' + + +{{PageParameters}} +* '{{Parameter|iconfile.ico}}' is a valid [https://en.wikipedia.org/wiki/ICO_(file_format) ICO file] + + +{{PageDescription}} + +* Calling [[_ICON]] without an {{Parameter|imageHandle&}} uses the embeded icon, if available. +** Starting with '''build 20170906/64''', the window will automatically use the icon embedded by [[$EXEICON]], without having to call _ICON. +* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]]'''. + + +{{PageExamples}} +''Example:'' Embeds a designated icon file into the compiled EXE which can be viewed in Windows Explorer folders. +{{CodeStart}} +{{Cl|$EXEICON}}:'mush.ico' +{{Cl|_ICON}} +{{CodeEnd}}{{small|Code and command by Fellippe Heitor}} + + +{{PageSeeAlso}} +* [[_ICON]] +* [[_TITLE]] + + + +{{PageNavigation}} diff --git a/internal/help/$IF.txt b/internal/help/$IF.txt index baca220db..28687b64f 100644 --- a/internal/help/$IF.txt +++ b/internal/help/$IF.txt @@ -14,9 +14,16 @@ * $IF is the start of a precompiler code block which includes or excludes sections of code from being compiled. * There is no single line $IF statement. $IF must be in a valid $IF THEN...$END IF block to work properly. * Like all other metacommands, you can not use more than one metacommand per line. '''Use of : to separate statements in a single line is not allowed.''' -* Variable names can contain numbers, letters, and periods -- in any order. -* Expressions can contain one set of leading and/or trailing quotes; and any number of numbers, letters, and periods, in any order. -* The precompiler comes with some preset values which can be used to help determine which code blocks to include/exclude for us. These are: '''WIN''' or '''WINDOWS''' if the user is running QB64 in a Windows environment. '''LINUX''' if the user is running QB64 in a Linux environment. '''MAC''' or '''MACOSX''' if the user is running QB64 in a macOS environment. '''32BIT''' if the user is running a 32-bit version of QB64. '''64BIT''' if the user is running a 64-bit version of QB64. +* Variable names can contain numbers, letters and periods, in any order. +* Expressions can contain one set of leading and/or trailing quotes; and any number of numbers, letters and periods, in any order. +* The precompiler comes with some preset values which can be used to help determine which code blocks to include/exclude. These are: +** '''WIN''' or '''WINDOWS''' if the user is running QB64 in a Windows environment. +** '''LINUX''' if the user is running QB64 in a Linux environment. +** '''MAC''' or '''MACOSX''' if the user is running QB64 in a macOS environment. +** '''32BIT''' if the user is running a 32-bit version of QB64. +** '''64BIT''' if the user is running a 64-bit version of QB64. +** '''VERSION''', which is set to the version of the QB64 compiler. This is a number and can be ordered, see example below. +* Special values '''DEFINED''' and '''UNDEFINED''' can be used to check whether a precompiler variable has already been assigned a value. Useful for code in libraries which may be repeated. * [[$END IF]] denotes the end of a valid precompiler $IF block. * [[$ELSEIF]] must follow a valid $IF or $ELSEIF statement. * If [[$ELSE]] is used, it must be used as the last conditional check before $END IF. $ELSEIF cannot come after $ELSE. @@ -34,7 +41,7 @@ {{Cl|$END IF}} {{Cl|COLOR}} Red -{{Cl|PRINT}} "Hello World" +{{Cl|PRINT}} "Hello World" {{CodeEnd}} ''Explanation:'' The same CONST is defined twice inside the program. Normally, defining a CONST more than once generates an error, but the $IF condition here is choosing which CONST will be inside the final program. @@ -47,20 +54,31 @@ The [[$LET]] and $IF statements let the programmer control the code that actuall ''Example 2:'' {{CodeStart}} '' '' {{Cl|$IF}} WIN THEN - {{Cl|CONST}} Slash = "\" + {{Cl|CONST}} Slash = "\" {{Cl|$ELSE}} - {{Cl|CONST}} Slash = "/" + {{Cl|CONST}} Slash = "/" {{Cl|$END IF}} -{{Cl|PRINT}} "The proper slash for your operating system is "; Slash +{{Cl|PRINT}} "The proper slash for your operating system is "; Slash {{CodeEnd}} ''Explanation:'' For the above, the CONST slash is defined by the automatic internal flags which returns what operating system is being used at compile time. On a Windows PC, the Slash will be the backslash; for any other OS it will be the forward slash. +''Example 3:'' +{{CodeStart}} '' '' +{{Cl|$IF}} VERSION < 1.5 THEN + {{Cl|$ERROR}} Requires QB64 version 1.5 or greater +{{Cl|$END IF}} +{{CodeEnd}} + +''Explanation:'' VERSION is a predefined variable that holds the QB64 compiler version. If we know our program needs features only available above a certain version, we can check for that and give the user a helpful error message instead of a confusing error elsewhere in the program. + + {{PageSeeAlso}} * [[$LET]] +* [[$ERROR]] * [[Metacommand]]s -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$INCLUDE.txt b/internal/help/$INCLUDE.txt index 08f77fb8c..5acff5f59 100644 --- a/internal/help/$INCLUDE.txt +++ b/internal/help/$INCLUDE.txt @@ -2,7 +2,7 @@ {{PageSyntax}} -: {[[REM]] | [[REM|']] } $INCLUDE: '{{Parameter|sourceFile}}' +: {[[REM]] | [[apostrophe|']] } [[$INCLUDE]]: '{{Parameter|sourceFile}}' {{PageDescription}} @@ -39,4 +39,4 @@ * [[Metacommand]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$LET.txt b/internal/help/$LET.txt index 014023e5b..55345de5c 100644 --- a/internal/help/$LET.txt +++ b/internal/help/$LET.txt @@ -1,4 +1,4 @@ -[[$LET]] is precompiler command, which is now usable by modern day [[cavemen]] to help include and exclude which sections of code compiles in their program based on OS/bit-size or other predefined conditions. +[[$LET]] is a precompiler command, which is now usable by modern day [[cavemen]] to help include and exclude which sections of code compiles in their program based on OS/bit-size or other predefined conditions. {{PageSyntax}} @@ -7,9 +7,16 @@ {{PageDescription}} * Unlike [[LET]], [[$LET]] is not optional. -* $LET a = 12 sets a precompiler variable "a" to the value of 12. This variable is only valid for the precompiler itself and does nothing to affect the values of any variable/constant which might also be called "a" in the program. -* Variable names can contain numbers, letters, and periods in any order. [[$LET]] '''3.2 = TRUE''' is a perfectly valid variable and expression. -* Expressions can contain one set of leading and/or trailing quotes; and any number of numbers, letters, and periods, in any order. [[$LET]] '''3.2 = "TRUE"''' is also perfectly valid, but [[$LET]] '''3.2 = ""TRUE""''' will error because of the double quotes. +* $LET A = 12 sets a precompiler variable "a" to the value of 12. This variable is only valid for the precompiler itself and does nothing to affect the values of any variable/constant which might also be called "a" in the program. +* Variable names must follow QB64's variable naming conventions. +* You can check a precompiler variable against special values '''DEFINED''' and '''UNDEFINED''', in order to assess whether the variable has already been assigned a value. Useful for code in libraries which may be repeated. +* The precompiler comes with some preset values which can be used to help determine which code blocks to include/exclude. These are: +** '''WIN''' or '''WINDOWS''' if the user is running QB64 in a Windows environment. +** '''LINUX''' if the user is running QB64 in a Linux environment. +** '''MAC''' or '''MACOSX''' if the user is running QB64 in a macOS environment. +** '''32BIT''' if the user is running a 32-bit version of QB64. +** '''64BIT''' if the user is running a 64-bit version of QB64. +** '''VERSION''', which is set to the version of the QB64 compiler. {{PageExamples}} @@ -24,4 +31,4 @@ * [[Cavemen]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$NOPREFIX.txt b/internal/help/$NOPREFIX.txt new file mode 100644 index 000000000..ca3b42f23 --- /dev/null +++ b/internal/help/$NOPREFIX.txt @@ -0,0 +1,26 @@ +The [[$NOPREFIX]] metacommand allows all QB64 functions and statements to be used without the leading underscore (_). + + +{{PageSyntax}} +:[[$NOPREFIX]] + + +{{PageDescription}} +* QB64-specific keywords are by default prefixed with an underscore, in order to differentiate them from legacy keywords inherited from QBasic/QuickBASIC 4.5. +* The convention exists in order to allow older code to be loaded and compiled in QB64 without naming conflicts with existing variables or constants. +* If you are writing new code with QB64, and not importing code from QBasic/QuickBASIC 4.5, [[$NOPREFIX]] allows you to reduce typing by not having to use underscores in modern keywords. +* '''SUB _GL''' still must be prefixed. +* When [[$NOPREFIX]] is used, QB64 keywords can be used both with or without the leading underscore, so that both [[_DISPLAY]] and [[_DISPLAY|DISPLAY]] are valid in the same program, for example. +* [[$NOPREFIX]] can be placed anywhere in a program. + + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageSeeAlso}} +* [[Keyword Reference - Alphabetical]] +* [[Metacommand]] + + +{{PageNavigation}} diff --git a/internal/help/$RESIZE.txt b/internal/help/$RESIZE.txt index 4a2159aac..216446881 100644 --- a/internal/help/$RESIZE.txt +++ b/internal/help/$RESIZE.txt @@ -12,8 +12,8 @@ The [[$RESIZE]] [[Metacommand|metacommand]] determines if a program window can b * $RESIZE:SMOOTH the screen will be stretched also, but with linear filtering applied to the pixels. -==Availability== -* '''Version 1.000 and up'''. +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -82,10 +82,10 @@ DO ' *** Remove ({{Cl|TIMER (statement)|FREE}}) the original {{Cl|SCREEN}} image. {{Cl|_FREEIMAGE}} CurrentScreen - ' *** Create a new "original" {{Cl|SCREEN}} image. + ' *** Create a new "original" {{Cl|SCREEN}} image. CurrentScreen = {{Cl|_NEWIMAGE}}({{Cl|_RESIZEWIDTH}}, {{Cl|_RESIZEHEIGHT}}, 32) - ' *** Set the {{Cl|SCREEN}} to the new "original" image, releasing the copied {{Cl|SCREEN}} image. + ' *** Set the {{Cl|SCREEN}} to the new "original" image, releasing the copied {{Cl|SCREEN}} image. {{Cl|SCREEN}} CurrentScreen ' {{Cl|DRAW}} PREVIOUS {{Cl|SCREEN}} ON THE NEW ONE @@ -111,4 +111,4 @@ DO * [[_RESIZEWIDTH]], [[_RESIZEHEIGHT]] {{text|(functions return the requested dimensions)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$SCREENHIDE.txt b/internal/help/$SCREENHIDE.txt index 89b319e3b..ccae45a05 100644 --- a/internal/help/$SCREENHIDE.txt +++ b/internal/help/$SCREENHIDE.txt @@ -14,17 +14,17 @@ The [[$SCREENHIDE]] [[Metacommand|metacommand]] can be used to hide the main pro ''Example:'' Hiding a program when displaying a message box in Windows. {{CodeStart}} '' '' {{Cl|$SCREENHIDE}} -{{Cl|DECLARE DYNAMIC LIBRARY}} "user32" +{{Cl|DECLARE DYNAMIC LIBRARY}} "user32" {{Cl|FUNCTION}} MessageBoxA& ({{Cl|BYVAL}} hWnd%&, {{Cl|BYVAL}} lpText%&, {{Cl|BYVAL}} lpCaption%&, {{Cl|BYVAL}} uType~&) {{Cl|DECLARE LIBRARY|END DECLARE}} -{{Cl|DECLARE DYNAMIC LIBRARY}} "kernel32" +{{Cl|DECLARE DYNAMIC LIBRARY}} "kernel32" {{Cl|SUB}} ExitProcess ({{Cl|BYVAL}} uExitCode~&) {{Cl|DECLARE LIBRARY|END DECLARE}} {{Cl|DIM}} s0 {{Cl|AS}} {{Cl|STRING}} {{Cl|DIM}} s1 {{Cl|AS}} {{Cl|STRING}} -s0 = "Text" + {{Cl|CHR$}}(0) -s1 = "Caption" + {{Cl|CHR$}}(0) -ExitProcess MessageBoxA(0, {{Cl|_OFFSET (function)|_OFFSET}}(s0), {{Cl|_OFFSET(function)|_OFFSET}}(s1), 0) +s0 = "Text" + {{Cl|CHR$}}(0) +s1 = "Caption" + {{Cl|CHR$}}(0) +ExitProcess MessageBoxA(0, {{Cl|_OFFSET (function)|_OFFSET}}(s0), {{Cl|_OFFSET (function)|_OFFSET}}(s1), 0) {{CodeEnd}}{{small|Code by Michael Calkins}} @@ -34,4 +34,4 @@ ExitProcess MessageBoxA(0, {{Cl|_OFFSET (function)|_OFFSET}}(s0), {{Cl|_OFFSET(f * [[_CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$SCREENSHOW.txt b/internal/help/$SCREENSHOW.txt index 8adf448cb..d203b9624 100644 --- a/internal/help/$SCREENSHOW.txt +++ b/internal/help/$SCREENSHOW.txt @@ -18,4 +18,4 @@ The [[$SCREENSHOW]] [[Metacommand|metacommand]] can be used to display the main * [[_CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$STATIC.txt b/internal/help/$STATIC.txt index 9c558e4e2..52f629c09 100644 --- a/internal/help/$STATIC.txt +++ b/internal/help/$STATIC.txt @@ -1,23 +1,24 @@ -The '''$STATIC''' Metacommand allows the creation of STATIC(un-changeable) arrays. - +The [[$STATIC]] [[Metacommand|metacommand]] allows the creation of static (unresizable) arrays. {{PageSyntax}} -::: REM '''$STATIC''' +:{[[REM]] | [[apostrophe|']] } [[$STATIC]] -* Qbasic [[Metacommand]]s require a REM or apostrophy (') before them and are normally placed at the start of the main module. +{{PageDescription}} +* QBasic [[Metacommand]]s require a REM or apostrophy (') before them and are normally placed at the start of the main module. * Static arrays cannot be resized. If a variable is used to size any array, it becomes [[$DYNAMIC]]. -* A [[REDIM]] statement has no effect on [[$STATIC]] arrays except perhaps a [[ERROR Codes|duplicate definition error]] at the [[REDIM]] code. +* A [[REDIM]] statement has no effect on [[$STATIC]] arrays except perhaps a [[ERROR Codes|duplicate definition error]] at the [[REDIM]] statement. * The array's type cannot be changed once [[DIM]] and a literal value sets the dimensions and element size. * [[$STATIC]] defined program [[arrays]] cannot be [[REDIM|re-sized]] or use [[_PRESERVE]]. +{{PageExamples}} ''Example:'' When a variable is used, the array can be resized despite $STATIC. The array becomes [[$DYNAMIC]]. {{CodeStart}} '' '' '{{Cl|$STATIC}} -{{Cl|INPUT}} "Enter array size: ", size +{{Cl|INPUT}} "Enter array size: ", size {{Cl|DIM}} array(size) 'using an actual number instead of the variable will create an error! {{Cl|REDIM}} array(2 * size) @@ -27,9 +28,9 @@ The '''$STATIC''' Metacommand allows the creation of STATIC(un-changeable) array : ''Note:'' [[DIM]] using a literal numerical size will create a Duplicate definition error. -''See also:'' +{{PageSeeAlso}} * [[$DYNAMIC]], [[STATIC]] * [[Arrays]], [[Metacommand]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/$VERSIONINFO.txt b/internal/help/$VERSIONINFO.txt new file mode 100644 index 000000000..2a2041ecd --- /dev/null +++ b/internal/help/$VERSIONINFO.txt @@ -0,0 +1,40 @@ +{{DISPLAYTITLE:$VERSIONINFO}} +The [[$VERSIONINFO]] [[Metacommand|metacommand]] adds text metadata to the resulting executable for identification purposes across the OS. Windows-only. + + +{{PageSyntax}} +: [[$VERSIONINFO]]:{{Parameter|key}}={{Parameter|value}} + + +{{PageParameters}} +* Text ''keys'' can be: '''CompanyName, FileDescription, InternalName, LegalCopyright, LegalTrademarks, OriginalFilename, ProductName, Web, Comments''' +* Numeric {{Parameter|keys}} can be:'''FILEVERSION#''' and '''PRODUCTVERSION#''' + + +{{PageDescription}} +* Text and numerical values are string literals without quotes entered by programmer. '''No variables are accepted.''' (variable names would be interpreted as literals). +* Numeric key=''value'' must be 4 comma-separated numerical text values entered by programmer which usually stand for major, minor, revision and build numbers). +* A manifest file is automatically embedded into the resulting .exe file so that Common Controls v6.0 gets linked at runtime, if required. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageAvailability}} +* Build 20170429/52 and up. + + +{{PageExamples}} +''Example:'' Adding metadata to a Windows exe compiled with QB64: +{{CodeStart}} +{{Cl|$VERSIONINFO}}:CompanyName=Your company name goes here +{{Cl|$VERSIONINFO}}:FILEVERSION#=1,0,0,0 +{{Cl|$VERSIONINFO}}:PRODUCTVERSION#=1,0,0,0 +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[$EXEICON]] +* [[_ICON]] +* [https://msdn.microsoft.com/library/windows/desktop/aa381058(v=vs.85).aspx VERSIONINFO resource (MSDN)] + + +{{PageNavigation}} diff --git a/internal/help/$VIRTUALKEYBOARD.txt b/internal/help/$VIRTUALKEYBOARD.txt index 3bf065a54..9f7fada6b 100644 --- a/internal/help/$VIRTUALKEYBOARD.txt +++ b/internal/help/$VIRTUALKEYBOARD.txt @@ -1,5 +1,5 @@ {{DISPLAYTITLE:$VIRTUALKEYBOARD}} -The [[$VIRTUALKEYBOARD]] [[Metacommand|metacommand]] turns the virtual keyboard ON or OFF. +[DEPRECATED] The [[$VIRTUALKEYBOARD]] [[Metacommand|metacommand]] turns the virtual keyboard ON or OFF. {{PageSyntax}} @@ -8,6 +8,7 @@ The [[$VIRTUALKEYBOARD]] [[Metacommand|metacommand]] turns the virtual keyboard {{PageDescription}} * Places a virtual keyboard on screen, which can be used in touch-enabled devices like Windows tablets. +* Deprecated. {{PageExamples}} @@ -22,4 +23,4 @@ The [[$VIRTUALKEYBOARD]] [[Metacommand|metacommand]] turns the virtual keyboard * [[Metacommand]]s -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/%26B.txt b/internal/help/%26B.txt index fcc105a34..7d09b0a73 100644 --- a/internal/help/%26B.txt +++ b/internal/help/%26B.txt @@ -7,28 +7,28 @@ The '''&B''' prefix denotes that an integer value is expressed in a binary b * The base 2 numbering system uses binary digit values of 1 or 0, or bits on or bits off in computer register switches or memory. * Leading zero values '''can''' be omitted as they add nothing to the byte return value. -* Eight binary digits would represent a one byte value ranging from 0 to 255. Four digit values("nibbles") range from 0 to 15. -* Decimal values returned can be any '''signed''' [[INTEGER]], [[LONG]] integer, or [[_INTEGER64]] value so use those type of variables when converting directly as shown in the Syntax. The program [[ERROR Codes|"overflow"]] error limits are listed as: +* Eight binary digits would represent a one byte value ranging from 0 to 255. Four digit values("nibbles") range from 0 to 15. +* Decimal values returned can be any '''signed''' [[INTEGER]], [[LONG]] integer, or [[_INTEGER64]] value so use those type of variables when converting directly as shown in the Syntax. The program [[ERROR Codes|"overflow"]] error limits are listed as: ** [[INTEGER]]: 16 binary digits or a decimal value range from -32,768 to 32,767 ** [[LONG]]: 32 binary digits or a decimal value range from -2,147,483,648 to 2,147,483,647 ** [[_INTEGER64]]: 64 binary digits or decimal values from -9,223,372,036,854,775,808 to 9,223,372,036,854,775,807. * [[LONG]] values can be returned by appending the & or ~%([[_UNSIGNED]] [[INTEGER]]) symbols after the binary number. -* [[VAL]] can '''NOT''' be used to convert "&B" prefixed string values to decimal! You will have to make your own conversion function. +* [[VAL]] can be used to convert "&B" prefixed string values to decimal. -<center>'''[[_BIT|BITS]]'''</center> +<center>'''[[_BIT|BITS]]'''</center> * The '''MSB''' is the most significant(largest) bit value and '''LSB''' is the least significant bit of a binary or register memory address value. The order in which the bits are read determines the binary or decimal byte value. There are two common ways to read a byte: -:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. -:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. +:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. +:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. {{WhiteStart}} '''Offset or Position: 0 1 2 3 4 5 6 7 Example: 11110000''' ---------------------------------- -------- '''Big-Endian Bit On Value:''' 128 64 32 16 8 4 2 1 240 '''Little-Endian Bit On Value:''' 1 2 4 8 16 32 64 128 15 {{WhiteEnd}} -::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. +::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. -<center>'''[[_BYTE|BYTES]]'''</center> +<center>'''[[_BYTE|BYTES]]'''</center> * [[INTEGER]] values consist of 2 bytes called the '''HI''' and '''LO''' bytes. Anytime that the number of binary digits is a multiple of 16 (2bytes, 4 bytes, etc.) and the HI byte's MSB is on(1), the value returned will be negative. Even with [[SINGLE]] or [[DOUBLE]] values! {{WhiteStart}} '''16 BIT INTEGER OR REGISTER''' '''AH (High Byte Bits) AL (Low Byte Bits)''' @@ -60,7 +60,7 @@ The '''&B''' prefix denotes that an integer value is expressed in a binary b 12 1100 C 14 13 1101 D 15 14 1110 E 16 - 15 ------------- 1111 <--- Match ---> F ---------------- 17 -- max 2 + 15 ------------- 1111 <--- Match ---> F ---------------- 17 -- max 2 16 10000 10 20 When the Decimal value is 15, the other 2 base systems are all maxed out! @@ -93,9 +93,9 @@ The '''&B''' prefix denotes that an integer value is expressed in a binary b {{Cl|FUNCTION}} BIN$ (n%) max% = 8 * {{Cl|LEN}}(n%) ': MSB% = 1 'uncomment for 16 (32 or 64) bit returns {{Cl|FOR...NEXT|FOR}} i = max% - 1 {{Cl|TO}} 0 {{Cl|STEP}} -1 'read as big-endian MSB to LSB - {{Cl|IF...THEN|IF}} (n% {{Cl|AND (boolean)|AND}} 2 ^ i) {{Cl|THEN}} MSB% = 1: B$ = B$ + "1" {{Cl|ELSE}} {{Cl|IF...THEN|IF}} MSB% {{Cl|THEN}} B$ = B$ + "0" + {{Cl|IF...THEN|IF}} (n% {{Cl|AND (boolean)|AND}} 2 ^ i) {{Cl|THEN}} MSB% = 1: B$ = B$ + "1" {{Cl|ELSE}} {{Cl|IF...THEN|IF}} MSB% {{Cl|THEN}} B$ = B$ + "0" {{Cl|NEXT}} -{{Cl|IF...THEN|IF}} B$ = "" {{Cl|THEN}} BIN$ = "0" {{Cl|ELSE}} BIN$ = B$ 'check for empty string +{{Cl|IF...THEN|IF}} B$ = "" {{Cl|THEN}} BIN$ = "0" {{Cl|ELSE}} BIN$ = B$ 'check for empty string {{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} @@ -105,7 +105,7 @@ The '''&B''' prefix denotes that an integer value is expressed in a binary b 1000000000000000 1111111111111111 {{OutputEnd}} -''Note:'' The The MSB% flag allows zeroes to be added. Uncomment the MSB% = 1 statement for returns with leading zero's. +''Note:'' The The MSB% flag allows zeroes to be added. Uncomment the MSB% = 1 statement for returns with leading zeroes. ''Example 2:'' QB64 converts the binary values from the example above to [[INTEGER]] decimal values automatically. @@ -128,10 +128,11 @@ d = &B1111111111111111 '& 'or ~% : ''Note:'' The [[LONG]] values returned are the same as the values you can get using [[_UNSIGNED]] [[INTEGER]] (~%). -''See also:'' +{{PageSeeAlso}} * [[_BIT]], [[_BYTE]] +* [[_SHL]], [[_SHR]] * [[OCT$]], [[&O]] {{text|(octal)}} * [[HEX$]], [[&H]] {{text|(hexadecimal)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/%26H.txt b/internal/help/%26H.txt index 1304403f8..d1d50e41f 100644 --- a/internal/help/%26H.txt +++ b/internal/help/%26H.txt @@ -7,7 +7,7 @@ The '''&H''' prefix denotes that an integer value is expressed in a Hexadeci * The base 16 numbering system uses hexadecimal digit values of 0 to F. A = 10, B = 11, C = 12, D = 13, E = 14 and F = 15. * Leading zero values can be omitted just like in decimal values as they add nothing to the return value. -* Decimal values returned can be any '''signed''' [[INTEGER]], [[LONG]] integer, or [[_INTEGER64]] value so use those type of variables when converting directly as shown above in the Syntax. The program [[ERROR Codes|"overflow"]] error limits are listed as: +* Decimal values returned can be any '''signed''' [[INTEGER]], [[LONG]] integer, or [[_INTEGER64]] value so use those type of variables when converting directly as shown above in the Syntax. The program [[ERROR Codes|"overflow"]] error limits are listed as: ::* [[_BYTE]]: 2 hex digits or a decimal value range from -128 to 127. [[_UNSIGNED]]: 0 to 255. ::* [[INTEGER]]: 4 hex digits or a decimal value range from -32,768 to 32,767. [[_UNSIGNED]]: 0 to 65535. ::* [[LONG]]: 8 hex digits or a decimal value range from -2,147,483,648 to 2,147,483,647. [[_UNSIGNED]]: 0 to 4294967295. @@ -18,24 +18,24 @@ The '''&H''' prefix denotes that an integer value is expressed in a Hexadeci * [[LONG]] 32 bit [[_RGB]] values can be made using hexadecimal values from '''&HFF{{text|00|red}}{{text|00|green}}{{text|00|blue}}''' to '''&HFF{{text|FF|red}}{{text|FF|green}}{{text|FF|blue}}''' with full [[_ALPHA]] only. * [[LONG]] 32 bit [[_RGBA]] values can be made using hexadecimal values from '''&H00{{text|00|red}}{{text|00|green}}{{text|00|blue}}''' to '''&HFF{{text|FF|red}}{{text|FF|green}}{{text|FF|blue}}''' with any [[_ALPHA]]. * Hexadecimal '''0x''' is often used to prefix [[HEX$]] port addresses in documentation. Replace 0x with [[&H]] in QB64 or QBasic. -* To convert hex strings returned from [[HEX$]] with [[VAL]] you need to prefix the string with &H (for example; if the string is "FF" you should do VAL("&HFF") or VAL("&H" + hexvalue$). +* To convert hex strings returned from [[HEX$]] with [[VAL]] you need to prefix the string with &H (for example; if the string is "FF" you should do VAL("&HFF") or VAL("&H" + hexvalue$). ''Example 1:'' The maximum octal values of decimal value -1 in each numerical type are: {{CodeStart}} '' '' c&& = -1: d& = -1: e% = -1: f%% = -1 hx$ = {{Cl|HEX$}}(f%%) -{{Cl|PRINT}} "Max hex {{Cl|_BYTE}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|_BYTE}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(e%) -{{Cl|PRINT}} "Max hex {{Cl|INTEGER}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|INTEGER}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(d&) -{{Cl|PRINT}} "Max hex {{Cl|LONG}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|LONG}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(c&&) -{{Cl|PRINT}} "Max hex {{Cl|_INTEGER64}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) +{{Cl|PRINT}} "Max hex {{Cl|_INTEGER64}} = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits ="; {{Cl|VAL}}("{{Cl|&H}}" + hx$) hx$ = {{Cl|HEX$}}(9223372036854775807) -{{Cl|PRINT}} "Max {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" +{{Cl|PRINT}} "Max {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" hx$ = {{Cl|HEX$}}(-9223372036854775808) -{{Cl|PRINT}} "Min {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" '' '' +{{Cl|PRINT}} "Min {{Cl|_INTEGER64}} value = "; hx$; " with"; {{Cl|LEN}}(hx$); "digits" '' '' {{CodeEnd}} {{OutputStart}}Max hex _BYTE = FF with 2 digits = 255 Max hex INTEGER = FFFF with 4 digits = 65535 @@ -48,34 +48,34 @@ Min _INTEGER64 value = 8000000000000000 with 16 digits ''Example 2:'' Converting a decimal number to a binary string value using [[HEX$]]. {{CodeStart}} '' '' -FUNCTION BIN$ (n&) +{{Cl|FUNCTION}} BIN$ (n&) h$ = {{Cl|HEX$}}(n&) 'get hexadecimal string value - FOR i = 1 TO {{Cl|LEN}}(h$) 'scan the HEX$ digits - SELECT CASE {{Cl|MID$}}(h$, i, 1) 'read each HEX$ digit - CASE "0": b$ = b$ + "0000" - CASE "1": b$ = b$ + "0001" - CASE "2": b$ = b$ + "0010" - CASE "3": b$ = b$ + "0011" - CASE "4": b$ = b$ + "0100" - CASE "5": b$ = b$ + "0101" - CASE "6": b$ = b$ + "0110" - CASE "7": b$ = b$ + "0111" - CASE "8": b$ = b$ + "1000" - CASE "9": b$ = b$ + "1001" - CASE "A": b$ = b$ + "1010" - CASE "B": b$ = b$ + "1011" - CASE "C": b$ = b$ + "1100" - CASE "D": b$ = b$ + "1101" - CASE "E": b$ = b$ + "1110" - CASE "F": b$ = b$ + "1111" - END SELECT - NEXT i - b$ = {{Cl|RIGHT$}}(b$, LEN(b$) - {{Cl|INSTR}}(b$, "1") + 1) 'eliminate leading zeroes - IF {{Cl|VAL}}(b$) THEN BIN$ = b$ ELSE BIN$ = "0" 'return zero if n& = 0 -END FUNCTION '' '' + {{Cl|FOR}} i = 1 {{Cl|TO}} {{Cl|LEN}}(h$) 'scan the HEX$ digits + {{Cl|SELECT CASE}} {{Cl|MID$}}(h$, i, 1) 'read each HEX$ digit + {{Cl|CASE}} "0": b$ = b$ + "0000" + {{Cl|CASE}} "1": b$ = b$ + "0001" + {{Cl|CASE}} "2": b$ = b$ + "0010" + {{Cl|CASE}} "3": b$ = b$ + "0011" + {{Cl|CASE}} "4": b$ = b$ + "0100" + {{Cl|CASE}} "5": b$ = b$ + "0101" + {{Cl|CASE}} "6": b$ = b$ + "0110" + {{Cl|CASE}} "7": b$ = b$ + "0111" + {{Cl|CASE}} "8": b$ = b$ + "1000" + {{Cl|CASE}} "9": b$ = b$ + "1001" + {{Cl|CASE}} "A": b$ = b$ + "1010" + {{Cl|CASE}} "B": b$ = b$ + "1011" + {{Cl|CASE}} "C": b$ = b$ + "1100" + {{Cl|CASE}} "D": b$ = b$ + "1101" + {{Cl|CASE}} "E": b$ = b$ + "1110" + {{Cl|CASE}} "F": b$ = b$ + "1111" + {{Cl|END SELECT}} + {{Cl|NEXT}} i + b$ = {{Cl|RIGHT$}}(b$, {{Cl|LEN}}(b$) - {{Cl|INSTR}}(b$, "1") + 1) 'eliminate leading zeroes + {{Cl|IF}} {{Cl|VAL}}(b$) {{Cl|THEN}} BIN$ = b$ {{Cl|ELSE}} BIN$ = "0" 'return zero if n& = 0 +{{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{small|Code by CodeGuy}} -:''Explanation:'' Hexadecimal digits can be any value up to 15 which also corresponds to all four bits on in binary. The function above just adds every four bit binary string value together to return the binary value. After they are concatenated, the leading bit on is found by [[INSTR]] and everything from that point is kept removing the leading "0"'s. +:''Explanation:'' Hexadecimal digits can be any value up to 15 which also corresponds to all four bits on in binary. The function above just adds every four bit binary string value together to return the binary value. After they are concatenated, the leading bit on is found by [[INSTR]] and everything from that point is kept removing the leading "0"'s. ''See also:'' @@ -84,4 +84,4 @@ END FUNCTION '' '' * [[Base Comparisons]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/%26O.txt b/internal/help/%26O.txt index 970795587..d3fe2809b 100644 --- a/internal/help/%26O.txt +++ b/internal/help/%26O.txt @@ -6,7 +6,7 @@ The '''&O''' prefix denotes that a integer value is expressed in an Octal ba * The base eight numbering system only uses octal digit values of 0 to 7. * Leading zero values '''can''' be omitted as they add nothing to the return value. -* Decimal values returned can be any '''signed''' [[INTEGER]], [[LONG]] integer, or [[_INTEGER64]] value so use those type of variables when converting directly as shown above. The program [[ERROR Codes|"overflow"]] error limits are listed as: +* Decimal values returned can be any '''signed''' [[INTEGER]], [[LONG]] integer, or [[_INTEGER64]] value so use those type of variables when converting directly as shown above. The program [[ERROR Codes|"overflow"]] error limits are listed as: :: * [[INTEGER]]: 6 octal digits or a decimal value range from -32,768 to 32,767 :: * [[LONG]]: 11 octal digits or a decimal value range from -2,147,483,648 to 2,147,483,647 :: * [[_INTEGER64]]: 22 octal digits or decimal values from -9,223,372,036,854,775,808 to 9,223,372,036,854,775,807. @@ -17,13 +17,13 @@ The '''&O''' prefix denotes that a integer value is expressed in an Octal ba {{CodeStart}} c&& = -1: d& = -1: e% = -1: f%% = -1 oc$ = {{Cl|OCT$}}(f%%) -{{Cl|PRINT}} "Max octal {{Cl|_BYTE}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) +{{Cl|PRINT}} "Max octal {{Cl|_BYTE}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) oc$ = {{Cl|OCT$}}(e%) -{{Cl|PRINT}} "Max octal {{Cl|INTEGER}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) +{{Cl|PRINT}} "Max octal {{Cl|INTEGER}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) oc$ = {{Cl|OCT$}}(d&) -{{Cl|PRINT}} "Max octal {{Cl|LONG}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) +{{Cl|PRINT}} "Max octal {{Cl|LONG}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) oc$ = {{Cl|OCT$}}(c&&) -{{Cl|PRINT}} "Max octal {{Cl|_INTEGER64}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) '' '' +{{Cl|PRINT}} "Max octal {{Cl|_INTEGER64}} = "; oc$; " with"; {{Cl|LEN}}(oc$); "digits ="; {{Cl|VAL}}("{{Cl|&O}}" + oc$) '' '' {{CodeEnd}} {{OutputStart}}Max octal _BYTE = 377 with 3 digits = 255 Max octal INTEGER = 177777 with 6 digits = 65535 @@ -38,4 +38,4 @@ Max octal _INTEGER64 = 1777777777777777777777 with 22 digits =-1 * [[Base Comparisons]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/%2F.txt b/internal/help/%2F.txt index 7a4357d8c..0a562e118 100644 --- a/internal/help/%2F.txt +++ b/internal/help/%2F.txt @@ -1,27 +1,24 @@ -The '''/''' mathematical operator performs decimal point division on a numerical value. - +The [[/]] mathematical operator performs decimal point division on a numerical value. {{PageSyntax}} -::: return_value = number '''/''' divisor - +:return_value = number [[/]] divisor {{PageDescription}} - * Number value can be any literal or variable numerical type. -* '''Divisor (second value) must not be a value of 0 to .5'''. This will create a [[ERROR Codes|"Division by zero" error!]] due to [[CINT]] rounding. * Return values can be any literal or variable numerical type, but [[SINGLE]] or [[DOUBLE]] type decimal point returns are likely. * Values returned may be expressed using exponential or [[scientific notation]] using '''E''' for SINGLE or '''D''' for DOUBLE precision. * Use the [[\|\ integer division]] operator to guarantee [[INTEGER]] or [[LONG]] return values. -* Division and multiplication operations are performed before addition and subtraction in Qbasic's order of operations. +* Division and multiplication operations are performed before addition and subtraction in QBasic's order of operations. -''See also:'' +{{PageSeeAlso}} * [[MOD|MOD (remainder division operator)]] * [[\|\ (integer division operator)]] +* [[*|* (multiplication operator)]] * [[INT]], [[CINT]], [[FIX]], [[_ROUND]] * [[Mathematical Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/-.txt b/internal/help/-.txt index 5f3453049..38ac92435 100644 --- a/internal/help/-.txt +++ b/internal/help/-.txt @@ -1,27 +1,21 @@ -The '''-''' mathematical operator performs subtraction on two numerical values or [[negation|negates]] a single value. +The [[-]] mathematical operator performs subtraction on two numerical values or [[negation|negates]] a single value. - -''Syntax:'' return_value = number1 - number2 - +{{PageSyntax}} +:return_value = number1 [[-]] number2 {{PageDescription}} - * Numbers used can be any literal or variable numerical value type. * Subtracting a negative value will actually perform addition with the other value. * Subtracting a negative or [[negation|negated]] value will make the return value more positive. -* Addition and subtraction are the last operations performed in Qbasic's normal order of operations. +* Addition and subtraction are the last operations performed in QBasic's normal order of operations. * Subtraction cannot be performed on [[STRING]] values. - -''See also:'' - -[[+|+ positive]] (addition operator) - -[[Mathematical Operations]] +{{PageSeeAlso}} +* [[+|+ positive]] (addition operator) +* [[Mathematical Operations]] - -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/.txt b/internal/help/.txt new file mode 100644 index 000000000..0e69fe2bf --- /dev/null +++ b/internal/help/.txt @@ -0,0 +1,43 @@ +The [[\]] mathematical operator performs [[INTEGER]] division on a numerical value. + + +{{PageSyntax}} +:return_value = number [[\]] divisor + + +{{PageDescription}} +* Number value can be any literal or variable numerical type. +* '''Divisor (second value) must not be a value of 0 to .5'''. This will create a [[ERROR Codes|"Division by zero" error!]] due to [[CINT]] rounding. +* Return values will be [[INTEGER]] or [[LONG]] value types only. +* Rounding is done to the closest EVEN [[INTEGER|integer]] or [[LONG|long integer]] value. +* Use the [[/]] integer division operator for [[SINGLE]] or [[DOUBLE]] floating decimal point return values. +* Division and multiplication operations are performed before addition and subtraction in QBasic's order of operations. + + +{{PageExamples}} +Displays how floating decimal point values are rounded to the closest even [[INTEGER|integer]] value. +{{CodeStart}} '' '' +{{Cl|PRINT}} 0.5 \ 1 +{{Cl|PRINT}} 1.5 \ 1 +{{Cl|PRINT}} 2.5 \ 1 +{{Cl|PRINT}} 3.5 \ 1 +{{Cl|PRINT}} 4.5 \ 1 +{{Cl|PRINT}} 5.5 \ 1 '' '' +{{CodeEnd}} +{{OutputStart}}0 +2 +2 +4 +4 +6 +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[MOD|MOD (remainder division operator)]] +* [[/|/ (normal division operator)]] +* [[INT]], [[CINT]], [[FIX]], [[_ROUND]] +* [[Mathematical Operations]] + + +{{PageNavigation}} diff --git a/internal/help/ABS.txt b/internal/help/ABS.txt index 33b197137..b76ae5e51 100644 --- a/internal/help/ABS.txt +++ b/internal/help/ABS.txt @@ -1,4 +1,4 @@ -The [[ABS]] function returns the the unsigned numerical value of a variable or literal value. +The [[ABS]] function returns the unsigned numerical value of a variable or literal value. {{PageSyntax}} @@ -34,4 +34,4 @@ c = {{Cl|ABS}}(c) * [[Mathematical Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ACCESS.txt b/internal/help/ACCESS.txt index 227671a16..c971c5545 100644 --- a/internal/help/ACCESS.txt +++ b/internal/help/ACCESS.txt @@ -4,7 +4,7 @@ The [[ACCESS]] clause is used in an [[OPEN]] statement when working over a netwo {{PageSyntax}} -:OPEN "file.dat" FOR APPEND ['''ACCESS {READ|WRITE}'''] AS #1 +:OPEN "file.dat" FOR APPEND ['''ACCESS {READ|WRITE}'''] AS #1 {{PageDescription}} * Valid Options: @@ -15,7 +15,7 @@ The [[ACCESS]] clause is used in an [[OPEN]] statement when working over a netwo ===Limitations=== -*If another process already has access to a specified file, program access is denied for that file OPEN access. A "Permission Denied" error 70 will be returned. A network program must be able to handle a denial of access error. +*If another process already has access to a specified file, program access is denied for that file OPEN access. A "Permission Denied" error 70 will be returned. A network program must be able to handle a denial of access error. {{PageSeeAlso}} @@ -24,4 +24,4 @@ The [[ACCESS]] clause is used in an [[OPEN]] statement when working over a netwo * [[ON ERROR]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ALIAS.txt b/internal/help/ALIAS.txt index f1428927b..8dede9d4e 100644 --- a/internal/help/ALIAS.txt +++ b/internal/help/ALIAS.txt @@ -7,7 +7,7 @@ The [[ALIAS]] clause in a [[DECLARE LIBRARY]] statement block tells the program : SUB ''pseudoname'' [[ALIAS]] ''actualname'' [(''parameters'')] -{{Parameters}} +{{PageParameters}} * The ''pseudo name'' is the name of the [[SUB]] or [[FUNCTION]] the QB64 program will use. * The ''actual name'' is the same procedure name as it is inside of the DLL library. * QB64 must use all parameters of imported procedures including optional ones. @@ -19,10 +19,6 @@ The [[ALIAS]] clause in a [[DECLARE LIBRARY]] statement block tells the program * QB64 does not support optional parameters. -==QBasic/QuickBASIC== -* In Qbasic ALIAS was originally only used in a [[DECLARE (non-BASIC statement)]] library declarations. - - {{PageExamples}} ''Example:'' Instead of creating a SUB with the Library statement inside of it, just rename it: {{CodeStart}} '' '' @@ -31,7 +27,7 @@ The [[ALIAS]] clause in a [[DECLARE LIBRARY]] statement block tells the program {{Cl|DECLARE LIBRARY|END DECLARE}} {{Cl|DO}} {{Cl|UNTIL}} {{Cl|_SCREENEXISTS}}: {{Cl|LOOP}} -{{Cl|PRINT}} "Hit a key..." +{{Cl|PRINT}} "Hit a key..." {{Cl|SLEEP}} MouseMove 1, 1 @@ -43,7 +39,6 @@ MouseMove 1, 1 * [[SUB]], [[FUNCTION]] * [[DECLARE LIBRARY]], [[BYVAL]] * [[DECLARE DYNAMIC LIBRARY]] -* [[DECLARE (non-BASIC statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/AND.txt b/internal/help/AND.txt index 99b6040c4..a432ca75c 100644 --- a/internal/help/AND.txt +++ b/internal/help/AND.txt @@ -50,12 +50,12 @@ The logical [[AND]] numerical operator compares two values in respect of their b {{CodeStart}} DO - {{Cl|INPUT}} "Enter Integer value from -32768 to 32767 (Enter quits): ", INTvalue& - IF INTvalue& < -32768 OR INTvalue& > 32767 OR INTval& = 0 THEN {{Cl|EXIT DO}} + {{Cl|INPUT}} "Enter Integer value from -32768 to 32767 (Enter quits): ", INTvalue& + IF INTvalue& < -32768 OR INTvalue& > 32767 OR INTval& = 0 THEN {{Cl|EXIT DO}} {{Cl|FOR...NEXT|FOR}} exponent = 15 {{Cl|TO}} 0 {{Cl|STEP}} -1 - {{Cl|IF...THEN|IF}} (INTvalue& {{Cl|AND}} 2 ^ exponent) {{Cl|THEN}} {{Cl|PRINT}} "1"; {{Cl|ELSE}} {{Cl|PRINT}} "0"; + {{Cl|IF...THEN|IF}} (INTvalue& {{Cl|AND}} 2 ^ exponent) {{Cl|THEN}} {{Cl|PRINT}} "1"; {{Cl|ELSE}} {{Cl|PRINT}} "0"; {{Cl|NEXT}} - PRINT " " + PRINT " " LOOP UNTIL INTvalue& = 0 'zero entry quits {{CodeEnd}} @@ -73,4 +73,4 @@ The logical [[AND]] numerical operator compares two values in respect of their b * [[Binary]], [[Boolean]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/AND_(boolean).txt b/internal/help/AND_(boolean).txt index 14fbf0098..8f989968c 100644 --- a/internal/help/AND_(boolean).txt +++ b/internal/help/AND_(boolean).txt @@ -25,7 +25,7 @@ The [[AND (boolean)|AND]] conditonal operator is used to include another evaluat a% = 100 b% = 50 -{{Cl|IF...THEN|IF}} a% > b% {{Cl|AND (boolean)|AND}} a% < 200 {{Cl|THEN}} {{Cl|PRINT}} "True" +{{Cl|IF...THEN|IF}} a% > b% {{Cl|AND (boolean)|AND}} a% < 200 {{Cl|THEN}} {{Cl|PRINT}} "True" {{CodeEnd}} {{OutputStart}} @@ -42,10 +42,10 @@ c% = 25 d% = 50 e% = 100 -{{Cl|IF...THEN|IF}} (a% > b% {{Cl|AND (boolean)|AND}} b% > c%) {{Cl|AND (boolean)|AND}} (c% < d% {{Cl|AND (boolean)|AND}} d% < e%) {{Cl|THEN}} -{{Cl|PRINT}} "True" +{{Cl|IF...THEN|IF}} (a% > b% {{Cl|AND (boolean)|AND}} b% > c%) {{Cl|AND (boolean)|AND}} (c% < d% {{Cl|AND (boolean)|AND}} d% < e%) {{Cl|THEN}} +{{Cl|PRINT}} "True" {{Cl|ELSE}} -{{Cl|PRINT}} "False" +{{Cl|PRINT}} "False" {{Cl|END IF}} '' '' {{CodeEnd}} {{OutputStart}} @@ -60,4 +60,4 @@ True * [[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ANY.txt b/internal/help/ANY.txt deleted file mode 100644 index df71d8b76..000000000 --- a/internal/help/ANY.txt +++ /dev/null @@ -1,25 +0,0 @@ -#REDIRECT [[Data types]] - -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -ANY disables type checking for a variable used in a [[SUB]] or [[FUNCTION]] declaration. - - -{{PageSyntax}} -:: variable AS ANY - - -* [[Keywords currently not supported by QB64|Not supported in QB64.]] -* ANY can become any type variable or value later in the program. -* Commonly used in [[SUB]] or [[FUNCTION]] [[DECLARE|declarations]] to not type a parameter. - - -''See also:'' -* [[DECLARE]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/APPEND.txt b/internal/help/APPEND.txt index 13c4b074d..a07f1e4b2 100644 --- a/internal/help/APPEND.txt +++ b/internal/help/APPEND.txt @@ -17,4 +17,4 @@ [[OUTPUT]], [[RANDOM]], [[INPUT (file mode)]], [[BINARY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/AS.txt b/internal/help/AS.txt index 5960c201d..e75c33aeb 100644 --- a/internal/help/AS.txt +++ b/internal/help/AS.txt @@ -1,9 +1,9 @@ -The [[AS]] keyword defines a variable data [[type]]. +The [[AS]] keyword defines a variable data [[Variable Types|type]]. {{PageDescription}} * AS defines the variable or array type AS [[_BIT]], [[_BYTE]], [[INTEGER]], [[LONG]], [[_INTEGER64]], [[SINGLE]], [[DOUBLE]], [[_FLOAT]] or [[STRING]]. -* Specifies a variable's [[type]] in a declarative statement or parameter list using: +* Specifies a variable's [[Variable Types|type]] in a declarative statement or parameter list using: ** [[DIM]] or [[REDIM]] ** [[DECLARE LIBRARY]] ** [[SUB]] @@ -15,7 +15,7 @@ The [[AS]] keyword defines a variable data [[type]]. ===Details=== -* Specifies a '''[[parameter]]''' variable's type in a [[SUB]] or [[FUNCTION]] procedure. '''Cannot be used to define a function's [[type]]''' +* Specifies a '''[[parameter]]''' variable's type in a [[SUB]] or [[FUNCTION]] procedure. '''Cannot be used to define a function's [[Variable Types|type]]''' * Specifies an element's type in a user-defined data [[TYPE]]. * Assigns a file number to a file or device in an [[OPEN]] statement. * Specifies a field name in a random-access record (see [[FIELD]]) @@ -30,4 +30,4 @@ The [[AS]] keyword defines a variable data [[type]]. * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ASC.txt b/internal/help/ASC.txt index e0bbd3fb5..329dcf874 100644 --- a/internal/help/ASC.txt +++ b/internal/help/ASC.txt @@ -10,7 +10,7 @@ The [[ASC]] function returns the [[ASCII]] code number of a certain [[STRING]] t * If the optional {{Parameter|position%}} parameter is omitted, ASC will return the [[ASCII]] code of the first [[STRING]] character. * [[ASCII]] code [[INTEGER]] or [[_UNSIGNED]] [[_BYTE]] values returned range from 0 to 255. * ASC returns 0 when reading [[ASCII]] 2 byte codes returned by [[INKEY$]] when the arrow, function, Home/Page keys are used. -** Use QB64's {{Parameter|position%}} parameter to read the second byte if necessary. {{Text|IF ASC(key$) <nowiki>=</nowiki> 0 THEN byte2 <nowiki>=</nowiki> ASC(key$, 2)|green}} +** Use QB64's {{Parameter|position%}} parameter to read the second byte if necessary. {{Text|IF ASC(key$) <nowiki>=</nowiki> 0 THEN byte2 <nowiki>=</nowiki> ASC(key$, 2)|green}} * In '''QB64''' ASC string byte position reads are about '''5 times faster''' than [[MID$]] when parsing strings. See [[MID$]] ''Example 2''. @@ -29,10 +29,10 @@ The [[ASC]] function returns the [[ASCII]] code number of a certain [[STRING]] t '''' Tab Q W E R T Y U I O P [{ ]} \| Del End PDn 7Hme 8/â–² 9PU + ''' ' 9 81 87 69 82 84 89 85 73 79 80 123 125 124 +83 +79 +81 +71 +72 +73 43 ''' 113 119 101 114 116 121 117 105 111 112 91 93 92 55 56 57 '' -'''' CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º +'''' CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º ' - 65 83 68 70 71 72 74 75 76 58 34 13 +75 +76 +77 '''E''' ''' 97 115 100 102 103 104 106 107 108 59 39 52 53 54 '' '''n''' -'''' Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' +'''' Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' ' * 90 88 67 86 66 78 77 60 62 63 * +72 +79 +80 +81 '''e''' ''' 122 120 99 118 98 110 109 44 46 47 49 50 51 '' '''r''' '''' Ctrl Win Alt Spacebar Alt Win Menu Ctrl â—„- â–¼ -â–º 0Ins .Del ''' @@ -44,56 +44,56 @@ The [[ASC]] function returns the [[ASCII]] code number of a certain [[STRING]] t {{WhiteEnd}} -<center>'''[[ASCII#Two_Byte_Codes|Two Byte Ctrl, Alt and Shift + Function key combinations]]'''</center> +<center>'''[[ASCII#Two_Byte_Codes|Two Byte Ctrl, Alt and Shift + Function key combinations]]'''</center> -{{WhiteStart}} '''Two Byte Characters    Key                 CHR$(0) + "?" ''' +{{WhiteStart}} '''Two Byte Characters    Key                 CHR$(0) + "?" ''' CHR$(0) + CHR$(16-50) [Alt] + letter - CHR$(0) + CHR$(59) [F1] ";" - CHR$(0) + CHR$(60) [F2] "<" - CHR$(0) + CHR$(61) [F3] "=" - CHR$(0) + CHR$(62) [F4] ">" - CHR$(0) + CHR$(63) [F5] "?" - CHR$(0) + CHR$(64) [F6] "@" - CHR$(0) + CHR$(65) [F7] "A" - CHR$(0) + CHR$(66) [F8] "B" - CHR$(0) + CHR$(67) [F9] "C" - CHR$(0) + CHR$(68) [F10] "D" - CHR$(0) + CHR$(71) [Home] "G" - CHR$(0) + CHR$(72) [↑] Arrow "H" - CHR$(0) + CHR$(73) [Page Up] "I" - CHR$(0) + CHR$(75) [â†] Arrow "K" - CHR$(0) + CHR$(76) [5 NumberPad] "L" (NumLock off in QB64) - CHR$(0) + CHR$(77) [→] Arrow "M" - CHR$(0) + CHR$(79) [End] "O" - CHR$(0) + CHR$(80) [↓] Arrow "P" - CHR$(0) + CHR$(81) [Page Down] "Q" - CHR$(0) + CHR$(82) [Insert] "R" - CHR$(0) + CHR$(83) [Delete] "S" + CHR$(0) + CHR$(59) [F1] ";" + CHR$(0) + CHR$(60) [F2] "<" + CHR$(0) + CHR$(61) [F3] "=" + CHR$(0) + CHR$(62) [F4] ">" + CHR$(0) + CHR$(63) [F5] "?" + CHR$(0) + CHR$(64) [F6] "@" + CHR$(0) + CHR$(65) [F7] "A" + CHR$(0) + CHR$(66) [F8] "B" + CHR$(0) + CHR$(67) [F9] "C" + CHR$(0) + CHR$(68) [F10] "D" + CHR$(0) + CHR$(71) [Home] "G" + CHR$(0) + CHR$(72) [↑] Arrow "H" + CHR$(0) + CHR$(73) [Page Up] "I" + CHR$(0) + CHR$(75) [â†] Arrow "K" + CHR$(0) + CHR$(76) [5 NumberPad] "L" (NumLock off in QB64) + CHR$(0) + CHR$(77) [→] Arrow "M" + CHR$(0) + CHR$(79) [End] "O" + CHR$(0) + CHR$(80) [↓] Arrow "P" + CHR$(0) + CHR$(81) [Page Down] "Q" + CHR$(0) + CHR$(82) [Insert] "R" + CHR$(0) + CHR$(83) [Delete] "S" CHR$(0) + CHR$(84-93) [Shift] + F1-10 CHR$(0) + CHR$(94-103) [Ctrl] + F1-10 CHR$(0) + CHR$(104-113) [Alt] + F1-10 CHR$(0) + CHR$(114-119) [Ctrl] + keypad CHR$(0) + CHR$(120-129) [Alt] + number - CHR$(0) + CHR$(130 or 131) [Alt] + _/- or +/= "é" or "â" - CHR$(0) + CHR$(133) [F11] "à" - CHR$(0) + CHR$(134) [F12] "Ã¥" - CHR$(0) + CHR$(135) [Shift] + [F11] "ç" - CHR$(0) + CHR$(136) [Shift] + [F12] "ê" - CHR$(0) + CHR$(137) [Ctrl] + [F11] "ë" - CHR$(0) + CHR$(138) [Ctrl] + [F12] "è" - CHR$(0) + CHR$(139) [Alt] + [F11] "ï" - CHR$(0) + CHR$(140) [Alt] + [F12] "î" + CHR$(0) + CHR$(130 or 131) [Alt] + _/- or +/= "é" or "â" + CHR$(0) + CHR$(133) [F11] "à" + CHR$(0) + CHR$(134) [F12] "Ã¥" + CHR$(0) + CHR$(135) [Shift] + [F11] "ç" + CHR$(0) + CHR$(136) [Shift] + [F12] "ê" + CHR$(0) + CHR$(137) [Ctrl] + [F11] "ë" + CHR$(0) + CHR$(138) [Ctrl] + [F12] "è" + CHR$(0) + CHR$(139) [Alt] + [F11] "ï" + CHR$(0) + CHR$(140) [Alt] + [F12] "î" {{WhiteEnd}} -:In '''QB64''', [[CVI]] can be used to get the [[_KEYDOWN]] 2-byte code value. Example: IF _KEYDOWN([[CVI]]([[CHR$]](0) + "P")) THEN +:In '''QB64''', [[CVI]] can be used to get the [[_KEYDOWN]] 2-byte code value. Example: IF _KEYDOWN([[CVI]]([[CHR$]](0) + "P")) THEN {{PageExamples}} ''Example 1:'' How ASC can be used to find any ASCII code in a string of characters using QB64. {{CodeStart}} '' '' - {{Cl|PRINT}} ASC("A") - {{Cl|PRINT}} ASC("Be a rockstar") - {{Cl|PRINT}} ASC("QB64 is not only COMPATIBLE, it can find any part of the string!", 18) '' '' + {{Cl|PRINT}} {{Cl|ASC}}("A") + {{Cl|PRINT}} {{Cl|ASC}}("Be a rockstar") + {{Cl|PRINT}} {{Cl|ASC}}("QB64 is not only COMPATIBLE, it can find any part of the string!", 18) '' '' {{CodeEnd}} ''Returns:'' @@ -103,26 +103,26 @@ The [[ASC]] function returns the [[ASCII]] code number of a certain [[STRING]] t 67 {{OutputEnd}} -''Explanation:'' The ASCII code for "A" is 65 and the ASCII code for "B" is 66, ASCII code for "C" is 67 and the "C" is at position 18 in the string. +''Explanation:'' The ASCII code for "A" is 65 and the ASCII code for "B" is 66, ASCII code for "C" is 67 and the "C" is at position 18 in the string. -::''Note:'' The ASCII code for "A" and "a" are different by the value of 32, "A" + 32 is "a", 65("A") + 32 = 97("a"). +::''Note:'' The ASCII code for "A" and "a" are different by the value of 32, "A" + 32 is "a", 65("A") + 32 = 97("a"). ''Example 2:'' Reading the ASCII and two byte code combinations with ASC in '''QB64'''. {{CodeStart}} '' '' Q$ = {{Cl|CHR$}}(34) ' quote character -{{Cl|COLOR}} 10: {{Cl|LOCATE}} 5, 22: {{Cl|PRINT}} "Press some keys or combinations!" -{{Cl|COLOR}} 13: {{Cl|LOCATE}} 23, 30: {{Cl|PRINT}} "Escape key Quits" -DO - DO: {{Cl|SLEEP}}: key$ = {{Cl|INKEY$}}: {{Cl|LOOP}} {{Cl|UNTIL}} key$ <> "" ' prevent ASC empty string read error +{{Cl|COLOR}} 10: {{Cl|LOCATE}} 5, 22: {{Cl|PRINT}} "Press some keys or combinations!" +{{Cl|COLOR}} 13: {{Cl|LOCATE}} 23, 30: {{Cl|PRINT}} "Escape key Quits" +{{Cl|DO}} + {{Cl|DO}}: {{Cl|SLEEP}}: key$ = {{Cl|INKEY$}}: {{Cl|LOOP}} {{Cl|UNTIL}} key$ <> "" ' prevent ASC empty string read error code% = {{Cl|ASC}}(key$): {{Cl|COLOR}} 11: {{Cl|LOCATE}} 10, 10 {{Cl|IF...THEN|IF}} code% {{Cl|THEN}} ' ASC returns any value greater than 0 - {{Cl|PRINT}} "{{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}(code%)) + ")" + {{Cl|SPACE$}}(13): - {{Cl|IF...THEN|IF}} code% > 8 {{Cl|AND (boolean)|AND}} code% < 14 {{Cl|THEN}} code% = 32 ' unprintable control codes + {{Cl|PRINT}} "{{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}(code%)) + ")" + {{Cl|SPACE$}}(13): + {{Cl|IF...THEN|IF}} code% > 8 {{Cl|AND (boolean)|AND}} code% < 14 {{Cl|THEN}} code% = 32 ' unprintable control codes {{Cl|COLOR}} 14: {{Cl|LOCATE}} 10, 50: {{Cl|PRINT}} {{Cl|CHR$}}(code%) + {{Cl|SPACE$}}(13) - {{Cl|ELSE}}: {{Cl|PRINT}} "{{Cl|CHR$}}(0) + {{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}({{Cl|ASC}}(key$, 2))) + ")" - {{Cl|COLOR}} 14: {{Cl|LOCATE}} 10, 50: {{Cl|PRINT}} "{{Cl|CHR$}}(0) + " + Q$ + {{Cl|CHR$}}({{Cl|ASC}}(key$, 2)) + Q$ + {{Cl|ELSE}}: {{Cl|PRINT}} "{{Cl|CHR$}}(0) + {{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}({{Cl|ASC}}(key$, 2))) + ")" + {{Cl|COLOR}} 14: {{Cl|LOCATE}} 10, 50: {{Cl|PRINT}} "{{Cl|CHR$}}(0) + " + Q$ + {{Cl|CHR$}}({{Cl|ASC}}(key$, 2)) + Q$ {{Cl|END IF}} {{Cl|LOOP}} {{Cl|UNTIL}} code% = 27 '' ' @@ -133,18 +133,18 @@ DO ''Example 3:'' Reading only numerical values input by a program user. {{CodeStart}} - DO: {{Cl|SLEEP}} ' requires a keypress to run loop once - K$ = {{Cl|{{Cl|INKEY$}}}} + {{Cl|DO}}: {{Cl|SLEEP}} ' requires a keypress to run loop once + K$ = {{Cl|INKEY$}} code = {{Cl|ASC}}(K$) - {{Cl|IF...THEN|IF}} code >= 48 {{Cl|AND (boolean)|AND}} code <= 57 {{Cl|THEN}} entry$ = entry$ + {{Cl|{{Cl|CHR$}}}}(code) ' numbers only - {{Cl|IF...THEN|IF}} code = 46 {{Cl|AND (boolean)|AND}} flag = 0 {{Cl|THEN}} + {{Cl|IF}} code >= 48 {{Cl|AND (boolean)|AND}} code <= 57 {{Cl|THEN}} entry$ = entry$ + {{Cl|CHR$}}(code) ' numbers only + {{Cl|IF}} code = 46 {{Cl|AND (boolean)|AND}} flag = 0 {{Cl|THEN}} entry$ = entry$ + K$: flag = 1: mark = {{Cl|LEN}}(entry$) ' decimal point {{Cl|END IF}} - L = {{Cl|{{Cl|LEN}}}}(entry$) ' check entry length for possible backspace - {{Cl|IF...THEN|IF}} code = 8 {{Cl|AND (boolean)|AND}} L > 0 {{Cl|THEN}} ' backspace pressed and entry has a length - entry$ = {{Cl|{{Cl|MID$}}}}(entry$, 1, L - 1) ' remove one character from entry$ - {{Cl|IF...THEN|IF}} L - 1 < mark {{Cl|THEN}} flag = 0 ' allow another decimal point if removed. - {{Cl|LOCATE}} 10, {{Cl|POS}}(0) - 1: {{Cl|PRINT}} {{Cl|{{Cl|SPACE$}}}}(1); ' remove character from screen + L = {{Cl|LEN}}(entry$) ' check entry length for possible backspace + {{Cl|IF}} code = 8 {{Cl|AND (boolean)|AND}} L > 0 {{Cl|THEN}} ' backspace pressed and entry has a length + entry$ = {{Cl|MID$}}(entry$, 1, L - 1) ' remove one character from entry$ + {{Cl|IF}} L - 1 < mark {{Cl|THEN}} flag = 0 ' allow another decimal point if removed. + {{Cl|LOCATE}} 10, {{Cl|POS}}(0) - 1: {{Cl|PRINT}} {{Cl|SPACE$}}(1); ' remove character from screen {{Cl|END IF}} {{Cl|LOCATE}} 10, 10: {{Cl|PRINT}} entry$; ' display present entry to user(semicolon required for correct POS return) @@ -163,4 +163,4 @@ DO * [[Scancodes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ASC_(statement).txt b/internal/help/ASC_(statement).txt index a65afb4d4..e893a9594 100644 --- a/internal/help/ASC_(statement).txt +++ b/internal/help/ASC_(statement).txt @@ -6,7 +6,7 @@ The [[ASC (statement)|ASC]] statement allows a '''QB64''' program to change a ch {{PageDescription}} -* The {{Parameter|stringExpression$}} variable's value must have been previously defined and cannot be an empty string (""). +* The {{Parameter|stringExpression$}} variable's value must have been previously defined and cannot be an empty string (""). * {{Parameter|position%}} is optional. If no position is used, the leftmost character at position 1 is assumed. * {{Parameter|position%}} cannot be zero or greater than the string's [[LEN|length]] or an [[ERROR Codes|Illegal function error]] will occur. * The [[ASCII]] replacement {{Parameter|code%}} value can be any [[INTEGER]] value from 0 to 255. @@ -16,15 +16,15 @@ The [[ASC (statement)|ASC]] statement allows a '''QB64''' program to change a ch {{PageExamples}} ''Example:'' Demonstrates how to change existing text characters one letter at a time. {{CodeStart}} - a$ = "YZC" - {{Cl|ASC (statement)|ASC}}(a$) = 65 ' CHR$(65) = "A" - {{Cl|ASC (statement)|ASC}}(a$, 2) = 66 ' CHR$(66) = "B" + a$ = "YZC" + {{Cl|ASC (statement)|ASC}}(a$) = 65 ' CHR$(65) = "A" + {{Cl|ASC (statement)|ASC}}(a$, 2) = 66 ' CHR$(66) = "B" {{Cl|PRINT}} a$ 'ABC - {{Cl|ASC (statement)|ASC}}(a$, 2) = 0 ' CHR$(0) = " " + {{Cl|ASC (statement)|ASC}}(a$, 2) = 0 ' CHR$(0) = " " {{Cl|PRINT}} a$ - {{Cl|ASC (statement)|ASC}}(a$, 2) = {{Cl|ASC}}("S") ' get code value from ASC function + {{Cl|ASC (statement)|ASC}}(a$, 2) = {{Cl|ASC}}("S") ' get code value from ASC function {{Cl|PRINT}} a$ {{CodeEnd}} @@ -42,4 +42,4 @@ The [[ASC (statement)|ASC]] statement allows a '''QB64''' program to change a ch * [[INKEY$]], [[ASCII]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ATN.txt b/internal/help/ATN.txt index 181e9f18d..a299716e3 100644 --- a/internal/help/ATN.txt +++ b/internal/help/ATN.txt @@ -5,14 +5,14 @@ The [[ATN]] or arctangent function returns the angle in radians of a numerical [ : {{Parameter|radianAngle}} = [[ATN]]({{Parameter|tangent!}}) -{{Parameters}} +{{PageParameters}} * The return is the {{Parameter|tangent!}}'s angle in '''radians'''. -* {{Parameter|tangent!}} [[SINGLE]] or [[DOUBLE]] values are used by the function. EX:'''{{text|Pi <nowiki>=</nowiki> 4 * ATN(1)|green}}''' +* {{Parameter|tangent!}} [[SINGLE]] or [[DOUBLE]] values are used by the function. EX:'''{{text|Pi <nowiki>=</nowiki> 4 * ATN(1)|green}}''' {{PageDescription}} * To convert from radians to degrees, multiply radians * (180 / &pi;). -* The ''tangent'' value would be equal to the tangent value of an angle. Ex: '''{{text|[[TAN]](ATN(1)) <nowiki>=</nowiki> 1|green}}''' +* The ''tangent'' value would be equal to the tangent value of an angle. Ex: '''{{text|[[TAN]](ATN(1)) <nowiki>=</nowiki> 1|green}}''' * The function return value is between -&pi; / 2 and &pi; / 2. @@ -30,7 +30,7 @@ y = 100 * {{Cl|SIN}}({{Cl|ATN}}(1)) {{CodeStart}} '' '' Pi = 4 * {{Cl|ATN}}(1) '{{Cl|SINGLE}} precision Pi# = 4 * {{Cl|ATN}}(1#) '{{Cl|DOUBLE}} precision -PRINT Pi, Pi# '' '' +{{Cl|PRINT}} Pi, Pi# '' '' {{CodeEnd}} :''Note:'' You can use QB64's native [[_PI]] function. @@ -41,38 +41,38 @@ PRINT Pi, Pi# '' '' x1! = 320 y1! = 240 -DO - {{Cl|PRESET}} (x1!, y1!), {{Cl|_RGB}}(255, 255, 255) - dummy% = {{Cl|_MOUSEINPUT}} - x2! = {{Cl|_MOUSEX}} - y2! = {{Cl|_MOUSEY}} - {{Cl|LINE}} (x1, y1)-(x2, y2), {{Cl|_RGB}}(255, 0, 0) - {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} getangle(x1!, y1!, x2!, y2!) - {{Cl|_DISPLAY}} - {{Cl|_LIMIT}} 200 - {{Cl|CLS}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|DO}} + {{Cl|PRESET}} (x1!, y1!), {{Cl|_RGB}}(255, 255, 255) + dummy% = {{Cl|_MOUSEINPUT}} + x2! = {{Cl|_MOUSEX}} + y2! = {{Cl|_MOUSEY}} + {{Cl|LINE}} (x1, y1)-(x2, y2), {{Cl|_RGB}}(255, 0, 0) + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} getangle(x1!, y1!, x2!, y2!) + {{Cl|_DISPLAY}} + {{Cl|_LIMIT}} 200 + {{Cl|CLS}} +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} {{Cl|FUNCTION}} getangle# (x1#, y1#, x2#, y2#) 'returns 0-359.99... -{{Cl|IF...THEN|IF}} y2# = y1# {{Cl|THEN}} - {{Cl|IF...THEN|IF}} x1# = x2# {{Cl|THEN}} {{Cl|EXIT FUNCTION}} - {{Cl|IF...THEN|IF}} x2# > x1# {{Cl|THEN}} getangle# = 90 {{Cl|ELSE}} getangle# = 270 - {{Cl|EXIT FUNCTION}} -{{Cl|END IF}} -{{Cl|IF...THEN|IF}} x2# = x1# {{Cl|THEN}} - {{Cl|IF...THEN|IF}} y2# > y1# {{Cl|THEN}} getangle# = 180 - {{Cl|EXIT FUNCTION}} -{{Cl|END IF}} -{{Cl|IF...THEN|IF}} y2# < y1# {{Cl|THEN}} - {{Cl|IF...THEN|IF}} x2# > x1# {{Cl|THEN}} - getangle# = {{Cl|ATN}}((x2# - x1#) / (y2# - y1#)) * -57.2957795131 - {{Cl|ELSE}} - getangle# = {{Cl|ATN}}((x2# - x1#) / (y2# - y1#)) * -57.2957795131 + 360 - {{Cl|END IF}} -{{Cl|ELSE}} - getangle# = {{Cl|ATN}}((x2# - x1#) / (y2# - y1#)) * -57.2957795131 + 180 -{{Cl|END IF}} + {{Cl|IF...THEN|IF}} y2# = y1# {{Cl|THEN}} + {{Cl|IF...THEN|IF}} x1# = x2# {{Cl|THEN}} {{Cl|EXIT FUNCTION}} + {{Cl|IF...THEN|IF}} x2# > x1# {{Cl|THEN}} getangle# = 90 {{Cl|ELSE}} getangle# = 270 + {{Cl|EXIT FUNCTION}} + {{Cl|END IF}} + {{Cl|IF...THEN|IF}} x2# = x1# {{Cl|THEN}} + {{Cl|IF...THEN|IF}} y2# > y1# {{Cl|THEN}} getangle# = 180 + {{Cl|EXIT FUNCTION}} + {{Cl|END IF}} + {{Cl|IF...THEN|IF}} y2# < y1# {{Cl|THEN}} + {{Cl|IF...THEN|IF}} x2# > x1# {{Cl|THEN}} + getangle# = {{Cl|ATN}}((x2# - x1#) / (y2# - y1#)) * -57.2957795131 + {{Cl|ELSE}} + getangle# = {{Cl|ATN}}((x2# - x1#) / (y2# - y1#)) * -57.2957795131 + 360 + {{Cl|END IF}} + {{Cl|ELSE}} + getangle# = {{Cl|ATN}}((x2# - x1#) / (y2# - y1#)) * -57.2957795131 + 180 + {{Cl|END IF}} {{Cl|END FUNCTION}} '' '' {{CodeEnd}}{{small|Function by Galleon}} @@ -85,4 +85,4 @@ DO * [[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Apostrophe.txt b/internal/help/Apostrophe.txt index c25473204..af328db0d 100644 --- a/internal/help/Apostrophe.txt +++ b/internal/help/Apostrophe.txt @@ -1,15 +1,20 @@ -The '''apostrophe''' is used to tell the compiler to ignore a statement or programmer comment. +The '''apostrophe''' allows explanatory comments, or remarks, to be inserted in a program. These may be included anywhere in the source code and extend to the end of the line. Comments are ignored when the program is run. + +{{PageSyntax}} +:: [[apostrophe|']] this is a comment +:: [[REM]] this is also a comment + {{PageDescription}} -* Allows programmer comments or temporary code removal. -* [[REM]] can also be used to "comment out" a line. -* QBasic [[Metacommand|metacommand]]s must be commented either with an apostrophe or [[REM]]. -* [[$INCLUDE]] requires an apostrophe before and after the included file name. +* [[REM]] can also be used to insert comments but may only be used as the last, or only, statement on a line. +* QBasic [[metacommand]]s like [[$INCLUDE]] must be included in a comment using either [[REM]] or [[apostrophe|']]. +* [[Apostrophe]] comments, unavailable in earlier dialects of the BASIC language, are now generally favored over [[REM]] statements for their greater flexibility. +* Comments are also useful for disabling code for program testing and debugging purposes. {{PageExamples}} {{CodeStart}} -COLOR 11: PRINT "Print this...." ' PRINT "Don't print this program comment!" +COLOR 11: PRINT "Print this...." ' PRINT "Don't print this program comment!" {{CodeEnd}} {{OutputStart}} @@ -18,8 +23,8 @@ COLOR 11: PRINT "Print this...." ' PRINT "Don't print this progra {{PageSeeAlso}} -* [[Comma]], [[Semicolon]] * [[REM]] +* [[$DYNAMIC]], [[$STATIC]], [[$INCLUDE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/BEEP.txt b/internal/help/BEEP.txt index c15df5d74..9e10c44a1 100644 --- a/internal/help/BEEP.txt +++ b/internal/help/BEEP.txt @@ -7,10 +7,10 @@ The [[BEEP]] statement produces a beep sound through the sound card. {{PageDescription}} * [[BEEP]] can be placed anywhere to alert the user that there is something to do or an error has occurred. -* '''QB64''' produces the actual "beep" sound through the PC's sound card, to emulate QBasic's beeping through the [https://en.wikipedia.org/wiki/PC_speaker PC speaker]. +* '''QB64''' produces the actual "beep" sound through the PC's sound card, to emulate QBasic's beeping through the [https://en.wikipedia.org/wiki/PC_speaker PC speaker]. -==QBasic/QuickBASIC== +{{PageQBasic}} * Older programs may attempt to produce a BEEP by printing [[CHR$]](7) to the screen. This is no longer supported in QB64 after '''version 1.000'''. ** You may have to replace instances of PRINT CHR$(7) in older programs to the [[BEEP]] statement to maintain the legacy functionality. @@ -21,4 +21,4 @@ The [[BEEP]] statement produces a beep sound through the sound card. * [[_SNDRAW]] {{text|(play frequency waves)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/BINARY.txt b/internal/help/BINARY.txt index 76d579c57..42b26bbfd 100644 --- a/internal/help/BINARY.txt +++ b/internal/help/BINARY.txt @@ -26,16 +26,16 @@ int64 = 12345678 {{Cl|PRINT}} int64 -{{Cl|OPEN}} "temp64.tmp" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 +{{Cl|OPEN}} "temp64.tmp" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 {{Cl|PUT}} #1, , int64 'the file size will be 8 bytes {{Cl|CLOSE}} -{{Cl|PRINT}} "Press a key to read the file!" +{{Cl|PRINT}} "Press a key to read the file!" K$ = {{Cl|INPUT$}}(1) -{{Cl|OPEN}} "temp64.tmp" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 +{{Cl|OPEN}} "temp64.tmp" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 {{Cl|GET}} #1, , byte8 'GET the value as a string -{{Cl|PRINT}} "text string: "; byte8 'show that string is in {{Cl|_MK$}} format +{{Cl|PRINT}} "text string: "; byte8 'show that string is in {{Cl|_MK$}} format {{Cl|PRINT}} {{Cl|_CV}}({{Cl|_INTEGER64}}, byte8) 'convert to numerical value {{Cl|CLOSE}} '' '' @@ -48,11 +48,11 @@ K$ = {{Cl|INPUT$}}(1) {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(1000, 600, 256) {{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} {{Cl|DIM}} value AS {{Cl|INTEGER}} 'value type can be changed -{{Cl|LINE INPUT}} ; "Enter a {{Cl|BINARY}} filename to open: ", file$ -{{Cl|PRINT}} " Press S to restart!" +{{Cl|LINE INPUT}} ; "Enter a {{Cl|BINARY}} filename to open: ", file$ +{{Cl|PRINT}} " Press S to restart!" {{Cl|IF...THEN|IF}} {{Cl|LEN}}(file$) {{Cl|THEN}} {{Cl|OPEN}} file$ {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 {{Cl|ELSE}} {{Cl|END}} -{{Cl|IF...THEN|IF}} {{Cl|LOF}}(1) = 0 {{Cl|THEN}} {{Cl|PRINT}} "Empty file!": {{Cl|END}} +{{Cl|IF...THEN|IF}} {{Cl|LOF}}(1) = 0 {{Cl|THEN}} {{Cl|PRINT}} "Empty file!": {{Cl|END}} DO {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 16 x = x + 1 @@ -60,13 +60,13 @@ DO {{Cl|IF...THEN|IF}} {{Cl|EOF}}(1) {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|PRINT}} value; {{Cl|NEXT}} - {{Cl|PRINT}} {{Cl|CHR$}}(27); x; "@"; row + {{Cl|PRINT}} {{Cl|CHR$}}(27); x; "@"; row K$ = {{Cl|INPUT$}}(1) - {{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(K$) = "S" {{Cl|THEN}} {{Cl|CLS}}: x = 0: row = 0: {{Cl|PRINT}} "Restarted!": {{Cl|SEEK}} 1, 1 + {{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(K$) = "S" {{Cl|THEN}} {{Cl|CLS}}: x = 0: row = 0: {{Cl|PRINT}} "Restarted!": {{Cl|SEEK}} 1, 1 {{Cl|IF...THEN|IF}} x = 256 {{Cl|THEN}} x = 0: row = row + 1: {{Cl|PRINT}} {{Cl|LOOP}} {{Cl|UNTIL}} K$ = {{Cl|CHR$}}(27) {{Cl|CLOSE}} #1 -{{Cl|PRINT}} "Press Escape to exit!" +{{Cl|PRINT}} "Press Escape to exit!" DO: {{Cl|_LIMIT}} 100 {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) {{Cl|SYSTEM}} '' '' @@ -81,4 +81,4 @@ DO: {{Cl|_LIMIT}} 100 * [[Bitmaps]], [[Binary]] (numbers) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/BLOAD.txt b/internal/help/BLOAD.txt index a096c3cac..dd6949260 100644 --- a/internal/help/BLOAD.txt +++ b/internal/help/BLOAD.txt @@ -1,6 +1,6 @@ [[BLOAD]] loads a binary graphics file created by [[BSAVE]] to an array. -==Legacy support== +{{PageLegacySupport}} * '''QB64 can load larger arrays directly from binary files using [[PUT]] # and [[GET]] # without BLOAD. For that reason, BLOAD isn't recommended practice anymore and is supported to maintain compatibility with legacy code.''' @@ -8,7 +8,7 @@ : [[BLOAD]] {{Parameter|fileName$}}, [[VARPTR]]({{Parameter|imageArray%({{Parameter|index}})}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|fileName$}} is the name of the file that the image should be [[BSAVE]]d to. * {{Parameter|imageArray%(index)}} is the [[INTEGER]] [[arrays|array]] start index to store the image loaded. @@ -52,4 +52,4 @@ * [[Text Using Graphics]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/BSAVE.txt b/internal/help/BSAVE.txt index 241493714..f54775e43 100644 --- a/internal/help/BSAVE.txt +++ b/internal/help/BSAVE.txt @@ -1,15 +1,15 @@ [[BSAVE]] saves the contents of an image array to a [[BINARY]] file. -==Legacy support== -* '''QB64 can save larger arrays directly to binary files using [[PUT]] # and [[GET]] # without BSAVE. For that reason, BSAVE isn't recommended practice anymore and is supported to maintain compatibility with legacy code. +{{PageLegacySupport}} +* QB64 can save larger arrays directly to binary files using [[PUT]] # and [[GET]] # without [[BSAVE]]. For that reason, use of [[BSAVE]] is no longer recommended practice but is supported to maintain compatibility with legacy code. {{PageSyntax}} : [[BSAVE]] {{Parameter|saveFile$}}, [[VARPTR]]({{Parameter|array(index)}}), {{Parameter|fileSize&}} -{{Parameters}} +{{PageParameters}} * {{Parameter|saveFile$}} is the STRING file name of the file designated to be created. * {{Parameter|array(index)}} is the image [[arrays|array]] that already holds the [[GET (graphics statement)|GET]] image data. * {{Parameter|fileSize&}} must be a bit over twice the size of the elements used in an [[INTEGER]] [[Arrays|array]]. @@ -55,7 +55,7 @@ ''Example 3:'' Using [[PUT]] and [[GET]] to write and read array data from a file without using BSAVE or [[BLOAD]]: {{CodeStart}} -{{Cl|KILL}} "example2.BIN" 'removes old image file! +{{Cl|KILL}} "example2.BIN" 'removes old image file! {{Cl|SCREEN}} 13 {{Cl|OPTION BASE}} 0 @@ -65,16 +65,16 @@ {{Cl|GET (graphics statement)|GET}}(0, 0)-{{Cl|STEP}}(10, 10), Graphic%() 'get image to array {{Cl|FOR...NEXT|FOR}} i% = 1000 {{Cl|TO}} 0 {{Cl|STEP}} -1 'reverse read array for size needed - {{Cl|IF...THEN|IF}} Graphic%(i%) <> 0 {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} 'find image color not black + {{Cl|IF...THEN|IF}} Graphic%(i%) <> 0 {{Cl|THEN}} {{Cl|EXIT FOR}} 'find image color not black {{Cl|NEXT}} size% = i% + 4 'size plus 2 integers(4 bytes) for dimensions {{Cl|REDIM}} {{Cl|_PRESERVE}} Graphic%(size%) 'resize existing array in QB64 only! -{{Cl|OPEN}} "example2.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 ' {{Cl|PUT}} to a file +{{Cl|OPEN}} "example2.BIN" {{Cl|FOR (file statement)|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 ' {{Cl|PUT}} to a file {{Cl|PUT}} #1, , Graphic%() {{Cl|CLOSE}} -{{Cl|OPEN}} "example2.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #2 'GET array and {{Cl|PUT}} to screen +{{Cl|OPEN}} "example2.BIN" {{Cl|FOR (file statement)|FOR}} {{Cl|BINARY}} {{Cl|AS}} #2 'GET array and {{Cl|PUT}} to screen {{Cl|DIM}} CopyBin%({{Cl|LOF}}(2) \ 2) 'create new array sized by half of file size {{Cl|GET}} #2, , CopyBin%() {{Cl|PUT (graphics statement)|PUT}}(100, 100), CopyBin%(), {{Cl|PSET}} @@ -85,11 +85,11 @@ K$ = {{Cl|INPUT$}}(1) 'Press any key {{Cl|FOR...NEXT|FOR}} i = 0 {{Cl|TO}} 20 'read all 3 arrays {{Cl|PRINT}} Graphic%(i); CopyBin%(i) {{Cl|NEXT}} -{{Cl|PRINT}} "Array:"; size%, "File:"; fsize% +{{Cl|PRINT}} "Array:"; size%, "File:"; fsize% {{CodeEnd}}{{small|Code by Ted Weissgerber}} : ''Explanation:'' A 10 by 10 pixel box is saved to an array using the [[GET (graphics statement)]] and written to a BINARY file using [[PUT]] #1. Then [[GET]] #1 places the file contents into another INTEGER array and places it on the screen with the [[PUT (graphics statement)]]. -: The array contents: 88 is the width in the GET array for [[SCREEN]] 13 which needs divided by 8 in that mode only. The area is actually 11 X 11. The array size needed can be found by looping backwards through the array until a color value is found. '''{{text|IF array(i) <> 0 THEN EXIT FOR|green}}''' (66 integers) or by dividing the created BINARY file size in half (134 bytes) when known to be array sized already. +: The array contents: 88 is the width in the GET array for [[SCREEN]] 13 which needs divided by 8 in that mode only. The area is actually 11 X 11. The array size needed can be found by looping backwards through the array until a color value is found. '''{{text|IF array(i) <> 0 THEN EXIT FOR|green}}''' (66 integers) or by dividing the created BINARY file size in half (134 bytes) when known to be array sized already. {{PageSeeAlso}} @@ -101,4 +101,4 @@ K$ = {{Cl|INPUT$}}(1) 'Press any key * [[Text Using Graphics]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/BYVAL.txt b/internal/help/BYVAL.txt index d828836d4..b276657e9 100644 --- a/internal/help/BYVAL.txt +++ b/internal/help/BYVAL.txt @@ -1,65 +1 @@ -The [[BYVAL]] statement is used to pass a numerical parameter's value with procedures made in other programming languages. - - -{{PageSyntax}} -: SUB ProcedureName ([[BYVAL]] {{Parameter|variable1}}, [[BYVAL]] {{Parameter|variable2}}) - - -{{PageDescription}} -* '''QB64''' can only use BYVAL in [[DECLARE LIBRARY]] procedures that add DLL or Operating System API functions. -* Supported with [[DECLARE LIBRARY]] [[SUB]] and [[FUNCTION]] procedure declarations when passing '''numerical values only'''. -* Passing numerical values BYVAL assures that the original numerical variable value is not changed by another procedure. -* Use [[parenthesis]] around program [[SUB]] or [[FUNCTION]] parameters passed '''by value'''. Ex: ''CALL Procedure ((x&), (y&))'' - - -{{PageErrors}} -* '''Do not use BYVAL before [[STRING]] or [[TYPE]] variables or in regular prograam [[SUB]] or [[FUNCTION]] parameters.''' -* '''NOTE: Many QBasic keywords can be used as variable names if they are created as [[STRING]]s using the suffix '''$'''. You cannot use them without the suffix, use a numerical suffix or use [[DIM]], [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]] statements.''' - - -==QBasic/QuickBASIC== -* QBasic versions below 7 do not use BYVAL unless the [[SUB]] program referred to is from a different programming language. -* PDS versions can use BYVAL as it is intended in any [[SUB]] or [[FUNCTION]] parameters. -* BYVAL could also be used with [[ABSOLUTE]] in QBasic. - - -{{PageExamples}} -''Example 1:'' BYVAL is used to preserve the values sent to an external procedure so they remain the same after they are used: -{{CodeStart}} '' '' -{{Cl|DECLARE LIBRARY}} "SDL" - {{Cl|SUB}} MouseMove {{Cl|ALIAS}} SDL_WarpMouse ({{Cl|BYVAL}} xoffset&, {{Cl|BYVAL}} yoffset&) -{{Cl|DECLARE LIBRARY|END DECLARE}} -{{CodeEnd}} -: ''Note:'' The DLL call above uses the SDL library, which was included with QB64 up to version 0.954. Won't work with '''version 1.000 and up'''. - - -''Example 2:'' Passing parameters "by value" using [[parenthesis|brackets]] when calling a [[SUB]] or [[FUNCTION]] in QBasic or QB64. -{{CodeStart}} '' '' -{{Cl|CALL}} MySUB (a%, (b%), (c%)) 'CALL SUB b and c stay 0 after sub - -MySUB a%, b%, (c%) 'call SUB again without CALL only c stays 0 after sub - -{{Cl|PRINT}} "After procedures: "; a%, b%, c% - -{{Cl|SUB}} MySUB (a%, b%, c%) -a% = a% + 1: b% = b% + 1: c% = c% + 1 -{{Cl|PRINT}} "Inside procedure: "; a%, b%, c% -{{Cl|END SUB}} '' '' -{{CodeEnd}} -{{OutputStart}} -Inside procedure: 1 1 1 -Inside procedure: 2 1 1 -After procedures: 2 1 0 -{{OutputEnd}} -:''Explanation:'' Both SUB calls pass just the '''values''' of b% and c% to the procedure. The first variable, a%, is passed by '''reference''' (the default) so the value was changed by the SUB procedure. Brackets can only be used in the [[CALL]] or function reference. - - -{{PageSeeAlso}} -* [[DECLARE LIBRARY]] -* [[SUB]], [[FUNCTION]] -* [[CALL]], [[ALIAS]] -* [[DECLARE]], [[DECLARE (non-BASIC statement)]] {{text|(not used by QB64)}} -* [[Libraries#C++_Variable_Types|C++ Variable Types]] - - -{{PageNavigation}} \ No newline at end of file +#REDIRECT [[DECLARE LIBRARY]] diff --git a/internal/help/CALL.txt b/internal/help/CALL.txt index d2e45fa61..55c859ff6 100644 --- a/internal/help/CALL.txt +++ b/internal/help/CALL.txt @@ -14,12 +14,6 @@ * To pass parameters by value, instead of by reference, enclose passed variables in parenthesis. -==QBasic/QuickBASIC== -* PDS or Quickbasic 7 up could use [[BYVAL]] to pass variables by values instead of reference. -* QuickBASIC 4.5 could use [[BYVAL]] only for procedures created in Assembly or another language. -* QBasic required [[CALL ABSOLUTE]] only. It did not have to be [[DECLARE]]d. - - {{PageExamples}} ''Example:'' How parameters are passed in two [[SUB]] calls, one with CALL using brackets and one without CALL or brackets: {{CodeStart}} '' '' @@ -35,7 +29,7 @@ helloworld a 'a passed to c parameter w/o CALL {{Cl|END}} {{Cl|SUB}} helloworld (c) 'SUB parameter variables are always inside of brackets in SUB code -{{Cl|PRINT}} "Hello World!" +{{Cl|PRINT}} "Hello World!" {{Cl|PRINT}} a, b, c a = a + 1 'a is a SUB value of 0 when printed which may increase inside SUB only b = b + 1 'b is a shared value which can increase anywhere @@ -58,7 +52,6 @@ Hello World! {{PageSeeAlso}} * [[SUB]], [[FUNCTION]] -* [[DECLARE]], [[DECLARE (non-BASIC statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CALLS.txt b/internal/help/CALLS.txt deleted file mode 100644 index 15e854908..000000000 --- a/internal/help/CALLS.txt +++ /dev/null @@ -1,24 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is not supported in QB64.''' - - ----- - - -[[CALLS]] is a statement that transfers control to a procedure written in a different programming language. - - -{{PageSyntax}} -:[[CALLS]] {{Parameter|name}} [({{Parameter|argumentList}})] - - -* [[Keywords currently not supported by QB64|Not supported in QB64.]] -* The arguments are passed by reference as far addresses, unlike [[CALL]] which passes arguments by value as default. You cannot use [[BYVAL]] or [[SEG]] in a [[CALLS]] argumentList. -* [[CALLS]] is the same as using [[CALL]] with a [[SEG]] before each argument. - - -{{PageSeeAlso}} -*[[DECLARE (non-BASIC statement)]] -*[[CALL]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/CALL_ABSOLUTE.txt b/internal/help/CALL_ABSOLUTE.txt index 6fdfc2a6e..45df91671 100644 --- a/internal/help/CALL_ABSOLUTE.txt +++ b/internal/help/CALL_ABSOLUTE.txt @@ -5,7 +5,7 @@ : [[CALL ABSOLUTE]]([{{Parameter|argumentList}},] {{Parameter|integerOffset}}) -==Legacy support== +{{PageLegacySupport}} * [[CALL ABSOLUTE]] is implemented to support older code and is not recommended practice. To handle mouse input, the '''use [[_MOUSEINPUT]] and related functions'''. @@ -13,14 +13,13 @@ * [[CALL]] and parameter brackets are required in the statement. * {{Parameter|argumentList}} contains the list of arguments passed to the procedure. * {{Parameter|integerOffset}} contains the offset from the current code segment, set by [[DEF SEG]] and [[SADD]], to the starting location of the called procedure. -* QBasic and '''QB64''' have the ABSOLUTE statement built in and require no library, like QuickBASIC did. +* '''QB64''' has the ABSOLUTE statement built in and requires no external library, like QuickBASIC did. * '''NOTE: QB64 does not support INT 33h mouse functions above 3 or [[BYVAL]] in an ABSOLUTE statement. Registers are emulated.''' {{PageSeeAlso}} * [[SADD]], [[INTERRUPT]] -* [[DECLARE (non-BASIC statement)]] * [[_MOUSEINPUT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CASE.txt b/internal/help/CASE.txt index c6c807264..d9e199693 100644 --- a/internal/help/CASE.txt +++ b/internal/help/CASE.txt @@ -16,7 +16,7 @@ ** [[CASE]] value ** [[CASE]] value1 [[TO]] value2 ** [[CASE]] value1, value2, value3 -** [[CASE IS]] value1 > value2 +** [[CASE IS]] value1 > value2 ** [[CASE ELSE]] * The first time a [[CASE]] value matches the compared variable's value, that [[CASE]] code is executed and [[SELECT CASE]] is exited, unless '''EVERYCASE''' is used. @@ -24,14 +24,14 @@ {{CodeStart}} a = 100 {{Cl|SELECT CASE}} a - {{Cl|CASE}} 1, 3, 5, 7, 9: {{Cl|PRINT}} "Odd values under 10 will be shown." - {{Cl|CASE}} 10: {{Cl|PRINT}} "10 will be shown." - {{Cl|CASE}} 50: {{Cl|PRINT}} "50 will be shown." - {{Cl|CASE}} 100: {{Cl|PRINT}} "This will be shown. (a is 100)" - {{Cl|PRINT}} "(and this)" - {{Cl|CASE}} 150: {{Cl|PRINT}} "150 will be shown." - {{Cl|CASE IS}} < 150: {{Cl|PRINT}} "Less than 150 will be shown. (a which is 100 is under 150)" - {{Cl|CASE}} 50 {{Cl|TO}} 150: {{Cl|PRINT}} "50 to 150 will be shown. (a which is 100 is between 50 TO 150)" + {{Cl|CASE}} 1, 3, 5, 7, 9: {{Cl|PRINT}} "Odd values under 10 will be shown." + {{Cl|CASE}} 10: {{Cl|PRINT}} "10 will be shown." + {{Cl|CASE}} 50: {{Cl|PRINT}} "50 will be shown." + {{Cl|CASE}} 100: {{Cl|PRINT}} "This will be shown. (a is 100)" + {{Cl|PRINT}} "(and this)" + {{Cl|CASE}} 150: {{Cl|PRINT}} "150 will be shown." + {{Cl|CASE IS}} < 150: {{Cl|PRINT}} "Less than 150 will be shown. (a which is 100 is under 150)" + {{Cl|CASE}} 50 {{Cl|TO}} 150: {{Cl|PRINT}} "50 to 150 will be shown. (a which is 100 is between 50 TO 150)" {{Cl|END SELECT}} {{CodeEnd}} @@ -50,10 +50,10 @@ a = 100 :* A [[CASE]] can list several values separated by commas for the same program option to be executed. -:* [[CASE IS]] is used when we need to compare the value to a conditional expression range such as a value is "=" equal to, "<" less than, ">" greater than, "<>" not equal to or [[NOT]] a value. +:* [[CASE IS]] is used when we need to compare the value to a conditional expression range such as a value is "=" equal to, "<" less than, ">" greater than, "<>" not equal to or [[NOT]] a value. :* A [[CASE]] range can be specified (in the example; 50 [[TO]] 150) if needed. -<center>''Note:'' A [[SELECT CASE]] block has to end with [[END SELECT]].</center> +<center>''Note:'' A [[SELECT CASE]] block has to end with [[END SELECT]].</center> {{PageSeeAlso}} @@ -62,4 +62,4 @@ a = 100 * [[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CASE_ELSE.txt b/internal/help/CASE_ELSE.txt index 103e32ca6..d7226dfc6 100644 --- a/internal/help/CASE_ELSE.txt +++ b/internal/help/CASE_ELSE.txt @@ -5,7 +5,7 @@ {{PageDescription}} * [[CASE ELSE]] should be listed at the bottom of the case list as it will supersede any case statements after it. -* Use it as a "safety net" or as an alternative for all values not covered in the [[CASE]] statements. +* Use it as a "safety net" or as an alternative for all values not covered in the [[CASE]] statements. {{PageExamples}} @@ -14,11 +14,11 @@ a = 100 {{Cl|SELECT CASE}} a -{{Cl|CASE}} {{Cl|IS}} < 99: {{Cl|PRINT}} "a is < 99" -{{Cl|CASE}} 99: {{Cl|PRINT}} "a is 99" -{{Cl|CASE}} {{Cl|IS}} > 100: {{Cl|PRINT}} "a is > 100" +{{Cl|CASE}} {{Cl|IS}} < 99: {{Cl|PRINT}} "a is < 99" +{{Cl|CASE}} 99: {{Cl|PRINT}} "a is 99" +{{Cl|CASE}} {{Cl|IS}} > 100: {{Cl|PRINT}} "a is > 100" {{Cl|CASE ELSE}} -{{Cl|PRINT}} "a is 100" +{{Cl|PRINT}} "a is 100" {{Cl|END SELECT}} {{CodeEnd}} @@ -35,10 +35,10 @@ a is 100 a = 100 {{Cl|SELECT CASE}} a -{{Cl|CASE}} 10: {{Cl|PRINT}} "a is 10" -{{Cl|CASE}} 20: {{Cl|PRINT}} "a is 20" -{{Cl|CASE}} 30: {{Cl|PRINT}} "a is 30" -{{Cl|CASE ELSE}}: {{Cl|PRINT}} "a is something other than 10, 20 and 30" +{{Cl|CASE}} 10: {{Cl|PRINT}} "a is 10" +{{Cl|CASE}} 20: {{Cl|PRINT}} "a is 20" +{{Cl|CASE}} 30: {{Cl|PRINT}} "a is 30" +{{Cl|CASE ELSE}}: {{Cl|PRINT}} "a is something other than 10, 20 and 30" {{Cl|END SELECT}} {{CodeEnd}} @@ -59,4 +59,4 @@ a is something other than 10, 20 and 30 *[[IF...THEN]], [[ELSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CASE_IS.txt b/internal/help/CASE_IS.txt index 3439adae3..1cac8d544 100644 --- a/internal/help/CASE_IS.txt +++ b/internal/help/CASE_IS.txt @@ -4,16 +4,16 @@ {{PageSyntax}} -: [[CASE IS]] '''{=|<|>|<=|>=|<>|[[NOT]]} {{Parameter|expression}}''' +: [[CASE IS]] '''{=|<|>|<=|>=|<>|[[NOT]]} {{Parameter|expression}}''' {{PageDescription}} * [[AND (boolean)|AND]] can be used to add extra conditions to a [[CASE IS]] statement evaluation. * [[OR (boolean)|OR]] can be used to add alternate conditions to a [[CASE IS]] statement evaluation. * Parenthesis are allowed in [[CASE IS]] statements to clarify an evaluation. -* [[CASE IS]] > 100 uses the greater than expression. +* [[CASE IS]] > 100 uses the greater than expression. * [[CASE IS]] <= 100 uses the less than or equal to expression. -* [[CASE IS]] <> 100 uses the not equal to expression(same as [[NOT]] 100). +* [[CASE IS]] <> 100 uses the not equal to expression(same as [[NOT]] 100). {{Template:RelationalTable}} @@ -24,4 +24,4 @@ * [[SELECT CASE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CDBL.txt b/internal/help/CDBL.txt deleted file mode 100644 index 8cf8e7903..000000000 --- a/internal/help/CDBL.txt +++ /dev/null @@ -1,34 +0,0 @@ -[[CDBL]] converts a value to the closest [[DOUBLE]]-precision value. - - - -{{PageSyntax}} -: {{Parameter|doubleValue#}} = [[CDBL]]({{Parameter|expression}}) - - -{{Parameters}} -* {{Parameter|expression}} is any [[TYPE]] of literal or variable numerical value or mathematical calculation. - - -{{PageDescription}} -* Rounds to the closest [[DOUBLE]] floating decimal point value. -* Also can be used to define a value as [[DOUBLE]]-precision up to 15 decimals. - - -{{PageExamples}} -''Example:'' Prints a double-precision version of the single-precision value stored in the variable named A. -{{CodeStart}} - A = 454.67 - {{Cl|PRINT}} A; {{Cl|CDBL}}(A) -{{CodeEnd}} -{{OutputStart}} 454.67 454.6700134277344 -{{OutputEnd}} -: The last 11 numbers in the double-precision number change the value in this example, since A was previously defined to only two-decimal place accuracy. - - -{{PageSeeAlso}} -* [[CINT]], [[CLNG]] -* [[CSNG]], [[_ROUND]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/CDECL.txt b/internal/help/CDECL.txt deleted file mode 100644 index 800a24bc4..000000000 --- a/internal/help/CDECL.txt +++ /dev/null @@ -1,23 +0,0 @@ -#REDIRECT [[DECLARE (non-BASIC statement)]] - -'''This page is maintained for historic purposes. The keyword is not supported in QB64.''' - ----- - -[[CDECL]] is used to indicate that the external procedure uses the C-language argument order. - - -{{PageSyntax}} -: [[DECLARE]] {[[SUB]]|[[FUNCTION]]} name ['''CDECL'''] [ [[ALIAS]] "aliasname"] [([parameterlist])] - - -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* QuickBASIC will pass the arguments in the argument list from right to left instead of left to right which is the BASIC convention. - - -{{PageSeeAlso}} -*[[CALL]], [[CALLS]] -*[[DECLARE (non-BASIC statement)]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/CHAIN.txt b/internal/help/CHAIN.txt index 6cdf4601b..c054e5fb3 100644 --- a/internal/help/CHAIN.txt +++ b/internal/help/CHAIN.txt @@ -1,14 +1,14 @@ [[CHAIN]] is used to change seamlessly from one module to another one in a program. -==Legacy support== +{{PageLegacySupport}} * The multi-modular technique goes back to when QBasic and QuickBASIC had module size constraints. In QB64 [[CHAIN]] has been implemented so that that older code can still be compiled, though '''it is advisable to use single modules for a single project (not counting [[$INCLUDE]] libraries), for ease of sharing and also because the module size constraints no longer exist.''' {{PageSyntax}} : [[CHAIN]] {{Parameter|moduleName$}} -{{Parameters}} +{{PageParameters}} * {{Parameter|moduleName$}} is a variable or a literal [[STRING]] value in quotation marks with the optional EXE or BAS file name extension. @@ -17,30 +17,25 @@ * In Windows, '''QB64''' will automatically compile a CHAIN referenced BAS file if there is no EXE file found. * CHAIN looks for a file extension that is the same as the invoking module's extension. * The module's filename extension is not required. To save editing at compile time just omit the extensions in the calls. -* To pass data from one module to the other use [[COMMON SHARED]]. The COMMON list should match [[type]]s and names. +* To pass data from one module to the other use [[COMMON SHARED]]. The COMMON list should match [[Variable Types|type]]s and names. * '''QB64 does not retain the [[SCREEN]] mode like QBasic did.''' * Variable data can be passed in files instead of using [[COMMON SHARED]] values. '''QB64''' uses files to pass [[COMMON]] lists. * [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]'''. -''QBasic/QuickBASIC:'' -* Compiled EXE files had to include BRUN45.EXE in QuickBASIC 4.5 when CHAIN was used with [[COMMON SHARED]]. - - {{PageExamples}} ''Example:'' CHAIN looks for same file type extension as program module (BAS or EXE). {{CodeStart}} '' '' - {{Cl|CHAIN}} "Level1" '' '' + {{Cl|CHAIN}} "Level1" '' '' {{CodeEnd}} -''Explanation:'' The file referred to is "Level1.BAS" if the program module using the call is a BAS file. If the program was compiled, it would look for "Level1.EXE". +''Explanation:'' The file referred to is "Level1.BAS" if the program module using the call is a BAS file. If the program was compiled, it would look for "Level1.EXE". {{PageSeeAlso}} * [[RUN]] * [[COMMON]], [[COMMON SHARED]] * [[SHARED]] -* [[LINKed or Merged Modules]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CHDIR.txt b/internal/help/CHDIR.txt index dc7f5db46..6b4e5b4c0 100644 --- a/internal/help/CHDIR.txt +++ b/internal/help/CHDIR.txt @@ -8,23 +8,23 @@ The [[CHDIR]] statement changes the program's location from one working director {{PageDescription}} * {{Parameter|path$}} is the new directory path the program will work in. * {{Parameter|path$}} can be an absolute path (starting from the root folder) or relative path (starting from the current program location). -* If {{Parameter|path$}} specifies a non-existing path, a [[ERROR Codes|"Path not found"]] error will occur. -* '''A QB64 [[SHELL]] statement cannot use "CD " or "CHDIR " + path$ to change directories.''' +* If {{Parameter|path$}} specifies a non-existing path, a [[ERROR Codes|"Path not found"]] error will occur. +* '''A QB64 [[SHELL]] statement cannot use "CD " or "CHDIR " + path$ to change directories.''' {{PageExamples}} ''Example 1:'' The following code is Windows-specific: {{CodeStart}} '' '' -{{Cl|CHDIR}} "C:\" 'change to the root drive C (absolute path) -{{Cl|CHDIR}} "DOCUME~1" 'change to "C:\Documents and Settings" from root drive (relative path) -{{Cl|CHDIR}} "..\" 'change back to previous folder one up '' '' +{{Cl|CHDIR}} "C:\" 'change to the root drive C (absolute path) +{{Cl|CHDIR}} "DOCUME~1" 'change to "C:\Documents and Settings" from root drive (relative path) +{{Cl|CHDIR}} "..\" 'change back to previous folder one up '' '' {{CodeEnd}} :''Details:'' '''QB64''' can use long or short (8.3 notation) file and path names. ''Example 2:'' Using the Windows API to find the current program's name and root path. The PATH$ is a shared function value. {{CodeStart}} '' '' -{{Cl|_TITLE}} "My program" +{{Cl|_TITLE}} "My program" {{Cl|PRINT}} TITLE$ {{Cl|PRINT}} PATH$ @@ -40,13 +40,13 @@ Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) '0 designates PATH$ = {{Cl|LEFT$}}(FileName$, Result) start = 1 DO - posit = {{Cl|INSTR}}(start, PATH$, "\") + posit = {{Cl|INSTR}}(start, PATH$, "\") {{Cl|IF...THEN|IF}} posit {{Cl|THEN}} last = posit start = posit + 1 {{Cl|LOOP}} {{Cl|UNTIL}} posit = 0 TITLE$ = {{Cl|MID$}}(PATH$, last + 1) PATH$ = {{Cl|LEFT$}}(PATH$, last) -{{Cl|ELSE}} TITLE$ = "": PATH$ = "" +{{Cl|ELSE}} TITLE$ = "": PATH$ = "" {{Cl|END IF}} {{Cl|END FUNCTION}} '' '' {{CodeEnd}} @@ -56,8 +56,7 @@ Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) '0 designates {{PageSeeAlso}} * [[SHELL]], [[FILES]] * [[MKDIR]], [[RMDIR]] -* [[DOS]], [[Batch Files]] * [[$CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CHR$.txt b/internal/help/CHR$.txt index c50606aa1..c3b73254b 100644 --- a/internal/help/CHR$.txt +++ b/internal/help/CHR$.txt @@ -19,7 +19,7 @@ The [[CHR$]] function returns the character associated with a certain [[ASCII|ch {{OutputStart}}Aa Bb {{OutputEnd}} -:Explanation: 65 is the ASCII code for "A" and 65 + 32 is the ASCII code for "a". 66 is the ASCII code for "B" and 66 + 32 is the ASCII code for "b" +:Explanation: 65 is the ASCII code for "A" and 65 + 32 is the ASCII code for "a". 66 is the ASCII code for "B" and 66 + 32 is the ASCII code for "b" ''Example 2:'' To cut down on typing CHR$(???) all day, define often used characters as variables such as Q$ = CHR$(34) as shown. @@ -28,11 +28,11 @@ Bb {{Cl|DIM}} Q AS {{Cl|STRING}} * 1 'define as one byte string(get rid of $ type suffix too) Q = {{Cl|CHR$}}(34) 'Q will now represent the elusive quotation mark in a string -PRINT "This text uses "; Q; "quotation marks"; Q; " that could have caused a syntax error!" +PRINT "This text uses "; Q; "quotation marks"; Q; " that could have caused a syntax error!" {{CodeEnd}} {{OutputStart}} -This text uses "quotation marks" that could have caused a syntax error! +This text uses "quotation marks" that could have caused a syntax error! {{OutputEnd}} @@ -40,11 +40,11 @@ This text uses "quotation marks" that could have caused a syntax error {{CodeStart}}{{Cl|OPEN}} FileName$ {{Cl|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 ' FileName to be encrypted {{Cl|IF...THEN|IF}} {{Cl|LOF}}(1) <= 32000 {{Cl|THEN}} Text$ = {{Cl|INPUT$}}({{Cl|LOF}}(1), 1) ' get Text as one string {{Cl|CLOSE}} #1 -Send$ = "" ' clear value +Send$ = "" ' clear value {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|LEN}}(Text$) Letter$ = {{Cl|MID$}}(Text$, i, 1) ' get each character in the text Code = {{Cl|ASC}}(Letter$) - {{Cl|IF...THEN|IF}} (Code > 64 {{Cl|AND (boolean)|AND}} Code < 91) {{Cl|OR (boolean)|OR}} (Code > 96 {{Cl|AND (boolean)|AND}} Code < 123) {{Cl|THEN}} + {{Cl|IF...THEN|IF}} (Code > 64 {{Cl|AND (boolean)|AND}} Code < 91) {{Cl|OR (boolean)|OR}} (Code > 96 {{Cl|AND (boolean)|AND}} Code < 123) {{Cl|THEN}} Letter$ = {{Cl|CHR$}}(Code + 130) ' change letter's ASCII character by 130 {{Cl|END IF}} Send$ = Send$ + Letter$ ' reassemble string with just letters encrypted @@ -60,11 +60,11 @@ Send$ = "" ' clear value {{CodeStart}}{{Cl|OPEN}} FileName$ {{Cl|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 ' FileName to be decrypted Text$ = {{Cl|INPUT$}}({{Cl|LOF}}(1), 1) ' open Text as one string {{Cl|CLOSE}} #1 -Send$ = "" +Send$ = "" {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|LEN}}(Text$) Letter$ = {{Cl|MID$}}(Text$, i, 1) Code = {{Cl|ASC}}(Letter$) - {{Cl|IF...THEN|IF}} (Code > 194 {{Cl|AND (boolean)|AND}} Code < 221) {{Cl|OR (boolean)|OR}} (Code > 226 {{Cl|AND (boolean)|AND}} Code < 253) {{Cl|THEN}} + {{Cl|IF...THEN|IF}} (Code > 194 {{Cl|AND (boolean)|AND}} Code < 221) {{Cl|OR (boolean)|OR}} (Code > 226 {{Cl|AND (boolean)|AND}} Code < 253) {{Cl|THEN}} Letter$ = {{Cl|CHR$}}(Code - 130) ' change back to a Letter character {{Cl|END IF}} Send$ = Send$ + Letter$ ' reassemble string as normal letters @@ -83,4 +83,4 @@ Send$ = "" * [[ASCII|ASCII character codes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CINT.txt b/internal/help/CINT.txt index 0769c9ab1..18805aa6d 100644 --- a/internal/help/CINT.txt +++ b/internal/help/CINT.txt @@ -5,7 +5,7 @@ The [[CINT]] function rounds decimal point numbers up or down to the nearest [[I : {{Parameter|value%}} = [[CINT]]({{Parameter|expression}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|expression}} is any [[TYPE]] of literal or variable numerical value or mathematical calculation. @@ -17,7 +17,7 @@ The [[CINT]] function rounds decimal point numbers up or down to the nearest [[I {{PageExamples}} -''Example:'' Shows how CINT rounds values up or down as in "bankers' rounding". +''Example:'' Shows how CINT rounds values up or down as in "bankers' rounding". {{CodeStart}} '' '' a% = {{Cl|CINT}}(1.49): b% = {{Cl|CINT}}(1.50): c = 11.5 {{Cl|COLOR}} c: {{Cl|PRINT}} a%, b%, c '' '' @@ -32,4 +32,4 @@ a% = {{Cl|CINT}}(1.49): b% = {{Cl|CINT}}(1.50): c = 11.5 * [[INT]], [[FIX]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CIRCLE.txt b/internal/help/CIRCLE.txt index c8aeffee5..8f2bb55c8 100644 --- a/internal/help/CIRCLE.txt +++ b/internal/help/CIRCLE.txt @@ -5,7 +5,7 @@ The [[CIRCLE]] statement is used in graphic [[SCREEN (statement)|SCREEN]] modes : [[CIRCLE]] [{{KW|STEP}}]'''('''{{Parameter|column}}''',''' {{Parameter|row}}'''),''' {{Parameter|radius%}}''',''' [{{Parameter|drawColor%}}][, {{Parameter|startRadian!}}, {{Parameter|stopRadian!}}] [, {{Parameter|aspect!}}] -{{Parameters}} +{{PageParameters}} * Can use [[STEP]] for relative coordinate moves from the previous graphic coordinates. * Coordinates designate the center position of the circle. Can be partially drawn offscreen. * {{Parameter|radius%}} is an [[INTEGER]] value for half of the total circle diameter. @@ -37,7 +37,7 @@ DO x& = {{Cl|_MOUSEX}} y& = {{Cl|_MOUSEY}} xy& = ((x& - cx&) ^ 2) + ((y& - cy&) ^ 2) 'Pythagorean theorem - {{Cl|IF...THEN|IF}} r& ^ 2 >= xy& {{Cl|THEN}} {{Cl|CIRCLE}} (cx&, cy&), r&, 10 {{Cl|ELSE}} {{Cl|CIRCLE}} (cx&, cy&), r&, 12 + {{Cl|IF...THEN|IF}} r& ^ 2 >= xy& {{Cl|THEN}} {{Cl|CIRCLE}} (cx&, cy&), r&, 10 {{Cl|ELSE}} {{Cl|CIRCLE}} (cx&, cy&), r&, 12 {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) 'escape key exit '' '' {{CodeEnd}} : ''Explanation:'' The square of the circle radius will be greater than or equal to the sum of the square of the mouse coordinates minus the center position when the pointer is inside of the circle. In this example the circle color will change from red to green. @@ -65,10 +65,10 @@ clockcount% = 15 'A counter to keep track of the radians {{Cl|CLS}} {{Cl|LOCATE}} 1, 1 {{Cl|COLOR}} 14, 0 -{{Cl|PRINT}} "Ritchie's Clock" +{{Cl|PRINT}} "Ritchie's Clock" {{Cl|COLOR}} 9, 0 -{{Cl|PRINT}} "Uses {{Cl|CIRCLE}} to" -{{Cl|PRINT}} "draw hands!" +{{Cl|PRINT}} "Uses {{Cl|CIRCLE}} to" +{{Cl|PRINT}} "draw hands!" {{Cl|COLOR}} 8, 0 {{Cl|CIRCLE}} (160, 100), 110, 8 'circle with radius of 110 and dark gray {{Cl|CIRCLE}} (160, 100), 102, 8 'circle with radius of 102 and dark gray @@ -88,14 +88,14 @@ minutes% = {{Cl|INT}}({{Cl|VAL}}({{Cl|MID$}}({{Cl|TIME$}}, 4, 2))) 'extract minu {{Cl|IF...THEN|IF}} minutes% = 0 {{Cl|THEN}} minutes% = 60 'array counts 1 to 60 not 0 to 59 previousminute% = minutes% 'hold current minute for later use hours% = {{Cl|INT}}({{Cl|VAL}}({{Cl|LEFT$}}({{Cl|TIME$}}, 2))) 'extract hour from {{Cl|TIME$}} -{{Cl|IF...THEN|IF}} hours% >= 12 {{Cl|THEN}} hours% = hours% - 12 'convert from military time +{{Cl|IF...THEN|IF}} hours% >= 12 {{Cl|THEN}} hours% = hours% - 12 'convert from military time {{Cl|IF...THEN|IF}} hours% = 0 {{Cl|THEN}} hours% = 12 'count from 1 to 12 not 0 to 11 previoushour% = hours% 'hold current hour for later use '* '* Start of main program loop '* {{Cl|DO}} - {{Cl|IF...THEN|IF}} seconds% <> previoussecond% {{Cl|THEN}} 'has a second elapsed? + {{Cl|IF...THEN|IF}} seconds% <> previoussecond% {{Cl|THEN}} 'has a second elapsed? {{Cl|LOCATE}} 22, 17 'print the time on the screen at {{Cl|PRINT}} {{Cl|TIME$}}; 'position 22, 17 '* Since a second has elapsed we need to erase the old second hand @@ -104,7 +104,7 @@ previoushour% = hours% 'hold current hour for later use {{Cl|CIRCLE}} (160, 100), 100, 0, -clock(previoussecond%), clock(previoussecond%) {{Cl|CIRCLE}} (160, 100), 100, 15, -clock(seconds%), clock(seconds%) previoussecond% = seconds% 'hold current second for later use - {{Cl|IF...THEN|IF}} minutes% <> previousminute% {{Cl|THEN}} 'has a minute elapsed? + {{Cl|IF...THEN|IF}} minutes% <> previousminute% {{Cl|THEN}} 'has a minute elapsed? '* Since a minute has elapsed we need to erase the old hour hand position {{Cl|CIRCLE}} (160, 100), 90, 0, -clock(previousminute%), clock(previousminute%) previousminute% = minutes% 'hold current minute for later use @@ -113,7 +113,7 @@ previoushour% = hours% 'hold current hour for later use '* Draw the current minute hand position '* {{Cl|CIRCLE}} (160, 100), 90, 14, -clock(minutes%), clock(minutes%) - {{Cl|IF...THEN|IF}} hours% <> previoushour% {{Cl|THEN}} 'has an hour elapsed? + {{Cl|IF...THEN|IF}} hours% <> previoushour% {{Cl|THEN}} 'has an hour elapsed? '* Since an hour has elapsed we need to erase the old hour hand position {{Cl|CIRCLE}} (160, 100), 75, 0, -clock(previoushour% * 5), clock(previoushour% * 5) previoushour% = hours% 'hold current hour for later use @@ -128,9 +128,9 @@ previoushour% = hours% 'hold current hour for later use minutes% = {{Cl|VAL}}({{Cl|MID$}}({{Cl|TIME$}}, 4, 2)) {{Cl|IF...THEN|IF}} minutes% = 0 {{Cl|THEN}} minutes% = 60 hours% = {{Cl|VAL}}({{Cl|LEFT$}}({{Cl|TIME$}}, 2)) - {{Cl|IF...THEN|IF}} hours% >= 12 {{Cl|THEN}} hours% = hours% - 12 + {{Cl|IF...THEN|IF}} hours% >= 12 {{Cl|THEN}} hours% = hours% - 12 {{Cl|IF...THEN|IF}} hours% = 0 {{Cl|THEN}} hours% = 12 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'stop program if user presses a key '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'stop program if user presses a key '' '' {{CodeEnd}} {{small|code by Terry Ritchie}} @@ -142,4 +142,4 @@ previoushour% = hours% 'hold current hour for later use * [[SCREEN]], [[SCREEN (function)]] * [[Alternative circle routine]] {{text|(member-contributed program)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CLEAR.txt b/internal/help/CLEAR.txt index 05e363d1e..966abf1b6 100644 --- a/internal/help/CLEAR.txt +++ b/internal/help/CLEAR.txt @@ -7,7 +7,7 @@ The [[CLEAR]] statement clears all variable and array element values in a progra {{PageDescription}} * All parameters are optional and ignored by '''QB64'''. -* Normally used to clear all program variable and [[Arrays|array]] values where numerical values become zero and string values become empty (""). +* Normally used to clear all program variable and [[Arrays|array]] values where numerical values become zero and string values become empty (""). * It does not clear [[CONST|constant]] values. * Closes all opened files. * [[$DYNAMIC]] or [[REDIM]] arrays will need to be [[REDIM|redimensioned]] or an [[ERROR Codes|error]] will occur when referenced because they are removed. @@ -26,7 +26,7 @@ array(5) = 23 {{Cl|PRINT}} array(5) '' '' {{CodeEnd}} -:''Note:'' If you change DIM to REDIM a "Subscript out of range" error will occur because a [[$DYNAMIC]] array is removed by CLEAR. +:''Note:'' If you change DIM to REDIM a "Subscript out of range" error will occur because a [[$DYNAMIC]] array is removed by CLEAR. {{PageSeeAlso}} @@ -35,4 +35,4 @@ array(5) = 23 * [[Arrays]], [[&B|_BIT arrays]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CLNG.txt b/internal/help/CLNG.txt index 33ab770a2..5e04617c2 100644 --- a/internal/help/CLNG.txt +++ b/internal/help/CLNG.txt @@ -5,7 +5,7 @@ The [[CLNG]] function rounds decimal point numbers up or down to the nearest [[L : {{Parameter|value&}} = [[CLNG]]({{Parameter|expression}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|expression}} is any [[TYPE]] of literal or variable numerical value or mathematical calculation. @@ -33,4 +33,4 @@ The [[CLNG]] function rounds decimal point numbers up or down to the nearest [[L * [[_ROUND]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CLOSE.txt b/internal/help/CLOSE.txt index 994d1f931..f536f4ae0 100644 --- a/internal/help/CLOSE.txt +++ b/internal/help/CLOSE.txt @@ -5,7 +5,7 @@ : [[CLOSE]] [{{Parameter|fileNumber}}[, ...]] -{{Parameters}} +{{PageParameters}} * {{Parameter|fileNumber}} indicates the file or list of file numbers to close. When not specified, all open files are closed. @@ -26,4 +26,4 @@ * [[_SNDCLOSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CLS.txt b/internal/help/CLS.txt index 57aebe6da..82ca19754 100644 --- a/internal/help/CLS.txt +++ b/internal/help/CLS.txt @@ -5,9 +5,9 @@ The [[CLS]] statement clears the [[_DEST|current write page]]. : [[CLS]] [{{Parameter|method%}}] [, {{Parameter|bgColor&}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|method%}} specifies which parts of the page to clear, and can have one of the following values: -** CLS    - clears the active graphics or text viewport or the entire text screen and refreshes bottom function [[KEY LIST|KEY ON]] line. +** CLS - clears the active graphics or text viewport or the entire text screen and refreshes bottom function [[KEY LIST|KEY ON]] line. ** CLS 0 - Clears the entire page of text and graphics. Print cursor is moved to row 1 at column 1. ** CLS 1 - Clears only the graphics view port. Has no effect for text mode. ** CLS 2 - Clears only the text view port. The print cursor is moved to the top row of the text view port at column 1. @@ -30,8 +30,8 @@ The [[CLS]] statement clears the [[_DEST|current write page]]. {{Cl|SCREEN}} 12 {{Cl|CLS}} , 15 {{Cl|_PRINTMODE }} _KEEPBACKGROUND 'keeps the text background visible -{{Cl|COLOR}} 0: {{Cl|PRINT}} "This is black text on a white background!" -K$ = {{Cl|INPUT$}}(1 +{{Cl|COLOR}} 0: {{Cl|PRINT}} "This is black text on a white background!" +K$ = {{Cl|INPUT$}}(1) {{CodeEnd}} :''Explanation:'' [[_PRINTMODE]] can be used with [[PRINT]] or [[_PRINTSTRING]] to make the text or the text background transparent. @@ -40,13 +40,12 @@ K$ = {{Cl|INPUT$}}(1 {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) {{Cl|CLS}} , {{Cl|_RGB}}(0, 255, 0) -i = {{Cl|_LOADIMAGE}}('''"qb64_trans.png"''') 'see note below examples to get the image +i = {{Cl|_LOADIMAGE}}('''"qb64_trans.png"''') 'see note below examples to get the image {{Cl|_PUTIMAGE}} (0, 0), i 'places image at upper left corner of window w/o stretching it '' '' {{CodeEnd}} '' '' : ''Explanation:'' When QB64 loads a .PNG file containing a transparent color, that color will be properly treated as transparent when _PUTIMAGE is used to put it onto another image. You can use a .PNG file containing transparency information in a 256-color screen mode in QB64. [[CLS]] sets the [[_CLEARCOLOR]] setting using [[_RGB]]. -: ''Note:'' The ''qb64_trans.png'' bee image used can be downloaded from [http://www.qb64.net/qb64_trans.png qb64_trans.png] {{PageSeeAlso}} @@ -56,4 +55,4 @@ i = {{Cl|_LOADIMAGE}}('''"qb64_trans.png"''') 'see note below examples * [[_CLEARCOLOR]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/COLOR.txt b/internal/help/COLOR.txt index 06acc20a9..e61b64c4b 100644 --- a/internal/help/COLOR.txt +++ b/internal/help/COLOR.txt @@ -9,6 +9,9 @@ The [[COLOR]] statement is used to change the foreground and background colors f * [[SCREEN]] mode 10 has only 3 white foreground attributes including flashing. * To change the {{Parameter|background&}} color only, use a comma and the desired color. Ex: [[COLOR]] , {{Parameter|background&}} * Graphic drawing statements like [[PSET]], [[PRESET]], [[LINE]], etc, also use the colors set by the [[COLOR]] statement if no color is passed when they are called. +* The [[$COLOR]] metacommand adds named color constants for both text and 32-bit modes. +* [[COLOR]] works when outputting text to [[$CONSOLE]]. +** On macOS, colors in console mode will not match the VGA palette. See [https://en.wikipedia.org/wiki/ANSI_escape_code#8-bit 8-bit ANSI colors] ==Screen Mode Attributes== @@ -36,15 +39,15 @@ The [[COLOR]] statement is used to change the foreground and background colors f * Colors can be mixed by using [[_BLEND]] (default) in 32-bit screen modes. [[_DONTBLEND]] disables blending. * '''NOTE: Default 32-bit backgrounds are clear black or [[_RGBA]](0, 0, 0, 0). Use [[CLS]] to make the black opaque.''' -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==RGB Palette Intensities== RGB intensity values can be converted to hexadecimal values to create the [[LONG]] [[_PALETTECOLOR]] value in non-32-bit screens: {{CodeStart}} '' '' {{Cl|SCREEN}} 12 -alpha$ = "FF" 'solid alpha colors only +alpha$ = "FF" 'solid alpha colors only {{Cl|OUT}} {{Cl|&H}}3C8, 0: {{Cl|OUT}} {{Cl|&H}}3C9, 0: {{Cl|OUT}} {{Cl|&H}}3C9, 0: {{Cl|OUT}} {{Cl|&H}}3C9, 20 'set black background to dark blue -{{Cl|PRINT}} "Attribute = Hex value Red Green Blue " +{{Cl|PRINT}} "Attribute = Hex value Red Green Blue " {{Cl|PRINT}} {{Cl|COLOR}} 7 {{Cl|FOR...NEXT|FOR}} attribute = 0 {{Cl|TO}} 15 @@ -52,35 +55,35 @@ alpha$ = "FF" 'solid alpha colors only red$ = {{Cl|HEX$}}({{Cl|INP}}({{Cl|&H}}3C9) * 4) 'convert port setting to 32 bit values grn$ = {{Cl|HEX$}}({{Cl|INP}}({{Cl|&H}}3C9) * 4) blu$ = {{Cl|HEX$}}({{Cl|INP}}({{Cl|&H}}3C9) * 4) - {{Cl|IF...THEN|IF}} {{Cl|LEN}}(red$) = 1 {{Cl|THEN}} red$ = "0" + red$ '2 hex digits required - {{Cl|IF...THEN|IF}} {{Cl|LEN}}(grn$) = 1 {{Cl|THEN}} grn$ = "0" + grn$ 'for low or zero hex values - {{Cl|IF...THEN|IF}} {{Cl|LEN}}(blu$) = 1 {{Cl|THEN}} blu$ = "0" + blu$ - hex32$ = "{{Cl|&H}}" + alpha$ + red$ + grn$ + blu$ + {{Cl|IF...THEN|IF}} {{Cl|LEN}}(red$) = 1 {{Cl|THEN}} red$ = "0" + red$ '2 hex digits required + {{Cl|IF...THEN|IF}} {{Cl|LEN}}(grn$) = 1 {{Cl|THEN}} grn$ = "0" + grn$ 'for low or zero hex values + {{Cl|IF...THEN|IF}} {{Cl|LEN}}(blu$) = 1 {{Cl|THEN}} blu$ = "0" + blu$ + hex32$ = "{{Cl|&H}}" + alpha$ + red$ + grn$ + blu$ {{Cl|_PALETTECOLOR}} attribute, {{Cl|VAL}}(hex32$) 'VAL converts hex string to a LONG 32 bit value {{Cl|IF...THEN|IF}} attribute {{Cl|THEN}} {{Cl|COLOR}} attribute 'exclude black color print - {{Cl|PRINT}} "{{Cl|COLOR}}" + {{Cl|STR$}}(attribute) + " = " + hex32$, red$, grn$, blu$ 'returns closest attribute + {{Cl|PRINT}} "{{Cl|COLOR}}" + {{Cl|STR$}}(attribute) + " = " + hex32$, red$, grn$, blu$ 'returns closest attribute {{Cl|NEXT}} '' '' {{CodeEnd}} {{OutputStart}}Attribute Hex value Red Green Blue -{{text|COLOR 0 <nowiki>=</nowiki> &HFF000050 00 00 50|#A8A8A8}} -{{text|COLOR 1 <nowiki>=</nowiki> &HFF0000A8 00 00 A8|#0050A8}} -{{text|COLOR 2 <nowiki>=</nowiki> &HFF00A800 00 A8 00|#00A800}} -{{text|COLOR 3 <nowiki>=</nowiki> &HFF00A8A8 00 A8 A8|#00A8A8}} -{{text|COLOR 4 <nowiki>=</nowiki> &HFFA80000 A8 00 00|#A80000}} -{{text|COLOR 5 <nowiki>=</nowiki> &HFFA800A8 A8 00 A8|#A800A8}} -{{text|COLOR 6 <nowiki>=</nowiki> &HFFA85400 A8 54 00|#A85400}} -{{text|COLOR 7 <nowiki>=</nowiki> &HFFA8A8A8 A8 A8 A8|#A8A8A8}} -{{text|COLOR 8 <nowiki>=</nowiki> &HFF545454 54 54 54|#545454}} -{{text|COLOR 9 <nowiki>=</nowiki> &HFF5454FC 54 54 FC|#5454FC}} -{{text|COLOR 10 <nowiki>=</nowiki> &HFF54FC54 54 FC 54|#54FC54}} -{{text|COLOR 11 <nowiki>=</nowiki> &HFF5454FC 54 FC FC|#54FCFC}} -{{text|COLOR 12 <nowiki>=</nowiki> &HFFFC5454 FC 54 54|#FC5454}} -{{text|COLOR 13 <nowiki>=</nowiki> &HFFFC54FC FC 54 FC|#FC54FC}} -{{text|COLOR 14 <nowiki>=</nowiki> &HFFFCFC54 FC FC 54|#FCFC54}} -{{text|COLOR 15 <nowiki>=</nowiki> &HFFFCFCFC FC FC FC|#FCFCFC}} +{{text|COLOR 0 <nowiki>=</nowiki> &HFF000050 00 00 50|#A8A8A8}} +{{text|COLOR 1 <nowiki>=</nowiki> &HFF0000A8 00 00 A8|#0050A8}} +{{text|COLOR 2 <nowiki>=</nowiki> &HFF00A800 00 A8 00|#00A800}} +{{text|COLOR 3 <nowiki>=</nowiki> &HFF00A8A8 00 A8 A8|#00A8A8}} +{{text|COLOR 4 <nowiki>=</nowiki> &HFFA80000 A8 00 00|#A80000}} +{{text|COLOR 5 <nowiki>=</nowiki> &HFFA800A8 A8 00 A8|#A800A8}} +{{text|COLOR 6 <nowiki>=</nowiki> &HFFA85400 A8 54 00|#A85400}} +{{text|COLOR 7 <nowiki>=</nowiki> &HFFA8A8A8 A8 A8 A8|#A8A8A8}} +{{text|COLOR 8 <nowiki>=</nowiki> &HFF545454 54 54 54|#545454}} +{{text|COLOR 9 <nowiki>=</nowiki> &HFF5454FC 54 54 FC|#5454FC}} +{{text|COLOR 10 <nowiki>=</nowiki> &HFF54FC54 54 FC 54|#54FC54}} +{{text|COLOR 11 <nowiki>=</nowiki> &HFF5454FC 54 FC FC|#54FCFC}} +{{text|COLOR 12 <nowiki>=</nowiki> &HFFFC5454 FC 54 54|#FC5454}} +{{text|COLOR 13 <nowiki>=</nowiki> &HFFFC54FC FC 54 FC|#FC54FC}} +{{text|COLOR 14 <nowiki>=</nowiki> &HFFFCFC54 FC FC 54|#FCFC54}} +{{text|COLOR 15 <nowiki>=</nowiki> &HFFFCFCFC FC FC FC|#FCFCFC}} {{OutputEnd}} -:''Explanation:'' The RGB intensity values are multiplied by 4 to get the [[_RGB]] intensity values as [[HEX$|hexadecimal]] values. The individual 2 digit [[HEX$]] intensity values can be added to "&HFF" to make up the 32-bit hexadecimal string value necessary for [[VAL]] to return to [[_PALETTECOLOR]]. The statement is only included in the example to show how that can be done with any 32-bit color value. +:''Explanation:'' The RGB intensity values are multiplied by 4 to get the [[_RGB]] intensity values as [[HEX$|hexadecimal]] values. The individual 2 digit [[HEX$]] intensity values can be added to "&HFF" to make up the 32-bit hexadecimal string value necessary for [[VAL]] to return to [[_PALETTECOLOR]]. The statement is only included in the example to show how that can be done with any 32-bit color value. :'''Note:''' Black has a blue hex value of 50 due to the [[OUT]] background color setting which makes it dark blue. @@ -89,7 +92,7 @@ alpha$ = "FF" 'solid alpha colors only * The same can be achieved using [[_PALETTECOLOR]] ('''recommended practice'''). :'''{{text|OUT &H3C7, attribute|green}}''' 'Set port to read RGB settings with: -:'''{{text|color_intensity <nowiki>=</nowiki> INP(&H3C9)|green}}''' 'reads present intensity setting +:'''{{text|color_intensity <nowiki>=</nowiki> INP(&H3C9)|green}}''' 'reads present intensity setting :'''{{text|OUT &H3C8, attribute|green}}''' 'Set port to write RGB settings with: :'''{{text|OUT &H3C9, color_intensity|green}}''' 'writes new intensity setting @@ -98,7 +101,7 @@ alpha$ = "FF" 'solid alpha colors only * Color port setting of red, green and blue intensities can be done in ascending order. * Color port attribute intensity values range from 0 to 63 (1/4 of the 32-bit values) in QBasic's legacy 4 and 8 bit screen modes. -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> {{PageExamples}} @@ -134,16 +137,16 @@ alpha$ = "FF" 'solid alpha colors only ''Example 3:'' Printing in fullscreen SCREEN 0 mode with a color background under the text only. {{CodeStart}} '' '' {{Cl|SCREEN}} 0: {{Cl|_FULLSCREEN}} ' used for fullscreen instead of window -{{Cl|COLOR}} 30, 6: {{Cl|LOCATE}} 12, 4: {{Cl|PRINT}} "Hello!" '' '' +{{Cl|COLOR}} 30, 6: {{Cl|LOCATE}} 12, 4: {{Cl|PRINT}} "Hello!" '' '' {{CodeEnd}} -:''Result:'' Hello! is printed in flashing high intensity yellow with brown background behind text only when in Qbasic [[_FULLSCREEN|fullscreen]]. +:''Result:'' Hello! is printed in flashing high intensity yellow with brown background behind text only when in QBasic [[_FULLSCREEN|fullscreen]]. ''Example 4:'' Using [[CLS]] after setting the background color in SCREEN 0 to make the color cover the entire screen. {{CodeStart}} '' '' {{Cl|SCREEN}} 0: {{Cl|_FULLSCREEN}} {{Cl|COLOR}} , 7: {{Cl|CLS}} -{{Cl|COLOR}} 9: {{Cl|PRINT}} "Hello" '' '' +{{Cl|COLOR}} 9: {{Cl|PRINT}} "Hello" '' '' {{CodeEnd}} {{TextStart}}{{text|Hello|blue}}{{TextEnd}} :''Result:'' The blue word Hello is printed to a totally grey background in [[_FULLSCREEN|fullscreen]]. @@ -152,16 +155,16 @@ alpha$ = "FF" 'solid alpha colors only ''Example 5:'' Using a different foreground color for each letter: {{CodeStart}} '' '' {{Cl|SCREEN}} 0 -{{Cl|COLOR}} 1: {{Cl|PRINT}} "H"; -{{Cl|COLOR}} 3: {{Cl|PRINT}} "E"; -{{Cl|COLOR}} 4: {{Cl|PRINT}} "L"; -{{Cl|COLOR}} 5: {{Cl|PRINT}} "L"; -{{Cl|COLOR}} 6: {{Cl|PRINT}} "O" -{{Cl|COLOR}} 9: {{Cl|PRINT}} "W"; -{{Cl|COLOR}} 11: {{Cl|PRINT}} "O"; -{{Cl|COLOR}} 12: {{Cl|PRINT}} "R"; -{{Cl|COLOR}} 13: {{Cl|PRINT}} "L"; -{{Cl|COLOR}} 14: {{Cl|PRINT}} "D" '' '' +{{Cl|COLOR}} 1: {{Cl|PRINT}} "H"; +{{Cl|COLOR}} 3: {{Cl|PRINT}} "E"; +{{Cl|COLOR}} 4: {{Cl|PRINT}} "L"; +{{Cl|COLOR}} 5: {{Cl|PRINT}} "L"; +{{Cl|COLOR}} 6: {{Cl|PRINT}} "O" +{{Cl|COLOR}} 9: {{Cl|PRINT}} "W"; +{{Cl|COLOR}} 11: {{Cl|PRINT}} "O"; +{{Cl|COLOR}} 12: {{Cl|PRINT}} "R"; +{{Cl|COLOR}} 13: {{Cl|PRINT}} "L"; +{{Cl|COLOR}} 14: {{Cl|PRINT}} "D" '' '' {{CodeEnd}} {{OutputStart}} @@ -173,10 +176,10 @@ alpha$ = "FF" 'solid alpha colors only ''Example 6:'' Doing the same as Example 5 but in only a few lines: {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 0 -text$ = "HelloWorld" +text$ = "HelloWorld" {{Cl|FOR...NEXT|FOR}} textpos = 1 {{Cl|TO}} {{Cl|LEN}}(text$) {{Cl|COLOR}} textpos - {{Cl|IF...THEN|IF}} textpos <> 5 {{Cl|THEN}} {{Cl|PRINT}} {{Cl|MID$}}(text$, textpos, 1); + {{Cl|IF...THEN|IF}} textpos <> 5 {{Cl|THEN}} {{Cl|PRINT}} {{Cl|MID$}}(text$, textpos, 1); {{Cl|IF...THEN|IF}} textpos = 5 {{Cl|THEN}} {{Cl|PRINT}} {{Cl|MID$}}(text$, textpos, 1) 'start print on next row {{Cl|NEXT}} @@ -193,7 +196,7 @@ text$ = "HelloWorld" {{Cl|_PALETTECOLOR}} 0, _RGB32(255, 255, 255) 'change color 0 intensity {{Cl|_PALETTECOLOR}} 8, _RGB32(0, 0, 0) 'change color 8 intensity -{{Cl|COLOR}} 8: {{Cl|PRINT}} "Black on bright white!" '' '' +{{Cl|COLOR}} 8: {{Cl|PRINT}} "Black on bright white!" '' '' {{CodeEnd}} {{WhiteStart}}'''{{text|Black on bright white!|#000000}}''' {{WhiteEnd}} @@ -204,20 +207,21 @@ text$ = "HelloWorld" ''Example 8:'' Changing light gray text in [[SCREEN]] 0 to a 32 bit custom color using a [[LONG]] HTML hexadecimal value: {{CodeStart}} '' '' {{Cl|COLOR}} 7 -{{Cl|PRINT}} "Color 7 is gray" +{{Cl|PRINT}} "Color 7 is gray" K$ = {{Cl|INPUT$}}(1) {{Cl|_PALETTECOLOR}} 7, {{Cl|&H}}FFDAA520 ' FF alpha makes the color translucent -{{Cl|PRINT}} "Color 7 is now Goldenrod in {{Cl|SCREEN}} 0! '' '' +{{Cl|PRINT}} "Color 7 is now Goldenrod in {{Cl|SCREEN}} 0! '' '' {{CodeEnd}} {{OutputStart}} {{text|Color 7 is gray|#A8A8A8}} {{text|Color 7 is now Goldenrod in SCREEN 0!|#DAA520}} {{OutputEnd}} : ''Explanation:'' [[_RGB32]] could be used to make custom 32 bit colors or HTML values could be used after &HFF for solid colors. -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> {{PageSeeAlso}} +* [[$COLOR]] (metacommand) * [[_RGB]], [[_RGBA]], [[_RGB32]], [[RGBA32]]. * [[_RED]], [[_GREEN]], [[_BLUE]] * [[_RED32]], [[_GREEN32]], [[_BLUE32]] @@ -233,4 +237,4 @@ K$ = {{Cl|INPUT$}}(1) * [http://www.w3schools.com/html/html_colornames.asp Hexadecimal Color Values] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/COMMAND$.txt b/internal/help/COMMAND$.txt index dab07ba2a..b565800c5 100644 --- a/internal/help/COMMAND$.txt +++ b/internal/help/COMMAND$.txt @@ -15,20 +15,20 @@ The '''COMMAND$''' function returns the command line argument(s) passed when a p {{PageExamples}} ''Example 1:'' Compile both programs. ProgramA [[RUN]]s ProgramB with a parameter passed following the filename: {{CodeStart}} -{{Cl|LOCATE}} 12, 36: {{Cl|PRINT}} "ProgramA" +{{Cl|LOCATE}} 12, 36: {{Cl|PRINT}} "ProgramA" -{{Cl|LOCATE}} 23, 25: {{Cl|PRINT}} "Press any key to run ProgramB" +{{Cl|LOCATE}} 23, 25: {{Cl|PRINT}} "Press any key to run ProgramB" K$ = {{Cl|INPUT$}}(1) -{{Cl|RUN}} "ProgramB FS" 'pass FS parameter to ProgramB in QB64 or QB4.5 +{{Cl|RUN}} "ProgramB FS" 'pass FS parameter to ProgramB in QB64 or QB4.5 {{Cl|SYSTEM}} {{CodeEnd}} : ''ProgramB'' checks for fullscreen parameter pass in QB64 and goes full screen. {{CodeStart}} '' '' -{{Cl|LOCATE}} 17, 36: {{Cl|PRINT}} "ProgramB" +{{Cl|LOCATE}} 17, 36: {{Cl|PRINT}} "ProgramB" parameter$ = {{Cl|UCASE$}}({{Cl|COMMAND$}}) 'UCASE$ is needed in QB64 only, as QB4.5 will always return upper case -{{Cl|LOCATE}} 20, 33: {{Cl|PRINT}} "Parameter = " + parameter$ -{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(parameter$, 2) = "FS" {{Cl|THEN}} {{Cl|_FULLSCREEN}} 'parameter changes to full screen +{{Cl|LOCATE}} 20, 33: {{Cl|PRINT}} "Parameter = " + parameter$ +{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(parameter$, 2) = "FS" {{Cl|THEN}} {{Cl|_FULLSCREEN}} 'parameter changes to full screen {{Cl|END}} '' '' {{CodeEnd}} @@ -50,14 +50,14 @@ parameter$ = {{Cl|UCASE$}}({{Cl|COMMAND$}}) 'UCASE$ is needed in QB64 only, as Q {{OutputStart}}-1 a data file {{OutputEnd}} -: ''Explanation: If we start ''ThisProgram.exe'' with the command line '''ThisProgram -l "a data file"''', COMMAND$ will return a single string of "-1 a data file" which might be hard to process and interpret properly, but COMMAND$(1) would return "-l" and COMMAND$(2) would return the quoted "a data file" option as separate entries for easier parsing and processing. +: ''Explanation: If we start ''ThisProgram.exe'' with the command line '''ThisProgram -l "a data file"''', COMMAND$ will return a single string of "-1 a data file" which might be hard to process and interpret properly, but COMMAND$(1) would return "-l" and COMMAND$(2) would return the quoted "a data file" option as separate entries for easier parsing and processing. ''Example 3:'' As part of the command array syntax, you can also just read the array to see how many commands were sent (or simply check [[_COMMANDCOUNT]]): {{CodeStart}}DO count = count + 1 cmd$ = {{Cl|COMMAND$}}(count) - {{Cl|IF...THEN|IF}} cmd$ = "" {{Cl|THEN}} {{Cl|EXIT DO}} 'read until an empty return + {{Cl|IF...THEN|IF}} cmd$ = "" {{Cl|THEN}} {{Cl|EXIT DO}} 'read until an empty return {{Cl|PRINT}} cmd$ 'or process commands sent {{Cl|LOOP}} '' '' count = count - 1 'save the number of parameters sent to this program when run @@ -70,4 +70,4 @@ count = count - 1 'save the number of parameters sent to this program when run * [[_COMMANDCOUNT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/COMMON.txt b/internal/help/COMMON.txt index f47d13f54..f3a7a0c31 100644 --- a/internal/help/COMMON.txt +++ b/internal/help/COMMON.txt @@ -1,6 +1,6 @@ [[COMMON]] shares common variable values with other linked or [[CHAIN]]ed modules. -==Legacy support== +{{PageLegacySupport}} * The multi-modular technique goes back to when QBasic and QuickBASIC had module size constraints. In QB64 [[COMMON]] has been implemented so that that older code can still be compiled, though '''it is advisable to use single modules for a single project (not counting [[$INCLUDE]] libraries), for ease of sharing and also because the module size constraints no longer exist.''' @@ -22,4 +22,4 @@ * [[DIM]], [[REDIM]], [[SHARED]] * [[DEFSTR]], [[DEFLNG]], [[DEFINT]], [[DEFSNG]], [[DEFDBL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CONST.txt b/internal/help/CONST.txt index 3692ea83e..1c5a875e3 100644 --- a/internal/help/CONST.txt +++ b/internal/help/CONST.txt @@ -5,7 +5,7 @@ The [[CONST]] statement globally defines one or more named numeric or string val : [[CONST]] {{Parameter|constantName}} = {{Parameter|value}}[, ...] -{{Parameters}} +{{PageParameters}} * {{Parameter|constantName}} is the constant name or list of names assigned by the programmer. * {{Parameter|value}} is the value to initialize the global constant which cannot change once defined. ** If {{Parameter|constantName}} specifies a numeric type, {{Parameter|value}} must be a numeric expression containing literals and other constants. @@ -14,8 +14,8 @@ The [[CONST]] statement globally defines one or more named numeric or string val {{PageDescription}} * The {{Parameter|constantName}} does not have to include a type suffix. The datatype is automatically infered by the compiler using the {{Parameter|value}}. -* Constant values cannot reference a variable, [[SUB]] or [[FUNCTION]] return values when defined. -** The exception to the above are color functions [[_RGB32]] and [[_RGBA32]], which can be used in a CONST statement. See ''Example 2'' below. +* Constant values cannot reference a variable or [[FUNCTION]] return values. +** The exception to the above are the internal functions: [[_PI]], [[_ACOS]], [[_ASIN]], [[_ARCSEC]], [[_ARCCSC]], [[_ARCCOT]], [[_SECH]], [[_CSCH]], [[_COTH]], [[COS]], [[SIN]], [[TAN]], [[LOG]], [[EXP]], [[ATN]], [[_D2R]], [[_D2G]], [[_R2D]], [[_R2G]], [[_G2D]], [[_G2R]], [[ABS]], [[SGN]], [[INT]], [[_ROUND]], [[_CEIL]], [[FIX]], [[_SEC]], [[_CSC]], [[_COT]], [[ASC]], [[_RGB32]], [[_RGBA32]], [[_RGB]], [[_RGBA]], [[_RED32]], [[_GREEN32]], [[_BLUE32]], [[_ALPHA32]], [[_RED]], [[_GREEN]], [[_BLUE]], [[_ALPHA]] (See Example 2 below). * Constants cannot be reassigned values. They retain the same value throughout all of the program procedures. * Constants defined in module-level code have [[SHARED|shared]] scope, so they can also be used in [[SUB]] or [[FUNCTION]] procedures. * Constants defined in [[SUB]] or [[FUNCTION]] procedures are local to those procedures. @@ -29,11 +29,11 @@ The [[CONST]] statement globally defines one or more named numeric or string val {{Cl|CONST}} PI = 3.141593 ' Declare some string constants: -{{Cl|CONST}} circumferenceText = "The circumference of the circle is" -{{Cl|CONST}} areaText = "The area of the circle is" +{{Cl|CONST}} circumferenceText = "The circumference of the circle is" +{{Cl|CONST}} areaText = "The area of the circle is" {{Cl|DO...LOOP|DO}} - {{Cl|INPUT}} "Enter the radius of a circle or zero to quit"; radius + {{Cl|INPUT}} "Enter the radius of a circle or zero to quit"; radius {{Cl|IF...THEN|IF}} radius = 0 {{Cl|IF...THEN|THEN}} {{Cl|END}} {{Cl|PRINT}} circumferenceText; 2 * PI * radius {{Cl|PRINT}} areaText; PI * radius * radius ' radius squared @@ -58,7 +58,7 @@ Enter the radius of a circle or zero to quit? ''0'' {{Cl|CONST}} Red = _RGB32(255,0,0) {{Cl|COLOR}} Red -{{Cl|PRINT}} "Hello World" +{{Cl|PRINT}} "Hello World" {{CodeEnd}} {{PageSeeAlso}} @@ -68,4 +68,4 @@ Enter the radius of a circle or zero to quit? ''0'' * [http://doc.pcsoft.fr/en-US/?6510001 Windows 32 API constant values] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/COS.txt b/internal/help/COS.txt index 05212f301..38b2de221 100644 --- a/internal/help/COS.txt +++ b/internal/help/COS.txt @@ -5,7 +5,7 @@ The [[COS]] function returns the horizontal component or the cosine of an angle : {{Parameter|value!}} = [[COS]]({{Parameter|radianAngle!}}) -{{Parameters}} +{{PageParameters}} * The {{Parameter|radianAngle!}} must be measured in radians. @@ -21,20 +21,20 @@ The [[COS]] function returns the horizontal component or the cosine of an angle {{CodeStart}} '' '' {{Cl|SCREEN}} 12 PI = 4 * {{Cl|ATN}}(1) -{{Cl|PRINT}} "PI = 4 * {{Cl|ATN}}(1) ="; PI -{{Cl|PRINT}} "COS(PI) = "; {{Cl|COS}}(PI) -{{Cl|PRINT}} "SIN(PI) = "; {{Cl|SIN}}(PI) +{{Cl|PRINT}} "PI = 4 * {{Cl|ATN}}(1) ="; PI +{{Cl|PRINT}} "COS(PI) = "; {{Cl|COS}}(PI) +{{Cl|PRINT}} "SIN(PI) = "; {{Cl|SIN}}(PI) {{Cl|DO...LOOP|DO}} {{Cl|PRINT}} - {{Cl|INPUT}} "Enter the degree angle (0 quits): ", DEGREES% + {{Cl|INPUT}} "Enter the degree angle (0 quits): ", DEGREES% RADIANS = DEGREES% * PI / 180 - {{Cl|PRINT}} "RADIANS = DEGREES% * PI / 180 = "; RADIANS - {{Cl|PRINT}} "X = COS(RADIANS) = "; {{Cl|COS}}(RADIANS) - {{Cl|PRINT}} "Y = SIN(RADIANS) = "; {{Cl|SIN}}(RADIANS) + {{Cl|PRINT}} "RADIANS = DEGREES% * PI / 180 = "; RADIANS + {{Cl|PRINT}} "X = COS(RADIANS) = "; {{Cl|COS}}(RADIANS) + {{Cl|PRINT}} "Y = SIN(RADIANS) = "; {{Cl|SIN}}(RADIANS) {{Cl|CIRCLE}} (400, 240), 2, 12 {{Cl|LINE}} (400, 240)-(400 + (50 * {{Cl|SIN}}(RADIANS)), 240 + (50 * {{Cl|COS}}(RADIANS))), 11 DEGREES% = RADIANS * 180 / PI - {{Cl|PRINT}} "DEGREES% = RADIANS * 180 / PI ="; DEGREES% + {{Cl|PRINT}} "DEGREES% = RADIANS * 180 / PI ="; DEGREES% {{Cl|LOOP}} {{Cl|UNTIL}} DEGREES% = 0 '' '' {{CodeEnd}} {{OutputStart}} @@ -103,4 +103,4 @@ DEGREES% = RADIANS * 180 / PI = 45 *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CSNG.txt b/internal/help/CSNG.txt index 94004eb2f..bfeba50fb 100644 --- a/internal/help/CSNG.txt +++ b/internal/help/CSNG.txt @@ -5,7 +5,7 @@ : {{Parameter|singleValue!}} = [[CSNG]]({{Parameter|expression}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|expression}} is any [[TYPE]] of literal or variable numerical value or mathematical calculation. @@ -29,4 +29,4 @@ * [[_ROUND]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CSRLIN.txt b/internal/help/CSRLIN.txt index 5809f5774..910050e30 100644 --- a/internal/help/CSRLIN.txt +++ b/internal/help/CSRLIN.txt @@ -17,12 +17,12 @@ The [[CSRLIN]] function returns the current text row position of the [[PRINT]] c {{PageExamples}} ''Example:'' A semicolon stops the print cursor immediately after the print. {{CodeStart}} '' '' - LOCATE 5, 5: PRINT "HELLO "; + LOCATE 5, 5: PRINT "HELLO "; Y = {{Cl|CSRLIN}} 'save the row X = {{Cl|POS}}(0) 'save the column - LOCATE 10, 10: PRINT "WORLD" + LOCATE 10, 10: PRINT "WORLD" LOCATE Y, X 'restore saved position - PRINT "GOODBYE" '' '' + PRINT "GOODBYE" '' '' {{CodeEnd}} {{OutputStart}} @@ -39,7 +39,7 @@ The [[CSRLIN]] function returns the current text row position of the [[PRINT]] c {{OutputEnd}} -:''Explanation:'' "HELLO " is printed and the semicolon stops the cursor immediately after the text. The [[CSRLIN]] variable records the current print cursor's text row in Y. The [[POS]] function records the current print cursor's text column in X. The second [[PRINT]] statement displays the comment "WORLD" on the 10th line of the screen. The last [[LOCATE]] statement restores the position of the cursor to the original line and column immediately after the first print. +:''Explanation:'' "HELLO " is printed and the semicolon stops the cursor immediately after the text. The [[CSRLIN]] variable records the current print cursor's text row in Y. The [[POS]] function records the current print cursor's text column in X. The second [[PRINT]] statement displays the comment "WORLD" on the 10th line of the screen. The last [[LOCATE]] statement restores the position of the cursor to the original line and column immediately after the first print. {{PageSeeAlso}} @@ -47,4 +47,4 @@ The [[CSRLIN]] function returns the current text row position of the [[PRINT]] c * [[_PRINTSTRING]] (graphic print) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CVD.txt b/internal/help/CVD.txt index 992b544c5..cd87986f1 100644 --- a/internal/help/CVD.txt +++ b/internal/help/CVD.txt @@ -25,10 +25,10 @@ Y# = {{Cl|CVD}}(N$) '' '' ''Example 2:'' Showcases the reduced space to store an encoded number. {{CodeStart}} a# = 77000.24523213 -{{Cl|PRINT}} "Value of a#:"; a# +{{Cl|PRINT}} "Value of a#:"; a# b$ = {{Cl|MKD$}}(a#) -{{Cl|PRINT}} "Value of a# encoded using MKD$: "; b$ -{{Cl|PRINT}} "The string above, decoded using CVD:"; {{Cl|CVD}}(b$) +{{Cl|PRINT}} "Value of a# encoded using MKD$: "; b$ +{{Cl|PRINT}} "The string above, decoded using CVD:"; {{Cl|CVD}}(b$) {{CodeEnd}} {{OutputStart}} Value of a#: 77000.24523213 @@ -47,4 +47,4 @@ The string above, decoded using CVD: 77000.24523213 * [[_CV]], [[_MK$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CVDMBF.txt b/internal/help/CVDMBF.txt index 19e712572..981f826cd 100644 --- a/internal/help/CVDMBF.txt +++ b/internal/help/CVDMBF.txt @@ -15,10 +15,10 @@ The [[CVDMBF]] function decodes an 8-byte [[STRING]] generated by [[MKDMBF$]] (o ''Example 1:'' Showcases the reduced space to store an encoded number. {{CodeStart}} a# = 77000.24523213 -{{Cl|PRINT}} "Value of a#:"; a# +{{Cl|PRINT}} "Value of a#:"; a# b$ = {{Cl|MKDMBF$}}(a#) -{{Cl|PRINT}} "Value of a# encoded using MKDMBF$: "; b$ -{{Cl|PRINT}} "The string above, decoded using CVDMBF:"; {{Cl|CVDMBF}}(b$) +{{Cl|PRINT}} "Value of a# encoded using MKDMBF$: "; b$ +{{Cl|PRINT}} "The string above, decoded using CVDMBF:"; {{Cl|CVDMBF}}(b$) {{CodeEnd}} {{OutputStart}} Value of a#: 77000.24523213 @@ -36,4 +36,4 @@ The string above, decoded using CVDMBF: 77000.24523213 * [[_CV]], [[_MK$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CVI.txt b/internal/help/CVI.txt index e9cac43b8..52b86b7e1 100644 --- a/internal/help/CVI.txt +++ b/internal/help/CVI.txt @@ -29,31 +29,31 @@ Y = {{Cl|CVI}}(N$) '' '' {{Cl|DIM}} Q {{Cl|AS}} {{Cl|STRING}} * 1 Q = {{Cl|CHR$}}(34) ' create Print using templates to align the values returned -tmp1$ = "1st character code = ### * 1 = ### " -tmp2$ = "2nd character code = ### * 256 = ##### " -tmp3$ = " & " -tmp4$ = " CVI Total = ##### " +tmp1$ = "1st character code = ### * 1 = ### " +tmp2$ = "2nd character code = ### * 256 = ##### " +tmp3$ = " & " +tmp4$ = " CVI Total = ##### " {{Cl|DO...LOOP|DO}} - {{Cl|COLOR}} 14: {{Cl|LOCATE}} 13, 20: {{Cl|INPUT}} "Enter an Integer from 1 to 32767(0 quits): ", number% + {{Cl|COLOR}} 14: {{Cl|LOCATE}} 13, 20: {{Cl|INPUT}} "Enter an Integer from 1 to 32767(0 quits): ", number% {{Cl|IF...THEN|IF}} number% < 1 {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|CLS}} ASCII$ = {{Cl|MKI$}}(number%) ' create the 2 byte character string {{Cl|COLOR}} 11 - {{Cl|_PRINTSTRING}} (152, 240), "{{Cl|MKI$}} creates 2 byte ASCII string: " + Q + ASCII$ + Q ' displays character(s) + {{Cl|_PRINTSTRING}} (152, 240), "{{Cl|MKI$}} creates 2 byte ASCII string: " + Q + ASCII$ + Q ' displays character(s) asc1% = {{Cl|ASC}}(ASCII$) ' find the ASCII code values of each character asc2% = {{Cl|ASC}}(ASCII$, 2) ' '''QB64''' allows ASC to read specific characters in a string {{Cl|LOCATE}} 18, 20: {{Cl|PRINT USING}} tmp1$; asc1%; asc1% {{Cl|LOCATE}} 19, 20: {{Cl|PRINT USING}} tmp2$; asc2%; asc2% * 256 - {{Cl|LOCATE}} 20, 20: {{Cl|PRINT USING}} tmp3$; "-----" + {{Cl|LOCATE}} 20, 20: {{Cl|PRINT USING}} tmp3$; "-----" {{Cl|LOCATE}} 21, 20: {{Cl|PRINT USING}} tmp4$; asc1% + (256 * asc2%) {{Cl|LOOP}} {{Cl|SYSTEM}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -:''Explanation:'' All [[ASCII]] characters can be displayed using [[_PRINTSTRING]] . The routine gets the [[ASCII]] code, which is the actual value needed by [[CVI]]. The first byte code is always between 0 and 255. The second byte can return 0 thru 127 and CVI multiplies that value by 256. This proves that you cannot just feed a string number value to [[CVI]] and get the result desired. ("90" gets decoded to 12345). +:''Explanation:'' All [[ASCII]] characters can be displayed using [[_PRINTSTRING]] . The routine gets the [[ASCII]] code, which is the actual value needed by [[CVI]]. The first byte code is always between 0 and 255. The second byte can return 0 thru 127 and CVI multiplies that value by 256. This proves that you cannot just feed a string number value to [[CVI]] and get the result desired. ("90" gets decoded to 12345). {{PageSeeAlso}} @@ -62,4 +62,4 @@ tmp4$ = " CVI Total = ##### " * [[_CV]], [[_MK$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CVL.txt b/internal/help/CVL.txt index 790b3f58b..93570f9f9 100644 --- a/internal/help/CVL.txt +++ b/internal/help/CVL.txt @@ -39,4 +39,4 @@ Y& = {{Cl|CVL}}(N$) '' '' * [[_CV]], [[_MK$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CVS.txt b/internal/help/CVS.txt index 6c493a8c6..eb92a480c 100644 --- a/internal/help/CVS.txt +++ b/internal/help/CVS.txt @@ -15,10 +15,10 @@ The [[CVS]] function decodes a 4-byte [[STRING]] generated by [[MKS$]] (or read ''Example 1:'' Showcases the reduced space to store an encoded number. {{CodeStart}} a! = 700.2213 -{{Cl|PRINT}} "Value of a!:"; a! +{{Cl|PRINT}} "Value of a!:"; a! b$ = {{Cl|MKDMBF$}}(a!) -{{Cl|PRINT}} "Value of a# encoded using MKS$: "; b$ -{{Cl|PRINT}} "The string above, decoded using CVS:"; {{Cl|CVS}}(b$) +{{Cl|PRINT}} "Value of a# encoded using MKS$: "; b$ +{{Cl|PRINT}} "The string above, decoded using CVS:"; {{Cl|CVS}}(b$) {{CodeEnd}} {{OutputStart}} Value of a!: 700.2213 @@ -34,4 +34,4 @@ The string above, decoded using CVS: 700.2213 * [[_CV]], [[_MK$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/CVSMBF.txt b/internal/help/CVSMBF.txt index 5ac039c51..58711f7b4 100644 --- a/internal/help/CVSMBF.txt +++ b/internal/help/CVSMBF.txt @@ -15,10 +15,10 @@ The [[CVDMBF]] function decodes a 4-byte [[STRING]] generated by [[MKSMBF$]] (or ''Example 1:'' Showcases the reduced space to store an encoded number. {{CodeStart}} a! = 700.2213 -{{Cl|PRINT}} "Value of a!:"; a! +{{Cl|PRINT}} "Value of a!:"; a! b$ = {{Cl|MKSMBF$}}(a!) -{{Cl|PRINT}} "Value of a! encoded using MKSMBF$: "; b$ -{{Cl|PRINT}} "The string above, decoded using CVSMBF:"; {{Cl|CVDMBF}}(b$) +{{Cl|PRINT}} "Value of a! encoded using MKSMBF$: "; b$ +{{Cl|PRINT}} "The string above, decoded using CVSMBF:"; {{Cl|CVDMBF}}(b$) {{CodeEnd}} {{OutputStart}} Value of a!: 700.2213 @@ -34,4 +34,4 @@ The string above, decoded using CVSMBF: 700.2213 * [[_CV]], [[_MK$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Colon.txt b/internal/help/Colon.txt index 0d4eb4c99..8e5dcda5f 100644 --- a/internal/help/Colon.txt +++ b/internal/help/Colon.txt @@ -1,7 +1,7 @@ A '''colon''' can be used to separate two unrelated procedure statements on the same line. -''Usage:'' COLOR 10: PRINT "Hello "; : COLOR 12: PRINT "World" +''Usage:'' COLOR 10: PRINT "Hello "; : COLOR 12: PRINT "World" {{OutputStart}} {{text|Hello |limegreen}}{{text|World|red}} @@ -19,4 +19,4 @@ A '''colon''' can be used to separate two unrelated procedure statements on the * [[Comma]], [[Semicolon]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DATA.txt b/internal/help/DATA.txt index d189b8875..6dc6cd064 100644 --- a/internal/help/DATA.txt +++ b/internal/help/DATA.txt @@ -17,7 +17,7 @@ The [[DATA]] statement creates a line of fixed program information separated by * [[STRING]] DATA values with end spaces, QBasic keywords and values that include the comma character must be enclosed in quotation marks. * DATA fields can only be created by the programmer and cannot be changed by a user or lost. * Comments after a data line require a colon before the comment. -* If a [[READ]] statement attempts to read past the last data value, an [[ERROR Codes|"Out of Data" error]] will occur. Use end of data markers when necessary. +* If a [[READ]] statement attempts to read past the last data value, an [[ERROR Codes|"Out of Data" error]] will occur. Use end of data markers when necessary. * '''[[DATA]] fields can be placed after [[SUB]] or [[FUNCTION]] procedures, but line labels are not allowed.''' @@ -41,7 +41,7 @@ Database1: {{Cl|DATA}} 2, 0, 0, 2, 2, 0, 2, 2, 2 : ' DATA line comments require a colon Database2: -{{Cl|DATA}} "Hello, ", "world! ", Goodbye, work! '' '' +{{Cl|DATA}} "Hello, ", "world! ", Goodbye, work! '' '' {{CodeEnd}} {{OutputStart}}Hello world! Goodbyework! 1 0 0 1 1 0 1 1 1 2 0 0 2 2 0 2 2 2 @@ -78,4 +78,4 @@ mydata2: * [[SUB]], [[FUNCTION]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DATE$.txt b/internal/help/DATE$.txt index 6aa0a7c99..64201fe8a 100644 --- a/internal/help/DATE$.txt +++ b/internal/help/DATE$.txt @@ -1,4 +1,4 @@ -The [[DATE$]] function returns the current computer date as a string in the format "mm-dd-yyyy". +The [[DATE$]] function returns the current computer date as a string in the format "mm-dd-yyyy". {{PageSyntax}} @@ -6,7 +6,7 @@ The [[DATE$]] function returns the current computer date as a string in the form {{PageDescription}} -* Returns the current computer date in the format "mm-dd-yyyy" (e.g., "12-25-2009"). +* Returns the current computer date in the format "mm-dd-yyyy" (e.g., "12-25-2009"). {{PageExamples}} @@ -18,20 +18,20 @@ day$ = {{Cl|MID$}}({{Cl|DATE$}}, 4, 2): D = {{Cl|VAL}}(day$) day$ = {{Cl|STR$}}(D) ' eliminate any leading zeros year$ = {{Cl|RIGHT$}}({{Cl|DATE$}}, 4): Y = {{Cl|VAL}}(year$) {{Cl|SELECT CASE}} M - {{Cl|CASE}} 1: Moon$ = "January" - {{Cl|CASE}} 2: Moon$ = "February" - {{Cl|CASE}} 3: Moon$ = "March" - {{Cl|CASE}} 4: Moon$ = "April" - {{Cl|CASE}} 5: Moon$ = "May" - {{Cl|CASE}} 6: Moon$ = "June" - {{Cl|CASE}} 7: Moon$ = "July" - {{Cl|CASE}} 8: Moon$ = "August" - {{Cl|CASE}} 9: Moon$ = "September" - {{Cl|CASE}} 10: Moon$ = "October" - {{Cl|CASE}} 11: Moon$ = "November" - {{Cl|CASE}} 12: Moon$ = "December" + {{Cl|CASE}} 1: Moon$ = "January" + {{Cl|CASE}} 2: Moon$ = "February" + {{Cl|CASE}} 3: Moon$ = "March" + {{Cl|CASE}} 4: Moon$ = "April" + {{Cl|CASE}} 5: Moon$ = "May" + {{Cl|CASE}} 6: Moon$ = "June" + {{Cl|CASE}} 7: Moon$ = "July" + {{Cl|CASE}} 8: Moon$ = "August" + {{Cl|CASE}} 9: Moon$ = "September" + {{Cl|CASE}} 10: Moon$ = "October" + {{Cl|CASE}} 11: Moon$ = "November" + {{Cl|CASE}} 12: Moon$ = "December" {{Cl|END SELECT}} -{{Cl|PRINT}} "Today is " + WeekDay$(M, D, Y) + ", " + Moon$ + day$ + ", " + year$ + {{Cl|SPACE$}}(10) +{{Cl|PRINT}} "Today is " + WeekDay$(M, D, Y) + ", " + Moon$ + day$ + ", " + year$ + {{Cl|SPACE$}}(10) {{Cl|DEFINT}} A-Z {{Cl|FUNCTION}} WeekDay$ (M, D, Y) @@ -43,13 +43,13 @@ S3 = 26 * (M + 1) \ 10 'days in months WkDay = (S1 + S2 + S3 + D) {{Cl|MOD}} 7 'weekday total remainder {{Cl|IF}} WkDay < 0 {{Cl|THEN}} WkDay = WkDay + 7 'Adjust negative results to 0 to 6 {{Cl|SELECT CASE}} WkDay - {{Cl|CASE}} 0: day$ = "Sunday" - {{Cl|CASE}} 1: day$ = "Monday" - {{Cl|CASE}} 2: day$ = "Tuesday" - {{Cl|CASE}} 3: day$ = "Wednesday" - {{Cl|CASE}} 4: day$ = "Thursday" - {{Cl|CASE}} 5: day$ = "Friday" - {{Cl|CASE}} 6: day$ = "Saturday" + {{Cl|CASE}} 0: day$ = "Sunday" + {{Cl|CASE}} 1: day$ = "Monday" + {{Cl|CASE}} 2: day$ = "Tuesday" + {{Cl|CASE}} 3: day$ = "Wednesday" + {{Cl|CASE}} 4: day$ = "Thursday" + {{Cl|CASE}} 5: day$ = "Friday" + {{Cl|CASE}} 6: day$ = "Saturday" {{Cl|END SELECT}} WeekDay$ = day$ {{Cl|END FUNCTION}} '' '' @@ -62,9 +62,9 @@ Today is Wednesday, June 2, 2010 {{PageSeeAlso}} -* [[DATE$ (statement)]], [[TIME$]], [[TIME$ (statement)]] +* [[TIME$]] * [[VAL]], [[STR$]], [[MID$]], [[LEFT$]], [[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DATE$_(statement).txt b/internal/help/DATE$_(statement).txt deleted file mode 100644 index 620b87373..000000000 --- a/internal/help/DATE$_(statement).txt +++ /dev/null @@ -1,49 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is not supported in QB64. Reading the current date is supported with the [[DATE$|DATE$ function]].''' - ----- - -The [[DATE$]] statement sets the current computer date to another [[STRING]] value. - - -{{PageSyntax}} -: [[DATE$]] = {{Parameter|stringExpression$}} - -* {{Parameter|stringExpression$}} can use slash or dash as separators: - -::::mm-dd-yyyy -::::mm/dd/yyyy - -* String expression or variable must contain the month, day and 4 digit year to be changed (10 valid characters). -* If value is not a valid formatted string, a "Type Mismatch" error results. The previous DATE$ value will be retained. -* The current date (as assigned when the operating system was initialized) can be saved to restore later with the [[DATE$]] function. -*The DATE$ function returns a 10-character string in the form ''mm-dd-yyyy''. ''mm'' is the month (01 to 12), ''dd'' is the day (01 to 31), and ''yyyy'' is the four digit year. -* '''Note: Some systems may not allow the DATE to be reset or require Administrator privileges.''' Try a batch file or [[SHELL]]. - - -{{PageExamples}} -''Example:'' Backdating computer to run old software. - -{{CodeStart}} - today$ = {{Cl|DATE$}} ' function saves current computer date value - PRINT today$ ' verify actual date - {{Cl|DATE$ (statement)|DATE$}} = "12-25-2000" ' literal statement changes date - PRINT {{Cl|DATE$}} ' verify new date setting - {{Cl|SHELL}} "CMD /C " + programfile$ 'run old program - K$ = {{Cl|INPUT$}}(1) ' press a key - DATE$ = today$ ' statement resets computer to original date later in program - PRINT {{Cl|DATE$}} ' verify present setting -{{CodeEnd}} - -{{OutputStart}} - 09-01-2009 - 12-25-2000 - 09-01-2009 -{{OutputEnd}} - - - -{{PageSeeAlso}} -[[DATE$]], [[TIME$]], [[TIME$ (statement)]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/DECLARE.txt b/internal/help/DECLARE.txt deleted file mode 100644 index e70c70900..000000000 --- a/internal/help/DECLARE.txt +++ /dev/null @@ -1,31 +0,0 @@ -'''This page is maintained for historic purposes. The usage of the DECLARE keyword explained below isn't required/implemented in QB64. QB64 ignores any occurrences of DECLARE SUB/FUNCTION when older code is compiled. For the modern usage of the DECLARE keyword (for external C procedures), see [[DECLARE LIBRARY]].''' - ----- - - -The '''DECLARE''' statement is used to tell Qbasic that a [[SUB]] or [[FUNCTION]] is to be used in the program with specific parameter types. - - -{{PageSyntax}} - -:: '''DECLARE''' {SUB|FUNCTION} ProcedureName ([''parameter'' [[AS]] type[, ...]]) - - -* '''QB64 ignores DECLARE SUB or FUNCTION statements, so define the parameter [[TYPE]]s in the SUB procedure!''' -* Parameters MUST be placed in parenthesis separated by commas when necessary. -* Empty parenthesis are required when no parameters are used. -* Declarations should be placed at the top of the main program code after {{KW|Metacommand}} and {{KW|DEFINT|DEF}} statements if used. -* Parameters can be defined in a DECLARE statement [[AS]] [[INTEGER]], [[SINGLE]], [[DOUBLE]], [[LONG]], [[STRING]] or [[ANY]]. -* The Qbasic IDE can automatically DECLARE a SUB or FUNCTION once the procedure is called and the module is Saved. -* If a procedure is never called, it will not be automatically be DECLAREd by the Qbasic IDE when the program is saved. - - - -''See also:'' - -* [[SUB]], [[FUNCTION]] -* [[CALL]], [[BYVAL]] -* [[DECLARE LIBRARY]] (QB64 ONLY) - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/DECLARE_(non-BASIC_statement).txt b/internal/help/DECLARE_(non-BASIC_statement).txt deleted file mode 100644 index fb697add5..000000000 --- a/internal/help/DECLARE_(non-BASIC_statement).txt +++ /dev/null @@ -1,28 +0,0 @@ -'''This page is maintained for historic purposes. The usage of the DECLARE keyword explained below isn't supported by QB64. QB64 ignores any occurrences of DECLARE SUB/FUNCTION when older code is compiled. For the modern usage of the DECLARE keyword, see [[DECLARE LIBRARY]].''' - ----- - - -Declares calling sequences for external procedures written in other languages. - - - -{{PageSyntax}} -: [[DECLARE]] {[[SUB]]|[[FUNCTION]]} name [ [[CDECL]] ] [ [[ALIAS]] "aliasname"] [([parameterlist, ...])] - - -* [[CDECL]] indicates that the procedure uses the C language argument order. -* [[ALIAS]] indicates the procedure name used in the object or library file. -* The syntax for the parameterlist is as follows: [{ [[BYVAL]] | [[SEG]] }] variable [AS type [,[{ [[BYVAL]] | [[SEG]] }] variable2 [ [[AS]] type]]... -* '''QB64 ignores DECLARE statements, so define the parameter [[TYPE]] values in the SUB!''' - - - -''See also:'' - -* [[CALL]], [[CALLS]], [[SETMEM]] -* [[DECLARE LIBRARY]] (QB64 Only) - - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/DECLARE_DYNAMIC_LIBRARY.txt b/internal/help/DECLARE_DYNAMIC_LIBRARY.txt index 8f524cd11..f58b715a9 100644 --- a/internal/help/DECLARE_DYNAMIC_LIBRARY.txt +++ b/internal/help/DECLARE_DYNAMIC_LIBRARY.txt @@ -2,7 +2,7 @@ {{PageSyntax}} -: DECLARE [DYNAMIC|CUSTOMTYPE|STATIC] LIBRARY [''"DLL_Library_file"'', "other_library..."] +: DECLARE [DYNAMIC|CUSTOMTYPE|STATIC] LIBRARY [''"DLL_Library_file"'', "other_library..."] : {SUB|FUNCTION} [''procedure_name'' ALIAS] ''library_procedure'' (BYVAL ''parameter(s)'',...) ::. ::. 'other Library sub-procedures for named ''DLL'' @@ -18,7 +18,7 @@ * ''Procedure_name'' is any procedure name you want to designate by using [[ALIAS]] with the ''Library_procedure'' name following. * ''Parameters'' used by the Library procedure must be passed by value ([[BYVAL]]) except for [[STRING]] values. * '''''.h'' header files cannot be used with DECLARE DYNAMIC LIBRARY. Existence of any ''.h'' file of the same name as the ''.DLL'' file will cause DECLARE DYNAMIC LIBRARY to fail.''' -* '''IMPORTANT:''' [[DECLARE DYNAMIC LIBRARY]] let's you specify any SUB/FUNCTION calling format you wish, but '''if the size of the parameters does not match, the size expected within the library your code will probably cause a GPF (General Protection Fault).''' It is important to understand that you are creating a 32-bit program (even under 64-bit Windows) so '''pointers (if required) will be 32-bits in size, the equivalent of a [[LONG]].''' +* '''IMPORTANT:''' [[DECLARE DYNAMIC LIBRARY]] let's you specify any SUB/FUNCTION calling with the format you wish, but '''if the size of the parameter list does not match the size expected within the library, then your code will probably cause a GPF (General Protection Fault). * '''STATIC''' is the same as [[DECLARE LIBRARY]] except that it prioritizes linking to static libraries (*.a/*.o) over shared object (*.so) libraries, if both exist. As Windows doesn't really use shared libraries (DLLs are a bit different) this does not affect Windows users. * The [[_OFFSET]] in memory can be used in '''CUSTOMTYPE''', '''STATIC''' and '''DYNAMIC LIBRARY''' declarations. * [[SUB]] procedures using DECLARE CUSTOMTYPE LIBRARY API procedures '''may error'''. Try DYNAMIC with the DLL name. @@ -26,19 +26,18 @@ * '''NOTE: It is up to the user to document and determine the suitability of all Libraries and procedures they choose to use. QB64 cannot guarantee that any procedure will work and cannot quarantee any troubleshooting help.''' -==Availability== -* '''Version 0.923 and up (Windows)''' -* '''Version 0.94 and up (Linux and macOS)''' - +{{PageAvailability}} +* Version 0.923 and up (Windows). +* Version 0.94 and up (Linux and macOS). {{PageExamples}} -''Example 1:'' This example plays Midi files using the ''playmidi32.dll'' documented here: [http://libertybasicuniversity.com/lbnews/nl110/midi3.htm Liberty Basic University].                         Download the following DLL file to your main QB64 folder: [http://www.qb64.net/playmidi32.dll PlayMidi32.dll] +''Example 1:'' This example plays Midi files using the ''playmidi32.dll'' documented here: [http://libertybasicuniversity.com/lbnews/nl110/midi3.htm Liberty Basic University]. Download the following DLL file to your main QB64 folder: [https://www.qb64.org/resources/Playmidi32.dll PlayMidi32.dll] {{CodeStart}} '' '' -{{Cl|DECLARE DYNAMIC LIBRARY}} "playmidi32" +{{Cl|DECLARE DYNAMIC LIBRARY}} "playmidi32" {{Cl|FUNCTION}} PlayMIDI& (filename {{Cl|AS}} {{Cl|STRING}}) {{Cl|DECLARE LIBRARY|END DECLARE}} -result = PlayMIDI(".\samples\qb64\original\ps2battl.mid" + {{Cl|CHR$}}(0)) +result = PlayMIDI(".\samples\qb64\original\ps2battl.mid" + {{Cl|CHR$}}(0)) {{Cl|PRINT}} result {{CodeEnd}} : '''Note:''' Filename needs to be [[CHR$]](0) terminated. QB64 [[STRING]]s are passed to external libraries as pointers to first character. @@ -57,14 +56,14 @@ result = PlayMIDI(".\samples\qb64\original\ps2battl.mid" + {{Cl|CHR$}} FileName$ = {{Cl|SPACE$}}(512) Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) -{{Cl|IF...THEN|IF}} Result {{Cl|THEN}} {{Cl|PRINT}} "CURRENT PROGRAM (ASCII): "; {{Cl|LEFT$}}(FileName$, Result) +{{Cl|IF...THEN|IF}} Result {{Cl|THEN}} {{Cl|PRINT}} "CURRENT PROGRAM (ASCII): "; {{Cl|LEFT$}}(FileName$, Result) 'load a unicode font -f = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") +f = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") {{Cl|_FONT}} f Result = GetModuleFileNameW(0, FileName$, {{Cl|LEN}}(FileName$) \ 2) {{Cl|LOCATE}} 2, 1 -{{Cl|PRINT}} QuickCP437toUTF32$("CURRENT PROGRAM (UTF): ") + QuickUTF16toUTF32$({{Cl|LEFT$}}(FileName$, Result * 2)) +{{Cl|PRINT}} QuickCP437toUTF32$("CURRENT PROGRAM (UTF): ") + QuickUTF16toUTF32$({{Cl|LEFT$}}(FileName$, Result * 2)) {{Cl|_FONT}} 16 'restore CP437 font {{Cl|FUNCTION}} QuickCP437toUTF32$ (a$) @@ -85,11 +84,11 @@ QuickUTF16toUTF32$ = b$ {{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{small|Code by Galleon}} -: '''Note:''' SUB procedures using CUSTOMTYPE LIBRARY API procedures inside may error. Try DYNAMIC with "KERNEL32". +: '''Note:''' SUB procedures using CUSTOMTYPE LIBRARY API procedures inside may error. Try DYNAMIC with "KERNEL32". -<center>'''QB64 version 1.000 and up produce standalone executables. External DLL files must be distributed with your program.'''</center> -<center>'''Note: QB64 versions prior to 1.000 require all default DLL files to either be with the program or in the C:\WINDOWS\SYSTEM32 folder.'''</center> +<center>'''QB64 version 1.000 and up produce standalone executables. External DLL files must be distributed with your program.'''</center> +<center>'''Note: QB64 versions prior to 1.000 require all default DLL files to either be with the program or in the C:\WINDOWS\SYSTEM32 folder.'''</center> ''See also:'' @@ -97,8 +96,8 @@ QuickUTF16toUTF32$ = b$ * [[SUB]], [[FUNCTION]] * [[BYVAL]], [[ALIAS]] * [[_OFFSET (function)]], [[_OFFSET]] {{text|(variable type)}} -* [[C Libraries]], [[SDL Libraries]], [[DLL Libraries]], [[Windows Libraries]] +* [[C Libraries]], [[DLL Libraries]], [[Windows Libraries]] * [[Port Access Libraries]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DECLARE_LIBRARY.txt b/internal/help/DECLARE_LIBRARY.txt index 3026cc6d4..0ebb3a1d0 100644 --- a/internal/help/DECLARE_LIBRARY.txt +++ b/internal/help/DECLARE_LIBRARY.txt @@ -2,7 +2,7 @@ The '''DECLARE LIBRARY''' declaration allows the use of external library [[SUB]] {{PageSyntax}} -: '''DECLARE''' [DYNAMIC|CUSTOMTYPE|STATIC] '''LIBRARY''' [{''"Library_filename"''|''"Headerfile"''}] +: '''DECLARE''' [DYNAMIC|CUSTOMTYPE|STATIC] '''LIBRARY''' [{''"Library_filename"''|''"Headerfile"''}] : {[[SUB]]|[[FUNCTION]]} [''procedure_name'' {{KW|ALIAS}}] ''library_procedure'' ([{{KW|BYVAL}}] ''parameter {{KW|AS}}'', ...) ::. ::. 'other SUBs or Functions as required @@ -10,7 +10,7 @@ The '''DECLARE LIBRARY''' declaration allows the use of external library [[SUB]] : '''END DECLARE''' -{{Parameters}} +{{PageParameters}} * The {{Parameter|Library_filename}} is needed if a Library is not already loaded by QB64. Do not include the ''.DLL'', ''LIB'' or ''.H'' file extension. ** It's always a good idea to try declaring Windows API libraries without a {{Parameter|Library_filename}} first, as most Windows headers are already included in QB64 source. * Begin the {{Parameter|Library_filename}} with '''./''' or '''.\''' to make it relative to the path where your source file is saved, so you can keep all your project files together. @@ -33,92 +33,22 @@ The '''DECLARE LIBRARY''' declaration allows the use of external library [[SUB]] * The [[_OFFSET]] in memory can be used in '''CUSTOMTYPE''', '''STATIC''' and '''DYNAMIC LIBRARY''' declarations. * Declarations can be made inside of [[SUB]] or [[FUNCTION]] procedures. Declarations do not need to be at program start. -* '''NOTE: It is up to the user to document and determine the suitability of all Libraries and procedures they choose to use! QB64 cannot guarantee that any procedure will work and cannot quarantee any troubleshooting help.''' +* '''NOTE: It is up to the user to document and determine the suitability of all Libraries and procedures they choose to use! QB64 cannot guarantee that any procedure will work and cannot guarantee any troubleshooting help.''' {{PageExamples}} -''Example 1:'' Using an '''SDL''' library procedure as a program SUB procedure to move the mouse pointer to a coordinate (works in versions prior to 1.000): +''Example:'' Don't know if a C function is defined by C++ or QB64? Try using empty quotes. {{CodeStart}} '' '' -{{Cl|DECLARE LIBRARY}} - {{Cl|SUB}} SDL_WarpMouse ({{Cl|BYVAL}} column {{Cl|AS}} {{Cl|LONG}}, {{Cl|BYVAL}} row {{Cl|AS}} {{Cl|LONG}}) 'SDL procedure name -{{Cl|DECLARE LIBRARY|END DECLARE}} -{{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 256) 'simulate screen 12 with 256 colors -{{Cl|RANDOMIZE}} {{Cl|TIMER}} - -DO - {{Cl|_DELAY}} 1 - x = {{Cl|RND}} * 640: y = {{Cl|RND}} * 480 - {{Cl|LINE}} (x, y)-{{Cl|STEP}}(10, 10), {{Cl|RND}} * 100 + 32, BF - MouseMove x + 5, y + 5 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|LEN}}({{Cl|INKEY$}}) 'any keypress quits -{{Cl|END}} - -{{Cl|SUB}} MouseMove (x {{Cl|AS}} {{Cl|LONG}}, y {{Cl|AS}} {{Cl|LONG}}) -SDL_WarpMouse x, y 'call SDL library procedure -{{Cl|END SUB}} '' '' -{{CodeEnd}} -{{small|Code by Galleon}} -:''Explanation:'' The SDL Library is included and loaded with QB64 versions prior to 1.000, so these procedures are directly available for use. - -<center>'''Using [[ALIAS]] to create a program SUB or FUNCTION''' using '''QB64 SDL ONLY'''</center> -{{CodeStart}} '' '' -{{Cl|SCREEN}} 12 -{{Cl|DECLARE LIBRARY}} - {{Cl|SUB}} MouseMove {{Cl|ALIAS}} SDL_WarpMouse ({{Cl|BYVAL}} column&, {{Cl|BYVAL}} row&) -{{Cl|DECLARE LIBRARY|END DECLARE}} - -{{Cl|_DELAY}} 2 -MouseMove 100, 100 -{{Cl|_DELAY}} 2 -MouseMove 200, 200 '' '' -{{CodeEnd}} -:''Explanation:'' When a Library procedure is used to represent another procedure name use [[ALIAS]] instead. Saves creating a SUB! - - -''Example 2:'' Don't know if a C function is defined by C++ or QB64? Try using empty quotes. -{{CodeStart}} '' '' -{{Cl|DECLARE LIBRARY}} "" +{{Cl|DECLARE LIBRARY}} "" {{Cl|FUNCTION}} addone& ({{Cl|BYVAL}} value&) -{{Cl|END}} DECLARE '' '' +{{Cl|END DECLARE}} '' '' {{CodeEnd}} -:''Explanation:'' The C function 'addone' exists in a library QB64 already links to, but it hasn't been defined as a C function or a QB64 function. By using "" we are telling QB64 the function exists in a library which is already linked to and that it must define the C function before calling it, as well as allowing QB64 code to call it. Trying the above code without the "" will fail. +:''Explanation:'' The C function 'addone' exists in a library QB64 already links to, but it hasn't been defined as a C function or a QB64 function. By using "" we are telling QB64 the function exists in a library which is already linked to and that it must define the C function before calling it, as well as allowing QB64 code to call it. Trying the above code without the "" will fail. -: '''Note: What libraries are or aren't automatically used in the linking process is not formally defined, nor is it guaranteed to stay that way in future versions of QB64.''' +: '''Note: Which libraries are or aren't automatically used in the linking process is not formally defined, nor is it guaranteed to stay that way in future versions of QB64.''' -''Example 3:'' For this next example, download the file 'add.lib' and place it in you QB64 folder: http://www.qb64.net/add.lib -{{CodeStart}} '' '' -{{Cl|DECLARE LIBRARY}} "add" - {{Cl|FUNCTION}} addtwo& ({{Cl|BYVAL}} value&) -{{Cl|END}} DECLARE -PRINT addtwo(1) '' '' -{{CodeEnd}} -:''Explanation:'' Here, we tell QB64 to link to '''add.lib''' (QB64 searches for '''add.lib''', '''add.a''', and '''add.o''' in that order and uses the first that it finds). The function '''addtwo''' exists inside the library file '''add.lib''' but isn't defined anywhere else. QB64 creates the C definition for the function '''addtwo''' so that it can be called from our QB64 code. - -: '''Note: If the C function definition auto-created by QB64 does not exactly match the definition in the library file, it will not work. As a result of this it is often better to provide the C function definitions in the form of a C header file, such as in the following example.''' - - -''Example 4:'' NTport is a commercial library hosted at http://www.zealsoftstudio.com/ntport/, but it does provide an evaluation version (it has a 3 second wait pop-up window) which we will use here. You don't need to download NTport, just download the following 3 files and put them in your QB64 folder: -<center>[http://www.qb64.net/ntport/ntport.lib NTport.lib]            [http://www.qb64.net/ntport/ntport.h NTport.h]               [http://www.qb64.net/ntport/ntport.dll Ntport.dll]</center> -:'''IMPORTANT:''' The DLL is loaded automatically by the static library, we are not linking directly to the DLL, we are '''static linking''' (NOT directly or dynamically linking). This is an important concept to understand! -{{CodeStart}} -DECLARE LIBRARY "ntport" - FUNCTION GetLPTPortAddress% (BYVAL PortNo%) -END DECLARE -PRINT "&H" + HEX$(GetLPTPortAddress%(1)) -{{CodeEnd}} -:''Explanation:'' DECLARE LIBRARY also searches for C header files with a '''.h''' extension. So in this case it is using the header '''ntport.h''' and linking with '''ntport.lib''' just by specifying "NTPORT". The C function definitions are stored in '''ntport.h''' so even if our QB64 functions don't exactly match (eg. LONG instead of INTEGER) it will still work. - -:If you look inside ''''ntport.h'''' you'll find the following line containing the C function definition of the command we used: -{{TextStart}} WORD WINAPI GetLPTPortAddress(WORD PortNo); -{{TextEnd}} - - -<center>Galleon's '''OpenGL''' Library with demo program download: http://www.qb64.net/gl_package.zip</center> - - -<center>'''QB64 version 1.000 and up produce standalone executables. External DLL files must be distributed with your program.'''</center> -<center>'''Note: QB64 versions prior to 1.000 require all default DLL files to either be with the program or in the C:\WINDOWS\SYSTEM32 folder.'''</center> +<center>'''QB64 version 1.000 and up produce standalone executables. External DLL files must be distributed with your program.'''</center> ''See also:'' @@ -127,10 +57,7 @@ PRINT "&H" + HEX$(GetLPTPortAddress%(1)) * [[BYVAL]], [[ALIAS]] * [[C Libraries]], [[DLL Libraries]], [[Windows Libraries]] * [[Port Access Libraries]] -* [[OpenGL Libraries]], [[SDL Libraries]] -* [[SFML Libraries]] * [[SQL Client]] -* [http://www.qb64.net/forum/index.php?topic=11810.msg102081#msg102081 DECLARE LIBRARY and C++ Variable Types] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DEFDBL.txt b/internal/help/DEFDBL.txt index 118e870a8..e96f5d05c 100644 --- a/internal/help/DEFDBL.txt +++ b/internal/help/DEFDBL.txt @@ -1,7 +1,7 @@ The [[DEFDBL]] statement defines all variables with names starting with the specified letter (or letter range) AS [[DOUBLE]] variables instead of the [[SINGLE]] type default. -==Legacy support== +{{PageLegacySupport}} * '''DEF''' statements ([[DEFDBL]], [[DEFSNG]], [[DEFLNG]], [[DEFINT]], [[DEFSTR]]) were used when storage space was a concern in older computers, as their usage could save up typing. Instead of {{InlineCode}}'''DIM a AS DOUBLE, a2 AS DOUBLE, a3 AS DOUBLE'''{{InlineCodeEnd}}, simply having {{InlineCode}}'''DEFDBL A'''{{InlineCodeEnd}} in the code before using variables starting with letter '''A''' would do the same job. * '''For clarity, it is recommended to declare variables with meaningful names'''. @@ -14,12 +14,12 @@ The [[DEFDBL]] statement defines all variables with names starting with the spec * {{Parameter|letter}} (or {{Parameter|range}}) can be from A-Z or any other range, like '''G-M'''. * You can also use commas for specific undefined variable first letters. * Variables [[DIM]]ensioned as another variable type or that use type suffixes are not affected by [[DEFDBL]]. -* [[DEFDBL]] sets the [[type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). +* [[DEFDBL]] sets the [[Variable Types|type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). * '''Warning: QBasic keyword names cannot be used as numerical variable names with or without the type suffix.''' -==QBasic/QuickBASIC== -* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. +{{PageQBasic}} +* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. {{PageExamples}} @@ -37,4 +37,4 @@ The [[DEFDBL]] statement defines all variables with names starting with the spec * [[_DEFINE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DEFINT.txt b/internal/help/DEFINT.txt index 4540d1e21..4fe9262a9 100644 --- a/internal/help/DEFINT.txt +++ b/internal/help/DEFINT.txt @@ -1,7 +1,7 @@ The [[DEFINT]] statement defines all variables with names starting with the specified letter (or letter range) AS [[INTEGER]] variables instead of the [[SINGLE]] type default. -==Legacy support== +{{PageLegacySupport}} * '''DEF''' statements ([[DEFDBL]], [[DEFSNG]], [[DEFLNG]], [[DEFINT]], [[DEFSTR]]) were used when storage space was a concern in older computers, as their usage could save up typing. Instead of {{InlineCode}}'''DIM a AS INTEGER, a2 AS INTEGER, a3 AS INTEGER'''{{InlineCodeEnd}}, simply having {{InlineCode}}'''DEFINT A'''{{InlineCodeEnd}} in the code before using variables starting with letter '''A''' would do the same job. * '''For clarity, it is recommended to declare variables with meaningful names'''. @@ -14,13 +14,13 @@ The [[DEFINT]] statement defines all variables with names starting with the spec * {{Parameter|letter}} (or {{Parameter|range}}) can be from A-Z or any other range, like '''G-M'''. * You can also use commas for specific undefined variable first letters. * Variables [[DIM]]ensioned as another variable type or that use type suffixes are not affected by [[DEFINT]]. -* [[DEFINT]] sets the [[type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). +* [[DEFINT]] sets the [[Variable Types|type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). * For [[_UNSIGNED]] [[INTEGER]], use [[_DEFINE]] * '''Warning: QBasic keyword names cannot be used as numerical variable names with or without the type suffix.''' -==QBasic/QuickBASIC== -* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. +{{PageQBasic}} +* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. {{PageExamples}} @@ -38,4 +38,4 @@ The [[DEFINT]] statement defines all variables with names starting with the spec * [[_DEFINE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DEFLNG.txt b/internal/help/DEFLNG.txt index b5b2f814e..803ae5e29 100644 --- a/internal/help/DEFLNG.txt +++ b/internal/help/DEFLNG.txt @@ -1,7 +1,7 @@ The [[DEFLNG]] statement defines all variables with names starting with the specified letter (or letter range) AS [[LONG]] variables instead of the [[SINGLE]] type default. -==Legacy support== +{{PageLegacySupport}} * '''DEF''' statements ([[DEFDBL]], [[DEFSNG]], [[DEFLNG]], [[DEFINT]], [[DEFSTR]]) were used when storage space was a concern in older computers, as their usage could save up typing. Instead of {{InlineCode}}'''DIM a AS LONG, a2 AS LONG, a3 AS LONG'''{{InlineCodeEnd}}, simply having {{InlineCode}}'''DEFLNG A'''{{InlineCodeEnd}} in the code before using variables starting with letter '''A''' would do the same job. * '''For clarity, it is recommended to declare variables with meaningful names'''. @@ -14,13 +14,13 @@ The [[DEFLNG]] statement defines all variables with names starting with the spec * {{Parameter|letter}} (or {{Parameter|range}}) can be from A-Z or any other range, like '''G-M'''. * You can also use commas for specific undefined variable first letters. * Variables [[DIM]]ensioned as another variable type or that use type suffixes are not affected by [[DEFLNG]]. -* [[DEFLNG]] sets the [[type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). +* [[DEFLNG]] sets the [[Variable Types|type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). * For [[_UNSIGNED]] [[LONG]], use [[_DEFINE]] * '''Warning: QBasic keyword names cannot be used as numerical variable names with or without the type suffix.''' -==QBasic/QuickBASIC== -* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. +{{PageQBasic}} +* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. {{PageExamples}} @@ -38,4 +38,4 @@ The [[DEFLNG]] statement defines all variables with names starting with the spec * [[_DEFINE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DEFSNG.txt b/internal/help/DEFSNG.txt index 555f55be0..aef84bfc5 100644 --- a/internal/help/DEFSNG.txt +++ b/internal/help/DEFSNG.txt @@ -1,7 +1,7 @@ The [[DEFSNG]] statement defines all variables with names starting with the specified letter (or letter range) AS [[SINGLE]] variables. -==Legacy support== +{{PageLegacySupport}} * '''DEF''' statements ([[DEFDBL]], [[DEFSNG]], [[DEFLNG]], [[DEFINT]], [[DEFSTR]]) were used when storage space was a concern in older computers, as their usage could save up typing. Instead of {{InlineCode}}'''DIM a AS SINGLE, a2 AS SINGLE, a3 AS SINGLE'''{{InlineCodeEnd}}, simply having {{InlineCode}}'''DEFSNG A'''{{InlineCodeEnd}} in the code before using variables starting with letter '''A''' would do the same job. * '''For clarity, it is recommended to declare variables with meaningful names'''. @@ -15,12 +15,12 @@ The [[DEFSNG]] statement defines all variables with names starting with the spec * {{Parameter|letter}} (or {{Parameter|range}}) can be from A-Z or any other range, like '''G-M'''. * You can also use commas for specific undefined variable first letters. * Variables [[DIM]]ensioned as another variable type or that use type suffixes are not affected by [[DEFSNG]]. -* [[DEFSNG]] sets the [[type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). +* [[DEFSNG]] sets the [[Variable Types|type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). * '''Warning: QBasic keyword names cannot be used as numerical variable names with or without the type suffix.''' -==QBasic/QuickBASIC== -* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. +{{PageQBasic}} +* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. {{PageExamples}} @@ -38,4 +38,4 @@ The [[DEFSNG]] statement defines all variables with names starting with the spec * [[_DEFINE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DEFSTR.txt b/internal/help/DEFSTR.txt index d0c1f94b6..fb01898a8 100644 --- a/internal/help/DEFSTR.txt +++ b/internal/help/DEFSTR.txt @@ -1,7 +1,7 @@ The [[DEFSTR]] statement defines all variables with names starting with the specified letter (or letter range) AS [[STRING]] variables instead of the [[SINGLE]] type default. -==Legacy support== +{{PageLegacySupport}} * '''DEF''' statements ([[DEFDBL]], [[DEFSNG]], [[DEFLNG]], [[DEFINT]], [[DEFSTR]]) were used when storage space was a concern in older computers, as their usage could save up typing. Instead of {{InlineCode}}'''DIM a AS STRING, a2 AS STRING, a3 AS STRING'''{{InlineCodeEnd}}, simply having {{InlineCode}}'''DEFSTR A'''{{InlineCodeEnd}} in the code before using variables starting with letter '''A''' would do the same job. * '''For clarity, it is recommended to declare variables with meaningful names'''. @@ -14,12 +14,12 @@ The [[DEFSTR]] statement defines all variables with names starting with the spec * {{Parameter|letter}} (or {{Parameter|range}}) can be from A-Z or any other range, like '''G-M'''. * You can also use commas for specific undefined variable first letters. * Variables [[DIM]]ensioned as another variable type or that use type suffixes are not affected by [[DEFSTR]]. -* [[DEFSTR]] sets the [[type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). +* [[DEFSTR]] sets the [[Variable Types|type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). * '''Warning: QBasic keyword names can only be used as string variable names when they are followed by the string type suffix ($).''' -==QBasic/QuickBASIC== -* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. +{{PageQBasic}} +* QBasic's IDE would add DEF statements before any [[SUB]] or [[FUNCTION]]. QB64 (like QBasic) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. May also affect [[$INCLUDE]] procedures. {{PageExamples}} @@ -37,4 +37,4 @@ The [[DEFSTR]] statement defines all variables with names starting with the spec * [[_DEFINE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DEF_FN.txt b/internal/help/DEF_FN.txt deleted file mode 100644 index c99efa378..000000000 --- a/internal/help/DEF_FN.txt +++ /dev/null @@ -1,84 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is not supported in QB64. Create functions using [[FUNCTION]]. If older code contains ''DEF FN'' functions, they must be adapted to be compiled with QB64.''' - - ----- - - -The '''DEF FN''' statement defines a non-recursive function in the main module that can use the module's variable values. - - -{{PageSyntax}} -:[[DEF FN]]{{Parameter|name}} [({{Parameter|parameterList}})] = {{Parameter|expression}} -::or, -:[[DEF FN]]{{Parameter|name}} [({{Parameter|parameterList}})] -::[{{Parameter|statements}}] -::[[DEF FN|FN]]{{Parameter|name}} = {{Parameter|expression}} -::[{{Parameter|statements}}] -:'''END DEF''' - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* {{Parameter|name}} is the name of the function. -* {{Parameter|parameterList}} is a comma-separated list of one or more parameters, similar to [[SUB]] and [[FUNCTION]] statements. -* {{Parameter|expression}} is any numerical or string value to return from the function. -* Function can be created anywhere in a module. Not in [[SUB]] procedures. -* Function must be defined only once and the definition cannot be in recursive (repeated) parts of a program. -* Function returns should be assigned to a variable when an alteration to the return value is necessary. -* Function references should only be made after the declaration. -* Multi-line function definitions must end with '''END DEF'''. -* To leave a DEF Fn function early use '''EXIT DEF'''. -* This type of function can share values in module level code. To keep values local to the procedure use [[STATIC]]. -* Parameters cannot be from arrays, records or fixed length strings. -* ''Fn'' must prefix the function name inside of the procedure and in a call. - - -==QBasic/QuickBASIC== -* Other variable names or procedures cannot begin with FN or fn in QBasic. -* QBasic Help recommends creating real [[FUNCTION]]s over DEF FN functions because of the above limitations. - - -{{PageExamples}} -:Function to get the base 10 logarithm of a number value. -{{CodeStart}}{{Cl|DEF FN}}Log10#(x) = {{Cl|LOG}}(x) / {{Cl|LOG}}(10.#) - -{{Cl|PRINT}} FNLog10#(10) -{{Cl|PRINT}} FNLog10#(100) -{{Cl|PRINT}} FNLog10#(1000) -{{CodeEnd}} -{{OutputStart}} 1 - 2 - 3 -{{OutputEnd}} - - -:Demonstrates the multi-line syntax by drawing a circle: -{{CodeStart}}{{Cl|CONST}} PI# = 3.141592653589793# - -{{Cl|DEF FN}}DegreesToRadians# (degrees#) - radians# = degrees# * (PI# / 180#) - FNDegreesToRadians# = radians# -{{Cl|DEF FN|END DEF}} - -{{Cl|SCREEN}} 13 -{{Cl|WINDOW}} (-1, -1)-(1, 1) -{{Cl|CLS}} - -{{Cl|FOR}} degree% = 0 TO 360 - x# = {{Cl|COS}}(FNDegreesToRadians#(degree%)) - y# = {{Cl|SIN}}(FNDegreesToRadians#(degree%)) - {{Cl|PSET}} (x#, y#) -{{Cl|NEXT}} degree% - -{{CodeEnd}} - - -{{PageSeeAlso}} -* [[FUNCTION]], [[SUB]] -* [[DEFSTR]], [[DEFINT]] -* [[DEFSNG]], [[DEFLNG]] -* [[DEFDBL]] -* [[_DEFINE]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/DEF_SEG.txt b/internal/help/DEF_SEG.txt index e0e3c4553..7717f2caf 100644 --- a/internal/help/DEF_SEG.txt +++ b/internal/help/DEF_SEG.txt @@ -1,7 +1,7 @@ [[DEF SEG]] is used to define the area in memory to access QB64's emulated conventional memory. -==Legacy support== +{{PageLegacySupport}} * '''QB64 implements memory access using [[_MEM]] and related functions. For that reason, [[DEF SEG]] isn't recommended practice anymore and is supported to maintain compatibility with legacy code.''' @@ -19,9 +19,9 @@ <!-- {{PageExamples}} -''Example:'' In a Qbasic(ONLY) file delete, '''SEG''' forces the parameter to be passed as a far pointer. +''Example:'' In a QBasic(ONLY) file delete, '''SEG''' forces the parameter to be passed as a far pointer. {{CodeStart}} '' '' -{{Cl|CONST}} file = "trashme.tmp" 'example temporary file name to delete +{{Cl|CONST}} file = "trashme.tmp" 'example temporary file name to delete {{Cl|DEFINT}} A-Z {{Cl|DIM}} filename {{Cl|AS}} {{Cl|STRING}} {{Cl|DIM}} result {{Cl|AS}} {{Cl|LONG}} @@ -32,19 +32,19 @@ {{Cl|CLS}} -t = "5589E51E8B560C8EDA8B5E0A8B5702B441CD218B56088EDA8B5E06720B6631C0" -t = t + "6689071F5DCA0800660D0000FFFFEBF0" +t = "5589E51E8B560C8EDA8B5E0A8B5702B441CD218B56088EDA8B5E06720B6631C0" +t = t + "6689071F5DCA0800660D0000FFFFEBF0" {{Cl|FOR...NEXT|FOR}} i = 0 {{Cl|TO}} codelen - 1 -{{Cl|MID$}}(code, i + 1, 1) = {{Cl|CHR$}}({{Cl|VAL}}("&h" + {{Cl|MID$}}(t, i + i + 1, 2))) +{{Cl|MID$}}(code, i + 1, 1) = {{Cl|CHR$}}({{Cl|VAL}}("&h" + {{Cl|MID$}}(t, i + i + 1, 2))) {{Cl|NEXT}} {{Cl|OPEN}} file {{Cl|FOR...NEXT|FOR}} {{Cl|APPEND}} {{Cl|AS}} 1 'create temporary file -{{Cl|PRINT (file statement)|PRINT}} #1, "I am doomed! :-(" +{{Cl|PRINT (file statement)|PRINT}} #1, "I am doomed! :-(" {{Cl|CLOSE}} -{{Cl|PRINT}} "now you see it:" -{{Cl|SHELL}} "dir " + file +{{Cl|PRINT}} "now you see it:" +{{Cl|SHELL}} "dir " + file K$ = {{Cl|INPUT$}}(1) filename = file + {{Cl|CHR$}}(0) 'create zero string name for DOS @@ -52,15 +52,15 @@ filename = file + {{Cl|CHR$}}(0) 'create zero string name for DOS {{Cl|CALL}} absolute('''SEG''' filename, '''SEG''' result, {{Cl|VARPTR}}(code)) {{Cl|IF...THEN|IF}} result {{Cl|THEN}} 'check results -{{Cl|PRINT}} "oops. error: 0x"; {{Cl|HEX$}}(result {{Cl|AND (boolean)|AND}} {{Cl|&H}}FFFF&) +{{Cl|PRINT}} "oops. error: 0x"; {{Cl|HEX$}}(result {{Cl|AND (boolean)|AND}} {{Cl|&H}}FFFF&) {{Cl|ELSE}} -{{Cl|PRINT}} "now you don't:" +{{Cl|PRINT}} "now you don't:" {{Cl|END IF}} -{{Cl|SHELL}} "dir " + file +{{Cl|SHELL}} "dir " + file {{Cl|END}} '' '' {{CodeEnd}} {{small|Code by Michael Calkins as Public Domain(2011)}} ---> +--> ''See also:'' * [[DEF SEG = 0]] @@ -69,4 +69,4 @@ filename = file + {{Cl|CHR$}}(0) 'create zero string name for DOS * [[BSAVE]], [[BLOAD]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DIM.txt b/internal/help/DIM.txt index 7e1072d5b..4f0eabfe3 100644 --- a/internal/help/DIM.txt +++ b/internal/help/DIM.txt @@ -2,11 +2,15 @@ The [[DIM]] statement is used to declare a variable or a list of variables as a {{PageSyntax}} -::''Syntax 1:'' [[DIM]] [{{KW|SHARED}}] ''variable''[{suffix| {{KW|AS}} ''type''}] [, ''variable2''...]] +::''To declare variables:'' +:::[[DIM]] [{{KW|SHARED}}] ''variable''[{suffix| {{KW|AS}} [{{KW|_UNSIGNED}}] ''type''}] [, ''variable2''...]] -::''Syntax 2:'' [[DIM]] [{{KW|SHARED}}] ''array(lowest% [{{KW|TO}}) highest%])''[{suffix| {{KW|AS}} ''type''}] [, ''variable2''...] +::''To declare arrays:'' +:::[[DIM]] [{{KW|SHARED}}] ''array([lowest% {{KW|TO}}] highest%])''[{suffix| {{KW|AS}} [{{KW|_UNSIGNED}}] ''type''}] [, ''variable2''...] -:'' '''QB64''' Syntax:'' [[DIM]] [{{KW|SHARED}}] ''variable''[{suffix| {{KW|AS}} [{{KW|_UNSIGNED}}] ''type''}] [, ''variable2''...] +::'' '''QB64''' Alternative Syntax:'' +:::[[DIM]] [{{KW|SHARED}}] {{KW|AS}} [{{KW|_UNSIGNED}}] ''type'' ''variable'' [, ''variable2''...] +:::[[DIM]] [{{KW|SHARED}}] {{KW|AS}} [{{KW|_UNSIGNED}}] ''type'' ''array([lowest% {{KW|TO}}] highest%])'' [, ''array2(elements)''...] {{PageDescription}} @@ -26,7 +30,8 @@ The [[DIM]] statement is used to declare a variable or a list of variables as a ** [[_FLOAT]] (or use variable suffix '''##''') ** [[_OFFSET]] (or use variable suffix '''%&''') ** DIM AS [[_MEM]] (the _MEM type has no type suffix). -* '''Note: When a variable has not been defined or has no type suffix, the value defaults to [[SINGLE]].''' +* '''Note: When a variable has not been defined or has no type suffix, the type defaults to [[SINGLE]].''' +* When using the '''AS type variable-list''' syntax, type symbols cannot be used. * When the [[$DYNAMIC]] metacommand or [[REDIM]] is used, array element sizes are changeable (not [[$STATIC]]). * Use [[REDIM]] instead of DIM to dimension arrays as dynamic without the {{KW|$DYNAMIC}} metacommand. * Use [[REDIM]] [[_PRESERVE]] in '''QB64''' to retain previous array values when changing the size of an array. @@ -34,7 +39,7 @@ The [[DIM]] statement is used to declare a variable or a list of variables as a * [[$DYNAMIC|Dynamic]] arrays MUST be [[REDIM]]ensioned if [[ERASE]] or [[CLEAR]] are used, as the arrays are completely removed. * All numerical variable types '''except''' {{KW|SINGLE}}, {{KW|DOUBLE}} and {{KW|_FLOAT}} can be dimensioned as [[_UNSIGNED]] (suffix ~) or positive only. * '''NOTE:''' Many QBasic keyword variable names can be used with a [[STRING]] suffix ($). You cannot use them without the suffix, use a numerical suffix or use ''DIM, [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]]'' statements. '''Although possible, it's recommended to avoid using reserved names.''' -* '''Warning: Do not use negative array upper bound index values, or OS access or "Out of Memory" [[ERROR Codes|errors]] will occur.''' +* '''Warning: Do not use negative array upper bound index values, or OS access or "Out of Memory" [[ERROR Codes|errors]] will occur.''' {{PageExamples}} @@ -64,7 +69,7 @@ The [[DIM]] statement is used to declare a variable or a list of variables as a {{CodeEnd}} -''Example 6:'' QB64 is more flexible than QBasic when it comes to "Duplicate Definition" errors. The following code does not error: +''Example 6:'' QB64 is more flexible than QBasic when it comes to "Duplicate Definition" errors. The following code does not error: {{CodeStart}} '' '' x = 1 'x is a {{Cl|SINGLE}} variable {{Cl|PRINT}} x @@ -74,7 +79,7 @@ x = 1 'x is a {{Cl|SINGLE}} variable : ''Explanation:'' The [[SINGLE]] variable can be differentiated from the [[LONG]] x variable by using suffixes like x! or x& in later code. -''Example 7:'' The following code will create a "Name already in use" '''[[IDE|status error]]''' in QB64 when the variable types are the same. +''Example 7:'' The following code will create a "Name already in use" '''status error''' in QB64 when the variable types are the same. {{CodeStart}} '' '' x = 1 'x is a {{Cl|SINGLE}} variable {{Cl|PRINT}} x @@ -84,6 +89,13 @@ x = 1 'x is a {{Cl|SINGLE}} variable : ''Explanation:'' QB64 gives an error because the creation of the new variable would make referring to the existing one impossible. +''Example 8:'' Using QB64's alternative syntax to declare multiple variables/arrays of the same type. +{{CodeStart}} '' '' +{{Cl|DIM}} {{Cl|AS}} {{Cl|LONG}} w, h, id, weight, index 'all of these variables are created as type LONG +{{Cl|DIM}} {{Cl|AS}} {{Cl|SINGLE}} x, y, z 'all of these variables are created as type SINGLE +{{CodeEnd}} '' '' + + {{PageSeeAlso}} * [[_DEFINE]], [[_PRESERVE]] * [[REDIM]], [[TYPE]] @@ -94,4 +106,4 @@ x = 1 'x is a {{Cl|SINGLE}} variable * [[OPTION _EXPLICIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DO...LOOP.txt b/internal/help/DO...LOOP.txt index e94747aaf..8708d061d 100644 --- a/internal/help/DO...LOOP.txt +++ b/internal/help/DO...LOOP.txt @@ -25,6 +25,7 @@ ::[[WHILE]] checks if the condition is true before running loop code again. * NOTE: You cannot use a condition after both the DO and LOOP statements at the same time. * Use '''[[EXIT]] DO''' to exit a loop block even before the condition is met. +* Use [[_CONTINUE]] to skip the remaining lines in the iteration without leaving the loop. ** If you don't specify a condition, you must exit the loop block manually using '''[[EXIT]] DO'''. * If a loop never meets an exit condition requirement, it will never stop. @@ -36,9 +37,9 @@ ''Example 1:'' Using WHILE to clear the keyboard buffer. {{CodeStart}} -DO WHILE {{Cl|INKEY$}} <> "": LOOP ' checks evaluation before running loop code +{{Cl|DO}} {{Cl|WHILE}} {{Cl|INKEY$}} <> "": {{Cl|LOOP}} ' checks evaluation before running loop code -DO: LOOP WHILE INKEY$ <> "" ' checks evaluation after one run of loop code +{{Cl|DO}}: {{Cl|LOOP}} {{Cl|WHILE}} {{Cl|INKEY$}} <> "" ' checks evaluation after one run of loop code {{CodeEnd}} @@ -46,9 +47,9 @@ DO: LOOP WHILE INKEY$ <> "" ' checks evaluation after one run of ''Example 2:'' Using UNTIL to clear the keyboard buffer. {{CodeStart}} -DO UNTIL {{Cl|INKEY$}} = "": LOOP ' checks evaluation before running loop code +{{Cl|DO}} {{Cl|UNTIL}} {{Cl|INKEY$}} = "": {{Cl|LOOP}} ' checks evaluation before running loop code -DO: LOOP UNTIL {{Cl|INKEY$}} = "" ' checks evaluation after one run of loop code +{{Cl|DO}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = "" ' checks evaluation after one run of loop code {{CodeEnd}} @@ -57,77 +58,77 @@ DO: LOOP UNTIL {{Cl|INKEY$}} = "" ' checks evaluation after one run of :SUB reads header contents of a [[BSAVE]] file that may include embedded RGB color settings before the image. {{CodeStart}} '' '' {{Cl|DEFINT}} A-Z -{{Cl|INPUT}} "Enter a BSAVE file name to read the file for screen mode:"', filenm$ +{{Cl|INPUT}} "Enter a BSAVE file name to read the file for screen mode:"', filenm$ CheckScreen filenm$ {{Cl|END}} {{Cl|DEFINT}} A-Z {{Cl|SUB}} CheckScreen (Filename$) 'find Screen mode (12 or 13) and image dimensions - DIM Bsv AS {{Cl|STRING}} * 1 - DIM Header AS STRING * 6 + {{Cl|DIM}} Bsv {{Cl|AS}} {{Cl|STRING}} * 1 + {{Cl|DIM}} Header {{Cl|AS}} {{Cl|STRING}} * 6 Scr = 0: MaxColors = 0 - {{Cl|OPEN}} Filename$ FOR {{Cl|BINARY}} AS #1 + {{Cl|OPEN}} Filename$ {{Cl|FOR (file statement)|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 {{Cl|GET}} #1, , Bsv '1 check for small 2 character - GET #1, , Header '2 - 7 rest of file header + {{Cl|GET}} #1, , Header '2 - 7 rest of file header - IF Bsv <> {{Cl|CHR$}}(253) THEN ' small 2 character denotes a {{Cl|BSAVE}} file - COLOR 12: LOCATE 15, 33: PRINT "Not a BSAVE file!": SLEEP 3: {{Cl|EXIT}} SUB - END IF + {{Cl|IF}} Bsv <> {{Cl|CHR$}}(253) {{Cl|THEN}} ' small 2 character denotes a {{Cl|BSAVE}} file + {{Cl|COLOR}} 12: {{Cl|LOCATE}} 15, 33: {{Cl|PRINT}} "Not a BSAVE file!": {{Cl|SLEEP}} 3: {{Cl|EXIT SUB}} + {{Cl|END IF}} - GET #1, , widN '8 no color info bmp sizes - GET #1, , depN '9 " " " + {{Cl|GET}} #1, , widN '8 no color info bmp sizes + {{Cl|GET}} #1, , depN '9 " " " -DO - IF widN > 63 OR depN > 63 THEN {{Cl|EXIT DO}} ' width and depth already found +{{Cl|DO}} + {{Cl|IF}} widN > 63 {{Cl|OR}} depN > 63 {{Cl|THEN}} {{Cl|EXIT DO}} ' width and depth already found - FOR i = 10 TO 55 'check for Screen 12 embedded colors - GET #1, , RGB + {{Cl|FOR}} i = 10 {{Cl|TO}} 55 'check for Screen 12 embedded colors + {{Cl|GET}} #1, , RGB tot12& = tot12& + RGB 'PRINT i; RGB; : SOUND 300, 1 'test sound slows loop in QB - IF RGB > 63 OR RGB < 0 THEN {{Cl|EXIT DO}} - IF i = 55 AND tot12& = 0 THEN {{Cl|EXIT DO}} - NEXT + {{Cl|IF}} RGB > 63 {{Cl|OR}} RGB < 0 {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|IF}} i = 55 {{Cl|AND}} tot12& = 0 {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|NEXT}} - GET #1, , wid12 '56 - GET #1, , dep12 '57 - IF wid12 > 63 OR dep12 > 63 THEN {{Cl|EXIT DO}} + {{Cl|GET}} #1, , wid12 '56 + {{Cl|GET}} #1, , dep12 '57 + {{Cl|IF}} wid12 > 63 {{Cl|OR}} dep12 > 63 {{Cl|THEN}} {{Cl|EXIT DO}} - FOR i = 58 TO 775 'check for Screen 13 embedded colors - GET #1, , RGB + {{Cl|FOR}} i = 58 TO 775 'check for Screen 13 embedded colors + {{Cl|GET}} #1, , RGB tot13& = tot13& + RGB 'PRINT i; RGB; : SOUND 300, 1 'test - IF RGB > 63 OR RGB < 0 THEN {{Cl|EXIT DO}} - IF i = 775 AND tot13& = 0 THEN {{Cl|EXIT DO}} - NEXT - GET #1, , wid13 '776 - GET #1, , dep13 '777 -LOOP {{Cl|UNTIL}} 1 = 1 'TRUE statement exits one-time LOOP -CLOSE #1 + {{Cl|IF}} RGB > 63 {{Cl|OR}} RGB < 0 {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|IF}} i = 775 {{Cl|AND}} tot13& = 0 {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|NEXT}} + {{Cl|GET}} #1, , wid13 '776 + {{Cl|GET}} #1, , dep13 '777 +{{Cl|LOOP}} {{Cl|UNTIL}} 1 = 1 'TRUE statement exits one-time LOOP +{{Cl|CLOSE}} #1 -COLOR 14: LOCATE 10, 25 +{{Cl|COLOR}} 14: {{Cl|LOCATE}} 10, 25 {{Cl|SELECT CASE}} i {{Cl|CASE IS}} < 56: - IF widN > 640 THEN + {{Cl|IF}} widN > 640 {{Cl|THEN}} Scr = 13: MaxColors = 0 - PRINT "Default Screen 13:"; widN \ 8; "X"; depN - ELSE - LOCATE 10, 15 - PRINT "Screen 12 ("; widN; "X"; depN; ") OR 13 ("; widN \ 8; "X"; depN; ")" - DO: SOUND 600, 4 - COLOR 13: LOCATE 12, 23 'ask if no data found. Prevents ERROR opening in wrong mode - {{Cl|INPUT}} "Enter a Screen mode 12 or 13 : ", Scrn$ - Scr = VAL(Scrn$) - LOOP UNTIL Scr = 12 OR Scr = 13 - END IF - IF Scr = 12 THEN MaxColors = 0: PWidth = widN: PDepth = depN - IF Scr = 13 THEN MaxColors = 0: PWidth = widN \ 8: PDepth = depN + {{Cl|PRINT}} "Default Screen 13:"; widN \ 8; "X"; depN + {{Cl|ELSE}} + {{Cl|LOCATE}} 10, 15 + {{Cl|PRINT}} "Screen 12 ("; widN; "X"; depN; ") OR 13 ("; widN \ 8; "X"; depN; ")" + {{Cl|DO}}: {{Cl|SOUND}} 600, 4 + {{Cl|COLOR}} 13: {{Cl|LOCATE}} 12, 23 'ask if no data found. Prevents ERROR opening in wrong mode + {{Cl|INPUT}} "Enter a Screen mode 12 or 13 : ", Scrn$ + Scr = {{Cl|VAL}}(Scrn$) + {{Cl|LOOP}} {{Cl|UNTIL}} Scr = 12 {{Cl|OR}} Scr = 13 + {{Cl|END IF}} + {{Cl|IF}} Scr = 12 {{Cl|THEN}} MaxColors = 0: PWidth = widN: PDepth = depN + {{Cl|IF}} Scr = 13 {{Cl|THEN}} MaxColors = 0: PWidth = widN \ 8: PDepth = depN {{Cl|CASE}} 56 TO 775 - PRINT "Custom Screen 12:"; wid12; "X"; dep12 + {{Cl|PRINT}} "Custom Screen 12:"; wid12; "X"; dep12 Scr = 12: MaxColors = 16: PWidth = wid12: PDepth = dep12 - {{Cl|CASE}} 776: PRINT "Custom Screen 13:"; wid13 \ 8; "X"; dep13 + {{Cl|CASE}} 776: {{Cl|PRINT}} "Custom Screen 13:"; wid13 \ 8; "X"; dep13 Scr = 13: MaxColors = 256: PWidth = wid13 \ 8: PDepth = dep13 {{Cl|END SELECT}} @@ -147,4 +148,4 @@ COLOR 14: LOCATE 10, 25 * [[FOR...NEXT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DOUBLE.txt b/internal/help/DOUBLE.txt index 03ff8b521..da87db111 100644 --- a/internal/help/DOUBLE.txt +++ b/internal/help/DOUBLE.txt @@ -16,7 +16,7 @@ * '''Warning: QBasic keyword names cannot be used as numerical variable names with or without the type suffix.''' -==QBasic/QuickBASIC== +{{PageQBasic}} * Results of mathematical calculations may be approximate or slow in QuickBASIC 4.5. @@ -28,4 +28,4 @@ * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DRAW.txt b/internal/help/DRAW.txt index bda185388..0e8e698a6 100644 --- a/internal/help/DRAW.txt +++ b/internal/help/DRAW.txt @@ -13,28 +13,28 @@ The [[DRAW]] statement uses a [[STRING]] expression to draw lines on the screen. * Draw strings use letters followed by the number of pixels to move, an angle, coordinate or a color value. * Draw strings are flexible with spacing. '''Spacing is not required.''' [[DRAW]] will look for a number value after a valid letter. * DRAW statements are not case sensitive. -** "'''B'''" (blind) before a line move designates that the line move will be hidden. Use to offset from a "P" or [[PAINT]] border. -** "'''C''' n" designates the color attribute or [[_RGB]] [[STR$|string]] numerical color value to be used in the draw statement immediately after. -** "'''M''' x, y" can move to another coordinate area of the screen. When a + or - sign is used before a coordinate, it is a relative coordinate move similar to using the [[STEP]] graphics keyword. DRAW "M+=" + [[VARPTR$]](variable%) -** "'''N'''" before a line move designates that the graphic cursor will return to the starting position after the line is drawn. -** "'''P''' f [, b]" is used to [[PAINT|paint]] enclosed objects. f denotes the fill color and b the border color, if needed. -** "'''S''' n" changes the pixel move size of the lines. Default is 4 (1 pixel) minimum. "S8" would double the pixel line moves. -** "'''X'''" + [[VARPTR$]](value) can draw another substring. +** "'''B'''" (blind) before a line move designates that the line move will be hidden. Use to offset from a "P" or [[PAINT]] border. +** "'''C''' n" designates the color attribute or [[_RGB]] [[STR$|string]] numerical color value to be used in the draw statement immediately after. +** "'''M''' x, y" can move to another coordinate area of the screen. When a + or - sign is used before a coordinate, it is a relative coordinate move similar to using the [[STEP]] graphics keyword. DRAW "M+=" + [[VARPTR$]](variable%) +** "'''N'''" before a line move designates that the graphic cursor will return to the starting position after the line is drawn. +** "'''P''' f [, b]" is used to [[PAINT|paint]] enclosed objects. f denotes the fill color and b the border color, if needed. +** "'''S''' n" changes the pixel move size of the lines. Default is 4 (1 pixel) minimum. "S8" would double the pixel line moves. +** "'''X'''" + [[VARPTR$]](value) can draw another substring. * Certain letter designations create line moves on the SCREEN. Each move is followed by the number of pixels: -** "'''D''' n" draws a line vertically DOWN n pixels. -** "'''E''' n" draws a diagonal / line going UP and RIGHT n pixels each direction. -** "'''F''' n" draws a diagonal \ line going DOWN and RIGHT n pixels each direction. -** "'''G''' n" draws a diagonal / LINE going DOWN and LEFT n pixels each direction. -** "'''H''' n" draws a diagonal \ LINE going UP and LEFT n pixels each direction. -** "'''L''' n" draws a line horizontally LEFT n pixels. -** "'''R''' n" draws a line horizontally RIGHT n pixels. -** "'''U''' n" draws a line vertically UP n pixels. +** "'''D''' n" draws a line vertically DOWN n pixels. +** "'''E''' n" draws a diagonal / line going UP and RIGHT n pixels each direction. +** "'''F''' n" draws a diagonal \ line going DOWN and RIGHT n pixels each direction. +** "'''G''' n" draws a diagonal / LINE going DOWN and LEFT n pixels each direction. +** "'''H''' n" draws a diagonal \ LINE going UP and LEFT n pixels each direction. +** "'''L''' n" draws a line horizontally LEFT n pixels. +** "'''R''' n" draws a line horizontally RIGHT n pixels. +** "'''U''' n" draws a line vertically UP n pixels. * Angles are used to rotate all subsequent draw moves. -** "'''A''' n" can use values of 1 to 3 to rotate up to 3 90 degree(270) angles. -** '''TA''' n" can use any n angle from -360 to 0 to 360 to rotate a DRAW (Turn Angle). "TA0" resets to normal. -** When [[VARPTR$]] is used, DRAW functions such as '''TA''' angles use an equal sign: "TA=" + VARPTR$(angle%) +** "'''A''' n" can use values of 1 to 3 to rotate up to 3 90 degree(270) angles. +** '''TA''' n" can use any n angle from -360 to 0 to 360 to rotate a DRAW (Turn Angle). "TA0" resets to normal. +** When [[VARPTR$]] is used, DRAW functions such as '''TA''' angles use an equal sign: "TA=" + VARPTR$(angle%) * The graphic cursor is set to the center of the program window on program start for [[STEP]] relative coordinates. * '''DRAW can be used in any graphic screen mode, but cannot be used in the default screen mode 0 as it is text only.''' @@ -44,7 +44,7 @@ The [[DRAW]] statement uses a [[STRING]] expression to draw lines on the screen. {{CodeStart}} '' '' SCREEN 12 - octagon$ = "C12 R10 F10 D10 G10 L10 H10 U10 E10" 'create a DRAW string value + octagon$ = "C12 R10 F10 D10 G10 L10 H10 U10 E10" 'create a DRAW string value {{Cl|SCREEN (statement)|SCREEN}} 12 FOR i% = 1 TO 11 {{Cl|PSET}} (i% * 50, 100), 15 @@ -56,19 +56,19 @@ The [[DRAW]] statement uses a [[STRING]] expression to draw lines on the screen. ''Explanation:'' Once a DRAW string variable is created, it can be used to draw a shape throughout the program at any time. -''Example 2:'' Creating an analog clock's hour markers using "TA=" + [[VARPTR$]](angle). +''Example 2:'' Creating an analog clock's hour markers using "TA=" + [[VARPTR$]](angle). {{CodeStart}} '' '' SCREEN 12 FOR angle = 0 TO 360 {{Cl|STEP}} 30 ' 360/12 hour circles = 30 degrees apart PSET (175, 250), 6 ' stay at center point of clock - {{Cl|DRAW}} "TA=" + {{Cl|VARPTR$}}(angle) + "BU100" ' move invisibly to set next circle's center point + {{Cl|DRAW}} "TA=" + {{Cl|VARPTR$}}(angle) + "BU100" ' move invisibly to set next circle's center point {{Cl|CIRCLE}} {{Cl|STEP}}(0, 0), 5, 12 ' circle placed at end of blind line - {{Cl|DRAW}} "P9, 12" ' paint inside of circle + {{Cl|DRAW}} "P9, 12" ' paint inside of circle {{Cl|SLEEP}} 1 ' slowed for demo only NEXT '' '' {{CodeEnd}} -''Explanation:'' To place 12 circles in a circle each move is 30 degrees. PSET sets the center of the circular path every loop. TA moves counter-clockwise with positive degree angles. Once TA sets the angle a blind Up move is at that angle. The hour circles use the end point of the blind line as centers using the STEP relative coordinates of 0. After the circles are drawn, a draw "P" string paints the circle centers. DRAW paint strings use the last coordinate position also. +''Explanation:'' To place 12 circles in a circle each move is 30 degrees. PSET sets the center of the circular path every loop. TA moves counter-clockwise with positive degree angles. Once TA sets the angle a blind Up move is at that angle. The hour circles use the end point of the blind line as centers using the STEP relative coordinates of 0. After the circles are drawn, a draw "P" string paints the circle centers. DRAW paint strings use the last coordinate position also. ''Example 3:'' Creating a moving second hand for the clock above (SCREEN 12). (See [[TIME$]] example 1) @@ -77,11 +77,11 @@ The [[DRAW]] statement uses a [[STRING]] expression to draw lines on the screen. DO: sec$ = {{Cl|RIGHT$}}({{Cl|TIME$}}, 2) ' get actual seconds from TIME$ function degree$ = {{Cl|STR$}}({{Cl|VAL}}(sec$) * -6) ' 60 second moves. TA uses negative angles for clockwise moves {{Cl|PSET}} (175, 250), 9 ' stay at clock center - DRAW "TA" + degree$ + "U90" ' up becomes TA directional line - DO: LOOP UNTIL RIGHT$(TIME$, 2) <> sec$ ' wait for a new second value - IF INKEY$ <> "" THEN {{Cl|EXIT DO}} ' any key exit + DRAW "TA" + degree$ + "U90" ' up becomes TA directional line + DO: LOOP UNTIL RIGHT$(TIME$, 2) <> sec$ ' wait for a new second value + IF INKEY$ <> "" THEN {{Cl|EXIT DO}} ' any key exit PSET (175, 250), 0 ' set at clock center to erase line - DRAW "TA" + degree$ + "U90" ' erases old second hand line using color 0 from PSET + DRAW "TA" + degree$ + "U90" ' erases old second hand line using color 0 from PSET LOOP {{CodeEnd}} @@ -92,43 +92,43 @@ The [[DRAW]] statement uses a [[STRING]] expression to draw lines on the screen. {{CodeStart}} {{Cl|SCREEN}} 12 DO - {{Cl|LOCATE}} 1, 1: {{Cl|INPUT}} "Enter a number 0 to 9: ", num + {{Cl|LOCATE}} 1, 1: {{Cl|INPUT}} "Enter a number 0 to 9: ", num {{Cl|CLS}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 0, 2, 3, 5 {{Cl|TO}} 9: {{Cl|PSET}} (20, 20), 12 - {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'top horiz + {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'top horiz {{Cl|END SELECT}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 0, 4 {{Cl|TO}} 6, 8, 9: {{Cl|PSET}} (20, 20), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'left top vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'left top vert {{Cl|END SELECT}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 0, 2, 6, 8: {{Cl|PSET}} (20, 54), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12, 12" 'left bot vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12, 12" 'left bot vert {{Cl|END SELECT}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 2 {{Cl|TO}} 6, 8, 9: {{Cl|PSET}} (20, 54), 12 - {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12, 12" 'middle horiz + {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12, 12" 'middle horiz {{Cl|END SELECT}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 0 {{Cl|TO}} 4, 7 {{Cl|TO}} 9: {{Cl|PSET}} (54, 20), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'top right vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'top right vert {{Cl|END SELECT}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 0, 1, 3 {{Cl|TO}} 9: {{Cl|PSET}} (54, 54), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'bottom right vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'bottom right vert {{Cl|END SELECT}} {{Cl|SELECT CASE}} num {{Cl|CASE}} 0, 2, 3, 5, 6, 8: {{Cl|PSET}} (20, 88), 12 - {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'bottom horiz + {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'bottom horiz {{Cl|END SELECT}} -{{Cl|LOOP}} {{Cl|UNTIL}} num > 9 '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} num > 9 '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} :''Explanation:'' The DRAW strings can be used more than once with different [[PSET]] positions to create more digits. @@ -151,7 +151,7 @@ k = {{Cl|_RGB}}(80, 255, 80) {{Cl|FOR...NEXT|FOR}} repeat = 1 {{Cl|TO}} 16 {{Cl|FOR...NEXT|FOR}} p = 0 {{Cl|TO}} 359 c = c + 1: d = c / 14 - {{Cl|DRAW}} "c" + {{Cl|STR$}}(k) + " ta" + {{Cl|STR$}}(p) + " bu " + {{Cl|STR$}}(d) + "l7 u7 r7 d7 bd " + {{Cl|STR$}}(d) + {{Cl|DRAW}} "c" + {{Cl|STR$}}(k) + " ta" + {{Cl|STR$}}(p) + " bu " + {{Cl|STR$}}(d) + "l7 u7 r7 d7 bd " + {{Cl|STR$}}(d) {{Cl|NEXT}} p {{Cl|NEXT}} repeat {{CodeEnd}} @@ -165,4 +165,4 @@ k = {{Cl|_RGB}}(80, 255, 80) * [[TIME$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Dollar_Sign.txt b/internal/help/Dollar_Sign.txt index 5235135cf..6c56794eb 100644 --- a/internal/help/Dollar_Sign.txt +++ b/internal/help/Dollar_Sign.txt @@ -1,4 +1,4 @@ -The '''$''' is used to denote Qbasic [[Metacommand]]s or as a [[STRING]] variable type suffix. +The '''$''' is used to denote QBasic [[Metacommand]]s or as a [[STRING]] variable type suffix. @@ -7,7 +7,7 @@ The '''$''' is used to denote Qbasic [[Metacommand]]s or as a [[STRING]] variabl * [[$STATIC]] denotes that all arrays can only be dimensioned once using [[DIM]]. * [[$DYNAMIC]] denotes that all arrays can be redimensioned using [[REDIM]] ONLY. -* [[$INCLUDE]] includes a BI file or Qbasic Library in a program. The file name requires a comment before and after the name. +* [[$INCLUDE]] includes a BI file or QBasic Library in a program. The file name requires a comment before and after the name. * The [[STRING|string]] variable suffix MUST be used if the variable is not dimensioned in a DIM statement. The statement can also set a fixed string [[LEN|length]]. @@ -17,4 +17,4 @@ The '''$''' is used to denote Qbasic [[Metacommand]]s or as a [[STRING]] variabl * [[Metacommand]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ELSE.txt b/internal/help/ELSE.txt index 40bd5f49f..7eba6ed4a 100644 --- a/internal/help/ELSE.txt +++ b/internal/help/ELSE.txt @@ -30,7 +30,7 @@ ''Example 1:'' One line IF statement {{CodeStart}} -IF x = 100 THEN PRINT "100" ELSE PRINT "Not 100" +IF x = 100 THEN PRINT "100" ELSE PRINT "Not 100" {{CodeEnd}} @@ -38,8 +38,8 @@ IF x = 100 THEN PRINT "100" ELSE PRINT "Not 100" {{CodeStart}} IF x = 100 THEN ' code executed MUST be on next statement line! - PRINT "100" -ELSE PRINT "Not 100" + PRINT "100" +ELSE PRINT "Not 100" END IF {{CodeEnd}} @@ -59,4 +59,4 @@ IF a = 3 THEN a = 5 ELSE a = 3 * [[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ELSEIF.txt b/internal/help/ELSEIF.txt index 0be71858b..b2f773921 100644 --- a/internal/help/ELSEIF.txt +++ b/internal/help/ELSEIF.txt @@ -29,7 +29,7 @@ ''Example 1:'' IF statement using ELSE IF in one statement line. {{CodeStart}} -IF x = 100 THEN COLOR 10: PRINT x ELSE IF x > 100 THEN COLOR 12: PRINT x ELSE PRINT "< 100" +IF x = 100 THEN COLOR 10: PRINT x ELSE IF x > 100 THEN COLOR 12: PRINT x ELSE PRINT "< 100" {{CodeEnd}} @@ -39,8 +39,8 @@ IF x = 100 THEN COLOR 10: PRINT x ELSE IF x > 100 THEN COLOR 12: PRINT x ELSE IF x = 100 THEN ' must place ANY code on next line! COLOR 10: PRINT x -ELSEIF x > 100 THEN COLOR 12: PRINT x -ELSE : PRINT "< 100" +ELSEIF x > 100 THEN COLOR 12: PRINT x +ELSE : PRINT "< 100" END IF {{CodeEnd}} @@ -52,4 +52,4 @@ END IF *[[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/END.txt b/internal/help/END.txt index 7970b6236..2de6be5eb 100644 --- a/internal/help/END.txt +++ b/internal/help/END.txt @@ -13,8 +13,8 @@ The [[END]] statement terminates a program without an immediate exit or ends a p {{PageDescription}} * In '''QB64''', [[END]] can be followed by a code that can be read by another module using the [[SHELL (function)|_SHELL]] or [[_SHELLHIDE]] function (known as [https://blogs.msdn.microsoft.com/oldnewthing/20080926-00/?p=20743 '''errorlevel''']) -* When END is used to end a program, there is a pause and the message "Press any key to continue..." is displayed at the bottom of the program's window. -* If the program does not use END or [[SYSTEM]], the program will still end with a pause and display "Press any key to continue...". +* When END is used to end a program, there is a pause and the message "Press any key to continue..." is displayed at the bottom of the program's window. +* If the program does not use END or [[SYSTEM]], the program will still end with a pause and display "Press any key to continue...". * In '''QB64''', [[SYSTEM]] will end the program immediately and close the window. * The '''QB64''' [[_EXIT (function)]] can block a user's Ctrl + Break key presses and clicks on the window's close button (X button) until the program is ready to close. @@ -23,9 +23,9 @@ The [[END]] statement terminates a program without an immediate exit or ends a p ''Example:'' In QB64 you won't return to the IDE unless you are using it to run or edit the program module. {{CodeStart}} '' '' -{{Cl|PRINT}} "Hello world!" +{{Cl|PRINT}} "Hello world!" {{Cl|END}} -{{Cl|PRINT}} "Hello no one!" '' '' +{{Cl|PRINT}} "Hello no one!" '' '' {{CodeEnd}} ''Returns:'' @@ -38,8 +38,8 @@ Hello world! Press any key to continue... {{OutputEnd}} -:''Explanation:''"Hello no one!" isn't returned because the program ended with the END statement no matter what is after that. -:The message "Press any key to continue..." is displayed after the program ends, both in QBasic and in '''QB64'''. +:''Explanation:''"Hello no one!" isn't returned because the program ended with the END statement no matter what is after that. +:The message "Press any key to continue..." is displayed after the program ends, both in QBasic and in '''QB64'''. @@ -49,4 +49,4 @@ Press any key to continue... * [[EXIT]] (statement), [[_EXIT (function)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ENVIRON$.txt b/internal/help/ENVIRON$.txt index 0a25d03ec..76841b7fe 100644 --- a/internal/help/ENVIRON$.txt +++ b/internal/help/ENVIRON$.txt @@ -1,4 +1,4 @@ -The [[ENVIRON$]] function returns a [[STRING]] environmental value from '''Windows'''' environmental settings list. +The [[ENVIRON$]] function returns a [[STRING]] environmental value from the Operating System's environmental settings list. {{PageSyntax}} @@ -8,22 +8,22 @@ The [[ENVIRON$]] function returns a [[STRING]] environmental value from '''Windo {{PageDescription}} * The function can use an [[INTEGER]] {{Parameter|listIndex%}} value or [[STRING]] {{Parameter|systemID$}} parameter. * {{Parameter|listIndex%}} refers to the number order of the environmental list. Returns are not in any particular numerical order. -* {{Parameter|systemID$}} is the specific [[STRING]] parameter requested. Returns only the specified environmental [[STRING]] setting: -** "BLASTER" = current Sound Blaster settings if installed. -** "COMPUTERNAME" or "USERDOMAIN" = OEM PC serial number or the computer name assigned by owner. -** "HOMEDRIVE" or "SystemDrive" = Windows root drive, normally C: on single partition drives. -** "HOMEPATH" = current user's Administrator or the single user's "OWNER" folder path. -** "OS" = Windows Operating System version. Often WindowsNT in modern computers. -** "PATH" = full path setting that Windows uses to look for file extensions in PATHEXT below. -** "PATHEXT = Windows extensions used: COM, EXE, BAT, CMD, VBS, VBE, JS, JSE, WSF, WSH, MSC -** "PROCESSOR_ARCHITECTURE" = x86 for 32 or 64 bit. -** "PROGRAMFILES" = path to ''Program files'' folder, normally "C:\PROGRAM FILES" -** "PROMPT" = normally "$P$G" on Windows NT. -** "SYSTEMROOT" or "windir" = path to the Windows folder including the drive letter like "C:\WINDOWS" -** "TEMP" or "TMP" = path to TEMP folder. "C:\TEMP" or the user specific temp folder on later versions. -** "USERNAME" = current Administrator name or "OWNER". +* {{Parameter|systemID$}} is the specific [[STRING]] parameter requested. Returns only the specified environmental [[STRING]] setting (examples based on Windows): +** "BLASTER" = current Sound Blaster settings if installed. +** "COMPUTERNAME" or "USERDOMAIN" = OEM PC serial number or the computer name assigned by owner. +** "HOMEDRIVE" or "SystemDrive" = Windows root drive, normally C: on single partition drives. +** "HOMEPATH" = current user's Administrator or the single user's "OWNER" folder path. +** "OS" = Windows Operating System version. Often WindowsNT in modern computers. +** "PATH" = full path setting that Windows uses to look for file extensions in PATHEXT below. +** "PATHEXT = Windows extensions used: COM, EXE, BAT, CMD, VBS, VBE, JS, JSE, WSF, WSH, MSC +** "PROCESSOR_ARCHITECTURE" = x86 for 32 or 64 bit. +** "PROGRAMFILES" = path to ''Program files'' folder, normally "C:\PROGRAM FILES" +** "PROMPT" = normally "$P$G" on Windows NT. +** "SYSTEMROOT" or "windir" = path to the Windows folder including the drive letter like "C:\WINDOWS" +** "TEMP" or "TMP" = path to TEMP folder. "C:\TEMP" or the user specific temp folder on later versions. +** "USERNAME" = current Administrator name or "OWNER". : ''Note:'' There are other possible system settings that are not listed or never used on older versions. Run ''Example 1'' below for a complete list in your system. -<!-- Sentence removed for being unclear/needs revision: * The OS in Win 9X or ME can be found in the "PROMPT" parameter ID. Returns are limited in Win 9X and ME. --> +<!-- Sentence removed for being unclear/needs revision: * The OS in Win 9X or ME can be found in the "PROMPT" parameter ID. Returns are limited in Win 9X and ME. --> * ''Note:'' '''QB64''' may not return the same environment list as QBasic or SET did in DOS. @@ -35,8 +35,8 @@ The [[ENVIRON$]] function returns a [[STRING]] environmental value from '''Windo i = i + 1 setting$ = {{Cl|ENVIRON$}}(i) ' get a setting from the list {{Cl|PRINT}} setting$ - {{Cl|IF...THEN|IF}} i {{Cl|MOD}} 20 = 0 {{Cl|THEN}} {{Cl|PRINT}} "Press a key": {{Cl|SLEEP}}: {{Cl|CLS}} -{{Cl|LOOP}} {{Cl|UNTIL}} setting$ = "" + {{Cl|IF...THEN|IF}} i {{Cl|MOD}} 20 = 0 {{Cl|THEN}} {{Cl|PRINT}} "Press a key": {{Cl|SLEEP}}: {{Cl|CLS}} +{{Cl|LOOP}} {{Cl|UNTIL}} setting$ = "" {{CodeEnd}} {{OutputStart}} ALLUSERSPROFILE=C:\ProgramData @@ -70,8 +70,8 @@ USERPROFILE=C:\Users\Ted {{CodeStart}} '=== Enter the EXE file and ICON or BMP image for the shortcut. -Program$ = "QB64.EXE" '<<<<<<<<<< Enter the '''exact''' program name for shortcut -ICON$ = "QB64ICON.BMP" '<<<<<<<<<< Enter icon or bitmap to use from program's folder +Program$ = "QB64.EXE" '<<<<<<<<<< Enter the '''exact''' program name for shortcut +ICON$ = "QB64ICON.BMP" '<<<<<<<<<< Enter icon or bitmap to use from program's folder DeskTopShortcut Program$, ICON$ @@ -79,23 +79,23 @@ DeskTopShortcut Program$, ICON$ {{Cl|SUB}} DeskTopShortcut (Program$, ICON$) f = {{Cl|FREEFILE}} -{{Cl|SHELL}} {{Cl|_HIDE}} "CD > PRGMDIR.INF" 'get the current program path -{{Cl|OPEN}} "PRGMDIR.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #f +{{Cl|SHELL}} {{Cl|_HIDE}} "CD > PRGMDIR.INF" 'get the current program path +{{Cl|OPEN}} "PRGMDIR.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #f {{Cl|LINE INPUT (file statement)|LINE INPUT}} #f, PATH$ {{Cl|CLOSE}} #f -{{Cl|KILL}} "PRGMDIR.INF" -PATH$ = PATH$ + "\": FILE$ = PATH + Program$ +{{Cl|KILL}} "PRGMDIR.INF" +PATH$ = PATH$ + "\": FILE$ = PATH + Program$ PRINT PATH$ 'DEMO print -A$ = {{Cl|ENVIRON$}}("HOMEDRIVE") '=== Get Current User setting from Environment. -B$ = {{Cl|ENVIRON$}}("HOMEPATH") +A$ = {{Cl|ENVIRON$}}("HOMEDRIVE") '=== Get Current User setting from Environment. +B$ = {{Cl|ENVIRON$}}("HOMEPATH") C$ = A$ + B$ 'shortcut to user's desktop if found -{{Cl|IF...THEN|IF}} C$ = "" {{Cl|THEN}} C$ = {{Cl|ENVIRON$}}("ALLUSERSPROFILE") 'try desktop for all users +{{Cl|IF...THEN|IF}} C$ = "" {{Cl|THEN}} C$ = {{Cl|ENVIRON$}}("ALLUSERSPROFILE") 'try desktop for all users PRINT C$ 'DEMO print -URLFILE$ = {{Cl|MID$}}(Program$, 1, {{Cl|INSTR}}(Program$, ".")) + "URL" 'change EXE to URL +URLFILE$ = {{Cl|MID$}}(Program$, 1, {{Cl|INSTR}}(Program$, ".")) + "URL" 'change EXE to URL -{{Cl|IF...THEN|IF}} C$ > "" {{Cl|THEN}} - SHORTCUT$ = C$ + "\Desktop\" + URLFILE$ 'create filename for the desktop +{{Cl|IF...THEN|IF}} C$ > "" {{Cl|THEN}} + SHORTCUT$ = C$ + "\Desktop\" + URLFILE$ 'create filename for the desktop {{Cl|ELSE}} SHORTCUT$ = PATH$ + URLFILE$ 'if all else fails put in program folder {{Cl|END IF}} PRINT SHORTCUT 'DEMO print @@ -103,11 +103,11 @@ PRINT SHORTCUT 'DEMO print {{Cl|IF...THEN|IF}} {{Cl|LOF}}(f) {{Cl|THEN}} {{Cl|CLOSE}} #f: {{Cl|EXIT SUB}} '=== if filesize is NOT Zero don't overwrite! Q$ = {{Cl|CHR$}}(34) '=== Write URL Shortcut file info. -{{Cl|PRINT (file statement)|PRINT}} #f, "[InternetShortcut]" 'URL type -{{Cl|PRINT (file statement)|PRINT}} #f, "URL=" + Q$ + "file://" + FILE$ + Q$ 'URL program file -{{Cl|PRINT (file statement)|PRINT}} #f, "WorkingDirectory=" + Q$ + PATH$ + Q$ 'Working path -{{Cl|PRINT (file statement)|PRINT}} #f, "IconIndex = " + Q$ + "0" + Q$ '0 is first index -{{Cl|PRINT (file statement)|PRINT}} #f, "IconFile = " + Q$ + PATH$ + ICON$ + Q$ 'Icon path in working folder +{{Cl|PRINT (file statement)|PRINT}} #f, "[InternetShortcut]" 'URL type +{{Cl|PRINT (file statement)|PRINT}} #f, "URL=" + Q$ + "file://" + FILE$ + Q$ 'URL program file +{{Cl|PRINT (file statement)|PRINT}} #f, "WorkingDirectory=" + Q$ + PATH$ + Q$ 'Working path +{{Cl|PRINT (file statement)|PRINT}} #f, "IconIndex = " + Q$ + "0" + Q$ '0 is first index +{{Cl|PRINT (file statement)|PRINT}} #f, "IconFile = " + Q$ + PATH$ + ICON$ + Q$ 'Icon path in working folder {{Cl|CLOSE}} #f {{Cl|END SUB}} '' '' {{CodeEnd}} @@ -117,11 +117,11 @@ Q$ = {{Cl|CHR$}}(34) '=== Write URL Shortcut file info. ''See also:'' +* [[ENVIRON]] (statement), [[_ENVIRONCOUNT]] * [[_DEVICES]], [[_DEVICE$]] * [[_LASTBUTTON]], [[_OS$]] -* [[ENVIRON]] {{text|(statement)}} * [[Windows Environment]] * [[Windows Libraries#Windows User|Windows User Paths Library]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ENVIRON.txt b/internal/help/ENVIRON.txt index 4c65e256c..dc175f62e 100644 --- a/internal/help/ENVIRON.txt +++ b/internal/help/ENVIRON.txt @@ -1,7 +1,4 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords_currently_not_supported_by_QB64|not supported in QB64]]. Reading values is supported with [[ENVIRON$]]. - ----- -The [[ENVIRON]] statement is used in DOS/Windows to temporarily set or change an environmental string value. +The [[ENVIRON]] statement is used to temporarily set or change an environmental string value. {{PageSyntax}} @@ -9,19 +6,18 @@ The [[ENVIRON]] statement is used in DOS/Windows to temporarily set or change an {{PageDescription}} -* [[Keywords_currently_not_supported_by_QB64|Not supported in QB64.]] * The {{Parameter|stringExpression$}} must include the environmental parameter ID and the setting: -** Using an '''=''' sign: [[ENVIRON]] "parameterID=setting" -** Using a space: [[ENVIRON]] "parameterID setting" +** Using an '''=''' sign: [[ENVIRON]] "parameterID=setting" +** Using a space: [[ENVIRON]] "parameterID setting" * If the parameter ID did not previously exist in the environmental string table, it is appended to the end of the table. * If a parameter ID did exist, it is deleted and the new value is appended to end of the list. -* DOS discards any changes when your program ends so the program must set them when run. -* '''WARNING:''' The amount of space in a environmental table is limited and may create memory errors. +* The [[_ENVIRONCOUNT]] function returns the number of key/value pairs that currently exist. +* Any changes made at runtime are discarded when your program ends. {{PageSeeAlso}} -* [[ENVIRON$]] +* [[ENVIRON$]], [[_ENVIRONCOUNT]] * [[Windows Environment]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/EOF.txt b/internal/help/EOF.txt index 167576dfc..e1f9673fb 100644 --- a/internal/help/EOF.txt +++ b/internal/help/EOF.txt @@ -9,7 +9,7 @@ The [[EOF]] function indicates that the end of a file has been reached. * {{Parameter|fileNumber&}} is the number of the file being read. '''#''' is not required. * Returns 0 until the end of a file. This avoids a file read error. * Returns -1 (true) at the end of the file. -<!-- confusing statement; further details are required: * [[CHR$]](26) can be used to denote the end of a file. --> +<!-- confusing statement; further details are required: * [[CHR$]](26) can be used to denote the end of a file. --> * '''Note that [[GET]] can return invalid data at the end of a file.''' Read [[EOF]] after a GET operation to see if the end of the file has been reached and discard last read. @@ -21,4 +21,4 @@ The [[EOF]] function indicates that the end of a file has been reached. * [[GET]], [[PUT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/EQV.txt b/internal/help/EQV.txt index 0b457eed7..13cce0c7a 100644 --- a/internal/help/EQV.txt +++ b/internal/help/EQV.txt @@ -18,4 +18,4 @@ The [[EQV]] operator returns a value based on the ''equivalence'' of two conditi * [[Boolean]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ERASE.txt b/internal/help/ERASE.txt index 415b40f63..fe407fc78 100644 --- a/internal/help/ERASE.txt +++ b/internal/help/ERASE.txt @@ -6,7 +6,7 @@ The [[ERASE]] statement is used to clear all data from an array. [[$STATIC]] [[A {{PageDescription}} -* All string array elements become null strings ("") and all numerical array elements become 0. +* All string array elements become null strings ("") and all numerical array elements become 0. * Multiple arrays can be erased using commas between the array names. * [[$DYNAMIC|Dynamic]] arrays must be [[REDIM]]ensioned if they are referenced after erased. * Dimension subprocedure arrays as [[STATIC]] to use [[ERASE]] and not have to REDIM. @@ -21,4 +21,4 @@ The [[ERASE]] statement is used to clear all data from an array. [[$STATIC]] [[A * [[Arrays]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ERDEV$.txt b/internal/help/ERDEV$.txt deleted file mode 100644 index 2822b4955..000000000 --- a/internal/help/ERDEV$.txt +++ /dev/null @@ -1,22 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords currently not supported by QB64|not supported in QB64]].''' - ----- - -[[ERDEV$]] is a string function that returns the name of the last device to declare an error. - - -{{PageSyntax}} -: {{Parameter|device$}} = [[ERDEV$]] - - -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* It will contain the 8-byte character device name if the error was declared by a character device (such as a printer), while it will contain the 2-byte block name (A:, B:, etc.) if the device was not a character device. -* It is set when [[ERDEV]] is set, meaning that DOS has encountered a error that prevents it from continuing. - - -{{PageSeeAlso}} -* [[ERDEV]] -* [[ERROR]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/ERDEV.txt b/internal/help/ERDEV.txt deleted file mode 100644 index 19929734b..000000000 --- a/internal/help/ERDEV.txt +++ /dev/null @@ -1,20 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords currently not supported by QB64|not supported in QB64]].''' - ----- - -[[ERDEV]] is an integer function that returns an error code from the last device to create an error. - - -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* The code is bit-encoded containing DOS error information, the first 8-bit (first byte) contain the DOS error code, while the second bit contains device specific information (bits 15, 14, 13, (12-4 always zero), 3, 2, 1 in that order of the device attribute word). - -* [[ERDEV]] is set by the critical error handler (interrupt 24h) when DOS encounters a error that prevents it from continuing. - - -{{PageSeeAlso}} -[[ERDEV$]], [[ERROR]] - - - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/ERL.txt b/internal/help/ERL.txt index f94e8ee97..67d93cdf0 100644 --- a/internal/help/ERL.txt +++ b/internal/help/ERL.txt @@ -36,8 +36,8 @@ errorfix: * [[ERR]] * [[ERROR]] * [[ON ERROR]] -* [[_ERRORLINE]], [[_INCLERRORLINE]], [[_INCLERRORFILE$]] +* [[_ERRORLINE]], [[_INCLERRORLINE]], [[_INCLERRORFILE$]], [[_ERRORMESSAGE$]] * [[ERROR Codes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ERR.txt b/internal/help/ERR.txt index 45ed7f8e3..382510cea 100644 --- a/internal/help/ERR.txt +++ b/internal/help/ERR.txt @@ -11,7 +11,7 @@ The [[ERR]] function returns the last QBasic error code number. {{PageExamples}} -''Example:'' Simulating an error to test a program error handler that looks for a "Subscript out of range" error. +''Example:'' Simulating an error to test a program error handler that looks for a "Subscript out of range" error. {{CodeStart}} '' '' {{Cl|ON ERROR}} {{Cl|GOTO}} handler @@ -25,7 +25,7 @@ handler: {{Cl|PRINT}} {{Cl|ERR}}, {{Cl|_ERRORLINE}} {{Cl|BEEP}} {{Cl|IF...THEN|IF}} {{Cl|ERR}} = 9 {{Cl|THEN}} - {{Cl|PRINT}} "The program has encountered an error and needs to close! Press a key!" + {{Cl|PRINT}} "The program has encountered an error and needs to close! Press a key!" K$ = {{Cl|INPUT$}}(1) {{Cl|SYSTEM}} {{Cl|END IF}} @@ -36,9 +36,9 @@ handler: {{PageSeeAlso}} * [[ON ERROR]], [[RESUME]] * [[ERL]] -* [[_ERRORLINE]], [[_INCLERRORLINE]], [[_INCLERRORFILE$]] +* [[_ERRORLINE]], [[_INCLERRORLINE]], [[_INCLERRORFILE$]], [[_ERRORMESSAGE$]] * [[ERROR]] * [[ERROR Codes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ERROR.txt b/internal/help/ERROR.txt index 9d33eba26..6747c621b 100644 --- a/internal/help/ERROR.txt +++ b/internal/help/ERROR.txt @@ -34,8 +34,9 @@ handler: {{PageSeeAlso}} *[[ON ERROR]] *[[ERR]], [[ERL]] -*[[_ERRORLINE]] +*[[_ERRORLINE]], [[_ERRORMESSAGE$]] +*[[_INCLERRORLINE]], [[_INCLERRORFILE$]] *[[ERROR Codes]] (list) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/EXIT.txt b/internal/help/EXIT.txt index ba370a207..67d05e73c 100644 --- a/internal/help/EXIT.txt +++ b/internal/help/EXIT.txt @@ -2,7 +2,7 @@ The [[EXIT]] statement is used to exit certain QBasic procedures. {{PageSyntax}} -: [[EXIT]] {DO|WHILE|FOR|SUB|FUNCTION} +: [[EXIT]] {DO|WHILE|FOR|SUB|FUNCTION|SELECT|CASE} {{PageDescription}} @@ -12,16 +12,22 @@ The [[EXIT]] statement is used to exit certain QBasic procedures. ** [[EXIT]] FOR exits a [[FOR...NEXT]] counter loop. ** [[EXIT]] SUB exits a [[SUB]] procedure before it ends. Use before any [[GOSUB]] procedures using [[RETURN]]. ** [[EXIT]] FUNCTION exits a [[FUNCTION]] procedure before it ends. The value passed by the function's name should be defined. -<!-- ** [[EXIT]] DEF exits a [[DEF FN]] function procedure before it ends. The value passed by the function's name should be defined. --> +** [[EXIT]] SELECT exits a [[SELECT CASE]] block. +** [[EXIT]] CASE does the same as EXIT SELECT unless when used in a '''SELECT EVERYCASE''' block; in such case, execution proceeds to the next CASE evaluation. * EXIT statements normally use an [[IF...THEN]] statement to evaluate a program condition that would require the EXIT. -* To exit a program and allow the last program screen to be displayed with the message "Press any key to continue...", use [[END]]. +* To exit a program and allow the last program screen to be displayed with the message "Press any key to continue...", use [[END]]. * To exit the program immediately, use [[SYSTEM]]. +{{PageAvailability}} +* '''EXIT SELECT/CASE''' available with version 1.5. +* All other variants available in all versions of QB64. + + {{PageSeeAlso}} * [[_EXIT (function)]] * [[END]], [[SYSTEM]] * [[STOP]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/EXP.txt b/internal/help/EXP.txt index b8f6df041..e2f3c2c4d 100644 --- a/internal/help/EXP.txt +++ b/internal/help/EXP.txt @@ -7,17 +7,16 @@ The [[EXP]] math function calculates the exponential function ('''e''' raised to {{PageDescription}} * '''e''' is defined as the base of natural logarithms or as the limit of (1 + 1 / n) ^ n, as n goes to infinity. -* The {{Parameter|numericExpression}} must be less than or equal to '''88.02969''' or an [[ERROR Codes|"overflow" error]] will occur. +* The {{Parameter|numericExpression}} must be less than or equal to '''88.02969''' or an [[ERROR Codes|"overflow" error]] will occur. * Value returned is '''e''' to the exponent parameter ('''e = 2.718282''' approximately). * Values returned are [[SINGLE]] by default but will return [[DOUBLE]] precision if the {{Parameter|result}} is a variable of type [[DOUBLE]]. * Positive exponent values indicate the number of times to multiply '''e''' by itself. -* Negative exponent values indicate the number of times to divide by '''e'''. Example: <span style="font-family: Courier New, monospace, Courier; background: #dddddd">e<sup>-3</sup> = 1 / e<sup>3</sup> = 1 / (e * e * e)</span> +* Negative exponent values indicate the number of times to divide by '''e'''. Example: <span style="font-family: Courier New, monospace, Courier; background: #dddddd">e<sup>-3</sup> = 1 / e<sup>3</sup> = 1 / (e * e * e)</span> {{PageSeeAlso}} *[[LOG]] *[[Mathematical Operations]] -*[http://qb64.net/wiki/index.php?title=Mathematical_Operations#Derived_Mathematical_Functions Derived Trigonometric Functions] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Equal.txt b/internal/help/Equal.txt index b45385d46..542453fa3 100644 --- a/internal/help/Equal.txt +++ b/internal/help/Equal.txt @@ -1,7 +1,7 @@ The '''=''' condition symbol denotes that a value must equal another value for the condition to be True. -''Example usage:'' IF x [[=]] 320 THEN PRINT "Center of screen" +''Example usage:'' IF x [[=]] 320 THEN PRINT "Center of screen" * Statements will evaluate as True or -1 when two values are equal or False or 0 when not equal. @@ -11,10 +11,10 @@ The '''=''' condition symbol denotes that a value must equal another value for t ''See also:'' -* [[Not_Equal|<>]] -* [[Greater_Than|>]] +* [[Not_Equal|<>]] +* [[Greater_Than|>]] * [[Less_Than|<]] * [[Relational Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FIELD.txt b/internal/help/FIELD.txt index e71644a69..7d99cc3fd 100644 --- a/internal/help/FIELD.txt +++ b/internal/help/FIELD.txt @@ -2,16 +2,16 @@ The [[FIELD]] statement creates a [[STRING]] type definition for a [[RANDOM|rand {{PageSyntax}} -: [[FIELD]] [#]{{Parameter|fileNumber&}} {{Parameter|fieldWidth1%}} AS {{Parameter|variable1$}}[, {{Parameter|fieldWidthN%}} AS {{Parameter|variableN$}}] +: [[FIELD]] [#]{{Parameter|fileNumber&}}, {{Parameter|fieldWidth1%}} AS {{Parameter|variable1$}}[, {{Parameter|fieldWidthN%}} AS {{Parameter|variableN$}}] {{PageDescription}} * {{Parameter|fileNumber%}} is a file number used in the [[OPEN]] statement or a value from the [[FREEFILE]] function. -* Combined size of the {{Parameter|fieldWidth%}} parameters '''must not exceed the [[LEN]] = recordsize in the [[RANDOM]] [[OPEN]] statement''' or a [[ERROR Codes|"FIELD overflow" error]] will occur. +* Combined size of the {{Parameter|fieldWidth%}} parameters '''must not exceed the [[LEN]] = recordsize in the [[RANDOM]] [[OPEN]] statement''' or a [[ERROR Codes|"FIELD overflow" error]] will occur. * Variables are limited to [[STRING]] types. Use [[TYPE]] instead of FIELD if you want to use numerical values. * Once a [[FIELD]] is defined in a statement, [[GET]] can read and [[PUT]] can write data without placeholders or variables. * [[LSET]], [[RSET]], [[PRINT (file statement)|PRINT #]], [[PRINT USING (file statement)|PRINT # USING]], and [[WRITE (file statement)|WRITE #]] can be used to place characters in the file buffer before a [[PUT]]. -* All field definitions for a file are removed when the file is [[CLOSE|closed]] or [[RESET]] and all strings are set to null (""). +* All field definitions for a file are removed when the file is [[CLOSE|closed]] or [[RESET]] and all strings are set to null (""). * '''Do not re-assign a field defined variable value or use it in an [[INPUT]] statement if you want the variable to remain a field'''. @@ -28,12 +28,12 @@ The [[FIELD]] statement creates a [[STRING]] type definition for a [[RANDOM|rand {{Cl|DIM}} Client {{Cl|AS}} ClientType RecordLEN = {{Cl|LEN}}(Client) 'find the size of each TYPE record -{{Cl|OPEN}} "ADDRESS.DAT" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = RecordLEN +{{Cl|OPEN}} "ADDRESS.DAT" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = RecordLEN {{Cl|RESTORE}} ClientData 'restore to start of DATA record = 0 {{Cl|DO}} {{Cl|READ}} CName$, Address$, City$, State$, Zip$ 'read DATA - {{Cl|IF}} CName$ = "END" {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|IF}} CName$ = "END" {{Cl|THEN}} {{Cl|EXIT DO}} record = record + 1 'increment record number Client.CName = CName$ Client.Address = Address$ @@ -46,12 +46,12 @@ record = 0 {{Cl|END}} ClientData: - {{Cl|DATA}} "Bob White","104 Birdland Rd.","Bellview","PA","15236" - {{Cl|DATA}} "Ward Cleaver","123 W. Beaver St.","Beaver","PA","15255" - {{Cl|DATA}} "Elmer Fudd","45 Wabbit St.","Bethel Park","PA","15022" - {{Cl|DATA}} "Wyley Coyote","33 Roadrunner Ave.","Clairton","PA","15122" - {{Cl|DATA}} "Jim Morrison","19 Doorway Dr.","Belleview","PA","15236" - {{Cl|DATA}} "END",0,0,0,0 '' '' + {{Cl|DATA}} "Bob White","104 Birdland Rd.","Bellview","PA","15236" + {{Cl|DATA}} "Ward Cleaver","123 W. Beaver St.","Beaver","PA","15255" + {{Cl|DATA}} "Elmer Fudd","45 Wabbit St.","Bethel Park","PA","15022" + {{Cl|DATA}} "Wyley Coyote","33 Roadrunner Ave.","Clairton","PA","15122" + {{Cl|DATA}} "Jim Morrison","19 Doorway Dr.","Belleview","PA","15236" + {{Cl|DATA}} "END",0,0,0,0 '' '' {{CodeEnd}} '' '' Demo using the FIELD statement to read the file: @@ -59,7 +59,7 @@ Demo using the FIELD statement to read the file: {{Cl|CONST}} NM = 30, AD = 30, CT = 15, ST = 2, ZC = 5 ' Define field and record lengths with constants. {{Cl|CONST}} RLEN = NM + AD + CY + ST + ZC ' -{{Cl|OPEN}} "ADDRESS.DAT" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = RLEN +{{Cl|OPEN}} "ADDRESS.DAT" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = RLEN {{Cl|FIELD}} #1, NM {{Cl|AS}} CName$, AD {{Cl|AS}} Address$, CY {{Cl|AS}} City$, ST {{Cl|AS}} State$, ZC {{Cl|AS}} Zip$ {{Cl|FIELD}} #1, RLEN {{Cl|AS}} Clist$ 'define entire record @@ -67,7 +67,7 @@ Demo using the FIELD statement to read the file: 'Read file for zip codes from 15230 to 15239 . {{Cl|DO}} {{Cl|WHILE}} {{Cl|NOT}} {{Cl|EOF}}(1) ZipCheck$ = Zip$ 'read zip codes - {{Cl|IF}} (ZipCheck$ >= "15230" {{Cl|AND (boolean)|AND}} ZipCheck$ <= "15239") {{Cl|THEN}} + {{Cl|IF}} (ZipCheck$ >= "15230" {{Cl|AND (boolean)|AND}} ZipCheck$ <= "15239") {{Cl|THEN}} Info$ = Clist$ {{Cl|PRINT}} {{Cl|LEFT$}}(Info$, 30) 'read name string {{Cl|PRINT}} {{Cl|MID$}}(Info$, 31, 30) 'read address string @@ -87,4 +87,4 @@ Demo using the FIELD statement to read the file: * [[LSET]], [[RSET]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FILEATTR.txt b/internal/help/FILEATTR.txt deleted file mode 100644 index 0e2f52d23..000000000 --- a/internal/help/FILEATTR.txt +++ /dev/null @@ -1,37 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords currently not supported by QB64|not supported in QB64]].''' - ----- - -The [[FILEATTR]] function returns a file's current file mode or DOS handle. - - -{{PageSyntax}} -: {{Parameter|result%}} = [[FILEATTR]]({{Parameter|fileNumber%}}, {{Parameter|mode%}}) - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* {{Parameter|fileNumber%}} is the number assigned in the file's [[OPEN]] statement. -* {{Parameter|mode%}} specifies the type of information to return, which may have the following values -** {{Parameter|mode%}} = 1: returns the open mode with the following return values: -::{| border="2" cellpadding="1" -! Return || Open Mode -|- -|  1 ||  [[INPUT]] -|- -|  2 ||  [[OUTPUT]] -|- -|  4 ||  [[RANDOM]] -|- -|  8 ||  [[APPEND]] -|- -|  32 ||  [[BINARY]] -|} -** {{Parameter|mode%}} = 2: returns the [[DOS]] handle number of a file. - - -{{PageSeeAlso}} -* [[OPEN]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/FILES.txt b/internal/help/FILES.txt index 23481c62e..5c59b6aba 100644 --- a/internal/help/FILES.txt +++ b/internal/help/FILES.txt @@ -10,30 +10,30 @@ The [[FILES]] statement is used to print a list of files in the current director * {{Parameter|fileSpec$}} can use the * and ? wildcard specifications: ** '''*''' denotes one or more wildcard characters in a filename or path specification as any legal file name character(s). ** '''?''' denotes one wildcard letter in a filename or path specification as any legal filename character. -* If {{Parameter|fileSpec$}} is omitted, it is assumed to be '''"*.*"''' (all files and folders in the current directory). -* Illegal filename characters in '''QB64''' include * > < : " | \ / with any amount of dot extensions being allowed in Windows. -* FILES lists can make the screen roll up. Try using SHELL "DIR" with the /P option. [http://www.computerhope.com/dirhlp.htm DIR command]. +* If {{Parameter|fileSpec$}} is omitted, it is assumed to be '''"*.*"''' (all files and folders in the current directory). +* Illegal filename characters in '''QB64''' include * > < : " | \ / with any amount of dot extensions being allowed in Windows. +* FILES lists can make the screen roll up. Try using SHELL "DIR" with the /P option. [http://www.computerhope.com/dirhlp.htm DIR command]. -==QBasic/QuickBASIC== -* Illegal filename characters in QBasic included '''* ? , > < ; : " | \ / + [ ]''' and more than one dot extension in [http://www.computerhope.com/issues/ch000209.htm DOS]. +{{PageQBasic}} +* Illegal filename characters in QBasic included '''* ? , > < ; : " | \ / + [ ]''' and more than one dot extension in [http://www.computerhope.com/issues/ch000209.htm DOS]. {{PageExamples}} ''Example 1:'' Finding a list of all BAS files in the current folder. -{{CodeStart}}{{Cl|FILES}} "*.BAS" +{{CodeStart}}{{Cl|FILES}} "*.BAS" {{CodeEnd}} -<!-- broken link: <center>'''[http://i301.photobucket.com/albums/nn53/burger2227/FILESss.jpg Screenshot shows only the end of a long list of files]'''</center> --> +<!-- broken link: <center>'''[http://i301.photobucket.com/albums/nn53/burger2227/FILESss.jpg Screenshot shows only the end of a long list of files]'''</center> --> <!-- function obsoleted by _FILEEXISTS; function doesn't use the FILES statement and is not relevant in this context; may be moved to an exclusive page if desired; {{Parameter|Example 2:'' A function that verifies that a file exists if it is not empty. Note: This function will delete empty files. {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a file name: ", file$ +{{Cl|INPUT}} "Enter a file name: ", file$ {{Cl|IF}} Exist%(file$) {{Cl|THEN}} {{Cl|OPEN}} file$ {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1: found% = -1 'function call demo {{Cl|CLOSE}} #1 -{{Cl|IF}} found% THEN {{Cl|PRINT}} "File exists!" {{Cl|ELSE}} {{Cl|PRINT}} "File not found!" +{{Cl|IF}} found% THEN {{Cl|PRINT}} "File exists!" {{Cl|ELSE}} {{Cl|PRINT}} "File not found!" {{Cl|END}} {{Cl|FUNCTION}} Exist% (filename$) @@ -43,20 +43,20 @@ f% = {{Cl|FREEFILE}} {{Cl|CLOSE}} #f% {{Cl|END FUNCTION}} '' '' {{CodeEnd}}{{small|Code by Ted Weissgerber}}}} ---> +--> ==Alternative file list solutions== ''Alternative 1:'' The DIR$ function adapted from PDS (7.1) returns a filename or a list when more than one exist. The file spec can use a path and/or wildcards. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 2 {{Cl|PRINT}} - {{Cl|LINE INPUT}} "Enter a file spec: ", spec$ + {{Cl|LINE INPUT}} "Enter a file spec: ", spec$ file$ = DIR$(spec$) 'use a file spec ONCE to find the last file name listed {{Cl|PRINT}} DIRCount%, file$, 'function can return the file count using {{Cl|SHARED}} variable - {{Cl|IF...THEN|IF}} DIRCount% > 1 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} DIRCount% > 1 {{Cl|THEN}} DO K$ = {{Cl|INPUT$}}(1) - file$ = DIR$("") 'use an empty string parameter to return a list of files! + file$ = DIR$("") 'use an empty string parameter to return a list of files! {{Cl|PRINT}} file$, {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|LEN}}(file$) = 0 'file list ends with an empty string {{Cl|END IF}} @@ -65,13 +65,13 @@ f% = {{Cl|FREEFILE}} {{Cl|END}} {{Cl|FUNCTION}} DIR$ (spec$) -{{Cl|CONST}} TmpFile$ = "DIR$INF0.INF", ListMAX% = 500 'change maximum to suit your needs +{{Cl|CONST}} TmpFile$ = "DIR$INF0.INF", ListMAX% = 500 'change maximum to suit your needs {{Cl|SHARED}} DIRCount% 'returns file count if desired {{Cl|STATIC}} Ready%, Index%, DirList$() {{Cl|IF...THEN|IF}} {{Cl|NOT}} Ready% {{Cl|THEN}} {{Cl|REDIM}} DirList$(ListMAX%): Ready% = -1 '{{Cl|DIM}} array first use -{{Cl|IF...THEN|IF}} spec$ > "" {{Cl|THEN}} 'get file names when a spec is given - {{Cl|SHELL}} {{Cl|_HIDE}} "DIR " + spec$ + " /b > " + TmpFile$ - Index% = 0: DirList$(Index%) = "": ff% = {{Cl|FREEFILE}} +{{Cl|IF...THEN|IF}} spec$ > "" {{Cl|THEN}} 'get file names when a spec is given + {{Cl|SHELL}} {{Cl|_HIDE}} "DIR " + spec$ + " /b > " + TmpFile$ + Index% = 0: DirList$(Index%) = "": ff% = {{Cl|FREEFILE}} {{Cl|OPEN}} TmpFile$ {{Cl|FOR...NEXT|FOR}} {{Cl|APPEND}} {{Cl|AS}} #ff% size& = {{Cl|LOF}}(ff%) {{Cl|CLOSE}} #ff% @@ -84,19 +84,18 @@ f% = {{Cl|FREEFILE}} DIRCount% = Index% '{{Cl|SHARED}} variable can return the file count {{Cl|CLOSE}} #ff% {{Cl|KILL}} TmpFile$ -{{Cl|ELSE}} {{Cl|IF...THEN|IF}} Index% > 0 {{Cl|THEN}} Index% = Index% - 1 'no spec sends next file name +{{Cl|ELSE}} {{Cl|IF...THEN|IF}} Index% > 0 {{Cl|THEN}} Index% = Index% - 1 'no spec sends next file name {{Cl|END IF}} DIR$ = DirList$(Index%) {{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -:''Explanation:'' The function will verify that a file exists (even if it is empty) by returning its name, or it returns an empty string if no file exists. It can return a list of file names by using an empty string parameter("") after sending a wildcard spec to get the first file name. The number of file names found is returned by using the SHARED variable, '''DIRCount%'''. Unlike the PDS DIR$ function, '''it must use an empty string parameter as QB64 doesn't support optional parameters.''' The function does not delete empty files. +:''Explanation:'' The function will verify that a file exists (even if it is empty) by returning its name, or it returns an empty string if no file exists. It can return a list of file names by using an empty string parameter("") after sending a wildcard spec to get the first file name. The number of file names found is returned by using the SHARED variable, '''DIRCount%'''. Unlike the PDS DIR$ function, '''it must use an empty string parameter as QB64 doesn't support optional parameters.''' The function does not delete empty files. ''Alternative 2:'' -* The member-contributed [[FILELIST$]] function uses the mouse and does not affect your program screens. It can verify that a file name exists or display a list of long and short file names to choose from. It also avoids program errors when a file name does not exist. <!-- broken link: [http://i301.photobucket.com/albums/nn53/burger2227/FILE-ss2.jpg FILELIST$ function screenshot] --> +* The member-contributed [[FILELIST$]] function uses the mouse and does not affect your program screens. It can verify that a file name exists or display a list of long and short file names to choose from. It also avoids program errors when a file name does not exist. -<!-- The referenced library is not present in this link anymore ''See Library:'' File Exist C++ Function that does not create a temp file. [http://qb64.net/wiki/index.php?title=C_Libraries#File_Exist FileExist Function] --> {{PageSeeAlso}} * [[SHELL]], [[SCREEN (function)]] {{text|(See Example 3)}} @@ -104,10 +103,9 @@ DIR$ = DirList$(Index%) * [[RMDIR]], [[KILL]] * [[_CWD$]], [[_STARTDIR$]] * [[_FILEEXISTS]], [[_DIREXISTS]] -* [[DOS]], [[Batch Files]], [[DOS#DIR|DIR]] * [[Windows_Libraries#File_Exist|Windows File Exist Library]] * [[Windows_Libraries#File_Open_and_Save_Dialog|Windows Open and Save Dialog Boxes]] * [[$CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FIX.txt b/internal/help/FIX.txt index e5a70da5e..9b34f40bb 100644 --- a/internal/help/FIX.txt +++ b/internal/help/FIX.txt @@ -5,7 +5,7 @@ The [[FIX]] function rounds a numerical value to the next whole number closest t : {{Parameter|result}} = [[FIX]]({{Parameter|expression}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|expression}} is any [[Data types|type]] of literal or variable numerical value or mathematical calculation. @@ -56,4 +56,4 @@ The [[FIX]] function rounds a numerical value to the next whole number closest t * [[/|Normal division]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FOR...NEXT.txt b/internal/help/FOR...NEXT.txt index b03e34ebd..5c7767f12 100644 --- a/internal/help/FOR...NEXT.txt +++ b/internal/help/FOR...NEXT.txt @@ -8,7 +8,7 @@ The [[FOR]] statement creates a counter loop using specified start and stop nume : [[NEXT]] [{{Parameter|counterVariable}}] -{{Parameters}} +{{PageParameters}} * The [[FOR]] {{Parameter|counterVariable}} name is required to define the counter span and may also be used after the NEXT keyword. * The {{Parameter|startValue}} [[TO]] {{Parameter|stopValue}} can be any literal or variable numerical type. Both values are required. * [[STEP]] can be used for a loop {{Parameter|increment}} other than the default ''plus 1 and can be any positive or negative literal or variable numerical value as long as the STEP value corresponds to the loop's {{Parameter|startValue}} and {{Parameter|stopValue}}. @@ -24,6 +24,7 @@ The [[FOR]] statement creates a counter loop using specified start and stop nume ** If {{Parameter|startValue}} is more than {{Parameter|stopValue}}, use a negative [[STEP]] interval or the loop will not be executed. ** The [[STEP]] {{Parameter|increment}} value cannot be changed inside of the loop. * Use '''[[EXIT]] FOR''' to leave a FOR loop early when a certain condition is met inside of the loop. +* Use [[_CONTINUE]] to skip the remaining lines in the current iteration of a FOR/NEXT block without leaving the loop. * The [[NEXT]] counter variable name is not required. NEXT loop increments can be separated by colons in nested FOR loops. * '''NOTE: When the FOR loop is exited after the {{Parameter|stopValue}} is reached, the {{Parameter|counterVariable}}'s value will be {{Parameter|stopValue}} + 1 (or {{Parameter|stopValue}} + {{Parameter|increment}}) * '''Beware of FOR loop counts that exceed the {{Parameter|counterVariable}} type limits and may repeat without error in QB64.''' @@ -37,7 +38,7 @@ FOR i = 10 TO 0 {{Cl|STEP}} -2 totaleven% = i + totaleven% PRINT totaleven%; NEXT -PRINT "After loop, i ="; i '' '' +PRINT "After loop, i ="; i '' '' {{CodeEnd}} {{OutputStart}}10 18 24 28 30 30 After loop, i = -2 {{OutputEnd}} @@ -46,26 +47,23 @@ PRINT "After loop, i ="; i '' '' ''Example 2:'' How an entire FOR loop block is ignored when the start and stop limits do not match the default or [[STEP]] increment. {{CodeStart}} '' '' -{{Cl|PRINT}} "hi" +{{Cl|PRINT}} "hi" {{Cl|FOR...NEXT|FOR}} i = 10 {{Cl|TO}} 1 'requires a negative {{Cl|STEP}} value - {{Cl|PRINT}} "lo" + {{Cl|PRINT}} "lo" {{Cl|NEXT}} -{{Cl|PRINT}} "bye" +{{Cl|PRINT}} "bye" {{CodeEnd}} {{OutputStart}}hi bye {{OutputEnd}} -<!-- removed redundant example as Example 2 above shows exactly the same technique -''See Example:'' -* [http://qb64.net/wiki/index.php?title=Controller_Devices#Example Example that shows how ignoring bad FOR loops can work to a program's advantage without errors.] --> - {{PageSeeAlso}} * [[STEP]] * [[DO...LOOP]], [[WHILE...WEND]] +* [[EXIT]], [[_CONTINUE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FOR_(file_statement).txt b/internal/help/FOR_(file_statement).txt index bb5a5f750..0ed1a3411 100644 --- a/internal/help/FOR_(file_statement).txt +++ b/internal/help/FOR_(file_statement).txt @@ -23,21 +23,21 @@ {{Cl|CLS}} -{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 -{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst didn't exist:" -{{Cl|PRINT (file statement)|PRINT}} #1, "A new file was created named test.tst and then deleted." -{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst did exist:" -{{Cl|PRINT (file statement)|PRINT}} #1, "It was overwritten with this and deleted." +{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 +{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst didn't exist:" +{{Cl|PRINT (file statement)|PRINT}} #1, "A new file was created named test.tst and then deleted." +{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst did exist:" +{{Cl|PRINT (file statement)|PRINT}} #1, "It was overwritten with this and deleted." {{Cl|CLOSE}} #1 -{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 +{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 {{Cl|DO}} {{Cl|UNTIL}} {{Cl|EOF}}(1) {{Cl|INPUT (file statement)|INPUT}} #1, a$ {{Cl|PRINT}} a$ {{Cl|LOOP}} {{Cl|CLOSE}} #1 -{{Cl|KILL}} "test.tst" +{{Cl|KILL}} "test.tst" {{Cl|END}} @@ -55,4 +55,4 @@ It was overwritten with this and deleted. * [[OPEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FRE.txt b/internal/help/FRE.txt deleted file mode 100644 index 1cbf9f0d7..000000000 --- a/internal/help/FRE.txt +++ /dev/null @@ -1,32 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords currently not supported by QB64|not supported in QB64]].''' ----- -The [[FRE]] function returns the amount of memory available in bytes to running programs. - - -{{PageSyntax}} -: {{Parameter|memory}} = [[FRE]]({{Parameter|stringExpression$}}) -: {{Parameter|memory}} = [[FRE]]({{Parameter|numericalExpression}}) - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* Any {{Parameter|stringExpression$}} returns the size, in bytes, of free string storage space. -** Also compacts the free string storage to a single block of memory. -* {{Parameter|numericalExpression}} can be: -** 0: returns the same value as using a string expression above. -** -1: returns the size of the largest non-string array in bytes that could be dimensioned. -** -2: returns the amount of stack space, in bytes, available to a running program. -** Any other numerical value returns the size of the next block of string memory storage space. - - -{{PageExamples}} -{{CodeStart}} '' '' -' {{Cl|$DYNAMIC}} -PRINT "Sizes in bytes before dimensioning arrays: "; {{Cl|FRE}}(""), {{Cl|FRE}}(0), {{Cl|FRE}}(-1), {{Cl|FRE}}(-2) -{{Cl|DIM}} Array(100, 100), Text$(5000) -PRINT "Sizes in bytes after dimensioning arrays: "; {{Cl|FRE}}(""), {{Cl|FRE}}(0), {{Cl|FRE}}(-1), {{Cl|FRE}} (-2) '' '' -{{CodeEnd}} -''Notes:'' Sizes returned may vary by computer used. FRE(-2) must be used in a running program. - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/FREEFILE.txt b/internal/help/FREEFILE.txt index c1cff4745..2a84dcf66 100644 --- a/internal/help/FREEFILE.txt +++ b/internal/help/FREEFILE.txt @@ -11,11 +11,11 @@ The [[FREEFILE]] function returns a [[LONG]] value that is an unused file access * File numbers [[CLOSE]]d are made available to [[FREEFILE]] for reuse immediately. * [[FREEFILE]] returns are normally sequential starting with 1. Only file numbers in use will not be returned. * [[OPEN]] each file number after each [[FREEFILE]] return or the values returned may be the same. -<!-- redundant * [[OPEN COM]] statements cannot use any number assigned to files already OPEN. --> +<!-- redundant * [[OPEN COM]] statements cannot use any number assigned to files already OPEN. --> {{PageSeeAlso}} * [[GET]], [[PUT]], [[CLOSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/FUNCTION.txt b/internal/help/FUNCTION.txt index 764f6ece6..8a6f0bafb 100644 --- a/internal/help/FUNCTION.txt +++ b/internal/help/FUNCTION.txt @@ -19,40 +19,23 @@ A [[FUNCTION]] block statement is used to create a function procedure to return * All [[$DYNAMIC|dynamic]] variable values return to 0 or null strings when the procedure is exited except when a variable or the entire function is [[STATIC]]. This can save program memory as all [[$DYNAMIC|dynamic]] memory used in a FUNCTION is released on procedure exit. * FUNCTION procedure code can use [[GOSUB]] and [[GOTO]] line numbers or labels inside of the procedure when necessary. * For early function exits use [[EXIT]] [[FUNCTION]] before [[END FUNCTION]] and [[GOSUB]] procedures using [[RETURN]]. -* '''QB64 ignores all procedural [[DECLARE]] statements.''' Define all ''parameter'' [[Data types|types]] in the FUNCTION procedure. +* '''QB64 ignores all procedural DECLARE statements.''' Define all ''parameter'' [[Data types|types]] in the FUNCTION procedure. * '''Images are not deallocated when the [[SUB]] or [[FUNCTION]] they are created in ends. Free them with [[_FREEIMAGE]].''' -* The [[IDE]] can create the FUNCTION and END FUNCTION lines for you. Use the ''New FUNCTION...'' option in the Edit Menu. A box will come up for you to enter a name for the FUNCTION. Enter all code between the FUNCTION and [[END FUNCTION]] lines. +* The IDE can create the FUNCTION and END FUNCTION lines for you. Use the ''New FUNCTION...'' option in the Edit Menu. A box will come up for you to enter a name for the FUNCTION. Enter all code between the FUNCTION and [[END FUNCTION]] lines. -==QBasic/QuickBASIC== -* Once a FUNCTION was created and used, the QBasic IDE would [[DECLARE]] it when the file was saved. '''QB64 doesn't need these declarations.''' +{{PageQBasic}} +* Once a FUNCTION was created and used, the QBasic IDE would DECLARE it when the file was saved. '''QB64 doesn't need these declarations.''' * QBasic's IDE could place a [[DEFINT]], [[DEFSNG]], [[DEFLNG]], [[DEFDBL]] or [[DEFSTR]] statement before the FUNCTION line if it is used in the main module. It may even be the wrong variable type needed. * QBasic allowed programmers to add DATA fields anywhere because the IDE separated the main code from other procedures. {{PageExamples}} -''Example 1:'' A simple function that returns the current path. Place [[FUNCTION]] or [[SUB]] procedures after the program [[END]]. +''Example 1:'' Returns a [[LONG]] array byte size required for a certain sized graphics screen pixel area [[GET (graphics statement)|GET]]. {{CodeStart}} '' '' -{{Cl|PRINT}} "Current path = "; PATH$ -{{Cl|END}} - -{{Cl|FUNCTION}} PATH$ - f% = {{Cl|FREEFILE}} - file$ = "D0Spath.inf" 'file name uses a zero to prevent an overwrite of existing file name - {{Cl|SHELL}} {{Cl|_HIDE}} "CD > " + file$ 'send screen information to a created text file - {{Cl|OPEN}} file$ {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #f% 'file should exist with one line of text - {{Cl|LINE INPUT (file statement)|LINE INPUT}} #f%, PATH$ 'read file path text to function name - {{Cl|CLOSE}} #f% - {{Cl|KILL}} file$ -{{Cl|END FUNCTION}} '' '' -{{CodeEnd}} - - -''Example 2:'' Returns a [[LONG]] array byte size required for a certain sized graphics screen pixel area [[GET (graphics statement)|GET]]. -{{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a screen mode: ", mode% -{{Cl|INPUT}} "Enter image width: ", wide& -{{Cl|INPUT}} "Enter image depth: ", deep& +{{Cl|INPUT}} "Enter a screen mode: ", mode% +{{Cl|INPUT}} "Enter image width: ", wide& +{{Cl|INPUT}} "Enter image depth: ", deep& IntegerArray& = ImageBufferSize&(wide&, deep&, mode%) \ 2 ' returns size of an {{Cl|INTEGER}} array. {{Cl|PRINT}} IntegerArray& {{Cl|END}} @@ -75,9 +58,8 @@ IntegerArray& = ImageBufferSize&(wide&, deep&, mode%) \ 2 ' retu {{PageSeeAlso}} * [[SUB]], [[SCREEN (statement)]] -* [[DEF FN]] * [[EXIT]] (statement), [[END]] * [[_EXIT (function)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/GET.txt b/internal/help/GET.txt index 5c4774a54..de7b66b9a 100644 --- a/internal/help/GET.txt +++ b/internal/help/GET.txt @@ -10,7 +10,7 @@ The [[GET #]] statement reads data from a file or port device by bytes or record * The [[INTEGER]] or [[LONG]] byte {{Parameter|position}} in a [[BINARY]] file or the record {{Parameter|position}} in a [[RANDOM]] file '''must be greater than zero'''. * The {{Parameter|position}} can be omitted if the GET operations are consecutive based on the {{Parameter|targetVariable}} [[TYPE]] byte size. * The {{Parameter|targetVariable}} [[Data types|type]] or [[FIELD]] ''variable'' size determines the byte size and the next {{Parameter|position}} in the file. -* The first byte position in a file is 1. <!-- giving the previous information is enough: This may require adding one to an offset value when documentation uses that position as 0. --> +* The first byte position in a file is 1. <!-- giving the previous information is enough: This may require adding one to an offset value when documentation uses that position as 0. --> * GET does not require a byte or record {{Parameter|position}} or {{Parameter|targetVariable}} (or comma) when using a [[FIELD]] statement. * '''QB64''' can [[PUT]] the entire contents of an array to a file and later GET those contents to a {{Parameter|targetArray()}} (include brackets). * '''GET may ignore the end of a file and return bad data. If the [[EOF]] function returns -1 after a GET operation, it indicates that the data has ended.''' @@ -32,12 +32,12 @@ The [[GET #]] statement reads data from a file or port device by bytes or record {{Cl|DIM}} record {{Cl|AS}} variabletype {{Cl|DIM}} newrec {{Cl|AS}} variabletype -file$ = "testrand.inf" '<<<< filename may overwrite existing file +file$ = "testrand.inf" '<<<< filename may overwrite existing file number% = 1 '<<<<<<<<<< record number to write cannot be zero RecordLEN% = {{Cl|LEN}}(record) -{{Cl|PRINT}} RecordLEN%; "bytes" +{{Cl|PRINT}} RecordLEN%; "bytes" record.x = 255 -record.y = "Hello world!" +record.y = "Hello world!" record.z = 65535 {{Cl|PRINT}} record.x, record.y, record.z @@ -47,7 +47,7 @@ record.z = 65535 {{Cl|OPEN}} file$ {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #2 {{Cl|LEN}} = RecordLEN% NumRecords% = {{Cl|LOF}}(2) \ RecordLEN% -PRINT NumRecords%; "records" +PRINT NumRecords%; "records" {{Cl|GET}} #2, NumRecords% , newrec 'GET last record available {{Cl|CLOSE}} #2 @@ -73,7 +73,7 @@ PRINT NumRecords%; "records" {{Cl|NEXT}} showme 'display array contents -{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 +{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 {{Cl|PUT}} #1, , array() @@ -81,7 +81,7 @@ showme 'display array contents showme {{Cl|CLOSE}} #1 -{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #2 +{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #2 {{Cl|GET}} #2, , array() {{Cl|CLOSE}} #2 showme 'display array after transfer from file @@ -92,7 +92,7 @@ showme 'display array after transfer from file {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 100 {{Cl|PRINT}} array(i); {{Cl|NEXT}} -{{Cl|PRINT}} "done" +{{Cl|PRINT}} "done" {{Cl|END SUB}} '' '' {{CodeEnd}} : ''Note:'' Use empty brackets in QB64 when using [[GET]] to create an array or [[PUT]] to create a [[BINARY]] data file. @@ -105,4 +105,4 @@ showme 'display array after transfer from file * [[LEN]], [[LOF]], [[EOF]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/GET_(TCP%2FIP_statement).txt b/internal/help/GET_(TCP%2FIP_statement).txt index a637a1883..dc664b1be 100644 --- a/internal/help/GET_(TCP%2FIP_statement).txt +++ b/internal/help/GET_(TCP%2FIP_statement).txt @@ -41,11 +41,10 @@ {{PageSeeAlso}} -* [[PUT (TCP/IP statement)]], [[INPUT (TCP/IP statement)]] +* [[PUT (TCP/IP statement)]] * [[_OPENCLIENT]], [[_OPENHOST]] * [[_OPENCONNECTION]], [[GET|GET #]] -* [[IP Configuration]] -* [https://curl.haxx.se/ cURL], [[WGET]] (HTTP and FTP file transfer) +* [https://curl.haxx.se/ cURL] (HTTP and FTP file transfer) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/GET_(graphics_statement).txt b/internal/help/GET_(graphics_statement).txt index c699cd20d..20b9b499e 100644 --- a/internal/help/GET_(graphics_statement).txt +++ b/internal/help/GET_(graphics_statement).txt @@ -1,6 +1,6 @@ The [[GET (graphics statement)|GET]] statement is used in graphics to store a box area image of the screen into an [[INTEGER]] array. -==Legacy support== +{{PageLegacySupport}} * '''QB64 can manipulate parts of an image using [[_PUTIMAGE]]. For that reason, GET isn't recommended practice anymore and is supported to maintain compatibility with legacy code.''' @@ -8,7 +8,7 @@ The [[GET (graphics statement)|GET]] statement is used in graphics to store a bo : [[GET]] [STEP] ({{Parameter|column1}}, {{Parameter|row1}})-[STEP]({{Parameter|column2}}, {{Parameter|row2}}), {{Parameter|array}}([{{Parameter|index}}])[, {{Parameter|offscreenColor}}] -{{Parameters}} +{{PageParameters}} * ''column'' and ''row'' [[INTEGER]] coordinates for the box area must be on the screen except when using an ''offscreenColor''. * [[INTEGER]] array sizes must be large enough (use width * height of the box area + 4) to hold the data or an error will occur. * The [[arrays|array]] ''index'' offset is optional. If the offset is zero the brackets may be empty. @@ -30,7 +30,7 @@ The [[GET (graphics statement)|GET]] statement is used in graphics to store a bo * '''[[PUT]] and [[GET]] file statements can also write and read image array data using [[BINARY]] files instead of using [[BSAVE]] or [[BLOAD]].''' -==QBasic/QuickBASIC== +{{PageQBasic}} * SCREEN 12 could only GET 1/3 of a full SCREEN 12 image. Rows would increment 160 each GET. '''QB64''' can save entire screen at once. @@ -41,13 +41,13 @@ The [[GET (graphics statement)|GET]] statement is used in graphics to store a bo {{Cl|DIM}} BG(300), Box(300), SC(127) ' BG holds background images. Box holds the Box image. {{Cl|SCREEN (statement)|SCREEN}} 13 ' graphic coordinate minimums are 0 to 319 column or 199 row maximums. ' set up screen background - {{Cl|COLOR}} 4: {{Cl|LOCATE}} 10, 5: {{Cl|PRINT}} "Multikey Keyboard input routine" - {{Cl|COLOR}} 10: {{Cl|LOCATE}} 12, 4: {{Cl|PRINT}} "Use the arrow keys to move the box." - {{Cl|LOCATE}} 13, 4: {{Cl|PRINT}} "Note that you can press two or more" - {{Cl|LOCATE}} 14, 4: {{Cl|PRINT}} "keys at once for diagonal movement!" - {{Cl|COLOR}} 14: {{Cl|LOCATE}} 16, 4: {{Cl|PRINT}} " Also demonstrates how {{Cl|GET (graphics statement)|GET}} and PUT " - {{Cl|LOCATE}} 17, 4: {{Cl|PRINT}} "are used to preserve the background." - {{Cl|COLOR}} 11: {{Cl|LOCATE}} 20, 11: {{Cl|PRINT}} "Press [Esc] to quit" + {{Cl|COLOR}} 4: {{Cl|LOCATE}} 10, 5: {{Cl|PRINT}} "Multikey Keyboard input routine" + {{Cl|COLOR}} 10: {{Cl|LOCATE}} 12, 4: {{Cl|PRINT}} "Use the arrow keys to move the box." + {{Cl|LOCATE}} 13, 4: {{Cl|PRINT}} "Note that you can press two or more" + {{Cl|LOCATE}} 14, 4: {{Cl|PRINT}} "keys at once for diagonal movement!" + {{Cl|COLOR}} 14: {{Cl|LOCATE}} 16, 4: {{Cl|PRINT}} " Also demonstrates how {{Cl|GET (graphics statement)|GET}} and PUT " + {{Cl|LOCATE}} 17, 4: {{Cl|PRINT}} "are used to preserve the background." + {{Cl|COLOR}} 11: {{Cl|LOCATE}} 20, 11: {{Cl|PRINT}} "Press [Esc] to quit" x = 150: y = 50: PX = x: PY = y ' actual box starting position {{Cl|GET (graphics statement)|GET}} (x, y)-(x + 15, y + 15), BG ' {{Cl|GET (graphics statement)|GET}} original BG at start box position @@ -60,14 +60,14 @@ The [[GET (graphics statement)|GET]] statement is used in graphics to store a bo a$ = {{Cl|INKEY$}} ' So the keyboard buffer won't get full code% = {{Cl|INP}}({{Cl|&H}}60) ' Get keyboard scan code from port 96 {{Cl|IF...THEN|IF}} code% < 128 {{Cl|THEN}} SC(code%) = 1 {{Cl|ELSE}} SC(code% - 128) = 0 'true/false values to array - {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|TIMER}} > t!' loop until one tick has passed + {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|TIMER}} > t!' loop until one tick has passed PX = x: PY = y ' previous coordinates {{Cl|IF...THEN|IF}} SC(75) = 1 {{Cl|THEN}} x = x - 5: {{Cl|IF...THEN|IF}} x < 0 {{Cl|THEN}} x = 0 - {{Cl|IF...THEN|IF}} SC(77) = 1 {{Cl|THEN}} x = x + 5: {{Cl|IF...THEN|IF}} x > 304 {{Cl|THEN}} x = 304 + {{Cl|IF...THEN|IF}} SC(77) = 1 {{Cl|THEN}} x = x + 5: {{Cl|IF...THEN|IF}} x > 304 {{Cl|THEN}} x = 304 {{Cl|IF...THEN|IF}} SC(72) = 1 {{Cl|THEN}} y = y - 5: {{Cl|IF...THEN|IF}} y < 0 {{Cl|THEN}} y = 0 - {{Cl|IF...THEN|IF}} SC(80) = 1 {{Cl|THEN}} y = y + 5: {{Cl|IF...THEN|IF}} y > 184 {{Cl|THEN}} y = 184 - {{Cl|IF...THEN|IF}} x <> PX {{Cl|OR (boolean)|OR}} y <> PY {{Cl|THEN}} ' look for a changed coordinate value + {{Cl|IF...THEN|IF}} SC(80) = 1 {{Cl|THEN}} y = y + 5: {{Cl|IF...THEN|IF}} y > 184 {{Cl|THEN}} y = 184 + {{Cl|IF...THEN|IF}} x <> PX {{Cl|OR (boolean)|OR}} y <> PY {{Cl|THEN}} ' look for a changed coordinate value {{Cl|WAIT}} 936, 8: {{Cl|PUT (graphics statement)|PUT}}(PX, PY), BG, {{Cl|PSET}} ' replace previous BG first {{Cl|GET (graphics statement)|GET}} (x, y)-(x + 15, y + 15), BG ' {{Cl|GET (graphics statement)|GET}} BG at new position before box is set {{Cl|PUT (graphics statement)|PUT}}(x, y), Box, {{Cl|PSET}} ' PUT box image at new position @@ -106,4 +106,4 @@ a& = {{Cl|_NEWIMAGE}}(800, 600, 13) 'larger surface a& emulates scre * [[Bitmaps]], [[GET and PUT Demo]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/GOSUB.txt b/internal/help/GOSUB.txt index 84b533724..6ce672c65 100644 --- a/internal/help/GOSUB.txt +++ b/internal/help/GOSUB.txt @@ -7,24 +7,24 @@ {{PageDescription}} * Use [[RETURN]] in a sub procedure to return to the next line of code after the original [[GOSUB]] call. [[END]] or [[SYSTEM]] can also be used to end program. -<!-- needs clarification: * A procedure loop may be used to return automatically instead of using return. --> +<!-- needs clarification: * A procedure loop may be used to return automatically instead of using return. --> * GOSUB and GOTO can be used '''within''' [[SUB]] or [[FUNCTION]] procedures, but cannot refer to a label located outside the procedure. -==QBasic/QuickBASIC== -* Too many GOSUBs without a [[RETURN]] can eventually cause "Out of Stack Errors" in QBasic as each GOSUB uses memory to store the location to return to. Each [[RETURN]] frees the memory of the GOSUB it returns to. +{{PageQBasic}} +* Too many GOSUBs without a [[RETURN]] can eventually cause "Out of Stack Errors" in QBasic as each GOSUB uses memory to store the location to return to. Each [[RETURN]] frees the memory of the GOSUB it returns to. {{PageExamples}} ''Example:'' Simple usage of GOSUB {{CodeStart}} -{{Cl|PRINT}} "1. It goes to the subroutine." +{{Cl|PRINT}} "1. It goes to the subroutine." {{Cl|GOSUB}} subroutine -{{Cl|PRINT}} "3. And it returns." +{{Cl|PRINT}} "3. And it returns." {{Cl|END}} subroutine: -{{Cl|PRINT}} "2. It is at the subroutine." +{{Cl|PRINT}} "2. It is at the subroutine." {{Cl|RETURN}} {{CodeEnd}} @@ -43,17 +43,17 @@ subroutine: start: a = a + 1 -{{Cl|IF...THEN|IF}} a = 1 {{Cl|THEN}} {{Cl|GOSUB}} here: {{Cl|PRINT}} "It returned to IF a = 1": {{Cl|END}} -{{Cl|IF...THEN|IF}} a = 2 {{Cl|THEN}} {{Cl|GOSUB}} there: {{Cl|PRINT}} "It returned to IF a = 2": {{Cl|RETURN}} +{{Cl|IF...THEN|IF}} a = 1 {{Cl|THEN}} {{Cl|GOSUB}} here: {{Cl|PRINT}} "It returned to IF a = 1": {{Cl|END}} +{{Cl|IF...THEN|IF}} a = 2 {{Cl|THEN}} {{Cl|GOSUB}} there: {{Cl|PRINT}} "It returned to IF a = 2": {{Cl|RETURN}} here: -{{Cl|PRINT}} "It went here." +{{Cl|PRINT}} "It went here." {{Cl|GOTO}} start there: -{{Cl|PRINT}} "It went there." +{{Cl|PRINT}} "It went there." {{Cl|RETURN}} {{CodeEnd}} {{small|Code by Cyperium}} @@ -63,7 +63,7 @@ It went there. It returned to IF a = 2 It returned to IF a = 1 {{OutputEnd}} -''Explanation:'' When a = 1 it uses GOSUB to go to "here:", then it uses GOTO to go back to "start:". a is increased by one so when a = 2 it uses GOSUB to go to "there:", and uses RETURN to go the last GOSUB (which is on the IF a = 2 line), it then encounters another RETURN which makes it return to the first GOSUB call we used on the IF a = 1 line. +''Explanation:'' When a = 1 it uses GOSUB to go to "here:", then it uses GOTO to go back to "start:". a is increased by one so when a = 2 it uses GOSUB to go to "there:", and uses RETURN to go the last GOSUB (which is on the IF a = 2 line), it then encounters another RETURN which makes it return to the first GOSUB call we used on the IF a = 1 line. {{PageSeeAlso}} @@ -74,4 +74,4 @@ It returned to IF a = 1 * [[Line number]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/GOTO.txt b/internal/help/GOTO.txt index 0c01522a9..950aad0b7 100644 --- a/internal/help/GOTO.txt +++ b/internal/help/GOTO.txt @@ -5,12 +5,14 @@ The [[GOTO]] statement sends the procedure to a line label or a line number in t : [[GOTO]] {''lineNumber''|''lineLabel''} -'''''IF''' Syntax:'' +[[IF]] Syntax:'' : IF condition [[GOTO]] {''lineNumber''|''lineLabel''} +: IF condition THEN [[GOTO]] {''lineNumber''|''lineLabel''} +: IF condition THEN ''lineNumber'' ' GOTO may be omitted when line numbers are used {{PageDescription}} -* ''lineNumber'' or ''lineLabel'' must already exist or an [[IDE]] status error will be displayed until it is created. +* ''lineNumber'' or ''lineLabel'' must already exist or an IDE status error will be displayed until it is created. * Can be used in [[SUB]] or [[FUNCTION]] procedures using their own line labels or numbers. * The frequent use of GOTO statements can become confusing when trying to follow the code and it could also cause endless loops. * [[GOTO]] is an easy trap for new programmers. Use loops instead when possible. @@ -19,11 +21,11 @@ The [[GOTO]] statement sends the procedure to a line label or a line number in t {{PageExamples}} ''Example:'' {{CodeStart}} '' '' -1 {{Cl|PRINT}} "first line": {{Cl|GOTO}} gohere -2 {{Cl|PRINT}} "second line": {{Cl|GOTO}} 3 +1 {{Cl|PRINT}} "first line" : {{Cl|GOTO}} gohere +2 {{Cl|PRINT}} "second line": {{Cl|GOTO}} 3 gohere: -{{Cl|PRINT}} "third line" +{{Cl|PRINT}} "third line" {{Cl|GOTO}} 2 3 {{Cl|END}} '' '' @@ -34,7 +36,7 @@ third line second line {{OutputEnd}} -:''Explanation:'' After it prints "first line" it goes to the line label "gohere" where it prints "third line", then it goes to the line that is numbered "2" and prints "second line" and goes to line number 3 and an [[END]] statement which ends the program. +:''Explanation:'' After it prints "first line" it goes to the line label "gohere" where it prints "third line", then it goes to the line that is numbered "2" and prints "second line" and goes to line number 3 and an [[END]] statement which ends the program. {{PageSeeAlso}} @@ -45,4 +47,4 @@ second line * [[Line number|Line numbers and labels]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Greater_Than.txt b/internal/help/Greater_Than.txt index c9b1788a9..e64326056 100644 --- a/internal/help/Greater_Than.txt +++ b/internal/help/Greater_Than.txt @@ -1,19 +1,19 @@ -The '''>''' condition symbol denotes that a value must be greater than another value for the condition to be True. +The '''>''' condition symbol denotes that a value must be greater than another value for the condition to be True. -''Example usage:'' IF x [[Greater_Than|>]] 320 THEN PRINT "Right of screen" +''Example usage:'' IF x [[Greater_Than|>]] 320 THEN PRINT "Right of screen" * Statements will evaluate as True or -1 when the first value is greater or False or 0 when equal or the first value is less. -* More than one > symbol in a numerical statement will create a [[Boolean]] evaluation of the ensuing numerical value. +* More than one > symbol in a numerical statement will create a [[Boolean]] evaluation of the ensuing numerical value. ''See also:'' * [[Equal|=]] -* [[Not_Equal|<>]] +* [[Not_Equal|<>]] * [[Less_Than|<]] * [[Relational Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Greater_Than_Or_Equal.txt b/internal/help/Greater_Than_Or_Equal.txt index cea5a2fef..58fd7458e 100644 --- a/internal/help/Greater_Than_Or_Equal.txt +++ b/internal/help/Greater_Than_Or_Equal.txt @@ -1,15 +1,15 @@ -The '''>=''' condition symbol denotes that a value must be greater than or equal to another value for the condition to be True. +The '''>=''' condition symbol denotes that a value must be greater than or equal to another value for the condition to be True. -''Example usage:'' IF x [[Greater_Than|>]] 320 THEN PRINT "Right or center of screen" +''Example usage:'' IF x [[Greater_Than|>]] 320 THEN PRINT "Right or center of screen" ''See also:'' * [[Equal|=]] -* [[Not_Equal|<>]] +* [[Not_Equal|<>]] * [[Less_Than_Or_Equal|<=]] * [[Relational Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/HEX$.txt b/internal/help/HEX$.txt index 5dc9f9394..0efa38027 100644 --- a/internal/help/HEX$.txt +++ b/internal/help/HEX$.txt @@ -8,16 +8,16 @@ The [[HEX$]] function returns the base 16 hexadecimal representation of an [[INT {{PageDescription}} * The function returns the string hexadecimal (base-16) representation of {{Parameter|decimalNumber}}. * The function does not return a leading sign space so [[LTRIM$]] is not necessary. -<!-- Confusing hack hidden: * Can be used in place of [[STR$]] to trim both sides of positive decimal values 0 to 9 only.}} --> -* [[VAL]] can convert the string value back to a decimal value by prefixing the string return with "&H": {{InlineCode}}dec = VAL("&H" + hexvar$){{InlineCodeEnd}}. +<!-- Confusing hack hidden: * Can be used in place of [[STR$]] to trim both sides of positive decimal values 0 to 9 only.}} --> +* [[VAL]] can convert the string value back to a decimal value by prefixing the string return with "&H": {{InlineCode}}dec = VAL("&H" + hexvar$){{InlineCodeEnd}}. {{PageExamples}} ''Example 1:'' Comparing decimal, hexadecimal and octal string values 0 to 15. {{CodeStart}} '' '' -LOCATE 2, 20: PRINT " Decimal | Hexadecimal | Octal " -LOCATE 3, 20: PRINT "-----------+-------------+--------" - template$ = " \ \ | \\ | \\ " +LOCATE 2, 20: PRINT " Decimal | Hexadecimal | Octal " +LOCATE 3, 20: PRINT "-----------+-------------+--------" + template$ = " \ \ | \\ | \\ " FOR n% = 0 TO 15 LOCATE 4 + n%, 20: {{Cl|PRINT USING}} template$; {{Cl|STR$}}(n%); {{Cl|HEX$}}(n%); {{Cl|OCT$}}(n%) @@ -49,8 +49,8 @@ NEXT n% '' '' ''Example 2:'' Converting hex value to decimal. {{CodeStart}} h$ = {{Cl|HEX$}}(255) -{{Cl|PRINT}} "Hex: "; h$ -{{Cl|PRINT}} "Converting Hex value to Decimal:"; {{Cl|VAL}}("&H" + h$) +{{Cl|PRINT}} "Hex: "; h$ +{{Cl|PRINT}} "Converting Hex value to Decimal:"; {{Cl|VAL}}("&H" + h$) {{CodeEnd}} {{OutputStart}} @@ -66,4 +66,4 @@ Converting Hex value to Decimal: 255 * [[HEX$ 32 Bit Values]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/IF...THEN.txt b/internal/help/IF...THEN.txt index 9b4f29639..4b077636c 100644 --- a/internal/help/IF...THEN.txt +++ b/internal/help/IF...THEN.txt @@ -31,17 +31,17 @@ * The '''QB64''' IDE will indicate an error in the IF statement line until END IF closes the statement block. * Use [[colon]]s to execute multiple statements in a single-line IF statement. * An '''[[underscore]]''' can be used anywhere after the code on a single-line to continue it to the next line in '''QB64'''. -* '''NOTE:''' [[STRING]] values can only be evaluated in an IF statement if a value is compared to a literal or [[CHR$]] string value. '''QB64 may not compile literal IF string statements or indicate an [[IDE]] coding error.''' Use [[LEN]] or [[ASC]] to compare strings numerically. +* '''NOTE:''' [[STRING]] values can only be evaluated in an IF statement if a value is compared to a literal or [[CHR$]] string value. '''QB64 may not compile literal IF string statements or indicate an IDE coding error.''' Use [[LEN]] or [[ASC]] to compare strings numerically. {{Template:RelationalTable}} -<center> When evaluating a number value, no IF value > 0 operation is necessary for values not 0. Use: IF value THEN </center> +<center> When evaluating a number value, no IF value > 0 operation is necessary for values not 0. Use: IF value THEN </center> -<center>'''Boolean Conditional Operators:'''</center> +<center>'''Boolean Conditional Operators:'''</center> :::::* [[AND (boolean)]] can be used to add extra conditions to a boolean statement evaluation. @@ -49,28 +49,28 @@ :::::* Parenthesis are allowed inside of boolean statements to clarify an evaluation. -<center>'''Mathematical Logical operators:'''</center> -<center>* Truth table of the 6 BASIC Logical Operators:</center> +<center>'''Mathematical Logical operators:'''</center> +<center>* Truth table of the 6 BASIC Logical Operators:</center> {{Template:LogicalTruthTable}} -<center>* '''Note that Basic returns -1 for True and 0 for False.'''</center> +<center>* '''Note that Basic returns -1 for True and 0 for False.'''</center> {{PageExamples}} ''Example 1:'' In a one line IF statement, only [[REM]] can be used to comment out the action without an [[END IF]] error: {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a number over or under 100: ", x -{{Cl|IF...THEN|IF}} x > 100 {{Cl|THEN}} {{Cl|PRINT}} x -{{Cl|IF...THEN|IF}} x > 100 {{Cl|THEN}} {{Cl|REM}} {{Cl|PRINT}} x '' ' +{{Cl|INPUT}} "Enter a number over or under 100: ", x +{{Cl|IF...THEN|IF}} x > 100 {{Cl|THEN}} {{Cl|PRINT}} x +{{Cl|IF...THEN|IF}} x > 100 {{Cl|THEN}} {{Cl|REM}} {{Cl|PRINT}} x '' ' {{CodeEnd}} ''Example 2:'' IF statement blocks require that the IF THEN and END IF statements be separate from the code executed. {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a number over or under 100: ", x -{{Cl|IF...THEN|IF}} x > 100 {{Cl|THEN}} +{{Cl|INPUT}} "Enter a number over or under 100: ", x +{{Cl|IF...THEN|IF}} x > 100 {{Cl|THEN}} y = 200 {{Cl|PRINT}} y {{Cl|PRINT}} x @@ -80,38 +80,38 @@ ''Example 3:'' True or False evaluation of a numerical value executes only when the value is not 0. '''Cannot evaluate [[STRING]] values.''' {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a number or just hit Enter: ", x +{{Cl|INPUT}} "Enter a number or just hit Enter: ", x {{Cl|IF...THEN|IF}} x {{Cl|THEN}} {{Cl|PRINT}} x '' '' {{CodeEnd}} -:Example will only print if a numerical value is True (positive or negative). (Equivalent to: IF x > 0 OR x < 0 THEN evaluation) +:Example will only print if a numerical value is True (positive or negative). (Equivalent to: IF x > 0 OR x < 0 THEN evaluation) ''Example 4:'' Multiple evaluations using parenthesis to determine the order. {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a number over or under 100 or 50: ", value -{{Cl|IF...THEN|IF}} (value% > 100 {{Cl|AND (boolean)|AND}} value% < 200) {{Cl|OR (boolean)|OR}} value% = 50 {{Cl|THEN}} {{Cl|PRINT}} "OK" '' '' +{{Cl|INPUT}} "Enter a number over or under 100 or 50: ", value +{{Cl|IF...THEN|IF}} (value% > 100 {{Cl|AND (boolean)|AND}} value% < 200) {{Cl|OR (boolean)|OR}} value% = 50 {{Cl|THEN}} {{Cl|PRINT}} "OK" '' '' {{CodeEnd}} ''Example 5:'' Using multiple IF options in a one line statement. {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a number over or under 200: ", x -{{Cl|IF...THEN|IF}} x > 200 {{Cl|THEN}} {{Cl|PRINT}} "High" {{Cl|{{Cl|ELSEIF}}}} x < 0 {{Cl|THEN}} {{Cl|PRINT}} "Low" {{Cl|{{Cl|ELSE}}}} {{Cl|PRINT}} "OK" +{{Cl|INPUT}} "Enter a number over or under 200: ", x +{{Cl|IF...THEN|IF}} x > 200 {{Cl|THEN}} {{Cl|PRINT}} "High" {{Cl|ELSEIF}} x < 0 {{Cl|THEN}} {{Cl|PRINT}} "Low" {{Cl|ELSE}} {{Cl|PRINT}} "OK" '' '' {{CodeEnd}} ''Example 6:'' [[STRING]] values can be compared using greater than, less than, not equal to or equal to operators only. {{CodeStart}} '' '' -PRINT "Press a letter key: "; +{{Cl|PRINT}} "Press a letter key: "; Key$ = {{Cl|INPUT$}}(1) -PRINT Key$ -IF Key$ >= {{Cl|CHR$}}(65) AND Key$ <= {{Cl|CHR$}}(90) THEN PRINT "A to Z" +{{Cl|PRINT}} Key$ +{{Cl|IF}} Key$ >= {{Cl|CHR$}}(65) {{Cl|AND}} Key$ <= {{Cl|CHR$}}(90) {{Cl|THEN}} {{Cl|PRINT}} "A to Z" {{CodeEnd}} : ''Explanation:'' Long [[STRING]] expression values are compared by their cumulative [[ASCII]] code values. -<center>'''QBasic decimal point value comparison errors'''</center> +<center>'''QBasic decimal point value comparison errors'''</center> * Floating decimal point numerical values may not be compared as exactly the same value. QB64 will compare them the same. :''Example:'' QBasic would print ''unequal'' in the IF comparison code below even though it is exactly the same value printed. {{CodeStart}} '' '' @@ -119,7 +119,7 @@ x# = 5 / 10 y# = 6 / 10 z# = x# + y# {{Cl|PRINT}} x#, y#, z# -{{Cl|IF...THEN|IF}} x# + y# = z# {{Cl|THEN}} {{Cl|PRINT}} "equal" {{Cl|ELSE}} {{Cl|PRINT}} "unequal" '' '' +{{Cl|IF...THEN|IF}} x# + y# = z# {{Cl|THEN}} {{Cl|PRINT}} "equal" {{Cl|ELSE}} {{Cl|PRINT}} "unequal" '' '' {{CodeEnd}} : Note: QB64 will make the calculation correctly and print ''equal''. Change older program code that relies on the error accordingly. @@ -132,4 +132,4 @@ z# = x# + y# * [[Boolean]] {{text|(numerical comparisons return a true or false value)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/IMP.txt b/internal/help/IMP.txt index f7c7248c7..c9e71f338 100644 --- a/internal/help/IMP.txt +++ b/internal/help/IMP.txt @@ -6,7 +6,7 @@ The [[IMP]] logical operator converts the result of two comparative values and r {{PageDescription}} -* Returns a different result from [[AND]], [[OR]] or [[XOR]]. +* Returns a different result from [[AND]], [[OR]] or [[XOR]] - see truth table below. * Evaluates if {{Parameter|firstValue}} '''''imp'''lies'' {{Parameter|secondValue}}. **If {{Parameter|firstValue}} is true then {{Parameter|secondValue}} must also be true. **So if {{Parameter|firstValue}} is true, and {{Parameter|secondValue}} false, then the condition is false, otherwise it is true (see table below). @@ -20,4 +20,4 @@ The [[IMP]] logical operator converts the result of two comparative values and r * [[Boolean]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INKEY$.txt b/internal/help/INKEY$.txt index 3b4684f1a..57e0c07dc 100644 --- a/internal/help/INKEY$.txt +++ b/internal/help/INKEY$.txt @@ -7,12 +7,12 @@ The [[INKEY$]] function returns user input as [[ASCII]] [[STRING]] character(s) {{PageDescription}} * Returns [[ASCII]] character string values in upper or lower cases. See: [[UCASE$]] and [[LCASE$]] -* Returns "" if no key has been pressed since the last keyboard read. +* Returns "" if no key has been pressed since the last keyboard read. * Some control keys cannot be read by INKEY$ or will return 2 byte [[ASCII]] codes. * INKEY$ can also be used to clear a [[SLEEP]] key press or the keyboard buffer in a loop. * Assign the INKEY$ return to a string variable to save the key entry. -* <span style="font-family: Courier New, monospace, Courier; background: #dddddd">[[LOCATE]] , , 1</span> displays the INKEY$ cursor. Use <span style="font-family: Courier New, monospace, Courier; background: #dddddd">LOCATE , , 0</span> to turn it off. -* Use [[_DEST]] [[_CONSOLE]] before reading INKEY$ to receive input from a [[$CONSOLE|console]] window. +* <span style="font-family: Courier New, monospace, Courier; background: #dddddd">[[LOCATE]] , , 1</span> displays the INKEY$ cursor. Use <span style="font-family: Courier New, monospace, Courier; background: #dddddd">LOCATE , , 0</span> to turn it off. +* To receive input from a [[$CONSOLE]] window, use [[_CINP]]. * Returns can be evaluated as certain [[ASCII]] characters or codes. {{WhiteStart}}' '''ASCII Keyboard Codes''' ' @@ -24,10 +24,10 @@ The [[INKEY$]] function returns user input as [[ASCII]] [[STRING]] character(s) '''' Tab Q W E R T Y U I O P [{ ]} \| Del End PDn 7Hme 8/â–² 9PU + ''' ' 9 81 87 69 82 84 89 85 73 79 80 123 125 124 +83 +79 +81 +71 +72 +73 43 ''' 113 119 101 114 116 121 117 105 111 112 91 93 92 55 56 57 '' -'''' CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º +'''' CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º ' - 65 83 68 70 71 72 74 75 76 58 34 13 +75 +76 +77 '''E''' ''' 97 115 100 102 103 104 106 107 108 59 39 52 53 54 '' '''n''' -'''' Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' +'''' Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' ' * 90 88 67 86 66 78 77 60 62 63 * +72 +79 +80 +81 '''e''' ''' 122 120 99 118 98 110 109 44 46 47 49 50 51 '' '''r''' '''' Ctrl Win Alt Spacebar Alt Win Menu Ctrl â—„- â–¼ -â–º 0Ins .Del ''' @@ -40,58 +40,58 @@ The [[INKEY$]] function returns user input as [[ASCII]] [[STRING]] character(s) ==Two Byte Combinations== * INKEY$ 2 byte combinations always begin with [[CHR$]](0). [[ASC]] will always read the first byte code as zero. -* Read the second byte code using: '''{{text|code2 <nowiki>=</nowiki> ASC(press$, 2)|green}}''' +* Read the second byte code using: '''{{text|code2 <nowiki>=</nowiki> ASC(press$, 2)|green}}''' -<center>'''[[ASCII#Two_Byte_Codes|Two Byte Ctrl, Alt and Shift + Function key combinations]]'''</center> +<center>'''[[ASCII#Two_Byte_Codes|Two Byte Ctrl, Alt and Shift + Function key combinations]]'''</center> -{{WhiteStart}} '''Two Byte Characters    Key                 CHR$(0) + "?" ''' +{{WhiteStart}} '''Two Byte Characters    Key                 CHR$(0) + "?" ''' CHR$(0) + CHR$(16-50) [Alt] + letter - CHR$(0) + CHR$(59) [F1] ";" - CHR$(0) + CHR$(60) [F2] "<" - CHR$(0) + CHR$(61) [F3] "=" - CHR$(0) + CHR$(62) [F4] ">" - CHR$(0) + CHR$(63) [F5] "?" - CHR$(0) + CHR$(64) [F6] "@" - CHR$(0) + CHR$(65) [F7] "A" - CHR$(0) + CHR$(66) [F8] "B" - CHR$(0) + CHR$(67) [F9] "C" - CHR$(0) + CHR$(68) [F10] "D" - CHR$(0) + CHR$(71) [Home] "G" - CHR$(0) + CHR$(72) [↑] Arrow "H" - CHR$(0) + CHR$(73) [Page Up] "I" - CHR$(0) + CHR$(75) [â†] Arrow "K" - CHR$(0) + CHR$(76) [5 NumberPad] "L" (NumLock off in QB64) - CHR$(0) + CHR$(77) [→] Arrow "M" - CHR$(0) + CHR$(79) [End] "O" - CHR$(0) + CHR$(80) [↓] Arrow "P" - CHR$(0) + CHR$(81) [Page Down] "Q" - CHR$(0) + CHR$(82) [Insert] "R" - CHR$(0) + CHR$(83) [Delete] "S" + CHR$(0) + CHR$(59) [F1] ";" + CHR$(0) + CHR$(60) [F2] "<" + CHR$(0) + CHR$(61) [F3] "=" + CHR$(0) + CHR$(62) [F4] ">" + CHR$(0) + CHR$(63) [F5] "?" + CHR$(0) + CHR$(64) [F6] "@" + CHR$(0) + CHR$(65) [F7] "A" + CHR$(0) + CHR$(66) [F8] "B" + CHR$(0) + CHR$(67) [F9] "C" + CHR$(0) + CHR$(68) [F10] "D" + CHR$(0) + CHR$(71) [Home] "G" + CHR$(0) + CHR$(72) [↑] Arrow "H" + CHR$(0) + CHR$(73) [Page Up] "I" + CHR$(0) + CHR$(75) [â†] Arrow "K" + CHR$(0) + CHR$(76) [5 NumberPad] "L" (NumLock off in QB64) + CHR$(0) + CHR$(77) [→] Arrow "M" + CHR$(0) + CHR$(79) [End] "O" + CHR$(0) + CHR$(80) [↓] Arrow "P" + CHR$(0) + CHR$(81) [Page Down] "Q" + CHR$(0) + CHR$(82) [Insert] "R" + CHR$(0) + CHR$(83) [Delete] "S" CHR$(0) + CHR$(84-93) [Shift] + F1-10 CHR$(0) + CHR$(94-103) [Ctrl] + F1-10 CHR$(0) + CHR$(104-113) [Alt] + F1-10 CHR$(0) + CHR$(114-119) [Ctrl] + keypad CHR$(0) + CHR$(120-129) [Alt] + number - CHR$(0) + CHR$(130 or 131) [Alt] + _/- or +/= "é" or "â" - CHR$(0) + CHR$(133) [F11] "à" - CHR$(0) + CHR$(134) [F12] "Ã¥" - CHR$(0) + CHR$(135) [Shift] + [F11] "ç" - CHR$(0) + CHR$(136) [Shift] + [F12] "ê" - CHR$(0) + CHR$(137) [Ctrl] + [F11] "ë" - CHR$(0) + CHR$(138) [Ctrl] + [F12] "è" - CHR$(0) + CHR$(139) [Alt] + [F11] "ï" - CHR$(0) + CHR$(140) [Alt] + [F12] "î" + CHR$(0) + CHR$(130 or 131) [Alt] + _/- or +/= "é" or "â" + CHR$(0) + CHR$(133) [F11] "à" + CHR$(0) + CHR$(134) [F12] "Ã¥" + CHR$(0) + CHR$(135) [Shift] + [F11] "ç" + CHR$(0) + CHR$(136) [Shift] + [F12] "ê" + CHR$(0) + CHR$(137) [Ctrl] + [F11] "ë" + CHR$(0) + CHR$(138) [Ctrl] + [F12] "è" + CHR$(0) + CHR$(139) [Alt] + [F11] "ï" + CHR$(0) + CHR$(140) [Alt] + [F12] "î" {{WhiteEnd}} -:In '''QB64''', [[CVI]] can be used to get the [[_KEYDOWN]] 2-byte code value. Example: '''{{text|status <nowiki>=</nowiki> _KEYDOWN(CVI(CHR$(0) + "P"))|green}}''' +:In '''QB64''', [[CVI]] can be used to get the [[_KEYDOWN]] 2-byte code value. Example: '''{{text|status <nowiki>=</nowiki> _KEYDOWN(CVI(CHR$(0) + "P"))|green}}''' {{PageExamples}} ''Example 1:'' Clearing the keyboard buffer after [[SLEEP]] delays for later [[INPUT]]. -{{CodeStart}}{{Cl|PRINT}} "Press any keyboard typing key to end SLEEP" +{{CodeStart}}{{Cl|PRINT}} "Press any keyboard typing key to end SLEEP" {{Cl|SLEEP}} -{{Cl|DO}}: K$ = {{Cl|INKEY$}}: {{Cl|PRINT}} K$: {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "" '' '' +{{Cl|DO}}: K$ = {{Cl|INKEY$}}: {{Cl|PRINT}} K$: {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "" '' '' {{CodeEnd}} :''Explanation:'' [[SLEEP]] key presses will be kept in the keyboard buffer and may be added into an [[INPUT]] later. :See also: [[_KEYCLEAR]] @@ -100,39 +100,39 @@ The [[INKEY$]] function returns user input as [[ASCII]] [[STRING]] character(s) ''Example 2:'' Entering a Ctrl + letter keypress combination will print [[ASCII]] Control characters 1 to 26. . {{CodeStart}}DO K$ = {{Cl|INKEY$}} - {{Cl|IF...THEN|IF}} K$ <> "" {{Cl|THEN}} {{Cl|PRINT}} K$; " "; + {{Cl|IF...THEN|IF}} K$ <> "" {{Cl|THEN}} {{Cl|PRINT}} K$; " "; {{Cl|LOOP}} {{Cl|UNTIL}} K$ = {{Cl|CHR$}}(27) 'Esc key exit '' '' {{CodeEnd}} : ''Note:'' The above code will print Esc arrow, Backspace symbol, and 2 byte characters led by CHR$(0) in addition to normal keys. -''Example 3:'' Use [[UCASE$]](INKEY$) in a keyboard read loop looking for uppercase "Y" or "N" user inputs to avoid multiple IF statements. +''Example 3:'' Use [[UCASE$]](INKEY$) in a keyboard read loop looking for uppercase "Y" or "N" user inputs to avoid multiple IF statements. {{CodeStart}} '' '' {{Cl|DO...LOOP|DO}} - {{Cl|PRINT}} "Do you want to continue? (Y/N): "; 'semicolon saves position for user entry + {{Cl|PRINT}} "Do you want to continue? (Y/N): "; 'semicolon saves position for user entry {{Cl|DO...LOOP|DO}}: K$ = {{Cl|UCASE$}}({{Cl|INKEY$}}) 'change any user key press to uppercase - {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "Y" {{Cl|OR (boolean)|OR}} K$ = "N" + {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "Y" {{Cl|OR (boolean)|OR}} K$ = "N" {{Cl|PRINT}} K$ 'print valid user entry - {{Cl|IF...THEN|IF}} K$ = "N" {{Cl|THEN}} {{Cl|END}} + {{Cl|IF...THEN|IF}} K$ = "N" {{Cl|THEN}} {{Cl|END}} {{Cl|LOOP}} '' '' {{CodeEnd}} ''Example 4:'' Getting just number values entered by a user in an INKEY$ input loop. {{CodeStart}} '' '' -{{Cl|LOCATE}} 10, 10: {{Cl|PRINT}} "Enter a number value: "; +{{Cl|LOCATE}} 10, 10: {{Cl|PRINT}} "Enter a number value: "; {{Cl|DO}}: {{Cl|SLEEP}} K$ = {{Cl|INKEY$}} - {{Cl|IF}} K$ >= {{Cl|CHR$}}(48) {{Cl|AND (boolean)|AND}} K$ <= {{Cl|CHR$}}(57) {{Cl|THEN}} entry$ = entry$ + K$ ' numbers only + {{Cl|IF}} K$ >= {{Cl|CHR$}}(48) {{Cl|AND (boolean)|AND}} K$ <= {{Cl|CHR$}}(57) {{Cl|THEN}} entry$ = entry$ + K$ ' numbers only L = {{Cl|LEN}}(entry$) ' check entry length for possible backspace {{Cl|IF}} K$ = {{Cl|CHR$}}(46) {{Cl|AND (boolean)|AND}} flag = 0 {{Cl|THEN}} entry$ = entry$ + K$: flag = 1: mark = L ' decimal point - {{Cl|IF}} K$ = {{Cl|CHR$}}(8) {{Cl|AND (boolean)|AND}} L > 0 {{Cl|THEN}} ' backspace pressed and entry has a length + {{Cl|IF}} K$ = {{Cl|CHR$}}(8) {{Cl|AND (boolean)|AND}} L > 0 {{Cl|THEN}} ' backspace pressed and entry has a length entry$ = {{Cl|MID$}}(entry$, 1, L - 1) ' remove one character from entry$ {{Cl|IF}} {{Cl|LEN}}(entry$) < mark {{Cl|THEN}} flag = 0 ' allow decimal point entry if other was removed. {{Cl|LOCATE}} {{Cl|CSRLIN}}, {{Cl|POS}}(0) - 1: {{Cl|PRINT}} {{Cl|SPACE$}}(1); ' remove end character from screen {{Cl|END IF}} {{Cl|LOCATE}} 10, 32: {{Cl|PRINT}} entry$; ' display entry to user (semicolon required for correct {{Cl|POS}}) -{{Cl|LOOP}} {{Cl|UNTIL}} K$ = {{Cl|CHR$}}(13) {{Cl|AND (boolean)|AND}} L > 0 'assures something is entered '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} K$ = {{Cl|CHR$}}(13) {{Cl|AND (boolean)|AND}} L > 0 'assures something is entered '' '' {{CodeEnd}} : ''Explanation:'' [[SLEEP]] waits for a keypress. It also allows background programs to share the processor and it leaves the keypress in the buffer for INKEY$. Keyboard string number characters range from [[ASCII]] codes 48 to 57. Any other entry is ignored by the IF statement. A decimal point (code 46) entry is allowed once in the input. The flag value stops further decimal point additions. Backspacing (code 8) is also allowed if the entry has at least one character. The cursor column returned by [[POS]](0) reverts too after the end of the entry when printed each loop. The loop exits when [Enter] (code 13) is pressed and the entry has a length. @@ -140,17 +140,17 @@ The [[INKEY$]] function returns user input as [[ASCII]] [[STRING]] character(s) ''Example 5:'' Using arrow keys to move a text character. A change from a previous position tells program when to PRINT: {{CodeStart}}movey = 1: movex = 1 'text coordinates can never be 0 -at$ = "@" 'text sprite could be almost any ASCII character +at$ = "@" 'text sprite could be almost any ASCII character {{Cl|LOCATE}} movey, movex: {{Cl|PRINT}} at$; DO px = movex: py = movey 'previous positions B$ = {{Cl|INKEY$}} - {{Cl|IF...THEN|IF}} B$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(72) {{Cl|AND (boolean)|AND}} movey > 1 {{Cl|THEN}} movey = movey - 1 'rows 1 to 23 only + {{Cl|IF...THEN|IF}} B$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(72) {{Cl|AND (boolean)|AND}} movey > 1 {{Cl|THEN}} movey = movey - 1 'rows 1 to 23 only {{Cl|IF...THEN|IF}} B$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(80) {{Cl|AND (boolean)|AND}} movey < 23 {{Cl|THEN}} movey = movey + 1 - {{Cl|IF...THEN|IF}} B$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(75) {{Cl|AND (boolean)|AND}} movex > 1 {{Cl|THEN}} movex = movex - 1 'columns 1 to 80 only + {{Cl|IF...THEN|IF}} B$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(75) {{Cl|AND (boolean)|AND}} movex > 1 {{Cl|THEN}} movex = movex - 1 'columns 1 to 80 only {{Cl|IF...THEN|IF}} B$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(77) {{Cl|AND (boolean)|AND}} movex < 80 {{Cl|THEN}} movex = movex + 1 - {{Cl|IF...THEN|IF}} px <> movex {{Cl|OR (boolean)|OR}} py <> movey {{Cl|THEN}} 'only changes when needed + {{Cl|IF...THEN|IF}} px <> movex {{Cl|OR (boolean)|OR}} py <> movey {{Cl|THEN}} 'only changes when needed {{Cl|LOCATE}} py, px: {{Cl|PRINT}} {{Cl|SPACE$}}(1); 'erase old sprite {{Cl|LOCATE}} movey, movex: {{Cl|PRINT}} at$; 'show new position {{Cl|END IF}} @@ -170,24 +170,24 @@ DO x = 0 y = 0 -image = {{Cl|_LOADIMAGE}}("QB64bee.png") 'Here I actually used the QB64 icon +image = {{Cl|_LOADIMAGE}}("QB64bee.png") 'Here I actually used the QB64 icon DO {{Cl|_PUTIMAGE}} (x, y), image DO Keypress = {{Cl|UCASE$}}({{Cl|INKEY$}}) ' ***** The following line detects the arrow keys ***** - {{Cl|IF...THEN|IF}} {{Cl|LEN}}(Keypress) > 1 {{Cl|THEN}} Keypress = {{Cl|RIGHT$}}(Keypress, 1) - {{Cl|LOOP}} {{Cl|UNTIL}} Keypress > "" + {{Cl|IF...THEN|IF}} {{Cl|LEN}}(Keypress) > 1 {{Cl|THEN}} Keypress = {{Cl|RIGHT$}}(Keypress, 1) + {{Cl|LOOP}} {{Cl|UNTIL}} Keypress > "" {{Cl|CLS}} ' blank screen after valid key press to avoid smearing image on page {{Cl|SELECT CASE}} Keypress - {{Cl|CASE}} "W", "H": y = y - 10 'Up - {{Cl|CASE}} "A", "K": x = x - 10 'Left - {{Cl|CASE}} "S", "P": y = y + 10 'Down - {{Cl|CASE}} "D", "M": x = x + 10 'Right - {{Cl|CASE}} "Q", {{Cl|CHR$}}(27): {{Cl|END}} 'Q or Esc Ends prog. + {{Cl|CASE}} "W", "H": y = y - 10 'Up + {{Cl|CASE}} "A", "K": x = x - 10 'Left + {{Cl|CASE}} "S", "P": y = y + 10 'Down + {{Cl|CASE}} "D", "M": x = x + 10 'Right + {{Cl|CASE}} "Q", {{Cl|CHR$}}(27): {{Cl|END}} 'Q or Esc Ends prog. {{Cl|END SELECT}} {{Cl|_PUTIMAGE}} (x, y), image {{Cl|LOOP}} '' '' @@ -198,13 +198,13 @@ DO ''Example 7:'' Creating upper [[ASCII]] characters in a QB program using '''Alt +''' three number keys: {{CodeStart}} DO - A$ = "": {{Cl|WHILE}} A$ = "": A$ = {{Cl|INKEY$}}: {{Cl|WEND}} + A$ = "": {{Cl|WHILE}} A$ = "": A$ = {{Cl|INKEY$}}: {{Cl|WEND}} {{Cl|IF...THEN|IF}} {{Cl|LEN}}(A$) = 2 {{Cl|THEN}} '2 byte INKEY$ return B$ = {{Cl|RIGHT$}}(A$, 1) 'read second byte b% = {{Cl|ASC}}(B$) 'read second byte code - {{Cl|IF...THEN|IF}} b% > 119 {{Cl|AND (boolean)|AND}} b% < 130 {{Cl|THEN}} ' Alt + number codes only + {{Cl|IF...THEN|IF}} b% > 119 {{Cl|AND (boolean)|AND}} b% < 130 {{Cl|THEN}} ' Alt + number codes only C% = b% - 119 ' convert to actual number - {{Cl|IF...THEN|IF}} C% > 9 {{Cl|THEN}} C% = 0 + {{Cl|IF...THEN|IF}} C% > 9 {{Cl|THEN}} C% = 0 num$ = num$ + {{Cl|LTRIM$}}({{Cl|STR$}}(C%)) {{Cl|END IF}} {{Cl|END IF}} @@ -229,4 +229,4 @@ DO * [[Windows_Libraries#Hot_Keys_.28maximize.29|Windows hot keys]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INP.txt b/internal/help/INP.txt index 7db315949..2d576acd9 100644 --- a/internal/help/INP.txt +++ b/internal/help/INP.txt @@ -15,11 +15,11 @@ {{PageExamples}} ''Example 1:'' Reading the current RGB color settings used in a bitmap to an array. {{CodeStart}} '' '' - SCREEN 12 + {{Cl|SCREEN}} 12 {{Cl|DIM}} Colors%(47) {{Cl|OUT}} &H3C7, 0 ' set color port for INP reads at attribute 0 to start {{Cl|FOR...NEXT|FOR}} i = 0 {{Cl|TO}} 47 - Colors%(i) = {{Cl|INP}}(&H3C9) ' moves to next color attribute every 3 loops + Colors%(i) = {{Cl|INP}}(&H3C9) ' moves to next color attribute every 3 loops {{Cl|NEXT}} '' '' {{CodeEnd}} @@ -38,9 +38,9 @@ {{CodeStart}} '' '' {{Cl|DEFINT}} A-Z {{Cl|SCREEN}} 12 -{{Cl|DIM}} ball%(100) ' Set aside enough space to hold the ball sprite +{{Cl|DIM}} ball%(100) ' Set aside enough space to hold the ball sprite {{Cl|CIRCLE}} (4, 3), 4, 4 -{{Cl|PAINT}} (4, 3), 12, 4 ' Draw a filled circle and fill for ball +{{Cl|PAINT}} (4, 3), 12, 4 ' Draw a filled circle and fill for ball {{Cl|GET (graphics statement)|GET}} (0, 0)-(8, 7), ball%(0) ' Get the sprite into the Ball% array begin: @@ -50,56 +50,56 @@ x = 25: y = 25 dx = 1: dy = 1 LTpos = 50: RTpos = 50 -DO: {{Cl|_LIMIT}} 100 'adjust higher for faster -{{Cl|CLS}} -{{Cl|IF...THEN|IF}} ScanKey%(17) {{Cl|THEN}} LTpos = LTpos - 1 -{{Cl|IF...THEN|IF}} ScanKey%(31) {{Cl|THEN}} LTpos = LTpos + 1 -{{Cl|IF...THEN|IF}} ScanKey%(72) {{Cl|THEN}} RTpos = RTpos - 1 -{{Cl|IF...THEN|IF}} ScanKey%(80) {{Cl|THEN}} RTpos = RTpos + 1 +{{Cl|DO}}: {{Cl|_LIMIT}} 100 'adjust higher for faster + {{Cl|CLS}} + {{Cl|IF...THEN|IF}} ScanKey%(17) {{Cl|THEN}} LTpos = LTpos - 1 + {{Cl|IF...THEN|IF}} ScanKey%(31) {{Cl|THEN}} LTpos = LTpos + 1 + {{Cl|IF...THEN|IF}} ScanKey%(72) {{Cl|THEN}} RTpos = RTpos - 1 + {{Cl|IF...THEN|IF}} ScanKey%(80) {{Cl|THEN}} RTpos = RTpos + 1 -{{Cl|PRINT}} "Player 1 : "; ponescore; " Player 2 : "; ptwoscore + {{Cl|PRINT}} "Player 1 : "; ponescore; " Player 2 : "; ptwoscore -{{Cl|IF...THEN|IF}} x > xmax - 15 {{Cl|AND (boolean)|AND}} y >= RTpos {{Cl|AND (boolean)|AND}} y <= RTpos + 100 {{Cl|THEN}} -dx = -1 -{{Cl|ELSEIF}} x > xmax {{Cl|THEN}} -ponescore = ponescore + 1 -{{Cl|GOSUB}} begin -{{Cl|END IF}} + {{Cl|IF...THEN|IF}} x > xmax - 15 {{Cl|AND (boolean)|AND}} y >= RTpos {{Cl|AND (boolean)|AND}} y <= RTpos + 100 {{Cl|THEN}} + dx = -1 + {{Cl|ELSEIF}} x > xmax {{Cl|THEN}} + ponescore = ponescore + 1 + {{Cl|GOSUB}} begin + {{Cl|END IF}} -{{Cl|IF...THEN|IF}} x < xmin + 15 {{Cl|AND (boolean)|AND}} y >= LTpos {{Cl|AND (boolean)|AND}} y <= LTpos + 100 {{Cl|THEN}} -dx = 1 -{{Cl|ELSEIF}} x < xmin {{Cl|THEN}} -ptwoscore = ptwoscore + 1 -{{Cl|GOSUB}} begin -{{Cl|END IF}} + {{Cl|IF}} x < xmin + 15 {{Cl|AND (boolean)|AND}} y >= LTpos {{Cl|AND (boolean)|AND}} y <= LTpos + 100 {{Cl|THEN}} + dx = 1 + {{Cl|ELSEIF}} x < xmin {{Cl|THEN}} + ptwoscore = ptwoscore + 1 + {{Cl|GOSUB}} begin + {{Cl|END IF}} -{{Cl|IF...THEN|IF}} y > ymax - 5 {{Cl|THEN}} dy = -1 -{{Cl|IF...THEN|IF}} y < ymin + 5 {{Cl|THEN}} dy = 1 -' Display the sprite elsewhere on the screen + {{Cl|IF...THEN|IF}} y > ymax - 5 {{Cl|THEN}} dy = -1 + {{Cl|IF...THEN|IF}} y < ymin + 5 {{Cl|THEN}} dy = 1 + ' Display the sprite elsewhere on the screen -x = x + dx -y = y + dy + x = x + dx + y = y + dy -{{Cl|PUT (graphics statement)|PUT}}(x, y), ball%(0) + {{Cl|PUT (graphics statement)|PUT}}(x, y), ball%(0) -{{Cl|LINE}} (20, LTpos)-(20, LTpos + 100) -{{Cl|LINE}} (620, RTpos)-(620, RTpos + 100) + {{Cl|LINE}} (20, LTpos)-(20, LTpos + 100) + {{Cl|LINE}} (620, RTpos)-(620, RTpos + 100) -{{Cl|_DISPLAY}} 'shows completed screen every call + {{Cl|_DISPLAY}} 'shows completed screen every call {{Cl|LOOP}} {{Cl|UNTIL}} ScanKey%(1) {{Cl|END}} {{Cl|FUNCTION}} ScanKey% (scancode%) -{{Cl|STATIC}} Ready%, keyflags%() -{{Cl|IF...THEN|IF}} {{Cl|NOT}} Ready% {{Cl|THEN}} {{Cl|REDIM}} keyflags%(0 {{Cl|TO}} 127): Ready% = -1 -i% = {{Cl|INP}}({{Cl|&H}}60) 'read keyboard states -{{Cl|IF...THEN|IF}} (i% {{Cl|AND (boolean)|AND}} 128) {{Cl|THEN}} keyflags%(i% {{Cl|XOR (boolean)|XOR}} 128) = 0 -{{Cl|IF...THEN|IF}} (i% {{Cl|AND (boolean)|AND}} 128) = 0 {{Cl|THEN}} keyflags%(i%) = -1 -K$ = {{Cl|INKEY$}} -ScanKey% = keyflags%(scancode%) + {{Cl|STATIC}} Ready%, keyflags%() + {{Cl|IF...THEN|IF}} {{Cl|NOT}} Ready% {{Cl|THEN}} {{Cl|REDIM}} keyflags%(0 {{Cl|TO}} 127): Ready% = -1 + i% = {{Cl|INP}}({{Cl|&H}}60) 'read keyboard states + {{Cl|IF...THEN|IF}} (i% {{Cl|AND (boolean)|AND}} 128) {{Cl|THEN}} keyflags%(i% {{Cl|XOR (boolean)|XOR}} 128) = 0 + {{Cl|IF...THEN|IF}} (i% {{Cl|AND (boolean)|AND}} 128) = 0 {{Cl|THEN}} keyflags%(i%) = -1 + K$ = {{Cl|INKEY$}} + ScanKey% = keyflags%(scancode%) {{Cl|END FUNCTION}} '' '' {{CodeEnd}} : ''Note:'' [[_KEYDOWN]] can be used to read multiple keys simultaneously and is the '''recommended practice'''. @@ -110,8 +110,11 @@ ScanKey% = keyflags%(scancode%) * [[INKEY$]], [[_KEYHIT]], [[_KEYDOWN]] * [[Bitmaps]], [[Scancodes]] {{text|(keyboard)}} * [[Port Access Libraries]] {{text|(COM or LPT registers)}} + + +===External Links=== * [http://en.wikipedia.org/wiki/Input/output_base_address#Common_I.2FO_base_address_device_assignments_in_IBM_PC_compatible_computers PC I/O base address device assignments] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INPUT$.txt b/internal/help/INPUT$.txt index a32a76a0d..5dcab5284 100644 --- a/internal/help/INPUT$.txt +++ b/internal/help/INPUT$.txt @@ -16,7 +16,7 @@ The [[INPUT$]] function is used to receive data from the user's keyboard, an ope * Use [[_DEST]] [[_CONSOLE]] before INPUT$ is used to receive input from a [[$CONSOLE|console]] window. -==QBasic/QuickBASIC== +{{PageQBasic}} * {{Parameter|numberOfBytes%}} could not exceed 32767 in [[BINARY]] files or a QBasic error would occur. * Ctrl + Break would not interrupt the QBasic program until there was a full INPUT$ key entry. In '''QB64''' Ctrl + Break will immediately exit a running program. @@ -33,7 +33,7 @@ PRINT year$ 'display the text entry '' '' ''Example 2:'' Reading bytes from a text file for an 80 wide screen mode. {{CodeStart}} '' '' {{Cl|LOCATE}} 5, 5, 1 'locate and display cursor -{{Cl|OPEN}} "Diary.txt" FOR {{Cl|INPUT (file mode)|INPUT}} AS #1 'open existing text file +{{Cl|OPEN}} "Diary.txt" FOR {{Cl|INPUT (file mode)|INPUT}} AS #1 'open existing text file text$ = {{Cl|INPUT$}}(70, 1) {{Cl|LOCATE}} 5, 6, 0: PRINT text$ 'print text and turn cursor off '' '' {{CodeEnd}} @@ -41,7 +41,7 @@ text$ = {{Cl|INPUT$}}(70, 1) ''Example 3:'' Getting the entire text file data as one string value. {{CodeStart}} '' '' -{{Cl|OPEN}} "Diary.txt FOR {{Cl|BINARY}} AS #1 'open an existing file up to 32767 bytes +{{Cl|OPEN}} "Diary.txt FOR {{Cl|BINARY}} AS #1 'open an existing file up to 32767 bytes IF {{Cl|LOF}}(1) <= 32767 THEN Text$ = {{Cl|INPUT$}}(LOF(1), 1) {{Cl|CLOSE}} #1 '' '' {{CodeEnd}} @@ -55,4 +55,4 @@ IF {{Cl|LOF}}(1) <= 32767 THEN Text$ = {{Cl|INPUT$}}(LOF(1), 1) * [[LOCATE]] {{text|(cursor on/off)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INPUT.txt b/internal/help/INPUT.txt index 7cf8e2d90..01a564372 100644 --- a/internal/help/INPUT.txt +++ b/internal/help/INPUT.txt @@ -2,13 +2,13 @@ The [[INPUT]] statement requests a [[STRING]] or numerical keyboard entry from t {{PageSyntax}} -: [[INPUT]] [;] "[Question or statement text]"{,|;} {{Parameter|variable}}[, ...] +: [[INPUT]] [;] "[Question or statement text]"{,|;} {{Parameter|variable}}[, ...] : [[INPUT]] ; {{Parameter|variable}}[, ...] -{{Parameters}} +{{PageParameters}} * A [[semicolon]] after the [[INPUT]] keyword keeps the entry on the same row after enter is pressed and prevents the screen contents from rolling up. -* The optional prompt "Question or statement text" must be a literal predefined [[STRING|string]]. '''The prompt cannot use a variable.''' +* The optional prompt "Question or statement text" must be a literal predefined [[STRING|string]]. '''The prompt cannot use a variable.''' * [[Quotation mark]]s are required except when a semicolon follows [[INPUT]]. A question mark will appear before the cursor. * A [[semicolon]] immediately after the text statement will display a question mark with a space after it. Use a [[comma]] for input statements. @@ -17,17 +17,17 @@ The [[INPUT]] statement requests a [[STRING]] or numerical keyboard entry from t * '''QB64''' does not return ''Redo from start'' errors like QBasic did, as user input is limited to the scope of the variable [[Data types|type]] used. * Text entries (with a [[STRING]] variable]] can receive any characters, including numerical. '''QB64 will ignore commas in single variable text entries.''' * The [[Data types|type]] of the {{Parameter|variable}} used to store user input determines the valid numerical range for value entries in QB64, with non-numerical characters limited to D, E, [[&H]], [[&O]] or [[&B]]. -** For example, if you use an [[INTEGER]] variable, as in {{InlineCode}}INPUT "Initial value: ", myValue%{{InlineCodeEnd}}, the valid range is -32768 to 32767. +** For example, if you use an [[INTEGER]] variable, as in {{InlineCode}}INPUT "Initial value: ", myValue%{{InlineCodeEnd}}, the valid range is -32768 to 32767. ** [[INTEGER]], [[LONG]], and [[_INTEGER64]] entries will ignore decimal points entered and will use all numbers. * INPUT can be used to get more than one {{Parameter|variable}} value from the user. Do so by separating input variables with commas in the code. ** The program must inform the user that more than one variable is requested, in order to enter each value separated with a comma at runtime. ** [[STRING|String]] and numerical variables can both be used in multiple entry requests separated by commas. ** '''QB64''' allows comma separated entries to be skipped by the user without generating an error. * '''Use [[LINE INPUT]] for text input entries that may contain commas such as address or name entries.''' -* The user must press enter for the INPUT procedure to end. <!-- redundant: Multiple entries can be skipped. --> +* The user must press enter for the INPUT procedure to end. <!-- redundant: Multiple entries can be skipped. --> * [[INPUT]] accepts the [[scientific notation]] letters D or E in [[SINGLE]] or [[DOUBLE]] numerical values. * Numerical values starting with [[&H]], [[&O]] and [[&B]] can also be entered. -<!-- not valid for QB64, not worth mentioning then denying: * INPUT removes all leading or trailing spaces in a string value entry. '''QB64 does NOT remove those spaces!''' --> +<!-- not valid for QB64, not worth mentioning then denying: * INPUT removes all leading or trailing spaces in a string value entry. '''QB64 does NOT remove those spaces!''' --> * The statement halts a program until enter is pressed, which may not be desired in programs using mouse input (see [[INKEY$]] loops). * Use [[_DEST]] [[_CONSOLE]] before INPUT statements to receive input from a [[$CONSOLE|console]] window. @@ -35,9 +35,9 @@ The [[INPUT]] statement requests a [[STRING]] or numerical keyboard entry from t {{PageExamples}} ''Example 1:'' Using a variable in an input text message using PRINT. INPUT prompts cannot use variables. {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter your name: ", name$ -{{Cl|PRINT}} name$ + " please enter your age: ";: {{Cl|INPUT}} "", age% 'empty string with comma -{{Cl|PRINT}} name$ + " how much do you weigh"; : {{Cl|INPUT}} weight% 'no text adds ? '' '' +{{Cl|INPUT}} "Enter your name: ", name$ +{{Cl|PRINT}} name$ + " please enter your age: ";: {{Cl|INPUT}} "", age% 'empty string with comma +{{Cl|PRINT}} name$ + " how much do you weigh"; : {{Cl|INPUT}} weight% 'no text adds ? '' '' {{CodeEnd}} :''Explanation:'' Use an empty string with a comma to eliminate the question mark that would appear without the string. @@ -45,9 +45,9 @@ The [[INPUT]] statement requests a [[STRING]] or numerical keyboard entry from t ''Example 2:'' How QB64 avoids a ''Redo from start'' multiple entry error. Use commas between values. {{CodeStart}} '' '' {{Cl|DO}} '' '' - {{Cl|INPUT}} "What is your name, age, and sex(M/F)"; name$, age%, sex$ + {{Cl|INPUT}} "What is your name, age, and sex(M/F)"; name$, age%, sex$ {{Cl|LOOP}} {{Cl|UNTIL}} age% 'loop until age is not 0 -{{Cl|IF}} age% >= 21 {{Cl|THEN}} {{Cl|PRINT}} "You can drink beer!" {{Cl|ELSE}} {{Cl|PRINT}} "You cannot drink beer yet!" +{{Cl|IF}} age% >= 21 {{Cl|THEN}} {{Cl|PRINT}} "You can drink beer!" {{Cl|ELSE}} {{Cl|PRINT}} "You cannot drink beer yet!" {{Cl|END}} '' '' {{CodeEnd}} {{OutputStart}} @@ -62,12 +62,12 @@ You can drink beer! {{Cl|SCREEN}} 12 {{Cl|COLOR}} 14: {{Cl|LOCATE}} 29, 2 ' place cursor at beginning of prompt line -{{Cl|PRINT}} "Enter a name to search for... "; 'print prompt on screen with input to follow -{{Cl|COLOR}} 15: {{Cl|INPUT}} {{text|;|red}} "", name$ ' get search name from user +{{Cl|PRINT}} "Enter a name to search for... "; 'print prompt on screen with input to follow +{{Cl|COLOR}} 15: {{Cl|INPUT}} {{text|;|red}} "", name$ ' get search name from user {{Cl|LOCATE}} 29, 2: {{Cl|PRINT}} {{Cl|SPC}}(78); ' erase previous prompt n$ = {{Cl|UCASE$}}(name$) ' convert search name to upper case {{Cl|COLOR}} 14' change foreground color to yellow -{{Cl|LOCATE}} 29, 2: {{Cl|PRINT}} "Searching..."; 'print message +{{Cl|LOCATE}} 29, 2: {{Cl|PRINT}} "Searching..."; 'print message {{Cl|SLEEP}} {{CodeEnd}} {{OutputStart}}{{text|Enter a name to search for...|#FFFF00}} â–ˆ @@ -83,4 +83,4 @@ n$ = {{Cl|UCASE$}}(name$) ' convert search name to upper case * [[Scancodes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INPUT_(TCP%2FIP_statement).txt b/internal/help/INPUT_(TCP%2FIP_statement).txt deleted file mode 100644 index 619161a8d..000000000 --- a/internal/help/INPUT_(TCP%2FIP_statement).txt +++ /dev/null @@ -1,68 +0,0 @@ -'''INPUT''' reads a formatted message from a TCP/IP connection opened using [[_OPENHOST]], [[_OPENCLIENT]] or [[_OPENCONNECTION]]. - - -{{PageSyntax}} -: '''INPUT''' #{{Parameter|connectionHandle}}, data1[, data2, ...etc] - - -{{PageDescription}} -* Use '''INPUT #''' to avoid reading fragmented data messages. -* If any part of the '''INPUT #''' process doesn't complete, then [[EOF]]({{Parameter|connectionHandle}}) will return -1. -* INPUT # can read multiple data in one read. '''GET #''' would need a [[TYPE]] variable to read multiple values. - - -==Availability== -* '''Version 0.954 and older'''. -** For version 1.000 and up use [[GET (TCP/IP statement)]] - - -==Communicating using QB64's formatted messages== -* Benefit: QB64 handles sending and receiving data in messages. It knows how long each message is and waits for the full message to arrive, avoiding partial messages which have been fragmented from being returned. -* Disadvantage: Really only useful for communicating with other QB64 programs (or other programs aware of QB64's header format). - - -{{PageExamples}} -'''Note:''' In the following examples 'h' denotes the host's handle, 'c' the client's handle and 'o' as other handle. - -''Example 1:'' Host sends 2 messages to client and reads data from others. - -{{CodeStart}} '' '' - {{Cl|PRINT (TCP/IP statement)|PRINT}} #c, a$ ' sends the string value a$ (size is calculated by an INPUT) - PRINT #c, x% ' if x was equal to 5, this would send " 5 " (without the quotation marks) - '''INPUT #'''o, a$ ' reads the next available message (if arrived) or sets a$'s length to 0 '' '' -{{CodeEnd}} -:''Explanation:'' INPUT #o,x% 'effectively reads the next message, performs the VAL function upon it and stores the result in x%. If any part of this process doesn't work then EOF(o) will return -1. - - -* INPUT of multiple QB64 formatted messages in the one statement will only succeed if every variable can be filled with valid data from the input buffer, if not, EOF returns -1 (failed), any read data is reverted to the buffer and the values of every variable become undefined. However, multiple INPUT can be very beneficial in the aid of communicating multiple data items in the one message. For example: - - -''Example 2:'' Note how variables need not be sent together. -{{CodeStart}} '' '' - {{Cl|PRINT (TCP/IP statement)|PRINT}} #myclient, a% - PRINT #myclient, b#, c$ '' '' -{{CodeEnd}} - - -''Example 3:'' Using multiple INPUT variables in the same command. -{{CodeStart}} '' '' - t! = TIMER + 3 'wait 3 seconds - DO - '''INPUT #'''myhost, aa%, bb#, cc$ 'when all variables are filled, EOF(myhost) returns 0 - IF TIMER > t! THEN EXIT DO ' 3 second timeout - LOOP WHILE {{Cl|EOF}}(myhost) '' '' -{{CodeEnd}} -:''Explanation:'' Note that communications must be set up in advance for the host and user to know that more than one piece of data is available! Data timing also may affect those communications. Data could be missed using [[GET (TCP/IP statement)]] or [[PUT (TCP/IP statement)]]s as data lengths are unknown. - - -===More examples=== -* See the example in [[_OPENCONNECTION]]. - - -{{PageSeeAlso}} -* [[PRINT (TCP/IP statement)]], [[GET (TCP/IP statement)]], [[PUT (TCP/IP statement)]] -* [[_OPENHOST]], [[_OPENCLIENT]], [[_OPENCONNECTION]], [[INPUT (file statement)]] -* [[TCP/IP Message Format]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/INPUT_(file_mode).txt b/internal/help/INPUT_(file_mode).txt index 47a22de03..583542a90 100644 --- a/internal/help/INPUT_(file_mode).txt +++ b/internal/help/INPUT_(file_mode).txt @@ -21,7 +21,7 @@ The '''INPUT''' file mode in an [[OPEN]] statement opens an existing file for [[ {{CodeStart}} '' '' DIM Fdata$(100) - INPUT "Enter data file name: ", datafile$ + INPUT "Enter data file name: ", datafile$ IF _FILEEXISTS(datafile$) THEN D% = {{Cl|FREEFILE}}: count = 0 {{Cl|OPEN}} datafile$ FOR {{Cl|INPUT (file mode)|INPUT}} AS #D% @@ -31,7 +31,7 @@ The '''INPUT''' file mode in an [[OPEN]] statement opens an existing file for [[ IF count = 100 THEN {{Cl|EXIT}} DO ' don't exceed {{Cl|Arrays|array}} size! LOOP {{Cl|CLOSE}} #D% - ELSE : PRINT "File not found!" + ELSE : PRINT "File not found!" END IF {{CodeEnd}} : ''Explanation:'' The [[_FILEEXISTS]] function is used before {{InlineCode}}OPEN datafile$ FOR INPUT AS #D%{{InlineCodeEnd}}, which would generate an error in case the file didn't exist. @@ -45,4 +45,4 @@ The '''INPUT''' file mode in an [[OPEN]] statement opens an existing file for [[ * [[_FILEEXISTS]], [[_DIREXISTS]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INPUT_(file_statement).txt b/internal/help/INPUT_(file_statement).txt index b842ee8bd..ef98203e1 100644 --- a/internal/help/INPUT_(file_statement).txt +++ b/internal/help/INPUT_(file_statement).txt @@ -5,15 +5,15 @@ The [[INPUT #]] file or port statement reads sequential data using one variable : [[INPUT #]]{{Parameter|fileNumber&}}, {{Parameter|variable1}}[, {{Parameter|variable2}}, ..., {{Parameter|variableN}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|fileNumber&}} is a positive [[LONG]] integer value used to [[OPEN]] the file FOR [[INPUT (file mode)|INPUT]] mode. -* The [[type]] of the ''variable'' used defines the value or list of values to be returned from the file. Numeric types must match the values returned. +* The [[Variable Types|type]] of the ''variable'' used defines the value or list of values to be returned from the file. Numeric types must match the values returned. * As reflected in the syntax you can list a number of variables with different types seperated by a comma and they will hold the values in the file (keep in mind that the information in the file should match the variable types used). {{PageDescription}} * The file number can be determined by the programmer or be an unused number returned by the [[FREEFILE]] function. -* Variable types must match the numerical [[type]]s being read. [[STRING]] variables can return unquoted numeric values. +* Variable types must match the numerical [[Variable Types|type]]s being read. [[STRING]] variables can return unquoted numeric values. * Leading or trailing spaces of [[STRING]] values must be inside of quotes. [[WRITE (file statement)|WRITE #]] writes strings inside of quotes automatically. [[PRINT (file statement)|PRINT #]] removes quotes. * [[INPUT #]] will read each value until it encounters a comma for the next value in a list. * Use the [[EOF]] function to avoid reading past the end of a file. @@ -25,14 +25,14 @@ The [[INPUT #]] file or port statement reads sequential data using one variable {{PageExamples}} ''Example 1:'' Writes new data to a text file sequentially and reads it back to the program screen. {{CodeStart}} '' '' -filename$ = "testfile.dat" -x = 1: y = 2: z$ = "Three" +filename$ = "testfile.dat" +x = 1: y = 2: z$ = "Three" {{Cl|OPEN}} filename$ {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 'opens and clears an existing file or creates new empty file {{Cl|WRITE (file statement)|WRITE}} #1, x, y, z$ {{Cl|CLOSE}} #1 -{{Cl|PRINT}} "File created with data. Press a key!" +{{Cl|PRINT}} "File created with data. Press a key!" K$ = {{Cl|INPUT$}}(1) 'press a key {{Cl|OPEN}} filename$ {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #2 'opens a file to read it @@ -45,24 +45,24 @@ K$ = {{Cl|INPUT$}}(1) 'press a key {{Cl|END}} '' '' {{CodeEnd}} {{OutputStart}} 1 2 Three -1,2,"Three" +1,2,"Three" {{OutputEnd}} : ''Screen output:'' [[PRINT]] string values will not display enclosing quotes. [[WRITE]] screen displays will. -{{TextStart}}1,2,"Three" '' '' {{TextEnd}} +{{TextStart}}1,2,"Three" '' '' {{TextEnd}} : ''File content:'' [[WRITE (file statement)|WRITE]] string values will include quotation marks, but they are not required to read the file value as a string. ''Example 2:'' Commas inside of string values will not affect the INPUT value as those commas are not [[WRITE (file statement)|WRITE]] separators. {{CodeStart}} '' '' -x$ = "Hello, how are you?" -y$ = "I'm fine." +x$ = "Hello, how are you?" +y$ = "I'm fine." -{{Cl|OPEN}} "testinp.dat" {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 +{{Cl|OPEN}} "testinp.dat" {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 {{Cl|WRITE (file statement)|WRITE}} #1, x$, y$ {{Cl|CLOSE}} #1 -{{Cl|OPEN}} "testinp.dat" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 +{{Cl|OPEN}} "testinp.dat" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 {{Cl|INPUT (file statement)|INPUT}} #1, a$, b$ {{Cl|CLOSE}} #1 @@ -71,8 +71,8 @@ y$ = "I'm fine." {{Cl|WRITE}} a$, b$ '' '' {{CodeEnd}} {{OutputStart}}Hello, how are you? I'm fine. -"Hello, how are you?","I'm fine."{{OutputEnd}} -{{TextStart}}"Hello, how are you?","I'm fine."{{TextEnd}} +"Hello, how are you?","I'm fine."{{OutputEnd}} +{{TextStart}}"Hello, how are you?","I'm fine."{{TextEnd}} : ''File content:'' Commas inside of strings delimited with quotes will be ignored. [[WRITE (file statement)|WRITE]] will always enclose string values in quotes. @@ -80,7 +80,7 @@ y$ = "I'm fine." * [[INPUT (file mode)]], [[LINE INPUT (file statement)|LINE INPUT #]], [[INPUT$]] {{text|(file input)}} * [[INPUT]], [[LINE INPUT]], [[INPUT$]] {{text|(keyboard input)}} * [[PRINT (file statement)|PRINT #]], [[PRINT USING (file statement)|PRINT #, USING]] -* [[GET|GET #]], [[INPUT (TCP/IP statement)]] +* [[GET|GET #]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INSTR.txt b/internal/help/INSTR.txt index 08c286d7d..16ca10d21 100644 --- a/internal/help/INSTR.txt +++ b/internal/help/INSTR.txt @@ -5,7 +5,7 @@ The [[INSTR]] function searches for the first occurence of a search [[STRING]] w : {{Parameter|position%}} = [[INSTR]]([{{Parameter|start%}},] {{Parameter|baseString$}}, {{Parameter|searchString$}}) -{{Parameters}} +{{PageParameters}} * The optional literal or variable [[INTEGER]] {{Parameter|start%}} indicates where in the {{Parameter|baseString$}} the search must start. * The {{Parameter|baseString$}} is a literal or variable [[STRING]] value to be searched for an exact match including [[UCASE$|letter cases]]. * The {{Parameter|searchString$}} is a literal or variable [[STRING]] value being searched. @@ -19,23 +19,24 @@ The [[INSTR]] function searches for the first occurence of a search [[STRING]] w * The {{Parameter|searchString$}} should be smaller or equal in [[LEN|length]] to the {{Parameter|baseString$}}, or 0 is returned. * Non-zero {{Parameter|position%}} return values can be used as a new start position by adding 1 to re-search the base string. See the example below. * In a loop, INSTR can search an entire file for occurences of certain words. See the [[MID$ (statement)|MID$]] statement example. +* To search right to left, use [[_INSTRREV]] -==QBasic/QuickBASIC== +{{PageQBasic}} * The {{Parameter|start%}} position had to be at least 1 or greater when used or there will be an [[ERROR Codes|Illegal function call]] error. In '''QB64''', a {{Parameter|start%}} value of 0 or negative is interpreted as 1 and doesn't generate an error. {{PageExamples}} ''Example:'' Reading more than one instance of a word in a string using the INSTR return value as the start value plus 1. {{CodeStart}} '' '' -text$ = "The cats and dogs where playing, even though dogs don't like cats." +text$ = "The cats and dogs where playing, even though dogs don't like cats." {{Cl|DO...LOOP|DO}} - findcats% = {{Cl|INSTR}}(findcats% + 1, text$, "cats") ' find another occurance after - {{Cl|IF...THEN|IF}} findcats% {{Cl|THEN}} {{Cl|PRINT}} "There is 'cats' in the string at position:"; findcats% + findcats% = {{Cl|INSTR}}(findcats% + 1, text$, "cats") ' find another occurance after + {{Cl|IF...THEN|IF}} findcats% {{Cl|THEN}} {{Cl|PRINT}} "There is 'cats' in the string at position:"; findcats% {{Cl|LOOP}} {{Cl|UNTIL}} findcats% = 0 -findmonkey% = {{Cl|INSTR}}(text$, "monkeys") ' find any occurance? -PRINT findmonkey%; "'monkeys' were found so it returned:"; findmonkey% '' '' +findmonkey% = {{Cl|INSTR}}(text$, "monkeys") ' find any occurance? +PRINT findmonkey%; "'monkeys' were found so it returned:"; findmonkey% '' '' {{CodeEnd}} {{OutputStart}}There is 'cats' in the string at position: 5 There is 'cats' in the string at position: 62 @@ -49,6 +50,7 @@ There is 'cats' in the string at position: 62 * [[LEFT$]], [[RIGHT$]] * [[LCASE$]], [[UCASE$]] * [[STRING]], [[INTEGER]] +* [[_INSTRREV]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INT.txt b/internal/help/INT.txt index ae4228fe3..98c9802c0 100644 --- a/internal/help/INT.txt +++ b/internal/help/INT.txt @@ -5,7 +5,7 @@ The [[INT]] function rounds a numeric value down to the next whole number. : {{Parameter|result}} = [[INT]]({{Parameter|expression}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|expression}} is any [[Data types|type]] of literal or variable numerical value or mathematical calculation. @@ -33,4 +33,4 @@ PRINT INT(-2.5) * [[_ROUND]], [[_CEIL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INTEGER.txt b/internal/help/INTEGER.txt index 3ce973aac..35df7035c 100644 --- a/internal/help/INTEGER.txt +++ b/internal/help/INTEGER.txt @@ -6,9 +6,9 @@ * Integers do not use decimal point values but will round those off to the nearest even whole number. -* QBasic integer values can range from -32768 to 32767 without an "overflow" error. +* QBasic integer values can range from -32768 to 32767 without an "overflow" error. * For larger integer values use the [[LONG]] integer type. -* '''QB64''' [[INTEGER]] values greater than 32767 become negative signed values instead of throwing an "overflow" error, as the top bit designates a negative value. See example 1 below. +* '''QB64''' [[INTEGER]] values greater than 32767 become negative signed values instead of throwing an "overflow" error, as the top bit designates a negative value. See example 1 below. * '''QB64''' [[_UNSIGNED]] integers can range from 0 to 65535. * '''QB64''' _UNSIGNED [[_INTEGER64]] values range from 0 to 18446744073709551615 * Many graphic programs require [[INTEGER]] arrays. @@ -58,4 +58,4 @@ i~% = 70000 * [[\|Integer Division]], [[MOD]] (Integer remainder division) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INTERRUPT.txt b/internal/help/INTERRUPT.txt index 183a9f037..2cc7097a8 100644 --- a/internal/help/INTERRUPT.txt +++ b/internal/help/INTERRUPT.txt @@ -1,7 +1,7 @@ The [[INTERRUPT]] statement is an assembly routine for accessing computer information registers. -==Legacy support== +{{PageLegacySupport}} * Registers are emulated in '''QB64''' to allow older programs to be compiled. To enable mouse input in your programs, the recommended practice is to use [[_MOUSEINPUT]] and related functions. @@ -9,13 +9,13 @@ The [[INTERRUPT]] statement is an assembly routine for accessing computer inform : [[CALL]] [[INTERRUPT]]({{Parameter|intNum}}, {{Parameter|inRegs}}, {{Parameter|outRegs}}) -{{Parameters}} +{{PageParameters}} * Registers are emulated in QB64 and there is no support for {{Parameter|intNum}} 33h mouse functions above 3 or {{Parameter|intNum}} requests other than 33. * {{Parameter|inRegs}} are the values placed into the call and {{Parameter|outRegs}} are the register return values. -==QBasic/QuickBASIC== -* Available in QuickBASIC versions 4 and up and required an external library to be loaded. <!-- Command line: QB.EXE /L in QB4.5 --> '''QB64''' emulates the statement without an external library. +{{PageQBasic}} +* Available in QuickBASIC versions 4 and up and required an external library to be loaded. <!-- Command line: QB.EXE /L in QB4.5 --> '''QB64''' emulates the statement without an external library. * {{Parameter|intNum}} is the interrupt reference vector table address. For historic reference, see: [http://www.ctyme.com/intr/cat.htm Ralf Brown's Interrupt List] * The [[TYPE]] definition below will work for both [[INTERRUPT]] and INTERRUPTX statement calls * INTERRUPT can use all of the below TYPE elements when they are required. @@ -46,4 +46,4 @@ The [[INTERRUPT]] statement is an assembly routine for accessing computer inform * Ethan Winer's free QBasic Book and Programs: [http://www.ethanwiner.com/fullmoon.html WINER.ZIP] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/INTERRUPTX.txt b/internal/help/INTERRUPTX.txt index e14be32a6..5f9142387 100644 --- a/internal/help/INTERRUPTX.txt +++ b/internal/help/INTERRUPTX.txt @@ -1,7 +1,7 @@ The [[INTERRUPTX]] statement is an assembly routine for accessing computer information registers. -==Legacy support== +{{PageLegacySupport}} * Registers are emulated in '''QB64''' to allow older programs to be compiled. To enable mouse input in your programs, the recommended practice is to use [[_MOUSEINPUT]] and related functions. @@ -9,13 +9,13 @@ The [[INTERRUPTX]] statement is an assembly routine for accessing computer infor : [[CALL]] [[INTERRUPTX]]({{Parameter|intNum}}, {{Parameter|inRegs}}, {{Parameter|outRegs}}) -{{Parameters}} +{{PageParameters}} * Registers are emulated in QB64 and there is no support for {{Parameter|intNum}} 33h mouse functions above 3 or {{Parameter|intNum}} requests other than 33. * {{Parameter|inRegs}} are the values placed into the call and {{Parameter|outRegs}} are the register return values. -==QBasic/QuickBASIC== -* Available in QuickBASIC versions 4 and up and required an external library to be loaded. <!-- Command line: QB.EXE /L in QB4.5 --> '''QB64''' emulates the statement without an external library. +{{PageQBasic}} +* Available in QuickBASIC versions 4 and up and required an external library to be loaded. <!-- Command line: QB.EXE /L in QB4.5 --> '''QB64''' emulates the statement without an external library. * {{Parameter|intNum}} is the interrupt reference vector table address. For historic reference, see: [http://www.ctyme.com/intr/cat.htm Ralf Brown's Interrupt List] * The [[TYPE]] definition below will work for both [[INTERRUPT]] and INTERRUPTX statement calls * INTERRUPT can use all of the below TYPE elements when they are required. @@ -46,4 +46,4 @@ The [[INTERRUPTX]] statement is an assembly routine for accessing computer infor * Ethan Winer's free QBasic Book and Programs: [http://www.ethanwiner.com/fullmoon.html WINER.ZIP] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/IOCTL$.txt b/internal/help/IOCTL$.txt deleted file mode 100644 index 6ee7a51da..000000000 --- a/internal/help/IOCTL$.txt +++ /dev/null @@ -1,21 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords currently not supported by QB64|not supported in QB64]].''' ----- - -The [[IOCTL$]] function receives messages from an open device, format of the messages received is device dependent (see manual of the device to see if it is [[IOCTL]] compatible). Most devices are '''not''' [[IOCTL]] compatible. - - -{{PageSyntax}} -:{{Parameter|result$}} = [[IOCTL$]]([#]{{Parameter|fileNumber%}}) - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* {{Parameter|fileNumber%}} is the file number for the [[OPEN]]ed device and {{Parameter|result$}} is the message received from the device. -*'''Note:''' The device must first be opened with the [[OPEN]] statement. - - -{{PageSeeAlso}} -* [[IOCTL]] -* [[OPEN]] - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/IOCTL.txt b/internal/help/IOCTL.txt deleted file mode 100644 index 13e70dc36..000000000 --- a/internal/help/IOCTL.txt +++ /dev/null @@ -1,26 +0,0 @@ -'''This page is maintained for historic purposes. The keyword is [[Keywords currently not supported by QB64|not supported in QB64]].''' ----- - -The [[IOCTL]] statement sends a message to an open IOCTL compatible device. - - -{{PageSyntax}} -:[[IOCTL]] [#]{{Parameter|fileNumber%}}, {{Parameter|message$}} - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* {{Parameter|fileNumber%}} is the number of an open device -* {{Parameter|message$}} is the message you want to send. -* The device must first be opened with the {{KW|OPEN}} statement. -* Use [[IOCTL]] to receive messages from the device. -* The message sent is device-specific (read manual to see if it is [[IOCTL]] compatible). -* [[IOCTL]] doesn't work with most devices, it doesn't work with BASIC devices (LPTn:, COMn:, SCRN:, CONS:) or DOS block devices (A: to Z:). - - -{{PageSeeAlso}} -* [[IOCTL$]] -* [[OPEN]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/KEY(n).txt b/internal/help/KEY(n).txt index 0d5ccba7c..d555fa248 100644 --- a/internal/help/KEY(n).txt +++ b/internal/help/KEY(n).txt @@ -31,15 +31,15 @@ {{Cl|KEY(n)|KEY(12)}} {{Cl|ON}} ' enable event trapping DO -LOOP UNTIL UCASE$(INKEY$) = "Q" ' Idle loop for demo +LOOP UNTIL UCASE$(INKEY$) = "Q" ' Idle loop for demo {{Cl|SYSTEM}} CursorPad: -PRINT "Pressed LEFT key on cursor keypad." +PRINT "Pressed LEFT key on cursor keypad." {{Cl|RETURN}} NumericPad: -PRINT "Pressed LEFT key on numeric keypad." +PRINT "Pressed LEFT key on numeric keypad." RETURN '' '' {{CodeEnd}} @@ -48,14 +48,14 @@ RETURN '' '' {{CodeStart}} '' '' {{Cl|KEY(n)|KEY(5)}} {{Cl|ON}} {{Cl|ON KEY(n)|ON KEY(5)}} {{Cl|GOSUB}} execute -{{Cl|PRINT}} "Press F5 (or ESC) to quit!)" +{{Cl|PRINT}} "Press F5 (or ESC) to quit!)" {{Cl|DO}} {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) ' idle loop {{Cl|SYSTEM}} execute: -PRINT "You pressed the F5 key..." +PRINT "You pressed the F5 key..." {{Cl|SLEEP}} 1 -PRINT "Press any key to continue..." +PRINT "Press any key to continue..." SLEEP '' '' {{CodeEnd}} @@ -66,4 +66,4 @@ SLEEP '' '' * [[Keyboard scancodes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/KEY_LIST.txt b/internal/help/KEY_LIST.txt index 8e33742b5..8b42fc449 100644 --- a/internal/help/KEY_LIST.txt +++ b/internal/help/KEY_LIST.txt @@ -14,10 +14,10 @@ The [[KEY LIST]] statement lists the soft key strings assigned to each of the fu {{PageExamples}} ''Example 1:'' Displaying the current '''KEY LIST''' string assignments to the Function keys. {{CodeStart}} '' '' -{{Cl|KEY n|KEY}} 1, "Help" -{{Cl|KEY n|KEY}} 5, "Compile" -{{Cl|KEY n|KEY}} 10, "Quit" -{{Cl|PRINT}} "Press any key!" +{{Cl|KEY n|KEY}} 1, "Help" +{{Cl|KEY n|KEY}} 5, "Compile" +{{Cl|KEY n|KEY}} 10, "Quit" +{{Cl|PRINT}} "Press any key!" K$ = {{Cl|INPUT$}}(1) {{Cl|KEY LIST}} {{Cl|END}} '' '' @@ -40,13 +40,13 @@ F12 ''Example 2:'' Displaying the function key assignments for F1 to F10 at the bottom of the screen with '''KEY ON''' and '''KEY OFF'''. {{CodeStart}} '' '' -{{Cl|KEY n|KEY}} 1, "Help" + {{Cl|CHR$}}(13) 'add Return character to complete the input -{{Cl|KEY n|KEY}} 5, "Compile" + {{Cl|CHR$}}(13) -{{Cl|KEY n|KEY}} 10, "Quit" + {{Cl|CHR$}}(13) +{{Cl|KEY n|KEY}} 1, "Help" + {{Cl|CHR$}}(13) 'add Return character to complete the input +{{Cl|KEY n|KEY}} 5, "Compile" + {{Cl|CHR$}}(13) +{{Cl|KEY n|KEY}} 10, "Quit" + {{Cl|CHR$}}(13) '''KEY ON''' DO -{{Cl|INPUT}} "Press F10 to turn display off! ", M$ -LOOP UNTIL M$ = "Quit" +{{Cl|INPUT}} "Press F10 to turn display off! ", M$ +LOOP UNTIL M$ = "Quit" '''KEY OFF''' K$ = {{Cl|INPUT$}}(1) {{Cl|KEY LIST}} @@ -69,7 +69,7 @@ Press F10 to turn display off! Compile 1 {{WBG|Helpâ†}} 2 3 4 5 {{WBG|Compil}} 6 7 8 9 10 {{WBG|Quitâ†}} {{OutputEnd}} -:''Explanation:'' The [[INPUT]] variable will hold the string value as if it was typed in and entered. "Quit" will KEY OFF bottom display. +:''Explanation:'' The [[INPUT]] variable will hold the string value as if it was typed in and entered. "Quit" will KEY OFF bottom display. {{PageSeeAlso}} @@ -78,4 +78,4 @@ Press F10 to turn display off! Compile * [[_KEYHIT]], [[_KEYDOWN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/KEY_n.txt b/internal/help/KEY_n.txt index 721663118..ef8322e67 100644 --- a/internal/help/KEY_n.txt +++ b/internal/help/KEY_n.txt @@ -1,4 +1,4 @@ -The [[KEY n]] statement is used to assign a "soft key" string or a flag and scan code to a function key or display function soft key assignments. +The [[KEY n]] statement is used to assign a "soft key" string or a flag and scan code to a function key or display function soft key assignments. {{PageSyntax}} @@ -9,13 +9,13 @@ The [[KEY n]] statement is used to assign a "soft key" string or a fla ==Function Soft Key Strings (1 to 10, 30 & 31)== -<center>'''Assigning "Softkey" [[STRING]] values to function key press events'''</center> +<center>'''Assigning "Softkey" [[STRING]] values to function key press events'''</center> * n% is the number 1 to 10 (F1 to F10), 30 or 31 (F11 or F12) of the function key to assign the soft key string. -* Instead of using an [[ON KEY(n)]] [[GOSUB]] statement, Function keys F1 to F12 can be assigned a "soft key" string value to return. -* {{InlineCode}}KEY n, text${{InlineCodeEnd}} defines a literal or variable [[STRING]] "soft key" function key return value. +* Instead of using an [[ON KEY(n)]] [[GOSUB]] statement, Function keys F1 to F12 can be assigned a "soft key" string value to return. +* {{InlineCode}}KEY n, text${{InlineCodeEnd}} defines a literal or variable [[STRING]] "soft key" function key return value. -{{WhiteStart}} '''KEY 1, "Help"''' 'returns the string "Help" to [[INPUT]] variable when F1 is pressed{{WhiteEnd}} +{{WhiteStart}} '''KEY 1, "Help"''' 'returns the string "Help" to [[INPUT]] variable when F1 is pressed{{WhiteEnd}} * [[KEY LIST]] displays each of the 12 softkey '''function key''' (F1 to F12) string values going down left side of screen. * [[KEY LIST|KEY {ON|OFF}]] displays or hides the softkey values of function keys F1 to F10 at the bottom of the screen. @@ -30,7 +30,7 @@ The [[KEY n]] statement is used to assign a "soft key" string or a fla ==User Defined Keys (15 to 29)== -<center>'''Assigning user defined keys or combinations with: KEY n, CHR$(keyflag) + CHR$(scancode)'''</center> +<center>'''Assigning user defined keys or combinations with: KEY n, CHR$(keyflag) + CHR$(scancode)'''</center> {{WhiteStart}} '''Function Key Flag Combination Values''' '''0''' = no function key combination flag(single key) @@ -54,9 +54,9 @@ The [[KEY n]] statement is used to assign a "soft key" string or a fla ' 41 2 3 4 5 6 7 8 9 10 11 12 13 14 {{text|82 71 73|blue}} {{text|32|purple}}/69 {{text|53|blue}} 55 74 ' '''Tab Q W E R T Y U I O P [{ ]} \| Delete End PgDn 7/Home 8/â–² 9/PU + ''' ' 15 16 17 18 19 20 21 22 23 24 25 26 27 43 {{text|83 79 81|blue}} 71 {{text|11|red}}/72 73 78 -' '''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º E''' +' '''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º E''' ' {{text|64|purple}}/58 30 31 32 33 34 35 36 37 38 39 40 28 {{text|12|red}}/75 76 {{text|13|red}}/77 '''n''' -' '''Shift Z X C V B N M ,< .> /? Shift â–² 1/End 2/â–¼ 3/PD t''' +' '''Shift Z X C V B N M ,< .> /? Shift â–² 1/End 2/â–¼ 3/PD t''' ' {{text|1|purple}}/42 44 45 46 47 48 49 50 51 52 53 {{text|2|purple}}/54 {{text|72|blue}} 79 {{text|14|red}}/80 81 '''e''' ' '''Ctrl Win Alt Spacebar Alt Win Menu Ctrl â—„- â–¼ -â–º 0/Insert ./Del r''' ' {{text|4|purple}}/29 {{text|91|orange}} {{text|8|purple}}/56 57 {{text|56|blue}} {{text|92 93|orange}} {{text|29 75 80 77|blue}} 82 83 {{text|28|blue}} @@ -68,13 +68,13 @@ The [[KEY n]] statement is used to assign a "soft key" string or a fla {{WhiteEnd}}{{small|NOTE: The above commented table can be copied and pasted directly into the QB64 IDE}} -<center>'''Trapping Ctrl, Alt and Shift key combinations'''</center> +<center>'''Trapping Ctrl, Alt and Shift key combinations'''</center> :Keyboard Flag values can be added to monitor more than one control key. For example, flag combination 12 would flag both the Ctrl and Alt key presses. Since the flag already determines the function key to monitor, you don't necessarily have to use it's scancode. You can look for a key combination such as Ctrl + by using the plus key's scancode which is 13 as shown below: {{WhiteStart}} '''KEY 15, CHR$(4) + CHR$(13)''' 'enabled event when Ctrl and + key are pressed{{WhiteEnd}} -<center>'''Trapping Extended keys (Insert, Home, Page Up, Right Ctrl, R.Alt, and cursor arrow pad)'''</center> +<center>'''Trapping Extended keys (Insert, Home, Page Up, Right Ctrl, R.Alt, and cursor arrow pad)'''</center> * On a 101-key keyboard, you can trap any of the keys on the dedicated cursorpad by assigning the string to any of the keynumber values from 15 to 25 using the 128 keyboard flag. The cursor arrows are not the same as the pre-assigned number pad arrows: {{WhiteStart}} '''KEY n, [[CHR$]](128) + [[CHR$]](scancode) ' where n = 15 to 29. See: [[Scancodes]]''' @@ -86,10 +86,10 @@ The [[KEY n]] statement is used to assign a "soft key" string or a fla KEY 18, CHR$(128) + CHR$(80) 'down arrow cursor pad {{WhiteEnd}} -<center>Use CHR$(0) for the first byte flag for non-function keys. You can substitute a literal [[STRING]] value to trap as shown in Example 2.</center> +<center>Use CHR$(0) for the first byte flag for non-function keys. You can substitute a literal [[STRING]] value to trap as shown in Example 2.</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==Examples== @@ -97,9 +97,9 @@ The [[KEY n]] statement is used to assign a "soft key" string or a fla ''Example 1:'' Shows a list of all the string assignments to the function keys F1-F12 (Prints help every time F1 is pressed in the input) {{CodeStart}} '' '' -{{Cl|KEY n|KEY}} 1, "Help" +{{Cl|KEY n|KEY}} 1, "Help" {{Cl|KEY LIST}} -INPUT "Press F1 or to quit press ENTER: ", a$ +INPUT "Press F1 or to quit press ENTER: ", a$ {{CodeEnd}} {{OutputStart}} @@ -122,10 +122,10 @@ Press F1 or to quit press ENTER: HelpHelpHelpHelp ''Example 2:'' Trapping the Control + key combination. Use the Control Keyboard flag 4 and + key scancode 13. {{CodeStart}} {{Cl|CLS}} '' '' -{{Cl|KEY n|KEY}} 15, {{Cl|CHR$}}(4) + {{Cl|CHR$}}(13) 'scancode for "=" or "+" key is 13 +{{Cl|KEY n|KEY}} 15, {{Cl|CHR$}}(4) + {{Cl|CHR$}}(13) 'scancode for "=" or "+" key is 13 {{Cl|ON KEY (n)|ON KEY}}(15) {{Cl|GOSUB}} control 'action of user defined key press {{Cl|KEY(n)|KEY}}(15) ON 'turn ON event trapping for key combination -{{Cl|PRINT}} "Press Ctrl and plus key combination, escape quits!" +{{Cl|PRINT}} "Press Ctrl and plus key combination, escape quits!" {{Cl|DO}}: {{Cl|SLEEP}} count = count + 1 {{Cl|PRINT}} count; @@ -133,7 +133,7 @@ count = count + 1 {{Cl|LOOP}} control: 'NUMBER LOCK MUST BE OFF! -{{Cl|PRINT}} "Control and + keys pressed!"; +{{Cl|PRINT}} "Control and + keys pressed!"; {{Cl|RETURN}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} @@ -161,8 +161,8 @@ DO numL = {{Cl|PEEK}}(1047) {{Cl|AND (boolean)|AND}} 32 '32 if on capL = {{Cl|PEEK}}(1047) {{Cl|AND (boolean)|AND}} 64 '64 on {{Cl|IF...THEN|IF}} numL {{Cl|OR (boolean)|OR}} capL {{Cl|THEN}} - {{Cl|COLOR}} 12: {{Cl|LOCATE}} 13, 50: {{Cl|PRINT}} "Turn Num or Cap Lock OFF!" - {{Cl|ELSE}} : {{Cl|COLOR}} 10: {{Cl|LOCATE}} 13, 50: {{Cl|PRINT}} "Number and Cap Lock OK! " + {{Cl|COLOR}} 12: {{Cl|LOCATE}} 13, 50: {{Cl|PRINT}} "Turn Num or Cap Lock OFF!" + {{Cl|ELSE}} : {{Cl|COLOR}} 10: {{Cl|LOCATE}} 13, 50: {{Cl|PRINT}} "Number and Cap Lock OK! " {{Cl|SLEEP}} ' {{Cl|KEY n|KEY}} or {{Cl|TIMER}} event breaks a sleep {{Cl|END IF}} {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) @@ -173,34 +173,34 @@ DO {{Cl|END}} UpPad: -COLOR 14: LOCATE 11, 26: PRINT " Up cursor pad " +COLOR 14: LOCATE 11, 26: PRINT " Up cursor pad " {{Cl|RETURN}} LPad: -COLOR 14: LOCATE 11, 26: PRINT "Left cursor pad " +COLOR 14: LOCATE 11, 26: PRINT "Left cursor pad " {{Cl|RETURN}} RPad: -COLOR 14: LOCATE 11, 26: PRINT "Right cursor pad" +COLOR 14: LOCATE 11, 26: PRINT "Right cursor pad" {{Cl|RETURN}} DnPad: -COLOR 14: LOCATE 11, 26: PRINT "Down cursor pad " +COLOR 14: LOCATE 11, 26: PRINT "Down cursor pad " {{Cl|RETURN}} UpNum: -COLOR 11: LOCATE 11, 26: PRINT " Up number pad " +COLOR 11: LOCATE 11, 26: PRINT " Up number pad " {{Cl|RETURN}} LNum: -COLOR 11: LOCATE 11, 26: PRINT "Left number pad " +COLOR 11: LOCATE 11, 26: PRINT "Left number pad " {{Cl|RETURN}} RNum: -COLOR 11: LOCATE 11, 26: PRINT "Right number pad" +COLOR 11: LOCATE 11, 26: PRINT "Right number pad" {{Cl|RETURN}} DnNum: -COLOR 11: LOCATE 11, 26: PRINT "Down number pad " +COLOR 11: LOCATE 11, 26: PRINT "Down number pad " {{Cl|RETURN}} '' '' {{CodeEnd}} -: ''Explanation:'' The Number Lock or Caps Lock keys ON may hinder extended key reads in Qbasic but not QB64! +: ''Explanation:'' The Number Lock or Caps Lock keys ON may hinder extended key reads in QBasic but not QB64! -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> {{PageSeeAlso}} @@ -210,4 +210,4 @@ COLOR 11: LOCATE 11, 26: PRINT "Down number pad " * [[Keyboard scancodes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/KILL.txt b/internal/help/KILL.txt index c9cca70ca..9fc797e3e 100644 --- a/internal/help/KILL.txt +++ b/internal/help/KILL.txt @@ -11,16 +11,16 @@ The [[KILL]] statement deletes a file designated by a [[STRING]] value or variab * {{Parameter|fileSpec$}} can include a path that can be either relative to the program's current location or absolute, from the root drive. * [[KILL]] cannot remove an [[OPEN]] file. The program must [[CLOSE]] it first. -* If the path or file does not exist, a "File not found" or "Path not found" [[ERROR Codes|error]] will result. See [[_FILEEXISTS]]. -* {{InlineCode}}[[SHELL]] "DEL /Q " + fileName${{InlineCodeEnd}} does the same without a prompt or verification for wildcard deletions. -* {{InlineCode}}[[SHELL]] "DEL /P " + fileName${{InlineCodeEnd}} will ask for user verification. +* If the path or file does not exist, a "File not found" or "Path not found" [[ERROR Codes|error]] will result. See [[_FILEEXISTS]]. +* {{InlineCode}}[[SHELL]] "DEL /Q " + fileName${{InlineCodeEnd}} does the same without a prompt or verification for wildcard deletions. +* {{InlineCode}}[[SHELL]] "DEL /P " + fileName${{InlineCodeEnd}} will ask for user verification. * Cannot delete folders or directories. Use [[RMDIR]] to remove empty folders. * '''Warning: files deleted with [[KILL]] will not go to the Recycle Bin and they cannot be restored.''' {{PageExamples}} {{CodeStart}} -KILL "C:\Qbasic\data\2000data.dat" +KILL "C:\QBasic\data\2000data.dat" {{CodeEnd}} @@ -28,7 +28,6 @@ KILL "C:\Qbasic\data\2000data.dat" * [[RMDIR]], [[FILES]], [[SHELL]], [[OPEN]] * [[CHDIR]], [[MKDIR]], [[NAME]] * [[_FILEEXISTS]], [[_DIREXISTS]] -* [[DOS]], [[Batch Files]], [[DOS#DEL|DEL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Keyword_Reference_-_Alphabetical.txt b/internal/help/Keyword_Reference_-_Alphabetical.txt index f19325c26..251229d6f 100644 --- a/internal/help/Keyword_Reference_-_Alphabetical.txt +++ b/internal/help/Keyword_Reference_-_Alphabetical.txt @@ -1,50 +1,48 @@ __NOTOC__ -<div id="toc"><p style="text-align: center"><br> '''Alphabetical QB64 Keyword Listings''' <br><br>     '''QB 64:'''  [[#uA|_A]] [[#uB|_B]] [[#uC|_C]] [[#uD|_D]] [[#uE|_E]] [[#uF|_F]] [[#uG|_G]] [[#uH|_H]] [[#uI|_I]] [[#uK|_K]] [[#uL|_L]] [[#uM|_M]] [[#uN|_N]] [[#uO|_O]] [[#uP|_P]] [[#uR|_R]] [[#uS|_S]] [[#uT|_T]] [[#uU|_U]] [[#uV|_V]] [[#uW|_W]]                <br><br>'''QBasic:'''  [[#A|A]]   [[#B|B]]   [[#C|C]]   [[#D|D]]   [[#E|E]]    [[#F|F]]   [[#G|G]]   [[#H|H]]    [[#I| I]]    [[#K|K]]   [[#L|L]]   [[#M|M]]   [[#N|N]]    [[#O|O]]   [[#P|P]]    [[#R|R]]   [[#S|S]]    [[#T|T]]   [[#U|U]]   [[#V|V]]   [[#W|W]]   [[#X|X]]   <br><br>'''OpenGL:'''   [[#glA|A]]    [[#glB|B]]    [[#glC|C]]    [[#glD|D]]    [[#glE|E]]     [[#glF|F]]    [[#glG|G]]    [[#glH|H]]    [[#glI| I  ]]   [[#glL|L]]    [[#glM|M]]    [[#glN|N]]     [[#glO|O]]    [[#glP|P]]     [[#glR|R]]    [[#glS|S]]     [[#glT|T]]    [[#glV|V]]       <br><br> [[#symbols|Symbols]] '''   -   ''' [[#references|References]]<br><br>[[Full Story|{{small|Menu Created by Cyperium}} ]]</p></div> +<div id="toc"><p style="text-align: center"><br> '''Alphabetical QB64 Keyword Listings''' <br><br>     '''QB64:'''  [[#uA|_A]] [[#uB|_B]] [[#uC|_C]] [[#uD|_D]] [[#uE|_E]] [[#uF|_F]] [[#uG|_G]] [[#uH|_H]] [[#uI|_I]] [[#uK|_K]] [[#uL|_L]] [[#uM|_M]] [[#uN|_N]] [[#uO|_O]] [[#uP|_P]] [[#uR|_R]] [[#uS|_S]] [[#uT|_T]] [[#uU|_U]] [[#uV|_V]] [[#uW|_W]]                <br><br>'''QBasic:'''  [[#A|A]]   [[#B|B]]   [[#C|C]]   [[#D|D]]   [[#E|E]]    [[#F|F]]   [[#G|G]]   [[#H|H]]    [[#I| I]]    [[#K|K]]   [[#L|L]]   [[#M|M]]   [[#N|N]]    [[#O|O]]   [[#P|P]]    [[#R|R]]   [[#S|S]]    [[#T|T]]   [[#U|U]]   [[#V|V]]   [[#W|W]]   [[#X|X]]   <br><br> [[#symbols|Symbols]] '''   -   ''' [[#references|References]]<br><br>{{small|Menu Created by Cyperium}}</p></div> -<center>[[QB64 FAQ|Go to Frequently Asked Questions about QB64]]</center> +<center>[[QB64 FAQ|Frequently Asked Questions about QB64]]</center> -<p style="text-align: center">[[Keyword Reference - By usage|Go to keywords by Usage]]</p> +<p style="text-align: center">[[Keyword Reference - By usage|Keywords by usage]]</p> -<p style="text-align: center">Keywords beginning with _underscores are QB64 specific.</p> +<p style="text-align: center">Keywords beginning with _underscores are QB64 specific. '''To use them without the prefix, use [[$NOPREFIX]].'''</p> -<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> +<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> -<p style="text-align: center">[[Keywords currently not supported by QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keywords Not Supported in Linux or MAC versions]]</p> +<p style="text-align: center">[[Keywords currently not supported by QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keywords not supported in Linux or MAC versions]]</p> -<p style="text-align: center">Keywords without the underscore at the beginning should work with both QB 4.5 and QB64.</p> +<p style="text-align: center">Keywords without the underscore at the beginning should work with both QB 4.5 and QB64.</p> -<p style="text-align: center"> [https://dl.dropbox.com/u/10291175/QB64OfflineWiki.7z Download the QB64 WIKI for Offline Reference (7 Zip 3.8MB)].</p> +<p style="text-align: center">For comments or suggestions about this WIKI goto the [http://www.qb64.org/forum/index.php QB64 Forum].</p> -<p style="text-align: center"> Offline WIKI Reference contributed by OlDosLover.</p> +<center> '''If code examples only display partial code, use the browser Refresh button'''</center> -<p style="text-align: center">For comments or suggestions about this WIKI goto the [http://www.qb64.net/forum/index.php?board=14.0 QB64 Community Development Forum].</p> - -<center>'''[[Known QB64 Issues]]'''</center> - -<center> '''If code examples only display partial code, use the browser Refresh button'''</center> - -<center>[[Main Page|Main Page with Appendix and Tutorials]]</center> +<center>[[Main Page|Main Page with Appendix and Tutorials]]</center> ==QB64 specific keywords:== -<p style="text-align: center">The underscore prefix is reserved for QB64 _KEYWORDS only.</p> +<p style="text-align: center">The underscore prefix is reserved for QB64 _KEYWORDS only.</p> -<div id = "uA">_A</div> +<div id = "uA">_A</div> +* [[_ACCEPTFILEDROP]] (statement) {{text|turns a program window into a valid drop destination for dragging files from Windows Explorer.}} * [[_ACOS]] (function) {{text|arccosine function returns the angle in radians based on an input [[COS]]ine value range from -1 to 1.}} -* [[_ACOSH]] (function) {{text|Returns the nonnegative arc hyperbolic cosine of x, expressed in radians.}} +* [[_ACOSH]] (function) {{text|returns the nonnegative arc hyperbolic cosine of x, expressed in radians.}} +* [[_ALLOWFULLSCREEN]] (statement) {{text|allows setting the behavior of the ALT+ENTER combo.}} * [[_ALPHA]] (function) {{text|returns the alpha channel transparency level of a color value used on a screen page or image.}} * [[_ALPHA32]] (function) {{text|returns the alpha channel transparency level of a color value used on a 32 bit screen page or image.}} * [[Mathematical_Operations|_ARCCOT]] (function) {{text|is the inverse function of the cotangent. . http://mathworld.wolfram.com/InverseCosecant.html}} * [[Mathematical_Operations|_ARCCSC]] (function) {{text|is the inverse function of the cosecant. http://mathworld.wolfram.com/InverseCosecant.html}} * [[Mathematical_Operations|_ARCSEC]] (function) {{text|is the inverse function of the secant. http://mathworld.wolfram.com/InverseSecant.html}} -* [[_ASIN]] (function) {{text|Returns the principal value of the arc sine of x, expressed in radians.}} -* [[_ASINH]] (function) {{text|Returns the arc hyperbolic sine of x, expressed in radians.}} -* [[_ATAN2]] (function) {{text|Returns the principal value of the [[ATN|arc tangent]] of y/x, expressed in radians.}} -* [[_ATANH]] (function) {{text|Returns the arc hyperbolic tangent of x, expressed in radians.}} +* [[_ASIN]] (function) {{text|returns the principal value of the arc sine of x, expressed in radians.}} +* [[_ASINH]] (function) {{text|returns the arc hyperbolic sine of x, expressed in radians.}} +* [[_ASSERT]] (statement) {{text|performs debug tests.}} +* [[$ASSERTS]] ([[metacommand]]) {{text|enables the [[_ASSERT]] macro}} +* [[_ATAN2]] (function) {{text|returns the principal value of the [[ATN|arc tangent]] of y/x, expressed in radians.}} +* [[_ATANH]] (function) {{text|returns the arc hyperbolic tangent of x, expressed in radians.}} * [[_AUTODISPLAY]] (statement) {{text|enables the automatic display of the screen image changes previously disabled by [[_DISPLAY]].}} * [[_AUTODISPLAY (function)]] {{text|returns the current display mode as true (-1) if automatic or false (0) if per request using [[_DISPLAY]].}} * [[_AXIS]] (function) {{text|returns a [[SINGLE]] value between -1 and 1 indicating the maximum distance from the device axis center, 0.}} @@ -52,7 +50,7 @@ __NOTOC__ ---- -<div id = "uB">_B</div> +<div id = "uB">_B</div> * [[_BACKGROUNDCOLOR]] (function) {{text|returns the current [[SCREEN|screen page]] background color.}} * [[_BIT]] (` numerical type) {{text|can return only signed values of 0 (bit off) and -1 (bit on). Unsigned 0 or 1.}} * [[_BLEND]] (statement) {{text|statement turns on 32 bit alpha blending for the current image or screen mode and is default.}} @@ -65,14 +63,17 @@ __NOTOC__ * [[_BUTTONCHANGE]] (function) {{text|returns -1 when a device button has been pressed and 1 when released. Zero indicates no change.}} * [[_BYTE]] (%% numerical type) {{text|can hold signed values from -128 to 127 (one byte or _BIT * 8). Unsigned from 0 to 255.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uC">_C</div> -* [[$CHECKING]] (QB64 C++ [[Metacommand]]) {{text|turns event error checking OFF or ON.}} -* [[_CEIL]] (function) {{text|Rounds x upward, returning the smallest integral value that is not less than x.}} +<div id = "uC">_C</div> +* [[_CAPSLOCK (function)]] {{text|returns -1 when Caps Lock is on}} +* [[_CAPSLOCK]] (statement) {{text|sets Caps Lock key state}} +* [[$CHECKING]] ([[metacommand]]) {{text|turns event error checking OFF or ON.}} +* [[_CEIL]] (function) {{text|rounds x upward, returning the smallest integral value that is not less than x.}} +* [[_CINP]] (function) {{text|returns a key code from $CONSOLE input}} * [[_CLEARCOLOR (function)]] {{text|returns the current transparent color of an image.}} * [[_CLEARCOLOR]] (statement) {{text|sets a specific color index of an image to be transparent}} * [[_CLIP]] ([[PUT (graphics statement)|PUT]] graphics option) {{text|allows placement of an image partially off of the screen.}} @@ -80,11 +81,13 @@ __NOTOC__ * [[_CLIPBOARD$ (statement)]] {{text|sets and overwrites the [[STRING]] value in the operating system's clipboard.}} * [[_CLIPBOARDIMAGE (function)]] {{text|pastes an image from the clipboard into a new QB64 image in memory.}} * [[_CLIPBOARDIMAGE]] {{text|(statement) copies a valid QB64 image to the clipboard.}} +* [[$COLOR]] ([[metacommand]]) {{text|includes named color constants in a program}} * [[_COMMANDCOUNT]] (function) {{text|returns the number of arguments passed to the compiled program from the command line.}} * [[_CONNECTED]] (function) {{text|returns the status of a TCP/IP connection handle.}} * [[_CONNECTIONADDRESS$]] (TCP/IP function) {{text|returns a connected user's STRING IP address value using the handle.}} -* [[$CONSOLE]] (QB64 [[Metacommand]]) {{text|creates a console window that can be used throughout a program.}} +* [[$CONSOLE]] ([[metacommand]]) {{text|creates a console window that can be used throughout a program.}} * [[_CONSOLE]] (statement) {{text|used to turn a console window OFF or ON or to designate [[_DEST]] _CONSOLE for output.}} +* [[_CONSOLEINPUT]] (function) {{text|fetches input data from a [[$CONSOLE]] window to be read later (both mouse and keyboard)}} * [[_CONSOLETITLE]] (statement) {{text|creates the title of the console window using a literal or variable [[STRING|string]].}} * [[_CONTINUE]] (statement) {{text|skips the remaining lines in a control block (DO/LOOP, FOR/NEXT or WHILE/WEND)}} * [[_CONTROLCHR]] (statement) {{text|[[OFF]] allows the control characters to be used as text characters. [[ON]] (default) can use them as commands.}} @@ -92,25 +95,27 @@ __NOTOC__ * [[_COPYIMAGE]] (function) {{text|copies an image handle value to a new designated handle.}} * [[_COPYPALETTE]] (statement) {{text|copies the color palette intensities from one 4 or 8 BPP image to another image.}} * [[Mathematical_Operations|_COT]] (function) {{text| the mathematical function cotangent defined by 1/TAN. http://mathworld.wolfram.com/Cotangent.html}} -* [[Mathematical_Operations|_COTH]] (function) {{text|Returns the hyperbolic cotangent. http://mathworld.wolfram.com/HyperbolicCotangent.html}} -* [[Mathematical_Operations|_COSH]] (function) {{text|Returns the hyperbolic cosine of x radians. http://mathworld.wolfram.com/HyperbolicCosine.html}} +* [[Mathematical_Operations|_COTH]] (function) {{text|returns the hyperbolic cotangent. http://mathworld.wolfram.com/HyperbolicCotangent.html}} +* [[Mathematical_Operations|_COSH]] (function) {{text|returns the hyperbolic cosine of x radians. http://mathworld.wolfram.com/HyperbolicCosine.html}} * [[Mathematical_Operations|_CSC]] (function) {{text| the mathematical function cosecant defined by 1/SIN. http://mathworld.wolfram.com/Cosecant.html}} -* [[Mathematical_Operations|_CSCH]] (function) {{text|Returns the hyperbolic cosecant. http://mathworld.wolfram.com/HyperbolicCosecant.html}} +* [[Mathematical_Operations|_CSCH]] (function) {{text|returns the hyperbolic cosecant. http://mathworld.wolfram.com/HyperbolicCosecant.html}} * [[_CV]] (function) {{text|converts any [[_MK$]] [[STRING]] value to the designated numerical type value.}} * [[_CWD$]] (function) {{text|returns the current working directory as a [[STRING]] value.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uD">_D</div> +<div id = "uD">_D</div> * [[_D2G]] (function) {{text|converts degrees to gradient angle values.}} * [[_D2R]] (function) {{text|converts degrees to radian angle values.}} * [[DECLARE LIBRARY|DECLARE LIBRARY (QB64 statement block)]] {{text|declares a C++, SDL or Operating System [[SUB]] or [[FUNCTION]] to be used.}} * [[DECLARE DYNAMIC LIBRARY|DECLARE DYNAMIC LIBRARY (QB64 statement)]] {{text|declares DYNAMIC, CUSTOMTYPE or STATIC library (DLL) [[SUB]] or [[FUNCTION]].}} +* [[$DEBUG]] (precompiler [[metacommand]]) {{text|enables debugging features allowing you to step through your code running line by line and to inspect variables and change their values in real time.}} * [[_DEFAULTCOLOR]] (function) {{text|returns the current default text color for an image handle or page.}} * [[_DEFINE]] (statement) {{text|defines a range of variable names according to their first character as a data type.}} +* [[_DEFLATE$]] (function) {{text|compresses a string}} * [[_DELAY]] (statement) {{text|suspends program execution for a [[SINGLE]] number of seconds.}} * [[_DEPTHBUFFER]] (statement) {{text|enables, disables, locks or clears depth buffering.}} * [[_DESKTOPHEIGHT]] (function) {{text|returns the height of the desktop (not program window).}} @@ -127,26 +132,32 @@ __NOTOC__ * [[_DISPLAYORDER]] (statement) {{text|designates the order to render software, hardware and custom-opengl-code.}} * [[_DONTBLEND]] (statement) {{text|statement turns off default [[_BLEND]] 32 bit [[_ALPHA|alpha]] blending for the current image or screen.}} * [[_DONTWAIT]] ([[SHELL]] action) {{text|specifies that the program should not wait until the shelled command/program is finished.}} +* [[_DROPPEDFILE]] (function) {{text| returns the list of items (files or folders) dropped in a program's window after [[_ACCEPTFILEDROP]] is enabled.}} ---- -<div id = "uE">_E</div> -* [[$ELSE]] (Pre-Compiler [[Metacommand]]) {{text|used in conjunction with $IF for the precompiler.}} -* [[$ELSEIF]] (Pre-Compiler [[Metacommand]]) {{text|used in conjunction with $IF for the precompiler.}} -* [[$END IF]] (Pre-Compiler [[Metacommand]]) {{text|used in conjunction with $IF for the precompiler.}} +<div id = "uE">_E</div> +* [[_ECHO]] (statement) {{text|used in conjunction with $IF for the precompiler.}} +* [[$ELSE]] (precompiler [[metacommand]]) {{text|used in conjunction with $IF for the precompiler.}} +* [[$ELSEIF]] (precompiler [[metacommand]]) {{text|used in conjunction with $IF for the precompiler.}} +* [[$END IF]] (precompiler [[metacommand]]) {{text|used in conjunction with $IF for the precompiler.}} +* [[_ENVIRONCOUNT]] (function) {{text|returns the number of key/value pairs currently exist in the environment table.}} +* [[$ERROR]] (precompiler [[metacommand]]) {{text|used to trigger compiler errors.}} * [[_ERRORLINE]] (function) {{text|returns the source code line number that caused the most recent runtime error.}} -* [[$EXEICON]] (Pre-Compiler [[Metacommand]]) {{text|used with a .ICO icon file name to embed the image into the QB64 executable.}} +* [[_ERRORMESSAGE$]] (function) {{text|returns a human-readable message describing the most recent runtime error.}} +* [[$EXEICON]] (precompiler [[metacommand]]) {{text|used with a .ICO icon file name to embed the image into the QB64 executable.}} * [[_EXIT (function)]] {{text|prevents a user exit and indicates if a user has clicked the close X window button or CTRL + BREAK.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uF">_F</div> +<div id = "uF">_F</div> * [[_FILEEXISTS]] (function) {{text|returns -1 if the file name [[STRING|string]] parameter exists. Zero if it does not.}} +* [[_FINISHDROP]] (statement) {{text| resets [[_TOTALDROPPEDFILES]] and clears the [[_DROPPEDFILE]] list of items (files/folders).}} * [[_FLOAT]] (numerical type ##) {{text|offers the maximum floating-point decimal precision available using QB64.}} * [[_FONT]] (statement) {{text|sets the current font handle to be used by PRINT or [[_PRINTSTRING]].}} * [[_FONT (function)]] {{text|creates a new font handle from a designated image handle.}} @@ -161,50 +172,52 @@ __NOTOC__ ---- -<div id = "uG">_G</div> +<div id = "uG">_G</div> * [[_G2D]] (function) {{text|converts gradient to degree angle values.}} * [[_G2R]] (function) {{text|converts gradient to radian angle values.}} * [[_GREEN]] (function) {{text|function returns the palette or the green component intensity of a 32-bit image color.}} * [[_GREEN32]] (function) {{text|returns the green component intensity of a 32-bit color value.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uH">_H</div> +<div id = "uH">_H</div> * [[_HEIGHT]] (function) {{text|returns the height of a designated image handle.}} * [[_HIDE]] ([[SHELL]] action) {{text| hides the command line display during a shell.}} -* [[_HYPOT]] (function) {{text|Returns the hypotenuse of a right-angled triangle whose legs are x and y.}} +* [[_HYPOT]] (function) {{text|returns the hypotenuse of a right-angled triangle whose legs are x and y.}} ---- -<div id = "uI">_I</div> -* [[$IF]] (Pre-Compiler [[Metacommand]]) {{text|used to set an IF condition for the precompiler.}} +<div id = "uI">_I</div> +* [[$IF]] (precompiler [[metacommand]]) {{text|used to set an IF condition for the precompiler.}} * [[_ICON]] (statement) {{text|designates a [[_LOADIMAGE]] image file handle to be used as the program's icon or loads the embedded icon (see [[$EXEICON]]).}} -* [[_INCLERRORFILE$]] {function) {{text|returns the name of the original source code $INCLUDE module that caused the most recent error.}} +* [[_INCLERRORFILE$]] (function) {{text|returns the name of the original source code $INCLUDE module that caused the most recent error.}} * [[_INCLERRORLINE]] (function) {{text|returns the line number in an included file that caused the most recent error.}} +* [[_INFLATE$]] (function) {{text|decompresses a string}} +* [[_INSTRREV]] (function) {{text|allows searching for a substring inside another string, but unlike [[INSTR]] it returns the last occurrence instead of the first one.}} * [[_INTEGER64]] (&& numerical type) {{text|can hold whole numerical values from -9223372036854775808 to 9223372036854775807.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uK">_K</div> -*[[_KEYCLEAR]] (function) {{text|clears the keyboard buffers for INKEY$, _KEYHIT, and INP.}} -*[[_KEYHIT]] (function) {{text|returns [[ASCII]] one and two byte, SDL Virtual Key and [[Unicode]] keyboard key press codes.}} +<div id = "uK">_K</div> +*[[_KEYCLEAR]] (statement) {{text|clears the keyboard buffers for INKEY$, _KEYHIT, and INP.}} *[[_KEYDOWN]] (function) {{text|returns whether CTRL, ALT, SHIFT, combinations and other keys are pressed.}} +*[[_KEYHIT]] (function) {{text|returns [[ASCII]] one and two byte, Virtual Key and [[Unicode]] keyboard key press codes.}} ---- -<div id = "uL">_L</div> -* [[$LET]] (Pre-Compiler [[Metacommand]]) {{text|used to set a flag variable for the precompiler.}} +<div id = "uL">_L</div> +* [[$LET]] (precompiler [[metacommand]]) {{text|used to set a flag variable for the precompiler.}} * [[_LASTAXIS]] (function) {{text|returns the number of axis available on a specified number device listed by [[_DEVICE$]].}} * [[_LASTBUTTON]] (function) {{text|returns the number of buttons available on a specified number device listed by [[DEVICE$]].}} * [[_LASTWHEEL]] (function) {{text|returns the number of scroll wheels available on a specified number device listed by [[_DEVICE$]].}} @@ -212,12 +225,12 @@ __NOTOC__ * [[_LOADFONT]] (function) {{text|designates a [[_FONT|font]] TTF file to load and returns a handle value.}} * [[_LOADIMAGE]] (function) {{text|designates an image file to load and returns a handle value.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uM">_M</div> +<div id = "uM">_M</div> * [[_MAPTRIANGLE]] (statement) {{text|maps a triangular image source area to put on a destination area.}} * [[_MAPUNICODE]] (statement) {{text|maps a [[Unicode]] value to an [[ASCII]] code number.}} * [[_MAPUNICODE (function)]] {{text|returns the [[Unicode]] (UTF32) code point value of a mapped [[ASCII]] character code.}} @@ -233,6 +246,7 @@ __NOTOC__ * [[_MEMIMAGE]] (function) {{text|returns a [[_MEM]] block referring to a designated image handle's memory}} * [[_MEMNEW]] (function) {{text|allocates new memory with a designated SIZE and returns a [[_MEM]] block referring to it.}} * [[_MEMPUT]] (statement) {{text|places a designated value into a designated memory block OFFSET}} +* [[_MEMSOUND]] (function) {{text|returns a [[_MEM]] block referring to a designated sound handle's memory}} * [[_SCREENMOVE|_MIDDLE]] (_SCREENMOVE parameter) {{text|centers the program window on the desktop in any screen resolution.}} * [[_MK$]] (function) {{text|converts a numerical value to a designated [[ASCII]] [[STRING]] value.}} * [[_MOUSEBUTTON]] (function) {{text|returns the status of a designated mouse button.}} @@ -241,9 +255,8 @@ __NOTOC__ * [[_MOUSEMOVE]] (statement) {{text|moves the mouse pointer to a designated position on the program [[SCREEN]].}} * [[_MOUSEMOVEMENTX]] (function) {{text|returns the relative horizontal position of the mouse cursor compared to the previous position.}} * [[_MOUSEMOVEMENTY]] (function) {{text|returns the relative vertical position of the mouse cursor compared to the previous position.}} -* [[_MOUSEPIPEOPEN]] (function) {{text|creates a pipe handle value for a mouse when using a virtual keyboard.}} * [[_MOUSESHOW]] (statement) {{text|displays the mouse cursor after it has been hidden or can change the cursor shape.}} -* [[_MOUSEWHEEL]] (function) {{text|returns the number of mouse scroll wheel "clicks" since last read.}} +* [[_MOUSEWHEEL]] (function) {{text|returns the number of mouse scroll wheel "clicks" since last read.}} * [[_MOUSEX]] (function) {{text|returns the current horizontal position of the mouse cursor.}} * [[_MOUSEY]] (function) {{text|returns the current vertical position of the mouse cursor.}} @@ -251,28 +264,32 @@ __NOTOC__ ---- -<div id = "uN">_N</div> +<div id = "uN">_N</div> * [[_NEWIMAGE]] (function) {{text|creates a designated size program [[SCREEN]] or page image and returns a handle value.}} +* [[$NOPREFIX]] ([[metacommand]]) {{text|allows QB64-specific keywords to be used without the underscore prefix.}} +* [[_NUMLOCK (function)]] {{text|returns -1 when Num Lock is on}} +* [[_NUMLOCK]] (statement) {{text|sets Num Lock key state}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uO">_O</div> +<div id = "uO">_O</div> * [[_OFFSET (function)]] {{text|returns the memory offset of a variable when used with [[DECLARE LIBRARY]] or [[_MEM]] only.}} * [[_OFFSET]] (%& numerical type) {{text|can be used store the value of an offset in memory when using [[DECLARE LIBRARY]] or [[MEM]] only.}} * [[_OPENCLIENT]] (TCP/IP function) {{text|connects to a Host on the Internet as a Client and returns the Client status handle.}} * [[_OPENCONNECTION]] (TCP/IP function) {{text|open's a connection from a client that the host has detected and returns a status handle.}} * [[_OPENHOST]] (TCP/IP function) {{text|opens a Host and returns a Host status handle.}} -* [[OPTION _EXPLICIT]] (Pre-compiler directive) {{text|instructs the compiler to require variable declaration with [[DIM]] or an equivalent statement.}} +* [[OPTION _EXPLICIT]] (precompiler statement) {{text|instructs the compiler to require variable declaration with [[DIM]] or an equivalent statement.}} +* [[OPTION _EXPLICITARRAY]] (precompiler statement) {{text|instructs the compiler to require array declaration with [[DIM]] or an equivalent statement.}} * [[_OS$]] (function) {{text|returns the QB64 compiler version in which the program was compiled as [WINDOWS], [LINUX] or [MACOSX] and [32BIT] or [64BIT].}} ---- -<div id = "uP">_P</div> +<div id = "uP">_P</div> * [[_PALETTECOLOR]] (statement) {{text|sets the color value of a palette entry of an image using 256 colors or less palette modes.}} * [[_PALETTECOLOR (function)]] {{text|return the 32 bit attribute color setting of an image or screen page handle's palette.}} * [[_PI]] (function) {{text|returns the value of '''Ï€''' or parameter multiples for angle or [[CIRCLE|circle]] calculations.}} @@ -285,17 +302,19 @@ __NOTOC__ * [[_PRINTWIDTH]] (function) {{text|returns the pixel width of a text string to be printed using [[_PRINTSTRING]].}} * [[_PUTIMAGE]] (statement) {{text|maps a rectangular image source area to an image destination area.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uR">_R</div> +<div id = "uR">_R</div> * [[_R2D]] (function) {{text|converts radians to degree angle values.}} * [[_R2G]] (function) {{text|converts radians to gradient angle values.}} * [[_RED]] (function) {{text|function returns the palette or the red component intensity of a 32-bit image color.}} * [[_RED32]] (function) {{text|returns the red component intensity of a 32-bit color value.}} -* [[$RESIZE]] ([[Metacommand]]) {{text|used with ON allows a user to resize the program window where OFF does not.}} +* [[_READBIT]] (function) {{text|returns the state of the specified bit of an integer variable.}} +* [[_RESETBIT]] (function) {{text|is used to set the specified bit of an integer variable to 0.}} +* [[$RESIZE]] ([[metacommand]]) {{text|used with ON allows a user to resize the program window where OFF does not.}} * [[_RESIZE]] (statement) {{text|sets resizing of the window ON or OFF and sets the method as _STRETCH or _SMOOTH.}} * [[_RESIZE (function)]] {{text|returns -1 when a program user wants to resize the program screen.}} * [[_RESIZEHEIGHT]] (function) {{text|returns the requested new user screen height when [[$RESIZE]]:ON allows it.}} @@ -306,31 +325,36 @@ __NOTOC__ * [[_RGBA32]] (function) {{text|returns the [[LONG]] 32 bit color value in 32 bit screens only with the [[ALPHA]]}} * [[_ROUND]] (function) {{text|rounds to the closest [[INTEGER]], [[LONG]] or [[_INTEGER64]] numerical value.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uS">_S</div> +<div id = "uS">_S</div> * [[Mathematical_Operations#Derived_Mathematical_Functions|_SEC]] (function) {{text| the mathematical function secant defined by 1/COS. http://mathworld.wolfram.com/Secant.html}} -* [[Mathematical_Operations#Derived_Mathematical_Functions|_SECH]] (function) {{text|Returns the hyperbolic secant. http://mathworld.wolfram.com/HyperbolicSecant.html}} +* [[Mathematical_Operations#Derived_Mathematical_Functions|_SECH]] (function) {{text|returns the hyperbolic secant. http://mathworld.wolfram.com/HyperbolicSecant.html}} * [[_SCREENCLICK]] (statement) {{text|simulates clicking on a point on the desktop screen with the left mouse button.}} * [[_SCREENEXISTS]] (function) {{text|returns a -1 value once a screen has been created.}} -* [[$SCREENHIDE]] ([QB64 [Metacommand]]) {{text|hides the program window from view.}} +* [[$SCREENHIDE]] ([[metacommand]]) {{text|hides the program window from view.}} * [[_SCREENHIDE]] (statement) {{text|hides the program window from view.}} * [[_SCREENICON (function)]] {{text|returns -1 or 0 to indicate if the window has been minimized to an icon on the taskbar.}} * [[_SCREENICON]] (statement) {{text|minimizes the program window to an icon on the taskbar.}} * [[_SCREENIMAGE]] (function) {{text|creates an image of the current desktop and returns an image handle.}} * [[_SCREENMOVE]] (statement) {{text|positions program window on the desktop using designated coordinates or the _MIDDLE option.}} * [[_SCREENPRINT]] (statement) {{text|simulates typing text into a Windows program using the keyboard.}} -* [[$SCREENSHOW]] (QB64 [[Metacommand]]) {{text|displays that program window after it was hidden by [[$SCREENHIDE]].}} +* [[$SCREENSHOW]] ([[metacommand]]) {{text|displays that program window after it was hidden by [[$SCREENHIDE]].}} * [[_SCREENSHOW]] (statement) {{text|displays the program window after it has been hidden by [[_SCREENHIDE]].}} * [[_SCREENX]] (function) {{text|returns the program window's upper left corner horizontal position on the desktop.}} * [[_SCREENY]] (function) {{text|returns the program window's upper left corner vertical position on the desktop.}} +* [[_SCROLLLOCK (function)]] {{text|returns -1 when Scroll Lock is on}} +* [[_SCROLLLOCK]] (statement) {{text|sets Scroll Lock key state}} * [[_SETALPHA]] (statement) {{text|sets the alpha channel transparency level of some or all of the pixels of an image.}} +* [[_SETBIT]] (function) {{text|is used to set the specified bit of an integer variable to 1.}} * [[_SHELLHIDE]] (function) {{text|returns the code sent by a program exit using [[END]] or [[SYSTEM]] followed by an [[INTEGER]] value.}} -* [[Mathematical_Operations|_SINH]] (function) {{text|Returns the hyperbolic sine of x radians.}} +* [[_SHL]] (function) {{text|used to shift the bits of a numerical value to the left}} +* [[_SHR]] (function) {{text|used to shift the bits of a numerical value to the right.}} +* [[Mathematical_Operations|_SINH]] (function) {{text|returns the hyperbolic sine of x radians.}} * [[_SNDBAL]] (statement) {{text|attempts to set the balance or 3D position of a sound file.}} * [[_SNDCLOSE]] (statement) {{text|frees and unloads an open sound using the sound handle created by [[_SNDOPEN]].}} * [[_SNDCOPY]] (function) {{text|copies a sound handle value to a new designated handle.}} @@ -359,22 +383,25 @@ __NOTOC__ * [[_STRCMP]] (function) {{text|compares the relationship between two strings.}} * [[_STRICMP]] (function) {{text|compares the relationship between two strings, without regard for case-sensitivity.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "uT">_T</div> +<div id = "uT">_T</div> -* [[Mathematical_Operations|_TANH]] (function) {{text|Returns the hyperbolic tangent of x radians.}} +* [[Mathematical_Operations|_TANH]] (function) {{text|returns the hyperbolic tangent of x radians.}} * [[_TITLE]] (statement) {{text|sets the program title [[STRING|string]] value.}} * [[_TITLE$]] (function) {{text|gets the program title [[STRING|string]] value.}} +* [[_TOGGLEBIT]] (function) {{text|is used to toggle the specified bit of an integer variable from 1 to 0 or 0 to 1.}} +* [[_TOTALDROPPEDFILES]] (function) {{text| returns the number of items (files or folders) dropped in a program's window after [[_ACCEPTFILEDROP]] is enabled.}} +* [[_TRIM$]] (function) {{text|shorthand to [[LTRIM$]]([[RTRIM$]]("text"))}} ---- -<div id = "uU">_U</div> +<div id = "uU">_U</div> * [[_UNSIGNED]] (numerical type) {{text|expands the positive range of numerical [[INTEGER]], [[LONG]] or [[_INTEGER64]] values returned.}} @@ -382,31 +409,31 @@ __NOTOC__ ---- -<div id = "uV">_V</div> +<div id = "uV">_V</div> -* [[$VERSIONINFO]] ([[Metacommand]]) {{text|adds metadata to Windows only binaries for identification purposes across the OS.}} -* [[$VIRTUALKEYBOARD]] ([[Metacommand]]) {{text|turns the virtual keyboard ON or OFF for use in touch-enabled devices}} +* [[$VERSIONINFO]] ([[metacommand]]) {{text|adds metadata to Windows only binaries for identification purposes across the OS.}} +* [[$VIRTUALKEYBOARD]] ([[metacommand]] - Deprecated) {{text|turns the virtual keyboard ON or OFF for use in touch-enabled devices}} ---- -<div id = "uW">_W</div> +<div id = "uW">_W</div> * [[_WHEEL]] (function) {{text|returns -1 when a control device wheel is scrolled up and 1 when scrolled down. Zero indicates no activity.}} * [[_WIDTH (function)]] {{text|returns the width of a [[SCREEN]] or image handle.}} * [[_WINDOWHANDLE]] (function) {{text|returns the window handle assigned to the current program by the OS. Windows-only.}} * [[_WINDOWHASFOCUS]] (function) {{text|returns true (-1) if the current program's window has focus. Windows-only.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -<center>([[Keyword Reference - Alphabetical#QB64 specific keywords:|Go to Top of QB64 specific keywords]])</center> +<center>([[Keyword Reference - Alphabetical#QB64 specific keywords:|Top of QB64 specific keywords]])</center> ==Original QBasic keywords:== -'''<p style="text-align: center">These QBasic keywords (with a few noted exceptions) will work in all versions of QB64.</p>''' +'''<p style="text-align: center">These QBasic keywords (with a few noted exceptions) will work in all versions of QB64.</p>''' -<div id = "A">A</div> +<div id = "A">A</div> * [[ABS]] (function) {{text|converts any negative numerical value to a positive value.}} * [[CALL ABSOLUTE|ABSOLUTE]] (statement) {{text|is used to access computer interrupt registers.}} * [[ACCESS]] (file statement) {{text|sets the read and write access of a file when opened.}} @@ -423,27 +450,24 @@ __NOTOC__ ---- -<div id = "B">B</div> +<div id = "B">B</div> * [[BEEP]] (statement) {{text|creates an error sound of a fixed duration.}} * [[BINARY]] (file mode) {{text|creates or opens an existing file for [[GET|read]] and [[PUT|write]] byte-wise access.}} * [[BLOAD]] (statement) {{text|transfers the contents of a [[BINARY]] [[BSAVE]] file to a specific [[Arrays|array]].}} * [[BSAVE]] (statement) {{text|transfers the contents of an [[Arrays|array]] to a specified size [[BINARY]] file.}} * [[BYVAL]] (statement) {{text|assigns a numerical variable value by its value, not the name.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "C">C</div> +<div id = "C">C</div> * [[CALL]] (statement) {{text|optional statement that sends the program to a [[SUB]] procedure. Requires parameters be enclosed in brackets(parenthesis).}} * [[CALL ABSOLUTE]] (statement) {{text|is used to access computer interrupt registers.}} -* [[CALLS]] (non-BASIC call statement) * [[CASE]] ([[SELECT CASE]] condition) {{text|designates specific conditions in a [[SELECT CASE]] statement block.}} * [[CASE ELSE]] ([[SELECT CASE]] condition) {{text|designates an alternative condition to be evaluated in a [[SELECT CASE]] statement block.}} * [[CASE IS]] ([[SELECT CASE]] condition) {{text|designates specific conditions in a [[SELECT CASE]] statement block.}} -* [[CDBL]] (function) {{text|returns the closest [[DOUBLE]] value of a number.}} -* [[CDECL]] ([[DECLARE (non-BASIC statement)]]) * [[CHAIN]] (statement) {{text|sends a program to another specified program module or compiled program.}} * [[CHDIR]] (statement) {{text|changes the current program path for file access.}} * [[CHR$]] (function) {{text|returns a text [[STRING|string]] character by the specified [[ASCII]] code number.}} @@ -467,20 +491,16 @@ __NOTOC__ * [[CVS]] (function) {{text|returns the [[SINGLE]] numerical value of a 4 byte [[MKS$]] [[STRING|string]].}} * [[CVSMBF]] (function) {{text|returns the [[SINGLE]] numerical value of a [[MKSMBF$|Microsoft Binary Format]] [[STRING|string]].}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "D">D</div> +<div id = "D">D</div> * [[DATA]] (statement) {{text|creates a line of fixed program information separated by commas.}} * [[DATE$]] (function) {{text|returns the present Operating System date [[STRING|string]] formatted as mm-dd-yyyy.}} -* [[DATE$ (statement)]] {{text|sets the date of the Operating System using a mm-dd-yyyy [[STRING|string]] format.}} -* [[DECLARE]] (BASIC statement) {{text|declares a [[SUB]] or [[FUNCTION]] procedure at the start of a program. Not required in QB64.}} -* [[DECLARE (non-BASIC statement)]] {{text|declares non-basic [[SUB]] or [[FUNCTION]] procedures. Not implemented in QB64.}} * [[DECLARE LIBRARY|DECLARE LIBRARY (QB64 statement block)]] {{text|declares a C++, SDL or Operating System [[SUB]] or [[FUNCTION]] to be used.}} * [[DECLARE DYNAMIC LIBRARY|DECLARE DYNAMIC LIBRARY (QB64 statement)]] {{text|declares DYNAMIC, CUSTOMTYPE or STATIC library(DLL) [[SUB]] or [[FUNCTION]].}} -* [[DEF FN]] (statement) {{text|defines a function procedure in the main program that cannot be used recursively.}} * [[DEF SEG]] (statement) {{text|defines a segment in memory to be accessed by a memory procedure.}} * [[DEFDBL]] (statement) {{text|defines a set of undefined variable name starting letters as [[DOUBLE]] type numerical values.}} * [[DEFINT]] (statement) {{text|defines a set of undefined variable name starting letters as [[INTEGER]] type numerical values.}} @@ -491,44 +511,40 @@ __NOTOC__ * [[DO...LOOP]] (statement) {{text|sets a recursive procedure loop that can be ignored or exited using conditional arguments.}} * [[DOUBLE]] (numerical type #) {{text|8 byte value limited to values up to 15 decimal places.}} * [[DRAW]] (statement) {{text|uses a special [[STRING|string]] format that draws graphical lines in specific directions.}} -* [[$DYNAMIC]] ([[Metacommand]]) {{text|used at the start of a program to set all program arrays as changeable in size using [[REDIM]].}} +* [[$DYNAMIC]] ([[metacommand]]) {{text|used at the start of a program to set all program arrays as changeable in size using [[REDIM]].}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "E">E</div> +<div id = "E">E</div> * [[ELSE]] ([[IF...THEN]] statement) {{text|is used to direct program flow when no other condition is evaluated as true.}} * [[ELSEIF]] ([[IF...THEN]] statement) {{text|is used with [[THEN]] to set alternate conditional evaluations.}} * [[END]] (statement) {{text|sets the end of a program, sub-procedure, statement block, [[DECLARE LIBRARY]] or [[TYPE]] definition.}} * [[IF...THEN|END IF]] (statement) {{text|[[END]]s an IF...THEN conditional block statement using more than one line of code.}} -* [[ENVIRON]] (statement) {{text|temporarily sets or changes an environmental string value.}} +* [[ENVIRON]] (statement) {{text|temporarily sets an environmental key/value pair.}} * [[ENVIRON$]] (function) {{text|returns a specified string setting or numerical position as an environmental [[STRING]] value.}} * [[EOF]] (file function) {{text|returns -1 when a file [[INPUT (file statement)|INPUT]] or [[GET]] has reached the end of a file.}} * [[EQV]] (logic operator) {{text|is used to compare two numerical values bitwise.}} * [[ERASE]] (statement) {{text|clears the values from [[$STATIC]] arrays and completely removes [[$DYNAMIC]] arrays.}} -* [[ERDEV]] (function) {{text|returns an error code from the last device to create an error.}} -* [[ERDEV$]] (function) {{text|returns the 8 character name of the last device to declare an error as a [[STRING|string]].}} * [[ERL]] (error function) {{text|returns the closest line number before an error occurred if line numbers are used.}} * [[ERR]] (function) {{text|returns the [[ERROR Codes|ERROR code]] when a program error occurs.}} * [[ERROR]] (statement) {{text|sets a specific [[ERROR Codes|ERROR code]] to be simulated.}} -* [[EXIT]] (statement) {{text|immediately exits a program [[FOR...NEXT]], [[DO...LOOP]], [[SUB]], [[FUNCTION]] or [[DEF FN]] procedure.}} +* [[EXIT]] (statement) {{text|immediately exits a program [[FOR...NEXT]], [[DO...LOOP]], [[SUB]] or [[FUNCTION]] procedure.}} * [[EXP]] (function) {{text|returns the value of e to the exponential power specified.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "F">F</div> +<div id = "F">F</div> * [[FIELD]] (statement) {{text|defines the variable sizes to be written or read from a file.}} -* [[FILEATTR]] (function) {{text|returns the current file access mode.}} * [[FILES]] (statement) {{text|returns a list of files in the current directory path to the [[SCREEN]].}} * [[FIX]] (function) {{text|returns the rounded [[INTEGER]] value of a numerical value.}} * [[FOR...NEXT]] (statement) {{text|creates a recursive loop procedure that loop a specified number of times.}} * [[FOR (file statement)]] {{text|used in an [[OPEN]] file or device statement to indicate the access mode.}} -* [[FRE]] (function) {{text|returns the number of bytes of Memory available to running programs.}} * [[TIMER (statement)|FREE (QB64 TIMER statement)]] {{text|frees a numbered TIMER event in QB64.}} * [[FREEFILE]] (file function) {{text|returns a file number that is currently not in use by the Operating System.}} * [[FUNCTION]] (procedure block) {{text|sub-procedure that can calculate and return one value to a program in its name.}} @@ -537,62 +553,59 @@ __NOTOC__ ---- -<div id = "G">G</div> +<div id = "G">G</div> * [[GET]] (file statement) {{text|reads a file sequencially or at a specific position and returns the value as the variable type used.}} * [[GET (TCP/IP statement)|GET (QB64 TCP/IP statement)]] {{text|reads a connection port to return a value.}} * [[GET (graphics statement)]] {{text|maps an area the current [[SCREEN|screen's]] video information and places it in an [[INTEGER]] [[arrays|array]].}} * [[GOSUB]] (statement) {{text|sends the program to a designated line label procedure in the main program.}} * [[GOTO]] (statement) {{text|sends the program to a designated line number or line label in a procedure.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "H">H</div> +<div id = "H">H</div> * [[HEX$]] (function) {{text|returns the hexadecimal(base 16) [[STRING]] representation of a decimal [[INTEGER]] value.}} ---- -<div id = "I">I</div> +<div id = "I">I</div> * [[IF...THEN]] (statement) {{text|a conditional block statement used control program flow.}} * [[IMP]] (logic operator) {{text|is used to compare two numerical values bitwise.}} -* [[$INCLUDE]] ([[Metacommand]]) {{text|designates a text code library file to include with the program.}} +* [[$INCLUDE]] ([[metacommand]]) {{text|designates a text code library file to include with the program.}} * [[INKEY$]] (function) [[ASCII]] {{text|returns a [[STRING|string]] value entry from the keyboard.}} * [[INP]] (function) {{text|returns a numerical value from a specified port register address. See [[Keyboard scancodes]]}} * [[INPUT]] (statement) {{text|a user input that returns a value to one or more specified variable(s).}} * [[INPUT (file mode)]] {{text|[[OPEN]] statement that only allows an existing file to be read using [[INPUT (file statement)]] or [[INPUT$]].}} * [[INPUT (file statement)]] {{text|reads a file sequentially using the variable types designated.}} -* [[INPUT (TCP/IP statement)|INPUT (QB64 TCP/IP statement)]] {{text|reads a port connection sequencially using the variable types designated.}} * [[INPUT$]] (function) {{text|returns a designated number of [[STRING|string]] bytes from the keyboard entry or a file number.}} * [[INSTR]] (function) {{text|returns the position in a text [[STRING|string]] where a character sequence match starts.}} * [[INT]] (function) {{text|rounds a numerical value to an [[INTEGER]] value by removing the decimal point fraction.}} * [[INTEGER]] (% numerical type) {{text|2 byte whole values from -32768 to 32767.}} * [[INTERRUPT]] (statement) {{text|is used to access computer interrupt registers.}} * [[INTERRUPTX]] (statement) {{text|is used to access computer interrupt registers.}} -* [[IOCTL]] (statement) -* [[IOCTL$]] (function) -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "K">K</div> -* [[KEY n]] (statement) {{text|used with [[ON KEY(n)]] events to assign a "softkey" string to a key or create a user defined key.}} +<div id = "K">K</div> +* [[KEY n]] (statement) {{text|used with [[ON KEY(n)]] events to assign a "softkey" string to a key or create a user defined key.}} * [[KEY(n)]] (statement) {{text|used with [[ON KEY(n)]] events to assign, enable, disable or suspend event trapping.}} * [[KEY LIST]] (statement) {{text|lists the 12 Function key soft key string assignments going down left side of screen.}} * [[KILL]] (statement) {{text|deletes the specified file without a warning. Remove empty folders with [[RMDIR]].}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "L">L</div> +<div id = "L">L</div> * [[LBOUND]] (function) {{text|returns the lower boundary of the specified array.}} * [[LCASE$]] (function) {{text|returns the lower case value of a [[STRING]].}} * [[LEFT$]] (function) {{text|returns the specified number of text characters from the left end of a [[STRING]].}} @@ -601,7 +614,7 @@ __NOTOC__ * [[LINE]] (statement) {{text|creates a graphic line or box on the [[SCREEN]].}} * [[LINE INPUT]] (statement) {{text|user input can be any text character including commas and quotes as a [[STRING]] value only.}} * [[LINE INPUT (file statement)]] {{text|returns an entire text file line and returns it as a [[STRING]] value.}} -* [[KEY LIST|LIST]] {{text|displays the current [[ON KEY(n)]] function key (F1 to F10) "soft key" settings.}} +* [[KEY LIST|LIST]] {{text|displays the current [[ON KEY(n)]] function key (F1 to F10) "soft key" settings.}} * [[LOC]] (function) {{text|returns the present file byte position or number of bytes in the [[OPEN COM]] buffer.}} * [[LOCATE]] (statement) {{text|sets the text cursor's row and column position for a [[PRINT]] or [[INPUT]] statement.}} * [[LOCK]] (statement) {{text|restricts access to portions or all of a file by other programs or processes.}} @@ -615,12 +628,12 @@ __NOTOC__ * [[LSET]] (statement) {{text|left justifies the text in a string so that there are no leading spaces.}} * [[LTRIM$]] (function) {{text|returns a [[STRING|string]] value with no leading spaces.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "M">M</div> +<div id = "M">M</div> * [[MID$]] (function) {{text|returns a designated portion of a [[STRING]].}} * [[MID$ (statement)]] {{text|redefines existing characters in a [[STRING]].}} * [[MKD$]] (function) {{text|returns an 8 byte [[ASCII]] [[STRING|string]] representation of a [[DOUBLE]] numerical value.}} @@ -636,51 +649,44 @@ __NOTOC__ ---- -<div id = "N">N</div> +<div id = "N">N</div> * [[NAME]] (statement) {{text|names an existing file name [[AS]] a new file name.}} * [[NEXT]] (statement) {{text|bottom end of a [[FOR...NEXT]] counter loop to returns to the start or a [[RESUME|RESUME NEXT]] error.}} * [[NOT]] (logical operator) {{text|inverts the value of a logic operation or returns True when a [[boolean]] evaluation is False.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "O">O</div> +<div id = "O">O</div> * [[OCT$]] (function) {{text|returns the octal (base 8) [[STRING]] representation of a decimal [[INTEGER]] value.}} * [[OFF]] (event statement) {{text|turns off all [[ON]] event checking.}} -* [[ON COM(n)]] (statement) {{text|sets up a COM port event procedure call.}} * [[ON ERROR]] (statement) {{text|sets up and activates an error event checking procedure call. Use to avoid program errors.}} * [[ON KEY(n)]] (statement) {{text|sets up a keyboard key entry event procedure.}} -* [[ON PEN]] (statement) {{text|sets up a pen event procedure call.}} -* [[ON PLAY(n)]] (statement) {{text|sets up a [[PLAY]] event procedure call.}} * [[ON STRIG(n)]] (statement) {{text|sets up a joystick button event procedure call.}} * [[ON TIMER(n)]] (statement) {{text|sets up a timed event procedure call.}} -* [[ON UEVENT]] (statement) '''{{text|Not implemented in QB64.}}''' -* [[ON...GOSUB]] (statement) {{text|sets up a numberical event procedure call.}} -* [[ON...GOTO]] (statement) {{text|sets up a numberical event procedure call.}} +* [[ON...GOSUB]] (statement) {{text|sets up a numerical event procedure call.}} +* [[ON...GOTO]] (statement) {{text|sets up a numerical event procedure call.}} * [[OPEN]] (file statement) {{text|opens a file name for an access mode with a specific file number.}} * [[OPEN COM]] (statement) {{text|opens a serial communication port for access at a certain speed and mode.}} -* [[OPTION BASE]] (statement) {{text|can set the lower boundary of all arrays to 1.}} +* [[OPTION BASE]] (precompiler statement) {{text|can set the lower boundary of all arrays to 1.}} * [[OR]] (logic operator) {{text|is used to compare two numerical values bitwise.}} * [[OR (boolean)]] {{text| conditonal operator is used to include an alternative evaluation in an [[IF...THEN]] or [[Boolean]] statement.}} * [[OUT]] (statement) {{text|writes numerical data to a specified register port.}} * [[OUTPUT]] (file mode) {{text|creates a new file or clears all data from an existing file to acess the file sequencially.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "P">P</div> +<div id = "P">P</div> * [[PAINT]] (statement) {{text|fills an enclosed area of a graphics [[SCREEN|screen]] with a color until it encounters a specific colored border.}} * [[PALETTE]] (statement) {{text|sets the Red, Green and Blue color attribute intensities using a RGB multiplier calculation.}} * [[PALETTE USING]] (statement) {{text|sets the color intensity settings using a designated [[arrays|array]].}} * [[PCOPY]] (statement) {{text|swaps two designated memory page images when page swapping is enabled in the [[SCREEN]] statement.}} * [[PEEK]] (function) {{text|returns a numerical value from a specified segment address in memory.}} -* [[PEN]] (function) {{text|returns requested information about the lightpen device used.}} -* [[PEN (statement)]] {{text|enables/disables or suspends event trapping of a lightpen device.}} -* [[PLAY(n)]] (function) {{text|returns the number of notes currently in the background music queue.}} * [[PLAY]] (statement) {{text|uses a special [[STRING|string]] format that can produce musical tones and effects.}} * [[PMAP]] (function) {{text|returns the physical or WINDOW view graphic coordinates.}} * [[POINT]] (function) {{text|returns the color attribute number or 32 bit [[_RGB32]] value.}} @@ -689,7 +695,6 @@ __NOTOC__ * [[PRESET]] (statement) {{text|sets a pixel coordinate to the background color unless one is specified.}} * [[PRINT]] (statement) {{text|prints text [[STRING|strings]] or numerical values to the [[SCREEN]].}} * [[PRINT (file statement)]] {{text|prints text [[STRING|strings]] or numerical values to a file.}} -* [[PRINT (TCP/IP statement)|PRINT (QB64 TCP/IP statement)]] {{text|sends text [[STRING|strings]] to a connection handle.}} * [[PRINT USING]] (statement) {{text|prints a template formatted [[STRING|string]] to the [[SCREEN]].}} * [[PRINT USING (file statement)]] {{text|prints a template formatted [[STRING|string]] to a file.}} * [[PSET]] (statement) {{text|sets a pixel coordinate to the current color unless a color is designated.}} @@ -697,12 +702,12 @@ __NOTOC__ * [[PUT (TCP/IP statement)|PUT (QB64 TCP/IP statement)]] {{text|sends raw data to a user's connection handle.}} * [[PUT (graphics statement)]] {{text|places pixel data stored in an [[INTEGER]] array to a specified area of the [[SCREEN]].}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "R">R</div> +<div id = "R">R</div> * [[RANDOM]] (file mode) {{text|creates a file or opens an existing file to [[GET|read]] and [[PUT|write]] records of a set byte size.}} * [[RANDOMIZE]] (statement) {{text|sets the random seed value for a specific sequence of random [[RND]] values.}} * [[RANDOMIZE|RANDOMIZE USING (QB64 statement)]] {{text|restarts the designated seed value's random sequence of values from the beginning.}} @@ -720,25 +725,23 @@ __NOTOC__ * [[RTRIM$]] (function) {{text|returns a [[STRING|string]] with all spaces removed from the right end.}} * [[RUN]] (statement) {{text|clears and restarts the program currently in memory or executes another specified program.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "S">S</div> +<div id = "S">S</div> * [[SADD]] (function) {{text|returns the address of a STRING variable as an offset from the current data segment.}} * [[SCREEN (function)]] {{text|can return the [[ASCII]] character code or color of the text at a text designated coordinate.}} * [[SCREEN]] (statement) {{text|sets the display mode and size of the program window.}} * [[SEEK]] (function) {{text|returns the present byte position in an [[OPEN|opened]] file.}} * [[SEEK (statement)]] {{text|moves to a specified position in an [[OPEN|opened]] file.}} * [[SELECT CASE]] (statement) {{text|a program flow block that can handle numerous conditional evaluations.}} -* [[SETMEM]] (function) {{text|sets the memory to use.}} * [[SGN]] (function) {{text|returns -1 for negative, 0 for zero, and 1 for positive numerical values.}} * [[SHARED]] (statement) {{text|designates that a variable can be used by other procedures or the main procedure when in a sub-procedure.}} * [[SHELL]] (statement) {{text|sends [[STRING]] commands to the command line. SHELL calls will not affect the current path.}} * [[SHELL (function)|SHELL (QB64 function)]] {{text|executes an external command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} -* [[SIGNAL]] (OS 2 event) -* [[SIN]] (function) {{text|returns the sine of a [[radians|radian]] angle.}} +* [[SIN]] (function) {{text|returns the sine of a radian angle.}} * [[SINGLE]] (! numerical type) {{text|4 byte floating decimal point values up to 7 decimal places.}} * [[SLEEP]] (statement) {{text|pauses the program for a designated number of seconds or until a key is pressed.}} * [[SOUND]] (statement) {{text|creates a sound of a specified frequency and duration.}} @@ -746,7 +749,7 @@ __NOTOC__ * [[SPC]] (function) {{text|moves the text cursor a number of spaces on the [[SCREEN]].}} * [[SQR]] (function) {{text|returns the square root of a non-negative number.}} * [[STATIC]] (statement) {{text|creates a [[SUB]] or [[FUNCTION]] variable that retains its value.}} -* [[$STATIC]] ([[Metacommand]]) {{text|used at the start of a program to set all program arrays as unchangeable in size using [[DIM]].}} +* [[$STATIC]] ([[metacommand]]) {{text|used at the start of a program to set all program arrays as unchangeable in size using [[DIM]].}} * [[STEP]] (keyword) {{text|move relatively from one graphic position or change the counting increment in a [[FOR...NEXT]] loop.}} * [[STICK]] (function) {{text|returns the present joystick position.}} * [[STOP]] (statement) {{text|stops a program when troubleshooting or stops an [[ON]] event.}} @@ -759,41 +762,37 @@ __NOTOC__ * [[SWAP]] (statement) {{text|swaps two [[STRING|string]] or numerical values.}} * [[SYSTEM]] (statement) {{text|ends a program immediately.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "T">T</div> +<div id = "T">T</div> * [[TAB]] (function) {{text|moves a designated number of columns on the [[SCREEN|screen]].}} * [[TAN]] (function) {{text|returns the ratio of [[SIN]]e to [[COS]]ine or tangent value of an angle measured in radians.}} * [[THEN]] ([[IF...THEN]] keyword) {{text|must be used in a one line [[IF...THEN]] program flow statement.}} * [[TIME$]] (function) {{text|returns the present time setting of the Operating System as a format hh:mm:ss [[STRING]].}} -* [[TIME$ (statement)]] {{text|sets the OS time using the hh:mm:ss [[STRING]] format.}} * [[TIMER]] (function) {{text|returns the number of seconds since midnight as a [[SINGLE]] value.}} * [[TIMER (statement)]] {{text|events based on the designated time interval and timer number.}} * [[TO]] {{text|indicates a range of numerical values or an assignment of one value to another.}} -* [[TROFF]] (statement) -* [[TRON]] (statement) * [[TYPE]] (definition) {{text|defines a variable type or file record that can include any [[STRING]] or numerical types.}} ---- -<div id = "U">U</div> +<div id = "U">U</div> * [[UBOUND]] (function) {{text|returns the upper-most index number of a designated [[arrays|array]].}} * [[UCASE$]] (function) {{text|returns an uppercase representation of a specified [[STRING]].}} -* [[UEVENT]] (statement) '''{{text|Not implemented in QB64.}}''' * [[UNLOCK]] (statement) {{text|unlocks a designated file or portions of it.}} * [[UNTIL]] (condition) {{text|evaluates a [[DO...LOOP]] condition until it is True.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ---- -<div id = "V">V</div> +<div id = "V">V</div> * [[VAL]] (function) {{text|returns the numerical value of a [[STRING|string]] number.}} * [[VARPTR]] (function) {{text|returns the [[segment]] pointer address in memory.}} * [[VARPTR$]] (function) {{text|returns the string value of a numerical value in memory.}} @@ -805,7 +804,7 @@ __NOTOC__ ---- -<div id = "W">W</div> +<div id = "W">W</div> * [[WAIT]] (statement) {{text|waits until a vertical retrace is started or a [[SCREEN|screen]] draw ends.}} * [[WEND]] (statement) {{text|the bottom end of a [[WHILE...WEND]] loop.}} * [[WHILE]] (condition) {{text|evaluates a [[DO...LOOP]] or [[WHILE...WEND]] condition until it is False.}} @@ -819,464 +818,45 @@ __NOTOC__ ---- -<div id = "X">X</div> +<div id = "X">X</div> * [[XOR]] (logic operator) {{text|is used to compare two numerical values bitwise.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -<center>([[Keyword Reference - Alphabetical#Original QBasic keywords:|Go to Top of Original QB keywords]])</center> +<center>([[Keyword Reference - Alphabetical#Original QBasic keywords:|Top of Original QB keywords]])</center> <!-- (referenced by QB64 IDE HELP) ---> - -==OpenGL specific keywords:== -<center>'''All QB64 OpenGL keywords must use the underscore _gl prefix with the alphabetically listed function names.'''</center> -<center>'''The following keywords cannot be used in QB64 versions .954 and below.'''</center> +--> -<div id = "glA">_glA</div> -* [[_glAccum]] (statement) {{text|OpenGL command}} -* [[_glAlphaFunc]] (statement) {{text|OpenGL command}} -* [[_glAreTexturesResident]] (statement) {{text|OpenGL command}} -* [[_glArrayElement]] (statement) {{text|OpenGL command}} - - ----- -<div id = "glB">_glB</div> -* [[_glBegin]] (statement) {{text|OpenGL command}} -* [[_glBindTexture]] (statement) {{text|OpenGL command binds a named texture to a texturing target}} -* [[_glBitmap]] (statement) {{text|OpenGL command}} -* [[_glBlendFunc]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glC">_glC</div> -* [[_glCallList]] (statement) {{text|OpenGL command}} -* [[_glCallLists]] (statement) {{text|OpenGL command}} -* [[_glClear]] (statement) {{text|OpenGL command clears buffers to preset values}} -* [[_glClearAccum]] (statement) {{text|OpenGL command}} -* [[_glClearColor]] (statement) {{text|OpenGL command specifies clear values for the color buffers}} -* [[_glClearDepth]] (statement) {{text|OpenGL command specifies the depth value used when the depth buffer is cleared. Initial value is 1.}} -* [[_glClearIndex]] (statement) {{text|OpenGL command}} -* [[_glClearStencil]] (statement) {{text|OpenGL command specifies the index used when the stencil buffer is cleared. Initial value is 0.}} -* [[_glClipPlane]] (statement) {{text|OpenGL command}} -* [[_glColor3b]] (statement) {{text|OpenGL command}} -* [[_glColor3bv]] (statement) {{text|OpenGL command}} -* [[_glColor3d]] (statement) {{text|OpenGL command}} -* [[_glColor3dv]] (statement) {{text|OpenGL command}} -* [[_glColor3f]] (statement) {{text|OpenGL command}} -* [[_glColor3fv]] (statement) {{text|OpenGL command}} -* [[_glColor3i]] (statement) {{text|OpenGL command}} -* [[_glColor3iv]] (statement) {{text|OpenGL command}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -* [[_glColor3s]] (statement) {{text|OpenGL command}} -* [[_glColor3sv]] (statement) {{text|OpenGL command}} -* [[_glColor3ub]] (statement) {{text|OpenGL command}} -* [[_glColor3ubv]] (statement) {{text|OpenGL command}} -* [[_glColor3ui]] (statement) {{text|OpenGL command}} -* [[_glColor3uiv]] (statement) {{text|OpenGL command}} -* [[_glColor3us]] (statement) {{text|OpenGL command}} -* [[_glColor3usv]] (statement) {{text|OpenGL command}} -* [[_glColor4b]] (statement) {{text|OpenGL command}} -* [[_glColor4bv]] (statement) {{text|OpenGL command}} -* [[_glColor4d]] (statement) {{text|OpenGL command}} -* [[_glColor4dv]] (statement) {{text|OpenGL command}} -* [[_glColor4f]] (statement) {{text|OpenGL command}} -* [[_glColor4fv]] (statement) {{text|OpenGL command}} -* [[_glColor4i]] (statement) {{text|OpenGL command}} -* [[_glColor4iv]] (statement) {{text|OpenGL command}} -* [[_glColor4s]] (statement) {{text|OpenGL command}} -* [[_glColor4sv]] (statement) {{text|OpenGL command}} -* [[_glColor4ub]] (statement) {{text|OpenGL command}} -* [[_glColor4ubv]] (statement) {{text|OpenGL command}} -* [[_glColor4ui]] (statement) {{text|OpenGL command}} -* [[_glColor4uiv]] (statement) {{text|OpenGL command}} -* [[_glColor4us]] (statement) {{text|OpenGL command}} -* [[_glColor4usv]] (statement) {{text|OpenGL command}} -* [[_glColorMask]] (statement) {{text|OpenGL command enables and disables writing of frame buffer color components}} -* [[_glColorMaterial]] (statement) {{text|OpenGL command}} -* [[_glColorPointer]] (statement) {{text|OpenGL command}} -* [[_glCopyPixels]] (statement) {{text|OpenGL command}} -* [[_glCopyTexImage1D]] (statement) {{text|OpenGL command copies pixels into a 1D texture image}} -* [[_glCopyTexImage2D]] (statement) {{text|OpenGL command copies pixels into a 2D texture image}} -* [[_glCopyTexSubImage1D]] (statement) {{text|OpenGL command copies a one-dimensional texture subimage}} -* [[_glCopyTexSubImage2D]] (statement) {{text|OpenGL command copiess a two-dimensional texture subimage}} -* [[_glCullFace]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glD">_glD</div> -* [[_glDeleteLists]] (statement) {{text|OpenGL command}} -* [[_glDeleteTextures]] (statement) {{text|OpenGL command deletes named textures}} -* [[_glDepthFunc]] (statement) {{text|OpenGL command specifies the value used for depth buffer comparisons}} -* [[_glDepthMask]] (statement) {{text|OpenGL command enables or disables writing into the depth buffer}} -* [[_glDepthRange]] (statement) {{text|OpenGL command specifies mapping of near clipping plane to window coordinates. Initial value 0.}} -* [[_glDisable]] (statement) {{text|OpenGL command}} -* [[_glDisableClientState]] (statement) {{text|OpenGL command}} -* [[_glDrawArrays]] (statement) {{text|OpenGL command}} -* [[_glDrawBuffer]] (statement) {{text|OpenGL command}} -* [[_glDrawElements]] (statement) {{text|OpenGL command}} -* [[_glDrawPixels]] (statement) {{text|OpenGL command}} - - ----- -<div id = "glE">_glE</div> -* [[_glEdgeFlag]] (statement) {{text|OpenGL command}} -* [[_glEdgeFlagPointer]] (statement) {{text|OpenGL command}} -* [[_glEdgeFlagv]] (statement) {{text|OpenGL command}} -* [[_glEnable]] (statement) {{text|OpenGL command}} -* [[_glEnableClientState]] (statement) {{text|OpenGL command}} -* [[_glEnd]] (statement) {{text|OpenGL command}} -* [[_glEndList]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord1d]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord1dv]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord1f]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord1fv]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord2d]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord2dv]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord2f]] (statement) {{text|OpenGL command}} -* [[_glEvalCoord2fv]] (statement) {{text|OpenGL command}} -* [[_glEvalMesh1]] (statement) {{text|OpenGL command}} -* [[_glEvalMesh2]] (statement) {{text|OpenGL command}} -* [[_glEvalPoint1]] (statement) {{text|OpenGL command}} -* [[_glEvalPoint2]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glF">_glF</div> -* [[_glFeedbackBuffer]] (statement) {{text|OpenGL command}} -* [[_glFinish]] (statement) {{text|OpenGL command}} -* [[_glFlush]] (statement) {{text|OpenGL command}} -* [[_glFogf]] (statement) {{text|OpenGL command}} -* [[_glFogfv]] (statement) {{text|OpenGL command}} -* [[_glFogi]] (statement) {{text|OpenGL command}} -* [[_glFogiv]] (statement) {{text|OpenGL command}} -* [[_glFrontFace]] (statement) {{text|OpenGL command}} -* [[_glFrustum]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glG">_glG</div> -* [[_glGenLists]] (statement) {{text|OpenGL command}} -* [[_glGenTextures]] (statement) {{text|OpenGL command}} -* [[_glGetBooleanv]] (statement) {{text|OpenGL command}} -* [[_glGetClipPlane]] (statement) {{text|OpenGL command}} -* [[_glGetDoublev]] (statement) {{text|OpenGL command}} -* [[_glGetError]] (statement) {{text|OpenGL command}} -* [[_glGetFloatv]] (statement) {{text|OpenGL command}} -* [[_glGetIntegerv]] (statement) {{text|OpenGL command}} -* [[_glGetLightfv]] (statement) {{text|OpenGL command}} -* [[_glGetLightiv]] (statement) {{text|OpenGL command}} -* [[_glGetMapdv]] (statement) {{text|OpenGL command}} -* [[_glGetMapfv]] (statement) {{text|OpenGL command}} -* [[_glGetMapiv]] (statement) {{text|OpenGL command}} -* [[_glGetMaterialfv]] (statement) {{text|OpenGL command}} -* [[_glGetMaterialiv]] (statement) {{text|OpenGL command}} -* [[_glGetPixelMapfv]] (statement) {{text|OpenGL command}} -* [[_glGetPixelMapuiv]] (statement) {{text|OpenGL command}} -* [[_glGetPixelMapusv]] (statement) {{text|OpenGL command}} -* [[_glGetPointerv]] (statement) {{text|OpenGL command}} -* [[_glGetPolygonStipple]] (statement) {{text|OpenGL command}} -* [[_glGetString]] (statement) {{text|OpenGL command}} -* [[_glGetTexEnvfv]] (statement) {{text|OpenGL command}} -* [[_glGetTexEnviv]] (statement) {{text|OpenGL command}} -* [[_glGetTexGendv]] (statement) {{text|OpenGL command}} -* [[_glGetTexGenfv]] (statement) {{text|OpenGL command}} -* [[_glGetTexGeniv]] (statement) {{text|OpenGL command}} -* [[_glGetTexImage]] (statement) {{text|OpenGL command}} -* [[_glGetTexLevelParameterfv]] (statement) {{text|OpenGL command}} -* [[_glGetTexLevelParameteriv]] (statement) {{text|OpenGL command}} -* [[_glGetTexParameterfv]] (statement) {{text|OpenGL command}} -* [[_glGetTexParameteriv]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glH">_glH</div> -* [[_glHint]] (statement) {{text|OpenGL command}} - - ----- -<div id = "glI">_glI</div> -* [[_glIndexMask]] (statement) {{text|OpenGL command}} -* [[_glIndexPointer]] (statement) {{text|OpenGL command}} -* [[_glIndexd]] (statement) {{text|OpenGL command}} -* [[_glIndexdv]] (statement) {{text|OpenGL command}} -* [[_glIndexf]] (statement) {{text|OpenGL command}} -* [[_glIndexfv]] (statement) {{text|OpenGL command}} -* [[_glIndexi]] (statement) {{text|OpenGL command}} -* [[_glIndexiv]] (statement) {{text|OpenGL command}} -* [[_glIndexs]] (statement) {{text|OpenGL command}} -* [[_glIndexsv]] (statement) {{text|OpenGL command}} -* [[_glIndexub]] (statement) {{text|OpenGL command}} -* [[_glIndexubv]] (statement) {{text|OpenGL command}} -* [[_glInitNames]] (statement) {{text|OpenGL command}} -* [[_glInterleavedArrays]] (statement) {{text|OpenGL command}} -* [[_glIsEnabled]] (statement) {{text|OpenGL command}} -* [[_glIsList]] (statement) {{text|OpenGL command}} -* [[_glIsTexture]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glL">_glL</div> -* [[_glLightModelf]] (statement) {{text|OpenGL command}} -* [[_glLightModelfv]] (statement) {{text|OpenGL command}} -* [[_glLightModeli]] (statement) {{text|OpenGL command}} -* [[_glLightModeliv]] (statement) {{text|OpenGL command}} -* [[_glLightf]] (statement) {{text|OpenGL command}} -* [[_glLightfv]] (statement) {{text|OpenGL command}} -* [[_glLighti]] (statement) {{text|OpenGL command}} -* [[_glLightiv]] (statement) {{text|OpenGL command}} -* [[_glLineStipple]] (statement) {{text|OpenGL command}} -* [[_glLineWidth]] (statement) {{text|OpenGL command}} -* [[_glListBase]] (statement) {{text|OpenGL command}} -* [[_glLoadIdentity]] (statement) {{text|OpenGL command}} -* [[_glLoadMatrixd]] (statement) {{text|OpenGL command}} -* [[_glLoadMatrixf]] (statement) {{text|OpenGL command}} -* [[_glLoadName]] (statement) {{text|OpenGL command}} -* [[_glLogicOp]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glM">_glM</div> -* [[_glMap1d]] (statement) {{text|OpenGL command}} -* [[_glMap1f]] (statement) {{text|OpenGL command}} -* [[_glMap2d]] (statement) {{text|OpenGL command}} -* [[_glMap2f]] (statement) {{text|OpenGL command}} -* [[_glMapGrid1d]] (statement) {{text|OpenGL command}} -* [[_glMapGrid1f]] (statement) {{text|OpenGL command}} -* [[_glMapGrid2d]] (statement) {{text|OpenGL command}} -* [[_glMapGrid2f]] (statement) {{text|OpenGL command}} -* [[_glMaterialf]] (statement) {{text|OpenGL command}} -* [[_glMaterialfv]] (statement) {{text|OpenGL command}} -* [[_glMateriali]] (statement) {{text|OpenGL command}} -* [[_glMaterialiv]] (statement) {{text|OpenGL command}} -* [[_glMatrixMode]] (statement) {{text|OpenGL command}} -* [[_glMultMatrixd]] (statement) {{text|OpenGL command}} -* [[_glMultMatrixf]] (statement) {{text|OpenGL command}} - - ----- -<div id = "glN">_glN</div> -* [[_glNewList]] (statement) {{text|OpenGL command}} -* [[_glNormal3b]] (statement) {{text|OpenGL command}} -* [[_glNormal3bv]] (statement) {{text|OpenGL command}} -* [[_glNormal3d]] (statement) {{text|OpenGL command}} -* [[_glNormal3dv]] (statement) {{text|OpenGL command}} -* [[_glNormal3f]] (statement) {{text|OpenGL command}} -* [[_glNormal3fv]] (statement) {{text|OpenGL command}} -* [[_glNormal3i]] (statement) {{text|OpenGL command}} -* [[_glNormal3iv]] (statement) {{text|OpenGL command}} -* [[_glNormal3s]] (statement) {{text|OpenGL command}} -* [[_glNormal3sv]] (statement) {{text|OpenGL command}} -* [[_glNormalPointer]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glO">_glO</div> -* [[_glOrtho]] (statement) {{text|OpenGL command}} - - ----- -<div id = "glP">_glP</div> -* [[_glPassThrough]] (statement) {{text|OpenGL command}} -* [[_glPixelMapfv]] (statement) {{text|OpenGL command}} -* [[_glPixelMapuiv]] (statement) {{text|OpenGL command}} -* [[_glPixelMapusv]] (statement) {{text|OpenGL command}} -* [[_glPixelStoref]] (statement) {{text|OpenGL command}} -* [[_glPixelStorei]] (statement) {{text|OpenGL command}} -* [[_glPixelTransferf]] (statement) {{text|OpenGL command}} -* [[_glPixelTransferi]] (statement) {{text|OpenGL command}} -* [[_glPixelZoom]] (statement) {{text|OpenGL command}} -* [[_glPointSize]] (statement) {{text|OpenGL command}} -* [[_glPolygonMode]] (statement) {{text|OpenGL command}} -* [[_glPolygonOffset]] (statement) {{text|OpenGL command}} -* [[_glPolygonStipple]] (statement) {{text|OpenGL command}} -* [[_glPopAttrib]] (statement) {{text|OpenGL command}} -* [[_glPopClientAttrib]] (statement) {{text|OpenGL command}} -* [[_glPopMatrix]] (statement) {{text|OpenGL command}} -* [[_glPopName]] (statement) {{text|OpenGL command}} -* [[_glPrioritizeTextures]] (statement) {{text|OpenGL command}} -* [[_glPushAttrib]] (statement) {{text|OpenGL command}} -* [[_glPushClientAttrib]] (statement) {{text|OpenGL command}} -* [[_glPushMatrix]] (statement) {{text|OpenGL command}} -* [[_glPushName]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glR">_glR</div> -* [[_glRasterPos2d]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2dv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2f]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2fv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2i]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2iv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2s]] (statement) {{text|OpenGL command}} -* [[_glRasterPos2sv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3d]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3dv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3f]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3fv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3i]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3iv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3s]] (statement) {{text|OpenGL command}} -* [[_glRasterPos3sv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4d]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4dv]] (statement) {{text|OpenGL command}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -* [[_glRasterPos4f]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4fv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4i]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4iv]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4s]] (statement) {{text|OpenGL command}} -* [[_glRasterPos4sv]] (statement) {{text|OpenGL command}} -* [[_glReadBuffer]] (statement) {{text|OpenGL command}} -* [[_glReadPixels]] (statement) {{text|OpenGL command}} -* [[_glRectd]] (statement) {{text|OpenGL command}} -* [[_glRectdv]] (statement) {{text|OpenGL command}} -* [[_glRectf]] (statement) {{text|OpenGL command}} -* [[_glRectfv]] (statement) {{text|OpenGL command}} -* [[_glRecti]] (statement) {{text|OpenGL command}} -* [[_glRectiv]] (statement) {{text|OpenGL command}} -* [[_glRects]] (statement) {{text|OpenGL command}} -* [[_glRectsv]] (statement) {{text|OpenGL command}} -* [[_GLRENDER]] (statement) {{text|sets whether context is displayed, on top of or behind the software rendering.}} -* [[_glRenderMode]] (statement) {{text|OpenGL command}} -* [[_glRotated]] (statement) {{text|OpenGL command}} -* [[_glRotatef]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glS">_glS</div> -* [[_glScaled]] (statement) {{text|OpenGL command}} -* [[_glScalef]] (statement) {{text|OpenGL command}} -* [[_glScissor]] (statement) {{text|OpenGL command}} -* [[_glSelectBuffer]] (statement) {{text|OpenGL command}} -* [[_glShadeModel]] (statement) {{text|OpenGL command}} -* [[_glStencilFunc]] (statement) {{text|OpenGL command}} -* [[_glStencilMask]] (statement) {{text|OpenGL command}} -* [[_glStencilOp]] (statement) {{text|OpenGL command}} - - ----- -<div id = "glT">_glT</div> -* [[_glTexCoord1d]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1dv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1f]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1fv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1i]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1iv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1s]] (statement) {{text|OpenGL command}} -* [[_glTexCoord1sv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2d]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2dv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2f]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2fv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2i]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2iv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2s]] (statement) {{text|OpenGL command}} -* [[_glTexCoord2sv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3d]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3dv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3f]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3fv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3i]] (statement) {{text|OpenGL command}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -* [[_glTexCoord3iv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3s]] (statement) {{text|OpenGL command}} -* [[_glTexCoord3sv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4d]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4dv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4f]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4fv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4i]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4iv]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4s]] (statement) {{text|OpenGL command}} -* [[_glTexCoord4sv]] (statement) {{text|OpenGL command}} -* [[_glTexCoordPointer]] (statement) {{text|OpenGL command}} -* [[_glTexEnvf]] (statement) {{text|OpenGL command}} -* [[_glTexEnvfv]] (statement) {{text|OpenGL command}} -* [[_glTexEnvi]] (statement) {{text|OpenGL command}} -* [[_glTexEnviv]] (statement) {{text|OpenGL command}} -* [[_glTexGend]] (statement) {{text|OpenGL command}} -* [[_glTexGendv]] (statement) {{text|OpenGL command}} -* [[_glTexGenf]] (statement) {{text|OpenGL command}} -* [[_glTexGenfv]] (statement) {{text|OpenGL command}} -* [[_glTexGeni]] (statement) {{text|OpenGL command}} -* [[_glTexGeniv]] (statement) {{text|OpenGL command}} -* [[_glTexImage1D]] (statement) {{text|OpenGL command}} -* [[_glTexImage2D]] (statement) {{text|OpenGL command}} -* [[_glTexParameterf]] (statement) {{text|OpenGL command}} -* [[_glTexParameterfv]] (statement) {{text|OpenGL command}} -* [[_glTexParameteri]] (statement) {{text|OpenGL command}} -* [[_glTexParameteriv]] (statement) {{text|OpenGL command}} -* [[_glTexSubImage1D]] (statement) {{text|OpenGL command}} -* [[_glTexSubImage2D]] (statement) {{text|OpenGL command}} -* [[_glTranslated]] (statement) {{text|OpenGL command}} -* [[_glTranslatef]] (statement) {{text|OpenGL command}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ----- -<div id = "glV">_glV</div> -* [[_glVertex2d]] (statement) {{text|OpenGL command}} -* [[_glVertex2dv]] (statement) {{text|OpenGL command}} -* [[_glVertex2f]] (statement) {{text|OpenGL command}} -* [[_glVertex2fv]] (statement) {{text|OpenGL command}} -* [[_glVertex2i]] (statement) {{text|OpenGL command}} -* [[_glVertex2iv]] (statement) {{text|OpenGL command}} -* [[_glVertex2s]] (statement) {{text|OpenGL command}} -* [[_glVertex2sv]] (statement) {{text|OpenGL command}} -* [[_glVertex3d]] (statement) {{text|OpenGL command}} -* [[_glVertex3dv]] (statement) {{text|OpenGL command}} -* [[_glVertex3f]] (statement) {{text|OpenGL command}} -* [[_glVertex3fv]] (statement) {{text|OpenGL command}} -* [[_glVertex3i]] (statement) {{text|OpenGL command}} -* [[_glVertex3iv]] (statement) {{text|OpenGL command}} -* [[_glVertex3s]] (statement) {{text|OpenGL command}} -* [[_glVertex3sv]] (statement) {{text|OpenGL command}} -* [[_glVertex4d]] (statement) {{text|OpenGL command}} -* [[_glVertex4dv]] (statement) {{text|OpenGL command}} -* [[_glVertex4f]] (statement) {{text|OpenGL command}} -* [[_glVertex4fv]] (statement) {{text|OpenGL command}} -* [[_glVertex4i]] (statement) {{text|OpenGL command}} -* [[_glVertex4iv]] (statement) {{text|OpenGL command}} -* [[_glVertex4s]] (statement) {{text|OpenGL command}} -* [[_glVertex4sv]] (statement) {{text|OpenGL command}} -* [[_glVertexPointer]] (statement) {{text|OpenGL command}} -* [[_glViewport]] (statement) {{text|OpenGL command}} - - - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> - - -<div id = "symbols"></div> +<div id = "symbols"></div> ==Symbols:== -<center>'''QB64 and QB Symbols:'''</center> +<center>'''QB64 and QB Symbols:'''</center> -<center>''[Note: All symbols below can also be used inside of literal quoted strings except for quotation marks.]''</center> +<center>''[Note: All symbols below can also be used inside of literal quoted strings except for quotation marks.]''</center> :'''Print, Input or File Formatting''' * [[Semicolon|; Semicolon]] after a [[PRINT]] stops invisible cursor at end of printed value. Can prevent screen rolling. A [[Semicolon]] after the [[INPUT]] prompt text will display a question mark after the text. * [[Comma|, Comma]] after a [[PRINT]] tabs invisible cursor past end of printed value. After the [[INPUT]] prompt text a [[comma]] displays no [[Question mark]]. -* [[Quotation mark|" Quotation mark]] delimits the ends of a literal [[STRING]] value in a [[PRINT]], [[INPUT]] or [[LINE INPUT]] statement. +* [[Quotation mark|" Quotation mark]] delimits the ends of a literal [[STRING]] value in a [[PRINT]], [[INPUT]] or [[LINE INPUT]] statement. * [[Question mark|? Question mark]] is a shortcut substitute for the [[PRINT]] keyword. Will change to PRINT when cursor leaves the code line. :'''Program Code Markers''' -* [[Apostrophe|' Apostrophe]] ignores a line of code or program comment and MUST be used before a [[Metacommand]]. Same as using [[REM]]. +* [[Apostrophe|' Apostrophe]] ignores a line of code or program comment and MUST be used before a [[metacommand]]. Same as using [[REM]]. * [[Comma|, Comma]] is used to separate [[DATA]], [[SUB]] or [[FUNCTION]] parameter variables. * [[Colon|: Colon]]s can be used to separate two procedure statements on one code line. -* [[Dollar_Sign|$ Dollar sign]] prefix denotes a QBasic [[Metacommand]]. +* [[Dollar_Sign|$ Dollar sign]] prefix denotes a QBasic [[metacommand]]. * [[Parenthesis|( ) Parenthesis]] enclose a math or conditional procedure order, [[SUB]] or [[FUNCTION]] parameters or to pass by value. * [[+|+ Plus]] [[concatenation]] operator MUST be used to combine literal string values in a variable definition. -* [[Quotation mark|" Quotation mark]] designates the ends of a literal [[STRING]] value. Use [[CHR$]](34) to insert quotes in a text [[STRING]]. +* [[Quotation mark|" Quotation mark]] designates the ends of a literal [[STRING]] value. Use [[CHR$]](34) to insert quotes in a text [[STRING]]. * [[Underscore|_ Underscore]] can be used to continue a line of code to the next program line in '''QB64'''. -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> :'''Variable Name Type Suffixes''' * [[STRING|$ STRING]] text character type: 1 byte @@ -1291,7 +871,7 @@ __NOTOC__ * [[_BYTE|%% _BYTE]] '''QB64''' [[INTEGER|whole]] numerical type (1 byte) * [[_OFFSET|%& _OFFSET]] '''QB64''' [[INTEGER|whole]] numerical pointer address type (any byte size required) -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> :'''Numerical Base Prefixes''' * [[&B|&B Binary]] Base 2: Digits 0 or 1 ['''QB64'''] @@ -1311,48 +891,37 @@ __NOTOC__ :'''[[Relational Operations]]''' * [[Equal|=]] Equal to condition -* [[Not_Equal|<>]] Not equal condition -* [[Greater_Than|>]] Greater than condition +* [[Not_Equal|<>]] Not equal condition +* [[Greater_Than|>]] Greater than condition * [[Less_Than|<]] Less than condition -* [[Greater_Than_Or_Equal|>=]] Greater than or equal to condition +* [[Greater_Than_Or_Equal|>=]] Greater than or equal to condition * [[Less_Than_Or_Equal|<=]] Less than or equal to condition -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==References:== -<div id = "references"></div> +<div id = "references"></div> -<center>'''WIKI Pages''' +<center>'''WIKI Pages''' -[[Keyword Reference - Alphabetical#QB64 specific keywords:|Go to QB64 specific keywords]] +[[Keyword Reference - Alphabetical#QB64 specific keywords:|QB64 specific keywords]] -[[Keyword Reference - Alphabetical#Original QBasic keywords:|Go to Top of Original QB keywords]] +[[Keyword Reference - Alphabetical#Original QBasic keywords:|Original QBasic keywords]] -[[Keyword Reference - By usage|Go to keywords by Usage]] +[[Keyword Reference - By usage|Keywords by Usage]] -[[Main_Page#Appendix:|Main Page with Appendix and Tutorials]] - -[[IDE|How to use the QB64 IDE and Compiler]] +[[Main_Page#Appendix:|Main Page with Appendix and Tutorials]] '''Got a question about something?''' [[QB64 FAQ|Visit the QB64 FAQ]] -[http://www.qb64.net Visit the QB64 Main Site] +[https://www.qb64.org Visit the QB64 Main Site] -[http://www.qb64.net/forum/index.php Visit QB64 Community Forum] +[https://www.qb64.org/forum/ Visit QB64 Community Forum] + +[http://discord.qb64.org Join our Discord server] -'''Links to other QBasic Sites:''' - -[http://qbasicstation.com/index.php?c=p_member Member programs at QBasic Station] - -[http://www.network54.com/Index/10167 QBasic Forum at Network 54] - -[http://www.petesqbsite.com/forum/ Pete's QBasic Forum] - -[http://www.petesqbsite.com/downloads/downloads.shtml Pete's QBasic Downloads]</center> - - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> \ No newline at end of file +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> diff --git a/internal/help/Keyword_Reference_-_By_usage.txt b/internal/help/Keyword_Reference_-_By_usage.txt index 9489a6711..5b1b6ceae 100644 --- a/internal/help/Keyword_Reference_-_By_usage.txt +++ b/internal/help/Keyword_Reference_-_By_usage.txt @@ -1,58 +1,31 @@ -{| align="Right" +{| align="Right" | __TOC__ |} -::::[[QB64 FAQ|Go to Frequently Asked Questions about QB64]] +[[QB64 FAQ|Frequently Asked Questions about QB64]] + +[[Keyword Reference - Alphabetical|Alphabetical keywords]] + +[[Keywords currently not supported by QB64]] + +[[Keywords currently not supported by QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keywords Not Supported in Linux or MAC versions]] -:::::[[Keyword Reference - Alphabetical|Go to Alphabetical keywords]] +== [[Arrays]] and Data Storage == -::::::'''[[Known QB64 Issues]]''' - -::::[[Keywords currently not supported by QB64]] - -:::[[Keywords currently not supported by QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keywords Not Supported in Linux or MAC versions]] - - -::: '''The underscore prefix is reserved for QB64 _KEYWORDS only. ''' -:: Listed _KEYWORDS and un-commented $[[Metacommand]]s only work when compiled in QB64. - - -:::[https://dl.dropbox.com/u/10291175/QB64OfflineWiki.7z Download the QB64 WIKI for Offline Reference (7 Zip 5MB)]. - -:::: Offline WIKI Reference contributed by OlDosLover - - -:'''If code examples only display partial code, use the browser Refresh button!''' - - -::For comments or suggestions about this WIKI goto the Forum: - - -::::[http://www.qb64.net/forum/index.php?board=14.0 QB64 Community Development Forum]. - - -::Keywords beginning with an _underscore can only be compiled in QB64. - - -::::[[Main Page|Main Page with Appendix and Tutorials]] - - -== [[Arrays|Array]] and Data Storage: == - -<center>'''Arrays in Memory'''</center> +<center>'''Arrays'''</center> * [[_DEFINE]] (statement) {{text|defines a range of untyped variable names according to their first character as a datatype.}} * [[_PRESERVE]] ([[REDIM]] option) {{text|preserves the existing element values when an array is resized.}} - - * [[CLEAR]] (statement) {{text|resets all variable values and array element values to 0 or null [[STRING|strings]] and closes all open files.}} * [[DIM]] (statement) {{text|dimensions(sizes) a [[STATIC|static]] array and defines the type.}} * [[$DYNAMIC]] (metacommand) {{text|defines that all arrays are dynamic or changeable in size.}} * [[ERASE]] (array statement) {{text|clears a [[STATIC|static]] array of all values and totally removes a [[$DYNAMIC|dynamic]] array.}} * [[LBOUND]] (array function) {{text|returns the lowest valid index (lower boundary) of an [[arrays|array]].}} -* [[OPTION BASE]] (statement) {{text|sets the default starting index of an array to 0 or 1.}} +* [[OPTION BASE]] (precompiler statement) {{text|sets the default starting index of an array to 0 or 1.}} +* [[OPTION _EXPLICIT]] (precompiler directive) {{text|instructs the compiler to require variable declaration with [[DIM]] or an equivalent statement.}} +* [[OPTION _EXPLICITARRAY]] (precompiler directive) {{text|instructs the compiler to require array declaration with [[DIM]] or an equivalent statement.}} * [[REDIM]] (statement) {{text|re-dimensions the number of elements in a [[$DYNAMIC|dynamic]](resizeable) [[arrays|array]] and defines the type.}} * [[SHARED]] (statement) {{text|designates variable values that can be shared with sub-procedures without using parameters.}} * [[STATIC]] (statement) {{text|defines a variable or list of variables that will retain their values after the sub-procedure is exited.}} @@ -60,21 +33,21 @@ * [[SWAP]] (statement) {{text|trades the values of two numerical or string values or array elements.}} * [[UBOUND]] (array function) {{text|returns the highest valid index (upper boundary) of an [[arrays|array]].}} -<center>See also: [[Arrays]]</center> +: See also: [[Arrays]] -<center>'''Fixed Program DATA'''</center> +<center>'''Fixed Program DATA'''</center> * [[DATA]] (statement) {{text|creates a field of built-in program data values separated by commas.}} * [[READ]] (statement) {{text|reads the DATA from the data field sequentially.}} * [[RESTORE]] (statement) {{text|sets the data pointer to the start of all DATA or a specified DATA field.}} -* '''WARNING! Do not place DATA fields after [[SUB]] or [[FUNCTION]] procedures! QB64 will FAIL to compile properly!''' -{{text| Qbasic allowed programmers to add DATA fields anywhere because the [[IDE]] separated the main code from other procedures.}} +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +== [[COLOR|Colors]] and Transparency == + +* [[$COLOR]] (Metacommand) {{text|adds named color constants in a program.}} -== [[COLOR|Colors]] and Transparency: == * [[_ALPHA]] (function) {{text|returns the alpha channel transparency level of a color value used on a screen page or image.}} * [[_ALPHA32]] (function) {{text|function returns the alpha channel level of a 32 bit color value only.}} @@ -116,28 +89,23 @@ * [[PSET]] (statement) {{text|sets a pixel coordinate a specified color or uses the current color when not designated.}} * [[SCREEN]] {{text|sets the screen mode of a program which may determine the number of colors available in legacy modes.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==[[Console Window]]== * [[$CONSOLE]] (QB64 [[Metacommand]]) {{text|creates a console window throughout the program.}} * [[_CONSOLE]] (statement) {{text|can be used to turn the console window OFF or ON or designate it as [[_DEST]] _CONSOLE for output.}} * [[_CONSOLETITLE]] (statement) {{Text|creates a title for the console window using a literal or variable [[STRING|string]].}} - - * [[$SCREENHIDE]] (QB64 [[Metacommand]]) {{text|hides the program window throughout the program until [[$SCREENSHOW]] is used.}} * [[_SCREENHIDE]] {{text|hides the main program window in a section of code until [[_SCREENSHOW]] is used.}} * [[$SCREENSHOW]] (QB64 [[Metacommand]]) {{text|displays the main program window throughout the program after [[$SCREENHIDE]] has been used.}} * [[_SCREENSHOW]] {{text|displays the main program window in a section of code after [[_SCREENHIDE]] has been used.}} -* [[SHELL (function)|SHELL (QB64 function)]] {{text|executes a [[DOS]] command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} -* [[_SHELLHIDE]] (function) {{text|hides a [[DOS]] command or call to another program. Returns codes sent by [[END]] or [[SYSTEM]].}} +* [[SHELL (function)|SHELL (QB64 function)]] {{text|executes a DOS command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} +* [[_SHELLHIDE]] (function) {{text|hides a DOS command or call to another program. Returns codes sent by [[END]] or [[SYSTEM]].}} -<center>See also: [[Console Window]] and [[C_Libraries#Console_Window|C++ Console window Library]].</center> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> - -== Conditional Operations: == +== Conditional Operations == * [[AND (boolean)]] {{text|returns True if all of the arguments are True.}} @@ -149,12 +117,12 @@ {{Template:RelationalOperationsTable}} -<center>See also: [[#Logical Bitwise Operations:|Logical Operations:]] and [[Relational Operations]]</center> +<center>See also: [[#Logical Bitwise Operations|Logical Operations]] and [[Relational Operations]]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Definitions and Variable Types: == +== Definitions and Variable Types == * [[_BIT]] {` numerical [[TYPE|type]]) {{text|values of 0 (bit off) or -1 (bit on). [[_UNSIGNED|Unsigned]] of 0 or 1.}} * [[_BYTE]] {%% numerical [[TYPE|type]]) {{text|values from -128 to 127 (one byte or 8 [[_BIT]]s). [[_UNSIGNED|Unsigned]] from 0 to 255.}} @@ -164,8 +132,6 @@ * [[_MEM]] (variable type) {{text|contains read only dot elements for the OFFSET, SIZE, TYPE and ELEMENTSIZE of a block of memory.}} * [[_OFFSET]](%& variable type) {{text|can store any memory offset integer value when using [[DECLARE LIBRARY]] or [[_MEM]]ory only.}} * [[_UNSIGNED]] {~ numerical [[TYPE|type]]) {{text|defines an integer numerical value as being positive only in QB64.}} - - * [[COMMON]] (statement) {{text|shares common variable values with other Linked or [[CHAIN]]ed programs.}} * [[COMMON SHARED]] (statement) {{text|shares common variable values with all sub-procedures and other Linked or CHAINed programs.}} * [[CONST]] (statement) {{text|defines one or more named numeric or string shared values which can not change in a program.}} @@ -178,7 +144,9 @@ * [[DOUBLE]] {# numerical [[TYPE|type]]) {{text|an 8 byte floating decimal variable type with numerical values up to 15 decimal places.}} * [[INTEGER]] {% numerical [[TYPE|type]]) {{text|a two byte variable type with values from -32768 to 32767. [[_UNSIGNED|Unsigned]] to 65535.}} * [[LONG]] {& numerical [[TYPE|type]]) {{text|Integer values can be from -2147483648 to 2147483647. [[_UNSIGNED]] values to 4294967295.}} -* [[OPTION BASE]] (statement) {{text|sets the default starting index of an [[arrays|array]] to 0 or 1.}} +* [[OPTION BASE]] (precompiler statement) {{text|sets the default starting index of an [[arrays|array]] to 0 or 1.}} +* [[OPTION _EXPLICIT]] (precompiler directive) {{text|instructs the compiler to require variable declaration with [[DIM]] or an equivalent statement.}} +* [[OPTION _EXPLICITARRAY]] (precompiler directive) {{text|instructs the compiler to require array declaration with [[DIM]] or an equivalent statement.}} * [[REDIM]] {{text|defines and sizes a [[$DYNAMIC|dynamic]](changeable) array and can define the type of value returned.}} * [[SHARED]] (statement) {{text|designates variable values that can be shared with sub-procedures without using [[SUB]] parameters.}} * [[SINGLE]] (! numerical [[TYPE|type]]) {{text|a 4 byte floating decimal variable type with numerical values up to 7 decimal places.}} @@ -187,52 +155,57 @@ * [[TYPE]] (statement) {{text|defines variable types that can hold more than one variable type value of a fixed byte length.}} -<center>See also: [[Variable Types|QB64 Variable Types]] and [[Libraries#C.2B.2B_Variable_Types|C++ Variable Types]]</center> +<center>See also: [[Variable Types|QB64 Variable Types]] and [[Libraries#C.2B.2B_Variable_Types|C++ Variable Types]]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== [[DOS]] and OS Environment: == +== External Disk and API calls == +* [[_ACCEPTFILEDROP]] (statement) {{text|turns a program window into a valid drop destination for dragging files from Windows Explorer.}} * [[_DEVICE$]] (function) {{text|returns a [[STRING]] expression listing device names and input types of system input devices.}} * [[_DEVICES]] (function) {{text|returns the number of input devices found on a computer system.}} * [[_DIREXISTS]] (function) {{text|returns -1 if the directory folder name [[STRING|string]] parameter exists. Zero if it does not.}} +* [[_DROPPEDFILE]] (function) {{text| returns the list of items (files or folders) dropped in a program's window after [[_ACCEPTFILEDROP]] is enabled.}} * [[_CLIPBOARD$ (statement)]] {{text|sends [[STRING]] data to the Clipboard.}} * [[_CLIPBOARD$]] (function) {{text|returns the current contents of the Clipboard as a [[STRING|string]].}} +* [[_CLIPBOARDIMAGE (function)]] {{text|pastes an image from the clipboard into a new QB64 image in memory.}} +* [[_CLIPBOARDIMAGE]] (statement) {{text|copies a valid QB64 image to the clipboard.}} * [[_CWD$]] (function) {{text|returns the current working directory path as a [[STRING]].}} * [[_DONTWAIT]] (SHELL action) {{text|allows the program to continue without waiting for the other program to close.}} * [[_FILEEXISTS]] (function) {{text|returns -1 if the file name [[STRING|string]] parameter exists. Zero if it does not.}} -* [[_HIDE]] (SHELL action) {{text|hides the [[DOS]] screen output during a shell.}} -*[[_LASTBUTTON]] (function) {{text|returns the number of buttons available on a specified number device listed by [[DEVICE$]].}} +* [[_FINISHDROP]] (statement) {{text| resets [[_TOTALDROPPEDFILES]] and clears the [[_DROPPEDFILE]] list of items (files/folders).}} +* [[_HIDE]] (SHELL action) {{text|hides the DOS screen output during a shell.}} +* [[_LASTBUTTON]] (function) {{text|returns the number of buttons available on a specified number device listed by [[DEVICE$]].}} * [[_OS$]] (function) {{text| returns the QB64 compiler version in which the program was compiled as [WINDOWS], [LINUX] or [MACOSX] and [32BIT] or [64BIT].}} * [[_SCREENCLICK]] {{text|simulates clicking the mouse at a position on the screen to get focus.}} * [[_SCREENIMAGE]] {{text|captures the current desktop screen image.}} * [[_SCREENPRINT]] {{text|simulates keyboard entries on the desktop.}} -* [[_SHELLHIDE]] (function) {{text|executes a [[DOS]] command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} +* [[_SHELLHIDE]] (function) {{text|executes a DOS command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} * [[_STARTDIR$]] (function) {{text|returns the user's program calling path as a [[STRING]].}} +* [[_TOTALDROPPEDFILES]] (function) {{text| returns the number of items (files or folders) dropped in a program's window after [[_ACCEPTFILEDROP]] is enabled.}} * [[CHDIR]] (statement) {{text|changes the program path to a new path.}} * [[COMMAND$]] (function) {{text|returns command line parameters sent when a program is started.}} -* [[ENVIRON]] (statement) {{text|sets the environmental settings of the computer. NOT IMPLEMENTED!}} +* [[ENVIRON]] (statement) {{text|temporarily sets an environmental key/value pairs.}} * [[ENVIRON$]] (function) {{text|returns the environmental settings of the computer.}} +* [[_ENVIRONCOUNT]] (function) {{text|returns the number of key/value pairs currently exist in the environment table.}} * [[FILES]] (statement) {{text|displays a specified list of files.}} * [[MKDIR]] (statement) {{text|creates a new directory folder in the designated path.}} * [[NAME]] (statement) {{text|renames a file.}} * [[RMDIR]] (statement) {{text|removes an empty directory folder from the specified path.}} -* [[SHELL]] (statement) {{text|performs a command line operation in [[DOS]].}} -* [[SHELL (function)|SHELL (QB64 function)]] {{text|executes a [[DOS]] command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} +* [[SHELL]] (statement) {{text|performs a command line operation in DOS.}} +* [[SHELL (function)|SHELL (QB64 function)]] {{text|executes a DOS command or calls another program. Returns codes sent by [[END]] or [[SYSTEM]].}} -<center>''See also:'' [[Keyword_Reference_-_By_usage#Console_Window|Console Window]] to display [[DOS]] commands.</center> - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> == Error Codes == The following table describes the error codes that are reported by the '''QB64''' compiler, as well as possible causes and solutions: -{| border="1" cellpadding="2" +{| border="1" cellpadding="2" |- -! colspan="6"|QB/64 Error Codes +! colspan="6"|QB/64 Error Codes |- ! Code || Description || Common cause/Resolution || QB64 Differences |- @@ -288,7 +261,7 @@ The following table describes the error codes that are reported by the '''QB64'' |- | 33 || Duplicate label || Line numbers or labels cannot be used twice in a procedure. || none |- -| 35 || Subprogram not defined. || Often occurs when the Quickbasic Library is not used with [[CALL ABSOLUTE]] or [[INTERRUPT]] or a [[SUB]] or [[FUNCTION]] procedure has not been created for a [[CALL]]. || none +| 35 || Subprogram not defined. || Often occurs when the QuickBASIC Library is not used with [[CALL ABSOLUTE]] or [[INTERRUPT]] or a [[SUB]] or [[FUNCTION]] procedure has not been created for a [[CALL]]. || none |- | 37 || Argument-count mismatch || The number of sub-procedure [[parameters]] do not match the call. || none |- @@ -324,7 +297,7 @@ The following table describes the error codes that are reported by the '''QB64'' |- | 64 || Bad file name || File name contains illegal characters or exceeds 12 characters. || none |- -| 67 || Too many files || Over 15 files are open in Qbasic. || none +| 67 || Too many files || Over 15 files are open in QBasic. || none |- | 68 || Device unavailable. || Device does not exist, busy or not connected. || none |- @@ -347,11 +320,11 @@ The following table describes the error codes that are reported by the '''QB64'' | 97 || (no error message) || Can be used to trigger an error trap event with [[ERROR]] 97, nothing else will cause this error, so create your own errors for [[ON ERROR]]. || none |- |} -<center>'''N/A means Not Available or Not Applicable to QB64.'''</center> +<center>'''N/A means Not Available or Not Applicable to QB64.'''</center> -{| border="1" cellpadding="2" -! colspan="6"|QB64 Error Codes +{| border="1" cellpadding="2" +! colspan="6"|QB64 Error Codes |- ! Code || Description || Common cause/resolution || QB Differences |- @@ -359,33 +332,32 @@ The following table describes the error codes that are reported by the '''QB64'' |} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Error Trapping: == +== Error Trapping/Debugging == + +* [[_ASSERT]] (statement) {{text|performs debug tests.}} +* [[$ASSERTS]] ([[Metacommand]]) {{text|enables the [[_ASSERT]] macro.}} * [[$CHECKING]] ([[Metacommand]]) {{text|turns off or on error event checking and strips error code from compiled programs.}} +* [[$DEBUG]] (precompiler [[metacommand]]) {{text|enables debugging features allowing you to step through your code running line by line and to inspect variables and change their values in real time.}} * [[_ERRORLINE]] (function) {{text|returns the actual text code line where a program error occurred.}} - - -* [[ERDEV]] (function) {{text|returns an error code from the last device to create an error. NOT IMPLEMENTED!}} -* [[ERDEV$]] (function) {{text|returns the string name of the last device to declare an error. NOT IMPLEMENTED!}} +* [[_INCLERRORFILE$]] (function) {{text|returns the name of the original source code $INCLUDE module that caused the most recent error.}} +* [[_INCLERRORLINE]] (function) {{text|returns the line number in an included file that caused the most recent error.}} +* [[_ERRORMESSAGE$]] (function) {{text|returns a human-readable message describing the most recent runtime error.}} * [[ERR]] (function) {{text|returns the error code number of the last error to occur.}} * [[ERROR]] (statement) {{text|simulates a program error based on the error code number used.}} * [[ERL]] (function) {{text|returns the closest line number before an error occurred if the program uses them.}} - - * [[ON ERROR]] (statement) [[GOTO]] {{text|sends the program to a line number or label when an error occurs. Use to avoid program errors.}} - - * [[RESUME]] (statement) {{text|error statement sends the program to the [[NEXT]] code line or a designated line number or label .}} -<center>See the [[ERROR Codes|Error Code Table]] reference.</center> +<center>See the [[ERROR Codes|Error Code Table]] reference.</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -==Event Trapping:== +== Event Trapping == * [[_AUTODISPLAY]] (statement) {{text|enables the automatic display of the screen image changes previously disabled by [[_DISPLAY]].}} * [[_DELAY]] (statement) {{text|suspends program execution for a [[SINGLE]] value of seconds down to milliseconds.}} @@ -398,14 +370,9 @@ The following table describes the error codes that are reported by the '''QB64'' * [[OFF]] {{text|turns event checking off and does not remember subsequent events.}} * [[ON]] {{text|turns event checking on.}} -* [[ON COM(n)]] (event statement) {{text|executes when there is a value in the serial port specified. NOT IMPLEMENTED!}} * [[ON ERROR]] [[GOTO]] (event statement) {{text|executes when a program error occurs}} * [[ON KEY(n)]] (event statement) {{text|executes when a keypress or keypress combination occurs.}} -* [[ON PEN]] (event statement) {{text|executes when a PEN event occurs. NOT IMPLEMENTED!}} -* [[ON PLAY(n)]] (event statement) {{text|executes when the background music queue is low. NOT IMPLEMENTED! }} -* [[ON STRIG(n)]] (event statement) {{text|executes when a joystick button event occurs. NOT IMPLEMENTED!}} * [[ON TIMER(n)]] (event statement) {{text|executes when a timed event occurs. QB64 can use multiple numbered timers.}} -* [[ON UEVENT]] (event statement) {{text|executes when a user event occurs. NOT IMPLEMENTED!}} * [[ON...GOSUB]] (event statement) {{text|branches to a line number or label according to a numerical ordered list of labels.}} * [[ON...GOTO]] (event statement) {{text|branches to a line number or label according to a numerical ordered list of labels.}} * [[STOP]] {{text|suspends event checking and remembers subsequent events that are executed when events are turned back on.}} @@ -413,14 +380,12 @@ The following table describes the error codes that are reported by the '''QB64'' * [[TIMER (statement)]] {{text|enables, turns off or stops timer event trapping. In QB64 TIMER(n) FREE can free multiple timers. }} * [[WAIT]] (statement) {{text|normally used to delay program display execution during or after vertical retrace periods.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== File Input and Output: == +== File Input and Output == * [[_DIREXISTS]] (function) {{text|returns -1 if the directory folder name [[STRING|string]] parameter exists. Zero if it does not.}} * [[_FILEEXISTS]] (function) {{text|returns -1 if the file name [[STRING|string]] parameter exists. Zero if it does not.}} - - * [[ACCESS]] (clause) {{text|used in a networking [[OPEN]] statement to allow READ or WRITE access to files.}} * [[APPEND]] (file mode) {{text|opens or creates a file that can be appended with data at the end.}} * [[BINARY]] (file mode) {{text|opens or creates a file that can be byte accessed using both [[GET]] and [[PUT]].}} @@ -430,15 +395,12 @@ The following table describes the error codes that are reported by the '''QB64'' * [[CLOSE]] (statement) {{text|closes a specified file or all open files.}} * [[EOF]] (file function) {{text|returns -1 when the end of a file has been read.}} * [[FIELD]] (statement) {{text|creates a [[STRING]] type definition for a random-access file buffer.}} -* [[FILEATTR]] (function) {{text|can return a file's current file mode or DOS handle number.}} * [[FILES]] (statement) {{text|displays a specified list of files.}} * [[FREEFILE]] (file function) {{text|returns a file access number that is currently not in use.}} * [[GET]] (file I/O statement) {{text|reads file data by byte or record positions.}} * [[INPUT (file mode)]] {{text|only [[OPEN]]s existing sequential files for program INPUT.}} * [[INPUT (file statement)]] {{text|reads sequential file data that was created using PRINT # or WRITE #. }} * [[INPUT$]] (function) {{text|reads a specific number of bytes from random or binary files.}} -* [[IOCTL]] (statement) {{text|sends a message to an open IOCTL compatible device. NOT IMPLEMENTED!}} -* [[IOCTL$]] (function) {{text|receives messages from an open device. NOT IMPLEMENTED!}} * [[KILL]] (statement) {{text|deletes a specified file without asking for verification. Remove empty folders with [[RMDIR]].}} * [[LINE INPUT (file statement)]] {{text|reads an entire text row of printed sequential file data.}} * [[LOC]] (function) {{text|finds the current file location or size of a [[COM]] port receive buffer.}} @@ -460,23 +422,17 @@ The following table describes the error codes that are reported by the '''QB64'' * [[WIDTH]] (statement) {{text|sets the text width of a file.}} * [[WRITE (file statement)]] {{text|writes numerical and string data to a sequential file using comma separators.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Fonts and [[Unicode]]: == +== Fonts == * [[_FONT (function)]] {{text|creates a new alphablended font handle from a designated image handle}} * [[_FONT]] (statement) {{text|sets the current [[_LOADFONT]] function font handle to be used by [[PRINT]] or [[_PRINTSTRING]].}} * [[_FONTHEIGHT]] (function) {{text|returns the font height of a font handle created by [[_LOADFONT]].}} * [[_FONTWIDTH]] (function) {{text|returns the font width of a MONOSPACE font handle created by [[_LOADFONT]].}} * [[_FREEFONT]] (statement) {{text|frees a font handle value from memory}} - - * [[_LOADFONT]] (function) {{text|loads a TrueType font (.TTF) file of a specific size and style and returns a font handle value.}} - - * [[_MAPUNICODE]] (statement) {{text|maps a [[Unicode]] value to an [[ASCII]] character code value.}} - - * [[_PRINTMODE (function)]] {{text|returns the present _PRINTMODE status as a numerical value.}} * [[_PRINTMODE]] (statement) {{text|sets the text or [[_FONT]] printing mode on a background image when using [[PRINT]] or [[_PRINTSTRING]].}} :*_KEEPBACKGROUND {{text|(1): Text background transparent. Only the text is displayed over anything behind it.}} @@ -484,62 +440,44 @@ The following table describes the error codes that are reported by the '''QB64'' :*_FILLBACKGROUND {{text|(3): Text and background block anything behind them like a normal [[PRINT]]. Default setting.}} * [[_PRINTSTRING]] (statement) {{text|prints text or custom font strings using graphic column and row coordinate positions.}} * [[_PRINTWIDTH]] (function) {{text|returns the width in pixels of the [[_FONT]] or text [[STRING|string]] that a program will print.}} - - * [[PRINT]] (statement) {{text|prints numeric or [[STRING|string]] expressions to the program screen.}} * [[PRINT USING]] (statement) {{text|prints template formatted numeric or string values to the program screen.}} * [[WRITE]] (screen I/O statement) {{text|writes a comma-separated list of values to the screen.}} -<center> See also: [[Unicode]], [[Code Pages|Unicode Code Pages]] or [[ASCII|ASCII Code Table]]</center> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> - -== Game Controller Input (Joystick): == +== Game Controller Input (Joystick) == * [[_AXIS]] (function) {{text|returns a [[SINGLE]] value between -1 and 1 indicating the maximum distance from device axis center 0.}} * [[_BUTTON]] (function) {{text|returns -1 when a device button is pressed and 0 when button is released.}} * [[_BUTTONCHANGE]] (function) {{text|returns -1 when a device button has been pressed and 1 when released. Zero indicates no change.}} - - * [[_DEVICE$]] (function) {{text|returns a [[STRING]] expression listing a designated numbered input device name and types of input.}} * [[_DEVICEINPUT]] (function) {{text|returns the [[_DEVICES]] number of an [[_AXIS]], [[_BUTTON]] or [[_WHEEL]] event.}} * [[_DEVICES]] (function) {{text|returns the number of input devices found on a computer system including the keyboard and mouse.}} - - * [[_LASTAXIS]] (function) {{text|returns the number of axis available on a specified number device listed by [[_DEVICE$]].}} -*[[_LASTBUTTON]] (function) {{text|returns the number of buttons available on a specified number device listed by [[DEVICE$]].}} +* [[_LASTBUTTON]] (function) {{text|returns the number of buttons available on a specified number device listed by [[DEVICE$]].}} * [[_LASTWHEEL]] (function) {{text|returns the number of scroll wheels available on a specified number device listed by [[_DEVICE$]].}} - - * [[_MOUSEMOVEMENTX]] (function) {{text|returns the relative horizontal position of the mouse cursor compared to the previous position.}} * [[_MOUSEMOVEMENTY]] (function) {{text|returns the relative vertical position of the mouse cursor compared to the previous position.}} * [[_WHEEL]] (function) {{text|returns -1 when a device wheel is scrolled up and 1 when scrolled down. Zero indicates no activity.}} - - * [[ON STRIG(n)]] (event statement) {{text|directs program flow upon a button press event of a game controller device.}} * [[STICK]] (function) {{text|returns the directional axis coordinate values from 1 to 254 of game port (&H201) or USB controller devices.}} * [[STRIG]] (function) {{text|returns the True or False button press status of game port (&H201) or USB controller devices.}} * [[STRIG(n)]] (statement) {{text|enables, suspends or disables event trapping of STRIG button return values.}} -<center> See also: [[Windows_Libraries#Game_Pad|Windows Game Pad]] or [[SDL_Libraries#Joystick|SDL Joystick]] Libraries.</center> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> - - -==Graphic GL Special Commands== - -<center>[http://www.qb64.net/wiki/index.php/Keyword_Reference_-_Alphabetical#glA Full list of QB64 _GL prefixed statements and functions] </center> +== Graphic Commands == * [[_COPYIMAGE]] (function) {{text|can copy a software surface to a hardware accelerated surface handle using mode 33.}} -* [[_DISPLAY]] (statement) {{text|renders surfaces visible in the [[_DISPLAYORDER]] previously set in the QB64GL program.}} -* [[_DISPLAYORDER]] (GL statement) {{text|sets the rendering order of _SOFTWARE, _HARDWARE and _GLRENDER with [[_DISPLAY]].}} +* [[_DISPLAY]] (statement) {{text|renders surfaces visible in the [[_DISPLAYORDER]] previously set in the QB64 program.}} +* [[_DISPLAYORDER]] {{text|sets the rendering order of _SOFTWARE, _HARDWARE and _GLRENDER with [[_DISPLAY]].}} * [[_LOADIMAGE]] (function) {{text|can load images as hardware accelerated using mode 33.}} * [[_MOUSESHOW]] (statement) {{text|a special string parameter after command in GL allows some special cursor shapes.}} * [[_PUTIMAGE]] (statement) {{text|can place GL surfaces and allows the _SMOOTH action to blend stretched surfaces.}} - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> == Graphics and Imaging: == @@ -555,7 +493,7 @@ The following table describes the error codes that are reported by the '''QB64'' * [[_FULLSCREEN]] (statement) {{text|sets the full screen mode of the screen window. Alt + Enter can do it manually.}} * [[_FREEIMAGE]] (statement) {{text|releases an image handle value from memory when no longer needed.}} * [[_HEIGHT]] (function) {{text|returns the height of an image handle or current write page.}} -* [[_ICON]] (function) {{text|places an image in the title bar using a [[_LOADIMAGE]] handle. (Icons can be used in GL only!)}} +* [[_ICON]] (function) {{text|places an image in the title bar using a [[_LOADIMAGE]] handle.}} * [[_LOADIMAGE]] (function) {{text|loads a graphic file image into memory and returns an image handle.}} * [[_MAPTRIANGLE]] (statement) {{text|maps a triangular portion of an image to a destination image or screen page.}} * [[_NEWIMAGE]] (function) {{text|prepares a window image or page surface and returns the handle value.}} @@ -589,16 +527,16 @@ The following table describes the error codes that are reported by the '''QB64'' * [[WINDOW]] (statement) {{text|defines the coordinate dimensions of the current graphics viewport.}} -<center>'''See also: [[Bitmaps]], [[Icons and Cursors]], [[SAVEIMAGE]], [[GIF Images]]'''</center> +<center>'''See also: [[Bitmaps]], [[Icons and Cursors]], [[SAVEIMAGE]], [[GIF Images]]'''</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Keyboard Input: == +== Keyboard Input == * [[_CONTROLCHR]] (statement) {{text|[[OFF]] allows the control characters to be used as text characters. [[ON]](default) can use them as commands.}} * [[_CONTROLCHR (function)]] {{text| returns the current state of _CONTROLCHR as 1 when OFF and 0 when ON.}} * [[_EXIT (function)]] {{text|prevents a program user exit and indicates if a user has clicked the close X window button or CTRL + BREAK.}} * [[_KEYDOWN]] (function) {{text|returns whether modifying keys like CTRL, ALT, SHIFT, and any other keys are pressed.}} -* [[_KEYHIT]] (function) {{text|returns ASCII one and two byte, SDL Virtual Key and Unicode keyboard key press codes.}} +* [[_KEYHIT]] (function) {{text|returns ASCII one and two byte, Virtual Key and Unicode keyboard key press codes.}} * [[_SCREENPRINT]] (statement) {{text|simulates typing text into another OS program using the keyboard.}} @@ -606,23 +544,20 @@ The following table describes the error codes that are reported by the '''QB64'' * [[INPUT]] (statement) {{text|requests a [[STRING]] or numerical keyboard entry from a program user.}} * [[INPUT$]] (function) {{text|used to get a set number of keypress characters or bytes from a file.}} * [[INP]] (function) {{text|returns a scan code value from keyboard register &H60(96) to determine key presses.}} -* [[KEY n]] (event statement) {{text|is used to assign a "softkey" string to a key and/or display them.}} +* [[KEY n]] (event statement) {{text|is used to assign a "softkey" string to a key and/or display them.}} * [[KEY(n)]] (event statement) {{text|assigns, enables, disables or suspends event trapping of a keypress.}} * [[KEY LIST]] (statement) {{text|lists the 12 Function key soft key string assignments going down left side of screen.}} * [[LINE INPUT]] (statement) {{text|requests a [[STRING]] keyboard entry from a program user.}} * [[ON KEY(n)]] (event statement) {{text|defines a line number or label to go to when a specified key is pressed.}} -* [[ON PEN]] (event statement) {{text|enables event handling for a lightpen. NOT IMPLEMENTED!}} -* [[PEN]] (event function) {{text|returns requested information about the lightpen device used. NOT IMPLEMENTED!}} -* [[PEN (statement)]] {{text|enables/disables or suspends event trapping of the lightpen device. NOT IMPLEMENTED!}} * [[SLEEP]] (statement) {{text|pauses the program for a specified number of seconds or a until a key press.}} -<center>See also: [[Keyboard scancodes]], [[ASCII|ASCII Codes]] references or [[Windows_Libraries#Hot_Keys_.28maximize.29|Hot Keys for Windows]].</center> +<center>See also: [[Keyboard scancodes]], [[ASCII|ASCII Codes]] references or [[Windows_Libraries#Hot_Keys_.28maximize.29|Hot Keys for Windows]].</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -==[[Libraries]]:== +== [[Libraries]] == * [[_OFFSET (function)]] {{text|returns the memory offset of a variable when used with [[DECLARE DYNAMIC LIBRARY]] only.}} * [[_OFFSET]](variable type) {{text|can be used store the value of an offset in memory when using [[DECLARE DYNAMIC LIBRARY]] only.}} @@ -630,20 +565,20 @@ The following table describes the error codes that are reported by the '''QB64'' * [[ALIAS]] (statement) {{text|tells the program that you will use a different name than the name used in the Library file.}} * [[BYVAL]] (statement) {{text|used to pass a parameter's value with sub-procedures from a Library.}} -* [[DECLARE LIBRARY]] (QB64 Only) {{text|allows the use of OS specific, SDL or C++ external library [[SUB]] and [[FUNCTION]] procedures}} -* [[DECLARE DYNAMIC LIBRARY]] (QB64 Only) {{text|declares DYNAMIC, CUSTOMTYPE or STATIC library(DLL) [[SUB]]s or [[FUNCTION]]s.}} -* [[DECLARE LIBRARY| END DECLARE]] (QB64 Only) {{text|required at the END of the block of Library declarations in QB64.}} +* [[DECLARE LIBRARY]] {{text|allows the use of OS specific or C++ external library [[SUB]] and [[FUNCTION]] procedures}} +* [[DECLARE DYNAMIC LIBRARY]] {{text|declares DYNAMIC, CUSTOMTYPE or STATIC library(DLL) [[SUB]]s or [[FUNCTION]]s.}} +* [[DECLARE LIBRARY| END DECLARE]] {{text|required at the END of the block of Library declarations in QB64.}} -<center>'''QB64 also supports [[$INCLUDE]] text code file Libraries. QB64 does not support QLB Libraries or OBJ files.'''</center> +<center>'''QB64 also supports [[$INCLUDE]] text code file Libraries. QB64 does not support QLB Libraries or OBJ files.'''</center> -<center>See also: [[Libraries#C++_Variable_Types|C++ Variable Types]]</center> +<center>See also: [[Libraries#C++_Variable_Types|C++ Variable Types]]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Logical Bitwise Operations: == +== Logical Bitwise Operations == * [[AND]] (operator) {{text|the bit is set when both bits are set.}} * [[EQV]] (operator) {{text|the bit is set when both are set or both are not set.}} @@ -656,9 +591,9 @@ The following table describes the error codes that are reported by the '''QB64'' {{Template:LogicalTruthTable}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Mathematical Functions and Operations: == +== Mathematical Functions and Operations == * [[_ROUND]] (function) {{text|rounds to the closest EVEN [[INTEGER]], [[LONG]] or [[_INTEGER64]] numerical value.}} @@ -677,22 +612,22 @@ The following table describes the error codes that are reported by the '''QB64'' * [[CDBL]] (function) {{text|closest double rounding function}} * [[CINT]] (function) {{text|closest integer rounding function}} * [[CLNG]] (function) {{text|closest long integer rounding function}} -* [[COS]] (function) {{text|cosine of a [[radians|radian]] angle}} +* [[COS]] (function) {{text|cosine of a radian angle}} * [[CSNG]] (function) {{text|closest single rounding function}} * [[EXP]] (function) {{text|returns the value of e to the power of the parameter used.}} * [[FIX]] (function) {{text|rounds positive or negative values to integer values closer to 0}} * [[INT]] (function) {{text|rounds to lower integer value}} * [[LOG]] (function) {{text|natural logarithm of a specified numerical value.}} -* [[SIN]] (function) {{text|sine of a [[radians|radian]] angle.}} +* [[SIN]] (function) {{text|sine of a radian angle.}} * [[SQR]] (function) {{text|square root of a positive number.}} * [[TAN]] (function) {{text|returns the ratio of [[SIN]]e to [[COS]]ine or tangent value of an angle measured in radians.}} -<center>See also: [[Mathematical Operations]] and [[#Logical Bitwise Operations:|Logical Operations:]] </center> +<center>See also: [[Mathematical Operations]] and [[#Logical Bitwise Operations:|Logical Operations:]] </center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Memory Handling and Clipboard: == +== Memory Handling and Clipboard == * [[_CLIPBOARD$ (function)]] {{text|returns the current [[STRING]] contents of the system Clipboard.}} * [[_CLIPBOARD$ (statement)]] {{text|sets and overwrites the [[STRING]] contents of the current system Clipboard.}} @@ -708,44 +643,54 @@ The following table describes the error codes that are reported by the '''QB64'' * [[_MEMIMAGE]] (function) {{text|returns a [[_MEM]] block referring to a designated image handle's memory}} * [[_MEMNEW]] (function) {{text|allocates new memory with a designated SIZE and returns a [[_MEM]] block referring to it.}} * [[_MEMPUT]] (statement) {{text|places a designated value into a designated memory [[_OFFSET]]}} +* [[_MEMSOUND]] (function) {{text|returns a [[_MEM]] block referring to a designated sound handle's memory}} * [[_OFFSET (function)]] {{text|returns the memory offset of a variable when used with [[DECLARE LIBRARY]] or [[_MEM]] only.}} * [[_OFFSET]](%& numerical type) {{text|can be used store the value of an offset in memory when using [[DECLARE LIBRARY]] or [[_MEM]] only.}} -<center>'''Functions and statements using QB64's emulated 16 bit memory'''</center> +<center>'''Functions and statements using QB64's emulated 16 bit memory'''</center> * [[DEF SEG]] (statement) {{text|defines the segment address in memory.}} -* [[FRE]] (function) {{text|returns the amount of Memory available in bytes to running programs. NOT IMPLEMENTED!}} * [[PEEK]] (function) {{text|returns the value that is contained at a certain memory address offset.}} * [[POKE]] (statement) {{text|sets the value of a specified memory address offset.}} * [[SADD]] (function) {{text|returns the address of a STRING variable as an offset from the current data segment.}} -* [[SETMEM]] (function) {{text|is used to increase, decrease or return the current "far heap" byte size. NOT IMPLEMENTED!}} * [[VARPTR]] (function) {{text|returns an [[INTEGER]] value that is the offset pointer of the memory address within it's [[segment]].}} * [[VARPTR$]] (function) {{text|returns a STRING representation of a variable's memory address value}} * [[VARSEG]] (function) {{text|returns an [[INTEGER]] value that is the [[segment]] part of a variable or array memory address.}} -<center>See also: [[Screen Memory]] or [[Using _OFFSET]]</center> +<center>See also: [[Screen Memory]] or [[Using _OFFSET]]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> == Metacommands == :Metacommands are commands that affect a program globally after they are in used. Error checking can be turned [[OFF]] or [[ON]]. -<center>'''QB64 [[Metacommand]]s do NOT allow commenting or [[REM]]!'''</center> +<center>'''QB64 [[Metacommand]]s DO NOT allow commenting or [[REM]]!'''</center> -* [[$CHECKING]]:OFF/ON {{text|(QB64 only) turns event and error checking ON and OFF. ON (default) can only be used after it is OFF.}} + +* [[$ASSERTS]] {{text|enables the [[_ASSERT]] macro.}} +* [[$CHECKING]] {{text|turns event and error checking ON and OFF. ON (default) can only be used after it is OFF.}} +* [[$COLOR]] {{text|includes named color constants in a program.}} * [[$CONSOLE]] {{text|creates a console window throughout the program.}} -* [[$SCREENHIDE]] {{text|hides the program window throughout the program until [[$SCREENSHOW]] is used.}} +* [[$ERROR]] {{text|used to trigger compiler errors.}} +* [[$EXEICON]] {{text|embeds a designated icon file into the compiled EXE file. (Windows ONLY)}} +* [[$IF]]...[[$ELSEIF]]...[[$ELSE]]...[[$END IF]] {{text|used to set an IF condition for the precompiler.}} +* [[$LET]] {{text|used to set a flag variable for the precompiler.}} +* [[$NOPREFIX]] {{text|allows all QB64 functions and statements to be used without the leading underscore (_).}} +* [[$RESIZE]] {{text|determines if a program window can be resized by the user.}} +* [[$SCREENHIDE]] {{text|hides the main program window throughout the program until [[$SCREENSHOW]] is used.}} * [[$SCREENSHOW]] {{text|displays the main program window throughout the program only after [[$SCREENHIDE]] or [[_SCREENHIDE]] has been used.}} +* [[$VERSIONINFO]] {{text|adds metadata to Windows only binaries for identification purposes across the OS.}} +* [[$VIRTUALKEYBOARD]] {{text|turns the virtual keyboard ON or OFF for use in touch-enabled devices. (DEPRECATED)}} -<center>'''Qbasic [[Metacommand]]s do not require commenting or [[REM]] in QB64!'''</center> +<center>'''QBasic [[Metacommand]]s DO require commenting or [[REM]] in QB64!'''</center> * '[[$DYNAMIC]] {{text|defines that all arrays are dynamic or changeable in size using [[DIM]] or [[REDIM]].}} -* '[[$INCLUDE]]: 'filename$' {{text|includes a text library file with procedures to be used in a program. Comment both sides of file name also.}} +* '[[$INCLUDE]] {{text|includes a text library file with procedures to be used in a program. Comment both sides of file name also.}} * '[[$STATIC]] {{text|defines that all arrays are static or unchangeable in size using [[DIM]].}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Mouse Input: == +== Mouse Input == * [[_AXIS]] (function) {{text|returns a [[SINGLE]] value between -1 and 1 indicating the maximum distances from device center 0.}} * [[_BUTTON]] (function) {{text|returns -1 when a device button is pressed and 0 when button is released. 2 is the mouse center or scroll button}} * [[_BUTTONCHANGE]] (function) {{text|returns -1 when a device button has been pressed and 1 when released. Zero indicates no change.}} @@ -773,11 +718,10 @@ The following table describes the error codes that are reported by the '''QB64'' * [[CALL ABSOLUTE|CALL ABSOLUTE]] (statement) {{text|used to access Interrupt vector &H33 to work with the mouse. Functions 0 to 3 implemented.}} * [[INTERRUPT]] (statement) {{text|used to access Interrupt vector &H33 to work with the mouse. Functions 0 to 3 implemented. }} -<center>See also: [http://qb64.net/wiki/index.php?title=SDL_Libraries#Mouse SDL Mouse Library]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Numerical Manipulation and Conversion: == +== Numerical Manipulation and Conversion == * [[&B]] [[Binary]] {{text|base number prefix used in QB64 to represent [[_BIT]]s on as 1 or off as 0.}} * [[_CV]] (function) {{text|used to convert [[_MK$]] [[ASCII]] [[STRING|string]] values to specified numerical value types.}} @@ -789,7 +733,6 @@ The following table describes the error codes that are reported by the '''QB64'' * [[ABS]] (function) {{text|returns the the positive value of a variable or literal numerical value.}} * [[ASC]] (function) {{text|returns the [[ASCII]] code number of a certain [[STRING]] text character or a keyboard press.}} * [[CDBL]] (function) {{text|converts a numerical value to the closest [[DOUBLE]]-precision value.}} -* [[CDECL]] (statement) {{text|used to indicate that the external procedure uses the C-language argument order.}} * [[CHR$]] (function) {{text|returns the character associated with a certain [[ASCII]] character code as a [[STRING]].}} * [[CINT]] (function) {{text|returns the closest [[INTEGER]] value of a number.}} * [[CLEAR]] (statement) {{text|clears all variable values to 0 or null [[STRING|strings]] and closes all open files.}} @@ -816,36 +759,29 @@ The following table describes the error codes that are reported by the '''QB64'' * [[VAL]] (function) {{text|converts number [[STRING|strings]] into numerical values until it runs into a non-numeric character.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Port Input and Output (COM and LPT): == - -* [[COM(n)]] (statement) {{text|used in an OPEN COM statement to open "COM1" or "COM2".}} +== Port Input and Output (COM and LPT) == * [[GET]] (file I/O statement) {{text|reads port data data by byte or record positions.}} - - -* [[INP]] (function) {{text|returns a value from port hardware address. NOT IMPLEMENTED for port access! }} - * [[LOC]] (function) {{text|finds the current file location or size of a [[COM]] port receive buffer.}} -* [[ON COM(n)]] (event statement) {{text|branches to a line number or label when there is a value in the serial port specified.}} * [[OPEN COM]] (statement) {{text|opens a computer serial COMmunications port.}} -* [[OUT]] (statement) {{text|sends values to register or port hardware addresses. Use with care! NOT IMPLEMENTED for port access!}} +* [[OUT]] (statement) {{text|sends values to register or port hardware addresses (emulated - limited access).}} * [[PRINT (file statement)]] {{text|writes text and numerical data to a port transmit buffer.}} * [[PUT]] (file I/O statement) {{text|writes data into a [[RANDOM]] or [[BINARY]] port by byte or record position.}} -<center>'''See [[Port Access Libraries]] for other ways to access COM and LPT ports.'''.</center> +<center>'''See [[Port Access Libraries]] for other ways to access COM and LPT ports.'''.</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -==Print formatting== +== Print formatting == * [[LPRINT USING]] (statement) {{text|prints template formatted [[STRING]] text to an LPT or USB printer page.}} * [[PRINT USING]] (statement) {{text|prints template formatted [[STRING]] text to the screen.}} @@ -855,9 +791,9 @@ The following table describes the error codes that are reported by the '''QB64'' {{PrintUsing}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -==Printer Output (LPT and USB):== +== Printer Output (LPT and USB) == * [[_PRINTIMAGE]] (statement) {{text|prints an image stretched to the size of the paper setting of an LPT or USB printer.}} @@ -867,12 +803,12 @@ The following table describes the error codes that are reported by the '''QB64'' * [[LPRINT USING]] (statement) {{text|prints template formatted [[STRING]] text to an LPT or USB printer page.}} -<center>'''QB64 will use the default system printer selected. [[_PRINTIMAGE]] images will be stretched to the paper size setting.'''</center> +<center>'''QB64 will use the default system printer selected. [[_PRINTIMAGE]] images will be stretched to the paper size setting.'''</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Program Flow and Loops: == +== Program Flow and Loops == * [[_CONTINUE]] (statement) {{text|skips the remaining lines in a control block (DO/LOOP, FOR/NEXT or WHILE/WEND)}} * [[_DEST]] (statement) {{text|sets the current write image or page. All graphics will go to this image.}} * [[_DEST (function)]] {{text|returns the current write destination image or page.}} @@ -883,14 +819,13 @@ The following table describes the error codes that are reported by the '''QB64'' * [[CALL]] (statement) {{text|sends code execution to a subroutine procedure in a program.}} -* [[CALLS]] (statement) {{text|transfers control to a procedure written in a different programming language. NOT IMPLEMENTED!}} * [[CASE]] ([[SELECT CASE]] statement) {{text|used within a SELECT CASE block to specify a conditional value of the compared variable.}} * [[CASE ELSE]] ([[SELECT CASE]] statement) {{text|used in a SELECT CASE block to specify an alternative to other CASE values.}} * [[CASE IS]] ([[SELECT CASE]] statement) {{text|used within a SELECT CASE block to specify a conditional value of the compared variable.}} * [[DO...LOOP]] (loop statement) {{text|used in programs to repeat code or return to the start of a procedure.}} * [[ELSE]] (statement) {{text|used in [[IF...THEN]] statements to offer an alternative to other conditional statements.}} * [[ELSEIF]] (statement) {{text|used in [[IF...THEN]] block statements to offer an alternative conditional statement.}} -* [[END]] (statement) {{text|ENDs a conditional block statement, a sub-procedure or ends the program with "Press any key..."}} +* [[END]] (statement) {{text|ENDs a conditional block statement, a sub-procedure or ends the program with "Press any key..."}} * [[END IF]] (IF statement end) {{text|ENDs an IF statement block.}} * [[ERROR]] (error statement) {{text|used to simulate an error in a program.}} * [[EXIT]] (statement) {{text|exits a loop, function or sub-procedure early.}} @@ -912,9 +847,9 @@ The following table describes the error codes that are reported by the '''QB64'' * [[WHILE]] (statement) {{text|continues a DO LOOP procedure while a condition is true.}} * [[WHILE...WEND]] (statement) {{text|a loop procedure that repeats code while a condition is true.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Sounds and Music using Sound Card: == +== Sounds and Music == * [[_SNDBAL]] (statement) {{text|sets the balance or 3D position of a sound.}} * [[_SNDCLOSE]] (statement) {{text|frees and unloads an open sound using a _SNDOPEN or _SNDCOPY handle.}} @@ -941,14 +876,12 @@ The following table describes the error codes that are reported by the '''QB64'' * [[BEEP]] (statement) {{text|makes a beep sound when called or CHR$(7) is printed.}} -* [[ON PLAY(n)]] (event statement) {{text|specifies the line-number or label to branch to when the background music queue is low. NA!}} -* [[PLAY(n)]] (event function) {{text|returns the number of notes currently in the background music queue. NOT IMPLEMENTED!}} * [[PLAY]] (music statement) {{text|uses a custom string statement to play musical notes.}} * [[SOUND]] (statement) {{text|creates sounds of a specified frequency for a set duration.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== String Text Manipulation and Conversion: == +== String Text Manipulation and Conversion == * [[_CLIPBOARD$]] (function) {{text|returns the current [[STRING]] contents of the system Clipboard.}} * [[_CLIPBOARD$ (statement)]] {{text|sets the [[STRING]] contents of the current system Clipboard.}} @@ -986,17 +919,15 @@ The following table describes the error codes that are reported by the '''QB64'' * [[VAL]] (function) {{text|converts a string number value to a numerical value.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Sub procedures and Functions== +== Sub procedures and Functions == -<center>'''Qbasic and QB64'''</center> +<center>'''QBasic and QB64'''</center> * [[CALL]] (statement) {{text|sends code execution to a [[SUB]] procedure in a program. Parameter brackets are required when used.}} * [[CALL ABSOLUTE|CALL ABSOLUTE]] (statement) {{text|used to access Interrupts on the computer or execute assembly type procedures.}} -* [[CALLS]] (statement) {{text|transfers control to a procedure written in a different programming language. NOT IMPLEMENTED!}} * [[CHAIN]] (statement) {{text|changes seamlessly from one program module to another.}} -* [[DECLARE]] (BASIC statement) {{text|used to tell that a SUB or FUNCTION is created to be used in the program. NOT USED by QB64!}} -* [[DEF FN]] (statement) {{text|statement defines a function in the main module. NOT IMPLEMENTED!}} +* DECLARE (BASIC statement) {{text|used to tell that a SUB or FUNCTION is created to be used in the program. NOT USED by QB64!}} * [[END]] (statement) {{text|ends a [[SUB]] or [[FUNCTION]] procedure.}} * [[EXIT]] (statement) {{text|exits a [[SUB]] or [[FUNCTION]] procedure early.}} * [[FUNCTION]] (statement) {{text|a procedure that holds ONE return value in the function's name which is a variable type. }} @@ -1010,11 +941,11 @@ The following table describes the error codes that are reported by the '''QB64'' * [[STATIC]] (statement) {{text|defines a variable or list of variables that will retain their values after the sub-procedure is exited.}} * [[SUB]] (statement) {{text|procedures are programs within programs that can return multiple calculations.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== TCP/IP Networking and Email: == +== TCP/IP Networking and Email == -<center>'''All Statements and Functions Compile in QB64 Only!'''</center> +<center>'''All Statements and Functions Compile in QB64 Only!'''</center> * [[_CONNECTED]] (function) {{text|returns the connection status of a TCP/IP connection handle.}} @@ -1031,20 +962,15 @@ The following table describes the error codes that are reported by the '''QB64'' * [[GET (TCP/IP statement)]] {{text|reads unformatted(raw) data from an opened connection using the connection handle.}} - -* [[INPUT (TCP/IP statement)]] {{text|reads a formatted message from an opened connection using the connection handle.}} - - * [[PUT (TCP/IP statement)]] {{text|sends unformatted(raw) data to an open connection using a user's handle.}} -* [[PRINT (TCP/IP statement)]] {{text|sends formatted message to an open connection handle.}} -<center>See also: [[TCP/IP Message Format]], [[IP Configuration]], [[Downloading Files]] and [[WGET]]</center> +<center>See also: [[Downloading Files]]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Text on Screen: == +== Text on Screen == * [[_CONTROLCHR]] {{text|[[OFF]] allows [[ASCII]] characters 0 to 31 to be used as text characters. [[ON]](default) resets to default usage.}} * [[_FONT (function)]] {{text|creates a new alphablended font handle from a designated image handle}} * [[_FONT]] (statement) {{text|sets the current [[_LOADFONT]] function font handle to be used by [[PRINT]] or [[_PRINTSTRING]].}} @@ -1076,23 +1002,22 @@ The following table describes the error codes that are reported by the '''QB64'' * [[WRITE]] (screen I/O statement) {{text|writes a comma-separated list of values to the screen.}} -<center> See also: [[#Fonts and Unicode:|Fonts and Unicode]] or [[ASCII|ASCII Code Table]]</center> +<center> See also: [[#Fonts and Unicode:|Fonts and Unicode]] or [[ASCII|ASCII Code Table]]</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Time, Date and Timing: == +== Time, Date and Timing == * [[_AUTODISPLAY]] (statement) {{text|enables the automatic display of the screen image changes previously disabled by [[_DISPLAY]].}} * [[_DELAY]] (statement) {{text|suspends program execution for a [[SINGLE]] value of seconds down to milliseconds.}} * [[_DISPLAY]] (statement) {{text|turns off automatic display while only displaying the screen changes when called.}} *[[_FREETIMER]] (function) {{text|returns a free TIMER number for multiple [[ON TIMER(n)]] events.}} * [[_KEYDOWN]] (function) {{text|returns whether modifying keys like CTRL, ALT, SHIFT, and any other keys are pressed.}} -* [[_KEYHIT]] (function) {{text|returns ASCII one and two byte, SDL Virtual Key and Unicode keyboard key press codes.}} +* [[_KEYHIT]] (function) {{text|returns ASCII one and two byte, Virtual Key and Unicode keyboard key press codes.}} * [[_LIMIT]] (statement) {{text|sets the loop repeat rate of a program to so many per second, relinquishing spare cpu cycles.}} * [[DATE$]] (function) {{text|returns the present computer date in a mm-dd-yyyy [[STRING|string]] format}} -* [[DATE$ (statement)]] {{text|sets the computer date in a mm-dd-yyyy [[STRING|string]] format if allowed by the OS.}} * [[INKEY$]] (function) {{text| can be used in a loop to wait for a keypress or a [Ctrl] + letter key combination.}} * [[INPUT]] (statement) {{text|can be used to wait for an [Enter] key press or a text or numerical menu entry.}} @@ -1103,17 +1028,16 @@ The following table describes the error codes that are reported by the '''QB64'' * [[SLEEP]] (statement) {{text|pauses the program for a specified number of seconds or a until a key press is made.}} * [[TIME$]] (function) {{text|returns the present computer time in a hh:mm:ss 24 hour [[STRING|string]] format}} -* [[TIME$ (statement)]] {{text|sets the computer time in a hh:mm:ss 24 hour [[STRING|string]] format if allowed by the OS.}} * [[TIMER]] (function) {{text|returns the number of seconds past the previous midnite down to a QB64 accuracy of one millisecond.}} * [[TIMER (statement)]] {{text|enables, turns off or stops timer event trapping. In QB64 TIMER(n) FREE can free multiple timers. }} * [[WAIT]] (statement) {{text|normally used to delay program display execution during or after vertical retrace periods.}} -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -== Window and Desktop: == +== Window and Desktop == -<center>'''All Statements and Functions except [[SCREEN]] Compile in QB64 Only!'''</center> +<center>'''All Statements and Functions except [[SCREEN]] Compile in QB64 Only!'''</center> * [[_FULLSCREEN (function)]] {{text|returns the present full screen mode setting number of the screen window.}} * [[_FULLSCREEN]] (statement) {{text|sets the full screen mode of the screen window. Alt + Enter can do it manually.}} @@ -1121,7 +1045,7 @@ The following table describes the error codes that are reported by the '''QB64'' * [[_ICON]] (statement) {{text|creates a program icon from an image file handle created by [[_LOADIMAGE]]. Cannot use .ICO files!}} * [[_NEWIMAGE]] (statement) {{text|function prepares a window image surface and returns the handle value.}} * [[$RESIZE]] ([[Metacommand]]) {{text|used with ON allows a user to resize the program window where OFF does not.}} -* [[_RESIZE (function)]] {{text|returns -1 when a program user wants to resize the GL program screen.}} +* [[_RESIZE (function)]] {{text|returns -1 when a program user attempts to resize the program screen.}} * [[_RESIZEHEIGHT]] (function) {{text|returns the requested new user screen height when [[$RESIZE]]:ON allows it.}} * [[_RESIZEWIDTH]] (function) {{text|returns the requested new user screen width when [[$RESIZE]]:ON allows it.}} * [[_SCREENCLICK]] {{text|simulates clicking the mouse at a position on the screen to get focus.}} @@ -1142,36 +1066,36 @@ The following table describes the error codes that are reported by the '''QB64'' * [[SCREEN]] {{text|sets the screen mode of a program. No statement defaults the program to SCREEN 0 text mode.}} -<center>''See also:'' [[C_Libraries#Console_Window|Console Window]], [[SDL_Libraries#Window|SDL Frameless Window Library]], [[Windows_Libraries#Hot_Keys_.28maximize.29|Windows Hot Keys]] or [[Windows_Libraries#Focus|Focus on Program]].</center> +<center>''See also:'' [[C_Libraries#Console_Window|Console Window]], [[Windows_Libraries#Hot_Keys_.28maximize.29|Windows Hot Keys]] or [[Windows_Libraries#Focus|Focus on Program]].</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -==QB64 Programming Symbols:== +== QB64 Programming Symbols == -<center>'''QB64 and QB Symbols:'''</center> +<center>'''QB64 and QB Symbols'''</center> -<center>''[Note: All symbols below can also be used inside of literal quoted strings except for quotation marks.]''</center> +<center>''[Note: All symbols below can also be used inside of literal quoted strings except for quotation marks.]''</center> :'''Print, Input or File Formatting''' * [[Semicolon|; Semicolon]] after a [[PRINT]] stops the invisible cursor at end of the printed value. Can prevent screen rolling! * [[Comma|, Comma]] after a [[PRINT]] tabs the invisible cursor past the end of the printed value. -* [[Quotation mark|" Quotation mark]] delimits the ends of a literal [[STRING]] value in a [[PRINT]], [[INPUT]] or [[LINE INPUT]] statement. +* [[Quotation mark|" Quotation mark]] delimits the ends of a literal [[STRING]] value in a [[PRINT]], [[INPUT]] or [[LINE INPUT]] statement. * [[Question mark|? Question mark]] is a shortcut substitute for the [[PRINT]] keyword. Will change to PRINT when cursor leaves the code line. :'''Program Code Markers''' -* [[Apostrophe|' Apostrophe]] denotes a program comment, to ignore a code line or a Qbasic [[Metacommand]]. Same as using [[REM]]. +* [[Apostrophe|' Apostrophe]] denotes a program comment, to ignore a code line or a QBasic [[Metacommand]]. Same as using [[REM]]. * [[Comma|, Comma]] is a statement variable or [[DATA]], [[SUB]] or [[FUNCTION]] parameter separator. * [[Colon|: Colon]]s can be used to separate two procedure statements on one code line. -* [[Dollar_Sign|$ Dollar sign]] prefix denotes a Qbasic [[Metacommand]]. Only '''QB64''''s event [[$CHECKING]] should NOT be commented. +* [[Dollar_Sign|$ Dollar sign]] prefix denotes a QBasic [[Metacommand]]. Only '''QB64''''s event [[$CHECKING]] should NOT be commented. * [[Parenthesis|( ) Parenthesis]] enclose a math or conditional procedure order, [[SUB]] or [[FUNCTION]] parameters or to pass by value. * [[+|+ Plus]] [[concatenation]] operator MUST be used to combine literal string values in a variable definition. -* [[Quotation mark|" Quotation mark]] delimits the ends of a literal [[STRING]] value. Use [[CHR$]](34) to insert quotes in a text [[STRING]]. +* [[Quotation mark|" Quotation mark]] delimits the ends of a literal [[STRING]] value. Use [[CHR$]](34) to insert quotes in a text [[STRING]]. * [[REM]] or apostrophe are used to make comments or ignore code or precedes a [[Metacommand]]. * [[Underscore|_ Underscore]] at the end of a code line is used to continue a line of code to the next program line in '''QB64 only'''. -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> :'''Variable Name Type Suffixes''' * [[STRING|$ STRING]] text character type: 1 byte @@ -1186,7 +1110,7 @@ The following table describes the error codes that are reported by the '''QB64'' * [[_BYTE|%% _BYTE]] '''QB64''' [[INTEGER|whole]] numerical type (1 byte) * [[_OFFSET|%& _OFFSET]] '''QB64''' [[INTEGER|whole]] numerical pointer address type (any byte size required) -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> :'''Numerical Base Prefixes''' * [[&B|&B Binary]] base 2 Digits 0 or 1 ['''QB64'''] * [[&O|&O Octal]] base 8 Digits 0 to 7 @@ -1205,47 +1129,34 @@ The following table describes the error codes that are reported by the '''QB64'' :'''[[Relational Operations]]''' * [[Equal|=]] (Equal to condition) -* [[Greater_Than|>]] (Greater than condition) +* [[Greater_Than|>]] (Greater than condition) * [[Less_Than|<]] (Less than condition) -* [[Not_Equal|<>]] (Not equal to condition) -* [[Greater_Than_Or_Equal|>=]] (Greater than or equal to condition) +* [[Not_Equal|<>]] (Not equal to condition) +* [[Greater_Than_Or_Equal|>=]] (Greater than or equal to condition) * [[Less_Than_Or_Equal|<=]] (Less than or equal to condition) -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> -==QB64 Programming References:== +== QB64 Programming References == -<center>'''WIKI Pages''' +<center>'''WIKI Pages''' -[[Keyword Reference - Alphabetical#QB64 specific keywords:|Go to QB64 specific keywords]] +[[Keyword Reference - Alphabetical#QB64 specific keywords:|QB64 specific keywords]] -[[Keyword Reference - Alphabetical#Original QBasic keywords:|Go to Top of Original QB keywords]] +[[Keyword Reference - Alphabetical#Original QBasic keywords:|Original QBasic keywords]] -[[Keyword Reference - Alphabetical|Go to Alphabetical keywords]] +[[Keyword Reference - Alphabetical|Alphabetical keywords]] -[[Main_Page#Appendix:|Main Page with Appendix and Tutorials]] - -[[IDE|How to use the QB64 IDE and Compiler]] +[[Main_Page#Appendix:|Main Page with Appendix and Tutorials]] '''Got a question about something?''' [[QB64 FAQ|Visit the QB64 FAQ]] -[http://www.qb64.net Visit the QB64 Main Site] +[http://www.qb64.org Visit the QB64 Main Site] -[http://www.qb64.net/forum/index.php Visit QB64 Community Forum] +[http://www.qb64.org/forum Visit QB64 Community Forum] -'''Links to other Qbasic Sites:''' - -[http://qbasicstation.com/index.php?c=p_member Member programs at Qbasic Station] - -[http://www.network54.com/Index/10167 Qbasic Forum at Network 54] - -[http://www.petesqbsite.com/forum/ Pete's Qbasic Forum] - -[http://www.petesqbsite.com/downloads/downloads.shtml Pete's Qbasic Downloads]</center> - - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> \ No newline at end of file +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> diff --git a/internal/help/LBOUND.txt b/internal/help/LBOUND.txt index 552643453..4a6a8e388 100644 --- a/internal/help/LBOUND.txt +++ b/internal/help/LBOUND.txt @@ -7,9 +7,9 @@ The [[LBOUND]] function returns the smallest valid index (lower bound) of an arr {{PageDescription}} * {{Parameter|arrayName}} specifies the name of the array. -* {{Parameter|dimension%}} specifies the dimension number, starting with <code>1</code> for the first dimension. -** If omitted, {{Parameter|dimension%}} is assumed to be <code>1</code>. -** If {{Parameter|dimension%}} is less than <code>1</code> or is greater than the number of dimensions, a [[ERROR Codes|subscript out of range]] error occurs. +* {{Parameter|dimension%}} specifies the dimension number, starting with <code>1</code> for the first dimension. +** If omitted, {{Parameter|dimension%}} is assumed to be <code>1</code>. +** If {{Parameter|dimension%}} is less than <code>1</code> or is greater than the number of dimensions, a [[ERROR Codes|subscript out of range]] error occurs. * [[LBOUND]] and [[UBOUND]] are used to determine the range of valid indexes of an array. @@ -30,4 +30,4 @@ The [[LBOUND]] function returns the smallest valid index (lower bound) of an arr * [[DIM]], [[COMMON]], [[STATIC]], [[SHARED]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LCASE$.txt b/internal/help/LCASE$.txt index bde05a74a..35a9416af 100644 --- a/internal/help/LCASE$.txt +++ b/internal/help/LCASE$.txt @@ -1,4 +1,4 @@ -The [[LCASE$]] function outputs an all-lowercase version of a [[STRING]]. +The [[LCASE$]] function returns an all-lowercase version of a [[STRING]]. {{PageSyntax}} @@ -12,11 +12,11 @@ The [[LCASE$]] function outputs an all-lowercase version of a [[STRING]]. {{PageExamples}} ''Example:'' The following code guarantees that all user letter entries will be lower case: -{{CodeStart}}{{Cl|PRINT}} "Do you want to continue? (y/n)" +{{CodeStart}}{{Cl|PRINT}} "Do you want to continue? (y/n)" {{Cl|DO...LOOP|DO}} K$ = {{Cl|LCASE$}}({{Cl|INKEY$}}) -{{Cl|DO...LOOP|LOOP}} {{Cl|DO...LOOP|UNTIL}} K$ = "y" {{Cl|OR}} K$ = "n" +{{Cl|DO...LOOP|LOOP}} {{Cl|DO...LOOP|UNTIL}} K$ = "y" {{Cl|OR}} K$ = "n" {{CodeEnd}} @@ -26,4 +26,4 @@ The [[LCASE$]] function outputs an all-lowercase version of a [[STRING]]. * [[INPUT$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LEFT$.txt b/internal/help/LEFT$.txt index 458d12ebc..5e1996508 100644 --- a/internal/help/LEFT$.txt +++ b/internal/help/LEFT$.txt @@ -5,7 +5,7 @@ The [[LEFT$]] string function returns a number of characters from the left of a : [[LEFT$]]({{Parameter|stringValue$}}, {{Parameter|numberOfCharacters%}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|stringValue$}} can be any [[STRING]] literal or variable. * {{Parameter|numberOfCharacters%}} [[INTEGER]] determines the number of characters to return from left of string. @@ -19,7 +19,7 @@ The [[LEFT$]] string function returns a number of characters from the left of a {{PageExamples}} ''Example 1:'' Getting the left portion of a string value. {{CodeStart}} '' '' -name$ = "Tom Williams" +name$ = "Tom Williams" First$ = LEFT$(name$, 3) @@ -30,10 +30,10 @@ PRINT First$ '' '' ''Example 2:'' A replace function using LEFT$ and [[RIGHT$]] with [[INSTR]] to insert a different length word into an existing string. {{CodeStart}} '' '' -text$ = "This is my sentence to change my words." +text$ = "This is my sentence to change my words." {{Cl|PRINT}} text$ -oldword$ = "my" -newword$ = "your" +oldword$ = "my" +newword$ = "your" x = Replace(text$, oldword$, newword$) {{Cl|IF...THEN|IF}} x {{Cl|THEN}} {{Cl|PRINT}} text$; x @@ -66,4 +66,4 @@ This is your sentence to change your words.{{OutputEnd}} * [[INSTR]], [[LEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LEN.txt b/internal/help/LEN.txt index 846e7fc7d..19d38c021 100644 --- a/internal/help/LEN.txt +++ b/internal/help/LEN.txt @@ -15,9 +15,9 @@ The [[LEN]] function returns the number of bytes used by a variable value and th ** [[_FLOAT]] variable types return 32 bytes. ** [[_OFFSET]] and [[_MEM]] variable types return varying byte sizes. ** ''Note:'' [[_BIT]] variable types and bit multiples '''cannot be measured in bytes'''. -* '''LEN cannot return lengths of literal numerical values and will create a "variable required" status error in the [[IDE]].''' +* '''LEN cannot return lengths of literal numerical values and will create a "variable required" status error in the IDE.''' * '''LEN =''' can be used with a user defined [[TYPE]] variable to determine the number of bytes used in [[RANDOM]] file records: -:::: {{InlineCode}}[[OPEN]] file$ FOR [[RANDOM]] AS #n LEN <nowiki>=</nowiki> LEN(recordTypeVariable){{InlineCodeEnd}}''' +:::: {{InlineCode}}[[OPEN]] file$ FOR [[RANDOM]] AS #n LEN <nowiki>=</nowiki> LEN(recordTypeVariable){{InlineCodeEnd}}''' :* If a LEN = statement is not used, [[RANDOM]] default record length is 128 or sequencial is 512 up to a maximum of 32767 bytes. :* [[BINARY]] OPEN statements will ignore LEN = statements. The byte size of a [[GET|read]] or [[PUT|write]] is determined by the [[Variable Types|variable type]]. @@ -25,8 +25,8 @@ The [[LEN]] function returns the number of bytes used by a variable value and th {{PageExamples}} ''Example 1:'' With a string variable the byte size is the same as the number of characters. {{CodeStart}} -LastName$ = "Williams" -PRINT {{Cl|LEN}}(LastName$); "bytes" '' '' +LastName$ = "Williams" +PRINT {{Cl|LEN}}(LastName$); "bytes" '' '' {{CodeEnd}} {{OutputStart}} 8 bytes {{OutputEnd}} @@ -34,7 +34,7 @@ PRINT {{Cl|LEN}}(LastName$); "bytes" '' '' ''Example 2:'' Testing [[INPUT]] for numerical [[STRING]] entries from a user. {{CodeStart}} '' '' -{{Cl|INPUT}} "number: ", num$ +{{Cl|INPUT}} "number: ", num$ value$ = {{Cl|LTRIM$}}({{Cl|STR$}}({{Cl|VAL}}(num$))) L = {{Cl|LEN}}(value$) @@ -47,17 +47,17 @@ L = {{Cl|LEN}}(value$) ''Example 3:'' With numerical value types you MUST use a variable to find the inherent byte length when using LEN. {{CodeStart}} '' '' DIM I AS INTEGER -PRINT "INTEGER ="; LEN(I); "bytes" +PRINT "INTEGER ="; LEN(I); "bytes" DIM L AS LONG -PRINT "LONG ="; LEN(L); "bytes" +PRINT "LONG ="; LEN(L); "bytes" DIM I64 AS _INTEGER64 -PRINT "_INTEGER64 ="; LEN(I64); "bytes" +PRINT "_INTEGER64 ="; LEN(I64); "bytes" DIM S AS SINGLE -PRINT "SINGLE ="; LEN(S); "bytes" +PRINT "SINGLE ="; LEN(S); "bytes" DIM D AS DOUBLE -PRINT "DOUBLE ="; LEN(D); "bytes" +PRINT "DOUBLE ="; LEN(D); "bytes" DIM F AS _FLOAT -PRINT "_FLOAT ="; LEN(F); "bytes" '' '' +PRINT "_FLOAT ="; LEN(F); "bytes" '' '' {{CodeEnd}} {{OutputStart}}INTEGER = 2 bytes LONG = 4 bytes @@ -78,12 +78,12 @@ _FLOAT = 32 bytes {{Cl|DIM}} record {{Cl|AS}} variabletype {{Cl|DIM}} newrec {{Cl|AS}} variabletype -file$ = "testrand.inf" '<<<< filename may overwrite existing file +file$ = "testrand.inf" '<<<< filename may overwrite existing file number% = 1 '<<<<<<<<<< record number to write cannot be zero RecordLEN% = {{Cl|LEN}}(record) -{{Cl|PRINT}} RecordLEN%; "bytes" +{{Cl|PRINT}} RecordLEN%; "bytes" record.x = 255 -record.y = "Hello world!" +record.y = "Hello world!" record.z = 65535 {{Cl|PRINT}} record.x, record.y, record.z @@ -93,7 +93,7 @@ record.z = 65535 {{Cl|OPEN}} file$ {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #2 {{Cl|LEN}} = RecordLEN% NumRecords% = {{Cl|LOF}}(2) \ RecordLEN% -PRINT NumRecords%; "records" +PRINT NumRecords%; "records" {{Cl|GET}} #2, NumRecords% , newrec 'GET last record available {{Cl|CLOSE}} #2 @@ -117,4 +117,4 @@ PRINT NumRecords%; "records" * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LET.txt b/internal/help/LET.txt index e32bc1f71..88913e4ea 100644 --- a/internal/help/LET.txt +++ b/internal/help/LET.txt @@ -2,14 +2,12 @@ The [[LET]] is a useless statement designed by [[cavemen]] when they started pro {{PageSyntax}} -: '''[LET]''' {{Parameter|variable}} = {{Parameter|expression}} +: ['''LET'''] {{Parameter|variable}} = {{Parameter|expression}} {{PageDescription}} * {{InlineCode}}LET a = 12{{InlineCodeEnd}} is the same as {{InlineCode}}a = 12{{InlineCodeEnd}}, but wastes 4 extra bytes of program space. -* Teachers should be SHOT for even teaching about it! Move on! - -''Notes:'' LET is '''optional''', it's the only keyword where the '''entire keyword''' is optional :-) +* [[LET]] is '''optional''', it's the only keyword where the '''entire keyword''' is optional :-) {{PageSeeAlso}} @@ -17,4 +15,4 @@ The [[LET]] is a useless statement designed by [[cavemen]] when they started pro * [[Variable]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LINE.txt b/internal/help/LINE.txt index 7b42db045..845047b79 100644 --- a/internal/help/LINE.txt +++ b/internal/help/LINE.txt @@ -5,7 +5,7 @@ The [[LINE]] statement is used in graphic [[SCREEN (statement)|SCREEN]] modes to : [[LINE]] [STEP] ['''('''''column1''''',''' ''row1''''')''']'''-'''[STEP] '''('''''column2'', ''row2'''''),''' ''color''[, [{B|BF}], {{Parameter|style%}}] -{{Parameters}} +{{PageParameters}} * The [[STEP]] keyword make ''column'' and ''row'' coordinates relative to the previously coordinates set by any graphic statement. * The optional parameters (''column1'', ''row1'') set the line's starting point. * The dash and second coordinate parameters (''column2'', ''row2'') must be designated to complete the line or box. @@ -55,12 +55,12 @@ The [[LINE]] statement is used in graphic [[SCREEN (statement)|SCREEN]] modes to {{Cl|COLOR}} 15:{{Cl|LOCATE}} 10, 5: {{Cl|PRINT}} i%; {{Cl|LINE}} (10, 60)-(300, 60), 0 'erase previous lines {{Cl|LINE}} (10, 60)-(300, 60), 12, , i% - tmp$ = "" + tmp$ = "" {{Cl|FOR...NEXT|FOR}} b% = 15 {{Cl|TO}} 0 {{Cl|STEP}} -1 'create binary text value showing bits on as {{text|â–ˆ|red}}, off as space {{Cl|IF...THEN|IF}} i% {{Cl|AND}} 2 ^ b% {{Cl|THEN}} tmp$ = tmp$ + {{Cl|CHR$}}(219) {{Cl|ELSE}} tmp$ = tmp$ + {{Cl|SPACE$}}(1) {{Cl|NEXT}} {{Cl|COLOR}} 12:{{Cl|LOCATE}} 10, 20: {{Cl|PRINT}} tmp$; - {{Cl|IF...THEN|IF}} {{Cl|INKEY$}} <> "" {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} 'any key exit + {{Cl|IF...THEN|IF}} {{Cl|INKEY$}} <> "" {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} 'any key exit {{Cl|_DELAY}} .001 'set delay time as required {{Cl|NEXT}} '' '' {{CodeEnd}} @@ -85,4 +85,4 @@ The [[LINE]] statement is used in graphic [[SCREEN (statement)|SCREEN]] modes to * [[AND]], [[OR]] {{text|(logical operators)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LINE_INPUT.txt b/internal/help/LINE_INPUT.txt index 90108ca99..cf27ca588 100644 --- a/internal/help/LINE_INPUT.txt +++ b/internal/help/LINE_INPUT.txt @@ -2,18 +2,18 @@ The [[LINE INPUT]] statement requests a [[STRING]] keyboard entry from a program {{PageSyntax}} -: [[LINE INPUT]] [;] "[text prompt or question]"{,|;} {{Parameter|stringVariable$}} +: [[LINE INPUT]] [;] "[text prompt or question]"{,|;} {{Parameter|stringVariable$}} : [[LINE INPUT]] ; {{Parameter|stringVariable$}} -{{Parameters}} +{{PageParameters}} * A [[semicolon]] immediately after LINE INPUT stops the cursor after the entry and prevents screen roll on the lowest two screen rows. * ''text prompt or question'' is optional, but quotes are necessary unless just a semicolon is used before the {{Parameter|stringVariable$}}. * Requires only one [[STRING|string]] variable to hold the entire text entry. {{PageDescription}} -* Cannot use numerical [[type]] variables or [[comma]] separated variable lists for multiple entries. +* Cannot use numerical [[Variable Types|type]] variables or [[comma]] separated variable lists for multiple entries. * Allows [[comma]]s and [[quotation mark]]s in the user input, unlike [[INPUT]] where commas denote extra input values and quotes delimit strings. * The statement halts the program until an entry is made. Pressing Enter ends the entry and code execution resumes. * LINE INPUT does not trim off leading or trailing spaces in the string entry like [[INPUT]] string returns. @@ -28,12 +28,12 @@ The [[LINE INPUT]] statement requests a [[STRING]] keyboard entry from a program {{Cl|SCREEN}} 12 {{Cl|COLOR}} 14: {{Cl|LOCATE}} 29, 2 ' place dursor at beginning of prompt liine -{{Cl|PRINT}} "Enter a name to search for... "; 'print prompt on screen -{{Cl|COLOR}} 15: {{Cl|LINE INPUT}} {{text|;|red}} "", name$ ' get search name from user +{{Cl|PRINT}} "Enter a name to search for... "; 'print prompt on screen +{{Cl|COLOR}} 15: {{Cl|LINE INPUT}} {{text|;|red}} "", name$ ' get search name from user {{Cl|LOCATE}} 29, 2: {{Cl|PRINT}} {{Cl|SPC}}(78); ' erase previous prompt n$ = {{Cl|UCASE$}}(name$) ' convert search name to upper case {{Cl|COLOR}} 14' change foreground color to yellow -{{Cl|LOCATE}} 29, 2: {{Cl|PRINT}} "Searching..."; 'print message +{{Cl|LOCATE}} 29, 2: {{Cl|PRINT}} "Searching..."; 'print message {{Cl|SLEEP}} {{CodeEnd}} {{OutputStart}}{{text|Enter a name to search for...|#FFFF00}} â–ˆ @@ -49,4 +49,4 @@ n$ = {{Cl|UCASE$}}(name$) ' convert search name to upper case * [[_KEYHIT]], [[_KEYDOWN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LINE_INPUT_(file_statement).txt b/internal/help/LINE_INPUT_(file_statement).txt index 24fe10717..a62e9400f 100644 --- a/internal/help/LINE_INPUT_(file_statement).txt +++ b/internal/help/LINE_INPUT_(file_statement).txt @@ -5,7 +5,7 @@ The '''LINE INPUT #''' file statement reads an entire line from a text file into : '''LINE INPUT''' '''#'''{{Parameter|fileNumber&}}''',''' ''stringVariable$'' -{{Parameters}} +{{PageParameters}} * {{Parameter|fileNumber&}} is the [[INTEGER]] number of the file previously opened with the [[OPEN]] statement. * {{Parameter|stringVariable$}} holds the text line read from the file. @@ -21,7 +21,7 @@ The '''LINE INPUT #''' file statement reads an entire line from a text file into {{PageErrors}} -* '''If an "Input past End of file" error occurs, check for CHR$(26) (end of file character) in the files being read.''' +* '''If an "Input past End of file" error occurs, check for CHR$(26) (end of file character) in the files being read.''' * '''Warning: files must exist to be opened in '''INPUT''' mode. Use [[_FILEEXISTS]] to avoid program [[ERROR Codes|errors]].''' @@ -29,9 +29,9 @@ The '''LINE INPUT #''' file statement reads an entire line from a text file into ''Example:'' Finding the number of filenames listed in a file to dimension an array to hold them. {{CodeStart}} '' '' {{Cl|REDIM}} FileArray$(100) 'create {{Cl|$DYNAMIC|dynamic}} array -{{Cl|SHELL}} {{Cl|_HIDE}} "DIR /B *.* > D0S-DATA.INF" -{{Cl|IF...THEN|IF}} {{Cl|_FILEEXISTS}}("D0S-DATA.INF") THEN - {{Cl|OPEN}} "D0S-DATA.INF" FOR {{Cl|INPUT (file mode)|INPUT}} AS #1 +{{Cl|SHELL}} {{Cl|_HIDE}} "DIR /B *.* > D0S-DATA.INF" +{{Cl|IF...THEN|IF}} {{Cl|_FILEEXISTS}}("D0S-DATA.INF") THEN + {{Cl|OPEN}} "D0S-DATA.INF" FOR {{Cl|INPUT (file mode)|INPUT}} AS #1 DO UNTIL {{Cl|EOF}}(1) {{Cl|LINE INPUT}} #1, file$ 'read entire text file line filecount% = filecount% + 1 @@ -51,4 +51,4 @@ The '''LINE INPUT #''' file statement reads an entire line from a text file into * [[FILELIST$]] (member-contributed function replacement for [[FILES]]) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LOC.txt b/internal/help/LOC.txt index 08dee0830..3c856dec2 100644 --- a/internal/help/LOC.txt +++ b/internal/help/LOC.txt @@ -14,13 +14,13 @@ The [[LOC]] function returns the status of a serial (COM) port received buffer o {{PageExamples}} ''Example:'' Reading and writing from a COM port opened in Basic. {{CodeStart}} '' '' -{{Cl|OPEN}} "{{Cl|OPEN_COM|COM}}1: 9600,N,8,1,OP0" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = 2048 ' random mode = input and output +{{Cl|OPEN}} "{{Cl|OPEN_COM|COM}}1: 9600,N,8,1,OP0" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = 2048 ' random mode = input and output {{Cl|DO}}: t$ = {{Cl|INKEY$}} ' get any transmit keypresses from user {{Cl|IF}} {{Cl|LEN}}(t$) {{Cl|THEN}} {{Cl|PRINT (file statement)|PRINT}} #1, t$ ' send keyboard byte to transmit buffer bytes% = {{Cl|LOC}}(1) ' bytes in buffer - {{Cl|IF}} bytes% {{Cl|THEN}} ' check receive buffer for data" + {{Cl|IF}} bytes% {{Cl|THEN}} ' check receive buffer for data" r$ = {{Cl|INPUT$}}(bytes%, 1) ' get bytes in the receive buffer - {{Cl|PRINT}} r$; ' print byte strings consecutively to screen" + {{Cl|PRINT}} r$; ' print byte strings consecutively to screen" {{Cl|END IF}} {{Cl|LOOP}} {{Cl|UNTIL}} t$ = {{Cl|CHR$}}(27) 'escape key exit {{Cl|CLOSE}} # '' '' @@ -31,4 +31,4 @@ The [[LOC]] function returns the status of a serial (COM) port received buffer o * [[PRINT]], [[OPEN COM]], [[PRINT (file statement)]] * [[SEEK]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LOCATE.txt b/internal/help/LOCATE.txt index a6a7251a6..49022c6ec 100644 --- a/internal/help/LOCATE.txt +++ b/internal/help/LOCATE.txt @@ -5,7 +5,7 @@ The [[LOCATE]] statement locates the screen text row and column positions for a : [[LOCATE]] [{{Parameter|row%}}][, {{Parameter|column%}}] [, {{Parameter|cursor%}}][, {{Parameter|cursorStart%}}, {{Parameter|cursorStop%}}] -{{Parameters}} +{{PageParameters}} * optional text {{Parameter|row%}} [[INTEGER]] values are from 1 to 25, 43 or 50 in [[SCREEN]] 0 and 25 in most other legacy graphic screen modes, except screens 11 and 12 which can have 30 or 60 rows. * optional {{Parameter|column%}} [[INTEGER]] values are from 1 to 40 or 80 in [[SCREEN]] 0 and 80 in all other legacy screen modes. * optional {{Parameter|cursor%}} value can be 0 to turn displaying the cursor off or 1 to turn it on. @@ -20,6 +20,8 @@ The [[LOCATE]] statement locates the screen text row and column positions for a * If only the ''row'' parameter is given, then the column position remains the same. '''Neither ''row'' or ''column'' parameter can be 0.''' * When [[PRINT]]ing on the bottom 2 ''rows'', use a [[semicolon]] after the PRINT expression to avoid a screen roll. * If the {{Parameter|cursorStart%}} line is given, the {{Parameter|cursorStop%}} line must also be given. A wider range between them produces a taller cursor. +* If you use LOCATE beyond the current number of rows in text mode, QB64 will try to adapt the screen instead of tossing an error. +* When writing to the console, only the ''row'' and ''column'' arguments are used, all others are ignored. Furthermore, on non-Windows systems LOCATE statements that do not give both a ''row'' and ''column'' will be ignored entirely. {{PageExamples}} @@ -31,16 +33,16 @@ DO {{Cl|LOCATE}} cry, crx, 1, 0, 8 a$ = {{Cl|INKEY$}} {{Cl|SELECT CASE}} a$ - {{Cl|CASE}} {{Cl|CHR$}}(0) + "H": {{Cl|IF...THEN|IF}} cry > 1 {{Cl|THEN}} cry = cry - 1 'up - {{Cl|CASE}} {{Cl|CHR$}}(0) + "P": {{Cl|IF...THEN|IF}} cry < 25 {{Cl|THEN}} cry = cry + 1 'down - {{Cl|CASE}} {{Cl|CHR$}}(0) + "K": {{Cl|IF...THEN|IF}} crx > 1 {{Cl|THEN}} crx = crx - 1 'left - {{Cl|CASE}} {{Cl|CHR$}}(0) + "M": {{Cl|IF...THEN|IF}} crx < 80 {{Cl|THEN}} crx = crx + 1 'right + {{Cl|CASE}} {{Cl|CHR$}}(0) + "H": {{Cl|IF...THEN|IF}} cry > 1 {{Cl|THEN}} cry = cry - 1 'up + {{Cl|CASE}} {{Cl|CHR$}}(0) + "P": {{Cl|IF...THEN|IF}} cry < 25 {{Cl|THEN}} cry = cry + 1 'down + {{Cl|CASE}} {{Cl|CHR$}}(0) + "K": {{Cl|IF...THEN|IF}} crx > 1 {{Cl|THEN}} crx = crx - 1 'left + {{Cl|CASE}} {{Cl|CHR$}}(0) + "M": {{Cl|IF...THEN|IF}} crx < 80 {{Cl|THEN}} crx = crx + 1 'right {{Cl|CASE}} {{Cl|CHR$}}(27): {{Cl|END}} {{Cl|END SELECT}} LOOP '' '' {{CodeEnd}} -: Explanation: The CHR$(0) + "H", "P", "K", "M" represents the cursor arrow keys. start = 0, stop = 8 is the tallest cursor, experiment with the start and stop values for different effects (start = 8, stop = 8 is the default producing a _ cursor). +: Explanation: The CHR$(0) + "H", "P", "K", "M" represents the cursor arrow keys. start = 0, stop = 8 is the tallest cursor, experiment with the start and stop values for different effects (start = 8, stop = 8 is the default producing a _ cursor). @@ -51,4 +53,4 @@ LOOP '' '' * [[WIDTH]], [[INPUT$]], [[INKEY$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LOCK.txt b/internal/help/LOCK.txt index 872a7cef5..d2b112c1b 100644 --- a/internal/help/LOCK.txt +++ b/internal/help/LOCK.txt @@ -18,7 +18,7 @@ The [[LOCK]] statement restricts access to parts of a file by other programs or * [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword not supported in Linux or macOS versions]] -==QBasic/QuickBasic== +{{PageQBasic}} * Required DOS '''SHARED.EXE''' to be run for QBasic to use networking access modes. No longer required. @@ -28,4 +28,4 @@ The [[LOCK]] statement restricts access to parts of a file by other programs or * [[ACCESS]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LOF.txt b/internal/help/LOF.txt index 9f453f22e..dbf0831e3 100644 --- a/internal/help/LOF.txt +++ b/internal/help/LOF.txt @@ -27,4 +27,4 @@ The [[LOF]] function is used to find the length of an [[OPEN]] file in bytes. * [[LEN]], [[EOF]], [[BINARY]], [[RANDOM]], [[TYPE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LOG.txt b/internal/help/LOG.txt index 4330ecdbb..45a2609d8 100644 --- a/internal/help/LOG.txt +++ b/internal/help/LOG.txt @@ -6,7 +6,7 @@ The [[LOG]] math function returns the natural logarithm of a specified numerical {{PageDescription}} -* {{Parameter|value}} MUST be greater than 0. [[ERROR Codes|"Illegal function call" error]] occurs if negative or zero values are used. +* {{Parameter|value}} MUST be greater than 0. [[ERROR Codes|"Illegal function call" error]] occurs if negative or zero values are used. * The natural logarithm is the logarithm to the base '''e = 2.718282''' (approximately). * The natural logarithm of ''a'' is defined as the integral from 1 to ''a'' of dx/x. * Returns are default [[SINGLE]] precision unless the value parameter uses [[DOUBLE]] precision. @@ -15,9 +15,9 @@ The [[LOG]] math function returns the natural logarithm of a specified numerical {{PageExamples}} ''Example 1:'' [[FUNCTION]] to find the base ten logarithm of a numerical value. {{CodeStart}} - FUNCTION Log10#(value AS DOUBLE) {{Cl|STATIC}} - Log10# = LOG(value) / LOG(10.#) - END FUNCTION '' '' +{{Cl|FUNCTION}} Log10#(value {{Cl|AS}} {{Cl|DOUBLE}}) {{Cl|STATIC}} + Log10# = {{Cl|LOG}}(value) / LOG(10.#) +{{Cl|END FUNCTION}} '' '' {{CodeEnd}} :''Explanation:'' The natural logarithm of the value is divided by the base 10 logarithm. The LOG of ten is designated as a DOUBLE precision return by using # after the Log10 value. The return tells you the number of times 10 goes into a value. @@ -25,21 +25,20 @@ The [[LOG]] math function returns the natural logarithm of a specified numerical ''Example 2:'' A binary FUNCTION to convert [[INTEGER]] values using LOG to find the number of digits the return will be. {{CodeStart}} '' '' -FUNCTION BIN$ (n&) - IF n& < 0 THEN EXIT FUNCTION 'positive numbers only! negative error! - FOR p% = 0 TO INT({{Cl|LOG}}(n& + .1) / {{Cl|LOG}}(2)) ' added +.1 to get 0 to work - IF n& {{Cl|AND}} 2 ^ p% THEN s$ = "1" + s$ ELSE s$ = "0" + s$ 'find bits on - NEXT p% - IF s$ = "" THEN BIN$ = "&B0" ELSE BIN$ = "&B" + s$ 'check for zero return '' '' -END FUNCTION +{{Cl|FUNCTION}} BIN$ (n&) + {{Cl|IF}} n& < 0 {{Cl|THEN}} {{Cl|EXIT FUNCTION}} 'positive numbers only! negative error! + {{Cl|FOR}} p% = 0 {{Cl|TO}} {{Cl|INT}}({{Cl|LOG}}(n& + .1) / {{Cl|LOG}}(2)) 'added +.1 to get 0 to work + {{Cl|IF}} n& {{Cl|AND}} 2 ^ p% {{Cl|THEN}} s$ = "1" + s$ {{Cl|ELSE}} s$ = "0" + s$ 'find bits on + {{Cl|NEXT}} p% + {{Cl|IF}} s$ = "" {{Cl|THEN}} BIN$ = "&B0" {{Cl|ELSE}} BIN$ = "&B" + s$ 'check for zero return '' '' +{{Cl|END FUNCTION}} {{CodeEnd}} -: ''Explanation:'' The LOG of a '''positive''' [[INTEGER]] value is divided by the LOG of 2 to determine the number of binary digits that will be returned. The FOR loop compares the value with the exponents of two and determines if a bit is ON or OFF as "1" or "0". +: ''Explanation:'' The LOG of a '''positive''' [[INTEGER]] value is divided by the LOG of 2 to determine the number of binary digits that will be returned. The FOR loop compares the value with the exponents of two and determines if a bit is ON or OFF as "1" or "0". {{PageSeeAlso}} *[[EXP]], [[&B]] (binary number) -*[http://qb64.net/wiki/index.php?title=Mathematical_Operations#Derived_Mathematical_Functions Derived Trigonometric Functions] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LONG.txt b/internal/help/LONG.txt index 16800aea6..9821d8d17 100644 --- a/internal/help/LONG.txt +++ b/internal/help/LONG.txt @@ -26,4 +26,4 @@ * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LPOS.txt b/internal/help/LPOS.txt index 98d5685c3..9fffa9022 100644 --- a/internal/help/LPOS.txt +++ b/internal/help/LPOS.txt @@ -17,24 +17,24 @@ The [[LPOS]] function returns the current LPT printer head position. {{PageExamples}} :Prompts the user for team names and the names of players on each team. It then prints the players and their teams on the printer. {{CodeStart}}{{Cl|CLS}} -{{Cl|LPRINT}} "Team Members"; {{Cl|TAB}}(76); "TEAM" : {{Cl|LPRINT}} -{{Cl|INPUT}} "How many teams"; TEAMS -{{Cl|INPUT}} "How many players per team";PPT +{{Cl|LPRINT}} "Team Members"; {{Cl|TAB}}(76); "TEAM" : {{Cl|LPRINT}} +{{Cl|INPUT}} "How many teams"; TEAMS +{{Cl|INPUT}} "How many players per team";PPT {{Cl|PRINT}} {{Cl|FOR}} T = 1 TO TEAMS - {{Cl|INPUT}} "Team name: ", TEAM$ + {{Cl|INPUT}} "Team name: ", TEAM$ {{Cl|FOR}} P = 1 TO PPT - {{Cl|INPUT}} " Enter player name: ", PLAYER$ + {{Cl|INPUT}} " Enter player name: ", PLAYER$ {{Cl|LPRINT}} PLAYER$; {{Cl|IF...THEN|IF}} P < PPT {{Cl|THEN}} - {{Cl|IF...THEN|IF}} {{Cl|LPOS}}(0) > 55 {{Cl|THEN}} ' Print a new line if print head past column 55. + {{Cl|IF...THEN|IF}} {{Cl|LPOS}}(0) > 55 {{Cl|THEN}} ' Print a new line if print head past column 55. {{Cl|LPRINT}} : {{Cl|LPRINT}} {{Cl|SPACE$}}(5); {{Cl|ELSE}} - {{Cl|LPRINT}} ", "; 'Otherwise, print a comma. + {{Cl|LPRINT}} ", "; 'Otherwise, print a comma. {{Cl|END}} IF {{Cl|END}} IF {{Cl|NEXT}} P -{{Cl|LPRINT}} {{Cl|STRING$}}(80 - {{Cl|LPOS}}(0) - {{Cl|LEN}}(TEAM$),"."); TEAM$ +{{Cl|LPRINT}} {{Cl|STRING$}}(80 - {{Cl|LPOS}}(0) - {{Cl|LEN}}(TEAM$),"."); TEAM$ {{Cl|NEXT}} T {{CodeEnd}} @@ -43,4 +43,4 @@ The [[LPOS]] function returns the current LPT printer head position. * [[LPRINT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LPRINT.txt b/internal/help/LPRINT.txt index 14a60eb0c..a19d70764 100644 --- a/internal/help/LPRINT.txt +++ b/internal/help/LPRINT.txt @@ -13,6 +13,7 @@ The [[LPRINT]] statement sends string text or numerical values to a parallel por * [[LPRINT USING]] can print formatted text data to a page identically to how [[PRINT USING]] formats a program screen. * [[COLOR]]ed text and images can be printed using [[_PRINTIMAGE]] which stretches them to fit the default printer's paper size. * LPRINT will only print to the default USB or LPT printer set up in Windows. '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]]''' +** To print in Linux, see [[Connecting to printer via TCP/IP]]. * Note: Printer ''escape codes'' starting with [[CHR$]](27) will not work with LPRINT and may produce text printing errors. @@ -23,4 +24,4 @@ The [[LPRINT]] statement sends string text or numerical values to a parallel por * [[Windows Printer Settings]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LPRINT_USING.txt b/internal/help/LPRINT_USING.txt index d3755d8a1..421275f34 100644 --- a/internal/help/LPRINT_USING.txt +++ b/internal/help/LPRINT_USING.txt @@ -5,17 +5,17 @@ The [[LPRINT USING]] statement sends formatted data to LPT1, the parallel port p : '''LPRINT''' [''text$''{;|,}] '''USING''' {{Parameter|template$}}; {{Parameter|variable}}[; ...][{;|,}] -{{Parameters}} +{{PageParameters}} * Literal or variable [[STRING]] ''text$'' can be placed between [[LPRINT]] and USING or it can be included in the {{Parameter|template$}}. * A [[semicolon]] or [[comma]] may follow the {{Parameter|text$}} to stop or tab the print cursor before the {{Parameter|template$}} [[LPRINT]]. -* The literal or variable [[STRING]] {{Parameter|template$}} should use the template symbols to display each variable [[type]] in the list following it. +* The literal or variable [[STRING]] {{Parameter|template$}} should use the template symbols to display each variable [[Variable Types|type]] in the list following it. * The list of data ''variables'' used in the {{Parameter|template$}} are '''separated by semicolons''' after the template string value. * A [[semicolon]] or [[comma]] may follow the variable list to stop or tab the print cursor for pending prints. {{PageDescription}} * The ''variable'' list should be listed in the order that they are used in the template from left to right. -* '''If the ''template'' string is omitted or symbols don't match the ''variable(s)'' an "Illegal Function Call" [[ERROR Codes|ERROR]] will occur.''' +* '''If the ''template'' string is omitted or symbols don't match the ''variable(s)'' an "Illegal Function Call" [[ERROR Codes|ERROR]] will occur.''' * No more than 25 # digit places are allowed in a template number or an [[ERROR Codes|error]] will occur. * Can convert numerical exponential or [[scientific notation]] values to normal decimal point values using less digits. * '''NOTE:''' If the numerical value exceeds the template's digit range a % symbol will appear in the leftmost digit area. @@ -30,4 +30,4 @@ The [[LPRINT USING]] statement sends formatted data to LPT1, the parallel port p * [[PRINT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LSET.txt b/internal/help/LSET.txt index db6847568..2cc4f1e1e 100644 --- a/internal/help/LSET.txt +++ b/internal/help/LSET.txt @@ -15,11 +15,11 @@ ''Example 1:'' Using LSET with a [[FIELD]] definition. Note: May create an empty (unchanged) file that can be deleted. {{CodeStart}} '' '' -{{Cl|OPEN}} "testfile.dat" FOR {{Cl|RANDOM}} AS #1 {{Cl|LEN}} = 15 +{{Cl|OPEN}} "testfile.dat" FOR {{Cl|RANDOM}} AS #1 {{Cl|LEN}} = 15 {{Cl|FIELD}} 1, 6 {{Cl|AS}} a$, 9 {{Cl|AS}} other$ {{Cl|FIELD}} 1, 2 {{Cl|AS}} b$, 13 {{Cl|AS}} another$ -{{Cl|LSET}} a$ = "1234567890" -{{Cl|LSET}} other$ = "1234567890" +{{Cl|LSET}} a$ = "1234567890" +{{Cl|LSET}} other$ = "1234567890" {{Cl|PRINT}} a$, b$, other$, another$ {{Cl|CLOSE}} #1 @@ -41,12 +41,12 @@ head AS {{Cl|STRING}} * 5 {{Cl|END TYPE}} {{Cl|DIM}} me {{Cl|AS}} ninestring, you {{Cl|AS}} fivestring -me.head = "ACHES NOT" +me.head = "ACHES NOT" {{Cl|CLS}} {{Cl|LSET}} you.head = me.head -{{Cl|PRINT}} "me.head: "; me.head -{{Cl|PRINT}} "you.head: "; you.head +{{Cl|PRINT}} "me.head: "; me.head +{{Cl|PRINT}} "you.head: "; you.head {{CodeEnd}} {{OutputStart}} me.head: ACHES NOT @@ -59,4 +59,4 @@ you.head: ACHES * [[FIELD]], [[TYPE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/LTRIM$.txt b/internal/help/LTRIM$.txt index 556087640..d22833b4b 100644 --- a/internal/help/LTRIM$.txt +++ b/internal/help/LTRIM$.txt @@ -17,7 +17,7 @@ The [[LTRIM$]] function removes leading space characters from a [[STRING]] value {{CodeStart}} value = 12345 number$ = {{Cl|LTRIM$}}({{Cl|STR$}}(value)) 'converting number to string removes right PRINT space -{{Cl|PRINT}} "[" + number$ + "]" '' '' +{{Cl|PRINT}} "[" + number$ + "]" '' '' {{CodeEnd}} {{OutputStart}}[12345] {{OutputEnd}} @@ -25,8 +25,8 @@ number$ = {{Cl|LTRIM$}}({{Cl|STR$}}(value)) 'converting number to string removes ''Example 2:'' Trimming leading spaces from text strings. {{CodeStart}} '' '' -{{Cl|PRINT}} {{Cl|LTRIM$}}("some text") -{{Cl|PRINT}} {{Cl|LTRIM$}}(" some text") '' '' +{{Cl|PRINT}} {{Cl|LTRIM$}}("some text") +{{Cl|PRINT}} {{Cl|LTRIM$}}(" some text") '' '' {{CodeEnd}} {{OutputStart}}some text some text @@ -35,7 +35,7 @@ some text ''Example 3:'' A TRIM$ function to trim spaces off of both ends of a string. {{codeStart}} '' '' -text$ = " Text String " +text$ = " Text String " trimmed$ = TRIM$(text$) {{Cl|PRINT}} {{Cl|CHR$}}(26) + trimmed$ + {{Cl|CHR$}}(27) '' '' @@ -53,4 +53,4 @@ TRIM$ = {{Cl|LTRIM$}}({{Cl|RTRIM$}}(text$)) * [[HEX$]], [[MID$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Less_Than.txt b/internal/help/Less_Than.txt index a6ed7946f..2cfb3b63a 100644 --- a/internal/help/Less_Than.txt +++ b/internal/help/Less_Than.txt @@ -1,7 +1,7 @@ The '''<''' condition symbol denotes that a value must be less than another value for the condition to be True. -''Example usage:'' IF x [[Less_Than|<]] 320 THEN PRINT "Left of screen" +''Example usage:'' IF x [[Less_Than|<]] 320 THEN PRINT "Left of screen" * Statements will evaluate as True or -1 when the first value is less or False or 0 when the first value is equal or greater. @@ -11,9 +11,9 @@ The '''<''' condition symbol denotes that a value must be less than another v ''See also:'' * [[Equal|=]] -* [[Not_Equal|<>]] -* [[Greater_Than|>]] +* [[Not_Equal|<>]] +* [[Greater_Than|>]] * [[Relational Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Less_Than_Or_Equal.txt b/internal/help/Less_Than_Or_Equal.txt index 5793e27ae..a18edec24 100644 --- a/internal/help/Less_Than_Or_Equal.txt +++ b/internal/help/Less_Than_Or_Equal.txt @@ -1,15 +1,15 @@ The '''<=''' condition symbol denotes that a value must be less than or equal to another value for the condition to be True. -''Example usage:'' IF x [[Less_Than_Or_Equal|<=]] 320 THEN PRINT "Left or center of screen" +''Example usage:'' IF x [[Less_Than_Or_Equal|<=]] 320 THEN PRINT "Left or center of screen" ''See also:'' * [[Equal|=]] -* [[Not_Equal|<>]] -* [[Greater_Than_Or_Equal|>=]] +* [[Not_Equal|<>]] +* [[Greater_Than_Or_Equal|>=]] * [[Relational Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MID$.txt b/internal/help/MID$.txt index bdca9a7ea..017e5b1a7 100644 --- a/internal/help/MID$.txt +++ b/internal/help/MID$.txt @@ -2,10 +2,10 @@ The [[MID$]] function returns a portion of a [[STRING|string]]. {{PageSyntax}} -: {{Parameter|portion$}} = MID$({{Parameter|stringValue$}}, {{Parameter|startPosition%}}[, {{Parameter|bytes%}}]) +: {{Parameter|portion$}} = [[MID$]]({{Parameter|stringValue$}}, {{Parameter|startPosition%}}[, {{Parameter|bytes%}}]) -{{Parameters}} +{{PageParameters}} * {{Parameter|stringValue$}} can be any literal or variable non-empty [[STRING]] value. Use [[LEN]] to check the length of a string. * {{Parameter|startPosition%}} designates the non-zero position of the first character to be returned by the function. * {{Parameter|bytes%}} (optional) tells the function how many characters to return including the first character at {{Parameter|startPosition%}}. @@ -18,7 +18,7 @@ The [[MID$]] function returns a portion of a [[STRING|string]]. * In '''QB64''', [[ASC]] string byte position reads are about '''5 times faster''' than MID$ when parsing strings. See ''Example 2'' below. -==QBasic/QuickBASIC== +{{PageQBasic}} * In QBasic the {{Parameter|startPosition%}} could not be zero (0) or an [[ERROR Codes|Illegal function call error]] would occur. @@ -30,7 +30,7 @@ The [[MID$]] function returns a portion of a [[STRING|string]]. hour$ = {{Cl|LEFT$}}({{Cl|TIME$}}, 2) minutes$ = {{Cl|MID$}}({{Cl|TIME$}}, 4, 2) ' skip hours and the colon (first 3 characters) -{{Cl|PRINT}} "hour = "; hour$; ": minutes = "; minutes$ '' '' +{{Cl|PRINT}} "hour = "; hour$; ": minutes = "; minutes$ '' '' {{CodeEnd}} {{OutputStart}}11:23:30 hour = 11: minutes = 23 @@ -39,7 +39,7 @@ hour = 11: minutes = 23 ''Example 2:'' Comparing MID$, the '''QB64''' byte position version of [[ASC]] and [[_MEMGET]] speeds parsing string characters: {{CodeStart}} '' '' -{{Cl|_TITLE}} "String Speed Test" +{{Cl|_TITLE}} "String Speed Test" {{Cl|DEFLNG}} A-Z 'First let's build a string for testing. @@ -85,10 +85,10 @@ t5# = {{Cl|TIMER}} 'results -{{Cl|PRINT USING}} "##.###### seconds for MID$"; t2# - t1# -{{Cl|PRINT USING}} "##.###### seconds for ASC"; t3# - t2# -{{Cl|PRINT USING}} "##.###### seconds for _MEMGET String"; t4# - t3# -{{Cl|PRINT USING}} "##.###### seconds for _MEMGET Byte"; t5# - t4# '' '' +{{Cl|PRINT USING}} "##.###### seconds for MID$"; t2# - t1# +{{Cl|PRINT USING}} "##.###### seconds for ASC"; t3# - t2# +{{Cl|PRINT USING}} "##.###### seconds for _MEMGET String"; t4# - t3# +{{Cl|PRINT USING}} "##.###### seconds for _MEMGET Byte"; t5# - t4# '' '' {{CodeEnd}} {{small|Code by Steve McNeill}} {{OutputStart}}6.593750 seconds for MID$ 1.044922 seconds for ASC @@ -106,4 +106,4 @@ t5# = {{Cl|TIMER}} * [[_MEMPUT]], [[_MEMGET]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MID$_(statement).txt b/internal/help/MID$_(statement).txt index e9a827212..06641c0c4 100644 --- a/internal/help/MID$_(statement).txt +++ b/internal/help/MID$_(statement).txt @@ -1,33 +1,34 @@ -The '''MID$''' statement substitutes one or more new characters for existing characters of a previously defined [[STRING]]. +The [[MID$]] statement substitutes one or more new characters for existing characters of a previously defined [[STRING]]. {{PageSyntax}} -:: MID$(''basestring$'', ''start_position%''[, ''bytes%'']) = string_to_add$ +: [[MID$]]({{Parameter|baseString$}}, {{Parameter|startPosition%}}[, {{Parameter|bytes%}}]) = {{Parameter|replacementString$}} - -* The ''basestring'' variable [[STRING]] value must exist and be large enough to contain the ''string_to_add''. -* ''Start position'' specifies the string character position to start the overwrite. Cannot be 0 or an [[ERROR Codes|Illegal function call error]] will occur! -* The ''byte length'' or number of characters is optional. Excess statement string characters or byte lenghts are ignored. -* The string value to be placed in the string should be as long as the byte length reserved. -* The length of the original string is NOT changed in any case! Excess characters will not be in the string value returned. +{{PageDescription}} +* The {{Parameter|baseString$}} variable must exist and be large enough to contain the {{Parameter|replacementString$}}. +* {{Parameter|startPosition%}} specifies the string character position to start the overwrite. +* {{Parameter|bytes%}} or number of characters is optional. Excess byte lenghts are ignored. +* The {{Parameter|replacementString$}} should be as long as the byte length reserved. +* The length of the original string is not changed in any case. If {{Parameter|replacementString$}} is longer, it gets clipped. +{{PageExamples}} ''Example:'' Using [[INSTR]] to locate the string positions and a [[MID$ (statement)|MID$]] statement to change the words. {{CodeStart}} - text$ = "The cats and dogs were playing, even though dogs don't like cats." - PRINT text$ - start% = 1 ' start cannot be 0 when used in the INSTR function! - {{Cl|DO...LOOP|DO}} - position% = {{Cl|INSTR}}(start%, text$, "dog") - IF position% THEN ' when position is a value greater than 0 - {{Cl|MID$}}(text$, position%, 3) = "rat" ' changes "dog" to "rat" when found - start% = position% + 1 ' advance one position to search rest of string - END IF - LOOP UNTIL position% = 0 ' no other matches found - PRINT text$ '' '' +text$ = "The cats and dogs were playing, even though dogs don't like cats." +{{Cl|PRINT}} text$ +start% = 1 ' start cannot be 0 when used in the INSTR function! +{{Cl|DO...LOOP|DO}} + position% = {{Cl|INSTR}}(start%, text$, "dog") + {{Cl|IF}} position% {{Cl|THEN}} ' when position is a value greater than 0 + {{Cl|MID$}}(text$, position%, 3) = "rat" ' change "dog" to "rat" when found + start% = position% + 1 ' advance one position to search rest of string + {{Cl|END IF}} +{{Cl|LOOP}} {{Cl|UNTIL}} position% = 0 ' no other matches found +{{Cl|PRINT}} text$ '' '' {{CodeEnd}} {{OutputStart}} The cats and dogs were playing, even though dogs don't like cats. @@ -35,11 +36,11 @@ The cats and rats were playing, even though rats don't like cats. {{OutputEnd}} -''See also:'' +{{PageSeeAlso}} * [[MID$]] {{text|(function)}} * [[LEFT$]], [[RIGHT$]] * [[INSTR]], [[ASCII]], [[STR$]], [[HEX$]], [[Bitmaps]] (example) * [[MKI$]], [[MKL$]], [[MKS$]], [[MKD$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKD$.txt b/internal/help/MKD$.txt index a1f5ad43d..c4429ec82 100644 --- a/internal/help/MKD$.txt +++ b/internal/help/MKD$.txt @@ -1,19 +1,20 @@ -The '''MKD$''' function converts a [[DOUBLE]] numerical value into an 8 byte [[ASCII]] [[STRING]] value. +The [[MKD$]] function encodes a [[DOUBLE]] numerical value into an 8-byte [[ASCII]] [[STRING]] value. {{PageSyntax}} -:: 8byte_string$ = MKD$(double_value) +: {{Parameter|result$}} = [[MKD$]]({{Parameter|doublePrecisionVariableOrLiteral#}}) -* The double precision number value is converted to eight ASCII characters. To prove this try: PRINT MKD$(12345678). +{{PageDescription}} +* {{Parameter|doublePrecisionVariableOrLiteral#}} is converted to eight ASCII characters. To see this in action, try {{InlineCode}}PRINT MKD$(12345678){{InlineCodeEnd}}. * [[DOUBLE]] values can range up to 15 decimal point digits. Decimal point accuracy depends on whole value places taken. * The string value can be converted back to a DOUBLE numerical value using [[CVD]]. * [[DOUBLE]] numerical variable values [[PUT]] into a [[BINARY]] file are automatically placed as an MKD$ [[ASCII]] string value. -''See also:'' +{{PageSeeAlso}} * [[MKI$]], [[MKS$]], [[MKL$]] -* [[CVI]], [[CVS]], [[CVL]], [[_CV]] +* [[CVD]], [[CVI]], [[CVS]], [[CVL]] +* [[_MK$]], [[_CV]] - -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKDIR.txt b/internal/help/MKDIR.txt index 106a8a75b..cfdb2745a 100644 --- a/internal/help/MKDIR.txt +++ b/internal/help/MKDIR.txt @@ -1,25 +1,24 @@ -The '''MKDIR''' statement creates a new directory at a specified path. - +The [[MKDIR]] statement creates a new folder ('''dir'''ectory) at a specified path. {{PageSyntax}} -:: MKDIR pathspec$ +: [[MKDIR]] pathSpec$ -* The path specification is a literal or variable [[STRING]] expression that also specifies the new folder's name. +{{PageDescription}} +* The path specification (pathSpec$) is a literal or variable [[STRING]] expression that also specifies the new folder's name. * If no path is given the directory will become a sub-directory of the present directory where the program is currently running. -* Qbasic folder names are limited to 8 characters(no spaces) and filenames use the 8.3 naming convention. * '''QB64''' can use both long or short path and file names with spaces when required. * The new folder will be created without a user prompt or verification. -* If a path is specified, the path MUST exist or a [[ERROR Codes|"Path not found" error]] will occur. -* [[SHELL]] can use the DOS command "MD " or "MKDIR " + path$ + newfolder$ to do the same thing. +* If a path is specified, the path must exist or a [[ERROR Codes|"Path not found" error]] will occur. See [[_DIREXISTS]]. +* [[SHELL]] can use the DOS command "MD " or "MKDIR " + path$ + newfolder$ to do the same thing. -''See also:'' +{{PageSeeAlso}} * [[SHELL]], [[CHDIR]], [[FILES]] * [[NAME]], [[KILL]], [[RMDIR]] * [[_DIREXISTS]] * [[Windows_Libraries#File_Dialog_Boxes|Windows Open and Save Dialog Boxes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKDMBF$.txt b/internal/help/MKDMBF$.txt index 8b97a6c6a..e3ba0023c 100644 --- a/internal/help/MKDMBF$.txt +++ b/internal/help/MKDMBF$.txt @@ -1,14 +1,18 @@ -'''MKDMBF$''' converts a double-precision IEEE number to a [[STRING|string]] containing a number in Microsoft Binary format. +The [[MKDMBF$]] function encodes a double-precision IEEE number to a string value in the Microsoft Binary format. {{PageSyntax}} -:: MKDMBF$(double-precision-expression) +: {{Parameter|result$}} = [[MKDMBF$]]({{Parameter|doublePrecisionVariableOrLiteral#}}) +{{PageDescription}} +* Encodes [[DOUBLE]] values to [[STRING|string]] values in Microsoft Binary format. +* The resulting string value can be decoded using [[CVDMBF]]. -''See also:'' + +{{PageSeeAlso}} * [[MKSMBF$]] * [[CVDMBF]], [[CVSMBF]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKI$.txt b/internal/help/MKI$.txt index bc0b18ce7..5a0faed42 100644 --- a/internal/help/MKI$.txt +++ b/internal/help/MKI$.txt @@ -1,22 +1,24 @@ -The '''MKI$''' function converts a numerical [[INTEGER]] value to a 2 byte [[ASCII]] string value. +The [[MKI$]] function encodes an [[INTEGER]] numerical value into a 2-byte [[ASCII]] [[STRING]] value. {{PageSyntax}} -:: two_byte_string$ = MKI$(Integer_value%) +: {{Parameter|result$}} = [[MKI$]]({{Parameter|integerVariableOrLiteral%}}) -* The Integer number value is converted to two ASCII characters. +{{PageDescription}} +* {{Parameter|integerVariableOrLiteral%}} is converted to two ASCII characters. * [[INTEGER]] values can range from -32768 to 32767. * MKI$ string values can be converted back to numerical INTEGER values using [[CVI]]. * The function takes up less byte space in a file than using the text numerical value when the value is over 2 digits. * When a variable value is used with [[PUT]] a numerical value is converted automatically in [[RANDOM]] and [[BINARY]] files. +{{PageExamples}} ''Example:'' How MKI$ creates a two byte string integer value to save file space. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 12 '_PRINTSTRING requires a graphic screen mode DO - {{Cl|COLOR}} 14: {{Cl|LOCATE}} 13, 20: {{Cl|INPUT}} "Enter an Integer from 1 to 32767(0 quits): ", number% + {{Cl|COLOR}} 14: {{Cl|LOCATE}} 13, 20: {{Cl|INPUT}} "Enter an Integer from 1 to 32767(0 quits): ", number% {{Cl|IF...THEN|IF}} number% < 1 {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|CLS}} A$ = {{Cl|CHR$}}(number% {{Cl|MOD}} 256) 'first digit(0 to 255) @@ -24,10 +26,10 @@ DO MKIvalue$ = A$ + B$ Q$ = {{Cl|CHR$}}(34) - strng$ = "{{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}(number% {{Cl|MOD}} 256)) + ") + {{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}(number% \ 256)) + ")" + strng$ = "{{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}(number% {{Cl|MOD}} 256)) + ") + {{Cl|CHR$}}(" + {{Cl|LTRIM$}}({{Cl|STR$}}(number% \ 256)) + ")" {{Cl|COLOR}} 11 - {{Cl|_PRINTSTRING}} (222, 252), {{Cl|STR$}}(number%) + " = " + strng$ - {{Cl|_PRINTSTRING}} (252, 300), "{{Cl|MKI$}} value = " + Q$ + MKIvalue$ + Q$ 'print ASCII characters + {{Cl|_PRINTSTRING}} (222, 252), {{Cl|STR$}}(number%) + " = " + strng$ + {{Cl|_PRINTSTRING}} (252, 300), "{{Cl|MKI$}} value = " + Q$ + MKIvalue$ + Q$ 'print ASCII characters {{Cl|LOOP}} {{Cl|END}} '' '' {{CodeEnd}} @@ -35,10 +37,10 @@ DO :''Explanation:'' INPUT in QB64 limits integer entries to 32767 maximum. MOD 256 finds the part of a value from 0 to 255 while the second value is the number of times that 256 can go into the value. [[_PRINTSTRING]] can print all of the [[ASCII]] characters. -''See also:'' -* [[MKL$]], [[MKS$]], [[MKD$]] -* [[CVI]], [[CVL]], [[CVS]], [[CVD]] -* [[_CV]], [[_MK$]], [[STRING]] +{{PageSeeAlso}} +* [[MKD$]], [[MKS$]], [[MKL$]] +* [[CVD]], [[CVI]], [[CVS]], [[CVL]] +* [[_MK$]], [[_CV]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKL$.txt b/internal/help/MKL$.txt index 23166eb63..1b41aa9f5 100644 --- a/internal/help/MKL$.txt +++ b/internal/help/MKL$.txt @@ -1,28 +1,29 @@ -The '''MKL$''' function converts a numerical value to a [[LONG]] value represented as a 4 byte [[ASCII]] character [[STRING]]. +The [[MKL$]] function encodes a [[LONG]] numerical value into a 4-byte [[ASCII]] [[STRING]] value. {{PageSyntax}} -:: 4byte_string$ = MKL$(long_value&) +: {{Parameter|result$}} = [[MKL$]]({{Parameter|longVariableOrLiteral&}}) -* The long integer number value is converted to four ASCII characters. To prove this try: PRINT MKL$(12345678). -* The numerical data usually uses less bytes than printing the LONG number to a file. -* [[LONG]] Integer values can be from -2147483648 to 2147483647. -* A 10 digit long number can save 6 bytes using MKL$. +{{PageDescription}} +* {{Parameter|longVariableOrLiteral&}} is converted to four ASCII characters. To see this in action, try {{InlineCode}}PRINT MKL$(12345678){{InlineCodeEnd}}. +* The numerical data usually takes up less bytes than printing the [[LONG]] number to a file. +* [[LONG]] integer values can range from -2147483648 to 2147483647. +* Since the representation of a long number can use up to 10 ASCII characters (ten bytes), writing to a file using [[MKL$]] conversion, and then reading back with the [[CVL]] conversion can save up to 6 bytes of storage space. * [[CVL]] can convert the value back to a [[LONG]] numerical value. * [[LONG]] numerical variable values [[PUT]] into a [[BINARY]] file are automatically placed as an MKL$ [[ASCII]] string value. -''See examples:'' +{{PageExamples}} +See examples in: * [[SAVEIMAGE]] * [[SaveIcon32]] -''See also:'' -* [[CVL]], [[CVI]], [[CVS]], [[CVD]] +{{PageSeeAlso}} * [[MKI$]], [[MKS$]], [[MKD$]] -* [[_CV]], [[_MK$]] -* [[Bitmaps]] +* [[CVD]], [[CVI]], [[CVS]], [[CVL]] +* [[_MK$]], [[_CV]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKS$.txt b/internal/help/MKS$.txt index ff1f7ed6f..f365e91d4 100644 --- a/internal/help/MKS$.txt +++ b/internal/help/MKS$.txt @@ -1,20 +1,21 @@ -The '''MKS$''' function converts a [[SINGLE]] numerical value to a 4 byte [[ASCII]] string value. +The [[MKS$]] function encodes a [[SINGLE]] numerical value into a 4-byte [[ASCII]] [[STRING]] value. {{PageSyntax}} -:: 4byte_string$ = MKS$(single_value) +: {{Parameter|result$}} = [[MKS$]]({{Parameter|singlePrecisionVariableOrLiteral#}}) -* The single number value is converted to four ASCII characters. To prove this try: PRINT MKS$(1345678). +{{PageDescription}} +* {{Parameter|singlePrecisionVariableOrLiteral#}} is converted to four ASCII characters. To see this in action, try {{InlineCode}}PRINT MKS$(1345678){{InlineCodeEnd}}. * [[SINGLE]] values can range up to 7 decimal point digits. Decimal point accuracy depends on whole value places taken. -* MKS$ string values can be converted back to SINGLE numerical values using the [[CVS]] function. -* [[SINGLE]] numerical variable values [[PUT]] into a [[BINARY]] file are automatically placed as an MKS$ [[ASCII]] string value. +* [[MKS$]] string values can be converted back to SINGLE numerical values using the [[CVS]] function. +* [[SINGLE]] numerical variable values [[PUT]] into a [[BINARY]] file are automatically placed as an [[MKS$]] [[ASCII]] string value. -''See also:'' -* [[MKI$]], [[MKL$]], [[MKD$]] -* [[CVI]], [[CVL]], [[CVD]], [[_CV]] -* [[_MK$]], [[STRING]] +{{PageSeeAlso}} +* [[MKI$]], [[MKD$]], [[MKL$]] +* [[CVD]], [[CVI]], [[CVS]], [[CVL]] +* [[_MK$]], [[_CV]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MKSMBF$.txt b/internal/help/MKSMBF$.txt index 757a61af4..755cdadad 100644 --- a/internal/help/MKSMBF$.txt +++ b/internal/help/MKSMBF$.txt @@ -1,17 +1,18 @@ -The '''MKSMBF$''' function converts a single-precision IEEE number to a string value in the Microsoft Binary format. +The [[MKSMBF$]] function encodes a single-precision IEEE number to a string value in the Microsoft Binary format. -''Syntax:'' MKDMBF$(single-precision-expression!) +{{PageSyntax}} +: {{Parameter|result$}} = [[MKSMBF$]]({{Parameter|singlePrecisionVariableOrLiteral!}}) -* Converts [[SINGLE]] values to [[STRING|string]] values in Microsoft Binary format. +{{PageDescription}} +* Encodes [[SINGLE]] values to [[STRING|string]] values in Microsoft Binary format. +* The resulting string value can be decoded using [[CVSMBF]]. -''See also:'' - +{{PageSeeAlso}} * [[MKDMBF$]] - * [[CVDMBF]], [[CVSMBF]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/MOD.txt b/internal/help/MOD.txt index d59b435f6..fda1996e2 100644 --- a/internal/help/MOD.txt +++ b/internal/help/MOD.txt @@ -1,29 +1,30 @@ -'''MOD''' is mathematical [[INTEGER]] remainder division. Also called Modulo or Modulus, it works as integer remainder division. +The [[MOD]] operator gives the remainder after division of one number by another (sometimes called modulus). {{PageSyntax}} -:: remainder = ''numerator'' '''MOD''' ''divisor'' +:{{Parameter|remainder}} = {{Parameter|numerator}} [[MOD]] {{Parameter|divisor}} -{{Parameters}} +{{PageParameters}} * Returns the integer division remainder as a whole [[INTEGER]], [[LONG]] or [[_INTEGER64]] value. -* ''numerator'' is the [[INTEGER]] value to divide. -* ''divisor'' is the [[INTEGER]] value to divide by. +* {{Parameter|numerator}} is the [[INTEGER]] value to divide. +* {{Parameter|divisor}} is the [[INTEGER]] value to divide by. -''Usage:'' -* Floating decimal point ''numerator'' and ''divisor'' values are [[CINT]] rounded (e.g. 19 MOD 6.7 returns 5 just like 19 MOD 7 would). -* MOD returns 0 if a number is evenly divisible by Integer division ( [[\]] ) or the number divided is 0. -* '''Divisor (second value) must not be a value of 0 to .5'''. This will create a [[ERROR Codes|"Division by zero" error!]] due to [[CINT]] rounding. -* The result has the same sign as the numerator (e.g. -1 MOD 7 returns -1, not 6). -* Division and multiplication operations are performed before addition and subtraction in Qbasic's order of operations. +{{PageDescription}} +* Floating decimal point ''numerator'' and ''divisor'' values are [[CINT]] rounded (e.g. {{InlineCode}}19 MOD 6.7{{InlineCodeEnd}} returns 5 just like {{InlineCode}}19 MOD 7{{InlineCodeEnd}} would). +* MOD returns 0 if a number is evenly divisible by integer division ( [[\]] ) or the number divided is 0. +* '''{{Parameter|divisor}} (second value) must not be between 0 and .5'''. This will create a [[ERROR Codes|"Division by zero" error]] due to [[CINT]] rounding the value to 0. +* The result has the same sign as the numerator (e.g. {{InlineCode}}-1 MOD 7{{InlineCodeEnd}} returns -1, not 6). +* Division and multiplication operations are performed before addition and subtraction in QBasic's order of operations. +{{PageExamples}} ''Example 1:'' {{CodeStart}} I% = 100 {{Cl|\}} 9 R% = 100 {{Cl|MOD}} 9 - PRINT "Integer division ="; I%, "Remainder ="; R% + {{Cl|PRINT}} "Integer division ="; I%, "Remainder ="; R% {{CodeEnd}} {{OutputStart}} Integer division = 11 Remainder = 1 '' '' @@ -34,34 +35,34 @@ ''Example 2:'' Comparing normal, integer and remainder division. {{CodeStart}} -tmp1$ = " Normal: ####.# / #### = ##.### " -tmp2$ = " Integer: ####.# \ #### = ### " -tmp3$ = " Remainder: ####.# MOD #### = #### " -FOR i = 1 TO 6 - SELECT CASE i - CASE 1: numerator = 1: divisor = 5 - CASE 2: numerator = 13: divisor = 10 - CASE 3: numerator = 990: divisor = 100 - CASE 4: numerator = 1100: divisor = 100 - CASE 5: numerator = 4501: divisor = 1000 - CASE 6: numerator = 50.6: divisor = 10 - END SELECT -LOCATE 5, 20: PRINT USING tmp1$; numerator; divisor; numerator / divisor -LOCATE 7, 20: PRINT USING tmp2$; numerator; divisor; numerator \ divisor -LOCATE 9, 20: PRINT USING tmp3$; numerator; divisor; numerator MOD divisor -DO: SLEEP: LOOP UNTIL INKEY$ <> "" -NEXT '' '' +tmp1$ = " Normal: ####.# / #### = ##.### " +tmp2$ = " Integer: ####.# \ #### = ### " +tmp3$ = " Remainder: ####.# MOD #### = #### " +{{Cl|FOR}} i = 1 {{Cl|TO}} 6 + {{Cl|SELECT CASE}} i + {{Cl|CASE}} 1: numerator = 1: divisor = 5 + {{Cl|CASE}} 2: numerator = 13: divisor = 10 + {{Cl|CASE}} 3: numerator = 990: divisor = 100 + {{Cl|CASE}} 4: numerator = 1100: divisor = 100 + {{Cl|CASE}} 5: numerator = 4501: divisor = 1000 + {{Cl|CASE}} 6: numerator = 50.6: divisor = 10 + {{Cl|END SELECT}} +{{Cl|LOCATE}} 5, 20: {{Cl|PRINT USING}} tmp1$; numerator; divisor; numerator / divisor +{{Cl|LOCATE}} 7, 20: {{Cl|PRINT USING}} tmp2$; numerator; divisor; numerator \ divisor +{{Cl|LOCATE}} 9, 20: {{Cl|PRINT USING}} tmp3$; numerator; divisor; numerator {{Cl|MOD}} divisor +{{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|NEXT}} '' '' {{CodeEnd}} ''Example 3:'' Integer division and MOD can be used to convert values to different base numbering systems from base 2 to 36 as [[STRING|strings]]: {{CodeStart}} '' '' {{Cl|CLS}} -DO - {{Cl|INPUT}} "Enter a base number system 2 to 36: ", b% - {{Cl|IF...THEN|IF}} b% < 2 {{Cl|OR (boolean)|OR}} b% > 36 {{Cl|THEN}} {{Cl|EXIT DO}} - {{Cl|PRINT}} "Enter a positive value to convert: "; - num$ = "" +{{Cl|DO}} + {{Cl|INPUT}} "Enter a base number system 2 to 36: ", b% + {{Cl|IF...THEN|IF}} b% < 2 {{Cl|OR (boolean)|OR}} b% > 36 {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|PRINT}} "Enter a positive value to convert: "; + num$ = "" {{Cl|DO...LOOP|DO}}: K$ = {{Cl|INKEY$}} num$ = num$ + K$ {{Cl|LOCATE}} {{Cl|CSRLIN}}, {{Cl|POS}}(0): {{Cl|PRINT}} K$; @@ -69,18 +70,18 @@ DO n& = {{Cl|VAL}}(num$) {{Cl|IF...THEN|IF}} n& = 0 {{Cl|THEN}} {{Cl|EXIT DO}} Bnum$ = BASEN$(n&, b%) - {{Cl|PRINT}} Bnum$ ', {{Cl|VAL}}("{{Cl|&H}}" + Bnum$) 'tests hexadecimal base 16 only + {{Cl|PRINT}} Bnum$ ', {{Cl|VAL}}("{{Cl|&H}}" + Bnum$) 'tests hexadecimal base 16 only {{Cl|LOOP}} {{Cl|END}} {{Cl|FUNCTION}} BASEN$ (number&, basenum%) -{{Cl|IF...THEN|IF}} basenum% < 2 {{Cl|OR (boolean)|OR}} basenum% > 36 {{Cl|OR (boolean)|OR}} number& = 0 {{Cl|THEN}} {{Cl|EXIT FUNCTION}} +{{Cl|IF...THEN|IF}} basenum% < 2 {{Cl|OR (boolean)|OR}} basenum% > 36 {{Cl|OR (boolean)|OR}} number& = 0 {{Cl|THEN}} {{Cl|EXIT FUNCTION}} num& = number& 'protect value of number! -DO +{{Cl|DO}} remain% = {{Cl|ABS}}(num&) {{Cl|MOD}} basenum% ' remainder is used to create actual digit 0 to Z num& = num& \ basenum% ' move up one exponent of base% with integer division - {{Cl|IF...THEN|IF}} remain% > 9 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} remain% > 9 {{Cl|THEN}} b$ = {{Cl|CHR$}}(65 + (remain% - 10)) 'limited to base 36 {{Cl|ELSE}}: b$ = {{Cl|LTRIM$}}({{Cl|STR$}}(remain%)) ' make remainder a string number {{Cl|END IF}} @@ -92,11 +93,11 @@ BASEN$ = BN$ : ''Note:'' Base numbering systems over base 10(0 - 9) use alphabetical letters to represent digits greater than 9 like [[&H|Hexadecimal]](0 - F). -''See also:'' +{{PageSeeAlso}} * [[/|/ (normal division operator)]] * [[\|\ (integer division operator)]] -* [[INT]], [[CINT]], [[FIX]], [[_ROUND]] +* [[INT]], [[CINT]], [[FIX]], [[_ROUND]], [[_CEIL]] * [[Mathematical Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Mathematical_Operations.txt b/internal/help/Mathematical_Operations.txt index cf8625eb3..b8911bc8d 100644 --- a/internal/help/Mathematical_Operations.txt +++ b/internal/help/Mathematical_Operations.txt @@ -1,9 +1,9 @@ -{| align="center" +{| align="center" | __TOC__ |} ==Basic and QB64 Numerical Types== -<center>'''Qbasic Number Types'''</center> +<center>'''QBasic Number Types'''</center> * [[INTEGER]] ['''%''']: 2 Byte signed whole number values from -32768 to 32767. 0 to 65535 unsigned. (not checked in QB64) * [[LONG]] ['''&''']: 4 byte signed whole number values from -2147483648 to 2147483647. 0 to 4294967295 unsigned. @@ -12,16 +12,16 @@ * To get '''one byte''' values, can use an [[ASCII]] [[STRING]] character to represent values from 0 to 255 as in [[BINARY]] files. -<center>'''QB64 Number Types'''</center> +<center>'''QB64 Number Types'''</center> * [[_BIT]] ['''`''']: 1 bit signed whole number values of 0 or -1 signed or 0 or 1 unsigned. [[_BIT]] * 8 can hold a signed or unsigned [[_BYTE|byte]] value. * [[_BYTE]] ['''%%''']: 1 byte signed whole number values from -128 to 127. Unsigned values from 0 to 255. * [[_INTEGER64]] ['''&&''']: 8 byte signed whole number values from -9223372036854775808 to 9223372036854775807 * [[_FLOAT]] [##]: currently set as 10 byte signed floating decimal point values up to 1.1897E+4932. '''Cannot be unsigned.''' -* [[_OFFSET]] [%&]: undefined flexable length integer offset values used in [[DECLARE DYNAMIC LIBRARY]] declarations. +* [[_OFFSET]] [%&]: undefined flexible length integer offset values used in [[DECLARE DYNAMIC LIBRARY]] declarations. -<center>'''Signed and Unsigned Integer Values'''</center> +<center>'''Signed and Unsigned Integer Values'''</center> Negative (signed) numerical values can affect calculations when using any of the BASIC operators. SQR cannot use negative values! There may be times that a calculation error is made using those negative values. The SGN function returns the sign of a value as -1 for negative, 0 for zero and 1 for unsigned positive values. ABS always returns an unsigned value. @@ -33,59 +33,50 @@ Negative (signed) numerical values can affect calculations when using any of the [[_UNSIGNED]] integer, byte and bit variable values can use the tilde ~ suffix before the type suffix to define the type. -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Mathematical Operation Symbols== -Most of the BASIC math operators are ones that require no introduction. The addition, subtraction, multplication and division operators are ones commonly used as shown below: +Most of the BASIC math operators are ones that require no introduction. The addition, subtraction, multiplication and division operators are ones commonly used as shown below: -{| align="center" border=1 -! Symbol -! Procedure Type -! Example Usage -! Operation Order +{| class="wikitable" +! Symbol !! Procedure Type !! Example Usage !! Operation Order |- -| align="center" |[[+]] ||  Addition || align="center" | c = a + b  || align="center" | Last +| [[+]] || Addition || c = a + b || Last |- -| align="center" |[[-]] ||  Subtraction  || align="center" | c = a - b || align="center" | Last +| [[-]] || Subtraction || c = a - b || Last |- -| align="center" |[[-]] ||  Negation  || align="center" | c = - a || align="center" | Last +| [[-]] || Negation || c = -a || Last |- -| align="center" |[[*]] ||  Multiplication || align="center" | c = a * b || align="center" | Second +| [[*]] || Multiplication || c = a * b || Second |- -| align="center" |[[/]] ||  Division  || align="center" | c = a / b || align="center" | Second +| [[/]] || Division || c = a / b || Second |} BASIC can also use two other operators for '''[[INTEGER]] division'''. Integer division returns only whole number values. [[MOD]] '''remainder division''' returns a value only if an integer division cannot divide a number exactly. Returns 0 if a value is exactly divisible. -{| align="center" border=1 -!Symbol -!Procedure Type -!Example Usage -!Operation Order +{| class="wikitable" +! Symbol !!Procedure Type !!Example Usage !!Operation Order |- -| align="center" |[[\]] ||  Integer division || align="center" | c = a \ b || align="center" | Second +| [[\]] || Integer division || c = a \ b || Second |- -| align="center" |[[MOD]] ||  Remainder division  || align="center" | c = a MOD b || align="center" | Second +| [[MOD]] || Remainder division || c = a MOD b || Second |} -<center>'''''It is an [[ERROR|error]] to divide by zero or to take the remainder modulo zero.'''''</center> +<center>'''''It is an [[ERROR|error]] to divide by zero or to take the remainder modulo zero.'''''</center> There is also an operator for '''exponential''' calculations. The exponential operator is used to raise a number's value to a designated exponent of itself. In QB the exponential return values are [[DOUBLE]] values. The [[SQR]] function can return a number's Square Root. For other '''exponential roots''' the operator can be used with fractions such as (1 / 3) designating the cube root of a number. -{| align="center" border=1 -!Symbol -!Procedure -!Example Usage -!Operation Order +{| class="wikitable" +! Symbol !!Procedure !!Example Usage !!Operation Order |- -| align="center" |[[^]] || Exponent || align="center" | c = a [[^]] (1 / 2) || align="center" | First +| [[^]] || Exponent || c = a ^ (1 / 2) || First |- -| align="center" | [[SQR]] || Square Root || align="center" | c = [[SQR]](a [[^]] 2 + b [[^]] 2) || align="center" | First +| [[SQR]] || Square Root || c = SQR(a ^ 2 + b ^ 2) || First |} @@ -94,7 +85,7 @@ There is also an operator for '''exponential''' calculations. The exponential op * Negative exponential values must be enclosed in () brackets in QB64. -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Basic's Order of Operations== @@ -107,66 +98,68 @@ When a normal calculation is made, BASIC works from left to right, but it does c :::# Addition and Subtraction calculations -<center>'''Using Parenthesis to Define the Operation Order'''</center> +<center>'''Using Parenthesis to Define the Operation Order'''</center> Sometimes a calculation may need BASIC to do them in another order or the calculation will return bad results. BASIC allows the programmer to decide the order of operations by using [[parenthesis]] around parts of the equation. BASIC will do the calculations inside of the [[parenthesis]] brackets first and the others from left to right in the normal operation order. ==Basic's Mathematical Functions== -{| align=center border=1 - ! Function - ! Description - |- - | [[ABS]](n) || returns the absolute (positive) value of n: ABS(-5) = 5 - |- - | [[ATN]](angle*) || returns the arctangent of an angle in radians: Ï€ = 4 * ATN(1) - |- - | [[COS]](angle*) || returns the cosine of an angle in radians. (horizontal component) - |- - | [[EXP]](n) || returns e<sup>x</sup>, '''(n <= 88.02969)''': e = EXP(1) ' (e = 2.718281828459045) - |- - | [[LOG]](n) || returns the base e natural logarithm of n. '''(n > 0)''' - |- - | [[SGN]](n) || returns -1 if n < 0, 0 if n = 0, 1 if n > 0: SGN(-5) = -1 - |- - | [[SIN]](angle*) || returns the sine of an angle in radians. (vertical component) - |- - | [[SQR]](n) || returns the square root of a number. '''(n >= 0)''' - |- - | [[TAN]](angle*) || returns the tangent of an angle in radians - |} +{| class="wikitable" +! Function !! Description +|- +| [[ABS]](n) || returns the absolute (positive) value of n: ABS(-5) = 5 +|- +| [[ATN]](angle*) || returns the arctangent of an angle in radians: pi = 4 * ATN(1) +|- +| [[COS]](angle*) || returns the cosine of an angle in radians. (horizontal component) +|- +| [[EXP]](n) || returns e ^ x, (n <= 88.02969): e = EXP(1) ' (e = 2.718281828459045) +|- +| [[LOG]](n) || returns the base e natural logarithm of n. (n > 0) +|- +| [[SGN]](n) || returns -1 if n < 0, 0 if n = 0, 1 if n > 0: SGN(-5) = -1 +|- +| [[SIN]](angle*) || returns the sine of an angle in radians. (vertical component) +|- +| [[SQR]](n) || returns the square root of a number. (n >= 0) +|- +| [[TAN]](angle*) || returns the tangent of an angle in radians +|} -<center> '''* angles measured in radians'''</center> +<center> '''* angles measured in radians'''</center> -{{TextStart}} '''Degree to Radian Conversion:''' -FUNCTION Radian (degrees) -Radian = degrees * (4 * {{Cb|ATN}}(1)) / 180 -END FUNCTION '' '' +''Example:'' Degree to Radian Conversion. +{{CodeStart}} '' '' +{{Cl|FUNCTION}} Radian (degrees) + Radian = degrees * (4 * {{Cl|ATN}}(1)) / 180 +{{Cl|END FUNCTION}} '' '' -FUNCTION Degree (radians) -Degree = radians * 180 / (4 * {{Cb|ATN}}(1)) -END FUNCTION +{{Cl|FUNCTION}} Degree (radians) + Degree = radians * 180 / (4 * {{Cl|ATN}}(1)) +{{Cl|END FUNCTION}} '' '' +{{CodeEnd}} - '''Logarithm to base n''' -FUNCTION LOGN (X, n) -IF n > 0 AND n <> 1 AND X > 0 THEN LOGN = {{Cb|LOG}}(X) / {{Cb|LOG}}(n) ELSE BEEP -END FUNCTION '' '' +''Example:'' Logarithm to base n. +{{CodeStart}} '' '' +{{Cl|FUNCTION}} LOGN (X, n) + {{Cl|IF}} n > 0 {{Cl|AND}} n <> 1 {{Cl|AND}} X > 0 {{Cl|THEN}} LOGN = {{Cl|LOG}}(X) / {{Cl|LOG}}(n) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' -FUNCTION LOG10 (X) 'base 10 logarithm -IF X > 0 THEN LOG10 = {{Cb|LOG}}(X) / {{Cb|LOG}}(10) ELSE BEEP -END FUNCTION '' '' -{{TextEnd}} +{{Cl|FUNCTION}} LOG10 (X) 'base 10 logarithm + {{Cl|IF}} X > 0 {{Cl|THEN}} LOG10 = {{Cl|LOG}}(X) / {{Cl|LOG}}(10) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' +{{CodeEnd}} -<center>'''The numerical value of n in the [[LOG]](n) evaluation must be a positive value.'''</center> +<center>'''The numerical value of n in the [[LOG]](n) evaluation must be a positive value.'''</center> -<center>'''The numerical value of n in the [[EXP]](n) evaluation must be less than or equal to 88.02969.'''</center> +<center>'''The numerical value of n in the [[EXP]](n) evaluation must be less than or equal to 88.02969.'''</center> -<center>'''The numerical value of n in the [[SQR]](n) evaluation ''cannot'' be a negative value.'''</center> +<center>'''The numerical value of n in the [[SQR]](n) evaluation ''cannot'' be a negative value.'''</center> -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Derived Mathematical Functions== @@ -174,102 +167,107 @@ END FUNCTION '' '' The following Trigonometric functions can be derived from the '''BASIC Mathematical Functions''' listed above. Each function checks that certain values can be used without error or a [[BEEP]] will notify the user that a value could not be returned. An error handling routine can be substituted if desired. '''Note:''' Functions requiring '''Ï€''' use 4 * [[ATN]](1) for [[SINGLE]] accuracy. Use [[ATN]](1.#) for [[DOUBLE]] accuracy. -{{TextStart}}'' '' -FUNCTION SEC (x) 'Secant -IF COS(x) <> 0 THEN SEC = 1 / {{Cb|COS}}(x) ELSE BEEP -END FUNCTION +{{CodeStart}}'' '' +{{Cl|FUNCTION}} SEC (x) 'Secant + {{Cl|IF}} COS(x) <> 0 {{Cl|THEN}} SEC = 1 / {{Cl|COS}}(x) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION CSC (x) 'CoSecant -IF SIN(x) <> 0 THEN CSC = 1 / {{Cb|SIN}}(x) ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} CSC (x) 'CoSecant + {{Cl|IF}} SIN(x) <> 0 {{Cl|THEN}} CSC = 1 / {{Cl|SIN}}(x) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION COT (x) 'CoTangent -IF TAN(x) <> 0 THEN COT = 1 / {{Cb|TAN}}(x) ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} COT (x) 'CoTangent + {{Cl|IF}} TAN(x) <> 0 {{Cl|THEN}} COT = 1 / {{Cl|TAN}}(x) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION ARCSIN (x) 'Inverse Sine -IF x < 1 THEN ARCSIN = {{Cb|ATN}}(x / {{Cb|SQR}}(1 - (x * x))) ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} ARCSIN (x) 'Inverse Sine + {{Cl|IF}} x < 1 {{Cl|THEN}} ARCSIN = {{Cl|ATN}}(x / {{Cl|SQR}}(1 - (x * x))) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION ARCCOS (x) ' Inverse Cosine -IF x < 1 THEN ARCCOS = (2 * ATN(1)) - {{Cb|ATN}}(x / {{Cb|SQR}}(1 - x * x)) ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} ARCCOS (x) ' Inverse Cosine + {{Cl|IF}} x < 1 {{Cl|THEN}} ARCCOS = (2 * {{Cl|ATN}}(1)) - {{Cl|ATN}}(x / {{Cl|SQR}}(1 - x * x)) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION ARCSEC (x) ' Inverse Secant -IF x < 1 THEN ARCSEC = {{Cb|ATN}}(x / {{Cb|SQR}}(1 - x * x)) + ({{Cb|SGN}}(x) - 1) * (2 * ATN(1)) ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} ARCSEC (x) ' Inverse Secant + {{Cl|IF}} x < 1 {{Cl|THEN}} ARCSEC = {{Cl|ATN}}(x / {{Cl|SQR}}(1 - x * x)) + ({{Cl|SGN}}(x) - 1) * (2 * ATN(1)) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION ARCCSC (x) ' Inverse CoSecant -IF x < 1 THEN ARCCSC = ATN(1 / SQR(1 - x * x)) + (SGN(x)-1) * (2 * ATN(1)) ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} ARCCSC (x) ' Inverse CoSecant + {{Cl|IF}} x < 1 {{Cl|THEN}} ARCCSC = {{Cl|ATN}}(1 / {{Cl|SQR}}(1 - x * x)) + ({{Cl|SGN}}(x)-1) * (2 * {{Cl|ATN}}(1)) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION ARCCOT (x) ' Inverse CoTangent -ARCCOT = (2 * {{Cb|ATN}}(1)) - {{Cb|ATN}}(x) -END FUNCTION '' '' +{{Cl|FUNCTION}} ARCCOT (x) ' Inverse CoTangent + ARCCOT = (2 * {{Cl|ATN}}(1)) - {{Cl|ATN}}(x) +{{Cl|END FUNCTION}} '' '' -FUNCTION SINH (x) ' Hyperbolic Sine -IF x <= 88.02969 THEN SINH = ({{Cb|EXP}}(x) - {{Cb|EXP}}(-x)) / 2 ELSE BEEP -END FUNCTION '' '' +{{Cl|FUNCTION}} SINH (x) ' Hyperbolic Sine + {{Cl|IF}} x <= 88.02969 {{Cl|THEN}} SINH = ({{Cl|EXP}}(x) - {{Cl|EXP}}(-x)) / 2 {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' -FUNCTION COSH (x) ' Hyperbolic CoSine -IF x <= 88.02969 THEN COSH = (EXP(x) + EXP(-x)) / 2 ELSE BEEP -END FUNCTION '' '' +{{Cl|FUNCTION}} COSH (x) ' Hyperbolic CoSine + {{Cl|IF}} x <= 88.02969 {{Cl|THEN}} COSH = ({{Cl|EXP}}(x) + {{Cl|EXP}}(-x)) / 2 {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' -FUNCTION TANH (x) ' Hyperbolic Tangent or SINH(x) / COSH(x) -IF 2 * x <= 88.02969 AND EXP(2 * x) + 1 <> 0 THEN - TANH = ({{Cb|EXP}}(2 * x) - 1) / ({{Cb|EXP}}(2 * x) + 1) -ELSE BEEP -END IF -END FUNCTION '' '' +{{Cl|FUNCTION}} TANH (x) ' Hyperbolic Tangent or SINH(x) / COSH(x) + {{Cl|IF}} 2 * x <= 88.02969 {{Cl|AND}} {{Cl|EXP}}(2 * x) + 1 <> 0 {{Cl|THEN}} + TANH = ({{Cl|EXP}}(2 * x) - 1) / ({{Cl|EXP}}(2 * x) + 1) + {{Cl|ELSE}} + {{Cl|BEEP}} + {{Cl|END IF}} +{{Cl|END FUNCTION}} '' '' -FUNCTION SECH (x) ' Hyperbolic Secant or (COSH(x)) ^ -1 -IF x <= 88.02969 AND (EXP(x) + EXP(-x)) <> 0 THEN SECH = 2 / ({{Cb|EXP}}(x) + {{Cb|EXP}}(-x)) ELSE BEEP -END FUNCTION '' '' +{{Cl|FUNCTION}} SECH (x) ' Hyperbolic Secant or (COSH(x)) ^ -1 + {{Cl|IF}} x <= 88.02969 {{Cl|AND}} ({{Cl|EXP}}(x) + {{Cl|EXP}}(-x)) <> 0 {{Cl|THEN}} SECH = 2 / ({{Cl|EXP}}(x) + {{Cl|EXP}}(-x)) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' -FUNCTION CSCH (x) ' Hyperbolic CoSecant or (SINH(x)) ^ -1 -IF x <= 88.02969 AND (EXP(x) - EXP(-x)) <> 0 THEN CSCH = 2 / ({{Cb|EXP}}(x) - {{Cb|EXP}}(-x)) ELSE BEEP -END FUNCTION '' '' +{{Cl|FUNCTION}} CSCH (x) ' Hyperbolic CoSecant or (SINH(x)) ^ -1 + {{Cl|IF}} x <= 88.02969 {{Cl|AND}} ({{Cl|EXP}}(x) - {{Cl|EXP}}(-x)) <> 0 {{Cl|THEN}} CSCH = 2 / ({{Cl|EXP}}(x) - {{Cl|EXP}}(-x)) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' -FUNCTION COTH (x) ' Hyperbolic CoTangent or COSH(x) / SINH(x) -IF 2 * x <= 88.02969 AND EXP(2 * x) - 1 <> 0 THEN - COTH = ({{Cb|EXP}}(2 * x) + 1) / ({{Cb|EXP}}(2 * x) - 1) -ELSE BEEP -END IF -END FUNCTION '' '' +{{Cl|FUNCTION}} COTH (x) ' Hyperbolic CoTangent or COSH(x) / SINH(x) + {{Cl|IF}} 2 * x <= 88.02969 {{Cl|AND}} {{Cl|EXP}}(2 * x) - 1 <> 0 {{Cl|THEN}} + COTH = ({{Cl|EXP}}(2 * x) + 1) / ({{Cl|EXP}}(2 * x) - 1) + {{Cl|ELSE}} + {{Cl|BEEP}} + {{Cl|END IF}} +{{Cl|END FUNCTION}} '' '' -FUNCTION ARCSINH (x) ' Inverse Hyperbolic Sine -IF (x * x) + 1 >= 0 AND x + SQR((x * x) + 1) > 0 THEN -ARCSINH = {{Cb|LOG}}(x + {{Cb|SQR}}(x * x + 1)) -ELSE BEEP -END IF -END FUNCTION '' '' +{{Cl|FUNCTION}} ARCSINH (x) ' Inverse Hyperbolic Sine + {{Cl|IF}} (x * x) + 1 >= 0 {{Cl|AND}} x + {{Cl|SQR}}((x * x) + 1) > 0 {{Cl|THEN}} + ARCSINH = {{Cl|LOG}}(x + {{Cl|SQR}}(x * x + 1)) + {{Cl|ELSE}} + {{Cl|BEEP}} + {{Cl|END IF}} +{{Cl|END FUNCTION}} '' '' -FUNCTION ARCCOSH (x) ' Inverse Hyperbolic CoSine -IF x >= 1 AND x * x - 1 >= 0 AND x + SQR(x * x - 1) > 0 THEN -ARCCOSH = {{Cb|LOG}}(x + {{Cb|SQR}}(x * x - 1)) -ELSE BEEP -END IF -END FUNCTION '' '' +{{Cl|FUNCTION}} ARCCOSH (x) ' Inverse Hyperbolic CoSine + {{Cl|IF}} x >= 1 {{Cl|AND}} x * x - 1 >= 0 {{Cl|AND}} x + {{Cl|SQR}}(x * x - 1) > 0 {{Cl|THEN}} + ARCCOSH = {{Cl|LOG}}(x + {{Cl|SQR}}(x * x - 1)) + {{Cl|ELSE}} + {{Cl|BEEP}} + {{Cl|END IF}} +{{Cl|END FUNCTION}} '' '' -FUNCTION ARCTANH (x) ' Inverse Hyperbolic Tangent -IF x < 1 THEN ARCTANH = {{Cb|LOG}}((1 + x) / (1 - x)) / 2 ELSE BEEP -END FUNCTION +{{Cl|FUNCTION}} ARCTANH (x) ' Inverse Hyperbolic Tangent + {{Cl|IF}} x < 1 {{Cl|THEN}} ARCTANH = {{Cl|LOG}}((1 + x) / (1 - x)) / 2 {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} -FUNCTION ARCSECH (x) ' Inverse Hyperbolic Secant -IF x > 0 AND x <= 1 THEN ARCSECH = {{Cb|LOG}}(({{Cb|SGN}}(x) * {{Cb|SQR}}(1 - x * x) + 1) / x) ELSE BEEP -END FUNCTION '' '' +{{Cl|FUNCTION}} ARCSECH (x) ' Inverse Hyperbolic Secant + {{Cl|IF}} x > 0 {{Cl|AND}} x <= 1 {{Cl|THEN}} ARCSECH = {{Cl|LOG}}(({{Cl|SGN}}(x) * {{Cl|SQR}}(1 - x * x) + 1) / x) {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' -FUNCTION ARCCSCH (x) ' Inverse Hyperbolic CoSecant -IF x <> 0 AND x * x + 1 >= 0 AND (SGN(x) * SQR(x * x + 1) + 1) / x > 0 THEN - ARCCSCH = {{Cb|LOG}}(({{Cb|SGN}}(x) * {{Cb|SQR}}(x * x + 1) + 1) / x) -ELSE BEEP -END IF -END FUNCTION '' '' +{{Cl|FUNCTION}} ARCCSCH (x) ' Inverse Hyperbolic CoSecant + {{Cl|IF}} x <> 0 {{Cl|AND}} x * x + 1 >= 0 {{Cl|AND}} ({{Cl|SGN}}(x) * {{Cl|SQR}}(x * x + 1) + 1) / x > 0 {{Cl|THEN}} + ARCCSCH = {{Cl|LOG}}(({{Cl|SGN}}(x) * {{Cl|SQR}}(x * x + 1) + 1) / x) + {{Cl|ELSE}} + {{Cl|BEEP}} + {{Cl|END IF}} +{{Cl|END FUNCTION}} '' '' -FUNCTION ARCCOTH (x) ' Inverse Hyperbolic CoTangent -IF x > 1 THEN ARCCOTH = {{Cb|LOG}}((x + 1) / (x - 1)) / 2 ELSE BEEP -END FUNCTION '' '' -{{TextEnd}} +{{Cl|FUNCTION}} ARCCOTH (x) ' Inverse Hyperbolic CoTangent + {{Cl|IF}} x > 1 {{Cl|THEN}} ARCCOTH = {{Cl|LOG}}((x + 1) / (x - 1)) / 2 {{Cl|ELSE}} {{Cl|BEEP}} +{{Cl|END FUNCTION}} '' '' +{{CodeEnd}} {{WhiteStart}} '''Hyperbolic Function Relationships:''' @@ -293,25 +291,25 @@ END FUNCTION '' '' {{WhiteEnd}} -<center>[http://support.microsoft.com/kb/28249 Microsoft's Derived BASIC Functions (KB 28249)]</center> +<center>[https://web.archive.org/web/20140417011701/http://support.microsoft.com/kb/28249 Microsoft's Derived BASIC Functions (KB 28249)]</center> -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Mathematical Logical Operators== The following logical operators compare numerical values using bitwise operations. The two numbers are compared by the number's [[Binary]] bits on and the result of the operation determines the value returned in decimal form. [[NOT]] checks one value and returns the opposite. It returns 0 if a value is not 0 and -1 if it is 0. See [[Binary]] for more on bitwise operations. -<center>'''Truth table of the 6 BASIC Logical Operators'''</center> +<center>'''Truth table of the 6 BASIC Logical Operators'''</center> {{Template:LogicalTruthTable}} -<center>BASIC can accept any + or - value that is not 0 to be True when used in an evaluation.</center> +<center>BASIC can accept any + or - value that is not 0 to be True when used in an evaluation.</center> -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Relational Operators== Relational Operations are used to compare values in a Conditional [[IF...THEN]], [[SELECT CASE]], [[UNTIL]] or [[WHILE]] statement. @@ -320,36 +318,34 @@ Relational Operations are used to compare values in a Conditional [[IF...THEN]], {{Template:RelationalTable}} -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Basic's Rounding Functions== -: Rounding is used when the program needs a certain number value or type. There are 4 [[INTEGER]] or [[LONG]] Integer functions and one function each for closest [[SINGLE]] and closest [[DOUBLE]] numerical types. Closest functions use "bankers" rounding which rounds up if the decimal point value is over one half. Variable types should match the return value. +: Rounding is used when the program needs a certain number value or type. There are 4 [[INTEGER]] or [[LONG]] Integer functions and one function each for closest [[SINGLE]] and closest [[DOUBLE]] numerical types. Closest functions use "bankers" rounding which rounds up if the decimal point value is over one half. Variable types should match the return value. -{| align=center border=1 -! Name -! Description +{| class="wikitable" +! Name !! Description |- - |[[INT]](n) || rounds down to lower Integer value whether positive or negative |- |[[FIX]](n) || rounds positive values lower and negative to a less negative Integer value |- |[[CINT]](n) ||rounds to closest Integer. Rounds up for decimal point values over one half. |- -| [[CLNG]](n) || rounds Integer or Long values to closest value like CINT.(values over 32767) +|[[CLNG]](n) || rounds Integer or Long values to closest value like CINT.(values over 32767) |- -| [[CSNG]](n) || rounds Single values to closest last decimal point value. +|[[CSNG]](n) || rounds Single values to closest last decimal point value. |- -| [[CDBL]](n) || rounds Double values to closest last decimal point value. +|[[CDBL]](n) || rounds Double values to closest last decimal point value. |- -| [[_ROUND]] || rounds to closest numerical integer value in '''QB64''' only. +|[[_ROUND]](n) || rounds to closest numerical integer value. |} ===Note=== * Each of the above functions define the value's type in addition to rounding the values. -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Base Number Systems== @@ -376,7 +372,7 @@ Relational Operations are used to compare values in a Conditional [[IF...THEN]], 12 1100 C 14 13 1101 D 15 14 1110 E 16 - 15 ------------- 1111 <--- Match ---> F ---------------- 17 -- max 2 + 15 ------------- 1111 <--- Match ---> F ---------------- 17 -- max 2 16 10000 10 20 When the Decimal value is 15, the other 2 base systems are all maxed out! @@ -399,39 +395,39 @@ Relational Operations are used to compare values in a Conditional [[IF...THEN]], {{TextEnd}} -<center>'''[[VAL]] converts [[STRING|string]] numbers to Decimal values.'''</center> +<center>'''[[VAL]] converts [[STRING|string]] numbers to Decimal values.'''</center> * VAL reads the string from left to right and converts numerical string values, - and . to decimal values until it finds a character other than those 3 characters. Commas are not read. * HEXadecimal and OCTal base values can be read with [[&H]] or [[&O]]. -<center>'''The [[OCT$]] [[STRING|string]] function return can be converted to a decimal value using [[VAL]]("&O" + OCT$(n)).'''</center> +<center>'''The [[OCT$]] [[STRING|string]] function return can be converted to a decimal value using [[VAL]]("&O" + OCT$(n)).'''</center> -<center>'''The [[HEX$]] [[STRING|string]] function return can be converted to a decimal value using [[VAL]]("&H" + HEX$(n)).'''</center> +<center>'''The [[HEX$]] [[STRING|string]] function return can be converted to a decimal value using [[VAL]]("&H" + HEX$(n)).'''</center> :[[STR$]] converts numerical values to string characters for [[PRINT]] or variable strings. It also removes the right number PRINT space. -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==Bits and Bytes== -<center>'''[[_BIT|BITS]]'''</center> +<center>'''[[_BIT|BITS]]'''</center> * The '''MSB''' is the most significant(largest) bit value and '''LSB''' is the least significant bit of a binary or register memory address value. The order in which the bits are read determines the binary or decimal byte value. There are two common ways to read a byte: -:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. -:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. +:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. +:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. {{WhiteStart}} '''Offset or Position: 0 1 2 3 4 5 6 7 Example: 11110000''' ---------------------------------- -------- '''Big-Endian Bit On Value:''' 128 64 32 16 8 4 2 1 240 '''Little-Endian Bit On Value:''' 1 2 4 8 16 32 64 128 15 {{WhiteEnd}} -::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. +::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. -<center>'''[[_BYTE|BYTES]]'''</center> +<center>'''[[_BYTE|BYTES]]'''</center> * [[INTEGER]] values consist of 2 bytes called the '''HI''' and '''LO''' bytes. Anytime that the number of binary digits is a multiple of 16 (2bytes, 4 bytes, etc.) and the HI byte's MSB is on(1), the value returned will be negative, even with [[SINGLE]] or [[DOUBLE]] values. {{WhiteStart}} '''16 BIT INTEGER OR REGISTER''' '''AH (High Byte Bits) AL (Low Byte Bits)''' @@ -449,13 +445,13 @@ Relational Operations are used to compare values in a Conditional [[IF...THEN]], {{Cl|DEFINT}} A-Z {{Cl|SCREEN (statement)|SCREEN}} 12 {{Cl|COLOR}} 11: {{Cl|LOCATE}} 10, 2 - {{Cl|PRINT}} " AH (High Register Byte Bits) AL (Low Register Byte Bits)" + {{Cl|PRINT}} " AH (High Register Byte Bits) AL (Low Register Byte Bits)" {{Cl|COLOR}} 14: {{Cl|LOCATE}} 11, 2 - {{Cl|PRINT}} " 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0" + {{Cl|PRINT}} " 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0" {{Cl|COLOR}} 13: {{Cl|LOCATE}} 14, 2 - {{Cl|PRINT}} " {{Cl|&H}}8000 4000 2000 1000 800 400 200 100 80 40 20 10 8 4 2 {{Cl|&H}}1" + {{Cl|PRINT}} " {{Cl|&H}}8000 4000 2000 1000 800 400 200 100 80 40 20 10 8 4 2 {{Cl|&H}}1" {{Cl|COLOR}} 11: {{Cl|LOCATE}} 15, 2 - {{Cl|PRINT}} "-32768 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1" + {{Cl|PRINT}} "-32768 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1" {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 16 {{Cl|CIRCLE}} (640 - (37 * i), 189), 8, 9 'place bit circles {{Cl|NEXT}} @@ -465,45 +461,45 @@ Relational Operations are used to compare values in a Conditional [[IF...THEN]], {{Cl|FOR...NEXT|FOR}} i = 15 {{Cl|TO}} 0 {{Cl|STEP}} -1 {{Cl|IF}} (Num {{Cl|AND}} 2 ^ i) {{Cl|THEN}} {{Cl|PAINT}} (640 - (37 * (i + 1)), 189), 12, 9 - Bin$ = Bin$ + "1" + Bin$ = Bin$ + "1" {{Cl|ELSE}} {{Cl|PAINT}} (640 - (37 * (i + 1)), 189), 0, 9 - Bin$ = Bin$ + "0" + Bin$ = Bin$ + "0" {{Cl|END IF}} {{Cl|NEXT}} - {{Cl|COLOR}} 10: {{Cl|LOCATE}} 16, 50: {{Cl|PRINT}} "Binary ="; {{Cl|VAL}}(Bin$) - {{Cl|COLOR}} 9: {{Cl|LOCATE}} 16, 10: {{Cl|PRINT}} "Decimal ="; Num;: {{Cl|COLOR}} 13: {{Cl|PRINT}} " Hex = "; Hexa$ - Hexa$ = "": Bin$ = "" + {{Cl|COLOR}} 10: {{Cl|LOCATE}} 16, 50: {{Cl|PRINT}} "Binary ="; {{Cl|VAL}}(Bin$) + {{Cl|COLOR}} 9: {{Cl|LOCATE}} 16, 10: {{Cl|PRINT}} "Decimal ="; Num;: {{Cl|COLOR}} 13: {{Cl|PRINT}} " Hex = "; Hexa$ + Hexa$ = "": Bin$ = "" {{Cl|END IF}} - {{Cl|COLOR}} 14: {{Cl|LOCATE}} 17, 15: {{Cl|INPUT}} "Enter a decimal or HEX({{Cl|&H}}) value (0 Quits): ", frst$ + {{Cl|COLOR}} 14: {{Cl|LOCATE}} 17, 15: {{Cl|INPUT}} "Enter a decimal or HEX({{Cl|&H}}) value (0 Quits): ", frst$ first = {{Cl|VAL}}(frst$) {{Cl|IF}} first {{Cl|THEN}} {{Cl|LOCATE}} 17, 15: {{Cl|PRINT}} {{Cl|SPACE$}}(55) - {{Cl|COLOR}} 13: {{Cl|LOCATE}} 17, 15: {{Cl|INPUT}} "Enter a second value: ", secnd$ + {{Cl|COLOR}} 13: {{Cl|LOCATE}} 17, 15: {{Cl|INPUT}} "Enter a second value: ", secnd$ second = {{Cl|VAL}}(secnd$) {{Cl|LOCATE}} 17, 10: {{Cl|PRINT}} {{Cl|SPACE$}}(69) {{Cl|END IF}} Num = first + second - Hexa$ = "{{Cl|&H}}" + {{Cl|HEX$}}(Num) -{{Cl|LOOP}} {{Cl|UNTIL}} first = 0 {{Cl|OR (boolean)|OR}} Num > 32767 {{Cl|OR (boolean)|OR}} Num < -32767 -{{Cl|COLOR}} 11: {{Cl|LOCATE}} 28, 30: {{Cl|PRINT}} "Press any key to exit!"; + Hexa$ = "{{Cl|&H}}" + {{Cl|HEX$}}(Num) +{{Cl|LOOP}} {{Cl|UNTIL}} first = 0 {{Cl|OR (boolean)|OR}} Num > 32767 {{Cl|OR (boolean)|OR}} Num < -32767 +{{Cl|COLOR}} 11: {{Cl|LOCATE}} 28, 30: {{Cl|PRINT}} "Press any key to exit!"; {{Cl|SLEEP}} {{Cl|SYSTEM}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -<center>[[#toc|Return to Top]]</center> +<center>[[#toc|Return to Top]]</center> ==OFFSET== * [[_OFFSET (function)]] returns the memory offset position as a flexible sized value for a designated variable. See [[Using _OFFSET]]. -<center>'''Warning: [[_OFFSET]] values cannot be reassigned to other variable [[TYPE|types]].'''</center> +<center>'''Warning: [[_OFFSET]] values cannot be reassigned to other variable [[TYPE|types]].'''</center> -<center>'''[[_OFFSET]] values can only be used in conjunction with [[_MEM]]ory and [[DECLARE DYNAMIC LIBRARY]] procedures.'''</center> +<center>'''[[_OFFSET]] values can only be used in conjunction with [[_MEM]]ory and [[DECLARE DYNAMIC LIBRARY]] procedures.'''</center> ==References== ''See also:'' @@ -511,4 +507,4 @@ Relational Operations are used to compare values in a Conditional [[IF...THEN]], * [[DIM]], [[_DEFINE]] * [[TYPE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/NAME.txt b/internal/help/NAME.txt index f45126b7d..f4ebd02bd 100644 --- a/internal/help/NAME.txt +++ b/internal/help/NAME.txt @@ -1,33 +1,30 @@ -The '''NAME''' statement changes the name of a file or directory to a new name. +The [[NAME]] statement changes the name of a file or directory to a new name. {{PageSyntax}} -:: NAME ''old_filename$'' AS ''new_filename$'' +: [[NAME]] {{Parameter|oldFileOrFolderName$}} '''AS''' {{Parameter|newFileOrFolderName$}} {{PageDescription}} -* Filenames are variables or literal [[STRING]]s in quotes. Paths can be included. -* Long filenames can be used in QB64 only! Qbasic requires the DOS 8.3 (folder maximum of 8) naming convention. +* {{Parameter|oldFileOrFolderName$}} and {{Parameter|newFileOrFolderName$}} are variables or literal [[STRING]]s in quotes. Paths can be included. * If the two paths are different, the statement moves the original file to the new path and renames it. * If the path is the same or a path is not included, the original file is just renamed. -* [[SHELL]] can use "REN " + filename$ + " " newname$ in DOS. +* [[SHELL]] can use ''"REN " + filename$ + " " + newname$'' for the same purpose (Windows). * Path or filename [[ERROR Codes|errors]] are possible and should be handled in the program. -* '''CAUTION: There is no prompt to continue or execution verification!''' +* '''Caution: There is no prompt to continue or execution verification.''' {{PageExamples}} - {{CodeStart}} - {{Cl|NAME}} "BIGBAD.TXT" {{Cl|AS}} "BADWOLF.TXT" + {{Cl|NAME}} "BIGBAD.TXT" {{Cl|AS}} "BADWOLF.TXT" {{CodeEnd}} -''See also:'' +{{PageSeeAlso}} * [[SHELL]], [[MKDIR]], [[FILES]] * [[CHDIR]], [[KILL]], [[RMDIR]] -* [[DOS]], [[Batch Files]] * [[Windows_Libraries#File_Dialog_Boxes|Windows Open and Save Dialog Boxes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/NEXT.txt b/internal/help/NEXT.txt index 7b0e4af3e..95afdf2ed 100644 --- a/internal/help/NEXT.txt +++ b/internal/help/NEXT.txt @@ -9,10 +9,10 @@ {{PageDescription}} -* [[NEXT]] is required in a FOR loop or a [[ERROR Codes|"FOR without NEXT" error]] will occur. +* [[NEXT]] is required in a FOR loop or a [[ERROR Codes|"FOR without NEXT" error]] will occur. * The FOR variable name is not required after [[NEXT]]. * [[NEXT]] can be grouped with other NEXTs in nested FOR loops using colons like [[NEXT]]: [[NEXT]] -* [[NEXT]] can also end more than one nested [[FOR...NEXT|FOR]] loop using comma separated variables like [[NEXT]] i, j +* [[NEXT]] can also end more than one nested [[FOR...NEXT|FOR]] loop using comma separated variables like [[NEXT]] j, i * [[NEXT]] increases the FOR loop count, so after the loop is over the counterVariable's value will be stopValue + 1 (or stopValue + increment). * [[NEXT]] is also used with the [[RESUME]] statement. @@ -24,7 +24,7 @@ FOR i = 1 TO 10 PRINT i; NEXT i -PRINT "AFTER the LOOP, NEXT makes the value of i ="; i '' '' +PRINT "AFTER the LOOP, NEXT makes the value of i ="; i '' '' {{CodeEnd}} {{OutputStart}} 1 2 3 4 5 6 7 8 9 10 AFTER the LOOP, NEXT makes the value of i = 11 @@ -38,4 +38,4 @@ PRINT "AFTER the LOOP, NEXT makes the value of i ="; i '' '' * [[RESUME|RESUME NEXT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/NOT.txt b/internal/help/NOT.txt index bba556eba..d5e8a27f4 100644 --- a/internal/help/NOT.txt +++ b/internal/help/NOT.txt @@ -1,14 +1,15 @@ -'''NOT''' is a [[Boolean]] logical operator that will change a False statement to a True one and vise-versa. +[[NOT]] is a [[Boolean|boolean]] logical operator that will change a false statement to a true one and vice-versa. {{PageSyntax}} -:: True = -1: False = '''NOT''' True +: ''True'' = -1: ''False'' = [[NOT]] True -* In Qbasic, True = -1 and False = 0 in boolean logic and evaluation statements. -* NOT evaluates ONE value and returns the opposite. Yes, NOT 0 = -1 in Basic. +{{PageDescription}} +* In QBasic, True = -1 and False = 0 in boolean logic and evaluation statements. +* [[NOT]] evaluates a value and returns the bitwise opposite, meaning that {{InlineCode}}NOT 0 = -1{{InlineCodeEnd}}. * Often called a negative logic operator, it returns the opposite of a value as true or false. -* Values are changed by their bit values so that each bit is changed to the opposite of on or off. See example 3. +* Values are changed by their bit values so that each bit is changed to the opposite of on or off. See example 3 below. {{Template:RelationalTable}} @@ -17,11 +18,12 @@ {{Template:LogicalTruthTable}} +{{PageExamples}} ''Example 1:'' Alternating between two conditions in a program loop. {{CodeStart}}{{Cl|DO}} switch = {{Cl|NOT}} switch '{{Cl|NOT}} changes value from -1 to 0 and vice-versa {{Cl|LOCATE}} 10, 38 -{{Cl|IF}} switch {{Cl|THEN}} {{Cl|PRINT}} "True!" {{Cl|ELSE}} {{Cl|PRINT}} "False" +{{Cl|IF}} switch {{Cl|THEN}} {{Cl|PRINT}} "True!" {{Cl|ELSE}} {{Cl|PRINT}} "False" {{Cl|SLEEP}} k$ = {{Cl|INKEY$}} {{Cl|LOOP}} {{Cl|UNTIL}} k$ = {{Cl|CHR$}}(27) ' escape key quit @@ -44,7 +46,7 @@ ReadBits -6 {{Cl|SUB}} ReadBits (n {{Cl|AS}} {{Cl|INTEGER}}) 'change type value and i bit reads for other whole type values {{Cl|FOR...NEXT|FOR}} i = 15 {{Cl|TO}} 0 {{Cl|STEP}} -1 'see the 16 bit values - {{Cl|IF...THEN|IF}} n {{Cl|AND (boolean)|AND}} 2 ^ i {{Cl|THEN}} {{Cl|PRINT}} "1"; {{Cl|ELSE}} {{Cl|PRINT}} "0"; + {{Cl|IF...THEN|IF}} n {{Cl|AND (boolean)|AND}} 2 ^ i {{Cl|THEN}} {{Cl|PRINT}} "1"; {{Cl|ELSE}} {{Cl|PRINT}} "0"; {{Cl|NEXT}} {{Cl|PRINT}} {{Cl|END SUB}} '' '' @@ -54,7 +56,7 @@ ReadBits -6 0000000000000101 1111111111111010 {{OutputEnd}} -:''Explanation:'' The bit values of an [[INTEGER]] are 2 [[_BYTE]]s and each bit is an exponent of 2 from 15 to 0 (16 bits). Thus comparing the numerical value with those exponents using [[AND]] reveals the bit values as "1" for bits on or "0" for bits off as text. +:''Explanation:'' The bit values of an [[INTEGER]] are 2 [[_BYTE]]s and each bit is an exponent of 2 from 15 to 0 (16 bits). Thus comparing the numerical value with those exponents using [[AND]] reveals the bit values as "1" for bits on or "0" for bits off as text. : QB64 can use [[&B]] to convert the above [[_BIT]] values back to [[INTEGER]] or [[_BYTE]] values as shown below: {{CodeStart}}'16 bit INTEGER values from -32768 to 32767 @@ -70,11 +72,11 @@ b%% = {{Cl|&B}}11111010 {{CodeEnd}} -''See also:'' +{{PageSeeAlso}} * [[_BIT]], [[&B]], [[_BYTE]] * [[AND]], [[XOR]], [[OR]] * [[Binary]], [[Boolean]] * [[Mathematical Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Not_Equal.txt b/internal/help/Not_Equal.txt index fa80d5d5a..5c1b9ec0c 100644 --- a/internal/help/Not_Equal.txt +++ b/internal/help/Not_Equal.txt @@ -1,19 +1,19 @@ -The '''<>''' condition symbol denotes that a value must not equal another value for the condition to be True. +The '''<>''' condition symbol denotes that a value must not equal another value for the condition to be True. -''Example usage:'' IF x [[Not_Equal|<>]] 320 THEN PRINT "Not in center of screen" +''Example usage:'' IF x [[Not_Equal|<>]] 320 THEN PRINT "Not in center of screen" * Statements will evaluate as True or -1 when two values are not equal or False or 0 when equal. -* More than one <> symbol in a numerical statement will create a [[Boolean]] evaluation of the ensuing numerical pairs. +* More than one <> symbol in a numerical statement will create a [[Boolean]] evaluation of the ensuing numerical pairs. ''See also:'' * [[Equal|=]] -* [[Greater_Than|>]] +* [[Greater_Than|>]] * [[Less_Than|<]] * [[Relational Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OCT$.txt b/internal/help/OCT$.txt index a455a680f..4cd5d1d09 100644 --- a/internal/help/OCT$.txt +++ b/internal/help/OCT$.txt @@ -1,32 +1,30 @@ -The {{KW|OCT$}} function returns the base 8 octal representation of an [[INTEGER]], [[LONG]] or [[_INTEGER64]] value as a [[STRING]]. +The [[OCT$]] function returns the base-8 octal representation of an [[INTEGER]], [[LONG]] or [[_INTEGER64]] value as a [[STRING]]. {{PageSyntax}} -:''result$'' = {{KW|OCT$}}({{Parameter|number}}) +: {{Parameter|result$}} = [[OCT$]]({{Parameter|number}}) {{PageDescription}} -* The {{KW|OCT$}} function returns the octal (base-8) representation of {{Parameter|number}}. +* The [[OCT$]] function returns the octal (base-8) representation of {{Parameter|number}}. * {{Parameter|number}} can be any integer value. * No leading space is returned. -* [[VAL]] can convert octal string values to decimal when the "&O" prefix is added. - - -Example:'' Outputs all of the decimal, hexadecimal and octal digits: +* [[VAL]] can convert octal string values to decimal when the "&O" prefix is added. +{{PageExamples}} +''Example:'' Outputs all of the decimal, hexadecimal and octal digits: {{CodeStart}} - -LOCATE 2, 20: PRINT " Decimal | Hexadecimal | Octal " -LOCATE 3, 20: PRINT "---------+-------------+-------" - template$ = " ## | \\ | ## " +LOCATE 2, 20: PRINT " Decimal | Hexadecimal | Octal " +LOCATE 3, 20: PRINT "---------+-------------+-------" + template$ = " ## | \\ | ## " FOR n% = 0 TO 15 LOCATE 4 + n%, 20: {{Cl|PRINT USING}} template$; n%; {{Cl|HEX$}}(n%); VAL({{Cl|OCT$}}(n%)) NEXT n% {{CodeEnd}} -: ''Note:'' The actual Octal value is converted by [[VAL]] directly back to a numerical value by '''not using''' the "&H" prefix. +: ''Note:'' The actual octal value is converted by [[VAL]] directly back to a numerical value by '''not using''' the "&H" prefix. {{OutputStart}} Decimal | Hexadecimal | Octal @@ -56,4 +54,4 @@ NEXT n% * [[Base Comparisons]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OFF.txt b/internal/help/OFF.txt index b9457c7d9..97747d644 100644 --- a/internal/help/OFF.txt +++ b/internal/help/OFF.txt @@ -1,17 +1,14 @@ -'''OFF''' is a flag disabling trap for [[KEY(n)]], [[ON COM (n)|COM(n)]], [[PEN]], [[PLAY]], [[STRIG(n)]], [[TIMER]], [[UEVENT]] +[[OFF]] is a flag that disables event-trappping for [[KEY(n)]], [[STRIG(n)]], [[TIMER]]. -* OFF can be used to turn off the display of soft-key assignments at the bottom of the screen using [[KEY]]. -* OFF can also be used to disable an event trapping in the following statements: [[KEY(n)]], [[ON COM (n)|COM(n)]], [[PEN]], [[PLAY]], [[STRIG(n)]], [[TIMER]], [[UEVENT]]. The trap can be turned back [[ON]], but does not retain any events since '''OFF''' was used. -* [[$CHECKING]]:'''OFF''' is used to disable c++ error trapping, make sure that your code is flawless before using this metacommand, '''can cause a General Protection Fault''' if there are errors in the code. +{{PageDescription}} +* [[OFF]] can be used to turn off the display of soft-key assignments at the bottom of the screen using [[KEY]]. +* [[OFF]] can also be used to disable an event-trapping in the following statements: [[KEY(n)]], [[STRIG(n)]], [[TIMER]]. The trap can be turned back [[ON]], but all events triggered since [[OFF]] was used are lost. +* [[$CHECKING]]:'''OFF''' is used to disable C++ error trapping (used for verified sections of code that require speed). -''See also:'' [[ON]], [[STOP]], [[KEY]], [[KEY(n)]], [[$CHECKING]] +{{PageSeeAlso}} +* [[ON]], [[STOP]], [[KEY]], [[KEY(n)]], [[$CHECKING]] - -==Navigation:== - -[[Keyword_Reference_-_Alphabetical|Go to Keyword Reference - Alphabetical]] - -[[Keyword Reference - By usage|Go to Keyword Reference - By usage]] \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON...GOSUB.txt b/internal/help/ON...GOSUB.txt index 908876a36..435a87eb6 100644 --- a/internal/help/ON...GOSUB.txt +++ b/internal/help/ON...GOSUB.txt @@ -1,35 +1,40 @@ -'''ON...GOSUB''' is a control-flow statement that branches to a line or label in a list depending on a numerical expression. +[[ON...GOSUB]] is a control-flow statement that branches to a line or label in a list depending on a numerical expression. {{PageSyntax}} -:: '''ON''' ''numerical-expression'' '''GOSUB''' ''lineornumber[,lineornumber][,...]'' +: '''ON''' {{Parameter|numericalExpression}} [[GOSUB]] {{Parameter|labelOrNumber}}[,{{Parameter|labelOrNumber}}][,...] -* The ''numerical-expression represents'' the ''line'' or ''label'' that it should branch to, 1 branches to the first line or label, 2 branches to the second, etc. -* In QB 4.5 the list can contain a maximum of 60 line numbers or labels, while QB64 has no limit. -* The procedure must be used after the number value is determined or in a loop to monitor current user events. -* [[RETURN]] returns to the next code statement after the ON...GOSUB statement. [[END]] or [[SYSTEM]] can be used to end program. +{{PageDescription}} +* {{Parameter|numericalExpression}} represents the ''line'' or ''label'' that the program should branch to: 1 branches to the first line or label in the list, 2 branches to the second, etc. +* The procedure must be used after the number value is determined or in a loop to monitor current user events. +* [[RETURN]] returns to the next code statement after the [[ON...GOSUB]] statement. [[END]] or [[SYSTEM]] can be used to end program. * '''Note:''' [[SELECT CASE]] provides a much more convenient way of doing this task. +{{PageQBasic}} +* In QuickBASIC 4.5 the list could contain a maximum of 60 line numbers or labels, while '''QB64''' has no limit. + + +{{PageExamples}} ''Example:'' {{CodeStart}} '' '' {{Cl|CLS}} a = 2 ''ON'' a '''GOSUB''' hello, hereweare, 143 -{{Cl|PRINT}} "Also notice the RETURN statement that can be used with GOSUB!" +{{Cl|PRINT}} "Also notice the RETURN statement that can be used with GOSUB!" {{Cl|END}} hello: -{{Cl|PRINT}} "Hello, with a = 1 you get to see this!" +{{Cl|PRINT}} "Hello, with a = 1 you get to see this!" {{Cl|END}} hereweare: -{{Cl|PRINT}} "with a = 2 here we are...return to line after ON." +{{Cl|PRINT}} "with a = 2 here we are...return to line after ON." {{Cl|RETURN}} 143 -{{Cl|PRINT}} "Line 143, with a = 3 you get to see this!" +{{Cl|PRINT}} "Line 143, with a = 3 you get to see this!" {{Cl|END}} '' '' {{CodeEnd}} {{OutputStart}} @@ -37,13 +42,13 @@ with a = 2 here we are...return to line after ON. Also notice the RETURN statement that can be used with GOSUB! {{OutputEnd}} -:''Explanation:'' Since a equals to 2 it goes to the second item in the list (hereweare) and branches the program to there. Try changing 'a' to 1 or 3! +:''Explanation:'' Since ''a'' equals to 2 it goes to the second item in the list (''hereweare'') and branches the program to there. Try changing 'a' to 1 or 3. -''See also:'' +{{PageSeeAlso}} * [[ON...GOTO]] * [[GOSUB]], [[GOTO]] * [[SELECT CASE]], [[RETURN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON...GOTO.txt b/internal/help/ON...GOTO.txt index 8265e383d..3bc2476a0 100644 --- a/internal/help/ON...GOTO.txt +++ b/internal/help/ON...GOTO.txt @@ -1,15 +1,21 @@ -ON...GOTO is a control-flow statement that branches to a line number or label in a list depending on a numerical expression's value. +[[ON...GOTO]] is a control-flow statement that branches to a line or label in a list depending on a numerical expression. {{PageSyntax}} -:: '''ON''' numerical-expression '''GOTO''' lineornumber[,lineornumber][,...] +: '''ON''' {{Parameter|numericalExpression}} [[GOTO]] {{Parameter|labelOrNumber}}[,{{Parameter|labelOrNumber}}][,...] -* The numerical-expression represents the line or label that it should branch to, 1 branches to the first line or label, 2 branches to the second, etc. -*In QB 4.5 the list can contain a maximum of 60 lines or labels, while there is no limit in QB64. +{{PageDescription}} +* {{Parameter|numericalExpression}} represents the ''line'' or ''label'' that the program should branch to: 1 branches to the first line or label in the list, 2 branches to the second, etc. * The procedure must be used after the number value is determined or in a loop to monitor current user events. +* '''Note:''' [[SELECT CASE]] provides a much more convenient way of doing this task. +{{PageQBasic}} +* In QuickBASIC 4.5 the list could contain a maximum of 60 line numbers or labels, while '''QB64''' has no limit. + + +{{PageExamples}} ''Example:'' Changing the program flow when a value is not 0. {{CodeStart}} '' '' {{Cl|CLS}} @@ -17,28 +23,27 @@ a = 2 {{Cl|ON...GOTO|ON a GOTO}} hello, hereweare, 143 {{Cl|END}} hello: -{{Cl|PRINT}} "you don't get to see this!" +{{Cl|PRINT}} "you don't get to see this!" {{Cl|END}} hereweare: -PRINT "And here we are..." +PRINT "And here we are..." END 143 -PRINT "you don't get to see this neither..." +PRINT "you don't get to see this neither..." END '' '' {{CodeEnd}} {{OutputStart}} And here we are... {{OutputEnd}} -''Explanation:'' Since a equals 2 it goes to the second item in the list (hereweare) and branches to there. Try changing 'a' to 1 or 3! -<center>''Note:'' [[SELECT CASE]] provides a much more convenient way of doing this task.</center> +''Explanation:'' Since ''a'' equals 2 it goes to the second item in the list (hereweare) and branches to there. Try changing ''a' to 1 or 3. -''See also:'' +{{PageSeeAlso}} * [[ON...GOSUB]] * [[GOTO]] * [[GOSUB]] * [[SELECT CASE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON_COM(n).txt b/internal/help/ON_COM(n).txt deleted file mode 100644 index b1d57936b..000000000 --- a/internal/help/ON_COM(n).txt +++ /dev/null @@ -1,29 +0,0 @@ -''This page is maintained for historic purposes. The functionality described below has not been implemented in QB64.'' - ----- - - -ON COM(n) branches to a line number or label when there is a value in the serial port specified. - - - -{{PageSyntax|}} -:{{KW|ON COM(n)}} {{Parameter|GOSUB}} {linenumber|label} - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not implemented in QB64!]]''' -* n can be 1 or 2 and is the number of the serial port that is tested. -* If a value exists in the port then the program branches to the linenumber or label specified. -* The event handler must first be activated with [[COM|COM(n) ON]] - - -{{PageSeeAlso}} - -* [[COM(n)]] -* [[OPEN COM]] -* [[Port Access Libraries]] {{text|(COM or LPT registers)}} -* [[Windows_Libraries#Windows_Ports|Enumerating Windows Ports]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/ON_ERROR.txt b/internal/help/ON_ERROR.txt index 0dedc90c7..aac767601 100644 --- a/internal/help/ON_ERROR.txt +++ b/internal/help/ON_ERROR.txt @@ -1,34 +1,35 @@ -'''ON ERROR''' is used with [[GOTO]] to designate a way to handle a program error. - +[[ON ERROR]] is used with [[GOTO]] to handle errors in a program. {{PageSyntax}} -:: ON ERROR GOTO {linenumber| linelabel} +: [[ON ERROR]] [[GOTO]] {''lineNumber''|''lineLabel''} -* ON ERROR statements can be in the main module code or in [[SUB]] or [[FUNCTION]] procedures. -* ON ERROR statements take precedence in the order they are encountered. It will also handle any subroutine errors! -* Use a [[GOTO]] line label or line number in the main module assigned to clean up or ignore an error. -* '''ON ERROR GOTO 0''' can be used to ignore an error without an error handling procedure. +{{PageDescription}} +* An ''untreated error'' in a program will cause execution to stop and an error message is displayed to the user, who can choose to continue (ignore the error - which could have unexpected results) or end the program. +* Use [[ON ERROR]] when your program performs operations that are likely to generate errors, like file access operations. +* [[ON ERROR]] statements can be in the main module code or in [[SUB]] or [[FUNCTION]] procedures. +* [[ON ERROR]] statements take precedence in the order they are encountered. It will also handle any subroutine errors. +* '''ON ERROR GOTO 0''' can be used to disable custom [[ON ERROR]] trapping and give default error messages. * A subsequent ON ERROR statement will override the previous one. -* [[GOTO]] is required in the statement. Cannot use [[GOSUB]] ! -* Comment out ON ERROR to find specific error locations. QB64 can return the file line position with [[_ERRORLINE]] -* Note: QB64 does NOT support the PDS(QuickBasic 7) ON ERROR RESUME NEXT statement! - +* [[GOTO]] is required in the statement. Cannot use [[GOSUB]]. +* Comment out [[ON ERROR]] to find specific error locations. QB64 can return the file line position with [[_ERRORLINE]] +* Note: QB64 does not support the PDS (QuickBASIC 7) '''ON ERROR RESUME NEXT''' statement. +{{PageExamples}} ''Example 1:'' Using an error handler that ignores any error. {{CodeStart}} '' '' {{Cl|ON ERROR}} {{Cl|GOTO}} Errhandler ' Main module program error simulation code {{Cl|ERROR}} 7 ' simulate an Out of Memory Error - PRINT "Error handled...ending program" + PRINT "Error handled...ending program" {{Cl|SLEEP}} 4 {{Cl|SYSTEM}} ' end of program code Errhandler: 'error handler sub program line label - PRINT "Error"; {{Cl|ERR}}; "on program file line"; {{Cl|_ERRORLINE}} + PRINT "Error"; {{Cl|ERR}}; "on program file line"; {{Cl|_ERRORLINE}} {{Cl|BEEP}} ' warning beep {{Cl|RESUME}} NEXT ' moves program to code following the error. '' '' {{CodeEnd}} @@ -36,34 +37,34 @@ Error 7 on program file line 3 Error handled...ending program {{OutputEnd}} -:''Explanation:'' The ON ERROR statement is normally placed at the beginning of the main module code. Errhandle is the line label sub referred to in the statement. The handler prints the error code and attempts to use the next line of code using [[RESUME]] NEXT which is only used in error handling procedures. [[_ERRORLINE]] returns the program file's actual text line count found in the [[IDE]]. +:''Explanation:'' The ON ERROR statement is normally placed at the beginning of the main module code. Errhandle is the line label sub referred to in the statement. The handler prints the error code and attempts to use the next line of code using [[RESUME]] NEXT which is only used in error handling procedures. [[_ERRORLINE]] returns the program file's actual text line count found in the IDE. ''Example 2:'' Using an error handler in a [[SUB]] procedure. {{CodeStart}} '' '' -{{Cl|DECLARE}} {{Cl|SUB}} s () s {{Cl|END}} hand: -{{Cl|PRINT}} "got error!" +{{Cl|PRINT}} "got error!" {{Cl|RESUME}} {{Cl|NEXT}} {{Cl|SUB}} s {{Cl|ON ERROR}} {{Cl|GOTO}} hand {{Cl|ERROR}} 1 {{Cl|ON ERROR}} {{Cl|GOTO}} 0 -{{Cl|PRINT}} "Done!" +{{Cl|PRINT}} "Done!" {{Cl|END SUB}} '' '' {{CodeEnd}} : ''Explanation:'' The [[GOTO]] procedure must be in the main code area after [[END]] to avoid a [[RESUME]] error later. Use GOTO 0 to clear the ON ERROR set in the sub so that later errors are not handled by it. -''See also:'' +{{PageSeeAlso}} * [[ERR]], [[ERL]], [[RESUME]] -* [[ON...GOTO]], [[_ERRORLINE]] +* [[ON...GOTO]] +* [[_ERRORLINE]], [[_INCLERRORLINE]], [[_INCLERRORFILE$]], [[_ERRORMESSAGE$]] * [[ERROR]] {{text|(simulates an error)}} * [[ERROR Codes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON_KEY(n).txt b/internal/help/ON_KEY(n).txt index 350c8a689..fe98dab5b 100644 --- a/internal/help/ON_KEY(n).txt +++ b/internal/help/ON_KEY(n).txt @@ -1,30 +1,32 @@ -The '''ON KEY(n)''' statement defines a line number or label to go to when a specified key is pressed. QB64 can reference a [[SUB]]. +The [[ON KEY(n)]] statement defines a line number or label to go to (or a [[SUB]] to run) when a specified key is pressed. {{PageSyntax}} -:: ON KEY(n) {{{KW|GOSUB}} {''linelabel''|''linenumber''}|{{KW|SUB}}procedure} +: [[ON KEY(n)]] [[GOSUB]] {{Parameter|linelabel}}|{{Parameter|linenumber}} +: [[ON KEY(n)]] [[SUB]]procedure +{{PageDescription}} * Predefined and user defined KEY event number assignments to use with ON KEY(n): {{WhiteStart}} '''1 to 10'''.............Reserved '''F1 to F10''' function keys only. '''11, 12, 13 and 14'''...Reserved '''Up, Left, Right and Down''' numeric keypad arrows only - '''15 to 29'''............'''user-defined keys''' using value: [[CHR$]](keyflag) + [[CHR$]]([[Keyboard scancodes|scancode]]) + '''15 to 29'''............'''user-defined keys''' using value: [[CHR$]](keyflag) + [[CHR$]]([[Keyboard scancodes|scancode]]) '''30 and 31'''...........Reserved '''F11 and F12''' function keys only. {{WhiteEnd}} * See the [[KEY n]] page for user defined key or key combination presses and F function softkey assignments. -* [[GOSUB]] with a ''linelabel'' or ''linenumber'' or a [[SUB]] procedure can be used in '''QB64'''. Don't use [[CALL]]! - +* [[GOSUB]] with a {{Parameter|linelabel}} or {{Parameter|linenumber}} or a [[SUB]] procedure (without the [[CALL]] keyword) can be triggered in '''QB64'''. +{{PageExamples}} ''Example 1:'' Using ON KEY with [[GOSUB]] to execute code. {{CodeStart}} '' '' {{Cl|KEY(n)|KEY(1) ON}} {{Cl|ON KEY(n)|ON KEY}}(1) {{Cl|GOSUB}} trap -{{Cl|PRINT}} "Press F1 to quit!" +{{Cl|PRINT}} "Press F1 to quit!" {{Cl|DO}}:{{Cl|LOOP}} 'never ending loop trap: -{{Cl|PRINT}} "You pressed F1 like I told you to :)" +{{Cl|PRINT}} "You pressed F1 like I told you to :)" {{Cl|END}} {{Cl|RETURN}} '' '' {{CodeEnd}} @@ -40,22 +42,21 @@ trap: {{Cl|NEXT}} {{Cl|KEY n|KEY}} ON 'displays F1 to F10 soft key assignments at bottom of screen -DO - +{{Cl|DO}} {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) {{Cl|END}} {{Cl|SUB}} Funct (num%) {{Cl|CLS}}' clears the screen and refreshes bottom soft key list -{{Cl|PRINT}} "You pressed F"; {{Cl|LTRIM$}}({{Cl|STR$}}(num%)) +{{Cl|PRINT}} "You pressed F"; {{Cl|LTRIM$}}({{Cl|STR$}}(num%)) {{Cl|END SUB}} '' '' {{CodeEnd}} -''See also:'' +{{PageSeeAlso}} * [[KEY(n)]], [[KEY n]] {{text|(soft key)}} * [[ON...GOSUB]], [[Scancodes]] * [[_KEYHIT]], [[_KEYDOWN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON_PEN.txt b/internal/help/ON_PEN.txt deleted file mode 100644 index 2718ed9d7..000000000 --- a/internal/help/ON_PEN.txt +++ /dev/null @@ -1,26 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -'''ON PEN''' enables event handling for the lightpen. - - -{{PageSyntax}} -:: ON PEN GOSUB labelorline - - -''Description:'' -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* Any activity on the lightpen will cause the program to branch to the specified labelorline. -* [[PEN (statement)|PEN]] [[ON]] enables or resumes event trapping. -* [[PEN (statement)|PEN]] [[OFF]] disables event trapping and event logging. -* [[PEN (statement)|PEN]] [[STOP]] temporarily suspends event trapping. When resumed again by [[PEN (statement)|PEN]] [[ON]]), may report events while suspended. - - -''See also:'' -* [[PEN]] (function), [[PEN (statement)]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/ON_PLAY(n).txt b/internal/help/ON_PLAY(n).txt deleted file mode 100644 index 160331117..000000000 --- a/internal/help/ON_PLAY(n).txt +++ /dev/null @@ -1,23 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -'''ON PLAY (n)''' is a event-trapping statement that specifies the line-number or label to branch to when the background music queue has too few notes. - - -{{PageSyntax}} -:: ON PLAY (''queuelimit'') [[GOSUB]] {''linelabel'' | ''linenumber''} - - -''Description:'' -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* You can use PLAY ON, PLAY OFF and PLAY STOP to resume event-trapping, disable it, or stop it (resumes with PLAY ON). - - -''See also:'' -* [[PLAY]], [[PLAY(n)]], [[ON...GOSUB]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/ON_STRIG(n).txt b/internal/help/ON_STRIG(n).txt index 44df57b56..710e41b6d 100644 --- a/internal/help/ON_STRIG(n).txt +++ b/internal/help/ON_STRIG(n).txt @@ -1,34 +1,35 @@ -The '''ON STRIG(n)''' statement is an event procedure that directs program flow upon the press of a specified joystick button. +The [[ON STRIG(n)]] statement is an event procedure that directs program flow upon the press of a specified joystick button. {{PageSyntax}} -:: ON STRIG(''button_function'') GOSUB {linenumber|linelabel} +: '''ON STRIG'''({{Parameter|buttonFunction}}) [[GOSUB]] {{{Parameter|lineNumber}}|{{Parameter|lineLabel}}} - -QB64 {{PageSyntax}} - -:: ON STRIG(''button_function''[, ''joystick_number'']) {GOSUB {linelabel|linenumber}|sub-procedure} +: '''ON STRIG'''({{Parameter|buttonFunction}}[, {{Parameter|joystickNumber}}]) {[[GOSUB]] {{{Parameter|lineNumber}}|{{Parameter|lineLabel}}} | [[SUB]]procedure} * In '''QB64''' the value can be any button function number with any number of joysticks. See [[STRIG]] and [[STICK]] for parameters. -* In Qbasic, value of ''n'' can be a number from 0 to 3 only as it can only monitor 2 joystick buttons and 2 joysticks. -* There are two ''button functions'' for each button. The even numbered function is always the event of any press since last read. -* The statement sends the procedure to a line number, [[SUB]] or [[GOSUB]] procedure or line number when a button event occurs. +* There are two {{Parameter|buttonFunction}} for each button. The even numbered function is always the event of any press since last read. +* The statement sends the procedure to a line number, line label or [[SUB]] procedure when a button event occurs. +{{PageQBasic}} +* In QBasic, value of ''n'' could only be a number from 0 to 3 only as it could only monitor 2 joystick buttons and 2 joysticks. + + +{{PageExamples}} ''Example 1:'' Reading a STRIG event to do something in a [[GOSUB]] procedure. {{CodeStart}} '' '' {{Cl|ON STRIG(n)|ON STRIG}}(0) {{Cl|GOSUB}} 10 {{Cl|STRIG(n)|STRIG}}(0)ON {{Cl|DO...LOOP|DO}} - {{Cl|PRINT}} "."; + {{Cl|PRINT}} "."; {{Cl|_LIMIT}} 30 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} 10 -a$ = "[STRIG 0 EVENT]" +a$ = "[STRIG 0 EVENT]" {{Cl|FOR...NEXT|FOR}} x = 1 {{Cl|TO}} {{Cl|LEN}}(a$) {{Cl|PRINT}} {{Cl|MID$}}(a$, x, 1); {{Cl|_DELAY}} 0.02 @@ -47,23 +48,26 @@ a$ = "[STRIG 0 EVENT]" {{Cl|STRIG(n)|STRIG}} ON {{Cl|DO...LOOP|DO}} - {{Cl|PRINT}} "."; + {{Cl|PRINT}} "."; {{Cl|_LIMIT}} 30 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} {{Cl|SUB}} JoyButton (js {{Cl|AS}} {{Cl|LONG}}) -{{Cl|PRINT}} "Joystick #"; js \ 256 + 1; "button #"; (js {{Cl|AND (boolean)|AND}} 255) + 1; "pressed!" +{{Cl|PRINT}} "Joystick #"; js \ 256 + 1; "button #"; (js {{Cl|AND (boolean)|AND}} 255) + 1; "pressed!" {{Cl|END SUB}} '' '' {{CodeEnd}} :''Explanation:'' Up to 256 controllers can be used in QB64 with many buttons to read. -''See also:'' +{{PageSeeAlso}} * [[STRIG ]], [[STICK]] {{text|(functions)}} * [[STRIG(n)]] {{text|(statement)}} * [[_DEVICES]], [[_DEVICE$]], [[_LASTBUTTON]] + + +===External links=== * [http://en.wikipedia.org/wiki/Analog_stick Single and Dual Stick Controllers] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON_TIMER(n).txt b/internal/help/ON_TIMER(n).txt index 80827015c..b50094f25 100644 --- a/internal/help/ON_TIMER(n).txt +++ b/internal/help/ON_TIMER(n).txt @@ -1,45 +1,42 @@ -The '''ON TIMER''' statement sets up a timed event to be repeated at specified intervals throughout a program when enabled. +The [[ON_TIMER(n)|ON TIMER]] statement sets up a timed event to be repeated at specified intervals throughout a program when enabled. -''Qbasic'' {{PageSyntax}} -::: ON TIMER(seconds%) GOSUB {linelabel|linenumber} +{{PageSyntax}} +: '''ON TIMER'''({{Parameter|seconds%}}) [[GOSUB]] {{{Parameter|lineLabel}}|{{Parameter|lineNumber}}} +: '''ON TIMER'''([{{Parameter|number%}},] {{Parameter|seconds!}}) { [[SUB]]procedure | [[GOSUB]] {{{Parameter|lineLabel}}|{{Parameter|lineNumber}}} } -''QB64'' {{PageSyntax}} -::: ON TIMER([''number%'',] ''seconds!'') {SubProcedure|GOSUB {''linelabel''|''linenumber''}} +{{PageDescription}} +===Legacy syntax=== +* In the first syntax, the [[INTEGER]] {{Parameter|seconds%}} parameter can be from 1 to 86400 seconds (one day). +* A [[TIMER (statement)|TIMER ON]] statement must follow an '''ON TIMER''' event setup to initiate it. +* [[TIMER (statement)|TIMER STOP]] disables timer events but remembers previous events when enabled again by a [[TIMER (statement)|TIMER ON]] statement, and the recorded events may be executed immediately if a timer event has occurred. +* [[TIMER (statement)|TIMER OFF]] disables timer event trapping. Events will not be remembered in a subsequent [[TIMER (statement)|TIMER ON]] statement. +* '''ON TIMER''' events will interrupt a [[SLEEP]] call and [[RETURN]] to running program procedures. +* Only one TIMER event can be set at a time using this legacy syntax and all TIMER code must be in the main code, as it uses [[GOSUB]]. - -''Description'' -<center> '''QBasic Information''' </center> - -* In Qbasic the [[INTEGER]] ''seconds''' parameter can be from 1 to 86400 seconds(one day). -* A [[TIMER (statement)|TIMER ON]] statement must be made before an ON TIMER event is enabled in QB or QB64. -* [[TIMER (statement)|TIMER STOP]] remembers previous events when enabled by a TIMER ON statement and the ON TIMER statement(s) may be executed immediately if a timer event has occurred. -* [[TIMER (statement)|TIMER OFF]] disables timer event trapping. Events will not be remembered in a subsequent ON TIMER statement. -* ON TIMER events will interrupt a [[SLEEP]] call and [[RETURN]] to running program procedures. -* Qbasic can only use one TIMER event at a time and all TIMER code MUST be in the main code. - - -<center> '''QB64 Specific Information''' </center> -* Can use multiple numbered timer events and [[SINGLE]] floating point second values down to one millisecond(.001). -* '''MUST use the [[_FREETIMER]] function''' to assign free timer numbers. Use specific variables or an array to store the TIMER values. -* If the TIMER number is omitted or ON TIMER(0, seconds!) is used, the TIMER used is the base timer. '''The base TIMER cannot be freed!''' No number reference can also be used to keep QB64 compatible with older Qbasic code. -* [[GOSUB]] or [[SUB]] procedures are allowed to be referenced, however [[CALL]] CANNOT be used. -* '''[[SUB]] parameter values are passed by value and should be [[SHARED]] or literal values!''' -* Specific TIMER events can be turned on, suspended, turned off or freed using [[TIMER (statement)|TIMER(n)]] ON, STOP, OFF or FREE. +===QB64 syntax=== +* '''QB64''' can use multiple numbered timer events and [[SINGLE]] floating point second values down to one millisecond (.001). +* The '''TIMER''' {{Parameter|number%}} must be obtained from the [[_FREETIMER]] function. Store _FREETIMER numbers in a variable or an array to be able to reference them later. +* If the '''TIMER''' number is omitted or {{InlineCode}}'''ON TIMER'''(0, {{Parameter|seconds!}}){{InlineCodeEnd}} is used, then the TIMER used is the ''base TIMER'' (same as in the legacy syntax above). +* [[SUB]] procedures are allowed to be referenced, but [[CALL]] must not be used. +* '''[[SUB]] parameter values are passed by value and should be [[SHARED]] or literal values.''' +* Specific '''TIMER''' events can be turned on, suspended, turned off or freed using [[TIMER (statement)|TIMER(n)]] ON, STOP, OFF or FREE. * Use '''TIMER(n) FREE''' to release a timer event after it has been turned off or is no longer used. +** The ''base TIMER'' cannot be freed. * '''QB64''' allows TIMER statements to also be inside of SUB and FUNCTION procedures. -* Does not currently interrupt [[SLEEP]] or [[_DELAY]] calls. -* [[$CHECKING]]:OFF can disable QB64 event checking. '''Use it ONLY with errorless code that needs every CPU cycle!''' +* '''ON TIMER''' events will interrupt a [[SLEEP]] call and [[RETURN]] to running program procedures. +* [[$CHECKING]]:OFF can disable all QB64 event checking. '''Setting $CHECKING:OFF is only designed for 100% stable, error-less sections of code, where every CPU cycle saved counts.''' -<center>'''QB64 Timing Alternatives'''</center> +==QB64 Timing Alternatives== * The [[TIMER]] function can be used to find timed intervals down to 1 millisecond(.001) accuracy. * The [[_DELAY]] statement can be used to delay program execution for intervals down to milliseconds. * [[_LIMIT]] can slow down loops to a specified number of frames per second. This can also alleviate a program's CPU usage. +{{PageExamples}} ''Example:'' Using a numbered TIMER to check the mouse button press status in '''QB64'''. {{CodeStart}} '' '' {{Cl|DIM}} {{Cl|SHARED}} Button {{Cl|AS}} {{Cl|LONG}} 'share variable value with Sub @@ -51,7 +48,7 @@ t1 = _{{Cl|TIMER (statement)|FREE}}{{Cl|TIMER}} 'get a timer number DO {{Cl|LOCATE}} 1, 1 {{Cl|IF...THEN|IF}} Button {{Cl|THEN}} - {{Cl|PRINT}} "Mouse button"; Button; "is pressed."; + {{Cl|PRINT}} "Mouse button"; Button; "is pressed."; {{Cl|ELSE}} {{Cl|PRINT}} {{Cl|SPACE$}}(70) {{Cl|END IF}} {{Cl|_DISPLAY}} @@ -76,7 +73,7 @@ DO {{PageSeeAlso}} * [[TIMER]], [[_FREETIMER]] * [[TIMER (statement)]], [[_DELAY]], [[_LIMIT]] -* [[$CHECKING]] {{text|(QB64 C++ [[Metacommand]])}} +* [[$CHECKING]] {{text|(QB64 [[Metacommand]])}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/ON_UEVENT.txt b/internal/help/ON_UEVENT.txt deleted file mode 100644 index 48dde2527..000000000 --- a/internal/help/ON_UEVENT.txt +++ /dev/null @@ -1,67 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The '''ON UEVENT''' statement allows a program to use a user defined event procedure. - - - -{{PageSyntax}} -:: ON UEVENT GOSUB {linenumber | linelabel} - - -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]] NOTE: UEVENT procedures were only available in QuickBasic or PDS.''' -* Any language(including assembly) compiler that can create interrupt service routines and uses code that can be linked with QuickBasic may be used. -* Linenumber or linelabel argument is the line number or label of a [[GOSUB]] routine. -* Allows your program to go to an event-handling routine when a user-defined event(often a hardware interrupt) occurs. -* Once events have been defined with an ON event statement, they act like interrupts. -* When [[UEVENT]] ON has been executed, the user-defined event can send the program to a GOSUB routine. -* At least two or three code procedures are needed to set up the user-defined event. - -:# The first is the interrupt service routine using '''SetUEvent'''. -:# The second is a routine to insert the address of the service routine into the interrupt vector table.(optional) -:# The third is the GOSUB routine your program calls to retrieve the data or do another procedure. - -* If the initialization routine "steals" an interrupt used by another service routine, the original address MUST be restored before the program terminates. - -* Steps in creating a user-defined event: - -:# Write an event-handling routine using [[CALL]] '''SetUEvent''' and add it to your program. -:# Use the ON UEVENT GOSUB statement to specify the user-defined event procedure. -:# Use the UEVENT ON statement to enable event trapping. -:# Call the interrupt-initialization routine to insert the address of the service routine into the interrupt vector table. - -* When the specified interrupt occurs, the execution is transferred to the interrupt service routine. The service routine collects and stores the data the user wants. It then calls '''SetUEvent'''. SetUEvent sets a flag checked by QuickBasic before going to the next code statement(or label if using BC.EXE compiler option /W instead of /V ). When the flag is set, control transfers to the event-handling routine in ON EVENT GOSUB. - -* The '''SetUEvent''' procedure is a part of QuickBasic, and is included in compiled programs or when the QuickBasic IDE is run with the /L command-line option. Your interrupt service routine must [[CALL]] SetUEvent. - -* If you want to return a value, you must write a procedure for your program to call. (It would usually be called by your event-handling routine.) The function MUST be [[DECLARE]]d! - -* Although ON UEVENT GOSUB ties an event-handling routine to a user-defined event, it does not enable the event trap. The [[UEVENT]] statement is used to enable, disable, and suspend user-defined event trapping. - -<center>(C) Microsoft Corporation 1988</center> - - -''Example:'' A simple user defined event. -{{CodeStart}} '' '' -{{Cl|ON UEVENT}} {{Cl|GOSUB}} Twenty ' set the procedure to enable -{{Cl|UEVENT}} ON ' turn on event handling -{{Cl|INPUT}} "Enter a number: ", entry -{{Cl|IF...THEN|IF}} entry = 20 {{Cl|THEN}} {{Cl|CALL}} SetUEvent ' trigger the event -{{Cl|END}} - -Twenty: -{{Cl|PRINT}} "The user entered twenty!" -{{Cl|RETURN}} ' once an event is handled, return to last program procedure '' '' -{{CodeEnd}} - - -''See also:'' -* [[UEVENT]] -* [[ON TIMER(n)]] -* [[ON KEY(n)]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/OPEN.txt b/internal/help/OPEN.txt index e44f768a4..a8175711e 100644 --- a/internal/help/OPEN.txt +++ b/internal/help/OPEN.txt @@ -9,10 +9,10 @@ The [[OPEN]] statement is used to open a file or [[OPEN_COM|COM]] serial communi : [[OPEN]] {{Parameter|modeLetter$}}, [#]{{Parameter|fileNumber&}}, {{Parameter|fileName$}}[, {{Parameter|recordLength}}] -{{Parameters}} +{{PageParameters}} * The {{Parameter|fileName$}} is a [[STRING]] variable or literal file name (path optional) in quotes. * FOR mode can be: [[APPEND]] (write to end), [[BINARY]] (read/write), [[INPUT (file mode)|INPUT]] (read), [[OUTPUT]] (write new) or [[RANDOM]] (read/write). -* GW-BASIC's {{Parameter|modeLetter$}} is a [[STRING]] variable or the letter "A", "B", "I", "O" or "R" designating the OPEN modes above. +* GW-BASIC's {{Parameter|modeLetter$}} is a [[STRING]] variable or the letter "A", "B", "I", "O" or "R" designating the OPEN modes above. * {{Parameter|fileNumber&}} can be any '''positive''' [[INTEGER]] or [[LONG]] whole number value or an unused value determined by the [[FREEFILE]] function. * [[LEN]] = or {{Parameter|recordLength}} is optional to denote the RANDOM file record byte length (default = 128) or sequential (default = 512) load buffer. @@ -22,18 +22,18 @@ The [[OPEN]] statement is used to open a file or [[OPEN_COM|COM]] serial communi * '''QB64 will allocate 4 bytes of memory for every possible file number up to the highest number used in a program.''' * {{Parameter|mode}} defaults to RANDOM if the {{Parameter|mode}} or FOR access statement is omitted. (see open modes described below) * '''Only the {{Parameter|fileName$}}, {{Parameter|fileNumber&}} and LEN = {{Parameter|recordLength}} values can use variable values in the QBasic syntax.''' -* If [[LEN]] = is ommitted, sequential file record sizes default to 512 and [[RANDOM]] to 128 bytes in Qbasic. +* If [[LEN]] = is ommitted, sequential file record sizes default to 512 and [[RANDOM]] to 128 bytes in QBasic. * {{Parameter|fileName$}} can be up to 255 characters with no limit on file name extension length in '''QB64'''. * Once a file or port is opened, it can be used in any program procedure using the assigned file number. -* The '''"SCRN:"''' device is supported in '''version 1.000 and up''' (see Example 3). -* '''Devices such as "KYBD:", "CONS:", "COMn" and "LPTn:" are [[Keywords currently not supported by QB64|not supported in QB64.]]'''. -: '''Note:''' OPEN "LPTn" is not supported by QB64, but may be supported directly by your operating system. +* The '''"SCRN:"''' device is supported in '''version 1.000 and up''' (see Example 3). +* '''Devices such as "KYBD:", "CONS:", and "LPTn:" are [[Keywords currently not supported by QB64|not supported in QB64.]]'''. +: '''Note:''' OPEN "LPTn" is not supported by QB64, but may be supported directly by your operating system. * [[OPEN COM]] can also be used for serial port access in '''QB64'''. {{PageErrors}} -* Illegal '''QB64''' Windows filename characters are ''' " * / \ | ? : < > '''. Multiple dots (periods) are allowed. -* Possible OPEN [[ERROR Codes|errors]] include "Bad file name or number", "Bad File Mode", "File Not Found" or "Path Not Found". +* Illegal '''QB64''' Windows filename characters are ''' " * / \ | ? : < > '''. Multiple dots (periods) are allowed. +* Possible OPEN [[ERROR Codes|errors]] include "Bad file name or number", "Bad File Mode", "File Not Found" or "Path Not Found". ** An OPEN file not found error may occur if [[CHR$]](0) to (31) are used in a Windows file name. * '''QB64''' does not have DOS file name limitations. @@ -43,11 +43,11 @@ The [[OPEN]] statement is used to open a file or [[OPEN_COM|COM]] serial communi * [[ACCESS]] clause limits file access to READ, WRITE or READ WRITE on a network. * [[LOCK (access)|LOCK]] clause can specify SHARED or a LOCK READ or LOCK WRITE file lock in an OPEN statement working on a network. * A separate [[LOCK]] statement can lock or [[UNLOCK]] file access on a network using a format that can lock specific records. -* If another process already has access to a specified file, program access is denied for that file OPEN access. A "Permission Denied" error 70 will be returned. A network program must be able to handle a denial of access error. +* If another process already has access to a specified file, program access is denied for that file OPEN access. A "Permission Denied" error 70 will be returned. A network program must be able to handle a denial of access error. ===File Access Modes=== * FOR mode can be: -** '''OUTPUT''': Sequential mode creates a new file or erases an existing file for new program output. Use [[WRITE (file statement)|WRITE #]] to write numerical or text data or [[PRINT (file statement)|PRINT #]] for text. '''OUTPUT clears files of all data''' and clears the receive buffer on other devices such as [[ON COM(n)|COM]]. +** '''OUTPUT''': Sequential mode creates a new file or erases an existing file for new program output. Use [[WRITE (file statement)|WRITE #]] to write numerical or text data or [[PRINT (file statement)|PRINT #]] for text. '''OUTPUT clears files of all data''' and clears the receive buffer on other devices such as COM ports. ** '''APPEND''': Sequential mode creates a new file if it doesn't exist or appends program output to the end of an existing file. Use [[WRITE (file statement)|WRITE #]] for numerical or text data or [[PRINT (file statement)|PRINT #]] for text as in the OUTPUT mode. '''APPEND does not remove previous data.''' ** '''INPUT''' : Sequential mode '''only reads input''' from an existing file. '''[[ERROR Codes|File error]] if file does not exist.''' Use [[INPUT (file statement)|INPUT #]] for comma separated numerical or text data and [[LINE INPUT (file statement)|LINE INPUT #]] or [[INPUT$]] to only read text data. '''Use [[_FILEEXISTS]] or [[_DIREXISTS]] to avoid errors.''' ** '''BINARY''': Creates a new file when it doesn't exist or reads and writes to an existing binary file. Use [[GET|GET #]] to read or [[PUT|PUT #]] to write byte positions simultaneously. [[LEN]] = statements are ignored in this mode. @@ -57,33 +57,33 @@ The [[OPEN]] statement is used to open a file or [[OPEN_COM|COM]] serial communi ====GW-BASIC modes==== * ''Mode letter'' is a variable or literal [[STRING]] letter value as one of the following: -** "A" = '''APPEND'''. -** "B" = '''BINARY'''. -** "I" = '''INPUT'''. -** "O" = '''OUTPUT'''. -** "R" = '''RANDOM'''. +** "A" = '''APPEND'''. +** "B" = '''BINARY'''. +** "I" = '''INPUT'''. +** "O" = '''OUTPUT'''. +** "R" = '''RANDOM'''. {{PageExamples}} ''Example 1:'' Function that displays errors and the number of errors in QBasic filenames. Returns 0 when filename is OK. {{CodeStart}} - file$ = "Hello,~1.mp3" 'example call below - {{Cl|LOCATE}} 20, 30: errors% = CheckName%(file$): {{Cl|COLOR}} 14: {{Cl|PRINT}} " Total Errors ="; errors% +file$ = "Hello,~1.mp3" 'example call below +{{Cl|LOCATE}} 20, 30: errors% = CheckName%(file$): {{Cl|COLOR}} 14: {{Cl|PRINT}} " Total Errors ="; errors% {{Cl|FUNCTION}} CheckName% (Filename$) - '{{Cl|NOT}}E: Function also displays filename errors so {{Cl|LOCATE}} on screen before call! + 'NOTE: Function also displays filename errors so {{Cl|LOCATE}} on screen before call! {{Cl|DIM}} L {{Cl|AS}} {{Cl|INTEGER}}, DP {{Cl|AS}} {{Cl|INTEGER}}, XL {{Cl|AS}} {{Cl|INTEGER}} - L = {{Cl|LEN}}(Filename$): DP = {{Cl|INSTR}}(Filename$, "."): {{Cl|IF...THEN|IF}} DP {{Cl|THEN}} XL = L - DP 'extension - {{Cl|IF...THEN|IF}} L = 0 {{Cl|OR (boolean)|OR}} L > 12 {{Cl|OR (boolean)|OR}} DP > 9 {{Cl|OR (boolean)|OR}} XL > 3 {{Cl|THEN}} - CheckName% = -1: {{Cl|COLOR}} 12: {{Cl|PRINT}} "Illegal format!"; : {{Cl|EXIT FUNCTION}} + L = {{Cl|LEN}}(Filename$): DP = {{Cl|INSTR}}(Filename$, "."): {{Cl|IF...THEN|IF}} DP {{Cl|THEN}} XL = L - DP 'extension + {{Cl|IF...THEN|IF}} L = 0 {{Cl|OR (boolean)|OR}} L > 12 {{Cl|OR (boolean)|OR}} DP > 9 {{Cl|OR (boolean)|OR}} XL > 3 {{Cl|THEN}} + CheckName% = -1: {{Cl|COLOR}} 12: {{Cl|PRINT}} "Illegal format!"; : {{Cl|EXIT FUNCTION}} {{Cl|END IF}} - {{Cl|FOR...NEXT|FOR}} i% = 1 {{Cl|TO}} L 'check each filename character" + {{Cl|FOR...NEXT|FOR}} i% = 1 {{Cl|TO}} L 'check each filename character" code% = {{Cl|ASC}}({{Cl|MID$}}(Filename$, i%, 1)): {{Cl|COLOR}} 10 ' see ASCII codes {{Cl|SELECT CASE}} code% 'check for errors and highlight in red '{{Cl|CASE}} 34, 42 {{Cl|TO}} 44, 47, 58 {{Cl|TO}} 63, 91 {{Cl|TO}} 93, 124: E% = E% + 1: {{Cl|COLOR}} 12 ' '''QBasic errors''' {{Cl|CASE}} 34, 42, 47, 58, 60, 62, 92, 124: E% = E% + 1: {{Cl|COLOR}} 12 ' '''QB64 errors''' - {{Cl|CASE}} 46: dot% = dot% + 1: {{Cl|IF...THEN|IF}} dot% > 1 {{Cl|THEN}} E% = E% + 1: {{Cl|COLOR}} 12 + {{Cl|CASE}} 46: dot% = dot% + 1: {{Cl|IF...THEN|IF}} dot% > 1 {{Cl|THEN}} E% = E% + 1: {{Cl|COLOR}} 12 {{Cl|END SELECT}} {{Cl|PRINT}} {{Cl|CHR$}}(code%); 'use {{Cl|LOCATE}} before {{Cl|FUNCTION}} call to place print {{Cl|NEXT}} @@ -93,44 +93,44 @@ The [[OPEN]] statement is used to open a file or [[OPEN_COM|COM]] serial communi ''Note: The QBasic character error list is commented out and the function will return invalid filenames under QB64. {{OutputStart}} - {{text|Hello|#54FC54}}{{text|,|red}}{{text|~1.mp3|#54FC54}} {{text|Total Errors|yellow}}<nowiki> = </nowiki>{{text|1|yellow}} + {{text|Hello|#54FC54}}{{text|,|red}}{{text|~1.mp3|#54FC54}} {{text|Total Errors|yellow}}<nowiki> = </nowiki>{{text|1|yellow}} {{OutputEnd}} :''Note:'' The screen output displays filename characters in green except for red comma QBasic error. -''Example 2:'' When '''OPEN "SCRN:" FOR OUTPUT AS #f''' is used, '''PRINT #f''' will print the text to the screen instead of to a file: +''Example 2:'' When '''OPEN "SCRN:" FOR OUTPUT AS #f''' is used, '''PRINT #f''' will print the text to the screen instead of to a file: {{CodeStart}} '' '' f% = {{Cl|FREEFILE}} 'should always be 1 at program start -{{Cl|OPEN}} "SCRN:" {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #f% +{{Cl|OPEN}} "SCRN:" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #f% g% = {{Cl|FREEFILE}} 'should always be 2 after 1 -{{Cl|OPEN}} "temp.txt" {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #g% +{{Cl|OPEN}} "temp.txt" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #g% {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 2 - {{Cl|PRINT (file statement)|PRINT}} #i, "Hello World, Screen and File version" -NEXT '' '' + {{Cl|PRINT (file statement)|PRINT}} #i, "Hello World, Screen and File version" +{{Cl|NEXT}} '' '' {{CodeEnd}}{{small|code by Steve McNeill}} -: ''Note:'' Linux or Mac file names can use a path destination such as ".\SCRN:" to use SCRN: as an actual file name. +: ''Note:'' Linux or Mac file names can use a path destination such as ".\SCRN:" to use SCRN: as an actual file name. ''Example 3:'' Showcasing different file modes. {{CodeStart}} {{Cl|CLS}} -{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 -{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst didn't exist:" -{{Cl|PRINT (file statement)|PRINT}} #1, "A new file was created named test.tst and then deleted." -{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst did exist:" -{{Cl|PRINT (file statement)|PRINT}} #1, "It was overwritten with this and deleted." +{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 +{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst didn't exist:" +{{Cl|PRINT (file statement)|PRINT}} #1, "A new file was created named test.tst and then deleted." +{{Cl|PRINT (file statement)|PRINT}} #1, "If test.tst did exist:" +{{Cl|PRINT (file statement)|PRINT}} #1, "It was overwritten with this and deleted." {{Cl|CLOSE}} #1 -{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 +{{Cl|OPEN}} "test.tst" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 {{Cl|DO}} {{Cl|UNTIL}} {{Cl|EOF}}(1) {{Cl|INPUT (file statement)|INPUT}} #1, a$ {{Cl|PRINT}} a$ {{Cl|LOOP}} {{Cl|CLOSE}} #1 -{{Cl|KILL}} "test.tst" +{{Cl|KILL}} "test.tst" {{Cl|END}} @@ -152,10 +152,10 @@ It was overwritten with this and deleted. * [[CLOSE]], [[LOF]], [[EOF]], [[LOC]] * [[SEEK (statement)]], [[SEEK]] * [[OPEN COM]], [[LEN]], [[RESET]] -* [[FILEATTR]], [[FIELD]], [[TYPE]] +* [[FIELD]], [[TYPE]] * [[_FILEEXISTS]], [[_DIREXISTS]] * [[_OPENCLIENT]], [[_OPENHOST]], [[_OPENCONNECTION]] {{text|(TCP/IP)}} * [[_SNDOPEN]], [[_LOADIMAGE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OPEN_COM.txt b/internal/help/OPEN_COM.txt index a59841669..35436b576 100644 --- a/internal/help/OPEN_COM.txt +++ b/internal/help/OPEN_COM.txt @@ -1,14 +1,13 @@ -The '''OPEN COM''' statement is used to access a computer's Serial port COM1 or COM2 address using an OPEN statement. - +The [[OPEN COM]] statement is used to access a computer's serial port COM. {{PageSyntax}} -: '''OPEN "COMn:''' ''Speed'', ''Parity'', ''Bits'', ''Stopbit'', [''Options'']" [FOR {[[RANDOM]]|[[BINARY]]|[[OUTPUT]]|[[INPUT (file mode)|INPUT]]}] AS #''P'' [LEN = ''bytesize''] +: '''OPEN''' "COMn: ''Speed'', ''Parity'', ''Bits'', ''Stopbit'', [''Options'']" [FOR {[[RANDOM]]|[[BINARY]]|[[OUTPUT]]|[[INPUT (file mode)|INPUT]]}] AS #''P'' [LEN = {{Parameter|byteSize}}] -{{Parameters}} -* ''Speed'' (baud rate): 50, 150, 300, 600, 1200, 1800, 2400, '''9600''' (QB max), 19200 or '''115200''' ('''QB64''' max) maximum. -* ''Parity'': '''N''' (none), E (even), O (odd), S (space) or M (mark). Note: If 8 bits use parity N for numerical data! +{{PageParameters}} +* ''Speed'' (baud rate): 50, 150, 300, 600, 1200, 1800, 2400, '''9600''' (QBasic's maximum), 19200 or '''115200''' ('''QB64''''s maximum). +* ''Parity'': '''N''' (none), E (even), O (odd), S (space) or M (mark). Note: If 8 bits, use parity N for numerical data. * ''Bits'' = number of bits/byte: Valid numbers: 5, 6, 7 or '''8''' * ''Stopbit'' = number of stop bits: Valid numbers: '''1''', 1.5 or 2 * Optional COM port ''Options'' (separated by commas): @@ -18,77 +17,71 @@ The '''OPEN COM''' statement is used to access a computer's Serial port COM1 or ::* CD[ms] : Time until timeout of DCD (Carrier Detect) line in. CD0 ignores timeouts. ::* CS[ms] : Time until timeout of CTS (Clear to Send) line in. CS0 ignores timeouts. ::* DS[ms] : Time until timeout of DSR (Data Set Ready) line in. DS0 ignores timeouts. -::* OP[ms] : Time until data lines become active. If timeout then OPEN fails! OP0 ignores timeouts. +::* OP[ms] : Time until data lines become active. If timeout then OPEN fails, OP0 ignores timeouts. ::* RB[b] : Size of receive buffer in bytes when used. Default when not used = 512 bytes ::* TB[b] : Size of transmit buffer in bytes when used. Default when not used = 512 bytes ::* RS : Supress detection of Request to Send (RTS) line. {{PageDescription}} -* '''If any optional CD, CS, DS or OP timeouts occur the OPEN will fail or port access will stop! Try 0 to ignore.''' -* '''QB64''' can open any [[COM(n)|COM''n'']] port number. Qbasic could only open COM1 or COM2, but 3 and 4 could be swapped. +* '''If any optional CD, CS, DS or OP timeouts occur the OPEN will fail or port access will stop. Try 0 to ignore.''' +* '''QB64''' can open any COM''n'' port number from 1 to 9. * See Windows System '''Device Manager''' for COM port numbers and port addresses &H3F8, &H2F8, &H3E8 and &H2E8. * Four commas are required after the Speed, Parity, Bits, and Stopbit, even if none of the Options are used. * Other [[OPEN]] ''options'' are optional and in any order separated by commas within the OPEN command [[STRING|string]].(See list below) * The optional FOR access ''mode'' can be [[OUTPUT]], [[INPUT (file mode)|INPUT]] or [[RANDOM]] (default mode when no FOR statement is used). -* '''Currently, QB64 only supports [[OPEN]] FOR [[RANDOM]] access using the [[GET]]/[[PUT]] commands in [[BINARY|BIN]] mode!''' -* '''Use the BIN option listed below for [[BINARY]] byte mode port access!''' +* '''Currently, QB64 only supports [[OPEN]] FOR [[RANDOM]] access using the [[GET]]/[[PUT]] commands in [[BINARY|BIN]] mode.''' +* '''Use the BIN option listed below for [[BINARY]] byte mode port access.''' * The [[LEN]] statement is also optional. The default record size is 512 bytes when not used. * Use the [[LOC]](portnumber) function to determine that there is data in the receive buffer when the value is greater than 0. -* OPEN AS number can use a [[FREEFILE]] value. Numbers used by files already open '''cannot''' be used by OPEN COM! +* OPEN AS number can use a [[FREEFILE]] value. Numbers used by files already open '''cannot''' be used by OPEN COM. * [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]] -<center>'''Qbasic Description NOT Currently supported in QB64!'''</center> -*[[INPUT (file mode)|INPUT]] mode can use [[INPUT (file statement)|INPUT #]] or [[INPUT$]]. [[OUTPUT]] mode can use [[PRINT (file statement)|PRINT #]] or [[PRINT USING (file statement)|PRINT #, USING]]. -*[[RANDOM]] or [[BINARY|BIN]] modes can use [[INPUT (file statement)|INPUT #]], [[INPUT$]], [[PRINT (file statement)|PRINT #]], [[GET]] or [[PUT]]. BIN cannot set a buffer size! -* Note: If random use [[LEN]] = to set size of random buffer(default LEN = 128). Use multiples of 128 for larger buffers. -* NOTE: NT or XP computers need a program like [http://www.beyondlogic.org/porttalk/porttalk.htm PortTalk] to access COM or other ports with Qbasic only! - - -''Example 1:'' Checking to see if a COM port exists. If the port does not exist Qbasic will cause a Windows access error! +{{PageExamples}} +''Example 1:'' Checking to see if a COM port exists. If the port does not exist QBasic will cause a Windows access error. {{CodeStart}} '' '' {{Cl|ON ERROR}} {{Cl|GOTO}} Handler FF = {{Cl|FREEFILE}} -comPort$ = "COM1:" 'try a COM port number that does not exist -{{Cl|CONST}} comMode$ = "9600,N,8,1,CS0,DS0" 'Use 0 to avoid timeouts +comPort$ = "COM1:" 'try a COM port number that does not exist +{{Cl|CONST}} comMode$ = "9600,N,8,1,CS0,DS0" 'Use 0 to avoid timeouts {{Cl|OPEN}} comPort$ + comMode$ {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} FF -{{Cl|IF...THEN|IF}} errnum = 0 {{Cl|THEN}} {{Cl|PRINT}} "COM exists! +{{Cl|IF...THEN|IF}} errnum = 0 {{Cl|THEN}} {{Cl|PRINT}} "COM exists! K$ = {{Cl|INPUT$}}(1) {{Cl|END}} Handler: errnum = {{Cl|ERR}} -{{Cl|PRINT}} "Error:"; errnum +{{Cl|PRINT}} "Error:"; errnum {{Cl|RESUME}} {{Cl|NEXT}} {{CodeEnd}} -: ''Explanation:'' QB64 may create error 68 if COM is not found. Use a zero CD, CS, DS or OP timeout value to avoid COM timeouts! +: ''Explanation:'' QB64 may create error 68 if COM is not found. Use a zero CD, CS, DS or OP timeout value to avoid COM timeouts. ''Example 2:'' Opening a COM port with the BIN, CS0 and DS0 options in '''QB64'''. {{CodeStart}} '' '' {{Cl|DIM}} bytestr {{Cl|AS}} {{Cl|STRING}} * 1 'one byte transfers -{{Cl|INPUT}} "{{Cl|COM}} port number #", port$ 'any COM port number available +{{Cl|INPUT}} "{{Cl|COM}} port number #", port$ 'any COM port number available -{{Cl|OPEN}} "{{Cl|COM}}" + port$ + ":9600,N,8,1,BIN,CS0,DS0" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 +{{Cl|OPEN}} "{{Cl|COM}}" + port$ + ":9600,N,8,1,BIN,CS0,DS0" {{Cl|FOR (file statement)|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|DO}} 'main loop - 'receive data in buffer when LOC > 0 + 'receive data in buffer when LOC > 0 {{Cl|IF}} {{Cl|LOC}}(1) {{Cl|THEN}} {{Cl|GET}} #1, , bytestr - {{Cl|PRINT}} "[" + bytestr + "]"; + {{Cl|PRINT}} "[" + bytestr + "]"; {{Cl|END IF}} 'transmit (send) k$ = {{Cl|INKEY$}} {{Cl|IF}} {{Cl|LEN}}(k$) = 1 {{Cl|THEN}} k = {{Cl|ASC}}(k$) - {{Cl|IF}} k >= 32 {{Cl|THEN}} 'ignore control key codes - {{Cl|PRINT}} ">" + k$ + "<"; + {{Cl|IF}} k >= 32 {{Cl|THEN}} 'ignore control key codes + {{Cl|PRINT}} ">" + k$ + "<"; bytestr = k$: {{Cl|PUT}} #1, , bytestr {{Cl|END IF}} {{Cl|END IF}} {{Cl|LOOP}} {{Cl|UNTIL}} k$ = {{Cl|CHR$}}(27) -{{Cl|CLOSE}} #1: {{Cl|PRINT}} "Finished!" '' '' +{{Cl|CLOSE}} #1: {{Cl|PRINT}} "Finished!" '' '' {{CodeEnd}} @@ -99,32 +92,32 @@ errnum = {{Cl|ERR}} Byte4 = {{Cl|CHR$}}(254) + {{Cl|CHR$}}(175) + {{Cl|CHR$}}(0) + {{Cl|CHR$}}(3) 'Command code to query all 4 banks of switch input board. -{{Cl|OPEN}} "COM1:115200,N,8,1,BIN,CS0,DS0" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 'Open port used to send commands. -{{Cl|OPEN}} "COM2:115200,N,8,1,BIN,CS0,DS0" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #2 'Open port used to receive commands. +{{Cl|OPEN}} "COM1:115200,N,8,1,BIN,CS0,DS0" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 'Open port used to send commands. +{{Cl|OPEN}} "COM2:115200,N,8,1,BIN,CS0,DS0" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #2 'Open port used to receive commands. {{Cl|PUT}} #1, , Byte4 'Send the 4 byte command. Start# = {{Cl|TIMER}} -{{Cl|DO...LOOP|DO}} {{Cl|UNTIL}} {{Cl|LOC}}(2) <> 0 'Check if there is data received at com2 - {{Cl|IF...THEN|IF}} {{Cl|TIMER}} - Start# > .5 {{Cl|THEN}} {{Cl|EXIT DO}} 'Exit loop if no data arrives within .5 seconds. +{{Cl|DO...LOOP|DO}} {{Cl|UNTIL}} {{Cl|LOC}}(2) <> 0 'Check if there is data received at com2 + {{Cl|IF...THEN|IF}} {{Cl|TIMER}} - Start# > .5 {{Cl|THEN}} {{Cl|EXIT DO}} 'Exit loop if no data arrives within .5 seconds. {{Cl|LOOP}} {{Cl|IF...THEN|IF}} {{Cl|LOC}}(2) = 0 {{Cl|THEN}} 'If no data was received..... - {{Cl|PRINT}} "No data received from COM port." + {{Cl|PRINT}} "No data received from COM port." {{Cl|END}} {{Cl|END IF}} -{{Cl|PRINT}} "Received from COM2:"; +{{Cl|PRINT}} "Received from COM2:"; {{Cl|DO...LOOP|DO}} {{Cl|UNTIL}} {{Cl|LOC}}(2) = 0 'Read data from COM2 until there is no more data. {{Cl|GET}} #2, , ByteIn {{Cl|PRINT}} {{Cl|ASC}}(ByteIn); {{Cl|LOOP}} {{Cl|END}} '' '' -{{CodeEnd}}{{small|Code courtesy of Hydrofoiler}} +{{CodeEnd}}{{small|Code courtesy of forum member Hydrofoiler}} -''See also:'' +{{PageSeeAlso}} * [[BINARY]], [[RANDOM]] * [[INPUT$]], [[PRINT (file statement)|PRINT #]] * [[LOC]], [[INKEY$]], [[OPEN]] @@ -133,4 +126,4 @@ Start# = {{Cl|TIMER}} * [[Windows_Libraries#Windows_Ports|Enumerating Windows Ports]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OPTION_BASE.txt b/internal/help/OPTION_BASE.txt index 6759bb5ef..dedd692a2 100644 --- a/internal/help/OPTION_BASE.txt +++ b/internal/help/OPTION_BASE.txt @@ -1,19 +1,19 @@ -The {{KW|OPTION BASE}} statement is used to set the default lower bound of arrays. +The [[OPTION BASE]] statement is used to set the default lower bound of arrays. {{PageSyntax}} -:{{KW|OPTION BASE}} {0|1} +: [[OPTION BASE]] {0|1} {{PageDescription}} * This statement affects array declarations where the lower bound of a dimension is not specified. -* When used, {{KW|OPTION BASE}} must be used before any array declarations ({{KW|DIM}}) to be affected. +* When used, [[OPTION BASE]] must come before any array declarations ([[DIM]]) to be affected. * By default, the lower bound for arrays is zero, and may be changed to one using the statement. * Otherwise, arrays will be dimensioned from element 0 if you DIM just the upper bounds. -* You can also set other array boundaries by using {{KW|TO}} in the DIM such as: DIM array(5 TO 10) -* Note: Neither '''OPTION''' nor '''BASE''' can be used as numerical variable names. +* You can also set other array boundaries by using [[TO]] in the DIM declaration such as {{InlineCode}}DIM array(5 TO 10){{InlineCodeEnd}} +{{PageExamples}} ''Example 1:'' Set the default lower bound for array declarations to one. {{CodeStart}} {{Cl|OPTION BASE}} 1 @@ -43,8 +43,8 @@ The {{KW|OPTION BASE}} statement is used to set the default lower bound of array {{PageSeeAlso}} -* {{KW|Arrays}}, {{KW|LBOUND}}, {{KW|UBOUND}} -* {{KW|DIM}}, {{KW|REDIM}}, {{KW|STATIC}}, {{KW|COMMON}} +* [[Arrays]], [[LBOUND]], [[UBOUND]] +* [[DIM]], [[REDIM]], [[STATIC]], [[COMMON]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OPTION__EXPLICIT.txt b/internal/help/OPTION__EXPLICIT.txt new file mode 100644 index 000000000..5ea4ce421 --- /dev/null +++ b/internal/help/OPTION__EXPLICIT.txt @@ -0,0 +1,40 @@ +{{DISPLAYTITLE:OPTION _EXPLICIT}} +[[OPTION _EXPLICIT]] instructs the compiler to require variable declaration with [[DIM]], [[REDIM]] or an equivalent statement. + + +{{PageSyntax}} +: [[OPTION _EXPLICIT]] + + +{{PageDescription}} +* With [[OPTION _EXPLICIT]] you can avoid typos by having QB64 immediately warn in the '''Status area''' of new variables used without previous declaration. +* Enable [[OPTION _EXPLICIT]] temporarily even if a program source file doesn't contain the directive by specifying the '''-e''' switch when compiling via command line (''qb64 -c file.bas -e''). + + +{{PageErrors}} +* It's not advisable to use [[OPTION _EXPLICIT]] in [[$INCLUDE]]d modules. + + +{{PageExamples}} +''Example:'' Avoiding simple typos with [[OPTION _EXPLICIT]] results shown in the QB64 IDE Status area. +{{CodeStart}}{{Cl|OPTION _EXPLICIT}} + +{{Cl|DIM}} myVariable {{Cl|AS}} {{Cl|INTEGER}} + +myVariable = 5 + +{{Cl|PRINT}} myVariabe +{{CodeEnd}} + +''QB64 IDE Status will show:'' +'''Variable 'myVariabe' (SINGLE) not defined on line 4''' + + +{{PageSeeAlso}} +* [[OPTION _EXPLICITARRAY]] +* [[DIM]], [[REDIM]] +* [[SHARED]] +* [[STATIC]] + + +{{PageNavigation}} diff --git a/internal/help/OPTION__EXPLICITARRAY.txt b/internal/help/OPTION__EXPLICITARRAY.txt new file mode 100644 index 000000000..82003d9b8 --- /dev/null +++ b/internal/help/OPTION__EXPLICITARRAY.txt @@ -0,0 +1,38 @@ +{{DISPLAYTITLE:OPTION _EXPLICITARRAY}} +[[OPTION _EXPLICITARRAY]] instructs the compiler to require arrays be declared with [[DIM]], [[REDIM]] or equivalent. + +{{PageSyntax}} +: [[OPTION _EXPLICITARRAY]] + + +{{PageDescription}} +* Normally statements like {{InlineCode}}x(2) = 3{{InlineCodeEnd}} will implicitly create an array x(). [[OPTION _EXPLICITARRAY]] requires a preceding declaration for the array, helping to catch mistyped array and function names. +* Unlike [[OPTION _EXPLICIT]], simple variables can still be used without a declaration. Example: {{InlineCode}}i = 1{{InlineCodeEnd}} + +{{PageErrors}} +* It's not advisable to use [[OPTION _EXPLICITARRAY]] in [[$INCLUDE]]d modules. + + +{{PageExamples}} +''Example:'' Avoiding simple typos with [[OPTION _EXPLICITARRAY]] results shown in the QB64 IDE Status area. +{{CodeStart}}{{Cl|OPTION _EXPLICITARRAY}} +x = 1 'This is fine, it's not an array so not affected + +{{Cl|DIM}} z(5) +z(2) = 3 'All good here, we've explicitly DIMmed our array + +y(2) = 3 'This now generates an error +{{CodeEnd}} + +''QB64 IDE Status will show:'' +'''Array 'y' (SINGLE) not defined on line 7''' + + +{{PageSeeAlso}} +* [[OPTION _EXPLICIT]] +* [[DIM]], [[REDIM]] +* [[SHARED]] +* [[STATIC]] + + +{{PageNavigation}} diff --git a/internal/help/OR.txt b/internal/help/OR.txt index d4fcbbdb0..9f37d2f1d 100644 --- a/internal/help/OR.txt +++ b/internal/help/OR.txt @@ -1,24 +1,27 @@ -The '''OR''' numerical operator returns a comparative bit value of 1 if either value's bit is on. +The [[OR]] numerical operator returns a comparative bit value of 1 if either value's bit is on. {{PageSyntax}} -:: firstvalue '''OR''' secondvalue +: {{Parameter|result}} = firstValue [[OR]] secondValue + +{{PageDescription}} * If both bits are off, it returns 0. * If one or both bits are on then it returns 1. -* OR never turns off a bit and can be used only to turn a bit on. +* [[OR]] never turns off a bit and can be used only to turn a bit on. {{Template:LogicalTruthTable}} +{{PageExamples}} ''Example 1:'' OR always turns bits on! Never off. {{CodeStart}} '' '' a% = 5 ' 101 binary b% = 4 ' 100 binary results% = a% {{Cl|OR}} b% ' still 101 binary using OR - {{Cl|PRINT}} "Results% ="; results% '' '' + {{Cl|PRINT}} "Results% ="; results% '' '' {{CodeEnd}} {{OutputStart}} Results% = 5 @@ -35,11 +38,10 @@ The '''OR''' numerical operator returns a comparative bit value of 1 if either v :''Explanation:'' The third register bit is only turned on if it was off. This ensures that a bit is set. OR could set more bits on with a sum of bit values such as: OUT address%, 7 would turn the first, second and third bits on. 1 + 2 + 4 = 7 - -''See also:'' +{{PageSeeAlso}} * [[AND]], [[XOR]] * [[AND (boolean)]], [[OR (boolean)]] * [[Binary]], [[Boolean]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OR_(boolean).txt b/internal/help/OR_(boolean).txt index d1ee98b60..269c11f1a 100644 --- a/internal/help/OR_(boolean).txt +++ b/internal/help/OR_(boolean).txt @@ -1,26 +1,26 @@ -The '''OR''' coditional operator adds an alternative in a [[IF...THEN]] or [[Boolean]] statement. +The '''OR''' conditional operator evaluates an expression to true (-1) if any of the arguments is also true. {{PageSyntax}} -:: IF a = 1 '''OR''' a = 2 THEN a = 0 +: [[IF]] {{Parameter|expression1}} '''OR''' {{Parameter|expression2}} THEN {code} -* OR adds an alternative to another conditional evaluation. IF True then the statement evaluation is True. +{{PageDescription}} +* OR adds an alternative to another conditional evaluation. If either element in the evaluation is true then the evaluation is true. * Parenthesis may be used to clarify the order of comparisons in an evaluation. -* [[AND]] and '''OR''' cannot be used to combine command line operations. -* '''A double OR syntax error may be ignored and create a QB64 compiler error!''' * Not to be confused with the [[AND]] and [[OR]] numerical operations. {{Template:RelationalTable}} +{{PageExamples}} ''Example:'' {{CodeStart}} a% = 100 b% = 50 -IF (a% > b% AND a% < 100) OR b% = 50 THEN PRINT "True" +IF (a% > b% AND a% < 100) OR b% = 50 THEN PRINT "True" {{CodeEnd}} {{OutputStart}} True @@ -28,10 +28,10 @@ True : ''Explanation:'' The first evaluation was False, but the OR evaluation made the statement true and the code was executed. -''See also:'' +{{PageSeeAlso}} * [[AND]], [[OR]] {{text|(logical operators)}} * [[AND (boolean)]], [[XOR (boolean)]] * [[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OUT.txt b/internal/help/OUT.txt index 31c2b0b3a..b34e7ec70 100644 --- a/internal/help/OUT.txt +++ b/internal/help/OUT.txt @@ -1,40 +1,44 @@ -'''OUT''' writes values to register and port hardware addresses. '''QB64 currently has limited access to registers!''' - +[[OUT]] writes values to register and port hardware addresses. {{PageSyntax}} -:: '''OUT''' ''register_address%''''',''' ''value%'' +: [[OUT]] {{Parameter|registerAddress%}}, {{Parameter|value%}} -{{Parameters}} -* The ''register address'' is a value expressed as a decimal [[INTEGER]] or [[&H|Hexadecimal]]. -* The [[INTEGER]] ''value'' sent is normally only 0 to 255 per one byte register(8 bit) address. +{{PageParameters}} +* {{Parameter|registerAddress%}} is a value expressed as a decimal [[INTEGER]] or [[&H|hexadecimal]]. +* The [[INTEGER]] {{Parameter|value%}} sent is normally only 0 to 255 per byte register (8 bit) address. {{PageDescription}} +* '''QB64 has limited access to registers. VGA memory and registers are emulated.''' * OUT can be used to change color port and a limited number of other port settings in QB64. * Some settings may be set in a specific order to gain access to settings and [[INP]] reads. * [[SCREEN]] modes determine the number of available color palette attributes from 2 to 256 in SCREEN 13. -* Windows NT may block access to Parallel printer and Serial ports! See [[Port Access Libraries]] or other DLL's. -* '''WARNING!''' Be sure that the address is useable. OUT accesses directly unlike [[POKE]] and '''can cause PC damage!''' +* Windows NT may block access to Parallel printer and Serial ports. See [[Port Access Libraries]] or other DLLs. * [[_PALETTECOLOR]] can also be used to set RGB intensity values using [[_RGB32|32 bit color]] values. * OUT can toggle the blinking attribute of SCREEN 0 color 16-31 for legacy code. [[_BLINK]] is the preferred method. (starting with build 20170816/61). -:::::::'''Color Port Palette access using OUT''' +==Color Port Palette access using OUT== -:::::OUT &H3C7, attribute : Set port to read RGB settings for start attribute -:::::[[INP]] &H3C9, color_intensity : Reads RGB color intensity settings in order +:::::{{InlineCode}}OUT &H3C7, attribute{{InlineCodeEnd}} : Set port to read RGB settings for start attribute +:::::{{InlineCode}}[[INP]] &H3C9, colorIntensity{{InlineCodeEnd}} : Reads RGB color intensity settings in order -:::::OUT &H3C8, attribute : Set port to write RGB settings for start attribute -:::::OUT &H3C9, color_intensity : Writes RGB color intensity settings in order +:::::{{InlineCode}}OUT &H3C8, attribute{{InlineCodeEnd}} : Set port to write RGB settings for start attribute +:::::{{InlineCode}}OUT &H3C9, colorIntensity{{InlineCodeEnd}} : Writes RGB color intensity settings in order ::::* Every 3 reads or writes, changes to next color attribute without a set ::::* Color setting is Red, Green and Blue attribute intensities in order. -::::* Color attribute intensity values range from 0 to 63 only. NOT 64! +::::* Color attribute intensity values range from 0 to 63. ::::* Some [[DAC]] color attribute intensities cannot be changed using OUT. +{{PageQBasic}} +* In DOS, OUT accesses memory and hardware directly, unlike [[POKE]], and could cause PC damage. + + +{{PageExamples}} ''Example 1:'' Reading the default RGB color settings of color attribute 15. {{CodeStart}} '' '' @@ -56,7 +60,7 @@ PRINT red%, green%, blue% '' '' {{Cl|OUT}} &H3C9, 63 'green {{Cl|OUT}} &H3C9, 63 'blue '' '' {{CodeEnd}} -:''Explanation:'' In [[SCREEN]] 0 this is one way to make high intensity background colors. [[COLOR]] ,15 is actually grey(7). +:''Explanation:'' In [[SCREEN]] 0 this is one way to make high intensity background colors. {{InlineCode}}[[COLOR]] ,15{{InlineCodeEnd}} is actually grey (7). ''Example 3:'' Toggling blinking colors in SCREEN beginning with build 20170816/61 @@ -64,7 +68,7 @@ PRINT red%, green%, blue% '' '' {{Cl|OUT}} &H3C0, &H10 'disables blinking and enables high intensity backgrounds (colors 16-31) {{Cl|OUT}} &H3C0, 2 ^ 3 'reenables blinking and disables high intensity backgrounds (colors 16-31) {{CodeEnd}} -: Note: For new code, the recommended practice is to use the new [[_BLINK]] {ON|OFF} statement. +: Note: In QB64, the recommended practice is to use the [[_BLINK]] {ON|OFF} statement. ''Example 4:'' Restoring colors to a bitmap from the Red, Green and Blue [[BSAVE]]d indexed array of color values. @@ -76,11 +80,10 @@ PRINT red%, green%, blue% '' '' {{Cl|NEXT}} {{Cl|PUT (graphics statement)|PUT}}(clm, row), Image(48) PSET '' '' {{CodeEnd}} -:''Explanation:'' The color RGB intensity settings were imported from a file to the Image array using {{KW|BLOAD}}. The color attribute advances to the next one every 3 writes using OUT. The color information was indexed to the start of the array. The image is after the color settings at index 48. Index 48 is the [[GET (graphics statement)|GET]] image width and 49 is the height. +:''Explanation:'' The color RGB intensity settings were imported from a file to the Image array using [[BLOAD]]. The color attribute advances to the next one every 3 writes using OUT. The color information was indexed to the start of the array. The image is after the color settings at index 48. Index 48 is the [[GET (graphics statement)|GET]] image width and 49 is the height. - -''See also:'' +{{PageSeeAlso}} * [[PALETTE]], [[_PALETTECOLOR]] * [[INP]] {{text|(read register)}} * [[PEEK]] {{text|(read memory)}} @@ -89,7 +92,10 @@ PRINT red%, green%, blue% '' '' * [[BSAVE]], [[BLOAD]] * [[_BLINK]], [[_BLINK (function)]] * [[Port Access Libraries]] {{text|(COM or LPT registers)}} + + +===External Links=== * [http://en.wikipedia.org/wiki/Input/output_base_address#Common_I.2FO_base_address_device_assignments_in_IBM_PC_compatible_computers PC I/O base address device assignments] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/OUTPUT.txt b/internal/help/OUTPUT.txt index 601bdae7e..e5294f413 100644 --- a/internal/help/OUTPUT.txt +++ b/internal/help/OUTPUT.txt @@ -1,21 +1,23 @@ -The '''OUTPUT''' file mode is used in an [[OPEN]] statement to send new data to Files or Ports. +#REDIRECT [[OPEN#File_Access_Modes]] +The [[OUTPUT]] file mode is used in an [[OPEN]] statement to send new data to files or ports. {{PageSyntax}} -:: OPEN FileName$ FOR OUTPUT AS #1 +: [[OPEN]] {{Parameter|fileName$}} '''FOR''' [[OUTPUT]] '''AS''' #1 - -* OUTPUT mode erases all previous data in an existing file or clears a port receive buffer! +{{PageDescription}} +* OUTPUT mode erases all previous data in an existing file or clears a port receive buffer. * Creates an empty file if the filename does not exist. Use [[APPEND]] if previous file data is to be preserved. * Mode can use [[PRINT (file statement)|PRINT]], [[WRITE (file statement)|WRITE]] or [[PRINT USING (file statement)|PRINT USING]] to output file data. +{{PageExamples}} ''Example:'' Writes new data to a text file sequentially and reads it back to the program screen. {{CodeStart}} '' '' -filename$ = "testfile.dat" -x = 1: y = 2: z$ = "Three" +filename$ = "testfile.dat" +x = 1: y = 2: z$ = "Three" {{Cl|OPEN}} filename$ {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 'opens and clears an existing file or creates new empty file @@ -23,7 +25,7 @@ x = 1: y = 2: z$ = "Three" {{Cl|CLOSE}} #1 -{{Cl|PRINT}} "File created with data. Press a key!" +{{Cl|PRINT}} "File created with data. Press a key!" K$ = {{Cl|INPUT$}}(1) 'press a key @@ -39,11 +41,10 @@ K$ = {{Cl|INPUT$}}(1) 'press a key {{CodeEnd}} -''See also:'' - +{{PageSeeAlso}} * [[APPEND]], [[RANDOM]] * [[INPUT (file mode)]], [[BINARY]] * [[WRITE]], [[INPUT (file statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PAINT.txt b/internal/help/PAINT.txt index 20be9582a..54ffe58c0 100644 --- a/internal/help/PAINT.txt +++ b/internal/help/PAINT.txt @@ -1,37 +1,26 @@ -The '''PAINT''' statement is used to color enclosed graphic objects with a designated fill color up to a border [[COLOR]]. +The [[PAINT]] statement is used to fill a delimited area in a graphic screen mode with color. -Color {{PageSyntax}} -: '''PAINT''' [{{KW|STEP}}] '''(''column%'', ''row%''), ''fillcolor'''''[, ''bordercolor%''] - -Tiling {{PageSyntax}} -: '''PAINT''' [{{KW|STEP}}] '''(''column%'', ''row%''), ''background$'''''[, ''bordercolor%''] - +{{PageSyntax}} +: [[PAINT]] ['''STEP'''] ({{Parameter|column%}}, {{Parameter|row%}}), {{Parameter|fillColor}}[, {{Parameter|borderColor%}}] -{{Parameters}} -* Can use the [[STEP]] keyword for relative coordinate placements. [[STEP]](0, 0) can be used after [[CIRCLE]] to fill it with color. -* Graphic ''column'' and ''row'' [[INTEGER]] pixel coordinates should be inside of a fully enclosed border. -* The ''fillcolor'' can be either a numerical or a [[STRING|string]] value: -:* [[INTEGER]] or [[LONG]] 32 bit ''Fillcolor'' is the color to paint the inside of an object. Colors limited to [[SCREEN]] mode used. -:* A [[STRING]] paint argument has PAINT do "tiling," a process that paints a pattern rather than a solid color. -* Optional [[INTEGER]] or [[LONG]] 32 bit ''border color'' is the color of the enclosed shape's border when different from the fill color. -* Optional ''background'' [[ASCII]] character sets the tiling style. Omitted background Default is CHR$(0). - -::PAINT(x, y), CHR$(arg1) + CHR$(arg2)... + CHR$(argn) - -: Where the [[CHR$]] arguments are numerical values between 0 and 255, represented in binary form across the x column axis. +{{PageParameters}} +* Can use the [[STEP]] keyword for relative coordinate placements. See example 1 below. +* {{Parameter|fillColor}} is an [[INTEGER]] or [[LONG]] 32-bit value to paint the inside of an object. Colors are limited to the [[SCREEN]] mode used. +* Optional [[INTEGER]] or [[LONG]] 32-bit {{Parameter|borderColor%}} is the color of the border of the shape to be filled when this is different from the fill color. +* {{Parameter|fillColor}} can be a string made up of a sequence of [[CHR$]] values, each representing a tiling pattern to fill the shape. See Example 3 below. -''Usage:'' -* The enclosed border color must be one color value only. The object border should be fully enclosed! -* PAINT coordinates MUST be inside of a closed shape to be colored. Paint will not do anything when placed on the border color. -* If the border color does not enclose the area, PAINT may flood the screen or go beyond the border area. -* If the shape is not totally enclosed, every color except the border color may be painted over. - -* [[DRAW]] shapes can be filled using the string "P ''fillcolor'', ''bordercolor''". Use a "B" blind move to offset from shape's border. +{{PageDescription}} +* Graphic {{Parameter|column%}} and {{Parameter|row%}} [[INTEGER]] pixel coordinates should be inside of a fully closed "shape", whether it's a rectangle, circle or custom-drawn shape using [[DRAW]]. +* If the coordinates passed to the [[PAINT]] statement are on a pixel that matches the border colors, no filling will occur. +* If the shape's border isn't continuous, the "paint" will "leak". +* If the shape is not totally closed, every color except the border color may be painted over. +* [[DRAW]] shapes can be filled using the string "P {{Parameter|fillColor}}, {{Parameter|borderColor}}". Use a "B" blind move to offset from the shape's border. +{{PageExamples}} ''Example 1:'' Painting a [[CIRCLE]] immediately after it is drawn using [[STEP]](0, 0) to paint from the circle's center point. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 12 @@ -42,32 +31,32 @@ x = 200: y = 200 :''Results:'' A circle located at x and y with a bright green border filled in dark green. The last coordinate used was the circle's center point and PAINT used it also with the [[STEP]] relative coordinates being zero. -''Example 2:'' Routine to check a [[DRAW]] string to make sure that the drawn shape is fully enclosed so that a PAINT does not bleed. +''Example 2:'' Routine to check a [[DRAW]] string to make sure that the drawn shape is fully closed so that a PAINT does not "leak". {{CodeStart}} '' '' {{Cl|SCREEN}} 12 -drw$ = "C15S20R9D4R6U3R3D3R7U5H3U2R9D3G2D6F1D3F5L10D1G1L4H2L7G2L3H2L3U8L2U5R1BF4" +drw$ = "C15S20R9D4R6U3R3D3R7U5H3U2R9D3G2D6F1D3F5L10D1G1L4H2L7G2L3H2L3U8L2U5R1BF4" {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|LEN}}(drw$) tmp$ = {{Cl|UCASE$}}({{Cl|MID$}}(drw$, i, 1)) check = 1 {{Cl|SELECT CASE}} tmp$ - {{Cl|CASE}} "U": ver = -1: hor = 0 - {{Cl|CASE}} "D": ver = 1: hor = 0 - {{Cl|CASE}} "E": ver = -1: hor = 1 - {{Cl|CASE}} "F": ver = 1: hor = 1 - {{Cl|CASE}} "G": ver = 1: hor = -1 - {{Cl|CASE}} "H": ver = -1: hor = -1 - {{Cl|CASE}} "L": ver = 0: hor = -1 - {{Cl|CASE}} "R": ver = 0: hor = 1 + {{Cl|CASE}} "U": ver = -1: hor = 0 + {{Cl|CASE}} "D": ver = 1: hor = 0 + {{Cl|CASE}} "E": ver = -1: hor = 1 + {{Cl|CASE}} "F": ver = 1: hor = 1 + {{Cl|CASE}} "G": ver = 1: hor = -1 + {{Cl|CASE}} "H": ver = -1: hor = -1 + {{Cl|CASE}} "L": ver = 0: hor = -1 + {{Cl|CASE}} "R": ver = 0: hor = 1 {{Cl|CASE ELSE}}: check = 0 {{Cl|END SELECT}} {{Cl|IF...THEN|IF}} check {{Cl|THEN}} - snum$ = "" + snum$ = "" {{Cl|FOR...NEXT|FOR}} j = i + 1 {{Cl|TO}} i + 4 'set for up to 4 digits and spaces - {{Cl|IF...THEN|IF}} j > {{Cl|LEN}}(drw$) {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} + {{Cl|IF...THEN|IF}} j > {{Cl|LEN}}(drw$) {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} n$ = {{Cl|MID$}}(drw$, j, 1) num = {{Cl|ASC}}(n$) - {{Cl|IF...THEN|IF}} (num > 47 {{Cl|AND (boolean)|AND}} num < 58) {{Cl|OR (boolean)|OR}} num = 32 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} (num > 47 {{Cl|AND (boolean)|AND}} num < 58) {{Cl|OR (boolean)|OR}} num = 32 {{Cl|THEN}} snum$ = snum$ + n$ {{Cl|ELSE}}: {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} {{Cl|END IF}} @@ -80,7 +69,7 @@ drw$ = "C15S20R9D4R6U3R3D3R7U5H3U2R9D3G2D6F1D3F5L10D1G1L4H2L7G2L3H2L3U8L2U5 {{Cl|NEXT}} {{Cl|PSET}} (300, 300): {{Cl|DRAW}} drw$ '' '' {{CodeEnd}} -: ''Explanation:'' If the [[DRAW]] string is enclosed, the end values should each be 0! In the example, the proper result should be 4, 4 as there is a BF4 offset for PAINT which cannot be on a border. The result is 4, 5 because the shape is not completely enclosed. +: ''Explanation:'' If the [[DRAW]] string is fully closed, the end values should each be 0. In the example, the proper result should be 4, 4 as there is a BF4 offset for PAINT which cannot be on a border. The result is 4, 5 because the shape is not completely closed. ''Example 3:'' Tiling using PAINT to create a red brick pattern inside a yellow border: @@ -103,8 +92,49 @@ drw$ = "C15S20R9D4R6U3R3D3R7U5H3U2R9D3G2D6F1D3F5L10D1G1L4H2L7G2L3H2L3U8L2U5 {{Cl|PAINT}} (320, 240), Tile$, 14 'paints brick tiles within yellow border {{CodeEnd}} -<center>'''Tiling currently does not work in QB64!'''</center> +''Example 4:'' Generating a tiling pattern for PAINT from [[DATA]] statements: +{{CodeStart}} +ptndata: +{{Cl|DATA}} "c4444444" +{{Cl|DATA}} "c4444444" +{{Cl|DATA}} "cccccccc" +{{Cl|DATA}} "444c4444" +{{Cl|DATA}} "444c4444" +{{Cl|DATA}} "444c4444" +{{Cl|DATA}} "cccccccc" +{{Cl|DATA}} "c4444444" +{{Cl|DATA}} --- + +{{Cl|RESTORE}} ptndata: ptn$ = loadpattern$ + +{{Cl|SCREEN}} 7 +{{Cl|DRAW}} "c15l15f10g10r30g10f10l50u80r100m160,100" +{{Cl|PAINT}} (160, 90), ptn$, 15 + +{{Cl|FUNCTION}} loadpattern$ + {{Cl|DIM}} quad(0 TO 3) {{Cl|AS}} {{Cl|INTEGER}} + res$ = "" + {{Cl|DO}} + {{Cl|READ}} row$ + {{Cl|IF}} {{Cl|LEFT$}}(row$, 3) = "---" {{Cl|THEN}} {{Cl|EXIT}} {{Cl|DO}} + {{Cl|FOR}} x = 0 {{Cl|TO}} 7 + pixel = {{Cl|VAL}}("&h" + {{Cl|MID$}}(row$, x + 1, 1)) + {{Cl|FOR}} bit = 0 {{Cl|TO}} 3 + {{Cl|IF}} pixel {{Cl|AND}} 2 ^ bit {{Cl|THEN}} + quad(bit) = quad(bit) {{Cl|OR}} (2 ^ (7 - x)) + {{Cl|END}} {{Cl|IF}} + {{Cl|NEXT}} + {{Cl|NEXT}} + {{Cl|FOR}} i = 0 {{Cl|TO}} 3 + res$ = res$ + {{Cl|CHR$}}(quad(i)) + quad(i) = 0 + {{Cl|NEXT}} + {{Cl|LOOP}} + loadpattern$ = res$ +{{Cl|END}} {{Cl|FUNCTION}} +{{CodeEnd}} +:: ''Code provided by collaborator https://github.com/NEONTEC75'' {{PageSeeAlso}} @@ -113,4 +143,4 @@ drw$ = "C15S20R9D4R6U3R3D3R7U5H3U2R9D3G2D6F1D3F5L10D1G1L4H2L7G2L3H2L3U8L2U5 * [[SCREEN]], [[CHR$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PALETTE.txt b/internal/help/PALETTE.txt index 3ac280454..a71842fef 100644 --- a/internal/help/PALETTE.txt +++ b/internal/help/PALETTE.txt @@ -1,42 +1,45 @@ -The '''PALETTE''' statement can swap color settings, set colors to default or set the Red, Green, Blue color palette. +The [[PALETTE]] statement can swap color settings, set colors to default or set the red, green and blue color components of palette colors. +{{PageSyntax}} -''RGB'' {{PageSyntax}} - -:::PALETTE [''attribute'', ''Red'' + (''Green'' * 256) + (''Blue'' * 65536)] - -''Swap'' {{PageSyntax}} - -:::PALETTE [''set_attribute'', new_attribute] +: [[PALETTE]] [{{Parameter|attribute%}}, ''red%'' + (''green%'' * 256) + (''blue%'' * 65536)] +: [[PALETTE]] [{{Parameter|existingAttribute%}}, {{Parameter|newAttribute%}}] -* ''Red'', ''Green'' and ''Blue'' values can be from 0 to 63. Many color shades possible in non-[[DAC]] color attributes. -* If the Red, Green and Blue color intensity settings are all the same value the color is greyscale. -* Screens 0, 7 and 9 ([[DAC]]) colors cannot be changed by the RGB syntax statement in QBasic! Can use [[OUT]] to change attribute 1 thru 5 intensity settings. -* A swap is often used with [[DAC]] color attributes that cannot change RGB settings. Only the RGB color settings are swapped from original ''set_attribute'' to ''new_attribute''. Screens 0 thru 9 support swaps. Screen 10 up to 8 only. -* PALETTE without any value sets any changed RGB settings back to the Qbasic default color settings including [[DAC]] colors. +{{PageDescription}} +* {{Parameter|red%}}, {{Parameter|green%}} and {{Parameter|blue%}} values can range from 0 to 63. Many color shades are possible in non-[[DAC]] color attributes. +* If the {{Parameter|red%}}, {{Parameter|green%}} and {{Parameter|blue%}} color intensity settings are all the same value the resulting color is a shade of grey. +* A swap is often used with [[DAC]] color attributes that cannot change RGB settings. Only the RGB color settings are swapped from original {{Parameter|existingAttribute%}} to {{Parameter|newAttribute%}}. Screens 0 thru 9 support swaps. Screen 10 supports up to attribute 8 only. +* PALETTE without any value sets any changed RGB settings back to the default color settings, including [[DAC]] colors. * [[PALETTE USING]] can be used when color intensity values are stored in an [[Arrays|array]]. +* QB64 implements the [[_PALETTECOLOR]] statement to provide extended palette functionality. +{{PageQBasic}} +* Screens 0, 7 and 9 ([[DAC]]) colors could not be changed using the first syntax, but the program could use [[OUT]] to change intensity settings of attributes 1 thru 5. + + +{{PageExamples}} ''Example:'' Displaying all 64 DAC color hues as backgrounds in SCREEN 9 using a PALETTE swap. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 9 ' background is default black - {{Cl|LOCATE}} 20, 33: {{Cl|PRINT}} "Press any Key!" + {{Cl|LOCATE}} 20, 33: {{Cl|PRINT}} "Press any Key!" {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 64 a$ = {{Cl|INPUT$}}(1) ' wait for a keypress {{Cl|PALETTE}} 0, i {{Cl|NEXT}} '' '' {{CodeEnd}} -:''Note:'' Other attributes(1 to 15) can be swapped for DAC foreground colors also. +:''Note:'' Other attributes (1 to 15) can also be swapped for DAC foreground colors. -''See also:'' +{{PageSeeAlso}} +* [[_PALETTECOLOR]] * [[PALETTE USING]] * [[COLOR]] * [[OUT]], [[INP]] * [[SCREEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PALETTE_USING.txt b/internal/help/PALETTE_USING.txt index cd223e66b..7bbf0ce50 100644 --- a/internal/help/PALETTE_USING.txt +++ b/internal/help/PALETTE_USING.txt @@ -1,12 +1,14 @@ -The '''PALETTE USING''' statement sets all RGB screen color intensities using values from an [[Arrays|array]]. +The [[PALETTE USING]] statement sets all RGB screen color intensities using values from an [[Arrays|array]]. {{PageSyntax}} -:: PALETTE USING Array%(''start_index%'') +: [[PALETTE USING]] array%({{Parameter|startIndex%}}) -* The [[Arrays|Array]] holds the RGB color value using the color value = red + 256 * green + 65536 * blue. -* The ''start_index'' indicates the index that the statement should start reading. The statement will read all color attributes available in that [[SCREEN (statement)|SCREEN]] mode. The '''number of values required''' in the array is listed below: +{{PageDescription}} +* The [[Arrays|array]] holds the RGB color value using the color value as {{InlineCode}}{{Parameter|red%}} + 256 * {{Parameter|green%}} + 65536 * {{Parameter|blue%}}{{InlineCodeEnd}}. +** Color intensities range from 0 to 63. +* {{Parameter|startIndex%}} indicates the index in the array from which the statement should start reading. The statement will read all color attributes available in that [[SCREEN (statement)|SCREEN]] mode. The '''number of values required''' in the array is listed below: {{WhiteStart}}''' Screen mode Attributes Colors Values''' 0 0 - 15 0 - 63 16 1 0 - 3 0 - 3 4 @@ -20,12 +22,13 @@ The '''PALETTE USING''' statement sets all RGB screen color intensities using va 13 0 - 15 0 - 263,143 256 {{WhiteEnd}} -* A color argument of -1 in the array leaves the attribute unchanged. Other negative numbers are invalid! +* A color argument of -1 in the array leaves the attribute unchanged. Other negative numbers are invalid. -''See also:'' +{{PageSeeAlso}} * [[PALETTE]], [[COLOR]] +* [[_PALETTECOLOR]] * [[SCREEN (statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PCOPY.txt b/internal/help/PCOPY.txt index 16c5a8b8f..3d2c977ba 100644 --- a/internal/help/PCOPY.txt +++ b/internal/help/PCOPY.txt @@ -1,27 +1,30 @@ -The '''PCOPY''' graphics statement copies one source screen page to a destination page in memory. - +The [[PCOPY]] statement copies one source screen page to a destination page in memory. {{PageSyntax}} -:: PCOPY sourcePage%, desitinationPage% +: [[PCOPY]] {{Parameter|sourcePage%}}, {{Parameter|destinationPage%}} - -* Source and destination page numbers are limited by the SCREEN mode used. -* Source page is an image page in video memory. -* Destination page is the video memory location to copy the source image to. +{{PageDescription}} +* {{Parameter|sourcePage%}} is an image page in video memory. +* {{Parameter|destinationPage%}} is the video memory location to copy the source image to. * The working page is set as 0. All drawing occurs there. * The visible page is set as any page number that the SCREEN mode allows. * The [[_DISPLAY (function)]] return can be used a page number reference in '''QB64''' (See Example 1). * The '''QB64''' [[_DISPLAY]] statement can also be used to stop screen flicker without page flipping or [[CLS]] and '''is the recommended practice'''. +{{PageQBasic}} +* {{Parameter|sourcePage%}} and {{Parameter|destinationPage%}} numbers are limited by the SCREEN mode used. In '''QB64''', the same limits don't apply. + + +{{PageExamples}} ''Example 1:'' Creating a mouse cursor using a page number that '''you create''' in memory without setting up page flipping. {{CodeStart}} {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) 'any graphics mode should work without setting up pages {{Cl|_MOUSEHIDE}} SetupCursor -{{Cl|PRINT}} "Hello World!" +{{Cl|PRINT}} "Hello World!" {{Cl|DO}}: {{Cl|_LIMIT}} 30 {{Cl|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}}: {{Cl|LOOP}} 'main loop must contain _MOUSEINPUT ' other program code @@ -35,7 +38,7 @@ SetupCursor {{Cl|SUB}} UpdateCursor {{Cl|PCOPY}} {{Cl|_DISPLAY (function)|_DISPLAY}}, 100 'any page number as desination with the _DISPLAY function as source {{Cl|PSET}} ({{Cl|_MOUSEX}}, {{Cl|_MOUSEY}}), {{Cl|_RGB}}(0, 255, 0) -{{Cl|DRAW}} "ND10F10L3F5L4H5L3" +{{Cl|DRAW}} "ND10F10L3F5L4H5L3" {{Cl|_DISPLAY}} 'statement shows image {{Cl|PCOPY}} 100, {{Cl|_DISPLAY (function)|_DISPLAY}} 'function return as destination page {{Cl|END SUB}} '' '' @@ -61,19 +64,19 @@ SetupCursor {{Cl|CIRCLE}}(x(a), y(a)), 5, 15 'all erasing and drawing is done on page 1 x(a) = x(a) + dx(a) y(a) = y(a) + dy(a) - {{Cl|IF...THEN|IF}} x(a) > 320 {{Cl|THEN}} dx(a) = -dx(a): x(a) = x(a) - 1 + {{Cl|IF...THEN|IF}} x(a) > 320 {{Cl|THEN}} dx(a) = -dx(a): x(a) = x(a) - 1 {{Cl|IF...THEN|IF}} x(a) < 0 {{Cl|THEN}} dx(a) = -dx(a): x(a) = x(a) + 1 - {{Cl|IF...THEN|IF}} y(a) > 200 {{Cl|THEN}} dy(a) = -dy(a): y(a) = y(a) - 1 + {{Cl|IF...THEN|IF}} y(a) > 200 {{Cl|THEN}} dy(a) = -dy(a): y(a) = y(a) - 1 {{Cl|IF...THEN|IF}} y(a) < 0 {{Cl|THEN}} dy(a) = -dy(a): y(a) = y(a) + 1 {{Cl|NEXT}} {{Cl|DO...LOOP|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) ' escape exit {{CodeEnd}} -:''Explanation:'' PCOPY reduces the flickering produced by clearing the screen. x(a) = x(a) - 1, etc. is just to be safe that the balls stay within the boundaries. dx(a) = -dx(a), etc. is to keep the actual speed while inverting it (so that the ball "bounces"). The rest should be self-explanatory, but if you are unsure about arrays you might want to look at QB64 Tutorials -> [[Arrays]]. +:''Explanation:'' PCOPY reduces the flickering produced by clearing the screen. x(a) = x(a) - 1, etc. is just to be safe that the balls stay within the boundaries. dx(a) = -dx(a), etc. is to keep the actual speed while inverting it (so that the ball "bounces"). The rest should be self-explanatory, but if you are unsure about arrays you might want to look at QB64 Tutorials -> [[Arrays]]. -''See also:'' +{{PageSeeAlso}} * [[_DISPLAY]] * [[SCREEN (statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PEEK.txt b/internal/help/PEEK.txt index 7a1caa1ab..5753477d9 100644 --- a/internal/help/PEEK.txt +++ b/internal/help/PEEK.txt @@ -21,28 +21,28 @@ The '''PEEK''' function returns the value that is contained at a certain memory oldvalue = PEEK(1047) ' IMPORTANT! save initial setting to reset later DO: {{Cl|_LIMIT}} 100 port = {{Cl|PEEK}}(1047) - IF port > 0 THEN LOCATE 26, 19: COLOR 11: - PRINT "Turn ALL Locks off to see each key's bit value!" + IF port > 0 THEN LOCATE 26, 19: COLOR 11: + PRINT "Turn ALL Locks off to see each key's bit value!" END IF COLOR 14:LOCATE 2, 25 - PRINT "PEEK(1047) ="; port; "present keyboard port byte value" + PRINT "PEEK(1047) ="; port; "present keyboard port byte value" LOCATE 5, 35 - IF (port {{Cl|AND}} 1) = 1 THEN COLOR 10: PRINT "R SHIFT PRESSED  " ELSE COLOR 12: PRINT "R SHIFT RELEASED" + IF (port {{Cl|AND}} 1) = 1 THEN COLOR 10: PRINT "R SHIFT PRESSED  " ELSE COLOR 12: PRINT "R SHIFT RELEASED" LOCATE 7, 35 - IF (port AND 2) = 2 THEN COLOR 10: PRINT "L SHIFT PRESSED  " ELSE COLOR 12: PRINT "L SHIFT RELEASED" + IF (port AND 2) = 2 THEN COLOR 10: PRINT "L SHIFT PRESSED  " ELSE COLOR 12: PRINT "L SHIFT RELEASED" LOCATE 9, 35 - IF (port AND 4) = 4 THEN COLOR 10: PRINT "CTRL KEY PRESSED " ELSE COLOR 12: PRINT "CTRL KEY RELEASED" + IF (port AND 4) = 4 THEN COLOR 10: PRINT "CTRL KEY PRESSED " ELSE COLOR 12: PRINT "CTRL KEY RELEASED" LOCATE 11, 35 - IF (port AND 8) = 8 THEN COLOR 10: PRINT "ALT KEY PRESSED " ELSE COLOR 12: PRINT "ALT KEY RELEASED" + IF (port AND 8) = 8 THEN COLOR 10: PRINT "ALT KEY PRESSED " ELSE COLOR 12: PRINT "ALT KEY RELEASED" LOCATE 13, 35 - IF (port AND 16) = 16 THEN COLOR 10: PRINT "SCROLL LOCK ON " ELSE COLOR 12: PRINT "SCROLL LOCK OFF" + IF (port AND 16) = 16 THEN COLOR 10: PRINT "SCROLL LOCK ON " ELSE COLOR 12: PRINT "SCROLL LOCK OFF" LOCATE 15, 35 - IF (port AND 32) = 32 THEN COLOR 10: PRINT "NUMBER LOCK ON " ELSE COLOR 12: PRINT "NUMBER LOCK OFF" + IF (port AND 32) = 32 THEN COLOR 10: PRINT "NUMBER LOCK ON " ELSE COLOR 12: PRINT "NUMBER LOCK OFF" LOCATE 17, 35 - IF (port AND 64) = 64 THEN COLOR 10: PRINT "CAPS LOCK ON " ELSE COLOR 12: PRINT "CAPS LOCK OFF" + IF (port AND 64) = 64 THEN COLOR 10: PRINT "CAPS LOCK ON " ELSE COLOR 12: PRINT "CAPS LOCK OFF" LOCATE 19, 35 - IF (port AND 128) = 128 THEN COLOR 10: PRINT "INSERT MODE ON " ELSE COLOR 12: PRINT "INSERT MODE OFF" - COLOR 11: LOCATE 21, 20: PRINT "Press mode keys to change or [ESC] to quit!"; + IF (port AND 128) = 128 THEN COLOR 10: PRINT "INSERT MODE ON " ELSE COLOR 12: PRINT "INSERT MODE OFF" + COLOR 11: LOCATE 21, 20: PRINT "Press mode keys to change or [ESC] to quit!"; LOOP UNTIL {{Cl|INP}}(&H60) = 1 ' escape key exit {{Cl|POKE}} 1047, oldvalue ' IMPORTANT reset to original settings {{Cl|DEF SEG}} '' '' @@ -63,4 +63,4 @@ The '''PEEK''' function returns the value that is contained at a certain memory * [[Screen Memory]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PEN.txt b/internal/help/PEN.txt deleted file mode 100644 index febac8b68..000000000 --- a/internal/help/PEN.txt +++ /dev/null @@ -1,49 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The '''PEN''' function returns requested information about the lightpen device used. - - - -{{PageSyntax}} -:: PEN(n) - - -''Description:'' - -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' - -* The lightpen was a device that detected the current position when the screen was drawn. It sends a signal when it is detected, from that the x and y coordinates of the pen relative to the screen is known. '''Seldom used today!''' (mainly because of the pain in the arm because of the constant lift of the pen to the screen and I suspect it left the screen rather dirty) - - -* n is a numerical expression that can have one of these request numbers: - -::0 = Whether the pen was drawn since the last function call (-1 yes, 0 no). - -::1 = x-coordinate of the last pen press. - -::2 = y-coordinate of the last pen press. - -::3 = current pen switch status (-1 down, 0 up). - -::4 = last known valid x-coordinate. - -::5 = last known valid y-coordinate. - -::6 = character row of last pen press. - -::7 = character column of last pen press. - -::8 = character row of last pen position. - -::9 = character column of last pen position. - - -''See also:'' -* [[PEN (statement)]], [[ON PEN]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/PEN_(statement).txt b/internal/help/PEN_(statement).txt deleted file mode 100644 index b1f5a1631..000000000 --- a/internal/help/PEN_(statement).txt +++ /dev/null @@ -1,25 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The '''PEN''' statement enables/disables or suspends event trapping of the lightpen device which is seldom used today. - - -{{PageSyntax}} -:: PEN {ON|STOP|OFF} - - -''Description:'' -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* PEN [[ON]] - enables event trapping (automatically enabled with [[ON PEN]] though) -* PEN [[OFF]] - disables event trapping. -* PEN [[STOP]] - suspends event trapping (use PEN ON to enable it again). - - -''See also:'' -* [[ON PEN]], [[PEN]] (function) - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/PLAY(n).txt b/internal/help/PLAY(n).txt deleted file mode 100644 index efadd46ec..000000000 --- a/internal/help/PLAY(n).txt +++ /dev/null @@ -1,25 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -'''PLAY(n)''' is a event-trapping function that returns the number of notes currently in the background music queue. - - -{{PageSyntax}} -:: PLAY(n) - - -''Description:'' -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* n can be any number and is only a dummy. -* If the music is playing in foreground the function will return 0. - - - -''See also:'' -* [[ON PLAY(n)]], [[PLAY]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/PLAY.txt b/internal/help/PLAY.txt index 238a17ff4..d4e957ba7 100644 --- a/internal/help/PLAY.txt +++ b/internal/help/PLAY.txt @@ -5,24 +5,24 @@ ::: '''PLAY ''commandstring$''''' -{{Parameters}} +{{PageParameters}} * The ''commandstring'' can be any literal or variable [[STRING]] consisting of the following uppercase or lowercase commands: -:*'''O'''n - Sets the current octave (from 0 to 6). Example: '''{{text|PLAY "O3"|green}}''' -:*'''<''' - Down one octave (cannot be below zero). Example: '''{{text|PLAY "<<"|green}}''' 'goes down two octaves. -:*'''>''' - Up one octave (cannot be above 6). Example: '''{{text|PLAY ">>"|green}}''' ' goes up two octaves. +:*'''O'''n - Sets the current octave (from 0 to 6). Example: '''{{text|PLAY "O3"|green}}''' +:*'''<''' - Down one octave (cannot be below zero). Example: '''{{text|PLAY "<<"|green}}''' 'goes down two octaves. +:*'''>''' - Up one octave (cannot be above 6). Example: '''{{text|PLAY ">>"|green}}''' ' goes up two octaves. :*'''A''', '''B''', '''C''', '''D''', '''E''', '''F''' or '''G''' are the notes in the current octave. Can use the following suffixes: -::*'''+''' or '''#''' for a sharp note. Example: '''{{text|PLAY "C#"}green}}''' -::*'''-''' for a flat note. Example: '''{{text|PLAY "C-"|green}}''' -:*'''N'''n - Plays a note n by number(n can be between 0 to 84 in the 7 octaves, where 0 is a rest). Example: '''{{text|PLAY "N42"|green}}''' -:*'''L'''n - Sets length of a note (n can be 1 to 64 where 1 is a whole note and 4 is a quarter of a note etc.). Example: '''{{text|PLAY "L4"|green}}''' +::*'''+''' or '''#''' for a sharp note. Example: '''{{text|PLAY "C#"|green}}''' +::*'''-''' for a flat note. Example: '''{{text|PLAY "C-"|green}}''' +:*'''N'''n - Plays a note n by number(n can be between 0 to 84 in the 7 octaves, where 0 is a rest). Example: '''{{text|PLAY "N42"|green}}''' +:*'''L'''n - Sets length of a note (n can be 1 to 64 where 1 is a whole note and 4 is a quarter of a note etc.). Example: '''{{text|PLAY "L4"|green}}''' ::*'''MS''' - Each note plays 3/4 of length set by L (staccato) ::*'''MN''' - Each note plays 7/8 of length set by L (normal) ::*'''ML''' - Each note plays full length set by L (legato) -::*'''P'''n - Pause in the duration of n quarternotes (n can be 1 to 64) corresponding to L, Example: '''{{text|PLAY "P32"|green}}''' -::*'''T'''n - Tempo sets number of L4 quarter notes per minute (n can be 32 to 255 where 120 is the default). Example: '''{{text|PLAY "T180"|green}}''' +::*'''P'''n - Pause in the duration of n quarternotes (n can be 1 to 64) corresponding to L, Example: '''{{text|PLAY "P32"|green}}''' +::*'''T'''n - Tempo sets number of L4 quarter notes per minute (n can be 32 to 255 where 120 is the default). Example: '''{{text|PLAY "T180"|green}}''' :::*''' .  '''  - period after a note plays 1½ times the note length determined by L * T. :::*'''.. '''  - two periods plays 1-3/4 times the note length determined by L * T. -:*''',  '''  - '''commas in QB64''' stop play advancement to allow more than one note to be played simultaneously. Example: '''{{text|PLAY "C,E,G,"|green}}''' +:*''',  '''  - '''commas in QB64''' stop play advancement to allow more than one note to be played simultaneously. Example: '''{{text|PLAY "C,E,G,"|green}}''' :*'''V'''n - Volume in '''QB64 only''' can be any volume from 0(none) to 100(full). The default level is 50 when '''n''' is not specified. :*'''MF''' - Play music in the foreground (each note must be completed before another can start). :*'''MB''' - Play music in the background while program code execution continues (QB64 has no note buffer limits). @@ -37,56 +37,56 @@ ''Example 1:'' Plays a sound with the volume and note varying from 0 to 50. Maximum note can only be 84. {{CodeStart}} '' '' -{{Cl|PLAY}} "mll64" +{{Cl|PLAY}} "mll64" {{Cl|DO}} {{Cl|FOR...NEXT|FOR}} x = 1 {{Cl|TO}} 50 - a$ = a$ + "v" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) + "n" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) + a$ = a$ + "v" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) + "n" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) {{Cl|NEXT}} {{Cl|FOR...NEXT|FOR}} x = 50 {{Cl|TO}} 1 {{Cl|STEP}} -1 - a$ = a$ + "v" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) + "n" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) + a$ = a$ + "v" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) + "n" + {{Cl|LTRIM$}}({{Cl|STR$}}(x)) {{Cl|NEXT}} {{Cl|PLAY}} a$ - a$ = "" -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" -{{Cl|PLAY}} "v10l1c,l4egl2o5c,o4l4eg" '' '' + a$ = "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|PLAY}} "v10l1c,l4egl2o5c,o4l4eg" '' '' {{CodeEnd}} {{small|Code by Galleon}} -''Example 2:'' Plays "Frosty the snowman". The lyric printing is not delayed by PLAY in QB64. +''Example 2:'' Plays "Frosty the snowman". The lyric printing is not delayed by PLAY in QB64. {{CodeStart}} '' '' -CLS : PRINT "Frosty the Snow Man" +CLS : PRINT "Frosty the Snow Man" {{Cl|FOR...NEXT|FOR}} X = 1 {{Cl|TO}} 2 PRINT - IF X = 1 THEN PRINT "Fros-ty the Snow man was a jolly happy soul," - IF X = 2 THEN PRINT "Fros-ty the Snow man knew the sun was hot that day" - {{Cl|PLAY}} "t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2." 'MB removed to print song one line at a time - IF X = 1 THEN PRINT "with a corn cob pipe and a button nose and two eyes made out of coal." - IF X = 2 THEN PRINT "so he said Let's run and we'll have some fun now before I melt away." - {{Cl|PLAY}} "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2." - IF X = 1 THEN PRINT "Fros-ty the Snow Man is a fair-y tale, they say," - IF X = 2 THEN PRINT "Down to the vil-lage, with a broom-stick in his hand," - {{Cl|PLAY}} "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2." - IF X = 1 THEN PRINT "He was made of snow but the chil-dren knew how he come to life one day." - IF X = 2 THEN PRINT "run-ning here and there all a-round the square, say-in' catch me if you can." - {{Cl|PLAY}} "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2." - IF X = 1 THEN PRINT "There must have been some magic in that old silk hat they found." - IF X = 2 THEN PRINT "He led them down the streets of town right to the traffic cop." - {{Cl|PLAY}} "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2." - IF X = 1 THEN PRINT "For when they placed it on his head he be-gan to dance a round." - IF X = 2 THEN PRINT "And he on-ly paused a moment when he heard him hol-ler Stop!" - {{Cl|PLAY}} "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4" - IF X = 1 THEN PRINT "Oh, Fros-ty the Snow Man was a-live as he could be," - IF X = 2 THEN PRINT "For, Fros-ty the Snow Man had to hur-ry on his way" - {{Cl|PLAY}} "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2." - IF X = 1 THEN PRINT "and the chil-dren say he could laugh and play just the same as you and me." - IF X = 2 THEN PRINT "but he waved good-bye say-in' Don't you cry, I'll be back a-gain some day." - {{Cl|PLAY}} "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4" + IF X = 1 THEN PRINT "Fros-ty the Snow man was a jolly happy soul," + IF X = 2 THEN PRINT "Fros-ty the Snow man knew the sun was hot that day" + {{Cl|PLAY}} "t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2." 'MB removed to print song one line at a time + IF X = 1 THEN PRINT "with a corn cob pipe and a button nose and two eyes made out of coal." + IF X = 2 THEN PRINT "so he said Let's run and we'll have some fun now before I melt away." + {{Cl|PLAY}} "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2." + IF X = 1 THEN PRINT "Fros-ty the Snow Man is a fair-y tale, they say," + IF X = 2 THEN PRINT "Down to the vil-lage, with a broom-stick in his hand," + {{Cl|PLAY}} "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2." + IF X = 1 THEN PRINT "He was made of snow but the chil-dren knew how he come to life one day." + IF X = 2 THEN PRINT "run-ning here and there all a-round the square, say-in' catch me if you can." + {{Cl|PLAY}} "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2." + IF X = 1 THEN PRINT "There must have been some magic in that old silk hat they found." + IF X = 2 THEN PRINT "He led them down the streets of town right to the traffic cop." + {{Cl|PLAY}} "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2." + IF X = 1 THEN PRINT "For when they placed it on his head he be-gan to dance a round." + IF X = 2 THEN PRINT "And he on-ly paused a moment when he heard him hol-ler Stop!" + {{Cl|PLAY}} "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4" + IF X = 1 THEN PRINT "Oh, Fros-ty the Snow Man was a-live as he could be," + IF X = 2 THEN PRINT "For, Fros-ty the Snow Man had to hur-ry on his way" + {{Cl|PLAY}} "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2." + IF X = 1 THEN PRINT "and the chil-dren say he could laugh and play just the same as you and me." + IF X = 2 THEN PRINT "but he waved good-bye say-in' Don't you cry, I'll be back a-gain some day." + {{Cl|PLAY}} "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4" NEXT X -PRINT : PRINT "Thump-et-y thump thump, thump-et-y thump thump, look at Fros-ty go." -{{Cl|PLAY}} "t180g8g8g4g4g4a8g8g4g4g4a4g4e4g4d1" -PRINT "Thump-et-y thump thump, thump-et-y thump thump, ov-er the hills of snow." -{{Cl|PLAY}} "t180g8g8g4g4g4a8g8g4g4g4g8g8g4a4b4o3c2c4p1" +PRINT : PRINT "Thump-et-y thump thump, thump-et-y thump thump, look at Fros-ty go." +{{Cl|PLAY}} "t180g8g8g4g4g4a8g8g4g4g4a4g4e4g4d1" +PRINT "Thump-et-y thump thump, thump-et-y thump thump, ov-er the hills of snow." +{{Cl|PLAY}} "t180g8g8g4g4g4a8g8g4g4g4g8g8g4a4b4o3c2c4p1" {{Cl|END}}'' '' {{CodeEnd}} {{small|Greg Rismoen 12/09/84}} @@ -98,11 +98,11 @@ PRINT "Thump-et-y thump thump, thump-et-y thump thump, ov-er the hills of s {{Cl|CONST}} maxx = 512 {{Cl|CONST}} maxy = 512 {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(maxx, maxy, 32) -{{Cl|_TITLE}} "MusicGrid" +{{Cl|_TITLE}} "MusicGrid" cleargrid {{Cl|DO}} - {{Cl|IF}} {{Cl|TIMER}} - t# > 1 / 8 {{Cl|THEN}} cur = (cur + 1) {{Cl|AND (boolean)|AND}} 15: t# = {{Cl|TIMER}} - {{Cl|IF}} cur <> oldcur {{Cl|THEN}} + {{Cl|IF}} {{Cl|TIMER}} - t# > 1 / 8 {{Cl|THEN}} cur = (cur + 1) {{Cl|AND (boolean)|AND}} 15: t# = {{Cl|TIMER}} + {{Cl|IF}} cur <> oldcur {{Cl|THEN}} figuregrid drawgrid playgrid @@ -110,7 +110,7 @@ cleargrid {{Cl|END IF}} domousestuff in$ = {{Cl|INKEY$}} - {{Cl|IF}} in$ = "C" {{Cl|OR (boolean)|OR}} in$ = "c" {{Cl|THEN}} cleargrid + {{Cl|IF}} in$ = "C" {{Cl|OR (boolean)|OR}} in$ = "c" {{Cl|THEN}} cleargrid {{Cl|LOOP}} {{Cl|UNTIL}} in$ = {{Cl|CHR$}}(27) {{Cl|SUB}} drawgrid @@ -156,13 +156,13 @@ scale2 = maxx \ 16 - 2 {{Cl|END SUB}} {{Cl|SUB}} playgrid -n$ = "L16 " -'scale$ = "O1CO1DO1EO1FO1GO1AO1BO2CO2DO2EO2FO2GO2AO2BO3CO3D" -scale$ = "o1fo1go1ao2co2do2fo2go2ao3co3do3fo3go3ao4co4do4fo" +n$ = "L16 " +'scale$ = "O1CO1DO1EO1FO1GO1AO1BO2CO2DO2EO2FO2GO2AO2BO3CO3D" +scale$ = "o1fo1go1ao2co2do2fo2go2ao3co3do3fo3go3ao4co4do4fo" {{Cl|FOR...NEXT|FOR}} y = 15 {{Cl|TO}} 0 {{Cl|STEP}} -1 {{Cl|IF}} grid(cur, y) = 1 {{Cl|THEN}} note$ = {{Cl|MID$}}(scale$, 1 + (15 - y) * 3, 3) - n$ = n$ + note$ + "," 'comma plays 2 or more column notes simultaneously + n$ = n$ + note$ + "," 'comma plays 2 or more column notes simultaneously {{Cl|END IF}} {{Cl|NEXT}} y n$ = {{Cl|LEFT$}}(n$, {{Cl|LEN}}(n$) - 1) @@ -189,7 +189,7 @@ n$ = {{Cl|LEFT$}}(n$, {{Cl|LEN}}(n$) - 1) {{Cl|SCREEN}} 12 ' the following works in other screen modes, too {{Cl|RANDOMIZE}} {{Cl|TIMER}} -{{Cl|PLAY}} "mb l4cf.l8el4fag.l8fl4gl8agl4f.l8fl4a>cl2dl4dl4c.<l8al4afg.l8fl4gl8agl4f.l8dl4dcl2f>l4dc.<l8al4afg.l8fl4g>dc.<l8al4a>cl2dl4dc.<l8al4afg.l8fl4gl8agl4f.l8dl4dcl1f" +{{Cl|PLAY}} "mb l4cf.l8el4fag.l8fl4gl8agl4f.l8fl4a>cl2dl4dl4c.<l8al4afg.l8fl4gl8agl4f.l8dl4dcl2f>l4dc.<l8al4afg.l8fl4g>dc.<l8al4a>cl2dl4dc.<l8al4afg.l8fl4gl8agl4f.l8dl4dcl1f" {{Cl|DIM}} ccs(1 {{Cl|TO}} 9, 1 {{Cl|TO}} 2) ccs(1, 1) = 415: ccs(1, 2) = 289 @@ -211,19 +211,19 @@ ccs(9, 1) = 2: ccs(9, 2) = 2 row = ccs(p, 1) cl = ccs(p, 2) glocate row, cl - gprint "000000000000000000000000000000000000000000000000000000000000000000000" + gprint "000000000000000000000000000000000000000000000000000000000000000000000" glocate row + 1, cl - gprint "0x00x0xxxx0xxxx0xxxx0x0x000x00x0xxxx0x000x000x0x0xxxx0xxxx0xxxx000x00" + gprint "0x00x0xxxx0xxxx0xxxx0x0x000x00x0xxxx0x000x000x0x0xxxx0xxxx0xxxx000x00" glocate row + 2, cl - gprint "0x00x0x00x0x00x0x00x0x0x000xx0x0x0000x000x000x0x0x0000x00x0x00x000x00" + gprint "0x00x0x00x0x00x0x00x0x0x000xx0x0x0000x000x000x0x0x0000x00x0x00x000x00" glocate row + 3, cl - gprint "0xxxx0xxxx0xxxx0xxxx0x0x000x0xx0xxx00x0x0x000x0x0xxx00xxxx0xxxx000x00" + gprint "0xxxx0xxxx0xxxx0xxxx0x0x000x0xx0xxx00x0x0x000x0x0xxx00xxxx0xxxx000x00" glocate row + 4, cl - gprint "0x00x0x00x0x0000x00000x0000x00x0x0000x0x0x0000x00x0000x00x0x0x0000000" + gprint "0x00x0x00x0x0000x00000x0000x00x0x0000x0x0x0000x00x0000x00x0x0x0000000" glocate row + 5, cl - gprint "0x00x0x00x0x0000x00000x0000x00x0xxxx0xx0xx0000x00xxxx0x00x0x00x000x00" + gprint "0x00x0x00x0x0000x00000x0000x00x0xxxx0xx0xx0000x00xxxx0x00x0x00x000x00" glocate row + 6, cl - gprint "000000000000000000000000000000000000000000000000000000000000000000000" + gprint "000000000000000000000000000000000000000000000000000000000000000000000" {{Cl|NEXT}} p {{Cl|SLEEP}} 1 {{Cl|IF...THEN|IF}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} @@ -257,26 +257,26 @@ gposxp = column {{Cl|SHARED}} gscalep {{Cl|SHARED}} gposxp, gposyp {{Cl|SHARED}} gcolorp, gbackcolorp -' # means "use the foreground color here." -' . means "use the background color here." -' _ means "transparent - don't draw this block at all" (you can layer!) -' 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f means "do color attribute 0 to 15." -' any letter after f: "use the foreground color here." +' # means "use the foreground color here." +' . means "use the background color here." +' _ means "transparent - don't draw this block at all" (you can layer!) +' 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f means "do color attribute 0 to 15." +' any letter after f: "use the foreground color here." {{Cl|IF...THEN|IF}} gscalep < 1 {{Cl|THEN}} gscalep = 1 pcolorp = gcolorp {{Cl|FOR...NEXT|FOR}} p = 1 {{Cl|TO}} {{Cl|LEN}}(p$): {{Cl|SELECT CASE}} {{Cl|LCASE$}}({{Cl|MID$}}(p$, p, 1)) - {{Cl|CASE}} "#", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" + {{Cl|CASE}} "#", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z" pcolorp = gcolorp - {{Cl|CASE}} "." + {{Cl|CASE}} "." pcolorp = gbackcolorp - {{Cl|CASE}} "_" + {{Cl|CASE}} "_" pcolorp = -1 - {{Cl|CASE}} "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f" - pcolorp = {{Cl|INSTR}}("0123456789abcdef", {{Cl|LCASE$}}({{Cl|MID$}}(p$, p, 1))) - 1 + {{Cl|CASE}} "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f" + pcolorp = {{Cl|INSTR}}("0123456789abcdef", {{Cl|LCASE$}}({{Cl|MID$}}(p$, p, 1))) - 1 {{Cl|END SELECT}} {{Cl|IF...THEN|IF}} {{Cl|NOT}} pcolorp = -1 {{Cl|THEN}} - {{Cl|IF...THEN|IF}} gscalep > 1 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} gscalep > 1 {{Cl|THEN}} {{Cl|LINE}} ((gposxp - 1) * gscalep, (gposyp - 1) * gscalep)-{{Cl|STEP}}(gscalep - 1, gscalep - 1), pcolorp, BF {{Cl|ELSE}}: {{Cl|PSET}} (gposxp, gposyp), pcolorp @@ -293,43 +293,42 @@ glocate gposyp + 1, 1 'gposyp = gposyp + 1 ''Example 5:'' This example uses [[PRINT]] to good effect as string spacing is ignored by PLAY: {{CodeStart}} '' '' {{Cl|WIDTH}} 59, 28 -{{Cl|PRINT}} <nowiki> -x$ = x$ + " o3 l4 t 0120c ml<f1 ,a 1, " -x$ = x$ + " >c 1, mnf .e 8f am l< e1 ,g " -x$ = x$ + " 1, >c 1, mn g. f8 ga 8g 8m l< " -x$ = x$ + " f2.,a2., >c 2. ,m nf .f 8a ml<f " -x$ = x$ + " ,a,>c,mn >cd2.,<f2 .,d2 .,<b -2 " -x$ = x$ + " .m lb -,>d,f,mn>d ml <c 1, " -x$ = x$ + " <a 1, f1 ,m n> >c .< " -x$ = x$ + " a8 af ml c1 ,< e1 ,g " -x$ = x$ + " " -x$ = x$ + " 1,m n> g.f8ga8g8m l< f1 " -x$ = x$ + " ,d1, <b -1 ,m n> " -x$ = x$ + " >f .d 8d c< f2 ., " -x$ = x$ + " a2 ., c2 .,>f2. ml < b- " -x$ = x$ + " ,> d, f, mn>dml <c 1,< a1 " -x$ = x$ + " ,f 1, mn >> c. <a 8a fm " -x$ = x$ + " lc 2.,< e2 .,g2 .,mn " -x$ = x$ + " >g .f8 gml<b-,>d, f, mn " -x$ = x$ + " " -x$ = x$ + ">d ml <<f2.,a2., > c2.,m n> c." -x$ = x$ + " <a 8a ml <e, g, >c ,m n>" -x$ = x$ + " cm l< <b -2 ., >d 2. ,f 2." -x$ = x$ + " ,mn> d2.ml< <b -, >d ,f ,m n>" -x$ = x$ + " dm l<<f1, a1,>c1,mn >c.<a 8a fm" -x$ = x$ + " lc 1, <e1,g1,mn>g .f 8g a8 g8" -x$ = x$ + " ml << b- 1, >d 1, " -x$ = x$ + " f1 ,mn>f.d8dc l1 ml f, c, <a ,f"</nowiki> +{{Cl|PRINT}} <nowiki> +x$ = x$ + " o3 l4 t 0120c ml<f1 ,a 1, " +x$ = x$ + " >c 1, mnf .e 8f am l< e1 ,g " +x$ = x$ + " 1, >c 1, mn g. f8 ga 8g 8m l< " +x$ = x$ + " f2.,a2., >c 2. ,m nf .f 8a ml<f " +x$ = x$ + " ,a,>c,mn >cd2.,<f2 .,d2 .,<b -2 " +x$ = x$ + " .m lb -,>d,f,mn>d ml <c 1, " +x$ = x$ + " <a 1, f1 ,m n> >c .< " +x$ = x$ + " a8 af ml c1 ,< e1 ,g " +x$ = x$ + " " +x$ = x$ + " 1,m n> g.f8ga8g8m l< f1 " +x$ = x$ + " ,d1, <b -1 ,m n> " +x$ = x$ + " >f .d 8d c< f2 ., " +x$ = x$ + " a2 ., c2 .,>f2. ml < b- " +x$ = x$ + " ,> d, f, mn>dml <c 1,< a1 " +x$ = x$ + " ,f 1, mn >> c. <a 8a fm " +x$ = x$ + " lc 2.,< e2 .,g2 .,mn " +x$ = x$ + " >g .f8 gml<b-,>d, f, mn " +x$ = x$ + " " +x$ = x$ + ">d ml <<f2.,a2., > c2.,m n> c." +x$ = x$ + " <a 8a ml <e, g, >c ,m n>" +x$ = x$ + " cm l< <b -2 ., >d 2. ,f 2." +x$ = x$ + " ,mn> d2.ml< <b -, >d ,f ,m n>" +x$ = x$ + " dm l<<f1, a1,>c1,mn >c.<a 8a fm" +x$ = x$ + " lc 1, <e1,g1,mn>g .f 8g a8 g8" +x$ = x$ + " ml << b- 1, >d 1, " +x$ = x$ + " f1 ,mn>f.d8dc l1 ml f, c, <a ,f"</nowiki> {{Cl|PRINT}} x$; {{Cl|PLAY}} x '' '' -{{CodeEnd}}{{small|Code by Johnny B}} +{{CodeEnd}}{{small|Code by Luke}} ''See also:''' -* [[PLAY(n)]], [[ON PLAY(n)]] * [[SOUND]], [[DRAW]] * [[_SNDRAW]] (play frequency waves) * [[_SNDOPEN]] (play sound files) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PMAP.txt b/internal/help/PMAP.txt index 969323d6b..3402e02d2 100644 --- a/internal/help/PMAP.txt +++ b/internal/help/PMAP.txt @@ -60,4 +60,4 @@ Y = {{Cl|PMAP}}(479, 3) ' Y = 200 * [[VIEW PRINT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/POINT.txt b/internal/help/POINT.txt index c5a016107..85870814c 100644 --- a/internal/help/POINT.txt +++ b/internal/help/POINT.txt @@ -1,15 +1,15 @@ The '''POINT''' function returns the pixel [[COLOR]] attribute at a specified graphics coordinate or the current graphic cursor position. -''Color'' {{PageSyntax}} +== ''Color'' Syntax == ::::color_attribute% = '''POINT ('''''column%, row%''''')''' -''Graphic cursor position'' {{PageSyntax}} +== ''Graphic cursor position'' Syntax == ::::pointer_coordinate% = '''POINT('''{0|1|2|3}''')''' -{{Parameters}} +{{PageParameters}} Graphic Color syntax: * The [[INTEGER]] ''column'' and ''row'' coordinates designate the pixel position color on the screen to read. @@ -35,14 +35,14 @@ Graphic cursor position syntax: * '''POINT cannot be used in SCREEN 0!''' Use the [[SCREEN (function)|SCREEN]] function to point text character codes and colors in SCREEN 0. -<center>'''POINT in Qbasic Legacy Graphic SCREEN Modes:'''</center> +<center>'''POINT in QBasic Legacy Graphic SCREEN Modes:'''</center> * The [[INTEGER]] color attributes returned are limited by the number of colors in the legacy SCREEN mode used. * ''Column'' and ''row'' [[INTEGER]] parameters denote the graphic pixel coordinate to read. -* In '''QB64''' the offscreen or off image value returned is -1. Use IF POINT(x, y) <> -1 THEN... -* In Qbasic the coordinates MUST be on the screen or an [[ERROR Codes|Illegal Function Call error]] will occur. +* In '''QB64''' the offscreen or off image value returned is -1. Use IF POINT(x, y) <> -1 THEN... +* In QBasic the coordinates MUST be on the screen or an [[ERROR Codes|Illegal Function Call error]] will occur. -<center>'''POINT in QB64 32 Bit Graphic [[_NEWIMAGE]] or [[_LOADIMAGE]] Modes:'''</center> +<center>'''POINT in QB64 32 Bit Graphic [[_NEWIMAGE]] or [[_LOADIMAGE]] Modes:'''</center> * Returns [[_UNSIGNED]] [[LONG]] 32 bit color values. Use [[_UNSIGNED]] values when you don't want negative values. * '''[[_UNSIGNED]] [[LONG]] variables should be used when comparing POINT returns with [[_RGB]] or [[_RGB32]] [[_ALPHA]] bit values''' * Convert 32 bit color values to RGB intensities(0 to 255) using the [[_RED32]], [[_GREEN32]] and [[_BLUE32]] functions. @@ -56,12 +56,12 @@ Graphic cursor position syntax: {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) {{Cl|CLS}} , {{Cl|_RGB}}(255, 255, 255) 'makes the background opaque white -{{Cl|PRINT}} "POINT(100, 100) ="; {{Cl|POINT}}(100, 100) +{{Cl|PRINT}} "POINT(100, 100) ="; {{Cl|POINT}}(100, 100) clr = {{Cl|POINT}}(100, 100) -{{Cl|PRINT}} "Variable clr = "; clr -{{Cl|IF...THEN|IF}} clr = {{Cl|_RGB}}(255, 255, 255) {{Cl|THEN}} {{Cl|PRINT}} "Long OK" -{{Cl|IF...THEN|IF}} {{Cl|POINT}}(100, 100) = {{Cl|_RGB}}(255, 255, 255) {{Cl|THEN}} {{Cl|PRINT}} "_RGB OK" -{{Cl|IF...THEN|IF}} {{Cl|POINT}}(100, 100) = clr {{Cl|THEN}} {{Cl|PRINT}} "Type OK" 'will not print with a LONG variable type'' '' +{{Cl|PRINT}} "Variable clr = "; clr +{{Cl|IF...THEN|IF}} clr = {{Cl|_RGB}}(255, 255, 255) {{Cl|THEN}} {{Cl|PRINT}} "Long OK" +{{Cl|IF...THEN|IF}} {{Cl|POINT}}(100, 100) = {{Cl|_RGB}}(255, 255, 255) {{Cl|THEN}} {{Cl|PRINT}} "_RGB OK" +{{Cl|IF...THEN|IF}} {{Cl|POINT}}(100, 100) = clr {{Cl|THEN}} {{Cl|PRINT}} "Type OK" 'will not print with a LONG variable type'' '' {{CodeEnd}} :'''Note:''' Change the DIM ''clr'' variable type to [[LONG]] to see how the last IF statement doesn't PRINT as shown in the output below: {{OutputStart}}POINT(100, 100) = 4294967295 @@ -72,26 +72,26 @@ _RGB OK -''Example 2:'' Using a POINT mouse routine to get the 32 bit color values of the QB64 Bee. [http://www.qb64.net/forum/index.php Download image from top of Forum]. +''Example 2:'' Using a POINT mouse routine to get the 32 bit color values of an image. {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) -{{Cl|_TITLE}} "Mouse {{Cl|POINT}}er 32" +{{Cl|_TITLE}} "Mouse {{Cl|POINT}}er 32" -'{{Cl|LINE INPUT}} "Enter an image file: ", image$ 'use quotes around file names with spaces -image$ = "QB64bee.png" 'up to 320 X 240 with current {{Cl|_PUTIMAGE}} settings +'{{Cl|LINE INPUT}} "Enter an image file: ", image$ 'use quotes around file names with spaces +image$ = "QB64bee.png" 'up to 320 X 240 with current {{Cl|_PUTIMAGE}} settings i& = {{Cl|_LOADIMAGE}}(image$, 32) -{{Cl|IF...THEN|IF}} i& >= -1 {{Cl|THEN}} {{Cl|BEEP}}: {{Cl|PRINT}} "Could {{Cl|NOT}} load image!": {{Cl|END}} +{{Cl|IF...THEN|IF}} i& >= -1 {{Cl|THEN}} {{Cl|BEEP}}: {{Cl|PRINT}} "Could {{Cl|NOT}} load image!": {{Cl|END}} w& = {{Cl|_WIDTH (function)|_WIDTH}}(i&): h& = {{Cl|_HEIGHT}}(i&) -{{Cl|PRINT}} "Make background transparent?(Y\N)"; +{{Cl|PRINT}} "Make background transparent?(Y\N)"; BG$ = {{Cl|UCASE$}}({{Cl|INPUT$}}(1)) {{Cl|PRINT}} BG$ {{Cl|_DELAY}} 1 '{{Cl|CLS}} 'commented to keep background alpha 0 -{{Cl|IF...THEN|IF}} BG$ = "Y" {{Cl|THEN}} {{Cl|_CLEARCOLOR}} {{Cl|_RGB32}}(255, 255, 255), i& 'make white Background transparent +{{Cl|IF...THEN|IF}} BG$ = "Y" {{Cl|THEN}} {{Cl|_CLEARCOLOR}} {{Cl|_RGB32}}(255, 255, 255), i& 'make white Background transparent {{Cl|_PUTIMAGE}} (320 - w&, 240 - h&)-((2 * w&) + (320 - w&), (2 * h&) + (240 - h&)), i&, 0 {{Cl|_FREEIMAGE}} i& @@ -106,10 +106,10 @@ BG$ = {{Cl|UCASE$}}({{Cl|INPUT$}}(1)) g = {{Cl|_GREEN32}}(c&) b = {{Cl|_BLUE32}}(c&) a = {{Cl|_ALPHA32}}(c&) - {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} mx; my, "R:"; r, "G:"; g, "B:"; b, "A:"; a; " " - {{Cl|LOCATE}} 2, 2: {{Cl|PRINT}} "HTML Color: {{Cl|&H}}" + {{Cl|RIGHT$}}({{Cl|HEX$}}(c&), 6) + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} mx; my, "R:"; r, "G:"; g, "B:"; b, "A:"; a; " " + {{Cl|LOCATE}} 2, 2: {{Cl|PRINT}} "HTML Color: {{Cl|&H}}" + {{Cl|RIGHT$}}({{Cl|HEX$}}(c&), 6) {{Cl|LOOP}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" {{Cl|END}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} @@ -148,7 +148,6 @@ BG$ = {{Cl|UCASE$}}({{Cl|INPUT$}}(1)) * [[SCREEN]], [[SCREEN (function)]] {{text|(text pointer function)}} * [[GET (graphics statement)]], [[PUT (graphics statement)]] * [[Bitmaps]], [[Creating Sprite Masks]], [[Text Using Graphics]] (Demo) -* [http://www.qb64.net/forum/index.php?topic=11052.0 Reading pixel colors faster using _MEMIMAGE] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/POKE.txt b/internal/help/POKE.txt index 73e6ec449..519708a83 100644 --- a/internal/help/POKE.txt +++ b/internal/help/POKE.txt @@ -51,7 +51,7 @@ The '''POKE''' statement sets the value of a specified memory address offset. '' {{Cl|POKE}} a&, {{Cl|PEEK}}((a& * 2) {{Cl|AND (boolean)|AND}} {{Cl|&H}}FFFF&) + 1 {{Cl|NEXT}} {{Cl|_LIMIT}} 25 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|DEF SEG}} '' '' {{CodeEnd}} @@ -67,7 +67,7 @@ selection = 0 'the screen Y coordinate of the previously highlighted item {{Cl|IF}} selection {{Cl|THEN}} selectRow selection, minX, maxX, 0 x = {{Cl|CINT}}({{Cl|_MOUSEX}}) y = {{Cl|CINT}}({{Cl|_MOUSEY}}) - {{Cl|IF}} x >= minX {{Cl|AND (boolean)|AND}} x <= maxX {{Cl|AND (boolean)|AND}} y >= minY {{Cl|AND (boolean)|AND}} y <= maxY {{Cl|THEN}} + {{Cl|IF}} x >= minX {{Cl|AND (boolean)|AND}} x <= maxX {{Cl|AND (boolean)|AND}} y >= minY {{Cl|AND (boolean)|AND}} y <= maxY {{Cl|THEN}} selection = y {{Cl|ELSE}} selection = 0 @@ -76,7 +76,7 @@ selection = 0 'the screen Y coordinate of the previously highlighted item {{Cl|IF}} selection {{Cl|THEN}} SelectRow selection, minX, maxX, 2 {{Cl|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} {{Cl|LOCATE}} 1, 2: {{Cl|PRINT}} x, y, selection {{Cl|END IF}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SUB}} SelectRow (y, x1, x2, col) {{Cl|DEF SEG}} = {{Cl|&H}}B800 @@ -102,4 +102,4 @@ addr& = (x1 - 1 + (y - 1) * {{Cl|_WIDTH (function)|_WIDTH}}) * 2 + 1 * [[PEEK and POKE Library]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/POS.txt b/internal/help/POS.txt index 439eecb48..63a11ded6 100644 --- a/internal/help/POS.txt +++ b/internal/help/POS.txt @@ -15,10 +15,10 @@ The '''POS''' function returns the current print cursor text column position. ''Example:'' Column positions after prints. {{CodeStart}} '' '' {{Cl|PRINT}} {{Cl|POS}}(0) 'column position always starts on 1 at top of new or after {{Cl|CLS}} -{{Cl|PRINT}} "hello"; 'column position is 6 on same row immediately after text +{{Cl|PRINT}} "hello"; 'column position is 6 on same row immediately after text {{Cl|PRINT}} {{Cl|POS}}(0) {{Cl|PRINT}} 'start new row -{{Cl|PRINT}} "hello", 'column position is 15 on same row (normally tabs 9 spaces) +{{Cl|PRINT}} "hello", 'column position is 15 on same row (normally tabs 9 spaces) {{Cl|PRINT}} {{Cl|POS}}(0) {{Cl|PRINT}} 'start new row {{Cl|PRINT}} @@ -32,4 +32,4 @@ The '''POS''' function returns the current print cursor text column position. * [[_PRINTSTRING]] {{text|(graphic position print)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PRESET.txt b/internal/help/PRESET.txt index ea58a1c14..da685bdef 100644 --- a/internal/help/PRESET.txt +++ b/internal/help/PRESET.txt @@ -24,7 +24,7 @@ The '''PRESET''' graphic [[SCREEN]] statement turns a pixel at a coordinate to t {{CodeStart}} '' '' SCREEN 12 {{Cl|PRESET}}(100, 100) -{{Cl|DRAW}} "C12 U20 R20 D20 L20" '' '' +{{Cl|DRAW}} "C12 U20 R20 D20 L20" '' '' {{CodeEnd}} :''Explanation:'' The [[DRAW]] string required a color designation as PRESET defaulted to the black background color. @@ -42,27 +42,27 @@ TERMINATE {{Cl|END}} {{Cl|SUB}} ARRAY -c$(1) = "Armenia H040914" -c$(2) = "Austria H041504" -c$(3) = "Belgium V001404" -c$(4) = "Bulgaria H150204" -c$(5) = "Chad V011404" -c$(6) = "C“te D'Ivoire V061502" -c$(7) = "Estonia H090015" -c$(8) = "France V011504" -c$(9) = "Germany H000414" -c$(10) = "Hungary H041502" -c$(11) = "Ireland V021506" -c$(12) = "Italy V021504" -c$(13) = "Lithuania H140204" -c$(14) = "Luxembourg H041509" -c$(15) = "Mali V021404" -c$(16) = "Netherlands H041501" -c$(17) = "Nigeria V021502" -c$(18) = "Romania V091404" -c$(19) = "Russia H150104" -c$(20) = "Sierra Leone H021509" -c$(21) = "Yemen H041500" +c$(1) = "Armenia H040914" +c$(2) = "Austria H041504" +c$(3) = "Belgium V001404" +c$(4) = "Bulgaria H150204" +c$(5) = "Chad V011404" +c$(6) = "C“te D'Ivoire V061502" +c$(7) = "Estonia H090015" +c$(8) = "France V011504" +c$(9) = "Germany H000414" +c$(10) = "Hungary H041502" +c$(11) = "Ireland V021506" +c$(12) = "Italy V021504" +c$(13) = "Lithuania H140204" +c$(14) = "Luxembourg H041509" +c$(15) = "Mali V021404" +c$(16) = "Netherlands H041501" +c$(17) = "Nigeria V021502" +c$(18) = "Romania V091404" +c$(19) = "Russia H150104" +c$(20) = "Sierra Leone H021509" +c$(21) = "Yemen H041500" {{Cl|END SUB}} {{Cl|SUB}} DISPLAY.FLAG (calc%) @@ -70,13 +70,13 @@ f% = {{Cl|VAL}}({{Cl|MID$}}(x$(calc%), 2, 2)) s% = {{Cl|VAL}}({{Cl|MID$}}(x$(calc%), 4, 2)) t% = {{Cl|VAL}}({{Cl|MID$}}(x$(calc%), 6, 2)) -{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(x$(calc%), 1) = "V" {{Cl|THEN}} +{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(x$(calc%), 1) = "V" {{Cl|THEN}} {{Cl|LINE}} (120, 225)-(253, 465), f%, BF {{Cl|LINE}} (254, 225)-(385, 465), s%, BF {{Cl|LINE}} (386, 225)-(519, 465), t%, BF {{Cl|END IF}} -{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(x$(calc%), 1) = "H" {{Cl|THEN}} +{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(x$(calc%), 1) = "H" {{Cl|THEN}} {{Cl|LINE}} (120, 225)-(519, 305), f%, BF {{Cl|LINE}} (120, 306)-(519, 386), s%, BF {{Cl|LINE}} (120, 387)-(519, 465), t%, BF @@ -87,15 +87,15 @@ t% = {{Cl|VAL}}({{Cl|MID$}}(x$(calc%), 6, 2)) x% = 2: y% = 4 DO - {{Cl|WHILE}} (x% <> prevx% {{Cl|OR (boolean)|OR}} y% <> prevy%) {{Cl|AND (boolean)|AND}} k$ <> {{Cl|CHR$}}(27) + {{Cl|WHILE}} (x% <> prevx% {{Cl|OR (boolean)|OR}} y% <> prevy%) {{Cl|AND (boolean)|AND}} k$ <> {{Cl|CHR$}}(27) k$ = {{Cl|INKEY$}} - x% = x% + (k$ = ({{Cl|CHR$}}(0) + "K") {{Cl|AND (boolean)|AND}} x% > 1) + {{Cl|ABS}}(k$ = ({{Cl|CHR$}}(0) + "M") {{Cl|AND (boolean)|AND}} x% < 3) - y% = y% + (k$ = ({{Cl|CHR$}}(0) + "H") {{Cl|AND (boolean)|AND}} y% > 1) + {{Cl|ABS}}(k$ = ({{Cl|CHR$}}(0) + "P") {{Cl|AND (boolean)|AND}} y% < 7) + x% = x% + (k$ = ({{Cl|CHR$}}(0) + "K") {{Cl|AND (boolean)|AND}} x% > 1) + {{Cl|ABS}}(k$ = ({{Cl|CHR$}}(0) + "M") {{Cl|AND (boolean)|AND}} x% < 3) + y% = y% + (k$ = ({{Cl|CHR$}}(0) + "H") {{Cl|AND (boolean)|AND}} y% > 1) + {{Cl|ABS}}(k$ = ({{Cl|CHR$}}(0) + "P") {{Cl|AND (boolean)|AND}} y% < 7) calc% = (x% - 1) * 7 + y%: {{Cl|LOCATE}} 14, 18: {{Cl|PRINT}} c$(calc%); {{Cl|SPACE$}}(10) x1% = 140 + (x% - 1) * 128 x2% = x1% + {{Cl|LEN}}(c$(calc%)) * 8 + 7 y1% = 48 + y% * 16 - {{Cl|IF...THEN|IF}} x1% <> prevx1% {{Cl|OR (boolean)|OR}} y1% <> prevy1% {{Cl|THEN}} + {{Cl|IF...THEN|IF}} x1% <> prevx1% {{Cl|OR (boolean)|OR}} y1% <> prevy1% {{Cl|THEN}} {{Cl|IF...THEN|IF}} g% {{Cl|THEN}} {{Cl|PUT (graphics statement)|PUT}}(prevx1%, prevy1%), gg%(), {{Cl|PSET}} {{Cl|GET (graphics statement)|GET}}(x1%, y1%)-(x2%, y1% + 16), gg%(): g% = 1 {{Cl|PUT (graphics statement)|PUT}}(x1%, y1%), gg%(), {{Cl|PRESET}} @@ -119,7 +119,7 @@ c% = 1 c% = c% + 1 {{Cl|NEXT}} y%, x% -{{Cl|COLOR}} 11: {{Cl|LOCATE}} 3, 20: {{Cl|PRINT}} "Use the Cursor Keys to Select a Country:" +{{Cl|COLOR}} 11: {{Cl|LOCATE}} 3, 20: {{Cl|PRINT}} "Use the Cursor Keys to Select a Country:" {{Cl|LINE}} (119, 224)-(520, 466), 7, B {{Cl|END SUB}} @@ -139,4 +139,4 @@ c% = 1 * [[CIRCLE]], [[LINE]], [[PSET]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PRINT.txt b/internal/help/PRINT.txt index 4a16d511d..f613cc0a1 100644 --- a/internal/help/PRINT.txt +++ b/internal/help/PRINT.txt @@ -5,7 +5,7 @@ The {{KW|PRINT}} statement prints numeric or string expressions to the program s ::: '''PRINT''' [{{Parameter|expression}}] [{;|,] [''expression''...] -{{Parameters}} +{{PageParameters}} * {{Parameter|expression}} is a numeric or string expression or list of expressions to be written to the screen. End quotes will not be displayed in strings. * The print statement can be followed by a [[semicolon]] to stop the print cursor or a [[comma]] to tab space the next print. @@ -17,14 +17,14 @@ The {{KW|PRINT}} statement prints numeric or string expressions to the program s ** [[SPACE$]]({{Parameter|n%}}) or [[SPC]]({{Parameter|n%}}) - specifies that {{Parameter|n%}} space characters will be printed. ** [[TAB]]({{Parameter|column%}}) - specifies that the print cursor is to move to column number {{Parameter|column%}}. If the print cursor is already beyond that column, it is moved to the designated column on the next row. * A ''separator'' is used to separate multiple expressions and specifies how the print cursor is to be moved: -** [[Semicolon]](;) - specifies that the print cursor stops at the end of the printed ''expression'' and may append later ''expressions'' or prints. PRINT ; or PRINT ""; will stop cursor movement and append later prints. Ending [[semicolon]]s can also stop screen roll. +** [[Semicolon]](;) - specifies that the print cursor stops at the end of the printed ''expression'' and may append later ''expressions'' or prints. PRINT ; or PRINT ""; will stop cursor movement and append later prints. Ending [[semicolon]]s can also stop screen roll. ** [[Comma]](,) - specifies that the print cursor is to move to the next 14-column tab-stop. If the print cursor is at column 56 or greater, it is moved to the next row at column 1. When used after an ''expression'' it may Tab-stop append later prints. ** [[+|Plus]](+) uses [[concatenation]] to add [[STRING]] expressions ONLY with no spacing. '''Cannot combine numerical ''expression''s!''' ** If a {{Parameter|separator}} is not used at the end of the expression list, the print cursor moves to the next row at column 1. * When '''printing numerical''' ''expressions'' values, the following rules are used: ** If the value is positive, the number is prefixed with a space character, otherwise, the number is prefixed with a negative sign (-). ** If the value is an integer (whole number), no decimal point or fractional part will be printed. -** If the value is not an [[INTEGER|integer]](whole number) and has zero for a coefficient, no leading zero is printed. EX: -0.123 prints "-.123 " +** If the value is not an [[INTEGER|integer]](whole number) and has zero for a coefficient, no leading zero is printed. EX: -0.123 prints "-.123 " ** If the expression is in [[scientific notation]], the number is also printed in scientific notation. ** The number is [[PRINT|printed]] with a space after it unless [[STR$]](number) is used to convert it to string text. ** Numerical values MUST be added to a PRINT statement string using [[comma]]s or [[semicolon]]s on each side of the value or by using [[STR$]] to convert the value to a string to use [[concatenation]] (+ string addition). @@ -46,29 +46,29 @@ The {{KW|PRINT}} statement prints numeric or string expressions to the program s ''Example 1:'' Using semicolons, comma tabs or concatenation to insert [[ASCII]] characters and numbers in a PRINT: {{CodeStart}} -{{Cl|PRINT}} CHR$(34); "Hello world!"; CHR$(34) ' adding quotation marks +{{Cl|PRINT}} CHR$(34); "Hello world!"; CHR$(34) ' adding quotation marks {{Cl|PRINT}} 123 'demonstrates the positive leading space -a$ = "Hello country!": a = 321: b = -321 +a$ = "Hello country!": a = 321: b = -321 {{Cl|PRINT}} a$, a ' demonstrates comma in statement {{Cl|PRINT}} a$; a ' demonstrates semicolon in statement {{Cl|PRINT}} a$ + {{Cl|STR$}}(b) ' concatenation of string numerical values only -? "Hello city!" ' a ? changes to PRINT after moving cursor from the code line in IDE +? "Hello city!" ' a ? changes to PRINT after moving cursor from the code line in IDE {{CodeEnd}} -{{OutputStart}}"Hello world!" +{{OutputStart}}"Hello world!" 123 Hello country! 321 Hello country! 321 Hello country!-321 Hello city! {{OutputEnd}} -:First PRINT prints the text between two quotation marks, then it prints the value 123, notice that there are no quotation marks when printing the value, quotation marks mean that it will be treated like a literal string of text. a$ is set to "Hello country" and 'a' is set to the value 321, the dollar sign is used when a variable holds the text string. The contents of a$ is then printed and the "," means that the value of 'a' is printed separated by a tab and ";" means that there is no separation from the other text except for the leading positive value space. +:First PRINT prints the text between two quotation marks, then it prints the value 123, notice that there are no quotation marks when printing the value, quotation marks mean that it will be treated like a literal string of text. a$ is set to "Hello country" and 'a' is set to the value 321, the dollar sign is used when a variable holds the text string. The contents of a$ is then printed and the "," means that the value of 'a' is printed separated by a tab and ";" means that there is no separation from the other text except for the leading positive value space. ''Example 2:'' Changing colors in a line of text using semicolons with colon separators between PRINTs on the same code line. {{CodeStart}} -{{Cl|COLOR}} 12: {{Cl|PRINT}} "Start red "; : {{Cl|COLOR}} 10: {{Cl|PRINT}} "and end green." -{{Cl|COLOR}} 11: {{Cl|PRINT}} "Start aqua "; -{{Cl|COLOR}} 14: {{Cl|PRINT}} "and end blue." +{{Cl|COLOR}} 12: {{Cl|PRINT}} "Start red "; : {{Cl|COLOR}} 10: {{Cl|PRINT}} "and end green." +{{Cl|COLOR}} 11: {{Cl|PRINT}} "Start aqua "; +{{Cl|COLOR}} 14: {{Cl|PRINT}} "and end blue." {{CodeEnd}} {{OutputStart}}{{text|Start red|#FF1515}} {{text|and end green.|#15FF15}} {{text|Start aqua|#15FFFF}} {{text|and end blue.|#0000FF}} {{OutputEnd}} @@ -84,4 +84,4 @@ Hello city! * [[Text Using Graphics]] (Demo) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PRINT_(TCP%2FIP_statement).txt b/internal/help/PRINT_(TCP%2FIP_statement).txt deleted file mode 100644 index 7e025f655..000000000 --- a/internal/help/PRINT_(TCP%2FIP_statement).txt +++ /dev/null @@ -1,82 +0,0 @@ -The '''PRINT #''' statement sends QB64 formatted data to an open connection handle. - - -{{PageSyntax}} -:: PRINT #connection_handle, value - - -* A handle is opened using the [[_OPENHOST]], [[_OPENCLIENT]] or [[_OPENCONNECTION]] '''QB64''' function returns. -* There is no way to verify that the information has been sent. -* Always check connections to handles before sending data. - - -''Availability:'' -* Version 0.954 and older. For version 1.000 and up use [[PUT (TCP/IP statement)]] - - -:::::'''Communicating using QB64 Formatted messages:''' - -* Benefit: QB64 handles sending and receiving data in messages. It knows how long each message is and waits for the full message to arrive, avoiding partial messages which have been fragmented from being returned. -* Disadvantage: Really only useful for communicating with other QB64 programs (or programs aware of QB64's [[TCP/IP Message Format]]). - -::::'''See''' [[TCP/IP Message Format]] '''for the QB64 header information''' - - - -:'''NOTE:''' In the following examples 'h' denotes the host's handle, 'c' the client's handle and 'o' as other handles. - - -''Example 1:'' Host sends one variable value at a time while reading other messages. -{{CodeStart}} - '''PRINT #'''c, a$ ' sends the string a$ (size is known to INPUT #) - '''PRINT #'''c, x% ' if x was equal to 5, this would send ' 5 ' (without the quotes) - {{Cl|INPUT (TCP/IP statement)|INPUT}} #o, a$ ' reads the next available message (if arrived) or sets a$ = "" -{{CodeEnd}} - -''Explanation:'' INPUT #o, x% effectively reads the next message, performs the VAL function upon it and stores the result in x% (if any part of this process isn't complete then [[EOF]](o) will return -1. - - - -''Example 2:'' Host sends multiple values using PRINT #. -{{CodeStart}} - '''PRINT #'''c, 3; "Hello "; "World"; ' client sends data - '''PRINT #'''c, "!" -{{CodeEnd}} - - -''Example 3:'' Client reads host's Example 2 data as one value using [[LEN]]. - -{{CodeStart}} - t! = {{Cl|TIMER}} + 3 - DO - {{Cl|_LIMIT}} 1000 'limits CPU usage - {{Cl|INPUT (TCP/IP statement)|INPUT}} #h, a$ - LOOP UNTIL {{Cl|LEN}}(a$) OR TIMER > t! -{{CodeEnd}} - -''Explanation:'' The loop runs 3 seconds or until the full data arrives. The value of a$ is " 3 Hello World!" or "" if all 4 messages haven't arrived yet. - - -''Example 4:'' Client reads host's Example 2 data as one value using [[EOF]]. -{{CodeStart}} - t! = {{Cl|TIMER}} + 3 - DO - {{Cl|_LIMIT}} 1000 'limits CPU usage - {{Cl|INPUT (TCP/IP statement)|INPUT}} #h, a%,b$,c$,d$ ' reads data from host until EOF(h) = 0 - IF TIMER > t! THEN {{Cl|EXIT DO}} ' timeout read if over 3 seconds - LOOP WHILE {{Cl|EOF}}(h) -{{CodeEnd}} - -''Explanation:'' EOF returns -1 until all variables have been filled with their appropriate data. The 3 second TIMER loop allows other code execution. - - -::::::::''See the example in [[_OPENHOST]].'' - - -{{PageSeeAlso}} -* [[INPUT (TCP/IP statement)]], [[PUT (TCP/IP statement)]], [[GET (TCP/IP statement)]] -* [[_OPENHOST]], [[_OPENCLIENT]], [[_OPENCONNECTION]], [[PRINT (file statement)]] -* [[TCP/IP Message Format]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/PRINT_(file_statement).txt b/internal/help/PRINT_(file_statement).txt index f035f9e82..04cd16fbd 100644 --- a/internal/help/PRINT_(file_statement).txt +++ b/internal/help/PRINT_(file_statement).txt @@ -5,7 +5,7 @@ The [[PRINT (file statement)|PRINT #]] statement prints numeric or string expres ::: '''PRINT #''fileNumber&''''', [ [{{Parameter|expression}}] [{;|,] ... ] -{{Parameters}} +{{PageParameters}} * {{Parameter|fileNumber&}} is the file number of a file or device opened for writing. See {{KW|OPEN}}. * {{Parameter|expression}} is a numeric or string expression to be written to the file. Quotes will be removed from strings. * The print statement can be followed by a [[semicolon]] to stop the print cursor or a [[comma]] to tab the next print. @@ -23,17 +23,17 @@ The [[PRINT (file statement)|PRINT #]] statement prints numeric or string expres * When printing literal or variable numerical values the following rules apply: ** If the value is positive, the number is prefixed with a space character, otherwise, the number is prefixed with a negative sign (-). ** If the value is an [[INTEGER]] (whole number), no decimal point or fractional part will be written. -** If the value is not an integer (whole number) and has zero for a coefficient, no leading zero is written. For example, -0.123 is written as "-.123 " +** If the value is not an integer (whole number) and has zero for a coefficient, no leading zero is written. For example, -0.123 is written as "-.123 " ** If a numeric literal is in scientific notation, the number is also written in scientific notation. [[PRINT USING (file statement)|PRINT #, USING]] can return actual rounded numerical values in string form. ** The numerical value is always followed by a space character unless [[STR$]] is used to convert it to a string value. -* Whenever [[PRINT (file statement)|PRINT #]] moves the file cursor to a new file row, a carriage return character ({{KW|CHR$|CHR$(13)}}) followed by a line feed character ({{KW|CHR$|CHR$(10)}}) is written. The combination are referred to as the "CRLF" character. +* Whenever [[PRINT (file statement)|PRINT #]] moves the file cursor to a new file row, a carriage return character ({{KW|CHR$|CHR$(13)}}) followed by a line feed character ({{KW|CHR$|CHR$(10)}}) is written. The combination are referred to as the "CRLF" character. * '''Note: [[RANDOM]] and [[BINARY]] files are not affected by PRINT # statements to them and will create a syntax error in QB64!''' ''Example:'' Prints data to a text file sequentially and reads it back to the program screen as one line of text. {{CodeStart}} '' '' -filename$ = "testfile.dat" -x = 1: y = 2: z$ = "Three" +filename$ = "testfile.dat" +x = 1: y = 2: z$ = "Three" {{Cl|OPEN}} filename$ {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 'opens and clears an existing file or creates new empty file @@ -41,7 +41,7 @@ x = 1: y = 2: z$ = "Three" {{Cl|CLOSE}} #1 -{{Cl|PRINT}} "File created with data. Press a key!" +{{Cl|PRINT}} "File created with data. Press a key!" K$ = {{Cl|INPUT$}}(1) 'press a key @@ -60,17 +60,17 @@ K$ = {{Cl|INPUT$}}(1) 'press a key {{TextStart}} 1 2 Three'' '' {{TextEnd}} : ''Screen output:'' [[PRINT]] string values will not display enclosing quotation marks. [[WRITE]] screen displays will. {{OutputStart}} 1 2 Three -" 1 2 Three" +" 1 2 Three" {{OutputEnd}} {{PageSeeAlso}} * [[SPC]], [[SPACE$]], [[TAB]] * [[PRINT USING (file statement)|PRINT #, USING]] -* [[PRINT]], [[PRINT (TCP/IP statement)]] +* [[PRINT]] * [[WRITE (file statement)|WRITE #]], [[INPUT (file statement)|INPUT #]] * [[LINE INPUT (file statement)|LINE INPUT #]] * [[OPEN]], [[LPRINT]], [[WRITE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PRINT_USING.txt b/internal/help/PRINT_USING.txt index 1f0020c19..a21fd2900 100644 --- a/internal/help/PRINT_USING.txt +++ b/internal/help/PRINT_USING.txt @@ -1,35 +1,39 @@ -The '''PRINT USING''' statement is used to [[PRINT]] formatted data to the Screen or a file using a [[STRING]] template. +The [[PRINT USING]] statement is used to [[PRINT]] formatted data to the Screen or a file using a [[STRING]] template. {{PageSyntax}} :: '''PRINT''' [''text$''{;|,}] '''USING''' ''template$''; ''variable''[; ...][{;|,}] -{{Parameters}} +{{PageParameters}} * Literal or variable [[STRING]] ''text$'' can be placed between PRINT and USING or it can be included in the ''template''. * A [[semicolon]] or [[comma]] may follow the ''text'' to stop or tab the print cursor before the ''template'' [[PRINT]]. -* The literal or variable [[STRING]] ''template'' should use the template symbols to display each variable [[type]] in the list following it. -* The list of data ''variables'' used in the ''template'' are '''separated by semicolons''' after the template string value. -* In '''QB64''' ONE [[semicolon]] or [[comma]] may follow the variable list to stop the print cursor for pending prints. QB only allowed a semicolon. +* The literal or variable [[STRING]] ''template'' should use the template symbols to display each variable [[Variable Types|type]] in the list following it. +* The list of data ''variables'' used in the ''template'' are separated by semicolons after the template string value. +* In QB64 one [[semicolon]] or [[comma]] may follow the variable list to stop the print cursor for pending prints. QB only allowed a semicolon. -''Usage:'' +{{PageDescription}} * The ''variables'' should be listed in the order that they are used in the template from left to right. -* '''If the ''template'' string is omitted or symbols don't match the ''variable(s)'' an "Illegal Function Call" [[ERROR Codes|ERROR]] will occur!''' -* No more than 25 # digit places are allowed in a template number or an [[ERROR Codes|error]] will occur. +* If the ''template'' string is omitted or symbols don't match the ''variable(s)'' an "Illegal Function Call" [[ERROR Codes|ERROR]] will occur. * Can convert numerical exponential or [[scientific notation]] values to normal decimal point values using less digits. -* '''NOTE:''' If the numerical value exceeds the template's digit range a % symbol will appear in the leftmost digit area. -* '''WARNING: The numbers displayed are rounded so the actual values are never changed and are actually more accurate.''' +* NOTE: If the numerical value exceeds the template's digit range a % symbol will appear in the leftmost digit area. +* WARNING: The numbers displayed are rounded so the actual values are never changed and are actually more accurate. {{PrintUsing}} +{{PageQBasic}} +* QBasic limited the number of specified digit positions to 24; QB64 has no such restriction. + + +{{PageExamples}} ''Example 1:'' Printing formatted data using a predefined [[STRING|string]] template variable. {{CodeStart}} '' '' -first$ = "Bobby": last$ = "Smith" +first$ = "Bobby": last$ = "Smith" boxes% = 1510: sales! = 4530 -tmp$ = "Salesperson: & & #####,. $$#####,.##" +tmp$ = "Salesperson: & & #####,. $$#####,.##" {{Cl|PRINT USING}} tmp$; first$; last$; boxes%; sales! {{CodeEnd}} '' '' @@ -39,25 +43,24 @@ tmp$ = "Salesperson: & & #####,. $$#####,.##" ''Example 2:'' How to display formatting symbols as normal text using underscores in a PRINT USING template. -{{CodeStart}} '' '' +{{CodeStart}} errcode = 35 -{{Cl|PRINT USING}} "Error ## occurred!!"; errcode -'now there are the !! at the end of the printed string -{{Cl|PRINT USING}} "Error ## occurred_!_!"; errcode -{{Cl|END}} '' +{{Cl|PRINT USING}} "Error ## occurred!"; errcode +'the ! is now displayed at the end of the printed string +{{Cl|PRINT USING}} "Error ## occurred_!"; errcode {{CodeEnd}} {{OutputStart}}Error 35 occurred -Error 35 occurred!! +Error 35 occurred! {{OutputEnd}} : ''Explanation:'' The first template will not print the exclamation points or error when the requested text parameters are omitted. ''Example 3:'' Exponential notation is designated after the leading digits are formatted. Digit places determine rounded value displayed. {{CodeStart}} -{{Cl|PRINT USING}} "##.##^^^^"; 234.56 -{{Cl|PRINT USING}} ".####^^^^-"; -777777 -{{Cl|PRINT USING}} "+.##^^^^"; 123 -{{Cl|PRINT USING}} "+.##^^^^^"; 123 '' '' +{{Cl|PRINT USING}} "##.##^^^^"; 234.56 +{{Cl|PRINT USING}} ".####^^^^-"; -777777 +{{Cl|PRINT USING}} "+.##^^^^"; 123 +{{Cl|PRINT USING}} "+.##^^^^^"; 123 '' '' {{CodeEnd}} {{OutputStart}} 2.35E+02 .7778E+06- @@ -70,16 +73,19 @@ Error 35 occurred!! ''Example 4:'' USING does not necessarily have to immediately follow PRINT, but it must follow it in the code line. {{CodeStart}} '' '' money = 12345.45 -tmp$ = "$$#######,.##" +tmp$ = "$$#######,.##" -{{Cl|PRINT}} "I have this much money!"; {{Cl|PRINT USING|USING}} tmp$; money '' '' +{{Cl|PRINT}} "I have this much money!"; {{Cl|PRINT USING|USING}} tmp$; money '' '' {{CodeEnd}} +{{OutputStart}} +I have this much money! $12,345.45 +{{OutputEnd}} : ''Note:'' This can also be used to print the USING formatting characters outside of the template. -''See also:'' +{{PageSeeAlso}} * [[PRINT]], [[PRINT USING (file statement)|PRINT #, USING]] * [[LPRINT]], [[LPRINT USING]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PRINT_USING_(file_statement).txt b/internal/help/PRINT_USING_(file_statement).txt index fe64d28c2..7db512a27 100644 --- a/internal/help/PRINT_USING_(file_statement).txt +++ b/internal/help/PRINT_USING_(file_statement).txt @@ -6,17 +6,17 @@ The '''PRINT #, USING''' statement is used to [[PRINT]] formatted text data to a :: '''PRINT ''filenumber%,''''' [''text$''{;|,}] '''USING ''template$''; ''variable'''''[; ...][{;|,}] -{{Parameters}} +{{PageParameters}} * [[INTEGER]] ''filenumber'' refers to the file number [[OPEN]]ed previously followed by a [[comma]]. * Literal or variable [[STRING]] ''text$'' can be placed between PRINT and USING or it can be included in the ''template''. * A [[semicolon]] or [[comma]] may follow the ''text'' to stop or tab the print cursor before the ''template'' [[PRINT]]. -* The literal or variable [[STRING]] ''template'' should use the template symbols to display each variable [[type]] in the list following it. +* The literal or variable [[STRING]] ''template'' should use the template symbols to display each variable [[Variable Types|type]] in the list following it. * The list of data ''variables'' used in the ''template'' are '''separated by semicolons''' after the template string value. * In '''QB64''' ONE [[semicolon]] or [[comma]] may follow the variable list to stop the print cursor for pending prints. QB only allowed a semicolon. ''Usage:'' -* '''If the ''template'' string is omitted or symbols don't match the ''variable(s)'' an "Illegal Function Call" [[ERROR Codes|ERROR]] will occur!''' +* '''If the ''template'' string is omitted or symbols don't match the ''variable(s)'' an "Illegal Function Call" [[ERROR Codes|ERROR]] will occur!''' * The list of data variables used in the template are '''separated by semicolons''' after the template string value. * The variables should be listed in the order that they are used in the template from left to right. * Normal text is allowed in the template also (see example). @@ -32,4 +32,4 @@ The '''PRINT #, USING''' statement is used to [[PRINT]] formatted text data to a * [[LPRINT USING]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PSET.txt b/internal/help/PSET.txt index 34e5a18ae..27680e492 100644 --- a/internal/help/PSET.txt +++ b/internal/help/PSET.txt @@ -1,4 +1,4 @@ -The '''PSET''' grahics [[SCREEN (statement)|SCREEN]] statement sets a pixel to a coordinate with a default or designated color attribute. +The '''PSET''' graphics [[SCREEN (statement)|SCREEN]] statement sets a pixel to a coordinate with a default or designated color attribute. {{PageSyntax}} @@ -23,17 +23,13 @@ The '''PSET''' grahics [[SCREEN (statement)|SCREEN]] statement sets a pixel to a {{CodeStart}} '' '' SCREEN 12 {{Cl|PSET}}(100, 100), 12 -{{Cl|DRAW}} "U20 R20 D20 L20" '' '' +{{Cl|DRAW}} "U20 R20 D20 L20" '' '' {{CodeEnd}} :''Screen results:'' A drawn box that is bright red. ''Example 2:'' Magnifying a box portion of a Mandelbrot image with PSET {{CodeStart}} '' '' -{{Cl|DECLARE}} {{Cl|SUB}} readmouse (x {{Cl|AS}} {{Cl|INTEGER}}, y {{Cl|AS}} {{Cl|INTEGER}}, z {{Cl|AS}} {{Cl|INTEGER}}) -{{Cl|DECLARE}} {{Cl|SUB}} rectangle (x1 {{Cl|AS}} {{Cl|INTEGER}}, y1 {{Cl|AS}} {{Cl|INTEGER}}, x2 {{Cl|AS}} {{Cl|INTEGER}}, y2 {{Cl|AS}} {{Cl|INTEGER}}) -{{Cl|DECLARE}} {{Cl|FUNCTION}} mandel% (x {{Cl|AS}} {{Cl|DOUBLE}}, y {{Cl|AS}} {{Cl|DOUBLE}}, limit {{Cl|AS}} {{Cl|INTEGER}}) -{{Cl|DECLARE}} {{Cl|SUB}} drawmand (x {{Cl|AS}} {{Cl|DOUBLE}}, y {{Cl|AS}} {{Cl|DOUBLE}}, mag {{Cl|AS}} {{Cl|DOUBLE}}) {{Cl|DEFSTR}} A-Z {{Cl|DIM}} red(15) {{Cl|AS}} {{Cl|INTEGER}}, green(15) {{Cl|AS}} {{Cl|INTEGER}}, blue(15) {{Cl|AS}} {{Cl|INTEGER}} {{Cl|DIM}} i {{Cl|AS}} {{Cl|INTEGER}} @@ -61,7 +57,7 @@ DO {{Cl|DIM}} inc {{Cl|AS}} {{Cl|DOUBLE}}, left {{Cl|AS}} {{Cl|DOUBLE}}, top {{Cl|AS}} {{Cl|DOUBLE}} limitx = 150 * ({{Cl|LOG}}(mag) + 1) - {{Cl|IF...THEN|IF}} limitx > 32767 {{Cl|THEN}} limitx = 32767 + {{Cl|IF...THEN|IF}} limitx > 32767 {{Cl|THEN}} limitx = 32767 limit = {{Cl|INT}}(limitx) inc = .004 / mag left = a - inc * 319 @@ -100,7 +96,7 @@ DO {{Cl|IF...THEN|IF}} dmag < 2 {{Cl|THEN}} dmag = 2 {{Cl|CASE}} {{Cl|CHR$}}(0) + {{Cl|CHR$}}(80) dmag = dmag * 2 - {{Cl|IF...THEN|IF}} dmag > 128 {{Cl|THEN}} dmag = 128 + {{Cl|IF...THEN|IF}} dmag > 128 {{Cl|THEN}} dmag = 128 {{Cl|END SELECT}} {{Cl|WEND}} {{Cl|CALL}} rectangle(mx - dx, my - dy, mx + dx, my + dy) @@ -118,7 +114,7 @@ DO t = a * a - b * b + x b = 2 * a * b + y: a = t n = n + 1 - {{Cl|LOOP}} {{Cl|UNTIL}} a * a + b * b > 4 {{Cl|OR (boolean)|OR}} n > limit + {{Cl|LOOP}} {{Cl|UNTIL}} a * a + b * b > 4 {{Cl|OR (boolean)|OR}} n > limit mandel = n {{Cl|END FUNCTION}} @@ -160,4 +156,4 @@ y={{Cl|_MOUSEY}} * [[Text Using Graphics]] (Demo) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PUT.txt b/internal/help/PUT.txt index 2dee60b6a..ef33f9ab4 100644 --- a/internal/help/PUT.txt +++ b/internal/help/PUT.txt @@ -28,13 +28,13 @@ The '''PUT #''' file or port statement writes data to a specific byte or record {{Cl|END}} {{Cl|TYPE}} {{Cl|DIM}} Contact {{Cl|AS}} ContactType -{{Cl|INPUT}} "Enter a first name: ", Contact.first -{{Cl|INPUT}} "Enter a last name: ", Contact.last -{{Cl|INPUT}} "Enter an age: ", Contact.age +{{Cl|INPUT}} "Enter a first name: ", Contact.first +{{Cl|INPUT}} "Enter a last name: ", Contact.last +{{Cl|INPUT}} "Enter an age: ", Contact.age -{{Cl|OPEN}} "Record.lst" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = {{Cl|LEN}}(Contact) +{{Cl|OPEN}} "Record.lst" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = {{Cl|LEN}}(Contact) NumRecords% = {{Cl|LOF}}(1) \ {{Cl|LEN}}(Contact) -{{Cl|PRINT}} NumRecords%; "previous records" +{{Cl|PRINT}} NumRecords%; "previous records" {{Cl|PUT}} #1, NumRecords% + 1, Contact ' add a new record {{Cl|TYPE}} record value {{Cl|CLOSE}} #1 '' '' @@ -51,7 +51,7 @@ NumRecords% = {{Cl|LOF}}(1) \ {{Cl|LEN}}(Contact) {{Cl|NEXT}} showme 'display array contents -{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 +{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1 {{Cl|PUT}} #1, , array() @@ -59,7 +59,7 @@ showme 'display array contents showme {{Cl|CLOSE}} #1 -{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #2 +{{Cl|OPEN}} "BINFILE.BIN" {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} #2 {{Cl|GET}} #2, , array() {{Cl|CLOSE}} #2 showme 'display array after transfer from file @@ -70,7 +70,7 @@ showme 'display array after transfer from file {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 100 {{Cl|PRINT}} array(i); {{Cl|NEXT}} -{{Cl|PRINT}} "done" +{{Cl|PRINT}} "done" {{Cl|END SUB}} '' '' {{CodeEnd}} : ''Note:'' Use empty brackets in QB64 when using [[GET]] to create an array or [[PUT]] to create a [[BINARY]] data file. @@ -88,4 +88,4 @@ showme 'display array after transfer from file * [[PUT (TCP/IP statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PUT_(TCP%2FIP_statement).txt b/internal/help/PUT_(TCP%2FIP_statement).txt index f69be8c52..93367ada5 100644 --- a/internal/help/PUT_(TCP%2FIP_statement).txt +++ b/internal/help/PUT_(TCP%2FIP_statement).txt @@ -5,16 +5,16 @@ The '''PUT #''' TCP/IP statement sends unformatted(raw) data to an open connect :: '''PUT ''#handle'', , ''data'' ''' -{{Parameters}} +{{PageParameters}} * The ''handle'' value is returned by the [[_OPENCLIENT]], [[_OPENHOST]] or [[_OPENCONNECTION]] '''QB64''' functions. * The ''data'' can be any variable type value. Literal values are not allowed. -<center>'''Communicating using unformatted/raw streamed data:'''</center> +<center>'''Communicating using unformatted/raw streamed data:'''</center> * Benefit: Communicate with any TCP/IP compatible protocol (eg. FTP, HTTP, web-pages, etc) * Disadvantage: Streamed data has no 'message length' as such, just a continuous bunch of bytes all in a row. Some messages get fragmented and parts of messages can (and often do) arrive at different times. -* The position parameter(between the commas) is not used in TCP/IP statements as all data is streamed consecutively. -<center>'''Your program MUST cater for these situations manually.'''</center> +* The position parameter (between the commas) is not used in TCP/IP statements as all data is streamed consecutively. +<center>'''Your program MUST cater for these situations manually.'''</center> {{WhiteStart}}''Example: string variable b$'s length is adjusted to the number of bytes read.'' @@ -31,9 +31,8 @@ The '''PUT #''' TCP/IP statement sends unformatted(raw) data to an open connect ''See also:'' -* [[GET (TCP/IP statement)]], [[PRINT (TCP/IP statement)]], [[INPUT (TCP/IP statement)]], [[PUT|PUT #]] +* [[GET (TCP/IP statement)]], [[PUT|PUT #]] * [[_OPENCLIENT]], [[_OPENHOST]], [[_OPENCONNECTION]] -* [[IP Configuration]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/PUT_(graphics_statement).txt b/internal/help/PUT_(graphics_statement).txt index 73bd0be81..b6e8c851e 100644 --- a/internal/help/PUT_(graphics_statement).txt +++ b/internal/help/PUT_(graphics_statement).txt @@ -16,7 +16,7 @@ The '''PUT''' graphics statement is used to place [[GET (graphics statement)|GET ''Usage:'' -* '''The entire box area of the image MUST be on the screen or an "Illegal function call" [[ERROR Codes|error]] will occur!''' +* '''The entire box area of the image MUST be on the screen or an "Illegal function call" [[ERROR Codes|error]] will occur!''' * In '''QB64''' [[_CLIP]] can be used when part of the image may be off of the screen. This will also prevent off screen errors! ::PUT (-10, 10), mypic(0), PSET ' this causes an illegal function call without [[_CLIP]] ::PUT (-10, 10), mypic(0), _CLIP PSET ' allows a graphic to be placed partially off-screen @@ -39,11 +39,11 @@ The '''PUT''' graphics statement is used to place [[GET (graphics statement)|GET * [[PUT]] and [[GET]] file statements can also write and read image array data using [[BINARY]] files instead of using [[BSAVE]] or [[BLOAD]]. -''Example 1:'' How [[GET]] and PUT can be used with images loaded with [[_LOADIMAGE]]. The background color is omitted or "masked". +''Example 1:'' How [[GET]] and PUT can be used with images loaded with [[_LOADIMAGE]]. The background color is omitted or "masked". {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 256) {{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} -image& = {{Cl|_LOADIMAGE}}("QB64.png") '[http://www.qb64.net/forum/index.php QB64 bee image from Forum] +image& = {{Cl|_LOADIMAGE}}("QB64.png") 'replace with your own image wide& = {{Cl|_WIDTH (function)|_WIDTH}}(image&): deep& = {{Cl|_HEIGHT}}(image&) {{Cl|DIM}} Array(wide& * deep&) {{Cl|AS}} {{Cl|INTEGER}} @@ -56,7 +56,7 @@ wide& = {{Cl|_WIDTH (function)|_WIDTH}}(image&): deep& = {{Cl|_HEIGH {{Cl|PUT (graphics statement)|PUT}}(10, 10), Array(0), {{Cl|PSET}} , {{Cl|_RGB}}(255, 255, 255) 'mask white background color {{Cl|END}} '' '' {{CodeEnd}} -: ''Explanation:'' '''QB64''' allows one PUT color to be "masked" to allow odd shaped sprite image backgrounds to be transparent. +: ''Explanation:'' '''QB64''' allows one PUT color to be "masked" to allow odd shaped sprite image backgrounds to be transparent. ''Example 2:'' Using a [[STRING]] instead of an [[arrays|array]] to store [[GET]] image data that can be PUT later. For images up to 256 colors only. @@ -70,7 +70,7 @@ a$ = {{Cl|SPACE$}}(4 + 100) '4 byte header + 100 pixels for a 10 X 10 K$ = {{Cl|INPUT$}}(1) {{Cl|CLS}} -{{Cl|PRINT}} a$ 'display string data. Width = {{Cl|CHR$}}(10 * 8) = "P" +{{Cl|PRINT}} a$ 'display string data. Width = {{Cl|CHR$}}(10 * 8) = "P" {{Cl|PUT (graphics statement)|PUT}}(100, 100), a$, {{Cl|PSET}} '' '' {{CodeEnd}} {{small|Code by Galleon}} @@ -87,4 +87,4 @@ K$ = {{Cl|INPUT$}}(1) * [[Bitmaps]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Parenthesis.txt b/internal/help/Parenthesis.txt index e195dfd9a..8a1a3d247 100644 --- a/internal/help/Parenthesis.txt +++ b/internal/help/Parenthesis.txt @@ -1,7 +1,7 @@ '''Parenthesis''' are used to enclose [[SUB]] and [[FUNCTION]] parameters or to set the operation order in [[Mathematical Operations]]. -''Usage:'' COLOR 14: PRINT [[TAB]](30); "Hello World" +''Usage:'' COLOR 14: PRINT [[TAB]](30); "Hello World" {{OutputStart}} {{text|Hello World|yellow}} @@ -12,7 +12,7 @@ * Parenthesis can be used in calculations to determine the order in which math operations are performed when the normal order would not work correctly. Normal operation order is: '''1)''' exponential, '''2)''' multiplication or division '''3)''' addition or subtraction. * Parenthesis can also denote the array index or the dimension size(s) in a [[DIM]] statement. * Instead of [[BYVAL]], use extra parenthesis around sub-procedure call parameters to pass them by value instead of by reference. -* Extra pairs of brackets have no effect on the code! If one is missing the [[IDE]] should tell you. +* Extra pairs of brackets have no effect on the code! If one is missing the IDE should tell you. ''Example:'' Using too many brackets does not harm the code execution as long as they are paired up. @@ -26,9 +26,9 @@ nmb$ = {{Cl|LTRIM$}}((({{Cl|RTRIM$}}(nmb$)))) 'extra bracket pairs do not affec ''See also:'' -* [[DIM]], [[DECLARE]] +* [[DIM]], DECLARE * [[SUB]], [[FUNCTION]] * [[Arrays]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/QB64_FAQ.txt b/internal/help/QB64_FAQ.txt index 47609705f..2fa1bff76 100644 --- a/internal/help/QB64_FAQ.txt +++ b/internal/help/QB64_FAQ.txt @@ -1,54 +1,40 @@ -{| align="center" - | __TOC__ +{| align="center" + |__TOC__ |} -As with everything else, this list will be updated to correspond to new progress of QB64 so make sure that you are using the latest version of '''QB64 (version 1.1 released in 1/20/17)'''. Please note that it may take a short time to update this list. +As with everything else, this list will be updated to correspond to new progress of QB64 so make sure that you are using the latest version of '''QB64'''. Please note that it may take a short time to update this list. -<center>'''You may need Administrator rights to install or use QB64!'''</center> - -<center>'''{{text|It's a good idea to exclude "QB64.exe" (also the internal folder) from any real-time anti-virus scanning to prevent IDE Module Errors!|red}}'''</center> +<center>'''{{text|It's recommended to exclude (whitelist) "qb64.exe" (also the ''internal'' folder) from any real-time anti-virus scanning to prevent IDE Module Errors.|red}}'''</center> ==Q: What is QB64?== -A: '''QB64''' is a BASIC compatible Editor and C++ compiler that creates working Executable files from Qbasic BAS files that can be run on 32 or 64 bit PC's using '''WINDOWS'''(XP, Vista and newer), '''LINUX''' or '''macOS'''. The goal is to be 100% compatible with QuickBasic 4.5 plus add hundreds of new abilities such as program icons and custom sized windows and a great [[IDE|Editor]] with a new Help Menu. +A: '''QB64''' is a BASIC compatible Editor and C++ emitter that creates working Executable files from QBasic BAS files that can be run on 32 or 64 bit PC's using '''Windows''' (XP to 10), '''Linux''' or '''macOS'''. The goal is to be 100% compatible with QuickBASIC 4.5 plus add hundreds of new abilities such as program icons and custom sized windows and a great retro Editor with builtin help. The '''new keywords''' add some '''new features''' such as playing '''music or sound''' files and instant access to '''32 bit graphics''' file images. Also '''TCP/IP''' internet communication is available to '''download''' files, '''email''' messages over the web or play '''internet games'''. '''DLL Libraries''' can add more programming options and QB64 can access all of the new USB gaming '''controllers''' and '''printers'''. -QB is an abbreviation for '''QBasic''' or '''QuickBASIC''' which is an easy to learn language that grew very popular in the 90's. It uses simple syntax but holds great potential as there are methods to achieve nearly anything. '''QBasic is NOT DEAD thanks to QB64!''' +QB is an abbreviation for '''QBasic''' or '''QuickBASIC''' which is an easy to learn language that grew very popular in the 90's. It uses simple syntax but holds great potential as there are methods to achieve nearly anything. '''QBasic is more alive than ever with QB64!''' -<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> +<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> -<center>'''You may need Administrator rights to install or use QB64!'''</center> - ==Q: Does it have modern features? Do they HAVE to be used?== -A: QB64 has PLENTY of modern features, but they do not have to be used. You may just want to run some of your old favorites. -<center>'''QB64 was created to run your old Qbasic 4.5(or less) programs on newer Operating Systems without ANY changes!'''</center> -You could code using the original QuickBASIC syntax all the way through and it should work as you expect it to or even better. QB64 is often faster and has none of the memory limitations that plagued Qbasic in the past! Give it try! See for yourself. +A: QB64 has plenty of modern features, but they do not have to be used. You may just want to run some of your old favorites. +<center>'''QB64 was created to run your old QBasic 4.5 (or less) programs on newer Operating Systems without any changes.'''</center> +You could code using the original QuickBASIC syntax all the way through and it should work as you expect it to or even better. QB64 is often faster and has none of the memory limitations that plagued QBasic in the past. -<center> '''For incompatibility issues you can look in the QB64 "Discussion" board here:'''</center> +QB64 is not meant to run PDS (7.1) QBX code. Most GW Basic code will run with minor changes. + +The modern statements are designed to go along with the BASIC philosophy and expand QBasic into the future! -<center>[http://www.qb64.net/forum/index.php Visit the QB64 Community Forum]</center> - - -<center>'''Some members can still run QB4.5 programs so we can test problem code!'''</center> -<center>QB 4.5 code only! QB64 was not meant to run PDS (7.1) QBX code. Will run most GW Basic code too!</center> - - -<center>'''If your program(s) don't work correctly(check your code first) please feel free to post in the "Discussion" board.'''</center> - -Galleon is constantly working on pure compatibility. You don't have to set it up differently to use the modern features as they are made to work alongside original QB code seamlessly (unlike FreeBASIC and any other modern BASIC out there). The modern statements are designed to go along with the BASIC philosophy and expand Qbasic into the future! - - -<center>'''QB64 FEATURES INCLUDE...'''</center> +<center>'''QB64 FEATURES INCLUDE:'''</center> {{TextStart}} 1) Full graphic functions for [[_NEWIMAGE|images]] up to 32 bit color. [[_ALPHA|Alpha]] transparency supported. @@ -57,11 +43,11 @@ Galleon is constantly working on pure compatibility. You don't have to set it up 3) Supports [[_SNDOPEN|stereo sound]] files like WAV, OGG, MP3, speaker and volume control and more... - 4) Animation is easy to do using [[_DISPLAY]] instead of page flipping. NO SCREEN FLICKER! + 4) Animation is easy to do using [[_DISPLAY]] instead of page flipping, to achieve flicker-free graphics. 5) [[_CLIPBOARD$|Clipboard]] reading and writing support. - 6) Networking over [[TCP/IP Message Format]] and Email. + 6) Networking over TCP/IP and Email. 7) True type [[_FONT|font]] and [[Unicode]] support for many Languages. @@ -70,672 +56,200 @@ Galleon is constantly working on pure compatibility. You don't have to set it up 9) Support for C++, OpenGL, Windows API and other custom Dynamic Link [[Libraries]]. {{TextEnd}} -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -==Q: How do I install QB64 on Windows, Linux, macOS or run programs in Android?== +==Q: How do I install QB64 on Windows, Linux, macOS?== -A: If you have a relatively new computer you will probably be fine. QB64 supports the following Operating Systems in one download: +A: QB64 supports the following Operating Systems: +<center>'''Windows NT (XP), Windows Vista, Windows 7, 8 or 10:'''</center> -<center>'''Windows NT(XP), Windows Vista, Windows 7, 8 or 10:'''</center> -:'''1)''' Click the following link and Windows box to download QB64: [http://www.qb64.net QB64 Windows Downloads] -:'''2)''' Unzip to any folder path you wish. The ZIP file will create a ''QB64'' folder for the program files. +:'''1)''' Download the appropriate package according to your system from [http://www.qb64.org QB64.org] +:'''2)''' Unpack the contents to any location on your computer. Avoid unpacking to Program Files or other system folders that may require administrative privileges. QB64 needs to have full write permissions to its own folder. -:* Executable programs are portable between like systems by copying the stand-alone executable file. -:* ''Versions of QB64 prior to 1.000 require that your binary is distributed with the DLL files that came bundled.'' -<center>'''You may need Administrator rights to install or use QB64.'''</center> - - -<center>'''Windows 2000 running QB64 versions .94 and Above'''</center> -: QB64 version .940 and above contain a full version of the Ming Compiler! This may create an entry point error in Windows 2K. - -:'''1)''' Click the following link and Windows box to download QB64: [http://www.qb64.net QB64 Windows Downloads] -:'''2)''' Unzip to any folder path you wish. The ZIP file will create a ''QB64'' folder for the program files. Check for ''MSVCRT.DLL'' errors! -:'''3)''' If there is an error, unzip the contents of the ZIP FIX file into the QB64 folder after QB64 has updated to the latest version. - -<center>[http://www.qbasicnews.com/dav/files/qb64v942-win2k-fix.zip Download ZIP FIX for Windows 2000 if QB64 does not run correctly!]</center> -<center>This download fix will be updated when necessary by Dav</center> +:*Executable programs are portable between like systems by copying the stand-alone executable file. ---- -<center>'''Most versions of LINUX 32 and 64 bit'''</center> -:'''1)''' Click on the following link and Linux box to download QB64: [http://www.qb64.net QB64 Linux Downloads] -:'''2)''' You will need the following installed: OpenGL developement libraries, ALSA development libraries, GNU C++ Compiler (g++) -:'''3)''' After extracting the downloaded package, run the installation batch/script called ''setup_lnx.sh'' in the main ''qb64'' folder to setup QB64. -:'''4)''' It is not advisable to install QB64 as root. +<center>'''Most distributions of Linux, both 32 and 64 bit'''</center> -<center>Executable programs are portable between like systems by copying the executable file.</center> -<center>'''The Linux 32bit & 64bit versions are combined as of the v 0.925 update'''</center> -<center>'''Note: Some QB64 keywords and procedures are not available as of this Linux release.'''</center> +:'''1)''' Download the appropriate package according to your system from [http://www.qb64.org QB64.org] +:'''2)''' After extracting the downloaded package, run the installation batch/script called ''./setup_lnx.sh'' in the main ''qb64'' folder to setup QB64. +:'''3)''' Most dependencies should be automatically downloaded by the setup script, but these are the ones you should look for if compilation fails: OpenGL developement libraries, ALSA development libraries, GNU C++ Compiler (g++) -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +<center>Executable programs are portable between like systems by copying the executable file.</center> +<center>'''Note: Some QB64 keywords and procedures are not available for Linux.'''</center> + + +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ---- -<center>'''macOS'''</center> -:'''1)''' You MUST install '''Xcode command line tools''' for C++ compilation from their website. In a terminal window, type the following command: '''xcode-select --install''' (more info here: [http://developer.apple.com/technologies/tools/xcode.html Xcode download]) -:     (you won't be using the Xcode interface, QB64 just needs to have access to the C++ compiler it installs) -:'''3)''' Click on the following link and MAC OSX box to download QB64 for macOS: [http://www.qb64.net QB64 MAC OSX Downloads] -:     Extract the downloaded package and run ''setup_osx.command'', found within the QB64 folder to install the QB64 compiler. +<center>'''macOS'''</center> -<center>'''After installation you should run '''qb64_start_osx.command''' to run qb64.'''</center> +:'''1)''' You must install Apple's '''Xcode command line tools''' for C++ compilation from their website. The simplest way to do so is opening a terminal window and typing the following command: '''xcode-select --install''' (more info here: [http://developer.apple.com/technologies/tools/xcode.html Xcode download]) +:    (you won't be using the Xcode interface, QB64 just needs to have access to the C++ compiler and libraries it installs) +:'''3)''' Download the appropriate package according to your system from [http://www.qb64.org QB64.org] +:    Extract the downloaded package and run ''./setup_osx.command'', found within the QB64 folder to install the QB64 compiler. -:* Executable programs are portable between like OSX systems by copying the executable file. -:* To help launch executables without a console, a file called ''programname_start.command'' is created along with the program. -<center>'''Note: Some QB64 keywords and procedures are not available as of this MAC release.'''</center> +<center>'''After installation you should run '''./qb64''' or '''./qb64_start_osx.command''' to run qb64.'''</center> + +:*Executable programs are portable between macOS systems by copying the executable file. +:*To help launch executables without a console, a file called ''programname_start.command'' is created along with the program. +<center>'''Note: Some QB64 keywords and procedures are not available for macOS.'''</center> -<center>[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keywords Not Supported in Linux or MAC OSX versions]]</center> +<center>[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_macOS_versions|Keywords Not Supported in Linux or macOS versions]]</center> ---- -<center>'''References to Android in QB64 refer to the Android Experiment. More information here: [http://www.qb64.net/forum/index.php?topic=13162.0 Android QB64] (may be outdated/non-functional)'''</center> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q:The setup scripts don't work in Linux and macOS. How can I fix them?== -A: If you have problems running the install scripts under Linux (./setup_lnx.sh) or macOS (./setup_osx.command), run the following line in terminal, from your QB64 folder: - -===Linux=== -* <nowiki>find . -name '*.sh' -exec sed -i "s/\r//g" {} \;</nowiki> - -===macOS=== -* <nowiki>find . -name '*.command' -exec perl -pi -e 's/\r\n|\n|\r/\n/g' {} \;</nowiki> -* Don't forget you need to have Xcode command line utilites installed to use QB64. - -If you have any other issues, check out the Forum: - -* [http://www.qb64.net/forum/ QB64 Forum] -* [http://www.qb64.net/forum/index.php?topic=13359.msg115525#msg115525 Fixing setup scripts] - -==Q: How do I upgrade the 32 bit Windows version of QB64 to 64 bit functionality?== -A: The process has been simplified a lot recently. - -# Download the version of QB64 which you want to transform into a 64-bit version from THE QB64 OFFICIAL WEBSITE. -# Grab a pre-edited copy of the 64-bit mingw compiler. You can find it here, [https://www.dropbox.com/s/gapnz7m22yc0mlv/QB64%2064-bit%20mingw%20compiler%20%2808-01-2017%29%20PRE-EDITED.7z?dl=0 QB64 64-bit mingw compiler (08-01-2017) PRE-EDITED], stored permanently in [[User:SMcNeill |Steve McNeill]]'s Dropbox account. -# Extract the QB64 file wherever you want it to be on your system. -# Go into the folder where you installed QB64 and head to the '''internal/c/c_compiler''' folder. -# Delete everyone of those files and folders. -# Extract the mingw 64-bit compiler into that folder. You're looking to replace the old contents with the new contents. Watch for nesting a folder inside a folder by accident. -# Go into the main QB64 directory, look for setup_win.bat. If it's not there, grab the download for it from below and put it into the main folder. (I don't think the archives at qb64.net has the file included in it, though if you download from the repo directly, you can find it. It's kind of a developer tool, moreso than something an user needs cluttering up their directory structure.) -# Run that setup_win.bat file. If everything is extracted to the proper places, you should build and have a version of QB64 open up where the title screen now reads "QB64x64". Congrats!! You now have a working, 64-bit version of QB64. - -That's all it takes! - -{{small|Tip courtesy of Steve McNeill}} - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: Why won't QB64 work on my computer?== QB64 currently supports Windows versions from XP to the latest version. Most Linux and macOS versions are also supported. +:'''Don't move QB64 executable out of the QB64 folder. The various sub-folders hold the C++ compiler files and libraries.''' -<center>'''Don't move QB64 executable out of the QB64 folder! The various sub-folders hold the C++ compiler files!'''</center> -<center>Versions of QB64 prior to 1.000 require the accompanying DLL files, which may be copied into the Windows ''System32'' or ''SysWOW64'' folder for program access outside of the QB64 folder. They can also be placed in a separate folder or download package with the EXE and program files.</center> +:'''QB64 does not change any settings on your machine. All required files are in the QB64 folder.''' -Does your Windows system have another version of the '''MinGW''' compiler? Does it have '''Fortran''' or '''GFortran'''? You can check your environmental values using the following batch file which will create the '''''settings.inf''''' text file in the batch folder: - -{{TextStart}}set >settings.inf '' '' {{TextEnd}} - - -: The '''settings.inf''' file should hold environmental values similar to those listed below: -{{TextStart}}ALLUSERSPROFILE=C:\Documents and Settings\All Users.WINDOWS -APPDATA=C:\Documents and Settings\User1\Application Data -CLIENTNAME=Console -CommonProgramFiles=C:\Program Files\Common Files -COMPUTERNAME=PC1 -ComSpec=C:\WINDOWS\system32\cmd.exe -FP_NO_HOST_CHECK=NO -HOMEDRIVE=C: -HOMEPATH=\Documents and Settings\User1 -'''LIBRARY_PATH={{text|\F\G77\Llib|red}}''' -LOGONSERVER=\\PC1 -NUMBER_OF_PROCESSORS=1 -OS=Windows_NT -'''Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;{{text|\F\G77\bin|red}}''' -PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH -PROCESSOR_ARCHITECTURE=x86 -PROCESSOR_IDENTIFIER=x86 Family 15 Model 1 Stepping 2, GenuineIntel -PROCESSOR_LEVEL=15 -PROCESSOR_REVISION=0102 -ProgramFiles=C:\Program Files -PROMPT=$P$G -SESSIONNAME=Console -SystemDrive=C: -SystemRoot=C:\WINDOWS -TEMP=C:\DOCUME~1\User1\LOCALS~1\Temp -TMP=C:\DOCUME~1\User1\LOCALS~1\Temp -{{TextEnd}} -: Environmental values in {{text|red|red}} above indicate where another C compiler has altered or added to the Windows settings. - - -<center>Environmental values to check and possibly clear are '''PATH=''', '''LIBRARY_PATH=''', '''LIB=''' or '''CPLUS_INCLUDE_PATH='''</center> - - -<center>'''QB64 does NOT alter computer settings! All required files are organized in the QB64 folder.'''</center> - - -: Try to run the following '''''TestQB64.bat''''' batch file from the QB64 folder only: -{{TextStart}}@echo off -REM set environmental values for QB64. Remove offending program paths from the values. -set Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem -set LIBRARY_PATH= -REM start QB64 IDE. A BAS file can be dropped into this batch file to edit in IDE. -REM this batch file must be run from the QB64 folder! -Set QB64=%~dp0 -CD "%QB64%" -start qb64.exe %1 '' '' -{{TextEnd}} -{{small|Adapted from code by Michael Calkins}} -: 64 bit systems should use the ''PATH=C:\WINDOWS\[[SysWOW64]]'' folder in place of the ''C:\WINDOWS\system32'' parameter. - - -: If the batch file works, you can use it to edit and compile QB64 programs. You may want to uninstall the conflicting program. - - -<center>'''[[IDE#Compiler_Errors|IDE Compiler Errors]]</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: Are there any known incompatibilities?== -A: There are some things that QB64 will not and NEVER was intended to do! The original concept was and is to provide a platform that allows older and NEW QBasic procedures and programs to run on the newer 32 and 64 bit personal computers. As you may have observed, this compatibility alone limits the access programs now have to DOS. - -'''[[DOS]] is not fully supported''', as this will require full DOS support to be emulated, however it will continually be updated to support more source code and more features, memory addresses, ports, etc. so that it always approaches 100%. If you don't use too many [[ABSOLUTE]], [[INTERRUPT]], [[PEEK]], [[POKE]] and [[OUT]] statements you probably won't notice any difference between QB 4.5 and QB64 (and if you do, report it as a bug in the forums, remember to check if the problem has been reported before please!), you can expect the most common addresses for interrupts, etc. to be functioning. Galleon has also received a comprehensive list of memory and port addresses so that even some less common addresses may work as well. If you are unsure, try them! +A: There are some things that QB64 cannot do, like direct hardware access, which makes older more advanced programs that make use of [[ABSOLUTE]], [[INTERRUPT]], [[PEEK]], [[POKE]] and [[OUT]] not work properly. Although some older functionality is emulated, if your program doesn't use such statements you probably won't notice any difference between QB 4.5 and QB64 (and if you do, report it as a bug in the forums). You can expect the most common addresses for interrupts, etc. to be functioning. -<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> +See: [[Keywords currently not supported by QB64]] -'''Watch the CPU usage!''' QB64 is a lot faster than QBasic was and it does not have many of the size limitations that confined QBasic programming abilities. Having said that, '''care must be taken to assure that programs do not HOG resources!''' To do that, use speed limits when possible to keep the resources used to a minimum. '''Monitor Task Manager!''' It can tell you how much resources are being used in different parts of a program. The following keywords can lower the impact of your programs on those resources by releasing them to other programs: +You should be careful with '''CPU usage'''. QB64 is a lot faster than QBasic was and it does not have many of the size limitations that confined QBasic programming abilities. Having said that, '''care must be taken to assure that programs do not hog resources.''' To do that, use speed limits when possible to keep the resources used to a minimum. Also, '''Monitor Task Manager''' when your programs are running, as it can tell you how much or system resources are being used in different parts of a program. The following keywords can lower the impact of your programs on those resources by releasing them to other programs: -:::::* [[_LIMIT]]: Limits the loops per second in ANY loop and thus lowers the overall CPU usage. +:::::*[[_LIMIT]]: Limits the loops per second in any loop and thus lowers the overall CPU usage. -:::::* [[_DELAY]]: Pauses a procedure and releases unused resources for other programs. +:::::*[[_DELAY]]: Pauses a procedure and releases unused resources for other programs. -:::::* [[SLEEP]]: Stops or delays program procedures and shares resources. +:::::*[[SLEEP]]: Stops or delays program procedures and shares resources. -:::::* [[INPUT]] and [[INPUT$]] stop program procedures until an entry or key press is given. +:::::*[[INPUT]] and [[INPUT$]] stop program procedures until an entry or key press is given. -QB64 can be fast when you need it to be, but take the time to consider the impact of your program on other programs as people SELDOM have only ONE program running and the OS has tasks it MUST do too! The following programs have KNOWN issues with high CPU usage: +QB64 can be fast when you need it to be, but take the time to consider the impact of your program on other programs as people seldom have only one program running and the OS has tasks it must do too. + +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -<center>'''[http://forums.winamp.com/showthread.php?threadid=166479 WINAMP (intermittent sound)]'''</center> +==Q: How do I update the information in QB64's help system?== +A: The help provided in the QB64 IDE Help System fetches the pages from this wiki. Use the '''Update current page''' in the IDE Help menu selection to update a page. Use the '''Update all pages''' choice to update them all, but this may take longer. -<center>'''Thank you for your support and happy programming!'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: Why won't my QB64 compiled programs run in folders other than the QB64 folder?== - -A: Versions of QB64 prior to 1.000 required certain DLL files to be in the program folder or in the Windows system path. - - -<center>{{Text|C:\WINDOWS\SYSTEM32|green}}</center> - - -Copy each of the DLL files included with QB64 to the System32 or [[SysWOW64]] folder. You may need administrator rights to do this! - - -<center>[http://www.samlogic.net/articles/32-64-bit-windows-folder-x86-syswow64.htm SysWOW64 and Program Files(x86) folders on 64 bit Windows OS.]</center> - - -<center>'''[[QB64_FAQ#Q:_What_files_are_required_to_run_QB64_SDL_programs_in_Windows.3F|List of required QB64 DLL files for older versions (prior to 1.000)]]'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How do I find the current QB64 program path in Windows or Linux?== - -* With the [[_CWD$]] and [[_STARTDIR$]] commands you can get the current working path and the path from which your program was started, respectively. For older versions of QB64 in which these statements may not be available, use the procedures below. - - -:'''Windows path:''' -{{CodeStart}} '' '' -{{Cl|PRINT}} PATH$ -{{Cl|END}} - -{{Cl|FUNCTION}} PATH$ ' Get Current Directory -'Get path to executable in Windows -{{Cl|DECLARE LIBRARY}} 'Directory Information using KERNEL32 provided by Dav - {{Cl|FUNCTION}} GetModuleFileNameA ({{Cl|BYVAL}} Module {{Cl|AS}} {{Cl|LONG}}, FileName {{Cl|AS}} {{Cl|STRING}}, {{Cl|BYVAL}} nSize {{Cl|AS}} {{Cl|LONG}}) -{{Cl|DECLARE LIBRARY|END DECLARE}} - -FileName$ = {{Cl|SPACE$}}(400) ' Sometimes 256 characters for a full path name is not enough - -Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) '0 designates the current program -{{Cl|IF...THEN|IF}} Result {{Cl|THEN}} 'Result returns the length or bytes of the string information - PATH$ = {{Cl|LEFT$}}(FileName$, Result) - start = 1 - DO - posit = {{Cl|INSTR}}(start, PATH$, "\") - {{Cl|IF...THEN|IF}} posit {{Cl|THEN}} last = posit - start = posit + 1 - {{Cl|LOOP}} {{Cl|UNTIL}} posit = 0 - PATH$ = {{Cl|LEFT$}}(PATH$, last) -{{Cl|ELSE}} - PATH$ = "" -{{Cl|END IF}} -FileName$ = "" -{{Cl|END FUNCTION}} '' '' -{{CodeEnd}}{{small| Code by EricR}} - - -:'''Linux path:''' -{{CodeStart}} '' '' -{{Cl|PRINT}} path$ -{{Cl|END}} - -{{Cl|FUNCTION}} path$ -'Get path to executable and directory of said executable on Linux -'Public Domain code -{{Cl|DECLARE LIBRARY}} - {{Cl|FUNCTION}} readlink& (path$, buffer$, {{Cl|BYVAL}} bufsize&) -{{Cl|DECLARE LIBRARY|END DECLARE}} - -bufsize& = 500 'Initial size of the string to store the result in -DO - buffer$ = {{Cl|SPACE$}}(bufsize&) 'Create the buffer to put result in - ret& = readlink&("/proc/self/exe", buffer$, bufsize&) '/proc/self/exe is always a symlink to our executable file - {{Cl|IF...THEN|IF}} ret& < bufsize& {{Cl|THEN}} {{Cl|EXIT DO}} 'ret& is how many bytes were actually put in the buffer. If they are equal, we need to make the buffer bigger and try again - bufsize& = bufsize& + 500 -{{Cl|LOOP}} -exe$ = {{Cl|LEFT$}}(buffer$, ret&) -'exe$ is now the full path of the executable. - -'This code just chops off the filename to give us the directory: -{{Cl|FOR...NEXT|FOR}} i& = {{Cl|LEN}}(exe$) {{Cl|TO}} 1 {{Cl|STEP}} -1 - {{Cl|IF...THEN|IF}} {{Cl|MID$}}(exe$, i&, 1) = "/" {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} -{{Cl|NEXT}} i& -directory$ = {{Cl|LEFT$}}(exe$, i&) -path$ = directory$ -{{Cl|END FUNCTION}} '' '' -{{CodeEnd}}{{small|Code by Johny B}} - - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How do I update the information in QB64 HELP?== - -A: The help provided in the QB64 IDE Help System fetches the pages from this wiki. Use the '''Update current page''' in the [[IDE]] Help menu selection to update a page. Use the '''Update all pages''' choice to update them all, but this may take longer. In general you may want to update monthly or a week after a new version release. - - -<center>[http://qb64.net/wiki/index.php?title=IDE#Help_Menu_.28Alt_.2B_H.29 QB64 IDE Help Menu]</center> ==Q: Can I use the same libraries with QB64 that I used with QB 4.5?== -A: If the libraries are pure QB 4.5 code then yes, otherwise no. QLB files are not supported but you can easily copy your favorite SUBs or FUNCTIONs to a text BI file and [[$INCLUDE]] them at the end of ANY program. Include them AFTER all SUB and FUNCTION code in the BAS file! +A: If the libraries are pure QB 4.5 code then yes, otherwise no. QLB files are not supported but you can easily copy your favorite SUBs or FUNCTIONs to a text BI file and [[$INCLUDE]] them at the end of any program. Include them after all SUB and FUNCTION code in the BAS file. -As of Dec 3, 2010 QB64 acquired [[DECLARE LIBRARY]] to allow users to reference C, Windows, OpenGL and other DLL libraries. If you find some functions that you like please share them with us at the forum! The following pages list working functions our members have found and tested: +[[DECLARE LIBRARY]] allows users to reference C, Windows, OpenGL and other DLL libraries. If you find some functions that you like please share them with us at the forum! The following pages list working functions our members have found and tested: -<center>[[C Libraries]], [[DLL Libraries]], [[Windows Libraries]]</center> +<center>[[C Libraries]], [[DLL Libraries]], [[Windows Libraries]]</center> -*[[SDL Libraries]] ''(obsolete since version 1.000 - available here for historic purposes) +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +==Q: I can't get my QB 4.5 source code to work in QB64! Why?== -==Q: I can't get my QB 4.5 sourcecode to work in QB64! Why?== +A: QB64 is 99% compatible with QB4.5 programs. The commands that haven't been implemented are either obsolete or are too obscure and have been replaced by modern functionality. -A: Perhaps that is because QB64 isn't 100% compatible yet, it is a work in progress. It is around 95-98% compatible right now, and that is a large number! The commands that haven't been implemented are either obsolete or are too obscure and have been replaced by modern functionality. Look at the [http://www.qb64.net/forum/index.php?board=15.0 Unimplemented Qbasic Commands Forum] for statements that are not available. +See: [[Keywords currently not supported by QB64]] - -<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> - - -'''Compiler errors''' are another subject. Always try to test the program in Qbasic BEFORE trying to run or compile it in QB64! You may find '''syntax or other code errors''' that the QB64 IDE may not find yet as a bonus! Always check the code before blaming QB64! - - -<center>'''You may need Administrator rights to install or use QB64.'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: What files are required to run my QB64 compiled program in my Operating System?== -A: Programs compiled by QB64 (version 1.000 and up) are stand-alone so no external OpenGL DLL files are required to be with your program EXE file. - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How are foreign languages and keyboards supported in QB64?== - -A: As of version 0.922 (October 20, 2010) QB64 supports foreign language keyboard characters. - -* Setting up a typing language in the QB64 [[IDE]]: -:Step 1: In the OPTIONS menu select DISPLAY, then check the CUSTOM FONT check-box. -:Step 2: In the OPTIONS menu select LANGUAGE, then select a Code Page (CP850 for example) and click OK. - -See the [[Unicode]] page to setup a language in a program you create. There are also links to the various [[Code Pages]] that are supported. Also there are four new keywords to work with keypresses and map them to ASCII key character codes: - -<center>[[_KEYHIT]], [[_KEYDOWN]] and [[_MAPUNICODE]]</center> +A: Programs compiled by QB64 (version 1.000 and up) are stand-alone so no external files are required to be with your program's EXE file. -<center>'''You can now re-assign key codes to Unicode characters in programs you create using the [[_MAPUNICODE]] statement!'''</center> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -If you have any problems, post in the discussion board. In the meantime you can use any of these recommended [[ASCII]] methods: - - -<center>'''Using ASCII Characters'''</center> -Perhaps you can use the [[ASCII]] character codes. Go to the [[ASCII]] character chart and look for the character(s) you need. If you find them, remember the code number and use either CHR$(code%) or the Alt-number pad key method to type them into literal strings(real strings with quotes) only. The following QB64 program displays the characters available on your PC: -{{CodeStart}} - -SCREEN _NEWIMAGE(800, 600, 256) -font$ = "C:\WINDOWS\Fonts\cour.ttf" 'TTF file in Windows -style$ = "monospace" 'font style -f& = _LOADFONT(font$, 22, style$) -_FONT f& -COLOR 11 -FOR c% = 1 TO 6: PRINT c%; CHR$(c%);: NEXT -FOR c% = 14 TO 27: PRINT c%; CHR$(c%);: NEXT -FOR c% = 32 TO 255: PRINT c%; CHR$(c%);: NEX -DO: SLEEP: LOOP UNTIL INKEY$ <> "" - -{{CodeEnd}} - - -'''The ALT Key Method:''' Hold the Alt key down and enter the code number using the Number Pad only. When you release the Alt key, the character should be in the IDE string you are making. Characters can be added (concatenated) using the + between the literal string and CHR$(code) or by using a semicolon as shown below: - -{{CodeStart}} - -PRINT {{Cl|CHR$}}(165) + "ormally I don't use these keys. Do You " + {{Cl|CHR$}}(168) 'concatenation - -PRINT {{Cl|CHR$}}(165); "ormally I don't use these keys. Do you"; {{Cl|CHR$}}(168) 'semicolons - -PRINT "Ñormally I don't use these keys. Do you¿" 'Alt-number pad method - -{{CodeEnd}} -{{OutputStart}} -Ñormally I don't use these keys. Do you¿ -{{OutputEnd}} - -:'''NOTE:''' You MUST use concatenation when defining a string variable using the CHR$ function character returns! - -<center>[[ASCII|Link to the ASCII Character Table]]</center> - -To cut down on typing CHR$(???) all day, define often used characters as string variables such as Q$ = CHR$(34) as shown below: -{{CodeStart}} - -{{Cl|DIM}} Q AS {{Cl|STRING}} * 1 'define as one byte string(get rid of $ type suffix too) -Q = {{Cl|CHR$}}(34) 'Q will now represent the elusive quotation mark in a string - -PRINT "This string uses "; Q; "quotation marks"; Q; " that might cause a syntax error!" - -{{CodeEnd}} -{{OutputStart}} -This string uses "quotation marks" that might cause a syntax error! -{{OutputEnd}} - - -:'''Warning! Do NOT use Notepad for special characters as it won't display them! It is best to enter them in the IDE.''' - -You can use ANY of the ASCII characters to add borders, arrows, and many other characters not available on the keyboard. Hopefully this information will cure your problem! - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: MUST I copy or drag ALL of my program files to the QB64 folder?== - -A: You can instruct QB64 to save the resulting executable file to the same folder as your source code file so that all your project files can reside in a separate folder, for better organization. In the [[IDE]] of versions 1.000 and up, go to the Run menu and tick the option "Save EXE in the source folder". This way, next time you hit F5, Ctrl+F5 or even F11, QB64 will compile your .BAS file and the .EXE will be placed in the same folder. - - -For older versions of QB64, you can use a batch file, as instructed below: - -# Use a batch file or a command line as follows: QB64 -c ''yourfile.BAS'' -# Move the compiled EXE file back to the folder with the program files. -# Copy ALL of the QB64 DLL files from the QB64 folder to your new program's folder. -# Try the EXE file to see how it works. - - -<center>'''The Answer to the Question below will show you how to create a batch file and compile BAS files from ANY location.'''</center> - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - ==Q: Is there a way to use the compiler without running my program or using the IDE?== -A: Yes! No other program files besides the BAS file are required! Use the following command to compile a program without running it: +A: Yes! No other program files besides the BAS file are required. Use the following command to compile a program without running it: + +*'''QB64 -c yourfile.BAS''' +*'''QB64 -x yourfile.BAS''' ''(compiles using the console only)'' +*'''QB64 -c yourfile.BAS -o destination_path\destination executable_name.exe''' ''(compiles the .BAS file and outputs the executable to a separate folder)'' -* '''QB64 -c yourfile.BAS''' -* '''QB64 -x yourfile.BAS''' ''(compiles using the console only)'' -* '''QB64 -c yourfile.BAS -o destination_path\destination executable_name.exe''' ''(compiles the .BAS file and outputs the executable to a separate folder)'' +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -''NOTE: Versions of QB64 prior to 1.000 require that the DLL libraries are copied along with your executable or installed in the System folder (Windows).'' - - -The batch file below can compile any BAS file from any location using drag and drop. The EXE will be created in the QB64 folder: -{{TextStart}} '' '' -@ECHO OFF - -Set QB64=%~dp0 -Echo. QB64 path: %QB64% - -REM The QB64 path must designate the drive letter when compiling from another drive letter! -C: -CD\ -CD "%QB64%" - -cmd /c start /low QB64.exe -c %1 '' '' -{{TextEnd}} -<center>'''Place the BAT file in the QB64 folder!''' You will also be able to drag and drop BAS files onto the batchfile.</center> - - - -<center> '''Associating the batch file in the Right Click Open With pop-up menu'''</center> -You can associate the batch file to the Right Click Popup Menu's ''Open With'' dialogue choices when you right click ANY BAS file: - -::::1) Right click any BAS file and move to ''Open With'' and click ''Choose Program'' in the pop-up menu. - -::::2) Your batch file will not be in the program choices so select ''Browse''. - -::::3) Navigate to the batch file '''in the QB64 folder''' and click on it. - -::::4) '''Make sure that the ''Always use this program'' box is NOT checked!''' Then save your choice. - -<center>The compiled EXE file can be found in the QB64 folder!</center> - - -<center>'''You may need Administrator rights to install or use QB64.'''</center> - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How do I LINK modules or INCLUDE SUB procedures in QB64? == +==Q: How do I link modules or include SUB procedures in QB64?== A: QB64 allows you to [[$INCLUDE]] code or BAS modules into one module when it is compiled. Text .BI files containing SUB or FUNCTION code or entire BAS modules can be included in one module that will be compiled. -After the EXE is compiled, you do not have to even use the added code anymore! The EXE will contain ALL of the program code as ONE stand-alone program! This also allows you to add SUB code to ANY program that you desire. Use the following syntax and rules: +After the EXE is compiled, you do not have to even use the added code anymore. The EXE will contain ALL of the program code as ONE stand-alone program. This also allows you to add SUB code to any program that you desire. -<center>''Syntax:'' REM $INCLUDE: 'filename.BI'</center> +See: [[$INCLUDE]] +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -:1) '''$INCLUDE [[TYPE]] definitions or [[DATA]] field code''' at the beginning of the module that will be compiled. Text code can be used, but must be renamed to .BI (cannot be a .TXT extension!) or kept as a .BAS module. SUB or FUNCTION code MUST be included at the end of the module code! - -:2) '''$INCLUDE [[SUB]] or [[FUNCTION]] code''' AFTER any SUB or FUNCTION code in the module that will be compiled to combine them. Otherwise QB64 will create an error stating that the INCLUDE statement cannot be placed there. - -:3) '''LINKING''' of program modules is accomplished by creating a NEW module and using an $INCLUDE statement for each module that is to be combined. - -After you have created the include files, you can add them to ANY other program that requires them! Thus you will end up with smaller BAS files and SUB procedures that can be used over and over like libraries. The files are only used during a compilation. - - -<center>[[LINKed or Merged Modules|Program to Convert LINKed or Merged multiple module programs into one QB64 Module]]</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: CHAIN doesn't work the way I'm used to...== - -A: CHAIN has been implemented in QB64 versions 0.851 up. Be sure to download the latest version of the compiler when available. - -<center>'''Note: QB64 will automatically compile the named BAS file if it does not find the EXE file.</center> - -The statement also can use [[COMMON]] or [[COMMON SHARED]] to pass program information. However QB64 uses files to pass the information. If your program moves to a location other than the EXE file's location, the file may be inaccessable! To avoid this problem, make sure that your program can refer to that location using a path. - - -There are minor differences from QBasic in that it doesn't open a program in the same window and does not retain the previous screen mode or format. - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: Some screens look small. Can I enlarge them or make them fullscreen?== -* You can use the [[_FULLSCREEN]] statement to make your programs run fullscreen. -* [[$RESIZE]] can be added to a program so you can track window resize events. (version 1.000 and up) -* You can also create custom sized screens with page flipping and up to 32 bit colors using [[_NEWIMAGE]]. -* Page flipping is available in most screens and the new [[_DISPLAY]] feature allows the images to be displayed when YOU desire. -* Picture or image files such as BMP, PNG, JPEG and GIF are EASY to load using [[_LOADIMAGE]]. -* Once images are loaded, all you have to do is use the image handle with any of the new statements and functions. -* [[_PUTIMAGE]] GETs and PUTs images fast in ONE call. It can even stretch or compress the image sizes! +*You can use the [[_FULLSCREEN]] statement to make your programs run fullscreen. +*[[$RESIZE]] can be added to a program so you can track window resize events. +*You can also create custom sized screens with page flipping and up to 32 bit colors using [[_NEWIMAGE]]. +*Page flipping is available in most screens and the new [[_DISPLAY]] feature allows the images to be displayed when YOU desire. +*Picture or image files such as BMP, PNG, JPEG and GIF are EASY to load using [[_LOADIMAGE]]. +*Once images are loaded, all you have to do is use the image handle with any of the new statements and functions. +*[[_PUTIMAGE]] GETs and PUTs images fast in ONE call. It can even stretch or compress the image sizes. -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> + ==Q: Can I have background music as well as [[SOUND]], [[PLAY]] and [[BEEP]]?== -A: Yes, they are emulated to use the soundcard instead of the old boring monotone PC-speaker that is rapidly disappearing. +A: Yes, they are emulated to use the soundcard. -<center>'''There also are a bunch of new sound capabilities that allow the use of WAV, OGG, MP3 files and more.'''</center> +'''There also are a bunch of new sound capabilities that allow the use of WAV, OGG, MP3 files and more.''' Capabilities include: -# Multiple sound tracks -# Volume and speaker control -# Background music - -<center>'''SOUND HAS RETURNED TO QBASIC!'''</center> +#Multiple sound tracks +#Volume and speaker control +#Background music -<center>'''Get started with [[_SNDOPEN|MUSIC]] NOW!</center> +'''Get started with [[_SNDOPEN|music]]:''' -[[_SNDCLOSE]] (statement), [[_SNDCOPY]] (function), [[_SNDGETPOS]] (function), [[_SNDLEN]] (function), [[_SNDLIMIT]] (statement) +:[[_SNDCLOSE]] (statement), [[_SNDCOPY]] (function), [[_SNDGETPOS]] (function), [[_SNDLEN]] (function), [[_SNDLIMIT]] (statement) -[[_SNDLOOP]] (statement), [[_SNDOPEN]] (function), [[_SNDPAUSE]] (statement), [[_SNDPAUSED]] (function), [[_SNDPLAY]] (statement) +:[[_SNDLOOP]] (statement), [[_SNDOPEN]] (function), [[_SNDPAUSE]] (statement), [[_SNDPAUSED]] (function), [[_SNDPLAY]] (statement) -[[_SNDPLAYCOPY]] (statement), [[_SNDPLAYFILE]] (statement), [[_SNDPLAYING]] (function), [[_SNDSETPOS]] (statement) +:[[_SNDPLAYCOPY]] (statement), [[_SNDPLAYFILE]] (statement), [[_SNDPLAYING]] (function), [[_SNDSETPOS]] (statement) -<center>[[_SNDRAW]] (statement), [[_SNDSTOP]] (statement), [[_SNDVOL]] (statement)</center> +:[[_SNDRAW]] (statement), [[_SNDSTOP]] (statement), [[_SNDVOL]] (statement) -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -==Q: Can I use multiple monitors or Pole Monitors?== - -A: Yes, program windows can be moved to them automatically using [[_SCREENMOVE]] with horizontal pixel values that are negative for a secondary monitor on the left and greater than the screen resolution for secondary monitors on the right. - - -'''Note:''' If [[_FULLSCREEN]] is used the program will appear in the primary monitor only. Other running program windows may be pushed onto a secondary monitor on the right so a secondary monitor on the left is preferable in those circumstances. - - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: Why isn't the [[IDE]] always working as I would expect?== - -A: The [[IDE]] has many features shared with modern IDEs while retaining the retro look reminiscent of QuickBasic 4.5 and QBasic. You may request new features in the Discussion subforum and they will be analyzed for implementation, although no warranty of being added is made. - -You can also use QB64 as a compiler only, so that you can choose any alternate editor of your choice. - -<center>'''You may need Administrator rights to install or use QB64'''</center> - - -<center>'''Alternate Editors:''' [[PSPAD|PSPad Editor for Windows]] and [[GEDIT|Gedit Editor for Linux]]'''</center> - - -<center>[http://www.qb64.net/forum/index.php?board=21.0 Report missed Syntax Errors here!]</center> - - -<center>'''[[Known QB64 Issues]]'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: If QB64 creates Basic programs why is there no Immediate Window?== -A: Because there is no '''QB64''' interpreter. All C code has to be compiled before it can be run, but you can run more than one instance. +A: Because there is no '''QB64''' interpreter. All C code has to be compiled before it can be run. -'''QB64''' uses the Immediate window area to suggest syntax for keyword entries and give the compiler status when compiling. To run code snippets or do program calculations using QB64 just open up another instance of the [[IDE]]. Each new instance of QB64 will create a new numbered instance of Untitled(n).exe when compiled. If you want to save the test code for later use, Save it as a BAS file name before closing that instance of QB64. Ihe [[IDE]] will always ask if you want to save new or edited code. +'''QB64''' uses the Immediate window area to suggest syntax for keyword entries and give the compiler status when compiling. +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -Qbasic and Quickbasic allowed BAS programs to be run in an interpreter to test the code. The '''Run''' Menu in QB64 allows the following: - -{{TextStart}}'''{{text|S|white}}tart F5''' Compiles into EXE file and runs program(with code whiteout). -─────────────────────────── -'''Start ({{text|D|white}}etached) Ctrl+F5''' Compiles into EXE and runs program separately (no code whiteout). -'''Make E{{text|X|white}}E Only F11''' Compiles into EXE without program files if there are no errors. '' '' -─────────────────────────── -'''Make {{text|A|white}}ndroid Project''' GL Compiled program as Android project(enabled in Options) -{{TextEnd}}{{small|Function keys compile without entering menu}} - - -<center> White letters indicate CTRL + letter shortcuts when inside Run menu</center> - - -<center>'''Associated text [[$INCLUDE]] code files, [[DECLARE LIBRARY|LIBRARY]] DLL files and C++ ''.h'' header files must be in the QB64 folder to compile.''' - -In QB64 versions prior to 1.000 the provided DLL files need to be included with the program ''EXE'' after it is compiled. - -(The compiler can find Windows DLL files in the System folder and C++ DLL files in the QB64 folder.) - -'''No additional program files need to be in the QB64 folder to Make EXE Only!''' - -The compiled EXE file can then be moved to a different folder holding the program files necessary when it is run.</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How can I slow my program down and/or use less CPU resources?== - -Not by using FOR loops! It would take a lot of loops just to slow QB64 down! Try [[_LIMIT]] to slow your program down and run at the same frame rate every loop. The integer value you enter determines the loop rate whether it is a [[DO...LOOP]] or a [[FOR...NEXT]] loop. - - -[[_LIMIT]] also keeps the CPU memory usage lower when used correctly. Use Task Manager or another CPU manager to monitor the percentage of use if it is over 50% and it doesn't need to be. Some QB64 programs can take up over 90% of the memory needed! - - -Use [[SLEEP]] or [[INPUT$]] to wait for user entries, key presses or menu selections rather than using running [[INKEY$]] loops too. - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: Can I resize the QB64 Editor([[IDE]])? == - -A: Yes, drag the window border to resize it or use the ''Alt + Enter'' key combination to switch from windowed to full screen mode. This can also be used to resize a QB64 program screen (see [[$RESIZE]]). - -There is also a way to set the window size in the ''Options'' Menu. Select ''Display'' and change the size from 80 columns and 25 rows to a '''larger''' size. The size '''cannot be less than 80 by 25!''' The size denotes the TEXT column and rows only! DO NOT MAKE IT TOO LARGE! - -If there is ever a problem with an OPTION that you set, just Delete the '''.\internal\temp\options.txt''' file. Then restart QB64. You can find the program listed in the taskbar. Right click and select ''Close'' from the pop-up menu. - - -<center>'''See the [[IDE|IDE Page]] for more information.'''</center> - -==Q: The autoformatting doesn't work correctly in the [[IDE]]...== - -A: The autoformatting feature allows you to set a fixed number of spaces to indent your code. You can also choose to have keywords automatically changed to UPPERCASE as well as indenting the contents inside SUB/FUNCTION procedures. If you don't like the way it alters your code (both at load time and as you type it), just disable it. - -<center>'''Autoformatting and Updating can be turned off in the [[IDE]] using the [[IDE#Options_Menu_.28Alt_.2B_O.29:|Options Menu]]!</center> - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: Does it work on Windows 98 or any OS older than Windows 2000?== -A: No, it doesn't. QB64 is made to run on new systems (WinXP and up, Linux and macOS). The .exe files produced by QB64 should work in Windows 98 as long as the required DLL libraries, if any, are supported on that system. +A: No, it doesn't. QB64 is made to run on new systems (Windows XP and up, Linux and macOS). -<center>'''See the [[IDE|IDE Page]] for more information.'''</center> - -==Q: Can Line Numbers be removed from older program code?== - -A: Yes, you can use the Microsoft program below or the program on the following page to remove line numbers that are not required by Basic keywords such as [[GOTO]]. See: [[Line number|Removing line numbers]] - - -<center>'''[ftp://ftp.microsoft.com/services/technet/windows/msdos/RESKIT/SUPPDISK/REMLINE.BAS Microsoft's REMLINE.BAS program removes unnecessary line numbers]'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: Does QB64 support CURRENCY values from PDS or VB programs?== @@ -746,355 +260,19 @@ A: Not directly, but [[_FLOAT]] currency values up to 4 decimal places can be mu [[GET]] can read a [[_FLOAT]] CURRENCY value as an [[INTEGER64]] variable value divided by 10000. -<center>[[PDS(7.1)_Procedures#CURRENCY|See CURRENCY examples]]</center> +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: What files are required to run older QB64 programs (version .954 and older) in Windows?== -A: Older versions of the QB64 compiler (.954 or older) and '''EVERY''' EXE file created by this version of the compiler are dependant on various DLL Library files to function properly. These files are found inside of the QB64 folder. This also explains why QB64 will create ALL EXE files in the QB64 folder no matter where the original BAS file is located on the computer. Your new program will require these files too, but you can move the DLL files to your shared SYSTEM32 folder to eliminate duplicates! - - -'''Note:''' QB64 produces stand-alone executable files from version 1.000 onward. - - -<center>'''Files required for executables created by older versions of QB64:'''</center> - - -<center>''The list of library files you need to include with your program(s) as of July 2010:''</center> - -{{TextStart}} - - jpeg.dll libfreetype-6.dll libgcc_s_sjlj-1.dll *(.95) libogg-0.dll - - libpng12-0.dll libstdc++-6.dll *(.95) libtiff-3.dll libvorbis-0.dll - -libvorbisfile-3.dll SDL.dll SDL_image.dll SDL_mixer.dll - - SDL_net.dll SDL_ttf.dll smpeg.dll zlib1.dll - - - * denotes DLL updated in (version) -{{TextEnd}} - -<center>'''Other Important Files:'''</center> -{{TextStart}} cyberbit.ttf (12.7 MB v 0.92, October 2010) -{{TextEnd}} -<center>'''NOTE:''' ''cyberbit.ttf'' file is a 12.7 megabyte font for rendering [[Unicode]] characters. Auto-update may be slow downloading this file!</center> -<center>This font is NOT required to be included with a program as QB64 can use other fonts when necessary.</center> - - -<center>It is suggested that frequent users copy the DLL files to the SYSTEM folder in Windows. The location should be: </center> -{{WhiteStart}} - ''C:\WINDOWS\SYSTEM32'' or ''C:\WINDOWS\[[SysWOW64]]'' -{{WhiteEnd}} -This will allow all of your programs to run in any location without copies of the DLL files inside of every program folder. Administrator rights may be necessary to move them there! The '''DATA''' folder files are integrated into the compiler itself in versions .91 and above. - - -<center>'''You may need Administrator rights to install or use QB64.'''</center> - - ----- - - -<center>'''The DATA folder and its contents ARE NO LONGER REQUIRED as of the 8/21/2010 version .91!'''</center> - -<center> ''Files inside of the older version DATA folder.''</center> - -{{TextStart}} - charset8.raw chrset16.raw qb64.pal qb64ega.pal qb64icon '' '' -{{TextEnd}} -<center>{{text|These files are no longer required and are no longer available except with older version downloads!|red}}</center> - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> ==Q: Do you provide changelogs?== -We do. Check below: +A: We do. For all recent changelogs, check [http://www.qb64.org QB64.org] -* [[Version .9 changelog]] -* [[Version 1.000 changelog]] -* [[Version 1.1 changelog]] +<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> -==Q: Does a User licence come with QB64?== +==Q: Where I can view the C++ code before it gets compiled?== +A: Look in the QB64 '''internal\temp''' folder for '''main.txt''' to get the C code used to compile the latest program. -A: Yes, as of version 0.85 a licence comes with QB64 released as freeware. Read the licence.txt that comes with the download package for more information. QB64 will always be free to use with the current library files and the licenses DO NOT LIMIT the use of those libraries! You are also allowed to sell software that you create with the following stipulations: -{{TextStart}} '''QB64 SDL SOFTWARE LICENSE''' - -QB64 is currently released as freeware meaning that this download may be copied/distributed -free of charge. All rights to the programs you create using QB64 (in both their executable -and source form) belong to you. '''You are under no obligation to release the source code to''' -'''the programs you create. You can sell the programs you create for profit.''' You are under no -obligation to acknowledge that the programs you create were written in QB64 or reference -the QB64 website in any way. - -The dynamically linked libraries (the DLL files you must include with your programs) are -distributed under '''LGPL'''. Requirements for this can be found at the following URL: - - http://www.libsdl.org/license-lgpl.php - -QB64 and QB64 programs dynamically link to SDL (Simple DirectMedia Layer) libraries. SDL -libraries are made available under the '''GNU Lesser General Public License (LGPL)'''. Details of -the SDL license requirements can be found at the above URL. - - -Libraries are used in their 'standard'/unmodified versions and source code for these -libraries can be found at: - - http://www.libsdl.org - -The QB64 compiler generates C++ code which is compiled into executable form by the MINGW -GCC compiler. QB64 uses a version of the MINGW & GCC compilers found at the following URL: - - http://www.drangon.org/mingw/ - -The official version of MINGW GCC compiler can be found at the following URL: - - http://www.mingw.org/ '' '' -{{TextEnd}} - -:The choice of license makes a big difference: using the '''Lesser GPL''' permits use of the library in proprietary programs; using the ordinary GPL for a library makes it available only for free programs. - - -<Center>'''QB64 GL License found in the License folder with other licenses:'''</center> -{{TextStart}} - '''IMPORTANT LICENSING NOTE FOR QB64 GL PROGRAMMERS''' -All executables which perform any kind of sound operation are subject to the LGPL license -(due to incorporation of mpglibdll and OpenAL). -Other components are licensed under various permissive licences. -When sound components are included (thus the LGPL is in effect), the easiest way to meet -terms of the LGPL is to make your program's source code (.BAS) available. -'''If you are not using sound components, you do not need to release the program's source.''' -'''If you are using fonts, you are bound by the terms of FreeType's license.''' Somewhere -in your software package should include a notice that your program includes the FreeType -library (see licence_freetype_ftl.txt for details) -'''In all cases, you should distribute the LICENSE folder with your program.''' - -It should be noted that providing source code is not the only way to meet the conditions of -the LGPL (eg dynamic linking) but it is by far the easiest from a technical point of view at -this current time. - - -The license requirements for components of QB64 are as follows: - -Software/Library Name: QB64 (inclusive of all parts of this distribution not covered by -separate licence below) -Website(s): http://www.qb64.net, http://code.google.com/p/qb64/ -License: LGPL with static linking of code required for generated programs to run permitted -License Website: http://www.gnu.org/licenses/licenses.html#LGPL -License File: license/lgpl_2_1.txt - -Software/Library Name: MinGW 64 -Website: http://mingw-w64.sourceforge.net/ -License: (see below) -Each of the various packages, which is distributed by MinGW.org, is governed by its own -individual copyright and licensing terms. In summary, for the most commonly deployed -packages: -MinGW runtime: The MinGW base runtime package has been placed in the public domain, and -is not governed by copyright. This basically means that you can do what you like with the -code.w32api: You are free to use, modify and copy this package. No restrictions are imposed -on programs or object files linked with this library. You may not restrict the the usage of -this library. You may distribute this library as part of another package or as a modified -package if, and only if, you do not restrict the usage of the portions consisting of this -(optionally modified) library. If distributed as a modified package, then a copy of this -notice must be included. -This library is distributed in the hope that it will be useful, but WITHOUT WARRANTY OF -ANY KIND; without even the implied warranties of MERCHANTABILITY or of FITNESS FOR A -PARTICULAR PURPOSE. -MinGW profiling code: MinGW profiling code is distributed under the terms of the GNU General -Public License. -Binutils, GCC, GDB, GNU Make: All of the GNU development tools, such as GNU binutils, GCC, -GDB and GNU Make, are governed by the terms of the GNU General Public License. -License Website: http://www.gnu.org/licenses/licenses.html#GPL -License File: license_gnu_gpl_3.txt -Location in QB64 distribution: internal/c/c_compiler/ - -Software/Library Name: Opus Tools -Website: http://www.opus-codec.org/ -License: BSD 2-clause license -License Website: http://opensource.org/licenses/BSD-2-Clause -License File: license_opus.txt -Location in QB64 distribution: internal/c/parts/audio/conversion/ -OpusInfo, which is under a GPL licence, was included in Opus Tools but has been removed -from the QB64 distribution. - -Software/Library Name: mpglibdll -Website(s): -http://www.rz.uni-frankfurt.de/~pesch -http://www.mpg123.de -http://www.sulaco.org/mp3 -License: LGPL 2.1 -License Website: http://www.gnu.org/licenses/licenses.html#LGPL -License File: license_gnu_lgpl_2_1.txt -Location in QB64 distribution: internal/c/parts/audio/decode/mp3/ - -Software/Library Name: Ogg Vorbis I audio decoder version 1.05 -Website:http://nothings.org/stb_vorbis/ -Date:Written in April 2007 -Author:Sean Barrett, sponsored by RAD Game Tools -License: Placed in the public domain April 2007 by the author: no copyright is claimed, and -you may use it for any purpose you like. -License Website: N/A - public domain -License File: license_stbvorbis.txt -Location in QB64 distribution: internal/c/parts/audio/decode/ogg/ - -Software/Library Name: OpenAL-soft -Website:http://kcat.strangesoft.net/openal.html -License: LGPL 2 -License Website: http://www.gnu.org/licenses/licenses.html#LGPL -License File: license_gnu_lgpl_2.txt -Location in QB64 distribution: internal/c/parts/audio/out/ - -Software/Library Name: FreeGLUT -Website: http://freeglut.sourceforge.net/ -License: LGPL (note: website states LGPL, license file is not a copy of GNU LGPL) -License Website: http://www.gnu.org/licenses/licenses.html#LGPL -License File: license_freeglut.txt -Location in QB64 distribution: internal/c/parts/core/ - -Software/Library Name: FreeTYPE -Website: http://www.freetype.org/ -License: GPL or FreeTYPE's FTL (programs must abide by one of these licenses) -License Website(s): (see below) -http://www.freetype.org/license.html -http://www.gnu.org/licenses/licenses.html#GPL -License File(s): (see below) -license_freetype_ftl.txt -license_gnu_gpl_2.txt -Location in QB64 distribution: internal/c/parts/video/font/ttf/ - -Software/Library Name: NanoJPEG - KeyJ's Tiny Baseline JPEG Decoder -Author: Martin J. Fiedler <martin.fiedler@gmx.net> -License: (refer to license file) -License File: nanojpeg_license.txt -Location in QB64 distribution: internal/c/parts/video/image/decode/jpg - -Software/Library Name: NanoJPEG - KeyJ's Tiny Baseline JPEG Decoder -Author: Martin J. Fiedler <martin.fiedler@gmx.net> -License: (refer to license file) -License File: license_nanojpeg.txt -Location in QB64 distribution: internal/c/parts/video/image/decode/jpg - -Software/Library Name: LodePNG -License: (refer to license file) -License File: license_lodepng.txt -Location in QB64 distribution: internal/c/parts/video/image/decode/png -{{TextEnd}} - - -<center> '''The creator of QB64 is NOT responsible for any damages or the intended use of the software it creates!'''</center> - -<center>'''The user assumes all risk when they download or use the QB64 compiler!'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How can I find what caused a Compiler error?== - -A: Compiler errors are often actually coding errors that both you and the IDE don't notice! Often it is a syntax error such as forgetting a quotation mark in a PRINT. Look for syntax errors too. - -* You will find a script/batch file called '''recompile_win.bat''' (also '''recompile_osx.command''' or '''recompile_lnx.sh''', according to your operating system) inside the folder '''internal\temp''' (if you have more than one instance of the IDE open, look inside temp2, temp3, etc). -* Immediately after encountering a "C++ compilation failed" message, run this script to have a look at the error message returned by the gcc compiler. That usually helps track the issue. - - ----- - - -''For versions of QB64 below .954, the best way to get a clue to the problem is to run the following batch file IMMEDIATELY AFTER a compilation failure: '''CODE UPDATED 1/4/2011''''' - -<center>'''{{text|It's a good idea to exclude "QB64.exe" from any real-time anti-virus scanning to prevent IDE Module Errors!|red}}'''</center> - -<center>'''Displays errors in a DOS Console window'''</center> -{{TextStart}} '' '' -@echo off -ECHO. -ECHO Diagnosing Latest Compilation Error -ECHO. -ECHO Please wait... -ECHO. - -cd .\internal\c -.\bin\g -w -Wall -I.\i -I..\..\ -L.\l qbx.cpp libqbx.o -mwindows .\i686-w64-mingw32\lib\libimm32.a -lwinspool -lmingw32 -ln -lmix -limg -lttf -lmn -lSDL -o ..\..\test64.exe -cd ..\.. - -ECHO. -ECHO. -PAUSE '' '' -{{TextEnd}} -<center>'''Note: Make sure that ''test64.exe'' is at the end of the long code line when copying!'''</center> - - -<center>'''Places compiler errors into the ''0utput64.txt'' file'''</center> -{{TextStart}} '' '' -@echo off -ECHO. -ECHO Diagnosing Latest Compilation Error -ECHO. -ECHO Please wait... -ECHO. -cd .\internal\c -.\bin\g -w -Wall -I.\i -I..\..\ -L.\l qbx.cpp libqbx.o -mwindows .\i686-w64-mingw32\lib\libimm32.a -lwinspool -lmingw32 -ln -lmix -limg -lttf -lmn -lSDL -s -o ..\..\ >..\..\0utput64.txt 2>&1 -cd ..\.. - -ECHO. -ECHO 0utput64.txt created! -ECHO. -PAUSE '' '' -{{TextEnd}} -<center>'''Note: Make sure that ''0utput64.txt 2>&1'' is at the end of the long code line when copying!'''</center> - - -<center>'''To create the Batch file, copy code above to Notepad and save it as ''QB64ERR.BAT''. Save as type: ''All Files''.'''</center> - - -Look for the word '''error''' in the resulting information. The errors often have to do with syntax or code errors not found by the [[IDE]]. - -<center>'''Place the batch files into the QB64 folder to use.'''</center> - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: How do I use the QB64 code Repository?== - -A: QB64 is open source freeware and all the codebase is freely available on GitHub at [https://github.com/Galleondragon/qb64 this link]. You can fork it, develop your own modified version of it and '''most importantly: help improve the official version by making pull requests.''' If you are already familiar with code collaboration, versioning control using git and would like to help, become involved! Your contributions could end up becoming part of the QB64 project. - -<!-- You can find a video tutorial here: [http://www.qb64.net/qb64_repository_tutorial.mp4 Repository Video Tutorial] --> - - -:: '''I cannot stress enough that the QB64 repository is not an official QB64 release! Even though our contributors are individually appointed, I'm not responsible for the contributions of these other authors which could potentially be malicious. ''' - -::'''Galleon''' - - -<p style="text-align: center">([[#toc|Return to FAQ topics]])</p> - -==Q: Where I can view the C++ code before it gets compiled== -Look in the QB64 '''internal\temp''' folder for '''main.txt''' to get the C code used to compile the latest program. - -==Q: Where can I find information about a QB64 statement or function?== - - -<center>'''[[Known QB64 Issues]]'''</center> - - -<center>'''[http://www.qb64.net/forum/index.php QB64 Forum] ([[Forum Tips]])'''</center> - - -<center>'''[http://qb64.net/wiki/index.php?title=QB64_Tutorials QB64 Tutorials]''' - - -[[Main_Page#Appendix:|Appendix of QB64 Procedures]] - - -[http://qb64.net/wiki/index.php?title=Main_Page#Appendix: Information about Programming concepts]</center> - - -<p style="text-align: center">[[Keywords currently not supported by QB64]]</p> - -<center>[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keywords Not Supported in Linux or MAC OSX versions]]</center> - - -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/QB64_Help_Menu.txt b/internal/help/QB64_Help_Menu.txt index 9b6551185..aba142c10 100644 --- a/internal/help/QB64_Help_Menu.txt +++ b/internal/help/QB64_Help_Menu.txt @@ -1,7 +1,7 @@ -<center>[[Keyword Reference - Alphabetical|Alphabetical Keyword Index]] +<center>[[Keyword Reference - Alphabetical|Alphabetical Keyword Index]] [[Keyword Reference - By usage|Keyword Index by Usage]] [[QB64 FAQ|Frequently Asked Questions About QB64]] -</center> \ No newline at end of file +</center> diff --git a/internal/help/Question_mark.txt b/internal/help/Question_mark.txt index b666739a3..3c35b2ec3 100644 --- a/internal/help/Question_mark.txt +++ b/internal/help/Question_mark.txt @@ -1,10 +1,10 @@ A '''question mark''' can be used as a substitute shortcut to typing PRINT when creating code. -''Usage:'' ?"Hello world" +''Usage:'' ?"Hello world" -''Result:'' PRINT "Hello world" +''Result:'' PRINT "Hello world" * When the IDE cursor moves to the next code line, the question mark is changed to PRINT and the prompt text and variable are spaced appropriately. @@ -19,4 +19,4 @@ A '''question mark''' can be used as a substitute shortcut to typing PRINT when * [[Quotation mark]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Quotation_mark.txt b/internal/help/Quotation_mark.txt index f2109b3c7..5922f1c68 100644 --- a/internal/help/Quotation_mark.txt +++ b/internal/help/Quotation_mark.txt @@ -1,7 +1,7 @@ A '''quotation mark''' delimits the start and end of a literal [[STRING]] value. -''Usage:'' string_value$ = "This is a text STRING." +''Usage:'' string_value$ = "This is a text STRING." * The quotation mark must delimit the ends of a string or text prompt in a [[PRINT]], [[WRITE]], [[INPUT]] or [[LINE INPUT]] statement. @@ -21,4 +21,4 @@ A '''quotation mark''' delimits the start and end of a literal [[STRING]] value. * [[CHR$]], [[LINE INPUT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RANDOM.txt b/internal/help/RANDOM.txt index ec3e3fc9e..484e9d7e6 100644 --- a/internal/help/RANDOM.txt +++ b/internal/help/RANDOM.txt @@ -6,7 +6,7 @@ :: OPEN Filename$ FOR RANDOM AS #1 [LEN = ''recordlength%''] -* RANDOM is the Default mode if no mode is given in the OPEN statement. +* RANDOM is the Default mode if no mode is given in the [[OPEN]] statement. * It creates the file if the legal file name given does NOT exist. * As a RANDOM file, it can read or write any record using [[GET]] and/or [[PUT]] statements. * ''Recordlength%'' is determined by getting the LEN of a [[TYPE]] variable or a [[FIELD]] statement. @@ -31,21 +31,21 @@ {{Cl|DIM}} {{Cl|SHARED}} cust {{Cl|AS}} customer, recLEN recLEN = {{Cl|LEN}}(cust) 'get the length of the record type -{{Cl|PRINT}} "Rec{{Cl|LEN}}:"; recLEN +{{Cl|PRINT}} "Rec{{Cl|LEN}}:"; recLEN -{{Cl|OPEN}} "randfile.rec" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = recLEN +{{Cl|OPEN}} "randfile.rec" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = recLEN {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 4 {{Cl|READ}} cust.age, cust.phone {{Cl|PUT}} #1, , cust {{Cl|NEXT}} {{Cl|CLOSE}} #1 -RP = RecordPos("randfile.rec", "2223456789") 'returns 0 if record not found! +RP = RecordPos("randfile.rec", "2223456789") 'returns 0 if record not found! {{Cl|PRINT}} RP {{Cl|IF...THEN|IF}} RP {{Cl|THEN}} - {{Cl|OPEN}} "randfile.rec" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #2 {{Cl|LEN}} = recLEN + {{Cl|OPEN}} "randfile.rec" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #2 {{Cl|LEN}} = recLEN {{Cl|GET}} #2, RP, cust {{Cl|CLOSE}} #2 {{Cl|PRINT}} cust.age, cust.phone @@ -71,12 +71,12 @@ recpos = {{Cl|INSTR}}(dat$, search$) ''Example 2:'' When not using a [[TYPE]] or fixed length strings, QB4.5 allows RANDOM files to hold variable length strings up to 2 bytes less than the LEN = record length statement: {{CodeStart}} '' '' {{Cl|_CONTROLCHR}} OFF -{{Cl|OPEN}} "myfile.txt" {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1: {{Cl|CLOSE}} #1: ' clears former file of all entries. -{{Cl|OPEN}} "myfile.txt" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = 13 'strings can be up to 11 bytes with 2 byte padder +{{Cl|OPEN}} "myfile.txt" {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1: {{Cl|CLOSE}} #1: ' clears former file of all entries. +{{Cl|OPEN}} "myfile.txt" {{Cl|FOR...NEXT|FOR}} {{Cl|RANDOM}} {{Cl|AS}} #1 {{Cl|LEN}} = 13 'strings can be up to 11 bytes with 2 byte padder -a$ = {{Cl|CHR$}}(1) + {{Cl|CHR$}}(0) + "ABCDEFGHI" -b$ = "ABCDEFGHI" -c$ = "1234" +a$ = {{Cl|CHR$}}(1) + {{Cl|CHR$}}(0) + "ABCDEFGHI" +b$ = "ABCDEFGHI" +c$ = "1234" {{Cl|PUT}} #1, 1, a$ {{Cl|PUT}} #1, 2, b$ @@ -102,4 +102,4 @@ ABCDEFGHI 9 * [[SEEK]], [[SEEK (statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RANDOMIZE.txt b/internal/help/RANDOMIZE.txt index f0a2b0f60..8ee16fa3a 100644 --- a/internal/help/RANDOMIZE.txt +++ b/internal/help/RANDOMIZE.txt @@ -21,7 +21,7 @@ randnum% = INT({{Cl|RND}} * 11) + 2 'add one to multiplier as INT rounds down and never equals 10 PRINT randnum% K$ = {{Cl|INPUT$}}(1) -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|UCASE$}}(K$) = "Q" 'q = quit +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|UCASE$}}(K$) = "Q" 'q = quit {{Cl|END}} '' '' {{CodeEnd}} :''Explanation:'' Procedure generates random integer values from 2 to 12 like a pair of dice. @@ -33,7 +33,7 @@ K$ = {{Cl|INPUT$}}(1) Print7 {{Cl|RANDOMIZE}} seed Print7 -{{Cl|PRINT}} "Press a key to start sequence over!" +{{Cl|PRINT}} "Press a key to start sequence over!" K$ = {{Cl|INPUT$}}(1) {{Cl|RANDOMIZE}} '''USING''' seed Print7 @@ -101,4 +101,4 @@ DO * [[TIMER]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/READ.txt b/internal/help/READ.txt index 7371f6823..734deb8ea 100644 --- a/internal/help/READ.txt +++ b/internal/help/READ.txt @@ -11,13 +11,13 @@ The '''READ''' statement reads values from a [[DATA]] field and assigns them to * [[DATA]] can be READ using [[STRING]] or numerical [[TYPE]] variables singularly or in a comma separated list: :: [[STRING]] READ variables can read quoted or unquoted text or numerical DATA values! :: Numerical type READ variables can only read '''unquoted''' numerical DATA values! -::'''If they do not agree, a [[ERROR Codes|"Syntax error"]] may result when run reading string data as numerical values!''' +::'''If they do not agree, a [[ERROR Codes|"Syntax error"]] may result when run reading string data as numerical values!''' * If the number of variables specified is fewer than the number of elements in the DATA statement(s), subsequent READ statements begin reading data at the next unread element. If there are no subsequent READ statements, the extra data is ignored. -* If variable reads exceed the number of elements in the DATA field(s), an [[ERROR Codes|"Out of data" error]] will occur! +* If variable reads exceed the number of elements in the DATA field(s), an [[ERROR Codes|"Out of data" error]] will occur! * Use the [[RESTORE]] statement to reread DATA statements from the start, with or without a line label as required. * [[ACCESS]] READ can be used in an [[OPEN]] statement to limit file access to read only, preserving file data. * '''WARNING! Do not place DATA fields after [[SUB]] or [[FUNCTION]] procedures! QB64 will FAIL to compile properly!''' -: Qbasic allowed programmers to add DATA fields anywhere because the [[IDE]] separated the main code from other procedures. +: QBasic allowed programmers to add DATA fields anywhere because the IDE separated the main code from other procedures. ''Example 1:'' Placing data into an array. @@ -42,19 +42,19 @@ The '''READ''' statement reads values from a [[DATA]] field and assigns them to ''Example 2:'' Reading three pieces of data at once. {{CodeStart}} - PRINT " CITY ", " STATE ", " ZIP" - PRINT {{Cl|STRING$}}(30, "-") 'divider + PRINT " CITY ", " STATE ", " ZIP" + PRINT {{Cl|STRING$}}(30, "-") 'divider {{Cl|READ}} C$, S$, Z& PRINT C$, S$, Z& - {{Cl|DATA}} "DENVER,", COLORADO, 80211 '' '' + {{Cl|DATA}} "DENVER,", COLORADO, 80211 '' '' {{CodeEnd}} {{OutputStart}} CITY      STATE     ZIP ------------------------------ DENVER,  COLORADO    80211 {{OutputEnd}} -:''Note:'' String DATA values do not require quotes unless they contain commas, end spaces or Qbasic keywords. +:''Note:'' String DATA values do not require quotes unless they contain commas, end spaces or QBasic keywords. @@ -64,4 +64,4 @@ The '''READ''' statement reads values from a [[DATA]] field and assigns them to * [[OPEN]] FOR [[INPUT (file mode)|INPUT]] {{text|(file statement)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/REDIM.txt b/internal/help/REDIM.txt index 2b1510680..33f2b127a 100644 --- a/internal/help/REDIM.txt +++ b/internal/help/REDIM.txt @@ -3,30 +3,32 @@ A {{KW|REDIM}} statement can re-dimension one [[$DYNAMIC|dynamic]](flexible) [[A {{PageSyntax}} :[[REDIM]] [{{KW|_PRESERVE}}] [{{KW|SHARED}}] ArrayName[''typesuffix''] ({''max_element''|low_element[{{KW|TO}} ''upper_element'', ...]}) [{{KW|AS}} {{KW|TYPE|Type}}] +:[[REDIM]] [{{KW|_PRESERVE}}] [{{KW|SHARED}}] [{{KW|AS}} {{KW|TYPE|Type}}] ArrayName({''max_element''|low_element[{{KW|TO}} ''upper_element'', ...]}) {{PageDescription}} * Can change the number of elements in an array (the present array data is lost unless [[_PRESERVE]] is used). * Dynamic array elements can also be sized or resized by a program user's entry. -* The [[_PRESERVE]] option also allows the ''element'' range values to be moved upward or downward in '''QB64 only!''' +* The [[_PRESERVE]] option also allows the ''element'' range values to be moved upward or downward. * {{Parameter|Array}} is the name of the array to be dimensioned or re-dimensioned. * {{Parameter|elements}} is the number of elements the array should hold. Use the optional [[TO]] {{Parameter|elements2}} to set a range. * '''Always use the same array [[TYPE]] suffix ([[AS]] type) or a new array type with the same name may be created.''' -* REDIM cannot change [[$STATIC]] arrays created with a [[DIM]] statement unless the [[$DYNAMIC]] [[Metacommand]] is used! +* REDIM cannot change [[$STATIC]] arrays created with a [[DIM]] statement unless the [[$DYNAMIC]] [[metacommand]] is used. * To create a dynamic array use the [[$DYNAMIC]] metacommand or use [[REDIM]] rather than [[DIM]] when first creating the array. * Use REDIM [[_PRESERVE]] to change the range or number of array elements without losing the remaining elements. Data may move up or down to accommodate those boundary changes. -* '''REDIM [[_PRESERVE]] cannot change the number of array dimensions or type!''' +* '''REDIM [[_PRESERVE]] cannot change the number of array dimensions or type.''' * [[$DYNAMIC|Dynamic]] arrays MUST be [[REDIM]]ensioned if [[ERASE]] or [[CLEAR]] are used to clear the arrays as they no longer exist. * When [[AS]] is used to declare the type, use [[AS]] to retain that type or it will change to [[SINGLE]]! -* '''NOTE: Many Qbasic keyword variable names CAN be used with a [[STRING]] suffix($) ONLY! You CANNOT use them without the suffix, use a numerical suffix or use [[DIM]], [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]] statements!''' -* '''Warning! Do not use negative array upper bound index values as OS access or "Out of Memory" [[ERROR Codes|errors]] will occur!''' +* '''Warning! Do not use negative array upper bound index values as OS access or "Out of Memory" [[ERROR Codes|errors]] will occur.''' +* When using the '''AS type variable-list''' syntax, type symbols cannot be used. -''Example 1:'' The [[$DYNAMIC]] Metacommand allows an array to be re-sized using [[DIM]] and REDIM. +{{PageExamples}} +''Example 1:'' The [[$DYNAMIC]] metacommand allows an array to be re-sized using [[DIM]] and REDIM. {{CodeStart}} '' '' '{{Cl|$DYNAMIC}} -{{Cl|INPUT}} "Enter array size: ", size +{{Cl|INPUT}} "Enter array size: ", size {{Cl|DIM}} Array(size) {{Cl|REDIM}} Array(2 * size) @@ -63,4 +65,4 @@ array(10) = 24 * [[$DYNAMIC]], [[$STATIC]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/REM.txt b/internal/help/REM.txt index 0a9a3e003..6e3376abe 100644 --- a/internal/help/REM.txt +++ b/internal/help/REM.txt @@ -1,30 +1,33 @@ -'''REM''' or an apostrophe is used for programmer remarks, comments or to stop the execution of program code. +[[REM]] allows explanatory comments, or remarks, to be inserted in a program. [[REM]] statements extend to the end of the line and the text is ignored when the program is run. {{PageSyntax}} -:: REM program comment or ignore code +:: [[REM]] this is a comment +:: [[apostrophe|']] this is also a comment {{PageDescription}} -* Comments cannot be read by Qbasic correctly and may cause syntax and other errors without REM! -* Instead of REM you can use the {{KW|REM|'}} symbol which can be put anywhere. -* Code can also be commented out for program testing purposes. -* Qbasic Metacommands such as {{KW|$DYNAMIC}} and {{KW|$INCLUDE}} require the use of REM or the apostrophe. +* [[REM]] may only be used where statements are allowed unlike [[apostrophe]] comments which may be included anywhere. +* [[REM]] must appear as the last, or only, statement on a line. Any following statements are included in the comment text and ignored. +* QBasic [[metacommand]]s like [[$INCLUDE]] must be included in a comment using either [[REM]] or [[apostrophe|']]. +* [[Apostrophe]] comments, unavailable in earlier dialects of the BASIC language, are now generally favored over [[REM]] statements for their greater flexibility. +* Comments are also useful for disabling code for program testing and debugging purposes. -''Example:'' Avoiding an END IF error. +{{PageExamples}} +''Example:'' Avoiding an [[END IF]] error. {{CodeStart}} '' '' {{Cl|REM}} This is a remark... ' This is also a remark... -{{Cl|IF...THEN|IF}} a = 0 {{Cl|THEN}} {{Cl|REM}} (REM follows syntax rules) -{{Cl|IF...THEN|IF}} a = 0 {{Cl|THEN}} '(apostrophe doesn't follow syntax rules, so use END IF after this) +{{Cl|IF...THEN|IF}} a = 0 {{Cl|THEN}} {{Cl|REM}} this statement is executed so this is a single-line IF statement +{{Cl|IF...THEN|IF}} a = 0 {{Cl|THEN}} ' this comment is not executed so this is a multi-line IF statement and END IF is required {{Cl|END IF}} '' '' {{CodeEnd}} {{PageSeeAlso}} * [[Apostrophe]] -* {{KW|$DYNAMIC}}, {{KW|$STATIC}}, {{KW|$INCLUDE|$INCLUDE:}} +* [[$DYNAMIC]], [[$STATIC]], [[$INCLUDE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RESET.txt b/internal/help/RESET.txt index 8cd4107bc..f0b8ad825 100644 --- a/internal/help/RESET.txt +++ b/internal/help/RESET.txt @@ -14,4 +14,4 @@ The '''RESET''' statement closes all files and writes the directory information * [[CLOSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RESTORE.txt b/internal/help/RESTORE.txt index bf81eeb3a..5399a49a2 100644 --- a/internal/help/RESTORE.txt +++ b/internal/help/RESTORE.txt @@ -1,54 +1,56 @@ -The '''RESTORE''' statement is used to reset the DATA pointer to the beginning of the data. +The [[RESTORE]] statement is used to reset the DATA pointer to the beginning of the data. {{PageSyntax}} -:: RESTORE [datafield] +:: [[RESTORE]] [lineNumber|lineLabel] -* The datafield line label or number enables a labeled data field to be [[READ]] more than once as required. +{{PageDescription}} +* The line label or number enables a labeled data field to be [[READ]] more than once as required. * Datafield label names are not required when working with ONE or a progression of data fields in the main body of code. * Label multiple data fields to restore them to use them again when necessary. * If RESTORE is used with unlabeled data fields or no datafield is designated then the first data field is read. -* Use RESTORE to avoid an [[ERROR Codes|"Out of Data" error]] when reading a data field! +* Use RESTORE to avoid an [[ERROR Codes|"Out of Data" error]] when reading a data field! * See the [[DATA]] statement for [[STRING]] data value specifications. * '''Do not place [[DATA]] fields after [[SUB]] or [[FUNCTION]] procedures! QB64 will FAIL to [[RESTORE]] properly!''' -: Qbasic allowed programmers to add DATA fields anywhere because the [[IDE]] separated the main code from other procedures. +: QBasic allowed programmers to add DATA fields anywhere because the IDE separated the main code from other procedures. -''Example:'' Restoring a labeled DATA field to avoid going past the end of DATA. +{{PageExamples}} +''Example 1:'' Restoring a labeled DATA field to avoid going past the end of DATA. {{CodeStart}} -DO - {{Cl|INPUT}} "Enter a month number(1 to 12): ", monthnum% +{{Cl|DO}} + {{Cl|INPUT}} "Enter a month number(1 to 12): ", monthnum% - {{Cl|RESTORE}} Months - FOR i = 1 TO monthnum% - {{Cl|READ}} month$, days% 'variables must match data field types - NEXT - {{Cl|PRINT}} "The month "; month$; " has"; days%; "days." -LOOP UNTIL monthnum% < 1 OR monthnum% > 12 + {{Cl|RESTORE}} Months + {{Cl|FOR}} i = 1 {{Cl|TO}} monthnum% + {{Cl|READ}} month$, days% 'variables must match data field types + {{Cl|NEXT}} + {{Cl|PRINT}} "The month "; month$; " has"; days%; "days." +{{Cl|LOOP}} {{Cl|UNTIL}} monthnum% < 1 OR monthnum% > 12 - Months: - {{Cl|DATA}} January, 31, February, 28, March, 31, April, 30, May, 31, June, 30 - {{Cl|DATA}} July, 31, August, 31, September, 30, October, 31, November, 30, December, 31 +Months: +{{Cl|DATA}} January, 31, February, 28, March, 31, April, 30, May, 31, June, 30 +{{Cl|DATA}} July, 31, August, 31, September, 30, October, 31, November, 30, December, 31 {{CodeEnd}} {{OutputStart}} Enter a month number(1 to 12): 6 The month June has 30 days. {{OutputEnd}} -:''Note:'' String DATA values do not require quotes unless they have commas, end spaces or Qbasic keywords in them. +:''Note:'' String DATA values do not require quotes unless they have commas, end spaces or QBasic keywords in them. -''Example:'' Using RESTORE to know the number of elements in the DATA in order to dimension and store the items in a array. +''Example 2:'' Using RESTORE to know the number of elements in the DATA in order to dimension and store the items in a array. {{CodeStart}} {{Cl|DO}} -{{Cl|READ}} dummy$ 'we won't actually use this string for anything else than to know when there is no more DATA. -count = count + 1 -{{Cl|LOOP}} {{Cl|UNTIL}} dummy$ = "stop" 'when dummy$ = "stop" then we know that it is the last entry so it only does the above loop until then. + {{Cl|READ}} dummy$ 'we won't actually use this string for anything else than to know when there is no more DATA. + count = count + 1 +{{Cl|LOOP}} {{Cl|UNTIL}} dummy$ = "stop" 'when dummy$ = "stop" then we know that it is the last entry so it only does the above loop until then. -count = count - 1 'since the last string is "stop" and we don't want to store it in the array. +count = count - 1 'since the last string is "stop" and we don't want to store it in the array. -{{Cl|PRINT}} "The number of relevant entries are:"; count +{{Cl|PRINT}} "The number of relevant entries are:"; count {{Cl|DIM}} entry$(count) 'Now we know how many elements we need to make space for (DIM) @@ -56,18 +58,18 @@ count = count - 1 'since the last string is "stop" and we don't want t {{Cl|FOR}} c = 1 {{Cl|TO}} count -{{Cl|READ}} entry$(c) 'read the DATA and store it into the array. + {{Cl|READ}} entry$(c) 'read the DATA and store it into the array. {{Cl|NEXT}} 'we can now print the contents of the array: {{Cl|FOR}} c = 1 {{Cl|TO}} count -{{Cl|PRINT}} entry$(c) + {{Cl|PRINT}} entry$(c) {{Cl|NEXT}} {{Cl|END}} -{{Cl|DATA}} "entry1", "entry2", "entry3", "stop" +{{Cl|DATA}} "entry1", "entry2", "entry3", "stop" {{CodeEnd}} {{small|Code By: Cyperium}} @@ -80,10 +82,9 @@ entry3 ''Note:'' Now we can add any number of entries without further compensation to the code. - -''See also'' +{{PageSeeAlso}} * [[DATA]], [[READ]] * [[line numbers]] / line labels -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RESUME.txt b/internal/help/RESUME.txt index 59e015dd8..dd575c8be 100644 --- a/internal/help/RESUME.txt +++ b/internal/help/RESUME.txt @@ -18,4 +18,4 @@ The '''RESUME''' statement is used with '''NEXT''' or a line number or label in * [[FOR...NEXT]] (counter loop) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RETURN.txt b/internal/help/RETURN.txt index 32042739d..78b4fb172 100644 --- a/internal/help/RETURN.txt +++ b/internal/help/RETURN.txt @@ -5,7 +5,7 @@ :: '''RETURN''' [{''linelabel''|''linenumber''}] -{{Parameters}} +{{PageParameters}} * RETURN without parameters returns to the code immediately following the original [[GOSUB]] call. * ''line number'' or ''linelabel'' after the RETURN statement returns code execution to that label. @@ -14,7 +14,7 @@ * Normally required at the end of a [[GOSUB]] procedure unless the procedure returns using a loop. * RETURN is not used in error handling procedures. Error procedures use [[RESUME]] ''line number'' or [[RESUME|RESUME NEXT]]. * GOSUB procedures use line numbers or line labels designated with a colon after the number or label. -* If RETURN is encountered without a previous [[GOSUB]] call a [[ERROR Codes|"RETURN without GOSUB" error]] is produced. +* If RETURN is encountered without a previous [[GOSUB]] call a [[ERROR Codes|"RETURN without GOSUB" error]] is produced. * To avoid errors, place [[GOSUB]] procedures AFTER the main program code [[END]] or after an [[EXIT SUB]] or [[EXIT FUNCTION]] call. @@ -28,7 +28,7 @@ {{Cl|END}} 'END or SYSTEM stop the program before the execution of a sub procedure five: -{{Cl|PRINT}} "Aha! Five!" +{{Cl|PRINT}} "Aha! Five!" {{Cl|RETURN}} '' '' {{CodeEnd}} {{OutputStart}} @@ -49,9 +49,9 @@ Aha! Five! ''Example 2:'' Returns to a specific line label. {{CodeStart}} {{Cl|GOSUB}} hey -{{Cl|PRINT}} "it didn't go here." +{{Cl|PRINT}} "it didn't go here." hoho: -{{Cl|PRINT}} "it went here." +{{Cl|PRINT}} "it went here." {{Cl|END}} hey: @@ -70,4 +70,4 @@ it went here. * [[RESUME]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RIGHT$.txt b/internal/help/RIGHT$.txt index 6115cdc5e..80deab5ff 100644 --- a/internal/help/RIGHT$.txt +++ b/internal/help/RIGHT$.txt @@ -6,7 +6,7 @@ The '''RIGHT$''' function returns a set number of characters in a [[STRING]] var :: '''RIGHT$('''''stringvalue$, numberofcharacters%''''')''' -{{Parameters}} +{{PageParameters}} * The ''stringvalue$'' can be any string of [[ASCII]] characters as a [[STRING]] variable. * The ''numberofcharacters'' [[INTEGER]] value determines the number of characters to return from the right end of the string. @@ -19,9 +19,9 @@ The '''RIGHT$''' function returns a set number of characters in a [[STRING]] var ''Example 1:'' Getting the right portion of a string value such as a person's last name. {{CodeStart}} '' '' -name$ = "Tom Williams" +name$ = "Tom Williams" -Last$ = {{Cl|RIGHT$}}(name$, {{Cl|LEN}}(name$) - {{Cl|INSTR}}(name$, " ")) 'subtract space position from string length +Last$ = {{Cl|RIGHT$}}(name$, {{Cl|LEN}}(name$) - {{Cl|INSTR}}(name$, " ")) 'subtract space position from string length {{Cl|PRINT}} Last$ '' '' {{CodeEnd}} @@ -36,11 +36,11 @@ green = 0 blue = 128 Color32 red, green, blue -{{Cl|PRINT}} "Colored text" +{{Cl|PRINT}} "Colored text" {{Cl|SUB}} Color32 (R, G, B) R = R {{Cl|AND (boolean)|AND}} {{Cl|&H}}FF: G = G {{Cl|AND (boolean)|AND}} {{Cl|&H}}FF: B = B {{Cl|AND (boolean)|AND}} {{Cl|&H}}FF ' limit values to 0 to 255 -hexadecimal$ = "{{Cl|&H}}FF" + {{Cl|RIGHT$}}("0" + {{Cl|HEX$}}(R), 2) + {{Cl|RIGHT$}}("0" + {{Cl|HEX$}}(G), 2) + {{Cl|RIGHT$}}("0" + {{Cl|HEX$}}(B), 2) +hexadecimal$ = "{{Cl|&H}}FF" + {{Cl|RIGHT$}}("0" + {{Cl|HEX$}}(R), 2) + {{Cl|RIGHT$}}("0" + {{Cl|HEX$}}(G), 2) + {{Cl|RIGHT$}}("0" + {{Cl|HEX$}}(B), 2) {{Cl|PRINT}} hexadecimal$ {{Cl|COLOR}} {{Cl|VAL}}(hexadecimal$) {{Cl|END SUB}} '' '' @@ -56,4 +56,4 @@ hexadecimal$ = "{{Cl|&H}}FF" + {{Cl|RIGHT$}}("0" + {{Cl| * [[INSTR]], [[HEX$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RMDIR.txt b/internal/help/RMDIR.txt index 9c22a52f6..db16ed89c 100644 --- a/internal/help/RMDIR.txt +++ b/internal/help/RMDIR.txt @@ -10,7 +10,6 @@ The {{KW|RMDIR}} statement deletes an empty directory using a designated path re * Directory path must be a literal or variable [[STRING]] value designating the folder to be deleted. * If the directory contains files or folders, a [[ERROR Codes|file/path access error]] will occur. * If the directory path cannot be found, a [[ERROR Codes|path not found]] error occurs. -* '''WARNING: Use this statement carefully! There is no prompt for permission to continue!''' {{PageExamples}} @@ -19,10 +18,10 @@ The {{KW|RMDIR}} statement deletes an empty directory using a designated path re {{Cl|ON ERROR|ON ERROR GOTO}} ErrorHandler DO ERRcode = 0 - {{Cl|INPUT}} "Enter path and name of directory to delete: "; directory$ + {{Cl|INPUT}} "Enter path and name of directory to delete: "; directory$ IF {{Cl|LEN}}(directory$) THEN 'valid user entry or quits {{Cl|RMDIR}} directory$ 'removes empty folder without a prompt - IF ERRcode = 0 THEN PRINT "Folder "; directory$; " removed." + IF ERRcode = 0 THEN PRINT "Folder "; directory$; " removed." END IF LOOP UNTIL ERRcode = 0 OR LEN(directory$) = 0 {{Cl|SYSTEM}} @@ -32,11 +31,11 @@ ErrorHandler: ERRcode = {{Cl|ERR}} 'get error code returned {{Cl|SELECT CASE}} ERRcode {{Cl|CASE}} 75 - {{Cl|PRINT}} directory$ + " is not empty!" + {{Cl|PRINT}} directory$ + " is not empty!" {{Cl|CASE}} 76 - {{Cl|PRINT}} directory$ + " does not exist!" + {{Cl|PRINT}} directory$ + " does not exist!" {{Cl|CASE ELSE}} - {{Cl|PRINT}} "Error"; ERRcode; "attempting to delete " + directory$ + {{Cl|PRINT}} "Error"; ERRcode; "attempting to delete " + directory$ {{Cl|END SELECT}} {{Cl|PRINT}} {{Cl|RESUME|RESUME NEXT}} @@ -59,7 +58,6 @@ C:\temp is not empty! {{PageSeeAlso}} * [[MKDIR]], [[CHDIR]] * [[KILL]], [[FILES]] -* [[DOS]], [[Batch Files]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RND.txt b/internal/help/RND.txt index fabae2071..e3ac4d6e9 100644 --- a/internal/help/RND.txt +++ b/internal/help/RND.txt @@ -5,12 +5,12 @@ The '''RND''' function returns a random number with a value between 0 (inclusive :: result! = [[RND]] [(''n'')] -{{Parameters}} +{{PageParameters}} * ''n'' is a [[SINGLE]] numeric value that defines the behavior of the RND function but is '''NOT normally required''': ::n parameter omitted: Returns next random number in the sequence. ::n = 0: Return the last value returned. ::n < 0: Always returns the same value for any given n -::n > 0: the sequence of numbers generated will not change unless [[RANDOMIZE]] is initiated. +::n > 0: the sequence of numbers generated will not change unless [[RANDOMIZE]] is initiated. {{PageDescription}} @@ -38,7 +38,7 @@ dice% = {{Cl|INT}}({{Cl|RND}} * 6) + 1 '' '' 'add one as INT value never reaches u! = {{Cl|RND}} * 2 - 1 v! = {{Cl|RND}} * 2 - 1 s! = u! * u! + v! * v! -{{Cl|LOOP}} {{Cl|WHILE}} s! >= 1 {{Cl|OR}} s! = 0 +{{Cl|LOOP}} {{Cl|WHILE}} s! >= 1 {{Cl|OR}} s! = 0 s! = SQR(-2 * {{Cl|LOG}}(s!) / s!) * 0.5 u! = u! * s! v! = v! * s! '' '' @@ -96,7 +96,7 @@ DO {{Cl|NEXT}} J -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' {{CodeEnd}} {{small|Code by Falcon}} @@ -105,4 +105,4 @@ DO * [[INT]], [[CINT]], [[FIX]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RSET.txt b/internal/help/RSET.txt index 328d1db7f..8777a7378 100644 --- a/internal/help/RSET.txt +++ b/internal/help/RSET.txt @@ -15,13 +15,13 @@ The '''RSET''' statement right-justifies a string according to length of the str {{CodeStart}} '' '' {{Cl|CLS}} {{Cl|DIM}} thestring {{Cl|AS}} {{Cl|STRING}} * 10 -{{Cl|PRINT}} "12345678901234567890 -{{Cl|RSET}} thestring = "Hello!" +{{Cl|PRINT}} "12345678901234567890" +{{Cl|RSET}} thestring = "Hello!" {{Cl|PRINT}} thestring anystring$ = {{Cl|SPACE$}}(20) -{{Cl|RSET}} anystring$ = "Hello again!" +{{Cl|RSET}} anystring$ = "Hello again!" {{Cl|PRINT}} anystring$ -{{Cl|RSET}} thestring = "Over ten characters long" +{{Cl|RSET}} thestring = "Over ten characters long" {{Cl|PRINT}} thestring '' '' {{CodeEnd}} {{OutputStart}} @@ -31,7 +31,7 @@ anystring$ = {{Cl|SPACE$}}(20) Over ten c {{OutputEnd}} -:''Explanation:'' Notice how "Hello!" ends at the tenth position because the length of ''thestring'' is 10. When we used SPACE$(20) the length of ''anystring$'' became 20 so "Hello Again!" ended at the 20th position. That is right-justified. The last line "Over ten c" is truncated as it didn't fit into ''thestring'''s length of only 10 characters. +:''Explanation:'' Notice how "Hello!" ends at the tenth position because the length of ''thestring'' is 10. When we used SPACE$(20) the length of ''anystring$'' became 20 so "Hello Again!" ended at the 20th position. That is right-justified. The last line "Over ten c" is truncated as it didn't fit into ''thestring'''s length of only 10 characters. ''See also:'' @@ -40,4 +40,4 @@ Over ten c * [[PUT]], [[GET]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RTRIM$.txt b/internal/help/RTRIM$.txt index 6633f9463..215d14c53 100644 --- a/internal/help/RTRIM$.txt +++ b/internal/help/RTRIM$.txt @@ -19,9 +19,9 @@ name$ = {{Cl|RTRIM$}}(contact.name) ' trims spaces from end of fixed length {{Cl {{CodeEnd}} Trimming text string ends: -{{CodeStart}}{{Cl|PRINT}} {{Cl|RTRIM$}}("some text") + "." -{{Cl|PRINT}} {{Cl|RTRIM$}}("some text ") + "." -{{Cl|PRINT}} {{Cl|RTRIM$}}("Tommy ") +{{CodeStart}}{{Cl|PRINT}} {{Cl|RTRIM$}}("some text") + "." +{{Cl|PRINT}} {{Cl|RTRIM$}}("some text ") + "." +{{Cl|PRINT}} {{Cl|RTRIM$}}("Tommy ") {{CodeEnd}} {{OutputStart}}some text. some text. @@ -35,4 +35,4 @@ Tommy * {{KW|LSET}}, {{KW|RSET}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/RUN.txt b/internal/help/RUN.txt index 90813473f..ac6f57435 100644 --- a/internal/help/RUN.txt +++ b/internal/help/RUN.txt @@ -8,34 +8,27 @@ The multi-modular technique goes back to when QBasic and QuickBASIC had module s :: '''RUN''' [{''line_number'' | ''filespec$''}] [''command_parameter(s)''] -{{Parameters}} +{{PageParameters}} * ''line number'' specifies a line number in the main module code. * An optional ''filespec'' specifies a program to load into memory and run. -: * BAS or EXE extensions are assumed to be the same as the calling module's extension, EXE or BAS (Qbasic only). +: * BAS or EXE extensions are assumed to be the same as the calling module's extension, EXE or BAS (QBasic only). : * ''file names specs'' with other extensions must use the full filename. No extension requires a dot. * In '''QB64''' ''command line parameters'' can follow the program file name and be read using the [[COMMAND$]] function later. ''Usage:'' -* The starting [[line number]] MUST be one used in the main module code! Even with [[SUB]] or [[FUNCTION]] references. +* The starting [[line number]] MUST be one used in the main module code, even if RUN is called from within a SUB or FUNCTION. * If no line number is given the currently loaded program runs from the first executable line. * In '''QB64''' RUN can open any kind of executable program and provide case sensitive program specific parameters. -* RUN does not return to the calling procedure if the program called is not a Qbasic procedure! -* RUN closes all open files and closes the invoking program module before the called program starts. (Cannot use Basica's R) -* If you do NOT want opened files to be closed use [[CHAIN]] instead. -* RUN should reset the [[RANDOMIZE]] sequence to the starting [[RND]] function value.(Not in QB64) -* Note: Qbasic also allowed /RUN in a command line call to run a BAS file with the interpreter. QB64 cannot run BAS files! -* '''Note: RUN causes a stack leak in QB64 if it is called from within a [[SUB]] or [[FUNCTION]]. Avoid when possible!''' -* '''NOTE: [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions |Not available in Linux or Mac operating systems.]]''' - - -''QBasic/QuickBASIC:'' -* In Qbasic '''/RUN''' can also be used to run a program module in a command line. Example: QB.EXE /L /RUN Module1.BAS +** Recommended practice to run external programs is to use [[SHELL]]. +* RUN closes all open files and closes the invoking program module before the called program starts. +* RUN resets the [[RANDOMIZE]] sequence to the starting [[RND]] function value. +* '''Note: Calling RUN repeatedly may cause a stack leak in QB64 if it is called from within a [[SUB]] or [[FUNCTION]]. Avoid when possible.''' ''Example 1:'' Shows how RUN can reference multiple line numbers in the main module code. No line number executes first code line. {{CodeStart}} '' '' -PRINT " A", " B", " C", " D" +PRINT " A", " B", " C", " D" 10 A = 1 20 B = 2 30 C = 3 @@ -46,8 +39,8 @@ PRINT " A", " B", " C", " D" 80 {{Cl|IF...THEN|IF}} C = 0 {{Cl|THEN}} 90 {{Cl|ELSE}} {{Cl|RUN}} 40 90 {{Cl|IF...THEN|IF}} D = 0 {{Cl|THEN}} 100 {{Cl|ELSE}} {{Cl|RUN}} 50 100 {{Cl|PRINT}} -{{Cl|INPUT}} "Do you want to quit?(Y/N)", quit$ -{{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(quit$) = "Y" {{Cl|THEN}} {{Cl|END}} {{Cl|ELSE}} {{Cl|RUN}} 'RUN without line number executes at first code line +{{Cl|INPUT}} "Do you want to quit?(Y/N)", quit$ +{{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(quit$) = "Y" {{Cl|THEN}} {{Cl|END}} {{Cl|ELSE}} {{Cl|RUN}} 'RUN without line number executes at first code line '' '' {{CodeEnd}} {{OutputStart}}A B C D @@ -61,33 +54,9 @@ Do you want to quit?(Y/N)_ {{OutputEnd}} -''Example 2:'' Compile both programs below with QB64. ProgramA [[RUN]]s ProgramB with a parameter passed following the filename: -{{CodeStart}} ' ================ ProgramA.BAS =================== -{{Cl|LOCATE}} 12, 36: {{Cl|PRINT}} "ProgramA" - -{{Cl|LOCATE}} 23, 25: {{Cl|PRINT}} "Press any key to run ProgramB" -K$ = {{Cl|INPUT$}}(1) -{{Cl|RUN}} "ProgramB FS" 'pass FS parameter to ProgramB in QB64 ONLY - -{{Cl|END}} '' '' -{{CodeEnd}} -: ''ProgramB'' checks for fullscreen parameter pass in QB64 and goes full screen. -{{CodeStart}} ' ================ ProgramB.BAS =================== -{{Cl|LOCATE}} 12, 36: {{Cl|PRINT}} "ProgramB" -parameter$ = {{Cl|UCASE$}}({{Cl|COMMAND$}}) -{{Cl|LOCATE}} 20, 33: {{Cl|PRINT}} "Parameter = " + parameter$ -{{Cl|IF...THEN|IF}} {{Cl|LEFT$}}(parameter$, 2) = "FS" {{Cl|THEN}} {{Cl|_FULLSCREEN}} 'parameter changes to full screen - -{{Cl|END}} '' '' -{{CodeEnd}} -{{OutputStart}} Parameter = FS.EXE -{{OutputEnd}} -: '''Note:''' The above RUN procedure will NOT work in Qbasic! Qbasic cannot pass [[COMMAND$]] parameters with RUN! - - ''See also:'' * [[CHAIN]], [[SHELL]] * [[COMMAND$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SADD.txt b/internal/help/SADD.txt index f2bf18172..dd86e07ef 100644 --- a/internal/help/SADD.txt +++ b/internal/help/SADD.txt @@ -14,4 +14,4 @@ The '''SADD''' function returns the address of a [[STRING]] variable as an offse * [[VARSEG]], [[VARPTR]], [[DEF SEG]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SCREEN.txt b/internal/help/SCREEN.txt index a55ff4e28..91538a8de 100644 --- a/internal/help/SCREEN.txt +++ b/internal/help/SCREEN.txt @@ -1,4 +1,4 @@ -{| align="Right" +{| align="Right" | __TOC__ |} The [[SCREEN]] statement sets the video display mode and size of the program window's workspace. @@ -9,7 +9,7 @@ The [[SCREEN]] statement sets the video display mode and size of the program win ::: '''SCREEN''' {''mode%''|''imagehandle&''} [, , active_page, visual_page] -{{Parameters}} +{{PageParameters}} * The SCREEN ''mode'' [[INTEGER]] values available today are 0 to 2 and 7 to 13 listed below. * '''QB64''' can use a [[LONG]] [[_NEWIMAGE]] page or [[_LOADIMAGE]] file ''image handle'' value instead. * The empty comma disables color when any value is used. '''DO NOT USE!''' Include the comma ONLY when using page flipping. @@ -59,15 +59,15 @@ The [[SCREEN]] statement sets the video display mode and size of the program win * All SCREEN modes are Windows in QB64. Use [[_FULLSCREEN]] to set the window area to full screen. * [[_SCREENMOVE]] can position a window or the _MIDDLE option can center it on the desktop. -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==Legacy Screen Modes== -* '''[[SCREEN]] 0''' (default mode) is a '''text only''' screen mode. 64 (VGA) colors with hi-intensity(blinking) colors 16 to 31. ([[DAC]] attrib 6, 8 to 15). 8 Background colors intensities only(0 - 7). No graphics are possible! Normally runs in a window. ALT-Enter switches from a window to fullscreen. To automatically run in '''Qbasic''' fullscreen, use another Screen mode before using {{KW|SCREEN (statement)|SCREEN}} 0. Can use {{KW|PCOPY}} with video pages 0 to 7. Text is 25, 43 or 50 rows by 40 or 80 columns. Default is 25 by 80. See {{KW|WIDTH}}. +* '''[[SCREEN]] 0''' (default mode) is a '''text only''' screen mode. 64 (VGA) colors with hi-intensity(blinking) colors 16 to 31. ([[DAC]] attrib 6, 8 to 15). 8 Background colors intensities only(0 - 7). No graphics are possible! Normally runs in a window. ALT-Enter switches from a window to fullscreen. To automatically run in '''QBasic''' fullscreen, use another Screen mode before using {{KW|SCREEN (statement)|SCREEN}} 0. Can use {{KW|PCOPY}} with video pages 0 to 7. Text is 25, 43 or 50 rows by 40 or 80 columns. Default is 25 by 80. See {{KW|WIDTH}}. : '''Note:''' Use [[OUT]] or [[_PALETTECOLOR]] to create higher intensity color backgrounds than [[COLOR]] , 7. -:::'''All other available [[SCREEN]] modes can use text and graphics and are fullscreen in Qbasic ONLY.''' +:::'''All other available [[SCREEN]] modes can use text and graphics and are fullscreen in QBasic ONLY.''' * '''[[SCREEN]] 1''' has 4 background color attributes. 0 = black, 1 = blue, 2 = green, 3 = grey. White foreground only. Text is 25 by 40. White graphics is 320 by 200. @@ -93,9 +93,9 @@ The [[SCREEN]] statement sets the video display mode and size of the program win * '''[[SCREEN]] [[_LOADIMAGE]]'''(imagehandle&, colors) can load a program screen of an image file handle in '''QB64''' using 256 or 32 bit. -<center>'''QB64 can use page flipping with any number of pages in any screen mode!'''</center> +<center>'''QB64 can use page flipping with any number of pages in any screen mode!'''</center> -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==Text and Graphics== @@ -105,7 +105,6 @@ The [[SCREEN]] statement sets the video display mode and size of the program win * Are a minimum of 1 and the values given above are the maximums. [[LOCATE]] 1, 1 is the top left [[SCREEN]] text position. * Text characters occupy a certain sized pixel box adjusted by [[WIDTH]] in some screen modes. * Text [[PRINT]] cursor positions can be read by {{KW|CSRLIN}} and {{KW|POS|POS(0)}} to [[LOCATE]] text [[PRINT]]s. -* The [[SCREEN (function)]] can be used to read the [[ASCII]] character code or color of text in SCREEN 0 only. * [[VIEW PRINT]] can be used to designate a text view port area. * In '''QB64''' the [[_WIDTH (function)|_WIDTH]] and [[_HEIGHT]] functions will return the text dimensions in SCREEN 0 only. @@ -115,7 +114,7 @@ The [[SCREEN]] statement sets the video display mode and size of the program win * The minimum on screen graphics pixel coordinates are 0 for columns and rows in the top left corner. * Maximum pixel coordinates are one less than the maximum dimensions above because the pixel count starts at 0. * Graphic objects such as [[PSET]], [[PRESET]], [[LINE]], [[CIRCLE]] and [[DRAW]] can be placed partially off of the screen. -* [[GET (graphics statement)|GET]] and [[PUT (graphics statement)|PUT]] screen image operations MUST be located completely on the screen in Qbasic! +* [[GET (graphics statement)|GET]] and [[PUT (graphics statement)|PUT]] screen image operations MUST be located completely on the screen in QBasic! * [[VIEW]] can be used to designate a graphic view port area of the screen. * [[WINDOW]] can be used to set the graphics SCREEN coordinates to almost any size needed. Use the SCREEN option for normal row coordinate values. Row coordinates are Cartesian(decrease in value going down the screen) otherwise. * In '''QB64''' the [[_WIDTH (function)|_WIDTH]] and [[_HEIGHT]] functions will return the graphic pixel dimensions in SCREENs other than 0. @@ -131,22 +130,22 @@ The [[SCREEN]] statement sets the video display mode and size of the program win * The current desktop screen resolution can be found using the [[_SCREENIMAGE]] handle value with [[_WIDTH (function)|_WIDTH]] and [[_HEIGHT]]. * '''NOTE: Default 32 bit backgrounds are clear black or [[_RGBA]](0, 0, 0, 0)! Use [[CLS]] to make the black opaque!''' -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==Examples== -:''Example 1:'' Shows an example of each legacy screen mode available to Qbasic and QB64. +:''Example 1:'' Shows an example of each legacy screen mode available to QBasic and QB64. {{CodeStart}} '' '' {{Cl|SCREEN}} 0 -{{Cl|PRINT}} "This is {{Cl|SCREEN}} 0 - only text is allowed!" +{{Cl|PRINT}} "This is {{Cl|SCREEN}} 0 - only text is allowed!" {{Cl|FOR}} S = 1 {{Cl|TO}} 13 - {{Cl|IF}} S < 3 {{Cl|OR}} S > 6 {{Cl|THEN}} - {{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" + {{Cl|IF}} S < 3 {{Cl|OR}} S > 6 {{Cl|THEN}} + {{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SCREEN}} S - {{Cl|PRINT}} "This is {{Cl|SCREEN}}"; S; " - can use text and graphics!" - {{Cl|IF}} S = 2 {{Cl|OR}} S = 11 {{Cl|THEN}} {{Cl|PRINT}} "Monochrome - no {{Cl|COLOR}} statements!" + {{Cl|PRINT}} "This is {{Cl|SCREEN}}"; S; " - can use text and graphics!" + {{Cl|IF}} S = 2 {{Cl|OR}} S = 11 {{Cl|THEN}} {{Cl|PRINT}} "Monochrome - no {{Cl|COLOR}} statements!" {{Cl|IF}} S = 10 {{Cl|THEN}} - {{Cl|COLOR}} 2: {{Cl|PRINT}} "This {{Cl|SCREEN}} has only 4 colors. Black and 3 white: 2 blinks. + {{Cl|COLOR}} 2: {{Cl|PRINT}} "This {{Cl|SCREEN}} has only 4 colors. Black and 3 white: 2 blinks. {{Cl|CIRCLE}} (100,100), 50, 2 {{Cl|ELSE}} : {{Cl|CIRCLE}} (100,100), 100, S {{Cl|END IF}} @@ -160,42 +159,7 @@ This is SCREEN 0 - only text is allowed! {{OutputEnd}} :Displays each {{KW|SCREEN (statement)|SCREEN}} mode one at a time with a {{KW|CIRCLE}} (except for {{KW|SCREEN (statement)|SCREEN}} 0) - -''Example 2:'' Making ANY '''QB64 legacy screen mode''' larger using a SUB that easily converts PRINT to [[_PRINTSTRING]]. -{{CodeStart}} -Scr13& = {{Cl|_NEWIMAGE}}(320, 200, 13) 'this is the old SCREEN 13 image page to set the image -Big13& = {{Cl|_NEWIMAGE}}(640, 480, 256) 'use 4 X 3 aspect ratio that Qbasic used when full screen - -{{Cl|SCREEN}} Big13& -{{Cl|_DEST}} Scr13& -image1& = {{Cl|_LOADIMAGE}}("Howie.BMP", 256) 'see the download link below for 2 image files -image2& = {{Cl|_LOADIMAGE}}("Howie2.BMP", 256) -{{Cl|_PUTIMAGE}} (10, 20), image1&, Scr13& -{{Cl|_PUTIMAGE}} (160, 20), image2&, Scr13& -{{Cl|_COPYPALETTE}} image1&, Scr13& -{{Cl|COLOR}} 151: {{Cl|LOCATE}} 2, 4: PRINTS "Screen 13 Height Reduction to 83%" -{{Cl|LOCATE}} 22, 22: PRINTS {{Cl|CHR$}}(24) + " 4 X 3 Proportion" 'use {{Cl|concatenation}} -{{Cl|LOCATE}} 24, 21: PRINTS {{Cl|CHR$}}(27) + " Stretched at 100%" 'instead of a {{Cl|semicolon}}! -{{Cl|_COPYPALETTE}} Scr13&, Big13& 'required when imported image colors are used -{{Cl|_PUTIMAGE}} , Scr13&, Big13& 'stretches the screen to double the size -K$ = {{Cl|INPUT$}}(1) -{{Cl|END}} - -{{Cl|SUB}} PRINTS (Text$) -row% = ({{Cl|CSRLIN}} - 1) * {{Cl|_FONTHEIGHT}} 'finds current screen page text or font row height -col% = ({{Cl|POS}}(0) - 1) * {{Cl|_PRINTWIDTH}}("W") 'finds current page text or font column width -{{Cl|_PRINTSTRING}} (col%, row%), Text$ -{{Cl|END SUB}} '' '' -{{CodeEnd}} -{{small|Code by Ted Weissgerber}} -: ''Explanation:'' The procedure above creates a larger version of a SCREEN 13 window by stretching it with [[_PUTIMAGE]]. It cannot stretch PRINTed text so [[_PRINTSTRING]] must be used instead. [[LOCATE]] sets the PRINT cursor position for [[CSRLIN]] and [[POS]](0) to read. The SUB then converts the coordinates to graphical ones. Then '''change''' [[PRINT]] to PRINTS using the '''Search Menu'''. - -<center>[https://www.dropbox.com/s/tcdik1ajegbeiz4/HOWIE.zip?dl=0 Download of Example 2 Bitmap images]</center> - - -<center>You can easily change PRINT to the PRINTS sub-procedure name in your code using the [[IDE]] ''Search'' Menu ''Change'' option.</center> - -<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> +<p style="text-align: center">([[#toc|Return to Table of Contents]])</p> ==References== @@ -226,4 +190,4 @@ col% = ({{Cl|POS}}(0) - 1) * {{Cl|_PRINTWIDTH}}("W") 'finds current pa * [[_CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SCREEN_(function).txt b/internal/help/SCREEN_(function).txt index fe3be02f9..7ee8728c8 100644 --- a/internal/help/SCREEN_(function).txt +++ b/internal/help/SCREEN_(function).txt @@ -5,7 +5,7 @@ The '''SCREEN''' function returns the [[ASCII]] code of a text character or the :: codeorcolor% = '''SCREEN (''row%'', ''column%''''' [, colorflag%]''')''' -{{Parameters}} +{{PageParameters}} * ''row'' and ''column'' are the [[INTEGER]] text coordinates of the [[SCREEN]] mode used. * Optional ''colorflag'' [[INTEGER]] value can be omitted or 0 for [[ASCII]] code values or 1 for color attributes. @@ -15,9 +15,9 @@ The '''SCREEN''' function returns the [[ASCII]] code of a text character or the * The ''code'' value returned is the [[ASCII]] code from 0 to 255. Returns 32([[SPACE$|space]]) when no character is found at a coordinate. * If the ''colorflag'' value is omitted or it is 0, the function returns the [[ASCII]] code of the text character at the position designated. * When the ''flag'' value is greater than 0 in '''SCREEN 0''', the function returns the foreground and background color attribute of text position. -:: * The foreground color(0 to 15) is the returned SCREEN color value AND 15: '''{{text|FG <nowiki>=</nowiki> SCREEN(1, 1, 1) AND 15|green}}''' -:: * The background color(0 to 7) is the returned SCREEN color value \ 16: '''{{text|BG <nowiki>=</nowiki> SCREEN(1, 1, 1) \ 16|green}}''' -* '''QB64''' can return color values in screen modes other than [[SCREEN]] 0. Qbasic returned the wrong color values in graphic screen modes! +:: * The foreground color(0 to 15) is the returned SCREEN color value AND 15: '''{{text|FG <nowiki>=</nowiki> SCREEN(1, 1, 1) AND 15|green}}''' +:: * The background color(0 to 7) is the returned SCREEN color value \ 16: '''{{text|BG <nowiki>=</nowiki> SCREEN(1, 1, 1) \ 16|green}}''' +* '''QB64''' can return color values in screen modes other than [[SCREEN]] 0. QBasic returned the wrong color values in graphic screen modes! ''Example 1:'' Finding the text foreground and background colors in SCREEN 0 only: @@ -26,9 +26,9 @@ The '''SCREEN''' function returns the [[ASCII]] code of a text character or the {{Cl|COLOR}} 0, 15 {{Cl|CLS}} -{{Cl|PRINT}} "{{Cl|SCREEN}} ="; {{Cl|SCREEN (function)|SCREEN}}(1, 1, 1) -{{Cl|PRINT}} "FG color:"; {{Cl|SCREEN (function)|SCREEN}}(1, 1, 1) {{Cl|AND (boolean)|AND}} 15 'low nibble -{{Cl|PRINT}} "BG color:"; {{Cl|SCREEN (function)|SCREEN}}(1, 1, 1) \ 16 'high nibble '' '' +{{Cl|PRINT}} "{{Cl|SCREEN}} ="; {{Cl|SCREEN (function)|SCREEN}}(1, 1, 1) +{{Cl|PRINT}} "FG color:"; {{Cl|SCREEN (function)|SCREEN}}(1, 1, 1) {{Cl|AND (boolean)|AND}} 15 'low nibble +{{Cl|PRINT}} "BG color:"; {{Cl|SCREEN (function)|SCREEN}}(1, 1, 1) \ 16 'high nibble '' '' {{CodeEnd}} {{TextStart}}'''SCREEN = 112''' '''FG color: 0''' @@ -37,15 +37,15 @@ The '''SCREEN''' function returns the [[ASCII]] code of a text character or the : ''Note:'' How the SCREEN 0 background color can only be changed to colors 0 through 7! 7 * 16 = 112. -''Example 2:'' Reading the [[ASCII]] code and color of a text character using the SCREEN function. Graphic colors were not reliable in Qbasic! +''Example 2:'' Reading the [[ASCII]] code and color of a text character using the SCREEN function. Graphic colors were not reliable in QBasic! {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 12 row = 10: column = 10 -{{Cl|COLOR}} 9: {{Cl|LOCATE}} row, column: {{Cl|PRINT}} "Hello" +{{Cl|COLOR}} 9: {{Cl|LOCATE}} row, column: {{Cl|PRINT}} "Hello" code% = {{Cl|SCREEN (function)|SCREEN}}(row, column, 0) ' character code return parameter 0 attrib% = {{Cl|SCREEN (function)|SCREEN}}(row, column, 1) ' character color return parameter 1 -{{Cl|COLOR}} 14: {{Cl|LOCATE}} 15, 10: {{Cl|PRINT}} "ASCII:"; code%, "COLOR:"; attrib% +{{Cl|COLOR}} 14: {{Cl|LOCATE}} 15, 10: {{Cl|PRINT}} "ASCII:"; code%, "COLOR:"; attrib% {{Cl|END}} '' '' {{CodeEnd}} {{OutputStart}} @@ -55,17 +55,17 @@ attrib% = {{Cl|SCREEN (function)|SCREEN}}(row, column, 1) ' character color re {{Text| ASCII: 72 COLOR: 9|yellow}} {{OutputEnd}} -:''Explanation:'' The SCREEN function returns the [[ASCII]] code for "H" and the color 9. +:''Explanation:'' The SCREEN function returns the [[ASCII]] code for "H" and the color 9. ''Example 3:'' Finding the current program path placed on the screen using [[FILES]] and the SCREEN function in SCREEN 0. {{CodeStart}} '' '' {{Cl|SCREEN}} 0, 0, 0, 0 {{Cl|CLS}} -{{Cl|PRINT}} "This is a directory test..." +{{Cl|PRINT}} "This is a directory test..." {{Cl|SCREEN}} 0, 0, 1, 0 {{Cl|COLOR}} 0 'blank out the screen text -{{Cl|FILES}} "qb64.exe" 'the current program's filename can also be used +{{Cl|FILES}} "qb64.exe" 'the current program's filename can also be used {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 80 a$ = a$ + {{Cl|CHR$}}({{Cl|SCREEN (function)|SCREEN}}(1, i)) 'scan the black text on the screen {{Cl|NEXT}} @@ -74,7 +74,7 @@ attrib% = {{Cl|SCREEN (function)|SCREEN}}(row, column, 1) ' character color re a$ = {{Cl|RTRIM$}}(a$) {{Cl|SLEEP}} {{Cl|SCREEN (statement)|SCREEN}} 0, 0, 0, 0 -{{Cl|LOCATE}} 3, 1: {{Cl|PRINT}} "The current directory is: "; a$ +{{Cl|LOCATE}} 3, 1: {{Cl|PRINT}} "The current directory is: "; a$ {{Cl|END}} '' '' {{CodeEnd}} {{small|Code by Pete from the N54 QB site}} @@ -88,4 +88,4 @@ a$ = {{Cl|RTRIM$}}(a$) * [[Screen Memory]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SEEK.txt b/internal/help/SEEK.txt index 3cc062da4..dfd1fdf23 100644 --- a/internal/help/SEEK.txt +++ b/internal/help/SEEK.txt @@ -18,4 +18,4 @@ The '''SEEK''' function returns the current byte or record position in a file. *[[LOC]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SEEK_(statement).txt b/internal/help/SEEK_(statement).txt index 06141aefd..134649d40 100644 --- a/internal/help/SEEK_(statement).txt +++ b/internal/help/SEEK_(statement).txt @@ -28,4 +28,4 @@ The '''SEEK''' statement sets the next byte or record position of a file for a r * [[GET]], [[PUT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SELECT_CASE.txt b/internal/help/SELECT_CASE.txt index bf7d21fd0..1d48f12d0 100644 --- a/internal/help/SELECT_CASE.txt +++ b/internal/help/SELECT_CASE.txt @@ -12,17 +12,17 @@ :'''END SELECT''' - +{{PageDescription}} * '''SELECT CASE''' evaluates {{Parameter|testExpression}} and executes the first matching [[CASE]] or [[CASE ELSE]] block and exits. * '''SELECT EVERYCASE''' allows the execution of all matching [[CASE]] blocks from top to bottom or the [[CASE ELSE]] block. * The literal, variable or expression {{Parameter|testExpression}} comparison can result in any string or numerical type. * '''Note:''' A {{Parameter|testExpression}} variable value can be changed inside of true CASE evaluations in SELECT EVERYCASE. * A {{Parameter|testExpression}} derived from an expression or [[FUNCTION]] will only be determined once at the start of the block execution. -* <span id="allCASES">Supports individual CASE values and ranges or lists of literal values as below:</span> +* <span id="allCASES">Supports individual CASE values and ranges or lists of literal values as below:</span> ** '''CASE''' casevalue: code {{text|''''case compares one numerical or text value'''}} ** '''CASE''' casevalue1 [[TO]] casevalue2: code {{text|''''case compares a range of values '''}} ** '''CASE''' casevalue1, casevalue2, casevalue3: code {{text|''''case compares a list of values separated by commas'''}} -** '''CASE IS''' > casevalue: code {{text|''''case compares a value as <nowiki> =, <>, < or > </nowiki>'''}} +** '''CASE IS''' > casevalue: code {{text|''''case compares a value as <nowiki> =, <>, < or > </nowiki>'''}} ** '''CASE ELSE''': code {{text|''''bottom case statement executes only when no other CASE is executed.}}''' * The CASE values should cover the normal ranges of the comparison {{Parameter|testExpression}} values. * Use '''CASE ELSE''' before '''END SELECT''' if an alternative is necessary when no other case matches. @@ -37,20 +37,20 @@ {{PageExamples}} ''Example 1:'' SELECT CASE can use literal or variable [[STRING]] or numerical values in CASE comparisons: {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a whole number value from 1 to 40: ", value +{{Cl|INPUT}} "Enter a whole number value from 1 to 40: ", value value1 = 10 value2 = 20 value3 = 30 {{Cl|SELECT CASE}} value - {{Cl|CASE}} value1: {{Cl|PRINT}} "Ten only" - {{Cl|CASE}} value1 {{Cl|TO}} value2: {{Cl|PRINT}} "11 to 20 only" '10 is already evaluated - {{Cl|CASE}} value1, value2, value3: {{Cl|PRINT}} "30 only" '10 and 20 are already evaluated - {{Cl|CASE IS}} > value2: {{Cl|PRINT}} "greater than 20 but not 30" '30 is already evaluated - {{Cl|CASE ELSE}}: {{Cl|PRINT}} "Other value" 'values less than 10 + {{Cl|CASE}} value1: {{Cl|PRINT}} "Ten only" + {{Cl|CASE}} value1 {{Cl|TO}} value2: {{Cl|PRINT}} "11 to 20 only" '10 is already evaluated + {{Cl|CASE}} value1, value2, value3: {{Cl|PRINT}} "30 only" '10 and 20 are already evaluated + {{Cl|CASE IS}} > value2: {{Cl|PRINT}} "greater than 20 but not 30" '30 is already evaluated + {{Cl|CASE ELSE}}: {{Cl|PRINT}} "Other value" 'values less than 10 {{Cl|END SELECT}} '' '' {{CodeEnd}} -: ''Explanation:'' The first true CASE is executed and SELECT CASE is exited. "Other value" is printed for values less than 10. +: ''Explanation:'' The first true CASE is executed and SELECT CASE is exited. "Other value" is printed for values less than 10. ''Example 2:'' SELECT CASE will execute the first CASE statement that is true and ignore all CASE evaluations after that: @@ -58,22 +58,22 @@ value3 = 30 a = 100 {{Cl|SELECT CASE}} a 'designate the value to compare {{Cl|CASE}} 1, 3, 5, 7, 9 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE}} 10 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE}} 50 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE}} 100 - {{Cl|PRINT}} "This will be displayed when a equals 100" - {{Cl|PRINT}} "(and no other case will be checked)" + {{Cl|PRINT}} "This will be displayed when a equals 100" + {{Cl|PRINT}} "(and no other case will be checked)" {{Cl|CASE}} 150 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE IS}} < 150 - {{Cl|PRINT}} "This will not be shown as a previous case was true" + {{Cl|PRINT}} "This will not be shown as a previous case was true" {{Cl|CASE}} 50 {{Cl|TO}} 150 - {{Cl|PRINT}} "This will not be shown as a previous case was true" + {{Cl|PRINT}} "This will not be shown as a previous case was true" {{Cl|CASE ELSE}} - {{Cl|PRINT}} "This will only print if it gets this far!" + {{Cl|PRINT}} "This will only print if it gets this far!" {{Cl|END SELECT}} '' '' {{CodeEnd}} {{OutputStart}}This will be displayed when a equals 100 @@ -87,22 +87,22 @@ a = 100 a = 100 {{Cl|SELECT CASE|SELECT EVERYCASE}} a 'designate the value to compare {{Cl|CASE}} 1, 3, 5, 7, 9 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE}} 10 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE}} 50 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE}} 100 - {{Cl|PRINT}} "This will be displayed when a equals 100" - {{Cl|PRINT}} "(and other cases will be checked)" + {{Cl|PRINT}} "This will be displayed when a equals 100" + {{Cl|PRINT}} "(and other cases will be checked)" {{Cl|CASE}} 150 - {{Cl|PRINT}} "This will not be shown." + {{Cl|PRINT}} "This will not be shown." {{Cl|CASE IS}} < 150 - {{Cl|PRINT}} "This will be shown as 100 is less than 150" + {{Cl|PRINT}} "This will be shown as 100 is less than 150" {{Cl|CASE}} 50 {{Cl|TO}} 150 - {{Cl|PRINT}} "This will be shown as 100 is between 50 and 150" + {{Cl|PRINT}} "This will be shown as 100 is between 50 and 150" {{Cl|CASE ELSE}} - {{Cl|PRINT}} "This will only print if no other CASE is true!" + {{Cl|PRINT}} "This will only print if no other CASE is true!" {{Cl|END SELECT}} '' '' {{CodeEnd}} {{OutputStart}}This will be displayed when a equals 100 @@ -115,49 +115,49 @@ This will be shown as 100 is between 50 and 150 ''Example 4:'' SELECT CASE evaluates string values by the [[ASC]] code value according to [[ASCII]]. {{CodeStart}} '' '' -{{Cl|PRINT}} "Enter a letter, number or punctuation mark from the keyboard: "; +{{Cl|PRINT}} "Enter a letter, number or punctuation mark from the keyboard: "; valu$ = {{Cl|INPUT$}}(1) {{Cl|PRINT}} value$ -value1$ = "A" -value2$ = "m" -value3$ = "z" +value1$ = "A" +value2$ = "m" +value3$ = "z" {{Cl|SELECT CASE}} value$ - {{Cl|CASE}} value1$: {{Cl|PRINT}} "A only" - {{Cl|CASE}} value1$ {{Cl|TO}} value2$: {{Cl|PRINT}} "B to m" 'A is already evaluated - {{Cl|CASE}} value1$, value2$, value3$: {{Cl|PRINT}} "z only" 'A and m are already evaluated - {{Cl|CASE IS}} > value2$: {{Cl|PRINT}} "greater than m but not z" 'z is already evaluated - {{Cl|CASE ELSE}}: {{Cl|PRINT}} "other value" 'key entry below A including all numbers + {{Cl|CASE}} value1$: {{Cl|PRINT}} "A only" + {{Cl|CASE}} value1$ {{Cl|TO}} value2$: {{Cl|PRINT}} "B to m" 'A is already evaluated + {{Cl|CASE}} value1$, value2$, value3$: {{Cl|PRINT}} "z only" 'A and m are already evaluated + {{Cl|CASE IS}} > value2$: {{Cl|PRINT}} "greater than m but not z" 'z is already evaluated + {{Cl|CASE ELSE}}: {{Cl|PRINT}} "other value" 'key entry below A including all numbers {{Cl|END SELECT}} '' '' {{CodeEnd}} -: ''Notes:'' [[STRING]] values using multiple characters will be compared by the [[ASCII]] code values sequentially from left to right. Once the equivalent code value of one string is larger than the other the evaluation stops. This allows string values to be compared and sorted alphabetically using [[Greater Than|>]] or [[Less Than|<]] and to [[SWAP]] values in [[arrays]] regardless of the string lengths. +: ''Notes:'' [[STRING]] values using multiple characters will be compared by the [[ASCII]] code values sequentially from left to right. Once the equivalent code value of one string is larger than the other the evaluation stops. This allows string values to be compared and sorted alphabetically using [[Greater Than|>]] or [[Less Than|<]] and to [[SWAP]] values in [[arrays]] regardless of the string lengths. ''Example 5:'' EVERYCASE is used to draw sections of digital numbers in a simulated LED readout using numbers from 0 to 9: {{CodeStart}} {{Cl|SCREEN}} 12 DO - {{Cl|LOCATE}} 1, 1: {{Cl|INPUT}} "Enter a number 0 to 9: ", num + {{Cl|LOCATE}} 1, 1: {{Cl|INPUT}} "Enter a number 0 to 9: ", num {{Cl|CLS}} {{Cl|SELECT CASE|SELECT EVERYCASE}} num {{Cl|CASE}} 0, 2, 3, 5 {{Cl|TO}} 9: {{Cl|PSET}} (20, 20), 12 - {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'top horiz + {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'top horiz {{Cl|CASE}} 0, 4 {{Cl|TO}} 6, 8, 9: {{Cl|PSET}} (20, 20), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'left top vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'left top vert {{Cl|CASE}} 0, 2, 6, 8: {{Cl|PSET}} (20, 54), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12, 12" 'left bot vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12, 12" 'left bot vert {{Cl|CASE}} 2 {{Cl|TO}} 6, 8, 9: {{Cl|PSET}} (20, 54), 12 - {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12, 12" 'middle horiz + {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12, 12" 'middle horiz {{Cl|CASE}} 0 {{Cl|TO}} 4, 7 {{Cl|TO}} 9: {{Cl|PSET}} (54, 20), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'top right vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'top right vert {{Cl|CASE}} 0, 1, 3 {{Cl|TO}} 9: {{Cl|PSET}} (54, 54), 12 - {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'bottom right vert + {{Cl|DRAW}} "F2D30G2H2U30E2BD5P12,12" 'bottom right vert {{Cl|CASE}} 0, 2, 3, 5, 6, 8: {{Cl|PSET}} (20, 88), 12 - {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'bottom horiz + {{Cl|DRAW}} "E2R30F2G2L30H2BR5P12,12" 'bottom horiz {{Cl|CASE ELSE}} - {{Cl|LOCATE}} 20, 20: {{Cl|PRINT}} "Goodbye!"; num + {{Cl|LOCATE}} 20, 20: {{Cl|PRINT}} "Goodbye!"; num {{Cl|END SELECT}} -{{Cl|LOOP}} {{Cl|UNTIL}} num > 9 +{{Cl|LOOP}} {{Cl|UNTIL}} num > 9 {{CodeEnd}} : '''Note:''' [[CASE ELSE]] will only execute if no other CASE is true! Changing the comparison value in a CASE may affect later CASE evaluations. '''Beware of duplicate variables inside of cases affecting the comparison values and remaining cases.''' @@ -166,4 +166,4 @@ DO * [[IF...THEN]], [[Boolean]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SETMEM.txt b/internal/help/SETMEM.txt deleted file mode 100644 index 59a9e00e8..000000000 --- a/internal/help/SETMEM.txt +++ /dev/null @@ -1,34 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The '''SETMEM''' function is used to increase, decrease or return the current "far heap" byte size. - - - -{{PageSyntax}} -:: SETMEM(byte_size) - - - -''Description:'' -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* SETMEM(0) returns the total number of bytes currently in the far heap memory area. -* The byte size indicates the number of bytes to increase or decrease the far heap. -:* If the byte size is negative, SETMEM decreases the far heap by the indicated number of bytes. -:* If the byte size is positive, SETMEM '''attempts''' to increase the far heap space by the number of bytes. -* If SETMEM cannot change the far heap by the requested number of bytes, it reallocates as many bytes as possible. -* SETMEM can be used in mixed-language programming to decrease the far heap space so procedures in other languages can dynamically allocate far memory. - - -:'''Note: A first call to SETMEM trying to increase the far heap has no effect because Basic''' -::'''allocates as much memory as possible to the far heap when a program starts.''' - - -''See also:'' -* [[DECLARE (non-BASIC statement)]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/SGN.txt b/internal/help/SGN.txt index 92b7d9474..e6aa68534 100644 --- a/internal/help/SGN.txt +++ b/internal/help/SGN.txt @@ -7,8 +7,8 @@ The '''SGN''' function returns the sign of a number value. -* Returns -1 when a sign is negative, 0 when a value is zero or 1 when a value is positive. -* Used to hold the original sign of a number. +* Returns -1 when a sign is negative, 0 when a value is zero, or 1 when a value is positive. +* Function is used to store the original sign of a number. * '''QB64''' allows programs to return only [[_UNSIGNED]] variable values using a [[_DEFINE]] statement. @@ -29,4 +29,4 @@ PRINT n '' '' * [[Mathematical Operations]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SHARED.txt b/internal/help/SHARED.txt index 4b04b081f..20d0d1047 100644 --- a/internal/help/SHARED.txt +++ b/internal/help/SHARED.txt @@ -4,12 +4,14 @@ The '''SHARED''' statement allows variables to be passed automatically to any [[ {{PageSyntax}} :: DIM SHARED Qt AS STRING * 1 +:: DIM SHARED AS STRING * 1 Qt * [[DIM]]ensioned variables are shared with all procedures in the program module. * When used with [[DIM]] in the main module, it eliminates the need to pass a parameter variable to a [[SUB]] or [[FUNCTION]]. * Use [[COMMON SHARED]] to share a list of variable values with sub-procedures or other modules. See also: [[COMMON]] * SHARED ('''without [[DIM]]''') can share a list of variables inside of [[SUB]] or [[FUNCTION]] procedures with the main module only. +* When using the '''AS type variable-list''' syntax, type symbols cannot be used. :'''Note: SHARED variables in sub-procedures will not be passed to other sub-procedures, only the main module.''' @@ -23,25 +25,25 @@ The '''SHARED''' statement allows variables to be passed automatically to any [[ ''Example 2:'' The DIR$ function returns a filename or a list when more than one exist. The file spec can use a path and/or wildcards. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 2 - {{Cl|LINE INPUT}} "Enter a file spec: ", spec$ + {{Cl|LINE INPUT}} "Enter a file spec: ", spec$ file$ = DIR$(spec$) 'use a file spec ONCE to find the last file name listed {{Cl|PRINT}} DIRCount%, file$, 'function can return the file count using SHARED variable {{Cl|DO}} K$ = {{Cl|INPUT$}}(1) - file$ = DIR$("") 'use an empty string parameter to return a list of files! + file$ = DIR$("") 'use an empty string parameter to return a list of files! {{Cl|PRINT}} file$, {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|LEN}}(file$) = 0 'file list ends with an empty string {{Cl|NEXT}} {{Cl|END}} {{Cl|FUNCTION}} DIR$ (spec$) -{{Cl|CONST}} TmpFile$ = "DIR$INF0.INF", ListMAX% = 500 'change maximum to suit your needs +{{Cl|CONST}} TmpFile$ = "DIR$INF0.INF", ListMAX% = 500 'change maximum to suit your needs {{Cl|SHARED}} DIRCount% 'returns file count if desired {{Cl|STATIC}} Ready%, Index%, DirList$() {{Cl|IF}} {{Cl|NOT}} Ready% {{Cl|THEN}} {{Cl|REDIM}} DirList$(ListMax%): Ready% = -1 'DIM array first use -{{Cl|IF}} spec$ > "" {{Cl|THEN}} 'get file names when a spec is given - {{Cl|SHELL}} {{Cl|_HIDE}} "DIR " + spec$ + " /b > " + TmpFile$ - Index% = 0: DirList$(Index%) = "": ff% = {{Cl|FREEFILE}} +{{Cl|IF}} spec$ > "" {{Cl|THEN}} 'get file names when a spec is given + {{Cl|SHELL}} {{Cl|_HIDE}} "DIR " + spec$ + " /b > " + TmpFile$ + Index% = 0: DirList$(Index%) = "": ff% = {{Cl|FREEFILE}} {{Cl|OPEN}} TmpFile$ {{Cl|FOR (file statement)|FOR}} {{Cl|APPEND}} {{Cl|AS}} #ff% size& = {{Cl|LOF}}(ff%) {{Cl|CLOSE}} #ff% @@ -54,7 +56,7 @@ The '''SHARED''' statement allows variables to be passed automatically to any [[ DIRCount% = Index% 'SHARED variable can return the file count {{Cl|CLOSE}} #ff% {{Cl|KILL}} TmpFile$ -{{Cl|ELSE}} {{Cl|IF}} Index% > 0 {{Cl|THEN}} Index% = Index% - 1 'no spec sends next file name +{{Cl|ELSE}} {{Cl|IF}} Index% > 0 {{Cl|THEN}} Index% = Index% - 1 'no spec sends next file name {{Cl|END IF}} DIR$ = DirList$(Index%) {{Cl|END FUNCTION}} '' '' @@ -67,4 +69,4 @@ DIR$ = DirList$(Index%) * [[COMMON]], [[COMMON SHARED]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SHELL.txt b/internal/help/SHELL.txt index 0d96f03ea..096bee847 100644 --- a/internal/help/SHELL.txt +++ b/internal/help/SHELL.txt @@ -1,127 +1,141 @@ -The '''SHELL''' statement allows a program to use [[STRING]] OS command lines in Windows, Mac OSX and Linux. +The [[SHELL]] statement allows a program to run external programs or command line statements in Windows, macOS and Linux. -''QB'' {{PageSyntax}} SHELL [''DOSCommand$''] - -''QB64'' {{PageSyntax}} SHELL [{{KW|_DONTWAIT}}] [{{KW|_HIDE}}] [''DOSCommand$''] +{{PageSyntax}} +: [[SHELL]] [{{Parameter|DOSCommand$}}] +: [[SHELL]] ['''_DONTWAIT'''] ['''_HIDE'''] [{{Parameter|DOSCommand$}}] - -* If the ''[[DOS]]Command$'' [[STRING]] parameter isn't used the "command console" is opened. -* If [[_DONTWAIT]] is used the '''QB64''' program doesn't wait for the SHELLed program/command to end. -* When the [[_HIDE]] action is used, the [[CONSOLE|console]] window is hidden and screen info can be "redirected"(>) to a file (recommended). -* Commands are external [[DOS]] commands as [[STRING|strings]] enclosed in quotes or string variables. +{{PageDescription}} +* If the ''DOSCommand$'' [[STRING]] parameter isn't used, the "command console" is opened and execution is halted until the user closes it manually. +* If [[_DONTWAIT]] is used, the '''QB64''' program doesn't wait for the SHELLed program/command to end. +* When the [[_HIDE]] action is used, the [[CONSOLE|console]] window is hidden and screen info can be "redirected" (using redirection characters like >) to a file (recommended). +* Commands are external commands, according to the user's operating system, passed as [[STRING|strings]] enclosed in quotes or string variables. * Commands can be a mixture of [[STRING|strings]] and string variables added together using the + [[concatenation]] operator. * Command text can be in upper or lower case. Use single spacing between items and options. -* '''QB64''' automatically uses CMD /C when using [[SHELL]], but is allowed in command. {{text|Note: CMD alone may lock up program!|red}} -:: '''Note: Some commands may not work without adding CMD /C to the start of the command line.''' -* '''QB64''' program screens will not get distorted, minimized or freeze the program like Qbasic fullscreen modes will. -* '''QB64''' can use long path folder names and file names and [[SHELL]] command lines can be longer than 124 characters! -* In Windows use additional [[CHR$]](34) quotation marks around folder or file names that contain spaces. -*'''NOTE: Use [[CHDIR]] instead of CD as SHELL commands cannot affect the current program path!''' -* '''Qbasic BAS files can be run like compiled programs without returning to the [[IDE]] when [[SYSTEM]] is used to [[END|end]] them!''' -<center>'''{{text|SHELL "QB.EXE /L /RUN program.BAS"|green}}'''</center> +* '''QB64''' automatically uses CMD /C when using [[SHELL]], but it is allowed in a command string. {{text|Note: CMD alone may lock up program.|red}} +** '''Note: Some commands may not work without adding CMD /C to the start of the command line.''' +* '''QB64''' program screens will not get distorted, minimized or freeze the program like QBasic fullscreen modes would. +* '''QB64''' can use long path folder names and file names and [[SHELL]] command lines can be longer than 124 characters. +* In Windows, use additional [[CHR$]](34) quotation marks around folder or file names that contain spaces. +* For other operating systems, both the quotation mark character and the apostrophe can be used to enclose a file name that contains spaces. +*'''NOTE: Use [[CHDIR]] instead of CD as SHELL commands cannot affect the current program path.''' +{{PageQBasic}} +* '''QBasic BAS files could be run like compiled programs without returning to the IDE when [[SYSTEM]] was used to [[END|end]] them.''' +* A user would invoke it with {{InlineCode}}SHELL "QB.EXE /L /RUN program.BAS"{{InlineCodeEnd}} + + +{{PageExamples}} ''Example 1:'' When working with file or folder names with spaces, add quotation marks around the path and/or file name with [[CHR$]](34). {{CodeStart}} '' '' -{{Cl|SHELL}} {{Cl|_HIDE}} "dir " + {{Cl|CHR$}}(34) + "free cell.ico" + {{Cl|CHR$}}(34) + " /b > temp.dir" '' '' -{{Cl|SHELL}} "start Notepad temp.dir" ' display temp file contents in Notepad window '' '' +{{Cl|SHELL}} {{Cl|_HIDE}} "dir " + {{Cl|CHR$}}(34) + "free cell.ico" + {{Cl|CHR$}}(34) + " /b > temp.dir" '' '' +{{Cl|SHELL}} "start Notepad temp.dir" ' display temp file contents in Notepad window '' '' {{CodeEnd}} -:{{small|Contents of ''temp.dir'' text file:}} -{{TextStart}}Free Cell.ico -{{TextEnd}} +:Contents of ''temp.dir'' text file: +{{OutputStart}} +Free Cell.ico +{{OutputEnd}} -''Example 2:'' Opening a Windows program(Notepad) to read or print a Basic created text file. +''Example 2:'' Opening a Windows program (Notepad) to read or print a Basic created text file. {{CodeStart}} -{{Cl|INPUT}} "Enter a file name to read in Notepad: ", filename$ -{{Cl|SHELL}} "CMD /C start /max notepad " + filename$ ' display in Notepad full screen in XP or NT +{{Cl|INPUT}} "Enter a file name to read in Notepad: ", filename$ +{{Cl|SHELL}} "CMD /C start /max notepad " + filename$ ' display in Notepad full screen in XP or NT -'{{Cl|SHELL}} "start /min notepad /p " + filename$ ' taskbar print using QB64 CMD /C not necessary +'{{Cl|SHELL}} "start /min notepad /p " + filename$ ' taskbar print using QB64 CMD /C not necessary {{CodeEnd}} -:''Explanation:'' Notepad is an easy program to open in Windows. No path is needed! Windows NT computers, including XP, use CMD /C where older versions of DOS don't require any command reference. The top command opens Notepad in a normal window for a user to view the file. They can use Notepad to print it. The second command places Notepad file in the taskbar and prints it automatically. The filename variable is added by the program using proper spacing. +:''Explanation:'' Notepad is an easy program to open in Windows as no path is needed. Windows NT computers, including XP, use CMD /C where older versions of DOS don't require any command reference. The top command opens Notepad in a normal window for a user to view the file. They can use Notepad to print it. The second command places Notepad file in the taskbar and prints it automatically. The filename variable is added by the program using proper spacing. ::*'''Start''' is used to allow a Basic program to run without waiting for Notepad to be closed. ::* '''/min''' places the window into the taskbar. '''/max''' is fullscreen and no option is a normal window. -::* Notepad's '''/p''' option prints the file contents. Even with USB printers! +::* Notepad's '''/p''' option prints the file contents, even with USB printers. -:'''Note: A fullscreen [[SCREEN (statement)|SCREEN]] mode must be changed after a Windows program is opened in Qbasic ONLY!''' -:: Besides minimizing a QBasic program, fullscreen modes will lose the current screen information and freeze. Switch to another screen mode and back to the one you were in immediately after the SHELL! Screen 0 windows will work OK. ''Example 3:'' Function that returns the program's current working path. {{CodeStart}} currentpath$ = Path$ ' function call saves a path for later program use - PRINT currentpath$ + {{Cl|PRINT}} currentpath$ {{Cl|FUNCTION}} Path$ - {{Cl|SHELL}} {{Cl|_HIDE}} "CD > D0S-DATA.INF" 'code to hide window in '''QB64''' - {{Cl|OPEN}} "D0S-DATA.INF" FOR {{Cl|APPEND}} AS #1 'this may create the file + {{Cl|SHELL}} {{Cl|_HIDE}} "CD > D0S-DATA.INF" 'code to hide window in '''QB64''' + {{Cl|OPEN}} "D0S-DATA.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|APPEND}} {{Cl|AS}} #1 'this may create the file L% = {{Cl|LOF}}(1) 'verify that file and data exist {{Cl|CLOSE}} #1 {{Cl|IF}} L% {{Cl|THEN}} 'read file if it has data - {{Cl|OPEN}} "D0S-DATA.INF" FOR {{Cl|INPUT (file mode)|INPUT}} AS #1 + {{Cl|OPEN}} "DOS-DATA.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 {{Cl|LINE INPUT (file statement)|LINE INPUT}} #1, line$ 'read only line in file - Path$ = line$ + "\" 'add slash to path so only a filename needs added later + Path$ = line$ + "\" 'add slash to path so only a filename needs added later {{Cl|CLOSE}} #1 - {{Cl|ELSE}} : Path = "" 'returns zero length string if path not found - END IF - {{Cl|KILL}} "D0S-DATA.INF" 'deleting the file is optional + {{Cl|ELSE}} : Path = "" 'returns zero length string if path not found + {{Cl|END IF}} + {{Cl|KILL}} "D0S-DATA.INF" 'deleting the file is optional {{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -:''Explanation:'' The '''SHELL "CD"''' statement requests the current working path. This info is normally printed to the screen, but the '''>''' pipe character sends the information to the DOS-DATA.INF file instead('''QB64''' can use [[_HIDE]] to not display the DOS window). The function uses the [[OPEN]] FOR [[APPEND]] mode to check for the file and the data([[INPUT (file mode)|INPUT]] would create an error if file does not exist). The current path is listed on one line of the file. The file is opened and [[LINE INPUT (file statement)|LINE INPUT]] returns one line of the file text. The function adds a "\" so that the Path$ returned can be used in another file statement by just adding a file name. Save the Path$ to another variable for later use when the program has moved to another directory. +:''Explanation:'' The '''SHELL "CD"''' statement requests the current working path. This info is normally printed to the screen, but the '''>''' pipe character sends the information to the DOS-DATA.INF file instead('''QB64''' can use [[_HIDE]] to not display the DOS window). The function uses the [[OPEN]] FOR [[APPEND]] mode to check for the file and the data([[INPUT (file mode)|INPUT]] would create an error if file does not exist). The current path is listed on one line of the file. The file is opened and [[LINE INPUT (file statement)|LINE INPUT]] returns one line of the file text. The function adds a "\" so that the Path$ returned can be used in another file statement by just adding a file name. Save the Path$ to another variable for later use when the program has moved to another directory. +: In '''QB64''' you can simply use the [[_CWD$]] statement for the same purpose of the example above. -''Example 4:'' Determining if a drive or path exists. Cannot use with a file name specification! +''Example 4:'' Determining if a drive or path exists. Cannot use with a file name specification. {{CodeStart}} '' '' -{{Cl|LINE INPUT}} "Enter a drive or path (no file name): ", DirPath$ -{{Cl|IF}} PathExist%(DirPath$) {{Cl|THEN}} PRINT "Drive Path exists!" {{Cl|ELSE}} PRINT "Drive Path does not exist!" +{{Cl|LINE INPUT}} "Enter a drive or path (no file name): ", DirPath$ +{{Cl|IF}} PathExist%(DirPath$) {{Cl|THEN}} {{Cl|PRINT}} "Drive Path exists!" {{Cl|ELSE}} PRINT "Drive Path does not exist!" {{Cl|END}} {{Cl|FUNCTION}} PathExist% (Path$) PathExist% = 0 {{Cl|IF}} {{Cl|LEN}}(Path$) = 0 {{Cl|THEN}} {{Cl|EXIT FUNCTION}} 'no entry -{{Cl|IF}} {{Cl|LEN}}({{Cl|ENVIRON$}}("OS")) {{Cl|THEN}} CMD$ = "CMD /C " {{Cl|ELSE}} CMD$ = "COMMAND /C " -{{Cl|SHELL}} {{Cl|_HIDE}} CMD$ + "If Exist " + Path$ + "\nul echo yes > D0S-DATA.INF" -{{Cl|OPEN}} "D0S-DATA.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|APPEND}} {{Cl|AS}} #1 -{{Cl|IF}} {{Cl|LOF}}(1) {{Cl|THEN}} PathExist% = -1 'yes will be in file if path exists +{{Cl|IF}} {{Cl|LEN}}({{Cl|ENVIRON$}}("OS")) {{Cl|THEN}} CMD$ = "CMD /C " {{Cl|ELSE}} CMD$ = "COMMAND /C " +{{Cl|SHELL}} {{Cl|_HIDE}} CMD$ + "If Exist " + Path$ + "\nul echo yes > D0S-DATA.INF" +{{Cl|OPEN}} "D0S-DATA.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|APPEND}} {{Cl|AS}} #1 +{{Cl|IF}} {{Cl|LOF}}(1) {{Cl|THEN}} PathExist% = -1 'yes will be in file if path exists {{Cl|CLOSE}} #1 -{{Cl|KILL}} "D0S-DATA.INF" 'delete data file optional +{{Cl|KILL}} "D0S-DATA.INF" 'delete data file optional {{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -:''Explanation: IF Exist'' checks for the drive path. ''\Nul'' allows an emply folder at end of path. ''Echo'' prints '''yes''' in the file if it exists. +:''Explanation: IF Exist'' checks for the drive path. ''\Nul'' allows an empty folder at end of path. ''Echo'' prints '''yes''' in the file if it exists. +: In '''QB64''' you can simply use the [[_FILEEXISTS]] statement for the same purpose of the example above. -''Snippet 1:'' When looking for '''printers''' this command gives you a file list with the default printer '''True''': -{{TextStart}}{{Cb|SHELL}} {{Cb|_HIDE}} "CMD /C" + "wmic printer get name,default > default.txt" -{{TextEnd}} -'''Created file's text:''' -{{TextStart}}Default Name +''Snippet 1:'' When looking for '''printers''' this command gives you a file list with the default printer marked as '''TRUE''': +{{CodeStart}} +{{Cl|SHELL}} {{Cl|_HIDE}} "CMD /C" + "wmic printer get name,default > default.txt" +{{CodeEnd}} +: Created file's text: +{{OutputStart}}Default Name FALSE Microsoft XPS Document Writer TRUE HP Photosmart C7200 series FALSE HP Officejet Pro 8600 FALSE Fax -{{TextEnd}} +{{OutputEnd}} : ''Explanation:'' [[LINE INPUT]] could be used to find the printer names as [[STRING]] variables. -''Snippet 2:'' Here is the code to set the default printer to the "HP Officejet Pro 8600": -{{TextStart}}SHELL _HIDE "CMD /C" + "wmic printer where name='HP Officejet Pro 8600' call setdefaultprinter" -{{TextEnd}} -: After executing this program, and then running the first snippet again, we see the following '''contents of the text file:''' -{{TextStart}}Default Name +''Snippet 2:'' Here is the code to set the default printer to the "HP Officejet Pro 8600": +{{CodeStart}} +{{Cl|SHELL}} {{Cl|_HIDE}} "CMD /C" + "wmic printer where name='HP Officejet Pro 8600' call setdefaultprinter" +{{CodeEnd}} +: After executing this program, and then running the first snippet again, we see the following contents of the text file: +{{OutputStart}}Default Name FALSE Microsoft XPS Document Writer FALSE HP Photosmart C7200 series TRUE HP Officejet Pro 8600 FALSE Fax -{{TextEnd}} +{{OutputEnd}} -''See also:'' +===More examples=== +''See examples in:'' +* [[FILELIST$ (function)]] (member-contributed file search routine) +* ''File Exist'' C++ Function that does not create a temp file: [[Windows_Libraries#File_Exist|FileExist Library Function]] + + +{{PageSeeAlso}} * [[SHELL (function)]], [[_SHELLHIDE]] * [[FILES]], [[CHDIR]], [[MKDIR]] * [[_CWD$]], [[_STARTDIR$]] @@ -131,24 +145,13 @@ PathExist% = 0 * [[_CONSOLE]], [[$CONSOLE]] * [[$SCREENHIDE]], [[$SCREENSHOW]] {{text|(QB64 [[Metacommand]]s)}} * [[_SCREENHIDE]], [[_SCREENSHOW]] -* [[FILELIST$]], [[DIR$]] {{text|(member file list array functions)}} +* [[FILELIST$]], [[PDS_(7.1)_Procedures#DIR.24|DIR$]] {{text|(member-contributed file list array function)}} -''See example:'' [[FILELIST$ (function)]] (member file search routine) - -''See Library:'' File Exist C++ Function that does not create a temp file. [[Windows_Libraries#File_Exist|FileExist Library Function]] - - ----- -''References:'' -* [[DOS]], [[Batch Files]], [[VB Script]] -* [[WGET]] {{text|(HTTP and FTP file transfer)}} -* [http://www.computerhope.com/msdos.htm MSDOS commands], [[DOS#DIR|DIR]] -* [http://www.pixelbeat.org/cmdline.html Linux Commands] -* [http://ss64.com/osx/ Mac OSX commands] +===Extra reference=== * [[Windows_Libraries#File_Dialog_Boxes|Windows Open and Save Dialog Boxes]] * [[C_Libraries#Console_Window|C Console Library]] * [[Windows Printer Settings]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SHELL_(function).txt b/internal/help/SHELL_(function).txt index d467e31e0..159ee0dd7 100644 --- a/internal/help/SHELL_(function).txt +++ b/internal/help/SHELL_(function).txt @@ -1,16 +1,17 @@ -The '''SHELL''' function displays the console and returns the [[INTEGER]] code value sent by [[END]] or [[SYSTEM]] when a program exits. +The '''SHELL''' function displays the console and returns the [[INTEGER]] code value sent when the external program exits. {{PageSyntax}} ::: return_code = '''SHELL(''DOScommand$'')''' -{{Parameters}} -* The literal or variable [[STRING]] ''command'' parameter can be any valid [[DOS]] command or call to another program. +{{PageParameters}} +* The literal or variable [[STRING]] ''command'' parameter can be any valid external command or call to another program. ''Usage:'' * A SHELL to a QB64 EXE program with an exit return code parameter after [[END]] or [[SYSTEM]] will return that code value. +* The return_code is usually 0 when the external program ends with no errors. * The console window may appear when using the SHELL function. The [[_SHELLHIDE]] function will hide the console from view. @@ -24,10 +25,10 @@ The '''SHELL''' function displays the console and returns the [[INTEGER]] code v {{Cb|FUNCTION}} GetSystemMetrics& ({{Cb|BYVAL}} n {{Cb|AS}} {{Cb|LONG}}) {{Cb|DECLARE LIBRARY|END DECLARE}} -{{Cb|PRINT}} trimstr$(GetSystemMetrics(SM_CXSCREEN)); "X"; trimstr$(GetSystemMetrics(SM_CYSCREEN)) +{{Cb|PRINT}} trimstr$(GetSystemMetrics(SM_CXSCREEN)); "X"; trimstr$(GetSystemMetrics(SM_CYSCREEN)) s& = {{Cb|_SCREENIMAGE}} -{{Cb|PRINT}} {{Cb|_WIDTH (function)|_WIDTH}}(s&); "X"; {{Cb|_HEIGHT}}(s&) +{{Cb|PRINT}} {{Cb|_WIDTH (function)|_WIDTH}}(s&); "X"; {{Cb|_HEIGHT}}(s&) {{Cb|END}} 3 '<<<<<< add a code to return after END or SYSTEM in any program @@ -39,7 +40,7 @@ trimstr = {{Cb|LTRIM$}}({{Cb|RTRIM$}}({{Cb|STR$}}(whatever))) : After compiling ''DesktopSize.EXE'' run the following code in the QB64 IDE. After 1st program is done 3 will appear on screen: {{CodeStart}} '' '' -returncode% = {{Cl|SHELL (function)|SHELL}}("DesktopSize") 'replace call with name of any QB64 program EXE +returncode% = {{Cl|SHELL (function)|SHELL}}("DesktopSize") 'replace call with name of any QB64 program EXE {{Cl|PRINT}} returncode% 'prints code sent by called program after it is closed @@ -56,4 +57,4 @@ returncode% = {{Cl|SHELL (function)|SHELL}}("DesktopSize") 'replace ca * [[SYSTEM]], [[END]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SIGNAL.txt b/internal/help/SIGNAL.txt deleted file mode 100644 index 6a5a11bba..000000000 --- a/internal/help/SIGNAL.txt +++ /dev/null @@ -1,58 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The SIGNAL keyword was reserved for OS/2 systems (protected mode). See the example for more information about how and why it is used. - - -{{PageSyntax}} -:: [[ON]] SIGNAL(number) [[GOSUB]] line - -:: SIGNAL(number) [[ON]] - - -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* It will only work with compiler 6.00 and 6.00b and Basic PDS 7.00 when compiling in protected mode under OS/2. In all other situations, a SIGNAL statement results in an "Advanced feature unavailable" error message. - - -''Example:'' -{{CodeStart}} -'' '' -{{Cl|PRINT}} "This program traps CTRL+BREAK in OS/2. Try it." -{{Cl|ON}} SIGNAL(4) {{Cl|GOSUB}} trap -{{Cl|SIGNAL}}(4) {{Cl|ON}} -10 a$ = {{Cl|INKEY$}} - -{{Cl|IF...THEN|IF}} a$ = "" {{Cl|THEN}} {{Cl|GOTO}} 10 -{{Cl|END}} -trap: -{{Cl|PRINT}} "CTRL+BREAK trapped. Press any key to quit" -{{Cl|RETURN}} '' '' - -{{CodeEnd}} - - -''Output:'' It returns the following when Ctrl-Break is pressed -{{OutputStart}} -This program traps CTRL+BREAK in OS/2. Try it. - -CTRL+BREAK trapped. Press any key to quit -{{OutputEnd}} - -''Error message in QB4.5 if not using OS 2:'' - -{{OutputStart}} -Advanced feature unavailable -{{OutputEnd}} - - -''Source:'' Microsoft KB41389 [[http://support.microsoft.com/kb/41389]] - - -''See also:'' -* [[ON KEY (n)]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/SIN.txt b/internal/help/SIN.txt index 35092a001..a75fbb583 100644 --- a/internal/help/SIN.txt +++ b/internal/help/SIN.txt @@ -5,7 +5,7 @@ The {{KW|SIN}} function returns the vertical component or sine of an angle measu ::: value! = '''SIN('''''radian_angle!''''')''' -{{Parameters}} +{{PageParameters}} * The ''radian_angle'' must be measured in radians from 0 to 2 * Pi. @@ -15,24 +15,24 @@ The {{KW|SIN}} function returns the vertical component or sine of an angle measu * Accuracy can be determined as [[SINGLE]] by default or [[DOUBLE]] by following the parameter value with a # suffix. -''Example 1:'' Converting degree angles to radians for Qbasic's trig functions and drawing the line at the angle. +''Example 1:'' Converting degree angles to radians for QBasic's trig functions and drawing the line at the angle. {{CodeStart}} '' '' {{Cl|SCREEN}} 12 PI = 4 * {{Cl|ATN}}(1) -{{Cl|PRINT}} "PI = 4 * {{Cl|ATN}}(1) ="; PI -{{Cl|PRINT}} "COS(PI) = "; {{Cl|COS}}(PI) -{{Cl|PRINT}} "SIN(PI) = "; {{Cl|SIN}}(PI) +{{Cl|PRINT}} "PI = 4 * {{Cl|ATN}}(1) ="; PI +{{Cl|PRINT}} "COS(PI) = "; {{Cl|COS}}(PI) +{{Cl|PRINT}} "SIN(PI) = "; {{Cl|SIN}}(PI) DO {{Cl|PRINT}} - {{Cl|INPUT}} "Enter the degree angle (0 quits): ", DEGREES% + {{Cl|INPUT}} "Enter the degree angle (0 quits): ", DEGREES% RADIANS = DEGREES% * PI / 180 - {{Cl|PRINT}} "RADIANS = DEGREES% * PI / 180 = "; RADIANS - {{Cl|PRINT}} "X = COS(RADIANS) = "; {{Cl|COS}}(RADIANS) - {{Cl|PRINT}} "Y = SIN(RADIANS) = "; {{Cl|SIN}}(RADIANS) + {{Cl|PRINT}} "RADIANS = DEGREES% * PI / 180 = "; RADIANS + {{Cl|PRINT}} "X = COS(RADIANS) = "; {{Cl|COS}}(RADIANS) + {{Cl|PRINT}} "Y = SIN(RADIANS) = "; {{Cl|SIN}}(RADIANS) {{Cl|CIRCLE}} (400, 240), 2, 12 {{Cl|LINE}} (400, 240)-(400 + (50 * {{Cl|SIN}}(RADIANS)), 240 + (50 * {{Cl|COS}}(RADIANS))), 11 DEGREES% = RADIANS * 180 / PI - {{Cl|PRINT}} "DEGREES% = RADIANS * 180 / PI ="; DEGREES% + {{Cl|PRINT}} "DEGREES% = RADIANS * 180 / PI ="; DEGREES% {{Cl|LOOP}} {{Cl|UNTIL}} DEGREES% = 0 '' '' {{CodeEnd}} {{OutputStart}} @@ -66,7 +66,7 @@ Pi = 4 * {{Cl|ATN}}(1) {{Cl|_DISPLAY}} {{Cl|_LIMIT}} 20 'regulates gear speed and CPU usage {{Cl|NEXT}} G -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} {{Cl|SUB}} GEARZ (XP, YP, RAD, Teeth, TH, G, CLR) @@ -79,7 +79,7 @@ m = Teeth * G x = XP + (RAD + TH * {{Cl|SIN}}((Teeth * t + m)) ^ 3) * {{Cl|COS}}(t) y = YP + (RAD + TH * {{Cl|SIN}}((Teeth * t + m)) ^ 3) * {{Cl|SIN}}(t) {{Cl|LINE}} -(x, y), CLR - IF {{Cl|INKEY$}} <> "" THEN {{Cl|END}} + IF {{Cl|INKEY$}} <> "" THEN {{Cl|END}} {{Cl|NEXT}} t {{Cl|PAINT}} (XP, YP), CLR 'gear colors optional {{Cl|END SUB}} '' '' @@ -99,7 +99,7 @@ Pi2! = 8 * {{Cl|ATN}}(1): sec! = Pi2! / 60 ' (2 * pi) / 60 movements per rotati Sx% = {{Cl|CINT}}({{Cl|COS}}(S!) * 60) ' pixel columns (60 = circular radius) Sy% = {{Cl|CINT}}({{Cl|SIN}}(S!) * 60) ' pixel rows {{Cl|LINE}} (320, 240)-(Sx% + 320, Sy% + 240), 12 - {{Cl|DO}}: Check% = {{Cl|VAL}}({{Cl|RIGHT$}}({{Cl|TIME$}}, 2)) - 15: {{Cl|LOOP}} UNTIL Check% <> Seconds% ' wait loop + {{Cl|DO}}: Check% = {{Cl|VAL}}({{Cl|RIGHT$}}({{Cl|TIME$}}, 2)) - 15: {{Cl|LOOP}} UNTIL Check% <> Seconds% ' wait loop {{Cl|LINE}} (320, 240)-(Sx% + 320, Sy% + 240), 0 ' erase previous line {{Cl|LOOP}} UNTIL {{Cl|INKEY$}} = {{Cl|CHR$}}(27) ' escape keypress exits {{CodeEnd}} @@ -116,4 +116,4 @@ The value of 2 &pi; is used to determine the sec! multiplier that determines *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SINGLE.txt b/internal/help/SINGLE.txt index 1ddf835a1..6219267c5 100644 --- a/internal/help/SINGLE.txt +++ b/internal/help/SINGLE.txt @@ -12,7 +12,7 @@ * Values returned may be expressed using exponential or [[scientific notation]] using '''E''' for SINGLE or '''D''' for DOUBLE precision. * Floating decimal point numerical values cannot be [[_UNSIGNED]]! * Values can be converted to 4 byte [[ASCII]] string values using [[_MKS$]] and back with [[_CVS]]. -* '''Warning: Qbasic keyword names cannot be used as numerical variable names with or without the type suffix!''' +* '''Warning: QBasic keyword names cannot be used as numerical variable names with or without the type suffix!''' {{PageSeeAlso}} @@ -23,4 +23,4 @@ * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SLEEP.txt b/internal/help/SLEEP.txt index 1557943b9..533b1ae27 100644 --- a/internal/help/SLEEP.txt +++ b/internal/help/SLEEP.txt @@ -15,12 +15,12 @@ SLEEP pauses the program indefinitely or for a specified number of seconds, prog ''Example:'' {{CodeStart}} '' '' {{Cl|CLS}} '' '' -{{Cl|PRINT}} "Press a key..." +{{Cl|PRINT}} "Press a key..." {{Cl|SLEEP}} -{{Cl|PRINT}} "You pressed a key, now wait for 2 seconds." +{{Cl|PRINT}} "You pressed a key, now wait for 2 seconds." {{Cl|SLEEP}} 2 -{{Cl|PRINT}} "You've waited for 2 seconds." -{{Cl|PRINT}} "(or you pressed a key)" +{{Cl|PRINT}} "You've waited for 2 seconds." +{{Cl|PRINT}} "(or you pressed a key)" {{CodeEnd}} {{OutputStart}} Press a key... @@ -36,4 +36,4 @@ You've waited for 2 seconds. * [[_DELAY]], [[_LIMIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SOUND.txt b/internal/help/SOUND.txt index 821b59171..90dd6ea38 100644 --- a/internal/help/SOUND.txt +++ b/internal/help/SOUND.txt @@ -14,7 +14,7 @@ {{PageErrors}} * Low ''frequency'' values between 0 and 37 will create an [[ERROR Codes|Illegal Function call error]]. * '''Warning:''' SOUND may not work when the program is not in focus. Use SOUND 0, 0 at sound procedure start to set focus. -* '''Note:''' SOUND 0, 0 will not stop previous '''QB64''' sounds like it did in Qbasic! +* '''Note:''' SOUND 0, 0 will not stop previous '''QB64''' sounds like it did in QBasic! * SOUND may have clicks or pauses between the sounds generated. [[PLAY]] can be used for musical sounds. {{WhiteStart}} ''' The Seven Music Octaves ''' @@ -54,18 +54,18 @@ ''Example 1:'' Playing the seven octaves based on the base note DATA * 2 ^ (octave - 1). {{CodeStart}} '' '' -notes$ = "C C#D D#E F F#G G#A A#B " -{{Cl|COLOR}} 9:{{Cl|LOCATE}} 5, 20: PRINT "Select an octave (1 - 7) to play (8 quits):" +notes$ = "C C#D D#E F F#G G#A A#B " +{{Cl|COLOR}} 9:{{Cl|LOCATE}} 5, 20: PRINT "Select an octave (1 - 7) to play (8 quits):" {{Cl|DO}} {{Cl|DO}}: octa$ = {{Cl|INKEY$}} - {{Cl|IF...THEN|IF}} octa$ <> "" {{Cl|THEN}} - {{Cl|IF...THEN|IF}} {{Cl|ASC}}(octa$) > 48 {{Cl|AND (boolean)|AND}} {{Cl|ASC}}(octa$) < 58 {{Cl|THEN}} octave% = {{Cl|VAL}}(octa$): {{Cl|EXIT DO}} + {{Cl|IF...THEN|IF}} octa$ <> "" {{Cl|THEN}} + {{Cl|IF...THEN|IF}} {{Cl|ASC}}(octa$) > 48 {{Cl|AND (boolean)|AND}} {{Cl|ASC}}(octa$) < 58 {{Cl|THEN}} octave% = {{Cl|VAL}}(octa$): {{Cl|EXIT DO}} {{Cl|END IF}} - {{Cl|LOOP}} {{Cl|UNTIL}} octave% > 7 - {{Cl|IF...THEN|IF}} octave% > 0 {{Cl|AND (boolean)|AND}} octave% < 8 {{Cl|THEN}} + {{Cl|LOOP}} {{Cl|UNTIL}} octave% > 7 + {{Cl|IF...THEN|IF}} octave% > 0 {{Cl|AND (boolean)|AND}} octave% < 8 {{Cl|THEN}} {{Cl|LOCATE}} 15, 6: {{Cl|PRINT}} {{Cl|SPACE$}}(70) {{Cl|LOCATE}} 16, 6: {{Cl|PRINT}} {{Cl|SPACE$}}(70) - {{Cl|COLOR}} 14: {{Cl|LOCATE}} 15, 6: {{Cl|PRINT}} "Octave"; octave%; ":"; + {{Cl|COLOR}} 14: {{Cl|LOCATE}} 15, 6: {{Cl|PRINT}} "Octave"; octave%; ":"; {{Cl|RESTORE}} Octaves {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 12 {{Cl|READ}} note! @@ -74,20 +74,20 @@ notes$ = "C C#D D#E F F#G G#A A#B " c0l = {{Cl|POS}}(0) {{Cl|COLOR}} 11: {{Cl|LOCATE}} 16, c0l - 2: {{Cl|PRINT}} {{Cl|MID$}}(notes$, 1 + (2 * (i - 1)), 2) {{Cl|LOCATE}} 15, c0l - {{Cl|IF...THEN|IF}} snd% > 36 {{Cl|THEN}} {{Cl|SOUND}} snd%, 12 'error if sound value is < 36 + {{Cl|IF...THEN|IF}} snd% > 36 {{Cl|THEN}} {{Cl|SOUND}} snd%, 12 'error if sound value is < 36 {{Cl|_DELAY}} .8 {{Cl|NEXT}} {{Cl|END IF}} -{{Cl|LOOP}} {{Cl|UNTIL}} octave% > 7 +{{Cl|LOOP}} {{Cl|UNTIL}} octave% > 7 {{Cl|END}} Octaves: {{Cl|DATA}} 32.7,34.65,36.71,38.9,41.2,43.65,46.25,49,51.91,55,58.27,61.74 '' '' {{CodeEnd}} -{{small|Code adapted by Ted Weissgerber from code in [http://www.amazon.com/Running-MS-DOS-QBASIC-Michael-Halvorson/dp/1556153406 "Running MS-DOS Qbasic"] by Microsoft Press}} +{{small|Code adapted by Ted Weissgerber from code in [http://www.amazon.com/Running-MS-DOS-QBASIC-Michael-Halvorson/dp/1556153406 "Running MS-DOS QBasic"] by Microsoft Press}} -''Example 2:'' Playing a song called "Bonnie" with [[SOUND]] frequencies. +''Example 2:'' Playing a song called "Bonnie" with [[SOUND]] frequencies. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 13 {{Cl|_FULLSCREEN}} @@ -102,7 +102,7 @@ Octaves: {{Cl|LOCATE}} 23, i%: {{Cl|PRINT}} {{Cl|CHR$}}(220) {{Cl|NEXT}} i% {{Cl|COLOR}} 9 -{{Cl|LOCATE}} 3, 16: {{Cl|PRINT}} {{Cl|CHR$}}(34); "MY BONNIE"; {{Cl|CHR$}}(34) +{{Cl|LOCATE}} 3, 16: {{Cl|PRINT}} {{Cl|CHR$}}(34); "MY BONNIE"; {{Cl|CHR$}}(34) {{Cl|SLEEP}} 3 {{Cl|FOR...NEXT|FOR}} i% = 1 {{Cl|TO}} 34 {{Cl|SELECT CASE}} i% @@ -115,17 +115,17 @@ Octaves: {{Cl|SOUND}} note%, duration%: {{Cl|PRINT}} word$; {{Cl|NEXT}} i% {{Cl|SLEEP}} 2 -{{Cl|LOCATE}} 23, 16: {{Cl|PRINT}} "Thank You!" +{{Cl|LOCATE}} 23, 16: {{Cl|PRINT}} "Thank You!" {{Cl|SLEEP}} 4 {{Cl|SYSTEM}} -{{Cl|DATA}} 392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies ",587,8,"O-",523,8,"Ver ",440,8,"the " -{{Cl|DATA}} 392,8,"O-",330,32,"cean ",392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies " -{{Cl|DATA}} 523,8,"O-",494,8,"ver ",523,8,"the ",587,40,"sea ",392,8,"My ",659,8,"Bon-",587,8,"nie" -{{Cl|DATA}} 523,8," lies ",587,8,"O-",523,8,"ver ",440,8,"the ",392,8,"O-",330,32,"cean ",392,8,"Oh " -{{Cl|DATA}} 440,8,"bring ",587,8,"back ",523,8,"my ",494,8,"Bon-",440,8,"nie ",494,8,"to ",523,32,"me..!" '' '' +{{Cl|DATA}} 392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies ",587,8,"O-",523,8,"Ver ",440,8,"the " +{{Cl|DATA}} 392,8,"O-",330,32,"cean ",392,8,"My ",659,8,"Bon-",587,8,"nie ",523,8,"lies " +{{Cl|DATA}} 523,8,"O-",494,8,"ver ",523,8,"the ",587,40,"sea ",392,8,"My ",659,8,"Bon-",587,8,"nie" +{{Cl|DATA}} 523,8," lies ",587,8,"O-",523,8,"ver ",440,8,"the ",392,8,"O-",330,32,"cean ",392,8,"Oh " +{{Cl|DATA}} 440,8,"bring ",587,8,"back ",523,8,"my ",494,8,"Bon-",440,8,"nie ",494,8,"to ",523,32,"me..!" '' '' {{CodeEnd}} -{{small|Code adapted by Ted Weissgerber from code [http://www.amazon.com/Running-MS-DOS-QBASIC-Michael-Halvorson/dp/1556153406 "Running MS-DOS Qbasic"] by Microsoft Press}} +{{small|Code adapted by Ted Weissgerber from code [http://www.amazon.com/Running-MS-DOS-QBASIC-Michael-Halvorson/dp/1556153406 "Running MS-DOS QBasic"] by Microsoft Press}} ''See also:'' @@ -134,4 +134,4 @@ Octaves: * [[_SNDRAW]] (play frequency waves) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SPACE$.txt b/internal/help/SPACE$.txt index 7a5a0141b..d12a39feb 100644 --- a/internal/help/SPACE$.txt +++ b/internal/help/SPACE$.txt @@ -5,7 +5,7 @@ The {{KW|SPACE$}} function returns a {{KW|STRING}} consisting of a number of spa :''result$'' = '''SPACE$({{Parameter|count&}})''' -{{Parameters}} +{{PageParameters}} * {{Parameter|count&}} is the number of space characters to repeat. Cannot use negative values! @@ -24,7 +24,7 @@ The {{KW|SPACE$}} function returns a {{KW|STRING}} consisting of a number of spa ''Example 1:'' How to space text in a [[PRINT]] statement using SPACE$ with string [[concatenation]]. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} count% = 0 {{Cl|FOR...NEXT|TO}} 3 - {{Cl|PRINT}} "abc" + {{Cl|SPACE$}}( count% ) + "def" + {{Cl|PRINT}} "abc" + {{Cl|SPACE$}}( count% ) + "def" {{Cl|FOR...NEXT|NEXT}} count% {{CodeEnd}} {{OutputStart}}abcdef @@ -40,7 +40,7 @@ abc def ' blue corner field with randomly twinkling stars {{Cl|CLS}} {{Cl|LOCATE}} 25, 1 -{{Cl|PRINT}} "Press any key to stop twinkling"; +{{Cl|PRINT}} "Press any key to stop twinkling"; {{Cl|COLOR}} , 4 z = 15 {{Cl|FOR...NEXT|FOR}} x = 5 {{Cl|TO}} 19 '13 red & white stripes (x =5 to 21 for 15 stripes) @@ -61,33 +61,33 @@ DO {{Cl|FOR...NEXT|FOR}} y = 1 {{Cl|TO}} 6 '5 rows of 6 stars r = {{Cl|INT}}({{Cl|RND}} * 6) {{Cl|IF...THEN|IF}} r = 0 {{Cl|THEN}} z = 31 {{Cl|ELSE}} z = 15 - {{Cl|IF...THEN|IF}} stop$ = "" {{Cl|THEN}} {{Cl|COLOR}} z {{Cl|ELSE}} {{Cl|COLOR}} 15 + {{Cl|IF...THEN|IF}} stop$ = "" {{Cl|THEN}} {{Cl|COLOR}} z {{Cl|ELSE}} {{Cl|COLOR}} 15 {{Cl|LOCATE}} x, w w = w + 4 - {{Cl|PRINT}} "*"; + {{Cl|PRINT}} "*"; {{Cl|NEXT}} y w = 18 {{Cl|FOR...NEXT|FOR}} y = 1 {{Cl|TO}} 5 '5 rows of 5 stars r = {{Cl|INT}}({{Cl|RND}} * 6) {{Cl|IF...THEN|IF}} r = 0 {{Cl|THEN}} z = 31 {{Cl|ELSE}} z = 15 - {{Cl|IF...THEN|IF}} stop$ = "" {{Cl|THEN}} {{Cl|COLOR}} z {{Cl|ELSE}} {{Cl|COLOR}} 15 + {{Cl|IF...THEN|IF}} stop$ = "" {{Cl|THEN}} {{Cl|COLOR}} z {{Cl|ELSE}} {{Cl|COLOR}} 15 {{Cl|LOCATE}} x + 1, w w = w + 4 - {{Cl|PRINT}} "*"; + {{Cl|PRINT}} "*"; {{Cl|NEXT}} y {{Cl|NEXT}} x w = 16 {{Cl|FOR...NEXT|FOR}} y = 1 {{Cl|TO}} 6 '1 row of 6 stars r = {{Cl|INT}}({{Cl|RND}} * 6) {{Cl|IF...THEN|IF}} r = 0 {{Cl|THEN}} z = 31 {{Cl|ELSE}} z = 15 - {{Cl|IF...THEN|IF}} stop$ = "" {{Cl|THEN}} {{Cl|COLOR}} z {{Cl|ELSE}} {{Cl|COLOR}} 15 + {{Cl|IF...THEN|IF}} stop$ = "" {{Cl|THEN}} {{Cl|COLOR}} z {{Cl|ELSE}} {{Cl|COLOR}} 15 {{Cl|LOCATE}} x, w w = w + 4 - {{Cl|PRINT}} "*"; + {{Cl|PRINT}} "*"; {{Cl|NEXT}} y t = {{Cl|TIMER}} - {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} t + .2 >= {{Cl|TIMER}}: {{Cl|LOOP}} -{{Cl|LOOP}} {{Cl|WHILE}} stop$ = "" + {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} t + .2 >= {{Cl|TIMER}}: {{Cl|LOOP}} +{{Cl|LOOP}} {{Cl|WHILE}} stop$ = "" {{Cl|COLOR}} 7, 0 {{Cl|END}} {{CodeEnd}}{{small|Code by Solitaire}} @@ -100,4 +100,4 @@ DO * [[SPC]], [[TAB]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SPC.txt b/internal/help/SPC.txt index 580e19734..c1fc21fa5 100644 --- a/internal/help/SPC.txt +++ b/internal/help/SPC.txt @@ -5,7 +5,7 @@ The {{KW|SPC}} function is used in [[PRINT]] and [[LPRINT]] statements to print ::: '''SPC({{Parameter|count%}})''' -{{Parameters}} +{{PageParameters}} * ''count'' designates the number of column spaces to move the cursor in a [[PRINT]] statement. @@ -19,8 +19,8 @@ The {{KW|SPC}} function is used in [[PRINT]] and [[LPRINT]] statements to print ''Example:'' Using SPC to space a text print. -{{CodeStart}}{{Cl|PRINT}} "123456789" -{{Cl|PRINT}} "abc" ; {{Cl|SPC}}(3) ; "123"{{CodeEnd}} +{{CodeStart}}{{Cl|PRINT}} "123456789" +{{Cl|PRINT}} "abc" ; {{Cl|SPC}}(3) ; "123"{{CodeEnd}} {{OutputStart}}123456789 abc 123 {{OutputEnd}} @@ -32,4 +32,4 @@ abc 123 * [[TAB]], [[SPACE$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SQR.txt b/internal/help/SQR.txt index dd79b56bd..1038e4793 100644 --- a/internal/help/SQR.txt +++ b/internal/help/SQR.txt @@ -1,19 +1,21 @@ -The '''SQR''' function returns the square root of a numerical value. +The [[SQR]] function returns the square root of a numerical value. {{PageSyntax}} -:: square_root = '''SQR('''value''')''' +:square_root = [[SQR]](value) +{{PageDescription}} * The ''square root'' returned is normally a [[SINGLE]] or [[DOUBLE]] numerical value. * The ''value'' parameter can be any '''positive''' numerical type. '''Negative parameter values will not work!''' -* Other exponential root functions can use fractional exponents([[^]]) enclosed in '''parenthesis only'''. EX: {{text|root <nowiki> = </nowiki> c ^ (a / b)|green}} +* Other exponential root functions can use fractional exponents([[^]]) enclosed in '''parenthesis only'''. EX: {{text|root <nowiki> = </nowiki> c ^ (a / b)|green}} +{{PageExamples}} ''Example 1:'' Finding the hypotenuse of a right triangle: {{CodeStart}} '' '' A% = 3: B% = 4 - PRINT "hypotenuse! ="; SQR((A% ^ 2) + (B% ^ 2)) '' '' + {{Cl|PRINT}} "hypotenuse! ="; {{Cl|SQR}}((A% ^ 2) + (B% ^ 2)) '' '' {{CodeEnd}} {{OutputStart}} hypotenuse = 5 @@ -24,7 +26,7 @@ The '''SQR''' function returns the square root of a numerical value. {{CodeStart}} '' '' number = 8 cuberoot = number {{Cl|^}} (1/3) - PRINT cuberoot '' '' + {{Cl|PRINT}} cuberoot '' '' {{CodeEnd}} {{OutputStart}} 2 @@ -35,7 +37,7 @@ The '''SQR''' function returns the square root of a numerical value. {{CodeStart}} '' '' number = 8 negroot = number {{Cl|^}} -2 - PRINT negroot '' '' + {{Cl|PRINT}} negroot '' '' {{CodeEnd}} {{OutputStart}} .015625 @@ -45,34 +47,34 @@ The '''SQR''' function returns the square root of a numerical value. ''Example 4:'' Fast Prime number checker limits the numbers checked to the square root (half way). {{CodeStart}} -DEFLNG P -DO +{{Cl|DEFLNG}} P +{{Cl|DO}} PRIME = -1 'set PRIME as True -INPUT "Enter any number to check up to 2 million (Enter quits): ", guess$ +{{Cl|INPUT}} "Enter any number to check up to 2 million (Enter quits): ", guess$ PR = {{Cl|VAL}}(guess$) -IF PR {{Cl|MOD}} 2 THEN 'check for even number - FOR P = 3 TO {{Cl|SQR}}(PR) STEP 2 'largest number that could be a multiple is the SQR - IF PR {{Cl|MOD}} P = 0 THEN PRIME = 0: EXIT FOR 'MOD = 0 when evenly divisible by another - NEXT -ELSE : PRIME = 0 'number to be checked is even so it cannot be a prime -END IF -IF PR = 2 THEN PRIME = -1 '2 is the ONLY even prime -IF PR = 1 THEN PRIME = 0 'MOD returns true but 1 is not a prime by definition -IF PRIME THEN PRINT "PRIME! How'd you find me? " ELSE PRINT "Not a prime, you lose!" -LOOP UNTIL PR = 0 '' '' +{{Cl|IF}} PR {{Cl|MOD}} 2 {{Cl|THEN}} 'check for even number + {{Cl|FOR}} P = 3 {{Cl|TO}} {{Cl|SQR}}(PR) {{Cl|STEP}} 2 'largest number that could be a multiple is the SQR + {{Cl|IF}} PR {{Cl|MOD}} P = 0 {{Cl|THEN}} PRIME = 0: {{Cl|EXIT FOR}} 'MOD = 0 when evenly divisible by another + {{Cl|NEXT}} +{{Cl|ELSE}} : PRIME = 0 'number to be checked is even so it cannot be a prime +{{Cl|END IF}} +{{Cl|IF}} PR = 2 {{Cl|THEN}} PRIME = -1 '2 is the ONLY even prime +{{Cl|IF}} PR = 1 {{Cl|THEN}} PRIME = 0 'MOD returns true but 1 is not a prime by definition +{{Cl|IF}} PRIME {{Cl|THEN}} {{Cl|PRINT}} "PRIME! How'd you find me? " {{Cl|ELSE}} {{Cl|PRINT}} "Not a prime, you lose!" +{{Cl|LOOP}} {{Cl|UNTIL}} PR = 0 '' '' {{CodeEnd}} {{OutputStart}} Enter any number to check up to 2 million (Enter quits): 12379 PRIME! How'd you find me? {{OutputEnd}} -<center>''Note:'' Prime numbers cannot be evenly divided by any other number except one.</center> +<center>''Note:'' Prime numbers cannot be evenly divided by any other number except one.</center> -''See also:'' +{{PageSeeAlso}} *[[MOD]] {{text|(integer remainder division)}} *[[^]] {{text|(exponential operator)}} *[[Mathematical Operations]] *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Trigonometric Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STATIC.txt b/internal/help/STATIC.txt index c14f7afcd..656c69806 100644 --- a/internal/help/STATIC.txt +++ b/internal/help/STATIC.txt @@ -3,6 +3,7 @@ The {{KW|STATIC}} keyword is used in declaration statements to control where var {{PageSyntax}} :{{KW|STATIC}} {{Parameter|variableName}}[()] [{{KW|AS}} {{Parameter|dataType}}][, ...] +:{{KW|STATIC}} [{{KW|AS}} {{Parameter|dataType}}] {{Parameter|variableName}}[()][, ...] {{PageSyntax}} :{[[SUB]]|[[FUNCTION]]} {{Parameter|procedureName}} [({{Parameter|parameterList}})] STATIC @@ -14,33 +15,33 @@ The {{KW|STATIC}} keyword is used in declaration statements to control where var :* {{Parameter|variableName}} may include a type suffix or use [[AS]] to specify a type other than the default [[SINGLE]] type. :* Arrays with static storage are declared by specifying empty parenthesis following the array name. See [[Arrays]] * STATIC can be used after the name of a [[SUB]] or [[FUNCTION]] in the procedure to force all variables to retain their values. -* '''Recursive procedures may be required to be STATIC to avoid a Stack Overflow! QB64 programs may just close!''' +* '''Recursive procedures may be required to be STATIC to avoid a Stack Overflow error. QB64 programs may just close.''' * [[$STATIC]] defined program [[arrays]] cannot be [[REDIM|re-sized]] or use [[_PRESERVE]]. ''Example 1: Finding the binary bit settings from a 32 bit [[LONG]] register return using recursion. {{CodeStart}} '' '' -{{Cl|INPUT}} "Enter a numerical value to see binary value: ", num& +{{Cl|INPUT}} "Enter a numerical value to see binary value: ", num& {{Cl|PRINT}} Bin$(num&) {{Cl|END}} {{Cl|FUNCTION}} Bin$ (n&) {{Cl|STATIC}} 'comment out STATIC to see what happens! {{Cl|DIM}} p%, s$ -{{Cl|IF...THEN|IF}} 2 ^ p% > n& {{Cl|THEN}} +{{Cl|IF...THEN|IF}} 2 ^ p% > n& {{Cl|THEN}} p% = 0 {{Cl|ELSE}} - {{Cl|IF...THEN|IF}} n& {{Cl|AND (boolean)|AND}} 2 ^ p% {{Cl|THEN}} s$ = "1" + s$ {{Cl|ELSE}} s$ = "0" + s$ - {{Cl|IF...THEN|IF}} n& > 2 ^ p% {{Cl|THEN}} + {{Cl|IF...THEN|IF}} n& {{Cl|AND (boolean)|AND}} 2 ^ p% {{Cl|THEN}} s$ = "1" + s$ {{Cl|ELSE}} s$ = "0" + s$ + {{Cl|IF...THEN|IF}} n& > 2 ^ p% {{Cl|THEN}} p% = p% + 1 s$ = Bin$(n&) 'recursive call to itself {{Cl|ELSE}}: p% = 0 {{Cl|END IF}} {{Cl|END IF}} -{{Cl|IF...THEN|IF}} s$ = "" {{Cl|THEN}} Bin$ = "0" {{Cl|ELSE}} Bin$ = s$ +{{Cl|IF...THEN|IF}} s$ = "" {{Cl|THEN}} Bin$ = "0" {{Cl|ELSE}} Bin$ = s$ {{Cl|END FUNCTION}} '' '' {{CodeEnd}} -: ''Explanation:'' The [[FUNCTION]] above returns a [[STRING]] value representing the bits ON in an [[INTEGER]] value. The string can be printed to the screen to see what is happening in a port register. '''STATIC''' keeps the function from overloading the memory "Stack" and is normally REQUIRED when recursive calls are used in Qbasic! '''QB64 procedures will close without warning or error!''' +: ''Explanation:'' The [[FUNCTION]] above returns a [[STRING]] value representing the bits ON in an [[INTEGER]] value. The string can be printed to the screen to see what is happening in a port register. '''STATIC''' keeps the function from overloading the memory "Stack" and is normally REQUIRED when recursive calls are used in QBasic! '''QB64 procedures will close without warning or error!''' ''Example 2:'' Using a static array to cache factorials, speeding up repeated calculations: @@ -48,7 +49,7 @@ The {{KW|STATIC}} keyword is used in declaration statements to control where var {{Cl|PRINT}} Factorial(0) {{Cl|PRINT}} Factorial(5) -{{Cl|PRINT}} Factorial(50 +{{Cl|PRINT}} Factorial(50) {{Cl|FUNCTION}} Factorial# ( n {{Cl|AS}} {{Cl|DOUBLE}} ) {{Cl|CONST}} maxNToCache = 50 @@ -68,7 +69,7 @@ The {{KW|STATIC}} keyword is used in declaration statements to control where var ' See if we have the result cached. If so, we're done. {{Cl|IF...THEN|IF}} n <= maxNToCache {{Cl|IF...THEN|THEN}} - {{Cl|IF...THEN|IF}} resultCache(n) <> 0 {{Cl|IF...THEN|THEN}} + {{Cl|IF...THEN|IF}} resultCache(n) <> 0 {{Cl|IF...THEN|THEN}} Factorial = resultCache(n) {{Cl|EXIT FUNCTION}} {{Cl|IF...THEN|END IF}} @@ -95,4 +96,4 @@ The {{KW|STATIC}} keyword is used in declaration statements to control where var * [[Data types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STEP.txt b/internal/help/STEP.txt index 85fe1a247..af91715d6 100644 --- a/internal/help/STEP.txt +++ b/internal/help/STEP.txt @@ -53,4 +53,4 @@ The '''STEP''' keyword is used in [[FOR...NEXT]] loops to skip through the count * [[LINE]], [[CIRCLE]], [[PSET]], [[PAINT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STICK.txt b/internal/help/STICK.txt index f0267b1e2..f0d9b0070 100644 --- a/internal/help/STICK.txt +++ b/internal/help/STICK.txt @@ -5,7 +5,7 @@ The '''STICK''' function returns the directional axis coordinate move of game po :: coordinate_move% = STICK(direction%) -QB64 {{PageSyntax}} +== QB64 Syntax == :: coordinate_move% = STICK(''direction%''[, ''axis_number%'']) @@ -13,13 +13,13 @@ QB64 {{PageSyntax}} * '''QB64''' allows any number of coordinate pairs for more than two game device controllers. STICK will not read a mouse axis. * ''axis_number'' can be used as the next axis parameter for controllers with multiple axis using the SAME ''directional'' parameters. * The ''axis_number'' 1 can be omitted for the main stick column and row parameter reads. -* Point of view "hats" also have 2 axis. Slide, turn or twist controls have one. The device determines the order of the axis. -* Returns coordinate values from 1 to 254. Qbasic only returned values from 1 to 200. +* Point of view "hats" also have 2 axis. Slide, turn or twist controls have one. The device determines the order of the axis. +* Returns coordinate values from 1 to 254. QBasic only returned values from 1 to 200. * STICK(0) is required to get values from the other STICK functions. Always read it first! {{WhiteStart}}'''STICK(0) returns the column coordinate of device 1. Enables reads of the other STICK values.''' '''STICK(1) returns row coordinate of device 1.''' STICK(2) returns column coordinate of device 2. (second joystick if used) -STICK(3) returns row coordinate of device 2 if used. (Qbasic maximum was 2 controllers) +STICK(3) returns row coordinate of device 2 if used. (QBasic maximum was 2 controllers) '''STICK(4) returns column coordinate of device 3. (other joysticks if used in QB64 only!)''' '''STICK(5) returns row coordinate of device 3 if used.''' {{WhiteEnd}} @@ -33,16 +33,16 @@ STICK(3) returns row coordinate of device 2 if used. (Qbasic maximum was 2 contr {{Cl|DO}}: {{Cl|_LIMIT}} 10 {{Cl|LOCATE}} 1, 1 - {{Cl|PRINT}} "JOY1: {{Cl|STICK}}"; {{Cl|STICK}}(0); {{Cl|STICK}}(1); {{Cl|STICK}}(0, 2); {{Cl|STICK}}(1, 2);_ - "STRIG"; {{Cl|STRIG}}(0); {{Cl|STRIG}}(1); {{Cl|STRIG}}(4); {{Cl|STRIG}}(5); {{Cl|STRIG}}(8); {{Cl|STRIG}}(9) + {{Cl|PRINT}} "JOY1: {{Cl|STICK}}"; {{Cl|STICK}}(0); {{Cl|STICK}}(1); {{Cl|STICK}}(0, 2); {{Cl|STICK}}(1, 2);_ + "STRIG"; {{Cl|STRIG}}(0); {{Cl|STRIG}}(1); {{Cl|STRIG}}(4); {{Cl|STRIG}}(5); {{Cl|STRIG}}(8); {{Cl|STRIG}}(9) - {{Cl|PRINT}} "JOY2: {{Cl|STICK}}"; {{Cl|STICK}}(2); {{Cl|STICK}}(3); {{Cl|STICK}}(2, 2); {{Cl|STICK}}(3, 2);_ - "STRIG"; {{Cl|STRIG}}(2); {{Cl|STRIG}}(3); {{Cl|STRIG}}(6); {{Cl|STRIG}}(7); {{Cl|STRIG}}(10); {{Cl|STRIG}}(11) + {{Cl|PRINT}} "JOY2: {{Cl|STICK}}"; {{Cl|STICK}}(2); {{Cl|STICK}}(3); {{Cl|STICK}}(2, 2); {{Cl|STICK}}(3, 2);_ + "STRIG"; {{Cl|STRIG}}(2); {{Cl|STRIG}}(3); {{Cl|STRIG}}(6); {{Cl|STRIG}}(7); {{Cl|STRIG}}(10); {{Cl|STRIG}}(11) - {{Cl|PRINT}} "JOY3: {{Cl|STICK}}"; {{Cl|STICK}}(4); {{Cl|STICK}}(5); {{Cl|STICK}}(4, 2); {{Cl|STICK}}(5, 2);_ - "STRIG"; {{Cl|STRIG}}(0, 3); {{Cl|STRIG}}(1, 3); {{Cl|STRIG}}(4, 3); {{Cl|STRIG}}(5, 3); {{Cl|STRIG}}(8, 3); {{Cl|STRIG}}(9, 3) + {{Cl|PRINT}} "JOY3: {{Cl|STICK}}"; {{Cl|STICK}}(4); {{Cl|STICK}}(5); {{Cl|STICK}}(4, 2); {{Cl|STICK}}(5, 2);_ + "STRIG"; {{Cl|STRIG}}(0, 3); {{Cl|STRIG}}(1, 3); {{Cl|STRIG}}(4, 3); {{Cl|STRIG}}(5, 3); {{Cl|STRIG}}(8, 3); {{Cl|STRIG}}(9, 3) -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' {{CodeEnd}} :''Explanation:'' Notice the extra '''QB64 only''' parameters used to cater for the 2nd stick and the buttons of the 3rd joystick. @@ -51,23 +51,23 @@ STICK(3) returns row coordinate of device 2 if used. (Qbasic maximum was 2 contr {{CodeStart}} '' '' {{Cl|SCREEN}} 12 d = {{Cl|_DEVICES}} -{{Cl|PRINT}} "Number of input devices found ="; d +{{Cl|PRINT}} "Number of input devices found ="; d {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} d {{Cl|PRINT}} {{Cl|_DEVICE$}}(i) buttons = {{Cl|_LASTBUTTON}}(i) - {{Cl|PRINT}} "Buttons:"; buttons + {{Cl|PRINT}} "Buttons:"; buttons {{Cl|NEXT}} DO: {{Cl|_LIMIT}} 50 {{Cl|LOCATE}} 10, 1 - {{Cl|PRINT}} " X Main Y Slider Z-axis POV" - {{Cl|PRINT}} {{Cl|STICK}}(0, 1), {{Cl|STICK}}(1, 1), {{Cl|STICK}}(0, 2), {{Cl|STICK}}(1, 2), {{Cl|STICK}}(0, 3); {{Cl|STICK}}(1, 3); " " - {{Cl|PRINT}} " Buttons" + {{Cl|PRINT}} " X Main Y Slider Z-axis POV" + {{Cl|PRINT}} {{Cl|STICK}}(0, 1), {{Cl|STICK}}(1, 1), {{Cl|STICK}}(0, 2), {{Cl|STICK}}(1, 2), {{Cl|STICK}}(0, 3); {{Cl|STICK}}(1, 3); " " + {{Cl|PRINT}} " Buttons" {{Cl|FOR...NEXT|FOR}} i = 0 {{Cl|TO}} 4 * buttons - 1 {{Cl|STEP}} 4 {{Cl|PRINT}} {{Cl|STRIG}}(i); {{Cl|STRIG}}(i + 1); {{Cl|CHR$}}(219); {{Cl|NEXT}} {{Cl|PRINT}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' {{CodeEnd}} : ''Explanation:'' Each axis on the first controller found is either STICK(0, n) or STICK(1, n) with n increasing when necessary. {{OutputStart}} @@ -85,8 +85,7 @@ Buttons: 9 Buttons -0 -1 â–ˆ 0 0 â–ˆ 0 0 â–ˆ 0 0 â–ˆ 0 0 â–ˆ 0 0 â–ˆ 0 0 â–ˆ 0 0 â–ˆ 0 0 â–ˆ {{OutputEnd}} -: ''Note:'' A Sidewinder Precision Pro requires that pins 2 and 7(blue and purple) be connected together for [http://www.qb64.net/forum/index.php?topic=4167.msg42339#msg42339 digital USB recognition.] -<center> [http://www.amazon.com/Belkin-F3U200-08INCH-Joystick-Adapter-SideWinder/dp/B000067RIV Sidewinder Precision Pro game port to USB adapter]</center> +: ''Note:'' A Sidewinder Precision Pro requires that pins 2 and 7 (blue and purple) be connected together for digital USB recognition. ''See also:'' @@ -96,4 +95,4 @@ Buttons: 9 * [http://en.wikipedia.org/wiki/Analog_stick Single and Dual Stick Controllers] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STOP.txt b/internal/help/STOP.txt index ab3d7403d..91f9e4ea9 100644 --- a/internal/help/STOP.txt +++ b/internal/help/STOP.txt @@ -1,27 +1,12 @@ -The '''STOP''' statement is used to stop program execution when troubleshooting a program or to suspend event trapping. +The '''STOP''' statement is used to stop program execution. {{PageSyntax}} :: STOP -* STOP used in the Qbasic IDE does not close any files or go to the operating system. It returns to the IDE. -* In the QB64 compiler, STOP closes the program window and returns to the [[IDE]] when the code is compiled from there. -* STOP is ONLY used for debugging purposes and should not be used to exit programs! -* STOP can also be used to suspend an event trap in the following statements: [[KEY(n)]], [[ON COM (n)|COM(n)]], [[PEN]], [[PLAY]], [[STRIG(n)]], [[TIMER]], [[UEVENT]]. The trap can be turned back on with [[ON]] and returns any trap events since '''STOP''' was used. - - -''Example:'' When run in the Qbasic IDE, the program will return to the IDE at STOP. Press F5 to finish the program. -{{CodeStart}} -{{Cl|PRINT}} "start" - -{{Cl|SLEEP}} 3 - -{{Cl|STOP}} - -{{Cl|PRINT}} "resumed" -{{CodeEnd}} -: ''Explanation:'' QB64 will STOP the program and close the window as it does not have an interpreter to run the rest of the code. +* STOP ends the program. +* Since QB64 programs are compiled and not interpreted, use [[END]] or [[SYSTEM]] instead. ''See also:'' @@ -29,4 +14,4 @@ The '''STOP''' statement is used to stop program execution when troubleshooting * [[ON]], [[OFF]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STR$.txt b/internal/help/STR$.txt index 8063cc062..a7105a78c 100644 --- a/internal/help/STR$.txt +++ b/internal/help/STR$.txt @@ -5,7 +5,7 @@ The '''STR$''' function returns the [[STRING]] representation of a numerical val :: result$ = '''STR$('''{{Parameter|number}}''')''' -{{Parameters}} +{{PageParameters}} * {{Parameter|number}} is any numerical type value to convert. @@ -30,7 +30,7 @@ The '''STR$''' function returns the [[STRING]] representation of a numerical val {{CodeStart}} a = 33 -{{Cl|PRINT}} {{Cl|STR$}}(a) + "10" + "1" + "who" + {{Cl|STR$}}(a) + {{Cl|STR$}}(a) + {{Cl|LTRIM$}}({{Cl|STR$}}(a)) +{{Cl|PRINT}} {{Cl|STR$}}(a) + "10" + "1" + "who" + {{Cl|STR$}}(a) + {{Cl|STR$}}(a) + {{Cl|LTRIM$}}({{Cl|STR$}}(a)) {{CodeEnd}} {{OutputStart}} 33101who 33 3333 {{OutputEnd}} @@ -43,4 +43,4 @@ a = 33 * [[HEX$]], [[OCT$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STRIG(n).txt b/internal/help/STRIG(n).txt index 110d60dea..44c7c6a23 100644 --- a/internal/help/STRIG(n).txt +++ b/internal/help/STRIG(n).txt @@ -24,13 +24,13 @@ QB64 {{PageSyntax}} {{Cl|STRIG(n)|STRIG}}(0)ON DO - {{Cl|PRINT}} "."; + {{Cl|PRINT}} "."; {{Cl|_LIMIT}} 30 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} 10 -a$ = "[STRIG 0 EVENT]" +a$ = "[STRIG 0 EVENT]" {{Cl|FOR...NEXT|FOR}} x = 1 {{Cl|TO}} {{Cl|LEN}}(a$) {{Cl|PRINT}} {{Cl|MID$}}(a$, x, 1); {{Cl|_DELAY}} 0.02 @@ -45,4 +45,4 @@ a$ = "[STRIG 0 EVENT]" * [http://en.wikipedia.org/wiki/Analog_stick Single and Dual Stick Controllers] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STRIG.txt b/internal/help/STRIG.txt index 86d30a8a6..6bfdd2247 100644 --- a/internal/help/STRIG.txt +++ b/internal/help/STRIG.txt @@ -22,7 +22,7 @@ QB64 {{PageSyntax}} '''STRIG(4) = -1 'upper button 2 on device 1 pressed since last STRIG(4) read''' '''STRIG(5) = -1 'upper button 2 on device 1 currently pressed''' STRIG(6) = -1 'upper button 2 on device 2 pressed since last STRIG(6) read - STRIG(7) = -1 'upper button 2 on device 2 currently pressed (maximum in Qbasic) + STRIG(7) = -1 'upper button 2 on device 2 currently pressed (maximum in QBasic) '''STRIG(8) = -1 'button 3 on device 1 pressed since last STRIG(8) read''' 'QB64 only '''STRIG(9) = -1 'button 3 on device 1 currently pressed''' STRIG(10) = -1 'button 3 on device 2 pressed since last STRIG(10) read 'QB64 only @@ -42,16 +42,16 @@ STRIG(2, 4): STRIG(3, 4): STRIG(6, 4): STRIG(7, 4): STRIG(10, 4): STRIG(11, 4) ' {{Cl|DO}}: {{Cl|_LIMIT}} 10 {{Cl|LOCATE}} 1, 1 - {{Cl|PRINT}} "JOY1: {{Cl|STICK}}"; {{Cl|STICK}}(0); {{Cl|STICK}}(1); {{Cl|STICK}}(0, 2); {{Cl|STICK}}(1, 2);_ - "STRIG"; {{Cl|STRIG}}(0); {{Cl|STRIG}}(1); {{Cl|STRIG}}(4); {{Cl|STRIG}}(5); {{Cl|STRIG}}(8); {{Cl|STRIG}}(9) + {{Cl|PRINT}} "JOY1: {{Cl|STICK}}"; {{Cl|STICK}}(0); {{Cl|STICK}}(1); {{Cl|STICK}}(0, 2); {{Cl|STICK}}(1, 2);_ + "STRIG"; {{Cl|STRIG}}(0); {{Cl|STRIG}}(1); {{Cl|STRIG}}(4); {{Cl|STRIG}}(5); {{Cl|STRIG}}(8); {{Cl|STRIG}}(9) - {{Cl|PRINT}} "JOY2: {{Cl|STICK}}"; {{Cl|STICK}}(2); {{Cl|STICK}}(3); {{Cl|STICK}}(2, 2); {{Cl|STICK}}(3, 2);_ - "STRIG"; {{Cl|STRIG}}(2); {{Cl|STRIG}}(3); {{Cl|STRIG}}(6); {{Cl|STRIG}}(7); {{Cl|STRIG}}(10); {{Cl|STRIG}}(11) + {{Cl|PRINT}} "JOY2: {{Cl|STICK}}"; {{Cl|STICK}}(2); {{Cl|STICK}}(3); {{Cl|STICK}}(2, 2); {{Cl|STICK}}(3, 2);_ + "STRIG"; {{Cl|STRIG}}(2); {{Cl|STRIG}}(3); {{Cl|STRIG}}(6); {{Cl|STRIG}}(7); {{Cl|STRIG}}(10); {{Cl|STRIG}}(11) - {{Cl|PRINT}} "JOY3: {{Cl|STICK}}"; {{Cl|STICK}}(4); {{Cl|STICK}}(5); {{Cl|STICK}}(4, 2); {{Cl|STICK}}(5, 2);_ - "STRIG"; {{Cl|STRIG}}(0, 3); {{Cl|STRIG}}(1, 3); {{Cl|STRIG}}(4, 3); {{Cl|STRIG}}(5, 3); {{Cl|STRIG}}(8, 3); {{Cl|STRIG}}(9, 3) + {{Cl|PRINT}} "JOY3: {{Cl|STICK}}"; {{Cl|STICK}}(4); {{Cl|STICK}}(5); {{Cl|STICK}}(4, 2); {{Cl|STICK}}(5, 2);_ + "STRIG"; {{Cl|STRIG}}(0, 3); {{Cl|STRIG}}(1, 3); {{Cl|STRIG}}(4, 3); {{Cl|STRIG}}(5, 3); {{Cl|STRIG}}(8, 3); {{Cl|STRIG}}(9, 3) -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' {{CodeEnd}} :''Explanation:'' Notice the extra '''QB64 only''' parameters used to cater for the 2nd stick and the buttons of the 3rd joystick. @@ -63,4 +63,4 @@ STRIG(2, 4): STRIG(3, 4): STRIG(6, 4): STRIG(7, 4): STRIG(10, 4): STRIG(11, 4) ' * [http://en.wikipedia.org/wiki/Analog_stick Single and Dual Stick Controllers] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STRING$.txt b/internal/help/STRING$.txt index 62ee51e70..5f093a46a 100644 --- a/internal/help/STRING$.txt +++ b/internal/help/STRING$.txt @@ -6,7 +6,7 @@ The {{KW|STRING$}} function returns a {{KW|STRING}} consisting of a single chara {{PageDescription}} -<!-- Stylin --> +<!-- Stylin --> * {{Parameter|count&}} is the number of times the character specified by {{Parameter|character}} is repeated. * Character is a literal string character, a string variable or an [[ASCII]] code number. * If {{Parameter|count&}} is negative, an [[ERROR Codes|illegal function call]] error will occur. The count can be zero. @@ -29,12 +29,11 @@ The {{KW|STRING$}} function returns a {{KW|STRING}} consisting of a single chara :Using a [[STRING]] to specify the repeated character. -{{CodeStart}}text$ = "B" + {{Cl|STRING$}}(40, "A") + "D" +{{CodeStart}}text$ = "B" + {{Cl|STRING$}}(40, "A") + "D" {{Cl|PRINT}} text$ {{CodeEnd}} {{OutputStart}}BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD {{OutputEnd}} -''Note:'' The string contatenation + operator MUST be used in [[STRING]] variable definitions. ''See examples:'' @@ -48,4 +47,4 @@ The {{KW|STRING$}} function returns a {{KW|STRING}} consisting of a single chara * [[ASCII]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/STRING.txt b/internal/help/STRING.txt index 0617af285..d5ba30053 100644 --- a/internal/help/STRING.txt +++ b/internal/help/STRING.txt @@ -7,22 +7,22 @@ * ''Byte length'' is optional in [[DIM]] statements, but is required in [[TYPE]] definitions as a literal or [[CONST|constant]] [[INTEGER]] value. * Literal strings are defined by quotation marks on each end. The quotes will not [[PRINT]] to the screen. -* Quotation marks cannot be placed inside of literal string values! Use [[CHR$]](34) to display " quotes. +* Quotation marks cannot be placed inside of literal string values! Use [[CHR$]](34) to display " quotes. * Semicolons and commas outside of the string can be used to combine strings in a [[PRINT]] statement only. * [[LEN]] determines the number of bytes and number of string characters that are in a particular string. -* Literal string ends are designated by quotation marks such as: "text". Use [[CHR$]](34) to add quotes to string values. +* Literal string ends are designated by quotation marks such as: "text". Use [[CHR$]](34) to add quotes to string values. * Variable suffix type definition is $ such as: text$. * STRING values are compared according to the [[ASCII]] code values from left to right until one string code value exceeds the other. -* '''NOTE: Many Qbasic keyword variable names CAN be used with a [[STRING]] suffix($) ONLY! You CANNOT use them without the suffix, use a numerical suffix or use [[DIM]], [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]] statements!''' -:::::'''Creating a fixed length STRING variable in Qbasic:''' +:::::'''Creating a fixed length STRING variable''' -:* Variable$ = " " ' 1 space creates a one [[_BYTE|byte]] string length in a procedure(not fixed) +:* Variable$ = " " ' 1 space creates a one [[_BYTE|byte]] string length in a procedure(not fixed) :* Variable$ = SPACE$(n%) ' defined as a n% length string in a procedure(not fixed) :* [[DIM]] variable AS STRING * n% ' fixed string length cannot be changed later :* Variable AS STRING * n% ' fixed string length in a [[SUB]] parameter or [[TYPE]] definition. :* [[CONST]] variables can also be used after the constant value is defined. +:* Fixed length strings may not be initialized with spaces and may contain only a series of CHR$(0) at program start. :::::'''QB64 fixed length string type suffixes''' @@ -42,7 +42,7 @@ ''Example 1:'' Using a string type suffix with a fixed length byte size in QB64 only. The number designates the fixed string length. {{CodeStart}} '' '' -var$5 = "1234567" +var$5 = "1234567" PRINT var$5 '' '' {{CodeEnd}} @@ -53,20 +53,20 @@ PRINT var$5 '' '' ''Example 2:'' Creating a string variable value by adding variable and literal string values. This procedure is called string [[concatenation]]. {{CodeStart}} '' '' age% = 10 -a$ = "I am " + {{Cl|CHR$}}(34) + {{Cl|LTRIM$}}({{Cl|STR$}}(age%)) + {{Cl|CHR$}}(34) + " years old." -b$ = "How old are you?" +a$ = "I am " + {{Cl|CHR$}}(34) + {{Cl|LTRIM$}}({{Cl|STR$}}(age%)) + {{Cl|CHR$}}(34) + " years old." +b$ = "How old are you?" question$ = a$ + {{Cl|SPACE$}}(1) + b$ {{Cl|PRINT}} question$ {{CodeEnd}} {{OutputStart}} -I am "10" years old. How old are you? '' '' +I am "10" years old. How old are you? '' '' {{OutputEnd}} :''Note:'' Since quotation marks are used to denote the ends of literal strings, [[CHR$]](34) must be used to place quotes inside them. ''Example 3:'' How QB64 string type suffixes can fix the length by adding a number of bytes after it. {{CodeStart}} '' '' -strings$5 = "Hello world" +strings$5 = "Hello world" PRINT strings$5 '' '' {{CodeEnd}}{{OutputStart}}Hello{{OutputEnd}} @@ -74,22 +74,22 @@ PRINT strings$5 '' '' ''Example 4:'' STRING values can be compared by the [[ASC]] code value according to [[ASCII]]. {{CodeStart}} '' '' -{{Cl|PRINT}} "Enter a letter, number or punctuation mark from the keyboard: "; +{{Cl|PRINT}} "Enter a letter, number or punctuation mark from the keyboard: "; valu$ = {{Cl|INPUT$}}(1) {{Cl|PRINT}} value$ -value1$ = "A" -value2$ = "m" -value3$ = "z" +value1$ = "A" +value2$ = "m" +value3$ = "z" {{Cl|SELECT CASE}} value$ - {{Cl|CASE}} value1$: {{Cl|PRINT}} "A only" - {{Cl|CASE}} value1$ {{Cl|TO}} value2$: {{Cl|PRINT}} "B to m" 'A is already evaluated - {{Cl|CASE}} value1$, value2$, value3$: {{Cl|PRINT}} "z only" 'A and m are already evaluated - {{Cl|CASE IS}} > value2$: {{Cl|PRINT}} "greater than m but not z" 'z is already evaluated - {{Cl|CASE ELSE}}: {{Cl|PRINT}} "other value" 'key entry below A including all numbers + {{Cl|CASE}} value1$: {{Cl|PRINT}} "A only" + {{Cl|CASE}} value1$ {{Cl|TO}} value2$: {{Cl|PRINT}} "B to m" 'A is already evaluated + {{Cl|CASE}} value1$, value2$, value3$: {{Cl|PRINT}} "z only" 'A and m are already evaluated + {{Cl|CASE IS}} > value2$: {{Cl|PRINT}} "greater than m but not z" 'z is already evaluated + {{Cl|CASE ELSE}}: {{Cl|PRINT}} "other value" 'key entry below A including all numbers {{Cl|END SELECT}} '' '' {{CodeEnd}} -: ''Notes:'' [[STRING]] values using multiple characters will be compared by the [[ASCII]] code values sequentially from left to right. Once the equivalent code value of one string is larger than the other the evaluation stops. This allows string values to be compared and sorted alphabetically using [[Greater Than|>]] or [[Less Than|<]] and to [[SWAP]] values in [[arrays]] irregardless of the string lengths. +: ''Notes:'' [[STRING]] values using multiple characters will be compared by the [[ASCII]] code values sequentially from left to right. Once the equivalent code value of one string is larger than the other the evaluation stops. This allows string values to be compared and sorted alphabetically using [[Greater Than|>]] or [[Less Than|<]] and to [[SWAP]] values in [[arrays]] irregardless of the string lengths. ''See also:'' @@ -107,4 +107,4 @@ value3$ = "z" * [[PRINT]], [[PRINT USING]], [[WRITE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SUB.txt b/internal/help/SUB.txt index f7cd1d9aa..a8f203a9d 100644 --- a/internal/help/SUB.txt +++ b/internal/help/SUB.txt @@ -9,8 +9,8 @@ A '''SUB''' procedure is a procedure within a program that can calculate and ret :: '''END SUB''' -{{Parameters}} -* Parameters passed after the procedure call must match the variable types in he SUB parameters in order. +{{PageParameters}} +* Parameters passed after the procedure call must match the variable types in the SUB parameters in order. * If there are no ''parameter''s passed or they are [[SHARED]] the parameters and parenthesis are not required in the procedure. * Parameter [[Variable]] names in the procedure do not have to match the names used in the [[CALL]], just the value types. @@ -24,40 +24,28 @@ A '''SUB''' procedure is a procedure within a program that can calculate and ret * SUB procedures can save program memory as all memory used in a SUB is released on procedure exit except for [[STATIC]] values. * [[_DEFINE]] can be used to define all new or old QB64 variable [[TYPE]] definitions instead of DEF***. * [[$INCLUDE]] text library files with needed SUB and [[FUNCTION]] procedures can be included in programs after all sub-procedures. -* '''QB64 ignores all procedural [[DECLARE]] statements!''' Define all ''parameter'' [[TYPE]]s in the SUB procedure. +* '''QB64 ignores all procedural DECLARE statements.''' Define all ''parameter'' [[TYPE]]s in the SUB procedure. * '''Images are not deallocated when the [[SUB]] or [[FUNCTION]] they are created in ends. Free them with [[_FREEIMAGE]].''' - - -<center>'''Qbasic'''</center> -* The [[IDE]] can create the SUB and [[END SUB]] lines for you. Use the Make SUB option in the Edit Menu. A box will come up for you to enter a name for the SUB. Enter the procedure code between the SUB and [[END SUB]] lines created. -* '''Qbasic SUB procedures could not have [[ON]] events, [[DATA]], [[TYPE]] or [[ON ERROR]] statements inside of them.''' -* Procedure code can use [[GOSUB]] and [[GOTO]] linenumbers and linelabels inside of the procedure only. -* The Qbasic [[IDE]] will [[DECLARE]] a SUB at the top of the module code after it has been [[CALL|referenced]] and the BAS file is saved. -* '''Only [[DEFINT]], [[DEFSNG]], [[DEFLNG]] or [[DEFDBL]] default variable [[TYPE|type]] declarations are allowed before the SUB block.''' -* Qbasic's [[IDE]] may place a [[DEFINT]], [[DEFSNG]], [[DEFLNG]], [[DEFDBL]] or [[DEFSTR]] statement before the SUB line if it is used in the main module. It may even be the wrong variable type needed. It can be removed or changed if necessary. -* An uncalled SUB will not be [[DECLARE]]d in Qbasic if it is not used. -* Qbasic allowed programmers to add DATA fields anywhere because the [[IDE]] separated the main code from other sub-procedures. +* In order to use OpenGL commands you need a [[SUB]] [[_GL]] in your program. ''Example 1:'' Text [[PRINT]] screen centering using [[PEEK]] to find the SCREEN mode width. Call and SUB procedure code: {{CodeStart}} '' '' {{Cl|DEFINT}} A-Z {{Cl|SCREEN}} 13 -Center 10, 15, "This text is centered." ' example module sub call +Center 10, 15, "This text is centered." ' example module sub call {{Cl|END}} {{Cl|DEFINT}} A-Z ' only code allowed before SUB line is a DEF statement or a comment {{Cl|SUB}} Center (Tclr, Trow, Text$) -{{Cl|DEF SEG}} = &H40 -Columns = {{Cl|PEEK}}(&H4A) -{{Cl|DEF SEG}} +Columns = {{Cl|_WIDTH}} / {{Cl|_FONTWIDTH}} 'Convert _WIDTH (in pixels) to width in characters Middle = (Columns \ 2) + 1 ' reads any screen mode width Tcol = Middle - ({{Cl|LEN}}(Text$) \ 2) {{Cl|COLOR}} Tclr: {{Cl|LOCATE}} Trow, Tcol: {{Cl|PRINT}} Text$; ' end semicolon prevents screen roll {{Cl|END SUB}} '' '' {{CodeEnd}} -:''Explanation:'' The procedure centers text printed to the screen. The parameters are the text color, row and the text itself as a string or string variable. The maximum width of the screenmode is found and divided in half to find the center point. The text string's length is also divided in half and subtracted from the screen's center position. The procedure will also work when the [[WIDTH]] statement has been used. When adding variables to Text$ use the + concatenation operator. Not semicolons! +:''Explanation:'' The procedure centers text printed to the screen. The parameters are the text color, row and the text itself as a string or string variable. The maximum width of the screen mode in characters is found and divided in half to find the center point. The text string's length is also divided in half and subtracted from the screen's center position. The procedure will also work when the [[WIDTH]] statement has been used. When adding variables to Text$ use the + concatenation operator. Not semicolons! ''Example 2:'' SUB and [[FUNCTION]] procedures always return to the place they were called in the main or other sub-procedures: @@ -71,12 +59,12 @@ Add1 a {{Cl|SUB}} Add1 (n) n = n + 1 Add2 n -{{Cl|PRINT}} "exit 1" +{{Cl|PRINT}} "exit 1" {{Cl|END SUB}} {{Cl|SUB}} Add2 (m) m = m + 2 -{{Cl|PRINT}} "exit 2" +{{Cl|PRINT}} "exit 2" {{Cl|END SUB}} {{CodeEnd}} {{OutputStart}}exit 2 @@ -88,8 +76,9 @@ exit 1 ''See also:'' * [[FUNCTION]], [[CALL]] +* '''SUB''' [[_GL]] * [[BYVAL]], [[SCREEN (statement)]] * [[EXIT]], [[END]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SWAP.txt b/internal/help/SWAP.txt index da12c3e80..a037ec515 100644 --- a/internal/help/SWAP.txt +++ b/internal/help/SWAP.txt @@ -16,8 +16,8 @@ The {{KW|SWAP}} statement is used to exchange two variable or array element valu ''Example 1:'' A simple SWAP of [[STRING|string]] values. {{CodeStart}} -a$ = "one" -b$ = "two" +a$ = "one" +b$ = "two" {{Cl|SWAP}} a$, b$ @@ -41,25 +41,25 @@ one {{Cl|COLOR}} 11: {{Cl|LOCATE}} 10, 10 {{Cl|FOR...NEXT|FOR}} i = 65 {{Cl|TO}} 90 {{Cl|IF...THEN|IF}} Letter$(i) = {{Cl|CHR$}}(i) {{Cl|THEN}} 'find characters the same as the {{Cl|ASCII}} code index - {{Cl|DO...LOOP|DO}}: j = {{Cl|INT}}({{Cl|RND}} * 26) + 65: {{Cl|LOOP}} {{Cl|WHILE}} j = i 'loop until j <> i + {{Cl|DO...LOOP|DO}}: j = {{Cl|INT}}({{Cl|RND}} * 26) + 65: {{Cl|LOOP}} {{Cl|WHILE}} j = i 'loop until j <> i {{Cl|SWAP}} Letter$(i), Letter$(j) 'swap corresponding letter characters {{Cl|END IF}} - {{Cl|PRINT}} {{Cl|CHR$}}(i); " "; 'print normal alphabetical order + {{Cl|PRINT}} {{Cl|CHR$}}(i); " "; 'print normal alphabetical order {{Cl|NEXT}} {{Cl|COLOR}} 14: {{Cl|LOCATE}} 12, 10 {{Cl|FOR...NEXT|FOR}} a = 65 {{Cl|TO}} 90 'display new alphabetical order - {{Cl|PRINT}} Letter$(a); " "; + {{Cl|PRINT}} Letter$(a); " "; {{Cl|NEXT}} -text$ = "This is how a normal sentence would look before being encrypted." +text$ = "This is how a normal sentence would look before being encrypted." {{Cl|COLOR}} 11: {{Cl|LOCATE}} 20, 5: {{Cl|PRINT}} text$ L = {{Cl|LEN}}(text$) {{Cl|DIM}} Code(L) 'place ASCII code solution into an array {{Cl|COLOR}} 14: {{Cl|LOCATE}} 22, 5 {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} L Code(i) = {{Cl|ASC}}({{Cl|UCASE$}}(text$), i) 'in QB64, ASC can read by character position - {{Cl|IF...THEN|IF}} Code(i) >= 65 {{Cl|AND (boolean)|AND}} Code(i) <= 90 {{Cl|THEN}} {{Cl|PRINT}} Letter$(Code(i)); {{Cl|ELSE}} {{Cl|PRINT}} {{Cl|CHR$}}(Code(i)); + {{Cl|IF...THEN|IF}} Code(i) >= 65 {{Cl|AND (boolean)|AND}} Code(i) <= 90 {{Cl|THEN}} {{Cl|PRINT}} Letter$(Code(i)); {{Cl|ELSE}} {{Cl|PRINT}} {{Cl|CHR$}}(Code(i)); {{Cl|NEXT}} {{Cl|END}} '' '' {{CodeEnd}} @@ -82,14 +82,14 @@ swap2 = 0 'count swaps for demo only start! = {{Cl|TIMER}}(.001) {{Cl|CALL}} QuickSort(start, finish, array()) ending! = {{Cl|TIMER}}(.001) -tmp$ = " array(0)= ##.##### array(5000)= ###.#### array(10000)= ###.####" +tmp$ = " array(0)= ##.##### array(5000)= ###.#### array(10000)= ###.####" {{Cl|PRINT USING}} tmp$; array(0); array(5000); array(10000) -{{Cl|PRINT USING}} " Elapsed time: #.###### seconds with #######, swaps"; ending! - start!; swap2& +{{Cl|PRINT USING}} " Elapsed time: #.###### seconds with #######, swaps"; ending! - start!; swap2& {{Cl|FOR...NEXT|FOR}} n = 0 {{Cl|TO}} 10000 'check array sort order - {{Cl|IF}} array(n) >= max! {{Cl|THEN}} 'max should match the array type + {{Cl|IF}} array(n) >= max! {{Cl|THEN}} 'max should match the array type max! = array(n) {{Cl|ELSE}} {{Cl|BEEP}} - {{Cl|PRINT}} "Bad sort order!" + {{Cl|PRINT}} "Bad sort order!" {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} {{Cl|END IF}} {{Cl|NEXT}} @@ -101,14 +101,14 @@ Hi = finish: Lo = start Middle = array((Lo + Hi) / 2) 'find middle of array {{Cl|DO}} {{Cl|DO}} {{Cl|WHILE}} array(Lo) < Middle: Lo = Lo + 1: {{Cl|LOOP}} - {{Cl|DO}} {{Cl|WHILE}} array(Hi) > Middle: Hi = Hi - 1: {{Cl|LOOP}} + {{Cl|DO}} {{Cl|WHILE}} array(Hi) > Middle: Hi = Hi - 1: {{Cl|LOOP}} {{Cl|IF}} Lo <= Hi {{Cl|THEN}} {{Cl|SWAP}} array(Lo), array(Hi) swap2 = swap2 + 1 'count swaps for demo only Lo = Lo + 1: Hi = Hi - 1 {{Cl|END IF}} 'If homework, you will fail -{{Cl|LOOP}} {{Cl|UNTIL}} Lo > Hi -{{Cl|IF}} Hi > start {{Cl|THEN}} {{Cl|CALL}} QuickSort(start, Hi, array()) +{{Cl|LOOP}} {{Cl|UNTIL}} Lo > Hi +{{Cl|IF}} Hi > start {{Cl|THEN}} {{Cl|CALL}} QuickSort(start, Hi, array()) {{Cl|IF}} Lo < finish {{Cl|THEN}} {{Cl|CALL}} QuickSort(Lo, finish, array()) {{Cl|END SUB}} '' '' {{CodeEnd}} @@ -124,4 +124,4 @@ Middle = array((Lo + Hi) / 2) 'find middle of array * [[ASCII]], [[Arrays]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/SYSTEM.txt b/internal/help/SYSTEM.txt index 87615a480..00eda754e 100644 --- a/internal/help/SYSTEM.txt +++ b/internal/help/SYSTEM.txt @@ -1,25 +1,25 @@ -The {{KW|SYSTEM}} statement immediately closes a program and returns control to the operating system. +The [[SYSTEM]] statement immediately closes a program and returns control to the operating system. {{PageSyntax}} :'''SYSTEM''' [return_code%] -{{Parameters}} +{{PageParameters}} * QB64 allows a ''code'' number to be used after SYSTEM to be read in another program module by the [[SHELL]] or [[_SHELLHIDE]] functions. -''Usage:'' +{{PageDescription}} * This command should be used to close a program quickly instead of pausing with [[END]] or nothing at all. * A code can be added after the statement to send a value to the [[SHELL (function)]] or [[_SHELLHIDE]] function in another module. * SYSTEM ends the program and closes the window immediately. The last screen image may not be displayed. -''Qbasic or QuickBasic:'' -* '''Qbasic BAS files can be run like compiled programs without returning to the [[IDE]] when [[SYSTEM]] is used to [[END|end]] them!''' -* If a program BAS module is run from the IDE, stopped by Ctrl-Break or an error occurs the QB program will exit to the [[IDE]]. -* To run a QuickBasic program without the [[IDE]] use the following [[DOS]] command line: {{text|QB.EXE /L /RUN filename.BAS|green}} +{{PageQBasic}} +* '''QBasic BAS files can be run like compiled programs without returning to the IDE when [[SYSTEM]] is used to [[END|end]] them!''' +* If a program BAS module is run from the IDE, stopped by Ctrl-Break or an error occurs the QB program will exit to the IDE. +* To run a QuickBASIC program without the IDE use the following DOS command line: {{text|QB.EXE /L /RUN filename.BAS|green}} {{PageSeeAlso}} @@ -28,4 +28,4 @@ The {{KW|SYSTEM}} statement immediately closes a program and returns control to * [[_EXIT (function)]], [[END]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Semicolon.txt b/internal/help/Semicolon.txt index 960d04b17..30ffc7fe3 100644 --- a/internal/help/Semicolon.txt +++ b/internal/help/Semicolon.txt @@ -1,7 +1,7 @@ The '''semicolon''' is used in a [[PRINT]] statement to stop the screen print cursor immediately after the printed value. -''Usage:'' COLOR 13: PRINT "Value ="; value1; value2; value3 +''Usage:'' COLOR 13: PRINT "Value ="; value1; value2; value3 {{OutputStart}}{{text|1234 5678 9012|magenta}}{{OutputEnd}} @@ -10,7 +10,7 @@ The '''semicolon''' is used in a [[PRINT]] statement to stop the screen print cu * Use the [[WRITE]] statement to print values with only commas between the values and no spacing. * A semicolon can append the next print when used at the end of a [[PRINT]] statement. * Use a semicolon after text that will be [[PRINT|printed]] on the last two text rows of a [[SCREEN (statement)|screen mode]] to prevent screen rolling. -* [[INPUT]] statements can use the semicolon '''before''' the text to prevent screen rolling. '''INPUT ; "text or question"; variable'''. +* [[INPUT]] statements can use the semicolon '''before''' the text to prevent screen rolling. '''INPUT ; "text or question"; variable'''. * A semicolon '''after''' the text will create a question mark and space after the [[INPUT]] text question. Use a comma for statements. * '''NOTE: Semicolons can NOT be used to combine string variables in a string variable definition!''' * Use the '''+''' [[concatenation]] operator to combine [[STRING|string]] variable definition values only! @@ -27,4 +27,4 @@ The '''semicolon''' is used in a [[PRINT]] statement to stop the screen print cu * [[VAL]] {{text|(convert string to number)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TAB.txt b/internal/help/TAB.txt index 3e09cac66..b9588f17f 100644 --- a/internal/help/TAB.txt +++ b/internal/help/TAB.txt @@ -11,19 +11,19 @@ The {{KW|TAB}} function is used in [[PRINT]] and [[LPRINT]] statements to move t * [[ASCII]] [[CHR$]](9) can be substituted for sequencial 9 space column moves. * [[Comma]] PRINT spacing is up to 15 column places (IE: TAB(15)) to a maximum column of 57. * When printing to a file, a carriage return([[CHR$]](13)) and linefeed([[CHR$]](10)) character are output when it moves to the next row. -* '''Note:''' Qbasic did not allow a TAB to be [[concatenation|added]] to a string value. In [[PRINT]] statements the [[+|plus]] would be changed to a [[semicolon]]. -: In QB64, TAB [[concatenation]] is allowed instead of [[semicolon]]s. Example: {{text|PRINT "text" + TAB(9) + "here"|green}} +* '''Note:''' QBasic did not allow a TAB to be [[concatenation|added]] to a string value. In [[PRINT]] statements the [[+|plus]] would be changed to a [[semicolon]]. +: In QB64, TAB [[concatenation]] is allowed instead of [[semicolon]]s. Example: {{text|PRINT "text" + TAB(9) + "here"|green}} ''Example:'' Comparing TAB to [[comma]] print spacing which moves the next text print 15 columns. {{CodeStart}} '' '' -{{Cl|PRINT}} {{Cl|TAB}}(15); "T" 'TAB spacing +{{Cl|PRINT}} {{Cl|TAB}}(15); "T" 'TAB spacing -{{Cl|PRINT}} , "T" '' '' 'comma spacing +{{Cl|PRINT}} , "T" '' '' 'comma spacing -{{Cl|PRINT}} {{Cl|TAB}}(15); "T"{{text|;|red}} {{Cl|TAB}}(20); "A"; {{Cl|TAB}}(15); "B" 'semicolons add nothing to position +{{Cl|PRINT}} {{Cl|TAB}}(15); "T"{{text|;|red}} {{Cl|TAB}}(20); "A"; {{Cl|TAB}}(15); "B" 'semicolons add nothing to position -{{Cl|PRINT}} {{Cl|TAB}}(15); "T"{{text|,|red}} {{Cl|TAB}}(20); "A"; {{Cl|TAB}}(15); "B" 'comma moves column position beyond 20 '' '' +{{Cl|PRINT}} {{Cl|TAB}}(15); "T"{{text|,|red}} {{Cl|TAB}}(20); "A"; {{Cl|TAB}}(15); "B" 'comma moves column position beyond 20 '' '' {{CodeEnd}} {{OutputStart}} T T @@ -42,4 +42,4 @@ The {{KW|TAB}} function is used in [[PRINT]] and [[LPRINT]] statements to move t * [[CHR$]], [[ASCII]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TAN.txt b/internal/help/TAN.txt index 03981ac71..19cd0f9fa 100644 --- a/internal/help/TAN.txt +++ b/internal/help/TAN.txt @@ -5,7 +5,7 @@ The [[TAN]] function returns the ratio of [[SIN]]e to [[COS]]ine or tangent valu ::: tangent! = '''TAN('''''radian_angle!''''')''' -{{Parameters}} +{{PageParameters}} * The ''radian_angle'' must be measured in radians. @@ -17,7 +17,7 @@ The [[TAN]] function returns the ratio of [[SIN]]e to [[COS]]ine or tangent valu ''Example:'' Spiraling text using the [[SIN]] and [[TAN]] functions. {{CodeStart}} '' '' {{Cl|DIM}} {{Cl|SHARED}} text {{Cl|AS}} {{Cl|STRING}} -text$ = "S P I R A L" +text$ = "S P I R A L" {{Cl|DIM}} {{Cl|SHARED}} word(1 {{Cl|TO}} {{Cl|LEN}}(text$) * 8, 1 {{Cl|TO}} 16) {{Cl|CALL}} analyse @@ -56,7 +56,7 @@ DO x = (SCALE * 60 - (row * xrot / 4)) * {{Cl|TAN}}({{Cl|COS}}(i)) y = {{Cl|SIN}}(SCALE * 60 - (row * yrot)) * {{Cl|TAN}}({{Cl|SIN}}(i)) * pan cnt = cnt + 1 - {{Cl|IF...THEN|IF}} word(cnt, row) > 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} word(cnt, row) > 0 {{Cl|THEN}} {{Cl|CIRCLE}} (x + 320, y + 220), SCALE + 1, 1 'circled letters '{{Cl|LINE}} (x + 320, y + 220)-{{Cl|STEP}}(12, 12), 1, BF 'boxed letters {{Cl|END IF}} @@ -70,7 +70,7 @@ DO now! = {{Cl|TIMER}} DO newnow! = {{Cl|TIMER}} - {{Cl|LOOP}} {{Cl|UNTIL}} newnow! - now! >= .15 + {{Cl|LOOP}} {{Cl|UNTIL}} newnow! - now! >= .15 {{Cl|LINE}} (1, 100)-(639, 280), 0, BF {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) {{Cl|END SUB}} '' '' @@ -87,4 +87,4 @@ DO * [[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/THEN.txt b/internal/help/THEN.txt index d1693518b..2bdc3a889 100644 --- a/internal/help/THEN.txt +++ b/internal/help/THEN.txt @@ -7,7 +7,7 @@ * THEN is required on the same code line as the IF statement. -* The condition value must be true(-1) or <> 0 for the statement code to be executed. +* The condition value must be true(-1) or <> 0 for the statement code to be executed. ''See also:'' @@ -16,4 +16,4 @@ * [[END IF]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TIME$.txt b/internal/help/TIME$.txt index 10fbff0d6..fad07e88f 100644 --- a/internal/help/TIME$.txt +++ b/internal/help/TIME$.txt @@ -2,13 +2,13 @@ The '''TIME$''' Function returns a [[STRING]] representation of the current comp {{PageSyntax}} -:: PRINT "Present time = "; '''TIME$''' +:: PRINT "Present time = "; '''TIME$''' -* Returns the present computer time in hh:mm:ss 24 hour format: "19:20:33" +* Returns the present computer time in hh:mm:ss 24 hour format: "19:20:33" * Uses 2 colon (:) separators between hours, minutes and seconds -* Hour values range from "00" to "23" starting from midnite. -* Minutes and seconds range from "00" to "59" +* Hour values range from "00" to "23" starting from midnite. +* Minutes and seconds range from "00" to "59" * Continuous TIME$ calls may lag if a QBasic program is minimized to the taskbar! @@ -20,9 +20,9 @@ The '''TIME$''' Function returns a [[STRING]] representation of the current comp t$ = {{Cl|TIME$}}: h = {{Cl|VAL}}(t$): m = {{Cl|VAL}}({{Cl|MID$}}(t$, 4, 2)): s = {{Cl|VAL}}({{Cl|MID$}}(t$, 7, 2)) {{Cl|PRINT}} t$ {{Cl|CIRCLE}} {{Cl|STEP}}(0, 0), 200, 8 - {{Cl|DRAW}} "c12ta" + {{Cl|STR$}}((h {{Cl|MOD}} 12) * -30) + "nu133" - {{Cl|DRAW}} "c14ta" + {{Cl|STR$}}(m * -6) + "nu200" - {{Cl|DRAW}} "c9ta" + {{Cl|STR$}}(s * -6) + "nu200" + {{Cl|DRAW}} "c12ta" + {{Cl|STR$}}((h {{Cl|MOD}} 12) * -30) + "nu133" + {{Cl|DRAW}} "c14ta" + {{Cl|STR$}}(m * -6) + "nu200" + {{Cl|DRAW}} "c9ta" + {{Cl|STR$}}(s * -6) + "nu200" {{Cl|_DISPLAY}} {{Cl|_LIMIT}} 1 {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) '' '' @@ -39,10 +39,10 @@ PRINT Clock$ {{Cl|FUNCTION}} Clock$ hour$ = {{Cl|LEFT$}}(TIME$, 2): H% = {{Cl|VAL}}(hour$) min$ = {{Cl|MID$}}(TIME$, 3, 3) -IF H% >= 12 THEN ampm$ = " PM" ELSE ampm$ = " AM" -IF H% > 12 THEN +IF H% >= 12 THEN ampm$ = " PM" ELSE ampm$ = " AM" +IF H% > 12 THEN IF H% - 12 < 10 THEN hour$ = {{Cl|STR$}}(H% - 12) ELSE hour$ = {{Cl|LTRIM$}}({{Cl|STR$}}(H% - 12)) -ELSEIF H% = 0 THEN hour$ = "12" ' midnight hour +ELSEIF H% = 0 THEN hour$ = "12" ' midnight hour ELSE : IF H% < 10 THEN hour$ = {{Cl|STR$}}(H%) ' eliminate leading zeros END IF Clock$ = hour$ + min$ + ampm$ @@ -56,11 +56,11 @@ END FUNCTION '' '' ''See also:'' -* [[TIME$ (statement)]], [[TIMER]] -* [[DATE$]], [[DATE$ (statement)]] -* [[VAL]], [[STR$]], [[HEX]] +* [[TIMER]] +* [[DATE$]] +* [[VAL]], [[STR$]], [[HEX$]] * [[LTRIM$]], [[MID$]], [[LEFT$]] * [[IF...THEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TIME$_(statement).txt b/internal/help/TIME$_(statement).txt deleted file mode 100644 index 3d7ba0cea..000000000 --- a/internal/help/TIME$_(statement).txt +++ /dev/null @@ -1,19 +0,0 @@ -The '''TIME$''' statement changes the computer clock time to another [[STRING]] value . - - - -{{PageSyntax}} -:: TIME$ = "12:23:33" - - -* The string value or variable must have the value formatted correctly. -* The seconds value can be omitted and one colon can be used. -* The [[TIME$]] function can preserve the original time to reset later. -* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]] - - -''See also:'' -* [[TIME$]], [[DATE$]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/TIMER.txt b/internal/help/TIMER.txt index a9260db55..989442036 100644 --- a/internal/help/TIMER.txt +++ b/internal/help/TIMER.txt @@ -1,19 +1,19 @@ The '''TIMER''' function returns the number of seconds past the previous midnite down to an accuracy of 1/18th of a second. -QB {{PageSyntax|}} +== QB Syntax == ::: seconds! = TIMER -'''QB64''' {{PageSyntax}} +== QB64 Syntax == ::: seconds# = TIMER[(''accuracy!'')] * TIMER return values range from 0 at midnight to 86399! A comparison value must stay within that range! * [[INTEGER]] or [[LONG]] second values range from 0 at midnight to 86399 seconds each day. -* Qbasic can return [[SINGLE]] values down to about .04 or 1/18th (one tick) of a second accurately. -* '''QB64''' can read [[DOUBLE]] ''accuracy'' down to 1 millisecond. Example: {{text|start# <nowiki>=</nowiki> TIMER(.001)|green}} +* QBasic can return [[SINGLE]] values down to about .04 or 1/18th (one tick) of a second accurately. +* '''QB64''' can read [[DOUBLE]] ''accuracy'' down to 1 millisecond. Example: {{text|start# <nowiki>=</nowiki> TIMER(.001)|green}} * Use [[DOUBLE]] variables for millisecond accuracy as [[SINGLE]] values are only accurate to 100ths of a second later in the day! -* TIMER loops should use a midnight adjustment to avoid non-ending loops in Qbasic. +* TIMER loops should use a midnight adjustment to avoid non-ending loops in QBasic. * TIMER can also be used for timing program Events. See [[ON TIMER(n)]] or the [[TIMER (statement)]] * '''QB64''' can use a [[_DELAY]] down to .001(one millisecond) or [[_LIMIT]] loops per second. Both help limit program CPU usage. @@ -21,17 +21,17 @@ QB {{PageSyntax|}} ''Example 1:'' Delay SUB with a midnight correction for when TIMER returns to 0. '''QB64''' can use [[_DELAY]] for delays down to .001. {{CodeStart}} '' '' {{Cl|DO...LOOP|DO}} - {{Cl|PRINT}} "Hello"; - Delay .5 'accuracy down to .05 seconds or 1/18th of a second in Qbasic - {{Cl|PRINT}} "World!"; + {{Cl|PRINT}} "Hello"; + Delay .5 'accuracy down to .05 seconds or 1/18th of a second in QBasic + {{Cl|PRINT}} "World!"; {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) 'escape key exit {{Cl|END}} {{Cl|SUB}} Delay (dlay!) start! = {{Cl|TIMER}} -{{Cl|DO...LOOP|DO}} {{Cl|WHILE}} start! + dlay! >= {{Cl|TIMER}} - {{Cl|IF...THEN|IF}} start! > {{Cl|TIMER}} {{Cl|THEN}} start! = start! - 86400 +{{Cl|DO...LOOP|DO}} {{Cl|WHILE}} start! + dlay! >= {{Cl|TIMER}} + {{Cl|IF...THEN|IF}} start! > {{Cl|TIMER}} {{Cl|THEN}} start! = start! - 86400 {{Cl|LOOP}} {{Cl|END SUB}} '' '' {{CodeEnd}} @@ -46,10 +46,10 @@ start! = {{Cl|TIMER}} {{Cl|POKE}} 1132, 0 ' zero Timer ticks {{Cl|DO...LOOP|DO}} ' delay loop x% = {{Cl|PEEK}}(1132) - {{Cl|IF...THEN|IF}} x% <> px% {{Cl|THEN}} {{Cl|PRINT}} x%; + {{Cl|IF...THEN|IF}} x% <> px% {{Cl|THEN}} {{Cl|PRINT}} x%; px% = x% - {{Cl|LOOP}} {{Cl|UNTIL}} x% >= 18 '18 ticks in one second - {{Cl|PRINT}} "code " ' program code + {{Cl|LOOP}} {{Cl|UNTIL}} x% >= 18 '18 ticks in one second + {{Cl|PRINT}} "code " ' program code {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) {{Cl|DEF SEG}} ' reset segment to default @@ -59,7 +59,7 @@ start! = {{Cl|TIMER}} 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 code 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 code {{OutputEnd}} -:''Explanation:'' The [[POKE]] before the delay loop sets the tick count to 0. The [[PEEK]] count increases until the tick count returns 18 ticks and ends the loop. The same thing could be approximated by using a delay loop with: {{text|second! <nowiki>=</nowiki> '''TIMER''' + 1|green}} +:''Explanation:'' The [[POKE]] before the delay loop sets the tick count to 0. The [[PEEK]] count increases until the tick count returns 18 ticks and ends the loop. The same thing could be approximated by using a delay loop with: {{text|second! <nowiki>=</nowiki> '''TIMER''' + 1|green}} ''Example 3:'' Using a [[DOUBLE]] variable for [[TIMER]](.001) millisecond accuracy in '''QB64''' throughout the day. @@ -67,8 +67,8 @@ start! = {{Cl|TIMER}} ts! = TIMER(.001) 'single variable td# = TIMER(.001) 'double variable - PRINT "Single ="; ts! - PRINT "Double ="; td# '' '' + PRINT "Single ="; ts! + PRINT "Double ="; td# '' '' {{CodeEnd}} {{OutputStart}} Single = 77073.09 @@ -83,4 +83,4 @@ start! = {{Cl|TIMER}} * [[ON TIMER(n)]], [[TIMER (statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TIMER_(statement).txt b/internal/help/TIMER_(statement).txt index 738b79a68..ecee908c8 100644 --- a/internal/help/TIMER_(statement).txt +++ b/internal/help/TIMER_(statement).txt @@ -1,59 +1,58 @@ -A '''TIMER''' statement enables, turns off or stops timer event trapping. Qbasic only uses the base timer, but '''QB64''' can run many. +A [[TIMER]] statement enables, turns off or stops timer event trapping. QBasic only uses the base timer, but '''QB64''' can run many. -QB {{PageSyntax}} - +{{PageSyntax}} +QB :::TIMER {ON|STOP|OFF} -QB64 {{PageSyntax}} - +QB64 :::TIMER(''number%'') {ON|STOP|OFF|FREE} -{{Parameters}} +{{PageParameters}} * ''number'' denotes a specific numbered timer event in '''QB64 only'''. QB64 can run many timer events at once including the base timer. * TIMER ON enables event trapping of an [[ON TIMER (n)]] statement. While enabled, a check is made after every code statement to see if the specified time has elapsed and the ON TIMER [[GOSUB]] (or [[SUB]] in QB64) procedure is executed. * TIMER STOP disables timer event trapping. When an event occurs while stopped, it is remembered. If timer events are turned back on later, any remembered events are immediately executed. * TIMER OFF turns timer event trapping completely off and no subsequent events are remembered. - -<center>'''QB64 only'''</center> -* Get a TIMER number from [[_FREETIMER]] ONLY except when the base timer(no number or 0) is used. Use specific variables or an array to hold each event number value for later reference. -* If the TIMER number is omitted or 0, the TIMER used is the base timer. -* Specific TIMER events can be enabled, suspended, turned off or freed using [[TIMER (statement)|TIMER(n)]] ON, STOP, OFF or FREE. * TIMER(n) '''FREE''' clears a specific timer event when it is no longer needed. '''The base TIMER or TIMER(0) cannot be freed!''' -<center>'''QB64 Timing Alternatives'''</center> +{{PageDescription}} +<center>'''QB64 only'''</center> +* Get a TIMER number from [[_FREETIMER]] ONLY except when the base timer(no number or 0) is used. Use specific variables or an array to hold each event number value for later reference. +* If the TIMER number is omitted or 0, the TIMER used is the base timer. +* Specific TIMER events can be enabled, suspended, turned off or freed using [[TIMER (statement)|TIMER(n)]] ON, STOP, OFF or FREE. + + +<center>'''QB64 Timing Alternatives'''</center> * The [[TIMER]] function can be used to find timed intervals down to 1 millisecond(.001) accuracy. * The [[_DELAY]] statement can be used to delay program execution for intervals down to milliseconds. * [[_LIMIT]] can slow down loops to a specified number of frames per second. This can also alleviate a program's CPU usage. +{{PageExamples}} ''Example:'' How to update the time while [[PRINT|printing]] at the same time in a program. {{CodeStart}} '' '' - TIMER ON ' enable timer event trapping - LOCATE 4, 2 ' set the starting PRINT position - {{Cl|ON TIMER(n)|ON TIMER}}(10) GOSUB Clock ' set procedure execution repeat time - DO WHILE INKEY$ = "": PRINT "A"; : SLEEP 6: LOOP - TIMER OFF - {{Cl|SYSTEM}} +{{Cl|TIMER}} ON ' enable timer event trapping +{{Cl|LOCATE}} 4, 2 ' set the starting PRINT position +{{Cl|ON TIMER(n)|ON TIMER}}(10) {{Cl|GOSUB}} Clock ' set procedure execution repeat time +{{Cl|DO}} {{Cl|WHILE}} {{Cl|INKEY$}} = "": {{Cl|PRINT}} "A"; : {{Cl|SLEEP}} 6: {{Cl|LOOP}} +{{Cl|TIMER}} OFF +{{Cl|SYSTEM}} - Clock: - row = {{Cl|CSRLIN}} ' Save current print cursor row. - col = {{Cl|POS|POS(0)}} ' Save current print cursor column. - LOCATE 2, 37: PRINT {{Cl|TIME$}}; ' print current time at top of screen. - LOCATE row, col ' return to last print cursor position - {{Cl|RETURN}} '' '' +Clock: + row = {{Cl|CSRLIN}} ' Save current print cursor row. + col = {{Cl|POS|POS(0)}} ' Save current print cursor column. + {{Cl|LOCATE}} 2, 37: {{Cl|PRINT}} {{Cl|TIME$}}; ' print current time at top of screen. + {{Cl|LOCATE}} row, col ' return to last print cursor position +{{Cl|RETURN}} '' '' {{CodeEnd}} -: NOTE: SLEEP will be interrupted in Qbasic. +: NOTE: SLEEP will be interrupted in QBasic. -''See also:'' - +{{PageSeeAlso}} * [[ON TIMER(n)]], [[TIMER]](function) - * [[_DELAY]], [[_LIMIT]] - -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TO.txt b/internal/help/TO.txt index 43543b614..f57bdf85f 100644 --- a/internal/help/TO.txt +++ b/internal/help/TO.txt @@ -24,4 +24,4 @@ * [[_SETALPHA]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/TROFF.txt b/internal/help/TROFF.txt deleted file mode 100644 index 92107c997..000000000 --- a/internal/help/TROFF.txt +++ /dev/null @@ -1,40 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The {{KW|TROFF}} statement turns off line number tracing. - - -{{PageSyntax}} -:<code>{{KW|TROFF}}</code> - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* When line number tracing is on, the line numbers of statements are output immediately before they are executed. -* Use {{KW|TRON}} to turn on line number tracing. -* Line number tracing only has an effect when programs are compiled with debugging code (BC.EXE /D). - - -{{PageExamples}} -:Demonstrates simple line number tracing: -{{CodeStart}}1 {{Cl|TRON}} -2 {{Cl|FOR...NEXT|FOR}} n% = 1 {{Cl|TO}} 3 -3 {{Cl|PRINT}} "inside loop" -4 {{Cl|FOR...NEXT|NEXT}} n% -5 {{Cl|TROFF}} -{{CodeEnd}} -{{OutputStart}}[2][3]inside loop -[4][3]inside loop -[4][3]inside loop -[4][5] -{{OutputEnd}} - - -{{PageSeeAlso}} -* {{KW|TRON}} - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/TRON.txt b/internal/help/TRON.txt deleted file mode 100644 index 8bcbdcff4..000000000 --- a/internal/help/TRON.txt +++ /dev/null @@ -1,40 +0,0 @@ -''This page is maintained for historic purposes. The keyword is not supported in QB64.'' - - ----- - - -The {{KW|TRON}} statement turns on line number tracing. - - -{{PageSyntax}} -:<code>{{KW|TRON}}</code> - - -{{PageDescription}} -*'''[[Keywords currently not supported by QB64|Not supported in QB64.]]''' -* When line number tracing is on, the line numbers of statements are output immediately before they are executed. -* Use {{KW|TROFF}} to turn off line number tracing. -* Line number tracing only has an effect when programs are compiled with debugging code (<tt>BC.EXE /D</tt>). - - -{{PageExamples}} -:Demonstrates simple line number tracing: -{{CodeStart}}1 {{Cl|TRON}} -2 {{Cl|FOR...NEXT|FOR}} n% = 1 {{Cl|TO}} 3 -3 {{Cl|PRINT}} "inside loop" -4 {{Cl|FOR...NEXT|NEXT}} n% -5 {{Cl|TROFF}} -{{CodeEnd}} -{{OutputStart}}[2][3]inside loop -[4][3]inside loop -[4][3]inside loop -[4][5] -{{OutputEnd}} - - -{{PageSeeAlso}} -* {{KW|TROFF}} - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/TYPE.txt b/internal/help/TYPE.txt index 94f6483d7..d19fac361 100644 --- a/internal/help/TYPE.txt +++ b/internal/help/TYPE.txt @@ -1,36 +1,47 @@ -'''TYPE''' definitions are used to create variables that can hold more than one variable type of a fixed byte length. +'''TYPE''' definitions are used to create variables that can hold more than one element. {{PageSyntax}} ::'''TYPE''' typename - -::. - -::. variable(s) AS type - -::. - +::: element-name1 AS type +::: element-name2 AS type +::: . +::: . +::: . +::: element-nameN AS type ::'''END TYPE''' +::'''TYPE''' typename +::: AS type element-list1 +::: AS type element-list2 +::: . +::: . +::: . +::: AS type element-listN +::'''END TYPE''' + + +{{PageDescription}} * Typename is an undefined type name holder as it can hold any variable types. -* TYPE definitions should be placed in the main module before the start of the program code execution. -* TYPE definitions CAN be placed in [[SUB]] or [[FUNCTION]] procedures using QB64 only! -* TYPE definitions cannot contain Array variables! Arrays can be [[DIM]]ensioned as a TYPE definition. -* TYPE definitions cannot be inside of another TYPE definition, but variables can be defined AS another type.(See Example 3) +* TYPE definitions are usually placed in the main module before the start of the program code execution. +* TYPE definitions cam also be placed in [[SUB]] or [[FUNCTION]] procedures. +* TYPE definitions cannot contain Array variables. Arrays can be [[DIM]]ensioned as a TYPE definition. +* TYPE definitions cannot be inside of another TYPE definition, but variables can be defined AS another type.(See Example 4) * TYPE definitions must be ended with [[END TYPE]]. -* A TYPE variable MUST be assigned to the type after it is defined. Array variables are allowed. +* A TYPE variable must be assigned to the type after it is defined. Array variables are allowed. * Type variables must be defined in every SUB or FUNCTION unless the type variable is [[DIM]]ensioned as [[SHARED]]. * Type variables use DOT variable names to read or write specific values. They do not use type suffixes as they can hold ANY variable type values! The name before the dot is the one you defined after the type definition and the name after is the variable name used inside of the TYPE. The name of the dimensioned type variable alone can be used to [[PUT]] # or [[GET]] # all of the data at once! * Once the TYPE variable is created you can find the record or byte size by using [[LEN]](typevariable). * TYPE definitions can also be placed in [[$INCLUDE]] .BI text files such as [[QB.BI]] is used by [[INTERRUPT]] and [[INTERRUPTX]]. -* '''[[_BIT]] is not currently supported in User Defined [[TYPE]]s'''. -* '''NOTE: Many Qbasic keyword variable names CAN be used with a [[STRING]] suffix($) ONLY! You CANNOT use them without the suffix, use a numerical suffix or use [[DIM]], [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]] statements!''' +* You can mix the '''element-name AS type''' syntax with the '''AS type element-list''' syntax in the same TYPE block. +* '''[[_BIT]] is not supported in User Defined [[TYPE]]s'''. {{DataTypeTable}} +{{PageExamples}} ''Example 1:'' Creating a mouse [[INTERRUPT]] TYPE definition. Each [[INTEGER]] value is 2 bytes. {{CodeStart}} TYPE RegType @@ -58,11 +69,20 @@ ::::Each TYPE variable is designated as the DOT variable's suffix. -'''* Note: Omitting variables in the RegType definition can change other program variable values!''' +'''* Note: Omitting variables in the RegType definition can change other program variable values.''' + + +''Example 2:'' Simplifying the TYPE from Example 1 using the alternative TYPE syntax. +{{CodeStart}} + TYPE RegType + AS INTEGER AX, BX, CX, DX, BP, SI, DI, Flags, FS, ES + END TYPE +{{CodeEnd}} +:''Explanation:'' By using '''AS type element-list''' you reduce typing in your TYPE definition, while achieving the same results. -''Example 2:'' Creating an addressbook database for a [[RANDOM]] file. +''Example 4:'' Creating an addressbook database for a [[RANDOM]] file. {{CodeStart}} TYPE ContactInfo First AS STRING * 10 @@ -78,17 +98,17 @@ DIM Contact AS ContactInfo 'create contact record variable for {{Cl|RANDOM}} file RecordLEN% = {{Cl|LEN}}(Contact) ' 118 bytes 'define values - Contact.First = "Ted" ' the fixed string length value will contain 7 extra spaces + Contact.First = "Ted" ' the fixed string length value will contain 7 extra spaces Contact.Zip = 15236 ' {{Cl|LONG}} value that can be used to search certain zip code numbers. {{Cl|PUT|PUT #}}1, 5,Contact 'place contact info into fifth record position {{CodeEnd}} :''Explanation:'' Use the assigned type variable to find the RANDOM record length which is 118 bytes. -::::The DOT variable names consist of Contact as the prefix: -''Example 3:'' Defining a TYPE variable as another variable type from a previous TYPE definition in QB64. + +''Example 4:'' Defining a TYPE variable as another variable type from a previous TYPE definition in QB64. {{CodeStart}} {{Cl|TYPE}} bar b {{Cl|AS}} {{Cl|STRING}} * 10 @@ -101,20 +121,20 @@ END TYPE {{Cl|DIM}} foobar {{Cl|AS}} foo 'create a variable to use the foo type foobar.a = 15.5 -foobar.c.b = "this is me" +foobar.c.b = "this is me" PRINT foobar.a, foobar.c.b {{Cl|END}} '' '' {{CodeEnd}} -''Example 4:'' A bitmap header information TYPE [[$INCLUDE]] File. +''Example 5:'' A bitmap header information TYPE [[$INCLUDE]] File. {{TextStart}} ' ******** 'Bitmap.BI can be included at start of program TYPE BMPHeaderType ' Description Bytes '''QB64''' - ID AS STRING * 2 ' File ID is "BM" 2 + ID AS STRING * 2 ' File ID is "BM" 2 Size AS LONG ' Size of the data file 4 Res1 AS INTEGER ' Reserved 1 should be 0 2 Res2 AS INTEGER ' Reserved 2 should be 0 2 @@ -141,7 +161,7 @@ PRINT foobar.a, foobar.c.b {{CodeEnd}} :''Explanation:'' Use one [[GET]] to read all of the header information from the start of the bitmap file opened AS [[BINARY]]. It reads all 54 bytes as [[STRING]], [[INTEGER]] and [[LONG]] type DOT variable values. -:NOTE: BPP returns 4(16 colors), 8(256 colors) or 24(16 million colors) bits per pixel in Qbasic. 24 bit can only be in greyscale. +:NOTE: BPP returns 4(16 colors), 8(256 colors) or 24(16 million colors) bits per pixel in QBasic. 24 bit can only be in greyscale. :Then use the DOT variable name values like this [[GET (graphics statement)]] after you load the bitmap image to the screen: @@ -152,7 +172,8 @@ PRINT foobar.a, foobar.c.b :The bitmap image is now stored in an {{KW|Arrays|array}} to {{KW|BSAVE}} to a file. The RGB color information follows the file header as [[ASCII]] character values read using {{KW|ASC}}. The color values could be indexed at the start of the Array with the image being offset to: index = NumberOfColors * 3. As determined by the {{KW|SCREEN (statement)|SCREEN}} mode used. In SCREEN 13(256 colors) the index would be 768. -''See also:'' +{{PageSeeAlso}} +* [[DIM]], [[REDIM]] * [[INTEGER]], [[SINGLE]], [[DOUBLE]] * [[LONG]], [[_INTEGER64]], [[_FLOAT]] * [[STRING]], [[_BYTE]], [[_BIT]], [[_OFFSET]] @@ -162,4 +183,4 @@ PRINT foobar.a, foobar.c.b * [[Bitmaps]], [[Creating_Icon_Bitmaps#Icon_to_Bitmap_Conversion_Function|Icon to Bitmap Conversion Function]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/UBOUND.txt b/internal/help/UBOUND.txt index 79d8ada35..8ff1a9a51 100644 --- a/internal/help/UBOUND.txt +++ b/internal/help/UBOUND.txt @@ -8,9 +8,9 @@ The {{KW|UBOUND}} function returns the largest valid index (upper bound) of an a {{PageDescription}} * {{Parameter|arrayName}} specifies the name of the array. -* {{Parameter|dimension%}} specifies the dimension number, starting with <code>1</code> for the first dimension. -** If omitted, {{Parameter|dimension%}} is assumed to be <code>1</code>. -** If {{Parameter|dimension%}} is less than <code>1</code> or is greater than the number of dimensions, a [[ERROR Codes|subscript out of range]] error occurs. +* {{Parameter|dimension%}} specifies the dimension number, starting with <code>1</code> for the first dimension. +** If omitted, {{Parameter|dimension%}} is assumed to be <code>1</code>. +** If {{Parameter|dimension%}} is less than <code>1</code> or is greater than the number of dimensions, a [[ERROR Codes|subscript out of range]] error occurs. * {{KW|UBOUND}}, along with {{KW|LBOUND}}, is used to determine the range of valid indexes of an array. @@ -32,4 +32,4 @@ The {{KW|UBOUND}} function returns the largest valid index (upper bound) of an a * {{KW|DIM}}, {{KW|COMMON}}, {{KW|STATIC}}, {{KW|SHARED}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/UCASE$.txt b/internal/help/UCASE$.txt index 5ba54a096..20359032b 100644 --- a/internal/help/UCASE$.txt +++ b/internal/help/UCASE$.txt @@ -1,4 +1,4 @@ -The [[UCASE$]] function outputs an all-uppercase version of a [[STRING]]. +The [[UCASE$]] function returns an all-uppercase version of a [[STRING]]. {{PageSyntax}} @@ -12,11 +12,11 @@ The [[UCASE$]] function outputs an all-uppercase version of a [[STRING]]. {{PageExamples}} ''Example:'' The following code guarantees that all letter key entries are capitalized: -{{CodeStart}}{{Cl|PRINT}} "Do you want to continue? (y/n)" +{{CodeStart}}{{Cl|PRINT}} "Do you want to continue? (y/n)" {{Cl|DO...LOOP|DO}} K$ = {{Cl|UCASE$}}({{Cl|INKEY$}}) -{{Cl|DO...LOOP|LOOP}} {{Cl|DO...LOOP|UNTIL}} K$ = "Y" {{Cl|OR}} K$ = "N" +{{Cl|DO...LOOP|LOOP}} {{Cl|DO...LOOP|UNTIL}} K$ = "Y" {{Cl|OR}} K$ = "N" {{CodeEnd}} @@ -26,4 +26,4 @@ The [[UCASE$]] function outputs an all-uppercase version of a [[STRING]]. * [[INPUT$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/UEVENT.txt b/internal/help/UEVENT.txt deleted file mode 100644 index b01a0247c..000000000 --- a/internal/help/UEVENT.txt +++ /dev/null @@ -1,20 +0,0 @@ -The '''UEVENT''' Statement uses ON, OFF or STOP to enable, turn off or suspend user event trapping. - - -{{PageSyntax}} -:::UEVENT {ON|STOP|OFF} - - -*'''[[Keywords currently not supported by QB64|Currently NOT supported in QB64!]]''' -* UEVENT ON enables user defined event-trapping as defined by the [[ON UEVENT]] statement. - -* UEVENT OFF disables the event-trapping routine. All events are ignored and are not remembered. - -* UEVENT STOP suspends the event-trapping routine. An event is remembered, and the event-trapping routine will be performed as soon as a UEVENT ON statement re-enables the trapping. - - -''See also:'' -* [[ON UEVENT]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/UNLOCK.txt b/internal/help/UNLOCK.txt index 374820697..9f9bae5d9 100644 --- a/internal/help/UNLOCK.txt +++ b/internal/help/UNLOCK.txt @@ -2,9 +2,9 @@ The {{KW|UNLOCK}} statement opens access to parts or all of a file to other prog {{PageSyntax}} -:<code>{{KW|UNLOCK}} [#]{{Parameter|fileNumber%}}</code> -:<code>{{KW|UNLOCK}} [#]{{Parameter|fileNumber%}}, {{Parameter|record&}}</code> -:<code>{{KW|UNLOCK}} [#]{{Parameter|fileNumber%}}, [{{Parameter|firstRecord&}}] TO {{Parameter|lastRecord&}}</code> +:<code>{{KW|UNLOCK}} [#]{{Parameter|fileNumber%}}</code> +:<code>{{KW|UNLOCK}} [#]{{Parameter|fileNumber%}}, {{Parameter|record&}}</code> +:<code>{{KW|UNLOCK}} [#]{{Parameter|fileNumber%}}, [{{Parameter|firstRecord&}}] TO {{Parameter|lastRecord&}}</code> {{PageDescription}} @@ -24,4 +24,4 @@ The {{KW|UNLOCK}} statement opens access to parts or all of a file to other prog * {{KW|ACCESS}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/UNTIL.txt b/internal/help/UNTIL.txt index 139e6fde4..3ef679023 100644 --- a/internal/help/UNTIL.txt +++ b/internal/help/UNTIL.txt @@ -24,4 +24,4 @@ The '''UNTIL''' condition is used in [[DO...LOOP]] exit verifications. *[[DO...LOOP]] *[[WHILE...WEND]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/Underscore.txt b/internal/help/Underscore.txt index b49a6d36e..0c9fb49db 100644 --- a/internal/help/Underscore.txt +++ b/internal/help/Underscore.txt @@ -1,23 +1,28 @@ An '''underscore''' can be used at the end of a line of code to continue a code line to the next line. +{{PageSyntax}} -''Usage:'' IF x + y > 500 AND x + y < 600 THEN_ +::IF x + y > 500 AND x + y < 600 THEN_ :::PRINT x + y -* '''Only QB64 keywords can use a leading underscore! Leading underscores are reserved for QB64 procedure names only!''' +{{PageDescription}} + * The underscore can be anywhere after the code on that line to continue the code to the next line in QB64. -* Multiple underscores can be used for the same line of code in QB64 only. +* Multiple underscores can be used for the same line of code. +* Comments cannot follow an underscore and are not continued on the next line if they end in an underscore. +* Modern QB64 keywords are preceded by an underscore, unless [[$NOPREFIX]] is used. Variables and user procedures names cannot start with a single underscore. +** Variables and user procedures names can be preceded by double underscores if necessary. * Underscores can be used in the middle of variable, sub procedure or [[CONST|constant]] names. -* '''The underscore is NOT compatible with Qbasic! The Qbasic IDE will remove or move code with leading underscores!''' -* In [[PRINT USING]] an underscore can precede a formatting character to display that character as text in a template [[STRING]]. +* In [[PRINT USING]] an underscore can precede a formatting character to display that character as literal text in a template [[STRING]]. -''See also:'' +{{PageSeeAlso}} * [[Colon]], [[Comma]], [[Semicolon]] * [[IF...THEN]] +* [[$NOPREFIX]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/VAL.txt b/internal/help/VAL.txt index 398bcae81..a15b1e91b 100644 --- a/internal/help/VAL.txt +++ b/internal/help/VAL.txt @@ -1,35 +1,37 @@ -The '''VAL''' Function returns the decimal numerical equivalent value of a [[STRING]] numerical value. +The [[VAL]] Function returns the decimal numerical equivalent value of a [[STRING]] numerical value. {{PageSyntax}} -:: value = VAL(string_value$) +:: value = [[VAL]](string_value$) -* VAL converts string numbers to numerical values including decimal point values and prefixed "[[&H]]" hexadecimal, "[[&O]]" octal. -* VAL conversion stops at non-numeric characters except for letter "D" or "E" exponential notation values. -:String values with "D" and "E" letters between numbers may be converted also! EX: '''{{text|VAL("9D4") <nowiki>=</nowiki> 90000|green}}''' -* If the first string character is not a number VAL returns 0. VAL may return erratic values with "%" or "&" starting characters. -* Hexadecimal [[HEX$]] string values with the "[[&H]]" prefix can be converted to a decimal value with digits 0 to 9 and letters A to F, like; dec = VAL("&H"+hexvar$). -* Octal [[OCT$]] string values with the "[[&O]]" prefix can be converted to a decimal value with digits from 0 to 7 only. +{{PageDescription}} +* VAL converts string numbers to numerical values including decimal point values and prefixed "[[&H]]" hexadecimal, "[[&O]]" octal. +* VAL conversion stops at non-numeric characters except for letter "D" or "E" exponential notation values. +:String values with "D" and "E" letters between numbers may be converted also! EX: '''{{text|VAL("9D4") <nowiki>=</nowiki> 90000|green}}''' +* If the first string character is not a number VAL returns 0. VAL may return erratic values with "%" or "&" starting characters. +* Hexadecimal [[HEX$]] string values with the "[[&H]]" prefix can be converted to a decimal value with digits 0 to 9 and letters A to F, like; dec = VAL("&H"+hexvar$). +* Octal [[OCT$]] string values with the "[[&O]]" prefix can be converted to a decimal value with digits from 0 to 7 only. * Presently VAL '''cannot''' convert QB64 binary [[&B]] prefixed strings from binary to decimal in '''QB64'''. * For character values of [[ASCII]] data use [[ASC]] to get the value. -* In QB64 use an [[INTEGER]] return variable to hold integer values returned by VAL [[HEX$|Hex]] strings: '''{{text|value% <nowiki>= VAL("&HFFFF") =</nowiki> -1|green}}''' +* In QB64 use an [[INTEGER]] return variable to hold integer values returned by VAL [[HEX$|Hex]] strings: '''{{text|value% <nowiki>= VAL("&HFFFF") =</nowiki> -1|green}}''' -''Example 1:'' Differences in values returned with Qbasic and QB64: +{{PageExamples}} +''Example 1:'' Differences in values returned with QBasic and QB64: {{CodeStart}} '' '' -{{Cl|PRINT}} {{Cl|VAL}}("{{Cl|&H}}") '203 in QB, 0 in QB64 -{{Cl|PRINT}} {{Cl|VAL}}("{{Cl|&H}}FFFF") ' -1 QB, 65535 in QB64 -{{Cl|PRINT}} {{Cl|VAL}}("{{Cl|&H}}FFFF&") '65535 in both '' '' +{{Cl|PRINT}} {{Cl|VAL}}("{{Cl|&H}}") '203 in QB, 0 in QB64 +{{Cl|PRINT}} {{Cl|VAL}}("{{Cl|&H}}FFFF") ' -1 QB, 65535 in QB64 +{{Cl|PRINT}} {{Cl|VAL}}("{{Cl|&H}}FFFF&") '65535 in both '' '' {{CodeEnd}} -:''Explanation:'' A quirk in Qbasic returned VAL values of 203 for "&" and "&H" that was never fixed until PDS(7.1). +:''Explanation:'' A quirk in QBasic returned VAL values of 203 for "&" and "&H" that was never fixed until PDS(7.1). ''Example 2:'' Converting a string with some number characters {{CodeStart}} '' '' - text$ = "1.23Hello" - number! = VAL(text$) - PRINT number! '' '' + text$ = "1.23Hello" + number! = {{Cl|VAL}}(text$) + {{Cl|PRINT}} number! '' '' {{CodeEnd}} {{OutputStart}} 1.23 @@ -38,37 +40,37 @@ The '''VAL''' Function returns the decimal numerical equivalent value of a [[STR ''Example 3:'' Converting literal and variable [[STRING|string]] values to numerical values. {{CodeStart}} '' '' - a$ = "33" - PRINT VAL("10") + VAL(a$) + 1 '' '' + a$ = "33" + {{Cl|PRINT}} {{Cl|VAL}}("10") + {{Cl|VAL}}(a$) + 1 '' '' {{CodeEnd}} {{OutputStart}} 44 {{OutputEnd}} :''Explanation:'' 10 + 33 + 1 = 44, the strings were converted to values. -:You have to convert the string to values in order to use them in a mathematical expression also since mixing strings with numbers isn't allowed. VAL will stop at a text letter so VAL("123G56) would return 123. +:You have to convert the string to values in order to use them in a mathematical expression also since mixing strings with numbers isn't allowed. VAL will stop at a text letter so VAL("123G56) would return 123. -:If VAL wasn't used the program would break with an error, as you can't add the value 1 to a string, if the 1 was a string ("1") then the program would return "10331", but now since we used VAL, the numbers were added as they should. +:If VAL wasn't used the program would break with an error, as you can't add the value 1 to a string, if the 1 was a string ("1") then the program would return "10331", but now since we used VAL, the numbers were added as they should. ''Example 4:'' Converting a hexadecimal value to decimal value using HEX$ with VAL. {{CodeStart}} decnumber% = 96 - hexnumber$ = "&H" + {{Cl|HEX$}}(decnumber%) 'convert decimal value to hex and add hex prefix - PRINT hexnumber$ + hexnumber$ = "&H" + {{Cl|HEX$}}(decnumber%) 'convert decimal value to hex and add hex prefix + {{Cl|PRINT}} hexnumber$ decimal% = {{Cl|VAL}}(hexnumber$) - PRINT decimal% '' '' + {{Cl|PRINT}} decimal% '' '' {{CodeEnd}} {{OutputStart}} &H60 96 {{OutputEnd}} -: ''Explanation:'' [[HEX$]] converts a decimal number to hexadecimal, but [[VAL]] will only recognize it as a valid value with the "&H" prefix. Especially since hexadecimal numbers can use "A" through "F" in them. Create a converter function from this code! +: ''Explanation:'' [[HEX$]] converts a decimal number to hexadecimal, but [[VAL]] will only recognize it as a valid value with the "&H" prefix. Especially since hexadecimal numbers can use "A" through "F" in them. Create a converter function from this code! -''See also:'' +{{PageSeeAlso}} * [[STR$]], [[HEX$]] * [[OCT$]], [[ASC]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/VARPTR$.txt b/internal/help/VARPTR$.txt index c25190113..eff6bfe37 100644 --- a/internal/help/VARPTR$.txt +++ b/internal/help/VARPTR$.txt @@ -7,24 +7,24 @@ * Can use any [[STRING|string]] or numerical variable reference '''existing''' in memory. * If the parameter value is from an array it must be dimensioned already. Cannot use fixed length string arrays. -* When using '''numerical''' ''variable'' values in [[DRAW]] strings, use an = sign after the function letter. "TA=" + VARPTR$(''variable%'') -* Always use variable X as in "X" + VARPTR$(''string_variable$'') to [[DRAW]] or [[PLAY]] another [[STRING]] value. -* DRAW relative Moves use a + or - before the equal sign. EX: DRAW "M+=" + VARPTR$(x%) + ",-=" + VARPTR$(y%) +* When using '''numerical''' ''variable'' values in [[DRAW]] strings, use an = sign after the function letter. "TA=" + VARPTR$(''variable%'') +* Always use variable X as in "X" + VARPTR$(''string_variable$'') to [[DRAW]] or [[PLAY]] another [[STRING]] value. +* DRAW relative Moves use a + or - before the equal sign. EX: DRAW "M+=" + VARPTR$(x%) + ",-=" + VARPTR$(y%) ''Example 1:'' How VARPTR$ reads consecutive values from memory. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 2 {{Cl|CLS}} -WIND$ = "r10 d7 l10 u7 br20" 'create draw string to be read by function -ROW$ = "x"+{{Cl|VARPTR$}}(WIND$)+"x"+{{Cl|VARPTR$}}(WIND$)+"x"+{{Cl|VARPTR$}}(WIND$)+" x"+{{Cl|VARPTR$}}(WIND$)+"bl80 bd11" +WIND$ = "r10 d7 l10 u7 br20" 'create draw string to be read by function +ROW$ = "x"+{{Cl|VARPTR$}}(WIND$)+"x"+{{Cl|VARPTR$}}(WIND$)+"x"+{{Cl|VARPTR$}}(WIND$)+" x"+{{Cl|VARPTR$}}(WIND$)+"bl80 bd11" {{Cl|LINE}} (100, 50)-(200, 160), , B -{{Cl|DRAW}} "bm 115,52" +{{Cl|DRAW}} "bm 115,52" {{Cl|FOR...NEXT|FOR}} I = 1 {{Cl|TO}} 10 - {{Cl|DRAW}} "x" + {{Cl|VARPTR$}}(ROW$) + {{Cl|DRAW}} "x" + {{Cl|VARPTR$}}(ROW$) {{Cl|NEXT}} '' '' {{CodeEnd}} -:''NOTE:'' '''GWBasic''' allows '''semicolons''' to be used in the ROW$ definition, but Qbasic and '''QB64''' MUST use '''+''' concatenation. +:''NOTE:'' '''GWBasic''' allows '''semicolons''' to be used in the ROW$ definition, but QBasic and '''QB64''' MUST use '''+''' concatenation. ''Example 2:'' Using the function to change a Turn Angle value using DRAW. @@ -34,20 +34,20 @@ ROW$ = "x"+{{Cl|VARPTR$}}(WIND$)+"x"+{{Cl|VARPTR$}}(WIND$)+& {{Cl|FOR...NEXT|FOR}} i = 0 {{Cl|TO}} 360 {{Cl|STEP}} 30 'mark clock hours every 30 degrees angle$ = {{Cl|STR$}}(i) 'change degree value i to a string {{Cl|PSET}} (175, 250), 6 'clock center - {{Cl|DRAW}} "TA" + angle$ + "BU100" 'add string angle to Turn Angle and draw blind up + {{Cl|DRAW}} "TA" + angle$ + "BU100" 'add string angle to Turn Angle and draw blind up {{Cl|CIRCLE}} {{Cl|STEP}}(0, 0), 5, 12 'place a circle at end of Up line - {{Cl|DRAW}} "P9, 12" + {{Cl|DRAW}} "P9, 12" {{Cl|_DELAY}} .5 {{Cl|NEXT}} 'Demonstrates how VARPTR$ is used with TA= {{Cl|DO}}: sec$ = {{Cl|RIGHT$}}({{Cl|TIME$}}, 2) 'get current second value from time degree = {{Cl|VAL}}(sec$) * -6 'use a negative value to Turn Angle clockwise {{Cl|PSET}} (175, 250), 9 'clock center - {{Cl|DRAW}} "TA=" + {{Cl|VARPTR$}}(degree) + "U90" 'VARPTR$ value requires = in DRAW - {{Cl|DO}}: {{Cl|_LIMIT}} 30: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|RIGHT$}}({{Cl|TIME$}}, 2) <> sec$ 'loop until seconds value changes - {{Cl|IF}} {{Cl|INKEY$}} <> "" {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|DRAW}} "TA=" + {{Cl|VARPTR$}}(degree) + "U90" 'VARPTR$ value requires = in DRAW + {{Cl|DO}}: {{Cl|_LIMIT}} 30: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|RIGHT$}}({{Cl|TIME$}}, 2) <> sec$ 'loop until seconds value changes + {{Cl|IF}} {{Cl|INKEY$}} <> "" {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|PSET}} (175, 250), 0 - {{Cl|DRAW}} "TA=" + {{Cl|VARPTR$}}(degree) + "U90" 'erase previous second hand draw + {{Cl|DRAW}} "TA=" + {{Cl|VARPTR$}}(degree) + "U90" 'erase previous second hand draw {{Cl|LOOP}} '' '' {{CodeEnd}} :''Explanation:'' When the VARPTR$ value is used in DRAW, '''=''' MUST be used to pass the value to the draw! Negative Turn Angle values move clockwise and each second moves the hand 6 degrees. '''TA''' uses actual degree angles starting at 0 or noon. @@ -59,12 +59,12 @@ ROW$ = "x"+{{Cl|VARPTR$}}(WIND$)+"x"+{{Cl|VARPTR$}}(WIND$)+& {{Cl|PSET}} (200, 200), 12 {{Cl|CIRCLE}} {{Cl|STEP}}(0, 0), 5, 10 A = 100: B = 100 -{{Cl|DRAW}} "M+=" + {{Cl|VARPTR$}}(A) + ",-=" + {{Cl|VARPTR$}}(B) +{{Cl|DRAW}} "M+=" + {{Cl|VARPTR$}}(A) + ",-=" + {{Cl|VARPTR$}}(B) {{Cl|PSET}} (400, 400), 10 {{Cl|CIRCLE}} {{Cl|STEP}}(0, 0), 5, 12 C = 100: D = -100 -{{Cl|DRAW}} "M+" + {{Cl|STR$}}(C) + "," + {{Cl|STR$}}(D) 'must add + for positive relative moves +{{Cl|DRAW}} "M+" + {{Cl|STR$}}(C) + "," + {{Cl|STR$}}(D) 'must add + for positive relative moves {{Cl|END}} '' '' {{CodeEnd}} : ''Explanation:'' A negative STR$ value will move the DRAW relatively where VARPTR$ won't without the sign before the equal. @@ -75,4 +75,4 @@ C = 100: D = -100 * [[DRAW]], [[PLAY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/VARPTR.txt b/internal/help/VARPTR.txt index 1cf07abfa..ba7fc0ef4 100644 --- a/internal/help/VARPTR.txt +++ b/internal/help/VARPTR.txt @@ -8,7 +8,7 @@ The '''VARPTR''' function returns an [[INTEGER]] value that is the offset part o * If variablename is not defined before VARPTR or [[VARSEG]] is called, the variable is created and it's address is returned. * Reference index is used to set the offset address of an array index, not necessarily the lowest index. * When a string variable, VARPTR returns the offset address location of the first byte of the string. -* Because many Qbasic statements change the locations of variables in memory, use the values returned by VARPTR and VARSEG immediately after the functions are used! +* Because many QBasic statements change the locations of variables in memory, use the values returned by VARPTR and VARSEG immediately after the functions are used! * Integer array sizes are limited to 32767 elements when using [[VARPTR]] in QB and '''QB64'''!. Create a larger array using [[_BYTE]]. Example: [[DIM]] [[SHARED]] Memory (65535) AS [[_UNSIGNED]] [[_BYTE]] * '''Warning: DEF SEG, VARSEG , VARPTR, PEEK or POKE access QB64's emulated 16 bit conventional memory block!''' : '''It is highly recommended that QB64's [[_MEM]] memory system be used to avoid running out of memory.''' @@ -21,4 +21,4 @@ The '''VARPTR''' function returns an [[INTEGER]] value that is the offset part o * [[POKE]], [[PEEK]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/VARSEG.txt b/internal/help/VARSEG.txt index e76498164..5f345b2ef 100644 --- a/internal/help/VARSEG.txt +++ b/internal/help/VARSEG.txt @@ -9,7 +9,7 @@ The '''VARSEG''' function returns an [[INTEGER]] value that is the segment part * If variablename is not defined before [[VARPTR]] or VARSEG is called, the variable is created and its address is returned. * The start index is the lowest index of an array variable when used. * When a string variable, VARSEG returns the segment location address of the first byte of the string. -* Because many Qbasic statements change the locations of variables in memory, use the values returned by VARPTR and VARSEG immediately after the functions are used! +* Because many QBasic statements change the locations of variables in memory, use the values returned by VARPTR and VARSEG immediately after the functions are used! * Integer array sizes are limited to 32767 elements when using [[VARSEG]] in QB and '''QB64'''!. Create a larger array using [[_BYTE]]. Example: [[DIM]] [[SHARED]] Memory (65535) AS [[_UNSIGNED]] [[_BYTE]] * '''Warning: DEF SEG, VARSEG , VARPTR, PEEK or POKE access QB64's emulated 16 bit conventional memory block!''' : '''It is highly recommended that QB64's [[_MEM]] memory system be used to avoid running out of memory.''' @@ -22,4 +22,4 @@ The '''VARSEG''' function returns an [[INTEGER]] value that is the segment part * [[POKE]], [[PEEK]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/VIEW.txt b/internal/help/VIEW.txt index 974f605dc..79653c031 100644 --- a/internal/help/VIEW.txt +++ b/internal/help/VIEW.txt @@ -39,4 +39,4 @@ The '''VIEW''' statement creates a graphics view port area by defining the coord * [[SCREEN]], [[CLS]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/VIEW_PRINT.txt b/internal/help/VIEW_PRINT.txt index 7e60e359a..40cd5e86f 100644 --- a/internal/help/VIEW_PRINT.txt +++ b/internal/help/VIEW_PRINT.txt @@ -5,7 +5,7 @@ The [[VIEW PRINT]] statement defines the boundaries of a text viewport {{KW|PRIN : '''VIEW PRINT''' [{{Parameter|topRow%}} '''TO''' {{Parameter|bottomRow%}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|topRow%}} and {{Parameter|bottomRow%}} specify the upper and lower rows of the text viewport. * If {{Parameter|topRow%}} and {{Parameter|bottomRow%}} are not specified when first used, the text viewport is defined to be the entire screen. @@ -22,30 +22,30 @@ The [[VIEW PRINT]] statement defines the boundaries of a text viewport {{KW|PRIN ''Example:'' Demonstrates how text scrolls within the text viewport. {{CodeStart}}' clear the entire screen and show the boundaries of the new text viewport {{Cl|CLS}} -{{Cl|PRINT}} "Start at top..." -{{Cl|LOCATE}} 9, 1: {{Cl|PRINT}} "<- row 9 ->" -{{Cl|LOCATE}} 21, 1: {{Cl|PRINT}} "<- row 21 ->" +{{Cl|PRINT}} "Start at top..." +{{Cl|LOCATE}} 9, 1: {{Cl|PRINT}} "<- row 9 ->" +{{Cl|LOCATE}} 21, 1: {{Cl|PRINT}} "<- row 21 ->" ' define new text viewport boundaries {{Cl|VIEW PRINT}} 10 {{Cl|TO}} 20 ' print some text that will scroll the text viewport {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 15 - {{Cl|PRINT}} "This is viewport line:"; i + {{Cl|PRINT}} "This is viewport line:"; i {{Cl|SLEEP}} 1 {{Cl|NEXT}} i ' clear only the active text viewport with CLS or CLS 2 {{Cl|CLS}} -{{Cl|PRINT}} "After clearing, the cursor location is reset to the top of the text viewport." +{{Cl|PRINT}} "After clearing, the cursor location is reset to the top of the text viewport." ' disable the viewport {{Cl|VIEW PRINT}} {{Cl|_DELAY}} 4 -{{Cl|LOCATE}} 20, 20: {{Cl|PRINT}} "Print anywhere after view port is disabled" +{{Cl|LOCATE}} 20, 20: {{Cl|PRINT}} "Print anywhere after view port is disabled" {{Cl|_DELAY}} 4 {{Cl|CLS}} -{{Cl|PRINT}} "Back to top left after CLS!" '' '' +{{Cl|PRINT}} "Back to top left after CLS!" '' '' {{CodeEnd}} : ''Note:'' The bottom row of the VIEW PRINT port can be used only when located or prints end with semicolons. @@ -57,4 +57,4 @@ The [[VIEW PRINT]] statement defines the boundaries of a text viewport {{KW|PRIN * [[LOCATE]], [[PRINT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/WAIT.txt b/internal/help/WAIT.txt index f98d27592..d87a5a260 100644 --- a/internal/help/WAIT.txt +++ b/internal/help/WAIT.txt @@ -7,8 +7,8 @@ The {{KW|WAIT}} statement waits until the value read from an I/O port has certai {{PageDescription}} * The {{KW|WAIT}} statement reads a value from {{Parameter|port%}} using {{KW|INP}}. -* If {{Parameter|xorMask%}} is specified, the value is {{KW|XOR}}'d with {{Parameter|xorMask%}}. It has the effect of "toggle these bits". -* The value is then {{KW|AND}}'d with {{Parameter|andMask%}}. It has the effect of "check if these bits are set". +* If {{Parameter|xorMask%}} is specified, the value is {{KW|XOR}}'d with {{Parameter|xorMask%}}. It has the effect of "toggle these bits". +* The value is then {{KW|AND}}'d with {{Parameter|andMask%}}. It has the effect of "check if these bits are set". * If the final value is non-zero, {{KW|WAIT}} returns. Otherwise, another value is read from {{Parameter|port%}} and checked again. * The {{KW|WAIT}} statement returns immediately if {{Parameter|port%}} is not supported. @@ -28,4 +28,4 @@ WAIT &H3DA, 8, 8 ' finishes whenever the screen is being written to * [[Scancodes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/WEND.txt b/internal/help/WEND.txt index 8717af5da..c90fff2da 100644 --- a/internal/help/WEND.txt +++ b/internal/help/WEND.txt @@ -1 +1 @@ -#REDIRECT [[WHILE...WEND]] \ No newline at end of file +#REDIRECT [[WHILE...WEND]] diff --git a/internal/help/WHILE...WEND.txt b/internal/help/WHILE...WEND.txt index 2c9957d23..7ac013b05 100644 --- a/internal/help/WHILE...WEND.txt +++ b/internal/help/WHILE...WEND.txt @@ -12,7 +12,8 @@ The {{KW|WHILE...WEND}} statement is used to repeat a block of statements while {{PageDescription}} * {{Parameter|condition}} is a numeric expression used to determine if the loop will execute. * {{Parameter|statements}} will execute repeatedly while {{Parameter|condition}} is a non-zero value. -* [[EXIT]] WHILE can be used for emergency exits from the loop in QB64 only. +* [[EXIT WHILE]] can be used for emergency exits from the loop. +* Use [[_CONTINUE]] to skip the remaining lines in the iteration without leaving the loop. * A [[DO...LOOP]] can use the same DO WHILE condition to get the same results. * WHILE loops only run if the WHILE condition is True. @@ -24,18 +25,18 @@ The {{KW|WHILE...WEND}} statement is used to repeat a block of statements while ''Example 1:'' Reading an entire file. Example assumes the program has a [[OPEN|file opened]] as #1 {{CodeStart}} '' '' -{{Cl|OPEN}} "Readme.txt" FOR {{Cl|INPUT (file mode)|INPUT}} AS #1 +{{Cl|OPEN}} "Readme.txt" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT}} {{Cl|AS}} #1 {{Cl|WHILE...WEND|WHILE}} {{Cl|NOT}} {{Cl|EOF}}(1) {{Cl|_LIMIT}} 1 'limit line prints to one per second {{Cl|LINE INPUT (file statement)|LINE INPUT #}}1, text$ - IF {{Cl|INKEY$}} = {{Cl|CHR$}}(27) THEN {{Cl|EXIT}} {{Cl|WHILE}} 'ESC key exits + {{Cl|IF}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) {{Cl|THEN}} {{Cl|EXIT WHILE}} 'ESC key exits {{Cl|PRINT}} text$ {{Cl|WEND}} '' '' {{CodeEnd}} ''Example 2:'' Clearing the keyboard buffer. {{CodeStart}} '' '' -{{Cl|WHILE}} {{Cl|INKEY$}} <> "" : {{Cl|WEND}} '' '' +{{Cl|WHILE}} {{Cl|INKEY$}} <> "" : {{Cl|WEND}} '' '' {{CodeEnd}} @@ -46,4 +47,4 @@ The {{KW|WHILE...WEND}} statement is used to repeat a block of statements while * [[_CONTINUE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/WHILE.txt b/internal/help/WHILE.txt index e9fc0b247..dd29fefd0 100644 --- a/internal/help/WHILE.txt +++ b/internal/help/WHILE.txt @@ -19,10 +19,10 @@ The '''WHILE''' condition is used in [[WHILE...WEND]] or [[DO...LOOP]] loops to {{Template:RelationalTable}} -''See also:'' +{{PageSeeAlso}} *[[UNTIL]] *[[DO...LOOP]] *[[WHILE...WEND]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/WIDTH.txt b/internal/help/WIDTH.txt index fecdcc191..f078d91e8 100644 --- a/internal/help/WIDTH.txt +++ b/internal/help/WIDTH.txt @@ -1,37 +1,30 @@ The {{KW|WIDTH}} statement changes the text dimensions of certain {{KW|SCREEN (statement)|SCREEN}} modes. -''SCREEN'' {{PageSyntax}} +== ''SCREEN'' Syntax == ::: '''WIDTH''' ['''{{Parameter|columns%}}'''][''', {{Parameter|rows%}}'''] -''File'' {{PageSyntax}} +== ''File'' Syntax == ::: '''WIDTH''' {'''''file_number''''' | '''''device'''''}, '''''columnwidth%''''' -''LPRINT'' {{PageSyntax}} (not supported in QB64): -::: '''WIDTH LPRINT ''columnwidth%''''' - -{{Parameters}} +{{PageParameters}} * When parameters are not specified, columns defaults to 80 with 25 (30 in [[SCREEN]] 11 or 12) rows. ''Usage:'' * WIDTH should be used AFTER a program SCREEN statement! It does not affect screen graphics or graphic coordinates. -* Affects SCREEN 0 Window size and alters the text block size of each screen mode listed in Qbasic: +* Affects SCREEN 0 Window size and alters the text block size of each screen mode listed in QBasic: :* SCREEN 0 can use 80 or 40 columns and 25, 43 or 50 rows. Default is WIDTH 80, 25. :* SCREEN 9 can use 80 columns and 25 or 43(not supported on many monitors) rows. Default WIDTH 80, 25 fullscreen. :* SCREEN 10 can use 80 columns and 25 or 43 rows. Default is WIDTH 80, 25 fullscreen. :* SCREEN 11 and 12 can use 80 columns and 30 or 60 rows. Default is WIDTH 80, 30 fullscreen. * '''QB64''' can alter all [[SCREEN]] mode widths and heights which may also affect text or [[_FONT]] block sizes. +* If a [[$CONSOLE]] window is active and you set [[_DEST]] [[_CONSOLE]], WIDTH will affect the console output window size (Windows only). * '''Note:''' WIDTH changes may change screen color settings in QBasic. Use [[PALETTE]] to reset to default colors. *'''[[Keywords currently not supported by QB64|WIDTH LPRINT is not supported in QB64.]]''' -''Qbasic or QuickBasic:'' -* Devices opened with an [[OPEN]] statement include LPT1 and CONS in Qbasic ONLY. -* Only the column width(default 80) can be specified in the file or [[LPRINT]] syntax. - - {{PageSeeAlso}} * [[SCREEN]], [[COLOR]], [[OUT]] * [[_PRINTWIDTH]] {{text|(function)}} @@ -39,4 +32,4 @@ The {{KW|WIDTH}} statement changes the text dimensions of certain {{KW|SCREEN (s * [[_FONT]], [[_FONTWIDTH]], [[_FONTHEIGHT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/WINDOW.txt b/internal/help/WINDOW.txt index 17469f8c5..6ac89a1ef 100644 --- a/internal/help/WINDOW.txt +++ b/internal/help/WINDOW.txt @@ -1,54 +1,38 @@ -The [[WINDOW]] graphics statement defines the coordinate dimensions of the current graphics view port or closes it. +The '''WINDOW''' command scales the graphics coordinate system of the current [[_DEST]] image, optionally inverting the direction of the vertical axis. Any coordinates used in drawing commands made to the image are scaled such that the image seems have have the dimensions requested. +== Syntax == +::: '''WINDOW''' [ [ '''SCREEN'''] (''x1!'', ''y1!'') - (''x2!'', ''y2!'')] -{{PageSyntax}}''' -: '''WINDOW''' [[SCREEN] (''column1'', ''row1'')-(''column2'', ''row2'')] +Where (''x1!'', ''y1!'')-(''x2!'', ''y2!'') specifies the new dimensions of the image to scale to. Non-integer values may be used. +Using '''WINDOW''' with no parameters reverts the effect of any previous calls to it. +== Details == +When a command such as [[LINE]], [[CIRCLE]] or [[_PUTIMAGE]] needs a position in an image specified, it is given as a combination of x (horizontal) and y (vertical) coordinates. Usually these values are measured as pixels from the top-left origin. The '''WINDOW''' command changes the way these values are measured. This is best illustrated with an example: +<source lang="qbasic"> +SCREEN _NEWIMAGE(600, 600, 32) 'Create an image that has 600 pixels in x and y directions and display on screen +WINDOW SCREEN (0, 0)-(6, 6) +</source> +The coordinates of the image now run from 0 to 6 in both the x and y directions. The centre of the screen is now referred to as (3, 3) and the bottom-right corner of the screen is (6, 6). The image has not actually just changed size or the number of pixels, just the way the program refers to positions on the image. Despite this example, there is no requirement for the image or scaling coordinates to be square; each direction is scaled independently, and can result in commands such as LINE (0, 0)-(10, 10), , BF drawing a rectangle instead of a square. -{{Parameters}} -* If no statement parameters are used, the previous WINDOW view port area is disabled. -* The SCREEN option inverts Cartesian row values to increase from negative to 0 to positive. Columns unchanged. -* If the SCREEN option is not used, rows use the Cartesian system with highest row at top to lowest row at bottom. -* Optional coordinate values redefine the [[SINGLE]] negative or positive port dimension values when desired. +If the '''SCREEN''' part is omitted, the y axis is inverted. Thus the origin is now at the bottom-left, and y coordinates increase as you move up the screen. Such a system may be more familiar to mathematically-oriented programmers. +'''WINDOW''' does not change any of the content already on the image; it only modifies coordinates used while it is in effect. The scaling is relative to the original image, so successive invocations do not compound upon each other. -{{PageDescription}} -* The statement allows a program to create a custom graphic coordinate system independent of the [[SCREEN]] mode used. -* WINDOW dimensions can be greater than the [[SCREEN]] mode size to create larger images for pictures. -* A [[VIEW]] statement can change the viewport area. -* All subsequent graphics statements will use the new coordinate system. -* Use [[CLS]] or [[CLS|CLS 1]] to clear the active WINDOW view port area. -* [[RUN]] or a [[SCREEN (statement)|SCREEN]] statement will also disable the window viewport. -* Note: '''QB64''' can create a custom sized window using [[_NEWIMAGE]]. -* '''Note: QB64 [[RUN]] statements will not close [[VIEW PRINT]], [[VIEW]] or [[WINDOW]] view ports presently!''' +Although '''WINDOW''' affects all coordinates, it does not affect all graphics operations entirely. [[_PUTIMAGE]], if only given one destination coordinate, will not scale or stretch the image being drawn. [[CIRCLE]] will scale its radius such that it matches the horizontal axis. This means it always draws perfect circles even if the scaling of the two axes are not the same, but the radius measured against the vertical scale may not be correct. +The location of the graphics cursor (used to calculate relative positions for STEP) is not affected. It will remain in the same position on the image, but the relative coordinates that are specified with STEP will be scaled as described above. -''Example:'' Using a WINDOW to amplify circle sizes. [[PMAP]] finds the corresponding WINDOW co-ordinates. +== Examples == +Demonstrate a circle's radius only matching the scaling in the horizontal direction by comparing against a box: {{CodeStart}} -{{Cl|SCREEN}} 12 -{{Cl|WINDOW}} (0, 0)-(10, 10) 'uses Cartesian row co-ordinates -{{Cl|PRINT}} "Click mouse to place a circle. Hit enter for next color." -{{Cl|FOR...NEXT|FOR}} clr = 1 {{Cl|TO}} 15 - {{Cl|DO}} - {{Cl|DO}} - {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} - x! = {{Cl|PMAP}}({{Cl|_MOUSEX}}, 2) ' Convert mouse screen co-ordinates to window co-ordinates. - y! = {{Cl|PMAP}}({{Cl|_MOUSEY}}, 3) - {{Cl|CIRCLE}} (x!, y!), .2, clr - {{Cl|PAINT}} {{Cl|STEP}}(0, 0), clr - {{Cl|END IF}} - {{Cl|LOOP}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}} - {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(13) -{{Cl|NEXT}} '' '' +SCREEN _NEWIMAGE(640, 480, 32) 'Not a square image +WINDOW SCREEN (0, 0)-(10, 10) 'SCREEN keeps the axis direction the same +LINE (4, 4)-(6, 6), _RGB32(255, 0, 0), BF 'Red square centred on (5, 5); will be stretched into a rectangle +CIRCLE (5, 5), 1, _RGB32(0, 255, 0) 'Green circle at (5, 5) with radius 1 {{CodeEnd}} -{{PageSeeAlso}} +== See also == * [[PMAP]] -* [[VIEW]] {{text|(graphics view port)}} -* [[VIEW PRINT]] {{text|(text view port)}} -* [[_NEWIMAGE]], [[_LOADIMAGE]] -* [https://en.wikipedia.org/wiki/Cartesian_coordinate_system Cartesian coordinate system] - - -{{PageNavigation}} \ No newline at end of file +* [[VIEW]] +* [[VIEW PRINT]] diff --git a/internal/help/WRITE.txt b/internal/help/WRITE.txt index b72237268..a17e34b32 100644 --- a/internal/help/WRITE.txt +++ b/internal/help/WRITE.txt @@ -15,7 +15,7 @@ The {{KW|WRITE}} statement writes a [[comma]]-separated list of values to the sc ''Example:'' Comparing WRITE to the same PRINT statement. {{CodeStart}}a% = 123 -b$ = "Hello" +b$ = "Hello" c! = 3.1415 {{Cl|PRINT}} a%, b$, c! 'commas display tab spaced data @@ -23,7 +23,7 @@ c! = 3.1415 {{CodeEnd}} {{OutputStart}} 123        Hello      3.1415 -123,"Hello",3.1415 '' '' +123,"Hello",3.1415 '' '' {{OutputEnd}} @@ -34,4 +34,4 @@ c! = 3.1415 * [[PRINT USING]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/WRITE_(file_statement).txt b/internal/help/WRITE_(file_statement).txt index 125cc0d2b..512ae62ee 100644 --- a/internal/help/WRITE_(file_statement).txt +++ b/internal/help/WRITE_(file_statement).txt @@ -19,8 +19,8 @@ The [[WRITE (file statement)|WRITE #]] file statement writes a list of comma sep ''Example:'' Writes new data to a text file sequentially and reads it back to the program screen. {{CodeStart}} '' '' -filename$ = "testfile.dat" -x = 1: y = 2: z$ = "Three" +filename$ = "testfile.dat" +x = 1: y = 2: z$ = "Three" {{Cl|OPEN}} filename$ {{Cl|FOR...NEXT|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #1 'opens and clears an existing file or creates new empty file @@ -28,7 +28,7 @@ x = 1: y = 2: z$ = "Three" {{Cl|CLOSE}} #1 -{{Cl|PRINT}} "File created with data. Press a key!" +{{Cl|PRINT}} "File created with data. Press a key!" K$ = {{Cl|INPUT$}}(1) 'press a key @@ -44,10 +44,10 @@ K$ = {{Cl|INPUT$}}(1) 'press a key {{Cl|END}} '' '' {{CodeEnd}} : ''File content:'' [[WRITE]] string values will include quotation marks, but they are not required to read the file. -{{TextStart}}1,2,"Three" '' '' {{TextEnd}} +{{TextStart}}1,2,"Three" '' '' {{TextEnd}} : ''Screen output:'' [[PRINT]] string values will not display enclosing quotes. [[WRITE]] screen displays will. {{OutputStart}} 1 2 Three -1,2,"Three" +1,2,"Three" {{OutputEnd}} @@ -58,4 +58,4 @@ K$ = {{Cl|INPUT$}}(1) 'press a key * [[SQL Client]] {{text|(library)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/XOR.txt b/internal/help/XOR.txt index 564493398..563f59082 100644 --- a/internal/help/XOR.txt +++ b/internal/help/XOR.txt @@ -1,50 +1 @@ -The '''XOR''' numerical operator returns the bitwise exclusive [[OR]] value where only bits that differ return a bit value. - - -{{PageSyntax}} -::: result% = ''value1%'' [[XOR]] ''value2%'' - - -* Given two [[INTEGER|whole integer]] type ''values'' XOR returns an integer with the property that each bit returns: -:* a bit value of 0 if both of the corresponding bit values compared are off or on. -:* a bit value of 1 if one of the two compared bit values is on and the other is off. -* XOR can be used to turn off bits that are on or turn on bits that are off, like toggling the bit values. -* Byte (8 bit) values can be from 0 to 255. 0 = all bits off. 255 = all bits on. - - -{{Template:LogicalTruthTable}} - - -''Example 1:'' Comparing the results of XOR, AND and OR value comparisons on one byte number values up to 255. -{{WhiteStart}} - - ' bit# 76543210 also the exponent of 2 value on - ' -------- - a% = 233 ' binary 11101001 values used - b% = 111 ' binary 01101111 - ' -------- - result1% = a% XOR b% ' 10000110 binary ''Result1% ='' 134 - - result2% = a% AND b% ' 01101001 binary ''Result2% ='' 105 - - result3% = a% OR b% ' 11101111 binary ''Result3% ='' 239 - -{{WhiteEnd}} -:''Explanation:'' Look down the columns to see how the bits are changed. The three values returned by XOR, AND and OR are relational. If you add the values returned by XOR(134) and AND(105) the result is the value of the OR operation, 239. - - -''Example 2:'' Using XOR to turn a parallel port's data register bits on or off -{{CodeStart}} -address% = 888 -ByteValue% = {{Cl|INP}}(address%) -{{Cl|OUT}} address%, ByteValue% {{Cl|XOR}} 7 -{{CodeEnd}} -:''Explanation:'' Only the first 3 Bits are affected. If on then turned off. If off then turned on. Each time the OUT statement above is used, the bit values alternate. That is because the value of 7 compares the bit's status to an on only value. - - -''See also:'' -* [[AND]], [[OR]] {{text|(logical operators)}} -* [[Binary]], [[Boolean]] - - -{{PageNavigation}} \ No newline at end of file +#REDIRECT [[Bitwise Operators]] diff --git a/internal/help/^.txt b/internal/help/^.txt index 02d8a2e21..c6694aff3 100644 --- a/internal/help/^.txt +++ b/internal/help/^.txt @@ -1,17 +1,16 @@ -The '''^''' operation raises a numerical value to an exponential value expressing how many times the value is multiplied by itself. +The [[^]] operation raises a numerical value to an exponential value expressing how many times the value is multiplied by itself. {{PageSyntax}} -::'' return_value = number '''^''' {whole_exponent|(fractional_exponent)} +:return_value = number [[^]] {whole_exponent|(fractional_exponent)} {{PageDescription}} - * The number value can be any type literal or variable numerical value. * Exponents can be any positive or negative integer or fractional numerical value inside of parenthesis brackets. * If the exponent is zero, the value returned is 1. * Fractional(or decimal point) exponents MUST be enclosed in '''() brackets''' and will return the fractional exponential root of a value. -* Exponential operations are done first in the Qbasic order of operations. +* Exponential operations are done first in the QBasic order of operations. * The square root of a number can be returned by the [[SQR]] function or by using an exponent of (1 [[/]] 2). Brackets required. * Values returned may be expressed using exponential or [[Scientific notation]] using '''E''' for SINGLE or '''D''' for DOUBLE precision. * WARNING: Exponential returns may exceed numerical type limitations and create an [[ERROR Codes|overflow error]]! @@ -21,7 +20,7 @@ The '''^''' operation raises a numerical value to an exponential value expressin {{CodeStart}} - {{Cl|INPUT}} "Enter a number to calculate it's cube root: ", num$ + {{Cl|INPUT}} "Enter a number to calculate it's cube root: ", num$ number! = {{Cl|VAL}}(num$) 'gets single number value cuberoot# = number! {{Cl|^}} (1 {{Cl|/}} 3) PRINT cuberoot# 'double type variable for accuracy @@ -38,12 +37,8 @@ Enter a number to calculate it's cube root: 144 {{OutputEnd}} +{{PageSeeAlso}} +* [[SQR]], [[Mathematical Operations]] -''See also:'' - -[[SQR]], [[Mathematical Operations]] - - - -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ACCEPTFILEDROP.txt b/internal/help/_ACCEPTFILEDROP.txt new file mode 100644 index 000000000..c0d6805fd --- /dev/null +++ b/internal/help/_ACCEPTFILEDROP.txt @@ -0,0 +1,59 @@ +{{DISPLAYTITLE:_ACCEPTFILEDROP}} +The [[_ACCEPTFILEDROP]] statement prepares a program window to receive files dropped from Windows Explorer in a drag/drop operation. + + +{{PageSyntax}} +: [[_ACCEPTFILEDROP]] [{ON|OFF}] + + +{{PageDescription}} +* Calling the statement with no parameters turns drag/dropping ON. +* To know when files have been dropped into your program's window, check that [[_TOTALDROPPEDFILES]] is greater than 0. +* Use [[_DROPPEDFILE]] to read the list, either sequentially or by index. +* If using [[_DROPPEDFILE]] with an index, you must call [[_FINISHDROP]] after you finish working with the list. +* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]]'''. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +''Example:'' Accepting files dragged from a folder and processing the list received sequentially. +{{CodeStart}} +{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(128, 25, 0) + +{{Cl|_ACCEPTFILEDROP}} 'enables drag/drop functionality +{{Cl|PRINT}} "Drag files from a folder and drop them in this window..." + +{{Cl|DO}} + {{Cl|IF}} {{Cl|_TOTALDROPPEDFILES}} {{Cl|THEN}} + {{Cl|FOR}} i = 1 {{Cl|TO}} {{Cl|_TOTALDROPPEDFILES}} + a$ = {{Cl|_DROPPEDFILE}} 'reads the list sequentially; when the result is empty ("") it means the list is over + {{Cl|COLOR}} 15 + {{Cl|PRINT}} i, + {{Cl|IF}} {{Cl|_FILEEXISTS}}(a$) {{Cl|THEN}} + {{Cl|COLOR}} 2: {{Cl|PRINT}} "file", + {{Cl|ELSE}} + {{Cl|IF}} {{Cl|_DIREXISTS}}(a$) {{Cl|THEN}} + {{Cl|COLOR}} 3: {{Cl|PRINT}} "folder", + {{Cl|ELSE}} + {{Cl|COLOR}} 4: {{Cl|PRINT}} "not found", 'highly unlikely, but who knows? + {{Cl|END IF}} + {{Cl|END IF}} + {{Cl|COLOR}} 15 + {{Cl|PRINT}} a$ + {{Cl|NEXT}} + {{Cl|END IF}} + + {{Cl|_LIMIT}} 30 +{{Cl|LOOP}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_TOTALDROPPEDFILES]], [[_DROPPEDFILE]], [[_FINISHDROP]] +* [[_FILEEXISTS]], [[_DIREXISTS]] + + +{{PageNavigation}} diff --git a/internal/help/_ACOS.txt b/internal/help/_ACOS.txt index a2159bbec..4b3268fe8 100644 --- a/internal/help/_ACOS.txt +++ b/internal/help/_ACOS.txt @@ -6,13 +6,13 @@ The [[_ACOS]] function returns the angle measured in radians based on an input [ : {{Parameter|radian_angle!}} = [[_ACOS]]({{Parameter|cosine_value!}}) {{PageDescription}} -* The ''cosine_value!'' must be measured >= -1 and <= 1, or an error will be generated. (PRINT _ACOS(1.2) would give the result of -1.#IND, which is basically QB64's way of telling us that the number doesn't exist, much like 1/0 would.) +* The ''cosine_value!'' must be measured >= -1 and <= 1, or an error will be generated. (PRINT _ACOS(1.2) would give the result of -1.#IND, which is basically QB64's way of telling us that the number doesn't exist, much like 1/0 would.) * ARCCOSINE is the inverse function of [[COS]]ine, which lets us turn a [[COS]]ine value back into an angle. * Note: Due to rounding with floating point math, the _ACOS may not always give a perfect match for the COS angle which generated this. You can reduce the number of rounding errors by increasing the precision of your calculations by using [[DOUBLE]] or [[_FLOAT]] precision variables instead of [[SINGLE]]. -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -20,17 +20,17 @@ The [[_ACOS]] function returns the angle measured in radians based on an input [ {{CodeStart}} '' '' {{Cl|DEFDBL}} A-Z -{{Cl|INPUT}} "Give me an Angle (in Degrees) => "; Angle +{{Cl|INPUT}} "Give me an Angle (in Degrees) => "; Angle {{Cl|PRINT}} C = {{Cl|COS}}({{Cl|_D2R}}(Angle)) '_D2R is the command to convert Degrees to Radians, which is what COS expects -{{Cl|PRINT}} "The COSINE of the Angle is: "; C +{{Cl|PRINT}} "The COSINE of the Angle is: "; C A = {{Cl|_ACOS}}(C) -{{Cl|PRINT}} "The ACOS of "; C; " is: "; A -{{Cl|PRINT}} "Notice, A is the Angle in Radians. If we convert it to degrees, the value is "; {{Cl|_R2D}}(A) '' '' +{{Cl|PRINT}} "The ACOS of "; C; " is: "; A +{{Cl|PRINT}} "Notice, A is the Angle in Radians. If we convert it to degrees, the value is "; {{Cl|_R2D}}(A) '' '' {{CodeEnd}} {{small|Example by SMcNeill}} {{OutputStart}} -Give me an Angle (in Degrees) => ? 60 +Give me an Angle (in Degrees) => ? 60 The COSINE of the Angle is: .5000000000000001 The ACOS of .5000000000000001 is: 1.047197551196598 @@ -51,4 +51,4 @@ Notice, A is the Angle in Radians. If we convert it to degrees, we discover the *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ACOSH.txt b/internal/help/_ACOSH.txt index 4a4c968e6..94375bd41 100644 --- a/internal/help/_ACOSH.txt +++ b/internal/help/_ACOSH.txt @@ -18,4 +18,4 @@ The [[_ACOSH]] returns the nonnegative arc hyperbolic cosine of {{Parameter|x!}} *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ALLOWFULLSCREEN.txt b/internal/help/_ALLOWFULLSCREEN.txt new file mode 100644 index 000000000..33c761975 --- /dev/null +++ b/internal/help/_ALLOWFULLSCREEN.txt @@ -0,0 +1,76 @@ +{{DISPLAYTITLE:_ALLOWFULLSCREEN}} +The [[_ALLOWFULLSCREEN]] statement allows setting the behavior of the ALT+ENTER combo. + + +{{PageSyntax}} +: [[_ALLOWFULLSCREEN]] [{_STRETCH|_SQUAREPIXELS|OFF|_ALL}][, {_SMOOTH|OFF|_ALL}] + + +{{PageDescription}} +* Calling the statement with no parameters enables all four possible full screen modes (and is the default state when a program is started): both [[_STRETCH]] ([[_SMOOTH]] and [[_OFF]]) and [[_SQUAREPIXELS]] ([[_SMOOTH]] and [[_OFF]]). +** Using [[_ALLOWFULLSCREEN]] [[_ALL]], [[_ALL]] has the same effect. +* [[_ALLOWFULLSCREEN]] only affects the behavior of ALT+ENTER. The [[_FULLSCREEN]] statement is not bound by [[_ALLOWFULLSCREEN]]'s settings so all modes can be accessed programmatically. +* To limit just the mode but allow both _SMOOTH + _OFF antialiasing modes, pass just the first parameter: ''Example:'' [[_ALLOWFULLSCREEN]] _SQUAREPIXELS +* To allow multiple modes with _SMOOTH or _OFF as default, pass just the second parameter. ''Example:'' [[_ALLOWFULLSCREEN]] , _SMOOTH +* Any possible permutation of the parameters is allowed. +* With [[_ALLOWFULLSCREEN]] _OFF you can trap Alt+Enter manually in your program and reassign it. See example 2 below. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +''Example 1:'' Allowing only one fullscreen mode with square pixels and no antialiasing: +{{CodeStart}} +{{Cl|_ALLOWFULLSCREEN}} {{Cl|_SQUAREPIXELS}}, {{Cl|OFF}} +{{CodeEnd}} + + +''Example 2:'' Disabling _FULLSCREEN with Alt+ENTER so the combo can be manually trapped: +{{CodeStart}} +{{Cl|DO}} + {{Cl|CLS}} + + {{Cl|LOCATE}} 7 + {{Cl|PRINT}} " - Press ALT+ENTER to test trapping the combo..." + {{Cl|PRINT}} " _ Press SPACEBAR to allow fullscreen again..." + + k& = {{Cl|_KEYHIT}} + + {{Cl|IF}} k& = 13 {{Cl|THEN}} + {{Cl|IF}} {{Cl|_KEYDOWN}}(100307) {{Cl|OR}} {{Cl|_KEYDOWN}}(100308) {{Cl|THEN}} + altEnter = altEnter + 1 + {{Cl|END IF}} + {{Cl|ELSEIF}} k& = 32 {{Cl|THEN}} + fullscreenEnabled = {{Cl|NOT}} fullscreenEnabled + {{Cl|END IF}} + + {{Cl|LOCATE}} 14 + {{Cl|IF}} fullscreenEnabled {{Cl|THEN}} + {{Cl|_ALLOWFULLSCREEN}} {{Cl|_ALL}}, {{Cl|_ALL}} + altEnter = 0 + {{Cl|PRINT}} "_ALLOWFULLSCREEN _ALL, _ALL" + + {{Cl|LOCATE}} 18 + {{Cl|PRINT}} "ALT+ENTER will trigger all four fullscreen modes now." + {{Cl|ELSE}} + {{Cl|_ALLOWFULLSCREEN}} {{Cl|OFF}} + {{Cl|PRINT}} "_ALLOWFULLSCREEN OFF" + {{Cl|END IF}} + + {{Cl|IF}} altEnter {{Cl|THEN}} + {{Cl|LOCATE}} 18 + {{Cl|PRINT}} "ALT+ENTER manually trapped"; altEnter; "times." + {{Cl|END IF}} + + {{Cl|_DISPLAY}} + {{Cl|_LIMIT}} 30 +{{Cl|LOOP}} +{{CodeEnd}} + +{{PageSeeAlso}} +* [[_FULLSCREEN]], [[_SMOOTH (function)]] + + +{{PageNavigation}} diff --git a/internal/help/_ALPHA.txt b/internal/help/_ALPHA.txt index 62b6c9354..c77b086dc 100644 --- a/internal/help/_ALPHA.txt +++ b/internal/help/_ALPHA.txt @@ -23,10 +23,10 @@ The [[_ALPHA]] function returns the alpha channel transparency level of a color {{Cl|SCREEN}} 13 clr~& = {{Cl|_RGBA}}(255, 0, 255, 192) 'returns closest palette color attribute -{{Cl|PRINT}} "Color:"; clr~& +{{Cl|PRINT}} "Color:"; clr~& {{Cl|COLOR}} clr~& -{{Cl|PRINT}} "Alpha:"; {{Cl|_ALPHA}}(clr~&) +{{Cl|PRINT}} "Alpha:"; {{Cl|_ALPHA}}(clr~&) {{Cl|END}} {{CodeEnd}} @@ -40,11 +40,11 @@ clr~& = {{Cl|_RGBA}}(255, 0, 255, 192) 'returns closest palette color attrib {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) BG& = {{Cl|POINT}}(1, 1) -{{Cl|PRINT}} "Alpha ="; {{Cl|_ALPHA}}(BG&); "Press a key to use CLS!" +{{Cl|PRINT}} "Alpha ="; {{Cl|_ALPHA}}(BG&); "Press a key to use CLS!" K$ = INPUT$(1) {{Cl|CLS}} BG& = {{Cl|POINT}}(1, 1) -{{Cl|PRINT}} "CLS Alpha ="; {{Cl|_ALPHA}}(BG&) '' '' +{{Cl|PRINT}} "CLS Alpha ="; {{Cl|_ALPHA}}(BG&) '' '' {{CodeEnd}} {{OutputStart}}CLS Alpha = 255 {{OutputEnd}} : ''Explanation:'' Set the ALPHA value to 255 using [[CLS]] to make the background opaque when overlaying pages. @@ -59,4 +59,4 @@ BG& = {{Cl|POINT}}(1, 1) * [[CLS]], [[COLOR]], [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ALPHA32.txt b/internal/help/_ALPHA32.txt index caa1650d8..6576cddef 100644 --- a/internal/help/_ALPHA32.txt +++ b/internal/help/_ALPHA32.txt @@ -5,7 +5,7 @@ The [[_ALPHA32]] function returns the alpha transparency level of a 32 bit color {{PageSyntax}} :{{Parameter|alpha&}} = [[_ALPHA32]]({{Parameter|color32~&}})''' -{{Parameters}} +{{PageParameters}} * {{Parameter|color32&}} is the [[_UNSIGNED]] [[LONG]] 32 bit color value used to retrieve the alpha level. ** Color values that are set as a [[_CLEARCOLOR]] always have an alpha level of 0 (transparent). ** [[_SETALPHA]] can set any alpha level from 0 (or fully transparent) to 255 (or opaque). @@ -24,10 +24,10 @@ The [[_ALPHA32]] function returns the alpha transparency level of a 32 bit color {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) clr~& = {{Cl|_RGBA}}(255, 0, 255, 192) -{{Cl|PRINT}} "Color:"; clr~& +{{Cl|PRINT}} "Color:"; clr~& {{Cl|COLOR}} clr~& -{{Cl|PRINT}} "Alpha32:"; {{Cl|_ALPHA32}}(clr~&) +{{Cl|PRINT}} "Alpha32:"; {{Cl|_ALPHA32}}(clr~&) {{Cl|END}} '' '' {{CodeEnd}} @@ -46,4 +46,4 @@ clr~& = {{Cl|_RGBA}}(255, 0, 255, 192) * [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ASIN.txt b/internal/help/_ASIN.txt index b3c85cd3c..df8657713 100644 --- a/internal/help/_ASIN.txt +++ b/internal/help/_ASIN.txt @@ -7,13 +7,13 @@ The [[_ASIN]] function returns the angle measured in radians based on an input [ {{PageDescription}} -* The {{Parameter|sine_value!}} must be measured >= -1 and <= 1, or else it will generate a return value of '''-1.#IND''', which is basically QB64's way of telling us that the number doesn't exist. +* The {{Parameter|sine_value!}} must be measured >= -1 and <= 1, or else it will generate a return value of '''-1.#IND''', which is basically QB64's way of telling us that the number doesn't exist. * ARCSINE is the inverse function of [[SIN]]e, and turns a [[SIN]]e value back into an angle. * Note: Due to rounding with floating point math, the [[_ASIN]] may not always give a perfect match for the [[SIN]] angle which generated this. You can reduce the number of rounding errors by increasing the precision of your calculations by using [[DOUBLE]] or [[_FLOAT]] precision variables instead of [[SINGLE]]. -==Availability== -* '''Version 1.000 and up''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -21,17 +21,17 @@ The [[_ASIN]] function returns the angle measured in radians based on an input [ {{CodeStart}} '' '' {{Cl|DEFDBL}} A-Z -{{Cl|INPUT}} "Give me an Angle (in Degrees) => "; Angle +{{Cl|INPUT}} "Give me an Angle (in Degrees) => "; Angle {{Cl|PRINT}} C = {{Cl|SIN}}({{Cl|_D2R}}(Angle)) '_D2R is the command to convert Degrees to Radians, which is what SIN expects -{{Cl|PRINT}} "The SINE of the Angle is: "; C +{{Cl|PRINT}} "The SINE of the Angle is: "; C A = {{Cl|_ASIN}}(C) -{{Cl|PRINT}} "The ASIN of "; C; " is: "; A -{{Cl|PRINT}} "Notice, A is the Angle in Radians. If we convert it to degrees, the value is "; {{Cl|_R2D}}(A) '' '' +{{Cl|PRINT}} "The ASIN of "; C; " is: "; A +{{Cl|PRINT}} "Notice, A is the Angle in Radians. If we convert it to degrees, the value is "; {{Cl|_R2D}}(A) '' '' {{CodeEnd}} {{small|Example by SMcNeill}} {{OutputStart}} -Give me an Angle (in Degrees) => ? 60 +Give me an Angle (in Degrees) => ? 60 The SINE of the Angle is: .8660254037844386 The ACOS of .8660254037844386 is: 1.047197551196598 @@ -52,4 +52,4 @@ Notice, A is the Angle in Radians. If we convert it to degrees, we discover the *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ASINH.txt b/internal/help/_ASINH.txt index fd089883e..abf3b6234 100644 --- a/internal/help/_ASINH.txt +++ b/internal/help/_ASINH.txt @@ -1,5 +1,5 @@ {{DISPLAYTITLE:_ASINH}} -The [[_ASINH]] returns the arc hyperbolic sine of x, expressed in radians. +The [[_ASINH]] function returns the arc hyperbolic sine of x, expressed in radians. {{PageSyntax}} @@ -19,4 +19,4 @@ The [[_ASINH]] returns the arc hyperbolic sine of x, expressed in radians. *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ASSERT.txt b/internal/help/_ASSERT.txt new file mode 100644 index 000000000..43bb9e546 --- /dev/null +++ b/internal/help/_ASSERT.txt @@ -0,0 +1,47 @@ +{{DISPLAYTITLE:_ASSERT}} +The [[_ASSERT]] statement can be used to perform tests in code that's in development, for debugging purposes. + + +{{PageSyntax}} +:[[_ASSERT]] {{Parameter|condition}}[, {{Parameter|errorMessage$}}] + + +{{PageDescription}} +* {{Parameter|condition}} is the condition that must be met in order to consider the _ASSERT valid. +* Optional {{Parameter|errorMessage$}} is the message to be displayed in the console window if [[$ASSERTS|$ASSERTS:CONSOLE]] is used. +* If the condition is not met (that is, if it evaluates to 0), an error occurs ("_ASSERT failed on line #") and program execution stops. + + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example:'' Adding test checks for parameter inputs in a function. +{{CodeStart}} +{{Cl|$ASSERTS}}:CONSOLE + +{{Cl|DO}} + a = {{Cl|INT}}({{Cl|RND}} * 10) + b$ = myFunc$(a) + {{Cl|PRINT}} a, , b$ + {{Cl|_LIMIT}} 3 +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|_KEYHIT}} + +{{Cl|FUNCTION}} myFunc$ (value {{Cl|AS}} {{Cl|SINGLE}}) + {{Cl|_ASSERT}} value > 0, "Value cannot be zero" + {{Cl|_ASSERT}} value <= 10, "Value cannot exceed 10" + + {{Cl|IF}} value > 1 {{Cl|THEN}} plural$ = "s" + myFunc$ = {{Cl|STRING$}}(value, "*") + {{Cl|STR$}}(value) + " star" + plural$ + " :-)" +{{Cl|END}} {{Cl|FUNCTION}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[$ASSERTS]] +* [[$CHECKING]] +* [[Relational Operations]] + + +{{PageNavigation}} diff --git a/internal/help/_ATAN2.txt b/internal/help/_ATAN2.txt index 31fac599d..49ebd0de5 100644 --- a/internal/help/_ATAN2.txt +++ b/internal/help/_ATAN2.txt @@ -6,19 +6,19 @@ The [[_ATAN2]] function returns the radian angle between the positive x-axis of : {{Parameter|angle!}} = [[_ATAN2]]({{Parameter|y}}, {{Parameter|x}}) -{{Parameters}} +{{PageParameters}} * {{Parameter|y}} is the vertical axis position (row) as a positive, zero or negative floating point value. * {{Parameter|x}} is the horizontal axis position (column) as a positive, zero or negative floating point value. {{PageDescription}} -* The [[DOUBLE]] radian angle returned is '''positive''' for upper row values where y > 0. -::* _ATAN2(y, x) = [[ATN]](y# / x#) when x > 0 +* The [[DOUBLE]] radian angle returned is '''positive''' for upper row values where y > 0. +::* _ATAN2(y, x) = [[ATN]](y# / x#) when x > 0 ::* _ATAN2(y, x) = [[ATN]](y# / x#) + [[_PI]] when x < 0 ::* _ATAN2(y, x) = [[_PI]] / 2 when x = 0 -* The [[DOUBLE]] radian angle returned is 0 when x > 0 and [[_PI]] when x < 0 where y = 0 +* The [[DOUBLE]] radian angle returned is 0 when x > 0 and [[_PI]] when x < 0 where y = 0 * The [[DOUBLE]] radian angle returned is '''negative''' for lower row values where y < 0. -::* _ATAN2(y, x) = [[ATN]](y# / x#) when x > 0 +::* _ATAN2(y, x) = [[ATN]](y# / x#) when x > 0 ::* _ATAN2(y, x) = [[ATN]](y# / x#) - [[_PI]] when x < 0 ::* _ATAN2(y, x) = -[[_PI]] / 2 when x = 0 * _ATAN2(0, 0) is undefined and the function returns 0 instead of a division error. @@ -35,4 +35,4 @@ The [[_ATAN2]] function returns the radian angle between the positive x-axis of * [https://en.wikipedia.org/wiki/Atan2 Atan2 reference] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ATANH.txt b/internal/help/_ATANH.txt index d3d417eba..3a43b6ea6 100644 --- a/internal/help/_ATANH.txt +++ b/internal/help/_ATANH.txt @@ -19,4 +19,4 @@ The [[_ATANH]] returns the arc hyperbolic tangent of {{Parameter|x!}}, expressed *[[Mathematical_Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_AUTODISPLAY.txt b/internal/help/_AUTODISPLAY.txt index 2dce81426..489f9531c 100644 --- a/internal/help/_AUTODISPLAY.txt +++ b/internal/help/_AUTODISPLAY.txt @@ -17,4 +17,4 @@ The [[_AUTODISPLAY]] statement enables the automatic display of the screen image * [[_AUTODISPLAY (function)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_AUTODISPLAY_(function).txt b/internal/help/_AUTODISPLAY_(function).txt new file mode 100644 index 000000000..917c37ad5 --- /dev/null +++ b/internal/help/_AUTODISPLAY_(function).txt @@ -0,0 +1,23 @@ +{{DISPLAYTITLE:_AUTODISPLAY (function)}} +The [[_AUTODISPLAY (function)|_AUTODISPLAY]] function returns the current display mode as true (-1) if automatic or false (0) if disabled using [[_DISPLAY]]. + + +{{PageSyntax}} +: {{Parameter|displayStatus%%}} = [[_AUTODISPLAY (function)|_AUTODISPLAY]] + + +{{PageDescription}} +* The function returns true (-1) if [[_AUTODISPLAY]] is enabled. This is the default state and indicates that every screen change (text or graphics) is displayed immediately to the user. +* If [[_DISPLAY]] is used, then [[_AUTODISPLAY (function)|_AUTODISPLAY]] returns 0, to indicate that screen changes (text or graphics) are only displayed per request, by calling [[_DISPLAY]] again to refresh the screen. + + +{{PageAvailability}} +* Build 20170924/69 and up. + + +{{PageSeeAlso}} +* [[_AUTODISPLAY]] +* [[_DISPLAY]] + + +{{PageNavigation}} diff --git a/internal/help/_AXIS.txt b/internal/help/_AXIS.txt index f86ae407e..0075a9a02 100644 --- a/internal/help/_AXIS.txt +++ b/internal/help/_AXIS.txt @@ -16,13 +16,13 @@ The [[_AXIS]] function returns the relative position of a specified axis number ''Example:'' Reading multiple controller device buttons, axis and wheels. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|_DEVICES}} - {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) + {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) {{Cl|NEXT}} {{Cl|DO...LOOP|DO}} d& = {{Cl|_DEVICEINPUT}} {{Cl|IF...THEN|IF}} d& {{Cl|THEN}} ' the device number cannot be zero! - {{Cl|PRINT}} "Found"; d&; + {{Cl|PRINT}} "Found"; d&; {{Cl|FOR...NEXT|FOR}} b = 1 {{Cl|TO}} {{Cl|_LASTBUTTON}}(d&) {{Cl|PRINT}} {{Cl|_BUTTONCHANGE}}(b); {{Cl|_BUTTON}}(b); {{Cl|NEXT}} @@ -49,4 +49,4 @@ The [[_AXIS]] function returns the relative position of a specified axis number * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BACKGROUNDCOLOR.txt b/internal/help/_BACKGROUNDCOLOR.txt index f6edbb51f..884657cd9 100644 --- a/internal/help/_BACKGROUNDCOLOR.txt +++ b/internal/help/_BACKGROUNDCOLOR.txt @@ -45,4 +45,4 @@ BG% = {{Cl|_BACKGROUNDCOLOR}} * [[Windows_Libraries#Color_Dialog_Box|Color Dialog Box]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BIT.txt b/internal/help/_BIT.txt index c54c4735e..b0f10c89e 100644 --- a/internal/help/_BIT.txt +++ b/internal/help/_BIT.txt @@ -3,9 +3,9 @@ The [[_BIT]] datatype can return only values of 0 (bit off) and -1 (bit on). {{PageSyntax}} -: [[DIM]] {{Parameter|variable}} [[AS]] [[[_UNSIGNED]]] [[_BIT]] [* {{Parameter|numberofbits}}] +: [[DIM]] {{Parameter|variable}} [[AS]] [{{KW|_UNSIGNED}}] [[_BIT]] [* {{Parameter|numberofbits}}] -: [[_DEFINE]] {{Parameter|Letter}}[{{Parameter|-Range}}|,...] [[AS]] [[[_UNSIGNED]]] [[_BIT]] [* {{Parameter|numberofbits}}] +: [[_DEFINE]] {{Parameter|Letter}}[{{Parameter|-Range}}|,...] [[AS]] [{{KW|_UNSIGNED}}] [[_BIT]] [* {{Parameter|numberofbits}}] {{PageDescription}} @@ -17,29 +17,29 @@ The [[_BIT]] datatype can return only values of 0 (bit off) and -1 (bit on). * '''[[Keywords_currently_not_supported_by_QB64|_BIT is not supported in User Defined TYPES.]]''' Use a [[_BYTE]] and assign up to 8 bit values as shown below. -*'''Suffix Symbols''' The [[_BIT]] type suffix used is below the grave accent (`), usually located under the tilde (~) key, not an apostrophe! Foreign keyboards may not have the ` key. Try [[CHR$]](96). +*'''Suffix Symbols''' The [[_BIT]] type suffix used is below the grave accent (`), usually located under the tilde (~) key (not an apostrophe). Foreign keyboards may not have the ` key. Try Alt+96 in the IDE. -:You can define a bit on-the-fly by adding a ` after the variable, like this; variable` = -1 +:You can define a bit on-the-fly by adding a ` after the variable, like this: {{InlineCode}}variable` = -1{{InlineCodeEnd}} -:If you want a unsigned bit you can define it on-the-fly by adding ~` instead, like this; variable~` = 1 +:If you want an unsigned bit you can define it on-the-fly by adding ~` instead, like this: {{InlineCode}}variable~` = 1{{InlineCodeEnd}} -:You can set the number of bits on the fly by just adding that number - this defines it as being two bits; variable`2 = -1 +:You can set the number of bits on the fly by just adding that number - this defines it as being two bits: {{InlineCode}}variable`2 = -1{{InlineCodeEnd}} -<center>'''[[_BIT|BITS]]'''</center> +<center>'''[[_BIT|BITS]]'''</center> * The '''MSB''' is the most significant(largest) bit value and '''LSB''' is the least significant bit of a binary or register memory address value. The order in which the bits are read determines the binary or decimal byte value. There are two common ways to read a byte: -:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. -:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. +:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. +:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. {{WhiteStart}} '''Offset or Position: 0 1 2 3 4 5 6 7 Example: 11110000''' ---------------------------------- -------- '''Big-Endian Bit On Value:''' 128 64 32 16 8 4 2 1 240 '''Little-Endian Bit On Value:''' 1 2 4 8 16 32 64 128 15 {{WhiteEnd}} -::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. +::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. -<center>'''[[_BYTE|BYTES]]'''</center> +<center>'''[[_BYTE|BYTES]]'''</center> * [[INTEGER]] values consist of 2 bytes called the '''HI''' and '''LO''' bytes. Anytime that the number of binary digits is a multiple of 16 (2bytes, 4 bytes, etc.) and the HI byte's MSB is on(1), the value returned will be negative. Even with [[SINGLE]] or [[DOUBLE]] values! {{WhiteStart}} '''16 BIT INTEGER OR REGISTER''' '''AH (High Byte Bits) AL (Low Byte Bits)''' @@ -53,7 +53,7 @@ The [[_BIT]] datatype can return only values of 0 (bit off) and -1 (bit on). {{PageExamples}} -''Example:'' Shifting bits in a value. +''Example:'' Shifting bits in a value in QB64 versions prior to 1.3 (you can use [[_SHL]] and [[_SHR]] starting with version 1.3). {{CodeStart}} '' '' n = 24 Shift = 3 @@ -80,6 +80,7 @@ RShift = {{Cl|INT}}(n / (2 ^ RS)) {{PageSeeAlso}} * [[&B]] (binary), [[_BYTE]] +* [[_SHL]], [[_SHR]] * [[_DEFINE]], [[_UNSIGNED]] * [[DIM]] * [[Binary]], [[Boolean]] @@ -87,4 +88,4 @@ RShift = {{Cl|INT}}(n / (2 ^ RS)) * [[Converting Bytes to Bits]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BLEND.txt b/internal/help/_BLEND.txt index 8fca011e6..6a4076c06 100644 --- a/internal/help/_BLEND.txt +++ b/internal/help/_BLEND.txt @@ -54,83 +54,83 @@ m& = {{Cl|POINT}}(303, 302) mso-yfti-tbllook:480;mso-padding-alt:0cm 5.4pt 0cm 5.4pt;mso-border-insideh: - .5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'> + .5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'> - <tr style='mso-yfti-irow:0;mso-yfti-lastrow:yes'> + <tr style='mso-yfti-irow:0;mso-yfti-lastrow:yes'> <td width=118 valign=top style='width:88.55pt;border:solid windowtext 1.0pt; - mso-border-alt:solid windowtext .5pt;background:#FF8000;padding:0cm 5.4pt 0cm 5.4pt'> + mso-border-alt:solid windowtext .5pt;background:#FF8000;padding:0cm 5.4pt 0cm 5.4pt'> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>&nbsp;</span></p> + mso-fareast-font-family:"Times New Roman"'>&nbsp;</span></p> - </td> + </td> <td width=181 valign=top style='width:136.05pt;border:solid windowtext 1.0pt; border-left:none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt: - solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt'> + solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt'> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>_RGBA(255,128,0,128)</span></p> + mso-fareast-font-family:"Times New Roman"'>_RGBA(255,128,0,128)</span></p> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>   onto</span></p> + mso-fareast-font-family:"Times New Roman"'>   onto</span></p> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>     _RGBA(0,0,255,64)</span></p> + mso-fareast-font-family:"Times New Roman"'>     _RGBA(0,0,255,64)</span></p> - </td> + </td> <td width=120 valign=top style='width:90.0pt;border:solid windowtext 1.0pt; border-left:none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt: - solid windowtext .5pt;background:blue;padding:0cm 5.4pt 0cm 5.4pt'> + solid windowtext .5pt;background:blue;padding:0cm 5.4pt 0cm 5.4pt'> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>&nbsp;</span></p> + mso-fareast-font-family:"Times New Roman"'>&nbsp;</span></p> - </td> + </td> <td width=180 valign=top style='width:135.0pt;border:solid windowtext 1.0pt; border-left:none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt: - solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt'> + solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt'> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>results in</span></p> + mso-fareast-font-family:"Times New Roman"'>results in</span></p> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>  _RGBA(95,48,64,128)</span></p> + mso-fareast-font-family:"Times New Roman"'>  _RGBA(95,48,64,128)</span></p> - </td> + </td> <td width=120 valign=top style='width:90.0pt;border:solid windowtext 1.0pt; border-left:none;mso-border-left-alt:solid windowtext .5pt;mso-border-alt: - solid windowtext .5pt;background:#603080;padding:0cm 5.4pt 0cm 5.4pt'> + solid windowtext .5pt;background:#603080;padding:0cm 5.4pt 0cm 5.4pt'> - <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; + <p class=MsoNormal><span lang=EN-AU style='font-size:10.0pt;font-family:"Courier New"; - mso-fareast-font-family:"Times New Roman"'>&nbsp;</span></p> + mso-fareast-font-family:"Times New Roman"'>&nbsp;</span></p> - </td> + </td> - </tr> + </tr> -</table> +</table> {{PageSeeAlso}} @@ -138,4 +138,4 @@ m& = {{Cl|POINT}}(303, 302) * [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BLEND_(function).txt b/internal/help/_BLEND_(function).txt index db793b177..e33db7e17 100644 --- a/internal/help/_BLEND_(function).txt +++ b/internal/help/_BLEND_(function).txt @@ -16,4 +16,4 @@ The [[_BLEND (function)|_BLEND]] function returns enabled or disabled for the cu * [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BLINK.txt b/internal/help/_BLINK.txt new file mode 100644 index 000000000..c9bbd3561 --- /dev/null +++ b/internal/help/_BLINK.txt @@ -0,0 +1,35 @@ +{{DISPLAYTITLE:_BLINK}} +The [[_BLINK]] statement toggles blinking colors in text mode (SCREEN 0). Default state is ON. + + +{{PageSyntax}} +: [[_BLINK]] {ON|OFF} + + +{{PageDescription}} +* SCREEN 0 emulates the VGA palette with regular colors from 0 to 15 and blinking colors from 16-31 (these are the same colors as 0-15, except their blink attribute is set to on). [[_BLINK]] OFF emulates writing to the video memory and disabling blinking for colors 16-31. +* Using colors 16-31 for the foreground with [[_BLINK]] set to OFF will produce high intensity background colors. +* [[_BLINK]] is only effective in SCREEN 0. It's ignored in graphic modes. +* IF [[_DISPLAY]] is used, blinking is disabled, even if _BLINK is ON, but high intensity backgrounds aren't enabled in this case. + + +{{PageAvailability}} +* Build 20170816/61 and up). + + +{{PageExamples}} +{{CodeStart}}{{Cl|COLOR}} 16, 7 +{{Cl|PRINT}} "This is printed in black over gray background. Black letters are blinking." +{{Cl|PRINT}} "Hit a key..." +{{Cl|SLEEP}} +{{Cl|_BLINK}} OFF +{{Cl|PRINT}} "Now the same text is printed in black over bright white, because blinking was disabled." +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_BLINK (function)]] +* [[OUT]] +* [[_DISPLAY]] + +{{PageNavigation}} diff --git a/internal/help/_BLINK_(function).txt b/internal/help/_BLINK_(function).txt new file mode 100644 index 000000000..4dc8f69c0 --- /dev/null +++ b/internal/help/_BLINK_(function).txt @@ -0,0 +1,31 @@ +{{DISPLAYTITLE:_BLINK (function)}} +The [[_BLINK]] function returns the current blink setting for SCREEN 0 colors. If enabled, returns -1 (default), otherwise returns 0. + + +{{PageSyntax}} +: {{Parameter|blinkState%%}} = [[_BLINK]] + + +{{PageAvailability}} +* Build 20170816/61 and up. + + +{{PageExamples}} +{{CodeStart}}{{Cl|COLOR}} 16, 7 + +'Try uncommenting the line below: +'{{Cl|_BLINK}} OFF + +{{Cl|IF}} _BLINK {{Cl|THEN}} + {{Cl|PRINT}} "I'm blinking" +{{Cl|ELSE}} + {{Cl|PRINT}} "I'm not blinking" +{{Cl|END IF}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_BLINK]] (statement) +* [[OUT]] + +{{PageNavigation}} diff --git a/internal/help/_BLUE.txt b/internal/help/_BLUE.txt index 3984104e1..08fa76706 100644 --- a/internal/help/_BLUE.txt +++ b/internal/help/_BLUE.txt @@ -28,4 +28,4 @@ The [[_BLUE]] function returns the palette intensity or the blue component inten * [[_LOADIMAGE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BLUE32.txt b/internal/help/_BLUE32.txt index 7cf1b4453..f8aad0f11 100644 --- a/internal/help/_BLUE32.txt +++ b/internal/help/_BLUE32.txt @@ -21,4 +21,4 @@ The [[_BLUE32]] function returns the blue component intensity of a 32-bit image * [[_RGB32]], [[_BLUE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BUTTON.txt b/internal/help/_BUTTON.txt index d30905147..2ada20121 100644 --- a/internal/help/_BUTTON.txt +++ b/internal/help/_BUTTON.txt @@ -7,6 +7,7 @@ The [[_BUTTON]] function returns -1 when specified button number on a controller {{PageDescription}} +* The '''[[_DEVICEINPUT]] function should be read first to specify which device [[_BUTTON]] is intended to check.''' * Values returned are -1 for a press and 0 when a button is released or not pressed. * The {{Parameter|button_number%}} must be a number which does not exceed the number of buttons found by the [[_LASTBUTTON]] function. * '''The number of [[_DEVICES]] must be read before using [[_DEVICE$]], [[_DEVICEINPUT]] or [[_LASTBUTTON]].''' @@ -17,13 +18,13 @@ The [[_BUTTON]] function returns -1 when specified button number on a controller ''Example:'' Reading multiple controller device buttons, axis and wheels. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|_DEVICES}} - {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) + {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) {{Cl|NEXT}} {{Cl|DO...LOOP|DO}} d& = {{Cl|_DEVICEINPUT}} {{Cl|IF...THEN|IF}} d& {{Cl|THEN}} ' the device number cannot be zero! - {{Cl|PRINT}} "Found"; d&; + {{Cl|PRINT}} "Found"; d&; {{Cl|FOR...NEXT|FOR}} b = 1 {{Cl|TO}} {{Cl|_LASTBUTTON}}(d&) {{Cl|PRINT}} {{Cl|_BUTTONCHANGE}}(b); {{Cl|_BUTTON}}(b); {{Cl|NEXT}} @@ -50,4 +51,4 @@ The [[_BUTTON]] function returns -1 when specified button number on a controller * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BUTTONCHANGE.txt b/internal/help/_BUTTONCHANGE.txt index f7a7de74d..c85ed28ce 100644 --- a/internal/help/_BUTTONCHANGE.txt +++ b/internal/help/_BUTTONCHANGE.txt @@ -7,6 +7,7 @@ The [[_BUTTONCHANGE]] function returns -1 or 1 when a specified button number on {{PageDescription}} +* The '''[[_DEVICEINPUT]] function should be read first to specify which device [[_BUTTONCHANGE]] is intended to check.''' * Values returned are -1 for a press and 1 when a button is released. No press or release event returns zero. * The {{Parameter|button_number%}} must be a number which does not exceed the number of buttons found by the [[_LASTBUTTON]] function. * '''The number of [[_DEVICES]] must be read before using [[_DEVICE$]], [[_DEVICEINPUT]] or [[_LASTBUTTON]].''' @@ -17,13 +18,13 @@ The [[_BUTTONCHANGE]] function returns -1 or 1 when a specified button number on ''Example:'' Reading multiple controller device buttons, axis and wheels. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|_DEVICES}} - {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) + {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) {{Cl|NEXT}} {{Cl|DO...LOOP|DO}} d& = {{Cl|_DEVICEINPUT}} {{Cl|IF...THEN|IF}} d& {{Cl|THEN}} ' the device number cannot be zero! - {{Cl|PRINT}} "Found"; d&; + {{Cl|PRINT}} "Found"; d&; {{Cl|FOR...NEXT|FOR}} b = 1 {{Cl|TO}} {{Cl|_LASTBUTTON}}(d&) {{Cl|PRINT}} {{Cl|_BUTTONCHANGE}}(b); {{Cl|_BUTTON}}(b); {{Cl|NEXT}} @@ -50,4 +51,4 @@ The [[_BUTTONCHANGE]] function returns -1 or 1 when a specified button number on * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_BYTE.txt b/internal/help/_BYTE.txt index aaa2af1a3..7195bdd26 100644 --- a/internal/help/_BYTE.txt +++ b/internal/help/_BYTE.txt @@ -16,21 +16,21 @@ A [[_BYTE]] variable can hold signed variable values from -128 to 127 (one byte * '''When a variable has not been assigned or has no type suffix, the value defaults to [[SINGLE]].''' -<center>'''[[_BIT|BITS]]'''</center> +<center>'''[[_BIT|BITS]]'''</center> * The '''MSB''' is the most significant(largest) bit value and '''LSB''' is the least significant bit of a binary or register memory address value. The order in which the bits are read determines the binary or decimal byte value. There are two common ways to read a byte: -:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. -:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. +:* '''"Big-endian"''': MSB is the first bit encountered, decreasing to the LSB as the last bit by position, memory address or time. +:* '''"Little-endian"''': LSB is the first bit encountered, increasing to the MSB as the last bit by position, memory address or time. {{WhiteStart}} '''Offset or Position: 0 1 2 3 4 5 6 7 Example: 11110000''' ---------------------------------- -------- '''Big-Endian Bit On Value:''' 128 64 32 16 8 4 2 1 240 '''Little-Endian Bit On Value:''' 1 2 4 8 16 32 64 128 15 {{WhiteEnd}} -::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. +::The big-endian method compares exponents of 2 <sup>7</sup> down to 2 <sup>0</sup> while the little-endian method does the opposite. -<center>'''[[_BYTE|BYTES]]'''</center> +<center>'''[[_BYTE|BYTES]]'''</center> * [[INTEGER]] values consist of 2 bytes called the '''HI''' and '''LO''' bytes. Anytime that the number of binary digits is a multiple of 16 (2bytes, 4 bytes, etc.) and the HI byte's MSB is on(1), the value returned will be negative. Even with [[SINGLE]] or [[DOUBLE]] values! {{WhiteStart}} '''16 BIT INTEGER OR REGISTER''' '''AH (High Byte Bits) AL (Low Byte Bits)''' @@ -54,27 +54,27 @@ A [[_BYTE]] variable can hold signed variable values from -128 to 127 (one byte {{Cl|CLS}} unsig = 1 sig = 1 -{{Cl|PRINT}} "00000001 = unsigned & signed are both" + {{Cl|STR$}}(unsig {{Cl|AND}} sig) +{{Cl|PRINT}} "00000001 = unsigned & signed are both" + {{Cl|STR$}}(unsig {{Cl|AND}} sig) unsig = 127 sig = 127 -{{Cl|PRINT}} "&B01111111 = unsigned & signed are both" + {{Cl|STR$}}(unsig {{Cl|AND}} sig) +{{Cl|PRINT}} "&B01111111 = unsigned & signed are both" + {{Cl|STR$}}(unsig {{Cl|AND}} sig) unsig = 255 sig = 255 -{{Cl|PRINT}} "&B11111111 = unsigned is" + {{Cl|STR$}}(unsig) + " but signed is " + {{Cl|STR$}}(sig) +{{Cl|PRINT}} "&B11111111 = unsigned is" + {{Cl|STR$}}(unsig) + " but signed is " + {{Cl|STR$}}(sig) unsig = 254 sig = 254 -{{Cl|PRINT}} "&B11111110 = unsigned is" + {{Cl|STR$}}(unsig) + " but signed is " + {{Cl|STR$}}(sig) +{{Cl|PRINT}} "&B11111110 = unsigned is" + {{Cl|STR$}}(unsig) + " but signed is " + {{Cl|STR$}}(sig) unsig = 253 sig = 253 -{{Cl|PRINT}} "&B11111101 = unsigned is" + {{Cl|STR$}}(unsig) + " but signed is " + {{Cl|STR$}}(sig) +{{Cl|PRINT}} "&B11111101 = unsigned is" + {{Cl|STR$}}(unsig) + " but signed is " + {{Cl|STR$}}(sig) {{Cl|PRINT}} -{{Cl|PRINT}} "The signed value needs the MSB bit for the sign." -{{Cl|PRINT}} "The most significant bit is furthest to the left." +{{Cl|PRINT}} "The signed value needs the MSB bit for the sign." +{{Cl|PRINT}} "The most significant bit is furthest to the left." {{CodeEnd}} {{OutputStart}} &B00000001 = unsigned & signed are both 1 @@ -92,10 +92,11 @@ The most significant bit is furthest to the left. * [[_BIT]], [[&B]] * [[_DEFINE]], [[DIM]] * [[_UNSIGNED]] +* [[_SHL]], [[_SHR]] * [[Mathematical Operations]] * [[Screen Memory]] * [[Variable Types]] * [[Converting Bytes to Bits]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CAPSLOCK.txt b/internal/help/_CAPSLOCK.txt new file mode 100644 index 000000000..80b3613d7 --- /dev/null +++ b/internal/help/_CAPSLOCK.txt @@ -0,0 +1,19 @@ +{{DISPLAYTITLE:_CAPSLOCK}} +The [[_CAPSLOCK]] statement sets the state of the Caps Lock key. + + +{{PageSyntax}} +: [[_CAPSLOCK]] {ON|OFF|_TOGGLE} + + +{{PageAvailability}} +* Version 1.4 and up. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageSeeAlso}} +* [[_CAPSLOCK (function)]], [[_NUMLOCK (function)]], [[_SCROLLLOCK (function)]] +* [[_NUMLOCK]] (statement), [[_SCROLLLOCK]] (statement) + + +{{PageNavigation}} diff --git a/internal/help/_CAPSLOCK_(function).txt b/internal/help/_CAPSLOCK_(function).txt new file mode 100644 index 000000000..d0c860392 --- /dev/null +++ b/internal/help/_CAPSLOCK_(function).txt @@ -0,0 +1,19 @@ +{{DISPLAYTITLE:_CAPSLOCK (function)}} +The [[_CAPSLOCK (function)| _CAPSLOCK]] function returns the current state of the Caps Lock key as on (-1) or off (0). + + +{{PageSyntax}} +: {{Parameter|keyStatus%%}} = [[_CAPSLOCK (function)| _CAPSLOCK]] + + +{{PageAvailability}} +* Version 1.4 and up. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageSeeAlso}} +* [[_NUMLOCK (function)]], [[_SCROLLLOCK (function)]] +* [[_CAPSLOCK]] (statement), [[_NUMLOCK]] (statement), [[_SCROLLLOCK]] (statement) + + +{{PageNavigation}} diff --git a/internal/help/_CEIL.txt b/internal/help/_CEIL.txt index 923fa387e..f4bbafe27 100644 --- a/internal/help/_CEIL.txt +++ b/internal/help/_CEIL.txt @@ -10,8 +10,8 @@ The [[_CEIL]] function rounds a numeric value up to the next whole number or [[I * This means that [[_CEIL]] rounds up for both positive and negative numbers. -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -32,4 +32,4 @@ PRINT INT(-2.5), CINT(-2.5), FIX(-2.5), _CEIL(-2.5) * [[_ROUND]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CINP.txt b/internal/help/_CINP.txt new file mode 100644 index 000000000..5423bf450 --- /dev/null +++ b/internal/help/_CINP.txt @@ -0,0 +1,59 @@ +{{DISPLAYTITLE:_CINP}} +The [[_CINP]] function returns keyboard key press codes from a [[$CONSOLE]] window. Windows-only. + + +{{PageSyntax}} +:{{Parameter|keycode&}} = [[_CINP]] + + +{{PageDescription}} +* Return values are the same as the ones for [[INP]] when used to read keyboard input. See table below. +:* '''Negative''' [[LONG]] values returned indicate that a key was released or a lock function key has been turned off. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + +{{WhiteStart}}' '''Extended Keyboard Press Scancodes''' +' +'''' Esc F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 SysReq ScrL Pause''' +' 1 59 60 61 62 63 64 65 66 67 68 87 88 0 70 29 +' '''`~ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc Insert Home PgUp NumL / * -''' +' 41 2 3 4 5 6 7 8 9 10 11 12 13 14 82 71 73 69 53 55 74 +' '''Tab Q W E R T Y U I O P [{ ]} \| Delete End PgDn 7/Home 8/â–² 9/PU + ''' +' 15 16 17 18 19 20 21 22 23 24 25 26 27 43 83 79 81 71 72 73 78 +' '''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º E''' +' 58 30 31 32 33 34 35 36 37 38 39 40 28 75 76 77 '''n''' +' '''Shift Z X C V B N M ,< .> /? Shift â–² 1/End 2/â–¼ 3/PD t''' +' 42 44 45 46 47 48 49 50 51 52 53 54 72 79 80 81 '''e''' +' '''Ctrl Win Alt Spacebar Alt Win Menu Ctrl â—„- â–¼ -â–º 0/Insert ./Del r''' +' 29 {{text|91|purple}} 56 57 56 {{text|92 93|purple}} 29 75 80 77 82 83 28 +' +{{WhiteEnd}} + + +{{PageExamples}} +''Example 1:'' Reading individual key strokes from a console window (Windows). +{{CodeStart}} '' '' +{{Cl|$CONSOLE}}:ONLY +{{Cl|_DEST}} {{Cl|_CONSOLE}}: {{Cl|_SOURCE}} {{Cl|_CONSOLE}} + +{{Cl|PRINT}} "Press any key, and I'll give you the scan code for it. <ESC> quits the demo." +{{Cl|PRINT}} +{{Cl|PRINT}} +{{Cl|DO}} + x = {{Cl|_CONSOLEINPUT}} + {{Cl|IF}} x = 1 {{Cl|THEN}} 'read only keyboard input ( = 1) + c = {{Cl|_CINP}} + {{Cl|PRINT}} c; + {{Cl|END IF}} +{{Cl|LOOP}} {{Cl|UNTIL}} c = 1 +{{Cl|END}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[$CONSOLE]], [[_CONSOLE]] +* [[_CONSOLEINPUT]] +* [[_MOUSEX]], [[_MOUSEY]], [[_MOUSEBUTTON]], [[_MOUSEWHEEL]] + + + +{{PageNavigation}} diff --git a/internal/help/_CLEARCOLOR.txt b/internal/help/_CLEARCOLOR.txt index 76e4bc84a..83e9470c4 100644 --- a/internal/help/_CLEARCOLOR.txt +++ b/internal/help/_CLEARCOLOR.txt @@ -5,7 +5,7 @@ The [[_CLEARCOLOR]] statement sets a specific color to be treated as transparent {{PageSyntax}} :[[_CLEARCOLOR]] {{{Parameter|color&}}|_NONE}[, {{Parameter|Dest_Handle&}}] -{{Parameters}} +{{PageParameters}} * In color modes using a palette, {{Parameter|color&}} is the palette index of the new transparent color value or _NONE designates no clear colors. * If {{Parameter|color&}} is not a valid palette index, an [[ERROR Codes|illegal function call]] error will occur. * In 32-bit color modes, {{Parameter|color&}} is the [[_LONG]] color value of the new transparent color. @@ -21,10 +21,10 @@ The [[_CLEARCOLOR]] statement sets a specific color to be treated as transparent {{PageExamples}} -''Example 1:'' Using _CLEARCOLOR to "mask" the background color of an image. +''Example 1:'' Using _CLEARCOLOR to "mask" the background color of an image. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 13 -img& = {{Cl|_LOADIMAGE}}("qb64_trans.png") +img& = {{Cl|_LOADIMAGE}}("qb64_trans.png") {{Cl|_PUTIMAGE}} , img&, 0 'place actual image with background K$ = INPUT$(1) {{Cl|CLS}} , {{Cl|_RGB}}(255, 0, 0) 'clear screen with red background @@ -33,8 +33,6 @@ K$ = INPUT$(1) {{Cl|PRINT}} {{Cl|_CLEARCOLOR}}(img&) 'displays closest clear color attribute {{Cl|END}} '' '' {{CodeEnd}} -: ''Note:'' The ''QB64.PNG'' image can be downloaded here: [http://www.qb64.net/qb64_trans.png qb64_trans.png]. Right click and Save as ''qb64_trans.png''. - ''Example 2:'' Using a _CLEARCOLOR transparency with images created on a [[_NEWIMAGE]] page. Does not require an image file. {{CodeStart}}{{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(512, 384, 32) ' screen uses handle value @@ -47,7 +45,7 @@ redball = {{Cl|_NEWIMAGE}}(101, 101, 32) ' create a new image page {{Cl|DO...LOOP|DO}} {{Cl|_PUTIMAGE| _PUTIMAGE}} ({{Cl|RND}} * 512, {{Cl|RND}} * 384), redball {{Cl|SLEEP| SLEEP}} 1 ' one second delay -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' {{CodeEnd}} @@ -56,7 +54,7 @@ redball = {{Cl|_NEWIMAGE}}(101, 101, 32) ' create a new image page mainscreen = {{Cl|_NEWIMAGE}}(640, 480, 32) ' Main Screen (viewable) {{Cl|SCREEN}} mainscreen {{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} -Image1& = {{Cl|_LOADIMAGE}}("qb64_trans.png") '<<<<<< any image with one background color to clear +Image1& = {{Cl|_LOADIMAGE}}("qb64_trans.png") '<<<<<< any image with one background color to clear {{Cl|IF...THEN|IF}} Image1& < -1 {{Cl|THEN}} 'check loaded image handle value before using! {{Cl|_SOURCE}} Image1& @@ -76,12 +74,12 @@ DO {{Cl|IF...THEN|IF}} a& = 255 {{Cl|THEN}} d = -d 'reverse fade {{Cl|_SETALPHA}} a&, , NewImage1& 'sets alpha level of all colors to fade image page in/out {{Cl|_PUTIMAGE}} (0, 342), NewImage1& - {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Alpha: "; a& + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Alpha: "; a& {{Cl|_DISPLAY}} {{Cl|LOOP}} {{Cl|UNTIL}} a& = 0 {{Cl|END}} {{CodeEnd}} -:''Note:'' If the _CLEARCOLOR [http://www.qb64.net/qb64_trans.png qb64_trans.png] background was not put onto a separate page, [[_SETALPHA]] would display it also. +:''Note:'' If the _CLEARCOLOR background was not put onto a separate page, [[_SETALPHA]] would display it also. @@ -92,4 +90,4 @@ DO * [[Images]], [[Creating Sprite Masks]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CLEARCOLOR_(function).txt b/internal/help/_CLEARCOLOR_(function).txt index f502a684d..667d0f174 100644 --- a/internal/help/_CLEARCOLOR_(function).txt +++ b/internal/help/_CLEARCOLOR_(function).txt @@ -22,4 +22,4 @@ The [[_CLEARCOLOR (function)|_CLEARCOLOR]] function returns the current transpar * [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CLIP.txt b/internal/help/_CLIP.txt index f2da1c587..f1a4c9f8f 100644 --- a/internal/help/_CLIP.txt +++ b/internal/help/_CLIP.txt @@ -22,13 +22,13 @@ The [[_CLIP]] option is used in a QB64 graphics [[PUT (graphics statement)|PUT]] {{Cl|CIRCLE}} (10,10),10 {{Cl|GET (graphics statement)|GET}} (0,0)-(20,20), mypic(0) -{{Cl|PRINT}} "This program puts an image off screen." -{{Cl|PRINT}} "Select which option you'd like to try." -{{Cl|PRINT}} "1 will produce an illegal function call." -{{Cl|PRINT}} "1 is putting without _CLIP." -{{Cl|PRINT}} "2 is putting with _CLIP PSET." -{{Cl|PRINT}} "3 is putting with _CLIP XOR." -{{Cl|PRINT}} "4 is putting with _CLIP PSET, 4." +{{Cl|PRINT}} "This program puts an image off screen." +{{Cl|PRINT}} "Select which option you'd like to try." +{{Cl|PRINT}} "1 will produce an illegal function call." +{{Cl|PRINT}} "1 is putting without _CLIP." +{{Cl|PRINT}} "2 is putting with _CLIP PSET." +{{Cl|PRINT}} "3 is putting with _CLIP XOR." +{{Cl|PRINT}} "4 is putting with _CLIP PSET, 4." {{Cl|INPUT}} sel {{Cl|IF...THEN|IF}} sel = 1 {{Cl|THEN}} {{Cl|PUT (graphics statement)|PUT}} (-10, 10), mypic(0), PSET ' this causes an illegal function call @@ -46,4 +46,4 @@ The [[_CLIP]] option is used in a QB64 graphics [[PUT (graphics statement)|PUT]] * [[STEP]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CLIPBOARD$.txt b/internal/help/_CLIPBOARD$.txt index 18e5e3560..6f486969e 100644 --- a/internal/help/_CLIPBOARD$.txt +++ b/internal/help/_CLIPBOARD$.txt @@ -1,5 +1,5 @@ {{DISPLAYTITLE:_CLIPBOARD$}} -The [[_CLIPBOARD$]] function returns the current Operating System's clipboard contents as a [[STRING]]. +The [[_CLIPBOARD$]] function returns the current operating system's clipboard contents as a [[STRING]]. {{PageSyntax}} @@ -16,12 +16,12 @@ The [[_CLIPBOARD$]] function returns the current Operating System's clipboard co ''Example 1:'' Passing a string value between two running programs no matter where they are located. : ''Program1:'' {{CodeStart}} '' '' -{{Cl|PRINT}} "Start Program2 to read your text entries! Empty entry quits!" -{{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "Entry program started!" 'set clipboard initially +{{Cl|PRINT}} "Start Program2 to read your text entries! Empty entry quits!" +{{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "Entry program started!" 'set clipboard initially -DO - {{Cl|LINE INPUT}} "Enter some text to send to other program: ", text$ - {{Cl|IF...THEN|IF}} text$ = "" {{Cl|THEN}} {{Cl|EXIT DO}} +{{Cl|DO}} + {{Cl|LINE INPUT}} "Enter some text to send to other program: ", text$ + {{Cl|IF...THEN|IF}} text$ = "" {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = text$ {{Cl|LOOP}} @@ -29,13 +29,13 @@ DO {{CodeEnd}} :''Program2:'' {{CodeStart}} -{{Cl|PRINT}} "Enter text in Program1 and this program will read it. Esc key quits!" +{{Cl|PRINT}} "Enter text in Program1 and this program will read it. Esc key quits!" -DO: {{Cl|_LIMIT}} 100 +{{Cl|DO}}: {{Cl|_LIMIT}} 100 text$ = {{Cl|_CLIPBOARD$}} 'function returns clipboard contents {{Cl|IF...THEN|IF}} {{Cl|LEN}}(text$) {{Cl|THEN}} - {{Cl|PRINT}} text$ - {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "" 'clear clipboard after a read + {{Cl|PRINT}} text$ + {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "" 'clear clipboard after a read {{Cl|END IF}} {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) @@ -46,10 +46,10 @@ DO: {{Cl|_LIMIT}} 100 ''Example 2: A minimized program that pops up when Ctrl + Shift is entered anytime in '''Windows''' and adds clipboard text to be Pasted: {{CodeStart}} '' '' -'"ClippyBoard" program uses GetKeyState Win API to monitor a specific key combination. +'"ClippyBoard" program uses GetKeyState Win API to monitor a specific key combination. 'This demo will maximize the window and focus on program when Shift+A is pressed. -{{Cl|DECLARE DYNAMIC LIBRARY}} "user32" +{{Cl|DECLARE DYNAMIC LIBRARY}} "user32" {{Cl|FUNCTION}} FindWindowA%& ({{Cl|BYVAL}} ClassName {{Cl|AS}} {{Cl|_OFFSET}}, WindowName$) 'find process handle by title {{Cl|FUNCTION}} GetKeyState% ({{Cl|BYVAL}} nVirtKey {{Cl|AS}} {{Cl|LONG}}) 'Windows virtual key presses {{Cl|FUNCTION}} ShowWindow& ({{Cl|BYVAL}} hwnd {{Cl|AS}} {{Cl|_OFFSET}}, {{Cl|BYVAL}} nCmdShow {{Cl|AS}} {{Cl|LONG}}) 'maximize process @@ -57,7 +57,7 @@ DO: {{Cl|_LIMIT}} 100 {{Cl|FUNCTION}} SetForegroundWindow& ({{Cl|BYVAL}} hwnd {{Cl|AS}} {{Cl|_OFFSET}}) 'set foreground window process(focus) {{Cl|DECLARE LIBRARY|END DECLARE}} -title$ = "Clippy Clipboard (Ctrl+Shift)" 'title of program window +title$ = "Clippy Clipboard (Ctrl+Shift)" 'title of program window {{Cl|_TITLE}} title$ 'set program title hwnd%& = FindWindowA(0, title$ + {{Cl|CHR$}}(0)) 'find this program's process handle @@ -65,7 +65,7 @@ hwnd%& = FindWindowA(0, title$ + {{Cl|CHR$}}(0)) 'find this program's proces {{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} {{Cl|COLOR}} 10: {{Cl|PRINT}} -{{Cl|PRINT}} " Press Ctrl+Shift to see clipboard menu." +{{Cl|PRINT}} " Press Ctrl+Shift to see clipboard menu." {{Cl|_DELAY}} 4 x& = ShowWindow&(hwnd%&, 2) 'minimize @@ -76,12 +76,12 @@ x& = ShowWindow&(hwnd%&, 2) 'minimize FGwin%& = GetForegroundWindow%& 'get current process in focus y& = ShowWindow&(hwnd%&, 1) 'maximize minimized program - {{Cl|IF...THEN|IF}} FGwin%& <> hwnd%& {{Cl|THEN}} z& = SetForegroundWindow&(hwnd%&) 'set focus when necessary + {{Cl|IF...THEN|IF}} FGwin%& <> hwnd%& {{Cl|THEN}} z& = SetForegroundWindow&(hwnd%&) 'set focus when necessary {{Cl|_DELAY}} 1 GetKey x& = ShowWindow&(hwnd%&, 2) 'minimize after letter key entry {{Cl|COLOR}} 10: {{Cl|PRINT}} - {{Cl|PRINT}} " Press Ctrl+Shift to see clipboard menu." + {{Cl|PRINT}} " Press Ctrl+Shift to see clipboard menu." {{Cl|END IF}} {{Cl|LOOP}} @@ -89,40 +89,40 @@ x& = ShowWindow&(hwnd%&, 2) 'minimize {{Cl|SUB}} GetKey {{Cl|CLS}} {{Cl|COLOR}} 12: {{Cl|PRINT}}: {{Cl|PRINT}} {{Cl|_CLIPBOARD$}} -{{Cl|DO...LOOP|DO}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = "" +{{Cl|DO...LOOP|DO}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = "" {{Cl|_DELAY}} 1 {{Cl|CLS}} -{{Cl|COLOR}} 11: {{Cl|PRINT}} "Select a letter clipboard option:" +{{Cl|COLOR}} 11: {{Cl|PRINT}} "Select a letter clipboard option:" {{Cl|PRINT}} -{{Cl|PRINT}} "A = Address" -{{Cl|PRINT}} "C = Cell phone" -{{Cl|PRINT}} "E = Email" -{{Cl|PRINT}} "F = First Name" -{{Cl|PRINT}} "H = Home phone" -{{Cl|PRINT}} "L = Last Name" -{{Cl|PRINT}} "N = Name" -{{Cl|PRINT}} "M = MAC address" -{{Cl|PRINT}} "P = Password" -{{Cl|PRINT}} "W = Work name" -{{Cl|PRINT}} "X = QUIT!" -{{Cl|PRINT}} "Z = Zip code" +{{Cl|PRINT}} "A = Address" +{{Cl|PRINT}} "C = Cell phone" +{{Cl|PRINT}} "E = Email" +{{Cl|PRINT}} "F = First Name" +{{Cl|PRINT}} "H = Home phone" +{{Cl|PRINT}} "L = Last Name" +{{Cl|PRINT}} "N = Name" +{{Cl|PRINT}} "M = MAC address" +{{Cl|PRINT}} "P = Password" +{{Cl|PRINT}} "W = Work name" +{{Cl|PRINT}} "X = QUIT!" +{{Cl|PRINT}} "Z = Zip code" {{Cl|COLOR}} 14: {{Cl|PRINT}} -{{Cl|PRINT}} "Another letter will skip or X = {{Cl|EXIT}}!" +{{Cl|PRINT}} "Another letter will skip or X = {{Cl|EXIT}}!" K$ = {{Cl|UCASE$}}({{Cl|INPUT$}}(1)) {{Cl|SELECT CASE}} K$ 'The following text should be your personal user info: - {{Cl|CASE}} "A": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "my address" - {{Cl|CASE}} "C": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "cell number" - {{Cl|CASE}} "E": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "myemail" - {{Cl|CASE}} "F": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "formal name" - {{Cl|CASE}} "H": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "home number" - {{Cl|CASE}} "L": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "lastname" - {{Cl|CASE}} "M": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "modempassword" - {{Cl|CASE}} "N": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "name" - {{Cl|CASE}} "P": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "password" - {{Cl|CASE}} "X": {{Cl|END}} - {{Cl|CASE}} "Z": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "zipcode" + {{Cl|CASE}} "A": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "my address" + {{Cl|CASE}} "C": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "cell number" + {{Cl|CASE}} "E": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "myemail" + {{Cl|CASE}} "F": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "formal name" + {{Cl|CASE}} "H": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "home number" + {{Cl|CASE}} "L": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "lastname" + {{Cl|CASE}} "M": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "modempassword" + {{Cl|CASE}} "N": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "name" + {{Cl|CASE}} "P": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "password" + {{Cl|CASE}} "X": {{Cl|END}} + {{Cl|CASE}} "Z": {{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "zipcode" {{Cl|END SELECT}} {{Cl|CLS}} {{Cl|PRINT}} @@ -140,4 +140,4 @@ K$ = {{Cl|UCASE$}}({{Cl|INPUT$}}(1)) * [[_CLIPBOARDIMAGE (function)]], [[_CLIPBOARDIMAGE]] (statement) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CLIPBOARD$_(statement).txt b/internal/help/_CLIPBOARD$_(statement).txt index 3d294c5c4..0225659d9 100644 --- a/internal/help/_CLIPBOARD$_(statement).txt +++ b/internal/help/_CLIPBOARD$_(statement).txt @@ -1,5 +1,5 @@ {{DISPLAYTITLE:_CLIPBOARD$ (statement)}} -The [[_CLIPBOARD$ (statement)|_CLIPBOARD$]] statement copies the [[STRING]] value into the system clipboard. +The [[_CLIPBOARD$ (statement)|_CLIPBOARD$]] statement copies the specified [[STRING]] value into the operating system's clipboard. {{PageSyntax}} @@ -22,7 +22,7 @@ The [[_CLIPBOARD$ (statement)|_CLIPBOARD$]] statement copies the [[STRING]] valu {{Cl|DIM}} CrLf AS {{Cl|STRING}} * 2 'define as 2 byte STRING CrLf = {{Cl|CHR$}}(13) + {{Cl|CHR$}}(10) 'carriage return & line feed -{{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "This is line 1" + CrLf + "This is line 2" +{{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "This is line 1" + CrLf + "This is line 2" {{Cl|PRINT}} {{Cl|_CLIPBOARD$}} 'display what is in the clipboard '' '' {{CodeEnd}} @@ -40,4 +40,4 @@ This is line 2 -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CLIPBOARDIMAGE.txt b/internal/help/_CLIPBOARDIMAGE.txt new file mode 100644 index 000000000..907499a93 --- /dev/null +++ b/internal/help/_CLIPBOARDIMAGE.txt @@ -0,0 +1,56 @@ +{{DISPLAYTITLE:_CLIPBOARDIMAGE}} +The [[_CLIPBOARDIMAGE]] statement copies a valid QB64 image to the clipboard. + + +{{PageSyntax}} +: [[_CLIPBOARDIMAGE]] = {{Parameter|existingImageHandle&}} + + +{{PageDescription}} +* {{Parameter|existingImageHandle&}} is a valid handle to a graphic QB64 image in memory, created with [[_NEWIMAGE]], [[_LOADIMAGE]] or [[_COPYIMAGE]]. +* You can pass [[_SOURCE]], [[_DEST]] or [[_DISPLAY]] to copy the current source, destination or active display pages, as long as they are valid graphic images. +* SCREEN 0 handles (created either with [[_NEWIMAGE]] or passed using _DEST while in a text screen) are not valid and will create an [[ERROR Codes|Illegal Function Call]] or [[ERROR Codes|Invalid Handle]] error. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageAvailability}} +* Build 20170906/64 and up. + + +{{PageExamples}} +''Example:'' Create a sample image and copy it to the clipboard: +{{CodeStart}}{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 32) + +'Create image in memory: +canvas& = {{Cl|_NEWIMAGE}}(300, 200, 32) +{{Cl|_DEST}} canvas& + +'Draw some random rectangles: +{{Cl|RANDOMIZE}} {{Cl|TIMER}} +{{Cl|FOR}} i = 1 {{Cl|TO}} 100 + {{Cl|LINE}} (-100 + RND * _WIDTH, -100 + RND * _HEIGHT)-STEP(RND * 150, RND * 150), _RGB(RND * 255, RND * 255, RND * 255), BF +{{Cl|NEXT}} +LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB(255, 255, 255), B +{{Cl|COLOR}} {{Cl|_RGB}}(0, 0, 0), _RGB(255, 255, 255) +m$ = " Hello, world! " +{{Cl|_PRINTSTRING}} (_WIDTH / 2 - _PRINTWIDTH(m$) / 2, _HEIGHT / 2 - _FONTHEIGHT / 2), m$ + +'Show the image: +{{Cl|_DEST}} 0 +{{Cl|_PUTIMAGE}} (_WIDTH / 2 - _WIDTH(canvas&) / 2, _HEIGHT / 2 - _HEIGHT(canvas&) / 2), canvas& +{{Cl|PRINT}} "Image generated." + +'Copy to the clipboard: +{{Cl|_CLIPBOARDIMAGE}} = canvas& + +PRINT "Image copied to clipboard." +{{CodeEnd}} +{{small|Code by Fellippe Heitor}} + + +{{PageSeeAlso}} +* [[_CLIPBOARDIMAGE (function)|_CLIPBOARDIMAGE]] {{text|(function - used to paste an image from the clipboard)}} +* [[_CLIPBOARD$]], [[_CLIPBOARD$ (statement)]] {{text|(used to copy/paste text)}} + + +{{PageNavigation}} diff --git a/internal/help/_CLIPBOARDIMAGE_(function).txt b/internal/help/_CLIPBOARDIMAGE_(function).txt new file mode 100644 index 000000000..076a9d375 --- /dev/null +++ b/internal/help/_CLIPBOARDIMAGE_(function).txt @@ -0,0 +1,51 @@ +{{DISPLAYTITLE:_CLIPBOARDIMAGE (function)}} +The [[_CLIPBOARDIMAGE (function)|_CLIPBOARDIMAGE]] function pastes an image from the clipboard into a new 32-bit image in memory. + + +{{PageSyntax}} +: {{Parameter|newImageHandle&}} = [[_CLIPBOARDIMAGE (function)|_CLIPBOARDIMAGE]] + + +{{PageDescription}} +* When the paste operation is successful, {{Parameter|newImageHandle&}} will be < -1. Handle values of -1 or 0 indicate that there wasn't an image in the clipboard or that the format wasn't accepted. +* Use [[_FREEIMAGE]] to free the memory used by {{Parameter|newImageHandle&}} when it's no longer needed by your program. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageAvailability}} +* Build 20170906/64 and up. + + +{{PageExamples}} +''Example:'' Monitoring the clipboard for new images copied from other programs: +{{CodeStart}}{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 32) +{{Cl|DO}} + {{Cl|CLS}} + {{Cl|COLOR}} {{Cl|_RGB32}}(177, 177, 177) + {{Cl|PRINT}} "Monitoring clipboard..." + {{Cl|IF}} img& < -1 {{Cl|THEN}} _FREEIMAGE img& + img& = {{Cl|_CLIPBOARDIMAGE}} + IF img& < -1 THEN + {{Cl|PRINT}} "Image found:" + {{Cl|COLOR}} _RGB32(255, 255, 255) + {{Cl|PRINT}} "Width :"; {{Cl|_WIDTH (function)|_WIDTH}}(img&) + {{Cl|PRINT}} "Height:"; {{Cl|_HEIGHT|_HEIGHT}}(img&) + w = {{Cl|_WIDTH (function)|_WIDTH}} / 2 - {{Cl|_WIDTH (function)|_WIDTH}}(img&) / 2 + IF w < 0 THEN w = 0 + {{Cl|_PUTIMAGE}} (w, {{Cl|CSRLIN}} * {{Cl|_FONTHEIGHT}}), img& + ELSE + PRINT "No image found." + END IF + {{Cl|_DISPLAY}} + {{Cl|_LIMIT}} 10 +{{Cl|LOOP}} +{{CodeEnd}} +{{small|Code by Fellippe Heitor}} + + +{{PageSeeAlso}} +* [[_CLIPBOARDIMAGE]] {{text|(statement - used to copy an image to the clipboard)}} +* [[_CLIPBOARD$]], [[_CLIPBOARD$ (statement)]] {{text|(used to copy/paste text)}} + + +{{PageNavigation}} diff --git a/internal/help/_COMMANDCOUNT.txt b/internal/help/_COMMANDCOUNT.txt index 69f68875c..52724c44d 100644 --- a/internal/help/_COMMANDCOUNT.txt +++ b/internal/help/_COMMANDCOUNT.txt @@ -19,7 +19,7 @@ The [[_COMMANDCOUNT]] function returns the number or arguments passed from the c {{Cl|PRINT}} {{Cl|COMMAND$}}(i) {{Cl|NEXT}} {{CodeEnd}} -: ''Explanation:'' If we start ''ThisProgram.exe'' from the command window with '''ThisProgram -l "loadfile.txt" -s "savefile.txt"''', the _COMMANDCOUNT would be 4, "-l", "loadfile.txt", "-s", "savefile.txt" command arguments passed to the program, which we could then read separately with COMMAND$(n). +: ''Explanation:'' If we start ''ThisProgram.exe'' from the command window with '''ThisProgram -l "loadfile.txt" -s "savefile.txt"''', the _COMMANDCOUNT would be 4, "-l", "loadfile.txt", "-s", "savefile.txt" command arguments passed to the program, which we could then read separately with COMMAND$(n). {{PageSeeAlso}} @@ -27,4 +27,4 @@ The [[_COMMANDCOUNT]] function returns the number or arguments passed from the c * [[SHELL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CONNECTED.txt b/internal/help/_CONNECTED.txt index cf87cebcb..844c23ac5 100644 --- a/internal/help/_CONNECTED.txt +++ b/internal/help/_CONNECTED.txt @@ -10,35 +10,10 @@ The [[_CONNECTED]] function returns the status of a TCP/IP connection handle. * The handle can come from the [[_OPENHOST]], [[OPENCLIENT]] or [[_OPENCONNECTION]] QB64 TCP/IP functions. * Returns -1 if still connected or 0 if connection has ended/failed. * Do not rely solely on this function to check for ending communication. -* Use "time-out" checking as well and [[CLOSE]] any suspect connections. -* If this function indicates the handle is not connected, any unread messages can still be read using [[INPUT (TCP/IP statement)|INPUT #]] or [[GET (TCP/IP statement)|GET #]]. +* Use "time-out" checking as well and [[CLOSE]] any suspect connections. +* If this function indicates the handle is not connected, any unread messages can still be read using [[GET (TCP/IP statement)|GET #]]. * Even if this function indicates the handle is not connected, it is important to [[CLOSE]] the connection anyway or important resources cannot be reallocated. - -{{PageExamples}} -''Snippet:'' Updating the [[_OPENHOST|_OPENHOST chat program example]] to manage the Users array when users are no longer connected. -{{TextStart}} '' '' -{{Cb|FOR...NEXT|FOR}} i = 1 {{Cb|TO}} numclients ' distribute incoming messages to all clients - {{Cb|IF...THEN|IF}} Users(i) {{Cb|THEN}} ' check for non-existing handle values(rare) - {{Cb|INPUT (TCP/IP statement)|INPUT #}}Users(i), message$ - {{Cb|IF...THEN|IF}} message$ <> "" {{Cb|THEN}} - {{Cb|FOR...NEXT|FOR}} p = 1 {{Cl|TO}} numclients - {{Cb|IF...THEN|IF}} Users(p) {{Cb|THEN}} {{Cb|PRINT (TCP/IP statement)|PRINT #}}Users(p), message$ - {{Cb|NEXT}} p - {{Cb|END IF}} - {{Cb|IF...THEN|IF}} {{Cb|_CONNECTED}}(Users(i)) {{Cl|IF...THEN|THEN}} - n = n + 1 ' new consecutive connected index - Users(n) = Users(i) ' assign handle value to consecutive index - {{Cb|ELSE}} : {{Cb|CLOSE}} #(Users(i)): Users(i) = 0 ' close and clear index - {{Cb|END IF}} ' if connected - {{Cb|END IF}} ' array handle exist -{{Cb|NEXT}} i -numclients = n: n = 0 '' '' - -{{CodeEnd}} -:The connection routine is added to the [[_OPENHOST|chat program's]] message distribution code to update the User array and close bad connections. The value of the n index does not change for non-existing handles or lost connections, so it will always either match the numclients value or be less. This overwrites lost connection handles. Setting handles to 0 clears upper array indices. After the FOR loop has gone through all of the client users, the number of clients is updated to the value of n and n is reset to 0. - - {{PageSeeAlso}} * [[_OPENCONNECTION]] * [[_OPENHOST]] @@ -47,4 +22,4 @@ numclients = n: n = 0 '' '' * [[Downloading Files]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CONNECTIONADDRESS$.txt b/internal/help/_CONNECTIONADDRESS$.txt index fe992b270..b42dc7f5d 100644 --- a/internal/help/_CONNECTIONADDRESS$.txt +++ b/internal/help/_CONNECTIONADDRESS$.txt @@ -1 +1 @@ -#REDIRECT [[_CONNECTIONADDRESS]] \ No newline at end of file +#REDIRECT [[_CONNECTIONADDRESS]] diff --git a/internal/help/_CONSOLE.txt b/internal/help/_CONSOLE.txt index 9be578320..000ac9b09 100644 --- a/internal/help/_CONSOLE.txt +++ b/internal/help/_CONSOLE.txt @@ -26,7 +26,7 @@ The [[_CONSOLE]] statement can be used to turn a console window ON/OFF. {{Cl|_CONSOLE}} ON 'place console above program window {{Cl|_DEST}} {{Cl|_CONSOLE}} -{{Cl|INPUT}} "Enter your name: ", nme$ 'get program input +{{Cl|INPUT}} "Enter your name: ", nme$ 'get program input {{Cl|_CONSOLE}} OFF 'close console {{Cl|_DEST}} 0 'destination program window @@ -40,14 +40,14 @@ The [[_CONSOLE]] statement can be used to turn a console window ON/OFF. {{CodeStart}} '' '' {{Cl|$CONSOLE}} -{{Cl|_CONSOLETITLE}} "firstone" +{{Cl|_CONSOLETITLE}} "firstone" {{Cl|_DELAY}} 10 {{Cl|_CONSOLE}} OFF {{Cl|_DELAY}} 10 {{Cl|_CONSOLE}} ON -{{Cl|_CONSOLETITLE}} "secondone" +{{Cl|_CONSOLETITLE}} "secondone" {{CodeEnd}} : ''Note:'' Some versions of Windows may display the program path or Administrator: prefix in console title bars. @@ -59,4 +59,4 @@ The [[_CONSOLE]] statement can be used to turn a console window ON/OFF. * [[_DEST]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CONSOLEINPUT.txt b/internal/help/_CONSOLEINPUT.txt new file mode 100644 index 000000000..c660d5a07 --- /dev/null +++ b/internal/help/_CONSOLEINPUT.txt @@ -0,0 +1,44 @@ +{{DISPLAYTITLE:_CONSOLEINPUT}} +The [[_CONSOLEINPUT]] function is used to monitor any new mouse or keyboard input coming from a $CONSOLE window. It must be called in order for [[_CINP]] to return valid values. Windows-only. + + +{{PageSyntax}} +:{{Parameter|infoExists%%}} = [[_CONSOLEINPUT]] + + +{{PageDescription}} +* Returns 1 if new keyboard information is available, 2 if mouse information is available, otherwise it returns 0. +* Must be called before reading any of the other mouse functions and before reading [[_CINP]]. +* To clear all previous input data, read [[_CONSOLEINPUT]] in a loop until it returns 0. +* To capture mouse input, turn off Quick Edit in the settings of command prompt and use [[_SOURCE]] [[_CONSOLE]]. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageExamples}} +''Example 1:'' Reading individual key strokes from a console window (Windows). +{{CodeStart}} '' '' +{{Cl|$CONSOLE}}:ONLY +{{Cl|_DEST}} {{Cl|_CONSOLE}}: {{Cl|_SOURCE}} {{Cl|_CONSOLE}} + +{{Cl|PRINT}} "Press any key, and I'll give you the scan code for it. <ESC> quits the demo." +{{Cl|PRINT}} +{{Cl|PRINT}} +{{Cl|DO}} + x = {{Cl|_CONSOLEINPUT}} + {{Cl|IF}} x = 1 {{Cl|THEN}} 'read only keyboard input ( = 1) + c = {{Cl|_CINP}} + {{Cl|PRINT}} c; + {{Cl|END IF}} +{{Cl|LOOP}} {{Cl|UNTIL}} c = 1 +{{Cl|END}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[$CONSOLE]], [[_CONSOLE]] +* [[_CINP]], [[Keyboard_scancodes#INP_Scan_Codes|Scan Codes]] +* [[_MOUSEX]], [[_MOUSEY]], [[_MOUSEBUTTON]], [[_MOUSEWHEEL]] + + + +{{PageNavigation}} diff --git a/internal/help/_CONSOLETITLE.txt b/internal/help/_CONSOLETITLE.txt index 75b1914a8..81c15031c 100644 --- a/internal/help/_CONSOLETITLE.txt +++ b/internal/help/_CONSOLETITLE.txt @@ -1,13 +1,13 @@ {{DISPLAYTITLE:_CONSOLETITLE}} -The [[_CONSOLETITLE]] statement creates the title of the console window using a literal or variable [[STRING|string]]. +The [[_CONSOLETITLE]] statement sets the console window's title-bar text. {{PageSyntax}} : [[_CONSOLETITLE]] {{Parameter|text$}} -{{PageDescription}} -* The ''text$'' used can be a literal or variable [[STRING]] value. +{{Parameters}} +* ''text$'' can be any literal or variable [[STRING]] value. {{PageExamples}} @@ -16,14 +16,14 @@ The [[_CONSOLETITLE]] statement creates the title of the console window using a {{Cl|$SCREENHIDE}} {{Cl|_DELAY}} 4 {{Cl|$CONSOLE}} -{{Cl|_CONSOLETITLE}} "Error Log" +{{Cl|_CONSOLETITLE}} "Error Log" {{Cl|_DEST}} {{Cl|_CONSOLE}} -{{Cl|PRINT}} "Errors go here! (fyi, this line is not an error)" +{{Cl|PRINT}} "Errors go here! (fyi, this line is not an error)" {{Cl|END}} {{CodeEnd}} -:''Note:'' You can also use [[SHELL]] "title consoletitle" to set the title of the console window. However, '''the recommended practice is to use [[_CONSOLETITLE]]'''. +:''Note:'' You can also use [[SHELL]] "title consoletitle" to set the title of the console window. However, the recommended practice is to use [[_CONSOLETITLE]]. ''See also:'' @@ -32,4 +32,4 @@ The [[_CONSOLETITLE]] statement creates the title of the console window using a * [[_SCREENHIDE]], [[_SCREENSHOW]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CONTINUE.txt b/internal/help/_CONTINUE.txt new file mode 100644 index 000000000..9b8ef832a --- /dev/null +++ b/internal/help/_CONTINUE.txt @@ -0,0 +1,33 @@ +{{DISPLAYTITLE:_CONTINUE}} + +The [[_CONTINUE]] statement is used in a [[DO...LOOP]], [[WHILE...WEND]] or [[FOR...NEXT]] block to skip the remaining lines of code in a block (without exiting it) and start the next iteration. It works as a shortcut to a [[GOTO]], but without the need for a [[line numbers|line label]]. + + +{{PageSyntax}} +: [[_CONTINUE]] + + +{{PageAvailability}} +* Build 20170628/55 and up. + + +{{PageExamples}} +''Example:'' +{{CodeStart}} +{{Cl|FOR}} i = 1 {{Cl|TO}} 10 + {{Cl|IF}} i = 5 {{Cl|THEN}} {{Cl|_CONTINUE}} + {{Cl|PRINT}} i; +{{Cl|NEXT}} +{{CodeEnd}} +{{OutputStart}} + 1 2 3 4 6 7 8 9 10 +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[DO...LOOP]] +* [[WHILE...WEND]] +* [[FOR...NEXT]] +* [[GOTO]] + +{{PageNavigation}} diff --git a/internal/help/_CONTROLCHR.txt b/internal/help/_CONTROLCHR.txt index c32c7eea9..37a3fb303 100644 --- a/internal/help/_CONTROLCHR.txt +++ b/internal/help/_CONTROLCHR.txt @@ -11,7 +11,7 @@ The [[_CONTROLCHR]] statement can be used to turn OFF control character attribut ::For example: '''{{text|PRINT CHR$(13)|green}}''' 'will not move the cursor to the next line and '''{{text|PRINT CHR$(9)|green}}''' 'will not tab. * The default [[ON]] statement allows [[ASCII#Control_Characters|Control Characters]] to be used as control commands where some will not print or will format prints. * '''Note:''' File prints may be affected also when using Carriage Return or Line Feed/Form Feed formatting. -* The QB64 [[IDE]] may allow Alt + number pad character entries, but they must be inside of [[STRING]] values. Otherwise the [[IDE]] may not recognize them. +* The QB64 IDE may allow Alt + number pad character entries, but they must be inside of [[STRING]] values. Otherwise the IDE may not recognize them. {{PageExamples}} @@ -46,4 +46,4 @@ DO * [[ASCII#Control_Characters|Control Characters]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CONTROLCHR_(function).txt b/internal/help/_CONTROLCHR_(function).txt index d1e5680ef..b62861509 100644 --- a/internal/help/_CONTROLCHR_(function).txt +++ b/internal/help/_CONTROLCHR_(function).txt @@ -21,4 +21,4 @@ The [[_CONTROLCHR (function)|_CONTROLCHR]] function returns the current state of -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_COPYIMAGE.txt b/internal/help/_COPYIMAGE.txt index 2ad5a7bea..47b99e6c9 100644 --- a/internal/help/_COPYIMAGE.txt +++ b/internal/help/_COPYIMAGE.txt @@ -3,10 +3,10 @@ The [[_COPYIMAGE]] function creates an identical designated image in memory with {{PageSyntax}} -: newhandle& = [[_COPYIMAGE]][({{Parameter|imageHandle&]][, {{Parameter|mode%]])]] +: newhandle& = [[_COPYIMAGE]][({{Parameter|imageHandle&}}[, {{Parameter|mode%}})]] -{{Parameters}} +{{PageParameters}} * The [[LONG]] ''newhandle&'' value returned will be different than the source handle value supplied. * If ''imageHandle&'' parameter is omitted or zero is designated, the current software [[_DEST|destination]] screen or image is copied. * If 1 is designated instead of an ''imageHandle&'', it designates the last OpenGL hardware surface to copy. @@ -31,7 +31,7 @@ The [[_COPYIMAGE]] function creates an identical designated image in memory with {{Cl|SCREEN}} 13 {{Cl|CIRCLE}} (160, 100), 100, 40 -DO: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +DO: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'backup screen before changing {{Cl|SCREEN}} mode oldmode& = {{Cl|_COPYIMAGE}}(0) 'the 0 value designates the current destination {{Cl|SCREEN}} @@ -39,7 +39,7 @@ oldmode& = {{Cl|_COPYIMAGE}}(0) 'the 0 value designates the current destina s& = {{Cl|_NEWIMAGE}}(800, 600, 32) {{Cl|SCREEN}} s& {{Cl|LINE}} (100, 100)-(500, 500), {{Cl|_RGB}}(0, 255, 255), BF -DO: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +DO: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SCREEN}} oldmode& 'restore original screen {{Cl|IF...THEN|IF}} s& < -1 THEN {{Cl|_FREEIMAGE}} s& @@ -48,18 +48,16 @@ DO: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" : ''Note:'' Only free valid handle values with [[_FREEIMAGE]] AFTER a new [[SCREEN]] mode is being used by the program. -''Example 2:'' Program that copies desktop to a hardware image to form a 3D triangle ('''version 1.000 and up'''): +''Example 2:'' Program that copies desktop to a hardware image to form a 3D triangle: {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) my_hardware_handle = {{Cl|_COPYIMAGE}}({{Cl|_SCREENIMAGE}}, 33) 'take a screenshot and use it as our texture {{Cl|_MAPTRIANGLE}} (0, 0)-(500, 0)-(250, 500), my_hardware_handle TO_ (-1, 0, -1)-(1, 0, -1)-(0, 5, -10), , _SMOOTH {{Cl|_DISPLAY}} -{{Cl|DO...LOOP|DO}}: {{Cl|_LIMIT}} 30: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' +{{Cl|DO...LOOP|DO}}: {{Cl|_LIMIT}} 30: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' {{CodeEnd}}{{small|Code courtesy of Galleon}} -<center>[http://www.qb64.net/forum/index.php?action=dlattach;topic=12049.0;attach=2595 Example 2 PNG image]</center> - {{PageSeeAlso}} * [[_LOADIMAGE]], [[_NEWIMAGE]] @@ -71,4 +69,4 @@ my_hardware_handle = {{Cl|_COPYIMAGE}}({{Cl|_SCREENIMAGE}}, 33) 'take a screensh * [[Hardware images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_COPYPALETTE.txt b/internal/help/_COPYPALETTE.txt index c4e436d15..1087d045e 100644 --- a/internal/help/_COPYPALETTE.txt +++ b/internal/help/_COPYPALETTE.txt @@ -27,4 +27,4 @@ The [[_COPYPALETTE]] statement copies the color palette intensities from one 4 o * [[PALETTE]], [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CV.txt b/internal/help/_CV.txt index fd8424d11..98e3912ef 100644 --- a/internal/help/_CV.txt +++ b/internal/help/_CV.txt @@ -6,8 +6,8 @@ The [[_CV]] function is used to convert [[_MK$]], [[ASCII]], [[STRING]] values t :{{Parameter|result}} = [[_CV]]({{Parameter|numericalType}}, {{Parameter|MKstringValue$}}) -{{Parameters}} -* {{Parameter|numericalType}} is any number type: [[INTEGER]], [[LONG]], [[SINGLE]], [[DOUBLE]], [[_INTEGER64]], [[_FLOAT]], [[_BYTE]] or [[_BIT]]. +{{PageParameters}} +* {{Parameter|numericalType}} is any number type: [[INTEGER]], [[LONG]], [[SINGLE]], [[DOUBLE]], [[_INTEGER64]], [[_FLOAT]], [[_BYTE]] or [[_OFFSET]]. * Integer, Long, Byte and Bit values can be signed or [[_UNSIGNED]]. * The {{Parameter|MKstringvalue$}} parameter must be a string value generated by [[_MK$]] @@ -26,11 +26,11 @@ The [[_CV]] function is used to convert [[_MK$]], [[ASCII]], [[STRING]] values t i64 = 2 ^ 61 i64str = {{Cl|_MK$}}({{Cl|_INTEGER64}}, i64) -{{Cl|PRINT}} "I64:"; i64 -{{Cl|PRINT}} "_MK$: "; i64str +{{Cl|PRINT}} "I64:"; i64 +{{Cl|PRINT}} "_MK$: "; i64str i64 = {{Cl|_CV}}({{Cl|_INTEGER64}}, i64str) -{{Cl|PRINT}} "_CV:"; i64 '' '' +{{Cl|PRINT}} "_CV:"; i64 '' '' {{CodeEnd}} {{OutputStart}} I64: 2305843009213693952 @@ -52,4 +52,4 @@ _CV: 2305843009213693952 * [[_CONTROLCHR]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_CWD$.txt b/internal/help/_CWD$.txt index 9f2ba2a74..51bce1307 100644 --- a/internal/help/_CWD$.txt +++ b/internal/help/_CWD$.txt @@ -23,13 +23,13 @@ The [[_CWD$]] function returns the current working directory path as a string va ''Example:'' Get the current working directory, and move around the file system: {{CodeStart}} '' '' startdir$ = _CWD$ -{{Cl|PRINT}} "We started at "; startdir$ -{{Cl|MKDIR}} "a_temporary_dir" -{{Cl|CHDIR}} "a_temporary_dir" -{{Cl|PRINT}} "We are now in "; _CWD$ +{{Cl|PRINT}} "We started at "; startdir$ +{{Cl|MKDIR}} "a_temporary_dir" +{{Cl|CHDIR}} "a_temporary_dir" +{{Cl|PRINT}} "We are now in "; _CWD$ {{Cl|CHDIR}} startdir$ -{{Cl|PRINT}} "And now we're back in "; _CWD$ -{{Cl|RMDIR}} "a_temporary_dir" +{{Cl|PRINT}} "And now we're back in "; _CWD$ +{{Cl|RMDIR}} "a_temporary_dir" {{CodeEnd}} {{OutputStart}}We started at C:\QB64 @@ -47,4 +47,4 @@ And now we're back in C:\QB64 * [[_STARTDIR$]] {{text|(returns path the user called program from)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_D2G.txt b/internal/help/_D2G.txt index e91ed45a9..e0d2eb744 100644 --- a/internal/help/_D2G.txt +++ b/internal/help/_D2G.txt @@ -6,16 +6,16 @@ The [[_D2G]] function converts a '''degree''' value into a '''gradient''' value. : {{Parameter|result}} = [[_D2G]]({{Parameter|num}}) -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} ''Example:'' Coverting Degrees into Gradient. {{CodeStart}} -INPUT "Give me an angle in Degrees ", D +INPUT "Give me an angle in Degrees ", D R = _D2G(D) -PRINT "That angle in Gradient is "; R +PRINT "That angle in Gradient is "; R {{CodeEnd}} {{OutputStart}} Give me an angle in Degrees 60 @@ -30,4 +30,4 @@ That angle in Gradient is 66.66666 -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_D2R.txt b/internal/help/_D2R.txt index 167d199d5..dec1c060b 100644 --- a/internal/help/_D2R.txt +++ b/internal/help/_D2R.txt @@ -6,16 +6,16 @@ The [[_D2R]] function converts a '''degree''' value into a '''radian''' value. :: {{Parameter|result}} = [[_D2R]]({{Parameter|num}}) -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} ''Example:'' Coverting Degrees into Radians. {{CodeStart}} -INPUT "Give me an angle in Degrees ", D +INPUT "Give me an angle in Degrees ", D R = _D2R(D) -PRINT "That angle in Radians is "; R +PRINT "That angle in Radians is "; R {{CodeEnd}} {{OutputStart}} Give me an angle in Degrees 60 @@ -30,4 +30,4 @@ That angle in Radians is 1.047198 -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEFAULTCOLOR.txt b/internal/help/_DEFAULTCOLOR.txt index 14af082c8..787d8d558 100644 --- a/internal/help/_DEFAULTCOLOR.txt +++ b/internal/help/_DEFAULTCOLOR.txt @@ -20,7 +20,7 @@ The [[_DEFAULTCOLOR]] function returns the current default text color for an ima {{Cl|OUT}} {{Cl|&H}}3C8, 8: {{Cl|OUT}} {{Cl|&H}}3C9, 0: {{Cl|OUT}} {{Cl|&H}}3C9, 0: {{Cl|OUT}} {{Cl|&H}}3C9, 0 'assign RGB intensities to COLOR 8 {{Cl|_PRINTMODE }} _KEEPBACKGROUND {{Cl|COLOR}} 8 'assign color 8 to text foreground -{{Cl|PRINT}} "The default color is attribute"; {{Cl|_DEFAULTCOLOR}} '' '' +{{Cl|PRINT}} "The default color is attribute"; {{Cl|_DEFAULTCOLOR}} '' '' {{CodeEnd}} @@ -31,4 +31,4 @@ The [[_DEFAULTCOLOR]] function returns the current default text color for an ima * [[Windows_Libraries#Color_Dialog_Box|Color Dialog Box]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEFINE.txt b/internal/help/_DEFINE.txt index 147ddcb88..0ac36ba54 100644 --- a/internal/help/_DEFINE.txt +++ b/internal/help/_DEFINE.txt @@ -3,10 +3,10 @@ {{PageSyntax}} -:[[_DEFINE]] {{Parameter|letter}}[{{Parameter|-range}}, ...] [[AS]] [{{KW|_UNSIGNED}}] data[[type]] +:[[_DEFINE]] {{Parameter|letter}}[{{Parameter|-range}}, ...] [[AS]] [{{KW|_UNSIGNED}}] data[[Variable Types|type]] -{{Parameters}} +{{PageParameters}} * Variable start ''letter range'' is in the form firstletter-endingletter (like A-C) or just a single letter. * ''Data types'': [[INTEGER]], [[SINGLE]], [[DOUBLE]], [[LONG]], [[STRING]], [[_BIT]], [[_BYTE]], [[_INTEGER64]], [[_FLOAT]], [[_OFFSET]], [[_MEM]] * Can also use the [[_UNSIGNED]] definition for positive whole [[INTEGER]] type numerical values. @@ -14,9 +14,9 @@ {{PageDescription}} * '''When a variable has not been defined or has no type suffix, the value defaults to a [[SINGLE]] precision floating point value.''' -* _DEFINE sets the [[type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). -* '''NOTE: Many Qbasic keyword variable names CAN be used with a [[STRING]] suffix ($)! You cannot use them without the suffix, use a numerical suffix or use [[DIM]], [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]] statements.''' -* '''Qbasic's IDE''' added DEF statements before any [[SUB]] or [[FUNCTION]]. '''QB64''' (like QB) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding the proper DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. +* _DEFINE sets the [[Variable Types|type]] of all variable names with the starting letter(s) or letter ranges when encountered in the progression of the program (even in conditional statement blocks not executed and subsequent [[SUB]] procedures). +* '''NOTE: Many QBasic keyword variable names CAN be used with a [[STRING]] suffix ($)! You cannot use them without the suffix, use a numerical suffix or use [[DIM]], [[REDIM]], [[_DEFINE]], [[BYVAL]] or [[TYPE]] variable [[AS]] statements.''' +* '''QBasic's IDE''' added DEF statements before any [[SUB]] or [[FUNCTION]]. '''QB64''' (like QB) will change all variable types in subsequent sub-procedures to that default variable type without giving a [[ERROR Codes|"Parameter Type Mismatch"]] warning or adding the proper DEF statement to subsequent procedures. If you do not want that to occur, either remove that DEF statement or add the proper DEF type statements to subsequent procedures. * May also affect [[$INCLUDE]] procedures. @@ -30,7 +30,7 @@ {{Cl|END}} {{Cl|FUNCTION}} Add2 (one, two) -Add2 = one + two + Add2 = one + two {{Cl|END FUNCTION}} '' '' {{CodeEnd}} {{OutputStart}}65533 @@ -45,4 +45,4 @@ Add2 = one + two * [[_UNSIGNED]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEFLATE$.txt b/internal/help/_DEFLATE$.txt new file mode 100644 index 000000000..74beac176 --- /dev/null +++ b/internal/help/_DEFLATE$.txt @@ -0,0 +1,48 @@ +{{DISPLAYTITLE:_DEFLATE$}} +The [[_DEFLATE$]] function compresses a [[STRING|string]]. + + +{{PageSyntax}} +:{{Parameter|result$}} = [[_DEFLATE$]]({{Parameter|stringToCompress$}}) + + +{{PageDescription}} +* {{Parameter|result$}} will contain the compressed version of {{Parameter|stringToCompress$}}. +* To decompress the resulting string, use [[_INFLATE$]]. + + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example 1:'' Compressing a long string of text. +{{CodeStart}} +a$ = "The quick brown fox jumps over the lazy dog. " +{{Cl|PRINT}} "Original string (a$): "; a$ +{{Cl|FOR}} i = 1 {{Cl|TO}} 15 + a$ = a$ + a$ +{{Cl|NEXT}} + +{{Cl|PRINT}} "After concatenating it into itself several times, LEN(a$) ="; {{Cl|LEN}}(a$) + +b$ = {{Cl|_DEFLATE$}}(a$) +{{Cl|PRINT}} "After using _DEFLATE$ to compress it, LEN ="; {{Cl|LEN}}(b$) +{{Cl|PRINT USING}} "(compressed size is #.###% of the original)"; (({{Cl|LEN}}(b$) * 100) / {{Cl|LEN}}(a$)) +c$ = {{Cl|_INFLATE$}}(b$) +PRINT "After using _INFLATE$ to decompress it, LEN ="; {{Cl|LEN}}(c$) + {{CodeEnd}} +{{OutputStart}} +Original string (a$): The quick brown fox jumps over the lazy dog +After concatenating it into itself several times, LEN(a$) = 1474560 +After using _DEFLATE$ to compress it, LEN = 4335 +(compressed size is 0.295% of the original) +After using _INFLATE$ to decompress it, LEN = 1474560 +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[_INFLATE$]] + + +{{PageNavigation}} diff --git a/internal/help/_DELAY.txt b/internal/help/_DELAY.txt index 324eb24c2..29ebea9da 100644 --- a/internal/help/_DELAY.txt +++ b/internal/help/_DELAY.txt @@ -1,14 +1,17 @@ {{DISPLAYTITLE:_DELAY}} -The [[_DELAY]] statement suspends program execution for a [[SINGLE]] value of seconds. +The [[_DELAY]] statement suspends program execution for the specified number of seconds. {{PageSyntax}} :[[_DELAY]] {{Parameter|seconds!}} -{{PageDescription}} +{{Parameters}} * {{Parameter|seconds!}} is the time to wait, accurate to nearest millisecond (.001). -* While waiting, cpu cycles are relinquished to other applications. + + +{{PageDescription}} +* While waiting, CPU cycles are relinquished to other applications. * Delays are not affected by midnight timer corrections. @@ -18,4 +21,4 @@ The [[_DELAY]] statement suspends program execution for a [[SINGLE]] value of se * [[ON TIMER(n)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEPTHBUFFER.txt b/internal/help/_DEPTHBUFFER.txt index 277cfb81c..476f8f627 100644 --- a/internal/help/_DEPTHBUFFER.txt +++ b/internal/help/_DEPTHBUFFER.txt @@ -24,4 +24,4 @@ The [[_DEPTHBUFFER]] statement turns depth buffering ON or OFF, LOCKs or _CLEARS * [[_DISPLAY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DESKTOPHEIGHT.txt b/internal/help/_DESKTOPHEIGHT.txt index 6d5419fd4..13ab7bf3c 100644 --- a/internal/help/_DESKTOPHEIGHT.txt +++ b/internal/help/_DESKTOPHEIGHT.txt @@ -11,8 +11,8 @@ The [[_DESKTOPHEIGHT]] function returns the height of the users current desktop. * This returns the height of the user's desktop, not the size of any screen or window which might be open on that desktop. -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -34,4 +34,4 @@ The [[_DESKTOPHEIGHT]] function returns the height of the users current desktop. -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DESKTOPWIDTH.txt b/internal/help/_DESKTOPWIDTH.txt index c25728bb4..6ee2d47be 100644 --- a/internal/help/_DESKTOPWIDTH.txt +++ b/internal/help/_DESKTOPWIDTH.txt @@ -11,8 +11,8 @@ The [[_DESKTOPWIDTH]] function returns the width of the users current desktop. * This returns the width of the user's desktop, not the size of any screen or window which might be open on that desktop. -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -34,4 +34,4 @@ The [[_DESKTOPWIDTH]] function returns the width of the users current desktop. -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEST.txt b/internal/help/_DEST.txt index fe4d4dbfd..0502cc349 100644 --- a/internal/help/_DEST.txt +++ b/internal/help/_DEST.txt @@ -50,19 +50,19 @@ xm = 4 ym = 4 {{Cl|REM}} Some fun things for the bouncing text. -st$(0) = "doo" -st$(1) = "rey" -st$(2) = "mee" -st$(3) = "faa" -st$(4) = "soo" -st$(5) = "laa" -st$(6) = "tee" +st$(0) = "doo" +st$(1) = "rey" +st$(2) = "mee" +st$(3) = "faa" +st$(4) = "soo" +st$(5) = "laa" +st$(6) = "tee" -sta$(0) = "This is a demo" -sta$(1) = "showing how to use" -sta$(2) = "the _DEST command" -sta$(3) = "with PRINT" -sta$(4) = "and _PUTIMAGE" +sta$(0) = "This is a demo" +sta$(1) = "showing how to use" +sta$(2) = "the _DEST command" +sta$(3) = "with PRINT" +sta$(4) = "and _PUTIMAGE" {{Cl|REM}} prints to a(3) image then switches back to the default 0 {{Cl|_DEST}} a(3): f = {{Cl|INT}}({{Cl|RND}} * 6): {{Cl|PRINT}} st$(3): {{Cl|_DEST}} 0 @@ -89,12 +89,12 @@ DO r = r + 1 {{Cl|IF...THEN|IF}} r = 4 {{Cl|THEN}} r = 0 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} bounce: -{{Cl|IF...THEN|IF}} xa > 600 {{Cl|OR (boolean)|OR}} xa < 20 {{Cl|THEN}} xm = xm * -1: {{Cl|_DEST}} a(3): f = {{Cl|INT}}({{Cl|RND}} * 6): {{Cl|CLS}}: {{Cl|_CLEARCOLOR}} 0: {{Cl|PRINT}} st$(f): {{Cl|_DEST}} 0 -{{Cl|IF...THEN|IF}} ya > 400 {{Cl|OR (boolean)|OR}} ya < 20 {{Cl|THEN}} ym = ym * -1: {{Cl|_DEST}} a(3): f = {{Cl|INT}}({{Cl|RND}} * 7): {{Cl|CLS}}: {{Cl|_CLEARCOLOR}} 0: {{Cl|PRINT}} st$(f): {{Cl|_DEST}} 0 +{{Cl|IF...THEN|IF}} xa > 600 {{Cl|OR (boolean)|OR}} xa < 20 {{Cl|THEN}} xm = xm * -1: {{Cl|_DEST}} a(3): f = {{Cl|INT}}({{Cl|RND}} * 6): {{Cl|CLS}}: {{Cl|_CLEARCOLOR}} 0: {{Cl|PRINT}} st$(f): {{Cl|_DEST}} 0 +{{Cl|IF...THEN|IF}} ya > 400 {{Cl|OR (boolean)|OR}} ya < 20 {{Cl|THEN}} ym = ym * -1: {{Cl|_DEST}} a(3): f = {{Cl|INT}}({{Cl|RND}} * 7): {{Cl|CLS}}: {{Cl|_CLEARCOLOR}} 0: {{Cl|PRINT}} st$(f): {{Cl|_DEST}} 0 {{Cl|_PUTIMAGE}} (xa, ya)-(xa + 150, ya + 80), a(3) xa = xa + xm ya = ya + ym @@ -110,4 +110,4 @@ ya = ya + ym * [[_CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEST_(function).txt b/internal/help/_DEST_(function).txt index 951fe2386..949b19ce9 100644 --- a/internal/help/_DEST_(function).txt +++ b/internal/help/_DEST_(function).txt @@ -19,4 +19,4 @@ The [[_DEST]] function returns the handle value of the current write page (the i * [[SCREEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEVICE$.txt b/internal/help/_DEVICE$.txt index 781cba631..1ccb931cc 100644 --- a/internal/help/_DEVICE$.txt +++ b/internal/help/_DEVICE$.txt @@ -27,10 +27,10 @@ The '''_DEVICE$''' function returns a [[STRING]] value holding the controller ty ''Example 1:'' Checking for the system's input devices and the number of buttons available. {{CodeStart}} '' '' devices = {{Cl|_DEVICES}} 'MUST be read in order for other 2 device functions to work! -PRINT "Number of input devices found ="; devices +PRINT "Number of input devices found ="; devices FOR i = 1 TO devices PRINT {{Cl|_DEVICE$}}(i) - PRINT "Buttons:"; {{Cl|_LASTBUTTON}}(i); "Axis:"; {{Cl|_LASTAXIS}}(i); "Wheels:"; {{Cl|_LASTWHEEL}}(i) + PRINT "Buttons:"; {{Cl|_LASTBUTTON}}(i); "Axis:"; {{Cl|_LASTAXIS}}(i); "Wheels:"; {{Cl|_LASTWHEEL}}(i) NEXT '' '' {{CodeEnd}} {{OutputStart}}Number of input devices found = 3 @@ -48,9 +48,9 @@ Buttons: 9 Axis: 6 Wheels: 0 {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} d = 1 {{Cl|TO}} {{Cl|_DEVICES}} 'number of input devices found dev$ = {{Cl|_DEVICE$}}(d) - {{Cl|IF...THEN|IF}} {{Cl|INSTR}}(dev$, "[MOUSE]") {{Cl|THEN}} buttons = {{Cl|_LASTBUTTON}}(d): {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} + {{Cl|IF...THEN|IF}} {{Cl|INSTR}}(dev$, "[MOUSE]") {{Cl|THEN}} buttons = {{Cl|_LASTBUTTON}}(d): {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} {{Cl|NEXT}} -{{Cl|PRINT}} buttons; "mouse buttons available" '' '' +{{Cl|PRINT}} buttons; "mouse buttons available" '' '' {{CodeEnd}} @@ -65,4 +65,4 @@ Buttons: 9 Axis: 6 Wheels: 0 * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEVICEINPUT.txt b/internal/help/_DEVICEINPUT.txt index 545367d9f..7f366091a 100644 --- a/internal/help/_DEVICEINPUT.txt +++ b/internal/help/_DEVICEINPUT.txt @@ -7,7 +7,7 @@ The '''_DEVICEINPUT''' function returns the device number when a controller devi : {{Parameter|device_active%}} = [[_DEVICEINPUT]]({{Parameter|device_number%}}) -{{Parameters}} +{{PageParameters}} * Use the _DEVICEINPUT {{Parameter|device%}} [[INTEGER]] returned to find the number of the controller device being used. * A literal specific {{Parameter|device_number%}} parameter can be used to return -1 if active or 0 if inactive. {{text|EX: '''WHILE _DEVICEINPUT(2)'''|green}} @@ -26,14 +26,14 @@ The '''_DEVICEINPUT''' function returns the device number when a controller devi ''Example 1:'' Checking device controller interfaces and finding out what devices are being used. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|_DEVICES}} - {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) - {{Cl|PRINT}} "Button:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) + {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + {{Cl|PRINT}} "Button:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) {{Cl|NEXT}} {{Cl|PRINT}} DO x = {{Cl|_DEVICEINPUT}} - {{Cl|IF...THEN|IF}} x {{Cl|THEN}} {{Cl|PRINT}} "Device ="; x; + {{Cl|IF...THEN|IF}} x {{Cl|THEN}} {{Cl|PRINT}} "Device ="; x; {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) 'escape key exit {{Cl|END}} '' '' @@ -54,7 +54,7 @@ Device = 2 Device = 2 {{CodeStart}} '' '' ignore = {{Cl|_MOUSEMOVEMENTX}} 'dummy call to put mouse into relative movement mode -{{Cl|PRINT}} "Move your mouse and/or your mouse wheel (ESC to exit)" +{{Cl|PRINT}} "Move your mouse and/or your mouse wheel (ESC to exit)" d = {{Cl|_DEVICES}} ' always read number of devices to enable device input DO: {{Cl|_LIMIT}} 30 'main loop @@ -69,7 +69,7 @@ DO: {{Cl|_LIMIT}} 30 'main loop ''Example 3:'' Using [[ON...GOSUB]] with the [[_DEVICEINPUT]] number to add keyboard, mouse and game controller event procedures. {{CodeStart}} '' '' n = {{Cl|_DEVICES}} 'required when reading devices -{{Cl|PRINT}} "Number of devices found ="; n +{{Cl|PRINT}} "Number of devices found ="; n {{Cl|FOR...NEXT|FOR}} i = 1 TO n PRINT i; _DEVICE$(i) ' 1 = keyboard, 2 = mouse, 3 = other controller, etc. {{Cl|NEXT}} @@ -81,15 +81,15 @@ n = {{Cl|_DEVICES}} 'required when reading devices {{Cl|END}} keyboard: -{{Cl|PRINT}} device; "Keyboard"; +{{Cl|PRINT}} device; "Keyboard"; {{Cl|RETURN}} mouse: -{{Cl|PRINT}} device; "Mouse "; +{{Cl|PRINT}} device; "Mouse "; {{Cl|RETURN}} controller: -{{Cl|PRINT}} device; "Game control "; +{{Cl|PRINT}} device; "Game control "; {{Cl|RETURN}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} @@ -105,4 +105,4 @@ controller: * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DEVICES.txt b/internal/help/_DEVICES.txt index 2b748d0a4..63b5ab05e 100644 --- a/internal/help/_DEVICES.txt +++ b/internal/help/_DEVICES.txt @@ -16,10 +16,10 @@ The [[_DEVICES]] function returns the number of INPUT devices on your computer i ''Example:'' Checking for the system's input devices. {{CodeStart}} '' '' devices = {{Cl|_DEVICES}} 'MUST be read in order for other 2 device functions to work! -PRINT "Number of input devices found ="; devices +PRINT "Number of input devices found ="; devices FOR i = 1 TO devices PRINT {{Cl|_DEVICE$}}(i) - PRINT "Buttons:"; {{Cl|_LASTBUTTON}}(i) + PRINT "Buttons:"; {{Cl|_LASTBUTTON}}(i) NEXT '' '' {{CodeEnd}} {{OutputStart}}Number of input devices found = 2 @@ -42,4 +42,4 @@ Buttons: 3 * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/DIR$.txt b/internal/help/_DIR$.txt similarity index 59% rename from internal/help/DIR$.txt rename to internal/help/_DIR$.txt index 6fc694ff1..6219f9fa0 100644 --- a/internal/help/DIR$.txt +++ b/internal/help/_DIR$.txt @@ -3,11 +3,11 @@ The [[_DIR$]] function returns common paths in '''Windows''' only such as My Doc {{PageSyntax}} -: {{Parameter|d$}} = [[_DIR$]]("{{Parameter|folderspecification}}") +: {{Parameter|d$}} = [[_DIR$]]("{{Parameter|folderspecification}}") -{{Parameters}} -* ''folderspecification'' may be "desktop", "download", "documents", "music", "video", "pictures", "appdata", "program data", "local data". +{{PageParameters}} +* ''folderspecification'' may be "desktop", "download", "documents", "music", "video", "pictures", "appdata", "program data", "local data", "program files", "program files (x86)", "temp". * Some variation is accepted for the folder specification: :: MY DOCUMENTS, TEXT, DOCUMENT, DOCUMENTS, DOWNLOAD, DOWNLOADS :: MY MUSIC, MUSIC, AUDIO, SOUND, SOUNDS @@ -19,19 +19,19 @@ The [[_DIR$]] function returns common paths in '''Windows''' only such as My Doc {{PageDescription}} * The path returned ends with a backslash (Windows). * A nonexistent folder specification usually defaults to the Desktop folder path. -* In Linux and macOS the function always returns '''"./"''' +* In Linux and macOS the function always returns '''"./"''' {{PageExamples}} Example: Displaying default paths in Windows only. -{{CodeStart}}{{Cl|PRINT}} "DESKTOP=" + _DIR$("desktop") -{{Cl|PRINT}} "DOWNLOADS=" + {{Cl|_DIR$}}("download") -{{Cl|PRINT}} "DOCUMENTS=" + {{Cl|_DIR$}}("my documents") -{{Cl|PRINT}} "PICTURES=" + {{Cl|_DIR$}}("pictures") -{{Cl|PRINT}} "MUSIC=" + {{Cl|_DIR$}}("music") -{{Cl|PRINT}} "VIDEO=" + {{Cl|_DIR$}}("video") -{{Cl|PRINT}} "APPLICATION DATA=" + {{Cl|_DIR$}}("data") -{{Cl|PRINT}} "LOCAL APPLICATION DATA=" + {{Cl|_DIR$}}("local application data" +{{CodeStart}}{{Cl|PRINT}} "DESKTOP=" + _DIR$("desktop") +{{Cl|PRINT}} "DOWNLOADS=" + {{Cl|_DIR$}}("download") +{{Cl|PRINT}} "DOCUMENTS=" + {{Cl|_DIR$}}("my documents") +{{Cl|PRINT}} "PICTURES=" + {{Cl|_DIR$}}("pictures") +{{Cl|PRINT}} "MUSIC=" + {{Cl|_DIR$}}("music") +{{Cl|PRINT}} "VIDEO=" + {{Cl|_DIR$}}("video") +{{Cl|PRINT}} "APPLICATION DATA=" + {{Cl|_DIR$}}("data") +{{Cl|PRINT}} "LOCAL APPLICATION DATA=" + {{Cl|_DIR$}}("local application data") {{CodeEnd}} {{OutputStart}}DESKTOP=C:\Documents and Settings\Administrator\Desktop\ DOWNLOADS=C:\Documents and Settings\Administrator\Downloads\ @@ -49,4 +49,4 @@ LOCAL APPLICATION DATA=C:\Documents and Settings\Administrator\Local Settings\Ap * [[_STARTDIR$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DIREXISTS.txt b/internal/help/_DIREXISTS.txt index f8ead5769..937d9907a 100644 --- a/internal/help/_DIREXISTS.txt +++ b/internal/help/_DIREXISTS.txt @@ -12,14 +12,13 @@ The [[_DIREXISTS]] function determines if a designated file path or folder exist * The function reads the system information directly without using a [[SHELL]] procedure. * The function will use the appropriate Operating System path separators. [[_OS$]] can determine the operating system. * '''This function does not guarantee that a path can be accessed, only that it exists.''' -* '''NOTE: Checking if a folder exists in a CD drive may cause the tray to open automatically to request a disk when empty.''' To find drives in Windows, use this API Library: [http://www.qb64.net/wiki/index.php/Windows_Libraries#Disk_Drives Disk Drives] - +* '''NOTE: Checking if a folder exists in a CD drive may cause the tray to open automatically to request a disk when empty.''' {{PageExamples}} {{Parameter|Example:'' Checks if a folder exists before proceeding. {{CodeStart}} -{{Cl|IF}} {{Cl|_DIREXISTS}}("internal\temp") THEN - {{Cl|PRINT}} "Folder found." +{{Cl|IF}} {{Cl|_DIREXISTS}}("internal\temp") THEN + {{Cl|PRINT}} "Folder found." {{Cl|END IF}} {{CodeEnd}}}} @@ -30,4 +29,4 @@ The [[_DIREXISTS]] function determines if a designated file path or folder exist * [[_OS$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DISPLAY.txt b/internal/help/_DISPLAY.txt index 09f288cd9..46da5483d 100644 --- a/internal/help/_DISPLAY.txt +++ b/internal/help/_DISPLAY.txt @@ -24,9 +24,9 @@ dx = 3: dy = 3 'number of pixel moves per loop {{Cl|DO}} {{Cl|_LIMIT}} 100 ' set to 100 frames per second x = x + dx: y = y + dy - {{Cl|IF...THEN|IF}} x < 0 {{Cl|OR}} x > 640 {{Cl|THEN}} dx = -dx 'limit columns and reverse column direction each side - {{Cl|IF...THEN|IF}} y < 0 {{Cl|OR}} y > 480 {{Cl|THEN}} dy = -dy 'limit rows and reverse row direction top or bottom - IF px <> x OR py <> y THEN FOR d = 1 to 20: CIRCLE (px, py), d, 0: NEXT 'erase + {{Cl|IF...THEN|IF}} x < 0 {{Cl|OR}} x > 640 {{Cl|THEN}} dx = -dx 'limit columns and reverse column direction each side + {{Cl|IF...THEN|IF}} y < 0 {{Cl|OR}} y > 480 {{Cl|THEN}} dy = -dy 'limit rows and reverse row direction top or bottom + IF px <> x OR py <> y THEN FOR d = 1 to 20: CIRCLE (px, py), d, 0: NEXT 'erase FOR c = 1 TO 20: {{Cl|CIRCLE}} (x, y), c, 6: NEXT 'draw new circle at new position px = x: py = y 'save older coordinates to erase older circle next loop {{Cl|_DISPLAY}} 'after new circle is set, show it @@ -48,7 +48,7 @@ DO {{Cl|_LIMIT}} 30 DisplayMenu k = {{Cl|_KEYHIT}} - {{Cl|IF...THEN|IF}} k <> 0 {{Cl|THEN}} {{Cl|PRINT}} k, + {{Cl|IF...THEN|IF}} k <> 0 {{Cl|THEN}} {{Cl|PRINT}} k, {{Cl|LOOP}} {{Cl|UNTIL}} k = 32 {{Cl|OR (boolean)|OR}} k = 27 @@ -59,7 +59,7 @@ DO MS = {{Cl|_NEWIMAGE}}(640, MenuHeight, 32) 'MenuScreen image D = {{Cl|_DEST}}: {{Cl|_DEST}} MS {{Cl|CLS}} , {{Cl|&H}}FFAAAAAA 'background color gray - {{Cl|_PRINTSTRING}} (20, 2), "Menu Test" 'image text + {{Cl|_PRINTSTRING}} (20, 2), "Menu Test" 'image text MS_HW = {{Cl|_COPYIMAGE}}(MS, 33) 'create the MenuScreen_HardWare image {{Cl|_FREEIMAGE}} MS {{Cl|_DEST}} D @@ -79,4 +79,4 @@ DO * [[PCOPY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DISPLAYORDER.txt b/internal/help/_DISPLAYORDER.txt index aad5b1933..9d869e9ea 100644 --- a/internal/help/_DISPLAYORDER.txt +++ b/internal/help/_DISPLAYORDER.txt @@ -6,7 +6,7 @@ The [[_DISPLAYORDER]] statement defines the order to render software, hardware a : [[_DISPLAYORDER]] [{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}][, ...][, ...][, ...][, ...] -{{Parameters}} +{{PageParameters}} * _SOFTWARE refers to software created surfaces or [[SCREEN]]s. * _HARDWARE and _HARDWARE1 refer to surfaces created by OpenGL hardware acceleration. * _GLRENDER refers to OpenGL code rendering order @@ -16,7 +16,7 @@ The [[_DISPLAYORDER]] statement defines the order to render software, hardware a * The default on program start is: _DISPLAYORDER _SOFTWARE, _HARDWARE, _GLRENDER, _HARDWARE1 * Any content or combination order is allowed, except listing the same content twice consecutively. * Simply using [[_DISPLAYORDER]] _HARDWARE will render hardware surfaces only. -* Use an [[underscore]] to continue a code line on a new text row in the [[IDE]]. +* Use an [[underscore]] to continue a code line on a new text row in the IDE. * After _DISPLAYORDER has been used, it must be used to make any changes, even to default. @@ -25,8 +25,8 @@ The [[_DISPLAYORDER]] statement defines the order to render software, hardware a * Rendering the same content twice consecutively in a combination is not allowed. -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageSeeAlso}} @@ -37,4 +37,4 @@ The [[_DISPLAYORDER]] statement defines the order to render software, hardware a * [[Hardware images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DISPLAY_(function).txt b/internal/help/_DISPLAY_(function).txt index 513cb94f9..03e919336 100644 --- a/internal/help/_DISPLAY_(function).txt +++ b/internal/help/_DISPLAY_(function).txt @@ -17,7 +17,7 @@ The [[_DISPLAY]] function returns the handle of the current image that is displa {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) 'any graphics mode should work without setting up pages {{Cl|_MOUSEHIDE}} SetupCursor -{{Cl|PRINT}} "Hello World!" +{{Cl|PRINT}} "Hello World!" {{Cl|DO}}: {{Cl|_LIMIT}} 30 {{Cl|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}}: {{Cl|LOOP}} 'main loop must contain _MOUSEINPUT ' other program code @@ -31,7 +31,7 @@ SetupCursor {{Cl|SUB}} UpdateCursor {{Cl|PCOPY}} {{Cl|_DISPLAY (function)|_DISPLAY}}, 100 'any page number as desination with the _DISPLAY function as source {{Cl|PSET}} ({{Cl|_MOUSEX}}, {{Cl|_MOUSEY}}), {{Cl|_RGB}}(0, 255, 0) -{{Cl|DRAW}} "ND10F10L3F5L4H5L3" +{{Cl|DRAW}} "ND10F10L3F5L4H5L3" {{Cl|_DISPLAY}} 'statement shows image {{Cl|PCOPY}} 100, {{Cl|_DISPLAY (function)|_DISPLAY}} 'with the function return as destination page {{Cl|END SUB}} '' '' @@ -47,4 +47,4 @@ SetupCursor * [[_DISPLAYORDER]] {{text|(statement)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DONTBLEND.txt b/internal/help/_DONTBLEND.txt index 4f79a2257..8fd04fa84 100644 --- a/internal/help/_DONTBLEND.txt +++ b/internal/help/_DONTBLEND.txt @@ -6,15 +6,16 @@ The [[_DONTBLEND]] statement turns off 32 bit alpha blending for the current ima : [[_DONTBLEND]] [{{Parameter|imageHandle&}}] -{{Parameters}} +{{PageParameters}} * If {{Parameter|imageHandle&}} is omitted, it is assumed to be the current [[_DEST]]ination write page. {{PageDescription}} * If {{Parameter|imageHandle&}} is not valid, an [[ERROR Codes|Invalid handle]] error will occur. -* [[_DONTBLEND]] is faster than the default [[_BLEND]] unless you really need to use it in 32 bit. +* [[_DONTBLEND]] is faster than the default [[_BLEND]]. '''You may want to disable it''', unless you really need to use it in 32 bit. * '''32 bit screen surface backgrounds (black) have zero [[_ALPHA]] so that they are transparent when placed over other surfaces.''' -* Use [[CLS]] or [[_DONTBLEND]] to make a new surface background [[_ALPHA]] 255 or opaque. +* Use [[CLS]] to make a new surface background [[_ALPHA]] 255 or opaque. +* Both [[_SOURCE]] and [[_DEST]] must have [[_BLEND]] enabled, or else colors will NOT blend. {{PageExamples}} @@ -28,9 +29,9 @@ The [[_DONTBLEND]] statement turns off 32 bit alpha blending for the current ima b& = SaveBackground& -{{Cl|PRINT}} "This is just test junk" +{{Cl|PRINT}} "This is just test junk" {{Cl|PRINT}} -{{Cl|PRINT}} "Hit any key and the text should disappear, leaving us our pretty yellow box." +{{Cl|PRINT}} "Hit any key and the text should disappear, leaving us our pretty yellow box." {{Cl|SLEEP}} RestoreBackground b& @@ -41,7 +42,7 @@ SaveBackground& = {{Cl|_COPYIMAGE}}(0) {{Cl|END FUNCTION}} {{Cl|SUB}} RestoreBackground (Image {{Cl|AS}} {{Cl|LONG}}) -{{Cl|_PUTIMAGE}} (200, 200), Image, 0 +{{Cl|_PUTIMAGE}} , Image, 0 {{Cl|END SUB}} '' '' {{CodeEnd}} @@ -98,4 +99,4 @@ ph = 0 * [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DONTWAIT.txt b/internal/help/_DONTWAIT.txt index 08d51a18a..60aef2bc1 100644 --- a/internal/help/_DONTWAIT.txt +++ b/internal/help/_DONTWAIT.txt @@ -10,13 +10,13 @@ *Runs the command/program specified in {{Parameter|commandline$}} and lets the calling program continue at the same time in its current screen format. *Especially useful when CMD /C or START is used in a SHELL command line to run another program. * '''QB64''' automatically uses CMD /C or COMMAND /C when using SHELL. -* '''QB64''' program screens will not get distorted or minimized like Qbasic fullscreen modes would. +* '''QB64''' program screens will not get distorted or minimized like QBasic fullscreen modes would. {{PageExamples}} {{CodeStart}} -{{Cl|SHELL}} {{Cl|_DONTWAIT}} "notepad " + filename$ +{{Cl|SHELL}} {{Cl|_DONTWAIT}} "notepad " + filename$ {{Cl|FOR...NEXT|FOR}} x = 1 {{Cl|TO}} 5 {{Cl|_LIMIT}} 1 @@ -38,4 +38,4 @@ * [[SHELL]], [[_HIDE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_DROPPEDFILE.txt b/internal/help/_DROPPEDFILE.txt new file mode 100644 index 000000000..6c8187f85 --- /dev/null +++ b/internal/help/_DROPPEDFILE.txt @@ -0,0 +1,63 @@ +{{DISPLAYTITLE:_DROPPEDFILE}} +The [[_DROPPEDFILE]] function returns the list of items (files or folders) dropped in a program's window after [[_ACCEPTFILEDROP]] is enabled. + + +{{PageSyntax}} +''Syntax 1'' +: {{Parameter|nextItem$}} = [[_DROPPEDFILE]] + +''Syntax 2'' +: {{Parameter|nextItem$}} = [[_DROPPEDFILE]]({{Parameter|index&}}) + +{{PageDescription}} +* After [[_ACCEPTFILEDROP]] is enabled, once [[_TOTALDROPPEDFILES]] is greater than 0 the list of dropped items will be available for retrieval with [[_DROPPEDFILE]] +* When using [[_DROPPEDFILE]] to read the list sequentially (without specifying an ''index&''), an empty string ("") indicates the list is over and then [[_TOTALDROPPEDFILES]] gets reset to 0. +* When using [[_DROPPEDFILE]] with an index (which goes from 1 to [[_TOTALDROPPEDFILES]]), you must call [[_FINISHDROP]] after you finish working with the list. +* Because it returns a string, [[_DROPPEDFILE]] also accepts being followed by a string suffix ([[_DROPPEDFILE]]'''$''') +* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]]'''. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +''Example:'' Accepting files dragged from a folder and processing the list received by specifying an index. +{{CodeStart}} +{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(128, 25, 0) + +{{Cl|_ACCEPTFILEDROP}} 'enables drag/drop functionality +{{Cl|PRINT}} "Drag files from a folder and drop them in this window..." + +{{Cl|DO}} + {{Cl|IF}} {{Cl|_TOTALDROPPEDFILES}} {{Cl|THEN}} + {{Cl|FOR}} i = 1 {{Cl|TO}} {{Cl|_TOTALDROPPEDFILES}} + a$ = {{Cl|_DROPPEDFILE}}(i) + {{Cl|COLOR}} 15 + {{Cl|PRINT}} i, + {{Cl|IF}} {{Cl|_FILEEXISTS}}(a$) {{Cl|THEN}} + {{Cl|COLOR}} 2: {{Cl|PRINT}} "file", + {{Cl|ELSE}} + {{Cl|IF}} {{Cl|_DIREXISTS}}(a$) {{Cl|THEN}} + {{Cl|COLOR}} 3: {{Cl|PRINT}} "folder", + {{Cl|ELSE}} + {{Cl|COLOR}} 4: {{Cl|PRINT}} "not found", 'highly unlikely, but who knows? + {{Cl|END IF}} + {{Cl|END IF}} + {{Cl|COLOR}} 15 + {{Cl|PRINT}} a$ + {{Cl|NEXT}} + {{Cl|_FINISHDROP}} + {{Cl|END IF}} + + {{Cl|_LIMIT}} 30 +{{Cl|LOOP}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_ACCEPTFILEDROP]], [[_TOTALDROPPEDFILES]], [[_FINISHDROP]] +* [[_FILEEXISTS]], [[_DIREXISTS]] + + +{{PageNavigation}} diff --git a/internal/help/_ECHO.txt b/internal/help/_ECHO.txt new file mode 100644 index 000000000..7b354d899 --- /dev/null +++ b/internal/help/_ECHO.txt @@ -0,0 +1,32 @@ +{{DISPLAYTITLE:_ECHO}} +The [[_ECHO]] statement allows outputting text to a [[$CONSOLE]] window without having to alternate between [[_DEST]] pages. + + +{{PageSyntax}} +: [[_ECHO]] {''"text to output"'' | {{Parameter|textVariable$}}} + + +{{PageDescription}} +* [[_ECHO]] is a shorthand to saving current [[_DEST]], switching to [[_DEST]] [[_CONSOLE]], [[PRINT]]ing, then switching back to the previous [[_DEST]]. +* To output numbers, use the [[STR$]] function. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +{{CodeStart}} +{{Cl|$CONSOLE}} +{{Cl|PRINT}} "this will show in the main window" +{{Cl|_ECHO}} "this will show in the console" +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_DEST]] +* [[$CONSOLE]], [[_CONSOLE]] +* [[STR$]] + + +{{PageNavigation}} diff --git a/internal/help/_ENVIRONCOUNT.txt b/internal/help/_ENVIRONCOUNT.txt new file mode 100644 index 000000000..312c0fdb0 --- /dev/null +++ b/internal/help/_ENVIRONCOUNT.txt @@ -0,0 +1,21 @@ +{{DISPLAYTITLE:_ENVIRONCOUNT}} +The [[_ENVIRONCOUNT]] function returns the number of items (key/value pairs) currently stored in the system environment variables table. + + +{{PageSyntax}} +: {{Parameter|totalKeys&}} = [[_ENVIRONCOUNT]] + + +{{PageDescription}} +* Any changes made at runtime to the environment table are discarded when your program ends + + +{{PageAvailability}} +* Version 2.0 and up. + + +{{PageSeeAlso}} +* [[ENVIRON$]], [[ENVIRON]] + + +{{PageNavigation}} diff --git a/internal/help/_ERRORLINE.txt b/internal/help/_ERRORLINE.txt index 8bbb93697..1e190e8ef 100644 --- a/internal/help/_ERRORLINE.txt +++ b/internal/help/_ERRORLINE.txt @@ -9,7 +9,7 @@ The [[_ERRORLINE]] function returns the source code line number that caused the {{PageDescription}} * Used in program error troubleshooting. * Does not require that the program use line numbers as it counts the actual lines of code. -* The code line can be found using the QB64 [[IDE]] (Use the shortcut '''Ctrl+G''' to go to a specific line) or any other text editor such as Notepad. +* The code line can be found using the QB64 IDE (Use the shortcut '''Ctrl+G''' to go to a specific line) or any other text editor such as Notepad. {{PageExamples}} @@ -28,10 +28,10 @@ DebugLine: {{PageSeeAlso}} * [[ON ERROR]] -* [[_INCLERRORLINE]], [[_INCLERRORFILE$]] +* [[_INCLERRORLINE]], [[_INCLERRORFILE$]], [[_ERRORMESSAGE$]] * [[ERR]], [[ERL]] * [[ERROR]] * [[ERROR Codes]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ERRORMESSAGE$.txt b/internal/help/_ERRORMESSAGE$.txt new file mode 100644 index 000000000..a581e329f --- /dev/null +++ b/internal/help/_ERRORMESSAGE$.txt @@ -0,0 +1,42 @@ +{{DISPLAYTITLE:_ERRORMESSAGE$}} +The [[_ERRORMESSAGE$]] function returns a human-readable description of the most recent runtime error, or the description of an arbitrary error code passed to it. + + +{{PageSyntax}} +:{{Parameter|e$}} = [[_ERRORMESSAGE$]] +:{{Parameter|e$}} = [[_ERRORMESSAGE$]]({{Parameter|errorCode%}}) + + +{{PageDescription}} +* Used in program error troubleshooting. +* The message returned is identical to the message shown in the dialog box that appears if your program has no error handler. See [[ERROR Codes]] for the full list of error codes and their messages. + +{{PageExamples}} +''Example 1:'' Using an error handler that ignores any error. + +{{CodeStart}} '' '' + {{Cl|ON ERROR}} {{Cl|GOTO}} Errhandler + ' Main module program error simulation code + {{Cl|ERROR}} 7 ' simulate an Out of Memory Error + PRINT "Error handled...ending program" + {{Cl|SLEEP}} 4 + {{Cl|SYSTEM}} ' end of program code + + Errhandler: 'error handler sub program line label + PRINT "Error"; {{Cl|ERR}}; "on program file line"; {{Cl|_ERRORLINE}} + PRINT "Description: "; {{Cl|_ERRORMESSAGE$}}; "." + {{Cl|BEEP}} ' warning beep + {{Cl|RESUME}} NEXT ' moves program to code following the error. '' '' +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[ON ERROR]] +* [[_ERRORLINE]] +* [[_INCLERRORLINE]], [[_INCLERRORFILE$]] +* [[ERR]], [[ERL]] +* [[ERROR]] +* [[ERROR Codes]] + + +{{PageNavigation}} diff --git a/internal/help/_EXIT_(function).txt b/internal/help/_EXIT_(function).txt index b2f865811..9a35a5178 100644 --- a/internal/help/_EXIT_(function).txt +++ b/internal/help/_EXIT_(function).txt @@ -25,22 +25,22 @@ The [[_EXIT]] function prevents the user from closing a program and indicates if q = {{Cl|_EXIT (function)|_EXIT}} 'function read prevents any program exit at start of program {{Cl|ON TIMER (n)|ON TIMER}}(5) {{Cl|GOSUB}} quit {{Cl|TIMER}} ON -{{Cl|PRINT}} " The Timer will check for exit request every 5 seconds." -{{Cl|PRINT}} "Click the X box and/or Ctrl - Break to see the {{Cl|_EXIT (function)|_EXIT}} return!" -{{Cl|PRINT}} " Any Key Quits" +{{Cl|PRINT}} " The Timer will check for exit request every 5 seconds." +{{Cl|PRINT}} "Click the X box and/or Ctrl - Break to see the {{Cl|_EXIT (function)|_EXIT}} return!" +{{Cl|PRINT}} " Any Key Quits" {{Cl|PRINT}} {{Cl|DO}}: {{Cl|_LIMIT}} 30 ' ' simulated program loop -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} quit: q = {{Cl|_EXIT (function)|_EXIT}} {{Cl|IF}} q {{Cl|THEN}} {{Cl|PRINT}} q; {{Cl|SELECT CASE}} q - {{Cl|CASE}} 1: {{Cl|PRINT}} "= X button was clicked" - {{Cl|CASE}} 2: {{Cl|PRINT}} "= Ctrl + Break keypress" - {{Cl|CASE}} 3: {{Cl|PRINT}} "= Both X and Ctrl + Break!" + {{Cl|CASE}} 1: {{Cl|PRINT}} "= X button was clicked" + {{Cl|CASE}} 2: {{Cl|PRINT}} "= Ctrl + Break keypress" + {{Cl|CASE}} 3: {{Cl|PRINT}} "= Both X and Ctrl + Break!" {{Cl|END SELECT}} {{Cl|RETURN}} '' '' @@ -50,12 +50,12 @@ q = {{Cl|_EXIT (function)|_EXIT}} ''Example 2:'' Removing temporary files before closing a program upon a user's exit request. {{CodeStart}} '' '' x = {{Cl|_EXIT}} 'initial function call blocks a user exit -OPEN "t3mpdata.tmp" FOR APPEND AS #1 +OPEN "t3mpdata.tmp" FOR APPEND AS #1 DO -IF {{Cl|_EXIT}} THEN {{Cl|CLOSE}}: {{Cl|KILL}} "t3mpdata.tmp": {{Cl|_DELAY}} 1: {{Cl|SYSTEM}} '' '' +IF {{Cl|_EXIT}} THEN {{Cl|CLOSE}}: {{Cl|KILL}} "t3mpdata.tmp": {{Cl|_DELAY}} 1: {{Cl|SYSTEM}} '' '' LOOP '' '' {{CodeEnd}} -<center>{{text|Note: If you have a file named ''t3mpdata.tmp'' change the file name!|red}}</center> +<center>{{text|Note: If you have a file named ''t3mpdata.tmp'' change the file name!|red}}</center> {{PageSeeAlso}} @@ -64,4 +64,4 @@ LOOP '' '' * [[EXIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FILEEXISTS.txt b/internal/help/_FILEEXISTS.txt index 183ec51ad..4f7340bcc 100644 --- a/internal/help/_FILEEXISTS.txt +++ b/internal/help/_FILEEXISTS.txt @@ -17,8 +17,8 @@ The '''_FILEEXISTS''' function determines if a designated file name exists and r {{PageExamples}} {{Parameter|Example:'' Checks if a file exists before opening it. {{CodeStart}} -{{Cl|IF}} {{Cl|_FILEEXISTS}}("mysettings.ini") THEN - {{Cl|PRINT}} "Settings file found." +{{Cl|IF}} {{Cl|_FILEEXISTS}}("mysettings.ini") THEN + {{Cl|PRINT}} "Settings file found." {{Cl|END IF}} {{CodeEnd}}}} @@ -29,4 +29,4 @@ The '''_FILEEXISTS''' function determines if a designated file name exists and r * [[KILL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FINISHDROP.txt b/internal/help/_FINISHDROP.txt new file mode 100644 index 000000000..b34083c85 --- /dev/null +++ b/internal/help/_FINISHDROP.txt @@ -0,0 +1,56 @@ +{{DISPLAYTITLE:_FINISHDROP}} +The [[_FINISHDROP]] statement resets [[_TOTALDROPPEDFILES]] and clears the [[_DROPPEDFILE]] list of items (files/folders). + + +{{PageSyntax}} +: [[_FINISHDROP]] + +{{PageDescription}} +* When using [[_DROPPEDFILE]] with an index (which goes from 1 to [[_TOTALDROPPEDFILES]]), you must call [[_FINISHDROP]] after you finish working with the list in order to prepare for the next drag/drop operation. +* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]]'''. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +''Example:'' Accepting files dragged from a folder and processing the list received by specifying an index. +{{CodeStart}} +{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(128, 25, 0) + +{{Cl|_ACCEPTFILEDROP}} 'enables drag/drop functionality +{{Cl|PRINT}} "Drag files from a folder and drop them in this window..." + +{{Cl|DO}} + {{Cl|IF}} {{Cl|_TOTALDROPPEDFILES}} {{Cl|THEN}} + {{Cl|FOR}} i = 1 {{Cl|TO}} {{Cl|_TOTALDROPPEDFILES}} + a$ = {{Cl|_DROPPEDFILE}}(i) + {{Cl|COLOR}} 15 + {{Cl|PRINT}} i, + {{Cl|IF}} {{Cl|_FILEEXISTS}}(a$) {{Cl|THEN}} + {{Cl|COLOR}} 2: {{Cl|PRINT}} "file", + {{Cl|ELSE}} + {{Cl|IF}} {{Cl|_DIREXISTS}}(a$) {{Cl|THEN}} + {{Cl|COLOR}} 3: {{Cl|PRINT}} "folder", + {{Cl|ELSE}} + {{Cl|COLOR}} 4: {{Cl|PRINT}} "not found", 'highly unlikely, but who knows? + {{Cl|END IF}} + {{Cl|END IF}} + {{Cl|COLOR}} 15 + {{Cl|PRINT}} a$ + {{Cl|NEXT}} + {{Cl|_FINISHDROP}} 'If _FINISHDROP isn't called here then _TOTALDROPPEDFILES never gets reset. + {{Cl|END IF}} + + {{Cl|_LIMIT}} 30 +{{Cl|LOOP}} +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_ACCEPTFILEDROP]], [[_TOTALDROPPEDFILES]], [[_DROPPEDFILE]] +* [[_FILEEXISTS]], [[_DIREXISTS]] + + +{{PageNavigation}} diff --git a/internal/help/_FLOAT.txt b/internal/help/_FLOAT.txt index 789cd89eb..10e08c8f5 100644 --- a/internal/help/_FLOAT.txt +++ b/internal/help/_FLOAT.txt @@ -27,4 +27,4 @@ * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FONT.txt b/internal/help/_FONT.txt index e97a416ec..708edc33d 100644 --- a/internal/help/_FONT.txt +++ b/internal/help/_FONT.txt @@ -6,7 +6,7 @@ The [[_FONT]] statement sets the current [[_LOADFONT]] function font handle to b : [[_FONT]] {{Parameter|fontHandle&}}[, {{Parameter|imageHandle&}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|fontHandle&}} is the handle retrieved from [[_LOADFONT]] function, the [[_FONT (function)|_FONT]] function, or a predefined handle. * If the image handle is omitted the current image [[_DEST]]ination is used. Zero can designate the current program [[SCREEN]]. @@ -20,7 +20,7 @@ The [[_FONT]] statement sets the current [[_LOADFONT]] function font handle to b * [[Unicode]] characters can be assigned to a monospace font that contains those unicode characters using the [[_MAPUNICODE]] TO [[ASCII]] mapping statement. The optional '''IME cyberbit.ttf''' font included with QB64 can also be used. * Can alpha blend a font with a background screen created by [[_NEWIMAGE]] in 32 bit color. * '''Check for valid handle values greater than 0 before using or freeing font handles.''' -* Free '''unused''' font handles with [[_FREEFONT]]. Freeing invalid handles will create an [[ERROR Codes|"illegal function call"]] error. +* Free '''unused''' font handles with [[_FREEFONT]]. Freeing invalid handles will create an [[ERROR Codes|"illegal function call"]] error. * '''NOTE: SCREEN 0 can only use one font type and style per viewed SCREEN page. Font size may also affect the window size.''' @@ -28,45 +28,45 @@ The [[_FONT]] statement sets the current [[_LOADFONT]] function font handle to b ''Example:'' Previewing a font in SCREEN 0. A different true type font can be substituted below. {{CodeStart}} -fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path. +fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path. {{Cl|DO}}: {{Cl|CLS}} {{Cl|DO}} - style$ = "MONOSPACE" + style$ = "MONOSPACE" {{Cl|PRINT}} - {{Cl|INPUT}} "Enter A FONT Size 8 {{Cl|TO}} 25: ", fontsize% - {{Cl|LOOP}} {{Cl|UNTIL}} fontsize% > 7 and fontsize% < 26 + {{Cl|INPUT}} "Enter A FONT Size 8 {{Cl|TO}} 25: ", fontsize% + {{Cl|LOOP}} {{Cl|UNTIL}} fontsize% > 7 and fontsize% < 26 {{Cl|DO}} {{Cl|PRINT}} - {{Cl|INPUT}} "Enter (0) for REGULAR {{Cl|OR}} (1) for ITALIC FONT: ", italic% + {{Cl|INPUT}} "Enter (0) for REGULAR {{Cl|OR}} (1) for ITALIC FONT: ", italic% {{Cl|LOOP}} {{Cl|UNTIL}} italic% = 0 or italic% = 1 {{Cl|DO}} {{Cl|PRINT}} - {{Cl|INPUT}} "Enter (0) for REGULAR {{Cl|OR}} (1) for BOLD FONT: ", bold% + {{Cl|INPUT}} "Enter (0) for REGULAR {{Cl|OR}} (1) for BOLD FONT: ", bold% {{Cl|LOOP}} {{Cl|UNTIL}} italic% = 0 or italic% = 1 - {{Cl|IF}} italic% = 1 {{Cl|THEN}} style$ = style$ + ", ITALIC" - {{Cl|IF}} bold% = 1 then style$ = style$ + ", BOLD" + {{Cl|IF}} italic% = 1 {{Cl|THEN}} style$ = style$ + ", ITALIC" + {{Cl|IF}} bold% = 1 then style$ = style$ + ", BOLD" {{Cl|GOSUB}} ClearFont font& = {{Cl|_LOADFONT}}(fontpath$, fontsize%, style$) {{Cl|_FONT|_FONT }}font& {{Cl|PRINT}} - {{Cl|PRINT}} "This is your LUCON font! Want to try another STYLE?(Y/N): "; - {{Cl|DO}}: {{Cl|SLEEP}}: K$ = {{Cl|UCASE$}}({{Cl|INKEY$}}): {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "Y" {{Cl|OR}} K$ = "N" -{{Cl|LOOP}} {{Cl|UNTIL}} K$ = "N" + {{Cl|PRINT}} "This is your LUCON font! Want to try another STYLE?(Y/N): "; + {{Cl|DO}}: {{Cl|SLEEP}}: K$ = {{Cl|UCASE$}}({{Cl|INKEY$}}): {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "Y" {{Cl|OR}} K$ = "N" +{{Cl|LOOP}} {{Cl|UNTIL}} K$ = "N" {{Cl|GOSUB}} ClearFont -{{Cl|PRINT}} "This is the QB64 default {{Cl|_FONT|_FONT }}16!" +{{Cl|PRINT}} "This is the QB64 default {{Cl|_FONT|_FONT }}16!" {{Cl|END}} ClearFont: -{{Cl|IF}} font& > 0 {{Cl|THEN}} +{{Cl|IF}} font& > 0 {{Cl|THEN}} {{Cl|_FONT|_FONT }}16 'select inbuilt 8x16 default font {{Cl|_FREEFONT}} font& {{Cl|END IF}} {{Cl|RETURN}} {{CodeEnd}} -'''NOTE:''' [[ENVIRON$]]("SYSTEMROOT") returns a string value of: "C:\WINDOWS". Add the "\FONTS\" folder and the '''.TTF''' font file name. +'''NOTE:''' [[ENVIRON$]]("SYSTEMROOT") returns a string value of: "C:\WINDOWS". Add the "\FONTS\" folder and the '''.TTF''' font file name. @@ -78,4 +78,4 @@ ClearFont: * [[Windows_Libraries#Font_Dialog_Box|Windows Font Dialog Box]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FONTHEIGHT.txt b/internal/help/_FONTHEIGHT.txt index 36c5e38ac..cfbcebb2e 100644 --- a/internal/help/_FONTHEIGHT.txt +++ b/internal/help/_FONTHEIGHT.txt @@ -16,32 +16,32 @@ The [[_FONTHEIGHT]] function returns the font height of a font handle created by ''Example:'' Finding the [[_FONT|font]] or text block size of printed [[STRING|string]] characters in graphic [[SCREEN]] modes. {{CodeStart}} '' '' DO - {{Cl|INPUT}} "Enter Screen mode 1, 2 or 7 to 13 or 256, 32 for {{Cl|_NEWIMAGE}}: ", scr$ + {{Cl|INPUT}} "Enter Screen mode 1, 2 or 7 to 13 or 256, 32 for {{Cl|_NEWIMAGE}}: ", scr$ mode% = {{Cl|VAL}}(scr$) -{{Cl|LOOP}} {{Cl|UNTIL}} mode% > 0 +{{Cl|LOOP}} {{Cl|UNTIL}} mode% > 0 {{Cl|SELECT CASE}} mode% {{Cl|CASE}} 1, 2, 7 {{Cl|TO}} 13: {{Cl|SCREEN}} mode% {{Cl|CASE}} 256, 32: {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, mode%) - {{Cl|CASE ELSE}}: {{Cl|PRINT}} "Invalid mode selected!": {{Cl|END}} + {{Cl|CASE ELSE}}: {{Cl|PRINT}} "Invalid mode selected!": {{Cl|END}} {{Cl|END SELECT}} -{{Cl|INPUT}} "Enter first name of TTF font to use or hit enter for text block size: ", TTFont$ -{{Cl|IF...THEN|IF}} {{Cl|LEN}}(TTFont$) {{Cl|THEN}} {{Cl|INPUT}} "Enter font height: ", hi$ +{{Cl|INPUT}} "Enter first name of TTF font to use or hit enter for text block size: ", TTFont$ +{{Cl|IF...THEN|IF}} {{Cl|LEN}}(TTFont$) {{Cl|THEN}} {{Cl|INPUT}} "Enter font height: ", hi$ height& = {{Cl|VAL}}(hi$) -{{Cl|IF...THEN|IF}} height& > 0 {{Cl|THEN}} - fnt& = {{Cl|_LOADFONT}}("C:\Windows\Fonts\" + TTFont$ + ".ttf", height&, style$) - {{Cl|IF...THEN|IF}} fnt& <= 0 {{Cl|THEN}} {{Cl|PRINT}} "Invalid Font handle!": {{Cl|END}} +{{Cl|IF...THEN|IF}} height& > 0 {{Cl|THEN}} + fnt& = {{Cl|_LOADFONT}}("C:\Windows\Fonts\" + TTFont$ + ".ttf", height&, style$) + {{Cl|IF...THEN|IF}} fnt& <= 0 {{Cl|THEN}} {{Cl|PRINT}} "Invalid Font handle!": {{Cl|END}} {{Cl|_FONT}} fnt& {{Cl|END IF}} TextSize wide&, high& 'get the font or current screen mode's text block pixel size -{{Cl|_PRINTSTRING}} (20, 100), "Block size = " + {{Cl|CHR$}}(1) + {{Cl|STR$}}(wide&) + " X" + {{Cl|STR$}}(high&) + " " + {{Cl|CHR$}}(2) +{{Cl|_PRINTSTRING}} (20, 100), "Block size = " + {{Cl|CHR$}}(1) + {{Cl|STR$}}(wide&) + " X" + {{Cl|STR$}}(high&) + " " + {{Cl|CHR$}}(2) {{Cl|END}} {{Cl|SUB}} TextSize (TextWidth&, TextHeight&) -TextWidth& = {{Cl|_PRINTWIDTH}}("W") 'measure width of one font or text character +TextWidth& = {{Cl|_PRINTWIDTH}}("W") 'measure width of one font or text character TextHeight& = {{Cl|_FONTHEIGHT}} 'can measure normal text block heights also {{Cl|END SUB}} '' '' {{CodeEnd}} @@ -54,4 +54,4 @@ TextHeight& = {{Cl|_FONTHEIGHT}} 'can measure normal text block heights also * [[Text Using Graphics]] (Demo) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FONTWIDTH.txt b/internal/help/_FONTWIDTH.txt index 7f8ab9b8d..654489f38 100644 --- a/internal/help/_FONTWIDTH.txt +++ b/internal/help/_FONTWIDTH.txt @@ -7,8 +7,8 @@ The [[_FONTWIDTH]] function returns the font width of a MONOSPACE font handle cr * Returns the character width of the last font used if a handle is not specified. -* '''Variable width fonts always return {{Parameter|pixelWidth%}} = 0.''' Even fixed width fonts return 0 unless the [[LOADFONT|"MONOSPACE"]] style option is used. -* QB64 '''version 1.000 and up''' can load a variable width font as monospaced with the [[LOADFONT|"MONOSPACE"]] style parameter. +* '''Variable width fonts always return {{Parameter|pixelWidth%}} = 0.''' Even fixed width fonts return 0 unless the [[LOADFONT|"MONOSPACE"]] style option is used. +* QB64 '''version 1.000 and up''' can load a variable width font as monospaced with the [[LOADFONT|"MONOSPACE"]] style parameter. * The font width is generally 3/4 of the [[_FONTHEIGHT]] specified when loading the font. * In '''graphics''' [[SCREEN (statement)|screen]] modes, [[_PRINTWIDTH]] can return the total '''pixel width''' of a literal or variable [[STRING|string]] of text. @@ -20,4 +20,4 @@ The [[_FONTWIDTH]] function returns the font width of a MONOSPACE font handle cr * [[_PRINTWIDTH]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FONT_(function).txt b/internal/help/_FONT_(function).txt index 4b3710d44..f281fb6c4 100644 --- a/internal/help/_FONT_(function).txt +++ b/internal/help/_FONT_(function).txt @@ -1,9 +1,9 @@ {{DISPLAYTITLE:_FONT (function)}} -The [[_FONT]] function retrieves the font handle from the specified image handle or the current [[_DEST]]ination page's font. +The [[_FONT (function)|_FONT]] function retrieves the font handle from the specified image handle or the current [[_DEST]]ination page's font. {{PageSyntax}} -:{{Parameter|fontHandle&}} = [[_FONT]][({{Parameter|imageHandle&}})] +:{{Parameter|fontHandle&}} = [[_FONT (function)|_FONT]][({{Parameter|imageHandle&}})] {{PageDescription}} @@ -15,4 +15,4 @@ The [[_FONT]] function retrieves the font handle from the specified image handle *[[_DEST]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FREEFONT.txt b/internal/help/_FREEFONT.txt index aedd56e4d..683ba3c4d 100644 --- a/internal/help/_FREEFONT.txt +++ b/internal/help/_FREEFONT.txt @@ -23,22 +23,22 @@ The [[_FREEFONT]] statement frees a font handle that was created by [[_LOADFONT] ''Example 1:'' Previews and creates a file list of valid MONOSPACE TTF fonts by checking the [[_LOADFONT]] handle values. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 12 -path$ = "C:\WINDOWS\Fonts\" 'path to the font folder -{{Cl|SHELL}} {{Cl|_HIDE}} "DIR /b " + path$ + "\*.ttf > TTFonts.INF" -style$ = "monospace" 'set style to MONOSPACE -{{Cl|OPEN}} "TTFonts.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 'list of TTF fonts only -{{Cl|OPEN}} "TTFMono.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #2 'will hold list of valid MONOSPACE fonts +path$ = "C:\WINDOWS\Fonts\" 'path to the font folder +{{Cl|SHELL}} {{Cl|_HIDE}} "DIR /b " + path$ + "\*.ttf > TTFonts.INF" +style$ = "monospace" 'set style to MONOSPACE +{{Cl|OPEN}} "TTFonts.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 'list of TTF fonts only +{{Cl|OPEN}} "TTFMono.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|OUTPUT}} {{Cl|AS}} #2 'will hold list of valid MONOSPACE fonts {{Cl|DO}} {{Cl|UNTIL}} {{Cl|EOF}}(1): found = found + 1 {{Cl|LINE INPUT (file statement)|LINE INPUT}} #1, font$ f& ={{Cl|_LOADFONT}}(path$ + font$, 30, style$) - {{Cl|IF}} f& > 0 {{Cl|THEN}} 'check for valid handle values > 0 + {{Cl|IF}} f& > 0 {{Cl|THEN}} 'check for valid handle values > 0 OK = OK + 1 {{Cl|PRINT (file statement)|PRINT}} #2, font$ {{Cl|_FONT}} f& 'will create error if handle is invalid! - {{Cl|PRINT}} "Hello World!" + {{Cl|PRINT}} "Hello World!" {{Cl|PRINT}}: {{Cl|PRINT}}: {{Cl|PRINT}} font$; f& - {{Cl|PRINT}} "Press any key." + {{Cl|PRINT}} "Press any key." K$ = {{Cl|INPUT$}}(1) {{Cl|_FONT}} 16 'use QB64 default font to free tested font {{Cl|_FREEFONT}} f& 'returns an error if handle <= 0! @@ -48,7 +48,7 @@ style$ = "monospace" 'set style to MONOSPACE {{Cl|IF}} K$ = {{Cl|CHR$}}(27) {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|LOOP}} {{Cl|CLOSE}} -{{Cl|PRINT}}: {{Cl|PRINT}}: {{Cl|PRINT}} "Found"; found; "TTF files,"; OK; "can use Monospace," +{{Cl|PRINT}}: {{Cl|PRINT}}: {{Cl|PRINT}} "Found"; found; "TTF files,"; OK; "can use Monospace," {{Cl|END}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} @@ -59,33 +59,33 @@ Found 106 TTF files, 13 can use Monospace. ''Example 2:'' Using a _FREEFONT sub-procedure. {{CodeStart}} -fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" -style$ = "MONOSPACE, ITALIC, BOLD" +fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" +style$ = "MONOSPACE, ITALIC, BOLD" fontsize% = 20 {{Cl|_FONT|_FONT }}16 {{Cl|PRINT}} -{{Cl|PRINT}} "This is the QB64 default {{Cl|_FONT|_FONT }}16! To change, press any key!" -{{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|PRINT}} "This is the QB64 default {{Cl|_FONT|_FONT }}16! To change, press any key!" +{{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|GOSUB}} ClearFont 'call will not free anything if font& = 0 font& = {{Cl|_LOADFONT}}(fontpath$, fontsize%, style$) -{{Cl|IF}} font > 0 THEN {{Cl|_FONT|_FONT}} font& 'NEVER try to load a font value less than 1! +{{Cl|IF}} font > 0 THEN {{Cl|_FONT|_FONT}} font& 'NEVER try to load a font value less than 1! {{Cl|PRINT}} -{{Cl|PRINT}} "A NEW {{Cl|_FONT|_FONT}} style. To change to default, press any key!" -{{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|PRINT}} "A NEW {{Cl|_FONT|_FONT}} style. To change to default, press any key!" +{{Cl|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|GOSUB}} ClearFont 'call will free a valid font handle from memory {{Cl|END}} ClearFont: -{{Cl|IF}} font& > 0 {{Cl|THEN}} +{{Cl|IF}} font& > 0 {{Cl|THEN}} {{Cl|_FONT|_FONT }}16 'change used font to the QB64 8x16 default font {{Cl|_FREEFONT}} font& - {{Cl|PRINT}}: {{Cl|PRINT}} "The previous font was freed with _FREEFONT!" -{{Cl|ELSE}} : {{Cl|PRINT}}: {{Cl|PRINT}} "_FREEFONT was not used!" + {{Cl|PRINT}}: {{Cl|PRINT}} "The previous font was freed with _FREEFONT!" +{{Cl|ELSE}} : {{Cl|PRINT}}: {{Cl|PRINT}} "_FREEFONT was not used!" {{Cl|END IF}} {{Cl|RETURN}} '' '' {{CodeEnd}} @@ -96,4 +96,4 @@ ClearFont: * [[_LOADFONT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FREEIMAGE.txt b/internal/help/_FREEIMAGE.txt index 6811ca9f6..bb50e48e1 100644 --- a/internal/help/_FREEIMAGE.txt +++ b/internal/help/_FREEIMAGE.txt @@ -9,8 +9,8 @@ The '''_FREEIMAGE''' statement releases the designated file image created by the {{PageDescription}} *If {{Parameter|handle&}} is omitted, the current destination image is freed from memory. *Freeing the destination image or source image will result in the display page being selected instead. -*'''Invalid image handle values of -1 or 0 cannot be freed or an [[ERROR Codes|"Illegal Function" error]] will occur.''' Check the handle value first. -* '''[[SCREEN]] modes in use cannot be freed or an [[ERROR Codes|"Illegal Function" error]] will occur.''' Change SCREEN modes before freeing. +*'''Invalid image handle values of -1 or 0 cannot be freed or an [[ERROR Codes|"Illegal Function" error]] will occur.''' Check the handle value first. +* '''[[SCREEN]] modes in use cannot be freed or an [[ERROR Codes|"Illegal Function" error]] will occur.''' Change SCREEN modes before freeing. *Once a specific image handle is no longer used or referenced by your program, it can be freed with [[_FREEIMAGE]]. * '''Images are not deallocated when the [[SUB]] or [[FUNCTION]] they are created in ends. Free them with [[_FREEIMAGE]].''' * '''It is important to free unused or unneeded images with [[_FREEIMAGE]] to prevent memory overflow errors.''' @@ -20,7 +20,7 @@ The '''_FREEIMAGE''' statement releases the designated file image created by the {{PageExamples}} ''Example:'' Loading a program splash screen and freeing image when no longer necessary: {{CodeStart}} '' '' -s& = {{Cl|_LOADIMAGE}}("SPLASH.BMP",32) 'load 32 bit(24 BPP) image +s& = {{Cl|_LOADIMAGE}}("SPLASH.BMP",32) 'load 32 bit(24 BPP) image {{Cl|IF}} s& < -1 THEN {{Cl|SCREEN (statement)|SCREEN}} s& 'use image as a 32 bit SCREEN {{Cl|_DELAY}} 6 'display splash screen for 6 seconds {{Cl|SCREEN (statement)|SCREEN}} 0 'MUST change screen mode before freeing a SCREEN image! @@ -37,4 +37,4 @@ s& = {{Cl|_LOADIMAGE}}("SPLASH.BMP",32) 'load 32 bit(24 BPP) imag * [[_COPYIMAGE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FREETIMER.txt b/internal/help/_FREETIMER.txt index 72bd8aabc..7d1835bb3 100644 --- a/internal/help/_FREETIMER.txt +++ b/internal/help/_FREETIMER.txt @@ -16,4 +16,4 @@ The [[_FREETIMER]] function returns a free [[TIMER]] number for multiple [[ON TI * [[ON TIMER(n)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FULLSCREEN.txt b/internal/help/_FULLSCREEN.txt index 464ebd3d0..860806bea 100644 --- a/internal/help/_FULLSCREEN.txt +++ b/internal/help/_FULLSCREEN.txt @@ -6,7 +6,7 @@ The [[_FULLSCREEN]] statement attempts to make the program window fullscreen. :[[_FULLSCREEN]] [''_STRETCH | _SQUAREPIXELS| _OFF''][, ''_SMOOTH''] -{{Parameters}} +{{PageParameters}} * {{Parameter|_STRETCH}} default first choice attempts to mimic QBasic's full screens if possible. [[_FULLSCREEN (function)]] returns 1. * {{Parameter|_SQUAREPIXELS}} alternate choice enlarges the pixels into squares on some monitors. [[_FULLSCREEN (function)|_FULLSCREEN]] returns 2 * {{Parameter|_OFF}} turns _FULLSCREEN off after full screen has been enabled. [[_FULLSCREEN (function)]] returns 0. @@ -39,27 +39,27 @@ The [[_FULLSCREEN]] statement attempts to make the program window fullscreen. {{Cl|SCREEN (statement)|SCREEN}} 0 {{Cl|DO}} {{Cl|PRINT}} - {{Cl|LINE INPUT}} "Enter MODE 1) ENLARGE WINDOW 2) FULL _SQUAREPIXELS 3) FULL _STRETCH: ", WMODE$ + {{Cl|LINE INPUT}} "Enter MODE 1) ENLARGE WINDOW 2) FULL _SQUAREPIXELS 3) FULL _STRETCH: ", WMODE$ {{Cl|PRINT}} - {{Cl|IF}} WMODE$ = "1" {{Cl|THEN}} {{Cl|INPUT (file mode)|INPUT}} "SIZE 1 {{Cl|TO}} 9: ", ENLARGE% + {{Cl|IF}} WMODE$ = "1" {{Cl|THEN}} {{Cl|INPUT (file mode)|INPUT}} "SIZE 1 {{Cl|TO}} 9: ", ENLARGE% {{Cl|SELECT CASE}} ENLARGE% - {{Cl|CASE}} 1, 2, 3, 4, 5: STYLE$ = "MONOSPACE, BOLD" - {{Cl|CASE}} 6, 7, 8, 9: STYLE$ = "MONOSPACE" - {{Cl|CASE ELSE}}: STYLE$ = "MONOSPACE" + {{Cl|CASE}} 1, 2, 3, 4, 5: STYLE$ = "MONOSPACE, BOLD" + {{Cl|CASE}} 6, 7, 8, 9: STYLE$ = "MONOSPACE" + {{Cl|CASE ELSE}}: STYLE$ = "MONOSPACE" {{Cl|END SELECT}} {{Cl|SELECT CASE}} WMODE$ - {{Cl|CASE}} "1" + {{Cl|CASE}} "1" full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} - {{Cl|IF}} full > 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _OFF - f& = {{Cl|_LOADFONT}}("c:\windows\fonts\lucon.ttf", 13 + ENLARGE%, STYLE$) + {{Cl|IF}} full > 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _OFF + f& = {{Cl|_LOADFONT}}("c:\windows\fonts\lucon.ttf", 13 + ENLARGE%, STYLE$) {{Cl|_FONT}} f& - {{Cl|CASE}} "2" + {{Cl|CASE}} "2" {{Cl|_FULLSCREEN}} _SQUAREPIXELS full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} {{Cl|IF}} full = 0 {{Cl|THEN}} {{Cl|GOSUB}} FCHECK - {{Cl|CASE}} "3" + {{Cl|CASE}} "3" {{Cl|_FULLSCREEN}} _STRETCH full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} {{Cl|IF}} full = 0 {{Cl|THEN}} {{Cl|GOSUB}} FCHECK @@ -67,8 +67,8 @@ The [[_FULLSCREEN]] statement attempts to make the program window fullscreen. mode = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} {{Cl|PRINT}} - {{Cl|PRINT}} "_FULLSCREEN mode ="; mode, - {{Cl|PRINT}} "PRESS ESC {{Cl|TO}} {{Cl|END}} {{Cl|OR}} ENTER {{Cl|TO}} CONTINUE..." + {{Cl|PRINT}} "_FULLSCREEN mode ="; mode, + {{Cl|PRINT}} "PRESS ESC {{Cl|TO}} {{Cl|END}} {{Cl|OR}} ENTER {{Cl|TO}} CONTINUE..." {{Cl|DO}}: {{Cl|SLEEP}}: B$ = {{Cl|INKEY$}}: {{Cl|LOOP}} {{Cl|UNTIL}} B$ = {{Cl|CHR$}}(13) {{Cl|OR}} B$ = {{Cl|CHR$}}(27) @@ -82,14 +82,14 @@ FCHECK: Z3 = timer {{Cl|DO}} {{Cl|IF}} {{Cl|TIMER (statement)|TIMER }}< Z3 {{Cl|THEN}} Z3 = Z3 - {{Cl|TIMER}} -{{Cl|IF}} {{Cl|TIMER (statement)|TIMER }}- Z3 > 4 {{Cl|THEN}} {{Cl|EXIT DO}} +{{Cl|IF}} {{Cl|TIMER (statement)|TIMER }}- Z3 > 4 {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|LOOP}} full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} {{Cl|IF}} full = 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _{{Cl|OFF}}: {{Cl|SOUND}} 100, .75 {{Cl|RETURN}} ClearFont: -{{Cl|IF}} f& > 0 {{Cl|THEN}} +{{Cl|IF}} f& > 0 {{Cl|THEN}} {{Cl|_FONT}} 16 'select inbuilt 8x16 default font {{Cl|_FREEFONT}} f& {{Cl|END IF}} @@ -100,12 +100,12 @@ ClearFont: ''Example 3:'' Testing all fullscreen methods. {{CodeStart}} -{{Cl|PRINT}} "Hello, world!" -{{Cl|PRINT}} "Hit 1 for windowed mode; -{{Cl|PRINT}} " 2 for _STRETCH" -{{Cl|PRINT}} " 3 for _SQUAREPIXELS" -{{Cl|PRINT}} " 4 for _STRETCH, _SMOOTH" -{{Cl|PRINT}} " 5 for _SQUAREPIXELS, _SMOOTH" +{{Cl|PRINT}} "Hello, world!" +{{Cl|PRINT}} "Hit 1 for windowed mode; +{{Cl|PRINT}} " 2 for _STRETCH" +{{Cl|PRINT}} " 3 for _SQUAREPIXELS" +{{Cl|PRINT}} " 4 for _STRETCH, _SMOOTH" +{{Cl|PRINT}} " 5 for _SQUAREPIXELS, _SMOOTH" {{Cl|DO}} k$ = {{Cl|INKEY$}} {{Cl|SELECT CASE}} {{Cl|VAL}}(k$) @@ -119,7 +119,7 @@ ClearFont: {{Cl|_FULLSCREEN}} _STRETCH, _SMOOTH {{Cl|CASE}} 5 {{Cl|_FULLSCREEN}} _SQUAREPIXELS, _SMOOTH - {{Cl|END}} {{Cl|SELECT}} + {{Cl|END SELECT}} {{Cl|_LIMIT}} 30 {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|_EXIT (function)|_EXIT}} {{Cl|SYSTEM}}{{CodeEnd}} @@ -127,9 +127,10 @@ ClearFont: {{PageSeeAlso}} * [[_FULLSCREEN (function)]] +* [[_ALLOWFULLSCREEN]] * [[_FONT]], [[SCREEN]] * [[_SCREENIMAGE]] * [[_SCREENMOVE]], [[_SCREENX]], [[_SCREENY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_FULLSCREEN_(function).txt b/internal/help/_FULLSCREEN_(function).txt index da6dfcb5e..772f9e778 100644 --- a/internal/help/_FULLSCREEN_(function).txt +++ b/internal/help/_FULLSCREEN_(function).txt @@ -12,8 +12,8 @@ The [[_FULLSCREEN]] function returns the present full screen mode setting of the ** 1 = _STRETCH ** 2 = _SQUAREPIXELS * It '''cannot''' be assumed that calling [[_FULLSCREEN]] will succeed. It cannot be assumed that the type of full screen will match the requested one. '''Always check the [[_FULLSCREEN (function)]] return in your programs.''' -* '''Warning:''' Despite your software, the user's hardware, drivers and monitor may not function in some modes. Thus, it is highly recommended that you manually confirm with the user whether the switch to full screen was successful. This can be done "quietly" in some cases by getting the user to click on a button on screen with their mouse or press an unusual key. If the user does not respond after about 8 seconds, switch them back to windowed mode. -<center>'''Using large fonts with [[_FULLSCREEN]] can cause monitor or Windows Desktop problems or kill a program.'''</center> +* '''Warning:''' Despite your software, the user's hardware, drivers and monitor may not function in some modes. Thus, it is highly recommended that you manually confirm with the user whether the switch to full screen was successful. This can be done "quietly" in some cases by getting the user to click on a button on screen with their mouse or press an unusual key. If the user does not respond after about 8 seconds, switch them back to windowed mode. +<center>'''Using large fonts with [[_FULLSCREEN]] can cause monitor or Windows Desktop problems or kill a program.'''</center> {{PageExamples}} @@ -21,56 +21,56 @@ The [[_FULLSCREEN]] function returns the present full screen mode setting of the {{CodeStart}} '' '' {{Cl|CLS}} -fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path. +fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path. f& = {{Cl|_FONT (function)|_FONT}}: defaultf& = f& {{Cl|DO}} - {{Cl|INPUT}} "1) DEFAULT 2) SIZE WINDOW 3) FULL SCREEN 4) FULL STRETCHED Q) QUIT: ", winmode$ + {{Cl|INPUT}} "1) DEFAULT 2) SIZE WINDOW 3) FULL SCREEN 4) FULL STRETCHED Q) QUIT: ", winmode$ - {{Cl|IF}} {{Cl|UCASE$}}(winmode$) = "Q" {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|IF}} {{Cl|UCASE$}}(winmode$) = "Q" {{Cl|THEN}} {{Cl|EXIT DO}} - style$ = "MONOSPACE" + style$ = "MONOSPACE" {{Cl|SELECT CASE}} winmode$ - {{Cl|CASE}} "1" + {{Cl|CASE}} "1" full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} 'get current full screen mode - {{Cl|IF}} full <> 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _OFF + {{Cl|IF}} full <> 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _OFF {{Cl|GOSUB}} ChangeFont - {{Cl|CASE}} "2" + {{Cl|CASE}} "2" {{Cl|DO}} {{Cl|PRINT}} - {{Cl|INPUT}} "Enter a FONT SIZE 5 to 25: ", fontsize% - {{Cl|LOOP}} {{Cl|UNTIL}} fontsize% > 4 {{Cl|AND (boolean)|AND}} fontsize% < 26 + {{Cl|INPUT}} "Enter a FONT SIZE 5 to 25: ", fontsize% + {{Cl|LOOP}} {{Cl|UNTIL}} fontsize% > 4 {{Cl|AND (boolean)|AND}} fontsize% < 26 {{Cl|DO}} {{Cl|PRINT}} - {{Cl|INPUT}} "Enter (0) for REGULAR or (1) for ITALIC FONT: ", italic% + {{Cl|INPUT}} "Enter (0) for REGULAR or (1) for ITALIC FONT: ", italic% {{Cl|LOOP}} {{Cl|UNTIL}} italic% = 0 or italic% = 1 {{Cl|DO}} {{Cl|PRINT}} - {{Cl|INPUT}} "Enter (0) for REGULAR or (1) for BOLD FONT: ", bold% + {{Cl|INPUT}} "Enter (0) for REGULAR or (1) for BOLD FONT: ", bold% {{Cl|LOOP}} {{Cl|UNTIL}} italic% = 0 or italic% = 1 - {{Cl|IF}} italic% = 1 {{Cl|THEN}} style$ = style$ + ", ITALIC" - {{Cl|IF}} bold% = 1 {{Cl|THEN}} style$ = style$ + ", BOLD" + {{Cl|IF}} italic% = 1 {{Cl|THEN}} style$ = style$ + ", ITALIC" + {{Cl|IF}} bold% = 1 {{Cl|THEN}} style$ = style$ + ", BOLD" full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} 'get current full screen mode - {{Cl|IF}} full <> 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _OFF + {{Cl|IF}} full <> 0 {{Cl|THEN}} {{Cl|_FULLSCREEN}} _OFF {{Cl|GOSUB}} ChangeFont - {{Cl|CASE}} "3" + {{Cl|CASE}} "3" {{Cl|GOSUB}} ChangeFont {{Cl|_FULLSCREEN}} _SQUAREPIXELS {{Cl|GOSUB}} CheckFull - {{Cl|CASE}} "4" + {{Cl|CASE}} "4" {{Cl|GOSUB}} ChangeFont {{Cl|_FULLSCREEN}} _STRETCH {{Cl|GOSUB}} CheckFull {{Cl|END SELECT}} - {{Cl|PRINT}}: {{Cl|PRINT}} "_FullScreen mode ="; {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} + {{Cl|PRINT}}: {{Cl|PRINT}} "_FullScreen mode ="; {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} {{Cl|PRINT}} {{Cl|LOOP}} {{Cl|GOSUB}} ChangeFont @@ -82,7 +82,7 @@ full = {{Cl|_FULLSCREEN (function)|_FULLSCREEN}} 'get current full screen mode {{Cl|RETURN}} ChangeFont: -{{Cl|IF}} winmode$ <> "2" {{Cl|THEN}} +{{Cl|IF}} winmode$ <> "2" {{Cl|THEN}} {{Cl|_FONT}} 16 'select inbuilt 8x16 default font currentf& = {{Cl|_FONT (function)|_FONT}} {{Cl|ELSE}} @@ -90,7 +90,7 @@ ChangeFont: {{Cl|_FONT}} currentf& {{Cl|END IF}} -{{Cl|IF}} currentf& <> f& {{Cl|AND (boolean)|AND}} f& <> defaultf& {{Cl|THEN}} {{Cl|_FREEFONT}} f& +{{Cl|IF}} currentf& <> f& {{Cl|AND (boolean)|AND}} f& <> defaultf& {{Cl|THEN}} {{Cl|_FREEFONT}} f& f& = currentf& {{Cl|RETURN}} '' '' @@ -101,7 +101,8 @@ f& = currentf& {{PageSeeAlso}} * [[_FULLSCREEN]] (statement) +* [[_ALLOWFULLSCREEN]] * [[_SCREENMOVE]], [[_SCREENX]], [[_SCREENY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_G2D.txt b/internal/help/_G2D.txt index a9948f2ad..30d74c16e 100644 --- a/internal/help/_G2D.txt +++ b/internal/help/_G2D.txt @@ -6,16 +6,16 @@ The [[_G2D]] function converts a '''gradient''' value into a '''degree''' value. : {{Parameter|result}} = [[_G2D]]({{Parameter|num}}) -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} ''Example:'' Coverting Gradients into Degree. {{CodeStart}} -INPUT "Give me an angle in Gradients ", D +INPUT "Give me an angle in Gradients ", D R = _G2D(D) -PRINT "That angle in Degrees is "; R +PRINT "That angle in Degrees is "; R {{CodeEnd}} {{OutputStart}} Give me an angle in Gradients 60 @@ -29,4 +29,4 @@ That angle in Degrees is 54 * [[_R2D]], [[_R2G]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_G2R.txt b/internal/help/_G2R.txt index 803c0a09b..fdd78b13e 100644 --- a/internal/help/_G2R.txt +++ b/internal/help/_G2R.txt @@ -6,16 +6,16 @@ The [[_G2R]] function converts a '''gradient''' value into a '''radian''' value. : {{Parameter|result}} = [[_G2R]]({{Parameter|num}}) -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} ''Example:'' Coverting Gradient into Radians. {{CodeStart}} -INPUT "Give me an angle in Gradient ", D +INPUT "Give me an angle in Gradient ", D R = _G2R(D) -PRINT "That angle in Radians is "; R +PRINT "That angle in Radians is "; R {{CodeEnd}} {{OutputStart}} Give me an angle in Gradient 60 @@ -29,4 +29,4 @@ That angle in Radians is .9424778 * [[_R2D]], [[_R2G]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_GL.txt b/internal/help/_GL.txt new file mode 100644 index 000000000..be21c3b47 --- /dev/null +++ b/internal/help/_GL.txt @@ -0,0 +1,48 @@ +{{DISPLAYTITLE:_GL}} +In order to use OpenGL drawing commands, you must do so from inside a [[SUB]] procedure called '''_GL''', which enables the commands to be rendered. + + +{{PageSyntax}} +:[[SUB]] _GL +:: ''REM Your OpenGL code here +: [[END]] [[SUB]] + +{{PageDescription}} +* OpenGL commands are valid outside of '''SUB _GL''', as long as the sub procedure exists in your code. +* Attempting to use OpenGL commands without having '''SUB _GL''' in a program will result in a '''Syntax error''', even if the syntax is valid. +* SUB '''_GL''' cannot be invoked manually. The code inside it will be called automatically at approximately 60 frames per second. +* Using [[INPUT]] inside SUB '''_GL''' will crash your program. +* If your program needs to perform any operations before SUB _GL must be run, it is recommended to use a shared variable as a flag to allow SUB _GL's contents to be run. See example below. + + +==Example== + +{{CodeStart}} '' '' +{{Cl|DIM}} allowGL {{Cl|AS}} {{Cl|_BYTE}} + +'perform startup routines like loading assets + +allowGL = -1 'sets allowGL to true so SUB _GL can run + +{{Cl|DO}} + {{Cl|_LIMIT}} 1 'runs the main loop at 1 cycle per second + 'notice how the main loop doesn't do anything, as SUB _GL will be running + 'continuously. +{{Cl|LOOP}} + +{{Cl|SUB}} {{Cl|_GL}} + {{Cl|IF}} NOT allowGL {{Cl|THEN}} {{Cl|EXIT}} {{Cl|SUB}} 'used to bypass running the code below until + ' startup routines are done in the main module + + 'OpenGL code starts here + 'The code in this area will be run automatically at ~60fps +{{Cl|END}} {{Cl|SUB}} '' '' +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_GLRENDER]] +* [[SUB]] + + +{{PageNavigation}} diff --git a/internal/help/_GREEN.txt b/internal/help/_GREEN.txt index 331dc0efb..afdae45d2 100644 --- a/internal/help/_GREEN.txt +++ b/internal/help/_GREEN.txt @@ -28,4 +28,4 @@ The [[_GREEN]] function returns the palette index or the green component intensi * [[_LOADIMAGE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_GREEN32.txt b/internal/help/_GREEN32.txt index 37a3dbefd..e84b360dd 100644 --- a/internal/help/_GREEN32.txt +++ b/internal/help/_GREEN32.txt @@ -21,4 +21,4 @@ The [[_GREEN32]] function returns the green component intensity of a 32-bit imag * [[_RGB32]], [[_GREEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_HEIGHT.txt b/internal/help/_HEIGHT.txt index 92da842b2..eb91cbac2 100644 --- a/internal/help/_HEIGHT.txt +++ b/internal/help/_HEIGHT.txt @@ -1,35 +1,24 @@ {{DISPLAYTITLE:_HEIGHT}} -The [[_HEIGHT]] function returns the height of an image handle or current write page. +The [[_HEIGHT]] function returns the height of an image handle or of the current write page. {{PageSyntax}} -:''result&'' = {{KW|_HEIGHT}}[({{Parameter|imageHandle&}})] +: {{Parameter|columns&}} = [[_HEIGHT]][({{Parameter|imageHandle&}})] {{PageDescription}} -* If {{Parameter|imageHandle&}} is omitted, it's assumed to be the handle of the current write page. -* To get the width of the current program window use zero for the handle value: depth& = _HEIGHT(0) -* If the image specified by {{Parameter|imageHandle&}} is in text mode, the number of characters per column is returned. -* If the image specified by {{Parameter|imageHandle&}} is in graphics mode, the number of pixels per column is returned. -* If {{Parameter|imageHandle&}} is an invalid handle, then an [[ERROR Codes|invalid handle]] error will occur. -* The maximum pixel coordinate of a program [[SCREEN|screen]] is one less than what the function returns. +* If {{Parameter|imageHandle&}} is omitted, it's assumed to be the handle of the current [[SCREEN]] or write page. +* To get the height of the current program [[SCREEN|screen]] window use zero for the handle value or nothing: {{Parameter|lines&}} = [[_HEIGHT]](0) ''or'' {{Parameter|lines&}} = [[_HEIGHT]] +* If the image specified by {{Parameter|imageHandle&}} is in text only([[SCREEN]] 0) mode, the number of characters per row is returned. +* If the image specified by {{Parameter|imageHandle&}} is in graphics mode, the number of pixels per row is returned. +* If {{Parameter|imageHandle&}} is an invalid handle, then an [[ERROR Codes|invalid handle error]] is returned. +* The last visible pixel coordinate of a program [[SCREEN|screen]] is '''[[_HEIGHT]] - 1'''. -''Example:'' Displays the current program window area. -{{CodeStart}} '' '' -{{Cl|SCREEN}} 12 -wide = {{Cl|_WIDTH (function)|_WIDTH}} -deep = {{Cl|_HEIGHT}} - -{{Cl|PRINT}} "The program screen is"; wide; "X"; deep '' '' -{{CodeEnd}} - {{PageSeeAlso}} -* [[_WIDTH (function)]] -* [[_LOADIMAGE]] -* [[_FONTHEIGHT]] +* [[_WIDTH (function)]], [[_LOADIMAGE]], [[_NEWIMAGE]] * [[Bitmaps]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_HIDE.txt b/internal/help/_HIDE.txt index f2d6600cf..523854e53 100644 --- a/internal/help/_HIDE.txt +++ b/internal/help/_HIDE.txt @@ -8,7 +8,7 @@ The [[_HIDE]] action is used to hide the console window opened by a [[SHELL]] st {{PageDescription}} * Allows any command line window to be hidden from view without affecting the program. -* [[_HIDE]] must be used when sending ("piping") screen information to a file. +* [[_HIDE]] must be used when sending ("piping") screen information to a file. * '''Note:''' Some commands may not work without adding CMD /C to the start of the command line. @@ -17,26 +17,26 @@ The [[_HIDE]] action is used to hide the console window opened by a [[SHELL]] st {{CodeStart}} '' '' SUB LFN - IF LEN({{Cl|ENVIRON$}}("OS")) = 0 THEN EXIT SUB ' /X not available Win 9X and ME - SHELL {{Cl|_HIDE}} "cmd /c dir /x > DOS-DATA.INF" ' load display data to a file - OPEN "DOS-DATA.INF" FOR INPUT AS #1 + IF LEN({{Cl|ENVIRON$}}("OS")) = 0 THEN EXIT SUB ' /X not available Win 9X and ME + SHELL {{Cl|_HIDE}} "cmd /c dir /x > DOS-DATA.INF" ' load display data to a file + OPEN "DOS-DATA.INF" FOR INPUT AS #1 IF {{Cl|LOF}}(1) THEN - Header$ = SPACE$(10) + "Short" + SPACE$(16) + "Long" + SPACE$(20) + "Last Modified" - tmp$ = "\ \ \ \ &" ' print using template format + Header$ = SPACE$(10) + "Short" + SPACE$(16) + "Long" + SPACE$(20) + "Last Modified" + tmp$ = "\ \ \ \ &" ' print using template format COLOR 14: LOCATE 2, 4: PRINT Header$ DO UNTIL EOF(1) {{Cl|LINE INPUT}} #1, line$ - IF LEN(line$) AND MID$(line$, 1, 1) <> SPACE$(1) THEN ' ignore other file data + IF LEN(line$) AND MID$(line$, 1, 1) <> SPACE$(1) THEN ' ignore other file data cnt% = cnt% + 1 last$ = MID$(line$, 1, 20): DIR$ = MID$(line$, 26, 3) - IF MID$(line$, 40, 1) <> SPACE$(1) THEN ' found line with short and long name + IF MID$(line$, 40, 1) <> SPACE$(1) THEN ' found line with short and long name SHFN$ = MID$(line$, 40, INSTR(40, line$, SPACE$(1)) - 1) LGFN$ = MID$(line$, 53) - ELSE : SHFN$ = MID$(line$, 53): LGFN$ = "" ' found short name only + ELSE : SHFN$ = MID$(line$, 53): LGFN$ = "" ' found short name only END IF IF cnt% MOD 25 = 0 THEN ' pause every 25 files - COLOR 14: LOCATE 29, 27 "Press a key for more files!" - DO: LOOP UNTIL INKEY$ <> "" + COLOR 14: LOCATE 29, 27 "Press a key for more files!" + DO: LOOP UNTIL INKEY$ <> "" CLS: COLOR 14: LOCATE 2, 4: PRINT Header$ END IF COLOR 11: LOCATE (cnt% MOD 25) + 3, 4 @@ -45,7 +45,7 @@ SUB LFN END IF LOOP END IF - COLOR 10: LOCATE {{Cl|CSRLIN}} + 1, 27 "Total folders and files ="; cnt% + COLOR 10: LOCATE {{Cl|CSRLIN}} + 1, 27 "Total folders and files ="; cnt% CLOSE #1 END SUB '' '' @@ -59,4 +59,4 @@ END SUB '' '' * [[FILELIST$ (function)]] ([[FILES]] function, member-contributed) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_HYPOT.txt b/internal/help/_HYPOT.txt new file mode 100644 index 000000000..6592dd231 --- /dev/null +++ b/internal/help/_HYPOT.txt @@ -0,0 +1,40 @@ +{{DISPLAYTITLE:_HYPOT}} +The [[_HYPOT]] function returns the hypotenuse of a right-angled triangle whose legs are x and y. + + +{{PageSyntax}} +: {{Parameter|result!}} = [[_HYPOT]]({{Parameter|x}}, {{Parameter|y}}) + + +{{PageParameters}} +* {{Parameter|x}} and {{Parameter|y}} are the floating point values corresponding to the legs of a right-angled (90 degree) triangle for which the hypotenuse is computed. + + +{{PageDescription}} +* The function returns what would be the square root of the sum of the squares of x and y (as per the Pythagorean theorem). +* The hypotenuse is the longest side between the two 90 degree angle sides + + +{{PageExamples}} +''Example:'' +{{CodeStart}} '' '' +{{Cl|DIM}} leg_x {{Cl|AS}} {{Cl|DOUBLE}}, leg_y {{Cl|AS}} {{Cl|DOUBLE}}, result {{Cl|AS}} {{Cl|DOUBLE}} +leg_x = 3 +leg_y = 4 +result = {{Cl|_HYPOT}}(leg_x, leg_y) +{{Cl|PRINT}} USING "## , ## and ## form a right-angled triangle."; leg_x; leg_y; result +{{CodeEnd}} + +{{OutputStart}} + 3 , 4 and 5 form a right-angled triangle. +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[ATN]] {{text|(arctangent)}} +* [[_PI]] {{text|(function)}} +* [[Mathematical Operations]] +* [http://www.cplusplus.com/reference/cmath/hypot/ C++ reference for hypot() - source of the text and sample above] + + +{{PageNavigation}} diff --git a/internal/help/_ICON.txt b/internal/help/_ICON.txt index f05682ffd..4b91b9172 100644 --- a/internal/help/_ICON.txt +++ b/internal/help/_ICON.txt @@ -6,7 +6,7 @@ The [[_ICON]] statement uses an image handle from [[_LOADIMAGE]] for the program : [[_ICON]] [{{Parameter|mainImageHandle&}}[, {{Parameter|smallImageHandle&}}]] -{{Parameters}} +{{PageParameters}} * {{Parameter|mainImageHandle&}} is the [[LONG]] handle value of the OS icon and title bar image pre-loaded with [[_LOADIMAGE]] when used alone. * {{Parameter|smallImageHandle&}} is the [[LONG]] handle value of a different title bar image pre-loaded with [[_LOADIMAGE]] when used. * No image handle designates use of the default QB64 icon or the embedded icon set by [[$EXEICON]]. @@ -31,7 +31,7 @@ The [[_ICON]] statement uses an image handle from [[_LOADIMAGE]] for the program {{PageExamples}} ''Example 1:'' Loading an image to a 32 bit palette in SCREEN 0 (the default screen mode). {{CodeStart}} '' '' -i& ={{Cl|_LOADIMAGE}}("RDSWU16.BMP", 32) '<<<<<<< use your image file name here +i& ={{Cl|_LOADIMAGE}}("RDSWU16.BMP", 32) '<<<<<<< use your image file name here {{Cl|IF}} i& < -1 THEN {{Cl|_ICON}} i& @@ -44,9 +44,9 @@ i& ={{Cl|_LOADIMAGE}}("RDSWU16.BMP", 32) '<<<<<< ''Example 2:'' Function that converts an icon into a temporary bitmap for use in QB64. Function returns the available image count. {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 256) -{{Cl|_TITLE}} "Icon Converter" -icon$ = "daphne.ico" '<<<<<<<<< change icon file name -bitmap$ = "tempfile.bmp" +{{Cl|_TITLE}} "Icon Converter" +icon$ = "daphne.ico" '<<<<<<<<< change icon file name +bitmap$ = "tempfile.bmp" indx% = 6 '1 minimum <<<<<<< higher values than count get highest entry image in icon file {{Cl|IF...THEN|IF}} Icon2BMP(icon$, bitmap$, indx%) {{Cl|THEN}} @@ -67,16 +67,16 @@ indx% = 6 '1 minimum <<<<<<< higher values than count get {{Cl|DIM}} wide {{Cl|AS}} {{Cl|LONG}}, high {{Cl|AS}} {{Cl|LONG}}, BM {{Cl|AS}} {{Cl|INTEGER}}, bpp {{Cl|AS}} {{Cl|INTEGER}} rf = {{Cl|FREEFILE}} -{{Cl|IF...THEN|IF}} {{Cl|LCASE$}}({{Cl|RIGHT$}}(filein, 4)) = ".ico" {{Cl|THEN}} 'check file extension is ICO only +{{Cl|IF...THEN|IF}} {{Cl|LCASE$}}({{Cl|RIGHT$}}(filein, 4)) = ".ico" {{Cl|THEN}} 'check file extension is ICO only {{Cl|OPEN}} filein {{Cl|OPEN|FOR}} {{Cl|BINARY}} {{Cl|ACCESS}} {{Cl|ACCESS|READ}} {{Cl|AS}} rf {{Cl|ELSE}} {{Cl|EXIT FUNCTION}} {{Cl|END IF}} {{Cl|GET}} rf, , word {{Cl|GET}} rf, , word: icon = word {{Cl|GET}} rf, , word: count = word -{{Cl|IF...THEN|IF}} icon <> 1 {{Cl|OR (boolean)|OR}} count = 0 {{Cl|THEN}} {{Cl|CLOSE}} rf: {{Cl|EXIT FUNCTION}} +{{Cl|IF...THEN|IF}} icon <> 1 {{Cl|OR (boolean)|OR}} count = 0 {{Cl|THEN}} {{Cl|CLOSE}} rf: {{Cl|EXIT FUNCTION}} '{{Cl|PRINT}} icon, count -{{Cl|IF...THEN|IF}} index > 0 {{Cl|AND (boolean)|AND}} index <= count {{Cl|THEN}} entry = 16 * (index - 1) {{Cl|ELSE}} entry = 16 * (count - 1) +{{Cl|IF...THEN|IF}} index > 0 {{Cl|AND (boolean)|AND}} index <= count {{Cl|THEN}} entry = 16 * (index - 1) {{Cl|ELSE}} entry = 16 * (count - 1) {{Cl|SEEK}} rf, 1 + 6 + entry 'start of indexed Entry header {{Cl|GET}} rf, , byte: wide = byte ' use this unsigned for images over 127 {{Cl|GET}} rf, , byte: high = byte ' use this unsigned because it isn't doubled @@ -84,20 +84,20 @@ rf = {{Cl|FREEFILE}} {{Cl|GET}} rf, , dword '2 hot spots both normally 0 in icons, used for cursors {{Cl|GET}} rf, , dword: size = dword 'this could be used, doesn't seem to matter {{Cl|GET}} rf, , dword: offset = dword 'find where the specific index BMP header is -'{{Cl|PRINT}} wide; "X"; high, size, offset +'{{Cl|PRINT}} wide; "X"; high, size, offset {{Cl|SEEK}} rf, 1 + offset + 14 'only read the BPP in BMP header {{Cl|GET}} rf, , word: bpp = word {{Cl|IF...THEN|IF}} bpp = 0 {{Cl|THEN}} {{Cl|CLOSE}} rf: {{Cl|EXIT FUNCTION}} {{Cl|IF...THEN|IF}} bpp <= 24 {{Cl|THEN}} pixelbytes = bpp / 8 {{Cl|ELSE}} pixelbytes = 3 -{{Cl|IF...THEN|IF}} bpp > 1 {{Cl|AND (boolean)|AND}} bpp <= 8 {{Cl|THEN}} palettebytes = 4 * (2 ^ bpp) {{Cl|ELSE}} palettebytes = 0 +{{Cl|IF...THEN|IF}} bpp > 1 {{Cl|AND (boolean)|AND}} bpp <= 8 {{Cl|THEN}} palettebytes = 4 * (2 ^ bpp) {{Cl|ELSE}} palettebytes = 0 datasize& = (wide * high * pixelbytes) + palettebytes 'no padder should be necessary filesize& = datasize& + 14 + 40 ' data and palette + header bmpoffset& = palettebytes + 54 ' data offset from start of bitmap readbytes& = datasize& + 28 ' (40 - 12) bytes left to read in BMP header and {{Cl|XOR}} mask only '{{Cl|PRINT}} bpp, bmpoffset&, filesize& -BM = {{Cl|CVI}}("BM") 'this will create "BM" in file like {{Cl|MKI$}} would +BM = {{Cl|CVI}}("BM") 'this will create "BM" in file like {{Cl|MKI$}} would wf = {{Cl|FREEFILE}} {{Cl|OPEN}} fileout {{Cl|OPEN|FOR}} {{Cl|BINARY}} {{Cl|AS}} wf {{Cl|PUT}} wf, , BM @@ -123,10 +123,10 @@ Icon2BMP = count ' return the number of icons available in the icon {{PageSeeAlso}} * [[_TITLE]] * [[_LOADIMAGE]] -* [[$EXEICON]], [[Embedding Icons in EXE|Manually Embedding Icons in .EXE]] {{text|(for versions of QB64 prior to 1.000)}} +* [[$EXEICON]] * [[Creating Icon Bitmaps]] {{text|(member-contributed program)}} * [[Bitmaps]], [[Icons and Cursors]] * [[Resource_Table_extraction#Extract_Icon|Icon Extraction]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_INCLERRORFILE$.txt b/internal/help/_INCLERRORFILE$.txt new file mode 100644 index 000000000..8cdafb977 --- /dev/null +++ b/internal/help/_INCLERRORFILE$.txt @@ -0,0 +1,54 @@ +{{DISPLAYTITLE:_INCLERRORFILE$}} +The [[_INCLERRORFILE$]] function returns the name of the original source code [[$INCLUDE]] module that caused the most recent error. + + + +{{PageSyntax}} +: {{Parameter|errfile$}} = [[_INCLERRORFILE$]] + + +{{PageDescription}} +If the last error occurred in the main module, [[_INCLERRORFILE$]] returns an empty string. + + +{{PageAvailability}} +* Version 1.1 and up. + + +{{PageExamples}} +''Example:'' +{{CodeStart}} +{{Cl|ON ERROR}} {{Cl|GOTO}} DebugLine + +{{Cl|ERROR}} 250 'simulated error code - an error in the main module leaves _INCLERRORLINE empty (= 0) + +'{{Cl|$INCLUDE}}:'haserror.bi' + +{{Cl|END}} + +DebugLine: +{{Cl|PRINT}} "An error occurred. Please contact support with the following details: +{{Cl|PRINT}} "ERROR "; {{Cl|ERR}}; " ON LINE: "; {{Cl|_ERRORLINE}} +{{Cl|IF...THEN|IF}} {{Cl|_INCLERRORLINE}} {{Cl|THEN}} + {{Cl|PRINT}} " IN MODULE "; {{Cl|_INCLERRORFILE$}}; " (line"; {{Cl|_INCLERRORLINE}}; ")" +{{Cl|END IF}} +{{Cl|RESUME}} {{Cl|NEXT}} '' '' +{{CodeEnd}} +{{OutputStart}}An error occurred. Please contact support with the following details: +ERROR 250 ON LINE: 6 + +An error occurred. Please contact support with the following details: +ERROR 250 ON LINE: 9 + IN MODULE haserror.bi ( line 1 ) +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[_INCLERRORLINE]], [[_ERRORMESSAGE$]] +* [[ON ERROR]], [[ERR]] +* [[ERROR]] +* [[ERROR Codes]] +* [[$INCLUDE]] + + +{{PageNavigation}} diff --git a/internal/help/_INCLERRORLINE.txt b/internal/help/_INCLERRORLINE.txt new file mode 100644 index 000000000..b2978348a --- /dev/null +++ b/internal/help/_INCLERRORLINE.txt @@ -0,0 +1,56 @@ +{{DISPLAYTITLE:_INCLERRORLINE}} +The [[_INCLERRORLINE]] function returns the line number in an [[$INCLUDE]] file that caused the most recent error. + + + +{{PageSyntax}} +: {{Parameter|errline&}} = [[_INCLERRORLINE]] + + +{{PageDescription}} +* If the last error occurred in the main module, _INCLERRORLINE returns 0. +* By checking _INCLERRORLINE you can report exactly what line inside an included module caused the last error. + + +{{PageAvailability}} +* Version 1.1 and up. + + +{{PageExamples}} +''Example:'' +{{CodeStart}} +{{Cl|ON ERROR}} {{Cl|GOTO}} DebugLine + +{{Cl|ERROR}} 250 'simulated error code - an error in the main module leaves _INCLERRORLINE empty (= 0) + +'{{Cl|$INCLUDE}}:'haserror.bi' + +{{Cl|END}} + +DebugLine: +{{Cl|PRINT}} "An error occurred. Please contact support with the following details: +{{Cl|PRINT}} "ERROR "; {{Cl|ERR}}; " ON LINE: "; {{Cl|_ERRORLINE}} +{{Cl|IF...THEN|IF}} {{Cl|_INCLERRORLINE}} {{Cl|THEN}} + {{Cl|PRINT}} " IN MODULE "; {{Cl|_INCLERRORFILE$}}; " (line"; {{Cl|_INCLERRORLINE}}; ")" +{{Cl|END IF}} +{{Cl|RESUME}} {{Cl|NEXT}} '' '' +{{CodeEnd}} +{{OutputStart}}An error occurred. Please contact support with the following details: +ERROR 250 ON LINE: 6 + +An error occurred. Please contact support with the following details: +ERROR 250 ON LINE: 9 + IN MODULE haserror.bi ( line 1 ) +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[_INCLERRORFILE$]], [[_ERRORMESSAGE$]] +* [[ON ERROR]], [[ERR]] +* [[ERROR]] +* [[ERROR Codes]] +* [[$INCLUDE]] + + + +{{PageNavigation}} diff --git a/internal/help/_INFLATE$.txt b/internal/help/_INFLATE$.txt new file mode 100644 index 000000000..f559d3d3c --- /dev/null +++ b/internal/help/_INFLATE$.txt @@ -0,0 +1,48 @@ +{{DISPLAYTITLE:_INFLATE$}} +The [[_INFLATE$]] function decompresses a [[STRING|string]] compressed by the [[_DEFLATE$]] function. + + +{{PageSyntax}} +:{{Parameter|result$}} = [[_INFLATE$]]({{Parameter|stringToDecompress$[, originalSize&]}}) + + +{{PageDescription}} +* {{Parameter|result$}} will contain the original version of {{Parameter|stringToDecompress$}}. +* Optional parameter {{Parameter|originalSize&}} can be used if the original size of the uncompressed data is known beforehand, which makes the decompression routine run more efficiently. +** If unspecified, decompression still works as expected, but may use more steps and need to allocate more memory internally. + + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example 1:'' Compressing a long string of text. +{{CodeStart}} +a$ = "The quick brown fox jumps over the lazy dog. " +{{Cl|PRINT}} "Original string (a$): "; a$ +{{Cl|FOR}} i = 1 {{Cl|TO}} 15 + a$ = a$ + a$ +{{Cl|NEXT}} + +{{Cl|PRINT}} "After concatenating it into itself several times, LEN(a$) ="; {{Cl|LEN}}(a$) + +b$ = {{Cl|_DEFLATE$}}(a$) +{{Cl|PRINT}} "After using _DEFLATE$ to compress it, LEN ="; {{Cl|LEN}}(b$) +{{Cl|PRINT USING}} "(compressed size is #.###% of the original)"; (({{Cl|LEN}}(b$) * 100) / {{Cl|LEN}}(a$)) +c$ = {{Cl|_INFLATE$}}(b$) +PRINT "After using _INFLATE$ to decompress it, LEN ="; {{Cl|LEN}}(c$) + {{CodeEnd}} +{{OutputStart}} +Original string (a$): The quick brown fox jumps over the lazy dog +After concatenating it into itself several times, LEN(a$) = 1474560 +After using _DEFLATE$ to compress it, LEN = 4335 +(compressed size is 0.295% of the original) +After using _INFLATE$ to decompress it, LEN = 1474560 +{{OutputEnd}} + +{{PageSeeAlso}} +* [[_DEFLATE$]] + + +{{PageNavigation}} diff --git a/internal/help/_INSTRREV.txt b/internal/help/_INSTRREV.txt new file mode 100644 index 000000000..8c2da4d11 --- /dev/null +++ b/internal/help/_INSTRREV.txt @@ -0,0 +1,73 @@ +{{DISPLAYTITLE:_INSTRREV}} +The [[_INSTRREV]] function searches for a substring inside another string, but unlike [[INSTR]] it searches from right to left. + + +{{PageSyntax}} +: {{Parameter|position%}} = [[_INSTRREV]]([{{Parameter|start%}},] {{Parameter|baseString$}}, {{Parameter|subString$}}) + + +{{PageParameters}} +* The optional literal or variable [[INTEGER]] {{Parameter|start%}} indicates where in the {{Parameter|baseString$}} the search must start, counted from the left. +* The {{Parameter|baseString$}} is a literal or variable [[STRING]] value to be searched for an exact match including [[UCASE$|letter cases]]. +* The {{Parameter|subString$}} is a literal or variable [[STRING]] value being searched. + + +{{PageDescription}} +* The function returns the {{Parameter|position%}} in the {{Parameter|baseString$}} where the {{Parameter|subString$}} was found, from right to left. +* {{Parameter|position%}} will be 0 if the search found no matches in the base string. +* [[_INSTRREV]] returns 0 if an empty {{Parameter|baseString$}} is passed, and returns [[LEN]]({{Parameter|baseString$}}) with an empty {{Parameter|subString$}}. +* The {{Parameter|start%}} position is useful when making multiple searches in the same string. See the example below. +* The {{Parameter|subString$}} should be smaller or equal in [[LEN|length]] to the {{Parameter|baseString$}}, or 0 is returned. +* A {{Parameter|start%}} value of 0 or less starts search from the end of the {{Parameter|baseString$}} (same as not passing a {{Parameter|start%}} parameter). + + +{{PageExamples}} +''Example 1:'' Separating a file name from a full path. +{{CodeStart}} +fullPath$ = "C:\Documents and Settings\Administrator\Desktop\qb64\internal\c\libqb\os\win\libqb_1_2_000000000000.o" +file$ = {{Cl|MID$}}(fullPath$, {{Cl|_INSTRREV}}(fullPath$, "\") + 1) +{{Cl|PRINT}} file$ +{{CodeEnd}} +{{OutputStart}} +libqb_1_2_000000000000.o +{{OutputEnd}} + + +''Example 2:'' Searching for multiple instances of a substring inside a base string, going from the end to the start. +{{CodeStart}} +sentence$ = " This is a string full of spaces, including at start and end... " +{{Cl|PRINT}} sentence$ +{{Cl|DO}} + findPrevSpace% = {{Cl|_INSTRREV}}(findPrevSpace% - 1, sentence$, {{Cl|SPACE$}}(1)) + {{Cl|IF}} findPrevSpace% = 0 {{Cl|THEN}} + {{Cl|LOCATE}} 4, 1 + {{Cl|PRINT}} "No more spaces" + {{Cl|EXIT}} {{Cl|DO}} + {{Cl|END IF}} + + {{Cl|LOCATE}} 2, findPrevSpace% + {{Cl|PRINT}} "^" + totalSpaces = totalSpaces + 1 + + {{Cl|IF}} findPrevSpace% = 1 {{Cl|THEN}} + {{Cl|LOCATE}} 4, 1 + {{Cl|PRINT}} "Last space found at position 1" + {{Cl|EXIT}} {{Cl|DO}} + {{Cl|END IF}} +{{Cl|LOOP}} +{{Cl|PRINT}} "Total spaces found: "; totalSpaces +{{CodeEnd}} +{{OutputStart}} + This is a string full of spaces, including at start and end... +^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ + +Last space found at position 1 +Total spaces found: 13 +{{OutputEnd}} + +{{PageSeeAlso}} +* [[MID$]], [[INSTR]] +* [[SPACE$]] + + +{{PageNavigation}} diff --git a/internal/help/_INTEGER64.txt b/internal/help/_INTEGER64.txt index ceb3974f6..12780db40 100644 --- a/internal/help/_INTEGER64.txt +++ b/internal/help/_INTEGER64.txt @@ -25,4 +25,4 @@ * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_KEYCLEAR.txt b/internal/help/_KEYCLEAR.txt index 42c14d630..700a6137b 100644 --- a/internal/help/_KEYCLEAR.txt +++ b/internal/help/_KEYCLEAR.txt @@ -4,7 +4,7 @@ {{PageSyntax}} :[[_KEYCLEAR]] {{Parameter|buffer&}} -{{Parameters}} +{{PageParameters}} *{{Parameter|buffer&}} indicates the buffer to be cleared: ** 1 - Clear the regular keyboard buffer, as used by all input command except the following: _KEYHIT, _KEYDOWN, INP(&H60. This is the same as the the emulated BIOS keyboard buffer, so legacy code reading from it via PEEK/POKE/CALL ABSOLUTE will also be affected. ** 2 - Clear the buffer used by _KEYHIT. @@ -18,7 +18,7 @@ * This command is best used just before getting input, in order to clear stray key presses from commands such as SLEEP, or just random keyboard bashing by the user. The programmer also ought to be aware of key release events in the _KEYHIT buffer; consider the following code: {{CodeStart}} -INPUT "Name: ", name$ +INPUT "Name: ", name$ _KEYCLEAR _DELAY 2 'Simulate doing some processing that takes some time. PRINT _KEYHIT @@ -28,7 +28,7 @@ PRINT _KEYHIT * As mentioned above, it is best to place the _KEYCLEAR after the processing, immediately before the PRINT _KEYHIT command: {{CodeStart}} -INPUT "Name: ", name$ +INPUT "Name: ", name$ _DELAY 2 'Simulate doing some processing that takes some time. _KEYCLEAR PRINT _KEYHIT @@ -38,14 +38,14 @@ PRINT _KEYHIT {{PageExamples}} Example: {{CodeStart}} -PRINT "Press a key" +PRINT "Press a key" SLEEP 'Wait for keypress 'Three alternative _KEYCLEAR calls. Try uncommenting different ones to see the effect. '_KEYCLEAR '_KEYCLEAR 1 '_KEYCLEAR 2 -PRINT "In regular buffer, there is "; INKEY$ 'read regular buffer -PRINT "In _KEYHIT buffer, there is "; _KEYHIT 'read the _KEYHIT buffer +PRINT "In regular buffer, there is "; INKEY$ 'read regular buffer +PRINT "In _KEYHIT buffer, there is "; _KEYHIT 'read the _KEYHIT buffer {{CodeEnd}} @@ -54,4 +54,4 @@ PRINT "In _KEYHIT buffer, there is "; _KEYHIT 'read the _KEYHIT buffer * [[INKEY$]], [[_KEYHIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_KEYDOWN.txt b/internal/help/_KEYDOWN.txt index ab7c07ced..ed15ab4e4 100644 --- a/internal/help/_KEYDOWN.txt +++ b/internal/help/_KEYDOWN.txt @@ -11,18 +11,17 @@ The '''_KEYDOWN''' function returns whether modifying keys like CTRL, ALT, SHIFT * Unicode references: :* 1) What is the glyph represented by that UNICODE value: [http://www.fileformat.info/info/unicode/char/search.htm Unicode Format Info] :* 2) Which fonts support the characters I want to use: [http://en.wikipedia.org/wiki/Unicode_typefaces#Comparison_of_fonts Unicode Fonts] -:* 3) What was the format again?: [http://www.birds-eye.net/definition/u/unicode.shtml Unicode Formats] :* A UTF32 value is usually(but by no means always!) the same as a UTF16 value just with the top 2 bytes set to 0. * An important difference between [[INKEY$]] and [[_KEYHIT]] is how they work when '''CTRL, ALT''' or '''SHIFT''' are used. [[INKEY$]] returns a different code if you hold down CTRL, ALT or SHIFT before pressing F1 (for example). [[_KEYHIT]] will return the same code regardless of which modifiers were used but you can check _KEYDOWN to see which modifying keys are being used. * '''Keyboards with Alt Gr key:''' [[_KEYHIT]] may return both Alt(100307) and Ctrl(100306) codes when key is pressed or released. -* '''Linux with foreign keyboards:''' [[SHELL]] [[_HIDE]] "setxkbmap us" will setup a keyboard to read US [[Scancodes]]. +* '''Linux with foreign keyboards:''' [[SHELL]] [[_HIDE]] "setxkbmap us" will setup a keyboard to read US [[Scancodes]]. {{WhiteStart}} '''The QB64 Virtual Key constant values used: ''' '''0-255''': [[ASCII|ASCII and Extended code]] values (Refer to [http://en.wikipedia.org/wiki/Code_page_437 CP437]) - '''256-65535''': [http://qb64.net/wiki/index.php?title=ASCII#Two_Byte_Codes ASCII 2-byte] character codes (unaffected by SHIFT/ALT/CTRL modifiers) + '''256-65535''': [http://www.qb64.org/wiki/ASCII#Two_Byte_Codes] character codes (unaffected by SHIFT/ALT/CTRL modifiers) Use [[CVI]] to convert ASCII 2-byte codes to _KEYDOWN values. ' '''_KEYDOWN Keyboard Values''' @@ -35,10 +34,10 @@ The '''_KEYDOWN''' function returns whether modifying keys like CTRL, ALT, SHIFT ''''Tab Q W E R T Y U I O P [{ ]} \| Del End PDn 7Hme 8/â–² 9PU + ''' ' 9 81 87 69 82 84 89 85 73 79 80 123 125 124 21248 20224 20736 18176 18432 18688 43 ''' 113 119 101 114 116 121 117 105 111 112 91 93 92 55 56 57 '' -''''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º +''''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º '+301 65 83 68 70 71 72 74 75 76 58 34 13 19200 19456 19712 '''E''' ''' 97 115 100 102 103 104 106 107 108 59 39 52 53 54 '' '''n''' -''''Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' +''''Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' '+304 90 88 67 86 66 78 77 60 62 63 +303 18432 20224 20480 20736 '''e''' ''' 122 120 99 118 98 110 109 44 46 47 49 50 51 '' '''r''' ''''Ctrl Win Alt Spacebar Alt Win Menu Ctrl â—„- â–¼ -â–º 0Ins .Del ''' @@ -64,9 +63,9 @@ The '''_KEYDOWN''' function returns whether modifying keys like CTRL, ALT, SHIFT CONST KEY_LALT& = 100308 CONST KEY_RMETA& = 100309 'Left 'Apple' key (MacOSX) CONST KEY_LMETA& = 100310 'Right 'Apple' key (MacOSX) - CONST KEY_LSUPER& = 100311 'Left "Windows" key - CONST KEY_RSUPER& = 100312 'Right "Windows"key - CONST KEY_MODE& = 100313 '"AltGr" key + CONST KEY_LSUPER& = 100311 'Left "Windows" key + CONST KEY_RSUPER& = 100312 'Right "Windows"key + CONST KEY_MODE& = 100313 '"AltGr" key CONST KEY_COMPOSE& = 100314 CONST KEY_HELP& = 100315 CONST KEY_PRINT& = 100316 @@ -120,14 +119,14 @@ The '''_KEYDOWN''' function returns whether modifying keys like CTRL, ALT, SHIFT x = {{Cl|_KEYHIT}} {{Cl|IF}} x = {{Cl|CVI}}({{Cl|CHR$}}(0) + {{Cl|CHR$}}(59)) {{Cl|THEN}} {{Cl|IF}} {{Cl|_KEYDOWN}}(LSHIFT&) {{Cl|OR (boolean)|OR}} {{Cl|_KEYDOWN}}(RSHIFT&) {{Cl|THEN}} - {{Cl|PRINT}} "KEYHIT: SHIFT + F1" + {{Cl|PRINT}} "KEYHIT: SHIFT + F1" {{Cl|ELSE}} - {{Cl|PRINT}} "KEYHIT: F1" + {{Cl|PRINT}} "KEYHIT: F1" {{Cl|END IF}} {{Cl|END IF}} k$ = {{Cl|INKEY$}} 'compare key press return values - {{Cl|IF}} k$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(59) {{Cl|THEN}} {{Cl|PRINT}} "INKEY$: F1" - {{Cl|IF}} k$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(84) {{Cl|THEN}} {{Cl|PRINT}} "INKEY$: SHIFT+F1" + {{Cl|IF}} k$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(59) {{Cl|THEN}} {{Cl|PRINT}} "INKEY$: F1" + {{Cl|IF}} k$ = {{Cl|CHR$}}(0) + {{Cl|CHR$}}(84) {{Cl|THEN}} {{Cl|PRINT}} "INKEY$: SHIFT+F1" {{Cl|LOOP}} {{Cl|UNTIL}} k$ = {{Cl|CHR$}}(27) 'escape key exit {{CodeEnd}} {{small|Code by Galleon}} @@ -143,21 +142,21 @@ radius = 20 DO {{Cl|CLS}} - {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Use the arrow keys to move the circle." + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Use the arrow keys to move the circle." {{Cl|CIRCLE}} (x, y), radius, col {{Cl|PAINT}} (x, y), col - {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "P")) {{Cl|THEN}} y = y + 1 '_KEYDOWN(20480) - {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "H")) {{Cl|THEN}} y = y - 1 '_KEYDOWN(18432) - {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "K")) {{Cl|THEN}} x = x - 1 '_KEYDOWN(19200) - {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "M")) {{Cl|THEN}} x = x + 1 '_KEYDOWN(19712) + {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "P")) {{Cl|THEN}} y = y + 1 '_KEYDOWN(20480) + {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "H")) {{Cl|THEN}} y = y - 1 '_KEYDOWN(18432) + {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "K")) {{Cl|THEN}} x = x - 1 '_KEYDOWN(19200) + {{Cl|IF...THEN|IF}} {{Cl|_KEYDOWN}}({{Cl|CVI}}({{Cl|CHR$}}(0) + "M")) {{Cl|THEN}} x = x + 1 '_KEYDOWN(19712) {{Cl|_DISPLAY}} {{Cl|_LIMIT}} 100 'limit to 100 frames per second {{Cl|LOOP}} '' '' {{CodeEnd}} {{small|Code by Galleon}} -:''Explanation:'' When [[CVI]] is used with a 2 byte code, the code of the first character(0) is added to the second character code which is multiplied by 256. In the example, code zero is added to the [[ASCII]] code of "P" which is 80. CVI multiplies 80 * 256 = 20480. +:''Explanation:'' When [[CVI]] is used with a 2 byte code, the code of the first character(0) is added to the second character code which is multiplied by 256. In the example, code zero is added to the [[ASCII]] code of "P" which is 80. CVI multiplies 80 * 256 = 20480. ''See also: @@ -170,4 +169,4 @@ DO * [[Windows_Libraries#Hot_Keys_.28maximize.29|Windows hot keys]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_KEYHIT.txt b/internal/help/_KEYHIT.txt index 11314cf0c..077423200 100644 --- a/internal/help/_KEYHIT.txt +++ b/internal/help/_KEYHIT.txt @@ -13,6 +13,8 @@ The [[_KEYHIT]] function returns [[ASCII]] one and two byte, OpenGL Virtual Key :* 65536-&H40000000: [[_KEYDOWN|QB64-specific Virtual Key codes]] (designated with + for 100000 on keyboard below) :* '''Negative''' [[LONG]] values returned indicate that a key was released or a lock function key has been turned off. * '''Note: _KEYHIT can only return one value at a time so use the [[_KEYDOWN]] keyhit value to find key combinations.''' +* To receive input from a [[$CONSOLE]] window, use [[_CINP]]. + {{WhiteStart}}' '''_KEYHIT Keyboard Codes''' ' ''''Esc F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 Sys ScL Pause''' @@ -23,10 +25,10 @@ The [[_KEYHIT]] function returns [[ASCII]] one and two byte, OpenGL Virtual Key ''''Tab Q W E R T Y U I O P [{ ]} \| Del End PDn 7Hme 8/â–² 9PU + ''' ' 9 81 87 69 82 84 89 85 73 79 80 123 125 124 21248 20224 20736 18176 18432 18688 43 ''' 113 119 101 114 116 121 117 105 111 112 91 93 92 55 56 57 '' -''''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º +''''CapL A S D F G H J K L ;: '" Enter 4/â—„- 5 6/-â–º '+301 65 83 68 70 71 72 74 75 76 58 34 13 19200 19456 19712 '''E''' ''' 97 115 100 102 103 104 106 107 108 59 39 52 53 54 '' '''n''' -''''Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' +''''Shift Z X C V B N M ,< .> /? Shift â–² 1End 2/â–¼ 3PD t''' '+304 90 88 67 86 66 78 77 60 62 63 +303 18432 20224 20480 20736 '''e''' ''' 122 120 99 118 98 110 109 44 46 47 49 50 51 '' '''r''' ''''Ctrl Win Alt Spacebar Alt Win Menu Ctrl â—„- â–¼ -â–º 0Ins .Del ''' @@ -38,12 +40,8 @@ The [[_KEYHIT]] function returns [[ASCII]] one and two byte, OpenGL Virtual Key {{small|NOTE: The above commented table can be copied and pasted directly into the QB64 IDE}} -:* >= &H40000000: [[Unicode]]. +:* >= &H40000000: [[Unicode]]. -* Font '''cyberbit.ttf''', included with QB64 ('''version 0.92 and up'''), is required to facilitate the '''IME'''(in Chinese settings) only. The 12.7 MB font is free for '''non-commercial''' use and is not loaded unless the user switches to the '''Input Mode Editor'''. Set to "UNICODE". -<center>'''[http://www.fileformat.info/tip/microsoft/enter_unicode.htm Setting up the Unicode Input Method Editor in Windows]'''</center> -<center>If you need help with IME support in '''Vista''' see the following article: [http://blogs.msdn.com/b/michkap/archive/2006/07/20/671835.aspx Setting up IME in Vista]</center> -* QB64 can use several Windows fonts when '''cyberbit''' is not present so it is not necessary to include with program packages. * An '''important difference''' between [[INKEY$]] and _KEYHIT is how they work when '''CTRL, ALT''' or '''SHIFT''' are used. INKEY$ returns a different code if you hold down CTRL, ALT or SHIFT before pressing F1 (for example). _KEYHIT will return the same code regardless of which modifiers were used but you can check [[_KEYDOWN]] to see which modifying keys are being used. * '''Keyboards with an Alt Gr key note:''' _KEYHIT may return both Alt (100307) and Ctrl (100306) codes when AltGr key is pressed or released. @@ -55,8 +53,8 @@ The [[_KEYHIT]] function returns [[ASCII]] one and two byte, OpenGL Virtual Key {{Cl|DEFLNG}} A-Z {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 8) {{Cl|CLS}} , 1 -font = {{Cl|_LOADFONT}}("cyberbit.ttf", 24) -unifont = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") +font = {{Cl|_LOADFONT}}("cyberbit.ttf", 24) +unifont = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") {{Cl|_FONT}} font {{Cl|DO}} @@ -64,29 +62,29 @@ unifont = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") {{Cl|IF}} x {{Cl|THEN}} {{Cl|IF}} x < 0 {{Cl|THEN}} 'negative value means key released {{Cl|COLOR}} 2 - {{Cl|PRINT}} "Released "; + {{Cl|PRINT}} "Released "; x = -x {{Cl|ELSE}} {{Cl|COLOR}} 10 - {{Cl|PRINT}} "Pressed "; 'positive value means key pressed + {{Cl|PRINT}} "Pressed "; 'positive value means key pressed {{Cl|END IF}} {{Cl|IF}} x < 256 {{Cl|THEN}} 'ASCII code values - {{Cl|PRINT}} "{{Cl|ASC}}II "; x; - {{Cl|IF}} x >= 32 {{Cl|AND (boolean)|AND}} x <= 255 {{Cl|THEN}} {{Cl|PRINT}} "[" + {{Cl|CHR$}}(x) + "]" {{Cl|ELSE}} {{Cl|PRINT}} + {{Cl|PRINT}} "{{Cl|ASC}}II "; x; + {{Cl|IF}} x >= 32 {{Cl|AND (boolean)|AND}} x <= 255 {{Cl|THEN}} {{Cl|PRINT}} "[" + {{Cl|CHR$}}(x) + "]" {{Cl|ELSE}} {{Cl|PRINT}} {{Cl|END IF}} - {{Cl|IF}} x >= 256 {{Cl|AND (boolean)|AND}} x < 65536 {{Cl|THEN}} '2 byte key codes - {{Cl|PRINT}} "2-BYTE-{{Cl|COM}}BO "; x {{Cl|AND (boolean)|AND}} 255; x \ 256; + {{Cl|IF}} x >= 256 {{Cl|AND (boolean)|AND}} x < 65536 {{Cl|THEN}} '2 byte key codes + {{Cl|PRINT}} "2-BYTE-{{Cl|COM}}BO "; x {{Cl|AND (boolean)|AND}} 255; x \ 256; x2 = x \ 256 - {{Cl|IF}} x2 >= 32 {{Cl|AND (boolean)|AND}} x2 <= 255 {{Cl|THEN}} {{Cl|PRINT}} "[" + {{Cl|CHR$}}(x2) + "]" {{Cl|ELSE}} {{Cl|PRINT}} + {{Cl|IF}} x2 >= 32 {{Cl|AND (boolean)|AND}} x2 <= 255 {{Cl|THEN}} {{Cl|PRINT}} "[" + {{Cl|CHR$}}(x2) + "]" {{Cl|ELSE}} {{Cl|PRINT}} {{Cl|END IF}} - {{Cl|IF}} x >= 100000 {{Cl|AND (boolean)|AND}} x < 200000 {{Cl|THEN}} 'QB84 Virtual Key codes - {{Cl|PRINT}} "SDL VK"; x - 100000 + {{Cl|IF}} x >= 100000 {{Cl|AND (boolean)|AND}} x < 200000 {{Cl|THEN}} 'QB84 Virtual Key codes + {{Cl|PRINT}} "SDL VK"; x - 100000 {{Cl|END IF}} - {{Cl|IF}} x >= 200000 {{Cl|AND (boolean)|AND}} x < {{Cl|&H}}40000000 {{Cl|THEN}} - {{Cl|PRINT}} "QB64 VK"; x - 200000 + {{Cl|IF}} x >= 200000 {{Cl|AND (boolean)|AND}} x < {{Cl|&H}}40000000 {{Cl|THEN}} + {{Cl|PRINT}} "QB64 VK"; x - 200000 {{Cl|END IF}} - {{Cl|IF}} x >= {{Cl|&H}}40000000 {{Cl|THEN}} 'Unicode values (IME Input mode) - {{Cl|PRINT}} "UNICODE "; x - {{Cl|&H}}40000000; "0x" + {{Cl|HEX$}}(x - {{Cl|&H}}40000000) + " ..."; + {{Cl|IF}} x >= {{Cl|&H}}40000000 {{Cl|THEN}} 'Unicode values (IME Input mode) + {{Cl|PRINT}} "UNICODE "; x - {{Cl|&H}}40000000; "0x" + {{Cl|HEX$}}(x - {{Cl|&H}}40000000) + " ..."; cx = {{Cl|POS}}(1): cy = {{Cl|CSRLIN}} {{Cl|_FONT}} unifont {{Cl|LOCATE}} cy, cx @@ -102,11 +100,8 @@ unifont = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") {{small|Code by Galleon}} -<center>'''Find any keys that you cannot read or type in the IDE? Please report them at this forum link:''' http://www.qb64.net/forum/index.php?topic=1512.0</center> - - {{PageSeeAlso}} -* [[_KEYDOWN]] {{text|(virtual key codes)}} +* [[_KEYDOWN]], [[_CINP]] * [[_MAPUNICODE]], [[_MAPUNICODE (function)]] * [[INKEY$]], [[ASCII]] {{text|(code table)}}, * [[Unicode]], [[Code Pages]] {{text|(by region)}} @@ -115,4 +110,4 @@ unifont = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") * [[Windows_Libraries#Hot_Keys_.28maximize.29|Windows hot keys]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_LASTAXIS.txt b/internal/help/_LASTAXIS.txt index a435694d9..21d924463 100644 --- a/internal/help/_LASTAXIS.txt +++ b/internal/help/_LASTAXIS.txt @@ -10,7 +10,7 @@ The [[_LASTAXIS]] function returns the number of axis a specified number INPUT d * Returns the number of axis that can be read on a specified device number within the number of [[_DEVICES]] found. * A valid number can be sent to the [[_AXIS]] function to find any relative axis movements. * The devices are listed in a numerical order determined by the OS and can be read by the [[DEVICE$]] function. -* '''The [[_DEVICES]] function must be read before using _LASTAXIS or an [[ERROR Codes|"Illegal Function Call" error]] will occur.''' +* '''The [[_DEVICES]] function must be read before using _LASTAXIS or an [[ERROR Codes|"Illegal Function Call" error]] will occur.''' * Devices include keyboard(1), mouse(2), joysticks, game pads and multiple stick game controllers. @@ -18,10 +18,10 @@ The [[_LASTAXIS]] function returns the number of axis a specified number INPUT d ''Example:'' Checking for the system's input devices and number of axis. {{CodeStart}} '' '' devices = {{Cl|_DEVICES}} 'MUST be read in order for other 2 device functions to work! -PRINT "Number of input devices found ="; devices +PRINT "Number of input devices found ="; devices FOR i = 1 TO devices PRINT {{Cl|_DEVICE$}}(i) - IF {{Cl|INSTR}}({{Cl|_DEVICE$}}(i), "[AXIS]") THEN PRINT "Axis:"; {{Cl|_LASTAXIS}}(i) + IF {{Cl|INSTR}}({{Cl|_DEVICE$}}(i), "[AXIS]") THEN PRINT "Axis:"; {{Cl|_LASTAXIS}}(i) NEXT '' '' {{CodeEnd}} {{OutputStart}}Number of input devices found = 2 @@ -41,4 +41,4 @@ Axis: 2 * [[ON STRIG(n)]], [[STRIG(n)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_LASTBUTTON.txt b/internal/help/_LASTBUTTON.txt index d046516a2..970ebc3f4 100644 --- a/internal/help/_LASTBUTTON.txt +++ b/internal/help/_LASTBUTTON.txt @@ -10,7 +10,7 @@ The [[_LASTBUTTON]] function returns the number of buttons a specified INPUT dev * A valid number can be sent to the [[_BUTTON]] or [[_BUTTONCHANGE]] function to find any button events. * The specific device name and functions can be found by the [[_DEVICE$]] function [[STRING|string]]. * The devices are listed in a numerical order determined by the OS and can be read by the [[DEVICE$]] function. -* '''The [[_DEVICES]] function must be read before using _LASTBUTTON or an [[ERROR Codes|"Illegal Function Call" error]] will occur.''' +* '''The [[_DEVICES]] function must be read before using _LASTBUTTON or an [[ERROR Codes|"Illegal Function Call" error]] will occur.''' * Devices include keyboard (reported as 1), mouse (reported as 2), joysticks, game pads and multiple stick game controllers. @@ -18,10 +18,10 @@ The [[_LASTBUTTON]] function returns the number of buttons a specified INPUT dev ''Example:'' Checking for the system's input devices. {{CodeStart}} '' '' devices = {{Cl|_DEVICES}} 'MUST be read in order for other 2 device functions to work! -PRINT "Number of input devices found ="; devices +PRINT "Number of input devices found ="; devices FOR i = 1 TO devices PRINT {{Cl|_DEVICE$}}(i) - PRINT "Buttons:"; {{Cl|_LASTBUTTON}}(i) + PRINT "Buttons:"; {{Cl|_LASTBUTTON}}(i) NEXT '' '' {{CodeEnd}} {{OutputStart}}Number of input devices found = 2 @@ -43,4 +43,4 @@ Buttons: 3 * [[ON STRIG(n)]], [[STRIG(n)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_LASTWHEEL.txt b/internal/help/_LASTWHEEL.txt index c92774504..989d70ae8 100644 --- a/internal/help/_LASTWHEEL.txt +++ b/internal/help/_LASTWHEEL.txt @@ -9,7 +9,7 @@ The [[_LASTWHEEL]] function returns the number of wheels a specified number INPU * Returns the number of wheels that can be used on a specified device number within the number of [[_DEVICES]] found. * A valid number can be sent to the [[_WHEEL]] function to find any relative positive or negative wheel movements. * The devices are listed in a numerical order determined by the OS and can be read by the [[_DEVICE$]] function. -* '''The [[_DEVICES]] function must be read before using _LASTWHEEL or an [[ERROR Codes|"Illegal Function Call" error]] may occur.''' +* '''The [[_DEVICES]] function must be read before using _LASTWHEEL or an [[ERROR Codes|"Illegal Function Call" error]] may occur.''' * Devices include keyboard (reported as 1), mouse (reported as 2), joysticks, game pads and multiple stick game controllers. @@ -17,10 +17,10 @@ The [[_LASTWHEEL]] function returns the number of wheels a specified number INPU ''Example:'' Checking for the system's input devices and number of wheels available. {{CodeStart}} '' '' devices = {{Cl|_DEVICES}} 'MUST be read in order for other 2 device functions to work! -PRINT "Number of input devices found ="; devices +PRINT "Number of input devices found ="; devices FOR i = 1 TO devices PRINT {{Cl|_DEVICE$}}(i) - IF {{Cl|INSTR}}({{Cl|_DEVICE$}}(i), "[WHEEL]") THEN PRINT "Wheels:"; {{Cl|_LASTWHEEL}}(i) + IF {{Cl|INSTR}}({{Cl|_DEVICE$}}(i), "[WHEEL]") THEN PRINT "Wheels:"; {{Cl|_LASTWHEEL}}(i) NEXT '' '' {{CodeEnd}} {{OutputStart}}Number of input devices found = 2 @@ -40,4 +40,4 @@ Wheels: 3 * [[ON STRIG(n)]], [[STRIG(n)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_LIMIT.txt b/internal/help/_LIMIT.txt index 608612aa0..ba6517b8e 100644 --- a/internal/help/_LIMIT.txt +++ b/internal/help/_LIMIT.txt @@ -3,7 +3,7 @@ The [[_LIMIT]] statement sets the loop repeat rate of a program to so many per s {{PageSyntax}} -: [[_LIMIT]] ({{Parameter|framesPerSecond!}}) +: [[_LIMIT]] {{Parameter|framesPerSecond!}} * The {{Parameter|framesPerSecond!}} [[SINGLE]] parameter value adjusts the loops per second of a program loop. '''Do not use negative values.''' @@ -12,13 +12,13 @@ The [[_LIMIT]] statement sets the loop repeat rate of a program to so many per s * Loop cycle rates of 1000 or less can '''significantly reduce CPU usage''' in programs. * Do not use it to limit a loop to '''less than once every 60 seconds'''(.0167) or an [[ERROR Codes|ILLEGAL FUNCTION CALL error]] will occur. * Do not use _LIMIT as a timing delay outside of loops. Use [[_DELAY]] instead. -* Use _LIMIT to slow down old Qbasic program loops that run too fast and use too much CPU. +* Use _LIMIT to slow down old QBasic program loops that run too fast and use too much CPU. {{PageExamples}} ''Example:'' Limits loop execution to 30 frames per second and limits the program's CPU usage. {{CodeStart}} '' '' -{{Cl|PRINT}} "To Quit press ESC key!" +{{Cl|PRINT}} "To Quit press ESC key!" {{Cl|DO}} {{Cl|_LIMIT}} 30 {{Cl|PRINT}} {{Cl|CHR$}}(26); @@ -38,4 +38,4 @@ To Quit press ESC key! * [[SLEEP]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_LOADFONT.txt b/internal/help/_LOADFONT.txt index 903b39408..7ce790b45 100644 --- a/internal/help/_LOADFONT.txt +++ b/internal/help/_LOADFONT.txt @@ -3,30 +3,30 @@ The [[_LOADFONT]] function loads a TrueType font (.TTF) or an OpenType font (.OT {{PageSyntax}} -: {{Parameter|handle&}} = [[_LOADFONT]]({{Parameter|fontFileName$}}, {{Parameter|size%}}[, "{MONOSPACE|, BOLD|, ITALIC|, UNDERLINE|, UNICODE|, DONTBLEND}"]) +: {{Parameter|handle&}} = [[_LOADFONT]]({{Parameter|fontFileName$}}, {{Parameter|size%}}[, "{MONOSPACE|, BOLD|, ITALIC|, UNDERLINE|, UNICODE|, DONTBLEND}"]) {{PageDescription}} -* The assigned [[LONG]] font {{Parameter|handle&}} variable return value designates a font style to be used somewhere in a program. Valid handle values are greater than 0 ('''{{Parameter|handle&}} > 0'''). +* The assigned [[LONG]] font {{Parameter|handle&}} variable return value designates a font style to be used somewhere in a program. Valid handle values are greater than 0 ('''{{Parameter|handle&}} > 0'''). * {{Parameter|fontFileName$}} is the filename of a TrueType or OpenType font. Can include the path to the font file. Best practice is to include font files with a program. * If no path is specified for {{Parameter|fontFileName$}} and the font file isn't in the same folder as the resulting binary, QB64 attempts to load from the default ''C:\Windows\Fonts'' path. * {{Parameter|size%}} is the [[INTEGER]] height of the font. If the size is too large or small an [[ERROR Codes|error]] will occur. * Optional comma separated ''style'' parameter(s) used are literal [[STRING]]s (in quotes) or can be contained in variable(s). -** '''"MONOSPACE"''' loads a font with all characters occupying the same width. Results may be too spaced out for fonts that aren't designed for monospace use. -** '''"BOLD", "ITALIC"''' or '''"UNDERLINE"''' create bold, italic or underlined fonts when available in font. +** '''"MONOSPACE"''' loads a font with all characters occupying the same width. Results may be too spaced out for fonts that aren't designed for monospace use. +** '''"BOLD", "ITALIC"''' or '''"UNDERLINE"''' create bold, italic or underlined fonts when available in font. ***(valid for QB64 versions prior to 1.000). ***For '''QB64 1.000 or later''', you must specify the proper file name according to the desired attributes. For example, Courier New is in font '''cour.ttf''' while Courier New Bold is in font '''courbd.ttf''', as shipped with Windows. -** '''"UNICODE"''' loads Unicode fonts such as ''cyberbit.ttf'' which is included in the QB64 downloads. -** '''"DONTBLEND"''' turns off [[_ALPHA]] blending of fonts. This can also be done with the [[_DONTBLEND]] statement. +** '''"UNICODE"''' loads Unicode fonts such as ''cyberbit.ttf'' which is included in the QB64 downloads. +** '''"DONTBLEND"''' turns off [[_ALPHA]] blending of fonts. This can also be done with the [[_DONTBLEND]] statement. :* You can pass different font styles using different predefined [[STRING]] variable lists. You '''can''' include an empty style string. -* '''Always check that font handle values are greater than 0 ('''{{Parameter|handle&}} > 0''') before using them or [[ERROR Codes|illegal function errors]] may occur.''' +* '''Always check that font handle values are greater than 0 ('''{{Parameter|handle&}} > 0''') before using them or [[ERROR Codes|illegal function errors]] may occur.''' * '''NOTE: SCREEN 0 can only use ONE font on a screen page. Thus a style like underline would affect the entire page.''' * Font sizes can be found using the [[_FONTHEIGHT]] function. Font ''size''s can also affect [[SCREEN (statement)|SCREEN]] sizes. -* [[_FONTWIDTH]] can only measure monospaced fonts. '''"MONOSPACE" can be used to load a variable width font as a monospace font.''' +* [[_FONTWIDTH]] can only measure monospaced fonts. '''"MONOSPACE" can be used to load a variable width font as a monospace font.''' * [[_PRINTWIDTH]] can measure the width of a string of text in '''graphics modes only'''. Use one character to get the font's width. -<center> '''Font Handles'''</center> +<center> '''Font Handles'''</center> * Multiple fonts will require multiple font variable handles unless used and freed consecutively. * Font handles with values greater than 0 that are '''no longer used''' should be freed using [[_FREEFONT]]. * '''Predefined QB64''' font handle numbers can be substituted before freeing a font handle: @@ -38,21 +38,21 @@ The [[_LOADFONT]] function loads a TrueType font (.TTF) or an OpenType font (.OT * Font handle values of -1 (load failure) '''do not''' need to be freed. '''An [[ERROR Codes|error]] will occur if you try to free invalid handles.''' -<center> '''Font File Specs'''</center> +<center> '''Font File Specs'''</center> * Windows users should find '''TTF''' font files in the C:\WINDOWS\FONTS folder, but don't depend on unusual ones being there. -* '''Check the font file name. The name in the "viewer" is not necessarily the file's name. Use the name in properties (right click a font listed and choose Properties in the contextual menu)''' -* If a program is on a different drive than Windows, [[ENVIRON$]]("SYSTEMROOT") will return the path to the "WINDOWS" folder. Normally "C:\WINDOWS". Then add the "\FONTS\" folder and the font '''.TTF''' filename to the path [[STRING]]. +* '''Check the font file name. The name in the "viewer" is not necessarily the file's name. Use the name in properties (right click a font listed and choose Properties in the contextual menu)''' +* If a program is on a different drive than Windows, [[ENVIRON$]]("SYSTEMROOT") will return the path to the "WINDOWS" folder. Normally "C:\WINDOWS". Then add the "\FONTS\" folder and the font '''.TTF''' filename to the path [[STRING]]. {{PageExamples}} ''Example 1:'' You need to know that if you are in a text mode (such as SCREEN 0 - the default) then you will only be able to use mono-spaced (fixed width) fonts. {{CodeStart}} -rootpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") 'normally "C:\WINDOWS" -fontfile$ = rootpath$ + "\Fonts\cour.ttf" 'TTF file in Windows -style$ = "monospace" 'font style is not case sensitive +rootpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") 'normally "C:\WINDOWS" +fontfile$ = rootpath$ + "\Fonts\cour.ttf" 'TTF file in Windows +style$ = "monospace" 'font style is not case sensitive f& ={{Cl|_LOADFONT}}(fontfile$, 30, style$) {{Cl|_FONT}} f& -{{Cl|PRINT}} "Hello!" +{{Cl|PRINT}} "Hello!" {{CodeEnd}} {{OutputStart}} @@ -61,7 +61,7 @@ Hello! {{OutputEnd}} -''Note:'' 30 means each row of text (including vertical spacing) will be exactly 30 pixels high. This may make some program screens larger. If you don't want a style listed just use style$ = "" if using a [[STRING]] variable for different calls. +''Note:'' 30 means each row of text (including vertical spacing) will be exactly 30 pixels high. This may make some program screens larger. If you don't want a style listed just use style$ = "" if using a [[STRING]] variable for different calls. @@ -71,15 +71,15 @@ Hello! i& ={{Cl|_NEWIMAGE}}(800,600,32) {{Cl|SCREEN (statement)|SCREEN}} i& {{Cl|COLOR}} &HC0FFFF00,&H200000FF -f& ={{Cl|_LOADFONT}}("C:\Windows\Fonts\times.ttf", 25) 'normal style -{{Cl|PRINT}} "Hello!" +f& ={{Cl|_LOADFONT}}("C:\Windows\Fonts\times.ttf", 25) 'normal style +{{Cl|PRINT}} "Hello!" {{CodeEnd}} {{OutputStart}}Hello! {{OutputEnd}} -:''Note:'' You can load a fixed width font file without using the "monospace" option and it will be treated as variable width. This can be useful because LOCATE treats the horizontal position as an offset in pixels for variable width fonts. +:''Note:'' You can load a fixed width font file without using the "monospace" option and it will be treated as variable width. This can be useful because LOCATE treats the horizontal position as an offset in pixels for variable width fonts. ''Example 3:'' Loading a [[Unicode]] font, ''cyberbit.ttf'', which was downloaded with QB64: @@ -94,14 +94,14 @@ f& ={{Cl|_LOADFONT}}("C:\Windows\Fonts\times.ttf", 25) 'normal st FileName$ = {{Cl|SPACE$}}(512) Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) -{{Cl|IF...THEN|IF}} Result {{Cl|THEN}} {{Cl|PRINT}} "CURRENT PROGRAM (ASCII): "; {{Cl|LEFT$}}(FileName$, Result) +{{Cl|IF...THEN|IF}} Result {{Cl|THEN}} {{Cl|PRINT}} "CURRENT PROGRAM (ASCII): "; {{Cl|LEFT$}}(FileName$, Result) 'load a unicode font -f = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") +f = {{Cl|_LOADFONT}}("cyberbit.ttf", 24, "UNICODE") {{Cl|_FONT}} f Result = GetModuleFileNameW(0, FileName$, {{Cl|LEN}}(FileName$) \ 2) {{Cl|LOCATE}} 2, 1 -{{Cl|PRINT}} QuickCP437toUTF32$("CURRENT PROGRAM (UTF): ") + QuickUTF16toUTF32$({{Cl|LEFT$}}(FileName$, Result * 2)) +{{Cl|PRINT}} QuickCP437toUTF32$("CURRENT PROGRAM (UTF): ") + QuickUTF16toUTF32$({{Cl|LEFT$}}(FileName$, Result * 2)) {{Cl|_FONT}} 16 'restore CP437 font {{Cl|FUNCTION}} QuickCP437toUTF32$ (a$) @@ -133,4 +133,4 @@ QuickUTF16toUTF32$ = b$ * [[Windows_Libraries#Font_Dialog_Box|Windows Font Dialog Box]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_LOADIMAGE.txt b/internal/help/_LOADIMAGE.txt index 04810a2aa..6ff9504dd 100644 --- a/internal/help/_LOADIMAGE.txt +++ b/internal/help/_LOADIMAGE.txt @@ -3,104 +3,86 @@ The [[_LOADIMAGE]] function loads an image into memory and returns valid [[LONG] {{PageSyntax}} -: {{Parameter|handle&}} = [[_LOADIMAGE]]({{Parameter|filename$}}[, {{Parameter|mode%}}]) +:{{Parameter|handle&}} = [[_LOADIMAGE]]({{Parameter|filename$}}[, {{Parameter|mode%}}]) -{{Parameters}} -* {{Parameter|filename$}} is literal or variable [[STRING]] file name value. -* Optional {{Parameter|mode%}} [[INTEGER]] values can be '''any valid [[SCREEN|screen]] mode''' except zero, also: -** 256 = 8-bit (256-color) -** 32 = 32-bit -** 33 = hardware image +{{PageParameters}} +*{{Parameter|filename$}} is literal or variable [[STRING]] file name value. +*Optional {{Parameter|mode%}} [[INTEGER]] values can be: +**32 = 32-bit +**33 = hardware image {{PageDescription}} -* File types supported: BMP, JPG, PNG, GIF, PNM, XPM, XCF, PCX, TIF, LBM, and TGA. A path can also be given. -* The {{Parameter|mode%}} can designate 256 (8 bit), 32 bit color or 33 ('''version 1.000 and up'''). Omit to use the current graphic screen settings. -* Mode 33 images are '''hardware''' accelerated and are created using [[_LOADIMAGE]] or [[_COPYIMAGE]] ('''version 1.000 and up'''). -* Loaded images can be read invisibly using [[POINT]]. Image coordinates start at 0 up to the [[_WIDTH (function)|_WIDTH]] - 1 and [[_HEIGHT]] - 1. -* Images can be made into a program [[SCREEN (statement)|SCREEN]] or page adopting the size and palette settings or placed using [[_PUTIMAGE]]. -* Returns -1 as an invalid handle if it can't load the image. Valid [[LONG]] handle returns are less than -1 ({{Parameter|handle&}} < -1). -* Valid images only need to be loaded once. The handle can be used repeatedly until freed. -* '''Images are not deallocated when the [[SUB]] or [[FUNCTION]] they are created in ends. Free them with [[_FREEIMAGE]].''' +*Various common image file formats supported, like BMP, JPG, PNG, etc. A path can also be given. +*The {{Parameter|mode%}} can designate 32-bit color or 33 ('''version 1.000 and up'''). Omit to use the current graphic screen settings. +*Mode 33 images are '''hardware''' accelerated and are created using [[_LOADIMAGE]] or [[_COPYIMAGE]] ('''version 1.000 and up'''). +*Loaded images can be read invisibly using [[POINT]]. Image coordinates start at 0 up to the [[_WIDTH (function)|_WIDTH]] - 1 and [[_HEIGHT]] - 1. +*Images can be made into a program [[SCREEN (statement)|SCREEN]] or page adopting the size and palette settings or placed using [[_PUTIMAGE]]. +*Returns -1 as an invalid handle if it can't load the image. Valid [[LONG]] handle returns are less than -1 ({{Parameter|handle&}} < -1). +*Valid images only need to be loaded once. The handle can be used repeatedly until freed. +*'''Images are not deallocated when the [[SUB]] or [[FUNCTION]] they are created in ends. Free them with [[_FREEIMAGE]].''' {{PageErrors}} -* Some picture file images may not load when a {{Parameter|mode%}} value is designated. Try loading it without a {{Parameter|mode%}} designation. -* '''It is important to free unused or discarded images with [[_FREEIMAGE]] to prevent CPU memory overflow errors.''' -* '''In text-only [[SCREEN]] 0, {{Parameter|mode%}} 32 must be specified.''' When loading an [[_ICON]] image use 32 for the {{Parameter|mode%}} too. +*Some picture file images may not load when a {{Parameter|mode%}} value is designated. Try loading it without a {{Parameter|mode%}} designation. +*'''It is important to free unused or discarded images with [[_FREEIMAGE]] to prevent CPU memory overflow errors.''' +*'''In text-only [[SCREEN]] 0, {{Parameter|mode%}} 32 must be specified.''' When loading an [[_ICON]] image use 32 for the {{Parameter|mode%}} too. {{PageExamples}} -''Example 1:'' Already in SCREEN 13 and want computer to match the 32-bit jpg/etc. -colors to the current palette: +''Example 1:'' To display an image in 32-bit color using its resolution as a program screen: {{CodeStart}} '' '' -{{Cl|SCREEN (statement)|SCREEN}} 13 -i& = {{Cl|_LOADIMAGE}}("mypic.jpg") -{{Cl|_PUTIMAGE}}, i& '' '' -{{CodeEnd}} - - -''Example 2:'' Already in SCREEN 13 but want to load an 8-bit image and adopt its -palette as the current palette: -{{CodeStart}} '' '' -{{Cl|SCREEN (statement)|SCREEN}} 13 -i& = {{Cl|_LOADIMAGE}}("mypic256col.bmp", 256) -{{Cl|_COPYPALETTE}} i&, 0 -{{Cl|_PUTIMAGE}}, i& '' '' -{{CodeEnd}} - - -''Example 3:'' Want to display an image in 32-bit color using its resolution as a program screen: -{{CodeStart}} '' '' -i& = {{Cl|_LOADIMAGE}}("mypic.jpg", 32) +i& = {{Cl|_LOADIMAGE}}("mypic.jpg", 32) {{Cl|SCREEN (statement)|SCREEN}} i& '' '' {{CodeEnd}} -''Example 4:'' [[DRAW]]ing and rotating an image 360 degrees using Turn Angle. [[POINT]] is used to read the invisible image source. +''Example 2:'' [[DRAW]]ing and rotating an image 360 degrees using Turn Angle. [[POINT]] is used to read the invisible image source. {{CodeStart}} {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 32) -img& = {{Cl|_LOADIMAGE}}("QB64.PNG") 'load the image file to be drawn +img& = {{Cl|_LOADIMAGE}}("QB64.PNG") 'load the image file to be drawn wide% = {{Cl|_WIDTH (function)|_WIDTH}}(img&): deep% = {{Cl|_HEIGHT}}(img&) -TLC$ = "BL" + {{Cl|STR$}}(wide% \ 2) + "BU" + {{Cl|STR$}}(deep% \ 2) 'start draw at top left corner -RET$ = "BD BL" + {{Cl|STR$}}(wide%) 'return to left side of image +TLC$ = "BL" + {{Cl|STR$}}(wide% \ 2) + "BU" + {{Cl|STR$}}(deep% \ 2) 'start draw at top left corner +RET$ = "BD BL" + {{Cl|STR$}}(wide%) 'return to left side of image {{Cl|_SOURCE}} img& {{Cl|_DEST}} 0 DO {{Cl|FOR...NEXT|FOR}} angle% = 0 {{Cl|TO}} 360 {{Cl|STEP}} 15 {{Cl|CLS}} - {{Cl|DRAW}} "BM400, 300" + "TA=" + {{Cl|VARPTR$}}(angle%) + TLC$ + {{Cl|DRAW}} "BM400, 300" + "TA=" + {{Cl|VARPTR$}}(angle%) + TLC$ {{Cl|FOR...NEXT|FOR}} y = 0 {{Cl|TO}} deep% - 1 {{Cl|FOR...NEXT|FOR}} x = 0 {{Cl|TO}} wide% - 1 - {{Cl|DRAW}} "C" + {{Cl|STR$}}({{Cl|POINT}}(x, y)) + "R1" 'color and DRAW each pixel + {{Cl|DRAW}} "C" + {{Cl|STR$}}({{Cl|POINT}}(x, y)) + "R1" 'color and DRAW each pixel {{Cl|NEXT}} {{Cl|DRAW}} RET$ {{Cl|NEXT}} {{Cl|_DISPLAY}} 'NOTE: CPU usage will be HIGH! {{Cl|NEXT}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -:''NOTE:'' The ''QB64.PNG'' file picturing the QB64 bee can saved from the top of the [http://www.qb64.net/forum/index.php QB64 forum]. Speed varies with image size. + +:''NOTE:'' Speed varies with image size. ===More examples=== -* [[SAVEIMAGE]] (QB64 Image to Bitmap SUB by Galleon) -* [[Program ScreenShots]] (Member-contributed program for legacy screen modes) -* [[ThirtyTwoBit SUB]] (QB64 Image area to bitmap) + +*[[SAVEIMAGE]] (QB64 Image to Bitmap SUB by Galleon) +*[[Program ScreenShots]] (Member-contributed program for legacy screen modes) +*[[ThirtyTwoBit SUB]] (QB64 Image area to bitmap) {{PageSeeAlso}} -* [[_FREEIMAGE]], [[_ICON]] -* [[_PUTIMAGE]], [[_MAPTRIANGLE]] -* [[_NEWIMAGE]], [[_COPYIMAGE]] -* [[_PRINTIMAGE]] (printer) -* [[_PALETTECOLOR (function)]], [[_COPYPALETTE]], [[_ICON]] -* [[SCREEN (statement)]] -* [[Hardware images]] -* [[Bitmaps]], [[Icons and Cursors]], [[GIF Images]] +*[[_FREEIMAGE]], [[_ICON]] +*[[_PUTIMAGE]], [[_MAPTRIANGLE]] +*[[_NEWIMAGE]], [[_COPYIMAGE]] +*[[_PRINTIMAGE]] (printer) +*[[_PALETTECOLOR (function)]], [[_COPYPALETTE]], [[_ICON]] +*[[SCREEN (statement)]] +*[[Hardware images]] +*[[Bitmaps]], [[Icons and Cursors]], [[GIF Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MAPTRIANGLE.txt b/internal/help/_MAPTRIANGLE.txt index 18773fa60..7c11d4dbc 100644 --- a/internal/help/_MAPTRIANGLE.txt +++ b/internal/help/_MAPTRIANGLE.txt @@ -12,8 +12,8 @@ The [[_MAPTRIANGLE]] statement maps a triangular portion of an image onto a dest :[[_MAPTRIANGLE]] [{_CLOCKWISE|_ANTICLOCKWISE}] [{_SEAMLESS}] '''('''{{Parameter|sx1}}''',''' {{Parameter|sy1}}''')-('''{{Parameter|sx2}}''',''' {{Parameter|sy2}}''')-('''{{Parameter|sx3}}''',''' {{Parameter|sy3}}'''),''' {{Parameter|source&}} '''TO ('''{{Parameter|dx1}}''',''' {{Parameter|dy1}}''',''' {{Parameter|dz1}}''')-('''{{Parameter|dx2}}''',''' {{Parameter|dy2}}''',''' {{Parameter|dz2}}''')-('''{{Parameter|dx3}}''',''' {{Parameter|dy3}}''',''' {{Parameter|dz3}}''')'''[, {{Parameter|destination&}}][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]] -{{Parameters}} -* The '''_SEAMLESS''' option makes the triangle skip the right-most and bottom-most pixels of the triangle. When you make larger objects using several triangles, there can be a "seam" where they overlap when using alpha transparency and the seam would be twice as bright. '''_SEAMLESS''' is ignored when rendering 3D content and is not yet supported when drawing 2D hardware images.''' +{{PageParameters}} +* The '''_SEAMLESS''' option makes the triangle skip the right-most and bottom-most pixels of the triangle. When you make larger objects using several triangles, there can be a "seam" where they overlap when using alpha transparency and the seam would be twice as bright. '''_SEAMLESS''' is ignored when rendering 3D content and is not yet supported when drawing 2D hardware images.''' * For 3D drawing use the '''_CLOCKWISE''' and '''_ANTICLOCKWISE''' arguments to only draw triangles in the correct direction. See ''Example 4''. * Coordinates are [[SINGLE]] values where whole numbers represent the exact center of a pixel of the source texture. * {{Parameter|source&}} and optional {{Parameter|destination&}} are [[LONG]] image or screen page handles. @@ -33,21 +33,21 @@ The [[_MAPTRIANGLE]] statement maps a triangular portion of an image onto a dest {{PageExamples}} -''Example 1:'' Rotating the [http://www.qb64.net/qb64_trans.png QB64 bee] image using a rotation and zoom SUB with _MAPTRIANGLE. +''Example 1:'' Rotating an image using a rotation and zoom SUB with _MAPTRIANGLE. {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 32) -Image& = {{Cl|_LOADIMAGE}}("qb64_trans.png") '<<< [http://www.qb64.net/qb64_trans.png Image from top of QB64 Forum] +Image& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'replace with your own image {{Cl|DO}} {{Cl|CLS}} RotoZoom 400, 300, Image&, 1.5 + {{Cl|SIN}}(zoom), angle - {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Angle:"; {{Cl|CINT}}(angle) - {{Cl|PRINT USING|PRINT}} "Zoom"; {{Cl|PRINT USING|USING}} "##.###"; 1.5 + {{Cl|SIN}}(zoom) + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Angle:"; {{Cl|CINT}}(angle) + {{Cl|PRINT USING|PRINT}} "Zoom"; {{Cl|PRINT USING|USING}} "##.###"; 1.5 + {{Cl|SIN}}(zoom) {{Cl|_DISPLAY}} - angle = angle + .5: {{Cl|IF...THEN|IF}} angle >= 360 {{Cl|THEN}} angle = angle - 360 + angle = angle + .5: {{Cl|IF...THEN|IF}} angle >= 360 {{Cl|THEN}} angle = angle - 360 zoom = zoom + .01 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|END}} {{Cl|SUB}} RotoZoom (X {{Cl|AS}} {{Cl|LONG}}, Y {{Cl|AS}} {{Cl|LONG}}, Image {{Cl|AS}} {{Cl|LONG}}, Scale {{Cl|AS}} {{Cl|SINGLE}}, Rotation {{Cl|AS}} {{Cl|SINGLE}}) @@ -72,12 +72,10 @@ sinr! = {{Cl|SIN}}(-Rotation / 57.2957795131): cosr! = {{Cl|COS}}(-Rotation / 57 {{WhiteEnd}} -''Example 2:'' A 3D Spinning Cube demo using the [http://www.qb64.net/qb64_trans.png QB64 bee] software image and [[_MAPTRIANGLE]]: +''Example 2:'' A 3D Spinning Cube demo using a software image and [[_MAPTRIANGLE]]: {{CodeStart}} '' '' ' Copyright (C) 2011 by Andrew L. Ayers -{{Cl|DECLARE}} {{Cl|SUB}} DrawHline (fromx%, tox%, yy%, col%) -{{Cl|DECLARE}} {{Cl|SUB}} DrawTriangle (x1%, y1%, x2%, y2%, x3%, y3%, col%) {{Cl|DIM}} OBJECT(9, 9, 4, 2) {{Cl|AS}} {{Cl|LONG}} ' OBJECTS DEFINED {{Cl|AS}} FOLLOWS: @@ -149,9 +147,9 @@ PLANECOL(3) = 6 PLANECOL(4) = 7 PLANECOL(5) = 8 ' -{{Cl|_TITLE}} "QB64 _MAPTRIANGLE CUBE DEMO" +{{Cl|_TITLE}} "QB64 _MAPTRIANGLE CUBE DEMO" {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 32) -TextureImage& = {{Cl|_LOADIMAGE}}("qb64_trans.png") ''''<<<< '''[http://www.qb64.net/qb64_trans.png Image from top of QB64 Forum] +TextureImage& = {{Cl|_LOADIMAGE}}("qb64_trans.png") ''''<<<< '''replace with your own image '{{Cl|_PUTIMAGE}} , Image& DO @@ -196,7 +194,7 @@ DO T3& = x3& * (y1& * Z2& - y2& * Z1&) ' VISIBLE& = T1& - T2& - T3& - {{Cl|IF...THEN|IF}} VISIBLE& > 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} VISIBLE& > 0 {{Cl|THEN}} ' DRAW PLANE xx1% = DPLANE2D(0, 0): yy1% = DPLANE2D(0, 1) xx2% = DPLANE2D(1, 0): yy2% = DPLANE2D(1, 1) @@ -215,31 +213,31 @@ DO ' ' ROTATE OBJECT PIT(OB&) = PIT(OB&) + 5 - {{Cl|IF...THEN|IF}} PIT(OB&) > 359 {{Cl|THEN}} PIT(OB&) = 0 + {{Cl|IF...THEN|IF}} PIT(OB&) > 359 {{Cl|THEN}} PIT(OB&) = 0 YAW(OB&) = YAW(OB&) + 7 - {{Cl|IF...THEN|IF}} YAW(OB&) > 359 {{Cl|THEN}} YAW(OB&) = 0 + {{Cl|IF...THEN|IF}} YAW(OB&) > 359 {{Cl|THEN}} YAW(OB&) = 0 ROL(OB&) = ROL(OB&) + 9 - {{Cl|IF...THEN|IF}} ROL(OB&) > 359 {{Cl|THEN}} ROL(OB&) = 0 + {{Cl|IF...THEN|IF}} ROL(OB&) > 359 {{Cl|THEN}} ROL(OB&) = 0 {{Cl|NEXT}} ' ' Calculate Frames per Second frames% = frames% + 1 - {{Cl|IF...THEN|IF}} oldtime$ <> {{Cl|TIME$}} {{Cl|THEN}} + {{Cl|IF...THEN|IF}} oldtime$ <> {{Cl|TIME$}} {{Cl|THEN}} fps% = frames% frames% = 1 oldtime$ = {{Cl|TIME$}} {{Cl|END IF}} - {{Cl|COLOR}} {{Cl|_RGB}}(255, 255, 255): {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "FPS :"; fps% + {{Cl|COLOR}} {{Cl|_RGB}}(255, 255, 255): {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "FPS :"; fps% ' ' Show Image on Screen {{Cl|_DISPLAY}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|WIDTH}} 80: {{Cl|SCREEN}} 0: {{Cl|CLS}} {{Cl|SUB}} DrawHline (fromx%, tox%, yy%, col%) '{{Cl|DEF SEG}} = {{Cl|&H}}A000 - '{{Cl|IF...THEN|IF}} fromx% > tox% {{Cl|THEN}} {{Cl|SWAP}} fromx%, tox% + '{{Cl|IF...THEN|IF}} fromx% > tox% {{Cl|THEN}} {{Cl|SWAP}} fromx%, tox% 'yyy& = yy% 'sloc& = yyy& * 320 + fromx% 'eloc& = sloc& + (tox% - fromx%) @@ -253,12 +251,12 @@ DO {{Cl|SUB}} DrawTriangle (x1%, y1%, x2%, y2%, x3%, y3%, col%) DO sflag% = 0 - {{Cl|IF...THEN|IF}} y1% > y2% {{Cl|THEN}} + {{Cl|IF...THEN|IF}} y1% > y2% {{Cl|THEN}} sflag% = 1 {{Cl|SWAP}} y1%, y2% {{Cl|SWAP}} x1%, x2% {{Cl|END IF}} - {{Cl|IF...THEN|IF}} y2% > y3% {{Cl|THEN}} + {{Cl|IF...THEN|IF}} y2% > y3% {{Cl|THEN}} sflag% = 1 {{Cl|SWAP}} y2%, y3% {{Cl|SWAP}} x2%, x3% @@ -269,12 +267,12 @@ DO ' Draw a flat bottomed triangle ydiff1% = y2% - y1% ydiff2% = y3% - y1% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x2% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x1%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -292,12 +290,12 @@ DO ' Draw a flat topped triangle ydiff1% = y3% - y1% ydiff2% = y3% - y2% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x3% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x2%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -315,12 +313,12 @@ DO ' First draw the flat bottom portion (top half) ydiff1% = y2% - y1% ydiff2% = y3% - y1% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x2% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x1%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -337,12 +335,12 @@ DO y1% = y2% ydiff1% = y3% - y1% ydiff2% = y3% - y2% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x3% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x2%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -361,12 +359,10 @@ DO {{CodeEnd}}{{small|Demo by Andrew L. Ayers}} -''Example 3:'' A 3D Spinning Cube demo using the [http://www.qb64.net/qb64_trans.png QB64 bee] hardware image and '''QB64GL''' hardware acceleration with [[_MAPTRIANGLE]]: +''Example 3:'' A 3D Spinning Cube demo using a hardware image and '''QB64GL''' hardware acceleration with [[_MAPTRIANGLE]]: {{CodeStart}} '' '' ' Copyright (C) 2011 by Andrew L. Ayers -{{Cl|DECLARE}} {{Cl|SUB}} DrawHline (fromx%, tox%, yy%, col%) -{{Cl|DECLARE}} {{Cl|SUB}} DrawTriangle (x1%, y1%, x2%, y2%, x3%, y3%, col%) {{Cl|DIM}} OBJECT(9, 9, 4, 2) {{Cl|AS}} {{Cl|LONG}} ' OBJECTS DEFINED {{Cl|AS}} FOLLOWS: @@ -438,10 +434,10 @@ PLANECOL(3) = 6 PLANECOL(4) = 7 PLANECOL(5) = 8 ' -{{Cl|_TITLE}} "QB64 {{Cl|_MAPTRIANGLE}} CUBE DEMO" +{{Cl|_TITLE}} "QB64 {{Cl|_MAPTRIANGLE}} CUBE DEMO" {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 32) -TextureImage& = {{Cl|_LOADIMAGE}}("qb64_trans.png", 32)'<<<< Image from top of QB64 Forum http://www.qb64.net/qb64_trans.png +TextureImage& = {{Cl|_LOADIMAGE}}("qb64_trans.png", 32)'replace with your own image {{Cl|_SETALPHA}} 128, , TextureImage& TextureImage& = {{Cl|_COPYIMAGE}}(TextureImage&, 33)'copy of hardware image @@ -490,7 +486,7 @@ DO T3& = x3& * (y1& * Z2& - y2& * Z1&) ' VISIBLE& = T1& - T2& - T3& - {{Cl|IF...THEN|IF}} VISIBLE& > 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} VISIBLE& > 0 {{Cl|THEN}} ' {{Cl|DRAW}} PLANE xx1% = DPLANE2D(0, 0): yy1% = DPLANE2D(0, 1) xx2% = DPLANE2D(1, 0): yy2% = DPLANE2D(1, 1) @@ -513,30 +509,30 @@ DO ' ' ROTATE OBJECT PIT(OB&) = PIT(OB&) + 5 - {{Cl|IF...THEN|IF}} PIT(OB&) > 359 {{Cl|THEN}} PIT(OB&) = 0 + {{Cl|IF...THEN|IF}} PIT(OB&) > 359 {{Cl|THEN}} PIT(OB&) = 0 YAW(OB&) = YAW(OB&) + 7 - {{Cl|IF...THEN|IF}} YAW(OB&) > 359 {{Cl|THEN}} YAW(OB&) = 0 + {{Cl|IF...THEN|IF}} YAW(OB&) > 359 {{Cl|THEN}} YAW(OB&) = 0 ROL(OB&) = ROL(OB&) + 9 - {{Cl|IF...THEN|IF}} ROL(OB&) > 359 {{Cl|THEN}} ROL(OB&) = 0 + {{Cl|IF...THEN|IF}} ROL(OB&) > 359 {{Cl|THEN}} ROL(OB&) = 0 {{Cl|NEXT}} ' ' Calculate Frames per Second frames% = frames% + 1 - {{Cl|IF...THEN|IF}} oldtime$ <> {{Cl|TIME$}} {{Cl|THEN}} + {{Cl|IF...THEN|IF}} oldtime$ <> {{Cl|TIME$}} {{Cl|THEN}} fps% = frames% frames% = 1 oldtime$ = {{Cl|TIME$}} {{Cl|END IF}} - {{Cl|COLOR}} {{Cl|_RGB}}(255, 255, 255): {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "FPS :"; fps% + {{Cl|COLOR}} {{Cl|_RGB}}(255, 255, 255): {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "FPS :"; fps% ' ' Show Image on Screen {{Cl|_DISPLAY}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|WIDTH}} 80: {{Cl|SCREEN}} 0: {{Cl|CLS}} {{Cl|SUB}} DrawHline (fromx%, tox%, yy%, col%) '{{Cl|DEF SEG}} = {{Cl|&H}}A000 -'{{Cl|IF...THEN|IF}} fromx% > tox% {{Cl|THEN}} {{Cl|SWAP}} fromx%, tox% +'{{Cl|IF...THEN|IF}} fromx% > tox% {{Cl|THEN}} {{Cl|SWAP}} fromx%, tox% 'yyy& = yy% 'sloc& = yyy& * 320 + fromx% 'eloc& = sloc& + (tox% - fromx%) @@ -550,12 +546,12 @@ DO {{Cl|SUB}} DrawTriangle (x1%, y1%, x2%, y2%, x3%, y3%, col%) DO sflag% = 0 - {{Cl|IF...THEN|IF}} y1% > y2% {{Cl|THEN}} + {{Cl|IF...THEN|IF}} y1% > y2% {{Cl|THEN}} sflag% = 1 {{Cl|SWAP}} y1%, y2% {{Cl|SWAP}} x1%, x2% {{Cl|END IF}} - {{Cl|IF...THEN|IF}} y2% > y3% {{Cl|THEN}} + {{Cl|IF...THEN|IF}} y2% > y3% {{Cl|THEN}} sflag% = 1 {{Cl|SWAP}} y2%, y3% {{Cl|SWAP}} x2%, x3% @@ -566,12 +562,12 @@ DO ' Draw a flat bottomed triangle ydiff1% = y2% - y1% ydiff2% = y3% - y1% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x2% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x1%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -589,12 +585,12 @@ DO ' Draw a flat topped triangle ydiff1% = y3% - y1% ydiff2% = y3% - y2% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x3% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x2%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -612,12 +608,12 @@ DO ' First draw the flat bottom portion (top half) ydiff1% = y2% - y1% ydiff2% = y3% - y1% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x2% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x1%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -634,12 +630,12 @@ DO y1% = y2% ydiff1% = y3% - y1% ydiff2% = y3% - y2% - {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff1% <> 0 {{Cl|THEN}} slope1! = (x3% - x1%) / ydiff1% {{Cl|ELSE}} slope1! = 0 {{Cl|END IF}} - {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} ydiff2% <> 0 {{Cl|THEN}} slope2! = (x3% - x2%) / ydiff2% {{Cl|ELSE}} slope2! = 0 @@ -696,7 +692,7 @@ DO {{Cl|_DISPLAY}} {{Cl|LOOP}} '' '' {{CodeEnd}} -: '''Tip:''' If you are using Linux you might want to replace "[[_SCREENIMAGE]]" with a [[_LOADIMAGE]] command if you don't see anything. +: '''Tip:''' If you are using Linux you might want to replace "[[_SCREENIMAGE]]" with a [[_LOADIMAGE]] command if you don't see anything. {{PageSeeAlso}} @@ -708,4 +704,4 @@ DO * [[Hardware images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MAPUNICODE.txt b/internal/help/_MAPUNICODE.txt index 1c8a41259..be81a4775 100644 --- a/internal/help/_MAPUNICODE.txt +++ b/internal/help/_MAPUNICODE.txt @@ -19,7 +19,7 @@ The [[_MAPUNICODE]] statement maps a [[Unicode]] value to an [[ASCII]] character ''Example:'' Converting the extended [[ASCII]] characters to other characters using DATA from the Unicode [[Code Pages]]. {{CodeStart}} '' '' {{Cl|SCREEN}} 0 -{{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\windows\fonts\cour.ttf", 20, "MONOSPACE") +{{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\windows\fonts\cour.ttf", 20, "MONOSPACE") {{Cl|RESTORE}} Microsoft_pc_cpMIK {{Cl|FOR...NEXT|FOR}} ASCIIcode = 128 {{Cl|TO}} 255 @@ -29,7 +29,7 @@ The [[_MAPUNICODE]] statement maps a [[Unicode]] value to an [[ASCII]] character {{Cl|FOR...NEXT|FOR}} i = 128 {{Cl|TO}} 255 - {{Cl|PRINT}} {{Cl|CHR$}}(i) + " "; + {{Cl|PRINT}} {{Cl|CHR$}}(i) + " "; cnt = cnt + 1 {{Cl|IF...THEN|IF}} cnt {{Cl|MOD}} 16 = 0 {{Cl|THEN}} {{Cl|PRINT}} {{Cl|NEXT}} @@ -58,4 +58,4 @@ Microsoft_pc_cpMIK: * [[Text Using Graphics]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MAPUNICODE_(function).txt b/internal/help/_MAPUNICODE_(function).txt index fff6820f1..d3b8711d2 100644 --- a/internal/help/_MAPUNICODE_(function).txt +++ b/internal/help/_MAPUNICODE_(function).txt @@ -18,7 +18,7 @@ The [[_MAPUNICODE]] function returns the [[Unicode]] (UTF-32) code point value o {{CodeStart}} {{Cl|DIM}} Unicode&(255) {{Cl|SCREEN (statement)|SCREEN}} 0 -{{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\Windows\Fonts\Cour.ttf", 20, "MONOSPACE") 'select monospace font +{{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\Windows\Fonts\Cour.ttf", 20, "MONOSPACE") 'select monospace font {{Cl|FOR...NEXT|FOR}} ascii = 0 {{Cl|TO}} 255 Unicode&(ascii) = {{Cl|_MAPUNICODE (function)|_MAPUNICODE}}(ascii) 'read Unicode values @@ -36,4 +36,4 @@ Unicode&(ascii) = {{Cl|_MAPUNICODE (function)|_MAPUNICODE}}(ascii) 'read * [[Text Using Graphics]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEM.txt b/internal/help/_MEM.txt index 953d74f43..28d2cf2e4 100644 --- a/internal/help/_MEM.txt +++ b/internal/help/_MEM.txt @@ -1,5 +1,5 @@ {{DISPLAYTITLE:_MEM}} -The [[_MEM]] variable type can be used when working with memory blocks. It has no variable [[type]] suffix. +The [[_MEM]] variable type can be used when working with memory blocks. It has no variable [[Variable Types|type]] suffix. {{PageSyntax}} @@ -8,54 +8,46 @@ The [[_MEM]] variable type can be used when working with memory blocks. It has n {{PageDescription}} ''Variable TYPE:'' -* Memory DOT values are actually part of the built in memory variable [[type]] in QB64. The following [[TYPE]] is built in: +* Memory DOT values are actually part of the built in memory variable [[Variable Types|type]] in QB64. The following [[TYPE]] is built in: {{WhiteStart}}TYPE memory_type OFFSET AS _OFFSET 'start location of block(changes with byte position) SIZE AS _OFFSET 'size of block remaining at offset(changes with position) - TYPE AS LONG 'type description of variable used(never changes) + TYPE AS _OFFSET 'type description of variable used(never changes) ELEMENTSIZE AS _OFFSET 'byte size of values inside the block(never changes) IMAGE AS LONG 'the image handle used when _MEMIMAGE(handle) is used + SOUND AS LONG 'the sound handle used when _MEMSOUND(handle) is used END TYPE {{text|The above [[TYPE]] is for clarification purposes only. It '''doesn't need''' to be pasted in a program to use _MEM.|red}} - -{{text|''IMPORTANT NOTE: As of Build 20170802/57 onward, mem.TYPE has been changed to be an _OFFSET, just as mem.SIZE and mem.ELEMENTSIZE.''|red}} {{WhiteEnd}} ===Usage=== * The _MEM type contains the following '''read-only''' elements where ''name'' is the _MEM variable name: :: ''name'''''.OFFSET''' is the current start position in the memory block AS [[_OFFSET]]. Add bytes to change position. :: ''name'''''.SIZE''' is the remaining size of the block at current position in bytes AS [[_OFFSET]] -:: ''name'''''.TYPE''' is the type (represented as bits combined to form a value) AS [[LONG]]: +:: ''name'''''.TYPE''' is the type (represented as bits combined to form a value) AS [[_OFFSET]]: -==.TYPE values (version 1.000 and up)== -:::* 0 = UDT ([[TYPE|user defined type]]) or memory created by [[_MEMNEW]] -:::* 1 = 1 bit ELEMENT.SIZE=1 *Only used along with specific types (currently integers or floats) -:::* 2 = 2 bit. ELEMENT.SIZE=2 * -:::* 4 = 4 bit. ELEMENT.SIZE=4 * -:::* 8 = 8 bit. ELEMENT.SIZE=8 * -:::* 16 = 16 bit. ELEMENT.SIZE=16 * -:::* 32 = 32 bit. ELEMENT.SIZE=32 * -:::* 64 = 64 bit. ELEMENT.SIZE=64 * -:::* 128 = 128 bit. ELEMENT.SIZE=128 * -:::* 256 = 256 bit. ELEMENT.SIZE=256 * -:::* 512(+ bit*) = integer types only(ie. whole numbers) -:::* 1024(+ bit*) = floating point types only(ie. numbers that can have a decimal point) -:::* 2048 = [[STRING]] type only -:::* 4096(+ 512 + bit*) = [[_UNSIGNED]] integer type only -:::* 8192 = [[_MEM]] type only -:::* 16384(+ 512 + bit*)= [[_OFFSET]] type only +==.TYPE values == +:::* [bit 0] 1* byte types (_BYTE) +:::* [bit 1] 2* byte types (INTEGER) +:::* [bit 2] 4* byte types (LONG or SINGLE) +:::* [bit 3] 8* byte types (DOUBLE or _INTEGER64) +:::* [bit 4] 16* byte types (reserved for future use) +:::* [bit 5] 32* byte types (_FLOAT) +:::* [bit 6] 64* byte types (reserved for future use) +:::* [bit 7] 128 = integer types (_BYTE, INTEGER, LONG, _INTEGER64) (added to *) +:::* [bit 8] 256 = floating point types (SINGLE, DOUBLE, _FLOAT) (added to *) +:::* [bit 9] 512 = STRING types (fixed length or variable length) +:::* [bit 10] 1024 = _UNSIGNED types (added to *+128) +:::* [bit 11] 2048 = pixel data usually from _MEMIMAGE (added to 1+128+1024 for 256 color screens, or 2+128+1024 for text screens, or 4+128+1024 for 32-bit color screens) +:::* [bit 12] 4096 = _MEM TYPE structure (NOT added to 32768) +:::* [bit 13] 8192 = _OFFSET type (added to 4+128+[1024] or 8+128+[1024] or future_size+128+[1024]) +:::* [bit 14] 16384 = data created/defined by _MEMNEW(size) or _MEMNEW(offset,size) +:::* [bit 15] 32768 = a custom, user defined type (ie. created with TYPE name ... END TYPE) +:::* [bit 16] 65536 = an array of data (added to other type values defining the array's data type) ''Note: If a future integer, float or other type doesn't have a size that is 1,2,4,8,16,32,64,128 or 256 it won't have a size-bit set.'' -===Versions prior to 1.000=== -:::* 1 = Integer types such as [[_BYTE]], [[INTEGER]], [[LONG]], [[_INTEGER64]] or [[_OFFSET]] -:::* 2 = [[_UNSIGNED]] variable types. Value must be added to the variable type value.(2 cannot be used by itself) -:::* 3 = ALL [[_UNSIGNED]] [[INTEGER]] type values.(add 1 + 2) -:::* 4 = Floating point types such as [[SINGLE]], [[DOUBLE]] or [[_FLOAT]] -:::* 8 = [[STRING]] -:::* 0 = unknown(eg. created with [[_MEMNEW]]) or [[TYPE|user-defined-types]] - -* '''Note: [[_OFFSET]] values cannot be cast to other variable [[type]]s reliably. _MEM is a reserved custom variable [[type]].''' +* '''Note: [[_OFFSET]] values cannot be cast to other variable [[Variable Types|type]]s reliably. _MEM is a reserved custom variable [[Variable Types|type]].''' * '''[[_MEM (function)|_MEM]] cannot reference variable length [[STRING]] variable values. String values must be designated as a fixed-[[LEN|length]] string.''' @@ -63,7 +55,7 @@ END TYPE ''Example 1:'' Demonstration of .IMAGE to determine an image's dimensions, .TYPE to verify the type and [[_MEMEXISTS]] to check image has not been freed {{CodeStart}} {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(500, 500, 32) -i = {{Cl|_LOADIMAGE}}("qb64_trans.png", 32) +i = {{Cl|_LOADIMAGE}}("qb64_trans.png", 32) {{Cl|_PUTIMAGE}} (0, 0), i {{Cl|DIM}} m {{Cl|AS}} {{Cl|_MEM}} m = {{Cl|_MEMIMAGE}}(i) @@ -71,13 +63,13 @@ m = {{Cl|_MEMIMAGE}}(i) '{{Cl|_MEMFREE}} m t = m.{{Cl|TYPE}} {{Cl|IF...THEN|IF}} t {{Cl|AND (boolean)|AND}} 2048 {{Cl|THEN}} - {{Cl|PRINT}} "this is/was an image" + {{Cl|PRINT}} "this is/was an image" {{Cl|IF...THEN|IF}} {{Cl|_MEMEXISTS}}(m) {{Cl|THEN}} 'check if memory m is still available - {{Cl|PRINT}} t {{Cl|AND (boolean)|AND}} 7; "bytes per pixel" - {{Cl|PRINT}} "image handle "; m.IMAGE - {{Cl|PRINT}} "image width"; {{Cl|_WIDTH (function)|_WIDTH}}(m.IMAGE) - {{Cl|PRINT}} "image height"; {{Cl|_HEIGHT}}(m.IMAGE) - {{Cl|ELSE}} {{Cl|PRINT}} "Memory already freed!" + {{Cl|PRINT}} t {{Cl|AND (boolean)|AND}} 7; "bytes per pixel" + {{Cl|PRINT}} "image handle "; m.IMAGE + {{Cl|PRINT}} "image width"; {{Cl|_WIDTH (function)|_WIDTH}}(m.IMAGE) + {{Cl|PRINT}} "image height"; {{Cl|_HEIGHT}}(m.IMAGE) + {{Cl|ELSE}} {{Cl|PRINT}} "Memory already freed!" {{Cl|END IF}} {{Cl|END IF}} '' '' {{CodeEnd}} @@ -86,11 +78,11 @@ t = m.{{Cl|TYPE}} ''Example 2:'' Converts the current [[_DEST|destination]] [[SCREEN]] 13 image memory altered by [[PSET]] to a [[STRING]] value. SCREEN 13 only. {{CodeStart}} '' '' {{Cl|SCREEN}} 13 -{{Cl|PSET}} (0, 0), {{Cl|ASC}}("H") 'top left corner of screen -{{Cl|PSET}} (1, 0), {{Cl|ASC}}("E") -{{Cl|PSET}} (2, 0), {{Cl|ASC}}("L") -{{Cl|PSET}} (3, 0), {{Cl|ASC}}("L") -{{Cl|PSET}} (4, 0), {{Cl|ASC}}("O") +{{Cl|PSET}} (0, 0), {{Cl|ASC}}("H") 'top left corner of screen +{{Cl|PSET}} (1, 0), {{Cl|ASC}}("E") +{{Cl|PSET}} (2, 0), {{Cl|ASC}}("L") +{{Cl|PSET}} (3, 0), {{Cl|ASC}}("L") +{{Cl|PSET}} (4, 0), {{Cl|ASC}}("O") {{Cl|DIM}} m {{Cl|AS}} {{Cl|_MEM}} m = {{Cl|_MEMIMAGE}}(0) 'copy the screen memory to m @@ -105,7 +97,7 @@ x1$ = {{Cl|_MEMGET (function)|_MEMGET}}(m, m.OFFSET, {{Cl|STRING}} * 5) 'get at HELLO 5448320 6400 1 {{OutputEnd}} -: ''Explanation:'' When a numerical [[_BYTE]] value is converted to a [[STRING]], each byte is converted to an [[ASCII]] character. The QB64 [[IDE]] will capitalize _MEM dot values. +: ''Explanation:'' When a numerical [[_BYTE]] value is converted to a [[STRING]], each byte is converted to an [[ASCII]] character. The QB64 IDE will capitalize _MEM dot values. {{WhiteStart}} m.SIZE = 320 * 200 = 6400 bytes m.ELEMENTSIZE = 1 byte {{WhiteEnd}} @@ -137,7 +129,7 @@ END FUNCTION {{CodeEnd}} -''Explanation:'' The above will print two numbers for us which should match. These numbers will vary, as they're representations of where X is stored in memory, and that position is going to vary every time the program is run. What it should illustrate, however, is a way to convert _OFFSET to _INTEGER64 values, which can sometimes be useful when trying to run calculations involving mem.SIZE, mem.TYPE, or mem.ELEMENTSIZE. +''Explanation:'' The above will print two numbers which should match. These numbers will vary, as they're representations of where X is stored in memory, and that position is going to vary every time the program is run. What it should illustrate, however, is a way to convert _OFFSET to _INTEGER64 values, which can sometimes be useful when trying to run calculations involving mem.SIZE, mem.TYPE, or mem.ELEMENTSIZE. @@ -145,8 +137,9 @@ END FUNCTION * [[_MEM (function)]] * [[_MEMELEMENT]], [[_MEMCOPY]] * [[_MEMIMAGE]], [[_MEMNEW]] +* [[_MEMSOUND]] * [[_MEMGET]], [[_MEMPUT]] * [[_MEMFILL]], [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMCOPY.txt b/internal/help/_MEMCOPY.txt index 873dcbd75..b062a4944 100644 --- a/internal/help/_MEMCOPY.txt +++ b/internal/help/_MEMCOPY.txt @@ -6,7 +6,7 @@ The [[_MEMCOPY]] statement copies a block of bytes from one memory offset to ano : [[_MEMCOPY]] {{Parameter|sourceBlock}}, {{Parameter|sourceBlock.OFFSET}}, {{Parameter|sourceBlock.SIZE}} [[TO]] {{Parameter|destBlock}}, {{Parameter|destBlock.OFFSET}} -{{Parameters}} +{{PageParameters}} * {{Parameter|sourceBlock}} is the source memory block name created AS [[_MEM]]. * {{Parameter|sourceBlock.OFFSET}} is the dot [[_OFFSET]] within the source memory block to read from. * {{Parameter|sourceBlock.SIZE}} is the total number of bytes to transfer based on actual size. @@ -30,17 +30,17 @@ The [[_MEMCOPY]] statement copies a block of bytes from one memory offset to ano m = {{Cl|_MEMNEW}}(10) n = {{Cl|_MEMNEW}}(100) -{{Cl|_MEMPUT}} m, m.OFFSET, "1234567890" +{{Cl|_MEMPUT}} m, m.OFFSET, "1234567890" s$ = {{Cl|SPACE$}}(10) 'to load into a variable length string set its length first {{Cl|_MEMGET}} m, m.OFFSET, s$ -{{Cl|PRINT}} "in:[" + s$ + "]" +{{Cl|PRINT}} "in:[" + s$ + "]" {{Cl|_MEMCOPY}} m, m.OFFSET, m.SIZE {{Cl|TO}} n, n.OFFSET 'put m into n b$ = {{Cl|SPACE$}}(10) {{Cl|_MEMGET}} n, n.OFFSET, b$ -{{Cl|PRINT}} "out:[" + b$ + "]" +{{Cl|PRINT}} "out:[" + b$ + "]" {{Cl|_MEMFREE}} m: {{Cl|_MEMFREE}} n 'always clear the memory when done '' '' {{CodeEnd}} @@ -70,4 +70,4 @@ b$ = {{Cl|SPACE$}}(10) * [[_MEMFILL]], [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMELEMENT.txt b/internal/help/_MEMELEMENT.txt index ff8c675f8..909ce69a6 100644 --- a/internal/help/_MEMELEMENT.txt +++ b/internal/help/_MEMELEMENT.txt @@ -48,7 +48,7 @@ The [[_MEMELEMENT]] function returns a [[_MEM]] block referring to a variable's :::* 8 = [[STRING]] :::* 0 = unknown(eg. created with [[_MEMNEW]]) or [[TYPE|user-defined-types]] -<center>'''Note: [[_MEM]] and [[_OFFSET]] values cannot be cast to other variable types.'''</center> +<center>'''Note: [[_MEM]] and [[_OFFSET]] values cannot be cast to other variable types.'''</center> {{PageExamples}} @@ -82,4 +82,4 @@ m2 = {{Cl|_MEMELEMENT}}(a(50)) 'function returns information about the specific * [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMEXISTS.txt b/internal/help/_MEMEXISTS.txt index 82df17aa5..f91a44970 100644 --- a/internal/help/_MEMEXISTS.txt +++ b/internal/help/_MEMEXISTS.txt @@ -20,4 +20,4 @@ The [[_MEMEXISTS]] function returns true (-1) if the memory block variable name * [[_MEMFILL]], [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMFILL.txt b/internal/help/_MEMFILL.txt index 80b02efda..2ea0f18cc 100644 --- a/internal/help/_MEMFILL.txt +++ b/internal/help/_MEMFILL.txt @@ -6,12 +6,12 @@ The [[_MEMFILL]] statement converts a value to a specified type, then fills memo : [[_MEMFILL]] {{Parameter|memoryBlock}}, {{Parameter|memoryBlock.OFFSET}}, {{Parameter|fillBytes}}, {{Parameter|value}} [AS {{Parameter|variableType}}] -{{Parameters}} +{{PageParameters}} * The {{Parameter|memoryBlock}} [[_MEM]] memory block is the block referenced to be filled. * {{Parameter|memoryBlock.OFFSET}} is the starting offset of the above referenced memory block. * The {{Parameter|fillBytes}} is the number of bytes to fill the memory block. * The {{Parameter|value}} is the value to place in the memory block at the designated OFFSET position. -* A literal or variable {{Parameter|value}} can be optionally set [[AS]] a variable [[type]] appropriate for the memory block. +* A literal or variable {{Parameter|value}} can be optionally set [[AS]] a variable [[Variable Types|type]] appropriate for the memory block. {{PageDescription}} @@ -45,4 +45,4 @@ mema = {{Cl|_MEM (function)|_MEM}}(b()) * [[_MEMGET]], [[_MEMPUT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMFREE.txt b/internal/help/_MEMFREE.txt index 2e0f1ece2..ff77f9c63 100644 --- a/internal/help/_MEMFREE.txt +++ b/internal/help/_MEMFREE.txt @@ -6,7 +6,7 @@ The [[_MEMFREE]] statement frees the designated memory block [[_MEM]] value and : [[_MEMFREE]] {{Parameter|memoryVariable}} -{{Parameters}} +{{PageParameters}} * ALL designated [[_MEM]] type {{Parameter|memoryVariable}} values must be freed to conserve memory when they are no longer used or needed. @@ -24,4 +24,4 @@ The [[_MEMFREE]] statement frees the designated memory block [[_MEM]] value and * [[_MEMGET (function)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMGET.txt b/internal/help/_MEMGET.txt index 351df873f..37d69b977 100644 --- a/internal/help/_MEMGET.txt +++ b/internal/help/_MEMGET.txt @@ -8,18 +8,18 @@ The [[_MEMGET]] statement reads a portion of a memory block at an OFFSET positio * {{Parameter|memoryBlock}} is a [[_MEM]] variable type memory block name created by [[_MEMNEW]] or the [[_MEM (function)|_MEM]] function. * {{Parameter|bytePosition}} is the {{Parameter|memoryBlock}}.[[OFFSET]] memory start position plus any bytes to move into the block. -* {{Parameter|destinationVariable}} is the variable assigned to hold the data. The number of bytes read is determined by the variable [[type]] used. +* {{Parameter|destinationVariable}} is the variable assigned to hold the data. The number of bytes read is determined by the variable [[Variable Types|type]] used. {{PageDescription}} * The [[_MEMGET]] statement is similar to the [[GET]] statement used in files, but the position is required. * The memory block name.[[OFFSET]] returns the starting byte position of the block. Add bytes to move into the block. * The variable type held in the memory block can determine the next {{Parameter|bytePosition}} to read. -* [[LEN]] can be used to determine the byte size of numerical or user defined variable [[type]]s regardless of the value held. +* [[LEN]] can be used to determine the byte size of numerical or user defined variable [[Variable Types|type]]s regardless of the value held. * [[STRING]] values should be of a defined length. Variable length strings can actually move around in memory and not be found. -{{PageExamples]] +{{PageExamples}} ''Example:'' Shows how to read the PSET color values from a program's [[SCREEN]] memory to an array. {{CodeStart}} '' '' {{Cl|SCREEN}} 13 @@ -49,4 +49,4 @@ m = {{Cl|_MEMIMAGE}} '0 or no handle necessary when accessing the current progr * [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMGET_(function).txt b/internal/help/_MEMGET_(function).txt index b4ea30db3..aa661e8ae 100644 --- a/internal/help/_MEMGET_(function).txt +++ b/internal/help/_MEMGET_(function).txt @@ -6,7 +6,7 @@ The [[_MEMGET]] function returns a value from a specific memory block name at th : {{Parameter|returnValue}} = [[_MEMGET]]({{Parameter|memoryBlock}}, {{Parameter|bytePosition}}, {{Parameter|variableType}}) -{{Parameters}} +{{PageParameters}} * Returns a value of the {{Parameter|variableType}} designated. The holding variable must match that [[TYPE]]. * {{Parameter|memoryBlock}} is a [[_MEM]] variable type memory block name created by [[_MEMNEW]] or the [[_MEM (function)|_MEM]] function. * {{Parameter|bytePosition}} is the {{Parameter|memoryBlock}}.[[OFFSET]] memory start position plus any bytes to move into the block. @@ -16,9 +16,9 @@ The [[_MEMGET]] function returns a value from a specific memory block name at th {{PageDescription}} * {{Parameter|memoryBlock}}.[[OFFSET]] returns the starting byte position of the block. Add bytes to move into the block. * The variable type held in the memory block can determine the next {{Parameter|bytePosition}} to read. -* [[LEN]] can be used to determine the byte size of numerical or user defined variable [[type]]s regardless of the value held. +* [[LEN]] can be used to determine the byte size of numerical or user defined variable [[Variable Types|type]]s regardless of the value held. * [[STRING]] values should be of a defined length. Variable length strings can actually move around in memory and not be found. -* '''_MEMGET variable values that are assigned a variable [[type]] other than a memory type do not need to be freed.''' +* '''_MEMGET variable values that are assigned a variable [[Variable Types|type]] other than a memory type do not need to be freed.''' {{PageExamples}} @@ -42,4 +42,4 @@ v = {{Cl|_MEMGET (function)|_MEMGET}}(o, o.OFFSET + 1, {{Cl|_UNSIGNED}} {{Cl|_BY * [[_MEMCOPY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMIMAGE.txt b/internal/help/_MEMIMAGE.txt index 88666ed0c..ff931f1ff 100644 --- a/internal/help/_MEMIMAGE.txt +++ b/internal/help/_MEMIMAGE.txt @@ -6,14 +6,14 @@ The [[_MEMIMAGE]] function returns a [[_MEM]] value referring to an image's memo : {{Parameter|imageBlock}} = [[_MEMIMAGE]][({{Parameter|imageHandle&}})] -{{Parameters}} +{{PageParameters}} * The {{Parameter|imageBlock}} [[_MEM]] type variable holds the read-only elements .OFFSET, .SIZE, .TYPE and .ELEMENTSIZE. * If the optional {{Parameter|imageHandle&}} isn't passed, it is assumed to be the current [[_DEST]]ination program screen image. {{PageDescription}} * Use the function to place images into memory access blocks for faster data access. -* All values created by this function must be freed using [[_MEMFREE]] with a valid [[_MEM]] [[type]] variable. +* All values created by this function must be freed using [[_MEMFREE]] with a valid [[_MEM]] [[Variable Types|type]] variable. * Image handle values and the memory used must still be freed using [[_FREEIMAGE]] when no longer required. @@ -21,7 +21,7 @@ The [[_MEMIMAGE]] function returns a [[_MEM]] value referring to an image's memo ''Example 1:'' Darkening an image using memory with [[$CHECKING]]:OFF for greater speed. Use any 24 bit image file name on the second code line. {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(1024, 768, 32) -i& = {{Cl|_LOADIMAGE}}("turtle.jpg") '<<<<<<<<<<<<< use any 24 bit image file +i& = {{Cl|_LOADIMAGE}}("turtle.jpg") '<<<<<<<<<<<<< use any 24 bit image file {{Cl|FOR...NEXT|FOR}} n! = 1 {{Cl|TO}} 0.01 {{Cl|STEP}} -0.01 i2& = {{Cl|_COPYIMAGE}}(i&) @@ -32,7 +32,7 @@ i& = {{Cl|_LOADIMAGE}}("turtle.jpg") '<<<<<<< {{Cl|NEXT}} {{Cl|SUB}} DarkenImage (Image {{Cl|AS}} {{Cl|LONG}}, Value_From_0_To_1 {{Cl|AS}} {{Cl|SINGLE}}) -{{Cl|IF...THEN|IF}} Value_From_0_To_1 <= 0 {{Cl|OR (boolean)|OR}} Value_From_0_To_1 >= 1 {{Cl|OR (boolean)|OR}} {{Cl|_PIXELSIZE}}(Image) <> 4 {{Cl|THEN}} {{Cl|EXIT SUB}} +{{Cl|IF...THEN|IF}} Value_From_0_To_1 <= 0 {{Cl|OR (boolean)|OR}} Value_From_0_To_1 >= 1 {{Cl|OR (boolean)|OR}} {{Cl|_PIXELSIZE}}(Image) <> 4 {{Cl|THEN}} {{Cl|EXIT SUB}} {{Cl|DIM}} Buffer {{Cl|AS}} {{Cl|_MEM}}: Buffer = {{Cl|_MEMIMAGE}}(Image) 'Get a memory reference to our image {{Cl|DIM}} Frac_Value {{Cl|AS}} {{Cl|LONG}}: Frac_Value = Value_From_0_To_1 * 65536 'Used to avoid slow floating point calculations {{Cl|DIM}} O {{Cl|AS}} {{Cl|_OFFSET}}, O_Last {{Cl|AS}} {{Cl|_OFFSET}} @@ -58,17 +58,17 @@ DO {{CodeStart}} '' '' {{Cl|SCREEN}} 13 {{Cl|_FULLSCREEN}} -{{Cl|PSET}} (0, 0), {{Cl|ASC}}("H") -{{Cl|PSET}} (1, 0), {{Cl|ASC}}("E") -{{Cl|PSET}} (2, 0), {{Cl|ASC}}("L") -{{Cl|PSET}} (3, 0), {{Cl|ASC}}("L") -{{Cl|PSET}} (4, 0), {{Cl|ASC}}("O") +{{Cl|PSET}} (0, 0), {{Cl|ASC}}("H") +{{Cl|PSET}} (1, 0), {{Cl|ASC}}("E") +{{Cl|PSET}} (2, 0), {{Cl|ASC}}("L") +{{Cl|PSET}} (3, 0), {{Cl|ASC}}("L") +{{Cl|PSET}} (4, 0), {{Cl|ASC}}("O") {{Cl|PSET}} (5, 0), 32 -{{Cl|PSET}} (6, 0), {{Cl|ASC}}("W") -{{Cl|PSET}} (7, 0), {{Cl|ASC}}("O") -{{Cl|PSET}} (8, 0), {{Cl|ASC}}("R") -{{Cl|PSET}} (9, 0), {{Cl|ASC}}("L") -{{Cl|PSET}} (10, 0), {{Cl|ASC}}("D") +{{Cl|PSET}} (6, 0), {{Cl|ASC}}("W") +{{Cl|PSET}} (7, 0), {{Cl|ASC}}("O") +{{Cl|PSET}} (8, 0), {{Cl|ASC}}("R") +{{Cl|PSET}} (9, 0), {{Cl|ASC}}("L") +{{Cl|PSET}} (10, 0), {{Cl|ASC}}("D") {{Cl|DIM}} m {{Cl|AS}} {{Cl|_MEM}} m = {{Cl|_MEMIMAGE}} x1$ = {{Cl|_MEMGET (function)|_MEMGET}}(m, m.OFFSET, {{Cl|STRING}} * 11) 'convert numbers to ASCII text characters @@ -86,7 +86,6 @@ x1$ = {{Cl|_MEMGET (function)|_MEMGET}}(m, m.OFFSET, {{Cl|STRING}} * 11) 'conver * [[_MEMGET]], [[_MEMPUT]] * [[_MEMFREE]] * [[$CHECKING]] -* [http://www.qb64.net/forum/index.php?topic=11052.0 Reading pixel colors faster using _MEMIMAGE] (forum post) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMNEW.txt b/internal/help/_MEMNEW.txt index 5eb820870..dc4031d4a 100644 --- a/internal/help/_MEMNEW.txt +++ b/internal/help/_MEMNEW.txt @@ -6,8 +6,8 @@ The [[_MEMNEW]] function allocates new memory and returns a [[_MEM]] memory bloc : {{Parameter|memoryBlock}} = [[_MEMNEW]]({{Parameter|byteSize}}) -{{Parameters}} -* The {{Parameter|byteSize}} parameter is the desired byte size of the memory block based on the variable [[type]] it will hold. +{{PageParameters}} +* The {{Parameter|byteSize}} parameter is the desired byte size of the memory block based on the variable [[Variable Types|type]] it will hold. {{PageDescription}} @@ -28,15 +28,15 @@ m = {{Cl|_MEMNEW}}(5) 'create new memory block of 5 bytes a = 12345.6 {{Cl|_MEMPUT}} m, m.OFFSET, a 'put single value {{Cl|_MEMGET}} m, m.OFFSET, b 'get single value -{{Cl|PRINT}} "b = "; b -c$ = "Doggy" +{{Cl|PRINT}} "b = "; b +c$ = "Doggy" {{Cl|_MEMPUT}} m, m.OFFSET, c$ 'put 5 byte string value {{Cl|_MEMGET}} m, m.OFFSET, d$ 'get unfixed length string value {{Cl|_MEMGET}} m, m.OFFSET, f 'get 5 byte string value e$ = {{Cl|_MEMGET (function)|_MEMGET}}(m, m.OFFSET, {{Cl|STRING}} * 5) 'get 5 byte string value -{{Cl|PRINT}} "d$ = "; d$; {{Cl|LEN}}(d$) 'prints empty string -{{Cl|PRINT}} "e$ = "; e$; {{Cl|LEN}}(e$) -{{Cl|PRINT}} "f = "; f; {{Cl|LEN}}(f) '' '' +{{Cl|PRINT}} "d$ = "; d$; {{Cl|LEN}}(d$) 'prints empty string +{{Cl|PRINT}} "e$ = "; e$; {{Cl|LEN}}(e$) +{{Cl|PRINT}} "f = "; f; {{Cl|LEN}}(f) '' '' {{CodeEnd}} {{OutputStart}}b = 12345.6 d$ = 0 @@ -51,4 +51,4 @@ f = Doggy 5 {{OutputEnd}} * [[_MEMFILL]], [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMPUT.txt b/internal/help/_MEMPUT.txt index 4dd865d9e..c1d01fe95 100644 --- a/internal/help/_MEMPUT.txt +++ b/internal/help/_MEMPUT.txt @@ -6,7 +6,7 @@ The [[_MEMPUT]] statement writes data to a portion of a designated memory block : [[_MEMPUT]] {{Parameter|memoryBlock}}, {{Parameter|bytePosition}}, {{Parameter|sourceVariable}} [AS {{Parameter|type}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|memoryBlock}} is a [[_MEM]] variable type memory block name created by [[_MEMNEW]] or the [[_MEM (function)|_MEM]] function. * {{Parameter|bytePosition}} is the {{Parameter|memoryBlock}}.[[OFFSET]] start position plus any bytes needed to read specific values. * The {{Parameter|sourceVariable}} type designates the size and {{Parameter|bytePosition}} it should be written to. It can be a variable, [[arrays|array]] or user defined type. @@ -17,7 +17,7 @@ The [[_MEMPUT]] statement writes data to a portion of a designated memory block * The _MEMPUT statement is similar to the [[PUT]] file statement, but {{Parameter|bytePosition}} is required. * The {{Parameter|memoryBlock}}.[[OFFSET]] returns the starting byte position of the block. Add bytes to move into the block. * The variable type held in the memory block can determine the next ''byte position'' to write a value. -* [[LEN]] can be used to determine the byte size of numerical or user defined variable [[type]]s regardless of the value held. +* [[LEN]] can be used to determine the byte size of numerical or user defined variable [[Variable Types|type]]s regardless of the value held. * [[STRING]] values should be of a defined length. Variable length strings can actually move around in memory and not be found. @@ -40,4 +40,4 @@ v = {{Cl|_MEMGET (function)|_MEMGET}}(o, o.OFFSET + 1, {{Cl|_UNSIGNED}} {{Cl|_BY * [[_MEMFREE]], [[_MEMCOPY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MEMSOUND.txt b/internal/help/_MEMSOUND.txt new file mode 100644 index 000000000..8eee43e02 --- /dev/null +++ b/internal/help/_MEMSOUND.txt @@ -0,0 +1,88 @@ +{{DISPLAYTITLE:_MEMSOUND}} +The [[_MEMSOUND]] function returns a [[_MEM]] value referring to a sound's raw data in memory using a designated sound handle created by the [[_SNDOPEN]] function. + + +{{PageSyntax}} +: {{Parameter|imageBlock}} = [[_MEMSOUND]][({{Parameter|soundHandle&}}, {{Parameter|channel%}})] + + +{{PageParameters}} +* The {{Parameter|imageBlock}} [[_MEM]] type variable holds the read-only elements .OFFSET, .SIZE, .ELEMENTSIZE, and .SOUND. +** .ELEMENTSIZE will contain the number of bytes-per-sample the audio contains. Usually returns 2 (16-bit audio). +** .SOUND will contain the same handle value as returned by the [[_SNDOPEN]] function. +* The second parameter {{Parameter| channel%}} must be 1 (left channel/mono) or 2 (right channel, for stereo files). + + +{{PageDescription}} +* Use the function to access raw sound data in memory for direct access. +* Sound handle values and the memory used must still be freed using [[_SNDCLOSE]] when no longer required. +* If .SIZE returns 0, that means the data could not be accessed. It may happen if you try to access the right channel in a mono file, for example. + + +{{PageAvailability}} +* Version 1.5 and up. + + +{{PageExamples}} +''Example 1:'' Checking that a sound file is stereo. +{{CodeStart}} '' '' +song& = {{Cl|_SNDOPEN}}("song.wav") 'replace song.wav with a sound file you have +{{Cl|IF}} song& = 0 {{Cl|THEN}} {{Cl|PRINT}} "Load failed.": {{Cl|END}} + +{{Cl|DIM}} leftchannel {{Cl|AS}} {{Cl|_MEM}}, rightchannel {{Cl|AS}} {{Cl|_MEM}} +leftchannel = {{Cl|_MEMSOUND}}(song&, 1) +rightchannel = {{Cl|_MEMSOUND}}(song&, 2) + +{{Cl|IF}} rightchannel.SIZE > 0 {{Cl|THEN}} {{Cl|PRINT}} "This file is STEREO" +{{Cl|IF}} rightchannel.SIZE = 0 {{Cl|AND}} leftchannel.SIZE > 0 {{Cl|THEN}} + {{Cl|PRINT}} "This file is MONO" +{{Cl|ELSEIF}} rightchannel.SIZE = 0 {{Cl|AND}} leftchannel.SIZE = 0 {{Cl|THEN}} + {{Cl|PRINT}} "An error occurred." +{{Cl|END IF}} + +{{Cl|_SNDCLOSE}} song& 'closing the sound releases the mem blocks '' '' +{{CodeEnd}} + + +''Example 2:'' Plotting a sound's waves. +{{CodeStart}} '' '' +{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 327, 32) +song& = {{Cl|_SNDOPEN}}("drums.ogg") 'replace drums.ogg with a sound file you have +{{Cl|IF}} song& = 0 {{Cl|THEN}} {{Cl|PRINT}} "Load failed.": {{Cl|END}} + +{{Cl|DIM}} leftchannel {{Cl|AS}} {{Cl|_MEM}} +leftchannel = {{Cl|_MEMSOUND}}(song&, 1) + +{{Cl|IF}} leftchannel.SIZE = 0 {{Cl|THEN}} + {{Cl|PRINT}} "An error occurred." + {{Cl|END}} +{{Cl|END IF}} + +{{Cl|DIM}} i {{Cl|AS}} {{Cl|_OFFSET}} +i = 0 +{{Cl|DO}} + {{Cl|_MEMGET}} leftchannel, leftchannel.OFFSET + i, a% 'get sound data + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} i; "/"; leftchannel.SIZE + {{Cl|LINE}} (x, {{Cl|_HEIGHT}} / 2)-{{Cl|STEP}}(0, a% / 100), {{Cl|_RGB32}}(0, 111, 0) 'plot wave + x = x + 1 + {{Cl|IF}} x > {{Cl|_WIDTH}} {{Cl|THEN}} + x = 0 + {{Cl|LINE}} (0, 0)-({{Cl|_WIDTH}}, {{Cl|_HEIGHT}}), {{Cl|_RGB32}}(0, 120), BF 'fade out screen + {{Cl|END}} {{Cl|IF}} + i = i + 2 + {{Cl|IF}} i + 2 > leftchannel.SIZE {{Cl|THEN}} {{Cl|EXIT}} {{Cl|DO}} + {{Cl|_LIMIT}} 500 +{{Cl|LOOP}} + +{{Cl|_SNDCLOSE}} song& 'closing the sound releases the mem blocks '' '' +{{CodeEnd}} + + +{{PageSeeAlso}} +* [[_MEM]], [[_MEMIMAGE]] +* [[_MEMNEW]] +* [[_MEMGET]], [[_MEMPUT]] +* [[_MEMFREE]] +* [[$CHECKING]] + +{{PageNavigation}} diff --git a/internal/help/_MEM_(function).txt b/internal/help/_MEM_(function).txt index e16984b31..a318e9d0b 100644 --- a/internal/help/_MEM_(function).txt +++ b/internal/help/_MEM_(function).txt @@ -9,7 +9,7 @@ The [[_MEM]] function returns a _MEM block referring to the largest possible con : {{Parameter|memoryBlock}} = [[_MEM]]({{Parameter|offset}}, {{Parameter|byteSize}}) -{{Parameters}} +{{PageParameters}} * The {{Parameter|memoryBlock}} created will hold the {{Parameter|referenceVariable}} or [[arrays|array]] value(s), type and byte size in a separate memory area. * The secure syntax {{Parameter|referenceVariable}} is an existing variable's referenced memory block. * The unsecure syntax's designated {{Parameter|offset}} and {{Parameter|byteSize}} cannot be guaranteed. '''Avoid if possible.''' @@ -67,4 +67,4 @@ Saved(3) = n3 * [[_MEMFREE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MK$.txt b/internal/help/_MK$.txt index 8d2459040..2ea5c3e19 100644 --- a/internal/help/_MK$.txt +++ b/internal/help/_MK$.txt @@ -6,8 +6,8 @@ The [[_MK$]] function can convert any numerical type into an [[ASCII]] [[STRING] :{{Parameter|string_value$}} = [[_MK$]]({{Parameter|numericalType}}, {{Parameter|numericalValue}}) -{{Parameters}} -* {{Parameter|numericalType}} is any QB64 numerical type: [[INTEGER]], [[LONG]], [[SINGLE]], [[DOUBLE]], [[_INTEGER64]], [[_BYTE]] or [[_BIT]]. +{{PageParameters}} +* {{Parameter|numericalType}} is any QB64 numerical type: [[INTEGER]], [[LONG]], [[SINGLE]], [[DOUBLE]], [[_INTEGER64]], [[_BYTE]] and [[_OFFSET]]. * Whole integer values can be signed or [[_UNSIGNED]]. * {{Parameter|numericalValue}} must match the {{Parameter|numericalType}} used. @@ -28,4 +28,4 @@ The [[_MK$]] function can convert any numerical type into an [[ASCII]] [[STRING] * [[PDS(7.1) Procedures#CURRENCY|CURRENCY]] -{{PageNavigation}}{{DISPLAYTITLE:}} \ No newline at end of file +{{PageNavigation}}{{DISPLAYTITLE:}} diff --git a/internal/help/_MOUSEBUTTON.txt b/internal/help/_MOUSEBUTTON.txt index 8d33d3515..d84c74b15 100644 --- a/internal/help/_MOUSEBUTTON.txt +++ b/internal/help/_MOUSEBUTTON.txt @@ -6,7 +6,7 @@ The [[_MOUSEBUTTON]] function returns the button status of a specified mouse but : {{Parameter|buttonStatus%%}} = [[_MOUSEBUTTON]]({{Parameter|buttoNumber}}) -{{Parameters}} +{{PageParameters}} * [[INTEGER]] {{Parameter|buttoNumber}} designates the mouse button to read (See [[_DEVICES]] for more than 3). ** 1 = Left mouse button ** 2 = Right mouse button @@ -18,7 +18,7 @@ The [[_MOUSEBUTTON]] function returns the button status of a specified mouse but * Read [[_MOUSEINPUT]] first to return the current button up or down status. (See Example 2) * Button clicks and mouse movements will be remembered and should be cleared after an [[INPUT]] statement or other interruption. * To clear unread mouse input, use a [[_MOUSEINPUT]] loop that loops until it returns 0. -* Use [[_DEVICE$]] to find the "[MOUSE]" [[_DEVICES]] number to find the number of buttons available using [[_LASTBUTTON]]. +* Use [[_DEVICE$]] to find the "[MOUSE]" [[_DEVICES]] number to find the number of buttons available using [[_LASTBUTTON]]. * '''Note:''' The center mouse button can also be read as [[_BUTTON]](2) on [[_DEVICEINPUT]](2) when a mouse is present. @@ -27,24 +27,24 @@ The [[_MOUSEBUTTON]] function returns the button status of a specified mouse but {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} d = 1 {{Cl|TO}} {{Cl|_DEVICES}} 'number of input devices found dev$ = {{Cl|_DEVICE$}}(d) - {{Cl|IF...THEN|IF}} {{Cl|INSTR}}(dev$, "[MOUSE]") {{Cl|THEN}} buttons = {{Cl|_LASTBUTTON}}(d): {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} + {{Cl|IF...THEN|IF}} {{Cl|INSTR}}(dev$, "[MOUSE]") {{Cl|THEN}} buttons = {{Cl|_LASTBUTTON}}(d): {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} {{Cl|NEXT}} -{{Cl|PRINT}} buttons; "mouse buttons available" '' '' +{{Cl|PRINT}} buttons; "mouse buttons available" '' '' {{CodeEnd}} ''Example 2:'' How to monitor when a button is down or wait until a mouse button is not held down. {{CodeStart}} '' '' -{{Cl|PRINT}} "Hold down the left mouse button until you want to quit!" +{{Cl|PRINT}} "Hold down the left mouse button until you want to quit!" DO i = {{Cl|_MOUSEINPUT}} ' read #1 - {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} {{Cl|PRINT}} "Left button down!": {{Cl|EXIT DO}} + {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} {{Cl|PRINT}} "Left button down!": {{Cl|EXIT DO}} {{Cl|LOOP}} {{Cl|DO...LOOP|DO}} ' need to wait i = {{Cl|_MOUSEINPUT}} ' read #2 until the mouse {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|NOT}} {{Cl|_MOUSEBUTTON}}(1) ' button is released -{{Cl|PRINT}} "DONE!" '' '' +{{Cl|PRINT}} "DONE!" '' '' {{CodeEnd}} @@ -67,7 +67,7 @@ DO i = {{Cl|_MOUSEINPUT}} {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} Click = 2: {{Cl|EXIT DO}} {{Cl|LOOP}} - {{Cl|IF...THEN|IF}} Click = 2 {{Cl|THEN}} {{Cl|PRINT}} "Double click" {{Cl|ELSE}} {{Cl|PRINT}} "Click" + {{Cl|IF...THEN|IF}} Click = 2 {{Cl|THEN}} {{Cl|PRINT}} "Double click" {{Cl|ELSE}} {{Cl|PRINT}} "Click" {{Cl|END IF}} Click = 0: buttondown = 0 'reset where needed {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) '' '' @@ -83,12 +83,12 @@ DO {{Cl|DO...LOOP|DO}} Mouser mx, my, mb {{Cl|IF...THEN|IF}} mb {{Cl|THEN}} - {{Cl|IF...THEN|IF}} mx >= 250 {{Cl|AND (boolean)|AND}} my >= 250 {{Cl|AND (boolean)|AND}} mx <= 300 {{Cl|AND (boolean)|AND}} my <= 300 {{Cl|THEN}} 'button down + {{Cl|IF...THEN|IF}} mx >= 250 {{Cl|AND (boolean)|AND}} my >= 250 {{Cl|AND (boolean)|AND}} mx <= 300 {{Cl|AND (boolean)|AND}} my <= 300 {{Cl|THEN}} 'button down {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} mb 'wait for button release Mouser mx, my, mb {{Cl|LOOP}} 'verify mouse still in box area - {{Cl|IF...THEN|IF}} mx >= 250 {{Cl|AND (boolean)|AND}} my >= 250 {{Cl|AND (boolean)|AND}} mx <= 300 {{Cl|AND (boolean)|AND}} my <= 300 {{Cl|THEN}} {{Cl|PRINT}} "Click verified on yellow box!" + {{Cl|IF...THEN|IF}} mx >= 250 {{Cl|AND (boolean)|AND}} my >= 250 {{Cl|AND (boolean)|AND}} mx <= 300 {{Cl|AND (boolean)|AND}} my <= 300 {{Cl|THEN}} {{Cl|PRINT}} "Click verified on yellow box!" {{Cl|END IF}} {{Cl|END IF}} {{Cl|LOOP}} @@ -112,9 +112,9 @@ y = {{Cl|_MOUSEY}} ''Example 5:'' Combining mouse button or keyboard selections in a menu or test: {{CodeStart}} '' '' {{Cl|DO...LOOP|DO}} 'main program loop in demo only - {{Cl|LOCATE}} 10, 10: {{Cl|PRINT}} "A" 'position A, B & C in same position on every question - {{Cl|LOCATE}} 12, 10: {{Cl|PRINT}} "B" - {{Cl|LOCATE}} 14, 10: {{Cl|PRINT}} "C" 'demo only + {{Cl|LOCATE}} 10, 10: {{Cl|PRINT}} "A" 'position A, B & C in same position on every question + {{Cl|LOCATE}} 12, 10: {{Cl|PRINT}} "B" + {{Cl|LOCATE}} 14, 10: {{Cl|PRINT}} "C" 'demo only {{Cl|DO...LOOP|DO}}: {{Cl|_LIMIT}} 10 'get user answer loop {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}}: {{Cl|LOOP}} 'read mouse @@ -130,7 +130,7 @@ y = {{Cl|_MOUSEY}} x% = {{Cl|_MOUSEX}} y% = {{Cl|_MOUSEY}} {{Cl|LOOP}} {{Cl|WHILE}} {{Cl|_MOUSEBUTTON}}(1) - {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 10 {{Cl|THEN}} K$ = "A" 'position released + {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 10 {{Cl|THEN}} K$ = "A" 'position released {{Cl|END IF}} {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 12 {{Cl|AND (boolean)|AND}} Lclick {{Cl|THEN}} 'position clicked DO @@ -138,7 +138,7 @@ y = {{Cl|_MOUSEY}} x% = {{Cl|_MOUSEX}} y% = {{Cl|_MOUSEY}} {{Cl|LOOP}} {{Cl|WHILE}} {{Cl|_MOUSEBUTTON}}(1) - {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 12 {{Cl|THEN}} K$ = "B" 'position released + {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 12 {{Cl|THEN}} K$ = "B" 'position released {{Cl|END IF}} {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 14 {{Cl|AND (boolean)|AND}} Lclick {{Cl|THEN}} 'position clicked DO @@ -146,15 +146,15 @@ y = {{Cl|_MOUSEY}} x% = {{Cl|_MOUSEX}} y% = {{Cl|_MOUSEY}} {{Cl|LOOP}} {{Cl|WHILE}} {{Cl|_MOUSEBUTTON}}(1) - {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 14 {{Cl|THEN}} K$ = "C" 'position released + {{Cl|IF...THEN|IF}} x% = 10 {{Cl|AND (boolean)|AND}} y% = 14 {{Cl|THEN}} K$ = "C" 'position released {{Cl|END IF}} - {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "A" {{Cl|OR (boolean)|OR}} K$ = "B" {{Cl|OR (boolean)|OR}} K$ = "C" '{{Cl|GOTO}} next question + {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "A" {{Cl|OR (boolean)|OR}} K$ = "B" {{Cl|OR (boolean)|OR}} K$ = "C" '{{Cl|GOTO}} next question {{Cl|IF...THEN|IF}} {{Cl|LEN}}(K$) {{Cl|THEN}} 'DEMO ONLY - {{Cl|LOCATE}} 22, 35: {{Cl|PRINT}} " Answer = "; K$ 'display user answer at location + {{Cl|LOCATE}} 22, 35: {{Cl|PRINT}} " Answer = "; K$ 'display user answer at location {{Cl|_DELAY}} 2 'allow time for user to view answer - {{Cl|LOCATE}} 22, 35: {{Cl|PRINT}} "SELECT AGAIN" - K$ = "" 'reset K$ + {{Cl|LOCATE}} 22, 35: {{Cl|PRINT}} "SELECT AGAIN" + K$ = "" 'reset K$ {{Cl|END IF}} {{Cl|LOOP}} 'DEMO only loop use red X box to quit '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} @@ -170,4 +170,4 @@ y = {{Cl|_MOUSEY}} * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEHIDE.txt b/internal/help/_MOUSEHIDE.txt index 89b596743..0e7a81bba 100644 --- a/internal/help/_MOUSEHIDE.txt +++ b/internal/help/_MOUSEHIDE.txt @@ -12,4 +12,4 @@ The [[_MOUSEHIDE]] statement hides the mouse cursor. * [[_MOUSEMOVE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEINPUT.txt b/internal/help/_MOUSEINPUT.txt index 8cfa35477..6b481f90c 100644 --- a/internal/help/_MOUSEINPUT.txt +++ b/internal/help/_MOUSEINPUT.txt @@ -20,7 +20,7 @@ DO {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}} ' Check the mouse status {{Cl|PRINT}} {{Cl|_MOUSEX}}, {{Cl|_MOUSEY}}, {{Cl|_MOUSEBUTTON}}(1), {{Cl|_MOUSEWHEEL}} {{Cl|LOOP}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" '' '' {{CodeEnd}} : ''Explanation:'' The latest mouse function status can be read after the loop. [[_LIMIT]] and [[_DELAY]] loops will slow returns down. @@ -36,7 +36,7 @@ DO {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}}'mouse status changes only x = {{Cl|_MOUSEX}} y = {{Cl|_MOUSEY}} - {{Cl|IF...THEN|IF}} x > 0 {{Cl|AND (boolean)|AND}} x < 640 {{Cl|AND (boolean)|AND}} y > 0 {{Cl|AND (boolean)|AND}} y < 480 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} x > 0 {{Cl|AND (boolean)|AND}} x < 640 {{Cl|AND (boolean)|AND}} y > 0 {{Cl|AND (boolean)|AND}} y < 480 {{Cl|THEN}} {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(2) {{Cl|THEN}} {{Cl|PSET}} (x, y), 15 {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} x, y @@ -50,17 +50,17 @@ DO {{CodeEnd}} -''Example 3:'' Clearing any mouse data read before or during an [[INPUT]] entry. Press "I" to enter input: +''Example 3:'' Clearing any mouse data read before or during an [[INPUT]] entry. Press "I" to enter input: {{CodeStart}} -{{Cl|PRINT}} "Press I to enter input! Press Q to quit" +{{Cl|PRINT}} "Press I to enter input! Press Q to quit" {{Cl|DO...LOOP|DO}} K$ = {{Cl|UCASE$}}({{Cl|INKEY$}}) {{Cl|DO...LOOP|DO}} - {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(1) = -1 {{Cl|THEN}} {{Cl|PRINT}} "*" 'indicates a mouse click event + {{Cl|IF...THEN|IF}} {{Cl|_MOUSEBUTTON}}(1) = -1 {{Cl|THEN}} {{Cl|PRINT}} "*" 'indicates a mouse click event {{Cl|LOOP}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}} - {{Cl|IF...THEN|IF}} K$ = "Q" {{Cl|THEN}} {{Cl|END}} - {{Cl|IF...THEN|IF}} K$ = "I" {{Cl|THEN}} 'press I to enter text - {{Cl|INPUT}} "Click the mouse and enter something: ", entry$ 'enter some text + {{Cl|IF...THEN|IF}} K$ = "Q" {{Cl|THEN}} {{Cl|END}} + {{Cl|IF...THEN|IF}} K$ = "I" {{Cl|THEN}} 'press I to enter text + {{Cl|INPUT}} "Click the mouse and enter something: ", entry$ 'enter some text {{Cl|GOSUB}} Clickcheck 'clear mouse data {{Cl|END IF}} {{Cl|LOOP}} @@ -84,4 +84,4 @@ count = 0 * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEMOVE.txt b/internal/help/_MOUSEMOVE.txt index b9ff148e5..421c0e3ac 100644 --- a/internal/help/_MOUSEMOVE.txt +++ b/internal/help/_MOUSEMOVE.txt @@ -6,21 +6,21 @@ The [[_MOUSEMOVE]] statement moves the mouse pointer to a new position on the sc :[[_MOUSEMOVE]] {{Parameter|column%}}, {{Parameter|row%}} -{{Parameters}} +{{PageParameters}} * {{Parameter|column%}} is the horizontal pixel coordinate to place the mouse pointer and can be any value from 0 to [[_WIDTH (function)|_WIDTH]](0) - 1. * {{Parameter|row%}} is the vertical pixel position to place the mouse pointer and can be any value from 0 to [[_HEIGHT]](0) - 1 {{PageDescription}} * Maximum coordinate values are based on a program's current [[SCREEN]] mode resolution or the pixel size set by [[_NEWIMAGE]]. -* [[SCREEN]] 0 uses text block coordinates. '''Coordinates off the screen area will create an "Illegal Function Call" [[ERROR Codes|ERROR]]''' +* [[SCREEN]] 0 uses text block coordinates. '''Coordinates off the screen area will create an "Illegal Function Call" [[ERROR Codes|ERROR]]''' * Can be used to position the pointer to a default dialog button or move the cursor away from a button so it is not clicked twice. * Does not require [[_MOUSEINPUT]] to be used, but all moves will be remembered and can be read by mouse functions. -==Availability== -* '''Versions prior to 1.000''' (Version 1.000 had this function disabled for compatibility reasons.) -* '''Version 1.1 and up''' +{{PageAvailability}} +* Versions prior to 1.000 (Version 1.000 had this function disabled for compatibility reasons). +* Version 1.1 and up. {{PageExamples}} @@ -29,7 +29,7 @@ The [[_MOUSEMOVE]] statement moves the mouse pointer to a new position on the sc {{Cl|SCREEN}} 12 i = {{Cl|_MOUSEINPUT}} 'start reading mouse events before INPUT to hold in memory {{Cl|PRINT}} -{{Cl|INPUT}} "Move the mouse pointer and make a few clicks, then press Enter!", dummy$ +{{Cl|INPUT}} "Move the mouse pointer and make a few clicks, then press Enter!", dummy$ {{Cl|_MOUSEMOVE}} 1, 1 DO: {{Cl|_LIMIT}} 30 count = count + 1 @@ -38,8 +38,8 @@ DO: {{Cl|_LIMIT}} 30 b = {{Cl|_MOUSEBUTTON}}(1) {{Cl|PRINT}} count, x, y, b {{Cl|_MOUSEMOVE}} x, y -{{Cl|LOOP}} {{Cl|UNTIL}} i = 0 {{Cl|OR (boolean)|OR}} {{Cl|INKEY$}} > "" -{{Cl|PRINT}} "Done!" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} i = 0 {{Cl|OR (boolean)|OR}} {{Cl|INKEY$}} > "" +{{Cl|PRINT}} "Done!" '' '' {{CodeEnd}} : ''Explanation:'' The [[_MOUSEINPUT]] function will hold previous and _MOUSEMOVE events so press any key when you want to quit. @@ -52,4 +52,4 @@ DO: {{Cl|_LIMIT}} 30 * [[_NEWIMAGE]], [[_SCREENIMAGE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEMOVEMENTX.txt b/internal/help/_MOUSEMOVEMENTX.txt index 617d7d96e..82b441a4f 100644 --- a/internal/help/_MOUSEMOVEMENTX.txt +++ b/internal/help/_MOUSEMOVEMENTX.txt @@ -3,14 +3,12 @@ The [[_MOUSEMOVEMENTX]] function returns the relative horizontal position of the {{PageSyntax}} -: ''horizontalMove'' = [[_MOUSEMOVEMENTY]] +: ''horizontalMove'' = [[_MOUSEMOVEMENTX]] * Returns the relative horizontal cursor pixel position compared to the previous cursor position. Negative values are moves to the left. -* '''Note:''' A [[_MOUSESHOW]] statement will disable [[_MOUSEMOVEMENTX]] or [[_MOUSEMOVEMENTY]] relative mouse movement reads. * Can also be used to check for any mouse movements to enable a program or close [[Screen Saver Programs]]. -* Sets the mouse to a relative movement mode which can be read by [[_WHEEL]] instead of [[_AXIS]] as mouse [[_DEVICES|device]] 2. - +* On Windows only, [[_MOUSEMOVEMENTX]] will continue to track the mouse when it is outside the program window. {{PageExamples}} ''Example 1:'' Since values returned are relative to the last position, the returns can be positive or negative. @@ -42,7 +40,7 @@ PX = 320: PY = 240 'center position {{Cl|CLS}} {{Cl|CIRCLE}} (x, y), 20 {{Cl|PCOPY}} 1, 0 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'press any key to exit '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'press any key to exit '' '' {{CodeEnd}} : '''NOTE:''' When using the function this way, give the user a keypress exit option. Make sure the user has some way to exit that is not dependent on clicking the X button. @@ -57,4 +55,4 @@ PX = 320: PY = 240 'center position * [[Screen Saver Programs]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEMOVEMENTY.txt b/internal/help/_MOUSEMOVEMENTY.txt index 4b5082481..3542b7b9e 100644 --- a/internal/help/_MOUSEMOVEMENTY.txt +++ b/internal/help/_MOUSEMOVEMENTY.txt @@ -7,9 +7,8 @@ The [[_MOUSEMOVEMENTY]] function returns the relative vertical position of the m * Returns the relative vertical cursor pixel position compared to the previous cursor position. Negative values are up moves. -* '''Note:''' A [[_MOUSESHOW]] statement will disable [[_MOUSEMOVEMENTX]] or [[_MOUSEMOVEMENTY]] relative mouse movement reads. * Can also be used to check for any mouse movements to enable a program or close [[Screen Saver Programs]]. -* Sets the mouse to a relative movement mode which can be read by [[_WHEEL]] instead of [[_AXIS]] as mouse [[_DEVICES|device]] 2. +* On Windows only, [[_MOUSEMOVEMENTY]] will continue to track the mouse when it is outside the program window. ''Example:'' MOD is used to keep vertical movement of circle and cursor inside of the SCREEN 13 window(200). @@ -25,7 +24,7 @@ The [[_MOUSEMOVEMENTY]] function returns the relative vertical position of the m {{Cl|CLS}} {{Cl|CIRCLE}} (x, y), 20 {{Cl|PCOPY}} 1, 0 -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'press any key to exit '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'press any key to exit '' '' {{CodeEnd}} : '''NOTE:''' When using the function this way, give the user a keypress exit option. Make sure the user has some way to exit that is not dependent on clicking the X button. @@ -40,4 +39,4 @@ The [[_MOUSEMOVEMENTY]] function returns the relative vertical position of the m * [[Screen Saver Programs]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEPIPEOPEN.txt b/internal/help/_MOUSEPIPEOPEN.txt deleted file mode 100644 index 0097e3b89..000000000 --- a/internal/help/_MOUSEPIPEOPEN.txt +++ /dev/null @@ -1,102 +0,0 @@ -{{DISPLAYTITLE: _MOUSEPIPEOPEN}} - -The [[_MOUSEPIPEOPEN]] function creates a pipe handle value for a mouse when using a virtual keyboard. - - -{{PageSyntax}} -: vkMousePipe = [[_MOUSEPIPEOPEN]] - - -{{PageDescription}} -* The pipe handle value can be used optionally with [[_MOUSEINPUT]], [[_MOUSEX]], [[_MOUSEY]], and [[_MOUSEBUTTON]] when required. - - -{{PageExamples}} -''Snippet:'' The following snippet isn't runnable/compilable, but it showcases the use of the [[_MOUSEPIPEOPEN]] function. -{{CodeStart}} - mDown = 0 - mUp = 0 - mEvent = 0 - -{{Cl|IF...THEN|IF}} VkMousePipe = 0 {{Cl|THEN}} - VkMousePipe = {{Cl|_MOUSEPIPEOPEN}} 'create new pipe -{{Cl|END IF}} - - {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}}(VkMousePipe) - mb = {{Cl|_MOUSEBUTTON}}(1, VkMousePipe) - - mx = {{Cl|_MOUSEX}}(VkMousePipe) - my = {{Cl|_MOUSEY}}(VkMousePipe) - - {{Cl|IF...THEN|IF}} {{Cl|_PIXELSIZE}} = 0 {{Cl|THEN}} 'screen 0 adjustment - mx = mx * 8 - 4 - my = my * 16 - 8 - {{Cl|END IF}} - {{Cl|IF...THEN|IF}} mb = -1 {{Cl|AND (boolean)|AND}} omb = 0 {{Cl|THEN}} mDown = -1: mEvent = 1: {{Cl|EXIT DO}} - - if VkMousePipeCapture=0 then - {{Cl|_MOUSEINPUTPIPE}} VkMousePipe - end if - - {{Cl|IF...THEN|IF}} mb = 0 {{Cl|AND (boolean)|AND}} omb = -1 {{Cl|THEN}} - VkMousePipeCapture=0 - mUp = -1 - mEvent = 1 - {{Cl|EXIT DO}} - end if - - {{Cl|LOOP}} - omb = mb - - - rootId = VkByRole("ROOT") - editMode = VK(rootId).locked - - {{Cl|IF...THEN|IF}} mDown {{Cl|THEN}} - mDownX = mx - mDownY = my - i2 = 0 - - {{Cl|FOR...NEXT|FOR}} internal = 1 {{Cl|TO}} 0 {{Cl|STEP}} -1 - {{Cl|FOR...NEXT|FOR}} i = VkLast {{Cl|TO}} 1 {{Cl|STEP}} -1 - {{Cl|IF...THEN|IF}} VK(i).active {{Cl|THEN}} - {{Cl|IF...THEN|IF}} VK(i).internal = internal {{Cl|THEN}} - x = VK(i).x * VkUnitSize - y = VK(i).y * VkUnitSize - w = VK(i).w - h = VK(i).h - x1 = {{Cl|INT}}(x) - x2 = {{Cl|INT}}(x + VkUnitSize * w) - 1 - y1 = sy - 1 - {{Cl|INT}}(y) - y2 = sy - 1 - {{Cl|INT}}(y + VkUnitSize * h) + 1 - {{Cl|IF...THEN|IF}} mx >= x1 {{Cl|AND (boolean)|AND}} mx <= x2 {{Cl|AND (boolean)|AND}} my >= y2 {{Cl|AND (boolean)|AND}} my <= y1 {{Cl|THEN}} - i2 = i - {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} - {{Cl|END IF}} - {{Cl|END IF}} - {{Cl|END IF}} - {{Cl|NEXT}} - {{Cl|IF...THEN|IF}} i2 {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}} - {{Cl|NEXT}} - {{Cl|IF...THEN|IF}} i2 {{Cl|THEN}} - VkI = i2 - VKoldX = VK(i2).x - VKoldY = VK(i2).y - VKdragging = 0 - VKstart = {{Cl|TIMER (statement)|TIMER}}(0.001) - 'VK(i2).held = -1 - VkKeyDown i2 - VkMousePipeCapture=1 - {{Cl|END IF}} - IF VkMousePipeCapture = 0 THEN {{Cl|_MOUSEINPUTPIPE}} VkMousePipe - {{Cl|END}} I - -{{TextEnd}} -: When using the [[$VIRTUALKEYBOARD|virtual keyboard]], the keyboard captures mouse input appropriately whilst selectively letting presses originating on non-key areas of the screen filter through to the default mouse queue. - - -{{PageSeeAlso}} -* [[$VIRTUALKEYBOARD]] - - -{{PageNavigation}} \ No newline at end of file diff --git a/internal/help/_MOUSESHOW.txt b/internal/help/_MOUSESHOW.txt index ba7064d8a..c3612d02b 100644 --- a/internal/help/_MOUSESHOW.txt +++ b/internal/help/_MOUSESHOW.txt @@ -7,37 +7,34 @@ The [[_MOUSESHOW]] statement displays the mouse cursor and can change its shape. {{PageDescription}} -* Simply use the statement whenever [[_MOUSEHIDE]] has been used previously. -* In '''version 1.000 and up''' the following {{Parameter|cursorShape$}} can be displayed: -::_MOUSESHOW "LINK" will display an upward pointing hand cursor used to denote hypertext -::_MOUSESHOW "TEXT" will display the I cursor often used in text entry areas -::_MOUSESHOW "CROSSHAIR" will display a crosshair cursor -::_MOUSESHOW "VERTICAL" will display vertical arrow cursor for movement -::_MOUSESHOW "HORIZONTAL" will display horizontal arrow cursor for movement -::_MOUSESHOW "TOPLEFT_BOTTOMRIGHT" will display bottom diagonal arrow cursor for movement -::_MOUSESHOW "TOPRIGHT_BOTTOMLEFT" will display bottom diagonal arrow cursor for movement -::_MOUSESHOW "DEFAULT" can be used after a mouse cursor statement above was previously used. -* This statement will also disable [[_MOUSEMOVEMENTX]] or [[_MOUSEMOVEMENTY]] relative mouse movement reads. -* The mouse cursor will not interfere with any print or graphic screen changes in '''QB64'''. - - -===QBasic/QuickBASIC=== -* _MOUSEHIDE statements do not accumulate like they did with [[ABSOLUTE]] or [[INTERRUPT]] in QBasic. - +* Simply use the statement without a parameter whenever [[_MOUSEHIDE]] has been used previously. +* The following {{Parameter|cursorShape$}} can be displayed: +::_MOUSESHOW "LINK" will display an upward pointing hand cursor used to denote hypertext +::_MOUSESHOW "TEXT" will display the I cursor often used in text entry areas +::_MOUSESHOW "CROSSHAIR" will display a crosshair cursor +::_MOUSESHOW "VERTICAL" will display vertical arrow cursor for movement +::_MOUSESHOW "HORIZONTAL" will display horizontal arrow cursor for movement +::_MOUSESHOW "TOPLEFT_BOTTOMRIGHT" will display bottom diagonal arrow cursor for movement +::_MOUSESHOW "TOPRIGHT_BOTTOMLEFT" will display bottom diagonal arrow cursor for movement +::_MOUSESHOW "WAIT" will display an hourglass or spinning circle used to indicate the program is busy with a task +::_MOUSESHOW "HELP" will display a question mark cursor used to denote more information available +::_MOUSESHOW "DEFAULT" can be used after a mouse cursor statement above was previously used. {{PageExamples}} -''Example 1:'' '''QB64 1.000 and up''' allow special cursors to be displayed by using special string parameters: +''Example 1:'' Special cursors can be displayed by using special string parameters: {{CodeStart}} -{{Cl|_MOUSESHOW}} "default": {{Cl|_DELAY}} 0.5 -{{Cl|_MOUSESHOW}} "link": {{Cl|_DELAY}} 0.5 'a hand, typically used in web browsers -{{Cl|_MOUSESHOW}} "text": {{Cl|_DELAY}} 0.5 -{{Cl|_MOUSESHOW}} "crosshair": {{Cl|_DELAY}} 0.5 -{{Cl|_MOUSESHOW}} "vertical": {{Cl|_DELAY}} 0.5 -{{Cl|_MOUSESHOW}} "horizontal": {{Cl|_DELAY}} 0.5 -{{Cl|_MOUSESHOW}} "topleft_bottomright": {{Cl|_DELAY}} 0.5 -{{Cl|_MOUSESHOW}} "topright_bottomleft": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "default": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "link": {{Cl|_DELAY}} 0.5 'a hand, typically used in web browsers +{{Cl|_MOUSESHOW}} "text": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "crosshair": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "vertical": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "horizontal": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "topleft_bottomright": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "topright_bottomleft": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "wait": {{Cl|_DELAY}} 0.5 +{{Cl|_MOUSESHOW}} "help": {{Cl|_DELAY}} 0.5 {{CodeEnd}} -: '''Note:''' There is no hourglass, stopwatch or spinning colorful wheel in the list. The fact is that these typically only appear in a program when something has gone terribly wrong and the program has crashed or frozen. +: '''Note:''' The hourglass and question mark cursors are available in v1.5 and above. {{PageSeeAlso}} @@ -50,4 +47,4 @@ The [[_MOUSESHOW]] statement displays the mouse cursor and can change its shape. * [[_DEVICES]], [[_DEVICE$]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEWHEEL.txt b/internal/help/_MOUSEWHEEL.txt index e264f4e77..b84883867 100644 --- a/internal/help/_MOUSEWHEEL.txt +++ b/internal/help/_MOUSEWHEEL.txt @@ -13,7 +13,7 @@ The [[_MOUSEWHEEL]] function returns a positive or negative [[INTEGER]] value in {{PageExamples}} -''Example 1:'' Reading the cumulative mouse wheel "clicks". +''Example 1:'' Reading the cumulative mouse wheel "clicks". {{CodeStart}} '' '' DO: {{Cl|_LIMIT}} 100 DO WHILE {{Cl|_MOUSEINPUT}} @@ -27,7 +27,7 @@ The [[_MOUSEWHEEL]] function returns a positive or negative [[INTEGER]] value in ''Example 2:'' A simple text scrolling routine using the mouse wheel value to read a text array. {{CodeStart}} '' '' {{Cl|DIM}} Array$(100) -{{Cl|LINE INPUT}} "Enter a file name with 100 or more lines of text: ", file$ +{{Cl|LINE INPUT}} "Enter a file name with 100 or more lines of text: ", file$ {{Cl|OPEN}} file$ {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 {{Cl|DO...LOOP|DO}} {{Cl|UNTIL}} {{Cl|EOF}}(1) inputcount = inputcount + 1 @@ -38,10 +38,10 @@ The [[_MOUSEWHEEL]] function returns a positive or negative [[INTEGER]] value in {{Cl|CLOSE}} #1 DO {{Cl|DO...LOOP|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}} - {{Cl|IF...THEN|IF}} row >= 0 {{Cl|THEN}} row = row + {{Cl|_MOUSEWHEEL}} {{Cl|ELSE}} row = 0 'prevent under scrolling - {{Cl|IF...THEN|IF}} row > inputcount - 20 {{Cl|THEN}} row = inputcount - 20 'prevent over scrolling - {{Cl|IF...THEN|IF}} prevrow <> row {{Cl|THEN}} 'look for a change in row value - {{Cl|IF...THEN|IF}} row > 0 {{Cl|AND (boolean)|AND}} row <= inputcount - 20 {{Cl|THEN}} + {{Cl|IF...THEN|IF}} row >= 0 {{Cl|THEN}} row = row + {{Cl|_MOUSEWHEEL}} {{Cl|ELSE}} row = 0 'prevent under scrolling + {{Cl|IF...THEN|IF}} row > inputcount - 20 {{Cl|THEN}} row = inputcount - 20 'prevent over scrolling + {{Cl|IF...THEN|IF}} prevrow <> row {{Cl|THEN}} 'look for a change in row value + {{Cl|IF...THEN|IF}} row > 0 {{Cl|AND (boolean)|AND}} row <= inputcount - 20 {{Cl|THEN}} {{Cl|CLS}}: {{Cl|LOCATE}} 2, 1 {{Cl|FOR...NEXT|FOR}} n = row {{Cl|TO}} row + 20 {{Cl|PRINT}} Array$(n) @@ -50,10 +50,10 @@ DO {{Cl|END IF}} prevrow = row 'store previous row value {{Cl|LOOP}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -<center>Note: You will need a text file that is large enough for this example.</center> +<center>Note: You will need a text file that is large enough for this example.</center> {{PageSeeAlso}} @@ -63,4 +63,4 @@ DO * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEX.txt b/internal/help/_MOUSEX.txt index 93194d5cd..7a119e6bb 100644 --- a/internal/help/_MOUSEX.txt +++ b/internal/help/_MOUSEX.txt @@ -13,7 +13,7 @@ The [[_MOUSEX]] function returns the current horizontal (column) mouse cursor po * [[_MOUSEINPUT]] must be used to detect any changes in the mouse position and is '''required''' for any coordinate returns. -==QBasic/QuickBASIC== +{{PageQBasic}} * In [[SCREEN]] 0, QBasic's [[ABSOLUTE]] returned graphic coordinates. QB64 mouse functions return the text coordinates. @@ -23,13 +23,13 @@ The [[_MOUSEX]] function returns the current horizontal (column) mouse cursor po {{Cl|SCREEN (statement)|SCREEN}} 12 {{Cl|LINE}} (99, 9)-(601, 401), 7, BF {{Cl|LINE}} (101, 11)-(599, 399), 8, BF -tm$ = " Column = ### Row = ### Button1 = ## Button2 = ## Button3 = ##" -{{Cl|LOCATE}} 29, 20: {{Cl|PRINT}} "LeftButton = draw - RightButton = Erase"; +tm$ = " Column = ### Row = ### Button1 = ## Button2 = ## Button3 = ##" +{{Cl|LOCATE}} 29, 20: {{Cl|PRINT}} "LeftButton = draw - RightButton = Erase"; {{Cl|DO}}: K$ = {{Cl|INKEY$}} {{Cl|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}} X = {{Cl|_MOUSEX}}: Y = {{Cl|_MOUSEY}} - {{Cl|IF}} X > 100 {{Cl|AND (boolean)|AND}} X < 600 {{Cl|AND (boolean)|AND}} PX > 100 {{Cl|AND (boolean)|AND}} PX < 600 {{Cl|THEN}} - {{Cl|IF}} Y > 10 {{Cl|AND (boolean)|AND}} Y < 400 {{Cl|AND (boolean)|AND}} PY > 10 {{Cl|AND (boolean)|AND}} PY < 400 {{Cl|THEN}} + {{Cl|IF}} X > 100 {{Cl|AND (boolean)|AND}} X < 600 {{Cl|AND (boolean)|AND}} PX > 100 {{Cl|AND (boolean)|AND}} PX < 600 {{Cl|THEN}} + {{Cl|IF}} Y > 10 {{Cl|AND (boolean)|AND}} Y < 400 {{Cl|AND (boolean)|AND}} PY > 10 {{Cl|AND (boolean)|AND}} PY < 400 {{Cl|THEN}} {{Cl|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} {{Cl|LINE}} (PX, PY)-(X, Y), 15 {{Cl|IF}} {{Cl|_MOUSEBUTTON}}(2) {{Cl|THEN}} {{Cl|LINE}} (101, 11)-(599, 399), 8, BF {{Cl|END IF}} @@ -51,4 +51,4 @@ tm$ = " Column = ### Row = ### Button1 = ## Button2 = ## Button3 = ##&q * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_MOUSEY.txt b/internal/help/_MOUSEY.txt index 46c5e5de3..da049cbd7 100644 --- a/internal/help/_MOUSEY.txt +++ b/internal/help/_MOUSEY.txt @@ -13,7 +13,7 @@ The [[_MOUSEY]] function returns the current vertical (row) mouse cursor positio * [[_MOUSEINPUT]] must be used to detect any changes in the mouse position and is '''required''' for any coordinate returns. -==QBasic/QuickBASIC== +{{PageQBasic}} * In [[SCREEN]] 0, QBasic's [[ABSOLUTE]] returned graphic coordinates. QB64 mouse functions return the text coordinates. @@ -29,7 +29,7 @@ selection = 0 'the screen Y coordinate of the previously highlighted item {{Cl|IF}} selection {{Cl|THEN}} selectRow selection, minX, maxX, 0 x = {{Cl|_MOUSEX}} y = {{Cl|_MOUSEY}} - {{Cl|IF}} x >= minX {{Cl|AND (boolean)|AND}} x <= maxX {{Cl|AND (boolean)|AND}} y >= minY {{Cl|AND (boolean)|AND}} y <= maxY {{Cl|THEN}} + {{Cl|IF}} x >= minX {{Cl|AND (boolean)|AND}} x <= maxX {{Cl|AND (boolean)|AND}} y >= minY {{Cl|AND (boolean)|AND}} y <= maxY {{Cl|THEN}} selection = y {{Cl|ELSE}} selection = 0 @@ -38,7 +38,7 @@ selection = 0 'the screen Y coordinate of the previously highlighted item {{Cl|IF}} selection {{Cl|THEN}} SelectRow selection, minX, maxX, 2 {{Cl|IF}} {{Cl|_MOUSEBUTTON}}(1) {{Cl|THEN}} {{Cl|LOCATE}} 1, 2: {{Cl|PRINT}} x, y, selection {{Cl|END IF}} -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SUB}} SelectRow (y, x1, x2, col) {{Cl|DEF SEG}} = {{Cl|&H}}B800 @@ -60,4 +60,4 @@ addr& = (x1 - 1 + (y - 1) * {{Cl|_WIDTH (function)|_WIDTH}}) * 2 + 1 * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_NEWIMAGE.txt b/internal/help/_NEWIMAGE.txt index 36d79f0fb..cfe074e9e 100644 --- a/internal/help/_NEWIMAGE.txt +++ b/internal/help/_NEWIMAGE.txt @@ -6,8 +6,8 @@ The [[_NEWIMAGE]] function prepares a window image surface and returns the [[LON : {{Parameter|handle&}} = [[_NEWIMAGE]]({{Parameter|width&}}, {{Parameter|height&}}[, {''0''|''1''|''2''|''7''|''8''|''9''|''10''|''11''|''12''|''13''|''256''|''32''}]) -{{Parameters}} -* Minimum [[LONG]] screen dimensions are {{Parameter|width&}} >= 1, {{Parameter|height&}} >= 1 measured in pixels as [[INTEGER]] or [[LONG]] values. +{{PageParameters}} +* Minimum [[LONG]] screen dimensions are {{Parameter|width&}} >= 1, {{Parameter|height&}} >= 1 measured in pixels as [[INTEGER]] or [[LONG]] values. ** For mode 0 (text), {{Parameter|width&}} and {{Parameter|height&}} are measured in character blocks, not pixels. * Mode is either a QBasic type [[SCREEN|screen]] mode (0 to 2 or 7 to 13), 256 colors or 32 bit (16 million colors) compatible. @@ -49,33 +49,33 @@ SCREEN _NEWIMAGE(640, 480, 32), , 1, 0 '' '' ''Example 4:'' Switching between two different SCREEN modes {{CodeStart}} '' '' -{{Cl|_TITLE}} "Switching {{Cl|SCREEN}} modes" +{{Cl|_TITLE}} "Switching {{Cl|SCREEN}} modes" {{Cl|SCREEN}} {{Cl|_NEWIMAGE}} (800, 600, 256) mode1& = {{Cl|_DEST}} 'get current screen mode handle mode2& = {{Cl|_NEWIMAGE}} (300, 200, 13) {{Cl|_DEST}} mode2& 'prepare small window -{{Cl|COLOR}} 10: {{Cl|LOCATE}} 10, 13: {{Cl|PRINT}} "mode2& = "; mode2& -{{Cl|COLOR}} 13: {{Cl|LOCATE}} 16, 16: {{Cl|PRINT}} "First" +{{Cl|COLOR}} 10: {{Cl|LOCATE}} 10, 13: {{Cl|PRINT}} "mode2& = "; mode2& +{{Cl|COLOR}} 13: {{Cl|LOCATE}} 16, 16: {{Cl|PRINT}} "First" {{Cl|_DEST}} mode1& 'work in main window {{Cl|LOCATE}} 5 {{Cl|FOR...NEXT|FOR}} c = 1 {{Cl|TO}} 248 Color c: {{Cl|PRINT}} c; {{Cl|NEXT}} -{{Cl|COLOR}} 12: {{Cl|LOCATE}} 20, 44: {{Cl|PRINT}} "mode1& = "; mode1& -{{Cl|COLOR}} 11: {{Cl|LOCATE}} 30, 34: {{Cl|PRINT}} "Press a key to goto Pop-up Window" -{{Cl|DO...LOOP|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|COLOR}} 12: {{Cl|LOCATE}} 20, 44: {{Cl|PRINT}} "mode1& = "; mode1& +{{Cl|COLOR}} 11: {{Cl|LOCATE}} 30, 34: {{Cl|PRINT}} "Press a key to goto Pop-up Window" +{{Cl|DO...LOOP|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SCREEN}} mode2& 'switch to small window -{{Cl|DO...LOOP|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|DO...LOOP|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SCREEN}} mode1& 'back to main window -{{Cl|COLOR}} 12: {{Cl|LOCATE}} 37, 43: {{Cl|PRINT}} "One more time!" -{{Cl|DO...LOOP|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" +{{Cl|COLOR}} 12: {{Cl|LOCATE}} 37, 43: {{Cl|PRINT}} "One more time!" +{{Cl|DO...LOOP|DO}}: {{Cl|SLEEP}}: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SCREEN}} mode2& 'back to small window -{{Cl|COLOR}} 14: {{Cl|LOCATE}} 16, 16: {{Cl|PRINT}} "LAST " '' '' +{{Cl|COLOR}} 14: {{Cl|LOCATE}} 16, 16: {{Cl|PRINT}} "LAST " '' '' {{CodeEnd}} :''Explanation:'' The [[_DEST (function)|_DEST]] function can determine the present screen mode destination handle. The second _NEWIMAGE handle is created using a SCREEN 13 palette(256 colors also). Each SCREEN is worked on after changing the destination with [[_DEST]] ''handle&'' statement. Images can be created before viewing them. When a key is pressed the second SCREEN created is displayed and so on. @@ -98,4 +98,4 @@ mode2& = {{Cl|_NEWIMAGE}} (300, 200, 13) * [[SCREEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_NUMLOCK.txt b/internal/help/_NUMLOCK.txt new file mode 100644 index 000000000..601fc0795 --- /dev/null +++ b/internal/help/_NUMLOCK.txt @@ -0,0 +1,19 @@ +{{DISPLAYTITLE: _NUMLOCK}} +The [[_NUMLOCK]] statement sets the state of the Num Lock key. + + +{{PageSyntax}} +: [[_NUMLOCK]] {ON|OFF|_TOGGLE} + + +{{PageAvailability}} +* Version 1.4 and up. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageSeeAlso}} +* [[_CAPSLOCK (function)]], [[_NUMLOCK (function)]], [[_SCROLLLOCK (function)]] +* [[_CAPSLOCK]] (statement), [[_SCROLLLOCK]] (statement) + + +{{PageNavigation}} diff --git a/internal/help/_NUMLOCK_(function).txt b/internal/help/_NUMLOCK_(function).txt new file mode 100644 index 000000000..91b26a67b --- /dev/null +++ b/internal/help/_NUMLOCK_(function).txt @@ -0,0 +1,19 @@ +{{DISPLAYTITLE: _NUMLOCK (function)}} +The [[_NUMLOCK (function)| _NUMLOCK]] function returns the current state of the Num Lock key as on (-1) or off (0). + + +{{PageSyntax}} +: {{Parameter|keyStatus%%}} = [[_NUMLOCK (function)| _NUMLOCK]] + + +{{PageAvailability}} +* Version 1.4 and up. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageSeeAlso}} +* [[_CAPSLOCK (function)]], [[_SCROLLLOCK (function)]] +* [[_CAPSLOCK]] (statement), [[_NUMLOCK]] (statement), [[_SCROLLLOCK]] (statement) + + +{{PageNavigation}} diff --git a/internal/help/_OFFSET.txt b/internal/help/_OFFSET.txt index b7ac28824..85abe9683 100644 --- a/internal/help/_OFFSET.txt +++ b/internal/help/_OFFSET.txt @@ -10,7 +10,7 @@ The [[_OFFSET]] variable type stores the location of a value in memory. The byte * _OFFSET types can be created as signed or [[_UNSIGNED]] at the programmer's discretion. * The type suffix for _OFFSET is '''%&''' which designates the integer value's flexible size. * Offset values are only useful when used in conjunction with [[_MEM]] or [[DECLARE LIBRARY]] procedures. -* OFFSET values are used as a part of the [[_MEM]] variable [[type]] in QB64. Variable.OFFSET returns or sets the current position in memory. +* OFFSET values are used as a part of the [[_MEM]] variable [[Variable Types|type]] in QB64. Variable.OFFSET returns or sets the current position in memory. * API [[DECLARE LIBRARY|LIBRARY]] parameter or [[TYPE|type]] names may include '''lp, ptr''' or '''p''' which designates them as a pointer type. * '''Warning: _OFFSET values cannot be cast to other variable type values reliably.''' * '''Warning: Variable length [[STRING]] values can move about in memory at any time.''' If you get the _OFFSET of a variable length sting on one code line and use it on the next it may not be there anymore.''' To be safe, move variable length strings into fixed length strings first.''' @@ -23,8 +23,8 @@ The [[_OFFSET]] variable type stores the location of a value in memory. The byte {{Cl|FUNCTION}} FindWindow& ({{Cl|BYVAL}} ClassName AS {{Cl|_OFFSET}}, WindowName$) {{Cl|END}} {{Cl|DECLARE LIBRARY|DECLARE}} -{{Cl|_TITLE}} "Super Window" -hwnd& = FindWindow(0, "Super Window" + {{Cl|CHR$}}(0)) +{{Cl|_TITLE}} "Super Window" +hwnd& = FindWindow(0, "Super Window" + {{Cl|CHR$}}(0)) {{Cl|TYPE}} BROWSEINFO 'typedef struct _browseinfo '[http://msdn.microsoft.com/en-us/library/bb773205%28v=vs.85%29.aspx Microsoft MSDN] hwndOwner {{Cl|AS}} {{Cl|LONG}} ' ' HWND @@ -37,7 +37,7 @@ hwnd& = FindWindow(0, "Super Window" + {{Cl|CHR$}}(0)) iImage {{Cl|AS}} {{Cl|LONG}} ' ' int {{Cl|END}} {{Cl|TYPE}} 'BROWSEINFO, *PBROWSEINFO, *LPBROWSEINFO; -{{Cl|DECLARE LIBRARY|DECLARE DYNAMIC LIBRARY}} "shell32" +{{Cl|DECLARE LIBRARY|DECLARE DYNAMIC LIBRARY}} "shell32" {{Cl|FUNCTION}} SHBrowseForFolder%& (x {{Cl|AS}} BROWSEINFO) '[http://msdn.microsoft.com/en-us/library/bb762115%28v=vs.85%29.aspx Microsoft MSDN] {{Cl|SUB}} SHGetPathFromIDList ({{Cl|BYVAL}} lpItem {{Cl|AS}} {{Cl|_OFFSET}}, {{Cl|BYVAL}} szDir {{Cl|AS}} {{Cl|_OFFSET}}) '[http://msdn.microsoft.com/en-us/library/bb762194%28VS.85%29.aspx Microsoft MSDN] {{Cl|DECLARE LIBRARY|END DECLARE}} @@ -46,7 +46,7 @@ hwnd& = FindWindow(0, "Super Window" + {{Cl|CHR$}}(0)) b.hwndOwner = hwnd {{Cl|DIM}} s {{Cl|AS}} {{Cl|STRING}} * 1024 b.pszDisplayName = {{Cl|_OFFSET (function)|_OFFSET}}(s$) -a$ = "Choose a folder!!!" + {{Cl|CHR$}}(0) +a$ = "Choose a folder!!!" + {{Cl|CHR$}}(0) b.lpszTitle = {{Cl|_OFFSET (function)|_OFFSET}}(a$) {{Cl|DIM}} o {{Cl|AS}} {{Cl|_OFFSET}} o = SHBrowseForFolder(b) @@ -56,13 +56,14 @@ o = SHBrowseForFolder(b) SHGetPathFromIDList o, {{Cl|_OFFSET (function)|_OFFSET}}(s2$) {{Cl|PRINT}} {{Cl|LEFT$}}(s2$, {{Cl|INSTR}}(s2$, {{Cl|CHR$}}(0)) - 1) {{Cl|ELSE}} - {{Cl|PRINT}} "Cancel?" + {{Cl|PRINT}} "Cancel?" {{Cl|END IF}} '' '' {{CodeEnd}} {{small|Code by Galleon}} {{PageSeeAlso}} +* [[_WINDOWHANDLE]] * [[Using _OFFSET]] * [[_OFFSET (function)]], [[_MEM]] * [[DECLARE LIBRARY]] @@ -70,4 +71,4 @@ o = SHBrowseForFolder(b) * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_OFFSET_(function).txt b/internal/help/_OFFSET_(function).txt index 844470d0a..478f08a98 100644 --- a/internal/help/_OFFSET_(function).txt +++ b/internal/help/_OFFSET_(function).txt @@ -12,7 +12,7 @@ The [[_OFFSET]] function returns the memory offset of/within a given variable. * _OFFSET function return values should be stored in [[_OFFSET]] type variables. As no other variable type is 'elastic' like [[_OFFSET]], there can be no guarantee that any other variable type can hold the value of an _OFFSET. * Returns the memory offset of variables, user-defined-types & elements, arrays & indices and the base offset of [[STRING]]s. * Offset values are currently only useful when used in conjunction with [[_MEM]] or [[DECLARE LIBRARY]] procedures. -* OFFSET values are used as a part of the [[_MEM]] variable [[type]] in QB64; {{Parameter|variable}}.OFFSET returns or sets the current position in memory. +* OFFSET values are used as a part of the [[_MEM]] variable [[Variable Types|type]] in QB64; {{Parameter|variable}}.OFFSET returns or sets the current position in memory. * '''Warning:''' QB64 variable length strings can move about in memory at any time. If you get the _OFFSET of a variable length sting on one line and use it on the next it may not be there anymore.''' To be safe, move variable length strings into fixed length strings first.''' @@ -23,8 +23,8 @@ The [[_OFFSET]] function returns the memory offset of/within a given variable. {{Cl|SUB}} memcpy ({{Cl|BYVAL}} dest {{Cl|AS}} {{Cl|_OFFSET}}, {{Cl|BYVAL}} source {{Cl|AS}} {{Cl|_OFFSET}}, {{Cl|BYVAL}} bytes {{Cl|AS}} {{Cl|LONG}}) {{Cl|DECLARE LIBRARY|END DECLARE}} -a$ = "1234567890" -b$ = "ABCDEFGHIJ" +a$ = "1234567890" +b$ = "ABCDEFGHIJ" memcpy {{Cl|_OFFSET (function)|_OFFSET}}(a$) + 5, {{Cl|_OFFSET (function)|_OFFSET}}(b$) + 5, 5 {{Cl|PRINT}} a$ '' '' @@ -40,4 +40,4 @@ memcpy {{Cl|_OFFSET (function)|_OFFSET}}(a$) + 5, {{Cl|_OFFSET (function)|_OFFSE * [[Using _OFFSET]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_OPENCLIENT.txt b/internal/help/_OPENCLIENT.txt index fd45373b0..a0fe5dc8c 100644 --- a/internal/help/_OPENCLIENT.txt +++ b/internal/help/_OPENCLIENT.txt @@ -3,7 +3,7 @@ The [[_OPENCLIENT]] function connects to a Host on the Internet as a Client and {{PageSyntax}} -: {{Parameter|clientHandle&}} = [[_OPENCLIENT]]('''"TCP/IP:8080:12:30:1:10"''') +: {{Parameter|clientHandle&}} = [[_OPENCLIENT]]('''"TCP/IP:8080:12:30:1:10"''') @@ -18,22 +18,23 @@ The [[_OPENCLIENT]] function connects to a Host on the Internet as a Client and ''Example 1:'' Attempting to connect to a local host(your host) as a client. A zero return indicates failure. {{CodeStart}} -client = {{Cl|_OPENCLIENT}}("TCP/IP:7319:localhost") +client = {{Cl|_OPENCLIENT}}("TCP/IP:7319:localhost") {{Cl|IF...THEN|IF}} client {{Cl|THEN}} - {{Cl|PRINT}} "[Connected to " + {{Cl|_CONNECTIONADDRESS}}(client) + "]" -{{Cl|ELSE}} {{Cl|PRINT}} "[Connection Failed!]" + {{Cl|PRINT}} "[Connected to " + {{Cl|_CONNECTIONADDRESS}}(client) + "]" +{{Cl|ELSE}} {{Cl|PRINT}} "[Connection Failed!]" {{Cl|END IF}} '' '' {{CodeEnd}} :'''NOTE:''' Try a valid TCP/IP port setting to test this routine! -''Example 2:'' Using a "raw" Download function to download the QB64 bee image and displays it. +''Example 2:'' Using a "raw" Download function to download the QB64 bee image and displays it. {{CodeStart}} '' '' -{{Cl|IF...THEN|IF}} Download("www.qb64.net/qb64.png", "qb64logo.png", 10) {{Cl|THEN}} ' timelimit = 10 seconds - {{Cl|SCREEN}} {{Cl|_LOADIMAGE}}("qb64logo.png",32) -{{Cl|ELSE}}: {{Cl|PRINT}} "Couldn't download QB64 logo." +'replace the fake image address below with a real image address you want to download +{{Cl|IF...THEN|IF}} Download("www.qb64.org/qb64.png", "qb64logo.png", 10) {{Cl|THEN}} ' timelimit = 10 seconds + {{Cl|SCREEN}} {{Cl|_LOADIMAGE}}("qb64logo.png",32) +{{Cl|ELSE}}: {{Cl|PRINT}} "Couldn't download image." {{Cl|END IF}} {{Cl|SLEEP}} {{Cl|SYSTEM}} @@ -41,21 +42,21 @@ client = {{Cl|_OPENCLIENT}}("TCP/IP:7319:localhost") {{Cl|FUNCTION}} Download (url$, file$, timelimit) ' returns -1 if successful, 0 if not url2$ = url$ -x = {{Cl|INSTR}}(url2$, "/") +x = {{Cl|INSTR}}(url2$, "/") {{Cl|IF...THEN|IF}} x {{Cl|THEN}} url2$ = {{Cl|LEFT$}}(url$, x - 1) -client = {{Cl|_OPENCLIENT}}("TCP/IP:80:" + url2$) +client = {{Cl|_OPENCLIENT}}("TCP/IP:80:" + url2$) {{Cl|IF...THEN|IF}} client = 0 {{Cl|THEN}} {{Cl|EXIT FUNCTION}} e$ = {{Cl|CHR$}}(13) + {{Cl|CHR$}}(10) ' end of line characters url3$ = {{Cl|RIGHT$}}(url$, {{Cl|LEN}}(url$) - x + 1) -x$ = "GET " + url3$ + " HTTP/1.1" + e$ -x$ = x$ + "Host: " + url2$ + e$ + e$ +x$ = "GET " + url3$ + " HTTP/1.1" + e$ +x$ = x$ + "Host: " + url2$ + e$ + e$ {{Cl|PUT (TCP/IP statement)|PUT}} #client, , x$ t! = {{Cl|TIMER}} ' start time {{Cl|DO}} {{Cl|_DELAY}} 0.05 ' 50ms delay (20 checks per second) {{Cl|GET (TCP/IP statement)|GET}} #client, , a2$ a$ = a$ + a2$ - i = {{Cl|INSTR}}(a$, "Content-Length:") + i = {{Cl|INSTR}}(a$, "Content-Length:") {{Cl|IF...THEN|IF}} i {{Cl|THEN}} i2 = {{Cl|INSTR}}(i, a$, e$) {{Cl|IF...THEN|IF}} i2 {{Cl|THEN}} @@ -78,7 +79,7 @@ t! = {{Cl|TIMER}} ' start time {{Cl|END IF}} ' i3 {{Cl|END IF}} ' i2 {{Cl|END IF}} ' i -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|TIMER}} > t! + timelimit ' (in seconds) +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|TIMER}} > t! + timelimit ' (in seconds) {{Cl|CLOSE}} client {{Cl|END FUNCTION}} '' '' {{CodeEnd}} @@ -89,9 +90,7 @@ t! = {{Cl|TIMER}} ' start time * [[_OPENHOST]], [[_OPENCONNECTION]] * [[_CONNECTED]], [[_CONNECTIONADDRESS$]] * [[Email Demo]], [[Inter-Program Data Sharing Demo]] -* [[Computer File Sharing Demo]] -* [[IP Configuration]], [[WGET]] {{text|(HTTP and FTP file transfer)}} * [[Downloading Files]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_OPENCONNECTION.txt b/internal/help/_OPENCONNECTION.txt index a1914b061..2f891c81e 100644 --- a/internal/help/_OPENCONNECTION.txt +++ b/internal/help/_OPENCONNECTION.txt @@ -13,33 +13,7 @@ The [[_OPENCONNECTION]] function opens a connection from a client that the host * [[CLOSE]] #{{Parameter|connectHandle}} closes the connection. Failed connections({{Parameter|connectHandle}} = 0) do not need to be closed. * As a '''Host''' you can check for new clients (users). Each will have a unique connection handle. * Creates an [[ERROR Codes|Illegal Function Call]] error if called with a string argument of the wrong syntax. -* Handle values can be used as the open number by [[INPUT (TCP/IP statement)|INPUT #]] or [[GET (TCP/IP statement)|GET #]] read statements and [[PUT (TCP/IP statement)|PUT #]] or [[PRINT (TCP/IP statement)|PRINT #]] write statements. - - -{{PageExamples}} -''Example:'' Using the [[_OPENCONNECTION]] new client return with [[INPUT (TCP/IP statement)|INPUT]] # or [[GET (TCP/IP statement)|GET]] # message or data reads. - -{{CodeStart}} - - host = {{Cl|_OPENHOST}}("TCP/IP:8080") - {{Cl|DO}} - newclient = {{Cl|_OPENCONNECTION}}(host) ' monitor host connection - {{Cl|IF...THEN|IF}} newclient {{Cl|THEN}} - {{Cl|SLEEP}} 1 ' wait one second for data to arrive - {{Cl|INPUT (TCP/IP statement)|INPUT}} #newclient, a - {{Cl|PRINT}} a - {{Cl|CLOSE}} #newclient ' close after each read - {{Cl|ELSE}} : {{Cl|_DELAY}} .05 ' share resources with other programs (20 loops per second) - {{Cl|END IF}} - {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" ' any keypress quits - {{Cl|CLOSE}} #host - {{Cl|SYSTEM}} - -{{CodeEnd}} - -''Explanation:'' The function finds new clients and waits one second to read a message or other data. If a message or data was sent, it displays it on the screen and closes the connection. - -'''Note: When sending data, the client should wait about 3 seconds before closing their connection!''' +* Handle values can be used as the open number by [[GET (TCP/IP statement)|GET #]] read statement and [[PUT (TCP/IP statement)|PUT #]] write statement. {{PageSeeAlso}} @@ -47,4 +21,4 @@ The [[_OPENCONNECTION]] function opens a connection from a client that the host * [[_CONNECTED]], [[_CONNECTIONADDRESS]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_OPENHOST.txt b/internal/help/_OPENHOST.txt index 207f2aecd..5bd11c0cb 100644 --- a/internal/help/_OPENHOST.txt +++ b/internal/help/_OPENHOST.txt @@ -3,7 +3,7 @@ The [[_OPENHOST]] function opens a Host which listens for new connections and re {{PageSyntax}} -: {{Parameter|hostHandle}} = [[_OPENHOST]]('''"TCP/IP:8080"''') +: {{Parameter|hostHandle}} = [[_OPENHOST]]('''"TCP/IP:8080"''') {{PageDescription}} @@ -15,114 +15,12 @@ The [[_OPENHOST]] function opens a Host which listens for new connections and re * [[CLOSE]] {{Parameter|hostHandle}} closes the host. A failed handle value of 0 does not need to be closed. -{{PageExamples}} -''Example:'' Chat program that attempts to connect as a Client. If not it attempts to become the Host. - -{{CodeStart}} - - {{Cl|PRINT}} "Mini Messenger" - {{Cl|LOCATE}} , , 1 ' display the print cursor for INKEY$ - client = {{Cl|_OPENCLIENT}}("TCP/IP:7319:localhost") ' Attempt to connect to local host as a client - {{Cl|IF...THEN|IF}} client {{Cl|THEN}} - {{Cl|PRINT}} "[connected to " + {{Cl|_CONNECTIONADDRESS}}(client) + "]" - {{Cl|_TITLE}} "Client - Mini Messenger" - {{Cl|INPUT}} "Enter your name: ", myname$ - {{Cl|PRINT (TCP/IP statement)|PRINT}} #client, myname$ + " connected!" - {{Cl|DO...LOOP|DO}} - GetMessage client - SendMessage myname$, mymessage$, client ' display current input on screen - {{Cl|_DELAY}} 0.01 ' reduce CPU usage - {{Cl|LOOP}} - {{Cl|ELSE}} ' "if client" alternative to open a new Host - {{Cl|PRINT}} "[No existing host found]" - host = {{Cl|_OPENHOST}}("TCP/IP:7319") ' no host found, so begin new host - {{Cl|IF...THEN|IF}} host {{Cl|THEN}} - {{Cl|_TITLE}} "Host - Mini Messenger" - {{Cl|PRINT}} "[Beginning new host chat session!]" - {{Cl|DIM}} Users(1 to 1000) ' array to hold other client info - numclients = 0 - client = {{Cl|_OPENCLIENT}}("TCP/IP:7319:localhost") - IF client = 0 THEN PRINT "ERROR: could not attach host's personal client to host!" - {{Cl|INPUT}} "Enter your name:", myname$ - {{Cl|PRINT (TCP/IP statement)|PRINT}} #client, myname$ + " connected!" - {{Cl|PRINT}} "[Chat session active!]" - {{Cl|DO...LOOP|DO}} ' host main loop - newclient = {{Cl|_OPENCONNECTION}}(host) ' receive any new connection - {{Cl|IF...THEN|IF}} newclient {{Cl|THEN}} - numclients = numclients + 1 - Users(numclients) = newclient - {{Cl|PRINT (TCP/IP statement)|PRINT}} #Users(numclients),"Welcome!" - {{Cl|END IF}} - {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} numclients ' distribute incoming messages to all clients - {{Cl|IF...THEN|IF}} Users(i) {{Cl|THEN}} - {{Cl|INPUT (TCP/IP statement)|INPUT}} #Users(i), message$ - {{Cl|IF...THEN|IF}} message$ <> "" {{Cl|THEN}} - {{Cl|FOR...NEXT|FOR}} p = 1 {{Cl|TO}} numclients - {{Cl|IF...THEN|IF}} Users(p) {{Cl|THEN}} {{Cl|PRINT (TCP/IP statement)|PRINT}} #Users(p), message$ - {{Cl|NEXT}} p - {{Cl|END IF}} - {{Cl|END IF}} - {{Cl|NEXT}} i - GetMessage client ' allow host to get messages and chat also - SendMessage myname$, mymessage$, client - {{Cl|_DELAY}} 0.01 ' reduce CPU usage - {{Cl|LOOP}} - {{Cl|END IF}} ' host - {{Cl|PRINT}} "ERROR: Could not begin new host!" - {{Cl|END IF}} ' if client from start - {{Cl|SLEEP}} - {{Cl|SYSTEM}} - - '.................... END OF MAIN PROGRAM ................ - - - {{Cl|SUB}} GetMessage (client) ' get & display any new message - {{Cl|INPUT (TCP/IP statement)|INPUT}} #client, newmessage$ - {{Cl|IF...THEN|IF}} newmessage$ <> "" {{Cl|THEN}} - {{Cl|VIEW PRINT}} 1 {{Cl|TO}} 23 - {{Cl|LOCATE}} 23,1 - {{Cl|PRINT}} newmessage$ - {{Cl|VIEW PRINT}} 1 {{Cl|TO}} 24 - {{Cl|END IF}} - {{Cl|END SUB}} - - {{Cl|SUB}} SendMessage (myname$, mymessage$, client) ' simple input handler - k$ = {{Cl|INKEY$}} - {{Cl|IF...THEN|IF}} {{Cl|LEN}}(k$) {{Cl|THEN}} - {{Cl|IF...THEN|IF}} k$ = {{Cl|CHR$}}(8) {{Cl|AND (boolean)|AND}} [[LEN]](mymessage$) <> 0 {{Cl|THEN}} - mymessage$ = {{Cl|LEFT$}}(mymessage$, {{Cl|LEN}}(mymessage$) - 1) - {{Cl|ELSE}} - {{Cl|IF...THEN|IF}} {{Cl|LEN}}(k$) = 1 {{Cl|AND (boolean)|AND}} {{Cl|ASC}}(k$) >= 32 {{Cl|THEN}} mymessage$ = mymessage$ + k$ - {{Cl|END IF}} - {{Cl|END IF}} - {{Cl|LOCATE}} 24, 1: {{Cl|PRINT}} {{Cl|SPACE$}}(80); ' erase previous message displayed - {{Cl|LOCATE}} 24, 1: {{Cl|PRINT}} myname$ + ": ";mymessage$; - {{Cl|IF...THEN|IF}} k$ = {{Cl|CHR$}}(13) {{Cl|THEN}} ' [Enter] sends the message - {{Cl|IF...THEN|IF}} mymessage$ = "" {{Cl|THEN}} {{Cl|SYSTEM}} ' [Enter] with no message ends program - {{Cl|PRINT (TCP/IP statement)|PRINT}} #client, myname$ + ": " + mymessage$ - mymessage$ = "" - {{Cl|END IF}} - {{Cl|IF...THEN|IF}} k$ = {{Cl|CHR$}}(27) {{Cl|THEN}} {{Cl|SYSTEM}} ' [Esc] key ends program - {{Cl|END SUB}} - -{{CodeEnd}} -{{OutputStart}} -Mini Messenger -[No existing host found] -[Beginning new host chat session!] -Enter your name:_ -{{OutputEnd}} - -''Explanation:'' The SendMessage SUB program controls the program exit unless both Client and Host fail. Entering no message and hitting [Enter] or pressing the [Esc]] key closes the program. Both SUB programs allow a Client or Host to communicate with others simply. {{KW|INPUT (TCP/IP statement)|INPUT #}} is used to read messages and {{KW|PRINT (TCP/IP statement)|PRINT #}} is used to send messages. The client handle value is used as the port number. Keep in mind that this is just an example. A lot could be added, like recording IP addresses. -<center>'''To manage the users array, see the [[_CONNECTED]] page example.'''</center> - {{PageSeeAlso}} * [[_OPENCONNECTION]], [[_OPENCLIENT]] * [[_CONNECTED]], [[_CONNECTIONADDRESS]] * [[Email Demo]], [[Inter-Program Data Sharing Demo]] -* [[IP Configuration]], [[WGET]] {{text|(HTTP and FTP file transfer)}} * [[Downloading Files]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_OS$.txt b/internal/help/_OS$.txt index b4c885995..376420634 100644 --- a/internal/help/_OS$.txt +++ b/internal/help/_OS$.txt @@ -6,16 +6,14 @@ The [[_OS$]] function returns the operating system and QB64 compiler bit version {{PageDescription}} -* Returns a [[STRING]] listing the OS as [WINDOWS], [LINUX] or [MACOSX] and the compiler bit format of [32BIT] or [64BIT]. [[Example: {{text|[WINDOWS][32BIT]|green}}]] +* Returns a [[STRING]] listing the OS as [WINDOWS], [LINUX] or [MACOSX] and the compiler bit format of [32BIT] or [64BIT]. Example: {{text|[WINDOWS][32BIT]}} * Allows a BAS program to be compiled with QB64 in Windows, Linux or MacOSX using different OS or language specifications. * Use the return {{Parameter|compilerVersion$}} to specify the current OS code to use when a BAS program is compiled using another version of the QB64 compiler. * Windows can use either a 32 (default) or 64 bit compiler. Linux and Mac use 64 bit by default. -* Explanation by Galleon: http://www.qb64.net/forum/index.php?topic=12193.msg105406#msg105406 {{PageSeeAlso}} * [[ENVIRON$]] -* [[QB64_FAQ#Q:_How_do_I_upgrade_the_32_bit_Windows_version_of_QB64_to_64_bit_functionality.3F|Upgrading QB64 to use a 64-bit compiler in Windows]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PALETTECOLOR.txt b/internal/help/_PALETTECOLOR.txt index 36c922d41..6fdb7f5d4 100644 --- a/internal/help/_PALETTECOLOR.txt +++ b/internal/help/_PALETTECOLOR.txt @@ -15,7 +15,7 @@ The [[_PALETTECOLOR]] statement sets the color value of a palette entry of an im * If {{Parameter|destHandle&}} is an invalid handle value, an [[ERROR Codes|invalid handle]] error occurs. -<center>'''Basic's 16 Default Color Attributes (non-[[DAC]])'''</center> +<center>'''Basic's 16 Default Color Attributes (non-[[DAC]])'''</center> {{OutputStart}}{{text|  Attribute    Description     Red   Green   Blue 32 HEX HTML Name |Gold}}  0 Black 0 0 0 000000 Black {{text|  1 Dark Blue 0 0 42 00008B DarkBlue|#00208B}} @@ -34,7 +34,7 @@ The [[_PALETTECOLOR]] statement sets the color value of a palette entry of an im {{text| 14 Yellow 63 63 21 FFFF00 Yellow|#FFFF00}} {{text| 15 White 63 63 63 FFFFFF White|#FFFFFF}} '' '' {{OutputEnd}} -<center>[http://www.w3schools.com/html/html_colornames.asp HTML Color Table Values and Names] or [http://www.tayloredmktg.com/rgb/#OR Other RGB colors]</center> +<center>[http://www.w3schools.com/html/html_colornames.asp HTML Color Table Values and Names] or [http://www.tayloredmktg.com/rgb/#OR Other RGB colors]</center> ::: ''Note:'' '''QB64''' 32 bit color intensity values from 0 to 255 can be found by multiplying above values by 4. ''Summary:'' The red, green, and blue intensity values can be changed using [[OUT]] or [[PALETTE]] statements. Some '''QBasic''' RGB color attribute values can be changed in [[DAC]] [[SCREEN (statement)|SCREEN]] modes and the [[DAC]] RGB intensity settings may be different. @@ -50,15 +50,15 @@ The [[_PALETTECOLOR]] statement sets the color value of a palette entry of an im {{Cl|_PALETTECOLOR}} 5, {{Cl|_RGB32}}(170, 0, 0) ' dark red. {{Cl|_PALETTECOLOR}} 6, {{Cl|_RGB32}}(85, 0, 0) ' darker red. -{{Cl|COLOR}} 0, 1: {{Cl|PRINT}} "black on white." -{{Cl|COLOR}} 0, 2: {{Cl|PRINT}} "black on lighter red." -{{Cl|COLOR}} 0, 3: {{Cl|PRINT}} "black on light red." -{{Cl|COLOR}} 0, 4: {{Cl|PRINT}} "black on red." -{{Cl|COLOR}} 0, 5: {{Cl|PRINT}} "black on dark red." -{{Cl|COLOR}} 0, 6: {{Cl|PRINT}} "black on darker red. +{{Cl|COLOR}} 0, 1: {{Cl|PRINT}} "black on white." +{{Cl|COLOR}} 0, 2: {{Cl|PRINT}} "black on lighter red." +{{Cl|COLOR}} 0, 3: {{Cl|PRINT}} "black on light red." +{{Cl|COLOR}} 0, 4: {{Cl|PRINT}} "black on red." +{{Cl|COLOR}} 0, 5: {{Cl|PRINT}} "black on dark red." +{{Cl|COLOR}} 0, 6: {{Cl|PRINT}} "black on darker red. -{{Cl|COLOR}} 1, 6: {{Cl|PRINT}} "white on darker red" -{{Cl|COLOR}} 2, 6: {{Cl|PRINT}} "ligher red on darker red" '' '' +{{Cl|COLOR}} 1, 6: {{Cl|PRINT}} "white on darker red" +{{Cl|COLOR}} 2, 6: {{Cl|PRINT}} "ligher red on darker red" '' '' {{CodeEnd}} : ''Note:'' [[_PALETTECOLOR]] expects [[LONG]] [[_RGB32]] or [[_RGBA32]] 32 bit color values, not [[_RGB]] or [[_RGBA]] palette attribute values. @@ -72,4 +72,4 @@ The [[_PALETTECOLOR]] statement sets the color value of a palette entry of an im * [[HEX$ 32 Bit Values]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PALETTECOLOR_(function).txt b/internal/help/_PALETTECOLOR_(function).txt index 6fbfa8767..bb420b1a2 100644 --- a/internal/help/_PALETTECOLOR_(function).txt +++ b/internal/help/_PALETTECOLOR_(function).txt @@ -15,9 +15,9 @@ The [[_PALETTECOLOR (function)|_PALETTECOLOR]] function is used to return the 32 {{PageExamples}} -''Example:'' How _PALETTECOLOR works on 32 bit RGB compared to a 4 BPP(SCREEN 12) Qbasic procedure. +''Example:'' How _PALETTECOLOR works on 32 bit RGB compared to a 4 BPP(SCREEN 12) QBasic procedure. {{CodeStart}} '' '' -SCREEN 12 'can use any Qbasic legacy screen mode +SCREEN 12 'can use any QBasic legacy screen mode DIM RGB(0 TO 47) AS INTEGER 'color intensity array FOR c& = 0 TO 15 'OUT &H3C7, c& 'set color attribute to read @@ -31,8 +31,8 @@ FOR c& = 0 TO 15 RGB(c& * 3) = red%: RGB((c& * 3) + 1) = green%: RGB((c& * 3) + 2) = blue% NEXT FOR i = 0 TO 47 STEP 3 - RGBval$ = LTRIM$(STR$(RGB(i))) + "," + STR$(RGB(i + 1)) + "," + STR$(RGB(i + 2)) + ")" - PRINT "Color"; i / 3, "_RGB(" + RGBval$; + RGBval$ = LTRIM$(STR$(RGB(i))) + "," + STR$(RGB(i + 1)) + "," + STR$(RGB(i + 2)) + ")" + PRINT "Color"; i / 3, "_RGB(" + RGBval$; PRINT NEXT END '' '' @@ -47,4 +47,4 @@ END '' '' * [[SAVEIMAGE]] (example code) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PI.txt b/internal/help/_PI.txt index d4acb438f..01cc1fa27 100644 --- a/internal/help/_PI.txt +++ b/internal/help/_PI.txt @@ -6,7 +6,7 @@ The [[_PI]] function returns '''&pi;''' as a [[_FLOAT]] value with an option : {{Parameter|circumference}} = [[_PI]][({{Parameter|multiplier}})] -{{Parameters}} +{{PageParameters}} * Optional {{Parameter|multiplier}} (''2 * radius'' in above syntax) allows multiplication of the Ï€ value. @@ -32,4 +32,4 @@ PRINT circlearea * [[SIN]], [[COS]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PIXELSIZE.txt b/internal/help/_PIXELSIZE.txt index 9ec601a9f..02a566501 100644 --- a/internal/help/_PIXELSIZE.txt +++ b/internal/help/_PIXELSIZE.txt @@ -47,4 +47,4 @@ GetImage& = h& * [[_COPYPALETTE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PRESERVE.txt b/internal/help/_PRESERVE.txt index 3f84ea681..ce2012c17 100644 --- a/internal/help/_PRESERVE.txt +++ b/internal/help/_PRESERVE.txt @@ -18,8 +18,8 @@ The [[_PRESERVE]] [[REDIM]] action preserves the current contents of [[$DYNAMIC| {{PageErrors}} * [[SUB]] or [[FUNCTION]] arrays created using [[REDIM]] require that they be recreated to be used after arrays are [[ERASE]]d. -* '''Warning:''' Do not use negative upper array index values as an "Out of Memory" [[ERROR Codes|error]] (or global Operating System errors) will occur.''' -* Use [[_PRESERVE]] before [[SHARED]] or an "invalid variable name" error will occur. +* '''Warning:''' Do not use negative upper array index values as an "Out of Memory" [[ERROR Codes|error]] (or global Operating System errors) will occur.''' +* Use [[_PRESERVE]] before [[SHARED]] or an "invalid variable name" error will occur. {{PageExamples}} @@ -38,11 +38,11 @@ a(5) = 123 {{CodeStart}} '' '' {{Cl|REDIM}} Array$(1) 'create a dynamic string array -filename$ = "Readme.txt" 'Qb64 information text file +filename$ = "Readme.txt" 'Qb64 information text file {{Cl|OPEN}} filename$ {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #1 {{Cl|DO}} {{Cl|UNTIL}} {{Cl|EOF}}(1) count = count + 1 - {{Cl|IF}} count > {{Cl|UBOUND}}(Array$) {{Cl|THEN}} + {{Cl|IF}} count > {{Cl|UBOUND}}(Array$) {{Cl|THEN}} {{Cl|REDIM}} {{Cl|_PRESERVE}} Array$(count * 3 / 2)'increase array's size by 50% without losing data {{cl|END IF}} @@ -65,4 +65,4 @@ filename$ = "Readme.txt" 'Qb64 information text file * [[Arrays]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PRINTIMAGE.txt b/internal/help/_PRINTIMAGE.txt index 7d941097f..01c7945c2 100644 --- a/internal/help/_PRINTIMAGE.txt +++ b/internal/help/_PRINTIMAGE.txt @@ -25,28 +25,28 @@ CursorPosY = 0 'example text to print PointSize = 12 -text$ = "The rain in Spain falls mainly on the plain." +text$ = "The rain in Spain falls mainly on the plain." {{Cl|GOSUB}} PrintText PointSize = 50 -text$ = "BUT!" +text$ = "BUT!" {{Cl|GOSUB}} PrintText PointSize = 12 -text$ = "In Hartford, Hereford, and Hampshire, hurricanes hardly happen." +text$ = "In Hartford, Hereford, and Hampshire, hurricanes hardly happen." {{Cl|GOSUB}} PrintText -{{Cl|INPUT}} "Preview (Y/N)?", i$ 'print preview of screen (optional) -{{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(i$) = "Y" {{Cl|THEN}} +{{Cl|INPUT}} "Preview (Y/N)?", i$ 'print preview of screen (optional) +{{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(i$) = "Y" {{Cl|THEN}} Prev& = {{Cl|_NEWIMAGE}}(600, 900, 32) 'print preview smaller image _PUTIMAGE Page&, Prev& {{Cl|SCREEN (statement)|SCREEN}} Prev& - DO: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" + DO: {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" {{Cl|SCREEN (statement)|SCREEN}} 0 {{Cl|END IF}} -{{Cl|INPUT}} "Print on printer (Y/N)?", i$ 'print screen page on printer -{{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(i$) = "Y" {{Cl|THEN}} +{{Cl|INPUT}} "Print on printer (Y/N)?", i$ 'print screen page on printer +{{Cl|IF...THEN|IF}} {{Cl|UCASE$}}(i$) = "Y" {{Cl|THEN}} {{Cl|_PRINTIMAGE}} Page& {{Cl|END IF}} @@ -54,7 +54,7 @@ text$ = "In Hartford, Hereford, and Hampshire, hurricanes hardly happen.&qu PrintText: FontHeight = {{Cl|INT}}(PointSize * 0.3527 * PageScale) -FontHandle = {{Cl|_LOADFONT}}("c:\windows\fonts\times.ttf", FontHeight) +FontHandle = {{Cl|_LOADFONT}}("c:\windows\fonts\times.ttf", FontHeight) {{Cl|_DEST}} Page& {{Cl|_FONT}} FontHandle {{Cl|COLOR}} {{Cl|_RGB}}(255, 0, 0), {{Cl|_RGBA}}(0, 0, 0, 0) 'RED text on clear black background @@ -71,15 +71,15 @@ CursorPosY = CursorPosY + FontHeight 'adjust print position down ''Example 2:'' Printing an old SCREEN 12 [[ASCII]] table using a deeper sized page to prevent stretching by [[_PRINTIMAGE]]. {{CodeStart}} '' '' -{{Cl|_TITLE}} "Print Preview ASCII Table" +{{Cl|_TITLE}} "Print Preview ASCII Table" {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 900, 256) 'size is proportional to 210mm X 297mm(8-1/2 X 11) paper {{Cl|OUT}} {{Cl|&H}}3C8, 0: {{Cl|OUT}} {{Cl|&H}}3C9, 63: {{Cl|OUT}} {{Cl|&H}}3C9, 63: {{Cl|OUT}} {{Cl|&H}}3C9, 63 'white background saves ink! -Align 8, 2, "ASCII and Extended Character Code Table using {{Cl|CHR$}}(n%)" +Align 8, 2, "ASCII and Extended Character Code Table using {{Cl|CHR$}}(n%)" {{Cl|PRINT}} {{Cl|STRING$}}(80, 223) {{Cl|COLOR}} 40 -{{Cl|PRINT}} " "; +{{Cl|PRINT}} " "; {{Cl|FOR...NEXT|FOR}} i% = 0 {{Cl|TO}} 13 {{Cl|PRINT}} i%;: SetCHR {{Cl|CSRLIN}}, {{Cl|POS}}(0), 40, i% {{Cl|LOCATE}} {{Cl|CSRLIN}}, {{Cl|POS}}(0) + 1 @@ -100,7 +100,7 @@ Align 8, 2, "ASCII and Extended Character Code Table using {{Cl|CHR$}}(n%)& {{Cl|FOR...NEXT|FOR}} i% = 33 {{Cl|TO}} 255 {{Cl|SELECT CASE}} i% {{Cl|CASE}} 45, 58, 71, 84: {{Cl|LOCATE}} {{Cl|CSRLIN}} + 1, 1 - {{Cl|CASE}} {{Cl|IS}} > 96: {{Cl|IF...THEN|IF}} (i% - 97) {{Cl|MOD}} 11 = 0 {{Cl|THEN}} {{Cl|LOCATE}} {{Cl|CSRLIN}} + 1, 1 + {{Cl|CASE}} {{Cl|IS}} > 96: {{Cl|IF...THEN|IF}} (i% - 97) {{Cl|MOD}} 11 = 0 {{Cl|THEN}} {{Cl|LOCATE}} {{Cl|CSRLIN}} + 1, 1 {{Cl|END SELECT}} {{Cl|SELECT CASE}} i% {{Cl|CASE}} 48 {{Cl|TO}} 57: {{Cl|COLOR}} 9 'denotes number keys 48 to 57 @@ -108,25 +108,25 @@ Align 8, 2, "ASCII and Extended Character Code Table using {{Cl|CHR$}}(n%)& {{Cl|CASE}} 97 {{Cl|TO}} 122: {{Cl|COLOR}} 36 'a to z keys 97 to 122 {{Cl|CASE}} 127 {{Cl|TO}} 175: {{Cl|COLOR}} 42 {{Cl|CASE}} 176 {{Cl|TO}} 223: {{Cl|COLOR}} 6 'drawing characters 176 to 223 - {{Cl|CASE}} {{Cl|IS}} > 223: {{Cl|COLOR}} 42 + {{Cl|CASE}} {{Cl|IS}} > 223: {{Cl|COLOR}} 42 {{Cl|CASE ELSE}}: {{Cl|COLOR}} 2 {{Cl|END SELECT}} {{Cl|IF...THEN|IF}} i% = 98 {{Cl|OR (boolean)|OR}} i% = 99 {{Cl|OR (boolean)|OR}} i% = 100 {{Cl|THEN}} {{Cl|PRINT}} {{Cl|SPACE$}}(1); - {{Cl|PRINT}} " "; i%; {{Cl|CHR$}}(i%); + {{Cl|PRINT}} " "; i%; {{Cl|CHR$}}(i%); {{Cl|NEXT}} i% -{{Cl|COLOR}} 3: {{Cl|PRINT}} "= NBSP(Non-Breaking Space)" +{{Cl|COLOR}} 3: {{Cl|PRINT}} "= NBSP(Non-Breaking Space)" {{Cl|COLOR}} 8: {{Cl|PRINT}} {{Cl|STRING$}}(80, {{Cl|CHR$}}(220)) Border 8 -{{Cl|COLOR}} 4: {{Cl|LOCATE}} 27, 4: {{Cl|PRINT}} "7) BELL, 8) Backspace, 9) Tab, 10) LineFeed(printer), 12) FormFeed(printer)" -{{Cl|LOCATE}} 28, 4: {{Cl|PRINT}} " 13) Return, 26) End Of File, 27) Escape 30) Line up, 31) Line down " +{{Cl|COLOR}} 4: {{Cl|LOCATE}} 27, 4: {{Cl|PRINT}} "7) BELL, 8) Backspace, 9) Tab, 10) LineFeed(printer), 12) FormFeed(printer)" +{{Cl|LOCATE}} 28, 4: {{Cl|PRINT}} " 13) Return, 26) End Of File, 27) Escape 30) Line up, 31) Line down " -Align 13, 29, "Press Ctrl + P to PRINT!" +Align 13, 29, "Press Ctrl + P to PRINT!" -DO: {{Cl|SLEEP}}: K$ = {{Cl|INKEY$}}: {{Cl|LOOP}} {{Cl|UNTIL}} K$ <> "" +DO: {{Cl|SLEEP}}: K$ = {{Cl|INKEY$}}: {{Cl|LOOP}} {{Cl|UNTIL}} K$ <> "" Align 13, 29, {{Cl|SPACE$}}(50) {{Cl|IF...THEN|IF}} K$ = {{Cl|CHR$}}(16) {{Cl|THEN}} {{Cl|_PRINTIMAGE}} 0 '<<<<<<<<<<<< to PRINTER - Align 11, 29, "Use the ASCII Table for a reference of the codes!" + Align 11, 29, "Use the ASCII Table for a reference of the codes!" {{Cl|SOUND}} 700, 4 {{Cl|END IF}} K$ = {{Cl|INPUT$}}(1) @@ -167,4 +167,4 @@ Srow = 16 * (Trow - 1): Scol = 8 * (Tcol - 1) 'convert text to graphic coordinat * [[Windows Printer Settings]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PRINTMODE.txt b/internal/help/_PRINTMODE.txt index 90de86452..8701fbc00 100644 --- a/internal/help/_PRINTMODE.txt +++ b/internal/help/_PRINTMODE.txt @@ -6,7 +6,7 @@ The [[_PRINTMODE]] statement sets the text or [[_FONT]] printing mode on a backg : [[_PRINTMODE]] {''_KEEPBACKGROUND''|''_ONLYBACKGROUND''|''_FILLBACKGROUND''}[, {{Parameter|imageHandle&}}] -{{Parameters}} +{{PageParameters}} * One of 3 mode keywords is mandatory when using this statement to deal with the text background. **''_KEEPBACKGROUND'' (mode 1): Text background transparent. Only the text is displayed over anything behind it. **''_ONLYBACKGROUND'' (mode 2): Text background only is displayed. Text is transparent to anything behind it. @@ -38,4 +38,4 @@ The [[_PRINTMODE]] statement sets the text or [[_FONT]] printing mode on a backg * [[PRINT]], [[_PRINT USING]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PRINTMODE_(function).txt b/internal/help/_PRINTMODE_(function).txt index e2857b097..27f47feca 100644 --- a/internal/help/_PRINTMODE_(function).txt +++ b/internal/help/_PRINTMODE_(function).txt @@ -6,7 +6,7 @@ The [[_PRINTMODE (function)|_PRINTMODE]] function returns the current [[_PRINTM : {{Parameter|currentPrintMode}} = [[_PRINTMODE (function)|_PRINTMODE]][({{Parameter|imageHandle&}})] -{{Parameters}} +{{PageParameters}} * If no {{Parameter|imageHandle&}} is given, the current [[_DEST|destination]] [[SCREEN]] page or image is assumed. @@ -25,4 +25,4 @@ The [[_PRINTMODE (function)|_PRINTMODE]] function returns the current [[_PRINTM * [[_PRINTSTRING]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PRINTSTRING.txt b/internal/help/_PRINTSTRING.txt index 0511172df..4aae006ad 100644 --- a/internal/help/_PRINTSTRING.txt +++ b/internal/help/_PRINTSTRING.txt @@ -6,7 +6,7 @@ The [[_PRINTSTRING]] statement prints text [[STRING|strings]] using graphic colu : [[_PRINTSTRING]]({{Parameter|column}}, {{Parameter|row}}), {{Parameter|textExpression$}}[, {{Parameter|imageHandle&}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|column}} and {{Parameter|row}} are [[INTEGER]] or [[LONG]] starting PIXEL (graphic) column and row coordinates to set text or custom fonts. * {{Parameter|textExpression$}} is any literal or variable [[STRING|string]] value of text to be displayed. * {{Parameter|imageHandle&}} is the optional image or destination to use. Zero designates current [[SCREEN (statement)|SCREEN]] page. @@ -24,12 +24,9 @@ The [[_PRINTSTRING]] statement prints text [[STRING|strings]] using graphic colu * In SCREEN 0 (text only), [[_PRINTSTRING]] works as one-line replacement for '''LOCATE x, y: PRINT text$''', without changing the current cursor position. -==Availability== -* In versions of QB64 prior to 1.000 _PRINTSTRING can only be used in graphic, 256 color or 32 bit screen modes, not SCREEN 0.'' - {{PageExamples}} -''Example 1:'' Printing those unprintable [[ASCII]] control characters is no longer a problem! +''Example 1:'' Printing those unprintable [[ASCII]] control characters is no longer a problem. {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, 256) @@ -37,7 +34,7 @@ The [[_PRINTSTRING]] statement prints text [[STRING|strings]] using graphic colu chrstr$ = chrstr$ + {{Cl|CHR$}}(code) + {{Cl|SPACE$}}(1) {{Cl|NEXT}} -{{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\Windows\Fonts\Cour.ttf", 20, "MONOSPACE") 'select monospace font +{{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\Windows\Fonts\Cour.ttf", 20, "MONOSPACE") 'select monospace font {{Cl|_PRINTSTRING}} (0, 16), chrstr$ @@ -48,38 +45,7 @@ The [[_PRINTSTRING]] statement prints text [[STRING|strings]] using graphic colu {{OutputEnd}} -''Example 2:'' Making any '''QB64 program window''' larger using a SUB that easily converts PRINT to [[_PRINTSTRING]]. -{{CodeStart}} -Scr13& = {{Cl|_NEWIMAGE}}(320, 200, 13) 'this is the old SCREEN 13 image page to set the image -Big13& = {{Cl|_NEWIMAGE}}(640, 480, 256) 'use 4 X 3 aspect ratio that Qbasic used when full screen - -{{Cl|SCREEN (statement)|SCREEN}} Big13& -{{Cl|_DEST}} Scr13& -image1& = {{Cl|_LOADIMAGE}}("Howie.BMP", 256) -image2& = {{Cl|_LOADIMAGE}}("Howie2.BMP", 256) -{{Cl|_PUTIMAGE}} (10, 20), image1&, Scr13& -{{Cl|_PUTIMAGE}} (160, 20), image2&, Scr13& -{{Cl|_COPYPALETTE}} image1&, Scr13& -{{Cl|COLOR}} 151: {{Cl|LOCATE}} 2, 4: PRINTS "Screen 13 Height Reduction to 83%" -{{Cl|LOCATE}} 22, 22: PRINTS {{Cl|CHR$}}(24) + " 4 X 3 Proportion" 'use {{Cl|concatenation}} -{{Cl|LOCATE}} 24, 21: PRINTS {{Cl|CHR$}}(27) + " Stretched at 100%" 'instead of a {{Cl|semicolon}}! -{{Cl|_COPYPALETTE}} Scr13&, Big13& 'required when imported image colors are used -{{Cl|_PUTIMAGE}} , Scr13&, Big13& 'stretches the screen to double the size -K$ = {{Cl|INPUT$}}(1) -{{Cl|END}} - -{{Cl|SUB}} PRINTS (Text$) -row% = ({{Cl|CSRLIN}} - 1) * {{Cl|_FONTHEIGHT}} 'finds current screen page text or font row height -col% = ({{Cl|POS}}(0) - 1) * {{Cl|_PRINTWIDTH}}("W") 'finds current page text or font column width -{{Cl|_PRINTSTRING}} (col%, row%), Text$ -{{Cl|END SUB}} '' '' -{{CodeEnd}} -{{small|Code by Ted Weissgerber}} -: ''Explanation:'' The procedure above creates a larger version of a SCREEN 13 window by stretching it with [[_PUTIMAGE]]. It cannot stretch PRINTed text so [[_PRINTSTRING]] must be used instead. [[LOCATE]] sets the PRINT cursor position for [[CSRLIN]] and [[POS]](0) to read. The SUB then converts the coordinates to graphical ones. Then '''change''' [[PRINT]] to PRINTS using the [[IDE]] '''Search Menu'''. -<center>[https://www.dropbox.com/s/tcdik1ajegbeiz4/HOWIE.zip?dl=0 Download of Example 2 Bitmap images]</center> - - -''Example 3:'' Rotating a text string around a graphic object. +''Example 2:'' Rotating a text string around a graphic object. {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} 12 '' '' {{Cl|DIM}} row {{Cl|AS}} {{Cl|INTEGER}}, cnt {{Cl|AS}} {{Cl|INTEGER}}, cstart {{Cl|AS}} {{Cl|SINGLE}}, cend {{Cl|AS}} {{Cl|SINGLE}} @@ -94,10 +60,10 @@ row = 1 x = 300 + (scale * 40 - (row * xrot)) * {{Cl|COS}}(i) y = 200 + (scale * 40 - (row * yrot)) * {{Cl|SIN}}(i) cnt = cnt + 1 - {{Cl|COLOR}} 7: {{Cl|_PRINTSTRING}} (x, y), "HELLO WORLD!", 0 'display + {{Cl|COLOR}} 7: {{Cl|_PRINTSTRING}} (x, y), "HELLO WORLD!", 0 'display {{Cl|IF}} cnt = {{Cl|LEN}}(text$) * 8 {{Cl|THEN}} cnt = 0: {{Cl|EXIT DO}} {{Cl|_DISPLAY}} - {{Cl|COLOR}} 0: {{Cl|_PRINTSTRING}} (x, y), "HELLO WORLD!", 0 'erase + {{Cl|COLOR}} 0: {{Cl|_PRINTSTRING}} (x, y), "HELLO WORLD!", 0 'erase {{Cl|_DELAY}} 0.02 {{Cl|NEXT}} {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) 'escape key exit @@ -116,4 +82,4 @@ row = 1 * [[Text Using Graphics]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PRINTWIDTH.txt b/internal/help/_PRINTWIDTH.txt index 1d523a6e5..cf4dd2640 100644 --- a/internal/help/_PRINTWIDTH.txt +++ b/internal/help/_PRINTWIDTH.txt @@ -18,28 +18,28 @@ The [[_PRINTWIDTH]] function returns the width in pixels of the text [[STRING|st ''Example:'' SUB returns font or screen mode's text block size using _PRINTWIDTH and [[_FONTHEIGHT]] without a handle parameter. {{CodeStart}} '' '' {{Cl|DO}} - {{Cl|INPUT}} "Enter Screen mode 1, 2 or 7 to 13: ", scr$ + {{Cl|INPUT}} "Enter Screen mode 1, 2 or 7 to 13: ", scr$ mode% = {{Cl|VAL}}(scr$) -{{Cl|LOOP}} {{Cl|UNTIL}} mode% > 0 +{{Cl|LOOP}} {{Cl|UNTIL}} mode% > 0 {{Cl|SCREEN (statement)|SCREEN}} mode% -{{Cl|INPUT}} "Enter first name of TTF font to use or hit enter for text size: ", TTFont$ -{{Cl|IF}} {{Cl|LEN}}(TTFont$) {{Cl|THEN}} {{Cl|INPUT (file mode)|INPUT}} "Enter font height: ", hi$ +{{Cl|INPUT}} "Enter first name of TTF font to use or hit enter for text size: ", TTFont$ +{{Cl|IF}} {{Cl|LEN}}(TTFont$) {{Cl|THEN}} {{Cl|INPUT (file mode)|INPUT}} "Enter font height: ", hi$ height& = {{Cl|VAL}}(hi$) -{{Cl|IF}} height& > 0 {{Cl|THEN}} {{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\Windows\Fonts\" + TTFont$ + ".ttf", height&, style$) +{{Cl|IF}} height& > 0 {{Cl|THEN}} {{Cl|_FONT}} {{Cl|_LOADFONT}}("C:\Windows\Fonts\" + TTFont$ + ".ttf", height&, style$) TextSize wide&, high& 'get the font or current screen mode's text block pixel size -{{Cl|_PRINTSTRING}} (20, 100), {{Cl|CHR$}}(1) + {{Cl|STR$}}(wide&) + " X" + {{Cl|STR$}}(high&) + " " + {{Cl|CHR$}}(2) +{{Cl|_PRINTSTRING}} (20, 100), {{Cl|CHR$}}(1) + {{Cl|STR$}}(wide&) + " X" + {{Cl|STR$}}(high&) + " " + {{Cl|CHR$}}(2) {{Cl|END}} {{Cl|SUB}} TextSize (TextWidth&, TextHeight&) -TextWidth& = {{Cl|_PRINTWIDTH}}("W") 'measure width of one font or text character +TextWidth& = {{Cl|_PRINTWIDTH}}("W") 'measure width of one font or text character TextHeight& = {{Cl|_FONTHEIGHT}} 'can measure normal text block heights also {{Cl|END SUB}} '' '' {{CodeEnd}} {{small|Code by Ted Weissgerber}} -<center>'''Note:''' The SUB procedure does not need the font handle for font sizes after [[_FONT]] enables one.</center> +<center>'''Note:''' The SUB procedure does not need the font handle for font sizes after [[_FONT]] enables one.</center> {{PageSeeAlso}} @@ -49,4 +49,4 @@ TextHeight& = {{Cl|_FONTHEIGHT}} 'can measure normal text block heig * [[Text Using Graphics]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_PUTIMAGE.txt b/internal/help/_PUTIMAGE.txt index ba94bd83b..8ba453178 100644 --- a/internal/help/_PUTIMAGE.txt +++ b/internal/help/_PUTIMAGE.txt @@ -25,8 +25,8 @@ ::Note: The top-left corner position designates the leftmost and topmost portion of the image to use. -{{Parameters}} -* Relative coordinates to a previous graphical object can be designated using [[STEP]] as opposed to literal surface coordinates (version '''1.000''' and up). +{{PageParameters}} +* Relative coordinates to a previous graphical object can be designated using [[STEP]] as opposed to literal surface coordinates. * Coordinates ''dx'' and ''dy'' map the box area of the [[_DEST|destination]] area to use. When omitted the entire desination area is used. If only one coordinate is used, the source is placed with its original dimensions. Coordinates can be set to flip or resize the image. ** {{Parameter|dx1}} = the column coordinate at which the insertion of the source will begin (leftmost); when larger than ''dx2'', reverses image. ** {{Parameter|dy1}} = the row coordinate at which the insertion of the source will begin (topmost); when larger than ''dy2'', inverts image. @@ -39,19 +39,18 @@ ** {{Parameter|sy1}} = the row coordinate of the upper-most pixel to include of the source. When omitted, the entire image is used ** {{Parameter|sx2}} = the column coordinate of the right-most pixel to include of the source. Can be omitted to get rest of image. ** {{Parameter|sy2}} = the row coordinate of the bottom-most pixel to include of the source. Can be omitted to get rest of image. -* ''_SMOOTH'' applies linear filtering ('''version 1.000 and up'''). +* ''_SMOOTH'' applies linear filtering. -<center>'''Note: The [[PUT (graphics statement)|PUT]] options PSET, PRESET, AND, OR and XOR are not available with _PUTIMAGE. QB64 can use [[_ALPHA|transparency]] of colors to achieve the same results.'''</center> +<center>'''Note: The [[PUT (graphics statement)|PUT]] options PSET, PRESET, AND, OR and XOR are not available with _PUTIMAGE. QB64 can use [[_ALPHA|transparency]] of colors to achieve the same results.'''</center> {{PageDescription}} * _PUTIMAGE can be used without any handle parameters if the [[_SOURCE]] and/or [[_DEST]] are already defined. -* '''The {{Parameter|sourceHandle&}} and {{Parameter|destHandle&}} cannot be the same or an [[ERROR Codes|Illegal Function Call]] error will occur.''' * If the area of the source is bigger or smaller than the area of the destination then the image is adjusted to fit that area. * Supports 32 bit alpha blending, color key transparency, true type fonts, stretching, mirroring/flipping, and a variety of graphics file formats including gif, png, bmp & jpg. '''32 bit screen surface backgrounds (black) have zero [[_ALPHA]] and are transparent when placed over other surfaces.''' Use [[CLS]] or [[_DONTBLEND]] to make a new surface background [[_ALPHA]] 255 or opaque. -* All graphical surfaces, including screen pages, can be acted upon in the same manner, and are referred to as "images". +* All graphical surfaces, including screen pages, can be acted upon in the same manner, and are referred to as "images". * '''Hardware images''' (created using mode '''33''' via [[_LOADIMAGE]] or [[_COPYIMAGE]]) can be used as the source or destination. -* [[Handle]]s are used to identify graphical surfaces. Positive values are used to refer to screen pages. -1 (negative one) indicates an invalid surface. It is recommended to store image handles in [[LONG]] variables. Passing an invalid handle generates an [[ERROR Codes|"Invalid handle"]] error. +* [[Handle]]s are used to identify graphical surfaces. Positive values are used to refer to screen pages. -1 (negative one) indicates an invalid surface. It is recommended to store image handles in [[LONG]] variables. Passing an invalid handle generates an [[ERROR Codes|"Invalid handle"]] error. * When handles are not passed (or cannot be passed) to subs/functions then the default destination image or source image is referenced. These are set to the active page when the SCREEN statement is called, but can be changed to any image. So it is possible to read from one image using [[POINT]] and write to a different one with [[PSET]]. * '''[[PRINT]]ed text cannot be transferred and positioned accurately.''' Use [[_PRINTSTRING]] for graphical text or font placement. * '''Images are not deallocated when the [[SUB]] or [[FUNCTION]] they are created in ends. Free them with [[_FREEIMAGE]].''' @@ -83,52 +82,49 @@ {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) {{Cl|CLS}} , {{Cl|_RGB}}(0, 255, 0) -i = {{Cl|_LOADIMAGE}}('''"QB64.PNG"''') 'see note below examples to get the image +i = {{Cl|_LOADIMAGE}}('''"QB64.PNG"''') {{Cl|_PUTIMAGE}} (0, 0), i ' places image at upper left corner of window w/o stretching it '' '' {{CodeEnd}} '' '' -: ''Explanation:'' When QB64 loads a 256 color .PNG file containing a transparent color, that color will be treated as transparent when _PUTIMAGE is used to put it onto another image. So actually, you can use a 256-color .PNG file containing transparency information in a 256 color screen mode in QB64. - ''Example 3:'' Flipping and enlarging an image with _PUTIMAGE by swapping or increasing the desination coordinates. {{CodeStart}} '' '' {{Cl|DEFLNG}} A-Z dest_handle = {{Cl|_NEWIMAGE}}(640, 480, 32) {{Cl|SCREEN (statement)|SCREEN}} dest_handle '32 bit Screen 12 dimensions -source_handle = {{Cl|_LOADIMAGE}}('''"QB64.PNG"''', 32) +source_handle = {{Cl|_LOADIMAGE}}('''"QB64.PNG"''', 32) dx1 = 0: dy1 = 0 dx2 = {{Cl|_WIDTH (function)|_WIDTH}}(source_handle) - 1: dy2 = {{Cl|_HEIGHT}}(source_handle) - 1 'image dimensions - 1 -{{Cl|LOCATE}} 29, 33: {{Cl|PRINT}} "Press any Key!"; +{{Cl|LOCATE}} 29, 33: {{Cl|PRINT}} "Press any Key!"; 'normal image coordinate values based on the dimensions of the image: {{Cl|_PUTIMAGE}} (dx1, dy1)-(dx2, dy2), source_handle, dest_handle -{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Normal layout" -{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx1, dy1)-(dx2, dy2), source_handle, dest_handle" +{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Normal layout" +{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx1, dy1)-(dx2, dy2), source_handle, dest_handle" K$ = {{Cl|INPUT$}}(1) 'to flip the image on the x axis, swap the dx coordinate values: {{Cl|_PUTIMAGE}} (dx2, dy1)-(dx1, dy2), source_handle, dest_handle -{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Flip by X axis" -{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx2, dy1)-(dx1, dy2), source_handle, dest_handle" +{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Flip by X axis" +{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx2, dy1)-(dx1, dy2), source_handle, dest_handle" K$ = {{Cl|INPUT$}}(1) 'to flip image on y axis, swap the dy coordinate values: {{Cl|_PUTIMAGE}} (dx1, dy2)-(dx2, dy1), source_handle, dest_handle -{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Flip by Y axis" -{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx1, dy2)-(dx2, dy1), source_handle, dest_handle " +{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Flip by Y axis" +{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx1, dy2)-(dx2, dy1), source_handle, dest_handle " K$ = {{Cl|INPUT$}}(1) 'to flip both, swap both the dx and dy coordinate values: {{Cl|_PUTIMAGE}} (dx2, dy2)-(dx1, dy1), source_handle, dest_handle -{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Flip on both axis" -{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx2, dy2)-(dx1, dy1), source_handle, dest_handle" +{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Flip on both axis" +{{Cl|LOCATE}} 24, 10: {{Cl|PRINT}} "_PUTIMAGE (dx2, dy2)-(dx1, dy1), source_handle, dest_handle" K$ = {{Cl|INPUT$}}(1) 'to enlarge, double the second set of values plus any offset of the first coordinates: {{Cl|_PUTIMAGE}} (dx1, dy1)-((2 * dx2) + dx1, (2 * dy2) + dy1), source_handle, dest_handle -{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Double image size" +{{Cl|LOCATE}} 20, 34: {{Cl|PRINT}} "Double image size" {{Cl|LOCATE}} 24, 2: -{{Cl|PRINT}} "_PUTIMAGE (dx1, dy1)-((2 * dx2) + dx1, (2 * dy2) + dy1), s_handle, d_handle '' '' +{{Cl|PRINT}} "_PUTIMAGE (dx1, dy1)-((2 * dx2) + dx1, (2 * dy2) + dy1), s_handle, d_handle '' '' {{Cl|END}} '' '' {{CodeEnd}} {{small|Adapted from code by Darth Who}} -<center>''Note:'' The ''QB64.PNG'' Bee image used can be copied from the top of the [http://www.qb64.net/forum/index.php Main Forum Page]</center> ''Example 4:'' Using _PUTIMAGE to scroll a larger image created on a separate [[_NEWIMAGE]] screen page with QB64. @@ -145,7 +141,7 @@ s& = {{Cl|_NEWIMAGE}}(1280, 720, 32)' program screen {{Cl|CIRCLE}} (x, y), {{Cl|RND}}(1) * 300, clr& {{Cl|PAINT}} (x, y), clr& {{Cl|NEXT}} -{{Cl|PRINT}} "This is a demo of some screen scrolling. Use the number pad keys to scroll. 4 goes left, 6 goes right. 8 up, 2 down. ESC key will close this program." +{{Cl|PRINT}} "This is a demo of some screen scrolling. Use the number pad keys to scroll. 4 goes left, 6 goes right. 8 up, 2 down. ESC key will close this program." x = 0: y = 0 {{Cl|SCREEN}} s& @@ -154,11 +150,11 @@ DO {{Cl|_PUTIMAGE}} (0, 0), ws&, 0, (x, y)-(x + 1279, y + 719) a$ = {{Cl|INKEY$}} {{Cl|SELECT CASE}} a$ - {{Cl|CASE}} "4": x = x - 10: {{Cl|IF...THEN|IF}} x < 0 {{Cl|THEN}} x = 0 - {{Cl|CASE}} "6": x = x + 10: {{Cl|IF...THEN|IF}} x > 1280 {{Cl|THEN}} x = 1280 - {{Cl|CASE}} "8": y = y - 10: {{Cl|IF...THEN|IF}} y < 0 {{Cl|THEN}} y = 0 - {{Cl|CASE}} "2": y = y + 10: {{Cl|IF...THEN|IF}} y > 720 {{Cl|THEN}} y = 720 - {{Cl|CASE}} {{Cl|CHR$}}(32): {{Cl|SYSTEM}} + {{Cl|CASE}} "4": x = x - 10: {{Cl|IF...THEN|IF}} x < 0 {{Cl|THEN}} x = 0 + {{Cl|CASE}} "6": x = x + 10: {{Cl|IF...THEN|IF}} x > 1280 {{Cl|THEN}} x = 1280 + {{Cl|CASE}} "8": y = y - 10: {{Cl|IF...THEN|IF}} y < 0 {{Cl|THEN}} y = 0 + {{Cl|CASE}} "2": y = y + 10: {{Cl|IF...THEN|IF}} y > 720 {{Cl|THEN}} y = 720 + {{Cl|CASE}} {{Cl|CHR$}}(27): {{Cl|SYSTEM}} {{Cl|END SELECT}} {{Cl|_DISPLAY}} {{Cl|LOOP}} '' '' @@ -170,7 +166,7 @@ DO {{Cl|SCREEN}} 13 h& = {{Cl|_NEWIMAGE}}(640, 480, 256) {{Cl|_DEST}} h& -{{Cl|_PRINTSTRING}} (10, 10), "This _PUTIMAGE used no parameters!" +{{Cl|_PRINTSTRING}} (10, 10), "This _PUTIMAGE used no parameters!" {{Cl|_SOURCE}} h& {{Cl|_DEST}} 0 {{Cl|_PUTIMAGE}} @@ -192,4 +188,4 @@ h& = {{Cl|_NEWIMAGE}}(640, 480, 256) * [[Hardware images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_R2D.txt b/internal/help/_R2D.txt index 25a666d52..ef3e1247d 100644 --- a/internal/help/_R2D.txt +++ b/internal/help/_R2D.txt @@ -6,16 +6,16 @@ The [[_R2D]] function converts a '''radian''' value into a '''degree''' value. : {{Parameter|result!}} = [[_R2D]]({{Parameter|num}}) -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} ''Example:'' Coverting Radian into Degree. {{CodeStart}} -INPUT "Give me an angle in Radians ", D +INPUT "Give me an angle in Radians ", D R = _R2D(D) -PRINT "That angle in Degrees is "; R +PRINT "That angle in Degrees is "; R {{CodeEnd}} {{OutputStart}} Give me an angle in Radians 0.5 @@ -30,4 +30,4 @@ That angle in Degrees is 28.64789 -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_R2G.txt b/internal/help/_R2G.txt index 234a23831..2198b0141 100644 --- a/internal/help/_R2G.txt +++ b/internal/help/_R2G.txt @@ -6,16 +6,16 @@ The [[_R2G]] function converts a '''radian''' value into a '''gradient''' value. : {{Parameter|result!}} = [[_R2G]]({{Parameter|num}}) -==Availability== -* '''Version 1.000 and up.''' +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} ''Example:'' Coverting Radian into Gradient. {{CodeStart}} -INPUT "Give me an angle in Radians ", D +INPUT "Give me an angle in Radians ", D R = _R2G(D) -PRINT "That angle in Gradient is "; R +PRINT "That angle in Gradient is "; R {{CodeEnd}} {{OutputStart}} Give me an angle in Radians 0.5 @@ -30,4 +30,4 @@ That angle in Gradient is 31.83099 -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_READBIT.txt b/internal/help/_READBIT.txt new file mode 100644 index 000000000..db325776c --- /dev/null +++ b/internal/help/_READBIT.txt @@ -0,0 +1,57 @@ +{{DISPLAYTITLE:_READBIT}} +The [[_READBIT]] function is used to check the state of a specified bit of a integer value. + + +{{PageSyntax}} +:{{Parameter|result}} = [[_READBIT]]({{Parameter|numericalVariable}}, {{Parameter|numericalValue}}) + + +{{PageParameters}} +* {{Parameter|numericalVariable}} is the variable to read the state of a bit of and can be of the following types: [[_BYTE]], [[INTEGER]], [[LONG]], or [[_INTEGER64]]. +* Integer values can be signed or [[_UNSIGNED]]. +* {{Parameter|numericalValue}} the number of the bit to be read. + + +{{PageDescription}} +* Used to check the current state of a bit in an integer value. +* Returns -1 if the bit is set(1), otherwise returns 0 if the bit is not set(0) +* Bits start at 0 (so a [[_BYTE]] has bits 0 to 7, [[INTEGER]] 0 to 15, and so on) + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example 1:'' +{{CodeStart}} +A~%% = {{Cl|_SETBIT}}(A~%%,4) +{{Cl|PRINT}} "Bit 4 is currently "; +IF {{Cl|_READBIT}}(A~%%,4) = -1 THEN {{Cl|PRINT}} "ON" ELSE {{Cl|PRINT}} "OFF" +{{Cl|PRINT}} "And bit 2 is currently "; +IF {{Cl|_READBIT}}(A~%%,2) = -1 THEN {{Cl|PRINT}} "ON" ELSE {{Cl|PRINT}} "OFF" +{{CodeEnd}} +{{OutputStart}} +Bit 4 is currently ON +And bit 2 is currently OFF +{{OutputEnd}} + +''Example 2:'' +{{CodeStart}} +B& = 12589575 +{{Cl|PRINT}} "B& ="; B& +FOR I%% = 31 TO 0 STEP -1 '32 bits for a {{Cl|LONG}} value + Binary$ = Binary$ + {{Cl|LTRIM$}}({{Cl|STR$}}({{Cl|ABS}}({{Cl|_READBIT}}(B&, I%%)))) +NEXT I%% +{{Cl|PRINT}} "B& in binary is: "; Binary${{CodeEnd}} +{{OutputStart}} +B& = 12589575 +B& in binary is: 00000000110000000001101000000111 +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[_SHL]], [[_SHR]], [[INTEGER]], [[LONG]] +* [[_SETBIT]], [[_BYTE]], [[_INTEGER64]] +* [[_RESETBIT]], [[_TOGGLEBIT]] + +{{PageNavigation}} diff --git a/internal/help/_RED.txt b/internal/help/_RED.txt index 4922e9fc2..79f1b9486 100644 --- a/internal/help/_RED.txt +++ b/internal/help/_RED.txt @@ -28,4 +28,4 @@ The [[_RED]] function returns the palette index or the red component intensity o * [[_LOADIMAGE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RED32.txt b/internal/help/_RED32.txt index 809c306f3..23af0c2b8 100644 --- a/internal/help/_RED32.txt +++ b/internal/help/_RED32.txt @@ -21,4 +21,4 @@ The [[_RED32]] function returns the red component intensity of a 32-bit image or * [[_RGB32]], [[_RED]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RESETBIT.txt b/internal/help/_RESETBIT.txt new file mode 100644 index 000000000..aef5a44c1 --- /dev/null +++ b/internal/help/_RESETBIT.txt @@ -0,0 +1,46 @@ +{{DISPLAYTITLE:_RESETBIT}} +The [[_RESETBIT]] function is used to set a specified bit of a numerical value to 0 (OFF state). + + +{{PageSyntax}} +:{{Parameter|result}} = [[_RESETBIT]]({{Parameter|numericalVariable}}, {{Parameter|numericalValue}}) + + +{{PageParameters}} +* {{Parameter|numericalVariable}} is the variable to set the bit of and can be of the following types: [[_BYTE]], [[INTEGER]], [[LONG]], or [[_INTEGER64]]. +* Integer values can be signed or [[_UNSIGNED]]. +* {{Parameter|numericalValue}} the number of the bit to be set. + + +{{PageDescription}} +* Can be used to manually manipulate individual bits of an integer value by setting them to 0 (OFF state). +* Resetting a bit that is already set to 0 will have no effect. +* Bits start at 0 (so a [[_BYTE]] has bits 0 to 7, [[INTEGER]] 0 to 15, and so on) + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example 1:'' +{{CodeStart}}A~%% = 0 '{{Cl|_UNSIGNED}} {{Cl|_BYTE}} +{{Cl|PRINT}} A~%% +A~%% = {{Cl|_SETBIT}}(A~%%,6) 'set the seventh bit of A~%% +{{Cl|PRINT}} A~%% +A~%% = {{Cl|_RESETBIT}}(A~%%,6) 'Reset the seventh bit of A~%% +{{Cl|PRINT}} A~%% +{{CodeEnd}} +{{OutputStart}} + 0 + 64 + 0 +{{OutputEnd}} + + + +{{PageSeeAlso}} +* [[_SHL]], [[_SHR]], [[INTEGER]], [[LONG]] +* [[_SETBIT]], [[_BYTE]], [[_INTEGER64]] +* [[_READBIT]], [[_TOGGLEBIT]] + +{{PageNavigation}} diff --git a/internal/help/_RESIZE.txt b/internal/help/_RESIZE.txt index 0224e9d35..b1533ab7b 100644 --- a/internal/help/_RESIZE.txt +++ b/internal/help/_RESIZE.txt @@ -6,7 +6,7 @@ The [[_RESIZE]] statement sets resizing of the window ON or OFF and sets the met : [[_RESIZE]] [{ON|OFF}][, {_STRETCH|_SMOOTH}] -{{Parameters}} +{{PageParameters}} * When resizing is turned OFF no method is listed. * When resizing is turned ON or left empty, a ''_STRETCH'' or ''_SMOOTH'' method can be used. @@ -23,4 +23,4 @@ The [[_RESIZE]] statement sets resizing of the window ON or OFF and sets the met -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RESIZEHEIGHT.txt b/internal/help/_RESIZEHEIGHT.txt index d16214cb1..3e28944f8 100644 --- a/internal/help/_RESIZEHEIGHT.txt +++ b/internal/help/_RESIZEHEIGHT.txt @@ -11,8 +11,8 @@ The [[_RESIZEHEIGHT]] function returns the user resized screen pixel height if [ * The program should decide if the request is allowable for proper program interaction. -==Availability== -* '''Version 1.000 and up'''. +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -23,7 +23,7 @@ The [[_RESIZEHEIGHT]] function returns the user resized screen pixel height if [ s& = {{Cl|_NEWIMAGE}}(300, 300, 32) {{Cl|SCREEN}} s& -bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http://www.qb64.net/qb64_trans.png +bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'replace with your own image {{Cl|DO}} {{Cl|IF}} {{Cl|_RESIZE (function)|_RESIZE}} THEN @@ -51,4 +51,4 @@ bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http:/ * [[_RESIZEWIDTH]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RESIZEWIDTH.txt b/internal/help/_RESIZEWIDTH.txt index 6ba39663f..95d01a7b6 100644 --- a/internal/help/_RESIZEWIDTH.txt +++ b/internal/help/_RESIZEWIDTH.txt @@ -11,8 +11,8 @@ The [[_RESIZEWIDTH]] function returns the user resized screen pixel width if [[$ * The program should decide if the request is allowable for proper program interaction. -==Availability== -* '''Version 1.000 and up'''. +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -23,7 +23,7 @@ The [[_RESIZEWIDTH]] function returns the user resized screen pixel width if [[$ s& = {{Cl|_NEWIMAGE}}(300, 300, 32) {{Cl|SCREEN}} s& -bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http://www.qb64.net/qb64_trans.png +bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'replace with your own image {{Cl|DO}} {{Cl|IF}} {{Cl|_RESIZE (function)|_RESIZE}} THEN @@ -51,4 +51,4 @@ bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http:/ * [[_RESIZEHEIGHT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RESIZE_(function).txt b/internal/help/_RESIZE_(function).txt index 89d509d7c..e8c3d33ad 100644 --- a/internal/help/_RESIZE_(function).txt +++ b/internal/help/_RESIZE_(function).txt @@ -12,8 +12,8 @@ The [[_RESIZE]] function returns true (-1) when a user has attempted to resize t * The [[$RESIZE]]:ON [[metacommand]] must be used so the program is created with a user resizable window. -==Availability== -* '''Version 1.000 and up'''. +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -24,7 +24,7 @@ The [[_RESIZE]] function returns true (-1) when a user has attempted to resize t s& = {{Cl|_NEWIMAGE}}(300, 300, 32) {{Cl|SCREEN}} s& -bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http://www.qb64.net/qb64_trans.png +bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'replace with your own image {{Cl|DO}} {{Cl|IF}} {{Cl|_RESIZE (function)|_RESIZE}} THEN @@ -36,7 +36,7 @@ bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http:/ {{Cl|CLS}} - 'Center the QB64 bee image: + 'Center the image: x = {{Cl|_WIDTH (function)|_WIDTH}} / 2 - _WIDTH(bee&) / 2 y = {{Cl|_HEIGHT}} / 2 - _HEIGHT(bee&) / 2 {{Cl|_PUTIMAGE}} (x, y), bee& @@ -52,4 +52,4 @@ bee& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'QB64's bee from http:/ * [[_RESIZEWIDTH]], [[_RESIZEHEIGHT]] {{text|(requested pixel dimensions)}} -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RGB.txt b/internal/help/_RGB.txt index 761177c0a..429f67e68 100644 --- a/internal/help/_RGB.txt +++ b/internal/help/_RGB.txt @@ -30,26 +30,26 @@ The [[_RGB]] function returns the closest palette attribute index (legacy SCREEN red = {{Cl|INP}}({{Cl|&H}}3C9) * 4 'multiply by 4 to convert intensity to 0 to 255 RGB values grn = {{Cl|INP}}({{Cl|&H}}3C9) * 4 blu = {{Cl|INP}}({{Cl|&H}}3C9) * 4 - hex32$(attribute) = "{{Cl|&H}}" + {{Cl|HEX$}}({{Cl|_RGB32}}(red, grn, blu)) 'always returns the 32 bit value + hex32$(attribute) = "{{Cl|&H}}" + {{Cl|HEX$}}({{Cl|_RGB32}}(red, grn, blu)) 'always returns the 32 bit value {{Cl|COLOR}} attribute - {{Cl|PRINT}} "{{Cl|COLOR}}" + {{Cl|STR$}}({{Cl|_RGB}}(red, grn, blu)) + " = " + hex32$(attribute) 'closest attribute + {{Cl|PRINT}} "{{Cl|COLOR}}" + {{Cl|STR$}}({{Cl|_RGB}}(red, grn, blu)) + " = " + hex32$(attribute) 'closest attribute {{Cl|NEXT}} '' '' {{CodeEnd}} -{{OutputStart}}{{text|COLOR 1 <nowiki>=</nowiki> &HFF0000A8|#0000A8}} -{{text|COLOR 2 <nowiki>=</nowiki> &HFF00A800|#00A800}} -{{text|COLOR 3 <nowiki>=</nowiki> &HFF00A8A8|#00A8A8}} -{{text|COLOR 4 <nowiki>=</nowiki> &HFFA80000|#A80000}} -{{text|COLOR 5 <nowiki>=</nowiki> &HFFA800A8|#A800A8}} -{{text|COLOR 6 <nowiki>=</nowiki> &HFFA85400|#A85400}} -{{text|COLOR 7 <nowiki>=</nowiki> &HFFA8A8A8|#A8A8A8}} -{{text|COLOR 8 <nowiki>=</nowiki> &HFF545454|#545454}} -{{text|COLOR 9 <nowiki>=</nowiki> &HFF5454FC|#5454FC}} -{{text|COLOR 10 <nowiki>=</nowiki> &HFF54FC54|#54FC54}} -{{text|COLOR 11 <nowiki>=</nowiki> &HFF54FCFC|#54FCFC}} -{{text|COLOR 12 <nowiki>=</nowiki> &HFFFC5454|#FC5454}} -{{text|COLOR 13 <nowiki>=</nowiki> &HFFFC54FC|#FC54FC}} -{{text|COLOR 14 <nowiki>=</nowiki> &HFFFCFC54|#FCFC54}} -{{text|COLOR 15 <nowiki>=</nowiki> &HFFFCFCFC|#FCFCFC}} +{{OutputStart}}{{text|COLOR 1 <nowiki>=</nowiki> &HFF0000A8|#0000A8}} +{{text|COLOR 2 <nowiki>=</nowiki> &HFF00A800|#00A800}} +{{text|COLOR 3 <nowiki>=</nowiki> &HFF00A8A8|#00A8A8}} +{{text|COLOR 4 <nowiki>=</nowiki> &HFFA80000|#A80000}} +{{text|COLOR 5 <nowiki>=</nowiki> &HFFA800A8|#A800A8}} +{{text|COLOR 6 <nowiki>=</nowiki> &HFFA85400|#A85400}} +{{text|COLOR 7 <nowiki>=</nowiki> &HFFA8A8A8|#A8A8A8}} +{{text|COLOR 8 <nowiki>=</nowiki> &HFF545454|#545454}} +{{text|COLOR 9 <nowiki>=</nowiki> &HFF5454FC|#5454FC}} +{{text|COLOR 10 <nowiki>=</nowiki> &HFF54FC54|#54FC54}} +{{text|COLOR 11 <nowiki>=</nowiki> &HFF54FCFC|#54FCFC}} +{{text|COLOR 12 <nowiki>=</nowiki> &HFFFC5454|#FC5454}} +{{text|COLOR 13 <nowiki>=</nowiki> &HFFFC54FC|#FC54FC}} +{{text|COLOR 14 <nowiki>=</nowiki> &HFFFCFC54|#FCFC54}} +{{text|COLOR 15 <nowiki>=</nowiki> &HFFFCFCFC|#FCFCFC}} {{OutputEnd}} :''Note:'' This procedure also shows how the returns from [[_RGB]] and [[_RGB32]] differ in a non-32 bit screen mode. @@ -63,4 +63,4 @@ The [[_RGB]] function returns the closest palette attribute index (legacy SCREEN * [http://www.w3schools.com/html/html_colornames.asp Hexadecimal Color Values] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RGB32.txt b/internal/help/_RGB32.txt index 6aa0fde0d..62bd81f32 100644 --- a/internal/help/_RGB32.txt +++ b/internal/help/_RGB32.txt @@ -1,25 +1,39 @@ {{DISPLAYTITLE:_RGB32}} -The [[_RGB32]] function returns the 32-bit ''RGBA'' color value with specified red, green and blue component intensities. +The [[_RGB32]] function returns the 32-bit ''RGBA'' color value with specified red, green and blue component intensities and optional alpha. {{PageSyntax}} +''Original syntax'': :{{Parameter|color32value~&}} = [[_RGB32]]({{Parameter|red&}}, {{Parameter|green&}}, {{Parameter|blue&}}) +''Alternative Syntax 2'': +:{{Parameter|color32value~&}} = [[_RGB32]]({{Parameter|red&}}, {{Parameter|green&}}, {{Parameter|blue&}}, {{Parameter|alpha&}}) -{{Parameters}} +''Alternative Syntax 3'': +:{{Parameter|color32value~&}} = [[_RGB32]]({{Parameter|intensity&}}, {{Parameter|alpha&}}) + +''Alternative Syntax 4'': +:{{Parameter|color32value~&}} = [[_RGB32]]({{Parameter|intensity&}}) + + +{{PageParameters}} * {{Parameter|red&}} specifies the red [[LONG]] component intensity from 0 to 255. * {{Parameter|green&}} specifies the green [[LONG]] component intensity from 0 to 255. * {{Parameter|blue&}} specifies the blue [[LONG]] component intensity from 0 to 255. - +* {{Parameter|alpha&}} specifies the alpha [[LONG]] component from 0 to 255. +* {{Parameter|intensity&}} specifies the red, green and blue [[LONG]] components intensity from 0 to 255 simultaneously, to generate a shade of gray. {{PageDescription}} -* The value returned is ALWAYS a 32-bit [[_UNSIGNED]] [[LONG]] color value, as is the [[POINT]] value. -* '''Return variable types must be [[LONG]] or resulting color may lose the [[_BLUE]] value.''' -* Color intensity values outside of the 0 to 255 range are clipped. -* Returns [[LONG]] 32 bit hexadecimal values from '''&HFF{{text|00|red}}{{text|00|green}}{{text|00|blue}}''' to '''&HFF{{text|FF|red}}{{text|FF|green}}{{text|FF|blue}}''', always with full [[_ALPHA]]. +* The value returned is always a 32-bit [[_UNSIGNED]] [[LONG]] color value, as is the [[POINT]] value. +* '''Return variable types must be [[_UNSIGNED]] [[LONG]] or [[LONG]], otherwise resulting color may lose the [[_BLUE]] value.''' +* Parameter values outside of the 0 to 255 range are clipped. +* Returns [[LONG]] 32 bit hexadecimal values from '''&H00{{text|00|red}}{{text|00|green}}{{text|00|blue}}''' to '''&HFF{{text|FF|red}}{{text|FF|green}}{{text|FF|blue}}'''. * When [[LONG]] values are [[PUT]] to file, the ARGB values become BGRA. Use [[LEFT$]]([[MKL$]]({{Parameter|color32value~&}}), 3) to place 3 colors. -* Colors returned are always opaque as the transparency value is always 255. Use [[_ALPHA]] or [[_CLEARCOLOR]] to change it. -* '''NOTE: Default 32-bit backgrounds are clear black or [[_RGBA]](0, 0, 0, 0). Use [[CLS]] to make the black opaque.''' +* '''NOTE: Default 32-bit backgrounds are clear black or [[_RGB32]](0, 0). Use [[CLS]] to make the black opaque.''' + + +{{PageAvailability}} +* Alternative syntax available with version 1.3 and up. {{PageExamples}} @@ -32,26 +46,26 @@ The [[_RGB32]] function returns the 32-bit ''RGBA'' color value with specified r red = {{Cl|INP}}({{Cl|&H}}3C9) * 4 'multiply by 4 to convert intensity to 0 to 255 RGB values grn = {{Cl|INP}}({{Cl|&H}}3C9) * 4 blu = {{Cl|INP}}({{Cl|&H}}3C9) * 4 - hex32$(attribute) = "{{Cl|&H}}" + {{Cl|HEX$}}({{Cl|_RGB32}}(red, grn, blu)) 'always returns the 32 bit value + hex32$(attribute) = "{{Cl|&H}}" + {{Cl|HEX$}}({{Cl|_RGB32}}(red, grn, blu)) 'always returns the 32 bit value {{Cl|COLOR}} attribute - {{Cl|PRINT}} "{{Cl|COLOR}}" + {{Cl|STR$}}({{Cl|_RGB}}(red, grn, blu)) + " = " + hex32$(attribute) 'closest attribute + {{Cl|PRINT}} "{{Cl|COLOR}}" + {{Cl|STR$}}({{Cl|_RGB}}(red, grn, blu)) + " = " + hex32$(attribute) 'closest attribute {{Cl|NEXT}} '' '' {{CodeEnd}} -{{OutputStart}}{{text|COLOR 1 <nowiki>=</nowiki> &HFF0000A8|#0000A8}} -{{text|COLOR 2 <nowiki>=</nowiki> &HFF00A800|#00A800}} -{{text|COLOR 3 <nowiki>=</nowiki> &HFF00A8A8|#00A8A8}} -{{text|COLOR 4 <nowiki>=</nowiki> &HFFA80000|#A80000}} -{{text|COLOR 5 <nowiki>=</nowiki> &HFFA800A8|#A800A8}} -{{text|COLOR 6 <nowiki>=</nowiki> &HFFA85400|#A85400}} -{{text|COLOR 7 <nowiki>=</nowiki> &HFFA8A8A8|#A8A8A8}} -{{text|COLOR 8 <nowiki>=</nowiki> &HFF545454|#545454}} -{{text|COLOR 9 <nowiki>=</nowiki> &HFF5454FC|#5454FC}} -{{text|COLOR 10 <nowiki>=</nowiki> &HFF54FC54|#54FC54}} -{{text|COLOR 11 <nowiki>=</nowiki> &HFF54FCFC|#54FCFC}} -{{text|COLOR 12 <nowiki>=</nowiki> &HFFFC5454|#FC5454}} -{{text|COLOR 13 <nowiki>=</nowiki> &HFFFC54FC|#FC54FC}} -{{text|COLOR 14 <nowiki>=</nowiki> &HFFFCFC54|#FCFC54}} -{{text|COLOR 15 <nowiki>=</nowiki> &HFFFCFCFC|#FCFCFC}} +{{OutputStart}}{{text|COLOR 1 <nowiki>=</nowiki> &HFF0000A8|#0000A8}} +{{text|COLOR 2 <nowiki>=</nowiki> &HFF00A800|#00A800}} +{{text|COLOR 3 <nowiki>=</nowiki> &HFF00A8A8|#00A8A8}} +{{text|COLOR 4 <nowiki>=</nowiki> &HFFA80000|#A80000}} +{{text|COLOR 5 <nowiki>=</nowiki> &HFFA800A8|#A800A8}} +{{text|COLOR 6 <nowiki>=</nowiki> &HFFA85400|#A85400}} +{{text|COLOR 7 <nowiki>=</nowiki> &HFFA8A8A8|#A8A8A8}} +{{text|COLOR 8 <nowiki>=</nowiki> &HFF545454|#545454}} +{{text|COLOR 9 <nowiki>=</nowiki> &HFF5454FC|#5454FC}} +{{text|COLOR 10 <nowiki>=</nowiki> &HFF54FC54|#54FC54}} +{{text|COLOR 11 <nowiki>=</nowiki> &HFF54FCFC|#54FCFC}} +{{text|COLOR 12 <nowiki>=</nowiki> &HFFFC5454|#FC5454}} +{{text|COLOR 13 <nowiki>=</nowiki> &HFFFC54FC|#FC54FC}} +{{text|COLOR 14 <nowiki>=</nowiki> &HFFFCFC54|#FCFC54}} +{{text|COLOR 15 <nowiki>=</nowiki> &HFFFCFCFC|#FCFCFC}} {{OutputEnd}} :''Note:'' This procedure also shows how the returns from [[_RGB]] and [[_RGB32]] differ in a non-32 bit screen mode. @@ -72,21 +86,50 @@ The [[_RGB32]] function returns the 32-bit ''RGBA'' color value with specified r {{Cl|COLOR}} {{Cl|_RGB32}}(255, 255, 255), 0 'White on NO BACKGROUND {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 10 - {{Cl|PRINT}} "This is just a whole bunch of happy nothing! Happy World!!" + {{Cl|PRINT}} "This is just a whole bunch of happy nothing! Happy World!!" {{Cl|NEXT}} {{Cl|PRINT}}: {{Cl|PRINT}}: {{Cl|PRINT}}: {{Cl|COLOR}} 0, {{Cl|_RGB32}}(0, 0, 0) 'And here, we're going with NO {{Cl|COLOR}} text, with a BLACK background. 'Notice how this doesn't change the color on the screen at all, where the text is, but does toss a black background to it. -{{Cl|LOCATE}} , 15: {{Cl|PRINT}} "NOTICE HOW OUR 0 {{Cl|COLOR}} WORKS?" +{{Cl|LOCATE}} , 15: {{Cl|PRINT}} "NOTICE HOW OUR 0 {{Cl|COLOR}} WORKS?" {{Cl|PRINT}} -{{Cl|LOCATE}} , 15: {{Cl|PRINT}} "NEAT, HUH?" +{{Cl|LOCATE}} , 15: {{Cl|PRINT}} "NEAT, HUH?" {{Cl|SLEEP}} SYSTEM '' '' {{CodeEnd}}{{small|Code by Steve McNeill}} +''Example 3:'' Comparing the output of the new _RGB32 syntaxes (starting with version 1.3) and their equivalents in previous versions. +{{CodeStart}} +{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(400, 400, 32) + +{{Cl|COLOR}} {{Cl|_RGB32}}(255, 255, 255) +{{Cl|PRINT}} "White" +{{Cl|COLOR}} {{Cl|_RGB32}}(255) +{{Cl|PRINT}} "White, too, but with less typing" +{{Cl|PRINT}} + +{{Cl|COLOR}} {{Cl|_RGB32}}(80, 80, 80) +{{Cl|PRINT}} "Dark gray" +{{Cl|COLOR}} {{Cl|_RGB32}}(80) +{{Cl|PRINT}} "Same gray, but with less typing" +{{Cl|PRINT}} + +{{Cl|COLOR}} {{Cl|_RGBA32}}(255, 255, 255, 120) +{{Cl|PRINT}} "White with alpha of 120 (out of 255)" +{{Cl|COLOR}} {{Cl|_RGB32}}(255, 120) +{{Cl|PRINT}} "White with alpha of 120 - but with less typing" +{{Cl|PRINT}} + +{{Cl|COLOR}} {{Cl|_RGBA32}}(255, 0, 255, 110) +{{Cl|PRINT}} "Magenta, 110 alpha" +{{Cl|COLOR}} {{Cl|_RGB32}}(255, 0, 255, 110) +{{Cl|PRINT}} "Magenta too, 110 alpha - but with less typing" +{{CodeEnd}} + + {{PageSeeAlso}} * [[_RGBA32]], [[_RGB]], [[_RGBA]] * [[_RED32]], [[_GREEN32]], [[_BLUE32]] @@ -96,4 +139,4 @@ SYSTEM '' '' * [http://www.w3schools.com/html/html_colornames.asp Hexadecimal Color Values] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RGBA.txt b/internal/help/_RGBA.txt index 1bb33595d..7936bec52 100644 --- a/internal/help/_RGBA.txt +++ b/internal/help/_RGBA.txt @@ -25,14 +25,14 @@ The [[_RGBA]] function returns the closest palette index (legacy SCREEN modes) O {{CodeStart}} '' '' scrn& = {{Cl|_NEWIMAGE}}(400, 400, 32) {{Cl|SCREEN (statement)|SCREEN}} scrn& -fnt& = {{Cl|_LOADFONT}}("C:\WINDOWS\FONTS\ARIAL.TTF", 26) +fnt& = {{Cl|_LOADFONT}}("C:\WINDOWS\FONTS\ARIAL.TTF", 26) {{Cl|_FONT}} fnt& X% = 20 Y% = 20 {{Cl|COLOR}} {{Cl|_RGB}}(255, 255, 255), {{Cl|_RGB}}(0, 0, 0) 'Foreground set to WHITE background to BLACK -{{Cl|_PRINTSTRING}} (X%, Y%), "Hello World" +{{Cl|_PRINTSTRING}} (X%, Y%), "Hello World" {{Cl|COLOR}} {{Cl|_RGB}}(255, 0, 0), {{Cl|_RGBA}}(0, 0, 0, 0) 'Foreground set to RED background to TRANSPARENT BLACK -{{Cl|_PRINTSTRING}} (X% + 2, Y% + 2), "Hello World" +{{Cl|_PRINTSTRING}} (X% + 2, Y% + 2), "Hello World" {{Cl|END}} '' '' {{CodeEnd}} {{small|Code by Unseen Machine}} @@ -49,4 +49,4 @@ Y% = 20 * [http://www.w3schools.com/html/html_colornames.asp Hexadecimal Color Values] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_RGBA32.txt b/internal/help/_RGBA32.txt index 4a53232dd..c56030b01 100644 --- a/internal/help/_RGBA32.txt +++ b/internal/help/_RGBA32.txt @@ -8,13 +8,13 @@ The [[_RGBA32]] function returns the 32-bit ''RGBA'' color value with the specif {{PageDescription}} * The value returned is a 32-bit [[_UNSIGNED]] [[LONG]] color value. -* '''Return variable types must be [[LONG]] or resulting color may lose the [[_BLUE]] value.''' +* '''Return variable types must be [[_UNSIGNED]] [[LONG]] or resulting color may lose the [[_BLUE]] value.''' * {{Parameter|red&}} specifies the red component intensity from 0 to 255. * {{Parameter|green&}} specifies the green component intensity from 0 to 255. * {{Parameter|blue&}} specifies the blue component intensity from 0 to 255. * {{Parameter|alpha&}} specifies the [[_ALPHA|''alpha'']] component transparency value from 0 (fully transparent) to 255 (opaque). * Alpha or intensity values outside of the valid range of 0 to 255 are clipped. -* Returns [[LONG]] 32-bit hexadecimal values from '''&H00{{text|00|red}}{{text|00|green}}{{text|00|blue}}''' to '''&HFF{{text|FF|red}}{{text|FF|green}}{{text|FF|blue}}''' with varying [[_ALPHA]] transparency. +* Returns [[LONG]] 32-bit hexadecimal values from '''&H00000000''' to '''&HFFFFFFFF''' with varying [[_ALPHA]] transparency. * When [[LONG]] values are [[PUT]] to file, the ARGB values become BGRA. Use [[LEFT$]]([[MKL$]]({{Parameter|color32value~&}}), 3) to place 3 colors. * '''NOTE: Default 32-bit backgrounds are clear black or [[_RGBA]](0, 0, 0, 0). Use [[CLS]] to make the black opaque.''' @@ -24,7 +24,7 @@ The [[_RGBA32]] function returns the 32-bit ''RGBA'' color value with the specif {{CodeStart}} '' '' {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(600, 400, 32) -img& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'from http://www.qb64.net/qb64_trans.png (or use any 24/32 bit image) +img& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'from http://www.qb64.org/images/qb64bee.png (or use any 24/32 bit image) 'Turn off auto display {{Cl|_DISPLAY}} @@ -56,4 +56,4 @@ img& = {{Cl|_LOADIMAGE}}("qb64_trans.png") 'from http://www.qb64. * [http://www.w3schools.com/html/html_colornames.asp Hexadecimal Color Values] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_ROUND.txt b/internal/help/_ROUND.txt index 49661ecea..7b897d7a0 100644 --- a/internal/help/_ROUND.txt +++ b/internal/help/_ROUND.txt @@ -35,4 +35,4 @@ The [[_ROUND]] function rounds to the closest even [[INTEGER]], [[LONG]] or [[_I * [[FIX]], [[CLNG]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENCLICK.txt b/internal/help/_SCREENCLICK.txt index e2351f6a5..675c5842c 100644 --- a/internal/help/_SCREENCLICK.txt +++ b/internal/help/_SCREENCLICK.txt @@ -20,4 +20,4 @@ The [[_SCREENCLICK]] statement simulates clicking on a pixel coordinate on the d * [[_DESKTOPWIDTH]], [[_DESKTOPHEIGHT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENEXISTS.txt b/internal/help/_SCREENEXISTS.txt index 6f672e264..4e8e2beb5 100644 --- a/internal/help/_SCREENEXISTS.txt +++ b/internal/help/_SCREENEXISTS.txt @@ -13,11 +13,11 @@ The [[_SCREENEXISTS]] function returns true (-1) once a screen has been created. {{PageExamples}} -''Example:'' The loop waits until the screen exists to add the title. +''Example:'' The loop busy-waits until the screen exists to add the title. {{CodeStart}} '' '' {{Cl|SCREEN}} 12 {{Cl|DO}}: {{Cl|LOOP}} {{Cl|UNTIL}} _{{Cl|SCREENEXISTS}} -{{Cl|_TITLE}} "My Title" +{{Cl|_TITLE}} "My Title" {{CodeEnd}} @@ -28,4 +28,4 @@ The [[_SCREENEXISTS]] function returns true (-1) once a screen has been created. * [[$RESIZE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENHIDE.txt b/internal/help/_SCREENHIDE.txt index 446e87622..bab203f7c 100644 --- a/internal/help/_SCREENHIDE.txt +++ b/internal/help/_SCREENHIDE.txt @@ -18,4 +18,4 @@ The '''_SCREENHIDE''' statement can be used to hide the main program window in a * [[_SCREENICON]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENICON.txt b/internal/help/_SCREENICON.txt index 066c704e0..0758d4a34 100644 --- a/internal/help/_SCREENICON.txt +++ b/internal/help/_SCREENICON.txt @@ -10,8 +10,8 @@ The [[_SCREENICON]] statement can be used to minimize the main program window to * Use [[_SCREENICON]] to minimize the main program window to the taskbar. -==Availability== -* '''Version 1.000 and up'''. +{{PageAvailability}} +* Version 1.000 and up. {{PageSeeAlso}} @@ -20,4 +20,4 @@ The [[_SCREENICON]] statement can be used to minimize the main program window to * [[_SCREENICON (function)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENICON_(function).txt b/internal/help/_SCREENICON_(function).txt index 7d8298539..ab1b6d6c7 100644 --- a/internal/help/_SCREENICON_(function).txt +++ b/internal/help/_SCREENICON_(function).txt @@ -17,4 +17,4 @@ The [[_SCREENICON (function)|_SCREENICON]] function returns true (-1) or false ( * [[_SCREENSHOW]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENIMAGE.txt b/internal/help/_SCREENIMAGE.txt index 999d4eb9d..a753de182 100644 --- a/internal/help/_SCREENIMAGE.txt +++ b/internal/help/_SCREENIMAGE.txt @@ -47,4 +47,4 @@ The [[_SCREENIMAGE]] function stores the current desktop image or a portion of i * [[Hardware images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENMOVE.txt b/internal/help/_SCREENMOVE.txt index 6382c7ac8..4ce60dcdf 100644 --- a/internal/help/_SCREENMOVE.txt +++ b/internal/help/_SCREENMOVE.txt @@ -6,7 +6,7 @@ The [[_SCREENMOVE]] statement positions the program window on the desktop using : [[_SCREENMOVE]] {{{Parameter|column&}}, {{Parameter|row&}}|_MIDDLE} -{{Parameters}} +{{PageParameters}} * Positions the program window on the desktop using the {{Parameter|column&}} and {{Parameter|row&}} pixel coordinates for the upper left corner. * '''_MIDDLE''' can be used instead to automatically center the program window on the desktop, in any screen resolution. @@ -16,7 +16,7 @@ The [[_SCREENMOVE]] statement positions the program window on the desktop using * Use [[_DESKTOPWIDTH]] and [[_DESKTOPHEIGHT]] to find the current desktop resolution to place the program's window. * On dual monitors a negative {{Parameter|column&}} position or a value greater than the main screen width can be used to position a window in another monitor. * '''A small delay may be necessary when a program first starts up to properly orient the screen on the desktop properly.''' See [[_SCREENEXISTS]]. -* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword not supported in Linux or MAC versions]]''' +* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword not supported in Linux versions]]''' {{PageExamples}} @@ -40,7 +40,7 @@ scrnwidth& = {{Cl|_WIDTH}}: scrnheight& = {{Cl|_HEIGHT}} 'get the dimen wide& = {{Cl|_DESKTOPWIDTH}} high& = {{Cl|_DESKTOPHEIGHT}} -{{Cl|PRINT}} wide&; "X"; high& +{{Cl|PRINT}} wide&; "X"; high& {{Cl|_DELAY}} 4 {{Cl|_SCREENMOVE}} wide& + 200, 200 'positive value for right monitor 2 @@ -48,13 +48,13 @@ high& = {{Cl|_DESKTOPHEIGHT}} img2& = {{Cl|_SCREENIMAGE}} wide2& = {{Cl|_WIDTH (function)|_WIDTH}}(img2&) high2& = {{Cl|_HEIGHT}}(img2&) -{{Cl|PRINT}} wide2&; "X"; high2& +{{Cl|PRINT}} wide2&; "X"; high2& {{Cl|_DELAY}} 4 {{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} 'moves program back to main monitor 1 '' '' {{CodeEnd}} : ''Notes:'' Change the [[_SCREENMOVE]] column to negative for a left monitor. -<center>'''[[_FULLSCREEN]] works in the primary monitor and may push all running programs to a monitor on the right.'''</center> +<center>'''[[_FULLSCREEN]] works in the primary monitor and may push all running programs to a monitor on the right.'''</center> {{PageSeeAlso}} @@ -66,4 +66,4 @@ high2& = {{Cl|_HEIGHT}}(img2&) -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENPRINT.txt b/internal/help/_SCREENPRINT.txt index 75fbe6de0..6772d439f 100644 --- a/internal/help/_SCREENPRINT.txt +++ b/internal/help/_SCREENPRINT.txt @@ -34,8 +34,8 @@ The [[_SCREENPRINT]] statement simulates typing text into a Windows focused prog {{CodeStart}} '' '' {{Cl|DEFLNG}} A-Z {{Cl|SCREEN (statement)|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 32) -{{Cl|PRINT}} "OPENing and MAXIMIZING Notepad in 5 seconds..."; : {{Cl|_DELAY}} 5 -{{Cl|SHELL}} {{Cl|_DONTWAIT}} "START /MAX NotePad.exe" 'opens Notepad file "untitled.txt" +{{Cl|PRINT}} "OPENing and MAXIMIZING Notepad in 5 seconds..."; : {{Cl|_DELAY}} 5 +{{Cl|SHELL}} {{Cl|_DONTWAIT}} "START /MAX NotePad.exe" 'opens Notepad file "untitled.txt" 'detect notepad open and maximized 'condition: 80% or more of the screen is white {{Cl|DO}} 'read the desktop screen image for maximized window @@ -48,27 +48,27 @@ The [[_SCREENPRINT]] statement simulates typing text into a Windows focused prog {{Cl|IF}} c = {{Cl|_RGB32}}(255, 255, 255) {{Cl|THEN}} z = z + 1 {{Cl|NEXT}} {{Cl|NEXT}} - {{Cl|IF}} z / ({{Cl|_HEIGHT}}(s) * _{{Cl|WIDTH}}(s)) > 0.8 {{Cl|THEN}} {{Cl|EXIT DO}} 'when 80% of screen is white + {{Cl|IF}} z / ({{Cl|_HEIGHT}}(s) * _{{Cl|WIDTH}}(s)) > 0.8 {{Cl|THEN}} {{Cl|EXIT DO}} 'when 80% of screen is white {{Cl|_FREEIMAGE}} s 'free desktop image {{Cl|_LIMIT}} 1 'scans 1 loop per second -{{Cl|PRINT}} "."; +{{Cl|PRINT}} "."; {{Cl|LOOP}} {{Cl|PRINT}} -{{Cl|PRINT}} "NOTEPAD detected as OPEN and MAXIMIZED" +{{Cl|PRINT}} "NOTEPAD detected as OPEN and MAXIMIZED" -{{Cl|_SCREENPRINT}} "HELLO WORLD" +{{Cl|_SCREENPRINT}} "HELLO WORLD" {{Cl|SLEEP}} 2 {{Cl|_SCREENPRINT}} {{Cl|CHR$}}(8) + {{Cl|CHR$}}(8) + {{Cl|CHR$}}(8) + {{Cl|CHR$}}(8) + {{Cl|CHR$}}(8) 'backspace 5 characters {{Cl|SLEEP}} 3 -{{Cl|_SCREENPRINT}} "QB64!" +{{Cl|_SCREENPRINT}} "QB64!" {{Cl|SLEEP}} 2 {{Cl|_SCREENPRINT}} {{Cl|CHR$}}(1) 'CTRL + A select all {{Cl|SLEEP}} 2 {{Cl|_SCREENPRINT}} {{Cl|CHR$}}(3) 'CTRL + C copy to clipboard {{Cl|SLEEP}} 2 {{Cl|PRINT}} {{Cl|_CLIPBOARD$}} -{{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "QB64 ROCKS!" +{{Cl|_CLIPBOARD$ (statement)|_CLIPBOARD$}} = "QB64 ROCKS!" {{Cl|SLEEP}} 2 {{Cl|_SCREENPRINT}} {{Cl|CHR$}}(22) 'CTRL + V paste from clipboard {{Cl|END}} '' '' @@ -83,4 +83,4 @@ The [[_SCREENPRINT]] statement simulates typing text into a Windows focused prog * [[ASCII]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENSHOW.txt b/internal/help/_SCREENSHOW.txt index 04a6227e4..38e32efe6 100644 --- a/internal/help/_SCREENSHOW.txt +++ b/internal/help/_SCREENSHOW.txt @@ -15,4 +15,4 @@ The [[_SCREENSHOW]] statement can be used to display the main program window in * [[_SCREENHIDE]], [[_CONSOLE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENX.txt b/internal/help/_SCREENX.txt index 3cc2f15c4..a5655b1d7 100644 --- a/internal/help/_SCREENX.txt +++ b/internal/help/_SCREENX.txt @@ -9,22 +9,23 @@ The [[_SCREENX]] function returns the current column pixel coordinate of the pro {{PageDescription}} * Function returns the current program window's upper left corner column position on the desktop. * Use [[_DESKTOPWIDTH]] and [[_DESKTOPHEIGHT]] to find the current Windows desktop resolution to adjust the position with [[_SCREENMOVE]]. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword not Supported in Linux or MAC versions]] {{PageExamples}} ''Example:'' Clicks and opens program window header menu: {{CodeStart}}{{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} {{Cl|_SCREENCLICK}} {{Cl|_SCREENX}} + 10, {{Cl|_SCREENY}} + 10 -{{Cl|PRINT}} "Hello window!" +{{Cl|PRINT}} "Hello window!" {{CodeEnd}} {{PageSeeAlso}} +* [[_SCREENY]] * [[_SCREENIMAGE]] * [[_SCREENCLICK]] * [[_SCREENPRINT]] * [[_SCREENMOVE]] -* [[_SCREENY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCREENY.txt b/internal/help/_SCREENY.txt index 767527055..89ad9218a 100644 --- a/internal/help/_SCREENY.txt +++ b/internal/help/_SCREENY.txt @@ -9,22 +9,23 @@ The [[_SCREENY]] function returns the current row pixel coordinate of the progra {{PageDescription}} * Function returns the current program window's upper left corner row position on the desktop. * Use [[_DESKTOPWIDTH]] and [[_DESKTOPHEIGHT]] to find the current user's Windows desktop resolution to adjust the position with [[_SCREENMOVE]]. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword not Supported in Linux or MAC versions]] {{PageExamples}} ''Example:'' Clicks and opens program window header menu: {{CodeStart}}{{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} {{Cl|_SCREENCLICK}} {{Cl|_SCREENX}} + 10, {{Cl|_SCREENY}} + 10 -{{Cl|PRINT}} "Hello window!" '' '' +{{Cl|PRINT}} "Hello window!" '' '' {{CodeEnd}} {{PageSeeAlso}} +* [[_SCREENX]] * [[_SCREENIMAGE]] * [[_SCREENCLICK]] * [[_SCREENPRINT]] * [[_SCREENMOVE]] -* [[_SCREENX]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SCROLLLOCK.txt b/internal/help/_SCROLLLOCK.txt new file mode 100644 index 000000000..f553c1df2 --- /dev/null +++ b/internal/help/_SCROLLLOCK.txt @@ -0,0 +1,19 @@ +{{DISPLAYTITLE: _SCROLLLOCK}} +The [[_SCROLLLOCK]] statement sets the state of the Scroll Lock key. + + +{{PageSyntax}} +: [[_SCROLLLOCK]] {ON|OFF|_TOGGLE} + + +{{PageAvailability}} +* Version 1.4 and up. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageSeeAlso}} +* [[_CAPSLOCK (function)]], [[_NUMLOCK (function)]], [[_SCROLLLOCK (function)]] +* [[_CAPSLOCK]] (statement), [[_NUMLOCK]] (statement) + + +{{PageNavigation}} diff --git a/internal/help/_SCROLLLOCK_(function).txt b/internal/help/_SCROLLLOCK_(function).txt new file mode 100644 index 000000000..4723d1c32 --- /dev/null +++ b/internal/help/_SCROLLLOCK_(function).txt @@ -0,0 +1,19 @@ +{{DISPLAYTITLE: _SCROLLLOCK (function)}} +The [[_SCROLLLOCK (function)| _SCROLLLOCK]] function returns the current state of the Scroll Lock key as on (-1) or off (0). + + +{{PageSyntax}} +: {{Parameter|keyStatus%%}} = [[_SCROLLLOCK (function)| _SCROLLLOCK]] + + +{{PageAvailability}} +* Version 1.4 and up. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageSeeAlso}} +* [[_CAPSLOCK (function)]], [[_NUMLOCK (function)]] +* [[_CAPSLOCK]] (statement), [[_NUMLOCK]] (statement), [[_SCROLLLOCK]] (statement) + + +{{PageNavigation}} diff --git a/internal/help/_SETALPHA.txt b/internal/help/_SETALPHA.txt index 01ffadf3d..83413ea4e 100644 --- a/internal/help/_SETALPHA.txt +++ b/internal/help/_SETALPHA.txt @@ -6,7 +6,7 @@ The [[_SETALPHA]] statement sets the alpha channel transparency level of some or : [[_SETALPHA]] {{Parameter|alpha&}}[, {{Parameter|color1&}}][ [[TO]] {{Parameter|colour2&}}] [, {{Parameter|imageHandle&}}] -{{Parameters}} +{{PageParameters}} * {{Parameter|alpha&}} is the new alpha level to set, ranging from 0 (transparent) to 255 (opaque). * {{Parameter|color1&}} designates the 32-bit [[LONG]] color value or range of color values {{Parameter|color1&}} TO {{Parameter|colour2&}} to set the transparency. * If no color value or range of colors is given, the entire image's alpha is changed, including any [[_CLEARCOLOR]] settings. @@ -31,7 +31,7 @@ main = {{Cl|_NEWIMAGE}}(640, 480, 32) {{Cl|SCREEN}} main {{Cl|_SCREENMOVE}} {{Cl|_SCREENMOVE|_MIDDLE}} -Image1& = {{Cl|_LOADIMAGE}}("qb64_trans.png") '<<< PNG file with white background to hide +Image1& = {{Cl|_LOADIMAGE}}("qb64_trans.png") '<<< PNG file with white background to hide {{Cl|_SOURCE}} Image1& clr~& = {{Cl|POINT}}(0, 0) 'find background color of image {{Cl|_CLEARCOLOR}} clr~&, Image1& 'set background color as transparent @@ -48,11 +48,11 @@ DO {{Cl|IF...THEN|IF}} a& = 255 {{Cl|THEN}} d = -d {{Cl|_SETALPHA}} a&, 0 {{Cl|TO}} topclr~&, Image1& 'affects all colors below bright white {{Cl|_PUTIMAGE}} (0, 342), Image1& - {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Alpha: "; a& + {{Cl|LOCATE}} 1, 1: {{Cl|PRINT}} "Alpha: "; a& {{Cl|_DISPLAY}} {{Cl|LOOP}} {{Cl|UNTIL}} a& = 0 '' '' {{CodeEnd}} -: ''Explanation:'' The [[POINT]] value minus [[_RGBA]](1, 1, 1, 0) subtracts a small amount from the bright white color value so that the top [[_SETALPHA]] color range will not affect the [[_CLEARCOLOR]] transparency of the bright white PNG background. [http://www.qb64.net/qb64_trans.png qb64_trans.png]. +: ''Explanation:'' The [[POINT]] value minus [[_RGBA]](1, 1, 1, 0) subtracts a small amount from the bright white color value so that the top [[_SETALPHA]] color range will not affect the [[_CLEARCOLOR]] transparency of the bright white PNG background. {{PageSeeAlso}} @@ -64,4 +64,4 @@ DO * [[COLOR]], [[Images]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SETBIT.txt b/internal/help/_SETBIT.txt new file mode 100644 index 000000000..1ec976572 --- /dev/null +++ b/internal/help/_SETBIT.txt @@ -0,0 +1,43 @@ +{{DISPLAYTITLE:_SETBIT}} +The [[_SETBIT]] function is used to set a specified bit of a numerical value to 1 (on state). + + +{{PageSyntax}} +:{{Parameter|result}} = [[_SETBIT]]({{Parameter|numericalVariable}}, {{Parameter|numericalValue}}) + + +{{PageParameters}} +* {{Parameter|numericalVariable}} is the variable to set the bit of and can be of the following types: [[_BYTE]], [[INTEGER]], [[LONG]], or [[_INTEGER64]]. +* Integer values can be signed or [[_UNSIGNED]]. +* {{Parameter|numericalValue}} the number of the bit to be set. + + +{{PageDescription}} +* Can be used to manually manipulate individual bits of an integer value by setting them to 1 (on state). +* Setting a bit that is already set to 1 will have no effect. +* Bits start at 0 (so a [[_BYTE]] has bits 0 to 7, [[INTEGER]] 0 to 15, and so on) + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example 1:'' +{{CodeStart}}A~%% = 0 '{{Cl|_UNSIGNED}} {{Cl|_BYTE}} +{{Cl|PRINT}} A~%% +A~%% = {{Cl|_SETBIT}}(A~%%,6) 'set the seventh bit of A~%% +{{Cl|PRINT}} A~%% +{{CodeEnd}} +{{OutputStart}} + 0 + 64 +{{OutputEnd}} + + + +{{PageSeeAlso}} +* [[_SHL]], [[_SHR]], [[INTEGER]], [[LONG]] +* [[_READBIT]], [[_BYTE]], [[_INTEGER64]] +* [[_RESETBIT]], [[_TOGGLEBIT]] + +{{PageNavigation}} diff --git a/internal/help/_SHELLHIDE.txt b/internal/help/_SHELLHIDE.txt index 5b8c84159..90c8967ca 100644 --- a/internal/help/_SHELLHIDE.txt +++ b/internal/help/_SHELLHIDE.txt @@ -1,24 +1,24 @@ {{DISPLAYTITLE:_SHELLHIDE}} -The [[_SHELLHIDE]] function hides the console window and returns any [[INTEGER]] code sent by [[END]] or [[SYSTEM]] when a program exits. +The [[_SHELLHIDE]] function hides the console window and returns any [[INTEGER]] code sent when a program exits. {{PageSyntax}} : {{Parameter|returnCode%}} = [[_SHELLHIDE]]({{Parameter|externalCommand$}}) -{{Parameters}} -* The literal or variable [[STRING]] {{Parameter|externalCommand$}} parameter can be any external [[DOS|command line]] or call to another program. +{{PageParameters}} +* The literal or variable [[STRING]] {{Parameter|externalCommand$}} parameter can be any external command or call to another program. {{PageDescription}} -* QB64 can return codes sent by program modules when a specified code is added after [[END]] or [[SYSTEM]]. -* The code can be used to verify that a previous SHELL command was executed. +* A QB64 program can return codes specified after [[END]] or [[SYSTEM]] calls. +* The {{Parameter|returnCode%}} is usually 0 when the external program ends with no errors. {{PageExamples}} ''Example:'' Shelling to another QB64 program will return the exit code when one is set in the program that is run. {{CodeStart}} '' '' -returncode% = {{Cl|_SHELLHIDE}}("DesktopSize") 'replace call with your program EXE +returncode% = {{Cl|_SHELLHIDE}}("DesktopSize") 'replace call with your program EXE {{Cl|PRINT}} returncode% @@ -34,4 +34,4 @@ returncode% = {{Cl|_SHELLHIDE}}("DesktopSize") 'replace call with your * [[SYSTEM]], [[END]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SHL.txt b/internal/help/_SHL.txt new file mode 100644 index 000000000..22817309d --- /dev/null +++ b/internal/help/_SHL.txt @@ -0,0 +1,67 @@ +{{DISPLAYTITLE:_SHL}} +The [[_SHL]] function is used to shift the bits of a numerical value to the left. + + +{{PageSyntax}} +:{{Parameter|result}} = [[_SHL]]({{Parameter|numericalVariable}}, {{Parameter|numericalValue}}) + + +{{PageParameters}} +* {{Parameter|numericalVariable}} is the variable to shift the bits of and can be of the following types: [[INTEGER]], [[LONG]],[[_INTEGER64]], or [[_BYTE]]. +* Integer values can be signed or [[_UNSIGNED]]. +* {{Parameter|numericalValue}} is the number of places to shift the bits. +* While 0 is a valid value it will have no affect on the variable being shifted. + + +{{PageDescription}} +* Allows for multiplication of a value by 2 faster than normal multiplication (see example 2 below). +* Bits that reach the end of a variable's bit count are dropped (when using a variable of the same type - otherwise they will carry over). +* The type of variable used to store the results should match the type of the variable being shifted. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +''Example 1:'' +{{CodeStart}}A~%% = 1 'set right most bit of an{{Cl|_UNSIGNED}} {{Cl|_BYTE}} +{{Cl|PRINT}} A~%% +{{Cl|PRINT}} {{Cl|_SHL}}(A~%%,7) +B~%% = {{Cl|_SHL}}(A~%%,8) 'shift the bit off the left 'edge' +{{Cl|PRINT}} B~%% +{{CodeEnd}} +{{OutputStart}} + 1 + 128 + 0 +{{OutputEnd}} + + +''Example 2:'' +{{CodeStart}} +A~%% = 1 +{{Cl|FOR}} I%% = 0 {{Cl|TO}} 8 + {{Cl|PRINT}} {{Cl|_SHL}}(A~%%, I%%) +{{Cl|NEXT}} I%% +{{CodeEnd}} +{{OutputStart}} + 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128 + 256 +{{OutputEnd}} +* Note: When directly [[PRINT]]ing to screen, the result is calculated internally using a larger variable type so the left most bit is carried to the next value. +** To avoid this store the result in a variable of the same type before printing. + +{{PageSeeAlso}} +* [[_SHR]], [[INTEGER]], [[LONG]] +* [[_BYTE]], [[_INTEGER64]] + + +{{PageNavigation}} diff --git a/internal/help/_SHR.txt b/internal/help/_SHR.txt new file mode 100644 index 000000000..f5faecd93 --- /dev/null +++ b/internal/help/_SHR.txt @@ -0,0 +1,64 @@ +{{DISPLAYTITLE:_SHR}} +The [[_SHR]] function is used to shift the bits of a numerical value to the right. + + +{{PageSyntax}} +:{{Parameter|result}} = [[_SHR]]({{Parameter|numericalVariable}}, {{Parameter|numericalValue}}) + + +{{PageParameters}} +* {{Parameter|numericalVariable}} is the variable to shift the bits of and can be of the following types: [[INTEGER]], [[LONG]], [[_INTEGER64]], or [[_BYTE]]. +* Integer values can be signed or [[_UNSIGNED]]. +* {{Parameter|numericalValue}} the number of places to shift the bits. +* While 0 is a valid value it will have no affect on the variable being shifted. + + +{{PageDescription}} +* Allows for division of a value by 2 faster than normal division (see example 2 below). +* Bits that reach the end of a variables bit count are dropped. +* The type of variable used to store the results should match the type of the variable being shifted. +* NOTE: When dealing with SIGNED variables, shifting the bits right will leave the sign bit set. This is due to how C++ deals with bit shifting under the hood. + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +''Example 1:'' +{{CodeStart}}A~%% = 128 'set left most bit of an{{Cl|_UNSIGNED}} {{Cl|_BYTE}} +{{Cl|PRINT}} A~%% +{{Cl|PRINT}} {{Cl|_SHR}}(A~%%,7) +{{Cl|PRINT}} {{Cl|_SHR}}(A~%%,8) 'shift the bit off the right 'edge' +{{CodeEnd}} +{{OutputStart}} + 128 + 1 + 0 +{{OutputEnd}} + + +''Example 2:'' +{{CodeStart}} +A~%% = 128 +{{Cl|FOR}} I%% = 0 {{Cl|TO}} 8 + {{Cl|PRINT}} {{Cl|_SHR}}(A~%%, I%%) +{{Cl|NEXT}} I%% +{{CodeEnd}} +{{OutputStart}} + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 + 0 +{{OutputEnd}} + +{{PageSeeAlso}} +* [[_SHL]], [[INTEGER]], [[LONG]] +* [[_BYTE]], [[_INTEGER64]] + + +{{PageNavigation}} diff --git a/internal/help/_SNDBAL.txt b/internal/help/_SNDBAL.txt index b98b7ae1b..bb452085a 100644 --- a/internal/help/_SNDBAL.txt +++ b/internal/help/_SNDBAL.txt @@ -6,7 +6,7 @@ The [[_SNDBAL]] statement attempts to set the balance or 3D position of a sound. : [[_SNDBAL]] {{Parameter|handle&}}[, {{Parameter|x!}}][, {{Parameter|y!}}][, {{Parameter|z!}}][, {{Parameter|channel&}}]] -{{Parameters}} +{{PageParameters}} * ''handle&'' is a valid sound handle created by the [[_SNDOPEN]] function. * {{Parameter|x!}} distance values go from left (negative) to right (positive). * {{Parameter|y!}} distance values go from below (negative) to above (positive). @@ -20,23 +20,23 @@ The [[_SNDBAL]] statement attempts to set the balance or 3D position of a sound. *By setting the x! value to -1 or 1 it plays the sound at full volume from the appropriate speaker. *Sounds at a distance of 1 or -1 are played at full volume. Sounds further than a distance of 1000 cannot be heard. *The volume decreases linearly (at a constant gradient) over distance. Half volume = 500. -* An "'''Illegal Function Call'''" error can occur if another sound is using the primary or same channel position. -* Opened sound files must have the [[_SNDOPEN|"VOL"]] capability to use this statement in versions '''before build 20170811/60.''' +* An "'''Illegal Function Call'''" error can occur if another sound is using the primary or same channel position. +* Opened sound files must have the [[_SNDOPEN|"VOL"]] capability to use this statement in versions '''before build 20170811/60.''' {{PageExamples}} ''Example 1:'' {{CodeStart}} '' '' -h& = {{Cl|_SNDOPEN}}("LOL.wav", "SYNC,VOL") +h& = {{Cl|_SNDOPEN}}("LOL.wav", "SYNC,VOL") {{Cl|_SNDBAL}} h&, 1 {{Cl|_SNDPLAY}} h& '' '' {{CodeEnd}} -''Example:'' Loading a sound after '''build 20170811/60''' - no need to specify "sound capabilities" in [[_SNDOPEN]]. +''Example:'' Loading a sound after '''build 20170811/60''' - no need to specify "sound capabilities" in [[_SNDOPEN]]. {{CodeStart}} -s& = {{Cl|_SNDOPEN}}("song.ogg") -{{Cl|PRINT}} "{{Cl|READ}}Y"; s& +s& = {{Cl|_SNDOPEN}}("song.ogg") +{{Cl|PRINT}} "{{Cl|READ}}Y"; s& {{Cl|_SNDPLAY}} s& {{Cl|_SNDLOOP}} s& @@ -46,50 +46,50 @@ xright = 1 DO k$ = {{Cl|INKEY$}} {{Cl|SELECT CASE}} k$ - {{Cl|CASE}} "f" + {{Cl|CASE}} "f" xleft = xleft - 0.1 {{Cl|_SNDBAL}} s&, xleft, , , 1 - {{Cl|CASE}} "g" + {{Cl|CASE}} "g" xleft = xleft + 0.1 {{Cl|_SNDBAL}} s&, xleft, , , 1 - {{Cl|CASE}} "h" + {{Cl|CASE}} "h" xright = xright - 0.1 {{Cl|_SNDBAL}} s&, xright, , , 2 - {{Cl|CASE}} "j" + {{Cl|CASE}} "j" xright = xright + 0.1 {{Cl|_SNDBAL}} s&, xright, , , 2 - {{Cl|CASE}} "n" + {{Cl|CASE}} "n" volume = volume - 0.1 {{Cl|_SNDVOL}} s&, volume - {{Cl|CASE}} "m" + {{Cl|CASE}} "m" volume = volume + 0.1 {{Cl|_SNDVOL}} s&, volume - {{Cl|CASE}} "p" + {{Cl|CASE}} "p" {{Cl|_SNDPAUSE}} s& - {{Cl|CASE}} " " + {{Cl|CASE}} " " {{Cl|_SNDPLAY}} s& - {{Cl|CASE}} "i" + {{Cl|CASE}} "i" {{Cl|PRINT}} {{Cl|_SNDPLAYING}}(s&) {{Cl|PRINT}} {{Cl|_SNDPAUSED}}(s&) {{Cl|SLEEP}} - {{Cl|CASE}} "b" + {{Cl|CASE}} "b" {{Cl|_SNDSETPOS}} s&, 110 - {{Cl|CASE}} "l" + {{Cl|CASE}} "l" {{Cl|_SNDLIMIT}} s&, 10 - {{Cl|PRINT}} "LIM" + {{Cl|PRINT}} "LIM" {{Cl|SLEEP}} - {{Cl|CASE}} "k" + {{Cl|CASE}} "k" {{Cl|_SNDSTOP}} s& - {{Cl|CASE}} "c" + {{Cl|CASE}} "c" {{Cl|_SNDCLOSE}} s& {{Cl|SLEEP}} - s2& = {{Cl|_SNDOPEN}}("song.ogg") - {{Cl|CASE}} "d" + s2& = {{Cl|_SNDOPEN}}("song.ogg") + {{Cl|CASE}} "d" s2& = {{Cl|_SNDCOPY}}(s&) {{Cl|_SNDPLAY}} s2& {{Cl|END SELECT}} {{Cl|LOCATE}} 1, 1 - {{Cl|PRINT}} xleft, xright, volume, {{Cl|_SNDGETPOS}}(s&); " " + {{Cl|PRINT}} xleft, xright, volume, {{Cl|_SNDGETPOS}}(s&); " " LOOP {{CodeEnd}}{{small|Code by Johny B}} @@ -98,4 +98,4 @@ LOOP *[[_SNDOPEN]], [[_SNDVOL]], [[_SNDLIMIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDCLOSE.txt b/internal/help/_SNDCLOSE.txt index ca5c3b5d1..147e58ced 100644 --- a/internal/help/_SNDCLOSE.txt +++ b/internal/help/_SNDCLOSE.txt @@ -16,4 +16,4 @@ The [[_SNDCLOSE]] statement frees and unloads an open sound using a [[_SNDOPEN]] *[[_SNDSTOP]], [[_SNDPAUSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDCOPY.txt b/internal/help/_SNDCOPY.txt index ec3e8ef25..32d9afe3f 100644 --- a/internal/help/_SNDCOPY.txt +++ b/internal/help/_SNDCOPY.txt @@ -10,7 +10,6 @@ The [[_SNDCOPY]] function copies a sound to a new handle so that two or more of * Returns a new handle to the a copy in memory of the sound data referred to by the source handle. * No changes to the source handle (such as a volume change) are inherited. * The sound data referred to by the handle and its copies are not freed until all of them are closed. -* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"SYNC" capability]] to use this function. {{PageSeeAlso}} @@ -18,4 +17,4 @@ The [[_SNDCOPY]] function copies a sound to a new handle so that two or more of * [[_SNDOPEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDGETPOS.txt b/internal/help/_SNDGETPOS.txt index 8761f0caa..ed5e039d8 100644 --- a/internal/help/_SNDGETPOS.txt +++ b/internal/help/_SNDGETPOS.txt @@ -11,17 +11,17 @@ The [[_SNDGETPOS]] function returns the current playing position in seconds usin *If a sound isn't playing, it returns 0. *If a sound is paused, it returns the paused position. *For a looping sound, the value returned continues to increment and does not reset to 0 when the sound loops. -* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"SETPOS" capability]] to use this function. +* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"SETPOS" capability]] to use this function. {{PageExamples}} ''Example:'' To check the current playing position in an MP3 file, use [[_SNDPLAY]] with [[_SNDGETPOS]] printed in a loop: {{CodeStart}} '' '' -SoundFile& = {{Cl|_SNDOPEN}}("YourSoundFile.mp3") '<<< your MP3 sound file here! +SoundFile& = {{Cl|_SNDOPEN}}("YourSoundFile.mp3") '<<< your MP3 sound file here! {{Cl|_SNDSETPOS}} SoundFile&, 5.5 'set to play sound 5 1/2 seconds into music {{Cl|_SNDPLAY}} SoundFile& 'play sound Do: {{Cl|_LIMIT}} 60 - LOCATE 5, 2: PRINT "Current play position> "; {{Cl|_SNDGETPOS}}(SoundFile&) + LOCATE 5, 2: PRINT "Current play position> "; {{Cl|_SNDGETPOS}}(SoundFile&) LOOP UNTIL {{Cl|_KEYDOWN}}(27) OR {{Cl|NOT}} {{Cl|_SNDPLAYING}}(SoundFile&) 'ESC or end of sound exit {{CodeEnd}} @@ -31,4 +31,4 @@ LOOP UNTIL {{Cl|_KEYDOWN}}(27) OR {{Cl|NOT}} {{Cl|_SNDPLAYING}}(SoundFile&) * [[_SNDOPEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDLEN.txt b/internal/help/_SNDLEN.txt index 76594c9e5..1d7ee3c53 100644 --- a/internal/help/_SNDLEN.txt +++ b/internal/help/_SNDLEN.txt @@ -8,11 +8,11 @@ The [[_SNDLEN]] function returns the length in seconds of a loaded sound using a {{PageDescription}} * Returns the length of a sound in seconds. -* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"LEN" capability]] to use this function. +* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"LEN" capability]] to use this function. {{PageSeeAlso}} * [[_SNDCOPY]], [[_SNDLIMIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDLIMIT.txt b/internal/help/_SNDLIMIT.txt index 559cbc4a1..7e90df98e 100644 --- a/internal/help/_SNDLIMIT.txt +++ b/internal/help/_SNDLIMIT.txt @@ -6,7 +6,7 @@ The [[_SNDLIMIT]] statement stops playing a sound after it has been playing for : [[_SNDLIMIT]] {{Parameter|handle&}}, {{Parameter|numberOfSeconds!}} -{{Parameters}} +{{PageParameters}} * The {{Parameter|handle&}} variable name is created using the [[_SNDOPEN]] function from a loaded sound file. * {{Parameter|numberOfSeconds!}} is a [[SINGLE]] value of seconds that the sound will play. @@ -27,4 +27,4 @@ The [[_SNDLIMIT]] statement stops playing a sound after it has been playing for * [[_SNDOPEN]], [[_SNDLEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDLOOP.txt b/internal/help/_SNDLOOP.txt index e38b13e30..a1df18a9f 100644 --- a/internal/help/_SNDLOOP.txt +++ b/internal/help/_SNDLOOP.txt @@ -13,12 +13,12 @@ The [[_SNDLOOP]] statement is like [[_SNDPLAY]] but the sound is looped. Uses a {{PageExamples}} ''Example:'' Loading a sound or music file and playing it in a loop until a key is pressed. {{CodeStart}} '' '' -bg = {{Cl|_SNDOPEN}}("back.ogg") '<<<<<<<<<< change to your sound file name +bg = {{Cl|_SNDOPEN}}("back.ogg") '<<<<<<<<<< change to your sound file name {{Cl|_SNDLOOP}} bg DO {{Cl|_LIMIT}} 10 'keep CPU resources used low -{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'key press program exit +{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> "" 'key press program exit {{Cl|_SNDSTOP}} bg {{Cl|_SNDCLOSE}} bg '' '' {{CodeEnd}} @@ -28,4 +28,4 @@ DO * [[_SNDOPEN]], [[_SNDSTOP]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDOPEN.txt b/internal/help/_SNDOPEN.txt index 30b9db171..c9618876b 100644 --- a/internal/help/_SNDOPEN.txt +++ b/internal/help/_SNDOPEN.txt @@ -5,68 +5,31 @@ The [[_SNDOPEN]] function loads a sound file into memory and returns a [[LONG]] {{PageSyntax}} : {{Parameter|soundHandle&}} = [[_SNDOPEN]]({{Parameter|fileName$}}) -===Syntax prior to build 20170811/60=== -: {{Parameter|soundHandle&}} = [[_SNDOPEN]]({{Parameter|fileName$}}[, "[VOL][,][SYNC][,][LEN][,][PAUSE][,][SETPOS]"]) - {{PageDescription}} * Returns a [[LONG]] {{Parameter|soundHandle&}} value to the sound file in memory. '''A zero value means the sound could not be loaded.''' * The literal or variable [[STRING]] sound {{Parameter|fileName$}} can be '''WAV, OGG or MP3''' file types. -** Older versions of QB64 may support ''AIFF, RIFF, VOC, MOD and MIDI''. * '''Always check the handle value returned is greater than zero before attempting to play the sound.''' +** Make sure the variable is set to 0 before using _SNDOPEN. * The handle can be used by most of the _SND sound playing functions and statements in QB64 except [[_SNDPLAYFILE]] which plays a sound file directly from the disk and does not use a handle value. * Handles can be closed with [[_SNDCLOSE]] when the sound is no longer necessary. * If a WAV sound file won't play, try it using the Windows [[Windows_Libraries#Play_WAV_Sounds|Play WAV sounds library]] to check it or convert the sound file to OGG. - - -===Older versions=== -* The second parameter ("capabilities") is a string of parameters separated by commas, according to the table below. It is not case sensitive. -* Each capability can only be specified once and must be valid for that file or it won't play. Capabilities can be listed in any order. -{{TextStart}} '''QB64 versions prior to 1.000''' support the following sound file formats ('''Bold is a guaranteed capability'''): - - WAV = "'''VOL,SYNC,LEN''',PAUSE" [http://www.rarewares.org/ogg-oggdropxpd.php Free WAV to OGG GUI converter] - OGG = "VOL,SYNC,LEN,PAUSE" [http://www.rarewares.org/ogg-oggenc.php Free WAV to OGG converter] - AIF = "VOL,SYNC,LEN,PAUSE" - RIF = "VOL,SYNC,LEN,PAUSE" - VOC = "VOL,SYNC,LEN,PAUSE" - MID = "'''VOL'''" - MOD = "VOL,PAUSE" - MP3 = "'''VOL''',PAUSE,SETPOS" [http://www.freemp3wmaconverter.com/index.html Free WMA, MP3 and OGG converter] - - ''Note:'' {{Cb|_SNDBAL}} only affects MP3 volume. Sound will reside in main channel. -{{TextEnd}} - -* The required sound file capabilities can make a difference as to whether a sound file can be played or not and how it can be used. - -:'''Only one sound can exist on the primary channel, and it must be closed before playing another non-SYNC sound. -<center>See [[_SNDCOPY]] and [[_SNDPLAYCOPY]]</center> -{{TextStart}} '''Capability Descriptions''' - - "'''VOL'''" can change the volume or balance of the sound using {{Cb|_SNDVOL}} and {{Cb|_SNDBAL}}. - "'''LEN'''" can get the length of the sound using the {{Cb|_SNDLEN}} function. - "'''PAUSE'''" can pause the sound using {{Cb|_SNDPAUSE}} and the {{Cb|_SNDPAUSED}} function can check it. - "'''SETPOS'''" can change the position the sound is (or will be) playing from. See {{Cb|_SNDSETPOS}}. - "'''SYNC'''" can load the sound onto a unique channel, to be played simultaneously with others. - - '''When SYNC is not specified, the sound is loaded onto the primary channel.''' -{{TextEnd}} - -*An '''Illegal Function Call''' error message means the capabilities$ string was invalid or two non-'''SYNC''' sounds are using the same channel. +* The raw audio data can be accessed with [[_MEMSOUND]]. {{PageExamples}} ''Snippet 1:'' Loading a sound file to use in the program later. Only load it once and use the handle any time you want. {{CodeStart}} -h& = {{Cl|_SNDOPEN}}("dog.wav") +h& = {{Cl|_SNDOPEN}}("dog.wav") IF h& = 0 THEN BEEP ELSE {{Cl|_SNDPLAY}} h& 'check for valid handle before using! {{CodeEnd}} ''Snippet 2:'' Playing a sound from 2 different speakers based on program results. {{CodeStart}} '' '' -Laff& = {{Cl|_SNDOPEN}}("KONGlaff.ogg") 'load sound file and get LONG handle value +Laff& = {{Cl|_SNDOPEN}}("KONGlaff.ogg") 'load sound file and get LONG handle value {{Cl|IF}} LaffX! < -1 {{Cl|THEN}} LaffX! = -1 'set full volume to left speaker -{{Cl|IF}} LaffX! > 1 {{Cl|THEN}} LaffX! = 1 'set full volume to right speaker +{{Cl|IF}} LaffX! > 1 {{Cl|THEN}} LaffX! = 1 'set full volume to right speaker {{Cl|_SNDBAL}} Laff&, LaffX! 'balance sound to left or right speaker {{Cl|_SNDPLAY}} Laff& 'play sound '' '' @@ -75,8 +38,8 @@ Laff& = {{Cl|_SNDOPEN}}("KONGlaff.ogg") 'load sound file and get L ''Example:'' Playing a file and controlling playback: {{CodeStart}} -s& = {{Cl|_SNDOPEN}}("song.ogg") -{{Cl|PRINT}} "{{Cl|READ}}Y"; s& +s& = {{Cl|_SNDOPEN}}("song.ogg") +{{Cl|PRINT}} "{{Cl|READ}}Y"; s& {{Cl|_SNDPLAY}} s& {{Cl|_SNDLOOP}} s& @@ -86,50 +49,50 @@ xright = 1 DO k$ = {{Cl|INKEY$}} {{Cl|SELECT CASE}} k$ - {{Cl|CASE}} "f" + {{Cl|CASE}} "f" xleft = xleft - 0.1 {{Cl|_SNDBAL}} s&, xleft, , , 1 - {{Cl|CASE}} "g" + {{Cl|CASE}} "g" xleft = xleft + 0.1 {{Cl|_SNDBAL}} s&, xleft, , , 1 - {{Cl|CASE}} "h" + {{Cl|CASE}} "h" xright = xright - 0.1 {{Cl|_SNDBAL}} s&, xright, , , 2 - {{Cl|CASE}} "j" + {{Cl|CASE}} "j" xright = xright + 0.1 {{Cl|_SNDBAL}} s&, xright, , , 2 - {{Cl|CASE}} "n" + {{Cl|CASE}} "n" volume = volume - 0.1 {{Cl|_SNDVOL}} s&, volume - {{Cl|CASE}} "m" + {{Cl|CASE}} "m" volume = volume + 0.1 {{Cl|_SNDVOL}} s&, volume - {{Cl|CASE}} "p" + {{Cl|CASE}} "p" {{Cl|_SNDPAUSE}} s& - {{Cl|CASE}} " " + {{Cl|CASE}} " " {{Cl|_SNDPLAY}} s& - {{Cl|CASE}} "i" + {{Cl|CASE}} "i" {{Cl|PRINT}} {{Cl|_SNDPLAYING}}(s&) {{Cl|PRINT}} {{Cl|_SNDPAUSED}}(s&) {{Cl|SLEEP}} - {{Cl|CASE}} "b" + {{Cl|CASE}} "b" {{Cl|_SNDSETPOS}} s&, 110 - {{Cl|CASE}} "l" + {{Cl|CASE}} "l" {{Cl|_SNDLIMIT}} s&, 10 - {{Cl|PRINT}} "LIM" + {{Cl|PRINT}} "LIM" {{Cl|SLEEP}} - {{Cl|CASE}} "k" + {{Cl|CASE}} "k" {{Cl|_SNDSTOP}} s& - {{Cl|CASE}} "c" + {{Cl|CASE}} "c" {{Cl|_SNDCLOSE}} s& {{Cl|SLEEP}} - s2& = {{Cl|_SNDOPEN}}("song.ogg") - {{Cl|CASE}} "d" + s2& = {{Cl|_SNDOPEN}}("song.ogg") + {{Cl|CASE}} "d" s2& = {{Cl|_SNDCOPY}}(s&) {{Cl|_SNDPLAY}} s2& {{Cl|END SELECT}} {{Cl|LOCATE}} 1, 1 - {{Cl|PRINT}} xleft, xright, volume, {{Cl|_SNDGETPOS}}(s&); " " + {{Cl|PRINT}} xleft, xright, volume, {{Cl|_SNDGETPOS}}(s&); " " LOOP {{CodeEnd}}{{small|Code by Johny B}} @@ -144,6 +107,7 @@ LOOP * [[_SNDBAL]], [[_SNDLEN]], [[_SNDVOL]] * [[_SNDPLAYFILE]] {{text|(plays a named sound file directly and closes)}} * [[_SNDRAW]], [[_SNDRATE]], [[_SNDRAWLEN]] {{text|(raw sounds without files)}} +* [[_MEMSOUND]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDOPENRAW.txt b/internal/help/_SNDOPENRAW.txt index d738614be..22306d8d1 100644 --- a/internal/help/_SNDOPENRAW.txt +++ b/internal/help/_SNDOPENRAW.txt @@ -33,4 +33,4 @@ b = {{Cl|_SNDOPENRAW}} * [[_SNDCLOSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDPAUSE.txt b/internal/help/_SNDPAUSE.txt index 32286ef9b..fd294f997 100644 --- a/internal/help/_SNDPAUSE.txt +++ b/internal/help/_SNDPAUSE.txt @@ -8,7 +8,7 @@ The [[_SNDPAUSE]] statement pauses a sound using a handle from the [[_SNDOPEN]] {{PageDescription}} * Continue playing by calling [[_SNDPLAY]] {{Parameter|handle&}} -* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"PAUSE" capability]] to use this function. +* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"PAUSE" capability]] to use this function. {{PageSeeAlso}} @@ -16,4 +16,4 @@ The [[_SNDPAUSE]] statement pauses a sound using a handle from the [[_SNDOPEN]] * [[_SNDPAUSED]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDPAUSED.txt b/internal/help/_SNDPAUSED.txt index 8d6d34ab6..0a5a165ed 100644 --- a/internal/help/_SNDPAUSED.txt +++ b/internal/help/_SNDPAUSED.txt @@ -21,4 +21,4 @@ The [[_SNDPAUSED]] function checks if a sound is paused. Uses a handle parameter * [[_SNDSTOP]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDPLAY.txt b/internal/help/_SNDPLAY.txt index 388d41e9d..fc0a58346 100644 --- a/internal/help/_SNDPLAY.txt +++ b/internal/help/_SNDPLAY.txt @@ -21,4 +21,4 @@ The [[_SNDPLAY]] statement plays a sound designated by a file handle created by * [[_SNDOPEN]], [[_SNDPAUSE]], [[_SNDPLAYING]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDPLAYCOPY.txt b/internal/help/_SNDPLAYCOPY.txt index fb5280915..85ba5eae3 100644 --- a/internal/help/_SNDPLAYCOPY.txt +++ b/internal/help/_SNDPLAYCOPY.txt @@ -6,7 +6,7 @@ The [[_SNDPLAYCOPY]] statement copies a sound, plays it, and automatically close : [[_SNDPLAYCOPY]] {{Parameter|handle&}}[, {{Parameter|volume!}}] -{{Parameters}} +{{PageParameters}} * The [[LONG]] {{Parameter|handle&}} value is returned by [[_SNDOPEN]] using a specific sound file. * The {{Parameter|volume!}} parameter can be any [[SINGLE]] value from 0 (no volume) to 1 (full volume). @@ -29,7 +29,7 @@ The [[_SNDPLAYCOPY]] statement copies a sound, plays it, and automatically close ''Example 2:'' Playing a song at random volumes. {{CodeStart}} '' '' -chomp& = _SNDOPEN("chomp.wav") +chomp& = _SNDOPEN("chomp.wav") _SNDPLAYCOPY chomp&, 0.5 + RND * 0.49 '' '' {{CodeEnd}} @@ -41,4 +41,4 @@ _SNDPLAYCOPY chomp&, 0.5 + RND * 0.49 '' '' * [[_SNDPLAYFILE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDPLAYFILE.txt b/internal/help/_SNDPLAYFILE.txt index 037ef1a2f..0ca557bfb 100644 --- a/internal/help/_SNDPLAYFILE.txt +++ b/internal/help/_SNDPLAYFILE.txt @@ -9,7 +9,7 @@ The [[_SNDPLAYFILE]] statement is used to play a sound file without generating a {{PageDescription}} * Supported file formats are '''WAV, OGG and MP3'''. See [[_SNDOPEN]]. * {{Parameter|ignored%}} is an optional parameter , accepted for historical reasons. -** In versions prior to '''build 20170811/60''', {{Parameter|ignored%}} identified if a sound was to be loaded with [[_SNDOPEN|"SYNC" capabilities]], (-1 for true, 0 for false). This is true for all sound files in the latest versions, making this parameter safe to be ignored. +** In versions prior to '''build 20170811/60''', {{Parameter|ignored%}} identified if a sound was to be loaded with [[_SNDOPEN|"SYNC" capabilities]], (-1 for true, 0 for false). This is true for all sound files in the latest versions, making this parameter safe to be ignored. * {{Parameter|volume!}} is a [[SINGLE]] value from 0 (silence) to 1 (full volume). If not used or outside this range, the sound will be played at full volume. * [[_SNDPLAYFILE]] never creates an error. If the sound cannot be played it takes no further action. * The sound is closed automatically after it finishes playing. @@ -19,7 +19,7 @@ The [[_SNDPLAYFILE]] statement is used to play a sound file without generating a {{PageExamples}} ''Example:'' Playing a sound file at half volume. {{CodeStart}} '' '' -{{Cl|_SNDPLAYFILE}} "dog.wav", , .5 '' '' +{{Cl|_SNDPLAYFILE}} "dog.wav", , .5 '' '' {{CodeEnd}} @@ -28,4 +28,4 @@ The [[_SNDPLAYFILE]] statement is used to play a sound file without generating a * [[_SNDPLAYCOPY]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDPLAYING.txt b/internal/help/_SNDPLAYING.txt index 92c058d71..be8ab948f 100644 --- a/internal/help/_SNDPLAYING.txt +++ b/internal/help/_SNDPLAYING.txt @@ -22,4 +22,4 @@ The [[_SNDPLAYING]] function returns whether a sound is being played. Uses a han * [[_SNDPAUSED]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDRATE.txt b/internal/help/_SNDRATE.txt index 44e240f46..2178c28fd 100644 --- a/internal/help/_SNDRATE.txt +++ b/internal/help/_SNDRATE.txt @@ -20,4 +20,4 @@ The [[_SNDRATE]] function returns the sample rate frequency per second of the cu * [[_SNDRAWLEN]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDRAW.txt b/internal/help/_SNDRAW.txt index b1ff5d673..c6ce6ed3f 100644 --- a/internal/help/_SNDRAW.txt +++ b/internal/help/_SNDRAW.txt @@ -6,7 +6,7 @@ The [[_SNDRAW]] statement plays sound wave sample frequencies created by a progr : [[_SNDRAW]] {{Parameter|leftSample}}[, {{Parameter|rightSample}}][, {{Parameter|pipeHandle&}}] -{{Parameters}} +{{PageParameters}} * The {{Parameter|leftSample}} and {{Parameter|rightSample}} value(s) can be any [[SINGLE]] or [[DOUBLE]] literal or variable frequency value from -1.0 to 1.0. * The {{Parameter|pipeHandle&}} parameter refers to the sound pipe opened using [[_SNDOPENRAW]]. @@ -43,8 +43,8 @@ FRate = FREQ / SampleRate' ''Example 2:'' A simple ringing bell tone that tapers off. {{CodeStart}}t = 0 -tmp$ = "Sample = ##.##### Time = ##.#####" -LOCATE 1, 60: PRINT "Rate:"; {{Cl|_SNDRATE}} +tmp$ = "Sample = ##.##### Time = ##.#####" +LOCATE 1, 60: PRINT "Rate:"; {{Cl|_SNDRATE}} DO 'queue some sound DO WHILE {{Cl|_SNDRAWLEN}} < 0.1 'you may wish to adjust this @@ -58,7 +58,7 @@ DO LOCATE 1, 1: PRINT USING tmp$; sample; t LOOP WHILE t < 3.0 'play for 3 seconds -DO WHILE {{Cl|_SNDRAWLEN}} > 0 'Finish any left over queued sound! +DO WHILE {{Cl|_SNDRAWLEN}} > 0 'Finish any left over queued sound! LOOP {{Cl|END}} '' '' {{CodeEnd}} @@ -70,24 +70,24 @@ LOOP {{Cl|DIM}} {{Cl|SHARED}} rate& rate& = {{Cl|_SNDRATE}} DO - {{Cl|PRINT}} "Enter the octave 1 to 8 (0 quits!):"; + {{Cl|PRINT}} "Enter the octave 1 to 8 (0 quits!):"; oct% = {{Cl|VAL}}({{Cl|INPUT$}}(1)): {{Cl|PRINT}} oct% {{Cl|IF...THEN|IF}} oct% = 0 {{Cl|THEN}} {{Cl|EXIT DO}} octave = oct% - 4 '440 is in the 4th octave, 9th note {{Cl|COLOR}} oct% + 1 - {{Cl|PRINT USING}} "Octave: ##"; oct% + {{Cl|PRINT USING}} "Octave: ##"; oct% {{Cl|FOR...NEXT|FOR}} Note = 0 {{Cl|TO}} 11 'notes C to B fq = FreQ(octave, Note, note$) - {{Cl|PRINT USING}} "#####.## \\"; fq, note$ + {{Cl|PRINT USING}} "#####.## \\"; fq, note$ PlaySound fq - {{Cl|IF...THEN|IF}} {{Cl|INKEY$}} > "" {{Cl|THEN}} {{Cl|EXIT DO}} + {{Cl|IF...THEN|IF}} {{Cl|INKEY$}} > "" {{Cl|THEN}} {{Cl|EXIT DO}} {{Cl|NEXT}} {{Cl|LOOP}} {{Cl|END}} {{Cl|FUNCTION}} FreQ (octave, note, note$) FreQ = 440 * 2 ^ (octave + (note + 3) / 12 - 1) '* 12 note octave starts at C (3 notes up) -note$ = {{Cl|MID$}}("C C#D D#E F F#G G#A A#B ", note * 2 + 1, 2) +note$ = {{Cl|MID$}}("C C#D D#E F F#G G#A A#B ", note * 2 + 1, 2) {{Cl|END FUNCTION}} {{Cl|SUB}} PlaySound (frq!) ' plays sine wave fading in and out @@ -111,4 +111,4 @@ SndLoop! = 0 * [[DTMF Phone Demo]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDRAWDONE.txt b/internal/help/_SNDRAWDONE.txt index e99b9b772..2931dc556 100644 --- a/internal/help/_SNDRAWDONE.txt +++ b/internal/help/_SNDRAWDONE.txt @@ -10,8 +10,8 @@ * Use to force playing small buffers of [[_SNDRAW]] data. -==Availability== -* '''Version 1.000 and up''' +{{PageAvailability}} +* Version 1.000 and up. {{PageSeeAlso}} @@ -21,4 +21,4 @@ * [[_SNDRATE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDRAWLEN.txt b/internal/help/_SNDRAWLEN.txt index 6265bd28f..52da43a6f 100644 --- a/internal/help/_SNDRAWLEN.txt +++ b/internal/help/_SNDRAWLEN.txt @@ -23,4 +23,4 @@ The [[_SNDRAWLEN]] function returns the length, in seconds, of a [[_SNDRAW]] sou * [[_SNDRATE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDSETPOS.txt b/internal/help/_SNDSETPOS.txt index 6c3140ea4..fe5d05923 100644 --- a/internal/help/_SNDSETPOS.txt +++ b/internal/help/_SNDSETPOS.txt @@ -10,17 +10,17 @@ The [[_SNDSETPOS]] statement changes the current/starting playing position in se *Changes the current/starting playing position in seconds (a [[SINGLE]] value) of a sound in memory. *If {{Parameter|position!}} is past the length of the sound, playback will be interrupted. *Function cannot be called while a looping sound is being played (see [[_SNDLOOP]]). -* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"SETPOS" capability]] to use this statement. +* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"SETPOS" capability]] to use this statement. {{PageExamples}} ''Example:'' To check the current playing position in an MP3 file, use [[_SNDPLAY]] with [[_SNDGETPOS]] printed in a loop {{CodeStart}} '' '' -SoundFile& = {{Cl|_SNDOPEN}}("YourSoundFile.mp3") '<<< your MP3 sound file here! +SoundFile& = {{Cl|_SNDOPEN}}("YourSoundFile.mp3") '<<< your MP3 sound file here! {{Cl|_SNDSETPOS}} SoundFile&, 5.5 'set to play sound 5 1/2 seconds into music {{Cl|_SNDPLAY}} SoundFile& 'play sound Do: {{Cl|_LIMIT}} 60 - LOCATE 5, 2: PRINT "Current play position> "; {{Cl|_SNDGETPOS}}(SoundFile&) + LOCATE 5, 2: PRINT "Current play position> "; {{Cl|_SNDGETPOS}}(SoundFile&) LOOP UNTIL {{Cl|_KEYDOWN}}(27) OR {{Cl|NOT}} {{Cl|_SNDPLAYING}}(SoundFile&) 'ESC or end of sound exit {{CodeEnd}} @@ -30,4 +30,4 @@ LOOP UNTIL {{Cl|_KEYDOWN}}(27) OR {{Cl|NOT}} {{Cl|_SNDPLAYING}}(SoundFile&) * [[_SNDOPEN]], [[_SNDLIMIT]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDSTOP.txt b/internal/help/_SNDSTOP.txt index 7661dd6b4..81d6855a3 100644 --- a/internal/help/_SNDSTOP.txt +++ b/internal/help/_SNDSTOP.txt @@ -21,4 +21,4 @@ The [[_SNDSTOP]] statement stops a playing or paused sound using a handle from t * [[_SNDPAUSE]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SNDVOL.txt b/internal/help/_SNDVOL.txt index a1b10b3c5..d95629075 100644 --- a/internal/help/_SNDVOL.txt +++ b/internal/help/_SNDVOL.txt @@ -8,12 +8,12 @@ The [[_SNDVOL]] statement sets the volume of a sound loaded in memory using a ha {{PageDescription}} * {{Parameter|volume!}} is a value from 0 (silence) to 1 (full volume). -* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"VOL" capability]] to use this function. +* In versions '''prior to build 20170811/60''', the sound identified by {{Parameter|handle&}} must have been opened using the [[_SNDOPEN|"VOL" capability]] to use this function. {{PageExamples}} {{CodeStart}} '' '' -h& = {{Cl|_SNDOPEN}}("bell.wav") +h& = {{Cl|_SNDOPEN}}("bell.wav") {{Cl|_SNDVOL}} h&, 0.5 {{Cl|_SNDPLAY}} h& '' '' {{CodeEnd}} @@ -23,4 +23,4 @@ h& = {{Cl|_SNDOPEN}}("bell.wav") *[[_SNDOPEN]], [[_SNDBAL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SOURCE.txt b/internal/help/_SOURCE.txt index e499d83b2..6d611c533 100644 --- a/internal/help/_SOURCE.txt +++ b/internal/help/_SOURCE.txt @@ -41,4 +41,4 @@ See the examples in: * [[POINT]], [[GET (graphics statement)]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_SOURCE_(function).txt b/internal/help/_SOURCE_(function).txt index fac43201f..d10a6b571 100644 --- a/internal/help/_SOURCE_(function).txt +++ b/internal/help/_SOURCE_(function).txt @@ -23,4 +23,4 @@ See the examples in: * [[_SOURCE]], [[_DEST]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_STARTDIR$.txt b/internal/help/_STARTDIR$.txt index 307b72d3a..7468d26aa 100644 --- a/internal/help/_STARTDIR$.txt +++ b/internal/help/_STARTDIR$.txt @@ -1,16 +1,20 @@ {{DISPLAYTITLE:_STARTDIR$}} -The [[_STARTDIR$]] function returns the path a user called a QB64 program from. +The [[_STARTDIR$]] function returns the user's working directory when the program was started. {{PageSyntax}} : {{Parameter|callPath$}} = [[_STARTDIR$]] {{PageDescription}} -* Returns a [[STRING]] representing the user's program calling path. +The user's working directory depends on how the program was launched. Note that these are ultimately controlled by the launching environment, so might differ in non-standard setups. +* If the program was run from a graphical file manager, _STARTDIR$ will be the path to the directory of the binary file. +* If launched from the command line, _STARTDIR$ is the shell's current working directory, as manipulated by the 'cd' command. +* If launched via a shortcut on Windows _STARTDIR$ will be the "Start in" property, which defaults to the location of the shortcut's target file. +The value of [[_STARTDIR$]] may differ from [[_CWD$]] even at program start, because QB64 program change their current directory to the binary's location. _STARTDIR$ is the directory inherited from the user's environment, while [[_CWD$]] will start off as the location of the program binary file. Because files are opened relative to [[_CWD$]], this can be useful for programs that expect to open e.g. graphical or sound assets, but problematic for programs that want to interpret paths supplied by the user as relative to the user's current directory. In the latter case, add a 'CHDIR _STARTDIR$' to the top of the program. This will change back to the working directory inherited from the environment. -==Availability== -* '''Version 1.000 and up'''. +{{PageAvailability}} +* Version 1.000 and up. {{PageExamples}} @@ -18,7 +22,7 @@ The [[_STARTDIR$]] function returns the path a user called a QB64 program from. {{CodeStart}} '' '' {{Cl|$CONSOLE}}:ONLY {{Cl|_DEST}} {{Cl|_CONSOLE}} -{{Cl|SHELL}} "cd" +{{Cl|SHELL}} "cd" {{Cl|PRINT}} {{Cl|_CWD$}} {{Cl|PRINT}} {{Cl|_STARTDIR$}} {{Cl|SYSTEM}} @@ -30,4 +34,4 @@ The [[_STARTDIR$]] function returns the path a user called a QB64 program from. * [[SHELL]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_STRCMP.txt b/internal/help/_STRCMP.txt index 324539b21..3846b1d42 100644 --- a/internal/help/_STRCMP.txt +++ b/internal/help/_STRCMP.txt @@ -19,4 +19,4 @@ The [[_STRCMP]] function compares the relationship between two strings, comparin * [[ASCII]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_STRICMP.txt b/internal/help/_STRICMP.txt index edaf9cb9d..5c4bc4082 100644 --- a/internal/help/_STRICMP.txt +++ b/internal/help/_STRICMP.txt @@ -19,4 +19,4 @@ The [[_STRICMP]] function compares the relationship between two strings, ignorin * [[ASCII]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_TITLE$.txt b/internal/help/_TITLE$.txt new file mode 100644 index 000000000..d27eb7853 --- /dev/null +++ b/internal/help/_TITLE$.txt @@ -0,0 +1,22 @@ +{{DISPLAYTITLE:_TITLE$}} +The [[_TITLE$]] function returns the program window's title-bar text as last set by the [[_TITLE]] statement. + + +{{PageSyntax}} +: {{Parameter|currentTitle$}} = [[_TITLE$]] + + +{{PageDescription}} +* The title bar will display "Untitled" if no title has been set and this function will return an empty [[STRING|string]] (""). + + +{{PageAvailability}} +* Build 20170924/68 and up. + + +{{PageSeeAlso}} +* [[_TITLE]] +* [[_CONSOLETITLE]] + + +{{PageNavigation}} diff --git a/internal/help/_TITLE.txt b/internal/help/_TITLE.txt index 8a8e8084c..1f1c2e1d0 100644 --- a/internal/help/_TITLE.txt +++ b/internal/help/_TITLE.txt @@ -1,59 +1,58 @@ {{DISPLAYTITLE:_TITLE}} -The [[_TITLE]] statement provides the program name in the title bar of the program window. +The [[_TITLE]] statement sets the program window's title-bar text. {{PageSyntax}} : [[_TITLE]] {{Parameter|text$}} -{{Parameters}} -* {{Parameter|text$}} can be any literal or variable [[STRING]] or [[ASCII]] character value. +{{PageParameters}} +* {{Parameter|text$}} can be any literal or variable [[STRING]] value. {{PageDescription}} -* The title can be changed anywhere in a program procedure. -* The title bar will say "Untitled" if a title is not set. -* Change the title of the [[$CONSOLE]] windows created using [[_CONSOLETITLE]] -* '''Note: A [[_DELAY|delay]] may be required before the title can be set.''' See [[_SCREENEXISTS]]. +* The title bar will display "Untitled" if a title is not set with this statement. +* The title of created [[$CONSOLE]] windows can be set using [[_CONSOLETITLE]]. +* Note: A [[_DELAY|delay]] may be required before the title can be set. See [[_SCREENEXISTS]]. {{PageExamples}} -''Example 1:'' How to create the window title bar. +''Example 1:'' How to set the program window's title-bar text. {{CodeStart}} '' '' -{{Cl|_TITLE}} "My New Program" '' '' +{{Cl|_TITLE}} "My New Program" '' '' {{CodeEnd}} ''Example 2:'' How to find the currently running program module name and current path using a Windows API Library. {{CodeStart}} '' '' -{{Cl|_TITLE}} "My program" +{{Cl|_TITLE}} "My program" {{Cl|_DELAY}} 5 '5 second delay -{{Cl|_TITLE}} {{Cl|MID$}}(TITLE$, 1, {{Cl|INSTR}}(TITLE$, ".") - 1) +{{Cl|_TITLE}} {{Cl|MID$}}(TITLE$, 1, {{Cl|INSTR}}(TITLE$, ".") - 1) {{Cl|PRINT}} PATH$ {{Cl|FUNCTION}} TITLE$ '=== SHOW CURRENT PROGRAM -{{Cl|SHARED}} PATH$ -{{Cl|DECLARE LIBRARY}} 'Directory Information using KERNEL32 provided by Dav - {{Cl|FUNCTION}} GetModuleFileNameA ({{Cl|BYVAL}} Module {{Cl|AS}} {{Cl|LONG}}, FileName {{Cl|AS}} {{Cl|STRING}}, {{Cl|BYVAL}} nSize {{Cl|AS}} {{Cl|LONG}}) -{{Cl|DECLARE LIBRARY|END DECLARE}} + {{Cl|SHARED}} PATH$ + {{Cl|DECLARE LIBRARY}} 'Directory Information using KERNEL32 provided by Dav + {{Cl|FUNCTION}} GetModuleFileNameA ({{Cl|BYVAL}} Module {{Cl|AS}} {{Cl|LONG}}, FileName {{Cl|AS}} {{Cl|STRING}}, {{Cl|BYVAL}} nSize {{Cl|AS}} {{Cl|LONG}}) + {{Cl|DECLARE LIBRARY|END DECLARE}} -FileName$ = {{Cl|SPACE$}}(256) -Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) -{{Cl|IF...THEN|IF}} Result {{Cl|THEN}} - PATH$ = {{Cl|LEFT$}}(FileName$, Result) - start = 1 - DO - posit = {{Cl|INSTR}}(start, PATH$, "\") - {{Cl|IF...THEN|IF}} posit {{Cl|THEN}} last = posit - start = posit + 1 - {{Cl|LOOP}} {{Cl|UNTIL}} posit = 0 - TITLE$ = {{Cl|MID$}}(PATH$, last + 1) - PATH$ = {{Cl|LEFT$}}(PATH$, last) -{{Cl|ELSE}} TITLE$ = "": PATH$ = "" -{{Cl|END IF}} + FileName$ = {{Cl|SPACE$}}(256) + Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) + {{Cl|IF...THEN|IF}} Result {{Cl|THEN}} + PATH$ = {{Cl|LEFT$}}(FileName$, Result) + start = 1 + {{Cl|DO}} + posit = {{Cl|INSTR}}(start, PATH$, "\") + {{Cl|IF...THEN|IF}} posit {{Cl|THEN}} last = posit + start = posit + 1 + {{Cl|LOOP}} {{Cl|UNTIL}} posit = 0 + TITLE$ = {{Cl|MID$}}(PATH$, last + 1) + PATH$ = {{Cl|LEFT$}}(PATH$, last) + {{Cl|ELSE}} TITLE$ = "": PATH$ = "" + {{Cl|END IF}} {{Cl|END FUNCTION}} '' '' {{CodeEnd}} : ''Note:'' The actual module file name is returned. Not necessarily the Title value. The value returned can be used however. @@ -68,4 +67,4 @@ Result = GetModuleFileNameA(0, FileName$, {{Cl|LEN}}(FileName$)) * [[_SCREENEXISTS]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_TOGGLEBIT.txt b/internal/help/_TOGGLEBIT.txt new file mode 100644 index 000000000..2cee60c6f --- /dev/null +++ b/internal/help/_TOGGLEBIT.txt @@ -0,0 +1,46 @@ +{{DISPLAYTITLE:_TOGLEBIT}} +The [[_TOGGLEBIT]] function is used to toggle a specified bit of a numerical value. + + +{{PageSyntax}} +:{{Parameter|result}} = [[_TOGGLEBIT]]({{Parameter|numericalVariable}}, {{Parameter|numericalValue}}) + + +{{PageParameters}} +* {{Parameter|numericalVariable}} is the variable to toggle the bit of and can be of the following types: [[_BYTE]], [[INTEGER]], [[LONG]], or [[_INTEGER64]]. +* Integer values can be signed or [[_UNSIGNED]]. +* {{Parameter|numericalValue}} the number of the bit to be set. + + +{{PageDescription}} +* Can be used to manually manipulate individual bits of an integer value by toggling their state. +* A bit set to 1 is changed to 0 and a bit set to 0 is changed to 1. +* Bits start at 0 (so a [[_BYTE]] has bits 0 to 7, [[INTEGER]] 0 to 15, and so on) + +{{PageAvailability}} +* Version 1.4 and up. + + +{{PageExamples}} +''Example 1:'' +{{CodeStart}}A~%% = 0 '{{Cl|_UNSIGNED}} {{Cl|_BYTE}} +{{Cl|PRINT}} A~%% +A~%% = {{Cl|_TOGGLEBIT}}(A~%%,4) 'toggle the fourth bit of A~%% +{{Cl|PRINT}} A~%% +A~%% = {{Cl|_TOGGLEBIT}}(A~%%,4) 'toggle the fourth bit of A~%% +{{Cl|PRINT}} A~%% +{{CodeEnd}} +{{OutputStart}} + 0 + 16 + 0 +{{OutputEnd}} + + + +{{PageSeeAlso}} +* [[_SHL]], [[_SHR]], [[INTEGER]], [[LONG]] +* [[_SETBIT]], [[_BYTE]], [[_INTEGER64]] +* [[_RESETBIT]], [[_READBIT]] + +{{PageNavigation}} diff --git a/internal/help/_TOTALDROPPEDFILES.txt b/internal/help/_TOTALDROPPEDFILES.txt new file mode 100644 index 000000000..4e5ae6089 --- /dev/null +++ b/internal/help/_TOTALDROPPEDFILES.txt @@ -0,0 +1,29 @@ +{{DISPLAYTITLE:_TOTALDROPPEDFILES}} +The [[_TOTALDROPPEDFILES]] function returns the number of items (files or folders) dropped in a program's window after [[_ACCEPTFILEDROP]] is enabled. + + +{{PageSyntax}} +: {{Parameter|totalFilesReceived&}} = [[_TOTALDROPPEDFILES]] + + +{{PageDescription}} +* After [[_ACCEPTFILEDROP]] is enabled, [[_TOTALDROPPEDFILES]] will return 0 until the user drops files or folders into the program's window. +* When using [[_DROPPEDFILE]] to read the list sequentially, [[_TOTALDROPPEDFILES]] will be reset to 0 after the last item is retrieved (after [[_DROPPEDFILE]] returns an empty string ""). +* If using [[_DROPPEDFILE]] with an index, you must call [[_FINISHDROP]] after you finish working with the list. +* When using [[_DROPPEDFILE]] to read the list with an index, [[_TOTALDROPPEDFILES]] will '''not''' be reset (and the list of items won't be cleared) until [[_FINISHDROP]] is called. +* '''[[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Keyword Not Supported in Linux or MAC versions]]'''. + + +{{PageAvailability}} +* Version 1.3 and up. + + +{{PageExamples}} +* See example for [[_ACCEPTFILEDROP]] + +{{PageSeeAlso}} +* [[_ACCEPTFILEDROP]], [[_DROPPEDFILE]], [[_FINISHDROP]] +* [[_FILEEXISTS]], [[_DIREXISTS]] + + +{{PageNavigation}} diff --git a/internal/help/_TRIM$.txt b/internal/help/_TRIM$.txt new file mode 100644 index 000000000..6f31a173c --- /dev/null +++ b/internal/help/_TRIM$.txt @@ -0,0 +1,38 @@ +{{DISPLAYTITLE:_TRIM$}} +The [[_TRIM$]] function removes both leading and trailing space characters from a [[STRING]] value. + + +{{PageSyntax}} +:{{Parameter|return$}} = [[_TRIM$]]({{Parameter|text$}}) + + +{{PageDescription}} +* Shorthand to using [[LTRIM$]]([[RTRIM$]]("text")) +* {{Parameter|text$}} is the [[STRING]] value to trim. +* If {{Parameter|text$}} contains no leading or trailing space characters, it is returned unchanged. +* Convert fixed length [[STRING]] values by using a different {{parameter|return$}} variable. + + +{{PageExamples}} +''Example: Demonstrating how _TRIM$(text$) can replace LTRIM$(RTRIM$(text$)): +{{CodeStart}} +text$ = {{Cl|SPACE$}}(10) + "some text" + {{Cl|SPACE$}}(10) +{{Cl|PRINT}} "[" + text$ + "]" '' '' +{{Cl|PRINT}} "[" + {{Cl|RTRIM$}}(text$) + "]" '' '' +{{Cl|PRINT}} "[" + {{Cl|LTRIM$}}(text$) + "]" '' '' +{{Cl|PRINT}} "[" + {{Cl|LTRIM$}}({{Cl|RTRIM$}}(text$)) + "]" '' '' +{{Cl|PRINT}} "[" + {{Cl|_TRIM$}}(text$) + "]" '' '' +{{CodeEnd}} +{{OutputStart}}[ some text ] +[ some text] +[some text ] +[some text] +[some text] +{{OutputEnd}} + + +{{PageSeeAlso}} +* [[RTRIM$]], [[LTRIM$]] + + +{{PageNavigation}} diff --git a/internal/help/_UNSIGNED.txt b/internal/help/_UNSIGNED.txt index f534f2934..7a78a3586 100644 --- a/internal/help/_UNSIGNED.txt +++ b/internal/help/_UNSIGNED.txt @@ -17,7 +17,7 @@ * The unsigned variable type suffix used is the '''tilde (~)''', right before the number's own type suffix: {{Parameter|variableName~&}} -<center>How negative values affect the [[_UNSIGNED]] value returned by a [[_BYTE]] (8 bits). </center> +<center>How negative values affect the [[_UNSIGNED]] value returned by a [[_BYTE]] (8 bits). </center> {{WhiteStart}} 00000001 - unsigned & signed are both 1     01111111 - unsigned & signed are both 127   @@ -50,12 +50,12 @@ i~% = 70000 {{CodeStart}} '' '' {{Cl|DIM}} n {{Cl|AS}} {{Cl|_UNSIGNED}} {{Cl|INTEGER}} {{Cl|DIM}} pn {{Cl|AS}} {{Cl|_UNSIGNED}} {{Cl|INTEGER}} -{{Cl|LOCATE}} 3, 6: {{Cl|PRINT}} "Press Esc to exit loop" +{{Cl|LOCATE}} 3, 6: {{Cl|PRINT}} "Press Esc to exit loop" {{Cl|FOR...NEXT|FOR}} n = 1 {{Cl|TO}} 80000 {{Cl|_LIMIT}} 10000 ' 6.5 second loop {{Cl|LOCATE}} 12, 37: {{Cl|PRINT}} n ' display current value - {{Cl|IF...THEN|IF}} n > 0 {{Cl|THEN}} pn = n ' find highest value - {{Cl|IF...THEN|IF}} n = 0 {{Cl|THEN}} Count = Count + 1: {{Cl|LOCATE}} 14, 37: {{Cl|PRINT}} "Count:"; Count; "Max:"; pn + {{Cl|IF...THEN|IF}} n > 0 {{Cl|THEN}} pn = n ' find highest value + {{Cl|IF...THEN|IF}} n = 0 {{Cl|THEN}} Count = Count + 1: {{Cl|LOCATE}} 14, 37: {{Cl|PRINT}} "Count:"; Count; "Max:"; pn {{Cl|IF...THEN|IF}} {{Cl|INP}}(&H60) = 1 {{Cl|THEN}} {{Cl|EXIT|EXIT FOR}} ' escape key exit {{Cl|NEXT}} n {{Cl|END}} '' '' @@ -78,7 +78,7 @@ i~% = 70000 {{PageSeeAlso}} -* [[DECLARE]], [[SUB]], [[FUNCTION]] +* DECLARE, [[SUB]], [[FUNCTION]] * [[DIM]], [[_DEFINE]] * [[DEFSTR]], [[DEFLNG]], [[DEFINT]], [[DEFSNG]], [[DEFDBL]] * [[INTEGER]], [[LONG]], [[_INTEGER64]] @@ -86,4 +86,4 @@ i~% = 70000 * [[Variable Types]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_WHEEL.txt b/internal/help/_WHEEL.txt index b690190f0..a2081dd36 100644 --- a/internal/help/_WHEEL.txt +++ b/internal/help/_WHEEL.txt @@ -17,13 +17,13 @@ The [[_WHEEL]] function returns the relative position of a specified wheel numbe ''Example 1:'' Reading multiple controller device buttons, axis and wheels. {{CodeStart}} '' '' {{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} {{Cl|_DEVICES}} - {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) + {{Cl|PRINT}} {{Cl|STR$}}(i) + ") " + {{Cl|_DEVICE$}}(i) + " Buttons:"; {{Cl|_LASTBUTTON}}(i); ",Axis:"; {{Cl|_LASTAXIS}}(i); ",Wheel:"; {{Cl|_LASTWHEEL}}(i) {{Cl|NEXT}} {{Cl|DO...LOOP|DO}} d& = {{Cl|_DEVICEINPUT}} {{Cl|IF...THEN|IF}} d& {{Cl|THEN}} ' the device number cannot be zero! - {{Cl|PRINT}} "Found"; d&; + {{Cl|PRINT}} "Found"; d&; {{Cl|FOR...NEXT|FOR}} b = 1 {{Cl|TO}} {{Cl|_LASTBUTTON}}(d&) {{Cl|PRINT}} {{Cl|_BUTTONCHANGE}}(b); {{Cl|_BUTTON}}(b); {{Cl|NEXT}} @@ -46,7 +46,7 @@ The [[_WHEEL]] function returns the relative position of a specified wheel numbe {{CodeStart}} '' '' ignore = {{Cl|_MOUSEMOVEMENTX}} 'dummy call to put mouse into relative movement mode -{{Cl|PRINT}} "Move your mouse and/or your mouse wheel (ESC to exit)" +{{Cl|PRINT}} "Move your mouse and/or your mouse wheel (ESC to exit)" d = {{Cl|_DEVICES}} ' always read number of devices to enable device input DO: {{Cl|_LIMIT}} 30 'main loop @@ -67,4 +67,4 @@ DO: {{Cl|_LIMIT}} 30 'main loop * [[Controller Devices]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_WIDTH_(function).txt b/internal/help/_WIDTH_(function).txt index 1d48bd8a3..f7f6b8763 100644 --- a/internal/help/_WIDTH_(function).txt +++ b/internal/help/_WIDTH_(function).txt @@ -22,7 +22,7 @@ The [[_WIDTH (function)|_WIDTH]] function returns the width of an image handle o s& = {{Cl|_NEWIMAGE}}(800, 600, 256) SCREEN s& - Align 15, 5, s&, "This text is centered on the screen!" + Align 15, 5, s&, "This text is centered on the screen!" SUB Align (Tcolor, Trow, mode&, txt$) center& = {{Cl|_WIDTH (function)|_WIDTH}} (mode&) \ 2 'returns pixels in graphic modes @@ -46,4 +46,4 @@ The [[_WIDTH (function)|_WIDTH]] function returns the width of an image handle o * [[Bitmaps]] -{{PageNavigation}} \ No newline at end of file +{{PageNavigation}} diff --git a/internal/help/_WINDOWHANDLE.txt b/internal/help/_WINDOWHANDLE.txt new file mode 100644 index 000000000..0deb932a9 --- /dev/null +++ b/internal/help/_WINDOWHANDLE.txt @@ -0,0 +1,96 @@ +{{DISPLAYTITLE:_WINDOWHANDLE}} +The [[_WINDOWHANDLE]] function returns the window handle assigned to the current program by the OS. Windows-only. + + +{{PageSyntax}} +: {{Parameter|hwnd%&}} = [[_WINDOWHANDLE]] + + +{{PageDescription}} +* The result is an [[_OFFSET]] number assigned by Windows to your running program. +* Use it to make [[Windows Libraries|API calls]] that require a window handle to be passed. +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in Linux or macOS]]. + + +{{PageAvailability}} +* Build 20170924/68 and up. + + +{{PageExamples}} +''Example:'' Showing the system-default message box in Windows. +{{CodeStart}} '' '' +'Message Box Constant values as defined by Microsoft (MBType) +{{Cl|CONST}} MB_OK& = 0 'OK button only +{{Cl|CONST}} MB_OKCANCEL& = 1 'OK & Cancel +{{Cl|CONST}} MB_ABORTRETRYIGNORE& = 2 'Abort, Retry & Ignore +{{Cl|CONST}} MB_YESNOCANCEL& = 3 'Yes, No & Cancel +{{Cl|CONST}} MB_YESNO& = 4 'Yes & No +{{Cl|CONST}} MB_RETRYCANCEL& = 5 'Retry & Cancel +{{Cl|CONST}} MB_CANCELTRYCONTINUE& = 6 'Cancel, Try Again & Continue +{{Cl|CONST}} MB_ICONSTOP& = 16 'Error stop sign icon +{{Cl|CONST}} MB_ICONQUESTION& = 32 'Question-mark icon +{{Cl|CONST}} MB_ICONEXCLAMATION& = 48 'Exclamation-point icon +{{Cl|CONST}} MB_ICONINFORMATION& = 64 'Letter i in a circle icon +{{Cl|CONST}} MB_DEFBUTTON1& = 0 '1st button default(left) +{{Cl|CONST}} MB_DEFBUTTON2& = 256 '2nd button default +{{Cl|CONST}} MB_DEFBUTTON3& = 512 '3rd button default(right) +{{Cl|CONST}} MB_APPLMODAL& = 0 'Message box applies to application only +{{Cl|CONST}} MB_SYSTEMMODAL& = 4096 'Message box on top of all other windows +{{Cl|CONST}} MB_SETFOCUS& = 65536 'Set message box as focus +{{Cl|CONST}} IDOK& = 1 'OK button pressed +{{Cl|CONST}} IDCANCEL& = 2 'Cancel button pressed +{{Cl|CONST}} IDABORT& = 3 'Abort button pressed +{{Cl|CONST}} IDRETRY& = 4 'Retry button pressed +{{Cl|CONST}} IDIGNORE& = 5 'Ignore button pressed +{{Cl|CONST}} IDYES& = 6 'Yes button pressed +{{Cl|CONST}} IDNO& = 7 'No button pressed +{{Cl|CONST}} IDTRYAGAIN& = 10 'Try again button pressed +{{Cl|CONST}} IDCONTINUE& = 1 'Continue button pressed +'---------------------------------------------------------------------------------------- + +{{Cl|DECLARE LIBRARY|DECLARE DYNAMIC LIBRARY}} "user32" +{{Cl|FUNCTION}} MessageBoxA& ({{Cl|BYVAL}} hwnd {{Cl|AS}} {{Cl|_OFFSET}}, Message {{Cl|AS}} {{Cl|STRING}}, Title {{Cl|AS}} {{Cl|STRING}}, {{Cl|BYVAL}} MBType {{Cl|AS}} {{Cl|_UNSIGNED}} {{Cl|LONG}}) +{{Cl|DECLARE LIBRARY|END DECLARE}} + +DO + msg& = 0: icon& = 0: DB& = 0 + {{Cl|INPUT}} "Enter Message Box type(0 to 6 other Quits): ", BOX& + {{Cl|IF...THEN|IF}} BOX& < 0 {{Cl|OR (boolean)|OR}} BOX& > 6 {{Cl|THEN}} {{Cl|EXIT DO}} + + {{Cl|INPUT}} "Enter Icon&(0=none, 1=stop, 2=?, 3=!, 4=info): ", Icon& + + {{Cl|IF...THEN|IF}} BOX& {{Cl|THEN}} {{Cl|INPUT (file mode)|INPUT}} "Enter Default Button(1st, 2nd or 3rd): ", DB& + {{Cl|IF...THEN|IF}} DB& {{Cl|THEN}} DB& = DB& - 1 'adjust value to 0, 1, or 2 + msg& = MsgBox&("Box Title", "Box text message", BOX&, Icon&, DB&, 4096) 'on top of all windows + + {{Cl|PRINT}} "Button ="; msg& +{{Cl|LOOP}} +{{Cl|END}} + +{{Cl|FUNCTION}} MsgBox& (Title$, Message$, BoxType&, Icon&, DBtn&, Mode&) +{{Cl|SELECT CASE}} Icon& + {{Cl|CASE}} 1: Icon& = MB_ICONSTOP& 'warning X-sign icon + {{Cl|CASE}} 2: Icon& = MB_ICONQUESTION& 'question-mark icon + {{Cl|CASE}} 3: Icon& = MB_ICONEXCLAMATION& 'exclamation-point icon + {{Cl|CASE}} 4: Icon& = MB_ICONINFORMATION& 'lowercase letter i in circle + {{Cl|CASE ELSE}}: Icon& = 0 'no icon +{{Cl|END SELECT}} +{{Cl|IF...THEN|IF}} BoxType& > 0 {{Cl|AND (boolean)|AND}} DBtn& > 0 {{Cl|THEN}} 'set default button as 2nd(256) or 3rd(512) + {{Cl|SELECT CASE}} BoxType& + {{Cl|CASE}} 2, 3, 6 + {{Cl|IF...THEN|IF}} DBtn& = 2 {{Cl|THEN}} Icon& = Icon& + MB_DEFBUTTON3& {{Cl|ELSE}} Icon& = Icon& + MB_DEFBUTTON2& '3 button + {{Cl|CASE ELSE}}: Icon& = Icon& + MB_DEFBUTTON2& '2nd button default + {{Cl|END SELECT}} +{{Cl|END IF}} +Focus& = MB_SetFocus& +MsgBox& = MessageBoxA&({{Cl|_WINDOWHANDLE}}, Message$, Title$, BoxType& + Icon& + Mode& + Focus&) 'focus on button +{{Cl|END FUNCTION}} '' '' +{{CodeEnd}} +:''Explanation:'' Notice how the call to the external dynamic library function MessageBoxA& passes _WINDOWHANDLE to the API and how the message box shown is created as a child of your program's window, not allowing the main window to be manipulated while the message box is open. + +{{PageSeeAlso}} +* [[_WINDOWHASFOCUS]] +* [[Windows Libraries]] + + +{{PageNavigation}} diff --git a/internal/help/_WINDOWHASFOCUS.txt b/internal/help/_WINDOWHASFOCUS.txt new file mode 100644 index 000000000..02401178d --- /dev/null +++ b/internal/help/_WINDOWHASFOCUS.txt @@ -0,0 +1,42 @@ +{{DISPLAYTITLE:_WINDOWHASFOCUS}} +The [[_WINDOWHASFOCUS]] function returns true (-1) if the current program's window has focus. Windows-only. + + +{{PageSyntax}} +: {{Parameter|hasFocus%%}} = [[_WINDOWHASFOCUS]] + + +{{PageDescription}} +* The function returns true (-1) if the current program is the topmost window on the user's desktop and has focus. If the current program is running behind another window, the function returns false (0). +* [[Keywords_currently_not_supported_by_QB64#Keywords_Not_Supported_in_Linux_or_MAC_OSX_versions|Not available in macOS]]. + + +{{PageAvailability}} +* Build 20170924/68 and up. + + +{{PageExamples}} +''Example:'' Detecting if the current program has focus. Windows and Linux-only. +{{CodeStart}} '' '' +DO + {{Cl|IF}} {{Cl|_WINDOWHASFOCUS}} THEN + {{Cl|COLOR}} 15, 6 + {{Cl|CLS}} + {{Cl|PRINT}} "*** Hi there! ***" + {{Cl|ELSE}} + {{Cl|COLOR}} 0, 7 + CLS + PRINT "(ain't nobody looking...)" + {{Cl|END IF}} + {{Cl|_DISPLAY}} + {{Cl|_LIMIT}} 30 +{{Cl|LOOP}} +{{CodeEnd}} +: ''Explanation:'' The program will display ''"*** Hi There! ***"'' while the window is the topmost and is being manipulated by the user. If another window, the taskbar or the desktop are clicked, the program window loses focus and the message ''"(ain't nobody looking...)"'' is displayed. + + +{{PageSeeAlso}} +* [[_SCREENEXISTS]] + + +{{PageNavigation}} diff --git a/internal/help/_glBindTexture.txt b/internal/help/_glBindTexture.txt deleted file mode 100644 index 2bf37f2ce..000000000 --- a/internal/help/_glBindTexture.txt +++ /dev/null @@ -1,57 +0,0 @@ -'''_glBindTexture:''' bind a named texture to a texturing target - - -{{PageSyntax}} - -:: SUB '''_glBindTexture''' (BYVAL target AS _UNSIGNED LONG, BYVAL texture AS _UNSIGNED LONG) -:: void '''_glBindTexture'''(GLenum {{Parameter|target}}, GLuint {{Parameter|texture}}); - - -; target -: Specifies the target to which the texture is bound. Must be either {{KW|_GL_TEXTURE_1D}}, {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_3D}}, or {{KW|_GL_TEXTURE_1D_ARRAY}}, {{KW|_GL_TEXTURE_2D_ARRAY}}, {{KW|_GL_TEXTURE_RECTANGLE}}, {{KW|_GL_TEXTURE_CUBE_MAP}}, {{KW|_GL_TEXTURE_2D_MULTISAMPLE}}, {{KW|_GL_TEXTURE_2D_MULTISAMPLE_ARRAY}}, {{KW|_GL_TEXTURE_BUFFER}}, or {{KW|_GL_TEXTURE_CUBE_MAP_ARRAY}}. -; texture -: Specifies the name of a texture. - - -{{PageDescription}} - -'''_glBindTexture''' lets you create or use a named texture. Calling '''_glBindTexture''' with {{Parameter|target}} set to {{KW|_GL_TEXTURE_1D}}, {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_3D}}, or {{KW|_GL_TEXTURE_1D_ARRAY}}, {{KW|_GL_TEXTURE_2D_ARRAY}}, {{KW|_GL_TEXTURE_RECTANGLE}}, {{KW|_GL_TEXTURE_CUBE_MAP}}, {{KW|_GL_TEXTURE_2D_MULTISAMPLE}} or {{KW|_GL_TEXTURE_2D_MULTISAMPLE_ARRAY}} and {{Parameter|texture}} set to the name of the new texture binds the texture name to the target. When a texture is bound to a target, the previous binding for that target is automatically broken. - -Texture names are unsigned integers. The value zero is reserved to represent the default texture for each texture target. Texture names and the corresponding texture contents are local to the shared object space of the current GL rendering context; two rendering contexts share texture names only if they explicitly enable sharing between contexts through the appropriate GL windows interfaces functions. - -You must use {{KW|_glGenTextures}} to generate a set of new texture names. - -When a texture is first bound, it assumes the specified target: A texture first bound to {{KW|_GL_TEXTURE_1D}} becomes one-dimensional texture, a texture first bound to {{KW|_GL_TEXTURE_2D}} becomes two-dimensional texture, a texture first bound to {{KW|_GL_TEXTURE_3D}} becomes three-dimensional texture, a texture first bound to {{KW|_GL_TEXTURE_1D_ARRAY}} becomes one-dimensional array texture, a texture first bound to {{KW|_GL_TEXTURE_2D_ARRAY}} becomes two-dimensional arary texture, a texture first bound to {{KW|_GL_TEXTURE_RECTANGLE}} becomes rectangle texture, a, texture first bound to {{KW|_GL_TEXTURE_CUBE_MAP}} becomes a cube-mapped texture, a texture first bound to {{KW|_GL_TEXTURE_2D_MULTISAMPLE}} becomes a two-dimensional multisampled texture, and a texture first bound to {{KW|_GL_TEXTURE_2D_MULTISAMPLE_ARRAY}} becomes a two-dimensional multisampled array texture. The state of a one-dimensional texture immediately after it is first bound is equivalent to the state of the default {{KW|_GL_TEXTURE_1D}} at GL initialization, and similarly for the other texture types. - -While a texture is bound, GL operations on the target to which it is bound affect the bound texture, and queries of the target to which it is bound return state from the bound texture. In effect, the texture targets become aliases for the textures currently bound to them, and the texture name zero refers to the default textures that were bound to them at initialization. - -A texture binding created with '''_glBindTexture''' remains active until a different texture is bound to the same target, or until the bound texture is deleted with {{KW|_glDeleteTextures}}. - -Once created, a named texture may be re-bound to its same original target as often as needed. It is usually much faster to use '''_glBindTexture''' to bind an existing named texture to one of the texture targets than it is to reload the texture image using {{KW|_glTexImage1D}}, {{KW|_glTexImage2D}}, {{KW|_glTexImage3D}} or another similar function. - - -{{PageNotes}} - -The {{KW|_GL_TEXTURE_2D_MULTISAMPLE}} and {{KW|_GL_TEXTURE_2D_MULTISAMPLE_ARRAY}} targets are available only if the GL version is 3.2 or higher. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not one of the allowable values. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|target}} is not a name returned from a previous call to {{KW|_glGenTextures}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|texture}} was previously created with a target that doesn't match that of {{Parameter|target}}. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_TEXTURE_BINDING_1D}}, {{KW|_GL_TEXTURE_BINDING_2D}}, {{KW|_GL_TEXTURE_BINDING_3D}}, {{KW|_GL_TEXTURE_BINDING_1D_ARRAY}}, {{KW|_GL_TEXTURE_BINDING_2D_ARRAY}}, {{KW|_GL_TEXTURE_BINDING_RECTANGLE}}, {{KW|_GL_TEXTURE_BINDING_2D_MULTISAMPLE}}, or {{KW|_GL_TEXTURE_BINDING_2D_MULTISAMPLE_ARRAY}}. - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glDeleteTextures}}, {{KW|_glGenTextures}}, {{KW|_glGetTexParameter}}, {{KW|_glIsTexture}}, {{KW|_glTexParameter}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glClear.txt b/internal/help/_glClear.txt deleted file mode 100644 index fe94f9fcd..000000000 --- a/internal/help/_glClear.txt +++ /dev/null @@ -1,56 +0,0 @@ -'''_glClear:''' clear buffers to preset values - - -{{PageSyntax}} - -:: [[SUB]] _glClear ([[BYVAL]] mask AS [[_UNSIGNED]] [[LONG]]) -:: void '''_glClear'''(GLbitfield {{Parameter|mask}}); - - -{{Parameters}} -* ''mask'' that indicate the buffer [[OR]] buffers to be cleared. The three masks are [[_GL_COLOR_BUFFER_BIT]], [[_GL_DEPTH_BUFFER_BIT]], and [[_GL_STENCIL_BUFFER_BIT]]. - - -{{PageDescription}} - -* [[_glClear]] sets the bitplane area of the window to values previously selected by [[_glClearColor]], [[glClearDepth]], and [[_glClearStencil]]. -* Multiple color buffers can be cleared simultaneously by selecting more than one buffer at a time using [[_glDrawBuffer]]. -* The pixel ownership test, the scissor test, dithering, and the buffer writemasks affect the operation of [[_glClear]]. The scissor box bounds the cleared region. Alpha function, blend function, logical operation, stenciling, texture mapping, and depth-buffering are ignored by [[_glClear]]. - -* [[_glClear]] takes a single argument that is the bitwise OR of several values indicating which buffer is to be cleared. The values are as follows: - -::: [[_GL_COLOR_BUFFER_BIT]]: Indicates the buffers currently enabled for color writing. -::: [[_GL_DEPTH_BUFFER_BIT]]: Indicates the depth buffer. -::: [[_GL_STENCIL_BUFFER_BIT]]: Indicates the stencil buffer. - -* The value to which each buffer is cleared depends on the setting of the clear value for that buffer. - - -{{PageNotes}} - -If a buffer is not present, then a '''_glClear''' directed at that buffer has no effect. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if any bit other than the three defined bits is set in {{Parameter|mask}}. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_DEPTH_CLEAR_VALUE}} - -{{KW|_glGet}} with argument {{KW|_GL_COLOR_CLEAR_VALUE}} - -{{KW|_glGet}} with argument {{KW|_GL_STENCIL_CLEAR_VALUE}} - - -{{PageSeeAlso}} -* [[_GL]] -* [[_glClearBuffer]], [[_glClearColor]], [[_glClearDepth]], [[_glClearStencil]] -* [[_glColorMask]], [[_glDepthMask]], [[_glStencilMask]] -* [[_glDrawBuffer]], [[_glDrawBuffers]] -* [[_glScissor]] - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glClearColor.txt b/internal/help/_glClearColor.txt deleted file mode 100644 index 2f062168f..000000000 --- a/internal/help/_glClearColor.txt +++ /dev/null @@ -1,34 +0,0 @@ -'''_glClearColor:''' specify clear values for the color buffers - - -{{PageSyntax}} - -:: SUB '''_glClearColor''' (BYVAL red AS SINGLE, BYVAL green AS SINGLE, BYVAL blue AS SINGLE, BYVAL alpha AS SINGLE) -:: void '''_glClearColor'''(GLfloat {{Parameter|red}}, GLfloat {{Parameter|green}}, GLfloat {{Parameter|blue}}, GLfloat {{Parameter|alpha}}); - - -; red, green, blue, alpha -: Specify the red, green, blue, and alpha values used when the color buffers are cleared. The initial values are all 0. - - -{{PageDescription}} - -'''_glClearColor''' specifies the red, green, blue, and alpha values used by {{KW|_glClear}} to clear the color buffers. - - -{{PageNotes}} - -The type of the {{Parameter|red}}, {{Parameter|green}}, {{Parameter|blue}}, and {{Parameter|alpha}} parameters was changed from GLclampf to GLfloat. This change is transparent to user code. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_COLOR_CLEAR_VALUE}} - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glClear}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glClearDepth.txt b/internal/help/_glClearDepth.txt deleted file mode 100644 index 0501e8d7d..000000000 --- a/internal/help/_glClearDepth.txt +++ /dev/null @@ -1,34 +0,0 @@ -'''_glClearDepth:''' specify the clear value for the depth buffer - - -{{PageSyntax}} - -:: SUB _glClearDepth (BYVAL depth AS DOUBLE) -:: void '''_glClearDepth'''(GLdouble {{Parameter|depth}}); -:: void '''_glClearDepthf'''(GLfloat {{Parameter|depth}}); - -; depth -: Specifies the depth value used when the depth buffer is cleared. The initial value is 1. - - -{{PageDescription}} - -'''_glClearDepth''' specifies the depth value used by {{KW|_glClear}} to clear the depth buffer. Values specified by '''_glClearDepth''' are clamped to the range [0, 1]. - - -{{PageNotes}} - -The type of the {{Parameter|depth}} parameter was changed from GLclampf to GLfloat for '''_glClearDepthf''' and from GLclampd to GLdouble for '''_glClearDepth'''. This change is transparent to user code. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_DEPTH_CLEAR_VALUE}} - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glClear}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glClearStencil.txt b/internal/help/_glClearStencil.txt deleted file mode 100644 index e2efbcaea..000000000 --- a/internal/help/_glClearStencil.txt +++ /dev/null @@ -1,32 +0,0 @@ -'''_glClearStencil:''' specify the clear value for the stencil buffer - - -{{PageSyntax}} - -:: SUB _glClearStencil (BYVAL s AS LONG) -:: void '''_glClearStencil'''(GLint {{Parameter|s}}); - - -; s -: Specifies the index used when the stencil buffer is cleared. The initial value is 0. - - -{{PageDescription}} - -'''_glClearStencil''' specifies the index used by {{KW|_glClear}} to clear the stencil buffer. {{Parameter|s}} is masked with 2&lt;sup&gt;m&lt;/sup&gt; - 1, where m is the number of bits in the stencil buffer. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_STENCIL_CLEAR_VALUE}} - -{{KW|_glGet}} with argument {{KW|_GL_STENCIL_BITS}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glClear}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glColorMask.txt b/internal/help/_glColorMask.txt deleted file mode 100644 index 33ec438d1..000000000 --- a/internal/help/_glColorMask.txt +++ /dev/null @@ -1,40 +0,0 @@ -'''_glColorMask, glColorMaski:''' enable and disable writing of frame buffer color components - - - -{{PageSyntax}} - -:: SUB _glColorMask (BYVAL red AS _UNSIGNED _BYTE, BYVAL green AS _UNSIGNED _BYTE, BYVAL blue AS _UNSIGNED _BYTE, BYVAL alpha AS _UNSIGNED _BYTE) -:: void '''_glColorMask'''(GLboolean {{Parameter|red}}, GLboolean {{Parameter|green}}, GLboolean {{Parameter|blue}}, GLboolean {{Parameter|alpha}}); -:: void '''_glColorMaski'''(GLuint {{Parameter|buf}}, GLboolean {{Parameter|red}}, GLboolean {{Parameter|green}}, GLboolean {{Parameter|blue}}, GLboolean {{Parameter|alpha}}); - -; buf -: For '''_glColorMaski''', specifies the index of the draw buffer whose color mask to set. -; red, green, blue, alpha -: Specify whether red, green, blue, and alpha are to be written into the frame buffer. The initial values are all {{KW|_GL_TRUE}}, indicating that the color components are written. - - -{{PageDescription}} - -'''_glColorMask''' and '''_glColorMaski''' specify whether the individual color components in the frame buffer can or cannot be written. '''_glColorMaski''' sets the mask for a specific draw buffer, whereas '''_glColorMask''' sets the mask for all draw buffers. If {{Parameter|red}} is {{KW|_GL_FALSE}}, for example, no change is made to the red component of any pixel in any of the color buffers, regardless of the drawing operation attempted. - -Changes to individual bits of components cannot be controlled. Rather, changes are either enabled or disabled for entire color components. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|buf}} is greater than {{KW|_GL_MAX_DRAW_BUFFERS}} minus 1. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_COLOR_WRITEMASK}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glClear}}, {{KW|_glClearBuffer}}, {{KW|_glDepthMask}}, {{KW|_glStencilMask}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glCopyTexImage1D.txt b/internal/help/_glCopyTexImage1D.txt deleted file mode 100644 index 707c22a1c..000000000 --- a/internal/help/_glCopyTexImage1D.txt +++ /dev/null @@ -1,77 +0,0 @@ -'''_glCopyTexImage1D:''' copy pixels into a 1D texture image - - -{{PageSyntax}} - -: SUB _glCopyTexImage1D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL internalFormat AS _UNSIGNED LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG, BYVAL border AS LONG) - -: void '''_glCopyTexImage1D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLenum {{Parameter|internalformat}}, GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}, GLint {{Parameter|border}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_1D}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; internalformat -: Specifies the internal format of the texture. Must be one of the following symbolic constants: {{KW|_GL_COMPRESSED_RED}}, {{KW|_GL_COMPRESSED_RG}}, {{KW|_GL_COMPRESSED_RGB}}, {{KW|_GL_COMPRESSED_RGBA}}. {{KW|_GL_COMPRESSED_SRGB}}, {{KW|_GL_COMPRESSED_SRGB_ALPHA}}. {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, {{KW|_GL_DEPTH_COMPONENT32}}, {{KW|_GL_RED}}, {{KW|_GL_RG}}, {{KW|_GL_RGB}}, {{KW|_GL_R3_G3_B2}}, {{KW|_GL_RGB4}}, {{KW|_GL_RGB5}}, {{KW|_GL_RGB8}}, {{KW|_GL_RGB10}}, {{KW|_GL_RGB12}}, {{KW|_GL_RGB16}}, {{KW|_GL_RGBA}}, {{KW|_GL_RGBA2}}, {{KW|_GL_RGBA4}}, {{KW|_GL_RGB5_A1}}, {{KW|_GL_RGBA8}}, {{KW|_GL_RGB10_A2}}, {{KW|_GL_RGBA12}}, {{KW|_GL_RGBA16}}, {{KW|_GL_SRGB}}, {{KW|_GL_SRGB8}}, {{KW|_GL_SRGB_ALPHA}}, or {{KW|_GL_SRGB8_ALPHA8}}. -; x, y -: Specify the window coordinates of the left corner of the row of pixels to be copied. -; width -: Specifies the width of the texture image. The height of the texture image is 1. -; border -: This value must be 0. - - -{{PageDescription}} - -'''_glCopyTexImage1D''' defines a one-dimensional texture image with pixels from the current {{KW|_GL_READ_BUFFER}}. - -The screen-aligned pixel row with left corner at (''x'', ''y'') and with a length of {{Parameter|width}} defines the texture array at the mipmap level specified by {{Parameter|level}}. {{Parameter|internalformat}} specifies the internal format of the texture array. - -The pixels in the row are processed exactly as if {{KW|_glReadPixels}} had been called, but the process stops just before final conversion. At this point all pixel component values are clamped to the range [0, 1] and then converted to the texture's internal format for storage in the texel array. - -Pixel ordering is such that lower ''x'' screen coordinates correspond to lower texture coordinates. - -If any of the pixels within the specified row of the current {{KW|_GL_READ_BUFFER}} are outside the window associated with the current rendering context, then the values obtained for those pixels are undefined. - -'''_glCopyTexImage1D''' defines a one-dimensional texture image with pixels from the current {{KW|_GL_READ_BUFFER}}. - -When {{Parameter|internalformat}} is one of the sRGB types, the GL does not automatically convert the source pixels to the sRGB color space. In this case, the '''_glPixelMap''' function can be used to accomplish the conversion. - - -{{PageNotes}} - -1, 2, 3, and 4 are not accepted values for {{Parameter|internalformat}}. - -An image with 0 width indicates a NULL texture. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not one of the allowable values. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(max), where max is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|internalformat}} is not an allowable value. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} is less than 0 or greater than {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|border}} is not 0. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|internalformat}} is {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32}} and there is no depth buffer. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glBindFramebuffer}}, {{KW|_glCopyTexImage2D}}, {{KW|_glCopyImageSubData}}, {{KW|_glCopyTexSubImage1D}}, {{KW|_glCopyTexSubImage2D}}, {{KW|_glReadBuffer}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glCopyTexImage2D.txt b/internal/help/_glCopyTexImage2D.txt deleted file mode 100644 index 1c994641d..000000000 --- a/internal/help/_glCopyTexImage2D.txt +++ /dev/null @@ -1,76 +0,0 @@ -'''_glCopyTexImage2D:''' copy pixels into a 2D texture image - - -{{PageSyntax}} - -: SUB _glCopyTexImage2D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL internalFormat AS _UNSIGNED LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG, BYVAL height AS LONG, BYVAL border AS LONG) -: void '''_glCopyTexImage2D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLenum {{Parameter|internalformat}}, GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}, GLint {{Parameter|border}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, or {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; internalformat -: Specifies the internal format of the texture. Must be one of the following symbolic constants: {{KW|_GL_COMPRESSED_RED}}, {{KW|_GL_COMPRESSED_RG}}, {{KW|_GL_COMPRESSED_RGB}}, {{KW|_GL_COMPRESSED_RGBA}}. {{KW|_GL_COMPRESSED_SRGB}}, {{KW|_GL_COMPRESSED_SRGB_ALPHA}}. {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, {{KW|_GL_DEPTH_COMPONENT32}}, {{KW|_GL_RED}}, {{KW|_GL_RG}}, {{KW|_GL_RGB}}, {{KW|_GL_R3_G3_B2}}, {{KW|_GL_RGB4}}, {{KW|_GL_RGB5}}, {{KW|_GL_RGB8}}, {{KW|_GL_RGB10}}, {{KW|_GL_RGB12}}, {{KW|_GL_RGB16}}, {{KW|_GL_RGBA}}, {{KW|_GL_RGBA2}}, {{KW|_GL_RGBA4}}, {{KW|_GL_RGB5_A1}}, {{KW|_GL_RGBA8}}, {{KW|_GL_RGB10_A2}}, {{KW|_GL_RGBA12}}, {{KW|_GL_RGBA16}}, {{KW|_GL_SRGB}}, {{KW|_GL_SRGB8}}, {{KW|_GL_SRGB_ALPHA}}, or {{KW|_GL_SRGB8_ALPHA8}}. -; x, y -: Specify the window coordinates of the lower left corner of the rectangular region of pixels to be copied. -; width -: Specifies the width of the texture image. -; height -: Specifies the height of the texture image. -; border -: This value must be 0. - - -{{PageDescription}} - -'''_glCopyTexImage2D''' defines a two-dimensional texture image, or cube-map texture image with pixels from the current {{KW|_GL_READ_BUFFER}}. - -The screen-aligned pixel rectangle with lower left corner at ({{Parameter|x}}, {{Parameter|y}}) and with a width of {{Parameter|width}} and a height of {{Parameter|height}} defines the texture array at the mipmap level specified by {{Parameter|level}}. {{Parameter|internalformat}} specifies the internal format of the texture array. - -The pixels in the rectangle are processed exactly as if {{KW|_glReadPixels}} had been called, but the process stops just before final conversion. At this point all pixel component values are clamped to the range [0, 1] and then converted to the texture's internal format for storage in the texel array. - -Pixel ordering is such that lower x and y screen coordinates correspond to lower s and t texture coordinates. - -If any of the pixels within the specified rectangle of the current {{KW|_GL_READ_BUFFER}} are outside the window associated with the current rendering context, then the values obtained for those pixels are undefined. - -When {{Parameter|internalformat}} is one of the sRGB types, the GL does not automatically convert the source pixels to the sRGB color space. In this case, the '''_glPixelMap''' function can be used to accomplish the conversion. - - -{{PageNotes}} - -1, 2, 3, and 4 are not accepted values for {{Parameter|internalformat}}. - -An image with height or width of 0 indicates a NULL texture. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, or {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(max}, where max is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} is less than 0 or greater than {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|border}} is not 0. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|internalformat}} is not an accepted format. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|internalformat}} is {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32}} and there is no depth buffer. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glBindFramebuffer}}, {{KW|_glCopyTexImage1D}}, {{KW|_glCopyImageSubData}}, {{KW|_glCopyTexSubImage1D}}, {{KW|_glCopyTexSubImage2D}}, {{KW|_glReadBuffer}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glCopyTexSubImage1D.txt b/internal/help/_glCopyTexSubImage1D.txt deleted file mode 100644 index a22ea7f36..000000000 --- a/internal/help/_glCopyTexSubImage1D.txt +++ /dev/null @@ -1,65 +0,0 @@ -'''_glCopyTexSubImage1D:''' copy a one-dimensional texture subimage - - -{{PageSyntax}} - -: SUB _glCopyTexSubImage1D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL xoffset AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG) - -: void '''_glCopyTexSubImage1D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLint {{Parameter|xoffset}}, GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_1D}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; xoffset -: Specifies the texel offset within the texture array. -; x, y -: Specify the window coordinates of the left corner of the row of pixels to be copied. -; width -: Specifies the width of the texture subimage. - - -{{PageDescription}} - -'''_glCopyTexSubImage1D''' replaces a portion of a one-dimensional texture image with pixels from the current {{KW|_GL_READ_BUFFER}} (rather than from main memory, as is the case for {{KW|_glTexSubImage1D}}). - -The screen-aligned pixel row with left corner at ({{Parameter|x}},\ {{Parameter|y}}), and with length {{Parameter|width}} replaces the portion of the texture array with x indices {{Parameter|xoffset}} through ''xoffset + width - 1'', inclusive. The destination in the texture array may not include any texels outside the texture array as it was originally specified. - -The pixels in the row are processed exactly as if {{KW|_glReadPixels}} had been called, but the process stops just before final conversion. At this point, all pixel component values are clamped to the range [0, 1] and then converted to the texture's internal format for storage in the texel array. - -It is not an error to specify a subtexture with zero width, but such a specification has no effect. If any of the pixels within the specified row of the current {{KW|_GL_READ_BUFFER}} are outside the read window associated with the current rendering context, then the values obtained for those pixels are undefined. - -No change is made to the ''internalformat'', ''width'', or ''border'' parameters of the specified texture array or to texel values outside the specified subregion. - - -{{PageNotes}} - -The {{KW|_glPixelStore}} mode affects texture images. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if /{{Parameter|target}} is not {{KW|_GL_TEXTURE_1D}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if the texture array has not been defined by a previous {{KW|_glTexImage1D}} or {{KW|_glCopyTexImage1D}} operation. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if ''level'' is greater than log&lt;sub&gt;2&lt;/sub&gt;(max), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if xoffset &lt; 0 or xoffset + width &gt; w, where w is the {{KW|_GL_TEXTURE_WIDTH}}. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glBindFramebuffer}}, {{KW|_glCopyImageSubData}}, {{KW|_glCopyTexSubImage2D}}, {{KW|_glCopyTexSubImage3D}}, {{KW|_glCopyTexImage1D}}, {{KW|_glReadBuffer}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glCopyTexSubImage2D.txt b/internal/help/_glCopyTexSubImage2D.txt deleted file mode 100644 index 6948297f4..000000000 --- a/internal/help/_glCopyTexSubImage2D.txt +++ /dev/null @@ -1,73 +0,0 @@ -'''_glCopyTexSubImage2D:''' copy a two-dimensional texture subimage - - -{{PageSyntax}} - -: SUB _glCopyTexSubImage2D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL xoffset AS LONG, BYVAL yoffset AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG, BYVAL height AS LONG) - -: void '''_glCopyTexSubImage2D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLint {{Parameter|xoffset}}, GLint {{Parameter|yoffset}}, GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}, or {{KW|_GL_TEXTURE_1D_ARRAY}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; xoffset -: Specifies a texel offset in the x direction within the texture array. -; yoffset -: Specifies a texel offset in the y direction within the texture array. -; x, y -: Specify the window coordinates of the lower left corner of the rectangular region of pixels to be copied. -; width -: Specifies the width of the texture subimage. -; height -: Specifies the height of the texture subimage. - - -{{PageDescription}} - -'''_glCopyTexSubImage2D''' replaces a rectangular portion of a two-dimensional texture image, cube-map texture image or a linear portion of a number of slices of a one-dimensional array texture with pixels from the current {{KW|_GL_READ_BUFFER}} (rather than from main memory, as is the case for {{KW|_glTexSubImage2D}}). - -The screen-aligned pixel rectangle with lower left corner at (''x'', ''y'') and with width {{Parameter|width}} and height {{Parameter|height}} replaces the portion of the texture array with x indices {{Parameter|xoffset}} through ''xoffset + width - 1'', inclusive, and y indices {{Parameter|yoffset}} through ''yoffset + height - 1'', inclusive, at the mipmap level specified by {{Parameter|level}}. - -The pixels in the rectangle are processed exactly as if {{KW|_glReadPixels}} had been called, but the process stops just before final conversion. At this point, all pixel component values are clamped to the range [0, 1] and then converted to the texture's internal format for storage in the texel array. - -The destination rectangle in the texture array may not include any texels outside the texture array as it was originally specified. It is not an error to specify a subtexture with zero width or height, but such a specification has no effect. - -When {{Parameter|target}} is {{KW|_GL_TEXTURE_1D_ARRAY}} then the y coordinate and height are treated as the start slice and number of slices to modify. - -If any of the pixels within the specified rectangle of the current {{KW|_GL_READ_BUFFER}} are outside the read window associated with the current rendering context, then the values obtained for those pixels are undefined. - -No change is made to the ''internalformat'', ''width'', ''height'', or ''border'' parameters of the specified texture array or to texel values outside the specified subregion. - - -{{PageNotes}} - -{{KW|_glPixelStore}} modes affect texture images. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}, or {{KW|_GL_TEXTURE_1D_ARRAY}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if the texture array has not been defined by a previous {{KW|_glTexImage2D}} or {{KW|_glCopyTexImage2D}} operation. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if ''level'' is greater than log&lt;sub&gt;2&lt;/sub&gt;(max), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if xoffset &lt; 0, xoffset + width &gt; w, yoffset &lt; 0, or yoffset + height &gt; h, where w is the {{KW|_GL_TEXTURE_WIDTH}} and h is the {{KW|_GL_TEXTURE_HEIGHT}} of the texture image being modified. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glBindFramebuffer}}, {{KW|_glCopyImageSubData}}, {{KW|_glCopyTexSubImage1D}}, {{KW|_glCopyTexSubImage3D}}, {{KW|_glCopyTexImage2D}}, {{KW|_glReadBuffer}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glCullFace.txt b/internal/help/_glCullFace.txt deleted file mode 100644 index 36e4bdfd7..000000000 --- a/internal/help/_glCullFace.txt +++ /dev/null @@ -1,44 +0,0 @@ -'''_glCullFace:''' specify whether front- or back-facing facets can be culled - - -{{PageSyntax}} - -::SUB '''_glCullFace''' (BYVAL mode AS _UNSIGNED LONG) -:: void '''_glCullFace'''(GLenum {{Parameter|mode}}); - - -; mode -: Specifies whether front- or back-facing facets are candidates for culling. Symbolic constants {{KW|_GL_FRONT}}, {{KW|_GL_BACK}}, and {{KW|_GL_FRONT_AND_BACK}} are accepted. The initial value is {{KW|_GL_BACK}}. - - -{{PageDescription}} - -'''_glCullFace''' specifies whether front- or back-facing facets are culled (as specified by ''mode'') when facet culling is enabled. Facet culling is initially disabled. To enable and disable facet culling, call the {{KW|_glEnable}} and {{KW|_glDisable}} commands with the argument {{KW|_GL_CULL_FACE}}. Facets include triangles, quadrilaterals, polygons, and rectangles. - -{{KW|_glFrontFace}} specifies which of the clockwise and counterclockwise facets are front-facing and back-facing. See {{KW|_glFrontFace}}. - - -{{PageNotes}} - -If {{Parameter|mode}} is {{KW|_GL_FRONT_AND_BACK}}, no facets are drawn, but other primitives such as points and lines are drawn. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|mode}} is not an accepted value. - - -{{PageUseWith}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_CULL_FACE}} - -{{KW|_glGet}} with argument {{KW|_GL_CULL_FACE_MODE}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable|(GL_CULL_FACE)}}, {{KW|_glFrontFace}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDeleteTextures.txt b/internal/help/_glDeleteTextures.txt deleted file mode 100644 index 1564f90a2..000000000 --- a/internal/help/_glDeleteTextures.txt +++ /dev/null @@ -1,40 +0,0 @@ -'''_glDeleteTextures:''' delete named textures - - -{{PageSyntax}} - -: SUB _glDeleteTextures (BYVAL n AS LONG, textures AS _UNSIGNED LONG) - -: void '''_glDeleteTextures'''(GLsizei {{Parameter|n}}, const GLuint * {{Parameter|textures}}); - - -; n -: Specifies the number of textures to be deleted. -; textures -: Specifies an array of textures to be deleted. - - -{{PageDescription}} - -'''_glDeleteTextures''' deletes {{Parameter|n}} textures named by the elements of the array {{Parameter|textures}}. After a texture is deleted, it has no contents or dimensionality, and its name is free for reuse (for example by {{KW|_glGenTextures}}). If a texture that is currently bound is deleted, the binding reverts to 0 (the default texture). - -'''_glDeleteTextures''' silently ignores 0's and names that do not correspond to existing textures. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|n}} is negative. - - -{{PageUseWith}} - -{{KW|_glIsTexture}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindTexture}}, {{KW|_glGenTextures}}, {{KW|_glIsTexture}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDepthFunc.txt b/internal/help/_glDepthFunc.txt deleted file mode 100644 index 0024b684d..000000000 --- a/internal/help/_glDepthFunc.txt +++ /dev/null @@ -1,62 +0,0 @@ -'''_glDepthFunc:''' specify the value used for depth buffer comparisons - - -{{PageSyntax}} - -:: SUB _glDepthFunc (BYVAL func AS _UNSIGNED LONG) -:: void '''_glDepthFunc'''(GLenum {{Parameter|func}}); - - -; func -: Specifies the depth comparison function. Symbolic constants {{KW|_GL_NEVER}}, {{KW|_GL_LESS}}, {{KW|_GL_EQUAL}}, {{KW|_GL_LEQUAL}}, {{KW|_GL_GREATER}}, {{KW|_GL_NOTEQUAL}}, {{KW|_GL_GEQUAL}}, and {{KW|_GL_ALWAYS}} are accepted. The initial value is {{KW|_GL_LESS}}. - - -{{PageDescription}} - -'''_glDepthFunc''' specifies the function used to compare each incoming pixel depth value with the depth value present in the depth buffer. The comparison is performed only if depth testing is enabled. (See {{KW|_glEnable}} and {{KW|_glDisable}} of {{KW|_GL_DEPTH_TEST}}.) - -{{Parameter|func}} specifies the conditions under which the pixel will be drawn. The comparison functions are as follows: - -; {{KW|_GL_NEVER}} -: Never passes. -; {{KW|_GL_LESS}} -: Passes if the incoming depth value is less than the stored depth value. -; {{KW|_GL_EQUAL}} -: Passes if the incoming depth value is equal to the stored depth value. -; {{KW|_GL_LEQUAL}} -: Passes if the incoming depth value is less than or equal to the stored depth value. -; {{KW|_GL_GREATER}} -: Passes if the incoming depth value is greater than the stored depth value. -; {{KW|_GL_NOTEQUAL}} -: Passes if the incoming depth value is not equal to the stored depth value. -; {{KW|_GL_GEQUAL}} -: Passes if the incoming depth value is greater than or equal to the stored depth value. -; {{KW|_GL_ALWAYS}} -: Always passes. -The initial value of {{Parameter|func}} is {{KW|_GL_LESS}}. Initially, depth testing is disabled. If depth testing is disabled or if no depth buffer exists, it is as if the depth test always passes. - - -{{PageNotes}} - -Even if the depth buffer exists and the depth mask is non-zero, the depth buffer is not updated if the depth test is disabled. In order to unconditionally write to the depth buffer, the depth test should be enabled and set to {{KW|_GL_ALWAYS}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|func}} is not an accepted value. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_DEPTH_FUNC}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_DEPTH_TEST}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable|(GL_DEPTH_TEST)}}, {{KW|_glDepthRange}}, {{KW|_glPolygonOffset}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDepthMask.txt b/internal/help/_glDepthMask.txt deleted file mode 100644 index 793efe81f..000000000 --- a/internal/help/_glDepthMask.txt +++ /dev/null @@ -1,35 +0,0 @@ -'''_glDepthMask:''' enable or disable writing into the depth buffer - - -{{PageSyntax}} - -:: SUB _glDepthMask (BYVAL flag AS _UNSIGNED _BYTE) -:: void '''_glDepthMask'''(GLboolean {{Parameter|flag}}); - - -; flag -: Specifies whether the depth buffer is enabled for writing. If {{Parameter|flag}} is {{KW|_GL_FALSE}}, depth buffer writing is disabled. Otherwise, it is enabled. Initially, depth buffer writing is enabled. - - -{{PageDescription}} - -'''_glDepthMask''' specifies whether the depth buffer is enabled for writing. If {{Parameter|flag}} is {{KW|_GL_FALSE}}, depth buffer writing is disabled. Otherwise, it is enabled. Initially, depth buffer writing is enabled. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_DEPTH_WRITEMASK}} - - -{{PageNotes}} - -Even if the depth buffer exists and the depth mask is non-zero, the depth buffer is not updated if the depth test is disabled. In order to unconditionally write to the depth buffer, the depth test should be enabled and set to {{KW|_GL_ALWAYS}} (see {{KW|_glDepthFunc}}). - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glColorMask}}, {{KW|_glClearBuffer}}, {{KW|_glDepthFunc}}, {{KW|_glDepthRange}}, {{KW|_glStencilMask}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDepthRange.txt b/internal/help/_glDepthRange.txt deleted file mode 100644 index 90e719206..000000000 --- a/internal/help/_glDepthRange.txt +++ /dev/null @@ -1,42 +0,0 @@ -'''_glDepthRange:''' specify mapping of depth values from normalized device coordinates to window coordinates - - -{{PageSyntax}} - -:: SUB _glDepthRange (BYVAL zNear AS DOUBLE, BYVAL zFar AS DOUBLE) - -:: void '''_glDepthRange'''(GLdouble {{Parameter|nearVal}}, GLdouble {{Parameter|farVal}}); -:: void '''_glDepthRangef'''(GLfloat {{Parameter|nearVal}}, GLfloat {{Parameter|farVal}}); - -; nearVal -: Specifies the mapping of the near clipping plane to window coordinates. The initial value is 0. -; farVal -: Specifies the mapping of the far clipping plane to window coordinates. The initial value is 1. - - -{{PageDescription}} - -After clipping and division by ''w'', depth coordinates range from -1 to 1, corresponding to the near and far clipping planes. '''_glDepthRange''' specifies a linear mapping of the normalized depth coordinates in this range to window depth coordinates. Regardless of the actual depth buffer implementation, window coordinate depth values are treated as though they range from 0 through 1 (like color components). Thus, the values accepted by '''_glDepthRange''' are both clamped to this range before they are accepted. - -The setting of (0,1) maps the near plane to 0 and the far plane to 1. With this mapping, the depth buffer range is fully utilized. - - -{{PageNotes}} - -It is not necessary that {{Parameter|nearVal}} be less than {{Parameter|farVal}}. Reverse mappings such as ''nearVal'' = 1, and ''farVal'' = 0 are acceptable. - -The type of the {{Parameter|nearVal}} and {{Parameter|farVal}} parameters was changed from GLclampf to GLfloat for '''_glDepthRangef''' and from GLclampd to GLdouble for '''_glDepthRange'''. This change is transparent to user code. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_DEPTH_RANGE}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glDepthFunc}}, {{KW|_glDepthRangeArray}}, {{KW|_glDepthRangeIndexed}}, {{KW|_glPolygonOffset}}, {{KW|_glViewport}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDrawArrays.txt b/internal/help/_glDrawArrays.txt deleted file mode 100644 index 96a520aca..000000000 --- a/internal/help/_glDrawArrays.txt +++ /dev/null @@ -1,49 +0,0 @@ -'''_glDrawArrays:''' render primitives from array data - - -{{PageSyntax}} - -:: SUB _glDrawArrays (BYVAL mode AS _UNSIGNED LONG, BYVAL first AS LONG, BYVAL count AS LONG) -:: void '''_glDrawArrays'''(GLenum {{Parameter|mode}}, GLint {{Parameter|first}}, GLsizei {{Parameter|count}}); - - -; mode -: Specifies what kind of primitives to render. Symbolic constants {{KW|_GL_POINTS}}, {{KW|_GL_LINE_STRIP}}, {{KW|_GL_LINE_LOOP}}, {{KW|_GL_LINES}}, {{KW|_GL_LINE_STRIP_ADJACENCY}}, {{KW|_GL_LINES_ADJACENCY}}, {{KW|_GL_TRIANGLE_STRIP}}, {{KW|_GL_TRIANGLE_FAN}}, {{KW|_GL_TRIANGLES}}, {{KW|_GL_TRIANGLE_STRIP_ADJACENCY}}, {{KW|_GL_TRIANGLES_ADJACENCY}} and {{KW|_GL_PATCHES}} are accepted. -; first -: Specifies the starting index in the enabled arrays. -; count -: Specifies the number of indices to be rendered. - - -{{PageDescription}} - -'''_glDrawArrays''' specifies multiple geometric primitives with very few subroutine calls. Instead of calling a GL procedure to pass each individual vertex, normal, texture coordinate, edge flag, or color, you can prespecify separate arrays of vertices, normals, and colors and use them to construct a sequence of primitives with a single call to '''_glDrawArrays'''. - -When '''_glDrawArrays''' is called, it uses {{Parameter|count}} sequential elements from each enabled array to construct a sequence of geometric primitives, beginning with element {{Parameter|first}}. {{Parameter|mode}} specifies what kind of primitives are constructed and how the array elements construct those primitives. - -Vertex attributes that are modified by '''_glDrawArrays''' have an unspecified value after '''_glDrawArrays''' returns. Attributes that aren't modified remain well defined. - - -{{PageNotes}} - -{{KW|_GL_LINE_STRIP_ADJACENCY}}, {{KW|_GL_LINES_ADJACENCY}}, {{KW|_GL_TRIANGLE_STRIP_ADJACENCY}} and {{KW|_GL_TRIANGLES_ADJACENCY}} are available only if the GL version is 3.2 or greater. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|mode}} is not an accepted value. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|count}} is negative. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to an enabled array and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a geometry shader is active and {{Parameter|mode}} is incompatible with the input primitive type of the geometry shader in the currently installed program object. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindVertexArray}}, {{KW|_glDrawArraysIndirect}}, {{KW|_glDrawArraysInstanced}}, {{KW|_glDrawArraysInstancedBaseInstance}}, {{KW|_glMultiDrawArrays}}, {{KW|_glMultiDrawArraysIndirect}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDrawBuffer.txt b/internal/help/_glDrawBuffer.txt deleted file mode 100644 index 5feeb619b..000000000 --- a/internal/help/_glDrawBuffer.txt +++ /dev/null @@ -1,61 +0,0 @@ -'''_glDrawBuffer:''' specify which color buffers are to be drawn into - - -{{PageSyntax}} - -:: SUB _glDrawBuffer (BYVAL mode AS _UNSIGNED LONG) -:: void '''_glDrawBuffer'''(GLenum {{Parameter|mode}}); - - -; mode -: Specifies up to four color buffers to be drawn into. Symbolic constants {{KW|_GL_NONE}}, {{KW|_GL_FRONT_LEFT}}, {{KW|_GL_FRONT_RIGHT}}, {{KW|_GL_BACK_LEFT}}, {{KW|_GL_BACK_RIGHT}}, {{KW|_GL_FRONT}}, {{KW|_GL_BACK}}, {{KW|_GL_LEFT}}, {{KW|_GL_RIGHT}}, and {{KW|_GL_FRONT_AND_BACK}} are accepted. The initial value is {{KW|_GL_FRONT}} for single-buffered contexts, and {{KW|_GL_BACK}} for double-buffered contexts. - - -{{PageDescription}} - -When colors are written to the frame buffer, they are written into the color buffers specified by '''_glDrawBuffer'''. The specifications are as follows: - -; {{KW|_GL_NONE}} -: No color buffers are written. -; {{KW|_GL_FRONT_LEFT}} -: Only the front left color buffer is written. -; {{KW|_GL_FRONT_RIGHT}} -: Only the front right color buffer is written. -; {{KW|_GL_BACK_LEFT}} -: Only the back left color buffer is written. -; {{KW|_GL_BACK_RIGHT}} -: Only the back right color buffer is written. -; {{KW|_GL_FRONT}} -: Only the front left and front right color buffers are written. If there is no front right color buffer, only the front left color buffer is written. -; {{KW|_GL_BACK}} -: Only the back left and back right color buffers are written. If there is no back right color buffer, only the back left color buffer is written. -; {{KW|_GL_LEFT}} -: Only the front left and back left color buffers are written. If there is no back left color buffer, only the front left color buffer is written. -; {{KW|_GL_RIGHT}} -: Only the front right and back right color buffers are written. If there is no back right color buffer, only the front right color buffer is written. -; {{KW|_GL_FRONT_AND_BACK}} -: All the front and back color buffers (front left, front right, back left, back right) are written. If there are no back color buffers, only the front left and front right color buffers are written. If there are no right color buffers, only the front left and back left color buffers are written. If there are no right or back color buffers, only the front left color buffer is written. -If more than one color buffer is selected for drawing, then blending or logical operations are computed and applied independently for each color buffer and can produce different results in each buffer. - -Monoscopic contexts include only ''left'' buffers, and stereoscopic contexts include both ''left'' and ''right'' buffers. Likewise, single-buffered contexts include only ''front'' buffers, and double-buffered contexts include both ''front'' and ''back'' buffers. The context is selected at GL initialization. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|mode}} is not an accepted value. - -{{KW|_GL_INVALID_OPERATION}} is generated if none of the buffers indicated by {{Parameter|mode}} exists. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_DRAW_BUFFER}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindFramebuffer}}, {{KW|_glBlendFunc}}, {{KW|_glColorMask}}, {{KW|_glDrawBuffers}}, {{KW|_glLogicOp}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glDrawElements.txt b/internal/help/_glDrawElements.txt deleted file mode 100644 index e9dbb9ade..000000000 --- a/internal/help/_glDrawElements.txt +++ /dev/null @@ -1,51 +0,0 @@ -'''_glDrawElements:''' render primitives from array data - - -{{PageSyntax}} - -: SUB _glDrawElements (BYVAL mode AS _UNSIGNED LONG, BYVAL count AS LONG, BYVAL type AS _UNSIGNED LONG, indices AS _OFFSET) -: void '''_glDrawElements'''(GLenum {{Parameter|mode}}, GLsizei {{Parameter|count}}, GLenum {{Parameter|type}}, const GLvoid * {{Parameter|indices}}); - - -; mode -: Specifies what kind of primitives to render. Symbolic constants {{KW|_GL_POINTS}}, {{KW|_GL_LINE_STRIP}}, {{KW|_GL_LINE_LOOP}}, {{KW|_GL_LINES}}, {{KW|_GL_LINE_STRIP_ADJACENCY}}, {{KW|_GL_LINES_ADJACENCY}}, {{KW|_GL_TRIANGLE_STRIP}}, {{KW|_GL_TRIANGLE_FAN}}, {{KW|_GL_TRIANGLES}}, {{KW|_GL_TRIANGLE_STRIP_ADJACENCY}}, {{KW|_GL_TRIANGLES_ADJACENCY}} and {{KW|_GL_PATCHES}} are accepted. -; count -: Specifies the number of elements to be rendered. -; type -: Specifies the type of the values in {{Parameter|indices}}. Must be one of {{KW|_GL_UNSIGNED_BYTE}}, {{KW|_GL_UNSIGNED_SHORT}}, or {{KW|_GL_UNSIGNED_INT}}. -; indices -: Specifies a pointer to the location where the indices are stored. - - -{{PageDescription}} - -'''_glDrawElements''' specifies multiple geometric primitives with very few subroutine calls. Instead of calling a GL function to pass each individual vertex, normal, texture coordinate, edge flag, or color, you can prespecify separate arrays of vertices, normals, and so on, and use them to construct a sequence of primitives with a single call to '''_glDrawElements'''. - -When '''_glDrawElements''' is called, it uses {{Parameter|count}} sequential elements from an enabled array, starting at {{Parameter|indices}} (interpreted as a byte count) to construct a sequence of geometric primitives. {{Parameter|mode}} specifies what kind of primitives are constructed and how the array elements construct these primitives. If more than one array is enabled, each is used. - -Vertex attributes that are modified by '''_glDrawElements''' have an unspecified value after '''_glDrawElements''' returns. Attributes that aren't modified maintain their previous values. - - -{{PageNotes}} - -{{KW|_GL_LINE_STRIP_ADJACENCY}}, {{KW|_GL_LINES_ADJACENCY}}, {{KW|_GL_TRIANGLE_STRIP_ADJACENCY}} and {{KW|_GL_TRIANGLES_ADJACENCY}} are available only if the GL version is 3.2 or greater. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|mode}} is not an accepted value. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|count}} is negative. - -{{KW|_GL_INVALID_OPERATION}} is generated if a geometry shader is active and {{Parameter|mode}} is incompatible with the input primitive type of the geometry shader in the currently installed program object. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to an enabled array or the element array and the buffer object's data store is currently mapped. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindVertexArray}}, {{KW|_glDrawArrays}}, {{KW|_glDrawElementsBaseVertex}}, {{KW|_glDrawElementsIndirect}}, {{KW|_glDrawElementsInstanced}}, {{KW|_glDrawElementsInstancedBaseInstance}}, {{KW|_glDrawElementsInstancedBaseVertex}}, {{KW|_glDrawElementsInstancedBaseVertexBaseInstance}}, {{KW|_glDrawRangeElements}}, {{KW|_glDrawRangeElementsBaseVertex}}, {{KW|_glMultiDrawElements}}, {{KW|_glMultiDrawElementsBaseVertex}}, {{KW|_glMultiDrawElementsIndirect}} - - -{{PageCopyright}} \ No newline at end of file diff --git a/internal/help/_glEnable.txt b/internal/help/_glEnable.txt deleted file mode 100644 index cef86e4a3..000000000 --- a/internal/help/_glEnable.txt +++ /dev/null @@ -1,140 +0,0 @@ -'''_glEnable:''' enable or disable server-side GL capabilities - - -{{PageSyntax}} - - SUB _glEnable (BYVAL cap AS _UNSIGNED LONG) - void '''_glEnable'''(GLenum {{Parameter|cap}}); - - SUB _glDisable (BYVAL cap AS _UNSIGNED LONG) - void '''_glDisable'''(GLenum {{Parameter|cap}}); - - -; cap -: Specifies a symbolic constant indicating a GL capability. - - -{{PageSyntax}} - -| name = glEnablei, glDisablei -| core = 3.0 -}} - - void '''_glEnablei'''(GLenum {{Parameter|cap}}, GLuint {{Parameter|index}}); - void '''_glDisablei'''(GLenum {{Parameter|cap}}, GLuint {{Parameter|index}}); - -; cap -: Specifies a symbolic constant indicating a GL capability. -; index -: Specifies the index of the capability to enable/disable. - - -{{PageDescription}} - -'''_glEnable''' and {{KW|_glDisable}} enable and disable various capabilities. Use {{KW|_glIsEnabled}} or {{KW|_glGet}} to determine the current setting of any capability. The initial value for each capability with the exception of {{KW|_GL_DITHER}} and {{KW|_GL_MULTISAMPLE}} is {{KW|_GL_FALSE}}. The initial value for {{KW|_GL_DITHER}} and {{KW|_GL_MULTISAMPLE}} is {{KW|_GL_TRUE}}. - -Both '''_glEnable''' and {{KW|_glDisable}} take a single argument, {{Parameter|cap}}, which can assume one of the following values: - -; {{KW|_GL_BLEND}} -: If enabled, blend the computed fragment color values with the values in the color buffers. See [[GLAPI/glBlendFunc|glBlendFunc]]. Sets the blend enable/disable flag for all color buffers. -; {{KW|_GL_CLIP_DISTANCE}}''i'' -: If enabled, clip geometry against user-defined half space ''i''. -; {{KW|_GL_COLOR_LOGIC_OP}} -: If enabled, apply the currently selected logical operation to the computed fragment color and color buffer values. See [[GLAPI/glLogicOp|glLogicOp]]. -; {{KW|_GL_CULL_FACE}} -: If enabled, cull polygons based on their winding in window coordinates. See [[GLAPI/glCullFace|glCullFace]]. -; {{KW|_GL_DEBUG_OUTPUT}} -: If enabled, debug messages are produced by a debug context. When disabled, the debug message log is silenced. Note that in a non-debug context, very few, if any messages might be produced, even when {{KW|_GL_DEBUG_OUTPUT}} is enabled. -; {{KW|_GL_DEBUG_OUTPUT_SYNCHRONOUS}} -: If enabled, debug messages are produced synchronously by a debug context. If disabled, debug messages may be produced asynchronously. In particular, they may be delayed relative to the execution of GL commands, and the debug callback function may be called from a thread other than that in which the commands are executed. See {{KW|_glDebugMessageCallback}}. -; {{KW|_GL_DEPTH_CLAMP}} -: If enabled, the -w&lt;sub&gt;c&lt;/sub&gt; &amp;le; z&lt;sub&gt;c&lt;/sub&gt; &amp;le; w&lt;sub&gt;c&lt;/sub&gt; plane equation is ignored by view volume clipping (effectively, there is no near or far plane clipping). See [[GLAPI/glDepthRange|glDepthRange]]. -; {{KW|_GL_DEPTH_TEST}} -: If enabled, do depth comparisons and update the depth buffer. Note that even if the depth buffer exists and the depth mask is non-zero, the depth buffer is not updated if the depth test is disabled. See [[GLAPI/glDepthFunc|glDepthFunc]] and [[GLAPI/glDepthRange|glDepthRange]]. -; {{KW|_GL_DITHER}} -: If enabled, dither color components or indices before they are written to the color buffer. -; {{KW|_GL_FRAMEBUFFER_SRGB}} -: If enabled and the value of {{KW|_GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING}} for the framebuffer attachment corresponding to the destination buffer is {{KW|_GL_SRGB}}, the R, G, and B destination color values (after conversion from fixed-point to floating-point) are considered to be encoded for the sRGB color space and hence are linearized prior to their use in blending. -; {{KW|_GL_LINE_SMOOTH}} -: If enabled, draw lines with correct filtering. Otherwise, draw aliased lines. See [[GLAPI/glLineWidth|glLineWidth]]. -; {{KW|_GL_MULTISAMPLE}} -: If enabled, use multiple fragment samples in computing the final color of a pixel. See [[GLAPI/glSampleCoverage|glSampleCoverage]]. -; {{KW|_GL_POLYGON_OFFSET_FILL}} -: If enabled, and if the polygon is rendered in {{KW|_GL_FILL}} mode, an offset is added to depth values of a polygon's fragments before the depth comparison is performed. See [[GLAPI/glPolygonOffset|glPolygonOffset]]. -; {{KW|_GL_POLYGON_OFFSET_LINE}} -: If enabled, and if the polygon is rendered in {{KW|_GL_LINE}} mode, an offset is added to depth values of a polygon's fragments before the depth comparison is performed. See [[GLAPI/glPolygonOffset|glPolygonOffset]]. -; {{KW|_GL_POLYGON_OFFSET_POINT}} -: If enabled, an offset is added to depth values of a polygon's fragments before the depth comparison is performed, if the polygon is rendered in {{KW|_GL_POINT}} mode. See [[GLAPI/glPolygonOffset|glPolygonOffset]]. -; {{KW|_GL_POLYGON_SMOOTH}} -: If enabled, draw polygons with proper filtering. Otherwise, draw aliased polygons. For correct antialiased polygons, an alpha buffer is needed and the polygons must be sorted front to back. -; {{KW|_GL_PRIMITIVE_RESTART}} -: Enables primitive restarting. If enabled, any one of the draw commands which transfers a set of generic attribute array elements to the GL will restart the primitive when the index of the vertex is equal to the primitive restart index. See {{KW|_glPrimitiveRestartIndex}}. -; {{KW|_GL_PRIMITIVE_RESTART_FIXED_INDEX}} -: Enables primitive restarting with a fixed index. If enabled, any one of the draw commands which transfers a set of generic attribute array elements to the GL will restart the primitive when the index of the vertex is equal to the fixed primitive index for the specified index type. The fixed index is equal to &lt;math&gt;2^n - 1&lt;/math&gt; where ''n'' is equal to 8 for {{KW|_GL_UNSIGNED_BYTE}}, 16 for {{KW|_GL_UNSIGNED_SHORT}} and 32 for {{KW|_GL_UNSIGNED_INT}}. -; {{KW|_GL_RASTERIZER_DISCARD}} -: If enabled, all primitives are discarded before rasterization, but ''after'' any optional transform feedback. Also causes {{KW|_glClear}} and {{KW|_glClearBuffer}} commands to be ignored. -; {{KW|_GL_SAMPLE_ALPHA_TO_COVERAGE}} -: If enabled, compute a temporary coverage value where each bit is determined by the alpha value at the corresponding sample location. The temporary coverage value is then ANDed with the fragment coverage value. -; {{KW|_GL_SAMPLE_ALPHA_TO_ONE}} -: If enabled, each sample alpha value is replaced by the maximum representable alpha value. -; {{KW|_GL_SAMPLE_COVERAGE}} -: If enabled, the fragment's coverage is ANDed with the temporary coverage value. If {{KW|_GL_SAMPLE_COVERAGE_INVERT}} is set to {{KW|_GL_TRUE}}, invert the coverage value. See [[GLAPI/glSampleCoverage|glSampleCoverage]]. -; {{KW|_GL_SAMPLE_SHADING}} -: If enabled, the active fragment shader is run once for each covered sample, or at fraction of this rate as determined by the current value of {{KW|_GL_MIN_SAMPLE_SHADING_VALUE}}. See [[GLAPI/glMinSampleShading|glMinSampleShading]]. -; {{KW|_GL_SAMPLE_MASK}} -: If enabled, the sample coverage mask generated for a fragment during rasterization will be ANDed with the value of {{KW|_GL_SAMPLE_MASK_VALUE}} before shading occurs. See [[GLAPI/glSampleMaski|glSampleMaski]]. -; {{KW|_GL_SCISSOR_TEST}} -: If enabled, discard fragments that are outside the scissor rectangle. See [[GLAPI/glScissor|glScissor]]. -; {{KW|_GL_STENCIL_TEST}} -: If enabled, do stencil testing and update the stencil buffer. See [[GLAPI/glStencilFunc|glStencilFunc]] and [[GLAPI/glStencilOp|glStencilOp]]. -; {{KW|_GL_TEXTURE_CUBE_MAP_SEAMLESS}} -: If enabled, cubemap textures are sampled such that when linearly sampling from the border between two adjacent faces, texels from both faces are used to generate the final sample value. When disabled, texels from only a single face are used to construct the final sample value. -; {{KW|_GL_PROGRAM_POINT_SIZE}} -: If enabled and a vertex or geometry shader is active, then the derived point size is taken from the (potentially clipped) shader builtin {{code|gl_PointSize}} and clamped to the implementation-dependent point size range. - -=== Indexed Capabilities === - -Some of the GL's capabilities are indexed. '''_glEnablei''' and '''_glDisablei''' enable and disable indexed capabilities. Only the following capabilities may be used with indices higher than zero: - -; {{KW|_GL_BLEND}} -: If enabled, blend the computed fragment color values with the values in the specified color buffer. {{Parameter|index}} must be less than {{KW|_GL_MAX_DRAW_BUFFERS}} or {{KW|_GL_INVALID_VALUE}} will result. See [[GLAPI/glBlendFunc|glBlendFunc]]. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|cap}} is not one of the values listed previously. - -{{KW|_GL_INVALID_VALUE}} is generated by '''_glEnablei''' and '''_glDisablei''' if {{Parameter|index}} is greater than or equal to the number of indexed capabilities for {{Parameter|cap}}. - - -{{PageNotes}} - -{{KW|_GL_PRIMITIVE_RESTART}} is available only if the GL version is 3.1 or greater. - -{{KW|_GL_TEXTURE_CUBE_MAP_SEAMLESS}} is available only if the GL version is 3.2 or greater. - -{{KW|_GL_PRIMITIVE_RESTART_FIXED_INDEX}} is available only if the GL version is 4.3 or greater. - -{{KW|_GL_DEBUG_OUTPUT}} and {{KW|_GL_DEBUG_OUTPUT_SYNCHRONOUS}} are available only if the GL version is 4.3 or greater. - -Any token accepted by '''_glEnable''' or '''_glDisable''' is also accepted by '''_glEnablei''' and '''_glDisablei''', but if the capability is not indexed, the maximum value that {{Parameter|index}} may take is zero. - -In general, passing an indexed capability to '''_glEnable''' or '''_glDisable''' will enable or disable that capability for all indices, resepectively. - - -{{PageUseWith}} - -{{KW|_glIsEnabled}} - -{{KW|_glGet}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBlendFunc}}, {{KW|_glCullFace}}, {{KW|_glDepthFunc}}, {{KW|_glDepthRange}}, {{KW|_glGet}}, {{KW|_glIsEnabled}}, {{KW|_glLineWidth}}, {{KW|_glLogicOp}}, {{KW|_glPointSize}}, {{KW|_glPolygonMode}}, {{KW|_glPolygonOffset}}, {{KW|_glSampleCoverage}}, {{KW|_glScissor}}, {{KW|_glStencilFunc}}, {{KW|_glStencilOp}}, {{KW|_glTexImage1D}}, {{KW|_glTexImage2D}}, {{KW|_glTexImage3D}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2010-2011 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glFinish.txt b/internal/help/_glFinish.txt deleted file mode 100644 index 63d7e2fd4..000000000 --- a/internal/help/_glFinish.txt +++ /dev/null @@ -1,29 +0,0 @@ -'''_glFinish:''' block until all GL execution is complete - - -{{PageSyntax}} - - SUB _glFinish - void '''_glFinish'''({{Parameter|void}}); - - - -{{PageDescription}} - -'''_glFinish''' does not return until the effects of all previously called GL commands are complete. Such effects include all changes to GL state, all changes to connection state, and all changes to the frame buffer contents. - - -{{PageNotes}} - -'''_glFinish''' requires a round trip to the server. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glFlush}}, {{KW|_glFenceSync}}, {{KW|_glWaitSync}}, {{KW|_glClientWaitSync}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glFlush.txt b/internal/help/_glFlush.txt deleted file mode 100644 index cecab0ecb..000000000 --- a/internal/help/_glFlush.txt +++ /dev/null @@ -1,31 +0,0 @@ -'''_glFlush:''' force execution of GL commands in finite time - - -{{PageSyntax}} - - SUB _glFlush - void '''_glFlush'''({{Parameter|void}}); - - - -{{PageDescription}} - -Different GL implementations buffer commands in several different locations, including network buffers and the graphics accelerator itself. '''_glFlush''' empties all of these buffers, causing all issued commands to be executed as quickly as they are accepted by the actual rendering engine. Though this execution may not be completed in any particular time period, it does complete in finite time. - -Because any GL program might be executed over a network, or on an accelerator that buffers commands, all programs should call '''_glFlush''' whenever they count on having all of their previously issued commands completed. For example, call '''_glFlush''' before waiting for user input that depends on the generated image. - - -{{PageNotes}} - -'''_glFlush''' can return at any time. It does not wait until the execution of all previously issued GL commands is complete. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glFinish}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glFrontFace.txt b/internal/help/_glFrontFace.txt deleted file mode 100644 index d36906947..000000000 --- a/internal/help/_glFrontFace.txt +++ /dev/null @@ -1,39 +0,0 @@ -'''_glFrontFace:''' define front- and back-facing polygons - - -{{PageSyntax}} - - SUB _glFrontFace (BYVAL mode AS _UNSIGNED LONG) - void '''_glFrontFace'''(GLenum {{Parameter|mode}}); - - -; mode -: Specifies the orientation of front-facing polygons. {{KW|_GL_CW}} and {{KW|_GL_CCW}} are accepted. The initial value is {{KW|_GL_CCW}}. - - -{{PageDescription}} - -In a scene composed entirely of opaque closed surfaces, back-facing polygons are never visible. Eliminating these invisible polygons has the obvious benefit of speeding up the rendering of the image. To enable and disable elimination of back-facing polygons, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_CULL_FACE}}. - -The projection of a polygon to window coordinates is said to have clockwise winding if an imaginary object following the path from its first vertex, its second vertex, and so on, to its last vertex, and finally back to its first vertex, moves in a clockwise direction about the interior of the polygon. The polygon's winding is said to be counterclockwise if the imaginary object following the same path moves in a counterclockwise direction about the interior of the polygon. '''_glFrontFace''' specifies whether polygons with clockwise winding in window coordinates, or counterclockwise winding in window coordinates, are taken to be front-facing. Passing {{KW|_GL_CCW}} to {{Parameter|mode}} selects counterclockwise polygons as front-facing; {{KW|_GL_CW}} selects clockwise polygons as front-facing. By default, counterclockwise polygons are taken to be front-facing. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|mode}} is not an accepted value. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_FRONT_FACE}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glCullFace}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glGenTextures.txt b/internal/help/_glGenTextures.txt deleted file mode 100644 index 1851a0e6f..000000000 --- a/internal/help/_glGenTextures.txt +++ /dev/null @@ -1,43 +0,0 @@ -'''_glGenTextures:''' generate texture names - - -{{PageSyntax}} - - SUB _glGenTextures (BYVAL n AS LONG, textures AS _UNSIGNED LONG) - void '''_glGenTextures'''(GLsizei {{Parameter|n}}, GLuint * {{Parameter|textures}}); - - -; n -: Specifies the number of texture names to be generated. -; textures -: Specifies an array in which the generated texture names are stored. - - -{{PageDescription}} - -'''_glGenTextures''' returns {{Parameter|n}} texture names in {{Parameter|textures}}. There is no guarantee that the names form a contiguous set of integers; however, it is guaranteed that none of the returned names was in use immediately before the call to '''_glGenTextures'''. - -The generated textures have no dimensionality; they assume the dimensionality of the texture target to which they are first bound (see {{KW|_glBindTexture}}). - -Texture names returned by a call to '''_glGenTextures''' are not returned by subsequent calls, unless they are first deleted with {{KW|_glDeleteTextures}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|n}} is negative. - - -{{PageUseWith}} - -{{KW|_glIsTexture}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindTexture}}, {{KW|_glDeleteTextures}}, {{KW|_glIsTexture}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glGetError.txt b/internal/help/_glGetError.txt deleted file mode 100644 index a28e87ef7..000000000 --- a/internal/help/_glGetError.txt +++ /dev/null @@ -1,42 +0,0 @@ -'''_glGetError:''' return error information - - -{{PageSyntax}} - - FUNCTION _glGetError~& - GLenum '''_glGetError'''({{Parameter|void}}); - - - -{{PageDescription}} - -'''_glGetError''' returns the value of the error flag. Each detectable error is assigned a numeric code and symbolic name. When an error occurs, the error flag is set to the appropriate error code value. No other errors are recorded until '''_glGetError''' is called, the error code is returned, and the flag is reset to {{KW|_GL_NO_ERROR}}. If a call to '''_glGetError''' returns {{KW|_GL_NO_ERROR}}, there has been no detectable error since the last call to '''_glGetError''', or since the GL was initialized. - -To allow for distributed implementations, there may be several error flags. If any single error flag has recorded an error, the value of that flag is returned and that flag is reset to {{KW|_GL_NO_ERROR}} when '''_glGetError''' is called. If more than one flag has recorded an error, '''_glGetError''' returns and clears an arbitrary error flag value. Thus, '''_glGetError''' should always be called in a loop, until it returns {{KW|_GL_NO_ERROR}}, if all error flags are to be reset. - -Initially, all error flags are set to {{KW|_GL_NO_ERROR}}. - -The following errors are currently defined: - -; {{KW|_GL_NO_ERROR}} -: No error has been recorded. The value of this symbolic constant is guaranteed to be 0. -; {{KW|_GL_INVALID_ENUM}} -: An unacceptable value is specified for an enumerated argument. The offending command is ignored and has no other side effect than to set the error flag. -; {{KW|_GL_INVALID_VALUE}} -: A numeric argument is out of range. The offending command is ignored and has no other side effect than to set the error flag. -; {{KW|_GL_INVALID_OPERATION}} -: The specified operation is not allowed in the current state. The offending command is ignored and has no other side effect than to set the error flag. -; {{KW|_GL_INVALID_FRAMEBUFFER_OPERATION}} -: The framebuffer object is not complete. The offending command is ignored and has no other side effect than to set the error flag. -; {{KW|_GL_OUT_OF_MEMORY}} -: There is not enough memory left to execute the command. The state of the GL is undefined, except for the state of the error flags, after this error is recorded. -; {{KW|_GL_STACK_UNDERFLOW}} -: An attempt has been made to perform an operation that would cause an internal stack to underflow. -; {{KW|_GL_STACK_OVERFLOW}} -: An attempt has been made to perform an operation that would cause an internal stack to overflow. -When an error flag is set, results of a GL operation are undefined only if {{KW|_GL_OUT_OF_MEMORY}} has occurred. In all other cases, the command generating the error is ignored and has no effect on the GL state or frame buffer contents. If the generating command returns a value, it returns 0. If '''_glGetError''' itself generates an error, it returns 0. - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2012 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glGetString.txt b/internal/help/_glGetString.txt deleted file mode 100644 index 98ed3c810..000000000 --- a/internal/help/_glGetString.txt +++ /dev/null @@ -1,72 +0,0 @@ -'''_glGetString:''' return a string describing the current GL connection - - -{{PageSyntax}} - - FUNCTION _glGetString&& (BYVAL name AS _UNSIGNED LONG) - const GLubyte* '''_glGetString'''(GLenum {{Parameter|name}}); - - const GLubyte* '''_glGetStringi'''(GLenum {{Parameter|name}}, GLuint {{Parameter|index}}); - -; name -: Specifies a symbolic constant, one of {{KW|_GL_VENDOR}}, {{KW|_GL_RENDERER}}, {{KW|_GL_VERSION}}, or {{KW|_GL_SHADING_LANGUAGE_VERSION}}. Additionally, '''_glGetStringi''' accepts the {{KW|_GL_EXTENSIONS}} token. -; index -: For '''_glGetStringi''', specifies the index of the string to return. - - -{{PageDescription}} - -'''_glGetString''' returns a pointer to a static string describing some aspect of the current GL connection. {{Parameter|name}} can be one of the following: - -; {{KW|_GL_VENDOR}} -: -Returns the company responsible for this GL implementation. This name does not change from release to release. -; {{KW|_GL_RENDERER}} -: -Returns the name of the renderer. This name is typically specific to a particular configuration of a hardware platform. It does not change from release to release. -; {{KW|_GL_VERSION}} -: -Returns a version or release number. -; {{KW|_GL_SHADING_LANGUAGE_VERSION}} -: -Returns a version or release number for the shading language. - -Strings {{KW|_GL_VENDOR}} and {{KW|_GL_RENDERER}} together uniquely specify a platform. They do not change from release to release and should be used by platform-recognition algorithms. - -'''_glGetStringi''' returns a pointer to a static string indexed by {{Parameter|index}}. {{Parameter|name}} can be one of the following: - -; {{KW|_GL_EXTENSIONS}} -: For '''_glGetStringi''' only, returns the extension string supported by the implementation at {{Parameter|index}}. The index {{Parameter|index}} is on the range [0 to {{KW|_glGet|Integerv(GL_NUM_EXTENSIONS)}} - 1]. -; {{KW|_GL_SHADING_LANGUAGE_VERSION}} -: Returns one of the versions of [[GLSL]] supported by this implementation. {{Parameter|index}} is on the range [0 to {{KW|_glGet|Integerv(GL_NUM_SHADING_LANGUAGE_VERSIONS)}} - 1]. - -The {{KW|_GL_VERSION}} and {{KW|_GL_SHADING_LANGUAGE_VERSION}} strings begin with a version number. The version number uses one of these forms: - -''major_number.minor_number'' - -or - -''major_number.minor_number.release_number'' - -Vendor-specific information may follow the version number. Its format depends on the implementation, but a space always separates the version number and the vendor-specific information. - -All strings are null-terminated. - - -{{PageNotes}} - -If an error is generated, '''_glGetString''' returns 0. - -The client and server may support different versions. '''_glGetString''' always returns a compatible version number. The release number always describes the server. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|name}} is not an accepted value. - -{{KW|_GL_INVALID_VALUE}} is generated by '''_glGetStringi''' if {{Parameter|index}} is outside the valid range for indexed state {{Parameter|name}}. - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2010 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glGetTexImage.txt b/internal/help/_glGetTexImage.txt deleted file mode 100644 index 0e4acca4f..000000000 --- a/internal/help/_glGetTexImage.txt +++ /dev/null @@ -1,82 +0,0 @@ -'''_glGetTexImage:''' return a texture image - - -{{PageSyntax}} - - SUB _glGetTexImage (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL format AS _UNSIGNED LONG, BYVAL type AS _UNSIGNED LONG, pixels AS _OFFSET) - void '''_glGetTexImage'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLenum {{Parameter|format}}, GLenum {{Parameter|type}}, GLvoid * {{Parameter|img}}); - - -; target -: Specifies which texture is to be obtained. {{KW|_GL_TEXTURE_1D}}, {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_3D}}, {{KW|_GL_TEXTURE_1D_ARRAY}}, {{KW|_GL_TEXTURE_2D_ARRAY}}, {{KW|_GL_TEXTURE_RECTANGLE}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, and {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}} are accepted. -; level -: Specifies the level-of-detail number of the desired image. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; format -: Specifies a pixel format for the returned data. The supported formats are {{KW|_GL_STENCIL_INDEX}}, {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_STENCIL}}, {{KW|_GL_RED}}, {{KW|_GL_GREEN}}, {{KW|_GL_BLUE}}, {{KW|_GL_RG}}, {{KW|_GL_RGB}}, {{KW|_GL_RGBA}}, {{KW|_GL_BGR}}, {{KW|_GL_BGRA}}, {{KW|_GL_RED_INTEGER}}, {{KW|_GL_GREEN_INTEGER}}, {{KW|_GL_BLUE_INTEGER}}, {{KW|_GL_RG_INTEGER}}, {{KW|_GL_RGB_INTEGER}}, {{KW|_GL_RGBA_INTEGER}}, {{KW|_GL_BGR_INTEGER}}, {{KW|_GL_BGRA_INTEGER}}. -; type -: Specifies a pixel type for the returned data. The supported types are {{KW|_GL_UNSIGNED_BYTE}}, {{KW|_GL_BYTE}}, {{KW|_GL_UNSIGNED_SHORT}}, {{KW|_GL_SHORT}}, {{KW|_GL_UNSIGNED_INT}}, {{KW|_GL_INT}}, {{KW|_GL_HALF_FLOAT}}, {{KW|_GL_FLOAT}}, {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}}, {{KW|_GL_UNSIGNED_INT_24_8}}, {{KW|_GL_UNSIGNED_INT_10F_11F_11F_REV}}, {{KW|_GL_UNSIGNED_INT_5_9_9_9_REV}}, and {{KW|_GL_FLOAT_32_UNSIGNED_INT_24_8_REV}}. -; img -: Returns the texture image. Should be a pointer to an array of the type specified by {{Parameter|type}}. - - -{{PageDescription}} - -'''_glGetTexImage''' returns a texture image into {{Parameter|img}}. {{Parameter|target}} specifies whether the desired texture image is one specified by {{KW|_glTexImage1D}} ({{KW|_GL_TEXTURE_1D}}), {{KW|_glTexImage2D}} ({{KW|_GL_TEXTURE_1D_ARRAY}}, {{KW|_GL_TEXTURE_RECTANGLE}}, {{KW|_GL_TEXTURE_2D}} or any of {{KW|_GL_TEXTURE_CUBE_MAP_*}}), or {{KW|_glTexImage3D}} ({{KW|_GL_TEXTURE_2D_ARRAY}}, {{KW|_GL_TEXTURE_3D}}). {{Parameter|level}} specifies the level-of-detail number of the desired image. {{Parameter|format}} and {{Parameter|type}} specify the format and type of the desired image array. See the reference page for {{KW|_glTexImage1D}} for a description of the acceptable values for the {{Parameter|format}} and {{Parameter|type}} parameters, respectively. - -If a non-zero named buffer object is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target (see {{KW|_glBindBuffer}}) while a texture image is requested, {{Parameter|img}} is treated as a byte offset into the buffer object's data store. - -To understand the operation of '''_glGetTexImage''', consider the selected internal four-component texture image to be an RGBA color buffer the size of the image. The semantics of '''_glGetTexImage''' are then identical to those of {{KW|_glReadPixels}}, with the exception that no pixel transfer operations are performed, when called with the same {{Parameter|format}} and {{Parameter|type}}, with ''x'' and ''y'' set to 0, ''width'' set to the width of the texture image and ''height'' set to 1 for 1D images, or to the height of the texture image for 2D images. - -If the selected texture image does not contain four components, the following mappings are applied. Single-component textures are treated as RGBA buffers with red set to the single-component value, green set to 0, blue set to 0, and alpha set to 1. Two-component textures are treated as RGBA buffers with red set to the value of component zero, alpha set to the value of component one, and green and blue set to 0. Finally, three-component textures are treated as RGBA buffers with red set to component zero, green set to component one, blue set to component two, and alpha set to 1. - -To determine the required size of {{Parameter|img}}, use {{KW|_glGetTexLevelParameter}} to determine the dimensions of the internal texture image, then scale the required number of pixels by the storage required for each pixel, based on {{Parameter|format}} and {{Parameter|type}}. Be sure to take the pixel storage parameters into account, especially {{KW|_GL_PACK_ALIGNMENT}}. - - -{{PageNotes}} - -If an error is generated, no change is made to the contents of {{Parameter|img}}. - -'''_glGetTexImage''' returns the texture image for the active texture unit. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}}, {{Parameter|format}}, or {{Parameter|type}} is not an accepted value. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(''max''), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_OPERATION}} is returned if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}}, or {{KW|_GL_UNSIGNED_INT_10F_11F_11F_REV}} and {{Parameter|format}} is not {{KW|_GL_RGB}}. - -{{KW|_GL_INVALID_OPERATION}} is returned if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}}, or {{KW|_GL_UNSIGNED_INT_5_9_9_9_REV}} and {{Parameter|format}} is neither {{KW|_GL_RGBA}} or {{KW|_GL_BGRA}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target and the data would be packed to the buffer object such that the memory writes required would exceed the data store size. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target and {{Parameter|img}} is not evenly divisible into the number of bytes needed to store in memory a datum indicated by {{Parameter|type}}. - - -{{PageUseWith}} - -{{KW|_glGetTexLevelParameter}} with argument {{KW|_GL_TEXTURE_WIDTH}} - -{{KW|_glGetTexLevelParameter}} with argument {{KW|_GL_TEXTURE_HEIGHT}} - -{{KW|_glGetTexLevelParameter}} with argument {{KW|_GL_TEXTURE_INTERNAL_FORMAT}} - -{{KW|_glGet}} with arguments {{KW|_GL_PACK_ALIGNMENT}} and others - -{{KW|_glGet}} with argument {{KW|_GL_PIXEL_PACK_BUFFER_BINDING}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glPixelStore}}, {{KW|_glReadPixels}}, {{KW|_glTexSubImage1D}}, {{KW|_glTexSubImage2D}}, {{KW|_glTexSubImage3D}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2010 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glHint.txt b/internal/help/_glHint.txt deleted file mode 100644 index 94bd5d728..000000000 --- a/internal/help/_glHint.txt +++ /dev/null @@ -1,56 +0,0 @@ -'''_glHint:''' specify implementation-specific hints - - -{{PageSyntax}} - - SUB _glHint (BYVAL target AS _UNSIGNED LONG, BYVAL mode AS _UNSIGNED LONG) - void '''_glHint'''(GLenum {{Parameter|target}}, GLenum {{Parameter|mode}}); - - -; target -: Specifies a symbolic constant indicating the behavior to be controlled. {{KW|_GL_LINE_SMOOTH_HINT}}, {{KW|_GL_POLYGON_SMOOTH_HINT}}, {{KW|_GL_TEXTURE_COMPRESSION_HINT}}, and {{KW|_GL_FRAGMENT_SHADER_DERIVATIVE_HINT}} are accepted. -; mode -: Specifies a symbolic constant indicating the desired behavior. {{KW|_GL_FASTEST}}, {{KW|_GL_NICEST}}, and {{KW|_GL_DONT_CARE}} are accepted. - - -{{PageDescription}} - -Certain aspects of GL behavior, when there is room for interpretation, can be controlled with hints. A hint is specified with two arguments. {{Parameter|target}} is a symbolic constant indicating the behavior to be controlled, and {{Parameter|mode}} is another symbolic constant indicating the desired behavior. The initial value for each {{Parameter|target}} is {{KW|_GL_DONT_CARE}}. {{Parameter|mode}} can be one of the following: - -; {{KW|_GL_FASTEST}} -: -The most efficient option should be chosen. -; {{KW|_GL_NICEST}} -: -The most correct, or highest quality, option should be chosen. -; {{KW|_GL_DONT_CARE}} -: -No preference. -Though the implementation aspects that can be hinted are well defined, the interpretation of the hints depends on the implementation. The hint aspects that can be specified with {{Parameter|target}}, along with suggested semantics, are as follows: - -; {{KW|_GL_FRAGMENT_SHADER_DERIVATIVE_HINT}} -: -Indicates the accuracy of the derivative calculation for the GL shading language fragment processing built-in functions: {{KW|_dFdx}}, {{KW|_dFdy}}, and {{KW|_fwidth}}. -; {{KW|_GL_LINE_SMOOTH_HINT}} -: -Indicates the sampling quality of antialiased lines. If a larger filter function is applied, hinting {{KW|_GL_NICEST}} can result in more pixel fragments being generated during rasterization. -; {{KW|_GL_POLYGON_SMOOTH_HINT}} -: -Indicates the sampling quality of antialiased polygons. Hinting {{KW|_GL_NICEST}} can result in more pixel fragments being generated during rasterization, if a larger filter function is applied. -; {{KW|_GL_TEXTURE_COMPRESSION_HINT}} -: -Indicates the quality and performance of the compressing texture images. Hinting {{KW|_GL_FASTEST}} indicates that texture images should be compressed as quickly as possible, while {{KW|_GL_NICEST}} indicates that texture images should be compressed with as little image quality loss as possible. {{KW|_GL_NICEST}} should be selected if the texture is to be retrieved by {{KW|_glGetCompressedTexImage}} for reuse. - -{{PageNotes}} - -The interpretation of hints depends on the implementation. Some implementations ignore '''_glHint''' settings. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if either {{Parameter|target}} or {{Parameter|mode}} is not an accepted value. - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glIsEnabled.txt b/internal/help/_glIsEnabled.txt deleted file mode 100644 index bae98d9af..000000000 --- a/internal/help/_glIsEnabled.txt +++ /dev/null @@ -1,131 +0,0 @@ -'''_glIsEnabled, glIsEnabledi:''' test whether a capability is enabled - - -{{PageSyntax}} - - FUNCTION _glIsEnabled~%% (BYVAL cap AS _UNSIGNED LONG) - GLboolean '''_glIsEnabled'''(GLenum {{Parameter|cap}}); - - GLboolean '''_glIsEnabledi'''(GLenum {{Parameter|cap}}, GLuint {{Parameter|index}}); - -; cap -: Specifies a symbolic constant indicating a GL capability. -; index -: Specifies the index of the capability. - - -{{PageDescription}} - -'''_glIsEnabled''' returns {{KW|_GL_TRUE}} if {{Parameter|cap}} is an enabled capability and returns {{KW|_GL_FALSE}} otherwise. Boolean states that are indexed may be tested with '''_glIsEnabledi'''. For '''_glIsEnabledi''', {{Parameter|index}} specifies the index of the capability to test. {{Parameter|index}} must be between zero and the count of indexed capabilities for {{Parameter|cap}}. Initially all capabilities except {{KW|_GL_DITHER}} are disabled; {{KW|_GL_DITHER}} is initially enabled. - -The following capabilities are accepted for {{Parameter|cap}}: - - - -{| -|+ -! '''Constant''' -! '''See''' -|+ -| {{KW|_GL_BLEND}} -| {{KW|_glBlendFunc}}, {{KW|_glLogicOp}} -|+ -| {{KW|_GL_CLIP_DISTANCE}}''i'' -| {{KW|_glEnable}} -|+ -| {{KW|_GL_COLOR_LOGIC_OP}} -| {{KW|_glLogicOp}} -|+ -| {{KW|_GL_CULL_FACE}} -| {{KW|_glCullFace}} -|+ -| {{KW|_GL_DEPTH_CLAMP}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_DEBUG_OUTPUT}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_DEBUG_OUTPUT_SYNCHRONOUS}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_DEPTH_TEST}} -| {{KW|_glDepthFunc}}, {{KW|_glDepthRange}} -|+ -| {{KW|_GL_DITHER}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_FRAMEBUFFER_SRGB}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_LINE_SMOOTH}} -| {{KW|_glLineWidth}} -|+ -| {{KW|_GL_MULTISAMPLE}} -| {{KW|_glSampleCoverage}} -|+ -| {{KW|_GL_POLYGON_SMOOTH}} -| {{KW|_glPolygonMode}} -|+ -| {{KW|_GL_POLYGON_OFFSET_FILL}} -| {{KW|_glPolygonOffset}} -|+ -| {{KW|_GL_POLYGON_OFFSET_LINE}} -| {{KW|_glPolygonOffset}} -|+ -| {{KW|_GL_POLYGON_OFFSET_POINT}} -| {{KW|_glPolygonOffset}} -|+ -| {{KW|_GL_PROGRAM_POINT_SIZE}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_PRIMITIVE_RESTART}} -| {{KW|_glEnable}}, {{KW|_glPrimitiveRestartIndex}} -|+ -| {{KW|_GL_SAMPLE_ALPHA_TO_COVERAGE}} -| {{KW|_glSampleCoverage}} -|+ -| {{KW|_GL_SAMPLE_ALPHA_TO_ONE}} -| {{KW|_glSampleCoverage}} -|+ -| {{KW|_GL_SAMPLE_COVERAGE}} -| {{KW|_glSampleCoverage}} -|+ -| {{KW|_GL_SAMPLE_MASK}} -| {{KW|_glEnable}} -|+ -| {{KW|_GL_SCISSOR_TEST}} -| {{KW|_glScissor}} -|+ -| {{KW|_GL_STENCIL_TEST}} -| {{KW|_glStencilFunc}}, {{KW|_glStencilOp}} -|+ -| {{KW|_GL_TEXTURE_CUBEMAP_SEAMLESS}} -| {{KW|_glEnable}} -|} - - - - -{{PageNotes}} - -If an error is generated, '''_glIsEnabled''' and '''_glIsEnabledi''' return {{KW|_GL_FALSE}}. - -{{KW|_GL_DEBUG_OUTPUT}} and {{KW|_GL_DEBUG_OUTPUT_SYNCHRONOUS}} are available only if the GL version is 4.3 or greater. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|cap}} is not an accepted value. - -{{KW|_GL_INVALID_VALUE}} is generated by '''_glIsEnabledi''' if {{Parameter|index}} is outside the valid range for the indexed state {{Parameter|cap}}. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable}}, {{KW|_glDisable}}, {{KW|_glGet}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2010-2011 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glIsTexture.txt b/internal/help/_glIsTexture.txt deleted file mode 100644 index b225005fc..000000000 --- a/internal/help/_glIsTexture.txt +++ /dev/null @@ -1,29 +0,0 @@ -'''_glIsTexture:''' determine if a name corresponds to a texture - - -{{PageSyntax}} - - FUNCTION _glIsTexture~%% (BYVAL texture AS _UNSIGNED LONG) - GLboolean '''_glIsTexture'''(GLuint {{Parameter|texture}}); - - -; texture -: Specifies a value that may be the name of a texture. - - -{{PageDescription}} - -'''_glIsTexture''' returns {{KW|_GL_TRUE}} if {{Parameter|texture}} is currently the name of a texture. If {{Parameter|texture}} is zero, or is a non-zero value that is not currently the name of a texture, or if an error occurs, '''_glIsTexture''' returns {{KW|_GL_FALSE}}. - -A name returned by {{KW|_glGenTextures}}, but not yet associated with a texture by calling {{KW|_glBindTexture}}, is not the name of a texture. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindTexture}}, {{KW|_glDeleteTextures}}, {{KW|_glGenTextures}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glLineWidth.txt b/internal/help/_glLineWidth.txt deleted file mode 100644 index 4ff9b18f5..000000000 --- a/internal/help/_glLineWidth.txt +++ /dev/null @@ -1,60 +0,0 @@ -'''_glLineWidth:''' specify the width of rasterized lines - - -{{PageSyntax}} - - SUB _glLineWidth (BYVAL width AS SINGLE) - void '''_glLineWidth'''(GLfloat {{Parameter|width}}); - - -; width -: Specifies the width of rasterized lines. The initial value is 1. - - -{{PageDescription}} - -'''_glLineWidth''' specifies the rasterized width of both aliased and antialiased lines. Using a line width other than 1 has different effects, depending on whether line antialiasing is enabled. To enable and disable line antialiasing, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_LINE_SMOOTH}}. Line antialiasing is initially disabled. - -If line antialiasing is disabled, the actual width is determined by rounding the supplied width to the nearest integer. (If the rounding results in the value 0, it is as if the line width were 1.) If &lt;math&gt;|\Delta X| \ge |\Delta Y|&lt;/math&gt;, ''i'' pixels are filled in each column that is rasterized, where ''i'' is the rounded value of {{Parameter|width}}. Otherwise, ''i'' pixels are filled in each row that is rasterized. - -If antialiasing is enabled, line rasterization produces a fragment for each pixel square that intersects the region lying within the rectangle having width equal to the current line width, length equal to the actual length of the line, and centered on the mathematical line segment. The coverage value for each fragment is the window coordinate area of the intersection of the rectangular region with the corresponding pixel square. This value is saved and used in the final rasterization step. - -Not all widths can be supported when line antialiasing is enabled. If an unsupported width is requested, the nearest supported width is used. Only width 1 is guaranteed to be supported; others depend on the implementation. Likewise, there is a range for aliased line widths as well. To query the range of supported widths and the size difference between supported widths within the range, call {{KW|_glGet}} with arguments {{KW|_GL_ALIASED_LINE_WIDTH_RANGE}}, {{KW|_GL_SMOOTH_LINE_WIDTH_RANGE}}, and {{KW|_GL_SMOOTH_LINE_WIDTH_GRANULARITY}}. - - -{{PageNotes}} - -The line width specified by '''_glLineWidth''' is always returned when {{KW|_GL_LINE_WIDTH}} is queried. Clamping and rounding for aliased and antialiased lines have no effect on the specified value. - -Nonantialiased line width may be clamped to an implementation-dependent maximum. Call {{KW|_glGet}} with {{KW|_GL_ALIASED_LINE_WIDTH_RANGE}} to determine the maximum width. - -In OpenGL 1.2, the tokens {{KW|_GL_LINE_WIDTH_RANGE}} and {{KW|_GL_LINE_WIDTH_GRANULARITY}} were replaced by {{KW|_GL_ALIASED_LINE_WIDTH_RANGE}}, {{KW|_GL_SMOOTH_LINE_WIDTH_RANGE}}, and {{KW|_GL_SMOOTH_LINE_WIDTH_GRANULARITY}}. The old names are retained for backward compatibility, but should not be used in new code. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} is less than or equal to 0. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_LINE_WIDTH}} - -{{KW|_glGet}} with argument {{KW|_GL_ALIASED_LINE_WIDTH_RANGE}} - -{{KW|_glGet}} with argument {{KW|_GL_SMOOTH_LINE_WIDTH_RANGE}} - -{{KW|_glGet}} with argument {{KW|_GL_SMOOTH_LINE_WIDTH_GRANULARITY}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_LINE_SMOOTH}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glLogicOp.txt b/internal/help/_glLogicOp.txt deleted file mode 100644 index 7007e8dd6..000000000 --- a/internal/help/_glLogicOp.txt +++ /dev/null @@ -1,104 +0,0 @@ -'''_glLogicOp:''' specify a logical pixel operation for rendering - - -{{PageSyntax}} - - SUB _glLogicOp (BYVAL opcode AS _UNSIGNED LONG) - void '''_glLogicOp'''(GLenum {{Parameter|opcode}}); - - -; opcode -: Specifies a symbolic constant that selects a logical operation. The following symbols are accepted: {{KW|_GL_CLEAR}}, {{KW|_GL_SET}}, {{KW|_GL_COPY}}, {{KW|_GL_COPY_INVERTED}}, {{KW|_GL_NOOP}}, {{KW|_GL_INVERT}}, {{KW|_GL_AND}}, {{KW|_GL_NAND}}, {{KW|_GL_OR}}, {{KW|_GL_NOR}}, {{KW|_GL_XOR}}, {{KW|_GL_EQUIV}}, {{KW|_GL_AND_REVERSE}}, {{KW|_GL_AND_INVERTED}}, {{KW|_GL_OR_REVERSE}}, and {{KW|_GL_OR_INVERTED}}. The initial value is {{KW|_GL_COPY}}. - - -{{PageDescription}} - -'''_glLogicOp''' specifies a logical operation that, when enabled, is applied between the incoming RGBA color and the RGBA color at the corresponding location in the frame buffer. To enable or disable the logical operation, call {{KW|_glEnable}} and {{KW|_glDisable}} using the symbolic constant {{KW|_GL_COLOR_LOGIC_OP}}. The initial value is disabled. - - - -{| -|+ -! '''Opcode''' -! '''Resulting Operation''' -|+ -| {{KW|_GL_CLEAR}} -| 0 -|+ -| {{KW|_GL_SET}} -| 1 -|+ -| {{KW|_GL_COPY}} -| s -|+ -| {{KW|_GL_COPY_INVERTED}} -| ~s -|+ -| {{KW|_GL_NOOP}} -| d -|+ -| {{KW|_GL_INVERT}} -| ~d -|+ -| {{KW|_GL_AND}} -| s &amp; d -|+ -| {{KW|_GL_NAND}} -| ~(s &amp; d) -|+ -| {{KW|_GL_OR}} -| s | d -|+ -| {{KW|_GL_NOR}} -| ~(s | d) -|+ -| {{KW|_GL_XOR}} -| s ^ d -|+ -| {{KW|_GL_EQUIV}} -| ~(s ^ d) -|+ -| {{KW|_GL_AND_REVERSE}} -| s &amp; ~d -|+ -| {{KW|_GL_AND_INVERTED}} -| ~s &amp; d -|+ -| {{KW|_GL_OR_REVERSE}} -| s | ~d -|+ -| {{KW|_GL_OR_INVERTED}} -| ~s | d -|} - -{{Parameter|opcode}} is a symbolic constant chosen from the list above. In the explanation of the logical operations, ''s'' represents the incoming color and ''d'' represents the color in the frame buffer. Standard C-language operators are used. As these bitwise operators suggest, the logical operation is applied independently to each bit pair of the source and destination colors. - - -{{PageNotes}} - -When more than one RGBA color buffer is enabled for drawing, logical operations are performed separately for each enabled buffer, using for the destination value the contents of that buffer (see {{KW|_glDrawBuffer}}). - -Logic operations have no effect on floating point draw buffers. However, if {{KW|_GL_COLOR_LOGIC_OP}} is enabled, blending is still disabled in this case. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|opcode}} is not an accepted value. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_LOGIC_OP_MODE}}. - -{{KW|_glIsEnabled}} with argument {{KW|_GL_COLOR_LOGIC_OP}}. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable|(GL_COLOR_LOGIC_OP)}}, {{KW|_glDrawBuffer}}, {{KW|_glDrawBuffers}}, {{KW|_glStencilOp}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glPointSize.txt b/internal/help/_glPointSize.txt deleted file mode 100644 index fc8de1d54..000000000 --- a/internal/help/_glPointSize.txt +++ /dev/null @@ -1,54 +0,0 @@ -'''_glPointSize:''' specify the diameter of rasterized points - - -{{PageSyntax}} - - SUB _glPointSize (BYVAL size AS SINGLE) - void '''_glPointSize'''(GLfloat {{Parameter|size}}); - - -; size -: Specifies the diameter of rasterized points. The initial value is 1. - - -{{PageDescription}} - -'''_glPointSize''' specifies the rasterized diameter of points. If point size mode is disabled (see {{KW|_glEnable}} with parameter {{KW|_GL_PROGRAM_POINT_SIZE}}), this value will be used to rasterize points. Otherwise, the value written to the shading language built-in variable {{code|gl_PointSize}} will be used. - - -{{PageNotes}} - -The point size specified by '''_glPointSize''' is always returned when {{KW|_GL_POINT_SIZE}} is queried. Clamping and rounding for points have no effect on the specified value. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|size}} is less than or equal to 0. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_POINT_SIZE_RANGE}} - -{{KW|_glGet}} with argument {{KW|_GL_POINT_SIZE_GRANULARITY}} - -{{KW|_glGet}} with argument {{KW|_GL_POINT_SIZE}} - -{{KW|_glGet}} with argument {{KW|_GL_POINT_SIZE_MIN}} - -{{KW|_glGet}} with argument {{KW|_GL_POINT_SIZE_MAX}} - -{{KW|_glGet}} with argument {{KW|_GL_POINT_FADE_THRESHOLD_SIZE}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_PROGRAM_POINT_SIZE}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable|(GL_PROGRAM_POINT_SIZE)}}, {{KW|_glPointParameter}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glPolygonMode.txt b/internal/help/_glPolygonMode.txt deleted file mode 100644 index d8cb3c565..000000000 --- a/internal/help/_glPolygonMode.txt +++ /dev/null @@ -1,62 +0,0 @@ -'''_glPolygonMode:''' select a polygon rasterization mode - - -{{PageSyntax}} - - SUB _glPolygonMode (BYVAL face AS _UNSIGNED LONG, BYVAL mode AS _UNSIGNED LONG) - void '''_glPolygonMode'''(GLenum {{Parameter|face}}, GLenum {{Parameter|mode}}); - - -; face -: Specifies the polygons that {{Parameter|mode}} applies to. Must be {{KW|_GL_FRONT_AND_BACK}} for front- and back-facing polygons. -; mode -: Specifies how polygons will be rasterized. Accepted values are {{KW|_GL_POINT}}, {{KW|_GL_LINE}}, and {{KW|_GL_FILL}}. The initial value is {{KW|_GL_FILL}} for both front- and back-facing polygons. - - -{{PageDescription}} - -'''_glPolygonMode''' controls the interpretation of polygons for rasterization. {{Parameter|face}} describes which polygons {{Parameter|mode}} applies to: both front and back-facing polygons ({{KW|_GL_FRONT_AND_BACK}}). The polygon mode affects only the final rasterization of polygons. In particular, a polygon's vertices are lit and the polygon is clipped and possibly culled before these modes are applied. - -Three modes are defined and can be specified in {{Parameter|mode}}: - -; {{KW|_GL_POINT}} -: Polygon vertices that are marked as the start of a boundary edge are drawn as points. Point attributes such as {{KW|_GL_POINT_SIZE}} and {{KW|_GL_POINT_SMOOTH}} control the rasterization of the points. Polygon rasterization attributes other than {{KW|_GL_POLYGON_MODE}} have no effect. -; {{KW|_GL_LINE}} -: Boundary edges of the polygon are drawn as line segments. Line attributes such as {{KW|_GL_LINE_WIDTH}} and {{KW|_GL_LINE_SMOOTH}} control the rasterization of the lines. Polygon rasterization attributes other than {{KW|_GL_POLYGON_MODE}} have no effect. -; {{KW|_GL_FILL}} -: The interior of the polygon is filled. Polygon attributes such as {{KW|_GL_POLYGON_SMOOTH}} control the rasterization of the polygon. -== Examples == - -To draw a surface with outlined polygons, call - -&lt;source lang=&quot;cpp&quot;&gt; - -glPolygonMode(, ); - -&lt;/source&gt; - - -{{PageNotes}} - -Vertices are marked as boundary or nonboundary with an edge flag. Edge flags are generated internally by the GL when it decomposes triangle stips and fans. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if either {{Parameter|face}} or {{Parameter|mode}} is not an accepted value. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_POLYGON_MODE}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glLineWidth}}, {{KW|_glPointSize}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glPolygonOffset.txt b/internal/help/_glPolygonOffset.txt deleted file mode 100644 index 2444e7546..000000000 --- a/internal/help/_glPolygonOffset.txt +++ /dev/null @@ -1,38 +0,0 @@ -'''_glPolygonOffset:''' set the scale and units used to calculate depth values - - -{{PageSyntax}} - - SUB _glPolygonOffset (BYVAL factor AS SINGLE, BYVAL units AS SINGLE) - void '''_glPolygonOffset'''(GLfloat {{Parameter|factor}}, GLfloat {{Parameter|units}}); - - -; factor -: Specifies a scale factor that is used to create a variable depth offset for each polygon. The initial value is 0. -; units -: Is multiplied by an implementation-specific value to create a constant depth offset. The initial value is 0. - - -{{PageDescription}} - -When {{KW|_GL_POLYGON_OFFSET_FILL}}, {{KW|_GL_POLYGON_OFFSET_LINE}}, or {{KW|_GL_POLYGON_OFFSET_POINT}} is enabled, each fragment's ''depth'' value will be offset after it is interpolated from the ''depth'' values of the appropriate vertices. The value of the offset is ''factor'' * ''DZ'' + ''r'' * ''units'', where ''DZ'' is a measurement of the change in depth relative to the screen area of the polygon, and ''r'' is the smallest value that is guaranteed to produce a resolvable offset for a given implementation. The offset is added before the depth test is performed and before the value is written into the depth buffer. - -'''_glPolygonOffset''' is useful for rendering hidden-line images, for applying decals to surfaces, and for rendering solids with highlighted edges. - - -{{PageUseWith}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_POLYGON_OFFSET_FILL}}, {{KW|_GL_POLYGON_OFFSET_LINE}}, or {{KW|_GL_POLYGON_OFFSET_POINT}}. - -{{KW|_glGet}} with argument {{KW|_GL_POLYGON_OFFSET_FACTOR}} or {{KW|_GL_POLYGON_OFFSET_UNITS}}. - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glDepthFunc}}, {{KW|_glEnable}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glReadBuffer.txt b/internal/help/_glReadBuffer.txt deleted file mode 100644 index 98182813f..000000000 --- a/internal/help/_glReadBuffer.txt +++ /dev/null @@ -1,47 +0,0 @@ -'''_glReadBuffer:''' select a color buffer source for pixel read operations from the current read framebuffer. - - -{{PageSyntax}} - - SUB _glReadBuffer (BYVAL mode AS _UNSIGNED LONG) - void '''_glReadBuffer'''(GLenum {{Parameter|mode}}); - - -; mode -: Specifies a color buffer. Accepted values are {{KW|_GL_FRONT_LEFT}}, {{KW|_GL_FRONT_RIGHT}}, {{KW|_GL_BACK_LEFT}}, {{KW|_GL_BACK_RIGHT}}, {{KW|_GL_FRONT}}, {{KW|_GL_BACK}}, {{KW|_GL_LEFT}}, {{KW|_GL_RIGHT}}, and the constants {{KW|_GL_COLOR_ATTACHMENT''i''}}. - - -{{PageDescription}} - -'''_glReadBuffer''' specifies which color buffer within the current bound {{KW|_GL_READ_FRAMEBUFFER}} will be used as the source for pixel reading commands. These commands include: {{KW|_glBlitFramebuffer}}, {{KW|_glReadPixels}}, {{KW|_glCopyTexImage1D}}, {{KW|_glCopyTexImage2D}}, {{KW|_glCopyTexSubImage1D}}, {{KW|_glCopyTexSubImage2D}}, and {{KW|_glCopyTexSubImage3D}}. - -{{Parameter|mode}} accepts one of twelve or more predefined values. If the [[default framebuffer]] (the zero [[framebuffer object]])is bound to {{KW|_GL_READ_FRAMEBUFFER}}, then the following enumerators can be used: {{KW|_GL_FRONT}}, {{KW|_GL_LEFT}}, and {{KW|_GL_FRONT_LEFT}} all name the front left buffer, {{KW|_GL_FRONT_RIGHT}} and {{KW|_GL_RIGHT}} name the front right buffer, and {{KW|_GL_BACK_LEFT}} and {{KW|_GL_BACK}} name the back left buffer. Nonstereo double-buffered configurations have only a front left and a back left buffer. Single-buffered configurations have a front left and a front right buffer if stereo, and only a front left buffer if nonstereo. - -If a non-zero framebuffer object is bound, then the constants {{KW|_GL_COLOR_ATTACHMENT''i''}} may be used to indicate the ''i''&lt;sup&gt;th&lt;/sup&gt; color attachment, where ''i'' ranges from zero to the value of {{KW|_GL_MAX_COLOR_ATTACHMENTS}} minus one. - -It is an error to specify a nonexistent buffer to '''_glReadBuffer'''. - -For the default framebuffer, {{Parameter|mode}} is initially {{KW|_GL_FRONT}} in single-buffered configurations and {{KW|_GL_BACK}} in double-buffered configurations. For framebuffer objects, the default read buffer is {{KW|_GL_COLOR_ATTACHMENT0}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|mode}} is not one of the twelve (or more) accepted values. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|mode}} specifies a buffer that does not exist. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_READ_BUFFER}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindFramebuffer}}, {{KW|_glDrawBuffer}}, {{KW|_glDrawBuffers}}, {{KW|_glReadPixels}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2011 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glReadPixels.txt b/internal/help/_glReadPixels.txt deleted file mode 100644 index 083e476b4..000000000 --- a/internal/help/_glReadPixels.txt +++ /dev/null @@ -1,201 +0,0 @@ -'''_glReadPixels:''' read a block of pixels from the frame buffer - - -{{PageSyntax}} - - SUB _glReadPixels (BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG, BYVAL height AS LONG, BYVAL format AS _UNSIGNED LONG, BYVAL type AS _UNSIGNED LONG, pixels AS _OFFSET) - void '''_glReadPixels'''(GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}, GLenum {{Parameter|format}}, GLenum {{Parameter|type}}, GLvoid * {{Parameter|data}}); - - -; x, y -: Specify the window coordinates of the first pixel that is read from the frame buffer. This location is the lower left corner of a rectangular block of pixels. -; width, height -: Specify the dimensions of the pixel rectangle. {{Parameter|width}} and {{Parameter|height}} of one correspond to a single pixel. -{{Template:Glapi pixeltransferupparams|read=|}} - - -{{PageDescription}} - -'''_glReadPixels''' returns pixel data from the frame buffer, starting with the pixel whose lower left corner is at location ({{Parameter|x}}, {{Parameter|y}}), into client memory starting at location {{Parameter|data}}. Several parameters control the processing of the pixel data before it is placed into client memory. These parameters are set with {{KW|_glPixelStore}}. This reference page describes the effects on '''_glReadPixels''' of most, but not all of the parameters specified by these three commands. - -If a non-zero named buffer object is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target (see {{KW|_glBindBuffer}}) while a block of pixels is requested, {{Parameter|data}} is treated as a byte offset into the buffer object's data store rather than a pointer to client memory. - -'''_glReadPixels''' returns values from each pixel with lower left corner at (''x'' + ''i'', ''y'' + ''j'') for 0 &amp;le; ''i'' &lt; ''width'' and 0 &amp;le; ''j'' &lt; ''height''. This pixel is said to be the ''i''th pixel in the ''j''th row. Pixels are returned in row order from the lowest to the highest row, left to right in each row. - -{{Parameter|format}} specifies the format for the returned pixel values; accepted values are: - -; {{KW|_GL_STENCIL_INDEX}} -: Stencil values are read from the stencil buffer. Each index is converted to fixed point, shifted left or right depending on the value and sign of {{KW|_GL_INDEX_SHIFT}}, and added to {{KW|_GL_INDEX_OFFSET}}. If {{KW|_GL_MAP_STENCIL}} is {{KW|_GL_TRUE}}, indices are replaced by their mappings in the table {{KW|_GL_PIXEL_MAP_S_TO_S}}. -; {{KW|_GL_DEPTH_COMPONENT}} -: Depth values are read from the depth buffer. Each component is converted to floating point such that the minimum depth value maps to 0 and the maximum value maps to 1. Each component is then multiplied by {{KW|_GL_DEPTH_SCALE}}, added to {{KW|_GL_DEPTH_BIAS}}, and finally clamped to the range [0, 1]. -; {{KW|_GL_DEPTH_STENCIL}} -: Values are taken from both the depth and stencil buffers. The {{Parameter|type}} parameter must be {{KW|_GL_UNSIGNED_INT_24_8}} or {{KW|_GL_FLOAT_32_UNSIGNED_INT_24_8_REV}}. -; {{KW|_GL_RED}} -; {{KW|_GL_GREEN}} -; {{KW|_GL_BLUE}} -; {{KW|_GL_RGB}} -; {{KW|_GL_BGR}} -; {{KW|_GL_RGBA}} -; {{KW|_GL_BGRA}} -: Finally, the indices or components are converted to the proper format, as specified by {{Parameter|type}}. If {{Parameter|format}} is {{KW|_GL_STENCIL_INDEX}} and {{Parameter|type}} is not {{KW|_GL_FLOAT}}, each index is masked with the mask value given in the following table. If {{Parameter|type}} is {{KW|_GL_FLOAT}}, then each integer index is converted to single-precision floating-point format. - -If {{Parameter|format}} is {{KW|_GL_RED}}, {{KW|_GL_GREEN}}, {{KW|_GL_BLUE}}, {{KW|_GL_RGB}}, {{KW|_GL_BGR}}, {{KW|_GL_RGBA}}, or {{KW|_GL_BGRA}} and {{Parameter|type}} is not {{KW|_GL_FLOAT}}, each component is multiplied by the multiplier shown in the following table. If type is {{KW|_GL_FLOAT}}, then each component is passed as is (or converted to the client's single-precision floating-point format if it is different from the one used by the GL). - -{| class=&quot;wikitable&quot; -|+ -! {{Parameter|type}} -! '''Index Mask''' -! '''Component Conversion''' -|+ -| {{KW|_GL_UNSIGNED_BYTE}} -| 2&lt;sup&gt;8&lt;/sup&gt; - 1 -| &lt;math&gt;(2^8 - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_BYTE}} -| 2&lt;sup&gt;7&lt;/sup&gt; - 1 -| &lt;math&gt;\tfrac{(2^8 - 1)c - 1}{2}&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT}} -| 2&lt;sup&gt;16&lt;/sup&gt; - 1 -| &lt;math&gt;(2^{16} - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_SHORT}} -| 2&lt;sup&gt;15&lt;/sup&gt; - 1 -| &lt;math&gt;\tfrac{(2^{16} - 1)c - 1}{2}&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT}} -| 2&lt;sup&gt;32&lt;/sup&gt; - 1 -| &lt;math&gt;(2^{32} - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_INT}} -| 2&lt;sup&gt;31&lt;/sup&gt; - 1 -| &lt;math&gt;\tfrac{(2^{32} - 1)c - 1}{2}&lt;/math&gt; -|+ -| {{KW|_GL_HALF_FLOAT}} -| none -| ''c'' -|+ -| {{KW|_GL_FLOAT}} -| none -| ''c'' -|+ -| {{KW|_GL_UNSIGNED_BYTE_3_3_2}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT_5_6_5}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT_8_8_8_8}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT_10_10_10_2}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT_24_8}} -| 2&lt;sup&gt;N&lt;/sup&gt; - 1 -| &lt;math&gt;(2^N - 1)c&lt;/math&gt; -|+ -| {{KW|_GL_UNSIGNED_INT_10F_11F_11F_REV}} -| -- -| Special -|+ -| {{KW|_GL_UNSIGNED_INT_5_9_9_9_REV}} -| -- -| Special -|+ -| {{KW|_GL_FLOAT_32_UNSIGNED_INT_24_8_REV}} -| none -| ''c'' (Depth Only) -|} - -Return values are placed in memory as follows. If {{Parameter|format}} is {{KW|_GL_STENCIL_INDEX}}, {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_RED}}, {{KW|_GL_GREEN}}, or {{KW|_GL_BLUE}}, a single value is returned and the data for the ''i''th pixel in the ''j''th row is placed in location ''j'' * ''width'' + ''i''. {{KW|_GL_RGB}} and {{KW|_GL_BGR}} return three values, {{KW|_GL_RGBA}} and {{KW|_GL_BGRA}} return four values for each pixel, with all values corresponding to a single pixel occupying contiguous space in {{Parameter|data}}. Storage parameters set by {{KW|_glPixelStore}}, such as {{KW|_GL_PACK_LSB_FIRST}} and {{KW|_GL_PACK_SWAP_BYTES}}, affect the way that data is written into memory. See {{KW|_glPixelStore}} for a description. - - -{{PageNotes}} - -Values for pixels that lie outside the window connected to the current GL context are undefined. - -If an error is generated, no change is made to the contents of {{Parameter|data}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|format}} or {{Parameter|type}} is not an accepted value. - -{{KW|_GL_INVALID_VALUE}} is generated if either {{Parameter|width}} or {{Parameter|height}} is negative. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|format}} is {{KW|_GL_STENCIL_INDEX}} and there is no stencil buffer. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|format}} is {{KW|_GL_DEPTH_COMPONENT}} and there is no depth buffer. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|format}} is {{KW|_GL_DEPTH_STENCIL}} and there is no depth buffer or if there is no stencil buffer. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|format}} is {{KW|_GL_DEPTH_STENCIL}} and {{Parameter|type}} is not {{KW|_GL_UNSIGNED_INT_24_8}} or {{KW|_GL_FLOAT_32_UNSIGNED_INT_24_8_REV}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, or {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}} and {{Parameter|format}} is not {{KW|_GL_RGB}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, or {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}} and {{Parameter|format}} is neither {{KW|_GL_RGBA}} nor {{KW|_GL_BGRA}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target and the data would be packed to the buffer object such that the memory writes required would exceed the data store size. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_PACK_BUFFER}} target and {{Parameter|data}} is not evenly divisible into the number of bytes needed to store in memory a datum indicated by {{Parameter|type}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{KW|_GL_READ_FRAMEBUFFER_BINDING}} is non-zero, the read framebuffer is complete, and the value of {{KW|_GL_SAMPLE_BUFFERS}} for the read framebuffer is greater than zero. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_INDEX_MODE}} - -{{KW|_glGet}} with argument {{KW|_GL_PIXEL_PACK_BUFFER_BINDING}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBindFramebuffer}}, {{KW|_glClampColor}}, {{KW|_glDrawBuffers}}, {{KW|_glDrawBuffers}}, {{KW|_glPixelStore}} - -[[Pixel Transfer]], [[Pixel Buffer Object]] - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glScissor.txt b/internal/help/_glScissor.txt deleted file mode 100644 index 2fac99238..000000000 --- a/internal/help/_glScissor.txt +++ /dev/null @@ -1,45 +0,0 @@ -'''_glScissor:''' define the scissor box - - -{{PageSyntax}} - - SUB _glScissor (BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG, BYVAL height AS LONG) - void '''_glScissor'''(GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}); - - -; x, y -: Specify the lower left corner of the scissor box. Initially (0, 0). -; width, height -: Specify the width and height of the scissor box. When a GL context is first attached to a window, {{Parameter|width}} and {{Parameter|height}} are set to the dimensions of that window. - - -{{PageDescription}} - -'''_glScissor''' defines a rectangle, called the scissor box, in window coordinates. The first two arguments, {{Parameter|x}} and {{Parameter|y}}, specify the lower left corner of the box. {{Parameter|width}} and {{Parameter|height}} specify the width and height of the box. - -To enable and disable the scissor test, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_SCISSOR_TEST}}. The test is initially disabled. While the test is enabled, only pixels that lie within the scissor box can be modified by drawing commands. Window coordinates have integer values at the shared corners of frame buffer pixels. {{code|glScissor(0,0,1,1)}} allows modification of only the lower left pixel in the window, and {{code|glScissor(0,0,0,0)}} doesn't allow modification of any pixels in the window. - -When the scissor test is disabled, it is as though the scissor box includes the entire window. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if either {{Parameter|width}} or {{Parameter|height}} is negative. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_SCISSOR_BOX}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_SCISSOR_TEST}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable|(GL_SCISSOR_TEST)}}, {{KW|_glScissorArray}}, {{KW|_glScissorIndexed}}, {{KW|_glViewport}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glStencilFunc.txt b/internal/help/_glStencilFunc.txt deleted file mode 100644 index 03c51fc43..000000000 --- a/internal/help/_glStencilFunc.txt +++ /dev/null @@ -1,76 +0,0 @@ -'''_glStencilFunc:''' set front and back function and reference value for stencil testing - - -{{PageSyntax}} - - SUB _glStencilFunc (BYVAL func AS _UNSIGNED LONG, BYVAL ref AS LONG, BYVAL mask AS _UNSIGNED LONG) - void '''_glStencilFunc'''(GLenum {{Parameter|func}}, GLint {{Parameter|ref}}, GLuint {{Parameter|mask}}); - - -; func -: Specifies the test function. Eight symbolic constants are valid: {{KW|_GL_NEVER}}, {{KW|_GL_LESS}}, {{KW|_GL_LEQUAL}}, {{KW|_GL_GREATER}}, {{KW|_GL_GEQUAL}}, {{KW|_GL_EQUAL}}, {{KW|_GL_NOTEQUAL}}, and {{KW|_GL_ALWAYS}}. The initial value is {{KW|_GL_ALWAYS}}. -; ref -: Specifies the reference value for the stencil test. {{Parameter|ref}} is clamped to the range [0, 2&lt;sup&gt;n&lt;/sup&gt; - 1, where ''n'' is the number of bitplanes in the stencil buffer. The initial value is 0. -; mask -: Specifies a mask that is ANDed with both the reference value and the stored stencil value when the test is done. The initial value is all 1's. - - -{{PageDescription}} - -Stenciling, like depth-buffering, enables and disables drawing on a per-pixel basis. Stencil planes are first drawn into using GL drawing primitives, then geometry and images are rendered using the stencil planes to mask out portions of the screen. Stenciling is typically used in multipass rendering algorithms to achieve special effects, such as decals, outlining, and constructive solid geometry rendering. - -The stencil test conditionally eliminates a pixel based on the outcome of a comparison between the reference value and the value in the stencil buffer. To enable and disable the test, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_STENCIL_TEST}}. To specify actions based on the outcome of the stencil test, call {{KW|_glStencilOp}} or {{KW|_glStencilOpSeparate}}. - -There can be two separate sets of {{Parameter|func}}, {{Parameter|ref}}, and {{Parameter|mask}} parameters; one affects back-facing polygons, and the other affects front-facing polygons as well as other non-polygon primitives. {{KW|_glStencilFunc}} sets both front and back stencil state to the same values. Use {{KW|_glStencilFuncSeparate}} to set front and back stencil state to different values. - -{{Parameter|func}} is a symbolic constant that determines the stencil comparison function. It accepts one of eight values, shown in the following list. {{Parameter|ref}} is an integer reference value that is used in the stencil comparison. It is clamped to the range [0, 2&lt;sup&gt;n&lt;/sup&gt; - 1], where ''n'' is the number of bitplanes in the stencil buffer. {{Parameter|mask}} is bitwise ANDed with both the reference value and the stored stencil value, with the ANDed values participating in the comparison. - -If ''stencil'' represents the value stored in the corresponding stencil buffer location, the following list shows the effect of each comparison function that can be specified by {{Parameter|func}}. Only if the comparison succeeds is the pixel passed through to the next stage in the rasterization process (see {{KW|_glStencilOp}}). All tests treat ''stencil'' values as unsigned integers in the range [0, 2&lt;sup&gt;n&lt;/sup&gt; - 1], where ''n'' is the number of bitplanes in the stencil buffer. - -The following values are accepted by {{Parameter|func}}: - -; {{KW|_GL_NEVER}} -: Always fails. -; {{KW|_GL_LESS}} -: Passes if ( {{Parameter|ref}} &amp; {{Parameter|mask}} ) &lt; ( ''stencil'' &amp; {{Parameter|mask}} ). -; {{KW|_GL_LEQUAL}} -: Passes if ( {{Parameter|ref}} &amp; {{Parameter|mask}} ) &lt;= ( ''stencil'' &amp; {{Parameter|mask}} ). -; {{KW|_GL_GREATER}} -: Passes if ( {{Parameter|ref}} &amp; {{Parameter|mask}} ) &gt; ( ''stencil'' &amp; {{Parameter|mask}} ). -; {{KW|_GL_GEQUAL}} -: Passes if ( {{Parameter|ref}} &amp; {{Parameter|mask}} ) &gt;= ( ''stencil'' &amp; {{Parameter|mask}} ). -; {{KW|_GL_EQUAL}} -: Passes if ( {{Parameter|ref}} &amp; {{Parameter|mask}} ) = ( ''stencil'' &amp; {{Parameter|mask}} ). -; {{KW|_GL_NOTEQUAL}} -: Passes if ( {{Parameter|ref}} &amp; {{Parameter|mask}} ) != ( ''stencil'' &amp; {{Parameter|mask}} ). -; {{KW|_GL_ALWAYS}} -: Always passes. - -{{PageNotes}} - -Initially, the stencil test is disabled. If there is no stencil buffer, no stencil modification can occur and it is as if the stencil test always passes. - -{{KW|_glStencilFunc}} is the same as calling {{KW|_glStencilFuncSeparate}} with {{Parameter|face}} set to {{KW|_GL_FRONT_AND_BACK}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|func}} is not one of the eight accepted values. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_STENCIL_FUNC}}, {{KW|_GL_STENCIL_VALUE_MASK}}, {{KW|_GL_STENCIL_REF}}, {{KW|_GL_STENCIL_BACK_FUNC}}, {{KW|_GL_STENCIL_BACK_VALUE_MASK}}, {{KW|_GL_STENCIL_BACK_REF}}, or {{KW|_GL_STENCIL_BITS}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_STENCIL_TEST}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glEnable|(GL_STENCIL_TEST)}}, {{KW|_glLogicOp}}, {{KW|_glStencilFuncSeparate}}, {{KW|_glStencilMask}}, {{KW|_glStencilMaskSeparate}}, {{KW|_glStencilOp}}, {{KW|_glStencilOpSeparate}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glStencilMask.txt b/internal/help/_glStencilMask.txt deleted file mode 100644 index 32e741a2c..000000000 --- a/internal/help/_glStencilMask.txt +++ /dev/null @@ -1,39 +0,0 @@ -'''_glStencilMask:''' control the front and back writing of individual bits in the stencil planes - - -{{PageSyntax}} - - SUB _glStencilMask (BYVAL mask AS _UNSIGNED LONG) - void '''_glStencilMask'''(GLuint {{Parameter|mask}}); - - -; mask -: Specifies a bit mask to enable and disable writing of individual bits in the stencil planes. Initially, the mask is all 1's. - - -{{PageDescription}} - -'''_glStencilMask''' controls the writing of individual bits in the stencil planes. The least significant ''n'' bits of {{Parameter|mask}}, where ''n'' is the number of bits in the stencil buffer, specify a mask. Where a 1 appears in the mask, it's possible to write to the corresponding bit in the stencil buffer. Where a 0 appears, the corresponding bit is write-protected. Initially, all bits are enabled for writing. - -There can be two separate {{Parameter|mask}} writemasks; one affects back-facing polygons, and the other affects front-facing polygons as well as other non-polygon primitives. {{KW|_glStencilMask}} sets both front and back stencil writemasks to the same values. Use {{KW|_glStencilMaskSeparate}} to set front and back stencil writemasks to different values. - - -{{PageNotes}} - -{{KW|_glStencilMask}} is the same as calling {{KW|_glStencilMaskSeparate}} with {{Parameter|face}} set to {{KW|_GL_FRONT_AND_BACK}}. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_STENCIL_WRITEMASK}}, {{KW|_GL_STENCIL_BACK_WRITEMASK}}, or {{KW|_GL_STENCIL_BITS}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glClear}}, {{KW|_glClearBuffer}}, {{KW|_glColorMask}}, {{KW|_glDepthMask}}, {{KW|_glStencilFunc}}, {{KW|_glStencilFuncSeparate}}, {{KW|_glStencilMaskSeparate}}, {{KW|_glStencilOp}}, {{KW|_glStencilOpSeparate}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glStencilOp.txt b/internal/help/_glStencilOp.txt deleted file mode 100644 index 366ebeb7f..000000000 --- a/internal/help/_glStencilOp.txt +++ /dev/null @@ -1,76 +0,0 @@ -'''_glStencilOp:''' set front and back stencil test actions - - -{{PageSyntax}} - - SUB _glStencilOp (BYVAL fail AS _UNSIGNED LONG, BYVAL zfail AS _UNSIGNED LONG, BYVAL zpass AS _UNSIGNED LONG) - void '''_glStencilOp'''(GLenum {{Parameter|sfail}}, GLenum {{Parameter|dpfail}}, GLenum {{Parameter|dppass}}); - - -; sfail -: Specifies the action to take when the stencil test fails. Eight symbolic constants are accepted: {{KW|_GL_KEEP}}, {{KW|_GL_ZERO}}, {{KW|_GL_REPLACE}}, {{KW|_GL_INCR}}, {{KW|_GL_INCR_WRAP}}, {{KW|_GL_DECR}}, {{KW|_GL_DECR_WRAP}}, and {{KW|_GL_INVERT}}. The initial value is {{KW|_GL_KEEP}}. -; dpfail -: Specifies the stencil action when the stencil test passes, but the depth test fails. {{Parameter|dpfail}} accepts the same symbolic constants as {{Parameter|sfail}}. The initial value is {{KW|_GL_KEEP}}. -; dppass -: Specifies the stencil action when both the stencil test and the depth test pass, or when the stencil test passes and either there is no depth buffer or depth testing is not enabled. {{Parameter|dppass}} accepts the same symbolic constants as {{Parameter|sfail}}. The initial value is {{KW|_GL_KEEP}}. - - -{{PageDescription}} - -Stenciling, like depth-buffering, enables and disables drawing on a per-pixel basis. You draw into the stencil planes using GL drawing primitives, then render geometry and images, using the stencil planes to mask out portions of the screen. Stenciling is typically used in multipass rendering algorithms to achieve special effects, such as decals, outlining, and constructive solid geometry rendering. - -The stencil test conditionally eliminates a pixel based on the outcome of a comparison between the value in the stencil buffer and a reference value. To enable and disable the test, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_STENCIL_TEST}}; to control it, call {{KW|_glStencilFunc}} or {{KW|_glStencilFuncSeparate}}. - -There can be two separate sets of {{Parameter|sfail}}, {{Parameter|dpfail}}, and {{Parameter|dppass}} parameters; one affects back-facing polygons, and the other affects front-facing polygons as well as other non-polygon primitives. {{KW|_glStencilOp}} sets both front and back stencil state to the same values. Use {{KW|_glStencilOpSeparate}} to set front and back stencil state to different values. - -'''_glStencilOp''' takes three arguments that indicate what happens to the stored stencil value while stenciling is enabled. If the stencil test fails, no change is made to the pixel's color or depth buffers, and {{Parameter|sfail}} specifies what happens to the stencil buffer contents. The following eight actions are possible. - -; {{KW|_GL_KEEP}} -: Keeps the current value. -; {{KW|_GL_ZERO}} -: Sets the stencil buffer value to 0. -; {{KW|_GL_REPLACE}} -: Sets the stencil buffer value to ''ref'', as specified by {{KW|_glStencilFunc}}. -; {{KW|_GL_INCR}} -: Increments the current stencil buffer value. Clamps to the maximum representable unsigned value. -; {{KW|_GL_INCR_WRAP}} -: Increments the current stencil buffer value. Wraps stencil buffer value to zero when incrementing the maximum representable unsigned value. -; {{KW|_GL_DECR}} -: Decrements the current stencil buffer value. Clamps to 0. -; {{KW|_GL_DECR_WRAP}} -: Decrements the current stencil buffer value. Wraps stencil buffer value to the maximum representable unsigned value when decrementing a stencil buffer value of zero. -; {{KW|_GL_INVERT}} -: Bitwise inverts the current stencil buffer value. -Stencil buffer values are treated as unsigned integers. When incremented and decremented, values are clamped to 0 and 2&lt;sup&gt;n&lt;/sup&gt; - 1, where ''n'' is the value returned by querying {{KW|_GL_STENCIL_BITS}}. - -The other two arguments to '''_glStencilOp''' specify stencil buffer actions that depend on whether subsequent depth buffer tests succeed ({{Parameter|dppass}}) or fail ({{Parameter|dpfail}}) (see {{KW|_glDepthFunc}}). The actions are specified using the same eight symbolic constants as {{Parameter|sfail}}. Note that {{Parameter|dpfail}} is ignored when there is no depth buffer, or when the depth buffer is not enabled. In these cases, {{Parameter|sfail}} and {{Parameter|dppass}} specify stencil action when the stencil test fails and passes, respectively. - - -{{PageNotes}} - -Initially the stencil test is disabled. If there is no stencil buffer, no stencil modification can occur and it is as if the stencil tests always pass, regardless of any call to '''_glStencilOp'''. - -{{KW|_glStencilOp}} is the same as calling {{KW|_glStencilOpSeparate}} with {{Parameter|face}} set to {{KW|_GL_FRONT_AND_BACK}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|sfail}}, {{Parameter|dpfail}}, or {{Parameter|dppass}} is any value other than the defined constant values. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_STENCIL_FAIL}}, {{KW|_GL_STENCIL_PASS_DEPTH_PASS}}, {{KW|_GL_STENCIL_PASS_DEPTH_FAIL}}, {{KW|_GL_STENCIL_BACK_FAIL}}, {{KW|_GL_STENCIL_BACK_PASS_DEPTH_PASS}}, {{KW|_GL_STENCIL_BACK_PASS_DEPTH_FAIL}}, or {{KW|_GL_STENCIL_BITS}} - -{{KW|_glIsEnabled}} with argument {{KW|_GL_STENCIL_TEST}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glBlendFunc}}, {{KW|_glDepthFunc}}, {{KW|_glEnable}}, {{KW|_glLogicOp}}, {{KW|_glStencilFunc}}, {{KW|_glStencilFuncSeparate}}, {{KW|_glStencilMask}}, {{KW|_glStencilMaskSeparate}}, {{KW|_glStencilOpSeparate}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glTexImage1D.txt b/internal/help/_glTexImage1D.txt deleted file mode 100644 index 315fb20e3..000000000 --- a/internal/help/_glTexImage1D.txt +++ /dev/null @@ -1,135 +0,0 @@ -'''_glTexImage1D:''' specify a one-dimensional texture image - - -{{PageSyntax}} - - SUB _glTexImage1D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL internalformat AS LONG, BYVAL width AS LONG, BYVAL border AS LONG, BYVAL format AS _UNSIGNED LONG, BYVAL type AS _UNSIGNED LONG, pixels AS _OFFSET) - void '''_glTexImage1D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLint {{Parameter|internalFormat}}, GLsizei {{Parameter|width}}, GLint {{Parameter|border}}, GLenum {{Parameter|format}}, GLenum {{Parameter|type}}, const GLvoid * {{Parameter|data}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_1D}} or {{KW|_GL_PROXY_TEXTURE_1D}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; internalFormat -: Specifies the number of color components in the texture. Must be one of base internal formats given in Table 1, one of the sized internal formats given in Table 2, or one of the compressed internal formats given in Table 3, below. -; width -: Specifies the width of the texture image. All implementations support texture images that are at least 1024 texels wide. The height of the 1D texture image is 1. -; border -: This value must be 0. -{{glapi pixeltransferupparams|}} - - -{{PageDescription}} - -Texturing maps a portion of a specified texture image onto each graphical primitive for which texturing is enabled. To enable and disable one-dimensional texturing, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_TEXTURE_1D}}. - -Texture images are defined with '''_glTexImage1D'''. The arguments describe the parameters of the texture image, such as width, width of the border, level-of-detail number (see {{KW|_glTexParameter}}), and the internal resolution and format used to store the image. The last three arguments describe how the image is represented in memory. - -If {{Parameter|target}} is {{KW|_GL_PROXY_TEXTURE_1D}}, no data is read from {{Parameter|data}}, but all of the texture image state is recalculated, checked for consistency, and checked against the implementation's capabilities. If the implementation cannot handle a texture of the requested texture size, it sets all of the image state to 0, but does not generate an error (see {{KW|_glGetError}}). To query for an entire mipmap array, use an image array level greater than or equal to 1. - -If {{Parameter|target}} is {{KW|_GL_TEXTURE_1D}}, data is read from {{Parameter|data}} as a sequence of signed or unsigned bytes, shorts, or longs, or single-precision floating-point values, depending on {{Parameter|type}}. These values are grouped into sets of one, two, three, or four values, depending on {{Parameter|format}}, to form elements. Each data byte is treated as eight 1-bit elements, with bit ordering determined by {{KW|_GL_UNPACK_LSB_FIRST}} (see {{KW|_glPixelStore}}). - -If a non-zero named buffer object is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target (see {{KW|_glBindBuffer}}) while a texture image is specified, {{Parameter|data}} is treated as a byte offset into the buffer object's data store. - -The first element corresponds to the left end of the texture array. Subsequent elements progress left-to-right through the remaining texels in the texture array. The final element corresponds to the right end of the texture array. - -{{Parameter|format}} determines the composition of each element in {{Parameter|data}}. It can assume one of these symbolic values: - -; {{KW|_GL_RED}} -: Each element is a single red component. The GL converts it to floating point and assembles it into an RGBA element by attaching 0 for green and blue, and 1 for alpha. Each component is then multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_RG}} -: Each element is a red/green pair. The GL converts it to floating point and assembles it into an RGBA element by attaching 0 for blue, and 1 for alpha. Each component is then multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_RGB}} or {{KW|_GL_BGR}} -: Each element is an RGB triple. The GL converts it to floating point and assembles it into an RGBA element by attaching 1 for alpha. Each component is then multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_RGBA}} or {{KW|_GL_BGRA}} -: Each element contains all four components. Each component is multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_DEPTH_COMPONENT}} -: Each element is a single depth value. The GL converts it to floating point, multiplies by the signed scale factor {{KW|_GL_DEPTH_SCALE}}, adds the signed bias {{KW|_GL_DEPTH_BIAS}}, and clamps to the range [0,1]. -If an application wants to store the texture at a certain resolution or in a certain format, it can request the resolution and format with {{Parameter|internalFormat}}. The GL will choose an internal representation that closely approximates that requested by {{Parameter|internalFormat}}, but it may not match exactly. (The representations specified by {{KW|_GL_RED}}, {{KW|_GL_RG}}, {{KW|_GL_RGB}} and {{KW|_GL_RGBA}} must match exactly.) - -{{Parameter|internalFormat}} may be one of the base internal formats shown in Table 1, below - -{{glapi baseformattable}} - -{{Parameter|internalFormat}} may also be one of the sized internal formats shown in Table 2, below - -{{glapi internalformattable}} - -Finally, {{Parameter|internalFormat}} may also be one of the generic or compressed compressed texture formats shown in Table 3 below - -{{glapi compressedformattable}} - -If the {{Parameter|internalFormat}} parameter is one of the generic compressed formats, {{KW|_GL_COMPRESSED_RED}}, {{KW|_GL_COMPRESSED_RG}}, {{KW|_GL_COMPRESSED_RGB}}, or {{KW|_GL_COMPRESSED_RGBA}}, the GL will replace the internal format with the symbolic constant for a specific internal format and compress the texture before storage. If no corresponding internal format is available, or the GL can not compress that image for any reason, the internal format is instead replaced with a corresponding base internal format. - -If the {{Parameter|internalFormat}} parameter is {{KW|_GL_SRGB}}, {{KW|_GL_SRGB8}}, {{KW|_GL_SRGB_ALPHA}}or {{KW|_GL_SRGB8_ALPHA8}}, the texture is treated as if the red, green, or blue components are encoded in the sRGB color space. Any alpha component is left unchanged. The conversion from the sRGB encoded component c&lt;sub&gt;s&lt;/sub&gt; to a linear component c&lt;sub&gt;l&lt;/sub&gt; is: - -{{glapi srgb equation}} - -Assume c&lt;sub&gt;s&lt;/sub&gt; is the sRGB component in the range [0,1]. - -Use the {{KW|_GL_PROXY_TEXTURE_1D}} target to try out a resolution and format. The implementation will update and recompute its best match for the requested storage resolution and format. To then query this state, call {{KW|_glGetTexLevelParameter}}. If the texture cannot be accommodated, texture state is set to 0. - -A one-component texture image uses only the red component of the RGBA color from {{Parameter|data}}. A two-component image uses the R and A values. A three-component image uses the R, G, and B values. A four-component image uses all of the RGBA components. - -Image-based shadowing can be enabled by comparing texture r coordinates to depth texture values to generate a boolean result. See {{KW|_glTexParameter}} for details on texture comparison. - - -{{PageNotes}} - -{{KW|_glPixelStore}} modes affect texture images. - -{{Parameter|data}} may be a null pointer. In this case texture memory is allocated to accommodate a texture of width {{Parameter|width}}. You can then download subtextures to initialize the texture memory. The image is undefined if the program tries to apply an uninitialized portion of the texture image to a primitive. - -'''_glTexImage1D''' specifies the one-dimensional texture for the current texture unit, specified with {{KW|_glActiveTexture}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_1D}} or {{KW|_GL_PROXY_TEXTURE_1D}}. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|format}} is not an accepted format constant. Format constants other than {{KW|_GL_STENCIL_INDEX}} are accepted. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|type}} is not a type constant. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(''max''), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|internalFormat}} is not one of the accepted resolution and format symbolic constants. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} is less than 0 or greater than {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|border}} is not 0. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, or {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}} and {{Parameter|format}} is not {{KW|_GL_RGB}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, or {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}} and {{Parameter|format}} is neither {{KW|_GL_RGBA}} nor {{KW|_GL_BGRA}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|format}} is {{KW|_GL_DEPTH_COMPONENT}} and {{Parameter|internalFormat}} is not {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|internalFormat}} is {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32}}, and {{Parameter|format}} is not {{KW|_GL_DEPTH_COMPONENT}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the data would be unpacked from the buffer object such that the memory reads required would exceed the data store size. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and {{Parameter|data}} is not evenly divisible into the number of bytes needed to store in memory a datum indicated by {{Parameter|type}}. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - -{{KW|_glGet}} with argument {{KW|_GL_PIXEL_UNPACK_BUFFER_BINDING}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glTexBuffer}}, {{KW|_glTexBufferRange}}, {{KW|_glTexImage2D}}, {{KW|_glTexImage2DMultisample}}, {{KW|_glTexImage3D}}, {{KW|_glTexImage3DMultisample}}, {{KW|_glTexSubImage1D}}, {{KW|_glPixelStore}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2011 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glTexImage2D.txt b/internal/help/_glTexImage2D.txt deleted file mode 100644 index 153d155a6..000000000 --- a/internal/help/_glTexImage2D.txt +++ /dev/null @@ -1,155 +0,0 @@ -'''_glTexImage2D:''' specify a two-dimensional texture image - - -{{PageSyntax}} - - SUB _glTexImage2D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL internalformat AS LONG, BYVAL width AS LONG, BYVAL height AS LONG, BYVAL border AS LONG, BYVAL format AS _UNSIGNED LONG, BYVAL type AS _UNSIGNED LONG, pixels AS _OFFSET) - void '''_glTexImage2D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLint {{Parameter|internalFormat}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}, GLint {{Parameter|border}}, GLenum {{Parameter|format}}, GLenum {{Parameter|type}}, const GLvoid * {{Parameter|data}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_PROXY_TEXTURE_2D}}, {{KW|_GL_TEXTURE_1D_ARRAY}}, {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}}, {{KW|_GL_TEXTURE_RECTANGLE}}, {{KW|_GL_PROXY_TEXTURE_RECTANGLE}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}, or {{KW|_GL_PROXY_TEXTURE_CUBE_MAP}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. If {{Parameter|target}} is {{KW|_GL_TEXTURE_RECTANGLE}} or {{KW|_GL_PROXY_TEXTURE_RECTANGLE}}, {{Parameter|level}} must be 0. -; internalFormat -: Specifies the number of color components in the texture. Must be one of base internal formats given in Table 1, one of the sized internal formats given in Table 2, or one of the compressed internal formats given in Table 3, below. -; width -: Specifies the width of the texture image. All implementations support texture images that are at least 1024 texels wide. -; height -: Specifies the height of the texture image, or the number of layers in a texture array, in the case of the {{KW|_GL_TEXTURE_1D_ARRAY}} and {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}} targets. All implementations support 2D texture images that are at least 1024 texels high, and texture arrays that are at least 256 layers deep. -; border -: This value must be 0. -{{glapi pixeltransferupparams}} - - -{{PageDescription}} - -Texturing allows elements of an image array to be read by shaders. - -To define texture images, call '''_glTexImage2D'''. The arguments describe the parameters of the texture image, such as height, width, width of the border, level-of-detail number (see {{KW|_glTexParameter}}), and number of color components provided. The last three arguments describe how the image is represented in memory. - -If {{Parameter|target}} is {{KW|_GL_PROXY_TEXTURE_2D}}, {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}}, {{KW|_GL_PROXY_TEXTURE_CUBE_MAP}}, or {{KW|_GL_PROXY_TEXTURE_RECTANGLE}}, no data is read from {{Parameter|data}}, but all of the texture image state is recalculated, checked for consistency, and checked against the implementation's capabilities. If the implementation cannot handle a texture of the requested texture size, it sets all of the image state to 0, but does not generate an error (see {{KW|_glGetError}}). To query for an entire mipmap array, use an image array level greater than or equal to 1. - -If {{Parameter|target}} is {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_RECTANGLE}} or one of the {{KW|_GL_TEXTURE_CUBE_MAP}} targets, data is read from {{Parameter|data}} as a sequence of signed or unsigned bytes, shorts, or longs, or single-precision floating-point values, depending on {{Parameter|type}}. These values are grouped into sets of one, two, three, or four values, depending on {{Parameter|format}}, to form elements. Each data byte is treated as eight 1-bit elements, with bit ordering determined by {{KW|_GL_UNPACK_LSB_FIRST}} (see {{KW|_glPixelStore}}). - -If {{Parameter|target}} is {{KW|_GL_TEXTURE_1D_ARRAY}}, data is interpreted as an array of one-dimensional images. - -If a non-zero named buffer object is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target (see {{KW|_glBindBuffer}}) while a texture image is specified, {{Parameter|data}} is treated as a byte offset into the buffer object's data store. - -The first element corresponds to the lower left corner of the texture image. Subsequent elements progress left-to-right through the remaining texels in the lowest row of the texture image, and then in successively higher rows of the texture image. The final element corresponds to the upper right corner of the texture image. - -{{Parameter|format}} determines the composition of each element in {{Parameter|data}}. It can assume one of these symbolic values: - -; {{KW|_GL_RED}} -: Each element is a single red component. The GL converts it to floating point and assembles it into an RGBA element by attaching 0 for green and blue, and 1 for alpha. Each component is then multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_RG}} -: Each element is a red/green double. The GL converts it to floating point and assembles it into an RGBA element by attaching 0 for blue, and 1 for alpha. Each component is then multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_RGB}} -: ; {{KW|_GL_BGR}} -: Each element is an RGB triple. The GL converts it to floating point and assembles it into an RGBA element by attaching 1 for alpha. Each component is then multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_RGBA}} -: ; {{KW|_GL_BGRA}} -: Each element contains all four components. Each component is multiplied by the signed scale factor {{KW|_GL_c_SCALE}}, added to the signed bias {{KW|_GL_c_BIAS}}, and clamped to the range [0,1]. -; {{KW|_GL_DEPTH_COMPONENT}} -: Each element is a single depth value. The GL converts it to floating point, multiplies by the signed scale factor {{KW|_GL_DEPTH_SCALE}}, adds the signed bias {{KW|_GL_DEPTH_BIAS}}, and clamps to the range [0,1]. -; {{KW|_GL_DEPTH_STENCIL}} -: Each element is a pair of depth and stencil values. The depth component of the pair is interpreted as in {{KW|_GL_DEPTH_COMPONENT}}. The stencil component is interpreted based on specified the depth + stencil internal format. -If an application wants to store the texture at a certain resolution or in a certain format, it can request the resolution and format with {{Parameter|internalFormat}}. The GL will choose an internal representation that closely approximates that requested by {{Parameter|internalFormat}}, but it may not match exactly. (The representations specified by {{KW|_GL_RED}}, {{KW|_GL_RG}}, {{KW|_GL_RGB}}, and {{KW|_GL_RGBA}} must match exactly.) - -{{Parameter|internalFormat}} may be one of the base internal formats shown in Table 1, below - -{{glapi baseformattable}} - -{{Parameter|internalFormat}} may also be one of the sized internal formats shown in Table 2, below - -{{glapi internalformattable}} - -Finally, {{Parameter|internalFormat}} may also be one of the generic or compressed compressed texture formats shown in Table 3 below - -{{glapi compressedformattable}} - -If the {{Parameter|internalFormat}} parameter is one of the generic compressed formats, {{KW|_GL_COMPRESSED_RED}}, {{KW|_GL_COMPRESSED_RG}}, {{KW|_GL_COMPRESSED_RGB}}, or {{KW|_GL_COMPRESSED_RGBA}}, the GL will replace the internal format with the symbolic constant for a specific internal format and compress the texture before storage. If no corresponding internal format is available, or the GL can not compress that image for any reason, the internal format is instead replaced with a corresponding base internal format. - -If the {{Parameter|internalFormat}} parameter is {{KW|_GL_SRGB}}, {{KW|_GL_SRGB8}}, {{KW|_GL_SRGB_ALPHA}}, or {{KW|_GL_SRGB8_ALPHA8}}, the texture is treated as if the red, green, or blue components are encoded in the sRGB color space. Any alpha component is left unchanged. The conversion from the sRGB encoded component c&lt;sub&gt;s&lt;/sub&gt; to a linear component c&lt;sub&gt;l&lt;/sub&gt; is: - -{{glapi srgb equation}} - -Assume c&lt;sub&gt;s&lt;/sub&gt; is the sRGB component in the range [0,1]. - -Use the {{KW|_GL_PROXY_TEXTURE_2D}}, {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}}, {{KW|_GL_PROXY_TEXTURE_RECTANGLE}}, or {{KW|_GL_PROXY_TEXTURE_CUBE_MAP}} target to try out a resolution and format. The implementation will update and recompute its best match for the requested storage resolution and format. To then query this state, call {{KW|_glGetTexLevelParameter}}. If the texture cannot be accommodated, texture state is set to 0. - -A one-component texture image uses only the red component of the RGBA color extracted from {{Parameter|data}}. A two-component image uses the R and G values. A three-component image uses the R, G, and B values. A four-component image uses all of the RGBA components. - -Image-based shadowing can be enabled by comparing texture r coordinates to depth texture values to generate a boolean result. See {{KW|_glTexParameter}} for details on texture comparison. - - -{{PageNotes}} - -The {{KW|_glPixelStore}} mode affects texture images. - -{{Parameter|data}} may be a null pointer. In this case, texture memory is allocated to accommodate a texture of width {{Parameter|width}} and height {{Parameter|height}}. You can then download subtextures to initialize this texture memory. The image is undefined if the user tries to apply an uninitialized portion of the texture image to a primitive. - -'''_glTexImage2D''' specifies the two-dimensional texture for the current texture unit, specified with {{KW|_glActiveTexture}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_1D_ARRAY}}, {{KW|_GL_TEXTURE_RECTANGLE}}, {{KW|_GL_PROXY_TEXTURE_2D}}, {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}}, {{KW|_GL_PROXY_TEXTURE_RECTANGLE}}, {{KW|_GL_PROXY_TEXTURE_CUBE_MAP}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, or {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is one of the six cube map 2D image targets and the width and height parameters are not equal. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|type}} is not a type constant. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} is less than 0 or greater than {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_1D_ARRAY}} or {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}} and {{Parameter|height}} is less than 0 or greater than {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|target}} is {{KW|_GL_TEXTURE_1D_ARRAY}} or {{KW|_GL_PROXY_TEXTURE_1D_ARRAY}} and {{Parameter|height}} is less than 0 or greater than {{KW|_GL_MAX_ARRAY_TEXTURE_LAYERS}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(''max''), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|internalFormat}} is not one of the accepted resolution and format symbolic constants. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} or {{Parameter|height}} is less than 0 or greater than {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|border}} is not 0. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}}, or {{KW|_GL_UNSIGNED_INT_10F_11F_11F_REV}}, and {{Parameter|format}} is not {{KW|_GL_RGB}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}}, or {{KW|_GL_UNSIGNED_INT_5_9_9_9_REV}}, and {{Parameter|format}} is neither {{KW|_GL_RGBA}} nor {{KW|_GL_BGRA}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_PROXY_TEXTURE_2D}}, {{KW|_GL_TEXTURE_RECTANGLE}}, or {{KW|_GL_PROXY_TEXTURE_RECTANGLE}}, and {{Parameter|internalFormat}} is {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32F}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|format}} is {{KW|_GL_DEPTH_COMPONENT}} and {{Parameter|internalFormat}} is not {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32F}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|internalFormat}} is {{KW|_GL_DEPTH_COMPONENT}}, {{KW|_GL_DEPTH_COMPONENT16}}, {{KW|_GL_DEPTH_COMPONENT24}}, or {{KW|_GL_DEPTH_COMPONENT32F}}, and {{Parameter|format}} is not {{KW|_GL_DEPTH_COMPONENT}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the data would be unpacked from the buffer object such that the memory reads required would exceed the data store size. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and {{Parameter|data}} is not evenly divisible into the number of bytes needed to store in memory a datum indicated by {{Parameter|type}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|target}} is {{KW|_GL_TEXTURE_RECTANGLE}} or {{KW|_GL_PROXY_TEXTURE_RECTANGLE}} and {{Parameter|level}} is not 0. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - -{{KW|_glGet}} with argument {{KW|_GL_PIXEL_UNPACK_BUFFER_BINDING}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glTexImage1D}}, {{KW|_glTexImage2DMultisample}}, {{KW|_glTexImage3D}}, {{KW|_glTexImage3DMultisample}}, {{KW|_glTexSubImage2D}}, {{KW|_glPixelStore}} - -[[Image_Format#Required_formats|Required formats]] - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. Copyright 2011 Khronos Group. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glTexSubImage1D.txt b/internal/help/_glTexSubImage1D.txt deleted file mode 100644 index e62982df9..000000000 --- a/internal/help/_glTexSubImage1D.txt +++ /dev/null @@ -1,81 +0,0 @@ -'''_glTexSubImage1D:''' specify a one-dimensional texture subimage - - -{{PageSyntax}} - - SUB _glTexSubImage1D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL xoffset AS LONG, BYVAL width AS LONG, BYVAL format AS _UNSIGNED LONG, BYVAL type AS _UNSIGNED LONG, pixels AS _OFFSET) - void '''_glTexSubImage1D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLint {{Parameter|xoffset}}, GLsizei {{Parameter|width}}, GLenum {{Parameter|format}}, GLenum {{Parameter|type}}, const GLvoid * {{Parameter|data}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_1D}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; xoffset -: Specifies a texel offset in the x direction within the texture array. -; width -: Specifies the width of the texture subimage. -{{glapi pixeltransferupparams}} - - -{{PageDescription}} - -Texturing maps a portion of a specified texture image onto each graphical primitive for which texturing is enabled. To enable or disable one-dimensional texturing, call {{KW|_glEnable}} and {{KW|_glDisable}} with argument {{KW|_GL_TEXTURE_1D}}. - -'''_glTexSubImage1D''' redefines a contiguous subregion of an existing one-dimensional texture image. The texels referenced by {{Parameter|data}} replace the portion of the existing texture array with x indices {{Parameter|xoffset}} and xoffset + width - 1, inclusive. This region may not include any texels outside the range of the texture array as it was originally specified. It is not an error to specify a subtexture with width of 0, but such a specification has no effect. - -If a non-zero named buffer object is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target (see {{KW|_glBindBuffer}}) while a texture image is specified, {{Parameter|data}} is treated as a byte offset into the buffer object's data store. - - -{{PageNotes}} - -{{KW|_glPixelStore}} modes affect texture images. - -'''_glTexSubImage1D''' specifies a one-dimensional subtexture for the current texture unit, specified with {{KW|_glActiveTexture}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not one of the allowable values. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|format}} is not an accepted format constant. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|type}} is not a type constant. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(''max''), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if ''xoffset'' &lt; 0, or if ''xoffset'' + ''width'' &gt; ''w'', where ''w'' is the {{KW|_GL_TEXTURE_WIDTH}}. Note that ''w'' includes twice the border width. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} is less than 0. - -{{KW|_GL_INVALID_OPERATION}} is generated if the texture array has not been defined by a previous {{KW|_glTexImage1D}} operation. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, or {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}} and {{Parameter|format}} is not {{KW|_GL_RGB}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, or {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}} and {{Parameter|format}} is neither {{KW|_GL_RGBA}} nor {{KW|_GL_BGRA}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the data would be unpacked from the buffer object such that the memory reads required would exceed the data store size. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and {{Parameter|data}} is not evenly divisible into the number of bytes needed to store in memory a datum indicated by {{Parameter|type}}. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - -{{KW|_glGet}} with argument {{KW|_GL_PIXEL_UNPACK_BUFFER_BINDING}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glTexSubImage2D}}, {{KW|_glTexSubImage3D}}, {{KW|_glCopyTexImage1D}}, {{KW|_glTexImage1D}}, {{KW|_glTexStorage1D}}, {{KW|_glTextureView}}, {{KW|_glPixelStore}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glTexSubImage2D.txt b/internal/help/_glTexSubImage2D.txt deleted file mode 100644 index a4e539bc4..000000000 --- a/internal/help/_glTexSubImage2D.txt +++ /dev/null @@ -1,85 +0,0 @@ -'''_glTexSubImage2D:''' specify a two-dimensional texture subimage - - -{{PageSyntax}} - - SUB _glTexSubImage2D (BYVAL target AS _UNSIGNED LONG, BYVAL level AS LONG, BYVAL xoffset AS LONG, BYVAL yoffset AS LONG, BYVAL width AS LONG, BYVAL height AS LONG, BYVAL format AS _UNSIGNED LONG, BYVAL type AS _UNSIGNED LONG, pixels AS _OFFSET) - void '''_glTexSubImage2D'''(GLenum {{Parameter|target}}, GLint {{Parameter|level}}, GLint {{Parameter|xoffset}}, GLint {{Parameter|yoffset}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}, GLenum {{Parameter|format}}, GLenum {{Parameter|type}}, const GLvoid * {{Parameter|data}}); - - -; target -: Specifies the target texture. Must be {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}, or {{KW|_GL_TEXTURE_1D_ARRAY}}. -; level -: Specifies the level-of-detail number. Level 0 is the base image level. Level ''n'' is the ''n''th mipmap reduction image. -; xoffset -: Specifies a texel offset in the x direction within the texture array. -; yoffset -: Specifies a texel offset in the y direction within the texture array. -; width -: Specifies the width of the texture subimage. -; height -: Specifies the height of the texture subimage. -{{Glapi pixeltransferupparams|}} - - -{{PageDescription}} - -Texturing maps a portion of a specified texture image onto each graphical primitive for which texturing is enabled. - -'''_glTexSubImage2D''' redefines a contiguous subregion of an existing two-dimensional or one-dimensional array texture image. The texels referenced by {{Parameter|data}} replace the portion of the existing texture array with x indices {{Parameter|xoffset}} and ''xoffset'' + ''width'' - 1, inclusive, and y indices {{Parameter|yoffset}} and ''yoffset'' + ''height'' - 1, inclusive. This region may not include any texels outside the range of the texture array as it was originally specified. It is not an error to specify a subtexture with zero width or height, but such a specification has no effect. - -If a non-zero named buffer object is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target (see {{KW|_glBindBuffer}}) while a texture image is specified, {{Parameter|data}} is treated as a byte offset into the buffer object's data store. - - -{{PageNotes}} - -{{KW|_glPixelStore}} modes affect texture images. - -'''_glTexSubImage2D''' specifies a two-dimensional subtexture for the current texture unit, specified with {{KW|_glActiveTexture}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|target}} is not {{KW|_GL_TEXTURE_2D}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_X}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y}}, {{KW|_GL_TEXTURE_CUBE_MAP_POSITIVE_Z}}, {{KW|_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z}}, or {{KW|_GL_TEXTURE_1D_ARRAY}}. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|format}} is not an accepted format constant. - -{{KW|_GL_INVALID_ENUM}} is generated if {{Parameter|type}} is not a type constant. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|level}} is less than 0. - -{{KW|_GL_INVALID_VALUE}} may be generated if {{Parameter|level}} is greater than log&lt;sub&gt;2&lt;/sub&gt;(''max''), where ''max'' is the returned value of {{KW|_GL_MAX_TEXTURE_SIZE}}. - -{{KW|_GL_INVALID_VALUE}} is generated if ''xoffset'' &lt; 0, (''xoffset'' + ''width'') &gt; ''w'', ''yoffset'' &lt; 0, or (''yoffset'' + ''height'') &gt; ''h'', where ''w'' is the {{KW|_GL_TEXTURE_WIDTH}} and ''h'' is the {{KW|_GL_TEXTURE_HEIGHT}}. - -{{KW|_GL_INVALID_VALUE}} is generated if {{Parameter|width}} or {{Parameter|height}} is less than 0. - -{{KW|_GL_INVALID_OPERATION}} is generated if the texture array has not been defined by a previous {{KW|_glTexImage2D}} operation. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_BYTE_3_3_2}}, {{KW|_GL_UNSIGNED_BYTE_2_3_3_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_6_5}}, or {{KW|_GL_UNSIGNED_SHORT_5_6_5_REV}} and {{Parameter|format}} is not {{KW|_GL_RGB}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if {{Parameter|type}} is one of {{KW|_GL_UNSIGNED_SHORT_4_4_4_4}}, {{KW|_GL_UNSIGNED_SHORT_4_4_4_4_REV}}, {{KW|_GL_UNSIGNED_SHORT_5_5_5_1}}, {{KW|_GL_UNSIGNED_SHORT_1_5_5_5_REV}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8}}, {{KW|_GL_UNSIGNED_INT_8_8_8_8_REV}}, {{KW|_GL_UNSIGNED_INT_10_10_10_2}}, or {{KW|_GL_UNSIGNED_INT_2_10_10_10_REV}} and {{Parameter|format}} is neither {{KW|_GL_RGBA}} nor {{KW|_GL_BGRA}}. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the buffer object's data store is currently mapped. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and the data would be unpacked from the buffer object such that the memory reads required would exceed the data store size. - -{{KW|_GL_INVALID_OPERATION}} is generated if a non-zero buffer object name is bound to the {{KW|_GL_PIXEL_UNPACK_BUFFER}} target and {{Parameter|data}} is not evenly divisible into the number of bytes needed to store in memory a datum indicated by {{Parameter|type}}. - - -{{PageUseWith}} - -{{KW|_glGetTexImage}} - -{{KW|_glGet}} with argument {{KW|_GL_PIXEL_UNPACK_BUFFER_BINDING}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glActiveTexture}}, {{KW|_glBindTexture}}, {{KW|_glTexSubImage1D}}, {{KW|_glTexSubImage3D}}, {{KW|_glCopyTexImage2D}}, {{KW|_glTexImage2D}}, {{KW|_glTexStorage2D}}, {{KW|_glTextureView}}, {{KW|_glPixelStore}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/_glViewport.txt b/internal/help/_glViewport.txt deleted file mode 100644 index 6e2891420..000000000 --- a/internal/help/_glViewport.txt +++ /dev/null @@ -1,45 +0,0 @@ -'''_glViewport:''' set the viewport - - -{{PageSyntax}} - - SUB _glViewport (BYVAL x AS LONG, BYVAL y AS LONG, BYVAL width AS LONG, BYVAL height AS LONG) - void '''_glViewport'''(GLint {{Parameter|x}}, GLint {{Parameter|y}}, GLsizei {{Parameter|width}}, GLsizei {{Parameter|height}}); - - -; x, y -: Specify the lower left corner of the viewport rectangle, in pixels. The initial value is (0,0). -; width, height -: Specify the width and height of the viewport. When a GL context is first attached to a window, {{Parameter|width}} and {{Parameter|height}} are set to the dimensions of that window. - - -{{PageDescription}} - -'''_glViewport''' specifies the affine transformation of ''x'' and ''y'' from normalized device coordinates to window coordinates. Let (x&lt;sub&gt;nd&lt;/sub&gt;, y&lt;sub&gt;nd&lt;/sub&gt;) be normalized device coordinates. Then the window coordinates (x&lt;sub&gt;w&lt;/sub&gt;, y&lt;sub&gt;w&lt;/sub&gt;) are computed as follows: - -{{glapi viewport equations}} - -Viewport width and height are silently clamped to a range that depends on the implementation. To query this range, call {{KW|_glGet}} with argument {{KW|_GL_MAX_VIEWPORT_DIMS}}. - - -{{PageErrors}} - -{{KW|_GL_INVALID_VALUE}} is generated if either {{Parameter|width}} or {{Parameter|height}} is negative. - - -{{PageUseWith}} - -{{KW|_glGet}} with argument {{KW|_GL_VIEWPORT}} - -{{KW|_glGet}} with argument {{KW|_GL_MAX_VIEWPORT_DIMS}} - - -{{PageSeeAlso}} - -{{KW|_GL}} -{{KW|_glDepthRange}}, {{KW|_glViewportArray}}, {{KW|_glViewportIndexed}} - - -{{PageCopyright}} - -Copyright 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see [http://oss.sgi.com/projects/FreeB/ http://oss.sgi.com/projects/FreeB/]. \ No newline at end of file diff --git a/internal/help/links.bin b/internal/help/links.bin index 1849081be..10ab72061 100644 --- a/internal/help/links.bin +++ b/internal/help/links.bin @@ -1,5 +1,7 @@ +_ACCEPTFILEDROP,_ACCEPTFILEDROP _ACOS,_ACOS _ACOSH,_ACOSH +_ALLOWFULLSCREEN,_ALLOWFULLSCREEN _ALPHA,_ALPHA _ALPHA32,_ALPHA32 _ARCCOT,Mathematical_Operations @@ -7,6 +9,8 @@ _ARCCSC,Mathematical_Operations _ARCSEC,Mathematical_Operations _ASIN,_ASIN _ASINH,_ASINH +_ASSERT,_ASSERT +$ASSERTS,$ASSERTS _ATAN2,_ATAN2 _ATANH,_ATANH _AUTODISPLAY,_AUTODISPLAY @@ -23,8 +27,11 @@ _BLUE32,_BLUE32 _BUTTON,_BUTTON _BUTTONCHANGE,_BUTTONCHANGE _BYTE,_BYTE +_CAPSLOCK,_CAPSLOCK (function) +_CAPSLOCK,_CAPSLOCK $CHECKING,$CHECKING _CEIL,_CEIL +_CINP,_CINP _CLEARCOLOR,_CLEARCOLOR (function) _CLEARCOLOR,_CLEARCOLOR _CLIP,_CLIP @@ -32,11 +39,13 @@ _CLIPBOARD$,_CLIPBOARD$ _CLIPBOARD$,_CLIPBOARD$ (statement) _CLIPBOARDIMAGE,_CLIPBOARDIMAGE (function) _CLIPBOARDIMAGE,_CLIPBOARDIMAGE +$COLOR,$COLOR _COMMANDCOUNT,_COMMANDCOUNT _CONNECTED,_CONNECTED _CONNECTIONADDRESS$,_CONNECTIONADDRESS$ $CONSOLE,$CONSOLE _CONSOLE,_CONSOLE +_CONSOLEINPUT,_CONSOLEINPUT _CONSOLETITLE,_CONSOLETITLE _CONTINUE,_CONTINUE _CONTROLCHR,_CONTROLCHR @@ -54,8 +63,10 @@ _D2G,_D2G _D2R,_D2R DECLARE,DECLARE LIBRARY DECLARE,DECLARE DYNAMIC LIBRARY +$DEBUG,$DEBUG _DEFAULTCOLOR,_DEFAULTCOLOR _DEFINE,_DEFINE +_DEFLATE$,_DEFLATE$ _DELAY,_DELAY _DEPTHBUFFER,_DEPTHBUFFER _DESKTOPHEIGHT,_DESKTOPHEIGHT @@ -72,13 +83,19 @@ _DISPLAY,_DISPLAY (function) _DISPLAYORDER,_DISPLAYORDER _DONTBLEND,_DONTBLEND _DONTWAIT,_DONTWAIT +_DROPPEDFILE,_DROPPEDFILE +_ECHO,_ECHO $ELSE,$ELSE $ELSEIF,$ELSEIF $END,$END IF +_ENVIRONCOUNT,_ENVIRONCOUNT +$ERROR,$ERROR _ERRORLINE,_ERRORLINE +_ERRORMESSAGE$,_ERRORMESSAGE$ $EXEICON,$EXEICON _EXIT,_EXIT (function) _FILEEXISTS,_FILEEXISTS +_FINISHDROP,_FINISHDROP _FLOAT,_FLOAT _FONT,_FONT _FONT,_FONT (function) @@ -100,10 +117,12 @@ $IF,$IF _ICON,_ICON _INCLERRORFILE$,_INCLERRORFILE$ _INCLERRORLINE,_INCLERRORLINE +_INFLATE$,_INFLATE$ +_INSTRREV,_INSTRREV _INTEGER64,_INTEGER64 _KEYCLEAR,_KEYCLEAR -_KEYHIT,_KEYHIT _KEYDOWN,_KEYDOWN +_KEYHIT,_KEYHIT $LET,$LET _LASTAXIS,_LASTAXIS _LASTBUTTON,_LASTBUTTON @@ -126,6 +145,7 @@ _MEMGET,_MEMGET (function) _MEMIMAGE,_MEMIMAGE _MEMNEW,_MEMNEW _MEMPUT,_MEMPUT +_MEMSOUND,_MEMSOUND _MIDDLE,_SCREENMOVE _SCREENMOVE,_SCREENMOVE _MK$,_MK$ @@ -135,18 +155,21 @@ _MOUSEINPUT,_MOUSEINPUT _MOUSEMOVE,_MOUSEMOVE _MOUSEMOVEMENTX,_MOUSEMOVEMENTX _MOUSEMOVEMENTY,_MOUSEMOVEMENTY -_MOUSEPIPEOPEN,_MOUSEPIPEOPEN _MOUSESHOW,_MOUSESHOW _MOUSEWHEEL,_MOUSEWHEEL _MOUSEX,_MOUSEX _MOUSEY,_MOUSEY _NEWIMAGE,_NEWIMAGE +$NOPREFIX,$NOPREFIX +_NUMLOCK,_NUMLOCK (function) +_NUMLOCK,_NUMLOCK _OFFSET,_OFFSET (function) _OFFSET,_OFFSET _OPENCLIENT,_OPENCLIENT _OPENCONNECTION,_OPENCONNECTION _OPENHOST,_OPENHOST OPTION,OPTION _EXPLICIT +OPTION,OPTION _EXPLICITARRAY _OS$,_OS$ _PALETTECOLOR,_PALETTECOLOR _PALETTECOLOR,_PALETTECOLOR (function) @@ -163,6 +186,8 @@ _R2D,_R2D _R2G,_R2G _RED,_RED _RED32,_RED32 +_READBIT,_READBIT +_RESETBIT,_RESETBIT $RESIZE,$RESIZE _RESIZE,_RESIZE _RESIZE,_RESIZE (function) @@ -186,8 +211,13 @@ $SCREENSHOW,$SCREENSHOW _SCREENSHOW,_SCREENSHOW _SCREENX,_SCREENX _SCREENY,_SCREENY +_SCROLLLOCK,_SCROLLLOCK (function) +_SCROLLLOCK,_SCROLLLOCK _SETALPHA,_SETALPHA +_SETBIT,_SETBIT _SHELLHIDE,_SHELLHIDE +_SHL,_SHL +_SHR,_SHR _SINH,Mathematical_Operations _SNDBAL,_SNDBAL _SNDCLOSE,_SNDCLOSE @@ -219,6 +249,9 @@ _STRICMP,_STRICMP _TANH,Mathematical_Operations _TITLE,_TITLE _TITLE$,_TITLE$ +_TOGGLEBIT,_TOGGLEBIT +_TOTALDROPPEDFILES,_TOTALDROPPEDFILES +_TRIM$,_TRIM$ _UNSIGNED,_UNSIGNED $VERSIONINFO,$VERSIONINFO $VIRTUALKEYBOARD,$VIRTUALKEYBOARD @@ -245,12 +278,9 @@ BSAVE,BSAVE BYVAL,BYVAL CALL,CALL CALL,CALL ABSOLUTE -CALLS,CALLS CASE,CASE CASE,CASE ELSE CASE,CASE IS -CDBL,CDBL -CDECL,CDECL CHAIN,CHAIN CHDIR,CHDIR CHR$,CHR$ @@ -275,12 +305,8 @@ CVS,CVS CVSMBF,CVSMBF DATA,DATA DATE$,DATE$ -DATE$,DATE$ (statement) -DECLARE,DECLARE -DECLARE,DECLARE (non-BASIC statement) DECLARE,DECLARE LIBRARY DECLARE,DECLARE DYNAMIC LIBRARY -DEF,DEF FN DEF,DEF SEG DEFDBL,DEFDBL DEFINT,DEFINT @@ -305,22 +331,18 @@ ENVIRON$,ENVIRON$ EOF,EOF EQV,EQV ERASE,ERASE -ERDEV,ERDEV -ERDEV$,ERDEV$ ERL,ERL ERR,ERR ERROR,ERROR EXIT,EXIT EXP,EXP FIELD,FIELD -FILEATTR,FILEATTR FILES,FILES FIX,FIX NEXT,FOR...NEXT FOR,FOR...NEXT NEXT,FOR...NEXT FOR,FOR (file statement) -FRE,FRE FREE,TIMER (statement) TIMER,TIMER (statement) FREEFILE,FREEFILE @@ -341,15 +363,12 @@ INP,INP INPUT,INPUT INPUT,INPUT (file mode) INPUT,INPUT (file statement) -INPUT,INPUT (TCP/IP statement) INPUT$,INPUT$ INSTR,INSTR INT,INT INTEGER,INTEGER INTERRUPT,INTERRUPT INTERRUPTX,INTERRUPTX -IOCTL,IOCTL -IOCTL$,IOCTL$ KEY,KEY n KEY,KEY(n) KEY,KEY LIST @@ -393,14 +412,10 @@ NEXT,NEXT NOT,NOT OCT$,OCT$ OFF,OFF -ON,ON COM(n) ON,ON ERROR ON,ON KEY(n) -ON,ON PEN -ON,ON PLAY(n) ON,ON STRIG(n) ON,ON TIMER(n) -ON,ON UEVENT GOSUB,ON...GOSUB ON,ON...GOSUB GOSUB,ON...GOSUB @@ -419,9 +434,6 @@ PALETTE,PALETTE PALETTE,PALETTE USING PCOPY,PCOPY PEEK,PEEK -PEN,PEN -PEN,PEN (statement) -PLAY,PLAY(n) PLAY,PLAY PMAP,PMAP POINT,POINT @@ -430,7 +442,6 @@ POS,POS PRESET,PRESET PRINT,PRINT PRINT,PRINT (file statement) -PRINT,PRINT (TCP/IP statement) PRINT,PRINT USING PRINT,PRINT USING (file statement) PSET,PSET @@ -459,12 +470,10 @@ SCREEN,SCREEN SEEK,SEEK SEEK,SEEK (statement) SELECT,SELECT CASE -SETMEM,SETMEM SGN,SGN SHARED,SHARED SHELL,SHELL SHELL,SHELL (function) -SIGNAL,SIGNAL SIN,SIN SINGLE,SINGLE SLEEP,SLEEP @@ -489,16 +498,12 @@ TAB,TAB TAN,TAN THEN,THEN TIME$,TIME$ -TIME$,TIME$ (statement) TIMER,TIMER TIMER,TIMER (statement) TO,TO -TROFF,TROFF -TRON,TRON TYPE,TYPE UBOUND,UBOUND UCASE$,UCASE$ -UEVENT,UEVENT UNLOCK,UNLOCK UNTIL,UNTIL VAL,VAL @@ -518,343 +523,6 @@ WINDOW,WINDOW WRITE,WRITE WRITE,WRITE (file statement) XOR,XOR -_glAccum,_glAccum -_glAlphaFunc,_glAlphaFunc -_glAreTexturesResident,_glAreTexturesResident -_glArrayElement,_glArrayElement -_glBegin,_glBegin -_glBindTexture,_glBindTexture -_glBitmap,_glBitmap -_glBlendFunc,_glBlendFunc -_glCallList,_glCallList -_glCallLists,_glCallLists -_glClear,_glClear -_glClearAccum,_glClearAccum -_glClearColor,_glClearColor -_glClearDepth,_glClearDepth -_glClearIndex,_glClearIndex -_glClearStencil,_glClearStencil -_glClipPlane,_glClipPlane -_glColor3b,_glColor3b -_glColor3bv,_glColor3bv -_glColor3d,_glColor3d -_glColor3dv,_glColor3dv -_glColor3f,_glColor3f -_glColor3fv,_glColor3fv -_glColor3i,_glColor3i -_glColor3iv,_glColor3iv -_glColor3s,_glColor3s -_glColor3sv,_glColor3sv -_glColor3ub,_glColor3ub -_glColor3ubv,_glColor3ubv -_glColor3ui,_glColor3ui -_glColor3uiv,_glColor3uiv -_glColor3us,_glColor3us -_glColor3usv,_glColor3usv -_glColor4b,_glColor4b -_glColor4bv,_glColor4bv -_glColor4d,_glColor4d -_glColor4dv,_glColor4dv -_glColor4f,_glColor4f -_glColor4fv,_glColor4fv -_glColor4i,_glColor4i -_glColor4iv,_glColor4iv -_glColor4s,_glColor4s -_glColor4sv,_glColor4sv -_glColor4ub,_glColor4ub -_glColor4ubv,_glColor4ubv -_glColor4ui,_glColor4ui -_glColor4uiv,_glColor4uiv -_glColor4us,_glColor4us -_glColor4usv,_glColor4usv -_glColorMask,_glColorMask -_glColorMaterial,_glColorMaterial -_glColorPointer,_glColorPointer -_glCopyPixels,_glCopyPixels -_glCopyTexImage1D,_glCopyTexImage1D -_glCopyTexImage2D,_glCopyTexImage2D -_glCopyTexSubImage1D,_glCopyTexSubImage1D -_glCopyTexSubImage2D,_glCopyTexSubImage2D -_glCullFace,_glCullFace -_glDeleteLists,_glDeleteLists -_glDeleteTextures,_glDeleteTextures -_glDepthFunc,_glDepthFunc -_glDepthMask,_glDepthMask -_glDepthRange,_glDepthRange -_glDisable,_glDisable -_glDisableClientState,_glDisableClientState -_glDrawArrays,_glDrawArrays -_glDrawBuffer,_glDrawBuffer -_glDrawElements,_glDrawElements -_glDrawPixels,_glDrawPixels -_glEdgeFlag,_glEdgeFlag -_glEdgeFlagPointer,_glEdgeFlagPointer -_glEdgeFlagv,_glEdgeFlagv -_glEnable,_glEnable -_glEnableClientState,_glEnableClientState -_glEnd,_glEnd -_glEndList,_glEndList -_glEvalCoord1d,_glEvalCoord1d -_glEvalCoord1dv,_glEvalCoord1dv -_glEvalCoord1f,_glEvalCoord1f -_glEvalCoord1fv,_glEvalCoord1fv -_glEvalCoord2d,_glEvalCoord2d -_glEvalCoord2dv,_glEvalCoord2dv -_glEvalCoord2f,_glEvalCoord2f -_glEvalCoord2fv,_glEvalCoord2fv -_glEvalMesh1,_glEvalMesh1 -_glEvalMesh2,_glEvalMesh2 -_glEvalPoint1,_glEvalPoint1 -_glEvalPoint2,_glEvalPoint2 -_glFeedbackBuffer,_glFeedbackBuffer -_glFinish,_glFinish -_glFlush,_glFlush -_glFogf,_glFogf -_glFogfv,_glFogfv -_glFogi,_glFogi -_glFogiv,_glFogiv -_glFrontFace,_glFrontFace -_glFrustum,_glFrustum -_glGenLists,_glGenLists -_glGenTextures,_glGenTextures -_glGetBooleanv,_glGetBooleanv -_glGetClipPlane,_glGetClipPlane -_glGetDoublev,_glGetDoublev -_glGetError,_glGetError -_glGetFloatv,_glGetFloatv -_glGetIntegerv,_glGetIntegerv -_glGetLightfv,_glGetLightfv -_glGetLightiv,_glGetLightiv -_glGetMapdv,_glGetMapdv -_glGetMapfv,_glGetMapfv -_glGetMapiv,_glGetMapiv -_glGetMaterialfv,_glGetMaterialfv -_glGetMaterialiv,_glGetMaterialiv -_glGetPixelMapfv,_glGetPixelMapfv -_glGetPixelMapuiv,_glGetPixelMapuiv -_glGetPixelMapusv,_glGetPixelMapusv -_glGetPointerv,_glGetPointerv -_glGetPolygonStipple,_glGetPolygonStipple -_glGetString,_glGetString -_glGetTexEnvfv,_glGetTexEnvfv -_glGetTexEnviv,_glGetTexEnviv -_glGetTexGendv,_glGetTexGendv -_glGetTexGenfv,_glGetTexGenfv -_glGetTexGeniv,_glGetTexGeniv -_glGetTexImage,_glGetTexImage -_glGetTexLevelParameterfv,_glGetTexLevelParameterfv -_glGetTexLevelParameteriv,_glGetTexLevelParameteriv -_glGetTexParameterfv,_glGetTexParameterfv -_glGetTexParameteriv,_glGetTexParameteriv -_glHint,_glHint -_glIndexMask,_glIndexMask -_glIndexPointer,_glIndexPointer -_glIndexd,_glIndexd -_glIndexdv,_glIndexdv -_glIndexf,_glIndexf -_glIndexfv,_glIndexfv -_glIndexi,_glIndexi -_glIndexiv,_glIndexiv -_glIndexs,_glIndexs -_glIndexsv,_glIndexsv -_glIndexub,_glIndexub -_glIndexubv,_glIndexubv -_glInitNames,_glInitNames -_glInterleavedArrays,_glInterleavedArrays -_glIsEnabled,_glIsEnabled -_glIsList,_glIsList -_glIsTexture,_glIsTexture -_glLightModelf,_glLightModelf -_glLightModelfv,_glLightModelfv -_glLightModeli,_glLightModeli -_glLightModeliv,_glLightModeliv -_glLightf,_glLightf -_glLightfv,_glLightfv -_glLighti,_glLighti -_glLightiv,_glLightiv -_glLineStipple,_glLineStipple -_glLineWidth,_glLineWidth -_glListBase,_glListBase -_glLoadIdentity,_glLoadIdentity -_glLoadMatrixd,_glLoadMatrixd -_glLoadMatrixf,_glLoadMatrixf -_glLoadName,_glLoadName -_glLogicOp,_glLogicOp -_glMap1d,_glMap1d -_glMap1f,_glMap1f -_glMap2d,_glMap2d -_glMap2f,_glMap2f -_glMapGrid1d,_glMapGrid1d -_glMapGrid1f,_glMapGrid1f -_glMapGrid2d,_glMapGrid2d -_glMapGrid2f,_glMapGrid2f -_glMaterialf,_glMaterialf -_glMaterialfv,_glMaterialfv -_glMateriali,_glMateriali -_glMaterialiv,_glMaterialiv -_glMatrixMode,_glMatrixMode -_glMultMatrixd,_glMultMatrixd -_glMultMatrixf,_glMultMatrixf -_glNewList,_glNewList -_glNormal3b,_glNormal3b -_glNormal3bv,_glNormal3bv -_glNormal3d,_glNormal3d -_glNormal3dv,_glNormal3dv -_glNormal3f,_glNormal3f -_glNormal3fv,_glNormal3fv -_glNormal3i,_glNormal3i -_glNormal3iv,_glNormal3iv -_glNormal3s,_glNormal3s -_glNormal3sv,_glNormal3sv -_glNormalPointer,_glNormalPointer -_glOrtho,_glOrtho -_glPassThrough,_glPassThrough -_glPixelMapfv,_glPixelMapfv -_glPixelMapuiv,_glPixelMapuiv -_glPixelMapusv,_glPixelMapusv -_glPixelStoref,_glPixelStoref -_glPixelStorei,_glPixelStorei -_glPixelTransferf,_glPixelTransferf -_glPixelTransferi,_glPixelTransferi -_glPixelZoom,_glPixelZoom -_glPointSize,_glPointSize -_glPolygonMode,_glPolygonMode -_glPolygonOffset,_glPolygonOffset -_glPolygonStipple,_glPolygonStipple -_glPopAttrib,_glPopAttrib -_glPopClientAttrib,_glPopClientAttrib -_glPopMatrix,_glPopMatrix -_glPopName,_glPopName -_glPrioritizeTextures,_glPrioritizeTextures -_glPushAttrib,_glPushAttrib -_glPushClientAttrib,_glPushClientAttrib -_glPushMatrix,_glPushMatrix -_glPushName,_glPushName -_glRasterPos2d,_glRasterPos2d -_glRasterPos2dv,_glRasterPos2dv -_glRasterPos2f,_glRasterPos2f -_glRasterPos2fv,_glRasterPos2fv -_glRasterPos2i,_glRasterPos2i -_glRasterPos2iv,_glRasterPos2iv -_glRasterPos2s,_glRasterPos2s -_glRasterPos2sv,_glRasterPos2sv -_glRasterPos3d,_glRasterPos3d -_glRasterPos3dv,_glRasterPos3dv -_glRasterPos3f,_glRasterPos3f -_glRasterPos3fv,_glRasterPos3fv -_glRasterPos3i,_glRasterPos3i -_glRasterPos3iv,_glRasterPos3iv -_glRasterPos3s,_glRasterPos3s -_glRasterPos3sv,_glRasterPos3sv -_glRasterPos4d,_glRasterPos4d -_glRasterPos4dv,_glRasterPos4dv -_glRasterPos4f,_glRasterPos4f -_glRasterPos4fv,_glRasterPos4fv -_glRasterPos4i,_glRasterPos4i -_glRasterPos4iv,_glRasterPos4iv -_glRasterPos4s,_glRasterPos4s -_glRasterPos4sv,_glRasterPos4sv -_glReadBuffer,_glReadBuffer -_glReadPixels,_glReadPixels -_glRectd,_glRectd -_glRectdv,_glRectdv -_glRectf,_glRectf -_glRectfv,_glRectfv -_glRecti,_glRecti -_glRectiv,_glRectiv -_glRects,_glRects -_glRectsv,_glRectsv -_GLRENDER,_GLRENDER -_glRenderMode,_glRenderMode -_glRotated,_glRotated -_glRotatef,_glRotatef -_glScaled,_glScaled -_glScalef,_glScalef -_glScissor,_glScissor -_glSelectBuffer,_glSelectBuffer -_glShadeModel,_glShadeModel -_glStencilFunc,_glStencilFunc -_glStencilMask,_glStencilMask -_glStencilOp,_glStencilOp -_glTexCoord1d,_glTexCoord1d -_glTexCoord1dv,_glTexCoord1dv -_glTexCoord1f,_glTexCoord1f -_glTexCoord1fv,_glTexCoord1fv -_glTexCoord1i,_glTexCoord1i -_glTexCoord1iv,_glTexCoord1iv -_glTexCoord1s,_glTexCoord1s -_glTexCoord1sv,_glTexCoord1sv -_glTexCoord2d,_glTexCoord2d -_glTexCoord2dv,_glTexCoord2dv -_glTexCoord2f,_glTexCoord2f -_glTexCoord2fv,_glTexCoord2fv -_glTexCoord2i,_glTexCoord2i -_glTexCoord2iv,_glTexCoord2iv -_glTexCoord2s,_glTexCoord2s -_glTexCoord2sv,_glTexCoord2sv -_glTexCoord3d,_glTexCoord3d -_glTexCoord3dv,_glTexCoord3dv -_glTexCoord3f,_glTexCoord3f -_glTexCoord3fv,_glTexCoord3fv -_glTexCoord3i,_glTexCoord3i -_glTexCoord3iv,_glTexCoord3iv -_glTexCoord3s,_glTexCoord3s -_glTexCoord3sv,_glTexCoord3sv -_glTexCoord4d,_glTexCoord4d -_glTexCoord4dv,_glTexCoord4dv -_glTexCoord4f,_glTexCoord4f -_glTexCoord4fv,_glTexCoord4fv -_glTexCoord4i,_glTexCoord4i -_glTexCoord4iv,_glTexCoord4iv -_glTexCoord4s,_glTexCoord4s -_glTexCoord4sv,_glTexCoord4sv -_glTexCoordPointer,_glTexCoordPointer -_glTexEnvf,_glTexEnvf -_glTexEnvfv,_glTexEnvfv -_glTexEnvi,_glTexEnvi -_glTexEnviv,_glTexEnviv -_glTexGend,_glTexGend -_glTexGendv,_glTexGendv -_glTexGenf,_glTexGenf -_glTexGenfv,_glTexGenfv -_glTexGeni,_glTexGeni -_glTexGeniv,_glTexGeniv -_glTexImage1D,_glTexImage1D -_glTexImage2D,_glTexImage2D -_glTexParameterf,_glTexParameterf -_glTexParameterfv,_glTexParameterfv -_glTexParameteri,_glTexParameteri -_glTexParameteriv,_glTexParameteriv -_glTexSubImage1D,_glTexSubImage1D -_glTexSubImage2D,_glTexSubImage2D -_glTranslated,_glTranslated -_glTranslatef,_glTranslatef -_glVertex2d,_glVertex2d -_glVertex2dv,_glVertex2dv -_glVertex2f,_glVertex2f -_glVertex2fv,_glVertex2fv -_glVertex2i,_glVertex2i -_glVertex2iv,_glVertex2iv -_glVertex2s,_glVertex2s -_glVertex2sv,_glVertex2sv -_glVertex3d,_glVertex3d -_glVertex3dv,_glVertex3dv -_glVertex3f,_glVertex3f -_glVertex3fv,_glVertex3fv -_glVertex3i,_glVertex3i -_glVertex3iv,_glVertex3iv -_glVertex3s,_glVertex3s -_glVertex3sv,_glVertex3sv -_glVertex4d,_glVertex4d -_glVertex4dv,_glVertex4dv -_glVertex4f,_glVertex4f -_glVertex4fv,_glVertex4fv -_glVertex4i,_glVertex4i -_glVertex4iv,_glVertex4iv -_glVertex4s,_glVertex4s -_glVertex4sv,_glVertex4sv -_glVertexPointer,_glVertexPointer -_glViewport,_glViewport ;,Semicolon ",Quotation mark ?,Question mark diff --git a/internal/source/clear.txt b/internal/source/clear.txt index daba28471..39690edb8 100644 --- a/internal/source/clear.txt +++ b/internal/source/clear.txt @@ -1,5 +1,5 @@ __STRING_VERSION->len=0; -__STRING_BUILDNUM->len=0; +__STRING_DEVCHANNEL->len=0; __STRING_AUTOBUILDMSG->len=0; *__LONG_VERSIONFILE=0; memset((void*)(__STRING1_SP->chr),0,1); @@ -66,120 +66,20 @@ __ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)nothingvalue; } *__LONG_GL_DEFINES_LAST=0; *__LONG_GL_KIT=0; -if (__ARRAY_STRING_INSTALLFILES[2]&1){ -if (__ARRAY_STRING_INSTALLFILES[2]&2){ -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_INSTALLFILES[0])); -__ARRAY_STRING_INSTALLFILES[2]^=1; -__ARRAY_STRING_INSTALLFILES[4]=2147483647; -__ARRAY_STRING_INSTALLFILES[5]=0; -__ARRAY_STRING_INSTALLFILES[6]=0; -__ARRAY_STRING_INSTALLFILES[0]=(ptrszint)¬hingstring; -} -} -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&1){ -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&2){ -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0])); -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]^=1; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4]=2147483647; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]=0; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[6]=0; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]=(ptrszint)¬hingstring; -} -} -if (__ARRAY_STRING_INSTALLFILESIN[2]&1){ -if (__ARRAY_STRING_INSTALLFILESIN[2]&2){ -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_INSTALLFILESIN[0])); -__ARRAY_STRING_INSTALLFILESIN[2]^=1; -__ARRAY_STRING_INSTALLFILESIN[4]=2147483647; -__ARRAY_STRING_INSTALLFILESIN[5]=0; -__ARRAY_STRING_INSTALLFILESIN[6]=0; -__ARRAY_STRING_INSTALLFILESIN[0]=(ptrszint)¬hingstring; -} -} -if (__ARRAY_STRING_INSTALLFOLDER[2]&1){ -if (__ARRAY_STRING_INSTALLFOLDER[2]&2){ -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_INSTALLFOLDER[0])); -__ARRAY_STRING_INSTALLFOLDER[2]^=1; -__ARRAY_STRING_INSTALLFOLDER[4]=2147483647; -__ARRAY_STRING_INSTALLFOLDER[5]=0; -__ARRAY_STRING_INSTALLFOLDER[6]=0; -__ARRAY_STRING_INSTALLFOLDER[0]=(ptrszint)¬hingstring; -} -} -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&1){ -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&2){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0])); -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]^=1; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4]=2147483647; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]=0; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[6]=0; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]=(ptrszint)¬hingstring; -} -} -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&1){ -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&2){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_INSTALLFOLDERIN[0])); -__ARRAY_STRING_INSTALLFOLDERIN[2]^=1; -__ARRAY_STRING_INSTALLFOLDERIN[4]=2147483647; -__ARRAY_STRING_INSTALLFOLDERIN[5]=0; -__ARRAY_STRING_INSTALLFOLDERIN[6]=0; -__ARRAY_STRING_INSTALLFOLDERIN[0]=(ptrszint)¬hingstring; -} -} +__STRING_CURRENTINIFILENAME->len=0; +*__ULONG_CURRENTINIFILELOF=0; +__STRING_INIWHOLEFILE->len=0; +__STRING_INISECTIONDATA->len=0; +*__ULONG_INIPOSITION=0; +__STRING_ININEWFILE->len=0; +__STRING_INILASTSECTION->len=0; +__STRING_INILASTKEY->len=0; +__STRING_INILF->len=0; +*__LONG_INIDISABLEAUTOCOMMIT=0; +*__LONG_INICODE=0; +*__LONG_INIALLOWBASICCOMMENTS=0; +*__LONG_INIFORCERELOAD=0; +*__LONG_INIDISABLEADDQUOTES=0; __STRING_CACHE_FOLDER->len=0; *__LONG_HELP_SX=0; *__LONG_HELP_SY=0; @@ -300,7 +200,38 @@ __STRING_HELP_PAGELOADED->len=0; *__LONG_IDEBUILDMODECHANGED=0; __STRING_IDEINFO->len=0; *__BYTE_IDECONTEXTHELPSF=0; +*__LONG_HOST=0; +*__LONG_DEBUGCLIENT=0; +__STRING_HOSTPORT->len=0; +__STRING_VARIABLEWATCHLIST->len=0; +__STRING_BACKUPVARIABLEWATCHLIST->len=0; +__STRING_WATCHPOINTLIST->len=0; +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +tmp_long=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0])); +__ARRAY_STRING_VWATCHRECEIVEDDATA[2]^=1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]=2147483647; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[0]=(ptrszint)¬hingstring; +} +} +*__LONG_NEXTVWATCHDATASLOT=0; +*__LONG_LATESTWATCHPOINTMET=0; +*__BYTE_STARTPAUSEDPENDING=0; *__LONG_IDESYSTEM=0; +*__LONG_IDEDEBUGMODE=0; +*__LONG_CALLSTACKLENGTH=0; +__STRING_CALLSTACKLIST->len=0; if (__ARRAY_STRING_IDERECENTLINK[2]&1){ if (__ARRAY_STRING_IDERECENTLINK[2]&2){ tmp_long=__ARRAY_STRING_IDERECENTLINK[5]*__ARRAY_STRING_IDERECENTLINK[9]; @@ -324,6 +255,7 @@ __ARRAY_STRING_IDERECENTLINK[0]=(ptrszint)¬hingstring; } } __STRING_IDEOPENFILE->len=0; +__STRING_FILEDLGSEARCHTERM->len=0; if (__ARRAY_UDT_IDEBMK[2]&1){ if (__ARRAY_UDT_IDEBMK[2]&2){ memset((void*)(__ARRAY_UDT_IDEBMK[0]),0,__ARRAY_UDT_IDEBMK[5]*16); @@ -341,6 +273,55 @@ __ARRAY_UDT_IDEBMK[0]=(ptrszint)nothingvalue; } } *__LONG_IDEBMKN=0; +*__LONG_QUICKNAVTOTAL=0; +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&1){ +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){ +memset((void*)(__ARRAY_UDT_QUICKNAVHISTORY[0]),0,__ARRAY_UDT_QUICKNAVHISTORY[5]*16); +}else{ +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_QUICKNAVHISTORY[0])); +}else{ +free((void*)(__ARRAY_UDT_QUICKNAVHISTORY[0])); +} +__ARRAY_UDT_QUICKNAVHISTORY[2]^=1; +__ARRAY_UDT_QUICKNAVHISTORY[4]=2147483647; +__ARRAY_UDT_QUICKNAVHISTORY[5]=0; +__ARRAY_UDT_QUICKNAVHISTORY[6]=0; +__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]^=1; +__ARRAY_BYTE_IDEBREAKPOINTS[4]=2147483647; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=0; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=0; +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +__ARRAY_BYTE_IDESKIPLINES[2]^=1; +__ARRAY_BYTE_IDESKIPLINES[4]=2147483647; +__ARRAY_BYTE_IDESKIPLINES[5]=0; +__ARRAY_BYTE_IDESKIPLINES[6]=0; +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)nothingvalue; +} +} *__LONG_ICHECKLATER=0; *__LONG_ICHANGED=0; *__LONG_MX=0; @@ -427,6 +408,7 @@ __STRING_LISTOFCUSTOMKEYWORDS->len=0; *__LONG_CUSTOMKEYWORDSLENGTH=0; *__LONG_IDESUBWINDOW=0; *__LONG_IDEHELP=0; +*__INTEGER_STATUSAREALINK=0; *__LONG_IDEEXIT=0; __STRING_IDET->len=0; *__LONG_IDEL=0; @@ -443,6 +425,7 @@ __STRING_IDECOMPILEDLINE->len=0; *__LONG_IDESY=0; *__LONG_IDECX=0; *__LONG_IDECY=0; +*__LONG_DEBUGNEXTLINE=0; *__LONG_IDESELECT=0; *__LONG_IDESELECTX1=0; *__LONG_IDESELECTY1=0; @@ -472,28 +455,16 @@ __ARRAY_STRING_IDETXT[0]=(ptrszint)¬hingstring; } *__INTEGER_IDETXTLAST=0; *__LONG_IDEHL=0; -if (__ARRAY_INTEGER_IDEALTCODE[2]&1){ -if (__ARRAY_INTEGER_IDEALTCODE[2]&2){ -memset((void*)(__ARRAY_INTEGER_IDEALTCODE[0]),0,__ARRAY_INTEGER_IDEALTCODE[5]*2); -}else{ -if (__ARRAY_INTEGER_IDEALTCODE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_IDEALTCODE[0])); -}else{ -free((void*)(__ARRAY_INTEGER_IDEALTCODE[0])); -} -__ARRAY_INTEGER_IDEALTCODE[2]^=1; -__ARRAY_INTEGER_IDEALTCODE[4]=2147483647; -__ARRAY_INTEGER_IDEALTCODE[5]=0; -__ARRAY_INTEGER_IDEALTCODE[6]=0; -__ARRAY_INTEGER_IDEALTCODE[0]=(ptrszint)nothingvalue; -} -} __STRING_IDEPROGNAME->len=0; __STRING_IDEPATH->len=0; __STRING_IDEFINDTEXT->len=0; *__INTEGER_IDEFINDCASESENS=0; *__INTEGER_IDEFINDWHOLEWORD=0; *__INTEGER_IDEFINDBACKWARDS=0; +*__INTEGER_IDEFINDNOCOMMENTS=0; +*__INTEGER_IDEFINDNOSTRINGS=0; +*__INTEGER_IDEFINDONLYCOMMENTS=0; +*__INTEGER_IDEFINDONLYSTRINGS=0; *__INTEGER_IDEFINDINVERT=0; __STRING_IDECHANGETO->len=0; *__INTEGER_IDECHANGEMADE=0; @@ -518,23 +489,6 @@ __ARRAY_STRING_SUBFUNCLIST[6]=0; __ARRAY_STRING_SUBFUNCLIST[0]=(ptrszint)¬hingstring; } } -*__LONG_QUICKNAVTOTAL=0; -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&1){ -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&2){ -memset((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),0,__ARRAY_LONG_QUICKNAVHISTORY[5]*4); -}else{ -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_QUICKNAVHISTORY[0])); -}else{ -free((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0])); -} -__ARRAY_LONG_QUICKNAVHISTORY[2]^=1; -__ARRAY_LONG_QUICKNAVHISTORY[4]=2147483647; -__ARRAY_LONG_QUICKNAVHISTORY[5]=0; -__ARRAY_LONG_QUICKNAVHISTORY[6]=0; -__ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)nothingvalue; -} -} __STRING_MODIFYCOMMAND->len=0; *__BYTE_ENTERINGRGB=0; *__LONG_ACTIVEINCLUDELINK=0; @@ -542,10 +496,15 @@ __STRING_ACTIVEINCLUDELINKFILE->len=0; *__BYTE_HIDECURRENTLINEHIGHLIGHT=0; *__BYTE_SHOWLINENUMBERS=0; *__INTEGER_SEARCHMENUENABLEQUICKNAV=0; +*__LONG_SEARCHSTRINGFOUNDON=0; *__LONG_IDEGOTOBOX_LASTLINENUM=0; *__LONG_MAXLINENUMBERLENGTH=0; +__STRING_VERSIONSTRINGSTATUS->len=0; +__STRING_LINENUMBERSTATUS->len=0; +*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE=0; *__LONG_IDEFOCUSLINE=0; *__LONG_IDEAUTORUN=0; +*__LONG_STARTPAUSED=0; if (__ARRAY_STRING_MENU[2]&1){ if (__ARRAY_STRING_MENU[2]&2){ tmp_long=__ARRAY_STRING_MENU[5]*__ARRAY_STRING_MENU[9]; @@ -568,6 +527,28 @@ __ARRAY_STRING_MENU[10]=0; __ARRAY_STRING_MENU[0]=(ptrszint)¬hingstring; } } +if (__ARRAY_STRING_MENUDESC[2]&1){ +if (__ARRAY_STRING_MENUDESC[2]&2){ +tmp_long=__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_MENUDESC[0])); +__ARRAY_STRING_MENUDESC[2]^=1; +__ARRAY_STRING_MENUDESC[4]=2147483647; +__ARRAY_STRING_MENUDESC[5]=0; +__ARRAY_STRING_MENUDESC[6]=0; +__ARRAY_STRING_MENUDESC[8]=2147483647; +__ARRAY_STRING_MENUDESC[9]=0; +__ARRAY_STRING_MENUDESC[10]=0; +__ARRAY_STRING_MENUDESC[0]=(ptrszint)¬hingstring; +} +} if (__ARRAY_LONG_MENUSIZE[2]&1){ if (__ARRAY_LONG_MENUSIZE[2]&2){ memset((void*)(__ARRAY_LONG_MENUSIZE[0]),0,__ARRAY_LONG_MENUSIZE[5]*4); @@ -592,6 +573,8 @@ __ARRAY_LONG_MENUSIZE[0]=(ptrszint)nothingvalue; *__INTEGER_OPTIONSMENUSWAPMOUSE=0; *__INTEGER_OPTIONSMENUPASTECURSOR=0; *__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=0; +*__INTEGER_OPTIONSMENUIGNOREWARNINGS=0; +*__INTEGER_OPTIONSMENUDISABLESYNTAX=0; *__INTEGER_VIEWMENUID=0; *__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID=0; *__INTEGER_VIEWMENUSHOWSEPARATORID=0; @@ -600,6 +583,10 @@ __ARRAY_LONG_MENUSIZE[0]=(ptrszint)nothingvalue; *__INTEGER_RUNMENUID=0; *__INTEGER_RUNMENUSAVEEXEWITHSOURCE=0; *__INTEGER_BRACKETHIGHLIGHT=0; +*__INTEGER_DEBUGMENUID=0; +*__INTEGER_DEBUGMENUCALLSTACK=0; +*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=0; +*__INTEGER_DEBUGMENUAUTOADDCOMMAND=0; *__INTEGER_MULTIHIGHLIGHT=0; *__INTEGER_KEYWORDHIGHLIGHT=0; *__INTEGER_PRESETCOLORSCHEMES=0; @@ -644,6 +631,7 @@ __STRING_IDECUSTOMFONTFILE->len=0; *__LONG_IDECUSTOMFONTHEIGHT=0; *__LONG_IDECUSTOMFONTHANDLE=0; *__LONG_IDERUNMODE=0; +*__BYTE_IDE_USEFONT8=0; if (__ARRAY_STRING_ONAME[2]&1){ if (__ARRAY_STRING_ONAME[2]&2){ tmp_long=__ARRAY_STRING_ONAME[5]; @@ -679,11 +667,57 @@ __ARRAY_INTEGER_PL[6]=0; __ARRAY_INTEGER_PL[0]=(ptrszint)nothingvalue; } } -*__INTEGER_QUICKRETURN=0; -*__LONG_MAKEANDROID=0; -*__LONG_VIRTUALKEYBOARDSTATE=0; -*__LONG_DESIREDVIRTUALKEYBOARDSTATE=0; -*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=0; +if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ +if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_PP_TYPEMOD[0])); +__ARRAY_STRING_PP_TYPEMOD[2]^=1; +__ARRAY_STRING_PP_TYPEMOD[4]=2147483647; +__ARRAY_STRING_PP_TYPEMOD[5]=0; +__ARRAY_STRING_PP_TYPEMOD[6]=0; +__ARRAY_STRING_PP_TYPEMOD[0]=(ptrszint)¬hingstring; +} +} +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&2){ +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_PP_CONVERTEDMOD[0])); +__ARRAY_STRING_PP_CONVERTEDMOD[2]^=1; +__ARRAY_STRING_PP_CONVERTEDMOD[4]=2147483647; +__ARRAY_STRING_PP_CONVERTEDMOD[5]=0; +__ARRAY_STRING_PP_CONVERTEDMOD[6]=0; +__ARRAY_STRING_PP_CONVERTEDMOD[0]=(ptrszint)¬hingstring; +} +} +*__LONG_VWATCHON=0; +*__LONG_VWATCHRECOMPILEATTEMPTS=0; +*__LONG_VWATCHDESIREDSTATE=0; +__STRING_VWATCHERRORCALL->len=0; +__STRING_VWATCHNEWVARIABLE->len=0; +__STRING_VWATCHVARIABLEEXCLUSIONS->len=0; +__STRING_NATIVEDATATYPES->len=0; +*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=0; +*__LONG_QB64PREFIX_SET_DESIREDSTATE=0; +*__LONG_OPEX_RECOMPILEATTEMPTS=0; +*__LONG_OPEX_DESIREDSTATE=0; +*__LONG_OPEXARRAY_RECOMPILEATTEMPTS=0; +*__LONG_OPEXARRAY_DESIREDSTATE=0; if (__ARRAY_LONG_EVERYCASESET[2]&1){ if (__ARRAY_LONG_EVERYCASESET[2]&2){ memset((void*)(__ARRAY_LONG_EVERYCASESET[0]),0,__ARRAY_LONG_EVERYCASESET[5]*4); @@ -701,6 +735,22 @@ __ARRAY_LONG_EVERYCASESET[0]=(ptrszint)nothingvalue; } } *__ULONG_SELECTCASECOUNTER=0; +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){ +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){ +memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4); +}else{ +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +}else{ +free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +} +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]^=1; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]=2147483647; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=0; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=0; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)nothingvalue; +} +} if (__ARRAY_LONG_EXECLEVEL[2]&1){ if (__ARRAY_LONG_EXECLEVEL[2]&2){ memset((void*)(__ARRAY_LONG_EXECLEVEL[0]),0,__ARRAY_LONG_EXECLEVEL[5]*4); @@ -740,20 +790,20 @@ __ARRAY_STRING_USERDEFINE[10]=0; __ARRAY_STRING_USERDEFINE[0]=(ptrszint)¬hingstring; } } -if (__ARRAY_BIT1_INVALIDLINE[2]&1){ -if (__ARRAY_BIT1_INVALIDLINE[2]&2){ -memset((void*)(__ARRAY_BIT1_INVALIDLINE[0]),0,__ARRAY_BIT1_INVALIDLINE[5]*1/8+1); +if (__ARRAY_BYTE_INVALIDLINE[2]&1){ +if (__ARRAY_BYTE_INVALIDLINE[2]&2){ +memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,__ARRAY_BYTE_INVALIDLINE[5]*1); }else{ -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_BIT1_INVALIDLINE[0])); +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); }else{ -free((void*)(__ARRAY_BIT1_INVALIDLINE[0])); +free((void*)(__ARRAY_BYTE_INVALIDLINE[0])); } -__ARRAY_BIT1_INVALIDLINE[2]^=1; -__ARRAY_BIT1_INVALIDLINE[4]=2147483647; -__ARRAY_BIT1_INVALIDLINE[5]=0; -__ARRAY_BIT1_INVALIDLINE[6]=0; -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)nothingvalue; +__ARRAY_BYTE_INVALIDLINE[2]^=1; +__ARRAY_BYTE_INVALIDLINE[4]=2147483647; +__ARRAY_BYTE_INVALIDLINE[5]=0; +__ARRAY_BYTE_INVALIDLINE[6]=0; +__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)nothingvalue; } } if (__ARRAY_BYTE_DEFINEELSE[2]&1){ @@ -773,9 +823,8 @@ __ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)nothingvalue; } } *__INTEGER_USERDEFINECOUNT=0; -__STRING_REFACTOR_SOURCE->len=0; -__STRING_REFACTOR_DEST->len=0; -*__LONG_FH=0; +__STRING_USERDEFINELIST->len=0; +*__SINGLE_QB64_UPTIME=0; *__LONG_INCLUDE_GDB_DEBUGGING_INFO=0; *__LONG_DEPENDENCY_LAST=0; if (__ARRAY_LONG_DEPENDENCY[2]&1){ @@ -796,20 +845,45 @@ __ARRAY_LONG_DEPENDENCY[0]=(ptrszint)nothingvalue; } *__LONG_USEGL=0; *__LONG_OS_BITS=0; +__STRING_WINDOWTITLE->len=0; *__LONG_CONSOLEMODE=0; *__LONG_NO_C_COMPILE_MODE=0; -*__LONG_CLOUD=0; *__LONG_NOIDEMODE=0; -*__BYTE_VERBOSEMODE=0; +*__BYTE_SHOWWARNINGS=0; +*__BYTE_QUIETMODE=0; __STRING_CMDLINEFILE->len=0; -*__LONG_TOTALUNUSEDVARIABLES=0; -__STRING_USEDVARIABLELIST->len=0; +*__BYTE_MONOCHROMELOGGINGMODE=0; +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +memset((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]),0,__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*120); +}else{ +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]^=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]=2147483647; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=0; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=0; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)nothingvalue; +} +} +__STRING_TYPEDEFINITIONS->len=0; +__STRING_BACKUPTYPEDEFINITIONS->len=0; +*__LONG_TOTALVARIABLESCREATED=0; +*__LONG_TOTALMAINVARIABLESCREATED=0; *__BYTE_BYPASSNEXTVARIABLE=0; *__LONG_TOTALWARNINGS=0; *__LONG_WARNINGLISTITEMS=0; __STRING_LASTWARNINGHEADER->len=0; *__BYTE_DUPLICATECONSTWARNING=0; +*__BYTE_WARNINGSISSUED=0; +*__BYTE_EMPTYSCWARNING=0; +*__LONG_MAXLINENUMBER=0; *__LONG_EXEICONSET=0; +__STRING_QB64PREFIX->len=0; +*__LONG_QB64PREFIX_SET=0; *__BYTE_VERSIONINFOSET=0; __STRING_VIFILEVERSIONNUM->len=0; __STRING_VIPRODUCTVERSIONNUM->len=0; @@ -827,6 +901,7 @@ __STRING_VIWEB->len=0; *__LONG_NOCHECKS=0; *__LONG_CONSOLE=0; *__LONG_SCREENHIDE=0; +*__LONG_ASSERTS=0; *__LONG_OPTMAX=0; if (__ARRAY_STRING256_OPT[2]&1){ if (__ARRAY_STRING256_OPT[2]&2){ @@ -1161,6 +1236,7 @@ __STRING_TMPDIR->len=0; __STRING_TMPDIR2->len=0; *__LONG_THISINSTANCEPID=0; *__LONG_TEMPFOLDERINDEX=0; +*__LONG_FH=0; *__LONG_TEMPFOLDERRECORDS=0; *__LONG_TEMPFOLDERSEARCH=0; *__LONG_FH2=0; @@ -1185,35 +1261,20 @@ __STRING_IDERETURN->len=0; *__LONG_IDEERRORLINE=0; __STRING_IDEMESSAGE->len=0; *__BYTE_OPTIONEXPLICIT=0; +*__BYTE_OPTIONEXPLICITARRAY=0; *__BYTE_OPTIONEXPLICIT_CMD=0; *__LONG_IDESTARTATLINE=0; *__LONG_ERRORLINEININCLUDE=0; +*__LONG_WARNINGININCLUDE=0; +*__LONG_WARNINGININCLUDELINE=0; __STRING_OUTPUTFILE_CMD->len=0; __STRING_COMPILELOG->len=0; -if (__ARRAY_STRING_CNAME[2]&1){ -if (__ARRAY_STRING_CNAME[2]&2){ -tmp_long=__ARRAY_STRING_CNAME[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_CNAME[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_CNAME[0])); -__ARRAY_STRING_CNAME[2]^=1; -__ARRAY_STRING_CNAME[4]=2147483647; -__ARRAY_STRING_CNAME[5]=0; -__ARRAY_STRING_CNAME[6]=0; -__ARRAY_STRING_CNAME[0]=(ptrszint)¬hingstring; -} -} *__ULONG_IDECOMMENTCOLOR=0; *__ULONG_IDEMETACOMMANDCOLOR=0; *__ULONG_IDEQUOTECOLOR=0; *__ULONG_IDETEXTCOLOR=0; *__ULONG_IDEBACKGROUNDCOLOR=0; +*__ULONG_IDECHROMACOLOR=0; *__ULONG_IDEBACKGROUNDCOLOR2=0; *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=0; *__ULONG_IDEKEYWORDCOLOR=0; @@ -1223,10 +1284,9 @@ __ARRAY_STRING_CNAME[0]=(ptrszint)¬hingstring; *__INTEGER_IDE_LEFTPOSITION=0; *__BYTE_IDE_BYPASSAUTOPOSITION=0; *__BYTE_IDESORTSUBS=0; +*__BYTE_IDESUBSLENGTH=0; *__LONG_IDENORMALCURSORSTART=0; *__LONG_IDENORMALCURSOREND=0; -__STRING_IDE_INDEX->len=0; -*__INTEGER_LOADEDIDESETTINGS=0; *__BYTE_MOUSEBUTTONSWAPPED=0; *__BYTE_PASTECURSORATEND=0; *__BYTE_SAVEEXEWITHSOURCE=0; @@ -1234,16 +1294,31 @@ __STRING_IDE_INDEX->len=0; *__BYTE_IDESHOWERRORSIMMEDIATELY=0; *__BYTE_SHOWLINENUMBERSSEPARATOR=0; *__BYTE_SHOWLINENUMBERSUSEBG=0; +*__BYTE_IGNOREWARNINGS=0; +*__BYTE_QB64VERSIONPRINTED=0; +*__BYTE_DISABLESYNTAXHIGHLIGHTER=0; +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG=0; +*__BYTE_WHITELISTQB64FIRSTTIMEMSG=0; +*__BYTE_IDEAUTOLAYOUTKWCAPITALS=0; +*__BYTE_WATCHLISTTOCONSOLE=0; +__STRING_WINDOWSETTINGSSECTION->len=0; +__STRING_COLORSETTINGSSECTION->len=0; +__STRING_CUSTOMDICTIONARYSECTION->len=0; +__STRING_MOUSESETTINGSSECTION->len=0; +__STRING_GENERALSETTINGSSECTION->len=0; +__STRING_DISPLAYSETTINGSSECTION->len=0; +__STRING_COLORSCHEMESSECTION->len=0; +__STRING_DEBUGSETTINGSSECTION->len=0; +__STRING_INIFOLDERINDEX->len=0; +__STRING_DEBUGINFOINIWARNING->len=0; __STRING_CONFIGFILE->len=0; -__STRING_CONFIGBAK->len=0; +*__LONG_IDEBASETCPPORT=0; +*__BYTE_AUTOADDDEBUGCOMMAND=0; +__STRING_WIKIBASEADDRESS->len=0; *__LONG_RESULT=0; __STRING_VALUE->len=0; -*__LONG_CONFIGFILEVERSION=0; __STRING_TEMPLIST->len=0; *__LONG_CHECKCHAR=0; -*__LONG_F=0; -*__LONG_L=0; -__STRING_TEMP->len=0; *__LONG_HASHFIND_NEXTLISTITEM=0; *__LONG_HASHFIND_REVERSE=0; *__LONG_HASHFIND_SEARCHFLAGS=0; @@ -1690,6 +1765,482 @@ __ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)nothingvalue; } } *__LONG_LASTTYPE=0; +*__LONG_LASTTYPEELEMENT=0; +memset((char*)__UDT_ID+ 0,0, 256); +memset((char*)__UDT_ID+ 256,0, 256); +memset((char*)__UDT_ID+ 512,0, 4); +memset((char*)__UDT_ID+ 516,0, 2); +memset((char*)__UDT_ID+ 518,0, 2); +memset((char*)__UDT_ID+ 520,0, 8); +memset((char*)__UDT_ID+ 528,0, 8); +memset((char*)__UDT_ID+ 536,0, 4); +memset((char*)__UDT_ID+ 540,0, 4); +memset((char*)__UDT_ID+ 544,0, 2); +memset((char*)__UDT_ID+ 546,0, 2); +memset((char*)__UDT_ID+ 548,0, 2); +memset((char*)__UDT_ID+ 550,0, 256); +memset((char*)__UDT_ID+ 806,0, 2); +memset((char*)__UDT_ID+ 808,0, 1); +memset((char*)__UDT_ID+ 809,0, 2); +memset((char*)__UDT_ID+ 811,0, 2); +memset((char*)__UDT_ID+ 813,0, 400); +memset((char*)__UDT_ID+ 1213,0, 400); +memset((char*)__UDT_ID+ 1613,0, 256); +memset((char*)__UDT_ID+ 1869,0, 256); +memset((char*)__UDT_ID+ 2125,0, 256); +memset((char*)__UDT_ID+ 2381,0, 4); +memset((char*)__UDT_ID+ 2385,0, 256); +memset((char*)__UDT_ID+ 2641,0, 4); +memset((char*)__UDT_ID+ 2645,0, 2); +memset((char*)__UDT_ID+ 2647,0, 100); +memset((char*)__UDT_ID+ 2747,0, 100); +memset((char*)__UDT_ID+ 2847,0, 4); +memset((char*)__UDT_ID+ 2851,0, 2); +memset((char*)__UDT_ID+ 2853,0, 2); +memset((char*)__UDT_ID+ 2855,0, 4); +memset((char*)__UDT_ID+ 2859,0, 2); +(*(qbs**)(((char*)__UDT_ID)+ 2861))->len=0; +*__LONG_IDN=0; +*__LONG_IDS_MAX=0; +if (__ARRAY_UDT_IDS[2]&1){ +if (__ARRAY_UDT_IDS[2]&2){ +memset((void*)(__ARRAY_UDT_IDS[0]),0,__ARRAY_UDT_IDS[5]*2869); +}else{ +if (__ARRAY_UDT_IDS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); +}else{ +free((void*)(__ARRAY_UDT_IDS[0])); +} +__ARRAY_UDT_IDS[2]^=1; +__ARRAY_UDT_IDS[4]=2147483647; +__ARRAY_UDT_IDS[5]=0; +__ARRAY_UDT_IDS[6]=0; +__ARRAY_UDT_IDS[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_INTEGER_CMEMLIST[2]&1){ +if (__ARRAY_INTEGER_CMEMLIST[2]&2){ +memset((void*)(__ARRAY_INTEGER_CMEMLIST[0]),0,__ARRAY_INTEGER_CMEMLIST[5]*2); +}else{ +if (__ARRAY_INTEGER_CMEMLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_CMEMLIST[0])); +} +__ARRAY_INTEGER_CMEMLIST[2]^=1; +__ARRAY_INTEGER_CMEMLIST[4]=2147483647; +__ARRAY_INTEGER_CMEMLIST[5]=0; +__ARRAY_INTEGER_CMEMLIST[6]=0; +__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_STRING100_SFCMEMARGS[2]&1){ +if (__ARRAY_STRING100_SFCMEMARGS[2]&2){ +memset((void*)(__ARRAY_STRING100_SFCMEMARGS[0]),0,__ARRAY_STRING100_SFCMEMARGS[5]*100); +}else{ +if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0])); +}else{ +free((void*)(__ARRAY_STRING100_SFCMEMARGS[0])); +} +__ARRAY_STRING100_SFCMEMARGS[2]^=1; +__ARRAY_STRING100_SFCMEMARGS[4]=2147483647; +__ARRAY_STRING100_SFCMEMARGS[5]=0; +__ARRAY_STRING100_SFCMEMARGS[6]=0; +__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){ +if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){ +memset((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),0,__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2); +}else{ +if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); +} +__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]^=1; +__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]=2147483647; +__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=0; +__ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=0; +__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue; +} +} +memset((char*)__UDT_CLEARIDDATA+ 0,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 256,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 512,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 516,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 518,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 520,0, 8); +memset((char*)__UDT_CLEARIDDATA+ 528,0, 8); +memset((char*)__UDT_CLEARIDDATA+ 536,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 540,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 544,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 546,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 548,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 550,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 806,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 808,0, 1); +memset((char*)__UDT_CLEARIDDATA+ 809,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 811,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 813,0, 400); +memset((char*)__UDT_CLEARIDDATA+ 1213,0, 400); +memset((char*)__UDT_CLEARIDDATA+ 1613,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 1869,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 2125,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 2381,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 2385,0, 256); +memset((char*)__UDT_CLEARIDDATA+ 2641,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 2645,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 2647,0, 100); +memset((char*)__UDT_CLEARIDDATA+ 2747,0, 100); +memset((char*)__UDT_CLEARIDDATA+ 2847,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 2851,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 2853,0, 2); +memset((char*)__UDT_CLEARIDDATA+ 2855,0, 4); +memset((char*)__UDT_CLEARIDDATA+ 2859,0, 2); +(*(qbs**)(((char*)__UDT_CLEARIDDATA)+ 2861))->len=0; +*__LONG_ISSTRING=0; +*__LONG_ISFLOAT=0; +*__LONG_ISUNSIGNED=0; +*__LONG_ISPOINTER=0; +*__LONG_ISFIXEDLENGTH=0; +*__LONG_ISINCONVENTIONALMEMORY=0; +*__LONG_ISOFFSETINBITS=0; +*__LONG_ISARRAY=0; +*__LONG_ISREFERENCE=0; +*__LONG_ISUDT=0; +*__LONG_ISOFFSET=0; +*__LONG_STRINGTYPE=0; +*__LONG_BITTYPE=0; +*__LONG_UBITTYPE=0; +*__LONG_BYTETYPE=0; +*__LONG_UBYTETYPE=0; +*__LONG_INTEGERTYPE=0; +*__LONG_UINTEGERTYPE=0; +*__LONG_LONGTYPE=0; +*__LONG_ULONGTYPE=0; +*__LONG_INTEGER64TYPE=0; +*__LONG_UINTEGER64TYPE=0; +*__LONG_SINGLETYPE=0; +*__LONG_DOUBLETYPE=0; +*__LONG_FLOATTYPE=0; +*__LONG_OFFSETTYPE=0; +*__LONG_UOFFSETTYPE=0; +*__LONG_UDTTYPE=0; +*__LONG_GOSUBID=0; +*__INTEGER_REDIMOPTION=0; +*__INTEGER_DIMOPTION=0; +*__INTEGER_ARRAYDESC=0; +*__INTEGER_QBERRORHAPPENED=0; +*__INTEGER_QBERRORCODE=0; +*__INTEGER_QBERRORLINE=0; +__STRING_SOURCEFILE->len=0; +__STRING_FILE->len=0; +*__INTEGER_CONSTEQUATION=0; +*__INTEGER_DYNAMICMODE=0; +__STRING_FINDIDSECONDARG->len=0; +*__INTEGER_FINDANOTHERID=0; +*__LONG_FINDIDINTERNAL=0; +*__LONG_CURRENTID=0; +*__LONG_LINENUMBER=0; +*__LONG_REALLINENUMBER=0; +*__LONG_TOTALLINENUMBER=0; +*__LONG_DEFININGTYPEERROR=0; +__STRING_WHOLELINE->len=0; +*__LONG_FIRSTLINENUMBERLABELVWATCH=0; +*__LONG_LASTLINENUMBERLABELVWATCH=0; +__STRING_VWATCHUSEDLABELS->len=0; +__STRING_VWATCHUSEDSKIPLABELS->len=0; +__STRING_LINEFRAGMENT->len=0; +*__INTEGER_ARRAYPROCESSINGHAPPENED=0; +*__INTEGER_STRINGPROCESSINGHAPPENED=0; +__STRING_CLEANUPSTRINGPROCESSINGCALL->len=0; +*__BYTE_INPUTFUNCTIONCALLED=0; +*__INTEGER_RECOMPILE=0; +*__INTEGER_OPTIONBASE=0; +*__INTEGER_ADDMETASTATIC=0; +*__INTEGER_ADDMETADYNAMIC=0; +__STRING_ADDMETAINCLUDE->len=0; +*__INTEGER_CLOSEDMAIN=0; +__STRING_MODULE->len=0; +__STRING_SUBFUNC->len=0; +*__LONG_SUBFUNCN=0; +*__BYTE_CLOSEDSUBFUNC=0; +*__LONG_SUBFUNCID=0; +*__INTEGER_DEFDATAHANDLE=0; +*__INTEGER_DIMSFARRAY=0; +*__INTEGER_DIMSHARED=0; +*__INTEGER_SFLISTN=0; +*__LONG_GLINKID=0; +*__INTEGER_GLINKARG=0; +*__LONG_TYPNAME2TYPSIZE=0; +*__LONG_UNIQUENUMBERN=0; +if (__ARRAY_INTEGER64_BITMASK[2]&1){ +if (__ARRAY_INTEGER64_BITMASK[2]&2){ +memset((void*)(__ARRAY_INTEGER64_BITMASK[0]),0,__ARRAY_INTEGER64_BITMASK[5]*8); +}else{ +if (__ARRAY_INTEGER64_BITMASK[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASK[0])); +}else{ +free((void*)(__ARRAY_INTEGER64_BITMASK[0])); +} +__ARRAY_INTEGER64_BITMASK[2]^=1; +__ARRAY_INTEGER64_BITMASK[4]=2147483647; +__ARRAY_INTEGER64_BITMASK[5]=0; +__ARRAY_INTEGER64_BITMASK[6]=0; +__ARRAY_INTEGER64_BITMASK[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_INTEGER64_BITMASKINV[2]&1){ +if (__ARRAY_INTEGER64_BITMASKINV[2]&2){ +memset((void*)(__ARRAY_INTEGER64_BITMASKINV[0]),0,__ARRAY_INTEGER64_BITMASKINV[5]*8); +}else{ +if (__ARRAY_INTEGER64_BITMASKINV[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASKINV[0])); +}else{ +free((void*)(__ARRAY_INTEGER64_BITMASKINV[0])); +} +__ARRAY_INTEGER64_BITMASKINV[2]^=1; +__ARRAY_INTEGER64_BITMASKINV[4]=2147483647; +__ARRAY_INTEGER64_BITMASKINV[5]=0; +__ARRAY_INTEGER64_BITMASKINV[6]=0; +__ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){ +if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){ +tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_DEFINEEXTAZ[0])); +__ARRAY_STRING_DEFINEEXTAZ[2]^=1; +__ARRAY_STRING_DEFINEEXTAZ[4]=2147483647; +__ARRAY_STRING_DEFINEEXTAZ[5]=0; +__ARRAY_STRING_DEFINEEXTAZ[6]=0; +__ARRAY_STRING_DEFINEEXTAZ[0]=(ptrszint)¬hingstring; +} +} +if (__ARRAY_STRING_DEFINEAZ[2]&1){ +if (__ARRAY_STRING_DEFINEAZ[2]&2){ +tmp_long=__ARRAY_STRING_DEFINEAZ[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_DEFINEAZ[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_DEFINEAZ[0])); +__ARRAY_STRING_DEFINEAZ[2]^=1; +__ARRAY_STRING_DEFINEAZ[4]=2147483647; +__ARRAY_STRING_DEFINEAZ[5]=0; +__ARRAY_STRING_DEFINEAZ[6]=0; +__ARRAY_STRING_DEFINEAZ[0]=(ptrszint)¬hingstring; +} +} +*__LONG_STATEMENTN=0; +*__LONG_EVERYCASENEWCASE=0; +*__INTEGER_CONTROLLEVEL=0; +if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){ +if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){ +memset((void*)(__ARRAY_INTEGER_CONTROLTYPE[0]),0,__ARRAY_INTEGER_CONTROLTYPE[5]*2); +}else{ +if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLTYPE[0])); +}else{ +free((void*)(__ARRAY_INTEGER_CONTROLTYPE[0])); +} +__ARRAY_INTEGER_CONTROLTYPE[2]^=1; +__ARRAY_INTEGER_CONTROLTYPE[4]=2147483647; +__ARRAY_INTEGER_CONTROLTYPE[5]=0; +__ARRAY_INTEGER_CONTROLTYPE[6]=0; +__ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_LONG_CONTROLID[2]&1){ +if (__ARRAY_LONG_CONTROLID[2]&2){ +memset((void*)(__ARRAY_LONG_CONTROLID[0]),0,__ARRAY_LONG_CONTROLID[5]*4); +}else{ +if (__ARRAY_LONG_CONTROLID[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLID[0])); +}else{ +free((void*)(__ARRAY_LONG_CONTROLID[0])); +} +__ARRAY_LONG_CONTROLID[2]^=1; +__ARRAY_LONG_CONTROLID[4]=2147483647; +__ARRAY_LONG_CONTROLID[5]=0; +__ARRAY_LONG_CONTROLID[6]=0; +__ARRAY_LONG_CONTROLID[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_LONG_CONTROLVALUE[2]&1){ +if (__ARRAY_LONG_CONTROLVALUE[2]&2){ +memset((void*)(__ARRAY_LONG_CONTROLVALUE[0]),0,__ARRAY_LONG_CONTROLVALUE[5]*4); +}else{ +if (__ARRAY_LONG_CONTROLVALUE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLVALUE[0])); +}else{ +free((void*)(__ARRAY_LONG_CONTROLVALUE[0])); +} +__ARRAY_LONG_CONTROLVALUE[2]^=1; +__ARRAY_LONG_CONTROLVALUE[4]=2147483647; +__ARRAY_LONG_CONTROLVALUE[5]=0; +__ARRAY_LONG_CONTROLVALUE[6]=0; +__ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){ +if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){ +memset((void*)(__ARRAY_INTEGER_CONTROLSTATE[0]),0,__ARRAY_INTEGER_CONTROLSTATE[5]*2); +}else{ +if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLSTATE[0])); +}else{ +free((void*)(__ARRAY_INTEGER_CONTROLSTATE[0])); +} +__ARRAY_INTEGER_CONTROLSTATE[2]^=1; +__ARRAY_INTEGER_CONTROLSTATE[4]=2147483647; +__ARRAY_INTEGER_CONTROLSTATE[5]=0; +__ARRAY_INTEGER_CONTROLSTATE[6]=0; +__ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_LONG_CONTROLREF[2]&1){ +if (__ARRAY_LONG_CONTROLREF[2]&2){ +memset((void*)(__ARRAY_LONG_CONTROLREF[0]),0,__ARRAY_LONG_CONTROLREF[5]*4); +}else{ +if (__ARRAY_LONG_CONTROLREF[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLREF[0])); +}else{ +free((void*)(__ARRAY_LONG_CONTROLREF[0])); +} +__ARRAY_LONG_CONTROLREF[2]^=1; +__ARRAY_LONG_CONTROLREF[4]=2147483647; +__ARRAY_LONG_CONTROLREF[5]=0; +__ARRAY_LONG_CONTROLREF[6]=0; +__ARRAY_LONG_CONTROLREF[0]=(ptrszint)nothingvalue; +} +} +*__INTEGER64_I2=0; +*__INTEGER64_I=0; +memset((char*)__UDT_ID2+ 0,0, 256); +memset((char*)__UDT_ID2+ 256,0, 256); +memset((char*)__UDT_ID2+ 512,0, 4); +memset((char*)__UDT_ID2+ 516,0, 2); +memset((char*)__UDT_ID2+ 518,0, 2); +memset((char*)__UDT_ID2+ 520,0, 8); +memset((char*)__UDT_ID2+ 528,0, 8); +memset((char*)__UDT_ID2+ 536,0, 4); +memset((char*)__UDT_ID2+ 540,0, 4); +memset((char*)__UDT_ID2+ 544,0, 2); +memset((char*)__UDT_ID2+ 546,0, 2); +memset((char*)__UDT_ID2+ 548,0, 2); +memset((char*)__UDT_ID2+ 550,0, 256); +memset((char*)__UDT_ID2+ 806,0, 2); +memset((char*)__UDT_ID2+ 808,0, 1); +memset((char*)__UDT_ID2+ 809,0, 2); +memset((char*)__UDT_ID2+ 811,0, 2); +memset((char*)__UDT_ID2+ 813,0, 400); +memset((char*)__UDT_ID2+ 1213,0, 400); +memset((char*)__UDT_ID2+ 1613,0, 256); +memset((char*)__UDT_ID2+ 1869,0, 256); +memset((char*)__UDT_ID2+ 2125,0, 256); +memset((char*)__UDT_ID2+ 2381,0, 4); +memset((char*)__UDT_ID2+ 2385,0, 256); +memset((char*)__UDT_ID2+ 2641,0, 4); +memset((char*)__UDT_ID2+ 2645,0, 2); +memset((char*)__UDT_ID2+ 2647,0, 100); +memset((char*)__UDT_ID2+ 2747,0, 100); +memset((char*)__UDT_ID2+ 2847,0, 4); +memset((char*)__UDT_ID2+ 2851,0, 2); +memset((char*)__UDT_ID2+ 2853,0, 2); +memset((char*)__UDT_ID2+ 2855,0, 4); +memset((char*)__UDT_ID2+ 2859,0, 2); +(*(qbs**)(((char*)__UDT_ID2)+ 2861))->len=0; +if (__ARRAY_LONG_SFIDLIST[2]&1){ +if (__ARRAY_LONG_SFIDLIST[2]&2){ +memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4); +}else{ +if (__ARRAY_LONG_SFIDLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0])); +}else{ +free((void*)(__ARRAY_LONG_SFIDLIST[0])); +} +__ARRAY_LONG_SFIDLIST[2]^=1; +__ARRAY_LONG_SFIDLIST[4]=2147483647; +__ARRAY_LONG_SFIDLIST[5]=0; +__ARRAY_LONG_SFIDLIST[6]=0; +__ARRAY_LONG_SFIDLIST[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_INTEGER_SFARGLIST[2]&1){ +if (__ARRAY_INTEGER_SFARGLIST[2]&2){ +memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,__ARRAY_INTEGER_SFARGLIST[5]*2); +}else{ +if (__ARRAY_INTEGER_SFARGLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFARGLIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_SFARGLIST[0])); +} +__ARRAY_INTEGER_SFARGLIST[2]^=1; +__ARRAY_INTEGER_SFARGLIST[4]=2147483647; +__ARRAY_INTEGER_SFARGLIST[5]=0; +__ARRAY_INTEGER_SFARGLIST[6]=0; +__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_INTEGER_SFELELIST[2]&1){ +if (__ARRAY_INTEGER_SFELELIST[2]&2){ +memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,__ARRAY_INTEGER_SFELELIST[5]*2); +}else{ +if (__ARRAY_INTEGER_SFELELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFELELIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_SFELELIST[0])); +} +__ARRAY_INTEGER_SFELELIST[2]^=1; +__ARRAY_INTEGER_SFELELIST[4]=2147483647; +__ARRAY_INTEGER_SFELELIST[5]=0; +__ARRAY_INTEGER_SFELELIST[6]=0; +__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)nothingvalue; +} +} +*__BYTE_FILEDROPENABLED=0; +__STRING_SENDC->len=0; +*__LONG_C=0; +__STRING_C->len=0; +*__LONG_IDEPASS=0; +*__LONG_LASTLINERETURN=0; +__STRING_A3->len=0; +*__LONG_CONTINUELINEFROM=0; +*__LONG_LASTLINE=0; +*__LONG_FIRSTLINE=0; +__STRING_F->len=0; +*__LONG_DUMMY=0; +__STRING_TERRMSG->len=0; +__STRING_CURRENTDIR->len=0; +*__LONG_BU_DEPENDENCY_CONSOLE_ONLY=0; +*__LONG_CLOSEALL=0; +*__LONG_LASTUNRESOLVED=0; +*__LONG_RESIZE=0; +*__LONG_RESIZE_SCALE=0; +*__LONG_F=0; +*__LONG_DYNAMICLIBRARY=0; +*__LONG_DIMMETHOD=0; +*__LONG_COMMONOPTION=0; +__STRING_MYLIB->len=0; +__STRING_MYLIBOPT->len=0; +*__LONG_DECLARINGLIBRARY=0; +*__LONG_DYNSCOPE=0; +*__LONG_ELSEFOLLOWUP=0; if (__ARRAY_STRING256_UDTXNAME[2]&1){ if (__ARRAY_STRING256_UDTXNAME[2]&2){ memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256); @@ -1786,7 +2337,6 @@ __ARRAY_INTEGER_UDTXVARIABLE[6]=0; __ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue; } } -*__LONG_LASTTYPEELEMENT=0; if (__ARRAY_STRING256_UDTENAME[2]&1){ if (__ARRAY_STRING256_UDTENAME[2]&2){ memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256); @@ -1915,371 +2465,23 @@ __ARRAY_LONG_UDTENEXT[6]=0; __ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue; } } -memset((void*)__UDT_ID,0,2863); -*__LONG_IDN=0; -*__LONG_IDS_MAX=0; -if (__ARRAY_UDT_IDS[2]&1){ -if (__ARRAY_UDT_IDS[2]&2){ -memset((void*)(__ARRAY_UDT_IDS[0]),0,__ARRAY_UDT_IDS[5]*2863); -}else{ -if (__ARRAY_UDT_IDS[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); -}else{ -free((void*)(__ARRAY_UDT_IDS[0])); -} -__ARRAY_UDT_IDS[2]^=1; -__ARRAY_UDT_IDS[4]=2147483647; -__ARRAY_UDT_IDS[5]=0; -__ARRAY_UDT_IDS[6]=0; -__ARRAY_UDT_IDS[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_INTEGER_CMEMLIST[2]&1){ -if (__ARRAY_INTEGER_CMEMLIST[2]&2){ -memset((void*)(__ARRAY_INTEGER_CMEMLIST[0]),0,__ARRAY_INTEGER_CMEMLIST[5]*2); -}else{ -if (__ARRAY_INTEGER_CMEMLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_CMEMLIST[0])); -} -__ARRAY_INTEGER_CMEMLIST[2]^=1; -__ARRAY_INTEGER_CMEMLIST[4]=2147483647; -__ARRAY_INTEGER_CMEMLIST[5]=0; -__ARRAY_INTEGER_CMEMLIST[6]=0; -__ARRAY_INTEGER_CMEMLIST[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_STRING100_SFCMEMARGS[2]&1){ -if (__ARRAY_STRING100_SFCMEMARGS[2]&2){ -memset((void*)(__ARRAY_STRING100_SFCMEMARGS[0]),0,__ARRAY_STRING100_SFCMEMARGS[5]*100); -}else{ -if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0])); -}else{ -free((void*)(__ARRAY_STRING100_SFCMEMARGS[0])); -} -__ARRAY_STRING100_SFCMEMARGS[2]^=1; -__ARRAY_STRING100_SFCMEMARGS[4]=2147483647; -__ARRAY_STRING100_SFCMEMARGS[5]=0; -__ARRAY_STRING100_SFCMEMARGS[6]=0; -__ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){ -if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){ -memset((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]),0,__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]*2); -}else{ -if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); -} -__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]^=1; -__ARRAY_INTEGER_ARRAYELEMENTSLIST[4]=2147483647; -__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]=0; -__ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=0; -__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue; -} -} -memset((void*)__UDT_CLEARIDDATA,0,2863); -*__LONG_ISSTRING=0; -*__LONG_ISFLOAT=0; -*__LONG_ISUNSIGNED=0; -*__LONG_ISPOINTER=0; -*__LONG_ISFIXEDLENGTH=0; -*__LONG_ISINCONVENTIONALMEMORY=0; -*__LONG_ISOFFSETINBITS=0; -*__LONG_ISARRAY=0; -*__LONG_ISREFERENCE=0; -*__LONG_ISUDT=0; -*__LONG_ISOFFSET=0; -*__LONG_STRINGTYPE=0; -*__LONG_BITTYPE=0; -*__LONG_UBITTYPE=0; -*__LONG_BYTETYPE=0; -*__LONG_UBYTETYPE=0; -*__LONG_INTEGERTYPE=0; -*__LONG_UINTEGERTYPE=0; -*__LONG_LONGTYPE=0; -*__LONG_ULONGTYPE=0; -*__LONG_INTEGER64TYPE=0; -*__LONG_UINTEGER64TYPE=0; -*__LONG_SINGLETYPE=0; -*__LONG_DOUBLETYPE=0; -*__LONG_FLOATTYPE=0; -*__LONG_OFFSETTYPE=0; -*__LONG_UOFFSETTYPE=0; -*__LONG_UDTTYPE=0; -*__LONG_GOSUBID=0; -*__INTEGER_REDIMOPTION=0; -*__INTEGER_DIMOPTION=0; -*__INTEGER_ARRAYDESC=0; -*__INTEGER_QBERRORHAPPENED=0; -*__INTEGER_QBERRORCODE=0; -*__INTEGER_QBERRORLINE=0; -__STRING_SOURCEFILE->len=0; -__STRING_FILE->len=0; -*__INTEGER_CONSTEQUATION=0; -*__INTEGER_DYNAMICMODE=0; -__STRING_FINDIDSECONDARG->len=0; -*__INTEGER_FINDANOTHERID=0; -*__LONG_FINDIDINTERNAL=0; -*__LONG_CURRENTID=0; -*__LONG_LINENUMBER=0; -__STRING_WHOLELINE->len=0; -__STRING_LINEFRAGMENT->len=0; -*__INTEGER_ARRAYPROCESSINGHAPPENED=0; -*__INTEGER_STRINGPROCESSINGHAPPENED=0; -__STRING_CLEANUPSTRINGPROCESSINGCALL->len=0; -*__INTEGER_RECOMPILE=0; -*__INTEGER_OPTIONBASE=0; -*__INTEGER_ADDMETASTATIC=0; -*__INTEGER_ADDMETADYNAMIC=0; -__STRING_ADDMETAINCLUDE->len=0; -*__INTEGER_CLOSEDMAIN=0; -__STRING_MODULE->len=0; -__STRING_SUBFUNC->len=0; -*__LONG_SUBFUNCN=0; -*__LONG_SUBFUNCID=0; -*__INTEGER_DEFDATAHANDLE=0; -*__INTEGER_DIMSFARRAY=0; -*__INTEGER_DIMSHARED=0; -*__INTEGER_SFLISTN=0; -*__LONG_GLINKID=0; -*__INTEGER_GLINKARG=0; -*__LONG_TYPNAME2TYPSIZE=0; -*__LONG_UNIQUENUMBERN=0; -if (__ARRAY_INTEGER64_BITMASK[2]&1){ -if (__ARRAY_INTEGER64_BITMASK[2]&2){ -memset((void*)(__ARRAY_INTEGER64_BITMASK[0]),0,__ARRAY_INTEGER64_BITMASK[5]*8); -}else{ -if (__ARRAY_INTEGER64_BITMASK[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASK[0])); -}else{ -free((void*)(__ARRAY_INTEGER64_BITMASK[0])); -} -__ARRAY_INTEGER64_BITMASK[2]^=1; -__ARRAY_INTEGER64_BITMASK[4]=2147483647; -__ARRAY_INTEGER64_BITMASK[5]=0; -__ARRAY_INTEGER64_BITMASK[6]=0; -__ARRAY_INTEGER64_BITMASK[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_INTEGER64_BITMASKINV[2]&1){ -if (__ARRAY_INTEGER64_BITMASKINV[2]&2){ -memset((void*)(__ARRAY_INTEGER64_BITMASKINV[0]),0,__ARRAY_INTEGER64_BITMASKINV[5]*8); -}else{ -if (__ARRAY_INTEGER64_BITMASKINV[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASKINV[0])); -}else{ -free((void*)(__ARRAY_INTEGER64_BITMASKINV[0])); -} -__ARRAY_INTEGER64_BITMASKINV[2]^=1; -__ARRAY_INTEGER64_BITMASKINV[4]=2147483647; -__ARRAY_INTEGER64_BITMASKINV[5]=0; -__ARRAY_INTEGER64_BITMASKINV[6]=0; -__ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){ -if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){ -tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_DEFINEEXTAZ[0])); -__ARRAY_STRING_DEFINEEXTAZ[2]^=1; -__ARRAY_STRING_DEFINEEXTAZ[4]=2147483647; -__ARRAY_STRING_DEFINEEXTAZ[5]=0; -__ARRAY_STRING_DEFINEEXTAZ[6]=0; -__ARRAY_STRING_DEFINEEXTAZ[0]=(ptrszint)¬hingstring; -} -} -if (__ARRAY_STRING_DEFINEAZ[2]&1){ -if (__ARRAY_STRING_DEFINEAZ[2]&2){ -tmp_long=__ARRAY_STRING_DEFINEAZ[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=__ARRAY_STRING_DEFINEAZ[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])); -} -free((void*)(__ARRAY_STRING_DEFINEAZ[0])); -__ARRAY_STRING_DEFINEAZ[2]^=1; -__ARRAY_STRING_DEFINEAZ[4]=2147483647; -__ARRAY_STRING_DEFINEAZ[5]=0; -__ARRAY_STRING_DEFINEAZ[6]=0; -__ARRAY_STRING_DEFINEAZ[0]=(ptrszint)¬hingstring; -} -} -*__LONG_STATEMENTN=0; -*__INTEGER_CONTROLLEVEL=0; -if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){ -if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){ -memset((void*)(__ARRAY_INTEGER_CONTROLTYPE[0]),0,__ARRAY_INTEGER_CONTROLTYPE[5]*2); -}else{ -if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLTYPE[0])); -}else{ -free((void*)(__ARRAY_INTEGER_CONTROLTYPE[0])); -} -__ARRAY_INTEGER_CONTROLTYPE[2]^=1; -__ARRAY_INTEGER_CONTROLTYPE[4]=2147483647; -__ARRAY_INTEGER_CONTROLTYPE[5]=0; -__ARRAY_INTEGER_CONTROLTYPE[6]=0; -__ARRAY_INTEGER_CONTROLTYPE[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_LONG_CONTROLID[2]&1){ -if (__ARRAY_LONG_CONTROLID[2]&2){ -memset((void*)(__ARRAY_LONG_CONTROLID[0]),0,__ARRAY_LONG_CONTROLID[5]*4); -}else{ -if (__ARRAY_LONG_CONTROLID[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLID[0])); -}else{ -free((void*)(__ARRAY_LONG_CONTROLID[0])); -} -__ARRAY_LONG_CONTROLID[2]^=1; -__ARRAY_LONG_CONTROLID[4]=2147483647; -__ARRAY_LONG_CONTROLID[5]=0; -__ARRAY_LONG_CONTROLID[6]=0; -__ARRAY_LONG_CONTROLID[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_LONG_CONTROLVALUE[2]&1){ -if (__ARRAY_LONG_CONTROLVALUE[2]&2){ -memset((void*)(__ARRAY_LONG_CONTROLVALUE[0]),0,__ARRAY_LONG_CONTROLVALUE[5]*4); -}else{ -if (__ARRAY_LONG_CONTROLVALUE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLVALUE[0])); -}else{ -free((void*)(__ARRAY_LONG_CONTROLVALUE[0])); -} -__ARRAY_LONG_CONTROLVALUE[2]^=1; -__ARRAY_LONG_CONTROLVALUE[4]=2147483647; -__ARRAY_LONG_CONTROLVALUE[5]=0; -__ARRAY_LONG_CONTROLVALUE[6]=0; -__ARRAY_LONG_CONTROLVALUE[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){ -if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){ -memset((void*)(__ARRAY_INTEGER_CONTROLSTATE[0]),0,__ARRAY_INTEGER_CONTROLSTATE[5]*2); -}else{ -if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLSTATE[0])); -}else{ -free((void*)(__ARRAY_INTEGER_CONTROLSTATE[0])); -} -__ARRAY_INTEGER_CONTROLSTATE[2]^=1; -__ARRAY_INTEGER_CONTROLSTATE[4]=2147483647; -__ARRAY_INTEGER_CONTROLSTATE[5]=0; -__ARRAY_INTEGER_CONTROLSTATE[6]=0; -__ARRAY_INTEGER_CONTROLSTATE[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_LONG_CONTROLREF[2]&1){ -if (__ARRAY_LONG_CONTROLREF[2]&2){ -memset((void*)(__ARRAY_LONG_CONTROLREF[0]),0,__ARRAY_LONG_CONTROLREF[5]*4); -}else{ -if (__ARRAY_LONG_CONTROLREF[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLREF[0])); -}else{ -free((void*)(__ARRAY_LONG_CONTROLREF[0])); -} -__ARRAY_LONG_CONTROLREF[2]^=1; -__ARRAY_LONG_CONTROLREF[4]=2147483647; -__ARRAY_LONG_CONTROLREF[5]=0; -__ARRAY_LONG_CONTROLREF[6]=0; -__ARRAY_LONG_CONTROLREF[0]=(ptrszint)nothingvalue; -} -} -*__INTEGER64_I2=0; -*__INTEGER64_I=0; -memset((void*)__UDT_ID2,0,2863); -if (__ARRAY_LONG_SFIDLIST[2]&1){ -if (__ARRAY_LONG_SFIDLIST[2]&2){ -memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4); -}else{ -if (__ARRAY_LONG_SFIDLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0])); -}else{ -free((void*)(__ARRAY_LONG_SFIDLIST[0])); -} -__ARRAY_LONG_SFIDLIST[2]^=1; -__ARRAY_LONG_SFIDLIST[4]=2147483647; -__ARRAY_LONG_SFIDLIST[5]=0; -__ARRAY_LONG_SFIDLIST[6]=0; -__ARRAY_LONG_SFIDLIST[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_INTEGER_SFARGLIST[2]&1){ -if (__ARRAY_INTEGER_SFARGLIST[2]&2){ -memset((void*)(__ARRAY_INTEGER_SFARGLIST[0]),0,__ARRAY_INTEGER_SFARGLIST[5]*2); -}else{ -if (__ARRAY_INTEGER_SFARGLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFARGLIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_SFARGLIST[0])); -} -__ARRAY_INTEGER_SFARGLIST[2]^=1; -__ARRAY_INTEGER_SFARGLIST[4]=2147483647; -__ARRAY_INTEGER_SFARGLIST[5]=0; -__ARRAY_INTEGER_SFARGLIST[6]=0; -__ARRAY_INTEGER_SFARGLIST[0]=(ptrszint)nothingvalue; -} -} -if (__ARRAY_INTEGER_SFELELIST[2]&1){ -if (__ARRAY_INTEGER_SFELELIST[2]&2){ -memset((void*)(__ARRAY_INTEGER_SFELELIST[0]),0,__ARRAY_INTEGER_SFELELIST[5]*2); -}else{ -if (__ARRAY_INTEGER_SFELELIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFELELIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_SFELELIST[0])); -} -__ARRAY_INTEGER_SFELELIST[2]^=1; -__ARRAY_INTEGER_SFELELIST[4]=2147483647; -__ARRAY_INTEGER_SFELELIST[5]=0; -__ARRAY_INTEGER_SFELELIST[6]=0; -__ARRAY_INTEGER_SFELELIST[0]=(ptrszint)nothingvalue; -} -} -*__BYTE_FILEDROPENABLED=0; -__STRING_SENDC->len=0; -*__LONG_C=0; -__STRING_C->len=0; -*__LONG_IDEPASS=0; -*__LONG_LASTLINERETURN=0; -__STRING_A3->len=0; -*__LONG_CONTINUELINEFROM=0; -*__LONG_LASTLINE=0; -*__LONG_FIRSTLINE=0; -__STRING_F->len=0; -*__LONG_DUMMY=0; -__STRING_CURRENTDIR->len=0; -*__LONG_BU_DEPENDENCY_CONSOLE_ONLY=0; -*__LONG_CLOSEALL=0; -*__LONG_LASTUNRESOLVED=0; -*__LONG_RESIZE=0; -*__LONG_RESIZE_SCALE=0; -*__LONG_DYNAMICLIBRARY=0; -*__LONG_DIMMETHOD=0; -*__LONG_COMMONOPTION=0; -__STRING_MYLIB->len=0; -__STRING_MYLIBOPT->len=0; -*__LONG_DECLARINGLIBRARY=0; -*__LONG_DYNSCOPE=0; -*__LONG_ELSEFOLLOWUP=0; *__LONG_DEFININGTYPE=0; +if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){ +if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ +memset((void*)(__ARRAY_UDT_USEDVARIABLELIST[0]),0,__ARRAY_UDT_USEDVARIABLELIST[5]*120); +}else{ +if (__ARRAY_UDT_USEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_USEDVARIABLELIST[0])); +} +__ARRAY_UDT_USEDVARIABLELIST[2]^=1; +__ARRAY_UDT_USEDVARIABLELIST[4]=2147483647; +__ARRAY_UDT_USEDVARIABLELIST[5]=0; +__ARRAY_UDT_USEDVARIABLELIST[6]=0; +__ARRAY_UDT_USEDVARIABLELIST[0]=(ptrszint)nothingvalue; +} +} if (__ARRAY_STRING_WARNING[2]&1){ if (__ARRAY_STRING_WARNING[2]&2){ tmp_long=__ARRAY_STRING_WARNING[5]; @@ -2299,6 +2501,57 @@ __ARRAY_STRING_WARNING[6]=0; __ARRAY_STRING_WARNING[0]=(ptrszint)¬hingstring; } } +if (__ARRAY_LONG_WARNINGLINES[2]&1){ +if (__ARRAY_LONG_WARNINGLINES[2]&2){ +memset((void*)(__ARRAY_LONG_WARNINGLINES[0]),0,__ARRAY_LONG_WARNINGLINES[5]*4); +}else{ +if (__ARRAY_LONG_WARNINGLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0])); +}else{ +free((void*)(__ARRAY_LONG_WARNINGLINES[0])); +} +__ARRAY_LONG_WARNINGLINES[2]^=1; +__ARRAY_LONG_WARNINGLINES[4]=2147483647; +__ARRAY_LONG_WARNINGLINES[5]=0; +__ARRAY_LONG_WARNINGLINES[6]=0; +__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_LONG_WARNINGINCLINES[2]&1){ +if (__ARRAY_LONG_WARNINGINCLINES[2]&2){ +memset((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),0,__ARRAY_LONG_WARNINGINCLINES[5]*4); +}else{ +if (__ARRAY_LONG_WARNINGINCLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0])); +}else{ +free((void*)(__ARRAY_LONG_WARNINGINCLINES[0])); +} +__ARRAY_LONG_WARNINGINCLINES[2]^=1; +__ARRAY_LONG_WARNINGINCLINES[4]=2147483647; +__ARRAY_LONG_WARNINGINCLINES[5]=0; +__ARRAY_LONG_WARNINGINCLINES[6]=0; +__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)nothingvalue; +} +} +if (__ARRAY_STRING_WARNINGINCFILES[2]&1){ +if (__ARRAY_STRING_WARNINGINCFILES[2]&2){ +tmp_long=__ARRAY_STRING_WARNINGINCFILES[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=__ARRAY_STRING_WARNINGINCFILES[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])); +} +free((void*)(__ARRAY_STRING_WARNINGINCFILES[0])); +__ARRAY_STRING_WARNINGINCFILES[2]^=1; +__ARRAY_STRING_WARNINGINCFILES[4]=2147483647; +__ARRAY_STRING_WARNINGINCFILES[5]=0; +__ARRAY_STRING_WARNINGINCFILES[6]=0; +__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)¬hingstring; +} +} *__LONG_PTRSZ=0; *__LONG_I2=0; *__LONG_I3=0; @@ -2306,13 +2559,14 @@ __ARRAY_STRING_WARNING[0]=(ptrszint)¬hingstring; *__LONG_IDERECOMPILE=0; __STRING_LINEBACKUP->len=0; __STRING_FORCEINCLUDEFROMROOT->len=0; +*__LONG_ADDINGVWATCH=0; __STRING_WHOLESTV->len=0; +__STRING_TEMP->len=0; *__LONG_TEMP=0; __STRING_L->len=0; __STRING_R->len=0; -__STRING_L1->len=0; -*__LONG_A=0; __STRING_R1->len=0; +*__LONG_A=0; __STRING_CWHOLELINE->len=0; *__LONG_WHOLELINEN=0; *__LONG_WHOLELINEI=0; @@ -2337,37 +2591,27 @@ __STRING_HASHNAME->len=0; *__LONG_HASHRESFLAGS=0; *__LONG_HASHRESREF=0; *__LONG_U=0; +*__LONG_NEWASTYPEBLOCKSYNTAX=0; +__STRING_PREVIOUSELEMENT->len=0; +__STRING_LASTELEMENT->len=0; +__STRING_CN->len=0; *__LONG_HASHFLAGS=0; *__LONG_ALLOW=0; -*__LONG_ALTERED=0; -*__LONG_FINISHED=0; -*__LONG_VP=0; -*__LONG_FIRST=0; -*__LONG_SECOND=0; -*__LONG_THIRD=0; -*__LONG_FOURTH=0; -__STRING_RED->len=0; -__STRING_GREEN->len=0; -__STRING_BLUE->len=0; -__STRING_ALPHA->len=0; -__STRING_VAL->len=0; -*__LONG_WI=0; -*__ULONG_CLR=0; -*__LONG_EMERGENCY_EXIT=0; -*__LONG_L2=0; -*__LONG_FOUND=0; -*__LONG_T=0; -*__LONG_I4=0; -__STRING_TEMP1->len=0; *__LONG_PENDING=0; *__LONG_TYPEOVERRIDE=0; __STRING_S->len=0; +__STRING_READABLE_E->len=0; *__LONG_B=0; __STRING_E2->len=0; +__STRING_E3->len=0; +*__LONG_REMOVECOMMA=0; +__STRING_TEMP1->len=0; +*__LONG_T=0; *__FLOAT_CONSTVAL=0; *__INTEGER64_CONSTVAL=0; *__UINTEGER64_CONSTVAL=0; *__LONG_ISSUEWARNING=0; +__STRING_THISCONSTVAL->len=0; *__LONG_D=0; *__LONG_PREDEFINING=0; *__LONG_INDIRECTLIBRARY=0; @@ -2406,23 +2650,15 @@ __STRING_X->len=0; *__LONG_IMPLIEDENDIF=0; *__LONG_THENGOTO=0; *__LONG_NEWIF=0; -*__LONG_OPEX_COMMENTS=0; -*__LONG_DOTLINECOUNT=0; +*__LONG_MAXPROGRESSWIDTH=0; +*__LONG_PERCENTAGE=0; +*__LONG_PERCENTAGECHARS=0; +*__LONG_PREVPERCENTAGE=0; +*__LONG_PREVPERCENTAGECHARS=0; __STRING_LAYOUTORIGINAL->len=0; *__LONG_LHSCONTROLLEVEL=0; __STRING_A3U->len=0; -__STRING_METACOMMAND->len=0; -__STRING_METACOMMANDHINT->len=0; -__STRING_SOURCECONTENT->len=0; -__STRING_DESTLOCATION->len=0; -*__LONG_I3STEP=0; -*__LONG_I3START=0; -__STRING_A4->len=0; -__STRING_A3STRING->len=0; -*__LONG_C3=0; -*__LONG_WHITESPACE=0; -__STRING_A3QUOTEDSTRING->len=0; -__STRING_SOURCELOCATION->len=0; +__STRING_TEMPOP->len=0; *__LONG_FIRSTDELIMITER=0; *__LONG_SECONDDELIMITER=0; __STRING_VERSIONINFOKEY->len=0; @@ -2447,7 +2683,9 @@ __STRING_AA->len=0; *__LONG_LASTFUSE=0; *__LONG_V1=0; *__LONG_V2=0; -*__LONG_DEFININGTYPEERROR=0; +*__LONG_WORDSINTYPENAME=0; +__STRING_NEXTELEMENT->len=0; +__STRING_THISELEMENT->len=0; *__LONG_CUSTOMTYPELIBRARY=0; *__LONG_STATICLINKEDLIBRARY=0; *__LONG_SFDECLARE=0; @@ -2465,6 +2703,7 @@ __STRING_X2->len=0; __STRING_DLLNAME->len=0; *__LONG_TARGETID=0; __STRING_EE->len=0; +__STRING_SUBFUNCORIGINALNAME->len=0; __STRING_SUBFUNCRET->len=0; *__LONG_RETTYP=0; *__LONG_ADDSTATIC2LAYOUT=0; @@ -2504,7 +2743,6 @@ __STRING_F12->len=0; __STRING_EL->len=0; __STRING_ER->len=0; *__LONG_USEDTO=0; -__STRING_E3->len=0; __STRING_O->len=0; __STRING_O2->len=0; *__LONG_O=0; @@ -2513,6 +2751,7 @@ __STRING_OPTI->len=0; __STRING_OPTCONTROLLER->len=0; __STRING_OPTPASSED->len=0; __STRING_CT->len=0; +*__LONG_NEWSHAREDSYNTAX=0; __STRING_L2->len=0; *__LONG_METHOD=0; __STRING_TS->len=0; @@ -2521,6 +2760,8 @@ __STRING_OLDSUBFUNC->len=0; *__LONG_T2=0; *__LONG_T2SIZE=0; *__LONG_RETVAL=0; +*__LONG_SHAREDASLAYOUTADDED=0; +__STRING_L3->len=0; *__LONG_LMAY=0; *__LONG_LMUST=0; *__LONG_USEPOSITION=0; @@ -2536,6 +2777,7 @@ __STRING_VAR->len=0; __STRING_LS->len=0; __STRING_BYTESPERELEMENT->len=0; *__LONG_CLEARERASERETURN=0; +*__LONG_NEWDIMSYNTAX=0; *__LONG_NOTYPE=0; *__LONG_LISTARRAY=0; __STRING_VARNAME->len=0; @@ -2553,6 +2795,7 @@ __STRING_VARNAME2->len=0; *__LONG_S2=0; *__LONG_OLDMETHOD=0; *__LONG_DIMSHARED2=0; +*__LONG_NEWDIMSYNTAXTYPEPASSBACK=0; __STRING_IGNORE->len=0; __STRING_LBL->len=0; *__LONG_ISINTEGER64=0; @@ -2567,7 +2810,6 @@ __STRING_ST->len=0; __STRING_BYTES->len=0; *__LONG_CISPECIAL=0; *__LONG_USECALL=0; -__STRING_CN->len=0; *__LONG_ARGN=0; *__LONG_VALIDSUB=0; *__LONG_LINEINPUT=0; @@ -2635,14 +2877,13 @@ __STRING_PUREVARNAME->len=0; *__LONG_ARRAYELEMENTS=0; *__LONG_COMMAND=0; __STRING_X1->len=0; -*__LONG_FINDITEM=0; -*__LONG_WHICHLINE=0; -*__LONG_VARNAMELEN=0; -__STRING_INTERNALVARNAME->len=0; -*__LONG_FINDLF=0; +*__LONG_TOTALUNUSEDVARIABLES=0; *__LONG_MAXVARNAMELEN=0; +__STRING_HEADER->len=0; __STRING_PATH__ASCII_CHR_046__OUT->len=0; __STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE->len=0; +*__LONG_MANIFEST=0; +*__LONG_MANIFESTEMBED=0; *__LONG_FFH=0; *__LONG_WIN=0; *__LONG_LNX=0; @@ -2661,8 +2902,15 @@ __STRING_LIBQB->len=0; *__LONG_X1=0; __STRING_B->len=0; *__LONG_QBERRORHAPPENEDVALUE=0; -*_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP=0; -*_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP_SET=0; +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES=0; +_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST->len=0; +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES=0; +_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST->len=0; +*_SUB_VWATCHADDLABEL_LONG_PREVLABEL=0; +*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=0; +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND=0; +*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD=0; +*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD=0; _FUNC_IDE2_STRING_MENULOCATIONS->len=0; *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL=0; *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1=0; @@ -2678,14 +2926,99 @@ _FUNC_IDE2_STRING_MENULOCATIONS->len=0; *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY=0; *_FUNC_IDE2_LONG_FORCERESIZE=0; *_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED=0; -*_FUNC_IDE2_BYTE_IDECHANGEDBEFORE=0; +*_FUNC_IDE2_BYTE_QUICKNAVHOVER=0; +*_FUNC_IDE2_BYTE_FINDFIELDHOVER=0; +*_FUNC_IDE2_BYTE_VERSIONINFOHOVER=0; +*_FUNC_IDE2_BYTE_LINENUMBERHOVER=0; +*_FUNC_IDE2_BYTE_WAITINGFORVARLIST=0; +*_FUNC_IDE2_BYTE_ATTEMPTTOHOST=0; +*_FUNC_IDE2_BYTE_CHANGINGTCPPORT=0; +*_FUNC_IDE2_LONG_MOX=0; +*_FUNC_IDE2_LONG_MOY=0; *_FUNC_IDE2_LONG_HELP_SCROLLBAR=0; *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD=0; -*_FUNC_IDEOPEN_LONG_ALLFILES=0; +_FUNC_IDE2_STRING_MATHEVALEXPR->len=0; +*_SUB_DEBUGMODE_BYTE_PAUSEMODE=0; +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=0; +*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT=0; +_SUB_DEBUGMODE_STRING_BUFFER->len=0; +_SUB_DEBUGMODE_STRING_CURRENTSUB->len=0; +*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND=0; +*_SUB_DEBUGMODE_BYTE_PANELACTIVE=0; +memset((void*)_SUB_DEBUGMODE_UDT_VWATCHPANEL,0,36); +_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST->len=0; +*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=0; +*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES=0; +_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len=0; +*_FUNC_EXPANDARRAY_LONG_THISLEVEL=0; +_FUNC_EXPANDARRAY_STRING_RETURNVALUE->len=0; +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES=0; _SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS->len=0; *_SUB_IDESHOWTEXT_BYTE_MANUALLIST=0; -_SUB_IDEOBJUPDATE_STRING_SEARCHTERM->len=0; *_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=0; +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=0; +memset((void*)_FUNC_IDEACTIVITYBOX_UDT_P,0,20); +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&2){ +memset((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]*89); +}else{ +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])); +} +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]^=1; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +} +memset((void*)(_FUNC_IDEACTIVITYBOX_STRING1_SEP->chr),0,1); +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=0; +if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ +tmp_long=_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])); +} +free((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0])); +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]^=1; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4]=2147483647; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[6]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)¬hingstring; +} +} +*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=0; +*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=0; +*_FUNC_IDEACTIVITYBOX_LONG_TW=0; +*_FUNC_IDEACTIVITYBOX_LONG_W=0; +*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=0; +*_FUNC_IDEACTIVITYBOX_LONG_I=0; +*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=0; +*_FUNC_IDEACTIVITYBOX_LONG_W2=0; +*_FUNC_IDEACTIVITYBOX_LONG_F=0; +*_FUNC_IDEACTIVITYBOX_LONG_CX=0; +*_FUNC_IDEACTIVITYBOX_LONG_CY=0; +*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=0; +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE=0; +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN=0; +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP=0; +*_FUNC_IDEACTIVITYBOX_LONG_ALT=0; +*_FUNC_IDEACTIVITYBOX_LONG_OLDALT=0; +_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER->len=0; +*_FUNC_IDEACTIVITYBOX_LONG_K=0; +*_FUNC_IDEACTIVITYBOX_LONG_INFO=0; +*_FUNC_IDEACTIVITYBOX_LONG_T=0; +*_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=0; _SUB_GETINPUT_STRING_ASCVALUE->len=0; *_SUB_HELP_SHOWTEXT_LONG_SETUP=0; -*_FUNC_WIKI_BYTE_ALTERNATIVESERVER=0; +*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN=0; +_FUNC_GETBYTES_STRING_PREVIOUSVALUE->len=0; +*_FUNC_GETBYTES_LONG_GETBYTESPOSITION=0; diff --git a/internal/source/data1.txt b/internal/source/data1.txt index 323a7598c..1ea2a2d21 100644 --- a/internal/source/data1.txt +++ b/internal/source/data1.txt @@ -5,17 +5,27 @@ if(_FUNC_PARSECMDLINEARGS_LONG_I==NULL){ _FUNC_PARSECMDLINEARGS_LONG_I=(int32*)mem_static_malloc(4); *_FUNC_PARSECMDLINEARGS_LONG_I=0; } -int64 fornext_value2004; -int64 fornext_finalvalue2004; -int64 fornext_step2004; -uint8 fornext_step_negative2004; +int64 fornext_value2155; +int64 fornext_finalvalue2155; +int64 fornext_step2155; +uint8 fornext_step_negative2155; qbs *_FUNC_PARSECMDLINEARGS_STRING_TOKEN=NULL; if (!_FUNC_PARSECMDLINEARGS_STRING_TOKEN)_FUNC_PARSECMDLINEARGS_STRING_TOKEN=qbs_new(0,0); -static qbs *sc_2005=qbs_new(0,0); -static qbs *sc_2026=qbs_new(0,0); +static qbs *sc_2156=qbs_new(0,0); +int32 *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH=NULL; +if(_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH==NULL){ +_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH=(int32*)mem_static_malloc(4); +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH=0; +} +int32 *_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE=NULL; +if(_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE==NULL){ +_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE=(int32*)mem_static_malloc(4); +*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE=0; +} +static qbs *sc_2179=qbs_new(0,0); qbs *_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME=NULL; if (!_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME)_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME=qbs_new(0,0); -byte_element_struct *byte_element_2048=NULL; -if (!byte_element_2048){ -if ((mem_static_pointer+=12)tmp||_FUNC_COUNTELEMENTS_STRING_A->fixed||_FUNC_COUNTELEMENTS_STRING_A->readonly){ -oldstr2169=_FUNC_COUNTELEMENTS_STRING_A; -if (oldstr2169->cmem_descriptor){ -_FUNC_COUNTELEMENTS_STRING_A=qbs_new_cmem(oldstr2169->len,0); -}else{ -_FUNC_COUNTELEMENTS_STRING_A=qbs_new(oldstr2169->len,0); -} -memcpy(_FUNC_COUNTELEMENTS_STRING_A->chr,oldstr2169->chr,oldstr2169->len); -} -int32 *_FUNC_COUNTELEMENTS_LONG_N=NULL; -if(_FUNC_COUNTELEMENTS_LONG_N==NULL){ -_FUNC_COUNTELEMENTS_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_COUNTELEMENTS_LONG_N=0; -} -int32 *_FUNC_COUNTELEMENTS_LONG_C=NULL; -if(_FUNC_COUNTELEMENTS_LONG_C==NULL){ -_FUNC_COUNTELEMENTS_LONG_C=(int32*)mem_static_malloc(4); -*_FUNC_COUNTELEMENTS_LONG_C=0; -} -int32 *_FUNC_COUNTELEMENTS_LONG_I=NULL; -if(_FUNC_COUNTELEMENTS_LONG_I==NULL){ -_FUNC_COUNTELEMENTS_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_COUNTELEMENTS_LONG_I=0; -} -int64 fornext_value2171; -int64 fornext_finalvalue2171; -int64 fornext_step2171; -uint8 fornext_step_negative2171; -qbs *_FUNC_COUNTELEMENTS_STRING_E=NULL; -if (!_FUNC_COUNTELEMENTS_STRING_E)_FUNC_COUNTELEMENTS_STRING_E=qbs_new(0,0); -int32 *_FUNC_COUNTELEMENTS_LONG_B=NULL; -if(_FUNC_COUNTELEMENTS_LONG_B==NULL){ -_FUNC_COUNTELEMENTS_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_COUNTELEMENTS_LONG_B=0; +byte_element_struct *byte_element_2336=NULL; +if (!byte_element_2336){ +if ((mem_static_pointer+=12)tmp||_FUNC_VERIFYNUMBER_STRING_TEXT->fixed||_FUNC_VERIFYNUMBER_STRING_TEXT->readonly){ -oldstr3537=_FUNC_VERIFYNUMBER_STRING_TEXT; -if (oldstr3537->cmem_descriptor){ -_FUNC_VERIFYNUMBER_STRING_TEXT=qbs_new_cmem(oldstr3537->len,0); +qbs*oldstr3699=NULL; +if(_FUNC_EVALPREIF_STRING_TEXT->tmp||_FUNC_EVALPREIF_STRING_TEXT->fixed||_FUNC_EVALPREIF_STRING_TEXT->readonly){ +oldstr3699=_FUNC_EVALPREIF_STRING_TEXT; +if (oldstr3699->cmem_descriptor){ +_FUNC_EVALPREIF_STRING_TEXT=qbs_new_cmem(oldstr3699->len,0); }else{ -_FUNC_VERIFYNUMBER_STRING_TEXT=qbs_new(oldstr3537->len,0); +_FUNC_EVALPREIF_STRING_TEXT=qbs_new(oldstr3699->len,0); } -memcpy(_FUNC_VERIFYNUMBER_STRING_TEXT->chr,oldstr3537->chr,oldstr3537->len); +memcpy(_FUNC_EVALPREIF_STRING_TEXT->chr,oldstr3699->chr,oldstr3699->len); } -qbs *_FUNC_VERIFYNUMBER_STRING_T=NULL; -if (!_FUNC_VERIFYNUMBER_STRING_T)_FUNC_VERIFYNUMBER_STRING_T=qbs_new(0,0); -int32 *_FUNC_VERIFYNUMBER_LONG_V=NULL; -if(_FUNC_VERIFYNUMBER_LONG_V==NULL){ -_FUNC_VERIFYNUMBER_LONG_V=(int32*)mem_static_malloc(4); -*_FUNC_VERIFYNUMBER_LONG_V=0; +qbs*oldstr3700=NULL; +if(_FUNC_EVALPREIF_STRING_ERR->tmp||_FUNC_EVALPREIF_STRING_ERR->fixed||_FUNC_EVALPREIF_STRING_ERR->readonly){ +oldstr3700=_FUNC_EVALPREIF_STRING_ERR; +if (oldstr3700->cmem_descriptor){ +_FUNC_EVALPREIF_STRING_ERR=qbs_new_cmem(oldstr3700->len,0); +}else{ +_FUNC_EVALPREIF_STRING_ERR=qbs_new(oldstr3700->len,0); } -qbs *_FUNC_VERIFYNUMBER_STRING_T1=NULL; -if (!_FUNC_VERIFYNUMBER_STRING_T1)_FUNC_VERIFYNUMBER_STRING_T1=qbs_new(0,0); +memcpy(_FUNC_EVALPREIF_STRING_ERR->chr,oldstr3700->chr,oldstr3700->len); +} +qbs *_FUNC_EVALPREIF_STRING_TEMP=NULL; +if (!_FUNC_EVALPREIF_STRING_TEMP)_FUNC_EVALPREIF_STRING_TEMP=qbs_new(0,0); +ptrszint *_FUNC_EVALPREIF_ARRAY_STRING_PC_OP=NULL; +if (!_FUNC_EVALPREIF_ARRAY_STRING_PC_OP){ +_FUNC_EVALPREIF_ARRAY_STRING_PC_OP=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALPREIF_ARRAY_STRING_PC_OP)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]=0; +_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]=2147483647; +_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]=0; +_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[6]=0; +_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]=(ptrszint)¬hingstring; +} +qbs *_FUNC_EVALPREIF_STRING_FIRSTSYMBOL=NULL; +if (!_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)_FUNC_EVALPREIF_STRING_FIRSTSYMBOL=qbs_new(0,0); +int32 *_FUNC_EVALPREIF_LONG_FIRST=NULL; +if(_FUNC_EVALPREIF_LONG_FIRST==NULL){ +_FUNC_EVALPREIF_LONG_FIRST=(int32*)mem_static_malloc(4); +*_FUNC_EVALPREIF_LONG_FIRST=0; +} +int32 *_FUNC_EVALPREIF_LONG_I=NULL; +if(_FUNC_EVALPREIF_LONG_I==NULL){ +_FUNC_EVALPREIF_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_EVALPREIF_LONG_I=0; +} +int64 fornext_value3703; +int64 fornext_finalvalue3703; +int64 fornext_step3703; +uint8 fornext_step_negative3703; +int32 *_FUNC_EVALPREIF_LONG_TEMP=NULL; +if(_FUNC_EVALPREIF_LONG_TEMP==NULL){ +_FUNC_EVALPREIF_LONG_TEMP=(int32*)mem_static_malloc(4); +*_FUNC_EVALPREIF_LONG_TEMP=0; +} +int32 *_FUNC_EVALPREIF_LONG_SECONDSYMBOL=NULL; +if(_FUNC_EVALPREIF_LONG_SECONDSYMBOL==NULL){ +_FUNC_EVALPREIF_LONG_SECONDSYMBOL=(int32*)mem_static_malloc(4); +*_FUNC_EVALPREIF_LONG_SECONDSYMBOL=0; +} +int32 *_FUNC_EVALPREIF_LONG_SECOND=NULL; +if(_FUNC_EVALPREIF_LONG_SECOND==NULL){ +_FUNC_EVALPREIF_LONG_SECOND=(int32*)mem_static_malloc(4); +*_FUNC_EVALPREIF_LONG_SECOND=0; +} +int64 fornext_value3705; +int64 fornext_finalvalue3705; +int64 fornext_step3705; +uint8 fornext_step_negative3705; +byte_element_struct *byte_element_3706=NULL; +if (!byte_element_3706){ +if ((mem_static_pointer+=12)tmp||_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->fixed||_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->readonly){ -oldstr3538=_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N; -if (oldstr3538->cmem_descriptor){ -_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3538->len,0); +int32 *_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER=NULL; +if(_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER==NULL){ +_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER=(int32*)mem_static_malloc(4); +*_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER=0; +} +qbs*oldstr3736=NULL; +if(_FUNC_VERIFYNUMBER_STRING_TEXT->tmp||_FUNC_VERIFYNUMBER_STRING_TEXT->fixed||_FUNC_VERIFYNUMBER_STRING_TEXT->readonly){ +oldstr3736=_FUNC_VERIFYNUMBER_STRING_TEXT; +if (oldstr3736->cmem_descriptor){ +_FUNC_VERIFYNUMBER_STRING_TEXT=qbs_new_cmem(oldstr3736->len,0); }else{ -_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3538->len,0); +_FUNC_VERIFYNUMBER_STRING_TEXT=qbs_new(oldstr3736->len,0); } -memcpy(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->chr,oldstr3538->chr,oldstr3538->len); +memcpy(_FUNC_VERIFYNUMBER_STRING_TEXT->chr,oldstr3736->chr,oldstr3736->len); } -int32 *_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=NULL; -if(_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ -_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=0; +qbs *_FUNC_VERIFYNUMBER_STRING_T=NULL; +if (!_FUNC_VERIFYNUMBER_STRING_T)_FUNC_VERIFYNUMBER_STRING_T=qbs_new(0,0); +int32 *_FUNC_VERIFYNUMBER_LONG_V=NULL; +if(_FUNC_VERIFYNUMBER_LONG_V==NULL){ +_FUNC_VERIFYNUMBER_LONG_V=(int32*)mem_static_malloc(4); +*_FUNC_VERIFYNUMBER_LONG_V=0; } -int32 *_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=NULL; -if(_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET==NULL){ -_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=0; -} -int32 pass3541; +qbs *_FUNC_VERIFYNUMBER_STRING_T1=NULL; +if (!_FUNC_VERIFYNUMBER_STRING_T1)_FUNC_VERIFYNUMBER_STRING_T1=qbs_new(0,0); diff --git a/internal/source/data102.txt b/internal/source/data102.txt index 4fc1cf04c..8f2e2fc6e 100644 --- a/internal/source/data102.txt +++ b/internal/source/data102.txt @@ -1,21 +1,21 @@ -qbs*oldstr3542=NULL; -if(_SUB_FREE_UDT_VARSTRINGS_STRING_N->tmp||_SUB_FREE_UDT_VARSTRINGS_STRING_N->fixed||_SUB_FREE_UDT_VARSTRINGS_STRING_N->readonly){ -oldstr3542=_SUB_FREE_UDT_VARSTRINGS_STRING_N; -if (oldstr3542->cmem_descriptor){ -_SUB_FREE_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3542->len,0); +qbs*oldstr3737=NULL; +if(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->tmp||_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->fixed||_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->readonly){ +oldstr3737=_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N; +if (oldstr3737->cmem_descriptor){ +_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3737->len,0); }else{ -_SUB_FREE_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3542->len,0); +_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3737->len,0); } -memcpy(_SUB_FREE_UDT_VARSTRINGS_STRING_N->chr,oldstr3542->chr,oldstr3542->len); +memcpy(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N->chr,oldstr3737->chr,oldstr3737->len); } -int32 *_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=NULL; -if(_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ -_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); -*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=0; +int32 *_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=NULL; +if(_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ +_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=0; } -int32 *_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=NULL; -if(_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET==NULL){ -_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); -*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=0; +int32 *_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=NULL; +if(_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET==NULL){ +_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=0; } -int32 pass3545; +int32 pass3740; diff --git a/internal/source/data103.txt b/internal/source/data103.txt index 22f7d1d07..f183a2954 100644 --- a/internal/source/data103.txt +++ b/internal/source/data103.txt @@ -1,41 +1,21 @@ -qbs*oldstr3546=NULL; -if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->tmp||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->fixed||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->readonly){ -oldstr3546=_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N; -if (oldstr3546->cmem_descriptor){ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3546->len,0); +qbs*oldstr3741=NULL; +if(_SUB_FREE_UDT_VARSTRINGS_STRING_N->tmp||_SUB_FREE_UDT_VARSTRINGS_STRING_N->fixed||_SUB_FREE_UDT_VARSTRINGS_STRING_N->readonly){ +oldstr3741=_SUB_FREE_UDT_VARSTRINGS_STRING_N; +if (oldstr3741->cmem_descriptor){ +_SUB_FREE_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3741->len,0); }else{ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3546->len,0); +_SUB_FREE_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3741->len,0); } -memcpy(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->chr,oldstr3546->chr,oldstr3546->len); +memcpy(_SUB_FREE_UDT_VARSTRINGS_STRING_N->chr,oldstr3741->chr,oldstr3741->len); } -qbs*oldstr3547=NULL; -if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->tmp||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->fixed||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->readonly){ -oldstr3547=_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT; -if (oldstr3547->cmem_descriptor){ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new_cmem(oldstr3547->len,0); -}else{ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new(oldstr3547->len,0); +int32 *_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=NULL; +if(_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ +_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); +*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=0; } -memcpy(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->chr,oldstr3547->chr,oldstr3547->len); +int32 *_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=NULL; +if(_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET==NULL){ +_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); +*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=0; } -qbs*oldstr3548=NULL; -if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->tmp||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->fixed||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->readonly){ -oldstr3548=_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC; -if (oldstr3548->cmem_descriptor){ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new_cmem(oldstr3548->len,0); -}else{ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new(oldstr3548->len,0); -} -memcpy(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->chr,oldstr3548->chr,oldstr3548->len); -} -int32 *_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=NULL; -if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET==NULL){ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=0; -} -int32 *_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=NULL; -if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ -_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=0; -} -int32 pass3550; +int32 pass3744; diff --git a/internal/source/data104.txt b/internal/source/data104.txt index 4818e9360..3a20c7b8c 100644 --- a/internal/source/data104.txt +++ b/internal/source/data104.txt @@ -1,41 +1,22 @@ -qbs*oldstr3551=NULL; -if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->tmp||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->fixed||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->readonly){ -oldstr3551=_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N; -if (oldstr3551->cmem_descriptor){ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3551->len,0); +qbs*oldstr3745=NULL; +if(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N->tmp||_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N->fixed||_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N->readonly){ +oldstr3745=_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N; +if (oldstr3745->cmem_descriptor){ +_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3745->len,0); }else{ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3551->len,0); +_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N=qbs_new(oldstr3745->len,0); } -memcpy(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->chr,oldstr3551->chr,oldstr3551->len); +memcpy(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N->chr,oldstr3745->chr,oldstr3745->len); } -qbs*oldstr3552=NULL; -if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->tmp||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->fixed||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->readonly){ -oldstr3552=_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT; -if (oldstr3552->cmem_descriptor){ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new_cmem(oldstr3552->len,0); -}else{ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new(oldstr3552->len,0); +int32 *_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=NULL; +if(_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT==NULL){ +_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=0; } -memcpy(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->chr,oldstr3552->chr,oldstr3552->len); +int32 *_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=NULL; +if(_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET==NULL){ +_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=0; } -qbs*oldstr3553=NULL; -if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->tmp||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->fixed||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->readonly){ -oldstr3553=_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC; -if (oldstr3553->cmem_descriptor){ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new_cmem(oldstr3553->len,0); -}else{ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new(oldstr3553->len,0); -} -memcpy(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->chr,oldstr3553->chr,oldstr3553->len); -} -int32 *_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=NULL; -if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET==NULL){ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=0; -} -int32 *_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=NULL; -if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ -_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=0; -} -int32 pass3555; +int32 pass3749; +int32 pass3750; diff --git a/internal/source/data105.txt b/internal/source/data105.txt index 4cd60b579..51084a1f6 100644 --- a/internal/source/data105.txt +++ b/internal/source/data105.txt @@ -1,32 +1,41 @@ -qbs*oldstr3556=NULL; -if(_SUB_COPY_FULL_UDT_STRING_DST->tmp||_SUB_COPY_FULL_UDT_STRING_DST->fixed||_SUB_COPY_FULL_UDT_STRING_DST->readonly){ -oldstr3556=_SUB_COPY_FULL_UDT_STRING_DST; -if (oldstr3556->cmem_descriptor){ -_SUB_COPY_FULL_UDT_STRING_DST=qbs_new_cmem(oldstr3556->len,0); +qbs*oldstr3752=NULL; +if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->tmp||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->fixed||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->readonly){ +oldstr3752=_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N; +if (oldstr3752->cmem_descriptor){ +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3752->len,0); }else{ -_SUB_COPY_FULL_UDT_STRING_DST=qbs_new(oldstr3556->len,0); +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3752->len,0); } -memcpy(_SUB_COPY_FULL_UDT_STRING_DST->chr,oldstr3556->chr,oldstr3556->len); +memcpy(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N->chr,oldstr3752->chr,oldstr3752->len); } -qbs*oldstr3557=NULL; -if(_SUB_COPY_FULL_UDT_STRING_SRC->tmp||_SUB_COPY_FULL_UDT_STRING_SRC->fixed||_SUB_COPY_FULL_UDT_STRING_SRC->readonly){ -oldstr3557=_SUB_COPY_FULL_UDT_STRING_SRC; -if (oldstr3557->cmem_descriptor){ -_SUB_COPY_FULL_UDT_STRING_SRC=qbs_new_cmem(oldstr3557->len,0); +qbs*oldstr3753=NULL; +if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->tmp||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->fixed||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->readonly){ +oldstr3753=_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT; +if (oldstr3753->cmem_descriptor){ +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new_cmem(oldstr3753->len,0); }else{ -_SUB_COPY_FULL_UDT_STRING_SRC=qbs_new(oldstr3557->len,0); +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new(oldstr3753->len,0); } -memcpy(_SUB_COPY_FULL_UDT_STRING_SRC->chr,oldstr3557->chr,oldstr3557->len); +memcpy(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->chr,oldstr3753->chr,oldstr3753->len); } -int32 *_SUB_COPY_FULL_UDT_LONG_OFFSET=NULL; -if(_SUB_COPY_FULL_UDT_LONG_OFFSET==NULL){ -_SUB_COPY_FULL_UDT_LONG_OFFSET=(int32*)mem_static_malloc(4); -*_SUB_COPY_FULL_UDT_LONG_OFFSET=0; +qbs*oldstr3754=NULL; +if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->tmp||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->fixed||_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->readonly){ +oldstr3754=_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC; +if (oldstr3754->cmem_descriptor){ +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new_cmem(oldstr3754->len,0); +}else{ +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new(oldstr3754->len,0); } -int32 *_SUB_COPY_FULL_UDT_LONG_ELEMENT=NULL; -if(_SUB_COPY_FULL_UDT_LONG_ELEMENT==NULL){ -_SUB_COPY_FULL_UDT_LONG_ELEMENT=(int32*)mem_static_malloc(4); -*_SUB_COPY_FULL_UDT_LONG_ELEMENT=0; +memcpy(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC->chr,oldstr3754->chr,oldstr3754->len); } -int32 pass3561; -int32 pass3562; +int32 *_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=NULL; +if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET==NULL){ +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=0; +} +int32 *_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=NULL; +if(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ +_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=0; +} +int32 pass3756; diff --git a/internal/source/data106.txt b/internal/source/data106.txt index 1125eef62..fe235d1fe 100644 --- a/internal/source/data106.txt +++ b/internal/source/data106.txt @@ -1,18 +1,41 @@ -int32 *_SUB_DUMP_UDTS_LONG_F=NULL; -if(_SUB_DUMP_UDTS_LONG_F==NULL){ -_SUB_DUMP_UDTS_LONG_F=(int32*)mem_static_malloc(4); -*_SUB_DUMP_UDTS_LONG_F=0; +qbs*oldstr3757=NULL; +if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->tmp||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->fixed||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->readonly){ +oldstr3757=_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N; +if (oldstr3757->cmem_descriptor){ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new_cmem(oldstr3757->len,0); +}else{ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N=qbs_new(oldstr3757->len,0); } -int32 *_SUB_DUMP_UDTS_LONG_I=NULL; -if(_SUB_DUMP_UDTS_LONG_I==NULL){ -_SUB_DUMP_UDTS_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_DUMP_UDTS_LONG_I=0; +memcpy(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N->chr,oldstr3757->chr,oldstr3757->len); } -int64 fornext_value3566; -int64 fornext_finalvalue3566; -int64 fornext_step3566; -uint8 fornext_step_negative3566; -int64 fornext_value3570; -int64 fornext_finalvalue3570; -int64 fornext_step3570; -uint8 fornext_step_negative3570; +qbs*oldstr3758=NULL; +if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->tmp||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->fixed||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->readonly){ +oldstr3758=_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT; +if (oldstr3758->cmem_descriptor){ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new_cmem(oldstr3758->len,0); +}else{ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT=qbs_new(oldstr3758->len,0); +} +memcpy(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT->chr,oldstr3758->chr,oldstr3758->len); +} +qbs*oldstr3759=NULL; +if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->tmp||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->fixed||_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->readonly){ +oldstr3759=_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC; +if (oldstr3759->cmem_descriptor){ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new_cmem(oldstr3759->len,0); +}else{ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC=qbs_new(oldstr3759->len,0); +} +memcpy(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC->chr,oldstr3759->chr,oldstr3759->len); +} +int32 *_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=NULL; +if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET==NULL){ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=(int32*)mem_static_malloc(4); +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=0; +} +int32 *_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=NULL; +if(_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT==NULL){ +_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=(int32*)mem_static_malloc(4); +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=0; +} +int32 pass3761; diff --git a/internal/source/data107.txt b/internal/source/data107.txt index 38bb28f6d..28a137cbc 100644 --- a/internal/source/data107.txt +++ b/internal/source/data107.txt @@ -1,37 +1,32 @@ -qbs*oldstr3572=NULL; -if(_SUB_MANAGEVARIABLELIST_STRING_NAME->tmp||_SUB_MANAGEVARIABLELIST_STRING_NAME->fixed||_SUB_MANAGEVARIABLELIST_STRING_NAME->readonly){ -oldstr3572=_SUB_MANAGEVARIABLELIST_STRING_NAME; -if (oldstr3572->cmem_descriptor){ -_SUB_MANAGEVARIABLELIST_STRING_NAME=qbs_new_cmem(oldstr3572->len,0); +qbs*oldstr3762=NULL; +if(_SUB_COPY_FULL_UDT_STRING_DST->tmp||_SUB_COPY_FULL_UDT_STRING_DST->fixed||_SUB_COPY_FULL_UDT_STRING_DST->readonly){ +oldstr3762=_SUB_COPY_FULL_UDT_STRING_DST; +if (oldstr3762->cmem_descriptor){ +_SUB_COPY_FULL_UDT_STRING_DST=qbs_new_cmem(oldstr3762->len,0); }else{ -_SUB_MANAGEVARIABLELIST_STRING_NAME=qbs_new(oldstr3572->len,0); +_SUB_COPY_FULL_UDT_STRING_DST=qbs_new(oldstr3762->len,0); } -memcpy(_SUB_MANAGEVARIABLELIST_STRING_NAME->chr,oldstr3572->chr,oldstr3572->len); +memcpy(_SUB_COPY_FULL_UDT_STRING_DST->chr,oldstr3762->chr,oldstr3762->len); } -qbs*oldstr3573=NULL; -if(_SUB_MANAGEVARIABLELIST_STRING___CNAME->tmp||_SUB_MANAGEVARIABLELIST_STRING___CNAME->fixed||_SUB_MANAGEVARIABLELIST_STRING___CNAME->readonly){ -oldstr3573=_SUB_MANAGEVARIABLELIST_STRING___CNAME; -if (oldstr3573->cmem_descriptor){ -_SUB_MANAGEVARIABLELIST_STRING___CNAME=qbs_new_cmem(oldstr3573->len,0); +qbs*oldstr3763=NULL; +if(_SUB_COPY_FULL_UDT_STRING_SRC->tmp||_SUB_COPY_FULL_UDT_STRING_SRC->fixed||_SUB_COPY_FULL_UDT_STRING_SRC->readonly){ +oldstr3763=_SUB_COPY_FULL_UDT_STRING_SRC; +if (oldstr3763->cmem_descriptor){ +_SUB_COPY_FULL_UDT_STRING_SRC=qbs_new_cmem(oldstr3763->len,0); }else{ -_SUB_MANAGEVARIABLELIST_STRING___CNAME=qbs_new(oldstr3573->len,0); +_SUB_COPY_FULL_UDT_STRING_SRC=qbs_new(oldstr3763->len,0); } -memcpy(_SUB_MANAGEVARIABLELIST_STRING___CNAME->chr,oldstr3573->chr,oldstr3573->len); +memcpy(_SUB_COPY_FULL_UDT_STRING_SRC->chr,oldstr3763->chr,oldstr3763->len); } -int32 *_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=NULL; -if(_SUB_MANAGEVARIABLELIST_LONG_FINDITEM==NULL){ -_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=(int32*)mem_static_malloc(4); -*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=0; +int32 *_SUB_COPY_FULL_UDT_LONG_OFFSET=NULL; +if(_SUB_COPY_FULL_UDT_LONG_OFFSET==NULL){ +_SUB_COPY_FULL_UDT_LONG_OFFSET=(int32*)mem_static_malloc(4); +*_SUB_COPY_FULL_UDT_LONG_OFFSET=0; } -qbs *_SUB_MANAGEVARIABLELIST_STRING_S=NULL; -if (!_SUB_MANAGEVARIABLELIST_STRING_S)_SUB_MANAGEVARIABLELIST_STRING_S=qbs_new(0,0); -qbs *_SUB_MANAGEVARIABLELIST_STRING_CNAME=NULL; -if (!_SUB_MANAGEVARIABLELIST_STRING_CNAME)_SUB_MANAGEVARIABLELIST_STRING_CNAME=qbs_new(0,0); -byte_element_struct *byte_element_3575=NULL; -if (!byte_element_3575){ -if ((mem_static_pointer+=12)tmp||_SUB_ADDWARNING_STRING_TEXT->fixed||_SUB_ADDWARNING_STRING_TEXT->readonly){ -oldstr3577=_SUB_ADDWARNING_STRING_TEXT; -if (oldstr3577->cmem_descriptor){ -_SUB_ADDWARNING_STRING_TEXT=qbs_new_cmem(oldstr3577->len,0); -}else{ -_SUB_ADDWARNING_STRING_TEXT=qbs_new(oldstr3577->len,0); +int32 *_SUB_DUMP_UDTS_LONG_F=NULL; +if(_SUB_DUMP_UDTS_LONG_F==NULL){ +_SUB_DUMP_UDTS_LONG_F=(int32*)mem_static_malloc(4); +*_SUB_DUMP_UDTS_LONG_F=0; } -memcpy(_SUB_ADDWARNING_STRING_TEXT->chr,oldstr3577->chr,oldstr3577->len); +int32 *_SUB_DUMP_UDTS_LONG_I=NULL; +if(_SUB_DUMP_UDTS_LONG_I==NULL){ +_SUB_DUMP_UDTS_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_DUMP_UDTS_LONG_I=0; } +int64 fornext_value3772; +int64 fornext_finalvalue3772; +int64 fornext_step3772; +uint8 fornext_step_negative3772; +int64 fornext_value3776; +int64 fornext_finalvalue3776; +int64 fornext_step3776; +uint8 fornext_step_negative3776; diff --git a/internal/source/data109.txt b/internal/source/data109.txt index ee7c0b34f..81310df43 100644 --- a/internal/source/data109.txt +++ b/internal/source/data109.txt @@ -1,39 +1,81 @@ -qbs *_FUNC_STRREMOVE_STRING_STRREMOVE=NULL; -if (!_FUNC_STRREMOVE_STRING_STRREMOVE)_FUNC_STRREMOVE_STRING_STRREMOVE=qbs_new(0,0); -qbs*oldstr3578=NULL; -if(_FUNC_STRREMOVE_STRING_MYSTRING->tmp||_FUNC_STRREMOVE_STRING_MYSTRING->fixed||_FUNC_STRREMOVE_STRING_MYSTRING->readonly){ -oldstr3578=_FUNC_STRREMOVE_STRING_MYSTRING; -if (oldstr3578->cmem_descriptor){ -_FUNC_STRREMOVE_STRING_MYSTRING=qbs_new_cmem(oldstr3578->len,0); +qbs*oldstr3778=NULL; +if(_SUB_MANAGEVARIABLELIST_STRING___NAME->tmp||_SUB_MANAGEVARIABLELIST_STRING___NAME->fixed||_SUB_MANAGEVARIABLELIST_STRING___NAME->readonly){ +oldstr3778=_SUB_MANAGEVARIABLELIST_STRING___NAME; +if (oldstr3778->cmem_descriptor){ +_SUB_MANAGEVARIABLELIST_STRING___NAME=qbs_new_cmem(oldstr3778->len,0); }else{ -_FUNC_STRREMOVE_STRING_MYSTRING=qbs_new(oldstr3578->len,0); +_SUB_MANAGEVARIABLELIST_STRING___NAME=qbs_new(oldstr3778->len,0); } -memcpy(_FUNC_STRREMOVE_STRING_MYSTRING->chr,oldstr3578->chr,oldstr3578->len); +memcpy(_SUB_MANAGEVARIABLELIST_STRING___NAME->chr,oldstr3778->chr,oldstr3778->len); } -qbs*oldstr3579=NULL; -if(_FUNC_STRREMOVE_STRING_WHATTOREMOVE->tmp||_FUNC_STRREMOVE_STRING_WHATTOREMOVE->fixed||_FUNC_STRREMOVE_STRING_WHATTOREMOVE->readonly){ -oldstr3579=_FUNC_STRREMOVE_STRING_WHATTOREMOVE; -if (oldstr3579->cmem_descriptor){ -_FUNC_STRREMOVE_STRING_WHATTOREMOVE=qbs_new_cmem(oldstr3579->len,0); +qbs*oldstr3779=NULL; +if(_SUB_MANAGEVARIABLELIST_STRING___CNAME->tmp||_SUB_MANAGEVARIABLELIST_STRING___CNAME->fixed||_SUB_MANAGEVARIABLELIST_STRING___CNAME->readonly){ +oldstr3779=_SUB_MANAGEVARIABLELIST_STRING___CNAME; +if (oldstr3779->cmem_descriptor){ +_SUB_MANAGEVARIABLELIST_STRING___CNAME=qbs_new_cmem(oldstr3779->len,0); }else{ -_FUNC_STRREMOVE_STRING_WHATTOREMOVE=qbs_new(oldstr3579->len,0); +_SUB_MANAGEVARIABLELIST_STRING___CNAME=qbs_new(oldstr3779->len,0); } -memcpy(_FUNC_STRREMOVE_STRING_WHATTOREMOVE->chr,oldstr3579->chr,oldstr3579->len); +memcpy(_SUB_MANAGEVARIABLELIST_STRING___CNAME->chr,oldstr3779->chr,oldstr3779->len); } -qbs *_FUNC_STRREMOVE_STRING_A=NULL; -if (!_FUNC_STRREMOVE_STRING_A)_FUNC_STRREMOVE_STRING_A=qbs_new(0,0); -qbs *_FUNC_STRREMOVE_STRING_B=NULL; -if (!_FUNC_STRREMOVE_STRING_B)_FUNC_STRREMOVE_STRING_B=qbs_new(0,0); -int32 *_FUNC_STRREMOVE_LONG_I=NULL; -if(_FUNC_STRREMOVE_LONG_I==NULL){ -_FUNC_STRREMOVE_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_STRREMOVE_LONG_I=0; +int32 *_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=NULL; +if(_SUB_MANAGEVARIABLELIST_LONG_FINDITEM==NULL){ +_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=(int32*)mem_static_malloc(4); +*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=0; } -byte_element_struct *byte_element_3581=NULL; -if (!byte_element_3581){ -if ((mem_static_pointer+=12)tmp||_FUNC_DIM2_STRING_VARNAME->fixed||_FUNC_DIM2_STRING_VARNAME->readonly){ -oldstr2172=_FUNC_DIM2_STRING_VARNAME; -if (oldstr2172->cmem_descriptor){ -_FUNC_DIM2_STRING_VARNAME=qbs_new_cmem(oldstr2172->len,0); -}else{ -_FUNC_DIM2_STRING_VARNAME=qbs_new(oldstr2172->len,0); -} -memcpy(_FUNC_DIM2_STRING_VARNAME->chr,oldstr2172->chr,oldstr2172->len); -} -qbs*oldstr2173=NULL; -if(_FUNC_DIM2_STRING_TYP2->tmp||_FUNC_DIM2_STRING_TYP2->fixed||_FUNC_DIM2_STRING_TYP2->readonly){ -oldstr2173=_FUNC_DIM2_STRING_TYP2; -if (oldstr2173->cmem_descriptor){ -_FUNC_DIM2_STRING_TYP2=qbs_new_cmem(oldstr2173->len,0); -}else{ -_FUNC_DIM2_STRING_TYP2=qbs_new(oldstr2173->len,0); -} -memcpy(_FUNC_DIM2_STRING_TYP2->chr,oldstr2173->chr,oldstr2173->len); -} -qbs*oldstr2174=NULL; -if(_FUNC_DIM2_STRING_ELEMENTS->tmp||_FUNC_DIM2_STRING_ELEMENTS->fixed||_FUNC_DIM2_STRING_ELEMENTS->readonly){ -oldstr2174=_FUNC_DIM2_STRING_ELEMENTS; -if (oldstr2174->cmem_descriptor){ -_FUNC_DIM2_STRING_ELEMENTS=qbs_new_cmem(oldstr2174->len,0); -}else{ -_FUNC_DIM2_STRING_ELEMENTS=qbs_new(oldstr2174->len,0); -} -memcpy(_FUNC_DIM2_STRING_ELEMENTS->chr,oldstr2174->chr,oldstr2174->len); -} -qbs *_FUNC_DIM2_STRING_TYP=NULL; -if (!_FUNC_DIM2_STRING_TYP)_FUNC_DIM2_STRING_TYP=qbs_new(0,0); -qbs *_FUNC_DIM2_STRING_CVARNAME=NULL; -if (!_FUNC_DIM2_STRING_CVARNAME)_FUNC_DIM2_STRING_CVARNAME=qbs_new(0,0); -qbs *_FUNC_DIM2_STRING_L=NULL; -if (!_FUNC_DIM2_STRING_L)_FUNC_DIM2_STRING_L=qbs_new(0,0); -int32 *_FUNC_DIM2_LONG_F=NULL; -if(_FUNC_DIM2_LONG_F==NULL){ -_FUNC_DIM2_LONG_F=(int32*)mem_static_malloc(4); -*_FUNC_DIM2_LONG_F=0; -} -qbs *_FUNC_DIM2_STRING_SCOPE2=NULL; -if (!_FUNC_DIM2_STRING_SCOPE2)_FUNC_DIM2_STRING_SCOPE2=qbs_new(0,0); -byte_element_struct *byte_element_2176=NULL; -if (!byte_element_2176){ -if ((mem_static_pointer+=12)tmp||_FUNC_STRREPLACE_STRING_MYSTRING->fixed||_FUNC_STRREPLACE_STRING_MYSTRING->readonly){ -oldstr3583=_FUNC_STRREPLACE_STRING_MYSTRING; -if (oldstr3583->cmem_descriptor){ -_FUNC_STRREPLACE_STRING_MYSTRING=qbs_new_cmem(oldstr3583->len,0); +qbs*oldstr3790=NULL; +if(_SUB_ADDWARNING_STRING_INCFILENAME->tmp||_SUB_ADDWARNING_STRING_INCFILENAME->fixed||_SUB_ADDWARNING_STRING_INCFILENAME->readonly){ +oldstr3790=_SUB_ADDWARNING_STRING_INCFILENAME; +if (oldstr3790->cmem_descriptor){ +_SUB_ADDWARNING_STRING_INCFILENAME=qbs_new_cmem(oldstr3790->len,0); }else{ -_FUNC_STRREPLACE_STRING_MYSTRING=qbs_new(oldstr3583->len,0); +_SUB_ADDWARNING_STRING_INCFILENAME=qbs_new(oldstr3790->len,0); } -memcpy(_FUNC_STRREPLACE_STRING_MYSTRING->chr,oldstr3583->chr,oldstr3583->len); +memcpy(_SUB_ADDWARNING_STRING_INCFILENAME->chr,oldstr3790->chr,oldstr3790->len); } -qbs*oldstr3584=NULL; -if(_FUNC_STRREPLACE_STRING_FIND->tmp||_FUNC_STRREPLACE_STRING_FIND->fixed||_FUNC_STRREPLACE_STRING_FIND->readonly){ -oldstr3584=_FUNC_STRREPLACE_STRING_FIND; -if (oldstr3584->cmem_descriptor){ -_FUNC_STRREPLACE_STRING_FIND=qbs_new_cmem(oldstr3584->len,0); +qbs*oldstr3791=NULL; +if(_SUB_ADDWARNING_STRING_HEADER->tmp||_SUB_ADDWARNING_STRING_HEADER->fixed||_SUB_ADDWARNING_STRING_HEADER->readonly){ +oldstr3791=_SUB_ADDWARNING_STRING_HEADER; +if (oldstr3791->cmem_descriptor){ +_SUB_ADDWARNING_STRING_HEADER=qbs_new_cmem(oldstr3791->len,0); }else{ -_FUNC_STRREPLACE_STRING_FIND=qbs_new(oldstr3584->len,0); +_SUB_ADDWARNING_STRING_HEADER=qbs_new(oldstr3791->len,0); } -memcpy(_FUNC_STRREPLACE_STRING_FIND->chr,oldstr3584->chr,oldstr3584->len); +memcpy(_SUB_ADDWARNING_STRING_HEADER->chr,oldstr3791->chr,oldstr3791->len); } -qbs*oldstr3585=NULL; -if(_FUNC_STRREPLACE_STRING_REPLACEWITH->tmp||_FUNC_STRREPLACE_STRING_REPLACEWITH->fixed||_FUNC_STRREPLACE_STRING_REPLACEWITH->readonly){ -oldstr3585=_FUNC_STRREPLACE_STRING_REPLACEWITH; -if (oldstr3585->cmem_descriptor){ -_FUNC_STRREPLACE_STRING_REPLACEWITH=qbs_new_cmem(oldstr3585->len,0); +qbs*oldstr3792=NULL; +if(_SUB_ADDWARNING_STRING_TEXT->tmp||_SUB_ADDWARNING_STRING_TEXT->fixed||_SUB_ADDWARNING_STRING_TEXT->readonly){ +oldstr3792=_SUB_ADDWARNING_STRING_TEXT; +if (oldstr3792->cmem_descriptor){ +_SUB_ADDWARNING_STRING_TEXT=qbs_new_cmem(oldstr3792->len,0); }else{ -_FUNC_STRREPLACE_STRING_REPLACEWITH=qbs_new(oldstr3585->len,0); +_SUB_ADDWARNING_STRING_TEXT=qbs_new(oldstr3792->len,0); } -memcpy(_FUNC_STRREPLACE_STRING_REPLACEWITH->chr,oldstr3585->chr,oldstr3585->len); +memcpy(_SUB_ADDWARNING_STRING_TEXT->chr,oldstr3792->chr,oldstr3792->len); } -byte_element_struct *byte_element_3586=NULL; -if (!byte_element_3586){ -if ((mem_static_pointer+=12)tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_A->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_A->readonly){ -oldstr3591=_FUNC_GL2QB_TYPE_CONVERT_STRING_A; -if (oldstr3591->cmem_descriptor){ -_FUNC_GL2QB_TYPE_CONVERT_STRING_A=qbs_new_cmem(oldstr3591->len,0); +qbs *_FUNC_SCASE_STRING_SCASE=NULL; +if (!_FUNC_SCASE_STRING_SCASE)_FUNC_SCASE_STRING_SCASE=qbs_new(0,0); +qbs*oldstr3804=NULL; +if(_FUNC_SCASE_STRING_T->tmp||_FUNC_SCASE_STRING_T->fixed||_FUNC_SCASE_STRING_T->readonly){ +oldstr3804=_FUNC_SCASE_STRING_T; +if (oldstr3804->cmem_descriptor){ +_FUNC_SCASE_STRING_T=qbs_new_cmem(oldstr3804->len,0); }else{ -_FUNC_GL2QB_TYPE_CONVERT_STRING_A=qbs_new(oldstr3591->len,0); +_FUNC_SCASE_STRING_T=qbs_new(oldstr3804->len,0); } -memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_A->chr,oldstr3591->chr,oldstr3591->len); +memcpy(_FUNC_SCASE_STRING_T->chr,oldstr3804->chr,oldstr3804->len); } -qbs*oldstr3592=NULL; -if(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->readonly){ -oldstr3592=_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL; -if (oldstr3592->cmem_descriptor){ -_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL=qbs_new_cmem(oldstr3592->len,0); -}else{ -_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL=qbs_new(oldstr3592->len,0); -} -memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->chr,oldstr3592->chr,oldstr3592->len); -} -qbs*oldstr3593=NULL; -if(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->readonly){ -oldstr3593=_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP; -if (oldstr3593->cmem_descriptor){ -_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP=qbs_new_cmem(oldstr3593->len,0); -}else{ -_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP=qbs_new(oldstr3593->len,0); -} -memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->chr,oldstr3593->chr,oldstr3593->len); -} -qbs *_FUNC_GL2QB_TYPE_CONVERT_STRING_B=NULL; -if (!_FUNC_GL2QB_TYPE_CONVERT_STRING_B)_FUNC_GL2QB_TYPE_CONVERT_STRING_B=qbs_new(0,0); diff --git a/internal/source/data112.txt b/internal/source/data112.txt index acf08ceed..f6a1101b2 100644 --- a/internal/source/data112.txt +++ b/internal/source/data112.txt @@ -1,44 +1,36 @@ -qbs *_FUNC_READCHUNK_STRING_READCHUNK=NULL; -if (!_FUNC_READCHUNK_STRING_READCHUNK)_FUNC_READCHUNK_STRING_READCHUNK=qbs_new(0,0); -qbs*oldstr3595=NULL; -if(_FUNC_READCHUNK_STRING_A->tmp||_FUNC_READCHUNK_STRING_A->fixed||_FUNC_READCHUNK_STRING_A->readonly){ -oldstr3595=_FUNC_READCHUNK_STRING_A; -if (oldstr3595->cmem_descriptor){ -_FUNC_READCHUNK_STRING_A=qbs_new_cmem(oldstr3595->len,0); +qbs *_FUNC_SCASE2_STRING_SCASE2=NULL; +if (!_FUNC_SCASE2_STRING_SCASE2)_FUNC_SCASE2_STRING_SCASE2=qbs_new(0,0); +qbs*oldstr3805=NULL; +if(_FUNC_SCASE2_STRING_T->tmp||_FUNC_SCASE2_STRING_T->fixed||_FUNC_SCASE2_STRING_T->readonly){ +oldstr3805=_FUNC_SCASE2_STRING_T; +if (oldstr3805->cmem_descriptor){ +_FUNC_SCASE2_STRING_T=qbs_new_cmem(oldstr3805->len,0); }else{ -_FUNC_READCHUNK_STRING_A=qbs_new(oldstr3595->len,0); +_FUNC_SCASE2_STRING_T=qbs_new(oldstr3805->len,0); } -memcpy(_FUNC_READCHUNK_STRING_A->chr,oldstr3595->chr,oldstr3595->len); +memcpy(_FUNC_SCASE2_STRING_T->chr,oldstr3805->chr,oldstr3805->len); } -qbs*oldstr3596=NULL; -if(_FUNC_READCHUNK_STRING_LAST_CHARACTER->tmp||_FUNC_READCHUNK_STRING_LAST_CHARACTER->fixed||_FUNC_READCHUNK_STRING_LAST_CHARACTER->readonly){ -oldstr3596=_FUNC_READCHUNK_STRING_LAST_CHARACTER; -if (oldstr3596->cmem_descriptor){ -_FUNC_READCHUNK_STRING_LAST_CHARACTER=qbs_new_cmem(oldstr3596->len,0); -}else{ -_FUNC_READCHUNK_STRING_LAST_CHARACTER=qbs_new(oldstr3596->len,0); +qbs *_FUNC_SCASE2_STRING_SEPARATOR=NULL; +if (!_FUNC_SCASE2_STRING_SEPARATOR)_FUNC_SCASE2_STRING_SEPARATOR=qbs_new(0,0); +int32 *_FUNC_SCASE2_LONG_NEWWORD=NULL; +if(_FUNC_SCASE2_LONG_NEWWORD==NULL){ +_FUNC_SCASE2_LONG_NEWWORD=(int32*)mem_static_malloc(4); +*_FUNC_SCASE2_LONG_NEWWORD=0; } -memcpy(_FUNC_READCHUNK_STRING_LAST_CHARACTER->chr,oldstr3596->chr,oldstr3596->len); +qbs *_FUNC_SCASE2_STRING_TEMP=NULL; +if (!_FUNC_SCASE2_STRING_TEMP)_FUNC_SCASE2_STRING_TEMP=qbs_new(0,0); +int32 *_FUNC_SCASE2_LONG_I=NULL; +if(_FUNC_SCASE2_LONG_I==NULL){ +_FUNC_SCASE2_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_SCASE2_LONG_I=0; } -int32 *_FUNC_READCHUNK_LONG_X=NULL; -if(_FUNC_READCHUNK_LONG_X==NULL){ -_FUNC_READCHUNK_LONG_X=(int32*)mem_static_malloc(4); -*_FUNC_READCHUNK_LONG_X=0; -} -int64 fornext_value3598; -int64 fornext_finalvalue3598; -int64 fornext_step3598; -uint8 fornext_step_negative3598; -byte_element_struct *byte_element_3599=NULL; -if (!byte_element_3599){ -if ((mem_static_pointer+=12)tmp||_FUNC_STRREMOVE_STRING_MYSTRING->fixed||_FUNC_STRREMOVE_STRING_MYSTRING->readonly){ +oldstr3809=_FUNC_STRREMOVE_STRING_MYSTRING; +if (oldstr3809->cmem_descriptor){ +_FUNC_STRREMOVE_STRING_MYSTRING=qbs_new_cmem(oldstr3809->len,0); +}else{ +_FUNC_STRREMOVE_STRING_MYSTRING=qbs_new(oldstr3809->len,0); } -int64 fornext_value3636; -int64 fornext_finalvalue3636; -int64 fornext_step3636; -uint8 fornext_step_negative3636; -int32 *_SUB_GL_INCLUDE_CONTENT_LONG_I=NULL; -if(_SUB_GL_INCLUDE_CONTENT_LONG_I==NULL){ -_SUB_GL_INCLUDE_CONTENT_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_GL_INCLUDE_CONTENT_LONG_I=0; +memcpy(_FUNC_STRREMOVE_STRING_MYSTRING->chr,oldstr3809->chr,oldstr3809->len); } -int32 pass3637; -int32 *_SUB_GL_INCLUDE_CONTENT_LONG_C=NULL; -if(_SUB_GL_INCLUDE_CONTENT_LONG_C==NULL){ -_SUB_GL_INCLUDE_CONTENT_LONG_C=(int32*)mem_static_malloc(4); -*_SUB_GL_INCLUDE_CONTENT_LONG_C=0; +qbs*oldstr3810=NULL; +if(_FUNC_STRREMOVE_STRING_WHATTOREMOVE->tmp||_FUNC_STRREMOVE_STRING_WHATTOREMOVE->fixed||_FUNC_STRREMOVE_STRING_WHATTOREMOVE->readonly){ +oldstr3810=_FUNC_STRREMOVE_STRING_WHATTOREMOVE; +if (oldstr3810->cmem_descriptor){ +_FUNC_STRREMOVE_STRING_WHATTOREMOVE=qbs_new_cmem(oldstr3810->len,0); +}else{ +_FUNC_STRREMOVE_STRING_WHATTOREMOVE=qbs_new(oldstr3810->len,0); } -int64 fornext_value3639; -int64 fornext_finalvalue3639; -int64 fornext_step3639; -uint8 fornext_step_negative3639; -void *_SUB_GL_INCLUDE_CONTENT_UDT_G=NULL; -if(_SUB_GL_INCLUDE_CONTENT_UDT_G==NULL){ -_SUB_GL_INCLUDE_CONTENT_UDT_G=(void*)mem_static_malloc(216); -memset(_SUB_GL_INCLUDE_CONTENT_UDT_G,0,216); +memcpy(_FUNC_STRREMOVE_STRING_WHATTOREMOVE->chr,oldstr3810->chr,oldstr3810->len); } -int32 *_SUB_GL_INCLUDE_CONTENT_LONG_S=NULL; -if(_SUB_GL_INCLUDE_CONTENT_LONG_S==NULL){ -_SUB_GL_INCLUDE_CONTENT_LONG_S=(int32*)mem_static_malloc(4); -*_SUB_GL_INCLUDE_CONTENT_LONG_S=0; +qbs *_FUNC_STRREMOVE_STRING_A=NULL; +if (!_FUNC_STRREMOVE_STRING_A)_FUNC_STRREMOVE_STRING_A=qbs_new(0,0); +qbs *_FUNC_STRREMOVE_STRING_B=NULL; +if (!_FUNC_STRREMOVE_STRING_B)_FUNC_STRREMOVE_STRING_B=qbs_new(0,0); +int32 *_FUNC_STRREMOVE_LONG_I=NULL; +if(_FUNC_STRREMOVE_LONG_I==NULL){ +_FUNC_STRREMOVE_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_STRREMOVE_LONG_I=0; +} +byte_element_struct *byte_element_3812=NULL; +if (!byte_element_3812){ +if ((mem_static_pointer+=12)tmp||_SUB_ARYADDSTR_STRING_VALUE->fixed||_SUB_ARYADDSTR_STRING_VALUE->readonly){ -oldstr3640=_SUB_ARYADDSTR_STRING_VALUE; -if (oldstr3640->cmem_descriptor){ -_SUB_ARYADDSTR_STRING_VALUE=qbs_new_cmem(oldstr3640->len,0); +qbs *_FUNC_STRREPLACE_STRING_STRREPLACE=NULL; +if (!_FUNC_STRREPLACE_STRING_STRREPLACE)_FUNC_STRREPLACE_STRING_STRREPLACE=qbs_new(0,0); +qbs*oldstr3814=NULL; +if(_FUNC_STRREPLACE_STRING_MYSTRING->tmp||_FUNC_STRREPLACE_STRING_MYSTRING->fixed||_FUNC_STRREPLACE_STRING_MYSTRING->readonly){ +oldstr3814=_FUNC_STRREPLACE_STRING_MYSTRING; +if (oldstr3814->cmem_descriptor){ +_FUNC_STRREPLACE_STRING_MYSTRING=qbs_new_cmem(oldstr3814->len,0); }else{ -_SUB_ARYADDSTR_STRING_VALUE=qbs_new(oldstr3640->len,0); +_FUNC_STRREPLACE_STRING_MYSTRING=qbs_new(oldstr3814->len,0); } -memcpy(_SUB_ARYADDSTR_STRING_VALUE->chr,oldstr3640->chr,oldstr3640->len); +memcpy(_FUNC_STRREPLACE_STRING_MYSTRING->chr,oldstr3814->chr,oldstr3814->len); } -byte_element_struct *byte_element_3641=NULL; -if (!byte_element_3641){ -if ((mem_static_pointer+=12)tmp||_FUNC_STRREPLACE_STRING_FIND->fixed||_FUNC_STRREPLACE_STRING_FIND->readonly){ +oldstr3815=_FUNC_STRREPLACE_STRING_FIND; +if (oldstr3815->cmem_descriptor){ +_FUNC_STRREPLACE_STRING_FIND=qbs_new_cmem(oldstr3815->len,0); +}else{ +_FUNC_STRREPLACE_STRING_FIND=qbs_new(oldstr3815->len,0); } -int32 *_SUB_ARYADDSTR_LONG_INDEX=NULL; -if(_SUB_ARYADDSTR_LONG_INDEX==NULL){ -_SUB_ARYADDSTR_LONG_INDEX=(int32*)mem_static_malloc(4); -*_SUB_ARYADDSTR_LONG_INDEX=0; +memcpy(_FUNC_STRREPLACE_STRING_FIND->chr,oldstr3815->chr,oldstr3815->len); } -int32 *_SUB_ARYADDSTR_LONG_LASTINDEX=NULL; -if(_SUB_ARYADDSTR_LONG_LASTINDEX==NULL){ -_SUB_ARYADDSTR_LONG_LASTINDEX=(int32*)mem_static_malloc(4); -*_SUB_ARYADDSTR_LONG_LASTINDEX=0; +qbs*oldstr3816=NULL; +if(_FUNC_STRREPLACE_STRING_REPLACEWITH->tmp||_FUNC_STRREPLACE_STRING_REPLACEWITH->fixed||_FUNC_STRREPLACE_STRING_REPLACEWITH->readonly){ +oldstr3816=_FUNC_STRREPLACE_STRING_REPLACEWITH; +if (oldstr3816->cmem_descriptor){ +_FUNC_STRREPLACE_STRING_REPLACEWITH=qbs_new_cmem(oldstr3816->len,0); +}else{ +_FUNC_STRREPLACE_STRING_REPLACEWITH=qbs_new(oldstr3816->len,0); } -int32 *_SUB_ARYADDSTR_LONG_ARYNEWSTR=NULL; -if(_SUB_ARYADDSTR_LONG_ARYNEWSTR==NULL){ -_SUB_ARYADDSTR_LONG_ARYNEWSTR=(int32*)mem_static_malloc(4); -*_SUB_ARYADDSTR_LONG_ARYNEWSTR=0; +memcpy(_FUNC_STRREPLACE_STRING_REPLACEWITH->chr,oldstr3816->chr,oldstr3816->len); +} +qbs *_FUNC_STRREPLACE_STRING_A=NULL; +if (!_FUNC_STRREPLACE_STRING_A)_FUNC_STRREPLACE_STRING_A=qbs_new(0,0); +qbs *_FUNC_STRREPLACE_STRING_B=NULL; +if (!_FUNC_STRREPLACE_STRING_B)_FUNC_STRREPLACE_STRING_B=qbs_new(0,0); +int32 *_FUNC_STRREPLACE_LONG_BASEI=NULL; +if(_FUNC_STRREPLACE_LONG_BASEI==NULL){ +_FUNC_STRREPLACE_LONG_BASEI=(int32*)mem_static_malloc(4); +*_FUNC_STRREPLACE_LONG_BASEI=0; +} +int32 *_FUNC_STRREPLACE_LONG_I=NULL; +if(_FUNC_STRREPLACE_LONG_I==NULL){ +_FUNC_STRREPLACE_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_STRREPLACE_LONG_I=0; +} +byte_element_struct *byte_element_3817=NULL; +if (!byte_element_3817){ +if ((mem_static_pointer+=12)tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_A->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_A->readonly){ +oldstr3822=_FUNC_GL2QB_TYPE_CONVERT_STRING_A; +if (oldstr3822->cmem_descriptor){ +_FUNC_GL2QB_TYPE_CONVERT_STRING_A=qbs_new_cmem(oldstr3822->len,0); +}else{ +_FUNC_GL2QB_TYPE_CONVERT_STRING_A=qbs_new(oldstr3822->len,0); } -byte_element_struct *byte_element_3642=NULL; -if (!byte_element_3642){ -if ((mem_static_pointer+=12)chr,oldstr3822->chr,oldstr3822->len); } +qbs*oldstr3823=NULL; +if(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->readonly){ +oldstr3823=_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL; +if (oldstr3823->cmem_descriptor){ +_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL=qbs_new_cmem(oldstr3823->len,0); +}else{ +_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL=qbs_new(oldstr3823->len,0); +} +memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->chr,oldstr3823->chr,oldstr3823->len); +} +qbs*oldstr3824=NULL; +if(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->readonly){ +oldstr3824=_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP; +if (oldstr3824->cmem_descriptor){ +_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP=qbs_new_cmem(oldstr3824->len,0); +}else{ +_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP=qbs_new(oldstr3824->len,0); +} +memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->chr,oldstr3824->chr,oldstr3824->len); +} +qbs *_FUNC_GL2QB_TYPE_CONVERT_STRING_B=NULL; +if (!_FUNC_GL2QB_TYPE_CONVERT_STRING_B)_FUNC_GL2QB_TYPE_CONVERT_STRING_B=qbs_new(0,0); diff --git a/internal/source/data117.txt b/internal/source/data117.txt index 34548f792..8f83d5131 100644 --- a/internal/source/data117.txt +++ b/internal/source/data117.txt @@ -1,63 +1,44 @@ -qbs*oldstr3643=NULL; -if(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE->tmp||_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE->fixed||_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE->readonly){ -oldstr3643=_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE; -if (oldstr3643->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE=qbs_new_cmem(oldstr3643->len,0); +qbs *_FUNC_READCHUNK_STRING_READCHUNK=NULL; +if (!_FUNC_READCHUNK_STRING_READCHUNK)_FUNC_READCHUNK_STRING_READCHUNK=qbs_new(0,0); +qbs*oldstr3826=NULL; +if(_FUNC_READCHUNK_STRING_A->tmp||_FUNC_READCHUNK_STRING_A->fixed||_FUNC_READCHUNK_STRING_A->readonly){ +oldstr3826=_FUNC_READCHUNK_STRING_A; +if (oldstr3826->cmem_descriptor){ +_FUNC_READCHUNK_STRING_A=qbs_new_cmem(oldstr3826->len,0); }else{ -_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE=qbs_new(oldstr3643->len,0); +_FUNC_READCHUNK_STRING_A=qbs_new(oldstr3826->len,0); } -memcpy(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE->chr,oldstr3643->chr,oldstr3643->len); +memcpy(_FUNC_READCHUNK_STRING_A->chr,oldstr3826->chr,oldstr3826->len); } -qbs*oldstr3644=NULL; -if(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND->tmp||_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND->fixed||_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND->readonly){ -oldstr3644=_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND; -if (oldstr3644->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND=qbs_new_cmem(oldstr3644->len,0); +qbs*oldstr3827=NULL; +if(_FUNC_READCHUNK_STRING_LAST_CHARACTER->tmp||_FUNC_READCHUNK_STRING_LAST_CHARACTER->fixed||_FUNC_READCHUNK_STRING_LAST_CHARACTER->readonly){ +oldstr3827=_FUNC_READCHUNK_STRING_LAST_CHARACTER; +if (oldstr3827->cmem_descriptor){ +_FUNC_READCHUNK_STRING_LAST_CHARACTER=qbs_new_cmem(oldstr3827->len,0); }else{ -_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND=qbs_new(oldstr3644->len,0); +_FUNC_READCHUNK_STRING_LAST_CHARACTER=qbs_new(oldstr3827->len,0); } -memcpy(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND->chr,oldstr3644->chr,oldstr3644->len); +memcpy(_FUNC_READCHUNK_STRING_LAST_CHARACTER->chr,oldstr3827->chr,oldstr3827->len); } -qbs*oldstr3645=NULL; -if(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH->tmp||_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH->fixed||_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH->readonly){ -oldstr3645=_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH; -if (oldstr3645->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH=qbs_new_cmem(oldstr3645->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH=qbs_new(oldstr3645->len,0); +int32 *_FUNC_READCHUNK_LONG_X=NULL; +if(_FUNC_READCHUNK_LONG_X==NULL){ +_FUNC_READCHUNK_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_READCHUNK_LONG_X=0; } -memcpy(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH->chr,oldstr3645->chr,oldstr3645->len); +int64 fornext_value3829; +int64 fornext_finalvalue3829; +int64 fornext_step3829; +uint8 fornext_step_negative3829; +byte_element_struct *byte_element_3830=NULL; +if (!byte_element_3830){ +if ((mem_static_pointer+=12)tmp||_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A->fixed||_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A->readonly){ -oldstr3651=_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A; -if (oldstr3651->cmem_descriptor){ -_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A=qbs_new_cmem(oldstr3651->len,0); -}else{ -_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A=qbs_new(oldstr3651->len,0); +int32 *_SUB_GL_SCAN_HEADER_LONG_HK=NULL; +if(_SUB_GL_SCAN_HEADER_LONG_HK==NULL){ +_SUB_GL_SCAN_HEADER_LONG_HK=(int32*)mem_static_malloc(4); +*_SUB_GL_SCAN_HEADER_LONG_HK=0; } -memcpy(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A->chr,oldstr3651->chr,oldstr3651->len); +int32 *_SUB_GL_SCAN_HEADER_LONG_D=NULL; +if(_SUB_GL_SCAN_HEADER_LONG_D==NULL){ +_SUB_GL_SCAN_HEADER_LONG_D=(int32*)mem_static_malloc(4); +*_SUB_GL_SCAN_HEADER_LONG_D=0; } -qbs *_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2=NULL; -if (!_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2)_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2=qbs_new(0,0); -int32 *_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I=NULL; -if(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I==NULL){ -_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I=0; +qbs *_SUB_GL_SCAN_HEADER_STRING_A2=NULL; +if (!_SUB_GL_SCAN_HEADER_STRING_A2)_SUB_GL_SCAN_HEADER_STRING_A2=qbs_new(0,0); +int32 *_SUB_GL_SCAN_HEADER_LONG_H=NULL; +if(_SUB_GL_SCAN_HEADER_LONG_H==NULL){ +_SUB_GL_SCAN_HEADER_LONG_H=(int32*)mem_static_malloc(4); +*_SUB_GL_SCAN_HEADER_LONG_H=0; } -int64 fornext_value3653; -int64 fornext_finalvalue3653; -int64 fornext_step3653; -uint8 fornext_step_negative3653; -byte_element_struct *byte_element_3654=NULL; -if (!byte_element_3654){ -if ((mem_static_pointer+=12)tmp||_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE->fixed||_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE->readonly){ -oldstr3655=_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE; -if (oldstr3655->cmem_descriptor){ -_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE=qbs_new_cmem(oldstr3655->len,0); -}else{ -_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE=qbs_new(oldstr3655->len,0); +int32 *_SUB_GL_INCLUDE_CONTENT_LONG_D=NULL; +if(_SUB_GL_INCLUDE_CONTENT_LONG_D==NULL){ +_SUB_GL_INCLUDE_CONTENT_LONG_D=(int32*)mem_static_malloc(4); +*_SUB_GL_INCLUDE_CONTENT_LONG_D=0; } -memcpy(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE->chr,oldstr3655->chr,oldstr3655->len); +int64 fornext_value3867; +int64 fornext_finalvalue3867; +int64 fornext_step3867; +uint8 fornext_step_negative3867; +int32 *_SUB_GL_INCLUDE_CONTENT_LONG_I=NULL; +if(_SUB_GL_INCLUDE_CONTENT_LONG_I==NULL){ +_SUB_GL_INCLUDE_CONTENT_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_GL_INCLUDE_CONTENT_LONG_I=0; } -int32 *_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH=NULL; -if(_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH==NULL){ -_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH=(int32*)mem_static_malloc(4); -*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH=0; +int32 pass3868; +int32 *_SUB_GL_INCLUDE_CONTENT_LONG_C=NULL; +if(_SUB_GL_INCLUDE_CONTENT_LONG_C==NULL){ +_SUB_GL_INCLUDE_CONTENT_LONG_C=(int32*)mem_static_malloc(4); +*_SUB_GL_INCLUDE_CONTENT_LONG_C=0; } -qbs *_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2=NULL; -if (!_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2)_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2=qbs_new(0,0); -byte_element_struct *byte_element_3658=NULL; -if (!byte_element_3658){ -if ((mem_static_pointer+=12)tmp||_FUNC_UDTREFERENCE_STRING_O->fixed||_FUNC_UDTREFERENCE_STRING_O->readonly){ -oldstr2340=_FUNC_UDTREFERENCE_STRING_O; -if (oldstr2340->cmem_descriptor){ -_FUNC_UDTREFERENCE_STRING_O=qbs_new_cmem(oldstr2340->len,0); +int32 *_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=NULL; +if(_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS==NULL){ +_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=(int32*)mem_static_malloc(4); +*_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=0; +} +qbs*oldstr2364=NULL; +if(_FUNC_COUNTELEMENTS_STRING_A->tmp||_FUNC_COUNTELEMENTS_STRING_A->fixed||_FUNC_COUNTELEMENTS_STRING_A->readonly){ +oldstr2364=_FUNC_COUNTELEMENTS_STRING_A; +if (oldstr2364->cmem_descriptor){ +_FUNC_COUNTELEMENTS_STRING_A=qbs_new_cmem(oldstr2364->len,0); }else{ -_FUNC_UDTREFERENCE_STRING_O=qbs_new(oldstr2340->len,0); +_FUNC_COUNTELEMENTS_STRING_A=qbs_new(oldstr2364->len,0); } -memcpy(_FUNC_UDTREFERENCE_STRING_O->chr,oldstr2340->chr,oldstr2340->len); +memcpy(_FUNC_COUNTELEMENTS_STRING_A->chr,oldstr2364->chr,oldstr2364->len); } -qbs*oldstr2341=NULL; -if(_FUNC_UDTREFERENCE_STRING_A->tmp||_FUNC_UDTREFERENCE_STRING_A->fixed||_FUNC_UDTREFERENCE_STRING_A->readonly){ -oldstr2341=_FUNC_UDTREFERENCE_STRING_A; -if (oldstr2341->cmem_descriptor){ -_FUNC_UDTREFERENCE_STRING_A=qbs_new_cmem(oldstr2341->len,0); -}else{ -_FUNC_UDTREFERENCE_STRING_A=qbs_new(oldstr2341->len,0); +int32 *_FUNC_COUNTELEMENTS_LONG_N=NULL; +if(_FUNC_COUNTELEMENTS_LONG_N==NULL){ +_FUNC_COUNTELEMENTS_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_COUNTELEMENTS_LONG_N=0; } -memcpy(_FUNC_UDTREFERENCE_STRING_A->chr,oldstr2341->chr,oldstr2341->len); +int32 *_FUNC_COUNTELEMENTS_LONG_C=NULL; +if(_FUNC_COUNTELEMENTS_LONG_C==NULL){ +_FUNC_COUNTELEMENTS_LONG_C=(int32*)mem_static_malloc(4); +*_FUNC_COUNTELEMENTS_LONG_C=0; } -qbs *_FUNC_UDTREFERENCE_STRING_OBAK=NULL; -if (!_FUNC_UDTREFERENCE_STRING_OBAK)_FUNC_UDTREFERENCE_STRING_OBAK=qbs_new(0,0); -qbs *_FUNC_UDTREFERENCE_STRING_R=NULL; -if (!_FUNC_UDTREFERENCE_STRING_R)_FUNC_UDTREFERENCE_STRING_R=qbs_new(0,0); -int32 *_FUNC_UDTREFERENCE_LONG_O=NULL; -if(_FUNC_UDTREFERENCE_LONG_O==NULL){ -_FUNC_UDTREFERENCE_LONG_O=(int32*)mem_static_malloc(4); -*_FUNC_UDTREFERENCE_LONG_O=0; +int32 *_FUNC_COUNTELEMENTS_LONG_I=NULL; +if(_FUNC_COUNTELEMENTS_LONG_I==NULL){ +_FUNC_COUNTELEMENTS_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_COUNTELEMENTS_LONG_I=0; } -int32 *_FUNC_UDTREFERENCE_LONG_INCMEM=NULL; -if(_FUNC_UDTREFERENCE_LONG_INCMEM==NULL){ -_FUNC_UDTREFERENCE_LONG_INCMEM=(int32*)mem_static_malloc(4); -*_FUNC_UDTREFERENCE_LONG_INCMEM=0; -} -int32 *_FUNC_UDTREFERENCE_LONG_U=NULL; -if(_FUNC_UDTREFERENCE_LONG_U==NULL){ -_FUNC_UDTREFERENCE_LONG_U=(int32*)mem_static_malloc(4); -*_FUNC_UDTREFERENCE_LONG_U=0; -} -int32 *_FUNC_UDTREFERENCE_LONG_N=NULL; -if(_FUNC_UDTREFERENCE_LONG_N==NULL){ -_FUNC_UDTREFERENCE_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_UDTREFERENCE_LONG_N=0; -} -int32 *_FUNC_UDTREFERENCE_LONG_I=NULL; -if(_FUNC_UDTREFERENCE_LONG_I==NULL){ -_FUNC_UDTREFERENCE_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_UDTREFERENCE_LONG_I=0; -} -qbs *_FUNC_UDTREFERENCE_STRING_N=NULL; -if (!_FUNC_UDTREFERENCE_STRING_N)_FUNC_UDTREFERENCE_STRING_N=qbs_new(0,0); -qbs *_FUNC_UDTREFERENCE_STRING_NSYM=NULL; -if (!_FUNC_UDTREFERENCE_STRING_NSYM)_FUNC_UDTREFERENCE_STRING_NSYM=qbs_new(0,0); -byte_element_struct *byte_element_2342=NULL; -if (!byte_element_2342){ -if ((mem_static_pointer+=12)tmp||_FUNC_INIGETSECTION_STRING___SECTION->fixed||_FUNC_INIGETSECTION_STRING___SECTION->readonly){ +oldstr3874=_FUNC_INIGETSECTION_STRING___SECTION; +if (oldstr3874->cmem_descriptor){ +_FUNC_INIGETSECTION_STRING___SECTION=qbs_new_cmem(oldstr3874->len,0); +}else{ +_FUNC_INIGETSECTION_STRING___SECTION=qbs_new(oldstr3874->len,0); } -int64 fornext_value3667; -int64 fornext_finalvalue3667; -int64 fornext_step3667; -uint8 fornext_step_negative3667; -byte_element_struct *byte_element_3668=NULL; -if (!byte_element_3668){ -if ((mem_static_pointer+=12)chr,oldstr3874->chr,oldstr3874->len); +} +qbs *_FUNC_INIGETSECTION_STRING_SECTION=NULL; +if (!_FUNC_INIGETSECTION_STRING_SECTION)_FUNC_INIGETSECTION_STRING_SECTION=qbs_new(0,0); +uint32 *_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=NULL; +if(_FUNC_INIGETSECTION_ULONG_FOUNDSECTION==NULL){ +_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=(uint32*)mem_static_malloc(4); +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=0; +} +uint32 *_FUNC_INIGETSECTION_ULONG_ENDSECTION=NULL; +if(_FUNC_INIGETSECTION_ULONG_ENDSECTION==NULL){ +_FUNC_INIGETSECTION_ULONG_ENDSECTION=(uint32*)mem_static_malloc(4); +*_FUNC_INIGETSECTION_ULONG_ENDSECTION=0; +} +uint32 *_FUNC_INIGETSECTION_ULONG_I=NULL; +if(_FUNC_INIGETSECTION_ULONG_I==NULL){ +_FUNC_INIGETSECTION_ULONG_I=(uint32*)mem_static_malloc(4); +*_FUNC_INIGETSECTION_ULONG_I=0; +} +uint32 *_FUNC_INIGETSECTION_ULONG_BRACKET1=NULL; +if(_FUNC_INIGETSECTION_ULONG_BRACKET1==NULL){ +_FUNC_INIGETSECTION_ULONG_BRACKET1=(uint32*)mem_static_malloc(4); +*_FUNC_INIGETSECTION_ULONG_BRACKET1=0; +} +uint32 *_FUNC_INIGETSECTION_ULONG_SECTIONSTART=NULL; +if(_FUNC_INIGETSECTION_ULONG_SECTIONSTART==NULL){ +_FUNC_INIGETSECTION_ULONG_SECTIONSTART=(uint32*)mem_static_malloc(4); +*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=0; +} +int8 *_FUNC_INIGETSECTION_BYTE_INQUOTE=NULL; +if(_FUNC_INIGETSECTION_BYTE_INQUOTE==NULL){ +_FUNC_INIGETSECTION_BYTE_INQUOTE=(int8*)mem_static_malloc(1); +*_FUNC_INIGETSECTION_BYTE_INQUOTE=0; +} +int64 fornext_value3876; +int64 fornext_finalvalue3876; +int64 fornext_step3876; +uint8 fornext_step_negative3876; +int64 fornext_value3879; +int64 fornext_finalvalue3879; +int64 fornext_step3879; +uint8 fornext_step_negative3879; +int64 fornext_value3881; +int64 fornext_finalvalue3881; +int64 fornext_step3881; +uint8 fornext_step_negative3881; +int64 fornext_value3883; +int64 fornext_finalvalue3883; +int64 fornext_step3883; +uint8 fornext_step_negative3883; +byte_element_struct *byte_element_3884=NULL; +if (!byte_element_3884){ +if ((mem_static_pointer+=12)tmp||_FUNC_INIFORMATSECTION_STRING___SECTION->fixed||_FUNC_INIFORMATSECTION_STRING___SECTION->readonly){ +oldstr3885=_FUNC_INIFORMATSECTION_STRING___SECTION; +if (oldstr3885->cmem_descriptor){ +_FUNC_INIFORMATSECTION_STRING___SECTION=qbs_new_cmem(oldstr3885->len,0); +}else{ +_FUNC_INIFORMATSECTION_STRING___SECTION=qbs_new(oldstr3885->len,0); } -int64 fornext_value3670; -int64 fornext_finalvalue3670; -int64 fornext_step3670; -uint8 fornext_step_negative3670; -byte_element_struct *byte_element_3671=NULL; -if (!byte_element_3671){ -if ((mem_static_pointer+=12)chr,oldstr3885->chr,oldstr3885->len); +} +qbs *_FUNC_INIFORMATSECTION_STRING_SECTION=NULL; +if (!_FUNC_INIFORMATSECTION_STRING_SECTION)_FUNC_INIFORMATSECTION_STRING_SECTION=qbs_new(0,0); +byte_element_struct *byte_element_3886=NULL; +if (!byte_element_3886){ +if ((mem_static_pointer+=12)tmp||_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE->fixed||_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE->readonly){ -oldstr3672=_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE; -if (oldstr3672->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE=qbs_new_cmem(oldstr3672->len,0); +qbs *_FUNC_READSETTING_STRING_READSETTING=NULL; +if (!_FUNC_READSETTING_STRING_READSETTING)_FUNC_READSETTING_STRING_READSETTING=qbs_new(0,0); +qbs*oldstr3888=NULL; +if(_FUNC_READSETTING_STRING_FILE->tmp||_FUNC_READSETTING_STRING_FILE->fixed||_FUNC_READSETTING_STRING_FILE->readonly){ +oldstr3888=_FUNC_READSETTING_STRING_FILE; +if (oldstr3888->cmem_descriptor){ +_FUNC_READSETTING_STRING_FILE=qbs_new_cmem(oldstr3888->len,0); }else{ -_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE=qbs_new(oldstr3672->len,0); +_FUNC_READSETTING_STRING_FILE=qbs_new(oldstr3888->len,0); } -memcpy(_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE->chr,oldstr3672->chr,oldstr3672->len); +memcpy(_FUNC_READSETTING_STRING_FILE->chr,oldstr3888->chr,oldstr3888->len); } -int32 *_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX=NULL; -if(_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX==NULL){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX=0; +qbs*oldstr3889=NULL; +if(_FUNC_READSETTING_STRING___SECTION->tmp||_FUNC_READSETTING_STRING___SECTION->fixed||_FUNC_READSETTING_STRING___SECTION->readonly){ +oldstr3889=_FUNC_READSETTING_STRING___SECTION; +if (oldstr3889->cmem_descriptor){ +_FUNC_READSETTING_STRING___SECTION=qbs_new_cmem(oldstr3889->len,0); +}else{ +_FUNC_READSETTING_STRING___SECTION=qbs_new(oldstr3889->len,0); } -int32 *_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY=NULL; -if(_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY==NULL){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY=0; +memcpy(_FUNC_READSETTING_STRING___SECTION->chr,oldstr3889->chr,oldstr3889->len); } -int32 *_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT=NULL; -if(_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT==NULL){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT=0; +qbs*oldstr3890=NULL; +if(_FUNC_READSETTING_STRING___KEY->tmp||_FUNC_READSETTING_STRING___KEY->fixed||_FUNC_READSETTING_STRING___KEY->readonly){ +oldstr3890=_FUNC_READSETTING_STRING___KEY; +if (oldstr3890->cmem_descriptor){ +_FUNC_READSETTING_STRING___KEY=qbs_new_cmem(oldstr3890->len,0); +}else{ +_FUNC_READSETTING_STRING___KEY=qbs_new(oldstr3890->len,0); } -int32 *_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH=NULL; -if(_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH==NULL){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH=0; +memcpy(_FUNC_READSETTING_STRING___KEY->chr,oldstr3890->chr,oldstr3890->len); } -int32 *_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y=NULL; -if(_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y==NULL){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y=0; +uint32 *_FUNC_READSETTING_ULONG_EQUAL=NULL; +if(_FUNC_READSETTING_ULONG_EQUAL==NULL){ +_FUNC_READSETTING_ULONG_EQUAL=(uint32*)mem_static_malloc(4); +*_FUNC_READSETTING_ULONG_EQUAL=0; } -int64 fornext_value3674; -int64 fornext_finalvalue3674; -int64 fornext_step3674; -uint8 fornext_step_negative3674; -int64 fornext_value3677; -int64 fornext_finalvalue3677; -int64 fornext_step3677; -uint8 fornext_step_negative3677; -int32 *_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH=NULL; -if(_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH==NULL){ -_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH=0; +qbs *_FUNC_READSETTING_STRING_TEMPVALUE=NULL; +if (!_FUNC_READSETTING_STRING_TEMPVALUE)_FUNC_READSETTING_STRING_TEMPVALUE=qbs_new(0,0); +qbs *_FUNC_READSETTING_STRING_KEY=NULL; +if (!_FUNC_READSETTING_STRING_KEY)_FUNC_READSETTING_STRING_KEY=qbs_new(0,0); +qbs *_FUNC_READSETTING_STRING_SECTION=NULL; +if (!_FUNC_READSETTING_STRING_SECTION)_FUNC_READSETTING_STRING_SECTION=qbs_new(0,0); +uint32 *_FUNC_READSETTING_ULONG_QUOTE=NULL; +if(_FUNC_READSETTING_ULONG_QUOTE==NULL){ +_FUNC_READSETTING_ULONG_QUOTE=(uint32*)mem_static_malloc(4); +*_FUNC_READSETTING_ULONG_QUOTE=0; } -byte_element_struct *byte_element_3678=NULL; -if (!byte_element_3678){ -if ((mem_static_pointer+=12)tmp||_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE->fixed||_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE->readonly){ -oldstr3681=_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE; -if (oldstr3681->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE=qbs_new_cmem(oldstr3681->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE=qbs_new(oldstr3681->len,0); +qbs *_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION=NULL; +if (!_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION)_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION=qbs_new(0,0); +uint32 *_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=NULL; +if(_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION==NULL){ +_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=(uint32*)mem_static_malloc(4); +*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=0; } -memcpy(_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE->chr,oldstr3681->chr,oldstr3681->len); +uint32 *_FUNC_INICURRENTSECTION_ULONG_I=NULL; +if(_FUNC_INICURRENTSECTION_ULONG_I==NULL){ +_FUNC_INICURRENTSECTION_ULONG_I=(uint32*)mem_static_malloc(4); +*_FUNC_INICURRENTSECTION_ULONG_I=0; } -qbs*oldstr3682=NULL; -if(_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER->tmp||_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER->fixed||_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER->readonly){ -oldstr3682=_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER; -if (oldstr3682->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER=qbs_new_cmem(oldstr3682->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER=qbs_new(oldstr3682->len,0); -} -memcpy(_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER->chr,oldstr3682->chr,oldstr3682->len); +uint32 *_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET=NULL; +if(_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET==NULL){ +_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET=(uint32*)mem_static_malloc(4); +*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET=0; } +int64 fornext_value3901; +int64 fornext_finalvalue3901; +int64 fornext_step3901; +uint8 fornext_step_negative3901; +int64 fornext_value3903; +int64 fornext_finalvalue3903; +int64 fornext_step3903; +uint8 fornext_step_negative3903; diff --git a/internal/source/data125.txt b/internal/source/data125.txt index 02f2cc26a..1b9327c8e 100644 --- a/internal/source/data125.txt +++ b/internal/source/data125.txt @@ -1,27 +1,101 @@ -qbs *_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_CREATEANDROIDPROJECT_PATHREFERENCE=NULL; -if (!_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_CREATEANDROIDPROJECT_PATHREFERENCE)_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_CREATEANDROIDPROJECT_PATHREFERENCE=qbs_new(0,0); -qbs*oldstr3683=NULL; -if(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH->tmp||_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH->fixed||_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH->readonly){ -oldstr3683=_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH; -if (oldstr3683->cmem_descriptor){ -_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH=qbs_new_cmem(oldstr3683->len,0); +qbs*oldstr3904=NULL; +if(_SUB_WRITESETTING_STRING_FILE->tmp||_SUB_WRITESETTING_STRING_FILE->fixed||_SUB_WRITESETTING_STRING_FILE->readonly){ +oldstr3904=_SUB_WRITESETTING_STRING_FILE; +if (oldstr3904->cmem_descriptor){ +_SUB_WRITESETTING_STRING_FILE=qbs_new_cmem(oldstr3904->len,0); }else{ -_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH=qbs_new(oldstr3683->len,0); +_SUB_WRITESETTING_STRING_FILE=qbs_new(oldstr3904->len,0); } -memcpy(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH->chr,oldstr3683->chr,oldstr3683->len); +memcpy(_SUB_WRITESETTING_STRING_FILE->chr,oldstr3904->chr,oldstr3904->len); } -qbs *_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A=NULL; -if (!_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A)_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A=qbs_new(0,0); -int32 *_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I=NULL; -if(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I==NULL){ -_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I=0; +qbs*oldstr3905=NULL; +if(_SUB_WRITESETTING_STRING___SECTION->tmp||_SUB_WRITESETTING_STRING___SECTION->fixed||_SUB_WRITESETTING_STRING___SECTION->readonly){ +oldstr3905=_SUB_WRITESETTING_STRING___SECTION; +if (oldstr3905->cmem_descriptor){ +_SUB_WRITESETTING_STRING___SECTION=qbs_new_cmem(oldstr3905->len,0); +}else{ +_SUB_WRITESETTING_STRING___SECTION=qbs_new(oldstr3905->len,0); } -int64 fornext_value3685; -int64 fornext_finalvalue3685; -int64 fornext_step3685; -uint8 fornext_step_negative3685; -byte_element_struct *byte_element_3686=NULL; -if (!byte_element_3686){ -if ((mem_static_pointer+=12)chr,oldstr3905->chr,oldstr3905->len); +} +qbs*oldstr3906=NULL; +if(_SUB_WRITESETTING_STRING___KEY->tmp||_SUB_WRITESETTING_STRING___KEY->fixed||_SUB_WRITESETTING_STRING___KEY->readonly){ +oldstr3906=_SUB_WRITESETTING_STRING___KEY; +if (oldstr3906->cmem_descriptor){ +_SUB_WRITESETTING_STRING___KEY=qbs_new_cmem(oldstr3906->len,0); +}else{ +_SUB_WRITESETTING_STRING___KEY=qbs_new(oldstr3906->len,0); +} +memcpy(_SUB_WRITESETTING_STRING___KEY->chr,oldstr3906->chr,oldstr3906->len); +} +qbs*oldstr3907=NULL; +if(_SUB_WRITESETTING_STRING___VALUE->tmp||_SUB_WRITESETTING_STRING___VALUE->fixed||_SUB_WRITESETTING_STRING___VALUE->readonly){ +oldstr3907=_SUB_WRITESETTING_STRING___VALUE; +if (oldstr3907->cmem_descriptor){ +_SUB_WRITESETTING_STRING___VALUE=qbs_new_cmem(oldstr3907->len,0); +}else{ +_SUB_WRITESETTING_STRING___VALUE=qbs_new(oldstr3907->len,0); +} +memcpy(_SUB_WRITESETTING_STRING___VALUE->chr,oldstr3907->chr,oldstr3907->len); +} +qbs *_SUB_WRITESETTING_STRING_TEMPVALUE=NULL; +if (!_SUB_WRITESETTING_STRING_TEMPVALUE)_SUB_WRITESETTING_STRING_TEMPVALUE=qbs_new(0,0); +qbs *_SUB_WRITESETTING_STRING_SECTION=NULL; +if (!_SUB_WRITESETTING_STRING_SECTION)_SUB_WRITESETTING_STRING_SECTION=qbs_new(0,0); +qbs *_SUB_WRITESETTING_STRING_KEY=NULL; +if (!_SUB_WRITESETTING_STRING_KEY)_SUB_WRITESETTING_STRING_KEY=qbs_new(0,0); +qbs *_SUB_WRITESETTING_STRING_VALUE=NULL; +if (!_SUB_WRITESETTING_STRING_VALUE)_SUB_WRITESETTING_STRING_VALUE=qbs_new(0,0); +uint32 *_SUB_WRITESETTING_ULONG_NEXTLINE=NULL; +if(_SUB_WRITESETTING_ULONG_NEXTLINE==NULL){ +_SUB_WRITESETTING_ULONG_NEXTLINE=(uint32*)mem_static_malloc(4); +*_SUB_WRITESETTING_ULONG_NEXTLINE=0; +} +uint32 *_SUB_WRITESETTING_ULONG_BRACKET1=NULL; +if(_SUB_WRITESETTING_ULONG_BRACKET1==NULL){ +_SUB_WRITESETTING_ULONG_BRACKET1=(uint32*)mem_static_malloc(4); +*_SUB_WRITESETTING_ULONG_BRACKET1=0; +} +uint32 *_SUB_WRITESETTING_ULONG_BEGINSECTION=NULL; +if(_SUB_WRITESETTING_ULONG_BEGINSECTION==NULL){ +_SUB_WRITESETTING_ULONG_BEGINSECTION=(uint32*)mem_static_malloc(4); +*_SUB_WRITESETTING_ULONG_BEGINSECTION=0; +} +uint32 *_SUB_WRITESETTING_ULONG_ENDSECTION=NULL; +if(_SUB_WRITESETTING_ULONG_ENDSECTION==NULL){ +_SUB_WRITESETTING_ULONG_ENDSECTION=(uint32*)mem_static_malloc(4); +*_SUB_WRITESETTING_ULONG_ENDSECTION=0; +} +uint32 *_SUB_WRITESETTING_ULONG_I=NULL; +if(_SUB_WRITESETTING_ULONG_I==NULL){ +_SUB_WRITESETTING_ULONG_I=(uint32*)mem_static_malloc(4); +*_SUB_WRITESETTING_ULONG_I=0; +} +int64 fornext_value3909; +int64 fornext_finalvalue3909; +int64 fornext_step3909; +uint8 fornext_step_negative3909; +int64 fornext_value3911; +int64 fornext_finalvalue3911; +int64 fornext_step3911; +uint8 fornext_step_negative3911; +byte_element_struct *byte_element_3912=NULL; +if (!byte_element_3912){ +if ((mem_static_pointer+=12)tmp||_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE->fixed||_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE->readonly){ -oldstr3687=_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE; -if (oldstr3687->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE=qbs_new_cmem(oldstr3687->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE=qbs_new(oldstr3687->len,0); -} -memcpy(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE->chr,oldstr3687->chr,oldstr3687->len); -} -qbs*oldstr3688=NULL; -if(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR->tmp||_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR->fixed||_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR->readonly){ -oldstr3688=_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR; -if (oldstr3688->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR=qbs_new_cmem(oldstr3688->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR=qbs_new(oldstr3688->len,0); -} -memcpy(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR->chr,oldstr3688->chr,oldstr3688->len); -} diff --git a/internal/source/data127.txt b/internal/source/data127.txt index 92dc5d3fb..e69de29bb 100644 --- a/internal/source/data127.txt +++ b/internal/source/data127.txt @@ -1,20 +0,0 @@ -qbs*oldstr3689=NULL; -if(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE->tmp||_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE->fixed||_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE->readonly){ -oldstr3689=_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE; -if (oldstr3689->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE=qbs_new_cmem(oldstr3689->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE=qbs_new(oldstr3689->len,0); -} -memcpy(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE->chr,oldstr3689->chr,oldstr3689->len); -} -qbs*oldstr3690=NULL; -if(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE->tmp||_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE->fixed||_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE->readonly){ -oldstr3690=_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE; -if (oldstr3690->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE=qbs_new_cmem(oldstr3690->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE=qbs_new(oldstr3690->len,0); -} -memcpy(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE->chr,oldstr3690->chr,oldstr3690->len); -} diff --git a/internal/source/data128.txt b/internal/source/data128.txt index 8cc6e0810..e69de29bb 100644 --- a/internal/source/data128.txt +++ b/internal/source/data128.txt @@ -1,162 +0,0 @@ -qbs*oldstr3691=NULL; -if(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2->tmp||_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2->fixed||_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2->readonly){ -oldstr3691=_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2; -if (oldstr3691->cmem_descriptor){ -_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2=qbs_new_cmem(oldstr3691->len,0); -}else{ -_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2=qbs_new(oldstr3691->len,0); -} -memcpy(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2->chr,oldstr3691->chr,oldstr3691->len); -} -qbs *_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME=NULL; -if (!_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME)_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME=qbs_new(0,0); -int32 *_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI=NULL; -if(_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI==NULL){ -_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI=(int32*)mem_static_malloc(4); -*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI=0; -} -int64 fornext_value3693; -int64 fornext_finalvalue3693; -int64 fornext_step3693; -uint8 fornext_step_negative3693; -byte_element_struct *byte_element_3694=NULL; -if (!byte_element_3694){ -if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATE_STRING_A2->fixed||_FUNC_EVALUATE_STRING_A2->readonly){ -oldstr2344=_FUNC_EVALUATE_STRING_A2; -if (oldstr2344->cmem_descriptor){ -_FUNC_EVALUATE_STRING_A2=qbs_new_cmem(oldstr2344->len,0); +int32 *_FUNC_DIM2_LONG_DIM2=NULL; +if(_FUNC_DIM2_LONG_DIM2==NULL){ +_FUNC_DIM2_LONG_DIM2=(int32*)mem_static_malloc(4); +*_FUNC_DIM2_LONG_DIM2=0; +} +qbs*oldstr2367=NULL; +if(_FUNC_DIM2_STRING_VARNAME->tmp||_FUNC_DIM2_STRING_VARNAME->fixed||_FUNC_DIM2_STRING_VARNAME->readonly){ +oldstr2367=_FUNC_DIM2_STRING_VARNAME; +if (oldstr2367->cmem_descriptor){ +_FUNC_DIM2_STRING_VARNAME=qbs_new_cmem(oldstr2367->len,0); }else{ -_FUNC_EVALUATE_STRING_A2=qbs_new(oldstr2344->len,0); +_FUNC_DIM2_STRING_VARNAME=qbs_new(oldstr2367->len,0); } -memcpy(_FUNC_EVALUATE_STRING_A2->chr,oldstr2344->chr,oldstr2344->len); +memcpy(_FUNC_DIM2_STRING_VARNAME->chr,oldstr2367->chr,oldstr2367->len); } -ptrszint *_FUNC_EVALUATE_ARRAY_STRING_BLOCK=NULL; -if (!_FUNC_EVALUATE_ARRAY_STRING_BLOCK){ -_FUNC_EVALUATE_ARRAY_STRING_BLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALUATE_ARRAY_STRING_BLOCK)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]=0; -_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]=2147483647; -_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=0; -_FUNC_EVALUATE_ARRAY_STRING_BLOCK[6]=0; -_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=(ptrszint)¬hingstring; +qbs*oldstr2368=NULL; +if(_FUNC_DIM2_STRING_TYP2->tmp||_FUNC_DIM2_STRING_TYP2->fixed||_FUNC_DIM2_STRING_TYP2->readonly){ +oldstr2368=_FUNC_DIM2_STRING_TYP2; +if (oldstr2368->cmem_descriptor){ +_FUNC_DIM2_STRING_TYP2=qbs_new_cmem(oldstr2368->len,0); +}else{ +_FUNC_DIM2_STRING_TYP2=qbs_new(oldstr2368->len,0); } -ptrszint *_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK=NULL; -if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK){ -_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]=0; -_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]=2147483647; -_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=0; -_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[6]=0; -_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)nothingvalue; +memcpy(_FUNC_DIM2_STRING_TYP2->chr,oldstr2368->chr,oldstr2368->len); } -ptrszint *_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE=NULL; -if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE){ -_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]=0; -_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]=2147483647; -_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=0; -_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[6]=0; -_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)nothingvalue; +qbs*oldstr2369=NULL; +if(_FUNC_DIM2_STRING_ELEMENTS->tmp||_FUNC_DIM2_STRING_ELEMENTS->fixed||_FUNC_DIM2_STRING_ELEMENTS->readonly){ +oldstr2369=_FUNC_DIM2_STRING_ELEMENTS; +if (oldstr2369->cmem_descriptor){ +_FUNC_DIM2_STRING_ELEMENTS=qbs_new_cmem(oldstr2369->len,0); +}else{ +_FUNC_DIM2_STRING_ELEMENTS=qbs_new(oldstr2369->len,0); } -qbs *_FUNC_EVALUATE_STRING_A=NULL; -if (!_FUNC_EVALUATE_STRING_A)_FUNC_EVALUATE_STRING_A=qbs_new(0,0); -int32 *_FUNC_EVALUATE_LONG_BLOCKN=NULL; -if(_FUNC_EVALUATE_LONG_BLOCKN==NULL){ -_FUNC_EVALUATE_LONG_BLOCKN=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATE_LONG_BLOCKN=0; +memcpy(_FUNC_DIM2_STRING_ELEMENTS->chr,oldstr2369->chr,oldstr2369->len); } -int32 *_FUNC_EVALUATE_LONG_N=NULL; -if(_FUNC_EVALUATE_LONG_N==NULL){ -_FUNC_EVALUATE_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATE_LONG_N=0; +qbs *_FUNC_DIM2_STRING_TYP=NULL; +if (!_FUNC_DIM2_STRING_TYP)_FUNC_DIM2_STRING_TYP=qbs_new(0,0); +qbs *_FUNC_DIM2_STRING_CVARNAME=NULL; +if (!_FUNC_DIM2_STRING_CVARNAME)_FUNC_DIM2_STRING_CVARNAME=qbs_new(0,0); +qbs *_FUNC_DIM2_STRING_L=NULL; +if (!_FUNC_DIM2_STRING_L)_FUNC_DIM2_STRING_L=qbs_new(0,0); +int32 *_FUNC_DIM2_LONG_F=NULL; +if(_FUNC_DIM2_LONG_F==NULL){ +_FUNC_DIM2_LONG_F=(int32*)mem_static_malloc(4); +*_FUNC_DIM2_LONG_F=0; } -int32 *_FUNC_EVALUATE_LONG_B=NULL; -if(_FUNC_EVALUATE_LONG_B==NULL){ -_FUNC_EVALUATE_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATE_LONG_B=0; +qbs *_FUNC_DIM2_STRING_SCOPE2=NULL; +if (!_FUNC_DIM2_STRING_SCOPE2)_FUNC_DIM2_STRING_SCOPE2=qbs_new(0,0); +byte_element_struct *byte_element_2371=NULL; +if (!byte_element_2371){ +if ((mem_static_pointer+=12)tmp||_SUB_INILOAD_STRING_FILE->fixed||_SUB_INILOAD_STRING_FILE->readonly){ +oldstr3917=_SUB_INILOAD_STRING_FILE; +if (oldstr3917->cmem_descriptor){ +_SUB_INILOAD_STRING_FILE=qbs_new_cmem(oldstr3917->len,0); +}else{ +_SUB_INILOAD_STRING_FILE=qbs_new(oldstr3917->len,0); +} +memcpy(_SUB_INILOAD_STRING_FILE->chr,oldstr3917->chr,oldstr3917->len); +} +int16 *_SUB_INILOAD_INTEGER_FILENUM=NULL; +if(_SUB_INILOAD_INTEGER_FILENUM==NULL){ +_SUB_INILOAD_INTEGER_FILENUM=(int16*)mem_static_malloc(2); +*_SUB_INILOAD_INTEGER_FILENUM=0; } byte_element_struct *byte_element_3918=NULL; if (!byte_element_3918){ if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]=0; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]=2147483647; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]=0; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=0; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]=(ptrszint)¬hingstring; -} -byte_element_struct *byte_element_4450=NULL; -if (!byte_element_4450){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]=0; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]=2147483647; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]=0; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=0; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]=(ptrszint)¬hingstring; +} +byte_element_struct *byte_element_4553=NULL; +if (!byte_element_4553){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]=0; -_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4]=2147483647; -_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]=0; -_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[6]=0; -_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]=(ptrszint)¬hingstring; +qbs *_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME=NULL; +if (!_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME)_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME=qbs_new(0,0); +byte_element_struct *byte_element_4607=NULL; +if (!byte_element_4607){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDECHANGE_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECHANGE_ARRAY_UDT_O[2]=0; -_FUNC_IDECHANGE_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDECHANGE_ARRAY_UDT_O[5]=0; -_FUNC_IDECHANGE_ARRAY_UDT_O[6]=0; -_FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDECHANGE_STRING1_SEP=NULL; -if(_FUNC_IDECHANGE_STRING1_SEP==NULL){ -_FUNC_IDECHANGE_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDECHANGE_STRING1_SEP->chr,0,1); -} -qbs *_FUNC_IDECHANGE_STRING_A=NULL; -if (!_FUNC_IDECHANGE_STRING_A)_FUNC_IDECHANGE_STRING_A=qbs_new(0,0); -qbs *_FUNC_IDECHANGE_STRING_A2=NULL; -if (!_FUNC_IDECHANGE_STRING_A2)_FUNC_IDECHANGE_STRING_A2=qbs_new(0,0); -int32 *_FUNC_IDECHANGE_LONG_SX1=NULL; -if(_FUNC_IDECHANGE_LONG_SX1==NULL){ -_FUNC_IDECHANGE_LONG_SX1=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGE_LONG_SX1=0; -} -int32 *_FUNC_IDECHANGE_LONG_SX2=NULL; -if(_FUNC_IDECHANGE_LONG_SX2==NULL){ -_FUNC_IDECHANGE_LONG_SX2=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGE_LONG_SX2=0; -} -int32 *_FUNC_IDECHANGE_LONG_X=NULL; -if(_FUNC_IDECHANGE_LONG_X==NULL){ -_FUNC_IDECHANGE_LONG_X=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGE_LONG_X=0; -} -int64 fornext_value4519; -int64 fornext_finalvalue4519; -int64 fornext_step4519; -uint8 fornext_step_negative4519; -byte_element_struct *byte_element_4520=NULL; -if (!byte_element_4520){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_SUB_IDECHANGED_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDECHANGED_ARRAY_UDT_O[2]=0; -_SUB_IDECHANGED_ARRAY_UDT_O[4]=2147483647; -_SUB_IDECHANGED_ARRAY_UDT_O[5]=0; -_SUB_IDECHANGED_ARRAY_UDT_O[6]=0; -_SUB_IDECHANGED_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON)[8]=(ptrszint)mem_lock_tmp; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[2]=0; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4]=2147483647; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]=0; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[6]=0; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]=(ptrszint)nothingvalue; } -qbs *_SUB_IDECHANGED_STRING1_SEP=NULL; -if(_SUB_IDECHANGED_STRING1_SEP==NULL){ -_SUB_IDECHANGED_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_IDECHANGED_STRING1_SEP->chr,0,1); +int32 *_SUB_DEBUGMODE_LONG_I=NULL; +if(_SUB_DEBUGMODE_LONG_I==NULL){ +_SUB_DEBUGMODE_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_DEBUGMODE_LONG_I=0; } -int32 *_SUB_IDECHANGED_LONG_I=NULL; -if(_SUB_IDECHANGED_LONG_I==NULL){ -_SUB_IDECHANGED_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_IDECHANGED_LONG_I=0; +int32 *_SUB_DEBUGMODE_LONG_Y=NULL; +if(_SUB_DEBUGMODE_LONG_Y==NULL){ +_SUB_DEBUGMODE_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_DEBUGMODE_LONG_Y=0; } -int32 pass4553; -int32 pass4554; -int64 fornext_value4556; -int64 fornext_finalvalue4556; -int64 fornext_step4556; -uint8 fornext_step_negative4556; -int32 *_SUB_IDECHANGED_LONG_F=NULL; -if(_SUB_IDECHANGED_LONG_F==NULL){ -_SUB_IDECHANGED_LONG_F=(int32*)mem_static_malloc(4); -*_SUB_IDECHANGED_LONG_F=0; +int32 *_SUB_DEBUGMODE_LONG_X=NULL; +if(_SUB_DEBUGMODE_LONG_X==NULL){ +_SUB_DEBUGMODE_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_DEBUGMODE_LONG_X=0; } -int32 *_SUB_IDECHANGED_LONG_CX=NULL; -if(_SUB_IDECHANGED_LONG_CX==NULL){ -_SUB_IDECHANGED_LONG_CX=(int32*)mem_static_malloc(4); -*_SUB_IDECHANGED_LONG_CX=0; +int64 fornext_value4614; +int64 fornext_finalvalue4614; +int64 fornext_step4614; +uint8 fornext_step_negative4614; +int32 sc_4615_var; +int32 *_SUB_DEBUGMODE_LONG_DEBUGGEEPID=NULL; +if(_SUB_DEBUGMODE_LONG_DEBUGGEEPID==NULL){ +_SUB_DEBUGMODE_LONG_DEBUGGEEPID=(int32*)mem_static_malloc(4); +*_SUB_DEBUGMODE_LONG_DEBUGGEEPID=0; } -int32 *_SUB_IDECHANGED_LONG_CY=NULL; -if(_SUB_IDECHANGED_LONG_CY==NULL){ -_SUB_IDECHANGED_LONG_CY=(int32*)mem_static_malloc(4); -*_SUB_IDECHANGED_LONG_CY=0; +int8 pass4616; +byte_element_struct *byte_element_4617=NULL; +if (!byte_element_4617){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDECHANGEIT_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]=0; -_FUNC_IDECHANGEIT_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]=0; -_FUNC_IDECHANGEIT_ARRAY_UDT_O[6]=0; -_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDECHANGEIT_STRING1_SEP=NULL; -if(_FUNC_IDECHANGEIT_STRING1_SEP==NULL){ -_FUNC_IDECHANGEIT_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDECHANGEIT_STRING1_SEP->chr,0,1); -} -int32 *_FUNC_IDECHANGEIT_LONG_I=NULL; -if(_FUNC_IDECHANGEIT_LONG_I==NULL){ -_FUNC_IDECHANGEIT_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_I=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_W=NULL; -if(_FUNC_IDECHANGEIT_LONG_W==NULL){ -_FUNC_IDECHANGEIT_LONG_W=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_W=0; -} -int64 fornext_value4566; -int64 fornext_finalvalue4566; -int64 fornext_step4566; -uint8 fornext_step_negative4566; -int32 *_FUNC_IDECHANGEIT_LONG_F=NULL; -if(_FUNC_IDECHANGEIT_LONG_F==NULL){ -_FUNC_IDECHANGEIT_LONG_F=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_F=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_CX=NULL; -if(_FUNC_IDECHANGEIT_LONG_CX==NULL){ -_FUNC_IDECHANGEIT_LONG_CX=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_CX=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_CY=NULL; -if(_FUNC_IDECHANGEIT_LONG_CY==NULL){ -_FUNC_IDECHANGEIT_LONG_CY=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_CY=0; -} -int64 fornext_value4569; -int64 fornext_finalvalue4569; -int64 fornext_step4569; -uint8 fornext_step_negative4569; -int32 *_FUNC_IDECHANGEIT_LONG_LASTFOCUS=NULL; -if(_FUNC_IDECHANGEIT_LONG_LASTFOCUS==NULL){ -_FUNC_IDECHANGEIT_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_LASTFOCUS=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_CHANGE=NULL; -if(_FUNC_IDECHANGEIT_LONG_CHANGE==NULL){ -_FUNC_IDECHANGEIT_LONG_CHANGE=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_CHANGE=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_MOUSEDOWN=NULL; -if(_FUNC_IDECHANGEIT_LONG_MOUSEDOWN==NULL){ -_FUNC_IDECHANGEIT_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_MOUSEDOWN=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_MOUSEUP=NULL; -if(_FUNC_IDECHANGEIT_LONG_MOUSEUP==NULL){ -_FUNC_IDECHANGEIT_LONG_MOUSEUP=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_MOUSEUP=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_ALT=NULL; -if(_FUNC_IDECHANGEIT_LONG_ALT==NULL){ -_FUNC_IDECHANGEIT_LONG_ALT=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_ALT=0; -} -int32 *_FUNC_IDECHANGEIT_LONG_OLDALT=NULL; -if(_FUNC_IDECHANGEIT_LONG_OLDALT==NULL){ -_FUNC_IDECHANGEIT_LONG_OLDALT=(int32*)mem_static_malloc(4); -*_FUNC_IDECHANGEIT_LONG_OLDALT=0; -} -qbs *_FUNC_IDECHANGEIT_STRING_ALTLETTER=NULL; -if (!_FUNC_IDECHANGEIT_STRING_ALTLETTER)_FUNC_IDECHANGEIT_STRING_ALTLETTER=qbs_new(0,0); -byte_element_struct *byte_element_4571=NULL; -if (!byte_element_4571){ -if ((mem_static_pointer+=12)tmp||_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE->fixed||_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE->readonly){ +oldstr4917=_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE; +if (oldstr4917->cmem_descriptor){ +_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE=qbs_new_cmem(oldstr4917->len,0); +}else{ +_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE=qbs_new(oldstr4917->len,0); } -int64 fornext_value4575; -int64 fornext_finalvalue4575; -int64 fornext_step4575; -uint8 fornext_step_negative4575; -int32 *_SUB_IDEDELLINE_LONG_Y=NULL; -if(_SUB_IDEDELLINE_LONG_Y==NULL){ -_SUB_IDEDELLINE_LONG_Y=(int32*)mem_static_malloc(4); -*_SUB_IDEDELLINE_LONG_Y=0; +memcpy(_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE->chr,oldstr4917->chr,oldstr4917->len); } -int32 *_SUB_IDEDELLINE_LONG_TEXTLEN=NULL; -if(_SUB_IDEDELLINE_LONG_TEXTLEN==NULL){ -_SUB_IDEDELLINE_LONG_TEXTLEN=(int32*)mem_static_malloc(4); -*_SUB_IDEDELLINE_LONG_TEXTLEN=0; +int32 *_SUB_SHOWVWATCHPANEL_LONG_FG=NULL; +if(_SUB_SHOWVWATCHPANEL_LONG_FG==NULL){ +_SUB_SHOWVWATCHPANEL_LONG_FG=(int32*)mem_static_malloc(4); +*_SUB_SHOWVWATCHPANEL_LONG_FG=0; } -byte_element_struct *byte_element_4576=NULL; -if (!byte_element_4576){ -if ((mem_static_pointer+=12)tmp||_FUNC_MULTISEARCH_STRING___FULLTEXT->fixed||_FUNC_MULTISEARCH_STRING___FULLTEXT->readonly){ +oldstr4964=_FUNC_MULTISEARCH_STRING___FULLTEXT; +if (oldstr4964->cmem_descriptor){ +_FUNC_MULTISEARCH_STRING___FULLTEXT=qbs_new_cmem(oldstr4964->len,0); +}else{ +_FUNC_MULTISEARCH_STRING___FULLTEXT=qbs_new(oldstr4964->len,0); +} +memcpy(_FUNC_MULTISEARCH_STRING___FULLTEXT->chr,oldstr4964->chr,oldstr4964->len); +} +qbs*oldstr4965=NULL; +if(_FUNC_MULTISEARCH_STRING___SEARCHSTRING->tmp||_FUNC_MULTISEARCH_STRING___SEARCHSTRING->fixed||_FUNC_MULTISEARCH_STRING___SEARCHSTRING->readonly){ +oldstr4965=_FUNC_MULTISEARCH_STRING___SEARCHSTRING; +if (oldstr4965->cmem_descriptor){ +_FUNC_MULTISEARCH_STRING___SEARCHSTRING=qbs_new_cmem(oldstr4965->len,0); +}else{ +_FUNC_MULTISEARCH_STRING___SEARCHSTRING=qbs_new(oldstr4965->len,0); +} +memcpy(_FUNC_MULTISEARCH_STRING___SEARCHSTRING->chr,oldstr4965->chr,oldstr4965->len); +} +qbs *_FUNC_MULTISEARCH_STRING_FULLTEXT=NULL; +if (!_FUNC_MULTISEARCH_STRING_FULLTEXT)_FUNC_MULTISEARCH_STRING_FULLTEXT=qbs_new(0,0); +qbs *_FUNC_MULTISEARCH_STRING_SEARCHSTRING=NULL; +if (!_FUNC_MULTISEARCH_STRING_SEARCHSTRING)_FUNC_MULTISEARCH_STRING_SEARCHSTRING=qbs_new(0,0); +byte_element_struct *byte_element_4966=NULL; +if (!byte_element_4966){ +if ((mem_static_pointer+=12)chr,0,1); +qbs *_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX=NULL; +if (!_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX)_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX=qbs_new(0,0); +qbs*oldstr4970=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE->tmp||_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE->fixed||_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE->readonly){ +oldstr4970=_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE; +if (oldstr4970->cmem_descriptor){ +_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE=qbs_new_cmem(oldstr4970->len,0); +}else{ +_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE=qbs_new(oldstr4970->len,0); } -int32 *_SUB_IDEDRAWOBJ_LONG_X=NULL; -if(_SUB_IDEDRAWOBJ_LONG_X==NULL){ -_SUB_IDEDRAWOBJ_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_X=0; +memcpy(_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE->chr,oldstr4970->chr,oldstr4970->len); } -int32 *_SUB_IDEDRAWOBJ_LONG_Y=NULL; -if(_SUB_IDEDRAWOBJ_LONG_Y==NULL){ -_SUB_IDEDRAWOBJ_LONG_Y=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_Y=0; +qbs*oldstr4971=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER->tmp||_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER->fixed||_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER->readonly){ +oldstr4971=_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER; +if (oldstr4971->cmem_descriptor){ +_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER=qbs_new_cmem(oldstr4971->len,0); +}else{ +_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER=qbs_new(oldstr4971->len,0); } -qbs *_SUB_IDEDRAWOBJ_STRING_A=NULL; -if (!_SUB_IDEDRAWOBJ_STRING_A)_SUB_IDEDRAWOBJ_STRING_A=qbs_new(0,0); -int32 *_SUB_IDEDRAWOBJ_LONG_X2=NULL; -if(_SUB_IDEDRAWOBJ_LONG_X2==NULL){ -_SUB_IDEDRAWOBJ_LONG_X2=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_X2=0; +memcpy(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER->chr,oldstr4971->chr,oldstr4971->len); } -int32 pass4577; -int32 pass4578; -int32 pass4579; -byte_element_struct *byte_element_4580=NULL; -if (!byte_element_4580){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -int32 *_SUB_IDEDRAWOBJ_LONG_TX=NULL; -if(_SUB_IDEDRAWOBJ_LONG_TX==NULL){ -_SUB_IDEDRAWOBJ_LONG_TX=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_TX=0; +qbs *_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP==NULL){ +_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP->chr,0,1); } -byte_element_struct *byte_element_4582=NULL; -if (!byte_element_4582){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4]=2147483647; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[6]=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]=(ptrszint)nothingvalue; } -int32 *_SUB_IDEDRAWOBJ_LONG_S=NULL; -if(_SUB_IDEDRAWOBJ_LONG_S==NULL){ -_SUB_IDEDRAWOBJ_LONG_S=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_S=0; +int32 *_FUNC_IDEVARIABLEWATCHBOX_LONG_X=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_LONG_X==NULL){ +_FUNC_IDEVARIABLEWATCHBOX_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=0; } -int32 *_SUB_IDEDRAWOBJ_LONG_N=NULL; -if(_SUB_IDEDRAWOBJ_LONG_N==NULL){ -_SUB_IDEDRAWOBJ_LONG_N=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_N=0; +int64 fornext_value4974; +int64 fornext_finalvalue4974; +int64 fornext_step4974; +uint8 fornext_step_negative4974; +qbs *_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM=NULL; +if (!_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM=qbs_new(0,0); +int32 *_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN==NULL){ +_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN=(int32*)mem_static_malloc(4); +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN=0; } -int32 *_SUB_IDEDRAWOBJ_LONG_V1=NULL; -if(_SUB_IDEDRAWOBJ_LONG_V1==NULL){ -_SUB_IDEDRAWOBJ_LONG_V1=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_V1=0; +int32 *_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT==NULL){ +_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=(int32*)mem_static_malloc(4); +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=0; } -qbs *_SUB_IDEDRAWOBJ_STRING_A3=NULL; -if (!_SUB_IDEDRAWOBJ_STRING_A3)_SUB_IDEDRAWOBJ_STRING_A3=qbs_new(0,0); -int32 *_SUB_IDEDRAWOBJ_LONG_I2=NULL; -if(_SUB_IDEDRAWOBJ_LONG_I2==NULL){ -_SUB_IDEDRAWOBJ_LONG_I2=(int32*)mem_static_malloc(4); -*_SUB_IDEDRAWOBJ_LONG_I2=0; +int32 *_FUNC_IDEVARIABLEWATCHBOX_LONG_I=NULL; +if(_FUNC_IDEVARIABLEWATCHBOX_LONG_I==NULL){ +_FUNC_IDEVARIABLEWATCHBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=0; } -int64 fornext_value4591; -int64 fornext_finalvalue4591; -int64 fornext_step4591; -uint8 fornext_step_negative4591; -byte_element_struct *byte_element_4592=NULL; -if (!byte_element_4592){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH->fixed||_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH->readonly){ +oldstr5094=_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH; +if (oldstr5094->cmem_descriptor){ +_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH=qbs_new_cmem(oldstr5094->len,0); +}else{ +_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH=qbs_new(oldstr5094->len,0); } -byte_element_struct *byte_element_4612=NULL; -if (!byte_element_4612){ -if ((mem_static_pointer+=12)chr,oldstr5094->chr,oldstr5094->len); +} +qbs*oldstr5095=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->tmp||_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->fixed||_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->readonly){ +oldstr5095=_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES; +if (oldstr5095->cmem_descriptor){ +_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES=qbs_new_cmem(oldstr5095->len,0); +}else{ +_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES=qbs_new(oldstr5095->len,0); +} +memcpy(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->chr,oldstr5095->chr,oldstr5095->len); +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=0; +} +void *_FUNC_IDEELEMENTWATCHBOX_UDT_P=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_UDT_P==NULL){ +_FUNC_IDEELEMENTWATCHBOX_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDEELEMENTWATCHBOX_UDT_P,0,20); +} +ptrszint *_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O=NULL; +if (!_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O){ +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP==NULL){ +_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP->chr,0,1); +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS=0; +} +byte_element_struct *byte_element_5096=NULL; +if (!byte_element_5096){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]=0; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4]=2147483647; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]=0; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[6]=0; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]=(ptrszint)nothingvalue; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_I=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_I==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN=0; +} +qbs *_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE=NULL; +if (!_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE)_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE=qbs_new(0,0); +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX=0; +} +qbs *_FUNC_IDEELEMENTWATCHBOX_STRING_L=NULL; +if (!_FUNC_IDEELEMENTWATCHBOX_STRING_L)_FUNC_IDEELEMENTWATCHBOX_STRING_L=qbs_new(0,0); +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET=0; +} +int64 fornext_value5098; +int64 fornext_finalvalue5098; +int64 fornext_step5098; +uint8 fornext_step_negative5098; +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_F=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_F==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_F=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_F=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_CX=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_CX==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_CX=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_CX=0; +} +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_CY=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_CY==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_CY=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_CY=0; +} +int64 fornext_value5101; +int64 fornext_finalvalue5101; +int64 fornext_step5101; +uint8 fornext_step_negative5101; +int32 *_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS=NULL; +if(_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS==NULL){ +_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS=0; +} +qbs *_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP=NULL; +if (!_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP)_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP=qbs_new(0,0); +byte_element_struct *byte_element_5102=NULL; +if (!byte_element_5102){ +if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATEFUNC_STRING_A2->fixed||_FUNC_EVALUATEFUNC_STRING_A2->readonly){ -oldstr2408=_FUNC_EVALUATEFUNC_STRING_A2; -if (oldstr2408->cmem_descriptor){ -_FUNC_EVALUATEFUNC_STRING_A2=qbs_new_cmem(oldstr2408->len,0); +qbs *_FUNC_UDTREFERENCE_STRING_UDTREFERENCE=NULL; +if (!_FUNC_UDTREFERENCE_STRING_UDTREFERENCE)_FUNC_UDTREFERENCE_STRING_UDTREFERENCE=qbs_new(0,0); +qbs*oldstr2549=NULL; +if(_FUNC_UDTREFERENCE_STRING_O->tmp||_FUNC_UDTREFERENCE_STRING_O->fixed||_FUNC_UDTREFERENCE_STRING_O->readonly){ +oldstr2549=_FUNC_UDTREFERENCE_STRING_O; +if (oldstr2549->cmem_descriptor){ +_FUNC_UDTREFERENCE_STRING_O=qbs_new_cmem(oldstr2549->len,0); }else{ -_FUNC_EVALUATEFUNC_STRING_A2=qbs_new(oldstr2408->len,0); +_FUNC_UDTREFERENCE_STRING_O=qbs_new(oldstr2549->len,0); +} +memcpy(_FUNC_UDTREFERENCE_STRING_O->chr,oldstr2549->chr,oldstr2549->len); +} +qbs*oldstr2550=NULL; +if(_FUNC_UDTREFERENCE_STRING_A->tmp||_FUNC_UDTREFERENCE_STRING_A->fixed||_FUNC_UDTREFERENCE_STRING_A->readonly){ +oldstr2550=_FUNC_UDTREFERENCE_STRING_A; +if (oldstr2550->cmem_descriptor){ +_FUNC_UDTREFERENCE_STRING_A=qbs_new_cmem(oldstr2550->len,0); +}else{ +_FUNC_UDTREFERENCE_STRING_A=qbs_new(oldstr2550->len,0); +} +memcpy(_FUNC_UDTREFERENCE_STRING_A->chr,oldstr2550->chr,oldstr2550->len); +} +qbs *_FUNC_UDTREFERENCE_STRING_OBAK=NULL; +if (!_FUNC_UDTREFERENCE_STRING_OBAK)_FUNC_UDTREFERENCE_STRING_OBAK=qbs_new(0,0); +qbs *_FUNC_UDTREFERENCE_STRING_R=NULL; +if (!_FUNC_UDTREFERENCE_STRING_R)_FUNC_UDTREFERENCE_STRING_R=qbs_new(0,0); +int32 *_FUNC_UDTREFERENCE_LONG_O=NULL; +if(_FUNC_UDTREFERENCE_LONG_O==NULL){ +_FUNC_UDTREFERENCE_LONG_O=(int32*)mem_static_malloc(4); +*_FUNC_UDTREFERENCE_LONG_O=0; +} +int32 *_FUNC_UDTREFERENCE_LONG_INCMEM=NULL; +if(_FUNC_UDTREFERENCE_LONG_INCMEM==NULL){ +_FUNC_UDTREFERENCE_LONG_INCMEM=(int32*)mem_static_malloc(4); +*_FUNC_UDTREFERENCE_LONG_INCMEM=0; +} +int32 *_FUNC_UDTREFERENCE_LONG_U=NULL; +if(_FUNC_UDTREFERENCE_LONG_U==NULL){ +_FUNC_UDTREFERENCE_LONG_U=(int32*)mem_static_malloc(4); +*_FUNC_UDTREFERENCE_LONG_U=0; +} +int32 *_FUNC_UDTREFERENCE_LONG_N=NULL; +if(_FUNC_UDTREFERENCE_LONG_N==NULL){ +_FUNC_UDTREFERENCE_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_UDTREFERENCE_LONG_N=0; +} +int32 *_FUNC_UDTREFERENCE_LONG_I=NULL; +if(_FUNC_UDTREFERENCE_LONG_I==NULL){ +_FUNC_UDTREFERENCE_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_UDTREFERENCE_LONG_I=0; +} +qbs *_FUNC_UDTREFERENCE_STRING_N=NULL; +if (!_FUNC_UDTREFERENCE_STRING_N)_FUNC_UDTREFERENCE_STRING_N=qbs_new(0,0); +qbs *_FUNC_UDTREFERENCE_STRING_NSYM=NULL; +if (!_FUNC_UDTREFERENCE_STRING_NSYM)_FUNC_UDTREFERENCE_STRING_NSYM=qbs_new(0,0); +byte_element_struct *byte_element_2551=NULL; +if (!byte_element_2551){ +if ((mem_static_pointer+=12)chr,oldstr2408->chr,oldstr2408->len); -} -qbs *_FUNC_EVALUATEFUNC_STRING_A=NULL; -if (!_FUNC_EVALUATEFUNC_STRING_A)_FUNC_EVALUATEFUNC_STRING_A=qbs_new(0,0); -void *_FUNC_EVALUATEFUNC_UDT_ID2=NULL; -if(_FUNC_EVALUATEFUNC_UDT_ID2==NULL){ -_FUNC_EVALUATEFUNC_UDT_ID2=(void*)mem_static_malloc(2863); -memset(_FUNC_EVALUATEFUNC_UDT_ID2,0,2863); -} -qbs *_FUNC_EVALUATEFUNC_STRING_N=NULL; -if (!_FUNC_EVALUATEFUNC_STRING_N)_FUNC_EVALUATEFUNC_STRING_N=qbs_new(0,0); -int32 *_FUNC_EVALUATEFUNC_LONG_TARGETID=NULL; -if(_FUNC_EVALUATEFUNC_LONG_TARGETID==NULL){ -_FUNC_EVALUATEFUNC_LONG_TARGETID=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATEFUNC_LONG_TARGETID=0; -} -int32 pass2410; -int32 *_FUNC_EVALUATEFUNC_LONG_PASSOMIT=NULL; -if(_FUNC_EVALUATEFUNC_LONG_PASSOMIT==NULL){ -_FUNC_EVALUATEFUNC_LONG_PASSOMIT=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATEFUNC_LONG_PASSOMIT=0; -} -int32 *_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST=NULL; -if(_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST==NULL){ -_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST=0; -} -int32 *_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST=NULL; -if(_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST==NULL){ -_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST=0; -} -qbs *_FUNC_EVALUATEFUNC_STRING_F=NULL; -if (!_FUNC_EVALUATEFUNC_STRING_F)_FUNC_EVALUATEFUNC_STRING_F=qbs_new(0,0); -byte_element_struct *byte_element_2411=NULL; -if (!byte_element_2411){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEERRORMESSAGE_STRING_MESS->fixed||_SUB_IDEERRORMESSAGE_STRING_MESS->readonly){ -oldstr4614=_SUB_IDEERRORMESSAGE_STRING_MESS; -if (oldstr4614->cmem_descriptor){ -_SUB_IDEERRORMESSAGE_STRING_MESS=qbs_new_cmem(oldstr4614->len,0); +qbs *_FUNC_FORMATRANGE_STRING_FORMATRANGE=NULL; +if (!_FUNC_FORMATRANGE_STRING_FORMATRANGE)_FUNC_FORMATRANGE_STRING_FORMATRANGE=qbs_new(0,0); +qbs*oldstr5132=NULL; +if(_FUNC_FORMATRANGE_STRING___TEXT->tmp||_FUNC_FORMATRANGE_STRING___TEXT->fixed||_FUNC_FORMATRANGE_STRING___TEXT->readonly){ +oldstr5132=_FUNC_FORMATRANGE_STRING___TEXT; +if (oldstr5132->cmem_descriptor){ +_FUNC_FORMATRANGE_STRING___TEXT=qbs_new_cmem(oldstr5132->len,0); }else{ -_SUB_IDEERRORMESSAGE_STRING_MESS=qbs_new(oldstr4614->len,0); +_FUNC_FORMATRANGE_STRING___TEXT=qbs_new(oldstr5132->len,0); } -memcpy(_SUB_IDEERRORMESSAGE_STRING_MESS->chr,oldstr4614->chr,oldstr4614->len); +memcpy(_FUNC_FORMATRANGE_STRING___TEXT->chr,oldstr5132->chr,oldstr5132->len); } -int32 *_SUB_IDEERRORMESSAGE_LONG_FOCUS=NULL; -if(_SUB_IDEERRORMESSAGE_LONG_FOCUS==NULL){ -_SUB_IDEERRORMESSAGE_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_SUB_IDEERRORMESSAGE_LONG_FOCUS=0; +qbs *_FUNC_FORMATRANGE_STRING_TEMP=NULL; +if (!_FUNC_FORMATRANGE_STRING_TEMP)_FUNC_FORMATRANGE_STRING_TEMP=qbs_new(0,0); +int32 *_FUNC_FORMATRANGE_LONG_V1=NULL; +if(_FUNC_FORMATRANGE_LONG_V1==NULL){ +_FUNC_FORMATRANGE_LONG_V1=(int32*)mem_static_malloc(4); +*_FUNC_FORMATRANGE_LONG_V1=0; } -void *_SUB_IDEERRORMESSAGE_UDT_P=NULL; -if(_SUB_IDEERRORMESSAGE_UDT_P==NULL){ -_SUB_IDEERRORMESSAGE_UDT_P=(void*)mem_static_malloc(20); -memset(_SUB_IDEERRORMESSAGE_UDT_P,0,20); +int32 *_FUNC_FORMATRANGE_LONG_V2=NULL; +if(_FUNC_FORMATRANGE_LONG_V2==NULL){ +_FUNC_FORMATRANGE_LONG_V2=(int32*)mem_static_malloc(4); +*_FUNC_FORMATRANGE_LONG_V2=0; } -ptrszint *_SUB_IDEERRORMESSAGE_ARRAY_UDT_O=NULL; -if (!_SUB_IDEERRORMESSAGE_ARRAY_UDT_O){ -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]=0; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4]=2147483647; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]=0; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[6]=0; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +int32 *_FUNC_FORMATRANGE_LONG_I=NULL; +if(_FUNC_FORMATRANGE_LONG_I==NULL){ +_FUNC_FORMATRANGE_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_FORMATRANGE_LONG_I=0; } -qbs *_SUB_IDEERRORMESSAGE_STRING1_SEP=NULL; -if(_SUB_IDEERRORMESSAGE_STRING1_SEP==NULL){ -_SUB_IDEERRORMESSAGE_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_IDEERRORMESSAGE_STRING1_SEP->chr,0,1); +int64 fornext_value5134; +int64 fornext_finalvalue5134; +int64 fornext_step5134; +uint8 fornext_step_negative5134; +byte_element_struct *byte_element_5135=NULL; +if (!byte_element_5135){ +if ((mem_static_pointer+=12)tmp||_FUNC_EXPANDARRAY_STRING___INDEXES->fixed||_FUNC_EXPANDARRAY_STRING___INDEXES->readonly){ +oldstr5136=_FUNC_EXPANDARRAY_STRING___INDEXES; +if (oldstr5136->cmem_descriptor){ +_FUNC_EXPANDARRAY_STRING___INDEXES=qbs_new_cmem(oldstr5136->len,0); +}else{ +_FUNC_EXPANDARRAY_STRING___INDEXES=qbs_new(oldstr5136->len,0); } -void *_FUNC_IDEFILEEXISTS_UDT_P=NULL; -if(_FUNC_IDEFILEEXISTS_UDT_P==NULL){ -_FUNC_IDEFILEEXISTS_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEFILEEXISTS_UDT_P,0,20); +memcpy(_FUNC_EXPANDARRAY_STRING___INDEXES->chr,oldstr5136->chr,oldstr5136->len); } -ptrszint *_FUNC_IDEFILEEXISTS_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEFILEEXISTS_ARRAY_UDT_O){ -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]=0; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]=0; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[6]=0; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +qbs*oldstr5137=NULL; +if(_FUNC_EXPANDARRAY_STRING___PATH->tmp||_FUNC_EXPANDARRAY_STRING___PATH->fixed||_FUNC_EXPANDARRAY_STRING___PATH->readonly){ +oldstr5137=_FUNC_EXPANDARRAY_STRING___PATH; +if (oldstr5137->cmem_descriptor){ +_FUNC_EXPANDARRAY_STRING___PATH=qbs_new_cmem(oldstr5137->len,0); +}else{ +_FUNC_EXPANDARRAY_STRING___PATH=qbs_new(oldstr5137->len,0); } -qbs *_FUNC_IDEFILEEXISTS_STRING1_SEP=NULL; -if(_FUNC_IDEFILEEXISTS_STRING1_SEP==NULL){ -_FUNC_IDEFILEEXISTS_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEFILEEXISTS_STRING1_SEP->chr,0,1); +memcpy(_FUNC_EXPANDARRAY_STRING___PATH->chr,oldstr5137->chr,oldstr5137->len); } -int32 *_FUNC_IDEFILEEXISTS_LONG_I=NULL; -if(_FUNC_IDEFILEEXISTS_LONG_I==NULL){ -_FUNC_IDEFILEEXISTS_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEFILEEXISTS_LONG_I=0; +int32 *_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=NULL; +if(_FUNC_EXPANDARRAY_LONG_TOTALINDEXES==NULL){ +_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=(int32*)mem_static_malloc(4); +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=0; } -int32 pass4628; -int32 pass4629; -int64 fornext_value4631; -int64 fornext_finalvalue4631; -int64 fornext_step4631; -uint8 fornext_step_negative4631; -int32 *_FUNC_IDEFILEEXISTS_LONG_F=NULL; -if(_FUNC_IDEFILEEXISTS_LONG_F==NULL){ -_FUNC_IDEFILEEXISTS_LONG_F=(int32*)mem_static_malloc(4); -*_FUNC_IDEFILEEXISTS_LONG_F=0; +qbs *_FUNC_EXPANDARRAY_STRING_INDEXES=NULL; +if (!_FUNC_EXPANDARRAY_STRING_INDEXES)_FUNC_EXPANDARRAY_STRING_INDEXES=qbs_new(0,0); +qbs *_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES=NULL; +if (!_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES)_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES=qbs_new(0,0); +int32 *_FUNC_EXPANDARRAY_LONG_I=NULL; +if(_FUNC_EXPANDARRAY_LONG_I==NULL){ +_FUNC_EXPANDARRAY_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_EXPANDARRAY_LONG_I=0; } -int32 *_FUNC_IDEFILEEXISTS_LONG_CX=NULL; -if(_FUNC_IDEFILEEXISTS_LONG_CX==NULL){ -_FUNC_IDEFILEEXISTS_LONG_CX=(int32*)mem_static_malloc(4); -*_FUNC_IDEFILEEXISTS_LONG_CX=0; +int64 fornext_value5139; +int64 fornext_finalvalue5139; +int64 fornext_step5139; +uint8 fornext_step_negative5139; +qbs *_FUNC_EXPANDARRAY_STRING_TEMP=NULL; +if (!_FUNC_EXPANDARRAY_STRING_TEMP)_FUNC_EXPANDARRAY_STRING_TEMP=qbs_new(0,0); +byte_element_struct *byte_element_5140=NULL; +if (!byte_element_5140){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]=0; -_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4]=2147483647; -_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]=0; -_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[6]=0; -_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]=(ptrszint)¬hingstring; +qbs *_FUNC_PARSERANGE_STRING_PARSERANGE=NULL; +if (!_FUNC_PARSERANGE_STRING_PARSERANGE)_FUNC_PARSERANGE_STRING_PARSERANGE=qbs_new(0,0); +qbs*oldstr5143=NULL; +if(_FUNC_PARSERANGE_STRING___TEXT->tmp||_FUNC_PARSERANGE_STRING___TEXT->fixed||_FUNC_PARSERANGE_STRING___TEXT->readonly){ +oldstr5143=_FUNC_PARSERANGE_STRING___TEXT; +if (oldstr5143->cmem_descriptor){ +_FUNC_PARSERANGE_STRING___TEXT=qbs_new_cmem(oldstr5143->len,0); +}else{ +_FUNC_PARSERANGE_STRING___TEXT=qbs_new(oldstr5143->len,0); } -int32 *_FUNC_IDEFIND_LONG_FOCUS=NULL; -if(_FUNC_IDEFIND_LONG_FOCUS==NULL){ -_FUNC_IDEFIND_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEFIND_LONG_FOCUS=0; +memcpy(_FUNC_PARSERANGE_STRING___TEXT->chr,oldstr5143->chr,oldstr5143->len); } -void *_FUNC_IDEFIND_UDT_P=NULL; -if(_FUNC_IDEFIND_UDT_P==NULL){ -_FUNC_IDEFIND_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEFIND_UDT_P,0,20); +int8 *_FUNC_PARSERANGE_BYTE_ZEROINCLUDED=NULL; +if(_FUNC_PARSERANGE_BYTE_ZEROINCLUDED==NULL){ +_FUNC_PARSERANGE_BYTE_ZEROINCLUDED=(int8*)mem_static_malloc(1); +*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED=0; } -ptrszint *_FUNC_IDEFIND_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEFIND_ARRAY_UDT_O){ -_FUNC_IDEFIND_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEFIND_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEFIND_ARRAY_UDT_O[2]=0; -_FUNC_IDEFIND_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEFIND_ARRAY_UDT_O[5]=0; -_FUNC_IDEFIND_ARRAY_UDT_O[6]=0; -_FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +qbs *_FUNC_PARSERANGE_STRING_FILTER=NULL; +if (!_FUNC_PARSERANGE_STRING_FILTER)_FUNC_PARSERANGE_STRING_FILTER=qbs_new(0,0); +int32 *_FUNC_PARSERANGE_LONG_J=NULL; +if(_FUNC_PARSERANGE_LONG_J==NULL){ +_FUNC_PARSERANGE_LONG_J=(int32*)mem_static_malloc(4); +*_FUNC_PARSERANGE_LONG_J=0; } -qbs *_FUNC_IDEFIND_STRING1_SEP=NULL; -if(_FUNC_IDEFIND_STRING1_SEP==NULL){ -_FUNC_IDEFIND_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEFIND_STRING1_SEP->chr,0,1); +qbs *_FUNC_PARSERANGE_STRING_TEMP=NULL; +if (!_FUNC_PARSERANGE_STRING_TEMP)_FUNC_PARSERANGE_STRING_TEMP=qbs_new(0,0); +int32 *_FUNC_PARSERANGE_LONG_READING=NULL; +if(_FUNC_PARSERANGE_LONG_READING==NULL){ +_FUNC_PARSERANGE_LONG_READING=(int32*)mem_static_malloc(4); +*_FUNC_PARSERANGE_LONG_READING=0; } -qbs *_FUNC_IDEFIND_STRING_A=NULL; -if (!_FUNC_IDEFIND_STRING_A)_FUNC_IDEFIND_STRING_A=qbs_new(0,0); -qbs *_FUNC_IDEFIND_STRING_A2=NULL; -if (!_FUNC_IDEFIND_STRING_A2)_FUNC_IDEFIND_STRING_A2=qbs_new(0,0); -int32 *_FUNC_IDEFIND_LONG_SX1=NULL; -if(_FUNC_IDEFIND_LONG_SX1==NULL){ -_FUNC_IDEFIND_LONG_SX1=(int32*)mem_static_malloc(4); -*_FUNC_IDEFIND_LONG_SX1=0; +int64 fornext_value5145; +int64 fornext_finalvalue5145; +int64 fornext_step5145; +uint8 fornext_step_negative5145; +byte_element_struct *byte_element_5146=NULL; +if (!byte_element_5146){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -byte_element_struct *byte_element_4665=NULL; -if (!byte_element_4665){ -if ((mem_static_pointer+=12)chr,0,1); } -byte_element_struct *byte_element_4666=NULL; -if (!byte_element_4666){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]=0; +_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4]=2147483647; +_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]=0; +_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[6]=0; +_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]=(ptrszint)¬hingstring; } -int32 *_FUNC_IDEHBAR_LONG_I=NULL; -if(_FUNC_IDEHBAR_LONG_I==NULL){ -_FUNC_IDEHBAR_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEHBAR_LONG_I=0; +int32 *_FUNC_IDECHANGE_LONG_FOCUS=NULL; +if(_FUNC_IDECHANGE_LONG_FOCUS==NULL){ +_FUNC_IDECHANGE_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDECHANGE_LONG_FOCUS=0; } -int32 *_FUNC_IDEHBAR_LONG_N=NULL; -if(_FUNC_IDEHBAR_LONG_N==NULL){ -_FUNC_IDEHBAR_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_IDEHBAR_LONG_N=0; +void *_FUNC_IDECHANGE_UDT_P=NULL; +if(_FUNC_IDECHANGE_UDT_P==NULL){ +_FUNC_IDECHANGE_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDECHANGE_UDT_P,0,20); } -int32 *_FUNC_IDEHBAR_LONG_X2=NULL; -if(_FUNC_IDEHBAR_LONG_X2==NULL){ -_FUNC_IDEHBAR_LONG_X2=(int32*)mem_static_malloc(4); -*_FUNC_IDEHBAR_LONG_X2=0; +ptrszint *_FUNC_IDECHANGE_ARRAY_UDT_O=NULL; +if (!_FUNC_IDECHANGE_ARRAY_UDT_O){ +_FUNC_IDECHANGE_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDECHANGE_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDECHANGE_ARRAY_UDT_O[2]=0; +_FUNC_IDECHANGE_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDECHANGE_ARRAY_UDT_O[5]=0; +_FUNC_IDECHANGE_ARRAY_UDT_O[6]=0; +_FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -int64 fornext_value4689; -int64 fornext_finalvalue4689; -int64 fornext_step4689; -uint8 fornext_step_negative4689; -float *_FUNC_IDEHBAR_SINGLE_P=NULL; -if(_FUNC_IDEHBAR_SINGLE_P==NULL){ -_FUNC_IDEHBAR_SINGLE_P=(float*)mem_static_malloc(4); -*_FUNC_IDEHBAR_SINGLE_P=0; +qbs *_FUNC_IDECHANGE_STRING1_SEP=NULL; +if(_FUNC_IDECHANGE_STRING1_SEP==NULL){ +_FUNC_IDECHANGE_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDECHANGE_STRING1_SEP->chr,0,1); } +qbs *_FUNC_IDECHANGE_STRING_A=NULL; +if (!_FUNC_IDECHANGE_STRING_A)_FUNC_IDECHANGE_STRING_A=qbs_new(0,0); +qbs *_FUNC_IDECHANGE_STRING_A2=NULL; +if (!_FUNC_IDECHANGE_STRING_A2)_FUNC_IDECHANGE_STRING_A2=qbs_new(0,0); +int32 *_FUNC_IDECHANGE_LONG_SX1=NULL; +if(_FUNC_IDECHANGE_LONG_SX1==NULL){ +_FUNC_IDECHANGE_LONG_SX1=(int32*)mem_static_malloc(4); +*_FUNC_IDECHANGE_LONG_SX1=0; +} +int32 *_FUNC_IDECHANGE_LONG_SX2=NULL; +if(_FUNC_IDECHANGE_LONG_SX2==NULL){ +_FUNC_IDECHANGE_LONG_SX2=(int32*)mem_static_malloc(4); +*_FUNC_IDECHANGE_LONG_SX2=0; +} +int32 *_FUNC_IDECHANGE_LONG_X=NULL; +if(_FUNC_IDECHANGE_LONG_X==NULL){ +_FUNC_IDECHANGE_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_IDECHANGE_LONG_X=0; +} +int64 fornext_value5184; +int64 fornext_finalvalue5184; +int64 fornext_step5184; +uint8 fornext_step_negative5184; +byte_element_struct *byte_element_5185=NULL; +if (!byte_element_5185){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDEHLEN_STRING_A->fixed||_FUNC_IDEHLEN_STRING_A->readonly){ -oldstr4695=_FUNC_IDEHLEN_STRING_A; -if (oldstr4695->cmem_descriptor){ -_FUNC_IDEHLEN_STRING_A=qbs_new_cmem(oldstr4695->len,0); +qbs*oldstr5220=NULL; +if(_SUB_FINDQUOTECOMMENT_STRING_TEXT->tmp||_SUB_FINDQUOTECOMMENT_STRING_TEXT->fixed||_SUB_FINDQUOTECOMMENT_STRING_TEXT->readonly){ +oldstr5220=_SUB_FINDQUOTECOMMENT_STRING_TEXT; +if (oldstr5220->cmem_descriptor){ +_SUB_FINDQUOTECOMMENT_STRING_TEXT=qbs_new_cmem(oldstr5220->len,0); }else{ -_FUNC_IDEHLEN_STRING_A=qbs_new(oldstr4695->len,0); +_SUB_FINDQUOTECOMMENT_STRING_TEXT=qbs_new(oldstr5220->len,0); } -memcpy(_FUNC_IDEHLEN_STRING_A->chr,oldstr4695->chr,oldstr4695->len); +memcpy(_SUB_FINDQUOTECOMMENT_STRING_TEXT->chr,oldstr5220->chr,oldstr5220->len); } -byte_element_struct *byte_element_4696=NULL; -if (!byte_element_4696){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEHPRINT_STRING_A->fixed||_SUB_IDEHPRINT_STRING_A->readonly){ -oldstr4698=_SUB_IDEHPRINT_STRING_A; -if (oldstr4698->cmem_descriptor){ -_SUB_IDEHPRINT_STRING_A=qbs_new_cmem(oldstr4698->len,0); -}else{ -_SUB_IDEHPRINT_STRING_A=qbs_new(oldstr4698->len,0); +qbs *_SUB_IDECHANGED_STRING_PL=NULL; +if (!_SUB_IDECHANGED_STRING_PL)_SUB_IDECHANGED_STRING_PL=qbs_new(0,0); +int32 *_SUB_IDECHANGED_LONG_RESULT=NULL; +if(_SUB_IDECHANGED_LONG_RESULT==NULL){ +_SUB_IDECHANGED_LONG_RESULT=(int32*)mem_static_malloc(4); +*_SUB_IDECHANGED_LONG_RESULT=0; } -memcpy(_SUB_IDEHPRINT_STRING_A->chr,oldstr4698->chr,oldstr4698->len); -} -int32 *_SUB_IDEHPRINT_LONG_I=NULL; -if(_SUB_IDEHPRINT_LONG_I==NULL){ -_SUB_IDEHPRINT_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_IDEHPRINT_LONG_I=0; -} -int64 fornext_value4700; -int64 fornext_finalvalue4700; -int64 fornext_step4700; -uint8 fornext_step_negative4700; -byte_element_struct *byte_element_4701=NULL; -if (!byte_element_4701){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEINSLINE_STRING_TEXT->fixed||_SUB_IDEINSLINE_STRING_TEXT->readonly){ -oldstr4703=_SUB_IDEINSLINE_STRING_TEXT; -if (oldstr4703->cmem_descriptor){ -_SUB_IDEINSLINE_STRING_TEXT=qbs_new_cmem(oldstr4703->len,0); -}else{ -_SUB_IDEINSLINE_STRING_TEXT=qbs_new(oldstr4703->len,0); +qbs *_FUNC_IDECHANGEIT_STRING_IDECHANGEIT=NULL; +if (!_FUNC_IDECHANGEIT_STRING_IDECHANGEIT)_FUNC_IDECHANGEIT_STRING_IDECHANGEIT=qbs_new(0,0); +int32 *_FUNC_IDECHANGEIT_LONG_FOCUS=NULL; +if(_FUNC_IDECHANGEIT_LONG_FOCUS==NULL){ +_FUNC_IDECHANGEIT_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDECHANGEIT_LONG_FOCUS=0; } -memcpy(_SUB_IDEINSLINE_STRING_TEXT->chr,oldstr4703->chr,oldstr4703->len); +void *_FUNC_IDECHANGEIT_UDT_P=NULL; +if(_FUNC_IDECHANGEIT_UDT_P==NULL){ +_FUNC_IDECHANGEIT_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDECHANGEIT_UDT_P,0,20); } -int32 *_SUB_IDEINSLINE_LONG_B=NULL; -if(_SUB_IDEINSLINE_LONG_B==NULL){ -_SUB_IDEINSLINE_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_IDEINSLINE_LONG_B=0; +ptrszint *_FUNC_IDECHANGEIT_ARRAY_UDT_O=NULL; +if (!_FUNC_IDECHANGEIT_ARRAY_UDT_O){ +_FUNC_IDECHANGEIT_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDECHANGEIT_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]=0; +_FUNC_IDECHANGEIT_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]=0; +_FUNC_IDECHANGEIT_ARRAY_UDT_O[6]=0; +_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -int64 fornext_value4705; -int64 fornext_finalvalue4705; -int64 fornext_step4705; -uint8 fornext_step_negative4705; -int32 *_SUB_IDEINSLINE_LONG_Y=NULL; -if(_SUB_IDEINSLINE_LONG_Y==NULL){ -_SUB_IDEINSLINE_LONG_Y=(int32*)mem_static_malloc(4); -*_SUB_IDEINSLINE_LONG_Y=0; +qbs *_FUNC_IDECHANGEIT_STRING1_SEP=NULL; +if(_FUNC_IDECHANGEIT_STRING1_SEP==NULL){ +_FUNC_IDECHANGEIT_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDECHANGEIT_STRING1_SEP->chr,0,1); } -int32 *_SUB_IDEINSLINE_LONG_TEXTLEN=NULL; -if(_SUB_IDEINSLINE_LONG_TEXTLEN==NULL){ -_SUB_IDEINSLINE_LONG_TEXTLEN=(int32*)mem_static_malloc(4); -*_SUB_IDEINSLINE_LONG_TEXTLEN=0; +int32 *_FUNC_IDECHANGEIT_LONG_I=NULL; +if(_FUNC_IDECHANGEIT_LONG_I==NULL){ +_FUNC_IDECHANGEIT_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDECHANGEIT_LONG_I=0; } -byte_element_struct *byte_element_4706=NULL; -if (!byte_element_4706){ -if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATE_STRING_A2->fixed||_FUNC_EVALUATE_STRING_A2->readonly){ +oldstr2553=_FUNC_EVALUATE_STRING_A2; +if (oldstr2553->cmem_descriptor){ +_FUNC_EVALUATE_STRING_A2=qbs_new_cmem(oldstr2553->len,0); +}else{ +_FUNC_EVALUATE_STRING_A2=qbs_new(oldstr2553->len,0); } -int32 *_FUNC_VARIABLESIZE_LONG_BYTES=NULL; -if(_FUNC_VARIABLESIZE_LONG_BYTES==NULL){ -_FUNC_VARIABLESIZE_LONG_BYTES=(int32*)mem_static_malloc(4); -*_FUNC_VARIABLESIZE_LONG_BYTES=0; +memcpy(_FUNC_EVALUATE_STRING_A2->chr,oldstr2553->chr,oldstr2553->len); } -int32 *_FUNC_VARIABLESIZE_LONG_U=NULL; -if(_FUNC_VARIABLESIZE_LONG_U==NULL){ -_FUNC_VARIABLESIZE_LONG_U=(int32*)mem_static_malloc(4); -*_FUNC_VARIABLESIZE_LONG_U=0; +ptrszint *_FUNC_EVALUATE_ARRAY_STRING_BLOCK=NULL; +if (!_FUNC_EVALUATE_ARRAY_STRING_BLOCK){ +_FUNC_EVALUATE_ARRAY_STRING_BLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALUATE_ARRAY_STRING_BLOCK)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]=0; +_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]=2147483647; +_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=0; +_FUNC_EVALUATE_ARRAY_STRING_BLOCK[6]=0; +_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=(ptrszint)¬hingstring; } -qbs *_FUNC_VARIABLESIZE_STRING_N=NULL; -if (!_FUNC_VARIABLESIZE_STRING_N)_FUNC_VARIABLESIZE_STRING_N=qbs_new(0,0); -qbs *_FUNC_VARIABLESIZE_STRING_S=NULL; -if (!_FUNC_VARIABLESIZE_STRING_S)_FUNC_VARIABLESIZE_STRING_S=qbs_new(0,0); -int32 *_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=NULL; -if(_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS==NULL){ -_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=(int32*)mem_static_malloc(4); -*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=0; +ptrszint *_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK=NULL; +if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK){ +_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]=0; +_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]=2147483647; +_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=0; +_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[6]=0; +_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)nothingvalue; } -int32 *_FUNC_VARIABLESIZE_LONG_I2=NULL; -if(_FUNC_VARIABLESIZE_LONG_I2==NULL){ -_FUNC_VARIABLESIZE_LONG_I2=(int32*)mem_static_malloc(4); -*_FUNC_VARIABLESIZE_LONG_I2=0; +ptrszint *_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE=NULL; +if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE){ +_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]=0; +_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]=2147483647; +_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=0; +_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[6]=0; +_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)nothingvalue; } -int64 fornext_value2500; -int64 fornext_finalvalue2500; -int64 fornext_step2500; -uint8 fornext_step_negative2500; -int32 pass2501; +qbs *_FUNC_EVALUATE_STRING_A=NULL; +if (!_FUNC_EVALUATE_STRING_A)_FUNC_EVALUATE_STRING_A=qbs_new(0,0); +int32 *_FUNC_EVALUATE_LONG_BLOCKN=NULL; +if(_FUNC_EVALUATE_LONG_BLOCKN==NULL){ +_FUNC_EVALUATE_LONG_BLOCKN=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATE_LONG_BLOCKN=0; +} +int32 *_FUNC_EVALUATE_LONG_N=NULL; +if(_FUNC_EVALUATE_LONG_N==NULL){ +_FUNC_EVALUATE_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATE_LONG_N=0; +} +int32 *_FUNC_EVALUATE_LONG_B=NULL; +if(_FUNC_EVALUATE_LONG_B==NULL){ +_FUNC_EVALUATE_LONG_B=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATE_LONG_B=0; +} +int32 *_FUNC_EVALUATE_LONG_I=NULL; +if(_FUNC_EVALUATE_LONG_I==NULL){ +_FUNC_EVALUATE_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATE_LONG_I=0; +} +int64 fornext_value2556; +int64 fornext_finalvalue2556; +int64 fornext_step2556; +uint8 fornext_step_negative2556; +qbs *_FUNC_EVALUATE_STRING_L=NULL; +if (!_FUNC_EVALUATE_STRING_L)_FUNC_EVALUATE_STRING_L=qbs_new(0,0); +qbs *_FUNC_EVALUATE_STRING_NEXTL=NULL; +if (!_FUNC_EVALUATE_STRING_NEXTL)_FUNC_EVALUATE_STRING_NEXTL=qbs_new(0,0); +int32 pass2558; +qbs *_FUNC_EVALUATE_STRING_L2=NULL; +if (!_FUNC_EVALUATE_STRING_L2)_FUNC_EVALUATE_STRING_L2=qbs_new(0,0); +int32 *_FUNC_EVALUATE_LONG_TRY_METHOD=NULL; +if(_FUNC_EVALUATE_LONG_TRY_METHOD==NULL){ +_FUNC_EVALUATE_LONG_TRY_METHOD=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATE_LONG_TRY_METHOD=0; +} +int64 fornext_value2561; +int64 fornext_finalvalue2561; +int64 fornext_step2561; +uint8 fornext_step_negative2561; +qbs *_FUNC_EVALUATE_STRING_DTYP=NULL; +if (!_FUNC_EVALUATE_STRING_DTYP)_FUNC_EVALUATE_STRING_DTYP=qbs_new(0,0); +byte_element_struct *byte_element_2562=NULL; +if (!byte_element_2562){ +if ((mem_static_pointer+=12)tmp||_SUB_IDENEWSF_STRING_SF->fixed||_SUB_IDENEWSF_STRING_SF->readonly){ -oldstr4708=_SUB_IDENEWSF_STRING_SF; -if (oldstr4708->cmem_descriptor){ -_SUB_IDENEWSF_STRING_SF=qbs_new_cmem(oldstr4708->len,0); -}else{ -_SUB_IDENEWSF_STRING_SF=qbs_new(oldstr4708->len,0); +int32 *_SUB_IDEDELLINE_LONG_B=NULL; +if(_SUB_IDEDELLINE_LONG_B==NULL){ +_SUB_IDEDELLINE_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_IDEDELLINE_LONG_B=0; } -memcpy(_SUB_IDENEWSF_STRING_SF->chr,oldstr4708->chr,oldstr4708->len); +int64 fornext_value5238; +int64 fornext_finalvalue5238; +int64 fornext_step5238; +uint8 fornext_step_negative5238; +int32 *_SUB_IDEDELLINE_LONG_Y=NULL; +if(_SUB_IDEDELLINE_LONG_Y==NULL){ +_SUB_IDEDELLINE_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_IDEDELLINE_LONG_Y=0; } -int32 *_SUB_IDENEWSF_LONG_FOCUS=NULL; -if(_SUB_IDENEWSF_LONG_FOCUS==NULL){ -_SUB_IDENEWSF_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_SUB_IDENEWSF_LONG_FOCUS=0; +int64 fornext_value5240; +int64 fornext_finalvalue5240; +int64 fornext_step5240; +uint8 fornext_step_negative5240; +int64 fornext_value5242; +int64 fornext_finalvalue5242; +int64 fornext_step5242; +uint8 fornext_step_negative5242; +int32 *_SUB_IDEDELLINE_LONG_TEXTLEN=NULL; +if(_SUB_IDEDELLINE_LONG_TEXTLEN==NULL){ +_SUB_IDEDELLINE_LONG_TEXTLEN=(int32*)mem_static_malloc(4); +*_SUB_IDEDELLINE_LONG_TEXTLEN=0; } -void *_SUB_IDENEWSF_UDT_P=NULL; -if(_SUB_IDENEWSF_UDT_P==NULL){ -_SUB_IDENEWSF_UDT_P=(void*)mem_static_malloc(20); -memset(_SUB_IDENEWSF_UDT_P,0,20); -} -ptrszint *_SUB_IDENEWSF_ARRAY_UDT_O=NULL; -if (!_SUB_IDENEWSF_ARRAY_UDT_O){ -_SUB_IDENEWSF_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_SUB_IDENEWSF_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDENEWSF_ARRAY_UDT_O[2]=0; -_SUB_IDENEWSF_ARRAY_UDT_O[4]=2147483647; -_SUB_IDENEWSF_ARRAY_UDT_O[5]=0; -_SUB_IDENEWSF_ARRAY_UDT_O[6]=0; -_SUB_IDENEWSF_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_SUB_IDENEWSF_STRING1_SEP=NULL; -if(_SUB_IDENEWSF_STRING1_SEP==NULL){ -_SUB_IDENEWSF_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_IDENEWSF_STRING1_SEP->chr,0,1); -} -qbs *_SUB_IDENEWSF_STRING_A=NULL; -if (!_SUB_IDENEWSF_STRING_A)_SUB_IDENEWSF_STRING_A=qbs_new(0,0); -qbs *_SUB_IDENEWSF_STRING_A2=NULL; -if (!_SUB_IDENEWSF_STRING_A2)_SUB_IDENEWSF_STRING_A2=qbs_new(0,0); -int32 *_SUB_IDENEWSF_LONG_SX1=NULL; -if(_SUB_IDENEWSF_LONG_SX1==NULL){ -_SUB_IDENEWSF_LONG_SX1=(int32*)mem_static_malloc(4); -*_SUB_IDENEWSF_LONG_SX1=0; -} -int32 *_SUB_IDENEWSF_LONG_SX2=NULL; -if(_SUB_IDENEWSF_LONG_SX2==NULL){ -_SUB_IDENEWSF_LONG_SX2=(int32*)mem_static_malloc(4); -*_SUB_IDENEWSF_LONG_SX2=0; -} -int32 *_SUB_IDENEWSF_LONG_X=NULL; -if(_SUB_IDENEWSF_LONG_X==NULL){ -_SUB_IDENEWSF_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDENEWSF_LONG_X=0; -} -int64 fornext_value4710; -int64 fornext_finalvalue4710; -int64 fornext_step4710; -uint8 fornext_step_negative4710; -byte_element_struct *byte_element_4711=NULL; -if (!byte_element_4711){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDENEWTXT_STRING_A->fixed||_FUNC_IDENEWTXT_STRING_A->readonly){ -oldstr4726=_FUNC_IDENEWTXT_STRING_A; -if (oldstr4726->cmem_descriptor){ -_FUNC_IDENEWTXT_STRING_A=qbs_new_cmem(oldstr4726->len,0); -}else{ -_FUNC_IDENEWTXT_STRING_A=qbs_new(oldstr4726->len,0); -} -memcpy(_FUNC_IDENEWTXT_STRING_A->chr,oldstr4726->chr,oldstr4726->len); -} diff --git a/internal/source/data152.txt b/internal/source/data152.txt index ed8f582a3..f1cb7f573 100644 --- a/internal/source/data152.txt +++ b/internal/source/data152.txt @@ -1,117 +1,215 @@ -int32 *_SUB_IDENOMATCH_LONG_FOCUS=NULL; -if(_SUB_IDENOMATCH_LONG_FOCUS==NULL){ -_SUB_IDENOMATCH_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_SUB_IDENOMATCH_LONG_FOCUS=0; +qbs *_SUB_IDEDRAWOBJ_STRING1_SEP=NULL; +if(_SUB_IDEDRAWOBJ_STRING1_SEP==NULL){ +_SUB_IDEDRAWOBJ_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_SUB_IDEDRAWOBJ_STRING1_SEP->chr,0,1); } -void *_SUB_IDENOMATCH_UDT_P=NULL; -if(_SUB_IDENOMATCH_UDT_P==NULL){ -_SUB_IDENOMATCH_UDT_P=(void*)mem_static_malloc(20); -memset(_SUB_IDENOMATCH_UDT_P,0,20); +int32 *_SUB_IDEDRAWOBJ_LONG_X=NULL; +if(_SUB_IDEDRAWOBJ_LONG_X==NULL){ +_SUB_IDEDRAWOBJ_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_IDEDRAWOBJ_LONG_X=0; } -ptrszint *_SUB_IDENOMATCH_ARRAY_UDT_O=NULL; -if (!_SUB_IDENOMATCH_ARRAY_UDT_O){ -_SUB_IDENOMATCH_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_SUB_IDENOMATCH_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDENOMATCH_ARRAY_UDT_O[2]=0; -_SUB_IDENOMATCH_ARRAY_UDT_O[4]=2147483647; -_SUB_IDENOMATCH_ARRAY_UDT_O[5]=0; -_SUB_IDENOMATCH_ARRAY_UDT_O[6]=0; -_SUB_IDENOMATCH_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +int32 *_SUB_IDEDRAWOBJ_LONG_Y=NULL; +if(_SUB_IDEDRAWOBJ_LONG_Y==NULL){ +_SUB_IDEDRAWOBJ_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_IDEDRAWOBJ_LONG_Y=0; } -qbs *_SUB_IDENOMATCH_STRING1_SEP=NULL; -if(_SUB_IDENOMATCH_STRING1_SEP==NULL){ -_SUB_IDENOMATCH_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_IDENOMATCH_STRING1_SEP->chr,0,1); +qbs *_SUB_IDEDRAWOBJ_STRING_A=NULL; +if (!_SUB_IDEDRAWOBJ_STRING_A)_SUB_IDEDRAWOBJ_STRING_A=qbs_new(0,0); +int32 *_SUB_IDEDRAWOBJ_LONG_X2=NULL; +if(_SUB_IDEDRAWOBJ_LONG_X2==NULL){ +_SUB_IDEDRAWOBJ_LONG_X2=(int32*)mem_static_malloc(4); +*_SUB_IDEDRAWOBJ_LONG_X2=0; } -int32 *_SUB_IDENOMATCH_LONG_I=NULL; -if(_SUB_IDENOMATCH_LONG_I==NULL){ -_SUB_IDENOMATCH_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_IDENOMATCH_LONG_I=0; +int32 pass5244; +int32 pass5245; +int32 pass5246; +byte_element_struct *byte_element_5247=NULL; +if (!byte_element_5247){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDEOPEN_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEOPEN_ARRAY_UDT_O[2]=0; -_FUNC_IDEOPEN_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEOPEN_ARRAY_UDT_O[5]=0; -_FUNC_IDEOPEN_ARRAY_UDT_O[6]=0; -_FUNC_IDEOPEN_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDEOPEN_STRING1_SEP=NULL; -if(_FUNC_IDEOPEN_STRING1_SEP==NULL){ -_FUNC_IDEOPEN_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEOPEN_STRING1_SEP->chr,0,1); -} -qbs *_FUNC_IDEOPEN_STRING_PATH=NULL; -if (!_FUNC_IDEOPEN_STRING_PATH)_FUNC_IDEOPEN_STRING_PATH=qbs_new(0,0); -qbs *_FUNC_IDEOPEN_STRING_FILELIST=NULL; -if (!_FUNC_IDEOPEN_STRING_FILELIST)_FUNC_IDEOPEN_STRING_FILELIST=qbs_new(0,0); -qbs *_FUNC_IDEOPEN_STRING_PATHLIST=NULL; -if (!_FUNC_IDEOPEN_STRING_PATHLIST)_FUNC_IDEOPEN_STRING_PATHLIST=qbs_new(0,0); -int32 *_FUNC_IDEOPEN_LONG_I=NULL; -if(_FUNC_IDEOPEN_LONG_I==NULL){ -_FUNC_IDEOPEN_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEOPEN_LONG_I=0; -} -int32 pass4739; -int32 pass4740; -int32 *_FUNC_IDEOPEN_LONG_PREVFOCUS=NULL; -if(_FUNC_IDEOPEN_LONG_PREVFOCUS==NULL){ -_FUNC_IDEOPEN_LONG_PREVFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEOPEN_LONG_PREVFOCUS=0; -} -int64 fornext_value4742; -int64 fornext_finalvalue4742; -int64 fornext_step4742; -uint8 fornext_step_negative4742; -byte_element_struct *byte_element_4743=NULL; -if (!byte_element_4743){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEPAR_STRING_TITLE->fixed||_SUB_IDEPAR_STRING_TITLE->readonly){ -oldstr4761=_SUB_IDEPAR_STRING_TITLE; -if (oldstr4761->cmem_descriptor){ -_SUB_IDEPAR_STRING_TITLE=qbs_new_cmem(oldstr4761->len,0); +qbs *_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS=NULL; +if (!_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS)_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS=qbs_new(0,0); +qbs*oldstr5289=NULL; +if(_FUNC_IDEFILEEXISTS_STRING_F->tmp||_FUNC_IDEFILEEXISTS_STRING_F->fixed||_FUNC_IDEFILEEXISTS_STRING_F->readonly){ +oldstr5289=_FUNC_IDEFILEEXISTS_STRING_F; +if (oldstr5289->cmem_descriptor){ +_FUNC_IDEFILEEXISTS_STRING_F=qbs_new_cmem(oldstr5289->len,0); }else{ -_SUB_IDEPAR_STRING_TITLE=qbs_new(oldstr4761->len,0); +_FUNC_IDEFILEEXISTS_STRING_F=qbs_new(oldstr5289->len,0); } -memcpy(_SUB_IDEPAR_STRING_TITLE->chr,oldstr4761->chr,oldstr4761->len); +memcpy(_FUNC_IDEFILEEXISTS_STRING_F->chr,oldstr5289->chr,oldstr5289->len); } -byte_element_struct *byte_element_4762=NULL; -if (!byte_element_4762){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDERESTORE_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDERESTORE_ARRAY_UDT_O[2]=0; -_FUNC_IDERESTORE_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDERESTORE_ARRAY_UDT_O[5]=0; -_FUNC_IDERESTORE_ARRAY_UDT_O[6]=0; -_FUNC_IDERESTORE_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]=0; +_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4]=2147483647; +_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]=0; +_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[6]=0; +_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]=(ptrszint)¬hingstring; } -qbs *_FUNC_IDERESTORE_STRING1_SEP=NULL; -if(_FUNC_IDERESTORE_STRING1_SEP==NULL){ -_FUNC_IDERESTORE_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDERESTORE_STRING1_SEP->chr,0,1); +int32 *_FUNC_IDEFIND_LONG_FOCUS=NULL; +if(_FUNC_IDEFIND_LONG_FOCUS==NULL){ +_FUNC_IDEFIND_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEFIND_LONG_FOCUS=0; } -int32 *_FUNC_IDERESTORE_LONG_I=NULL; -if(_FUNC_IDERESTORE_LONG_I==NULL){ -_FUNC_IDERESTORE_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_I=0; +void *_FUNC_IDEFIND_UDT_P=NULL; +if(_FUNC_IDEFIND_UDT_P==NULL){ +_FUNC_IDEFIND_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDEFIND_UDT_P,0,20); } -int32 pass4763; -int32 pass4764; -int64 fornext_value4766; -int64 fornext_finalvalue4766; -int64 fornext_step4766; -uint8 fornext_step_negative4766; -int32 *_FUNC_IDERESTORE_LONG_F=NULL; -if(_FUNC_IDERESTORE_LONG_F==NULL){ -_FUNC_IDERESTORE_LONG_F=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_F=0; +ptrszint *_FUNC_IDEFIND_ARRAY_UDT_O=NULL; +if (!_FUNC_IDEFIND_ARRAY_UDT_O){ +_FUNC_IDEFIND_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEFIND_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEFIND_ARRAY_UDT_O[2]=0; +_FUNC_IDEFIND_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEFIND_ARRAY_UDT_O[5]=0; +_FUNC_IDEFIND_ARRAY_UDT_O[6]=0; +_FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -int32 *_FUNC_IDERESTORE_LONG_CX=NULL; -if(_FUNC_IDERESTORE_LONG_CX==NULL){ -_FUNC_IDERESTORE_LONG_CX=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_CX=0; +qbs *_FUNC_IDEFIND_STRING1_SEP=NULL; +if(_FUNC_IDEFIND_STRING1_SEP==NULL){ +_FUNC_IDEFIND_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEFIND_STRING1_SEP->chr,0,1); } -int32 *_FUNC_IDERESTORE_LONG_CY=NULL; -if(_FUNC_IDERESTORE_LONG_CY==NULL){ -_FUNC_IDERESTORE_LONG_CY=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_CY=0; +qbs *_FUNC_IDEFIND_STRING_A=NULL; +if (!_FUNC_IDEFIND_STRING_A)_FUNC_IDEFIND_STRING_A=qbs_new(0,0); +qbs *_FUNC_IDEFIND_STRING_A2=NULL; +if (!_FUNC_IDEFIND_STRING_A2)_FUNC_IDEFIND_STRING_A2=qbs_new(0,0); +int32 *_FUNC_IDEFIND_LONG_SX1=NULL; +if(_FUNC_IDEFIND_LONG_SX1==NULL){ +_FUNC_IDEFIND_LONG_SX1=(int32*)mem_static_malloc(4); +*_FUNC_IDEFIND_LONG_SX1=0; } -int64 fornext_value4769; -int64 fornext_finalvalue4769; -int64 fornext_step4769; -uint8 fornext_step_negative4769; -int32 *_FUNC_IDERESTORE_LONG_LASTFOCUS=NULL; -if(_FUNC_IDERESTORE_LONG_LASTFOCUS==NULL){ -_FUNC_IDERESTORE_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_LASTFOCUS=0; +int32 *_FUNC_IDEFIND_LONG_SX2=NULL; +if(_FUNC_IDEFIND_LONG_SX2==NULL){ +_FUNC_IDEFIND_LONG_SX2=(int32*)mem_static_malloc(4); +*_FUNC_IDEFIND_LONG_SX2=0; } -int32 *_FUNC_IDERESTORE_LONG_CHANGE=NULL; -if(_FUNC_IDERESTORE_LONG_CHANGE==NULL){ -_FUNC_IDERESTORE_LONG_CHANGE=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_CHANGE=0; +int32 *_FUNC_IDEFIND_LONG_X=NULL; +if(_FUNC_IDEFIND_LONG_X==NULL){ +_FUNC_IDEFIND_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_IDEFIND_LONG_X=0; } -int32 *_FUNC_IDERESTORE_LONG_MOUSEDOWN=NULL; -if(_FUNC_IDERESTORE_LONG_MOUSEDOWN==NULL){ -_FUNC_IDERESTORE_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); -*_FUNC_IDERESTORE_LONG_MOUSEDOWN=0; +int64 fornext_value5295; +int64 fornext_finalvalue5295; +int64 fornext_step5295; +uint8 fornext_step_negative5295; +byte_element_struct *byte_element_5296=NULL; +if (!byte_element_5296){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY->fixed||_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY->readonly){ -oldstr4775=_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY; -if (oldstr4775->cmem_descriptor){ -_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY=qbs_new_cmem(oldstr4775->len,0); -}else{ -_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY=qbs_new(oldstr4775->len,0); +int8 *_SUB_IDEFINDAGAIN_BYTE_COMMENT=NULL; +if(_SUB_IDEFINDAGAIN_BYTE_COMMENT==NULL){ +_SUB_IDEFINDAGAIN_BYTE_COMMENT=(int8*)mem_static_malloc(1); +*_SUB_IDEFINDAGAIN_BYTE_COMMENT=0; } -memcpy(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY->chr,oldstr4775->chr,oldstr4775->len); +int8 *_SUB_IDEFINDAGAIN_BYTE_QUOTE=NULL; +if(_SUB_IDEFINDAGAIN_BYTE_QUOTE==NULL){ +_SUB_IDEFINDAGAIN_BYTE_QUOTE=(int8*)mem_static_malloc(1); +*_SUB_IDEFINDAGAIN_BYTE_QUOTE=0; } -int32 *_FUNC_IDECLEARHISTORY_LONG_FOCUS=NULL; -if(_FUNC_IDECLEARHISTORY_LONG_FOCUS==NULL){ -_FUNC_IDECLEARHISTORY_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDECLEARHISTORY_LONG_FOCUS=0; +qbs *_SUB_IDEFINDAGAIN_STRING_S=NULL; +if (!_SUB_IDEFINDAGAIN_STRING_S)_SUB_IDEFINDAGAIN_STRING_S=qbs_new(0,0); +int32 *_SUB_IDEFINDAGAIN_LONG_START=NULL; +if(_SUB_IDEFINDAGAIN_LONG_START==NULL){ +_SUB_IDEFINDAGAIN_LONG_START=(int32*)mem_static_malloc(4); +*_SUB_IDEFINDAGAIN_LONG_START=0; } -void *_FUNC_IDECLEARHISTORY_UDT_P=NULL; -if(_FUNC_IDECLEARHISTORY_UDT_P==NULL){ -_FUNC_IDECLEARHISTORY_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDECLEARHISTORY_UDT_P,0,20); +int32 *_SUB_IDEFINDAGAIN_LONG_Y=NULL; +if(_SUB_IDEFINDAGAIN_LONG_Y==NULL){ +_SUB_IDEFINDAGAIN_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_IDEFINDAGAIN_LONG_Y=0; } -ptrszint *_FUNC_IDECLEARHISTORY_ARRAY_UDT_O=NULL; -if (!_FUNC_IDECLEARHISTORY_ARRAY_UDT_O){ -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]=0; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]=0; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[6]=0; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +qbs *_SUB_IDEFINDAGAIN_STRING_L=NULL; +if (!_SUB_IDEFINDAGAIN_STRING_L)_SUB_IDEFINDAGAIN_STRING_L=qbs_new(0,0); +int32 *_SUB_IDEFINDAGAIN_LONG_LOOPED=NULL; +if(_SUB_IDEFINDAGAIN_LONG_LOOPED==NULL){ +_SUB_IDEFINDAGAIN_LONG_LOOPED=(int32*)mem_static_malloc(4); +*_SUB_IDEFINDAGAIN_LONG_LOOPED=0; } -qbs *_FUNC_IDECLEARHISTORY_STRING1_SEP=NULL; -if(_FUNC_IDECLEARHISTORY_STRING1_SEP==NULL){ -_FUNC_IDECLEARHISTORY_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDECLEARHISTORY_STRING1_SEP->chr,0,1); +byte_element_struct *byte_element_5319=NULL; +if (!byte_element_5319){ +if ((mem_static_pointer+=12)tmp||_SUB_IDESAVE_STRING_F->fixed||_SUB_IDESAVE_STRING_F->readonly){ -oldstr4791=_SUB_IDESAVE_STRING_F; -if (oldstr4791->cmem_descriptor){ -_SUB_IDESAVE_STRING_F=qbs_new_cmem(oldstr4791->len,0); -}else{ -_SUB_IDESAVE_STRING_F=qbs_new(oldstr4791->len,0); -} -memcpy(_SUB_IDESAVE_STRING_F->chr,oldstr4791->chr,oldstr4791->len); -} -int32 *_SUB_IDESAVE_LONG_I=NULL; -if(_SUB_IDESAVE_LONG_I==NULL){ -_SUB_IDESAVE_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_IDESAVE_LONG_I=0; -} -int64 fornext_value4793; -int64 fornext_finalvalue4793; -int64 fornext_step4793; -uint8 fornext_step_negative4793; -qbs *_SUB_IDESAVE_STRING_A=NULL; -if (!_SUB_IDESAVE_STRING_A)_SUB_IDESAVE_STRING_A=qbs_new(0,0); +qbs *_FUNC_IDEGETLINE_STRING_IDEGETLINE=NULL; +if (!_FUNC_IDEGETLINE_STRING_IDEGETLINE)_FUNC_IDEGETLINE_STRING_IDEGETLINE=qbs_new(0,0); diff --git a/internal/source/data158.txt b/internal/source/data158.txt index a2d2dd5de..e69de29bb 100644 --- a/internal/source/data158.txt +++ b/internal/source/data158.txt @@ -1,159 +0,0 @@ -qbs *_FUNC_IDESAVEAS_STRING_IDESAVEAS=NULL; -if (!_FUNC_IDESAVEAS_STRING_IDESAVEAS)_FUNC_IDESAVEAS_STRING_IDESAVEAS=qbs_new(0,0); -qbs*oldstr4795=NULL; -if(_FUNC_IDESAVEAS_STRING_PROGRAMNAME->tmp||_FUNC_IDESAVEAS_STRING_PROGRAMNAME->fixed||_FUNC_IDESAVEAS_STRING_PROGRAMNAME->readonly){ -oldstr4795=_FUNC_IDESAVEAS_STRING_PROGRAMNAME; -if (oldstr4795->cmem_descriptor){ -_FUNC_IDESAVEAS_STRING_PROGRAMNAME=qbs_new_cmem(oldstr4795->len,0); -}else{ -_FUNC_IDESAVEAS_STRING_PROGRAMNAME=qbs_new(oldstr4795->len,0); -} -memcpy(_FUNC_IDESAVEAS_STRING_PROGRAMNAME->chr,oldstr4795->chr,oldstr4795->len); -} -int32 *_FUNC_IDESAVEAS_LONG_FOCUS=NULL; -if(_FUNC_IDESAVEAS_LONG_FOCUS==NULL){ -_FUNC_IDESAVEAS_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVEAS_LONG_FOCUS=0; -} -void *_FUNC_IDESAVEAS_UDT_P=NULL; -if(_FUNC_IDESAVEAS_UDT_P==NULL){ -_FUNC_IDESAVEAS_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDESAVEAS_UDT_P,0,20); -} -ptrszint *_FUNC_IDESAVEAS_ARRAY_UDT_O=NULL; -if (!_FUNC_IDESAVEAS_ARRAY_UDT_O){ -_FUNC_IDESAVEAS_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDESAVEAS_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDESAVEAS_ARRAY_UDT_O[2]=0; -_FUNC_IDESAVEAS_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDESAVEAS_ARRAY_UDT_O[5]=0; -_FUNC_IDESAVEAS_ARRAY_UDT_O[6]=0; -_FUNC_IDESAVEAS_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDESAVEAS_STRING1_SEP=NULL; -if(_FUNC_IDESAVEAS_STRING1_SEP==NULL){ -_FUNC_IDESAVEAS_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDESAVEAS_STRING1_SEP->chr,0,1); -} -qbs *_FUNC_IDESAVEAS_STRING_PATH=NULL; -if (!_FUNC_IDESAVEAS_STRING_PATH)_FUNC_IDESAVEAS_STRING_PATH=qbs_new(0,0); -qbs *_FUNC_IDESAVEAS_STRING_PATHLIST=NULL; -if (!_FUNC_IDESAVEAS_STRING_PATHLIST)_FUNC_IDESAVEAS_STRING_PATHLIST=qbs_new(0,0); -int32 *_FUNC_IDESAVEAS_LONG_I=NULL; -if(_FUNC_IDESAVEAS_LONG_I==NULL){ -_FUNC_IDESAVEAS_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVEAS_LONG_I=0; -} -int32 pass4796; -int32 pass4797; -int32 *_FUNC_IDESAVEAS_LONG_PREVFOCUS=NULL; -if(_FUNC_IDESAVEAS_LONG_PREVFOCUS==NULL){ -_FUNC_IDESAVEAS_LONG_PREVFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVEAS_LONG_PREVFOCUS=0; -} -byte_element_struct *byte_element_4798=NULL; -if (!byte_element_4798){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDESAVENOW_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDESAVENOW_ARRAY_UDT_O[2]=0; -_FUNC_IDESAVENOW_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDESAVENOW_ARRAY_UDT_O[5]=0; -_FUNC_IDESAVENOW_ARRAY_UDT_O[6]=0; -_FUNC_IDESAVENOW_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDESAVENOW_STRING1_SEP=NULL; -if(_FUNC_IDESAVENOW_STRING1_SEP==NULL){ -_FUNC_IDESAVENOW_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDESAVENOW_STRING1_SEP->chr,0,1); -} -int32 *_FUNC_IDESAVENOW_LONG_I=NULL; -if(_FUNC_IDESAVENOW_LONG_I==NULL){ -_FUNC_IDESAVENOW_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_I=0; -} -int32 pass4812; -int32 pass4813; -int64 fornext_value4815; -int64 fornext_finalvalue4815; -int64 fornext_step4815; -uint8 fornext_step_negative4815; -int32 *_FUNC_IDESAVENOW_LONG_F=NULL; -if(_FUNC_IDESAVENOW_LONG_F==NULL){ -_FUNC_IDESAVENOW_LONG_F=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_F=0; -} -int32 *_FUNC_IDESAVENOW_LONG_CX=NULL; -if(_FUNC_IDESAVENOW_LONG_CX==NULL){ -_FUNC_IDESAVENOW_LONG_CX=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_CX=0; -} -int32 *_FUNC_IDESAVENOW_LONG_CY=NULL; -if(_FUNC_IDESAVENOW_LONG_CY==NULL){ -_FUNC_IDESAVENOW_LONG_CY=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_CY=0; -} -int64 fornext_value4818; -int64 fornext_finalvalue4818; -int64 fornext_step4818; -uint8 fornext_step_negative4818; -int32 *_FUNC_IDESAVENOW_LONG_LASTFOCUS=NULL; -if(_FUNC_IDESAVENOW_LONG_LASTFOCUS==NULL){ -_FUNC_IDESAVENOW_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_LASTFOCUS=0; -} -int32 *_FUNC_IDESAVENOW_LONG_CHANGE=NULL; -if(_FUNC_IDESAVENOW_LONG_CHANGE==NULL){ -_FUNC_IDESAVENOW_LONG_CHANGE=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_CHANGE=0; -} -int32 *_FUNC_IDESAVENOW_LONG_MOUSEDOWN=NULL; -if(_FUNC_IDESAVENOW_LONG_MOUSEDOWN==NULL){ -_FUNC_IDESAVENOW_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_MOUSEDOWN=0; -} -int32 *_FUNC_IDESAVENOW_LONG_MOUSEUP=NULL; -if(_FUNC_IDESAVENOW_LONG_MOUSEUP==NULL){ -_FUNC_IDESAVENOW_LONG_MOUSEUP=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_MOUSEUP=0; -} -int32 *_FUNC_IDESAVENOW_LONG_ALT=NULL; -if(_FUNC_IDESAVENOW_LONG_ALT==NULL){ -_FUNC_IDESAVENOW_LONG_ALT=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_ALT=0; -} -int32 *_FUNC_IDESAVENOW_LONG_OLDALT=NULL; -if(_FUNC_IDESAVENOW_LONG_OLDALT==NULL){ -_FUNC_IDESAVENOW_LONG_OLDALT=(int32*)mem_static_malloc(4); -*_FUNC_IDESAVENOW_LONG_OLDALT=0; -} -qbs *_FUNC_IDESAVENOW_STRING_ALTLETTER=NULL; -if (!_FUNC_IDESAVENOW_STRING_ALTLETTER)_FUNC_IDESAVENOW_STRING_ALTLETTER=qbs_new(0,0); -byte_element_struct *byte_element_4821=NULL; -if (!byte_element_4821){ -if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATETOTYP_STRING_A2->fixed||_FUNC_EVALUATETOTYP_STRING_A2->readonly){ -oldstr2502=_FUNC_EVALUATETOTYP_STRING_A2; -if (oldstr2502->cmem_descriptor){ -_FUNC_EVALUATETOTYP_STRING_A2=qbs_new_cmem(oldstr2502->len,0); +qbs *_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC=NULL; +if (!_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC)_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC=qbs_new(0,0); +qbs*oldstr2619=NULL; +if(_FUNC_EVALUATEFUNC_STRING_A2->tmp||_FUNC_EVALUATEFUNC_STRING_A2->fixed||_FUNC_EVALUATEFUNC_STRING_A2->readonly){ +oldstr2619=_FUNC_EVALUATEFUNC_STRING_A2; +if (oldstr2619->cmem_descriptor){ +_FUNC_EVALUATEFUNC_STRING_A2=qbs_new_cmem(oldstr2619->len,0); }else{ -_FUNC_EVALUATETOTYP_STRING_A2=qbs_new(oldstr2502->len,0); +_FUNC_EVALUATEFUNC_STRING_A2=qbs_new(oldstr2619->len,0); } -memcpy(_FUNC_EVALUATETOTYP_STRING_A2->chr,oldstr2502->chr,oldstr2502->len); +memcpy(_FUNC_EVALUATEFUNC_STRING_A2->chr,oldstr2619->chr,oldstr2619->len); } -qbs *_FUNC_EVALUATETOTYP_STRING_A=NULL; -if (!_FUNC_EVALUATETOTYP_STRING_A)_FUNC_EVALUATETOTYP_STRING_A=qbs_new(0,0); -qbs *_FUNC_EVALUATETOTYP_STRING_E=NULL; -if (!_FUNC_EVALUATETOTYP_STRING_E)_FUNC_EVALUATETOTYP_STRING_E=qbs_new(0,0); -int32 *_FUNC_EVALUATETOTYP_LONG_SOURCETYP=NULL; -if(_FUNC_EVALUATETOTYP_LONG_SOURCETYP==NULL){ -_FUNC_EVALUATETOTYP_LONG_SOURCETYP=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATETOTYP_LONG_SOURCETYP=0; +qbs *_FUNC_EVALUATEFUNC_STRING_A=NULL; +if (!_FUNC_EVALUATEFUNC_STRING_A)_FUNC_EVALUATEFUNC_STRING_A=qbs_new(0,0); +void *_FUNC_EVALUATEFUNC_UDT_ID2=NULL; +if(_FUNC_EVALUATEFUNC_UDT_ID2==NULL){ +_FUNC_EVALUATEFUNC_UDT_ID2=(void*)mem_static_malloc(2869); +memset(_FUNC_EVALUATEFUNC_UDT_ID2,0,2869); +*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+ 2861) = qbs_new(0,0); } -int32 *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=NULL; -if(_FUNC_EVALUATETOTYP_LONG_IDNUMBER==NULL){ -_FUNC_EVALUATETOTYP_LONG_IDNUMBER=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=0; +qbs *_FUNC_EVALUATEFUNC_STRING_N=NULL; +if (!_FUNC_EVALUATEFUNC_STRING_N)_FUNC_EVALUATEFUNC_STRING_N=qbs_new(0,0); +int32 *_FUNC_EVALUATEFUNC_LONG_TARGETID=NULL; +if(_FUNC_EVALUATEFUNC_LONG_TARGETID==NULL){ +_FUNC_EVALUATEFUNC_LONG_TARGETID=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATEFUNC_LONG_TARGETID=0; } -int32 *_FUNC_EVALUATETOTYP_LONG_I=NULL; -if(_FUNC_EVALUATETOTYP_LONG_I==NULL){ -_FUNC_EVALUATETOTYP_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATETOTYP_LONG_I=0; +int32 pass2622; +int32 *_FUNC_EVALUATEFUNC_LONG_PASSOMIT=NULL; +if(_FUNC_EVALUATEFUNC_LONG_PASSOMIT==NULL){ +_FUNC_EVALUATEFUNC_LONG_PASSOMIT=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATEFUNC_LONG_PASSOMIT=0; } -byte_element_struct *byte_element_2503=NULL; -if (!byte_element_2503){ -if ((mem_static_pointer+=12)tmp||_SUB_IDESETLINE_STRING_TEXT->fixed||_SUB_IDESETLINE_STRING_TEXT->readonly){ -oldstr4824=_SUB_IDESETLINE_STRING_TEXT; -if (oldstr4824->cmem_descriptor){ -_SUB_IDESETLINE_STRING_TEXT=qbs_new_cmem(oldstr4824->len,0); -}else{ -_SUB_IDESETLINE_STRING_TEXT=qbs_new(oldstr4824->len,0); +int32 *_FUNC_IDEHBAR_LONG_IDEHBAR=NULL; +if(_FUNC_IDEHBAR_LONG_IDEHBAR==NULL){ +_FUNC_IDEHBAR_LONG_IDEHBAR=(int32*)mem_static_malloc(4); +*_FUNC_IDEHBAR_LONG_IDEHBAR=0; } -memcpy(_SUB_IDESETLINE_STRING_TEXT->chr,oldstr4824->chr,oldstr4824->len); +int32 *_FUNC_IDEHBAR_LONG_I=NULL; +if(_FUNC_IDEHBAR_LONG_I==NULL){ +_FUNC_IDEHBAR_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEHBAR_LONG_I=0; } -int32 *_SUB_IDESETLINE_LONG_TEXTLEN=NULL; -if(_SUB_IDESETLINE_LONG_TEXTLEN==NULL){ -_SUB_IDESETLINE_LONG_TEXTLEN=(int32*)mem_static_malloc(4); -*_SUB_IDESETLINE_LONG_TEXTLEN=0; +int32 *_FUNC_IDEHBAR_LONG_N=NULL; +if(_FUNC_IDEHBAR_LONG_N==NULL){ +_FUNC_IDEHBAR_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_IDEHBAR_LONG_N=0; } -byte_element_struct *byte_element_4825=NULL; -if (!byte_element_4825){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEHLEN_STRING_A->fixed||_FUNC_IDEHLEN_STRING_A->readonly){ +oldstr5343=_FUNC_IDEHLEN_STRING_A; +if (oldstr5343->cmem_descriptor){ +_FUNC_IDEHLEN_STRING_A=qbs_new_cmem(oldstr5343->len,0); +}else{ +_FUNC_IDEHLEN_STRING_A=qbs_new(oldstr5343->len,0); } -byte_element_struct *byte_element_4829=NULL; -if (!byte_element_4829){ -if ((mem_static_pointer+=12)chr,oldstr5343->chr,oldstr5343->len); } -int32 *_SUB_IDESHOWTEXT_LONG_X=NULL; -if(_SUB_IDESHOWTEXT_LONG_X==NULL){ -_SUB_IDESHOWTEXT_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDESHOWTEXT_LONG_X=0; +byte_element_struct *byte_element_5344=NULL; +if (!byte_element_5344){ +if ((mem_static_pointer+=12)tmp||_SUB_IDEHPRINT_STRING_A->fixed||_SUB_IDEHPRINT_STRING_A->readonly){ +oldstr5346=_SUB_IDEHPRINT_STRING_A; +if (oldstr5346->cmem_descriptor){ +_SUB_IDEHPRINT_STRING_A=qbs_new_cmem(oldstr5346->len,0); +}else{ +_SUB_IDEHPRINT_STRING_A=qbs_new(oldstr5346->len,0); } -void *_FUNC_IDESUBS_UDT_P=NULL; -if(_FUNC_IDESUBS_UDT_P==NULL){ -_FUNC_IDESUBS_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDESUBS_UDT_P,0,20); +memcpy(_SUB_IDEHPRINT_STRING_A->chr,oldstr5346->chr,oldstr5346->len); } -ptrszint *_FUNC_IDESUBS_ARRAY_UDT_O=NULL; -if (!_FUNC_IDESUBS_ARRAY_UDT_O){ -_FUNC_IDESUBS_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDESUBS_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDESUBS_ARRAY_UDT_O[2]=0; -_FUNC_IDESUBS_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDESUBS_ARRAY_UDT_O[5]=0; -_FUNC_IDESUBS_ARRAY_UDT_O[6]=0; -_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +int32 *_SUB_IDEHPRINT_LONG_I=NULL; +if(_SUB_IDEHPRINT_LONG_I==NULL){ +_SUB_IDEHPRINT_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_IDEHPRINT_LONG_I=0; } -qbs *_FUNC_IDESUBS_STRING1_SEP=NULL; -if(_FUNC_IDESUBS_STRING1_SEP==NULL){ -_FUNC_IDESUBS_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDESUBS_STRING1_SEP->chr,0,1); +int64 fornext_value5348; +int64 fornext_finalvalue5348; +int64 fornext_step5348; +uint8 fornext_step_negative5348; +byte_element_struct *byte_element_5349=NULL; +if (!byte_element_5349){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]=0; -_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=2147483647; -_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=0; -_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=0; -_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)nothingvalue; -} -ptrszint *_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST=NULL; -if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST){ -_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]=0; -_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=2147483647; -_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=0; -_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=0; -_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)nothingvalue; -} -int64 fornext_value4969; -int64 fornext_finalvalue4969; -int64 fornext_step4969; -uint8 fornext_step_negative4969; -byte_element_struct *byte_element_4970=NULL; -if (!byte_element_4970){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEINSLINE_STRING_TEXT->fixed||_SUB_IDEINSLINE_STRING_TEXT->readonly){ +oldstr5351=_SUB_IDEINSLINE_STRING_TEXT; +if (oldstr5351->cmem_descriptor){ +_SUB_IDEINSLINE_STRING_TEXT=qbs_new_cmem(oldstr5351->len,0); +}else{ +_SUB_IDEINSLINE_STRING_TEXT=qbs_new(oldstr5351->len,0); } -int32 *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=NULL; -if(_FUNC_IDELANGUAGEBOX_LONG_FOCUS==NULL){ -_FUNC_IDELANGUAGEBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=0; +memcpy(_SUB_IDEINSLINE_STRING_TEXT->chr,oldstr5351->chr,oldstr5351->len); } -void *_FUNC_IDELANGUAGEBOX_UDT_P=NULL; -if(_FUNC_IDELANGUAGEBOX_UDT_P==NULL){ -_FUNC_IDELANGUAGEBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDELANGUAGEBOX_UDT_P,0,20); +int32 *_SUB_IDEINSLINE_LONG_B=NULL; +if(_SUB_IDEINSLINE_LONG_B==NULL){ +_SUB_IDEINSLINE_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_IDEINSLINE_LONG_B=0; } -ptrszint *_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O){ -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +int64 fornext_value5353; +int64 fornext_finalvalue5353; +int64 fornext_step5353; +uint8 fornext_step_negative5353; +int32 *_SUB_IDEINSLINE_LONG_Y=NULL; +if(_SUB_IDEINSLINE_LONG_Y==NULL){ +_SUB_IDEINSLINE_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_IDEINSLINE_LONG_Y=0; } -qbs *_FUNC_IDELANGUAGEBOX_STRING1_SEP=NULL; -if(_FUNC_IDELANGUAGEBOX_STRING1_SEP==NULL){ -_FUNC_IDELANGUAGEBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDELANGUAGEBOX_STRING1_SEP->chr,0,1); +int64 fornext_value5355; +int64 fornext_finalvalue5355; +int64 fornext_step5355; +uint8 fornext_step_negative5355; +int64 fornext_value5357; +int64 fornext_finalvalue5357; +int64 fornext_step5357; +uint8 fornext_step_negative5357; +int32 *_SUB_IDEINSLINE_LONG_TEXTLEN=NULL; +if(_SUB_IDEINSLINE_LONG_TEXTLEN==NULL){ +_SUB_IDEINSLINE_LONG_TEXTLEN=(int32*)mem_static_malloc(4); +*_SUB_IDEINSLINE_LONG_TEXTLEN=0; } -qbs *_FUNC_IDELANGUAGEBOX_STRING_L=NULL; -if (!_FUNC_IDELANGUAGEBOX_STRING_L)_FUNC_IDELANGUAGEBOX_STRING_L=qbs_new(0,0); -int32 *_FUNC_IDELANGUAGEBOX_LONG_X=NULL; -if(_FUNC_IDELANGUAGEBOX_LONG_X==NULL){ -_FUNC_IDELANGUAGEBOX_LONG_X=(int32*)mem_static_malloc(4); -*_FUNC_IDELANGUAGEBOX_LONG_X=0; +byte_element_struct *byte_element_5358=NULL; +if (!byte_element_5358){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDEINPUTBOX_STRING_TITLE->fixed||_FUNC_IDEINPUTBOX_STRING_TITLE->readonly){ +oldstr5360=_FUNC_IDEINPUTBOX_STRING_TITLE; +if (oldstr5360->cmem_descriptor){ +_FUNC_IDEINPUTBOX_STRING_TITLE=qbs_new_cmem(oldstr5360->len,0); +}else{ +_FUNC_IDEINPUTBOX_STRING_TITLE=qbs_new(oldstr5360->len,0); } -int32 *_FUNC_IDEWARNINGBOX_LONG_FOCUS=NULL; -if(_FUNC_IDEWARNINGBOX_LONG_FOCUS==NULL){ -_FUNC_IDEWARNINGBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEWARNINGBOX_LONG_FOCUS=0; +memcpy(_FUNC_IDEINPUTBOX_STRING_TITLE->chr,oldstr5360->chr,oldstr5360->len); } -void *_FUNC_IDEWARNINGBOX_UDT_P=NULL; -if(_FUNC_IDEWARNINGBOX_UDT_P==NULL){ -_FUNC_IDEWARNINGBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEWARNINGBOX_UDT_P,0,20); +qbs*oldstr5361=NULL; +if(_FUNC_IDEINPUTBOX_STRING_CAPTION->tmp||_FUNC_IDEINPUTBOX_STRING_CAPTION->fixed||_FUNC_IDEINPUTBOX_STRING_CAPTION->readonly){ +oldstr5361=_FUNC_IDEINPUTBOX_STRING_CAPTION; +if (oldstr5361->cmem_descriptor){ +_FUNC_IDEINPUTBOX_STRING_CAPTION=qbs_new_cmem(oldstr5361->len,0); +}else{ +_FUNC_IDEINPUTBOX_STRING_CAPTION=qbs_new(oldstr5361->len,0); } -ptrszint *_FUNC_IDEWARNINGBOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEWARNINGBOX_ARRAY_UDT_O){ -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +memcpy(_FUNC_IDEINPUTBOX_STRING_CAPTION->chr,oldstr5361->chr,oldstr5361->len); +} +qbs*oldstr5362=NULL; +if(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->tmp||_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->fixed||_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->readonly){ +oldstr5362=_FUNC_IDEINPUTBOX_STRING_INITIALVALUE; +if (oldstr5362->cmem_descriptor){ +_FUNC_IDEINPUTBOX_STRING_INITIALVALUE=qbs_new_cmem(oldstr5362->len,0); +}else{ +_FUNC_IDEINPUTBOX_STRING_INITIALVALUE=qbs_new(oldstr5362->len,0); +} +memcpy(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->chr,oldstr5362->chr,oldstr5362->len); +} +qbs*oldstr5363=NULL; +if(_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->tmp||_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->fixed||_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->readonly){ +oldstr5363=_FUNC_IDEINPUTBOX_STRING_VALIDINPUT; +if (oldstr5363->cmem_descriptor){ +_FUNC_IDEINPUTBOX_STRING_VALIDINPUT=qbs_new_cmem(oldstr5363->len,0); +}else{ +_FUNC_IDEINPUTBOX_STRING_VALIDINPUT=qbs_new(oldstr5363->len,0); +} +memcpy(_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->chr,oldstr5363->chr,oldstr5363->len); +} +int32 *_FUNC_IDEINPUTBOX_LONG_FOCUS=NULL; +if(_FUNC_IDEINPUTBOX_LONG_FOCUS==NULL){ +_FUNC_IDEINPUTBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEINPUTBOX_LONG_FOCUS=0; +} +void *_FUNC_IDEINPUTBOX_UDT_P=NULL; +if(_FUNC_IDEINPUTBOX_UDT_P==NULL){ +_FUNC_IDEINPUTBOX_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDEINPUTBOX_UDT_P,0,20); +} +ptrszint *_FUNC_IDEINPUTBOX_ARRAY_UDT_O=NULL; +if (!_FUNC_IDEINPUTBOX_ARRAY_UDT_O){ +_FUNC_IDEINPUTBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -qbs *_FUNC_IDEWARNINGBOX_STRING1_SEP=NULL; -if(_FUNC_IDEWARNINGBOX_STRING1_SEP==NULL){ -_FUNC_IDEWARNINGBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEWARNINGBOX_STRING1_SEP->chr,0,1); +qbs *_FUNC_IDEINPUTBOX_STRING1_SEP=NULL; +if(_FUNC_IDEINPUTBOX_STRING1_SEP==NULL){ +_FUNC_IDEINPUTBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEINPUTBOX_STRING1_SEP->chr,0,1); } -ptrszint *_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES=NULL; -if (!_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES){ -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]=0; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4]=2147483647; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]=0; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[6]=0; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]=(ptrszint)nothingvalue; +int32 *_FUNC_IDEINPUTBOX_LONG_I=NULL; +if(_FUNC_IDEINPUTBOX_LONG_I==NULL){ +_FUNC_IDEINPUTBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEINPUTBOX_LONG_I=0; } -int32 *_FUNC_IDEWARNINGBOX_LONG_X=NULL; -if(_FUNC_IDEWARNINGBOX_LONG_X==NULL){ -_FUNC_IDEWARNINGBOX_LONG_X=(int32*)mem_static_malloc(4); -*_FUNC_IDEWARNINGBOX_LONG_X=0; +int32 pass5364; +int32 *_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=NULL; +if(_FUNC_IDEINPUTBOX_LONG_PREVFOCUS==NULL){ +_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=0; } -int64 fornext_value5021; -int64 fornext_finalvalue5021; -int64 fornext_step5021; -uint8 fornext_step_negative5021; -qbs *_FUNC_IDEWARNINGBOX_STRING_L=NULL; -if (!_FUNC_IDEWARNINGBOX_STRING_L)_FUNC_IDEWARNINGBOX_STRING_L=qbs_new(0,0); -int32 *_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION=NULL; -if(_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION==NULL){ -_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION=(int32*)mem_static_malloc(4); -*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION=0; +byte_element_struct *byte_element_5365=NULL; +if (!byte_element_5365){ +if ((mem_static_pointer+=12)tmp||_SUB_IDEOBJUPDATE_STRING_KK->fixed||_SUB_IDEOBJUPDATE_STRING_KK->readonly){ -oldstr5034=_SUB_IDEOBJUPDATE_STRING_KK; -if (oldstr5034->cmem_descriptor){ -_SUB_IDEOBJUPDATE_STRING_KK=qbs_new_cmem(oldstr5034->len,0); +qbs*oldstr5381=NULL; +if(_SUB_IDENEWSF_STRING_SF->tmp||_SUB_IDENEWSF_STRING_SF->fixed||_SUB_IDENEWSF_STRING_SF->readonly){ +oldstr5381=_SUB_IDENEWSF_STRING_SF; +if (oldstr5381->cmem_descriptor){ +_SUB_IDENEWSF_STRING_SF=qbs_new_cmem(oldstr5381->len,0); }else{ -_SUB_IDEOBJUPDATE_STRING_KK=qbs_new(oldstr5034->len,0); -} -memcpy(_SUB_IDEOBJUPDATE_STRING_KK->chr,oldstr5034->chr,oldstr5034->len); -} -qbs*oldstr5035=NULL; -if(_SUB_IDEOBJUPDATE_STRING_ALTLETTER->tmp||_SUB_IDEOBJUPDATE_STRING_ALTLETTER->fixed||_SUB_IDEOBJUPDATE_STRING_ALTLETTER->readonly){ -oldstr5035=_SUB_IDEOBJUPDATE_STRING_ALTLETTER; -if (oldstr5035->cmem_descriptor){ -_SUB_IDEOBJUPDATE_STRING_ALTLETTER=qbs_new_cmem(oldstr5035->len,0); -}else{ -_SUB_IDEOBJUPDATE_STRING_ALTLETTER=qbs_new(oldstr5035->len,0); -} -memcpy(_SUB_IDEOBJUPDATE_STRING_ALTLETTER->chr,oldstr5035->chr,oldstr5035->len); -} -qbs *_SUB_IDEOBJUPDATE_STRING1_SEP=NULL; -if(_SUB_IDEOBJUPDATE_STRING1_SEP==NULL){ -_SUB_IDEOBJUPDATE_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_IDEOBJUPDATE_STRING1_SEP->chr,0,1); -} -int32 *_SUB_IDEOBJUPDATE_LONG_T=NULL; -if(_SUB_IDEOBJUPDATE_LONG_T==NULL){ -_SUB_IDEOBJUPDATE_LONG_T=(int32*)mem_static_malloc(4); -*_SUB_IDEOBJUPDATE_LONG_T=0; -} -int32 *_SUB_IDEOBJUPDATE_LONG_X1=NULL; -if(_SUB_IDEOBJUPDATE_LONG_X1==NULL){ -_SUB_IDEOBJUPDATE_LONG_X1=(int32*)mem_static_malloc(4); -*_SUB_IDEOBJUPDATE_LONG_X1=0; -} -int32 *_SUB_IDEOBJUPDATE_LONG_Y=NULL; -if(_SUB_IDEOBJUPDATE_LONG_Y==NULL){ -_SUB_IDEOBJUPDATE_LONG_Y=(int32*)mem_static_malloc(4); -*_SUB_IDEOBJUPDATE_LONG_Y=0; -} -int32 *_SUB_IDEOBJUPDATE_LONG_X2=NULL; -if(_SUB_IDEOBJUPDATE_LONG_X2==NULL){ -_SUB_IDEOBJUPDATE_LONG_X2=(int32*)mem_static_malloc(4); -*_SUB_IDEOBJUPDATE_LONG_X2=0; -} -qbs *_SUB_IDEOBJUPDATE_STRING_A=NULL; -if (!_SUB_IDEOBJUPDATE_STRING_A)_SUB_IDEOBJUPDATE_STRING_A=qbs_new(0,0); -int32 *_SUB_IDEOBJUPDATE_LONG_X=NULL; -if(_SUB_IDEOBJUPDATE_LONG_X==NULL){ -_SUB_IDEOBJUPDATE_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEOBJUPDATE_LONG_X=0; -} -byte_element_struct *byte_element_5036=NULL; -if (!byte_element_5036){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]=0; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]=2147483647; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=0; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=0; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]=(ptrszint)¬hingstring; -} -byte_element_struct *byte_element_5064=NULL; -if (!byte_element_5064){ -if ((mem_static_pointer+=12)len,0); +} +memcpy(_SUB_IDENEWSF_STRING_SF->chr,oldstr5381->chr,oldstr5381->len); +} +qbs *_SUB_IDENEWSF_STRING_A=NULL; +if (!_SUB_IDENEWSF_STRING_A)_SUB_IDENEWSF_STRING_A=qbs_new(0,0); +qbs *_SUB_IDENEWSF_STRING_A2=NULL; +if (!_SUB_IDENEWSF_STRING_A2)_SUB_IDENEWSF_STRING_A2=qbs_new(0,0); +int32 *_SUB_IDENEWSF_LONG_SX1=NULL; +if(_SUB_IDENEWSF_LONG_SX1==NULL){ +_SUB_IDENEWSF_LONG_SX1=(int32*)mem_static_malloc(4); +*_SUB_IDENEWSF_LONG_SX1=0; +} +int32 *_SUB_IDENEWSF_LONG_SX2=NULL; +if(_SUB_IDENEWSF_LONG_SX2==NULL){ +_SUB_IDENEWSF_LONG_SX2=(int32*)mem_static_malloc(4); +*_SUB_IDENEWSF_LONG_SX2=0; +} +int32 *_SUB_IDENEWSF_LONG_X=NULL; +if(_SUB_IDENEWSF_LONG_X==NULL){ +_SUB_IDENEWSF_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_IDENEWSF_LONG_X=0; +} +int64 fornext_value5383; +int64 fornext_finalvalue5383; +int64 fornext_step5383; +uint8 fornext_step_negative5383; +byte_element_struct *byte_element_5384=NULL; +if (!byte_element_5384){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDENEWFOLDER_STRING_THISPATH->fixed||_FUNC_IDENEWFOLDER_STRING_THISPATH->readonly){ +oldstr5389=_FUNC_IDENEWFOLDER_STRING_THISPATH; +if (oldstr5389->cmem_descriptor){ +_FUNC_IDENEWFOLDER_STRING_THISPATH=qbs_new_cmem(oldstr5389->len,0); +}else{ +_FUNC_IDENEWFOLDER_STRING_THISPATH=qbs_new(oldstr5389->len,0); } -int32 *_FUNC_IDEVBAR_LONG_I=NULL; -if(_FUNC_IDEVBAR_LONG_I==NULL){ -_FUNC_IDEVBAR_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEVBAR_LONG_I=0; +memcpy(_FUNC_IDENEWFOLDER_STRING_THISPATH->chr,oldstr5389->chr,oldstr5389->len); } -int32 *_FUNC_IDEVBAR_LONG_N=NULL; -if(_FUNC_IDEVBAR_LONG_N==NULL){ -_FUNC_IDEVBAR_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_IDEVBAR_LONG_N=0; -} -int32 *_FUNC_IDEVBAR_LONG_Y2=NULL; -if(_FUNC_IDEVBAR_LONG_Y2==NULL){ -_FUNC_IDEVBAR_LONG_Y2=(int32*)mem_static_malloc(4); -*_FUNC_IDEVBAR_LONG_Y2=0; -} -int64 fornext_value5089; -int64 fornext_finalvalue5089; -int64 fornext_step5089; -uint8 fornext_step_negative5089; -float *_FUNC_IDEVBAR_SINGLE_P=NULL; -if(_FUNC_IDEVBAR_SINGLE_P==NULL){ -_FUNC_IDEVBAR_SINGLE_P=(float*)mem_static_malloc(4); -*_FUNC_IDEVBAR_SINGLE_P=0; +qbs *_FUNC_IDENEWFOLDER_STRING_NEWFOLDER=NULL; +if (!_FUNC_IDENEWFOLDER_STRING_NEWFOLDER)_FUNC_IDENEWFOLDER_STRING_NEWFOLDER=qbs_new(0,0); +int32 pass5390; +int32 pass5391; +int32 pass5392; +byte_element_struct *byte_element_5393=NULL; +if (!byte_element_5393){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDENEWTXT_STRING_A->fixed||_FUNC_IDENEWTXT_STRING_A->readonly){ +oldstr5394=_FUNC_IDENEWTXT_STRING_A; +if (oldstr5394->cmem_descriptor){ +_FUNC_IDENEWTXT_STRING_A=qbs_new_cmem(oldstr5394->len,0); +}else{ +_FUNC_IDENEWTXT_STRING_A=qbs_new(oldstr5394->len,0); +} +memcpy(_FUNC_IDENEWTXT_STRING_A->chr,oldstr5394->chr,oldstr5394->len); +} diff --git a/internal/source/data168.txt b/internal/source/data168.txt index e69de29bb..cbbad066f 100644 --- a/internal/source/data168.txt +++ b/internal/source/data168.txt @@ -0,0 +1,18 @@ +qbs *_SUB_IDENOMATCH_STRING_MSG=NULL; +if (!_SUB_IDENOMATCH_STRING_MSG)_SUB_IDENOMATCH_STRING_MSG=qbs_new(0,0); +qbs *_SUB_IDENOMATCH_STRING_C=NULL; +if (!_SUB_IDENOMATCH_STRING_C)_SUB_IDENOMATCH_STRING_C=qbs_new(0,0); +qbs *_SUB_IDENOMATCH_STRING_FLAGS=NULL; +if (!_SUB_IDENOMATCH_STRING_FLAGS)_SUB_IDENOMATCH_STRING_FLAGS=qbs_new(0,0); +int32 *_SUB_IDENOMATCH_LONG_FLAGSET=NULL; +if(_SUB_IDENOMATCH_LONG_FLAGSET==NULL){ +_SUB_IDENOMATCH_LONG_FLAGSET=(int32*)mem_static_malloc(4); +*_SUB_IDENOMATCH_LONG_FLAGSET=0; +} +qbs *_SUB_IDENOMATCH_STRING_PL=NULL; +if (!_SUB_IDENOMATCH_STRING_PL)_SUB_IDENOMATCH_STRING_PL=qbs_new(0,0); +int32 *_SUB_IDENOMATCH_LONG_RESULT=NULL; +if(_SUB_IDENOMATCH_LONG_RESULT==NULL){ +_SUB_IDENOMATCH_LONG_RESULT=(int32*)mem_static_malloc(4); +*_SUB_IDENOMATCH_LONG_RESULT=0; +} diff --git a/internal/source/data169.txt b/internal/source/data169.txt index e69de29bb..12c4371c3 100644 --- a/internal/source/data169.txt +++ b/internal/source/data169.txt @@ -0,0 +1,266 @@ +qbs *_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG=NULL; +if (!_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG)_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG=qbs_new(0,0); +qbs*oldstr5395=NULL; +if(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->tmp||_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->fixed||_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->readonly){ +oldstr5395=_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME; +if (oldstr5395->cmem_descriptor){ +_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME=qbs_new_cmem(oldstr5395->len,0); +}else{ +_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME=qbs_new(oldstr5395->len,0); +} +memcpy(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->chr,oldstr5395->chr,oldstr5395->len); +} +int32 *_FUNC_IDEFILEDIALOG_LONG_FOCUS=NULL; +if(_FUNC_IDEFILEDIALOG_LONG_FOCUS==NULL){ +_FUNC_IDEFILEDIALOG_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=0; +} +void *_FUNC_IDEFILEDIALOG_UDT_P=NULL; +if(_FUNC_IDEFILEDIALOG_UDT_P==NULL){ +_FUNC_IDEFILEDIALOG_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDEFILEDIALOG_UDT_P,0,20); +} +ptrszint *_FUNC_IDEFILEDIALOG_ARRAY_UDT_O=NULL; +if (!_FUNC_IDEFILEDIALOG_ARRAY_UDT_O){ +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]=0; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]=0; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[6]=0; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDEFILEDIALOG_STRING1_SEP=NULL; +if(_FUNC_IDEFILEDIALOG_STRING1_SEP==NULL){ +_FUNC_IDEFILEDIALOG_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEFILEDIALOG_STRING1_SEP->chr,0,1); +} +qbs *_FUNC_IDEFILEDIALOG_STRING_PATH=NULL; +if (!_FUNC_IDEFILEDIALOG_STRING_PATH)_FUNC_IDEFILEDIALOG_STRING_PATH=qbs_new(0,0); +qbs *_FUNC_IDEFILEDIALOG_STRING_FILELIST=NULL; +if (!_FUNC_IDEFILEDIALOG_STRING_FILELIST)_FUNC_IDEFILEDIALOG_STRING_FILELIST=qbs_new(0,0); +qbs *_FUNC_IDEFILEDIALOG_STRING_PATHLIST=NULL; +if (!_FUNC_IDEFILEDIALOG_STRING_PATHLIST)_FUNC_IDEFILEDIALOG_STRING_PATHLIST=qbs_new(0,0); +int32 *_FUNC_IDEFILEDIALOG_LONG_I=NULL; +if(_FUNC_IDEFILEDIALOG_LONG_I==NULL){ +_FUNC_IDEFILEDIALOG_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEFILEDIALOG_LONG_I=0; +} +int32 pass5396; +int32 pass5397; +int32 pass5398; +int32 pass5399; +int32 *_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=NULL; +if(_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS==NULL){ +_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=0; +} +byte_element_struct *byte_element_5400=NULL; +if (!byte_element_5400){ +if ((mem_static_pointer+=12)tmp||_FUNC_FINDID_STRING_N2->fixed||_FUNC_FINDID_STRING_N2->readonly){ -oldstr2549=_FUNC_FINDID_STRING_N2; -if (oldstr2549->cmem_descriptor){ -_FUNC_FINDID_STRING_N2=qbs_new_cmem(oldstr2549->len,0); -}else{ -_FUNC_FINDID_STRING_N2=qbs_new(oldstr2549->len,0); +int32 *_FUNC_VARIABLESIZE_LONG_BYTES=NULL; +if(_FUNC_VARIABLESIZE_LONG_BYTES==NULL){ +_FUNC_VARIABLESIZE_LONG_BYTES=(int32*)mem_static_malloc(4); +*_FUNC_VARIABLESIZE_LONG_BYTES=0; } -memcpy(_FUNC_FINDID_STRING_N2->chr,oldstr2549->chr,oldstr2549->len); +int32 *_FUNC_VARIABLESIZE_LONG_U=NULL; +if(_FUNC_VARIABLESIZE_LONG_U==NULL){ +_FUNC_VARIABLESIZE_LONG_U=(int32*)mem_static_malloc(4); +*_FUNC_VARIABLESIZE_LONG_U=0; } -qbs *_FUNC_FINDID_STRING_N=NULL; -if (!_FUNC_FINDID_STRING_N)_FUNC_FINDID_STRING_N=qbs_new(0,0); -qbs *_FUNC_FINDID_STRING_SECONDARG=NULL; -if (!_FUNC_FINDID_STRING_SECONDARG)_FUNC_FINDID_STRING_SECONDARG=qbs_new(0,0); -int32 *_FUNC_FINDID_LONG_FINDANOTHER=NULL; -if(_FUNC_FINDID_LONG_FINDANOTHER==NULL){ -_FUNC_FINDID_LONG_FINDANOTHER=(int32*)mem_static_malloc(4); -*_FUNC_FINDID_LONG_FINDANOTHER=0; +qbs *_FUNC_VARIABLESIZE_STRING_N=NULL; +if (!_FUNC_VARIABLESIZE_STRING_N)_FUNC_VARIABLESIZE_STRING_N=qbs_new(0,0); +qbs *_FUNC_VARIABLESIZE_STRING_S=NULL; +if (!_FUNC_VARIABLESIZE_STRING_S)_FUNC_VARIABLESIZE_STRING_S=qbs_new(0,0); +int32 *_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=NULL; +if(_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS==NULL){ +_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=(int32*)mem_static_malloc(4); +*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=0; } -int32 *_FUNC_FINDID_LONG_I=NULL; -if(_FUNC_FINDID_LONG_I==NULL){ -_FUNC_FINDID_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_FINDID_LONG_I=0; +int32 *_FUNC_VARIABLESIZE_LONG_I2=NULL; +if(_FUNC_VARIABLESIZE_LONG_I2==NULL){ +_FUNC_VARIABLESIZE_LONG_I2=(int32*)mem_static_malloc(4); +*_FUNC_VARIABLESIZE_LONG_I2=0; } -qbs *_FUNC_FINDID_STRING_SC=NULL; -if (!_FUNC_FINDID_STRING_SC)_FUNC_FINDID_STRING_SC=qbs_new(0,0); -byte_element_struct *byte_element_2550=NULL; -if (!byte_element_2550){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEZCHANGEPATH_STRING_PATH->fixed||_FUNC_IDEZCHANGEPATH_STRING_PATH->readonly){ -oldstr5095=_FUNC_IDEZCHANGEPATH_STRING_PATH; -if (oldstr5095->cmem_descriptor){ -_FUNC_IDEZCHANGEPATH_STRING_PATH=qbs_new_cmem(oldstr5095->len,0); +qbs*oldstr5423=NULL; +if(_SUB_IDEPAR_STRING_TITLE->tmp||_SUB_IDEPAR_STRING_TITLE->fixed||_SUB_IDEPAR_STRING_TITLE->readonly){ +oldstr5423=_SUB_IDEPAR_STRING_TITLE; +if (oldstr5423->cmem_descriptor){ +_SUB_IDEPAR_STRING_TITLE=qbs_new_cmem(oldstr5423->len,0); }else{ -_FUNC_IDEZCHANGEPATH_STRING_PATH=qbs_new(oldstr5095->len,0); +_SUB_IDEPAR_STRING_TITLE=qbs_new(oldstr5423->len,0); } -memcpy(_FUNC_IDEZCHANGEPATH_STRING_PATH->chr,oldstr5095->chr,oldstr5095->len); +memcpy(_SUB_IDEPAR_STRING_TITLE->chr,oldstr5423->chr,oldstr5423->len); } -qbs*oldstr5096=NULL; -if(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->tmp||_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->fixed||_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->readonly){ -oldstr5096=_FUNC_IDEZCHANGEPATH_STRING_NEWPATH; -if (oldstr5096->cmem_descriptor){ -_FUNC_IDEZCHANGEPATH_STRING_NEWPATH=qbs_new_cmem(oldstr5096->len,0); -}else{ -_FUNC_IDEZCHANGEPATH_STRING_NEWPATH=qbs_new(oldstr5096->len,0); -} -memcpy(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->chr,oldstr5096->chr,oldstr5096->len); -} -int32 *_FUNC_IDEZCHANGEPATH_LONG_X=NULL; -if(_FUNC_IDEZCHANGEPATH_LONG_X==NULL){ -_FUNC_IDEZCHANGEPATH_LONG_X=(int32*)mem_static_malloc(4); -*_FUNC_IDEZCHANGEPATH_LONG_X=0; -} -int64 fornext_value5098; -int64 fornext_finalvalue5098; -int64 fornext_step5098; -uint8 fornext_step_negative5098; -byte_element_struct *byte_element_5099=NULL; -if (!byte_element_5099){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEZFILELIST_STRING_PATH->fixed||_FUNC_IDEZFILELIST_STRING_PATH->readonly){ -oldstr5104=_FUNC_IDEZFILELIST_STRING_PATH; -if (oldstr5104->cmem_descriptor){ -_FUNC_IDEZFILELIST_STRING_PATH=qbs_new_cmem(oldstr5104->len,0); -}else{ -_FUNC_IDEZFILELIST_STRING_PATH=qbs_new(oldstr5104->len,0); -} -memcpy(_FUNC_IDEZFILELIST_STRING_PATH->chr,oldstr5104->chr,oldstr5104->len); -} -qbs *_FUNC_IDEZFILELIST_STRING1_SEP=NULL; -if(_FUNC_IDEZFILELIST_STRING1_SEP==NULL){ -_FUNC_IDEZFILELIST_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEZFILELIST_STRING1_SEP->chr,0,1); -} -qbs *_FUNC_IDEZFILELIST_STRING_FILELIST=NULL; -if (!_FUNC_IDEZFILELIST_STRING_FILELIST)_FUNC_IDEZFILELIST_STRING_FILELIST=qbs_new(0,0); -qbs *_FUNC_IDEZFILELIST_STRING_A=NULL; -if (!_FUNC_IDEZFILELIST_STRING_A)_FUNC_IDEZFILELIST_STRING_A=qbs_new(0,0); -byte_element_struct *byte_element_5107=NULL; -if (!byte_element_5107){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY->fixed||_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY->readonly){ +oldstr5425=_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY; +if (oldstr5425->cmem_descriptor){ +_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY=qbs_new_cmem(oldstr5425->len,0); +}else{ +_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY=qbs_new(oldstr5425->len,0); +} +memcpy(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY->chr,oldstr5425->chr,oldstr5425->len); +} +qbs *_FUNC_IDECLEARHISTORY_STRING_T=NULL; +if (!_FUNC_IDECLEARHISTORY_STRING_T)_FUNC_IDECLEARHISTORY_STRING_T=qbs_new(0,0); +qbs *_FUNC_IDECLEARHISTORY_STRING_M=NULL; +if (!_FUNC_IDECLEARHISTORY_STRING_M)_FUNC_IDECLEARHISTORY_STRING_M=qbs_new(0,0); +int32 *_FUNC_IDECLEARHISTORY_LONG_RESULT=NULL; +if(_FUNC_IDECLEARHISTORY_LONG_RESULT==NULL){ +_FUNC_IDECLEARHISTORY_LONG_RESULT=(int32*)mem_static_malloc(4); +*_FUNC_IDECLEARHISTORY_LONG_RESULT=0; +} diff --git a/internal/source/data173.txt b/internal/source/data173.txt index b4e6f26ae..faf61f0f8 100644 --- a/internal/source/data173.txt +++ b/internal/source/data173.txt @@ -1,76 +1,21 @@ -qbs *_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST=NULL; -if (!_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST)_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST=qbs_new(0,0); -qbs*oldstr5119=NULL; -if(_FUNC_IDEZPATHLIST_STRING_PATH->tmp||_FUNC_IDEZPATHLIST_STRING_PATH->fixed||_FUNC_IDEZPATHLIST_STRING_PATH->readonly){ -oldstr5119=_FUNC_IDEZPATHLIST_STRING_PATH; -if (oldstr5119->cmem_descriptor){ -_FUNC_IDEZPATHLIST_STRING_PATH=qbs_new_cmem(oldstr5119->len,0); +qbs*oldstr5427=NULL; +if(_SUB_IDESAVE_STRING_F->tmp||_SUB_IDESAVE_STRING_F->fixed||_SUB_IDESAVE_STRING_F->readonly){ +oldstr5427=_SUB_IDESAVE_STRING_F; +if (oldstr5427->cmem_descriptor){ +_SUB_IDESAVE_STRING_F=qbs_new_cmem(oldstr5427->len,0); }else{ -_FUNC_IDEZPATHLIST_STRING_PATH=qbs_new(oldstr5119->len,0); +_SUB_IDESAVE_STRING_F=qbs_new(oldstr5427->len,0); } -memcpy(_FUNC_IDEZPATHLIST_STRING_PATH->chr,oldstr5119->chr,oldstr5119->len); +memcpy(_SUB_IDESAVE_STRING_F->chr,oldstr5427->chr,oldstr5427->len); } -qbs *_FUNC_IDEZPATHLIST_STRING1_SEP=NULL; -if(_FUNC_IDEZPATHLIST_STRING1_SEP==NULL){ -_FUNC_IDEZPATHLIST_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEZPATHLIST_STRING1_SEP->chr,0,1); -} -qbs *_FUNC_IDEZPATHLIST_STRING_A=NULL; -if (!_FUNC_IDEZPATHLIST_STRING_A)_FUNC_IDEZPATHLIST_STRING_A=qbs_new(0,0); -qbs *_FUNC_IDEZPATHLIST_STRING_PATHLIST=NULL; -if (!_FUNC_IDEZPATHLIST_STRING_PATHLIST)_FUNC_IDEZPATHLIST_STRING_PATHLIST=qbs_new(0,0); -int32 *_FUNC_IDEZPATHLIST_LONG_C=NULL; -if(_FUNC_IDEZPATHLIST_LONG_C==NULL){ -_FUNC_IDEZPATHLIST_LONG_C=(int32*)mem_static_malloc(4); -*_FUNC_IDEZPATHLIST_LONG_C=0; -} -int32 *_FUNC_IDEZPATHLIST_LONG_X=NULL; -if(_FUNC_IDEZPATHLIST_LONG_X==NULL){ -_FUNC_IDEZPATHLIST_LONG_X=(int32*)mem_static_malloc(4); -*_FUNC_IDEZPATHLIST_LONG_X=0; -} -int64 fornext_value5123; -int64 fornext_finalvalue5123; -int64 fornext_step5123; -uint8 fornext_step_negative5123; -byte_element_struct *byte_element_5124=NULL; -if (!byte_element_5124){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEZTAKEPATH_STRING_F->fixed||_FUNC_IDEZTAKEPATH_STRING_F->readonly){ -oldstr5136=_FUNC_IDEZTAKEPATH_STRING_F; -if (oldstr5136->cmem_descriptor){ -_FUNC_IDEZTAKEPATH_STRING_F=qbs_new_cmem(oldstr5136->len,0); -}else{ -_FUNC_IDEZTAKEPATH_STRING_F=qbs_new(oldstr5136->len,0); -} -memcpy(_FUNC_IDEZTAKEPATH_STRING_F->chr,oldstr5136->chr,oldstr5136->len); -} -qbs *_FUNC_IDEZTAKEPATH_STRING_P=NULL; -if (!_FUNC_IDEZTAKEPATH_STRING_P)_FUNC_IDEZTAKEPATH_STRING_P=qbs_new(0,0); -int32 *_FUNC_IDEZTAKEPATH_LONG_I=NULL; -if(_FUNC_IDEZTAKEPATH_LONG_I==NULL){ -_FUNC_IDEZTAKEPATH_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEZTAKEPATH_LONG_I=0; -} -int64 fornext_value5138; -int64 fornext_finalvalue5138; -int64 fornext_step5138; -uint8 fornext_step_negative5138; -byte_element_struct *byte_element_5139=NULL; -if (!byte_element_5139){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEZGETFILEPATH_STRING_ROOT->fixed||_FUNC_IDEZGETFILEPATH_STRING_ROOT->readonly){ -oldstr5145=_FUNC_IDEZGETFILEPATH_STRING_ROOT; -if (oldstr5145->cmem_descriptor){ -_FUNC_IDEZGETFILEPATH_STRING_ROOT=qbs_new_cmem(oldstr5145->len,0); +qbs*oldstr5432=NULL; +if(_SUB_IDESETLINE_STRING_TEXT->tmp||_SUB_IDESETLINE_STRING_TEXT->fixed||_SUB_IDESETLINE_STRING_TEXT->readonly){ +oldstr5432=_SUB_IDESETLINE_STRING_TEXT; +if (oldstr5432->cmem_descriptor){ +_SUB_IDESETLINE_STRING_TEXT=qbs_new_cmem(oldstr5432->len,0); }else{ -_FUNC_IDEZGETFILEPATH_STRING_ROOT=qbs_new(oldstr5145->len,0); +_SUB_IDESETLINE_STRING_TEXT=qbs_new(oldstr5432->len,0); } -memcpy(_FUNC_IDEZGETFILEPATH_STRING_ROOT->chr,oldstr5145->chr,oldstr5145->len); +memcpy(_SUB_IDESETLINE_STRING_TEXT->chr,oldstr5432->chr,oldstr5432->len); } -qbs*oldstr5146=NULL; -if(_FUNC_IDEZGETFILEPATH_STRING_F->tmp||_FUNC_IDEZGETFILEPATH_STRING_F->fixed||_FUNC_IDEZGETFILEPATH_STRING_F->readonly){ -oldstr5146=_FUNC_IDEZGETFILEPATH_STRING_F; -if (oldstr5146->cmem_descriptor){ -_FUNC_IDEZGETFILEPATH_STRING_F=qbs_new_cmem(oldstr5146->len,0); -}else{ -_FUNC_IDEZGETFILEPATH_STRING_F=qbs_new(oldstr5146->len,0); +int32 *_SUB_IDESETLINE_LONG_TEXTLEN=NULL; +if(_SUB_IDESETLINE_LONG_TEXTLEN==NULL){ +_SUB_IDESETLINE_LONG_TEXTLEN=(int32*)mem_static_malloc(4); +*_SUB_IDESETLINE_LONG_TEXTLEN=0; } -memcpy(_FUNC_IDEZGETFILEPATH_STRING_F->chr,oldstr5146->chr,oldstr5146->len); +byte_element_struct *byte_element_5433=NULL; +if (!byte_element_5433){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +int32 *_SUB_IDESHOWTEXT_LONG_Y=NULL; +if(_SUB_IDESHOWTEXT_LONG_Y==NULL){ +_SUB_IDESHOWTEXT_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_IDESHOWTEXT_LONG_Y=0; } -qbs *_FUNC_IDELAYOUTBOX_STRING1_SEP=NULL; -if(_FUNC_IDELAYOUTBOX_STRING1_SEP==NULL){ -_FUNC_IDELAYOUTBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDELAYOUTBOX_STRING1_SEP->chr,0,1); +int64 fornext_value5436; +int64 fornext_finalvalue5436; +int64 fornext_step5436; +uint8 fornext_step_negative5436; +qbs *_SUB_IDESHOWTEXT_STRING_A=NULL; +if (!_SUB_IDESHOWTEXT_STRING_A)_SUB_IDESHOWTEXT_STRING_A=qbs_new(0,0); +int32 *_SUB_IDESHOWTEXT_LONG_SF=NULL; +if(_SUB_IDESHOWTEXT_LONG_SF==NULL){ +_SUB_IDESHOWTEXT_LONG_SF=(int32*)mem_static_malloc(4); +*_SUB_IDESHOWTEXT_LONG_SF=0; } -int32 *_FUNC_IDELAYOUTBOX_LONG_I=NULL; -if(_FUNC_IDELAYOUTBOX_LONG_I==NULL){ -_FUNC_IDELAYOUTBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDELAYOUTBOX_LONG_I=0; +byte_element_struct *byte_element_5437=NULL; +if (!byte_element_5437){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_FUNC_IDESUBS_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_UDT_O[2]=0; +_FUNC_IDESUBS_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDESUBS_ARRAY_UDT_O[5]=0; +_FUNC_IDESUBS_ARRAY_UDT_O[6]=0; +_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -qbs *_FUNC_IDEBACKUPBOX_STRING1_SEP=NULL; -if(_FUNC_IDEBACKUPBOX_STRING1_SEP==NULL){ -_FUNC_IDEBACKUPBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEBACKUPBOX_STRING1_SEP->chr,0,1); +qbs *_FUNC_IDESUBS_STRING1_SEP=NULL; +if(_FUNC_IDESUBS_STRING1_SEP==NULL){ +_FUNC_IDESUBS_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDESUBS_STRING1_SEP->chr,0,1); } -int32 *_FUNC_IDEBACKUPBOX_LONG_I=NULL; -if(_FUNC_IDEBACKUPBOX_LONG_I==NULL){ -_FUNC_IDEBACKUPBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEBACKUPBOX_LONG_I=0; +qbs *_FUNC_IDESUBS_STRING_A2=NULL; +if (!_FUNC_IDESUBS_STRING_A2)_FUNC_IDESUBS_STRING_A2=qbs_new(0,0); +byte_element_struct *byte_element_5538=NULL; +if (!byte_element_5538){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]=0; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=2147483647; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=0; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=0; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)nothingvalue; } -qbs *_FUNC_IDEBACKUPBOX_STRING_ALTLETTER=NULL; -if (!_FUNC_IDEBACKUPBOX_STRING_ALTLETTER)_FUNC_IDEBACKUPBOX_STRING_ALTLETTER=qbs_new(0,0); -byte_element_struct *byte_element_5178=NULL; -if (!byte_element_5178){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]=0; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=2147483647; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=0; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=0; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)nothingvalue; } -int32 *_FUNC_IDEBACKUPBOX_LONG_K=NULL; -if(_FUNC_IDEBACKUPBOX_LONG_K==NULL){ -_FUNC_IDEBACKUPBOX_LONG_K=(int32*)mem_static_malloc(4); -*_FUNC_IDEBACKUPBOX_LONG_K=0; +ptrszint *_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES=NULL; +if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES){ +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]=0; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=2147483647; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=0; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=0; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)nothingvalue; } -int32 *_FUNC_IDEBACKUPBOX_LONG_INFO=NULL; -if(_FUNC_IDEBACKUPBOX_LONG_INFO==NULL){ -_FUNC_IDEBACKUPBOX_LONG_INFO=(int32*)mem_static_malloc(4); -*_FUNC_IDEBACKUPBOX_LONG_INFO=0; +ptrszint *_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES=NULL; +if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES){ +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]=0; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=2147483647; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=0; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=0; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)¬hingstring; } -int64 fornext_value5180; -int64 fornext_finalvalue5180; -int64 fornext_step5180; -uint8 fornext_step_negative5180; -int32 *_FUNC_IDEBACKUPBOX_LONG_T=NULL; -if(_FUNC_IDEBACKUPBOX_LONG_T==NULL){ -_FUNC_IDEBACKUPBOX_LONG_T=(int32*)mem_static_malloc(4); -*_FUNC_IDEBACKUPBOX_LONG_T=0; +ptrszint *_FUNC_IDESUBS_ARRAY_LONG_SUBLINES=NULL; +if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES){ +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]=0; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=2147483647; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=0; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=0; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)nothingvalue; } -int32 *_FUNC_IDEBACKUPBOX_LONG_FOCUSOFFSET=NULL; -if(_FUNC_IDEBACKUPBOX_LONG_FOCUSOFFSET==NULL){ -_FUNC_IDEBACKUPBOX_LONG_FOCUSOFFSET=(int32*)mem_static_malloc(4); -*_FUNC_IDEBACKUPBOX_LONG_FOCUSOFFSET=0; +ptrszint *_FUNC_IDESUBS_ARRAY_STRING_ARGS=NULL; +if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS){ +_FUNC_IDESUBS_ARRAY_STRING_ARGS=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]=0; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=2147483647; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=0; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=0; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)¬hingstring; } -byte_element_struct *byte_element_5181=NULL; -if (!byte_element_5181){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESUBS_ARRAY_STRING_SF[2]=0; +_FUNC_IDESUBS_ARRAY_STRING_SF[4]=2147483647; +_FUNC_IDESUBS_ARRAY_STRING_SF[5]=0; +_FUNC_IDESUBS_ARRAY_STRING_SF[6]=0; +_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)¬hingstring; } -qbs *_FUNC_IDEBACKUPBOX_STRING_A=NULL; -if (!_FUNC_IDEBACKUPBOX_STRING_A)_FUNC_IDEBACKUPBOX_STRING_A=qbs_new(0,0); -byte_element_struct *byte_element_5182=NULL; -if (!byte_element_5182){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -qbs *_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP=NULL; -if(_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP==NULL){ -_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP->chr,0,1); +qbs *_FUNC_IDELANGUAGEBOX_STRING1_SEP=NULL; +if(_FUNC_IDELANGUAGEBOX_STRING1_SEP==NULL){ +_FUNC_IDELANGUAGEBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDELANGUAGEBOX_STRING1_SEP->chr,0,1); } -int32 *_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=NULL; -if(_FUNC_IDEMODIFYCOMMANDBOX_LONG_I==NULL){ -_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=0; +qbs *_FUNC_IDELANGUAGEBOX_STRING_L=NULL; +if (!_FUNC_IDELANGUAGEBOX_STRING_L)_FUNC_IDELANGUAGEBOX_STRING_L=qbs_new(0,0); +int32 *_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=NULL; +if(_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH==NULL){ +_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=(int32*)mem_static_malloc(4); +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=0; } -int32 pass5186; -int32 pass5187; -qbs *_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2=NULL; -if (!_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2)_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2=qbs_new(0,0); -byte_element_struct *byte_element_5188=NULL; -if (!byte_element_5188){ -if ((mem_static_pointer+=12)tmp||_FUNC_FINDARRAY_STRING_SECURE->fixed||_FUNC_FINDARRAY_STRING_SECURE->readonly){ -oldstr2564=_FUNC_FINDARRAY_STRING_SECURE; -if (oldstr2564->cmem_descriptor){ -_FUNC_FINDARRAY_STRING_SECURE=qbs_new_cmem(oldstr2564->len,0); +qbs *_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP=NULL; +if (!_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP)_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP=qbs_new(0,0); +qbs*oldstr2715=NULL; +if(_FUNC_EVALUATETOTYP_STRING_A2->tmp||_FUNC_EVALUATETOTYP_STRING_A2->fixed||_FUNC_EVALUATETOTYP_STRING_A2->readonly){ +oldstr2715=_FUNC_EVALUATETOTYP_STRING_A2; +if (oldstr2715->cmem_descriptor){ +_FUNC_EVALUATETOTYP_STRING_A2=qbs_new_cmem(oldstr2715->len,0); }else{ -_FUNC_FINDARRAY_STRING_SECURE=qbs_new(oldstr2564->len,0); +_FUNC_EVALUATETOTYP_STRING_A2=qbs_new(oldstr2715->len,0); } -memcpy(_FUNC_FINDARRAY_STRING_SECURE->chr,oldstr2564->chr,oldstr2564->len); +memcpy(_FUNC_EVALUATETOTYP_STRING_A2->chr,oldstr2715->chr,oldstr2715->len); } -qbs *_FUNC_FINDARRAY_STRING_N=NULL; -if (!_FUNC_FINDARRAY_STRING_N)_FUNC_FINDARRAY_STRING_N=qbs_new(0,0); -int32 *_FUNC_FINDARRAY_LONG_I=NULL; -if(_FUNC_FINDARRAY_LONG_I==NULL){ -_FUNC_FINDARRAY_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_FINDARRAY_LONG_I=0; +qbs *_FUNC_EVALUATETOTYP_STRING_A=NULL; +if (!_FUNC_EVALUATETOTYP_STRING_A)_FUNC_EVALUATETOTYP_STRING_A=qbs_new(0,0); +qbs *_FUNC_EVALUATETOTYP_STRING_E=NULL; +if (!_FUNC_EVALUATETOTYP_STRING_E)_FUNC_EVALUATETOTYP_STRING_E=qbs_new(0,0); +int32 *_FUNC_EVALUATETOTYP_LONG_SOURCETYP=NULL; +if(_FUNC_EVALUATETOTYP_LONG_SOURCETYP==NULL){ +_FUNC_EVALUATETOTYP_LONG_SOURCETYP=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATETOTYP_LONG_SOURCETYP=0; } -qbs *_FUNC_FINDARRAY_STRING_SC=NULL; -if (!_FUNC_FINDARRAY_STRING_SC)_FUNC_FINDARRAY_STRING_SC=qbs_new(0,0); -byte_element_struct *byte_element_2566=NULL; -if (!byte_element_2566){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -qbs *_FUNC_IDEGOTOBOX_STRING1_SEP=NULL; -if(_FUNC_IDEGOTOBOX_STRING1_SEP==NULL){ -_FUNC_IDEGOTOBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEGOTOBOX_STRING1_SEP->chr,0,1); +qbs *_FUNC_IDEWARNINGBOX_STRING1_SEP=NULL; +if(_FUNC_IDEWARNINGBOX_STRING1_SEP==NULL){ +_FUNC_IDEWARNINGBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEWARNINGBOX_STRING1_SEP->chr,0,1); } -int32 *_FUNC_IDEGOTOBOX_LONG_I=NULL; -if(_FUNC_IDEGOTOBOX_LONG_I==NULL){ -_FUNC_IDEGOTOBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEGOTOBOX_LONG_I=0; +byte_element_struct *byte_element_5615=NULL; +if (!byte_element_5615){ +if ((mem_static_pointer+=12)tmp||_SUB_IDEOBJUPDATE_STRING_KK->fixed||_SUB_IDEOBJUPDATE_STRING_KK->readonly){ +oldstr5636=_SUB_IDEOBJUPDATE_STRING_KK; +if (oldstr5636->cmem_descriptor){ +_SUB_IDEOBJUPDATE_STRING_KK=qbs_new_cmem(oldstr5636->len,0); +}else{ +_SUB_IDEOBJUPDATE_STRING_KK=qbs_new(oldstr5636->len,0); } -int32 *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=NULL; -if(_FUNC_IDEADVANCEDBOX_LONG_FOCUS==NULL){ -_FUNC_IDEADVANCEDBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEADVANCEDBOX_LONG_FOCUS=0; +memcpy(_SUB_IDEOBJUPDATE_STRING_KK->chr,oldstr5636->chr,oldstr5636->len); } -void *_FUNC_IDEADVANCEDBOX_UDT_P=NULL; -if(_FUNC_IDEADVANCEDBOX_UDT_P==NULL){ -_FUNC_IDEADVANCEDBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEADVANCEDBOX_UDT_P,0,20); +qbs*oldstr5637=NULL; +if(_SUB_IDEOBJUPDATE_STRING_ALTLETTER->tmp||_SUB_IDEOBJUPDATE_STRING_ALTLETTER->fixed||_SUB_IDEOBJUPDATE_STRING_ALTLETTER->readonly){ +oldstr5637=_SUB_IDEOBJUPDATE_STRING_ALTLETTER; +if (oldstr5637->cmem_descriptor){ +_SUB_IDEOBJUPDATE_STRING_ALTLETTER=qbs_new_cmem(oldstr5637->len,0); +}else{ +_SUB_IDEOBJUPDATE_STRING_ALTLETTER=qbs_new(oldstr5637->len,0); } -ptrszint *_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O){ -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +memcpy(_SUB_IDEOBJUPDATE_STRING_ALTLETTER->chr,oldstr5637->chr,oldstr5637->len); +} +qbs *_SUB_IDEOBJUPDATE_STRING1_SEP=NULL; +if(_SUB_IDEOBJUPDATE_STRING1_SEP==NULL){ +_SUB_IDEOBJUPDATE_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_SUB_IDEOBJUPDATE_STRING1_SEP->chr,0,1); +} +int32 *_SUB_IDEOBJUPDATE_LONG_T=NULL; +if(_SUB_IDEOBJUPDATE_LONG_T==NULL){ +_SUB_IDEOBJUPDATE_LONG_T=(int32*)mem_static_malloc(4); +*_SUB_IDEOBJUPDATE_LONG_T=0; +} +int32 *_SUB_IDEOBJUPDATE_LONG_X1=NULL; +if(_SUB_IDEOBJUPDATE_LONG_X1==NULL){ +_SUB_IDEOBJUPDATE_LONG_X1=(int32*)mem_static_malloc(4); +*_SUB_IDEOBJUPDATE_LONG_X1=0; +} +int32 *_SUB_IDEOBJUPDATE_LONG_Y=NULL; +if(_SUB_IDEOBJUPDATE_LONG_Y==NULL){ +_SUB_IDEOBJUPDATE_LONG_Y=(int32*)mem_static_malloc(4); +*_SUB_IDEOBJUPDATE_LONG_Y=0; +} +int32 *_SUB_IDEOBJUPDATE_LONG_X2=NULL; +if(_SUB_IDEOBJUPDATE_LONG_X2==NULL){ +_SUB_IDEOBJUPDATE_LONG_X2=(int32*)mem_static_malloc(4); +*_SUB_IDEOBJUPDATE_LONG_X2=0; +} +qbs *_SUB_IDEOBJUPDATE_STRING_A=NULL; +if (!_SUB_IDEOBJUPDATE_STRING_A)_SUB_IDEOBJUPDATE_STRING_A=qbs_new(0,0); +int32 *_SUB_IDEOBJUPDATE_LONG_X=NULL; +if(_SUB_IDEOBJUPDATE_LONG_X==NULL){ +_SUB_IDEOBJUPDATE_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_IDEOBJUPDATE_LONG_X=0; +} +byte_element_struct *byte_element_5638=NULL; +if (!byte_element_5638){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8]=(ptrszint)mem_lock_tmp; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]=2147483647; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]=(ptrszint)¬hingstring; } -qbs *_FUNC_IDEADVANCEDBOX_STRING1_SEP=NULL; -if(_FUNC_IDEADVANCEDBOX_STRING1_SEP==NULL){ -_FUNC_IDEADVANCEDBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEADVANCEDBOX_STRING1_SEP->chr,0,1); -} -ptrszint *_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT=NULL; -if (!_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT){ -_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT=(ptrszint*)mem_static_malloc(9*ptrsz); +ptrszint *_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS=NULL; +if (!_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS){ +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]=0; -_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]=2147483647; -_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]=0; -_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[6]=0; -_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]=(ptrszint)¬hingstring; +((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS)[8]=(ptrszint)mem_lock_tmp; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]=2147483647; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[6]=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]=(ptrszint)¬hingstring; } -int32 *_FUNC_IDEADVANCEDBOX_LONG_I=NULL; -if(_FUNC_IDEADVANCEDBOX_LONG_I==NULL){ -_FUNC_IDEADVANCEDBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEADVANCEDBOX_LONG_I=0; +byte_element_struct *byte_element_5665=NULL; +if (!byte_element_5665){ +if ((mem_static_pointer+=12)tmp||_SUB_IDEMESSAGEBOX_STRING_TITLESTR->fixed||_SUB_IDEMESSAGEBOX_STRING_TITLESTR->readonly){ -oldstr5231=_SUB_IDEMESSAGEBOX_STRING_TITLESTR; -if (oldstr5231->cmem_descriptor){ -_SUB_IDEMESSAGEBOX_STRING_TITLESTR=qbs_new_cmem(oldstr5231->len,0); -}else{ -_SUB_IDEMESSAGEBOX_STRING_TITLESTR=qbs_new(oldstr5231->len,0); +int32 *_FUNC_IDEVBAR_LONG_IDEVBAR=NULL; +if(_FUNC_IDEVBAR_LONG_IDEVBAR==NULL){ +_FUNC_IDEVBAR_LONG_IDEVBAR=(int32*)mem_static_malloc(4); +*_FUNC_IDEVBAR_LONG_IDEVBAR=0; } -memcpy(_SUB_IDEMESSAGEBOX_STRING_TITLESTR->chr,oldstr5231->chr,oldstr5231->len); +int32 *_FUNC_IDEVBAR_LONG_I=NULL; +if(_FUNC_IDEVBAR_LONG_I==NULL){ +_FUNC_IDEVBAR_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEVBAR_LONG_I=0; } -qbs*oldstr5232=NULL; -if(_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR->tmp||_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR->fixed||_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR->readonly){ -oldstr5232=_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR; -if (oldstr5232->cmem_descriptor){ -_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR=qbs_new_cmem(oldstr5232->len,0); -}else{ -_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR=qbs_new(oldstr5232->len,0); +int32 *_FUNC_IDEVBAR_LONG_N=NULL; +if(_FUNC_IDEVBAR_LONG_N==NULL){ +_FUNC_IDEVBAR_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_IDEVBAR_LONG_N=0; } -memcpy(_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR->chr,oldstr5232->chr,oldstr5232->len); +int32 *_FUNC_IDEVBAR_LONG_Y2=NULL; +if(_FUNC_IDEVBAR_LONG_Y2==NULL){ +_FUNC_IDEVBAR_LONG_Y2=(int32*)mem_static_malloc(4); +*_FUNC_IDEVBAR_LONG_Y2=0; } -int32 *_SUB_IDEMESSAGEBOX_LONG_FOCUS=NULL; -if(_SUB_IDEMESSAGEBOX_LONG_FOCUS==NULL){ -_SUB_IDEMESSAGEBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_SUB_IDEMESSAGEBOX_LONG_FOCUS=0; -} -void *_SUB_IDEMESSAGEBOX_UDT_P=NULL; -if(_SUB_IDEMESSAGEBOX_UDT_P==NULL){ -_SUB_IDEMESSAGEBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_SUB_IDEMESSAGEBOX_UDT_P,0,20); -} -ptrszint *_SUB_IDEMESSAGEBOX_ARRAY_UDT_O=NULL; -if (!_SUB_IDEMESSAGEBOX_ARRAY_UDT_O){ -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]=0; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4]=2147483647; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]=0; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[6]=0; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_SUB_IDEMESSAGEBOX_STRING1_SEP=NULL; -if(_SUB_IDEMESSAGEBOX_STRING1_SEP==NULL){ -_SUB_IDEMESSAGEBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_IDEMESSAGEBOX_STRING1_SEP->chr,0,1); -} -int32 *_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES=NULL; -if(_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES==NULL){ -_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES=(int32*)mem_static_malloc(4); -*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES=0; -} -ptrszint *_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE=NULL; -if (!_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE){ -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE)[8]=(ptrszint)mem_lock_tmp; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]=0; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]=2147483647; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]=0; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[6]=0; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)¬hingstring; -} -int32 *_SUB_IDEMESSAGEBOX_LONG_PREVSCAN=NULL; -if(_SUB_IDEMESSAGEBOX_LONG_PREVSCAN==NULL){ -_SUB_IDEMESSAGEBOX_LONG_PREVSCAN=(int32*)mem_static_malloc(4); -*_SUB_IDEMESSAGEBOX_LONG_PREVSCAN=0; -} -int32 *_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN=NULL; -if(_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN==NULL){ -_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN=(int32*)mem_static_malloc(4); -*_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN=0; -} -int32 *_SUB_IDEMESSAGEBOX_LONG_TW=NULL; -if(_SUB_IDEMESSAGEBOX_LONG_TW==NULL){ -_SUB_IDEMESSAGEBOX_LONG_TW=(int32*)mem_static_malloc(4); -*_SUB_IDEMESSAGEBOX_LONG_TW=0; -} -byte_element_struct *byte_element_5234=NULL; -if (!byte_element_5234){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEYESNOBOX_STRING_TITLESTR->fixed||_FUNC_IDEYESNOBOX_STRING_TITLESTR->readonly){ -oldstr5251=_FUNC_IDEYESNOBOX_STRING_TITLESTR; -if (oldstr5251->cmem_descriptor){ -_FUNC_IDEYESNOBOX_STRING_TITLESTR=qbs_new_cmem(oldstr5251->len,0); -}else{ -_FUNC_IDEYESNOBOX_STRING_TITLESTR=qbs_new(oldstr5251->len,0); -} -memcpy(_FUNC_IDEYESNOBOX_STRING_TITLESTR->chr,oldstr5251->chr,oldstr5251->len); -} -qbs*oldstr5252=NULL; -if(_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->tmp||_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->fixed||_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->readonly){ -oldstr5252=_FUNC_IDEYESNOBOX_STRING_MESSAGESTR; -if (oldstr5252->cmem_descriptor){ -_FUNC_IDEYESNOBOX_STRING_MESSAGESTR=qbs_new_cmem(oldstr5252->len,0); -}else{ -_FUNC_IDEYESNOBOX_STRING_MESSAGESTR=qbs_new(oldstr5252->len,0); -} -memcpy(_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->chr,oldstr5252->chr,oldstr5252->len); -} -int32 *_FUNC_IDEYESNOBOX_LONG_FOCUS=NULL; -if(_FUNC_IDEYESNOBOX_LONG_FOCUS==NULL){ -_FUNC_IDEYESNOBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEYESNOBOX_LONG_FOCUS=0; -} -void *_FUNC_IDEYESNOBOX_UDT_P=NULL; -if(_FUNC_IDEYESNOBOX_UDT_P==NULL){ -_FUNC_IDEYESNOBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEYESNOBOX_UDT_P,0,20); -} -ptrszint *_FUNC_IDEYESNOBOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEYESNOBOX_ARRAY_UDT_O){ -_FUNC_IDEYESNOBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDEYESNOBOX_STRING1_SEP=NULL; -if(_FUNC_IDEYESNOBOX_STRING1_SEP==NULL){ -_FUNC_IDEYESNOBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEYESNOBOX_STRING1_SEP->chr,0,1); -} -int32 *_FUNC_IDEYESNOBOX_LONG_I=NULL; -if(_FUNC_IDEYESNOBOX_LONG_I==NULL){ -_FUNC_IDEYESNOBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEYESNOBOX_LONG_I=0; -} -int32 *_FUNC_IDEYESNOBOX_LONG_W=NULL; -if(_FUNC_IDEYESNOBOX_LONG_W==NULL){ -_FUNC_IDEYESNOBOX_LONG_W=(int32*)mem_static_malloc(4); -*_FUNC_IDEYESNOBOX_LONG_W=0; -} -byte_element_struct *byte_element_5253=NULL; -if (!byte_element_5253){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEZCHANGEPATH_STRING_PATH->fixed||_FUNC_IDEZCHANGEPATH_STRING_PATH->readonly){ +oldstr5695=_FUNC_IDEZCHANGEPATH_STRING_PATH; +if (oldstr5695->cmem_descriptor){ +_FUNC_IDEZCHANGEPATH_STRING_PATH=qbs_new_cmem(oldstr5695->len,0); +}else{ +_FUNC_IDEZCHANGEPATH_STRING_PATH=qbs_new(oldstr5695->len,0); } -int32 *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=NULL; -if(_FUNC_IDEDISPLAYBOX_LONG_FOCUS==NULL){ -_FUNC_IDEDISPLAYBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=0; +memcpy(_FUNC_IDEZCHANGEPATH_STRING_PATH->chr,oldstr5695->chr,oldstr5695->len); } -void *_FUNC_IDEDISPLAYBOX_UDT_P=NULL; -if(_FUNC_IDEDISPLAYBOX_UDT_P==NULL){ -_FUNC_IDEDISPLAYBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEDISPLAYBOX_UDT_P,0,20); +qbs*oldstr5696=NULL; +if(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->tmp||_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->fixed||_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->readonly){ +oldstr5696=_FUNC_IDEZCHANGEPATH_STRING_NEWPATH; +if (oldstr5696->cmem_descriptor){ +_FUNC_IDEZCHANGEPATH_STRING_NEWPATH=qbs_new_cmem(oldstr5696->len,0); +}else{ +_FUNC_IDEZCHANGEPATH_STRING_NEWPATH=qbs_new(oldstr5696->len,0); } -ptrszint *_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O){ -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +memcpy(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->chr,oldstr5696->chr,oldstr5696->len); } -qbs *_FUNC_IDEDISPLAYBOX_STRING1_SEP=NULL; -if(_FUNC_IDEDISPLAYBOX_STRING1_SEP==NULL){ -_FUNC_IDEDISPLAYBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEDISPLAYBOX_STRING1_SEP->chr,0,1); +int32 *_FUNC_IDEZCHANGEPATH_LONG_X=NULL; +if(_FUNC_IDEZCHANGEPATH_LONG_X==NULL){ +_FUNC_IDEZCHANGEPATH_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_IDEZCHANGEPATH_LONG_X=0; } -int32 *_FUNC_IDEDISPLAYBOX_LONG_I=NULL; -if(_FUNC_IDEDISPLAYBOX_LONG_I==NULL){ -_FUNC_IDEDISPLAYBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEDISPLAYBOX_LONG_I=0; +int64 fornext_value5698; +int64 fornext_finalvalue5698; +int64 fornext_step5698; +uint8 fornext_step_negative5698; +byte_element_struct *byte_element_5699=NULL; +if (!byte_element_5699){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]=0; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4]=2147483647; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]=0; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[6]=0; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]=(ptrszint)¬hingstring; -} -int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=NULL; -if(_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS==NULL){ -_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=0; -} -void *_FUNC_IDECHOOSECOLORSBOX_UDT_P=NULL; -if(_FUNC_IDECHOOSECOLORSBOX_UDT_P==NULL){ -_FUNC_IDECHOOSECOLORSBOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDECHOOSECOLORSBOX_UDT_P,0,20); -} -ptrszint *_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O){ -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP=NULL; -if(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP==NULL){ -_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP->chr,0,1); -} -int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_I=NULL; -if(_FUNC_IDECHOOSECOLORSBOX_LONG_I==NULL){ -_FUNC_IDECHOOSECOLORSBOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=0; -} -int32 pass5301; -int32 pass5302; -qbs *_FUNC_IDECHOOSECOLORSBOX_STRING_L=NULL; -if (!_FUNC_IDECHOOSECOLORSBOX_STRING_L)_FUNC_IDECHOOSECOLORSBOX_STRING_L=qbs_new(0,0); -int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=NULL; -if(_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==NULL){ -_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=(int32*)mem_static_malloc(4); -*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=0; -} -int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=NULL; -if(_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS==NULL){ -_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=0; -} -qbs *_FUNC_IDECHOOSECOLORSBOX_STRING_A2=NULL; -if (!_FUNC_IDECHOOSECOLORSBOX_STRING_A2)_FUNC_IDECHOOSECOLORSBOX_STRING_A2=qbs_new(0,0); -int32 pass5303; -byte_element_struct *byte_element_5304=NULL; -if (!byte_element_5304){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEZFILELIST_STRING_PATH->fixed||_FUNC_IDEZFILELIST_STRING_PATH->readonly){ +oldstr5704=_FUNC_IDEZFILELIST_STRING_PATH; +if (oldstr5704->cmem_descriptor){ +_FUNC_IDEZFILELIST_STRING_PATH=qbs_new_cmem(oldstr5704->len,0); +}else{ +_FUNC_IDEZFILELIST_STRING_PATH=qbs_new(oldstr5704->len,0); +} +memcpy(_FUNC_IDEZFILELIST_STRING_PATH->chr,oldstr5704->chr,oldstr5704->len); +} +qbs*oldstr5705=NULL; +if(_FUNC_IDEZFILELIST_STRING_MASK->tmp||_FUNC_IDEZFILELIST_STRING_MASK->fixed||_FUNC_IDEZFILELIST_STRING_MASK->readonly){ +oldstr5705=_FUNC_IDEZFILELIST_STRING_MASK; +if (oldstr5705->cmem_descriptor){ +_FUNC_IDEZFILELIST_STRING_MASK=qbs_new_cmem(oldstr5705->len,0); +}else{ +_FUNC_IDEZFILELIST_STRING_MASK=qbs_new(oldstr5705->len,0); +} +memcpy(_FUNC_IDEZFILELIST_STRING_MASK->chr,oldstr5705->chr,oldstr5705->len); +} +qbs *_FUNC_IDEZFILELIST_STRING1_SEP=NULL; +if(_FUNC_IDEZFILELIST_STRING1_SEP==NULL){ +_FUNC_IDEZFILELIST_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEZFILELIST_STRING1_SEP->chr,0,1); +} +qbs *_FUNC_IDEZFILELIST_STRING_FILELIST=NULL; +if (!_FUNC_IDEZFILELIST_STRING_FILELIST)_FUNC_IDEZFILELIST_STRING_FILELIST=qbs_new(0,0); +qbs *_FUNC_IDEZFILELIST_STRING_A=NULL; +if (!_FUNC_IDEZFILELIST_STRING_A)_FUNC_IDEZFILELIST_STRING_A=qbs_new(0,0); +byte_element_struct *byte_element_5708=NULL; +if (!byte_element_5708){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]=0; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]=0; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[6]=0; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDECOLORPICKER_STRING1_SEP=NULL; -if(_FUNC_IDECOLORPICKER_STRING1_SEP==NULL){ -_FUNC_IDECOLORPICKER_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDECOLORPICKER_STRING1_SEP->chr,0,1); -} -int32 *_FUNC_IDECOLORPICKER_LONG_I=NULL; -if(_FUNC_IDECOLORPICKER_LONG_I==NULL){ -_FUNC_IDECOLORPICKER_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDECOLORPICKER_LONG_I=0; -} -int32 pass5395; -int32 pass5396; -qbs *_FUNC_IDECOLORPICKER_STRING_A2=NULL; -if (!_FUNC_IDECOLORPICKER_STRING_A2)_FUNC_IDECOLORPICKER_STRING_A2=qbs_new(0,0); -byte_element_struct *byte_element_5397=NULL; -if (!byte_element_5397){ -if ((mem_static_pointer+=12)tmp||_FUNC_COUNTITEMS_STRING_SEARCHSTRING->fixed||_FUNC_COUNTITEMS_STRING_SEARCHSTRING->readonly){ -oldstr5460=_FUNC_COUNTITEMS_STRING_SEARCHSTRING; -if (oldstr5460->cmem_descriptor){ -_FUNC_COUNTITEMS_STRING_SEARCHSTRING=qbs_new_cmem(oldstr5460->len,0); +qbs *_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST=NULL; +if (!_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST)_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST=qbs_new(0,0); +qbs*oldstr5720=NULL; +if(_FUNC_IDEZPATHLIST_STRING_PATH->tmp||_FUNC_IDEZPATHLIST_STRING_PATH->fixed||_FUNC_IDEZPATHLIST_STRING_PATH->readonly){ +oldstr5720=_FUNC_IDEZPATHLIST_STRING_PATH; +if (oldstr5720->cmem_descriptor){ +_FUNC_IDEZPATHLIST_STRING_PATH=qbs_new_cmem(oldstr5720->len,0); }else{ -_FUNC_COUNTITEMS_STRING_SEARCHSTRING=qbs_new(oldstr5460->len,0); +_FUNC_IDEZPATHLIST_STRING_PATH=qbs_new(oldstr5720->len,0); } -memcpy(_FUNC_COUNTITEMS_STRING_SEARCHSTRING->chr,oldstr5460->chr,oldstr5460->len); +memcpy(_FUNC_IDEZPATHLIST_STRING_PATH->chr,oldstr5720->chr,oldstr5720->len); } -qbs*oldstr5461=NULL; -if(_FUNC_COUNTITEMS_STRING_ITEM->tmp||_FUNC_COUNTITEMS_STRING_ITEM->fixed||_FUNC_COUNTITEMS_STRING_ITEM->readonly){ -oldstr5461=_FUNC_COUNTITEMS_STRING_ITEM; -if (oldstr5461->cmem_descriptor){ -_FUNC_COUNTITEMS_STRING_ITEM=qbs_new_cmem(oldstr5461->len,0); -}else{ -_FUNC_COUNTITEMS_STRING_ITEM=qbs_new(oldstr5461->len,0); +qbs *_FUNC_IDEZPATHLIST_STRING1_SEP=NULL; +if(_FUNC_IDEZPATHLIST_STRING1_SEP==NULL){ +_FUNC_IDEZPATHLIST_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEZPATHLIST_STRING1_SEP->chr,0,1); } -memcpy(_FUNC_COUNTITEMS_STRING_ITEM->chr,oldstr5461->chr,oldstr5461->len); +qbs *_FUNC_IDEZPATHLIST_STRING_A=NULL; +if (!_FUNC_IDEZPATHLIST_STRING_A)_FUNC_IDEZPATHLIST_STRING_A=qbs_new(0,0); +qbs *_FUNC_IDEZPATHLIST_STRING_PATHLIST=NULL; +if (!_FUNC_IDEZPATHLIST_STRING_PATHLIST)_FUNC_IDEZPATHLIST_STRING_PATHLIST=qbs_new(0,0); +int32 *_FUNC_IDEZPATHLIST_LONG_C=NULL; +if(_FUNC_IDEZPATHLIST_LONG_C==NULL){ +_FUNC_IDEZPATHLIST_LONG_C=(int32*)mem_static_malloc(4); +*_FUNC_IDEZPATHLIST_LONG_C=0; } -int32 *_FUNC_COUNTITEMS_LONG_FOUND=NULL; -if(_FUNC_COUNTITEMS_LONG_FOUND==NULL){ -_FUNC_COUNTITEMS_LONG_FOUND=(int32*)mem_static_malloc(4); -*_FUNC_COUNTITEMS_LONG_FOUND=0; +int32 *_FUNC_IDEZPATHLIST_LONG_X=NULL; +if(_FUNC_IDEZPATHLIST_LONG_X==NULL){ +_FUNC_IDEZPATHLIST_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_IDEZPATHLIST_LONG_X=0; } -int32 *_FUNC_COUNTITEMS_LONG_TOTAL=NULL; -if(_FUNC_COUNTITEMS_LONG_TOTAL==NULL){ -_FUNC_COUNTITEMS_LONG_TOTAL=(int32*)mem_static_malloc(4); -*_FUNC_COUNTITEMS_LONG_TOTAL=0; +int64 fornext_value5724; +int64 fornext_finalvalue5724; +int64 fornext_step5724; +uint8 fornext_step_negative5724; +byte_element_struct *byte_element_5725=NULL; +if (!byte_element_5725){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDEZTAKEPATH_STRING_F->fixed||_FUNC_IDEZTAKEPATH_STRING_F->readonly){ +oldstr5737=_FUNC_IDEZTAKEPATH_STRING_F; +if (oldstr5737->cmem_descriptor){ +_FUNC_IDEZTAKEPATH_STRING_F=qbs_new_cmem(oldstr5737->len,0); +}else{ +_FUNC_IDEZTAKEPATH_STRING_F=qbs_new(oldstr5737->len,0); +} +memcpy(_FUNC_IDEZTAKEPATH_STRING_F->chr,oldstr5737->chr,oldstr5737->len); +} +qbs *_FUNC_IDEZTAKEPATH_STRING_P=NULL; +if (!_FUNC_IDEZTAKEPATH_STRING_P)_FUNC_IDEZTAKEPATH_STRING_P=qbs_new(0,0); +int32 *_FUNC_IDEZTAKEPATH_LONG_I=NULL; +if(_FUNC_IDEZTAKEPATH_LONG_I==NULL){ +_FUNC_IDEZTAKEPATH_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEZTAKEPATH_LONG_I=0; +} +int64 fornext_value5739; +int64 fornext_finalvalue5739; +int64 fornext_step5739; +uint8 fornext_step_negative5739; +byte_element_struct *byte_element_5740=NULL; +if (!byte_element_5740){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDEZGETFILEPATH_STRING_ROOT->fixed||_FUNC_IDEZGETFILEPATH_STRING_ROOT->readonly){ +oldstr5742=_FUNC_IDEZGETFILEPATH_STRING_ROOT; +if (oldstr5742->cmem_descriptor){ +_FUNC_IDEZGETFILEPATH_STRING_ROOT=qbs_new_cmem(oldstr5742->len,0); +}else{ +_FUNC_IDEZGETFILEPATH_STRING_ROOT=qbs_new(oldstr5742->len,0); } +memcpy(_FUNC_IDEZGETFILEPATH_STRING_ROOT->chr,oldstr5742->chr,oldstr5742->len); +} +qbs*oldstr5743=NULL; +if(_FUNC_IDEZGETFILEPATH_STRING_F->tmp||_FUNC_IDEZGETFILEPATH_STRING_F->fixed||_FUNC_IDEZGETFILEPATH_STRING_F->readonly){ +oldstr5743=_FUNC_IDEZGETFILEPATH_STRING_F; +if (oldstr5743->cmem_descriptor){ +_FUNC_IDEZGETFILEPATH_STRING_F=qbs_new_cmem(oldstr5743->len,0); +}else{ +_FUNC_IDEZGETFILEPATH_STRING_F=qbs_new(oldstr5743->len,0); +} +memcpy(_FUNC_IDEZGETFILEPATH_STRING_F->chr,oldstr5743->chr,oldstr5743->len); +} +qbs *_FUNC_IDEZGETFILEPATH_STRING_P=NULL; +if (!_FUNC_IDEZGETFILEPATH_STRING_P)_FUNC_IDEZGETFILEPATH_STRING_P=qbs_new(0,0); +byte_element_struct *byte_element_5744=NULL; +if (!byte_element_5744){ +if ((mem_static_pointer+=12)tmp||_FUNC_FIXOPERATIONORDER_STRING_SAVEA->fixed||_FUNC_FIXOPERATIONORDER_STRING_SAVEA->readonly){ -oldstr2578=_FUNC_FIXOPERATIONORDER_STRING_SAVEA; -if (oldstr2578->cmem_descriptor){ -_FUNC_FIXOPERATIONORDER_STRING_SAVEA=qbs_new_cmem(oldstr2578->len,0); +int32 *_FUNC_FINDID_LONG_FINDID=NULL; +if(_FUNC_FINDID_LONG_FINDID==NULL){ +_FUNC_FINDID_LONG_FINDID=(int32*)mem_static_malloc(4); +*_FUNC_FINDID_LONG_FINDID=0; +} +qbs*oldstr2762=NULL; +if(_FUNC_FINDID_STRING_N2->tmp||_FUNC_FINDID_STRING_N2->fixed||_FUNC_FINDID_STRING_N2->readonly){ +oldstr2762=_FUNC_FINDID_STRING_N2; +if (oldstr2762->cmem_descriptor){ +_FUNC_FINDID_STRING_N2=qbs_new_cmem(oldstr2762->len,0); }else{ -_FUNC_FIXOPERATIONORDER_STRING_SAVEA=qbs_new(oldstr2578->len,0); -} -memcpy(_FUNC_FIXOPERATIONORDER_STRING_SAVEA->chr,oldstr2578->chr,oldstr2578->len); -} -qbs *_FUNC_FIXOPERATIONORDER_STRING_A=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_A)_FUNC_FIXOPERATIONORDER_STRING_A=qbs_new(0,0); -int32 *_FUNC_FIXOPERATIONORDER_LONG_N=NULL; -if(_FUNC_FIXOPERATIONORDER_LONG_N==NULL){ -_FUNC_FIXOPERATIONORDER_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_FIXOPERATIONORDER_LONG_N=0; -} -qbs *_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA)_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA=qbs_new(0,0); -int32 *_FUNC_FIXOPERATIONORDER_LONG_I=NULL; -if(_FUNC_FIXOPERATIONORDER_LONG_I==NULL){ -_FUNC_FIXOPERATIONORDER_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_FIXOPERATIONORDER_LONG_I=0; -} -int64 fornext_value2581; -int64 fornext_finalvalue2581; -int64 fornext_step2581; -uint8 fornext_step_negative2581; -qbs *_FUNC_FIXOPERATIONORDER_STRING_TEMP1=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_TEMP1)_FUNC_FIXOPERATIONORDER_STRING_TEMP1=qbs_new(0,0); -qbs *_FUNC_FIXOPERATIONORDER_STRING_TEMP2=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_TEMP2)_FUNC_FIXOPERATIONORDER_STRING_TEMP2=qbs_new(0,0); -int32 pass2582; -int32 *_FUNC_FIXOPERATIONORDER_LONG_B=NULL; -if(_FUNC_FIXOPERATIONORDER_LONG_B==NULL){ -_FUNC_FIXOPERATIONORDER_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_FIXOPERATIONORDER_LONG_B=0; -} -qbs *_FUNC_FIXOPERATIONORDER_STRING_A2=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_A2)_FUNC_FIXOPERATIONORDER_STRING_A2=qbs_new(0,0); -qbs *_FUNC_FIXOPERATIONORDER_STRING_B1=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_B1)_FUNC_FIXOPERATIONORDER_STRING_B1=qbs_new(0,0); -qbs *_FUNC_FIXOPERATIONORDER_STRING_B2=NULL; -if (!_FUNC_FIXOPERATIONORDER_STRING_B2)_FUNC_FIXOPERATIONORDER_STRING_B2=qbs_new(0,0); -int32 *_FUNC_FIXOPERATIONORDER_LONG_I1=NULL; -if(_FUNC_FIXOPERATIONORDER_LONG_I1==NULL){ -_FUNC_FIXOPERATIONORDER_LONG_I1=(int32*)mem_static_malloc(4); -*_FUNC_FIXOPERATIONORDER_LONG_I1=0; -} -int32 *_FUNC_FIXOPERATIONORDER_LONG_I2=NULL; -if(_FUNC_FIXOPERATIONORDER_LONG_I2==NULL){ -_FUNC_FIXOPERATIONORDER_LONG_I2=(int32*)mem_static_malloc(4); -*_FUNC_FIXOPERATIONORDER_LONG_I2=0; -} -int32 *_FUNC_FIXOPERATIONORDER_LONG_I3=NULL; -if(_FUNC_FIXOPERATIONORDER_LONG_I3==NULL){ -_FUNC_FIXOPERATIONORDER_LONG_I3=(int32*)mem_static_malloc(4); -*_FUNC_FIXOPERATIONORDER_LONG_I3=0; -} -byte_element_struct *byte_element_2583=NULL; -if (!byte_element_2583){ -if ((mem_static_pointer+=12)len,0); +} +memcpy(_FUNC_FINDID_STRING_N2->chr,oldstr2762->chr,oldstr2762->len); +} +qbs *_FUNC_FINDID_STRING_N=NULL; +if (!_FUNC_FINDID_STRING_N)_FUNC_FINDID_STRING_N=qbs_new(0,0); +qbs *_FUNC_FINDID_STRING_SECONDARG=NULL; +if (!_FUNC_FINDID_STRING_SECONDARG)_FUNC_FINDID_STRING_SECONDARG=qbs_new(0,0); +int32 *_FUNC_FINDID_LONG_FINDANOTHER=NULL; +if(_FUNC_FINDID_LONG_FINDANOTHER==NULL){ +_FUNC_FINDID_LONG_FINDANOTHER=(int32*)mem_static_malloc(4); +*_FUNC_FINDID_LONG_FINDANOTHER=0; +} +int32 *_FUNC_FINDID_LONG_I=NULL; +if(_FUNC_FINDID_LONG_I==NULL){ +_FUNC_FINDID_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_FINDID_LONG_I=0; +} +qbs *_FUNC_FINDID_STRING_SC=NULL; +if (!_FUNC_FINDID_STRING_SC)_FUNC_FINDID_STRING_SC=qbs_new(0,0); +byte_element_struct *byte_element_2763=NULL; +if (!byte_element_2763){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDELAYOUTBOX_STRING1_SEP=NULL; +if(_FUNC_IDELAYOUTBOX_STRING1_SEP==NULL){ +_FUNC_IDELAYOUTBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDELAYOUTBOX_STRING1_SEP->chr,0,1); +} +int32 *_FUNC_IDELAYOUTBOX_LONG_I=NULL; +if(_FUNC_IDELAYOUTBOX_LONG_I==NULL){ +_FUNC_IDELAYOUTBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDELAYOUTBOX_LONG_I=0; +} +int32 pass5745; +int32 pass5746; +int32 *_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID=NULL; +if(_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID==NULL){ +_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID=(int32*)mem_static_malloc(4); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID=0; +} +int32 *_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID=NULL; +if(_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID==NULL){ +_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID=(int32*)mem_static_malloc(4); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID=0; +} +int32 *_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID=NULL; +if(_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID==NULL){ +_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID=(int32*)mem_static_malloc(4); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID=0; +} +qbs *_FUNC_IDELAYOUTBOX_STRING_A2=NULL; +if (!_FUNC_IDELAYOUTBOX_STRING_A2)_FUNC_IDELAYOUTBOX_STRING_A2=qbs_new(0,0); +int32 *_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID=NULL; +if(_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID==NULL){ +_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID=(int32*)mem_static_malloc(4); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID=0; +} +byte_element_struct *byte_element_5747=NULL; +if (!byte_element_5747){ +if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_FUNC_IDESEARCHEDBOX_STRING1_SEP=NULL; -if(_FUNC_IDESEARCHEDBOX_STRING1_SEP==NULL){ -_FUNC_IDESEARCHEDBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDESEARCHEDBOX_STRING1_SEP->chr,0,1); -} -int32 *_FUNC_IDESEARCHEDBOX_LONG_LN=NULL; -if(_FUNC_IDESEARCHEDBOX_LONG_LN==NULL){ -_FUNC_IDESEARCHEDBOX_LONG_LN=(int32*)mem_static_malloc(4); -*_FUNC_IDESEARCHEDBOX_LONG_LN=0; -} -qbs *_FUNC_IDESEARCHEDBOX_STRING_L=NULL; -if (!_FUNC_IDESEARCHEDBOX_STRING_L)_FUNC_IDESEARCHEDBOX_STRING_L=qbs_new(0,0); -int32 *_FUNC_IDESEARCHEDBOX_LONG_FH=NULL; -if(_FUNC_IDESEARCHEDBOX_LONG_FH==NULL){ -_FUNC_IDESEARCHEDBOX_LONG_FH=(int32*)mem_static_malloc(4); -*_FUNC_IDESEARCHEDBOX_LONG_FH=0; -} -qbs *_FUNC_IDESEARCHEDBOX_STRING_A=NULL; -if (!_FUNC_IDESEARCHEDBOX_STRING_A)_FUNC_IDESEARCHEDBOX_STRING_A=qbs_new(0,0); -byte_element_struct *byte_element_5476=NULL; -if (!byte_element_5476){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEIMPORTBOOKMARKS_STRING_F2->fixed||_SUB_IDEIMPORTBOOKMARKS_STRING_F2->readonly){ -oldstr5492=_SUB_IDEIMPORTBOOKMARKS_STRING_F2; -if (oldstr5492->cmem_descriptor){ -_SUB_IDEIMPORTBOOKMARKS_STRING_F2=qbs_new_cmem(oldstr5492->len,0); -}else{ -_SUB_IDEIMPORTBOOKMARKS_STRING_F2=qbs_new(oldstr5492->len,0); -} -memcpy(_SUB_IDEIMPORTBOOKMARKS_STRING_F2->chr,oldstr5492->chr,oldstr5492->len); -} -qbs *_SUB_IDEIMPORTBOOKMARKS_STRING_F=NULL; -if (!_SUB_IDEIMPORTBOOKMARKS_STRING_F)_SUB_IDEIMPORTBOOKMARKS_STRING_F=qbs_new(0,0); -int32 *_SUB_IDEIMPORTBOOKMARKS_LONG_FH=NULL; -if(_SUB_IDEIMPORTBOOKMARKS_LONG_FH==NULL){ -_SUB_IDEIMPORTBOOKMARKS_LONG_FH=(int32*)mem_static_malloc(4); -*_SUB_IDEIMPORTBOOKMARKS_LONG_FH=0; -} -qbs *_SUB_IDEIMPORTBOOKMARKS_STRING_A=NULL; -if (!_SUB_IDEIMPORTBOOKMARKS_STRING_A)_SUB_IDEIMPORTBOOKMARKS_STRING_A=qbs_new(0,0); -int32 *_SUB_IDEIMPORTBOOKMARKS_LONG_X=NULL; -if(_SUB_IDEIMPORTBOOKMARKS_LONG_X==NULL){ -_SUB_IDEIMPORTBOOKMARKS_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEIMPORTBOOKMARKS_LONG_X=0; -} -int32 *_SUB_IDEIMPORTBOOKMARKS_LONG_L=NULL; -if(_SUB_IDEIMPORTBOOKMARKS_LONG_L==NULL){ -_SUB_IDEIMPORTBOOKMARKS_LONG_L=(int32*)mem_static_malloc(4); -*_SUB_IDEIMPORTBOOKMARKS_LONG_L=0; -} -byte_element_struct *byte_element_5493=NULL; -if (!byte_element_5493){ -if ((mem_static_pointer+=12)tmp||_SUB_IDESAVEBOOKMARKS_STRING_F2->fixed||_SUB_IDESAVEBOOKMARKS_STRING_F2->readonly){ -oldstr5497=_SUB_IDESAVEBOOKMARKS_STRING_F2; -if (oldstr5497->cmem_descriptor){ -_SUB_IDESAVEBOOKMARKS_STRING_F2=qbs_new_cmem(oldstr5497->len,0); +int32 *_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX=NULL; +if(_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX==NULL){ +_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX=(int32*)mem_static_malloc(4); +*_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX=0; +} +qbs*oldstr5772=NULL; +if(_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE->tmp||_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE->fixed||_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE->readonly){ +oldstr5772=_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE; +if (oldstr5772->cmem_descriptor){ +_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE=qbs_new_cmem(oldstr5772->len,0); }else{ -_SUB_IDESAVEBOOKMARKS_STRING_F2=qbs_new(oldstr5497->len,0); +_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE=qbs_new(oldstr5772->len,0); } -memcpy(_SUB_IDESAVEBOOKMARKS_STRING_F2->chr,oldstr5497->chr,oldstr5497->len); +memcpy(_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE->chr,oldstr5772->chr,oldstr5772->len); } -qbs *_SUB_IDESAVEBOOKMARKS_STRING_F=NULL; -if (!_SUB_IDESAVEBOOKMARKS_STRING_F)_SUB_IDESAVEBOOKMARKS_STRING_F=qbs_new(0,0); -int32 *_SUB_IDESAVEBOOKMARKS_LONG_FH=NULL; -if(_SUB_IDESAVEBOOKMARKS_LONG_FH==NULL){ -_SUB_IDESAVEBOOKMARKS_LONG_FH=(int32*)mem_static_malloc(4); -*_SUB_IDESAVEBOOKMARKS_LONG_FH=0; -} -qbs *_SUB_IDESAVEBOOKMARKS_STRING_A=NULL; -if (!_SUB_IDESAVEBOOKMARKS_STRING_A)_SUB_IDESAVEBOOKMARKS_STRING_A=qbs_new(0,0); -int32 *_SUB_IDESAVEBOOKMARKS_LONG_X=NULL; -if(_SUB_IDESAVEBOOKMARKS_LONG_X==NULL){ -_SUB_IDESAVEBOOKMARKS_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDESAVEBOOKMARKS_LONG_X=0; -} -int32 *_SUB_IDESAVEBOOKMARKS_LONG_L=NULL; -if(_SUB_IDESAVEBOOKMARKS_LONG_L==NULL){ -_SUB_IDESAVEBOOKMARKS_LONG_L=(int32*)mem_static_malloc(4); -*_SUB_IDESAVEBOOKMARKS_LONG_L=0; -} -byte_element_struct *byte_element_5498=NULL; -if (!byte_element_5498){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]=0; -_FUNC_IDERECENTBOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]=0; -_FUNC_IDERECENTBOX_ARRAY_UDT_O[6]=0; -_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -qbs *_FUNC_IDERECENTBOX_STRING1_SEP=NULL; -if(_FUNC_IDERECENTBOX_STRING1_SEP==NULL){ -_FUNC_IDERECENTBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDERECENTBOX_STRING1_SEP->chr,0,1); +qbs *_FUNC_IDEADVANCEDBOX_STRING1_SEP=NULL; +if(_FUNC_IDEADVANCEDBOX_STRING1_SEP==NULL){ +_FUNC_IDEADVANCEDBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEADVANCEDBOX_STRING1_SEP->chr,0,1); } -qbs *_FUNC_IDERECENTBOX_STRING_L=NULL; -if (!_FUNC_IDERECENTBOX_STRING_L)_FUNC_IDERECENTBOX_STRING_L=qbs_new(0,0); -int32 *_FUNC_IDERECENTBOX_LONG_FH=NULL; -if(_FUNC_IDERECENTBOX_LONG_FH==NULL){ -_FUNC_IDERECENTBOX_LONG_FH=(int32*)mem_static_malloc(4); -*_FUNC_IDERECENTBOX_LONG_FH=0; +ptrszint *_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT=NULL; +if (!_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT){ +_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]=0; +_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]=2147483647; +_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]=0; +_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[6]=0; +_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]=(ptrszint)¬hingstring; } -qbs *_FUNC_IDERECENTBOX_STRING_A=NULL; -if (!_FUNC_IDERECENTBOX_STRING_A)_FUNC_IDERECENTBOX_STRING_A=qbs_new(0,0); -byte_element_struct *byte_element_5505=NULL; -if (!byte_element_5505){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEMESSAGEBOX_STRING_TITLESTR->fixed||_FUNC_IDEMESSAGEBOX_STRING_TITLESTR->readonly){ +oldstr5789=_FUNC_IDEMESSAGEBOX_STRING_TITLESTR; +if (oldstr5789->cmem_descriptor){ +_FUNC_IDEMESSAGEBOX_STRING_TITLESTR=qbs_new_cmem(oldstr5789->len,0); +}else{ +_FUNC_IDEMESSAGEBOX_STRING_TITLESTR=qbs_new(oldstr5789->len,0); } -int32 *_SUB_IDEMAKEFILEMENU_LONG_FH=NULL; -if(_SUB_IDEMAKEFILEMENU_LONG_FH==NULL){ -_SUB_IDEMAKEFILEMENU_LONG_FH=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEFILEMENU_LONG_FH=0; +memcpy(_FUNC_IDEMESSAGEBOX_STRING_TITLESTR->chr,oldstr5789->chr,oldstr5789->len); } -qbs *_SUB_IDEMAKEFILEMENU_STRING_A=NULL; -if (!_SUB_IDEMAKEFILEMENU_STRING_A)_SUB_IDEMAKEFILEMENU_STRING_A=qbs_new(0,0); -byte_element_struct *byte_element_5522=NULL; -if (!byte_element_5522){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR->fixed||_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR->readonly){ +oldstr5790=_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR; +if (oldstr5790->cmem_descriptor){ +_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR=qbs_new_cmem(oldstr5790->len,0); +}else{ +_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR=qbs_new(oldstr5790->len,0); } -int32 *_SUB_IDEMAKEFILEMENU_LONG_R=NULL; -if(_SUB_IDEMAKEFILEMENU_LONG_R==NULL){ -_SUB_IDEMAKEFILEMENU_LONG_R=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEFILEMENU_LONG_R=0; +memcpy(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR->chr,oldstr5790->chr,oldstr5790->len); } -int64 fornext_value5524; -int64 fornext_finalvalue5524; -int64 fornext_step5524; -uint8 fornext_step_negative5524; -int32 *_SUB_IDEMAKEFILEMENU_LONG_AI=NULL; -if(_SUB_IDEMAKEFILEMENU_LONG_AI==NULL){ -_SUB_IDEMAKEFILEMENU_LONG_AI=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEFILEMENU_LONG_AI=0; +qbs*oldstr5791=NULL; +if(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->tmp||_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->fixed||_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->readonly){ +oldstr5791=_FUNC_IDEMESSAGEBOX_STRING_BUTTONS; +if (oldstr5791->cmem_descriptor){ +_FUNC_IDEMESSAGEBOX_STRING_BUTTONS=qbs_new_cmem(oldstr5791->len,0); +}else{ +_FUNC_IDEMESSAGEBOX_STRING_BUTTONS=qbs_new(oldstr5791->len,0); } -qbs *_SUB_IDEMAKEFILEMENU_STRING_F=NULL; -if (!_SUB_IDEMAKEFILEMENU_STRING_F)_SUB_IDEMAKEFILEMENU_STRING_F=qbs_new(0,0); -byte_element_struct *byte_element_5525=NULL; -if (!byte_element_5525){ -if ((mem_static_pointer+=12)chr,oldstr5791->chr,oldstr5791->len); } -byte_element_struct *byte_element_5526=NULL; -if (!byte_element_5526){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDEMESSAGEBOX_STRING1_SEP=NULL; +if(_FUNC_IDEMESSAGEBOX_STRING1_SEP==NULL){ +_FUNC_IDEMESSAGEBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEMESSAGEBOX_STRING1_SEP->chr,0,1); +} +int32 *_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=NULL; +if(_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES==NULL){ +_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=(int32*)mem_static_malloc(4); +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=0; +} +ptrszint *_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE=NULL; +if (!_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE){ +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]=0; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]=2147483647; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]=0; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[6]=0; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)¬hingstring; +} +int32 *_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=NULL; +if(_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN==NULL){ +_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=(int32*)mem_static_malloc(4); +*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=0; +} +int32 *_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=NULL; +if(_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN==NULL){ +_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=(int32*)mem_static_malloc(4); +*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=0; +} +int32 *_FUNC_IDEMESSAGEBOX_LONG_TW=NULL; +if(_FUNC_IDEMESSAGEBOX_LONG_TW==NULL){ +_FUNC_IDEMESSAGEBOX_LONG_TW=(int32*)mem_static_malloc(4); +*_FUNC_IDEMESSAGEBOX_LONG_TW=0; +} +byte_element_struct *byte_element_5793=NULL; +if (!byte_element_5793){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDEYESNOBOX_STRING_TITLESTR->fixed||_FUNC_IDEYESNOBOX_STRING_TITLESTR->readonly){ +oldstr5814=_FUNC_IDEYESNOBOX_STRING_TITLESTR; +if (oldstr5814->cmem_descriptor){ +_FUNC_IDEYESNOBOX_STRING_TITLESTR=qbs_new_cmem(oldstr5814->len,0); +}else{ +_FUNC_IDEYESNOBOX_STRING_TITLESTR=qbs_new(oldstr5814->len,0); } -int32 *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=NULL; -if(_SUB_IDEMAKECONTEXTUALMENU_LONG_I==NULL){ -_SUB_IDEMAKECONTEXTUALMENU_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=0; +memcpy(_FUNC_IDEYESNOBOX_STRING_TITLESTR->chr,oldstr5814->chr,oldstr5814->len); } -qbs *_SUB_IDEMAKECONTEXTUALMENU_STRING_A=NULL; -if (!_SUB_IDEMAKECONTEXTUALMENU_STRING_A)_SUB_IDEMAKECONTEXTUALMENU_STRING_A=qbs_new(0,0); -qbs *_SUB_IDEMAKECONTEXTUALMENU_STRING_A2=NULL; -if (!_SUB_IDEMAKECONTEXTUALMENU_STRING_A2)_SUB_IDEMAKECONTEXTUALMENU_STRING_A2=qbs_new(0,0); -int32 *_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=NULL; -if(_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1==NULL){ -_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=0; +qbs*oldstr5815=NULL; +if(_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->tmp||_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->fixed||_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->readonly){ +oldstr5815=_FUNC_IDEYESNOBOX_STRING_MESSAGESTR; +if (oldstr5815->cmem_descriptor){ +_FUNC_IDEYESNOBOX_STRING_MESSAGESTR=qbs_new_cmem(oldstr5815->len,0); +}else{ +_FUNC_IDEYESNOBOX_STRING_MESSAGESTR=qbs_new(oldstr5815->len,0); } -int32 *_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=NULL; -if(_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2==NULL){ -_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=0; +memcpy(_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->chr,oldstr5815->chr,oldstr5815->len); } -int32 *_SUB_IDEMAKECONTEXTUALMENU_LONG_X=NULL; -if(_SUB_IDEMAKECONTEXTUALMENU_LONG_X==NULL){ -_SUB_IDEMAKECONTEXTUALMENU_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=0; -} -int64 fornext_value5529; -int64 fornext_finalvalue5529; -int64 fornext_step5529; -uint8 fornext_step_negative5529; -byte_element_struct *byte_element_5530=NULL; -if (!byte_element_5530){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEACTIVITYBOX_STRING_ACTION->fixed||_FUNC_IDEACTIVITYBOX_STRING_ACTION->readonly){ +oldstr5816=_FUNC_IDEACTIVITYBOX_STRING_ACTION; +if (oldstr5816->cmem_descriptor){ +_FUNC_IDEACTIVITYBOX_STRING_ACTION=qbs_new_cmem(oldstr5816->len,0); +}else{ +_FUNC_IDEACTIVITYBOX_STRING_ACTION=qbs_new(oldstr5816->len,0); } -int32 *_SUB_IDEMAKEEDITMENU_LONG_I=NULL; -if(_SUB_IDEMAKEEDITMENU_LONG_I==NULL){ -_SUB_IDEMAKEEDITMENU_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEEDITMENU_LONG_I=0; +memcpy(_FUNC_IDEACTIVITYBOX_STRING_ACTION->chr,oldstr5816->chr,oldstr5816->len); } -qbs *_SUB_IDEMAKEEDITMENU_STRING_CLIP=NULL; -if (!_SUB_IDEMAKEEDITMENU_STRING_CLIP)_SUB_IDEMAKEEDITMENU_STRING_CLIP=qbs_new(0,0); -byte_element_struct *byte_element_5571=NULL; -if (!byte_element_5571){ -if ((mem_static_pointer+=12)tmp||_FUNC_IDEACTIVITYBOX_STRING_TITLESTR->fixed||_FUNC_IDEACTIVITYBOX_STRING_TITLESTR->readonly){ +oldstr5817=_FUNC_IDEACTIVITYBOX_STRING_TITLESTR; +if (oldstr5817->cmem_descriptor){ +_FUNC_IDEACTIVITYBOX_STRING_TITLESTR=qbs_new_cmem(oldstr5817->len,0); +}else{ +_FUNC_IDEACTIVITYBOX_STRING_TITLESTR=qbs_new(oldstr5817->len,0); } -int32 *_SUB_IDEMAKEEDITMENU_LONG_Y1=NULL; -if(_SUB_IDEMAKEEDITMENU_LONG_Y1==NULL){ -_SUB_IDEMAKEEDITMENU_LONG_Y1=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEEDITMENU_LONG_Y1=0; +memcpy(_FUNC_IDEACTIVITYBOX_STRING_TITLESTR->chr,oldstr5817->chr,oldstr5817->len); } -int32 *_SUB_IDEMAKEEDITMENU_LONG_Y2=NULL; -if(_SUB_IDEMAKEEDITMENU_LONG_Y2==NULL){ -_SUB_IDEMAKEEDITMENU_LONG_Y2=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEEDITMENU_LONG_Y2=0; +qbs*oldstr5818=NULL; +if(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR->tmp||_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR->fixed||_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR->readonly){ +oldstr5818=_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR; +if (oldstr5818->cmem_descriptor){ +_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR=qbs_new_cmem(oldstr5818->len,0); +}else{ +_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR=qbs_new(oldstr5818->len,0); } -qbs *_SUB_IDEMAKEEDITMENU_STRING_A=NULL; -if (!_SUB_IDEMAKEEDITMENU_STRING_A)_SUB_IDEMAKEEDITMENU_STRING_A=qbs_new(0,0); -qbs *_SUB_IDEMAKEEDITMENU_STRING_A2=NULL; -if (!_SUB_IDEMAKEEDITMENU_STRING_A2)_SUB_IDEMAKEEDITMENU_STRING_A2=qbs_new(0,0); -int32 *_SUB_IDEMAKEEDITMENU_LONG_SX1=NULL; -if(_SUB_IDEMAKEEDITMENU_LONG_SX1==NULL){ -_SUB_IDEMAKEEDITMENU_LONG_SX1=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEEDITMENU_LONG_SX1=0; +memcpy(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR->chr,oldstr5818->chr,oldstr5818->len); } -int32 *_SUB_IDEMAKEEDITMENU_LONG_SX2=NULL; -if(_SUB_IDEMAKEEDITMENU_LONG_SX2==NULL){ -_SUB_IDEMAKEEDITMENU_LONG_SX2=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEEDITMENU_LONG_SX2=0; +qbs*oldstr5819=NULL; +if(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->tmp||_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->fixed||_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->readonly){ +oldstr5819=_FUNC_IDEACTIVITYBOX_STRING_BUTTONS; +if (oldstr5819->cmem_descriptor){ +_FUNC_IDEACTIVITYBOX_STRING_BUTTONS=qbs_new_cmem(oldstr5819->len,0); +}else{ +_FUNC_IDEACTIVITYBOX_STRING_BUTTONS=qbs_new(oldstr5819->len,0); } -int32 *_SUB_IDEMAKEEDITMENU_LONG_X=NULL; -if(_SUB_IDEMAKEEDITMENU_LONG_X==NULL){ -_SUB_IDEMAKEEDITMENU_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEMAKEEDITMENU_LONG_X=0; +memcpy(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->chr,oldstr5819->chr,oldstr5819->len); } -int64 fornext_value5573; -int64 fornext_finalvalue5573; -int64 fornext_step5573; -uint8 fornext_step_negative5573; -byte_element_struct *byte_element_5574=NULL; -if (!byte_element_5574){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEADDRECENT_STRING_F2->fixed||_SUB_IDEADDRECENT_STRING_F2->readonly){ -oldstr5575=_SUB_IDEADDRECENT_STRING_F2; -if (oldstr5575->cmem_descriptor){ -_SUB_IDEADDRECENT_STRING_F2=qbs_new_cmem(oldstr5575->len,0); -}else{ -_SUB_IDEADDRECENT_STRING_F2=qbs_new(oldstr5575->len,0); +int32 *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX=NULL; +if(_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX==NULL){ +_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX=(int32*)mem_static_malloc(4); +*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX=0; } -memcpy(_SUB_IDEADDRECENT_STRING_F2->chr,oldstr5575->chr,oldstr5575->len); +int32 *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=NULL; +if(_FUNC_IDEDISPLAYBOX_LONG_FOCUS==NULL){ +_FUNC_IDEDISPLAYBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=0; } -qbs *_SUB_IDEADDRECENT_STRING_F=NULL; -if (!_SUB_IDEADDRECENT_STRING_F)_SUB_IDEADDRECENT_STRING_F=qbs_new(0,0); -int32 *_SUB_IDEADDRECENT_LONG_FH=NULL; -if(_SUB_IDEADDRECENT_LONG_FH==NULL){ -_SUB_IDEADDRECENT_LONG_FH=(int32*)mem_static_malloc(4); -*_SUB_IDEADDRECENT_LONG_FH=0; +void *_FUNC_IDEDISPLAYBOX_UDT_P=NULL; +if(_FUNC_IDEDISPLAYBOX_UDT_P==NULL){ +_FUNC_IDEDISPLAYBOX_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDEDISPLAYBOX_UDT_P,0,20); } -qbs *_SUB_IDEADDRECENT_STRING_A=NULL; -if (!_SUB_IDEADDRECENT_STRING_A)_SUB_IDEADDRECENT_STRING_A=qbs_new(0,0); -int32 *_SUB_IDEADDRECENT_LONG_X=NULL; -if(_SUB_IDEADDRECENT_LONG_X==NULL){ -_SUB_IDEADDRECENT_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEADDRECENT_LONG_X=0; +ptrszint *_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O=NULL; +if (!_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O){ +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -byte_element_struct *byte_element_5576=NULL; -if (!byte_element_5576){ -if ((mem_static_pointer+=12)chr,0,1); } -byte_element_struct *byte_element_5577=NULL; -if (!byte_element_5577){ -if ((mem_static_pointer+=12)tmp||_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->fixed||_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->readonly){ -oldstr2709=_FUNC_GETELEMENTSPECIAL_STRING_SAVEA; -if (oldstr2709->cmem_descriptor){ -_FUNC_GETELEMENTSPECIAL_STRING_SAVEA=qbs_new_cmem(oldstr2709->len,0); +int32 *_FUNC_FINDARRAY_LONG_FINDARRAY=NULL; +if(_FUNC_FINDARRAY_LONG_FINDARRAY==NULL){ +_FUNC_FINDARRAY_LONG_FINDARRAY=(int32*)mem_static_malloc(4); +*_FUNC_FINDARRAY_LONG_FINDARRAY=0; +} +qbs*oldstr2774=NULL; +if(_FUNC_FINDARRAY_STRING_SECURE->tmp||_FUNC_FINDARRAY_STRING_SECURE->fixed||_FUNC_FINDARRAY_STRING_SECURE->readonly){ +oldstr2774=_FUNC_FINDARRAY_STRING_SECURE; +if (oldstr2774->cmem_descriptor){ +_FUNC_FINDARRAY_STRING_SECURE=qbs_new_cmem(oldstr2774->len,0); }else{ -_FUNC_GETELEMENTSPECIAL_STRING_SAVEA=qbs_new(oldstr2709->len,0); +_FUNC_FINDARRAY_STRING_SECURE=qbs_new(oldstr2774->len,0); } -memcpy(_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->chr,oldstr2709->chr,oldstr2709->len); +memcpy(_FUNC_FINDARRAY_STRING_SECURE->chr,oldstr2774->chr,oldstr2774->len); } -qbs *_FUNC_GETELEMENTSPECIAL_STRING_A=NULL; -if (!_FUNC_GETELEMENTSPECIAL_STRING_A)_FUNC_GETELEMENTSPECIAL_STRING_A=qbs_new(0,0); -int32 *_FUNC_GETELEMENTSPECIAL_LONG_N=NULL; -if(_FUNC_GETELEMENTSPECIAL_LONG_N==NULL){ -_FUNC_GETELEMENTSPECIAL_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENTSPECIAL_LONG_N=0; +qbs *_FUNC_FINDARRAY_STRING_N=NULL; +if (!_FUNC_FINDARRAY_STRING_N)_FUNC_FINDARRAY_STRING_N=qbs_new(0,0); +int32 *_FUNC_FINDARRAY_LONG_I=NULL; +if(_FUNC_FINDARRAY_LONG_I==NULL){ +_FUNC_FINDARRAY_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_FINDARRAY_LONG_I=0; } -int32 *_FUNC_GETELEMENTSPECIAL_LONG_P=NULL; -if(_FUNC_GETELEMENTSPECIAL_LONG_P==NULL){ -_FUNC_GETELEMENTSPECIAL_LONG_P=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENTSPECIAL_LONG_P=0; +qbs *_FUNC_FINDARRAY_STRING_SC=NULL; +if (!_FUNC_FINDARRAY_STRING_SC)_FUNC_FINDARRAY_STRING_SC=qbs_new(0,0); +byte_element_struct *byte_element_2776=NULL; +if (!byte_element_2776){ +if ((mem_static_pointer+=12)tmp||_SUB_IDEADDSEARCHED_STRING_S2->fixed||_SUB_IDEADDSEARCHED_STRING_S2->readonly){ -oldstr5579=_SUB_IDEADDSEARCHED_STRING_S2; -if (oldstr5579->cmem_descriptor){ -_SUB_IDEADDSEARCHED_STRING_S2=qbs_new_cmem(oldstr5579->len,0); -}else{ -_SUB_IDEADDSEARCHED_STRING_S2=qbs_new(oldstr5579->len,0); +int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX==NULL){ +_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX=(int32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX=0; } -memcpy(_SUB_IDEADDSEARCHED_STRING_S2->chr,oldstr5579->chr,oldstr5579->len); +uint32 *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR==NULL){ +_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=(uint32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=0; } -qbs *_SUB_IDEADDSEARCHED_STRING_S=NULL; -if (!_SUB_IDEADDSEARCHED_STRING_S)_SUB_IDEADDSEARCHED_STRING_S=qbs_new(0,0); -int32 *_SUB_IDEADDSEARCHED_LONG_FH=NULL; -if(_SUB_IDEADDSEARCHED_LONG_FH==NULL){ -_SUB_IDEADDSEARCHED_LONG_FH=(int32*)mem_static_malloc(4); -*_SUB_IDEADDSEARCHED_LONG_FH=0; +uint32 *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR==NULL){ +_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=(uint32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=0; } -qbs *_SUB_IDEADDSEARCHED_STRING_A=NULL; -if (!_SUB_IDEADDSEARCHED_STRING_A)_SUB_IDEADDSEARCHED_STRING_A=qbs_new(0,0); -int32 *_SUB_IDEADDSEARCHED_LONG_X=NULL; -if(_SUB_IDEADDSEARCHED_LONG_X==NULL){ -_SUB_IDEADDSEARCHED_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_IDEADDSEARCHED_LONG_X=0; +uint32 *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR==NULL){ +_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=(uint32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=0; } -byte_element_struct *byte_element_5580=NULL; -if (!byte_element_5580){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]=0; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4]=2147483647; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]=0; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[6]=0; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]=(ptrszint)¬hingstring; +} +int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS==NULL){ +_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=0; +} +void *_FUNC_IDECHOOSECOLORSBOX_UDT_P=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_UDT_P==NULL){ +_FUNC_IDECHOOSECOLORSBOX_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDECHOOSECOLORSBOX_UDT_P,0,20); +} +ptrszint *_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O=NULL; +if (!_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O){ +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP==NULL){ +_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP->chr,0,1); +} +int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_I=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_LONG_I==NULL){ +_FUNC_IDECHOOSECOLORSBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=0; +} +int32 pass5886; +int32 pass5887; +qbs *_FUNC_IDECHOOSECOLORSBOX_STRING_L=NULL; +if (!_FUNC_IDECHOOSECOLORSBOX_STRING_L)_FUNC_IDECHOOSECOLORSBOX_STRING_L=qbs_new(0,0); +int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==NULL){ +_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=(int32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=0; +} +int32 *_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=NULL; +if(_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS==NULL){ +_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=0; +} +qbs *_FUNC_IDECHOOSECOLORSBOX_STRING_A2=NULL; +if (!_FUNC_IDECHOOSECOLORSBOX_STRING_A2)_FUNC_IDECHOOSECOLORSBOX_STRING_A2=qbs_new(0,0); +int32 pass5888; +byte_element_struct *byte_element_5889=NULL; +if (!byte_element_5889){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDERGBMIXER_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]=0; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]=0; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[6]=0; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -int32 *_SUB_IDEASCIIBOX_LONG_TEMP=NULL; -if(_SUB_IDEASCIIBOX_LONG_TEMP==NULL){ -_SUB_IDEASCIIBOX_LONG_TEMP=(int32*)mem_static_malloc(4); -*_SUB_IDEASCIIBOX_LONG_TEMP=0; +qbs *_FUNC_IDERGBMIXER_STRING1_SEP=NULL; +if(_FUNC_IDERGBMIXER_STRING1_SEP==NULL){ +_FUNC_IDERGBMIXER_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDERGBMIXER_STRING1_SEP->chr,0,1); } -int32 *_SUB_IDEASCIIBOX_LONG_TEMP1=NULL; -if(_SUB_IDEASCIIBOX_LONG_TEMP1==NULL){ -_SUB_IDEASCIIBOX_LONG_TEMP1=(int32*)mem_static_malloc(4); -*_SUB_IDEASCIIBOX_LONG_TEMP1=0; +int32 *_FUNC_IDERGBMIXER_LONG_I=NULL; +if(_FUNC_IDERGBMIXER_LONG_I==NULL){ +_FUNC_IDERGBMIXER_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDERGBMIXER_LONG_I=0; } -int32 *_SUB_IDEASCIIBOX_LONG_WS=NULL; -if(_SUB_IDEASCIIBOX_LONG_WS==NULL){ -_SUB_IDEASCIIBOX_LONG_WS=(int32*)mem_static_malloc(4); -*_SUB_IDEASCIIBOX_LONG_WS=0; +int32 pass5966; +int32 pass5967; +qbs *_FUNC_IDERGBMIXER_STRING_A2=NULL; +if (!_FUNC_IDERGBMIXER_STRING_A2)_FUNC_IDERGBMIXER_STRING_A2=qbs_new(0,0); +byte_element_struct *byte_element_5968=NULL; +if (!byte_element_5968){ +if ((mem_static_pointer+=12)tmp||_FUNC_IDEF1BOX_STRING_LNKS->fixed||_FUNC_IDEF1BOX_STRING_LNKS->readonly){ -oldstr5602=_FUNC_IDEF1BOX_STRING_LNKS; -if (oldstr5602->cmem_descriptor){ -_FUNC_IDEF1BOX_STRING_LNKS=qbs_new_cmem(oldstr5602->len,0); +int32 *_FUNC_COUNTITEMS_LONG_COUNTITEMS=NULL; +if(_FUNC_COUNTITEMS_LONG_COUNTITEMS==NULL){ +_FUNC_COUNTITEMS_LONG_COUNTITEMS=(int32*)mem_static_malloc(4); +*_FUNC_COUNTITEMS_LONG_COUNTITEMS=0; +} +qbs*oldstr6036=NULL; +if(_FUNC_COUNTITEMS_STRING_SEARCHSTRING->tmp||_FUNC_COUNTITEMS_STRING_SEARCHSTRING->fixed||_FUNC_COUNTITEMS_STRING_SEARCHSTRING->readonly){ +oldstr6036=_FUNC_COUNTITEMS_STRING_SEARCHSTRING; +if (oldstr6036->cmem_descriptor){ +_FUNC_COUNTITEMS_STRING_SEARCHSTRING=qbs_new_cmem(oldstr6036->len,0); }else{ -_FUNC_IDEF1BOX_STRING_LNKS=qbs_new(oldstr5602->len,0); +_FUNC_COUNTITEMS_STRING_SEARCHSTRING=qbs_new(oldstr6036->len,0); } -memcpy(_FUNC_IDEF1BOX_STRING_LNKS->chr,oldstr5602->chr,oldstr5602->len); +memcpy(_FUNC_COUNTITEMS_STRING_SEARCHSTRING->chr,oldstr6036->chr,oldstr6036->len); } -int32 *_FUNC_IDEF1BOX_LONG_FOCUS=NULL; -if(_FUNC_IDEF1BOX_LONG_FOCUS==NULL){ -_FUNC_IDEF1BOX_LONG_FOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_FOCUS=0; +qbs*oldstr6037=NULL; +if(_FUNC_COUNTITEMS_STRING_ITEM->tmp||_FUNC_COUNTITEMS_STRING_ITEM->fixed||_FUNC_COUNTITEMS_STRING_ITEM->readonly){ +oldstr6037=_FUNC_COUNTITEMS_STRING_ITEM; +if (oldstr6037->cmem_descriptor){ +_FUNC_COUNTITEMS_STRING_ITEM=qbs_new_cmem(oldstr6037->len,0); +}else{ +_FUNC_COUNTITEMS_STRING_ITEM=qbs_new(oldstr6037->len,0); } -void *_FUNC_IDEF1BOX_UDT_P=NULL; -if(_FUNC_IDEF1BOX_UDT_P==NULL){ -_FUNC_IDEF1BOX_UDT_P=(void*)mem_static_malloc(20); -memset(_FUNC_IDEF1BOX_UDT_P,0,20); +memcpy(_FUNC_COUNTITEMS_STRING_ITEM->chr,oldstr6037->chr,oldstr6037->len); } -ptrszint *_FUNC_IDEF1BOX_ARRAY_UDT_O=NULL; -if (!_FUNC_IDEF1BOX_ARRAY_UDT_O){ -_FUNC_IDEF1BOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_IDEF1BOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_FUNC_IDEF1BOX_ARRAY_UDT_O[2]=0; -_FUNC_IDEF1BOX_ARRAY_UDT_O[4]=2147483647; -_FUNC_IDEF1BOX_ARRAY_UDT_O[5]=0; -_FUNC_IDEF1BOX_ARRAY_UDT_O[6]=0; -_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +int32 *_FUNC_COUNTITEMS_LONG_FOUND=NULL; +if(_FUNC_COUNTITEMS_LONG_FOUND==NULL){ +_FUNC_COUNTITEMS_LONG_FOUND=(int32*)mem_static_malloc(4); +*_FUNC_COUNTITEMS_LONG_FOUND=0; } -qbs *_FUNC_IDEF1BOX_STRING1_SEP=NULL; -if(_FUNC_IDEF1BOX_STRING1_SEP==NULL){ -_FUNC_IDEF1BOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_FUNC_IDEF1BOX_STRING1_SEP->chr,0,1); +int32 *_FUNC_COUNTITEMS_LONG_TOTAL=NULL; +if(_FUNC_COUNTITEMS_LONG_TOTAL==NULL){ +_FUNC_COUNTITEMS_LONG_TOTAL=(int32*)mem_static_malloc(4); +*_FUNC_COUNTITEMS_LONG_TOTAL=0; } -int32 *_FUNC_IDEF1BOX_LONG_I=NULL; -if(_FUNC_IDEF1BOX_LONG_I==NULL){ -_FUNC_IDEF1BOX_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_I=0; -} -int32 pass5603; -int32 pass5604; -int64 fornext_value5606; -int64 fornext_finalvalue5606; -int64 fornext_step5606; -uint8 fornext_step_negative5606; -int32 *_FUNC_IDEF1BOX_LONG_F=NULL; -if(_FUNC_IDEF1BOX_LONG_F==NULL){ -_FUNC_IDEF1BOX_LONG_F=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_F=0; -} -int32 *_FUNC_IDEF1BOX_LONG_CX=NULL; -if(_FUNC_IDEF1BOX_LONG_CX==NULL){ -_FUNC_IDEF1BOX_LONG_CX=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_CX=0; -} -int32 *_FUNC_IDEF1BOX_LONG_CY=NULL; -if(_FUNC_IDEF1BOX_LONG_CY==NULL){ -_FUNC_IDEF1BOX_LONG_CY=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_CY=0; -} -int64 fornext_value5609; -int64 fornext_finalvalue5609; -int64 fornext_step5609; -uint8 fornext_step_negative5609; -int32 *_FUNC_IDEF1BOX_LONG_LASTFOCUS=NULL; -if(_FUNC_IDEF1BOX_LONG_LASTFOCUS==NULL){ -_FUNC_IDEF1BOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_LASTFOCUS=0; -} -int32 *_FUNC_IDEF1BOX_LONG_CHANGE=NULL; -if(_FUNC_IDEF1BOX_LONG_CHANGE==NULL){ -_FUNC_IDEF1BOX_LONG_CHANGE=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_CHANGE=0; -} -int32 *_FUNC_IDEF1BOX_LONG_MOUSEDOWN=NULL; -if(_FUNC_IDEF1BOX_LONG_MOUSEDOWN==NULL){ -_FUNC_IDEF1BOX_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_MOUSEDOWN=0; -} -int32 *_FUNC_IDEF1BOX_LONG_MOUSEUP=NULL; -if(_FUNC_IDEF1BOX_LONG_MOUSEUP==NULL){ -_FUNC_IDEF1BOX_LONG_MOUSEUP=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_MOUSEUP=0; -} -int32 *_FUNC_IDEF1BOX_LONG_ALT=NULL; -if(_FUNC_IDEF1BOX_LONG_ALT==NULL){ -_FUNC_IDEF1BOX_LONG_ALT=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_ALT=0; -} -int32 *_FUNC_IDEF1BOX_LONG_OLDALT=NULL; -if(_FUNC_IDEF1BOX_LONG_OLDALT==NULL){ -_FUNC_IDEF1BOX_LONG_OLDALT=(int32*)mem_static_malloc(4); -*_FUNC_IDEF1BOX_LONG_OLDALT=0; -} -qbs *_FUNC_IDEF1BOX_STRING_ALTLETTER=NULL; -if (!_FUNC_IDEF1BOX_STRING_ALTLETTER)_FUNC_IDEF1BOX_STRING_ALTLETTER=qbs_new(0,0); -byte_element_struct *byte_element_5611=NULL; -if (!byte_element_5611){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_SUB_MATHBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; -_SUB_MATHBOX_ARRAY_UDT_O[2]=0; -_SUB_MATHBOX_ARRAY_UDT_O[4]=2147483647; -_SUB_MATHBOX_ARRAY_UDT_O[5]=0; -_SUB_MATHBOX_ARRAY_UDT_O[6]=0; -_SUB_MATHBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; -} -qbs *_SUB_MATHBOX_STRING1_SEP=NULL; -if(_SUB_MATHBOX_STRING1_SEP==NULL){ -_SUB_MATHBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); -memset(_SUB_MATHBOX_STRING1_SEP->chr,0,1); -} -qbs *_SUB_MATHBOX_STRING_TITLESTR=NULL; -if (!_SUB_MATHBOX_STRING_TITLESTR)_SUB_MATHBOX_STRING_TITLESTR=qbs_new(0,0); -qbs *_SUB_MATHBOX_STRING_MESSAGESTR=NULL; -if (!_SUB_MATHBOX_STRING_MESSAGESTR)_SUB_MATHBOX_STRING_MESSAGESTR=qbs_new(0,0); -int32 *_SUB_MATHBOX_LONG_I=NULL; -if(_SUB_MATHBOX_LONG_I==NULL){ -_SUB_MATHBOX_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_MATHBOX_LONG_I=0; -} -int32 *_SUB_MATHBOX_LONG_W=NULL; -if(_SUB_MATHBOX_LONG_W==NULL){ -_SUB_MATHBOX_LONG_W=(int32*)mem_static_malloc(4); -*_SUB_MATHBOX_LONG_W=0; -} -byte_element_struct *byte_element_5614=NULL; -if (!byte_element_5614){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -byte_element_struct *byte_element_5664=NULL; -if (!byte_element_5664){ -if ((mem_static_pointer+=12)chr,0,1); } -byte_element_struct *byte_element_5665=NULL; -if (!byte_element_5665){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEIMPORTBOOKMARKS_STRING_F2->fixed||_SUB_IDEIMPORTBOOKMARKS_STRING_F2->readonly){ +oldstr6069=_SUB_IDEIMPORTBOOKMARKS_STRING_F2; +if (oldstr6069->cmem_descriptor){ +_SUB_IDEIMPORTBOOKMARKS_STRING_F2=qbs_new_cmem(oldstr6069->len,0); +}else{ +_SUB_IDEIMPORTBOOKMARKS_STRING_F2=qbs_new(oldstr6069->len,0); } -uint32 *_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR=NULL; -if(_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR==NULL){ -_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR=(uint32*)mem_static_malloc(4); -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR=0; +memcpy(_SUB_IDEIMPORTBOOKMARKS_STRING_F2->chr,oldstr6069->chr,oldstr6069->len); } -uint32 *_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR=NULL; -if(_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR==NULL){ -_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR=(uint32*)mem_static_malloc(4); -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR=0; +qbs *_SUB_IDEIMPORTBOOKMARKS_STRING_F=NULL; +if (!_SUB_IDEIMPORTBOOKMARKS_STRING_F)_SUB_IDEIMPORTBOOKMARKS_STRING_F=qbs_new(0,0); +int32 *_SUB_IDEIMPORTBOOKMARKS_LONG_FH=NULL; +if(_SUB_IDEIMPORTBOOKMARKS_LONG_FH==NULL){ +_SUB_IDEIMPORTBOOKMARKS_LONG_FH=(int32*)mem_static_malloc(4); +*_SUB_IDEIMPORTBOOKMARKS_LONG_FH=0; } -uint32 *_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR=NULL; -if(_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR==NULL){ -_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR=(uint32*)mem_static_malloc(4); -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR=0; +qbs *_SUB_IDEIMPORTBOOKMARKS_STRING_A=NULL; +if (!_SUB_IDEIMPORTBOOKMARKS_STRING_A)_SUB_IDEIMPORTBOOKMARKS_STRING_A=qbs_new(0,0); +int32 *_SUB_IDEIMPORTBOOKMARKS_LONG_X=NULL; +if(_SUB_IDEIMPORTBOOKMARKS_LONG_X==NULL){ +_SUB_IDEIMPORTBOOKMARKS_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=0; } -uint32 *_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR=NULL; -if(_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR==NULL){ -_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR=(uint32*)mem_static_malloc(4); -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR=0; +int32 *_SUB_IDEIMPORTBOOKMARKS_LONG_L=NULL; +if(_SUB_IDEIMPORTBOOKMARKS_LONG_L==NULL){ +_SUB_IDEIMPORTBOOKMARKS_LONG_L=(int32*)mem_static_malloc(4); +*_SUB_IDEIMPORTBOOKMARKS_LONG_L=0; } -uint32 *_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR=NULL; -if(_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR==NULL){ -_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR=(uint32*)mem_static_malloc(4); -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR=0; +byte_element_struct *byte_element_6070=NULL; +if (!byte_element_6070){ +if ((mem_static_pointer+=12)tmp||_FUNC_GETELEMENT_STRING_A->fixed||_FUNC_GETELEMENT_STRING_A->readonly){ -oldstr2711=_FUNC_GETELEMENT_STRING_A; -if (oldstr2711->cmem_descriptor){ -_FUNC_GETELEMENT_STRING_A=qbs_new_cmem(oldstr2711->len,0); +qbs *_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER=NULL; +if (!_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER)_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER=qbs_new(0,0); +qbs*oldstr2788=NULL; +if(_FUNC_FIXOPERATIONORDER_STRING_SAVEA->tmp||_FUNC_FIXOPERATIONORDER_STRING_SAVEA->fixed||_FUNC_FIXOPERATIONORDER_STRING_SAVEA->readonly){ +oldstr2788=_FUNC_FIXOPERATIONORDER_STRING_SAVEA; +if (oldstr2788->cmem_descriptor){ +_FUNC_FIXOPERATIONORDER_STRING_SAVEA=qbs_new_cmem(oldstr2788->len,0); }else{ -_FUNC_GETELEMENT_STRING_A=qbs_new(oldstr2711->len,0); +_FUNC_FIXOPERATIONORDER_STRING_SAVEA=qbs_new(oldstr2788->len,0); } -memcpy(_FUNC_GETELEMENT_STRING_A->chr,oldstr2711->chr,oldstr2711->len); +memcpy(_FUNC_FIXOPERATIONORDER_STRING_SAVEA->chr,oldstr2788->chr,oldstr2788->len); } -int32 *_FUNC_GETELEMENT_LONG_N=NULL; -if(_FUNC_GETELEMENT_LONG_N==NULL){ -_FUNC_GETELEMENT_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENT_LONG_N=0; +qbs *_FUNC_FIXOPERATIONORDER_STRING_A=NULL; +if (!_FUNC_FIXOPERATIONORDER_STRING_A)_FUNC_FIXOPERATIONORDER_STRING_A=qbs_new(0,0); +int32 *_FUNC_FIXOPERATIONORDER_LONG_N=NULL; +if(_FUNC_FIXOPERATIONORDER_LONG_N==NULL){ +_FUNC_FIXOPERATIONORDER_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_FIXOPERATIONORDER_LONG_N=0; } -int32 *_FUNC_GETELEMENT_LONG_P=NULL; -if(_FUNC_GETELEMENT_LONG_P==NULL){ -_FUNC_GETELEMENT_LONG_P=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENT_LONG_P=0; +qbs *_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA=NULL; +if (!_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA)_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA=qbs_new(0,0); +int32 *_FUNC_FIXOPERATIONORDER_LONG_I=NULL; +if(_FUNC_FIXOPERATIONORDER_LONG_I==NULL){ +_FUNC_FIXOPERATIONORDER_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_FIXOPERATIONORDER_LONG_I=0; } -int32 *_FUNC_GETELEMENT_LONG_I=NULL; -if(_FUNC_GETELEMENT_LONG_I==NULL){ -_FUNC_GETELEMENT_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENT_LONG_I=0; +int64 fornext_value2791; +int64 fornext_finalvalue2791; +int64 fornext_step2791; +uint8 fornext_step_negative2791; +qbs *_FUNC_FIXOPERATIONORDER_STRING_TEMP1=NULL; +if (!_FUNC_FIXOPERATIONORDER_STRING_TEMP1)_FUNC_FIXOPERATIONORDER_STRING_TEMP1=qbs_new(0,0); +qbs *_FUNC_FIXOPERATIONORDER_STRING_TEMP2=NULL; +if (!_FUNC_FIXOPERATIONORDER_STRING_TEMP2)_FUNC_FIXOPERATIONORDER_STRING_TEMP2=qbs_new(0,0); +int32 pass2792; +int32 *_FUNC_FIXOPERATIONORDER_LONG_B=NULL; +if(_FUNC_FIXOPERATIONORDER_LONG_B==NULL){ +_FUNC_FIXOPERATIONORDER_LONG_B=(int32*)mem_static_malloc(4); +*_FUNC_FIXOPERATIONORDER_LONG_B=0; } -byte_element_struct *byte_element_2712=NULL; -if (!byte_element_2712){ -if ((mem_static_pointer+=12)tmp||_SUB_IDESAVEBOOKMARKS_STRING_F2->fixed||_SUB_IDESAVEBOOKMARKS_STRING_F2->readonly){ +oldstr6078=_SUB_IDESAVEBOOKMARKS_STRING_F2; +if (oldstr6078->cmem_descriptor){ +_SUB_IDESAVEBOOKMARKS_STRING_F2=qbs_new_cmem(oldstr6078->len,0); +}else{ +_SUB_IDESAVEBOOKMARKS_STRING_F2=qbs_new(oldstr6078->len,0); } -int32 *_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=NULL; -if(_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING==NULL){ -_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=(int32*)mem_static_malloc(4); -*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=0; +memcpy(_SUB_IDESAVEBOOKMARKS_STRING_F2->chr,oldstr6078->chr,oldstr6078->len); } +qbs *_SUB_IDESAVEBOOKMARKS_STRING_F=NULL; +if (!_SUB_IDESAVEBOOKMARKS_STRING_F)_SUB_IDESAVEBOOKMARKS_STRING_F=qbs_new(0,0); +int32 *_SUB_IDESAVEBOOKMARKS_LONG_FH=NULL; +if(_SUB_IDESAVEBOOKMARKS_LONG_FH==NULL){ +_SUB_IDESAVEBOOKMARKS_LONG_FH=(int32*)mem_static_malloc(4); +*_SUB_IDESAVEBOOKMARKS_LONG_FH=0; +} +qbs *_SUB_IDESAVEBOOKMARKS_STRING_A=NULL; +if (!_SUB_IDESAVEBOOKMARKS_STRING_A)_SUB_IDESAVEBOOKMARKS_STRING_A=qbs_new(0,0); +int32 *_SUB_IDESAVEBOOKMARKS_LONG_X=NULL; +if(_SUB_IDESAVEBOOKMARKS_LONG_X==NULL){ +_SUB_IDESAVEBOOKMARKS_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_IDESAVEBOOKMARKS_LONG_X=0; +} +int32 *_SUB_IDESAVEBOOKMARKS_LONG_L=NULL; +if(_SUB_IDESAVEBOOKMARKS_LONG_L==NULL){ +_SUB_IDESAVEBOOKMARKS_LONG_L=(int32*)mem_static_malloc(4); +*_SUB_IDESAVEBOOKMARKS_LONG_L=0; +} +byte_element_struct *byte_element_6079=NULL; +if (!byte_element_6079){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDERECENTBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDERECENTBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDERECENTBOX_STRING1_SEP=NULL; +if(_FUNC_IDERECENTBOX_STRING1_SEP==NULL){ +_FUNC_IDERECENTBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDERECENTBOX_STRING1_SEP->chr,0,1); +} +qbs *_FUNC_IDERECENTBOX_STRING_L=NULL; +if (!_FUNC_IDERECENTBOX_STRING_L)_FUNC_IDERECENTBOX_STRING_L=qbs_new(0,0); +int32 *_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=NULL; +if(_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH==NULL){ +_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=(int32*)mem_static_malloc(4); +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=0; +} +int32 *_FUNC_IDERECENTBOX_LONG_TOTALRECENT=NULL; +if(_FUNC_IDERECENTBOX_LONG_TOTALRECENT==NULL){ +_FUNC_IDERECENTBOX_LONG_TOTALRECENT=(int32*)mem_static_malloc(4); +*_FUNC_IDERECENTBOX_LONG_TOTALRECENT=0; +} +int32 *_FUNC_IDERECENTBOX_LONG_FH=NULL; +if(_FUNC_IDERECENTBOX_LONG_FH==NULL){ +_FUNC_IDERECENTBOX_LONG_FH=(int32*)mem_static_malloc(4); +*_FUNC_IDERECENTBOX_LONG_FH=0; +} +qbs *_FUNC_IDERECENTBOX_STRING_A=NULL; +if (!_FUNC_IDERECENTBOX_STRING_A)_FUNC_IDERECENTBOX_STRING_A=qbs_new(0,0); +byte_element_struct *byte_element_6090=NULL; +if (!byte_element_6090){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]=0; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4]=2147483647; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]=0; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[6]=0; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]=(ptrszint)¬hingstring; +} +byte_element_struct *byte_element_6091=NULL; +if (!byte_element_6091){ +if ((mem_static_pointer+=12)tmp||_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->fixed||_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->readonly){ -oldstr5668=_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK; -if (oldstr5668->cmem_descriptor){ -_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK=qbs_new_cmem(oldstr5668->len,0); -}else{ -_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK=qbs_new(oldstr5668->len,0); +int32 *_SUB_IDEMAKEFILEMENU_LONG_I=NULL; +if(_SUB_IDEMAKEFILEMENU_LONG_I==NULL){ +_SUB_IDEMAKEFILEMENU_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEFILEMENU_LONG_I=0; } -memcpy(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->chr,oldstr5668->chr,oldstr5668->len); +int32 *_SUB_IDEMAKEFILEMENU_LONG_FH=NULL; +if(_SUB_IDEMAKEFILEMENU_LONG_FH==NULL){ +_SUB_IDEMAKEFILEMENU_LONG_FH=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEFILEMENU_LONG_FH=0; } -qbs*oldstr5669=NULL; -if(_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->tmp||_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->fixed||_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->readonly){ -oldstr5669=_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK; -if (oldstr5669->cmem_descriptor){ -_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK=qbs_new_cmem(oldstr5669->len,0); -}else{ -_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK=qbs_new(oldstr5669->len,0); +qbs *_SUB_IDEMAKEFILEMENU_STRING_A=NULL; +if (!_SUB_IDEMAKEFILEMENU_STRING_A)_SUB_IDEMAKEFILEMENU_STRING_A=qbs_new(0,0); +byte_element_struct *byte_element_6107=NULL; +if (!byte_element_6107){ +if ((mem_static_pointer+=12)chr,oldstr5669->chr,oldstr5669->len); +int32 *_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU=NULL; +if(_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU==NULL){ +_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU=0; } -qbs*oldstr5670=NULL; -if(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->tmp||_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->fixed||_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->readonly){ -oldstr5670=_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK; -if (oldstr5670->cmem_descriptor){ -_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK=qbs_new_cmem(oldstr5670->len,0); -}else{ -_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK=qbs_new(oldstr5670->len,0); +int32 *_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES=NULL; +if(_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES==NULL){ +_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES=0; } -memcpy(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->chr,oldstr5670->chr,oldstr5670->len); +int32 *_SUB_IDEMAKEFILEMENU_LONG_R=NULL; +if(_SUB_IDEMAKEFILEMENU_LONG_R==NULL){ +_SUB_IDEMAKEFILEMENU_LONG_R=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEFILEMENU_LONG_R=0; } -int32 *_FUNC_BINARYFORMATCHECK_LONG_FH=NULL; -if(_FUNC_BINARYFORMATCHECK_LONG_FH==NULL){ -_FUNC_BINARYFORMATCHECK_LONG_FH=(int32*)mem_static_malloc(4); -*_FUNC_BINARYFORMATCHECK_LONG_FH=0; +int64 fornext_value6109; +int64 fornext_finalvalue6109; +int64 fornext_step6109; +uint8 fornext_step_negative6109; +int32 *_SUB_IDEMAKEFILEMENU_LONG_AI=NULL; +if(_SUB_IDEMAKEFILEMENU_LONG_AI==NULL){ +_SUB_IDEMAKEFILEMENU_LONG_AI=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEFILEMENU_LONG_AI=0; } -qbs *_FUNC_BINARYFORMATCHECK_STRING_A=NULL; -if (!_FUNC_BINARYFORMATCHECK_STRING_A)_FUNC_BINARYFORMATCHECK_STRING_A=qbs_new(0,0); -int16 *_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT=NULL; -if(_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==NULL){ -_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT=(int16*)mem_static_malloc(2); -*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT=0; +qbs *_SUB_IDEMAKEFILEMENU_STRING_F=NULL; +if (!_SUB_IDEMAKEFILEMENU_STRING_F)_SUB_IDEMAKEFILEMENU_STRING_F=qbs_new(0,0); +byte_element_struct *byte_element_6110=NULL; +if (!byte_element_6110){ +if ((mem_static_pointer+=12)tmp||_FUNC_REMOVESYMBOL2_STRING_VARNAME->fixed||_FUNC_REMOVESYMBOL2_STRING_VARNAME->readonly){ -oldstr5698=_FUNC_REMOVESYMBOL2_STRING_VARNAME; -if (oldstr5698->cmem_descriptor){ -_FUNC_REMOVESYMBOL2_STRING_VARNAME=qbs_new_cmem(oldstr5698->len,0); -}else{ -_FUNC_REMOVESYMBOL2_STRING_VARNAME=qbs_new(oldstr5698->len,0); +qbs *_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION=NULL; +if (!_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION)_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION=qbs_new(0,0); +int32 *_SUB_IDEMAKECONTEXTUALMENU_LONG_M=NULL; +if(_SUB_IDEMAKECONTEXTUALMENU_LONG_M==NULL){ +_SUB_IDEMAKECONTEXTUALMENU_LONG_M=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_M=0; } -memcpy(_FUNC_REMOVESYMBOL2_STRING_VARNAME->chr,oldstr5698->chr,oldstr5698->len); +int32 *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=NULL; +if(_SUB_IDEMAKECONTEXTUALMENU_LONG_I==NULL){ +_SUB_IDEMAKECONTEXTUALMENU_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=0; } -int32 *_FUNC_REMOVESYMBOL2_LONG_I=NULL; -if(_FUNC_REMOVESYMBOL2_LONG_I==NULL){ -_FUNC_REMOVESYMBOL2_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_REMOVESYMBOL2_LONG_I=0; +int8 pass6115; +qbs *_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2=NULL; +if (!_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2)_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2=qbs_new(0,0); +byte_element_struct *byte_element_6116=NULL; +if (!byte_element_6116){ +if ((mem_static_pointer+=12)tmp||_FUNC_BACK2BACKNAME_STRING_A->fixed||_FUNC_BACK2BACKNAME_STRING_A->readonly){ -oldstr5699=_FUNC_BACK2BACKNAME_STRING_A; -if (oldstr5699->cmem_descriptor){ -_FUNC_BACK2BACKNAME_STRING_A=qbs_new_cmem(oldstr5699->len,0); -}else{ -_FUNC_BACK2BACKNAME_STRING_A=qbs_new(oldstr5699->len,0); +int32 *_SUB_IDEMAKEEDITMENU_LONG_M=NULL; +if(_SUB_IDEMAKEEDITMENU_LONG_M==NULL){ +_SUB_IDEMAKEEDITMENU_LONG_M=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEEDITMENU_LONG_M=0; } -memcpy(_FUNC_BACK2BACKNAME_STRING_A->chr,oldstr5699->chr,oldstr5699->len); +int32 *_SUB_IDEMAKEEDITMENU_LONG_I=NULL; +if(_SUB_IDEMAKEEDITMENU_LONG_I==NULL){ +_SUB_IDEMAKEEDITMENU_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_IDEMAKEEDITMENU_LONG_I=0; +} +qbs *_SUB_IDEMAKEEDITMENU_STRING_CLIP=NULL; +if (!_SUB_IDEMAKEEDITMENU_STRING_CLIP)_SUB_IDEMAKEEDITMENU_STRING_CLIP=qbs_new(0,0); +byte_element_struct *byte_element_6146=NULL; +if (!byte_element_6146){ +if ((mem_static_pointer+=12)tmp||_FUNC_WIKI_STRING_PAGENAME->fixed||_FUNC_WIKI_STRING_PAGENAME->readonly){ -oldstr5700=_FUNC_WIKI_STRING_PAGENAME; -if (oldstr5700->cmem_descriptor){ -_FUNC_WIKI_STRING_PAGENAME=qbs_new_cmem(oldstr5700->len,0); +qbs*oldstr6150=NULL; +if(_SUB_IDEADDRECENT_STRING_F2->tmp||_SUB_IDEADDRECENT_STRING_F2->fixed||_SUB_IDEADDRECENT_STRING_F2->readonly){ +oldstr6150=_SUB_IDEADDRECENT_STRING_F2; +if (oldstr6150->cmem_descriptor){ +_SUB_IDEADDRECENT_STRING_F2=qbs_new_cmem(oldstr6150->len,0); }else{ -_FUNC_WIKI_STRING_PAGENAME=qbs_new(oldstr5700->len,0); +_SUB_IDEADDRECENT_STRING_F2=qbs_new(oldstr6150->len,0); } -memcpy(_FUNC_WIKI_STRING_PAGENAME->chr,oldstr5700->chr,oldstr5700->len); +memcpy(_SUB_IDEADDRECENT_STRING_F2->chr,oldstr6150->chr,oldstr6150->len); } -qbs *_FUNC_WIKI_STRING_PAGENAME2=NULL; -if (!_FUNC_WIKI_STRING_PAGENAME2)_FUNC_WIKI_STRING_PAGENAME2=qbs_new(0,0); -int32 *_FUNC_WIKI_LONG_I=NULL; -if(_FUNC_WIKI_LONG_I==NULL){ -_FUNC_WIKI_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_WIKI_LONG_I=0; +qbs *_SUB_IDEADDRECENT_STRING_F=NULL; +if (!_SUB_IDEADDRECENT_STRING_F)_SUB_IDEADDRECENT_STRING_F=qbs_new(0,0); +int32 *_SUB_IDEADDRECENT_LONG_FH=NULL; +if(_SUB_IDEADDRECENT_LONG_FH==NULL){ +_SUB_IDEADDRECENT_LONG_FH=(int32*)mem_static_malloc(4); +*_SUB_IDEADDRECENT_LONG_FH=0; } -byte_element_struct *byte_element_5703=NULL; -if (!byte_element_5703){ -if ((mem_static_pointer+=12)tmp||_SUB_HELP_ADDTXT_STRING_T->fixed||_SUB_HELP_ADDTXT_STRING_T->readonly){ -oldstr5720=_SUB_HELP_ADDTXT_STRING_T; -if (oldstr5720->cmem_descriptor){ -_SUB_HELP_ADDTXT_STRING_T=qbs_new_cmem(oldstr5720->len,0); +qbs *_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES=NULL; +if (!_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES)_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES=qbs_new(0,0); +qbs*oldstr6154=NULL; +if(_FUNC_REMOVEDOUBLESLASHES_STRING_F->tmp||_FUNC_REMOVEDOUBLESLASHES_STRING_F->fixed||_FUNC_REMOVEDOUBLESLASHES_STRING_F->readonly){ +oldstr6154=_FUNC_REMOVEDOUBLESLASHES_STRING_F; +if (oldstr6154->cmem_descriptor){ +_FUNC_REMOVEDOUBLESLASHES_STRING_F=qbs_new_cmem(oldstr6154->len,0); }else{ -_SUB_HELP_ADDTXT_STRING_T=qbs_new(oldstr5720->len,0); +_FUNC_REMOVEDOUBLESLASHES_STRING_F=qbs_new(oldstr6154->len,0); } -memcpy(_SUB_HELP_ADDTXT_STRING_T->chr,oldstr5720->chr,oldstr5720->len); +memcpy(_FUNC_REMOVEDOUBLESLASHES_STRING_F->chr,oldstr6154->chr,oldstr6154->len); } -int32 *_SUB_HELP_ADDTXT_LONG_I=NULL; -if(_SUB_HELP_ADDTXT_LONG_I==NULL){ -_SUB_HELP_ADDTXT_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_HELP_ADDTXT_LONG_I=0; -} -int64 fornext_value5722; -int64 fornext_finalvalue5722; -int64 fornext_step5722; -uint8 fornext_step_negative5722; -byte_element_struct *byte_element_5723=NULL; -if (!byte_element_5723){ -if ((mem_static_pointer+=12)tmp||_SUB_IDEADDSEARCHED_STRING_S2->fixed||_SUB_IDEADDSEARCHED_STRING_S2->readonly){ +oldstr6157=_SUB_IDEADDSEARCHED_STRING_S2; +if (oldstr6157->cmem_descriptor){ +_SUB_IDEADDSEARCHED_STRING_S2=qbs_new_cmem(oldstr6157->len,0); +}else{ +_SUB_IDEADDSEARCHED_STRING_S2=qbs_new(oldstr6157->len,0); } -int32 *_SUB_HELP_NEWLINE_LONG_W=NULL; -if(_SUB_HELP_NEWLINE_LONG_W==NULL){ -_SUB_HELP_NEWLINE_LONG_W=(int32*)mem_static_malloc(4); -*_SUB_HELP_NEWLINE_LONG_W=0; +memcpy(_SUB_IDEADDSEARCHED_STRING_S2->chr,oldstr6157->chr,oldstr6157->len); +} +qbs *_SUB_IDEADDSEARCHED_STRING_S=NULL; +if (!_SUB_IDEADDSEARCHED_STRING_S)_SUB_IDEADDSEARCHED_STRING_S=qbs_new(0,0); +int32 *_SUB_IDEADDSEARCHED_LONG_FH=NULL; +if(_SUB_IDEADDSEARCHED_LONG_FH==NULL){ +_SUB_IDEADDSEARCHED_LONG_FH=(int32*)mem_static_malloc(4); +*_SUB_IDEADDSEARCHED_LONG_FH=0; +} +qbs *_SUB_IDEADDSEARCHED_STRING_A=NULL; +if (!_SUB_IDEADDSEARCHED_STRING_A)_SUB_IDEADDSEARCHED_STRING_A=qbs_new(0,0); +int32 *_SUB_IDEADDSEARCHED_LONG_X=NULL; +if(_SUB_IDEADDSEARCHED_LONG_X==NULL){ +_SUB_IDEADDSEARCHED_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_IDEADDSEARCHED_LONG_X=0; +} +byte_element_struct *byte_element_6158=NULL; +if (!byte_element_6158){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]=0; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4]=2147483647; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]=0; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[6]=0; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; } -qbs *_SUB_HELP_PREVIEW_STRING_C=NULL; -if (!_SUB_HELP_PREVIEW_STRING_C)_SUB_HELP_PREVIEW_STRING_C=qbs_new(0,0); -int64 fornext_value5736; -int64 fornext_finalvalue5736; -int64 fornext_step5736; -uint8 fornext_step_negative5736; -byte_element_struct *byte_element_5737=NULL; -if (!byte_element_5737){ -if ((mem_static_pointer+=12)chr,0,1); } -int32 *_SUB_HELP_PREVIEW_LONG_COL=NULL; -if(_SUB_HELP_PREVIEW_LONG_COL==NULL){ -_SUB_HELP_PREVIEW_LONG_COL=(int32*)mem_static_malloc(4); -*_SUB_HELP_PREVIEW_LONG_COL=0; +int32 *_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=NULL; +if(_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW==NULL){ +_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=(int32*)mem_static_malloc(4); +*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=0; } +int32 *_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=NULL; +if(_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY==NULL){ +_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=(int32*)mem_static_malloc(4); +*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=0; +} +int32 *_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES=NULL; +if(_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES==NULL){ +_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES=(int32*)mem_static_malloc(4); +*_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES=0; +} +ptrszint *_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE=NULL; +if (!_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE){ +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE)[8]=(ptrszint)mem_lock_tmp; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]=0; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4]=2147483647; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]=0; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[6]=0; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)¬hingstring; +} +int32 *_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=NULL; +if(_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==NULL){ +_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=(int32*)mem_static_malloc(4); +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=0; +} +int32 *_SUB_IDEUPDATEHELPBOX_LONG_I=NULL; +if(_SUB_IDEUPDATEHELPBOX_LONG_I==NULL){ +_SUB_IDEUPDATEHELPBOX_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_IDEUPDATEHELPBOX_LONG_I=0; +} +int32 *_SUB_IDEUPDATEHELPBOX_LONG_W2=NULL; +if(_SUB_IDEUPDATEHELPBOX_LONG_W2==NULL){ +_SUB_IDEUPDATEHELPBOX_LONG_W2=(int32*)mem_static_malloc(4); +*_SUB_IDEUPDATEHELPBOX_LONG_W2=0; +} +qbs *_SUB_IDEUPDATEHELPBOX_STRING_TITLESTR=NULL; +if (!_SUB_IDEUPDATEHELPBOX_STRING_TITLESTR)_SUB_IDEUPDATEHELPBOX_STRING_TITLESTR=qbs_new(0,0); +byte_element_struct *byte_element_6161=NULL; +if (!byte_element_6161){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +qbs *_FUNC_IDEASCIIBOX_STRING1_SEP=NULL; +if(_FUNC_IDEASCIIBOX_STRING1_SEP==NULL){ +_FUNC_IDEASCIIBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEASCIIBOX_STRING1_SEP->chr,0,1); +} +int32 *_FUNC_IDEASCIIBOX_LONG_I=NULL; +if(_FUNC_IDEASCIIBOX_LONG_I==NULL){ +_FUNC_IDEASCIIBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_I=0; +} +int32 pass6198; +int32 pass6199; +ptrszint *_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE=NULL; +if (!_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE){ +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]=0; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4]=2147483647; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]=0; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[6]=0; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]=(ptrszint)nothingvalue; +} +int32 *_FUNC_IDEASCIIBOX_LONG_A=NULL; +if(_FUNC_IDEASCIIBOX_LONG_A==NULL){ +_FUNC_IDEASCIIBOX_LONG_A=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_A=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_X=NULL; +if(_FUNC_IDEASCIIBOX_LONG_X==NULL){ +_FUNC_IDEASCIIBOX_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_X=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_Y=NULL; +if(_FUNC_IDEASCIIBOX_LONG_Y==NULL){ +_FUNC_IDEASCIIBOX_LONG_Y=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_Y=0; +} +int64 fornext_value6201; +int64 fornext_finalvalue6201; +int64 fornext_step6201; +uint8 fornext_step_negative6201; +int32 *_FUNC_IDEASCIIBOX_LONG_J=NULL; +if(_FUNC_IDEASCIIBOX_LONG_J==NULL){ +_FUNC_IDEASCIIBOX_LONG_J=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_J=0; +} +int64 fornext_value6203; +int64 fornext_finalvalue6203; +int64 fornext_step6203; +uint8 fornext_step_negative6203; +int32 *_FUNC_IDEASCIIBOX_LONG_SELECTED=NULL; +if(_FUNC_IDEASCIIBOX_LONG_SELECTED==NULL){ +_FUNC_IDEASCIIBOX_LONG_SELECTED=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_SELECTED=0; +} +int64 fornext_value6205; +int64 fornext_finalvalue6205; +int64 fornext_step6205; +uint8 fornext_step_negative6205; +int32 *_FUNC_IDEASCIIBOX_LONG_F=NULL; +if(_FUNC_IDEASCIIBOX_LONG_F==NULL){ +_FUNC_IDEASCIIBOX_LONG_F=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_F=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_CX=NULL; +if(_FUNC_IDEASCIIBOX_LONG_CX==NULL){ +_FUNC_IDEASCIIBOX_LONG_CX=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_CX=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_CY=NULL; +if(_FUNC_IDEASCIIBOX_LONG_CY==NULL){ +_FUNC_IDEASCIIBOX_LONG_CY=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_CY=0; +} +int64 fornext_value6208; +int64 fornext_finalvalue6208; +int64 fornext_step6208; +uint8 fornext_step_negative6208; +int32 *_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=NULL; +if(_FUNC_IDEASCIIBOX_LONG_LASTFOCUS==NULL){ +_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=0; +} +int32 pass6209; +int32 pass6210; +int32 pass6211; +int32 pass6212; +int32 *_FUNC_IDEASCIIBOX_LONG_HOVER=NULL; +if(_FUNC_IDEASCIIBOX_LONG_HOVER==NULL){ +_FUNC_IDEASCIIBOX_LONG_HOVER=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_HOVER=0; +} +int64 fornext_value6214; +int64 fornext_finalvalue6214; +int64 fornext_step6214; +uint8 fornext_step_negative6214; +int32 *_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED=NULL; +if(_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED==NULL){ +_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED=0; +} +float *_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=NULL; +if(_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK==NULL){ +_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=(float*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=NULL; +if(_FUNC_IDEASCIIBOX_LONG_LASTCLICKON==NULL){ +_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_CHANGE=NULL; +if(_FUNC_IDEASCIIBOX_LONG_CHANGE==NULL){ +_FUNC_IDEASCIIBOX_LONG_CHANGE=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_CHANGE=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN=NULL; +if(_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN==NULL){ +_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_MOUSEUP=NULL; +if(_FUNC_IDEASCIIBOX_LONG_MOUSEUP==NULL){ +_FUNC_IDEASCIIBOX_LONG_MOUSEUP=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_MOUSEUP=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=NULL; +if(_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX==NULL){ +_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=NULL; +if(_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY==NULL){ +_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_ALT=NULL; +if(_FUNC_IDEASCIIBOX_LONG_ALT==NULL){ +_FUNC_IDEASCIIBOX_LONG_ALT=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_ALT=0; +} +int32 *_FUNC_IDEASCIIBOX_LONG_OLDALT=NULL; +if(_FUNC_IDEASCIIBOX_LONG_OLDALT==NULL){ +_FUNC_IDEASCIIBOX_LONG_OLDALT=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_OLDALT=0; +} +qbs *_FUNC_IDEASCIIBOX_STRING_ALTLETTER=NULL; +if (!_FUNC_IDEASCIIBOX_STRING_ALTLETTER)_FUNC_IDEASCIIBOX_STRING_ALTLETTER=qbs_new(0,0); +byte_element_struct *byte_element_6216=NULL; +if (!byte_element_6216){ +if ((mem_static_pointer+=12)tmp||_FUNC_GETELEMENTS_STRING_A->fixed||_FUNC_GETELEMENTS_STRING_A->readonly){ -oldstr2713=_FUNC_GETELEMENTS_STRING_A; -if (oldstr2713->cmem_descriptor){ -_FUNC_GETELEMENTS_STRING_A=qbs_new_cmem(oldstr2713->len,0); +qbs *_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL=NULL; +if (!_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL)_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL=qbs_new(0,0); +qbs*oldstr2919=NULL; +if(_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->tmp||_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->fixed||_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->readonly){ +oldstr2919=_FUNC_GETELEMENTSPECIAL_STRING_SAVEA; +if (oldstr2919->cmem_descriptor){ +_FUNC_GETELEMENTSPECIAL_STRING_SAVEA=qbs_new_cmem(oldstr2919->len,0); }else{ -_FUNC_GETELEMENTS_STRING_A=qbs_new(oldstr2713->len,0); +_FUNC_GETELEMENTSPECIAL_STRING_SAVEA=qbs_new(oldstr2919->len,0); } -memcpy(_FUNC_GETELEMENTS_STRING_A->chr,oldstr2713->chr,oldstr2713->len); +memcpy(_FUNC_GETELEMENTSPECIAL_STRING_SAVEA->chr,oldstr2919->chr,oldstr2919->len); } -int32 *_FUNC_GETELEMENTS_LONG_N=NULL; -if(_FUNC_GETELEMENTS_LONG_N==NULL){ -_FUNC_GETELEMENTS_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENTS_LONG_N=0; +qbs *_FUNC_GETELEMENTSPECIAL_STRING_A=NULL; +if (!_FUNC_GETELEMENTSPECIAL_STRING_A)_FUNC_GETELEMENTSPECIAL_STRING_A=qbs_new(0,0); +int32 *_FUNC_GETELEMENTSPECIAL_LONG_N=NULL; +if(_FUNC_GETELEMENTSPECIAL_LONG_N==NULL){ +_FUNC_GETELEMENTSPECIAL_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTSPECIAL_LONG_N=0; } -int32 *_FUNC_GETELEMENTS_LONG_P=NULL; -if(_FUNC_GETELEMENTS_LONG_P==NULL){ -_FUNC_GETELEMENTS_LONG_P=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENTS_LONG_P=0; +int32 *_FUNC_GETELEMENTSPECIAL_LONG_P=NULL; +if(_FUNC_GETELEMENTSPECIAL_LONG_P==NULL){ +_FUNC_GETELEMENTSPECIAL_LONG_P=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTSPECIAL_LONG_P=0; } -int32 *_FUNC_GETELEMENTS_LONG_I=NULL; -if(_FUNC_GETELEMENTS_LONG_I==NULL){ -_FUNC_GETELEMENTS_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENTS_LONG_I=0; +int32 *_FUNC_GETELEMENTSPECIAL_LONG_I=NULL; +if(_FUNC_GETELEMENTSPECIAL_LONG_I==NULL){ +_FUNC_GETELEMENTSPECIAL_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTSPECIAL_LONG_I=0; } -int32 *_FUNC_GETELEMENTS_LONG_I1POS=NULL; -if(_FUNC_GETELEMENTS_LONG_I1POS==NULL){ -_FUNC_GETELEMENTS_LONG_I1POS=(int32*)mem_static_malloc(4); -*_FUNC_GETELEMENTS_LONG_I1POS=0; +int32 *_FUNC_GETELEMENTSPECIAL_LONG_I2=NULL; +if(_FUNC_GETELEMENTSPECIAL_LONG_I2==NULL){ +_FUNC_GETELEMENTSPECIAL_LONG_I2=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTSPECIAL_LONG_I2=0; } -byte_element_struct *byte_element_2714=NULL; -if (!byte_element_2714){ -if ((mem_static_pointer+=12)tmp||_SUB_WIKIPARSE_STRING_A->fixed||_SUB_WIKIPARSE_STRING_A->readonly){ -oldstr5741=_SUB_WIKIPARSE_STRING_A; -if (oldstr5741->cmem_descriptor){ -_SUB_WIKIPARSE_STRING_A=qbs_new_cmem(oldstr5741->len,0); +qbs *_FUNC_IDEF1BOX_STRING_IDEF1BOX=NULL; +if (!_FUNC_IDEF1BOX_STRING_IDEF1BOX)_FUNC_IDEF1BOX_STRING_IDEF1BOX=qbs_new(0,0); +qbs*oldstr6224=NULL; +if(_FUNC_IDEF1BOX_STRING_LNKS->tmp||_FUNC_IDEF1BOX_STRING_LNKS->fixed||_FUNC_IDEF1BOX_STRING_LNKS->readonly){ +oldstr6224=_FUNC_IDEF1BOX_STRING_LNKS; +if (oldstr6224->cmem_descriptor){ +_FUNC_IDEF1BOX_STRING_LNKS=qbs_new_cmem(oldstr6224->len,0); }else{ -_SUB_WIKIPARSE_STRING_A=qbs_new(oldstr5741->len,0); +_FUNC_IDEF1BOX_STRING_LNKS=qbs_new(oldstr6224->len,0); } -memcpy(_SUB_WIKIPARSE_STRING_A->chr,oldstr5741->chr,oldstr5741->len); +memcpy(_FUNC_IDEF1BOX_STRING_LNKS->chr,oldstr6224->chr,oldstr6224->len); } -int32 *_SUB_WIKIPARSE_LONG_LINK=NULL; -if(_SUB_WIKIPARSE_LONG_LINK==NULL){ -_SUB_WIKIPARSE_LONG_LINK=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_LINK=0; +int32 *_FUNC_IDEF1BOX_LONG_FOCUS=NULL; +if(_FUNC_IDEF1BOX_LONG_FOCUS==NULL){ +_FUNC_IDEF1BOX_LONG_FOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_FOCUS=0; } -int32 *_SUB_WIKIPARSE_LONG_ELINK=NULL; -if(_SUB_WIKIPARSE_LONG_ELINK==NULL){ -_SUB_WIKIPARSE_LONG_ELINK=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_ELINK=0; +void *_FUNC_IDEF1BOX_UDT_P=NULL; +if(_FUNC_IDEF1BOX_UDT_P==NULL){ +_FUNC_IDEF1BOX_UDT_P=(void*)mem_static_malloc(20); +memset(_FUNC_IDEF1BOX_UDT_P,0,20); } -int32 *_SUB_WIKIPARSE_LONG_CB=NULL; -if(_SUB_WIKIPARSE_LONG_CB==NULL){ -_SUB_WIKIPARSE_LONG_CB=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_CB=0; -} -int32 *_SUB_WIKIPARSE_LONG_COL=NULL; -if(_SUB_WIKIPARSE_LONG_COL==NULL){ -_SUB_WIKIPARSE_LONG_COL=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_COL=0; -} -int32 *_SUB_WIKIPARSE_LONG_PREFETCH=NULL; -if(_SUB_WIKIPARSE_LONG_PREFETCH==NULL){ -_SUB_WIKIPARSE_LONG_PREFETCH=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_PREFETCH=0; -} -ptrszint *_SUB_WIKIPARSE_ARRAY_STRING_C=NULL; -if (!_SUB_WIKIPARSE_ARRAY_STRING_C){ -_SUB_WIKIPARSE_ARRAY_STRING_C=(ptrszint*)mem_static_malloc(9*ptrsz); +ptrszint *_FUNC_IDEF1BOX_ARRAY_UDT_O=NULL; +if (!_FUNC_IDEF1BOX_ARRAY_UDT_O){ +_FUNC_IDEF1BOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); mem_lock_tmp->type=4; -((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_C)[8]=(ptrszint)mem_lock_tmp; -_SUB_WIKIPARSE_ARRAY_STRING_C[2]=0; -_SUB_WIKIPARSE_ARRAY_STRING_C[4]=2147483647; -_SUB_WIKIPARSE_ARRAY_STRING_C[5]=0; -_SUB_WIKIPARSE_ARRAY_STRING_C[6]=0; -_SUB_WIKIPARSE_ARRAY_STRING_C[0]=(ptrszint)¬hingstring; -} -int32 *_SUB_WIKIPARSE_LONG_II=NULL; -if(_SUB_WIKIPARSE_LONG_II==NULL){ -_SUB_WIKIPARSE_LONG_II=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_II=0; -} -int64 fornext_value5743; -int64 fornext_finalvalue5743; -int64 fornext_step5743; -uint8 fornext_step_negative5743; -int32 *_SUB_WIKIPARSE_LONG_N=NULL; -if(_SUB_WIKIPARSE_LONG_N==NULL){ -_SUB_WIKIPARSE_LONG_N=(int32*)mem_static_malloc(4); -*_SUB_WIKIPARSE_LONG_N=0; -} -byte_element_struct *byte_element_5744=NULL; -if (!byte_element_5744){ -if ((mem_static_pointer+=12)chr,0,1); +} +int32 *_FUNC_IDEF1BOX_LONG_I=NULL; +if(_FUNC_IDEF1BOX_LONG_I==NULL){ +_FUNC_IDEF1BOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_I=0; +} +int32 pass6225; +int32 pass6226; +int64 fornext_value6228; +int64 fornext_finalvalue6228; +int64 fornext_step6228; +uint8 fornext_step_negative6228; +int32 *_FUNC_IDEF1BOX_LONG_F=NULL; +if(_FUNC_IDEF1BOX_LONG_F==NULL){ +_FUNC_IDEF1BOX_LONG_F=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_F=0; +} +int32 *_FUNC_IDEF1BOX_LONG_CX=NULL; +if(_FUNC_IDEF1BOX_LONG_CX==NULL){ +_FUNC_IDEF1BOX_LONG_CX=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_CX=0; +} +int32 *_FUNC_IDEF1BOX_LONG_CY=NULL; +if(_FUNC_IDEF1BOX_LONG_CY==NULL){ +_FUNC_IDEF1BOX_LONG_CY=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_CY=0; +} +int64 fornext_value6231; +int64 fornext_finalvalue6231; +int64 fornext_step6231; +uint8 fornext_step_negative6231; +int32 *_FUNC_IDEF1BOX_LONG_LASTFOCUS=NULL; +if(_FUNC_IDEF1BOX_LONG_LASTFOCUS==NULL){ +_FUNC_IDEF1BOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_LASTFOCUS=0; +} +int32 *_FUNC_IDEF1BOX_LONG_CHANGE=NULL; +if(_FUNC_IDEF1BOX_LONG_CHANGE==NULL){ +_FUNC_IDEF1BOX_LONG_CHANGE=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_CHANGE=0; +} +int32 *_FUNC_IDEF1BOX_LONG_MOUSEDOWN=NULL; +if(_FUNC_IDEF1BOX_LONG_MOUSEDOWN==NULL){ +_FUNC_IDEF1BOX_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_MOUSEDOWN=0; +} +int32 *_FUNC_IDEF1BOX_LONG_MOUSEUP=NULL; +if(_FUNC_IDEF1BOX_LONG_MOUSEUP==NULL){ +_FUNC_IDEF1BOX_LONG_MOUSEUP=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_MOUSEUP=0; +} +int32 *_FUNC_IDEF1BOX_LONG_ALT=NULL; +if(_FUNC_IDEF1BOX_LONG_ALT==NULL){ +_FUNC_IDEF1BOX_LONG_ALT=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_ALT=0; +} +int32 *_FUNC_IDEF1BOX_LONG_OLDALT=NULL; +if(_FUNC_IDEF1BOX_LONG_OLDALT==NULL){ +_FUNC_IDEF1BOX_LONG_OLDALT=(int32*)mem_static_malloc(4); +*_FUNC_IDEF1BOX_LONG_OLDALT=0; +} +qbs *_FUNC_IDEF1BOX_STRING_ALTLETTER=NULL; +if (!_FUNC_IDEF1BOX_STRING_ALTLETTER)_FUNC_IDEF1BOX_STRING_ALTLETTER=qbs_new(0,0); +byte_element_struct *byte_element_6233=NULL; +if (!byte_element_6233){ +if ((mem_static_pointer+=12)tmp||_SUB_UPDATEMENUHELPLINE_STRING_A->fixed||_SUB_UPDATEMENUHELPLINE_STRING_A->readonly){ +oldstr6260=_SUB_UPDATEMENUHELPLINE_STRING_A; +if (oldstr6260->cmem_descriptor){ +_SUB_UPDATEMENUHELPLINE_STRING_A=qbs_new_cmem(oldstr6260->len,0); +}else{ +_SUB_UPDATEMENUHELPLINE_STRING_A=qbs_new(oldstr6260->len,0); +} +memcpy(_SUB_UPDATEMENUHELPLINE_STRING_A->chr,oldstr6260->chr,oldstr6260->len); +} +byte_element_struct *byte_element_6261=NULL; +if (!byte_element_6261){ +if ((mem_static_pointer+=12)tmp||_FUNC_GETELEMENT_STRING_A->fixed||_FUNC_GETELEMENT_STRING_A->readonly){ +oldstr2921=_FUNC_GETELEMENT_STRING_A; +if (oldstr2921->cmem_descriptor){ +_FUNC_GETELEMENT_STRING_A=qbs_new_cmem(oldstr2921->len,0); +}else{ +_FUNC_GETELEMENT_STRING_A=qbs_new(oldstr2921->len,0); +} +memcpy(_FUNC_GETELEMENT_STRING_A->chr,oldstr2921->chr,oldstr2921->len); +} +int32 *_FUNC_GETELEMENT_LONG_N=NULL; +if(_FUNC_GETELEMENT_LONG_N==NULL){ +_FUNC_GETELEMENT_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENT_LONG_N=0; +} +int32 *_FUNC_GETELEMENT_LONG_P=NULL; +if(_FUNC_GETELEMENT_LONG_P==NULL){ +_FUNC_GETELEMENT_LONG_P=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENT_LONG_P=0; +} +int32 *_FUNC_GETELEMENT_LONG_I=NULL; +if(_FUNC_GETELEMENT_LONG_I==NULL){ +_FUNC_GETELEMENT_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENT_LONG_I=0; +} +byte_element_struct *byte_element_2922=NULL; +if (!byte_element_2922){ +if ((mem_static_pointer+=12)tmp||_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->fixed||_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->readonly){ +oldstr6263=_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK; +if (oldstr6263->cmem_descriptor){ +_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK=qbs_new_cmem(oldstr6263->len,0); +}else{ +_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK=qbs_new(oldstr6263->len,0); +} +memcpy(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->chr,oldstr6263->chr,oldstr6263->len); +} +qbs*oldstr6264=NULL; +if(_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->tmp||_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->fixed||_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->readonly){ +oldstr6264=_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK; +if (oldstr6264->cmem_descriptor){ +_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK=qbs_new_cmem(oldstr6264->len,0); +}else{ +_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK=qbs_new(oldstr6264->len,0); +} +memcpy(_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK->chr,oldstr6264->chr,oldstr6264->len); +} +qbs*oldstr6265=NULL; +if(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->tmp||_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->fixed||_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->readonly){ +oldstr6265=_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK; +if (oldstr6265->cmem_descriptor){ +_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK=qbs_new_cmem(oldstr6265->len,0); +}else{ +_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK=qbs_new(oldstr6265->len,0); +} +memcpy(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK->chr,oldstr6265->chr,oldstr6265->len); +} +int32 *_FUNC_BINARYFORMATCHECK_LONG_FH=NULL; +if(_FUNC_BINARYFORMATCHECK_LONG_FH==NULL){ +_FUNC_BINARYFORMATCHECK_LONG_FH=(int32*)mem_static_malloc(4); +*_FUNC_BINARYFORMATCHECK_LONG_FH=0; +} +qbs *_FUNC_BINARYFORMATCHECK_STRING_A=NULL; +if (!_FUNC_BINARYFORMATCHECK_STRING_A)_FUNC_BINARYFORMATCHECK_STRING_A=qbs_new(0,0); +int16 *_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT=NULL; +if(_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==NULL){ +_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT=(int16*)mem_static_malloc(2); +*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT=0; +} +byte_element_struct *byte_element_6266=NULL; +if (!byte_element_6266){ +if ((mem_static_pointer+=12)tmp||_FUNC_REMOVESYMBOL2_STRING_VARNAME->fixed||_FUNC_REMOVESYMBOL2_STRING_VARNAME->readonly){ +oldstr6283=_FUNC_REMOVESYMBOL2_STRING_VARNAME; +if (oldstr6283->cmem_descriptor){ +_FUNC_REMOVESYMBOL2_STRING_VARNAME=qbs_new_cmem(oldstr6283->len,0); +}else{ +_FUNC_REMOVESYMBOL2_STRING_VARNAME=qbs_new(oldstr6283->len,0); +} +memcpy(_FUNC_REMOVESYMBOL2_STRING_VARNAME->chr,oldstr6283->chr,oldstr6283->len); +} +int32 *_FUNC_REMOVESYMBOL2_LONG_I=NULL; +if(_FUNC_REMOVESYMBOL2_LONG_I==NULL){ +_FUNC_REMOVESYMBOL2_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_REMOVESYMBOL2_LONG_I=0; +} diff --git a/internal/source/data232.txt b/internal/source/data232.txt new file mode 100644 index 000000000..d653dbab7 --- /dev/null +++ b/internal/source/data232.txt @@ -0,0 +1,15 @@ +qbs*oldstr6284=NULL; +if(_SUB_CLEANSUBNAME_STRING_N->tmp||_SUB_CLEANSUBNAME_STRING_N->fixed||_SUB_CLEANSUBNAME_STRING_N->readonly){ +oldstr6284=_SUB_CLEANSUBNAME_STRING_N; +if (oldstr6284->cmem_descriptor){ +_SUB_CLEANSUBNAME_STRING_N=qbs_new_cmem(oldstr6284->len,0); +}else{ +_SUB_CLEANSUBNAME_STRING_N=qbs_new(oldstr6284->len,0); +} +memcpy(_SUB_CLEANSUBNAME_STRING_N->chr,oldstr6284->chr,oldstr6284->len); +} +int32 *_SUB_CLEANSUBNAME_LONG_X=NULL; +if(_SUB_CLEANSUBNAME_LONG_X==NULL){ +_SUB_CLEANSUBNAME_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_CLEANSUBNAME_LONG_X=0; +} diff --git a/internal/source/data233.txt b/internal/source/data233.txt new file mode 100644 index 000000000..98db1c64b --- /dev/null +++ b/internal/source/data233.txt @@ -0,0 +1,4 @@ +int64 fornext_value6286; +int64 fornext_finalvalue6286; +int64 fornext_step6286; +uint8 fornext_step_negative6286; diff --git a/internal/source/data234.txt b/internal/source/data234.txt new file mode 100644 index 000000000..2ea92fbe7 --- /dev/null +++ b/internal/source/data234.txt @@ -0,0 +1,10 @@ +qbs*oldstr6287=NULL; +if(_SUB_SETSTATUSMESSAGE_STRING_TEXT->tmp||_SUB_SETSTATUSMESSAGE_STRING_TEXT->fixed||_SUB_SETSTATUSMESSAGE_STRING_TEXT->readonly){ +oldstr6287=_SUB_SETSTATUSMESSAGE_STRING_TEXT; +if (oldstr6287->cmem_descriptor){ +_SUB_SETSTATUSMESSAGE_STRING_TEXT=qbs_new_cmem(oldstr6287->len,0); +}else{ +_SUB_SETSTATUSMESSAGE_STRING_TEXT=qbs_new(oldstr6287->len,0); +} +memcpy(_SUB_SETSTATUSMESSAGE_STRING_TEXT->chr,oldstr6287->chr,oldstr6287->len); +} diff --git a/internal/source/data235.txt b/internal/source/data235.txt new file mode 100644 index 000000000..f84c3bf74 --- /dev/null +++ b/internal/source/data235.txt @@ -0,0 +1,39 @@ +qbs *_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR=NULL; +if (!_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR)_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR=qbs_new(0,0); +qbs *_FUNC_GETWORDATCURSOR_STRING_A=NULL; +if (!_FUNC_GETWORDATCURSOR_STRING_A)_FUNC_GETWORDATCURSOR_STRING_A=qbs_new(0,0); +int32 *_FUNC_GETWORDATCURSOR_LONG_X=NULL; +if(_FUNC_GETWORDATCURSOR_LONG_X==NULL){ +_FUNC_GETWORDATCURSOR_LONG_X=(int32*)mem_static_malloc(4); +*_FUNC_GETWORDATCURSOR_LONG_X=0; +} +byte_element_struct *byte_element_6288=NULL; +if (!byte_element_6288){ +if ((mem_static_pointer+=12)tmp||_SUB_INSERTATCURSOR_STRING_TEMPK->fixed||_SUB_INSERTATCURSOR_STRING_TEMPK->readonly){ +oldstr6308=_SUB_INSERTATCURSOR_STRING_TEMPK; +if (oldstr6308->cmem_descriptor){ +_SUB_INSERTATCURSOR_STRING_TEMPK=qbs_new_cmem(oldstr6308->len,0); +}else{ +_SUB_INSERTATCURSOR_STRING_TEMPK=qbs_new(oldstr6308->len,0); +} +memcpy(_SUB_INSERTATCURSOR_STRING_TEMPK->chr,oldstr6308->chr,oldstr6308->len); +} +qbs *_SUB_INSERTATCURSOR_STRING_A=NULL; +if (!_SUB_INSERTATCURSOR_STRING_A)_SUB_INSERTATCURSOR_STRING_A=qbs_new(0,0); +byte_element_struct *byte_element_6309=NULL; +if (!byte_element_6309){ +if ((mem_static_pointer+=12)tmp||_FUNC_FINDHELPTOPIC_STRING_TOPIC->fixed||_FUNC_FINDHELPTOPIC_STRING_TOPIC->readonly){ +oldstr6313=_FUNC_FINDHELPTOPIC_STRING_TOPIC; +if (oldstr6313->cmem_descriptor){ +_FUNC_FINDHELPTOPIC_STRING_TOPIC=qbs_new_cmem(oldstr6313->len,0); +}else{ +_FUNC_FINDHELPTOPIC_STRING_TOPIC=qbs_new(oldstr6313->len,0); +} +memcpy(_FUNC_FINDHELPTOPIC_STRING_TOPIC->chr,oldstr6313->chr,oldstr6313->len); +} +qbs *_FUNC_FINDHELPTOPIC_STRING_A2=NULL; +if (!_FUNC_FINDHELPTOPIC_STRING_A2)_FUNC_FINDHELPTOPIC_STRING_A2=qbs_new(0,0); +int32 *_FUNC_FINDHELPTOPIC_LONG_FH=NULL; +if(_FUNC_FINDHELPTOPIC_LONG_FH==NULL){ +_FUNC_FINDHELPTOPIC_LONG_FH=(int32*)mem_static_malloc(4); +*_FUNC_FINDHELPTOPIC_LONG_FH=0; +} +qbs *_FUNC_FINDHELPTOPIC_STRING_LNKS=NULL; +if (!_FUNC_FINDHELPTOPIC_STRING_LNKS)_FUNC_FINDHELPTOPIC_STRING_LNKS=qbs_new(0,0); +qbs *_FUNC_FINDHELPTOPIC_STRING_L=NULL; +if (!_FUNC_FINDHELPTOPIC_STRING_L)_FUNC_FINDHELPTOPIC_STRING_L=qbs_new(0,0); +int32 *_FUNC_FINDHELPTOPIC_LONG_C=NULL; +if(_FUNC_FINDHELPTOPIC_LONG_C==NULL){ +_FUNC_FINDHELPTOPIC_LONG_C=(int32*)mem_static_malloc(4); +*_FUNC_FINDHELPTOPIC_LONG_C=0; +} +qbs *_FUNC_FINDHELPTOPIC_STRING_L1=NULL; +if (!_FUNC_FINDHELPTOPIC_STRING_L1)_FUNC_FINDHELPTOPIC_STRING_L1=qbs_new(0,0); +qbs *_FUNC_FINDHELPTOPIC_STRING_L2=NULL; +if (!_FUNC_FINDHELPTOPIC_STRING_L2)_FUNC_FINDHELPTOPIC_STRING_L2=qbs_new(0,0); +byte_element_struct *byte_element_6316=NULL; +if (!byte_element_6316){ +if ((mem_static_pointer+=12)tmp||_SUB_INSERTELEMENTS_STRING_A->fixed||_SUB_INSERTELEMENTS_STRING_A->readonly){ -oldstr2715=_SUB_INSERTELEMENTS_STRING_A; -if (oldstr2715->cmem_descriptor){ -_SUB_INSERTELEMENTS_STRING_A=qbs_new_cmem(oldstr2715->len,0); +qbs *_FUNC_GETELEMENTS_STRING_GETELEMENTS=NULL; +if (!_FUNC_GETELEMENTS_STRING_GETELEMENTS)_FUNC_GETELEMENTS_STRING_GETELEMENTS=qbs_new(0,0); +qbs*oldstr2923=NULL; +if(_FUNC_GETELEMENTS_STRING_A->tmp||_FUNC_GETELEMENTS_STRING_A->fixed||_FUNC_GETELEMENTS_STRING_A->readonly){ +oldstr2923=_FUNC_GETELEMENTS_STRING_A; +if (oldstr2923->cmem_descriptor){ +_FUNC_GETELEMENTS_STRING_A=qbs_new_cmem(oldstr2923->len,0); }else{ -_SUB_INSERTELEMENTS_STRING_A=qbs_new(oldstr2715->len,0); +_FUNC_GETELEMENTS_STRING_A=qbs_new(oldstr2923->len,0); } -memcpy(_SUB_INSERTELEMENTS_STRING_A->chr,oldstr2715->chr,oldstr2715->len); +memcpy(_FUNC_GETELEMENTS_STRING_A->chr,oldstr2923->chr,oldstr2923->len); } -qbs*oldstr2716=NULL; -if(_SUB_INSERTELEMENTS_STRING_ELEMENTS->tmp||_SUB_INSERTELEMENTS_STRING_ELEMENTS->fixed||_SUB_INSERTELEMENTS_STRING_ELEMENTS->readonly){ -oldstr2716=_SUB_INSERTELEMENTS_STRING_ELEMENTS; -if (oldstr2716->cmem_descriptor){ -_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new_cmem(oldstr2716->len,0); -}else{ -_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new(oldstr2716->len,0); +int32 *_FUNC_GETELEMENTS_LONG_N=NULL; +if(_FUNC_GETELEMENTS_LONG_N==NULL){ +_FUNC_GETELEMENTS_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTS_LONG_N=0; } -memcpy(_SUB_INSERTELEMENTS_STRING_ELEMENTS->chr,oldstr2716->chr,oldstr2716->len); +int32 *_FUNC_GETELEMENTS_LONG_P=NULL; +if(_FUNC_GETELEMENTS_LONG_P==NULL){ +_FUNC_GETELEMENTS_LONG_P=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTS_LONG_P=0; } -qbs *_SUB_INSERTELEMENTS_STRING_A2=NULL; -if (!_SUB_INSERTELEMENTS_STRING_A2)_SUB_INSERTELEMENTS_STRING_A2=qbs_new(0,0); -int32 *_SUB_INSERTELEMENTS_LONG_N=NULL; -if(_SUB_INSERTELEMENTS_LONG_N==NULL){ -_SUB_INSERTELEMENTS_LONG_N=(int32*)mem_static_malloc(4); -*_SUB_INSERTELEMENTS_LONG_N=0; +int32 *_FUNC_GETELEMENTS_LONG_I=NULL; +if(_FUNC_GETELEMENTS_LONG_I==NULL){ +_FUNC_GETELEMENTS_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTS_LONG_I=0; } -int32 *_SUB_INSERTELEMENTS_LONG_I2=NULL; -if(_SUB_INSERTELEMENTS_LONG_I2==NULL){ -_SUB_INSERTELEMENTS_LONG_I2=(int32*)mem_static_malloc(4); -*_SUB_INSERTELEMENTS_LONG_I2=0; +int32 *_FUNC_GETELEMENTS_LONG_I1POS=NULL; +if(_FUNC_GETELEMENTS_LONG_I1POS==NULL){ +_FUNC_GETELEMENTS_LONG_I1POS=(int32*)mem_static_malloc(4); +*_FUNC_GETELEMENTS_LONG_I1POS=0; +} +byte_element_struct *byte_element_2924=NULL; +if (!byte_element_2924){ +if ((mem_static_pointer+=12)tmp||_FUNC_ISNUMBER_STRING___A->fixed||_FUNC_ISNUMBER_STRING___A->readonly){ +oldstr6317=_FUNC_ISNUMBER_STRING___A; +if (oldstr6317->cmem_descriptor){ +_FUNC_ISNUMBER_STRING___A=qbs_new_cmem(oldstr6317->len,0); +}else{ +_FUNC_ISNUMBER_STRING___A=qbs_new(oldstr6317->len,0); +} +memcpy(_FUNC_ISNUMBER_STRING___A->chr,oldstr6317->chr,oldstr6317->len); +} +qbs *_FUNC_ISNUMBER_STRING_A=NULL; +if (!_FUNC_ISNUMBER_STRING_A)_FUNC_ISNUMBER_STRING_A=qbs_new(0,0); +byte_element_struct *byte_element_6318=NULL; +if (!byte_element_6318){ +if ((mem_static_pointer+=12)tmp||_FUNC_BACK2BACKNAME_STRING_A->fixed||_FUNC_BACK2BACKNAME_STRING_A->readonly){ +oldstr6324=_FUNC_BACK2BACKNAME_STRING_A; +if (oldstr6324->cmem_descriptor){ +_FUNC_BACK2BACKNAME_STRING_A=qbs_new_cmem(oldstr6324->len,0); +}else{ +_FUNC_BACK2BACKNAME_STRING_A=qbs_new(oldstr6324->len,0); +} +memcpy(_FUNC_BACK2BACKNAME_STRING_A->chr,oldstr6324->chr,oldstr6324->len); +} diff --git a/internal/source/data242.txt b/internal/source/data242.txt new file mode 100644 index 000000000..fc8fc9479 --- /dev/null +++ b/internal/source/data242.txt @@ -0,0 +1,87 @@ +qbs *_FUNC_WIKI_STRING_WIKI=NULL; +if (!_FUNC_WIKI_STRING_WIKI)_FUNC_WIKI_STRING_WIKI=qbs_new(0,0); +qbs*oldstr6325=NULL; +if(_FUNC_WIKI_STRING_PAGENAME->tmp||_FUNC_WIKI_STRING_PAGENAME->fixed||_FUNC_WIKI_STRING_PAGENAME->readonly){ +oldstr6325=_FUNC_WIKI_STRING_PAGENAME; +if (oldstr6325->cmem_descriptor){ +_FUNC_WIKI_STRING_PAGENAME=qbs_new_cmem(oldstr6325->len,0); +}else{ +_FUNC_WIKI_STRING_PAGENAME=qbs_new(oldstr6325->len,0); +} +memcpy(_FUNC_WIKI_STRING_PAGENAME->chr,oldstr6325->chr,oldstr6325->len); +} +qbs *_FUNC_WIKI_STRING_PAGENAME2=NULL; +if (!_FUNC_WIKI_STRING_PAGENAME2)_FUNC_WIKI_STRING_PAGENAME2=qbs_new(0,0); +int32 *_FUNC_WIKI_LONG_I=NULL; +if(_FUNC_WIKI_LONG_I==NULL){ +_FUNC_WIKI_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_WIKI_LONG_I=0; +} +byte_element_struct *byte_element_6328=NULL; +if (!byte_element_6328){ +if ((mem_static_pointer+=12)tmp||_SUB_HELP_ADDTXT_STRING_T->fixed||_SUB_HELP_ADDTXT_STRING_T->readonly){ +oldstr6339=_SUB_HELP_ADDTXT_STRING_T; +if (oldstr6339->cmem_descriptor){ +_SUB_HELP_ADDTXT_STRING_T=qbs_new_cmem(oldstr6339->len,0); +}else{ +_SUB_HELP_ADDTXT_STRING_T=qbs_new(oldstr6339->len,0); +} +memcpy(_SUB_HELP_ADDTXT_STRING_T->chr,oldstr6339->chr,oldstr6339->len); +} +int32 *_SUB_HELP_ADDTXT_LONG_I=NULL; +if(_SUB_HELP_ADDTXT_LONG_I==NULL){ +_SUB_HELP_ADDTXT_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_HELP_ADDTXT_LONG_I=0; +} +int64 fornext_value6341; +int64 fornext_finalvalue6341; +int64 fornext_step6341; +uint8 fornext_step_negative6341; +byte_element_struct *byte_element_6342=NULL; +if (!byte_element_6342){ +if ((mem_static_pointer+=12)tmp||_SUB_WIKIPARSE_STRING_A->fixed||_SUB_WIKIPARSE_STRING_A->readonly){ +oldstr6360=_SUB_WIKIPARSE_STRING_A; +if (oldstr6360->cmem_descriptor){ +_SUB_WIKIPARSE_STRING_A=qbs_new_cmem(oldstr6360->len,0); +}else{ +_SUB_WIKIPARSE_STRING_A=qbs_new(oldstr6360->len,0); +} +memcpy(_SUB_WIKIPARSE_STRING_A->chr,oldstr6360->chr,oldstr6360->len); +} +int32 *_SUB_WIKIPARSE_LONG_LINK=NULL; +if(_SUB_WIKIPARSE_LONG_LINK==NULL){ +_SUB_WIKIPARSE_LONG_LINK=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_LINK=0; +} +int32 *_SUB_WIKIPARSE_LONG_ELINK=NULL; +if(_SUB_WIKIPARSE_LONG_ELINK==NULL){ +_SUB_WIKIPARSE_LONG_ELINK=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_ELINK=0; +} +int32 *_SUB_WIKIPARSE_LONG_CB=NULL; +if(_SUB_WIKIPARSE_LONG_CB==NULL){ +_SUB_WIKIPARSE_LONG_CB=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_CB=0; +} +int32 *_SUB_WIKIPARSE_LONG_COL=NULL; +if(_SUB_WIKIPARSE_LONG_COL==NULL){ +_SUB_WIKIPARSE_LONG_COL=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_COL=0; +} +int32 *_SUB_WIKIPARSE_LONG_PREFETCH=NULL; +if(_SUB_WIKIPARSE_LONG_PREFETCH==NULL){ +_SUB_WIKIPARSE_LONG_PREFETCH=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_PREFETCH=0; +} +ptrszint *_SUB_WIKIPARSE_ARRAY_STRING_C=NULL; +if (!_SUB_WIKIPARSE_ARRAY_STRING_C){ +_SUB_WIKIPARSE_ARRAY_STRING_C=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_C)[8]=(ptrszint)mem_lock_tmp; +_SUB_WIKIPARSE_ARRAY_STRING_C[2]=0; +_SUB_WIKIPARSE_ARRAY_STRING_C[4]=2147483647; +_SUB_WIKIPARSE_ARRAY_STRING_C[5]=0; +_SUB_WIKIPARSE_ARRAY_STRING_C[6]=0; +_SUB_WIKIPARSE_ARRAY_STRING_C[0]=(ptrszint)¬hingstring; +} +int32 *_SUB_WIKIPARSE_LONG_II=NULL; +if(_SUB_WIKIPARSE_LONG_II==NULL){ +_SUB_WIKIPARSE_LONG_II=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_II=0; +} +int64 fornext_value6362; +int64 fornext_finalvalue6362; +int64 fornext_step6362; +uint8 fornext_step_negative6362; +int32 *_SUB_WIKIPARSE_LONG_I=NULL; +if(_SUB_WIKIPARSE_LONG_I==NULL){ +_SUB_WIKIPARSE_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_I=0; +} +int32 *_SUB_WIKIPARSE_LONG_N=NULL; +if(_SUB_WIKIPARSE_LONG_N==NULL){ +_SUB_WIKIPARSE_LONG_N=(int32*)mem_static_malloc(4); +*_SUB_WIKIPARSE_LONG_N=0; +} +byte_element_struct *byte_element_6364=NULL; +if (!byte_element_6364){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW)[8]=(ptrszint)mem_lock_tmp; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]=0; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]=2147483647; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]=0; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[6]=0; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]=(ptrszint)¬hingstring; +} +ptrszint *_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL=NULL; +if (!_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL){ +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL)[8]=(ptrszint)mem_lock_tmp; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]=0; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]=2147483647; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]=0; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[6]=0; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)nothingvalue; +} +int16 *_SUB_WIKIPARSE_INTEGER_TOTALCOLS=NULL; +if(_SUB_WIKIPARSE_INTEGER_TOTALCOLS==NULL){ +_SUB_WIKIPARSE_INTEGER_TOTALCOLS=(int16*)mem_static_malloc(2); +*_SUB_WIKIPARSE_INTEGER_TOTALCOLS=0; +} +int16 *_SUB_WIKIPARSE_INTEGER_TOTALROWS=NULL; +if(_SUB_WIKIPARSE_INTEGER_TOTALROWS==NULL){ +_SUB_WIKIPARSE_INTEGER_TOTALROWS=(int16*)mem_static_malloc(2); +*_SUB_WIKIPARSE_INTEGER_TOTALROWS=0; +} +int16 *_SUB_WIKIPARSE_INTEGER_THISCOL=NULL; +if(_SUB_WIKIPARSE_INTEGER_THISCOL==NULL){ +_SUB_WIKIPARSE_INTEGER_THISCOL=(int16*)mem_static_malloc(2); +*_SUB_WIKIPARSE_INTEGER_THISCOL=0; +} +qbs *_SUB_WIKIPARSE_STRING_L=NULL; +if (!_SUB_WIKIPARSE_STRING_L)_SUB_WIKIPARSE_STRING_L=qbs_new(0,0); +byte_element_struct *byte_element_6430=NULL; +if (!byte_element_6430){ +if ((mem_static_pointer+=12)tmp||_FUNC_WIKIGETLINE_STRING_A->fixed||_FUNC_WIKIGETLINE_STRING_A->readonly){ +oldstr6478=_FUNC_WIKIGETLINE_STRING_A; +if (oldstr6478->cmem_descriptor){ +_FUNC_WIKIGETLINE_STRING_A=qbs_new_cmem(oldstr6478->len,0); +}else{ +_FUNC_WIKIGETLINE_STRING_A=qbs_new(oldstr6478->len,0); +} +memcpy(_FUNC_WIKIGETLINE_STRING_A->chr,oldstr6478->chr,oldstr6478->len); +} diff --git a/internal/source/data249.txt b/internal/source/data249.txt new file mode 100644 index 000000000..4ea037639 --- /dev/null +++ b/internal/source/data249.txt @@ -0,0 +1,35 @@ +qbs *_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL=NULL; +if (!_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL)_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL=qbs_new(0,0); +qbs*oldstr6479=NULL; +if(_FUNC_WIKIGETUNTIL_STRING_A->tmp||_FUNC_WIKIGETUNTIL_STRING_A->fixed||_FUNC_WIKIGETUNTIL_STRING_A->readonly){ +oldstr6479=_FUNC_WIKIGETUNTIL_STRING_A; +if (oldstr6479->cmem_descriptor){ +_FUNC_WIKIGETUNTIL_STRING_A=qbs_new_cmem(oldstr6479->len,0); +}else{ +_FUNC_WIKIGETUNTIL_STRING_A=qbs_new(oldstr6479->len,0); +} +memcpy(_FUNC_WIKIGETUNTIL_STRING_A->chr,oldstr6479->chr,oldstr6479->len); +} +qbs*oldstr6480=NULL; +if(_FUNC_WIKIGETUNTIL_STRING_SEPARATOR->tmp||_FUNC_WIKIGETUNTIL_STRING_SEPARATOR->fixed||_FUNC_WIKIGETUNTIL_STRING_SEPARATOR->readonly){ +oldstr6480=_FUNC_WIKIGETUNTIL_STRING_SEPARATOR; +if (oldstr6480->cmem_descriptor){ +_FUNC_WIKIGETUNTIL_STRING_SEPARATOR=qbs_new_cmem(oldstr6480->len,0); +}else{ +_FUNC_WIKIGETUNTIL_STRING_SEPARATOR=qbs_new(oldstr6480->len,0); +} +memcpy(_FUNC_WIKIGETUNTIL_STRING_SEPARATOR->chr,oldstr6480->chr,oldstr6480->len); +} +byte_element_struct *byte_element_6481=NULL; +if (!byte_element_6481){ +if ((mem_static_pointer+=12)tmp||_FUNC_ISNUMBER_STRING_A->fixed||_FUNC_ISNUMBER_STRING_A->readonly){ -oldstr2719=_FUNC_ISNUMBER_STRING_A; -if (oldstr2719->cmem_descriptor){ -_FUNC_ISNUMBER_STRING_A=qbs_new_cmem(oldstr2719->len,0); -}else{ -_FUNC_ISNUMBER_STRING_A=qbs_new(oldstr2719->len,0); -} -memcpy(_FUNC_ISNUMBER_STRING_A->chr,oldstr2719->chr,oldstr2719->len); -} -byte_element_struct *byte_element_2720=NULL; -if (!byte_element_2720){ -if ((mem_static_pointer+=12)tmp||_SUB_PRINTWRAPSTATUS_STRING___TEXT->fixed||_SUB_PRINTWRAPSTATUS_STRING___TEXT->readonly){ +oldstr6483=_SUB_PRINTWRAPSTATUS_STRING___TEXT; +if (oldstr6483->cmem_descriptor){ +_SUB_PRINTWRAPSTATUS_STRING___TEXT=qbs_new_cmem(oldstr6483->len,0); +}else{ +_SUB_PRINTWRAPSTATUS_STRING___TEXT=qbs_new(oldstr6483->len,0); +} +memcpy(_SUB_PRINTWRAPSTATUS_STRING___TEXT->chr,oldstr6483->chr,oldstr6483->len); +} +qbs *_SUB_PRINTWRAPSTATUS_STRING_TEXT=NULL; +if (!_SUB_PRINTWRAPSTATUS_STRING_TEXT)_SUB_PRINTWRAPSTATUS_STRING_TEXT=qbs_new(0,0); +qbs *_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD=NULL; +if (!_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD)_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD=qbs_new(0,0); +int16 *_SUB_PRINTWRAPSTATUS_INTEGER_I=NULL; +if(_SUB_PRINTWRAPSTATUS_INTEGER_I==NULL){ +_SUB_PRINTWRAPSTATUS_INTEGER_I=(int16*)mem_static_malloc(2); +*_SUB_PRINTWRAPSTATUS_INTEGER_I=0; +} +int16 *_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=NULL; +if(_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP==NULL){ +_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=(int16*)mem_static_malloc(2); +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=0; +} +int16 *_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=NULL; +if(_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER==NULL){ +_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=(int16*)mem_static_malloc(2); +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=0; +} +int16 *_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=NULL; +if(_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==NULL){ +_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=(int16*)mem_static_malloc(2); +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=0; +} +int16 *_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=NULL; +if(_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER==NULL){ +_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=(int16*)mem_static_malloc(2); +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=0; +} +byte_element_struct *byte_element_6485=NULL; +if (!byte_element_6485){ +if ((mem_static_pointer+=12)tmp||_FUNC_GETBYTES_STRING___VALUE->fixed||_FUNC_GETBYTES_STRING___VALUE->readonly){ +oldstr6491=_FUNC_GETBYTES_STRING___VALUE; +if (oldstr6491->cmem_descriptor){ +_FUNC_GETBYTES_STRING___VALUE=qbs_new_cmem(oldstr6491->len,0); +}else{ +_FUNC_GETBYTES_STRING___VALUE=qbs_new(oldstr6491->len,0); +} +memcpy(_FUNC_GETBYTES_STRING___VALUE->chr,oldstr6491->chr,oldstr6491->len); +} +qbs *_FUNC_GETBYTES_STRING_VALUE=NULL; +if (!_FUNC_GETBYTES_STRING_VALUE)_FUNC_GETBYTES_STRING_VALUE=qbs_new(0,0); diff --git a/internal/c/parts/audio/out/android/OpenAL/include/AL/oalStaticBufferExtension.h b/internal/source/data253.txt similarity index 100% rename from internal/c/parts/audio/out/android/OpenAL/include/AL/oalStaticBufferExtension.h rename to internal/source/data253.txt diff --git a/internal/c/parts/audio/out/android/OpenAL/oalStaticBufferExtension.h b/internal/source/data254.txt similarity index 100% rename from internal/c/parts/audio/out/android/OpenAL/oalStaticBufferExtension.h rename to internal/source/data254.txt diff --git a/internal/c/parts/audio/out/android/other/AL/oalStaticBufferExtension.h b/internal/source/data255.txt similarity index 100% rename from internal/c/parts/audio/out/android/other/AL/oalStaticBufferExtension.h rename to internal/source/data255.txt diff --git a/internal/source/data26.txt b/internal/source/data26.txt index cf4407b20..ded415ec5 100644 --- a/internal/source/data26.txt +++ b/internal/source/data26.txt @@ -1,22 +1,36 @@ -int32 *_FUNC_ISOPERATOR_LONG_ISOPERATOR=NULL; -if(_FUNC_ISOPERATOR_LONG_ISOPERATOR==NULL){ -_FUNC_ISOPERATOR_LONG_ISOPERATOR=(int32*)mem_static_malloc(4); -*_FUNC_ISOPERATOR_LONG_ISOPERATOR=0; -} -qbs*oldstr2725=NULL; -if(_FUNC_ISOPERATOR_STRING_A2->tmp||_FUNC_ISOPERATOR_STRING_A2->fixed||_FUNC_ISOPERATOR_STRING_A2->readonly){ -oldstr2725=_FUNC_ISOPERATOR_STRING_A2; -if (oldstr2725->cmem_descriptor){ -_FUNC_ISOPERATOR_STRING_A2=qbs_new_cmem(oldstr2725->len,0); +qbs*oldstr2925=NULL; +if(_SUB_INSERTELEMENTS_STRING_A->tmp||_SUB_INSERTELEMENTS_STRING_A->fixed||_SUB_INSERTELEMENTS_STRING_A->readonly){ +oldstr2925=_SUB_INSERTELEMENTS_STRING_A; +if (oldstr2925->cmem_descriptor){ +_SUB_INSERTELEMENTS_STRING_A=qbs_new_cmem(oldstr2925->len,0); }else{ -_FUNC_ISOPERATOR_STRING_A2=qbs_new(oldstr2725->len,0); +_SUB_INSERTELEMENTS_STRING_A=qbs_new(oldstr2925->len,0); } -memcpy(_FUNC_ISOPERATOR_STRING_A2->chr,oldstr2725->chr,oldstr2725->len); +memcpy(_SUB_INSERTELEMENTS_STRING_A->chr,oldstr2925->chr,oldstr2925->len); } -qbs *_FUNC_ISOPERATOR_STRING_A=NULL; -if (!_FUNC_ISOPERATOR_STRING_A)_FUNC_ISOPERATOR_STRING_A=qbs_new(0,0); -int32 *_FUNC_ISOPERATOR_LONG_L=NULL; -if(_FUNC_ISOPERATOR_LONG_L==NULL){ -_FUNC_ISOPERATOR_LONG_L=(int32*)mem_static_malloc(4); -*_FUNC_ISOPERATOR_LONG_L=0; +qbs*oldstr2926=NULL; +if(_SUB_INSERTELEMENTS_STRING_ELEMENTS->tmp||_SUB_INSERTELEMENTS_STRING_ELEMENTS->fixed||_SUB_INSERTELEMENTS_STRING_ELEMENTS->readonly){ +oldstr2926=_SUB_INSERTELEMENTS_STRING_ELEMENTS; +if (oldstr2926->cmem_descriptor){ +_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new_cmem(oldstr2926->len,0); +}else{ +_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new(oldstr2926->len,0); } +memcpy(_SUB_INSERTELEMENTS_STRING_ELEMENTS->chr,oldstr2926->chr,oldstr2926->len); +} +qbs *_SUB_INSERTELEMENTS_STRING_A2=NULL; +if (!_SUB_INSERTELEMENTS_STRING_A2)_SUB_INSERTELEMENTS_STRING_A2=qbs_new(0,0); +int32 *_SUB_INSERTELEMENTS_LONG_N=NULL; +if(_SUB_INSERTELEMENTS_LONG_N==NULL){ +_SUB_INSERTELEMENTS_LONG_N=(int32*)mem_static_malloc(4); +*_SUB_INSERTELEMENTS_LONG_N=0; +} +int32 *_SUB_INSERTELEMENTS_LONG_I2=NULL; +if(_SUB_INSERTELEMENTS_LONG_I2==NULL){ +_SUB_INSERTELEMENTS_LONG_I2=(int32*)mem_static_malloc(4); +*_SUB_INSERTELEMENTS_LONG_I2=0; +} +int64 fornext_value2928; +int64 fornext_finalvalue2928; +int64 fornext_step2928; +uint8 fornext_step_negative2928; diff --git a/internal/source/data27.txt b/internal/source/data27.txt index f42d41133..9c5a482f2 100644 --- a/internal/source/data27.txt +++ b/internal/source/data27.txt @@ -1,41 +1,22 @@ -int32 *_FUNC_ISUINTEGER_LONG_ISUINTEGER=NULL; -if(_FUNC_ISUINTEGER_LONG_ISUINTEGER==NULL){ -_FUNC_ISUINTEGER_LONG_ISUINTEGER=(int32*)mem_static_malloc(4); -*_FUNC_ISUINTEGER_LONG_ISUINTEGER=0; +int32 *_FUNC_ISOPERATOR_LONG_ISOPERATOR=NULL; +if(_FUNC_ISOPERATOR_LONG_ISOPERATOR==NULL){ +_FUNC_ISOPERATOR_LONG_ISOPERATOR=(int32*)mem_static_malloc(4); +*_FUNC_ISOPERATOR_LONG_ISOPERATOR=0; } -qbs*oldstr2726=NULL; -if(_FUNC_ISUINTEGER_STRING_I->tmp||_FUNC_ISUINTEGER_STRING_I->fixed||_FUNC_ISUINTEGER_STRING_I->readonly){ -oldstr2726=_FUNC_ISUINTEGER_STRING_I; -if (oldstr2726->cmem_descriptor){ -_FUNC_ISUINTEGER_STRING_I=qbs_new_cmem(oldstr2726->len,0); +qbs*oldstr2929=NULL; +if(_FUNC_ISOPERATOR_STRING_A2->tmp||_FUNC_ISOPERATOR_STRING_A2->fixed||_FUNC_ISOPERATOR_STRING_A2->readonly){ +oldstr2929=_FUNC_ISOPERATOR_STRING_A2; +if (oldstr2929->cmem_descriptor){ +_FUNC_ISOPERATOR_STRING_A2=qbs_new_cmem(oldstr2929->len,0); }else{ -_FUNC_ISUINTEGER_STRING_I=qbs_new(oldstr2726->len,0); +_FUNC_ISOPERATOR_STRING_A2=qbs_new(oldstr2929->len,0); } -memcpy(_FUNC_ISUINTEGER_STRING_I->chr,oldstr2726->chr,oldstr2726->len); +memcpy(_FUNC_ISOPERATOR_STRING_A2->chr,oldstr2929->chr,oldstr2929->len); } -byte_element_struct *byte_element_2727=NULL; -if (!byte_element_2727){ -if ((mem_static_pointer+=12)tmp||_FUNC_ISVALIDVARIABLE_STRING_A->fixed||_FUNC_ISVALIDVARIABLE_STRING_A->readonly){ -oldstr2732=_FUNC_ISVALIDVARIABLE_STRING_A; -if (oldstr2732->cmem_descriptor){ -_FUNC_ISVALIDVARIABLE_STRING_A=qbs_new_cmem(oldstr2732->len,0); +qbs*oldstr2930=NULL; +if(_FUNC_ISUINTEGER_STRING_I->tmp||_FUNC_ISUINTEGER_STRING_I->fixed||_FUNC_ISUINTEGER_STRING_I->readonly){ +oldstr2930=_FUNC_ISUINTEGER_STRING_I; +if (oldstr2930->cmem_descriptor){ +_FUNC_ISUINTEGER_STRING_I=qbs_new_cmem(oldstr2930->len,0); }else{ -_FUNC_ISVALIDVARIABLE_STRING_A=qbs_new(oldstr2732->len,0); +_FUNC_ISUINTEGER_STRING_I=qbs_new(oldstr2930->len,0); } -memcpy(_FUNC_ISVALIDVARIABLE_STRING_A->chr,oldstr2732->chr,oldstr2732->len); +memcpy(_FUNC_ISUINTEGER_STRING_I->chr,oldstr2930->chr,oldstr2930->len); } -int32 *_FUNC_ISVALIDVARIABLE_LONG_I=NULL; -if(_FUNC_ISVALIDVARIABLE_LONG_I==NULL){ -_FUNC_ISVALIDVARIABLE_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_ISVALIDVARIABLE_LONG_I=0; +byte_element_struct *byte_element_2931=NULL; +if (!byte_element_2931){ +if ((mem_static_pointer+=12)tmp||_FUNC_LINEFORMAT_STRING_A->fixed||_FUNC_LINEFORMAT_STRING_A->readonly){ -oldstr2738=_FUNC_LINEFORMAT_STRING_A; -if (oldstr2738->cmem_descriptor){ -_FUNC_LINEFORMAT_STRING_A=qbs_new_cmem(oldstr2738->len,0); +int32 *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE=NULL; +if(_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE==NULL){ +_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE=(int32*)mem_static_malloc(4); +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE=0; +} +qbs*oldstr2936=NULL; +if(_FUNC_ISVALIDVARIABLE_STRING_A->tmp||_FUNC_ISVALIDVARIABLE_STRING_A->fixed||_FUNC_ISVALIDVARIABLE_STRING_A->readonly){ +oldstr2936=_FUNC_ISVALIDVARIABLE_STRING_A; +if (oldstr2936->cmem_descriptor){ +_FUNC_ISVALIDVARIABLE_STRING_A=qbs_new_cmem(oldstr2936->len,0); }else{ -_FUNC_LINEFORMAT_STRING_A=qbs_new(oldstr2738->len,0); -} -memcpy(_FUNC_LINEFORMAT_STRING_A->chr,oldstr2738->chr,oldstr2738->len); -} -qbs *_FUNC_LINEFORMAT_STRING_A2=NULL; -if (!_FUNC_LINEFORMAT_STRING_A2)_FUNC_LINEFORMAT_STRING_A2=qbs_new(0,0); -qbs *_FUNC_LINEFORMAT_STRING_CA=NULL; -if (!_FUNC_LINEFORMAT_STRING_CA)_FUNC_LINEFORMAT_STRING_CA=qbs_new(0,0); -int32 *_FUNC_LINEFORMAT_LONG_N=NULL; -if(_FUNC_LINEFORMAT_LONG_N==NULL){ -_FUNC_LINEFORMAT_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_LINEFORMAT_LONG_N=0; -} -byte_element_struct *byte_element_2739=NULL; -if (!byte_element_2739){ -if ((mem_static_pointer+=12)len,0); +} +memcpy(_FUNC_ISVALIDVARIABLE_STRING_A->chr,oldstr2936->chr,oldstr2936->len); +} +int32 *_FUNC_ISVALIDVARIABLE_LONG_I=NULL; +if(_FUNC_ISVALIDVARIABLE_LONG_I==NULL){ +_FUNC_ISVALIDVARIABLE_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_ISVALIDVARIABLE_LONG_I=0; +} +int64 fornext_value2938; +int64 fornext_finalvalue2938; +int64 fornext_step2938; +uint8 fornext_step_negative2938; +byte_element_struct *byte_element_2939=NULL; +if (!byte_element_2939){ +if ((mem_static_pointer+=12)tmp||_FUNC_FILEHASEXTENSION_STRING_F->fixed||_FUNC_FILEHASEXTENSION_STRING_F->readonly){ -oldstr2049=_FUNC_FILEHASEXTENSION_STRING_F; -if (oldstr2049->cmem_descriptor){ -_FUNC_FILEHASEXTENSION_STRING_F=qbs_new_cmem(oldstr2049->len,0); +oldstr2202=_FUNC_FILEHASEXTENSION_STRING_F; +if (oldstr2202->cmem_descriptor){ +_FUNC_FILEHASEXTENSION_STRING_F=qbs_new_cmem(oldstr2202->len,0); }else{ -_FUNC_FILEHASEXTENSION_STRING_F=qbs_new(oldstr2049->len,0); +_FUNC_FILEHASEXTENSION_STRING_F=qbs_new(oldstr2202->len,0); } -memcpy(_FUNC_FILEHASEXTENSION_STRING_F->chr,oldstr2049->chr,oldstr2049->len); +memcpy(_FUNC_FILEHASEXTENSION_STRING_F->chr,oldstr2202->chr,oldstr2202->len); } int32 *_FUNC_FILEHASEXTENSION_LONG_I=NULL; if(_FUNC_FILEHASEXTENSION_LONG_I==NULL){ _FUNC_FILEHASEXTENSION_LONG_I=(int32*)mem_static_malloc(4); *_FUNC_FILEHASEXTENSION_LONG_I=0; } -int64 fornext_value2051; -int64 fornext_finalvalue2051; -int64 fornext_step2051; -uint8 fornext_step_negative2051; -byte_element_struct *byte_element_2052=NULL; -if (!byte_element_2052){ -if ((mem_static_pointer+=12)tmp||_SUB_MAKEIDREFER_STRING_REF->fixed||_SUB_MAKEIDREFER_STRING_REF->readonly){ -oldstr2839=_SUB_MAKEIDREFER_STRING_REF; -if (oldstr2839->cmem_descriptor){ -_SUB_MAKEIDREFER_STRING_REF=qbs_new_cmem(oldstr2839->len,0); +qbs *_FUNC_LINEFORMAT_STRING_LINEFORMAT=NULL; +if (!_FUNC_LINEFORMAT_STRING_LINEFORMAT)_FUNC_LINEFORMAT_STRING_LINEFORMAT=qbs_new(0,0); +qbs*oldstr2942=NULL; +if(_FUNC_LINEFORMAT_STRING_A->tmp||_FUNC_LINEFORMAT_STRING_A->fixed||_FUNC_LINEFORMAT_STRING_A->readonly){ +oldstr2942=_FUNC_LINEFORMAT_STRING_A; +if (oldstr2942->cmem_descriptor){ +_FUNC_LINEFORMAT_STRING_A=qbs_new_cmem(oldstr2942->len,0); }else{ -_SUB_MAKEIDREFER_STRING_REF=qbs_new(oldstr2839->len,0); +_FUNC_LINEFORMAT_STRING_A=qbs_new(oldstr2942->len,0); } -memcpy(_SUB_MAKEIDREFER_STRING_REF->chr,oldstr2839->chr,oldstr2839->len); +memcpy(_FUNC_LINEFORMAT_STRING_A->chr,oldstr2942->chr,oldstr2942->len); +} +qbs *_FUNC_LINEFORMAT_STRING_A2=NULL; +if (!_FUNC_LINEFORMAT_STRING_A2)_FUNC_LINEFORMAT_STRING_A2=qbs_new(0,0); +qbs *_FUNC_LINEFORMAT_STRING_CA=NULL; +if (!_FUNC_LINEFORMAT_STRING_CA)_FUNC_LINEFORMAT_STRING_CA=qbs_new(0,0); +int32 *_FUNC_LINEFORMAT_LONG_N=NULL; +if(_FUNC_LINEFORMAT_LONG_N==NULL){ +_FUNC_LINEFORMAT_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_LINEFORMAT_LONG_N=0; +} +byte_element_struct *byte_element_2943=NULL; +if (!byte_element_2943){ +if ((mem_static_pointer+=12)tmp||_FUNC_NUMELEMENTS_STRING_A->fixed||_FUNC_NUMELEMENTS_STRING_A->readonly){ -oldstr2840=_FUNC_NUMELEMENTS_STRING_A; -if (oldstr2840->cmem_descriptor){ -_FUNC_NUMELEMENTS_STRING_A=qbs_new_cmem(oldstr2840->len,0); +qbs*oldstr3041=NULL; +if(_SUB_MAKEIDREFER_STRING_REF->tmp||_SUB_MAKEIDREFER_STRING_REF->fixed||_SUB_MAKEIDREFER_STRING_REF->readonly){ +oldstr3041=_SUB_MAKEIDREFER_STRING_REF; +if (oldstr3041->cmem_descriptor){ +_SUB_MAKEIDREFER_STRING_REF=qbs_new_cmem(oldstr3041->len,0); }else{ -_FUNC_NUMELEMENTS_STRING_A=qbs_new(oldstr2840->len,0); +_SUB_MAKEIDREFER_STRING_REF=qbs_new(oldstr3041->len,0); } -memcpy(_FUNC_NUMELEMENTS_STRING_A->chr,oldstr2840->chr,oldstr2840->len); -} -int32 *_FUNC_NUMELEMENTS_LONG_N=NULL; -if(_FUNC_NUMELEMENTS_LONG_N==NULL){ -_FUNC_NUMELEMENTS_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_NUMELEMENTS_LONG_N=0; -} -int32 *_FUNC_NUMELEMENTS_LONG_P=NULL; -if(_FUNC_NUMELEMENTS_LONG_P==NULL){ -_FUNC_NUMELEMENTS_LONG_P=(int32*)mem_static_malloc(4); -*_FUNC_NUMELEMENTS_LONG_P=0; -} -int32 *_FUNC_NUMELEMENTS_LONG_I=NULL; -if(_FUNC_NUMELEMENTS_LONG_I==NULL){ -_FUNC_NUMELEMENTS_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_NUMELEMENTS_LONG_I=0; +memcpy(_SUB_MAKEIDREFER_STRING_REF->chr,oldstr3041->chr,oldstr3041->len); } diff --git a/internal/source/data32.txt b/internal/source/data32.txt index aa78e7257..92ccfc2ba 100644 --- a/internal/source/data32.txt +++ b/internal/source/data32.txt @@ -1,25 +1,30 @@ -int32 *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=NULL; -if(_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE==NULL){ -_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=(int32*)mem_static_malloc(4); -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=0; +int32 *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=NULL; +if(_FUNC_NUMELEMENTS_LONG_NUMELEMENTS==NULL){ +_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=(int32*)mem_static_malloc(4); +*_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=0; } -qbs*oldstr2841=NULL; -if(_FUNC_OPERATORUSAGE_STRING_OPERATOR->tmp||_FUNC_OPERATORUSAGE_STRING_OPERATOR->fixed||_FUNC_OPERATORUSAGE_STRING_OPERATOR->readonly){ -oldstr2841=_FUNC_OPERATORUSAGE_STRING_OPERATOR; -if (oldstr2841->cmem_descriptor){ -_FUNC_OPERATORUSAGE_STRING_OPERATOR=qbs_new_cmem(oldstr2841->len,0); +qbs*oldstr3042=NULL; +if(_FUNC_NUMELEMENTS_STRING_A->tmp||_FUNC_NUMELEMENTS_STRING_A->fixed||_FUNC_NUMELEMENTS_STRING_A->readonly){ +oldstr3042=_FUNC_NUMELEMENTS_STRING_A; +if (oldstr3042->cmem_descriptor){ +_FUNC_NUMELEMENTS_STRING_A=qbs_new_cmem(oldstr3042->len,0); }else{ -_FUNC_OPERATORUSAGE_STRING_OPERATOR=qbs_new(oldstr2841->len,0); +_FUNC_NUMELEMENTS_STRING_A=qbs_new(oldstr3042->len,0); } -memcpy(_FUNC_OPERATORUSAGE_STRING_OPERATOR->chr,oldstr2841->chr,oldstr2841->len); +memcpy(_FUNC_NUMELEMENTS_STRING_A->chr,oldstr3042->chr,oldstr3042->len); } -qbs*oldstr2842=NULL; -if(_FUNC_OPERATORUSAGE_STRING_INFO->tmp||_FUNC_OPERATORUSAGE_STRING_INFO->fixed||_FUNC_OPERATORUSAGE_STRING_INFO->readonly){ -oldstr2842=_FUNC_OPERATORUSAGE_STRING_INFO; -if (oldstr2842->cmem_descriptor){ -_FUNC_OPERATORUSAGE_STRING_INFO=qbs_new_cmem(oldstr2842->len,0); -}else{ -_FUNC_OPERATORUSAGE_STRING_INFO=qbs_new(oldstr2842->len,0); +int32 *_FUNC_NUMELEMENTS_LONG_N=NULL; +if(_FUNC_NUMELEMENTS_LONG_N==NULL){ +_FUNC_NUMELEMENTS_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_NUMELEMENTS_LONG_N=0; } -memcpy(_FUNC_OPERATORUSAGE_STRING_INFO->chr,oldstr2842->chr,oldstr2842->len); +int32 *_FUNC_NUMELEMENTS_LONG_P=NULL; +if(_FUNC_NUMELEMENTS_LONG_P==NULL){ +_FUNC_NUMELEMENTS_LONG_P=(int32*)mem_static_malloc(4); +*_FUNC_NUMELEMENTS_LONG_P=0; +} +int32 *_FUNC_NUMELEMENTS_LONG_I=NULL; +if(_FUNC_NUMELEMENTS_LONG_I==NULL){ +_FUNC_NUMELEMENTS_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_NUMELEMENTS_LONG_I=0; } diff --git a/internal/source/data33.txt b/internal/source/data33.txt index 3e0415dc2..bab3153da 100644 --- a/internal/source/data33.txt +++ b/internal/source/data33.txt @@ -1,70 +1,25 @@ -qbs *_FUNC_REFER_STRING_REFER=NULL; -if (!_FUNC_REFER_STRING_REFER)_FUNC_REFER_STRING_REFER=qbs_new(0,0); -qbs*oldstr2845=NULL; -if(_FUNC_REFER_STRING_A2->tmp||_FUNC_REFER_STRING_A2->fixed||_FUNC_REFER_STRING_A2->readonly){ -oldstr2845=_FUNC_REFER_STRING_A2; -if (oldstr2845->cmem_descriptor){ -_FUNC_REFER_STRING_A2=qbs_new_cmem(oldstr2845->len,0); +int32 *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=NULL; +if(_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE==NULL){ +_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=(int32*)mem_static_malloc(4); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=0; +} +qbs*oldstr3043=NULL; +if(_FUNC_OPERATORUSAGE_STRING_OPERATOR->tmp||_FUNC_OPERATORUSAGE_STRING_OPERATOR->fixed||_FUNC_OPERATORUSAGE_STRING_OPERATOR->readonly){ +oldstr3043=_FUNC_OPERATORUSAGE_STRING_OPERATOR; +if (oldstr3043->cmem_descriptor){ +_FUNC_OPERATORUSAGE_STRING_OPERATOR=qbs_new_cmem(oldstr3043->len,0); }else{ -_FUNC_REFER_STRING_A2=qbs_new(oldstr2845->len,0); +_FUNC_OPERATORUSAGE_STRING_OPERATOR=qbs_new(oldstr3043->len,0); } -memcpy(_FUNC_REFER_STRING_A2->chr,oldstr2845->chr,oldstr2845->len); +memcpy(_FUNC_OPERATORUSAGE_STRING_OPERATOR->chr,oldstr3043->chr,oldstr3043->len); } -int32 *_FUNC_REFER_LONG_TYPBAK=NULL; -if(_FUNC_REFER_LONG_TYPBAK==NULL){ -_FUNC_REFER_LONG_TYPBAK=(int32*)mem_static_malloc(4); -*_FUNC_REFER_LONG_TYPBAK=0; +qbs*oldstr3044=NULL; +if(_FUNC_OPERATORUSAGE_STRING_INFO->tmp||_FUNC_OPERATORUSAGE_STRING_INFO->fixed||_FUNC_OPERATORUSAGE_STRING_INFO->readonly){ +oldstr3044=_FUNC_OPERATORUSAGE_STRING_INFO; +if (oldstr3044->cmem_descriptor){ +_FUNC_OPERATORUSAGE_STRING_INFO=qbs_new_cmem(oldstr3044->len,0); +}else{ +_FUNC_OPERATORUSAGE_STRING_INFO=qbs_new(oldstr3044->len,0); } -qbs *_FUNC_REFER_STRING_A=NULL; -if (!_FUNC_REFER_STRING_A)_FUNC_REFER_STRING_A=qbs_new(0,0); -int32 *_FUNC_REFER_LONG_I=NULL; -if(_FUNC_REFER_LONG_I==NULL){ -_FUNC_REFER_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_REFER_LONG_I=0; -} -int32 *_FUNC_REFER_LONG_IDNUMBER=NULL; -if(_FUNC_REFER_LONG_IDNUMBER==NULL){ -_FUNC_REFER_LONG_IDNUMBER=(int32*)mem_static_malloc(4); -*_FUNC_REFER_LONG_IDNUMBER=0; -} -byte_element_struct *byte_element_2846=NULL; -if (!byte_element_2846){ -if ((mem_static_pointer+=12)chr,oldstr3044->chr,oldstr3044->len); } diff --git a/internal/source/data34.txt b/internal/source/data34.txt index 3f745be30..0ffb9f7ce 100644 --- a/internal/source/data34.txt +++ b/internal/source/data34.txt @@ -1,66 +1,70 @@ -qbs *_SUB_REGID_STRING_N=NULL; -if (!_SUB_REGID_STRING_N)_SUB_REGID_STRING_N=qbs_new(0,0); -byte_element_struct *byte_element_2853=NULL; -if (!byte_element_2853){ -if ((mem_static_pointer+=12)tmp||_FUNC_REFER_STRING_A2->fixed||_FUNC_REFER_STRING_A2->readonly){ +oldstr3047=_FUNC_REFER_STRING_A2; +if (oldstr3047->cmem_descriptor){ +_FUNC_REFER_STRING_A2=qbs_new_cmem(oldstr3047->len,0); +}else{ +_FUNC_REFER_STRING_A2=qbs_new(oldstr3047->len,0); } -int32 *_SUB_REGID_LONG_HASHFLAGS=NULL; -if(_SUB_REGID_LONG_HASHFLAGS==NULL){ -_SUB_REGID_LONG_HASHFLAGS=(int32*)mem_static_malloc(4); -*_SUB_REGID_LONG_HASHFLAGS=0; +memcpy(_FUNC_REFER_STRING_A2->chr,oldstr3047->chr,oldstr3047->len); } -int32 *_SUB_REGID_LONG_HASHCHKFLAGS=NULL; -if(_SUB_REGID_LONG_HASHCHKFLAGS==NULL){ -_SUB_REGID_LONG_HASHCHKFLAGS=(int32*)mem_static_malloc(4); -*_SUB_REGID_LONG_HASHCHKFLAGS=0; +int32 *_FUNC_REFER_LONG_TYPBAK=NULL; +if(_FUNC_REFER_LONG_TYPBAK==NULL){ +_FUNC_REFER_LONG_TYPBAK=(int32*)mem_static_malloc(4); +*_FUNC_REFER_LONG_TYPBAK=0; } -int32 *_SUB_REGID_LONG_HASHRES=NULL; -if(_SUB_REGID_LONG_HASHRES==NULL){ -_SUB_REGID_LONG_HASHRES=(int32*)mem_static_malloc(4); -*_SUB_REGID_LONG_HASHRES=0; +qbs *_FUNC_REFER_STRING_A=NULL; +if (!_FUNC_REFER_STRING_A)_FUNC_REFER_STRING_A=qbs_new(0,0); +int32 *_FUNC_REFER_LONG_I=NULL; +if(_FUNC_REFER_LONG_I==NULL){ +_FUNC_REFER_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_REFER_LONG_I=0; } -int32 *_SUB_REGID_LONG_HASHRESFLAGS=NULL; -if(_SUB_REGID_LONG_HASHRESFLAGS==NULL){ -_SUB_REGID_LONG_HASHRESFLAGS=(int32*)mem_static_malloc(4); -*_SUB_REGID_LONG_HASHRESFLAGS=0; +int32 *_FUNC_REFER_LONG_IDNUMBER=NULL; +if(_FUNC_REFER_LONG_IDNUMBER==NULL){ +_FUNC_REFER_LONG_IDNUMBER=(int32*)mem_static_malloc(4); +*_FUNC_REFER_LONG_IDNUMBER=0; } -int32 *_SUB_REGID_LONG_HASHRESREF=NULL; -if(_SUB_REGID_LONG_HASHRESREF==NULL){ -_SUB_REGID_LONG_HASHRESREF=(int32*)mem_static_malloc(4); -*_SUB_REGID_LONG_HASHRESREF=0; +byte_element_struct *byte_element_3048=NULL; +if (!byte_element_3048){ +if ((mem_static_pointer+=12)tmp||_SUB_REMOVEELEMENTS_STRING_A->fixed||_SUB_REMOVEELEMENTS_STRING_A->readonly){ -oldstr2859=_SUB_REMOVEELEMENTS_STRING_A; -if (oldstr2859->cmem_descriptor){ -_SUB_REMOVEELEMENTS_STRING_A=qbs_new_cmem(oldstr2859->len,0); -}else{ -_SUB_REMOVEELEMENTS_STRING_A=qbs_new(oldstr2859->len,0); -} -memcpy(_SUB_REMOVEELEMENTS_STRING_A->chr,oldstr2859->chr,oldstr2859->len); -} -qbs *_SUB_REMOVEELEMENTS_STRING_A2=NULL; -if (!_SUB_REMOVEELEMENTS_STRING_A2)_SUB_REMOVEELEMENTS_STRING_A2=qbs_new(0,0); -int32 *_SUB_REMOVEELEMENTS_LONG_N=NULL; -if(_SUB_REMOVEELEMENTS_LONG_N==NULL){ -_SUB_REMOVEELEMENTS_LONG_N=(int32*)mem_static_malloc(4); -*_SUB_REMOVEELEMENTS_LONG_N=0; -} -int32 *_SUB_REMOVEELEMENTS_LONG_I=NULL; -if(_SUB_REMOVEELEMENTS_LONG_I==NULL){ -_SUB_REMOVEELEMENTS_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_REMOVEELEMENTS_LONG_I=0; -} -int64 fornext_value2861; -int64 fornext_finalvalue2861; -int64 fornext_step2861; -uint8 fornext_step_negative2861; -byte_element_struct *byte_element_2862=NULL; -if (!byte_element_2862){ -if ((mem_static_pointer+=12)tmp||_FUNC_SYMBOLTYPE_STRING_S->fixed||_FUNC_SYMBOLTYPE_STRING_S->readonly){ -oldstr2863=_FUNC_SYMBOLTYPE_STRING_S; -if (oldstr2863->cmem_descriptor){ -_FUNC_SYMBOLTYPE_STRING_S=qbs_new_cmem(oldstr2863->len,0); +qbs*oldstr3060=NULL; +if(_SUB_REMOVEELEMENTS_STRING_A->tmp||_SUB_REMOVEELEMENTS_STRING_A->fixed||_SUB_REMOVEELEMENTS_STRING_A->readonly){ +oldstr3060=_SUB_REMOVEELEMENTS_STRING_A; +if (oldstr3060->cmem_descriptor){ +_SUB_REMOVEELEMENTS_STRING_A=qbs_new_cmem(oldstr3060->len,0); }else{ -_FUNC_SYMBOLTYPE_STRING_S=qbs_new(oldstr2863->len,0); +_SUB_REMOVEELEMENTS_STRING_A=qbs_new(oldstr3060->len,0); } -memcpy(_FUNC_SYMBOLTYPE_STRING_S->chr,oldstr2863->chr,oldstr2863->len); +memcpy(_SUB_REMOVEELEMENTS_STRING_A->chr,oldstr3060->chr,oldstr3060->len); } -byte_element_struct *byte_element_2864=NULL; -if (!byte_element_2864){ -if ((mem_static_pointer+=12)tmp||_FUNC_REMOVESYMBOL_STRING_VARNAME->fixed||_FUNC_REMOVESYMBOL_STRING_VARNAME->readonly){ -oldstr2866=_FUNC_REMOVESYMBOL_STRING_VARNAME; -if (oldstr2866->cmem_descriptor){ -_FUNC_REMOVESYMBOL_STRING_VARNAME=qbs_new_cmem(oldstr2866->len,0); +int32 *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=NULL; +if(_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE==NULL){ +_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=(int32*)mem_static_malloc(4); +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=0; +} +qbs*oldstr3064=NULL; +if(_FUNC_SYMBOLTYPE_STRING_S->tmp||_FUNC_SYMBOLTYPE_STRING_S->fixed||_FUNC_SYMBOLTYPE_STRING_S->readonly){ +oldstr3064=_FUNC_SYMBOLTYPE_STRING_S; +if (oldstr3064->cmem_descriptor){ +_FUNC_SYMBOLTYPE_STRING_S=qbs_new_cmem(oldstr3064->len,0); }else{ -_FUNC_REMOVESYMBOL_STRING_VARNAME=qbs_new(oldstr2866->len,0); +_FUNC_SYMBOLTYPE_STRING_S=qbs_new(oldstr3064->len,0); } -memcpy(_FUNC_REMOVESYMBOL_STRING_VARNAME->chr,oldstr2866->chr,oldstr2866->len); +memcpy(_FUNC_SYMBOLTYPE_STRING_S->chr,oldstr3064->chr,oldstr3064->len); } -int32 *_FUNC_REMOVESYMBOL_LONG_I=NULL; -if(_FUNC_REMOVESYMBOL_LONG_I==NULL){ -_FUNC_REMOVESYMBOL_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_REMOVESYMBOL_LONG_I=0; +byte_element_struct *byte_element_3065=NULL; +if (!byte_element_3065){ +if ((mem_static_pointer+=12)tmp||_FUNC_REMOVESYMBOL_STRING_VARNAME->fixed||_FUNC_REMOVESYMBOL_STRING_VARNAME->readonly){ +oldstr3067=_FUNC_REMOVESYMBOL_STRING_VARNAME; +if (oldstr3067->cmem_descriptor){ +_FUNC_REMOVESYMBOL_STRING_VARNAME=qbs_new_cmem(oldstr3067->len,0); +}else{ +_FUNC_REMOVESYMBOL_STRING_VARNAME=qbs_new(oldstr3067->len,0); +} +memcpy(_FUNC_REMOVESYMBOL_STRING_VARNAME->chr,oldstr3067->chr,oldstr3067->len); +} +int32 *_FUNC_REMOVESYMBOL_LONG_I=NULL; +if(_FUNC_REMOVESYMBOL_LONG_I==NULL){ +_FUNC_REMOVESYMBOL_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_REMOVESYMBOL_LONG_I=0; +} +qbs *_FUNC_REMOVESYMBOL_STRING_SYMBOL=NULL; +if (!_FUNC_REMOVESYMBOL_STRING_SYMBOL)_FUNC_REMOVESYMBOL_STRING_SYMBOL=qbs_new(0,0); +byte_element_struct *byte_element_3068=NULL; +if (!byte_element_3068){ +if ((mem_static_pointer+=12)tmp||_FUNC_REMOVEFILEEXTENSION_STRING_F->fixed||_FUNC_REMOVEFILEEXTENSION_STRING_F->readonly){ -oldstr2053=_FUNC_REMOVEFILEEXTENSION_STRING_F; -if (oldstr2053->cmem_descriptor){ -_FUNC_REMOVEFILEEXTENSION_STRING_F=qbs_new_cmem(oldstr2053->len,0); +oldstr2206=_FUNC_REMOVEFILEEXTENSION_STRING_F; +if (oldstr2206->cmem_descriptor){ +_FUNC_REMOVEFILEEXTENSION_STRING_F=qbs_new_cmem(oldstr2206->len,0); }else{ -_FUNC_REMOVEFILEEXTENSION_STRING_F=qbs_new(oldstr2053->len,0); +_FUNC_REMOVEFILEEXTENSION_STRING_F=qbs_new(oldstr2206->len,0); } -memcpy(_FUNC_REMOVEFILEEXTENSION_STRING_F->chr,oldstr2053->chr,oldstr2053->len); +memcpy(_FUNC_REMOVEFILEEXTENSION_STRING_F->chr,oldstr2206->chr,oldstr2206->len); } int32 *_FUNC_REMOVEFILEEXTENSION_LONG_I=NULL; if(_FUNC_REMOVEFILEEXTENSION_LONG_I==NULL){ _FUNC_REMOVEFILEEXTENSION_LONG_I=(int32*)mem_static_malloc(4); *_FUNC_REMOVEFILEEXTENSION_LONG_I=0; } -int64 fornext_value2055; -int64 fornext_finalvalue2055; -int64 fornext_step2055; -uint8 fornext_step_negative2055; -byte_element_struct *byte_element_2056=NULL; -if (!byte_element_2056){ -if ((mem_static_pointer+=12)tmp||_FUNC_SEPERATEARGS_STRING_A->fixed||_FUNC_SEPERATEARGS_STRING_A->readonly){ -oldstr2868=_FUNC_SEPERATEARGS_STRING_A; -if (oldstr2868->cmem_descriptor){ -_FUNC_SEPERATEARGS_STRING_A=qbs_new_cmem(oldstr2868->len,0); -}else{ -_FUNC_SEPERATEARGS_STRING_A=qbs_new(oldstr2868->len,0); -} -memcpy(_FUNC_SEPERATEARGS_STRING_A->chr,oldstr2868->chr,oldstr2868->len); -} -qbs*oldstr2869=NULL; -if(_FUNC_SEPERATEARGS_STRING_CA->tmp||_FUNC_SEPERATEARGS_STRING_CA->fixed||_FUNC_SEPERATEARGS_STRING_CA->readonly){ -oldstr2869=_FUNC_SEPERATEARGS_STRING_CA; -if (oldstr2869->cmem_descriptor){ -_FUNC_SEPERATEARGS_STRING_CA=qbs_new_cmem(oldstr2869->len,0); -}else{ -_FUNC_SEPERATEARGS_STRING_CA=qbs_new(oldstr2869->len,0); -} -memcpy(_FUNC_SEPERATEARGS_STRING_CA->chr,oldstr2869->chr,oldstr2869->len); -} -int32 *_FUNC_SEPERATEARGS_LONG_I=NULL; -if(_FUNC_SEPERATEARGS_LONG_I==NULL){ -_FUNC_SEPERATEARGS_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_I=0; -} -int64 fornext_value2871; -int64 fornext_finalvalue2871; -int64 fornext_step2871; -uint8 fornext_step_negative2871; -int64 fornext_value2873; -int64 fornext_finalvalue2873; -int64 fornext_step2873; -uint8 fornext_step_negative2873; -int64 fornext_value2875; -int64 fornext_finalvalue2875; -int64 fornext_step2875; -uint8 fornext_step_negative2875; -void *_FUNC_SEPERATEARGS_UDT_ID2=NULL; -if(_FUNC_SEPERATEARGS_UDT_ID2==NULL){ -_FUNC_SEPERATEARGS_UDT_ID2=(void*)mem_static_malloc(2863); -memset(_FUNC_SEPERATEARGS_UDT_ID2,0,2863); -} -qbs *_FUNC_SEPERATEARGS_STRING_S=NULL; -if (!_FUNC_SEPERATEARGS_STRING_S)_FUNC_SEPERATEARGS_STRING_S=qbs_new(0,0); -int64 fornext_value2877; -int64 fornext_finalvalue2877; -int64 fornext_step2877; -uint8 fornext_step_negative2877; -int32 *_FUNC_SEPERATEARGS_LONG_PASSFLAG=NULL; -if(_FUNC_SEPERATEARGS_LONG_PASSFLAG==NULL){ -_FUNC_SEPERATEARGS_LONG_PASSFLAG=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_PASSFLAG=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL=NULL; -if(_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL==NULL){ -_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET=NULL; -if(_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET==NULL){ -_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_LEVEL=NULL; -if(_FUNC_SEPERATEARGS_LONG_LEVEL==NULL){ -_FUNC_SEPERATEARGS_LONG_LEVEL=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_LEVEL=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_LASTT=NULL; -if(_FUNC_SEPERATEARGS_LONG_LASTT==NULL){ -_FUNC_SEPERATEARGS_LONG_LASTT=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_LASTT=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=NULL; -if(_FUNC_SEPERATEARGS_LONG_DITCHLEVEL==NULL){ -_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=0; -} -int64 fornext_value2879; -int64 fornext_finalvalue2879; -int64 fornext_step2879; -uint8 fornext_step_negative2879; -byte_element_struct *byte_element_2880=NULL; -if (!byte_element_2880){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS)[8]=(ptrszint)mem_lock_tmp; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4]=2147483647; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[6]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]=(ptrszint)nothingvalue; -} -ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN=NULL; -if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN){ -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN)[8]=(ptrszint)mem_lock_tmp; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4]=2147483647; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[6]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]=(ptrszint)nothingvalue; -} -ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS=NULL; -if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS){ -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS)[8]=(ptrszint)mem_lock_tmp; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4]=2147483647; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[6]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]=(ptrszint)nothingvalue; -} -ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION=NULL; -if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION){ -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION)[8]=(ptrszint)mem_lock_tmp; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4]=2147483647; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[6]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]=(ptrszint)nothingvalue; -} -ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL=NULL; -if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL){ -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL)[8]=(ptrszint)mem_lock_tmp; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4]=2147483647; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[6]=0; -_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]=(ptrszint)nothingvalue; -} -int32 *_FUNC_SEPERATEARGS_LONG_N=NULL; -if(_FUNC_SEPERATEARGS_LONG_N==NULL){ -_FUNC_SEPERATEARGS_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_N=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_EXPRESSION=NULL; -if(_FUNC_SEPERATEARGS_LONG_EXPRESSION==NULL){ -_FUNC_SEPERATEARGS_LONG_EXPRESSION=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_EXPRESSION=0; -} -int64 fornext_value2940; -int64 fornext_finalvalue2940; -int64 fornext_step2940; -uint8 fornext_step_negative2940; -int32 *_FUNC_SEPERATEARGS_LONG_OPTIONAL=NULL; -if(_FUNC_SEPERATEARGS_LONG_OPTIONAL==NULL){ -_FUNC_SEPERATEARGS_LONG_OPTIONAL=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_OPTIONAL=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_T=NULL; -if(_FUNC_SEPERATEARGS_LONG_T==NULL){ -_FUNC_SEPERATEARGS_LONG_T=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_T=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_CURRENTLEV=NULL; -if(_FUNC_SEPERATEARGS_LONG_CURRENTLEV==NULL){ -_FUNC_SEPERATEARGS_LONG_CURRENTLEV=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_CURRENTLEV=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_I1=NULL; -if(_FUNC_SEPERATEARGS_LONG_I1==NULL){ -_FUNC_SEPERATEARGS_LONG_I1=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_I1=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_OUTOFRANGE=NULL; -if(_FUNC_SEPERATEARGS_LONG_OUTOFRANGE==NULL){ -_FUNC_SEPERATEARGS_LONG_OUTOFRANGE=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_POSITION=NULL; -if(_FUNC_SEPERATEARGS_LONG_POSITION==NULL){ -_FUNC_SEPERATEARGS_LONG_POSITION=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_POSITION=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_WHICH=NULL; -if(_FUNC_SEPERATEARGS_LONG_WHICH==NULL){ -_FUNC_SEPERATEARGS_LONG_WHICH=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_WHICH=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_O=NULL; -if(_FUNC_SEPERATEARGS_LONG_O==NULL){ -_FUNC_SEPERATEARGS_LONG_O=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_O=0; -} -int64 fornext_value2942; -int64 fornext_finalvalue2942; -int64 fornext_step2942; -uint8 fornext_step_negative2942; -int32 *_FUNC_SEPERATEARGS_LONG_WORDS=NULL; -if(_FUNC_SEPERATEARGS_LONG_WORDS==NULL){ -_FUNC_SEPERATEARGS_LONG_WORDS=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_WORDS=0; -} -int32 *_FUNC_SEPERATEARGS_LONG_B=NULL; -if(_FUNC_SEPERATEARGS_LONG_B==NULL){ -_FUNC_SEPERATEARGS_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_B=0; -} -int64 fornext_value2944; -int64 fornext_finalvalue2944; -int64 fornext_step2944; -uint8 fornext_step_negative2944; -qbs *_FUNC_SEPERATEARGS_STRING_C=NULL; -if (!_FUNC_SEPERATEARGS_STRING_C)_FUNC_SEPERATEARGS_STRING_C=qbs_new(0,0); -int64 fornext_value2946; -int64 fornext_finalvalue2946; -int64 fornext_step2946; -uint8 fornext_step_negative2946; -int32 pass2947; -int32 *_FUNC_SEPERATEARGS_LONG_BVALUE=NULL; -if(_FUNC_SEPERATEARGS_LONG_BVALUE==NULL){ -_FUNC_SEPERATEARGS_LONG_BVALUE=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_BVALUE=0; -} -int32 pass2948; -int32 *_FUNC_SEPERATEARGS_LONG_BRANCH=NULL; -if(_FUNC_SEPERATEARGS_LONG_BRANCH==NULL){ -_FUNC_SEPERATEARGS_LONG_BRANCH=(int32*)mem_static_malloc(4); -*_FUNC_SEPERATEARGS_LONG_BRANCH=0; -} -int64 fornext_value2950; -int64 fornext_finalvalue2950; -int64 fornext_step2950; -uint8 fornext_step_negative2950; -int64 fornext_value2952; -int64 fornext_finalvalue2952; -int64 fornext_step2952; -uint8 fornext_step_negative2952; -int64 fornext_value2954; -int64 fornext_finalvalue2954; -int64 fornext_step2954; -uint8 fornext_step_negative2954; -int64 fornext_value2957; -int64 fornext_finalvalue2957; -int64 fornext_step2957; -uint8 fornext_step_negative2957; -int64 fornext_value2960; -int64 fornext_finalvalue2960; -int64 fornext_step2960; -uint8 fornext_step_negative2960; -byte_element_struct *byte_element_2961=NULL; -if (!byte_element_2961){ -if ((mem_static_pointer+=12)tmp||_SUB_SETREFER_STRING_A2->fixed||_SUB_SETREFER_STRING_A2->readonly){ -oldstr2963=_SUB_SETREFER_STRING_A2; -if (oldstr2963->cmem_descriptor){ -_SUB_SETREFER_STRING_A2=qbs_new_cmem(oldstr2963->len,0); +int32 *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS=NULL; +if(_FUNC_SEPERATEARGS_LONG_SEPERATEARGS==NULL){ +_FUNC_SEPERATEARGS_LONG_SEPERATEARGS=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_SEPERATEARGS=0; +} +qbs*oldstr3069=NULL; +if(_FUNC_SEPERATEARGS_STRING_A->tmp||_FUNC_SEPERATEARGS_STRING_A->fixed||_FUNC_SEPERATEARGS_STRING_A->readonly){ +oldstr3069=_FUNC_SEPERATEARGS_STRING_A; +if (oldstr3069->cmem_descriptor){ +_FUNC_SEPERATEARGS_STRING_A=qbs_new_cmem(oldstr3069->len,0); }else{ -_SUB_SETREFER_STRING_A2=qbs_new(oldstr2963->len,0); +_FUNC_SEPERATEARGS_STRING_A=qbs_new(oldstr3069->len,0); } -memcpy(_SUB_SETREFER_STRING_A2->chr,oldstr2963->chr,oldstr2963->len); +memcpy(_FUNC_SEPERATEARGS_STRING_A->chr,oldstr3069->chr,oldstr3069->len); } -qbs*oldstr2964=NULL; -if(_SUB_SETREFER_STRING_E2->tmp||_SUB_SETREFER_STRING_E2->fixed||_SUB_SETREFER_STRING_E2->readonly){ -oldstr2964=_SUB_SETREFER_STRING_E2; -if (oldstr2964->cmem_descriptor){ -_SUB_SETREFER_STRING_E2=qbs_new_cmem(oldstr2964->len,0); +qbs*oldstr3070=NULL; +if(_FUNC_SEPERATEARGS_STRING_CA->tmp||_FUNC_SEPERATEARGS_STRING_CA->fixed||_FUNC_SEPERATEARGS_STRING_CA->readonly){ +oldstr3070=_FUNC_SEPERATEARGS_STRING_CA; +if (oldstr3070->cmem_descriptor){ +_FUNC_SEPERATEARGS_STRING_CA=qbs_new_cmem(oldstr3070->len,0); }else{ -_SUB_SETREFER_STRING_E2=qbs_new(oldstr2964->len,0); +_FUNC_SEPERATEARGS_STRING_CA=qbs_new(oldstr3070->len,0); } -memcpy(_SUB_SETREFER_STRING_E2->chr,oldstr2964->chr,oldstr2964->len); +memcpy(_FUNC_SEPERATEARGS_STRING_CA->chr,oldstr3070->chr,oldstr3070->len); } -qbs *_SUB_SETREFER_STRING_A=NULL; -if (!_SUB_SETREFER_STRING_A)_SUB_SETREFER_STRING_A=qbs_new(0,0); -int32 *_SUB_SETREFER_LONG_TYP=NULL; -if(_SUB_SETREFER_LONG_TYP==NULL){ -_SUB_SETREFER_LONG_TYP=(int32*)mem_static_malloc(4); -*_SUB_SETREFER_LONG_TYP=0; +int32 *_FUNC_SEPERATEARGS_LONG_I=NULL; +if(_FUNC_SEPERATEARGS_LONG_I==NULL){ +_FUNC_SEPERATEARGS_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_I=0; } -qbs *_SUB_SETREFER_STRING_E=NULL; -if (!_SUB_SETREFER_STRING_E)_SUB_SETREFER_STRING_E=qbs_new(0,0); -qbs *_SUB_SETREFER_STRING_TL=NULL; -if (!_SUB_SETREFER_STRING_TL)_SUB_SETREFER_STRING_TL=qbs_new(0,0); -int32 *_SUB_SETREFER_LONG_I=NULL; -if(_SUB_SETREFER_LONG_I==NULL){ -_SUB_SETREFER_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_SETREFER_LONG_I=0; +int64 fornext_value3072; +int64 fornext_finalvalue3072; +int64 fornext_step3072; +uint8 fornext_step_negative3072; +int64 fornext_value3074; +int64 fornext_finalvalue3074; +int64 fornext_step3074; +uint8 fornext_step_negative3074; +int64 fornext_value3076; +int64 fornext_finalvalue3076; +int64 fornext_step3076; +uint8 fornext_step_negative3076; +void *_FUNC_SEPERATEARGS_UDT_ID2=NULL; +if(_FUNC_SEPERATEARGS_UDT_ID2==NULL){ +_FUNC_SEPERATEARGS_UDT_ID2=(void*)mem_static_malloc(2869); +memset(_FUNC_SEPERATEARGS_UDT_ID2,0,2869); +*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+ 2861) = qbs_new(0,0); } -int32 *_SUB_SETREFER_LONG_IDNUMBER=NULL; -if(_SUB_SETREFER_LONG_IDNUMBER==NULL){ -_SUB_SETREFER_LONG_IDNUMBER=(int32*)mem_static_malloc(4); -*_SUB_SETREFER_LONG_IDNUMBER=0; +qbs *_FUNC_SEPERATEARGS_STRING_S=NULL; +if (!_FUNC_SEPERATEARGS_STRING_S)_FUNC_SEPERATEARGS_STRING_S=qbs_new(0,0); +int64 fornext_value3078; +int64 fornext_finalvalue3078; +int64 fornext_step3078; +uint8 fornext_step_negative3078; +int32 *_FUNC_SEPERATEARGS_LONG_PASSFLAG=NULL; +if(_FUNC_SEPERATEARGS_LONG_PASSFLAG==NULL){ +_FUNC_SEPERATEARGS_LONG_PASSFLAG=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_PASSFLAG=0; } -byte_element_struct *byte_element_2965=NULL; -if (!byte_element_2965){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS)[8]=(ptrszint)mem_lock_tmp; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4]=2147483647; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[6]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]=(ptrszint)nothingvalue; +} +ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN=NULL; +if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN){ +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN)[8]=(ptrszint)mem_lock_tmp; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4]=2147483647; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[6]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]=(ptrszint)nothingvalue; +} +ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS=NULL; +if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS){ +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS)[8]=(ptrszint)mem_lock_tmp; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4]=2147483647; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[6]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]=(ptrszint)nothingvalue; +} +ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION=NULL; +if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION){ +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION)[8]=(ptrszint)mem_lock_tmp; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4]=2147483647; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[6]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]=(ptrszint)nothingvalue; +} +ptrszint *_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL=NULL; +if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL){ +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL)[8]=(ptrszint)mem_lock_tmp; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4]=2147483647; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[6]=0; +_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]=(ptrszint)nothingvalue; +} +int32 *_FUNC_SEPERATEARGS_LONG_N=NULL; +if(_FUNC_SEPERATEARGS_LONG_N==NULL){ +_FUNC_SEPERATEARGS_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_N=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_EXPRESSION=NULL; +if(_FUNC_SEPERATEARGS_LONG_EXPRESSION==NULL){ +_FUNC_SEPERATEARGS_LONG_EXPRESSION=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_EXPRESSION=0; +} +int64 fornext_value3141; +int64 fornext_finalvalue3141; +int64 fornext_step3141; +uint8 fornext_step_negative3141; +int32 *_FUNC_SEPERATEARGS_LONG_OPTIONAL=NULL; +if(_FUNC_SEPERATEARGS_LONG_OPTIONAL==NULL){ +_FUNC_SEPERATEARGS_LONG_OPTIONAL=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_OPTIONAL=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_T=NULL; +if(_FUNC_SEPERATEARGS_LONG_T==NULL){ +_FUNC_SEPERATEARGS_LONG_T=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_T=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_CURRENTLEV=NULL; +if(_FUNC_SEPERATEARGS_LONG_CURRENTLEV==NULL){ +_FUNC_SEPERATEARGS_LONG_CURRENTLEV=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_CURRENTLEV=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_I1=NULL; +if(_FUNC_SEPERATEARGS_LONG_I1==NULL){ +_FUNC_SEPERATEARGS_LONG_I1=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_I1=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_OUTOFRANGE=NULL; +if(_FUNC_SEPERATEARGS_LONG_OUTOFRANGE==NULL){ +_FUNC_SEPERATEARGS_LONG_OUTOFRANGE=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_POSITION=NULL; +if(_FUNC_SEPERATEARGS_LONG_POSITION==NULL){ +_FUNC_SEPERATEARGS_LONG_POSITION=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_POSITION=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_WHICH=NULL; +if(_FUNC_SEPERATEARGS_LONG_WHICH==NULL){ +_FUNC_SEPERATEARGS_LONG_WHICH=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_WHICH=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX=NULL; +if(_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX==NULL){ +_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_O=NULL; +if(_FUNC_SEPERATEARGS_LONG_O==NULL){ +_FUNC_SEPERATEARGS_LONG_O=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_O=0; +} +int64 fornext_value3143; +int64 fornext_finalvalue3143; +int64 fornext_step3143; +uint8 fornext_step_negative3143; +int32 *_FUNC_SEPERATEARGS_LONG_WORDS=NULL; +if(_FUNC_SEPERATEARGS_LONG_WORDS==NULL){ +_FUNC_SEPERATEARGS_LONG_WORDS=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_WORDS=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_B=NULL; +if(_FUNC_SEPERATEARGS_LONG_B==NULL){ +_FUNC_SEPERATEARGS_LONG_B=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_B=0; +} +int64 fornext_value3145; +int64 fornext_finalvalue3145; +int64 fornext_step3145; +uint8 fornext_step_negative3145; +qbs *_FUNC_SEPERATEARGS_STRING_C=NULL; +if (!_FUNC_SEPERATEARGS_STRING_C)_FUNC_SEPERATEARGS_STRING_C=qbs_new(0,0); +int64 fornext_value3147; +int64 fornext_finalvalue3147; +int64 fornext_step3147; +uint8 fornext_step_negative3147; +int32 pass3148; +int32 *_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH=NULL; +if(_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH==NULL){ +_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH=0; +} +int32 *_FUNC_SEPERATEARGS_LONG_BVALUE=NULL; +if(_FUNC_SEPERATEARGS_LONG_BVALUE==NULL){ +_FUNC_SEPERATEARGS_LONG_BVALUE=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_BVALUE=0; +} +int32 pass3149; +int32 *_FUNC_SEPERATEARGS_LONG_BRANCH=NULL; +if(_FUNC_SEPERATEARGS_LONG_BRANCH==NULL){ +_FUNC_SEPERATEARGS_LONG_BRANCH=(int32*)mem_static_malloc(4); +*_FUNC_SEPERATEARGS_LONG_BRANCH=0; +} +int64 fornext_value3151; +int64 fornext_finalvalue3151; +int64 fornext_step3151; +uint8 fornext_step_negative3151; +int64 fornext_value3153; +int64 fornext_finalvalue3153; +int64 fornext_step3153; +uint8 fornext_step_negative3153; +int64 fornext_value3155; +int64 fornext_finalvalue3155; +int64 fornext_step3155; +uint8 fornext_step_negative3155; +int64 fornext_value3158; +int64 fornext_finalvalue3158; +int64 fornext_step3158; +uint8 fornext_step_negative3158; +int64 fornext_value3161; +int64 fornext_finalvalue3161; +int64 fornext_step3161; +uint8 fornext_step_negative3161; +byte_element_struct *byte_element_3162=NULL; +if (!byte_element_3162){ +if ((mem_static_pointer+=12)tmp||_SUB_SETREFER_STRING_A2->fixed||_SUB_SETREFER_STRING_A2->readonly){ +oldstr3164=_SUB_SETREFER_STRING_A2; +if (oldstr3164->cmem_descriptor){ +_SUB_SETREFER_STRING_A2=qbs_new_cmem(oldstr3164->len,0); +}else{ +_SUB_SETREFER_STRING_A2=qbs_new(oldstr3164->len,0); +} +memcpy(_SUB_SETREFER_STRING_A2->chr,oldstr3164->chr,oldstr3164->len); +} +qbs*oldstr3165=NULL; +if(_SUB_SETREFER_STRING_E2->tmp||_SUB_SETREFER_STRING_E2->fixed||_SUB_SETREFER_STRING_E2->readonly){ +oldstr3165=_SUB_SETREFER_STRING_E2; +if (oldstr3165->cmem_descriptor){ +_SUB_SETREFER_STRING_E2=qbs_new_cmem(oldstr3165->len,0); +}else{ +_SUB_SETREFER_STRING_E2=qbs_new(oldstr3165->len,0); +} +memcpy(_SUB_SETREFER_STRING_E2->chr,oldstr3165->chr,oldstr3165->len); +} +qbs *_SUB_SETREFER_STRING_A=NULL; +if (!_SUB_SETREFER_STRING_A)_SUB_SETREFER_STRING_A=qbs_new(0,0); +int32 *_SUB_SETREFER_LONG_TYP=NULL; +if(_SUB_SETREFER_LONG_TYP==NULL){ +_SUB_SETREFER_LONG_TYP=(int32*)mem_static_malloc(4); +*_SUB_SETREFER_LONG_TYP=0; +} +qbs *_SUB_SETREFER_STRING_E=NULL; +if (!_SUB_SETREFER_STRING_E)_SUB_SETREFER_STRING_E=qbs_new(0,0); +qbs *_SUB_SETREFER_STRING_TL=NULL; +if (!_SUB_SETREFER_STRING_TL)_SUB_SETREFER_STRING_TL=qbs_new(0,0); +int32 *_SUB_SETREFER_LONG_I=NULL; +if(_SUB_SETREFER_LONG_I==NULL){ +_SUB_SETREFER_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_SETREFER_LONG_I=0; +} +int32 *_SUB_SETREFER_LONG_IDNUMBER=NULL; +if(_SUB_SETREFER_LONG_IDNUMBER==NULL){ +_SUB_SETREFER_LONG_IDNUMBER=(int32*)mem_static_malloc(4); +*_SUB_SETREFER_LONG_IDNUMBER=0; +} +byte_element_struct *byte_element_3166=NULL; +if (!byte_element_3166){ +if ((mem_static_pointer+=12)tmp||_FUNC_TYP2CTYP_STRING_TSTR->fixed||_FUNC_TYP2CTYP_STRING_TSTR->readonly){ -oldstr3011=_FUNC_TYP2CTYP_STRING_TSTR; -if (oldstr3011->cmem_descriptor){ -_FUNC_TYP2CTYP_STRING_TSTR=qbs_new_cmem(oldstr3011->len,0); -}else{ -_FUNC_TYP2CTYP_STRING_TSTR=qbs_new(oldstr3011->len,0); -} -memcpy(_FUNC_TYP2CTYP_STRING_TSTR->chr,oldstr3011->chr,oldstr3011->len); -} -qbs *_FUNC_TYP2CTYP_STRING_CTYP=NULL; -if (!_FUNC_TYP2CTYP_STRING_CTYP)_FUNC_TYP2CTYP_STRING_CTYP=qbs_new(0,0); -int32 *_FUNC_TYP2CTYP_LONG_B=NULL; -if(_FUNC_TYP2CTYP_LONG_B==NULL){ -_FUNC_TYP2CTYP_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_TYP2CTYP_LONG_B=0; -} -int32 *_FUNC_TYP2CTYP_LONG_TYP=NULL; -if(_FUNC_TYP2CTYP_LONG_TYP==NULL){ -_FUNC_TYP2CTYP_LONG_TYP=(int32*)mem_static_malloc(4); -*_FUNC_TYP2CTYP_LONG_TYP=0; -} -qbs *_FUNC_TYP2CTYP_STRING_TS=NULL; -if (!_FUNC_TYP2CTYP_STRING_TS)_FUNC_TYP2CTYP_STRING_TS=qbs_new(0,0); -int32 *_FUNC_TYP2CTYP_LONG_UNSGN=NULL; -if(_FUNC_TYP2CTYP_LONG_UNSGN==NULL){ -_FUNC_TYP2CTYP_LONG_UNSGN=(int32*)mem_static_malloc(4); -*_FUNC_TYP2CTYP_LONG_UNSGN=0; -} -byte_element_struct *byte_element_3012=NULL; -if (!byte_element_3012){ -if ((mem_static_pointer+=12)tmp||_FUNC_TYPE2SYMBOL_STRING_TYP->fixed||_FUNC_TYPE2SYMBOL_STRING_TYP->readonly){ -oldstr3016=_FUNC_TYPE2SYMBOL_STRING_TYP; -if (oldstr3016->cmem_descriptor){ -_FUNC_TYPE2SYMBOL_STRING_TYP=qbs_new_cmem(oldstr3016->len,0); +qbs *_FUNC_TYP2CTYP_STRING_TYP2CTYP=NULL; +if (!_FUNC_TYP2CTYP_STRING_TYP2CTYP)_FUNC_TYP2CTYP_STRING_TYP2CTYP=qbs_new(0,0); +qbs*oldstr3207=NULL; +if(_FUNC_TYP2CTYP_STRING_TSTR->tmp||_FUNC_TYP2CTYP_STRING_TSTR->fixed||_FUNC_TYP2CTYP_STRING_TSTR->readonly){ +oldstr3207=_FUNC_TYP2CTYP_STRING_TSTR; +if (oldstr3207->cmem_descriptor){ +_FUNC_TYP2CTYP_STRING_TSTR=qbs_new_cmem(oldstr3207->len,0); }else{ -_FUNC_TYPE2SYMBOL_STRING_TYP=qbs_new(oldstr3016->len,0); +_FUNC_TYP2CTYP_STRING_TSTR=qbs_new(oldstr3207->len,0); } -memcpy(_FUNC_TYPE2SYMBOL_STRING_TYP->chr,oldstr3016->chr,oldstr3016->len); +memcpy(_FUNC_TYP2CTYP_STRING_TSTR->chr,oldstr3207->chr,oldstr3207->len); } -qbs *_FUNC_TYPE2SYMBOL_STRING_T=NULL; -if (!_FUNC_TYPE2SYMBOL_STRING_T)_FUNC_TYPE2SYMBOL_STRING_T=qbs_new(0,0); -int32 *_FUNC_TYPE2SYMBOL_LONG_I=NULL; -if(_FUNC_TYPE2SYMBOL_LONG_I==NULL){ -_FUNC_TYPE2SYMBOL_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_TYPE2SYMBOL_LONG_I=0; +qbs *_FUNC_TYP2CTYP_STRING_CTYP=NULL; +if (!_FUNC_TYP2CTYP_STRING_CTYP)_FUNC_TYP2CTYP_STRING_CTYP=qbs_new(0,0); +int32 *_FUNC_TYP2CTYP_LONG_B=NULL; +if(_FUNC_TYP2CTYP_LONG_B==NULL){ +_FUNC_TYP2CTYP_LONG_B=(int32*)mem_static_malloc(4); +*_FUNC_TYP2CTYP_LONG_B=0; } -int64 fornext_value3018; -int64 fornext_finalvalue3018; -int64 fornext_step3018; -uint8 fornext_step_negative3018; -byte_element_struct *byte_element_3019=NULL; -if (!byte_element_3019){ -if ((mem_static_pointer+=12)tmp||_FUNC_TYPE2SYMBOL_STRING_TYP->fixed||_FUNC_TYPE2SYMBOL_STRING_TYP->readonly){ +oldstr3212=_FUNC_TYPE2SYMBOL_STRING_TYP; +if (oldstr3212->cmem_descriptor){ +_FUNC_TYPE2SYMBOL_STRING_TYP=qbs_new_cmem(oldstr3212->len,0); +}else{ +_FUNC_TYPE2SYMBOL_STRING_TYP=qbs_new(oldstr3212->len,0); } -int32 *_FUNC_TYPECOMP_LONG_TYP2=NULL; -if(_FUNC_TYPECOMP_LONG_TYP2==NULL){ -_FUNC_TYPECOMP_LONG_TYP2=(int32*)mem_static_malloc(4); -*_FUNC_TYPECOMP_LONG_TYP2=0; +memcpy(_FUNC_TYPE2SYMBOL_STRING_TYP->chr,oldstr3212->chr,oldstr3212->len); +} +qbs *_FUNC_TYPE2SYMBOL_STRING_T=NULL; +if (!_FUNC_TYPE2SYMBOL_STRING_T)_FUNC_TYPE2SYMBOL_STRING_T=qbs_new(0,0); +int32 *_FUNC_TYPE2SYMBOL_LONG_I=NULL; +if(_FUNC_TYPE2SYMBOL_LONG_I==NULL){ +_FUNC_TYPE2SYMBOL_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_TYPE2SYMBOL_LONG_I=0; +} +int64 fornext_value3214; +int64 fornext_finalvalue3214; +int64 fornext_step3214; +uint8 fornext_step_negative3214; +byte_element_struct *byte_element_3215=NULL; +if (!byte_element_3215){ +if ((mem_static_pointer+=12)tmp||_FUNC_TYPNAME2TYP_STRING_T2->fixed||_FUNC_TYPNAME2TYP_STRING_T2->readonly){ -oldstr3042=_FUNC_TYPNAME2TYP_STRING_T2; -if (oldstr3042->cmem_descriptor){ -_FUNC_TYPNAME2TYP_STRING_T2=qbs_new_cmem(oldstr3042->len,0); -}else{ -_FUNC_TYPNAME2TYP_STRING_T2=qbs_new(oldstr3042->len,0); +int32 *_FUNC_TYPECOMP_LONG_TYP2=NULL; +if(_FUNC_TYPECOMP_LONG_TYP2==NULL){ +_FUNC_TYPECOMP_LONG_TYP2=(int32*)mem_static_malloc(4); +*_FUNC_TYPECOMP_LONG_TYP2=0; } -memcpy(_FUNC_TYPNAME2TYP_STRING_T2->chr,oldstr3042->chr,oldstr3042->len); -} -qbs *_FUNC_TYPNAME2TYP_STRING_T=NULL; -if (!_FUNC_TYPNAME2TYP_STRING_T)_FUNC_TYPNAME2TYP_STRING_T=qbs_new(0,0); -qbs *_FUNC_TYPNAME2TYP_STRING_TS=NULL; -if (!_FUNC_TYPNAME2TYP_STRING_TS)_FUNC_TYPNAME2TYP_STRING_TS=qbs_new(0,0); -qbs *_FUNC_TYPNAME2TYP_STRING_N=NULL; -if (!_FUNC_TYPNAME2TYP_STRING_N)_FUNC_TYPNAME2TYP_STRING_N=qbs_new(0,0); -byte_element_struct *byte_element_3043=NULL; -if (!byte_element_3043){ -if ((mem_static_pointer+=12)tmp||_FUNC_TYPNAME2TYP_STRING_T2->fixed||_FUNC_TYPNAME2TYP_STRING_T2->readonly){ +oldstr3222=_FUNC_TYPNAME2TYP_STRING_T2; +if (oldstr3222->cmem_descriptor){ +_FUNC_TYPNAME2TYP_STRING_T2=qbs_new_cmem(oldstr3222->len,0); +}else{ +_FUNC_TYPNAME2TYP_STRING_T2=qbs_new(oldstr3222->len,0); +} +memcpy(_FUNC_TYPNAME2TYP_STRING_T2->chr,oldstr3222->chr,oldstr3222->len); +} +qbs *_FUNC_TYPNAME2TYP_STRING_T=NULL; +if (!_FUNC_TYPNAME2TYP_STRING_T)_FUNC_TYPNAME2TYP_STRING_T=qbs_new(0,0); +qbs *_FUNC_TYPNAME2TYP_STRING_TS=NULL; +if (!_FUNC_TYPNAME2TYP_STRING_TS)_FUNC_TYPNAME2TYP_STRING_TS=qbs_new(0,0); +qbs *_FUNC_TYPNAME2TYP_STRING_N=NULL; +if (!_FUNC_TYPNAME2TYP_STRING_N)_FUNC_TYPNAME2TYP_STRING_N=qbs_new(0,0); +byte_element_struct *byte_element_3223=NULL; +if (!byte_element_3223){ +if ((mem_static_pointer+=12)tmp||_FUNC_ALLOCARRAY_STRING_N2->fixed||_FUNC_ALLOCARRAY_STRING_N2->readonly){ -oldstr2057=_FUNC_ALLOCARRAY_STRING_N2; -if (oldstr2057->cmem_descriptor){ -_FUNC_ALLOCARRAY_STRING_N2=qbs_new_cmem(oldstr2057->len,0); +oldstr2210=_FUNC_ALLOCARRAY_STRING_N2; +if (oldstr2210->cmem_descriptor){ +_FUNC_ALLOCARRAY_STRING_N2=qbs_new_cmem(oldstr2210->len,0); }else{ -_FUNC_ALLOCARRAY_STRING_N2=qbs_new(oldstr2057->len,0); +_FUNC_ALLOCARRAY_STRING_N2=qbs_new(oldstr2210->len,0); } -memcpy(_FUNC_ALLOCARRAY_STRING_N2->chr,oldstr2057->chr,oldstr2057->len); +memcpy(_FUNC_ALLOCARRAY_STRING_N2->chr,oldstr2210->chr,oldstr2210->len); } -qbs*oldstr2058=NULL; +qbs*oldstr2211=NULL; if(_FUNC_ALLOCARRAY_STRING_ELEMENTS->tmp||_FUNC_ALLOCARRAY_STRING_ELEMENTS->fixed||_FUNC_ALLOCARRAY_STRING_ELEMENTS->readonly){ -oldstr2058=_FUNC_ALLOCARRAY_STRING_ELEMENTS; -if (oldstr2058->cmem_descriptor){ -_FUNC_ALLOCARRAY_STRING_ELEMENTS=qbs_new_cmem(oldstr2058->len,0); +oldstr2211=_FUNC_ALLOCARRAY_STRING_ELEMENTS; +if (oldstr2211->cmem_descriptor){ +_FUNC_ALLOCARRAY_STRING_ELEMENTS=qbs_new_cmem(oldstr2211->len,0); }else{ -_FUNC_ALLOCARRAY_STRING_ELEMENTS=qbs_new(oldstr2058->len,0); +_FUNC_ALLOCARRAY_STRING_ELEMENTS=qbs_new(oldstr2211->len,0); } -memcpy(_FUNC_ALLOCARRAY_STRING_ELEMENTS->chr,oldstr2058->chr,oldstr2058->len); +memcpy(_FUNC_ALLOCARRAY_STRING_ELEMENTS->chr,oldstr2211->chr,oldstr2211->len); } int32 *_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=NULL; if(_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST==NULL){ @@ -56,13 +56,13 @@ if(_FUNC_ALLOCARRAY_LONG_NUME==NULL){ _FUNC_ALLOCARRAY_LONG_NUME=(int32*)mem_static_malloc(4); *_FUNC_ALLOCARRAY_LONG_NUME=0; } -byte_element_struct *byte_element_2059=NULL; -if (!byte_element_2059){ -if ((mem_static_pointer+=12)tmp||_FUNC_VALIDLABEL_STRING_LABEL2->fixed||_FUNC_VALIDLABEL_STRING_LABEL2->readonly){ -oldstr3057=_FUNC_VALIDLABEL_STRING_LABEL2; -if (oldstr3057->cmem_descriptor){ -_FUNC_VALIDLABEL_STRING_LABEL2=qbs_new_cmem(oldstr3057->len,0); -}else{ -_FUNC_VALIDLABEL_STRING_LABEL2=qbs_new(oldstr3057->len,0); -} -memcpy(_FUNC_VALIDLABEL_STRING_LABEL2->chr,oldstr3057->chr,oldstr3057->len); -} -int32 *_FUNC_VALIDLABEL_LONG_CREATE=NULL; -if(_FUNC_VALIDLABEL_LONG_CREATE==NULL){ -_FUNC_VALIDLABEL_LONG_CREATE=(int32*)mem_static_malloc(4); -*_FUNC_VALIDLABEL_LONG_CREATE=0; -} -byte_element_struct *byte_element_3058=NULL; -if (!byte_element_3058){ -if ((mem_static_pointer+=12)tmp||_FUNC_VALIDLABEL_STRING_LABEL2->fixed||_FUNC_VALIDLABEL_STRING_LABEL2->readonly){ +oldstr3236=_FUNC_VALIDLABEL_STRING_LABEL2; +if (oldstr3236->cmem_descriptor){ +_FUNC_VALIDLABEL_STRING_LABEL2=qbs_new_cmem(oldstr3236->len,0); +}else{ +_FUNC_VALIDLABEL_STRING_LABEL2=qbs_new(oldstr3236->len,0); +} +memcpy(_FUNC_VALIDLABEL_STRING_LABEL2->chr,oldstr3236->chr,oldstr3236->len); +} +int32 *_FUNC_VALIDLABEL_LONG_CREATE=NULL; +if(_FUNC_VALIDLABEL_LONG_CREATE==NULL){ +_FUNC_VALIDLABEL_LONG_CREATE=(int32*)mem_static_malloc(4); +*_FUNC_VALIDLABEL_LONG_CREATE=0; +} +byte_element_struct *byte_element_3237=NULL; +if (!byte_element_3237){ +if ((mem_static_pointer+=12)tmp||_SUB_XFILEPRINT_STRING_A->fixed||_SUB_XFILEPRINT_STRING_A->readonly){ -oldstr3080=_SUB_XFILEPRINT_STRING_A; -if (oldstr3080->cmem_descriptor){ -_SUB_XFILEPRINT_STRING_A=qbs_new_cmem(oldstr3080->len,0); -}else{ -_SUB_XFILEPRINT_STRING_A=qbs_new(oldstr3080->len,0); -} -memcpy(_SUB_XFILEPRINT_STRING_A->chr,oldstr3080->chr,oldstr3080->len); -} -qbs*oldstr3081=NULL; -if(_SUB_XFILEPRINT_STRING_CA->tmp||_SUB_XFILEPRINT_STRING_CA->fixed||_SUB_XFILEPRINT_STRING_CA->readonly){ -oldstr3081=_SUB_XFILEPRINT_STRING_CA; -if (oldstr3081->cmem_descriptor){ -_SUB_XFILEPRINT_STRING_CA=qbs_new_cmem(oldstr3081->len,0); -}else{ -_SUB_XFILEPRINT_STRING_CA=qbs_new(oldstr3081->len,0); -} -memcpy(_SUB_XFILEPRINT_STRING_CA->chr,oldstr3081->chr,oldstr3081->len); -} -qbs *_SUB_XFILEPRINT_STRING_U=NULL; -if (!_SUB_XFILEPRINT_STRING_U)_SUB_XFILEPRINT_STRING_U=qbs_new(0,0); -int32 pass3082; -qbs *_SUB_XFILEPRINT_STRING_A3=NULL; -if (!_SUB_XFILEPRINT_STRING_A3)_SUB_XFILEPRINT_STRING_A3=qbs_new(0,0); -int32 *_SUB_XFILEPRINT_LONG_B=NULL; -if(_SUB_XFILEPRINT_LONG_B==NULL){ -_SUB_XFILEPRINT_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_XFILEPRINT_LONG_B=0; -} -int32 *_SUB_XFILEPRINT_LONG_I=NULL; -if(_SUB_XFILEPRINT_LONG_I==NULL){ -_SUB_XFILEPRINT_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_XFILEPRINT_LONG_I=0; -} -int64 fornext_value3085; -int64 fornext_finalvalue3085; -int64 fornext_step3085; -uint8 fornext_step_negative3085; -qbs *_SUB_XFILEPRINT_STRING_A2=NULL; -if (!_SUB_XFILEPRINT_STRING_A2)_SUB_XFILEPRINT_STRING_A2=qbs_new(0,0); -qbs *_SUB_XFILEPRINT_STRING_E=NULL; -if (!_SUB_XFILEPRINT_STRING_E)_SUB_XFILEPRINT_STRING_E=qbs_new(0,0); -qbs *_SUB_XFILEPRINT_STRING_L=NULL; -if (!_SUB_XFILEPRINT_STRING_L)_SUB_XFILEPRINT_STRING_L=qbs_new(0,0); -int32 pass3086; -qbs *_SUB_XFILEPRINT_STRING_PUFORMAT=NULL; -if (!_SUB_XFILEPRINT_STRING_PUFORMAT)_SUB_XFILEPRINT_STRING_PUFORMAT=qbs_new(0,0); -int64 fornext_value3090; -int64 fornext_finalvalue3090; -int64 fornext_step3090; -uint8 fornext_step_negative3090; -int32 *_SUB_XFILEPRINT_LONG_TYP=NULL; -if(_SUB_XFILEPRINT_LONG_TYP==NULL){ -_SUB_XFILEPRINT_LONG_TYP=(int32*)mem_static_malloc(4); -*_SUB_XFILEPRINT_LONG_TYP=0; -} -int32 pass3091; -byte_element_struct *byte_element_3092=NULL; -if (!byte_element_3092){ -if ((mem_static_pointer+=12)tmp||_SUB_XFILEWRITE_STRING_CA->fixed||_SUB_XFILEWRITE_STRING_CA->readonly){ -oldstr3137=_SUB_XFILEWRITE_STRING_CA; -if (oldstr3137->cmem_descriptor){ -_SUB_XFILEWRITE_STRING_CA=qbs_new_cmem(oldstr3137->len,0); +qbs*oldstr3262=NULL; +if(_SUB_XFILEPRINT_STRING_A->tmp||_SUB_XFILEPRINT_STRING_A->fixed||_SUB_XFILEPRINT_STRING_A->readonly){ +oldstr3262=_SUB_XFILEPRINT_STRING_A; +if (oldstr3262->cmem_descriptor){ +_SUB_XFILEPRINT_STRING_A=qbs_new_cmem(oldstr3262->len,0); }else{ -_SUB_XFILEWRITE_STRING_CA=qbs_new(oldstr3137->len,0); +_SUB_XFILEPRINT_STRING_A=qbs_new(oldstr3262->len,0); } -memcpy(_SUB_XFILEWRITE_STRING_CA->chr,oldstr3137->chr,oldstr3137->len); +memcpy(_SUB_XFILEPRINT_STRING_A->chr,oldstr3262->chr,oldstr3262->len); } -qbs *_SUB_XFILEWRITE_STRING_L=NULL; -if (!_SUB_XFILEWRITE_STRING_L)_SUB_XFILEWRITE_STRING_L=qbs_new(0,0); -qbs *_SUB_XFILEWRITE_STRING_U=NULL; -if (!_SUB_XFILEWRITE_STRING_U)_SUB_XFILEWRITE_STRING_U=qbs_new(0,0); -int32 pass3138; -qbs *_SUB_XFILEWRITE_STRING_A3=NULL; -if (!_SUB_XFILEWRITE_STRING_A3)_SUB_XFILEWRITE_STRING_A3=qbs_new(0,0); -int32 *_SUB_XFILEWRITE_LONG_B=NULL; -if(_SUB_XFILEWRITE_LONG_B==NULL){ -_SUB_XFILEWRITE_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_XFILEWRITE_LONG_B=0; +qbs*oldstr3263=NULL; +if(_SUB_XFILEPRINT_STRING_CA->tmp||_SUB_XFILEPRINT_STRING_CA->fixed||_SUB_XFILEPRINT_STRING_CA->readonly){ +oldstr3263=_SUB_XFILEPRINT_STRING_CA; +if (oldstr3263->cmem_descriptor){ +_SUB_XFILEPRINT_STRING_CA=qbs_new_cmem(oldstr3263->len,0); +}else{ +_SUB_XFILEPRINT_STRING_CA=qbs_new(oldstr3263->len,0); } -int32 *_SUB_XFILEWRITE_LONG_I=NULL; -if(_SUB_XFILEWRITE_LONG_I==NULL){ -_SUB_XFILEWRITE_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_XFILEWRITE_LONG_I=0; +memcpy(_SUB_XFILEPRINT_STRING_CA->chr,oldstr3263->chr,oldstr3263->len); } -int64 fornext_value3141; -int64 fornext_finalvalue3141; -int64 fornext_step3141; -uint8 fornext_step_negative3141; -qbs *_SUB_XFILEWRITE_STRING_A2=NULL; -if (!_SUB_XFILEWRITE_STRING_A2)_SUB_XFILEWRITE_STRING_A2=qbs_new(0,0); -qbs *_SUB_XFILEWRITE_STRING_E=NULL; -if (!_SUB_XFILEWRITE_STRING_E)_SUB_XFILEWRITE_STRING_E=qbs_new(0,0); -int32 pass3142; -int32 *_SUB_XFILEWRITE_LONG_LAST=NULL; -if(_SUB_XFILEWRITE_LONG_LAST==NULL){ -_SUB_XFILEWRITE_LONG_LAST=(int32*)mem_static_malloc(4); -*_SUB_XFILEWRITE_LONG_LAST=0; +qbs *_SUB_XFILEPRINT_STRING_U=NULL; +if (!_SUB_XFILEPRINT_STRING_U)_SUB_XFILEPRINT_STRING_U=qbs_new(0,0); +int32 pass3264; +qbs *_SUB_XFILEPRINT_STRING_A3=NULL; +if (!_SUB_XFILEPRINT_STRING_A3)_SUB_XFILEPRINT_STRING_A3=qbs_new(0,0); +int32 *_SUB_XFILEPRINT_LONG_B=NULL; +if(_SUB_XFILEPRINT_LONG_B==NULL){ +_SUB_XFILEPRINT_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_XFILEPRINT_LONG_B=0; } -int64 fornext_value3147; -int64 fornext_finalvalue3147; -int64 fornext_step3147; -uint8 fornext_step_negative3147; -int32 *_SUB_XFILEWRITE_LONG_NEWLINE=NULL; -if(_SUB_XFILEWRITE_LONG_NEWLINE==NULL){ -_SUB_XFILEWRITE_LONG_NEWLINE=(int32*)mem_static_malloc(4); -*_SUB_XFILEWRITE_LONG_NEWLINE=0; +int32 *_SUB_XFILEPRINT_LONG_I=NULL; +if(_SUB_XFILEPRINT_LONG_I==NULL){ +_SUB_XFILEPRINT_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_XFILEPRINT_LONG_I=0; } -qbs *_SUB_XFILEWRITE_STRING_EBAK=NULL; -if (!_SUB_XFILEWRITE_STRING_EBAK)_SUB_XFILEWRITE_STRING_EBAK=qbs_new(0,0); -int32 *_SUB_XFILEWRITE_LONG_REEVALED=NULL; -if(_SUB_XFILEWRITE_LONG_REEVALED==NULL){ -_SUB_XFILEWRITE_LONG_REEVALED=(int32*)mem_static_malloc(4); -*_SUB_XFILEWRITE_LONG_REEVALED=0; +int64 fornext_value3267; +int64 fornext_finalvalue3267; +int64 fornext_step3267; +uint8 fornext_step_negative3267; +qbs *_SUB_XFILEPRINT_STRING_A2=NULL; +if (!_SUB_XFILEPRINT_STRING_A2)_SUB_XFILEPRINT_STRING_A2=qbs_new(0,0); +qbs *_SUB_XFILEPRINT_STRING_E=NULL; +if (!_SUB_XFILEPRINT_STRING_E)_SUB_XFILEPRINT_STRING_E=qbs_new(0,0); +qbs *_SUB_XFILEPRINT_STRING_L=NULL; +if (!_SUB_XFILEPRINT_STRING_L)_SUB_XFILEPRINT_STRING_L=qbs_new(0,0); +int32 pass3268; +qbs *_SUB_XFILEPRINT_STRING_PUFORMAT=NULL; +if (!_SUB_XFILEPRINT_STRING_PUFORMAT)_SUB_XFILEPRINT_STRING_PUFORMAT=qbs_new(0,0); +int64 fornext_value3272; +int64 fornext_finalvalue3272; +int64 fornext_step3272; +uint8 fornext_step_negative3272; +int32 *_SUB_XFILEPRINT_LONG_TYP=NULL; +if(_SUB_XFILEPRINT_LONG_TYP==NULL){ +_SUB_XFILEPRINT_LONG_TYP=(int32*)mem_static_malloc(4); +*_SUB_XFILEPRINT_LONG_TYP=0; } -int32 *_SUB_XFILEWRITE_LONG_TYP=NULL; -if(_SUB_XFILEWRITE_LONG_TYP==NULL){ -_SUB_XFILEWRITE_LONG_TYP=(int32*)mem_static_malloc(4); -*_SUB_XFILEWRITE_LONG_TYP=0; +int32 pass3273; +byte_element_struct *byte_element_3274=NULL; +if (!byte_element_3274){ +if ((mem_static_pointer+=12)tmp||_SUB_XGOSUB_STRING_CA->fixed||_SUB_XGOSUB_STRING_CA->readonly){ -oldstr3155=_SUB_XGOSUB_STRING_CA; -if (oldstr3155->cmem_descriptor){ -_SUB_XGOSUB_STRING_CA=qbs_new_cmem(oldstr3155->len,0); +qbs*oldstr3319=NULL; +if(_SUB_XFILEWRITE_STRING_CA->tmp||_SUB_XFILEWRITE_STRING_CA->fixed||_SUB_XFILEWRITE_STRING_CA->readonly){ +oldstr3319=_SUB_XFILEWRITE_STRING_CA; +if (oldstr3319->cmem_descriptor){ +_SUB_XFILEWRITE_STRING_CA=qbs_new_cmem(oldstr3319->len,0); }else{ -_SUB_XGOSUB_STRING_CA=qbs_new(oldstr3155->len,0); +_SUB_XFILEWRITE_STRING_CA=qbs_new(oldstr3319->len,0); } -memcpy(_SUB_XGOSUB_STRING_CA->chr,oldstr3155->chr,oldstr3155->len); +memcpy(_SUB_XFILEWRITE_STRING_CA->chr,oldstr3319->chr,oldstr3319->len); } -qbs *_SUB_XGOSUB_STRING_A2=NULL; -if (!_SUB_XGOSUB_STRING_A2)_SUB_XGOSUB_STRING_A2=qbs_new(0,0); -int32 pass3156; -int32 *_SUB_XGOSUB_LONG_V=NULL; -if(_SUB_XGOSUB_LONG_V==NULL){ -_SUB_XGOSUB_LONG_V=(int32*)mem_static_malloc(4); -*_SUB_XGOSUB_LONG_V=0; +qbs *_SUB_XFILEWRITE_STRING_L=NULL; +if (!_SUB_XFILEWRITE_STRING_L)_SUB_XFILEWRITE_STRING_L=qbs_new(0,0); +qbs *_SUB_XFILEWRITE_STRING_U=NULL; +if (!_SUB_XFILEWRITE_STRING_U)_SUB_XFILEWRITE_STRING_U=qbs_new(0,0); +int32 pass3320; +qbs *_SUB_XFILEWRITE_STRING_A3=NULL; +if (!_SUB_XFILEWRITE_STRING_A3)_SUB_XFILEWRITE_STRING_A3=qbs_new(0,0); +int32 *_SUB_XFILEWRITE_LONG_B=NULL; +if(_SUB_XFILEWRITE_LONG_B==NULL){ +_SUB_XFILEWRITE_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_XFILEWRITE_LONG_B=0; } -int32 pass3157; -int32 *_SUB_XGOSUB_LONG_IGNORE=NULL; -if(_SUB_XGOSUB_LONG_IGNORE==NULL){ -_SUB_XGOSUB_LONG_IGNORE=(int32*)mem_static_malloc(4); -*_SUB_XGOSUB_LONG_IGNORE=0; +int32 *_SUB_XFILEWRITE_LONG_I=NULL; +if(_SUB_XFILEWRITE_LONG_I==NULL){ +_SUB_XFILEWRITE_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_XFILEWRITE_LONG_I=0; } -int32 *_SUB_XGOSUB_LONG_R=NULL; -if(_SUB_XGOSUB_LONG_R==NULL){ -_SUB_XGOSUB_LONG_R=(int32*)mem_static_malloc(4); -*_SUB_XGOSUB_LONG_R=0; +int64 fornext_value3323; +int64 fornext_finalvalue3323; +int64 fornext_step3323; +uint8 fornext_step_negative3323; +qbs *_SUB_XFILEWRITE_STRING_A2=NULL; +if (!_SUB_XFILEWRITE_STRING_A2)_SUB_XFILEWRITE_STRING_A2=qbs_new(0,0); +qbs *_SUB_XFILEWRITE_STRING_E=NULL; +if (!_SUB_XFILEWRITE_STRING_E)_SUB_XFILEWRITE_STRING_E=qbs_new(0,0); +int32 pass3324; +int32 *_SUB_XFILEWRITE_LONG_LAST=NULL; +if(_SUB_XFILEWRITE_LONG_LAST==NULL){ +_SUB_XFILEWRITE_LONG_LAST=(int32*)mem_static_malloc(4); +*_SUB_XFILEWRITE_LONG_LAST=0; } -int32 *_SUB_XGOSUB_LONG_X=NULL; -if(_SUB_XGOSUB_LONG_X==NULL){ -_SUB_XGOSUB_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_XGOSUB_LONG_X=0; +int64 fornext_value3329; +int64 fornext_finalvalue3329; +int64 fornext_step3329; +uint8 fornext_step_negative3329; +int32 *_SUB_XFILEWRITE_LONG_NEWLINE=NULL; +if(_SUB_XFILEWRITE_LONG_NEWLINE==NULL){ +_SUB_XFILEWRITE_LONG_NEWLINE=(int32*)mem_static_malloc(4); +*_SUB_XFILEWRITE_LONG_NEWLINE=0; } -int32 *_SUB_XGOSUB_LONG_S=NULL; -if(_SUB_XGOSUB_LONG_S==NULL){ -_SUB_XGOSUB_LONG_S=(int32*)mem_static_malloc(4); -*_SUB_XGOSUB_LONG_S=0; +qbs *_SUB_XFILEWRITE_STRING_EBAK=NULL; +if (!_SUB_XFILEWRITE_STRING_EBAK)_SUB_XFILEWRITE_STRING_EBAK=qbs_new(0,0); +int32 *_SUB_XFILEWRITE_LONG_REEVALED=NULL; +if(_SUB_XFILEWRITE_LONG_REEVALED==NULL){ +_SUB_XFILEWRITE_LONG_REEVALED=(int32*)mem_static_malloc(4); +*_SUB_XFILEWRITE_LONG_REEVALED=0; } -int32 pass3158; -qbs *_SUB_XGOSUB_STRING_L=NULL; -if (!_SUB_XGOSUB_STRING_L)_SUB_XGOSUB_STRING_L=qbs_new(0,0); -byte_element_struct *byte_element_3159=NULL; -if (!byte_element_3159){ -if ((mem_static_pointer+=12)tmp||_SUB_XONGOTOGOSUB_STRING_A->fixed||_SUB_XONGOTOGOSUB_STRING_A->readonly){ -oldstr3167=_SUB_XONGOTOGOSUB_STRING_A; -if (oldstr3167->cmem_descriptor){ -_SUB_XONGOTOGOSUB_STRING_A=qbs_new_cmem(oldstr3167->len,0); +qbs*oldstr3337=NULL; +if(_SUB_XGOSUB_STRING_CA->tmp||_SUB_XGOSUB_STRING_CA->fixed||_SUB_XGOSUB_STRING_CA->readonly){ +oldstr3337=_SUB_XGOSUB_STRING_CA; +if (oldstr3337->cmem_descriptor){ +_SUB_XGOSUB_STRING_CA=qbs_new_cmem(oldstr3337->len,0); }else{ -_SUB_XONGOTOGOSUB_STRING_A=qbs_new(oldstr3167->len,0); +_SUB_XGOSUB_STRING_CA=qbs_new(oldstr3337->len,0); } -memcpy(_SUB_XONGOTOGOSUB_STRING_A->chr,oldstr3167->chr,oldstr3167->len); +memcpy(_SUB_XGOSUB_STRING_CA->chr,oldstr3337->chr,oldstr3337->len); } -qbs*oldstr3168=NULL; -if(_SUB_XONGOTOGOSUB_STRING_CA->tmp||_SUB_XONGOTOGOSUB_STRING_CA->fixed||_SUB_XONGOTOGOSUB_STRING_CA->readonly){ -oldstr3168=_SUB_XONGOTOGOSUB_STRING_CA; -if (oldstr3168->cmem_descriptor){ -_SUB_XONGOTOGOSUB_STRING_CA=qbs_new_cmem(oldstr3168->len,0); -}else{ -_SUB_XONGOTOGOSUB_STRING_CA=qbs_new(oldstr3168->len,0); +qbs *_SUB_XGOSUB_STRING_A2=NULL; +if (!_SUB_XGOSUB_STRING_A2)_SUB_XGOSUB_STRING_A2=qbs_new(0,0); +int32 pass3338; +int32 *_SUB_XGOSUB_LONG_V=NULL; +if(_SUB_XGOSUB_LONG_V==NULL){ +_SUB_XGOSUB_LONG_V=(int32*)mem_static_malloc(4); +*_SUB_XGOSUB_LONG_V=0; } -memcpy(_SUB_XONGOTOGOSUB_STRING_CA->chr,oldstr3168->chr,oldstr3168->len); +int32 pass3339; +int32 *_SUB_XGOSUB_LONG_IGNORE=NULL; +if(_SUB_XGOSUB_LONG_IGNORE==NULL){ +_SUB_XGOSUB_LONG_IGNORE=(int32*)mem_static_malloc(4); +*_SUB_XGOSUB_LONG_IGNORE=0; } -qbs *_SUB_XONGOTOGOSUB_STRING_L=NULL; -if (!_SUB_XONGOTOGOSUB_STRING_L)_SUB_XONGOTOGOSUB_STRING_L=qbs_new(0,0); -int32 *_SUB_XONGOTOGOSUB_LONG_B=NULL; -if(_SUB_XONGOTOGOSUB_LONG_B==NULL){ -_SUB_XONGOTOGOSUB_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_B=0; +int32 *_SUB_XGOSUB_LONG_R=NULL; +if(_SUB_XGOSUB_LONG_R==NULL){ +_SUB_XGOSUB_LONG_R=(int32*)mem_static_malloc(4); +*_SUB_XGOSUB_LONG_R=0; } -int32 *_SUB_XONGOTOGOSUB_LONG_I=NULL; -if(_SUB_XONGOTOGOSUB_LONG_I==NULL){ -_SUB_XONGOTOGOSUB_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_I=0; +int32 *_SUB_XGOSUB_LONG_X=NULL; +if(_SUB_XGOSUB_LONG_X==NULL){ +_SUB_XGOSUB_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_XGOSUB_LONG_X=0; } -int64 fornext_value3170; -int64 fornext_finalvalue3170; -int64 fornext_step3170; -uint8 fornext_step_negative3170; -qbs *_SUB_XONGOTOGOSUB_STRING_E2=NULL; -if (!_SUB_XONGOTOGOSUB_STRING_E2)_SUB_XONGOTOGOSUB_STRING_E2=qbs_new(0,0); -qbs *_SUB_XONGOTOGOSUB_STRING_E=NULL; -if (!_SUB_XONGOTOGOSUB_STRING_E)_SUB_XONGOTOGOSUB_STRING_E=qbs_new(0,0); -int32 pass3171; -int32 pass3172; -int32 *_SUB_XONGOTOGOSUB_LONG_G=NULL; -if(_SUB_XONGOTOGOSUB_LONG_G==NULL){ -_SUB_XONGOTOGOSUB_LONG_G=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_G=0; +int32 *_SUB_XGOSUB_LONG_S=NULL; +if(_SUB_XGOSUB_LONG_S==NULL){ +_SUB_XGOSUB_LONG_S=(int32*)mem_static_malloc(4); +*_SUB_XGOSUB_LONG_S=0; } -int32 *_SUB_XONGOTOGOSUB_LONG_TYP=NULL; -if(_SUB_XONGOTOGOSUB_LONG_TYP==NULL){ -_SUB_XONGOTOGOSUB_LONG_TYP=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_TYP=0; -} -int32 pass3173; -qbs *_SUB_XONGOTOGOSUB_STRING_U=NULL; -if (!_SUB_XONGOTOGOSUB_STRING_U)_SUB_XONGOTOGOSUB_STRING_U=qbs_new(0,0); -int32 pass3174; -int32 *_SUB_XONGOTOGOSUB_LONG_LN=NULL; -if(_SUB_XONGOTOGOSUB_LONG_LN==NULL){ -_SUB_XONGOTOGOSUB_LONG_LN=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_LN=0; -} -int32 *_SUB_XONGOTOGOSUB_LONG_LABELWASLAST=NULL; -if(_SUB_XONGOTOGOSUB_LONG_LABELWASLAST==NULL){ -_SUB_XONGOTOGOSUB_LONG_LABELWASLAST=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST=0; -} -int64 fornext_value3178; -int64 fornext_finalvalue3178; -int64 fornext_step3178; -uint8 fornext_step_negative3178; -int32 *_SUB_XONGOTOGOSUB_LONG_V=NULL; -if(_SUB_XONGOTOGOSUB_LONG_V==NULL){ -_SUB_XONGOTOGOSUB_LONG_V=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_V=0; -} -int32 pass3179; -int32 *_SUB_XONGOTOGOSUB_LONG_IGNORE=NULL; -if(_SUB_XONGOTOGOSUB_LONG_IGNORE==NULL){ -_SUB_XONGOTOGOSUB_LONG_IGNORE=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_IGNORE=0; -} -int32 *_SUB_XONGOTOGOSUB_LONG_R=NULL; -if(_SUB_XONGOTOGOSUB_LONG_R==NULL){ -_SUB_XONGOTOGOSUB_LONG_R=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_R=0; -} -int32 *_SUB_XONGOTOGOSUB_LONG_X=NULL; -if(_SUB_XONGOTOGOSUB_LONG_X==NULL){ -_SUB_XONGOTOGOSUB_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_X=0; -} -int32 *_SUB_XONGOTOGOSUB_LONG_S=NULL; -if(_SUB_XONGOTOGOSUB_LONG_S==NULL){ -_SUB_XONGOTOGOSUB_LONG_S=(int32*)mem_static_malloc(4); -*_SUB_XONGOTOGOSUB_LONG_S=0; -} -int32 pass3180; -qbs *_SUB_XONGOTOGOSUB_STRING_LB=NULL; -if (!_SUB_XONGOTOGOSUB_STRING_LB)_SUB_XONGOTOGOSUB_STRING_LB=qbs_new(0,0); -byte_element_struct *byte_element_3194=NULL; -if (!byte_element_3194){ -if ((mem_static_pointer+=12)tmp||_SUB_XPRINT_STRING_A->fixed||_SUB_XPRINT_STRING_A->readonly){ -oldstr3195=_SUB_XPRINT_STRING_A; -if (oldstr3195->cmem_descriptor){ -_SUB_XPRINT_STRING_A=qbs_new_cmem(oldstr3195->len,0); +qbs*oldstr3349=NULL; +if(_SUB_XONGOTOGOSUB_STRING_A->tmp||_SUB_XONGOTOGOSUB_STRING_A->fixed||_SUB_XONGOTOGOSUB_STRING_A->readonly){ +oldstr3349=_SUB_XONGOTOGOSUB_STRING_A; +if (oldstr3349->cmem_descriptor){ +_SUB_XONGOTOGOSUB_STRING_A=qbs_new_cmem(oldstr3349->len,0); }else{ -_SUB_XPRINT_STRING_A=qbs_new(oldstr3195->len,0); +_SUB_XONGOTOGOSUB_STRING_A=qbs_new(oldstr3349->len,0); } -memcpy(_SUB_XPRINT_STRING_A->chr,oldstr3195->chr,oldstr3195->len); +memcpy(_SUB_XONGOTOGOSUB_STRING_A->chr,oldstr3349->chr,oldstr3349->len); } -qbs*oldstr3196=NULL; -if(_SUB_XPRINT_STRING_CA->tmp||_SUB_XPRINT_STRING_CA->fixed||_SUB_XPRINT_STRING_CA->readonly){ -oldstr3196=_SUB_XPRINT_STRING_CA; -if (oldstr3196->cmem_descriptor){ -_SUB_XPRINT_STRING_CA=qbs_new_cmem(oldstr3196->len,0); +qbs*oldstr3350=NULL; +if(_SUB_XONGOTOGOSUB_STRING_CA->tmp||_SUB_XONGOTOGOSUB_STRING_CA->fixed||_SUB_XONGOTOGOSUB_STRING_CA->readonly){ +oldstr3350=_SUB_XONGOTOGOSUB_STRING_CA; +if (oldstr3350->cmem_descriptor){ +_SUB_XONGOTOGOSUB_STRING_CA=qbs_new_cmem(oldstr3350->len,0); }else{ -_SUB_XPRINT_STRING_CA=qbs_new(oldstr3196->len,0); +_SUB_XONGOTOGOSUB_STRING_CA=qbs_new(oldstr3350->len,0); } -memcpy(_SUB_XPRINT_STRING_CA->chr,oldstr3196->chr,oldstr3196->len); +memcpy(_SUB_XONGOTOGOSUB_STRING_CA->chr,oldstr3350->chr,oldstr3350->len); } -qbs *_SUB_XPRINT_STRING_U=NULL; -if (!_SUB_XPRINT_STRING_U)_SUB_XPRINT_STRING_U=qbs_new(0,0); -int32 pass3197; -qbs *_SUB_XPRINT_STRING_L=NULL; -if (!_SUB_XPRINT_STRING_L)_SUB_XPRINT_STRING_L=qbs_new(0,0); -int32 *_SUB_XPRINT_LONG_LP=NULL; -if(_SUB_XPRINT_LONG_LP==NULL){ -_SUB_XPRINT_LONG_LP=(int32*)mem_static_malloc(4); -*_SUB_XPRINT_LONG_LP=0; +qbs *_SUB_XONGOTOGOSUB_STRING_L=NULL; +if (!_SUB_XONGOTOGOSUB_STRING_L)_SUB_XONGOTOGOSUB_STRING_L=qbs_new(0,0); +int32 *_SUB_XONGOTOGOSUB_LONG_B=NULL; +if(_SUB_XONGOTOGOSUB_LONG_B==NULL){ +_SUB_XONGOTOGOSUB_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_XONGOTOGOSUB_LONG_B=0; } -qbs *_SUB_XPRINT_STRING_LP=NULL; -if (!_SUB_XPRINT_STRING_LP)_SUB_XPRINT_STRING_LP=qbs_new(0,0); -int32 pass3199; -int32 *_SUB_XPRINT_LONG_I=NULL; -if(_SUB_XPRINT_LONG_I==NULL){ -_SUB_XPRINT_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_XPRINT_LONG_I=0; +int32 *_SUB_XONGOTOGOSUB_LONG_I=NULL; +if(_SUB_XONGOTOGOSUB_LONG_I==NULL){ +_SUB_XONGOTOGOSUB_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_XONGOTOGOSUB_LONG_I=0; } -qbs *_SUB_XPRINT_STRING_E=NULL; -if (!_SUB_XPRINT_STRING_E)_SUB_XPRINT_STRING_E=qbs_new(0,0); -int32 *_SUB_XPRINT_LONG_B=NULL; -if(_SUB_XPRINT_LONG_B==NULL){ -_SUB_XPRINT_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_XPRINT_LONG_B=0; +int64 fornext_value3352; +int64 fornext_finalvalue3352; +int64 fornext_step3352; +uint8 fornext_step_negative3352; +qbs *_SUB_XONGOTOGOSUB_STRING_E2=NULL; +if (!_SUB_XONGOTOGOSUB_STRING_E2)_SUB_XONGOTOGOSUB_STRING_E2=qbs_new(0,0); +qbs *_SUB_XONGOTOGOSUB_STRING_E=NULL; +if (!_SUB_XONGOTOGOSUB_STRING_E)_SUB_XONGOTOGOSUB_STRING_E=qbs_new(0,0); +int32 pass3353; +int32 pass3354; +int32 *_SUB_XONGOTOGOSUB_LONG_G=NULL; +if(_SUB_XONGOTOGOSUB_LONG_G==NULL){ +_SUB_XONGOTOGOSUB_LONG_G=(int32*)mem_static_malloc(4); +*_SUB_XONGOTOGOSUB_LONG_G=0; } -qbs *_SUB_XPRINT_STRING_PUFORMAT=NULL; -if (!_SUB_XPRINT_STRING_PUFORMAT)_SUB_XPRINT_STRING_PUFORMAT=qbs_new(0,0); -int64 fornext_value3201; -int64 fornext_finalvalue3201; -int64 fornext_step3201; -uint8 fornext_step_negative3201; -qbs *_SUB_XPRINT_STRING_A2=NULL; -if (!_SUB_XPRINT_STRING_A2)_SUB_XPRINT_STRING_A2=qbs_new(0,0); -int32 *_SUB_XPRINT_LONG_TYP=NULL; -if(_SUB_XPRINT_LONG_TYP==NULL){ -_SUB_XPRINT_LONG_TYP=(int32*)mem_static_malloc(4); -*_SUB_XPRINT_LONG_TYP=0; +int32 *_SUB_XONGOTOGOSUB_LONG_TYP=NULL; +if(_SUB_XONGOTOGOSUB_LONG_TYP==NULL){ +_SUB_XONGOTOGOSUB_LONG_TYP=(int32*)mem_static_malloc(4); +*_SUB_XONGOTOGOSUB_LONG_TYP=0; } -int32 pass3202; -byte_element_struct *byte_element_3203=NULL; -if (!byte_element_3203){ -if ((mem_static_pointer+=12)tmp||_SUB_XREAD_STRING_CA->fixed||_SUB_XREAD_STRING_CA->readonly){ -oldstr3259=_SUB_XREAD_STRING_CA; -if (oldstr3259->cmem_descriptor){ -_SUB_XREAD_STRING_CA=qbs_new_cmem(oldstr3259->len,0); +qbs*oldstr3377=NULL; +if(_SUB_XPRINT_STRING_A->tmp||_SUB_XPRINT_STRING_A->fixed||_SUB_XPRINT_STRING_A->readonly){ +oldstr3377=_SUB_XPRINT_STRING_A; +if (oldstr3377->cmem_descriptor){ +_SUB_XPRINT_STRING_A=qbs_new_cmem(oldstr3377->len,0); }else{ -_SUB_XREAD_STRING_CA=qbs_new(oldstr3259->len,0); +_SUB_XPRINT_STRING_A=qbs_new(oldstr3377->len,0); } -memcpy(_SUB_XREAD_STRING_CA->chr,oldstr3259->chr,oldstr3259->len); +memcpy(_SUB_XPRINT_STRING_A->chr,oldstr3377->chr,oldstr3377->len); } -qbs *_SUB_XREAD_STRING_L=NULL; -if (!_SUB_XREAD_STRING_L)_SUB_XREAD_STRING_L=qbs_new(0,0); -int32 *_SUB_XREAD_LONG_I=NULL; -if(_SUB_XREAD_LONG_I==NULL){ -_SUB_XREAD_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_XREAD_LONG_I=0; +qbs*oldstr3378=NULL; +if(_SUB_XPRINT_STRING_CA->tmp||_SUB_XPRINT_STRING_CA->fixed||_SUB_XPRINT_STRING_CA->readonly){ +oldstr3378=_SUB_XPRINT_STRING_CA; +if (oldstr3378->cmem_descriptor){ +_SUB_XPRINT_STRING_CA=qbs_new_cmem(oldstr3378->len,0); +}else{ +_SUB_XPRINT_STRING_CA=qbs_new(oldstr3378->len,0); } -qbs *_SUB_XREAD_STRING_A3=NULL; -if (!_SUB_XREAD_STRING_A3)_SUB_XREAD_STRING_A3=qbs_new(0,0); -int32 *_SUB_XREAD_LONG_B=NULL; -if(_SUB_XREAD_LONG_B==NULL){ -_SUB_XREAD_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_XREAD_LONG_B=0; +memcpy(_SUB_XPRINT_STRING_CA->chr,oldstr3378->chr,oldstr3378->len); } -int64 fornext_value3261; -int64 fornext_finalvalue3261; -int64 fornext_step3261; -uint8 fornext_step_negative3261; -qbs *_SUB_XREAD_STRING_A2=NULL; -if (!_SUB_XREAD_STRING_A2)_SUB_XREAD_STRING_A2=qbs_new(0,0); -qbs *_SUB_XREAD_STRING_E=NULL; -if (!_SUB_XREAD_STRING_E)_SUB_XREAD_STRING_E=qbs_new(0,0); -int32 *_SUB_XREAD_LONG_T=NULL; -if(_SUB_XREAD_LONG_T==NULL){ -_SUB_XREAD_LONG_T=(int32*)mem_static_malloc(4); -*_SUB_XREAD_LONG_T=0; +qbs *_SUB_XPRINT_STRING_U=NULL; +if (!_SUB_XPRINT_STRING_U)_SUB_XPRINT_STRING_U=qbs_new(0,0); +int32 pass3379; +qbs *_SUB_XPRINT_STRING_L=NULL; +if (!_SUB_XPRINT_STRING_L)_SUB_XPRINT_STRING_L=qbs_new(0,0); +int32 *_SUB_XPRINT_LONG_LP=NULL; +if(_SUB_XPRINT_LONG_LP==NULL){ +_SUB_XPRINT_LONG_LP=(int32*)mem_static_malloc(4); +*_SUB_XPRINT_LONG_LP=0; } -int32 pass3262; -int32 pass3264; -int32 pass3265; -int32 pass3266; -int32 pass3267; -byte_element_struct *byte_element_3269=NULL; -if (!byte_element_3269){ -if ((mem_static_pointer+=12)tmp||_SUB_XWRITE_STRING_CA->fixed||_SUB_XWRITE_STRING_CA->readonly){ -oldstr3270=_SUB_XWRITE_STRING_CA; -if (oldstr3270->cmem_descriptor){ -_SUB_XWRITE_STRING_CA=qbs_new_cmem(oldstr3270->len,0); +qbs*oldstr3441=NULL; +if(_SUB_XREAD_STRING_CA->tmp||_SUB_XREAD_STRING_CA->fixed||_SUB_XREAD_STRING_CA->readonly){ +oldstr3441=_SUB_XREAD_STRING_CA; +if (oldstr3441->cmem_descriptor){ +_SUB_XREAD_STRING_CA=qbs_new_cmem(oldstr3441->len,0); }else{ -_SUB_XWRITE_STRING_CA=qbs_new(oldstr3270->len,0); +_SUB_XREAD_STRING_CA=qbs_new(oldstr3441->len,0); } -memcpy(_SUB_XWRITE_STRING_CA->chr,oldstr3270->chr,oldstr3270->len); +memcpy(_SUB_XREAD_STRING_CA->chr,oldstr3441->chr,oldstr3441->len); } -qbs *_SUB_XWRITE_STRING_L=NULL; -if (!_SUB_XWRITE_STRING_L)_SUB_XWRITE_STRING_L=qbs_new(0,0); -qbs *_SUB_XWRITE_STRING_U=NULL; -if (!_SUB_XWRITE_STRING_U)_SUB_XWRITE_STRING_U=qbs_new(0,0); -int32 pass3271; -int32 *_SUB_XWRITE_LONG_B=NULL; -if(_SUB_XWRITE_LONG_B==NULL){ -_SUB_XWRITE_LONG_B=(int32*)mem_static_malloc(4); -*_SUB_XWRITE_LONG_B=0; +qbs *_SUB_XREAD_STRING_L=NULL; +if (!_SUB_XREAD_STRING_L)_SUB_XREAD_STRING_L=qbs_new(0,0); +int32 *_SUB_XREAD_LONG_I=NULL; +if(_SUB_XREAD_LONG_I==NULL){ +_SUB_XREAD_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_XREAD_LONG_I=0; } -qbs *_SUB_XWRITE_STRING_E=NULL; -if (!_SUB_XWRITE_STRING_E)_SUB_XWRITE_STRING_E=qbs_new(0,0); -int32 *_SUB_XWRITE_LONG_LAST=NULL; -if(_SUB_XWRITE_LONG_LAST==NULL){ -_SUB_XWRITE_LONG_LAST=(int32*)mem_static_malloc(4); -*_SUB_XWRITE_LONG_LAST=0; +qbs *_SUB_XREAD_STRING_A3=NULL; +if (!_SUB_XREAD_STRING_A3)_SUB_XREAD_STRING_A3=qbs_new(0,0); +int32 *_SUB_XREAD_LONG_B=NULL; +if(_SUB_XREAD_LONG_B==NULL){ +_SUB_XREAD_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_XREAD_LONG_B=0; } -int32 *_SUB_XWRITE_LONG_I=NULL; -if(_SUB_XWRITE_LONG_I==NULL){ -_SUB_XWRITE_LONG_I=(int32*)mem_static_malloc(4); -*_SUB_XWRITE_LONG_I=0; +int64 fornext_value3443; +int64 fornext_finalvalue3443; +int64 fornext_step3443; +uint8 fornext_step_negative3443; +qbs *_SUB_XREAD_STRING_A2=NULL; +if (!_SUB_XREAD_STRING_A2)_SUB_XREAD_STRING_A2=qbs_new(0,0); +qbs *_SUB_XREAD_STRING_E=NULL; +if (!_SUB_XREAD_STRING_E)_SUB_XREAD_STRING_E=qbs_new(0,0); +int32 *_SUB_XREAD_LONG_T=NULL; +if(_SUB_XREAD_LONG_T==NULL){ +_SUB_XREAD_LONG_T=(int32*)mem_static_malloc(4); +*_SUB_XREAD_LONG_T=0; } -int64 fornext_value3274; -int64 fornext_finalvalue3274; -int64 fornext_step3274; -uint8 fornext_step_negative3274; -qbs *_SUB_XWRITE_STRING_A2=NULL; -if (!_SUB_XWRITE_STRING_A2)_SUB_XWRITE_STRING_A2=qbs_new(0,0); -int32 *_SUB_XWRITE_LONG_NEWLINE=NULL; -if(_SUB_XWRITE_LONG_NEWLINE==NULL){ -_SUB_XWRITE_LONG_NEWLINE=(int32*)mem_static_malloc(4); -*_SUB_XWRITE_LONG_NEWLINE=0; -} -qbs *_SUB_XWRITE_STRING_EBAK=NULL; -if (!_SUB_XWRITE_STRING_EBAK)_SUB_XWRITE_STRING_EBAK=qbs_new(0,0); -int32 *_SUB_XWRITE_LONG_REEVALED=NULL; -if(_SUB_XWRITE_LONG_REEVALED==NULL){ -_SUB_XWRITE_LONG_REEVALED=(int32*)mem_static_malloc(4); -*_SUB_XWRITE_LONG_REEVALED=0; -} -int32 *_SUB_XWRITE_LONG_TYP=NULL; -if(_SUB_XWRITE_LONG_TYP==NULL){ -_SUB_XWRITE_LONG_TYP=(int32*)mem_static_malloc(4); -*_SUB_XWRITE_LONG_TYP=0; -} -int32 pass3275; -byte_element_struct *byte_element_3280=NULL; -if (!byte_element_3280){ -if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATECONST_STRING_A2->fixed||_FUNC_EVALUATECONST_STRING_A2->readonly){ -oldstr3281=_FUNC_EVALUATECONST_STRING_A2; -if (oldstr3281->cmem_descriptor){ -_FUNC_EVALUATECONST_STRING_A2=qbs_new_cmem(oldstr3281->len,0); +qbs*oldstr3452=NULL; +if(_SUB_XWRITE_STRING_CA->tmp||_SUB_XWRITE_STRING_CA->fixed||_SUB_XWRITE_STRING_CA->readonly){ +oldstr3452=_SUB_XWRITE_STRING_CA; +if (oldstr3452->cmem_descriptor){ +_SUB_XWRITE_STRING_CA=qbs_new_cmem(oldstr3452->len,0); }else{ -_FUNC_EVALUATECONST_STRING_A2=qbs_new(oldstr3281->len,0); +_SUB_XWRITE_STRING_CA=qbs_new(oldstr3452->len,0); } -memcpy(_FUNC_EVALUATECONST_STRING_A2->chr,oldstr3281->chr,oldstr3281->len); +memcpy(_SUB_XWRITE_STRING_CA->chr,oldstr3452->chr,oldstr3452->len); } -qbs *_FUNC_EVALUATECONST_STRING_A=NULL; -if (!_FUNC_EVALUATECONST_STRING_A)_FUNC_EVALUATECONST_STRING_A=qbs_new(0,0); -ptrszint *_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK=NULL; -if (!_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK){ -_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]=0; -_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]=2147483647; -_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]=0; -_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[6]=0; -_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]=(ptrszint)¬hingstring; +qbs *_SUB_XWRITE_STRING_L=NULL; +if (!_SUB_XWRITE_STRING_L)_SUB_XWRITE_STRING_L=qbs_new(0,0); +qbs *_SUB_XWRITE_STRING_U=NULL; +if (!_SUB_XWRITE_STRING_U)_SUB_XWRITE_STRING_U=qbs_new(0,0); +int32 pass3453; +int32 *_SUB_XWRITE_LONG_B=NULL; +if(_SUB_XWRITE_LONG_B==NULL){ +_SUB_XWRITE_LONG_B=(int32*)mem_static_malloc(4); +*_SUB_XWRITE_LONG_B=0; } -ptrszint *_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS=NULL; -if (!_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS){ -_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]=0; -_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]=2147483647; -_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]=0; -_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[6]=0; -_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]=(ptrszint)nothingvalue; +qbs *_SUB_XWRITE_STRING_E=NULL; +if (!_SUB_XWRITE_STRING_E)_SUB_XWRITE_STRING_E=qbs_new(0,0); +int32 *_SUB_XWRITE_LONG_LAST=NULL; +if(_SUB_XWRITE_LONG_LAST==NULL){ +_SUB_XWRITE_LONG_LAST=(int32*)mem_static_malloc(4); +*_SUB_XWRITE_LONG_LAST=0; } -ptrszint *_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE=NULL; -if (!_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE){ -_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]=0; -_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]=2147483647; -_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]=0; -_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[6]=0; -_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]=(ptrszint)nothingvalue; +int32 *_SUB_XWRITE_LONG_I=NULL; +if(_SUB_XWRITE_LONG_I==NULL){ +_SUB_XWRITE_LONG_I=(int32*)mem_static_malloc(4); +*_SUB_XWRITE_LONG_I=0; } -int32 *_FUNC_EVALUATECONST_LONG_N=NULL; -if(_FUNC_EVALUATECONST_LONG_N==NULL){ -_FUNC_EVALUATECONST_LONG_N=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATECONST_LONG_N=0; +int64 fornext_value3456; +int64 fornext_finalvalue3456; +int64 fornext_step3456; +uint8 fornext_step_negative3456; +qbs *_SUB_XWRITE_STRING_A2=NULL; +if (!_SUB_XWRITE_STRING_A2)_SUB_XWRITE_STRING_A2=qbs_new(0,0); +int32 *_SUB_XWRITE_LONG_NEWLINE=NULL; +if(_SUB_XWRITE_LONG_NEWLINE==NULL){ +_SUB_XWRITE_LONG_NEWLINE=(int32*)mem_static_malloc(4); +*_SUB_XWRITE_LONG_NEWLINE=0; } -int32 *_FUNC_EVALUATECONST_LONG_I=NULL; -if(_FUNC_EVALUATECONST_LONG_I==NULL){ -_FUNC_EVALUATECONST_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATECONST_LONG_I=0; +qbs *_SUB_XWRITE_STRING_EBAK=NULL; +if (!_SUB_XWRITE_STRING_EBAK)_SUB_XWRITE_STRING_EBAK=qbs_new(0,0); +int32 *_SUB_XWRITE_LONG_REEVALED=NULL; +if(_SUB_XWRITE_LONG_REEVALED==NULL){ +_SUB_XWRITE_LONG_REEVALED=(int32*)mem_static_malloc(4); +*_SUB_XWRITE_LONG_REEVALED=0; } -int64 fornext_value3284; -int64 fornext_finalvalue3284; -int64 fornext_step3284; -uint8 fornext_step_negative3284; -int32 *_FUNC_EVALUATECONST_LONG_L=NULL; -if(_FUNC_EVALUATECONST_LONG_L==NULL){ -_FUNC_EVALUATECONST_LONG_L=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATECONST_LONG_L=0; +int32 *_SUB_XWRITE_LONG_TYP=NULL; +if(_SUB_XWRITE_LONG_TYP==NULL){ +_SUB_XWRITE_LONG_TYP=(int32*)mem_static_malloc(4); +*_SUB_XWRITE_LONG_TYP=0; } -int32 *_FUNC_EVALUATECONST_LONG_B=NULL; -if(_FUNC_EVALUATECONST_LONG_B==NULL){ -_FUNC_EVALUATECONST_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATECONST_LONG_B=0; -} -int64 fornext_value3286; -int64 fornext_finalvalue3286; -int64 fornext_step3286; -uint8 fornext_step_negative3286; -qbs *_FUNC_EVALUATECONST_STRING_E=NULL; -if (!_FUNC_EVALUATECONST_STRING_E)_FUNC_EVALUATECONST_STRING_E=qbs_new(0,0); -int64 fornext_value3288; -int64 fornext_finalvalue3288; -int64 fornext_step3288; -uint8 fornext_step_negative3288; -byte_element_struct *byte_element_3289=NULL; -if (!byte_element_3289){ -if ((mem_static_pointer+=12)tmp||_FUNC_ARRAYREFERENCE_STRING_INDEXES->fixed||_FUNC_ARRAYREFERENCE_STRING_INDEXES->readonly){ -oldstr2144=_FUNC_ARRAYREFERENCE_STRING_INDEXES; -if (oldstr2144->cmem_descriptor){ -_FUNC_ARRAYREFERENCE_STRING_INDEXES=qbs_new_cmem(oldstr2144->len,0); +oldstr2297=_FUNC_ARRAYREFERENCE_STRING_INDEXES; +if (oldstr2297->cmem_descriptor){ +_FUNC_ARRAYREFERENCE_STRING_INDEXES=qbs_new_cmem(oldstr2297->len,0); }else{ -_FUNC_ARRAYREFERENCE_STRING_INDEXES=qbs_new(oldstr2144->len,0); +_FUNC_ARRAYREFERENCE_STRING_INDEXES=qbs_new(oldstr2297->len,0); } -memcpy(_FUNC_ARRAYREFERENCE_STRING_INDEXES->chr,oldstr2144->chr,oldstr2144->len); +memcpy(_FUNC_ARRAYREFERENCE_STRING_INDEXES->chr,oldstr2297->chr,oldstr2297->len); } qbs *_FUNC_ARRAYREFERENCE_STRING_IDNUMBER=NULL; if (!_FUNC_ARRAYREFERENCE_STRING_IDNUMBER)_FUNC_ARRAYREFERENCE_STRING_IDNUMBER=qbs_new(0,0); void *_FUNC_ARRAYREFERENCE_UDT_ID2=NULL; if(_FUNC_ARRAYREFERENCE_UDT_ID2==NULL){ -_FUNC_ARRAYREFERENCE_UDT_ID2=(void*)mem_static_malloc(2863); -memset(_FUNC_ARRAYREFERENCE_UDT_ID2,0,2863); +_FUNC_ARRAYREFERENCE_UDT_ID2=(void*)mem_static_malloc(2869); +memset(_FUNC_ARRAYREFERENCE_UDT_ID2,0,2869); +*(qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+ 2861) = qbs_new(0,0); } qbs *_FUNC_ARRAYREFERENCE_STRING_A=NULL; if (!_FUNC_ARRAYREFERENCE_STRING_A)_FUNC_ARRAYREFERENCE_STRING_A=qbs_new(0,0); @@ -43,10 +44,10 @@ if(_FUNC_ARRAYREFERENCE_LONG_I==NULL){ _FUNC_ARRAYREFERENCE_LONG_I=(int32*)mem_static_malloc(4); *_FUNC_ARRAYREFERENCE_LONG_I=0; } -int64 fornext_value2146; -int64 fornext_finalvalue2146; -int64 fornext_step2146; -uint8 fornext_step_negative2146; +int64 fornext_value2299; +int64 fornext_finalvalue2299; +int64 fornext_step2299; +uint8 fornext_step_negative2299; int32 *_FUNC_ARRAYREFERENCE_LONG_A=NULL; if(_FUNC_ARRAYREFERENCE_LONG_A==NULL){ _FUNC_ARRAYREFERENCE_LONG_A=(int32*)mem_static_malloc(4); @@ -62,26 +63,27 @@ if(_FUNC_ARRAYREFERENCE_LONG_FIRSTI==NULL){ _FUNC_ARRAYREFERENCE_LONG_FIRSTI=(int32*)mem_static_malloc(4); *_FUNC_ARRAYREFERENCE_LONG_FIRSTI=0; } -int64 fornext_value2148; -int64 fornext_finalvalue2148; -int64 fornext_step2148; -uint8 fornext_step_negative2148; +int64 fornext_value2301; +int64 fornext_finalvalue2301; +int64 fornext_step2301; +uint8 fornext_step_negative2301; qbs *_FUNC_ARRAYREFERENCE_STRING_L=NULL; if (!_FUNC_ARRAYREFERENCE_STRING_L)_FUNC_ARRAYREFERENCE_STRING_L=qbs_new(0,0); qbs *_FUNC_ARRAYREFERENCE_STRING_E=NULL; if (!_FUNC_ARRAYREFERENCE_STRING_E)_FUNC_ARRAYREFERENCE_STRING_E=qbs_new(0,0); -int32 pass2149; -int32 pass2150; -int32 pass2151; +int32 pass2302; +int32 pass2303; +int32 pass2304; int32 *_FUNC_ARRAYREFERENCE_LONG_ARGI=NULL; if(_FUNC_ARRAYREFERENCE_LONG_ARGI==NULL){ _FUNC_ARRAYREFERENCE_LONG_ARGI=(int32*)mem_static_malloc(4); *_FUNC_ARRAYREFERENCE_LONG_ARGI=0; } -int32 pass2152; -int32 pass2153; -int32 pass2154; -byte_element_struct *byte_element_2155=NULL; -if (!byte_element_2155){ -if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATECONST_STRING_A2->fixed||_FUNC_EVALUATECONST_STRING_A2->readonly){ +oldstr3463=_FUNC_EVALUATECONST_STRING_A2; +if (oldstr3463->cmem_descriptor){ +_FUNC_EVALUATECONST_STRING_A2=qbs_new_cmem(oldstr3463->len,0); +}else{ +_FUNC_EVALUATECONST_STRING_A2=qbs_new(oldstr3463->len,0); +} +memcpy(_FUNC_EVALUATECONST_STRING_A2->chr,oldstr3463->chr,oldstr3463->len); +} +qbs *_FUNC_EVALUATECONST_STRING_A=NULL; +if (!_FUNC_EVALUATECONST_STRING_A)_FUNC_EVALUATECONST_STRING_A=qbs_new(0,0); +ptrszint *_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK=NULL; +if (!_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK){ +_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]=0; +_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]=2147483647; +_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]=0; +_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[6]=0; +_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]=(ptrszint)¬hingstring; +} +ptrszint *_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS=NULL; +if (!_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS){ +_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]=0; +_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]=2147483647; +_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]=0; +_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[6]=0; +_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]=(ptrszint)nothingvalue; +} +ptrszint *_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE=NULL; +if (!_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE){ +_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE)[8]=(ptrszint)mem_lock_tmp; +_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]=0; +_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]=2147483647; +_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]=0; +_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[6]=0; +_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]=(ptrszint)nothingvalue; +} +int32 *_FUNC_EVALUATECONST_LONG_N=NULL; +if(_FUNC_EVALUATECONST_LONG_N==NULL){ +_FUNC_EVALUATECONST_LONG_N=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATECONST_LONG_N=0; +} +int32 *_FUNC_EVALUATECONST_LONG_I=NULL; +if(_FUNC_EVALUATECONST_LONG_I==NULL){ +_FUNC_EVALUATECONST_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATECONST_LONG_I=0; +} +int64 fornext_value3466; +int64 fornext_finalvalue3466; +int64 fornext_step3466; +uint8 fornext_step_negative3466; +int32 *_FUNC_EVALUATECONST_LONG_L=NULL; +if(_FUNC_EVALUATECONST_LONG_L==NULL){ +_FUNC_EVALUATECONST_LONG_L=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATECONST_LONG_L=0; +} +int32 *_FUNC_EVALUATECONST_LONG_B=NULL; +if(_FUNC_EVALUATECONST_LONG_B==NULL){ +_FUNC_EVALUATECONST_LONG_B=(int32*)mem_static_malloc(4); +*_FUNC_EVALUATECONST_LONG_B=0; +} +int64 fornext_value3468; +int64 fornext_finalvalue3468; +int64 fornext_step3468; +uint8 fornext_step_negative3468; +qbs *_FUNC_EVALUATECONST_STRING_E=NULL; +if (!_FUNC_EVALUATECONST_STRING_E)_FUNC_EVALUATECONST_STRING_E=qbs_new(0,0); +int64 fornext_value3470; +int64 fornext_finalvalue3470; +int64 fornext_step3470; +uint8 fornext_step_negative3470; +byte_element_struct *byte_element_3471=NULL; +if (!byte_element_3471){ +if ((mem_static_pointer+=12)tmp||_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->fixed||_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->readonly){ -oldstr3309=_FUNC_SYMBOL2FULLTYPENAME_STRING_S2; -if (oldstr3309->cmem_descriptor){ -_FUNC_SYMBOL2FULLTYPENAME_STRING_S2=qbs_new_cmem(oldstr3309->len,0); -}else{ -_FUNC_SYMBOL2FULLTYPENAME_STRING_S2=qbs_new(oldstr3309->len,0); +qbs *_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME=NULL; +if (!_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME)_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME=qbs_new(0,0); +int32 *_FUNC_ID2SHORTTYPENAME_LONG_T=NULL; +if(_FUNC_ID2SHORTTYPENAME_LONG_T==NULL){ +_FUNC_ID2SHORTTYPENAME_LONG_T=(int32*)mem_static_malloc(4); +*_FUNC_ID2SHORTTYPENAME_LONG_T=0; } -memcpy(_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->chr,oldstr3309->chr,oldstr3309->len); +int32 *_FUNC_ID2SHORTTYPENAME_LONG_SIZE=NULL; +if(_FUNC_ID2SHORTTYPENAME_LONG_SIZE==NULL){ +_FUNC_ID2SHORTTYPENAME_LONG_SIZE=(int32*)mem_static_malloc(4); +*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=0; } -qbs *_FUNC_SYMBOL2FULLTYPENAME_STRING_S=NULL; -if (!_FUNC_SYMBOL2FULLTYPENAME_STRING_S)_FUNC_SYMBOL2FULLTYPENAME_STRING_S=qbs_new(0,0); -int32 *_FUNC_SYMBOL2FULLTYPENAME_LONG_U=NULL; -if(_FUNC_SYMBOL2FULLTYPENAME_LONG_U==NULL){ -_FUNC_SYMBOL2FULLTYPENAME_LONG_U=(int32*)mem_static_malloc(4); -*_FUNC_SYMBOL2FULLTYPENAME_LONG_U=0; -} -qbs *_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP=NULL; -if (!_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP)_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP=qbs_new(0,0); -byte_element_struct *byte_element_3310=NULL; -if (!byte_element_3310){ -if ((mem_static_pointer+=12)tmp||_SUB_LINEINPUT3LOAD_STRING_F->fixed||_SUB_LINEINPUT3LOAD_STRING_F->readonly){ -oldstr3318=_SUB_LINEINPUT3LOAD_STRING_F; -if (oldstr3318->cmem_descriptor){ -_SUB_LINEINPUT3LOAD_STRING_F=qbs_new_cmem(oldstr3318->len,0); +qbs *_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME=NULL; +if (!_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME)_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME=qbs_new(0,0); +qbs*oldstr3491=NULL; +if(_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->tmp||_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->fixed||_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->readonly){ +oldstr3491=_FUNC_SYMBOL2FULLTYPENAME_STRING_S2; +if (oldstr3491->cmem_descriptor){ +_FUNC_SYMBOL2FULLTYPENAME_STRING_S2=qbs_new_cmem(oldstr3491->len,0); }else{ -_SUB_LINEINPUT3LOAD_STRING_F=qbs_new(oldstr3318->len,0); +_FUNC_SYMBOL2FULLTYPENAME_STRING_S2=qbs_new(oldstr3491->len,0); } -memcpy(_SUB_LINEINPUT3LOAD_STRING_F->chr,oldstr3318->chr,oldstr3318->len); +memcpy(_FUNC_SYMBOL2FULLTYPENAME_STRING_S2->chr,oldstr3491->chr,oldstr3491->len); } -int32 *_SUB_LINEINPUT3LOAD_LONG_L=NULL; -if(_SUB_LINEINPUT3LOAD_LONG_L==NULL){ -_SUB_LINEINPUT3LOAD_LONG_L=(int32*)mem_static_malloc(4); -*_SUB_LINEINPUT3LOAD_LONG_L=0; +qbs *_FUNC_SYMBOL2FULLTYPENAME_STRING_S=NULL; +if (!_FUNC_SYMBOL2FULLTYPENAME_STRING_S)_FUNC_SYMBOL2FULLTYPENAME_STRING_S=qbs_new(0,0); +int32 *_FUNC_SYMBOL2FULLTYPENAME_LONG_U=NULL; +if(_FUNC_SYMBOL2FULLTYPENAME_LONG_U==NULL){ +_FUNC_SYMBOL2FULLTYPENAME_LONG_U=(int32*)mem_static_malloc(4); +*_FUNC_SYMBOL2FULLTYPENAME_LONG_U=0; } -byte_element_struct *byte_element_3319=NULL; -if (!byte_element_3319){ -if ((mem_static_pointer+=12)tmp||_SUB_LINEINPUT3LOAD_STRING_F->fixed||_SUB_LINEINPUT3LOAD_STRING_F->readonly){ +oldstr3500=_SUB_LINEINPUT3LOAD_STRING_F; +if (oldstr3500->cmem_descriptor){ +_SUB_LINEINPUT3LOAD_STRING_F=qbs_new_cmem(oldstr3500->len,0); +}else{ +_SUB_LINEINPUT3LOAD_STRING_F=qbs_new(oldstr3500->len,0); } -byte_element_struct *byte_element_3321=NULL; -if (!byte_element_3321){ -if ((mem_static_pointer+=12)chr,oldstr3500->chr,oldstr3500->len); } -int32 *_FUNC_LINEINPUT3_LONG_C13=NULL; -if(_FUNC_LINEINPUT3_LONG_C13==NULL){ -_FUNC_LINEINPUT3_LONG_C13=(int32*)mem_static_malloc(4); -*_FUNC_LINEINPUT3_LONG_C13=0; +int32 *_SUB_LINEINPUT3LOAD_LONG_L=NULL; +if(_SUB_LINEINPUT3LOAD_LONG_L==NULL){ +_SUB_LINEINPUT3LOAD_LONG_L=(int32*)mem_static_malloc(4); +*_SUB_LINEINPUT3LOAD_LONG_L=0; } -int32 *_FUNC_LINEINPUT3_LONG_C10=NULL; -if(_FUNC_LINEINPUT3_LONG_C10==NULL){ -_FUNC_LINEINPUT3_LONG_C10=(int32*)mem_static_malloc(4); -*_FUNC_LINEINPUT3_LONG_C10=0; +byte_element_struct *byte_element_3501=NULL; +if (!byte_element_3501){ +if ((mem_static_pointer+=12)tmp||_FUNC_GETFILEPATH_STRING_F->fixed||_FUNC_GETFILEPATH_STRING_F->readonly){ -oldstr3322=_FUNC_GETFILEPATH_STRING_F; -if (oldstr3322->cmem_descriptor){ -_FUNC_GETFILEPATH_STRING_F=qbs_new_cmem(oldstr3322->len,0); -}else{ -_FUNC_GETFILEPATH_STRING_F=qbs_new(oldstr3322->len,0); +qbs *_FUNC_LINEINPUT3_STRING_LINEINPUT3=NULL; +if (!_FUNC_LINEINPUT3_STRING_LINEINPUT3)_FUNC_LINEINPUT3_STRING_LINEINPUT3=qbs_new(0,0); +int32 *_FUNC_LINEINPUT3_LONG_L=NULL; +if(_FUNC_LINEINPUT3_LONG_L==NULL){ +_FUNC_LINEINPUT3_LONG_L=(int32*)mem_static_malloc(4); +*_FUNC_LINEINPUT3_LONG_L=0; } -memcpy(_FUNC_GETFILEPATH_STRING_F->chr,oldstr3322->chr,oldstr3322->len); +byte_element_struct *byte_element_3503=NULL; +if (!byte_element_3503){ +if ((mem_static_pointer+=12)tmp||_FUNC_ELEUCASE_STRING_A->fixed||_FUNC_ELEUCASE_STRING_A->readonly){ -oldstr3326=_FUNC_ELEUCASE_STRING_A; -if (oldstr3326->cmem_descriptor){ -_FUNC_ELEUCASE_STRING_A=qbs_new_cmem(oldstr3326->len,0); +qbs *_FUNC_GETFILEPATH_STRING_GETFILEPATH=NULL; +if (!_FUNC_GETFILEPATH_STRING_GETFILEPATH)_FUNC_GETFILEPATH_STRING_GETFILEPATH=qbs_new(0,0); +qbs*oldstr3504=NULL; +if(_FUNC_GETFILEPATH_STRING_F->tmp||_FUNC_GETFILEPATH_STRING_F->fixed||_FUNC_GETFILEPATH_STRING_F->readonly){ +oldstr3504=_FUNC_GETFILEPATH_STRING_F; +if (oldstr3504->cmem_descriptor){ +_FUNC_GETFILEPATH_STRING_F=qbs_new_cmem(oldstr3504->len,0); }else{ -_FUNC_ELEUCASE_STRING_A=qbs_new(oldstr3326->len,0); +_FUNC_GETFILEPATH_STRING_F=qbs_new(oldstr3504->len,0); } -memcpy(_FUNC_ELEUCASE_STRING_A->chr,oldstr3326->chr,oldstr3326->len); +memcpy(_FUNC_GETFILEPATH_STRING_F->chr,oldstr3504->chr,oldstr3504->len); } -byte_element_struct *byte_element_3327=NULL; -if (!byte_element_3327){ -if ((mem_static_pointer+=12)tmp||_FUNC_ELEUCASE_STRING_A->fixed||_FUNC_ELEUCASE_STRING_A->readonly){ +oldstr3508=_FUNC_ELEUCASE_STRING_A; +if (oldstr3508->cmem_descriptor){ +_FUNC_ELEUCASE_STRING_A=qbs_new_cmem(oldstr3508->len,0); +}else{ +_FUNC_ELEUCASE_STRING_A=qbs_new(oldstr3508->len,0); +} +memcpy(_FUNC_ELEUCASE_STRING_A->chr,oldstr3508->chr,oldstr3508->len); +} +byte_element_struct *byte_element_3509=NULL; +if (!byte_element_3509){ +if ((mem_static_pointer+=12)tmp||_SUB_BUILD_STRING_PATH->fixed||_SUB_BUILD_STRING_PATH->readonly){ -oldstr3333=_SUB_BUILD_STRING_PATH; -if (oldstr3333->cmem_descriptor){ -_SUB_BUILD_STRING_PATH=qbs_new_cmem(oldstr3333->len,0); -}else{ -_SUB_BUILD_STRING_PATH=qbs_new(oldstr3333->len,0); -} -memcpy(_SUB_BUILD_STRING_PATH->chr,oldstr3333->chr,oldstr3333->len); -} -qbs *_SUB_BUILD_STRING_PREVIOUS_DIR=NULL; -if (!_SUB_BUILD_STRING_PREVIOUS_DIR)_SUB_BUILD_STRING_PREVIOUS_DIR=qbs_new(0,0); -int32 *_SUB_BUILD_LONG_DEPTH=NULL; -if(_SUB_BUILD_LONG_DEPTH==NULL){ -_SUB_BUILD_LONG_DEPTH=(int32*)mem_static_malloc(4); -*_SUB_BUILD_LONG_DEPTH=0; -} -int32 *_SUB_BUILD_LONG_X=NULL; -if(_SUB_BUILD_LONG_X==NULL){ -_SUB_BUILD_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_BUILD_LONG_X=0; -} -int64 fornext_value3335; -int64 fornext_finalvalue3335; -int64 fornext_step3335; -uint8 fornext_step_negative3335; -byte_element_struct *byte_element_3336=NULL; -if (!byte_element_3336){ -if ((mem_static_pointer+=12)tmp||_SUB_ASSIGN_STRING_A->fixed||_SUB_ASSIGN_STRING_A->readonly){ -oldstr2156=_SUB_ASSIGN_STRING_A; -if (oldstr2156->cmem_descriptor){ -_SUB_ASSIGN_STRING_A=qbs_new_cmem(oldstr2156->len,0); +oldstr2310=_SUB_ASSIGN_STRING_A; +if (oldstr2310->cmem_descriptor){ +_SUB_ASSIGN_STRING_A=qbs_new_cmem(oldstr2310->len,0); }else{ -_SUB_ASSIGN_STRING_A=qbs_new(oldstr2156->len,0); +_SUB_ASSIGN_STRING_A=qbs_new(oldstr2310->len,0); } -memcpy(_SUB_ASSIGN_STRING_A->chr,oldstr2156->chr,oldstr2156->len); +memcpy(_SUB_ASSIGN_STRING_A->chr,oldstr2310->chr,oldstr2310->len); } int32 *_SUB_ASSIGN_LONG_I=NULL; if(_SUB_ASSIGN_LONG_I==NULL){ _SUB_ASSIGN_LONG_I=(int32*)mem_static_malloc(4); *_SUB_ASSIGN_LONG_I=0; } -int64 fornext_value2158; -int64 fornext_finalvalue2158; -int64 fornext_step2158; -uint8 fornext_step_negative2158; +int64 fornext_value2312; +int64 fornext_finalvalue2312; +int64 fornext_step2312; +uint8 fornext_step_negative2312; int32 *_SUB_ASSIGN_LONG_C=NULL; if(_SUB_ASSIGN_LONG_C==NULL){ _SUB_ASSIGN_LONG_C=(int32*)mem_static_malloc(4); @@ -29,8 +29,8 @@ _SUB_ASSIGN_LONG_B=(int32*)mem_static_malloc(4); } qbs *_SUB_ASSIGN_STRING_A2=NULL; if (!_SUB_ASSIGN_STRING_A2)_SUB_ASSIGN_STRING_A2=qbs_new(0,0); -int32 pass2159; -int32 pass2160; +int32 pass2313; +int32 pass2314; qbs *_SUB_ASSIGN_STRING_L=NULL; if (!_SUB_ASSIGN_STRING_L)_SUB_ASSIGN_STRING_L=qbs_new(0,0); int32 *_SUB_ASSIGN_LONG_TRY=NULL; @@ -43,5 +43,5 @@ if(_SUB_ASSIGN_LONG_TYP==NULL){ _SUB_ASSIGN_LONG_TYP=(int32*)mem_static_malloc(4); *_SUB_ASSIGN_LONG_TYP=0; } -int32 pass2162; -int32 pass2163; +int32 pass2316; +int32 pass2317; diff --git a/internal/source/data70.txt b/internal/source/data70.txt index 1ae7e08d4..4e3e5685b 100644 --- a/internal/source/data70.txt +++ b/internal/source/data70.txt @@ -1,46 +1,52 @@ -qbs *_FUNC_GDB_FIX_STRING_GDB_FIX=NULL; -if (!_FUNC_GDB_FIX_STRING_GDB_FIX)_FUNC_GDB_FIX_STRING_GDB_FIX=qbs_new(0,0); -qbs*oldstr3342=NULL; -if(_FUNC_GDB_FIX_STRING_G_COMMAND->tmp||_FUNC_GDB_FIX_STRING_G_COMMAND->fixed||_FUNC_GDB_FIX_STRING_G_COMMAND->readonly){ -oldstr3342=_FUNC_GDB_FIX_STRING_G_COMMAND; -if (oldstr3342->cmem_descriptor){ -_FUNC_GDB_FIX_STRING_G_COMMAND=qbs_new_cmem(oldstr3342->len,0); +qbs*oldstr3515=NULL; +if(_SUB_BUILD_STRING_PATH->tmp||_SUB_BUILD_STRING_PATH->fixed||_SUB_BUILD_STRING_PATH->readonly){ +oldstr3515=_SUB_BUILD_STRING_PATH; +if (oldstr3515->cmem_descriptor){ +_SUB_BUILD_STRING_PATH=qbs_new_cmem(oldstr3515->len,0); }else{ -_FUNC_GDB_FIX_STRING_G_COMMAND=qbs_new(oldstr3342->len,0); +_SUB_BUILD_STRING_PATH=qbs_new(oldstr3515->len,0); } -memcpy(_FUNC_GDB_FIX_STRING_G_COMMAND->chr,oldstr3342->chr,oldstr3342->len); +memcpy(_SUB_BUILD_STRING_PATH->chr,oldstr3515->chr,oldstr3515->len); } -qbs *_FUNC_GDB_FIX_STRING_C=NULL; -if (!_FUNC_GDB_FIX_STRING_C)_FUNC_GDB_FIX_STRING_C=qbs_new(0,0); -byte_element_struct *byte_element_3343=NULL; -if (!byte_element_3343){ -if ((mem_static_pointer+=12)tmp||_SUB_PATH_SLASH_CORRECT_STRING_A->fixed||_SUB_PATH_SLASH_CORRECT_STRING_A->readonly){ -oldstr3349=_SUB_PATH_SLASH_CORRECT_STRING_A; -if (oldstr3349->cmem_descriptor){ -_SUB_PATH_SLASH_CORRECT_STRING_A=qbs_new_cmem(oldstr3349->len,0); +qbs *_FUNC_GDB_FIX_STRING_GDB_FIX=NULL; +if (!_FUNC_GDB_FIX_STRING_GDB_FIX)_FUNC_GDB_FIX_STRING_GDB_FIX=qbs_new(0,0); +qbs*oldstr3524=NULL; +if(_FUNC_GDB_FIX_STRING_G_COMMAND->tmp||_FUNC_GDB_FIX_STRING_G_COMMAND->fixed||_FUNC_GDB_FIX_STRING_G_COMMAND->readonly){ +oldstr3524=_FUNC_GDB_FIX_STRING_G_COMMAND; +if (oldstr3524->cmem_descriptor){ +_FUNC_GDB_FIX_STRING_G_COMMAND=qbs_new_cmem(oldstr3524->len,0); }else{ -_SUB_PATH_SLASH_CORRECT_STRING_A=qbs_new(oldstr3349->len,0); +_FUNC_GDB_FIX_STRING_G_COMMAND=qbs_new(oldstr3524->len,0); } -memcpy(_SUB_PATH_SLASH_CORRECT_STRING_A->chr,oldstr3349->chr,oldstr3349->len); +memcpy(_FUNC_GDB_FIX_STRING_G_COMMAND->chr,oldstr3524->chr,oldstr3524->len); } -int32 *_SUB_PATH_SLASH_CORRECT_LONG_X=NULL; -if(_SUB_PATH_SLASH_CORRECT_LONG_X==NULL){ -_SUB_PATH_SLASH_CORRECT_LONG_X=(int32*)mem_static_malloc(4); -*_SUB_PATH_SLASH_CORRECT_LONG_X=0; +qbs *_FUNC_GDB_FIX_STRING_C=NULL; +if (!_FUNC_GDB_FIX_STRING_C)_FUNC_GDB_FIX_STRING_C=qbs_new(0,0); +byte_element_struct *byte_element_3525=NULL; +if (!byte_element_3525){ +if ((mem_static_pointer+=12)tmp||_SUB_PATH_SLASH_CORRECT_STRING_A->fixed||_SUB_PATH_SLASH_CORRECT_STRING_A->readonly){ +oldstr3531=_SUB_PATH_SLASH_CORRECT_STRING_A; +if (oldstr3531->cmem_descriptor){ +_SUB_PATH_SLASH_CORRECT_STRING_A=qbs_new_cmem(oldstr3531->len,0); +}else{ +_SUB_PATH_SLASH_CORRECT_STRING_A=qbs_new(oldstr3531->len,0); +} +memcpy(_SUB_PATH_SLASH_CORRECT_STRING_A->chr,oldstr3531->chr,oldstr3531->len); +} +int32 *_SUB_PATH_SLASH_CORRECT_LONG_X=NULL; +if(_SUB_PATH_SLASH_CORRECT_LONG_X==NULL){ +_SUB_PATH_SLASH_CORRECT_LONG_X=(int32*)mem_static_malloc(4); +*_SUB_PATH_SLASH_CORRECT_LONG_X=0; +} +int64 fornext_value3533; +int64 fornext_finalvalue3533; +int64 fornext_step3533; +uint8 fornext_step_negative3533; +byte_element_struct *byte_element_3534=NULL; +if (!byte_element_3534){ +if ((mem_static_pointer+=12)tmp||_FUNC_EVALUATE_EXPRESSION_STRING_E->fixed||_FUNC_EVALUATE_EXPRESSION_STRING_E->readonly){ -oldstr3356=_FUNC_EVALUATE_EXPRESSION_STRING_E; -if (oldstr3356->cmem_descriptor){ -_FUNC_EVALUATE_EXPRESSION_STRING_E=qbs_new_cmem(oldstr3356->len,0); +oldstr3538=_FUNC_EVALUATE_EXPRESSION_STRING_E; +if (oldstr3538->cmem_descriptor){ +_FUNC_EVALUATE_EXPRESSION_STRING_E=qbs_new_cmem(oldstr3538->len,0); }else{ -_FUNC_EVALUATE_EXPRESSION_STRING_E=qbs_new(oldstr3356->len,0); +_FUNC_EVALUATE_EXPRESSION_STRING_E=qbs_new(oldstr3538->len,0); } -memcpy(_FUNC_EVALUATE_EXPRESSION_STRING_E->chr,oldstr3356->chr,oldstr3356->len); +memcpy(_FUNC_EVALUATE_EXPRESSION_STRING_E->chr,oldstr3538->chr,oldstr3538->len); } qbs *_FUNC_EVALUATE_EXPRESSION_STRING_T=NULL; if (!_FUNC_EVALUATE_EXPRESSION_STRING_T)_FUNC_EVALUATE_EXPRESSION_STRING_T=qbs_new(0,0); -int32 *_FUNC_EVALUATE_EXPRESSION_LONG_B=NULL; -if(_FUNC_EVALUATE_EXPRESSION_LONG_B==NULL){ -_FUNC_EVALUATE_EXPRESSION_LONG_B=(int32*)mem_static_malloc(4); -*_FUNC_EVALUATE_EXPRESSION_LONG_B=0; -} -qbs *_FUNC_EVALUATE_EXPRESSION_STRING_VAR=NULL; -if (!_FUNC_EVALUATE_EXPRESSION_STRING_VAR)_FUNC_EVALUATE_EXPRESSION_STRING_VAR=qbs_new(0,0); qbs *_FUNC_EVALUATE_EXPRESSION_STRING_EXP=NULL; if (!_FUNC_EVALUATE_EXPRESSION_STRING_EXP)_FUNC_EVALUATE_EXPRESSION_STRING_EXP=qbs_new(0,0); int32 *_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E=NULL; @@ -38,10 +31,8 @@ _FUNC_EVALUATE_EXPRESSION_LONG_S=(int32*)mem_static_malloc(4); } qbs *_FUNC_EVALUATE_EXPRESSION_STRING_EVAL=NULL; if (!_FUNC_EVALUATE_EXPRESSION_STRING_EVAL)_FUNC_EVALUATE_EXPRESSION_STRING_EVAL=qbs_new(0,0); -qbs *_FUNC_EVALUATE_EXPRESSION_STRING_TEMPPP=NULL; -if (!_FUNC_EVALUATE_EXPRESSION_STRING_TEMPPP)_FUNC_EVALUATE_EXPRESSION_STRING_TEMPPP=qbs_new(0,0); -static qbs *sc_3361=qbs_new(0,0); -byte_element_struct *byte_element_3362=NULL; -if (!byte_element_3362){ -if ((mem_static_pointer+=12)tmp||_SUB_PARSEEXPRESSION_STRING_EXP->fixed||_SUB_PARSEEXPRESSION_STRING_EXP->readonly){ -oldstr3363=_SUB_PARSEEXPRESSION_STRING_EXP; -if (oldstr3363->cmem_descriptor){ -_SUB_PARSEEXPRESSION_STRING_EXP=qbs_new_cmem(oldstr3363->len,0); +oldstr3544=_SUB_PARSEEXPRESSION_STRING_EXP; +if (oldstr3544->cmem_descriptor){ +_SUB_PARSEEXPRESSION_STRING_EXP=qbs_new_cmem(oldstr3544->len,0); }else{ -_SUB_PARSEEXPRESSION_STRING_EXP=qbs_new(oldstr3363->len,0); +_SUB_PARSEEXPRESSION_STRING_EXP=qbs_new(oldstr3544->len,0); } -memcpy(_SUB_PARSEEXPRESSION_STRING_EXP->chr,oldstr3363->chr,oldstr3363->len); +memcpy(_SUB_PARSEEXPRESSION_STRING_EXP->chr,oldstr3544->chr,oldstr3544->len); } ptrszint *_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM=NULL; if (!_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM){ @@ -25,22 +25,22 @@ if(_SUB_PARSEEXPRESSION_LONG_J==NULL){ _SUB_PARSEEXPRESSION_LONG_J=(int32*)mem_static_malloc(4); *_SUB_PARSEEXPRESSION_LONG_J=0; } -int64 fornext_value3365; -int64 fornext_finalvalue3365; -int64 fornext_step3365; -uint8 fornext_step_negative3365; +int64 fornext_value3546; +int64 fornext_finalvalue3546; +int64 fornext_step3546; +uint8 fornext_step_negative3546; int32 *_SUB_PARSEEXPRESSION_LONG_LOWEST=NULL; if(_SUB_PARSEEXPRESSION_LONG_LOWEST==NULL){ _SUB_PARSEEXPRESSION_LONG_LOWEST=(int32*)mem_static_malloc(4); *_SUB_PARSEEXPRESSION_LONG_LOWEST=0; } -byte_element_struct *byte_element_3366=NULL; -if (!byte_element_3366){ -if ((mem_static_pointer+=12)tmp||_FUNC_DWD_STRING_EXP->fixed||_FUNC_DWD_STRING_EXP->readonly){ -oldstr3383=_FUNC_DWD_STRING_EXP; -if (oldstr3383->cmem_descriptor){ -_FUNC_DWD_STRING_EXP=qbs_new_cmem(oldstr3383->len,0); +oldstr3575=_FUNC_DWD_STRING_EXP; +if (oldstr3575->cmem_descriptor){ +_FUNC_DWD_STRING_EXP=qbs_new_cmem(oldstr3575->len,0); }else{ -_FUNC_DWD_STRING_EXP=qbs_new(oldstr3383->len,0); +_FUNC_DWD_STRING_EXP=qbs_new(oldstr3575->len,0); } -memcpy(_FUNC_DWD_STRING_EXP->chr,oldstr3383->chr,oldstr3383->len); +memcpy(_FUNC_DWD_STRING_EXP->chr,oldstr3575->chr,oldstr3575->len); } qbs *_FUNC_DWD_STRING_T=NULL; if (!_FUNC_DWD_STRING_T)_FUNC_DWD_STRING_T=qbs_new(0,0); diff --git a/internal/source/data78.txt b/internal/source/data78.txt index 48778f574..f24287ae6 100644 --- a/internal/source/data78.txt +++ b/internal/source/data78.txt @@ -1,32 +1,32 @@ -qbs*oldstr3389=NULL; +qbs*oldstr3581=NULL; if(_SUB_PREPARSE_STRING_E->tmp||_SUB_PREPARSE_STRING_E->fixed||_SUB_PREPARSE_STRING_E->readonly){ -oldstr3389=_SUB_PREPARSE_STRING_E; -if (oldstr3389->cmem_descriptor){ -_SUB_PREPARSE_STRING_E=qbs_new_cmem(oldstr3389->len,0); +oldstr3581=_SUB_PREPARSE_STRING_E; +if (oldstr3581->cmem_descriptor){ +_SUB_PREPARSE_STRING_E=qbs_new_cmem(oldstr3581->len,0); }else{ -_SUB_PREPARSE_STRING_E=qbs_new(oldstr3389->len,0); +_SUB_PREPARSE_STRING_E=qbs_new(oldstr3581->len,0); } -memcpy(_SUB_PREPARSE_STRING_E->chr,oldstr3389->chr,oldstr3389->len); +memcpy(_SUB_PREPARSE_STRING_E->chr,oldstr3581->chr,oldstr3581->len); } long double *_SUB_PREPARSE_FLOAT_F=NULL; if(_SUB_PREPARSE_FLOAT_F==NULL){ _SUB_PREPARSE_FLOAT_F=(long double*)mem_static_malloc(32); *_SUB_PREPARSE_FLOAT_F=0; } -qbs *_SUB_PREPARSE_STRING_T=NULL; -if (!_SUB_PREPARSE_STRING_T)_SUB_PREPARSE_STRING_T=qbs_new(0,0); int32 *_SUB_PREPARSE_LONG_I=NULL; if(_SUB_PREPARSE_LONG_I==NULL){ _SUB_PREPARSE_LONG_I=(int32*)mem_static_malloc(4); *_SUB_PREPARSE_LONG_I=0; } -int64 fornext_value3391; -int64 fornext_finalvalue3391; -int64 fornext_step3391; -uint8 fornext_step_negative3391; -byte_element_struct *byte_element_3392=NULL; -if (!byte_element_3392){ -if ((mem_static_pointer+=12)tmp||_SUB_VERIFYSTRING_STRING_T->fixed||_SUB_VERIFYSTRING_STRING_T->readonly){ -oldstr3426=_SUB_VERIFYSTRING_STRING_T; -if (oldstr3426->cmem_descriptor){ -_SUB_VERIFYSTRING_STRING_T=qbs_new_cmem(oldstr3426->len,0); +oldstr3636=_SUB_VERIFYSTRING_STRING_T; +if (oldstr3636->cmem_descriptor){ +_SUB_VERIFYSTRING_STRING_T=qbs_new_cmem(oldstr3636->len,0); }else{ -_SUB_VERIFYSTRING_STRING_T=qbs_new(oldstr3426->len,0); +_SUB_VERIFYSTRING_STRING_T=qbs_new(oldstr3636->len,0); } -memcpy(_SUB_VERIFYSTRING_STRING_T->chr,oldstr3426->chr,oldstr3426->len); +memcpy(_SUB_VERIFYSTRING_STRING_T->chr,oldstr3636->chr,oldstr3636->len); } int32 *_SUB_VERIFYSTRING_LONG_J=NULL; if(_SUB_VERIFYSTRING_LONG_J==NULL){ @@ -20,24 +20,33 @@ if(_SUB_VERIFYSTRING_LONG_GOOD==NULL){ _SUB_VERIFYSTRING_LONG_GOOD=(int32*)mem_static_malloc(4); *_SUB_VERIFYSTRING_LONG_GOOD=0; } +int32 *_SUB_VERIFYSTRING_LONG_EXTRACHAR=NULL; +if(_SUB_VERIFYSTRING_LONG_EXTRACHAR==NULL){ +_SUB_VERIFYSTRING_LONG_EXTRACHAR=(int32*)mem_static_malloc(4); +*_SUB_VERIFYSTRING_LONG_EXTRACHAR=0; +} int32 *_SUB_VERIFYSTRING_LONG_I=NULL; if(_SUB_VERIFYSTRING_LONG_I==NULL){ _SUB_VERIFYSTRING_LONG_I=(int32*)mem_static_malloc(4); *_SUB_VERIFYSTRING_LONG_I=0; } -int64 fornext_value3430; -int64 fornext_finalvalue3430; -int64 fornext_step3430; -uint8 fornext_step_negative3430; -byte_element_struct *byte_element_3431=NULL; -if (!byte_element_3431){ -if ((mem_static_pointer+=12)tmp||_FUNC_N2S_STRING_EXP->fixed||_FUNC_N2S_STRING_EXP->readonly){ -oldstr3434=_FUNC_N2S_STRING_EXP; -if (oldstr3434->cmem_descriptor){ -_FUNC_N2S_STRING_EXP=qbs_new_cmem(oldstr3434->len,0); +oldstr3645=_FUNC_N2S_STRING_EXP; +if (oldstr3645->cmem_descriptor){ +_FUNC_N2S_STRING_EXP=qbs_new_cmem(oldstr3645->len,0); }else{ -_FUNC_N2S_STRING_EXP=qbs_new(oldstr3434->len,0); +_FUNC_N2S_STRING_EXP=qbs_new(oldstr3645->len,0); } -memcpy(_FUNC_N2S_STRING_EXP->chr,oldstr3434->chr,oldstr3434->len); +memcpy(_FUNC_N2S_STRING_EXP->chr,oldstr3645->chr,oldstr3645->len); } qbs *_FUNC_N2S_STRING_T=NULL; if (!_FUNC_N2S_STRING_T)_FUNC_N2S_STRING_T=qbs_new(0,0); @@ -53,20 +53,20 @@ if(_FUNC_N2S_INTEGER64_R==NULL){ _FUNC_N2S_INTEGER64_R=(int64*)mem_static_malloc(8); *_FUNC_N2S_INTEGER64_R=0; } -byte_element_struct *byte_element_3436=NULL; -if (!byte_element_3436){ -if ((mem_static_pointer+=12)tmp||_FUNC_QUOTEDFILENAME_STRING_F->fixed||_FUNC_QUOTEDFILENAME_STRING_F->readonly){ -oldstr3442=_FUNC_QUOTEDFILENAME_STRING_F; -if (oldstr3442->cmem_descriptor){ -_FUNC_QUOTEDFILENAME_STRING_F=qbs_new_cmem(oldstr3442->len,0); +oldstr3653=_FUNC_QUOTEDFILENAME_STRING_F; +if (oldstr3653->cmem_descriptor){ +_FUNC_QUOTEDFILENAME_STRING_F=qbs_new_cmem(oldstr3653->len,0); }else{ -_FUNC_QUOTEDFILENAME_STRING_F=qbs_new(oldstr3442->len,0); +_FUNC_QUOTEDFILENAME_STRING_F=qbs_new(oldstr3653->len,0); } -memcpy(_FUNC_QUOTEDFILENAME_STRING_F->chr,oldstr3442->chr,oldstr3442->len); +memcpy(_FUNC_QUOTEDFILENAME_STRING_F->chr,oldstr3653->chr,oldstr3653->len); } diff --git a/internal/source/data82.txt b/internal/source/data82.txt index 658625a35..21acac84a 100644 --- a/internal/source/data82.txt +++ b/internal/source/data82.txt @@ -3,24 +3,24 @@ if(_FUNC_HASHVALUE_LONG_HASHVALUE==NULL){ _FUNC_HASHVALUE_LONG_HASHVALUE=(int32*)mem_static_malloc(4); *_FUNC_HASHVALUE_LONG_HASHVALUE=0; } -qbs*oldstr3443=NULL; +qbs*oldstr3654=NULL; if(_FUNC_HASHVALUE_STRING_A->tmp||_FUNC_HASHVALUE_STRING_A->fixed||_FUNC_HASHVALUE_STRING_A->readonly){ -oldstr3443=_FUNC_HASHVALUE_STRING_A; -if (oldstr3443->cmem_descriptor){ -_FUNC_HASHVALUE_STRING_A=qbs_new_cmem(oldstr3443->len,0); +oldstr3654=_FUNC_HASHVALUE_STRING_A; +if (oldstr3654->cmem_descriptor){ +_FUNC_HASHVALUE_STRING_A=qbs_new_cmem(oldstr3654->len,0); }else{ -_FUNC_HASHVALUE_STRING_A=qbs_new(oldstr3443->len,0); +_FUNC_HASHVALUE_STRING_A=qbs_new(oldstr3654->len,0); } -memcpy(_FUNC_HASHVALUE_STRING_A->chr,oldstr3443->chr,oldstr3443->len); +memcpy(_FUNC_HASHVALUE_STRING_A->chr,oldstr3654->chr,oldstr3654->len); } int32 *_FUNC_HASHVALUE_LONG_L=NULL; if(_FUNC_HASHVALUE_LONG_L==NULL){ _FUNC_HASHVALUE_LONG_L=(int32*)mem_static_malloc(4); *_FUNC_HASHVALUE_LONG_L=0; } -byte_element_struct *byte_element_3444=NULL; -if (!byte_element_3444){ -if ((mem_static_pointer+=12)tmp||_SUB_HASHADD_STRING_A->fixed||_SUB_HASHADD_STRING_A->readonly){ -oldstr3447=_SUB_HASHADD_STRING_A; -if (oldstr3447->cmem_descriptor){ -_SUB_HASHADD_STRING_A=qbs_new_cmem(oldstr3447->len,0); +oldstr3658=_SUB_HASHADD_STRING_A; +if (oldstr3658->cmem_descriptor){ +_SUB_HASHADD_STRING_A=qbs_new_cmem(oldstr3658->len,0); }else{ -_SUB_HASHADD_STRING_A=qbs_new(oldstr3447->len,0); +_SUB_HASHADD_STRING_A=qbs_new(oldstr3658->len,0); } -memcpy(_SUB_HASHADD_STRING_A->chr,oldstr3447->chr,oldstr3447->len); +memcpy(_SUB_HASHADD_STRING_A->chr,oldstr3658->chr,oldstr3658->len); } int32 *_SUB_HASHADD_LONG_I=NULL; if(_SUB_HASHADD_LONG_I==NULL){ diff --git a/internal/source/data84.txt b/internal/source/data84.txt index 5601f77f6..31da70f59 100644 --- a/internal/source/data84.txt +++ b/internal/source/data84.txt @@ -3,15 +3,15 @@ if(_FUNC_HASHFIND_LONG_HASHFIND==NULL){ _FUNC_HASHFIND_LONG_HASHFIND=(int32*)mem_static_malloc(4); *_FUNC_HASHFIND_LONG_HASHFIND=0; } -qbs*oldstr3448=NULL; +qbs*oldstr3659=NULL; if(_FUNC_HASHFIND_STRING_A->tmp||_FUNC_HASHFIND_STRING_A->fixed||_FUNC_HASHFIND_STRING_A->readonly){ -oldstr3448=_FUNC_HASHFIND_STRING_A; -if (oldstr3448->cmem_descriptor){ -_FUNC_HASHFIND_STRING_A=qbs_new_cmem(oldstr3448->len,0); +oldstr3659=_FUNC_HASHFIND_STRING_A; +if (oldstr3659->cmem_descriptor){ +_FUNC_HASHFIND_STRING_A=qbs_new_cmem(oldstr3659->len,0); }else{ -_FUNC_HASHFIND_STRING_A=qbs_new(oldstr3448->len,0); +_FUNC_HASHFIND_STRING_A=qbs_new(oldstr3659->len,0); } -memcpy(_FUNC_HASHFIND_STRING_A->chr,oldstr3448->chr,oldstr3448->len); +memcpy(_FUNC_HASHFIND_STRING_A->chr,oldstr3659->chr,oldstr3659->len); } int32 *_FUNC_HASHFIND_LONG_I=NULL; if(_FUNC_HASHFIND_LONG_I==NULL){ @@ -20,9 +20,9 @@ _FUNC_HASHFIND_LONG_I=(int32*)mem_static_malloc(4); } qbs *_FUNC_HASHFIND_STRING_UA=NULL; if (!_FUNC_HASHFIND_STRING_UA)_FUNC_HASHFIND_STRING_UA=qbs_new(0,0); -byte_element_struct *byte_element_3449=NULL; -if (!byte_element_3449){ -if ((mem_static_pointer+=12)tmp||_FUNC_HASHFINDREV_STRING_A->fixed||_FUNC_HASHFINDREV_STRING_A->readonly){ -oldstr3450=_FUNC_HASHFINDREV_STRING_A; -if (oldstr3450->cmem_descriptor){ -_FUNC_HASHFINDREV_STRING_A=qbs_new_cmem(oldstr3450->len,0); +oldstr3661=_FUNC_HASHFINDREV_STRING_A; +if (oldstr3661->cmem_descriptor){ +_FUNC_HASHFINDREV_STRING_A=qbs_new_cmem(oldstr3661->len,0); }else{ -_FUNC_HASHFINDREV_STRING_A=qbs_new(oldstr3450->len,0); +_FUNC_HASHFINDREV_STRING_A=qbs_new(oldstr3661->len,0); } -memcpy(_FUNC_HASHFINDREV_STRING_A->chr,oldstr3450->chr,oldstr3450->len); +memcpy(_FUNC_HASHFINDREV_STRING_A->chr,oldstr3661->chr,oldstr3661->len); } int32 *_FUNC_HASHFINDREV_LONG_I=NULL; if(_FUNC_HASHFINDREV_LONG_I==NULL){ @@ -20,9 +20,9 @@ _FUNC_HASHFINDREV_LONG_I=(int32*)mem_static_malloc(4); } qbs *_FUNC_HASHFINDREV_STRING_UA=NULL; if (!_FUNC_HASHFINDREV_STRING_UA)_FUNC_HASHFINDREV_STRING_UA=qbs_new(0,0); -byte_element_struct *byte_element_3451=NULL; -if (!byte_element_3451){ -if ((mem_static_pointer+=12)tmp||_SUB_VWATCHVARIABLE_STRING_THIS->fixed||_SUB_VWATCHVARIABLE_STRING_THIS->readonly){ +oldstr2318=_SUB_VWATCHVARIABLE_STRING_THIS; +if (oldstr2318->cmem_descriptor){ +_SUB_VWATCHVARIABLE_STRING_THIS=qbs_new_cmem(oldstr2318->len,0); +}else{ +_SUB_VWATCHVARIABLE_STRING_THIS=qbs_new(oldstr2318->len,0); +} +memcpy(_SUB_VWATCHVARIABLE_STRING_THIS->chr,oldstr2318->chr,oldstr2318->len); +} +int32 pass2320; +int32 pass2321; +int8 pass2322; +int32 pass2323; +int32 pass2324; +int8 pass2325; diff --git a/internal/source/data90.txt b/internal/source/data90.txt index 4838a9576..d481d54b7 100644 --- a/internal/source/data90.txt +++ b/internal/source/data90.txt @@ -1,16 +1,16 @@ qbs *_FUNC_REMOVECAST_STRING_REMOVECAST=NULL; if (!_FUNC_REMOVECAST_STRING_REMOVECAST)_FUNC_REMOVECAST_STRING_REMOVECAST=qbs_new(0,0); -qbs*oldstr3461=NULL; +qbs*oldstr3672=NULL; if(_FUNC_REMOVECAST_STRING_A->tmp||_FUNC_REMOVECAST_STRING_A->fixed||_FUNC_REMOVECAST_STRING_A->readonly){ -oldstr3461=_FUNC_REMOVECAST_STRING_A; -if (oldstr3461->cmem_descriptor){ -_FUNC_REMOVECAST_STRING_A=qbs_new_cmem(oldstr3461->len,0); +oldstr3672=_FUNC_REMOVECAST_STRING_A; +if (oldstr3672->cmem_descriptor){ +_FUNC_REMOVECAST_STRING_A=qbs_new_cmem(oldstr3672->len,0); }else{ -_FUNC_REMOVECAST_STRING_A=qbs_new(oldstr3461->len,0); +_FUNC_REMOVECAST_STRING_A=qbs_new(oldstr3672->len,0); } -memcpy(_FUNC_REMOVECAST_STRING_A->chr,oldstr3461->chr,oldstr3461->len); +memcpy(_FUNC_REMOVECAST_STRING_A->chr,oldstr3672->chr,oldstr3672->len); } -byte_element_struct *byte_element_3462=NULL; -if (!byte_element_3462){ -if ((mem_static_pointer+=12)tmp||_FUNC_CONVERTTABS_STRING_A2->fixed||_FUNC_CONVERTTABS_STRING_A2->readonly){ -oldstr3463=_FUNC_CONVERTTABS_STRING_A2; -if (oldstr3463->cmem_descriptor){ -_FUNC_CONVERTTABS_STRING_A2=qbs_new_cmem(oldstr3463->len,0); +oldstr3674=_FUNC_CONVERTTABS_STRING_A2; +if (oldstr3674->cmem_descriptor){ +_FUNC_CONVERTTABS_STRING_A2=qbs_new_cmem(oldstr3674->len,0); }else{ -_FUNC_CONVERTTABS_STRING_A2=qbs_new(oldstr3463->len,0); +_FUNC_CONVERTTABS_STRING_A2=qbs_new(oldstr3674->len,0); } -memcpy(_FUNC_CONVERTTABS_STRING_A2->chr,oldstr3463->chr,oldstr3463->len); +memcpy(_FUNC_CONVERTTABS_STRING_A2->chr,oldstr3674->chr,oldstr3674->len); } int32 *_FUNC_CONVERTTABS_LONG_S=NULL; if(_FUNC_CONVERTTABS_LONG_S==NULL){ @@ -22,7 +22,7 @@ if(_FUNC_CONVERTTABS_LONG_X==NULL){ _FUNC_CONVERTTABS_LONG_X=(int32*)mem_static_malloc(4); *_FUNC_CONVERTTABS_LONG_X=0; } -byte_element_struct *byte_element_3465=NULL; -if (!byte_element_3465){ -if ((mem_static_pointer+=12)tmp||_FUNC_VALIDNAME_STRING_A->fixed||_FUNC_VALIDNAME_STRING_A->readonly){ -oldstr3472=_FUNC_VALIDNAME_STRING_A; -if (oldstr3472->cmem_descriptor){ -_FUNC_VALIDNAME_STRING_A=qbs_new_cmem(oldstr3472->len,0); +oldstr3683=_FUNC_VALIDNAME_STRING_A; +if (oldstr3683->cmem_descriptor){ +_FUNC_VALIDNAME_STRING_A=qbs_new_cmem(oldstr3683->len,0); }else{ -_FUNC_VALIDNAME_STRING_A=qbs_new(oldstr3472->len,0); +_FUNC_VALIDNAME_STRING_A=qbs_new(oldstr3683->len,0); } -memcpy(_FUNC_VALIDNAME_STRING_A->chr,oldstr3472->chr,oldstr3472->len); +memcpy(_FUNC_VALIDNAME_STRING_A->chr,oldstr3683->chr,oldstr3683->len); } int32 *_FUNC_VALIDNAME_LONG_L=NULL; if(_FUNC_VALIDNAME_LONG_L==NULL){ _FUNC_VALIDNAME_LONG_L=(int32*)mem_static_malloc(4); *_FUNC_VALIDNAME_LONG_L=0; } -byte_element_struct *byte_element_3473=NULL; -if (!byte_element_3473){ -if ((mem_static_pointer+=12)tmp||_SUB_GIVE_ERROR_STRING_A->fixed||_SUB_GIVE_ERROR_STRING_A->readonly){ -oldstr3479=_SUB_GIVE_ERROR_STRING_A; -if (oldstr3479->cmem_descriptor){ -_SUB_GIVE_ERROR_STRING_A=qbs_new_cmem(oldstr3479->len,0); +oldstr3690=_SUB_GIVE_ERROR_STRING_A; +if (oldstr3690->cmem_descriptor){ +_SUB_GIVE_ERROR_STRING_A=qbs_new_cmem(oldstr3690->len,0); }else{ -_SUB_GIVE_ERROR_STRING_A=qbs_new(oldstr3479->len,0); +_SUB_GIVE_ERROR_STRING_A=qbs_new(oldstr3690->len,0); } -memcpy(_SUB_GIVE_ERROR_STRING_A->chr,oldstr3479->chr,oldstr3479->len); +memcpy(_SUB_GIVE_ERROR_STRING_A->chr,oldstr3690->chr,oldstr3690->len); } diff --git a/internal/source/data96.txt b/internal/source/data96.txt index 71ceb3e5b..4c6c08e8e 100644 --- a/internal/source/data96.txt +++ b/internal/source/data96.txt @@ -1,60 +1,30 @@ -qbs*oldstr3480=NULL; -if(_SUB_WRITECONFIGSETTING_STRING_HEADING->tmp||_SUB_WRITECONFIGSETTING_STRING_HEADING->fixed||_SUB_WRITECONFIGSETTING_STRING_HEADING->readonly){ -oldstr3480=_SUB_WRITECONFIGSETTING_STRING_HEADING; -if (oldstr3480->cmem_descriptor){ -_SUB_WRITECONFIGSETTING_STRING_HEADING=qbs_new_cmem(oldstr3480->len,0); +qbs*oldstr3691=NULL; +if(_SUB_WRITECONFIGSETTING_STRING_SECTION->tmp||_SUB_WRITECONFIGSETTING_STRING_SECTION->fixed||_SUB_WRITECONFIGSETTING_STRING_SECTION->readonly){ +oldstr3691=_SUB_WRITECONFIGSETTING_STRING_SECTION; +if (oldstr3691->cmem_descriptor){ +_SUB_WRITECONFIGSETTING_STRING_SECTION=qbs_new_cmem(oldstr3691->len,0); }else{ -_SUB_WRITECONFIGSETTING_STRING_HEADING=qbs_new(oldstr3480->len,0); +_SUB_WRITECONFIGSETTING_STRING_SECTION=qbs_new(oldstr3691->len,0); } -memcpy(_SUB_WRITECONFIGSETTING_STRING_HEADING->chr,oldstr3480->chr,oldstr3480->len); +memcpy(_SUB_WRITECONFIGSETTING_STRING_SECTION->chr,oldstr3691->chr,oldstr3691->len); } -qbs*oldstr3481=NULL; +qbs*oldstr3692=NULL; if(_SUB_WRITECONFIGSETTING_STRING_ITEM->tmp||_SUB_WRITECONFIGSETTING_STRING_ITEM->fixed||_SUB_WRITECONFIGSETTING_STRING_ITEM->readonly){ -oldstr3481=_SUB_WRITECONFIGSETTING_STRING_ITEM; -if (oldstr3481->cmem_descriptor){ -_SUB_WRITECONFIGSETTING_STRING_ITEM=qbs_new_cmem(oldstr3481->len,0); +oldstr3692=_SUB_WRITECONFIGSETTING_STRING_ITEM; +if (oldstr3692->cmem_descriptor){ +_SUB_WRITECONFIGSETTING_STRING_ITEM=qbs_new_cmem(oldstr3692->len,0); }else{ -_SUB_WRITECONFIGSETTING_STRING_ITEM=qbs_new(oldstr3481->len,0); +_SUB_WRITECONFIGSETTING_STRING_ITEM=qbs_new(oldstr3692->len,0); } -memcpy(_SUB_WRITECONFIGSETTING_STRING_ITEM->chr,oldstr3481->chr,oldstr3481->len); +memcpy(_SUB_WRITECONFIGSETTING_STRING_ITEM->chr,oldstr3692->chr,oldstr3692->len); } -qbs*oldstr3482=NULL; -if(_SUB_WRITECONFIGSETTING_STRING_TVALUE->tmp||_SUB_WRITECONFIGSETTING_STRING_TVALUE->fixed||_SUB_WRITECONFIGSETTING_STRING_TVALUE->readonly){ -oldstr3482=_SUB_WRITECONFIGSETTING_STRING_TVALUE; -if (oldstr3482->cmem_descriptor){ -_SUB_WRITECONFIGSETTING_STRING_TVALUE=qbs_new_cmem(oldstr3482->len,0); +qbs*oldstr3693=NULL; +if(_SUB_WRITECONFIGSETTING_STRING_VALUE->tmp||_SUB_WRITECONFIGSETTING_STRING_VALUE->fixed||_SUB_WRITECONFIGSETTING_STRING_VALUE->readonly){ +oldstr3693=_SUB_WRITECONFIGSETTING_STRING_VALUE; +if (oldstr3693->cmem_descriptor){ +_SUB_WRITECONFIGSETTING_STRING_VALUE=qbs_new_cmem(oldstr3693->len,0); }else{ -_SUB_WRITECONFIGSETTING_STRING_TVALUE=qbs_new(oldstr3482->len,0); +_SUB_WRITECONFIGSETTING_STRING_VALUE=qbs_new(oldstr3693->len,0); } -memcpy(_SUB_WRITECONFIGSETTING_STRING_TVALUE->chr,oldstr3482->chr,oldstr3482->len); +memcpy(_SUB_WRITECONFIGSETTING_STRING_VALUE->chr,oldstr3693->chr,oldstr3693->len); } -qbs *_SUB_WRITECONFIGSETTING_STRING_VALUE=NULL; -if (!_SUB_WRITECONFIGSETTING_STRING_VALUE)_SUB_WRITECONFIGSETTING_STRING_VALUE=qbs_new(0,0); -int32 *_SUB_WRITECONFIGSETTING_LONG_INFILE=NULL; -if(_SUB_WRITECONFIGSETTING_LONG_INFILE==NULL){ -_SUB_WRITECONFIGSETTING_LONG_INFILE=(int32*)mem_static_malloc(4); -*_SUB_WRITECONFIGSETTING_LONG_INFILE=0; -} -int32 *_SUB_WRITECONFIGSETTING_LONG_OUTFILE=NULL; -if(_SUB_WRITECONFIGSETTING_LONG_OUTFILE==NULL){ -_SUB_WRITECONFIGSETTING_LONG_OUTFILE=(int32*)mem_static_malloc(4); -*_SUB_WRITECONFIGSETTING_LONG_OUTFILE=0; -} -int32 *_SUB_WRITECONFIGSETTING_LONG_PLACED=NULL; -if(_SUB_WRITECONFIGSETTING_LONG_PLACED==NULL){ -_SUB_WRITECONFIGSETTING_LONG_PLACED=(int32*)mem_static_malloc(4); -*_SUB_WRITECONFIGSETTING_LONG_PLACED=0; -} -qbs *_SUB_WRITECONFIGSETTING_STRING_JUNK=NULL; -if (!_SUB_WRITECONFIGSETTING_STRING_JUNK)_SUB_WRITECONFIGSETTING_STRING_JUNK=qbs_new(0,0); -int32 *_SUB_WRITECONFIGSETTING_LONG_L=NULL; -if(_SUB_WRITECONFIGSETTING_LONG_L==NULL){ -_SUB_WRITECONFIGSETTING_LONG_L=(int32*)mem_static_malloc(4); -*_SUB_WRITECONFIGSETTING_LONG_L=0; -} -qbs *_SUB_WRITECONFIGSETTING_STRING_COMPARE=NULL; -if (!_SUB_WRITECONFIGSETTING_STRING_COMPARE)_SUB_WRITECONFIGSETTING_STRING_COMPARE=qbs_new(0,0); -qbs *_SUB_WRITECONFIGSETTING_STRING_OUT=NULL; -if (!_SUB_WRITECONFIGSETTING_STRING_OUT)_SUB_WRITECONFIGSETTING_STRING_OUT=qbs_new(0,0); -qbs *_SUB_WRITECONFIGSETTING_STRING_TEMP=NULL; -if (!_SUB_WRITECONFIGSETTING_STRING_TEMP)_SUB_WRITECONFIGSETTING_STRING_TEMP=qbs_new(0,0); diff --git a/internal/source/data97.txt b/internal/source/data97.txt index daa399b5b..17f2fe4c5 100644 --- a/internal/source/data97.txt +++ b/internal/source/data97.txt @@ -3,46 +3,37 @@ if(_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING==NULL){ _FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING=(int32*)mem_static_malloc(4); *_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING=0; } -qbs*oldstr3494=NULL; +qbs*oldstr3694=NULL; +if(_FUNC_READCONFIGSETTING_STRING_SECTION->tmp||_FUNC_READCONFIGSETTING_STRING_SECTION->fixed||_FUNC_READCONFIGSETTING_STRING_SECTION->readonly){ +oldstr3694=_FUNC_READCONFIGSETTING_STRING_SECTION; +if (oldstr3694->cmem_descriptor){ +_FUNC_READCONFIGSETTING_STRING_SECTION=qbs_new_cmem(oldstr3694->len,0); +}else{ +_FUNC_READCONFIGSETTING_STRING_SECTION=qbs_new(oldstr3694->len,0); +} +memcpy(_FUNC_READCONFIGSETTING_STRING_SECTION->chr,oldstr3694->chr,oldstr3694->len); +} +qbs*oldstr3695=NULL; if(_FUNC_READCONFIGSETTING_STRING_ITEM->tmp||_FUNC_READCONFIGSETTING_STRING_ITEM->fixed||_FUNC_READCONFIGSETTING_STRING_ITEM->readonly){ -oldstr3494=_FUNC_READCONFIGSETTING_STRING_ITEM; -if (oldstr3494->cmem_descriptor){ -_FUNC_READCONFIGSETTING_STRING_ITEM=qbs_new_cmem(oldstr3494->len,0); +oldstr3695=_FUNC_READCONFIGSETTING_STRING_ITEM; +if (oldstr3695->cmem_descriptor){ +_FUNC_READCONFIGSETTING_STRING_ITEM=qbs_new_cmem(oldstr3695->len,0); }else{ -_FUNC_READCONFIGSETTING_STRING_ITEM=qbs_new(oldstr3494->len,0); +_FUNC_READCONFIGSETTING_STRING_ITEM=qbs_new(oldstr3695->len,0); } -memcpy(_FUNC_READCONFIGSETTING_STRING_ITEM->chr,oldstr3494->chr,oldstr3494->len); +memcpy(_FUNC_READCONFIGSETTING_STRING_ITEM->chr,oldstr3695->chr,oldstr3695->len); } -qbs*oldstr3495=NULL; +qbs*oldstr3696=NULL; if(_FUNC_READCONFIGSETTING_STRING_VALUE->tmp||_FUNC_READCONFIGSETTING_STRING_VALUE->fixed||_FUNC_READCONFIGSETTING_STRING_VALUE->readonly){ -oldstr3495=_FUNC_READCONFIGSETTING_STRING_VALUE; -if (oldstr3495->cmem_descriptor){ -_FUNC_READCONFIGSETTING_STRING_VALUE=qbs_new_cmem(oldstr3495->len,0); +oldstr3696=_FUNC_READCONFIGSETTING_STRING_VALUE; +if (oldstr3696->cmem_descriptor){ +_FUNC_READCONFIGSETTING_STRING_VALUE=qbs_new_cmem(oldstr3696->len,0); }else{ -_FUNC_READCONFIGSETTING_STRING_VALUE=qbs_new(oldstr3495->len,0); +_FUNC_READCONFIGSETTING_STRING_VALUE=qbs_new(oldstr3696->len,0); } -memcpy(_FUNC_READCONFIGSETTING_STRING_VALUE->chr,oldstr3495->chr,oldstr3495->len); +memcpy(_FUNC_READCONFIGSETTING_STRING_VALUE->chr,oldstr3696->chr,oldstr3696->len); } -int32 *_FUNC_READCONFIGSETTING_LONG_INFILE=NULL; -if(_FUNC_READCONFIGSETTING_LONG_INFILE==NULL){ -_FUNC_READCONFIGSETTING_LONG_INFILE=(int32*)mem_static_malloc(4); -*_FUNC_READCONFIGSETTING_LONG_INFILE=0; -} -int32 *_FUNC_READCONFIGSETTING_LONG_FOUND=NULL; -if(_FUNC_READCONFIGSETTING_LONG_FOUND==NULL){ -_FUNC_READCONFIGSETTING_LONG_FOUND=(int32*)mem_static_malloc(4); -*_FUNC_READCONFIGSETTING_LONG_FOUND=0; -} -qbs *_FUNC_READCONFIGSETTING_STRING_TEMP=NULL; -if (!_FUNC_READCONFIGSETTING_STRING_TEMP)_FUNC_READCONFIGSETTING_STRING_TEMP=qbs_new(0,0); -int32 *_FUNC_READCONFIGSETTING_LONG_L=NULL; -if(_FUNC_READCONFIGSETTING_LONG_L==NULL){ -_FUNC_READCONFIGSETTING_LONG_L=(int32*)mem_static_malloc(4); -*_FUNC_READCONFIGSETTING_LONG_L=0; -} -qbs *_FUNC_READCONFIGSETTING_STRING_COMPARE=NULL; -if (!_FUNC_READCONFIGSETTING_STRING_COMPARE)_FUNC_READCONFIGSETTING_STRING_COMPARE=qbs_new(0,0); -byte_element_struct *byte_element_3498=NULL; -if (!byte_element_3498){ -if ((mem_static_pointer+=12)tmp||_FUNC_VRGBS_STRING_TEXT->fixed||_FUNC_VRGBS_STRING_TEXT->readonly){ -oldstr3499=_FUNC_VRGBS_STRING_TEXT; -if (oldstr3499->cmem_descriptor){ -_FUNC_VRGBS_STRING_TEXT=qbs_new_cmem(oldstr3499->len,0); +oldstr3698=_FUNC_VRGBS_STRING_TEXT; +if (oldstr3698->cmem_descriptor){ +_FUNC_VRGBS_STRING_TEXT=qbs_new_cmem(oldstr3698->len,0); }else{ -_FUNC_VRGBS_STRING_TEXT=qbs_new(oldstr3499->len,0); +_FUNC_VRGBS_STRING_TEXT=qbs_new(oldstr3698->len,0); } -memcpy(_FUNC_VRGBS_STRING_TEXT->chr,oldstr3499->chr,oldstr3499->len); +memcpy(_FUNC_VRGBS_STRING_TEXT->chr,oldstr3698->chr,oldstr3698->len); } int32 *_FUNC_VRGBS_LONG_RPOS=NULL; if(_FUNC_VRGBS_LONG_RPOS==NULL){ diff --git a/internal/source/data99.txt b/internal/source/data99.txt index 18892c48c..0295f5b42 100644 --- a/internal/source/data99.txt +++ b/internal/source/data99.txt @@ -1,198 +1,2 @@ -int32 *_FUNC_EVALPREIF_LONG_EVALPREIF=NULL; -if(_FUNC_EVALPREIF_LONG_EVALPREIF==NULL){ -_FUNC_EVALPREIF_LONG_EVALPREIF=(int32*)mem_static_malloc(4); -*_FUNC_EVALPREIF_LONG_EVALPREIF=0; -} -qbs*oldstr3500=NULL; -if(_FUNC_EVALPREIF_STRING_TEXT->tmp||_FUNC_EVALPREIF_STRING_TEXT->fixed||_FUNC_EVALPREIF_STRING_TEXT->readonly){ -oldstr3500=_FUNC_EVALPREIF_STRING_TEXT; -if (oldstr3500->cmem_descriptor){ -_FUNC_EVALPREIF_STRING_TEXT=qbs_new_cmem(oldstr3500->len,0); -}else{ -_FUNC_EVALPREIF_STRING_TEXT=qbs_new(oldstr3500->len,0); -} -memcpy(_FUNC_EVALPREIF_STRING_TEXT->chr,oldstr3500->chr,oldstr3500->len); -} -qbs*oldstr3501=NULL; -if(_FUNC_EVALPREIF_STRING_ERR->tmp||_FUNC_EVALPREIF_STRING_ERR->fixed||_FUNC_EVALPREIF_STRING_ERR->readonly){ -oldstr3501=_FUNC_EVALPREIF_STRING_ERR; -if (oldstr3501->cmem_descriptor){ -_FUNC_EVALPREIF_STRING_ERR=qbs_new_cmem(oldstr3501->len,0); -}else{ -_FUNC_EVALPREIF_STRING_ERR=qbs_new(oldstr3501->len,0); -} -memcpy(_FUNC_EVALPREIF_STRING_ERR->chr,oldstr3501->chr,oldstr3501->len); -} -qbs *_FUNC_EVALPREIF_STRING_TEMP=NULL; -if (!_FUNC_EVALPREIF_STRING_TEMP)_FUNC_EVALPREIF_STRING_TEMP=qbs_new(0,0); -ptrszint *_FUNC_EVALPREIF_ARRAY_STRING_PC_OP=NULL; -if (!_FUNC_EVALPREIF_ARRAY_STRING_PC_OP){ -_FUNC_EVALPREIF_ARRAY_STRING_PC_OP=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)_FUNC_EVALPREIF_ARRAY_STRING_PC_OP)[8]=(ptrszint)mem_lock_tmp; -_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]=0; -_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]=2147483647; -_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]=0; -_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[6]=0; -_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]=(ptrszint)¬hingstring; -} -qbs *_FUNC_EVALPREIF_STRING_FIRSTSYMBOL=NULL; -if (!_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)_FUNC_EVALPREIF_STRING_FIRSTSYMBOL=qbs_new(0,0); -int32 *_FUNC_EVALPREIF_LONG_FIRST=NULL; -if(_FUNC_EVALPREIF_LONG_FIRST==NULL){ -_FUNC_EVALPREIF_LONG_FIRST=(int32*)mem_static_malloc(4); -*_FUNC_EVALPREIF_LONG_FIRST=0; -} -int32 *_FUNC_EVALPREIF_LONG_I=NULL; -if(_FUNC_EVALPREIF_LONG_I==NULL){ -_FUNC_EVALPREIF_LONG_I=(int32*)mem_static_malloc(4); -*_FUNC_EVALPREIF_LONG_I=0; -} -int64 fornext_value3504; -int64 fornext_finalvalue3504; -int64 fornext_step3504; -uint8 fornext_step_negative3504; -int32 *_FUNC_EVALPREIF_LONG_TEMP=NULL; -if(_FUNC_EVALPREIF_LONG_TEMP==NULL){ -_FUNC_EVALPREIF_LONG_TEMP=(int32*)mem_static_malloc(4); -*_FUNC_EVALPREIF_LONG_TEMP=0; -} -int32 *_FUNC_EVALPREIF_LONG_SECONDSYMBOL=NULL; -if(_FUNC_EVALPREIF_LONG_SECONDSYMBOL==NULL){ -_FUNC_EVALPREIF_LONG_SECONDSYMBOL=(int32*)mem_static_malloc(4); -*_FUNC_EVALPREIF_LONG_SECONDSYMBOL=0; -} -int32 *_FUNC_EVALPREIF_LONG_SECOND=NULL; -if(_FUNC_EVALPREIF_LONG_SECOND==NULL){ -_FUNC_EVALPREIF_LONG_SECOND=(int32*)mem_static_malloc(4); -*_FUNC_EVALPREIF_LONG_SECOND=0; -} -int64 fornext_value3506; -int64 fornext_finalvalue3506; -int64 fornext_step3506; -uint8 fornext_step_negative3506; -byte_element_struct *byte_element_3507=NULL; -if (!byte_element_3507){ -if ((mem_static_pointer+=12)fixed)qbs_set(oldstr2169,_FUNC_COUNTELEMENTS_STRING_A); -qbs_free(_FUNC_COUNTELEMENTS_STRING_A); -} -qbs_free(_FUNC_COUNTELEMENTS_STRING_E); diff --git a/internal/source/free100.txt b/internal/source/free100.txt index ab09a4fe1..74227ec3f 100644 --- a/internal/source/free100.txt +++ b/internal/source/free100.txt @@ -1,6 +1,26 @@ -if(oldstr3537){ -if(oldstr3537->fixed)qbs_set(oldstr3537,_FUNC_VERIFYNUMBER_STRING_TEXT); -qbs_free(_FUNC_VERIFYNUMBER_STRING_TEXT); +if(oldstr3699){ +if(oldstr3699->fixed)qbs_set(oldstr3699,_FUNC_EVALPREIF_STRING_TEXT); +qbs_free(_FUNC_EVALPREIF_STRING_TEXT); } -qbs_free(_FUNC_VERIFYNUMBER_STRING_T); -qbs_free(_FUNC_VERIFYNUMBER_STRING_T1); +if(oldstr3700){ +if(oldstr3700->fixed)qbs_set(oldstr3700,_FUNC_EVALPREIF_STRING_ERR); +qbs_free(_FUNC_EVALPREIF_STRING_ERR); +} +qbs_free(_FUNC_EVALPREIF_STRING_TEMP); +if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&1){ +tmp_long=_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]); +free((void*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALPREIF_ARRAY_STRING_PC_OP)[8] ); +qbs_free(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL); +qbs_free(_FUNC_EVALPREIF_STRING_A); +qbs_free(_FUNC_EVALPREIF_STRING_SECONDSYMBOL); +qbs_free(_FUNC_EVALPREIF_STRING_L); +qbs_free(_FUNC_EVALPREIF_STRING_R); +qbs_free(_FUNC_EVALPREIF_STRING_SYMBOL); +qbs_free(_FUNC_EVALPREIF_STRING_LEFTSIDE); +qbs_free(_FUNC_EVALPREIF_STRING_RIGHTSIDE); +qbs_free(_FUNC_EVALPREIF_STRING_RESULT); +qbs_free(_FUNC_EVALPREIF_STRING_T); +qbs_free(_FUNC_EVALPREIF_STRING_M); diff --git a/internal/source/free101.txt b/internal/source/free101.txt index 6bbfb1d79..9404feed9 100644 --- a/internal/source/free101.txt +++ b/internal/source/free101.txt @@ -1,4 +1,6 @@ -if(oldstr3538){ -if(oldstr3538->fixed)qbs_set(oldstr3538,_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N); -qbs_free(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N); +if(oldstr3736){ +if(oldstr3736->fixed)qbs_set(oldstr3736,_FUNC_VERIFYNUMBER_STRING_TEXT); +qbs_free(_FUNC_VERIFYNUMBER_STRING_TEXT); } +qbs_free(_FUNC_VERIFYNUMBER_STRING_T); +qbs_free(_FUNC_VERIFYNUMBER_STRING_T1); diff --git a/internal/source/free102.txt b/internal/source/free102.txt index a155b2448..acea46a0a 100644 --- a/internal/source/free102.txt +++ b/internal/source/free102.txt @@ -1,4 +1,4 @@ -if(oldstr3542){ -if(oldstr3542->fixed)qbs_set(oldstr3542,_SUB_FREE_UDT_VARSTRINGS_STRING_N); -qbs_free(_SUB_FREE_UDT_VARSTRINGS_STRING_N); +if(oldstr3737){ +if(oldstr3737->fixed)qbs_set(oldstr3737,_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N); +qbs_free(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N); } diff --git a/internal/source/free103.txt b/internal/source/free103.txt index f87f1048f..040c625eb 100644 --- a/internal/source/free103.txt +++ b/internal/source/free103.txt @@ -1,12 +1,4 @@ -if(oldstr3546){ -if(oldstr3546->fixed)qbs_set(oldstr3546,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N); -qbs_free(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N); -} -if(oldstr3547){ -if(oldstr3547->fixed)qbs_set(oldstr3547,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); -qbs_free(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); -} -if(oldstr3548){ -if(oldstr3548->fixed)qbs_set(oldstr3548,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); -qbs_free(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +if(oldstr3741){ +if(oldstr3741->fixed)qbs_set(oldstr3741,_SUB_FREE_UDT_VARSTRINGS_STRING_N); +qbs_free(_SUB_FREE_UDT_VARSTRINGS_STRING_N); } diff --git a/internal/source/free104.txt b/internal/source/free104.txt index eb50a10ff..611bf7207 100644 --- a/internal/source/free104.txt +++ b/internal/source/free104.txt @@ -1,12 +1,4 @@ -if(oldstr3551){ -if(oldstr3551->fixed)qbs_set(oldstr3551,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N); -qbs_free(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N); -} -if(oldstr3552){ -if(oldstr3552->fixed)qbs_set(oldstr3552,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); -qbs_free(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); -} -if(oldstr3553){ -if(oldstr3553->fixed)qbs_set(oldstr3553,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); -qbs_free(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +if(oldstr3745){ +if(oldstr3745->fixed)qbs_set(oldstr3745,_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N); +qbs_free(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N); } diff --git a/internal/source/free105.txt b/internal/source/free105.txt index 856bec053..f5a14b3a7 100644 --- a/internal/source/free105.txt +++ b/internal/source/free105.txt @@ -1,8 +1,12 @@ -if(oldstr3556){ -if(oldstr3556->fixed)qbs_set(oldstr3556,_SUB_COPY_FULL_UDT_STRING_DST); -qbs_free(_SUB_COPY_FULL_UDT_STRING_DST); +if(oldstr3752){ +if(oldstr3752->fixed)qbs_set(oldstr3752,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N); +qbs_free(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N); } -if(oldstr3557){ -if(oldstr3557->fixed)qbs_set(oldstr3557,_SUB_COPY_FULL_UDT_STRING_SRC); -qbs_free(_SUB_COPY_FULL_UDT_STRING_SRC); +if(oldstr3753){ +if(oldstr3753->fixed)qbs_set(oldstr3753,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); +qbs_free(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); +} +if(oldstr3754){ +if(oldstr3754->fixed)qbs_set(oldstr3754,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +qbs_free(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); } diff --git a/internal/source/free106.txt b/internal/source/free106.txt index e69de29bb..1162fbd86 100644 --- a/internal/source/free106.txt +++ b/internal/source/free106.txt @@ -0,0 +1,12 @@ +if(oldstr3757){ +if(oldstr3757->fixed)qbs_set(oldstr3757,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N); +qbs_free(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N); +} +if(oldstr3758){ +if(oldstr3758->fixed)qbs_set(oldstr3758,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); +qbs_free(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT); +} +if(oldstr3759){ +if(oldstr3759->fixed)qbs_set(oldstr3759,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +qbs_free(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +} diff --git a/internal/source/free107.txt b/internal/source/free107.txt index b3acc66a3..fb05a0032 100644 --- a/internal/source/free107.txt +++ b/internal/source/free107.txt @@ -1,10 +1,8 @@ -if(oldstr3572){ -if(oldstr3572->fixed)qbs_set(oldstr3572,_SUB_MANAGEVARIABLELIST_STRING_NAME); -qbs_free(_SUB_MANAGEVARIABLELIST_STRING_NAME); +if(oldstr3762){ +if(oldstr3762->fixed)qbs_set(oldstr3762,_SUB_COPY_FULL_UDT_STRING_DST); +qbs_free(_SUB_COPY_FULL_UDT_STRING_DST); } -if(oldstr3573){ -if(oldstr3573->fixed)qbs_set(oldstr3573,_SUB_MANAGEVARIABLELIST_STRING___CNAME); -qbs_free(_SUB_MANAGEVARIABLELIST_STRING___CNAME); +if(oldstr3763){ +if(oldstr3763->fixed)qbs_set(oldstr3763,_SUB_COPY_FULL_UDT_STRING_SRC); +qbs_free(_SUB_COPY_FULL_UDT_STRING_SRC); } -qbs_free(_SUB_MANAGEVARIABLELIST_STRING_S); -qbs_free(_SUB_MANAGEVARIABLELIST_STRING_CNAME); diff --git a/internal/source/free108.txt b/internal/source/free108.txt index d1468961b..e69de29bb 100644 --- a/internal/source/free108.txt +++ b/internal/source/free108.txt @@ -1,4 +0,0 @@ -if(oldstr3577){ -if(oldstr3577->fixed)qbs_set(oldstr3577,_SUB_ADDWARNING_STRING_TEXT); -qbs_free(_SUB_ADDWARNING_STRING_TEXT); -} diff --git a/internal/source/free109.txt b/internal/source/free109.txt index 7db1ec9ae..f152e9d7d 100644 --- a/internal/source/free109.txt +++ b/internal/source/free109.txt @@ -1,10 +1,12 @@ -if(oldstr3578){ -if(oldstr3578->fixed)qbs_set(oldstr3578,_FUNC_STRREMOVE_STRING_MYSTRING); -qbs_free(_FUNC_STRREMOVE_STRING_MYSTRING); +if(oldstr3778){ +if(oldstr3778->fixed)qbs_set(oldstr3778,_SUB_MANAGEVARIABLELIST_STRING___NAME); +qbs_free(_SUB_MANAGEVARIABLELIST_STRING___NAME); } -if(oldstr3579){ -if(oldstr3579->fixed)qbs_set(oldstr3579,_FUNC_STRREMOVE_STRING_WHATTOREMOVE); -qbs_free(_FUNC_STRREMOVE_STRING_WHATTOREMOVE); +if(oldstr3779){ +if(oldstr3779->fixed)qbs_set(oldstr3779,_SUB_MANAGEVARIABLELIST_STRING___CNAME); +qbs_free(_SUB_MANAGEVARIABLELIST_STRING___CNAME); } -qbs_free(_FUNC_STRREMOVE_STRING_A); -qbs_free(_FUNC_STRREMOVE_STRING_B); +qbs_free(_SUB_MANAGEVARIABLELIST_STRING_CNAME); +qbs_free(_SUB_MANAGEVARIABLELIST_STRING_NAME); +qbs_free(_SUB_MANAGEVARIABLELIST_STRING_TEMP); +qbs_free(_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME); diff --git a/internal/source/free11.txt b/internal/source/free11.txt index aa75b3b2c..e69de29bb 100644 --- a/internal/source/free11.txt +++ b/internal/source/free11.txt @@ -1,22 +0,0 @@ -if(oldstr2172){ -if(oldstr2172->fixed)qbs_set(oldstr2172,_FUNC_DIM2_STRING_VARNAME); -qbs_free(_FUNC_DIM2_STRING_VARNAME); -} -if(oldstr2173){ -if(oldstr2173->fixed)qbs_set(oldstr2173,_FUNC_DIM2_STRING_TYP2); -qbs_free(_FUNC_DIM2_STRING_TYP2); -} -if(oldstr2174){ -if(oldstr2174->fixed)qbs_set(oldstr2174,_FUNC_DIM2_STRING_ELEMENTS); -qbs_free(_FUNC_DIM2_STRING_ELEMENTS); -} -qbs_free(_FUNC_DIM2_STRING_TYP); -qbs_free(_FUNC_DIM2_STRING_CVARNAME); -qbs_free(_FUNC_DIM2_STRING_L); -qbs_free(_FUNC_DIM2_STRING_SCOPE2); -qbs_free(_FUNC_DIM2_STRING_N); -qbs_free(_FUNC_DIM2_STRING_C); -qbs_free(_FUNC_DIM2_STRING_HASHNAME); -qbs_free(_FUNC_DIM2_STRING_O); -qbs_free(_FUNC_DIM2_STRING_CT); -qbs_free(_FUNC_DIM2_STRING_CMPS); diff --git a/internal/source/free110.txt b/internal/source/free110.txt index 830a7e2ad..00cbf5cfa 100644 --- a/internal/source/free110.txt +++ b/internal/source/free110.txt @@ -1,14 +1,14 @@ -if(oldstr3583){ -if(oldstr3583->fixed)qbs_set(oldstr3583,_FUNC_STRREPLACE_STRING_MYSTRING); -qbs_free(_FUNC_STRREPLACE_STRING_MYSTRING); +if(oldstr3790){ +if(oldstr3790->fixed)qbs_set(oldstr3790,_SUB_ADDWARNING_STRING_INCFILENAME); +qbs_free(_SUB_ADDWARNING_STRING_INCFILENAME); } -if(oldstr3584){ -if(oldstr3584->fixed)qbs_set(oldstr3584,_FUNC_STRREPLACE_STRING_FIND); -qbs_free(_FUNC_STRREPLACE_STRING_FIND); +if(oldstr3791){ +if(oldstr3791->fixed)qbs_set(oldstr3791,_SUB_ADDWARNING_STRING_HEADER); +qbs_free(_SUB_ADDWARNING_STRING_HEADER); } -if(oldstr3585){ -if(oldstr3585->fixed)qbs_set(oldstr3585,_FUNC_STRREPLACE_STRING_REPLACEWITH); -qbs_free(_FUNC_STRREPLACE_STRING_REPLACEWITH); +if(oldstr3792){ +if(oldstr3792->fixed)qbs_set(oldstr3792,_SUB_ADDWARNING_STRING_TEXT); +qbs_free(_SUB_ADDWARNING_STRING_TEXT); } -qbs_free(_FUNC_STRREPLACE_STRING_A); -qbs_free(_FUNC_STRREPLACE_STRING_B); +qbs_free(_SUB_ADDWARNING_STRING_THISSOURCE); +qbs_free(_SUB_ADDWARNING_STRING_THISINCNAME); diff --git a/internal/source/free111.txt b/internal/source/free111.txt index f8733d9a2..76b508095 100644 --- a/internal/source/free111.txt +++ b/internal/source/free111.txt @@ -1,13 +1,4 @@ -if(oldstr3591){ -if(oldstr3591->fixed)qbs_set(oldstr3591,_FUNC_GL2QB_TYPE_CONVERT_STRING_A); -qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_A); +if(oldstr3804){ +if(oldstr3804->fixed)qbs_set(oldstr3804,_FUNC_SCASE_STRING_T); +qbs_free(_FUNC_SCASE_STRING_T); } -if(oldstr3592){ -if(oldstr3592->fixed)qbs_set(oldstr3592,_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL); -qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL); -} -if(oldstr3593){ -if(oldstr3593->fixed)qbs_set(oldstr3593,_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP); -qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP); -} -qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_B); diff --git a/internal/source/free112.txt b/internal/source/free112.txt index 59eacd9c3..c547e8b25 100644 --- a/internal/source/free112.txt +++ b/internal/source/free112.txt @@ -1,8 +1,7 @@ -if(oldstr3595){ -if(oldstr3595->fixed)qbs_set(oldstr3595,_FUNC_READCHUNK_STRING_A); -qbs_free(_FUNC_READCHUNK_STRING_A); -} -if(oldstr3596){ -if(oldstr3596->fixed)qbs_set(oldstr3596,_FUNC_READCHUNK_STRING_LAST_CHARACTER); -qbs_free(_FUNC_READCHUNK_STRING_LAST_CHARACTER); +if(oldstr3805){ +if(oldstr3805->fixed)qbs_set(oldstr3805,_FUNC_SCASE2_STRING_T); +qbs_free(_FUNC_SCASE2_STRING_T); } +qbs_free(_FUNC_SCASE2_STRING_SEPARATOR); +qbs_free(_FUNC_SCASE2_STRING_TEMP); +qbs_free(_FUNC_SCASE2_STRING_S); diff --git a/internal/source/free113.txt b/internal/source/free113.txt index af6fb2e20..e69de29bb 100644 --- a/internal/source/free113.txt +++ b/internal/source/free113.txt @@ -1,18 +0,0 @@ -qbs_free(_SUB_GL_SCAN_HEADER_STRING_A2); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_A); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_VALUE); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_L); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_HC); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_HD); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_T); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_S); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_CTYP); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_ARG); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_LETTER); -qbs_free(_SUB_GL_SCAN_HEADER_STRING_H); diff --git a/internal/source/free114.txt b/internal/source/free114.txt index e69de29bb..c60f3c59a 100644 --- a/internal/source/free114.txt +++ b/internal/source/free114.txt @@ -0,0 +1,10 @@ +if(oldstr3809){ +if(oldstr3809->fixed)qbs_set(oldstr3809,_FUNC_STRREMOVE_STRING_MYSTRING); +qbs_free(_FUNC_STRREMOVE_STRING_MYSTRING); +} +if(oldstr3810){ +if(oldstr3810->fixed)qbs_set(oldstr3810,_FUNC_STRREMOVE_STRING_WHATTOREMOVE); +qbs_free(_FUNC_STRREMOVE_STRING_WHATTOREMOVE); +} +qbs_free(_FUNC_STRREMOVE_STRING_A); +qbs_free(_FUNC_STRREMOVE_STRING_B); diff --git a/internal/source/free115.txt b/internal/source/free115.txt index 49fb6c9e7..62b1d4c0f 100644 --- a/internal/source/free115.txt +++ b/internal/source/free115.txt @@ -1,4 +1,14 @@ -if(oldstr3640){ -if(oldstr3640->fixed)qbs_set(oldstr3640,_SUB_ARYADDSTR_STRING_VALUE); -qbs_free(_SUB_ARYADDSTR_STRING_VALUE); +if(oldstr3814){ +if(oldstr3814->fixed)qbs_set(oldstr3814,_FUNC_STRREPLACE_STRING_MYSTRING); +qbs_free(_FUNC_STRREPLACE_STRING_MYSTRING); } +if(oldstr3815){ +if(oldstr3815->fixed)qbs_set(oldstr3815,_FUNC_STRREPLACE_STRING_FIND); +qbs_free(_FUNC_STRREPLACE_STRING_FIND); +} +if(oldstr3816){ +if(oldstr3816->fixed)qbs_set(oldstr3816,_FUNC_STRREPLACE_STRING_REPLACEWITH); +qbs_free(_FUNC_STRREPLACE_STRING_REPLACEWITH); +} +qbs_free(_FUNC_STRREPLACE_STRING_A); +qbs_free(_FUNC_STRREPLACE_STRING_B); diff --git a/internal/source/free116.txt b/internal/source/free116.txt index e69de29bb..9db33e42a 100644 --- a/internal/source/free116.txt +++ b/internal/source/free116.txt @@ -0,0 +1,13 @@ +if(oldstr3822){ +if(oldstr3822->fixed)qbs_set(oldstr3822,_FUNC_GL2QB_TYPE_CONVERT_STRING_A); +qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_A); +} +if(oldstr3823){ +if(oldstr3823->fixed)qbs_set(oldstr3823,_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL); +qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL); +} +if(oldstr3824){ +if(oldstr3824->fixed)qbs_set(oldstr3824,_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP); +qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP); +} +qbs_free(_FUNC_GL2QB_TYPE_CONVERT_STRING_B); diff --git a/internal/source/free117.txt b/internal/source/free117.txt index 0bd03a5e8..ea0974b29 100644 --- a/internal/source/free117.txt +++ b/internal/source/free117.txt @@ -1,13 +1,8 @@ -if(oldstr3643){ -if(oldstr3643->fixed)qbs_set(oldstr3643,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE); -qbs_free(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE); +if(oldstr3826){ +if(oldstr3826->fixed)qbs_set(oldstr3826,_FUNC_READCHUNK_STRING_A); +qbs_free(_FUNC_READCHUNK_STRING_A); } -if(oldstr3644){ -if(oldstr3644->fixed)qbs_set(oldstr3644,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND); -qbs_free(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND); +if(oldstr3827){ +if(oldstr3827->fixed)qbs_set(oldstr3827,_FUNC_READCHUNK_STRING_LAST_CHARACTER); +qbs_free(_FUNC_READCHUNK_STRING_LAST_CHARACTER); } -if(oldstr3645){ -if(oldstr3645->fixed)qbs_set(oldstr3645,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH); -qbs_free(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH); -} -qbs_free(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A); diff --git a/internal/source/free118.txt b/internal/source/free118.txt index 753ed1719..af6fb2e20 100644 --- a/internal/source/free118.txt +++ b/internal/source/free118.txt @@ -1,6 +1,18 @@ -if(oldstr3651){ -if(oldstr3651->fixed)qbs_set(oldstr3651,_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A); -qbs_free(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A); -} -qbs_free(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2); -qbs_free(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_A2); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_A); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_VALUE); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_L); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_HC); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_HD); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_T); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_S); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_CTYP); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_ARG); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_LETTER); +qbs_free(_SUB_GL_SCAN_HEADER_STRING_H); diff --git a/internal/source/free119.txt b/internal/source/free119.txt index 8a1cf75e1..e69de29bb 100644 --- a/internal/source/free119.txt +++ b/internal/source/free119.txt @@ -1,6 +0,0 @@ -if(oldstr3655){ -if(oldstr3655->fixed)qbs_set(oldstr3655,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE); -qbs_free(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE); -} -qbs_free(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2); -qbs_free(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A); diff --git a/internal/source/free12.txt b/internal/source/free12.txt index 84e94435e..2064d80ff 100644 --- a/internal/source/free12.txt +++ b/internal/source/free12.txt @@ -1,13 +1,5 @@ -if(oldstr2340){ -if(oldstr2340->fixed)qbs_set(oldstr2340,_FUNC_UDTREFERENCE_STRING_O); -qbs_free(_FUNC_UDTREFERENCE_STRING_O); +if(oldstr2364){ +if(oldstr2364->fixed)qbs_set(oldstr2364,_FUNC_COUNTELEMENTS_STRING_A); +qbs_free(_FUNC_COUNTELEMENTS_STRING_A); } -if(oldstr2341){ -if(oldstr2341->fixed)qbs_set(oldstr2341,_FUNC_UDTREFERENCE_STRING_A); -qbs_free(_FUNC_UDTREFERENCE_STRING_A); -} -qbs_free(_FUNC_UDTREFERENCE_STRING_OBAK); -qbs_free(_FUNC_UDTREFERENCE_STRING_R); -qbs_free(_FUNC_UDTREFERENCE_STRING_N); -qbs_free(_FUNC_UDTREFERENCE_STRING_NSYM); -qbs_free(_FUNC_UDTREFERENCE_STRING_N2); +qbs_free(_FUNC_COUNTELEMENTS_STRING_E); diff --git a/internal/source/free120.txt b/internal/source/free120.txt index 32ade4643..e69de29bb 100644 --- a/internal/source/free120.txt +++ b/internal/source/free120.txt @@ -1 +0,0 @@ -qbs_free(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE); diff --git a/internal/source/free121.txt b/internal/source/free121.txt index 79ce6ce28..aefa9710a 100644 --- a/internal/source/free121.txt +++ b/internal/source/free121.txt @@ -1 +1,5 @@ -qbs_free(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE); +if(oldstr3874){ +if(oldstr3874->fixed)qbs_set(oldstr3874,_FUNC_INIGETSECTION_STRING___SECTION); +qbs_free(_FUNC_INIGETSECTION_STRING___SECTION); +} +qbs_free(_FUNC_INIGETSECTION_STRING_SECTION); diff --git a/internal/source/free122.txt b/internal/source/free122.txt index 2630d7181..62a374d93 100644 --- a/internal/source/free122.txt +++ b/internal/source/free122.txt @@ -1 +1,5 @@ -qbs_free(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE); +if(oldstr3885){ +if(oldstr3885->fixed)qbs_set(oldstr3885,_FUNC_INIFORMATSECTION_STRING___SECTION); +qbs_free(_FUNC_INIFORMATSECTION_STRING___SECTION); +} +qbs_free(_FUNC_INIFORMATSECTION_STRING_SECTION); diff --git a/internal/source/free123.txt b/internal/source/free123.txt index 1562e2e92..6d314d3bb 100644 --- a/internal/source/free123.txt +++ b/internal/source/free123.txt @@ -1,4 +1,15 @@ -if(oldstr3672){ -if(oldstr3672->fixed)qbs_set(oldstr3672,_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE); -qbs_free(_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE); +if(oldstr3888){ +if(oldstr3888->fixed)qbs_set(oldstr3888,_FUNC_READSETTING_STRING_FILE); +qbs_free(_FUNC_READSETTING_STRING_FILE); } +if(oldstr3889){ +if(oldstr3889->fixed)qbs_set(oldstr3889,_FUNC_READSETTING_STRING___SECTION); +qbs_free(_FUNC_READSETTING_STRING___SECTION); +} +if(oldstr3890){ +if(oldstr3890->fixed)qbs_set(oldstr3890,_FUNC_READSETTING_STRING___KEY); +qbs_free(_FUNC_READSETTING_STRING___KEY); +} +qbs_free(_FUNC_READSETTING_STRING_TEMPVALUE); +qbs_free(_FUNC_READSETTING_STRING_KEY); +qbs_free(_FUNC_READSETTING_STRING_SECTION); diff --git a/internal/source/free124.txt b/internal/source/free124.txt index 40f08219c..e69de29bb 100644 --- a/internal/source/free124.txt +++ b/internal/source/free124.txt @@ -1,8 +0,0 @@ -if(oldstr3681){ -if(oldstr3681->fixed)qbs_set(oldstr3681,_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE); -qbs_free(_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE); -} -if(oldstr3682){ -if(oldstr3682->fixed)qbs_set(oldstr3682,_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER); -qbs_free(_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER); -} diff --git a/internal/source/free125.txt b/internal/source/free125.txt index af9cd80c2..bdee083d4 100644 --- a/internal/source/free125.txt +++ b/internal/source/free125.txt @@ -1,5 +1,20 @@ -if(oldstr3683){ -if(oldstr3683->fixed)qbs_set(oldstr3683,_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH); -qbs_free(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH); +if(oldstr3904){ +if(oldstr3904->fixed)qbs_set(oldstr3904,_SUB_WRITESETTING_STRING_FILE); +qbs_free(_SUB_WRITESETTING_STRING_FILE); } -qbs_free(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A); +if(oldstr3905){ +if(oldstr3905->fixed)qbs_set(oldstr3905,_SUB_WRITESETTING_STRING___SECTION); +qbs_free(_SUB_WRITESETTING_STRING___SECTION); +} +if(oldstr3906){ +if(oldstr3906->fixed)qbs_set(oldstr3906,_SUB_WRITESETTING_STRING___KEY); +qbs_free(_SUB_WRITESETTING_STRING___KEY); +} +if(oldstr3907){ +if(oldstr3907->fixed)qbs_set(oldstr3907,_SUB_WRITESETTING_STRING___VALUE); +qbs_free(_SUB_WRITESETTING_STRING___VALUE); +} +qbs_free(_SUB_WRITESETTING_STRING_TEMPVALUE); +qbs_free(_SUB_WRITESETTING_STRING_SECTION); +qbs_free(_SUB_WRITESETTING_STRING_KEY); +qbs_free(_SUB_WRITESETTING_STRING_VALUE); diff --git a/internal/source/free126.txt b/internal/source/free126.txt index 25bcf1da4..e69de29bb 100644 --- a/internal/source/free126.txt +++ b/internal/source/free126.txt @@ -1,8 +0,0 @@ -if(oldstr3687){ -if(oldstr3687->fixed)qbs_set(oldstr3687,_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE); -qbs_free(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE); -} -if(oldstr3688){ -if(oldstr3688->fixed)qbs_set(oldstr3688,_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR); -qbs_free(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR); -} diff --git a/internal/source/free127.txt b/internal/source/free127.txt index 47f98dc0f..e69de29bb 100644 --- a/internal/source/free127.txt +++ b/internal/source/free127.txt @@ -1,8 +0,0 @@ -if(oldstr3689){ -if(oldstr3689->fixed)qbs_set(oldstr3689,_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE); -qbs_free(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE); -} -if(oldstr3690){ -if(oldstr3690->fixed)qbs_set(oldstr3690,_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE); -qbs_free(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE); -} diff --git a/internal/source/free128.txt b/internal/source/free128.txt index d82320c85..e69de29bb 100644 --- a/internal/source/free128.txt +++ b/internal/source/free128.txt @@ -1,26 +0,0 @@ -if(oldstr3691){ -if(oldstr3691->fixed)qbs_set(oldstr3691,_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2); -} -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAMEA); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTVERSION); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_CFOLDER); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_VERSIONFILE); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_A); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_DELSTR); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_THISFILE); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_A2); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_FILECODE); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_P); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_PATH); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_TP); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_TP2); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_D); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_F); -qbs_free(_SUB_CREATEANDROIDPROJECT_STRING_LF); diff --git a/internal/source/free129.txt b/internal/source/free129.txt index 321c2f584..e69de29bb 100644 --- a/internal/source/free129.txt +++ b/internal/source/free129.txt @@ -1,3 +0,0 @@ -qbs_free(_FUNC_IDE_STRING_LAYOUT2); -qbs_free(_FUNC_IDE_STRING_INDENT); -qbs_free(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS); diff --git a/internal/source/free13.txt b/internal/source/free13.txt index 2f6b03cd2..9896fb540 100644 --- a/internal/source/free13.txt +++ b/internal/source/free13.txt @@ -1,45 +1,22 @@ -if(oldstr2344){ -if(oldstr2344->fixed)qbs_set(oldstr2344,_FUNC_EVALUATE_STRING_A2); -qbs_free(_FUNC_EVALUATE_STRING_A2); +if(oldstr2367){ +if(oldstr2367->fixed)qbs_set(oldstr2367,_FUNC_DIM2_STRING_VARNAME); +qbs_free(_FUNC_DIM2_STRING_VARNAME); } -if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){ -tmp_long=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]); -free((void*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0])); +if(oldstr2368){ +if(oldstr2368->fixed)qbs_set(oldstr2368,_FUNC_DIM2_STRING_TYP2); +qbs_free(_FUNC_DIM2_STRING_TYP2); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_STRING_BLOCK)[8] ); -if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){ -if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0])); -}else{ -free((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0])); +if(oldstr2369){ +if(oldstr2369->fixed)qbs_set(oldstr2369,_FUNC_DIM2_STRING_ELEMENTS); +qbs_free(_FUNC_DIM2_STRING_ELEMENTS); } -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK)[8] ); -if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){ -if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0])); -}else{ -free((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE)[8] ); -qbs_free(_FUNC_EVALUATE_STRING_A); -qbs_free(_FUNC_EVALUATE_STRING_L); -qbs_free(_FUNC_EVALUATE_STRING_NEXTL); -qbs_free(_FUNC_EVALUATE_STRING_L2); -qbs_free(_FUNC_EVALUATE_STRING_DTYP); -qbs_free(_FUNC_EVALUATE_STRING_C); -qbs_free(_FUNC_EVALUATE_STRING_O); -qbs_free(_FUNC_EVALUATE_STRING_E2); -qbs_free(_FUNC_EVALUATE_STRING_E); -qbs_free(_FUNC_EVALUATE_STRING_FAKEE); -qbs_free(_FUNC_EVALUATE_STRING_VARNAME2); -qbs_free(_FUNC_EVALUATE_STRING_TYP2); -qbs_free(_FUNC_EVALUATE_STRING_L3); -qbs_free(_FUNC_EVALUATE_STRING_S); -qbs_free(_FUNC_EVALUATE_STRING_R); -qbs_free(_FUNC_EVALUATE_STRING_NUM); -qbs_free(_FUNC_EVALUATE_STRING_X); -qbs_free(_FUNC_EVALUATE_STRING_TYP); -qbs_free(_FUNC_EVALUATE_STRING_I); +qbs_free(_FUNC_DIM2_STRING_TYP); +qbs_free(_FUNC_DIM2_STRING_CVARNAME); +qbs_free(_FUNC_DIM2_STRING_L); +qbs_free(_FUNC_DIM2_STRING_SCOPE2); +qbs_free(_FUNC_DIM2_STRING_N); +qbs_free(_FUNC_DIM2_STRING_C); +qbs_free(_FUNC_DIM2_STRING_HASHNAME); +qbs_free(_FUNC_DIM2_STRING_O); +qbs_free(_FUNC_DIM2_STRING_CT); +qbs_free(_FUNC_DIM2_STRING_CMPS); diff --git a/internal/source/free130.txt b/internal/source/free130.txt index 16db63f1b..6e3ab2181 100644 --- a/internal/source/free130.txt +++ b/internal/source/free130.txt @@ -1,67 +1,4 @@ -qbs_free(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP); -qbs_free(_FUNC_IDE2_STRING_C); -qbs_free(_FUNC_IDE2_STRING_ERRORAT); -qbs_free(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE); -qbs_free(_FUNC_IDE2_STRING_R); -qbs_free(_FUNC_IDE2_STRING_F); -qbs_free(_FUNC_IDE2_STRING_A); -qbs_free(_FUNC_IDE2_STRING_H); -qbs_free(_FUNC_IDE2_STRING_PATH); -qbs_free(_FUNC_IDE2_STRING_CHRTAB); -qbs_free(_FUNC_IDE2_STRING_SPACE1); -qbs_free(_FUNC_IDE2_STRING_SPACE2); -qbs_free(_FUNC_IDE2_STRING_SPACE3); -qbs_free(_FUNC_IDE2_STRING_SPACE4); -qbs_free(_FUNC_IDE2_STRING_CHR7); -qbs_free(_FUNC_IDE2_STRING_CHR11); -qbs_free(_FUNC_IDE2_STRING_CHR12); -qbs_free(_FUNC_IDE2_STRING_CHR28); -qbs_free(_FUNC_IDE2_STRING_CHR29); -qbs_free(_FUNC_IDE2_STRING_CHR30); -qbs_free(_FUNC_IDE2_STRING_CHR31); -qbs_free(_FUNC_IDE2_STRING_INDENT); -qbs_free(_FUNC_IDE2_STRING_PASSBACK); -qbs_free(_FUNC_IDE2_STRING_SFNAME); -qbs_free(_FUNC_IDE2_STRING_THISLINE); -qbs_free(_FUNC_IDE2_STRING_NCTHISLINE); -qbs_free(_FUNC_IDE2_STRING_BACK_STR); -qbs_free(_FUNC_IDE2_STRING_BACK_STR_I); -qbs_free(_FUNC_IDE2_STRING_N); -qbs_free(_FUNC_IDE2_STRING_POPUP); -qbs_free(_FUNC_IDE2_STRING_CLIP); -qbs_free(_FUNC_IDE2_STRING_A1); -qbs_free(_FUNC_IDE2_STRING_A2); -qbs_free(_FUNC_IDE2_STRING_L); -qbs_free(_FUNC_IDE2_STRING_LNKS); -qbs_free(_FUNC_IDE2_STRING_L1); -qbs_free(_FUNC_IDE2_STRING_L2); -qbs_free(_FUNC_IDE2_STRING_LNK); -qbs_free(_FUNC_IDE2_STRING_NCA); -qbs_free(_FUNC_IDE2_STRING_SF); -qbs_free(_FUNC_IDE2_STRING_ARGS); -qbs_free(_FUNC_IDE2_STRING_BACKUPN); -qbs_free(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED); -qbs_free(_FUNC_IDE2_STRING_P); -qbs_free(_FUNC_IDE2_STRING_TEMPINCLUDE1); -qbs_free(_FUNC_IDE2_STRING_TEMPINCLUDE2); -qbs_free(_FUNC_IDE2_STRING_PROPOSEDTITLE); -qbs_free(_FUNC_IDE2_STRING_WHAT); -qbs_free(_FUNC_IDE2_STRING_RETVAL); -qbs_free(_FUNC_IDE2_STRING_FIRSTCHAR); -qbs_free(_FUNC_IDE2_STRING_A3); -qbs_free(_FUNC_IDE2_STRING_TA); -qbs_free(_FUNC_IDE2_STRING_M); -qbs_free(_FUNC_IDE2_STRING_M1); -qbs_free(_FUNC_IDE2_STRING_M2); -qbs_free(_FUNC_IDE2_STRING_Q); -qbs_free(_FUNC_IDE2_STRING_PAGENAME2); -qbs_free(_FUNC_IDE2_STRING_Z); -qbs_free(_FUNC_IDE2_STRING_F2); -qbs_free(_FUNC_IDE2_STRING_IGNORE); -qbs_free(_FUNC_IDE2_STRING_S); -if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ -tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]); -free((void*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0])); +if(oldstr3917){ +if(oldstr3917->fixed)qbs_set(oldstr3917,_SUB_INILOAD_STRING_FILE); +qbs_free(_SUB_INILOAD_STRING_FILE); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST)[8] ); diff --git a/internal/source/free131.txt b/internal/source/free131.txt index e69de29bb..321c2f584 100644 --- a/internal/source/free131.txt +++ b/internal/source/free131.txt @@ -0,0 +1,3 @@ +qbs_free(_FUNC_IDE_STRING_LAYOUT2); +qbs_free(_FUNC_IDE_STRING_INDENT); +qbs_free(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS); diff --git a/internal/source/free132.txt b/internal/source/free132.txt index e69de29bb..eefc559cf 100644 --- a/internal/source/free132.txt +++ b/internal/source/free132.txt @@ -0,0 +1,71 @@ +qbs_free(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP); +qbs_free(_FUNC_IDE2_STRING_C); +qbs_free(_FUNC_IDE2_STRING_ERRORAT); +qbs_free(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE); +qbs_free(_FUNC_IDE2_STRING_F); +qbs_free(_FUNC_IDE2_STRING_R); +qbs_free(_FUNC_IDE2_STRING_H); +qbs_free(_FUNC_IDE2_STRING_PATH); +qbs_free(_FUNC_IDE2_STRING_CHRTAB); +qbs_free(_FUNC_IDE2_STRING_SPACE1); +qbs_free(_FUNC_IDE2_STRING_SPACE2); +qbs_free(_FUNC_IDE2_STRING_SPACE3); +qbs_free(_FUNC_IDE2_STRING_SPACE4); +qbs_free(_FUNC_IDE2_STRING_CHR7); +qbs_free(_FUNC_IDE2_STRING_CHR11); +qbs_free(_FUNC_IDE2_STRING_CHR12); +qbs_free(_FUNC_IDE2_STRING_CHR28); +qbs_free(_FUNC_IDE2_STRING_CHR29); +qbs_free(_FUNC_IDE2_STRING_CHR30); +qbs_free(_FUNC_IDE2_STRING_CHR31); +qbs_free(_FUNC_IDE2_STRING_A); +qbs_free(_FUNC_IDE2_STRING_INDENT); +qbs_free(_FUNC_IDE2_STRING_PASSBACK); +qbs_free(_FUNC_IDE2_STRING_MSG); +qbs_free(_FUNC_IDE2_STRING_LOCATION); +qbs_free(_FUNC_IDE2_STRING_TEMP); +qbs_free(_FUNC_IDE2_STRING_WHITELISTPROCESS); +qbs_free(_FUNC_IDE2_STRING_POPUP); +qbs_free(_FUNC_IDE2_STRING_CLIP); +qbs_free(_FUNC_IDE2_STRING_A1); +qbs_free(_FUNC_IDE2_STRING_A2); +qbs_free(_FUNC_IDE2_STRING_URL); +qbs_free(_FUNC_IDE2_STRING_BACK_STR_I); +qbs_free(_FUNC_IDE2_STRING_BACK_STR); +qbs_free(_FUNC_IDE2_STRING_L); +qbs_free(_FUNC_IDE2_STRING_LNKS); +qbs_free(_FUNC_IDE2_STRING_LNK); +qbs_free(_FUNC_IDE2_STRING_NCA); +qbs_free(_FUNC_IDE2_STRING_SF); +qbs_free(_FUNC_IDE2_STRING_N); +qbs_free(_FUNC_IDE2_STRING_ARGS); +qbs_free(_FUNC_IDE2_STRING_BACKUPN); +qbs_free(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED); +qbs_free(_FUNC_IDE2_STRING_P); +qbs_free(_FUNC_IDE2_STRING_TEMPINCLUDE1); +qbs_free(_FUNC_IDE2_STRING_TEMPINCLUDE2); +qbs_free(_FUNC_IDE2_STRING_PROPOSEDTITLE); +qbs_free(_FUNC_IDE2_STRING_WHAT); +qbs_free(_FUNC_IDE2_STRING_RETVAL); +qbs_free(_FUNC_IDE2_STRING_FIRSTCHAR); +qbs_free(_FUNC_IDE2_STRING_A3); +qbs_free(_FUNC_IDE2_STRING_TA); +qbs_free(_FUNC_IDE2_STRING_M); +qbs_free(_FUNC_IDE2_STRING_M1); +qbs_free(_FUNC_IDE2_STRING_M2); +qbs_free(_FUNC_IDE2_STRING_TEMPK); +qbs_free(_FUNC_IDE2_STRING_EV0); +qbs_free(_FUNC_IDE2_STRING_EV); +qbs_free(_FUNC_IDE2_STRING_B1); +qbs_free(_FUNC_IDE2_STRING_B2); +qbs_free(_FUNC_IDE2_STRING_MATHMSG); +qbs_free(_FUNC_IDE2_STRING_B3); +qbs_free(_FUNC_IDE2_STRING_Q); +qbs_free(_FUNC_IDE2_STRING_S); +qbs_free(_FUNC_IDE2_STRING_RESULT); +if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ +tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]); +free((void*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST)[8] ); diff --git a/internal/source/free133.txt b/internal/source/free133.txt index 31af8b434..43ad83ea4 100644 --- a/internal/source/free133.txt +++ b/internal/source/free133.txt @@ -1,23 +1,2 @@ -if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&1){ -tmp_long=_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]); -free((void*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY)[8] ); -if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHANGE_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDECHANGE_STRING1_SEP); -qbs_free(_FUNC_IDECHANGE_STRING_A); -qbs_free(_FUNC_IDECHANGE_STRING_A2); -qbs_free(_FUNC_IDECHANGE_STRING_F); -qbs_free(_FUNC_IDECHANGE_STRING_ALTLETTER); -qbs_free(_FUNC_IDECHANGE_STRING_S); -qbs_free(_FUNC_IDECHANGE_STRING_L); -qbs_free(_FUNC_IDECHANGE_STRING_L2); -qbs_free(_FUNC_IDECHANGE_STRING_L3); +qbs_free(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME); +qbs_free(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A); diff --git a/internal/source/free134.txt b/internal/source/free134.txt index 9082dffa9..56b43e0f7 100644 --- a/internal/source/free134.txt +++ b/internal/source/free134.txt @@ -1,10 +1,28 @@ -if (_SUB_IDECHANGED_ARRAY_UDT_O[2]&1){ -if (_SUB_IDECHANGED_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_SUB_IDECHANGED_ARRAY_UDT_O[0])); -}else{ -free((void*)(_SUB_IDECHANGED_ARRAY_UDT_O[0])); +qbs_free(_SUB_DEBUGMODE_STRING_M); +if (_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[2]&1){ +tmp_long=_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]+(128/8+1-1)*tmp_long+ 8));} +free((void*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])); } -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDECHANGED_ARRAY_UDT_O)[8] ); -qbs_free(_SUB_IDECHANGED_STRING1_SEP); -qbs_free(_SUB_IDECHANGED_STRING_ALTLETTER); +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON)[8] ); +qbs_free(_SUB_DEBUGMODE_STRING_RESULT); +qbs_free(_SUB_DEBUGMODE_STRING_TEMP); +qbs_free(_SUB_DEBUGMODE_STRING_CMD); +qbs_free(_SUB_DEBUGMODE_STRING_PROGRAM); +qbs_free(_SUB_DEBUGMODE_STRING_VALUE); +qbs_free(_SUB_DEBUGMODE_STRING_EXPECTED); +qbs_free(_SUB_DEBUGMODE_STRING_P); +qbs_free(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST); +qbs_free(_SUB_DEBUGMODE_STRING_SKIPLIST); +qbs_free(_SUB_DEBUGMODE_STRING_R); +qbs_free(_SUB_DEBUGMODE_STRING_A); +qbs_free(_SUB_DEBUGMODE_STRING_FILTER); +qbs_free(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES); +qbs_free(_SUB_DEBUGMODE_STRING_TEMPSCOPE); +qbs_free(_SUB_DEBUGMODE_STRING_VARTYPE); +qbs_free(_SUB_DEBUGMODE_STRING_TEMPVARTYPE); +qbs_free(_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET); +qbs_free(_SUB_DEBUGMODE_STRING_TEMP2); +qbs_free(_SUB_DEBUGMODE_STRING_RECVDATA); diff --git a/internal/source/free135.txt b/internal/source/free135.txt index 0d391ecf2..e69de29bb 100644 --- a/internal/source/free135.txt +++ b/internal/source/free135.txt @@ -1,10 +0,0 @@ -if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHANGEIT_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDECHANGEIT_STRING1_SEP); -qbs_free(_FUNC_IDECHANGEIT_STRING_ALTLETTER); diff --git a/internal/source/free136.txt b/internal/source/free136.txt index e69de29bb..a60643058 100644 --- a/internal/source/free136.txt +++ b/internal/source/free136.txt @@ -0,0 +1,15 @@ +if(oldstr4917){ +if(oldstr4917->fixed)qbs_set(oldstr4917,_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE); +} +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TITLE); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMP); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMP2); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_THISNAME); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_ITEM); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_TEMP3); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_CONDITION); diff --git a/internal/source/free137.txt b/internal/source/free137.txt index e69de29bb..3b0439cc0 100644 --- a/internal/source/free137.txt +++ b/internal/source/free137.txt @@ -0,0 +1,11 @@ +if(oldstr4964){ +if(oldstr4964->fixed)qbs_set(oldstr4964,_FUNC_MULTISEARCH_STRING___FULLTEXT); +qbs_free(_FUNC_MULTISEARCH_STRING___FULLTEXT); +} +if(oldstr4965){ +if(oldstr4965->fixed)qbs_set(oldstr4965,_FUNC_MULTISEARCH_STRING___SEARCHSTRING); +qbs_free(_FUNC_MULTISEARCH_STRING___SEARCHSTRING); +} +qbs_free(_FUNC_MULTISEARCH_STRING_FULLTEXT); +qbs_free(_FUNC_MULTISEARCH_STRING_SEARCHSTRING); +qbs_free(_FUNC_MULTISEARCH_STRING_THISTERM); diff --git a/internal/source/free138.txt b/internal/source/free138.txt index 0b42f606b..a24c3d758 100644 --- a/internal/source/free138.txt +++ b/internal/source/free138.txt @@ -1,4 +1,59 @@ -qbs_free(_SUB_IDEDRAWOBJ_STRING1_SEP); -qbs_free(_SUB_IDEDRAWOBJ_STRING_A); -qbs_free(_SUB_IDEDRAWOBJ_STRING_A3); -qbs_free(_SUB_IDEDRAWOBJ_STRING_A2); +if(oldstr4970){ +if(oldstr4970->fixed)qbs_set(oldstr4970,_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE); +} +if(oldstr4971){ +if(oldstr4971->fixed)qbs_set(oldstr4971,_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); +} +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&1){ +tmp_long=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25));} +free((void*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST)[8] ); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPPROMPT); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT); +qbs_free(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE); diff --git a/internal/source/free139.txt b/internal/source/free139.txt index e69de29bb..498e6995b 100644 --- a/internal/source/free139.txt +++ b/internal/source/free139.txt @@ -0,0 +1,34 @@ +if(oldstr5094){ +if(oldstr5094->fixed)qbs_set(oldstr5094,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH); +} +if(oldstr5095){ +if(oldstr5095->fixed)qbs_set(oldstr5095,_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES); +} +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP); +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&1){ +tmp_long=_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25));} +free((void*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST)[8] ); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_L); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_V); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT); diff --git a/internal/source/free14.txt b/internal/source/free14.txt index baa5cf88d..a315a50d7 100644 --- a/internal/source/free14.txt +++ b/internal/source/free14.txt @@ -1,27 +1,13 @@ -if(oldstr2408){ -if(oldstr2408->fixed)qbs_set(oldstr2408,_FUNC_EVALUATEFUNC_STRING_A2); -qbs_free(_FUNC_EVALUATEFUNC_STRING_A2); +if(oldstr2549){ +if(oldstr2549->fixed)qbs_set(oldstr2549,_FUNC_UDTREFERENCE_STRING_O); +qbs_free(_FUNC_UDTREFERENCE_STRING_O); } -qbs_free(_FUNC_EVALUATEFUNC_STRING_A); -qbs_free(_FUNC_EVALUATEFUNC_STRING_N); -qbs_free(_FUNC_EVALUATEFUNC_STRING_F); -qbs_free(_FUNC_EVALUATEFUNC_STRING_R); -qbs_free(_FUNC_EVALUATEFUNC_STRING_L); -qbs_free(_FUNC_EVALUATEFUNC_STRING_E); -qbs_free(_FUNC_EVALUATEFUNC_STRING_CVTYPE); -qbs_free(_FUNC_EVALUATEFUNC_STRING_MKTYPE); -qbs_free(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY); -qbs_free(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK); -qbs_free(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS); -qbs_free(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP); -qbs_free(_FUNC_EVALUATEFUNC_STRING_OFFS); -qbs_free(_FUNC_EVALUATEFUNC_STRING_BLKOFFS); -qbs_free(_FUNC_EVALUATEFUNC_STRING_E2); -qbs_free(_FUNC_EVALUATEFUNC_STRING_CTYPE); -qbs_free(_FUNC_EVALUATEFUNC_STRING_INDEX); -qbs_free(_FUNC_EVALUATEFUNC_STRING_O); -qbs_free(_FUNC_EVALUATEFUNC_STRING_N2); -qbs_free(_FUNC_EVALUATEFUNC_STRING_X); -qbs_free(_FUNC_EVALUATEFUNC_STRING_T); -qbs_free(_FUNC_EVALUATEFUNC_STRING_V); -qbs_free(_FUNC_EVALUATEFUNC_STRING_R2); +if(oldstr2550){ +if(oldstr2550->fixed)qbs_set(oldstr2550,_FUNC_UDTREFERENCE_STRING_A); +qbs_free(_FUNC_UDTREFERENCE_STRING_A); +} +qbs_free(_FUNC_UDTREFERENCE_STRING_OBAK); +qbs_free(_FUNC_UDTREFERENCE_STRING_R); +qbs_free(_FUNC_UDTREFERENCE_STRING_N); +qbs_free(_FUNC_UDTREFERENCE_STRING_NSYM); +qbs_free(_FUNC_UDTREFERENCE_STRING_N2); diff --git a/internal/source/free140.txt b/internal/source/free140.txt index 7415bcbe3..7ff77643a 100644 --- a/internal/source/free140.txt +++ b/internal/source/free140.txt @@ -1,14 +1,6 @@ -if(oldstr4614){ -if(oldstr4614->fixed)qbs_set(oldstr4614,_SUB_IDEERRORMESSAGE_STRING_MESS); -qbs_free(_SUB_IDEERRORMESSAGE_STRING_MESS); +if(oldstr5132){ +if(oldstr5132->fixed)qbs_set(oldstr5132,_FUNC_FORMATRANGE_STRING___TEXT); +qbs_free(_FUNC_FORMATRANGE_STRING___TEXT); } -if (_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]&1){ -if (_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])); -}else{ -free((void*)(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O)[8] ); -qbs_free(_SUB_IDEERRORMESSAGE_STRING1_SEP); -qbs_free(_SUB_IDEERRORMESSAGE_STRING_ALTLETTER); +qbs_free(_FUNC_FORMATRANGE_STRING_TEMP); +qbs_free(_FUNC_FORMATRANGE_STRING_A2); diff --git a/internal/source/free141.txt b/internal/source/free141.txt index c56ad88d2..74242fb2d 100644 --- a/internal/source/free141.txt +++ b/internal/source/free141.txt @@ -1,10 +1,11 @@ -if (_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])); +if(oldstr5136){ +if(oldstr5136->fixed)qbs_set(oldstr5136,_FUNC_EXPANDARRAY_STRING___INDEXES); +qbs_free(_FUNC_EXPANDARRAY_STRING___INDEXES); } +if(oldstr5137){ +if(oldstr5137->fixed)qbs_set(oldstr5137,_FUNC_EXPANDARRAY_STRING___PATH); +qbs_free(_FUNC_EXPANDARRAY_STRING___PATH); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEFILEEXISTS_STRING1_SEP); -qbs_free(_FUNC_IDEFILEEXISTS_STRING_ALTLETTER); +qbs_free(_FUNC_EXPANDARRAY_STRING_INDEXES); +qbs_free(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES); +qbs_free(_FUNC_EXPANDARRAY_STRING_TEMP); diff --git a/internal/source/free142.txt b/internal/source/free142.txt index 5440767bb..4a4b1d670 100644 --- a/internal/source/free142.txt +++ b/internal/source/free142.txt @@ -1,20 +1,9 @@ -if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&1){ -tmp_long=_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]); -free((void*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0])); +if(oldstr5143){ +if(oldstr5143->fixed)qbs_set(oldstr5143,_FUNC_PARSERANGE_STRING___TEXT); +qbs_free(_FUNC_PARSERANGE_STRING___TEXT); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY)[8] ); -if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEFIND_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEFIND_STRING1_SEP); -qbs_free(_FUNC_IDEFIND_STRING_A); -qbs_free(_FUNC_IDEFIND_STRING_A2); -qbs_free(_FUNC_IDEFIND_STRING_F); -qbs_free(_FUNC_IDEFIND_STRING_ALTLETTER); -qbs_free(_FUNC_IDEFIND_STRING_S); +qbs_free(_FUNC_PARSERANGE_STRING_FILTER); +qbs_free(_FUNC_PARSERANGE_STRING_TEMP); +qbs_free(_FUNC_PARSERANGE_STRING_V1); +qbs_free(_FUNC_PARSERANGE_STRING_V2); +qbs_free(_FUNC_PARSERANGE_STRING_RETURNVALUE); diff --git a/internal/source/free143.txt b/internal/source/free143.txt index b7619bf1e..df460acb8 100644 --- a/internal/source/free143.txt +++ b/internal/source/free143.txt @@ -1,2 +1,12 @@ -qbs_free(_SUB_IDEFINDAGAIN_STRING_S); -qbs_free(_SUB_IDEFINDAGAIN_STRING_L); +if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDECALLSTACKBOX_STRING1_SEP); +qbs_free(_FUNC_IDECALLSTACKBOX_STRING_TEMP); +qbs_free(_FUNC_IDECALLSTACKBOX_STRING_TEMP2); +qbs_free(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER); diff --git a/internal/source/free146.txt b/internal/source/free146.txt index e69de29bb..6a76f43d4 100644 --- a/internal/source/free146.txt +++ b/internal/source/free146.txt @@ -0,0 +1,24 @@ +if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&1){ +tmp_long=_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]); +free((void*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY)[8] ); +if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHANGE_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDECHANGE_STRING1_SEP); +qbs_free(_FUNC_IDECHANGE_STRING_A); +qbs_free(_FUNC_IDECHANGE_STRING_A2); +qbs_free(_FUNC_IDECHANGE_STRING_F); +qbs_free(_FUNC_IDECHANGE_STRING_ALTLETTER); +qbs_free(_FUNC_IDECHANGE_STRING_S); +qbs_free(_FUNC_IDECHANGE_STRING_PERCENTAGEMSG); +qbs_free(_FUNC_IDECHANGE_STRING_L); +qbs_free(_FUNC_IDECHANGE_STRING_L2); +qbs_free(_FUNC_IDECHANGE_STRING_L3); diff --git a/internal/source/free147.txt b/internal/source/free147.txt index 441c2ef54..206f9e897 100644 --- a/internal/source/free147.txt +++ b/internal/source/free147.txt @@ -1,4 +1,4 @@ -if(oldstr4695){ -if(oldstr4695->fixed)qbs_set(oldstr4695,_FUNC_IDEHLEN_STRING_A); -qbs_free(_FUNC_IDEHLEN_STRING_A); +if(oldstr5220){ +if(oldstr5220->fixed)qbs_set(oldstr5220,_SUB_FINDQUOTECOMMENT_STRING_TEXT); +qbs_free(_SUB_FINDQUOTECOMMENT_STRING_TEXT); } diff --git a/internal/source/free148.txt b/internal/source/free148.txt index f58b65e3d..81cdc8513 100644 --- a/internal/source/free148.txt +++ b/internal/source/free148.txt @@ -1,5 +1 @@ -if(oldstr4698){ -if(oldstr4698->fixed)qbs_set(oldstr4698,_SUB_IDEHPRINT_STRING_A); -qbs_free(_SUB_IDEHPRINT_STRING_A); -} -qbs_free(_SUB_IDEHPRINT_STRING_C); +qbs_free(_SUB_IDECHANGED_STRING_PL); diff --git a/internal/source/free149.txt b/internal/source/free149.txt index f44c47921..0d391ecf2 100644 --- a/internal/source/free149.txt +++ b/internal/source/free149.txt @@ -1,4 +1,10 @@ -if(oldstr4703){ -if(oldstr4703->fixed)qbs_set(oldstr4703,_SUB_IDEINSLINE_STRING_TEXT); -qbs_free(_SUB_IDEINSLINE_STRING_TEXT); +if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])); } +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHANGEIT_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDECHANGEIT_STRING1_SEP); +qbs_free(_FUNC_IDECHANGEIT_STRING_ALTLETTER); diff --git a/internal/source/free15.txt b/internal/source/free15.txt index 59671e82d..42e151f7a 100644 --- a/internal/source/free15.txt +++ b/internal/source/free15.txt @@ -1,2 +1,45 @@ -qbs_free(_FUNC_VARIABLESIZE_STRING_N); -qbs_free(_FUNC_VARIABLESIZE_STRING_S); +if(oldstr2553){ +if(oldstr2553->fixed)qbs_set(oldstr2553,_FUNC_EVALUATE_STRING_A2); +qbs_free(_FUNC_EVALUATE_STRING_A2); +} +if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){ +tmp_long=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]); +free((void*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_STRING_BLOCK)[8] ); +if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){ +if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0])); +}else{ +free((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK)[8] ); +if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){ +if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0])); +}else{ +free((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE)[8] ); +qbs_free(_FUNC_EVALUATE_STRING_A); +qbs_free(_FUNC_EVALUATE_STRING_L); +qbs_free(_FUNC_EVALUATE_STRING_NEXTL); +qbs_free(_FUNC_EVALUATE_STRING_L2); +qbs_free(_FUNC_EVALUATE_STRING_DTYP); +qbs_free(_FUNC_EVALUATE_STRING_C); +qbs_free(_FUNC_EVALUATE_STRING_O); +qbs_free(_FUNC_EVALUATE_STRING_E2); +qbs_free(_FUNC_EVALUATE_STRING_E); +qbs_free(_FUNC_EVALUATE_STRING_FAKEE); +qbs_free(_FUNC_EVALUATE_STRING_VARNAME2); +qbs_free(_FUNC_EVALUATE_STRING_TYP2); +qbs_free(_FUNC_EVALUATE_STRING_L3); +qbs_free(_FUNC_EVALUATE_STRING_S); +qbs_free(_FUNC_EVALUATE_STRING_R); +qbs_free(_FUNC_EVALUATE_STRING_NUM); +qbs_free(_FUNC_EVALUATE_STRING_X); +qbs_free(_FUNC_EVALUATE_STRING_TYP); +qbs_free(_FUNC_EVALUATE_STRING_I); diff --git a/internal/source/free150.txt b/internal/source/free150.txt index abf0309c1..e69de29bb 100644 --- a/internal/source/free150.txt +++ b/internal/source/free150.txt @@ -1,16 +0,0 @@ -if(oldstr4708){ -if(oldstr4708->fixed)qbs_set(oldstr4708,_SUB_IDENEWSF_STRING_SF); -qbs_free(_SUB_IDENEWSF_STRING_SF); -} -if (_SUB_IDENEWSF_ARRAY_UDT_O[2]&1){ -if (_SUB_IDENEWSF_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_SUB_IDENEWSF_ARRAY_UDT_O[0])); -}else{ -free((void*)(_SUB_IDENEWSF_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDENEWSF_ARRAY_UDT_O)[8] ); -qbs_free(_SUB_IDENEWSF_STRING1_SEP); -qbs_free(_SUB_IDENEWSF_STRING_A); -qbs_free(_SUB_IDENEWSF_STRING_A2); -qbs_free(_SUB_IDENEWSF_STRING_ALTLETTER); diff --git a/internal/source/free151.txt b/internal/source/free151.txt index 3b4376de7..e69de29bb 100644 --- a/internal/source/free151.txt +++ b/internal/source/free151.txt @@ -1,4 +0,0 @@ -if(oldstr4726){ -if(oldstr4726->fixed)qbs_set(oldstr4726,_FUNC_IDENEWTXT_STRING_A); -qbs_free(_FUNC_IDENEWTXT_STRING_A); -} diff --git a/internal/source/free152.txt b/internal/source/free152.txt index 1e0f9fd0c..0b42f606b 100644 --- a/internal/source/free152.txt +++ b/internal/source/free152.txt @@ -1,10 +1,4 @@ -if (_SUB_IDENOMATCH_ARRAY_UDT_O[2]&1){ -if (_SUB_IDENOMATCH_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_SUB_IDENOMATCH_ARRAY_UDT_O[0])); -}else{ -free((void*)(_SUB_IDENOMATCH_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDENOMATCH_ARRAY_UDT_O)[8] ); -qbs_free(_SUB_IDENOMATCH_STRING1_SEP); -qbs_free(_SUB_IDENOMATCH_STRING_ALTLETTER); +qbs_free(_SUB_IDEDRAWOBJ_STRING1_SEP); +qbs_free(_SUB_IDEDRAWOBJ_STRING_A); +qbs_free(_SUB_IDEDRAWOBJ_STRING_A3); +qbs_free(_SUB_IDEDRAWOBJ_STRING_A2); diff --git a/internal/source/free153.txt b/internal/source/free153.txt index 0c0b1dc78..e69de29bb 100644 --- a/internal/source/free153.txt +++ b/internal/source/free153.txt @@ -1,27 +0,0 @@ -if (_FUNC_IDEOPEN_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEOPEN_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEOPEN_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEOPEN_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEOPEN_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEOPEN_STRING1_SEP); -qbs_free(_FUNC_IDEOPEN_STRING_PATH); -qbs_free(_FUNC_IDEOPEN_STRING_FILELIST); -qbs_free(_FUNC_IDEOPEN_STRING_PATHLIST); -qbs_free(_FUNC_IDEOPEN_STRING_F); -qbs_free(_FUNC_IDEOPEN_STRING_A); -qbs_free(_FUNC_IDEOPEN_STRING_ALTLETTER); -qbs_free(_FUNC_IDEOPEN_STRING_CHRTAB); -qbs_free(_FUNC_IDEOPEN_STRING_SPACE1); -qbs_free(_FUNC_IDEOPEN_STRING_SPACE2); -qbs_free(_FUNC_IDEOPEN_STRING_SPACE3); -qbs_free(_FUNC_IDEOPEN_STRING_SPACE4); -qbs_free(_FUNC_IDEOPEN_STRING_CHR7); -qbs_free(_FUNC_IDEOPEN_STRING_CHR11); -qbs_free(_FUNC_IDEOPEN_STRING_CHR12); -qbs_free(_FUNC_IDEOPEN_STRING_CHR28); -qbs_free(_FUNC_IDEOPEN_STRING_CHR29); -qbs_free(_FUNC_IDEOPEN_STRING_CHR30); -qbs_free(_FUNC_IDEOPEN_STRING_CHR31); diff --git a/internal/source/free154.txt b/internal/source/free154.txt index 9e438e3d5..1d5db8752 100644 --- a/internal/source/free154.txt +++ b/internal/source/free154.txt @@ -1,4 +1,5 @@ -if(oldstr4761){ -if(oldstr4761->fixed)qbs_set(oldstr4761,_SUB_IDEPAR_STRING_TITLE); -qbs_free(_SUB_IDEPAR_STRING_TITLE); +if(oldstr5289){ +if(oldstr5289->fixed)qbs_set(oldstr5289,_FUNC_IDEFILEEXISTS_STRING_F); +qbs_free(_FUNC_IDEFILEEXISTS_STRING_F); } +qbs_free(_FUNC_IDEFILEEXISTS_STRING_M); diff --git a/internal/source/free155.txt b/internal/source/free155.txt index ad53ed624..5440767bb 100644 --- a/internal/source/free155.txt +++ b/internal/source/free155.txt @@ -1,10 +1,20 @@ -if (_FUNC_IDERESTORE_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDERESTORE_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDERESTORE_ARRAY_UDT_O[0])); +if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&1){ +tmp_long=_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]); +free((void*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY)[8] ); +if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])); }else{ -free((void*)(_FUNC_IDERESTORE_ARRAY_UDT_O[0])); +free((void*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDERESTORE_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDERESTORE_STRING1_SEP); -qbs_free(_FUNC_IDERESTORE_STRING_ALTLETTER); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEFIND_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEFIND_STRING1_SEP); +qbs_free(_FUNC_IDEFIND_STRING_A); +qbs_free(_FUNC_IDEFIND_STRING_A2); +qbs_free(_FUNC_IDEFIND_STRING_F); +qbs_free(_FUNC_IDEFIND_STRING_ALTLETTER); +qbs_free(_FUNC_IDEFIND_STRING_S); diff --git a/internal/source/free156.txt b/internal/source/free156.txt index de2d65258..b7619bf1e 100644 --- a/internal/source/free156.txt +++ b/internal/source/free156.txt @@ -1,14 +1,2 @@ -if(oldstr4775){ -if(oldstr4775->fixed)qbs_set(oldstr4775,_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY); -qbs_free(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY); -} -if (_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDECLEARHISTORY_STRING1_SEP); -qbs_free(_FUNC_IDECLEARHISTORY_STRING_ALTLETTER); +qbs_free(_SUB_IDEFINDAGAIN_STRING_S); +qbs_free(_SUB_IDEFINDAGAIN_STRING_L); diff --git a/internal/source/free157.txt b/internal/source/free157.txt index af15d8a4f..e69de29bb 100644 --- a/internal/source/free157.txt +++ b/internal/source/free157.txt @@ -1,5 +0,0 @@ -if(oldstr4791){ -if(oldstr4791->fixed)qbs_set(oldstr4791,_SUB_IDESAVE_STRING_F); -qbs_free(_SUB_IDESAVE_STRING_F); -} -qbs_free(_SUB_IDESAVE_STRING_A); diff --git a/internal/source/free158.txt b/internal/source/free158.txt index 92e66e169..e69de29bb 100644 --- a/internal/source/free158.txt +++ b/internal/source/free158.txt @@ -1,18 +0,0 @@ -if(oldstr4795){ -if(oldstr4795->fixed)qbs_set(oldstr4795,_FUNC_IDESAVEAS_STRING_PROGRAMNAME); -qbs_free(_FUNC_IDESAVEAS_STRING_PROGRAMNAME); -} -if (_FUNC_IDESAVEAS_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDESAVEAS_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDESAVEAS_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDESAVEAS_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESAVEAS_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDESAVEAS_STRING1_SEP); -qbs_free(_FUNC_IDESAVEAS_STRING_PATH); -qbs_free(_FUNC_IDESAVEAS_STRING_PATHLIST); -qbs_free(_FUNC_IDESAVEAS_STRING_A); -qbs_free(_FUNC_IDESAVEAS_STRING_ALTLETTER); -qbs_free(_FUNC_IDESAVEAS_STRING_F); diff --git a/internal/source/free159.txt b/internal/source/free159.txt index 0ffc24090..e69de29bb 100644 --- a/internal/source/free159.txt +++ b/internal/source/free159.txt @@ -1,10 +0,0 @@ -if (_FUNC_IDESAVENOW_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDESAVENOW_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDESAVENOW_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDESAVENOW_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESAVENOW_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDESAVENOW_STRING1_SEP); -qbs_free(_FUNC_IDESAVENOW_STRING_ALTLETTER); diff --git a/internal/source/free16.txt b/internal/source/free16.txt index 4fd7605e2..95d76e098 100644 --- a/internal/source/free16.txt +++ b/internal/source/free16.txt @@ -1,12 +1,28 @@ -if(oldstr2502){ -if(oldstr2502->fixed)qbs_set(oldstr2502,_FUNC_EVALUATETOTYP_STRING_A2); -qbs_free(_FUNC_EVALUATETOTYP_STRING_A2); +if(oldstr2619){ +if(oldstr2619->fixed)qbs_set(oldstr2619,_FUNC_EVALUATEFUNC_STRING_A2); +qbs_free(_FUNC_EVALUATEFUNC_STRING_A2); } -qbs_free(_FUNC_EVALUATETOTYP_STRING_A); -qbs_free(_FUNC_EVALUATETOTYP_STRING_E); -qbs_free(_FUNC_EVALUATETOTYP_STRING_O); -qbs_free(_FUNC_EVALUATETOTYP_STRING_N); -qbs_free(_FUNC_EVALUATETOTYP_STRING_DST); -qbs_free(_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_free(_FUNC_EVALUATETOTYP_STRING_LK); -qbs_free(_FUNC_EVALUATETOTYP_STRING_INDEX); +qbs_free(_FUNC_EVALUATEFUNC_STRING_A); +qbs_free(*((qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+ 2861))); +qbs_free(_FUNC_EVALUATEFUNC_STRING_N); +qbs_free(_FUNC_EVALUATEFUNC_STRING_F); +qbs_free(_FUNC_EVALUATEFUNC_STRING_R); +qbs_free(_FUNC_EVALUATEFUNC_STRING_L); +qbs_free(_FUNC_EVALUATEFUNC_STRING_E); +qbs_free(_FUNC_EVALUATEFUNC_STRING_CVTYPE); +qbs_free(_FUNC_EVALUATEFUNC_STRING_MKTYPE); +qbs_free(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY); +qbs_free(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK); +qbs_free(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS); +qbs_free(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP); +qbs_free(_FUNC_EVALUATEFUNC_STRING_OFFS); +qbs_free(_FUNC_EVALUATEFUNC_STRING_BLKOFFS); +qbs_free(_FUNC_EVALUATEFUNC_STRING_E2); +qbs_free(_FUNC_EVALUATEFUNC_STRING_CTYPE); +qbs_free(_FUNC_EVALUATEFUNC_STRING_INDEX); +qbs_free(_FUNC_EVALUATEFUNC_STRING_O); +qbs_free(_FUNC_EVALUATEFUNC_STRING_N2); +qbs_free(_FUNC_EVALUATEFUNC_STRING_X); +qbs_free(_FUNC_EVALUATEFUNC_STRING_T); +qbs_free(_FUNC_EVALUATEFUNC_STRING_V); +qbs_free(_FUNC_EVALUATEFUNC_STRING_R2); diff --git a/internal/source/free160.txt b/internal/source/free160.txt index 950f94644..e69de29bb 100644 --- a/internal/source/free160.txt +++ b/internal/source/free160.txt @@ -1,4 +0,0 @@ -if(oldstr4824){ -if(oldstr4824->fixed)qbs_set(oldstr4824,_SUB_IDESETLINE_STRING_TEXT); -qbs_free(_SUB_IDESETLINE_STRING_TEXT); -} diff --git a/internal/source/free161.txt b/internal/source/free161.txt index d4265858b..c477c5aac 100644 --- a/internal/source/free161.txt +++ b/internal/source/free161.txt @@ -1,14 +1,4 @@ -qbs_free(_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP); -qbs_free(_SUB_IDESHOWTEXT_STRING_A); -qbs_free(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD); -qbs_free(_SUB_IDESHOWTEXT_STRING_TEMPLIST); -qbs_free(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT); -qbs_free(_SUB_IDESHOWTEXT_STRING_B); -qbs_free(_SUB_IDESHOWTEXT_STRING_L2); -qbs_free(_SUB_IDESHOWTEXT_STRING_A2); -qbs_free(_SUB_IDESHOWTEXT_STRING_P); -qbs_free(_SUB_IDESHOWTEXT_STRING_F); -qbs_free(_SUB_IDESHOWTEXT_STRING_OLDCHAR); -qbs_free(_SUB_IDESHOWTEXT_STRING_THISCHAR); -qbs_free(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP); -qbs_free(_SUB_IDESHOWTEXT_STRING_NEXTCHAR); +if(oldstr5343){ +if(oldstr5343->fixed)qbs_set(oldstr5343,_FUNC_IDEHLEN_STRING_A); +qbs_free(_FUNC_IDEHLEN_STRING_A); +} diff --git a/internal/source/free162.txt b/internal/source/free162.txt index 1ee4acfae..452b8a4fd 100644 --- a/internal/source/free162.txt +++ b/internal/source/free162.txt @@ -1,38 +1,5 @@ -if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])); +if(oldstr5346){ +if(oldstr5346->fixed)qbs_set(oldstr5346,_SUB_IDEHPRINT_STRING_A); +qbs_free(_SUB_IDEHPRINT_STRING_A); } -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDESUBS_STRING1_SEP); -qbs_free(_FUNC_IDESUBS_STRING_A); -qbs_free(_FUNC_IDESUBS_STRING_A2); -qbs_free(_FUNC_IDESUBS_STRING_LY); -qbs_free(_FUNC_IDESUBS_STRING_LYSORTED); -qbs_free(_FUNC_IDESUBS_STRING_L); -qbs_free(_FUNC_IDESUBS_STRING_LSORTED); -qbs_free(_FUNC_IDESUBS_STRING_NCA); -qbs_free(_FUNC_IDESUBS_STRING_SF); -qbs_free(_FUNC_IDESUBS_STRING_N); -qbs_free(_FUNC_IDESUBS_STRING_ARGS); -qbs_free(_FUNC_IDESUBS_STRING_N2); -if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){ -if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); -}else{ -free((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8] ); -if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){ -if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); -}else{ -free((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8] ); -qbs_free(_FUNC_IDESUBS_STRING_ALTLETTER); -qbs_free(_FUNC_IDESUBS_STRING_TARGETSOURCELINE); +qbs_free(_SUB_IDEHPRINT_STRING_C); diff --git a/internal/source/free163.txt b/internal/source/free163.txt index 08ad42ed6..3752049ad 100644 --- a/internal/source/free163.txt +++ b/internal/source/free163.txt @@ -1,11 +1,4 @@ -if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])); +if(oldstr5351){ +if(oldstr5351->fixed)qbs_set(oldstr5351,_SUB_IDEINSLINE_STRING_TEXT); +qbs_free(_SUB_IDEINSLINE_STRING_TEXT); } -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDELANGUAGEBOX_STRING1_SEP); -qbs_free(_FUNC_IDELANGUAGEBOX_STRING_L); -qbs_free(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER); diff --git a/internal/source/free164.txt b/internal/source/free164.txt index c7db6ec2d..910cc8737 100644 --- a/internal/source/free164.txt +++ b/internal/source/free164.txt @@ -1,21 +1,28 @@ -if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])); +if(oldstr5360){ +if(oldstr5360->fixed)qbs_set(oldstr5360,_FUNC_IDEINPUTBOX_STRING_TITLE); +qbs_free(_FUNC_IDEINPUTBOX_STRING_TITLE); +} +if(oldstr5361){ +if(oldstr5361->fixed)qbs_set(oldstr5361,_FUNC_IDEINPUTBOX_STRING_CAPTION); +qbs_free(_FUNC_IDEINPUTBOX_STRING_CAPTION); +} +if(oldstr5362){ +if(oldstr5362->fixed)qbs_set(oldstr5362,_FUNC_IDEINPUTBOX_STRING_INITIALVALUE); +qbs_free(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE); +} +if(oldstr5363){ +if(oldstr5363->fixed)qbs_set(oldstr5363,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT); +qbs_free(_FUNC_IDEINPUTBOX_STRING_VALIDINPUT); +} +if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])); }else{ -free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])); +free((void*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEWARNINGBOX_STRING1_SEP); -if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&1){ -if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0])); -}else{ -free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES)[8] ); -qbs_free(_FUNC_IDEWARNINGBOX_STRING_L); -qbs_free(_FUNC_IDEWARNINGBOX_STRING_L2); -qbs_free(_FUNC_IDEWARNINGBOX_STRING_L3); -qbs_free(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEINPUTBOX_STRING1_SEP); +qbs_free(_FUNC_IDEINPUTBOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDEINPUTBOX_STRING_A); +qbs_free(_FUNC_IDEINPUTBOX_STRING_TEMPA); diff --git a/internal/source/free165.txt b/internal/source/free165.txt index 544e67ae0..8d9c1a99d 100644 --- a/internal/source/free165.txt +++ b/internal/source/free165.txt @@ -1,21 +1,7 @@ -if(oldstr5034){ -if(oldstr5034->fixed)qbs_set(oldstr5034,_SUB_IDEOBJUPDATE_STRING_KK); -qbs_free(_SUB_IDEOBJUPDATE_STRING_KK); +if(oldstr5381){ +if(oldstr5381->fixed)qbs_set(oldstr5381,_SUB_IDENEWSF_STRING_SF); +qbs_free(_SUB_IDENEWSF_STRING_SF); } -if(oldstr5035){ -if(oldstr5035->fixed)qbs_set(oldstr5035,_SUB_IDEOBJUPDATE_STRING_ALTLETTER); -qbs_free(_SUB_IDEOBJUPDATE_STRING_ALTLETTER); -} -qbs_free(_SUB_IDEOBJUPDATE_STRING1_SEP); -qbs_free(_SUB_IDEOBJUPDATE_STRING_A); -qbs_free(_SUB_IDEOBJUPDATE_STRING_CLIP); -qbs_free(_SUB_IDEOBJUPDATE_STRING_A1); -qbs_free(_SUB_IDEOBJUPDATE_STRING_A2); -if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&1){ -tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]); -free((void*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8] ); -qbs_free(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS); -qbs_free(_SUB_IDEOBJUPDATE_STRING_A3); +qbs_free(_SUB_IDENEWSF_STRING_A); +qbs_free(_SUB_IDENEWSF_STRING_A2); +qbs_free(_SUB_IDENEWSF_STRING_NEWSF); diff --git a/internal/source/free166.txt b/internal/source/free166.txt index e69de29bb..13e169a06 100644 --- a/internal/source/free166.txt +++ b/internal/source/free166.txt @@ -0,0 +1,5 @@ +if(oldstr5389){ +if(oldstr5389->fixed)qbs_set(oldstr5389,_FUNC_IDENEWFOLDER_STRING_THISPATH); +qbs_free(_FUNC_IDENEWFOLDER_STRING_THISPATH); +} +qbs_free(_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); diff --git a/internal/source/free167.txt b/internal/source/free167.txt index e69de29bb..7af3f996d 100644 --- a/internal/source/free167.txt +++ b/internal/source/free167.txt @@ -0,0 +1,4 @@ +if(oldstr5394){ +if(oldstr5394->fixed)qbs_set(oldstr5394,_FUNC_IDENEWTXT_STRING_A); +qbs_free(_FUNC_IDENEWTXT_STRING_A); +} diff --git a/internal/source/free168.txt b/internal/source/free168.txt index e69de29bb..37f528a41 100644 --- a/internal/source/free168.txt +++ b/internal/source/free168.txt @@ -0,0 +1,4 @@ +qbs_free(_SUB_IDENOMATCH_STRING_MSG); +qbs_free(_SUB_IDENOMATCH_STRING_C); +qbs_free(_SUB_IDENOMATCH_STRING_FLAGS); +qbs_free(_SUB_IDENOMATCH_STRING_PL); diff --git a/internal/source/free169.txt b/internal/source/free169.txt index e69de29bb..4db90ebbf 100644 --- a/internal/source/free169.txt +++ b/internal/source/free169.txt @@ -0,0 +1,32 @@ +if(oldstr5395){ +if(oldstr5395->fixed)qbs_set(oldstr5395,_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME); +} +if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEFILEDIALOG_STRING1_SEP); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_PATH); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_FILELIST); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_PATHLIST); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_F); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_A); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_NEWPATH); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHRTAB); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_SPACE1); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_SPACE2); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_SPACE3); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_SPACE4); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR7); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR11); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR12); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR28); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR29); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR30); +qbs_free(_FUNC_IDEFILEDIALOG_STRING_CHR31); diff --git a/internal/source/free17.txt b/internal/source/free17.txt index effa77654..59671e82d 100644 --- a/internal/source/free17.txt +++ b/internal/source/free17.txt @@ -1,8 +1,2 @@ -if(oldstr2549){ -if(oldstr2549->fixed)qbs_set(oldstr2549,_FUNC_FINDID_STRING_N2); -qbs_free(_FUNC_FINDID_STRING_N2); -} -qbs_free(_FUNC_FINDID_STRING_N); -qbs_free(_FUNC_FINDID_STRING_SECONDARG); -qbs_free(_FUNC_FINDID_STRING_SC); -qbs_free(_FUNC_FINDID_STRING_INSF); +qbs_free(_FUNC_VARIABLESIZE_STRING_N); +qbs_free(_FUNC_VARIABLESIZE_STRING_S); diff --git a/internal/source/free170.txt b/internal/source/free170.txt index 79b1cd103..de1055f9e 100644 --- a/internal/source/free170.txt +++ b/internal/source/free170.txt @@ -1,9 +1,4 @@ -if(oldstr5095){ -if(oldstr5095->fixed)qbs_set(oldstr5095,_FUNC_IDEZCHANGEPATH_STRING_PATH); -qbs_free(_FUNC_IDEZCHANGEPATH_STRING_PATH); +if(oldstr5423){ +if(oldstr5423->fixed)qbs_set(oldstr5423,_SUB_IDEPAR_STRING_TITLE); +qbs_free(_SUB_IDEPAR_STRING_TITLE); } -if(oldstr5096){ -if(oldstr5096->fixed)qbs_set(oldstr5096,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); -qbs_free(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); -} -qbs_free(_FUNC_IDEZCHANGEPATH_STRING_A); diff --git a/internal/source/free171.txt b/internal/source/free171.txt index ccf7999a5..e69de29bb 100644 --- a/internal/source/free171.txt +++ b/internal/source/free171.txt @@ -1,8 +0,0 @@ -if(oldstr5104){ -if(oldstr5104->fixed)qbs_set(oldstr5104,_FUNC_IDEZFILELIST_STRING_PATH); -qbs_free(_FUNC_IDEZFILELIST_STRING_PATH); -} -qbs_free(_FUNC_IDEZFILELIST_STRING1_SEP); -qbs_free(_FUNC_IDEZFILELIST_STRING_FILELIST); -qbs_free(_FUNC_IDEZFILELIST_STRING_A); -qbs_free(_FUNC_IDEZFILELIST_STRING_A2); diff --git a/internal/source/free172.txt b/internal/source/free172.txt index 3756ab248..050a43445 100644 --- a/internal/source/free172.txt +++ b/internal/source/free172.txt @@ -1 +1,6 @@ -qbs_free(_FUNC_IDEZGETROOT_STRING_A); +if(oldstr5425){ +if(oldstr5425->fixed)qbs_set(oldstr5425,_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY); +qbs_free(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY); +} +qbs_free(_FUNC_IDECLEARHISTORY_STRING_T); +qbs_free(_FUNC_IDECLEARHISTORY_STRING_M); diff --git a/internal/source/free173.txt b/internal/source/free173.txt index 77debf71a..503f56495 100644 --- a/internal/source/free173.txt +++ b/internal/source/free173.txt @@ -1,9 +1,5 @@ -if(oldstr5119){ -if(oldstr5119->fixed)qbs_set(oldstr5119,_FUNC_IDEZPATHLIST_STRING_PATH); -qbs_free(_FUNC_IDEZPATHLIST_STRING_PATH); +if(oldstr5427){ +if(oldstr5427->fixed)qbs_set(oldstr5427,_SUB_IDESAVE_STRING_F); +qbs_free(_SUB_IDESAVE_STRING_F); } -qbs_free(_FUNC_IDEZPATHLIST_STRING1_SEP); -qbs_free(_FUNC_IDEZPATHLIST_STRING_A); -qbs_free(_FUNC_IDEZPATHLIST_STRING_PATHLIST); -qbs_free(_FUNC_IDEZPATHLIST_STRING_B); -qbs_free(_FUNC_IDEZPATHLIST_STRING_A2); +qbs_free(_SUB_IDESAVE_STRING_A); diff --git a/internal/source/free174.txt b/internal/source/free174.txt index fea7077f4..e3ccfc471 100644 --- a/internal/source/free174.txt +++ b/internal/source/free174.txt @@ -1,6 +1 @@ -if(oldstr5136){ -if(oldstr5136->fixed)qbs_set(oldstr5136,_FUNC_IDEZTAKEPATH_STRING_F); -qbs_free(_FUNC_IDEZTAKEPATH_STRING_F); -} -qbs_free(_FUNC_IDEZTAKEPATH_STRING_P); -qbs_free(_FUNC_IDEZTAKEPATH_STRING_A); +qbs_free(_FUNC_IDESAVENOW_STRING_M); diff --git a/internal/source/free175.txt b/internal/source/free175.txt index 45e3a1d45..73e7932ed 100644 --- a/internal/source/free175.txt +++ b/internal/source/free175.txt @@ -1,10 +1,4 @@ -if(oldstr5145){ -if(oldstr5145->fixed)qbs_set(oldstr5145,_FUNC_IDEZGETFILEPATH_STRING_ROOT); -qbs_free(_FUNC_IDEZGETFILEPATH_STRING_ROOT); +if(oldstr5432){ +if(oldstr5432->fixed)qbs_set(oldstr5432,_SUB_IDESETLINE_STRING_TEXT); +qbs_free(_SUB_IDESETLINE_STRING_TEXT); } -if(oldstr5146){ -if(oldstr5146->fixed)qbs_set(oldstr5146,_FUNC_IDEZGETFILEPATH_STRING_F); -qbs_free(_FUNC_IDEZGETFILEPATH_STRING_F); -} -qbs_free(_FUNC_IDEZGETFILEPATH_STRING_P); -qbs_free(_FUNC_IDEZGETFILEPATH_STRING_P2); diff --git a/internal/source/free177.txt b/internal/source/free177.txt index f5c3cd965..3c57080b9 100644 --- a/internal/source/free177.txt +++ b/internal/source/free177.txt @@ -1,13 +1,15 @@ -if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDELAYOUTBOX_STRING1_SEP); -qbs_free(_FUNC_IDELAYOUTBOX_STRING_A2); -qbs_free(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER); -qbs_free(_FUNC_IDELAYOUTBOX_STRING_A); -qbs_free(_FUNC_IDELAYOUTBOX_STRING_V); +qbs_free(_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP); +qbs_free(_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR); +qbs_free(_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR); +qbs_free(_SUB_IDESHOWTEXT_STRING_A); +qbs_free(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD); +qbs_free(_SUB_IDESHOWTEXT_STRING_TEMPLIST); +qbs_free(_SUB_IDESHOWTEXT_STRING_B); +qbs_free(_SUB_IDESHOWTEXT_STRING_A2); +qbs_free(_SUB_IDESHOWTEXT_STRING_P); +qbs_free(_SUB_IDESHOWTEXT_STRING_F); +qbs_free(_SUB_IDESHOWTEXT_STRING_OLDCHAR); +qbs_free(_SUB_IDESHOWTEXT_STRING_THISCHAR); +qbs_free(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP); +qbs_free(_SUB_IDESHOWTEXT_STRING_C); +qbs_free(_SUB_IDESHOWTEXT_STRING_L2); diff --git a/internal/source/free178.txt b/internal/source/free178.txt index 4c413d044..49938c980 100644 --- a/internal/source/free178.txt +++ b/internal/source/free178.txt @@ -1,13 +1,79 @@ -if (_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])); +if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])); }else{ -free((void*)(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])); +free((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEBACKUPBOX_STRING1_SEP); -qbs_free(_FUNC_IDEBACKUPBOX_STRING_A2); -qbs_free(_FUNC_IDEBACKUPBOX_STRING_ALTLETTER); -qbs_free(_FUNC_IDEBACKUPBOX_STRING_A); -qbs_free(_FUNC_IDEBACKUPBOX_STRING_V); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDESUBS_STRING1_SEP); +qbs_free(_FUNC_IDESUBS_STRING_A2); +qbs_free(_FUNC_IDESUBS_STRING_L); +qbs_free(_FUNC_IDESUBS_STRING_LY); +qbs_free(_FUNC_IDESUBS_STRING_LYSORTED); +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){ +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8] ); +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){ +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8] ); +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){ +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8] ); +if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){ +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]); +free((void*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8] ); +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){ +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8] ); +if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){ +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]); +free((void*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8] ); +if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){ +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]); +free((void*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8] ); +qbs_free(_FUNC_IDESUBS_STRING_A); +qbs_free(_FUNC_IDESUBS_STRING_NCA); +qbs_free(_FUNC_IDESUBS_STRING_SF); +qbs_free(_FUNC_IDESUBS_STRING_N); +qbs_free(_FUNC_IDESUBS_STRING_ARGS); +qbs_free(_FUNC_IDESUBS_STRING_N2); +qbs_free(_FUNC_IDESUBS_STRING_LINESHEADER); +qbs_free(_FUNC_IDESUBS_STRING_EXTERNAL); +qbs_free(_FUNC_IDESUBS_STRING_LSIZED); +qbs_free(_FUNC_IDESUBS_STRING_LSORTEDSIZED); +qbs_free(_FUNC_IDESUBS_STRING_LSORTED); +qbs_free(_FUNC_IDESUBS_STRING_NUM); +qbs_free(_FUNC_IDESUBS_STRING_LISTITEM); +qbs_free(_FUNC_IDESUBS_STRING_TEMP); +qbs_free(_FUNC_IDESUBS_STRING_ALTLETTER); +qbs_free(_FUNC_IDESUBS_STRING_TARGETSOURCELINE); diff --git a/internal/source/free179.txt b/internal/source/free179.txt index 519b3790d..08ad42ed6 100644 --- a/internal/source/free179.txt +++ b/internal/source/free179.txt @@ -1,11 +1,11 @@ -if (_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])); +if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])); }else{ -free((void*)(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])); +free((void*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP); -qbs_free(_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2); -qbs_free(_FUNC_IDEMODIFYCOMMANDBOX_STRING_ALTLETTER); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDELANGUAGEBOX_STRING1_SEP); +qbs_free(_FUNC_IDELANGUAGEBOX_STRING_L); +qbs_free(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER); diff --git a/internal/source/free18.txt b/internal/source/free18.txt index 10dd5c136..2522e13c7 100644 --- a/internal/source/free18.txt +++ b/internal/source/free18.txt @@ -1,7 +1,12 @@ -if(oldstr2564){ -if(oldstr2564->fixed)qbs_set(oldstr2564,_FUNC_FINDARRAY_STRING_SECURE); -qbs_free(_FUNC_FINDARRAY_STRING_SECURE); +if(oldstr2715){ +if(oldstr2715->fixed)qbs_set(oldstr2715,_FUNC_EVALUATETOTYP_STRING_A2); +qbs_free(_FUNC_EVALUATETOTYP_STRING_A2); } -qbs_free(_FUNC_FINDARRAY_STRING_N); -qbs_free(_FUNC_FINDARRAY_STRING_SC); -qbs_free(_FUNC_FINDARRAY_STRING_N2); +qbs_free(_FUNC_EVALUATETOTYP_STRING_A); +qbs_free(_FUNC_EVALUATETOTYP_STRING_E); +qbs_free(_FUNC_EVALUATETOTYP_STRING_O); +qbs_free(_FUNC_EVALUATETOTYP_STRING_N); +qbs_free(_FUNC_EVALUATETOTYP_STRING_DST); +qbs_free(_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_free(_FUNC_EVALUATETOTYP_STRING_LK); +qbs_free(_FUNC_EVALUATETOTYP_STRING_INDEX); diff --git a/internal/source/free180.txt b/internal/source/free180.txt index 4ed38350d..26cc09e13 100644 --- a/internal/source/free180.txt +++ b/internal/source/free180.txt @@ -1,13 +1,15 @@ -if (_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])); +if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])); }else{ -free((void*)(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])); +free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEGOTOBOX_STRING1_SEP); -qbs_free(_FUNC_IDEGOTOBOX_STRING_A2); -qbs_free(_FUNC_IDEGOTOBOX_STRING_ALTLETTER); -qbs_free(_FUNC_IDEGOTOBOX_STRING_A); -qbs_free(_FUNC_IDEGOTOBOX_STRING_V); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEWARNINGBOX_STRING1_SEP); +qbs_free(_FUNC_IDEWARNINGBOX_STRING_THISPROG); +qbs_free(_FUNC_IDEWARNINGBOX_STRING_L); +qbs_free(_FUNC_IDEWARNINGBOX_STRING_L3); +qbs_free(_FUNC_IDEWARNINGBOX_STRING_NUM); +qbs_free(_FUNC_IDEWARNINGBOX_STRING_TEXT); +qbs_free(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER); diff --git a/internal/source/free181.txt b/internal/source/free181.txt index 0f89fdd44..4b1c46f80 100644 --- a/internal/source/free181.txt +++ b/internal/source/free181.txt @@ -1,16 +1,26 @@ -if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])); +if(oldstr5636){ +if(oldstr5636->fixed)qbs_set(oldstr5636,_SUB_IDEOBJUPDATE_STRING_KK); +qbs_free(_SUB_IDEOBJUPDATE_STRING_KK); } +if(oldstr5637){ +if(oldstr5637->fixed)qbs_set(oldstr5637,_SUB_IDEOBJUPDATE_STRING_ALTLETTER); +qbs_free(_SUB_IDEOBJUPDATE_STRING_ALTLETTER); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEADVANCEDBOX_STRING1_SEP); -if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&1){ -tmp_long=_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long]); -free((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0])); +qbs_free(_SUB_IDEOBJUPDATE_STRING1_SEP); +qbs_free(_SUB_IDEOBJUPDATE_STRING_A); +qbs_free(_SUB_IDEOBJUPDATE_STRING_CLIP); +qbs_free(_SUB_IDEOBJUPDATE_STRING_A1); +qbs_free(_SUB_IDEOBJUPDATE_STRING_A2); +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&1){ +tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]); +free((void*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0])); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT)[8] ); -qbs_free(_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER); +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8] ); +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&1){ +tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]); +free((void*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS)[8] ); +qbs_free(_SUB_IDEOBJUPDATE_STRING_A3); diff --git a/internal/source/free182.txt b/internal/source/free182.txt index b33d64858..e69de29bb 100644 --- a/internal/source/free182.txt +++ b/internal/source/free182.txt @@ -1,24 +0,0 @@ -if(oldstr5231){ -if(oldstr5231->fixed)qbs_set(oldstr5231,_SUB_IDEMESSAGEBOX_STRING_TITLESTR); -qbs_free(_SUB_IDEMESSAGEBOX_STRING_TITLESTR); -} -if(oldstr5232){ -if(oldstr5232->fixed)qbs_set(oldstr5232,_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR); -qbs_free(_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR); -} -if (_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]&1){ -if (_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O)[8] ); -qbs_free(_SUB_IDEMESSAGEBOX_STRING1_SEP); -if (_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ -tmp_long=_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]); -free((void*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE)[8] ); -qbs_free(_SUB_IDEMESSAGEBOX_STRING_ALTLETTER); diff --git a/internal/source/free183.txt b/internal/source/free183.txt index 54c31c115..e69de29bb 100644 --- a/internal/source/free183.txt +++ b/internal/source/free183.txt @@ -1,18 +0,0 @@ -if(oldstr5251){ -if(oldstr5251->fixed)qbs_set(oldstr5251,_FUNC_IDEYESNOBOX_STRING_TITLESTR); -qbs_free(_FUNC_IDEYESNOBOX_STRING_TITLESTR); -} -if(oldstr5252){ -if(oldstr5252->fixed)qbs_set(oldstr5252,_FUNC_IDEYESNOBOX_STRING_MESSAGESTR); -qbs_free(_FUNC_IDEYESNOBOX_STRING_MESSAGESTR); -} -if (_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEYESNOBOX_STRING1_SEP); -qbs_free(_FUNC_IDEYESNOBOX_STRING_ALTLETTER); diff --git a/internal/source/free184.txt b/internal/source/free184.txt index 0d22468c5..ff92122ea 100644 --- a/internal/source/free184.txt +++ b/internal/source/free184.txt @@ -1,13 +1,9 @@ -if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])); +if(oldstr5695){ +if(oldstr5695->fixed)qbs_set(oldstr5695,_FUNC_IDEZCHANGEPATH_STRING_PATH); +qbs_free(_FUNC_IDEZCHANGEPATH_STRING_PATH); } +if(oldstr5696){ +if(oldstr5696->fixed)qbs_set(oldstr5696,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); +qbs_free(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEDISPLAYBOX_STRING1_SEP); -qbs_free(_FUNC_IDEDISPLAYBOX_STRING_A2); -qbs_free(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER); -qbs_free(_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_free(_FUNC_IDEDISPLAYBOX_STRING_V); +qbs_free(_FUNC_IDEZCHANGEPATH_STRING_A); diff --git a/internal/source/free185.txt b/internal/source/free185.txt index 618456470..4872c9351 100644 --- a/internal/source/free185.txt +++ b/internal/source/free185.txt @@ -1,31 +1,12 @@ -if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&1){ -tmp_long=_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long]); -free((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0])); +if(oldstr5704){ +if(oldstr5704->fixed)qbs_set(oldstr5704,_FUNC_IDEZFILELIST_STRING_PATH); +qbs_free(_FUNC_IDEZFILELIST_STRING_PATH); } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR)[8] ); -if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])); +if(oldstr5705){ +if(oldstr5705->fixed)qbs_set(oldstr5705,_FUNC_IDEZFILELIST_STRING_MASK); +qbs_free(_FUNC_IDEZFILELIST_STRING_MASK); } -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_L); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_R); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_G); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_B); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_A); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID); -qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_RGBSTRING); +qbs_free(_FUNC_IDEZFILELIST_STRING1_SEP); +qbs_free(_FUNC_IDEZFILELIST_STRING_FILELIST); +qbs_free(_FUNC_IDEZFILELIST_STRING_A); +qbs_free(_FUNC_IDEZFILELIST_STRING_A2); diff --git a/internal/source/free186.txt b/internal/source/free186.txt index b22e829ca..3756ab248 100644 --- a/internal/source/free186.txt +++ b/internal/source/free186.txt @@ -1,23 +1 @@ -if (_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDECOLORPICKER_STRING1_SEP); -qbs_free(_FUNC_IDECOLORPICKER_STRING_A2); -qbs_free(_FUNC_IDECOLORPICKER_STRING_A); -qbs_free(_FUNC_IDECOLORPICKER_STRING_ALL_RGB); -qbs_free(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE); -qbs_free(_FUNC_IDECOLORPICKER_STRING_RGBARGS); -qbs_free(_FUNC_IDECOLORPICKER_STRING_R); -qbs_free(_FUNC_IDECOLORPICKER_STRING_G); -qbs_free(_FUNC_IDECOLORPICKER_STRING_B); -qbs_free(_FUNC_IDECOLORPICKER_STRING_SLIDER); -qbs_free(_FUNC_IDECOLORPICKER_STRING_ALTLETTER); -qbs_free(_FUNC_IDECOLORPICKER_STRING_CURRENTRGB); -qbs_free(_FUNC_IDECOLORPICKER_STRING_OLDRGB); -qbs_free(_FUNC_IDECOLORPICKER_STRING_NEWLINE); -qbs_free(_FUNC_IDECOLORPICKER_STRING_DETAIL); +qbs_free(_FUNC_IDEZGETROOT_STRING_A); diff --git a/internal/source/free187.txt b/internal/source/free187.txt index 204d75e59..e168d6851 100644 --- a/internal/source/free187.txt +++ b/internal/source/free187.txt @@ -1,8 +1,9 @@ -if(oldstr5460){ -if(oldstr5460->fixed)qbs_set(oldstr5460,_FUNC_COUNTITEMS_STRING_SEARCHSTRING); -qbs_free(_FUNC_COUNTITEMS_STRING_SEARCHSTRING); -} -if(oldstr5461){ -if(oldstr5461->fixed)qbs_set(oldstr5461,_FUNC_COUNTITEMS_STRING_ITEM); -qbs_free(_FUNC_COUNTITEMS_STRING_ITEM); +if(oldstr5720){ +if(oldstr5720->fixed)qbs_set(oldstr5720,_FUNC_IDEZPATHLIST_STRING_PATH); +qbs_free(_FUNC_IDEZPATHLIST_STRING_PATH); } +qbs_free(_FUNC_IDEZPATHLIST_STRING1_SEP); +qbs_free(_FUNC_IDEZPATHLIST_STRING_A); +qbs_free(_FUNC_IDEZPATHLIST_STRING_PATHLIST); +qbs_free(_FUNC_IDEZPATHLIST_STRING_B); +qbs_free(_FUNC_IDEZPATHLIST_STRING_A2); diff --git a/internal/source/free188.txt b/internal/source/free188.txt index e69de29bb..80edc469d 100644 --- a/internal/source/free188.txt +++ b/internal/source/free188.txt @@ -0,0 +1,6 @@ +if(oldstr5737){ +if(oldstr5737->fixed)qbs_set(oldstr5737,_FUNC_IDEZTAKEPATH_STRING_F); +qbs_free(_FUNC_IDEZTAKEPATH_STRING_F); +} +qbs_free(_FUNC_IDEZTAKEPATH_STRING_P); +qbs_free(_FUNC_IDEZTAKEPATH_STRING_A); diff --git a/internal/source/free189.txt b/internal/source/free189.txt index e69de29bb..5b0364839 100644 --- a/internal/source/free189.txt +++ b/internal/source/free189.txt @@ -0,0 +1,10 @@ +if(oldstr5742){ +if(oldstr5742->fixed)qbs_set(oldstr5742,_FUNC_IDEZGETFILEPATH_STRING_ROOT); +qbs_free(_FUNC_IDEZGETFILEPATH_STRING_ROOT); +} +if(oldstr5743){ +if(oldstr5743->fixed)qbs_set(oldstr5743,_FUNC_IDEZGETFILEPATH_STRING_F); +qbs_free(_FUNC_IDEZGETFILEPATH_STRING_F); +} +qbs_free(_FUNC_IDEZGETFILEPATH_STRING_P); +qbs_free(_FUNC_IDEZGETFILEPATH_STRING_P2); diff --git a/internal/source/free19.txt b/internal/source/free19.txt index b6ad62095..c5095f620 100644 --- a/internal/source/free19.txt +++ b/internal/source/free19.txt @@ -1,27 +1,9 @@ -if(oldstr2578){ -if(oldstr2578->fixed)qbs_set(oldstr2578,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_SAVEA); +if(oldstr2762){ +if(oldstr2762->fixed)qbs_set(oldstr2762,_FUNC_FINDID_STRING_N2); +qbs_free(_FUNC_FINDID_STRING_N2); } -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_A); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TEMP1); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TEMP2); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_B1); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_B2); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_A3); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_F); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_F3); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_S); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_E); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_ES); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_ES2); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_U); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_DTYP); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_FF); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_AA); -qbs_free(_FUNC_FIXOPERATIONORDER_STRING_FOO); +qbs_free(_FUNC_FINDID_STRING_N); +qbs_free(_FUNC_FINDID_STRING_SECONDARG); +qbs_free(_FUNC_FINDID_STRING_SC); +qbs_free(_FUNC_FINDID_STRING_INSF); +qbs_free(_FUNC_FINDID_STRING_TEMP); diff --git a/internal/source/free190.txt b/internal/source/free190.txt index e69de29bb..f5c3cd965 100644 --- a/internal/source/free190.txt +++ b/internal/source/free190.txt @@ -0,0 +1,13 @@ +if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDELAYOUTBOX_STRING1_SEP); +qbs_free(_FUNC_IDELAYOUTBOX_STRING_A2); +qbs_free(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDELAYOUTBOX_STRING_A); +qbs_free(_FUNC_IDELAYOUTBOX_STRING_V); diff --git a/internal/source/free191.txt b/internal/source/free191.txt index e05ebbc2d..e98f6b9d1 100644 --- a/internal/source/free191.txt +++ b/internal/source/free191.txt @@ -1 +1,2 @@ -qbs_free(_SUB_HELP_SHOWTEXT_STRING_A); +qbs_free(_FUNC_IDEBACKUPBOX_STRING_A2); +qbs_free(_FUNC_IDEBACKUPBOX_STRING_V); diff --git a/internal/source/free192.txt b/internal/source/free192.txt index aaa1895ff..2204b4750 100644 --- a/internal/source/free192.txt +++ b/internal/source/free192.txt @@ -1,13 +1,2 @@ -if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDESEARCHEDBOX_STRING1_SEP); -qbs_free(_FUNC_IDESEARCHEDBOX_STRING_L); -qbs_free(_FUNC_IDESEARCHEDBOX_STRING_A); -qbs_free(_FUNC_IDESEARCHEDBOX_STRING_F); -qbs_free(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER); +qbs_free(_SUB_IDEGOTOBOX_STRING_A2); +qbs_free(_SUB_IDEGOTOBOX_STRING_V); diff --git a/internal/source/free193.txt b/internal/source/free193.txt index ab8b724d6..c76d69d97 100644 --- a/internal/source/free193.txt +++ b/internal/source/free193.txt @@ -1,7 +1,2 @@ -if(oldstr5492){ -if(oldstr5492->fixed)qbs_set(oldstr5492,_SUB_IDEIMPORTBOOKMARKS_STRING_F2); -qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_F2); -} -qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_F); -qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_A); -qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_D); +qbs_free(_SUB_IDESETTCPPORTBOX_STRING_A2); +qbs_free(_SUB_IDESETTCPPORTBOX_STRING_V); diff --git a/internal/source/free194.txt b/internal/source/free194.txt index ee7e803e1..3befca2fb 100644 --- a/internal/source/free194.txt +++ b/internal/source/free194.txt @@ -1,7 +1,6 @@ -if(oldstr5497){ -if(oldstr5497->fixed)qbs_set(oldstr5497,_SUB_IDESAVEBOOKMARKS_STRING_F2); -qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_F2); +if(oldstr5772){ +if(oldstr5772->fixed)qbs_set(oldstr5772,_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE); +qbs_free(_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE); } -qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_F); -qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_A); -qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_D); +qbs_free(_FUNC_IDEGETLINENUMBERBOX_STRING_A2); +qbs_free(_FUNC_IDEGETLINENUMBERBOX_STRING_V); diff --git a/internal/source/free195.txt b/internal/source/free195.txt index dceba582d..0f89fdd44 100644 --- a/internal/source/free195.txt +++ b/internal/source/free195.txt @@ -1,13 +1,16 @@ -if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])); +if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])); }else{ -free((void*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])); +free((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDERECENTBOX_STRING1_SEP); -qbs_free(_FUNC_IDERECENTBOX_STRING_L); -qbs_free(_FUNC_IDERECENTBOX_STRING_A); -qbs_free(_FUNC_IDERECENTBOX_STRING_F); -qbs_free(_FUNC_IDERECENTBOX_STRING_ALTLETTER); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEADVANCEDBOX_STRING1_SEP); +if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&1){ +tmp_long=_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long]); +free((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT)[8] ); +qbs_free(_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER); diff --git a/internal/source/free196.txt b/internal/source/free196.txt index 97b07763a..94bb726df 100644 --- a/internal/source/free196.txt +++ b/internal/source/free196.txt @@ -1,2 +1,28 @@ -qbs_free(_SUB_IDEMAKEFILEMENU_STRING_A); -qbs_free(_SUB_IDEMAKEFILEMENU_STRING_F); +if(oldstr5789){ +if(oldstr5789->fixed)qbs_set(oldstr5789,_FUNC_IDEMESSAGEBOX_STRING_TITLESTR); +qbs_free(_FUNC_IDEMESSAGEBOX_STRING_TITLESTR); +} +if(oldstr5790){ +if(oldstr5790->fixed)qbs_set(oldstr5790,_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR); +qbs_free(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR); +} +if(oldstr5791){ +if(oldstr5791->fixed)qbs_set(oldstr5791,_FUNC_IDEMESSAGEBOX_STRING_BUTTONS); +qbs_free(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS); +} +if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEMESSAGEBOX_STRING1_SEP); +if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +tmp_long=_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]); +free((void*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE)[8] ); +qbs_free(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER); diff --git a/internal/source/free197.txt b/internal/source/free197.txt index 354084885..013e3e1a8 100644 --- a/internal/source/free197.txt +++ b/internal/source/free197.txt @@ -1,17 +1,8 @@ -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_A); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_N); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_LNKS); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_L); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2); -qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP); +if(oldstr5814){ +if(oldstr5814->fixed)qbs_set(oldstr5814,_FUNC_IDEYESNOBOX_STRING_TITLESTR); +qbs_free(_FUNC_IDEYESNOBOX_STRING_TITLESTR); +} +if(oldstr5815){ +if(oldstr5815->fixed)qbs_set(oldstr5815,_FUNC_IDEYESNOBOX_STRING_MESSAGESTR); +qbs_free(_FUNC_IDEYESNOBOX_STRING_MESSAGESTR); +} diff --git a/internal/source/free198.txt b/internal/source/free198.txt index 1e9a39033..1b17baa32 100644 --- a/internal/source/free198.txt +++ b/internal/source/free198.txt @@ -1,3 +1,16 @@ -qbs_free(_SUB_IDEMAKEEDITMENU_STRING_CLIP); -qbs_free(_SUB_IDEMAKEEDITMENU_STRING_A); -qbs_free(_SUB_IDEMAKEEDITMENU_STRING_A2); +if(oldstr5816){ +if(oldstr5816->fixed)qbs_set(oldstr5816,_FUNC_IDEACTIVITYBOX_STRING_ACTION); +qbs_free(_FUNC_IDEACTIVITYBOX_STRING_ACTION); +} +if(oldstr5817){ +if(oldstr5817->fixed)qbs_set(oldstr5817,_FUNC_IDEACTIVITYBOX_STRING_TITLESTR); +qbs_free(_FUNC_IDEACTIVITYBOX_STRING_TITLESTR); +} +if(oldstr5818){ +if(oldstr5818->fixed)qbs_set(oldstr5818,_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR); +qbs_free(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR); +} +if(oldstr5819){ +if(oldstr5819->fixed)qbs_set(oldstr5819,_FUNC_IDEACTIVITYBOX_STRING_BUTTONS); +qbs_free(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS); +} diff --git a/internal/source/free199.txt b/internal/source/free199.txt index eb96c8a67..be0a95a9b 100644 --- a/internal/source/free199.txt +++ b/internal/source/free199.txt @@ -1,6 +1,15 @@ -if(oldstr5575){ -if(oldstr5575->fixed)qbs_set(oldstr5575,_SUB_IDEADDRECENT_STRING_F2); -qbs_free(_SUB_IDEADDRECENT_STRING_F2); +if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])); } -qbs_free(_SUB_IDEADDRECENT_STRING_F); -qbs_free(_SUB_IDEADDRECENT_STRING_A); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING1_SEP); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING_A2); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_free(_FUNC_IDEDISPLAYBOX_STRING_V); diff --git a/internal/source/free20.txt b/internal/source/free20.txt index dda98fd7b..44a3a3987 100644 --- a/internal/source/free20.txt +++ b/internal/source/free20.txt @@ -1,5 +1,7 @@ -if(oldstr2709){ -if(oldstr2709->fixed)qbs_set(oldstr2709,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); -qbs_free(_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); +if(oldstr2774){ +if(oldstr2774->fixed)qbs_set(oldstr2774,_FUNC_FINDARRAY_STRING_SECURE); +qbs_free(_FUNC_FINDARRAY_STRING_SECURE); } -qbs_free(_FUNC_GETELEMENTSPECIAL_STRING_A); +qbs_free(_FUNC_FINDARRAY_STRING_N); +qbs_free(_FUNC_FINDARRAY_STRING_SC); +qbs_free(_FUNC_FINDARRAY_STRING_N2); diff --git a/internal/source/free200.txt b/internal/source/free200.txt index 4a7013886..0f2de520f 100644 --- a/internal/source/free200.txt +++ b/internal/source/free200.txt @@ -1,6 +1,30 @@ -if(oldstr5579){ -if(oldstr5579->fixed)qbs_set(oldstr5579,_SUB_IDEADDSEARCHED_STRING_S2); -qbs_free(_SUB_IDEADDSEARCHED_STRING_S2); +if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&1){ +tmp_long=_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long]); +free((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0])); } -qbs_free(_SUB_IDEADDSEARCHED_STRING_S); -qbs_free(_SUB_IDEADDSEARCHED_STRING_A); +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR)[8] ); +if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_L); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_R); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_G); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_B); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_A); +qbs_free(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID); diff --git a/internal/source/free201.txt b/internal/source/free201.txt index 4a4d465a8..213577d6f 100644 --- a/internal/source/free201.txt +++ b/internal/source/free201.txt @@ -1,5 +1,21 @@ -qbs_free(_SUB_IDEASCIIBOX_STRING_TEXT); -qbs_free(_SUB_IDEASCIIBOX_STRING_A); -qbs_free(_SUB_IDEASCIIBOX_STRING_L); -qbs_free(_SUB_IDEASCIIBOX_STRING_R); -qbs_free(_SUB_IDEASCIIBOX_STRING_M); +if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDERGBMIXER_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDERGBMIXER_STRING1_SEP); +qbs_free(_FUNC_IDERGBMIXER_STRING_A2); +qbs_free(_FUNC_IDERGBMIXER_STRING_A); +qbs_free(_FUNC_IDERGBMIXER_STRING_ALL_RGB); +qbs_free(_FUNC_IDERGBMIXER_STRING_CURRENTLINE); +qbs_free(_FUNC_IDERGBMIXER_STRING_R); +qbs_free(_FUNC_IDERGBMIXER_STRING_G); +qbs_free(_FUNC_IDERGBMIXER_STRING_B); +qbs_free(_FUNC_IDERGBMIXER_STRING_SLIDER); +qbs_free(_FUNC_IDERGBMIXER_STRING_ALTLETTER); +qbs_free(_FUNC_IDERGBMIXER_STRING_CURRENTRGB); +qbs_free(_FUNC_IDERGBMIXER_STRING_OLDRGB); +qbs_free(_FUNC_IDERGBMIXER_STRING_NEWLINE); diff --git a/internal/source/free202.txt b/internal/source/free202.txt index 9803d7d58..cb725231d 100644 --- a/internal/source/free202.txt +++ b/internal/source/free202.txt @@ -1,15 +1,8 @@ -if(oldstr5602){ -if(oldstr5602->fixed)qbs_set(oldstr5602,_FUNC_IDEF1BOX_STRING_LNKS); -qbs_free(_FUNC_IDEF1BOX_STRING_LNKS); +if(oldstr6036){ +if(oldstr6036->fixed)qbs_set(oldstr6036,_FUNC_COUNTITEMS_STRING_SEARCHSTRING); +qbs_free(_FUNC_COUNTITEMS_STRING_SEARCHSTRING); } -if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&1){ -if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])); +if(oldstr6037){ +if(oldstr6037->fixed)qbs_set(oldstr6037,_FUNC_COUNTITEMS_STRING_ITEM); +qbs_free(_FUNC_COUNTITEMS_STRING_ITEM); } -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEF1BOX_ARRAY_UDT_O)[8] ); -qbs_free(_FUNC_IDEF1BOX_STRING1_SEP); -qbs_free(_FUNC_IDEF1BOX_STRING_ALTLETTER); -qbs_free(_FUNC_IDEF1BOX_STRING_F); diff --git a/internal/source/free203.txt b/internal/source/free203.txt index 2272450a3..e69de29bb 100644 --- a/internal/source/free203.txt +++ b/internal/source/free203.txt @@ -1,19 +0,0 @@ -if (_SUB_MATHBOX_ARRAY_UDT_O[2]&1){ -if (_SUB_MATHBOX_ARRAY_UDT_O[2]&4){ -cmem_dynamic_free((uint8*)(_SUB_MATHBOX_ARRAY_UDT_O[0])); -}else{ -free((void*)(_SUB_MATHBOX_ARRAY_UDT_O[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_MATHBOX_ARRAY_UDT_O)[8] ); -qbs_free(_SUB_MATHBOX_STRING1_SEP); -qbs_free(_SUB_MATHBOX_STRING_TITLESTR); -qbs_free(_SUB_MATHBOX_STRING_MESSAGESTR); -qbs_free(_SUB_MATHBOX_STRING_ALTLETTER); -qbs_free(_SUB_MATHBOX_STRING_TEMP); -qbs_free(_SUB_MATHBOX_STRING_EV); -qbs_free(_SUB_MATHBOX_STRING_A); -qbs_free(_SUB_MATHBOX_STRING_L); -qbs_free(_SUB_MATHBOX_STRING_R); -qbs_free(_SUB_MATHBOX_STRING_TEXT); -qbs_free(_SUB_MATHBOX_STRING_M); diff --git a/internal/source/free204.txt b/internal/source/free204.txt index 9b9e5f81f..e69de29bb 100644 --- a/internal/source/free204.txt +++ b/internal/source/free204.txt @@ -1 +0,0 @@ -qbs_free(_SUB_SORT_STRING_X); diff --git a/internal/source/free205.txt b/internal/source/free205.txt index 2493ea7fa..e69de29bb 100644 --- a/internal/source/free205.txt +++ b/internal/source/free205.txt @@ -1,5 +0,0 @@ -qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE); -qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE); -qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS); -qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR); -qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE); diff --git a/internal/source/free206.txt b/internal/source/free206.txt index 161350706..e69de29bb 100644 --- a/internal/source/free206.txt +++ b/internal/source/free206.txt @@ -1,3 +0,0 @@ -qbs_free(_FUNC_FINDCURRENTSF_STRING_SFNAME); -qbs_free(_FUNC_FINDCURRENTSF_STRING_THISLINE); -qbs_free(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE); diff --git a/internal/source/free207.txt b/internal/source/free207.txt index e69de29bb..e05ebbc2d 100644 --- a/internal/source/free207.txt +++ b/internal/source/free207.txt @@ -0,0 +1 @@ +qbs_free(_SUB_HELP_SHOWTEXT_STRING_A); diff --git a/internal/source/free208.txt b/internal/source/free208.txt index 3a99a754d..aaa1895ff 100644 --- a/internal/source/free208.txt +++ b/internal/source/free208.txt @@ -1 +1,13 @@ -qbs_free(_SUB_UPDATEIDEINFO_STRING_A); +if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDESEARCHEDBOX_STRING1_SEP); +qbs_free(_FUNC_IDESEARCHEDBOX_STRING_L); +qbs_free(_FUNC_IDESEARCHEDBOX_STRING_A); +qbs_free(_FUNC_IDESEARCHEDBOX_STRING_F); +qbs_free(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER); diff --git a/internal/source/free209.txt b/internal/source/free209.txt index e69de29bb..4daa4447e 100644 --- a/internal/source/free209.txt +++ b/internal/source/free209.txt @@ -0,0 +1,7 @@ +if(oldstr6069){ +if(oldstr6069->fixed)qbs_set(oldstr6069,_SUB_IDEIMPORTBOOKMARKS_STRING_F2); +qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_F2); +} +qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_F); +qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_A); +qbs_free(_SUB_IDEIMPORTBOOKMARKS_STRING_D); diff --git a/internal/source/free21.txt b/internal/source/free21.txt index b49dd244f..18f3f0205 100644 --- a/internal/source/free21.txt +++ b/internal/source/free21.txt @@ -1,4 +1,27 @@ -if(oldstr2711){ -if(oldstr2711->fixed)qbs_set(oldstr2711,_FUNC_GETELEMENT_STRING_A); -qbs_free(_FUNC_GETELEMENT_STRING_A); +if(oldstr2788){ +if(oldstr2788->fixed)qbs_set(oldstr2788,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_SAVEA); } +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_A); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TEMP1); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TEMP2); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_B1); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_B2); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_A3); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_F); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_F3); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_S); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_E); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_ES); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_ES2); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_U); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_DTYP); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_FF); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_AA); +qbs_free(_FUNC_FIXOPERATIONORDER_STRING_FOO); diff --git a/internal/source/free210.txt b/internal/source/free210.txt index e69de29bb..b8ac9d4af 100644 --- a/internal/source/free210.txt +++ b/internal/source/free210.txt @@ -0,0 +1,7 @@ +if(oldstr6078){ +if(oldstr6078->fixed)qbs_set(oldstr6078,_SUB_IDESAVEBOOKMARKS_STRING_F2); +qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_F2); +} +qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_F); +qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_A); +qbs_free(_SUB_IDESAVEBOOKMARKS_STRING_D); diff --git a/internal/source/free211.txt b/internal/source/free211.txt index eb6c27dca..3da976b05 100644 --- a/internal/source/free211.txt +++ b/internal/source/free211.txt @@ -1,2 +1,19 @@ -qbs_free(_SUB_LOADCOLORSCHEMES_STRING_VALUE); -qbs_free(_SUB_LOADCOLORSCHEMES_STRING_TEMP); +if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDERECENTBOX_STRING1_SEP); +qbs_free(_FUNC_IDERECENTBOX_STRING_L); +qbs_free(_FUNC_IDERECENTBOX_STRING_A); +if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&1){ +tmp_long=_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long]); +free((void*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST)[8] ); +qbs_free(_FUNC_IDERECENTBOX_STRING_F); +qbs_free(_FUNC_IDERECENTBOX_STRING_ALTLETTER); diff --git a/internal/source/free212.txt b/internal/source/free212.txt index af5932216..97b07763a 100644 --- a/internal/source/free212.txt +++ b/internal/source/free212.txt @@ -1,17 +1,2 @@ -if(oldstr5668){ -if(oldstr5668->fixed)qbs_set(oldstr5668,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK); -} -if(oldstr5669){ -if(oldstr5669->fixed)qbs_set(oldstr5669,_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK); -} -if(oldstr5670){ -if(oldstr5670->fixed)qbs_set(oldstr5670,_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK); -} -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_A); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_WHAT); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_OFILE); -qbs_free(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE); +qbs_free(_SUB_IDEMAKEFILEMENU_STRING_A); +qbs_free(_SUB_IDEMAKEFILEMENU_STRING_F); diff --git a/internal/source/free213.txt b/internal/source/free213.txt index ae7391901..a6eab90b9 100644 --- a/internal/source/free213.txt +++ b/internal/source/free213.txt @@ -1,4 +1,14 @@ -if(oldstr5698){ -if(oldstr5698->fixed)qbs_set(oldstr5698,_FUNC_REMOVESYMBOL2_STRING_VARNAME); -qbs_free(_FUNC_REMOVESYMBOL2_STRING_VARNAME); -} +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_A); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_N); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2); +qbs_free(_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP); diff --git a/internal/source/free214.txt b/internal/source/free214.txt index 2d92bb291..1e9a39033 100644 --- a/internal/source/free214.txt +++ b/internal/source/free214.txt @@ -1,4 +1,3 @@ -if(oldstr5699){ -if(oldstr5699->fixed)qbs_set(oldstr5699,_FUNC_BACK2BACKNAME_STRING_A); -qbs_free(_FUNC_BACK2BACKNAME_STRING_A); -} +qbs_free(_SUB_IDEMAKEEDITMENU_STRING_CLIP); +qbs_free(_SUB_IDEMAKEEDITMENU_STRING_A); +qbs_free(_SUB_IDEMAKEEDITMENU_STRING_A2); diff --git a/internal/source/free215.txt b/internal/source/free215.txt index 08d6a67a4..c918a0cc0 100644 --- a/internal/source/free215.txt +++ b/internal/source/free215.txt @@ -1,14 +1,6 @@ -if(oldstr5700){ -if(oldstr5700->fixed)qbs_set(oldstr5700,_FUNC_WIKI_STRING_PAGENAME); -qbs_free(_FUNC_WIKI_STRING_PAGENAME); +if(oldstr6150){ +if(oldstr6150->fixed)qbs_set(oldstr6150,_SUB_IDEADDRECENT_STRING_F2); +qbs_free(_SUB_IDEADDRECENT_STRING_F2); } -qbs_free(_FUNC_WIKI_STRING_PAGENAME2); -qbs_free(_FUNC_WIKI_STRING_A); -qbs_free(_FUNC_WIKI_STRING_URL); -qbs_free(_FUNC_WIKI_STRING_S1); -qbs_free(_FUNC_WIKI_STRING_URL2); -qbs_free(_FUNC_WIKI_STRING_E); -qbs_free(_FUNC_WIKI_STRING_URL3); -qbs_free(_FUNC_WIKI_STRING_X); -qbs_free(_FUNC_WIKI_STRING_A2); -qbs_free(_FUNC_WIKI_STRING_S2); +qbs_free(_SUB_IDEADDRECENT_STRING_F); +qbs_free(_SUB_IDEADDRECENT_STRING_A); diff --git a/internal/source/free216.txt b/internal/source/free216.txt index f68c18d65..ca5161c9e 100644 --- a/internal/source/free216.txt +++ b/internal/source/free216.txt @@ -1,5 +1,4 @@ -if(oldstr5720){ -if(oldstr5720->fixed)qbs_set(oldstr5720,_SUB_HELP_ADDTXT_STRING_T); -qbs_free(_SUB_HELP_ADDTXT_STRING_T); +if(oldstr6154){ +if(oldstr6154->fixed)qbs_set(oldstr6154,_FUNC_REMOVEDOUBLESLASHES_STRING_F); +qbs_free(_FUNC_REMOVEDOUBLESLASHES_STRING_F); } -qbs_free(_SUB_HELP_ADDTXT_STRING_B); diff --git a/internal/source/free217.txt b/internal/source/free217.txt index e69de29bb..4e37c1f4e 100644 --- a/internal/source/free217.txt +++ b/internal/source/free217.txt @@ -0,0 +1,6 @@ +if(oldstr6157){ +if(oldstr6157->fixed)qbs_set(oldstr6157,_SUB_IDEADDSEARCHED_STRING_S2); +qbs_free(_SUB_IDEADDSEARCHED_STRING_S2); +} +qbs_free(_SUB_IDEADDSEARCHED_STRING_S); +qbs_free(_SUB_IDEADDSEARCHED_STRING_A); diff --git a/internal/source/free218.txt b/internal/source/free218.txt index f561dd163..9321dcd6e 100644 --- a/internal/source/free218.txt +++ b/internal/source/free218.txt @@ -1 +1,26 @@ -qbs_free(_SUB_HELP_PREVIEW_STRING_C); +if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&1){ +if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O)[8] ); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING1_SEP); +if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +tmp_long=_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]); +free((void*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE)[8] ); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_TITLESTR); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_Q); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_F); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_A); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_L); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_Z); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_F2); +qbs_free(_SUB_IDEUPDATEHELPBOX_STRING_IGNORE); diff --git a/internal/source/free219.txt b/internal/source/free219.txt index e69de29bb..5a5c4b71a 100644 --- a/internal/source/free219.txt +++ b/internal/source/free219.txt @@ -0,0 +1,18 @@ +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEASCIIBOX_STRING1_SEP); +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]&1){ +tmp_long=_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]+(96/8+1-1)*tmp_long+ 4));} +free((void*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE)[8] ); +qbs_free(_FUNC_IDEASCIIBOX_STRING_ALTLETTER); diff --git a/internal/source/free22.txt b/internal/source/free22.txt index 7c001c4f4..e7ac9adec 100644 --- a/internal/source/free22.txt +++ b/internal/source/free22.txt @@ -1,4 +1,5 @@ -if(oldstr2713){ -if(oldstr2713->fixed)qbs_set(oldstr2713,_FUNC_GETELEMENTS_STRING_A); -qbs_free(_FUNC_GETELEMENTS_STRING_A); +if(oldstr2919){ +if(oldstr2919->fixed)qbs_set(oldstr2919,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); +qbs_free(_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); } +qbs_free(_FUNC_GETELEMENTSPECIAL_STRING_A); diff --git a/internal/source/free220.txt b/internal/source/free220.txt index e3a59fad9..fcb3b2ddf 100644 --- a/internal/source/free220.txt +++ b/internal/source/free220.txt @@ -1,20 +1,15 @@ -if(oldstr5741){ -if(oldstr5741->fixed)qbs_set(oldstr5741,_SUB_WIKIPARSE_STRING_A); -qbs_free(_SUB_WIKIPARSE_STRING_A); +if(oldstr6224){ +if(oldstr6224->fixed)qbs_set(oldstr6224,_FUNC_IDEF1BOX_STRING_LNKS); +qbs_free(_FUNC_IDEF1BOX_STRING_LNKS); } -if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&1){ -tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_C[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]); -free((void*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0])); +if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])); } -free_mem_lock( (mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_C)[8] ); -qbs_free(_SUB_WIKIPARSE_STRING_C); -qbs_free(_SUB_WIKIPARSE_STRING_S); -qbs_free(_SUB_WIKIPARSE_STRING_LINK); -qbs_free(_SUB_WIKIPARSE_STRING_TEXT); -qbs_free(_SUB_WIKIPARSE_STRING_ELINK); -qbs_free(_SUB_WIKIPARSE_STRING_CB); -qbs_free(_SUB_WIKIPARSE_STRING_L); -qbs_free(_SUB_WIKIPARSE_STRING_A2); -qbs_free(_SUB_WIKIPARSE_STRING_A3); -qbs_free(_SUB_WIKIPARSE_STRING_OA2); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEF1BOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEF1BOX_STRING1_SEP); +qbs_free(_FUNC_IDEF1BOX_STRING_ALTLETTER); +qbs_free(_FUNC_IDEF1BOX_STRING_F); diff --git a/internal/source/free221.txt b/internal/source/free221.txt index e69de29bb..9b9e5f81f 100644 --- a/internal/source/free221.txt +++ b/internal/source/free221.txt @@ -0,0 +1 @@ +qbs_free(_SUB_SORT_STRING_X); diff --git a/internal/source/free222.txt b/internal/source/free222.txt new file mode 100644 index 000000000..2493ea7fa --- /dev/null +++ b/internal/source/free222.txt @@ -0,0 +1,5 @@ +qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE); +qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE); +qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS); +qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR); +qbs_free(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE); diff --git a/internal/source/free223.txt b/internal/source/free223.txt new file mode 100644 index 000000000..161350706 --- /dev/null +++ b/internal/source/free223.txt @@ -0,0 +1,3 @@ +qbs_free(_FUNC_FINDCURRENTSF_STRING_SFNAME); +qbs_free(_FUNC_FINDCURRENTSF_STRING_THISLINE); +qbs_free(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE); diff --git a/internal/c/parts/audio/out/android/other/stuff/include/AL/oalStaticBufferExtension.h b/internal/source/free224.txt similarity index 100% rename from internal/c/parts/audio/out/android/other/stuff/include/AL/oalStaticBufferExtension.h rename to internal/source/free224.txt diff --git a/internal/source/free225.txt b/internal/source/free225.txt new file mode 100644 index 000000000..3a99a754d --- /dev/null +++ b/internal/source/free225.txt @@ -0,0 +1 @@ +qbs_free(_SUB_UPDATEIDEINFO_STRING_A); diff --git a/internal/source/free226.txt b/internal/source/free226.txt new file mode 100644 index 000000000..9ec9f3fa4 --- /dev/null +++ b/internal/source/free226.txt @@ -0,0 +1,4 @@ +if(oldstr6260){ +if(oldstr6260->fixed)qbs_set(oldstr6260,_SUB_UPDATEMENUHELPLINE_STRING_A); +qbs_free(_SUB_UPDATEMENUHELPLINE_STRING_A); +} diff --git a/internal/c/parts/audio/out/android/other/stuff/oalStaticBufferExtension.h b/internal/source/free227.txt similarity index 100% rename from internal/c/parts/audio/out/android/other/stuff/oalStaticBufferExtension.h rename to internal/source/free227.txt diff --git a/programs/android/template/untitled/app/src/main/assets/emptyfolder.bin b/internal/source/free228.txt similarity index 100% rename from programs/android/template/untitled/app/src/main/assets/emptyfolder.bin rename to internal/source/free228.txt diff --git a/internal/source/free229.txt b/internal/source/free229.txt new file mode 100644 index 000000000..eb6c27dca --- /dev/null +++ b/internal/source/free229.txt @@ -0,0 +1,2 @@ +qbs_free(_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_free(_SUB_LOADCOLORSCHEMES_STRING_TEMP); diff --git a/internal/source/free23.txt b/internal/source/free23.txt index e69de29bb..d4a81efd9 100644 --- a/internal/source/free23.txt +++ b/internal/source/free23.txt @@ -0,0 +1,4 @@ +if(oldstr2921){ +if(oldstr2921->fixed)qbs_set(oldstr2921,_FUNC_GETELEMENT_STRING_A); +qbs_free(_FUNC_GETELEMENT_STRING_A); +} diff --git a/internal/source/free230.txt b/internal/source/free230.txt new file mode 100644 index 000000000..6b0d3d1c0 --- /dev/null +++ b/internal/source/free230.txt @@ -0,0 +1,17 @@ +if(oldstr6263){ +if(oldstr6263->fixed)qbs_set(oldstr6263,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK); +} +if(oldstr6264){ +if(oldstr6264->fixed)qbs_set(oldstr6264,_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK); +} +if(oldstr6265){ +if(oldstr6265->fixed)qbs_set(oldstr6265,_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK); +} +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_A); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_WHAT); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_OFILE); +qbs_free(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE); diff --git a/internal/source/free231.txt b/internal/source/free231.txt new file mode 100644 index 000000000..11c8eda28 --- /dev/null +++ b/internal/source/free231.txt @@ -0,0 +1,4 @@ +if(oldstr6283){ +if(oldstr6283->fixed)qbs_set(oldstr6283,_FUNC_REMOVESYMBOL2_STRING_VARNAME); +qbs_free(_FUNC_REMOVESYMBOL2_STRING_VARNAME); +} diff --git a/internal/source/free232.txt b/internal/source/free232.txt new file mode 100644 index 000000000..0ab45b758 --- /dev/null +++ b/internal/source/free232.txt @@ -0,0 +1,4 @@ +if(oldstr6284){ +if(oldstr6284->fixed)qbs_set(oldstr6284,_SUB_CLEANSUBNAME_STRING_N); +qbs_free(_SUB_CLEANSUBNAME_STRING_N); +} diff --git a/programs/android/template/untitled/app/src/main/jni/c/emptyfolder.bin b/internal/source/free233.txt similarity index 100% rename from programs/android/template/untitled/app/src/main/jni/c/emptyfolder.bin rename to internal/source/free233.txt diff --git a/internal/source/free234.txt b/internal/source/free234.txt new file mode 100644 index 000000000..1e759d7b2 --- /dev/null +++ b/internal/source/free234.txt @@ -0,0 +1,4 @@ +if(oldstr6287){ +if(oldstr6287->fixed)qbs_set(oldstr6287,_SUB_SETSTATUSMESSAGE_STRING_TEXT); +qbs_free(_SUB_SETSTATUSMESSAGE_STRING_TEXT); +} diff --git a/internal/source/free235.txt b/internal/source/free235.txt new file mode 100644 index 000000000..7b24f377d --- /dev/null +++ b/internal/source/free235.txt @@ -0,0 +1,3 @@ +qbs_free(_FUNC_GETWORDATCURSOR_STRING_A); +qbs_free(_FUNC_GETWORDATCURSOR_STRING_A2); +qbs_free(_FUNC_GETWORDATCURSOR_STRING_SYMBOL); diff --git a/internal/source/free236.txt b/internal/source/free236.txt new file mode 100644 index 000000000..ab3569b9c --- /dev/null +++ b/internal/source/free236.txt @@ -0,0 +1,2 @@ +qbs_free(_FUNC_GETSELECTEDTEXT_STRING_A); +qbs_free(_FUNC_GETSELECTEDTEXT_STRING_CLIP); diff --git a/internal/source/free237.txt b/internal/source/free237.txt new file mode 100644 index 000000000..4e3ff458a --- /dev/null +++ b/internal/source/free237.txt @@ -0,0 +1,2 @@ +qbs_free(_SUB_DELSELECT_STRING_A); +qbs_free(_SUB_DELSELECT_STRING_A2); diff --git a/internal/source/free238.txt b/internal/source/free238.txt new file mode 100644 index 000000000..6525ae503 --- /dev/null +++ b/internal/source/free238.txt @@ -0,0 +1,5 @@ +if(oldstr6308){ +if(oldstr6308->fixed)qbs_set(oldstr6308,_SUB_INSERTATCURSOR_STRING_TEMPK); +qbs_free(_SUB_INSERTATCURSOR_STRING_TEMPK); +} +qbs_free(_SUB_INSERTATCURSOR_STRING_A); diff --git a/internal/source/free239.txt b/internal/source/free239.txt new file mode 100644 index 000000000..bc634e0a3 --- /dev/null +++ b/internal/source/free239.txt @@ -0,0 +1,9 @@ +if(oldstr6313){ +if(oldstr6313->fixed)qbs_set(oldstr6313,_FUNC_FINDHELPTOPIC_STRING_TOPIC); +qbs_free(_FUNC_FINDHELPTOPIC_STRING_TOPIC); +} +qbs_free(_FUNC_FINDHELPTOPIC_STRING_A2); +qbs_free(_FUNC_FINDHELPTOPIC_STRING_LNKS); +qbs_free(_FUNC_FINDHELPTOPIC_STRING_L); +qbs_free(_FUNC_FINDHELPTOPIC_STRING_L1); +qbs_free(_FUNC_FINDHELPTOPIC_STRING_L2); diff --git a/internal/source/free24.txt b/internal/source/free24.txt index 9ecc38157..fe2b56002 100644 --- a/internal/source/free24.txt +++ b/internal/source/free24.txt @@ -1,9 +1,4 @@ -if(oldstr2715){ -if(oldstr2715->fixed)qbs_set(oldstr2715,_SUB_INSERTELEMENTS_STRING_A); -qbs_free(_SUB_INSERTELEMENTS_STRING_A); +if(oldstr2923){ +if(oldstr2923->fixed)qbs_set(oldstr2923,_FUNC_GETELEMENTS_STRING_A); +qbs_free(_FUNC_GETELEMENTS_STRING_A); } -if(oldstr2716){ -if(oldstr2716->fixed)qbs_set(oldstr2716,_SUB_INSERTELEMENTS_STRING_ELEMENTS); -qbs_free(_SUB_INSERTELEMENTS_STRING_ELEMENTS); -} -qbs_free(_SUB_INSERTELEMENTS_STRING_A2); diff --git a/internal/source/free240.txt b/internal/source/free240.txt new file mode 100644 index 000000000..86fe740aa --- /dev/null +++ b/internal/source/free240.txt @@ -0,0 +1,6 @@ +if(oldstr6317){ +if(oldstr6317->fixed)qbs_set(oldstr6317,_FUNC_ISNUMBER_STRING___A); +qbs_free(_FUNC_ISNUMBER_STRING___A); +} +qbs_free(_FUNC_ISNUMBER_STRING_A); +qbs_free(_FUNC_ISNUMBER_STRING_SYMBOL); diff --git a/internal/source/free241.txt b/internal/source/free241.txt new file mode 100644 index 000000000..dd046aeee --- /dev/null +++ b/internal/source/free241.txt @@ -0,0 +1,4 @@ +if(oldstr6324){ +if(oldstr6324->fixed)qbs_set(oldstr6324,_FUNC_BACK2BACKNAME_STRING_A); +qbs_free(_FUNC_BACK2BACKNAME_STRING_A); +} diff --git a/internal/source/free242.txt b/internal/source/free242.txt new file mode 100644 index 000000000..01179d7d1 --- /dev/null +++ b/internal/source/free242.txt @@ -0,0 +1,10 @@ +if(oldstr6325){ +if(oldstr6325->fixed)qbs_set(oldstr6325,_FUNC_WIKI_STRING_PAGENAME); +qbs_free(_FUNC_WIKI_STRING_PAGENAME); +} +qbs_free(_FUNC_WIKI_STRING_PAGENAME2); +qbs_free(_FUNC_WIKI_STRING_A); +qbs_free(_FUNC_WIKI_STRING_URL); +qbs_free(_FUNC_WIKI_STRING_OUTPUTFILE); +qbs_free(_FUNC_WIKI_STRING_S1); +qbs_free(_FUNC_WIKI_STRING_S2); diff --git a/internal/source/free243.txt b/internal/source/free243.txt new file mode 100644 index 000000000..22c17319c --- /dev/null +++ b/internal/source/free243.txt @@ -0,0 +1,5 @@ +if(oldstr6339){ +if(oldstr6339->fixed)qbs_set(oldstr6339,_SUB_HELP_ADDTXT_STRING_T); +qbs_free(_SUB_HELP_ADDTXT_STRING_T); +} +qbs_free(_SUB_HELP_ADDTXT_STRING_B); diff --git a/programs/android/template/untitled/app/src/main/jni/temp/emptyfolder.bin b/internal/source/free244.txt similarity index 100% rename from programs/android/template/untitled/app/src/main/jni/temp/emptyfolder.bin rename to internal/source/free244.txt diff --git a/internal/source/free245.txt b/internal/source/free245.txt new file mode 100644 index 000000000..f561dd163 --- /dev/null +++ b/internal/source/free245.txt @@ -0,0 +1 @@ +qbs_free(_SUB_HELP_PREVIEW_STRING_C); diff --git a/internal/source/free246.txt b/internal/source/free246.txt new file mode 100644 index 000000000..e69de29bb diff --git a/internal/source/free247.txt b/internal/source/free247.txt new file mode 100644 index 000000000..f54363205 --- /dev/null +++ b/internal/source/free247.txt @@ -0,0 +1,38 @@ +if(oldstr6360){ +if(oldstr6360->fixed)qbs_set(oldstr6360,_SUB_WIKIPARSE_STRING_A); +qbs_free(_SUB_WIKIPARSE_STRING_A); +} +if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&1){ +tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_C[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]); +free((void*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_C)[8] ); +qbs_free(_SUB_WIKIPARSE_STRING_C); +qbs_free(_SUB_WIKIPARSE_STRING_S); +qbs_free(_SUB_WIKIPARSE_STRING_LINK); +qbs_free(_SUB_WIKIPARSE_STRING_TEXT); +qbs_free(_SUB_WIKIPARSE_STRING_ELINK); +qbs_free(_SUB_WIKIPARSE_STRING_CB); +if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&1){ +tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]); +free((void*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW)[8] ); +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&1){ +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ +cmem_dynamic_free((uint8*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); +}else{ +free((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL)[8] ); +qbs_free(_SUB_WIKIPARSE_STRING_L); +qbs_free(_SUB_WIKIPARSE_STRING_M); +qbs_free(_SUB_WIKIPARSE_STRING_P); +qbs_free(_SUB_WIKIPARSE_STRING_TABLEOUTPUT); +qbs_free(_SUB_WIKIPARSE_STRING_THISCOL); +qbs_free(_SUB_WIKIPARSE_STRING_A2); +qbs_free(_SUB_WIKIPARSE_STRING_A3); +qbs_free(_SUB_WIKIPARSE_STRING_OA2); diff --git a/internal/source/free248.txt b/internal/source/free248.txt new file mode 100644 index 000000000..75026e728 --- /dev/null +++ b/internal/source/free248.txt @@ -0,0 +1,4 @@ +if(oldstr6478){ +if(oldstr6478->fixed)qbs_set(oldstr6478,_FUNC_WIKIGETLINE_STRING_A); +qbs_free(_FUNC_WIKIGETLINE_STRING_A); +} diff --git a/internal/source/free249.txt b/internal/source/free249.txt new file mode 100644 index 000000000..7ca55969a --- /dev/null +++ b/internal/source/free249.txt @@ -0,0 +1,8 @@ +if(oldstr6479){ +if(oldstr6479->fixed)qbs_set(oldstr6479,_FUNC_WIKIGETUNTIL_STRING_A); +qbs_free(_FUNC_WIKIGETUNTIL_STRING_A); +} +if(oldstr6480){ +if(oldstr6480->fixed)qbs_set(oldstr6480,_FUNC_WIKIGETUNTIL_STRING_SEPARATOR); +qbs_free(_FUNC_WIKIGETUNTIL_STRING_SEPARATOR); +} diff --git a/internal/source/free25.txt b/internal/source/free25.txt index ccd3b018a..e69de29bb 100644 --- a/internal/source/free25.txt +++ b/internal/source/free25.txt @@ -1,4 +0,0 @@ -if(oldstr2719){ -if(oldstr2719->fixed)qbs_set(oldstr2719,_FUNC_ISNUMBER_STRING_A); -qbs_free(_FUNC_ISNUMBER_STRING_A); -} diff --git a/internal/source/free250.txt b/internal/source/free250.txt new file mode 100644 index 000000000..e69de29bb diff --git a/internal/source/free251.txt b/internal/source/free251.txt new file mode 100644 index 000000000..7082542f1 --- /dev/null +++ b/internal/source/free251.txt @@ -0,0 +1,6 @@ +if(oldstr6483){ +if(oldstr6483->fixed)qbs_set(oldstr6483,_SUB_PRINTWRAPSTATUS_STRING___TEXT); +qbs_free(_SUB_PRINTWRAPSTATUS_STRING___TEXT); +} +qbs_free(_SUB_PRINTWRAPSTATUS_STRING_TEXT); +qbs_free(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD); diff --git a/internal/source/free252.txt b/internal/source/free252.txt new file mode 100644 index 000000000..f67b65b6b --- /dev/null +++ b/internal/source/free252.txt @@ -0,0 +1,5 @@ +if(oldstr6491){ +if(oldstr6491->fixed)qbs_set(oldstr6491,_FUNC_GETBYTES_STRING___VALUE); +qbs_free(_FUNC_GETBYTES_STRING___VALUE); +} +qbs_free(_FUNC_GETBYTES_STRING_VALUE); diff --git a/internal/source/free253.txt b/internal/source/free253.txt new file mode 100644 index 000000000..e69de29bb diff --git a/internal/source/free254.txt b/internal/source/free254.txt new file mode 100644 index 000000000..e69de29bb diff --git a/internal/source/free255.txt b/internal/source/free255.txt new file mode 100644 index 000000000..e69de29bb diff --git a/internal/source/free26.txt b/internal/source/free26.txt index 573b8e729..5f17407bc 100644 --- a/internal/source/free26.txt +++ b/internal/source/free26.txt @@ -1,5 +1,9 @@ -if(oldstr2725){ -if(oldstr2725->fixed)qbs_set(oldstr2725,_FUNC_ISOPERATOR_STRING_A2); -qbs_free(_FUNC_ISOPERATOR_STRING_A2); +if(oldstr2925){ +if(oldstr2925->fixed)qbs_set(oldstr2925,_SUB_INSERTELEMENTS_STRING_A); +qbs_free(_SUB_INSERTELEMENTS_STRING_A); } -qbs_free(_FUNC_ISOPERATOR_STRING_A); +if(oldstr2926){ +if(oldstr2926->fixed)qbs_set(oldstr2926,_SUB_INSERTELEMENTS_STRING_ELEMENTS); +qbs_free(_SUB_INSERTELEMENTS_STRING_ELEMENTS); +} +qbs_free(_SUB_INSERTELEMENTS_STRING_A2); diff --git a/internal/source/free27.txt b/internal/source/free27.txt index a684522c4..bc0a1aeb9 100644 --- a/internal/source/free27.txt +++ b/internal/source/free27.txt @@ -1,4 +1,5 @@ -if(oldstr2726){ -if(oldstr2726->fixed)qbs_set(oldstr2726,_FUNC_ISUINTEGER_STRING_I); -qbs_free(_FUNC_ISUINTEGER_STRING_I); +if(oldstr2929){ +if(oldstr2929->fixed)qbs_set(oldstr2929,_FUNC_ISOPERATOR_STRING_A2); +qbs_free(_FUNC_ISOPERATOR_STRING_A2); } +qbs_free(_FUNC_ISOPERATOR_STRING_A); diff --git a/internal/source/free28.txt b/internal/source/free28.txt index 2c9274b1c..ba3d4d2da 100644 --- a/internal/source/free28.txt +++ b/internal/source/free28.txt @@ -1,5 +1,4 @@ -if(oldstr2732){ -if(oldstr2732->fixed)qbs_set(oldstr2732,_FUNC_ISVALIDVARIABLE_STRING_A); -qbs_free(_FUNC_ISVALIDVARIABLE_STRING_A); +if(oldstr2930){ +if(oldstr2930->fixed)qbs_set(oldstr2930,_FUNC_ISUINTEGER_STRING_I); +qbs_free(_FUNC_ISUINTEGER_STRING_I); } -qbs_free(_FUNC_ISVALIDVARIABLE_STRING_E); diff --git a/internal/source/free29.txt b/internal/source/free29.txt index a5905af54..efff559dc 100644 --- a/internal/source/free29.txt +++ b/internal/source/free29.txt @@ -1,23 +1,5 @@ -if(oldstr2738){ -if(oldstr2738->fixed)qbs_set(oldstr2738,_FUNC_LINEFORMAT_STRING_A); -qbs_free(_FUNC_LINEFORMAT_STRING_A); +if(oldstr2936){ +if(oldstr2936->fixed)qbs_set(oldstr2936,_FUNC_ISVALIDVARIABLE_STRING_A); +qbs_free(_FUNC_ISVALIDVARIABLE_STRING_A); } -qbs_free(_FUNC_LINEFORMAT_STRING_A2); -qbs_free(_FUNC_LINEFORMAT_STRING_CA); -qbs_free(_FUNC_LINEFORMAT_STRING_C); -qbs_free(_FUNC_LINEFORMAT_STRING_O); -qbs_free(_FUNC_LINEFORMAT_STRING_C2); -qbs_free(_FUNC_LINEFORMAT_STRING_WHOLE); -qbs_free(_FUNC_LINEFORMAT_STRING_FRAC); -qbs_free(_FUNC_LINEFORMAT_STRING_EX); -qbs_free(_FUNC_LINEFORMAT_STRING_E); -qbs_free(_FUNC_LINEFORMAT_STRING_BITN); -qbs_free(_FUNC_LINEFORMAT_STRING_SIGDIG); -qbs_free(_FUNC_LINEFORMAT_STRING_HX); -qbs_free(_FUNC_LINEFORMAT_STRING_FULLHX); -qbs_free(_FUNC_LINEFORMAT_STRING_NUM); -qbs_free(_FUNC_LINEFORMAT_STRING_A3); -qbs_free(_FUNC_LINEFORMAT_STRING_X); -qbs_free(_FUNC_LINEFORMAT_STRING_E2); -qbs_free(_FUNC_LINEFORMAT_STRING_CC); -qbs_free(_FUNC_LINEFORMAT_STRING_NOCASEC); +qbs_free(_FUNC_ISVALIDVARIABLE_STRING_E); diff --git a/internal/source/free3.txt b/internal/source/free3.txt index 2b40f14cd..e9d0500a7 100644 --- a/internal/source/free3.txt +++ b/internal/source/free3.txt @@ -1,4 +1,4 @@ -if(oldstr2049){ -if(oldstr2049->fixed)qbs_set(oldstr2049,_FUNC_FILEHASEXTENSION_STRING_F); +if(oldstr2202){ +if(oldstr2202->fixed)qbs_set(oldstr2202,_FUNC_FILEHASEXTENSION_STRING_F); qbs_free(_FUNC_FILEHASEXTENSION_STRING_F); } diff --git a/internal/source/free30.txt b/internal/source/free30.txt index 48f197bcc..9afac49af 100644 --- a/internal/source/free30.txt +++ b/internal/source/free30.txt @@ -1,4 +1,23 @@ -if(oldstr2839){ -if(oldstr2839->fixed)qbs_set(oldstr2839,_SUB_MAKEIDREFER_STRING_REF); -qbs_free(_SUB_MAKEIDREFER_STRING_REF); +if(oldstr2942){ +if(oldstr2942->fixed)qbs_set(oldstr2942,_FUNC_LINEFORMAT_STRING_A); +qbs_free(_FUNC_LINEFORMAT_STRING_A); } +qbs_free(_FUNC_LINEFORMAT_STRING_A2); +qbs_free(_FUNC_LINEFORMAT_STRING_CA); +qbs_free(_FUNC_LINEFORMAT_STRING_C); +qbs_free(_FUNC_LINEFORMAT_STRING_O); +qbs_free(_FUNC_LINEFORMAT_STRING_C2); +qbs_free(_FUNC_LINEFORMAT_STRING_WHOLE); +qbs_free(_FUNC_LINEFORMAT_STRING_FRAC); +qbs_free(_FUNC_LINEFORMAT_STRING_EX); +qbs_free(_FUNC_LINEFORMAT_STRING_E); +qbs_free(_FUNC_LINEFORMAT_STRING_BITN); +qbs_free(_FUNC_LINEFORMAT_STRING_SIGDIG); +qbs_free(_FUNC_LINEFORMAT_STRING_HX); +qbs_free(_FUNC_LINEFORMAT_STRING_FULLHX); +qbs_free(_FUNC_LINEFORMAT_STRING_NUM); +qbs_free(_FUNC_LINEFORMAT_STRING_A3); +qbs_free(_FUNC_LINEFORMAT_STRING_X); +qbs_free(_FUNC_LINEFORMAT_STRING_E2); +qbs_free(_FUNC_LINEFORMAT_STRING_CC); +qbs_free(_FUNC_LINEFORMAT_STRING_NOCASEC); diff --git a/internal/source/free31.txt b/internal/source/free31.txt index 95de640c7..87095e118 100644 --- a/internal/source/free31.txt +++ b/internal/source/free31.txt @@ -1,4 +1,4 @@ -if(oldstr2840){ -if(oldstr2840->fixed)qbs_set(oldstr2840,_FUNC_NUMELEMENTS_STRING_A); -qbs_free(_FUNC_NUMELEMENTS_STRING_A); +if(oldstr3041){ +if(oldstr3041->fixed)qbs_set(oldstr3041,_SUB_MAKEIDREFER_STRING_REF); +qbs_free(_SUB_MAKEIDREFER_STRING_REF); } diff --git a/internal/source/free32.txt b/internal/source/free32.txt index 89bbf3592..43ced18bf 100644 --- a/internal/source/free32.txt +++ b/internal/source/free32.txt @@ -1,8 +1,4 @@ -if(oldstr2841){ -if(oldstr2841->fixed)qbs_set(oldstr2841,_FUNC_OPERATORUSAGE_STRING_OPERATOR); -qbs_free(_FUNC_OPERATORUSAGE_STRING_OPERATOR); -} -if(oldstr2842){ -if(oldstr2842->fixed)qbs_set(oldstr2842,_FUNC_OPERATORUSAGE_STRING_INFO); -qbs_free(_FUNC_OPERATORUSAGE_STRING_INFO); +if(oldstr3042){ +if(oldstr3042->fixed)qbs_set(oldstr3042,_FUNC_NUMELEMENTS_STRING_A); +qbs_free(_FUNC_NUMELEMENTS_STRING_A); } diff --git a/internal/source/free33.txt b/internal/source/free33.txt index 432825227..66dfa60d2 100644 --- a/internal/source/free33.txt +++ b/internal/source/free33.txt @@ -1,11 +1,8 @@ -if(oldstr2845){ -if(oldstr2845->fixed)qbs_set(oldstr2845,_FUNC_REFER_STRING_A2); -qbs_free(_FUNC_REFER_STRING_A2); +if(oldstr3043){ +if(oldstr3043->fixed)qbs_set(oldstr3043,_FUNC_OPERATORUSAGE_STRING_OPERATOR); +qbs_free(_FUNC_OPERATORUSAGE_STRING_OPERATOR); +} +if(oldstr3044){ +if(oldstr3044->fixed)qbs_set(oldstr3044,_FUNC_OPERATORUSAGE_STRING_INFO); +qbs_free(_FUNC_OPERATORUSAGE_STRING_INFO); } -qbs_free(_FUNC_REFER_STRING_A); -qbs_free(_FUNC_REFER_STRING_N); -qbs_free(_FUNC_REFER_STRING_O); -qbs_free(_FUNC_REFER_STRING_O2); -qbs_free(_FUNC_REFER_STRING_R); -qbs_free(_FUNC_REFER_STRING_T); -qbs_free(_FUNC_REFER_STRING_OFFSET); diff --git a/internal/source/free34.txt b/internal/source/free34.txt index fc58151a7..d3a73c477 100644 --- a/internal/source/free34.txt +++ b/internal/source/free34.txt @@ -1,2 +1,11 @@ -qbs_free(_SUB_REGID_STRING_N); -qbs_free(_SUB_REGID_STRING_MUSTHAVE); +if(oldstr3047){ +if(oldstr3047->fixed)qbs_set(oldstr3047,_FUNC_REFER_STRING_A2); +qbs_free(_FUNC_REFER_STRING_A2); +} +qbs_free(_FUNC_REFER_STRING_A); +qbs_free(_FUNC_REFER_STRING_N); +qbs_free(_FUNC_REFER_STRING_O); +qbs_free(_FUNC_REFER_STRING_O2); +qbs_free(_FUNC_REFER_STRING_R); +qbs_free(_FUNC_REFER_STRING_T); +qbs_free(_FUNC_REFER_STRING_OFFSET); diff --git a/internal/source/free35.txt b/internal/source/free35.txt index e69de29bb..fc58151a7 100644 --- a/internal/source/free35.txt +++ b/internal/source/free35.txt @@ -0,0 +1,2 @@ +qbs_free(_SUB_REGID_STRING_N); +qbs_free(_SUB_REGID_STRING_MUSTHAVE); diff --git a/internal/source/free36.txt b/internal/source/free36.txt index a07910210..e69de29bb 100644 --- a/internal/source/free36.txt +++ b/internal/source/free36.txt @@ -1,5 +0,0 @@ -if(oldstr2859){ -if(oldstr2859->fixed)qbs_set(oldstr2859,_SUB_REMOVEELEMENTS_STRING_A); -qbs_free(_SUB_REMOVEELEMENTS_STRING_A); -} -qbs_free(_SUB_REMOVEELEMENTS_STRING_A2); diff --git a/internal/source/free37.txt b/internal/source/free37.txt index c8de23d5b..74ee1a43a 100644 --- a/internal/source/free37.txt +++ b/internal/source/free37.txt @@ -1,4 +1,5 @@ -if(oldstr2863){ -if(oldstr2863->fixed)qbs_set(oldstr2863,_FUNC_SYMBOLTYPE_STRING_S); -qbs_free(_FUNC_SYMBOLTYPE_STRING_S); +if(oldstr3060){ +if(oldstr3060->fixed)qbs_set(oldstr3060,_SUB_REMOVEELEMENTS_STRING_A); +qbs_free(_SUB_REMOVEELEMENTS_STRING_A); } +qbs_free(_SUB_REMOVEELEMENTS_STRING_A2); diff --git a/internal/source/free38.txt b/internal/source/free38.txt index 1e34a81dd..dee9c1256 100644 --- a/internal/source/free38.txt +++ b/internal/source/free38.txt @@ -1,5 +1,4 @@ -if(oldstr2866){ -if(oldstr2866->fixed)qbs_set(oldstr2866,_FUNC_REMOVESYMBOL_STRING_VARNAME); -qbs_free(_FUNC_REMOVESYMBOL_STRING_VARNAME); +if(oldstr3064){ +if(oldstr3064->fixed)qbs_set(oldstr3064,_FUNC_SYMBOLTYPE_STRING_S); +qbs_free(_FUNC_SYMBOLTYPE_STRING_S); } -qbs_free(_FUNC_REMOVESYMBOL_STRING_SYMBOL); diff --git a/internal/source/free39.txt b/internal/source/free39.txt index e69de29bb..d3c65e853 100644 --- a/internal/source/free39.txt +++ b/internal/source/free39.txt @@ -0,0 +1,5 @@ +if(oldstr3067){ +if(oldstr3067->fixed)qbs_set(oldstr3067,_FUNC_REMOVESYMBOL_STRING_VARNAME); +qbs_free(_FUNC_REMOVESYMBOL_STRING_VARNAME); +} +qbs_free(_FUNC_REMOVESYMBOL_STRING_SYMBOL); diff --git a/internal/source/free4.txt b/internal/source/free4.txt index b4f03f40e..086dbc0ba 100644 --- a/internal/source/free4.txt +++ b/internal/source/free4.txt @@ -1,4 +1,4 @@ -if(oldstr2053){ -if(oldstr2053->fixed)qbs_set(oldstr2053,_FUNC_REMOVEFILEEXTENSION_STRING_F); +if(oldstr2206){ +if(oldstr2206->fixed)qbs_set(oldstr2206,_FUNC_REMOVEFILEEXTENSION_STRING_F); qbs_free(_FUNC_REMOVEFILEEXTENSION_STRING_F); } diff --git a/internal/source/free40.txt b/internal/source/free40.txt index 8ca1c3444..e69de29bb 100644 --- a/internal/source/free40.txt +++ b/internal/source/free40.txt @@ -1,51 +0,0 @@ -if(oldstr2868){ -if(oldstr2868->fixed)qbs_set(oldstr2868,_FUNC_SEPERATEARGS_STRING_A); -qbs_free(_FUNC_SEPERATEARGS_STRING_A); -} -if(oldstr2869){ -if(oldstr2869->fixed)qbs_set(oldstr2869,_FUNC_SEPERATEARGS_STRING_CA); -qbs_free(_FUNC_SEPERATEARGS_STRING_CA); -} -qbs_free(_FUNC_SEPERATEARGS_STRING_S); -qbs_free(_FUNC_SEPERATEARGS_STRING_S2); -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&1){ -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0])); -}else{ -free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS)[8] ); -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&1){ -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0])); -}else{ -free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN)[8] ); -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&1){ -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0])); -}else{ -free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS)[8] ); -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&1){ -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0])); -}else{ -free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION)[8] ); -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&1){ -if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0])); -}else{ -free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL)[8] ); -qbs_free(_FUNC_SEPERATEARGS_STRING_C); diff --git a/internal/source/free41.txt b/internal/source/free41.txt index 699587afd..59d8a52bf 100644 --- a/internal/source/free41.txt +++ b/internal/source/free41.txt @@ -1,22 +1,52 @@ -if(oldstr2963){ -if(oldstr2963->fixed)qbs_set(oldstr2963,_SUB_SETREFER_STRING_A2); -qbs_free(_SUB_SETREFER_STRING_A2); +if(oldstr3069){ +if(oldstr3069->fixed)qbs_set(oldstr3069,_FUNC_SEPERATEARGS_STRING_A); +qbs_free(_FUNC_SEPERATEARGS_STRING_A); } -if(oldstr2964){ -if(oldstr2964->fixed)qbs_set(oldstr2964,_SUB_SETREFER_STRING_E2); -qbs_free(_SUB_SETREFER_STRING_E2); +if(oldstr3070){ +if(oldstr3070->fixed)qbs_set(oldstr3070,_FUNC_SEPERATEARGS_STRING_CA); +qbs_free(_FUNC_SEPERATEARGS_STRING_CA); } -qbs_free(_SUB_SETREFER_STRING_A); -qbs_free(_SUB_SETREFER_STRING_E); -qbs_free(_SUB_SETREFER_STRING_TL); -qbs_free(_SUB_SETREFER_STRING_O); -qbs_free(_SUB_SETREFER_STRING_N); -qbs_free(_SUB_SETREFER_STRING_LHSSCOPE); -qbs_free(_SUB_SETREFER_STRING_SRC); -qbs_free(_SUB_SETREFER_STRING_N2); -qbs_free(_SUB_SETREFER_STRING_O2); -qbs_free(_SUB_SETREFER_STRING_DST); -qbs_free(_SUB_SETREFER_STRING_R); -qbs_free(_SUB_SETREFER_STRING_T); -qbs_free(_SUB_SETREFER_STRING_OFFSET); -qbs_free(_SUB_SETREFER_STRING_L); +qbs_free(*((qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+ 2861))); +qbs_free(_FUNC_SEPERATEARGS_STRING_S); +qbs_free(_FUNC_SEPERATEARGS_STRING_S2); +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&1){ +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0])); +}else{ +free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS)[8] ); +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&1){ +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0])); +}else{ +free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN)[8] ); +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&1){ +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0])); +}else{ +free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS)[8] ); +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&1){ +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0])); +}else{ +free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION)[8] ); +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&1){ +if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0])); +}else{ +free((void*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL)[8] ); +qbs_free(_FUNC_SEPERATEARGS_STRING_C); diff --git a/internal/source/free42.txt b/internal/source/free42.txt index e69de29bb..3d4ae9360 100644 --- a/internal/source/free42.txt +++ b/internal/source/free42.txt @@ -0,0 +1,22 @@ +if(oldstr3164){ +if(oldstr3164->fixed)qbs_set(oldstr3164,_SUB_SETREFER_STRING_A2); +qbs_free(_SUB_SETREFER_STRING_A2); +} +if(oldstr3165){ +if(oldstr3165->fixed)qbs_set(oldstr3165,_SUB_SETREFER_STRING_E2); +qbs_free(_SUB_SETREFER_STRING_E2); +} +qbs_free(_SUB_SETREFER_STRING_A); +qbs_free(_SUB_SETREFER_STRING_E); +qbs_free(_SUB_SETREFER_STRING_TL); +qbs_free(_SUB_SETREFER_STRING_O); +qbs_free(_SUB_SETREFER_STRING_N); +qbs_free(_SUB_SETREFER_STRING_LHSSCOPE); +qbs_free(_SUB_SETREFER_STRING_SRC); +qbs_free(_SUB_SETREFER_STRING_N2); +qbs_free(_SUB_SETREFER_STRING_O2); +qbs_free(_SUB_SETREFER_STRING_DST); +qbs_free(_SUB_SETREFER_STRING_R); +qbs_free(_SUB_SETREFER_STRING_T); +qbs_free(_SUB_SETREFER_STRING_OFFSET); +qbs_free(_SUB_SETREFER_STRING_L); diff --git a/internal/source/free45.txt b/internal/source/free45.txt index e633f22f1..e69de29bb 100644 --- a/internal/source/free45.txt +++ b/internal/source/free45.txt @@ -1,8 +0,0 @@ -if(oldstr3011){ -if(oldstr3011->fixed)qbs_set(oldstr3011,_FUNC_TYP2CTYP_STRING_TSTR); -qbs_free(_FUNC_TYP2CTYP_STRING_TSTR); -} -qbs_free(_FUNC_TYP2CTYP_STRING_CTYP); -qbs_free(_FUNC_TYP2CTYP_STRING_TS); -qbs_free(_FUNC_TYP2CTYP_STRING_N); -qbs_free(_FUNC_TYP2CTYP_STRING_S); diff --git a/internal/source/free46.txt b/internal/source/free46.txt index ad5baf9f9..fb1be27cc 100644 --- a/internal/source/free46.txt +++ b/internal/source/free46.txt @@ -1,8 +1,8 @@ -if(oldstr3016){ -if(oldstr3016->fixed)qbs_set(oldstr3016,_FUNC_TYPE2SYMBOL_STRING_TYP); -qbs_free(_FUNC_TYPE2SYMBOL_STRING_TYP); +if(oldstr3207){ +if(oldstr3207->fixed)qbs_set(oldstr3207,_FUNC_TYP2CTYP_STRING_TSTR); +qbs_free(_FUNC_TYP2CTYP_STRING_TSTR); } -qbs_free(_FUNC_TYPE2SYMBOL_STRING_T); -qbs_free(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_free(_FUNC_TYPE2SYMBOL_STRING_T2); -qbs_free(_FUNC_TYPE2SYMBOL_STRING_S); +qbs_free(_FUNC_TYP2CTYP_STRING_CTYP); +qbs_free(_FUNC_TYP2CTYP_STRING_TS); +qbs_free(_FUNC_TYP2CTYP_STRING_N); +qbs_free(_FUNC_TYP2CTYP_STRING_S); diff --git a/internal/source/free47.txt b/internal/source/free47.txt index e69de29bb..2d1a5f6f7 100644 --- a/internal/source/free47.txt +++ b/internal/source/free47.txt @@ -0,0 +1,8 @@ +if(oldstr3212){ +if(oldstr3212->fixed)qbs_set(oldstr3212,_FUNC_TYPE2SYMBOL_STRING_TYP); +qbs_free(_FUNC_TYPE2SYMBOL_STRING_TYP); +} +qbs_free(_FUNC_TYPE2SYMBOL_STRING_T); +qbs_free(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_free(_FUNC_TYPE2SYMBOL_STRING_T2); +qbs_free(_FUNC_TYPE2SYMBOL_STRING_S); diff --git a/internal/source/free48.txt b/internal/source/free48.txt index cf24e03c1..e69de29bb 100644 --- a/internal/source/free48.txt +++ b/internal/source/free48.txt @@ -1,8 +0,0 @@ -if(oldstr3042){ -if(oldstr3042->fixed)qbs_set(oldstr3042,_FUNC_TYPNAME2TYP_STRING_T2); -qbs_free(_FUNC_TYPNAME2TYP_STRING_T2); -} -qbs_free(_FUNC_TYPNAME2TYP_STRING_T); -qbs_free(_FUNC_TYPNAME2TYP_STRING_TS); -qbs_free(_FUNC_TYPNAME2TYP_STRING_N); -qbs_free(_FUNC_TYPNAME2TYP_STRING_HASHNAME); diff --git a/internal/source/free49.txt b/internal/source/free49.txt index e69de29bb..cc9838c27 100644 --- a/internal/source/free49.txt +++ b/internal/source/free49.txt @@ -0,0 +1,8 @@ +if(oldstr3222){ +if(oldstr3222->fixed)qbs_set(oldstr3222,_FUNC_TYPNAME2TYP_STRING_T2); +qbs_free(_FUNC_TYPNAME2TYP_STRING_T2); +} +qbs_free(_FUNC_TYPNAME2TYP_STRING_T); +qbs_free(_FUNC_TYPNAME2TYP_STRING_TS); +qbs_free(_FUNC_TYPNAME2TYP_STRING_N); +qbs_free(_FUNC_TYPNAME2TYP_STRING_HASHNAME); diff --git a/internal/source/free5.txt b/internal/source/free5.txt index a12ce61b0..ee621b4a0 100644 --- a/internal/source/free5.txt +++ b/internal/source/free5.txt @@ -1,9 +1,9 @@ -if(oldstr2057){ -if(oldstr2057->fixed)qbs_set(oldstr2057,_FUNC_ALLOCARRAY_STRING_N2); +if(oldstr2210){ +if(oldstr2210->fixed)qbs_set(oldstr2210,_FUNC_ALLOCARRAY_STRING_N2); qbs_free(_FUNC_ALLOCARRAY_STRING_N2); } -if(oldstr2058){ -if(oldstr2058->fixed)qbs_set(oldstr2058,_FUNC_ALLOCARRAY_STRING_ELEMENTS); +if(oldstr2211){ +if(oldstr2211->fixed)qbs_set(oldstr2211,_FUNC_ALLOCARRAY_STRING_ELEMENTS); qbs_free(_FUNC_ALLOCARRAY_STRING_ELEMENTS); } qbs_free(_FUNC_ALLOCARRAY_STRING_F12); diff --git a/internal/source/free50.txt b/internal/source/free50.txt index c5c6a04a9..e69de29bb 100644 --- a/internal/source/free50.txt +++ b/internal/source/free50.txt @@ -1,10 +0,0 @@ -if(oldstr3057){ -if(oldstr3057->fixed)qbs_set(oldstr3057,_FUNC_VALIDLABEL_STRING_LABEL2); -qbs_free(_FUNC_VALIDLABEL_STRING_LABEL2); -} -qbs_free(_FUNC_VALIDLABEL_STRING_CLABEL); -qbs_free(_FUNC_VALIDLABEL_STRING_LABEL); -qbs_free(_FUNC_VALIDLABEL_STRING_A); -qbs_free(_FUNC_VALIDLABEL_STRING_T); -qbs_free(_FUNC_VALIDLABEL_STRING_ADDSYMBOL); -qbs_free(_FUNC_VALIDLABEL_STRING_LABEL3); diff --git a/internal/source/free51.txt b/internal/source/free51.txt index e69de29bb..a2cea4765 100644 --- a/internal/source/free51.txt +++ b/internal/source/free51.txt @@ -0,0 +1,10 @@ +if(oldstr3236){ +if(oldstr3236->fixed)qbs_set(oldstr3236,_FUNC_VALIDLABEL_STRING_LABEL2); +qbs_free(_FUNC_VALIDLABEL_STRING_LABEL2); +} +qbs_free(_FUNC_VALIDLABEL_STRING_CLABEL); +qbs_free(_FUNC_VALIDLABEL_STRING_LABEL); +qbs_free(_FUNC_VALIDLABEL_STRING_A); +qbs_free(_FUNC_VALIDLABEL_STRING_T); +qbs_free(_FUNC_VALIDLABEL_STRING_ADDSYMBOL); +qbs_free(_FUNC_VALIDLABEL_STRING_LABEL3); diff --git a/internal/source/free52.txt b/internal/source/free52.txt index 4aced6237..e69de29bb 100644 --- a/internal/source/free52.txt +++ b/internal/source/free52.txt @@ -1,16 +0,0 @@ -if(oldstr3080){ -if(oldstr3080->fixed)qbs_set(oldstr3080,_SUB_XFILEPRINT_STRING_A); -qbs_free(_SUB_XFILEPRINT_STRING_A); -} -if(oldstr3081){ -if(oldstr3081->fixed)qbs_set(oldstr3081,_SUB_XFILEPRINT_STRING_CA); -qbs_free(_SUB_XFILEPRINT_STRING_CA); -} -qbs_free(_SUB_XFILEPRINT_STRING_U); -qbs_free(_SUB_XFILEPRINT_STRING_A3); -qbs_free(_SUB_XFILEPRINT_STRING_A2); -qbs_free(_SUB_XFILEPRINT_STRING_E); -qbs_free(_SUB_XFILEPRINT_STRING_L); -qbs_free(_SUB_XFILEPRINT_STRING_PUFORMAT); -qbs_free(_SUB_XFILEPRINT_STRING_PUF); -qbs_free(_SUB_XFILEPRINT_STRING_EBAK); diff --git a/internal/source/free53.txt b/internal/source/free53.txt index 192713d05..0ae6ef0ce 100644 --- a/internal/source/free53.txt +++ b/internal/source/free53.txt @@ -1,10 +1,16 @@ -if(oldstr3137){ -if(oldstr3137->fixed)qbs_set(oldstr3137,_SUB_XFILEWRITE_STRING_CA); -qbs_free(_SUB_XFILEWRITE_STRING_CA); +if(oldstr3262){ +if(oldstr3262->fixed)qbs_set(oldstr3262,_SUB_XFILEPRINT_STRING_A); +qbs_free(_SUB_XFILEPRINT_STRING_A); } -qbs_free(_SUB_XFILEWRITE_STRING_L); -qbs_free(_SUB_XFILEWRITE_STRING_U); -qbs_free(_SUB_XFILEWRITE_STRING_A3); -qbs_free(_SUB_XFILEWRITE_STRING_A2); -qbs_free(_SUB_XFILEWRITE_STRING_E); -qbs_free(_SUB_XFILEWRITE_STRING_EBAK); +if(oldstr3263){ +if(oldstr3263->fixed)qbs_set(oldstr3263,_SUB_XFILEPRINT_STRING_CA); +qbs_free(_SUB_XFILEPRINT_STRING_CA); +} +qbs_free(_SUB_XFILEPRINT_STRING_U); +qbs_free(_SUB_XFILEPRINT_STRING_A3); +qbs_free(_SUB_XFILEPRINT_STRING_A2); +qbs_free(_SUB_XFILEPRINT_STRING_E); +qbs_free(_SUB_XFILEPRINT_STRING_L); +qbs_free(_SUB_XFILEPRINT_STRING_PUFORMAT); +qbs_free(_SUB_XFILEPRINT_STRING_PUF); +qbs_free(_SUB_XFILEPRINT_STRING_EBAK); diff --git a/internal/source/free54.txt b/internal/source/free54.txt index 0bbda7f61..402cf0d5f 100644 --- a/internal/source/free54.txt +++ b/internal/source/free54.txt @@ -1,6 +1,10 @@ -if(oldstr3155){ -if(oldstr3155->fixed)qbs_set(oldstr3155,_SUB_XGOSUB_STRING_CA); -qbs_free(_SUB_XGOSUB_STRING_CA); +if(oldstr3319){ +if(oldstr3319->fixed)qbs_set(oldstr3319,_SUB_XFILEWRITE_STRING_CA); +qbs_free(_SUB_XFILEWRITE_STRING_CA); } -qbs_free(_SUB_XGOSUB_STRING_A2); -qbs_free(_SUB_XGOSUB_STRING_L); +qbs_free(_SUB_XFILEWRITE_STRING_L); +qbs_free(_SUB_XFILEWRITE_STRING_U); +qbs_free(_SUB_XFILEWRITE_STRING_A3); +qbs_free(_SUB_XFILEWRITE_STRING_A2); +qbs_free(_SUB_XFILEWRITE_STRING_E); +qbs_free(_SUB_XFILEWRITE_STRING_EBAK); diff --git a/internal/source/free55.txt b/internal/source/free55.txt index c53d38a32..ccc1991ad 100644 --- a/internal/source/free55.txt +++ b/internal/source/free55.txt @@ -1,13 +1,6 @@ -if(oldstr3167){ -if(oldstr3167->fixed)qbs_set(oldstr3167,_SUB_XONGOTOGOSUB_STRING_A); -qbs_free(_SUB_XONGOTOGOSUB_STRING_A); +if(oldstr3337){ +if(oldstr3337->fixed)qbs_set(oldstr3337,_SUB_XGOSUB_STRING_CA); +qbs_free(_SUB_XGOSUB_STRING_CA); } -if(oldstr3168){ -if(oldstr3168->fixed)qbs_set(oldstr3168,_SUB_XONGOTOGOSUB_STRING_CA); -qbs_free(_SUB_XONGOTOGOSUB_STRING_CA); -} -qbs_free(_SUB_XONGOTOGOSUB_STRING_L); -qbs_free(_SUB_XONGOTOGOSUB_STRING_E2); -qbs_free(_SUB_XONGOTOGOSUB_STRING_E); -qbs_free(_SUB_XONGOTOGOSUB_STRING_U); -qbs_free(_SUB_XONGOTOGOSUB_STRING_LB); +qbs_free(_SUB_XGOSUB_STRING_A2); +qbs_free(_SUB_XGOSUB_STRING_L); diff --git a/internal/source/free56.txt b/internal/source/free56.txt index 65a49a3e6..03bc8b10e 100644 --- a/internal/source/free56.txt +++ b/internal/source/free56.txt @@ -1,16 +1,13 @@ -if(oldstr3195){ -if(oldstr3195->fixed)qbs_set(oldstr3195,_SUB_XPRINT_STRING_A); -qbs_free(_SUB_XPRINT_STRING_A); +if(oldstr3349){ +if(oldstr3349->fixed)qbs_set(oldstr3349,_SUB_XONGOTOGOSUB_STRING_A); +qbs_free(_SUB_XONGOTOGOSUB_STRING_A); } -if(oldstr3196){ -if(oldstr3196->fixed)qbs_set(oldstr3196,_SUB_XPRINT_STRING_CA); -qbs_free(_SUB_XPRINT_STRING_CA); +if(oldstr3350){ +if(oldstr3350->fixed)qbs_set(oldstr3350,_SUB_XONGOTOGOSUB_STRING_CA); +qbs_free(_SUB_XONGOTOGOSUB_STRING_CA); } -qbs_free(_SUB_XPRINT_STRING_U); -qbs_free(_SUB_XPRINT_STRING_L); -qbs_free(_SUB_XPRINT_STRING_LP); -qbs_free(_SUB_XPRINT_STRING_E); -qbs_free(_SUB_XPRINT_STRING_PUFORMAT); -qbs_free(_SUB_XPRINT_STRING_A2); -qbs_free(_SUB_XPRINT_STRING_PUF); -qbs_free(_SUB_XPRINT_STRING_EBAK); +qbs_free(_SUB_XONGOTOGOSUB_STRING_L); +qbs_free(_SUB_XONGOTOGOSUB_STRING_E2); +qbs_free(_SUB_XONGOTOGOSUB_STRING_E); +qbs_free(_SUB_XONGOTOGOSUB_STRING_U); +qbs_free(_SUB_XONGOTOGOSUB_STRING_LB); diff --git a/internal/source/free57.txt b/internal/source/free57.txt index 21d28dbbf..0f4e8aea8 100644 --- a/internal/source/free57.txt +++ b/internal/source/free57.txt @@ -1,8 +1,16 @@ -if(oldstr3259){ -if(oldstr3259->fixed)qbs_set(oldstr3259,_SUB_XREAD_STRING_CA); -qbs_free(_SUB_XREAD_STRING_CA); +if(oldstr3377){ +if(oldstr3377->fixed)qbs_set(oldstr3377,_SUB_XPRINT_STRING_A); +qbs_free(_SUB_XPRINT_STRING_A); } -qbs_free(_SUB_XREAD_STRING_L); -qbs_free(_SUB_XREAD_STRING_A3); -qbs_free(_SUB_XREAD_STRING_A2); -qbs_free(_SUB_XREAD_STRING_E); +if(oldstr3378){ +if(oldstr3378->fixed)qbs_set(oldstr3378,_SUB_XPRINT_STRING_CA); +qbs_free(_SUB_XPRINT_STRING_CA); +} +qbs_free(_SUB_XPRINT_STRING_U); +qbs_free(_SUB_XPRINT_STRING_L); +qbs_free(_SUB_XPRINT_STRING_LP); +qbs_free(_SUB_XPRINT_STRING_E); +qbs_free(_SUB_XPRINT_STRING_PUFORMAT); +qbs_free(_SUB_XPRINT_STRING_A2); +qbs_free(_SUB_XPRINT_STRING_PUF); +qbs_free(_SUB_XPRINT_STRING_EBAK); diff --git a/internal/source/free58.txt b/internal/source/free58.txt index e519d3f00..13f0ebe82 100644 --- a/internal/source/free58.txt +++ b/internal/source/free58.txt @@ -1,9 +1,8 @@ -if(oldstr3270){ -if(oldstr3270->fixed)qbs_set(oldstr3270,_SUB_XWRITE_STRING_CA); -qbs_free(_SUB_XWRITE_STRING_CA); +if(oldstr3441){ +if(oldstr3441->fixed)qbs_set(oldstr3441,_SUB_XREAD_STRING_CA); +qbs_free(_SUB_XREAD_STRING_CA); } -qbs_free(_SUB_XWRITE_STRING_L); -qbs_free(_SUB_XWRITE_STRING_U); -qbs_free(_SUB_XWRITE_STRING_E); -qbs_free(_SUB_XWRITE_STRING_A2); -qbs_free(_SUB_XWRITE_STRING_EBAK); +qbs_free(_SUB_XREAD_STRING_L); +qbs_free(_SUB_XREAD_STRING_A3); +qbs_free(_SUB_XREAD_STRING_A2); +qbs_free(_SUB_XREAD_STRING_E); diff --git a/internal/source/free59.txt b/internal/source/free59.txt index 0a4b8f93c..43fa0114c 100644 --- a/internal/source/free59.txt +++ b/internal/source/free59.txt @@ -1,32 +1,9 @@ -if(oldstr3281){ -if(oldstr3281->fixed)qbs_set(oldstr3281,_FUNC_EVALUATECONST_STRING_A2); -qbs_free(_FUNC_EVALUATECONST_STRING_A2); +if(oldstr3452){ +if(oldstr3452->fixed)qbs_set(oldstr3452,_SUB_XWRITE_STRING_CA); +qbs_free(_SUB_XWRITE_STRING_CA); } -qbs_free(_FUNC_EVALUATECONST_STRING_A); -if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&1){ -tmp_long=_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long]); -free((void*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK)[8] ); -if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&1){ -if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0])); -}else{ -free((void*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS)[8] ); -if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&1){ -if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&4){ -cmem_dynamic_free((uint8*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0])); -}else{ -free((void*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE)[8] ); -qbs_free(_FUNC_EVALUATECONST_STRING_E); -qbs_free(_FUNC_EVALUATECONST_STRING_O); -qbs_free(_FUNC_EVALUATECONST_STRING_EV); -qbs_free(_FUNC_EVALUATECONST_STRING_S1); -qbs_free(_FUNC_EVALUATECONST_STRING_S2); +qbs_free(_SUB_XWRITE_STRING_L); +qbs_free(_SUB_XWRITE_STRING_U); +qbs_free(_SUB_XWRITE_STRING_E); +qbs_free(_SUB_XWRITE_STRING_A2); +qbs_free(_SUB_XWRITE_STRING_EBAK); diff --git a/internal/source/free6.txt b/internal/source/free6.txt index db4a93d82..5f6a48f78 100644 --- a/internal/source/free6.txt +++ b/internal/source/free6.txt @@ -1,8 +1,9 @@ -if(oldstr2144){ -if(oldstr2144->fixed)qbs_set(oldstr2144,_FUNC_ARRAYREFERENCE_STRING_INDEXES); +if(oldstr2297){ +if(oldstr2297->fixed)qbs_set(oldstr2297,_FUNC_ARRAYREFERENCE_STRING_INDEXES); qbs_free(_FUNC_ARRAYREFERENCE_STRING_INDEXES); } qbs_free(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER); +qbs_free(*((qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+ 2861))); qbs_free(_FUNC_ARRAYREFERENCE_STRING_A); qbs_free(_FUNC_ARRAYREFERENCE_STRING_N); qbs_free(_FUNC_ARRAYREFERENCE_STRING_R); diff --git a/internal/source/free60.txt b/internal/source/free60.txt index 547e0d8e3..2fa4b7592 100644 --- a/internal/source/free60.txt +++ b/internal/source/free60.txt @@ -1 +1,32 @@ -qbs_free(_FUNC_TYPEVALUE2SYMBOL_STRING_S); +if(oldstr3463){ +if(oldstr3463->fixed)qbs_set(oldstr3463,_FUNC_EVALUATECONST_STRING_A2); +qbs_free(_FUNC_EVALUATECONST_STRING_A2); +} +qbs_free(_FUNC_EVALUATECONST_STRING_A); +if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&1){ +tmp_long=_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long]); +free((void*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK)[8] ); +if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&1){ +if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0])); +}else{ +free((void*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS)[8] ); +if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&1){ +if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0])); +}else{ +free((void*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE)[8] ); +qbs_free(_FUNC_EVALUATECONST_STRING_E); +qbs_free(_FUNC_EVALUATECONST_STRING_O); +qbs_free(_FUNC_EVALUATECONST_STRING_EV); +qbs_free(_FUNC_EVALUATECONST_STRING_S1); +qbs_free(_FUNC_EVALUATECONST_STRING_S2); diff --git a/internal/source/free61.txt b/internal/source/free61.txt index 3c51d6d23..547e0d8e3 100644 --- a/internal/source/free61.txt +++ b/internal/source/free61.txt @@ -1 +1 @@ -qbs_free(_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_free(_FUNC_TYPEVALUE2SYMBOL_STRING_S); diff --git a/internal/source/free62.txt b/internal/source/free62.txt index 01da0c31a..3c51d6d23 100644 --- a/internal/source/free62.txt +++ b/internal/source/free62.txt @@ -1 +1 @@ -qbs_free(_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_free(_FUNC_ID2FULLTYPENAME_STRING_A); diff --git a/internal/source/free63.txt b/internal/source/free63.txt index 098404dc6..01da0c31a 100644 --- a/internal/source/free63.txt +++ b/internal/source/free63.txt @@ -1,9 +1 @@ -if(oldstr3309){ -if(oldstr3309->fixed)qbs_set(oldstr3309,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); -qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); -} -qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_S); -qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP); -qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_U); -qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_T); -qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_N); +qbs_free(_FUNC_ID2SHORTTYPENAME_STRING_A); diff --git a/internal/source/free64.txt b/internal/source/free64.txt index 7e0127862..7ce8ae705 100644 --- a/internal/source/free64.txt +++ b/internal/source/free64.txt @@ -1,4 +1,9 @@ -if(oldstr3318){ -if(oldstr3318->fixed)qbs_set(oldstr3318,_SUB_LINEINPUT3LOAD_STRING_F); -qbs_free(_SUB_LINEINPUT3LOAD_STRING_F); +if(oldstr3491){ +if(oldstr3491->fixed)qbs_set(oldstr3491,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); +qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); } +qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_S); +qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP); +qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_U); +qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_T); +qbs_free(_FUNC_SYMBOL2FULLTYPENAME_STRING_N); diff --git a/internal/source/free65.txt b/internal/source/free65.txt index e69de29bb..e22b9255d 100644 --- a/internal/source/free65.txt +++ b/internal/source/free65.txt @@ -0,0 +1,4 @@ +if(oldstr3500){ +if(oldstr3500->fixed)qbs_set(oldstr3500,_SUB_LINEINPUT3LOAD_STRING_F); +qbs_free(_SUB_LINEINPUT3LOAD_STRING_F); +} diff --git a/internal/source/free66.txt b/internal/source/free66.txt index b4303878a..e69de29bb 100644 --- a/internal/source/free66.txt +++ b/internal/source/free66.txt @@ -1,5 +0,0 @@ -if(oldstr3322){ -if(oldstr3322->fixed)qbs_set(oldstr3322,_FUNC_GETFILEPATH_STRING_F); -qbs_free(_FUNC_GETFILEPATH_STRING_F); -} -qbs_free(_FUNC_GETFILEPATH_STRING_A); diff --git a/internal/source/free67.txt b/internal/source/free67.txt index 65a9d2489..2739d20af 100644 --- a/internal/source/free67.txt +++ b/internal/source/free67.txt @@ -1,6 +1,5 @@ -if(oldstr3326){ -if(oldstr3326->fixed)qbs_set(oldstr3326,_FUNC_ELEUCASE_STRING_A); -qbs_free(_FUNC_ELEUCASE_STRING_A); +if(oldstr3504){ +if(oldstr3504->fixed)qbs_set(oldstr3504,_FUNC_GETFILEPATH_STRING_F); +qbs_free(_FUNC_GETFILEPATH_STRING_F); } -qbs_free(_FUNC_ELEUCASE_STRING_A2); -qbs_free(_FUNC_ELEUCASE_STRING_SP34); +qbs_free(_FUNC_GETFILEPATH_STRING_A); diff --git a/internal/source/free68.txt b/internal/source/free68.txt index e69de29bb..6fc5d5e40 100644 --- a/internal/source/free68.txt +++ b/internal/source/free68.txt @@ -0,0 +1,6 @@ +if(oldstr3508){ +if(oldstr3508->fixed)qbs_set(oldstr3508,_FUNC_ELEUCASE_STRING_A); +qbs_free(_FUNC_ELEUCASE_STRING_A); +} +qbs_free(_FUNC_ELEUCASE_STRING_A2); +qbs_free(_FUNC_ELEUCASE_STRING_SP34); diff --git a/internal/source/free69.txt b/internal/source/free69.txt index 4f7d776ea..e69de29bb 100644 --- a/internal/source/free69.txt +++ b/internal/source/free69.txt @@ -1,7 +0,0 @@ -if(oldstr3333){ -if(oldstr3333->fixed)qbs_set(oldstr3333,_SUB_BUILD_STRING_PATH); -qbs_free(_SUB_BUILD_STRING_PATH); -} -qbs_free(_SUB_BUILD_STRING_PREVIOUS_DIR); -qbs_free(_SUB_BUILD_STRING_RETURN_PATH); -qbs_free(_SUB_BUILD_STRING_C); diff --git a/internal/source/free7.txt b/internal/source/free7.txt index 8a56c9d7b..20febdee3 100644 --- a/internal/source/free7.txt +++ b/internal/source/free7.txt @@ -1,5 +1,5 @@ -if(oldstr2156){ -if(oldstr2156->fixed)qbs_set(oldstr2156,_SUB_ASSIGN_STRING_A); +if(oldstr2310){ +if(oldstr2310->fixed)qbs_set(oldstr2310,_SUB_ASSIGN_STRING_A); qbs_free(_SUB_ASSIGN_STRING_A); } qbs_free(_SUB_ASSIGN_STRING_A2); diff --git a/internal/source/free70.txt b/internal/source/free70.txt index 322283d1d..08779442d 100644 --- a/internal/source/free70.txt +++ b/internal/source/free70.txt @@ -1,6 +1,7 @@ -if(oldstr3342){ -if(oldstr3342->fixed)qbs_set(oldstr3342,_FUNC_GDB_FIX_STRING_G_COMMAND); -qbs_free(_FUNC_GDB_FIX_STRING_G_COMMAND); +if(oldstr3515){ +if(oldstr3515->fixed)qbs_set(oldstr3515,_SUB_BUILD_STRING_PATH); +qbs_free(_SUB_BUILD_STRING_PATH); } -qbs_free(_FUNC_GDB_FIX_STRING_C); -qbs_free(_FUNC_GDB_FIX_STRING_O); +qbs_free(_SUB_BUILD_STRING_PREVIOUS_DIR); +qbs_free(_SUB_BUILD_STRING_RETURN_PATH); +qbs_free(_SUB_BUILD_STRING_C); diff --git a/internal/source/free71.txt b/internal/source/free71.txt index 94b2f6fdd..83155147a 100644 --- a/internal/source/free71.txt +++ b/internal/source/free71.txt @@ -1,4 +1,6 @@ -if(oldstr3349){ -if(oldstr3349->fixed)qbs_set(oldstr3349,_SUB_PATH_SLASH_CORRECT_STRING_A); -qbs_free(_SUB_PATH_SLASH_CORRECT_STRING_A); +if(oldstr3524){ +if(oldstr3524->fixed)qbs_set(oldstr3524,_FUNC_GDB_FIX_STRING_G_COMMAND); +qbs_free(_FUNC_GDB_FIX_STRING_G_COMMAND); } +qbs_free(_FUNC_GDB_FIX_STRING_C); +qbs_free(_FUNC_GDB_FIX_STRING_O); diff --git a/internal/source/free72.txt b/internal/source/free72.txt index e69de29bb..757ff2468 100644 --- a/internal/source/free72.txt +++ b/internal/source/free72.txt @@ -0,0 +1,4 @@ +if(oldstr3531){ +if(oldstr3531->fixed)qbs_set(oldstr3531,_SUB_PATH_SLASH_CORRECT_STRING_A); +qbs_free(_SUB_PATH_SLASH_CORRECT_STRING_A); +} diff --git a/internal/source/free73.txt b/internal/source/free73.txt index d00876d8e..763886206 100644 --- a/internal/source/free73.txt +++ b/internal/source/free73.txt @@ -1,9 +1,7 @@ -if(oldstr3356){ -if(oldstr3356->fixed)qbs_set(oldstr3356,_FUNC_EVALUATE_EXPRESSION_STRING_E); +if(oldstr3538){ +if(oldstr3538->fixed)qbs_set(oldstr3538,_FUNC_EVALUATE_EXPRESSION_STRING_E); qbs_free(_FUNC_EVALUATE_EXPRESSION_STRING_E); } qbs_free(_FUNC_EVALUATE_EXPRESSION_STRING_T); -qbs_free(_FUNC_EVALUATE_EXPRESSION_STRING_VAR); qbs_free(_FUNC_EVALUATE_EXPRESSION_STRING_EXP); qbs_free(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); -qbs_free(_FUNC_EVALUATE_EXPRESSION_STRING_TEMPPP); diff --git a/internal/source/free74.txt b/internal/source/free74.txt index 5b0642787..4cc290cad 100644 --- a/internal/source/free74.txt +++ b/internal/source/free74.txt @@ -1,5 +1,5 @@ -if(oldstr3363){ -if(oldstr3363->fixed)qbs_set(oldstr3363,_SUB_PARSEEXPRESSION_STRING_EXP); +if(oldstr3544){ +if(oldstr3544->fixed)qbs_set(oldstr3544,_SUB_PARSEEXPRESSION_STRING_EXP); qbs_free(_SUB_PARSEEXPRESSION_STRING_EXP); } if (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&1){ diff --git a/internal/source/free76.txt b/internal/source/free76.txt index e69de29bb..cedc3f782 100644 --- a/internal/source/free76.txt +++ b/internal/source/free76.txt @@ -0,0 +1,2 @@ +qbs_free(_FUNC_EVALUATENUMBERS_STRING_C); +qbs_free(_FUNC_EVALUATENUMBERS_STRING_N); diff --git a/internal/source/free77.txt b/internal/source/free77.txt index 531603188..652bc6a50 100644 --- a/internal/source/free77.txt +++ b/internal/source/free77.txt @@ -1,5 +1,5 @@ -if(oldstr3383){ -if(oldstr3383->fixed)qbs_set(oldstr3383,_FUNC_DWD_STRING_EXP); +if(oldstr3575){ +if(oldstr3575->fixed)qbs_set(oldstr3575,_FUNC_DWD_STRING_EXP); qbs_free(_FUNC_DWD_STRING_EXP); } qbs_free(_FUNC_DWD_STRING_T); diff --git a/internal/source/free78.txt b/internal/source/free78.txt index b8fc90276..e318fe7fe 100644 --- a/internal/source/free78.txt +++ b/internal/source/free78.txt @@ -1,7 +1,12 @@ -if(oldstr3389){ -if(oldstr3389->fixed)qbs_set(oldstr3389,_SUB_PREPARSE_STRING_E); +if(oldstr3581){ +if(oldstr3581->fixed)qbs_set(oldstr3581,_SUB_PREPARSE_STRING_E); qbs_free(_SUB_PREPARSE_STRING_E); } qbs_free(_SUB_PREPARSE_STRING_T); +qbs_free(_SUB_PREPARSE_STRING_SEP); +qbs_free(_SUB_PREPARSE_STRING_THISCONSTNAME); +qbs_free(_SUB_PREPARSE_STRING_R); +qbs_free(_SUB_PREPARSE_STRING_L); +qbs_free(_SUB_PREPARSE_STRING_M); qbs_free(_SUB_PREPARSE_STRING_COMP); qbs_free(_SUB_PREPARSE_STRING_BIN); diff --git a/internal/source/free79.txt b/internal/source/free79.txt index a57c86ab9..051b64bd0 100644 --- a/internal/source/free79.txt +++ b/internal/source/free79.txt @@ -1,5 +1,5 @@ -if(oldstr3426){ -if(oldstr3426->fixed)qbs_set(oldstr3426,_SUB_VERIFYSTRING_STRING_T); +if(oldstr3636){ +if(oldstr3636->fixed)qbs_set(oldstr3636,_SUB_VERIFYSTRING_STRING_T); qbs_free(_SUB_VERIFYSTRING_STRING_T); } qbs_free(_SUB_VERIFYSTRING_STRING_COMP); diff --git a/internal/source/free80.txt b/internal/source/free80.txt index 84570a0b9..31cb7de34 100644 --- a/internal/source/free80.txt +++ b/internal/source/free80.txt @@ -1,5 +1,5 @@ -if(oldstr3434){ -if(oldstr3434->fixed)qbs_set(oldstr3434,_FUNC_N2S_STRING_EXP); +if(oldstr3645){ +if(oldstr3645->fixed)qbs_set(oldstr3645,_FUNC_N2S_STRING_EXP); qbs_free(_FUNC_N2S_STRING_EXP); } qbs_free(_FUNC_N2S_STRING_T); diff --git a/internal/source/free81.txt b/internal/source/free81.txt index aa495bd09..cec31a219 100644 --- a/internal/source/free81.txt +++ b/internal/source/free81.txt @@ -1,4 +1,4 @@ -if(oldstr3442){ -if(oldstr3442->fixed)qbs_set(oldstr3442,_FUNC_QUOTEDFILENAME_STRING_F); +if(oldstr3653){ +if(oldstr3653->fixed)qbs_set(oldstr3653,_FUNC_QUOTEDFILENAME_STRING_F); qbs_free(_FUNC_QUOTEDFILENAME_STRING_F); } diff --git a/internal/source/free82.txt b/internal/source/free82.txt index da5a992d0..f3945e72c 100644 --- a/internal/source/free82.txt +++ b/internal/source/free82.txt @@ -1,4 +1,4 @@ -if(oldstr3443){ -if(oldstr3443->fixed)qbs_set(oldstr3443,_FUNC_HASHVALUE_STRING_A); +if(oldstr3654){ +if(oldstr3654->fixed)qbs_set(oldstr3654,_FUNC_HASHVALUE_STRING_A); qbs_free(_FUNC_HASHVALUE_STRING_A); } diff --git a/internal/source/free83.txt b/internal/source/free83.txt index dc7574f2a..f47a5cb7c 100644 --- a/internal/source/free83.txt +++ b/internal/source/free83.txt @@ -1,4 +1,4 @@ -if(oldstr3447){ -if(oldstr3447->fixed)qbs_set(oldstr3447,_SUB_HASHADD_STRING_A); +if(oldstr3658){ +if(oldstr3658->fixed)qbs_set(oldstr3658,_SUB_HASHADD_STRING_A); qbs_free(_SUB_HASHADD_STRING_A); } diff --git a/internal/source/free84.txt b/internal/source/free84.txt index 910d6de16..d983b85c4 100644 --- a/internal/source/free84.txt +++ b/internal/source/free84.txt @@ -1,5 +1,5 @@ -if(oldstr3448){ -if(oldstr3448->fixed)qbs_set(oldstr3448,_FUNC_HASHFIND_STRING_A); +if(oldstr3659){ +if(oldstr3659->fixed)qbs_set(oldstr3659,_FUNC_HASHFIND_STRING_A); qbs_free(_FUNC_HASHFIND_STRING_A); } qbs_free(_FUNC_HASHFIND_STRING_UA); diff --git a/internal/source/free85.txt b/internal/source/free85.txt index 541ebf08a..8f33cdb2a 100644 --- a/internal/source/free85.txt +++ b/internal/source/free85.txt @@ -1,5 +1,5 @@ -if(oldstr3450){ -if(oldstr3450->fixed)qbs_set(oldstr3450,_FUNC_HASHFINDREV_STRING_A); +if(oldstr3661){ +if(oldstr3661->fixed)qbs_set(oldstr3661,_FUNC_HASHFINDREV_STRING_A); qbs_free(_FUNC_HASHFINDREV_STRING_A); } qbs_free(_FUNC_HASHFINDREV_STRING_UA); diff --git a/internal/source/free9.txt b/internal/source/free9.txt index e69de29bb..844e3aab8 100644 --- a/internal/source/free9.txt +++ b/internal/source/free9.txt @@ -0,0 +1,4 @@ +if(oldstr2318){ +if(oldstr2318->fixed)qbs_set(oldstr2318,_SUB_VWATCHVARIABLE_STRING_THIS); +qbs_free(_SUB_VWATCHVARIABLE_STRING_THIS); +} diff --git a/internal/source/free90.txt b/internal/source/free90.txt index 917483231..00163af8e 100644 --- a/internal/source/free90.txt +++ b/internal/source/free90.txt @@ -1,4 +1,4 @@ -if(oldstr3461){ -if(oldstr3461->fixed)qbs_set(oldstr3461,_FUNC_REMOVECAST_STRING_A); +if(oldstr3672){ +if(oldstr3672->fixed)qbs_set(oldstr3672,_FUNC_REMOVECAST_STRING_A); qbs_free(_FUNC_REMOVECAST_STRING_A); } diff --git a/internal/source/free91.txt b/internal/source/free91.txt index b9c8c8de4..508550c83 100644 --- a/internal/source/free91.txt +++ b/internal/source/free91.txt @@ -1,5 +1,5 @@ -if(oldstr3463){ -if(oldstr3463->fixed)qbs_set(oldstr3463,_FUNC_CONVERTTABS_STRING_A2); +if(oldstr3674){ +if(oldstr3674->fixed)qbs_set(oldstr3674,_FUNC_CONVERTTABS_STRING_A2); qbs_free(_FUNC_CONVERTTABS_STRING_A2); } qbs_free(_FUNC_CONVERTTABS_STRING_A); diff --git a/internal/source/free93.txt b/internal/source/free93.txt index 88a425da9..2f13062a8 100644 --- a/internal/source/free93.txt +++ b/internal/source/free93.txt @@ -1,4 +1,4 @@ -if(oldstr3472){ -if(oldstr3472->fixed)qbs_set(oldstr3472,_FUNC_VALIDNAME_STRING_A); +if(oldstr3683){ +if(oldstr3683->fixed)qbs_set(oldstr3683,_FUNC_VALIDNAME_STRING_A); qbs_free(_FUNC_VALIDNAME_STRING_A); } diff --git a/internal/source/free95.txt b/internal/source/free95.txt index 5e16a6526..d2106fe5d 100644 --- a/internal/source/free95.txt +++ b/internal/source/free95.txt @@ -1,4 +1,4 @@ -if(oldstr3479){ -if(oldstr3479->fixed)qbs_set(oldstr3479,_SUB_GIVE_ERROR_STRING_A); +if(oldstr3690){ +if(oldstr3690->fixed)qbs_set(oldstr3690,_SUB_GIVE_ERROR_STRING_A); qbs_free(_SUB_GIVE_ERROR_STRING_A); } diff --git a/internal/source/free96.txt b/internal/source/free96.txt index a67ba606c..15b491c1f 100644 --- a/internal/source/free96.txt +++ b/internal/source/free96.txt @@ -1,17 +1,12 @@ -if(oldstr3480){ -if(oldstr3480->fixed)qbs_set(oldstr3480,_SUB_WRITECONFIGSETTING_STRING_HEADING); -qbs_free(_SUB_WRITECONFIGSETTING_STRING_HEADING); +if(oldstr3691){ +if(oldstr3691->fixed)qbs_set(oldstr3691,_SUB_WRITECONFIGSETTING_STRING_SECTION); +qbs_free(_SUB_WRITECONFIGSETTING_STRING_SECTION); } -if(oldstr3481){ -if(oldstr3481->fixed)qbs_set(oldstr3481,_SUB_WRITECONFIGSETTING_STRING_ITEM); +if(oldstr3692){ +if(oldstr3692->fixed)qbs_set(oldstr3692,_SUB_WRITECONFIGSETTING_STRING_ITEM); qbs_free(_SUB_WRITECONFIGSETTING_STRING_ITEM); } -if(oldstr3482){ -if(oldstr3482->fixed)qbs_set(oldstr3482,_SUB_WRITECONFIGSETTING_STRING_TVALUE); -qbs_free(_SUB_WRITECONFIGSETTING_STRING_TVALUE); -} +if(oldstr3693){ +if(oldstr3693->fixed)qbs_set(oldstr3693,_SUB_WRITECONFIGSETTING_STRING_VALUE); qbs_free(_SUB_WRITECONFIGSETTING_STRING_VALUE); -qbs_free(_SUB_WRITECONFIGSETTING_STRING_JUNK); -qbs_free(_SUB_WRITECONFIGSETTING_STRING_COMPARE); -qbs_free(_SUB_WRITECONFIGSETTING_STRING_OUT); -qbs_free(_SUB_WRITECONFIGSETTING_STRING_TEMP); +} diff --git a/internal/source/free97.txt b/internal/source/free97.txt index be7201d5d..fd49c165d 100644 --- a/internal/source/free97.txt +++ b/internal/source/free97.txt @@ -1,10 +1,12 @@ -if(oldstr3494){ -if(oldstr3494->fixed)qbs_set(oldstr3494,_FUNC_READCONFIGSETTING_STRING_ITEM); +if(oldstr3694){ +if(oldstr3694->fixed)qbs_set(oldstr3694,_FUNC_READCONFIGSETTING_STRING_SECTION); +qbs_free(_FUNC_READCONFIGSETTING_STRING_SECTION); +} +if(oldstr3695){ +if(oldstr3695->fixed)qbs_set(oldstr3695,_FUNC_READCONFIGSETTING_STRING_ITEM); qbs_free(_FUNC_READCONFIGSETTING_STRING_ITEM); } -if(oldstr3495){ -if(oldstr3495->fixed)qbs_set(oldstr3495,_FUNC_READCONFIGSETTING_STRING_VALUE); +if(oldstr3696){ +if(oldstr3696->fixed)qbs_set(oldstr3696,_FUNC_READCONFIGSETTING_STRING_VALUE); qbs_free(_FUNC_READCONFIGSETTING_STRING_VALUE); } -qbs_free(_FUNC_READCONFIGSETTING_STRING_TEMP); -qbs_free(_FUNC_READCONFIGSETTING_STRING_COMPARE); diff --git a/internal/source/free98.txt b/internal/source/free98.txt index d4a88d9a9..e51e1583d 100644 --- a/internal/source/free98.txt +++ b/internal/source/free98.txt @@ -1,4 +1,4 @@ -if(oldstr3499){ -if(oldstr3499->fixed)qbs_set(oldstr3499,_FUNC_VRGBS_STRING_TEXT); +if(oldstr3698){ +if(oldstr3698->fixed)qbs_set(oldstr3698,_FUNC_VRGBS_STRING_TEXT); qbs_free(_FUNC_VRGBS_STRING_TEXT); } diff --git a/internal/source/free99.txt b/internal/source/free99.txt index 1b4b132d7..e69de29bb 100644 --- a/internal/source/free99.txt +++ b/internal/source/free99.txt @@ -1,26 +0,0 @@ -if(oldstr3500){ -if(oldstr3500->fixed)qbs_set(oldstr3500,_FUNC_EVALPREIF_STRING_TEXT); -qbs_free(_FUNC_EVALPREIF_STRING_TEXT); -} -if(oldstr3501){ -if(oldstr3501->fixed)qbs_set(oldstr3501,_FUNC_EVALPREIF_STRING_ERR); -qbs_free(_FUNC_EVALPREIF_STRING_ERR); -} -qbs_free(_FUNC_EVALPREIF_STRING_TEMP); -if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&1){ -tmp_long=_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]); -free((void*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALPREIF_ARRAY_STRING_PC_OP)[8] ); -qbs_free(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL); -qbs_free(_FUNC_EVALPREIF_STRING_A); -qbs_free(_FUNC_EVALPREIF_STRING_SECONDSYMBOL); -qbs_free(_FUNC_EVALPREIF_STRING_L); -qbs_free(_FUNC_EVALPREIF_STRING_R); -qbs_free(_FUNC_EVALPREIF_STRING_SYMBOL); -qbs_free(_FUNC_EVALPREIF_STRING_LEFTSIDE); -qbs_free(_FUNC_EVALPREIF_STRING_RIGHTSIDE); -qbs_free(_FUNC_EVALPREIF_STRING_RESULT); -qbs_free(_FUNC_EVALPREIF_STRING_T); -qbs_free(_FUNC_EVALPREIF_STRING_M); diff --git a/internal/source/global.txt b/internal/source/global.txt index 17fd6f579..fda291f87 100644 --- a/internal/source/global.txt +++ b/internal/source/global.txt @@ -1,14 +1,19 @@ -int32 cloud_app=0; char *g_tmp_udt_GL_IDSTRUCT=(char*)malloc(216); char *g_tmp_udt_HELP_BACK_TYPE=(char*)malloc(16); char *g_tmp_udt_IDEBMKTYPE=(char*)malloc(16); +char *g_tmp_udt_QUICKNAVTYPE=(char*)malloc(16); char *g_tmp_udt_IDEDBPTYPE=(char*)malloc(20); -char *g_tmp_udt_IDEDBOTYPE=(char*)malloc(85); +char *g_tmp_udt_IDEDBOTYPE=(char*)malloc(89); +char *g_tmp_udt_USEDVARLIST=(char*)malloc(120); char *g_tmp_udt_HASHLISTITEM=(char*)malloc(20); char *g_tmp_udt_LABEL_TYPE=(char*)malloc(282); -char *g_tmp_udt_IDSTRUCT=(char*)malloc(2863); +char *g_tmp_udt_IDSTRUCT=(char*)malloc(2869); +char *g_tmp_udt_VWATCHPANELTYPE=(char*)malloc(36); +char *g_tmp_udt_UI=(char*)malloc(16); +char *g_tmp_udt_VARDLGLIST=(char*)malloc(33); +char *g_tmp_udt_POSITION=(char*)malloc(12); qbs *__STRING_VERSION=NULL; -qbs *__STRING_BUILDNUM=NULL; +qbs *__STRING_DEVCHANNEL=NULL; qbs *__STRING_AUTOBUILDMSG=NULL; int32 *__LONG_VERSIONFILE=NULL; qbs *__STRING1_SP=NULL; @@ -27,12 +32,20 @@ ptrszint *__ARRAY_STRING_GL_DEFINES=NULL; ptrszint *__ARRAY_INTEGER64_GL_DEFINES_VALUE=NULL; int32 *__LONG_GL_DEFINES_LAST=NULL; int32 *__LONG_GL_KIT=NULL; -ptrszint *__ARRAY_STRING_INSTALLFILES=NULL; -ptrszint *__ARRAY_STRING_INSTALLFILESSOURCELOCATION=NULL; -ptrszint *__ARRAY_STRING_INSTALLFILESIN=NULL; -ptrszint *__ARRAY_STRING_INSTALLFOLDER=NULL; -ptrszint *__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION=NULL; -ptrszint *__ARRAY_STRING_INSTALLFOLDERIN=NULL; +qbs *__STRING_CURRENTINIFILENAME=NULL; +uint32 *__ULONG_CURRENTINIFILELOF=NULL; +qbs *__STRING_INIWHOLEFILE=NULL; +qbs *__STRING_INISECTIONDATA=NULL; +uint32 *__ULONG_INIPOSITION=NULL; +qbs *__STRING_ININEWFILE=NULL; +qbs *__STRING_INILASTSECTION=NULL; +qbs *__STRING_INILASTKEY=NULL; +qbs *__STRING_INILF=NULL; +int32 *__LONG_INIDISABLEAUTOCOMMIT=NULL; +int32 *__LONG_INICODE=NULL; +int32 *__LONG_INIALLOWBASICCOMMENTS=NULL; +int32 *__LONG_INIFORCERELOAD=NULL; +int32 *__LONG_INIDISABLEADDQUOTES=NULL; qbs *__STRING_CACHE_FOLDER=NULL; int32 *__LONG_HELP_SX=NULL; int32 *__LONG_HELP_SY=NULL; @@ -87,11 +100,29 @@ int8 *__BYTE_ALTSPECIAL=NULL; int32 *__LONG_IDEBUILDMODECHANGED=NULL; qbs *__STRING_IDEINFO=NULL; int8 *__BYTE_IDECONTEXTHELPSF=NULL; +int32 *__LONG_HOST=NULL; +int32 *__LONG_DEBUGCLIENT=NULL; +qbs *__STRING_HOSTPORT=NULL; +qbs *__STRING_VARIABLEWATCHLIST=NULL; +qbs *__STRING_BACKUPVARIABLEWATCHLIST=NULL; +qbs *__STRING_WATCHPOINTLIST=NULL; +ptrszint *__ARRAY_STRING_VWATCHRECEIVEDDATA=NULL; +int32 *__LONG_NEXTVWATCHDATASLOT=NULL; +int32 *__LONG_LATESTWATCHPOINTMET=NULL; +int8 *__BYTE_STARTPAUSEDPENDING=NULL; int32 *__LONG_IDESYSTEM=NULL; +int32 *__LONG_IDEDEBUGMODE=NULL; +int32 *__LONG_CALLSTACKLENGTH=NULL; +qbs *__STRING_CALLSTACKLIST=NULL; ptrszint *__ARRAY_STRING_IDERECENTLINK=NULL; qbs *__STRING_IDEOPENFILE=NULL; +qbs *__STRING_FILEDLGSEARCHTERM=NULL; ptrszint *__ARRAY_UDT_IDEBMK=NULL; int32 *__LONG_IDEBMKN=NULL; +int32 *__LONG_QUICKNAVTOTAL=NULL; +ptrszint *__ARRAY_UDT_QUICKNAVHISTORY=NULL; +ptrszint *__ARRAY_BYTE_IDEBREAKPOINTS=NULL; +ptrszint *__ARRAY_BYTE_IDESKIPLINES=NULL; int32 *__LONG_ICHECKLATER=NULL; int32 *__LONG_ICHANGED=NULL; int32 *__LONG_MX=NULL; @@ -127,6 +158,7 @@ qbs *__STRING_LISTOFCUSTOMKEYWORDS=NULL; int32 *__LONG_CUSTOMKEYWORDSLENGTH=NULL; int32 *__LONG_IDESUBWINDOW=NULL; int32 *__LONG_IDEHELP=NULL; +int16 *__INTEGER_STATUSAREALINK=NULL; int32 *__LONG_IDEEXIT=NULL; qbs *__STRING_IDET=NULL; int32 *__LONG_IDEL=NULL; @@ -143,6 +175,7 @@ int32 *__LONG_IDESX=NULL; int32 *__LONG_IDESY=NULL; int32 *__LONG_IDECX=NULL; int32 *__LONG_IDECY=NULL; +int32 *__LONG_DEBUGNEXTLINE=NULL; int32 *__LONG_IDESELECT=NULL; int32 *__LONG_IDESELECTX1=NULL; int32 *__LONG_IDESELECTY1=NULL; @@ -154,21 +187,22 @@ qbs *__STRING_IDEROOT=NULL; ptrszint *__ARRAY_STRING_IDETXT=NULL; int16 *__INTEGER_IDETXTLAST=NULL; int32 *__LONG_IDEHL=NULL; -ptrszint *__ARRAY_INTEGER_IDEALTCODE=NULL; qbs *__STRING_IDEPROGNAME=NULL; qbs *__STRING_IDEPATH=NULL; qbs *__STRING_IDEFINDTEXT=NULL; int16 *__INTEGER_IDEFINDCASESENS=NULL; int16 *__INTEGER_IDEFINDWHOLEWORD=NULL; int16 *__INTEGER_IDEFINDBACKWARDS=NULL; +int16 *__INTEGER_IDEFINDNOCOMMENTS=NULL; +int16 *__INTEGER_IDEFINDNOSTRINGS=NULL; +int16 *__INTEGER_IDEFINDONLYCOMMENTS=NULL; +int16 *__INTEGER_IDEFINDONLYSTRINGS=NULL; int16 *__INTEGER_IDEFINDINVERT=NULL; qbs *__STRING_IDECHANGETO=NULL; int16 *__INTEGER_IDECHANGEMADE=NULL; int16 *__INTEGER_IDEINSERT=NULL; qbs *__STRING1_IDEPATHSEP=NULL; ptrszint *__ARRAY_STRING_SUBFUNCLIST=NULL; -int32 *__LONG_QUICKNAVTOTAL=NULL; -ptrszint *__ARRAY_LONG_QUICKNAVHISTORY=NULL; qbs *__STRING_MODIFYCOMMAND=NULL; int8 *__BYTE_ENTERINGRGB=NULL; int32 *__LONG_ACTIVEINCLUDELINK=NULL; @@ -176,11 +210,17 @@ qbs *__STRING_ACTIVEINCLUDELINKFILE=NULL; int8 *__BYTE_HIDECURRENTLINEHIGHLIGHT=NULL; int8 *__BYTE_SHOWLINENUMBERS=NULL; int16 *__INTEGER_SEARCHMENUENABLEQUICKNAV=NULL; +int32 *__LONG_SEARCHSTRINGFOUNDON=NULL; int32 *__LONG_IDEGOTOBOX_LASTLINENUM=NULL; int32 *__LONG_MAXLINENUMBERLENGTH=NULL; +qbs *__STRING_VERSIONSTRINGSTATUS=NULL; +qbs *__STRING_LINENUMBERSTATUS=NULL; +int8 *__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE=NULL; int32 *__LONG_IDEFOCUSLINE=NULL; int32 *__LONG_IDEAUTORUN=NULL; +int32 *__LONG_STARTPAUSED=NULL; ptrszint *__ARRAY_STRING_MENU=NULL; +ptrszint *__ARRAY_STRING_MENUDESC=NULL; ptrszint *__ARRAY_LONG_MENUSIZE=NULL; int16 *__INTEGER_MENUS=NULL; int16 *__INTEGER_IDECONTEXTUALMENUID=NULL; @@ -190,6 +230,8 @@ int16 *__INTEGER_OPTIONSMENUID=NULL; int16 *__INTEGER_OPTIONSMENUSWAPMOUSE=NULL; int16 *__INTEGER_OPTIONSMENUPASTECURSOR=NULL; int16 *__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=NULL; +int16 *__INTEGER_OPTIONSMENUIGNOREWARNINGS=NULL; +int16 *__INTEGER_OPTIONSMENUDISABLESYNTAX=NULL; int16 *__INTEGER_VIEWMENUID=NULL; int16 *__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID=NULL; int16 *__INTEGER_VIEWMENUSHOWSEPARATORID=NULL; @@ -198,6 +240,10 @@ int16 *__INTEGER_VIEWMENUCOMPILERWARNINGS=NULL; int16 *__INTEGER_RUNMENUID=NULL; int16 *__INTEGER_RUNMENUSAVEEXEWITHSOURCE=NULL; int16 *__INTEGER_BRACKETHIGHLIGHT=NULL; +int16 *__INTEGER_DEBUGMENUID=NULL; +int16 *__INTEGER_DEBUGMENUCALLSTACK=NULL; +int16 *__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=NULL; +int16 *__INTEGER_DEBUGMENUAUTOADDCOMMAND=NULL; int16 *__INTEGER_MULTIHIGHLIGHT=NULL; int16 *__INTEGER_KEYWORDHIGHLIGHT=NULL; int16 *__INTEGER_PRESETCOLORSCHEMES=NULL; @@ -224,43 +270,64 @@ qbs *__STRING_IDECUSTOMFONTFILE=NULL; int32 *__LONG_IDECUSTOMFONTHEIGHT=NULL; int32 *__LONG_IDECUSTOMFONTHANDLE=NULL; int32 *__LONG_IDERUNMODE=NULL; +int8 *__BYTE_IDE_USEFONT8=NULL; ptrszint *__ARRAY_STRING_ONAME=NULL; ptrszint *__ARRAY_INTEGER_PL=NULL; -int16 *__INTEGER_QUICKRETURN=NULL; -int32 *__LONG_MAKEANDROID=NULL; -int32 *__LONG_VIRTUALKEYBOARDSTATE=NULL; -int32 *__LONG_DESIREDVIRTUALKEYBOARDSTATE=NULL; -int32 *__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=NULL; +ptrszint *__ARRAY_STRING_PP_TYPEMOD=NULL; +ptrszint *__ARRAY_STRING_PP_CONVERTEDMOD=NULL; +int32 *__LONG_VWATCHON=NULL; +int32 *__LONG_VWATCHRECOMPILEATTEMPTS=NULL; +int32 *__LONG_VWATCHDESIREDSTATE=NULL; +qbs *__STRING_VWATCHERRORCALL=NULL; +qbs *__STRING_VWATCHNEWVARIABLE=NULL; +qbs *__STRING_VWATCHVARIABLEEXCLUSIONS=NULL; +qbs *__STRING_NATIVEDATATYPES=NULL; +int32 *__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=NULL; +int32 *__LONG_QB64PREFIX_SET_DESIREDSTATE=NULL; +int32 *__LONG_OPEX_RECOMPILEATTEMPTS=NULL; +int32 *__LONG_OPEX_DESIREDSTATE=NULL; +int32 *__LONG_OPEXARRAY_RECOMPILEATTEMPTS=NULL; +int32 *__LONG_OPEXARRAY_DESIREDSTATE=NULL; ptrszint *__ARRAY_LONG_EVERYCASESET=NULL; uint32 *__ULONG_SELECTCASECOUNTER=NULL; +ptrszint *__ARRAY_LONG_SELECTCASEHASCASEBLOCK=NULL; ptrszint *__ARRAY_LONG_EXECLEVEL=NULL; int16 *__INTEGER_EXECCOUNTER=NULL; ptrszint *__ARRAY_STRING_USERDEFINE=NULL; -ptrszint *__ARRAY_BIT1_INVALIDLINE=NULL; +ptrszint *__ARRAY_BYTE_INVALIDLINE=NULL; ptrszint *__ARRAY_BYTE_DEFINEELSE=NULL; int16 *__INTEGER_USERDEFINECOUNT=NULL; -qbs *__STRING_REFACTOR_SOURCE=NULL; -qbs *__STRING_REFACTOR_DEST=NULL; -int32 *__LONG_FH=NULL; +qbs *__STRING_USERDEFINELIST=NULL; +float *__SINGLE_QB64_UPTIME=NULL; int32 *__LONG_INCLUDE_GDB_DEBUGGING_INFO=NULL; int32 *__LONG_DEPENDENCY_LAST=NULL; ptrszint *__ARRAY_LONG_DEPENDENCY=NULL; int32 *__LONG_USEGL=NULL; int32 *__LONG_OS_BITS=NULL; +qbs *__STRING_WINDOWTITLE=NULL; int32 *__LONG_CONSOLEMODE=NULL; int32 *__LONG_NO_C_COMPILE_MODE=NULL; -int32 *__LONG_CLOUD=NULL; int32 *__LONG_NOIDEMODE=NULL; -int8 *__BYTE_VERBOSEMODE=NULL; +int8 *__BYTE_SHOWWARNINGS=NULL; +int8 *__BYTE_QUIETMODE=NULL; qbs *__STRING_CMDLINEFILE=NULL; -int32 *__LONG_TOTALUNUSEDVARIABLES=NULL; -qbs *__STRING_USEDVARIABLELIST=NULL; +int8 *__BYTE_MONOCHROMELOGGINGMODE=NULL; +ptrszint *__ARRAY_UDT_BACKUPUSEDVARIABLELIST=NULL; +qbs *__STRING_TYPEDEFINITIONS=NULL; +qbs *__STRING_BACKUPTYPEDEFINITIONS=NULL; +int32 *__LONG_TOTALVARIABLESCREATED=NULL; +int32 *__LONG_TOTALMAINVARIABLESCREATED=NULL; int8 *__BYTE_BYPASSNEXTVARIABLE=NULL; int32 *__LONG_TOTALWARNINGS=NULL; int32 *__LONG_WARNINGLISTITEMS=NULL; qbs *__STRING_LASTWARNINGHEADER=NULL; int8 *__BYTE_DUPLICATECONSTWARNING=NULL; +int8 *__BYTE_WARNINGSISSUED=NULL; +int8 *__BYTE_EMPTYSCWARNING=NULL; +int32 *__LONG_MAXLINENUMBER=NULL; int32 *__LONG_EXEICONSET=NULL; +qbs *__STRING_QB64PREFIX=NULL; +int32 *__LONG_QB64PREFIX_SET=NULL; int8 *__BYTE_VERSIONINFOSET=NULL; qbs *__STRING_VIFILEVERSIONNUM=NULL; qbs *__STRING_VIPRODUCTVERSIONNUM=NULL; @@ -278,6 +345,7 @@ qbs *__STRING_VIWEB=NULL; int32 *__LONG_NOCHECKS=NULL; int32 *__LONG_CONSOLE=NULL; int32 *__LONG_SCREENHIDE=NULL; +int32 *__LONG_ASSERTS=NULL; int32 *__LONG_OPTMAX=NULL; ptrszint *__ARRAY_STRING256_OPT=NULL; ptrszint *__ARRAY_INTEGER_OPTWORDS=NULL; @@ -315,6 +383,7 @@ qbs *__STRING_TMPDIR=NULL; qbs *__STRING_TMPDIR2=NULL; int32 *__LONG_THISINSTANCEPID=NULL; int32 *__LONG_TEMPFOLDERINDEX=NULL; +int32 *__LONG_FH=NULL; int32 *__LONG_TEMPFOLDERRECORDS=NULL; int32 *__LONG_TEMPFOLDERSEARCH=NULL; int32 *__LONG_FH2=NULL; @@ -339,17 +408,20 @@ int32 *__LONG_IDEMODE=NULL; int32 *__LONG_IDEERRORLINE=NULL; qbs *__STRING_IDEMESSAGE=NULL; int8 *__BYTE_OPTIONEXPLICIT=NULL; +int8 *__BYTE_OPTIONEXPLICITARRAY=NULL; int8 *__BYTE_OPTIONEXPLICIT_CMD=NULL; int32 *__LONG_IDESTARTATLINE=NULL; int32 *__LONG_ERRORLINEININCLUDE=NULL; +int32 *__LONG_WARNINGININCLUDE=NULL; +int32 *__LONG_WARNINGININCLUDELINE=NULL; qbs *__STRING_OUTPUTFILE_CMD=NULL; qbs *__STRING_COMPILELOG=NULL; -ptrszint *__ARRAY_STRING_CNAME=NULL; uint32 *__ULONG_IDECOMMENTCOLOR=NULL; uint32 *__ULONG_IDEMETACOMMANDCOLOR=NULL; uint32 *__ULONG_IDEQUOTECOLOR=NULL; uint32 *__ULONG_IDETEXTCOLOR=NULL; uint32 *__ULONG_IDEBACKGROUNDCOLOR=NULL; +uint32 *__ULONG_IDECHROMACOLOR=NULL; uint32 *__ULONG_IDEBACKGROUNDCOLOR2=NULL; uint32 *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=NULL; uint32 *__ULONG_IDEKEYWORDCOLOR=NULL; @@ -359,10 +431,9 @@ int16 *__INTEGER_IDE_TOPPOSITION=NULL; int16 *__INTEGER_IDE_LEFTPOSITION=NULL; int8 *__BYTE_IDE_BYPASSAUTOPOSITION=NULL; int8 *__BYTE_IDESORTSUBS=NULL; +int8 *__BYTE_IDESUBSLENGTH=NULL; int32 *__LONG_IDENORMALCURSORSTART=NULL; int32 *__LONG_IDENORMALCURSOREND=NULL; -qbs *__STRING_IDE_INDEX=NULL; -int16 *__INTEGER_LOADEDIDESETTINGS=NULL; int8 *__BYTE_MOUSEBUTTONSWAPPED=NULL; int8 *__BYTE_PASTECURSORATEND=NULL; int8 *__BYTE_SAVEEXEWITHSOURCE=NULL; @@ -370,16 +441,31 @@ int8 *__BYTE_ENABLEQUICKNAV=NULL; int8 *__BYTE_IDESHOWERRORSIMMEDIATELY=NULL; int8 *__BYTE_SHOWLINENUMBERSSEPARATOR=NULL; int8 *__BYTE_SHOWLINENUMBERSUSEBG=NULL; +int8 *__BYTE_IGNOREWARNINGS=NULL; +int8 *__BYTE_QB64VERSIONPRINTED=NULL; +int8 *__BYTE_DISABLESYNTAXHIGHLIGHTER=NULL; +int8 *__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG=NULL; +int8 *__BYTE_WHITELISTQB64FIRSTTIMEMSG=NULL; +int8 *__BYTE_IDEAUTOLAYOUTKWCAPITALS=NULL; +int8 *__BYTE_WATCHLISTTOCONSOLE=NULL; +qbs *__STRING_WINDOWSETTINGSSECTION=NULL; +qbs *__STRING_COLORSETTINGSSECTION=NULL; +qbs *__STRING_CUSTOMDICTIONARYSECTION=NULL; +qbs *__STRING_MOUSESETTINGSSECTION=NULL; +qbs *__STRING_GENERALSETTINGSSECTION=NULL; +qbs *__STRING_DISPLAYSETTINGSSECTION=NULL; +qbs *__STRING_COLORSCHEMESSECTION=NULL; +qbs *__STRING_DEBUGSETTINGSSECTION=NULL; +qbs *__STRING_INIFOLDERINDEX=NULL; +qbs *__STRING_DEBUGINFOINIWARNING=NULL; qbs *__STRING_CONFIGFILE=NULL; -qbs *__STRING_CONFIGBAK=NULL; +int32 *__LONG_IDEBASETCPPORT=NULL; +int8 *__BYTE_AUTOADDDEBUGCOMMAND=NULL; +qbs *__STRING_WIKIBASEADDRESS=NULL; int32 *__LONG_RESULT=NULL; qbs *__STRING_VALUE=NULL; -int32 *__LONG_CONFIGFILEVERSION=NULL; qbs *__STRING_TEMPLIST=NULL; int32 *__LONG_CHECKCHAR=NULL; -int32 *__LONG_F=NULL; -int32 *__LONG_L=NULL; -qbs *__STRING_TEMP=NULL; int32 *__LONG_HASHFIND_NEXTLISTITEM=NULL; int32 *__LONG_HASHFIND_REVERSE=NULL; int32 *__LONG_HASHFIND_SEARCHFLAGS=NULL; @@ -451,21 +537,7 @@ ptrszint *__ARRAY_STRING_CONSTSTRING=NULL; ptrszint *__ARRAY_LONG_CONSTSUBFUNC=NULL; ptrszint *__ARRAY_LONG_CONSTDEFINED=NULL; int32 *__LONG_LASTTYPE=NULL; -ptrszint *__ARRAY_STRING256_UDTXNAME=NULL; -ptrszint *__ARRAY_STRING256_UDTXCNAME=NULL; -ptrszint *__ARRAY_LONG_UDTXSIZE=NULL; -ptrszint *__ARRAY_INTEGER_UDTXBYTEALIGN=NULL; -ptrszint *__ARRAY_LONG_UDTXNEXT=NULL; -ptrszint *__ARRAY_INTEGER_UDTXVARIABLE=NULL; int32 *__LONG_LASTTYPEELEMENT=NULL; -ptrszint *__ARRAY_STRING256_UDTENAME=NULL; -ptrszint *__ARRAY_STRING256_UDTECNAME=NULL; -ptrszint *__ARRAY_INTEGER_UDTEBYTEALIGN=NULL; -ptrszint *__ARRAY_LONG_UDTESIZE=NULL; -ptrszint *__ARRAY_LONG_UDTETYPE=NULL; -ptrszint *__ARRAY_LONG_UDTETYPESIZE=NULL; -ptrszint *__ARRAY_LONG_UDTEARRAYELEMENTS=NULL; -ptrszint *__ARRAY_LONG_UDTENEXT=NULL; void *__UDT_ID=NULL; int32 *__LONG_IDN=NULL; int32 *__LONG_IDS_MAX=NULL; @@ -518,11 +590,19 @@ int16 *__INTEGER_FINDANOTHERID=NULL; int32 *__LONG_FINDIDINTERNAL=NULL; int32 *__LONG_CURRENTID=NULL; int32 *__LONG_LINENUMBER=NULL; +int32 *__LONG_REALLINENUMBER=NULL; +int32 *__LONG_TOTALLINENUMBER=NULL; +int32 *__LONG_DEFININGTYPEERROR=NULL; qbs *__STRING_WHOLELINE=NULL; +int32 *__LONG_FIRSTLINENUMBERLABELVWATCH=NULL; +int32 *__LONG_LASTLINENUMBERLABELVWATCH=NULL; +qbs *__STRING_VWATCHUSEDLABELS=NULL; +qbs *__STRING_VWATCHUSEDSKIPLABELS=NULL; qbs *__STRING_LINEFRAGMENT=NULL; int16 *__INTEGER_ARRAYPROCESSINGHAPPENED=NULL; int16 *__INTEGER_STRINGPROCESSINGHAPPENED=NULL; qbs *__STRING_CLEANUPSTRINGPROCESSINGCALL=NULL; +int8 *__BYTE_INPUTFUNCTIONCALLED=NULL; int16 *__INTEGER_RECOMPILE=NULL; int16 *__INTEGER_OPTIONBASE=NULL; int16 *__INTEGER_ADDMETASTATIC=NULL; @@ -532,6 +612,7 @@ int16 *__INTEGER_CLOSEDMAIN=NULL; qbs *__STRING_MODULE=NULL; qbs *__STRING_SUBFUNC=NULL; int32 *__LONG_SUBFUNCN=NULL; +int8 *__BYTE_CLOSEDSUBFUNC=NULL; int32 *__LONG_SUBFUNCID=NULL; int16 *__INTEGER_DEFDATAHANDLE=NULL; int16 *__INTEGER_DIMSFARRAY=NULL; @@ -546,6 +627,7 @@ ptrszint *__ARRAY_INTEGER64_BITMASKINV=NULL; ptrszint *__ARRAY_STRING_DEFINEEXTAZ=NULL; ptrszint *__ARRAY_STRING_DEFINEAZ=NULL; int32 *__LONG_STATEMENTN=NULL; +int32 *__LONG_EVERYCASENEWCASE=NULL; int16 *__INTEGER_CONTROLLEVEL=NULL; ptrszint *__ARRAY_INTEGER_CONTROLTYPE=NULL; ptrszint *__ARRAY_LONG_CONTROLID=NULL; @@ -570,12 +652,14 @@ int32 *__LONG_LASTLINE=NULL; int32 *__LONG_FIRSTLINE=NULL; qbs *__STRING_F=NULL; int32 *__LONG_DUMMY=NULL; +qbs *__STRING_TERRMSG=NULL; qbs *__STRING_CURRENTDIR=NULL; int32 *__LONG_BU_DEPENDENCY_CONSOLE_ONLY=NULL; int32 *__LONG_CLOSEALL=NULL; int32 *__LONG_LASTUNRESOLVED=NULL; int32 *__LONG_RESIZE=NULL; int32 *__LONG_RESIZE_SCALE=NULL; +int32 *__LONG_F=NULL; int32 *__LONG_DYNAMICLIBRARY=NULL; int32 *__LONG_DIMMETHOD=NULL; int32 *__LONG_COMMONOPTION=NULL; @@ -584,8 +668,26 @@ qbs *__STRING_MYLIBOPT=NULL; int32 *__LONG_DECLARINGLIBRARY=NULL; int32 *__LONG_DYNSCOPE=NULL; int32 *__LONG_ELSEFOLLOWUP=NULL; +ptrszint *__ARRAY_STRING256_UDTXNAME=NULL; +ptrszint *__ARRAY_STRING256_UDTXCNAME=NULL; +ptrszint *__ARRAY_LONG_UDTXSIZE=NULL; +ptrszint *__ARRAY_INTEGER_UDTXBYTEALIGN=NULL; +ptrszint *__ARRAY_LONG_UDTXNEXT=NULL; +ptrszint *__ARRAY_INTEGER_UDTXVARIABLE=NULL; +ptrszint *__ARRAY_STRING256_UDTENAME=NULL; +ptrszint *__ARRAY_STRING256_UDTECNAME=NULL; +ptrszint *__ARRAY_INTEGER_UDTEBYTEALIGN=NULL; +ptrszint *__ARRAY_LONG_UDTESIZE=NULL; +ptrszint *__ARRAY_LONG_UDTETYPE=NULL; +ptrszint *__ARRAY_LONG_UDTETYPESIZE=NULL; +ptrszint *__ARRAY_LONG_UDTEARRAYELEMENTS=NULL; +ptrszint *__ARRAY_LONG_UDTENEXT=NULL; int32 *__LONG_DEFININGTYPE=NULL; +ptrszint *__ARRAY_UDT_USEDVARIABLELIST=NULL; ptrszint *__ARRAY_STRING_WARNING=NULL; +ptrszint *__ARRAY_LONG_WARNINGLINES=NULL; +ptrszint *__ARRAY_LONG_WARNINGINCLINES=NULL; +ptrszint *__ARRAY_STRING_WARNINGINCFILES=NULL; int32 *__LONG_PTRSZ=NULL; int32 *__LONG_I2=NULL; int32 *__LONG_I3=NULL; @@ -593,13 +695,14 @@ int32 *__LONG_FF=NULL; int32 *__LONG_IDERECOMPILE=NULL; qbs *__STRING_LINEBACKUP=NULL; qbs *__STRING_FORCEINCLUDEFROMROOT=NULL; +int32 *__LONG_ADDINGVWATCH=NULL; qbs *__STRING_WHOLESTV=NULL; +qbs *__STRING_TEMP=NULL; int32 *__LONG_TEMP=NULL; qbs *__STRING_L=NULL; qbs *__STRING_R=NULL; -qbs *__STRING_L1=NULL; -int32 *__LONG_A=NULL; qbs *__STRING_R1=NULL; +int32 *__LONG_A=NULL; qbs *__STRING_CWHOLELINE=NULL; int32 *__LONG_WHOLELINEN=NULL; int32 *__LONG_WHOLELINEI=NULL; @@ -624,37 +727,27 @@ int32 *__LONG_HASHRES=NULL; int32 *__LONG_HASHRESFLAGS=NULL; int32 *__LONG_HASHRESREF=NULL; int32 *__LONG_U=NULL; +int32 *__LONG_NEWASTYPEBLOCKSYNTAX=NULL; +qbs *__STRING_PREVIOUSELEMENT=NULL; +qbs *__STRING_LASTELEMENT=NULL; +qbs *__STRING_CN=NULL; int32 *__LONG_HASHFLAGS=NULL; int32 *__LONG_ALLOW=NULL; -int32 *__LONG_ALTERED=NULL; -int32 *__LONG_FINISHED=NULL; -int32 *__LONG_VP=NULL; -int32 *__LONG_FIRST=NULL; -int32 *__LONG_SECOND=NULL; -int32 *__LONG_THIRD=NULL; -int32 *__LONG_FOURTH=NULL; -qbs *__STRING_RED=NULL; -qbs *__STRING_GREEN=NULL; -qbs *__STRING_BLUE=NULL; -qbs *__STRING_ALPHA=NULL; -qbs *__STRING_VAL=NULL; -int32 *__LONG_WI=NULL; -uint32 *__ULONG_CLR=NULL; -int32 *__LONG_EMERGENCY_EXIT=NULL; -int32 *__LONG_L2=NULL; -int32 *__LONG_FOUND=NULL; -int32 *__LONG_T=NULL; -int32 *__LONG_I4=NULL; -qbs *__STRING_TEMP1=NULL; int32 *__LONG_PENDING=NULL; int32 *__LONG_TYPEOVERRIDE=NULL; qbs *__STRING_S=NULL; +qbs *__STRING_READABLE_E=NULL; int32 *__LONG_B=NULL; qbs *__STRING_E2=NULL; +qbs *__STRING_E3=NULL; +int32 *__LONG_REMOVECOMMA=NULL; +qbs *__STRING_TEMP1=NULL; +int32 *__LONG_T=NULL; long double *__FLOAT_CONSTVAL=NULL; int64 *__INTEGER64_CONSTVAL=NULL; uint64 *__UINTEGER64_CONSTVAL=NULL; int32 *__LONG_ISSUEWARNING=NULL; +qbs *__STRING_THISCONSTVAL=NULL; int32 *__LONG_D=NULL; int32 *__LONG_PREDEFINING=NULL; int32 *__LONG_INDIRECTLIBRARY=NULL; @@ -693,23 +786,15 @@ int32 *__LONG_START=NULL; int32 *__LONG_IMPLIEDENDIF=NULL; int32 *__LONG_THENGOTO=NULL; int32 *__LONG_NEWIF=NULL; -int32 *__LONG_OPEX_COMMENTS=NULL; -int32 *__LONG_DOTLINECOUNT=NULL; +int32 *__LONG_MAXPROGRESSWIDTH=NULL; +int32 *__LONG_PERCENTAGE=NULL; +int32 *__LONG_PERCENTAGECHARS=NULL; +int32 *__LONG_PREVPERCENTAGE=NULL; +int32 *__LONG_PREVPERCENTAGECHARS=NULL; qbs *__STRING_LAYOUTORIGINAL=NULL; int32 *__LONG_LHSCONTROLLEVEL=NULL; qbs *__STRING_A3U=NULL; -qbs *__STRING_METACOMMAND=NULL; -qbs *__STRING_METACOMMANDHINT=NULL; -qbs *__STRING_SOURCECONTENT=NULL; -qbs *__STRING_DESTLOCATION=NULL; -int32 *__LONG_I3STEP=NULL; -int32 *__LONG_I3START=NULL; -qbs *__STRING_A4=NULL; -qbs *__STRING_A3STRING=NULL; -int32 *__LONG_C3=NULL; -int32 *__LONG_WHITESPACE=NULL; -qbs *__STRING_A3QUOTEDSTRING=NULL; -qbs *__STRING_SOURCELOCATION=NULL; +qbs *__STRING_TEMPOP=NULL; int32 *__LONG_FIRSTDELIMITER=NULL; int32 *__LONG_SECONDDELIMITER=NULL; qbs *__STRING_VERSIONINFOKEY=NULL; @@ -734,7 +819,9 @@ qbs *__STRING_AA=NULL; int32 *__LONG_LASTFUSE=NULL; int32 *__LONG_V1=NULL; int32 *__LONG_V2=NULL; -int32 *__LONG_DEFININGTYPEERROR=NULL; +int32 *__LONG_WORDSINTYPENAME=NULL; +qbs *__STRING_NEXTELEMENT=NULL; +qbs *__STRING_THISELEMENT=NULL; int32 *__LONG_CUSTOMTYPELIBRARY=NULL; int32 *__LONG_STATICLINKEDLIBRARY=NULL; int32 *__LONG_SFDECLARE=NULL; @@ -752,6 +839,7 @@ qbs *__STRING_X2=NULL; qbs *__STRING_DLLNAME=NULL; int32 *__LONG_TARGETID=NULL; qbs *__STRING_EE=NULL; +qbs *__STRING_SUBFUNCORIGINALNAME=NULL; qbs *__STRING_SUBFUNCRET=NULL; int32 *__LONG_RETTYP=NULL; int32 *__LONG_ADDSTATIC2LAYOUT=NULL; @@ -791,7 +879,6 @@ int32 *__LONG_B2=NULL; qbs *__STRING_EL=NULL; qbs *__STRING_ER=NULL; int32 *__LONG_USEDTO=NULL; -qbs *__STRING_E3=NULL; qbs *__STRING_O=NULL; qbs *__STRING_O2=NULL; int32 *__LONG_O=NULL; @@ -800,6 +887,7 @@ qbs *__STRING_OPTI=NULL; qbs *__STRING_OPTCONTROLLER=NULL; qbs *__STRING_OPTPASSED=NULL; qbs *__STRING_CT=NULL; +int32 *__LONG_NEWSHAREDSYNTAX=NULL; qbs *__STRING_L2=NULL; int32 *__LONG_METHOD=NULL; qbs *__STRING_TS=NULL; @@ -808,6 +896,8 @@ qbs *__STRING_OLDSUBFUNC=NULL; int32 *__LONG_T2=NULL; int32 *__LONG_T2SIZE=NULL; int32 *__LONG_RETVAL=NULL; +int32 *__LONG_SHAREDASLAYOUTADDED=NULL; +qbs *__STRING_L3=NULL; int32 *__LONG_LMAY=NULL; int32 *__LONG_LMUST=NULL; int32 *__LONG_USEPOSITION=NULL; @@ -823,6 +913,7 @@ qbs *__STRING_VAR=NULL; qbs *__STRING_LS=NULL; qbs *__STRING_BYTESPERELEMENT=NULL; int32 *__LONG_CLEARERASERETURN=NULL; +int32 *__LONG_NEWDIMSYNTAX=NULL; int32 *__LONG_NOTYPE=NULL; int32 *__LONG_LISTARRAY=NULL; qbs *__STRING_VARNAME=NULL; @@ -840,6 +931,7 @@ int32 *__LONG_MATCH=NULL; int32 *__LONG_S2=NULL; int32 *__LONG_OLDMETHOD=NULL; int32 *__LONG_DIMSHARED2=NULL; +int32 *__LONG_NEWDIMSYNTAXTYPEPASSBACK=NULL; qbs *__STRING_IGNORE=NULL; qbs *__STRING_LBL=NULL; int32 *__LONG_ISINTEGER64=NULL; @@ -854,7 +946,6 @@ qbs *__STRING_ST=NULL; qbs *__STRING_BYTES=NULL; int32 *__LONG_CISPECIAL=NULL; int32 *__LONG_USECALL=NULL; -qbs *__STRING_CN=NULL; int32 *__LONG_ARGN=NULL; int32 *__LONG_VALIDSUB=NULL; int32 *__LONG_LINEINPUT=NULL; @@ -922,14 +1013,13 @@ int32 *__LONG_ARRAYTYPE=NULL; int32 *__LONG_ARRAYELEMENTS=NULL; int32 *__LONG_COMMAND=NULL; qbs *__STRING_X1=NULL; -int32 *__LONG_FINDITEM=NULL; -int32 *__LONG_WHICHLINE=NULL; -int32 *__LONG_VARNAMELEN=NULL; -qbs *__STRING_INTERNALVARNAME=NULL; -int32 *__LONG_FINDLF=NULL; +int32 *__LONG_TOTALUNUSEDVARIABLES=NULL; int32 *__LONG_MAXVARNAMELEN=NULL; +qbs *__STRING_HEADER=NULL; qbs *__STRING_PATH__ASCII_CHR_046__OUT=NULL; qbs *__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE=NULL; +int32 *__LONG_MANIFEST=NULL; +int32 *__LONG_MANIFESTEMBED=NULL; int32 *__LONG_FFH=NULL; int32 *__LONG_WIN=NULL; int32 *__LONG_LNX=NULL; @@ -948,8 +1038,15 @@ qbs *__STRING_LIBQB=NULL; int32 *__LONG_X1=NULL; qbs *__STRING_B=NULL; int32 *__LONG_QBERRORHAPPENEDVALUE=NULL; -int32 *_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP=NULL; -int32 *_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP_SET=NULL; +int32 *_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES=NULL; +qbs *_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST=NULL; +int32 *_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES=NULL; +qbs *_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST=NULL; +int32 *_SUB_VWATCHADDLABEL_LONG_PREVLABEL=NULL; +int32 *_SUB_VWATCHADDLABEL_LONG_PREVSKIP=NULL; +int8 *_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND=NULL; +int32 *_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD=NULL; +int32 *_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD=NULL; qbs *_FUNC_IDE2_STRING_MENULOCATIONS=NULL; int8 *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL=NULL; int32 *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1=NULL; @@ -965,18 +1062,72 @@ int32 *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1=NULL; int32 *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY=NULL; int32 *_FUNC_IDE2_LONG_FORCERESIZE=NULL; int8 *_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED=NULL; -int8 *_FUNC_IDE2_BYTE_IDECHANGEDBEFORE=NULL; +int8 *_FUNC_IDE2_BYTE_QUICKNAVHOVER=NULL; +int8 *_FUNC_IDE2_BYTE_FINDFIELDHOVER=NULL; +int8 *_FUNC_IDE2_BYTE_VERSIONINFOHOVER=NULL; +int8 *_FUNC_IDE2_BYTE_LINENUMBERHOVER=NULL; +int8 *_FUNC_IDE2_BYTE_WAITINGFORVARLIST=NULL; +int8 *_FUNC_IDE2_BYTE_ATTEMPTTOHOST=NULL; +int8 *_FUNC_IDE2_BYTE_CHANGINGTCPPORT=NULL; +int32 *_FUNC_IDE2_LONG_MOX=NULL; +int32 *_FUNC_IDE2_LONG_MOY=NULL; int32 *_FUNC_IDE2_LONG_HELP_SCROLLBAR=NULL; int32 *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD=NULL; -int32 *_FUNC_IDEOPEN_LONG_ALLFILES=NULL; +qbs *_FUNC_IDE2_STRING_MATHEVALEXPR=NULL; +int8 *_SUB_DEBUGMODE_BYTE_PAUSEMODE=NULL; +int8 *_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=NULL; +int8 *_SUB_DEBUGMODE_BYTE_ENTEREDINPUT=NULL; +qbs *_SUB_DEBUGMODE_STRING_BUFFER=NULL; +qbs *_SUB_DEBUGMODE_STRING_CURRENTSUB=NULL; +ptrszint *_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND=NULL; +int8 *_SUB_DEBUGMODE_BYTE_PANELACTIVE=NULL; +void *_SUB_DEBUGMODE_UDT_VWATCHPANEL=NULL; +qbs *_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST=NULL; +int32 *_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=NULL; +int32 *_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES=NULL; +qbs *_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST=NULL; +int32 *_FUNC_EXPANDARRAY_LONG_THISLEVEL=NULL; +qbs *_FUNC_EXPANDARRAY_STRING_RETURNVALUE=NULL; +int32 *_FUNC_IDEFILEDIALOG_LONG_ALLFILES=NULL; qbs *_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS=NULL; int8 *_SUB_IDESHOWTEXT_BYTE_MANUALLIST=NULL; -qbs *_SUB_IDEOBJUPDATE_STRING_SEARCHTERM=NULL; float *_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_FOCUS=NULL; +void *_FUNC_IDEACTIVITYBOX_UDT_P=NULL; +ptrszint *_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O=NULL; +qbs *_FUNC_IDEACTIVITYBOX_STRING1_SEP=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=NULL; +ptrszint *_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_TW=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_W=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_I=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_W2=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_F=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_CX=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_CY=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_CHANGE=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_ALT=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_OLDALT=NULL; +qbs *_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_K=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_INFO=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_T=NULL; +int32 *_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=NULL; qbs *_SUB_GETINPUT_STRING_ASCVALUE=NULL; int32 *_SUB_HELP_SHOWTEXT_LONG_SETUP=NULL; -int8 *_FUNC_WIKI_BYTE_ALTERNATIVESERVER=NULL; +int32 *_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN=NULL; +qbs *_FUNC_GETBYTES_STRING_PREVIOUSVALUE=NULL; +int32 *_FUNC_GETBYTES_LONG_GETBYTESPOSITION=NULL; int32 console=1; int32 screen_hide_startup=1; +int32 asserts=0; +int32 vwatch=0; ptrszint data_size=0; uint8 *data=(uint8*)calloc(1,1); diff --git a/internal/source/main.txt b/internal/source/main.txt index a3c92dd2d..35ca4b7dc 100644 --- a/internal/source/main.txt +++ b/internal/source/main.txt @@ -6,11 +6,11 @@ if(!qbevent)break;evnt(13,2,"version.bas");}while(r); do{ if(!qbevent)break;evnt(13,3,"version.bas");}while(r); do{ -qbs_set(__STRING_VERSION,qbs_new_txt_len("1.3",3)); +qbs_set(__STRING_VERSION,qbs_new_txt_len("2.1",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,5,"version.bas");}while(r); do{ -qbs_set(__STRING_BUILDNUM,qbs_new_txt_len("[stable]",8)); +qbs_set(__STRING_DEVCHANNEL,qbs_new_txt_len("Development Build",17)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,6,"version.bas");}while(r); S_6:; @@ -32,8 +32,20 @@ skip1: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,10,"version.bas");}while(r); do{ -sub_close(*__LONG_VERSIONFILE,1); +qbs_set(__STRING_AUTOBUILDMSG,qbs_left(qbs__trim(__STRING_AUTOBUILDMSG), 16 )); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(13,11,"version.bas");}while(r); +S_11:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_AUTOBUILDMSG, 9 ),qbs_new_txt_len("From git ",9))))||new_error){ +if(qbevent){evnt(13,12,"version.bas");if(r)goto S_11;} +do{ +qbs_set(__STRING_AUTOBUILDMSG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13,12,"version.bas");}while(r); +} +do{ +sub_close(*__LONG_VERSIONFILE,1); +if(!qbevent)break;evnt(13,13,"version.bas");}while(r); } do{ if(!qbevent)break;evnt(15,5,"constants.bas");}while(r); @@ -63,9 +75,9 @@ do{ *__LONG_SP3_ASC=qbs_asc(__STRING1_SP3); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(15,8,"constants.bas");}while(r); -S_20:; +S_24:; if (( 0 )||new_error){ -if(qbevent){evnt(15,9,"constants.bas");if(r)goto S_20;} +if(qbevent){evnt(15,9,"constants.bas");if(r)goto S_24;} do{ qbs_set(__STRING1_SP,func_chr( 250 )); qbs_cleanup(qbs_tmp_base,0); @@ -186,256 +198,142 @@ do{ *__LONG_GL_KIT= 0 ; if(!qbevent)break;evnt(16,15,"opengl_global.bas");}while(r); do{ - -if (__ARRAY_STRING_INSTALLFILES[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILES)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFILES[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILES[0])); -} -__ARRAY_STRING_INSTALLFILES[4]= 0 ; -__ARRAY_STRING_INSTALLFILES[5]=( 0 )-__ARRAY_STRING_INSTALLFILES[4]+1; -__ARRAY_STRING_INSTALLFILES[6]=1; -__ARRAY_STRING_INSTALLFILES[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFILES[5]*8); -if (!__ARRAY_STRING_INSTALLFILES[0]) error(257); -__ARRAY_STRING_INSTALLFILES[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -if (__ARRAY_STRING_INSTALLFILES[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(24,1,"android_global.bas");}while(r); +if(!qbevent)break;evnt(17,8,"ini.bi");}while(r); do{ - -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILESSOURCELOCATION)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0])); -} -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4]= 0 ; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]=( 0 )-__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4]+1; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[6]=1; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]*8); -if (!__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]) error(257); -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(24,2,"android_global.bas");}while(r); +if(!qbevent)break;evnt(17,9,"ini.bi");}while(r); do{ - -if (__ARRAY_STRING_INSTALLFILESIN[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILESIN)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFILESIN[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILESIN[0])); -} -__ARRAY_STRING_INSTALLFILESIN[4]= 0 ; -__ARRAY_STRING_INSTALLFILESIN[5]=( 0 )-__ARRAY_STRING_INSTALLFILESIN[4]+1; -__ARRAY_STRING_INSTALLFILESIN[6]=1; -__ARRAY_STRING_INSTALLFILESIN[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFILESIN[5]*8); -if (!__ARRAY_STRING_INSTALLFILESIN[0]) error(257); -__ARRAY_STRING_INSTALLFILESIN[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -if (__ARRAY_STRING_INSTALLFILESIN[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(24,3,"android_global.bas");}while(r); +if(!qbevent)break;evnt(17,10,"ini.bi");}while(r); do{ - -if (__ARRAY_STRING_INSTALLFOLDER[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDER)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFOLDER[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDER[0])); -} -__ARRAY_STRING_INSTALLFOLDER[4]= 0 ; -__ARRAY_STRING_INSTALLFOLDER[5]=( 0 )-__ARRAY_STRING_INSTALLFOLDER[4]+1; -__ARRAY_STRING_INSTALLFOLDER[6]=1; -__ARRAY_STRING_INSTALLFOLDER[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFOLDER[5]*8); -if (!__ARRAY_STRING_INSTALLFOLDER[0]) error(257); -__ARRAY_STRING_INSTALLFOLDER[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -if (__ARRAY_STRING_INSTALLFOLDER[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(24,5,"android_global.bas");}while(r); +if(!qbevent)break;evnt(17,11,"ini.bi");}while(r); do{ - -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0])); -} -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4]= 0 ; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]=( 0 )-__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4]+1; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[6]=1; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]*8); -if (!__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]) error(257); -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(24,6,"android_global.bas");}while(r); +if(!qbevent)break;evnt(17,12,"ini.bi");}while(r); do{ - -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDERIN)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDERIN[0])); -} -__ARRAY_STRING_INSTALLFOLDERIN[4]= 0 ; -__ARRAY_STRING_INSTALLFOLDERIN[5]=( 0 )-__ARRAY_STRING_INSTALLFOLDERIN[4]+1; -__ARRAY_STRING_INSTALLFOLDERIN[6]=1; -__ARRAY_STRING_INSTALLFOLDERIN[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFOLDERIN[5]*8); -if (!__ARRAY_STRING_INSTALLFOLDERIN[0]) error(257); -__ARRAY_STRING_INSTALLFOLDERIN[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(24,7,"android_global.bas");}while(r); +if(!qbevent)break;evnt(17,13,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,14,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,15,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,16,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,17,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,18,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,19,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,20,"ini.bi");}while(r); +do{ +if(!qbevent)break;evnt(17,21,"ini.bi");}while(r); do{ sub__controlchr( 2 ); -if(!qbevent)break;evnt(28,4,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,4,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,1,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,1,"wiki_global.bas");}while(r); do{ qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal\\help",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,2,"wiki_global.bas");}while(r); -S_48:; +if(!qbevent)break;evnt(22,2,"wiki_global.bas");}while(r); +S_60:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ +if(qbevent){evnt(22,3,"wiki_global.bas");if(r)goto S_60;} +do{ +qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal/help",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22,3,"wiki_global.bas");}while(r); +} +S_63:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ -if(qbevent){evnt(28,3,"wiki_global.bas");if(r)goto S_48;} +if(qbevent){evnt(22,4,"wiki_global.bas");if(r)goto S_63;} do{ goto LABEL_NOINTERNALFOLDER; -if(!qbevent)break;evnt(28,3,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,4,"wiki_global.bas");}while(r); } -S_51:; +S_66:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||new_error){ -if(qbevent){evnt(28,4,"wiki_global.bas");if(r)goto S_51;} +if(qbevent){evnt(22,5,"wiki_global.bas");if(r)goto S_66;} do{ sub_mkdir(__STRING_CACHE_FOLDER); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,4,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,5,"wiki_global.bas");}while(r); } do{ -if(!qbevent)break;evnt(28,5,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,6,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,6,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,7,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,7,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,8,"wiki_global.bas");}while(r); do{ *__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(28,8,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,9,"wiki_global.bas");}while(r); do{ *__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(28,8,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,9,"wiki_global.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(28,8,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,9,"wiki_global.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(28,8,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,9,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,9,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,10,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,10,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,11,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,11,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,12,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,12,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,13,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,13,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,14,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,14,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,15,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,15,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,16,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,16,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,17,"wiki_global.bas");}while(r); do{ qbs_set(__STRING_HELP_LINK_SEP,func_chr( 13 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,16,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,17,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,17,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,18,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,18,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,19,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,19,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,20,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,22,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,23,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,23,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,24,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,24,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,25,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_NORMAL= 7 ; -if(!qbevent)break;evnt(28,24,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,25,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,25,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,26,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_LINK= 9 ; -if(!qbevent)break;evnt(28,25,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,26,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,26,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,27,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_BOLD= 15 ; -if(!qbevent)break;evnt(28,26,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,27,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,27,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,28,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_ITALIC= 15 ; -if(!qbevent)break;evnt(28,27,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,28,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,28,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,29,"wiki_global.bas");}while(r); do{ *__LONG_HELP_COL_SECTION= 8 ; -if(!qbevent)break;evnt(28,28,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,29,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,29,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,30,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,30,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,31,"wiki_global.bas");}while(r); do{ if (__ARRAY_LONG_HELP_LINELEN[2]&2){ @@ -461,7 +359,7 @@ if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257); } __ARRAY_LONG_HELP_LINELEN[2]|=1; } -if(!qbevent)break;evnt(28,31,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,32,"wiki_global.bas");}while(r); do{ if (__ARRAY_STRING_BACK[2]&2){ @@ -486,7 +384,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(28,32,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,33,"wiki_global.bas");}while(r); do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ @@ -511,7 +409,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(28,33,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,34,"wiki_global.bas");}while(r); do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ @@ -537,65 +435,96 @@ if (!__ARRAY_UDT_HELP_BACK[0]) error(257); } __ARRAY_UDT_HELP_BACK[2]|=1; } -if(!qbevent)break;evnt(28,40,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,41,"wiki_global.bas");}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),qbs_new_txt_len("QB64 Help Menu",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,41,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,42,"wiki_global.bas");}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,42,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,43,"wiki_global.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; -if(!qbevent)break;evnt(28,43,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,44,"wiki_global.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; -if(!qbevent)break;evnt(28,43,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,44,"wiki_global.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; -if(!qbevent)break;evnt(28,43,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,44,"wiki_global.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check(( 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; -if(!qbevent)break;evnt(28,43,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,44,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,44,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,45,"wiki_global.bas");}while(r); do{ *__LONG_HELP_BACK_POS= 1 ; -if(!qbevent)break;evnt(28,45,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,46,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,46,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,47,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,47,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,48,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,48,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,49,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,49,"wiki_global.bas");}while(r); +if(!qbevent)break;evnt(22,50,"wiki_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,8,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,8,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,10,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,10,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,11,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,11,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,12,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,12,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,15,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,14,"ide_global.bas");}while(r); +do{ + +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +error(10); +}else{ +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +if (!error_occurred) error(10); +}else{ +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]= 1 ; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=( 1000 )-__ARRAY_STRING_VWATCHRECEIVEDDATA[4]+1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[0]=(ptrszint)malloc(__ARRAY_STRING_VWATCHRECEIVEDDATA[5]*8); +if (!__ARRAY_STRING_VWATCHRECEIVEDDATA[0]) error(257); +__ARRAY_STRING_VWATCHRECEIVEDDATA[2]|=1; +tmp_long=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +} +if(!qbevent)break;evnt(22,15,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,16,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,18,"ide_global.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(28,19,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,22,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,24,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,25,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDERECENTLINK[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDERECENTLINK[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_IDERECENTLINK[8]= 1 ; -__ARRAY_STRING_IDERECENTLINK[9]=( 4 )-__ARRAY_STRING_IDERECENTLINK[8]+1; +__ARRAY_STRING_IDERECENTLINK[9]=( 6 )-__ARRAY_STRING_IDERECENTLINK[8]+1; __ARRAY_STRING_IDERECENTLINK[10]=1; __ARRAY_STRING_IDERECENTLINK[4]= 1 ; __ARRAY_STRING_IDERECENTLINK[5]=( 2 )-__ARRAY_STRING_IDERECENTLINK[4]+1; @@ -611,9 +540,11 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64 } } } -if(!qbevent)break;evnt(28,21,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,27,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,22,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,28,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,29,"ide_global.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -639,46 +570,122 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(28,30,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,37,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,31,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,38,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,34,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,44,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,35,"ide_global.bas");}while(r); + +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){ +error(10); +}else{ +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&1){ +if (!error_occurred) error(10); +}else{ +__ARRAY_UDT_QUICKNAVHISTORY[4]= 0 ; +__ARRAY_UDT_QUICKNAVHISTORY[5]=( 0 )-__ARRAY_UDT_QUICKNAVHISTORY[4]+1; +__ARRAY_UDT_QUICKNAVHISTORY[6]=1; +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&4){ +__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_QUICKNAVHISTORY[5]*128/8+1); +memset((void*)(__ARRAY_UDT_QUICKNAVHISTORY[0]),0,__ARRAY_UDT_QUICKNAVHISTORY[5]*128/8+1); +}else{ +__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)calloc(__ARRAY_UDT_QUICKNAVHISTORY[5]*128/8+1,1); +if (!__ARRAY_UDT_QUICKNAVHISTORY[0]) error(257); +} +__ARRAY_UDT_QUICKNAVHISTORY[2]|=1; +} +} +if(!qbevent)break;evnt(22,45,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,36,"ide_global.bas");}while(r); + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=( 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(22,47,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,37,"ide_global.bas");}while(r); + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=( 1 )-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(22,48,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,38,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,51,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,39,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,52,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,40,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,53,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,41,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,54,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,42,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,55,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,43,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,56,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,44,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,57,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,45,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,58,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,46,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,59,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,47,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,60,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,48,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,61,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,62,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,63,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,64,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,65,"ide_global.bas");}while(r); do{ if (__ARRAY_INTEGER_BLOCK_CHR[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_BLOCK_CHR[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_BLOCK_CHR[4]= 0 ; __ARRAY_INTEGER_BLOCK_CHR[5]=( 255 )-__ARRAY_INTEGER_BLOCK_CHR[4]+1; @@ -693,24 +700,24 @@ if (!__ARRAY_INTEGER_BLOCK_CHR[0]) error(257); __ARRAY_INTEGER_BLOCK_CHR[2]|=1; } } -if(!qbevent)break;evnt(28,50,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,67,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 10 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(28,51,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,68,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 13 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(28,52,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,69,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,55,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,72,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDECPNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDECPNAME[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_IDECPNAME[4]= 1 ; __ARRAY_STRING_IDECPNAME[5]=( 27 )-__ARRAY_STRING_IDECPNAME[4]+1; @@ -726,14 +733,14 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs } } } -if(!qbevent)break;evnt(28,57,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,74,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDECP[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDECP[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_IDECP[4]= 1 ; __ARRAY_STRING_IDECP[5]=( 27 )-__ARRAY_STRING_IDECP[4]+1; @@ -749,336 +756,340 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new } } } -if(!qbevent)break;evnt(28,58,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,75,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp437",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,60,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,77,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,61,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,78,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp737",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,62,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,79,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A1000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C4000003C5000003C6000003C7000003C80000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003C9000003AC000003AD000003AE000003CA000003AF000003CC000003CD000003CB000003CE0000038600000388000003890000038A0000038C0000038E0000038F000000B10000226500002264000003AA000003AB000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,63,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,80,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp775",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,64,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,81,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000106000000FC000000E900000101000000E400000123000000E500000107000001420000011300000156000001570000012B00000179000000C4000000C5000000C9000000E6000000C60000014D000000F600000122000000A20000015A0000015B000000D6000000DC000000F8000000A3000000D8000000D7000000A4000001000000012A000000F30000017B0000017C0000017A0000201D000000A6000000A9000000AE000000AC000000BD000000BC00000141000000AB000000BB0000259100002592000025930000250200002524000001040000010C00000118000001160000256300002551000025570000255D0000012E000001600000251000002514000025340000252C0000251C000025000000253C000001720000016A0000255A00002554000025690000256600002560000025500000256C0000017D000001050000010D00000119000001170000012F00000161000001730000016B0000017E000025180000250C00002588000025840000258C0000259000002580000000D3000000DF0000014C00000143000000F5000000D5000000B50000014400000136000001370000013B0000013C00000146000001120000014500002019000000AD000000B10000201C000000BE000000B6000000A7000000F70000201E000000B000002219000000B7000000B9000000B3000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,65,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,82,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp850",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,66,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,83,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000000D700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000F0000000D0000000CA000000CB000000C800000131000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B5000000FE000000DE000000DA000000DB000000D9000000FD000000DD000000AF000000B4000000AD000000B100002017000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,67,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,84,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp852",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,68,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,85,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E40000016F00000107000000E700000142000000EB0000015000000151000000EE00000179000000C400000106000000C9000001390000013A000000F4000000F60000013D0000013E0000015A0000015B000000D6000000DC000001640000016500000141000000D70000010D000000E1000000ED000000F3000000FA00000104000001050000017D0000017E0000011800000119000000AC0000017A0000010C0000015F000000AB000000BB0000259100002592000025930000250200002524000000C1000000C20000011A0000015E0000256300002551000025570000255D0000017B0000017C0000251000002514000025340000252C0000251C000025000000253C00000102000001030000255A00002554000025690000256600002560000025500000256C000000A400000111000001100000010E000000CB0000010F00000147000000CD000000CE0000011B000025180000250C0000258800002584000001620000016E00002580000000D3000000DF000000D4000001430000014400000148000001600000016100000154000000DA0000015500000170000000FD000000DD00000163000000B4000000AD000002DD000002DB000002C7000002D8000000A7000000F7000000B8000000B0000000A8000002D9000001710000015800000159000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,69,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,86,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp855",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,70,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,87,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000045200000402000004530000040300000451000004010000045400000404000004550000040500000456000004060000045700000407000004580000040800000459000004090000045A0000040A0000045B0000040B0000045C0000040C0000045E0000040E0000045F0000040F0000044E0000042E0000044A0000042A0000043000000410000004310000041100000446000004260000043400000414000004350000041500000444000004240000043300000413000000AB000000BB0000259100002592000025930000250200002524000004450000042500000438000004180000256300002551000025570000255D00000439000004190000251000002514000025340000252C0000251C000025000000253C0000043A0000041A0000255A00002554000025690000256600002560000025500000256C000000A40000043B0000041B0000043C0000041C0000043D0000041D0000043E0000041E0000043F000025180000250C00002588000025840000041F0000044F000025800000042F0000044000000420000004410000042100000442000004220000044300000423000004360000041600000432000004120000044C0000042C00002116000000AD0000044B0000042B000004370000041700000448000004280000044D0000042D00000449000004290000044700000427000000A7000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,71,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,88,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp857",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,72,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,89,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE00000131000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F900000130000000D6000000DC000000F8000000A3000000D80000015E0000015F000000E1000000ED000000F3000000FA000000F1000000D10000011E0000011F000000BF000000AE000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000000C1000000C2000000C0000000A90000256300002551000025570000255D000000A2000000A50000251000002514000025340000252C0000251C000025000000253C000000E3000000C30000255A00002554000025690000256600002560000025500000256C000000A4000000BA000000AA000000CA000000CB000000C800000000000000CD000000CE000000CF000025180000250C0000258800002584000000A6000000CC00002580000000D3000000DF000000D4000000D2000000F5000000D5000000B500000000000000D7000000DA000000DB000000D9000000EC000000FF000000AF000000B4000000AD000000B100000000000000BE000000B6000000A7000000F7000000B8000000B0000000A8000000B7000000B9000000B3000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,73,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,90,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp860",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,74,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,91,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E3000000E0000000C1000000E7000000EA000000CA000000E8000000CD000000D4000000EC000000C3000000C2000000C9000000C0000000C8000000F4000000F5000000F2000000DA000000F9000000CC000000D5000000DC000000A2000000A3000000D9000020A7000000D3000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF000000D2000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,75,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,92,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp861",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,76,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,93,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000D0000000F0000000DE000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000FE000000FB000000DD000000FD000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000C1000000CD000000D3000000DA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,77,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,94,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp862",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,78,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,95,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA000000A2000000A3000000A5000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,79,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,96,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp863",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,80,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,97,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000C2000000E0000000B6000000E7000000EA000000EB000000E8000000EF000000EE00002017000000C0000000A7000000C9000000C8000000CA000000F4000000CB000000CF000000FB000000F9000000A4000000D4000000DC000000A2000000A3000000D9000000DB00000192000000A6000000B4000000F3000000FA000000A8000000B8000000B3000000AF000000CE00002310000000AC000000BD000000BC000000BE000000AB000000BB0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,81,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,98,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp864",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,82,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,99,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F00000020000000210000002200000023000000240000066A000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000B0000000B7000022190000221A0000259200002500000025020000253C000025240000252C0000251C00002534000025100000250C0000251400002518000003B20000221E000003C6000000B1000000BD000000BC00002248000000AB000000BB0000FEF70000FEF800000000000000000000FEFB0000FEFC00000000000000A0000000AD0000FE82000000A3000000A40000FE8400000000000000000000FE8E0000FE8F0000FE950000FE990000060C0000FE9D0000FEA10000FEA5000006600000066100000662000006630000066400000665000006660000066700000668000006690000FED10000061B0000FEB10000FEB50000FEB90000061F000000A20000FE800000FE810000FE830000FE850000FECA0000FE8B0000FE8D0000FE910000FE930000FE970000FE9B0000FE9F0000FEA30000FEA70000FEA90000FEAB0000FEAD0000FEAF0000FEB30000FEB70000FEBB0000FEBF0000FEC10000FEC50000FECB0000FECF000000A6000000AC000000F7000000D70000FEC9000006400000FED30000FED70000FEDB0000FEDF0000FEE30000FEE70000FEEB0000FEED0000FEEF0000FEF30000FEBD0000FECC0000FECE0000FECD0000FEE10000FE7D000006510000FEE50000FEE90000FEEC0000FEF00000FEF20000FED00000FED50000FEF50000FEF60000FEDD0000FED90000FEF1000025A000000000",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,83,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,100,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp865",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,84,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,101,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000000C7000000FC000000E9000000E2000000E4000000E0000000E5000000E7000000EA000000EB000000E8000000EF000000EE000000EC000000C4000000C5000000C9000000E6000000C6000000F4000000F6000000F2000000FB000000F9000000FF000000D6000000DC000000F8000000A3000000D8000020A700000192000000E1000000ED000000F3000000FA000000F1000000D1000000AA000000BA000000BF00002310000000AC000000BD000000BC000000A1000000AB000000A40000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,85,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,102,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp866",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,86,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,103,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F0000259100002592000025930000250200002524000025610000256200002556000025550000256300002551000025570000255D0000255C0000255B0000251000002514000025340000252C0000251C000025000000253C0000255E0000255F0000255A00002554000025690000256600002560000025500000256C00002567000025680000256400002565000025590000255800002552000025530000256B0000256A000025180000250C00002588000025840000258C0000259000002580000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F0000040100000451000004040000045400000407000004570000040E0000045E000000B000002219000000B70000221A00002116000000A4000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,87,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,104,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp869",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,88,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,105,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F0000000000000000000000000000000000000000000000000000038600000000000000B7000000AC000000A600002018000020190000038800002015000003890000038A000003AA0000038C00000000000000000000038E000003AB000000A90000038F000000B2000000B3000003AC000000A3000003AD000003AE000003AF000003CA00000390000003CC000003CD00000391000003920000039300000394000003950000039600000397000000BD0000039800000399000000AB000000BB00002591000025920000259300002502000025240000039A0000039B0000039C0000039D0000256300002551000025570000255D0000039E0000039F0000251000002514000025340000252C0000251C000025000000253C000003A0000003A10000255A00002554000025690000256600002560000025500000256C000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003B1000003B2000003B3000025180000250C0000258800002584000003B4000003B500002580000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C3000003C2000003C400000384000000AD000000B1000003C5000003C6000003C7000000A7000003C800000385000000B0000000A8000003C9000003CB000003B0000003CE000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,89,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,106,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_pc_cp874",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,90,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,107,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,91,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,108,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1250",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,92,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,109,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E000020260000202000002021000000000000203000000160000020390000015A000001640000017D000001790000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000001610000203A0000015B000001650000017E0000017A000000A0000002C7000002D800000141000000A400000104000000A6000000A7000000A8000000A90000015E000000AB000000AC000000AD000000AE0000017B000000B0000000B1000002DB00000142000000B4000000B5000000B6000000B7000000B8000001050000015F000000BB0000013D000002DD0000013E0000017C00000154000000C1000000C200000102000000C40000013900000106000000C70000010C000000C900000118000000CB0000011A000000CD000000CE0000010E000001100000014300000147000000D3000000D400000150000000D6000000D7000001580000016E000000DA00000170000000DC000000DD00000162000000DF00000155000000E1000000E200000103000000E40000013A00000107000000E70000010D000000E900000119000000EB0000011B000000ED000000EE0000010F000001110000014400000148000000F3000000F400000151000000F6000000F7000001590000016F000000FA00000171000000FC000000FD00000163000002D9",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,93,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,110,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1251",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,94,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,111,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F00000402000004030000201A000004530000201E000020260000202000002021000020AC0000203000000409000020390000040A0000040C0000040B0000040F0000045200002018000020190000201C0000201D0000202200002013000020140000000000002122000004590000203A0000045A0000045C0000045B0000045F000000A00000040E0000045E00000408000000A400000490000000A6000000A700000401000000A900000404000000AB000000AC000000AD000000AE00000407000000B0000000B1000004060000045600000491000000B5000000B6000000B7000004510000211600000454000000BB00000458000004050000045500000457000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,95,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,112,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1252",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,96,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,113,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C600002030000001600000203900000152000000000000017D000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000017E00000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF000000D0000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000000DD000000DE000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF000000F0000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000000FD000000FE000000FF",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,97,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,114,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1253",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,98,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,115,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E00002026000020200000202100000000000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000000000000000000000000000A00000038500000386000000A3000000A4000000A5000000A6000000A7000000A8000000A900000000000000AB000000AC000000AD000000AE00002015000000B0000000B1000000B2000000B300000384000000B5000000B6000000B700000388000003890000038A000000BB0000038C000000BD0000038E0000038F000003900000039100000392000003930000039400000395000003960000039700000398000003990000039A0000039B0000039C0000039D0000039E0000039F000003A0000003A100000000000003A3000003A4000003A5000003A6000003A7000003A8000003A9000003AA000003AB000003AC000003AD000003AE000003AF000003B0000003B1000003B2000003B3000003B4000003B5000003B6000003B7000003B8000003B9000003BA000003BB000003BC000003BD000003BE000003BF000003C0000003C1000003C2000003C3000003C4000003C5000003C6000003C7000003C8000003C9000003CA000003CB000003CC000003CD000003CE00000000",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,99,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,116,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1254",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,100,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,117,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000016000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000001610000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C2000000C3000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB000000CC000000CD000000CE000000CF0000011E000000D1000000D2000000D3000000D4000000D5000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001300000015E000000DF000000E0000000E1000000E2000000E3000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB000000EC000000ED000000EE000000EF0000011F000000F1000000F2000000F3000000F4000000F5000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001310000015F000000FF",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,101,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,118,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1255",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,102,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,119,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000000000000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000000000000000000000000000000000000A0000000A1000000A2000000A3000020AA000000A5000000A6000000A7000000A8000000A9000000D7000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000F7000000BB000000BC000000BD000000BE000000BF000005B0000005B1000005B2000005B3000005B4000005B5000005B6000005B7000005B8000005B900000000000005BB000005BC000005BD000005BE000005BF000005C0000005C1000005C2000005C3000005F0000005F1000005F2000005F3000005F400000000000000000000000000000000000000000000000000000000000005D0000005D1000005D2000005D3000005D4000005D5000005D6000005D7000005D8000005D9000005DA000005DB000005DC000005DD000005DE000005DF000005E0000005E1000005E2000005E3000005E4000005E5000005E6000005E7000005E8000005E9000005EA00000000000000000000200E0000200F00000000",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,103,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,120,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1256",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,104,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,121,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000067E0000201A000001920000201E000020260000202000002021000002C600002030000006790000203900000152000006860000069800000688000006AF00002018000020190000201C0000201D000020220000201300002014000006A900002122000006910000203A000001530000200C0000200D000006BA000000A00000060C000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000006BE000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B90000061B000000BB000000BC000000BD000000BE0000061F000006C10000062100000622000006230000062400000625000006260000062700000628000006290000062A0000062B0000062C0000062D0000062E0000062F00000630000006310000063200000633000006340000063500000636000000D70000063700000638000006390000063A00000640000006410000064200000643000000E000000644000000E200000645000006460000064700000648000000E7000000E8000000E9000000EA000000EB000006490000064A000000EE000000EF0000064B0000064C0000064D0000064E000000F40000064F00000650000000F700000651000000F900000652000000FB000000FC0000200E0000200F000006D2",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,105,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,122,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1257",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,106,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,123,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000000000000201E0000202600002020000020210000000000002030000000000000203900000000000000A8000002C7000000B80000000000002018000020190000201C0000201D0000202200002013000020140000000000002122000000000000203A00000000000000AF000002DB00000000000000A000000000000000A2000000A3000000A400000000000000A6000000A7000000D8000000A900000156000000AB000000AC000000AD000000AE000000C6000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000F8000000B900000157000000BB000000BC000000BD000000BE000000E6000001040000012E0000010000000106000000C4000000C500000118000001120000010C000000C9000001790000011600000122000001360000012A0000013B000001600000014300000145000000D30000014C000000D5000000D6000000D700000172000001410000015A0000016A000000DC0000017B0000017D000000DF000001050000012F0000010100000107000000E4000000E500000119000001130000010D000000E90000017A0000011700000123000001370000012B0000013C000001610000014400000146000000F30000014D000000F5000000F6000000F700000173000001420000015B0000016B000000FC0000017C0000017E000002D9",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,107,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,124,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp1258",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,108,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,125,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC000000000000201A000001920000201E000020260000202000002021000002C6000020300000000000002039000001520000000000000000000000000000000000002018000020190000201C0000201D000020220000201300002014000002DC00002122000000000000203A00000153000000000000000000000178000000A0000000A1000000A2000000A3000000A4000000A5000000A6000000A7000000A8000000A9000000AA000000AB000000AC000000AD000000AE000000AF000000B0000000B1000000B2000000B3000000B4000000B5000000B6000000B7000000B8000000B9000000BA000000BB000000BC000000BD000000BE000000BF000000C0000000C1000000C200000102000000C4000000C5000000C6000000C7000000C8000000C9000000CA000000CB00000300000000CD000000CE000000CF00000110000000D100000309000000D3000000D4000001A0000000D6000000D7000000D8000000D9000000DA000000DB000000DC000001AF00000303000000DF000000E0000000E1000000E200000103000000E4000000E5000000E6000000E7000000E8000000E9000000EA000000EB00000301000000ED000000EE000000EF00000111000000F100000323000000F3000000F4000001A1000000F6000000F7000000F8000000F9000000FA000000FB000000FC000001B0000020AB000000FF",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,109,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,126,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("micsft_windows_cp874",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,110,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,127,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000020AC0000000000000000000000000000000000002026000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002018000020190000201C0000201D0000202200002013000020140000000000000000000000000000000000000000000000000000000000000000000000A000000E0100000E0200000E0300000E0400000E0500000E0600000E0700000E0800000E0900000E0A00000E0B00000E0C00000E0D00000E0E00000E0F00000E1000000E1100000E1200000E1300000E1400000E1500000E1600000E1700000E1800000E1900000E1A00000E1B00000E1C00000E1D00000E1E00000E1F00000E2000000E2100000E2200000E2300000E2400000E2500000E2600000E2700000E2800000E2900000E2A00000E2B00000E2C00000E2D00000E2E00000E2F00000E3000000E3100000E3200000E3300000E3400000E3500000E3600000E3700000E3800000E3900000E3A0000000000000000000000000000000000000E3F00000E4000000E4100000E4200000E4300000E4400000E4500000E4600000E4700000E4800000E4900000E4A00000E4B00000E4C00000E4D00000E4E00000E4F00000E5000000E5100000E5200000E5300000E5400000E5500000E5600000E5700000E5800000E5900000E5A00000E5B00000000000000000000000000000000",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,111,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,128,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long])),qbs_new_txt_len("MIK",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,112,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,129,"ide_global.bas");}while(r); do{ tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long])),qbs_new_txt_len("000000000000000100000002000000030000000400000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000160000001700000018000000190000001A0000001B0000001C0000001D0000001E0000001F000000200000002100000022000000230000002400000025000000260000002700000028000000290000002A0000002B0000002C0000002D0000002E0000002F000000300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000004400000045000000460000004700000048000000490000004A0000004B0000004C0000004D0000004E0000004F000000500000005100000052000000530000005400000055000000560000005700000058000000590000005A0000005B0000005C0000005D0000005E0000005F000000600000006100000062000000630000006400000065000000660000006700000068000000690000006A0000006B0000006C0000006D0000006E0000006F000000700000007100000072000000730000007400000075000000760000007700000078000000790000007A0000007B0000007C0000007D0000007E0000007F000004100000041100000412000004130000041400000415000004160000041700000418000004190000041A0000041B0000041C0000041D0000041E0000041F000004200000042100000422000004230000042400000425000004260000042700000428000004290000042A0000042B0000042C0000042D0000042E0000042F000004300000043100000432000004330000043400000435000004360000043700000438000004390000043A0000043B0000043C0000043D0000043E0000043F000004400000044100000442000004430000044400000445000004460000044700000448000004490000044A0000044B0000044C0000044D0000044E0000044F00002514000025340000252C0000251C000025000000253C00002563000025510000255A00002554000025690000256600002560000025500000256C00002510000025910000259200002593000025020000252400002116000000A7000025570000255D000025180000250C00002588000025840000258C0000259000002580000003B1000000DF00000393000003C0000003A3000003C3000000B5000003C4000003A600000398000003A9000003B40000221E000003C6000003B50000222900002261000000B100002265000022640000232000002321000000F700002248000000B000002219000000B70000221A0000207F000000B2000025A0000000A0",2048)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,113,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,130,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,115,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,132,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,116,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,133,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,117,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,134,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,119,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,1,"syntax_highlighter_list.bas");}while(r); do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("@?@$CHECKING@$CONSOLE@ONLY@$DYNAMIC@$ELSE@$ELSEIF@$END@$ENDIF@$EXEICON@$IF@$INCLUDE@$LET@$RESIZE@$SCREENHIDE@$SCREENSHOW@$STATIC@$VERSIONINFO@$VIRTUALKEYBOARD@ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@CALL@CALLS@CASE@IS@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@GET@GOSUB@GOTO@HEX$@IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@KEY@KILL@LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@NAME@NEXT@NOT@OCT$@OFF@ON@OPEN@OPTION@OR@OUT@OUTPUT@PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@PRINT@PSET@PUT@RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@VAL@VARPTR@VARPTR$@VARSEG@VIEW@WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@XOR@_ACOS@_ACOSH@_ALPHA@_ALPHA32@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ATAN2@_ATANH@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BUTTON@_BUTTONCHANGE@_BYTE@_CEIL@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS$@_CONNECTIONADDRESS@_CONSOLE@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CSC@_CSCH@_CV@_CWD$@_D2G@_D2R@_DEFAULTCOLOR@_DEFINE@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@",2037)); +qbs_set(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("@?@$CHECKING@$ERROR@$CONSOLE@ONLY@$DYNAMIC@$ELSE@$ELSEIF@$END@$ENDIF@$EXEICON@$IF@$INCLUDE@$LET@$RESIZE@$SCREENHIDE@$SCREENSHOW@$STATIC@$VERSIONINFO@$VIRTUALKEYBOARD@ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@CALL@CALLS@CASE@IS@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@GET@GOSUB@GOTO@HEX$@IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@KEY@KILL@LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@NAME@NEXT@NOT@OCT$@OFF@ON@OPEN@OPTION@OR@OUT@OUTPUT@PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@PRINT@PSET@PUT@RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@VAL@VARPTR@VARPTR$@VARSEG@VIEW@WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@XOR@_ACOS@_ACOSH@_ALPHA@_ALPHA32@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ATAN2@_ATANH@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@_BIN$@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BUTTON@_BUTTONCHANGE@_BYTE@_CEIL@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS$@_CONNECTIONADDRESS@_CONSOLE@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CSC@_CSCH@_CV@_CWD$@_D2G@_D2R@_DEFAULTCOLOR@_DEFINE@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@",2050)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,120,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,2,"syntax_highlighter_list.bas");}while(r); do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ERRORLINE@_EXIT@_EXPLICIT@_FILEEXISTS@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLSCREEN@_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@_HEIGHT@_HIDE@_HYPOT@_ICON@_INCLERRORFILE$@_INCLERRORLINE@_INTEGER64@_KEYCLEAR@_KEYDOWN@_KEYHIT@_LASTAXIS@_LASTBUTTON@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_MAPTRIANGLE@_MAPUNICODE@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMNEW@_MEMPUT@_MIDDLE@_MK$@_MOUSEBUTTON@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSEPIPEOPEN@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@_NEWIMAGE@_OFFSET@_OPENCLIENT@_OPENCONNECTION@_OPENHOST@_OS$@_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@_R2D@_R2G@_RED@_RED32@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROUND@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SEC@_SECH@_SETALPHA@_SHELLHIDE@_SINH@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOURCE@_STARTDIR$@_STRCMP@_STRICMP@_TANH@_TITLE@_TITLE$@_UNSIGNED@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@_GLCALLLIST@_GLCALLLISTS@_GLCLEAR@_GLCLEARACCUM@_GLCLEARCOLOR@_GLCLEARDEPTH@_GLCLEARINDEX@_GLCLEARSTENCIL@_GLCLIPPLANE@_GLCOLOR3B@_GLCOLOR3BV@_GLCOLOR3D@_GLCOLOR3DV@_GLCOLOR3F@_GLCOLOR3FV@_GLCOLOR3I@_GLCOLOR3IV@_GLCOLOR3S@_GLCOLOR3SV@_GLCOLOR3UB@_GLCOLOR3UBV@_GLCOLOR3UI@_GLCOLOR3UIV@_GLCOLOR3US@_GLCOLOR3USV@_GLCOLOR4B@_GLCOLOR4BV@_GLCOLOR4D@_GLCOLOR4DV@_GLCOLOR4F@_GLCOLOR4FV@_GLCOLOR4I@_GLCOLOR4IV@_GLCOLOR4S@_GLCOLOR4SV@_GLCOLOR4UB@_GLCOLOR4UBV@_GLCOLOR4UI@_GLCOLOR4UIV@_GLCOLOR4US@_GLCOLOR4USV@_GLCOLORMASK@_GLCOLORMATERIAL@_GLCOLORPOINTER@_GLCOPYPIXELS@_GLCOPYTEXIMAGE1D@_GLCOPYTEXIMAGE2D@_GLCOPYTEXSUBIMAGE1D@",2034))); +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ERRORLINE@_ERRORMESSAGE$@_EXIT@_EXPLICIT@_EXPLICITARRAY@_FILEEXISTS@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLSCREEN@_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@_HEIGHT@_HIDE@_HYPOT@_ICON@_INCLERRORFILE$@_INCLERRORLINE@_INTEGER64@_KEYCLEAR@_KEYDOWN@_KEYHIT@_LASTAXIS@_LASTBUTTON@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_MAPTRIANGLE@_MAPUNICODE@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMSOUND@_MEMNEW@_MEMPUT@_MIDDLE@_MK$@_MOUSEBUTTON@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSEPIPEOPEN@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@_NEWIMAGE@_OFFSET@_OPENCLIENT@_OPENCONNECTION@_OPENHOST@_OS$@_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@_R2D@_R2G@_RED@_RED32@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROUND@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SEC@_SECH@_SETALPHA@_SHELLHIDE@_SINH@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOURCE@_STARTDIR$@_STRCMP@_STRICMP@_TANH@_TITLE@_TITLE$@_UNSIGNED@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@_GLCALLLIST@_GLCALLLISTS@_GLCLEAR@_GLCLEARACCUM@_GLCLEARCOLOR@_GLCLEARDEPTH@_GLCLEARINDEX@_GLCLEARSTENCIL@_GLCLIPPLANE@_GLCOLOR3B@_GLCOLOR3BV@_GLCOLOR3D@_GLCOLOR3DV@_GLCOLOR3F@_GLCOLOR3FV@_GLCOLOR3I@_GLCOLOR3IV@_GLCOLOR3S@_GLCOLOR3SV@_GLCOLOR3UB@_GLCOLOR3UBV@_GLCOLOR3UI@_GLCOLOR3UIV@_GLCOLOR3US@_GLCOLOR3USV@_GLCOLOR4B@_GLCOLOR4BV@_GLCOLOR4D@_GLCOLOR4DV@_GLCOLOR4F@_GLCOLOR4FV@_GLCOLOR4I@_GLCOLOR4IV@_GLCOLOR4S@_GLCOLOR4SV@_GLCOLOR4UB@_GLCOLOR4UBV@_GLCOLOR4UI@_GLCOLOR4UIV@_GLCOLOR4US@_GLCOLOR4USV@_GLCOLORMASK@_GLCOLORMATERIAL@_GLCOLORPOINTER@_GLCOPYPIXELS@_GLCOPYTEXIMAGE1D@_GLCOPYTEXIMAGE2D@_GLCOPYTEXSUBIMAGE1D@",2074))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,121,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,3,"syntax_highlighter_list.bas");}while(r); do{ qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@_GLGENLISTS@_GLGENTEXTURES@_GLGETBOOLEANV@_GLGETCLIPPLANE@_GLGETDOUBLEV@_GLGETERROR@_GLGETFLOATV@_GLGETINTEGERV@_GLGETLIGHTFV@_GLGETLIGHTIV@_GLGETMAPDV@_GLGETMAPFV@_GLGETMAPIV@_GLGETMATERIALFV@_GLGETMATERIALIV@_GLGETPIXELMAPFV@_GLGETPIXELMAPUIV@_GLGETPIXELMAPUSV@_GLGETPOINTERV@_GLGETPOLYGONSTIPPLE@_GLGETSTRING@_GLGETTEXENVFV@_GLGETTEXENVIV@_GLGETTEXGENDV@_GLGETTEXGENFV@_GLGETTEXGENIV@_GLGETTEXIMAGE@_GLGETTEXLEVELPARAMETERFV@_GLGETTEXLEVELPARAMETERIV@_GLGETTEXPARAMETERFV@_GLGETTEXPARAMETERIV@_GLHINT@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@_GLORTHO@_GLPASSTHROUGH@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@",2035))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,122,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,4,"syntax_highlighter_list.bas");}while(r); do{ qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@_GLRASTERPOS2D@_GLRASTERPOS2DV@_GLRASTERPOS2F@_GLRASTERPOS2FV@_GLRASTERPOS2I@_GLRASTERPOS2IV@_GLRASTERPOS2S@_GLRASTERPOS2SV@_GLRASTERPOS3D@_GLRASTERPOS3DV@_GLRASTERPOS3F@_GLRASTERPOS3FV@_GLRASTERPOS3I@_GLRASTERPOS3IV@_GLRASTERPOS3S@_GLRASTERPOS3SV@_GLRASTERPOS4D@_GLRASTERPOS4DV@_GLRASTERPOS4F@_GLRASTERPOS4FV@_GLRASTERPOS4I@_GLRASTERPOS4IV@_GLRASTERPOS4S@_GLRASTERPOS4SV@_GLREADBUFFER@_GLREADPIXELS@_GLRECTD@_GLRECTDV@_GLRECTF@_GLRECTFV@_GLRECTI@_GLRECTIV@_GLRECTS@_GLRECTSV@_GLRENDERMODE@_GLROTATED@_GLROTATEF@_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@_GLTEXCOORD1D@_GLTEXCOORD1DV@_GLTEXCOORD1F@_GLTEXCOORD1FV@_GLTEXCOORD1I@_GLTEXCOORD1IV@_GLTEXCOORD1S@_GLTEXCOORD1SV@_GLTEXCOORD2D@_GLTEXCOORD2DV@_GLTEXCOORD2F@_GLTEXCOORD2FV@_GLTEXCOORD2I@_GLTEXCOORD2IV@_GLTEXCOORD2S@_GLTEXCOORD2SV@_GLTEXCOORD3D@_GLTEXCOORD3DV@_GLTEXCOORD3F@_GLTEXCOORD3FV@_GLTEXCOORD3I@_GLTEXCOORD3IV@_GLTEXCOORD3S@_GLTEXCOORD3SV@_GLTEXCOORD4D@_GLTEXCOORD4DV@_GLTEXCOORD4F@_GLTEXCOORD4FV@_GLTEXCOORD4I@_GLTEXCOORD4IV@_GLTEXCOORD4S@_GLTEXCOORD4SV@_GLTEXCOORDPOINTER@_GLTEXENVF@_GLTEXENVFV@_GLTEXENVI@_GLTEXENVIV@_GLTEXGEND@_GLTEXGENDV@_GLTEXGENF@_GLTEXGENFV@_GLTEXGENI@_GLTEXGENIV@_GLTEXIMAGE1D@_GLTEXIMAGE2D@_GLTEXPARAMETERF@_GLTEXPARAMETERFV@_GLTEXPARAMETERI@_GLTEXPARAMETERIV@_GLTEXSUBIMAGE1D@_GLTEXSUBIMAGE2D@_GLTRANSLATED@_GLTRANSLATEF@_GLVERTEX2D@_GLVERTEX2DV@_GLVERTEX2F@_GLVERTEX2FV@_GLVERTEX2I@_GLVERTEX2IV@_GLVERTEX2S@_GLVERTEX2SV@_GLVERTEX3D@_GLVERTEX3DV@_GLVERTEX3F@_GLVERTEX3FV@_GLVERTEX3I@_GLVERTEX3IV@_GLVERTEX3S@_GLVERTEX3SV@_GLVERTEX4D@_GLVERTEX4DV@_GLVERTEX4F@_GLVERTEX4FV@_GLVERTEX4I@_GLVERTEX4IV@_GLVERTEX4S@_GLVERTEX4SV@_GLVERTEXPOINTER@_GLVIEWPORT@SMOOTH@STRETCH@_ANTICLOCKWISE@_BEHIND@_CLEAR@_FILLBACKGROUND@_GLUPERSPECTIVE@_HARDWARE@_HARDWARE1@_KEEPBACKGROUND@_NONE@_OFF@_ONLY@_ONLYBACKGROUND@_ONTOP@_SEAMLESS@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@",2044))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,123,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,5,"syntax_highlighter_list.bas");}while(r); do{ qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_SOFTWARE@_SQUAREPIXELS@_STRETCH@_ALLOWFULLSCREEN@_ALL@_ECHO@_INSTRREV@_TRIM$@_ACCEPTFILEDROP@_FINISHDROP@_TOTALDROPPEDFILES@_DROPPEDFILE@_DROPPEDFILE$@_SHR@_SHL@",162))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(28,124,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,6,"syntax_highlighter_list.bas");}while(r); do{ -if(!qbevent)break;evnt(28,128,"ide_global.bas");}while(r); +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_DEFLATE$@_INFLATE$@_READBIT@_RESETBIT@_SETBIT@_TOGGLEBIT@$ASSERTS@_ASSERT@_CAPSLOCK@_NUMLOCK@_SCROLLLOCK@_TOGGLE@_CONSOLEFONT@_CONSOLECURSOR@_CONSOLEINPUT@_CINP@$NOPREFIX@$COLOR@$DEBUG@_ENVIRONCOUNT@",200))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22,7,"syntax_highlighter_list.bas");}while(r); do{ -if(!qbevent)break;evnt(28,129,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,142,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,130,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,143,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,131,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,144,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,132,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,145,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,133,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,146,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,134,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,147,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,135,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,148,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,136,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,149,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,137,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,150,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,138,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,151,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,139,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,152,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,153,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_IDETXT[2]&2){ error(10); }else{ if (__ARRAY_STRING_IDETXT[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_IDETXT[4]= 0 ; __ARRAY_STRING_IDETXT[5]=( 1000 )-__ARRAY_STRING_IDETXT[4]+1; @@ -1094,62 +1105,44 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_ne } } } -if(!qbevent)break;evnt(28,140,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,154,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,141,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,155,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,142,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,156,"ide_global.bas");}while(r); do{ - -if (__ARRAY_INTEGER_IDEALTCODE[2]&2){ -error(10); -}else{ -if (__ARRAY_INTEGER_IDEALTCODE[2]&1){ -error(10); -}else{ -__ARRAY_INTEGER_IDEALTCODE[4]= 0 ; -__ARRAY_INTEGER_IDEALTCODE[5]=( 255 )-__ARRAY_INTEGER_IDEALTCODE[4]+1; -__ARRAY_INTEGER_IDEALTCODE[6]=1; -if (__ARRAY_INTEGER_IDEALTCODE[2]&4){ -__ARRAY_INTEGER_IDEALTCODE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_IDEALTCODE[5]*2); -memset((void*)(__ARRAY_INTEGER_IDEALTCODE[0]),0,__ARRAY_INTEGER_IDEALTCODE[5]*2); -}else{ -__ARRAY_INTEGER_IDEALTCODE[0]=(ptrszint)calloc(__ARRAY_INTEGER_IDEALTCODE[5]*2,1); -if (!__ARRAY_INTEGER_IDEALTCODE[0]) error(257); -} -__ARRAY_INTEGER_IDEALTCODE[2]|=1; -} -} -if(!qbevent)break;evnt(28,143,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,157,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,144,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,158,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,145,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,159,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,146,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,160,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,147,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,161,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,148,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,162,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,149,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,163,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,150,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,164,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,151,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,165,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,152,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,166,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,153,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,167,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,154,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,168,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,169,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); }else{ if (__ARRAY_STRING_SUBFUNCLIST[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_SUBFUNCLIST[4]= 0 ; __ARRAY_STRING_SUBFUNCLIST[5]=( 0 )-__ARRAY_STRING_SUBFUNCLIST[4]+1; @@ -1165,59 +1158,37 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q } } } -if(!qbevent)break;evnt(28,155,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,170,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,156,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,171,"ide_global.bas");}while(r); do{ - -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&1){ -error(10); -}else{ -__ARRAY_LONG_QUICKNAVHISTORY[4]= 0 ; -__ARRAY_LONG_QUICKNAVHISTORY[5]=( 0 )-__ARRAY_LONG_QUICKNAVHISTORY[4]+1; -__ARRAY_LONG_QUICKNAVHISTORY[6]=1; -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&4){ -__ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_QUICKNAVHISTORY[5]*4); -memset((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),0,__ARRAY_LONG_QUICKNAVHISTORY[5]*4); -}else{ -__ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)calloc(__ARRAY_LONG_QUICKNAVHISTORY[5]*4,1); -if (!__ARRAY_LONG_QUICKNAVHISTORY[0]) error(257); -} -__ARRAY_LONG_QUICKNAVHISTORY[2]|=1; -} -} -if(!qbevent)break;evnt(28,157,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,172,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,158,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,173,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,159,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,174,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,160,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,175,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,161,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,176,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,162,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,177,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,163,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,178,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,164,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,211,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,196,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(28,197,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,212,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_MENU[2]&2){ error(10); }else{ if (__ARRAY_STRING_MENU[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_MENU[8]= 1 ; -__ARRAY_STRING_MENU[9]=( 10 )-__ARRAY_STRING_MENU[8]+1; +__ARRAY_STRING_MENU[9]=( 11 )-__ARRAY_STRING_MENU[8]+1; __ARRAY_STRING_MENU[10]=1; __ARRAY_STRING_MENU[4]= 0 ; __ARRAY_STRING_MENU[5]=( 20 )-__ARRAY_STRING_MENU[4]+1; @@ -1233,17 +1204,43 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new( } } } -if(!qbevent)break;evnt(28,198,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,213,"ide_global.bas");}while(r); +do{ + +if (__ARRAY_STRING_MENUDESC[2]&2){ +error(10); +}else{ +if (__ARRAY_STRING_MENUDESC[2]&1){ +if (!error_occurred) error(10); +}else{ +__ARRAY_STRING_MENUDESC[8]= 1 ; +__ARRAY_STRING_MENUDESC[9]=( 11 )-__ARRAY_STRING_MENUDESC[8]+1; +__ARRAY_STRING_MENUDESC[10]=1; +__ARRAY_STRING_MENUDESC[4]= 0 ; +__ARRAY_STRING_MENUDESC[5]=( 20 )-__ARRAY_STRING_MENUDESC[4]+1; +__ARRAY_STRING_MENUDESC[6]=__ARRAY_STRING_MENUDESC[10]*__ARRAY_STRING_MENUDESC[9]; +__ARRAY_STRING_MENUDESC[0]=(ptrszint)malloc(__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9]*8); +if (!__ARRAY_STRING_MENUDESC[0]) error(257); +__ARRAY_STRING_MENUDESC[2]|=1; +tmp_long=__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9]; +if (__ARRAY_STRING_MENUDESC[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +} +if(!qbevent)break;evnt(22,214,"ide_global.bas");}while(r); do{ if (__ARRAY_LONG_MENUSIZE[2]&2){ error(10); }else{ if (__ARRAY_LONG_MENUSIZE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_MENUSIZE[4]= 1 ; -__ARRAY_LONG_MENUSIZE[5]=( 10 )-__ARRAY_LONG_MENUSIZE[4]+1; +__ARRAY_LONG_MENUSIZE[5]=( 11 )-__ARRAY_LONG_MENUSIZE[4]+1; __ARRAY_LONG_MENUSIZE[6]=1; if (__ARRAY_LONG_MENUSIZE[2]&4){ __ARRAY_LONG_MENUSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_MENUSIZE[5]*4); @@ -1255,32 +1252,38 @@ if (!__ARRAY_LONG_MENUSIZE[0]) error(257); __ARRAY_LONG_MENUSIZE[2]|=1; } } -if(!qbevent)break;evnt(28,199,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,215,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,200,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,216,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,201,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,217,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,202,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,218,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,203,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,219,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,204,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,220,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,205,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,221,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,206,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,222,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,207,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,223,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,208,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,224,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,225,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,226,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(22,227,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); }else{ if (__ARRAY_STRING_COLORSCHEMES[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_COLORSCHEMES[4]= 0 ; __ARRAY_STRING_COLORSCHEMES[5]=( 0 )-__ARRAY_STRING_COLORSCHEMES[4]+1; @@ -1296,21 +1299,21 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64) } } } -if(!qbevent)break;evnt(28,209,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,228,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,210,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,229,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,211,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,230,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,212,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,231,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,213,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,232,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,214,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,233,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,215,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,234,"ide_global.bas");}while(r); do{ -if(!qbevent)break;evnt(28,216,"ide_global.bas");}while(r); +if(!qbevent)break;evnt(22,235,"ide_global.bas");}while(r); do{ if (__ARRAY_STRING_ONAME[2]&2){ @@ -1323,7 +1326,7 @@ while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]) free((void*)(__ARRAY_STRING_ONAME[0])); } __ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=( 0 )-__ARRAY_STRING_ONAME[4]+1; +__ARRAY_STRING_ONAME[5]=( 1000 )-__ARRAY_STRING_ONAME[4]+1; __ARRAY_STRING_ONAME[6]=1; __ARRAY_STRING_ONAME[0]=(ptrszint)malloc(__ARRAY_STRING_ONAME[5]*8); if (!__ARRAY_STRING_ONAME[0]) error(257); @@ -1335,7 +1338,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(30);}while(r); +if(!qbevent)break;evnt(24);}while(r); do{ if (__ARRAY_INTEGER_PL[2]&2){ @@ -1350,7 +1353,7 @@ free((void*)(__ARRAY_INTEGER_PL[0])); } } __ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=( 0 )-__ARRAY_INTEGER_PL[4]+1; +__ARRAY_INTEGER_PL[5]=( 1000 )-__ARRAY_INTEGER_PL[4]+1; __ARRAY_INTEGER_PL[6]=1; if (__ARRAY_INTEGER_PL[2]&4){ __ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_PL[5]*2); @@ -1361,20 +1364,82 @@ if (!__ARRAY_INTEGER_PL[0]) error(257); } __ARRAY_INTEGER_PL[2]|=1; } -if(!qbevent)break;evnt(31);}while(r); +if(!qbevent)break;evnt(25);}while(r); do{ -if(!qbevent)break;evnt(32);}while(r); + +if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_PP_TYPEMOD[0])); +} +__ARRAY_STRING_PP_TYPEMOD[4]= 0 ; +__ARRAY_STRING_PP_TYPEMOD[5]=( 0 )-__ARRAY_STRING_PP_TYPEMOD[4]+1; +__ARRAY_STRING_PP_TYPEMOD[6]=1; +__ARRAY_STRING_PP_TYPEMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_TYPEMOD[5]*8); +if (!__ARRAY_STRING_PP_TYPEMOD[0]) error(257); +__ARRAY_STRING_PP_TYPEMOD[2]|=1; +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +if (__ARRAY_STRING_PP_TYPEMOD[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} + +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_CONVERTEDMOD)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_PP_CONVERTEDMOD[0])); +} +__ARRAY_STRING_PP_CONVERTEDMOD[4]= 0 ; +__ARRAY_STRING_PP_CONVERTEDMOD[5]=( 0 )-__ARRAY_STRING_PP_CONVERTEDMOD[4]+1; +__ARRAY_STRING_PP_CONVERTEDMOD[6]=1; +__ARRAY_STRING_PP_CONVERTEDMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_CONVERTEDMOD[5]*8); +if (!__ARRAY_STRING_PP_CONVERTEDMOD[0]) error(257); +__ARRAY_STRING_PP_CONVERTEDMOD[2]|=1; +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26);}while(r); do{ SUB_SET_ORDEROFOPERATIONS(); -if(!qbevent)break;evnt(33);}while(r); +if(!qbevent)break;evnt(27);}while(r); do{ -if(!qbevent)break;evnt(35);}while(r); +if(!qbevent)break;evnt(29);}while(r); +do{ +if(!qbevent)break;evnt(30);}while(r); +do{ +qbs_set(__STRING_VWATCHERRORCALL,qbs_new_txt_len("if (stop_program) {*__LONG_VWATCH_LINENUMBER=0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);};if(new_error){bkp_new_error=new_error;new_error=0;*__LONG_VWATCH_LINENUMBER=-1; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);new_error=bkp_new_error;};",298)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(31);}while(r); +do{ +qbs_set(__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@__LONG_VWATCH_LINENUMBER@__LONG_VWATCH_SUBLEVEL@__LONG_VWATCH_GOTO@",68),qbs_new_txt_len("@__STRING_VWATCH_SUBNAME@__STRING_VWATCH_CALLSTACK@__ARRAY_BYTE_VWATCH_BREAKPOINTS",82)),qbs_new_txt_len("@__ARRAY_BYTE_VWATCH_SKIPLINES@__STRING_VWATCH_INTERNALSUBNAME@__ARRAY_STRING_VWATCH_STACK@",91))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34);}while(r); do{ if(!qbevent)break;evnt(36);}while(r); do{ +qbs_set(__STRING_NATIVEDATATYPES,qbs_new_txt_len("@_OFFSET@OFFSET@_UNSIGNED _OFFSET@UNSIGNED OFFSET@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@_BYTE@_UNSIGNED _BYTE@BYTE@UNSIGNED BYTE@INTEGER@_UNSIGNED INTEGER@UNSIGNED INTEGER@LONG@_UNSIGNED LONG@UNSIGNED LONG@_INTEGER64@INTEGER64@_UNSIGNED _INTEGER64@UNSIGNED INTEGER64@SINGLE@DOUBLE@_FLOAT@FLOAT@STRING@",300)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(37);}while(r); do{ -if(!qbevent)break;evnt(38);}while(r); +if(!qbevent)break;evnt(39);}while(r); +do{ +if(!qbevent)break;evnt(40);}while(r); +do{ +if(!qbevent)break;evnt(41);}while(r); do{ if (__ARRAY_LONG_EVERYCASESET[2]&2){ @@ -1400,14 +1465,40 @@ if (!__ARRAY_LONG_EVERYCASESET[0]) error(257); } __ARRAY_LONG_EVERYCASESET[2]|=1; } -if(!qbevent)break;evnt(40);}while(r); +if(!qbevent)break;evnt(43);}while(r); +do{ + +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){ +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +}else{ +free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +} +} +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]= 0 ; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=( 100 )-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]+1; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=1; +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4); +memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4); +}else{ +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4,1); +if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257); +} +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1; +} +if(!qbevent)break;evnt(44);}while(r); do{ if (__ARRAY_LONG_EXECLEVEL[2]&2){ error(10); }else{ if (__ARRAY_LONG_EXECLEVEL[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_EXECLEVEL[4]= 0 ; __ARRAY_LONG_EXECLEVEL[5]=( 255 )-__ARRAY_LONG_EXECLEVEL[4]+1; @@ -1422,7 +1513,7 @@ if (!__ARRAY_LONG_EXECLEVEL[0]) error(257); __ARRAY_LONG_EXECLEVEL[2]|=1; } } -if(!qbevent)break;evnt(41);}while(r); +if(!qbevent)break;evnt(45);}while(r); do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ @@ -1450,40 +1541,40 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(42);}while(r); +if(!qbevent)break;evnt(46);}while(r); do{ -if (__ARRAY_BIT1_INVALIDLINE[2]&2){ +if (__ARRAY_BYTE_INVALIDLINE[2]&2){ error(10); }else{ -((mem_lock*)((ptrszint*)__ARRAY_BIT1_INVALIDLINE)[8])->id=(++mem_lock_id); -if (__ARRAY_BIT1_INVALIDLINE[2]&1){ -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_BIT1_INVALIDLINE[0])); +((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_INVALIDLINE[2]&1){ +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); }else{ -free((void*)(__ARRAY_BIT1_INVALIDLINE[0])); +free((void*)(__ARRAY_BYTE_INVALIDLINE[0])); } } -__ARRAY_BIT1_INVALIDLINE[4]= 0 ; -__ARRAY_BIT1_INVALIDLINE[5]=( 10000 )-__ARRAY_BIT1_INVALIDLINE[4]+1; -__ARRAY_BIT1_INVALIDLINE[6]=1; -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BIT1_INVALIDLINE[5]*1/8+1); -memset((void*)(__ARRAY_BIT1_INVALIDLINE[0]),0,__ARRAY_BIT1_INVALIDLINE[5]*1/8+1); +__ARRAY_BYTE_INVALIDLINE[4]= 0 ; +__ARRAY_BYTE_INVALIDLINE[5]=( 10000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; +__ARRAY_BYTE_INVALIDLINE[6]=1; +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ +__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_INVALIDLINE[5]*1); +memset((void*)(__ARRAY_BYTE_INVALIDLINE[0]),0,__ARRAY_BYTE_INVALIDLINE[5]*1); }else{ -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)calloc(__ARRAY_BIT1_INVALIDLINE[5]*1/8+1,1); -if (!__ARRAY_BIT1_INVALIDLINE[0]) error(257); +__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)calloc(__ARRAY_BYTE_INVALIDLINE[5]*1,1); +if (!__ARRAY_BYTE_INVALIDLINE[0]) error(257); } -__ARRAY_BIT1_INVALIDLINE[2]|=1; +__ARRAY_BYTE_INVALIDLINE[2]|=1; } -if(!qbevent)break;evnt(43);}while(r); +if(!qbevent)break;evnt(47);}while(r); do{ if (__ARRAY_BYTE_DEFINEELSE[2]&2){ error(10); }else{ if (__ARRAY_BYTE_DEFINEELSE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_BYTE_DEFINEELSE[4]= 0 ; __ARRAY_BYTE_DEFINEELSE[5]=( 255 )-__ARRAY_BYTE_DEFINEELSE[4]+1; @@ -1498,179 +1589,182 @@ if (!__ARRAY_BYTE_DEFINEELSE[0]) error(257); __ARRAY_BYTE_DEFINEELSE[2]|=1; } } -if(!qbevent)break;evnt(44);}while(r); +if(!qbevent)break;evnt(48);}while(r); do{ -if(!qbevent)break;evnt(45);}while(r); +if(!qbevent)break;evnt(49);}while(r); +do{ +qbs_set(__STRING_USERDEFINELIST,qbs_new_txt_len("@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@",68)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(50);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("WINDOWS",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(46);}while(r); +if(!qbevent)break;evnt(51);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("WIN",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(46);}while(r); +if(!qbevent)break;evnt(51);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("LINUX",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(47);}while(r); +if(!qbevent)break;evnt(52);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("MAC",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(48);}while(r); +if(!qbevent)break;evnt(53);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("MACOSX",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(48);}while(r); +if(!qbevent)break;evnt(53);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("32BIT",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(49);}while(r); +if(!qbevent)break;evnt(54);}while(r); do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("64BIT",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(49);}while(r); -S_276:; +if(!qbevent)break;evnt(54);}while(r); +do{ +tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("VERSION",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(55);}while(r); +S_314:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(50);if(r)goto S_276;} +if(qbevent){evnt(56);if(r)goto S_314;} do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(50);}while(r); +if(!qbevent)break;evnt(56);}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(50);}while(r); +if(!qbevent)break;evnt(56);}while(r); }else{ do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(50);}while(r); +if(!qbevent)break;evnt(56);}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 1 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(50);}while(r); +if(!qbevent)break;evnt(56);}while(r); } -S_283:; +S_321:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ -if(qbevent){evnt(51);if(r)goto S_283;} +if(qbevent){evnt(57);if(r)goto S_321;} do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(51);}while(r); +if(!qbevent)break;evnt(57);}while(r); }else{ do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 2 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(51);}while(r); +if(!qbevent)break;evnt(57);}while(r); } -S_288:; +S_326:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(52);if(r)goto S_288;} +if(qbevent){evnt(58);if(r)goto S_326;} do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(52);}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(52);}while(r); -}else{ -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(52);}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(52);}while(r); -} -S_295:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||new_error){ -if(qbevent){evnt(53);if(r)goto S_295;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(53);}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(53);}while(r); -}else{ -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(53);}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(53);}while(r); -} -do{ if(!qbevent)break;evnt(58);}while(r); do{ -if(!qbevent)break;evnt(59);}while(r); -S_304:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_new_txt_len("refactor.txt",12))))||new_error){ -if(qbevent){evnt(60);if(r)goto S_304;} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(61);}while(r); -do{ -sub_open(qbs_new_txt_len("refactor.txt",12), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(58);}while(r); +}else{ +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 3 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(58);}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 4 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(58);}while(r); +} +S_333:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||new_error){ +if(qbevent){evnt(59);if(r)goto S_333;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(59);}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(59);}while(r); +}else{ +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 5 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(59);}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 6 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),qbs_new_txt_len("-1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(59);}while(r); +} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check(( 7 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_VERSION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(60);}while(r); +do{ if(!qbevent)break;evnt(62);}while(r); do{ -tmp_fileno=*__LONG_FH; -if (new_error) goto skip2; -sub_file_line_input_string(tmp_fileno,__STRING_REFACTOR_SOURCE); -if (new_error) goto skip2; -skip2: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(63);}while(r); -do{ -tmp_fileno=*__LONG_FH; -if (new_error) goto skip3; -sub_file_line_input_string(tmp_fileno,__STRING_REFACTOR_DEST); -if (new_error) goto skip3; -skip3: -qbs_cleanup(qbs_tmp_base,0); +*__SINGLE_QB64_UPTIME=func_timer(NULL,0); if(!qbevent)break;evnt(64);}while(r); -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(65);}while(r); -} LABEL_NOINTERNALFOLDER:; -if(qbevent){evnt(68);r=0;} -S_311:; +if(qbevent){evnt(66);r=0;} +S_343:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ -if(qbevent){evnt(69);if(r)goto S_311;} +if(qbevent){evnt(67);if(r)goto S_343;} do{ sub__screenshow(); -if(!qbevent)break;evnt(70);}while(r); +if(!qbevent)break;evnt(68);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("QB64 cannot locate the 'internal' folder",40)); +if (new_error) goto skip2; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(69);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip3: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(70);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Check that QB64 has been extracted properly.",44)); if (new_error) goto skip4; makefit(tqbs); qbs_print(tqbs,0); @@ -1681,6 +1775,10 @@ qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(71);}while(r); do{ tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("For MacOSX, launch 'qb64_start.command' or enter './qb64' in Terminal.",70)); +if (new_error) goto skip5; +makefit(tqbs); +qbs_print(tqbs,0); qbs_print(nothingstring,1); skip5: qbs_free(tqbs); @@ -1688,7 +1786,7 @@ qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(72);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Check that QB64 has been extracted properly.",44)); +qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64'.",41)); if (new_error) goto skip6; makefit(tqbs); qbs_print(tqbs,0); @@ -1697,48 +1795,34 @@ skip6: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(73);}while(r); +S_350:; do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("For MacOSX, launch 'qb64_start.command' or enter './qb64' in Terminal.",70)); -if (new_error) goto skip7; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip7: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(74);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64'.",41)); -if (new_error) goto skip8; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip8: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(75);}while(r); -S_318:; -do{ -if(qbevent){evnt(76);if(r)goto S_318;} +if(qbevent){evnt(74);if(r)goto S_350;} do{ sub__limit( 1 ); -if(!qbevent)break;evnt(77);}while(r); -S_320:; -dl_continue_9:; +if(!qbevent)break;evnt(75);}while(r); +S_352:; +dl_continue_7:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); -dl_exit_9:; -if(qbevent){evnt(78);if(r)goto S_320;} +dl_exit_7:; +if(qbevent){evnt(76);if(r)goto S_352;} do{ +if(qbevent){evnt(77);} +exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); -if(!qbevent)break;evnt(79);}while(r); +if(!qbevent)break;evnt(77);}while(r); } do{ +if(!qbevent)break;evnt(80);}while(r); +do{ if(!qbevent)break;evnt(82);}while(r); do{ +*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; +if(!qbevent)break;evnt(83);}while(r); +do{ +*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(84);}while(r); do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; @@ -1774,15 +1858,12 @@ do{ *__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; if(!qbevent)break;evnt(95);}while(r); do{ -*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; -if(!qbevent)break;evnt(96);}while(r); -do{ if (__ARRAY_LONG_DEPENDENCY[2]&2){ error(10); }else{ if (__ARRAY_LONG_DEPENDENCY[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_DEPENDENCY[4]= 1 ; __ARRAY_LONG_DEPENDENCY[5]=(*__LONG_DEPENDENCY_LAST)-__ARRAY_LONG_DEPENDENCY[4]+1; @@ -1797,68 +1878,129 @@ if (!__ARRAY_LONG_DEPENDENCY[0]) error(257); __ARRAY_LONG_DEPENDENCY[2]|=1; } } +if(!qbevent)break;evnt(99);}while(r); +do{ if(!qbevent)break;evnt(101);}while(r); do{ -if(!qbevent)break;evnt(103);}while(r); -do{ -if(!qbevent)break;evnt(106);}while(r); +if(!qbevent)break;evnt(104);}while(r); do{ *__LONG_OS_BITS= 64 ; -if(!qbevent)break;evnt(107);}while(r); -S_341:; +if(!qbevent)break;evnt(105);}while(r); +S_374:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ -if(qbevent){evnt(107);if(r)goto S_341;} +if(qbevent){evnt(105);if(r)goto S_374;} do{ *__LONG_OS_BITS= 32 ; -if(!qbevent)break;evnt(107);}while(r); +if(!qbevent)break;evnt(105);}while(r); } -S_344:; +S_377:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(109);if(r)goto S_344;} +if(qbevent){evnt(107);if(r)goto S_377;} do{ -sub__title(qbs_new_txt_len("QB64 x32",8)); +qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 x32",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(109);}while(r); +if(!qbevent)break;evnt(107);}while(r); }else{ do{ -sub__title(qbs_new_txt_len("QB64 x64",8)); +qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 x64",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(109);}while(r); +if(!qbevent)break;evnt(107);}while(r); } do{ +sub__title(__STRING_WINDOWTITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(108);}while(r); +do{ +if(!qbevent)break;evnt(110);}while(r); +do{ if(!qbevent)break;evnt(111);}while(r); do{ if(!qbevent)break;evnt(112);}while(r); do{ -if(!qbevent)break;evnt(114);}while(r); -do{ -if(!qbevent)break;evnt(115);}while(r); -do{ -if(!qbevent)break;evnt(116);}while(r); -do{ -if(!qbevent)break;evnt(117);}while(r); -do{ -if(!qbevent)break;evnt(118);}while(r); -do{ -if(!qbevent)break;evnt(121);}while(r); -do{ -if(!qbevent)break;evnt(122);}while(r); -do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} if(!qbevent)break;evnt(123);}while(r); do{ if(!qbevent)break;evnt(124);}while(r); do{ +if(!qbevent)break;evnt(125);}while(r); +do{ if(!qbevent)break;evnt(126);}while(r); do{ +if(!qbevent)break;evnt(127);}while(r); +do{ if(!qbevent)break;evnt(128);}while(r); do{ if(!qbevent)break;evnt(129);}while(r); do{ if(!qbevent)break;evnt(130);}while(r); do{ -*__LONG_OPTMAX= 256 ; if(!qbevent)break;evnt(131);}while(r); do{ +if(!qbevent)break;evnt(134);}while(r); +do{ +if(!qbevent)break;evnt(135);}while(r); +do{ +if(!qbevent)break;evnt(136);}while(r); +do{ +if(!qbevent)break;evnt(137);}while(r); +do{ +if(!qbevent)break;evnt(139);}while(r); +do{ +if(!qbevent)break;evnt(141);}while(r); +do{ +if(!qbevent)break;evnt(142);}while(r); +do{ +if(!qbevent)break;evnt(143);}while(r); +do{ +if(!qbevent)break;evnt(144);}while(r); +do{ +*__LONG_OPTMAX= 256 ; +if(!qbevent)break;evnt(145);}while(r); +do{ if (__ARRAY_STRING256_OPT[2]&2){ error(10); @@ -1886,7 +2028,7 @@ if (!__ARRAY_STRING256_OPT[0]) error(257); } __ARRAY_STRING256_OPT[2]|=1; } -if(!qbevent)break;evnt(132);}while(r); +if(!qbevent)break;evnt(146);}while(r); do{ if (__ARRAY_INTEGER_OPTWORDS[2]&2){ @@ -1915,7 +2057,7 @@ if (!__ARRAY_INTEGER_OPTWORDS[0]) error(257); } __ARRAY_INTEGER_OPTWORDS[2]|=1; } -if(!qbevent)break;evnt(136);}while(r); +if(!qbevent)break;evnt(150);}while(r); do{ if (__ARRAY_INTEGER_T[2]&2){ @@ -1941,7 +2083,7 @@ if (!__ARRAY_INTEGER_T[0]) error(257); } __ARRAY_INTEGER_T[2]|=1; } -if(!qbevent)break;evnt(140);}while(r); +if(!qbevent)break;evnt(154);}while(r); do{ if (__ARRAY_INTEGER_LEV[2]&2){ @@ -1967,7 +2109,7 @@ if (!__ARRAY_INTEGER_LEV[0]) error(257); } __ARRAY_INTEGER_LEV[2]|=1; } -if(!qbevent)break;evnt(145);}while(r); +if(!qbevent)break;evnt(159);}while(r); do{ if (__ARRAY_INTEGER_ENTRYLEV[2]&2){ @@ -1993,7 +2135,7 @@ if (!__ARRAY_INTEGER_ENTRYLEV[0]) error(257); } __ARRAY_INTEGER_ENTRYLEV[2]|=1; } -if(!qbevent)break;evnt(146);}while(r); +if(!qbevent)break;evnt(160);}while(r); do{ if (__ARRAY_INTEGER_DITCHLEV[2]&2){ @@ -2019,7 +2161,7 @@ if (!__ARRAY_INTEGER_DITCHLEV[0]) error(257); } __ARRAY_INTEGER_DITCHLEV[2]|=1; } -if(!qbevent)break;evnt(147);}while(r); +if(!qbevent)break;evnt(161);}while(r); do{ if (__ARRAY_INTEGER_DONTPASS[2]&2){ @@ -2045,7 +2187,7 @@ if (!__ARRAY_INTEGER_DONTPASS[0]) error(257); } __ARRAY_INTEGER_DONTPASS[2]|=1; } -if(!qbevent)break;evnt(148);}while(r); +if(!qbevent)break;evnt(162);}while(r); do{ if (__ARRAY_INTEGER_TEMPLIST[2]&2){ @@ -2071,7 +2213,7 @@ if (!__ARRAY_INTEGER_TEMPLIST[0]) error(257); } __ARRAY_INTEGER_TEMPLIST[2]|=1; } -if(!qbevent)break;evnt(150);}while(r); +if(!qbevent)break;evnt(164);}while(r); do{ if (__ARRAY_LONG_PASSRULE[2]&2){ @@ -2097,7 +2239,7 @@ if (!__ARRAY_LONG_PASSRULE[0]) error(257); } __ARRAY_LONG_PASSRULE[2]|=1; } -if(!qbevent)break;evnt(151);}while(r); +if(!qbevent)break;evnt(165);}while(r); do{ if (__ARRAY_LONG_LEVELENTERED[2]&2){ @@ -2123,7 +2265,7 @@ if (!__ARRAY_LONG_LEVELENTERED[0]) error(257); } __ARRAY_LONG_LEVELENTERED[2]|=1; } -if(!qbevent)break;evnt(155);}while(r); +if(!qbevent)break;evnt(169);}while(r); do{ if (__ARRAY_STRING_SEPARGS[2]&2){ @@ -2148,7 +2290,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_n while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(156);}while(r); +if(!qbevent)break;evnt(170);}while(r); do{ if (__ARRAY_STRING_SEPARGSLAYOUT[2]&2){ @@ -2173,7 +2315,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64 while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(157);}while(r); +if(!qbevent)break;evnt(171);}while(r); do{ if (__ARRAY_STRING_SEPARGS2[2]&2){ @@ -2198,7 +2340,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(158);}while(r); +if(!qbevent)break;evnt(172);}while(r); do{ if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&2){ @@ -2223,11 +2365,11 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint6 while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(159);}while(r); +if(!qbevent)break;evnt(173);}while(r); do{ -if(!qbevent)break;evnt(165);}while(r); +if(!qbevent)break;evnt(179);}while(r); do{ -if(!qbevent)break;evnt(176);}while(r); +if(!qbevent)break;evnt(190);}while(r); do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){ @@ -2252,7 +2394,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(177);}while(r); +if(!qbevent)break;evnt(191);}while(r); do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ @@ -2277,7 +2419,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(178);}while(r); +if(!qbevent)break;evnt(192);}while(r); do{ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){ @@ -2303,64 +2445,64 @@ if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257); } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1; } -if(!qbevent)break;evnt(179);}while(r); +if(!qbevent)break;evnt(193);}while(r); do{ -if(!qbevent)break;evnt(185);}while(r); +if(!qbevent)break;evnt(199);}while(r); do{ -if(!qbevent)break;evnt(186);}while(r); +if(!qbevent)break;evnt(200);}while(r); do{ -if(!qbevent)break;evnt(188);}while(r); +if(!qbevent)break;evnt(202);}while(r); do{ qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(189);}while(r); -S_388:; +if(!qbevent)break;evnt(203);}while(r); +S_428:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||new_error){ -if(qbevent){evnt(190);if(r)goto S_388;} +if(qbevent){evnt(204);if(r)goto S_428;} do{ qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(190);}while(r); +if(!qbevent)break;evnt(204);}while(r); } do{ -if(!qbevent)break;evnt(192);}while(r); -S_392:; +if(!qbevent)break;evnt(206);}while(r); +S_432:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(193);if(r)goto S_392;} +if(qbevent){evnt(207);if(r)goto S_432;} do{ *__LONG_MACOSX= 1 ; -if(!qbevent)break;evnt(193);}while(r); +if(!qbevent)break;evnt(207);}while(r); } do{ -if(!qbevent)break;evnt(195);}while(r); -S_396:; +if(!qbevent)break;evnt(209);}while(r); +S_436:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(196);if(r)goto S_396;} +if(qbevent){evnt(210);if(r)goto S_436;} do{ *__LONG_INLINE_DATA= 1 ; -if(!qbevent)break;evnt(196);}while(r); +if(!qbevent)break;evnt(210);}while(r); } do{ -if(!qbevent)break;evnt(198);}while(r); +if(!qbevent)break;evnt(212);}while(r); do{ qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(199);}while(r); -S_401:; +if(!qbevent)break;evnt(213);}while(r); +S_441:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(200);if(r)goto S_401;} +if(qbevent){evnt(214);if(r)goto S_441;} do{ qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(200);}while(r); +if(!qbevent)break;evnt(214);}while(r); } -S_404:; +S_444:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(201);if(r)goto S_404;} +if(qbevent){evnt(215);if(r)goto S_444;} do{ qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(201);}while(r); +if(!qbevent)break;evnt(215);}while(r); } do{ @@ -2368,7 +2510,7 @@ if (__ARRAY_STRING_INLINEDATASTR[2]&2){ error(10); }else{ if (__ARRAY_STRING_INLINEDATASTR[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_INLINEDATASTR[4]= 0 ; __ARRAY_STRING_INLINEDATASTR[5]=( 255 )-__ARRAY_STRING_INLINEDATASTR[4]+1; @@ -2384,1784 +2526,1809 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64 } } } -if(!qbevent)break;evnt(204);}while(r); -S_408:; -fornext_value11= 0 ; -fornext_finalvalue11= 255 ; -fornext_step11= 1 ; -if (fornext_step11<0) fornext_step_negative11=1; else fornext_step_negative11=0; -if (new_error) goto fornext_error11; -goto fornext_entrylabel11; +if(!qbevent)break;evnt(218);}while(r); +S_448:; +fornext_value9= 0 ; +fornext_finalvalue9= 255 ; +fornext_step9= 1 ; +if (fornext_step9<0) fornext_step_negative9=1; else fornext_step_negative9=0; +if (new_error) goto fornext_error9; +goto fornext_entrylabel9; while(1){ -fornext_value11=fornext_step11+(*__LONG_I); -fornext_entrylabel11: -*__LONG_I=fornext_value11; -if (fornext_step_negative11){ -if (fornext_value11fornext_finalvalue11) break; +if (fornext_value9>fornext_finalvalue9) break; } -fornext_error11:; -if(qbevent){evnt(205);if(r)goto S_408;} +fornext_error9:; +if(qbevent){evnt(219);if(r)goto S_448;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long])),qbs_add(FUNC_STR2(__LONG_I),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(206);}while(r); -fornext_continue_10:; +if(!qbevent)break;evnt(220);}while(r); +fornext_continue_8:; } -fornext_exit_10:; +fornext_exit_8:; do{ -if(!qbevent)break;evnt(210);}while(r); +if(!qbevent)break;evnt(224);}while(r); do{ -if(!qbevent)break;evnt(211);}while(r); +if(!qbevent)break;evnt(225);}while(r); do{ qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(212);}while(r); -S_414:; +if(!qbevent)break;evnt(226);}while(r); +S_454:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(213);if(r)goto S_414;} +if(qbevent){evnt(227);if(r)goto S_454;} do{ qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(213);}while(r); +if(!qbevent)break;evnt(227);}while(r); } do{ -if(!qbevent)break;evnt(215);}while(r); +if(!qbevent)break;evnt(229);}while(r); do{ qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(216);}while(r); -S_419:; +if(!qbevent)break;evnt(230);}while(r); +S_459:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(217);if(r)goto S_419;} +if(qbevent){evnt(231);if(r)goto S_459;} do{ qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(217);}while(r); +if(!qbevent)break;evnt(231);}while(r); } do{ error_goto_line=1; -if(!qbevent)break;evnt(220);}while(r); +if(!qbevent)break;evnt(234);}while(r); do{ -if(!qbevent)break;evnt(222);}while(r); -S_424:; +if(!qbevent)break;evnt(236);}while(r); +S_464:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(223);if(r)goto S_424;} +if(qbevent){evnt(237);if(r)goto S_464;} do{ qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(223);}while(r); +if(!qbevent)break;evnt(237);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(223);}while(r); +if(!qbevent)break;evnt(237);}while(r); } -S_428:; +S_468:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(224);if(r)goto S_428;} +if(qbevent){evnt(238);if(r)goto S_468;} do{ qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(224);}while(r); +if(!qbevent)break;evnt(238);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(224);}while(r); +if(!qbevent)break;evnt(238);}while(r); } -S_432:; +S_472:; if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||new_error){ -if(qbevent){evnt(226);if(r)goto S_432;} +if(qbevent){evnt(240);if(r)goto S_472;} do{ sub_mkdir(__STRING_TMPDIR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(226);}while(r); +if(!qbevent)break;evnt(240);}while(r); } do{ *__LONG_THISINSTANCEPID=( int32 )getpid(); -if(!qbevent)break;evnt(232);}while(r); +if(!qbevent)break;evnt(246);}while(r); do{ -if(!qbevent)break;evnt(233);}while(r); -S_437:; +if(!qbevent)break;evnt(247);}while(r); +S_477:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ -if(qbevent){evnt(235);if(r)goto S_437;} +if(qbevent){evnt(249);if(r)goto S_477;} do{ *__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(236);}while(r); +if(!qbevent)break;evnt(250);}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\tempfoldersearch.bin",36), 1 ,NULL,NULL,*__LONG_FH,4,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(237);}while(r); +if(!qbevent)break;evnt(251);}while(r); do{ *__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4))); -if(!qbevent)break;evnt(238);}while(r); +if(!qbevent)break;evnt(252);}while(r); do{ *__LONG_I= 1 ; -if(!qbevent)break;evnt(239);}while(r); -S_442:; +if(!qbevent)break;evnt(253);}while(r); +S_482:; if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||new_error){ -if(qbevent){evnt(240);if(r)goto S_442;} +if(qbevent){evnt(254);if(r)goto S_482;} do{ -sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_14),1); -if(!qbevent)break;evnt(242);}while(r); +sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1); +if(!qbevent)break;evnt(256);}while(r); }else{ -S_445:; -fornext_value16= 1 ; -fornext_finalvalue16=*__LONG_TEMPFOLDERRECORDS; -fornext_step16= 1 ; -if (fornext_step16<0) fornext_step_negative16=1; else fornext_step_negative16=0; -if (new_error) goto fornext_error16; -goto fornext_entrylabel16; +S_485:; +fornext_value14= 1 ; +fornext_finalvalue14=*__LONG_TEMPFOLDERRECORDS; +fornext_step14= 1 ; +if (fornext_step14<0) fornext_step_negative14=1; else fornext_step_negative14=0; +if (new_error) goto fornext_error14; +goto fornext_entrylabel14; while(1){ -fornext_value16=fornext_step16+(*__LONG_I); -fornext_entrylabel16: -*__LONG_I=fornext_value16; -if (fornext_step_negative16){ -if (fornext_value16fornext_finalvalue16) break; +if (fornext_value14>fornext_finalvalue14) break; } -fornext_error16:; -if(qbevent){evnt(244);if(r)goto S_445;} +fornext_error14:; +if(qbevent){evnt(258);if(r)goto S_485;} do{ -sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_17),1); -if(!qbevent)break;evnt(246);}while(r); +sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1); +if(!qbevent)break;evnt(260);}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("ps -p ",6),qbs_str((int32)(*__LONG_TEMPFOLDERSEARCH))),qbs_new_txt_len(" > /dev/null 2>&1; echo $? > internal/temp/checkpid.bin",55)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(248);}while(r); +if(!qbevent)break;evnt(262);}while(r); do{ *__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(249);}while(r); +if(!qbevent)break;evnt(263);}while(r); do{ sub_open(qbs_new_txt_len("internal/temp/checkpid.bin",26), 2 ,NULL,NULL,*__LONG_FH2,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(250);}while(r); +if(!qbevent)break;evnt(264);}while(r); do{ tmp_fileno=*__LONG_FH2; -if (new_error) goto skip18; +if (new_error) goto skip16; sub_file_line_input_string(tmp_fileno,__STRING_CHECKPID); -if (new_error) goto skip18; -skip18: +if (new_error) goto skip16; +skip16: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(251);}while(r); +if(!qbevent)break;evnt(265);}while(r); do{ sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(252);}while(r); -S_452:; +if(!qbevent)break;evnt(266);}while(r); +S_492:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_CHECKPID)== 1 )))||new_error){ -if(qbevent){evnt(253);if(r)goto S_452;} +if(qbevent){evnt(267);if(r)goto S_492;} do{ -sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_19),1); -if(!qbevent)break;evnt(256);}while(r); +sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1); +if(!qbevent)break;evnt(270);}while(r); do{ -goto fornext_exit_15; -if(!qbevent)break;evnt(257);}while(r); +goto fornext_exit_13; +if(!qbevent)break;evnt(271);}while(r); } -fornext_continue_15:; +fornext_continue_13:; } -fornext_exit_15:; -S_457:; +fornext_exit_13:; +S_497:; if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||new_error){ -if(qbevent){evnt(260);if(r)goto S_457;} +if(qbevent){evnt(274);if(r)goto S_497;} do{ -sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_20),1); -if(!qbevent)break;evnt(262);}while(r); +sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1); +if(!qbevent)break;evnt(276);}while(r); } } do{ sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(265);}while(r); -S_462:; +if(!qbevent)break;evnt(279);}while(r); +S_502:; if ((-(*__LONG_I> 1 ))||new_error){ -if(qbevent){evnt(266);if(r)goto S_462;} +if(qbevent){evnt(280);if(r)goto S_502;} do{ qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(267);}while(r); +if(!qbevent)break;evnt(281);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(267);}while(r); -S_465:; +if(!qbevent)break;evnt(281);}while(r); +S_505:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||new_error){ -if(qbevent){evnt(268);if(r)goto S_465;} +if(qbevent){evnt(282);if(r)goto S_505;} do{ sub_mkdir(__STRING_TMPDIR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(269);}while(r); +if(!qbevent)break;evnt(283);}while(r); } } do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(272);}while(r); +if(!qbevent)break;evnt(286);}while(r); }else{ do{ error_goto_line=2; -if(!qbevent)break;evnt(274);}while(r); +if(!qbevent)break;evnt(288);}while(r); do{ *__LONG_E= 0 ; -if(!qbevent)break;evnt(275);}while(r); +if(!qbevent)break;evnt(289);}while(r); do{ *__LONG_I= 1 ; -if(!qbevent)break;evnt(276);}while(r); +if(!qbevent)break;evnt(290);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(277);}while(r); -S_475:; +if(!qbevent)break;evnt(291);}while(r); +S_515:; while((*__LONG_E)||new_error){ -if(qbevent){evnt(278);if(r)goto S_475;} +if(qbevent){evnt(292);if(r)goto S_515;} do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(279);}while(r); -S_477:; +if(!qbevent)break;evnt(293);}while(r); +S_517:; if ((-(*__LONG_I== 1000 ))||new_error){ -if(qbevent){evnt(280);if(r)goto S_477;} +if(qbevent){evnt(294);if(r)goto S_517;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Unable to locate the 'internal' folder",38)); -if (new_error) goto skip22; +if (new_error) goto skip20; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip22: +skip20: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(280);}while(r); +if(!qbevent)break;evnt(294);}while(r); do{ +if(qbevent){evnt(294);} +exit_code= 1 ; sub_end(); -if(!qbevent)break;evnt(280);}while(r); +if(!qbevent)break;evnt(294);}while(r); } do{ sub_mkdir(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),FUNC_STR2(__LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(281);}while(r); -S_482:; +if(!qbevent)break;evnt(295);}while(r); +S_522:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(282);if(r)goto S_482;} +if(qbevent){evnt(296);if(r)goto S_522;} do{ qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(282);}while(r); +if(!qbevent)break;evnt(296);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("..\\\\temp",8),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\\\",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(282);}while(r); +if(!qbevent)break;evnt(296);}while(r); } -S_486:; +S_526:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(283);if(r)goto S_486;} +if(qbevent){evnt(297);if(r)goto S_526;} do{ qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(283);}while(r); +if(!qbevent)break;evnt(297);}while(r); do{ qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(283);}while(r); +if(!qbevent)break;evnt(297);}while(r); } do{ *__LONG_E= 0 ; -if(!qbevent)break;evnt(284);}while(r); +if(!qbevent)break;evnt(298);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(285);}while(r); -dl_continue_21:; +if(!qbevent)break;evnt(299);}while(r); +dl_continue_19:; } -dl_exit_21:; +dl_exit_19:; } do{ *__LONG_TEMPFOLDERINDEX=*__LONG_I; -if(!qbevent)break;evnt(291);}while(r); -S_495:; +if(!qbevent)break;evnt(305);}while(r); +S_535:; if ((-(*__LONG_I> 1 ))||new_error){ -if(qbevent){evnt(292);if(r)goto S_495;} +if(qbevent){evnt(306);if(r)goto S_535;} do{ sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\qbx",16),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".cpp",4)), 4 ,NULL,NULL, 2 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(294);}while(r); +if(!qbevent)break;evnt(308);}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\c\\qbx.cpp",20), 2 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(295);}while(r); -S_498:; +if(!qbevent)break;evnt(309);}while(r); +S_538:; while((!(func_eof( 1 )))||new_error){ -if(qbevent){evnt(296);if(r)goto S_498;} +if(qbevent){evnt(310);if(r)goto S_538;} do{ tmp_fileno= 1 ; -if (new_error) goto skip24; +if (new_error) goto skip22; sub_file_line_input_string(tmp_fileno,__STRING_A); -if (new_error) goto skip24; -skip24: +if (new_error) goto skip22; +skip22: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(297);}while(r); +if(!qbevent)break;evnt(311);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("..\\\\temp\\\\",10),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(298);}while(r); -S_501:; +if(!qbevent)break;evnt(312);}while(r); +S_541:; if ((*__LONG_X)||new_error){ -if(qbevent){evnt(298);if(r)goto S_501;} +if(qbevent){evnt(312);if(r)goto S_541;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("..\\\\temp",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\\\",2)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 9 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(298);}while(r); +if(!qbevent)break;evnt(312);}while(r); } do{ *__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("../temp/",8),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(299);}while(r); -S_505:; +if(!qbevent)break;evnt(313);}while(r); +S_545:; if ((*__LONG_X)||new_error){ -if(qbevent){evnt(299);if(r)goto S_505;} +if(qbevent){evnt(313);if(r)goto S_545;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("../temp",7)),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 7 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(299);}while(r); +if(!qbevent)break;evnt(313);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 2 ; -if (new_error) goto skip27; +if (new_error) goto skip25; sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); -if (new_error) goto skip27; -skip27: +if (new_error) goto skip25; +skip25: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(300);}while(r); -dl_continue_23:; +if(!qbevent)break;evnt(314);}while(r); +dl_continue_21:; } -dl_exit_23:; +dl_exit_21:; do{ sub_close( 1 ,1); sub_close( 2 ,1); -if(!qbevent)break;evnt(302);}while(r); +if(!qbevent)break;evnt(316);}while(r); } -S_512:; +S_552:; if (( 0 )||new_error){ -if(qbevent){evnt(305);if(r)goto S_512;} +if(qbevent){evnt(319);if(r)goto S_552;} do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(305);}while(r); +if(!qbevent)break;evnt(319);}while(r); } do{ error_goto_line=3; -if(!qbevent)break;evnt(307);}while(r); +if(!qbevent)break;evnt(321);}while(r); do{ -if(!qbevent)break;evnt(311);}while(r); +if(!qbevent)break;evnt(325);}while(r); do{ -if(!qbevent)break;evnt(312);}while(r); -S_518:; +if(!qbevent)break;evnt(326);}while(r); +S_558:; if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||new_error){ -if(qbevent){evnt(313);if(r)goto S_518;} +if(qbevent){evnt(327);if(r)goto S_558;} do{ qbs_set(__STRING_TEMPFOLDERINDEXSTR,qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(313);}while(r); +if(!qbevent)break;evnt(327);}while(r); do{ qbs_set(__STRING_TEMPFOLDERINDEXSTR2,FUNC_STR2(__LONG_TEMPFOLDERINDEX)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(313);}while(r); +if(!qbevent)break;evnt(327);}while(r); } do{ -if(!qbevent)break;evnt(316);}while(r); -do{ -if(!qbevent)break;evnt(317);}while(r); -do{ -if(!qbevent)break;evnt(318);}while(r); -do{ -if(!qbevent)break;evnt(320);}while(r); -do{ -if(!qbevent)break;evnt(322);}while(r); -do{ -if(!qbevent)break;evnt(323);}while(r); -do{ -if(!qbevent)break;evnt(326);}while(r); -do{ -*__LONG_SYMBOLTYPE_SIZE= 0 ; -if(!qbevent)break;evnt(327);}while(r); -do{ -if(!qbevent)break;evnt(329);}while(r); -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; if(!qbevent)break;evnt(330);}while(r); do{ -if(!qbevent)break;evnt(334);}while(r); +if(!qbevent)break;evnt(331);}while(r); do{ -if(!qbevent)break;evnt(335);}while(r); +if(!qbevent)break;evnt(332);}while(r); +do{ +if(!qbevent)break;evnt(334);}while(r); do{ if(!qbevent)break;evnt(336);}while(r); do{ if(!qbevent)break;evnt(337);}while(r); do{ -if(!qbevent)break;evnt(338);}while(r); -do{ -if(!qbevent)break;evnt(339);}while(r); +if(!qbevent)break;evnt(340);}while(r); do{ +*__LONG_SYMBOLTYPE_SIZE= 0 ; if(!qbevent)break;evnt(341);}while(r); do{ +if(!qbevent)break;evnt(343);}while(r); +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; if(!qbevent)break;evnt(344);}while(r); do{ -if(!qbevent)break;evnt(345);}while(r); -do{ -if(!qbevent)break;evnt(346);}while(r); -do{ -if(!qbevent)break;evnt(347);}while(r); -do{ if(!qbevent)break;evnt(348);}while(r); do{ - -if (__ARRAY_STRING_CNAME[2]&2){ -error(10); -}else{ -if (__ARRAY_STRING_CNAME[2]&1){ -error(10); -}else{ -__ARRAY_STRING_CNAME[4]= 0 ; -__ARRAY_STRING_CNAME[5]=( 4 )-__ARRAY_STRING_CNAME[4]+1; -__ARRAY_STRING_CNAME[6]=1; -__ARRAY_STRING_CNAME[0]=(ptrszint)malloc(__ARRAY_STRING_CNAME[5]*8); -if (!__ARRAY_STRING_CNAME[0]) error(257); -__ARRAY_STRING_CNAME[2]|=1; -tmp_long=__ARRAY_STRING_CNAME[5]; -if (__ARRAY_STRING_CNAME[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -} +if(!qbevent)break;evnt(349);}while(r); +do{ if(!qbevent)break;evnt(350);}while(r); do{ -if(!qbevent)break;evnt(352,1,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(351);}while(r); do{ -if(!qbevent)break;evnt(352,2,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(352);}while(r); do{ -if(!qbevent)break;evnt(352,3,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(353);}while(r); do{ -if(!qbevent)break;evnt(352,4,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(355);}while(r); do{ -if(!qbevent)break;evnt(352,5,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(358);}while(r); do{ -if(!qbevent)break;evnt(352,6,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(359);}while(r); do{ -if(!qbevent)break;evnt(352,7,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(360);}while(r); do{ -if(!qbevent)break;evnt(352,8,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(361);}while(r); do{ -if(!qbevent)break;evnt(352,9,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(362);}while(r); do{ -if(!qbevent)break;evnt(352,10,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(363);}while(r); do{ -if(!qbevent)break;evnt(352,11,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(364);}while(r); do{ -if(!qbevent)break;evnt(352,12,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,1,"IDEsettings.bas");}while(r); do{ -if(!qbevent)break;evnt(352,13,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,2,"IDEsettings.bas");}while(r); do{ -if(!qbevent)break;evnt(352,14,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,3,"IDEsettings.bas");}while(r); do{ -if(!qbevent)break;evnt(352,15,"IDEsettings.bas");}while(r); -S_560:; -if ((-(*__INTEGER_LOADEDIDESETTINGS== 0 ))||new_error){ -if(qbevent){evnt(352,17,"IDEsettings.bas");if(r)goto S_560;} +if(!qbevent)break;evnt(366,4,"IDEsettings.bas");}while(r); do{ -*__INTEGER_LOADEDIDESETTINGS= -1 ; -if(!qbevent)break;evnt(352,22,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,5,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.txt",19)); +if(!qbevent)break;evnt(366,6,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,7,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,8,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,9,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,10,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,11,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,12,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,13,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,14,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,15,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,16,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,17,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,18,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,19,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,20,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,21,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(366,22,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.ini",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,24,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,24,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_CONFIGBAK,qbs_new_txt_len("internal/config.bak",19)); +qbs_set(__STRING_INIFOLDERINDEX,qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,25,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,25,"IDEsettings.bas");}while(r); do{ -return_point[next_return_point++]=1; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CHECKCONFIGFILEEXISTS; -RETURN_1:; -if(!qbevent)break;evnt(352,27,"IDEsettings.bas");}while(r); -S_565:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(352,29,"IDEsettings.bas");if(r)goto S_565;} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("AllowIndependentSettings",24),__STRING_VALUE); +qbs_set(__STRING_DEBUGINFOINIWARNING,qbs_new_txt_len(" 'Do not change manually. Use 'qb64 -s', or Debug->Advanced in the IDE",70)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,31,"IDEsettings.bas");}while(r); -S_567:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,32,"IDEsettings.bas");if(r)goto S_567;} -S_568:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ -if(qbevent){evnt(352,33,"IDEsettings.bas");if(r)goto S_568;} +if(!qbevent)break;evnt(366,26,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_IDE_INDEX,qbs_add(qbs_add(qbs_new_txt_len("(",1),qbs_ltrim(qbs_rtrim(qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))))),qbs_new_txt_len(")",1))); +qbs_set(__STRING_WINDOWSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE WINDOW",10),__STRING_INIFOLDERINDEX)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,34,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,28,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_CONFIGFILE,qbs_add(qbs_add(qbs_new_txt_len("internal/config",15),__STRING_IDE_INDEX),qbs_new_txt_len(".txt",4))); +qbs_set(__STRING_COLORSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE COLOR SETTINGS",18),__STRING_INIFOLDERINDEX)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,35,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,29,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_CONFIGBAK,qbs_add(qbs_add(qbs_new_txt_len("internal/config",15),__STRING_IDE_INDEX),qbs_new_txt_len(".bak",4))); +qbs_set(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("IDE COLOR SCHEMES",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,36,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,30,"IDEsettings.bas");}while(r); do{ -return_point[next_return_point++]=2; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CHECKCONFIGFILEEXISTS; -RETURN_2:; -if(!qbevent)break;evnt(352,37,"IDEsettings.bas");}while(r); +qbs_set(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CUSTOM DICTIONARIES",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,31,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("MOUSE SETTINGS",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,32,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("GENERAL SETTINGS",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,33,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE DISPLAY SETTINGS",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,34,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("DEBUG SETTINGS",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,35,"IDEsettings.bas");}while(r); +do{ +SUB_INISETADDQUOTES(&(pass26= 0 )); +if(!qbevent)break;evnt(366,37,"IDEsettings.bas");}while(r); +do{ +SUB_INISETFORCERELOAD(&(pass27= -1 )); +if(!qbevent)break;evnt(366,38,"IDEsettings.bas");}while(r); +do{ +SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1 )); +if(!qbevent)break;evnt(366,39,"IDEsettings.bas");}while(r); +do{ +SUB_INISETAUTOCOMMIT(&(pass29= -1 )); +if(!qbevent)break;evnt(366,40,"IDEsettings.bas");}while(r); +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,43,"IDEsettings.bas");}while(r); +S_624:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,44,"IDEsettings.bas");if(r)goto S_624;} +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; +if(!qbevent)break;evnt(366,45,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,46,"IDEsettings.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("AllowIndependentSettings",24),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,39,"IDEsettings.bas");}while(r); +*__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; +if(!qbevent)break;evnt(366,48,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_IDE_INDEX,qbs_new_txt_len("",0)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,40,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,49,"IDEsettings.bas");}while(r); +} +S_631:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,52,"IDEsettings.bas");if(r)goto S_631;} +S_632:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,53,"IDEsettings.bas");if(r)goto S_632;} +do{ +*__BYTE_PASTECURSORATEND= -1 ; +if(!qbevent)break;evnt(366,54,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_PASTECURSORATEND= 0 ; +if(!qbevent)break;evnt(366,56,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,57,"IDEsettings.bas");}while(r); } }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("AllowIndependentSettings",24),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,43,"IDEsettings.bas");}while(r); +*__BYTE_PASTECURSORATEND= -1 ; +if(!qbevent)break;evnt(366,60,"IDEsettings.bas");}while(r); do{ -qbs_set(__STRING_IDE_INDEX,qbs_new_txt_len("",0)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,44,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,61,"IDEsettings.bas");}while(r); +} +S_642:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,64,"IDEsettings.bas");if(r)goto S_642;} +S_643:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,65,"IDEsettings.bas");if(r)goto S_643;} +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(366,66,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(366,68,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,69,"IDEsettings.bas");}while(r); } }else{ do{ -qbs_set(__STRING_IDE_INDEX,qbs_new_txt_len("",0)); +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(366,72,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,50,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,73,"IDEsettings.bas");}while(r); } +S_653:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,76,"IDEsettings.bas");if(r)goto S_653;} +S_654:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,77,"IDEsettings.bas");if(r)goto S_654;} do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ConfigVersion",13),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,53,"IDEsettings.bas");}while(r); -do{ -*__LONG_CONFIGFILEVERSION=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,54,"IDEsettings.bas");}while(r); -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("CommentColor",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,56,"IDEsettings.bas");}while(r); -S_587:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,57,"IDEsettings.bas");if(r)goto S_587;} -do{ -*__ULONG_IDECOMMENTCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass28=func__rgb32( 85 , 255 , 255 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,58,"IDEsettings.bas");}while(r); +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(366,78,"IDEsettings.bas");}while(r); }else{ do{ -*__ULONG_IDECOMMENTCOLOR=func__rgb32( 85 , 255 , 255 ); -if(!qbevent)break;evnt(352,60,"IDEsettings.bas");}while(r); +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(366,80,"IDEsettings.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("CommentColor",12),qbs_new_txt_len("_RGB32(85,255,255)",18)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,61,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,81,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(366,84,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,85,"IDEsettings.bas");}while(r); +} +S_664:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,88,"IDEsettings.bas");if(r)goto S_664;} +S_665:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,89,"IDEsettings.bas");if(r)goto S_665;} +do{ +*__BYTE_SAVEEXEWITHSOURCE= -1 ; +if(!qbevent)break;evnt(366,90,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SAVEEXEWITHSOURCE= 0 ; +if(!qbevent)break;evnt(366,92,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,93,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SAVEEXEWITHSOURCE= 0 ; +if(!qbevent)break;evnt(366,96,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,97,"IDEsettings.bas");}while(r); +} +S_675:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,100,"IDEsettings.bas");if(r)goto S_675;} +S_676:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,101,"IDEsettings.bas");if(r)goto S_676;} +do{ +*__BYTE_ENABLEQUICKNAV= -1 ; +if(!qbevent)break;evnt(366,102,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_ENABLEQUICKNAV= 0 ; +if(!qbevent)break;evnt(366,104,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,105,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_ENABLEQUICKNAV= -1 ; +if(!qbevent)break;evnt(366,108,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,109,"IDEsettings.bas");}while(r); +} +S_686:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,112,"IDEsettings.bas");if(r)goto S_686;} +S_687:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,113,"IDEsettings.bas");if(r)goto S_687;} +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; +if(!qbevent)break;evnt(366,114,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY= 0 ; +if(!qbevent)break;evnt(366,116,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,117,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; +if(!qbevent)break;evnt(366,120,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,121,"IDEsettings.bas");}while(r); +} +S_697:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,124,"IDEsettings.bas");if(r)goto S_697;} +S_698:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,125,"IDEsettings.bas");if(r)goto S_698;} +do{ +*__BYTE_SHOWLINENUMBERS= -1 ; +if(!qbevent)break;evnt(366,126,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SHOWLINENUMBERS= 0 ; +if(!qbevent)break;evnt(366,128,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,129,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SHOWLINENUMBERS= -1 ; +if(!qbevent)break;evnt(366,132,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,133,"IDEsettings.bas");}while(r); +} +S_708:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,136,"IDEsettings.bas");if(r)goto S_708;} +S_709:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,137,"IDEsettings.bas");if(r)goto S_709;} +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; +if(!qbevent)break;evnt(366,138,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR= 0 ; +if(!qbevent)break;evnt(366,140,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,141,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; +if(!qbevent)break;evnt(366,144,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,145,"IDEsettings.bas");}while(r); +} +S_719:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,148,"IDEsettings.bas");if(r)goto S_719;} +S_720:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,149,"IDEsettings.bas");if(r)goto S_720;} +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; +if(!qbevent)break;evnt(366,150,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; +if(!qbevent)break;evnt(366,152,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,153,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; +if(!qbevent)break;evnt(366,156,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,157,"IDEsettings.bas");}while(r); +} +S_730:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,160,"IDEsettings.bas");if(r)goto S_730;} +S_731:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,161,"IDEsettings.bas");if(r)goto S_731;} +do{ +*__INTEGER_BRACKETHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(366,162,"IDEsettings.bas");}while(r); +}else{ +do{ +*__INTEGER_BRACKETHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(366,164,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,165,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__INTEGER_BRACKETHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(366,168,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,169,"IDEsettings.bas");}while(r); +} +S_741:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,172,"IDEsettings.bas");if(r)goto S_741;} +S_742:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,173,"IDEsettings.bas");if(r)goto S_742;} +do{ +*__INTEGER_KEYWORDHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(366,174,"IDEsettings.bas");}while(r); +}else{ +do{ +*__INTEGER_KEYWORDHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(366,176,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,177,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__INTEGER_KEYWORDHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(366,180,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,181,"IDEsettings.bas");}while(r); +} +S_752:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,184,"IDEsettings.bas");if(r)goto S_752;} +S_753:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,185,"IDEsettings.bas");if(r)goto S_753;} +do{ +*__INTEGER_MULTIHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(366,186,"IDEsettings.bas");}while(r); +}else{ +do{ +*__INTEGER_MULTIHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(366,188,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,189,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__INTEGER_MULTIHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(366,192,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,193,"IDEsettings.bas");}while(r); +} +S_763:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,196,"IDEsettings.bas");if(r)goto S_763;} +S_764:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ +if(qbevent){evnt(366,197,"IDEsettings.bas");if(r)goto S_764;} +do{ +*__BYTE_IGNOREWARNINGS= -1 ; +if(!qbevent)break;evnt(366,198,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IGNOREWARNINGS= 0 ; +if(!qbevent)break;evnt(366,200,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,201,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IGNOREWARNINGS= 0 ; +if(!qbevent)break;evnt(366,204,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,205,"IDEsettings.bas");}while(r); } do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("CustomKeywords$",15),__STRING_VALUE); +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,64,"IDEsettings.bas");}while(r); -S_594:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,65,"IDEsettings.bas");if(r)goto S_594;} +if(!qbevent)break;evnt(366,208,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEBACKUPSIZE=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,209,"IDEsettings.bas");}while(r); +S_776:; +if (((-(*__LONG_IDEBACKUPSIZE< 10 ))|(-(*__LONG_IDEBACKUPSIZE> 2000 )))||new_error){ +if(qbevent){evnt(366,210,"IDEsettings.bas");if(r)goto S_776;} +do{ +*__LONG_IDEBACKUPSIZE= 100 ; +if(!qbevent)break;evnt(366,210,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,210,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,212,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEDEBUGINFO=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,213,"IDEsettings.bas");}while(r); +S_782:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_VALUE, 4 )),qbs_new_txt_len("TRUE",4))))||new_error){ +if(qbevent){evnt(366,214,"IDEsettings.bas");if(r)goto S_782;} +do{ +*__LONG_IDEDEBUGINFO= 1 ; +if(!qbevent)break;evnt(366,214,"IDEsettings.bas");}while(r); +} +S_785:; +if (((-(*__LONG_RESULT== 0 ))|(-(*__LONG_IDEDEBUGINFO!= 1 )))||new_error){ +if(qbevent){evnt(366,215,"IDEsettings.bas");if(r)goto S_785;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("False",5),__STRING_DEBUGINFOINIWARNING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,216,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEDEBUGINFO= 0 ; +if(!qbevent)break;evnt(366,217,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(366,219,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("https://wiki.qb64.org",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,221,"IDEsettings.bas");}while(r); +S_791:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,222,"IDEsettings.bas");if(r)goto S_791;} +do{ +qbs_set(__STRING_WIKIBASEADDRESS,__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,223,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_WIKIBASEADDRESS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,224,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,229,"IDEsettings.bas");}while(r); +S_797:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,230,"IDEsettings.bas");if(r)goto S_797;} +do{ +*__BYTE_MOUSEBUTTONSWAPPED= -1 ; +if(!qbevent)break;evnt(366,231,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,232,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_MOUSEBUTTONSWAPPED= 0 ; +if(!qbevent)break;evnt(366,234,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,235,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,239,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEBASETCPPORT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,240,"IDEsettings.bas");}while(r); +S_806:; +if ((-(*__LONG_IDEBASETCPPORT== 0 ))||new_error){ +if(qbevent){evnt(366,241,"IDEsettings.bas");if(r)goto S_806;} +do{ +*__LONG_IDEBASETCPPORT= 9000 ; +if(!qbevent)break;evnt(366,241,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),qbs_new_txt_len("9000",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,241,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,243,"IDEsettings.bas");}while(r); +S_811:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,244,"IDEsettings.bas");if(r)goto S_811;} +do{ +*__BYTE_WATCHLISTTOCONSOLE= -1 ; +if(!qbevent)break;evnt(366,245,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,246,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_WATCHLISTTOCONSOLE= 0 ; +if(!qbevent)break;evnt(366,248,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,249,"IDEsettings.bas");}while(r); +} +S_818:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,252,"IDEsettings.bas");if(r)goto S_818;} +S_819:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,253,"IDEsettings.bas");if(r)goto S_819;} +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= -1 ; +if(!qbevent)break;evnt(366,254,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(366,256,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,257,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= -1 ; +if(!qbevent)break;evnt(366,260,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,261,"IDEsettings.bas");}while(r); +} +S_829:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,265,"IDEsettings.bas");if(r)goto S_829;} +S_830:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,266,"IDEsettings.bas");if(r)goto S_830;} +do{ +*__BYTE_IDESORTSUBS= -1 ; +if(!qbevent)break;evnt(366,267,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDESORTSUBS= 0 ; +if(!qbevent)break;evnt(366,269,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,270,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDESORTSUBS= 0 ; +if(!qbevent)break;evnt(366,273,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,274,"IDEsettings.bas");}while(r); +} +S_840:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,277,"IDEsettings.bas");if(r)goto S_840;} +S_841:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,278,"IDEsettings.bas");if(r)goto S_841;} +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS= -1 ; +if(!qbevent)break;evnt(366,279,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS= 0 ; +if(!qbevent)break;evnt(366,281,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,282,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS= 0 ; +if(!qbevent)break;evnt(366,285,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,286,"IDEsettings.bas");}while(r); +} +S_851:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,289,"IDEsettings.bas");if(r)goto S_851;} +S_852:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(366,290,"IDEsettings.bas");if(r)goto S_852;} +do{ +*__BYTE_IDESUBSLENGTH= -1 ; +if(!qbevent)break;evnt(366,291,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDESUBSLENGTH= 0 ; +if(!qbevent)break;evnt(366,293,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,294,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDESUBSLENGTH= -1 ; +if(!qbevent)break;evnt(366,297,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,298,"IDEsettings.bas");}while(r); +} +S_862:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,301,"IDEsettings.bas");if(r)goto S_862;} +S_863:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ +if(qbevent){evnt(366,302,"IDEsettings.bas");if(r)goto S_863;} +do{ +*__BYTE_IDE_AUTOPOSITION= -1 ; +if(!qbevent)break;evnt(366,303,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDE_AUTOPOSITION= 0 ; +if(!qbevent)break;evnt(366,305,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,306,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDE_AUTOPOSITION= -1 ; +if(!qbevent)break;evnt(366,309,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,310,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,313,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDENORMALCURSORSTART=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,314,"IDEsettings.bas");}while(r); +S_875:; +if (((-(*__LONG_IDENORMALCURSORSTART< 0 ))|(-(*__LONG_IDENORMALCURSORSTART> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ +if(qbevent){evnt(366,315,"IDEsettings.bas");if(r)goto S_875;} +do{ +*__LONG_IDENORMALCURSORSTART= 6 ; +if(!qbevent)break;evnt(366,316,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),qbs_new_txt_len("6",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,317,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,320,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDENORMALCURSOREND=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,321,"IDEsettings.bas");}while(r); +S_881:; +if (((-(*__LONG_IDENORMALCURSOREND< 0 ))|(-(*__LONG_IDENORMALCURSOREND> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ +if(qbevent){evnt(366,322,"IDEsettings.bas");if(r)goto S_881;} +do{ +*__LONG_IDENORMALCURSOREND= 8 ; +if(!qbevent)break;evnt(366,323,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),qbs_new_txt_len("8",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,324,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,327,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOLAYOUT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,328,"IDEsettings.bas");}while(r); +S_887:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOLAYOUT!= 0 ))))||new_error){ +if(qbevent){evnt(366,329,"IDEsettings.bas");if(r)goto S_887;} +do{ +*__LONG_IDEAUTOLAYOUT= 1 ; +if(!qbevent)break;evnt(366,330,"IDEsettings.bas");}while(r); +}else{ +S_890:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(366,332,"IDEsettings.bas");if(r)goto S_890;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,333,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOLAYOUT= 1 ; +if(!qbevent)break;evnt(366,334,"IDEsettings.bas");}while(r); +}else{ +do{ +*__LONG_IDEAUTOLAYOUT= 0 ; +if(!qbevent)break;evnt(366,336,"IDEsettings.bas");}while(r); +} +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,340,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOINDENT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,341,"IDEsettings.bas");}while(r); +S_899:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOINDENT!= 0 ))))||new_error){ +if(qbevent){evnt(366,342,"IDEsettings.bas");if(r)goto S_899;} +do{ +*__LONG_IDEAUTOINDENT= 1 ; +if(!qbevent)break;evnt(366,343,"IDEsettings.bas");}while(r); +}else{ +S_902:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(366,345,"IDEsettings.bas");if(r)goto S_902;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,346,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOINDENT= 1 ; +if(!qbevent)break;evnt(366,347,"IDEsettings.bas");}while(r); +}else{ +do{ +*__LONG_IDEAUTOINDENT= 0 ; +if(!qbevent)break;evnt(366,349,"IDEsettings.bas");}while(r); +} +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,353,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEINDENTSUBS=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,354,"IDEsettings.bas");}while(r); +S_911:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEINDENTSUBS!= 0 ))))||new_error){ +if(qbevent){evnt(366,355,"IDEsettings.bas");if(r)goto S_911;} +do{ +*__LONG_IDEINDENTSUBS= 1 ; +if(!qbevent)break;evnt(366,356,"IDEsettings.bas");}while(r); +}else{ +S_914:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(366,358,"IDEsettings.bas");if(r)goto S_914;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,359,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEINDENTSUBS= 1 ; +if(!qbevent)break;evnt(366,360,"IDEsettings.bas");}while(r); +}else{ +do{ +*__LONG_IDEINDENTSUBS= 0 ; +if(!qbevent)break;evnt(366,362,"IDEsettings.bas");}while(r); +} +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,366,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOINDENTSIZE=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,367,"IDEsettings.bas");}while(r); +S_923:; +if (((-(*__LONG_IDEAUTOINDENTSIZE< 1 ))|(-(*__LONG_IDEAUTOINDENTSIZE> 64 )))||new_error){ +if(qbevent){evnt(366,368,"IDEsettings.bas");if(r)goto S_923;} +do{ +*__LONG_IDEAUTOINDENTSIZE= 4 ; +if(!qbevent)break;evnt(366,369,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,370,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,373,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,374,"IDEsettings.bas");}while(r); +S_929:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDECUSTOMFONT!= 0 ))))||new_error){ +if(qbevent){evnt(366,375,"IDEsettings.bas");if(r)goto S_929;} +do{ +*__LONG_IDECUSTOMFONT= 1 ; +if(!qbevent)break;evnt(366,376,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,378,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONT= 0 ; +if(!qbevent)break;evnt(366,379,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,382,"IDEsettings.bas");}while(r); +S_936:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4))))||new_error){ +if(qbevent){evnt(366,383,"IDEsettings.bas");if(r)goto S_936;} +do{ +*__BYTE_IDE_USEFONT8= 1 ; +if(!qbevent)break;evnt(366,384,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,386,"IDEsettings.bas");}while(r); +do{ +*__BYTE_IDE_USEFONT8= 0 ; +if(!qbevent)break;evnt(366,387,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,390,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_IDECUSTOMFONTFILE,__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,391,"IDEsettings.bas");}while(r); +S_944:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_RESULT== 0 ))|(qbs_equal(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(366,392,"IDEsettings.bas");if(r)goto S_944;} +do{ +qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,393,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,394,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,397,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONTHEIGHT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,398,"IDEsettings.bas");}while(r); +S_950:; +if (((-(*__LONG_IDECUSTOMFONTHEIGHT< 8 ))|(-(*__LONG_IDECUSTOMFONTHEIGHT> 100 )))||new_error){ +if(qbevent){evnt(366,399,"IDEsettings.bas");if(r)goto S_950;} +do{ +*__LONG_IDECUSTOMFONTHEIGHT= 21 ; +if(!qbevent)break;evnt(366,399,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,399,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,401,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECPINDEX=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,402,"IDEsettings.bas");}while(r); +S_956:; +if (((-(*__LONG_IDECPINDEX< 0 ))|(-(*__LONG_IDECPINDEX> 27 )))||new_error){ +if(qbevent){evnt(366,403,"IDEsettings.bas");if(r)goto S_956;} +do{ +*__LONG_IDECPINDEX= 0 ; +if(!qbevent)break;evnt(366,403,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,403,"IDEsettings.bas");}while(r); +} +S_960:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CustomKeywords$",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,406,"IDEsettings.bas");if(r)goto S_960;} do{ qbs_set(__STRING_TEMPLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,66,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,407,"IDEsettings.bas");}while(r); do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(__STRING_VALUE)),qbs_new_txt_len("@",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,67,"IDEsettings.bas");}while(r); -S_597:; -fornext_value30= 1 ; -fornext_finalvalue30=__STRING_LISTOFCUSTOMKEYWORDS->len; -fornext_step30= 1 ; -if (fornext_step30<0) fornext_step_negative30=1; else fornext_step_negative30=0; -if (new_error) goto fornext_error30; -goto fornext_entrylabel30; +if(!qbevent)break;evnt(366,408,"IDEsettings.bas");}while(r); +S_963:; +fornext_value31= 1 ; +fornext_finalvalue31=__STRING_LISTOFCUSTOMKEYWORDS->len; +fornext_step31= 1 ; +if (fornext_step31<0) fornext_step_negative31=1; else fornext_step_negative31=0; +if (new_error) goto fornext_error31; +goto fornext_entrylabel31; while(1){ -fornext_value30=fornext_step30+(*__LONG_I); -fornext_entrylabel30: -*__LONG_I=fornext_value30; +fornext_value31=fornext_step31+(*__LONG_I); +fornext_entrylabel31: +*__LONG_I=fornext_value31; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative30){ -if (fornext_value30fornext_finalvalue30) break; +if (fornext_value31>fornext_finalvalue31) break; } -fornext_error30:; -if(qbevent){evnt(352,68,"IDEsettings.bas");if(r)goto S_597;} +fornext_error31:; +if(qbevent){evnt(366,409,"IDEsettings.bas");if(r)goto S_963;} do{ *__LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,69,"IDEsettings.bas");}while(r); -S_599:; +if(!qbevent)break;evnt(366,410,"IDEsettings.bas");}while(r); +S_965:; if ((-(*__LONG_CHECKCHAR== 64 ))||new_error){ -if(qbevent){evnt(352,70,"IDEsettings.bas");if(r)goto S_599;} -S_600:; +if(qbevent){evnt(366,411,"IDEsettings.bas");if(r)goto S_965;} +S_966:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ -if(qbevent){evnt(352,71,"IDEsettings.bas");if(r)goto S_600;} +if(qbevent){evnt(366,412,"IDEsettings.bas");if(r)goto S_966;} do{ qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,qbs_new_txt_len("@",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,71,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,412,"IDEsettings.bas");}while(r); } }else{ do{ qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,func_chr(*__LONG_CHECKCHAR))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,73,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,414,"IDEsettings.bas");}while(r); } -fornext_continue_29:; +fornext_continue_30:; } -fornext_exit_29:; +fornext_exit_30:; do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_TEMPLIST); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,76,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,417,"IDEsettings.bas");}while(r); do{ *__LONG_CUSTOMKEYWORDSLENGTH=__STRING_LISTOFCUSTOMKEYWORDS->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,77,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,418,"IDEsettings.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[CUSTOM DICTIONARIES]",22),qbs_new_txt_len("CustomKeywordsSyntax$",21),qbs_new_txt_len("@custom@keywords@separated@by@the@at@sign@",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,79,"IDEsettings.bas");}while(r); +SUB_INISETADDQUOTES(&(pass34= -1 )); +if(!qbevent)break;evnt(366,420,"IDEsettings.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[CUSTOM DICTIONARIES]",22),qbs_new_txt_len("CustomKeywords$",15),qbs_new_txt_len("@",1)); +SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("Instructions1",13),qbs_new_txt_len("Add custom keywords separated by the 'at' sign.",47)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,80,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,421,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("Instructions2",13),qbs_new_txt_len("Useful to colorize constants (eg @true@false@).",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,422,"IDEsettings.bas");}while(r); +do{ +SUB_INISETADDQUOTES(&(pass35= 0 )); +if(!qbevent)break;evnt(366,423,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CustomKeywords$",15),qbs_new_txt_len("@",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,424,"IDEsettings.bas");}while(r); } do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("MetaCommandColor",16),__STRING_VALUE); +SUB_INISETADDQUOTES(&(pass36= -1 )); +if(!qbevent)break;evnt(366,428,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("Instructions1",13),qbs_new_txt_len("Create custom color schemes in the IDE (Options->IDE Colors).",61)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,83,"IDEsettings.bas");}while(r); -S_614:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,84,"IDEsettings.bas");if(r)goto S_614;} +if(!qbevent)break;evnt(366,429,"IDEsettings.bas");}while(r); do{ -*__ULONG_IDEMETACOMMANDCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass33=func__rgb32( 85 , 255 , 85 ))); +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("Instructions2",13),qbs_new_txt_len("Custom color schemes will be stored in this section.",52)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,85,"IDEsettings.bas");}while(r); -}else{ +if(!qbevent)break;evnt(366,430,"IDEsettings.bas");}while(r); do{ -*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32( 85 , 255 , 85 ); -if(!qbevent)break;evnt(352,87,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("MetaCommandColor",16),qbs_new_txt_len("_RGB32(85,255,85)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,88,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("KeywordColor",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,91,"IDEsettings.bas");}while(r); -S_621:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,92,"IDEsettings.bas");if(r)goto S_621;} -do{ -*__ULONG_IDEKEYWORDCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass34=func__rgb32( 147 , 196 , 235 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,93,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDEKEYWORDCOLOR=func__rgb32( 147 , 196 , 235 ); -if(!qbevent)break;evnt(352,95,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("KeywordColor",12),qbs_new_txt_len("_RGB32(147,196,235)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,96,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("HighlightColor",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,99,"IDEsettings.bas");}while(r); -S_628:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,100,"IDEsettings.bas");if(r)goto S_628;} -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass35=func__rgb32( 0 , 147 , 177 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,101,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32( 0 , 147 , 177 ); -if(!qbevent)break;evnt(352,103,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("HighlightColor",14),qbs_new_txt_len("_RGB32(0,147,177)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,104,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("NumbersColor",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,107,"IDEsettings.bas");}while(r); -S_635:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,108,"IDEsettings.bas");if(r)goto S_635;} -do{ -*__ULONG_IDENUMBERSCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass36=func__rgb32( 245 , 128 , 177 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,109,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDENUMBERSCOLOR=func__rgb32( 245 , 128 , 177 ); -if(!qbevent)break;evnt(352,111,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("NumbersColor",12),qbs_new_txt_len("_RGB32(245,128,177)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,112,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("QuoteColor",10),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,115,"IDEsettings.bas");}while(r); -S_642:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,116,"IDEsettings.bas");if(r)goto S_642;} -do{ -*__ULONG_IDEQUOTECOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass37=func__rgb32( 255 , 255 , 85 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,117,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDEQUOTECOLOR=func__rgb32( 255 , 255 , 85 ); -if(!qbevent)break;evnt(352,119,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("QuoteColor",10),qbs_new_txt_len("_RGB32(255,255,85)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,120,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("TextColor",9),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,123,"IDEsettings.bas");}while(r); -S_649:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,124,"IDEsettings.bas");if(r)goto S_649;} -do{ -*__ULONG_IDETEXTCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass38=func__rgb32( 226 , 226 , 226 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,125,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDETEXTCOLOR=func__rgb32( 226 , 226 , 226 ); -if(!qbevent)break;evnt(352,127,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("TextColor",9),qbs_new_txt_len("_RGB32(226,226,226)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,128,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BackgroundColor",15),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,131,"IDEsettings.bas");}while(r); -S_656:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,132,"IDEsettings.bas");if(r)goto S_656;} -do{ -*__ULONG_IDEBACKGROUNDCOLOR=FUNC_VRGBS(__STRING_VALUE,&(pass39=func__rgb32( 0 , 0 , 170 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,133,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32( 0 , 0 , 170 ); -if(!qbevent)break;evnt(352,135,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("BackgroundColor",15),qbs_new_txt_len("_RGB32(0,0,170)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,136,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BackgroundColor2",16),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,139,"IDEsettings.bas");}while(r); -S_663:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,140,"IDEsettings.bas");if(r)goto S_663;} -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=FUNC_VRGBS(__STRING_VALUE,&(pass40=func__rgb32( 0 , 108 , 177 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,141,"IDEsettings.bas");}while(r); -}else{ -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32( 0 , 108 , 177 ); -if(!qbevent)break;evnt(352,143,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("BackgroundColor2",16),qbs_new_txt_len("_RGB32(0,108,177)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,144,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("SwapMouseButton",15),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,147,"IDEsettings.bas");}while(r); -S_670:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,148,"IDEsettings.bas");if(r)goto S_670;} -do{ -*__BYTE_MOUSEBUTTONSWAPPED= -1 ; -if(!qbevent)break;evnt(352,149,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,150,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_MOUSEBUTTONSWAPPED= 0 ; -if(!qbevent)break;evnt(352,152,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,153,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("PasteCursorAtEnd",16),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,156,"IDEsettings.bas");}while(r); -S_678:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,157,"IDEsettings.bas");if(r)goto S_678;} -S_679:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,158,"IDEsettings.bas");if(r)goto S_679;} -do{ -*__BYTE_PASTECURSORATEND= -1 ; -if(!qbevent)break;evnt(352,159,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_PASTECURSORATEND= 0 ; -if(!qbevent)break;evnt(352,161,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,162,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,165,"IDEsettings.bas");}while(r); -do{ -*__BYTE_PASTECURSORATEND= -1 ; -if(!qbevent)break;evnt(352,166,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("SaveExeWithSource",17),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,169,"IDEsettings.bas");}while(r); -S_690:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,170,"IDEsettings.bas");if(r)goto S_690;} -S_691:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,171,"IDEsettings.bas");if(r)goto S_691;} -do{ -*__BYTE_SAVEEXEWITHSOURCE= -1 ; -if(!qbevent)break;evnt(352,172,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SAVEEXEWITHSOURCE= 0 ; -if(!qbevent)break;evnt(352,174,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,175,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,178,"IDEsettings.bas");}while(r); -do{ -*__BYTE_SAVEEXEWITHSOURCE= 0 ; -if(!qbevent)break;evnt(352,179,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("EnableQuickNav",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,182,"IDEsettings.bas");}while(r); -S_702:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,183,"IDEsettings.bas");if(r)goto S_702;} -S_703:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,184,"IDEsettings.bas");if(r)goto S_703;} -do{ -*__BYTE_ENABLEQUICKNAV= -1 ; -if(!qbevent)break;evnt(352,185,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_ENABLEQUICKNAV= 0 ; -if(!qbevent)break;evnt(352,187,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,188,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,191,"IDEsettings.bas");}while(r); -do{ -*__BYTE_ENABLEQUICKNAV= -1 ; -if(!qbevent)break;evnt(352,192,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_SortSUBs",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,195,"IDEsettings.bas");}while(r); -S_714:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,196,"IDEsettings.bas");if(r)goto S_714;} -S_715:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,197,"IDEsettings.bas");if(r)goto S_715;} -do{ -*__BYTE_IDESORTSUBS= -1 ; -if(!qbevent)break;evnt(352,198,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDESORTSUBS= 0 ; -if(!qbevent)break;evnt(352,200,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,201,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,204,"IDEsettings.bas");}while(r); -do{ -*__BYTE_IDESORTSUBS= 0 ; -if(!qbevent)break;evnt(352,205,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowErrorsImmediately",21),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,208,"IDEsettings.bas");}while(r); -S_726:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,209,"IDEsettings.bas");if(r)goto S_726;} -S_727:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,210,"IDEsettings.bas");if(r)goto S_727;} -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; -if(!qbevent)break;evnt(352,211,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY= 0 ; -if(!qbevent)break;evnt(352,213,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,214,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,217,"IDEsettings.bas");}while(r); -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; -if(!qbevent)break;evnt(352,218,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowLineNumbers",15),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,221,"IDEsettings.bas");}while(r); -S_738:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,222,"IDEsettings.bas");if(r)goto S_738;} -S_739:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,223,"IDEsettings.bas");if(r)goto S_739;} -do{ -*__BYTE_SHOWLINENUMBERS= -1 ; -if(!qbevent)break;evnt(352,224,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SHOWLINENUMBERS= 0 ; -if(!qbevent)break;evnt(352,226,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,227,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,230,"IDEsettings.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERS= -1 ; -if(!qbevent)break;evnt(352,231,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowLineNumbersSeparator",24),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,234,"IDEsettings.bas");}while(r); -S_750:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,235,"IDEsettings.bas");if(r)goto S_750;} -S_751:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,236,"IDEsettings.bas");if(r)goto S_751;} -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; -if(!qbevent)break;evnt(352,237,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR= 0 ; -if(!qbevent)break;evnt(352,239,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,240,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,243,"IDEsettings.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; -if(!qbevent)break;evnt(352,244,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("ShowLineNumbersUseBG",20),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,247,"IDEsettings.bas");}while(r); -S_762:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,248,"IDEsettings.bas");if(r)goto S_762;} -S_763:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,249,"IDEsettings.bas");if(r)goto S_763;} -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; -if(!qbevent)break;evnt(352,250,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; -if(!qbevent)break;evnt(352,252,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,253,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,256,"IDEsettings.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; -if(!qbevent)break;evnt(352,257,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BracketHighlight",16),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,260,"IDEsettings.bas");}while(r); -S_774:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,261,"IDEsettings.bas");if(r)goto S_774;} -S_775:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,262,"IDEsettings.bas");if(r)goto S_775;} -do{ -*__INTEGER_BRACKETHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(352,263,"IDEsettings.bas");}while(r); -}else{ -do{ -*__INTEGER_BRACKETHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(352,265,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,266,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,269,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_BRACKETHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(352,270,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("KeywordHighlight",16),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,273,"IDEsettings.bas");}while(r); -S_786:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,274,"IDEsettings.bas");if(r)goto S_786;} -S_787:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,275,"IDEsettings.bas");if(r)goto S_787;} -do{ -*__INTEGER_KEYWORDHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(352,276,"IDEsettings.bas");}while(r); -}else{ -do{ -*__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(352,278,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,279,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,282,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(352,283,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("MultiHighlight",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,286,"IDEsettings.bas");}while(r); -S_798:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,287,"IDEsettings.bas");if(r)goto S_798;} -S_799:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_VALUE,qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(352,288,"IDEsettings.bas");if(r)goto S_799;} -do{ -*__INTEGER_MULTIHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(352,289,"IDEsettings.bas");}while(r); -}else{ -do{ -*__INTEGER_MULTIHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(352,291,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,292,"IDEsettings.bas");}while(r); -} -}else{ -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,295,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_MULTIHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(352,296,"IDEsettings.bas");}while(r); -} -S_809:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(352,299,"IDEsettings.bas");if(r)goto S_809;} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_AutoPosition",16),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,300,"IDEsettings.bas");}while(r); -S_811:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,301,"IDEsettings.bas");if(r)goto S_811;} -S_812:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ -if(qbevent){evnt(352,302,"IDEsettings.bas");if(r)goto S_812;} -do{ -*__BYTE_IDE_AUTOPOSITION= -1 ; -if(!qbevent)break;evnt(352,303,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDE_AUTOPOSITION= 0 ; -if(!qbevent)break;evnt(352,305,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,306,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDE_AUTOPOSITION= -1 ; -if(!qbevent)break;evnt(352,309,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,310,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_TopPosition",15),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,313,"IDEsettings.bas");}while(r); -S_823:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,314,"IDEsettings.bas");if(r)goto S_823;} +SUB_INISETADDQUOTES(&(pass37= 0 )); +if(!qbevent)break;evnt(366,431,"IDEsettings.bas");}while(r); +S_986:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_TopPosition",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,434,"IDEsettings.bas");if(r)goto S_986;} do{ *__INTEGER_IDE_TOPPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,315,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,435,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; -if(!qbevent)break;evnt(352,317,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,437,"IDEsettings.bas");}while(r); do{ *__INTEGER_IDE_TOPPOSITION= 0 ; -if(!qbevent)break;evnt(352,318,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,438,"IDEsettings.bas");}while(r); } -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_LeftPosition",16),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,321,"IDEsettings.bas");}while(r); -S_830:; -if ((*__LONG_RESULT)||new_error){ -if(qbevent){evnt(352,322,"IDEsettings.bas");if(r)goto S_830;} +S_992:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_LeftPosition",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,441,"IDEsettings.bas");if(r)goto S_992;} do{ *__INTEGER_IDE_LEFTPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,323,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,442,"IDEsettings.bas");}while(r); }else{ do{ *__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; -if(!qbevent)break;evnt(352,325,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,444,"IDEsettings.bas");}while(r); do{ *__INTEGER_IDE_LEFTPOSITION= 0 ; -if(!qbevent)break;evnt(352,326,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDE_AUTOPOSITION= 0 ; -if(!qbevent)break;evnt(352,337,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_IDE_TOPPOSITION= 0 ; -if(!qbevent)break;evnt(352,338,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_IDE_LEFTPOSITION= 0 ; -if(!qbevent)break;evnt(352,339,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,445,"IDEsettings.bas");}while(r); } do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_NormalCursorStart",21),__STRING_VALUE); +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,342,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDENORMALCURSORSTART=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,343,"IDEsettings.bas");}while(r); -S_843:; -if (((-(*__LONG_IDENORMALCURSORSTART< 0 ))|(-(*__LONG_IDENORMALCURSORSTART> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ -if(qbevent){evnt(352,344,"IDEsettings.bas");if(r)goto S_843;} -do{ -*__LONG_IDENORMALCURSORSTART= 8 ; -if(!qbevent)break;evnt(352,344,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_NormalCursorStart",21),qbs_new_txt_len("8",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,344,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_NormalCursorEnd",19),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,346,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDENORMALCURSOREND=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,347,"IDEsettings.bas");}while(r); -S_849:; -if (((-(*__LONG_IDENORMALCURSOREND< 0 ))|(-(*__LONG_IDENORMALCURSOREND> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ -if(qbevent){evnt(352,348,"IDEsettings.bas");if(r)goto S_849;} -do{ -*__LONG_IDENORMALCURSOREND= 8 ; -if(!qbevent)break;evnt(352,348,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_NormalCursorEnd",19),qbs_new_txt_len("8",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,348,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_Width",9),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,350,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,448,"IDEsettings.bas");}while(r); do{ *__LONG_IDEWX=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,351,"IDEsettings.bas");}while(r); -S_855:; +if(!qbevent)break;evnt(366,449,"IDEsettings.bas");}while(r); +S_1000:; if (((-(*__LONG_IDEWX< 80 ))|(-(*__LONG_IDEWX> 1000 )))||new_error){ -if(qbevent){evnt(352,352,"IDEsettings.bas");if(r)goto S_855;} +if(qbevent){evnt(366,450,"IDEsettings.bas");if(r)goto S_1000;} do{ *__LONG_IDEWX= 80 ; -if(!qbevent)break;evnt(352,352,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,450,"IDEsettings.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,352,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,450,"IDEsettings.bas");}while(r); } do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_Height",10),__STRING_VALUE); +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),__STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,354,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,452,"IDEsettings.bas");}while(r); do{ *__LONG_IDEWY=qbr(func_val(__STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,355,"IDEsettings.bas");}while(r); -S_861:; +if(!qbevent)break;evnt(366,453,"IDEsettings.bas");}while(r); +S_1006:; if (((-(*__LONG_IDEWY< 25 ))|(-(*__LONG_IDEWY> 1000 )))||new_error){ -if(qbevent){evnt(352,356,"IDEsettings.bas");if(r)goto S_861;} +if(qbevent){evnt(366,454,"IDEsettings.bas");if(r)goto S_1006;} do{ *__LONG_IDEWY= 25 ; -if(!qbevent)break;evnt(352,356,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,454,"IDEsettings.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,356,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,454,"IDEsettings.bas");}while(r); } do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_AutoFormat",14),__STRING_VALUE); +*__ULONG_IDETEXTCOLOR=func__rgb32( 216 , 216 , 216 ); +if(!qbevent)break;evnt(366,458,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEKEYWORDCOLOR=func__rgb32( 69 , 118 , 147 ); +if(!qbevent)break;evnt(366,459,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDENUMBERSCOLOR=func__rgb32( 216 , 98 , 78 ); +if(!qbevent)break;evnt(366,460,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEQUOTECOLOR=func__rgb32( 255 , 167 , 0 ); +if(!qbevent)break;evnt(366,461,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32( 85 , 206 , 85 ); +if(!qbevent)break;evnt(366,462,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDECOMMENTCOLOR=func__rgb32( 98 , 98 , 98 ); +if(!qbevent)break;evnt(366,463,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDECHROMACOLOR=func__rgb32( 170 , 170 , 170 ); +if(!qbevent)break;evnt(366,464,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32( 0 , 0 , 39 ); +if(!qbevent)break;evnt(366,465,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32( 0 , 49 , 78 ); +if(!qbevent)break;evnt(366,466,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32( 0 , 88 , 108 ); +if(!qbevent)break;evnt(366,467,"IDEsettings.bas");}while(r); +S_1020:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),__STRING_VALUE)== 0 )))||new_error){ +if(qbevent){evnt(366,470,"IDEsettings.bas");if(r)goto S_1020;} +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),qbs_new_txt_len("1",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,358,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,471,"IDEsettings.bas");}while(r); +} +S_1023:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("TextColor",9),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,474,"IDEsettings.bas");if(r)goto S_1023;} do{ -*__LONG_IDEAUTOLAYOUT=qbr(func_val(__STRING_VALUE)); +*__ULONG_IDETEXTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDETEXTCOLOR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,359,"IDEsettings.bas");}while(r); -S_867:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOLAYOUT!= 0 ))))||new_error){ -if(qbevent){evnt(352,360,"IDEsettings.bas");if(r)goto S_867;} -do{ -*__LONG_IDEAUTOLAYOUT= 1 ; -if(!qbevent)break;evnt(352,361,"IDEsettings.bas");}while(r); -}else{ -S_870:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(352,363,"IDEsettings.bas");if(r)goto S_870;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,364,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOLAYOUT= 1 ; -if(!qbevent)break;evnt(352,365,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,475,"IDEsettings.bas");}while(r); }else{ do{ -*__LONG_IDEAUTOLAYOUT= 0 ; -if(!qbevent)break;evnt(352,367,"IDEsettings.bas");}while(r); -} +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("TextColor",9),FUNC_RGBS(__ULONG_IDETEXTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,476,"IDEsettings.bas");}while(r); } +S_1028:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("KeywordColor",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,479,"IDEsettings.bas");if(r)goto S_1028;} do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_AutoIndent",14),__STRING_VALUE); +*__ULONG_IDEKEYWORDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEKEYWORDCOLOR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,371,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOINDENT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,372,"IDEsettings.bas");}while(r); -S_879:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOINDENT!= 0 ))))||new_error){ -if(qbevent){evnt(352,373,"IDEsettings.bas");if(r)goto S_879;} -do{ -*__LONG_IDEAUTOINDENT= 1 ; -if(!qbevent)break;evnt(352,374,"IDEsettings.bas");}while(r); -}else{ -S_882:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(352,376,"IDEsettings.bas");if(r)goto S_882;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,377,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOINDENT= 1 ; -if(!qbevent)break;evnt(352,378,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,480,"IDEsettings.bas");}while(r); }else{ do{ -*__LONG_IDEAUTOINDENT= 0 ; -if(!qbevent)break;evnt(352,380,"IDEsettings.bas");}while(r); -} +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("KeywordColor",12),FUNC_RGBS(__ULONG_IDEKEYWORDCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,481,"IDEsettings.bas");}while(r); } +S_1033:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("NumbersColor",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,484,"IDEsettings.bas");if(r)goto S_1033;} do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_IndentSUBs",14),__STRING_VALUE); +*__ULONG_IDENUMBERSCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDENUMBERSCOLOR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,384,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEINDENTSUBS=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,385,"IDEsettings.bas");}while(r); -S_891:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEINDENTSUBS!= 0 ))))||new_error){ -if(qbevent){evnt(352,386,"IDEsettings.bas");if(r)goto S_891;} -do{ -*__LONG_IDEINDENTSUBS= 1 ; -if(!qbevent)break;evnt(352,387,"IDEsettings.bas");}while(r); -}else{ -S_894:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(352,389,"IDEsettings.bas");if(r)goto S_894;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,390,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEINDENTSUBS= 1 ; -if(!qbevent)break;evnt(352,391,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,485,"IDEsettings.bas");}while(r); }else{ do{ -*__LONG_IDEINDENTSUBS= 0 ; -if(!qbevent)break;evnt(352,393,"IDEsettings.bas");}while(r); -} +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("NumbersColor",12),FUNC_RGBS(__ULONG_IDENUMBERSCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,486,"IDEsettings.bas");}while(r); } +S_1038:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("QuoteColor",10),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,489,"IDEsettings.bas");if(r)goto S_1038;} do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_IndentSize",14),__STRING_VALUE); +*__ULONG_IDEQUOTECOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEQUOTECOLOR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,397,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOINDENTSIZE=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,398,"IDEsettings.bas");}while(r); -S_903:; -if (((-(*__LONG_IDEAUTOINDENTSIZE< 1 ))|(-(*__LONG_IDEAUTOINDENTSIZE> 64 )))||new_error){ -if(qbevent){evnt(352,399,"IDEsettings.bas");if(r)goto S_903;} -do{ -*__LONG_IDEAUTOINDENTSIZE= 4 ; -if(!qbevent)break;evnt(352,400,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,401,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CustomFont",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,404,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,405,"IDEsettings.bas");}while(r); -S_909:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDECUSTOMFONT!= 0 ))))||new_error){ -if(qbevent){evnt(352,406,"IDEsettings.bas");if(r)goto S_909;} -do{ -*__LONG_IDECUSTOMFONT= 1 ; -if(!qbevent)break;evnt(352,407,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,490,"IDEsettings.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("QuoteColor",10),FUNC_RGBS(__ULONG_IDEQUOTECOLOR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,409,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONT= 0 ; -if(!qbevent)break;evnt(352,410,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,491,"IDEsettings.bas");}while(r); } +S_1043:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("CommentColor",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,494,"IDEsettings.bas");if(r)goto S_1043;} do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CustomFont$",15),__STRING_VALUE); +*__ULONG_IDECOMMENTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDECOMMENTCOLOR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,413,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,414,"IDEsettings.bas");}while(r); -S_917:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_RESULT== 0 ))|(qbs_equal(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(352,415,"IDEsettings.bas");if(r)goto S_917;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont$",15),qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,416,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,417,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CustomFontSize",18),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,420,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONTHEIGHT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,421,"IDEsettings.bas");}while(r); -S_923:; -if (((-(*__LONG_IDECUSTOMFONTHEIGHT< 8 ))|(-(*__LONG_IDECUSTOMFONTHEIGHT> 100 )))||new_error){ -if(qbevent){evnt(352,422,"IDEsettings.bas");if(r)goto S_923;} -do{ -*__LONG_IDECUSTOMFONTHEIGHT= 21 ; -if(!qbevent)break;evnt(352,422,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,422,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("IDE_CodePage",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,424,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECPINDEX=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,425,"IDEsettings.bas");}while(r); -S_929:; -if (((-(*__LONG_IDECPINDEX< 0 ))|(-(*__LONG_IDECPINDEX> 27 )))||new_error){ -if(qbevent){evnt(352,426,"IDEsettings.bas");if(r)goto S_929;} -do{ -*__LONG_IDECPINDEX= 0 ; -if(!qbevent)break;evnt(352,426,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,426,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("BackupSize",10),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,428,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEBACKUPSIZE=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,429,"IDEsettings.bas");}while(r); -S_935:; -if (((-(*__LONG_IDEBACKUPSIZE< 10 ))|(-(*__LONG_IDEBACKUPSIZE> 2000 )))||new_error){ -if(qbevent){evnt(352,430,"IDEsettings.bas");if(r)goto S_935;} -do{ -*__LONG_IDEBACKUPSIZE= 100 ; -if(!qbevent)break;evnt(352,430,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,430,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("DeBugInfo",9),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,432,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEDEBUGINFO=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,433,"IDEsettings.bas");}while(r); -S_941:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_VALUE, 4 )),qbs_new_txt_len("TRUE",4))))||new_error){ -if(qbevent){evnt(352,434,"IDEsettings.bas");if(r)goto S_941;} -do{ -*__LONG_IDEDEBUGINFO= 1 ; -if(!qbevent)break;evnt(352,434,"IDEsettings.bas");}while(r); -} -S_944:; -if (((-(*__LONG_RESULT== 0 ))|(-(*__LONG_IDEDEBUGINFO!= 1 )))||new_error){ -if(qbevent){evnt(352,435,"IDEsettings.bas");if(r)goto S_944;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,436,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEDEBUGINFO= 0 ; -if(!qbevent)break;evnt(352,437,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(352,439,"IDEsettings.bas");}while(r); -do{ -goto LABEL_SKIPCHECKCONFIGFILEEXISTS; -if(!qbevent)break;evnt(352,441,"IDEsettings.bas");}while(r); -LABEL_CHECKCONFIGFILEEXISTS:; -if(qbevent){evnt(352,442,"IDEsettings.bas");r=0;} -S_950:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_CONFIGFILE)== 0 )))||new_error){ -if(qbevent){evnt(352,443,"IDEsettings.bas");if(r)goto S_950;} -S_951:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.txt",19))))||new_error){ -if(qbevent){evnt(352,445,"IDEsettings.bas");if(r)goto S_951;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[CONFIG VERSION]",17),qbs_new_txt_len("ConfigVersion",13),qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,446,"IDEsettings.bas");}while(r); -S_953:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(352,447,"IDEsettings.bas");if(r)goto S_953;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("AllowIndependentSettings",24),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,447,"IDEsettings.bas");}while(r); -} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,448,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,449,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("SchemeID",8),qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,450,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("BackgroundColor",15),qbs_new_txt_len("_RGB32(0,0,170)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,451,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("CommentColor",12),qbs_new_txt_len("_RGB32(85,255,255)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,452,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("MetaCommandColor",16),qbs_new_txt_len("_RGB32(85,255,85)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,453,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("QuoteColor",10),qbs_new_txt_len("_RGB32(255,255,85)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,454,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("TextColor",9),qbs_new_txt_len("_RGB32(255,255,255)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,455,"IDEsettings.bas");}while(r); -S_964:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(352,456,"IDEsettings.bas");if(r)goto S_964;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,457,"IDEsettings.bas");}while(r); -} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,459,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,460,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,461,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,462,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,463,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,464,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont$",15),qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,465,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,466,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,467,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,468,"IDEsettings.bas");}while(r); +if(!qbevent)break;evnt(366,495,"IDEsettings.bas");}while(r); }else{ do{ -*__LONG_F=func_freefile(); -if(!qbevent)break;evnt(352,471,"IDEsettings.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal/config.txt",19), 2 ,NULL,NULL,*__LONG_F,NULL,0); +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("CommentColor",12),FUNC_RGBS(__ULONG_IDECOMMENTCOLOR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,472,"IDEsettings.bas");}while(r); -do{ -*__LONG_L=func_lof(*__LONG_F); -if(!qbevent)break;evnt(352,473,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_TEMP,func_space(*__LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,473,"IDEsettings.bas");}while(r); -do{ -sub_get2(*__LONG_F, 1 ,__STRING_TEMP,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,474,"IDEsettings.bas");}while(r); -do{ -sub_close(*__LONG_F,1); -if(!qbevent)break;evnt(352,475,"IDEsettings.bas");}while(r); -do{ -sub_open(__STRING_CONFIGFILE, 2 ,NULL,NULL,*__LONG_F,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,476,"IDEsettings.bas");}while(r); -do{ -sub_put2(*__LONG_F, 1 ,byte_element((uint64)__STRING_TEMP->chr,__STRING_TEMP->len,byte_element_41),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(352,477,"IDEsettings.bas");}while(r); -do{ -sub_close(*__LONG_F,1); -if(!qbevent)break;evnt(352,478,"IDEsettings.bas");}while(r); -} +if(!qbevent)break;evnt(366,496,"IDEsettings.bas");}while(r); } +S_1048:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ChromaColor",11),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,499,"IDEsettings.bas");if(r)goto S_1048;} do{ -#include "ret0.txt" -if(!qbevent)break;evnt(352,481,"IDEsettings.bas");}while(r); -LABEL_SKIPCHECKCONFIGFILEEXISTS:; -if(qbevent){evnt(352,482,"IDEsettings.bas");r=0;} +*__ULONG_IDECHROMACOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDECHROMACOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,500,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ChromaColor",11),FUNC_RGBS(__ULONG_IDECHROMACOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,501,"IDEsettings.bas");}while(r); +} +S_1053:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("MetaCommandColor",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,504,"IDEsettings.bas");if(r)goto S_1053;} +do{ +*__ULONG_IDEMETACOMMANDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEMETACOMMANDCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,505,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("MetaCommandColor",16),FUNC_RGBS(__ULONG_IDEMETACOMMANDCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,506,"IDEsettings.bas");}while(r); +} +S_1058:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("HighlightColor",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,509,"IDEsettings.bas");if(r)goto S_1058;} +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBRACKETHIGHLIGHTCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,510,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("HighlightColor",14),FUNC_RGBS(__ULONG_IDEBRACKETHIGHLIGHTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,511,"IDEsettings.bas");}while(r); +} +S_1063:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,514,"IDEsettings.bas");if(r)goto S_1063;} +do{ +*__ULONG_IDEBACKGROUNDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBACKGROUNDCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,515,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor",15),FUNC_RGBS(__ULONG_IDEBACKGROUNDCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,516,"IDEsettings.bas");}while(r); +} +S_1068:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor2",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(366,519,"IDEsettings.bas");if(r)goto S_1068;} +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBACKGROUNDCOLOR2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,520,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor2",16),FUNC_RGBS(__ULONG_IDEBACKGROUNDCOLOR2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(366,521,"IDEsettings.bas");}while(r); } do{ qbs_set(__STRING_CMDLINEFILE,FUNC_PARSECMDLINEARGS()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(354);}while(r); -S_992:; +if(!qbevent)break;evnt(368);}while(r); +S_1074:; if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(356);if(r)goto S_992;} +if(qbevent){evnt(370);if(r)goto S_1074;} do{ sub__dest(func__console()); -if(!qbevent)break;evnt(357);}while(r); +if(!qbevent)break;evnt(371);}while(r); }else{ do{ sub__console( 2 ); -if(!qbevent)break;evnt(359);}while(r); +if(!qbevent)break;evnt(373);}while(r); do{ sub__screenshow(); -if(!qbevent)break;evnt(360);}while(r); +if(!qbevent)break;evnt(374);}while(r); do{ sub__icon(NULL,NULL,0); -if(!qbevent)break;evnt(361);}while(r); +if(!qbevent)break;evnt(375);}while(r); } do{ -if(!qbevent)break;evnt(418);}while(r); +if(!qbevent)break;evnt(432);}while(r); do{ -if(!qbevent)break;evnt(419);}while(r); +if(!qbevent)break;evnt(433);}while(r); do{ -if(!qbevent)break;evnt(420);}while(r); +if(!qbevent)break;evnt(434);}while(r); do{ -if(!qbevent)break;evnt(421);}while(r); +if(!qbevent)break;evnt(435);}while(r); do{ -if(!qbevent)break;evnt(422);}while(r); +if(!qbevent)break;evnt(436);}while(r); do{ -if(!qbevent)break;evnt(423);}while(r); +if(!qbevent)break;evnt(437);}while(r); do{ -if(!qbevent)break;evnt(424);}while(r); +if(!qbevent)break;evnt(438);}while(r); do{ -if(!qbevent)break;evnt(425);}while(r); +if(!qbevent)break;evnt(439);}while(r); do{ -if(!qbevent)break;evnt(426);}while(r); +if(!qbevent)break;evnt(440);}while(r); do{ if (__ARRAY_INTEGER_HASH1CHAR[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_HASH1CHAR[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_HASH1CHAR[4]= 0 ; __ARRAY_INTEGER_HASH1CHAR[5]=( 255 )-__ARRAY_INTEGER_HASH1CHAR[4]+1; @@ -4176,14 +4343,14 @@ if (!__ARRAY_INTEGER_HASH1CHAR[0]) error(257); __ARRAY_INTEGER_HASH1CHAR[2]|=1; } } -if(!qbevent)break;evnt(428);}while(r); +if(!qbevent)break;evnt(442);}while(r); do{ if (__ARRAY_INTEGER_HASH2CHAR[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_HASH2CHAR[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_HASH2CHAR[4]= 0 ; __ARRAY_INTEGER_HASH2CHAR[5]=( 65535 )-__ARRAY_INTEGER_HASH2CHAR[4]+1; @@ -4198,138 +4365,138 @@ if (!__ARRAY_INTEGER_HASH2CHAR[0]) error(257); __ARRAY_INTEGER_HASH2CHAR[2]|=1; } } -if(!qbevent)break;evnt(429);}while(r); -S_1010:; -fornext_value43= 1 ; -fornext_finalvalue43= 26 ; +if(!qbevent)break;evnt(443);}while(r); +S_1092:; +fornext_value39= 1 ; +fornext_finalvalue39= 26 ; +fornext_step39= 1 ; +if (fornext_step39<0) fornext_step_negative39=1; else fornext_step_negative39=0; +if (new_error) goto fornext_error39; +goto fornext_entrylabel39; +while(1){ +fornext_value39=fornext_step39+(*__LONG_X); +fornext_entrylabel39: +*__LONG_X=fornext_value39; +if (fornext_step_negative39){ +if (fornext_value39fornext_finalvalue39) break; +} +fornext_error39:; +if(qbevent){evnt(444);if(r)goto S_1092;} +do{ +tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; +if(!qbevent)break;evnt(445);}while(r); +do{ +tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; +if(!qbevent)break;evnt(446);}while(r); +fornext_continue_38:; +} +fornext_exit_38:; +do{ +tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ; +if(!qbevent)break;evnt(448);}while(r); +do{ +tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ; +if(!qbevent)break;evnt(449);}while(r); +do{ +tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ; +if(!qbevent)break;evnt(450);}while(r); +do{ +tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ; +if(!qbevent)break;evnt(451);}while(r); +do{ +tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ; +if(!qbevent)break;evnt(452);}while(r); +do{ +tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ; +if(!qbevent)break;evnt(453);}while(r); +do{ +tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ; +if(!qbevent)break;evnt(454);}while(r); +do{ +tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ; +if(!qbevent)break;evnt(455);}while(r); +do{ +tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ; +if(!qbevent)break;evnt(456);}while(r); +do{ +tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ; +if(!qbevent)break;evnt(457);}while(r); +do{ +tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ; +if(!qbevent)break;evnt(458);}while(r); +S_1107:; +fornext_value41= 0 ; +fornext_finalvalue41= 255 ; +fornext_step41= 1 ; +if (fornext_step41<0) fornext_step_negative41=1; else fornext_step_negative41=0; +if (new_error) goto fornext_error41; +goto fornext_entrylabel41; +while(1){ +fornext_value41=fornext_step41+(*__LONG_C1); +fornext_entrylabel41: +*__LONG_C1=fornext_value41; +if (fornext_step_negative41){ +if (fornext_value41fornext_finalvalue41) break; +} +fornext_error41:; +if(qbevent){evnt(459);if(r)goto S_1107;} +S_1108:; +fornext_value43= 0 ; +fornext_finalvalue43= 255 ; fornext_step43= 1 ; if (fornext_step43<0) fornext_step_negative43=1; else fornext_step_negative43=0; if (new_error) goto fornext_error43; goto fornext_entrylabel43; while(1){ -fornext_value43=fornext_step43+(*__LONG_X); +fornext_value43=fornext_step43+(*__LONG_C2); fornext_entrylabel43: -*__LONG_X=fornext_value43; +*__LONG_C2=fornext_value43; if (fornext_step_negative43){ if (fornext_value43fornext_finalvalue43) break; } fornext_error43:; -if(qbevent){evnt(430);if(r)goto S_1010;} -do{ -tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; -if(!qbevent)break;evnt(431);}while(r); -do{ -tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; -if(!qbevent)break;evnt(432);}while(r); -fornext_continue_42:; -} -fornext_exit_42:; -do{ -tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ; -if(!qbevent)break;evnt(434);}while(r); -do{ -tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ; -if(!qbevent)break;evnt(435);}while(r); -do{ -tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ; -if(!qbevent)break;evnt(436);}while(r); -do{ -tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ; -if(!qbevent)break;evnt(437);}while(r); -do{ -tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ; -if(!qbevent)break;evnt(438);}while(r); -do{ -tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ; -if(!qbevent)break;evnt(439);}while(r); -do{ -tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ; -if(!qbevent)break;evnt(440);}while(r); -do{ -tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ; -if(!qbevent)break;evnt(441);}while(r); -do{ -tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ; -if(!qbevent)break;evnt(442);}while(r); -do{ -tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ; -if(!qbevent)break;evnt(443);}while(r); -do{ -tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ; -if(!qbevent)break;evnt(444);}while(r); -S_1025:; -fornext_value45= 0 ; -fornext_finalvalue45= 255 ; -fornext_step45= 1 ; -if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0; -if (new_error) goto fornext_error45; -goto fornext_entrylabel45; -while(1){ -fornext_value45=fornext_step45+(*__LONG_C1); -fornext_entrylabel45: -*__LONG_C1=fornext_value45; -if (fornext_step_negative45){ -if (fornext_value45fornext_finalvalue45) break; -} -fornext_error45:; -if(qbevent){evnt(445);if(r)goto S_1025;} -S_1026:; -fornext_value47= 0 ; -fornext_finalvalue47= 255 ; -fornext_step47= 1 ; -if (fornext_step47<0) fornext_step_negative47=1; else fornext_step_negative47=0; -if (new_error) goto fornext_error47; -goto fornext_entrylabel47; -while(1){ -fornext_value47=fornext_step47+(*__LONG_C2); -fornext_entrylabel47: -*__LONG_C2=fornext_value47; -if (fornext_step_negative47){ -if (fornext_value47fornext_finalvalue47) break; -} -fornext_error47:; -if(qbevent){evnt(446);if(r)goto S_1026;} +if(qbevent){evnt(460);if(r)goto S_1108;} do{ tmp_long=array_check((*__LONG_C1+(*__LONG_C2* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[tmp_long]=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*__LONG_C1)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*__LONG_C2)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 32 ); -if(!qbevent)break;evnt(447);}while(r); -fornext_continue_46:; +if(!qbevent)break;evnt(461);}while(r); +fornext_continue_42:; } -fornext_exit_46:; -fornext_continue_44:; +fornext_exit_42:; +fornext_continue_40:; } -fornext_exit_44:; +fornext_exit_40:; do{ *__LONG_HASHLISTSIZE= 65536 ; -if(!qbevent)break;evnt(451);}while(r); +if(!qbevent)break;evnt(465);}while(r); do{ *__LONG_HASHLISTNEXT= 1 ; -if(!qbevent)break;evnt(452);}while(r); +if(!qbevent)break;evnt(466);}while(r); do{ *__LONG_HASHLISTFREESIZE= 1024 ; -if(!qbevent)break;evnt(453);}while(r); +if(!qbevent)break;evnt(467);}while(r); do{ *__LONG_HASHLISTFREELAST= 0 ; -if(!qbevent)break;evnt(454);}while(r); +if(!qbevent)break;evnt(468);}while(r); do{ if (__ARRAY_UDT_HASHLIST[2]&2){ @@ -4355,7 +4522,7 @@ if (!__ARRAY_UDT_HASHLIST[0]) error(257); } __ARRAY_UDT_HASHLIST[2]|=1; } -if(!qbevent)break;evnt(455);}while(r); +if(!qbevent)break;evnt(469);}while(r); do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ @@ -4381,7 +4548,7 @@ if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; } -if(!qbevent)break;evnt(456);}while(r); +if(!qbevent)break;evnt(470);}while(r); do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ @@ -4407,7 +4574,7 @@ if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257); } __ARRAY_LONG_HASHLISTFREE[2]|=1; } -if(!qbevent)break;evnt(457);}while(r); +if(!qbevent)break;evnt(471);}while(r); do{ if (__ARRAY_LONG_HASHTABLE[2]&2){ @@ -4433,12 +4600,12 @@ if (!__ARRAY_LONG_HASHTABLE[0]) error(257); } __ARRAY_LONG_HASHTABLE[2]|=1; } -if(!qbevent)break;evnt(458);}while(r); +if(!qbevent)break;evnt(472);}while(r); do{ -if(!qbevent)break;evnt(485);}while(r); +if(!qbevent)break;evnt(499);}while(r); do{ *__LONG_LABELS_UBOUND= 100 ; -if(!qbevent)break;evnt(486);}while(r); +if(!qbevent)break;evnt(500);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ @@ -4464,32 +4631,32 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; } -if(!qbevent)break;evnt(487);}while(r); -do{ -if(!qbevent)break;evnt(488);}while(r); -do{ -if(!qbevent)break;evnt(490);}while(r); -do{ -if(!qbevent)break;evnt(491);}while(r); -do{ -if(!qbevent)break;evnt(492);}while(r); -do{ -if(!qbevent)break;evnt(494);}while(r); -do{ -if(!qbevent)break;evnt(496);}while(r); -do{ -if(!qbevent)break;evnt(498);}while(r); -do{ if(!qbevent)break;evnt(501);}while(r); do{ -if(!qbevent)break;evnt(503);}while(r); +if(!qbevent)break;evnt(502);}while(r); +do{ +if(!qbevent)break;evnt(504);}while(r); +do{ +if(!qbevent)break;evnt(505);}while(r); +do{ +if(!qbevent)break;evnt(506);}while(r); +do{ +if(!qbevent)break;evnt(508);}while(r); +do{ +if(!qbevent)break;evnt(510);}while(r); +do{ +if(!qbevent)break;evnt(512);}while(r); +do{ +if(!qbevent)break;evnt(515);}while(r); +do{ +if(!qbevent)break;evnt(517);}while(r); do{ if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&2){ error(10); }else{ if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_REVERTMAYMUSTHAVE[4]= 1 ; __ARRAY_LONG_REVERTMAYMUSTHAVE[5]=( 10000 )-__ARRAY_LONG_REVERTMAYMUSTHAVE[4]+1; @@ -4504,22 +4671,22 @@ if (!__ARRAY_LONG_REVERTMAYMUSTHAVE[0]) error(257); __ARRAY_LONG_REVERTMAYMUSTHAVE[2]|=1; } } -if(!qbevent)break;evnt(505);}while(r); +if(!qbevent)break;evnt(519);}while(r); do{ -if(!qbevent)break;evnt(506);}while(r); +if(!qbevent)break;evnt(520);}while(r); do{ -if(!qbevent)break;evnt(508);}while(r); +if(!qbevent)break;evnt(522);}while(r); do{ -if(!qbevent)break;evnt(510);}while(r); +if(!qbevent)break;evnt(524);}while(r); do{ -if(!qbevent)break;evnt(513);}while(r); +if(!qbevent)break;evnt(527);}while(r); do{ if (__ARRAY_STRING_INCNAME[2]&2){ error(10); }else{ if (__ARRAY_STRING_INCNAME[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_INCNAME[4]= 0 ; __ARRAY_STRING_INCNAME[5]=( 100 )-__ARRAY_STRING_INCNAME[4]+1; @@ -4535,14 +4702,14 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_n } } } -if(!qbevent)break;evnt(514);}while(r); +if(!qbevent)break;evnt(528);}while(r); do{ if (__ARRAY_LONG_INCLINENUMBER[2]&2){ error(10); }else{ if (__ARRAY_LONG_INCLINENUMBER[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_INCLINENUMBER[4]= 0 ; __ARRAY_LONG_INCLINENUMBER[5]=( 100 )-__ARRAY_LONG_INCLINENUMBER[4]+1; @@ -4557,34 +4724,34 @@ if (!__ARRAY_LONG_INCLINENUMBER[0]) error(257); __ARRAY_LONG_INCLINENUMBER[2]|=1; } } -if(!qbevent)break;evnt(515);}while(r); +if(!qbevent)break;evnt(529);}while(r); do{ -if(!qbevent)break;evnt(516);}while(r); +if(!qbevent)break;evnt(530);}while(r); do{ -if(!qbevent)break;evnt(519);}while(r); +if(!qbevent)break;evnt(533);}while(r); do{ qbs_set(__STRING_FIX046,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("__",2),qbs_new_txt_len("ASCII",5)),qbs_new_txt_len("_",1)),qbs_new_txt_len("CHR",3)),qbs_new_txt_len("_",1)),qbs_new_txt_len("046",3)),qbs_new_txt_len("__",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(520);}while(r); +if(!qbevent)break;evnt(534);}while(r); do{ -if(!qbevent)break;evnt(522);}while(r); +if(!qbevent)break;evnt(536);}while(r); do{ -if(!qbevent)break;evnt(523);}while(r); +if(!qbevent)break;evnt(537);}while(r); do{ -if(!qbevent)break;evnt(525);}while(r); +if(!qbevent)break;evnt(539);}while(r); do{ -if(!qbevent)break;evnt(527);}while(r); +if(!qbevent)break;evnt(541);}while(r); do{ -if(!qbevent)break;evnt(528);}while(r); +if(!qbevent)break;evnt(542);}while(r); do{ -if(!qbevent)break;evnt(531);}while(r); +if(!qbevent)break;evnt(545);}while(r); do{ if (__ARRAY_LONG_ALPHANUMERIC[2]&2){ error(10); }else{ if (__ARRAY_LONG_ALPHANUMERIC[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_ALPHANUMERIC[4]= 0 ; __ARRAY_LONG_ALPHANUMERIC[5]=( 255 )-__ARRAY_LONG_ALPHANUMERIC[4]+1; @@ -4599,10 +4766,60 @@ if (!__ARRAY_LONG_ALPHANUMERIC[0]) error(257); __ARRAY_LONG_ALPHANUMERIC[2]|=1; } } -if(!qbevent)break;evnt(533);}while(r); -S_1067:; -fornext_value49= 48 ; -fornext_finalvalue49= 57 ; +if(!qbevent)break;evnt(547);}while(r); +S_1149:; +fornext_value45= 48 ; +fornext_finalvalue45= 57 ; +fornext_step45= 1 ; +if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0; +if (new_error) goto fornext_error45; +goto fornext_entrylabel45; +while(1){ +fornext_value45=fornext_step45+(*__LONG_I); +fornext_entrylabel45: +*__LONG_I=fornext_value45; +if (fornext_step_negative45){ +if (fornext_value45fornext_finalvalue45) break; +} +fornext_error45:; +if(qbevent){evnt(548);if(r)goto S_1149;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(549);}while(r); +fornext_continue_44:; +} +fornext_exit_44:; +S_1152:; +fornext_value47= 65 ; +fornext_finalvalue47= 90 ; +fornext_step47= 1 ; +if (fornext_step47<0) fornext_step_negative47=1; else fornext_step_negative47=0; +if (new_error) goto fornext_error47; +goto fornext_entrylabel47; +while(1){ +fornext_value47=fornext_step47+(*__LONG_I); +fornext_entrylabel47: +*__LONG_I=fornext_value47; +if (fornext_step_negative47){ +if (fornext_value47fornext_finalvalue47) break; +} +fornext_error47:; +if(qbevent){evnt(551);if(r)goto S_1152;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(552);}while(r); +fornext_continue_46:; +} +fornext_exit_46:; +S_1155:; +fornext_value49= 97 ; +fornext_finalvalue49= 122 ; fornext_step49= 1 ; if (fornext_step49<0) fornext_step_negative49=1; else fornext_step_negative49=0; if (new_error) goto fornext_error49; @@ -4617,15 +4834,41 @@ if (fornext_value49fornext_finalvalue49) break; } fornext_error49:; -if(qbevent){evnt(534);if(r)goto S_1067;} +if(qbevent){evnt(554);if(r)goto S_1155;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(535);}while(r); +if(!qbevent)break;evnt(555);}while(r); fornext_continue_48:; } fornext_exit_48:; -S_1070:; +do{ +tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(558);}while(r); +do{ + +if (__ARRAY_LONG_ISALPHA[2]&2){ +error(10); +}else{ +if (__ARRAY_LONG_ISALPHA[2]&1){ +if (!error_occurred) error(10); +}else{ +__ARRAY_LONG_ISALPHA[4]= 0 ; +__ARRAY_LONG_ISALPHA[5]=( 255 )-__ARRAY_LONG_ISALPHA[4]+1; +__ARRAY_LONG_ISALPHA[6]=1; +if (__ARRAY_LONG_ISALPHA[2]&4){ +__ARRAY_LONG_ISALPHA[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ISALPHA[5]*4); +memset((void*)(__ARRAY_LONG_ISALPHA[0]),0,__ARRAY_LONG_ISALPHA[5]*4); +}else{ +__ARRAY_LONG_ISALPHA[0]=(ptrszint)calloc(__ARRAY_LONG_ISALPHA[5]*4,1); +if (!__ARRAY_LONG_ISALPHA[0]) error(257); +} +__ARRAY_LONG_ISALPHA[2]|=1; +} +} +if(!qbevent)break;evnt(560);}while(r); +S_1160:; fornext_value51= 65 ; fornext_finalvalue51= 90 ; fornext_step51= 1 ; @@ -4642,15 +4885,15 @@ if (fornext_value51fornext_finalvalue51) break; } fornext_error51:; -if(qbevent){evnt(537);if(r)goto S_1070;} +if(qbevent){evnt(561);if(r)goto S_1160;} do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(538);}while(r); +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(562);}while(r); fornext_continue_50:; } fornext_exit_50:; -S_1073:; +S_1163:; fornext_value53= 97 ; fornext_finalvalue53= 122 ; fornext_step53= 1 ; @@ -4667,101 +4910,25 @@ if (fornext_value53fornext_finalvalue53) break; } fornext_error53:; -if(qbevent){evnt(540);if(r)goto S_1073;} +if(qbevent){evnt(564);if(r)goto S_1163;} do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(541);}while(r); +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(565);}while(r); fornext_continue_52:; } fornext_exit_52:; do{ -tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(544);}while(r); -do{ - -if (__ARRAY_LONG_ISALPHA[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_ISALPHA[2]&1){ -error(10); -}else{ -__ARRAY_LONG_ISALPHA[4]= 0 ; -__ARRAY_LONG_ISALPHA[5]=( 255 )-__ARRAY_LONG_ISALPHA[4]+1; -__ARRAY_LONG_ISALPHA[6]=1; -if (__ARRAY_LONG_ISALPHA[2]&4){ -__ARRAY_LONG_ISALPHA[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_ISALPHA[5]*4); -memset((void*)(__ARRAY_LONG_ISALPHA[0]),0,__ARRAY_LONG_ISALPHA[5]*4); -}else{ -__ARRAY_LONG_ISALPHA[0]=(ptrszint)calloc(__ARRAY_LONG_ISALPHA[5]*4,1); -if (!__ARRAY_LONG_ISALPHA[0]) error(257); -} -__ARRAY_LONG_ISALPHA[2]|=1; -} -} -if(!qbevent)break;evnt(546);}while(r); -S_1078:; -fornext_value55= 65 ; -fornext_finalvalue55= 90 ; -fornext_step55= 1 ; -if (fornext_step55<0) fornext_step_negative55=1; else fornext_step_negative55=0; -if (new_error) goto fornext_error55; -goto fornext_entrylabel55; -while(1){ -fornext_value55=fornext_step55+(*__LONG_I); -fornext_entrylabel55: -*__LONG_I=fornext_value55; -if (fornext_step_negative55){ -if (fornext_value55fornext_finalvalue55) break; -} -fornext_error55:; -if(qbevent){evnt(547);if(r)goto S_1078;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(548);}while(r); -fornext_continue_54:; -} -fornext_exit_54:; -S_1081:; -fornext_value57= 97 ; -fornext_finalvalue57= 122 ; -fornext_step57= 1 ; -if (fornext_step57<0) fornext_step_negative57=1; else fornext_step_negative57=0; -if (new_error) goto fornext_error57; -goto fornext_entrylabel57; -while(1){ -fornext_value57=fornext_step57+(*__LONG_I); -fornext_entrylabel57: -*__LONG_I=fornext_value57; -if (fornext_step_negative57){ -if (fornext_value57fornext_finalvalue57) break; -} -fornext_error57:; -if(qbevent){evnt(550);if(r)goto S_1081;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(551);}while(r); -fornext_continue_56:; -} -fornext_exit_56:; -do{ tmp_long=array_check(( 95 )-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(554);}while(r); +if(!qbevent)break;evnt(568);}while(r); do{ if (__ARRAY_LONG_ISNUMERIC[2]&2){ error(10); }else{ if (__ARRAY_LONG_ISNUMERIC[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_ISNUMERIC[4]= 0 ; __ARRAY_LONG_ISNUMERIC[5]=( 255 )-__ARRAY_LONG_ISNUMERIC[4]+1; @@ -4776,39 +4943,39 @@ if (!__ARRAY_LONG_ISNUMERIC[0]) error(257); __ARRAY_LONG_ISNUMERIC[2]|=1; } } -if(!qbevent)break;evnt(556);}while(r); -S_1086:; -fornext_value59= 48 ; -fornext_finalvalue59= 57 ; -fornext_step59= 1 ; -if (fornext_step59<0) fornext_step_negative59=1; else fornext_step_negative59=0; -if (new_error) goto fornext_error59; -goto fornext_entrylabel59; +if(!qbevent)break;evnt(570);}while(r); +S_1168:; +fornext_value55= 48 ; +fornext_finalvalue55= 57 ; +fornext_step55= 1 ; +if (fornext_step55<0) fornext_step_negative55=1; else fornext_step_negative55=0; +if (new_error) goto fornext_error55; +goto fornext_entrylabel55; while(1){ -fornext_value59=fornext_step59+(*__LONG_I); -fornext_entrylabel59: -*__LONG_I=fornext_value59; -if (fornext_step_negative59){ -if (fornext_value59fornext_finalvalue59) break; +if (fornext_value55>fornext_finalvalue55) break; } -fornext_error59:; -if(qbevent){evnt(557);if(r)goto S_1086;} +fornext_error55:; +if(qbevent){evnt(571);if(r)goto S_1168;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5]); if (!new_error) ((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(558);}while(r); -fornext_continue_58:; +if(!qbevent)break;evnt(572);}while(r); +fornext_continue_54:; } -fornext_exit_58:; +fornext_exit_54:; do{ if (__ARRAY_LONG_LFSINGLECHAR[2]&2){ error(10); }else{ if (__ARRAY_LONG_LFSINGLECHAR[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_LFSINGLECHAR[4]= 0 ; __ARRAY_LONG_LFSINGLECHAR[5]=( 255 )-__ARRAY_LONG_LFSINGLECHAR[4]+1; @@ -4823,109 +4990,109 @@ if (!__ARRAY_LONG_LFSINGLECHAR[0]) error(257); __ARRAY_LONG_LFSINGLECHAR[2]|=1; } } -if(!qbevent)break;evnt(562);}while(r); +if(!qbevent)break;evnt(576);}while(r); do{ tmp_long=array_check(( 40 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(563);}while(r); +if(!qbevent)break;evnt(577);}while(r); do{ tmp_long=array_check(( 41 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(564);}while(r); +if(!qbevent)break;evnt(578);}while(r); do{ tmp_long=array_check(( 42 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(565);}while(r); +if(!qbevent)break;evnt(579);}while(r); do{ tmp_long=array_check(( 43 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(566);}while(r); +if(!qbevent)break;evnt(580);}while(r); do{ tmp_long=array_check(( 45 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(567);}while(r); +if(!qbevent)break;evnt(581);}while(r); do{ tmp_long=array_check(( 47 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(568);}while(r); +if(!qbevent)break;evnt(582);}while(r); do{ tmp_long=array_check(( 60 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(569);}while(r); +if(!qbevent)break;evnt(583);}while(r); do{ tmp_long=array_check(( 61 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(570);}while(r); +if(!qbevent)break;evnt(584);}while(r); do{ tmp_long=array_check(( 62 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(571);}while(r); +if(!qbevent)break;evnt(585);}while(r); do{ tmp_long=array_check(( 92 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(572);}while(r); +if(!qbevent)break;evnt(586);}while(r); do{ tmp_long=array_check(( 94 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(573);}while(r); +if(!qbevent)break;evnt(587);}while(r); do{ tmp_long=array_check(( 44 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(575);}while(r); +if(!qbevent)break;evnt(589);}while(r); do{ tmp_long=array_check(( 46 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(576);}while(r); +if(!qbevent)break;evnt(590);}while(r); do{ tmp_long=array_check(( 58 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(577);}while(r); +if(!qbevent)break;evnt(591);}while(r); do{ tmp_long=array_check(( 59 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(578);}while(r); +if(!qbevent)break;evnt(592);}while(r); do{ tmp_long=array_check(( 35 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(580);}while(r); +if(!qbevent)break;evnt(594);}while(r); do{ tmp_long=array_check(( 36 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(581);}while(r); +if(!qbevent)break;evnt(595);}while(r); do{ tmp_long=array_check(( 63 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(582);}while(r); +if(!qbevent)break;evnt(596);}while(r); do{ tmp_long=array_check(( 95 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(583);}while(r); -do{ -if(!qbevent)break;evnt(594);}while(r); -do{ -if(!qbevent)break;evnt(596);}while(r); -do{ if(!qbevent)break;evnt(597);}while(r); do{ -if(!qbevent)break;evnt(599);}while(r); -do{ -if(!qbevent)break;evnt(601);}while(r); -do{ -if(!qbevent)break;evnt(602);}while(r); -do{ -if(!qbevent)break;evnt(603);}while(r); -do{ -if(!qbevent)break;evnt(604);}while(r); -do{ -if(!qbevent)break;evnt(607);}while(r); -do{ -*__LONG_CONSTMAX= 100 ; if(!qbevent)break;evnt(608);}while(r); do{ -if(!qbevent)break;evnt(609);}while(r); +if(!qbevent)break;evnt(610);}while(r); +do{ +if(!qbevent)break;evnt(611);}while(r); +do{ +if(!qbevent)break;evnt(613);}while(r); +do{ +if(!qbevent)break;evnt(615);}while(r); +do{ +if(!qbevent)break;evnt(616);}while(r); +do{ +if(!qbevent)break;evnt(617);}while(r); +do{ +if(!qbevent)break;evnt(618);}while(r); +do{ +if(!qbevent)break;evnt(621);}while(r); +do{ +*__LONG_CONSTMAX= 100 ; +if(!qbevent)break;evnt(622);}while(r); +do{ +if(!qbevent)break;evnt(623);}while(r); do{ *__LONG_CONSTLAST= -1 ; -if(!qbevent)break;evnt(610);}while(r); +if(!qbevent)break;evnt(624);}while(r); do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ @@ -4950,7 +5117,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(611);}while(r); +if(!qbevent)break;evnt(625);}while(r); do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ @@ -4975,7 +5142,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(612);}while(r); +if(!qbevent)break;evnt(626);}while(r); do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ @@ -5000,7 +5167,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(613);}while(r); +if(!qbevent)break;evnt(627);}while(r); do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ @@ -5026,7 +5193,7 @@ if (!__ARRAY_LONG_CONSTTYPE[0]) error(257); } __ARRAY_LONG_CONSTTYPE[2]|=1; } -if(!qbevent)break;evnt(617);}while(r); +if(!qbevent)break;evnt(631);}while(r); do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ @@ -5052,7 +5219,7 @@ if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; } -if(!qbevent)break;evnt(619);}while(r); +if(!qbevent)break;evnt(633);}while(r); do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ @@ -5078,7 +5245,7 @@ if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; } -if(!qbevent)break;evnt(620);}while(r); +if(!qbevent)break;evnt(634);}while(r); do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ @@ -5104,7 +5271,7 @@ if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257); } __ARRAY_FLOAT_CONSTFLOAT[2]|=1; } -if(!qbevent)break;evnt(621);}while(r); +if(!qbevent)break;evnt(635);}while(r); do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ @@ -5129,7 +5296,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(622);}while(r); +if(!qbevent)break;evnt(636);}while(r); do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ @@ -5155,7 +5322,7 @@ if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257); } __ARRAY_LONG_CONSTSUBFUNC[2]|=1; } -if(!qbevent)break;evnt(623);}while(r); +if(!qbevent)break;evnt(637);}while(r); do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ @@ -5181,328 +5348,20 @@ if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257); } __ARRAY_LONG_CONSTDEFINED[2]|=1; } -if(!qbevent)break;evnt(624);}while(r); -do{ -if(!qbevent)break;evnt(628);}while(r); -do{ - -if (__ARRAY_STRING256_UDTXNAME[2]&2){ -error(10); -}else{ -if (__ARRAY_STRING256_UDTXNAME[2]&1){ -error(10); -}else{ -__ARRAY_STRING256_UDTXNAME[4]= 0 ; -__ARRAY_STRING256_UDTXNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXNAME[4]+1; -__ARRAY_STRING256_UDTXNAME[6]=1; -if (__ARRAY_STRING256_UDTXNAME[2]&4){ -__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXNAME[5]*256); -memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256); -}else{ -__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXNAME[5]*256,1); -if (!__ARRAY_STRING256_UDTXNAME[0]) error(257); -} -__ARRAY_STRING256_UDTXNAME[2]|=1; -} -} -if(!qbevent)break;evnt(629);}while(r); -do{ - -if (__ARRAY_STRING256_UDTXCNAME[2]&2){ -error(10); -}else{ -if (__ARRAY_STRING256_UDTXCNAME[2]&1){ -error(10); -}else{ -__ARRAY_STRING256_UDTXCNAME[4]= 0 ; -__ARRAY_STRING256_UDTXCNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXCNAME[4]+1; -__ARRAY_STRING256_UDTXCNAME[6]=1; -if (__ARRAY_STRING256_UDTXCNAME[2]&4){ -__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXCNAME[5]*256); -memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256); -}else{ -__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXCNAME[5]*256,1); -if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257); -} -__ARRAY_STRING256_UDTXCNAME[2]|=1; -} -} -if(!qbevent)break;evnt(630);}while(r); -do{ - -if (__ARRAY_LONG_UDTXSIZE[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTXSIZE[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTXSIZE[4]= 0 ; -__ARRAY_LONG_UDTXSIZE[5]=( 1000 )-__ARRAY_LONG_UDTXSIZE[4]+1; -__ARRAY_LONG_UDTXSIZE[6]=1; -if (__ARRAY_LONG_UDTXSIZE[2]&4){ -__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXSIZE[5]*4); -memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4); -}else{ -__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXSIZE[5]*4,1); -if (!__ARRAY_LONG_UDTXSIZE[0]) error(257); -} -__ARRAY_LONG_UDTXSIZE[2]|=1; -} -} -if(!qbevent)break;evnt(631);}while(r); -do{ - -if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){ -error(10); -}else{ -if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){ -error(10); -}else{ -__ARRAY_INTEGER_UDTXBYTEALIGN[4]= 0 ; -__ARRAY_INTEGER_UDTXBYTEALIGN[5]=( 1000 )-__ARRAY_INTEGER_UDTXBYTEALIGN[4]+1; -__ARRAY_INTEGER_UDTXBYTEALIGN[6]=1; -if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){ -__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2); -memset((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2); -}else{ -__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2,1); -if (!__ARRAY_INTEGER_UDTXBYTEALIGN[0]) error(257); -} -__ARRAY_INTEGER_UDTXBYTEALIGN[2]|=1; -} -} -if(!qbevent)break;evnt(632);}while(r); -do{ - -if (__ARRAY_LONG_UDTXNEXT[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTXNEXT[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTXNEXT[4]= 0 ; -__ARRAY_LONG_UDTXNEXT[5]=( 1000 )-__ARRAY_LONG_UDTXNEXT[4]+1; -__ARRAY_LONG_UDTXNEXT[6]=1; -if (__ARRAY_LONG_UDTXNEXT[2]&4){ -__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXNEXT[5]*4); -memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4); -}else{ -__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXNEXT[5]*4,1); -if (!__ARRAY_LONG_UDTXNEXT[0]) error(257); -} -__ARRAY_LONG_UDTXNEXT[2]|=1; -} -} -if(!qbevent)break;evnt(633);}while(r); -do{ - -if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){ -error(10); -}else{ -if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){ -error(10); -}else{ -__ARRAY_INTEGER_UDTXVARIABLE[4]= 0 ; -__ARRAY_INTEGER_UDTXVARIABLE[5]=( 1000 )-__ARRAY_INTEGER_UDTXVARIABLE[4]+1; -__ARRAY_INTEGER_UDTXVARIABLE[6]=1; -if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){ -__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2); -memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2); -}else{ -__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2,1); -if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257); -} -__ARRAY_INTEGER_UDTXVARIABLE[2]|=1; -} -} -if(!qbevent)break;evnt(634);}while(r); -do{ -if(!qbevent)break;evnt(636);}while(r); -do{ - -if (__ARRAY_STRING256_UDTENAME[2]&2){ -error(10); -}else{ -if (__ARRAY_STRING256_UDTENAME[2]&1){ -error(10); -}else{ -__ARRAY_STRING256_UDTENAME[4]= 0 ; -__ARRAY_STRING256_UDTENAME[5]=( 1000 )-__ARRAY_STRING256_UDTENAME[4]+1; -__ARRAY_STRING256_UDTENAME[6]=1; -if (__ARRAY_STRING256_UDTENAME[2]&4){ -__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTENAME[5]*256); -memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256); -}else{ -__ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTENAME[5]*256,1); -if (!__ARRAY_STRING256_UDTENAME[0]) error(257); -} -__ARRAY_STRING256_UDTENAME[2]|=1; -} -} -if(!qbevent)break;evnt(637);}while(r); -do{ - -if (__ARRAY_STRING256_UDTECNAME[2]&2){ -error(10); -}else{ -if (__ARRAY_STRING256_UDTECNAME[2]&1){ -error(10); -}else{ -__ARRAY_STRING256_UDTECNAME[4]= 0 ; -__ARRAY_STRING256_UDTECNAME[5]=( 1000 )-__ARRAY_STRING256_UDTECNAME[4]+1; -__ARRAY_STRING256_UDTECNAME[6]=1; -if (__ARRAY_STRING256_UDTECNAME[2]&4){ -__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTECNAME[5]*256); -memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256); -}else{ -__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTECNAME[5]*256,1); -if (!__ARRAY_STRING256_UDTECNAME[0]) error(257); -} -__ARRAY_STRING256_UDTECNAME[2]|=1; -} -} if(!qbevent)break;evnt(638);}while(r); do{ - -if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){ -error(10); -}else{ -if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){ -error(10); -}else{ -__ARRAY_INTEGER_UDTEBYTEALIGN[4]= 0 ; -__ARRAY_INTEGER_UDTEBYTEALIGN[5]=( 1000 )-__ARRAY_INTEGER_UDTEBYTEALIGN[4]+1; -__ARRAY_INTEGER_UDTEBYTEALIGN[6]=1; -if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){ -__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2); -memset((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2); -}else{ -__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2,1); -if (!__ARRAY_INTEGER_UDTEBYTEALIGN[0]) error(257); -} -__ARRAY_INTEGER_UDTEBYTEALIGN[2]|=1; -} -} -if(!qbevent)break;evnt(639);}while(r); -do{ - -if (__ARRAY_LONG_UDTESIZE[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTESIZE[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTESIZE[4]= 0 ; -__ARRAY_LONG_UDTESIZE[5]=( 1000 )-__ARRAY_LONG_UDTESIZE[4]+1; -__ARRAY_LONG_UDTESIZE[6]=1; -if (__ARRAY_LONG_UDTESIZE[2]&4){ -__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTESIZE[5]*4); -memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4); -}else{ -__ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTESIZE[5]*4,1); -if (!__ARRAY_LONG_UDTESIZE[0]) error(257); -} -__ARRAY_LONG_UDTESIZE[2]|=1; -} -} -if(!qbevent)break;evnt(640);}while(r); -do{ - -if (__ARRAY_LONG_UDTETYPE[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTETYPE[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTETYPE[4]= 0 ; -__ARRAY_LONG_UDTETYPE[5]=( 1000 )-__ARRAY_LONG_UDTETYPE[4]+1; -__ARRAY_LONG_UDTETYPE[6]=1; -if (__ARRAY_LONG_UDTETYPE[2]&4){ -__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPE[5]*4); -memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4); -}else{ -__ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPE[5]*4,1); -if (!__ARRAY_LONG_UDTETYPE[0]) error(257); -} -__ARRAY_LONG_UDTETYPE[2]|=1; -} -} -if(!qbevent)break;evnt(641);}while(r); -do{ - -if (__ARRAY_LONG_UDTETYPESIZE[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTETYPESIZE[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTETYPESIZE[4]= 0 ; -__ARRAY_LONG_UDTETYPESIZE[5]=( 1000 )-__ARRAY_LONG_UDTETYPESIZE[4]+1; -__ARRAY_LONG_UDTETYPESIZE[6]=1; -if (__ARRAY_LONG_UDTETYPESIZE[2]&4){ -__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPESIZE[5]*4); -memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4); -}else{ -__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPESIZE[5]*4,1); -if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257); -} -__ARRAY_LONG_UDTETYPESIZE[2]|=1; -} -} if(!qbevent)break;evnt(642);}while(r); do{ - -if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTEARRAYELEMENTS[4]= 0 ; -__ARRAY_LONG_UDTEARRAYELEMENTS[5]=( 1000 )-__ARRAY_LONG_UDTEARRAYELEMENTS[4]+1; -__ARRAY_LONG_UDTEARRAYELEMENTS[6]=1; -if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){ -__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4); -memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4); -}else{ -__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4,1); -if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257); -} -__ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1; -} -} if(!qbevent)break;evnt(643);}while(r); do{ - -if (__ARRAY_LONG_UDTENEXT[2]&2){ -error(10); -}else{ -if (__ARRAY_LONG_UDTENEXT[2]&1){ -error(10); -}else{ -__ARRAY_LONG_UDTENEXT[4]= 0 ; -__ARRAY_LONG_UDTENEXT[5]=( 1000 )-__ARRAY_LONG_UDTENEXT[4]+1; -__ARRAY_LONG_UDTENEXT[6]=1; -if (__ARRAY_LONG_UDTENEXT[2]&4){ -__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTENEXT[5]*4); -memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4); -}else{ -__ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTENEXT[5]*4,1); -if (!__ARRAY_LONG_UDTENEXT[0]) error(257); -} -__ARRAY_LONG_UDTENEXT[2]|=1; -} -} -if(!qbevent)break;evnt(644);}while(r); +if(!qbevent)break;evnt(693);}while(r); do{ -if(!qbevent)break;evnt(694);}while(r); +if(!qbevent)break;evnt(695);}while(r); do{ if(!qbevent)break;evnt(696);}while(r); do{ -if(!qbevent)break;evnt(697);}while(r); -do{ *__LONG_IDS_MAX= 1024 ; -if(!qbevent)break;evnt(698);}while(r); +if(!qbevent)break;evnt(697);}while(r); do{ if (__ARRAY_UDT_IDS[2]&2){ @@ -5510,6 +5369,9 @@ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8])->id=(++mem_lock_id); if (__ARRAY_UDT_IDS[2]&1){ +tmp_long=__ARRAY_UDT_IDS[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_IDS[0]+(22952/8+1-1)*tmp_long+ 2861));} if (__ARRAY_UDT_IDS[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); }else{ @@ -5519,16 +5381,14 @@ free((void*)(__ARRAY_UDT_IDS[0])); __ARRAY_UDT_IDS[4]= 1 ; __ARRAY_UDT_IDS[5]=(*__LONG_IDS_MAX)-__ARRAY_UDT_IDS[4]+1; __ARRAY_UDT_IDS[6]=1; -if (__ARRAY_UDT_IDS[2]&4){ -__ARRAY_UDT_IDS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_UDT_IDS[5]*22904/8+1); -memset((void*)(__ARRAY_UDT_IDS[0]),0,__ARRAY_UDT_IDS[5]*22904/8+1); -}else{ -__ARRAY_UDT_IDS[0]=(ptrszint)calloc(__ARRAY_UDT_IDS[5]*22904/8+1,1); +__ARRAY_UDT_IDS[0]=(ptrszint)malloc(__ARRAY_UDT_IDS[5]*22952/8+1); if (!__ARRAY_UDT_IDS[0]) error(257); -} __ARRAY_UDT_IDS[2]|=1; +tmp_long=__ARRAY_UDT_IDS[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_IDS[0]+(22952/8+1-1)*tmp_long+ 2861)=qbs_new(0,0);} } -if(!qbevent)break;evnt(699);}while(r); +if(!qbevent)break;evnt(698);}while(r); do{ if (__ARRAY_INTEGER_CMEMLIST[2]&2){ @@ -5554,7 +5414,7 @@ if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257); } __ARRAY_INTEGER_CMEMLIST[2]|=1; } -if(!qbevent)break;evnt(700);}while(r); +if(!qbevent)break;evnt(699);}while(r); do{ if (__ARRAY_STRING100_SFCMEMARGS[2]&2){ @@ -5580,7 +5440,7 @@ if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257); } __ARRAY_STRING100_SFCMEMARGS[2]|=1; } -if(!qbevent)break;evnt(701);}while(r); +if(!qbevent)break;evnt(700);}while(r); do{ if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){ @@ -5606,61 +5466,63 @@ if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257); } __ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1; } -if(!qbevent)break;evnt(702);}while(r); +if(!qbevent)break;evnt(701);}while(r); do{ -if(!qbevent)break;evnt(706);}while(r); +if(!qbevent)break;evnt(705);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(256)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(707);}while(r); +if(!qbevent)break;evnt(706);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(0)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(708);}while(r); +if(!qbevent)break;evnt(707);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(520)),8,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(709);}while(r); +if(!qbevent)break;evnt(708);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(528)),8,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(710);}while(r); +if(!qbevent)break;evnt(709);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(550)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(711);}while(r); +if(!qbevent)break;evnt(710);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(813)),400,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(712);}while(r); +if(!qbevent)break;evnt(711);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(1213)),400,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(713);}while(r); +if(!qbevent)break;evnt(712);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(1613)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(714);}while(r); +if(!qbevent)break;evnt(713);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(1869)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(715);}while(r); +if(!qbevent)break;evnt(714);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2125)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(716);}while(r); +if(!qbevent)break;evnt(715);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2385)),256,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(717);}while(r); +if(!qbevent)break;evnt(716);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2647)),100,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(718);}while(r); +if(!qbevent)break;evnt(717);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_CLEARIDDATA)+(2747)),100,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(719);}while(r); +if(!qbevent)break;evnt(718);}while(r); +do{ +if(!qbevent)break;evnt(720);}while(r); do{ if(!qbevent)break;evnt(721);}while(r); do{ @@ -5682,7 +5544,7 @@ if(!qbevent)break;evnt(729);}while(r); do{ if(!qbevent)break;evnt(730);}while(r); do{ -if(!qbevent)break;evnt(731);}while(r); +if(!qbevent)break;evnt(732);}while(r); do{ if(!qbevent)break;evnt(733);}while(r); do{ @@ -5716,7 +5578,7 @@ if(!qbevent)break;evnt(747);}while(r); do{ if(!qbevent)break;evnt(748);}while(r); do{ -if(!qbevent)break;evnt(749);}while(r); +if(!qbevent)break;evnt(750);}while(r); do{ if(!qbevent)break;evnt(751);}while(r); do{ @@ -5730,11 +5592,11 @@ if(!qbevent)break;evnt(755);}while(r); do{ if(!qbevent)break;evnt(756);}while(r); do{ -if(!qbevent)break;evnt(757);}while(r); +if(!qbevent)break;evnt(760);}while(r); do{ if(!qbevent)break;evnt(761);}while(r); do{ -if(!qbevent)break;evnt(762);}while(r); +if(!qbevent)break;evnt(765);}while(r); do{ if(!qbevent)break;evnt(766);}while(r); do{ @@ -5754,7 +5616,7 @@ if(!qbevent)break;evnt(773);}while(r); do{ if(!qbevent)break;evnt(774);}while(r); do{ -if(!qbevent)break;evnt(778);}while(r); +if(!qbevent)break;evnt(775);}while(r); do{ if(!qbevent)break;evnt(779);}while(r); do{ @@ -5762,49 +5624,55 @@ if(!qbevent)break;evnt(780);}while(r); do{ if(!qbevent)break;evnt(781);}while(r); do{ +if(!qbevent)break;evnt(782);}while(r); +do{ if(!qbevent)break;evnt(783);}while(r); do{ if(!qbevent)break;evnt(785);}while(r); do{ -if(!qbevent)break;evnt(786);}while(r); -do{ if(!qbevent)break;evnt(787);}while(r); do{ +if(!qbevent)break;evnt(788);}while(r); +do{ if(!qbevent)break;evnt(789);}while(r); do{ -if(!qbevent)break;evnt(790);}while(r); +if(!qbevent)break;evnt(791);}while(r); do{ if(!qbevent)break;evnt(792);}while(r); do{ -if(!qbevent)break;evnt(793);}while(r); -do{ if(!qbevent)break;evnt(794);}while(r); do{ +if(!qbevent)break;evnt(795);}while(r); +do{ if(!qbevent)break;evnt(796);}while(r); do{ if(!qbevent)break;evnt(797);}while(r); do{ -if(!qbevent)break;evnt(798);}while(r); +if(!qbevent)break;evnt(799);}while(r); +do{ +if(!qbevent)break;evnt(800);}while(r); do{ if(!qbevent)break;evnt(801);}while(r); do{ -if(!qbevent)break;evnt(805);}while(r); -do{ -if(!qbevent)break;evnt(806);}while(r); -do{ -if(!qbevent)break;evnt(807);}while(r); +if(!qbevent)break;evnt(804);}while(r); do{ if(!qbevent)break;evnt(808);}while(r); do{ +if(!qbevent)break;evnt(809);}while(r); +do{ +if(!qbevent)break;evnt(810);}while(r); +do{ +if(!qbevent)break;evnt(811);}while(r); +do{ if (__ARRAY_INTEGER64_BITMASK[2]&2){ error(10); }else{ if (__ARRAY_INTEGER64_BITMASK[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER64_BITMASK[4]= 1 ; -__ARRAY_INTEGER64_BITMASK[5]=( 56 )-__ARRAY_INTEGER64_BITMASK[4]+1; +__ARRAY_INTEGER64_BITMASK[5]=( 64 )-__ARRAY_INTEGER64_BITMASK[4]+1; __ARRAY_INTEGER64_BITMASK[6]=1; if (__ARRAY_INTEGER64_BITMASK[2]&4){ __ARRAY_INTEGER64_BITMASK[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_BITMASK[5]*8); @@ -5816,17 +5684,17 @@ if (!__ARRAY_INTEGER64_BITMASK[0]) error(257); __ARRAY_INTEGER64_BITMASK[2]|=1; } } -if(!qbevent)break;evnt(813);}while(r); +if(!qbevent)break;evnt(816);}while(r); do{ if (__ARRAY_INTEGER64_BITMASKINV[2]&2){ error(10); }else{ if (__ARRAY_INTEGER64_BITMASKINV[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER64_BITMASKINV[4]= 1 ; -__ARRAY_INTEGER64_BITMASKINV[5]=( 56 )-__ARRAY_INTEGER64_BITMASKINV[4]+1; +__ARRAY_INTEGER64_BITMASKINV[5]=( 64 )-__ARRAY_INTEGER64_BITMASKINV[4]+1; __ARRAY_INTEGER64_BITMASKINV[6]=1; if (__ARRAY_INTEGER64_BITMASKINV[2]&4){ __ARRAY_INTEGER64_BITMASKINV[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER64_BITMASKINV[5]*8); @@ -5838,14 +5706,14 @@ if (!__ARRAY_INTEGER64_BITMASKINV[0]) error(257); __ARRAY_INTEGER64_BITMASKINV[2]|=1; } } -if(!qbevent)break;evnt(814);}while(r); +if(!qbevent)break;evnt(817);}while(r); do{ if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){ error(10); }else{ if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_DEFINEEXTAZ[4]= 1 ; __ARRAY_STRING_DEFINEEXTAZ[5]=( 27 )-__ARRAY_STRING_DEFINEEXTAZ[4]+1; @@ -5861,14 +5729,14 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)q } } } -if(!qbevent)break;evnt(816);}while(r); +if(!qbevent)break;evnt(819);}while(r); do{ if (__ARRAY_STRING_DEFINEAZ[2]&2){ error(10); }else{ if (__ARRAY_STRING_DEFINEAZ[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_STRING_DEFINEAZ[4]= 1 ; __ARRAY_STRING_DEFINEAZ[5]=( 27 )-__ARRAY_STRING_DEFINEAZ[4]+1; @@ -5884,116 +5752,118 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_ } } } -if(!qbevent)break;evnt(817);}while(r); -do{ -*__LONG_ISSTRING= 1073741824 ; -if(!qbevent)break;evnt(819);}while(r); -do{ -*__LONG_ISFLOAT= 536870912 ; if(!qbevent)break;evnt(820);}while(r); do{ -*__LONG_ISUNSIGNED= 268435456 ; -if(!qbevent)break;evnt(821);}while(r); -do{ -*__LONG_ISPOINTER= 134217728 ; +*__LONG_ISSTRING= 1073741824 ; if(!qbevent)break;evnt(822);}while(r); do{ -*__LONG_ISFIXEDLENGTH= 67108864 ; +*__LONG_ISFLOAT= 536870912 ; if(!qbevent)break;evnt(823);}while(r); do{ -*__LONG_ISINCONVENTIONALMEMORY= 33554432 ; +*__LONG_ISUNSIGNED= 268435456 ; if(!qbevent)break;evnt(824);}while(r); do{ -*__LONG_ISOFFSETINBITS= 16777216 ; +*__LONG_ISPOINTER= 134217728 ; if(!qbevent)break;evnt(825);}while(r); do{ -*__LONG_ISARRAY= 8388608 ; +*__LONG_ISFIXEDLENGTH= 67108864 ; if(!qbevent)break;evnt(826);}while(r); do{ -*__LONG_ISREFERENCE= 4194304 ; +*__LONG_ISINCONVENTIONALMEMORY= 33554432 ; if(!qbevent)break;evnt(827);}while(r); do{ -*__LONG_ISUDT= 2097152 ; +*__LONG_ISOFFSETINBITS= 16777216 ; if(!qbevent)break;evnt(828);}while(r); do{ -*__LONG_ISOFFSET= 1048576 ; +*__LONG_ISARRAY= 8388608 ; if(!qbevent)break;evnt(829);}while(r); do{ -*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER; +*__LONG_ISREFERENCE= 4194304 ; +if(!qbevent)break;evnt(830);}while(r); +do{ +*__LONG_ISUDT= 2097152 ; if(!qbevent)break;evnt(831);}while(r); do{ -*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS; +*__LONG_ISOFFSET= 1048576 ; if(!qbevent)break;evnt(832);}while(r); do{ -*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(833);}while(r); -do{ -*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER; +*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER; if(!qbevent)break;evnt(834);}while(r); do{ -*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(835);}while(r); do{ -*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER; +*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS; if(!qbevent)break;evnt(836);}while(r); do{ -*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(837);}while(r); do{ -*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER; +*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(838);}while(r); do{ -*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(839);}while(r); do{ -*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER; +*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(840);}while(r); do{ -*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(841);}while(r); do{ -*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(842);}while(r); do{ -*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER; if(!qbevent)break;evnt(843);}while(r); do{ -*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; if(!qbevent)break;evnt(844);}while(r); do{ -*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; +*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; if(!qbevent)break;evnt(845);}while(r); -S_1266:; +do{ +*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(846);}while(r); +do{ +*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(847);}while(r); +do{ +*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(848);}while(r); +S_1338:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(845);if(r)goto S_1266;} +if(qbevent){evnt(848);if(r)goto S_1338;} do{ *__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(845);}while(r); +if(!qbevent)break;evnt(848);}while(r); } do{ *__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(846);}while(r); -S_1270:; +if(!qbevent)break;evnt(849);}while(r); +S_1342:; if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(846);if(r)goto S_1270;} +if(qbevent){evnt(849);if(r)goto S_1342;} do{ *__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(846);}while(r); +if(!qbevent)break;evnt(849);}while(r); } do{ *__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(847);}while(r); +if(!qbevent)break;evnt(850);}while(r); do{ -if(!qbevent)break;evnt(854);}while(r); +if(!qbevent)break;evnt(857);}while(r); do{ -if(!qbevent)break;evnt(860);}while(r); +if(!qbevent)break;evnt(858);}while(r); +do{ +if(!qbevent)break;evnt(863);}while(r); do{ if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_CONTROLTYPE[4]= 0 ; __ARRAY_INTEGER_CONTROLTYPE[5]=( 1000 )-__ARRAY_INTEGER_CONTROLTYPE[4]+1; @@ -6008,14 +5878,14 @@ if (!__ARRAY_INTEGER_CONTROLTYPE[0]) error(257); __ARRAY_INTEGER_CONTROLTYPE[2]|=1; } } -if(!qbevent)break;evnt(861);}while(r); +if(!qbevent)break;evnt(864);}while(r); do{ if (__ARRAY_LONG_CONTROLID[2]&2){ error(10); }else{ if (__ARRAY_LONG_CONTROLID[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_CONTROLID[4]= 0 ; __ARRAY_LONG_CONTROLID[5]=( 1000 )-__ARRAY_LONG_CONTROLID[4]+1; @@ -6030,14 +5900,14 @@ if (!__ARRAY_LONG_CONTROLID[0]) error(257); __ARRAY_LONG_CONTROLID[2]|=1; } } -if(!qbevent)break;evnt(877);}while(r); +if(!qbevent)break;evnt(882);}while(r); do{ if (__ARRAY_LONG_CONTROLVALUE[2]&2){ error(10); }else{ if (__ARRAY_LONG_CONTROLVALUE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_CONTROLVALUE[4]= 0 ; __ARRAY_LONG_CONTROLVALUE[5]=( 1000 )-__ARRAY_LONG_CONTROLVALUE[4]+1; @@ -6052,14 +5922,14 @@ if (!__ARRAY_LONG_CONTROLVALUE[0]) error(257); __ARRAY_LONG_CONTROLVALUE[2]|=1; } } -if(!qbevent)break;evnt(878);}while(r); +if(!qbevent)break;evnt(883);}while(r); do{ if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_CONTROLSTATE[4]= 0 ; __ARRAY_INTEGER_CONTROLSTATE[5]=( 1000 )-__ARRAY_INTEGER_CONTROLSTATE[4]+1; @@ -6074,14 +5944,14 @@ if (!__ARRAY_INTEGER_CONTROLSTATE[0]) error(257); __ARRAY_INTEGER_CONTROLSTATE[2]|=1; } } -if(!qbevent)break;evnt(879);}while(r); +if(!qbevent)break;evnt(884);}while(r); do{ if (__ARRAY_LONG_CONTROLREF[2]&2){ error(10); }else{ if (__ARRAY_LONG_CONTROLREF[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_CONTROLREF[4]= 0 ; __ARRAY_LONG_CONTROLREF[5]=( 1000 )-__ARRAY_LONG_CONTROLREF[4]+1; @@ -6096,58 +5966,58 @@ if (!__ARRAY_LONG_CONTROLREF[0]) error(257); __ARRAY_LONG_CONTROLREF[2]|=1; } } -if(!qbevent)break;evnt(880);}while(r); +if(!qbevent)break;evnt(885);}while(r); do{ error_goto_line=4; -if(!qbevent)break;evnt(886);}while(r); +if(!qbevent)break;evnt(891);}while(r); do{ *__INTEGER64_I2= 1 ; -if(!qbevent)break;evnt(888);}while(r); -S_1283:; -fornext_value61= 1 ; -fornext_finalvalue61= 56 ; -fornext_step61= 1 ; -if (fornext_step61<0) fornext_step_negative61=1; else fornext_step_negative61=0; -if (new_error) goto fornext_error61; -goto fornext_entrylabel61; +if(!qbevent)break;evnt(893);}while(r); +S_1356:; +fornext_value57= 1 ; +fornext_finalvalue57= 64 ; +fornext_step57= 1 ; +if (fornext_step57<0) fornext_step_negative57=1; else fornext_step_negative57=0; +if (new_error) goto fornext_error57; +goto fornext_entrylabel57; while(1){ -fornext_value61=fornext_step61+(*__INTEGER64_I); -fornext_entrylabel61: -*__INTEGER64_I=fornext_value61; -if (fornext_step_negative61){ -if (fornext_value61fornext_finalvalue61) break; +if (fornext_value57>fornext_finalvalue57) break; } -fornext_error61:; -if(qbevent){evnt(889);if(r)goto S_1283;} +fornext_error57:; +if(qbevent){evnt(894);if(r)goto S_1356;} do{ tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[tmp_long]=*__INTEGER64_I2; -if(!qbevent)break;evnt(890);}while(r); +if(!qbevent)break;evnt(895);}while(r); do{ tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[tmp_long]=~(*__INTEGER64_I2); -if(!qbevent)break;evnt(891);}while(r); +if(!qbevent)break;evnt(896);}while(r); do{ *__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I))); -if(!qbevent)break;evnt(892);}while(r); -fornext_continue_60:; +if(!qbevent)break;evnt(897);}while(r); +fornext_continue_56:; } -fornext_exit_60:; +fornext_exit_56:; do{ -if(!qbevent)break;evnt(895);}while(r); +if(!qbevent)break;evnt(900);}while(r); do{ qbs_set(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(897);}while(r); +if(!qbevent)break;evnt(902);}while(r); do{ if (__ARRAY_LONG_SFIDLIST[2]&2){ error(10); }else{ if (__ARRAY_LONG_SFIDLIST[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_LONG_SFIDLIST[4]= 0 ; __ARRAY_LONG_SFIDLIST[5]=( 1000 )-__ARRAY_LONG_SFIDLIST[4]+1; @@ -6162,14 +6032,14 @@ if (!__ARRAY_LONG_SFIDLIST[0]) error(257); __ARRAY_LONG_SFIDLIST[2]|=1; } } -if(!qbevent)break;evnt(899);}while(r); +if(!qbevent)break;evnt(904);}while(r); do{ if (__ARRAY_INTEGER_SFARGLIST[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_SFARGLIST[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_SFARGLIST[4]= 0 ; __ARRAY_INTEGER_SFARGLIST[5]=( 1000 )-__ARRAY_INTEGER_SFARGLIST[4]+1; @@ -6184,14 +6054,14 @@ if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257); __ARRAY_INTEGER_SFARGLIST[2]|=1; } } -if(!qbevent)break;evnt(900);}while(r); +if(!qbevent)break;evnt(905);}while(r); do{ if (__ARRAY_INTEGER_SFELELIST[2]&2){ error(10); }else{ if (__ARRAY_INTEGER_SFELELIST[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ __ARRAY_INTEGER_SFELELIST[4]= 0 ; __ARRAY_INTEGER_SFELELIST[5]=( 1000 )-__ARRAY_INTEGER_SFELELIST[4]+1; @@ -6206,582 +6076,535 @@ if (!__ARRAY_INTEGER_SFELELIST[0]) error(257); __ARRAY_INTEGER_SFELELIST[2]|=1; } } -if(!qbevent)break;evnt(901);}while(r); +if(!qbevent)break;evnt(906);}while(r); do{ SUB_GL_SCAN_HEADER(); -if(!qbevent)break;evnt(918);}while(r); -S_1294:; +if(!qbevent)break;evnt(923);}while(r); +S_1367:; if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(929);if(r)goto S_1294;} +if(qbevent){evnt(934);if(r)goto S_1367;} do{ *__BYTE_IDE_AUTOPOSITION= 0 ; -if(!qbevent)break;evnt(929);}while(r); +if(!qbevent)break;evnt(934);}while(r); do{ goto LABEL_NOIDE; -if(!qbevent)break;evnt(929);}while(r); +if(!qbevent)break;evnt(934);}while(r); } do{ -if(!qbevent)break;evnt(930);}while(r); -S_1299:; +if(!qbevent)break;evnt(935);}while(r); +S_1372:; if ((-(*__BYTE_FILEDROPENABLED== 0 ))||new_error){ -if(qbevent){evnt(931);if(r)goto S_1299;} +if(qbevent){evnt(936);if(r)goto S_1372;} do{ *__BYTE_FILEDROPENABLED= -1 ; -if(!qbevent)break;evnt(931);}while(r); +if(!qbevent)break;evnt(936);}while(r); do{ sub__filedrop(NULL); -if(!qbevent)break;evnt(931);}while(r); +if(!qbevent)break;evnt(936);}while(r); } -S_1303:; +S_1376:; if ((*__BYTE_IDE_AUTOPOSITION&(~(*__BYTE_IDE_BYPASSAUTOPOSITION)))||new_error){ -if(qbevent){evnt(933);if(r)goto S_1303;} +if(qbevent){evnt(938);if(r)goto S_1376;} do{ sub__screenmove(*__INTEGER_IDE_LEFTPOSITION,*__INTEGER_IDE_TOPPOSITION,2); -if(!qbevent)break;evnt(933);}while(r); +if(!qbevent)break;evnt(938);}while(r); } do{ *__LONG_IDEMODE= 1 ; -if(!qbevent)break;evnt(934);}while(r); +if(!qbevent)break;evnt(939);}while(r); do{ qbs_set(__STRING_SENDC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(935);}while(r); -S_1308:; +if(!qbevent)break;evnt(940);}while(r); +S_1381:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(936);if(r)goto S_1308;} +if(qbevent){evnt(941);if(r)goto S_1381;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINEFILE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(936);}while(r); +if(!qbevent)break;evnt(941);}while(r); } LABEL_SENDCOMMAND:; -if(qbevent){evnt(937);r=0;} +if(qbevent){evnt(942);r=0;} do{ qbs_set(__STRING_IDECOMMAND,__STRING_SENDC); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(938);}while(r); +if(!qbevent)break;evnt(943);}while(r); do{ -*__LONG_C=FUNC_IDE(&(pass62= 0 )); -if(!qbevent)break;evnt(939);}while(r); +*__LONG_C=FUNC_IDE(&(pass58= 0 )); +if(!qbevent)break;evnt(944);}while(r); do{ *__LONG_IDEERROR= 0 ; -if(!qbevent)break;evnt(940);}while(r); -S_1314:; +if(!qbevent)break;evnt(945);}while(r); +S_1387:; if ((-(*__LONG_C== 0 ))||new_error){ -if(qbevent){evnt(941);if(r)goto S_1314;} +if(qbevent){evnt(946);if(r)goto S_1387;} do{ *__LONG_IDEMODE= 0 ; -if(!qbevent)break;evnt(941);}while(r); +if(!qbevent)break;evnt(946);}while(r); do{ goto LABEL_NOIDE; -if(!qbevent)break;evnt(941);}while(r); +if(!qbevent)break;evnt(946);}while(r); } do{ qbs_set(__STRING_C,__STRING_IDERETURN); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(942);}while(r); -S_1319:; +if(!qbevent)break;evnt(947);}while(r); +S_1392:; if ((-(*__LONG_C== 2 ))||new_error){ -if(qbevent){evnt(944);if(r)goto S_1319;} +if(qbevent){evnt(949);if(r)goto S_1392;} do{ *__LONG_IDEERRORLINE= 0 ; -if(!qbevent)break;evnt(945);}while(r); +if(!qbevent)break;evnt(950);}while(r); do{ *__LONG_IDEPASS= 1 ; -if(!qbevent)break;evnt(946);}while(r); +if(!qbevent)break;evnt(951);}while(r); do{ goto LABEL_FULLRECOMPILE; -if(!qbevent)break;evnt(947);}while(r); +if(!qbevent)break;evnt(952);}while(r); LABEL_IDERET1:; -if(qbevent){evnt(948);r=0;} +if(qbevent){evnt(953);r=0;} do{ qbs_set(__STRING_WHOLELINE,__STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(949);}while(r); +if(!qbevent)break;evnt(954);}while(r); do{ goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(950);}while(r); +if(!qbevent)break;evnt(955);}while(r); LABEL_IDERET2:; -if(qbevent){evnt(951);r=0;} -S_1325:; +if(qbevent){evnt(956);r=0;} +S_1398:; if ((*__LONG_LASTLINERETURN)||new_error){ -if(qbevent){evnt(952);if(r)goto S_1325;} +if(qbevent){evnt(957);if(r)goto S_1398;} do{ goto LABEL_LASTLINERETURN; -if(!qbevent)break;evnt(952);}while(r); +if(!qbevent)break;evnt(957);}while(r); } do{ qbs_set(__STRING_SENDC,func_chr( 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(953);}while(r); +if(!qbevent)break;evnt(958);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(954);}while(r); +if(!qbevent)break;evnt(959);}while(r); } -S_1331:; +S_1404:; if ((-(*__LONG_C== 4 ))||new_error){ -if(qbevent){evnt(957);if(r)goto S_1331;} -S_1332:; +if(qbevent){evnt(962);if(r)goto S_1404;} +S_1405:; if ((-(*__LONG_IDEPASS== 1 ))||new_error){ -if(qbevent){evnt(958);if(r)goto S_1332;} +if(qbevent){evnt(963);if(r)goto S_1405;} do{ qbs_set(__STRING_WHOLELINE,__STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(959);}while(r); +if(!qbevent)break;evnt(964);}while(r); do{ goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(960);}while(r); +if(!qbevent)break;evnt(965);}while(r); } do{ qbs_set(__STRING_A3,__STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(964);}while(r); +if(!qbevent)break;evnt(969);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(965);}while(r); +if(!qbevent)break;evnt(970);}while(r); do{ goto LABEL_IDE4; -if(!qbevent)break;evnt(966);}while(r); +if(!qbevent)break;evnt(971);}while(r); LABEL_IDERET4:; -if(qbevent){evnt(967);r=0;} -S_1339:; +if(qbevent){evnt(972);r=0;} +S_1412:; if ((*__LONG_LASTLINERETURN)||new_error){ -if(qbevent){evnt(968);if(r)goto S_1339;} +if(qbevent){evnt(973);if(r)goto S_1412;} do{ goto LABEL_LASTLINERETURN; -if(!qbevent)break;evnt(968);}while(r); +if(!qbevent)break;evnt(973);}while(r); } do{ qbs_set(__STRING_SENDC,func_chr( 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(969);}while(r); +if(!qbevent)break;evnt(974);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(970);}while(r); +if(!qbevent)break;evnt(975);}while(r); } -S_1345:; +S_1418:; if ((-(*__LONG_C== 5 ))||new_error){ -if(qbevent){evnt(973);if(r)goto S_1345;} +if(qbevent){evnt(978);if(r)goto S_1418;} do{ *__LONG_LASTLINE= 1 ; -if(!qbevent)break;evnt(976);}while(r); +if(!qbevent)break;evnt(980);}while(r); do{ *__LONG_LASTLINERETURN= 1 ; -if(!qbevent)break;evnt(977);}while(r); -S_1348:; +if(!qbevent)break;evnt(981);}while(r); +S_1421:; if ((-(*__LONG_IDEPASS== 1 ))||new_error){ -if(qbevent){evnt(978);if(r)goto S_1348;} +if(qbevent){evnt(982);if(r)goto S_1421;} do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(979);}while(r); +if(!qbevent)break;evnt(983);}while(r); do{ goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(980);}while(r); +if(!qbevent)break;evnt(984);}while(r); } do{ qbs_set(__STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(984);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(985);}while(r); -do{ -goto LABEL_IDE4; -if(!qbevent)break;evnt(986);}while(r); -LABEL_LASTLINERETURN:; -if(qbevent){evnt(987);r=0;} -do{ -*__LONG_LASTLINERETURN= 0 ; if(!qbevent)break;evnt(988);}while(r); do{ -*__LONG_LASTLINE= 0 ; +*__LONG_CONTINUELINEFROM= 0 ; if(!qbevent)break;evnt(989);}while(r); -S_1357:; +do{ +goto LABEL_IDE4; +if(!qbevent)break;evnt(990);}while(r); +LABEL_LASTLINERETURN:; +if(qbevent){evnt(991);r=0;} +do{ +*__LONG_LASTLINERETURN= 0 ; +if(!qbevent)break;evnt(992);}while(r); +do{ +*__LONG_LASTLINE= 0 ; +if(!qbevent)break;evnt(993);}while(r); +S_1430:; if ((-(*__LONG_IDEPASS== 1 ))||new_error){ -if(qbevent){evnt(991);if(r)goto S_1357;} +if(qbevent){evnt(995);if(r)goto S_1430;} do{ *__LONG_IDEPASS= 2 ; -if(!qbevent)break;evnt(993);}while(r); +if(!qbevent)break;evnt(997);}while(r); do{ goto LABEL_IDE3; -if(!qbevent)break;evnt(994);}while(r); +if(!qbevent)break;evnt(998);}while(r); LABEL_IDERET3:; -if(qbevent){evnt(995);r=0;} +if(qbevent){evnt(999);r=0;} do{ qbs_set(__STRING_SENDC,func_chr( 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(996);}while(r); +if(!qbevent)break;evnt(1000);}while(r); do{ *__LONG_FIRSTLINE= 1 ; -if(!qbevent)break;evnt(997);}while(r); +if(!qbevent)break;evnt(1001);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(998);}while(r); +if(!qbevent)break;evnt(1002);}while(r); } do{ goto LABEL_IDE5; -if(!qbevent)break;evnt(1002);}while(r); +if(!qbevent)break;evnt(1006);}while(r); LABEL_IDERET5:; -if(qbevent){evnt(1003);r=0;} +if(qbevent){evnt(1007);r=0;} do{ qbs_set(__STRING_SENDC,func_chr( 6 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1004);}while(r); +if(!qbevent)break;evnt(1008);}while(r); do{ *__LONG_IDECOMPILED= 0 ; -if(!qbevent)break;evnt(1005);}while(r); +if(!qbevent)break;evnt(1009);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1006);}while(r); +if(!qbevent)break;evnt(1010);}while(r); } -S_1369:; +S_1442:; if ((-(*__LONG_C== 9 ))||new_error){ -if(qbevent){evnt(1009);if(r)goto S_1369;} -S_1370:; +if(qbevent){evnt(1013);if(r)goto S_1442;} +S_1443:; if ((-(*__LONG_IDECOMPILED== 0 ))||new_error){ -if(qbevent){evnt(1011);if(r)goto S_1370;} +if(qbevent){evnt(1015);if(r)goto S_1443;} do{ qbs_set(__STRING_FILE,__STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1012);}while(r); +if(!qbevent)break;evnt(1016);}while(r); do{ qbs_set(__STRING_F,__STRING_FILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1015);}while(r); +if(!qbevent)break;evnt(1019);}while(r); do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1017);}while(r); -S_1374:; +if(!qbevent)break;evnt(1021);}while(r); +S_1447:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(1018);if(r)goto S_1374;} -S_1375:; +if(qbevent){evnt(1022);if(r)goto S_1447;} +S_1448:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(1019);if(r)goto S_1375;} +if(qbevent){evnt(1023);if(r)goto S_1448;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1019);}while(r); +if(!qbevent)break;evnt(1023);}while(r); } } do{ *__LONG_I= 1 ; -if(!qbevent)break;evnt(1022);}while(r); +if(!qbevent)break;evnt(1026);}while(r); LABEL_NEXTEXEINDEX:; -if(qbevent){evnt(1023);r=0;} -S_1380:; +if(qbevent){evnt(1027);r=0;} +S_1453:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ -if(qbevent){evnt(1024);if(r)goto S_1380;} +if(qbevent){evnt(1028);if(r)goto S_1453;} do{ *__LONG_E= 0 ; -if(!qbevent)break;evnt(1025);}while(r); +if(!qbevent)break;evnt(1029);}while(r); do{ error_goto_line=5; -if(!qbevent)break;evnt(1026);}while(r); +if(!qbevent)break;evnt(1030);}while(r); do{ sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1027);}while(r); +if(!qbevent)break;evnt(1031);}while(r); do{ error_goto_line=6; -if(!qbevent)break;evnt(1028);}while(r); -S_1385:; +if(!qbevent)break;evnt(1032);}while(r); +S_1458:; if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(1029);if(r)goto S_1385;} +if(qbevent){evnt(1033);if(r)goto S_1458;} do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(1030);}while(r); +if(!qbevent)break;evnt(1034);}while(r); do{ qbs_set(__STRING_FILE,qbs_add(qbs_add(qbs_add(__STRING_F,qbs_new_txt_len("(",1)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1031);}while(r); +if(!qbevent)break;evnt(1035);}while(r); do{ goto LABEL_NEXTEXEINDEX; -if(!qbevent)break;evnt(1032);}while(r); +if(!qbevent)break;evnt(1036);}while(r); } } -S_1391:; +S_1464:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1036);if(r)goto S_1391;} -S_1392:; +if(qbevent){evnt(1040);if(r)goto S_1464;} +S_1465:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(1037);if(r)goto S_1392;} +if(qbevent){evnt(1041);if(r)goto S_1465;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1037);}while(r); +if(!qbevent)break;evnt(1041);}while(r); }else{ do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1037);}while(r); +if(!qbevent)break;evnt(1041);}while(r); } } -S_1398:; +S_1471:; if ((-(*__LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(1041);if(r)goto S_1398;} +if(qbevent){evnt(1045);if(r)goto S_1471;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1042);}while(r); +if(!qbevent)break;evnt(1046);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1043);}while(r); +if(!qbevent)break;evnt(1047);}while(r); } do{ *__LONG_IDEERRORLINE= 0 ; -if(!qbevent)break;evnt(1046);}while(r); +if(!qbevent)break;evnt(1050);}while(r); do{ goto LABEL_IDE6; -if(!qbevent)break;evnt(1047);}while(r); +if(!qbevent)break;evnt(1051);}while(r); LABEL_IDERET6:; -if(qbevent){evnt(1048);r=0;} +if(qbevent){evnt(1052);r=0;} do{ *__LONG_IDECOMPILED= 1 ; -if(!qbevent)break;evnt(1049);}while(r); +if(!qbevent)break;evnt(1053);}while(r); } -S_1406:; +S_1479:; if ((-(*__LONG_IDERUNMODE== 2 ))||new_error){ -if(qbevent){evnt(1052);if(r)goto S_1406;} +if(qbevent){evnt(1056);if(r)goto S_1479;} do{ qbs_set(__STRING_SENDC,func_chr( 11 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1053);}while(r); +if(!qbevent)break;evnt(1057);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1054);}while(r); +if(!qbevent)break;evnt(1058);}while(r); } -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(1058);}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(1058);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip64; -makefit(tqbs); -qbs_print(tqbs,0); -skip64: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1058);}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(1058);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip65; -makefit(tqbs); -qbs_print(tqbs,0); -skip65: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1058);}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(1058);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip66; -makefit(tqbs); -qbs_print(tqbs,0); -skip66: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1058);}while(r); -S_1417:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(1059);if(r)goto S_1417;} -do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass67= 1 )); -if(!qbevent)break;evnt(1061);}while(r); -do{ -qbg_sub_color( 15 ,NULL,NULL,1); -if(!qbevent)break;evnt(1062);}while(r); -} -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(1064);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Starting program...",19)); -if (new_error) goto skip68; -makefit(tqbs); -qbs_print(tqbs,0); -skip68: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1064);}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(1065);}while(r); -S_1424:; +S_1483:; if ((-(*__LONG_IDERUNMODE== 1 ))||new_error){ -if(qbevent){evnt(1069);if(r)goto S_1424;} -S_1425:; +if(qbevent){evnt(1063);if(r)goto S_1483;} +S_1484:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(1070);if(r)goto S_1425;} +if(qbevent){evnt(1064);if(r)goto S_1484;} do{ sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1070);}while(r); +if(!qbevent)break;evnt(1064);}while(r); } -S_1428:; +S_1487:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1071);if(r)goto S_1428;} +if(qbevent){evnt(1065);if(r)goto S_1487;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1071);}while(r); +if(!qbevent)break;evnt(1065);}while(r); } -S_1431:; +S_1490:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(1072);if(r)goto S_1431;} -S_1432:; +if(qbevent){evnt(1066);if(r)goto S_1490;} +S_1491:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||new_error){ -if(qbevent){evnt(1073);if(r)goto S_1432;} +if(qbevent){evnt(1067);if(r)goto S_1491;} do{ sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1074);}while(r); +if(!qbevent)break;evnt(1068);}while(r); }else{ do{ sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1076);}while(r); +if(!qbevent)break;evnt(1070);}while(r); } } -S_1438:; +S_1497:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ -if(qbevent){evnt(1079);if(r)goto S_1438;} +if(qbevent){evnt(1073);if(r)goto S_1497;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1079);}while(r); +if(!qbevent)break;evnt(1073);}while(r); } }else{ -S_1442:; +S_1501:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(1081);if(r)goto S_1442;} +if(qbevent){evnt(1075);if(r)goto S_1501;} do{ sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1081);}while(r); +if(!qbevent)break;evnt(1075);}while(r); } -S_1445:; +S_1504:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1082);if(r)goto S_1445;} +if(qbevent){evnt(1076);if(r)goto S_1504;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1082);}while(r); +if(!qbevent)break;evnt(1076);}while(r); } -S_1448:; +S_1507:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(1083);if(r)goto S_1448;} -S_1449:; +if(qbevent){evnt(1077);if(r)goto S_1507;} +S_1508:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LASTBINARYGENERATED,__STRING_PATH__ASCII_CHR_046__EXE->len),__STRING_PATH__ASCII_CHR_046__EXE)))||new_error){ -if(qbevent){evnt(1084);if(r)goto S_1449;} +if(qbevent){evnt(1078);if(r)goto S_1508;} do{ sub_shell(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1085);}while(r); +if(!qbevent)break;evnt(1079);}while(r); }else{ do{ sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1087);}while(r); +if(!qbevent)break;evnt(1081);}while(r); } } -S_1455:; +S_1514:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ -if(qbevent){evnt(1090);if(r)goto S_1455;} +if(qbevent){evnt(1084);if(r)goto S_1514;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1090);}while(r); +if(!qbevent)break;evnt(1084);}while(r); } -S_1458:; +S_1517:; do{ -if(qbevent){evnt(1091);if(r)goto S_1458;} -S_1459:; -dl_continue_71:; +if(qbevent){evnt(1085);if(r)goto S_1517;} +S_1518:; +dl_continue_62:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); -dl_exit_71:; -if(qbevent){evnt(1091);if(r)goto S_1459;} -S_1460:; +dl_exit_62:; +if(qbevent){evnt(1085);if(r)goto S_1518;} +S_1519:; do{ -if(qbevent){evnt(1092);if(r)goto S_1460;} -S_1461:; -dl_continue_72:; +if(qbevent){evnt(1086);if(r)goto S_1519;} +S_1520:; +dl_continue_63:; }while((!(-(func__keyhit()== 0 )))&&(!new_error)); -dl_exit_72:; -if(qbevent){evnt(1092);if(r)goto S_1461;} +dl_exit_63:; +if(qbevent){evnt(1086);if(r)goto S_1520;} } -S_1463:; +S_1522:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(1095);if(r)goto S_1463;} +if(qbevent){evnt(1089);if(r)goto S_1522;} do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass73= 0 )); -if(!qbevent)break;evnt(1097);}while(r); +*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass64= 0 )); +if(!qbevent)break;evnt(1091);}while(r); } +S_1525:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(1094);if(r)goto S_1525;} +do{ +qbs_set(__STRING_SENDC,func_chr( 254 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1095);}while(r); +}else{ do{ qbs_set(__STRING_SENDC,func_chr( 6 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1100);}while(r); +if(!qbevent)break;evnt(1097);}while(r); +} do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1101);}while(r); +if(!qbevent)break;evnt(1099);}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19)); -if (new_error) goto skip74; +if (new_error) goto skip65; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip74: +skip65: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1104);}while(r); +if(!qbevent)break;evnt(1102);}while(r); do{ sub_end(); -if(!qbevent)break;evnt(1104);}while(r); +if(!qbevent)break;evnt(1102);}while(r); LABEL_IDEERROR:; -if(qbevent){evnt(1106);r=0;} -S_1471:; +if(qbevent){evnt(1104);r=0;} +S_1534:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||new_error){ -if(qbevent){evnt(1107);if(r)goto S_1471;} +if(qbevent){evnt(1105);if(r)goto S_1534;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_new_txt_len("Compiler error (check for syntax errors) (Reference:",52)); +qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1108);}while(r); +S_1536:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||new_error){ +if(qbevent){evnt(1109);if(r)goto S_1536;} +do{ +qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1109);}while(r); +} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_new_txt_len("Compiler error (check for syntax errors) (",42),__STRING_TERRMSG),qbs_new_txt_len(":",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1110);}while(r); -S_1473:; +S_1540:; if ((get_error_err())||new_error){ -if(qbevent){evnt(1111);if(r)goto S_1473;} +if(qbevent){evnt(1111);if(r)goto S_1540;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass75=get_error_err()))),qbs_new_txt_len("-",1))); +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass66=get_error_err()))),qbs_new_txt_len("-",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1111);}while(r); } -S_1476:; +S_1543:; if ((func__errorline())||new_error){ -if(qbevent){evnt(1112);if(r)goto S_1476;} +if(qbevent){evnt(1112);if(r)goto S_1543;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass76=func__errorline())))); +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass67=func__errorline())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1112);}while(r); } -S_1479:; +S_1546:; if ((func__inclerrorline())||new_error){ -if(qbevent){evnt(1113);if(r)goto S_1479;} +if(qbevent){evnt(1113);if(r)goto S_1546;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass77=func__inclerrorline())))); +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass68=func__inclerrorline())))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1113);}while(r); } @@ -6789,9 +6612,9 @@ do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1114);}while(r); -S_1483:; +S_1550:; if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(1115);if(r)goto S_1483;} +if(qbevent){evnt(1115);if(r)goto S_1550;} do{ qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); qbs_cleanup(qbs_tmp_base,0); @@ -6807,20 +6630,27 @@ goto LABEL_SENDCOMMAND; if(!qbevent)break;evnt(1119);}while(r); LABEL_NOIDE:; if(qbevent){evnt(1122);r=0;} +S_1556:; +if (((((-(*__BYTE_QB64VERSIONPRINTED== 0 ))|(-(*__LONG_CONSOLEMODE== 0 ))))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(1123);if(r)goto S_1556;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(1124);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 COMPILER V",15),__STRING_VERSION)); -if (new_error) goto skip78; +qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 Compiler V",15),__STRING_VERSION)); +if (new_error) goto skip69; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip78: +skip69: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1123);}while(r); -S_1490:; +if(!qbevent)break;evnt(1125);}while(r); +} +S_1560:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1125);if(r)goto S_1490;} +if(qbevent){evnt(1128);if(r)goto S_1560;} do{ qbs_print(qbs_new_txt_len("COMPILE (.bas)>",15),0); qbs_input_variabletypes[1]=ISSTRING+512; @@ -6828,1219 +6658,1541 @@ qbs_input_variableoffsets[1]=__STRING_F; qbs_input(1,0); if (stop_program) end(); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1126);}while(r); +if(!qbevent)break;evnt(1129);}while(r); }else{ do{ qbs_set(__STRING_F,__STRING_CMDLINEFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1128);}while(r); +if(!qbevent)break;evnt(1131);}while(r); } do{ qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1131);}while(r); -S_1496:; +if(!qbevent)break;evnt(1134);}while(r); +S_1566:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(1133);if(r)goto S_1496;} +if(qbevent){evnt(1136);if(r)goto S_1566;} do{ qbs_set(__STRING_F,qbs_add(__STRING_F,qbs_new_txt_len(".bas",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1133);}while(r); +if(!qbevent)break;evnt(1136);}while(r); } do{ qbs_set(__STRING_SOURCEFILE,__STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1135);}while(r); +if(!qbevent)break;evnt(1138);}while(r); do{ -qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1137);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_set(__STRING_CMDLINEFILE,__STRING_SOURCEFILE); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1139);}while(r); do{ -qbs_set(__STRING_CURRENTDIR,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1140);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); +qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1141);}while(r); -S_1504:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||new_error){ -if(qbevent){evnt(1142);if(r)goto S_1504;} -S_1505:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||new_error){ -if(qbevent){evnt(1143);if(r)goto S_1505;} do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip80: -qbs_free(tqbs); +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1143);}while(r); +do{ +qbs_set(__STRING_CURRENTDIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1144);}while(r); do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1145);}while(r); +S_1575:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||new_error){ +if(qbevent){evnt(1146);if(r)goto S_1575;} +S_1576:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||new_error){ +if(qbevent){evnt(1147);if(r)goto S_1576;} +do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("CANNOT LOCATE SOURCE FILE: ",27),__STRING_SOURCEFILE)); -if (new_error) goto skip81; +qbs_print(nothingstring,1); +skip71: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1148);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE)); +if (new_error) goto skip72; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip81: +skip72: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1145);}while(r); -S_1508:; +if(!qbevent)break;evnt(1149);}while(r); +S_1579:; if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(1146);if(r)goto S_1508;} +if(qbevent){evnt(1150);if(r)goto S_1579;} do{ -if(qbevent){evnt(1146);} +if(qbevent){evnt(1150);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); -if(!qbevent)break;evnt(1146);}while(r); +if(!qbevent)break;evnt(1150);}while(r); } do{ -if(qbevent){evnt(1147);} +if(qbevent){evnt(1151);} exit_code= 1 ; sub_end(); -if(!qbevent)break;evnt(1147);}while(r); +if(!qbevent)break;evnt(1151);}while(r); } do{ sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1149);}while(r); +if(!qbevent)break;evnt(1153);}while(r); do{ qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1150);}while(r); -S_1515:; +if(!qbevent)break;evnt(1154);}while(r); +S_1586:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||new_error){ -if(qbevent){evnt(1151);if(r)goto S_1515;} +if(qbevent){evnt(1155);if(r)goto S_1586;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,qbs_add(__STRING_PATH__ASCII_CHR_046__SOURCE,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1151);}while(r); +if(!qbevent)break;evnt(1155);}while(r); } do{ sub_chdir(__STRING_CURRENTDIR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1152);}while(r); +if(!qbevent)break;evnt(1156);}while(r); } -S_1520:; +S_1591:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(1154);if(r)goto S_1520;} +if(qbevent){evnt(1158);if(r)goto S_1591;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1154);}while(r); +if(!qbevent)break;evnt(1158);}while(r); } -S_1523:; +S_1594:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1155);if(r)goto S_1523;} -S_1524:; +if(qbevent){evnt(1159);if(r)goto S_1594;} +S_1595:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(1156);if(r)goto S_1524;} +if(qbevent){evnt(1160);if(r)goto S_1595;} do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1156);}while(r); +if(!qbevent)break;evnt(1160);}while(r); }else{ do{ qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1156);}while(r); +if(!qbevent)break;evnt(1160);}while(r); } } -S_1530:; -fornext_value83=__STRING_F->len; -fornext_finalvalue83= 1 ; -fornext_step83= -1 ; -if (fornext_step83<0) fornext_step_negative83=1; else fornext_step_negative83=0; -if (new_error) goto fornext_error83; -goto fornext_entrylabel83; +S_1601:; +fornext_value74=__STRING_F->len; +fornext_finalvalue74= 1 ; +fornext_step74= -1 ; +if (fornext_step74<0) fornext_step_negative74=1; else fornext_step_negative74=0; +if (new_error) goto fornext_error74; +goto fornext_entrylabel74; while(1){ -fornext_value83=fornext_step83+(*__LONG_X); -fornext_entrylabel83: -*__LONG_X=fornext_value83; +fornext_value74=fornext_step74+(*__LONG_X); +fornext_entrylabel74: +*__LONG_X=fornext_value74; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative83){ -if (fornext_value83fornext_finalvalue83) break; +if (fornext_value74>fornext_finalvalue74) break; } -fornext_error83:; -if(qbevent){evnt(1159);if(r)goto S_1530;} +fornext_error74:; +if(qbevent){evnt(1163);if(r)goto S_1601;} do{ qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1160);}while(r); -S_1532:; +if(!qbevent)break;evnt(1164);}while(r); +S_1603:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(__STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(1161);if(r)goto S_1532;} +if(qbevent){evnt(1165);if(r)goto S_1603;} do{ qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1162);}while(r); +if(!qbevent)break;evnt(1166);}while(r); do{ -goto fornext_exit_82; -if(!qbevent)break;evnt(1163);}while(r); +goto fornext_exit_73; +if(!qbevent)break;evnt(1167);}while(r); } -fornext_continue_82:; +fornext_continue_73:; } -fornext_exit_82:; +fornext_exit_73:; do{ qbs_set(__STRING_FILE,__STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1166);}while(r); +if(!qbevent)break;evnt(1170);}while(r); LABEL_FULLRECOMPILE:; -if(qbevent){evnt(1171);r=0;} +if(qbevent){evnt(1175);r=0;} do{ *__LONG_BU_DEPENDENCY_CONSOLE_ONLY=((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]; -if(!qbevent)break;evnt(1173);}while(r); -S_1539:; -fornext_value87= 1 ; -fornext_finalvalue87=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1); -fornext_step87= 1 ; -if (fornext_step87<0) fornext_step_negative87=1; else fornext_step_negative87=0; -if (new_error) goto fornext_error87; -goto fornext_entrylabel87; +if(!qbevent)break;evnt(1177);}while(r); +S_1610:; +fornext_value78= 1 ; +fornext_finalvalue78=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1); +fornext_step78= 1 ; +if (fornext_step78<0) fornext_step_negative78=1; else fornext_step_negative78=0; +if (new_error) goto fornext_error78; +goto fornext_entrylabel78; while(1){ -fornext_value87=fornext_step87+(*__LONG_I); -fornext_entrylabel87: -*__LONG_I=fornext_value87; -if (fornext_step_negative87){ -if (fornext_value87fornext_finalvalue87) break; +if (fornext_value78>fornext_finalvalue78) break; } -fornext_error87:; -if(qbevent){evnt(1174);if(r)goto S_1539;} +fornext_error78:; +if(qbevent){evnt(1178);if(r)goto S_1610;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1174);}while(r); -fornext_continue_86:; +if(!qbevent)break;evnt(1178);}while(r); +fornext_continue_77:; } -fornext_exit_86:; +fornext_exit_77:; do{ tmp_long=array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]=*__LONG_BU_DEPENDENCY_CONSOLE_ONLY& 2 ; -if(!qbevent)break;evnt(1175);}while(r); +if(!qbevent)break;evnt(1179);}while(r); do{ *__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(1177);}while(r); -S_1544:; -fornext_value89= 1 ; -fornext_finalvalue89= 255 ; -fornext_step89= 1 ; -if (fornext_step89<0) fornext_step_negative89=1; else fornext_step_negative89=0; -if (new_error) goto fornext_error89; -goto fornext_entrylabel89; +if(!qbevent)break;evnt(1181);}while(r); +S_1615:; +fornext_value80= 1 ; +fornext_finalvalue80= 255 ; +fornext_step80= 1 ; +if (fornext_step80<0) fornext_step_negative80=1; else fornext_step_negative80=0; +if (new_error) goto fornext_error80; +goto fornext_entrylabel80; while(1){ -fornext_value89=fornext_step89+(*__LONG_CLOSEALL); -fornext_entrylabel89: -*__LONG_CLOSEALL=fornext_value89; -if (fornext_step_negative89){ -if (fornext_value89fornext_finalvalue89) break; +if (fornext_value80>fornext_finalvalue80) break; } -fornext_error89:; -if(qbevent){evnt(1179);if(r)goto S_1544;} +fornext_error80:; +if(qbevent){evnt(1183);if(r)goto S_1615;} do{ sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(1179);}while(r); -fornext_continue_88:; +if(!qbevent)break;evnt(1183);}while(r); +fornext_continue_79:; } -fornext_exit_88:; +fornext_exit_79:; do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1181);}while(r); +if(!qbevent)break;evnt(1185);}while(r); do{ *__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(1183);}while(r); +if(!qbevent)break;evnt(1187);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)), 4 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1183);}while(r); +if(!qbevent)break;evnt(1187);}while(r); do{ sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(1183);}while(r); -S_1551:; +if(!qbevent)break;evnt(1187);}while(r); +S_1622:; if (( 0 )||new_error){ -if(qbevent){evnt(1185);if(r)goto S_1551;} +if(qbevent){evnt(1189);if(r)goto S_1622;} do{ sub_close( 9 ,1); -if(!qbevent)break;evnt(1185);}while(r); +if(!qbevent)break;evnt(1189);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 4 ,NULL,NULL, 9 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1185);}while(r); +if(!qbevent)break;evnt(1189);}while(r); } -S_1555:; -fornext_value91= 1 ; -fornext_finalvalue91=*__LONG_IDS_MAX+ 1 ; -fornext_step91= 1 ; -if (fornext_step91<0) fornext_step_negative91=1; else fornext_step_negative91=0; -if (new_error) goto fornext_error91; -goto fornext_entrylabel91; +S_1626:; +fornext_value82= 1 ; +fornext_finalvalue82=*__LONG_IDS_MAX+ 1 ; +fornext_step82= 1 ; +if (fornext_step82<0) fornext_step_negative82=1; else fornext_step_negative82=0; +if (new_error) goto fornext_error82; +goto fornext_entrylabel82; while(1){ -fornext_value91=fornext_step91+(*__LONG_I); -fornext_entrylabel91: -*__LONG_I=fornext_value91; -if (fornext_step_negative91){ -if (fornext_value91fornext_finalvalue91) break; +if (fornext_value82>fornext_finalvalue82) break; } -fornext_error91:; -if(qbevent){evnt(1187);if(r)goto S_1555;} +fornext_error82:; +if(qbevent){evnt(1191);if(r)goto S_1626;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1188);}while(r); +if(!qbevent)break;evnt(1192);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1189);}while(r); +if(!qbevent)break;evnt(1193);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[tmp_long*100],100,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1190);}while(r); -fornext_continue_90:; +if(!qbevent)break;evnt(1194);}while(r); +fornext_continue_81:; } -fornext_exit_90:; +fornext_exit_81:; do{ *__LONG_LASTUNRESOLVED= -1 ; -if(!qbevent)break;evnt(1196);}while(r); +if(!qbevent)break;evnt(1200);}while(r); do{ *__INTEGER_SFLISTN= -1 ; -if(!qbevent)break;evnt(1197);}while(r); +if(!qbevent)break;evnt(1201);}while(r); do{ qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1199);}while(r); -do{ -*__LONG_DESIREDVIRTUALKEYBOARDSTATE= 0 ; -if(!qbevent)break;evnt(1201);}while(r); -S_1564:; -if ((*__LONG_MAKEANDROID)||new_error){ -if(qbevent){evnt(1202);if(r)goto S_1564;} -do{ -*__LONG_DESIREDVIRTUALKEYBOARDSTATE= 1 ; -if(!qbevent)break;evnt(1202);}while(r); -} -do{ -*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE= 0 ; if(!qbevent)break;evnt(1203);}while(r); -LABEL_RECOMPILE:; -if(qbevent){evnt(1205);r=0;} do{ - -if (__ARRAY_STRING_INSTALLFILES[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILES)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFILES[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILES[0])); -} -__ARRAY_STRING_INSTALLFILES[4]= 0 ; -__ARRAY_STRING_INSTALLFILES[5]=( 0 )-__ARRAY_STRING_INSTALLFILES[4]+1; -__ARRAY_STRING_INSTALLFILES[6]=1; -__ARRAY_STRING_INSTALLFILES[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFILES[5]*8); -if (!__ARRAY_STRING_INSTALLFILES[0]) error(257); -__ARRAY_STRING_INSTALLFILES[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -if (__ARRAY_STRING_INSTALLFILES[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} +*__LONG_VWATCHDESIREDSTATE= 0 ; +if(!qbevent)break;evnt(1205);}while(r); +do{ +*__LONG_VWATCHRECOMPILEATTEMPTS= 0 ; +if(!qbevent)break;evnt(1206);}while(r); +do{ +*__LONG_QB64PREFIX_SET_DESIREDSTATE= 0 ; if(!qbevent)break;evnt(1208);}while(r); do{ - -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILESSOURCELOCATION)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0])); -} -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4]= 0 ; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]=( 0 )-__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4]+1; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[6]=1; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]*8); -if (!__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]) error(257); -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} +*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS= 0 ; if(!qbevent)break;evnt(1209);}while(r); do{ - -if (__ARRAY_STRING_INSTALLFILESIN[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILESIN)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFILESIN[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILESIN[0])); -} -__ARRAY_STRING_INSTALLFILESIN[4]= 0 ; -__ARRAY_STRING_INSTALLFILESIN[5]=( 0 )-__ARRAY_STRING_INSTALLFILESIN[4]+1; -__ARRAY_STRING_INSTALLFILESIN[6]=1; -__ARRAY_STRING_INSTALLFILESIN[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFILESIN[5]*8); -if (!__ARRAY_STRING_INSTALLFILESIN[0]) error(257); -__ARRAY_STRING_INSTALLFILESIN[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -if (__ARRAY_STRING_INSTALLFILESIN[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(1210);}while(r); -do{ - -if (__ARRAY_STRING_INSTALLFOLDER[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDER)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFOLDER[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDER[0])); -} -__ARRAY_STRING_INSTALLFOLDER[4]= 0 ; -__ARRAY_STRING_INSTALLFOLDER[5]=( 0 )-__ARRAY_STRING_INSTALLFOLDER[4]+1; -__ARRAY_STRING_INSTALLFOLDER[6]=1; -__ARRAY_STRING_INSTALLFOLDER[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFOLDER[5]*8); -if (!__ARRAY_STRING_INSTALLFOLDER[0]) error(257); -__ARRAY_STRING_INSTALLFOLDER[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -if (__ARRAY_STRING_INSTALLFOLDER[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} +*__LONG_OPEX_DESIREDSTATE= 0 ; if(!qbevent)break;evnt(1211);}while(r); do{ - -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0])); -} -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4]= 0 ; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]=( 0 )-__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4]+1; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[6]=1; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]*8); -if (!__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]) error(257); -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} +*__LONG_OPEX_RECOMPILEATTEMPTS= 0 ; if(!qbevent)break;evnt(1212);}while(r); do{ - -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDERIN)[8])->id=(++mem_lock_id); -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDERIN[0])); -} -__ARRAY_STRING_INSTALLFOLDERIN[4]= 0 ; -__ARRAY_STRING_INSTALLFOLDERIN[5]=( 0 )-__ARRAY_STRING_INSTALLFOLDERIN[4]+1; -__ARRAY_STRING_INSTALLFOLDERIN[6]=1; -__ARRAY_STRING_INSTALLFOLDERIN[0]=(ptrszint)malloc(__ARRAY_STRING_INSTALLFOLDERIN[5]*8); -if (!__ARRAY_STRING_INSTALLFOLDERIN[0]) error(257); -__ARRAY_STRING_INSTALLFOLDERIN[2]|=1; -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&4){ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); -}else{ -while(tmp_long--) ((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]=(uint64)qbs_new(0,0); -} -} -if(!qbevent)break;evnt(1213);}while(r); +*__LONG_OPEXARRAY_DESIREDSTATE= 0 ; +if(!qbevent)break;evnt(1214);}while(r); do{ -*__LONG_VIRTUALKEYBOARDSTATE=*__LONG_DESIREDVIRTUALKEYBOARDSTATE; -if(!qbevent)break;evnt(1216);}while(r); +*__LONG_OPEXARRAY_RECOMPILEATTEMPTS= 0 ; +if(!qbevent)break;evnt(1215);}while(r); +LABEL_RECOMPILE:; +if(qbevent){evnt(1217);r=0;} do{ -*__LONG_LASTLINERETURN= 0 ; +*__LONG_VWATCHON=*__LONG_VWATCHDESIREDSTATE; if(!qbevent)break;evnt(1218);}while(r); do{ -*__LONG_LASTLINE= 0 ; +SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass83= -1 )); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1219);}while(r); do{ -*__LONG_FIRSTLINE= 1 ; -if(!qbevent)break;evnt(1220);}while(r); +*__LONG_QB64PREFIX_SET=*__LONG_QB64PREFIX_SET_DESIREDSTATE; +if(!qbevent)break;evnt(1221);}while(r); do{ -*__LONG_RESIZE= 0 ; +qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1222);}while(r); do{ -*__LONG_RESIZE_SCALE= 0 ; -if(!qbevent)break;evnt(1223);}while(r); +*__BYTE_OPTIONEXPLICIT=*__LONG_OPEX_DESIREDSTATE; +if(!qbevent)break;evnt(1224);}while(r); +S_1647:; +if (((-(*__BYTE_OPTIONEXPLICIT_CMD== -1 ))&(-(*__LONG_NOIDEMODE== 1 )))||new_error){ +if(qbevent){evnt(1225);if(r)goto S_1647;} do{ -*__LONG_USEGL= 0 ; +*__BYTE_OPTIONEXPLICIT= -1 ; if(!qbevent)break;evnt(1225);}while(r); +} do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(1227);}while(r); +*__BYTE_OPTIONEXPLICITARRAY=*__LONG_OPEXARRAY_DESIREDSTATE; +if(!qbevent)break;evnt(1226);}while(r); do{ -SUB_HASHCLEAR(); +*__LONG_LASTLINERETURN= 0 ; +if(!qbevent)break;evnt(1228);}while(r); +do{ +*__LONG_LASTLINE= 0 ; if(!qbevent)break;evnt(1229);}while(r); do{ -*__LONG_F= 4 + 8 ; +*__LONG_FIRSTLINE= 1 ; +if(!qbevent)break;evnt(1230);}while(r); +do{ +*__LONG_RESIZE= 0 ; +if(!qbevent)break;evnt(1232);}while(r); +do{ +*__LONG_RESIZE_SCALE= 0 ; if(!qbevent)break;evnt(1233);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass92= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1234);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass93= 0 )); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_USEGL= 0 ; if(!qbevent)break;evnt(1235);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass94= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1236);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass95= 0 )); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_ERROR_HAPPENED= 0 ; if(!qbevent)break;evnt(1237);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass96= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1238);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass97= 0 )); -qbs_cleanup(qbs_tmp_base,0); +SUB_HASHCLEAR(); if(!qbevent)break;evnt(1239);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass98= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1240);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass99= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1241);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass100= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1242);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass101= 0 )); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_F= 4 + 8 ; if(!qbevent)break;evnt(1243);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass102= 0 )); +SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass84= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1244);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass103= 0 )); +SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass85= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1245);}while(r); do{ -*__LONG_F= 16 + 8 ; +SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass86= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1246);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass87= 0 )); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1247);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass104= 0 )); +SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass88= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1248);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass105= 0 )); +SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass89= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1249);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass106= 0 )); +SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass90= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1250);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass107= 0 )); +SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass91= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1251);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass108= 0 )); +SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass92= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1252);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass109= 0 )); +SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass93= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1253);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass110= 0 )); +SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass94= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1254);}while(r); do{ -*__LONG_F= 8 + 32 ; -if(!qbevent)break;evnt(1256);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass111= 0 )); +SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass95= 0 )); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1255);}while(r); +do{ +*__LONG_F= 16 + 8 ; if(!qbevent)break;evnt(1257);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass112= 0 )); +SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass96= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1258);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass113= 0 )); +SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass97= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1259);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass114= 0 )); +SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass98= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1260);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass115= 0 )); +SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass99= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1261);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass116= 0 )); +SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass100= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1262);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass117= 0 )); +SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass101= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1263);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass118= 0 )); +SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass102= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1264);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass119= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1265);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass120= 0 )); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_F= 8 + 32 ; if(!qbevent)break;evnt(1266);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass121= 0 )); +SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass103= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1267);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass104= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1268);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass122= 0 )); +SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass105= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1269);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass123= 0 )); +SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass106= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1270);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass107= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1271);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass124= 0 )); +SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass108= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1272);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass125= 0 )); +SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass109= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1273);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass126= 0 )); +SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass110= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1274);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass127= 0 )); +SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass111= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1275);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass128= 0 )); +SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass112= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1276);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass129= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1277);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass130= 0 )); +SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass113= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1278);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass131= 0 )); +SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass114= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1279);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass132= 0 )); +SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass115= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1280);}while(r); +if(!qbevent)break;evnt(1281);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass133= 0 )); +SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass116= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1282);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass134= 0 )); +SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass117= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1283);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass118= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1284);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass135= 0 )); +SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass119= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1285);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass120= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1286);}while(r); do{ -*__LONG_F= 8 + 8192 + 16384 ; +SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass121= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1287);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass122= 0 )); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1288);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass136= 0 )); +SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass123= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1289);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass124= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1290);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass125= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1292);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass137= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1293);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass138=*__LONG_F- 8192 ),&(pass139= 0 )); +SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass126= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1294);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass140= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1295);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass141= 0 )); +SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass127= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1296);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass142= 0 )); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_F= 8 + 8192 + 16384 ; if(!qbevent)break;evnt(1298);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass143= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1299);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass144= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1300);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass145= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1301);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass146= 0 )); +SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass128= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1302);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass147= 0 )); +SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass129= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1303);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass148= 0 )); +SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass130=*__LONG_F- 8192 ),&(pass131= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1304);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass149= 0 )); +SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass132= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1305);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass150= 0 )); +SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass133= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1306);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass151=*__LONG_F- 8192 ),&(pass152= 0 )); +SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass134= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1307);}while(r); +if(!qbevent)break;evnt(1308);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass153=*__LONG_F- 8192 ),&(pass154= 0 )); +SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass135= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1309);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass155= 0 )); +SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass136= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1310);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass156= 0 )); +SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass137= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1311);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass157= 0 )); +SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass138= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1312);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass158=*__LONG_F- 8192 ),&(pass159= 0 )); +SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass139= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1313);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass160=*__LONG_F- 8192 ),&(pass161= 0 )); +SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass140= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1314);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass141= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1315);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass162= 0 )); +SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass142= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1316);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass163= 0 )); +SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass143=*__LONG_F- 8192 ),&(pass144= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1318);}while(r); +if(!qbevent)break;evnt(1317);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass164= 0 )); +SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass145=*__LONG_F- 8192 ),&(pass146= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1319);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass165=*__LONG_F- 8192 - 16384 ),&(pass166= 0 )); +SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass147= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1320);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass148= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1321);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass149= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1322);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass167= 0 )); +SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass150=*__LONG_F- 8192 ),&(pass151= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1323);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass168=*__LONG_F- 8192 - 16384 ),&(pass169= 0 )); +SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass152=*__LONG_F- 8192 ),&(pass153= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1325);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass170=*__LONG_F- 8192 ),&(pass171= 0 )); +SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass154= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1327);}while(r); +if(!qbevent)break;evnt(1326);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass172=*__LONG_F- 8192 ),&(pass173= 0 )); +SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass155= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1328);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass174=*__LONG_F- 8192 ),&(pass175= 0 )); +SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass156= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1329);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass176=*__LONG_F- 8192 ),&(pass177= 0 )); +SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass157=*__LONG_F- 8192 - 16384 ),&(pass158= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1332);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass178=*__LONG_F- 8192 - 16384 ),&(pass179= 0 )); +SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass159= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1333);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass160=*__LONG_F- 8192 - 16384 ),&(pass161= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1335);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass180=*__LONG_F- 8192 - 16384 ),&(pass181= 0 )); +SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass162=*__LONG_F- 8192 ),&(pass163= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1336);}while(r); +if(!qbevent)break;evnt(1337);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass182= 0 )); +SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass164=*__LONG_F- 8192 ),&(pass165= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1338);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass166=*__LONG_F- 8192 ),&(pass167= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1339);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass183= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1340);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass184=*__LONG_F- 8192 ),&(pass185= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1341);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass186=*__LONG_F- 8192 ),&(pass187= 0 )); +SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass168=*__LONG_F- 8192 ),&(pass169= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1342);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass188=*__LONG_F- 8192 ),&(pass189= 0 )); +SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass170=*__LONG_F- 8192 - 16384 ),&(pass171= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1343);}while(r); +if(!qbevent)break;evnt(1345);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass190=*__LONG_F- 8192 ),&(pass191= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1344);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass192= 0 )); +SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass172=*__LONG_F- 8192 - 16384 ),&(pass173= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1346);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass193= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1347);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass194= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1348);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass195=*__LONG_F- 8192 - 16384 ),&(pass196= 0 )); +SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass174= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1349);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass197= 0 )); +SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass175= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1350);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass198=*__LONG_F- 8192 - 16384 ),&(pass199= 0 )); +SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass176=*__LONG_F- 8192 ),&(pass177= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1351);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass200= 0 )); +SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass178=*__LONG_F- 8192 ),&(pass179= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1352);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass180=*__LONG_F- 8192 ),&(pass181= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1353);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass201=*__LONG_F- 8192 - 16384 ),&(pass202= 0 )); +SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass182=*__LONG_F- 8192 ),&(pass183= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1354);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass203=*__LONG_F- 8192 ),&(pass204= 0 )); +SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass184= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1355);}while(r); +if(!qbevent)break;evnt(1356);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass205= 0 )); +SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass185= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1357);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass206= 0 )); +SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass186= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1358);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass207= 0 )); +SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass187=*__LONG_F- 8192 - 16384 ),&(pass188= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1359);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass189= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1360);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass190=*__LONG_F- 8192 - 16384 ),&(pass191= 0 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(1361);}while(r); do{ -SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass208= 0 )); +SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass192= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1362);}while(r); +if(!qbevent)break;evnt(1363);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass193=*__LONG_F- 8192 - 16384 ),&(pass194= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1364);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass195=*__LONG_F- 8192 ),&(pass196= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1365);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass197= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1367);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass198= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1368);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass199= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1371);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass200= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1372);}while(r); do{ *__LONG_CONSOLE= 0 ; -if(!qbevent)break;evnt(1374);}while(r); +if(!qbevent)break;evnt(1384);}while(r); do{ *__LONG_SCREENHIDE= 0 ; -if(!qbevent)break;evnt(1375);}while(r); +if(!qbevent)break;evnt(1385);}while(r); +do{ +*__LONG_ASSERTS= 0 ; +if(!qbevent)break;evnt(1386);}while(r); do{ *__LONG_RESOLVESTATICFUNCTIONS= 0 ; -if(!qbevent)break;evnt(1376);}while(r); +if(!qbevent)break;evnt(1387);}while(r); do{ *__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(1377);}while(r); +if(!qbevent)break;evnt(1388);}while(r); do{ *__INTEGER_DIMSFARRAY= 0 ; -if(!qbevent)break;evnt(1378);}while(r); +if(!qbevent)break;evnt(1389);}while(r); do{ *__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(1379);}while(r); +if(!qbevent)break;evnt(1390);}while(r); do{ *__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(1380);}while(r); +if(!qbevent)break;evnt(1391);}while(r); do{ qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1381);}while(r); +if(!qbevent)break;evnt(1392);}while(r); do{ *__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(1382);}while(r); +if(!qbevent)break;evnt(1393);}while(r); do{ *__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(1383);}while(r); +if(!qbevent)break;evnt(1394);}while(r); do{ *__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(1383);}while(r); +if(!qbevent)break;evnt(1394);}while(r); do{ *__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(1383);}while(r); +if(!qbevent)break;evnt(1394);}while(r); do{ *__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(1383);}while(r); +if(!qbevent)break;evnt(1394);}while(r); do{ *__LONG_COMMONOPTION= 0 ; -if(!qbevent)break;evnt(1383);}while(r); +if(!qbevent)break;evnt(1394);}while(r); do{ qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1384);}while(r); +if(!qbevent)break;evnt(1395);}while(r); do{ qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1384);}while(r); +if(!qbevent)break;evnt(1395);}while(r); do{ *__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(1385);}while(r); +if(!qbevent)break;evnt(1396);}while(r); do{ *__LONG_NLABELS= 0 ; -if(!qbevent)break;evnt(1386);}while(r); +if(!qbevent)break;evnt(1397);}while(r); do{ *__LONG_DYNSCOPE= 0 ; -if(!qbevent)break;evnt(1387);}while(r); +if(!qbevent)break;evnt(1398);}while(r); do{ *__LONG_ELSEFOLLOWUP= 0 ; -if(!qbevent)break;evnt(1388);}while(r); +if(!qbevent)break;evnt(1399);}while(r); do{ *__LONG_ONTIMERID= 0 ; -if(!qbevent)break;evnt(1389);}while(r); +if(!qbevent)break;evnt(1400);}while(r); do{ *__LONG_ONKEYID= 0 ; -if(!qbevent)break;evnt(1389);}while(r); +if(!qbevent)break;evnt(1400);}while(r); do{ *__LONG_ONSTRIGID= 0 ; -if(!qbevent)break;evnt(1389);}while(r); +if(!qbevent)break;evnt(1400);}while(r); do{ qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1390);}while(r); +if(!qbevent)break;evnt(1401);}while(r); do{ *__LONG_COMMONARRAYLISTN= 0 ; -if(!qbevent)break;evnt(1390);}while(r); +if(!qbevent)break;evnt(1401);}while(r); do{ qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1391);}while(r); +if(!qbevent)break;evnt(1402);}while(r); do{ *__LONG_STATICARRAYLISTN= 0 ; -if(!qbevent)break;evnt(1391);}while(r); +if(!qbevent)break;evnt(1402);}while(r); do{ *__LONG_FOOINDWEL= 0 ; -if(!qbevent)break;evnt(1392);}while(r); +if(!qbevent)break;evnt(1403);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1393);}while(r); +if(!qbevent)break;evnt(1404);}while(r); do{ *__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(1394);}while(r); +if(!qbevent)break;evnt(1405);}while(r); do{ *__LONG_NOCHECKS= 0 ; -if(!qbevent)break;evnt(1395);}while(r); +if(!qbevent)break;evnt(1406);}while(r); do{ *__LONG_INCLEVEL= 0 ; -if(!qbevent)break;evnt(1396);}while(r); +if(!qbevent)break;evnt(1407);}while(r); do{ *__LONG_ERRORLINEININCLUDE= 0 ; -if(!qbevent)break;evnt(1397);}while(r); +if(!qbevent)break;evnt(1408);}while(r); do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1398);}while(r); -do{ -*__LONG_NEXTRUNLINEINDEX= 1 ; -if(!qbevent)break;evnt(1399);}while(r); -do{ -*__LONG_LASTTYPE= 0 ; -if(!qbevent)break;evnt(1400);}while(r); -do{ -*__LONG_LASTTYPEELEMENT= 0 ; -if(!qbevent)break;evnt(1401);}while(r); -do{ -*__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(1402);}while(r); -do{ -*__LONG_CONSTLAST= -1 ; -if(!qbevent)break;evnt(1403);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE= 18 ; -if(!qbevent)break;evnt(1405);}while(r); -do{ -*__INTEGER_CLOSEDMAIN= 0 ; -if(!qbevent)break;evnt(1406);}while(r); -do{ -*__INTEGER_ADDMETASTATIC= 0 ; -if(!qbevent)break;evnt(1407);}while(r); -do{ -*__INTEGER_ADDMETADYNAMIC= 0 ; -if(!qbevent)break;evnt(1408);}while(r); -do{ -*__INTEGER_DYNAMICMODE= 0 ; if(!qbevent)break;evnt(1409);}while(r); do{ -*__INTEGER_OPTIONBASE= 0 ; +*__LONG_NEXTRUNLINEINDEX= 1 ; if(!qbevent)break;evnt(1410);}while(r); do{ -*__BYTE_OPTIONEXPLICIT= 0 ; +*__LONG_LASTTYPE= 0 ; if(!qbevent)break;evnt(1411);}while(r); -S_1729:; -if (((-(*__BYTE_OPTIONEXPLICIT_CMD== -1 ))&(-(*__LONG_NOIDEMODE== 1 )))||new_error){ -if(qbevent){evnt(1411);if(r)goto S_1729;} do{ -*__BYTE_OPTIONEXPLICIT= -1 ; -if(!qbevent)break;evnt(1411);}while(r); -} -do{ -*__LONG_EXEICONSET= 0 ; +*__LONG_LASTTYPEELEMENT= 0 ; if(!qbevent)break;evnt(1412);}while(r); do{ -*__BYTE_VERSIONINFOSET= 0 ; + +if (__ARRAY_STRING256_UDTXNAME[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING256_UDTXNAME[2]&1){ +if (__ARRAY_STRING256_UDTXNAME[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0])); +}else{ +free((void*)(__ARRAY_STRING256_UDTXNAME[0])); +} +} +__ARRAY_STRING256_UDTXNAME[4]= 0 ; +__ARRAY_STRING256_UDTXNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXNAME[4]+1; +__ARRAY_STRING256_UDTXNAME[6]=1; +if (__ARRAY_STRING256_UDTXNAME[2]&4){ +__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXNAME[5]*256); +memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256); +}else{ +__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXNAME[5]*256,1); +if (!__ARRAY_STRING256_UDTXNAME[0]) error(257); +} +__ARRAY_STRING256_UDTXNAME[2]|=1; +} if(!qbevent)break;evnt(1413);}while(r); do{ + +if (__ARRAY_STRING256_UDTXCNAME[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING256_UDTXCNAME[2]&1){ +if (__ARRAY_STRING256_UDTXCNAME[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0])); +}else{ +free((void*)(__ARRAY_STRING256_UDTXCNAME[0])); +} +} +__ARRAY_STRING256_UDTXCNAME[4]= 0 ; +__ARRAY_STRING256_UDTXCNAME[5]=( 1000 )-__ARRAY_STRING256_UDTXCNAME[4]+1; +__ARRAY_STRING256_UDTXCNAME[6]=1; +if (__ARRAY_STRING256_UDTXCNAME[2]&4){ +__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTXCNAME[5]*256); +memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256); +}else{ +__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXCNAME[5]*256,1); +if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257); +} +__ARRAY_STRING256_UDTXCNAME[2]|=1; +} +if(!qbevent)break;evnt(1414);}while(r); +do{ + +if (__ARRAY_LONG_UDTXSIZE[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTXSIZE[2]&1){ +if (__ARRAY_LONG_UDTXSIZE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTXSIZE[0])); +} +} +__ARRAY_LONG_UDTXSIZE[4]= 0 ; +__ARRAY_LONG_UDTXSIZE[5]=( 1000 )-__ARRAY_LONG_UDTXSIZE[4]+1; +__ARRAY_LONG_UDTXSIZE[6]=1; +if (__ARRAY_LONG_UDTXSIZE[2]&4){ +__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXSIZE[5]*4); +memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4); +}else{ +__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXSIZE[5]*4,1); +if (!__ARRAY_LONG_UDTXSIZE[0]) error(257); +} +__ARRAY_LONG_UDTXSIZE[2]|=1; +} +if(!qbevent)break;evnt(1415);}while(r); +do{ + +if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8])->id=(++mem_lock_id); +if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){ +if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0])); +}else{ +free((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0])); +} +} +__ARRAY_INTEGER_UDTXBYTEALIGN[4]= 0 ; +__ARRAY_INTEGER_UDTXBYTEALIGN[5]=( 1000 )-__ARRAY_INTEGER_UDTXBYTEALIGN[4]+1; +__ARRAY_INTEGER_UDTXBYTEALIGN[6]=1; +if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){ +__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2); +memset((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2); +}else{ +__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2,1); +if (!__ARRAY_INTEGER_UDTXBYTEALIGN[0]) error(257); +} +__ARRAY_INTEGER_UDTXBYTEALIGN[2]|=1; +} +if(!qbevent)break;evnt(1416);}while(r); +do{ + +if (__ARRAY_LONG_UDTXNEXT[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTXNEXT[2]&1){ +if (__ARRAY_LONG_UDTXNEXT[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTXNEXT[0])); +} +} +__ARRAY_LONG_UDTXNEXT[4]= 0 ; +__ARRAY_LONG_UDTXNEXT[5]=( 1000 )-__ARRAY_LONG_UDTXNEXT[4]+1; +__ARRAY_LONG_UDTXNEXT[6]=1; +if (__ARRAY_LONG_UDTXNEXT[2]&4){ +__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTXNEXT[5]*4); +memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4); +}else{ +__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTXNEXT[5]*4,1); +if (!__ARRAY_LONG_UDTXNEXT[0]) error(257); +} +__ARRAY_LONG_UDTXNEXT[2]|=1; +} +if(!qbevent)break;evnt(1417);}while(r); +do{ + +if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8])->id=(++mem_lock_id); +if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){ +if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0])); +}else{ +free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0])); +} +} +__ARRAY_INTEGER_UDTXVARIABLE[4]= 0 ; +__ARRAY_INTEGER_UDTXVARIABLE[5]=( 1000 )-__ARRAY_INTEGER_UDTXVARIABLE[4]+1; +__ARRAY_INTEGER_UDTXVARIABLE[6]=1; +if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){ +__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2); +memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2); +}else{ +__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXVARIABLE[5]*2,1); +if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257); +} +__ARRAY_INTEGER_UDTXVARIABLE[2]|=1; +} +if(!qbevent)break;evnt(1418);}while(r); +do{ + +if (__ARRAY_STRING256_UDTENAME[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING256_UDTENAME[2]&1){ +if (__ARRAY_STRING256_UDTENAME[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0])); +}else{ +free((void*)(__ARRAY_STRING256_UDTENAME[0])); +} +} +__ARRAY_STRING256_UDTENAME[4]= 0 ; +__ARRAY_STRING256_UDTENAME[5]=( 1000 )-__ARRAY_STRING256_UDTENAME[4]+1; +__ARRAY_STRING256_UDTENAME[6]=1; +if (__ARRAY_STRING256_UDTENAME[2]&4){ +__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTENAME[5]*256); +memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256); +}else{ +__ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTENAME[5]*256,1); +if (!__ARRAY_STRING256_UDTENAME[0]) error(257); +} +__ARRAY_STRING256_UDTENAME[2]|=1; +} +if(!qbevent)break;evnt(1420);}while(r); +do{ + +if (__ARRAY_STRING256_UDTECNAME[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING256_UDTECNAME[2]&1){ +if (__ARRAY_STRING256_UDTECNAME[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0])); +}else{ +free((void*)(__ARRAY_STRING256_UDTECNAME[0])); +} +} +__ARRAY_STRING256_UDTECNAME[4]= 0 ; +__ARRAY_STRING256_UDTECNAME[5]=( 1000 )-__ARRAY_STRING256_UDTECNAME[4]+1; +__ARRAY_STRING256_UDTECNAME[6]=1; +if (__ARRAY_STRING256_UDTECNAME[2]&4){ +__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_STRING256_UDTECNAME[5]*256); +memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256); +}else{ +__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTECNAME[5]*256,1); +if (!__ARRAY_STRING256_UDTECNAME[0]) error(257); +} +__ARRAY_STRING256_UDTECNAME[2]|=1; +} +if(!qbevent)break;evnt(1421);}while(r); +do{ + +if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8])->id=(++mem_lock_id); +if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){ +if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0])); +}else{ +free((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0])); +} +} +__ARRAY_INTEGER_UDTEBYTEALIGN[4]= 0 ; +__ARRAY_INTEGER_UDTEBYTEALIGN[5]=( 1000 )-__ARRAY_INTEGER_UDTEBYTEALIGN[4]+1; +__ARRAY_INTEGER_UDTEBYTEALIGN[6]=1; +if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){ +__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2); +memset((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2); +}else{ +__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2,1); +if (!__ARRAY_INTEGER_UDTEBYTEALIGN[0]) error(257); +} +__ARRAY_INTEGER_UDTEBYTEALIGN[2]|=1; +} +if(!qbevent)break;evnt(1422);}while(r); +do{ + +if (__ARRAY_LONG_UDTESIZE[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTESIZE[2]&1){ +if (__ARRAY_LONG_UDTESIZE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTESIZE[0])); +} +} +__ARRAY_LONG_UDTESIZE[4]= 0 ; +__ARRAY_LONG_UDTESIZE[5]=( 1000 )-__ARRAY_LONG_UDTESIZE[4]+1; +__ARRAY_LONG_UDTESIZE[6]=1; +if (__ARRAY_LONG_UDTESIZE[2]&4){ +__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTESIZE[5]*4); +memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4); +}else{ +__ARRAY_LONG_UDTESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTESIZE[5]*4,1); +if (!__ARRAY_LONG_UDTESIZE[0]) error(257); +} +__ARRAY_LONG_UDTESIZE[2]|=1; +} +if(!qbevent)break;evnt(1423);}while(r); +do{ + +if (__ARRAY_LONG_UDTETYPE[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTETYPE[2]&1){ +if (__ARRAY_LONG_UDTETYPE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTETYPE[0])); +} +} +__ARRAY_LONG_UDTETYPE[4]= 0 ; +__ARRAY_LONG_UDTETYPE[5]=( 1000 )-__ARRAY_LONG_UDTETYPE[4]+1; +__ARRAY_LONG_UDTETYPE[6]=1; +if (__ARRAY_LONG_UDTETYPE[2]&4){ +__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPE[5]*4); +memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4); +}else{ +__ARRAY_LONG_UDTETYPE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPE[5]*4,1); +if (!__ARRAY_LONG_UDTETYPE[0]) error(257); +} +__ARRAY_LONG_UDTETYPE[2]|=1; +} +if(!qbevent)break;evnt(1424);}while(r); +do{ + +if (__ARRAY_LONG_UDTETYPESIZE[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTETYPESIZE[2]&1){ +if (__ARRAY_LONG_UDTETYPESIZE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTETYPESIZE[0])); +} +} +__ARRAY_LONG_UDTETYPESIZE[4]= 0 ; +__ARRAY_LONG_UDTETYPESIZE[5]=( 1000 )-__ARRAY_LONG_UDTETYPESIZE[4]+1; +__ARRAY_LONG_UDTETYPESIZE[6]=1; +if (__ARRAY_LONG_UDTETYPESIZE[2]&4){ +__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTETYPESIZE[5]*4); +memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4); +}else{ +__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)calloc(__ARRAY_LONG_UDTETYPESIZE[5]*4,1); +if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257); +} +__ARRAY_LONG_UDTETYPESIZE[2]|=1; +} +if(!qbevent)break;evnt(1425);}while(r); +do{ + +if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){ +if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0])); +} +} +__ARRAY_LONG_UDTEARRAYELEMENTS[4]= 0 ; +__ARRAY_LONG_UDTEARRAYELEMENTS[5]=( 1000 )-__ARRAY_LONG_UDTEARRAYELEMENTS[4]+1; +__ARRAY_LONG_UDTEARRAYELEMENTS[6]=1; +if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){ +__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4); +memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4); +}else{ +__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc(__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4,1); +if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257); +} +__ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1; +} +if(!qbevent)break;evnt(1426);}while(r); +do{ + +if (__ARRAY_LONG_UDTENEXT[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_UDTENEXT[2]&1){ +if (__ARRAY_LONG_UDTENEXT[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0])); +}else{ +free((void*)(__ARRAY_LONG_UDTENEXT[0])); +} +} +__ARRAY_LONG_UDTENEXT[4]= 0 ; +__ARRAY_LONG_UDTENEXT[5]=( 1000 )-__ARRAY_LONG_UDTENEXT[4]+1; +__ARRAY_LONG_UDTENEXT[6]=1; +if (__ARRAY_LONG_UDTENEXT[2]&4){ +__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_UDTENEXT[5]*4); +memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4); +}else{ +__ARRAY_LONG_UDTENEXT[0]=(ptrszint)calloc(__ARRAY_LONG_UDTENEXT[5]*4,1); +if (!__ARRAY_LONG_UDTENEXT[0]) error(257); +} +__ARRAY_LONG_UDTENEXT[2]|=1; +} +if(!qbevent)break;evnt(1427);}while(r); +do{ +*__LONG_DEFININGTYPE= 0 ; +if(!qbevent)break;evnt(1428);}while(r); +do{ +*__LONG_DEFININGTYPEERROR= 0 ; +if(!qbevent)break;evnt(1429);}while(r); +do{ +*__LONG_CONSTLAST= -1 ; +if(!qbevent)break;evnt(1430);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE= 18 ; +if(!qbevent)break;evnt(1432);}while(r); +do{ +*__INTEGER_CLOSEDMAIN= 0 ; +if(!qbevent)break;evnt(1433);}while(r); +do{ +*__INTEGER_ADDMETASTATIC= 0 ; +if(!qbevent)break;evnt(1434);}while(r); +do{ +*__INTEGER_ADDMETADYNAMIC= 0 ; +if(!qbevent)break;evnt(1435);}while(r); +do{ +*__INTEGER_DYNAMICMODE= 0 ; +if(!qbevent)break;evnt(1436);}while(r); +do{ +*__INTEGER_OPTIONBASE= 0 ; +if(!qbevent)break;evnt(1437);}while(r); +do{ +*__LONG_EXEICONSET= 0 ; +if(!qbevent)break;evnt(1438);}while(r); +do{ +*__BYTE_VERSIONINFOSET= 0 ; +if(!qbevent)break;evnt(1439);}while(r); +do{ qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1414);}while(r); +if(!qbevent)break;evnt(1440);}while(r); do{ qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1414);}while(r); +if(!qbevent)break;evnt(1440);}while(r); do{ qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1414);}while(r); +if(!qbevent)break;evnt(1440);}while(r); do{ qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1415);}while(r); +if(!qbevent)break;evnt(1441);}while(r); do{ qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1415);}while(r); +if(!qbevent)break;evnt(1441);}while(r); do{ qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1415);}while(r); +if(!qbevent)break;evnt(1441);}while(r); do{ qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1416);}while(r); +if(!qbevent)break;evnt(1442);}while(r); do{ qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1416);}while(r); +if(!qbevent)break;evnt(1442);}while(r); do{ qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1416);}while(r); +if(!qbevent)break;evnt(1442);}while(r); do{ qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1417);}while(r); +if(!qbevent)break;evnt(1443);}while(r); do{ qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1417);}while(r); +if(!qbevent)break;evnt(1443);}while(r); do{ qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1417);}while(r); +if(!qbevent)break;evnt(1443);}while(r); do{ qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1417);}while(r); +if(!qbevent)break;evnt(1443);}while(r); do{ *__LONG_DATAOFFSET= 0 ; -if(!qbevent)break;evnt(1418);}while(r); +if(!qbevent)break;evnt(1444);}while(r); do{ *__LONG_STATEMENTN= 0 ; -if(!qbevent)break;evnt(1419);}while(r); +if(!qbevent)break;evnt(1445);}while(r); +do{ +*__LONG_EVERYCASENEWCASE= 0 ; +if(!qbevent)break;evnt(1446);}while(r); do{ *__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(1420);}while(r); +if(!qbevent)break;evnt(1447);}while(r); do{ *__INTEGER_QBERRORCODE= 0 ; -if(!qbevent)break;evnt(1420);}while(r); +if(!qbevent)break;evnt(1447);}while(r); do{ *__INTEGER_QBERRORLINE= 0 ; -if(!qbevent)break;evnt(1420);}while(r); -S_1752:; -fornext_value210= 1 ; -fornext_finalvalue210= 27 ; -fornext_step210= 1 ; -if (fornext_step210<0) fornext_step_negative210=1; else fornext_step_negative210=0; -if (new_error) goto fornext_error210; -goto fornext_entrylabel210; +if(!qbevent)break;evnt(1447);}while(r); +S_1841:; +fornext_value202= 1 ; +fornext_finalvalue202= 27 ; +fornext_step202= 1 ; +if (fornext_step202<0) fornext_step_negative202=1; else fornext_step_negative202=0; +if (new_error) goto fornext_error202; +goto fornext_entrylabel202; while(1){ -fornext_value210=fornext_step210+(*__LONG_I); -fornext_entrylabel210: -*__LONG_I=fornext_value210; -if (fornext_step_negative210){ -if (fornext_value210fornext_finalvalue210) break; +if (fornext_value202>fornext_finalvalue202) break; } -fornext_error210:; -if(qbevent){evnt(1421);if(r)goto S_1752;} +fornext_error202:; +if(qbevent){evnt(1448);if(r)goto S_1841;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),qbs_new_txt_len("SINGLE",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1421);}while(r); +if(!qbevent)break;evnt(1448);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1421);}while(r); -fornext_continue_209:; +if(!qbevent)break;evnt(1448);}while(r); +fornext_continue_201:; } -fornext_exit_209:; +fornext_exit_201:; do{ *__INTEGER_CONTROLLEVEL= 0 ; -if(!qbevent)break;evnt(1422);}while(r); +if(!qbevent)break;evnt(1449);}while(r); do{ qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1423);}while(r); +if(!qbevent)break;evnt(1450);}while(r); do{ *__INTEGER_FINDANOTHERID= 0 ; -if(!qbevent)break;evnt(1423);}while(r); +if(!qbevent)break;evnt(1450);}while(r); do{ *__LONG_FINDIDINTERNAL= 0 ; -if(!qbevent)break;evnt(1423);}while(r); +if(!qbevent)break;evnt(1450);}while(r); do{ *__LONG_CURRENTID= 0 ; -if(!qbevent)break;evnt(1423);}while(r); +if(!qbevent)break;evnt(1450);}while(r); do{ *__LONG_LINENUMBER= 0 ; -if(!qbevent)break;evnt(1424);}while(r); +if(!qbevent)break;evnt(1451);}while(r); do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1425);}while(r); +if(!qbevent)break;evnt(1452);}while(r); do{ qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1426);}while(r); +if(!qbevent)break;evnt(1453);}while(r); do{ *__LONG_IDN= 0 ; -if(!qbevent)break;evnt(1427);}while(r); +if(!qbevent)break;evnt(1454);}while(r); do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(1428);}while(r); +if(!qbevent)break;evnt(1455);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(1429);}while(r); +if(!qbevent)break;evnt(1456);}while(r); +do{ +*__BYTE_INPUTFUNCTIONCALLED= 0 ; +if(!qbevent)break;evnt(1457);}while(r); do{ *__LONG_SUBFUNCN= 0 ; -if(!qbevent)break;evnt(1430);}while(r); +if(!qbevent)break;evnt(1458);}while(r); +do{ +*__BYTE_CLOSEDSUBFUNC= 0 ; +if(!qbevent)break;evnt(1459);}while(r); do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1431);}while(r); +if(!qbevent)break;evnt(1460);}while(r); do{ *__ULONG_SELECTCASECOUNTER= 0 ; -if(!qbevent)break;evnt(1432);}while(r); +if(!qbevent)break;evnt(1461);}while(r); do{ *__INTEGER_EXECCOUNTER= 0 ; -if(!qbevent)break;evnt(1433);}while(r); +if(!qbevent)break;evnt(1462);}while(r); do{ -*__INTEGER_USERDEFINECOUNT= 6 ; -if(!qbevent)break;evnt(1434);}while(r); +*__INTEGER_USERDEFINECOUNT= 7 ; +if(!qbevent)break;evnt(1463);}while(r); do{ -qbs_set(__STRING_USEDVARIABLELIST,qbs_new_txt_len("",0)); +*__LONG_TOTALVARIABLESCREATED= 0 ; +if(!qbevent)break;evnt(1464);}while(r); +do{ +qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1435);}while(r); +if(!qbevent)break;evnt(1465);}while(r); do{ -*__LONG_TOTALUNUSEDVARIABLES= 0 ; -if(!qbevent)break;evnt(1436);}while(r); +*__LONG_TOTALMAINVARIABLESCREATED= 0 ; +if(!qbevent)break;evnt(1466);}while(r); +do{ + +if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_USEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_USEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_USEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_USEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_USEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_USEDVARIABLELIST[4]+1; +__ARRAY_UDT_USEDVARIABLELIST[6]=1; +__ARRAY_UDT_USEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_USEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_USEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_USEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(1467);}while(r); do{ *__LONG_TOTALWARNINGS= 0 ; -if(!qbevent)break;evnt(1437);}while(r); +if(!qbevent)break;evnt(1468);}while(r); do{ *__BYTE_DUPLICATECONSTWARNING= 0 ; -if(!qbevent)break;evnt(1438);}while(r); +if(!qbevent)break;evnt(1469);}while(r); +do{ +*__BYTE_EMPTYSCWARNING= 0 ; +if(!qbevent)break;evnt(1470);}while(r); do{ *__LONG_WARNINGLISTITEMS= 0 ; -if(!qbevent)break;evnt(1439);}while(r); +if(!qbevent)break;evnt(1471);}while(r); do{ qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1440);}while(r); +if(!qbevent)break;evnt(1472);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1473);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1474);}while(r); +do{ +*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; +if(!qbevent)break;evnt(1475);}while(r); do{ if (__ARRAY_STRING_WARNING[2]&2){ @@ -8065,1118 +8217,1350 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_n while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(1441);}while(r); +if(!qbevent)break;evnt(1476);}while(r); +do{ + +if (__ARRAY_LONG_WARNINGLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_WARNINGLINES[2]&1){ +if (__ARRAY_LONG_WARNINGLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0])); +}else{ +free((void*)(__ARRAY_LONG_WARNINGLINES[0])); +} +} +__ARRAY_LONG_WARNINGLINES[4]= 0 ; +__ARRAY_LONG_WARNINGLINES[5]=( 1000 )-__ARRAY_LONG_WARNINGLINES[4]+1; +__ARRAY_LONG_WARNINGLINES[6]=1; +if (__ARRAY_LONG_WARNINGLINES[2]&4){ +__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_WARNINGLINES[5]*4); +memset((void*)(__ARRAY_LONG_WARNINGLINES[0]),0,__ARRAY_LONG_WARNINGLINES[5]*4); +}else{ +__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)calloc(__ARRAY_LONG_WARNINGLINES[5]*4,1); +if (!__ARRAY_LONG_WARNINGLINES[0]) error(257); +} +__ARRAY_LONG_WARNINGLINES[2]|=1; +} +if(!qbevent)break;evnt(1477);}while(r); +do{ + +if (__ARRAY_LONG_WARNINGINCLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_LONG_WARNINGINCLINES[2]&1){ +if (__ARRAY_LONG_WARNINGINCLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0])); +}else{ +free((void*)(__ARRAY_LONG_WARNINGINCLINES[0])); +} +} +__ARRAY_LONG_WARNINGINCLINES[4]= 0 ; +__ARRAY_LONG_WARNINGINCLINES[5]=( 1000 )-__ARRAY_LONG_WARNINGINCLINES[4]+1; +__ARRAY_LONG_WARNINGINCLINES[6]=1; +if (__ARRAY_LONG_WARNINGINCLINES[2]&4){ +__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_LONG_WARNINGINCLINES[5]*4); +memset((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),0,__ARRAY_LONG_WARNINGINCLINES[5]*4); +}else{ +__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)calloc(__ARRAY_LONG_WARNINGINCLINES[5]*4,1); +if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257); +} +__ARRAY_LONG_WARNINGINCLINES[2]|=1; +} +if(!qbevent)break;evnt(1478);}while(r); +do{ + +if (__ARRAY_STRING_WARNINGINCFILES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING_WARNINGINCFILES[2]&1){ +tmp_long=__ARRAY_STRING_WARNINGINCFILES[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_WARNINGINCFILES[0])); +} +__ARRAY_STRING_WARNINGINCFILES[4]= 0 ; +__ARRAY_STRING_WARNINGINCFILES[5]=( 1000 )-__ARRAY_STRING_WARNINGINCFILES[4]+1; +__ARRAY_STRING_WARNINGINCFILES[6]=1; +__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)malloc(__ARRAY_STRING_WARNINGINCFILES[5]*8); +if (!__ARRAY_STRING_WARNINGINCFILES[0]) error(257); +__ARRAY_STRING_WARNINGINCFILES[2]|=1; +tmp_long=__ARRAY_STRING_WARNINGINCFILES[5]; +if (__ARRAY_STRING_WARNINGINCFILES[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(1479);}while(r); +do{ +*__LONG_MAXLINENUMBER= 0 ; +if(!qbevent)break;evnt(1480);}while(r); do{ *__LONG_UNIQUENUMBERN= 0 ; -if(!qbevent)break;evnt(1442);}while(r); +if(!qbevent)break;evnt(1481);}while(r); do{ *__LONG_PTRSZ=*__LONG_OS_BITS/ 8 ; -if(!qbevent)break;evnt(1465);}while(r); -S_1781:; -if ((-(*__LONG_CLOUD== 0 ))||new_error){ -if(qbevent){evnt(1467);if(r)goto S_1781;} +if(!qbevent)break;evnt(1505);}while(r); do{ *__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; -if(!qbevent)break;evnt(1468);}while(r); +if(!qbevent)break;evnt(1507);}while(r); do{ *__LONG_I=*__LONG_LASTTYPE; -if(!qbevent)break;evnt(1468);}while(r); +if(!qbevent)break;evnt(1507);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("_MEM",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1469);}while(r); +if(!qbevent)break;evnt(1508);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("_MEM",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1470);}while(r); +if(!qbevent)break;evnt(1509);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((*__LONG_PTRSZ* 5 )+(( 4 )* 1 )+(( 8 )* 1 ))* 8 ; -if(!qbevent)break;evnt(1471);}while(r); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((*__LONG_PTRSZ* 5 )+(( 4 )* 2 )+(( 8 )* 1 ))* 8 ; +if(!qbevent)break;evnt(1510);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1472);}while(r); +if(!qbevent)break;evnt(1511);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1473);}while(r); +if(!qbevent)break;evnt(1512);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1473);}while(r); +if(!qbevent)break;evnt(1512);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("OFFSET",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1474);}while(r); +if(!qbevent)break;evnt(1513);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("OFFSET",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1475);}while(r); +if(!qbevent)break;evnt(1514);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1476);}while(r); +if(!qbevent)break;evnt(1515);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1477);}while(r); +if(!qbevent)break;evnt(1516);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1477);}while(r); +if(!qbevent)break;evnt(1516);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1478);}while(r); +if(!qbevent)break;evnt(1517);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1479);}while(r); +if(!qbevent)break;evnt(1518);}while(r); do{ *__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1480);}while(r); +if(!qbevent)break;evnt(1519);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1481);}while(r); +if(!qbevent)break;evnt(1520);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1481);}while(r); +if(!qbevent)break;evnt(1520);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SIZE",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1482);}while(r); +if(!qbevent)break;evnt(1521);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SIZE",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1483);}while(r); +if(!qbevent)break;evnt(1522);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1484);}while(r); +if(!qbevent)break;evnt(1523);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1485);}while(r); +if(!qbevent)break;evnt(1524);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1485);}while(r); +if(!qbevent)break;evnt(1524);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1486);}while(r); +if(!qbevent)break;evnt(1525);}while(r); do{ tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1487);}while(r); +if(!qbevent)break;evnt(1526);}while(r); do{ *__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1488);}while(r); +if(!qbevent)break;evnt(1527);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1489);}while(r); +if(!qbevent)break;evnt(1528);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1489);}while(r); +if(!qbevent)break;evnt(1528);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_ID",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1490);}while(r); +if(!qbevent)break;evnt(1529);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_ID",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1491);}while(r); +if(!qbevent)break;evnt(1530);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1492);}while(r); +if(!qbevent)break;evnt(1531);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(1493);}while(r); +if(!qbevent)break;evnt(1532);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 64 ; -if(!qbevent)break;evnt(1493);}while(r); +if(!qbevent)break;evnt(1532);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1494);}while(r); +if(!qbevent)break;evnt(1533);}while(r); do{ tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1495);}while(r); +if(!qbevent)break;evnt(1534);}while(r); do{ *__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1496);}while(r); +if(!qbevent)break;evnt(1535);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1497);}while(r); +if(!qbevent)break;evnt(1536);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1497);}while(r); +if(!qbevent)break;evnt(1536);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_OFFSET",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1498);}while(r); +if(!qbevent)break;evnt(1537);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("$_LOCK_OFFSET",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1499);}while(r); +if(!qbevent)break;evnt(1538);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1500);}while(r); +if(!qbevent)break;evnt(1539);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1501);}while(r); +if(!qbevent)break;evnt(1540);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1501);}while(r); +if(!qbevent)break;evnt(1540);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1502);}while(r); +if(!qbevent)break;evnt(1541);}while(r); do{ tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1503);}while(r); +if(!qbevent)break;evnt(1542);}while(r); do{ *__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1504);}while(r); +if(!qbevent)break;evnt(1543);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1505);}while(r); +if(!qbevent)break;evnt(1544);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1505);}while(r); +if(!qbevent)break;evnt(1544);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("TYPE",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1506);}while(r); +if(!qbevent)break;evnt(1545);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("TYPE",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1507);}while(r); +if(!qbevent)break;evnt(1546);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1508);}while(r); +if(!qbevent)break;evnt(1547);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1509);}while(r); +if(!qbevent)break;evnt(1548);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1509);}while(r); +if(!qbevent)break;evnt(1548);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1510);}while(r); +if(!qbevent)break;evnt(1549);}while(r); do{ tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1511);}while(r); +if(!qbevent)break;evnt(1550);}while(r); do{ *__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1512);}while(r); +if(!qbevent)break;evnt(1551);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1513);}while(r); +if(!qbevent)break;evnt(1552);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1513);}while(r); +if(!qbevent)break;evnt(1552);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("ELEMENTSIZE",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1514);}while(r); +if(!qbevent)break;evnt(1553);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("ELEMENTSIZE",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1515);}while(r); +if(!qbevent)break;evnt(1554);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1516);}while(r); +if(!qbevent)break;evnt(1555);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1517);}while(r); +if(!qbevent)break;evnt(1556);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1517);}while(r); +if(!qbevent)break;evnt(1556);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1518);}while(r); +if(!qbevent)break;evnt(1557);}while(r); do{ tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1519);}while(r); +if(!qbevent)break;evnt(1558);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1520);}while(r); +if(!qbevent)break;evnt(1559);}while(r); do{ *__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1521);}while(r); +if(!qbevent)break;evnt(1560);}while(r); do{ *__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1522);}while(r); +if(!qbevent)break;evnt(1561);}while(r); do{ *__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1522);}while(r); +if(!qbevent)break;evnt(1561);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("IMAGE",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1523);}while(r); +if(!qbevent)break;evnt(1562);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("IMAGE",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1524);}while(r); +if(!qbevent)break;evnt(1563);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1525);}while(r); +if(!qbevent)break;evnt(1564);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(1526);}while(r); +if(!qbevent)break;evnt(1565);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ; -if(!qbevent)break;evnt(1526);}while(r); +if(!qbevent)break;evnt(1565);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1527);}while(r); +if(!qbevent)break;evnt(1566);}while(r); do{ tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1528);}while(r); +if(!qbevent)break;evnt(1567);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1529);}while(r); -} -S_1860:; -fornext_value212= 1 ; -fornext_finalvalue212= 255 ; -fornext_step212= 1 ; -if (fornext_step212<0) fornext_step_negative212=1; else fornext_step_negative212=0; -if (new_error) goto fornext_error212; -goto fornext_entrylabel212; +if(!qbevent)break;evnt(1568);}while(r); +do{ +*__LONG_I3=*__LONG_I2; +if(!qbevent)break;evnt(1569);}while(r); +do{ +*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; +if(!qbevent)break;evnt(1570);}while(r); +do{ +*__LONG_I2=*__LONG_LASTTYPEELEMENT; +if(!qbevent)break;evnt(1570);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SOUND",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1571);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),qbs_new_txt_len("SOUND",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1572);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(1573);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(1574);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ; +if(!qbevent)break;evnt(1574);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1575);}while(r); +do{ +tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; +if(!qbevent)break;evnt(1576);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1577);}while(r); +S_1970:; +fornext_value204= 1 ; +fornext_finalvalue204= 255 ; +fornext_step204= 1 ; +if (fornext_step204<0) fornext_step_negative204=1; else fornext_step_negative204=0; +if (new_error) goto fornext_error204; +goto fornext_entrylabel204; while(1){ -fornext_value212=fornext_step212+(*__LONG_CLOSEALL); -fornext_entrylabel212: -*__LONG_CLOSEALL=fornext_value212; -if (fornext_step_negative212){ -if (fornext_value212fornext_finalvalue212) break; +if (fornext_value204>fornext_finalvalue204) break; } -fornext_error212:; -if(qbevent){evnt(1544);if(r)goto S_1860;} +fornext_error204:; +if(qbevent){evnt(1589);if(r)goto S_1970;} do{ sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(1544);}while(r); -fornext_continue_211:; +if(!qbevent)break;evnt(1589);}while(r); +fornext_continue_203:; } -fornext_exit_211:; +fornext_exit_203:; do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1545);}while(r); +if(!qbevent)break;evnt(1590);}while(r); do{ *__LONG_FF=func_freefile(); -if(!qbevent)break;evnt(1547);}while(r); +if(!qbevent)break;evnt(1592);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 4 ,NULL,NULL,*__LONG_FF,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1547);}while(r); +if(!qbevent)break;evnt(1592);}while(r); do{ sub_close(*__LONG_FF,1); -if(!qbevent)break;evnt(1547);}while(r); -S_1867:; +if(!qbevent)break;evnt(1592);}while(r); +S_1977:; if (( 0 )||new_error){ -if(qbevent){evnt(1549);if(r)goto S_1867;} +if(qbevent){evnt(1594);if(r)goto S_1977;} do{ sub_close( 9 ,1); -if(!qbevent)break;evnt(1549);}while(r); +if(!qbevent)break;evnt(1594);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug.txt",9)), 5 ,NULL,NULL, 9 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1549);}while(r); +if(!qbevent)break;evnt(1594);}while(r); } -S_1871:; +S_1981:; if ((-(*__LONG_IDEMODE== 0 ))||new_error){ -if(qbevent){evnt(1551);if(r)goto S_1871;} +if(qbevent){evnt(1596);if(r)goto S_1981;} do{ *__INTEGER_QBERRORHAPPENED= -1 ; -if(!qbevent)break;evnt(1552);}while(r); +if(!qbevent)break;evnt(1597);}while(r); do{ sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1553);}while(r); +if(!qbevent)break;evnt(1598);}while(r); LABEL_QBERRORHAPPENED1:; -if(qbevent){evnt(1554);r=0;} -S_1874:; +if(qbevent){evnt(1599);r=0;} +S_1984:; if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||new_error){ -if(qbevent){evnt(1555);if(r)goto S_1874;} +if(qbevent){evnt(1600);if(r)goto S_1984;} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); -skip213: +skip205: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1556);}while(r); +if(!qbevent)break;evnt(1601);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("CANNOT LOCATE SOURCE FILE:",26),__STRING_SOURCEFILE)); -if (new_error) goto skip214; +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Cannot locate source file: ",27),__STRING_SOURCEFILE)); +if (new_error) goto skip206; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip214: +skip206: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1557);}while(r); -S_1877:; +if(!qbevent)break;evnt(1602);}while(r); +S_1987:; if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(1558);if(r)goto S_1877;} +if(qbevent){evnt(1603);if(r)goto S_1987;} do{ -if(qbevent){evnt(1558);} +if(qbevent){evnt(1603);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); -if(!qbevent)break;evnt(1558);}while(r); +if(!qbevent)break;evnt(1603);}while(r); } do{ -if(qbevent){evnt(1559);} +if(qbevent){evnt(1604);} exit_code= 1 ; sub_end(); -if(!qbevent)break;evnt(1559);}while(r); +if(!qbevent)break;evnt(1604);}while(r); }else{ do{ sub_close( 1 ,1); -if(!qbevent)break;evnt(1561);}while(r); +if(!qbevent)break;evnt(1606);}while(r); } do{ *__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(1563);}while(r); +if(!qbevent)break;evnt(1608);}while(r); } do{ SUB_REGINTERNAL(); -if(!qbevent)break;evnt(1566);}while(r); +if(!qbevent)break;evnt(1611);}while(r); +S_1997:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(1613);if(r)goto S_1997;} +do{ +qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1614);}while(r); +do{ +SUB_REGINTERNAL(); +if(!qbevent)break;evnt(1617);}while(r); +do{ +*__LONG_F= 4 + 8 ; +if(!qbevent)break;evnt(1619);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("UNSIGNED",8),__LONG_F,&(pass207= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1620);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BIT",3),__LONG_F,&(pass208= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1621);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BYTE",4),__LONG_F,&(pass209= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1622);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("INTEGER64",9),__LONG_F,&(pass210= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1623);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("OFFSET",6),__LONG_F,&(pass211= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1624);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("FLOAT",5),__LONG_F,&(pass212= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1625);}while(r); +do{ +*__LONG_F= 8 + 32 ; +if(!qbevent)break;evnt(1627);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("EXPLICIT",8),__LONG_F,&(pass213= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1628);}while(r); +} do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 4 ,NULL,NULL, 18 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1569);}while(r); -S_1888:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(1570);if(r)goto S_1888;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip215; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 cloud_app=1;",18), 0 , 0 , 1 ); -if (new_error) goto skip215; -skip215: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(1570);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip216; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 cloud_app=0;",18), 0 , 0 , 1 ); -if (new_error) goto skip216; -skip216: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(1570);}while(r); -} -S_1893:; +if(!qbevent)break;evnt(1631);}while(r); +S_2011:; if ((*__LONG_IDERECOMPILE)||new_error){ -if(qbevent){evnt(1572);if(r)goto S_1893;} +if(qbevent){evnt(1633);if(r)goto S_2011;} do{ *__LONG_IDERECOMPILE= 0 ; -if(!qbevent)break;evnt(1573);}while(r); +if(!qbevent)break;evnt(1634);}while(r); do{ *__LONG_IDEPASS= 1 ; -if(!qbevent)break;evnt(1574);}while(r); +if(!qbevent)break;evnt(1635);}while(r); do{ qbs_set(__STRING_SENDC,func_chr( 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1575);}while(r); +if(!qbevent)break;evnt(1636);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1576);}while(r); +if(!qbevent)break;evnt(1637);}while(r); } -S_1899:; +S_2017:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(1579);if(r)goto S_1899;} +if(qbevent){evnt(1640);if(r)goto S_2017;} do{ goto LABEL_IDERET1; -if(!qbevent)break;evnt(1579);}while(r); +if(!qbevent)break;evnt(1640);}while(r); +} +S_2020:; +if ((~(*__BYTE_QUIETMODE))||new_error){ +if(qbevent){evnt(1642);if(r)goto S_2020;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip214: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1643);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Beginning C++ output from QB64 code... ",39)); +if (new_error) goto skip215; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip215: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1644);}while(r); } do{ SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1581);}while(r); -S_1903:; +if(!qbevent)break;evnt(1647);}while(r); +S_2025:; do{ -if(qbevent){evnt(1583);if(r)goto S_1903;} -LABEL_STEVEWASHERE:; -if(qbevent){evnt(1585);r=0;} +if(qbevent){evnt(1649);if(r)goto S_2025;} do{ qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1587);}while(r); -S_1905:; +if(!qbevent)break;evnt(1653);}while(r); +S_2027:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(1588);if(r)goto S_1905;} +if(qbevent){evnt(1654);if(r)goto S_2027;} do{ -goto dl_exit_217; -if(!qbevent)break;evnt(1588);}while(r); +goto dl_exit_216; +if(!qbevent)break;evnt(1654);}while(r); } LABEL_IDEPREPASS:; -if(qbevent){evnt(1590);r=0;} +if(qbevent){evnt(1656);r=0;} LABEL_PREPASSLASTLINE:; -if(qbevent){evnt(1591);r=0;} -S_1908:; +if(qbevent){evnt(1657);r=0;} +S_2030:; if (((-(*__LONG_LASTLINE!= 0 ))|(-(*__LONG_FIRSTLINE!= 0 )))||new_error){ -if(qbevent){evnt(1593);if(r)goto S_1908;} +if(qbevent){evnt(1659);if(r)goto S_2030;} do{ qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1594);}while(r); -S_1910:; -if ((*__LONG_VIRTUALKEYBOARDSTATE)||new_error){ -if(qbevent){evnt(1595);if(r)goto S_1910;} -S_1911:; +if(!qbevent)break;evnt(1660);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1661);}while(r); +S_2033:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(1662);if(r)goto S_2033;} +do{ +*__LONG_ADDINGVWATCH= 1 ; +if(!qbevent)break;evnt(1663);}while(r); +S_2035:; if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1596);if(r)goto S_1911;} +if(qbevent){evnt(1664);if(r)goto S_2035;} do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\header.bas",40)); +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1596);}while(r); +if(!qbevent)break;evnt(1664);}while(r); } -S_1914:; +S_2038:; if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1597);if(r)goto S_1914;} +if(qbevent){evnt(1665);if(r)goto S_2038;} do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\footer.bas",40)); +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1597);}while(r); +if(!qbevent)break;evnt(1665);}while(r); } }else{ -S_1918:; -if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1599);if(r)goto S_1918;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\header_stub.bas",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1599);}while(r); -} -S_1921:; +S_2042:; if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1600);if(r)goto S_1921;} +if(qbevent){evnt(1668);if(r)goto S_2042;} do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\footer_stub.bas",45)); +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1600);}while(r); +if(!qbevent)break;evnt(1668);}while(r); } } do{ *__LONG_FIRSTLINE= 0 ; -if(!qbevent)break;evnt(1602);}while(r); +if(!qbevent)break;evnt(1670);}while(r); do{ *__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(1602);}while(r); +if(!qbevent)break;evnt(1670);}while(r); +S_2048:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_FORCEINCLUDEFROMROOT->len))||new_error){ +if(qbevent){evnt(1671);if(r)goto S_2048;} do{ goto LABEL_FORCEINCLUDE_PREPASS; -if(!qbevent)break;evnt(1603);}while(r); +if(!qbevent)break;evnt(1671);}while(r); +} LABEL_FORCEINCLUDECOMPLETED_PREPASS:; -if(qbevent){evnt(1604);r=0;} +if(qbevent){evnt(1672);r=0;} +do{ +*__LONG_ADDINGVWATCH= 0 ; +if(!qbevent)break;evnt(1673);}while(r); do{ qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1605);}while(r); +if(!qbevent)break;evnt(1674);}while(r); } do{ qbs_set(__STRING_WHOLESTV,__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1608);}while(r); +if(!qbevent)break;evnt(1677);}while(r); do{ *__LONG_PREPASS= 1 ; -if(!qbevent)break;evnt(1610);}while(r); +if(!qbevent)break;evnt(1679);}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1611);}while(r); +if(!qbevent)break;evnt(1680);}while(r); do{ *__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(1612);}while(r); +if(!qbevent)break;evnt(1681);}while(r); do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; -if(!qbevent)break;evnt(1614);}while(r); -S_1935:; -while((!(-(*__LONG_LINENUMBERid=(++mem_lock_id); +((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id); static int32 preserved_elements; -if (__ARRAY_BIT1_INVALIDLINE[2]&1){ -preserved_elements=__ARRAY_BIT1_INVALIDLINE[5]; +if (__ARRAY_BYTE_INVALIDLINE[2]&1){ +preserved_elements=__ARRAY_BYTE_INVALIDLINE[5]; } else preserved_elements=0; -__ARRAY_BIT1_INVALIDLINE[4]= 0 ; -__ARRAY_BIT1_INVALIDLINE[5]=(func_ubound(__ARRAY_BIT1_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BIT1_INVALIDLINE[4]+1; -__ARRAY_BIT1_INVALIDLINE[6]=1; -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ +__ARRAY_BYTE_INVALIDLINE[4]= 0 ; +__ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; +__ARRAY_BYTE_INVALIDLINE[6]=1; +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BIT1_INVALIDLINE[0]),preserved_elements*1/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_BIT1_INVALIDLINE[0])); -tmp_long=__ARRAY_BIT1_INVALIDLINE[5]; -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1/8+1); -memcpy((void*)(__ARRAY_BIT1_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1/8+1); -if (preserved_elementslen))||new_error){ -if(qbevent){evnt(1621);if(r)goto S_1939;} +if(qbevent){evnt(1691);if(r)goto S_2064;} +S_2065:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs__trim(__STRING_WHOLELINE)),qbs_new_txt_len("$NOPREFIX",9))))||new_error){ +if(qbevent){evnt(1693);if(r)goto S_2065;} +do{ +*__LONG_QB64PREFIX_SET_DESIREDSTATE= 1 ; +if(!qbevent)break;evnt(1694);}while(r); +S_2067:; +if ((-(*__LONG_QB64PREFIX_SET== 0 ))||new_error){ +if(qbevent){evnt(1695);if(r)goto S_2067;} +S_2068:; +if ((-(*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(1696);if(r)goto S_2068;} +do{ +*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(1697);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(1698);}while(r); +} +} +} do{ qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1623);}while(r); -S_1941:; +if(!qbevent)break;evnt(1703);}while(r); +S_2075:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(1624);if(r)goto S_1941;} +if(qbevent){evnt(1704);if(r)goto S_2075;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1624);}while(r); +if(!qbevent)break;evnt(1704);}while(r); } do{ qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLESTV)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1626);}while(r); -S_1945:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$VIRTUALKEYBOARD:ON",19))))||new_error){ -if(qbevent){evnt(1628);if(r)goto S_1945;} +if(!qbevent)break;evnt(1707);}while(r); +S_2079:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||new_error){ +if(qbevent){evnt(1709);if(r)goto S_2079;} +S_2080:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(1710);if(r)goto S_2080;} do{ -*__LONG_DESIREDVIRTUALKEYBOARDSTATE= 1 ; -if(!qbevent)break;evnt(1629);}while(r); -S_1947:; -if ((-(*__LONG_VIRTUALKEYBOARDSTATE== 0 ))||new_error){ -if(qbevent){evnt(1630);if(r)goto S_1947;} -S_1948:; -if ((-(*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE== 0 ))||new_error){ -if(qbevent){evnt(1631);if(r)goto S_1948;} +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0_noprefix.bi",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1711);}while(r); +}else{ do{ -*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE+ 1 ; -if(!qbevent)break;evnt(1633);}while(r); +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1713);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1715);}while(r); +} +S_2087:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||new_error){ +if(qbevent){evnt(1718);if(r)goto S_2087;} +S_2088:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(1719);if(r)goto S_2088;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32_noprefix.bi",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1720);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1722);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1724);}while(r); +} +S_2095:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||new_error){ +if(qbevent){evnt(1727);if(r)goto S_2095;} +do{ +*__LONG_VWATCHDESIREDSTATE= 1 ; +if(!qbevent)break;evnt(1728);}while(r); +S_2097:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(1729);if(r)goto S_2097;} +S_2098:; +if ((-(*__LONG_VWATCHRECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(1730);if(r)goto S_2098;} +do{ +*__LONG_VWATCHRECOMPILEATTEMPTS=*__LONG_VWATCHRECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(1732);}while(r); do{ goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(1634);}while(r); +if(!qbevent)break;evnt(1733);}while(r); }else{ } } } -S_1955:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$VIRTUALKEYBOARD:OFF",20))))||new_error){ -if(qbevent){evnt(1641);if(r)goto S_1955;} -do{ -*__LONG_DESIREDVIRTUALKEYBOARDSTATE= 0 ; -if(!qbevent)break;evnt(1642);}while(r); -S_1957:; -if ((-(*__LONG_VIRTUALKEYBOARDSTATE!= 0 ))||new_error){ -if(qbevent){evnt(1643);if(r)goto S_1957;} -S_1958:; -if ((-(*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE== 0 ))||new_error){ -if(qbevent){evnt(1644);if(r)goto S_1958;} -do{ -*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE+ 1 ; -if(!qbevent)break;evnt(1646);}while(r); -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(1647);}while(r); -}else{ -} -} -} -S_1965:; +S_2105:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ -if(qbevent){evnt(1654);if(r)goto S_1965;} -S_1966:; +if(qbevent){evnt(1740);if(r)goto S_2105;} +S_2106:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ -if(qbevent){evnt(1655);if(r)goto S_1966;} +if(qbevent){evnt(1741);if(r)goto S_2106;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1655);}while(r); +if(!qbevent)break;evnt(1741);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1655);}while(r); +if(!qbevent)break;evnt(1741);}while(r); } do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 4 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1656);}while(r); +if(!qbevent)break;evnt(1742);}while(r); do{ qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1657);}while(r); +if(!qbevent)break;evnt(1743);}while(r); do{ *__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1658);}while(r); +if(!qbevent)break;evnt(1744);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; -if(!qbevent)break;evnt(1659);}while(r); +if(!qbevent)break;evnt(1745);}while(r); do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1660);}while(r); +if(!qbevent)break;evnt(1746);}while(r); do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1661);}while(r); +if(!qbevent)break;evnt(1747);}while(r); do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1662);}while(r); -S_1977:; +if(!qbevent)break;evnt(1748);}while(r); +S_2117:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1663);if(r)goto S_1977;} +if(qbevent){evnt(1749);if(r)goto S_2117;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1663);}while(r); +if(!qbevent)break;evnt(1749);}while(r); } -S_1980:; +S_2120:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(1664);if(r)goto S_1980;} +if(qbevent){evnt(1750);if(r)goto S_2120;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]; -if(!qbevent)break;evnt(1665);}while(r); -S_1982:; +if(!qbevent)break;evnt(1751);}while(r); +S_2122:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(1666);if(r)goto S_1982;} +if(qbevent){evnt(1752);if(r)goto S_2122;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ; -if(!qbevent)break;evnt(1666);}while(r); +if(!qbevent)break;evnt(1752);}while(r); } } do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1668);}while(r); +if(!qbevent)break;evnt(1754);}while(r); } -S_1988:; +S_2128:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(1671);if(r)goto S_1988;} -S_1989:; +if(qbevent){evnt(1757);if(r)goto S_2128;} +S_2129:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(1672);if(r)goto S_1989;} +if(qbevent){evnt(1758);if(r)goto S_2129;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1672);}while(r); +if(!qbevent)break;evnt(1758);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1672);}while(r); +if(!qbevent)break;evnt(1758);}while(r); } -S_1993:; +S_2133:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(1673);if(r)goto S_1993;} +if(qbevent){evnt(1759);if(r)goto S_2133;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1673);}while(r); +if(!qbevent)break;evnt(1759);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1673);}while(r); +if(!qbevent)break;evnt(1759);}while(r); } do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 2 ; -if(!qbevent)break;evnt(1674);}while(r); -S_1998:; +if(!qbevent)break;evnt(1760);}while(r); +S_2138:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(1675);if(r)goto S_1998;} +if(qbevent){evnt(1761);if(r)goto S_2138;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1676);}while(r); +if(!qbevent)break;evnt(1762);}while(r); }else{ do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]; -if(!qbevent)break;evnt(1678);}while(r); +if(!qbevent)break;evnt(1764);}while(r); } do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1680);}while(r); +if(!qbevent)break;evnt(1766);}while(r); } -S_2005:; +S_2145:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(1683);if(r)goto S_2005;} +if(qbevent){evnt(1769);if(r)goto S_2145;} do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1684);}while(r); -S_2007:; +if(!qbevent)break;evnt(1770);}while(r); +S_2147:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ -if(qbevent){evnt(1685);if(r)goto S_2007;} -S_2008:; +if(qbevent){evnt(1771);if(r)goto S_2147;} +S_2148:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(1686);if(r)goto S_2008;} +if(qbevent){evnt(1772);if(r)goto S_2148;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1686);}while(r); +if(!qbevent)break;evnt(1772);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1686);}while(r); +if(!qbevent)break;evnt(1772);}while(r); } -S_2012:; +S_2152:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(1687);if(r)goto S_2012;} +if(qbevent){evnt(1773);if(r)goto S_2152;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1687);}while(r); +if(!qbevent)break;evnt(1773);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1687);}while(r); +if(!qbevent)break;evnt(1773);}while(r); } -S_2016:; +S_2156:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ -if(qbevent){evnt(1688);if(r)goto S_2016;} +if(qbevent){evnt(1774);if(r)goto S_2156;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1688);}while(r); +if(!qbevent)break;evnt(1774);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1688);}while(r); +if(!qbevent)break;evnt(1774);}while(r); } -S_2020:; +S_2160:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(1689);if(r)goto S_2020;} +if(qbevent){evnt(1775);if(r)goto S_2160;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1690);}while(r); +if(!qbevent)break;evnt(1776);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1691);}while(r); +if(!qbevent)break;evnt(1777);}while(r); } do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1693);}while(r); +if(!qbevent)break;evnt(1779);}while(r); do{ qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1694);}while(r); +if(!qbevent)break;evnt(1780);}while(r); do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1695);}while(r); -S_2027:; +if(!qbevent)break;evnt(1781);}while(r); +S_2167:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1696);if(r)goto S_2027;} +if(qbevent){evnt(1782);if(r)goto S_2167;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1696);}while(r); +if(!qbevent)break;evnt(1782);}while(r); } -S_2030:; +S_2170:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(1697);if(r)goto S_2030;} +if(qbevent){evnt(1783);if(r)goto S_2170;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]; -if(!qbevent)break;evnt(1698);}while(r); -S_2032:; +if(!qbevent)break;evnt(1784);}while(r); +S_2172:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(1699);if(r)goto S_2032;} +if(qbevent){evnt(1785);if(r)goto S_2172;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ; -if(!qbevent)break;evnt(1699);}while(r); +if(!qbevent)break;evnt(1785);}while(r); } } do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1701);}while(r); +if(!qbevent)break;evnt(1787);}while(r); } } -S_2039:; +S_2179:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TEMP,qbs_new_txt_len("$END IF",7)))|(qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ENDIF",6)))))||new_error){ -if(qbevent){evnt(1705);if(r)goto S_2039;} -S_2040:; +if(qbevent){evnt(1791);if(r)goto S_2179;} +S_2180:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(1706);if(r)goto S_2040;} +if(qbevent){evnt(1792);if(r)goto S_2180;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1706);}while(r); +if(!qbevent)break;evnt(1792);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1706);}while(r); +if(!qbevent)break;evnt(1792);}while(r); } do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1707);}while(r); +if(!qbevent)break;evnt(1793);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; -if(!qbevent)break;evnt(1708);}while(r); +if(!qbevent)break;evnt(1794);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1709);}while(r); +if(!qbevent)break;evnt(1795);}while(r); } -S_2048:; +S_2188:; if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ -if(qbevent){evnt(1712);if(r)goto S_2048;} -S_2049:; -while((!(-(*__LONG_LINENUMBERid=(++mem_lock_id); +((mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8])->id=(++mem_lock_id); static int32 preserved_elements; -if (__ARRAY_BIT1_INVALIDLINE[2]&1){ -preserved_elements=__ARRAY_BIT1_INVALIDLINE[5]; +if (__ARRAY_BYTE_INVALIDLINE[2]&1){ +preserved_elements=__ARRAY_BYTE_INVALIDLINE[5]; } else preserved_elements=0; -__ARRAY_BIT1_INVALIDLINE[4]= 0 ; -__ARRAY_BIT1_INVALIDLINE[5]=(func_ubound(__ARRAY_BIT1_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BIT1_INVALIDLINE[4]+1; -__ARRAY_BIT1_INVALIDLINE[6]=1; -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ +__ARRAY_BYTE_INVALIDLINE[4]= 0 ; +__ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; +__ARRAY_BYTE_INVALIDLINE[6]=1; +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BIT1_INVALIDLINE[0]),preserved_elements*1/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_BIT1_INVALIDLINE[0])); -tmp_long=__ARRAY_BIT1_INVALIDLINE[5]; -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1/8+1); -memcpy((void*)(__ARRAY_BIT1_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1/8+1); -if (preserved_elements = ",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1725);}while(r); +if(!qbevent)break;evnt(1817);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1725);}while(r); +if(!qbevent)break;evnt(1817);}while(r); } do{ qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1726);}while(r); +if(!qbevent)break;evnt(1818);}while(r); do{ qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1726);}while(r); +if(!qbevent)break;evnt(1818);}while(r); +S_2209:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||new_error){ +if(qbevent){evnt(1820);if(r)goto S_2209;} do{ -qbs_set(__STRING_L1,qbs_new_txt_len("",0)); +qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1728);}while(r); -S_2065:; -fornext_value224= 1 ; -fornext_finalvalue224=__STRING_L->len; -fornext_step224= 1 ; -if (fornext_step224<0) fornext_step_negative224=1; else fornext_step_negative224=0; -if (new_error) goto fornext_error224; -goto fornext_entrylabel224; -while(1){ -fornext_value224=fornext_step224+(*__LONG_I); -fornext_entrylabel224: -*__LONG_I=fornext_value224; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative224){ -if (fornext_value224fornext_finalvalue224) break; -} -fornext_error224:; -if(qbevent){evnt(1729);if(r)goto S_2065;} -do{ -*__LONG_A=qbs_asc(__STRING_L,*__LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1730);}while(r); -S_2067:; -if(qbevent){evnt(1731);if(r)goto S_2067;} -S_2068:; -if (((*__LONG_A==( 32 )))||new_error){ -if(qbevent){evnt(1732);if(r)goto S_2068;} -goto sc_226_end; -} -S_2069:; -if (((*__LONG_A==( 46 )))||new_error){ -if(qbevent){evnt(1733);if(r)goto S_2069;} -do{ -qbs_set(__STRING_L1,qbs_add(__STRING_L1,func_chr(*__LONG_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1733);}while(r); -goto sc_226_end; -} -S_2071:; -if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ -if(qbevent){evnt(1734);if(r)goto S_2071;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Invalid symbol left of equal sign (",35),func_chr(*__LONG_A)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1734);}while(r); +if(!qbevent)break;evnt(1820);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1734);}while(r); -goto sc_226_end; +if(!qbevent)break;evnt(1820);}while(r); } -do{ -qbs_set(__STRING_L1,qbs_add(__STRING_L1,func_chr(*__LONG_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1735);}while(r); -sc_226_end:; -fornext_continue_223:; -} -fornext_exit_223:; -do{ -qbs_set(__STRING_L,__STRING_L1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1738);}while(r); -S_2079:; +S_2213:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(1739);if(r)goto S_2079;} +if(qbevent){evnt(1821);if(r)goto S_2213;} do{ qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1739);}while(r); +if(!qbevent)break;evnt(1821);}while(r); } -S_2082:; +S_2216:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(1740);if(r)goto S_2082;} +if(qbevent){evnt(1822);if(r)goto S_2216;} do{ qbs_set(__STRING_R,qbs_rtrim(qbs_left(__STRING_R,__STRING_R->len- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1740);}while(r); +if(!qbevent)break;evnt(1822);}while(r); } -S_2085:; +S_2219:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(1741);if(r)goto S_2085;} +if(qbevent){evnt(1823);if(r)goto S_2219;} do{ qbs_set(__STRING_R1,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1742);}while(r); +if(!qbevent)break;evnt(1824);}while(r); do{ qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1743);}while(r); +if(!qbevent)break;evnt(1825);}while(r); }else{ do{ qbs_set(__STRING_R1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1745);}while(r); +if(!qbevent)break;evnt(1827);}while(r); } -S_2091:; -fornext_value229= 1 ; -fornext_finalvalue229=__STRING_R->len; +S_2225:; +fornext_value225= 1 ; +fornext_finalvalue225=__STRING_R->len; +fornext_step225= 1 ; +if (fornext_step225<0) fornext_step_negative225=1; else fornext_step_negative225=0; +if (new_error) goto fornext_error225; +goto fornext_entrylabel225; +while(1){ +fornext_value225=fornext_step225+(*__LONG_I); +fornext_entrylabel225: +*__LONG_I=fornext_value225; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative225){ +if (fornext_value225fornext_finalvalue225) break; +} +fornext_error225:; +if(qbevent){evnt(1830);if(r)goto S_2225;} +do{ +*__LONG_A=qbs_asc(__STRING_R,*__LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1831);}while(r); +S_2227:; +if(qbevent){evnt(1832);if(r)goto S_2227;} +S_2228:; +if (((*__LONG_A==( 32 )))||new_error){ +if(qbevent){evnt(1833);if(r)goto S_2228;} +sc_ec_1_end:; +goto sc_227_end; +} +S_2229:; +if (((*__LONG_A==( 46 )))||new_error){ +if(qbevent){evnt(1834);if(r)goto S_2229;} +do{ +qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1835);}while(r); +sc_ec_2_end:; +goto sc_227_end; +} +S_2231:; +if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ +if(qbevent){evnt(1836);if(r)goto S_2231;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1837);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1837);}while(r); +sc_ec_3_end:; +goto sc_227_end; +} +do{ +qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1839);}while(r); +sc_227_end:; +fornext_continue_224:; +} +fornext_exit_224:; +do{ +qbs_set(__STRING_R,__STRING_R1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1842);}while(r); +S_2239:; +fornext_value229= 8 ; +fornext_finalvalue229=*__INTEGER_USERDEFINECOUNT; fornext_step229= 1 ; if (fornext_step229<0) fornext_step_negative229=1; else fornext_step_negative229=0; if (new_error) goto fornext_error229; @@ -9185,101 +9569,34 @@ while(1){ fornext_value229=fornext_step229+(*__LONG_I); fornext_entrylabel229: *__LONG_I=fornext_value229; -qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative229){ if (fornext_value229fornext_finalvalue229) break; } fornext_error229:; -if(qbevent){evnt(1748);if(r)goto S_2091;} -do{ -*__LONG_A=qbs_asc(__STRING_R,*__LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1749);}while(r); -S_2093:; -if(qbevent){evnt(1750);if(r)goto S_2093;} -S_2094:; -if (((*__LONG_A==( 32 )))||new_error){ -if(qbevent){evnt(1751);if(r)goto S_2094;} -goto sc_231_end; -} -S_2095:; -if (((*__LONG_A==( 46 )))||new_error){ -if(qbevent){evnt(1752);if(r)goto S_2095;} -do{ -qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1753);}while(r); -goto sc_231_end; -} -S_2097:; -if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ -if(qbevent){evnt(1754);if(r)goto S_2097;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Invalid symbol right of equal sign (",36),func_chr(*__LONG_A)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1755);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1755);}while(r); -goto sc_231_end; -} -do{ -qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1757);}while(r); -sc_231_end:; -fornext_continue_228:; -} -fornext_exit_228:; -do{ -qbs_set(__STRING_R,__STRING_R1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1760);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$LET ",5),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1761);}while(r); -S_2106:; -fornext_value233= 7 ; -fornext_finalvalue233=*__INTEGER_USERDEFINECOUNT; -fornext_step233= 1 ; -if (fornext_step233<0) fornext_step_negative233=1; else fornext_step_negative233=0; -if (new_error) goto fornext_error233; -goto fornext_entrylabel233; -while(1){ -fornext_value233=fornext_step233+(*__LONG_I); -fornext_entrylabel233: -*__LONG_I=fornext_value233; -if (fornext_step_negative233){ -if (fornext_value233fornext_finalvalue233) break; -} -fornext_error233:; -if(qbevent){evnt(1763);if(r)goto S_2106;} -S_2107:; +if(qbevent){evnt(1844);if(r)goto S_2239;} +S_2240:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),__STRING_L)))||new_error){ -if(qbevent){evnt(1764);if(r)goto S_2107;} +if(qbevent){evnt(1845);if(r)goto S_2240;} do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1764);}while(r); +if(!qbevent)break;evnt(1845);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1764);}while(r); +if(!qbevent)break;evnt(1845);}while(r); } -fornext_continue_232:; +fornext_continue_228:; } -fornext_exit_232:; +fornext_exit_228:; do{ *__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; -if(!qbevent)break;evnt(1767);}while(r); -S_2113:; +if(!qbevent)break;evnt(1848);}while(r); +S_2246:; if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ -if(qbevent){evnt(1768);if(r)goto S_2113;} +if(qbevent){evnt(1849);if(r)goto S_2246;} do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ @@ -9327,1768 +9644,1424 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qb } } } -if(!qbevent)break;evnt(1769);}while(r); +if(!qbevent)break;evnt(1850);}while(r); } do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1771);}while(r); +if(!qbevent)break;evnt(1852);}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1772);}while(r); +if(!qbevent)break;evnt(1853);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1773);}while(r); +if(!qbevent)break;evnt(1854);}while(r); } do{ qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1778);}while(r); +if(!qbevent)break;evnt(1858);}while(r); do{ qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1779);}while(r); +if(!qbevent)break;evnt(1859);}while(r); do{ *__INTEGER_ADDMETADYNAMIC= 0 ; -if(!qbevent)break;evnt(1782);}while(r); +if(!qbevent)break;evnt(1862);}while(r); do{ *__INTEGER_ADDMETASTATIC= 0 ; -if(!qbevent)break;evnt(1782);}while(r); +if(!qbevent)break;evnt(1862);}while(r); do{ *__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1783);}while(r); -S_2125:; +if(!qbevent)break;evnt(1863);}while(r); +S_2258:; if ((*__LONG_WHOLELINEN)||new_error){ -if(qbevent){evnt(1785);if(r)goto S_2125;} +if(qbevent){evnt(1865);if(r)goto S_2258;} do{ *__LONG_WHOLELINEI= 1 ; -if(!qbevent)break;evnt(1787);}while(r); +if(!qbevent)break;evnt(1867);}while(r); do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass234= 1 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass230= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1790);}while(r); -S_2128:; +if(!qbevent)break;evnt(1870);}while(r); +S_2261:; if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(__STRING_E)>= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||new_error){ -if(qbevent){evnt(1791);if(r)goto S_2128;} +if(qbevent){evnt(1871);if(r)goto S_2261;} do{ *__LONG_WHOLELINEI= 2 ; -if(!qbevent)break;evnt(1791);}while(r); +if(!qbevent)break;evnt(1871);}while(r); do{ goto LABEL_PPSKPL; -if(!qbevent)break;evnt(1791);}while(r); +if(!qbevent)break;evnt(1871);}while(r); } -S_2132:; +S_2265:; if ((-(*__LONG_WHOLELINEN>= 2 ))||new_error){ -if(qbevent){evnt(1794);if(r)goto S_2132;} +if(qbevent){evnt(1874);if(r)goto S_2265;} do{ *__LONG_X2=func_instr(NULL,__STRING_WHOLELINE,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),__STRING1_SP),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1795);}while(r); +if(!qbevent)break;evnt(1875);}while(r); do{ *__LONG_X3=*__LONG_X2+ 2 ; -if(!qbevent)break;evnt(1795);}while(r); -S_2135:; +if(!qbevent)break;evnt(1875);}while(r); +S_2268:; if ((-(*__LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(1796);if(r)goto S_2135;} -S_2136:; +if(qbevent){evnt(1876);if(r)goto S_2268;} +S_2269:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_WHOLELINE, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1))))))||new_error){ -if(qbevent){evnt(1797);if(r)goto S_2136;} +if(qbevent){evnt(1877);if(r)goto S_2269;} do{ *__LONG_X2=__STRING_WHOLELINE->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1797);}while(r); +if(!qbevent)break;evnt(1877);}while(r); do{ *__LONG_X3=*__LONG_X2+ 1 ; -if(!qbevent)break;evnt(1797);}while(r); +if(!qbevent)break;evnt(1877);}while(r); } } -S_2141:; +S_2274:; if ((*__LONG_X2)||new_error){ -if(qbevent){evnt(1800);if(r)goto S_2141;} +if(qbevent){evnt(1880);if(r)goto S_2274;} do{ qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1801);}while(r); -S_2143:; +if(!qbevent)break;evnt(1881);}while(r); +S_2276:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||new_error){ -if(qbevent){evnt(1802);if(r)goto S_2143;} +if(qbevent){evnt(1882);if(r)goto S_2276;} do{ qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1803);}while(r); +if(!qbevent)break;evnt(1883);}while(r); do{ qbs_set(__STRING_CWHOLELINE,qbs_right(__STRING_CWHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1804);}while(r); +if(!qbevent)break;evnt(1884);}while(r); do{ *__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1805);}while(r); +if(!qbevent)break;evnt(1885);}while(r); do{ goto LABEL_PPSKPL; -if(!qbevent)break;evnt(1806);}while(r); +if(!qbevent)break;evnt(1886);}while(r); } } } LABEL_PPSKPL:; -if(qbevent){evnt(1811);r=0;} -S_2151:; +if(qbevent){evnt(1891);r=0;} +S_2284:; if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ -if(qbevent){evnt(1812);if(r)goto S_2151;} +if(qbevent){evnt(1892);if(r)goto S_2284;} do{ qbs_set(__STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1814);}while(r); +if(!qbevent)break;evnt(1894);}while(r); do{ qbs_set(__STRING_CA,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1815);}while(r); +if(!qbevent)break;evnt(1895);}while(r); LABEL_PPBLDA:; -if(qbevent){evnt(1816);r=0;} +if(qbevent){evnt(1896);r=0;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1817);}while(r); +if(!qbevent)break;evnt(1897);}while(r); do{ qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1818);}while(r); -S_2156:; +if(!qbevent)break;evnt(1898);}while(r); +S_2289:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(":",1)))|(qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4)))|(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(1819);if(r)goto S_2156;} -S_2157:; +if(qbevent){evnt(1899);if(r)goto S_2289;} +S_2290:; if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(1820);if(r)goto S_2157;} -S_2158:; +if(qbevent){evnt(1900);if(r)goto S_2290;} +S_2291:; if (( 0 )||new_error){ -if(qbevent){evnt(1821);if(r)goto S_2158;} +if(qbevent){evnt(1901);if(r)goto S_2291;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip239; +if (new_error) goto skip235; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("PP[",3),__STRING_A),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip239; -skip239: +if (new_error) goto skip235; +skip235: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(1821);}while(r); +if(!qbevent)break;evnt(1901);}while(r); } do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1822);}while(r); +if(!qbevent)break;evnt(1902);}while(r); do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass240= 1 ))); +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass236= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1823);}while(r); +if(!qbevent)break;evnt(1903);}while(r); do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass241= 2 ))); +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass237= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1824);}while(r); +if(!qbevent)break;evnt(1904);}while(r); do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass242= 3 ))); +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass238= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1825);}while(r); -S_2165:; +if(!qbevent)break;evnt(1905);}while(r); +S_2298:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 2 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3)))&(((qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8)))))))||new_error){ +if(qbevent){evnt(1908);if(r)goto S_2298;} +do{ +*__BYTE_CLOSEDSUBFUNC= -1 ; +if(!qbevent)break;evnt(1909);}while(r); +} +S_2301:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(1829);if(r)goto S_2165;} -S_2166:; +if(qbevent){evnt(1913);if(r)goto S_2301;} +S_2302:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(1831);if(r)goto S_2166;} -S_2167:; +if(qbevent){evnt(1915);if(r)goto S_2302;} +S_2303:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ -if(qbevent){evnt(1832);if(r)goto S_2167;} +if(qbevent){evnt(1916);if(r)goto S_2303;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1832);}while(r); +if(!qbevent)break;evnt(1916);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1832);}while(r); +if(!qbevent)break;evnt(1916);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(1833);}while(r); +if(!qbevent)break;evnt(1917);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1834);}while(r); +if(!qbevent)break;evnt(1918);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 2 ; -if(!qbevent)break;evnt(1837);}while(r); -S_2175:; +if(!qbevent)break;evnt(1921);}while(r); +S_2311:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8)))))||new_error){ -if(qbevent){evnt(1839);if(r)goto S_2175;} +if(qbevent){evnt(1923);if(r)goto S_2311;} do{ *__LONG_SUBFUNCN=*__LONG_SUBFUNCN- 1 ; -if(!qbevent)break;evnt(1839);}while(r); +if(!qbevent)break;evnt(1923);}while(r); do{ goto LABEL_DECLARESUBFUNC; -if(!qbevent)break;evnt(1839);}while(r); +if(!qbevent)break;evnt(1923);}while(r); } do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE (#2)",52)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1841);}while(r); +if(!qbevent)break;evnt(1925);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1841);}while(r); +if(!qbevent)break;evnt(1925);}while(r); } -S_2182:; +S_2318:; if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(1845);if(r)goto S_2182;} +if(qbevent){evnt(1929);if(r)goto S_2318;} do{ *__LONG_I=*__LONG_DEFININGTYPE; -if(!qbevent)break;evnt(1846);}while(r); -S_2184:; +if(!qbevent)break;evnt(1930);}while(r); +S_2320:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(1848);if(r)goto S_2184;} -S_2185:; +if(qbevent){evnt(1932);if(r)goto S_2320;} +S_2321:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(1849);if(r)goto S_2185;} -S_2186:; +if(qbevent){evnt(1933);if(r)goto S_2321;} +S_2322:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ -if(qbevent){evnt(1850);if(r)goto S_2186;} +if(qbevent){evnt(1934);if(r)goto S_2322;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1850);}while(r); +if(!qbevent)break;evnt(1934);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1850);}while(r); +if(!qbevent)break;evnt(1934);}while(r); } -S_2190:; +S_2326:; if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ -if(qbevent){evnt(1851);if(r)goto S_2190;} +if(qbevent){evnt(1935);if(r)goto S_2326;} do{ qbs_set(__STRING_A,qbs_new_txt_len("No elements defined in TYPE",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1851);}while(r); +if(!qbevent)break;evnt(1935);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1851);}while(r); +if(!qbevent)break;evnt(1935);}while(r); } do{ *__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(1852);}while(r); +if(!qbevent)break;evnt(1936);}while(r); do{ -qbs_set(__STRING_SIZ,FUNC_STR2(&(pass243=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_set(__STRING_SIZ,FUNC_STR2(&(pass239=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1855);}while(r); +if(!qbevent)break;evnt(1939);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip244; +if (new_error) goto skip240; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("char *g_tmp_udt_",16),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1))),qbs_new_txt_len("=(char*)malloc(",15)),__STRING_SIZ),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip244; -skip244: +if (new_error) goto skip240; +skip240: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(1856);}while(r); +if(!qbevent)break;evnt(1940);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1859);}while(r); +if(!qbevent)break;evnt(1943);}while(r); } } -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1863);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1864);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1865);}while(r); -S_2203:; +S_2336:; if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(1867);if(r)goto S_2203;} +if(qbevent){evnt(1947);if(r)goto S_2336;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variablename AS type or END TYPE",41)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1867);}while(r); +if(!qbevent)break;evnt(1947);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1867);}while(r); +if(!qbevent)break;evnt(1947);}while(r); } do{ qbs_set(__STRING_N,__STRING_FIRSTELEMENT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1868);}while(r); +if(!qbevent)break;evnt(1948);}while(r); +S_2341:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(1950);if(r)goto S_2341;} +do{ +*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; +if(!qbevent)break;evnt(1952);}while(r); +do{ +*__LONG_I2=*__LONG_LASTTYPEELEMENT; +if(!qbevent)break;evnt(1953);}while(r); +S_2344:; +while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ +if(qbevent){evnt(1954);if(r)goto S_2344;} +do{ +SUB_INCREASEUDTARRAYS(); +if(!qbevent)break;evnt(1954);}while(r); +ww_continue_241:; +} +ww_exit_241:; +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1955);}while(r); do{ *__LONG_II= 2 ; -if(!qbevent)break;evnt(1870);}while(r); +if(!qbevent)break;evnt(1957);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1872);}while(r); -S_2210:; +if(!qbevent)break;evnt(1959);}while(r); +S_2350:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II>=*__LONG_N))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2)))))||new_error){ -if(qbevent){evnt(1874);if(r)goto S_2210;} +if(qbevent){evnt(1961);if(r)goto S_2350;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variablename AS type or END TYPE",41)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1874);}while(r); +if(!qbevent)break;evnt(1961);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1874);}while(r); +if(!qbevent)break;evnt(1961);}while(r); } do{ -qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass245=*__LONG_II+ 1 ),__LONG_N)); +qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass242=*__LONG_II+ 1 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1875);}while(r); +if(!qbevent)break;evnt(1962);}while(r); +S_2355:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_DEFININGTYPE)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ +if(qbevent){evnt(1964);if(r)goto S_2355;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1964);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1964);}while(r); +} do{ *__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1877);}while(r); -S_2216:; +if(!qbevent)break;evnt(1965);}while(r); +S_2360:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(1878);if(r)goto S_2216;} +if(qbevent){evnt(1966);if(r)goto S_2360;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1878);}while(r); +if(!qbevent)break;evnt(1966);}while(r); } -S_2219:; +S_2363:; if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(1879);if(r)goto S_2219;} +if(qbevent){evnt(1967);if(r)goto S_2363;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1879);}while(r); +if(!qbevent)break;evnt(1967);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1879);}while(r); +if(!qbevent)break;evnt(1967);}while(r); } do{ *__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(1880);}while(r); -S_2224:; +if(!qbevent)break;evnt(1968);}while(r); +S_2368:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(1882);if(r)goto S_2224;} +if(qbevent){evnt(1970);if(r)goto S_2368;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1882);}while(r); +if(!qbevent)break;evnt(1970);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1882);}while(r); +if(!qbevent)break;evnt(1970);}while(r); } do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1883);}while(r); +if(!qbevent)break;evnt(1971);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass246= 1 ))); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass243= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1885);}while(r); +if(!qbevent)break;evnt(1972);}while(r); +LABEL_NORMALTYPEBLOCK:; +if(qbevent){evnt(1973);r=0;} +do{ +qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(*__LONG_I2)),l2string(__STRING_N->len)),__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1974);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_TYP; -if(!qbevent)break;evnt(1886);}while(r); +if(!qbevent)break;evnt(1975);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]=*__LONG_TYPSIZE; -if(!qbevent)break;evnt(1887);}while(r); +if(!qbevent)break;evnt(1976);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1889);}while(r); +if(!qbevent)break;evnt(1978);}while(r); do{ *__LONG_HASHCHKFLAGS= 8 + 512 ; -if(!qbevent)break;evnt(1892);}while(r); +if(!qbevent)break;evnt(1981);}while(r); do{ *__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1893);}while(r); -S_2235:; +if(!qbevent)break;evnt(1982);}while(r); +S_2380:; while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(1894);if(r)goto S_2235;} -S_2236:; +if(qbevent){evnt(1983);if(r)goto S_2380;} +S_2381:; if ((*__LONG_HASHRESFLAGS& 512 )||new_error){ -if(qbevent){evnt(1895);if(r)goto S_2236;} -S_2237:; +if(qbevent){evnt(1984);if(r)goto S_2381;} +S_2382:; if ((-(*__LONG_HASHRESREF==*__LONG_I))||new_error){ -if(qbevent){evnt(1896);if(r)goto S_2237;} +if(qbevent){evnt(1985);if(r)goto S_2382;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1896);}while(r); +if(!qbevent)break;evnt(1985);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1896);}while(r); +if(!qbevent)break;evnt(1985);}while(r); } } -S_2242:; +S_2387:; if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(1898);if(r)goto S_2242;} -S_2243:; +if(qbevent){evnt(1987);if(r)goto S_2387;} +S_2388:; if ((*__LONG_HASHRESFLAGS&( 4 + 32 + 16 + 8192 ))||new_error){ -if(qbevent){evnt(1899);if(r)goto S_2243;} +if(qbevent){evnt(1988);if(r)goto S_2388;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1899);}while(r); +if(!qbevent)break;evnt(1988);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1899);}while(r); +if(!qbevent)break;evnt(1988);}while(r); } } -S_2248:; +S_2393:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(1901);if(r)goto S_2248;} +if(qbevent){evnt(1990);if(r)goto S_2393;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(1901);}while(r); +if(!qbevent)break;evnt(1990);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(1901);}while(r); +if(!qbevent)break;evnt(1990);}while(r); } -dl_continue_247:; +dl_continue_245:; } -dl_exit_247:; +dl_exit_245:; do{ -SUB_HASHADD(__STRING_HASHNAME,&(pass248= 512 ),__LONG_I); +SUB_HASHADD(__STRING_HASHNAME,&(pass246= 512 ),__LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1904);}while(r); -S_2255:; +if(!qbevent)break;evnt(1993);}while(r); +S_2400:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(1907);if(r)goto S_2255;} +if(qbevent){evnt(1996);if(r)goto S_2400;} do{ *__LONG_U=*__LONG_TYP& 511 ; -if(!qbevent)break;evnt(1908);}while(r); +if(!qbevent)break;evnt(1997);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(1909);}while(r); -S_2258:; +if(!qbevent)break;evnt(1998);}while(r); +S_2403:; if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(1910);if(r)goto S_2258;} +if(qbevent){evnt(1999);if(r)goto S_2403;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1910);}while(r); +if(!qbevent)break;evnt(1999);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1910);}while(r); +if(!qbevent)break;evnt(1999);}while(r); } -S_2262:; +S_2407:; if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(1911);if(r)goto S_2262;} +if(qbevent){evnt(2000);if(r)goto S_2407;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1911);}while(r); +if(!qbevent)break;evnt(2000);}while(r); } }else{ -S_2266:; +S_2411:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(1913);if(r)goto S_2266;} -S_2267:; +if(qbevent){evnt(2002);if(r)goto S_2411;} +S_2412:; if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(1914);if(r)goto S_2267;} +if(qbevent){evnt(2003);if(r)goto S_2412;} do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_OFFSETTYPE& 511 ; -if(!qbevent)break;evnt(1915);}while(r); +if(!qbevent)break;evnt(2004);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1916);}while(r); +if(!qbevent)break;evnt(2005);}while(r); }else{ do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYPSIZE* 8 ; -if(!qbevent)break;evnt(1918);}while(r); +if(!qbevent)break;evnt(2007);}while(r); } do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1920);}while(r); +if(!qbevent)break;evnt(2009);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1920);}while(r); +if(!qbevent)break;evnt(2009);}while(r); }else{ do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYP& 511 ; -if(!qbevent)break;evnt(1922);}while(r); -S_2277:; +if(!qbevent)break;evnt(2011);}while(r); +S_2422:; if ((-((*__LONG_TYP&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ -if(qbevent){evnt(1923);if(r)goto S_2277;} +if(qbevent){evnt(2012);if(r)goto S_2422;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1923);}while(r); +if(!qbevent)break;evnt(2012);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1923);}while(r); +if(!qbevent)break;evnt(2012);}while(r); } } } -S_2283:; +S_2428:; if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(1928);if(r)goto S_2283;} -S_2284:; +if(qbevent){evnt(2017);if(r)goto S_2428;} +S_2429:; if ((((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )||new_error){ -if(qbevent){evnt(1929);if(r)goto S_2284;} +if(qbevent){evnt(2018);if(r)goto S_2429;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]+( 8 -(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )); -if(!qbevent)break;evnt(1930);}while(r); +if(!qbevent)break;evnt(2019);}while(r); } } do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; -if(!qbevent)break;evnt(1933);}while(r); -S_2289:; +if(!qbevent)break;evnt(2022);}while(r); +S_2434:; if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ -if(qbevent){evnt(1936);if(r)goto S_2289;} +if(qbevent){evnt(2025);if(r)goto S_2434;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1937);}while(r); +if(!qbevent)break;evnt(2026);}while(r); }else{ do{ tmp_long=array_check((*__LONG_I2- 1 )-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1939);}while(r); +if(!qbevent)break;evnt(2028);}while(r); +} +S_2439:; +if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||new_error){ +if(qbevent){evnt(2032);if(r)goto S_2439;} +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(2032);}while(r); } do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1944);}while(r); -} -S_2296:; -if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||new_error){ -if(qbevent){evnt(1948);if(r)goto S_2296;} +if(!qbevent)break;evnt(2033);}while(r); +}else{ do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); +*__LONG_II= 2 ; +if(!qbevent)break;evnt(2036);}while(r); +S_2445:; +if ((-(*__LONG_II>=*__LONG_N))||new_error){ +if(qbevent){evnt(2038);if(r)goto S_2445;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type, AS type element-list, or END TYPE",64)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1948);}while(r); +if(!qbevent)break;evnt(2038);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1948);}while(r); +if(!qbevent)break;evnt(2038);}while(r); } -S_2300:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(1950);if(r)goto S_2300;} -S_2301:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ -if(qbevent){evnt(1951);if(r)goto S_2301;} -S_2302:; -if ((-(*__LONG_N!= 2 ))||new_error){ -if(qbevent){evnt(1952);if(r)goto S_2302;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22)); +qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1952);}while(r); +if(!qbevent)break;evnt(2039);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2040);}while(r); +do{ +qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2041);}while(r); +LABEL_BUILDTYPENAME:; +if(qbevent){evnt(2042);r=0;} +do{ +qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2043);}while(r); +S_2453:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(2044);if(r)goto S_2453;} +do{ +qbs_set(__STRING_N,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2045);}while(r); +do{ +qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2046);}while(r); +S_2456:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ +if(qbevent){evnt(2047);if(r)goto S_2456;} +do{ +qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,__STRING_PREVIOUSELEMENT),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2047);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2048);}while(r); +do{ +qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2049);}while(r); +do{ +*__LONG_II=*__LONG_II+ 1 ; +if(!qbevent)break;evnt(2050);}while(r); +do{ +goto LABEL_BUILDTYPENAME; +if(!qbevent)break;evnt(2051);}while(r); +} +do{ +qbs_set(__STRING_T,qbs_rtrim(__STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2054);}while(r); +S_2465:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_DEFININGTYPE)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ +if(qbevent){evnt(2055);if(r)goto S_2465;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2055);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1952);}while(r); +if(!qbevent)break;evnt(2055);}while(r); } do{ -*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; -if(!qbevent)break;evnt(1953);}while(r); +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2056);}while(r); +S_2470:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2057);if(r)goto S_2470;} do{ -*__LONG_DEFININGTYPE=*__LONG_LASTTYPE; -if(!qbevent)break;evnt(1954);}while(r); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2057);}while(r); +} +S_2473:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(2058);if(r)goto S_2473;} do{ -*__LONG_I=*__LONG_DEFININGTYPE; -if(!qbevent)break;evnt(1955);}while(r); -S_2309:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||new_error){ -if(qbevent){evnt(1956);if(r)goto S_2309;} +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2058);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2058);}while(r); +} +do{ +*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(2059);}while(r); +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2061);}while(r); +LABEL_NEXTTYPEELEMENT:; +if(qbevent){evnt(2062);r=0;} +do{ +*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; +if(!qbevent)break;evnt(2063);}while(r); +do{ +*__LONG_I2=*__LONG_LASTTYPEELEMENT; +if(!qbevent)break;evnt(2064);}while(r); +S_2481:; +while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ +if(qbevent){evnt(2065);if(r)goto S_2481;} +do{ +SUB_INCREASEUDTARRAYS(); +if(!qbevent)break;evnt(2065);}while(r); +ww_continue_248:; +} +ww_exit_248:; +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2066);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2067);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[tmp_long*256],256,1),__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2069);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),__STRING_CN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2070);}while(r); +S_2488:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(2072);if(r)goto S_2488;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1956);}while(r); +if(!qbevent)break;evnt(2072);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1956);}while(r); +if(!qbevent)break;evnt(2072);}while(r); } do{ +*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ; +if(!qbevent)break;evnt(2074);}while(r); +do{ +return_point[next_return_point++]=1; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NORMALTYPEBLOCK; +RETURN_1:; +if(!qbevent)break;evnt(2075);}while(r); +do{ +*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ; +if(!qbevent)break;evnt(2076);}while(r); +LABEL_GETNEXTELEMENT:; +if(qbevent){evnt(2078);r=0;} +do{ +*__LONG_II=*__LONG_II+ 1 ; +if(!qbevent)break;evnt(2079);}while(r); +do{ +qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2080);}while(r); +S_2497:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2081);if(r)goto S_2497;} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2081);}while(r); +} +S_2500:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II==*__LONG_N))&(qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(2082);if(r)goto S_2500;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2082);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2082);}while(r); +} +S_2504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(2083);if(r)goto S_2504;} +S_2505:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(2084);if(r)goto S_2505;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2084);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2084);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2085);}while(r); +do{ +goto LABEL_GETNEXTELEMENT; +if(!qbevent)break;evnt(2086);}while(r); +} +do{ +qbs_set(__STRING_N,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2088);}while(r); +S_2513:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(2089);if(r)goto S_2513;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2089);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2089);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2090);}while(r); +do{ +qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2091);}while(r); +do{ +goto LABEL_NEXTTYPEELEMENT; +if(!qbevent)break;evnt(2092);}while(r); +} +} +S_2522:; +if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||new_error){ +if(qbevent){evnt(2096);if(r)goto S_2522;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2096);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2096);}while(r); +} +S_2526:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(2098);if(r)goto S_2526;} +S_2527:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ +if(qbevent){evnt(2099);if(r)goto S_2527;} +S_2528:; +if ((-(*__LONG_N!= 2 ))||new_error){ +if(qbevent){evnt(2100);if(r)goto S_2528;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2100);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2100);}while(r); +} +do{ +*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; +if(!qbevent)break;evnt(2101);}while(r); +do{ +qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string( -1 )),l2string(*__LONG_LASTTYPE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2102);}while(r); +do{ +*__LONG_DEFININGTYPE=*__LONG_LASTTYPE; +if(!qbevent)break;evnt(2103);}while(r); +do{ +*__LONG_I=*__LONG_DEFININGTYPE; +if(!qbevent)break;evnt(2104);}while(r); +S_2536:; +while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ +if(qbevent){evnt(2105);if(r)goto S_2536;} +do{ +SUB_INCREASEUDTARRAYS(); +if(!qbevent)break;evnt(2105);}while(r); +ww_continue_249:; +} +ww_exit_249:; +S_2539:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||new_error){ +if(qbevent){evnt(2106);if(r)goto S_2539;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2106);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2106);}while(r); +} +do{ +qbs_set(__STRING_TYPEDEFINITIONS,qbs_add(qbs_add(__STRING_TYPEDEFINITIONS,l2string(__STRING_SECONDELEMENT->len)),__STRING_SECONDELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2107);}while(r); +do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[tmp_long*256],256,1),__STRING_SECONDELEMENT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1957);}while(r); +if(!qbevent)break;evnt(2108);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass249= 2 ))); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass251= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1958);}while(r); +if(!qbevent)break;evnt(2109);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1959);}while(r); +if(!qbevent)break;evnt(2110);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1960);}while(r); +if(!qbevent)break;evnt(2111);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1961);}while(r); +if(!qbevent)break;evnt(2112);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1963);}while(r); +if(!qbevent)break;evnt(2114);}while(r); do{ *__LONG_HASHFLAGS= 256 ; -if(!qbevent)break;evnt(1964);}while(r); +if(!qbevent)break;evnt(2115);}while(r); do{ *__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 256 ; -if(!qbevent)break;evnt(1966);}while(r); +if(!qbevent)break;evnt(2117);}while(r); do{ *__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1967);}while(r); -S_2322:; +if(!qbevent)break;evnt(2118);}while(r); +S_2553:; while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(1968);if(r)goto S_2322;} +if(qbevent){evnt(2119);if(r)goto S_2553;} do{ *__LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(1969);}while(r); -S_2324:; +if(!qbevent)break;evnt(2120);}while(r); +S_2555:; if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ -if(qbevent){evnt(1970);if(r)goto S_2324;} +if(qbevent){evnt(2121);if(r)goto S_2555;} do{ *__LONG_ALLOW= 1 ; -if(!qbevent)break;evnt(1971);}while(r); +if(!qbevent)break;evnt(2122);}while(r); } -S_2327:; +S_2558:; if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(1973);if(r)goto S_2327;} -S_2328:; +if(qbevent){evnt(2124);if(r)goto S_2558;} +S_2559:; if ((-((*__LONG_HASHRESFLAGS&( 4 + 16 + 32 + 16384 ))== 0 ))||new_error){ -if(qbevent){evnt(1974);if(r)goto S_2328;} +if(qbevent){evnt(2125);if(r)goto S_2559;} do{ *__LONG_ALLOW= 1 ; -if(!qbevent)break;evnt(1974);}while(r); +if(!qbevent)break;evnt(2125);}while(r); } } -S_2332:; +S_2563:; if ((-(*__LONG_ALLOW== 0 ))||new_error){ -if(qbevent){evnt(1976);if(r)goto S_2332;} +if(qbevent){evnt(2127);if(r)goto S_2563;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1976);}while(r); +if(!qbevent)break;evnt(2127);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(1976);}while(r); +if(!qbevent)break;evnt(2127);}while(r); } -S_2336:; +S_2567:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(1977);if(r)goto S_2336;} +if(qbevent){evnt(2128);if(r)goto S_2567;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(1977);}while(r); +if(!qbevent)break;evnt(2128);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(1977);}while(r); +if(!qbevent)break;evnt(2128);}while(r); } -dl_continue_250:; +dl_continue_252:; } -dl_exit_250:; +dl_exit_252:; do{ SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1981);}while(r); +if(!qbevent)break;evnt(2132);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1983);}while(r); +if(!qbevent)break;evnt(2134);}while(r); } } -LABEL_STEVEWASHERE2:; -if(qbevent){evnt(1991);r=0;} -S_2346:; +S_2577:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ -if(qbevent){evnt(1994);if(r)goto S_2346;} +if(qbevent){evnt(2142);if(r)goto S_2577;} +S_2578:; +if (((-(*__LONG_SUBFUNCN> 0 ))&(-(*__BYTE_CLOSEDSUBFUNC!= 0 )))||new_error){ +if(qbevent){evnt(2147);if(r)goto S_2578;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Statement cannot be placed between SUB/FUNCTIONs",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2147);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2147);}while(r); +} do{ *__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2000);}while(r); -S_2348:; +if(!qbevent)break;evnt(2150);}while(r); +S_2583:; if ((*__LONG_I2)||new_error){ -if(qbevent){evnt(2001);if(r)goto S_2348;} -S_2349:; +if(qbevent){evnt(2151);if(r)goto S_2583;} +S_2584:; do{ -if(qbevent){evnt(2002);if(r)goto S_2349;} +if(qbevent){evnt(2152);if(r)goto S_2584;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_A,__STRING_A->len-*__LONG_I2- 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2003);}while(r); +if(!qbevent)break;evnt(2153);}while(r); do{ qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_left(__STRING_CA,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_CA,__STRING_CA->len-*__LONG_I2- 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2004);}while(r); +if(!qbevent)break;evnt(2154);}while(r); do{ *__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2005);}while(r); -S_2353:; -dl_continue_251:; +if(!qbevent)break;evnt(2155);}while(r); +S_2588:; +dl_continue_253:; }while((!(-(*__LONG_I2== 0 )))&&(!new_error)); -dl_exit_251:; -if(qbevent){evnt(2006);if(r)goto S_2353;} +dl_exit_253:; +if(qbevent){evnt(2156);if(r)goto S_2588;} do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2007);}while(r); +if(!qbevent)break;evnt(2157);}while(r); do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass254= 1 ))); +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass256= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2008);}while(r); +if(!qbevent)break;evnt(2158);}while(r); do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass255= 2 ))); +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass257= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2008);}while(r); +if(!qbevent)break;evnt(2158);}while(r); do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass256= 3 ))); +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass258= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2008);}while(r); +if(!qbevent)break;evnt(2158);}while(r); } -do{ -*__LONG_ALTERED= 0 ; -if(!qbevent)break;evnt(2014);}while(r); -S_2360:; -do{ -if(qbevent){evnt(2017);if(r)goto S_2360;} -do{ -*__LONG_L=func_instr(NULL,__STRING_WHOLESTV,qbs_new_txt_len("=_",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2018);}while(r); -S_2362:; -if ((*__LONG_L)||new_error){ -if(qbevent){evnt(2019);if(r)goto S_2362;} -do{ -qbs_set(__STRING_WHOLESTV,qbs_add(qbs_add(qbs_left(__STRING_WHOLESTV,*__LONG_L),qbs_new_txt_len(" ",1)),func_mid(__STRING_WHOLESTV,*__LONG_L+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2020);}while(r); -} -S_2365:; -dl_continue_257:; -}while((!(-(*__LONG_L== 0 )))&&(!new_error)); -dl_exit_257:; -if(qbevent){evnt(2022);if(r)goto S_2365;} -S_2366:; -do{ -if(qbevent){evnt(2025);if(r)goto S_2366;} -do{ -*__LONG_FINISHED= -1 ; -if(!qbevent)break;evnt(2026);}while(r); -do{ -*__LONG_L=func_instr(*__LONG_L+ 1 ,qbs_ucase(__STRING_WHOLESTV),qbs_new_txt_len(" _RGBA",6),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2027);}while(r); -S_2369:; -if ((-(*__LONG_L> 0 ))||new_error){ -if(qbevent){evnt(2028);if(r)goto S_2369;} -do{ -*__LONG_ALTERED= -1 ; -if(!qbevent)break;evnt(2029);}while(r); -do{ -qbs_set(__STRING_L,qbs_left(__STRING_WHOLESTV,*__LONG_L- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2030);}while(r); -do{ -*__LONG_VP=func_instr(*__LONG_L,__STRING_WHOLESTV,qbs_new_txt_len("(",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2031);}while(r); -S_2373:; -if ((-(*__LONG_VP> 0 ))||new_error){ -if(qbevent){evnt(2032);if(r)goto S_2373;} -do{ -*__LONG_E=func_instr(*__LONG_VP+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(")",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2033);}while(r); -S_2375:; -if ((-(*__LONG_E> 0 ))||new_error){ -if(qbevent){evnt(2034);if(r)goto S_2375;} -do{ -*__LONG_FIRST=func_instr(*__LONG_VP,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2036);}while(r); -do{ -*__LONG_SECOND=func_instr(*__LONG_FIRST+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2037);}while(r); -do{ -*__LONG_THIRD=func_instr(*__LONG_SECOND+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2038);}while(r); -do{ -*__LONG_FOURTH=func_instr(*__LONG_THIRD+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2039);}while(r); -do{ -qbs_set(__STRING_RED,func_mid(__STRING_WHOLESTV,*__LONG_VP+ 1 ,*__LONG_FIRST-*__LONG_VP- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2040);}while(r); -do{ -qbs_set(__STRING_GREEN,func_mid(__STRING_WHOLESTV,*__LONG_FIRST+ 1 ,*__LONG_SECOND-*__LONG_FIRST- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2041);}while(r); -do{ -qbs_set(__STRING_BLUE,func_mid(__STRING_WHOLESTV,*__LONG_SECOND+ 1 ,*__LONG_THIRD-*__LONG_SECOND- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2042);}while(r); -do{ -qbs_set(__STRING_ALPHA,func_mid(__STRING_WHOLESTV,*__LONG_THIRD+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2043);}while(r); -S_2384:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLESTV,*__LONG_L+ 6 , 2 ,1),qbs_new_txt_len("32",2))))||new_error){ -if(qbevent){evnt(2044);if(r)goto S_2384;} -do{ -qbs_set(__STRING_VAL,qbs_new_txt_len("32",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2045);}while(r); -}else{ -do{ -qbs_set(__STRING_VAL,func_mid(__STRING_WHOLESTV,*__LONG_FOURTH+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2047);}while(r); -} -S_2389:; -sc_259=func_val(__STRING_VAL); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(2049);if(r)goto S_2389;} -S_2390:; -if (((sc_259==( 0 ))||(sc_259==( 1 ))||(sc_259==( 2 ))||(sc_259==( 7 ))||(sc_259==( 8 ))||(sc_259==( 9 ))||(sc_259==( 10 ))||(sc_259==( 11 ))||(sc_259==( 12 ))||(sc_259==( 13 ))||(sc_259==( 256 )))||new_error){ -if(qbevent){evnt(2050);if(r)goto S_2390;} -do{ -*__LONG_WI=func__newimage( 240 , 120 ,qbr(func_val(__STRING_VAL)),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2051);}while(r); -do{ -*__ULONG_CLR=func__rgba(qbr(func_val(__STRING_RED)),qbr(func_val(__STRING_GREEN)),qbr(func_val(__STRING_BLUE)),qbr(func_val(__STRING_ALPHA)),*__LONG_WI,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2052);}while(r); -do{ -sub__freeimage(*__LONG_WI,1); -if(!qbevent)break;evnt(2053);}while(r); -goto sc_259_end; -} -S_2394:; -if (((sc_259==( 32 )))||new_error){ -if(qbevent){evnt(2054);if(r)goto S_2394;} -do{ -*__ULONG_CLR=func__rgba32(qbr(func_val(__STRING_RED)),qbr(func_val(__STRING_GREEN)),qbr(func_val(__STRING_BLUE)),qbr(func_val(__STRING_ALPHA))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2055);}while(r); -goto sc_259_end; -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid Screen Mode.",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2057);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2057);}while(r); -sc_259_end:; -do{ -qbs_set(__STRING_WHOLESTV,qbs_add(qbs_add(__STRING_L,qbs_str((uint32)(*__ULONG_CLR))),qbs_right(__STRING_WHOLESTV,__STRING_WHOLESTV->len-*__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2060);}while(r); -do{ -*__LONG_FINISHED= 0 ; -if(!qbevent)break;evnt(2061);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len(") Expected",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2064);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2064);}while(r); -} -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len("( Expected",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2068);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2068);}while(r); -} -} -S_2411:; -dl_continue_258:; -}while((!(*__LONG_FINISHED))&&(!new_error)); -dl_exit_258:; -if(qbevent){evnt(2071);if(r)goto S_2411;} -S_2412:; -do{ -if(qbevent){evnt(2073);if(r)goto S_2412;} -do{ -*__LONG_FINISHED= -1 ; -if(!qbevent)break;evnt(2074);}while(r); -do{ -*__LONG_L=func_instr(*__LONG_L+ 1 ,qbs_ucase(__STRING_WHOLESTV),qbs_new_txt_len(" _RGB32",7),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2075);}while(r); -S_2415:; -if ((-(*__LONG_L== 0 ))||new_error){ -if(qbevent){evnt(2076);if(r)goto S_2415;} -do{ -*__LONG_L=func_instr(*__LONG_L+ 1 ,qbs_ucase(__STRING_WHOLESTV),qbs_new_txt_len(" _RGB",5),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2076);}while(r); -} -S_2418:; -if ((-(*__LONG_L> 0 ))||new_error){ -if(qbevent){evnt(2077);if(r)goto S_2418;} -do{ -*__LONG_ALTERED= -1 ; -if(!qbevent)break;evnt(2078);}while(r); -do{ -qbs_set(__STRING_L,qbs_left(__STRING_WHOLESTV,*__LONG_L- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2079);}while(r); -do{ -*__LONG_VP=func_instr(*__LONG_L,__STRING_WHOLESTV,qbs_new_txt_len("(",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2080);}while(r); -S_2422:; -if ((-(*__LONG_VP> 0 ))||new_error){ -if(qbevent){evnt(2081);if(r)goto S_2422;} -do{ -*__LONG_E=func_instr(*__LONG_VP+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(")",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2082);}while(r); -S_2424:; -if ((-(*__LONG_E> 0 ))||new_error){ -if(qbevent){evnt(2083);if(r)goto S_2424;} -S_2425:; -if ((-(*__LONG_E==(*__LONG_VP+ 1 )))||new_error){ -if(qbevent){evnt(2084);if(r)goto S_2425;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2084);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2084);}while(r); -} -do{ -qbs_set(__STRING_RED,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2085);}while(r); -do{ -qbs_set(__STRING_GREEN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2086);}while(r); -do{ -qbs_set(__STRING_BLUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2087);}while(r); -do{ -qbs_set(__STRING_ALPHA,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2088);}while(r); -do{ -*__LONG_FIRST= 0 ; -if(!qbevent)break;evnt(2089);}while(r); -do{ -*__LONG_SECOND= 0 ; -if(!qbevent)break;evnt(2089);}while(r); -do{ -*__LONG_THIRD= 0 ; -if(!qbevent)break;evnt(2089);}while(r); -do{ -*__LONG_FIRST=func_instr(*__LONG_VP,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2090);}while(r); -S_2437:; -if ((*__LONG_FIRST)||new_error){ -if(qbevent){evnt(2091);if(r)goto S_2437;} -do{ -*__LONG_SECOND=func_instr(*__LONG_FIRST+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2091);}while(r); -} -S_2440:; -if ((*__LONG_SECOND)||new_error){ -if(qbevent){evnt(2092);if(r)goto S_2440;} -do{ -*__LONG_THIRD=func_instr(*__LONG_SECOND+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2092);}while(r); -} -S_2443:; -if (((-(*__LONG_FIRST> 0 ))&(-(*__LONG_SECOND> 0 ))&(-(*__LONG_THIRD> 0 )))||new_error){ -if(qbevent){evnt(2093);if(r)goto S_2443;} -do{ -qbs_set(__STRING_RED,func_mid(__STRING_WHOLESTV,*__LONG_VP+ 1 ,*__LONG_FIRST-*__LONG_VP- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2095);}while(r); -do{ -qbs_set(__STRING_GREEN,func_mid(__STRING_WHOLESTV,*__LONG_FIRST+ 1 ,*__LONG_SECOND-*__LONG_FIRST- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2096);}while(r); -do{ -qbs_set(__STRING_BLUE,func_mid(__STRING_WHOLESTV,*__LONG_SECOND+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2097);}while(r); -do{ -qbs_set(__STRING_ALPHA,func_mid(__STRING_WHOLESTV,*__LONG_THIRD+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2098);}while(r); -S_2448:; -}else{ -if ((-(*__LONG_FIRST> 0 ))&(-(*__LONG_SECOND> 0 ))){ -if(qbevent){evnt(2099);if(r)goto S_2448;} -do{ -qbs_set(__STRING_RED,func_mid(__STRING_WHOLESTV,*__LONG_VP+ 1 ,*__LONG_FIRST-*__LONG_VP- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2101);}while(r); -do{ -qbs_set(__STRING_GREEN,func_mid(__STRING_WHOLESTV,*__LONG_FIRST+ 1 ,*__LONG_SECOND-*__LONG_FIRST- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2102);}while(r); -do{ -qbs_set(__STRING_BLUE,func_mid(__STRING_WHOLESTV,*__LONG_SECOND+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2103);}while(r); -S_2452:; -}else{ -if (-(*__LONG_FIRST> 0 )){ -if(qbevent){evnt(2104);if(r)goto S_2452;} -do{ -qbs_set(__STRING_RED,func_mid(__STRING_WHOLESTV,*__LONG_VP+ 1 ,*__LONG_FIRST-*__LONG_VP- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2106);}while(r); -do{ -qbs_set(__STRING_ALPHA,func_mid(__STRING_WHOLESTV,*__LONG_FIRST+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2107);}while(r); -}else{ -do{ -qbs_set(__STRING_RED,func_mid(__STRING_WHOLESTV,*__LONG_VP+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2110);}while(r); -} -} -} -S_2458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLESTV,*__LONG_L+ 5 , 2 ,1),qbs_new_txt_len("32",2))))||new_error){ -if(qbevent){evnt(2113);if(r)goto S_2458;} -do{ -qbs_set(__STRING_VAL,qbs_new_txt_len("32",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2114);}while(r); -}else{ -do{ -qbs_set(__STRING_VAL,func_mid(__STRING_WHOLESTV,*__LONG_THIRD+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2116);}while(r); -S_2462:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_VAL)== 32 )))||new_error){ -if(qbevent){evnt(2117);if(r)goto S_2462;} -do{ -qbs_set(__STRING_VAL,qbs_new_txt_len("33",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2117);}while(r); -} -} -S_2466:; -sc_262=func_val(__STRING_VAL); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(2120);if(r)goto S_2466;} -S_2467:; -if (((sc_262==( 0 ))||(sc_262==( 1 ))||(sc_262==( 2 ))||(sc_262==( 7 ))||(sc_262==( 8 ))||(sc_262==( 9 ))||(sc_262==( 10 ))||(sc_262==( 11 ))||(sc_262==( 12 ))||(sc_262==( 13 ))||(sc_262==( 33 ))||(sc_262==( 256 )))||new_error){ -if(qbevent){evnt(2121);if(r)goto S_2467;} -S_2468:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VAL,qbs_new_txt_len("33",2))))||new_error){ -if(qbevent){evnt(2122);if(r)goto S_2468;} -do{ -qbs_set(__STRING_VAL,qbs_new_txt_len("32",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2122);}while(r); -} -do{ -*__LONG_WI=func__newimage( 240 , 120 ,qbr(func_val(__STRING_VAL)),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2123);}while(r); -do{ -*__ULONG_CLR=func__rgb(qbr(func_val(__STRING_RED)),qbr(func_val(__STRING_GREEN)),qbr(func_val(__STRING_BLUE)),*__LONG_WI,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2124);}while(r); -do{ -sub__freeimage(*__LONG_WI,1); -if(!qbevent)break;evnt(2125);}while(r); -goto sc_262_end; -} -S_2474:; -if (((sc_262==( 32 )))||new_error){ -if(qbevent){evnt(2126);if(r)goto S_2474;} -S_2475:; -if (((-(*__LONG_FIRST> 0 ))&(-(*__LONG_SECOND> 0 ))&(-(*__LONG_THIRD> 0 )))||new_error){ -if(qbevent){evnt(2127);if(r)goto S_2475;} -do{ -*__ULONG_CLR=func__rgb32(qbr(func_val(__STRING_RED)),qbr(func_val(__STRING_GREEN)),qbr(func_val(__STRING_BLUE)),qbr(func_val(__STRING_ALPHA))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2129);}while(r); -S_2477:; -}else{ -if ((-(*__LONG_FIRST> 0 ))&(-(*__LONG_SECOND> 0 ))){ -if(qbevent){evnt(2130);if(r)goto S_2477;} -do{ -*__ULONG_CLR=func__rgb32(qbr(func_val(__STRING_RED)),qbr(func_val(__STRING_GREEN)),qbr(func_val(__STRING_BLUE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2132);}while(r); -S_2479:; -}else{ -if (-(*__LONG_FIRST> 0 )){ -if(qbevent){evnt(2133);if(r)goto S_2479;} -do{ -*__ULONG_CLR=func__rgb32(qbr(func_val(__STRING_RED)),qbr(func_val(__STRING_ALPHA))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2135);}while(r); -}else{ -do{ -*__ULONG_CLR=func__rgb32(qbr(func_val(__STRING_RED))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2137);}while(r); -} -} -} -goto sc_262_end; -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid screen mode",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2140);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2140);}while(r); -sc_262_end:; -do{ -qbs_set(__STRING_WHOLESTV,qbs_add(qbs_add(__STRING_L,qbs_str((uint32)(*__ULONG_CLR))),qbs_right(__STRING_WHOLESTV,__STRING_WHOLESTV->len-*__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2143);}while(r); -do{ -*__LONG_FINISHED= 0 ; -if(!qbevent)break;evnt(2144);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len(") Expected",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2146);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2146);}while(r); -} -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len("( Expected",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2149);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2149);}while(r); -} -} -S_2499:; -dl_continue_261:; -}while((!(*__LONG_FINISHED))&&(!new_error)); -dl_exit_261:; -if(qbevent){evnt(2152);if(r)goto S_2499;} -do{ -*__LONG_L= 0 ; -if(!qbevent)break;evnt(2159);}while(r); -do{ -*__LONG_EMERGENCY_EXIT= 0 ; -if(!qbevent)break;evnt(2159);}while(r); -S_2502:; -do{ -if(qbevent){evnt(2160);if(r)goto S_2502;} -do{ -*__LONG_L=func_instr(*__LONG_L+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len("=",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2161);}while(r); -S_2504:; -if ((*__LONG_L)||new_error){ -if(qbevent){evnt(2162);if(r)goto S_2504;} -do{ -*__LONG_L2=func_instr(*__LONG_L+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2163);}while(r); -S_2506:; -if ((-(*__LONG_L2== 0 ))||new_error){ -if(qbevent){evnt(2164);if(r)goto S_2506;} -do{ -*__LONG_L2=__STRING_WHOLESTV->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2165);}while(r); -}else{ -do{ -*__LONG_L2=*__LONG_L2- 1 ; -if(!qbevent)break;evnt(2167);}while(r); -} -do{ -qbs_set(__STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_mid(__STRING_WHOLESTV,*__LONG_L+ 1 ,*__LONG_L2-*__LONG_L,1)),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2169);}while(r); -S_2512:; -fornext_value267= 0 ; -fornext_finalvalue267=*__LONG_CONSTLAST; -fornext_step267= 1 ; -if (fornext_step267<0) fornext_step_negative267=1; else fornext_step_negative267=0; -if (new_error) goto fornext_error267; -goto fornext_entrylabel267; -while(1){ -fornext_value267=fornext_step267+(*__LONG_I2); -fornext_entrylabel267: -*__LONG_I2=fornext_value267; -if (fornext_step_negative267){ -if (fornext_value267fornext_finalvalue267) break; -} -fornext_error267:; -if(qbevent){evnt(2171);if(r)goto S_2512;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_CNAME[4],__ARRAY_STRING_CNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2172);}while(r); -do{ -tmp_long=array_check(( 2 )-__ARRAY_STRING_CNAME[4],__ARRAY_STRING_CNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("(",1),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2173);}while(r); -do{ -tmp_long=array_check(( 3 )-__ARRAY_STRING_CNAME[4],__ARRAY_STRING_CNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2174);}while(r); -do{ -tmp_long=array_check(( 4 )-__ARRAY_STRING_CNAME[4],__ARRAY_STRING_CNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("(",1),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2175);}while(r); -S_2517:; -do{ -if(qbevent){evnt(2176);if(r)goto S_2517;} -do{ -*__LONG_FOUND= 0 ; -if(!qbevent)break;evnt(2177);}while(r); -S_2519:; -fornext_value270= 1 ; -fornext_finalvalue270= 4 ; -fornext_step270= 1 ; -if (fornext_step270<0) fornext_step_negative270=1; else fornext_step_negative270=0; -if (new_error) goto fornext_error270; -goto fornext_entrylabel270; -while(1){ -fornext_value270=fornext_step270+(*__LONG_I3); -fornext_entrylabel270: -*__LONG_I3=fornext_value270; -if (fornext_step_negative270){ -if (fornext_value270fornext_finalvalue270) break; -} -fornext_error270:; -if(qbevent){evnt(2178);if(r)goto S_2519;} -do{ -*__LONG_FOUND=func_instr(NULL,qbs_ucase(__STRING_TEMP),((qbs*)(((uint64*)(__ARRAY_STRING_CNAME[0]))[array_check((*__LONG_I3)-__ARRAY_STRING_CNAME[4],__ARRAY_STRING_CNAME[5])])),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2179);}while(r); -S_2521:; -if ((*__LONG_FOUND)||new_error){ -if(qbevent){evnt(2180);if(r)goto S_2521;} -do{ -goto fornext_exit_269; -if(!qbevent)break;evnt(2180);}while(r); -} -fornext_continue_269:; -} -fornext_exit_269:; -S_2525:; -if ((*__LONG_FOUND)||new_error){ -if(qbevent){evnt(2182);if(r)goto S_2525;} -do{ -*__LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(2183);}while(r); -S_2527:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2184);if(r)goto S_2527;} -do{ -qbs_set(__STRING_R,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2185);}while(r); -do{ -*__LONG_I4=func__instrrev(NULL,__STRING_R,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2186);}while(r); -do{ -qbs_set(__STRING_R,qbs_left(__STRING_R,*__LONG_I4- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2187);}while(r); -}else{ -S_2532:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2189);if(r)goto S_2532;} -do{ -qbs_set(__STRING_R,qbs_str((long double)(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2190);}while(r); -}else{ -S_2535:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(2192);if(r)goto S_2535;} -do{ -qbs_set(__STRING_R,qbs_str((uint64)(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2192);}while(r); -}else{ -do{ -qbs_set(__STRING_R,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2192);}while(r); -} -} -} -do{ -qbs_set(__STRING_TEMP,qbs_add(qbs_add(qbs_left(__STRING_TEMP,*__LONG_FOUND),__STRING_R),func_mid(__STRING_TEMP,*__LONG_FOUND+((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))->len+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2195);}while(r); -do{ -*__LONG_ALTERED= -1 ; -if(!qbevent)break;evnt(2197);}while(r); -} -S_2545:; -dl_continue_268:; -}while((!(-(*__LONG_FOUND== 0 )))&&(!new_error)); -dl_exit_268:; -if(qbevent){evnt(2199);if(r)goto S_2545;} -fornext_continue_266:; -} -fornext_exit_266:; -do{ -qbs_set(__STRING_WHOLESTV,qbs_add(qbs_add(qbs_left(__STRING_WHOLESTV,*__LONG_L),qbs__trim(__STRING_TEMP)),func_mid(__STRING_WHOLESTV,*__LONG_L2+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2201);}while(r); -do{ -*__LONG_L=*__LONG_L+ 1 ; -if(!qbevent)break;evnt(2202);}while(r); -} -do{ -*__LONG_EMERGENCY_EXIT=*__LONG_EMERGENCY_EXIT+ 1 ; -if(!qbevent)break;evnt(2204);}while(r); -S_2551:; -if ((-(*__LONG_EMERGENCY_EXIT> 10000 ))||new_error){ -if(qbevent){evnt(2205);if(r)goto S_2551;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("CONST ERROR: Endless Loop trying to substitute values.",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2205);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2205);}while(r); -} -S_2555:; -dl_continue_264:; -}while((!(-(*__LONG_L== 0 )))&&(!new_error)); -dl_exit_264:; -if(qbevent){evnt(2206);if(r)goto S_2555;} -do{ -*__LONG_L= 0 ; -if(!qbevent)break;evnt(2208);}while(r); -do{ -*__LONG_EMERGENCY_EXIT= 0 ; -if(!qbevent)break;evnt(2208);}while(r); -S_2558:; -do{ -if(qbevent){evnt(2209);if(r)goto S_2558;} -do{ -*__LONG_L=func_instr(*__LONG_L+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len("=",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2210);}while(r); -S_2560:; -if ((*__LONG_L)||new_error){ -if(qbevent){evnt(2211);if(r)goto S_2560;} -do{ -*__LONG_L2=func_instr(*__LONG_L+ 1 ,__STRING_WHOLESTV,qbs_new_txt_len(",",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2212);}while(r); -S_2562:; -if ((-(*__LONG_L2== 0 ))||new_error){ -if(qbevent){evnt(2213);if(r)goto S_2562;} -do{ -*__LONG_L2=__STRING_WHOLESTV->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2214);}while(r); -}else{ -do{ -*__LONG_L2=*__LONG_L2- 1 ; -if(!qbevent)break;evnt(2216);}while(r); -} -do{ -qbs_set(__STRING_TEMP,func_mid(__STRING_WHOLESTV,*__LONG_L+ 1 ,*__LONG_L2-*__LONG_L,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2218);}while(r); -do{ -qbs_set(__STRING_TEMP,qbs__trim(__STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2219);}while(r); -do{ -qbs_set(__STRING_TEMP1,FUNC_EVALUATE_EXPRESSION(__STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2220);}while(r); -S_2570:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(__STRING_TEMP1, 5 ),qbs_new_txt_len("ERROR",5)))&(qbs_notequal(__STRING_TEMP,__STRING_TEMP1))))||new_error){ -if(qbevent){evnt(2221);if(r)goto S_2570;} -do{ -*__LONG_ALTERED= -1 ; -if(!qbevent)break;evnt(2223);}while(r); -do{ -qbs_set(__STRING_WHOLESTV,qbs_add(qbs_add(qbs_left(__STRING_WHOLESTV,*__LONG_L),__STRING_TEMP1),func_mid(__STRING_WHOLESTV,*__LONG_L2+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2224);}while(r); -}else{ -} -do{ -*__LONG_L=*__LONG_L+ 1 ; -if(!qbevent)break;evnt(2228);}while(r); -} -do{ -*__LONG_EMERGENCY_EXIT=*__LONG_EMERGENCY_EXIT+ 1 ; -if(!qbevent)break;evnt(2230);}while(r); -S_2578:; -if ((-(*__LONG_EMERGENCY_EXIT> 10000 ))||new_error){ -if(qbevent){evnt(2231);if(r)goto S_2578;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("CONST ERROR: Attempting to process MATH Function caused Endless Loop. Please recheck your math formula.",104)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2231);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2231);}while(r); -} -S_2582:; -dl_continue_272:; -}while((!(-(*__LONG_L== 0 )))&&(!new_error)); -dl_exit_272:; -if(qbevent){evnt(2232);if(r)goto S_2582;} -S_2583:; -if ((*__LONG_ALTERED)||new_error){ -if(qbevent){evnt(2238);if(r)goto S_2583;} -do{ -*__LONG_ALTERED= 0 ; -if(!qbevent)break;evnt(2239);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,__STRING_WHOLESTV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2240);}while(r); -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; -if(!qbevent)break;evnt(2241);}while(r); -do{ -goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(2242);}while(r); -} -S_2589:; +S_2594:; if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(2249);if(r)goto S_2589;} +if(qbevent){evnt(2161);if(r)goto S_2594;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2249);}while(r); +if(!qbevent)break;evnt(2161);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2249);}while(r); +if(!qbevent)break;evnt(2161);}while(r); } do{ *__LONG_I= 2 ; -if(!qbevent)break;evnt(2250);}while(r); +if(!qbevent)break;evnt(2162);}while(r); LABEL_CONSTDEFPENDINGPP:; -if(qbevent){evnt(2251);r=0;} +if(qbevent){evnt(2163);r=0;} do{ *__LONG_PENDING= 0 ; -if(!qbevent)break;evnt(2252);}while(r); +if(!qbevent)break;evnt(2164);}while(r); do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2254);}while(r); +if(!qbevent)break;evnt(2166);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(2254);}while(r); +if(!qbevent)break;evnt(2166);}while(r); do{ *__LONG_TYPEOVERRIDE= 0 ; -if(!qbevent)break;evnt(2256);}while(r); +if(!qbevent)break;evnt(2167);}while(r); do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2257);}while(r); -S_2599:; +if(!qbevent)break;evnt(2168);}while(r); +S_2604:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2258);if(r)goto S_2599;} +if(qbevent){evnt(2169);if(r)goto S_2604;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2258);}while(r); +if(!qbevent)break;evnt(2169);}while(r); } -S_2602:; +S_2607:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2259);if(r)goto S_2602;} +if(qbevent){evnt(2170);if(r)goto S_2607;} do{ *__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2260);}while(r); -S_2604:; +if(!qbevent)break;evnt(2171);}while(r); +S_2609:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2261);if(r)goto S_2604;} +if(qbevent){evnt(2172);if(r)goto S_2609;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2261);}while(r); +if(!qbevent)break;evnt(2172);}while(r); } -S_2607:; +S_2612:; if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(2262);if(r)goto S_2607;} +if(qbevent){evnt(2173);if(r)goto S_2612;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2262);}while(r); +if(!qbevent)break;evnt(2173);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2262);}while(r); -} -S_2611:; -if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ -if(qbevent){evnt(2263);if(r)goto S_2611;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2263);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2263);}while(r); -} +if(!qbevent)break;evnt(2173);}while(r); } S_2616:; +if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ +if(qbevent){evnt(2174);if(r)goto S_2616;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2174);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2174);}while(r); +} +} +S_2621:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(2266);if(r)goto S_2616;} +if(qbevent){evnt(2177);if(r)goto S_2621;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2266);}while(r); +if(!qbevent)break;evnt(2177);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2266);}while(r); +if(!qbevent)break;evnt(2177);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(2267);}while(r); +if(!qbevent)break;evnt(2178);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2270);}while(r); +if(!qbevent)break;evnt(2181);}while(r); +do{ +qbs_set(__STRING_READABLE_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2182);}while(r); do{ *__LONG_B= 0 ; -if(!qbevent)break;evnt(2271);}while(r); -S_2623:; -fornext_value275=*__LONG_I; -fornext_finalvalue275=*__LONG_N; -fornext_step275= 1 ; -if (fornext_step275<0) fornext_step_negative275=1; else fornext_step_negative275=0; -if (new_error) goto fornext_error275; -goto fornext_entrylabel275; +if(!qbevent)break;evnt(2183);}while(r); +S_2629:; +fornext_value260=*__LONG_I; +fornext_finalvalue260=*__LONG_N; +fornext_step260= 1 ; +if (fornext_step260<0) fornext_step_negative260=1; else fornext_step_negative260=0; +if (new_error) goto fornext_error260; +goto fornext_entrylabel260; while(1){ -fornext_value275=fornext_step275+(*__LONG_I2); -fornext_entrylabel275: -*__LONG_I2=fornext_value275; -if (fornext_step_negative275){ -if (fornext_value275fornext_finalvalue275) break; +if (fornext_value260>fornext_finalvalue260) break; } -fornext_error275:; -if(qbevent){evnt(2272);if(r)goto S_2623;} +fornext_error260:; +if(qbevent){evnt(2184);if(r)goto S_2629;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2273);}while(r); -S_2625:; +if(!qbevent)break;evnt(2185);}while(r); +S_2631:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2274);if(r)goto S_2625;} +if(qbevent){evnt(2186);if(r)goto S_2631;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(2274);}while(r); +if(!qbevent)break;evnt(2186);}while(r); } -S_2628:; +S_2634:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2275);if(r)goto S_2628;} +if(qbevent){evnt(2187);if(r)goto S_2634;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(2275);}while(r); +if(!qbevent)break;evnt(2187);}while(r); } -S_2631:; +S_2637:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(2276);if(r)goto S_2631;} +if(qbevent){evnt(2188);if(r)goto S_2637;} do{ *__LONG_PENDING= 1 ; -if(!qbevent)break;evnt(2277);}while(r); +if(!qbevent)break;evnt(2189);}while(r); do{ *__LONG_I=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(2278);}while(r); -S_2634:; +if(!qbevent)break;evnt(2190);}while(r); +S_2640:; if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ -if(qbevent){evnt(2279);if(r)goto S_2634;} +if(qbevent){evnt(2191);if(r)goto S_2640;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2279);}while(r); +if(!qbevent)break;evnt(2191);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2279);}while(r); +if(!qbevent)break;evnt(2191);}while(r); } do{ -goto fornext_exit_274; -if(!qbevent)break;evnt(2280);}while(r); +goto fornext_exit_259; +if(!qbevent)break;evnt(2192);}while(r); } -S_2640:; +S_2646:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(2282);if(r)goto S_2640;} +if(qbevent){evnt(2194);if(r)goto S_2646;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2282);}while(r); +if(!qbevent)break;evnt(2194);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2282);}while(r); +if(!qbevent)break;evnt(2194);}while(r); +} +do{ +qbs_set(__STRING_E3,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2196);}while(r); +S_2652:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E2->len> 1 )))||new_error){ +if(qbevent){evnt(2197);if(r)goto S_2652;} +S_2653:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_E2, 1 )== 34 )))||new_error){ +if(qbevent){evnt(2198);if(r)goto S_2653;} +do{ +*__LONG_REMOVECOMMA=func__instrrev(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2199);}while(r); +do{ +qbs_set(__STRING_E3,qbs_left(__STRING_E2,*__LONG_REMOVECOMMA- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2200);}while(r); +}else{ +do{ +*__LONG_REMOVECOMMA=func_instr(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2202);}while(r); +do{ +qbs_set(__STRING_E3,func_mid(__STRING_E2,*__LONG_REMOVECOMMA+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2203);}while(r); +} +} +S_2661:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_READABLE_E->len== 0 )))||new_error){ +if(qbevent){evnt(2207);if(r)goto S_2661;} +do{ +qbs_set(__STRING_READABLE_E,__STRING_E3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2208);}while(r); +}else{ +do{ +qbs_set(__STRING_READABLE_E,qbs_add(qbs_add(__STRING_READABLE_E,qbs_new_txt_len(" ",1)),__STRING_E3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2210);}while(r); +} +fornext_continue_259:; +} +fornext_exit_259:; +S_2667:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_READABLE_E, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(2216);if(r)goto S_2667;} +do{ +qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_READABLE_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2217);}while(r); +S_2669:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(__STRING_TEMP1, 5 ),qbs_new_txt_len("ERROR",5)))&(qbs_notequal(__STRING_E,__STRING_TEMP1))))||new_error){ +if(qbevent){evnt(2218);if(r)goto S_2669;} +do{ +qbs_set(__STRING_E,FUNC_LINEFORMAT(__STRING_TEMP1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2219);}while(r); +}else{ +S_2672:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP1,qbs_new_txt_len("ERROR - Division By Zero",24))))||new_error){ +if(qbevent){evnt(2221);if(r)goto S_2672;} +do{ +qbs_set(__STRING_A,__STRING_TEMP1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2221);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2221);}while(r); +} +S_2676:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP1,qbs_new_txt_len("Improper operations",19),0)))||new_error){ +if(qbevent){evnt(2222);if(r)goto S_2676;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid CONST expression.14",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2223);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2223);}while(r); +} } -fornext_continue_274:; } -fornext_exit_274:; do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2285);}while(r); -S_2647:; +if(!qbevent)break;evnt(2229);}while(r); +S_2683:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2286);if(r)goto S_2647;} +if(qbevent){evnt(2230);if(r)goto S_2683;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2286);}while(r); +if(!qbevent)break;evnt(2230);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATECONST(__STRING_E,__LONG_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2288);}while(r); -S_2651:; +if(!qbevent)break;evnt(2232);}while(r); +S_2687:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2289);if(r)goto S_2651;} +if(qbevent){evnt(2233);if(r)goto S_2687;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2289);}while(r); +if(!qbevent)break;evnt(2233);}while(r); } -S_2654:; +S_2690:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2291);if(r)goto S_2654;} -S_2655:; +if(qbevent){evnt(2235);if(r)goto S_2690;} +S_2691:; if ((*__LONG_TYPEOVERRIDE)||new_error){ -if(qbevent){evnt(2293);if(r)goto S_2655;} -S_2656:; +if(qbevent){evnt(2237);if(r)goto S_2691;} +S_2692:; if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(2294);if(r)goto S_2656;} +if(qbevent){evnt(2238);if(r)goto S_2692;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2294);}while(r); +if(!qbevent)break;evnt(2238);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2294);}while(r); +if(!qbevent)break;evnt(2238);}while(r); } } }else{ -S_2662:; +S_2698:; if ((*__LONG_TYPEOVERRIDE)||new_error){ -if(qbevent){evnt(2299);if(r)goto S_2662;} -S_2663:; +if(qbevent){evnt(2243);if(r)goto S_2698;} +S_2699:; if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2300);if(r)goto S_2663;} +if(qbevent){evnt(2244);if(r)goto S_2699;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2300);}while(r); +if(!qbevent)break;evnt(2244);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2300);}while(r); +if(!qbevent)break;evnt(2244);}while(r); } } -S_2668:; +S_2704:; if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2303);if(r)goto S_2668;} +if(qbevent){evnt(2247);if(r)goto S_2704;} do{ *__FLOAT_CONSTVAL=string2f(__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2304);}while(r); +if(!qbevent)break;evnt(2248);}while(r); do{ *__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL); -if(!qbevent)break;evnt(2305);}while(r); +if(!qbevent)break;evnt(2249);}while(r); do{ *__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2306);}while(r); +if(!qbevent)break;evnt(2250);}while(r); }else{ -S_2673:; +S_2709:; if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 511 )== 64 )))||new_error){ -if(qbevent){evnt(2308);if(r)goto S_2673;} +if(qbevent){evnt(2252);if(r)goto S_2709;} do{ *__UINTEGER64_CONSTVAL=string2ui64(__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2309);}while(r); +if(!qbevent)break;evnt(2253);}while(r); do{ *__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2310);}while(r); +if(!qbevent)break;evnt(2254);}while(r); do{ *__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2311);}while(r); +if(!qbevent)break;evnt(2255);}while(r); }else{ do{ *__INTEGER64_CONSTVAL=string2i64(__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2313);}while(r); +if(!qbevent)break;evnt(2257);}while(r); do{ *__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2314);}while(r); +if(!qbevent)break;evnt(2258);}while(r); do{ *__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2315);}while(r); +if(!qbevent)break;evnt(2259);}while(r); } } -S_2683:; +S_2719:; if ((*__LONG_TYPEOVERRIDE)||new_error){ -if(qbevent){evnt(2320);if(r)goto S_2683;} +if(qbevent){evnt(2264);if(r)goto S_2719;} do{ *__LONG_T=*__LONG_TYPEOVERRIDE; -if(!qbevent)break;evnt(2322);}while(r); +if(!qbevent)break;evnt(2266);}while(r); } } do{ *__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; -if(!qbevent)break;evnt(2327);}while(r); -S_2688:; +if(!qbevent)break;evnt(2271);}while(r); +S_2724:; if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ -if(qbevent){evnt(2328);if(r)goto S_2688;} +if(qbevent){evnt(2272);if(r)goto S_2724;} do{ *__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; -if(!qbevent)break;evnt(2329);}while(r); +if(!qbevent)break;evnt(2273);}while(r); do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ @@ -11133,7 +11106,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs } } } -if(!qbevent)break;evnt(2330);}while(r); +if(!qbevent)break;evnt(2274);}while(r); do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ @@ -11178,7 +11151,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qb } } } -if(!qbevent)break;evnt(2331);}while(r); +if(!qbevent)break;evnt(2275);}while(r); do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ @@ -11223,7 +11196,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint } } } -if(!qbevent)break;evnt(2332);}while(r); +if(!qbevent)break;evnt(2276);}while(r); do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ @@ -11263,7 +11236,7 @@ if (!__ARRAY_LONG_CONSTTYPE[0]) error(257); } __ARRAY_LONG_CONSTTYPE[2]|=1; } -if(!qbevent)break;evnt(2333);}while(r); +if(!qbevent)break;evnt(2277);}while(r); do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ @@ -11303,7 +11276,7 @@ if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; } -if(!qbevent)break;evnt(2334);}while(r); +if(!qbevent)break;evnt(2278);}while(r); do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ @@ -11343,7 +11316,7 @@ if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; } -if(!qbevent)break;evnt(2335);}while(r); +if(!qbevent)break;evnt(2279);}while(r); do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ @@ -11383,7 +11356,7 @@ if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257); } __ARRAY_FLOAT_CONSTFLOAT[2]|=1; } -if(!qbevent)break;evnt(2336);}while(r); +if(!qbevent)break;evnt(2280);}while(r); do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ @@ -11428,7 +11401,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)q } } } -if(!qbevent)break;evnt(2337);}while(r); +if(!qbevent)break;evnt(2281);}while(r); do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ @@ -11468,7 +11441,7 @@ if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257); } __ARRAY_LONG_CONSTSUBFUNC[2]|=1; } -if(!qbevent)break;evnt(2338);}while(r); +if(!qbevent)break;evnt(2282);}while(r); do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ @@ -11508,2896 +11481,3018 @@ if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257); } __ARRAY_LONG_CONSTDEFINED[2]|=1; } -if(!qbevent)break;evnt(2339);}while(r); +if(!qbevent)break;evnt(2283);}while(r); } do{ *__LONG_I2=*__LONG_CONSTLAST; -if(!qbevent)break;evnt(2342);}while(r); +if(!qbevent)break;evnt(2286);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(2344);}while(r); -S_2703:; +if(!qbevent)break;evnt(2288);}while(r); +S_2739:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(2347);if(r)goto S_2703;} +if(qbevent){evnt(2291);if(r)goto S_2739;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2347);}while(r); +if(!qbevent)break;evnt(2291);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2347);}while(r); +if(!qbevent)break;evnt(2291);}while(r); } do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_ucase(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2348);}while(r); +if(!qbevent)break;evnt(2292);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2350);}while(r); +if(!qbevent)break;evnt(2294);}while(r); do{ *__LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(2353);}while(r); +if(!qbevent)break;evnt(2297);}while(r); LABEL_CONST_RECHECK:; -if(qbevent){evnt(2354);r=0;} +if(qbevent){evnt(2298);r=0;} do{ *__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 1024 ; -if(!qbevent)break;evnt(2355);}while(r); +if(!qbevent)break;evnt(2299);}while(r); do{ *__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2356);}while(r); -S_2712:; +if(!qbevent)break;evnt(2300);}while(r); +S_2748:; while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(2357);if(r)goto S_2712;} -S_2713:; +if(qbevent){evnt(2301);if(r)goto S_2748;} +S_2749:; if ((*__LONG_HASHRESFLAGS& 1024 )||new_error){ -if(qbevent){evnt(2358);if(r)goto S_2713;} -S_2714:; +if(qbevent){evnt(2302);if(r)goto S_2749;} +S_2750:; if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(2359);if(r)goto S_2714;} +if(qbevent){evnt(2303);if(r)goto S_2750;} do{ *__LONG_ISSUEWARNING= 0 ; -if(!qbevent)break;evnt(2362);}while(r); -S_2716:; +if(!qbevent)break;evnt(2306);}while(r); +S_2752:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2363);if(r)goto S_2716;} -S_2717:; +if(qbevent){evnt(2307);if(r)goto S_2752;} +S_2753:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])])),__STRING_E)))||new_error){ -if(qbevent){evnt(2364);if(r)goto S_2717;} +if(qbevent){evnt(2308);if(r)goto S_2753;} do{ *__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2364);}while(r); +if(!qbevent)break;evnt(2308);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2308);}while(r); } }else{ -S_2721:; +S_2758:; if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2366);if(r)goto S_2721;} -S_2722:; +if(qbevent){evnt(2310);if(r)goto S_2758;} +S_2759:; if ((-(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]==*__FLOAT_CONSTVAL))||new_error){ -if(qbevent){evnt(2367);if(r)goto S_2722;} +if(qbevent){evnt(2311);if(r)goto S_2759;} do{ *__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2367);}while(r); +if(!qbevent)break;evnt(2311);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,qbs_str((long double)(*__FLOAT_CONSTVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2311);}while(r); } }else{ -S_2726:; +S_2764:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(2369);if(r)goto S_2726;} -S_2727:; +if(qbevent){evnt(2313);if(r)goto S_2764;} +S_2765:; if ((-(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]==*__UINTEGER64_CONSTVAL))||new_error){ -if(qbevent){evnt(2370);if(r)goto S_2727;} +if(qbevent){evnt(2314);if(r)goto S_2765;} do{ *__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2370);}while(r); +if(!qbevent)break;evnt(2314);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,qbs_str((uint64)(*__UINTEGER64_CONSTVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2314);}while(r); } }else{ -S_2731:; +S_2770:; if ((-(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]==*__INTEGER64_CONSTVAL))||new_error){ -if(qbevent){evnt(2372);if(r)goto S_2731;} +if(qbevent){evnt(2316);if(r)goto S_2770;} do{ *__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2372);}while(r); +if(!qbevent)break;evnt(2316);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,qbs_str((int64)(*__INTEGER64_CONSTVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2316);}while(r); } } } } -S_2737:; +S_2777:; if ((*__LONG_ISSUEWARNING)||new_error){ -if(qbevent){evnt(2376);if(r)goto S_2737;} +if(qbevent){evnt(2320);if(r)goto S_2777;} +S_2778:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(2321);if(r)goto S_2778;} do{ -SUB_ADDWARNING(&(pass278= 0 ),qbs_new_txt_len("Constant already defined (same value):",38)); +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("duplicate constant definition",29),qbs_add(qbs_add(__STRING_N,qbs_new_txt_len(" =",2)),__STRING_THISCONSTVAL)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2377);}while(r); -do{ -SUB_ADDWARNING(__LONG_LINENUMBER,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2378);}while(r); -S_2740:; -if ((-(*__LONG_IDEMODE== 0 ))||new_error){ -if(qbevent){evnt(2379);if(r)goto S_2740;} -S_2741:; -if ((-(*__BYTE_DUPLICATECONSTWARNING== 0 ))||new_error){ -if(qbevent){evnt(2380);if(r)goto S_2741;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("WARNING: duplicate constant definition",38)); -if (new_error) goto skip279; -makefit(tqbs); -qbs_print(tqbs,0); -skip279: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2380);}while(r); -} -S_2744:; -if ((*__BYTE_VERBOSEMODE)||new_error){ -if(qbevent){evnt(2381);if(r)goto S_2744;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(": '",3)); -if (new_error) goto skip280; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_N); -if (new_error) goto skip280; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("' (line",7)); -if (new_error) goto skip280; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_str((int32)(*__LONG_LINENUMBER))); -if (new_error) goto skip280; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(")",1)); -if (new_error) goto skip280; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip280: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2382);}while(r); -}else{ -S_2747:; -if ((-(*__BYTE_DUPLICATECONSTWARNING== 0 ))||new_error){ -if(qbevent){evnt(2384);if(r)goto S_2747;} -do{ -*__BYTE_DUPLICATECONSTWARNING= -1 ; -if(!qbevent)break;evnt(2385);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip281: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2386);}while(r); -} -} +if(!qbevent)break;evnt(2322);}while(r); } do{ goto LABEL_CONSTADDDONE; -if(!qbevent)break;evnt(2390);}while(r); +if(!qbevent)break;evnt(2324);}while(r); }else{ do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2392);}while(r); +if(!qbevent)break;evnt(2326);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2392);}while(r); +if(!qbevent)break;evnt(2326);}while(r); } } } -S_2760:; +S_2788:; if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(2396);if(r)goto S_2760;} +if(qbevent){evnt(2330);if(r)goto S_2788;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2397);}while(r); +if(!qbevent)break;evnt(2331);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2397);}while(r); +if(!qbevent)break;evnt(2331);}while(r); } -S_2764:; +S_2792:; if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ -if(qbevent){evnt(2399);if(r)goto S_2764;} -S_2765:; -if ((qbs_cleanup(qbs_tmp_base,(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+548))== 0 ))|(qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(2400);if(r)goto S_2765;} +if(qbevent){evnt(2333);if(r)goto S_2792;} +S_2793:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))|(qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(2334);if(r)goto S_2793;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2400);}while(r); +if(!qbevent)break;evnt(2334);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2400);}while(r); +if(!qbevent)break;evnt(2334);}while(r); } -S_2769:; +S_2797:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2401);if(r)goto S_2769;} +if(qbevent){evnt(2335);if(r)goto S_2797;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_HASHNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2401);}while(r); +if(!qbevent)break;evnt(2335);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2401);}while(r); +if(!qbevent)break;evnt(2335);}while(r); } } -S_2774:; +S_2802:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(2403);if(r)goto S_2774;} +if(qbevent){evnt(2337);if(r)goto S_2802;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(2403);}while(r); +if(!qbevent)break;evnt(2337);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(2403);}while(r); +if(!qbevent)break;evnt(2337);}while(r); } -dl_continue_277:; +dl_continue_264:; } -dl_exit_277:; +dl_exit_264:; do{ -SUB_HASHADD(__STRING_HASHNAME,&(pass282= 1024 ),__LONG_I2); +SUB_HASHADD(__STRING_HASHNAME,&(pass265= 1024 ),__LONG_I2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2407);}while(r); +if(!qbevent)break;evnt(2341);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2413);}while(r); +if(!qbevent)break;evnt(2347);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2414);}while(r); +if(!qbevent)break;evnt(2348);}while(r); do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),FUNC_TYPEVALUE2SYMBOL(__LONG_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2415);}while(r); -S_2784:; +if(!qbevent)break;evnt(2349);}while(r); +S_2812:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2416);if(r)goto S_2784;} +if(qbevent){evnt(2350);if(r)goto S_2812;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2416);}while(r); +if(!qbevent)break;evnt(2350);}while(r); } do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_T; -if(!qbevent)break;evnt(2417);}while(r); -S_2788:; +if(!qbevent)break;evnt(2351);}while(r); +S_2816:; if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2418);if(r)goto S_2788;} +if(qbevent){evnt(2352);if(r)goto S_2816;} do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long])),__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2419);}while(r); +if(!qbevent)break;evnt(2353);}while(r); }else{ -S_2791:; +S_2819:; if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2421);if(r)goto S_2791;} +if(qbevent){evnt(2355);if(r)goto S_2819;} do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5]); if (!new_error) ((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[tmp_long]=*__FLOAT_CONSTVAL; -if(!qbevent)break;evnt(2422);}while(r); +if(!qbevent)break;evnt(2356);}while(r); }else{ -S_2794:; +S_2822:; if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(2424);if(r)goto S_2794;} +if(qbevent){evnt(2358);if(r)goto S_2822;} do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5]); if (!new_error) ((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[tmp_long]=*__UINTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2425);}while(r); +if(!qbevent)break;evnt(2359);}while(r); }else{ do{ tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2427);}while(r); +if(!qbevent)break;evnt(2361);}while(r); } } } LABEL_CONSTADDDONE:; -if(qbevent){evnt(2432);r=0;} -S_2801:; +if(qbevent){evnt(2366);r=0;} +S_2829:; if ((*__LONG_PENDING)||new_error){ -if(qbevent){evnt(2434);if(r)goto S_2801;} +if(qbevent){evnt(2368);if(r)goto S_2829;} do{ goto LABEL_CONSTDEFPENDINGPP; -if(!qbevent)break;evnt(2436);}while(r); +if(!qbevent)break;evnt(2370);}while(r); } do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2441);}while(r); +if(!qbevent)break;evnt(2374);}while(r); } do{ *__LONG_D= 0 ; -if(!qbevent)break;evnt(2447);}while(r); -S_2807:; +if(!qbevent)break;evnt(2380);}while(r); +S_2835:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ -if(qbevent){evnt(2448);if(r)goto S_2807;} +if(qbevent){evnt(2381);if(r)goto S_2835;} do{ *__LONG_D= 1 ; -if(!qbevent)break;evnt(2448);}while(r); +if(!qbevent)break;evnt(2381);}while(r); } -S_2810:; +S_2838:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ -if(qbevent){evnt(2449);if(r)goto S_2810;} +if(qbevent){evnt(2382);if(r)goto S_2838;} do{ *__LONG_D= 1 ; -if(!qbevent)break;evnt(2449);}while(r); +if(!qbevent)break;evnt(2382);}while(r); } -S_2813:; +S_2841:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ -if(qbevent){evnt(2450);if(r)goto S_2813;} +if(qbevent){evnt(2383);if(r)goto S_2841;} do{ *__LONG_D= 1 ; -if(!qbevent)break;evnt(2450);}while(r); +if(!qbevent)break;evnt(2383);}while(r); } -S_2816:; +S_2844:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ -if(qbevent){evnt(2451);if(r)goto S_2816;} +if(qbevent){evnt(2384);if(r)goto S_2844;} do{ *__LONG_D= 1 ; -if(!qbevent)break;evnt(2451);}while(r); +if(!qbevent)break;evnt(2384);}while(r); } -S_2819:; +S_2847:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ -if(qbevent){evnt(2452);if(r)goto S_2819;} +if(qbevent){evnt(2385);if(r)goto S_2847;} do{ *__LONG_D= 1 ; -if(!qbevent)break;evnt(2452);}while(r); +if(!qbevent)break;evnt(2385);}while(r); } -S_2822:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||new_error){ -if(qbevent){evnt(2453);if(r)goto S_2822;} +S_2850:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINE",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(2386);if(r)goto S_2850;} do{ *__LONG_D= 1 ; -if(!qbevent)break;evnt(2453);}while(r); +if(!qbevent)break;evnt(2386);}while(r); } -S_2825:; +S_2853:; if ((*__LONG_D)||new_error){ -if(qbevent){evnt(2454);if(r)goto S_2825;} +if(qbevent){evnt(2387);if(r)goto S_2853;} do{ *__LONG_PREDEFINING= 1 ; -if(!qbevent)break;evnt(2455);}while(r); +if(!qbevent)break;evnt(2388);}while(r); do{ goto LABEL_PREDEFINE; -if(!qbevent)break;evnt(2455);}while(r); +if(!qbevent)break;evnt(2388);}while(r); LABEL_PREDEFINED:; -if(qbevent){evnt(2456);r=0;} +if(qbevent){evnt(2389);r=0;} do{ *__LONG_PREDEFINING= 0 ; -if(!qbevent)break;evnt(2456);}while(r); +if(!qbevent)break;evnt(2389);}while(r); do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2457);}while(r); +if(!qbevent)break;evnt(2390);}while(r); } -S_2831:; +S_2859:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ -if(qbevent){evnt(2461);if(r)goto S_2831;} -S_2832:; +if(qbevent){evnt(2394);if(r)goto S_2859;} +S_2860:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIBRARY",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6)))))||new_error){ -if(qbevent){evnt(2462);if(r)goto S_2832;} -S_2833:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(2463);if(r)goto S_2833;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2463);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2463);}while(r); -} +if(qbevent){evnt(2395);if(r)goto S_2860;} do{ *__LONG_DECLARINGLIBRARY= 1 ; -if(!qbevent)break;evnt(2464);}while(r); +if(!qbevent)break;evnt(2396);}while(r); do{ *__LONG_INDIRECTLIBRARY= 0 ; -if(!qbevent)break;evnt(2465);}while(r); -S_2839:; +if(!qbevent)break;evnt(2397);}while(r); +S_2863:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))))||new_error){ -if(qbevent){evnt(2466);if(r)goto S_2839;} +if(qbevent){evnt(2398);if(r)goto S_2863;} do{ *__LONG_INDIRECTLIBRARY= 1 ; -if(!qbevent)break;evnt(2466);}while(r); +if(!qbevent)break;evnt(2398);}while(r); } do{ goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2467);}while(r); +if(!qbevent)break;evnt(2399);}while(r); } } do{ *__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(2472);}while(r); +if(!qbevent)break;evnt(2404);}while(r); LABEL_DECLARESUBFUNC:; -if(qbevent){evnt(2473);r=0;} +if(qbevent){evnt(2405);r=0;} do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass283= 1 ))); +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass266= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2474);}while(r); +if(!qbevent)break;evnt(2406);}while(r); do{ *__LONG_SF= 0 ; -if(!qbevent)break;evnt(2475);}while(r); -S_2848:; +if(!qbevent)break;evnt(2407);}while(r); +S_2872:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(2476);if(r)goto S_2848;} +if(qbevent){evnt(2408);if(r)goto S_2872;} do{ *__LONG_SF= 1 ; -if(!qbevent)break;evnt(2476);}while(r); +if(!qbevent)break;evnt(2408);}while(r); } -S_2851:; +S_2875:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(2477);if(r)goto S_2851;} +if(qbevent){evnt(2409);if(r)goto S_2875;} do{ *__LONG_SF= 2 ; -if(!qbevent)break;evnt(2477);}while(r); +if(!qbevent)break;evnt(2409);}while(r); } -S_2854:; +S_2878:; if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(2478);if(r)goto S_2854;} +if(qbevent){evnt(2410);if(r)goto S_2878;} do{ *__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; -if(!qbevent)break;evnt(2480);}while(r); -S_2856:; +if(!qbevent)break;evnt(2412);}while(r); +do{ +*__BYTE_CLOSEDSUBFUNC= 0 ; +if(!qbevent)break;evnt(2413);}while(r); +S_2881:; if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(2482);if(r)goto S_2856;} +if(qbevent){evnt(2415);if(r)goto S_2881;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2482);}while(r); +if(!qbevent)break;evnt(2415);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2482);}while(r); +if(!qbevent)break;evnt(2415);}while(r); } do{ *__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2485);}while(r); -S_2861:; +if(!qbevent)break;evnt(2418);}while(r); +S_2886:; if ((*__LONG_I2)||new_error){ -if(qbevent){evnt(2486);if(r)goto S_2861;} -S_2862:; +if(qbevent){evnt(2419);if(r)goto S_2886;} +S_2887:; do{ -if(qbevent){evnt(2487);if(r)goto S_2862;} +if(qbevent){evnt(2420);if(r)goto S_2887;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_A,__STRING_A->len-*__LONG_I2- 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2488);}while(r); +if(!qbevent)break;evnt(2421);}while(r); do{ qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_left(__STRING_CA,*__LONG_I2- 1 ),__STRING_FIX046),qbs_right(__STRING_CA,__STRING_CA->len-*__LONG_I2- 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2489);}while(r); +if(!qbevent)break;evnt(2422);}while(r); do{ *__LONG_I2=func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2490);}while(r); -S_2866:; -dl_continue_284:; +if(!qbevent)break;evnt(2423);}while(r); +S_2891:; +dl_continue_267:; }while((!(-(*__LONG_I2== 0 )))&&(!new_error)); -dl_exit_284:; -if(qbevent){evnt(2491);if(r)goto S_2866;} +dl_exit_267:; +if(qbevent){evnt(2424);if(r)goto S_2891;} do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2492);}while(r); +if(!qbevent)break;evnt(2425);}while(r); do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass287= 1 ))); +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass270= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2493);}while(r); +if(!qbevent)break;evnt(2426);}while(r); do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass288= 2 ))); +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass271= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2493);}while(r); +if(!qbevent)break;evnt(2426);}while(r); do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass289= 3 ))); +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass272= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2493);}while(r); +if(!qbevent)break;evnt(2426);}while(r); } do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass290= 2 ))); +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass273= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2496);}while(r); +if(!qbevent)break;evnt(2429);}while(r); do{ qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2497);}while(r); -S_2874:; +if(!qbevent)break;evnt(2430);}while(r); +S_2899:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2498);if(r)goto S_2874;} +if(qbevent){evnt(2431);if(r)goto S_2899;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2498);}while(r); +if(!qbevent)break;evnt(2431);}while(r); } -S_2877:; +S_2902:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(2499);if(r)goto S_2877;} +if(qbevent){evnt(2432);if(r)goto S_2902;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2499);}while(r); +if(!qbevent)break;evnt(2432);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2499);}while(r); +if(!qbevent)break;evnt(2432);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2502);}while(r); -S_2882:; +if(!qbevent)break;evnt(2435);}while(r); +S_2907:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(2502);if(r)goto S_2882;} +if(qbevent){evnt(2435);if(r)goto S_2907;} do{ qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2502);}while(r); +if(!qbevent)break;evnt(2435);}while(r); do{ qbs_set(__STRING_CA,qbs_left(__STRING_CA,__STRING_CA->len- 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2502);}while(r); +if(!qbevent)break;evnt(2435);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(2502);}while(r); +if(!qbevent)break;evnt(2435);}while(r); } do{ qbs_set(__STRING_ALIASNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2505);}while(r); -S_2888:; +if(!qbevent)break;evnt(2438);}while(r); +S_2913:; if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(2506);if(r)goto S_2888;} +if(qbevent){evnt(2439);if(r)goto S_2913;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass293= 3 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass276= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2507);}while(r); -S_2890:; +if(!qbevent)break;evnt(2440);}while(r); +S_2915:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||new_error){ -if(qbevent){evnt(2508);if(r)goto S_2890;} -S_2891:; +if(qbevent){evnt(2441);if(r)goto S_2915;} +S_2916:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2509);if(r)goto S_2891;} +if(qbevent){evnt(2442);if(r)goto S_2916;} do{ qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2509);}while(r); +if(!qbevent)break;evnt(2442);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2509);}while(r); +if(!qbevent)break;evnt(2442);}while(r); } -S_2895:; +S_2920:; if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(2510);if(r)goto S_2895;} +if(qbevent){evnt(2443);if(r)goto S_2920;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2510);}while(r); +if(!qbevent)break;evnt(2443);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2510);}while(r); +if(!qbevent)break;evnt(2443);}while(r); } do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass294= 4 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass277= 4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2511);}while(r); -S_2900:; +if(!qbevent)break;evnt(2444);}while(r); +S_2925:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(2513);if(r)goto S_2900;} +if(qbevent){evnt(2446);if(r)goto S_2925;} do{ qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2514);}while(r); +if(!qbevent)break;evnt(2447);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2515);}while(r); -S_2903:; +if(!qbevent)break;evnt(2448);}while(r); +S_2928:; if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(2515);if(r)goto S_2903;} +if(qbevent){evnt(2448);if(r)goto S_2928;} do{ qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2515);}while(r); +if(!qbevent)break;evnt(2448);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2515);}while(r); +if(!qbevent)break;evnt(2448);}while(r); } do{ qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2516);}while(r); +if(!qbevent)break;evnt(2449);}while(r); } -S_2909:; +S_2934:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(2519);if(r)goto S_2909;} +if(qbevent){evnt(2452);if(r)goto S_2934;} do{ *__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2520);}while(r); +if(!qbevent)break;evnt(2453);}while(r); do{ qbs_set(__STRING_E,qbs_add(qbs_add(qbs_left(__STRING_E,*__LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_E,__STRING_E->len-*__LONG_X+ 1 -__STRING_FIX046->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2520);}while(r); -dl_continue_296:; +if(!qbevent)break;evnt(2453);}while(r); +dl_continue_279:; } -dl_exit_296:; -S_2913:; +dl_exit_279:; +S_2938:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(2523);if(r)goto S_2913;} +if(qbevent){evnt(2456);if(r)goto S_2938;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2523);}while(r); +if(!qbevent)break;evnt(2456);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2523);}while(r); +if(!qbevent)break;evnt(2456);}while(r); } -S_2917:; -fornext_value301= 1 ; -fornext_finalvalue301=__STRING_E->len; +S_2942:; +fornext_value284= 1 ; +fornext_finalvalue284=__STRING_E->len; +fornext_step284= 1 ; +if (fornext_step284<0) fornext_step_negative284=1; else fornext_step_negative284=0; +if (new_error) goto fornext_error284; +goto fornext_entrylabel284; +while(1){ +fornext_value284=fornext_step284+(*__LONG_X); +fornext_entrylabel284: +*__LONG_X=fornext_value284; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative284){ +if (fornext_value284fornext_finalvalue284) break; +} +fornext_error284:; +if(qbevent){evnt(2457);if(r)goto S_2942;} +do{ +*__LONG_A=qbs_asc(__STRING_E,*__LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2458);}while(r); +S_2944:; +if (((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*__LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))&(-(*__LONG_A!= 46 ))&(-(*__LONG_A!= 58 )))||new_error){ +if(qbevent){evnt(2459);if(r)goto S_2944;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2459);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2459);}while(r); +} +fornext_continue_283:; +} +fornext_exit_283:; +do{ +qbs_set(__STRING_ALIASNAME,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2461);}while(r); +S_2950:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(2463);if(r)goto S_2950;} +do{ +qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass286= 1 ),&(pass287= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2463);}while(r); +} +S_2953:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(2464);if(r)goto S_2953;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass288= 1 ),&(pass289= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass290= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2464);}while(r); +} +S_2956:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(2465);if(r)goto S_2956;} +do{ +qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass291= 1 ),&(pass292= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2465);}while(r); +} +S_2959:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(2466);if(r)goto S_2959;} +do{ +qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass293= 1 ),&(pass294= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass295= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2466);}while(r); +} +do{ +*__LONG_N=*__LONG_N- 2 ; +if(!qbevent)break;evnt(2467);}while(r); +} +} +S_2965:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(2471);if(r)goto S_2965;} +S_2966:; +if ((*__LONG_INDIRECTLIBRARY)||new_error){ +if(qbevent){evnt(2472);if(r)goto S_2966;} +do{ +qbs_set(__STRING_ALIASNAME,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2473);}while(r); +} +} +do{ +*__LONG_PARAMS= 0 ; +if(!qbevent)break;evnt(2477);}while(r); +do{ +qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2478);}while(r); +do{ +qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2479);}while(r); +do{ +qbs_set(__STRING_NELE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2480);}while(r); +do{ +qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2481);}while(r); +S_2975:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(2482);if(r)goto S_2975;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass296= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2483);}while(r); +S_2977:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(2484);if(r)goto S_2977;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2484);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2484);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2485);}while(r); +S_2982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(2486);if(r)goto S_2982;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2486);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2486);}while(r); +} +S_2986:; +if ((-(*__LONG_N< 4 ))||new_error){ +if(qbevent){evnt(2487);if(r)goto S_2986;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2487);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2487);}while(r); +} +S_2990:; +if ((-(*__LONG_N== 4 ))||new_error){ +if(qbevent){evnt(2488);if(r)goto S_2990;} +do{ +goto LABEL_NOSFPARAMS; +if(!qbevent)break;evnt(2488);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(2489);}while(r); +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2490);}while(r); +S_2995:; +fornext_value298= 4 ; +fornext_finalvalue298=*__LONG_N- 1 ; +fornext_step298= 1 ; +if (fornext_step298<0) fornext_step_negative298=1; else fornext_step_negative298=0; +if (new_error) goto fornext_error298; +goto fornext_entrylabel298; +while(1){ +fornext_value298=fornext_step298+(*__LONG_I); +fornext_entrylabel298: +*__LONG_I=fornext_value298; +if (fornext_step_negative298){ +if (fornext_value298fornext_finalvalue298) break; +} +fornext_error298:; +if(qbevent){evnt(2491);if(r)goto S_2995;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2492);}while(r); +S_2997:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(2493);if(r)goto S_2997;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(2493);}while(r); +} +S_3000:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(2494);if(r)goto S_3000;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(2494);}while(r); +} +S_3003:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(2495);if(r)goto S_3003;} +S_3004:; +if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ +if(qbevent){evnt(2496);if(r)goto S_3004;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2496);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2496);}while(r); +} +LABEL_GETLASTPARAM:; +if(qbevent){evnt(2497);r=0;} +S_3008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2498);if(r)goto S_3008;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2498);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2498);}while(r); +} +do{ +qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2499);}while(r); +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2501);}while(r); +do{ +*__LONG_ARRAY= 0 ; +if(!qbevent)break;evnt(2502);}while(r); +do{ +qbs_set(__STRING_T2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2503);}while(r); +do{ +*__LONG_I2= 1 ; +if(!qbevent)break;evnt(2505);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2506);}while(r); +do{ +*__LONG_I2=*__LONG_I2+ 1 ; +if(!qbevent)break;evnt(2506);}while(r); +do{ +*__LONG_BYVALUE= 0 ; +if(!qbevent)break;evnt(2508);}while(r); +S_3020:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||new_error){ +if(qbevent){evnt(2509);if(r)goto S_3020;} +S_3021:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(2510);if(r)goto S_3021;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can currently only be used with DECLARE LIBRARY",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2510);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2510);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2511);}while(r); +do{ +*__LONG_I2=*__LONG_I2+ 1 ; +if(!qbevent)break;evnt(2511);}while(r); +do{ +*__LONG_BYVALUE= 1 ; +if(!qbevent)break;evnt(2511);}while(r); +} +do{ +qbs_set(__STRING_N2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2514);}while(r); +do{ +qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2515);}while(r); +S_3031:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ +if(qbevent){evnt(2516);if(r)goto S_3031;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2516);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2516);}while(r); +} +S_3035:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2518);if(r)goto S_3035;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2518);}while(r); +} +do{ +*__LONG_M= 0 ; +if(!qbevent)break;evnt(2519);}while(r); +S_3039:; +fornext_value301=*__LONG_I2; +fornext_finalvalue301=*__LONG_N2; fornext_step301= 1 ; if (fornext_step301<0) fornext_step_negative301=1; else fornext_step_negative301=0; if (new_error) goto fornext_error301; goto fornext_entrylabel301; while(1){ -fornext_value301=fornext_step301+(*__LONG_X); +fornext_value301=fornext_step301+(*__LONG_I2); fornext_entrylabel301: -*__LONG_X=fornext_value301; -qbs_cleanup(qbs_tmp_base,0); +*__LONG_I2=fornext_value301; if (fornext_step_negative301){ if (fornext_value301fornext_finalvalue301) break; } fornext_error301:; -if(qbevent){evnt(2524);if(r)goto S_2917;} +if(qbevent){evnt(2520);if(r)goto S_3039;} do{ -*__LONG_A=qbs_asc(__STRING_E,*__LONG_X); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2525);}while(r); -S_2919:; -if (((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*__LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))&(-(*__LONG_A!= 46 ))&(-(*__LONG_A!= 58 )))||new_error){ -if(qbevent){evnt(2526);if(r)goto S_2919;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2526);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2526);}while(r); -} -fornext_continue_300:; -} -fornext_exit_300:; -do{ -qbs_set(__STRING_ALIASNAME,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2528);}while(r); -S_2925:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(2530);if(r)goto S_2925;} -do{ -qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass303= 1 ),&(pass304= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2530);}while(r); -} -S_2928:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(2531);if(r)goto S_2928;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass305= 1 ),&(pass306= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass307= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2531);}while(r); -} -S_2931:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(2532);if(r)goto S_2931;} -do{ -qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass308= 1 ),&(pass309= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2532);}while(r); -} -S_2934:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(2533);if(r)goto S_2934;} -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass310= 1 ),&(pass311= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass312= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2533);}while(r); -} -do{ -*__LONG_N=*__LONG_N- 2 ; -if(!qbevent)break;evnt(2534);}while(r); -} -} -S_2940:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2538);if(r)goto S_2940;} -S_2941:; -if ((*__LONG_INDIRECTLIBRARY)||new_error){ -if(qbevent){evnt(2539);if(r)goto S_2941;} -do{ -qbs_set(__STRING_ALIASNAME,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2540);}while(r); -} -} -do{ -*__LONG_PARAMS= 0 ; -if(!qbevent)break;evnt(2544);}while(r); -do{ -qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2545);}while(r); -do{ -qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2546);}while(r); -do{ -qbs_set(__STRING_NELE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2547);}while(r); -do{ -qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2548);}while(r); -S_2950:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(2549);if(r)goto S_2950;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass313= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2550);}while(r); -S_2952:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2551);if(r)goto S_2952;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2551);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2551);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2552);}while(r); -S_2957:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2553);if(r)goto S_2957;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2553);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2553);}while(r); -} -S_2961:; -if ((-(*__LONG_N< 4 ))||new_error){ -if(qbevent){evnt(2554);if(r)goto S_2961;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2554);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2554);}while(r); -} -S_2965:; -if ((-(*__LONG_N== 4 ))||new_error){ -if(qbevent){evnt(2555);if(r)goto S_2965;} -do{ -goto LABEL_NOSFPARAMS; -if(!qbevent)break;evnt(2555);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(2556);}while(r); -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2557);}while(r); -S_2970:; -fornext_value315= 4 ; -fornext_finalvalue315=*__LONG_N- 1 ; -fornext_step315= 1 ; -if (fornext_step315<0) fornext_step_negative315=1; else fornext_step_negative315=0; -if (new_error) goto fornext_error315; -goto fornext_entrylabel315; -while(1){ -fornext_value315=fornext_step315+(*__LONG_I); -fornext_entrylabel315: -*__LONG_I=fornext_value315; -if (fornext_step_negative315){ -if (fornext_value315fornext_finalvalue315) break; -} -fornext_error315:; -if(qbevent){evnt(2558);if(r)goto S_2970;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2559);}while(r); -S_2972:; +if(!qbevent)break;evnt(2521);}while(r); +S_3041:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2560);if(r)goto S_2972;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(2560);}while(r); -} -S_2975:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2561);if(r)goto S_2975;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(2561);}while(r); -} -S_2978:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(2562);if(r)goto S_2978;} -S_2979:; -if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(2563);if(r)goto S_2979;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2563);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2563);}while(r); -} -LABEL_GETLASTPARAM:; -if(qbevent){evnt(2564);r=0;} -S_2983:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2565);if(r)goto S_2983;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2565);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2565);}while(r); -} -do{ -qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2566);}while(r); -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2568);}while(r); -do{ -*__LONG_ARRAY= 0 ; -if(!qbevent)break;evnt(2569);}while(r); -do{ -qbs_set(__STRING_T2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2570);}while(r); -do{ -*__LONG_I2= 1 ; -if(!qbevent)break;evnt(2572);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2573);}while(r); -do{ -*__LONG_I2=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(2573);}while(r); -do{ -*__LONG_BYVALUE= 0 ; -if(!qbevent)break;evnt(2575);}while(r); -S_2995:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||new_error){ -if(qbevent){evnt(2576);if(r)goto S_2995;} -S_2996:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2577);if(r)goto S_2996;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can currently only be used with DECLARE LIBRARY",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2577);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2577);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2578);}while(r); -do{ -*__LONG_I2=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(2578);}while(r); -do{ -*__LONG_BYVALUE= 1 ; -if(!qbevent)break;evnt(2578);}while(r); -} -do{ -qbs_set(__STRING_N2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2581);}while(r); -do{ -qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2582);}while(r); -S_3006:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ -if(qbevent){evnt(2583);if(r)goto S_3006;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2583);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2583);}while(r); -} -S_3010:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2585);if(r)goto S_3010;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2585);}while(r); -} -do{ -*__LONG_M= 0 ; -if(!qbevent)break;evnt(2586);}while(r); -S_3014:; -fornext_value318=*__LONG_I2; -fornext_finalvalue318=*__LONG_N2; -fornext_step318= 1 ; -if (fornext_step318<0) fornext_step_negative318=1; else fornext_step_negative318=0; -if (new_error) goto fornext_error318; -goto fornext_entrylabel318; -while(1){ -fornext_value318=fornext_step318+(*__LONG_I2); -fornext_entrylabel318: -*__LONG_I2=fornext_value318; -if (fornext_step_negative318){ -if (fornext_value318fornext_finalvalue318) break; -} -fornext_error318:; -if(qbevent){evnt(2587);if(r)goto S_3014;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2588);}while(r); -S_3016:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2589);if(r)goto S_3016;} -S_3017:; +if(qbevent){evnt(2522);if(r)goto S_3041;} +S_3042:; if ((-(*__LONG_M!= 0 ))||new_error){ -if(qbevent){evnt(2590);if(r)goto S_3017;} +if(qbevent){evnt(2523);if(r)goto S_3042;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2590);}while(r); +if(!qbevent)break;evnt(2523);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2590);}while(r); +if(!qbevent)break;evnt(2523);}while(r); } do{ *__LONG_M= 1 ; -if(!qbevent)break;evnt(2591);}while(r); +if(!qbevent)break;evnt(2524);}while(r); do{ *__LONG_ARRAY= 1 ; -if(!qbevent)break;evnt(2592);}while(r); +if(!qbevent)break;evnt(2525);}while(r); do{ goto LABEL_GOTAA; -if(!qbevent)break;evnt(2593);}while(r); +if(!qbevent)break;evnt(2526);}while(r); } -S_3025:; +S_3050:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2595);if(r)goto S_3025;} -S_3026:; +if(qbevent){evnt(2528);if(r)goto S_3050;} +S_3051:; if ((-(*__LONG_M!= 1 ))||new_error){ -if(qbevent){evnt(2596);if(r)goto S_3026;} +if(qbevent){evnt(2529);if(r)goto S_3051;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2596);}while(r); +if(!qbevent)break;evnt(2529);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2596);}while(r); +if(!qbevent)break;evnt(2529);}while(r); } do{ *__LONG_M= 2 ; -if(!qbevent)break;evnt(2597);}while(r); +if(!qbevent)break;evnt(2530);}while(r); do{ goto LABEL_GOTAA; -if(!qbevent)break;evnt(2598);}while(r); +if(!qbevent)break;evnt(2531);}while(r); } -S_3033:; +S_3058:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(2600);if(r)goto S_3033;} -S_3034:; +if(qbevent){evnt(2533);if(r)goto S_3058;} +S_3059:; if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ -if(qbevent){evnt(2601);if(r)goto S_3034;} +if(qbevent){evnt(2534);if(r)goto S_3059;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2601);}while(r); +if(!qbevent)break;evnt(2534);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2601);}while(r); +if(!qbevent)break;evnt(2534);}while(r); } do{ *__LONG_M= 3 ; -if(!qbevent)break;evnt(2602);}while(r); +if(!qbevent)break;evnt(2535);}while(r); do{ goto LABEL_GOTAA; -if(!qbevent)break;evnt(2603);}while(r); +if(!qbevent)break;evnt(2536);}while(r); } -S_3041:; +S_3066:; if ((-(*__LONG_M== 1 ))||new_error){ -if(qbevent){evnt(2605);if(r)goto S_3041;} +if(qbevent){evnt(2538);if(r)goto S_3066;} do{ goto LABEL_GOTAA; -if(!qbevent)break;evnt(2605);}while(r); +if(!qbevent)break;evnt(2538);}while(r); } -S_3044:; +S_3069:; if ((-(*__LONG_M!= 3 ))||new_error){ -if(qbevent){evnt(2606);if(r)goto S_3044;} +if(qbevent){evnt(2539);if(r)goto S_3069;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2606);}while(r); +if(!qbevent)break;evnt(2539);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2606);}while(r); +if(!qbevent)break;evnt(2539);}while(r); } -S_3048:; +S_3073:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2607);if(r)goto S_3048;} +if(qbevent){evnt(2540);if(r)goto S_3073;} do{ qbs_set(__STRING_T2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2607);}while(r); +if(!qbevent)break;evnt(2540);}while(r); }else{ do{ qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2607);}while(r); +if(!qbevent)break;evnt(2540);}while(r); } LABEL_GOTAA:; -if(qbevent){evnt(2608);r=0;} -fornext_continue_317:; +if(qbevent){evnt(2541);r=0;} +fornext_continue_300:; } -fornext_exit_317:; +fornext_exit_300:; do{ *__LONG_PARAMS=*__LONG_PARAMS+ 1 ; -if(!qbevent)break;evnt(2611);}while(r); -S_3055:; +if(!qbevent)break;evnt(2544);}while(r); +S_3080:; if ((-(*__LONG_PARAMS> 100 ))||new_error){ -if(qbevent){evnt(2611);if(r)goto S_3055;} +if(qbevent){evnt(2544);if(r)goto S_3080;} do{ qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION exceeds 100 parameter limit",40)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2611);}while(r); +if(!qbevent)break;evnt(2544);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2611);}while(r); +if(!qbevent)break;evnt(2544);}while(r); } do{ *__LONG_ARGNELEREQ= 0 ; -if(!qbevent)break;evnt(2613);}while(r); -S_3060:; +if(!qbevent)break;evnt(2546);}while(r); +S_3085:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(2615);if(r)goto S_3060;} +if(qbevent){evnt(2548);if(r)goto S_3085;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2615);}while(r); +if(!qbevent)break;evnt(2548);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2615);}while(r); +if(!qbevent)break;evnt(2548);}while(r); } -S_3064:; +S_3089:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_T2,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_E,qbs_new_txt_len("AS",2)))))||new_error){ +if(qbevent){evnt(2549);if(r)goto S_3089;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2549);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2549);}while(r); +} +S_3093:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2616);if(r)goto S_3064;} +if(qbevent){evnt(2550);if(r)goto S_3093;} do{ qbs_set(__STRING_T2,__STRING_SYMBOL2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2616);}while(r); +if(!qbevent)break;evnt(2550);}while(r); } -S_3067:; +S_3096:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2617);if(r)goto S_3067;} -S_3068:; +if(qbevent){evnt(2551);if(r)goto S_3096;} +S_3097:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(2618);if(r)goto S_3068;} +if(qbevent){evnt(2552);if(r)goto S_3097;} do{ *__LONG_V= 27 ; -if(!qbevent)break;evnt(2618);}while(r); +if(!qbevent)break;evnt(2552);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2618);}while(r); +if(!qbevent)break;evnt(2552);}while(r); } do{ qbs_set(__STRING_T2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2619);}while(r); +if(!qbevent)break;evnt(2553);}while(r); } do{ *__LONG_PARAMSIZE= 0 ; -if(!qbevent)break;evnt(2622);}while(r); -S_3076:; +if(!qbevent)break;evnt(2556);}while(r); +S_3105:; if ((-(*__LONG_ARRAY== 1 ))||new_error){ -if(qbevent){evnt(2623);if(r)goto S_3076;} +if(qbevent){evnt(2557);if(r)goto S_3105;} do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2624);}while(r); -S_3078:; +if(!qbevent)break;evnt(2558);}while(r); +S_3107:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2625);if(r)goto S_3078;} +if(qbevent){evnt(2559);if(r)goto S_3107;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2625);}while(r); +if(!qbevent)break;evnt(2559);}while(r); } -S_3081:; +S_3110:; if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(2626);if(r)goto S_3081;} +if(qbevent){evnt(2560);if(r)goto S_3110;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2626);}while(r); +if(!qbevent)break;evnt(2560);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2626);}while(r); +if(!qbevent)break;evnt(2560);}while(r); } -S_3085:; +S_3114:; if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(2627);if(r)goto S_3085;} +if(qbevent){evnt(2561);if(r)goto S_3114;} do{ *__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(2627);}while(r); +if(!qbevent)break;evnt(2561);}while(r); } do{ *__LONG_T=*__LONG_T+*__LONG_ISARRAY; -if(!qbevent)break;evnt(2628);}while(r); -S_3089:; -fornext_value320= 0 ; -fornext_finalvalue320=*__INTEGER_SFLISTN; -fornext_step320= 1 ; -if (fornext_step320<0) fornext_step_negative320=1; else fornext_step_negative320=0; -if (new_error) goto fornext_error320; -goto fornext_entrylabel320; +if(!qbevent)break;evnt(2562);}while(r); +S_3118:; +fornext_value303= 0 ; +fornext_finalvalue303=*__INTEGER_SFLISTN; +fornext_step303= 1 ; +if (fornext_step303<0) fornext_step_negative303=1; else fornext_step_negative303=0; +if (new_error) goto fornext_error303; +goto fornext_entrylabel303; while(1){ -fornext_value320=fornext_step320+(*__LONG_I10); -fornext_entrylabel320: -*__LONG_I10=fornext_value320; -if (fornext_step_negative320){ -if (fornext_value320fornext_finalvalue320) break; +if (fornext_value303>fornext_finalvalue303) break; } -fornext_error320:; -if(qbevent){evnt(2630);if(r)goto S_3089;} -S_3090:; +fornext_error303:; +if(qbevent){evnt(2564);if(r)goto S_3118;} +S_3119:; if ((-(((int32*)(__ARRAY_LONG_SFIDLIST[0]))[array_check((*__LONG_I10)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5])]==(*__LONG_IDN+ 1 )))||new_error){ -if(qbevent){evnt(2631);if(r)goto S_3090;} -S_3091:; +if(qbevent){evnt(2565);if(r)goto S_3119;} +S_3120:; if ((-(((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5])]==*__LONG_PARAMS))||new_error){ -if(qbevent){evnt(2632);if(r)goto S_3091;} +if(qbevent){evnt(2566);if(r)goto S_3120;} do{ *__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])]; -if(!qbevent)break;evnt(2633);}while(r); +if(!qbevent)break;evnt(2567);}while(r); } } -fornext_continue_319:; +fornext_continue_302:; } -fornext_exit_319:; +fornext_exit_302:; }else{ do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2638);}while(r); -S_3098:; +if(!qbevent)break;evnt(2572);}while(r); +S_3127:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2639);if(r)goto S_3098;} +if(qbevent){evnt(2573);if(r)goto S_3127;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2639);}while(r); +if(!qbevent)break;evnt(2573);}while(r); } -S_3101:; +S_3130:; if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(2640);if(r)goto S_3101;} +if(qbevent){evnt(2574);if(r)goto S_3130;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2640);}while(r); +if(!qbevent)break;evnt(2574);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2640);}while(r); +if(!qbevent)break;evnt(2574);}while(r); } -S_3105:; +S_3134:; if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(2641);if(r)goto S_3105;} +if(qbevent){evnt(2575);if(r)goto S_3134;} do{ *__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(2641);}while(r); +if(!qbevent)break;evnt(2575);}while(r); } -S_3108:; +S_3137:; if ((*__LONG_BYVALUE)||new_error){ -if(qbevent){evnt(2643);if(r)goto S_3108;} -S_3109:; +if(qbevent){evnt(2577);if(r)goto S_3137;} +S_3138:; if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(2644);if(r)goto S_3109;} +if(qbevent){evnt(2578);if(r)goto S_3138;} do{ *__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(2644);}while(r); +if(!qbevent)break;evnt(2578);}while(r); } } } do{ qbs_set(__STRING_NELEREQ,qbs_add(__STRING_NELEREQ,func_chr(*__LONG_ARGNELEREQ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2648);}while(r); +if(!qbevent)break;evnt(2582);}while(r); do{ qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2651);}while(r); +if(!qbevent)break;evnt(2585);}while(r); do{ qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2653);}while(r); +if(!qbevent)break;evnt(2587);}while(r); do{ qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2654);}while(r); +if(!qbevent)break;evnt(2588);}while(r); do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2655);}while(r); +if(!qbevent)break;evnt(2589);}while(r); }else{ do{ qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2657);}while(r); -S_3121:; +if(!qbevent)break;evnt(2591);}while(r); +S_3150:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(2658);if(r)goto S_3121;} +if(qbevent){evnt(2592);if(r)goto S_3150;} do{ goto LABEL_GETLASTPARAM; -if(!qbevent)break;evnt(2658);}while(r); +if(!qbevent)break;evnt(2592);}while(r); } } -fornext_continue_314:; +fornext_continue_297:; } -fornext_exit_314:; +fornext_exit_297:; } LABEL_NOSFPARAMS:; -if(qbevent){evnt(2662);r=0;} -S_3127:; +if(qbevent){evnt(2596);r=0;} +S_3156:; if ((-(*__LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(2664);if(r)goto S_3127;} +if(qbevent){evnt(2598);if(r)goto S_3156;} do{ SUB_CLEARID(); -if(!qbevent)break;evnt(2666);}while(r); +if(!qbevent)break;evnt(2600);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2667);}while(r); +if(!qbevent)break;evnt(2601);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(2668);}while(r); +if(!qbevent)break;evnt(2602);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_new_txt_len("FUNC_",5),qbs_ucase(__STRING_N))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2670);}while(r); -S_3132:; +if(!qbevent)break;evnt(2604);}while(r); +S_3161:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2671);if(r)goto S_3132;} +if(qbevent){evnt(2605);if(r)goto S_3161;} do{ *(int16*)(((char*)__UDT_ID)+(806))= 1 ; -if(!qbevent)break;evnt(2672);}while(r); -S_3134:; +if(!qbevent)break;evnt(2606);}while(r); +S_3163:; if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2673);if(r)goto S_3134;} +if(qbevent){evnt(2607);if(r)goto S_3163;} do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2673);}while(r); +if(!qbevent)break;evnt(2607);}while(r); } } do{ *(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; -if(!qbevent)break;evnt(2675);}while(r); +if(!qbevent)break;evnt(2609);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),__STRING_PARAMS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2676);}while(r); +if(!qbevent)break;evnt(2610);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1213)),400,1),__STRING_PARAMSIZE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2677);}while(r); +if(!qbevent)break;evnt(2611);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),__STRING_NELE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2678);}while(r); +if(!qbevent)break;evnt(2612);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),__STRING_NELEREQ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2679);}while(r); -S_3143:; +if(!qbevent)break;evnt(2613);}while(r); +S_3172:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2680);if(r)goto S_3143;} +if(qbevent){evnt(2614);if(r)goto S_3172;} do{ *(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); -if(!qbevent)break;evnt(2681);}while(r); -S_3145:; +if(!qbevent)break;evnt(2615);}while(r); +S_3174:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2682);if(r)goto S_3145;} +if(qbevent){evnt(2616);if(r)goto S_3174;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2682);}while(r); +if(!qbevent)break;evnt(2616);}while(r); } }else{ -S_3149:; +S_3178:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(2684);if(r)goto S_3149;} +if(qbevent){evnt(2618);if(r)goto S_3178;} do{ *__LONG_V= 27 ; -if(!qbevent)break;evnt(2684);}while(r); +if(!qbevent)break;evnt(2618);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2684);}while(r); +if(!qbevent)break;evnt(2618);}while(r); } do{ qbs_set(__STRING_SYMBOL,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2685);}while(r); +if(!qbevent)break;evnt(2619);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); -if(!qbevent)break;evnt(2686);}while(r); -S_3156:; +if(!qbevent)break;evnt(2620);}while(r); +S_3185:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2687);if(r)goto S_3156;} +if(qbevent){evnt(2621);if(r)goto S_3185;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2687);}while(r); +if(!qbevent)break;evnt(2621);}while(r); } } -S_3160:; +S_3189:; if ((-(*(int32*)(((char*)__UDT_ID)+(2381))== 0 ))||new_error){ -if(qbevent){evnt(2689);if(r)goto S_3160;} +if(qbevent){evnt(2623);if(r)goto S_3189;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2689);}while(r); +if(!qbevent)break;evnt(2623);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2689);}while(r); +if(!qbevent)break;evnt(2623);}while(r); } -S_3164:; +S_3193:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2691);if(r)goto S_3164;} +if(qbevent){evnt(2625);if(r)goto S_3193;} do{ qbs_set(__STRING_CTYPE,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + (2381) ),qbs_new_txt_len("",0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2693);}while(r); -S_3166:; +if(!qbevent)break;evnt(2627);}while(r); +S_3195:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2694);if(r)goto S_3166;} +if(qbevent){evnt(2628);if(r)goto S_3195;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2694);}while(r); +if(!qbevent)break;evnt(2628);}while(r); } -S_3169:; +S_3198:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(2695);if(r)goto S_3169;} +if(qbevent){evnt(2629);if(r)goto S_3198;} do{ qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2695);}while(r); +if(!qbevent)break;evnt(2629);}while(r); } do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("( ",3),__STRING_CTYPE),qbs_new_txt_len(" )",3)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2696);}while(r); +if(!qbevent)break;evnt(2630);}while(r); } do{ qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2700);}while(r); -S_3175:; +if(!qbevent)break;evnt(2634);}while(r); +S_3204:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_S,qbs_new_txt_len("~",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("`",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("%",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("&",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("!",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("#",1)))&(qbs_notequal(__STRING_S,qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(2701);if(r)goto S_3175;} +if(qbevent){evnt(2635);if(r)goto S_3204;} do{ qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2702);}while(r); -S_3177:; +if(!qbevent)break;evnt(2636);}while(r); +S_3206:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2703);if(r)goto S_3177;} +if(qbevent){evnt(2637);if(r)goto S_3206;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2703);}while(r); +if(!qbevent)break;evnt(2637);}while(r); } } do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),__STRING_SYMBOL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2705);}while(r); -S_3182:; +if(!qbevent)break;evnt(2639);}while(r); +S_3211:; if ((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(2706);if(r)goto S_3182;} -S_3183:; +if(qbevent){evnt(2640);if(r)goto S_3211;} +S_3212:; if ((-((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(2707);if(r)goto S_3183;} +if(qbevent){evnt(2641);if(r)goto S_3212;} do{ *(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)__UDT_ID)+(2381))-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(2707);}while(r); +if(!qbevent)break;evnt(2641);}while(r); } } do{ SUB_REGID(); -if(!qbevent)break;evnt(2709);}while(r); -S_3188:; +if(!qbevent)break;evnt(2643);}while(r); +S_3217:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2710);if(r)goto S_3188;} +if(qbevent){evnt(2644);if(r)goto S_3217;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2710);}while(r); +if(!qbevent)break;evnt(2644);}while(r); } }else{ do{ SUB_CLEARID(); -if(!qbevent)break;evnt(2713);}while(r); +if(!qbevent)break;evnt(2647);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2714);}while(r); +if(!qbevent)break;evnt(2648);}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(2715);}while(r); +if(!qbevent)break;evnt(2649);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_add(qbs_new_txt_len("SUB_",4),qbs_ucase(__STRING_N))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2716);}while(r); -S_3196:; +if(!qbevent)break;evnt(2650);}while(r); +S_3225:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2717);if(r)goto S_3196;} +if(qbevent){evnt(2651);if(r)goto S_3225;} do{ *(int16*)(((char*)__UDT_ID)+(806))= 1 ; -if(!qbevent)break;evnt(2718);}while(r); -S_3198:; +if(!qbevent)break;evnt(2652);}while(r); +S_3227:; if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2719);if(r)goto S_3198;} +if(qbevent){evnt(2653);if(r)goto S_3227;} do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2719);}while(r); +if(!qbevent)break;evnt(2653);}while(r); } } do{ *(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; -if(!qbevent)break;evnt(2721);}while(r); +if(!qbevent)break;evnt(2655);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),__STRING_PARAMS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2722);}while(r); +if(!qbevent)break;evnt(2656);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1213)),400,1),__STRING_PARAMSIZE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2723);}while(r); +if(!qbevent)break;evnt(2657);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),__STRING_NELE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2724);}while(r); +if(!qbevent)break;evnt(2658);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),__STRING_NELEREQ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2725);}while(r); -S_3207:; +if(!qbevent)break;evnt(2659);}while(r); +S_3236:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_N),qbs_new_txt_len("_GL",3)))&(-(*__LONG_PARAMS== 0 ))&(-(*__LONG_USEGL== 0 ))))||new_error){ -if(qbevent){evnt(2727);if(r)goto S_3207;} +if(qbevent){evnt(2661);if(r)goto S_3236;} do{ *__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(2727);}while(r); +if(!qbevent)break;evnt(2661);}while(r); do{ *__LONG_USEGL= 1 ; -if(!qbevent)break;evnt(2727);}while(r); +if(!qbevent)break;evnt(2661);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_GL",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2727);}while(r); +if(!qbevent)break;evnt(2661);}while(r); do{ tmp_long=array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2727);}while(r); +if(!qbevent)break;evnt(2661);}while(r); } do{ SUB_REGID(); -if(!qbevent)break;evnt(2728);}while(r); +if(!qbevent)break;evnt(2662);}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(2729);}while(r); -S_3215:; +if(!qbevent)break;evnt(2663);}while(r); +S_3244:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2731);if(r)goto S_3215;} +if(qbevent){evnt(2665);if(r)goto S_3244;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2731);}while(r); +if(!qbevent)break;evnt(2665);}while(r); } } } LABEL_FINISHEDLINEPP:; -if(qbevent){evnt(2738);r=0;} +if(qbevent){evnt(2672);r=0;} +do{ +*__LONG_FIRSTLINE= 0 ; +if(!qbevent)break;evnt(2673);}while(r); } do{ qbs_set(__STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2740);}while(r); +if(!qbevent)break;evnt(2675);}while(r); do{ qbs_set(__STRING_CA,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2741);}while(r); +if(!qbevent)break;evnt(2676);}while(r); }else{ -S_3224:; +S_3254:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2743);if(r)goto S_3224;} +if(qbevent){evnt(2678);if(r)goto S_3254;} do{ qbs_set(__STRING_A,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2743);}while(r); +if(!qbevent)break;evnt(2678);}while(r); do{ qbs_set(__STRING_CA,__STRING_CE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2743);}while(r); +if(!qbevent)break;evnt(2678);}while(r); }else{ do{ qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2743);}while(r); +if(!qbevent)break;evnt(2678);}while(r); do{ qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CA,__STRING1_SP),__STRING_CE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2743);}while(r); +if(!qbevent)break;evnt(2678);}while(r); } } -S_3232:; +S_3262:; if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ -if(qbevent){evnt(2745);if(r)goto S_3232;} +if(qbevent){evnt(2680);if(r)goto S_3262;} do{ *__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ; -if(!qbevent)break;evnt(2745);}while(r); +if(!qbevent)break;evnt(2680);}while(r); do{ goto LABEL_PPBLDA; -if(!qbevent)break;evnt(2745);}while(r); +if(!qbevent)break;evnt(2680);}while(r); } } } } -S_3239:; +S_3269:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ -if(qbevent){evnt(2755);if(r)goto S_3239;} -S_3240:; +if(qbevent){evnt(2690);if(r)goto S_3269;} +S_3270:; if (( 0 )||new_error){ -if(qbevent){evnt(2756);if(r)goto S_3240;} +if(qbevent){evnt(2691);if(r)goto S_3270;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip322; +if (new_error) goto skip305; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Pre-pass:INCLUDE$-ing file:'",28),__STRING_ADDMETAINCLUDE),qbs_new_txt_len("':On line",9)), 0 , 0 , 0 ); -if (new_error) goto skip322; +if (new_error) goto skip305; sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1 , 0 , 1 ); -if (new_error) goto skip322; -skip322: +if (new_error) goto skip305; +skip305: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2756);}while(r); +if(!qbevent)break;evnt(2691);}while(r); } do{ qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2757);}while(r); +if(!qbevent)break;evnt(2692);}while(r); do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2757);}while(r); -S_3245:; +if(!qbevent)break;evnt(2692);}while(r); +S_3275:; if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(2759);if(r)goto S_3245;} +if(qbevent){evnt(2694);if(r)goto S_3275;} do{ *__LONG_INCLUDINGFROMROOT= 0 ; -if(!qbevent)break;evnt(2760);}while(r); +if(!qbevent)break;evnt(2695);}while(r); do{ *__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(2761);}while(r); +if(!qbevent)break;evnt(2696);}while(r); LABEL_FORCEINCLUDE_PREPASS:; -if(qbevent){evnt(2762);r=0;} -S_3248:; +if(qbevent){evnt(2697);r=0;} +S_3278:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2763);if(r)goto S_3248;} +if(qbevent){evnt(2698);if(r)goto S_3278;} do{ qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2764);}while(r); +if(!qbevent)break;evnt(2699);}while(r); do{ qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2765);}while(r); +if(!qbevent)break;evnt(2700);}while(r); do{ *__LONG_FORCEINCLUDINGFILE= 1 ; -if(!qbevent)break;evnt(2766);}while(r); +if(!qbevent)break;evnt(2701);}while(r); do{ *__LONG_INCLUDINGFROMROOT= 1 ; -if(!qbevent)break;evnt(2767);}while(r); +if(!qbevent)break;evnt(2702);}while(r); } } -S_3255:; +S_3285:; if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ -if(qbevent){evnt(2771);if(r)goto S_3255;} +if(qbevent){evnt(2706);if(r)goto S_3285;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2771);}while(r); +if(!qbevent)break;evnt(2706);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2771);}while(r); +if(!qbevent)break;evnt(2706);}while(r); } do{ *__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(2773);}while(r); +if(!qbevent)break;evnt(2708);}while(r); do{ *__LONG_FIRSTTRYMETHOD= 1 ; -if(!qbevent)break;evnt(2775);}while(r); -S_3261:; +if(!qbevent)break;evnt(2710);}while(r); +S_3291:; if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(2776);if(r)goto S_3261;} +if(qbevent){evnt(2711);if(r)goto S_3291;} do{ *__LONG_FIRSTTRYMETHOD= 2 ; -if(!qbevent)break;evnt(2776);}while(r); +if(!qbevent)break;evnt(2711);}while(r); } -S_3264:; -fornext_value324=*__LONG_FIRSTTRYMETHOD; -fornext_finalvalue324= 2 ; -fornext_step324= 1 ; -if (fornext_step324<0) fornext_step_negative324=1; else fornext_step_negative324=0; -if (new_error) goto fornext_error324; -goto fornext_entrylabel324; +S_3294:; +fornext_value307=*__LONG_FIRSTTRYMETHOD; +fornext_finalvalue307= 2 ; +fornext_step307= 1 ; +if (fornext_step307<0) fornext_step_negative307=1; else fornext_step_negative307=0; +if (new_error) goto fornext_error307; +goto fornext_entrylabel307; while(1){ -fornext_value324=fornext_step324+(*__LONG_TRY); -fornext_entrylabel324: -*__LONG_TRY=fornext_value324; -if (fornext_step_negative324){ -if (fornext_value324fornext_finalvalue324) break; +if (fornext_value307>fornext_finalvalue307) break; } -fornext_error324:; -if(qbevent){evnt(2777);if(r)goto S_3264;} -S_3265:; +fornext_error307:; +if(qbevent){evnt(2712);if(r)goto S_3294;} +S_3295:; if ((-(*__LONG_TRY== 1 ))||new_error){ -if(qbevent){evnt(2778);if(r)goto S_3265;} -S_3266:; +if(qbevent){evnt(2713);if(r)goto S_3295;} +S_3296:; if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(2779);if(r)goto S_3266;} -S_3267:; +if(qbevent){evnt(2714);if(r)goto S_3296;} +S_3297:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2780);if(r)goto S_3267;} +if(qbevent){evnt(2715);if(r)goto S_3297;} do{ qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2780);}while(r); +if(!qbevent)break;evnt(2715);}while(r); }else{ do{ qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2780);}while(r); +if(!qbevent)break;evnt(2715);}while(r); } }else{ do{ qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2782);}while(r); +if(!qbevent)break;evnt(2717);}while(r); } do{ qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2784);}while(r); +if(!qbevent)break;evnt(2719);}while(r); } -S_3277:; +S_3307:; if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(2786);if(r)goto S_3277;} +if(qbevent){evnt(2721);if(r)goto S_3307;} do{ qbs_set(__STRING_F,__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2786);}while(r); +if(!qbevent)break;evnt(2721);}while(r); } -S_3280:; +S_3310:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ -if(qbevent){evnt(2787);if(r)goto S_3280;} +if(qbevent){evnt(2722);if(r)goto S_3310;} do{ *__INTEGER_QBERRORHAPPENED= -3 ; -if(!qbevent)break;evnt(2788);}while(r); +if(!qbevent)break;evnt(2723);}while(r); do{ sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2790);}while(r); +if(!qbevent)break;evnt(2725);}while(r); LABEL_QBERRORHAPPENED3:; -if(qbevent){evnt(2792);r=0;} -S_3283:; +if(qbevent){evnt(2727);r=0;} +S_3313:; if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||new_error){ -if(qbevent){evnt(2793);if(r)goto S_3283;} +if(qbevent){evnt(2728);if(r)goto S_3313;} do{ -goto fornext_exit_323; -if(!qbevent)break;evnt(2793);}while(r); +goto fornext_exit_306; +if(!qbevent)break;evnt(2728);}while(r); } } do{ *__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(2795);}while(r); -fornext_continue_323:; +if(!qbevent)break;evnt(2730);}while(r); +fornext_continue_306:; } -fornext_exit_323:; -S_3289:; +fornext_exit_306:; +S_3319:; if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||new_error){ -if(qbevent){evnt(2797);if(r)goto S_3289;} +if(qbevent){evnt(2732);if(r)goto S_3319;} do{ *__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(2797);}while(r); +if(!qbevent)break;evnt(2732);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2797);}while(r); +if(!qbevent)break;evnt(2732);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(2797);}while(r); +if(!qbevent)break;evnt(2732);}while(r); } do{ *__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(2798);}while(r); +if(!qbevent)break;evnt(2733);}while(r); do{ tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2798);}while(r); +if(!qbevent)break;evnt(2733);}while(r); do{ tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2798);}while(r); +if(!qbevent)break;evnt(2733);}while(r); } -S_3298:; +S_3328:; while((*__LONG_INCLEVEL)||new_error){ -if(qbevent){evnt(2801);if(r)goto S_3298;} +if(qbevent){evnt(2736);if(r)goto S_3328;} do{ *__LONG_FH= 99 +*__LONG_INCLEVEL; -if(!qbevent)break;evnt(2803);}while(r); -S_3300:; +if(!qbevent)break;evnt(2738);}while(r); +S_3330:; if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ -if(qbevent){evnt(2805);if(r)goto S_3300;} +if(qbevent){evnt(2740);if(r)goto S_3330;} do{ tmp_fileno=*__LONG_FH; -if (new_error) goto skip326; +if (new_error) goto skip309; sub_file_line_input_string(tmp_fileno,__STRING_X); -if (new_error) goto skip326; -skip326: +if (new_error) goto skip309; +skip309: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2806);}while(r); +if(!qbevent)break;evnt(2741);}while(r); do{ qbs_set(__STRING_WHOLELINE,__STRING_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2808);}while(r); +if(!qbevent)break;evnt(2743);}while(r); do{ tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ; -if(!qbevent)break;evnt(2809);}while(r); +if(!qbevent)break;evnt(2744);}while(r); do{ *__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; -if(!qbevent)break;evnt(2811);}while(r); +if(!qbevent)break;evnt(2746);}while(r); do{ qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),qbs_new_txt_len(" included",9))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2812);}while(r); -S_3306:; +if(!qbevent)break;evnt(2747);}while(r); +S_3336:; if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ -if(qbevent){evnt(2813);if(r)goto S_3306;} +if(qbevent){evnt(2748);if(r)goto S_3336;} do{ qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2814);}while(r); -S_3308:; -fornext_value328= 1 ; -fornext_finalvalue328=*__LONG_INCLEVEL- 1 ; -fornext_step328= 1 ; -if (fornext_step328<0) fornext_step_negative328=1; else fornext_step_negative328=0; -if (new_error) goto fornext_error328; -goto fornext_entrylabel328; +if(!qbevent)break;evnt(2749);}while(r); +S_3338:; +fornext_value311= 1 ; +fornext_finalvalue311=*__LONG_INCLEVEL- 1 ; +fornext_step311= 1 ; +if (fornext_step311<0) fornext_step_negative311=1; else fornext_step_negative311=0; +if (new_error) goto fornext_error311; +goto fornext_entrylabel311; while(1){ -fornext_value328=fornext_step328+(*__LONG_X); -fornext_entrylabel328: -*__LONG_X=fornext_value328; -if (fornext_step_negative328){ -if (fornext_value328fornext_finalvalue328) break; +if (fornext_value311>fornext_finalvalue311) break; } -fornext_error328:; -if(qbevent){evnt(2815);if(r)goto S_3308;} +fornext_error311:; +if(qbevent){evnt(2750);if(r)goto S_3338;} do{ qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2816);}while(r); -S_3310:; +if(!qbevent)break;evnt(2751);}while(r); +S_3340:; if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ -if(qbevent){evnt(2817);if(r)goto S_3310;} -S_3311:; +if(qbevent){evnt(2752);if(r)goto S_3340;} +S_3341:; if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ -if(qbevent){evnt(2818);if(r)goto S_3311;} +if(qbevent){evnt(2753);if(r)goto S_3341;} do{ qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2819);}while(r); +if(!qbevent)break;evnt(2754);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2821);}while(r); +if(!qbevent)break;evnt(2756);}while(r); } } -fornext_continue_327:; +fornext_continue_310:; } -fornext_exit_327:; +fornext_exit_310:; do{ qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2825);}while(r); +if(!qbevent)break;evnt(2760);}while(r); } do{ qbs_set(__STRING_INCERROR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2827);}while(r); +if(!qbevent)break;evnt(2762);}while(r); do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; -if(!qbevent)break;evnt(2828);}while(r); -S_3322:; +if(!qbevent)break;evnt(2763);}while(r); +S_3352:; if (( 0 )||new_error){ -if(qbevent){evnt(2830);if(r)goto S_3322;} +if(qbevent){evnt(2765);if(r)goto S_3352;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip329; +if (new_error) goto skip312; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Pre-pass:Feeding INCLUDE$ line:[",32),__STRING_WHOLELINE),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip329; -skip329: +if (new_error) goto skip312; +skip312: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2830);}while(r); +if(!qbevent)break;evnt(2765);}while(r); } -S_3325:; +S_3355:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2832);if(r)goto S_3325;} +if(qbevent){evnt(2767);if(r)goto S_3355;} do{ qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2832);}while(r); +if(!qbevent)break;evnt(2767);}while(r); do{ goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(2832);}while(r); +if(!qbevent)break;evnt(2767);}while(r); } do{ goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(2833);}while(r); +if(!qbevent)break;evnt(2768);}while(r); } do{ sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(2836);}while(r); +if(!qbevent)break;evnt(2771);}while(r); do{ *__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; -if(!qbevent)break;evnt(2837);}while(r); -S_3333:; +if(!qbevent)break;evnt(2772);}while(r); +S_3363:; if (((-(*__LONG_FORCEINCLUDINGFILE== 1 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(2838);if(r)goto S_3333;} +if(qbevent){evnt(2773);if(r)goto S_3363;} do{ *__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(2839);}while(r); +if(!qbevent)break;evnt(2774);}while(r); do{ goto LABEL_FORCEINCLUDECOMPLETED_PREPASS; -if(!qbevent)break;evnt(2840);}while(r); +if(!qbevent)break;evnt(2775);}while(r); } -dl_continue_325:; +dl_continue_308:; } -dl_exit_325:; -S_3338:; +dl_exit_308:; +S_3368:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2845);if(r)goto S_3338;} +if(qbevent){evnt(2780);if(r)goto S_3368;} do{ goto LABEL_IDERET2; -if(!qbevent)break;evnt(2845);}while(r); +if(!qbevent)break;evnt(2780);}while(r); } -dl_continue_217:; +dl_continue_216:; }while(1); -dl_exit_217:; -S_3342:; +dl_exit_216:; +S_3372:; if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ -if(qbevent){evnt(2849);if(r)goto S_3342;} +if(qbevent){evnt(2784);if(r)goto S_3372;} do{ *__LONG_LASTLINERETURN= 1 ; -if(!qbevent)break;evnt(2850);}while(r); +if(!qbevent)break;evnt(2785);}while(r); do{ *__LONG_LASTLINE= 1 ; -if(!qbevent)break;evnt(2851);}while(r); +if(!qbevent)break;evnt(2786);}while(r); do{ qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2852);}while(r); +if(!qbevent)break;evnt(2787);}while(r); do{ goto LABEL_PREPASSLASTLINE; -if(!qbevent)break;evnt(2853);}while(r); +if(!qbevent)break;evnt(2788);}while(r); } -S_3348:; +S_3378:; if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(2856);if(r)goto S_3348;} +if(qbevent){evnt(2791);if(r)goto S_3378;} do{ *__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(2856);}while(r); +if(!qbevent)break;evnt(2791);}while(r); } -S_3351:; +S_3381:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2857);if(r)goto S_3351;} +if(qbevent){evnt(2792);if(r)goto S_3381;} do{ *__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(2857);}while(r); +if(!qbevent)break;evnt(2792);}while(r); } do{ +*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER; +if(!qbevent)break;evnt(2794);}while(r); +do{ *__LONG_LINEINPUT3INDEX= 1 ; -if(!qbevent)break;evnt(2861);}while(r); +if(!qbevent)break;evnt(2800);}while(r); LABEL_IDE3:; -if(qbevent){evnt(2864);r=0;} +if(qbevent){evnt(2803);r=0;} do{ qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2866);}while(r); +if(!qbevent)break;evnt(2805);}while(r); do{ *__LONG_DATAOFFSET= 0 ; -if(!qbevent)break;evnt(2869);}while(r); +if(!qbevent)break;evnt(2808);}while(r); do{ *__LONG_INCLEVEL= 0 ; -if(!qbevent)break;evnt(2870);}while(r); +if(!qbevent)break;evnt(2809);}while(r); do{ *__LONG_SUBFUNCN= 0 ; -if(!qbevent)break;evnt(2871);}while(r); +if(!qbevent)break;evnt(2810);}while(r); do{ *__LONG_LASTLINERETURN= 0 ; -if(!qbevent)break;evnt(2872);}while(r); +if(!qbevent)break;evnt(2811);}while(r); do{ *__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(2873);}while(r); +if(!qbevent)break;evnt(2812);}while(r); do{ *__LONG_FIRSTLINE= 1 ; -if(!qbevent)break;evnt(2874);}while(r); -S_3362:; -fornext_value331= 0 ; -fornext_finalvalue331=*__LONG_CONSTLAST; -fornext_step331= 1 ; -if (fornext_step331<0) fornext_step_negative331=1; else fornext_step_negative331=0; -if (new_error) goto fornext_error331; -goto fornext_entrylabel331; +if(!qbevent)break;evnt(2813);}while(r); +do{ +*__INTEGER_USERDEFINECOUNT= 7 ; +if(!qbevent)break;evnt(2814);}while(r); +S_3394:; +fornext_value314= 0 ; +fornext_finalvalue314=*__LONG_CONSTLAST; +fornext_step314= 1 ; +if (fornext_step314<0) fornext_step_negative314=1; else fornext_step_negative314=0; +if (new_error) goto fornext_error314; +goto fornext_entrylabel314; while(1){ -fornext_value331=fornext_step331+(*__LONG_I); -fornext_entrylabel331: -*__LONG_I=fornext_value331; -if (fornext_step_negative331){ -if (fornext_value331fornext_finalvalue331) break; +if (fornext_value314>fornext_finalvalue314) break; } -fornext_error331:; -if(qbevent){evnt(2876);if(r)goto S_3362;} +fornext_error314:; +if(qbevent){evnt(2816);if(r)goto S_3394;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2876);}while(r); -fornext_continue_330:; +if(!qbevent)break;evnt(2816);}while(r); +fornext_continue_313:; } -fornext_exit_330:; -S_3365:; -fornext_value333= 1 ; -fornext_finalvalue333= 27 ; -fornext_step333= 1 ; -if (fornext_step333<0) fornext_step_negative333=1; else fornext_step_negative333=0; -if (new_error) goto fornext_error333; -goto fornext_entrylabel333; +fornext_exit_313:; +S_3397:; +fornext_value316= 1 ; +fornext_finalvalue316= 27 ; +fornext_step316= 1 ; +if (fornext_step316<0) fornext_step_negative316=1; else fornext_step_negative316=0; +if (new_error) goto fornext_error316; +goto fornext_entrylabel316; while(1){ -fornext_value333=fornext_step333+(*__LONG_I); -fornext_entrylabel333: -*__LONG_I=fornext_value333; -if (fornext_step_negative333){ -if (fornext_value333fornext_finalvalue333) break; +if (fornext_value316>fornext_finalvalue316) break; } -fornext_error333:; -if(qbevent){evnt(2878);if(r)goto S_3365;} +fornext_error316:; +if(qbevent){evnt(2818);if(r)goto S_3397;} do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),qbs_new_txt_len("SINGLE",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2878);}while(r); +if(!qbevent)break;evnt(2818);}while(r); do{ tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2878);}while(r); -fornext_continue_332:; +if(!qbevent)break;evnt(2818);}while(r); +fornext_continue_315:; } -fornext_exit_332:; +fornext_exit_315:; do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 4 ,NULL,NULL, 16 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2880);}while(r); +if(!qbevent)break;evnt(2820);}while(r); do{ sub_close( 16 ,1); -if(!qbevent)break;evnt(2880);}while(r); +if(!qbevent)break;evnt(2820);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 2 ,NULL,NULL, 16 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2881);}while(r); +if(!qbevent)break;evnt(2821);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2884);}while(r); +if(!qbevent)break;evnt(2824);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 4 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2885);}while(r); +if(!qbevent)break;evnt(2825);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf.txt",9)), 4 ,NULL,NULL, 17 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2887);}while(r); +if(!qbevent)break;evnt(2827);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 4 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2889);}while(r); +if(!qbevent)break;evnt(2829);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("runline.txt",11)), 4 ,NULL,NULL, 21 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2890);}while(r); +if(!qbevent)break;evnt(2830);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainerr.txt",11)), 4 ,NULL,NULL, 14 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2892);}while(r); +if(!qbevent)break;evnt(2832);}while(r); do{ *__LONG_ERRORLABELS= 0 ; -if(!qbevent)break;evnt(2895);}while(r); +if(!qbevent)break;evnt(2835);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 14 ; -if (new_error) goto skip334; +if (new_error) goto skip317; sub_file_print(tmp_fileno,qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38), 0 , 0 , 1 ); -if (new_error) goto skip334; -skip334: +if (new_error) goto skip317; +skip317: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2896);}while(r); +if(!qbevent)break;evnt(2836);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 4 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2898);}while(r); +if(!qbevent)break;evnt(2838);}while(r); do{ sub_close( 22 ,1); -if(!qbevent)break;evnt(2898);}while(r); +if(!qbevent)break;evnt(2838);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 4 ,NULL,NULL, 23 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2899);}while(r); +if(!qbevent)break;evnt(2839);}while(r); do{ sub_close( 23 ,1); -if(!qbevent)break;evnt(2899);}while(r); +if(!qbevent)break;evnt(2839);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimer.txt",11)), 4 ,NULL,NULL, 24 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2902);}while(r); +if(!qbevent)break;evnt(2842);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ontimerj.txt",12)), 4 ,NULL,NULL, 25 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2903);}while(r); +if(!qbevent)break;evnt(2843);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkey.txt",9)), 4 ,NULL,NULL, 27 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2907);}while(r); +if(!qbevent)break;evnt(2847);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onkeyj.txt",10)), 4 ,NULL,NULL, 28 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2908);}while(r); +if(!qbevent)break;evnt(2848);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrig.txt",11)), 4 ,NULL,NULL, 29 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2910);}while(r); +if(!qbevent)break;evnt(2850);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("onstrigj.txt",12)), 4 ,NULL,NULL, 30 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2911);}while(r); +if(!qbevent)break;evnt(2851);}while(r); do{ *__LONG_GOSUBID= 1 ; -if(!qbevent)break;evnt(2913);}while(r); +if(!qbevent)break;evnt(2853);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret0.txt",8)), 4 ,NULL,NULL, 15 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2921);}while(r); +if(!qbevent)break;evnt(2861);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip335; +if (new_error) goto skip318; sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point){",23), 0 , 0 , 1 ); -if (new_error) goto skip335; -skip335: +if (new_error) goto skip318; +skip318: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2922);}while(r); +if(!qbevent)break;evnt(2862);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip336; +if (new_error) goto skip319; sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); -if (new_error) goto skip336; -skip336: +if (new_error) goto skip319; +skip319: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2923);}while(r); +if(!qbevent)break;evnt(2863);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip337; +if (new_error) goto skip320; sub_file_print(tmp_fileno,qbs_new_txt_len("switch(return_point[next_return_point]){",40), 0 , 0 , 1 ); -if (new_error) goto skip337; -skip337: +if (new_error) goto skip320; +skip320: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2924);}while(r); +if(!qbevent)break;evnt(2864);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip338; +if (new_error) goto skip321; sub_file_print(tmp_fileno,qbs_new_txt_len("case 0:",7), 0 , 0 , 1 ); -if (new_error) goto skip338; -skip338: +if (new_error) goto skip321; +skip321: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2925);}while(r); +if(!qbevent)break;evnt(2865);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip339; +if (new_error) goto skip322; sub_file_print(tmp_fileno,qbs_new_txt_len("return;",7), 0 , 0 , 1 ); -if (new_error) goto skip339; -skip339: +if (new_error) goto skip322; +skip322: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2927);}while(r); +if(!qbevent)break;evnt(2867);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip340; +if (new_error) goto skip323; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip340; -skip340: +if (new_error) goto skip323; +skip323: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2929);}while(r); +if(!qbevent)break;evnt(2869);}while(r); do{ *__LONG_CONTINUELINE= 0 ; -if(!qbevent)break;evnt(2931);}while(r); +if(!qbevent)break;evnt(2871);}while(r); do{ *__LONG_ENDIFS= 0 ; -if(!qbevent)break;evnt(2932);}while(r); +if(!qbevent)break;evnt(2872);}while(r); do{ *__LONG_LINEELSEUSED= 0 ; -if(!qbevent)break;evnt(2933);}while(r); +if(!qbevent)break;evnt(2873);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(2934);}while(r); +if(!qbevent)break;evnt(2874);}while(r); do{ *__LONG_LINENUMBER= 0 ; -if(!qbevent)break;evnt(2935);}while(r); +if(!qbevent)break;evnt(2875);}while(r); +do{ +*__LONG_REALLINENUMBER= 0 ; +if(!qbevent)break;evnt(2876);}while(r); do{ *__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(2936);}while(r); +if(!qbevent)break;evnt(2877);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip341; +if (new_error) goto skip324; sub_file_print(tmp_fileno,qbs_new_txt_len("S_0:;",5), 0 , 0 , 1 ); -if (new_error) goto skip341; -skip341: +if (new_error) goto skip324; +skip324: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(2938);}while(r); -S_3405:; +if(!qbevent)break;evnt(2879);}while(r); +S_3438:; if ((*__LONG_USEGL)||new_error){ -if(qbevent){evnt(2940);if(r)goto S_3405;} +if(qbevent){evnt(2881);if(r)goto S_3438;} do{ SUB_GL_INCLUDE_CONTENT(); -if(!qbevent)break;evnt(2940);}while(r); +if(!qbevent)break;evnt(2881);}while(r); } -S_3408:; +S_3441:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2944);if(r)goto S_3408;} +if(qbevent){evnt(2885);if(r)goto S_3441;} do{ goto LABEL_IDERET3; -if(!qbevent)break;evnt(2944);}while(r); +if(!qbevent)break;evnt(2885);}while(r); } -S_3411:; +S_3444:; do{ -if(qbevent){evnt(2946);if(r)goto S_3411;} +if(qbevent){evnt(2887);if(r)goto S_3444;} LABEL_IDE4:; -if(qbevent){evnt(2947);r=0;} +if(qbevent){evnt(2888);r=0;} LABEL_INCLUDELINE:; -if(qbevent){evnt(2948);r=0;} +if(qbevent){evnt(2889);r=0;} LABEL_MAINPASSLASTLINE:; -if(qbevent){evnt(2949);r=0;} -S_3412:; +if(qbevent){evnt(2890);r=0;} +S_3445:; if (((-(*__LONG_LASTLINE!= 0 ))|(-(*__LONG_FIRSTLINE!= 0 )))||new_error){ -if(qbevent){evnt(2951);if(r)goto S_3412;} +if(qbevent){evnt(2892);if(r)goto S_3445;} do{ qbs_set(__STRING_LINEBACKUP,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2952);}while(r); -S_3414:; -if ((*__LONG_VIRTUALKEYBOARDSTATE)||new_error){ -if(qbevent){evnt(2953);if(r)goto S_3414;} -S_3415:; +if(!qbevent)break;evnt(2893);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2894);}while(r); +S_3448:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(2895);if(r)goto S_3448;} +do{ +*__LONG_ADDINGVWATCH= 1 ; +if(!qbevent)break;evnt(2896);}while(r); +S_3450:; if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2954);if(r)goto S_3415;} +if(qbevent){evnt(2897);if(r)goto S_3450;} do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\header.bas",40)); +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2954);}while(r); +if(!qbevent)break;evnt(2897);}while(r); } -S_3418:; +S_3453:; if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2955);if(r)goto S_3418;} +if(qbevent){evnt(2898);if(r)goto S_3453;} do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\footer.bas",40)); +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2955);}while(r); +if(!qbevent)break;evnt(2898);}while(r); } }else{ -S_3422:; -if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2957);if(r)goto S_3422;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\header_stub.bas",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2957);}while(r); -} -S_3425:; +S_3457:; if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2958);if(r)goto S_3425;} +if(qbevent){evnt(2901);if(r)goto S_3457;} do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("source\\virtual_keyboard\\embed\\footer_stub.bas",45)); +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2958);}while(r); +if(!qbevent)break;evnt(2901);}while(r); } } do{ *__LONG_FIRSTLINE= 0 ; -if(!qbevent)break;evnt(2960);}while(r); +if(!qbevent)break;evnt(2903);}while(r); do{ *__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(2960);}while(r); +if(!qbevent)break;evnt(2903);}while(r); +S_3463:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_FORCEINCLUDEFROMROOT->len))||new_error){ +if(qbevent){evnt(2904);if(r)goto S_3463;} do{ goto LABEL_FORCEINCLUDE; -if(!qbevent)break;evnt(2961);}while(r); +if(!qbevent)break;evnt(2904);}while(r); +} LABEL_FORCEINCLUDECOMPLETED:; -if(qbevent){evnt(2962);r=0;} +if(qbevent){evnt(2905);r=0;} +do{ +*__LONG_ADDINGVWATCH= 0 ; +if(!qbevent)break;evnt(2906);}while(r); do{ qbs_set(__STRING_A3,__STRING_LINEBACKUP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2963);}while(r); +if(!qbevent)break;evnt(2907);}while(r); } do{ *__LONG_PREPASS= 0 ; -if(!qbevent)break;evnt(2966);}while(r); +if(!qbevent)break;evnt(2910);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(2968);}while(r); -S_3436:; +if(!qbevent)break;evnt(2912);}while(r); +S_3471:; if ((*__LONG_CONTINUELINEFROM)||new_error){ -if(qbevent){evnt(2970);if(r)goto S_3436;} +if(qbevent){evnt(2914);if(r)goto S_3471;} do{ *__LONG_START=*__LONG_CONTINUELINEFROM; -if(!qbevent)break;evnt(2971);}while(r); +if(!qbevent)break;evnt(2915);}while(r); do{ *__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(2972);}while(r); +if(!qbevent)break;evnt(2916);}while(r); do{ goto LABEL_CONTLINE; -if(!qbevent)break;evnt(2973);}while(r); +if(!qbevent)break;evnt(2917);}while(r); } do{ *__LONG_IMPLIEDENDIF= 0 ; -if(!qbevent)break;evnt(2978);}while(r); +if(!qbevent)break;evnt(2922);}while(r); do{ *__LONG_THENGOTO= 0 ; -if(!qbevent)break;evnt(2979);}while(r); +if(!qbevent)break;evnt(2923);}while(r); do{ *__LONG_CONTINUELINE= 0 ; -if(!qbevent)break;evnt(2980);}while(r); +if(!qbevent)break;evnt(2924);}while(r); do{ *__LONG_ENDIFS= 0 ; -if(!qbevent)break;evnt(2981);}while(r); +if(!qbevent)break;evnt(2925);}while(r); do{ *__LONG_LINEELSEUSED= 0 ; -if(!qbevent)break;evnt(2982);}while(r); +if(!qbevent)break;evnt(2926);}while(r); do{ *__LONG_NEWIF= 0 ; -if(!qbevent)break;evnt(2983);}while(r); -S_3447:; +if(!qbevent)break;evnt(2927);}while(r); +S_3482:; if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||new_error){ -if(qbevent){evnt(2986);if(r)goto S_3447;} +if(qbevent){evnt(2930);if(r)goto S_3482;} do{ *__INTEGER_ADDMETADYNAMIC= 0 ; -if(!qbevent)break;evnt(2986);}while(r); +if(!qbevent)break;evnt(2930);}while(r); do{ *__INTEGER_DYNAMICMODE= 1 ; -if(!qbevent)break;evnt(2986);}while(r); +if(!qbevent)break;evnt(2930);}while(r); } -S_3451:; +S_3486:; if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||new_error){ -if(qbevent){evnt(2987);if(r)goto S_3451;} +if(qbevent){evnt(2931);if(r)goto S_3486;} do{ *__INTEGER_ADDMETASTATIC= 0 ; -if(!qbevent)break;evnt(2987);}while(r); +if(!qbevent)break;evnt(2931);}while(r); do{ *__INTEGER_DYNAMICMODE= 0 ; -if(!qbevent)break;evnt(2987);}while(r); +if(!qbevent)break;evnt(2931);}while(r); } -S_3455:; +S_3490:; if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(2990);if(r)goto S_3455;} +if(qbevent){evnt(2934);if(r)goto S_3490;} do{ qbs_set(__STRING_A3,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2990);}while(r); +if(!qbevent)break;evnt(2934);}while(r); } -S_3458:; +S_3493:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(2991);if(r)goto S_3458;} +if(qbevent){evnt(2935);if(r)goto S_3493;} do{ -goto dl_exit_342; -if(!qbevent)break;evnt(2991);}while(r); +goto dl_exit_325; +if(!qbevent)break;evnt(2935);}while(r); } do{ *__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; -if(!qbevent)break;evnt(2992);}while(r); -S_3462:; -if ((-(*__LONG_LINENUMBER== 1 ))||new_error){ -if(qbevent){evnt(2993);if(r)goto S_3462;} +if(!qbevent)break;evnt(2936);}while(r); do{ -*__LONG_OPEX_COMMENTS= -1 ; -if(!qbevent)break;evnt(2993);}while(r); -} -S_3465:; -if ((getbits(1,(uint8*)(__ARRAY_BIT1_INVALIDLINE[0]),array_check((*__LONG_LINENUMBER)-__ARRAY_BIT1_INVALIDLINE[4],__ARRAY_BIT1_INVALIDLINE[5])))||new_error){ -if(qbevent){evnt(2995);if(r)goto S_3465;} +*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; +if(!qbevent)break;evnt(2937);}while(r); +S_3498:; +if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ +if(qbevent){evnt(2939);if(r)goto S_3498;} do{ *__LONG_LAYOUTOK= 1 ; -if(!qbevent)break;evnt(2996);}while(r); +if(!qbevent)break;evnt(2940);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__INTEGER_CONTROLLEVEL),qbs_ltrim(qbs_rtrim(__STRING_A3)))); +qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__INTEGER_CONTROLLEVEL+ 1 ),qbs_ltrim(qbs_rtrim(__STRING_A3)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2997);}while(r); -S_3468:; +if(!qbevent)break;evnt(2941);}while(r); +S_3501:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2998);if(r)goto S_3468;} +if(qbevent){evnt(2942);if(r)goto S_3501;} do{ goto LABEL_IDERET4; -if(!qbevent)break;evnt(2998);}while(r); +if(!qbevent)break;evnt(2942);}while(r); }else{ do{ goto LABEL_SKIPIDE4; -if(!qbevent)break;evnt(2998);}while(r); +if(!qbevent)break;evnt(2942);}while(r); } } do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3001);}while(r); +if(!qbevent)break;evnt(2945);}while(r); do{ *__LONG_LAYOUTOK= 1 ; -if(!qbevent)break;evnt(3002);}while(r); -S_3476:; -if ((-(*__LONG_IDEMODE== 0 ))||new_error){ -if(qbevent){evnt(3004);if(r)goto S_3476;} -S_3477:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(3005);if(r)goto S_3477;} +if(!qbevent)break;evnt(2946);}while(r); +S_3509:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(2948);if(r)goto S_3509;} do{ -*__LONG_DOTLINECOUNT=*__LONG_DOTLINECOUNT+ 1 ; -if(!qbevent)break;evnt(3006);}while(r); -S_3479:; -if ((-(*__LONG_DOTLINECOUNT>= 100 ))||new_error){ -if(qbevent){evnt(3006);if(r)goto S_3479;} +*__LONG_MAXPROGRESSWIDTH= 50 ; +if(!qbevent)break;evnt(2952);}while(r); do{ -*__LONG_DOTLINECOUNT= 0 ; -if(!qbevent)break;evnt(3006);}while(r); +*__LONG_PERCENTAGE=qbr(floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 )); +if(!qbevent)break;evnt(2953);}while(r); +do{ +*__LONG_PERCENTAGECHARS=qbr(floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER)))); +if(!qbevent)break;evnt(2954);}while(r); +S_3513:; +if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||new_error){ +if(qbevent){evnt(2955);if(r)goto S_3513;} +do{ +*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE; +if(!qbevent)break;evnt(2956);}while(r); +do{ +*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS; +if(!qbevent)break;evnt(2957);}while(r); +S_3516:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(2958);if(r)goto S_3516;} do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(".",1)); -if (new_error) goto skip344; +qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[",1),func_string(*__LONG_PERCENTAGECHARS,(qbs_new_txt_len(".",1)->chr[0]))),func_space(*__LONG_MAXPROGRESSWIDTH-*__LONG_PERCENTAGECHARS)),qbs_new_txt_len("]",1)),qbs_str((int32)(*__LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +if (new_error) goto skip327; makefit(tqbs); qbs_print(tqbs,0); -skip344: +skip327: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3006);}while(r); +if(!qbevent)break;evnt(2959);}while(r); +S_3518:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(2960);if(r)goto S_3518;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2))); +if (new_error) goto skip328; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip328: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2961);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_chr( 13 )); +if (new_error) goto skip329; +makefit(tqbs); +qbs_print(tqbs,0); +skip329: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2963);}while(r); +} +}else{ +do{ +qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); +if(!qbevent)break;evnt(2966);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_add(qbs_add(func_string(*__LONG_PERCENTAGECHARS, 219 ),func_string(*__LONG_MAXPROGRESSWIDTH-*__LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*__LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +if (new_error) goto skip330; +makefit(tqbs); +qbs_print(tqbs,0); +skip330: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2967);}while(r); } } } do{ qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3010);}while(r); +if(!qbevent)break;evnt(2972);}while(r); do{ qbs_set(__STRING_WHOLELINE,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3011);}while(r); +if(!qbevent)break;evnt(2973);}while(r); do{ qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3013);}while(r); +if(!qbevent)break;evnt(2975);}while(r); do{ qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3014);}while(r); +if(!qbevent)break;evnt(2976);}while(r); do{ *__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL; -if(!qbevent)break;evnt(3015);}while(r); +if(!qbevent)break;evnt(2977);}while(r); do{ qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3017);}while(r); -S_3491:; +if(!qbevent)break;evnt(2979);}while(r); +S_3535:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||new_error){ -if(qbevent){evnt(3018);if(r)goto S_3491;} +if(qbevent){evnt(2980);if(r)goto S_3535;} do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3018);}while(r); +if(!qbevent)break;evnt(2980);}while(r); } -S_3494:; +S_3538:; if (( 0 )||new_error){ -if(qbevent){evnt(3019);if(r)goto S_3494;} +if(qbevent){evnt(2981);if(r)goto S_3538;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip346; +if (new_error) goto skip332; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("########",8),__STRING_A3),qbs_new_txt_len("########",8)), 0 , 0 , 1 ); -if (new_error) goto skip346; -skip346: +if (new_error) goto skip332; +skip332: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3019);}while(r); +if(!qbevent)break;evnt(2981);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3021);}while(r); +if(!qbevent)break;evnt(2983);}while(r); do{ qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3027);}while(r); -S_3499:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("REM ",4)))|(((qbs_equal(qbs_left(__STRING_A3U, 3 ),qbs_new_txt_len("REM",3)))&(-(__STRING_A3U->len== 3 ))))|(qbs_equal(qbs_left(__STRING_A3U, 1 ),qbs_new_txt_len("'",1)))|(((qbs_equal(qbs_left(__STRING_A3U, 7 ),qbs_new_txt_len("OPTION ",7)))&(qbs_equal(qbs_left(qbs_ltrim(func_mid(__STRING_A3U, 8 ,NULL,0)), 9 ),qbs_new_txt_len("_EXPLICIT",9)))))))||new_error){ -if(qbevent){evnt(3032);if(r)goto S_3499;} -S_3500:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("REM ",4))))||new_error){ -if(qbevent){evnt(3035);if(r)goto S_3500;} -do{ -*__LONG_I= 5 ; -if(!qbevent)break;evnt(3035);}while(r); -}else{ -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(3035);}while(r); -} -S_3505:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(__STRING_A3U,*__LONG_I,NULL,0)), 8 ),qbs_new_txt_len("$INCLUDE",8))))||new_error){ -if(qbevent){evnt(3036);if(r)goto S_3505;} -do{ -*__LONG_OPEX_COMMENTS= 0 ; -if(!qbevent)break;evnt(3036);}while(r); -} -}else{ -do{ -*__LONG_OPEX_COMMENTS= 0 ; -if(!qbevent)break;evnt(3039);}while(r); -} -S_3511:; +if(!qbevent)break;evnt(2989);}while(r); +S_3543:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||new_error){ -if(qbevent){evnt(3043);if(r)goto S_3511;} -S_3512:; +if(qbevent){evnt(2992);if(r)goto S_3543;} +S_3544:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A3U,qbs_new_txt_len("$END IF",7)))|(qbs_equal(__STRING_A3U,qbs_new_txt_len("$ENDIF",6)))))||new_error){ -if(qbevent){evnt(3047);if(r)goto S_3512;} -S_3513:; +if(qbevent){evnt(2995);if(r)goto S_3544;} +S_3545:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(3048);if(r)goto S_3513;} +if(qbevent){evnt(2996);if(r)goto S_3545;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3048);}while(r); +if(!qbevent)break;evnt(2996);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3048);}while(r); +if(!qbevent)break;evnt(2996);}while(r); } do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(3049);}while(r); +if(!qbevent)break;evnt(2997);}while(r); do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; -if(!qbevent)break;evnt(3050);}while(r); +if(!qbevent)break;evnt(2998);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$END IF",7)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$End If",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3051);}while(r); +if(!qbevent)break;evnt(2999);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(3052);}while(r); +if(!qbevent)break;evnt(3000);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(3053);}while(r); +if(!qbevent)break;evnt(3001);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3054);}while(r); +if(!qbevent)break;evnt(3002);}while(r); } -S_3524:; +S_3556:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ -if(qbevent){evnt(3057);if(r)goto S_3524;} +if(qbevent){evnt(3005);if(r)goto S_3556;} +S_3557:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(3007);if(r)goto S_3557;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3008);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3008);}while(r); +} do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 4 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3058);}while(r); +if(!qbevent)break;evnt(3011);}while(r); do{ qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3059);}while(r); +if(!qbevent)break;evnt(3012);}while(r); do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0); +*__LONG_TEMP= 0 ; +if(!qbevent)break;evnt(3013);}while(r); +S_3564:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3014);if(r)goto S_3564;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3060);}while(r); +if(!qbevent)break;evnt(3014);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3014);}while(r); +} +S_3568:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3015);if(r)goto S_3568;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3015);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3015);}while(r); +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3015);}while(r); +} +S_3573:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3016);if(r)goto S_3573;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3016);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3016);}while(r); +} +S_3577:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3017);if(r)goto S_3577;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3017);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3017);}while(r); +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3017);}while(r); +} +S_3582:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3018);if(r)goto S_3582;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3018);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3018);}while(r); +} +S_3586:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3019);if(r)goto S_3586;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3019);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3019);}while(r); +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3019);}while(r); +} +S_3591:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3020);if(r)goto S_3591;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3020);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3020);}while(r); +} +S_3595:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3021);if(r)goto S_3595;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3021);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3021);}while(r); +} +S_3599:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3022);if(r)goto S_3599;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3022);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3022);}while(r); +} do{ *__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; -if(!qbevent)break;evnt(3062);}while(r); +if(!qbevent)break;evnt(3024);}while(r); do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(3063);}while(r); +if(!qbevent)break;evnt(3025);}while(r); do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(3064);}while(r); +if(!qbevent)break;evnt(3026);}while(r); do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3065);}while(r); -S_3532:; +if(!qbevent)break;evnt(3027);}while(r); +S_3607:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3066);if(r)goto S_3532;} +if(qbevent){evnt(3028);if(r)goto S_3607;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3066);}while(r); +if(!qbevent)break;evnt(3028);}while(r); } -S_3535:; +S_3610:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(3067);if(r)goto S_3535;} +if(qbevent){evnt(3029);if(r)goto S_3610;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]; -if(!qbevent)break;evnt(3068);}while(r); -S_3537:; +if(!qbevent)break;evnt(3030);}while(r); +S_3612:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(3069);if(r)goto S_3537;} +if(qbevent){evnt(3031);if(r)goto S_3612;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ; -if(!qbevent)break;evnt(3069);}while(r); +if(!qbevent)break;evnt(3031);}while(r); } } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(3072);}while(r); +if(!qbevent)break;evnt(3034);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 6 ; -if(!qbevent)break;evnt(3073);}while(r); -S_3543:; +if(!qbevent)break;evnt(3035);}while(r); +S_3618:; if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3074);if(r)goto S_3543;} +if(qbevent){evnt(3036);if(r)goto S_3618;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_new_txt_len("$IF ",4),__STRING_TEMP),qbs_new_txt_len(" THEN",5))); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$If ",4)),__STRING_TEMP),FUNC_SCASE(qbs_new_txt_len(" Then",5)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3074);}while(r); +if(!qbevent)break;evnt(3036);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3074);}while(r); +if(!qbevent)break;evnt(3036);}while(r); } do{ qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3075);}while(r); +if(!qbevent)break;evnt(3037);}while(r); do{ -qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0))); +qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+__STRING_TEMPOP->len,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3075);}while(r); +if(!qbevent)break;evnt(3037);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$IF ",4),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),qbs_new_txt_len(" THEN",5))); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$If ",4)),__STRING_L),qbs_new_txt_len(" ",1)),__STRING_TEMPOP),qbs_new_txt_len(" ",1)),__STRING_R),FUNC_SCASE(qbs_new_txt_len(" Then",5)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3076);}while(r); +if(!qbevent)break;evnt(3038);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3077);}while(r); +if(!qbevent)break;evnt(3039);}while(r); } -S_3552:; +S_3627:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(3080);if(r)goto S_3552;} -S_3553:; +if(qbevent){evnt(3042);if(r)goto S_3627;} +S_3628:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(3081);if(r)goto S_3553;} +if(qbevent){evnt(3043);if(r)goto S_3628;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3081);}while(r); +if(!qbevent)break;evnt(3043);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3081);}while(r); +if(!qbevent)break;evnt(3043);}while(r); } -S_3557:; +S_3632:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(3082);if(r)goto S_3557;} +if(qbevent){evnt(3044);if(r)goto S_3632;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$IF block already has $ELSE statement in it",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3082);}while(r); +if(!qbevent)break;evnt(3044);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3082);}while(r); +if(!qbevent)break;evnt(3044);}while(r); } do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 2 ; -if(!qbevent)break;evnt(3083);}while(r); -S_3562:; +if(!qbevent)break;evnt(3045);}while(r); +S_3637:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(3084);if(r)goto S_3562;} +if(qbevent){evnt(3046);if(r)goto S_3637;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(3085);}while(r); +if(!qbevent)break;evnt(3047);}while(r); }else{ do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]; -if(!qbevent)break;evnt(3087);}while(r); +if(!qbevent)break;evnt(3049);}while(r); } do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$ELSE",5)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Else",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3089);}while(r); +if(!qbevent)break;evnt(3051);}while(r); do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(3090);}while(r); +if(!qbevent)break;evnt(3052);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3091);}while(r); +if(!qbevent)break;evnt(3053);}while(r); } -S_3571:; +S_3646:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(3094);if(r)goto S_3571;} +if(qbevent){evnt(3056);if(r)goto S_3646;} do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3095);}while(r); -S_3573:; +if(!qbevent)break;evnt(3057);}while(r); +S_3648:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ -if(qbevent){evnt(3096);if(r)goto S_3573;} -S_3574:; +if(qbevent){evnt(3058);if(r)goto S_3648;} +S_3649:; if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(3097);if(r)goto S_3574;} +if(qbevent){evnt(3059);if(r)goto S_3649;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3097);}while(r); +if(!qbevent)break;evnt(3059);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3097);}while(r); +if(!qbevent)break;evnt(3059);}while(r); } -S_3578:; +S_3653:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(3098);if(r)goto S_3578;} +if(qbevent){evnt(3060);if(r)goto S_3653;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF cannot follow $ELSE",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3098);}while(r); +if(!qbevent)break;evnt(3060);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3098);}while(r); +if(!qbevent)break;evnt(3060);}while(r); } -S_3582:; +S_3657:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ -if(qbevent){evnt(3099);if(r)goto S_3582;} +if(qbevent){evnt(3061);if(r)goto S_3657;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3099);}while(r); +if(!qbevent)break;evnt(3061);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3099);}while(r); +if(!qbevent)break;evnt(3061);}while(r); } do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 3 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3100);}while(r); +if(!qbevent)break;evnt(3062);}while(r); do{ qbs_set(__STRING_TEMP,qbs_rtrim(qbs_left(__STRING_TEMP,__STRING_TEMP->len- 4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3101);}while(r); -S_3588:; +if(!qbevent)break;evnt(3063);}while(r); +S_3663:; if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(3102);if(r)goto S_3588;} +if(qbevent){evnt(3064);if(r)goto S_3663;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(3103);}while(r); +if(!qbevent)break;evnt(3065);}while(r); }else{ do{ *__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3105);}while(r); -S_3592:; +if(!qbevent)break;evnt(3067);}while(r); +S_3667:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3106);if(r)goto S_3592;} +if(qbevent){evnt(3068);if(r)goto S_3667;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3106);}while(r); +if(!qbevent)break;evnt(3068);}while(r); } -S_3595:; +S_3670:; if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(3107);if(r)goto S_3595;} +if(qbevent){evnt(3069);if(r)goto S_3670;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]=((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER- 1 )-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]; -if(!qbevent)break;evnt(3108);}while(r); -S_3597:; +if(!qbevent)break;evnt(3070);}while(r); +S_3672:; if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(3109);if(r)goto S_3597;} +if(qbevent){evnt(3071);if(r)goto S_3672;} do{ tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]=((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]| 4 ; -if(!qbevent)break;evnt(3109);}while(r); +if(!qbevent)break;evnt(3071);}while(r); } } } do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(3114);}while(r); +if(!qbevent)break;evnt(3076);}while(r); do{ *__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3115);}while(r); -S_3604:; +if(!qbevent)break;evnt(3077);}while(r); +S_3679:; if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3116);if(r)goto S_3604;} +if(qbevent){evnt(3078);if(r)goto S_3679;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_new_txt_len("$ELSEIF ",8),__STRING_TEMP),qbs_new_txt_len(" THEN",5))); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ElseIf ",8)),__STRING_TEMP),FUNC_SCASE(qbs_new_txt_len(" Then",5)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3116);}while(r); +if(!qbevent)break;evnt(3078);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3116);}while(r); +if(!qbevent)break;evnt(3078);}while(r); } do{ qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3117);}while(r); +if(!qbevent)break;evnt(3079);}while(r); do{ qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3117);}while(r); +if(!qbevent)break;evnt(3079);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$ELSEIF ",8),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),qbs_new_txt_len(" THEN",5))); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ElseIf ",8)),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R),FUNC_SCASE(qbs_new_txt_len(" Then",5)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3118);}while(r); +if(!qbevent)break;evnt(3080);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3119);}while(r); +if(!qbevent)break;evnt(3081);}while(r); } } -S_3614:; +S_3689:; if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ -if(qbevent){evnt(3123);if(r)goto S_3614;} +if(qbevent){evnt(3085);if(r)goto S_3689;} do{ *__LONG_LAYOUTDONE= 0 ; -if(!qbevent)break;evnt(3124);}while(r); +if(!qbevent)break;evnt(3086);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3125);}while(r); +if(!qbevent)break;evnt(3087);}while(r); } -S_3618:; +S_3693:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||new_error){ -if(qbevent){evnt(3128);if(r)goto S_3618;} +if(qbevent){evnt(3090);if(r)goto S_3693;} do{ qbs_set(__STRING_TEMP,__STRING_A3U); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3129);}while(r); +if(!qbevent)break;evnt(3091);}while(r); do{ qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3130);}while(r); +if(!qbevent)break;evnt(3092);}while(r); do{ *__LONG_TEMP=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len("=",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3132);}while(r); +if(!qbevent)break;evnt(3094);}while(r); do{ qbs_set(__STRING_L,qbs_rtrim(qbs_left(__STRING_TEMP,*__LONG_TEMP- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3133);}while(r); +if(!qbevent)break;evnt(3095);}while(r); do{ qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_TEMP,*__LONG_TEMP+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3133);}while(r); +if(!qbevent)break;evnt(3095);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$LET ",5),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$Let ",5)),__STRING_L),qbs_new_txt_len(" = ",3)),__STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3134);}while(r); -S_3625:; -fornext_value351= 7 ; -fornext_finalvalue351=*__INTEGER_USERDEFINECOUNT; -fornext_step351= 1 ; -if (fornext_step351<0) fornext_step_negative351=1; else fornext_step_negative351=0; -if (new_error) goto fornext_error351; -goto fornext_entrylabel351; +if(!qbevent)break;evnt(3096);}while(r); +S_3700:; +fornext_value337= 7 ; +fornext_finalvalue337=*__INTEGER_USERDEFINECOUNT; +fornext_step337= 1 ; +if (fornext_step337<0) fornext_step_negative337=1; else fornext_step_negative337=0; +if (new_error) goto fornext_error337; +goto fornext_entrylabel337; while(1){ -fornext_value351=fornext_step351+(*__LONG_I); -fornext_entrylabel351: -*__LONG_I=fornext_value351; -if (fornext_step_negative351){ -if (fornext_value351fornext_finalvalue351) break; +if (fornext_value337>fornext_finalvalue337) break; } -fornext_error351:; -if(qbevent){evnt(3136);if(r)goto S_3625;} -S_3626:; +fornext_error337:; +if(qbevent){evnt(3098);if(r)goto S_3700;} +S_3701:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),__STRING_L)))||new_error){ -if(qbevent){evnt(3137);if(r)goto S_3626;} +if(qbevent){evnt(3099);if(r)goto S_3701;} do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3137);}while(r); +if(!qbevent)break;evnt(3099);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3137);}while(r); +if(!qbevent)break;evnt(3099);}while(r); } -fornext_continue_350:; +fornext_continue_336:; } -fornext_exit_350:; +fornext_exit_336:; do{ *__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; -if(!qbevent)break;evnt(3140);}while(r); -S_3632:; +if(!qbevent)break;evnt(3102);}while(r); +S_3707:; if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ -if(qbevent){evnt(3141);if(r)goto S_3632;} +if(qbevent){evnt(3103);if(r)goto S_3707;} do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ @@ -14445,1332 +14540,1134 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qb } } } -if(!qbevent)break;evnt(3142);}while(r); +if(!qbevent)break;evnt(3104);}while(r); } do{ tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3144);}while(r); +if(!qbevent)break;evnt(3106);}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3145);}while(r); +if(!qbevent)break;evnt(3107);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3146);}while(r); +if(!qbevent)break;evnt(3108);}while(r); +} +S_3714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||new_error){ +if(qbevent){evnt(3111);if(r)goto S_3714;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3112);}while(r); +S_3716:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(3113);if(r)goto S_3716;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0_noprefix.bi",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3114);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3116);}while(r); } do{ -qbs_set(__STRING_METACOMMAND,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3153);}while(r); -S_3640:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_A3U,qbs_new_txt_len("$INSTALLFILES ",14),0)== 1 )))||new_error){ -if(qbevent){evnt(3154);if(r)goto S_3640;} +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3118);}while(r); do{ -qbs_set(__STRING_METACOMMAND,qbs_new_txt_len("$INSTALLFILES",13)); +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3119);}while(r); +} +S_3724:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||new_error){ +if(qbevent){evnt(3122);if(r)goto S_3724;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3123);}while(r); +S_3726:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(3124);if(r)goto S_3726;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32_noprefix.bi",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3125);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3127);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3129);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3130);}while(r); +} +S_3734:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$NOPREFIX",9))))||new_error){ +if(qbevent){evnt(3133);if(r)goto S_3734;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$NoPrefix",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3135);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3136);}while(r); +} +S_3738:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:ON",19))))||new_error){ +if(qbevent){evnt(3139);if(r)goto S_3738;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$VirtualKeyboard:On",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3141);}while(r); +do{ +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Deprecated feature",18),qbs_new_txt_len("$VirtualKeyboard",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3142);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3143);}while(r); +} +S_3743:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:OFF",20))))||new_error){ +if(qbevent){evnt(3146);if(r)goto S_3743;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$VirtualKeyboard:Off",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3148);}while(r); +do{ +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Deprecated feature",18),qbs_new_txt_len("$VirtualKeyboard",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3149);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3150);}while(r); +} +S_3748:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||new_error){ +if(qbevent){evnt(3153);if(r)goto S_3748;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3154);}while(r); -} -S_3643:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_A3U,qbs_new_txt_len("$INSTALLFOLDER ",15),0)== 1 )))||new_error){ -if(qbevent){evnt(3155);if(r)goto S_3643;} +S_3750:; +if ((*__LONG_NOIDEMODE)||new_error){ +if(qbevent){evnt(3155);if(r)goto S_3750;} do{ -qbs_set(__STRING_METACOMMAND,qbs_new_txt_len("$INSTALLFOLDER",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3155);}while(r); -} -do{ -qbs_set(__STRING_METACOMMANDHINT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )),qbs_new_txt_len("source-location",15)),func_chr( 34 )),qbs_new_txt_len(" [IN ",5)),func_chr( 34 )),qbs_new_txt_len("dest-location",13)),func_chr( 34 )),qbs_new_txt_len("]",1))); +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("$Debug",6),qbs_new_txt_len("$Debug features only work from the IDE",38)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3156);}while(r); -S_3647:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_METACOMMAND,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3157);if(r)goto S_3647;} +} do{ -qbs_set(__STRING_SOURCECONTENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_FINISHEDNONEXEC; if(!qbevent)break;evnt(3158);}while(r); +} +S_3755:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||new_error){ +if(qbevent){evnt(3161);if(r)goto S_3755;} do{ -qbs_set(__STRING_DESTLOCATION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3159);}while(r); -do{ -*__LONG_I3STEP= 0 ; -if(!qbevent)break;evnt(3160);}while(r); -do{ -*__LONG_I3START= 0 ; -if(!qbevent)break;evnt(3161);}while(r); -do{ -qbs_set(__STRING_A4,qbs_add(__STRING_A3,qbs_new_txt_len(" '",2))); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3162);}while(r); do{ -qbs_set(__STRING_A3STRING,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3163);}while(r); -do{ -qbs_set(__STRING_L,__STRING_METACOMMAND); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3164);}while(r); -S_3655:; -fornext_value353=__STRING_METACOMMAND->len+ 2 ; -fornext_finalvalue353=__STRING_A4->len; -fornext_step353= 1 ; -if (fornext_step353<0) fornext_step_negative353=1; else fornext_step_negative353=0; -if (new_error) goto fornext_error353; -goto fornext_entrylabel353; -while(1){ -fornext_value353=fornext_step353+(*__LONG_I3); -fornext_entrylabel353: -*__LONG_I3=fornext_value353; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative353){ -if (fornext_value353fornext_finalvalue353) break; -} -fornext_error353:; -if(qbevent){evnt(3165);if(r)goto S_3655;} -do{ -*__LONG_C3=qbs_asc(__STRING_A4,*__LONG_I3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3166);}while(r); -do{ -*__LONG_WHITESPACE= 0 ; -if(!qbevent)break;evnt(3167);}while(r); -S_3658:; -if (((-(*__LONG_I3START== 0 ))&(-(*__LONG_C3== 39 )))||new_error){ -if(qbevent){evnt(3168);if(r)goto S_3658;} -S_3659:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I3!=(__STRING_METACOMMAND->len+ 2 ))))||new_error){ -if(qbevent){evnt(3169);if(r)goto S_3659;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),func_mid(__STRING_A3,*__LONG_I3,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3169);}while(r); -} -do{ -goto fornext_exit_352; -if(!qbevent)break;evnt(3170);}while(r); -} -S_3664:; -if (((-(*__LONG_C3== 32 ))|(-(*__LONG_C3== 9 )))||new_error){ -if(qbevent){evnt(3172);if(r)goto S_3664;} -do{ -*__LONG_WHITESPACE= 1 ; -if(!qbevent)break;evnt(3172);}while(r); -} -S_3667:; -if (((-(*__LONG_C3== 34 ))|(-(*__LONG_I3START!= 0 )))||new_error){ -if(qbevent){evnt(3173);if(r)goto S_3667;} -S_3668:; -if ((-(*__LONG_C3== 34 ))||new_error){ -if(qbevent){evnt(3174);if(r)goto S_3668;} -S_3669:; -if ((-(*__LONG_I3START== 0 ))||new_error){ -if(qbevent){evnt(3175);if(r)goto S_3669;} -do{ -*__LONG_I3START=*__LONG_I3; -if(!qbevent)break;evnt(3176);}while(r); -}else{ -do{ -qbs_set(__STRING_A3QUOTEDSTRING,func_mid(__STRING_A3,*__LONG_I3START+ 1 ,*__LONG_I3-*__LONG_I3START- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3178);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),func_chr( 34 )),__STRING_A3QUOTEDSTRING),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3179);}while(r); -S_3674:; -if (((-(*__LONG_I3STEP!= 0 ))&(-(*__LONG_I3STEP!= 2 )))||new_error){ -if(qbevent){evnt(3180);if(r)goto S_3674;} -do{ -qbs_set(__STRING_A,__STRING_METACOMMANDHINT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3180);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3180);}while(r); -} -S_3678:; -if ((-(*__LONG_I3STEP== 0 ))||new_error){ -if(qbevent){evnt(3181);if(r)goto S_3678;} -do{ -qbs_set(__STRING_SOURCECONTENT,__STRING_A3QUOTEDSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3181);}while(r); -do{ -*__LONG_I3STEP= 1 ; -if(!qbevent)break;evnt(3181);}while(r); -} -S_3682:; -if ((-(*__LONG_I3STEP== 2 ))||new_error){ -if(qbevent){evnt(3182);if(r)goto S_3682;} -do{ -qbs_set(__STRING_DESTLOCATION,__STRING_A3QUOTEDSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3182);}while(r); -do{ -*__LONG_I3STEP= 3 ; -if(!qbevent)break;evnt(3182);}while(r); -} -do{ -*__LONG_I3START= 0 ; -if(!qbevent)break;evnt(3183);}while(r); -} -} -}else{ -S_3690:; -if ((-(*__LONG_WHITESPACE== 0 ))||new_error){ -if(qbevent){evnt(3187);if(r)goto S_3690;} -do{ -qbs_set(__STRING_A3STRING,qbs_add(__STRING_A3STRING,func_chr(*__LONG_C3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3188);}while(r); -}else{ -S_3693:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A3STRING,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3190);if(r)goto S_3693;} -S_3694:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_A3STRING),qbs_new_txt_len("IN",2))))||new_error){ -if(qbevent){evnt(3191);if(r)goto S_3694;} -do{ -qbs_set(__STRING_A,__STRING_METACOMMANDHINT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3191);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3191);}while(r); -} -S_3698:; -if ((-(*__LONG_I3STEP!= 1 ))||new_error){ -if(qbevent){evnt(3192);if(r)goto S_3698;} -do{ -qbs_set(__STRING_A,__STRING_METACOMMANDHINT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3192);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3192);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("IN",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3193);}while(r); -do{ -*__LONG_I3STEP= 2 ; -if(!qbevent)break;evnt(3194);}while(r); -do{ -qbs_set(__STRING_A3STRING,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3195);}while(r); -} -} -} -fornext_continue_352:; -} -fornext_exit_352:; -S_3709:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3STRING->len))||new_error){ -if(qbevent){evnt(3200);if(r)goto S_3709;} -do{ -qbs_set(__STRING_A,__STRING_METACOMMANDHINT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3200);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3200);}while(r); -} -S_3713:; -if ((-(*__LONG_I3START!= 0 ))||new_error){ -if(qbevent){evnt(3201);if(r)goto S_3713;} -do{ -qbs_set(__STRING_A,__STRING_METACOMMANDHINT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3201);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3201);}while(r); -} -S_3717:; -if (((-(*__LONG_I3STEP== 0 ))|(-(*__LONG_I3STEP== 2 )))||new_error){ -if(qbevent){evnt(3202);if(r)goto S_3717;} -do{ -qbs_set(__STRING_A,__STRING_METACOMMANDHINT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3202);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3202);}while(r); -} -do{ -qbs_set(__STRING_SOURCELOCATION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3206);}while(r); -S_3722:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(3207);if(r)goto S_3722;} -S_3723:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(3208);if(r)goto S_3723;} -do{ -qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3208);}while(r); -}else{ -do{ -qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3208);}while(r); -} -}else{ -do{ -qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3210);}while(r); -} -do{ -qbs_set(__STRING_SOURCELOCATION,__STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3212);}while(r); -S_3732:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_METACOMMAND,qbs_new_txt_len("$INSTALLFILES",13))))||new_error){ -if(qbevent){evnt(3214);if(r)goto S_3732;} -do{ -SUB_ARYADDSTR(__ARRAY_STRING_INSTALLFILES,__STRING_SOURCECONTENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3215);}while(r); -do{ -SUB_ARYADDSTR(__ARRAY_STRING_INSTALLFILESSOURCELOCATION,__STRING_SOURCELOCATION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3216);}while(r); -do{ -SUB_ARYADDSTR(__ARRAY_STRING_INSTALLFILESIN,__STRING_DESTLOCATION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3217);}while(r); -}else{ -do{ -SUB_ARYADDSTR(__ARRAY_STRING_INSTALLFOLDER,__STRING_SOURCECONTENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3219);}while(r); -do{ -SUB_ARYADDSTR(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION,__STRING_SOURCELOCATION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3220);}while(r); -do{ -SUB_ARYADDSTR(__ARRAY_STRING_INSTALLFOLDERIN,__STRING_DESTLOCATION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3221);}while(r); -} -S_3741:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3224);if(r)goto S_3741;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3224);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3224);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3225);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3226);}while(r); -} -S_3748:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:ON",19))))||new_error){ -if(qbevent){evnt(3236);if(r)goto S_3748;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$VIRTUALKEYBOARD:ON",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3237);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3238);}while(r); -} -S_3752:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:OFF",20))))||new_error){ -if(qbevent){evnt(3241);if(r)goto S_3752;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$VIRTUALKEYBOARD:OFF",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3242);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3243);}while(r); -} -S_3756:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||new_error){ -if(qbevent){evnt(3246);if(r)goto S_3756;} -S_3757:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3247);if(r)goto S_3757;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3247);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3247);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$CHECKING:OFF",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3248);}while(r); -do{ *__LONG_NOCHECKS= 1 ; -if(!qbevent)break;evnt(3249);}while(r); +if(!qbevent)break;evnt(3163);}while(r); +S_3758:; +if (((-(*__LONG_VWATCHON!= 0 ))&(-(*__LONG_NOIDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(3164);if(r)goto S_3758;} +do{ +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("$Debug",6),qbs_new_txt_len("$Debug features won't work in $Checking:Off blocks",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3165);}while(r); +} do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3250);}while(r); +if(!qbevent)break;evnt(3167);}while(r); } -S_3765:; +S_3763:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||new_error){ -if(qbevent){evnt(3253);if(r)goto S_3765;} +if(qbevent){evnt(3170);if(r)goto S_3763;} do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$CHECKING:ON",12)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3254);}while(r); +if(!qbevent)break;evnt(3171);}while(r); do{ *__LONG_NOCHECKS= 0 ; -if(!qbevent)break;evnt(3255);}while(r); +if(!qbevent)break;evnt(3172);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3256);}while(r); +if(!qbevent)break;evnt(3173);}while(r); } -S_3770:; +S_3768:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||new_error){ -if(qbevent){evnt(3259);if(r)goto S_3770;} -S_3771:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3260);if(r)goto S_3771;} +if(qbevent){evnt(3176);if(r)goto S_3768;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3260);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3260);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$CONSOLE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3261);}while(r); +if(!qbevent)break;evnt(3177);}while(r); do{ *__LONG_CONSOLE= 1 ; -if(!qbevent)break;evnt(3262);}while(r); +if(!qbevent)break;evnt(3178);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3263);}while(r); +if(!qbevent)break;evnt(3179);}while(r); } -S_3779:; +S_3773:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||new_error){ -if(qbevent){evnt(3266);if(r)goto S_3779;} +if(qbevent){evnt(3182);if(r)goto S_3773;} do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$CONSOLE:ONLY",13)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3267);}while(r); +if(!qbevent)break;evnt(3183);}while(r); do{ tmp_long=array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]=((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]| 1 ; -if(!qbevent)break;evnt(3268);}while(r); +if(!qbevent)break;evnt(3184);}while(r); do{ *__LONG_CONSOLE= 1 ; -if(!qbevent)break;evnt(3269);}while(r); +if(!qbevent)break;evnt(3185);}while(r); +S_3777:; +if ((-(*__LONG_PREPASS== 0 ))||new_error){ +if(qbevent){evnt(3186);if(r)goto S_3777;} +S_3778:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(3187);if(r)goto S_3778;} do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3270);}while(r); -} -S_3785:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||new_error){ -if(qbevent){evnt(3273);if(r)goto S_3785;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$SCREENHIDE",11)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip338; +sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); +if (new_error) goto skip338; +skip338: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3274);}while(r); -do{ -*__LONG_SCREENHIDE= 1 ; -if(!qbevent)break;evnt(3275);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3276);}while(r); -} -S_3790:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||new_error){ -if(qbevent){evnt(3278);if(r)goto S_3790;} -S_3791:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3279);if(r)goto S_3791;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3279);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3279);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(3187);}while(r); } do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$SCREENSHOW",11)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip339; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub__dest(func__console());",27), 0 , 0 , 1 ); +if (new_error) goto skip339; +skip339: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3280);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(3188);}while(r); do{ -*__LONG_SCREENHIDE= 0 ; -if(!qbevent)break;evnt(3281);}while(r); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip340; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub__source(func__console());",29), 0 , 0 , 1 ); +if (new_error) goto skip340; +skip340: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(3189);}while(r); +do{ +goto LABEL_FINISHEDLINE2; +if(!qbevent)break;evnt(3190);}while(r); +}else{ do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3282);}while(r); +if(!qbevent)break;evnt(3192);}while(r); +} +} +S_3788:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||new_error){ +if(qbevent){evnt(3196);if(r)goto S_3788;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3197);}while(r); +do{ +*__LONG_ASSERTS= 1 ; +if(!qbevent)break;evnt(3198);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3199);}while(r); +} +S_3793:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||new_error){ +if(qbevent){evnt(3202);if(r)goto S_3793;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3203);}while(r); +do{ +*__LONG_ASSERTS= 1 ; +if(!qbevent)break;evnt(3204);}while(r); +do{ +*__LONG_CONSOLE= 1 ; +if(!qbevent)break;evnt(3205);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3206);}while(r); } S_3799:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||new_error){ -if(qbevent){evnt(3285);if(r)goto S_3799;} -S_3800:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3286);if(r)goto S_3800;} +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||new_error){ +if(qbevent){evnt(3209);if(r)goto S_3799;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3286);}while(r); +if(!qbevent)break;evnt(3210);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3286);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$RESIZE:OFF",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3287);}while(r); -do{ -*__LONG_RESIZE= 0 ; -if(!qbevent)break;evnt(3288);}while(r); -do{ -*__LONG_RESIZE_SCALE= 0 ; -if(!qbevent)break;evnt(3288);}while(r); +*__LONG_SCREENHIDE= 1 ; +if(!qbevent)break;evnt(3211);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3289);}while(r); +if(!qbevent)break;evnt(3212);}while(r); +} +S_3804:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||new_error){ +if(qbevent){evnt(3214);if(r)goto S_3804;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3215);}while(r); +do{ +*__LONG_SCREENHIDE= 0 ; +if(!qbevent)break;evnt(3216);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3217);}while(r); } S_3809:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||new_error){ -if(qbevent){evnt(3291);if(r)goto S_3809;} -S_3810:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3292);if(r)goto S_3810;} +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||new_error){ +if(qbevent){evnt(3220);if(r)goto S_3809;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3292);}while(r); +if(!qbevent)break;evnt(3221);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3292);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$RESIZE:ON",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3293);}while(r); -do{ -*__LONG_RESIZE= 1 ; -if(!qbevent)break;evnt(3294);}while(r); +*__LONG_RESIZE= 0 ; +if(!qbevent)break;evnt(3222);}while(r); do{ *__LONG_RESIZE_SCALE= 0 ; -if(!qbevent)break;evnt(3294);}while(r); +if(!qbevent)break;evnt(3222);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3295);}while(r); +if(!qbevent)break;evnt(3223);}while(r); } -S_3819:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||new_error){ -if(qbevent){evnt(3298);if(r)goto S_3819;} -S_3820:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3299);if(r)goto S_3820;} +S_3815:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||new_error){ +if(qbevent){evnt(3225);if(r)goto S_3815;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3299);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3299);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$RESIZE:STRETCH",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3300);}while(r); +if(!qbevent)break;evnt(3226);}while(r); do{ *__LONG_RESIZE= 1 ; -if(!qbevent)break;evnt(3301);}while(r); +if(!qbevent)break;evnt(3227);}while(r); +do{ +*__LONG_RESIZE_SCALE= 0 ; +if(!qbevent)break;evnt(3227);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3228);}while(r); +} +S_3821:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||new_error){ +if(qbevent){evnt(3231);if(r)goto S_3821;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3232);}while(r); +do{ +*__LONG_RESIZE= 1 ; +if(!qbevent)break;evnt(3233);}while(r); do{ *__LONG_RESIZE_SCALE= 1 ; -if(!qbevent)break;evnt(3301);}while(r); +if(!qbevent)break;evnt(3233);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3302);}while(r); +if(!qbevent)break;evnt(3234);}while(r); } -S_3829:; +S_3827:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||new_error){ -if(qbevent){evnt(3304);if(r)goto S_3829;} -S_3830:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(3305);if(r)goto S_3830;} +if(qbevent){evnt(3236);if(r)goto S_3827;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3305);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3305);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("$RESIZE:SMOOTH",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3306);}while(r); +if(!qbevent)break;evnt(3237);}while(r); do{ *__LONG_RESIZE= 1 ; -if(!qbevent)break;evnt(3307);}while(r); +if(!qbevent)break;evnt(3238);}while(r); do{ *__LONG_RESIZE_SCALE= 2 ; -if(!qbevent)break;evnt(3307);}while(r); +if(!qbevent)break;evnt(3238);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3308);}while(r); +if(!qbevent)break;evnt(3239);}while(r); } -S_3839:; +S_3833:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 12 ),qbs_new_txt_len("$VERSIONINFO",12))))||new_error){ -if(qbevent){evnt(3311);if(r)goto S_3839;} +if(qbevent){evnt(3242);if(r)goto S_3833;} do{ *__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3313);}while(r); +if(!qbevent)break;evnt(3244);}while(r); do{ *__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("=",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3314);}while(r); -S_3842:; +if(!qbevent)break;evnt(3245);}while(r); +S_3836:; if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||new_error){ -if(qbevent){evnt(3315);if(r)goto S_3842;} +if(qbevent){evnt(3246);if(r)goto S_3836;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3316);}while(r); +if(!qbevent)break;evnt(3247);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3316);}while(r); +if(!qbevent)break;evnt(3247);}while(r); } do{ qbs_set(__STRING_VERSIONINFOKEY,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3U,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3319);}while(r); +if(!qbevent)break;evnt(3250);}while(r); do{ qbs_set(__STRING_VERSIONINFOVALUE,FUNC_STRREPLACE(qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0))),func_chr( 34 ),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3320);}while(r); -S_3848:; -if(qbevent){evnt(3322);if(r)goto S_3848;} -S_3849:; +if(!qbevent)break;evnt(3251);}while(r); +S_3842:; +if(qbevent){evnt(3253);if(r)goto S_3842;} +S_3843:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||new_error){ -if(qbevent){evnt(3323);if(r)goto S_3849;} +if(qbevent){evnt(3254);if(r)goto S_3843;} +do{ +return_point[next_return_point++]=2; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VALIDATEVERSION; +RETURN_2:; +if(!qbevent)break;evnt(3255);}while(r); +do{ +qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3256);}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:FILEVERSION#=",26)),__STRING_VERSIONINFOVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3257);}while(r); +sc_ec_4_end:; +goto sc_341_end; +} +S_3847:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||new_error){ +if(qbevent){evnt(3258);if(r)goto S_3847;} do{ return_point[next_return_point++]=3; if (next_return_point>=return_points) more_return_points(); goto LABEL_VALIDATEVERSION; RETURN_3:; -if(!qbevent)break;evnt(3324);}while(r); -do{ -qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3325);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:FILEVERSION#=",26),__STRING_VERSIONINFOVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3326);}while(r); -goto sc_358_end; -} -S_3853:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||new_error){ -if(qbevent){evnt(3327);if(r)goto S_3853;} -do{ -return_point[next_return_point++]=4; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VALIDATEVERSION; -RETURN_4:; -if(!qbevent)break;evnt(3328);}while(r); +if(!qbevent)break;evnt(3259);}while(r); do{ qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3329);}while(r); +if(!qbevent)break;evnt(3260);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:PRODUCTVERSION#=",29),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:PRODUCTVERSION#=",29)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3330);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3261);}while(r); +sc_ec_5_end:; +goto sc_341_end; } -S_3857:; +S_3851:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||new_error){ -if(qbevent){evnt(3331);if(r)goto S_3857;} +if(qbevent){evnt(3262);if(r)goto S_3851;} do{ qbs_set(__STRING_VICOMPANYNAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3332);}while(r); +if(!qbevent)break;evnt(3263);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:CompanyName=",25),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("CompanyName=",12)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3333);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3264);}while(r); +sc_ec_6_end:; +goto sc_341_end; } -S_3860:; +S_3854:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||new_error){ -if(qbevent){evnt(3334);if(r)goto S_3860;} +if(qbevent){evnt(3265);if(r)goto S_3854;} do{ qbs_set(__STRING_VIFILEDESCRIPTION,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3335);}while(r); +if(!qbevent)break;evnt(3266);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:FileDescription=",29),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileDescription=",16)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3336);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3267);}while(r); +sc_ec_7_end:; +goto sc_341_end; } -S_3863:; +S_3857:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||new_error){ -if(qbevent){evnt(3337);if(r)goto S_3863;} +if(qbevent){evnt(3268);if(r)goto S_3857;} do{ qbs_set(__STRING_VIFILEVERSION,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3338);}while(r); +if(!qbevent)break;evnt(3269);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:FileVersion=",25),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("FileVersion=",12)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3339);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3270);}while(r); +sc_ec_8_end:; +goto sc_341_end; } -S_3866:; +S_3860:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||new_error){ -if(qbevent){evnt(3340);if(r)goto S_3866;} +if(qbevent){evnt(3271);if(r)goto S_3860;} do{ qbs_set(__STRING_VIINTERNALNAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3341);}while(r); +if(!qbevent)break;evnt(3272);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:InternalName=",26),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("InternalName=",13)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3342);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3273);}while(r); +sc_ec_9_end:; +goto sc_341_end; } -S_3869:; +S_3863:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||new_error){ -if(qbevent){evnt(3343);if(r)goto S_3869;} +if(qbevent){evnt(3274);if(r)goto S_3863;} do{ qbs_set(__STRING_VILEGALCOPYRIGHT,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3344);}while(r); +if(!qbevent)break;evnt(3275);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:LegalCopyright=",28),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalCopyright=",15)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3345);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3276);}while(r); +sc_ec_10_end:; +goto sc_341_end; } -S_3872:; +S_3866:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||new_error){ -if(qbevent){evnt(3346);if(r)goto S_3872;} +if(qbevent){evnt(3277);if(r)goto S_3866;} do{ qbs_set(__STRING_VILEGALTRADEMARKS,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3347);}while(r); +if(!qbevent)break;evnt(3278);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:LegalTrademarks=",29),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("LegalTrademarks=",16)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3348);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3279);}while(r); +sc_ec_11_end:; +goto sc_341_end; } -S_3875:; +S_3869:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||new_error){ -if(qbevent){evnt(3349);if(r)goto S_3875;} +if(qbevent){evnt(3280);if(r)goto S_3869;} do{ qbs_set(__STRING_VIORIGINALFILENAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3350);}while(r); +if(!qbevent)break;evnt(3281);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:OriginalFilename=",30),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("OriginalFilename=",17)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3351);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3282);}while(r); +sc_ec_12_end:; +goto sc_341_end; } -S_3878:; +S_3872:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||new_error){ -if(qbevent){evnt(3352);if(r)goto S_3878;} +if(qbevent){evnt(3283);if(r)goto S_3872;} do{ qbs_set(__STRING_VIPRODUCTNAME,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3353);}while(r); +if(!qbevent)break;evnt(3284);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:ProductName=",25),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductName=",12)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3354);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3285);}while(r); +sc_ec_13_end:; +goto sc_341_end; } -S_3881:; +S_3875:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||new_error){ -if(qbevent){evnt(3355);if(r)goto S_3881;} +if(qbevent){evnt(3286);if(r)goto S_3875;} do{ qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3356);}while(r); +if(!qbevent)break;evnt(3287);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:ProductVersion=",28),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("ProductVersion=",15)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3357);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3288);}while(r); +sc_ec_14_end:; +goto sc_341_end; } -S_3884:; +S_3878:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||new_error){ -if(qbevent){evnt(3358);if(r)goto S_3884;} +if(qbevent){evnt(3289);if(r)goto S_3878;} do{ qbs_set(__STRING_VICOMMENTS,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3359);}while(r); +if(!qbevent)break;evnt(3290);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:Comments=",22),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Comments=",9)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3360);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3291);}while(r); +sc_ec_15_end:; +goto sc_341_end; } -S_3887:; +S_3881:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||new_error){ -if(qbevent){evnt(3361);if(r)goto S_3887;} +if(qbevent){evnt(3292);if(r)goto S_3881;} do{ qbs_set(__STRING_VIWEB,__STRING_VERSIONINFOVALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3362);}while(r); +if(!qbevent)break;evnt(3293);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_new_txt_len("$VERSIONINFO:Web=",17),__STRING_VERSIONINFOVALUE)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$VersionInfo:",13)),qbs_new_txt_len("Web=",4)),__STRING_VERSIONINFOVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3363);}while(r); -goto sc_358_end; +if(!qbevent)break;evnt(3294);}while(r); +sc_ec_16_end:; +goto sc_341_end; } do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid key. (Use FILEVERSION#, PRODUCTVERSION#, CompanyName, FileDescription, FileVersion, InternalName, LegalCopyright, LegalTrademarks, OriginalFilename, ProductName, ProductVersion, Comments or Web)",202)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3365);}while(r); +if(!qbevent)break;evnt(3296);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3366);}while(r); -sc_358_end:; +if(!qbevent)break;evnt(3297);}while(r); +sc_341_end:; do{ *__BYTE_VERSIONINFOSET= -1 ; -if(!qbevent)break;evnt(3369);}while(r); +if(!qbevent)break;evnt(3300);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3371);}while(r); +if(!qbevent)break;evnt(3302);}while(r); LABEL_VALIDATEVERSION:; -if(qbevent){evnt(3373);r=0;} -S_3896:; +if(qbevent){evnt(3304);r=0;} +S_3890:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||new_error){ -if(qbevent){evnt(3375);if(r)goto S_3896;} +if(qbevent){evnt(3306);if(r)goto S_3890;} do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected: $VERSIONINFO:",23),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77))); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected $VERSIONINFO:",22),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3375);}while(r); +if(!qbevent)break;evnt(3306);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3375);}while(r); +if(!qbevent)break;evnt(3306);}while(r); } do{ *__LONG_VICOMMAS= 0 ; -if(!qbevent)break;evnt(3376);}while(r); -S_3901:; -fornext_value361= 1 ; -fornext_finalvalue361=__STRING_VERSIONINFOVALUE->len; -fornext_step361= 1 ; -if (fornext_step361<0) fornext_step_negative361=1; else fornext_step_negative361=0; -if (new_error) goto fornext_error361; -goto fornext_entrylabel361; +if(!qbevent)break;evnt(3307);}while(r); +S_3895:; +fornext_value344= 1 ; +fornext_finalvalue344=__STRING_VERSIONINFOVALUE->len; +fornext_step344= 1 ; +if (fornext_step344<0) fornext_step_negative344=1; else fornext_step_negative344=0; +if (new_error) goto fornext_error344; +goto fornext_entrylabel344; while(1){ -fornext_value361=fornext_step361+(*__LONG_I); -fornext_entrylabel361: -*__LONG_I=fornext_value361; +fornext_value344=fornext_step344+(*__LONG_I); +fornext_entrylabel344: +*__LONG_I=fornext_value344; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative361){ -if (fornext_value361fornext_finalvalue361) break; +if (fornext_value344>fornext_finalvalue344) break; } -fornext_error361:; -if(qbevent){evnt(3377);if(r)goto S_3901;} -S_3902:; +fornext_error344:; +if(qbevent){evnt(3308);if(r)goto S_3895;} +S_3896:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||new_error){ -if(qbevent){evnt(3378);if(r)goto S_3902;} +if(qbevent){evnt(3309);if(r)goto S_3896;} do{ *__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ; -if(!qbevent)break;evnt(3378);}while(r); +if(!qbevent)break;evnt(3309);}while(r); } -S_3905:; +S_3899:; if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,qbs_new_txt_len("0123456789,",11),func_mid(__STRING_VERSIONINFOVALUE,*__LONG_I, 1 ,1),0)== 0 ))|(((-(*__LONG_I==__STRING_VERSIONINFOVALUE->len))&(-(*__LONG_VICOMMAS!= 3 ))))|(qbs_equal(qbs_right(__STRING_VERSIONINFOVALUE, 1 ),qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(3379);if(r)goto S_3905;} +if(qbevent){evnt(3310);if(r)goto S_3899;} do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected: $VERSIONINFO:",23),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77))); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected $VERSIONINFO:",22),__STRING_VERSIONINFOKEY),qbs_new_txt_len("=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)",77))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3380);}while(r); +if(!qbevent)break;evnt(3311);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3380);}while(r); +if(!qbevent)break;evnt(3311);}while(r); } -fornext_continue_360:; +fornext_continue_343:; } -fornext_exit_360:; +fornext_exit_343:; do{ #include "ret0.txt" -if(!qbevent)break;evnt(3383);}while(r); +if(!qbevent)break;evnt(3314);}while(r); } -S_3912:; +S_3906:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||new_error){ -if(qbevent){evnt(3386);if(r)goto S_3912;} -S_3913:; +if(qbevent){evnt(3317);if(r)goto S_3906;} +S_3907:; if ((*__LONG_EXEICONSET)||new_error){ -if(qbevent){evnt(3388);if(r)goto S_3913;} +if(qbevent){evnt(3319);if(r)goto S_3907;} do{ qbs_set(__STRING_A,qbs_new_txt_len("$EXEICON already defined",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3388);}while(r); +if(!qbevent)break;evnt(3319);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3388);}while(r); +if(!qbevent)break;evnt(3319);}while(r); } do{ *__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len("'",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3389);}while(r); -S_3918:; +if(!qbevent)break;evnt(3320);}while(r); +S_3912:; if ((-(*__LONG_FIRSTDELIMITER== 0 ))||new_error){ -if(qbevent){evnt(3390);if(r)goto S_3918;} +if(qbevent){evnt(3321);if(r)goto S_3912;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3391);}while(r); +if(!qbevent)break;evnt(3322);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3391);}while(r); +if(!qbevent)break;evnt(3322);}while(r); }else{ do{ *__LONG_SECONDDELIMITER=func_instr(*__LONG_FIRSTDELIMITER+ 1 ,__STRING_A3U,qbs_new_txt_len("'",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3393);}while(r); -S_3923:; +if(!qbevent)break;evnt(3324);}while(r); +S_3917:; if ((-(*__LONG_SECONDDELIMITER== 0 ))||new_error){ -if(qbevent){evnt(3394);if(r)goto S_3923;} +if(qbevent){evnt(3325);if(r)goto S_3917;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3394);}while(r); +if(!qbevent)break;evnt(3325);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3394);}while(r); +if(!qbevent)break;evnt(3325);}while(r); } } do{ qbs_set(__STRING_EXEICONFILE,qbs_rtrim(qbs_ltrim(func_mid(__STRING_A3,*__LONG_FIRSTDELIMITER+ 1 ,*__LONG_SECONDDELIMITER-*__LONG_FIRSTDELIMITER- 1 ,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3396);}while(r); -S_3929:; +if(!qbevent)break;evnt(3327);}while(r); +S_3923:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||new_error){ -if(qbevent){evnt(3397);if(r)goto S_3929;} +if(qbevent){evnt(3328);if(r)goto S_3923;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3397);}while(r); +if(!qbevent)break;evnt(3328);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3397);}while(r); +if(!qbevent)break;evnt(3328);}while(r); } do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("$EXEICON:'",10),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0))); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("$ExeIcon:'",10)),__STRING_EXEICONFILE),qbs_new_txt_len("'",1)),func_mid(__STRING_A3,*__LONG_SECONDDELIMITER+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3398);}while(r); -S_3934:; +if(!qbevent)break;evnt(3329);}while(r); +S_3928:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(3400);if(r)goto S_3934;} +if(qbevent){evnt(3331);if(r)goto S_3928;} do{ qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3403);}while(r); -S_3936:; +if(!qbevent)break;evnt(3334);}while(r); +S_3930:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(__STRING_EXEICONFILE, 2 ),qbs_new_txt_len("./",2)))|(qbs_equal(qbs_left(__STRING_EXEICONFILE, 2 ),qbs_new_txt_len(".\\",2)))))||new_error){ -if(qbevent){evnt(3404);if(r)goto S_3936;} -S_3937:; +if(qbevent){evnt(3335);if(r)goto S_3930;} +S_3931:; if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(3406);if(r)goto S_3937;} +if(qbevent){evnt(3337);if(r)goto S_3931;} do{ qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3407);}while(r); -S_3939:; +if(!qbevent)break;evnt(3338);}while(r); +S_3933:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||new_error){ -if(qbevent){evnt(3408);if(r)goto S_3939;} +if(qbevent){evnt(3339);if(r)goto S_3933;} do{ qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3408);}while(r); +if(!qbevent)break;evnt(3339);}while(r); } }else{ -S_3943:; +S_3937:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(3410);if(r)goto S_3943;} +if(qbevent){evnt(3341);if(r)goto S_3937;} do{ qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3410);}while(r); +if(!qbevent)break;evnt(3341);}while(r); } } do{ qbs_set(__STRING_EXEICONFILE,qbs_add(__STRING_ICONPATH,func_mid(__STRING_EXEICONFILE, 3 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3412);}while(r); -S_3948:; +if(!qbevent)break;evnt(3343);}while(r); +S_3942:; }else{ if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EXEICONFILE,qbs_new_txt_len("/",1),0)|func_instr(NULL,__STRING_EXEICONFILE,qbs_new_txt_len("\\",1),0))){ -if(qbevent){evnt(3413);if(r)goto S_3948;} -S_3949:; -fornext_value368=__STRING_EXEICONFILE->len; -fornext_finalvalue368= 1 ; -fornext_step368= -1 ; -if (fornext_step368<0) fornext_step_negative368=1; else fornext_step_negative368=0; -if (new_error) goto fornext_error368; -goto fornext_entrylabel368; +if(qbevent){evnt(3344);if(r)goto S_3942;} +S_3943:; +fornext_value351=__STRING_EXEICONFILE->len; +fornext_finalvalue351= 1 ; +fornext_step351= -1 ; +if (fornext_step351<0) fornext_step_negative351=1; else fornext_step_negative351=0; +if (new_error) goto fornext_error351; +goto fornext_entrylabel351; while(1){ -fornext_value368=fornext_step368+(*__LONG_I); -fornext_entrylabel368: -*__LONG_I=fornext_value368; +fornext_value351=fornext_step351+(*__LONG_I); +fornext_entrylabel351: +*__LONG_I=fornext_value351; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative368){ -if (fornext_value368fornext_finalvalue368) break; +if (fornext_value351>fornext_finalvalue351) break; } -fornext_error368:; -if(qbevent){evnt(3414);if(r)goto S_3949;} -S_3950:; +fornext_error351:; +if(qbevent){evnt(3345);if(r)goto S_3943;} +S_3944:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,1),qbs_new_txt_len("/",1)))|(qbs_equal(func_mid(__STRING_EXEICONFILE,*__LONG_I, 1 ,1),qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(3415);if(r)goto S_3950;} +if(qbevent){evnt(3346);if(r)goto S_3944;} do{ qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3416);}while(r); +if(!qbevent)break;evnt(3347);}while(r); do{ qbs_set(__STRING_EXEICONFILE,func_mid(__STRING_EXEICONFILE,*__LONG_I+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3417);}while(r); -S_3953:; +if(!qbevent)break;evnt(3348);}while(r); +S_3947:; if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||new_error){ -if(qbevent){evnt(3418);if(r)goto S_3953;} +if(qbevent){evnt(3349);if(r)goto S_3947;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILE),qbs_new_txt_len("' not found",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3418);}while(r); +if(!qbevent)break;evnt(3349);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3418);}while(r); +if(!qbevent)break;evnt(3349);}while(r); } do{ qbs_set(__STRING_CURRENTDIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3419);}while(r); +if(!qbevent)break;evnt(3350);}while(r); do{ sub_chdir(__STRING_ICONPATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3420);}while(r); +if(!qbevent)break;evnt(3351);}while(r); do{ qbs_set(__STRING_ICONPATH,func__cwd()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3421);}while(r); +if(!qbevent)break;evnt(3352);}while(r); do{ sub_chdir(__STRING_CURRENTDIR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3422);}while(r); +if(!qbevent)break;evnt(3353);}while(r); do{ qbs_set(__STRING_EXEICONFILE,qbs_add(qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP),__STRING_EXEICONFILE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3423);}while(r); +if(!qbevent)break;evnt(3354);}while(r); do{ -goto fornext_exit_367; -if(!qbevent)break;evnt(3424);}while(r); +goto fornext_exit_350; +if(!qbevent)break;evnt(3355);}while(r); } -fornext_continue_367:; +fornext_continue_350:; } -fornext_exit_367:; +fornext_exit_350:; } } -S_3966:; +S_3960:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||new_error){ -if(qbevent){evnt(3429);if(r)goto S_3966;} -S_3967:; +if(qbevent){evnt(3360);if(r)goto S_3960;} +S_3961:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ICONPATH->len))||new_error){ -if(qbevent){evnt(3430);if(r)goto S_3967;} +if(qbevent){evnt(3361);if(r)goto S_3961;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),func_mid(__STRING_EXEICONFILE,__STRING_ICONPATH->len+ 1 ,NULL,0)),qbs_new_txt_len("' not found",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3431);}while(r); +if(!qbevent)break;evnt(3362);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3431);}while(r); +if(!qbevent)break;evnt(3362);}while(r); }else{ do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File '",6),__STRING_EXEICONFILE),qbs_new_txt_len("' not found",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3433);}while(r); +if(!qbevent)break;evnt(3364);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3433);}while(r); +if(!qbevent)break;evnt(3364);}while(r); } }else{ do{ *__LONG_ICONFILEHANDLE=func_freefile(); -if(!qbevent)break;evnt(3436);}while(r); +if(!qbevent)break;evnt(3367);}while(r); do{ *__LONG_E= 0 ; -if(!qbevent)break;evnt(3437);}while(r); +if(!qbevent)break;evnt(3368);}while(r); do{ error_goto_line=7; -if(!qbevent)break;evnt(3438);}while(r); +if(!qbevent)break;evnt(3369);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 4 ,NULL,NULL,*__LONG_ICONFILEHANDLE,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3439);}while(r); +if(!qbevent)break;evnt(3370);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip372; +if (new_error) goto skip355; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("0 ICON ",7),FUNC_QUOTEDFILENAME(FUNC_STRREPLACE(__STRING_EXEICONFILE,qbs_new_txt_len("\\",1),qbs_new_txt_len("/",1)))), 0 , 0 , 1 ); -if (new_error) goto skip372; -skip372: +if (new_error) goto skip355; +skip355: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3440);}while(r); +if(!qbevent)break;evnt(3371);}while(r); do{ sub_close(*__LONG_ICONFILEHANDLE,1); -if(!qbevent)break;evnt(3441);}while(r); -S_3981:; +if(!qbevent)break;evnt(3372);}while(r); +S_3975:; if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(3442);if(r)goto S_3981;} +if(qbevent){evnt(3373);if(r)goto S_3975;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Error creating icon resource file",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3442);}while(r); +if(!qbevent)break;evnt(3373);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3442);}while(r); +if(!qbevent)break;evnt(3373);}while(r); } do{ error_goto_line=8; -if(!qbevent)break;evnt(3443);}while(r); +if(!qbevent)break;evnt(3374);}while(r); } } do{ *__LONG_EXEICONSET=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(3447);}while(r); +if(!qbevent)break;evnt(3378);}while(r); do{ -SUB_SETDEPENDENCY(&(pass373= 10 )); -if(!qbevent)break;evnt(3448);}while(r); +SUB_SETDEPENDENCY(&(pass356= 10 )); +if(!qbevent)break;evnt(3379);}while(r); +S_3984:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(3380);if(r)goto S_3984;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip374; +if (new_error) goto skip357; sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); -if (new_error) goto skip374; -skip374: +if (new_error) goto skip357; +skip357: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3449);}while(r); +if(!qbevent)break;evnt(3380);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip375; +if (new_error) goto skip358; sub_file_print(tmp_fileno,qbs_new_txt_len("sub__icon(NULL,NULL,0);",23), 0 , 0 , 1 ); -if (new_error) goto skip375; -skip375: +if (new_error) goto skip358; +skip358: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3450);}while(r); +if(!qbevent)break;evnt(3381);}while(r); do{ goto LABEL_FINISHEDLINE2; -if(!qbevent)break;evnt(3451);}while(r); +if(!qbevent)break;evnt(3382);}while(r); } } -S_3995:; +S_3991:; if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ -if(qbevent){evnt(3456);if(r)goto S_3995;} +if(qbevent){evnt(3387);if(r)goto S_3991;} do{ *__LONG_LAYOUTDONE= 0 ; -if(!qbevent)break;evnt(3457);}while(r); +if(!qbevent)break;evnt(3388);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3458);}while(r); +if(!qbevent)break;evnt(3389);}while(r); } do{ *__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET; -if(!qbevent)break;evnt(3462);}while(r); +if(!qbevent)break;evnt(3393);}while(r); do{ qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3464);}while(r); -S_4001:; +if(!qbevent)break;evnt(3395);}while(r); +S_3997:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||new_error){ -if(qbevent){evnt(3464);if(r)goto S_4001;} +if(qbevent){evnt(3395);if(r)goto S_3997;} do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3464);}while(r); +if(!qbevent)break;evnt(3395);}while(r); } -S_4004:; +S_4000:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3465);if(r)goto S_4004;} +if(qbevent){evnt(3396);if(r)goto S_4000;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3465);}while(r); +if(!qbevent)break;evnt(3396);}while(r); } do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3466);}while(r); +if(!qbevent)break;evnt(3397);}while(r); do{ *__LONG_NEWIF= 0 ; -if(!qbevent)break;evnt(3468);}while(r); +if(!qbevent)break;evnt(3399);}while(r); do{ *__LONG_S= 1 ; -if(!qbevent)break;evnt(3472);}while(r); +if(!qbevent)break;evnt(3403);}while(r); do{ *__LONG_I=func_instr(*__LONG_S,__STRING_U,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("ELSE",4)),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3473);}while(r); -S_4011:; +if(!qbevent)break;evnt(3404);}while(r); +S_4007:; while((*__LONG_I)||new_error){ -if(qbevent){evnt(3474);if(r)goto S_4011;} +if(qbevent){evnt(3405);if(r)goto S_4007;} do{ *__LONG_SKIP= 0 ; -if(!qbevent)break;evnt(3475);}while(r); -S_4013:; +if(!qbevent)break;evnt(3406);}while(r); +S_4009:; if ((-(*__LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(3476);if(r)goto S_4013;} -S_4014:; +if(qbevent){evnt(3407);if(r)goto S_4009;} +S_4010:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(3477);if(r)goto S_4014;} +if(qbevent){evnt(3408);if(r)goto S_4010;} do{ *__LONG_SKIP= 1 ; -if(!qbevent)break;evnt(3477);}while(r); +if(!qbevent)break;evnt(3408);}while(r); } } -S_4018:; +S_4014:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||new_error){ -if(qbevent){evnt(3479);if(r)goto S_4018;} -S_4019:; +if(qbevent){evnt(3410);if(r)goto S_4014;} +S_4015:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(3480);if(r)goto S_4019;} +if(qbevent){evnt(3411);if(r)goto S_4015;} do{ *__LONG_SKIP= 1 ; -if(!qbevent)break;evnt(3480);}while(r); +if(!qbevent)break;evnt(3411);}while(r); } } -S_4023:; +S_4019:; if ((-(*__LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(3482);if(r)goto S_4023;} +if(qbevent){evnt(3413);if(r)goto S_4019;} do{ sub_mid(__STRING_ENTIRELINE,*__LONG_I,0,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("C-EL",4)),0); -if(!qbevent)break;evnt(3483);}while(r); +if(!qbevent)break;evnt(3414);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3484);}while(r); +if(!qbevent)break;evnt(3415);}while(r); } do{ *__LONG_S=*__LONG_I+ 9 ; -if(!qbevent)break;evnt(3486);}while(r); +if(!qbevent)break;evnt(3417);}while(r); do{ *__LONG_I=func_instr(*__LONG_S,__STRING_U,qbs_add(qbs_add(qbs_new_txt_len("CASE",4),__STRING1_SP),qbs_new_txt_len("ELSE",4)),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3487);}while(r); -dl_continue_377:; +if(!qbevent)break;evnt(3418);}while(r); +dl_continue_360:; } -dl_exit_377:; +dl_exit_360:; do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3490);}while(r); +if(!qbevent)break;evnt(3421);}while(r); do{ *__LONG_A=qbs_asc(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3493);}while(r); -S_4032:; +if(!qbevent)break;evnt(3424);}while(r); +S_4028:; if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||new_error){ -if(qbevent){evnt(3494);if(r)goto S_4032;} +if(qbevent){evnt(3425);if(r)goto S_4028;} do{ -qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass379= 1 ))); +qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass362= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3495);}while(r); -S_4034:; +if(!qbevent)break;evnt(3426);}while(r); +S_4030:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||new_error){ -if(qbevent){evnt(3496);if(r)goto S_4034;} +if(qbevent){evnt(3427);if(r)goto S_4030;} +S_4031:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(3429);if(r)goto S_4031;} do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass380= 2 ),__LONG_IGNORE,__LONG_R); +qbs_set(__STRING_A,qbs_new_txt_len("Labels cannot be placed between SUB/FUNCTIONs",45)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3498);}while(r); +if(!qbevent)break;evnt(3429);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3429);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass363= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3431);}while(r); LABEL_ADDLABCHK100:; -if(qbevent){evnt(3499);r=0;} +if(qbevent){evnt(3432);r=0;} S_4036:; if ((*__LONG_V)||new_error){ -if(qbevent){evnt(3500);if(r)goto S_4036;} +if(qbevent){evnt(3433);if(r)goto S_4036;} do{ *__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(3501);}while(r); +if(!qbevent)break;evnt(3434);}while(r); S_4038:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(3502);if(r)goto S_4038;} +if(qbevent){evnt(3435);if(r)goto S_4038;} S_4039:; if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(3503);if(r)goto S_4039;} +if(qbevent){evnt(3436);if(r)goto S_4039;} do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(3503);}while(r); +if(!qbevent)break;evnt(3436);}while(r); } S_4042:; if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||new_error){ -if(qbevent){evnt(3504);if(r)goto S_4042;} +if(qbevent){evnt(3437);if(r)goto S_4042;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Duplicate label",15)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate label (",17),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3504);}while(r); +if(!qbevent)break;evnt(3437);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3504);}while(r); +if(!qbevent)break;evnt(3437);}while(r); } do{ qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3506);}while(r); +if(!qbevent)break;evnt(3439);}while(r); do{ goto LABEL_ADDLABAQ100; -if(!qbevent)break;evnt(3507);}while(r); +if(!qbevent)break;evnt(3440);}while(r); } S_4049:; if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(3509);if(r)goto S_4049;} +if(qbevent){evnt(3442);if(r)goto S_4049;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(3509);}while(r); +if(!qbevent)break;evnt(3442);}while(r); do{ goto LABEL_ADDLABCHK100; -if(!qbevent)break;evnt(3509);}while(r); +if(!qbevent)break;evnt(3442);}while(r); } } do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(3513);}while(r); +if(!qbevent)break;evnt(3446);}while(r); S_4055:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(3513);if(r)goto S_4055;} +if(qbevent){evnt(3446);if(r)goto S_4055;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(3513);}while(r); +if(!qbevent)break;evnt(3446);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ @@ -15810,233 +15707,257 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; } -if(!qbevent)break;evnt(3513);}while(r); +if(!qbevent)break;evnt(3446);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282); -if(!qbevent)break;evnt(3514);}while(r); +if(!qbevent)break;evnt(3447);}while(r); do{ -SUB_HASHADD(__STRING_LABEL,&(pass381= 2 ),__LONG_NLABELS); +SUB_HASHADD(__STRING_LABEL,&(pass364= 2 ),__LONG_NLABELS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3515);}while(r); +if(!qbevent)break;evnt(3448);}while(r); do{ *__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(3516);}while(r); +if(!qbevent)break;evnt(3449);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3517);}while(r); +if(!qbevent)break;evnt(3450);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(3518);}while(r); +if(!qbevent)break;evnt(3451);}while(r); LABEL_ADDLABAQ100:; -if(qbevent){evnt(3519);r=0;} +if(qbevent){evnt(3452);r=0;} do{ *(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 1 ; -if(!qbevent)break;evnt(3520);}while(r); +if(!qbevent)break;evnt(3453);}while(r); do{ *(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))=*__LONG_LINEDATAOFFSET; -if(!qbevent)break;evnt(3521);}while(r); +if(!qbevent)break;evnt(3454);}while(r); do{ qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3523);}while(r); +if(!qbevent)break;evnt(3456);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip382; +if (new_error) goto skip365; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_LABEL),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip382; -skip382: +if (new_error) goto skip365; +skip365: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3524);}while(r); +if(!qbevent)break;evnt(3457);}while(r); S_4068:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||new_error){ -if(qbevent){evnt(3527);if(r)goto S_4068;} +if(qbevent){evnt(3460);if(r)goto S_4068;} do{ sub_mid(__STRING_LABEL,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0), 1 ,qbs_new_txt_len(".",1),1); -if(!qbevent)break;evnt(3527);}while(r); +if(!qbevent)break;evnt(3460);}while(r); } S_4071:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(__STRING_LABEL, 1 ),qbs_new_txt_len("d",1)))|(qbs_equal(qbs_right(__STRING_LABEL, 1 ),qbs_new_txt_len("s",1)))))||new_error){ -if(qbevent){evnt(3528);if(r)goto S_4071;} +if(qbevent){evnt(3461);if(r)goto S_4071;} do{ qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3528);}while(r); +if(!qbevent)break;evnt(3461);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip384; +if (new_error) goto skip367; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("last_line=",10),__STRING_LABEL),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip384; -skip384: +if (new_error) goto skip367; +skip367: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3529);}while(r); +if(!qbevent)break;evnt(3462);}while(r); do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3530);}while(r); +if(!qbevent)break;evnt(3463);}while(r); S_4076:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(3531);if(r)goto S_4076;} +if(qbevent){evnt(3464);if(r)goto S_4076;} do{ qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3532);}while(r); +if(!qbevent)break;evnt(3465);}while(r); do{ qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3533);}while(r); +if(!qbevent)break;evnt(3466);}while(r); do{ qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3534);}while(r); +if(!qbevent)break;evnt(3467);}while(r); do{ qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3535);}while(r); +if(!qbevent)break;evnt(3468);}while(r); } S_4082:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(3537);if(r)goto S_4082;} +if(qbevent){evnt(3470);if(r)goto S_4082;} +S_4083:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(3471);if(r)goto S_4083;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3471);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3471);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip386; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)), 0 , 0 , 1 ); -if (new_error) goto skip386; -skip386: +if (new_error) goto skip369; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)), 0 , 0 , 1 ); +if (new_error) goto skip369; +skip369: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3538);}while(r); +if(!qbevent)break;evnt(3472);}while(r); } -S_4085:; +S_4090:; if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(3540);if(r)goto S_4085;} +if(qbevent){evnt(3474);if(r)goto S_4090;} do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3540);}while(r); +if(!qbevent)break;evnt(3474);}while(r); } do{ -qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass387= 2 ),__LONG_N)); +qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass370= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3541);}while(r); +if(!qbevent)break;evnt(3475);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3541);}while(r); +if(!qbevent)break;evnt(3475);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(3541);}while(r); +if(!qbevent)break;evnt(3475);}while(r); } } -S_4093:; +S_4098:; if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(3549);if(r)goto S_4093;} +if(qbevent){evnt(3483);if(r)goto S_4098;} do{ *__LONG_X2=func_instr(NULL,__STRING_ENTIRELINE,qbs_add(__STRING1_SP,qbs_new_txt_len(":",1)),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3550);}while(r); -S_4095:; +if(!qbevent)break;evnt(3484);}while(r); +S_4100:; if ((*__LONG_X2)||new_error){ -if(qbevent){evnt(3551);if(r)goto S_4095;} -S_4096:; +if(qbevent){evnt(3485);if(r)goto S_4100;} +S_4101:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||new_error){ -if(qbevent){evnt(3552);if(r)goto S_4096;} +if(qbevent){evnt(3486);if(r)goto S_4101;} do{ *__LONG_X3=*__LONG_X2+ 1 ; -if(!qbevent)break;evnt(3552);}while(r); +if(!qbevent)break;evnt(3486);}while(r); }else{ do{ *__LONG_X3=*__LONG_X2+ 2 ; -if(!qbevent)break;evnt(3552);}while(r); +if(!qbevent)break;evnt(3486);}while(r); } do{ qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3553);}while(r); +if(!qbevent)break;evnt(3487);}while(r); do{ *__LONG_CREATINGLABEL= 1 ; -if(!qbevent)break;evnt(3555);}while(r); -S_4103:; +if(!qbevent)break;evnt(3489);}while(r); +S_4108:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||new_error){ -if(qbevent){evnt(3556);if(r)goto S_4103;} -S_4104:; +if(qbevent){evnt(3490);if(r)goto S_4108;} +S_4109:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||new_error){ -if(qbevent){evnt(3558);if(r)goto S_4104;} +if(qbevent){evnt(3492);if(r)goto S_4109;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3558);}while(r); +if(!qbevent)break;evnt(3492);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3558);}while(r); +if(!qbevent)break;evnt(3492);}while(r); +} +S_4113:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(3494);if(r)goto S_4113;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Labels cannot be placed between SUB/FUNCTIONs",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3494);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3494);}while(r); } do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass389= 2 ),__LONG_IGNORE,__LONG_R); +*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass372= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3560);}while(r); +if(!qbevent)break;evnt(3496);}while(r); LABEL_ADDLABCHK:; -if(qbevent){evnt(3561);r=0;} -S_4109:; +if(qbevent){evnt(3497);r=0;} +S_4118:; if ((*__LONG_V)||new_error){ -if(qbevent){evnt(3562);if(r)goto S_4109;} +if(qbevent){evnt(3498);if(r)goto S_4118;} do{ *__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(3563);}while(r); -S_4111:; +if(!qbevent)break;evnt(3499);}while(r); +S_4120:; if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(3564);if(r)goto S_4111;} -S_4112:; +if(qbevent){evnt(3500);if(r)goto S_4120;} +S_4121:; if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(3565);if(r)goto S_4112;} +if(qbevent){evnt(3501);if(r)goto S_4121;} do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(3565);}while(r); +if(!qbevent)break;evnt(3501);}while(r); } -S_4115:; +S_4124:; if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||new_error){ -if(qbevent){evnt(3566);if(r)goto S_4115;} +if(qbevent){evnt(3502);if(r)goto S_4124;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Duplicate label",15)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Duplicate label (",17),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3566);}while(r); +if(!qbevent)break;evnt(3502);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3566);}while(r); +if(!qbevent)break;evnt(3502);}while(r); } do{ qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3568);}while(r); +if(!qbevent)break;evnt(3504);}while(r); do{ goto LABEL_ADDLABAQ; -if(!qbevent)break;evnt(3569);}while(r); +if(!qbevent)break;evnt(3505);}while(r); } -S_4122:; +S_4131:; if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(3571);if(r)goto S_4122;} +if(qbevent){evnt(3507);if(r)goto S_4131;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(3571);}while(r); +if(!qbevent)break;evnt(3507);}while(r); do{ goto LABEL_ADDLABCHK; -if(!qbevent)break;evnt(3571);}while(r); +if(!qbevent)break;evnt(3507);}while(r); } } do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(3574);}while(r); -S_4128:; +if(!qbevent)break;evnt(3510);}while(r); +S_4137:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(3574);if(r)goto S_4128;} +if(qbevent){evnt(3510);if(r)goto S_4137;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(3574);}while(r); +if(!qbevent)break;evnt(3510);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ @@ -16076,818 +15997,831 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; } -if(!qbevent)break;evnt(3574);}while(r); +if(!qbevent)break;evnt(3510);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282); -if(!qbevent)break;evnt(3575);}while(r); +if(!qbevent)break;evnt(3511);}while(r); do{ -SUB_HASHADD(__STRING_A,&(pass390= 2 ),__LONG_NLABELS); +SUB_HASHADD(__STRING_A,&(pass373= 2 ),__LONG_NLABELS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3576);}while(r); +if(!qbevent)break;evnt(3512);}while(r); do{ *__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(3577);}while(r); +if(!qbevent)break;evnt(3513);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3578);}while(r); +if(!qbevent)break;evnt(3514);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(3579);}while(r); +if(!qbevent)break;evnt(3515);}while(r); LABEL_ADDLABAQ:; -if(qbevent){evnt(3580);r=0;} +if(qbevent){evnt(3516);r=0;} do{ *(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 1 ; -if(!qbevent)break;evnt(3581);}while(r); +if(!qbevent)break;evnt(3517);}while(r); do{ *(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))=*__LONG_LINEDATAOFFSET; -if(!qbevent)break;evnt(3582);}while(r); +if(!qbevent)break;evnt(3518);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(3583);}while(r); -S_4140:; +if(!qbevent)break;evnt(3519);}while(r); +S_4149:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3585);if(r)goto S_4140;} +if(qbevent){evnt(3521);if(r)goto S_4149;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT),qbs_new_txt_len(":",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3585);}while(r); +if(!qbevent)break;evnt(3521);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(":",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3585);}while(r); +if(!qbevent)break;evnt(3521);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip392; +if (new_error) goto skip375; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("LABEL_",6),__STRING_A),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip392; -skip392: +if (new_error) goto skip375; +skip375: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3587);}while(r); +if(!qbevent)break;evnt(3523);}while(r); do{ qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3588);}while(r); -S_4147:; +if(!qbevent)break;evnt(3524);}while(r); +S_4156:; if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(3589);if(r)goto S_4147;} +if(qbevent){evnt(3525);if(r)goto S_4156;} do{ qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3590);}while(r); +if(!qbevent)break;evnt(3526);}while(r); do{ qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3591);}while(r); +if(!qbevent)break;evnt(3527);}while(r); do{ qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3592);}while(r); +if(!qbevent)break;evnt(3528);}while(r); do{ qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3593);}while(r); +if(!qbevent)break;evnt(3529);}while(r); } -S_4153:; +S_4162:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(3595);if(r)goto S_4153;} +if(qbevent){evnt(3531);if(r)goto S_4162;} +S_4163:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(3532);if(r)goto S_4163;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3532);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3532);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip394; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)), 0 , 0 , 1 ); -if (new_error) goto skip394; -skip394: +if (new_error) goto skip377; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7)), 0 , 0 , 1 ); +if (new_error) goto skip377; +skip377: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(3596);}while(r); +if(!qbevent)break;evnt(3533);}while(r); } do{ qbs_set(__STRING_ENTIRELINE,qbs_right(__STRING_ENTIRELINE,__STRING_ENTIRELINE->len-*__LONG_X3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3598);}while(r); +if(!qbevent)break;evnt(3535);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3598);}while(r); +if(!qbevent)break;evnt(3535);}while(r); do{ *__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3599);}while(r); -S_4159:; +if(!qbevent)break;evnt(3536);}while(r); +S_4173:; if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(3599);if(r)goto S_4159;} +if(qbevent){evnt(3536);if(r)goto S_4173;} do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3599);}while(r); +if(!qbevent)break;evnt(3536);}while(r); } } } } -S_4165:; +S_4179:; while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||new_error){ -if(qbevent){evnt(3605);if(r)goto S_4165;} -S_4166:; +if(qbevent){evnt(3542);if(r)goto S_4179;} +S_4180:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3606);if(r)goto S_4166;} +if(qbevent){evnt(3543);if(r)goto S_4180;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3606);}while(r); +if(!qbevent)break;evnt(3543);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3606);}while(r); +if(!qbevent)break;evnt(3543);}while(r); } -S_4171:; +S_4185:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||new_error){ -if(qbevent){evnt(3607);if(r)goto S_4171;} +if(qbevent){evnt(3544);if(r)goto S_4185;} do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3607);}while(r); +if(!qbevent)break;evnt(3544);}while(r); } do{ -qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass399= 2 ),__LONG_N)); +qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass382= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3608);}while(r); +if(!qbevent)break;evnt(3545);}while(r); do{ qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3608);}while(r); +if(!qbevent)break;evnt(3545);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(3608);}while(r); -dl_continue_396:; +if(!qbevent)break;evnt(3545);}while(r); +dl_continue_379:; } -dl_exit_396:; -S_4178:; +dl_exit_379:; +S_4192:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||new_error){ -if(qbevent){evnt(3612);if(r)goto S_4178;} +if(qbevent){evnt(3549);if(r)goto S_4192;} do{ -qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass400= 1 ))); +qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass383= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3614);}while(r); -S_4180:; +if(!qbevent)break;evnt(3551);}while(r); +S_4194:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(3616);if(r)goto S_4180;} +if(qbevent){evnt(3553);if(r)goto S_4194;} do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3617);}while(r); -S_4182:; +if(!qbevent)break;evnt(3554);}while(r); +S_4196:; if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(3618);if(r)goto S_4182;} +if(qbevent){evnt(3555);if(r)goto S_4196;} do{ *__LONG_CONTINUELINEFROM= 2 ; -if(!qbevent)break;evnt(3618);}while(r); +if(!qbevent)break;evnt(3555);}while(r); } do{ goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3619);}while(r); +if(!qbevent)break;evnt(3556);}while(r); } -S_4187:; +S_4201:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||new_error){ -if(qbevent){evnt(3622);if(r)goto S_4187;} -S_4188:; +if(qbevent){evnt(3559);if(r)goto S_4201;} +S_4202:; if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(3623);if(r)goto S_4188;} +if(qbevent){evnt(3560);if(r)goto S_4202;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3623);}while(r); +if(!qbevent)break;evnt(3560);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3623);}while(r); +if(!qbevent)break;evnt(3560);}while(r); } -S_4192:; +S_4206:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_N),qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(3624);if(r)goto S_4192;} +if(qbevent){evnt(3561);if(r)goto S_4206;} do{ qbs_set(__STRING_A,__STRING_ENTIRELINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3624);}while(r); +if(!qbevent)break;evnt(3561);}while(r); do{ goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3624);}while(r); +if(!qbevent)break;evnt(3561);}while(r); } -S_4196:; -fornext_value402= 3 ; -fornext_finalvalue402=*__LONG_N- 1 ; +S_4210:; +fornext_value385= 3 ; +fornext_finalvalue385=*__LONG_N- 1 ; +fornext_step385= 1 ; +if (fornext_step385<0) fornext_step_negative385=1; else fornext_step_negative385=0; +if (new_error) goto fornext_error385; +goto fornext_entrylabel385; +while(1){ +fornext_value385=fornext_step385+(*__LONG_I); +fornext_entrylabel385: +*__LONG_I=fornext_value385; +if (fornext_step_negative385){ +if (fornext_value385fornext_finalvalue385) break; +} +fornext_error385:; +if(qbevent){evnt(3562);if(r)goto S_4210;} +S_4211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||new_error){ +if(qbevent){evnt(3563);if(r)goto S_4211;} +do{ +qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass386= 1 ),__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3564);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3565);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3566);}while(r); +} +fornext_continue_384:; +} +fornext_exit_384:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3569);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3569);}while(r); +} +} +do{ +*__LONG_START= 1 ; +if(!qbevent)break;evnt(3574);}while(r); +do{ +goto LABEL_SKIPCONTINIT; +if(!qbevent)break;evnt(3576);}while(r); +LABEL_CONTLINE:; +if(qbevent){evnt(3578);r=0;} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3580);}while(r); +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3581);}while(r); +LABEL_SKIPCONTINIT:; +if(qbevent){evnt(3583);r=0;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3591);}while(r); +S_4226:; +fornext_value388=*__LONG_START; +fornext_finalvalue388=*__LONG_N; +fornext_step388= 1 ; +if (fornext_step388<0) fornext_step_negative388=1; else fornext_step_negative388=0; +if (new_error) goto fornext_error388; +goto fornext_entrylabel388; +while(1){ +fornext_value388=fornext_step388+(*__LONG_I); +fornext_entrylabel388: +*__LONG_I=fornext_value388; +if (fornext_step_negative388){ +if (fornext_value388fornext_finalvalue388) break; +} +fornext_error388:; +if(qbevent){evnt(3593);if(r)goto S_4226;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3594);}while(r); +S_4228:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(3597);if(r)goto S_4228;} +S_4229:; +if ((-(*__LONG_I==*__LONG_START))||new_error){ +if(qbevent){evnt(3598);if(r)goto S_4229;} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3599);}while(r); +S_4231:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3599);if(r)goto S_4231;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3599);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3599);}while(r); +} +S_4236:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(3600);if(r)goto S_4236;} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3600);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3601);}while(r); +} +S_4241:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(3603);if(r)goto S_4241;} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3603);}while(r); +} +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3604);}while(r); +} +S_4246:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("IF",2)))&(qbs_equal(__STRING_A,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(3609);if(r)goto S_4246;} +do{ +*__LONG_NEWIF= 1 ; +if(!qbevent)break;evnt(3609);}while(r); +} +S_4249:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(((qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4)))&(-(*__LONG_NEWIF== 1 ))))))||new_error){ +if(qbevent){evnt(3612);if(r)goto S_4249;} +S_4250:; +if ((-(*__LONG_NEWIF== 0 ))||new_error){ +if(qbevent){evnt(3613);if(r)goto S_4250;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3613);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3613);}while(r); +} +do{ +*__LONG_NEWIF= 0 ; +if(!qbevent)break;evnt(3614);}while(r); +S_4255:; +if ((-(*__LONG_LINEELSEUSED> 0 ))||new_error){ +if(qbevent){evnt(3615);if(r)goto S_4255;} +do{ +*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; +if(!qbevent)break;evnt(3615);}while(r); +} +S_4258:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ +if(qbevent){evnt(3616);if(r)goto S_4258;} +S_4259:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(3617);if(r)goto S_4259;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression GOTO label",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3617);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3617);}while(r); +} +do{ +*__LONG_I=*__LONG_I- 1 ; +if(!qbevent)break;evnt(3618);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3620);}while(r); +S_4266:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(3621);if(r)goto S_4266;} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3621);}while(r); +do{ +*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ; +if(!qbevent)break;evnt(3621);}while(r); +} +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3622);}while(r); +} +S_4272:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||new_error){ +if(qbevent){evnt(3626);if(r)goto S_4272;} +S_4273:; +if ((-(*__LONG_START==*__LONG_I))||new_error){ +if(qbevent){evnt(3628);if(r)goto S_4273;} +S_4274:; +if ((-(*__LONG_LINEELSEUSED>= 1 ))||new_error){ +if(qbevent){evnt(3629);if(r)goto S_4274;} +do{ +*__LONG_IMPLIEDENDIF= 1 ; +if(!qbevent)break;evnt(3634);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("IF",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3634);}while(r); +do{ +*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; +if(!qbevent)break;evnt(3635);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3636);}while(r); +do{ +*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; +if(!qbevent)break;evnt(3637);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3638);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3641);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3641);}while(r); +do{ +*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ; +if(!qbevent)break;evnt(3642);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3643);}while(r); +} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3647);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3648);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3652);}while(r); +S_4291:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(3652);if(r)goto S_4291;} +do{ +qbs_set(__STRING_A,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3652);}while(r); +}else{ +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3652);}while(r); +} +fornext_continue_387:; +} +fornext_exit_387:; +S_4297:; +if ((-(*__LONG_ENDIFS> 0 ))||new_error){ +if(qbevent){evnt(3657);if(r)goto S_4297;} +do{ +*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; +if(!qbevent)break;evnt(3658);}while(r); +do{ +*__LONG_IMPLIEDENDIF= 1 ; +if(!qbevent)break;evnt(3659);}while(r); +do{ +qbs_set(__STRING_ENTIRELINE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ENTIRELINE,__STRING1_SP),qbs_new_txt_len(":",1)),__STRING1_SP),qbs_new_txt_len("END",3)),__STRING1_SP),qbs_new_txt_len("IF",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3659);}while(r); +do{ +*__LONG_N=*__LONG_N+ 3 ; +if(!qbevent)break;evnt(3659);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3660);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3661);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3662);}while(r); +} +LABEL_GOTCOMMAND:; +if(qbevent){evnt(3666);r=0;} +do{ +*__LONG_DYNSCOPE= 0 ; +if(!qbevent)break;evnt(3668);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3670);}while(r); +do{ +qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3671);}while(r); +do{ +*__LONG_LAYOUTDONE= 0 ; +if(!qbevent)break;evnt(3674);}while(r); +do{ +qbs_set(__STRING_LINEFRAGMENT,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3676);}while(r); +S_4311:; +if (( 0 )||new_error){ +if(qbevent){evnt(3677);if(r)goto S_4311;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip390; +sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); +if (new_error) goto skip390; +skip390: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(3677);}while(r); +} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3678);}while(r); +S_4315:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(3679);if(r)goto S_4315;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3679);}while(r); +} +S_4318:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_CA,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0)))||new_error){ +if(qbevent){evnt(3682);if(r)goto S_4318;} +do{ +qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass391= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3683);}while(r); +do{ +*__LONG_EXCEPT= 0 ; +if(!qbevent)break;evnt(3684);}while(r); +do{ +qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3685);}while(r); +do{ +*__LONG_LASTFUSE= -1 ; +if(!qbevent)break;evnt(3686);}while(r); +S_4323:; +fornext_value393= 2 ; +fornext_finalvalue393=*__LONG_N; +fornext_step393= 1 ; +if (fornext_step393<0) fornext_step_negative393=1; else fornext_step_negative393=0; +if (new_error) goto fornext_error393; +goto fornext_entrylabel393; +while(1){ +fornext_value393=fornext_step393+(*__LONG_X); +fornext_entrylabel393: +*__LONG_X=fornext_value393; +if (fornext_step_negative393){ +if (fornext_value393fornext_finalvalue393) break; +} +fornext_error393:; +if(qbevent){evnt(3687);if(r)goto S_4323;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3688);}while(r); +S_4325:; +if ((-(*__LONG_EXCEPT== 1 ))||new_error){ +if(qbevent){evnt(3689);if(r)goto S_4325;} +do{ +*__LONG_EXCEPT= 2 ; +if(!qbevent)break;evnt(3689);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3689);}while(r); +} +S_4329:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||new_error){ +if(qbevent){evnt(3690);if(r)goto S_4329;} +S_4330:; +if ((-(*__LONG_EXCEPT== 2 ))||new_error){ +if(qbevent){evnt(3691);if(r)goto S_4330;} +do{ +*__LONG_EXCEPT= 1 ; +if(!qbevent)break;evnt(3691);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3691);}while(r); +} +S_4334:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(3693);if(r)goto S_4334;} +do{ +*__LONG_EXCEPT= 1 ; +if(!qbevent)break;evnt(3695);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3696);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3700);}while(r); +S_4339:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3701);if(r)goto S_4339;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3701);}while(r); +} +S_4342:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(3702);if(r)goto S_4342;} +S_4343:; +if (((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)!= 0 )))||new_error){ +if(qbevent){evnt(3703);if(r)goto S_4343;} +do{ +*__LONG_EXCEPT= 1 ; +if(!qbevent)break;evnt(3704);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3705);}while(r); +} +S_4347:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(3707);if(r)goto S_4347;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(3707);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3707);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(3707);}while(r); +} +S_4353:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3708);if(r)goto S_4353;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3708);}while(r); +} +dl_continue_394:; +} +dl_exit_394:; +S_4357:; +if ((qbs_cleanup(qbs_tmp_base,(-(((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((qbs_asc(__STRING_A3))-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])]== 0 ))&(-(*__LONG_LASTFUSE!=(*__LONG_X- 2 )))))||new_error){ +if(qbevent){evnt(3711);if(r)goto S_4357;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3711);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3711);}while(r); +} +do{ +qbs_set(__STRING_AA,qbs_add(qbs_left(__STRING_AA,__STRING_AA->len- 1 ),__STRING_FIX046)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3712);}while(r); +do{ +*__LONG_LASTFUSE=*__LONG_X; +if(!qbevent)break;evnt(3713);}while(r); +do{ +goto LABEL_PERIODFUSED; +if(!qbevent)break;evnt(3714);}while(r); +} +do{ +*__LONG_EXCEPT= 0 ; +if(!qbevent)break;evnt(3716);}while(r); +LABEL_UDTPERIOD:; +if(qbevent){evnt(3717);r=0;} +do{ +qbs_set(__STRING_AA,qbs_add(qbs_add(__STRING_AA,__STRING_A2),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3718);}while(r); +LABEL_PERIODFUSED:; +if(qbevent){evnt(3719);r=0;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3720);}while(r); +fornext_continue_392:; +} +fornext_exit_392:; +do{ +qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3722);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3723);}while(r); +do{ +qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3724);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3725);}while(r); +} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(3728);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass397= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3730);}while(r); +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass398= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3731);}while(r); +do{ +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass399= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3732);}while(r); +S_4378:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(3736);if(r)goto S_4378;} +S_4379:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(3737);if(r)goto S_4379;} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3737);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3737);}while(r); +} +} +S_4384:; +if ((-(*__LONG_N<= 2 ))||new_error){ +if(qbevent){evnt(3740);if(r)goto S_4384;} +S_4385:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||new_error){ +if(qbevent){evnt(3741);if(r)goto S_4385;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3742);}while(r); +S_4387:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(3743);if(r)goto S_4387;} +do{ +qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/ 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3745);}while(r); +S_4389:; +fornext_value402= 1 ; +fornext_finalvalue402=__STRING_E->len; fornext_step402= 1 ; if (fornext_step402<0) fornext_step_negative402=1; else fornext_step_negative402=0; if (new_error) goto fornext_error402; goto fornext_entrylabel402; while(1){ -fornext_value402=fornext_step402+(*__LONG_I); +fornext_value402=fornext_step402+(*__LONG_X); fornext_entrylabel402: -*__LONG_I=fornext_value402; +*__LONG_X=fornext_value402; +qbs_cleanup(qbs_tmp_base,0); if (fornext_step_negative402){ if (fornext_value402fornext_finalvalue402) break; } fornext_error402:; -if(qbevent){evnt(3625);if(r)goto S_4196;} -S_4197:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(3626);if(r)goto S_4197;} -do{ -qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass403= 1 ),__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3627);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3628);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3629);}while(r); -} -fornext_continue_401:; -} -fornext_exit_401:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3632);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3632);}while(r); -} -} -do{ -*__LONG_START= 1 ; -if(!qbevent)break;evnt(3637);}while(r); -do{ -goto LABEL_SKIPCONTINIT; -if(!qbevent)break;evnt(3639);}while(r); -LABEL_CONTLINE:; -if(qbevent){evnt(3641);r=0;} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3643);}while(r); -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3644);}while(r); -LABEL_SKIPCONTINIT:; -if(qbevent){evnt(3646);r=0;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3654);}while(r); -S_4212:; -fornext_value405=*__LONG_START; -fornext_finalvalue405=*__LONG_N; -fornext_step405= 1 ; -if (fornext_step405<0) fornext_step_negative405=1; else fornext_step_negative405=0; -if (new_error) goto fornext_error405; -goto fornext_entrylabel405; -while(1){ -fornext_value405=fornext_step405+(*__LONG_I); -fornext_entrylabel405: -*__LONG_I=fornext_value405; -if (fornext_step_negative405){ -if (fornext_value405fornext_finalvalue405) break; -} -fornext_error405:; -if(qbevent){evnt(3656);if(r)goto S_4212;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3657);}while(r); -S_4214:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(3660);if(r)goto S_4214;} -S_4215:; -if ((-(*__LONG_I==*__LONG_START))||new_error){ -if(qbevent){evnt(3661);if(r)goto S_4215;} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3662);}while(r); -S_4217:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3662);if(r)goto S_4217;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP2),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3662);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3662);}while(r); -} -S_4222:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(3663);if(r)goto S_4222;} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3663);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3664);}while(r); -} -S_4227:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(3666);if(r)goto S_4227;} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3666);}while(r); -} -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3667);}while(r); -} -S_4232:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("IF",2)))&(qbs_equal(__STRING_A,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(3672);if(r)goto S_4232;} -do{ -*__LONG_NEWIF= 1 ; -if(!qbevent)break;evnt(3672);}while(r); -} -S_4235:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4)))|(((qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4)))&(-(*__LONG_NEWIF== 1 ))))))||new_error){ -if(qbevent){evnt(3675);if(r)goto S_4235;} -S_4236:; -if ((-(*__LONG_NEWIF== 0 ))||new_error){ -if(qbevent){evnt(3676);if(r)goto S_4236;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3676);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3676);}while(r); -} -do{ -*__LONG_NEWIF= 0 ; -if(!qbevent)break;evnt(3677);}while(r); -S_4241:; -if ((-(*__LONG_LINEELSEUSED> 0 ))||new_error){ -if(qbevent){evnt(3678);if(r)goto S_4241;} -do{ -*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; -if(!qbevent)break;evnt(3678);}while(r); -} -S_4244:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ -if(qbevent){evnt(3679);if(r)goto S_4244;} -S_4245:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(3680);if(r)goto S_4245;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression GOTO label",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3680);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3680);}while(r); -} -do{ -*__LONG_I=*__LONG_I- 1 ; -if(!qbevent)break;evnt(3681);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3683);}while(r); -S_4252:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(3684);if(r)goto S_4252;} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3684);}while(r); -do{ -*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ; -if(!qbevent)break;evnt(3684);}while(r); -} -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3685);}while(r); -} -S_4258:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(3689);if(r)goto S_4258;} -S_4259:; -if ((-(*__LONG_START==*__LONG_I))||new_error){ -if(qbevent){evnt(3691);if(r)goto S_4259;} -S_4260:; -if ((-(*__LONG_LINEELSEUSED>= 1 ))||new_error){ -if(qbevent){evnt(3692);if(r)goto S_4260;} -do{ -*__LONG_IMPLIEDENDIF= 1 ; -if(!qbevent)break;evnt(3697);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("IF",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3697);}while(r); -do{ -*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; -if(!qbevent)break;evnt(3698);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3699);}while(r); -do{ -*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; -if(!qbevent)break;evnt(3700);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3701);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3704);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3704);}while(r); -do{ -*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ; -if(!qbevent)break;evnt(3705);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3706);}while(r); -} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3710);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3711);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3715);}while(r); -S_4277:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3715);if(r)goto S_4277;} -do{ -qbs_set(__STRING_A,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3715);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_A,__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3715);}while(r); -} -fornext_continue_404:; -} -fornext_exit_404:; -S_4283:; -if ((-(*__LONG_ENDIFS> 0 ))||new_error){ -if(qbevent){evnt(3720);if(r)goto S_4283;} -do{ -*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; -if(!qbevent)break;evnt(3721);}while(r); -do{ -*__LONG_IMPLIEDENDIF= 1 ; -if(!qbevent)break;evnt(3722);}while(r); -do{ -qbs_set(__STRING_ENTIRELINE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ENTIRELINE,__STRING1_SP),qbs_new_txt_len(":",1)),__STRING1_SP),qbs_new_txt_len("END",3)),__STRING1_SP),qbs_new_txt_len("IF",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3722);}while(r); -do{ -*__LONG_N=*__LONG_N+ 3 ; -if(!qbevent)break;evnt(3722);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3723);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3724);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3725);}while(r); -} -LABEL_GOTCOMMAND:; -if(qbevent){evnt(3729);r=0;} -do{ -*__LONG_DYNSCOPE= 0 ; -if(!qbevent)break;evnt(3731);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3733);}while(r); -do{ -qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3734);}while(r); -do{ -*__LONG_LAYOUTDONE= 0 ; -if(!qbevent)break;evnt(3737);}while(r); -do{ -qbs_set(__STRING_LINEFRAGMENT,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3739);}while(r); -S_4297:; -if (( 0 )||new_error){ -if(qbevent){evnt(3740);if(r)goto S_4297;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip407; -sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); -if (new_error) goto skip407; -skip407: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(3740);}while(r); -} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3741);}while(r); -S_4301:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(3742);if(r)goto S_4301;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3742);}while(r); -} -S_4304:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_CA,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(".",1)),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(3745);if(r)goto S_4304;} -do{ -qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass408= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3746);}while(r); -do{ -*__LONG_EXCEPT= 0 ; -if(!qbevent)break;evnt(3747);}while(r); -do{ -qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3748);}while(r); -do{ -*__LONG_LASTFUSE= -1 ; -if(!qbevent)break;evnt(3749);}while(r); -S_4309:; -fornext_value410= 2 ; -fornext_finalvalue410=*__LONG_N; -fornext_step410= 1 ; -if (fornext_step410<0) fornext_step_negative410=1; else fornext_step_negative410=0; -if (new_error) goto fornext_error410; -goto fornext_entrylabel410; -while(1){ -fornext_value410=fornext_step410+(*__LONG_X); -fornext_entrylabel410: -*__LONG_X=fornext_value410; -if (fornext_step_negative410){ -if (fornext_value410fornext_finalvalue410) break; -} -fornext_error410:; -if(qbevent){evnt(3750);if(r)goto S_4309;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3751);}while(r); -S_4311:; -if ((-(*__LONG_EXCEPT== 1 ))||new_error){ -if(qbevent){evnt(3752);if(r)goto S_4311;} -do{ -*__LONG_EXCEPT= 2 ; -if(!qbevent)break;evnt(3752);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3752);}while(r); -} -S_4315:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||new_error){ -if(qbevent){evnt(3753);if(r)goto S_4315;} -S_4316:; -if ((-(*__LONG_EXCEPT== 2 ))||new_error){ -if(qbevent){evnt(3754);if(r)goto S_4316;} -do{ -*__LONG_EXCEPT= 1 ; -if(!qbevent)break;evnt(3754);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3754);}while(r); -} -S_4320:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(3756);if(r)goto S_4320;} -do{ -*__LONG_EXCEPT= 1 ; -if(!qbevent)break;evnt(3758);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3759);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3763);}while(r); -S_4325:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3764);if(r)goto S_4325;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3764);}while(r); -} -S_4328:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(3765);if(r)goto S_4328;} -S_4329:; -if (((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)!= 0 )))||new_error){ -if(qbevent){evnt(3766);if(r)goto S_4329;} -do{ -*__LONG_EXCEPT= 1 ; -if(!qbevent)break;evnt(3767);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3768);}while(r); -} -S_4333:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(3770);if(r)goto S_4333;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(3770);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3770);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(3770);}while(r); -} -S_4339:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3771);if(r)goto S_4339;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3771);}while(r); -} -dl_continue_411:; -} -dl_exit_411:; -S_4343:; -if ((qbs_cleanup(qbs_tmp_base,(-(((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((qbs_asc(__STRING_A3))-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])]== 0 ))&(-(*__LONG_LASTFUSE!=(*__LONG_X- 2 )))))||new_error){ -if(qbevent){evnt(3774);if(r)goto S_4343;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3774);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3774);}while(r); -} -do{ -qbs_set(__STRING_AA,qbs_add(qbs_left(__STRING_AA,__STRING_AA->len- 1 ),__STRING_FIX046)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3775);}while(r); -do{ -*__LONG_LASTFUSE=*__LONG_X; -if(!qbevent)break;evnt(3776);}while(r); -do{ -goto LABEL_PERIODFUSED; -if(!qbevent)break;evnt(3777);}while(r); -} -do{ -*__LONG_EXCEPT= 0 ; -if(!qbevent)break;evnt(3779);}while(r); -LABEL_UDTPERIOD:; -if(qbevent){evnt(3780);r=0;} -do{ -qbs_set(__STRING_AA,qbs_add(qbs_add(__STRING_AA,__STRING_A2),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3781);}while(r); -LABEL_PERIODFUSED:; -if(qbevent){evnt(3782);r=0;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3783);}while(r); -fornext_continue_409:; -} -fornext_exit_409:; -do{ -qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3785);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3786);}while(r); -do{ -qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3787);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3788);}while(r); -} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(3791);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass414= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3793);}while(r); -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass415= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3794);}while(r); -do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass416= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3795);}while(r); -S_4364:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(3799);if(r)goto S_4364;} -S_4365:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(3800);if(r)goto S_4365;} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3800);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3800);}while(r); -} -} -S_4370:; -if ((-(*__LONG_N<= 2 ))||new_error){ -if(qbevent){evnt(3803);if(r)goto S_4370;} -S_4371:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||new_error){ -if(qbevent){evnt(3804);if(r)goto S_4371;} -do{ -qbs_set(__STRING_L,__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3805);}while(r); -S_4373:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(3806);if(r)goto S_4373;} -do{ -qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/ 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3808);}while(r); -S_4375:; -fornext_value419= 1 ; -fornext_finalvalue419=__STRING_E->len; -fornext_step419= 1 ; -if (fornext_step419<0) fornext_step_negative419=1; else fornext_step_negative419=0; -if (new_error) goto fornext_error419; -goto fornext_entrylabel419; -while(1){ -fornext_value419=fornext_step419+(*__LONG_X); -fornext_entrylabel419: -*__LONG_X=fornext_value419; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative419){ -if (fornext_value419fornext_finalvalue419) break; -} -fornext_error419:; -if(qbevent){evnt(3809);if(r)goto S_4375;} +if(qbevent){evnt(3746);if(r)goto S_4389;} do{ *__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3810);}while(r); +if(!qbevent)break;evnt(3747);}while(r); do{ *__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3811);}while(r); -S_4378:; +if(!qbevent)break;evnt(3748);}while(r); +S_4392:; if ((-(*__LONG_V1< 65 ))||new_error){ -if(qbevent){evnt(3812);if(r)goto S_4378;} +if(qbevent){evnt(3749);if(r)goto S_4392;} do{ *__LONG_V1=*__LONG_V1- 48 ; -if(!qbevent)break;evnt(3812);}while(r); +if(!qbevent)break;evnt(3749);}while(r); }else{ do{ *__LONG_V1=*__LONG_V1- 55 ; -if(!qbevent)break;evnt(3812);}while(r); +if(!qbevent)break;evnt(3749);}while(r); } -S_4383:; +S_4397:; if ((-(*__LONG_V2< 65 ))||new_error){ -if(qbevent){evnt(3813);if(r)goto S_4383;} +if(qbevent){evnt(3750);if(r)goto S_4397;} do{ *__LONG_V2=*__LONG_V2- 48 ; -if(!qbevent)break;evnt(3813);}while(r); +if(!qbevent)break;evnt(3750);}while(r); }else{ do{ *__LONG_V2=*__LONG_V2- 55 ; -if(!qbevent)break;evnt(3813);}while(r); +if(!qbevent)break;evnt(3750);}while(r); } do{ tqbs=__STRING_E; if (!new_error){ @@ -16895,1470 +16829,1660 @@ tmp_fileno=*__LONG_X; if (!new_error){ tmp_long=*__LONG_V1+(*__LONG_V2* 16 ); if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(3814);}while(r); -fornext_continue_418:; +if(!qbevent)break;evnt(3751);}while(r); +fornext_continue_401:; } -fornext_exit_418:; +fornext_exit_401:; do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3816);}while(r); +if(!qbevent)break;evnt(3753);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3819);}while(r); -S_4393:; +if(!qbevent)break;evnt(3756);}while(r); +S_4407:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3819);if(r)goto S_4393;} +if(qbevent){evnt(3756);if(r)goto S_4407;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3819);}while(r); +if(!qbevent)break;evnt(3756);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3819);}while(r); +if(!qbevent)break;evnt(3756);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3821);}while(r); +if(!qbevent)break;evnt(3758);}while(r); } } -S_4401:; +S_4415:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(3828);if(r)goto S_4401;} -S_4402:; +if(qbevent){evnt(3765);if(r)goto S_4415;} +S_4416:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(3830);if(r)goto S_4402;} -S_4403:; +if(qbevent){evnt(3767);if(r)goto S_4416;} +S_4417:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ -if(qbevent){evnt(3831);if(r)goto S_4403;} +if(qbevent){evnt(3768);if(r)goto S_4417;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3831);}while(r); +if(!qbevent)break;evnt(3768);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3831);}while(r); +if(!qbevent)break;evnt(3768);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(3832);}while(r); +if(!qbevent)break;evnt(3769);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("DECLARE",7))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Declare",7)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3833);}while(r); +if(!qbevent)break;evnt(3770);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3834);}while(r); -S_4410:; +if(!qbevent)break;evnt(3771);}while(r); +S_4424:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3834);if(r)goto S_4410;} +if(qbevent){evnt(3771);if(r)goto S_4424;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3834);}while(r); +if(!qbevent)break;evnt(3771);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3834);}while(r); +if(!qbevent)break;evnt(3771);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3835);}while(r); +if(!qbevent)break;evnt(3772);}while(r); } do{ *__LONG_DECLARINGLIBRARY= 2 ; -if(!qbevent)break;evnt(3838);}while(r); -S_4418:; +if(!qbevent)break;evnt(3775);}while(r); +S_4432:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8)))))||new_error){ -if(qbevent){evnt(3840);if(r)goto S_4418;} +if(qbevent){evnt(3777);if(r)goto S_4432;} do{ goto LABEL_DECLARESUBFUNC2; -if(!qbevent)break;evnt(3841);}while(r); +if(!qbevent)break;evnt(3778);}while(r); } do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected SUB/FUNCTION definition or END DECLARE",47)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3844);}while(r); +if(!qbevent)break;evnt(3781);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3844);}while(r); +if(!qbevent)break;evnt(3781);}while(r); } -S_4424:; +S_4438:; if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(3848);if(r)goto S_4424;} -S_4425:; +if(qbevent){evnt(3785);if(r)goto S_4438;} +S_4439:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(3850);if(r)goto S_4425;} -S_4426:; +if(qbevent){evnt(3787);if(r)goto S_4439;} +S_4440:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ -if(qbevent){evnt(3851);if(r)goto S_4426;} +if(qbevent){evnt(3788);if(r)goto S_4440;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3851);}while(r); +if(!qbevent)break;evnt(3788);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3851);}while(r); +if(!qbevent)break;evnt(3788);}while(r); } do{ *__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(3852);}while(r); +if(!qbevent)break;evnt(3789);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("TYPE",4))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Type",4)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3853);}while(r); +if(!qbevent)break;evnt(3790);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3854);}while(r); -S_4433:; +if(!qbevent)break;evnt(3791);}while(r); +S_4447:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3854);if(r)goto S_4433;} +if(qbevent){evnt(3791);if(r)goto S_4447;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3854);}while(r); +if(!qbevent)break;evnt(3791);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3854);}while(r); +if(!qbevent)break;evnt(3791);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3855);}while(r); +if(!qbevent)break;evnt(3792);}while(r); } -S_4440:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N< 3 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("AS",2)))))||new_error){ -if(qbevent){evnt(3858);if(r)goto S_4440;} +S_4454:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(3796);if(r)goto S_4454;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type-name",34)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name AS type or AS type element-list",53)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3858);}while(r); +if(!qbevent)break;evnt(3796);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3858);}while(r); +if(!qbevent)break;evnt(3796);}while(r); } do{ *__LONG_DEFININGTYPE= 2 ; -if(!qbevent)break;evnt(3859);}while(r); +if(!qbevent)break;evnt(3797);}while(r); +S_4459:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(3798);if(r)goto S_4459;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_GETELEMENT(__STRING_CA,&(pass424= 1 )),__STRING1_SP),qbs_new_txt_len("AS",2))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("As",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3860);}while(r); +if(!qbevent)break;evnt(3799);}while(r); do{ -qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass425= 3 ),__LONG_N)); +qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3861);}while(r); +if(!qbevent)break;evnt(3800);}while(r); +do{ +*__LONG_WORDSINTYPENAME= 0 ; +if(!qbevent)break;evnt(3801);}while(r); +S_4463:; +do{ +if(qbevent){evnt(3802);if(r)goto S_4463;} +do{ +qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass408= 2 +*__LONG_WORDSINTYPENAME))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3803);}while(r); +S_4465:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(3804);if(r)goto S_4465;} +do{ +*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 2 ; +if(!qbevent)break;evnt(3806);}while(r); +do{ +goto dl_exit_407; +if(!qbevent)break;evnt(3807);}while(r); +} +do{ +*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME+ 1 ; +if(!qbevent)break;evnt(3810);}while(r); +S_4470:; +if ((-(*__LONG_WORDSINTYPENAME==(*__LONG_N- 2 )))||new_error){ +if(qbevent){evnt(3811);if(r)goto S_4470;} +do{ +*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 1 ; +if(!qbevent)break;evnt(3813);}while(r); +do{ +goto dl_exit_407; +if(!qbevent)break;evnt(3814);}while(r); +} +dl_continue_407:; +}while(1); +dl_exit_407:; +do{ +qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass409= 2 ),&(pass410= 2 +*__LONG_WORDSINTYPENAME))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3818);}while(r); do{ *__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3862);}while(r); -S_4448:; +if(!qbevent)break;evnt(3819);}while(r); +S_4477:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3863);if(r)goto S_4448;} +if(qbevent){evnt(3820);if(r)goto S_4477;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3863);}while(r); +if(!qbevent)break;evnt(3820);}while(r); } -S_4451:; +S_4480:; if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(3864);if(r)goto S_4451;} +if(qbevent){evnt(3821);if(r)goto S_4480;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3864);}while(r); +if(!qbevent)break;evnt(3821);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3864);}while(r); +if(!qbevent)break;evnt(3821);}while(r); } -S_4455:; +S_4484:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(3865);if(r)goto S_4455;} +if(qbevent){evnt(3822);if(r)goto S_4484;} +S_4485:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_rtrim(__STRING_T)),qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(3823);if(r)goto S_4485;} +do{ +qbs_set(__STRING_T,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3824);}while(r); +}else{ do{ qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3866);}while(r); +if(!qbevent)break;evnt(3826);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3868);}while(r); +if(!qbevent)break;evnt(3828);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3830);}while(r); +} +S_4494:; +fornext_value412= 3 +*__LONG_WORDSINTYPENAME; +fornext_finalvalue412=*__LONG_N; +fornext_step412= 1 ; +if (fornext_step412<0) fornext_step_negative412=1; else fornext_step_negative412=0; +if (new_error) goto fornext_error412; +goto fornext_entrylabel412; +while(1){ +fornext_value412=fornext_step412+(*__LONG_I); +fornext_entrylabel412: +*__LONG_I=fornext_value412; +if (fornext_step_negative412){ +if (fornext_value412fornext_finalvalue412) break; +} +fornext_error412:; +if(qbevent){evnt(3834);if(r)goto S_4494;} +do{ +qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3835);}while(r); +S_4496:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_THISELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(3836);if(r)goto S_4496;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_THISELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3837);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_THISELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3839);}while(r); +} +fornext_continue_411:; +} +fornext_exit_411:; do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3869);}while(r); -S_4460:; +if(!qbevent)break;evnt(3842);}while(r); +S_4503:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3869);if(r)goto S_4460;} +if(qbevent){evnt(3842);if(r)goto S_4503;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3869);}while(r); +if(!qbevent)break;evnt(3842);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3869);}while(r); +if(!qbevent)break;evnt(3842);}while(r); +} +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_GETELEMENT(__STRING_CA,&(pass414= 1 )),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3844);}while(r); +do{ +qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass415= 3 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3845);}while(r); +do{ +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3846);}while(r); +S_4512:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3847);if(r)goto S_4512;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3847);}while(r); +} +S_4515:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(3848);if(r)goto S_4515;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3848);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3848);}while(r); +} +S_4519:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(3849);if(r)goto S_4519;} +S_4520:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_rtrim(__STRING_T)),qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(3850);if(r)goto S_4520;} +do{ +qbs_set(__STRING_T,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3851);}while(r); +}else{ +do{ +qbs_set(__STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3853);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3855);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE2(__STRING_T))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3857);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3859);}while(r); +S_4530:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3859);if(r)goto S_4530;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3859);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3859);}while(r); +} } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3870);}while(r); +if(!qbevent)break;evnt(3861);}while(r); } -S_4467:; +S_4538:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ -if(qbevent){evnt(3874);if(r)goto S_4467;} -S_4468:; +if(qbevent){evnt(3865);if(r)goto S_4538;} +S_4539:; if ((-(*__LONG_N!= 2 ))||new_error){ -if(qbevent){evnt(3875);if(r)goto S_4468;} +if(qbevent){evnt(3866);if(r)goto S_4539;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3875);}while(r); +if(!qbevent)break;evnt(3866);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3875);}while(r); +if(!qbevent)break;evnt(3866);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("TYPE",4),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,&(pass427= 2 )))); +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Type",4)),__STRING1_SP),FUNC_GETELEMENT(__STRING_CA,&(pass417= 2 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3876);}while(r); +if(!qbevent)break;evnt(3867);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3877);}while(r); -S_4474:; +if(!qbevent)break;evnt(3868);}while(r); +S_4545:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3877);if(r)goto S_4474;} +if(qbevent){evnt(3868);if(r)goto S_4545;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3877);}while(r); +if(!qbevent)break;evnt(3868);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3877);}while(r); +if(!qbevent)break;evnt(3868);}while(r); } do{ *__LONG_DEFININGTYPE= 1 ; -if(!qbevent)break;evnt(3878);}while(r); +if(!qbevent)break;evnt(3869);}while(r); do{ *__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(3879);}while(r); +if(!qbevent)break;evnt(3870);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3880);}while(r); +if(!qbevent)break;evnt(3871);}while(r); } -S_4483:; +S_4554:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(3884);if(r)goto S_4483;} -S_4484:; +if(qbevent){evnt(3875);if(r)goto S_4554;} +S_4555:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ -if(qbevent){evnt(3885);if(r)goto S_4484;} -S_4485:; +if(qbevent){evnt(3876);if(r)goto S_4555;} +S_4556:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIBRARY",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10)))|(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6)))))||new_error){ -if(qbevent){evnt(3887);if(r)goto S_4485;} +if(qbevent){evnt(3878);if(r)goto S_4556;} do{ *__LONG_DECLARINGLIBRARY= 1 ; -if(!qbevent)break;evnt(3889);}while(r); +if(!qbevent)break;evnt(3880);}while(r); do{ *__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(3890);}while(r); +if(!qbevent)break;evnt(3881);}while(r); do{ *__LONG_CUSTOMTYPELIBRARY= 0 ; -if(!qbevent)break;evnt(3891);}while(r); +if(!qbevent)break;evnt(3882);}while(r); do{ *__LONG_INDIRECTLIBRARY= 0 ; -if(!qbevent)break;evnt(3892);}while(r); +if(!qbevent)break;evnt(3883);}while(r); do{ *__LONG_STATICLINKEDLIBRARY= 0 ; -if(!qbevent)break;evnt(3893);}while(r); +if(!qbevent)break;evnt(3884);}while(r); do{ *__LONG_X= 3 ; -if(!qbevent)break;evnt(3895);}while(r); +if(!qbevent)break;evnt(3886);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("DECLARE",7),__STRING1_SP),qbs_new_txt_len("LIBRARY",7))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Library",7)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3896);}while(r); -S_4493:; +if(!qbevent)break;evnt(3887);}while(r); +S_4564:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||new_error){ -if(qbevent){evnt(3898);if(r)goto S_4493;} +if(qbevent){evnt(3889);if(r)goto S_4564;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass429= 3 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass419= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3899);}while(r); -S_4495:; +if(!qbevent)break;evnt(3890);}while(r); +S_4566:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(3899);if(r)goto S_4495;} +if(qbevent){evnt(3890);if(r)goto S_4566;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DYNAMIC LIBRARY ",25),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3890);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3890);}while(r); +} +do{ +*__LONG_DYNAMICLIBRARY= 1 ; +if(!qbevent)break;evnt(3891);}while(r); +do{ +*__LONG_X= 4 ; +if(!qbevent)break;evnt(3892);}while(r); +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Dynamic",7)),__STRING1_SP),qbs_new_txt_len("Library",7)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3893);}while(r); +S_4573:; +if ((-(*__LONG_N== 3 ))||new_error){ +if(qbevent){evnt(3894);if(r)goto S_4573;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3894);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3894);}while(r); +} +do{ +*__LONG_INDIRECTLIBRARY= 1 ; +if(!qbevent)break;evnt(3895);}while(r); +} +S_4579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||new_error){ +if(qbevent){evnt(3898);if(r)goto S_4579;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass420= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3899);}while(r); +S_4581:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ +if(qbevent){evnt(3899);if(r)goto S_4581;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3899);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(3899);}while(r); } do{ -*__LONG_DYNAMICLIBRARY= 1 ; +*__LONG_CUSTOMTYPELIBRARY= 1 ; if(!qbevent)break;evnt(3900);}while(r); do{ *__LONG_X= 4 ; if(!qbevent)break;evnt(3901);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DECLARE",7),__STRING1_SP),qbs_new_txt_len("DYNAMIC",7)),__STRING1_SP),qbs_new_txt_len("LIBRARY",7))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("CustomType",10)),__STRING1_SP),qbs_new_txt_len("Library",7)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(3902);}while(r); -S_4502:; -if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(3903);if(r)goto S_4502;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3903);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3903);}while(r); -} do{ *__LONG_INDIRECTLIBRARY= 1 ; -if(!qbevent)break;evnt(3904);}while(r); +if(!qbevent)break;evnt(3903);}while(r); } -S_4508:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||new_error){ -if(qbevent){evnt(3907);if(r)goto S_4508;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass430= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3908);}while(r); -S_4510:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(3908);if(r)goto S_4510;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3908);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3908);}while(r); -} -do{ -*__LONG_CUSTOMTYPELIBRARY= 1 ; -if(!qbevent)break;evnt(3909);}while(r); -do{ -*__LONG_X= 4 ; -if(!qbevent)break;evnt(3910);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DECLARE",7),__STRING1_SP),qbs_new_txt_len("CUSTOMTYPE",10)),__STRING1_SP),qbs_new_txt_len("LIBRARY",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3911);}while(r); -do{ -*__LONG_INDIRECTLIBRARY= 1 ; -if(!qbevent)break;evnt(3912);}while(r); -} -S_4519:; +S_4590:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(3915);if(r)goto S_4519;} +if(qbevent){evnt(3906);if(r)goto S_4590;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass431= 3 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass421= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3916);}while(r); -S_4521:; +if(!qbevent)break;evnt(3907);}while(r); +S_4592:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(3916);if(r)goto S_4521;} +if(qbevent){evnt(3907);if(r)goto S_4592;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3916);}while(r); +if(!qbevent)break;evnt(3907);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3916);}while(r); +if(!qbevent)break;evnt(3907);}while(r); } do{ *__LONG_X= 4 ; -if(!qbevent)break;evnt(3917);}while(r); +if(!qbevent)break;evnt(3908);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DECLARE",7),__STRING1_SP),qbs_new_txt_len("STATIC",6)),__STRING1_SP),qbs_new_txt_len("LIBRARY",7))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Declare",7),__STRING1_SP),qbs_new_txt_len("Static",6)),__STRING1_SP),qbs_new_txt_len("Library",7)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3918);}while(r); +if(!qbevent)break;evnt(3909);}while(r); do{ *__LONG_STATICLINKEDLIBRARY= 1 ; -if(!qbevent)break;evnt(3919);}while(r); +if(!qbevent)break;evnt(3910);}while(r); } do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(3922);}while(r); +if(!qbevent)break;evnt(3913);}while(r); do{ *__LONG_SFHEADER= 0 ; -if(!qbevent)break;evnt(3922);}while(r); -S_4531:; +if(!qbevent)break;evnt(3913);}while(r); +S_4602:; if ((-(*__LONG_N>=*__LONG_X))||new_error){ -if(qbevent){evnt(3924);if(r)goto S_4531;} +if(qbevent){evnt(3915);if(r)goto S_4602;} do{ *__LONG_SFDECLARE= 1 ; -if(!qbevent)break;evnt(3926);}while(r); +if(!qbevent)break;evnt(3917);}while(r); LABEL_ADDLIBRARY:; -if(qbevent){evnt(3928);r=0;} +if(qbevent){evnt(3919);r=0;} do{ qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3930);}while(r); +if(!qbevent)break;evnt(3921);}while(r); do{ qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3931);}while(r); +if(!qbevent)break;evnt(3922);}while(r); do{ qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3936);}while(r); -S_4536:; +if(!qbevent)break;evnt(3927);}while(r); +S_4607:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||new_error){ -if(qbevent){evnt(3937);if(r)goto S_4536;} +if(qbevent){evnt(3928);if(r)goto S_4607;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected LIBRARY ",17),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3937);}while(r); +if(!qbevent)break;evnt(3928);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3937);}while(r); +if(!qbevent)break;evnt(3928);}while(r); } do{ qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3938);}while(r); +if(!qbevent)break;evnt(3929);}while(r); do{ *__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3939);}while(r); -S_4542:; +if(!qbevent)break;evnt(3930);}while(r); +S_4613:; if ((-(*__LONG_Z== 0 ))||new_error){ -if(qbevent){evnt(3940);if(r)goto S_4542;} +if(qbevent){evnt(3931);if(r)goto S_4613;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected LIBRARY ",17),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3940);}while(r); +if(!qbevent)break;evnt(3931);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3940);}while(r); +if(!qbevent)break;evnt(3931);}while(r); } do{ qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3941);}while(r); -S_4547:; +if(!qbevent)break;evnt(3932);}while(r); +S_4618:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ -if(qbevent){evnt(3943);if(r)goto S_4547;} +if(qbevent){evnt(3934);if(r)goto S_4618;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE DYNAMIC LIBRARY ",33),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3943);}while(r); +if(!qbevent)break;evnt(3934);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3943);}while(r); +if(!qbevent)break;evnt(3934);}while(r); } -S_4551:; +S_4622:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ -if(qbevent){evnt(3944);if(r)goto S_4551;} +if(qbevent){evnt(3935);if(r)goto S_4622;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected DECLARE CUSTOMTYPE LIBRARY ",36),func_chr( 34 )),qbs_new_txt_len("...",3)),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3944);}while(r); +if(!qbevent)break;evnt(3935);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(3944);}while(r); +if(!qbevent)break;evnt(3935);}while(r); } -S_4555:; +S_4626:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||new_error){ -if(qbevent){evnt(3959);if(r)goto S_4555;} +if(qbevent){evnt(3950);if(r)goto S_4626;} do{ *__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3960);}while(r); +if(!qbevent)break;evnt(3951);}while(r); do{ qbs_set(__STRING_X,qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3961);}while(r); -ww_continue_435:; +if(!qbevent)break;evnt(3952);}while(r); +ww_continue_425:; } -ww_exit_435:; +ww_exit_425:; do{ qbs_set(__STRING_AUTOFORMAT_X,__STRING_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3964);}while(r); +if(!qbevent)break;evnt(3955);}while(r); do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3968);}while(r); +if(!qbevent)break;evnt(3959);}while(r); LABEL_STRIPLIBVER:; -if(qbevent){evnt(3969);r=0;} -S_4561:; -fornext_value438=__STRING_X->len; -fornext_finalvalue438= 1 ; -fornext_step438= -1 ; -if (fornext_step438<0) fornext_step_negative438=1; else fornext_step_negative438=0; -if (new_error) goto fornext_error438; -goto fornext_entrylabel438; +if(qbevent){evnt(3960);r=0;} +S_4632:; +fornext_value428=__STRING_X->len; +fornext_finalvalue428= 1 ; +fornext_step428= -1 ; +if (fornext_step428<0) fornext_step_negative428=1; else fornext_step_negative428=0; +if (new_error) goto fornext_error428; +goto fornext_entrylabel428; while(1){ -fornext_value438=fornext_step438+(*__LONG_Z); -fornext_entrylabel438: -*__LONG_Z=fornext_value438; +fornext_value428=fornext_step428+(*__LONG_Z); +fornext_entrylabel428: +*__LONG_Z=fornext_value428; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative438){ -if (fornext_value438fornext_finalvalue438) break; +if (fornext_value428>fornext_finalvalue428) break; } -fornext_error438:; -if(qbevent){evnt(3970);if(r)goto S_4561;} +fornext_error428:; +if(qbevent){evnt(3961);if(r)goto S_4632;} do{ *__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3971);}while(r); -S_4563:; +if(!qbevent)break;evnt(3962);}while(r); +S_4634:; if (((-(*__LONG_A== 92 ))|(-(*__LONG_A== 47 )))||new_error){ -if(qbevent){evnt(3972);if(r)goto S_4563;} +if(qbevent){evnt(3963);if(r)goto S_4634;} do{ -goto fornext_exit_437; -if(!qbevent)break;evnt(3972);}while(r); +goto fornext_exit_427; +if(!qbevent)break;evnt(3963);}while(r); } -S_4566:; +S_4637:; if (((-(*__LONG_A== 46 ))|(-(*__LONG_A== 58 )))||new_error){ -if(qbevent){evnt(3973);if(r)goto S_4566;} -S_4567:; +if(qbevent){evnt(3964);if(r)goto S_4637;} +S_4638:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||new_error){ -if(qbevent){evnt(3974);if(r)goto S_4567;} -S_4568:; +if(qbevent){evnt(3965);if(r)goto S_4638;} +S_4639:; if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ -if(qbevent){evnt(3975);if(r)goto S_4568;} +if(qbevent){evnt(3966);if(r)goto S_4639;} do{ qbs_set(__STRING_V,qbs_add(qbs_add(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z),qbs_new_txt_len(".",1)),__STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3975);}while(r); +if(!qbevent)break;evnt(3966);}while(r); }else{ do{ qbs_set(__STRING_V,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3975);}while(r); +if(!qbevent)break;evnt(3966);}while(r); } do{ qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3976);}while(r); -S_4574:; +if(!qbevent)break;evnt(3967);}while(r); +S_4645:; if ((-(*__LONG_A== 58 ))||new_error){ -if(qbevent){evnt(3977);if(r)goto S_4574;} +if(qbevent){evnt(3968);if(r)goto S_4645;} do{ -goto fornext_exit_437; -if(!qbevent)break;evnt(3977);}while(r); +goto fornext_exit_427; +if(!qbevent)break;evnt(3968);}while(r); } do{ goto LABEL_STRIPLIBVER; -if(!qbevent)break;evnt(3978);}while(r); +if(!qbevent)break;evnt(3969);}while(r); }else{ do{ -goto fornext_exit_437; -if(!qbevent)break;evnt(3980);}while(r); +goto fornext_exit_427; +if(!qbevent)break;evnt(3971);}while(r); } } -fornext_continue_437:; +fornext_continue_427:; } -fornext_exit_437:; +fornext_exit_427:; do{ qbs_set(__STRING_LIBVER,__STRING_V); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3984);}while(r); -S_4584:; +if(!qbevent)break;evnt(3975);}while(r); +S_4655:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(3987);if(r)goto S_4584;} -S_4585:; +if(qbevent){evnt(3978);if(r)goto S_4655;} +S_4656:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||new_error){ -if(qbevent){evnt(3989);if(r)goto S_4585;} +if(qbevent){evnt(3980);if(r)goto S_4656;} do{ *__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3990);}while(r); +if(!qbevent)break;evnt(3981);}while(r); do{ qbs_set(__STRING_X,qbs_add(qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_new_txt_len("\\",1)),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3991);}while(r); -dl_continue_444:; +if(!qbevent)break;evnt(3982);}while(r); +dl_continue_434:; } -dl_exit_444:; +dl_exit_434:; } -S_4590:; +S_4661:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(3995);if(r)goto S_4590;} -S_4591:; +if(qbevent){evnt(3986);if(r)goto S_4661;} +S_4662:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||new_error){ -if(qbevent){evnt(3997);if(r)goto S_4591;} +if(qbevent){evnt(3988);if(r)goto S_4662;} do{ *__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3998);}while(r); +if(!qbevent)break;evnt(3989);}while(r); do{ qbs_set(__STRING_X,qbs_add(qbs_add(qbs_left(__STRING_X,*__LONG_Z- 1 ),qbs_new_txt_len("/",1)),qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3999);}while(r); -dl_continue_446:; +if(!qbevent)break;evnt(3990);}while(r); +dl_continue_436:; } -dl_exit_446:; +dl_exit_436:; } do{ qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4004);}while(r); -S_4597:; -fornext_value449=__STRING_X->len; -fornext_finalvalue449= 1 ; -fornext_step449= -1 ; -if (fornext_step449<0) fornext_step_negative449=1; else fornext_step_negative449=0; -if (new_error) goto fornext_error449; -goto fornext_entrylabel449; +if(!qbevent)break;evnt(3995);}while(r); +S_4668:; +fornext_value439=__STRING_X->len; +fornext_finalvalue439= 1 ; +fornext_step439= -1 ; +if (fornext_step439<0) fornext_step_negative439=1; else fornext_step_negative439=0; +if (new_error) goto fornext_error439; +goto fornext_entrylabel439; while(1){ -fornext_value449=fornext_step449+(*__LONG_Z); -fornext_entrylabel449: -*__LONG_Z=fornext_value449; +fornext_value439=fornext_step439+(*__LONG_Z); +fornext_entrylabel439: +*__LONG_Z=fornext_value439; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative449){ -if (fornext_value449fornext_finalvalue449) break; +if (fornext_value439>fornext_finalvalue439) break; } -fornext_error449:; -if(qbevent){evnt(4005);if(r)goto S_4597;} +fornext_error439:; +if(qbevent){evnt(3996);if(r)goto S_4668;} do{ *__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4006);}while(r); -S_4599:; +if(!qbevent)break;evnt(3997);}while(r); +S_4670:; if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||new_error){ -if(qbevent){evnt(4007);if(r)goto S_4599;} +if(qbevent){evnt(3998);if(r)goto S_4670;} do{ qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4008);}while(r); +if(!qbevent)break;evnt(3999);}while(r); do{ qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4009);}while(r); +if(!qbevent)break;evnt(4000);}while(r); do{ -goto fornext_exit_448; -if(!qbevent)break;evnt(4010);}while(r); +goto fornext_exit_438; +if(!qbevent)break;evnt(4001);}while(r); } -fornext_continue_448:; +fornext_continue_438:; } -fornext_exit_448:; -S_4605:; +fornext_exit_438:; +S_4676:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len(".\\",2)))))||new_error){ -if(qbevent){evnt(4016);if(r)goto S_4605;} +if(qbevent){evnt(4007);if(r)goto S_4676;} do{ qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4017);}while(r); -S_4607:; +if(!qbevent)break;evnt(4008);}while(r); +S_4678:; if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(4018);if(r)goto S_4607;} +if(qbevent){evnt(4009);if(r)goto S_4678;} do{ qbs_set(__STRING_LIBPATH,__STRING_PATH__ASCII_CHR_046__SOURCE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4019);}while(r); -S_4609:; +if(!qbevent)break;evnt(4010);}while(r); +S_4680:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_LIBPATH, 1 ),__STRING1_PATHSEP))))||new_error){ -if(qbevent){evnt(4020);if(r)goto S_4609;} +if(qbevent){evnt(4011);if(r)goto S_4680;} do{ qbs_set(__STRING_LIBPATH,qbs_add(__STRING_LIBPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4020);}while(r); +if(!qbevent)break;evnt(4011);}while(r); } }else{ -S_4613:; +S_4684:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(4022);if(r)goto S_4613;} +if(qbevent){evnt(4013);if(r)goto S_4684;} do{ qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4022);}while(r); +if(!qbevent)break;evnt(4013);}while(r); } } } do{ qbs_set(__STRING_LIBPATH_INLINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4027);}while(r); -S_4619:; -fornext_value455= 1 ; -fornext_finalvalue455=__STRING_LIBPATH->len; -fornext_step455= 1 ; -if (fornext_step455<0) fornext_step_negative455=1; else fornext_step_negative455=0; -if (new_error) goto fornext_error455; -goto fornext_entrylabel455; +if(!qbevent)break;evnt(4018);}while(r); +S_4690:; +fornext_value445= 1 ; +fornext_finalvalue445=__STRING_LIBPATH->len; +fornext_step445= 1 ; +if (fornext_step445<0) fornext_step_negative445=1; else fornext_step_negative445=0; +if (new_error) goto fornext_error445; +goto fornext_entrylabel445; while(1){ -fornext_value455=fornext_step455+(*__LONG_Z); -fornext_entrylabel455: -*__LONG_Z=fornext_value455; +fornext_value445=fornext_step445+(*__LONG_Z); +fornext_entrylabel445: +*__LONG_Z=fornext_value445; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative455){ -if (fornext_value455fornext_finalvalue455) break; +if (fornext_value445>fornext_finalvalue445) break; } -fornext_error455:; -if(qbevent){evnt(4028);if(r)goto S_4619;} +fornext_error445:; +if(qbevent){evnt(4019);if(r)goto S_4690;} do{ *__LONG_A=qbs_asc(__STRING_LIBPATH,*__LONG_Z); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4029);}while(r); +if(!qbevent)break;evnt(4020);}while(r); do{ qbs_set(__STRING_LIBPATH_INLINE,qbs_add(__STRING_LIBPATH_INLINE,func_chr(*__LONG_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4030);}while(r); -S_4622:; +if(!qbevent)break;evnt(4021);}while(r); +S_4693:; if ((-(*__LONG_A== 92 ))||new_error){ -if(qbevent){evnt(4031);if(r)goto S_4622;} +if(qbevent){evnt(4022);if(r)goto S_4693;} do{ qbs_set(__STRING_LIBPATH_INLINE,qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("\\",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4031);}while(r); +if(!qbevent)break;evnt(4022);}while(r); } -fornext_continue_454:; +fornext_continue_444:; } -fornext_exit_454:; -S_4626:; +fornext_exit_444:; +S_4697:; if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ -if(qbevent){evnt(4034);if(r)goto S_4626;} -S_4627:; +if(qbevent){evnt(4025);if(r)goto S_4697;} +S_4698:; if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4035);if(r)goto S_4627;} -S_4628:; +if(qbevent){evnt(4026);if(r)goto S_4698;} +S_4699:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4038);if(r)goto S_4628;} -S_4629:; +if(qbevent){evnt(4029);if(r)goto S_4699;} +S_4700:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4040);if(r)goto S_4629;} -S_4630:; +if(qbevent){evnt(4031);if(r)goto S_4700;} +S_4701:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)))))||new_error){ -if(qbevent){evnt(4041);if(r)goto S_4630;} +if(qbevent){evnt(4032);if(r)goto S_4701;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4042);}while(r); +if(!qbevent)break;evnt(4033);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".lib",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4043);}while(r); +if(!qbevent)break;evnt(4034);}while(r); } } -S_4635:; +S_4706:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4047);if(r)goto S_4635;} -S_4636:; +if(qbevent){evnt(4038);if(r)goto S_4706;} +S_4707:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4048);if(r)goto S_4636;} +if(qbevent){evnt(4039);if(r)goto S_4707;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4049);}while(r); +if(!qbevent)break;evnt(4040);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".a",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4050);}while(r); +if(!qbevent)break;evnt(4041);}while(r); } } -S_4641:; +S_4712:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4054);if(r)goto S_4641;} -S_4642:; +if(qbevent){evnt(4045);if(r)goto S_4712;} +S_4713:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ -if(qbevent){evnt(4055);if(r)goto S_4642;} +if(qbevent){evnt(4046);if(r)goto S_4713;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4056);}while(r); +if(!qbevent)break;evnt(4047);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".o",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4057);}while(r); +if(!qbevent)break;evnt(4048);}while(r); } } -S_4647:; +S_4718:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4061);if(r)goto S_4647;} -S_4648:; +if(qbevent){evnt(4052);if(r)goto S_4718;} +S_4719:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||new_error){ -if(qbevent){evnt(4062);if(r)goto S_4648;} +if(qbevent){evnt(4053);if(r)goto S_4719;} do{ qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4063);}while(r); +if(!qbevent)break;evnt(4054);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".lib",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4064);}while(r); +if(!qbevent)break;evnt(4055);}while(r); } } -S_4653:; +S_4724:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4068);if(r)goto S_4653;} -S_4654:; +if(qbevent){evnt(4059);if(r)goto S_4724;} +S_4725:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4069);if(r)goto S_4654;} +if(qbevent){evnt(4060);if(r)goto S_4725;} do{ qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4070);}while(r); +if(!qbevent)break;evnt(4061);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".a",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4071);}while(r); +if(!qbevent)break;evnt(4062);}while(r); } } -S_4659:; +S_4730:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4075);if(r)goto S_4659;} -S_4660:; +if(qbevent){evnt(4066);if(r)goto S_4730;} +S_4731:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||new_error){ -if(qbevent){evnt(4076);if(r)goto S_4660;} +if(qbevent){evnt(4067);if(r)goto S_4731;} do{ qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4077);}while(r); +if(!qbevent)break;evnt(4068);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".o",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4078);}while(r); +if(!qbevent)break;evnt(4069);}while(r); } } } -S_4666:; +S_4737:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4083);if(r)goto S_4666;} -S_4667:; +if(qbevent){evnt(4074);if(r)goto S_4737;} +S_4738:; if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4084);if(r)goto S_4667;} -S_4668:; +if(qbevent){evnt(4075);if(r)goto S_4738;} +S_4739:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4086);if(r)goto S_4668;} -S_4669:; +if(qbevent){evnt(4077);if(r)goto S_4739;} +S_4740:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4088);if(r)goto S_4669;} -S_4670:; +if(qbevent){evnt(4079);if(r)goto S_4740;} +S_4741:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4089);if(r)goto S_4670;} +if(qbevent){evnt(4080);if(r)goto S_4741;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4090);}while(r); +if(!qbevent)break;evnt(4081);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4091);}while(r); -S_4673:; +if(!qbevent)break;evnt(4082);}while(r); +S_4744:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4092);if(r)goto S_4673;} +if(qbevent){evnt(4083);if(r)goto S_4744;} do{ qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4092);}while(r); +if(!qbevent)break;evnt(4083);}while(r); }else{ do{ qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4092);}while(r); -} -} -} -S_4680:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4095);if(r)goto S_4680;} -S_4681:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4096);if(r)goto S_4681;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4097);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4098);}while(r); -S_4684:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4099);if(r)goto S_4684;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4099);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4099);}while(r); -} -} -} -} -S_4692:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4105);if(r)goto S_4692;} -S_4693:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4106);if(r)goto S_4693;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4107);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4108);}while(r); -S_4696:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4109);if(r)goto S_4696;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4109);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4109);}while(r); -} -} -} -S_4703:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4112);if(r)goto S_4703;} -S_4704:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4113);if(r)goto S_4704;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4114);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4115);}while(r); -S_4707:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4116);if(r)goto S_4707;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4116);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4116);}while(r); -} -} -} -} -S_4715:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4121);if(r)goto S_4715;} -S_4716:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4122);if(r)goto S_4716;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4123);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4124);}while(r); -} -} -S_4721:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4128);if(r)goto S_4721;} -S_4722:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ -if(qbevent){evnt(4129);if(r)goto S_4722;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4130);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4131);}while(r); -} -} -S_4727:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4134);if(r)goto S_4727;} -S_4728:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4136);if(r)goto S_4728;} -S_4729:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4137);if(r)goto S_4729;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4138);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4139);}while(r); -S_4732:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4140);if(r)goto S_4732;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4140);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4140);}while(r); -} -} -} -S_4739:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4143);if(r)goto S_4739;} -S_4740:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4144);if(r)goto S_4740;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4145);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4146);}while(r); -S_4743:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4147);if(r)goto S_4743;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4147);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4147);}while(r); -} +if(!qbevent)break;evnt(4083);}while(r); } } } S_4751:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4152);if(r)goto S_4751;} +if(qbevent){evnt(4086);if(r)goto S_4751;} S_4752:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4087);if(r)goto S_4752;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4088);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4089);}while(r); +S_4755:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4090);if(r)goto S_4755;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4090);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4090);}while(r); +} +} +} +} +S_4763:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4096);if(r)goto S_4763;} +S_4764:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4097);if(r)goto S_4764;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4098);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4099);}while(r); +S_4767:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4100);if(r)goto S_4767;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4100);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4100);}while(r); +} +} +} +S_4774:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4103);if(r)goto S_4774;} +S_4775:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ +if(qbevent){evnt(4104);if(r)goto S_4775;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4105);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4106);}while(r); +S_4778:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4107);if(r)goto S_4778;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ",12)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4107);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4107);}while(r); +} +} +} +} +S_4786:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4112);if(r)goto S_4786;} +S_4787:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4113);if(r)goto S_4787;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4114);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4115);}while(r); +} +} +S_4792:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4119);if(r)goto S_4792;} +S_4793:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ +if(qbevent){evnt(4120);if(r)goto S_4793;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4121);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".o",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4122);}while(r); +} +} +S_4798:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4125);if(r)goto S_4798;} +S_4799:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4127);if(r)goto S_4799;} +S_4800:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4128);if(r)goto S_4800;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4129);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4130);}while(r); +S_4803:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4131);if(r)goto S_4803;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4131);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4131);}while(r); +} +} +} +S_4810:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4134);if(r)goto S_4810;} +S_4811:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ +if(qbevent){evnt(4135);if(r)goto S_4811;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4136);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4137);}while(r); +S_4814:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4138);if(r)goto S_4814;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/",23)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4138);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4138);}while(r); +} +} +} +} +S_4822:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4143);if(r)goto S_4822;} +S_4823:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4153);if(r)goto S_4752;} +if(qbevent){evnt(4144);if(r)goto S_4823;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4154);}while(r); +if(!qbevent)break;evnt(4145);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4155);}while(r); -} -} -S_4757:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4158);if(r)goto S_4757;} -S_4758:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4160);if(r)goto S_4758;} -S_4759:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4162);if(r)goto S_4759;} -S_4760:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4163);if(r)goto S_4760;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4164);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4165);}while(r); -S_4763:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4166);if(r)goto S_4763;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4166);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4166);}while(r); -} -} -} -S_4770:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4169);if(r)goto S_4770;} -S_4771:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4170);if(r)goto S_4771;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4171);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4172);}while(r); -S_4774:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4173);if(r)goto S_4774;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4173);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4173);}while(r); -} -} -} -} -S_4782:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4179);if(r)goto S_4782;} -S_4783:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4180);if(r)goto S_4783;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4181);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4182);}while(r); -S_4786:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4183);if(r)goto S_4786;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4183);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4183);}while(r); -} -} -} -S_4793:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4186);if(r)goto S_4793;} -S_4794:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4187);if(r)goto S_4794;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4188);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4189);}while(r); -S_4797:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4190);if(r)goto S_4797;} -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4190);}while(r); -}else{ -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4190);}while(r); -} -} -} -} -S_4805:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4195);if(r)goto S_4805;} -S_4806:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4196);if(r)goto S_4806;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4197);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4198);}while(r); -} -} -S_4811:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4202);if(r)goto S_4811;} -S_4812:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4204);if(r)goto S_4812;} -S_4813:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4206);if(r)goto S_4813;} -S_4814:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4207);if(r)goto S_4814;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4208);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4209);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4210);}while(r); -} -} -S_4820:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4213);if(r)goto S_4820;} -S_4821:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4214);if(r)goto S_4821;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4215);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4216);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4217);}while(r); -} +if(!qbevent)break;evnt(4146);}while(r); } } S_4828:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4223);if(r)goto S_4828;} +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4149);if(r)goto S_4828;} S_4829:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4224);if(r)goto S_4829;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4225);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4226);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4227);}while(r); -} -} -S_4835:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4230);if(r)goto S_4835;} -S_4836:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4231);if(r)goto S_4836;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4232);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4233);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4234);}while(r); -} -} -} -S_4843:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4239);if(r)goto S_4843;} -S_4844:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4240);if(r)goto S_4844;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4241);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4242);}while(r); -} -} -S_4849:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4246);if(r)goto S_4849;} -S_4850:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ -if(qbevent){evnt(4247);if(r)goto S_4850;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4248);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4249);}while(r); -} -} -S_4855:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4252);if(r)goto S_4855;} -S_4856:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4254);if(r)goto S_4856;} -S_4857:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4255);if(r)goto S_4857;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4256);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4257);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4258);}while(r); -} -} -S_4863:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4261);if(r)goto S_4863;} -S_4864:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4262);if(r)goto S_4864;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4263);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4264);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4265);}while(r); -} -} -} -S_4871:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4270);if(r)goto S_4871;} -S_4872:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4271);if(r)goto S_4872;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4272);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4273);}while(r); -} -} -S_4877:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4276);if(r)goto S_4877;} -S_4878:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4278);if(r)goto S_4878;} -S_4879:; +if(qbevent){evnt(4151);if(r)goto S_4829;} +S_4830:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4280);if(r)goto S_4879;} -S_4880:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4281);if(r)goto S_4880;} +if(qbevent){evnt(4153);if(r)goto S_4830;} +S_4831:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4154);if(r)goto S_4831;} do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4282);}while(r); +if(!qbevent)break;evnt(4155);}while(r); do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4283);}while(r); -} -} -S_4885:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4286);if(r)goto S_4885;} -S_4886:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4287);if(r)goto S_4886;} +if(!qbevent)break;evnt(4156);}while(r); +S_4834:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4157);if(r)goto S_4834;} do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4288);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4289);}while(r); +if(!qbevent)break;evnt(4157);}while(r); +}else{ do{ qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4290);}while(r); +if(!qbevent)break;evnt(4157);}while(r); } } } -S_4893:; +S_4841:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4296);if(r)goto S_4893;} -S_4894:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4297);if(r)goto S_4894;} +if(qbevent){evnt(4160);if(r)goto S_4841;} +S_4842:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4161);if(r)goto S_4842;} do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4298);}while(r); +if(!qbevent)break;evnt(4162);}while(r); do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4299);}while(r); +if(!qbevent)break;evnt(4163);}while(r); +S_4845:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4164);if(r)goto S_4845;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4164);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4164);}while(r); +} +} +} +} +S_4853:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4170);if(r)goto S_4853;} +S_4854:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4171);if(r)goto S_4854;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4172);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4173);}while(r); +S_4857:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4174);if(r)goto S_4857;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4174);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4174);}while(r); +} +} +} +S_4864:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4177);if(r)goto S_4864;} +S_4865:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ +if(qbevent){evnt(4178);if(r)goto S_4865;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4179);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4180);}while(r); +S_4868:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4181);if(r)goto S_4868;} +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(qbs_add(qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/",21)),__STRING_LIBPATH),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4181);}while(r); +}else{ +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4181);}while(r); +} +} +} +} +S_4876:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4186);if(r)goto S_4876;} +S_4877:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4187);if(r)goto S_4877;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4188);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4189);}while(r); +} +} +S_4882:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4193);if(r)goto S_4882;} +S_4883:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4195);if(r)goto S_4883;} +S_4884:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4197);if(r)goto S_4884;} +S_4885:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4198);if(r)goto S_4885;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4199);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4200);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4201);}while(r); +} +} +S_4891:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4204);if(r)goto S_4891;} +S_4892:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4205);if(r)goto S_4892;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4206);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4207);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4208);}while(r); +} } } S_4899:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4302);if(r)goto S_4899;} +if(qbevent){evnt(4214);if(r)goto S_4899;} S_4900:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4215);if(r)goto S_4900;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4216);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4217);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4218);}while(r); +} +} +S_4906:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4221);if(r)goto S_4906;} +S_4907:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ +if(qbevent){evnt(4222);if(r)goto S_4907;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4223);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4224);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath ./ ",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4225);}while(r); +} +} +} +S_4914:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4230);if(r)goto S_4914;} +S_4915:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4231);if(r)goto S_4915;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4232);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4233);}while(r); +} +} +S_4920:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4237);if(r)goto S_4920;} +S_4921:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ +if(qbevent){evnt(4238);if(r)goto S_4921;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4239);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".o",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4240);}while(r); +} +} +S_4926:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4243);if(r)goto S_4926;} +S_4927:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4245);if(r)goto S_4927;} +S_4928:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4246);if(r)goto S_4928;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4247);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4248);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4249);}while(r); +} +} +S_4934:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4252);if(r)goto S_4934;} +S_4935:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ +if(qbevent){evnt(4253);if(r)goto S_4935;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4254);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4255);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib64/ ",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4256);}while(r); +} +} +} +S_4942:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4261);if(r)goto S_4942;} +S_4943:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4262);if(r)goto S_4943;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4263);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4264);}while(r); +} +} +S_4948:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4267);if(r)goto S_4948;} +S_4949:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4269);if(r)goto S_4949;} +S_4950:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4271);if(r)goto S_4950;} +S_4951:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4272);if(r)goto S_4951;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4273);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4274);}while(r); +} +} +S_4956:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4277);if(r)goto S_4956;} +S_4957:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4278);if(r)goto S_4957;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4279);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4280);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4281);}while(r); +} +} +} +S_4964:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4287);if(r)goto S_4964;} +S_4965:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4288);if(r)goto S_4965;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4289);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4290);}while(r); +} +} +S_4970:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4293);if(r)goto S_4970;} +S_4971:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4303);if(r)goto S_4900;} +if(qbevent){evnt(4294);if(r)goto S_4971;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4304);}while(r); +if(!qbevent)break;evnt(4295);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4296);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4297);}while(r); +} +} +} +S_4978:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4302);if(r)goto S_4978;} +S_4979:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4303);if(r)goto S_4979;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4304);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4305);}while(r); do{ qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); @@ -18367,106 +18491,110 @@ if(!qbevent)break;evnt(4306);}while(r); } } } -S_4907:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4311);if(r)goto S_4907;} -S_4908:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4312);if(r)goto S_4908;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4313);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".a",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4314);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_add(__STRING_MYLIBOPT,qbs_new_txt_len(" -Wl,-rpath /usr/lib/ ",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4315);}while(r); -} -} -} -S_4915:; +S_4986:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4322);if(r)goto S_4915;} -S_4916:; +if(qbevent){evnt(4313);if(r)goto S_4986;} +S_4987:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4323);if(r)goto S_4916;} -S_4917:; +if(qbevent){evnt(4314);if(r)goto S_4987;} +S_4988:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4324);if(r)goto S_4917;} +if(qbevent){evnt(4315);if(r)goto S_4988;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4325);}while(r); -S_4919:; +if(!qbevent)break;evnt(4316);}while(r); +S_4990:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4326);if(r)goto S_4919;} +if(qbevent){evnt(4317);if(r)goto S_4990;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4326);}while(r); +if(!qbevent)break;evnt(4317);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4327);}while(r); +if(!qbevent)break;evnt(4318);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4328);}while(r); +if(!qbevent)break;evnt(4319);}while(r); } -S_4925:; +S_4996:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4330);if(r)goto S_4925;} +if(qbevent){evnt(4321);if(r)goto S_4996;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4331);}while(r); -S_4927:; +if(!qbevent)break;evnt(4322);}while(r); +S_4998:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4332);if(r)goto S_4927;} +if(qbevent){evnt(4323);if(r)goto S_4998;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4332);}while(r); +if(!qbevent)break;evnt(4323);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4333);}while(r); +if(!qbevent)break;evnt(4324);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4334);}while(r); +if(!qbevent)break;evnt(4325);}while(r); } -S_4933:; +S_5004:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4337);if(r)goto S_4933;} +if(qbevent){evnt(4328);if(r)goto S_5004;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4338);}while(r); -S_4935:; +if(!qbevent)break;evnt(4329);}while(r); +S_5006:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4339);if(r)goto S_4935;} +if(qbevent){evnt(4330);if(r)goto S_5006;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4339);}while(r); +if(!qbevent)break;evnt(4330);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4340);}while(r); +if(!qbevent)break;evnt(4331);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4341);}while(r); +if(!qbevent)break;evnt(4332);}while(r); } -S_4941:; +S_5012:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4343);if(r)goto S_4941;} +if(qbevent){evnt(4334);if(r)goto S_5012;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4344);}while(r); -S_4943:; +if(!qbevent)break;evnt(4335);}while(r); +S_5014:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4345);if(r)goto S_4943;} +if(qbevent){evnt(4336);if(r)goto S_5014;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4336);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4337);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4338);}while(r); +} +} +S_5021:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4342);if(r)goto S_5021;} +S_5022:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4343);if(r)goto S_5022;} +do{ +qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4344);}while(r); +S_5024:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4345);if(r)goto S_5024;} do{ *__LONG_SFDECLARE= 0 ; if(!qbevent)break;evnt(4345);}while(r); @@ -18478,1008 +18606,983 @@ do{ goto LABEL_GOTHEADER; if(!qbevent)break;evnt(4347);}while(r); } -} -S_4950:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4351);if(r)goto S_4950;} -S_4951:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4352);if(r)goto S_4951;} -do{ -qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4353);}while(r); -S_4953:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4354);if(r)goto S_4953;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4354);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4355);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4356);}while(r); -} -S_4959:; +S_5030:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4358);if(r)goto S_4959;} +if(qbevent){evnt(4349);if(r)goto S_5030;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4359);}while(r); -S_4961:; +if(!qbevent)break;evnt(4350);}while(r); +S_5032:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4360);if(r)goto S_4961;} +if(qbevent){evnt(4351);if(r)goto S_5032;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4360);}while(r); +if(!qbevent)break;evnt(4351);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4361);}while(r); +if(!qbevent)break;evnt(4352);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4362);}while(r); +if(!qbevent)break;evnt(4353);}while(r); } -S_4967:; +S_5038:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4364);if(r)goto S_4967;} +if(qbevent){evnt(4355);if(r)goto S_5038;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH_INLINE),__STRING_X),qbs_new_txt_len(".h",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4365);}while(r); -S_4969:; +if(!qbevent)break;evnt(4356);}while(r); +S_5040:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4366);if(r)goto S_4969;} +if(qbevent){evnt(4357);if(r)goto S_5040;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4366);}while(r); +if(!qbevent)break;evnt(4357);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4367);}while(r); +if(!qbevent)break;evnt(4358);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4368);}while(r); +if(!qbevent)break;evnt(4359);}while(r); } -S_4975:; +S_5046:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4370);if(r)goto S_4975;} +if(qbevent){evnt(4361);if(r)goto S_5046;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_LIBPATH_INLINE),__STRING_X),qbs_new_txt_len(".hpp",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4371);}while(r); -S_4977:; +if(!qbevent)break;evnt(4362);}while(r); +S_5048:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4372);if(r)goto S_4977;} +if(qbevent){evnt(4363);if(r)goto S_5048;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4372);}while(r); +if(!qbevent)break;evnt(4363);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4373);}while(r); +if(!qbevent)break;evnt(4364);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4374);}while(r); +if(!qbevent)break;evnt(4365);}while(r); } -S_4983:; +S_5054:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4377);if(r)goto S_4983;} +if(qbevent){evnt(4368);if(r)goto S_5054;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".h",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4378);}while(r); -S_4985:; +if(!qbevent)break;evnt(4369);}while(r); +S_5056:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4379);if(r)goto S_4985;} +if(qbevent){evnt(4370);if(r)goto S_5056;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4379);}while(r); +if(!qbevent)break;evnt(4370);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4380);}while(r); +if(!qbevent)break;evnt(4371);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4381);}while(r); +if(!qbevent)break;evnt(4372);}while(r); } -S_4991:; +S_5062:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4383);if(r)goto S_4991;} +if(qbevent){evnt(4374);if(r)goto S_5062;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4384);}while(r); -S_4993:; +if(!qbevent)break;evnt(4375);}while(r); +S_5064:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4385);if(r)goto S_4993;} +if(qbevent){evnt(4376);if(r)goto S_5064;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4385);}while(r); +if(!qbevent)break;evnt(4376);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4386);}while(r); +if(!qbevent)break;evnt(4377);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4387);}while(r); +if(!qbevent)break;evnt(4378);}while(r); } -S_4999:; +S_5070:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4389);if(r)goto S_4999;} +if(qbevent){evnt(4380);if(r)goto S_5070;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".h",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4390);}while(r); -S_5001:; +if(!qbevent)break;evnt(4381);}while(r); +S_5072:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4391);if(r)goto S_5001;} +if(qbevent){evnt(4382);if(r)goto S_5072;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4391);}while(r); +if(!qbevent)break;evnt(4382);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4392);}while(r); +if(!qbevent)break;evnt(4383);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4393);}while(r); +if(!qbevent)break;evnt(4384);}while(r); } -S_5007:; +S_5078:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4395);if(r)goto S_5007;} +if(qbevent){evnt(4386);if(r)goto S_5078;} do{ qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(qbs_new_txt_len("/usr/include/",13),__STRING_X),qbs_new_txt_len(".hpp",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4396);}while(r); -S_5009:; +if(!qbevent)break;evnt(4387);}while(r); +S_5080:; if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4397);if(r)goto S_5009;} +if(qbevent){evnt(4388);if(r)goto S_5080;} do{ *__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4397);}while(r); +if(!qbevent)break;evnt(4388);}while(r); } do{ *__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4398);}while(r); +if(!qbevent)break;evnt(4389);}while(r); do{ goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4399);}while(r); +if(!qbevent)break;evnt(4390);}while(r); } } LABEL_GOTHEADER:; -if(qbevent){evnt(4403);r=0;} +if(qbevent){evnt(4394);r=0;} } }else{ -S_5018:; +S_5089:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4409);if(r)goto S_5018;} -S_5019:; +if(qbevent){evnt(4400);if(r)goto S_5089;} +S_5090:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4411);if(r)goto S_5019;} -S_5020:; +if(qbevent){evnt(4402);if(r)goto S_5090;} +S_5091:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)))))||new_error){ -if(qbevent){evnt(4412);if(r)goto S_5020;} +if(qbevent){evnt(4403);if(r)goto S_5091;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4413);}while(r); +if(!qbevent)break;evnt(4404);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4414);}while(r); +if(!qbevent)break;evnt(4405);}while(r); } } -S_5025:; +S_5096:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4418);if(r)goto S_5025;} -S_5026:; +if(qbevent){evnt(4409);if(r)goto S_5096;} +S_5097:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(func_environ(qbs_new_txt_len("SYSTEMROOT",10)),qbs_new_txt_len("\\System32\\",10)),__STRING_LIBPATH),__STRING_X),qbs_new_txt_len(".dll",4)))))||new_error){ -if(qbevent){evnt(4419);if(r)goto S_5026;} +if(qbevent){evnt(4410);if(r)goto S_5097;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4411);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4412);}while(r); +} +} +S_5102:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4417);if(r)goto S_5102;} +S_5103:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))))||new_error){ +if(qbevent){evnt(4418);if(r)goto S_5103;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4419);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4420);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".dll",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4421);}while(r); } } -S_5031:; +S_5108:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4426);if(r)goto S_5031;} -S_5032:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))))||new_error){ -if(qbevent){evnt(4427);if(r)goto S_5032;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4428);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4429);}while(r); -} -} -S_5037:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4433);if(r)goto S_5037;} -S_5038:; +if(qbevent){evnt(4424);if(r)goto S_5108;} +S_5109:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(func_environ(qbs_new_txt_len("SYSTEMROOT",10)),qbs_new_txt_len("\\System32\\",10)),__STRING_X),qbs_new_txt_len(".dll",4)))))||new_error){ -if(qbevent){evnt(4434);if(r)goto S_5038;} +if(qbevent){evnt(4425);if(r)goto S_5109;} do{ qbs_set(__STRING_LIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4435);}while(r); +if(!qbevent)break;evnt(4426);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(__STRING_X,qbs_new_txt_len(".dll",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4436);}while(r); +if(!qbevent)break;evnt(4427);}while(r); } } } -S_5044:; +S_5115:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4441);if(r)goto S_5044;} -S_5045:; +if(qbevent){evnt(4432);if(r)goto S_5115;} +S_5116:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4445);if(r)goto S_5045;} -S_5046:; +if(qbevent){evnt(4436);if(r)goto S_5116;} +S_5117:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4447);if(r)goto S_5046;} -S_5047:; +if(qbevent){evnt(4438);if(r)goto S_5117;} +S_5118:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4448);if(r)goto S_5047;} +if(qbevent){evnt(4439);if(r)goto S_5118;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4449);}while(r); +if(!qbevent)break;evnt(4440);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4450);}while(r); -S_5050:; +if(!qbevent)break;evnt(4441);}while(r); +S_5121:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4451);if(r)goto S_5050;} +if(qbevent){evnt(4442);if(r)goto S_5121;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4451);}while(r); +if(!qbevent)break;evnt(4442);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4451);}while(r); +if(!qbevent)break;evnt(4442);}while(r); } } } -S_5056:; +S_5127:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4454);if(r)goto S_5056;} -S_5057:; +if(qbevent){evnt(4445);if(r)goto S_5127;} +S_5128:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4455);if(r)goto S_5057;} +if(qbevent){evnt(4446);if(r)goto S_5128;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4456);}while(r); +if(!qbevent)break;evnt(4447);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4457);}while(r); -S_5060:; +if(!qbevent)break;evnt(4448);}while(r); +S_5131:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4458);if(r)goto S_5060;} +if(qbevent){evnt(4449);if(r)goto S_5131;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4458);}while(r); +if(!qbevent)break;evnt(4449);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4458);}while(r); +if(!qbevent)break;evnt(4449);}while(r); } } } } -S_5067:; +S_5138:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4464);if(r)goto S_5067;} -S_5068:; +if(qbevent){evnt(4455);if(r)goto S_5138;} +S_5139:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4465);if(r)goto S_5068;} +if(qbevent){evnt(4456);if(r)goto S_5139;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4466);}while(r); +if(!qbevent)break;evnt(4457);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4467);}while(r); -S_5071:; +if(!qbevent)break;evnt(4458);}while(r); +S_5142:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4468);if(r)goto S_5071;} +if(qbevent){evnt(4459);if(r)goto S_5142;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4468);}while(r); +if(!qbevent)break;evnt(4459);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4468);}while(r); +if(!qbevent)break;evnt(4459);}while(r); } } } -S_5077:; +S_5148:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4471);if(r)goto S_5077;} -S_5078:; +if(qbevent){evnt(4462);if(r)goto S_5148;} +S_5149:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4472);if(r)goto S_5078;} +if(qbevent){evnt(4463);if(r)goto S_5149;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4473);}while(r); +if(!qbevent)break;evnt(4464);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(__STRING_LIBPATH_INLINE,qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4474);}while(r); -S_5081:; +if(!qbevent)break;evnt(4465);}while(r); +S_5152:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4475);if(r)goto S_5081;} +if(qbevent){evnt(4466);if(r)goto S_5152;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4475);}while(r); +if(!qbevent)break;evnt(4466);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4475);}while(r); +if(!qbevent)break;evnt(4466);}while(r); } } } -S_5087:; +S_5158:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4479);if(r)goto S_5087;} -S_5088:; +if(qbevent){evnt(4470);if(r)goto S_5158;} +S_5159:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4480);if(r)goto S_5088;} +if(qbevent){evnt(4471);if(r)goto S_5159;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4481);}while(r); +if(!qbevent)break;evnt(4472);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4482);}while(r); +if(!qbevent)break;evnt(4473);}while(r); } } -S_5093:; +S_5164:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4485);if(r)goto S_5093;} -S_5094:; +if(qbevent){evnt(4476);if(r)goto S_5164;} +S_5165:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4486);if(r)goto S_5094;} +if(qbevent){evnt(4477);if(r)goto S_5165;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4487);}while(r); +if(!qbevent)break;evnt(4478);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4479);}while(r); +} +} +S_5170:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4483);if(r)goto S_5170;} +S_5171:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4485);if(r)goto S_5171;} +S_5172:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4486);if(r)goto S_5172;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4487);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4488);}while(r); } } -S_5099:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4492);if(r)goto S_5099;} -S_5100:; +S_5177:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4494);if(r)goto S_5100;} -S_5101:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4495);if(r)goto S_5101;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4496);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4497);}while(r); -} -} -S_5106:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4500);if(r)goto S_5106;} -S_5107:; +if(qbevent){evnt(4491);if(r)goto S_5177;} +S_5178:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4501);if(r)goto S_5107;} +if(qbevent){evnt(4492);if(r)goto S_5178;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4502);}while(r); +if(!qbevent)break;evnt(4493);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4494);}while(r); +} +} +} +S_5184:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4500);if(r)goto S_5184;} +S_5185:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4501);if(r)goto S_5185;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4502);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4503);}while(r); } } -} -S_5113:; +S_5190:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4509);if(r)goto S_5113;} -S_5114:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4510);if(r)goto S_5114;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4511);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4512);}while(r); -} -} -S_5119:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4515);if(r)goto S_5119;} -S_5120:; +if(qbevent){evnt(4506);if(r)goto S_5190;} +S_5191:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4516);if(r)goto S_5120;} +if(qbevent){evnt(4507);if(r)goto S_5191;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4517);}while(r); +if(!qbevent)break;evnt(4508);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),__STRING_LIBPATH_INLINE),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4518);}while(r); +if(!qbevent)break;evnt(4509);}while(r); } } -S_5125:; +S_5196:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4522);if(r)goto S_5125;} -S_5126:; +if(qbevent){evnt(4513);if(r)goto S_5196;} +S_5197:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4524);if(r)goto S_5126;} -S_5127:; +if(qbevent){evnt(4515);if(r)goto S_5197;} +S_5198:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4525);if(r)goto S_5127;} +if(qbevent){evnt(4516);if(r)goto S_5198;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4526);}while(r); +if(!qbevent)break;evnt(4517);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4527);}while(r); +if(!qbevent)break;evnt(4518);}while(r); do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4528);}while(r); +if(!qbevent)break;evnt(4519);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4528);}while(r); +if(!qbevent)break;evnt(4519);}while(r); } } -S_5134:; +S_5205:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4531);if(r)goto S_5134;} -S_5135:; +if(qbevent){evnt(4522);if(r)goto S_5205;} +S_5206:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4532);if(r)goto S_5135;} +if(qbevent){evnt(4523);if(r)goto S_5206;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4533);}while(r); +if(!qbevent)break;evnt(4524);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4534);}while(r); +if(!qbevent)break;evnt(4525);}while(r); do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4535);}while(r); +if(!qbevent)break;evnt(4526);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4535);}while(r); +if(!qbevent)break;evnt(4526);}while(r); } } } -S_5143:; +S_5214:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4541);if(r)goto S_5143;} -S_5144:; +if(qbevent){evnt(4532);if(r)goto S_5214;} +S_5215:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4542);if(r)goto S_5144;} +if(qbevent){evnt(4533);if(r)goto S_5215;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4543);}while(r); +if(!qbevent)break;evnt(4534);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4544);}while(r); +if(!qbevent)break;evnt(4535);}while(r); do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4545);}while(r); +if(!qbevent)break;evnt(4536);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4545);}while(r); +if(!qbevent)break;evnt(4536);}while(r); } } -S_5151:; +S_5222:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4548);if(r)goto S_5151;} -S_5152:; +if(qbevent){evnt(4539);if(r)goto S_5222;} +S_5223:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4549);if(r)goto S_5152;} +if(qbevent){evnt(4540);if(r)goto S_5223;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4550);}while(r); +if(!qbevent)break;evnt(4541);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_new_txt_len("lib",3),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4551);}while(r); +if(!qbevent)break;evnt(4542);}while(r); do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4552);}while(r); +if(!qbevent)break;evnt(4543);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_INLINELIBNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4552);}while(r); +if(!qbevent)break;evnt(4543);}while(r); } } -S_5159:; +S_5230:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4556);if(r)goto S_5159;} -S_5160:; +if(qbevent){evnt(4547);if(r)goto S_5230;} +S_5231:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4557);if(r)goto S_5160;} +if(qbevent){evnt(4548);if(r)goto S_5231;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4558);}while(r); +if(!qbevent)break;evnt(4549);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4559);}while(r); +if(!qbevent)break;evnt(4550);}while(r); } } -S_5165:; +S_5236:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4562);if(r)goto S_5165;} -S_5166:; +if(qbevent){evnt(4553);if(r)goto S_5236;} +S_5237:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4563);if(r)goto S_5166;} +if(qbevent){evnt(4554);if(r)goto S_5237;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4564);}while(r); +if(!qbevent)break;evnt(4555);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4556);}while(r); +} +} +S_5242:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4560);if(r)goto S_5242;} +S_5243:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4562);if(r)goto S_5243;} +S_5244:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4563);if(r)goto S_5244;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4564);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4565);}while(r); } } -S_5171:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4569);if(r)goto S_5171;} -S_5172:; +S_5249:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4571);if(r)goto S_5172;} -S_5173:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4572);if(r)goto S_5173;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4573);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".",1)),__STRING_LIBVER),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4574);}while(r); -} -} -S_5178:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4577);if(r)goto S_5178;} -S_5179:; +if(qbevent){evnt(4568);if(r)goto S_5249;} +S_5250:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4578);if(r)goto S_5179;} +if(qbevent){evnt(4569);if(r)goto S_5250;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4579);}while(r); +if(!qbevent)break;evnt(4570);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4571);}while(r); +} +} +} +S_5256:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4577);if(r)goto S_5256;} +S_5257:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ +if(qbevent){evnt(4578);if(r)goto S_5257;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4579);}while(r); +do{ +qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4580);}while(r); } } -} -S_5185:; +S_5262:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4586);if(r)goto S_5185;} -S_5186:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER))))||new_error){ -if(qbevent){evnt(4587);if(r)goto S_5186;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4588);}while(r); -do{ -qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so.",4)),__STRING_LIBVER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4589);}while(r); -} -} -S_5191:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4592);if(r)goto S_5191;} -S_5192:; +if(qbevent){evnt(4583);if(r)goto S_5262;} +S_5263:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4593);if(r)goto S_5192;} +if(qbevent){evnt(4584);if(r)goto S_5263;} do{ qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4594);}while(r); +if(!qbevent)break;evnt(4585);}while(r); do{ qbs_set(__STRING_INLINELIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4595);}while(r); +if(!qbevent)break;evnt(4586);}while(r); } } } } -S_5199:; +S_5270:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||new_error){ -if(qbevent){evnt(4603);if(r)goto S_5199;} +if(qbevent){evnt(4594);if(r)goto S_5270;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4603);}while(r); +if(!qbevent)break;evnt(4594);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4603);}while(r); +if(!qbevent)break;evnt(4594);}while(r); } -S_5203:; +S_5274:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||new_error){ -if(qbevent){evnt(4604);if(r)goto S_5203;} +if(qbevent){evnt(4595);if(r)goto S_5274;} do{ qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4604);}while(r); +if(!qbevent)break;evnt(4595);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4604);}while(r); +if(!qbevent)break;evnt(4595);}while(r); } -S_5207:; +S_5278:; if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4608);if(r)goto S_5207;} -S_5208:; +if(qbevent){evnt(4599);if(r)goto S_5278;} +S_5279:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||new_error){ -if(qbevent){evnt(4611);if(r)goto S_5208;} -S_5209:; +if(qbevent){evnt(4602);if(r)goto S_5279;} +S_5280:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4612);if(r)goto S_5209;} -S_5210:; +if(qbevent){evnt(4603);if(r)goto S_5280;} +S_5281:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_LIBNAME, 2 , 1 ,1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(4613);if(r)goto S_5210;} +if(qbevent){evnt(4604);if(r)goto S_5281;} do{ qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4614);}while(r); +if(!qbevent)break;evnt(4605);}while(r); }else{ do{ qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ..\\..\\",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4616);}while(r); +if(!qbevent)break;evnt(4607);}while(r); } } -S_5216:; +S_5287:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4619);if(r)goto S_5216;} -S_5217:; +if(qbevent){evnt(4610);if(r)goto S_5287;} +S_5288:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4620);if(r)goto S_5217;} +if(qbevent){evnt(4611);if(r)goto S_5288;} do{ qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ",1)),__STRING_LIBNAME),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4621);}while(r); +if(!qbevent)break;evnt(4612);}while(r); }else{ do{ qbs_set(__STRING_MYLIB,qbs_add(qbs_add(qbs_add(__STRING_MYLIB,qbs_new_txt_len(" ../../",7)),__STRING_LIBNAME),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4623);}while(r); +if(!qbevent)break;evnt(4614);}while(r); } } } }else{ -S_5225:; +S_5296:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4632);if(r)goto S_5225;} -S_5226:; +if(qbevent){evnt(4623);if(r)goto S_5296;} +S_5297:; if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(4634);if(r)goto S_5226;} +if(qbevent){evnt(4625);if(r)goto S_5297;} do{ *__LONG_F=func_freefile(); -if(!qbevent)break;evnt(4635);}while(r); +if(!qbevent)break;evnt(4626);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL,*__LONG_F,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4636);}while(r); +if(!qbevent)break;evnt(4627);}while(r); }else{ do{ *__LONG_F= 13 ; -if(!qbevent)break;evnt(4638);}while(r); +if(!qbevent)break;evnt(4629);}while(r); } do{ qbs_set(__STRING_X2,__STRING_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4644);}while(r); -S_5233:; -fornext_value533= 1 ; -fornext_finalvalue533=__STRING_X2->len; -fornext_step533= 1 ; -if (fornext_step533<0) fornext_step_negative533=1; else fornext_step_negative533=0; -if (new_error) goto fornext_error533; -goto fornext_entrylabel533; +if(!qbevent)break;evnt(4635);}while(r); +S_5304:; +fornext_value523= 1 ; +fornext_finalvalue523=__STRING_X2->len; +fornext_step523= 1 ; +if (fornext_step523<0) fornext_step_negative523=1; else fornext_step_negative523=0; +if (new_error) goto fornext_error523; +goto fornext_entrylabel523; while(1){ -fornext_value533=fornext_step533+(*__LONG_X2); -fornext_entrylabel533: -*__LONG_X2=fornext_value533; +fornext_value523=fornext_step523+(*__LONG_X2); +fornext_entrylabel523: +*__LONG_X2=fornext_value523; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative533){ -if (fornext_value533fornext_finalvalue533) break; +if (fornext_value523>fornext_finalvalue523) break; } -fornext_error533:; -if(qbevent){evnt(4645);if(r)goto S_5233;} -S_5234:; +fornext_error523:; +if(qbevent){evnt(4636);if(r)goto S_5304;} +S_5305:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||new_error){ -if(qbevent){evnt(4646);if(r)goto S_5234;} +if(qbevent){evnt(4637);if(r)goto S_5305;} do{ tqbs=__STRING_X2; if (!new_error){ tmp_fileno=*__LONG_X2; if (!new_error){ tmp_long= 95 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(4646);}while(r); +if(!qbevent)break;evnt(4637);}while(r); } -S_5237:; +S_5308:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 57 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 65 ))))||new_error){ -if(qbevent){evnt(4647);if(r)goto S_5237;} +if(qbevent){evnt(4638);if(r)goto S_5308;} do{ tqbs=__STRING_X2; if (!new_error){ tmp_fileno=*__LONG_X2; if (!new_error){ tmp_long= 95 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(4647);}while(r); +if(!qbevent)break;evnt(4638);}while(r); } -S_5240:; +S_5311:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 90 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 97 ))))||new_error){ -if(qbevent){evnt(4648);if(r)goto S_5240;} +if(qbevent){evnt(4639);if(r)goto S_5311;} do{ tqbs=__STRING_X2; if (!new_error){ tmp_fileno=*__LONG_X2; if (!new_error){ tmp_long= 95 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(4648);}while(r); +if(!qbevent)break;evnt(4639);}while(r); } -S_5243:; +S_5314:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||new_error){ -if(qbevent){evnt(4649);if(r)goto S_5243;} +if(qbevent){evnt(4640);if(r)goto S_5314;} do{ tqbs=__STRING_X2; if (!new_error){ tmp_fileno=*__LONG_X2; if (!new_error){ tmp_long= 95 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(4649);}while(r); +if(!qbevent)break;evnt(4640);}while(r); } -fornext_continue_532:; +fornext_continue_522:; } -fornext_exit_532:; +fornext_exit_522:; do{ qbs_set(__STRING_DLLNAME,__STRING_X2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4651);}while(r); -S_5248:; +if(!qbevent)break;evnt(4642);}while(r); +S_5319:; if ((*__LONG_SFDECLARE)||new_error){ -if(qbevent){evnt(4653);if(r)goto S_5248;} -S_5249:; +if(qbevent){evnt(4644);if(r)goto S_5319;} +S_5320:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4655);if(r)goto S_5249;} +if(qbevent){evnt(4646);if(r)goto S_5320;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip535; +if (new_error) goto skip525; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("HINSTANCE DLL_",14),__STRING_X2),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip535; -skip535: +if (new_error) goto skip525; +skip525: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4647);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip526; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); +if (new_error) goto skip526; +skip526: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4648);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip527; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=LoadLibrary(",13)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip527; +skip527: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4649);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip528; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)), 0 , 0 , 1 ); +if (new_error) goto skip528; +skip528: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4650);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip529; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip529; +skip529: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4651);}while(r); +} +S_5327:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4654);if(r)goto S_5327;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; +if (new_error) goto skip530; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void *DLL_",10),__STRING_X2),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip530; +skip530: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4655);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip531; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); +if (new_error) goto skip531; +skip531: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4656);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; -if (new_error) goto skip536; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip536; -skip536: +if (new_error) goto skip532; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=dlopen(",8)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(",RTLD_LAZY);",12)), 0 , 0 , 1 ); +if (new_error) goto skip532; +skip532: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4657);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; -if (new_error) goto skip537; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=LoadLibrary(",13)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip537; -skip537: +if (new_error) goto skip533; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)), 0 , 0 , 1 ); +if (new_error) goto skip533; +skip533: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4658);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip534; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip534; +skip534: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4659);}while(r); +} +} +S_5335:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(4665);if(r)goto S_5335;} +do{ +sub_close(*__LONG_F,1); +if(!qbevent)break;evnt(4665);}while(r); +} +} +} +S_5340:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||new_error){ +if(qbevent){evnt(4671);if(r)goto S_5340;} +S_5341:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4672);if(r)goto S_5341;} +S_5342:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_HEADERNAME, 2 , 1 ,1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ +if(qbevent){evnt(4673);if(r)goto S_5342;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; +if (new_error) goto skip536; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip536; +skip536: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4674);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; +if (new_error) goto skip537; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("..\\\\..\\\\",8)),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip537; +skip537: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(4676);}while(r); +} +} +S_5348:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4679);if(r)goto S_5348;} +S_5349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(4681);if(r)goto S_5349;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip538; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip538; skip538: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4659);}while(r); +if(!qbevent)break;evnt(4682);}while(r); +}else{ do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_F; +tab_fileno=tmp_fileno= 17 ; if (new_error) goto skip539; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("../../",6)),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip539; skip539: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4660);}while(r); -} -S_5256:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4663);if(r)goto S_5256;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip540; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void *DLL_",10),__STRING_X2),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip540; -skip540: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4664);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_F; -if (new_error) goto skip541; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip541; -skip541: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4665);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_F; -if (new_error) goto skip542; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLL_",4),__STRING_X2),qbs_new_txt_len("=dlopen(",8)),func_chr( 34 )),__STRING_INLINELIBNAME),func_chr( 34 )),qbs_new_txt_len(",RTLD_LAZY);",12)), 0 , 0 , 1 ); -if (new_error) goto skip542; -skip542: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4666);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_F; -if (new_error) goto skip543; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!DLL_",9),__STRING_X2),qbs_new_txt_len(") error(259);",13)), 0 , 0 , 1 ); -if (new_error) goto skip543; -skip543: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4667);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_F; -if (new_error) goto skip544; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip544; -skip544: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4668);}while(r); -} -} -S_5264:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(4674);if(r)goto S_5264;} -do{ -sub_close(*__LONG_F,1); -if(!qbevent)break;evnt(4674);}while(r); -} -} -} -S_5269:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||new_error){ -if(qbevent){evnt(4680);if(r)goto S_5269;} -S_5270:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4681);if(r)goto S_5270;} -S_5271:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_HEADERNAME, 2 , 1 ,1),qbs_new_txt_len(":",1)))|(qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(4682);if(r)goto S_5271;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip546; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip546; -skip546: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4683);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip547; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("..\\\\..\\\\",8)),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip547; -skip547: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4685);}while(r); -} -} -S_5277:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4688);if(r)goto S_5277;} -S_5278:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_HEADERNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4690);if(r)goto S_5278;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip548; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip548; -skip548: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4691);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip549; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("../../",6)),__STRING_HEADERNAME),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip549; -skip549: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(4693);}while(r); +if(!qbevent)break;evnt(4684);}while(r); } } } @@ -19487,2421 +19590,2439 @@ if(!qbevent)break;evnt(4693);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),func_chr( 34 )),__STRING_AUTOFORMAT_X),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4701);}while(r); -S_5287:; +if(!qbevent)break;evnt(4692);}while(r); +S_5358:; if ((-(*__LONG_N>*__LONG_X))||new_error){ -if(qbevent){evnt(4703);if(r)goto S_5287;} -S_5288:; +if(qbevent){evnt(4694);if(r)goto S_5358;} +S_5359:; if ((*__LONG_DYNAMICLIBRARY)||new_error){ -if(qbevent){evnt(4704);if(r)goto S_5288;} +if(qbevent){evnt(4695);if(r)goto S_5359;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Cannot specify multiple DYNAMIC LIBRARY names in a single DECLARE statement",75)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4704);}while(r); +if(!qbevent)break;evnt(4695);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4704);}while(r); +if(!qbevent)break;evnt(4695);}while(r); } do{ *__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(4705);}while(r); +if(!qbevent)break;evnt(4696);}while(r); do{ qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4705);}while(r); -S_5294:; +if(!qbevent)break;evnt(4696);}while(r); +S_5365:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(4705);if(r)goto S_5294;} +if(qbevent){evnt(4696);if(r)goto S_5365;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4705);}while(r); +if(!qbevent)break;evnt(4696);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4705);}while(r); +if(!qbevent)break;evnt(4696);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4706);}while(r); +if(!qbevent)break;evnt(4697);}while(r); do{ *__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(4707);}while(r); -S_5300:; +if(!qbevent)break;evnt(4698);}while(r); +S_5371:; if ((-(*__LONG_X>*__LONG_N))||new_error){ -if(qbevent){evnt(4707);if(r)goto S_5300;} +if(qbevent){evnt(4698);if(r)goto S_5371;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4707);}while(r); +if(!qbevent)break;evnt(4698);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4707);}while(r); +if(!qbevent)break;evnt(4698);}while(r); } do{ goto LABEL_ADDLIBRARY; -if(!qbevent)break;evnt(4708);}while(r); +if(!qbevent)break;evnt(4699);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(4713);}while(r); -S_5308:; +if(!qbevent)break;evnt(4704);}while(r); +S_5379:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(4713);if(r)goto S_5308;} +if(qbevent){evnt(4704);if(r)goto S_5379;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4713);}while(r); +if(!qbevent)break;evnt(4704);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4713);}while(r); +if(!qbevent)break;evnt(4704);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(4714);}while(r); +if(!qbevent)break;evnt(4705);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(4717);}while(r); +if(!qbevent)break;evnt(4708);}while(r); } } -S_5318:; +S_5389:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(4722);if(r)goto S_5318;} +if(qbevent){evnt(4713);if(r)goto S_5389;} do{ *__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(4723);}while(r); +if(!qbevent)break;evnt(4714);}while(r); LABEL_DECLARESUBFUNC2:; -if(qbevent){evnt(4724);r=0;} +if(qbevent){evnt(4715);r=0;} do{ *__LONG_SF= 0 ; -if(!qbevent)break;evnt(4725);}while(r); -S_5321:; +if(!qbevent)break;evnt(4716);}while(r); +S_5392:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(4726);if(r)goto S_5321;} +if(qbevent){evnt(4717);if(r)goto S_5392;} do{ *__LONG_SF= 1 ; -if(!qbevent)break;evnt(4726);}while(r); +if(!qbevent)break;evnt(4717);}while(r); } -S_5324:; +S_5395:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(4727);if(r)goto S_5324;} +if(qbevent){evnt(4718);if(r)goto S_5395;} do{ *__LONG_SF= 2 ; -if(!qbevent)break;evnt(4727);}while(r); +if(!qbevent)break;evnt(4718);}while(r); } -S_5327:; +S_5398:; if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(4728);if(r)goto S_5327;} -S_5328:; +if(qbevent){evnt(4719);if(r)goto S_5398;} +S_5399:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4730);if(r)goto S_5328;} -S_5329:; +if(qbevent){evnt(4721);if(r)goto S_5399;} +S_5400:; if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(4731);if(r)goto S_5329;} +if(qbevent){evnt(4722);if(r)goto S_5400;} do{ qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected END SUB/FUNCTION before ",33),__STRING_FIRSTELEMENT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4731);}while(r); +if(!qbevent)break;evnt(4722);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4731);}while(r); +if(!qbevent)break;evnt(4722);}while(r); } } -S_5334:; +S_5405:; if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(4734);if(r)goto S_5334;} +if(qbevent){evnt(4725);if(r)goto S_5405;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected name after SUB/FUNCTION",32)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4734);}while(r); +if(!qbevent)break;evnt(4725);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4734);}while(r); +if(!qbevent)break;evnt(4725);}while(r); } do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass552= 2 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass542= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4735);}while(r); +if(!qbevent)break;evnt(4726);}while(r); do{ qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4736);}while(r); -S_5340:; +if(!qbevent)break;evnt(4727);}while(r); +S_5411:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4737);if(r)goto S_5340;} +if(qbevent){evnt(4728);if(r)goto S_5411;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4737);}while(r); +if(!qbevent)break;evnt(4728);}while(r); } -S_5343:; +S_5414:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(4738);if(r)goto S_5343;} +if(qbevent){evnt(4729);if(r)goto S_5414;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Type symbols after a SUB name are invalid",41)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4738);}while(r); +if(!qbevent)break;evnt(4729);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4738);}while(r); +if(!qbevent)break;evnt(4729);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4739);}while(r); -S_5348:; +if(!qbevent)break;evnt(4730);}while(r); +S_5419:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4740);if(r)goto S_5348;} +if(qbevent){evnt(4731);if(r)goto S_5419;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4740);}while(r); +if(!qbevent)break;evnt(4731);}while(r); } -S_5351:; +S_5422:; while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(4741);if(r)goto S_5351;} -S_5352:; +if(qbevent){evnt(4732);if(r)goto S_5422;} +S_5423:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))==*__LONG_SF))||new_error){ -if(qbevent){evnt(4742);if(r)goto S_5352;} +if(qbevent){evnt(4733);if(r)goto S_5423;} do{ goto LABEL_CREATESF; -if(!qbevent)break;evnt(4742);}while(r); +if(!qbevent)break;evnt(4733);}while(r); } -S_5355:; +S_5426:; if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(4743);if(r)goto S_5355;} +if(qbevent){evnt(4734);if(r)goto S_5426;} do{ *__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(4743);}while(r); +if(!qbevent)break;evnt(4734);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4743);}while(r); +if(!qbevent)break;evnt(4734);}while(r); }else{ do{ *__LONG_TRY= 0 ; -if(!qbevent)break;evnt(4743);}while(r); +if(!qbevent)break;evnt(4734);}while(r); } -S_5361:; +S_5432:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4744);if(r)goto S_5361;} +if(qbevent){evnt(4735);if(r)goto S_5432;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4744);}while(r); +if(!qbevent)break;evnt(4735);}while(r); } -dl_continue_553:; +dl_continue_543:; } -dl_exit_553:; +dl_exit_543:; do{ qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4746);}while(r); +if(!qbevent)break;evnt(4737);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4746);}while(r); +if(!qbevent)break;evnt(4737);}while(r); LABEL_CREATESF:; -if(qbevent){evnt(4747);r=0;} -S_5367:; +if(qbevent){evnt(4738);r=0;} +S_5438:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(4748);if(r)goto S_5367;} +if(qbevent){evnt(4739);if(r)goto S_5438;} do{ qbs_set(__STRING_E,qbs_new_txt_len("_GL",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4748);}while(r); +if(!qbevent)break;evnt(4739);}while(r); +} +S_5441:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(4740);if(r)goto S_5441;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Sub",3)),__STRING1_SP),__STRING_E),__STRING_SYMBOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4741);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Function",8)),__STRING1_SP),__STRING_E),__STRING_SYMBOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4743);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_E),__STRING_SYMBOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4749);}while(r); -do{ -memcpy(((char*)__UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2863); -if(!qbevent)break;evnt(4750);}while(r); +memcpy((((char*)__UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)__UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)__UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)__UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)__UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)__UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)__UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)__UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(4745);}while(r); do{ *__LONG_TARGETID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(4751);}while(r); +if(!qbevent)break;evnt(4746);}while(r); do{ qbs_set(__STRING_ALIASNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4754);}while(r); -S_5374:; +if(!qbevent)break;evnt(4749);}while(r); +S_5449:; if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(4755);if(r)goto S_5374;} +if(qbevent){evnt(4750);if(r)goto S_5449;} do{ -qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass554= 3 ))); +qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass544= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4756);}while(r); -S_5376:; +if(!qbevent)break;evnt(4751);}while(r); +S_5451:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||new_error){ -if(qbevent){evnt(4757);if(r)goto S_5376;} -S_5377:; +if(qbevent){evnt(4752);if(r)goto S_5451;} +S_5452:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4758);if(r)goto S_5377;} +if(qbevent){evnt(4753);if(r)goto S_5452;} do{ qbs_set(__STRING_A,qbs_new_txt_len("ALIAS can only be used with DECLARE LIBRARY",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4758);}while(r); +if(!qbevent)break;evnt(4753);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4758);}while(r); +if(!qbevent)break;evnt(4753);}while(r); } -S_5381:; +S_5456:; if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(4759);if(r)goto S_5381;} +if(qbevent){evnt(4754);if(r)goto S_5456;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ALIAS name-in-library",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4759);}while(r); +if(!qbevent)break;evnt(4754);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4759);}while(r); +if(!qbevent)break;evnt(4754);}while(r); } do{ -qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass555= 4 ))); +qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass545= 4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4760);}while(r); -S_5386:; +if(!qbevent)break;evnt(4755);}while(r); +S_5461:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(4763);if(r)goto S_5386;} +if(qbevent){evnt(4758);if(r)goto S_5461;} do{ qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4764);}while(r); +if(!qbevent)break;evnt(4759);}while(r); do{ *__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4765);}while(r); -S_5389:; +if(!qbevent)break;evnt(4760);}while(r); +S_5464:; if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(4765);if(r)goto S_5389;} +if(qbevent){evnt(4760);if(r)goto S_5464;} do{ qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4765);}while(r); +if(!qbevent)break;evnt(4760);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4765);}while(r); +if(!qbevent)break;evnt(4760);}while(r); } do{ qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4766);}while(r); +if(!qbevent)break;evnt(4761);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("ALIAS",5)),__STRING1_SP),__STRING_CHR_QUOTE),__STRING_EE),__STRING_CHR_QUOTE)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Alias",5))),__STRING1_SP),__STRING_CHR_QUOTE),__STRING_EE),__STRING_CHR_QUOTE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4767);}while(r); +if(!qbevent)break;evnt(4762);}while(r); }else{ do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("ALIAS",5)),__STRING1_SP),__STRING_EE)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Alias",5))),__STRING1_SP),__STRING_EE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4769);}while(r); +if(!qbevent)break;evnt(4764);}while(r); } -S_5398:; +S_5473:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(4773);if(r)goto S_5398;} +if(qbevent){evnt(4768);if(r)goto S_5473;} do{ *__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4774);}while(r); +if(!qbevent)break;evnt(4769);}while(r); do{ qbs_set(__STRING_EE,qbs_add(qbs_add(qbs_left(__STRING_EE,*__LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_EE,__STRING_EE->len-*__LONG_X+ 1 -__STRING_FIX046->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4774);}while(r); -dl_continue_557:; +if(!qbevent)break;evnt(4769);}while(r); +dl_continue_547:; } -dl_exit_557:; +dl_exit_547:; do{ qbs_set(__STRING_ALIASNAME,__STRING_EE); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4771);}while(r); +S_5478:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(4773);if(r)goto S_5478;} +do{ +qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass550= 1 ),&(pass551= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4773);}while(r); +} +S_5481:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(4774);if(r)goto S_5481;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass552= 1 ),&(pass553= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass554= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4774);}while(r); +} +S_5484:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(4775);if(r)goto S_5484;} +do{ +qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass555= 1 ),&(pass556= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4775);}while(r); +} +S_5487:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(4776);if(r)goto S_5487;} +do{ +qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass557= 1 ),&(pass558= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass559= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4776);}while(r); -S_5403:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(4778);if(r)goto S_5403;} -do{ -qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass560= 1 ),&(pass561= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4778);}while(r); -} -S_5406:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(4779);if(r)goto S_5406;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass562= 1 ),&(pass563= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass564= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4779);}while(r); -} -S_5409:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(4780);if(r)goto S_5409;} -do{ -qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass565= 1 ),&(pass566= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4780);}while(r); -} -S_5412:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(4781);if(r)goto S_5412;} -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass567= 1 ),&(pass568= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass569= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4781);}while(r); } do{ *__LONG_N=*__LONG_N- 2 ; -if(!qbevent)break;evnt(4782);}while(r); +if(!qbevent)break;evnt(4777);}while(r); } } -S_5418:; +S_5493:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4786);if(r)goto S_5418;} +if(qbevent){evnt(4781);if(r)goto S_5493;} do{ goto LABEL_DECLIBJMP1; -if(!qbevent)break;evnt(4786);}while(r); +if(!qbevent)break;evnt(4781);}while(r); } -S_5421:; +S_5496:; if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ -if(qbevent){evnt(4789);if(r)goto S_5421;} +if(qbevent){evnt(4784);if(r)goto S_5496;} do{ SUB_CLOSEMAIN(); -if(!qbevent)break;evnt(4789);}while(r); +if(!qbevent)break;evnt(4784);}while(r); } -S_5424:; +S_5499:; if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 )))||new_error){ -if(qbevent){evnt(4792);if(r)goto S_5424;} +if(qbevent){evnt(4787);if(r)goto S_5499;} do{ -*__LONG_X=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(4793);}while(r); -S_5426:; -if ((-(*__LONG_X== 1 ))||new_error){ -if(qbevent){evnt(4794);if(r)goto S_5426;} +qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4788);}while(r); +S_5501:; +sc_560=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(qbevent){evnt(4789);if(r)goto S_5501;} +S_5502:; +if (((sc_560==( 1 )))||new_error){ +if(qbevent){evnt(4790);if(r)goto S_5502;} do{ qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4794);}while(r); +if(!qbevent)break;evnt(4790);}while(r); +sc_ec_17_end:; +goto sc_560_end; } -S_5429:; -if ((-(*__LONG_X== 2 ))||new_error){ -if(qbevent){evnt(4795);if(r)goto S_5429;} +S_5504:; +if (((sc_560==( 2 )))||new_error){ +if(qbevent){evnt(4791);if(r)goto S_5504;} do{ qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4795);}while(r); +if(!qbevent)break;evnt(4791);}while(r); +sc_ec_18_end:; +goto sc_560_end; } -S_5432:; -if (((-(*__LONG_X== 3 ))|(-(*__LONG_X== 4 )))||new_error){ -if(qbevent){evnt(4796);if(r)goto S_5432;} +S_5506:; +if (((sc_560==( 3 ))||(sc_560==( 4 )))||new_error){ +if(qbevent){evnt(4792);if(r)goto S_5506;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4796);}while(r); +if(!qbevent)break;evnt(4792);}while(r); +sc_ec_19_end:; +goto sc_560_end; } -S_5435:; -if ((-(*__LONG_X== 5 ))||new_error){ -if(qbevent){evnt(4797);if(r)goto S_5435;} +S_5508:; +if (((sc_560==( 5 )))||new_error){ +if(qbevent){evnt(4793);if(r)goto S_5508;} do{ qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4797);}while(r); +if(!qbevent)break;evnt(4793);}while(r); +sc_ec_20_end:; +goto sc_560_end; } -S_5438:; -if (((((-(*__LONG_X>= 10 ))&(-(*__LONG_X<= 17 ))))|(-(*__LONG_X== 18 ))|(-(*__LONG_X== 19 )))||new_error){ -if(qbevent){evnt(4798);if(r)goto S_5438;} +S_5510:; +if ((((sc_560>=( 10 ))&&(sc_560<=( 19 ))))||new_error){ +if(qbevent){evnt(4794);if(r)goto S_5510;} do{ qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4798);}while(r); +if(!qbevent)break;evnt(4794);}while(r); +sc_ec_21_end:; +goto sc_560_end; } +sc_560_end:; do{ *__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; -if(!qbevent)break;evnt(4799);}while(r); +if(!qbevent)break;evnt(4796);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4800);}while(r); +if(!qbevent)break;evnt(4797);}while(r); } -S_5444:; +S_5516:; if ((*__LONG_IDEINDENTSUBS)||new_error){ -if(qbevent){evnt(4803);if(r)goto S_5444;} +if(qbevent){evnt(4800);if(r)goto S_5516;} do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(4804);}while(r); +if(!qbevent)break;evnt(4801);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 32 ; -if(!qbevent)break;evnt(4805);}while(r); +if(!qbevent)break;evnt(4802);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(4803);}while(r); } do{ qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4806);}while(r); +S_5522:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ +if(qbevent){evnt(4807);if(r)goto S_5522;} +do{ +qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4807);}while(r); +}else{ +do{ +qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4807);}while(r); +} +do{ +qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_add(__STRING_SUBFUNCORIGINALNAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4808);}while(r); do{ *__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; if(!qbevent)break;evnt(4809);}while(r); do{ -*__LONG_SUBFUNCID=*__LONG_TARGETID; +*__BYTE_CLOSEDSUBFUNC= 0 ; if(!qbevent)break;evnt(4810);}while(r); do{ +*__LONG_SUBFUNCID=*__LONG_TARGETID; +if(!qbevent)break;evnt(4811);}while(r); +do{ qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4812);}while(r); +if(!qbevent)break;evnt(4813);}while(r); do{ sub_close( 13 ,1); -if(!qbevent)break;evnt(4814);}while(r); +if(!qbevent)break;evnt(4815);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 13 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4814);}while(r); +if(!qbevent)break;evnt(4815);}while(r); do{ sub_close( 19 ,1); -if(!qbevent)break;evnt(4815);}while(r); +if(!qbevent)break;evnt(4816);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4815);}while(r); +if(!qbevent)break;evnt(4816);}while(r); do{ sub_close( 15 ,1); -if(!qbevent)break;evnt(4816);}while(r); +if(!qbevent)break;evnt(4817);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("ret",3)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 15 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4816);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip570; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point){",23), 0 , 0 , 1 ); -if (new_error) goto skip570; -skip570: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(4817);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip571; -sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); -if (new_error) goto skip571; -skip571: +if (new_error) goto skip561; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point){",23), 0 , 0 , 1 ); +if (new_error) goto skip561; +skip561: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4818);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip572; -sub_file_print(tmp_fileno,qbs_new_txt_len("switch(return_point[next_return_point]){",40), 0 , 0 , 1 ); -if (new_error) goto skip572; -skip572: +if (new_error) goto skip562; +sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); +if (new_error) goto skip562; +skip562: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4819);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip573; -sub_file_print(tmp_fileno,qbs_new_txt_len("case 0:",7), 0 , 0 , 1 ); -if (new_error) goto skip573; -skip573: +if (new_error) goto skip563; +sub_file_print(tmp_fileno,qbs_new_txt_len("switch(return_point[next_return_point]){",40), 0 , 0 , 1 ); +if (new_error) goto skip563; +skip563: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4820);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip574; -sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); -if (new_error) goto skip574; -skip574: +if (new_error) goto skip564; +sub_file_print(tmp_fileno,qbs_new_txt_len("case 0:",7), 0 , 0 , 1 ); +if (new_error) goto skip564; +skip564: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4821);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip575; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip575; -skip575: +if (new_error) goto skip565; +sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); +if (new_error) goto skip565; +skip565: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(4822);}while(r); do{ -*__INTEGER_DEFDATAHANDLE= 13 ; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip566; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip566; +skip566: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(4823);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE= 13 ; +if(!qbevent)break;evnt(4824);}while(r); LABEL_DECLIBJMP1:; -if(qbevent){evnt(4825);r=0;} -S_5465:; +if(qbevent){evnt(4826);r=0;} +S_5545:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4827);if(r)goto S_5465;} -S_5466:; +if(qbevent){evnt(4828);if(r)goto S_5545;} +S_5546:; if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ -if(qbevent){evnt(4828);if(r)goto S_5466;} +if(qbevent){evnt(4829);if(r)goto S_5546;} do{ sub_close( 17 ,1); -if(!qbevent)break;evnt(4829);}while(r); +if(!qbevent)break;evnt(4830);}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("regsf_ignore.txt",16)), 4 ,NULL,NULL, 17 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4830);}while(r); +if(!qbevent)break;evnt(4831);}while(r); } -S_5470:; +S_5550:; if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ -if(qbevent){evnt(4832);if(r)goto S_5470;} +if(qbevent){evnt(4833);if(r)goto S_5550;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip576; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass577=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip576; -skip576: +if (new_error) goto skip567; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass568=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip567; +skip567: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4833);}while(r); +if(!qbevent)break;evnt(4834);}while(r); do{ *__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(4834);}while(r); +if(!qbevent)break;evnt(4835);}while(r); do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass578=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH,NULL,0); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass569=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4834);}while(r); +if(!qbevent)break;evnt(4835);}while(r); do{ sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(4834);}while(r); +if(!qbevent)break;evnt(4835);}while(r); } } -S_5477:; +S_5557:; if ((-(*__LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(4841);if(r)goto S_5477;} +if(qbevent){evnt(4842);if(r)goto S_5557;} do{ *__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+(2381)); -if(!qbevent)break;evnt(4842);}while(r); +if(!qbevent)break;evnt(4843);}while(r); do{ qbs_set(__STRING_T,FUNC_TYP2CTYP((int32*)(void*)( ((char*)(__UDT_ID)) + (2381) ),qbs_new_txt_len("",0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4843);}while(r); -S_5480:; +if(!qbevent)break;evnt(4844);}while(r); +S_5560:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4844);if(r)goto S_5480;} +if(qbevent){evnt(4845);if(r)goto S_5560;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4844);}while(r); +if(!qbevent)break;evnt(4845);}while(r); } -S_5483:; +S_5563:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(4845);if(r)goto S_5483;} +if(qbevent){evnt(4846);if(r)goto S_5563;} do{ qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4845);}while(r); +if(!qbevent)break;evnt(4846);}while(r); } -S_5486:; +S_5566:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4847);if(r)goto S_5486;} -S_5487:; +if(qbevent){evnt(4848);if(r)goto S_5566;} +S_5567:; if ((*__LONG_RETTYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(4848);if(r)goto S_5487;} +if(qbevent){evnt(4849);if(r)goto S_5567;} do{ qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4849);}while(r); +if(!qbevent)break;evnt(4850);}while(r); } } -S_5491:; +S_5571:; if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ -if(qbevent){evnt(4853);if(r)goto S_5491;} -S_5492:; +if(qbevent){evnt(4854);if(r)goto S_5571;} +S_5572:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4854);if(r)goto S_5492;} +if(qbevent){evnt(4855);if(r)goto S_5572;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip579; +if (new_error) goto skip570; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("typedef ",8),__STRING_T),qbs_new_txt_len(" (CALLBACK* DLLCALL_",20)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len(")(",2)), 0 , 0 , 0 ); -if (new_error) goto skip579; -skip579: +if (new_error) goto skip570; +skip570: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4855);}while(r); +if(!qbevent)break;evnt(4856);}while(r); } -S_5495:; +S_5575:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4857);if(r)goto S_5495;} +if(qbevent){evnt(4858);if(r)goto S_5575;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip580; +if (new_error) goto skip571; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("typedef ",8),__STRING_T),qbs_new_txt_len(" (*DLLCALL_",11)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len(")(",2)), 0 , 0 , 0 ); -if (new_error) goto skip580; -skip580: +if (new_error) goto skip571; +skip571: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4858);}while(r); +if(!qbevent)break;evnt(4859);}while(r); } -S_5498:; +S_5578:; }else{ if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ -if(qbevent){evnt(4860);if(r)goto S_5498;} +if(qbevent){evnt(4861);if(r)goto S_5578;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip581; +if (new_error) goto skip572; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("typedef ",8),__STRING_T),qbs_new_txt_len(" CUSTOMCALL_",12)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip581; -skip581: +if (new_error) goto skip572; +skip572: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4861);}while(r); +if(!qbevent)break;evnt(4862);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip582; +if (new_error) goto skip573; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip582; -skip582: +if (new_error) goto skip573; +skip573: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4863);}while(r); +if(!qbevent)break;evnt(4864);}while(r); } } -S_5503:; +S_5583:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4865);if(r)goto S_5503;} +if(qbevent){evnt(4866);if(r)goto S_5583;} do{ goto LABEL_DECLIBJMP2; -if(!qbevent)break;evnt(4865);}while(r); +if(!qbevent)break;evnt(4866);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip583; +if (new_error) goto skip574; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip583; -skip583: +if (new_error) goto skip574; +skip574: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4866);}while(r); -S_5507:; +if(!qbevent)break;evnt(4867);}while(r); +S_5587:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(4870);if(r)goto S_5507;} +if(qbevent){evnt(4871);if(r)goto S_5587;} do{ *__LONG_A=qbs_asc(qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4871);}while(r); -S_5509:; +if(!qbevent)break;evnt(4872);}while(r); +S_5589:; if ((-(*__LONG_A== 95 ))||new_error){ -if(qbevent){evnt(4871);if(r)goto S_5509;} +if(qbevent){evnt(4872);if(r)goto S_5589;} do{ *__LONG_A= 91 ; -if(!qbevent)break;evnt(4871);}while(r); +if(!qbevent)break;evnt(4872);}while(r); } do{ *__LONG_A=*__LONG_A- 64 ; -if(!qbevent)break;evnt(4872);}while(r); +if(!qbevent)break;evnt(4873);}while(r); do{ qbs_set(__STRING_SYMBOL,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4873);}while(r); +if(!qbevent)break;evnt(4874);}while(r); } do{ *__LONG_REGINTERNALVARIABLE= 1 ; -if(!qbevent)break;evnt(4875);}while(r); -do{ -*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass584= 0 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4876);}while(r); -S_5517:; +do{ +*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass575= 0 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4877);}while(r); +S_5597:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4877);if(r)goto S_5517;} +if(qbevent){evnt(4878);if(r)goto S_5597;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4877);}while(r); +if(!qbevent)break;evnt(4878);}while(r); } do{ *__LONG_REGINTERNALVARIABLE= 0 ; -if(!qbevent)break;evnt(4878);}while(r); +if(!qbevent)break;evnt(4879);}while(r); do{ sub_close( 19 ,1); -if(!qbevent)break;evnt(4880);}while(r); +if(!qbevent)break;evnt(4881);}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 19 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4880);}while(r); -S_5523:; +if(!qbevent)break;evnt(4881);}while(r); +S_5603:; if (((*__LONG_RETTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(4882);if(r)goto S_5523;} +if(qbevent){evnt(4883);if(r)goto S_5603;} do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass585= 1 ))); +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass576= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4883);}while(r); -S_5525:; +if(!qbevent)break;evnt(4884);}while(r); +S_5605:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4884);if(r)goto S_5525;} +if(qbevent){evnt(4885);if(r)goto S_5605;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4884);}while(r); +if(!qbevent)break;evnt(4885);}while(r); } do{ qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_add(__STRING_SUBFUNCRET,qbs_new_txt_len("qbs_maketmp(",12)),__STRING_R),qbs_new_txt_len(");",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4885);}while(r); +if(!qbevent)break;evnt(4886);}while(r); do{ qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_add(__STRING_SUBFUNCRET,qbs_new_txt_len("return ",7)),__STRING_R),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4886);}while(r); +if(!qbevent)break;evnt(4887);}while(r); }else{ do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass586= 0 ))); +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass577= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4888);}while(r); -S_5532:; +if(!qbevent)break;evnt(4889);}while(r); +S_5612:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4889);if(r)goto S_5532;} +if(qbevent){evnt(4890);if(r)goto S_5612;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4889);}while(r); +if(!qbevent)break;evnt(4890);}while(r); } do{ qbs_set(__STRING_SUBFUNCRET,qbs_add(qbs_add(qbs_new_txt_len("return ",7),__STRING_R),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4890);}while(r); +if(!qbevent)break;evnt(4891);}while(r); } }else{ -S_5538:; +S_5618:; if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ -if(qbevent){evnt(4894);if(r)goto S_5538;} -S_5539:; +if(qbevent){evnt(4895);if(r)goto S_5618;} +S_5619:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4895);if(r)goto S_5539;} +if(qbevent){evnt(4896);if(r)goto S_5619;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip587; +if (new_error) goto skip578; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("typedef void (CALLBACK* DLLCALL_",32),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len(")(",2)), 0 , 0 , 0 ); -if (new_error) goto skip587; -skip587: +if (new_error) goto skip578; +skip578: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4896);}while(r); +if(!qbevent)break;evnt(4897);}while(r); } -S_5542:; +S_5622:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4898);if(r)goto S_5542;} +if(qbevent){evnt(4899);if(r)goto S_5622;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip588; +if (new_error) goto skip579; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("typedef void (*DLLCALL_",23),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len(")(",2)), 0 , 0 , 0 ); -if (new_error) goto skip588; -skip588: +if (new_error) goto skip579; +skip579: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4899);}while(r); +if(!qbevent)break;evnt(4900);}while(r); } -S_5545:; +S_5625:; }else{ if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ -if(qbevent){evnt(4901);if(r)goto S_5545;} +if(qbevent){evnt(4902);if(r)goto S_5625;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip589; +if (new_error) goto skip580; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("typedef void CUSTOMCALL_",24),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip589; -skip589: +if (new_error) goto skip580; +skip580: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4902);}while(r); +if(!qbevent)break;evnt(4903);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip590; +if (new_error) goto skip581; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip590; -skip590: +if (new_error) goto skip581; +skip581: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4904);}while(r); +if(!qbevent)break;evnt(4905);}while(r); } } -S_5550:; +S_5630:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4906);if(r)goto S_5550;} +if(qbevent){evnt(4907);if(r)goto S_5630;} do{ goto LABEL_DECLIBJMP2; -if(!qbevent)break;evnt(4906);}while(r); +if(!qbevent)break;evnt(4907);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip591; +if (new_error) goto skip582; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void ",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)))),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip591; -skip591: +if (new_error) goto skip582; +skip582: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4907);}while(r); +if(!qbevent)break;evnt(4908);}while(r); } LABEL_DECLIBJMP2:; -if(qbevent){evnt(4909);r=0;} +if(qbevent){evnt(4910);r=0;} do{ *__LONG_ADDSTATIC2LAYOUT= 0 ; -if(!qbevent)break;evnt(4911);}while(r); +if(!qbevent)break;evnt(4912);}while(r); do{ *__LONG_STATICSF= 0 ; -if(!qbevent)break;evnt(4912);}while(r); +if(!qbevent)break;evnt(4913);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4913);}while(r); -S_5558:; +if(!qbevent)break;evnt(4914);}while(r); +S_5638:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(4914);if(r)goto S_5558;} -S_5559:; +if(qbevent){evnt(4915);if(r)goto S_5638;} +S_5639:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4915);if(r)goto S_5559;} +if(qbevent){evnt(4916);if(r)goto S_5639;} do{ qbs_set(__STRING_A,qbs_new_txt_len("STATIC cannot be used in a library declaration",46)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4915);}while(r); +if(!qbevent)break;evnt(4916);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4915);}while(r); +if(!qbevent)break;evnt(4916);}while(r); } do{ *__LONG_ADDSTATIC2LAYOUT= 1 ; -if(!qbevent)break;evnt(4916);}while(r); +if(!qbevent)break;evnt(4917);}while(r); do{ *__LONG_STATICSF= 2 ; -if(!qbevent)break;evnt(4917);}while(r); +if(!qbevent)break;evnt(4918);}while(r); do{ qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4918);}while(r); +if(!qbevent)break;evnt(4919);}while(r); do{ *__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(4918);}while(r); +if(!qbevent)break;evnt(4919);}while(r); } do{ *__LONG_PARAMS= 0 ; -if(!qbevent)break;evnt(4922);}while(r); +if(!qbevent)break;evnt(4923);}while(r); do{ *__LONG_ALLOWLOCALNAME= 1 ; -if(!qbevent)break;evnt(4923);}while(r); -S_5570:; +if(!qbevent)break;evnt(4924);}while(r); +S_5650:; if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(4924);if(r)goto S_5570;} +if(qbevent){evnt(4925);if(r)goto S_5650;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass593= 3 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass584= 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4925);}while(r); -S_5572:; +if(!qbevent)break;evnt(4926);}while(r); +S_5652:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(4926);if(r)goto S_5572;} +if(qbevent){evnt(4927);if(r)goto S_5652;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4926);}while(r); +if(!qbevent)break;evnt(4927);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4926);}while(r); +if(!qbevent)break;evnt(4927);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4927);}while(r); -S_5577:; +if(!qbevent)break;evnt(4928);}while(r); +S_5657:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(4928);if(r)goto S_5577;} +if(qbevent){evnt(4929);if(r)goto S_5657;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4928);}while(r); +if(!qbevent)break;evnt(4929);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4928);}while(r); +if(!qbevent)break;evnt(4929);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("(",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4929);}while(r); -S_5582:; +if(!qbevent)break;evnt(4930);}while(r); +S_5662:; if ((-(*__LONG_N== 4 ))||new_error){ -if(qbevent){evnt(4930);if(r)goto S_5582;} +if(qbevent){evnt(4931);if(r)goto S_5662;} do{ goto LABEL_NOSFPARAMS2; -if(!qbevent)break;evnt(4930);}while(r); +if(!qbevent)break;evnt(4931);}while(r); } -S_5585:; +S_5665:; if ((-(*__LONG_N< 4 ))||new_error){ -if(qbevent){evnt(4931);if(r)goto S_5585;} +if(qbevent){evnt(4932);if(r)goto S_5665;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4931);}while(r); +if(!qbevent)break;evnt(4932);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4931);}while(r); +if(!qbevent)break;evnt(4932);}while(r); } do{ *__LONG_B= 0 ; -if(!qbevent)break;evnt(4932);}while(r); +if(!qbevent)break;evnt(4933);}while(r); do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4933);}while(r); -S_5591:; -fornext_value595= 4 ; -fornext_finalvalue595=*__LONG_N- 1 ; -fornext_step595= 1 ; -if (fornext_step595<0) fornext_step_negative595=1; else fornext_step_negative595=0; -if (new_error) goto fornext_error595; -goto fornext_entrylabel595; +if(!qbevent)break;evnt(4934);}while(r); +S_5671:; +fornext_value586= 4 ; +fornext_finalvalue586=*__LONG_N- 1 ; +fornext_step586= 1 ; +if (fornext_step586<0) fornext_step_negative586=1; else fornext_step_negative586=0; +if (new_error) goto fornext_error586; +goto fornext_entrylabel586; while(1){ -fornext_value595=fornext_step595+(*__LONG_I); -fornext_entrylabel595: -*__LONG_I=fornext_value595; -if (fornext_step_negative595){ -if (fornext_value595fornext_finalvalue595) break; +if (fornext_value586>fornext_finalvalue586) break; } -fornext_error595:; -if(qbevent){evnt(4934);if(r)goto S_5591;} +fornext_error586:; +if(qbevent){evnt(4935);if(r)goto S_5671;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4935);}while(r); -S_5593:; +if(!qbevent)break;evnt(4936);}while(r); +S_5673:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(4936);if(r)goto S_5593;} +if(qbevent){evnt(4937);if(r)goto S_5673;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(4936);}while(r); -} -S_5596:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(4937);if(r)goto S_5596;} -do{ -*__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(4937);}while(r); } -S_5599:; +S_5676:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(4938);if(r)goto S_5676;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(4938);}while(r); +} +S_5679:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(4938);if(r)goto S_5599;} -S_5600:; +if(qbevent){evnt(4939);if(r)goto S_5679;} +S_5680:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(4939);if(r)goto S_5600;} +if(qbevent){evnt(4940);if(r)goto S_5680;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4939);}while(r); +if(!qbevent)break;evnt(4940);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4939);}while(r); +if(!qbevent)break;evnt(4940);}while(r); } LABEL_GETLASTPARAM2:; -if(qbevent){evnt(4940);r=0;} -S_5604:; +if(qbevent){evnt(4941);r=0;} +S_5684:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(4941);if(r)goto S_5604;} +if(qbevent){evnt(4942);if(r)goto S_5684;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4941);}while(r); +if(!qbevent)break;evnt(4942);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4941);}while(r); +if(!qbevent)break;evnt(4942);}while(r); } do{ qbs_set(__STRING_A2,qbs_left(__STRING_A2,__STRING_A2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4942);}while(r); +if(!qbevent)break;evnt(4943);}while(r); do{ *__LONG_PARAMS=*__LONG_PARAMS+ 1 ; -if(!qbevent)break;evnt(4944);}while(r); -do{ -*__LONG_GLINKID=*__LONG_TARGETID; if(!qbevent)break;evnt(4945);}while(r); do{ -*__INTEGER_GLINKARG=*__LONG_PARAMS; +*__LONG_GLINKID=*__LONG_TARGETID; if(!qbevent)break;evnt(4946);}while(r); -S_5612:; +do{ +*__INTEGER_GLINKARG=*__LONG_PARAMS; +if(!qbevent)break;evnt(4947);}while(r); +S_5692:; if ((-(*__LONG_PARAMS> 1 ))||new_error){ -if(qbevent){evnt(4950);if(r)goto S_5612;} +if(qbevent){evnt(4951);if(r)goto S_5692;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip597; +if (new_error) goto skip588; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); -if (new_error) goto skip597; -skip597: +if (new_error) goto skip588; +skip588: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4951);}while(r); -S_5614:; +if(!qbevent)break;evnt(4952);}while(r); +S_5694:; if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4953);if(r)goto S_5614;} +if(qbevent){evnt(4954);if(r)goto S_5694;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip598; +if (new_error) goto skip589; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); -if (new_error) goto skip598; -skip598: +if (new_error) goto skip589; +skip589: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(4954);}while(r); +if(!qbevent)break;evnt(4955);}while(r); } } do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4958);}while(r); +if(!qbevent)break;evnt(4959);}while(r); do{ *__LONG_ARRAY= 0 ; -if(!qbevent)break;evnt(4959);}while(r); +if(!qbevent)break;evnt(4960);}while(r); do{ qbs_set(__STRING_T2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4960);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass599= 1 ))); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4961);}while(r); do{ -*__LONG_BYVALUE= 0 ; -if(!qbevent)break;evnt(4963);}while(r); -S_5623:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||new_error){ -if(qbevent){evnt(4964);if(r)goto S_5623;} -S_5624:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4965);if(r)goto S_5624;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can currently only be used with DECLARE LIBRARY",53)); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass590= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4965);}while(r); +if(!qbevent)break;evnt(4962);}while(r); +do{ +*__LONG_BYVALUE= 0 ; +if(!qbevent)break;evnt(4964);}while(r); +S_5703:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||new_error){ +if(qbevent){evnt(4965);if(r)goto S_5703;} +S_5704:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4966);if(r)goto S_5704;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("BYVAL can only be used with DECLARE LIBRARY",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4966);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4965);}while(r); +if(!qbevent)break;evnt(4966);}while(r); } do{ *__LONG_BYVALUE= 1 ; -if(!qbevent)break;evnt(4966);}while(r); +if(!qbevent)break;evnt(4967);}while(r); do{ qbs_set(__STRING_A2,qbs_right(__STRING_A2,__STRING_A2->len- 6 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4966);}while(r); -S_5630:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(4967);if(r)goto S_5630;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("BYVAL",5))); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(4967);}while(r); +S_5710:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(4968);if(r)goto S_5710;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_SCASE(qbs_new_txt_len("ByVal",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4968);}while(r); }else{ do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("BYVAL",5))); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Byval",5)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4967);}while(r); +if(!qbevent)break;evnt(4968);}while(r); } do{ *__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4968);}while(r); +if(!qbevent)break;evnt(4969);}while(r); do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass601= 1 ))); +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass592= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4968);}while(r); +if(!qbevent)break;evnt(4969);}while(r); } -S_5638:; +S_5718:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(4971);if(r)goto S_5638;} +if(qbevent){evnt(4972);if(r)goto S_5718;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4971);}while(r); +if(!qbevent)break;evnt(4972);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4971);}while(r); +if(!qbevent)break;evnt(4972);}while(r); } do{ qbs_set(__STRING_N2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4973);}while(r); +if(!qbevent)break;evnt(4974);}while(r); do{ *__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(4974);}while(r); +if(!qbevent)break;evnt(4975);}while(r); do{ qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4977);}while(r); -S_5646:; +if(!qbevent)break;evnt(4978);}while(r); +S_5726:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ -if(qbevent){evnt(4978);if(r)goto S_5646;} +if(qbevent){evnt(4979);if(r)goto S_5726;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4978);}while(r); +if(!qbevent)break;evnt(4979);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4978);}while(r); +if(!qbevent)break;evnt(4979);}while(r); } -S_5650:; +S_5730:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4980);if(r)goto S_5650;} +if(qbevent){evnt(4981);if(r)goto S_5730;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4980);}while(r); +if(!qbevent)break;evnt(4981);}while(r); } -S_5653:; +S_5733:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(4981);if(r)goto S_5653;} +if(qbevent){evnt(4982);if(r)goto S_5733;} do{ *__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(4981);}while(r); +if(!qbevent)break;evnt(4982);}while(r); } do{ *__LONG_M= 0 ; -if(!qbevent)break;evnt(4982);}while(r); -S_5657:; -fornext_value603= 2 ; -fornext_finalvalue603=*__LONG_N2; -fornext_step603= 1 ; -if (fornext_step603<0) fornext_step_negative603=1; else fornext_step_negative603=0; -if (new_error) goto fornext_error603; -goto fornext_entrylabel603; +if(!qbevent)break;evnt(4983);}while(r); +S_5737:; +fornext_value594= 2 ; +fornext_finalvalue594=*__LONG_N2; +fornext_step594= 1 ; +if (fornext_step594<0) fornext_step_negative594=1; else fornext_step_negative594=0; +if (new_error) goto fornext_error594; +goto fornext_entrylabel594; while(1){ -fornext_value603=fornext_step603+(*__LONG_I2); -fornext_entrylabel603: -*__LONG_I2=fornext_value603; -if (fornext_step_negative603){ -if (fornext_value603fornext_finalvalue603) break; +if (fornext_value594>fornext_finalvalue594) break; } -fornext_error603:; -if(qbevent){evnt(4983);if(r)goto S_5657;} +fornext_error594:; +if(qbevent){evnt(4984);if(r)goto S_5737;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4984);}while(r); -S_5659:; +if(!qbevent)break;evnt(4985);}while(r); +S_5739:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(4985);if(r)goto S_5659;} -S_5660:; +if(qbevent){evnt(4986);if(r)goto S_5739;} +S_5740:; if ((-(*__LONG_M!= 0 ))||new_error){ -if(qbevent){evnt(4986);if(r)goto S_5660;} +if(qbevent){evnt(4987);if(r)goto S_5740;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many opening brackets",40)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4986);}while(r); +if(!qbevent)break;evnt(4987);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4986);}while(r); +if(!qbevent)break;evnt(4987);}while(r); } do{ *__LONG_M= 1 ; -if(!qbevent)break;evnt(4987);}while(r); +if(!qbevent)break;evnt(4988);}while(r); do{ *__LONG_ARRAY= 1 ; -if(!qbevent)break;evnt(4988);}while(r); +if(!qbevent)break;evnt(4989);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("(",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4989);}while(r); +if(!qbevent)break;evnt(4990);}while(r); do{ goto LABEL_GOTAA2; -if(!qbevent)break;evnt(4990);}while(r); +if(!qbevent)break;evnt(4991);}while(r); } -S_5669:; +S_5749:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(4992);if(r)goto S_5669;} -S_5670:; +if(qbevent){evnt(4993);if(r)goto S_5749;} +S_5750:; if ((-(*__LONG_M!= 1 ))||new_error){ -if(qbevent){evnt(4993);if(r)goto S_5670;} +if(qbevent){evnt(4994);if(r)goto S_5750;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - closing bracket without opening bracket",54)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4993);}while(r); +if(!qbevent)break;evnt(4994);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4993);}while(r); +if(!qbevent)break;evnt(4994);}while(r); } do{ *__LONG_M= 2 ; -if(!qbevent)break;evnt(4994);}while(r); +if(!qbevent)break;evnt(4995);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4995);}while(r); +if(!qbevent)break;evnt(4996);}while(r); do{ goto LABEL_GOTAA2; -if(!qbevent)break;evnt(4996);}while(r); +if(!qbevent)break;evnt(4997);}while(r); } -S_5678:; +S_5758:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(4998);if(r)goto S_5678;} -S_5679:; +if(qbevent){evnt(4999);if(r)goto S_5758;} +S_5759:; if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ -if(qbevent){evnt(4999);if(r)goto S_5679;} +if(qbevent){evnt(5000);if(r)goto S_5759;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4999);}while(r); +if(!qbevent)break;evnt(5000);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(4999);}while(r); +if(!qbevent)break;evnt(5000);}while(r); } do{ *__LONG_M= 3 ; -if(!qbevent)break;evnt(5000);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("AS",2))); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5001);}while(r); do{ -goto LABEL_GOTAA2; +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2)))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5002);}while(r); +do{ +goto LABEL_GOTAA2; +if(!qbevent)break;evnt(5003);}while(r); } -S_5687:; +S_5767:; if ((-(*__LONG_M== 1 ))||new_error){ -if(qbevent){evnt(5004);if(r)goto S_5687;} +if(qbevent){evnt(5005);if(r)goto S_5767;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5004);}while(r); +if(!qbevent)break;evnt(5005);}while(r); do{ goto LABEL_GOTAA2; -if(!qbevent)break;evnt(5004);}while(r); -} -S_5691:; -if ((-(*__LONG_M!= 3 ))||new_error){ -if(qbevent){evnt(5005);if(r)goto S_5691;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5005);}while(r); +} +S_5771:; +if ((-(*__LONG_M!= 3 ))||new_error){ +if(qbevent){evnt(5006);if(r)goto S_5771;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5006);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5005);}while(r); +if(!qbevent)break;evnt(5006);}while(r); } -S_5695:; +S_5775:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5006);if(r)goto S_5695;} +if(qbevent){evnt(5007);if(r)goto S_5775;} do{ qbs_set(__STRING_T2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5006);}while(r); +if(!qbevent)break;evnt(5007);}while(r); }else{ do{ qbs_set(__STRING_T2,qbs_add(qbs_add(__STRING_T2,qbs_new_txt_len(" ",1)),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5006);}while(r); +if(!qbevent)break;evnt(5007);}while(r); } LABEL_GOTAA2:; -if(qbevent){evnt(5007);r=0;} -fornext_continue_602:; +if(qbevent){evnt(5008);r=0;} +fornext_continue_593:; } -fornext_exit_602:; -S_5701:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(5009);if(r)goto S_5701;} +fornext_exit_593:; +S_5781:; +if ((-(*__LONG_M== 1 ))||new_error){ +if(qbevent){evnt(5010);if(r)goto S_5781;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check your brackets",34)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5009);}while(r); +if(!qbevent)break;evnt(5010);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5009);}while(r); +if(!qbevent)break;evnt(5010);}while(r); } -S_5705:; +S_5785:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(5011);if(r)goto S_5785;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - check parameter types",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5011);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5011);}while(r); +} +S_5789:; if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||new_error){ -if(qbevent){evnt(5012);if(r)goto S_5705;} +if(qbevent){evnt(5014);if(r)goto S_5789;} do{ qbs_set(__STRING_T2,qbs_ucase(__STRING_T2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5013);}while(r); +if(!qbevent)break;evnt(5015);}while(r); do{ qbs_set(__STRING_T3,__STRING_T2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5014);}while(r); +if(!qbevent)break;evnt(5016);}while(r); do{ *__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5015);}while(r); -S_5709:; +if(!qbevent)break;evnt(5017);}while(r); +S_5793:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5016);if(r)goto S_5709;} +if(qbevent){evnt(5018);if(r)goto S_5793;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5016);}while(r); +if(!qbevent)break;evnt(5018);}while(r); } -S_5712:; +S_5796:; if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(5017);if(r)goto S_5712;} +if(qbevent){evnt(5019);if(r)goto S_5796;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5017);}while(r); +if(!qbevent)break;evnt(5019);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5017);}while(r); +if(!qbevent)break;evnt(5019);}while(r); } -S_5716:; +S_5800:; if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(5018);if(r)goto S_5716;} +if(qbevent){evnt(5020);if(r)goto S_5800;} +S_5801:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T3),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(5021);if(r)goto S_5801;} +do{ +qbs_set(__STRING_T3,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5022);}while(r); +}else{ do{ qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5019);}while(r); -}else{ -S_5719:; -fornext_value606= 1 ; -fornext_finalvalue606=4; -fornext_step606= 1 ; -if (fornext_step606<0) fornext_step_negative606=1; else fornext_step_negative606=0; -if (new_error) goto fornext_error606; -goto fornext_entrylabel606; -while(1){ -fornext_value606=fornext_step606+(*__LONG_T3I); -fornext_entrylabel606: -*__LONG_T3I=fornext_value606; -if (fornext_step_negative606){ -if (fornext_value606fornext_finalvalue606) break; +if(!qbevent)break;evnt(5024);}while(r); } -fornext_error606:; -if(qbevent){evnt(5021);if(r)goto S_5719;} -S_5720:; +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5026);}while(r); +}else{ +S_5808:; +fornext_value597= 1 ; +fornext_finalvalue597=__STRING_T3->len; +fornext_step597= 1 ; +if (fornext_step597<0) fornext_step_negative597=1; else fornext_step_negative597=0; +if (new_error) goto fornext_error597; +goto fornext_entrylabel597; +while(1){ +fornext_value597=fornext_step597+(*__LONG_T3I); +fornext_entrylabel597: +*__LONG_T3I=fornext_value597; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative597){ +if (fornext_value597fornext_finalvalue597) break; +} +fornext_error597:; +if(qbevent){evnt(5028);if(r)goto S_5808;} +S_5809:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||new_error){ -if(qbevent){evnt(5022);if(r)goto S_5720;} +if(qbevent){evnt(5029);if(r)goto S_5809;} do{ tqbs=__STRING_T3; if (!new_error){ tmp_fileno=*__LONG_T3I; if (!new_error){ tmp_long=qbs_asc(__STRING1_SP); if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(5022);}while(r); +if(!qbevent)break;evnt(5029);}while(r); } -fornext_continue_605:; -} -fornext_exit_605:; +fornext_continue_596:; } +fornext_exit_596:; +do{ +qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5031);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_T3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5025);}while(r); +if(!qbevent)break;evnt(5032);}while(r); } -S_5727:; +} +S_5817:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5028);if(r)goto S_5727;} +if(qbevent){evnt(5036);if(r)goto S_5817;} do{ qbs_set(__STRING_T2,__STRING_SYMBOL2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5028);}while(r); +if(!qbevent)break;evnt(5036);}while(r); } -S_5730:; +S_5820:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5029);if(r)goto S_5730;} -S_5731:; +if(qbevent){evnt(5037);if(r)goto S_5820;} +S_5821:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(5030);if(r)goto S_5731;} +if(qbevent){evnt(5038);if(r)goto S_5821;} do{ *__LONG_V= 27 ; -if(!qbevent)break;evnt(5030);}while(r); +if(!qbevent)break;evnt(5038);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5030);}while(r); +if(!qbevent)break;evnt(5038);}while(r); } do{ qbs_set(__STRING_T2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5031);}while(r); +if(!qbevent)break;evnt(5039);}while(r); do{ *__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(5032);}while(r); +if(!qbevent)break;evnt(5040);}while(r); } -S_5739:; +S_5829:; if ((-(*__LONG_ARRAY== 1 ))||new_error){ -if(qbevent){evnt(5038);if(r)goto S_5739;} -S_5740:; +if(qbevent){evnt(5046);if(r)goto S_5829;} +S_5830:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5039);if(r)goto S_5740;} +if(qbevent){evnt(5047);if(r)goto S_5830;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Arrays cannot be passed to a library",36)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5039);}while(r); +if(!qbevent)break;evnt(5047);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5039);}while(r); +if(!qbevent)break;evnt(5047);}while(r); } do{ *__INTEGER_DIMSFARRAY= 1 ; -if(!qbevent)break;evnt(5040);}while(r); +if(!qbevent)break;evnt(5048);}while(r); do{ *__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_PARAMS, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5042);}while(r); -S_5746:; +if(!qbevent)break;evnt(5050);}while(r); +S_5836:; if ((*__LONG_NELEREQ)||new_error){ -if(qbevent){evnt(5043);if(r)goto S_5746;} +if(qbevent){evnt(5051);if(r)goto S_5836;} do{ *__LONG_NELE=*__LONG_NELEREQ; -if(!qbevent)break;evnt(5044);}while(r); -do{ -sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1); -if(!qbevent)break;evnt(5045);}while(r); -do{ -memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0,((char*)__UDT_ID2)+(0)+ 0, 2863); -if(!qbevent)break;evnt(5047);}while(r); -do{ -*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,FUNC_STR2(__LONG_NELE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5049);}while(r); -S_5751:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5050);if(r)goto S_5751;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5050);}while(r); -} -}else{ -do{ -*__LONG_NELE= 1 ; if(!qbevent)break;evnt(5052);}while(r); do{ sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1); if(!qbevent)break;evnt(5053);}while(r); do{ -memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0,((char*)__UDT_ID2)+(0)+ 0, 2863); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID2)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID2)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID2)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID2)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID2)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID2)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID2)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID2)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID2)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID2)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID2)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID2)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID2)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID2)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID2)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID2)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID2)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID2)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID2)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID2)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID2)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID2)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID2)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID2)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID2)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID2)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID2)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID2)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID2)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID2)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID2)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID2)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID2)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID2)+(0)+ 2861)); if(!qbevent)break;evnt(5055);}while(r); do{ -*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("?",1)); +*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,FUNC_STR2(__LONG_NELE)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(5057);}while(r); -S_5759:; +S_5841:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5058);if(r)goto S_5759;} +if(qbevent){evnt(5058);if(r)goto S_5841;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(5058);}while(r); } +}else{ +do{ +*__LONG_NELE= 1 ; +if(!qbevent)break;evnt(5060);}while(r); +do{ +sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_PARAMS, 1 ,func_chr(*__LONG_NELE),1); +if(!qbevent)break;evnt(5061);}while(r); +do{ +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID2)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID2)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID2)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID2)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID2)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID2)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID2)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID2)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID2)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID2)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID2)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID2)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID2)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID2)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID2)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID2)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID2)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID2)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID2)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID2)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID2)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID2)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID2)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID2)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID2)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID2)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID2)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID2)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID2)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID2)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID2)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID2)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID2)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID2)+(0)+ 2861)); +if(!qbevent)break;evnt(5063);}while(r); +do{ +*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5065);}while(r); +S_5849:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5066);if(r)goto S_5849;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5066);}while(r); +} } do{ *__INTEGER_DIMSFARRAY= 0 ; -if(!qbevent)break;evnt(5061);}while(r); +if(!qbevent)break;evnt(5069);}while(r); do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass608= 1 ))); +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass599= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5062);}while(r); -S_5765:; +if(!qbevent)break;evnt(5070);}while(r); +S_5855:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5063);if(r)goto S_5765;} +if(qbevent){evnt(5071);if(r)goto S_5855;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5063);}while(r); +if(!qbevent)break;evnt(5071);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip609; +if (new_error) goto skip600; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R), 0 , 0 , 0 ); -if (new_error) goto skip609; -skip609: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5064);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip610; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R), 0 , 0 , 0 ); -if (new_error) goto skip610; -skip610: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5065);}while(r); -}else{ -S_5771:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5068);if(r)goto S_5771;} -S_5772:; -fornext_value612= 1 ; -fornext_finalvalue612=*__LONG_LASTTYPE; -fornext_step612= 1 ; -if (fornext_step612<0) fornext_step_negative612=1; else fornext_step_negative612=0; -if (new_error) goto fornext_error612; -goto fornext_entrylabel612; -while(1){ -fornext_value612=fornext_step612+(*__LONG_XX); -fornext_entrylabel612: -*__LONG_XX=fornext_value612; -if (fornext_step_negative612){ -if (fornext_value612fornext_finalvalue612) break; -} -fornext_error612:; -if(qbevent){evnt(5070);if(r)goto S_5772;} -S_5773:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_XX)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ -if(qbevent){evnt(5071);if(r)goto S_5773;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip613; -sub_file_print(tmp_fileno,qbs_new_txt_len("void*",5), 0 , 0 , 1 ); -if (new_error) goto skip613; -skip613: +if (new_error) goto skip600; +skip600: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5072);}while(r); do{ -goto LABEL_DECUDT; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip601; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R), 0 , 0 , 0 ); +if (new_error) goto skip601; +skip601: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(5073);}while(r); +}else{ +S_5861:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5076);if(r)goto S_5861;} +S_5862:; +fornext_value603= 1 ; +fornext_finalvalue603=*__LONG_LASTTYPE; +fornext_step603= 1 ; +if (fornext_step603<0) fornext_step_negative603=1; else fornext_step_negative603=0; +if (new_error) goto fornext_error603; +goto fornext_entrylabel603; +while(1){ +fornext_value603=fornext_step603+(*__LONG_XX); +fornext_entrylabel603: +*__LONG_XX=fornext_value603; +if (fornext_step_negative603){ +if (fornext_value603fornext_finalvalue603) break; } -fornext_continue_611:; -} -fornext_exit_611:; -do{ -qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass614= 0 ),__STRING_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5076);}while(r); -S_5779:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5078);if(r)goto S_5779;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5078);}while(r); -} -S_5782:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(5079);if(r)goto S_5782;} -do{ -qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5080);}while(r); -S_5784:; -if ((-(*__LONG_BYVALUE== 1 ))||new_error){ -if(qbevent){evnt(5081);if(r)goto S_5784;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("STRINGs cannot be passed using BYVAL",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5081);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5081);}while(r); -} -do{ -*__LONG_BYVALUE= 1 ; -if(!qbevent)break;evnt(5082);}while(r); -} -S_5790:; -if ((*__LONG_BYVALUE)||new_error){ -if(qbevent){evnt(5084);if(r)goto S_5790;} +fornext_error603:; +if(qbevent){evnt(5078);if(r)goto S_5862;} +S_5863:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_XX)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ +if(qbevent){evnt(5079);if(r)goto S_5863;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip615; -sub_file_print(tmp_fileno,__STRING_T, 0 , 0 , 0 ); -if (new_error) goto skip615; -skip615: +if (new_error) goto skip604; +sub_file_print(tmp_fileno,qbs_new_txt_len("void*",5), 0 , 0 , 1 ); +if (new_error) goto skip604; +skip604: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; +if(!qbevent)break;evnt(5080);}while(r); +do{ +goto LABEL_DECUDT; +if(!qbevent)break;evnt(5081);}while(r); +S_5866:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*__LONG_XX)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(__STRING_T2,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 )))){ +if(qbevent){evnt(5082);if(r)goto S_5866;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; +if (new_error) goto skip605; +sub_file_print(tmp_fileno,qbs_new_txt_len("void*",5), 0 , 0 , 1 ); +if (new_error) goto skip605; +skip605: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5083);}while(r); +do{ +goto LABEL_DECUDT; if(!qbevent)break;evnt(5084);}while(r); +} +} +fornext_continue_602:; +} +fornext_exit_602:; +do{ +qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass606= 0 ),__STRING_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5087);}while(r); +S_5872:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5089);if(r)goto S_5872;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5089);}while(r); +} +S_5875:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ +if(qbevent){evnt(5090);if(r)goto S_5875;} +do{ +qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5091);}while(r); +S_5877:; +if ((-(*__LONG_BYVALUE== 1 ))||new_error){ +if(qbevent){evnt(5092);if(r)goto S_5877;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("STRINGs cannot be passed using BYVAL",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5092);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5092);}while(r); +} +do{ +*__LONG_BYVALUE= 1 ; +if(!qbevent)break;evnt(5093);}while(r); +} +S_5883:; +if ((*__LONG_BYVALUE)||new_error){ +if(qbevent){evnt(5095);if(r)goto S_5883;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; +if (new_error) goto skip607; +sub_file_print(tmp_fileno,__STRING_T, 0 , 0 , 0 ); +if (new_error) goto skip607; +skip607: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5095);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip616; +if (new_error) goto skip608; sub_file_print(tmp_fileno,qbs_add(__STRING_T,qbs_new_txt_len("*",1)), 0 , 0 , 0 ); -if (new_error) goto skip616; -skip616: +if (new_error) goto skip608; +skip608: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5084);}while(r); +if(!qbevent)break;evnt(5095);}while(r); } LABEL_DECUDT:; -if(qbevent){evnt(5085);r=0;} +if(qbevent){evnt(5096);r=0;} do{ goto LABEL_DECLIBJMP3; -if(!qbevent)break;evnt(5086);}while(r); +if(!qbevent)break;evnt(5097);}while(r); } do{ *__INTEGER_DIMSFARRAY= 1 ; -if(!qbevent)break;evnt(5089);}while(r); +if(!qbevent)break;evnt(5100);}while(r); do{ *__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5090);}while(r); -S_5799:; +if(!qbevent)break;evnt(5101);}while(r); +S_5892:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5091);if(r)goto S_5799;} +if(qbevent){evnt(5102);if(r)goto S_5892;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5091);}while(r); +if(!qbevent)break;evnt(5102);}while(r); } do{ *__INTEGER_DIMSFARRAY= 0 ; -if(!qbevent)break;evnt(5094);}while(r); +if(!qbevent)break;evnt(5105);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5095);}while(r); +if(!qbevent)break;evnt(5106);}while(r); do{ *__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(5096);}while(r); +if(!qbevent)break;evnt(5107);}while(r); do{ qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TYP,qbs_new_txt_len("",0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5098);}while(r); -S_5806:; +if(!qbevent)break;evnt(5109);}while(r); +S_5899:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5099);if(r)goto S_5806;} +if(qbevent){evnt(5110);if(r)goto S_5899;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5099);}while(r); +if(!qbevent)break;evnt(5110);}while(r); } -S_5809:; +S_5902:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5103);if(r)goto S_5809;} +if(qbevent){evnt(5114);if(r)goto S_5902;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Cannot find C type to return array data",39)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5103);}while(r); +if(!qbevent)break;evnt(5114);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5103);}while(r); +if(!qbevent)break;evnt(5114);}while(r); } do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass617= 1 ))); +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass609= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5106);}while(r); -S_5814:; +if(!qbevent)break;evnt(5117);}while(r); +S_5907:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5107);if(r)goto S_5814;} +if(qbevent){evnt(5118);if(r)goto S_5907;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5107);}while(r); +if(!qbevent)break;evnt(5118);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip618; +if (new_error) goto skip610; sub_file_print(tmp_fileno,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R), 0 , 0 , 0 ); -if (new_error) goto skip618; -skip618: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5108);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip619; -sub_file_print(tmp_fileno,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R), 0 , 0 , 0 ); -if (new_error) goto skip619; -skip619: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5109);}while(r); -S_5819:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(5110);if(r)goto S_5819;} -do{ -qbs_set(__STRING_U,FUNC_STR2(&(pass620=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5111);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip621; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs*oldstr",10),__STRING_U),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip621; -skip621: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5112);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip622; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_R),qbs_new_txt_len("->tmp||",7)),__STRING_R),qbs_new_txt_len("->fixed||",9)),__STRING_R),qbs_new_txt_len("->readonly){",12)), 0 , 0 , 1 ); -if (new_error) goto skip622; -skip622: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5113);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip623; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("oldstr",6),__STRING_U),qbs_new_txt_len("=",1)),__STRING_R),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip623; -skip623: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5114);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip624; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (oldstr",10),__STRING_U),qbs_new_txt_len("->cmem_descriptor){",19)), 0 , 0 , 1 ); -if (new_error) goto skip624; -skip624: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5116);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip625; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new_cmem(oldstr",20)),__STRING_U),qbs_new_txt_len("->len,0);",9)), 0 , 0 , 1 ); -if (new_error) goto skip625; -skip625: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5117);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip626; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip626; -skip626: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5118);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip627; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new(oldstr",15)),__STRING_U),qbs_new_txt_len("->len,0);",9)), 0 , 0 , 1 ); -if (new_error) goto skip627; -skip627: +if (new_error) goto skip610; +skip610: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5119);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip628; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip628; -skip628: +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip611; +sub_file_print(tmp_fileno,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len("*",1)),__STRING_R), 0 , 0 , 0 ); +if (new_error) goto skip611; +skip611: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5120);}while(r); +S_5912:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ +if(qbevent){evnt(5121);if(r)goto S_5912;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip629; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),__STRING_R),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->len);",7)), 0 , 0 , 1 ); -if (new_error) goto skip629; -skip629: +qbs_set(__STRING_U,FUNC_STR2(&(pass612=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(5122);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip630; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip630; -skip630: +if (new_error) goto skip613; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs*oldstr",10),__STRING_U),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip613; +skip613: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5123);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip631; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip631; -skip631: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip614; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_R),qbs_new_txt_len("->tmp||",7)),__STRING_R),qbs_new_txt_len("->fixed||",9)),__STRING_R),qbs_new_txt_len("->readonly){",12)), 0 , 0 , 1 ); +if (new_error) goto skip614; +skip614: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5124);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip615; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("oldstr",6),__STRING_U),qbs_new_txt_len("=",1)),__STRING_R),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip615; +skip615: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5125);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip632; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("->fixed)qbs_set(oldstr",22)),__STRING_U),qbs_new_txt_len(",",1)),__STRING_R),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip632; -skip632: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5126);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip633; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),__STRING_R),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip633; -skip633: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip616; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (oldstr",10),__STRING_U),qbs_new_txt_len("->cmem_descriptor){",19)), 0 , 0 , 1 ); +if (new_error) goto skip616; +skip616: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5127);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip634; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip634; -skip634: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip617; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new_cmem(oldstr",20)),__STRING_U),qbs_new_txt_len("->len,0);",9)), 0 , 0 , 1 ); +if (new_error) goto skip617; +skip617: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5128);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip618; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip618; +skip618: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5129);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip619; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_R,qbs_new_txt_len("=qbs_new(oldstr",15)),__STRING_U),qbs_new_txt_len("->len,0);",9)), 0 , 0 , 1 ); +if (new_error) goto skip619; +skip619: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5130);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip620; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip620; +skip620: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5131);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip621; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),__STRING_R),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->chr,oldstr",12)),__STRING_U),qbs_new_txt_len("->len);",7)), 0 , 0 , 1 ); +if (new_error) goto skip621; +skip621: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5133);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip622; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip622; +skip622: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5134);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 19 ; +if (new_error) goto skip623; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); +if (new_error) goto skip623; +skip623: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5136);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 19 ; +if (new_error) goto skip624; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(oldstr",9),__STRING_U),qbs_new_txt_len("->fixed)qbs_set(oldstr",22)),__STRING_U),qbs_new_txt_len(",",1)),__STRING_R),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip624; +skip624: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5137);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 19 ; +if (new_error) goto skip625; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),__STRING_R),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip625; +skip625: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5138);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 19 ; +if (new_error) goto skip626; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip626; +skip626: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5139);}while(r); } } LABEL_DECLIBJMP3:; -if(qbevent){evnt(5131);r=0;} -S_5837:; +if(qbevent){evnt(5142);r=0;} +S_5930:; if ((-(*__LONG_I!=(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(5132);if(r)goto S_5837;} +if(qbevent){evnt(5143);if(r)goto S_5930;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5132);}while(r); +if(!qbevent)break;evnt(5143);}while(r); } do{ qbs_set(__STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5134);}while(r); +if(!qbevent)break;evnt(5145);}while(r); }else{ do{ qbs_set(__STRING_A2,qbs_add(qbs_add(__STRING_A2,__STRING_E),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5136);}while(r); -S_5843:; +if(!qbevent)break;evnt(5147);}while(r); +S_5936:; if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(5137);if(r)goto S_5843;} +if(qbevent){evnt(5148);if(r)goto S_5936;} do{ goto LABEL_GETLASTPARAM2; -if(!qbevent)break;evnt(5137);}while(r); +if(!qbevent)break;evnt(5148);}while(r); } } -fornext_continue_594:; +fornext_continue_585:; } -fornext_exit_594:; +fornext_exit_585:; LABEL_NOSFPARAMS2:; -if(qbevent){evnt(5140);r=0;} +if(qbevent){evnt(5151);r=0;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5141);}while(r); +if(!qbevent)break;evnt(5152);}while(r); } do{ *__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(5143);}while(r); -S_5851:; +if(!qbevent)break;evnt(5154);}while(r); +S_5944:; if ((*__LONG_ADDSTATIC2LAYOUT)||new_error){ -if(qbevent){evnt(5145);if(r)goto S_5851;} +if(qbevent){evnt(5156);if(r)goto S_5944;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("STATIC",6))); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Static",6)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5145);}while(r); +if(!qbevent)break;evnt(5156);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5146);}while(r); -S_5855:; +if(!qbevent)break;evnt(5157);}while(r); +S_5948:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5146);if(r)goto S_5855;} +if(qbevent){evnt(5157);if(r)goto S_5948;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5146);}while(r); +if(!qbevent)break;evnt(5157);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5146);}while(r); +if(!qbevent)break;evnt(5157);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 17 ; -if (new_error) goto skip636; +if (new_error) goto skip628; sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip636; -skip636: +if (new_error) goto skip628; +skip628: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5148);}while(r); -S_5861:; +if(!qbevent)break;evnt(5159);}while(r); +S_5954:; if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5150);if(r)goto S_5861;} +if(qbevent){evnt(5161);if(r)goto S_5954;} do{ goto LABEL_DECLIBJMP4; -if(!qbevent)break;evnt(5150);}while(r); +if(!qbevent)break;evnt(5161);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip637; +if (new_error) goto skip629; sub_file_print(tmp_fileno,qbs_new_txt_len("){",2), 0 , 0 , 1 ); -if (new_error) goto skip637; -skip637: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5152);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip638; -sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *tqbs;",10), 0 , 0 , 1 ); -if (new_error) goto skip638; -skip638: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5153);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip639; -sub_file_print(tmp_fileno,qbs_new_txt_len("ptrszint tmp_long;",18), 0 , 0 , 1 ); -if (new_error) goto skip639; -skip639: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5154);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip640; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 tmp_fileno;",17), 0 , 0 , 1 ); -if (new_error) goto skip640; -skip640: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5155);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip641; -sub_file_print(tmp_fileno,qbs_new_txt_len("uint32 qbs_tmp_base=qbs_tmp_list_nexti;",39), 0 , 0 , 1 ); -if (new_error) goto skip641; -skip641: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5156);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip642; -sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *tmp_mem_static_pointer=mem_static_pointer;",49), 0 , 0 , 1 ); -if (new_error) goto skip642; -skip642: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5157);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip643; -sub_file_print(tmp_fileno,qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27), 0 , 0 , 1 ); -if (new_error) goto skip643; -skip643: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5158);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip644; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip644; -skip644: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5159);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip645; -sub_file_print(tmp_fileno,qbs_new_txt_len("mem_lock *sf_mem_lock;",22), 0 , 0 , 1 ); -if (new_error) goto skip645; -skip645: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5162);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip646; -sub_file_print(tmp_fileno,qbs_new_txt_len("new_mem_lock();",15), 0 , 0 , 1 ); -if (new_error) goto skip646; -skip646: +if (new_error) goto skip629; +skip629: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5163);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip647; -sub_file_print(tmp_fileno,qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25), 0 , 0 , 1 ); -if (new_error) goto skip647; -skip647: +if (new_error) goto skip630; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs *tqbs;",10), 0 , 0 , 1 ); +if (new_error) goto skip630; +skip630: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5164);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip648; -sub_file_print(tmp_fileno,qbs_new_txt_len("sf_mem_lock->type=3;",20), 0 , 0 , 1 ); -if (new_error) goto skip648; -skip648: +if (new_error) goto skip631; +sub_file_print(tmp_fileno,qbs_new_txt_len("ptrszint tmp_long;",18), 0 , 0 , 1 ); +if (new_error) goto skip631; +skip631: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5165);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip649; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error) goto exit_subfunc;",33), 0 , 0 , 1 ); -if (new_error) goto skip649; -skip649: +if (new_error) goto skip632; +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 tmp_fileno;",17), 0 , 0 , 1 ); +if (new_error) goto skip632; +skip632: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5166);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip633; +sub_file_print(tmp_fileno,qbs_new_txt_len("uint32 qbs_tmp_base=qbs_tmp_list_nexti;",39), 0 , 0 , 1 ); +if (new_error) goto skip633; +skip633: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(5167);}while(r); do{ -*__LONG_DIMSTATIC=*__LONG_STATICSF; -if(!qbevent)break;evnt(5172);}while(r); -LABEL_DECLIBJMP4:; -if(qbevent){evnt(5174);r=0;} -S_5878:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5176);if(r)goto S_5878;} -S_5879:; -if ((*__LONG_CUSTOMTYPELIBRARY)||new_error){ -if(qbevent){evnt(5178);if(r)goto S_5879;} -do{ -qbs_set(__STRING_CALLNAME,FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip634; +sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *tmp_mem_static_pointer=mem_static_pointer;",49), 0 , 0 , 1 ); +if (new_error) goto skip634; +skip634: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5180);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5168);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 17 ; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip635; +sub_file_print(tmp_fileno,qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27), 0 , 0 , 1 ); +if (new_error) goto skip635; +skip635: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5169);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip636; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip636; +skip636: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5170);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip637; +sub_file_print(tmp_fileno,qbs_new_txt_len("mem_lock *sf_mem_lock;",22), 0 , 0 , 1 ); +if (new_error) goto skip637; +skip637: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5173);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip638; +sub_file_print(tmp_fileno,qbs_new_txt_len("new_mem_lock();",15), 0 , 0 , 1 ); +if (new_error) goto skip638; +skip638: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5174);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip639; +sub_file_print(tmp_fileno,qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25), 0 , 0 , 1 ); +if (new_error) goto skip639; +skip639: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5175);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip640; +sub_file_print(tmp_fileno,qbs_new_txt_len("sf_mem_lock->type=3;",20), 0 , 0 , 1 ); +if (new_error) goto skip640; +skip640: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5176);}while(r); +S_5969:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(5178);if(r)goto S_5969;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip641; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52), 0 , 0 , 1 ); +if (new_error) goto skip641; +skip641: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5179);}while(r); +S_5971:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||new_error){ +if(qbevent){evnt(5180);if(r)goto S_5971;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5181);}while(r); +S_5973:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(5182);if(r)goto S_5973;} +do{ +qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5183);}while(r); +do{ +qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5184);}while(r); +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_THISINCNAME),qbs_new_txt_len(",",1)),qbs_str((int32)(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))),qbs_new_txt_len(") ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5185);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip643; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_VWATCH_SUBNAME,qbs_new_txt_len(",48),func_chr( 34 )),__STRING_INCLINENUMP),__STRING_SUBFUNCORIGINALNAME),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass644=((int32)(qbs_add(__STRING_INCLINENUMP,__STRING_SUBFUNCORIGINALNAME))->len)))),qbs_new_txt_len("));",3)), 0 , 0 , 1 ); +if (new_error) goto skip643; +skip643: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5188);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip645; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28), 0 , 0 , 1 ); +if (new_error) goto skip645; +skip645: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5189);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip646; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_VWATCH_INTERNALSUBNAME,qbs_new_txt_len(",56),func_chr( 34 )),__STRING_SUBFUNC),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass648=__STRING_SUBFUNC->len))),qbs_new_txt_len("));",3)), 0 , 0 , 1 ); +if (new_error) goto skip646; +skip646: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5190);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip649; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28), 0 , 0 , 1 ); +if (new_error) goto skip649; +skip649: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5191);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip650; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CUSTOMCALL_",11),__STRING_CALLNAME),qbs_new_txt_len(" *",2)),__STRING_CALLNAME),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-2; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101), 0 , 0 , 1 ); if (new_error) goto skip650; skip650: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5182);}while(r); -S_5882:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(5184);if(r)goto S_5882;} -do{ -*__LONG_F=func_freefile(); -if(!qbevent)break;evnt(5185);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL,*__LONG_F,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5186);}while(r); -}else{ -do{ -*__LONG_F= 13 ; -if(!qbevent)break;evnt(5188);}while(r); +if(!qbevent)break;evnt(5192);}while(r); +} } do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_F; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip651; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_CALLNAME,qbs_new_txt_len("=(CUSTOMCALL_",13)),__STRING_CALLNAME),qbs_new_txt_len("*)&",3)),__STRING_ALIASNAME),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error) goto exit_subfunc;",33), 0 , 0 , 1 ); if (new_error) goto skip651; skip651: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5192);}while(r); -S_5889:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(5194);if(r)goto S_5889;} +if(!qbevent)break;evnt(5196);}while(r); do{ -sub_close(*__LONG_F,1); -if(!qbevent)break;evnt(5194);}while(r); -} -S_5892:; -if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||new_error){ -if(qbevent){evnt(5197);if(r)goto S_5892;} -do{ -*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; -if(!qbevent)break;evnt(5198);}while(r); -S_5894:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ -if(qbevent){evnt(5200);if(r)goto S_5894;} -do{ - -if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){ -preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ; -__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1; -__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){ -preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; -} -else preserved_elements=0; -__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ; -__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1; -__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){ -preserved_elements=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; -} -else preserved_elements=0; -__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ; -__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1; -__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1; -if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),preserved_elements*4); -cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0])); -tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; -__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); -memcpy((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),redim_preserve_cmem_buffer,preserved_elements*4); -if (preserved_elementsfunc_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ -if(qbevent){evnt(5243);if(r)goto S_5930;} +if(qbevent){evnt(5229);if(r)goto S_6003;} do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ @@ -21946,7 +22067,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_ } } } -if(!qbevent)break;evnt(5244);}while(r); +if(!qbevent)break;evnt(5230);}while(r); do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){ @@ -21991,7 +22112,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_ } } } -if(!qbevent)break;evnt(5245);}while(r); +if(!qbevent)break;evnt(5231);}while(r); do{ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){ @@ -22031,1223 +22152,1830 @@ if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257); } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1; } -if(!qbevent)break;evnt(5246);}while(r); +if(!qbevent)break;evnt(5232);}while(r); } do{ tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5248);}while(r); +if(!qbevent)break;evnt(5234);}while(r); do{ tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5249);}while(r); +if(!qbevent)break;evnt(5235);}while(r); +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(5236);}while(r); +} +} +S_6013:; +if ((*__LONG_DYNAMICLIBRARY)||new_error){ +if(qbevent){evnt(5241);if(r)goto S_6013;} +S_6014:; +if ((*__LONG_SFDECLARE)||new_error){ +if(qbevent){evnt(5242);if(r)goto S_6014;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 17 ; +if (new_error) goto skip654; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("DLLCALL_",8),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(" ",1)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip654; +skip654: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5244);}while(r); +S_6016:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(5246);if(r)goto S_6016;} +do{ +*__LONG_F=func_freefile(); +if(!qbevent)break;evnt(5247);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL,*__LONG_F,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5248);}while(r); +}else{ +do{ +*__LONG_F= 13 ; +if(!qbevent)break;evnt(5250);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip655; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); +if (new_error) goto skip655; +skip655: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5253);}while(r); +S_6023:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(5254);if(r)goto S_6023;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip656; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(")GetProcAddress(DLL_",20)),__STRING_DLLNAME),qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_ALIASNAME),func_chr( 34 )),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip656; +skip656: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5255);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip657; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(") error(260);",13)), 0 , 0 , 1 ); +if (new_error) goto skip657; +skip657: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5256);}while(r); +} +S_6027:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(5258);if(r)goto S_6027;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip658; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1))),qbs_new_txt_len("=(DLLCALL_",10)),FUNC_REMOVECAST(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)))),qbs_new_txt_len(")dlsym(DLL_",11)),__STRING_DLLNAME),qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_ALIASNAME),func_chr( 34 )),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip658; +skip658: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5259);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip659; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (dlerror()) error(260);",26), 0 , 0 , 1 ); +if (new_error) goto skip659; +skip659: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5260);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_F; +if (new_error) goto skip660; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip660; +skip660: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5262);}while(r); +S_6032:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(5264);if(r)goto S_6032;} +do{ +sub_close(*__LONG_F,1); +if(!qbevent)break;evnt(5264);}while(r); +} +} +} +S_6037:; +if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ +if(qbevent){evnt(5269);if(r)goto S_6037;} +do{ +*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; +if(!qbevent)break;evnt(5270);}while(r); +S_6039:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ +if(qbevent){evnt(5272);if(r)goto S_6039;} +do{ + +if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&1){ +preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; +} +else preserved_elements=0; +__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]= 1 ; +__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4]+1; +__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&1){ +preserved_elements=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; +} +else preserved_elements=0; +__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]= 1 ; +__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4]+1; +__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&1){ +preserved_elements=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; +} +else preserved_elements=0; +__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]= 1 ; +__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]=(*__LONG_RESOLVESTATICFUNCTIONS+ 100 )-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4]+1; +__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[6]=1; +if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0])); +tmp_long=__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]; +__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementslen== 0 )))||new_error){ -if(qbevent){evnt(5272);if(r)goto S_5957;} +if(qbevent){evnt(5301);if(r)goto S_6066;} do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("END ",4),__STRING_SECONDELEMENT),qbs_new_txt_len(" without ",9)),__STRING_SECONDELEMENT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5272);}while(r); +if(!qbevent)break;evnt(5301);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5272);}while(r); +if(!qbevent)break;evnt(5301);}while(r); } -S_5961:; +S_6070:; if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 32 )))||new_error){ -if(qbevent){evnt(5275);if(r)goto S_5961;} +if(qbevent){evnt(5304);if(r)goto S_6070;} do{ -*__LONG_X=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(5276);}while(r); -S_5963:; -if ((-(*__LONG_X== 1 ))||new_error){ -if(qbevent){evnt(5277);if(r)goto S_5963;} +qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5305);}while(r); +S_6072:; +sc_662=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(qbevent){evnt(5306);if(r)goto S_6072;} +S_6073:; +if (((sc_662==( 1 )))||new_error){ +if(qbevent){evnt(5307);if(r)goto S_6073;} do{ qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5277);}while(r); +if(!qbevent)break;evnt(5307);}while(r); +sc_ec_22_end:; +goto sc_662_end; } -S_5966:; -if ((-(*__LONG_X== 2 ))||new_error){ -if(qbevent){evnt(5278);if(r)goto S_5966;} +S_6075:; +if (((sc_662==( 2 )))||new_error){ +if(qbevent){evnt(5308);if(r)goto S_6075;} do{ qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5278);}while(r); +if(!qbevent)break;evnt(5308);}while(r); +sc_ec_23_end:; +goto sc_662_end; } -S_5969:; -if (((-(*__LONG_X== 3 ))|(-(*__LONG_X== 4 )))||new_error){ -if(qbevent){evnt(5279);if(r)goto S_5969;} +S_6077:; +if (((sc_662==( 3 ))||(sc_662==( 4 )))||new_error){ +if(qbevent){evnt(5309);if(r)goto S_6077;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5279);}while(r); +if(!qbevent)break;evnt(5309);}while(r); +sc_ec_24_end:; +goto sc_662_end; } -S_5972:; -if ((-(*__LONG_X== 5 ))||new_error){ -if(qbevent){evnt(5280);if(r)goto S_5972;} +S_6079:; +if (((sc_662==( 5 )))||new_error){ +if(qbevent){evnt(5310);if(r)goto S_6079;} do{ qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5280);}while(r); +if(!qbevent)break;evnt(5310);}while(r); +sc_ec_25_end:; +goto sc_662_end; } -S_5975:; -if (((((-(*__LONG_X>= 10 ))&(-(*__LONG_X<= 17 ))))|(-(*__LONG_X== 18 ))|(-(*__LONG_X== 19 )))||new_error){ -if(qbevent){evnt(5281);if(r)goto S_5975;} +S_6081:; +if ((((sc_662>=( 10 ))&&(sc_662<=( 19 ))))||new_error){ +if(qbevent){evnt(5311);if(r)goto S_6081;} do{ qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5281);}while(r); +if(!qbevent)break;evnt(5311);}while(r); +sc_ec_26_end:; +goto sc_662_end; } +sc_662_end:; do{ *__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; -if(!qbevent)break;evnt(5282);}while(r); +if(!qbevent)break;evnt(5313);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5283);}while(r); +if(!qbevent)break;evnt(5314);}while(r); } -S_5981:; +S_6087:; if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 32 ))&*__LONG_IDEINDENTSUBS)||new_error){ -if(qbevent){evnt(5286);if(r)goto S_5981;} +if(qbevent){evnt(5317);if(r)goto S_6087;} do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(5287);}while(r); +if(!qbevent)break;evnt(5318);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5288);}while(r); +if(!qbevent)break;evnt(5319);}while(r); +} +S_6091:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||new_error){ +if(qbevent){evnt(5322);if(r)goto S_6091;} +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5322);}while(r); +}else{ +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5322);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_SECONDELEMENT)); +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("End",3)),__STRING1_SP),__STRING_SECONDELEMENT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5291);}while(r); +if(!qbevent)break;evnt(5323);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5292);}while(r); -S_5987:; +if(!qbevent)break;evnt(5324);}while(r); +S_6098:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5292);if(r)goto S_5987;} +if(qbevent){evnt(5324);if(r)goto S_6098;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5292);}while(r); +if(!qbevent)break;evnt(5324);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5292);}while(r); +if(!qbevent)break;evnt(5324);}while(r); +} +S_6103:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(5326);if(r)goto S_6103;} +do{ +SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass664= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5327);}while(r); } do{ qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5294);}while(r); +if(!qbevent)break;evnt(5330);}while(r); do{ *__LONG_STATICARRAYLISTN= 0 ; -if(!qbevent)break;evnt(5294);}while(r); +if(!qbevent)break;evnt(5330);}while(r); do{ *__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(5295);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip661; -sub_file_print(tmp_fileno,qbs_new_txt_len("exit_subfunc:;",14), 0 , 0 , 1 ); -if (new_error) goto skip661; -skip661: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5296);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip662; -sub_file_print(tmp_fileno,qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27), 0 , 0 , 1 ); -if (new_error) goto skip662; -skip662: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5299);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip663; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip663; -skip663: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5301);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip664; -sub_file_print(tmp_fileno,qbs_new_txt_len("if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;",164), 0 , 0 , 1 ); -if (new_error) goto skip664; -skip664: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5302);}while(r); +if(!qbevent)break;evnt(5331);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip665; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("exit_subfunc:;",14), 0 , 0 , 1 ); if (new_error) goto skip665; skip665: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5303);}while(r); -S_6000:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5304);if(r)goto S_6000;} +if(!qbevent)break;evnt(5332);}while(r); +S_6110:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(5333);if(r)goto S_6110;} +S_6111:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5334);if(r)goto S_6111;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip666; -sub_file_print(tmp_fileno,__STRING_SUBFUNCRET, 0 , 0 , 1 ); -if (new_error) goto skip666; -skip666: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5304);}while(r); -} +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass666= 0 )); +if(!qbevent)break;evnt(5335);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip667; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); if (new_error) goto skip667; skip667: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5306);}while(r); +if(!qbevent)break;evnt(5336);}while(r); +do{ +SUB_VWATCHADDLABEL(&(pass668= 0 ),&(pass669= -1 )); +if(!qbevent)break;evnt(5337);}while(r); +} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip668; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip668; -skip668: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5308);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip669; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip669; -skip669: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5309);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip670; -sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52), 0 , 0 , 1 ); if (new_error) goto skip670; skip670: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5310);}while(r); +if(!qbevent)break;evnt(5339);}while(r); +S_6117:; +if (((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||new_error){ +if(qbevent){evnt(5341);if(r)goto S_6117;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip671; +sub_file_print(tmp_fileno,qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28), 0 , 0 , 1 ); +if (new_error) goto skip671; +skip671: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5342);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip672; +sub_file_print(tmp_fileno,qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20), 0 , 0 , 1 ); +if (new_error) goto skip672; +skip672: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5343);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip673; +sub_file_print(tmp_fileno,qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30), 0 , 0 , 1 ); +if (new_error) goto skip673; +skip673: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5344);}while(r); +S_6121:; +fornext_value675=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue675=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step675= 1 ; +if (fornext_step675<0) fornext_step_negative675=1; else fornext_step_negative675=0; +if (new_error) goto fornext_error675; +goto fornext_entrylabel675; +while(1){ +fornext_value675=fornext_step675+(*__LONG_I); +fornext_entrylabel675: +*__LONG_I=fornext_value675; +if (fornext_step_negative675){ +if (fornext_value675fornext_finalvalue675) break; +} +fornext_error675:; +if(qbevent){evnt(5345);if(r)goto S_6121;} +S_6122:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||new_error){ +if(qbevent){evnt(5346);if(r)goto S_6122;} +do{ +qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5347);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5348);}while(r); +ww_continue_676:; +} +ww_exit_676:; +S_6126:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(5350);if(r)goto S_6126;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip678; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" case ",9),FUNC_STR2(__LONG_I)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip678; +skip678: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5351);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip679; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_LABEL_",26),FUNC_STR2(__LONG_I)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip679; +skip679: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5352);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip680; +sub_file_print(tmp_fileno,qbs_new_txt_len(" break;",14), 0 , 0 , 1 ); +if (new_error) goto skip680; +skip680: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5353);}while(r); +} +fornext_continue_674:; +} +fornext_exit_674:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip681; +sub_file_print(tmp_fileno,qbs_new_txt_len(" default:",12), 0 , 0 , 1 ); +if (new_error) goto skip681; +skip681: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5356);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip682; +sub_file_print(tmp_fileno,qbs_new_txt_len(" *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54), 0 , 0 , 1 ); +if (new_error) goto skip682; +skip682: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5357);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip683; +sub_file_print(tmp_fileno,qbs_new_txt_len(" goto VWATCH_SETNEXTLINE;",32), 0 , 0 , 1 ); +if (new_error) goto skip683; +skip683: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5358);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip684; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip684; +skip684: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5359);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip685; +sub_file_print(tmp_fileno,qbs_new_txt_len("VWATCH_SKIPLINE:;",17), 0 , 0 , 1 ); +if (new_error) goto skip685; +skip685: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5361);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip686; +sub_file_print(tmp_fileno,qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30), 0 , 0 , 1 ); +if (new_error) goto skip686; +skip686: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5362);}while(r); +S_6138:; +fornext_value688=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue688=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step688= 1 ; +if (fornext_step688<0) fornext_step_negative688=1; else fornext_step_negative688=0; +if (new_error) goto fornext_error688; +goto fornext_entrylabel688; +while(1){ +fornext_value688=fornext_step688+(*__LONG_I); +fornext_entrylabel688: +*__LONG_I=fornext_value688; +if (fornext_step_negative688){ +if (fornext_value688fornext_finalvalue688) break; +} +fornext_error688:; +if(qbevent){evnt(5363);if(r)goto S_6138;} +S_6139:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(5364);if(r)goto S_6139;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip689; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" case -",10),FUNC_STR2(__LONG_I)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip689; +skip689: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5365);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip690; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_SKIPLABEL_",30),FUNC_STR2(__LONG_I)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip690; +skip690: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5366);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip691; +sub_file_print(tmp_fileno,qbs_new_txt_len(" break;",14), 0 , 0 , 1 ); +if (new_error) goto skip691; +skip691: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5367);}while(r); +} +fornext_continue_687:; +} +fornext_exit_687:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip692; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip692; +skip692: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5370);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip693; +sub_file_print(tmp_fileno,qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24), 0 , 0 , 1 ); +if (new_error) goto skip693; +skip693: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5372);}while(r); +} +do{ +*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; +if(!qbevent)break;evnt(5374);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip694; +sub_file_print(tmp_fileno,qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27), 0 , 0 , 1 ); +if (new_error) goto skip694; +skip694: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5378);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip695; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip695; +skip695: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5380);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip696; +sub_file_print(tmp_fileno,qbs_new_txt_len("if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;",164), 0 , 0 , 1 ); +if (new_error) goto skip696; +skip696: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5381);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip697; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20), 0 , 0 , 1 ); +if (new_error) goto skip697; +skip697: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5382);}while(r); +S_6154:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5383);if(r)goto S_6154;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip698; +sub_file_print(tmp_fileno,__STRING_SUBFUNCRET, 0 , 0 , 1 ); +if (new_error) goto skip698; +skip698: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5383);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip699; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip699; +skip699: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5385);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip700; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip700; +skip700: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5387);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip701; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip701; +skip701: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5388);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip702; +sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); +if (new_error) goto skip702; +skip702: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5389);}while(r); do{ qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5311);}while(r); -S_6008:; -fornext_value672= 1 ; -fornext_finalvalue672=*__LONG_IDN; -fornext_step672= 1 ; -if (fornext_step672<0) fornext_step_negative672=1; else fornext_step_negative672=0; -if (new_error) goto fornext_error672; -goto fornext_entrylabel672; -while(1){ -fornext_value672=fornext_step672+(*__LONG_I); -fornext_entrylabel672: -*__LONG_I=fornext_value672; -if (fornext_step_negative672){ -if (fornext_value672fornext_finalvalue672) break; -} -fornext_error672:; -if(qbevent){evnt(5314);if(r)goto S_6008;} -S_6009:; -if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))& 2 )||new_error){ -if(qbevent){evnt(5315);if(r)goto S_6009;} +if(!qbevent)break;evnt(5390);}while(r); do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))- 2 ; -if(!qbevent)break;evnt(5315);}while(r); -} -fornext_continue_671:; -} -fornext_exit_671:; -S_6013:; -fornext_value674= 1 ; -fornext_finalvalue674=*__LONG_REVERTMAYMUSTHAVEN; -fornext_step674= 1 ; -if (fornext_step674<0) fornext_step_negative674=1; else fornext_step_negative674=0; -if (new_error) goto fornext_error674; -goto fornext_entrylabel674; +*__BYTE_CLOSEDSUBFUNC= -1 ; +if(!qbevent)break;evnt(5391);}while(r); +S_6163:; +fornext_value704= 1 ; +fornext_finalvalue704=*__LONG_IDN; +fornext_step704= 1 ; +if (fornext_step704<0) fornext_step_negative704=1; else fornext_step_negative704=0; +if (new_error) goto fornext_error704; +goto fornext_entrylabel704; while(1){ -fornext_value674=fornext_step674+(*__LONG_I); -fornext_entrylabel674: -*__LONG_I=fornext_value674; -if (fornext_step_negative674){ -if (fornext_value674fornext_finalvalue674) break; +if (fornext_value704>fornext_finalvalue704) break; } -fornext_error674:; -if(qbevent){evnt(5318);if(r)goto S_6013;} +fornext_error704:; +if(qbevent){evnt(5394);if(r)goto S_6163;} +S_6164:; +if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))& 2 )||new_error){ +if(qbevent){evnt(5395);if(r)goto S_6164;} +do{ +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))- 2 ; +if(!qbevent)break;evnt(5395);}while(r); +} +fornext_continue_703:; +} +fornext_exit_703:; +S_6168:; +fornext_value706= 1 ; +fornext_finalvalue706=*__LONG_REVERTMAYMUSTHAVEN; +fornext_step706= 1 ; +if (fornext_step706<0) fornext_step_negative706=1; else fornext_step_negative706=0; +if (new_error) goto fornext_error706; +goto fornext_entrylabel706; +while(1){ +fornext_value706=fornext_step706+(*__LONG_I); +fornext_entrylabel706: +*__LONG_I=fornext_value706; +if (fornext_step_negative706){ +if (fornext_value706fornext_finalvalue706) break; +} +fornext_error706:; +if(qbevent){evnt(5398);if(r)goto S_6168;} do{ *__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])]; -if(!qbevent)break;evnt(5319);}while(r); +if(!qbevent)break;evnt(5399);}while(r); do{ -swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+520)),8,1)); -if(!qbevent)break;evnt(5320);}while(r); -fornext_continue_673:; +swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1)); +if(!qbevent)break;evnt(5400);}while(r); +fornext_continue_705:; } -fornext_exit_673:; +fornext_exit_705:; do{ *__LONG_REVERTMAYMUSTHAVEN= 0 ; -if(!qbevent)break;evnt(5322);}while(r); +if(!qbevent)break;evnt(5402);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5326);}while(r); +if(!qbevent)break;evnt(5406);}while(r); } } } -S_6022:; +S_6177:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ -if(qbevent){evnt(5334);if(r)goto S_6022;} +if(qbevent){evnt(5414);if(r)goto S_6177;} do{ -qbs_set(__STRING_L,qbs_new_txt_len("CONST",5)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5335);}while(r); -S_6024:; +if(!qbevent)break;evnt(5415);}while(r); +S_6179:; if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(5338);if(r)goto S_6024;} +if(qbevent){evnt(5418);if(r)goto S_6179;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5338);}while(r); +if(!qbevent)break;evnt(5418);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5338);}while(r); +if(!qbevent)break;evnt(5418);}while(r); } do{ *__LONG_I= 2 ; -if(!qbevent)break;evnt(5339);}while(r); +if(!qbevent)break;evnt(5419);}while(r); LABEL_CONSTDEFPENDING:; -if(qbevent){evnt(5341);r=0;} +if(qbevent){evnt(5421);r=0;} do{ *__LONG_PENDING= 0 ; -if(!qbevent)break;evnt(5342);}while(r); +if(!qbevent)break;evnt(5422);}while(r); do{ qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5344);}while(r); +if(!qbevent)break;evnt(5424);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5344);}while(r); +if(!qbevent)break;evnt(5424);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len("=",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5345);}while(r); +if(!qbevent)break;evnt(5425);}while(r); do{ *__LONG_TYPEOVERRIDE= 0 ; -if(!qbevent)break;evnt(5346);}while(r); +if(!qbevent)break;evnt(5426);}while(r); do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5347);}while(r); -S_6035:; +if(!qbevent)break;evnt(5427);}while(r); +S_6190:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5348);if(r)goto S_6035;} +if(qbevent){evnt(5428);if(r)goto S_6190;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5348);}while(r); +if(!qbevent)break;evnt(5428);}while(r); } -S_6038:; +S_6193:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5349);if(r)goto S_6038;} +if(qbevent){evnt(5429);if(r)goto S_6193;} do{ *__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5350);}while(r); -S_6040:; +if(!qbevent)break;evnt(5430);}while(r); +S_6195:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5351);if(r)goto S_6040;} +if(qbevent){evnt(5431);if(r)goto S_6195;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5351);}while(r); +if(!qbevent)break;evnt(5431);}while(r); } -S_6043:; +S_6198:; if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(5352);if(r)goto S_6043;} +if(qbevent){evnt(5432);if(r)goto S_6198;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5352);}while(r); +if(!qbevent)break;evnt(5432);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5352);}while(r); +if(!qbevent)break;evnt(5432);}while(r); } -S_6047:; +S_6202:; if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ -if(qbevent){evnt(5353);if(r)goto S_6047;} +if(qbevent){evnt(5433);if(r)goto S_6202;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5353);}while(r); +if(!qbevent)break;evnt(5433);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5353);}while(r); +if(!qbevent)break;evnt(5433);}while(r); } } -S_6052:; +S_6207:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(5356);if(r)goto S_6052;} +if(qbevent){evnt(5436);if(r)goto S_6207;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5356);}while(r); +if(!qbevent)break;evnt(5436);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5356);}while(r); +if(!qbevent)break;evnt(5436);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5357);}while(r); +if(!qbevent)break;evnt(5437);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5360);}while(r); +if(!qbevent)break;evnt(5440);}while(r); do{ *__LONG_B= 0 ; -if(!qbevent)break;evnt(5361);}while(r); -S_6059:; -fornext_value676=*__LONG_I; -fornext_finalvalue676=*__LONG_N; -fornext_step676= 1 ; -if (fornext_step676<0) fornext_step_negative676=1; else fornext_step_negative676=0; -if (new_error) goto fornext_error676; -goto fornext_entrylabel676; +if(!qbevent)break;evnt(5441);}while(r); +S_6214:; +fornext_value708=*__LONG_I; +fornext_finalvalue708=*__LONG_N; +fornext_step708= 1 ; +if (fornext_step708<0) fornext_step_negative708=1; else fornext_step_negative708=0; +if (new_error) goto fornext_error708; +goto fornext_entrylabel708; while(1){ -fornext_value676=fornext_step676+(*__LONG_I2); -fornext_entrylabel676: -*__LONG_I2=fornext_value676; -if (fornext_step_negative676){ -if (fornext_value676fornext_finalvalue676) break; +if (fornext_value708>fornext_finalvalue708) break; } -fornext_error676:; -if(qbevent){evnt(5362);if(r)goto S_6059;} +fornext_error708:; +if(qbevent){evnt(5442);if(r)goto S_6214;} do{ qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5363);}while(r); -S_6061:; +if(!qbevent)break;evnt(5443);}while(r); +S_6216:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5364);if(r)goto S_6061;} +if(qbevent){evnt(5444);if(r)goto S_6216;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(5364);}while(r); +if(!qbevent)break;evnt(5444);}while(r); } -S_6064:; +S_6219:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(5365);if(r)goto S_6064;} +if(qbevent){evnt(5445);if(r)goto S_6219;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(5365);}while(r); +if(!qbevent)break;evnt(5445);}while(r); } -S_6067:; +S_6222:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(5366);if(r)goto S_6067;} +if(qbevent){evnt(5446);if(r)goto S_6222;} do{ *__LONG_PENDING= 1 ; -if(!qbevent)break;evnt(5367);}while(r); +if(!qbevent)break;evnt(5447);}while(r); do{ *__LONG_I=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(5368);}while(r); -S_6070:; +if(!qbevent)break;evnt(5448);}while(r); +S_6225:; if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ -if(qbevent){evnt(5369);if(r)goto S_6070;} +if(qbevent){evnt(5449);if(r)goto S_6225;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5369);}while(r); +if(!qbevent)break;evnt(5449);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5369);}while(r); +if(!qbevent)break;evnt(5449);}while(r); } do{ -goto fornext_exit_675; -if(!qbevent)break;evnt(5370);}while(r); +goto fornext_exit_707; +if(!qbevent)break;evnt(5450);}while(r); } -S_6076:; +S_6231:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(5372);if(r)goto S_6076;} +if(qbevent){evnt(5452);if(r)goto S_6231;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5372);}while(r); +if(!qbevent)break;evnt(5452);}while(r); }else{ do{ qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5372);}while(r); +if(!qbevent)break;evnt(5452);}while(r); } -fornext_continue_675:; +fornext_continue_707:; } -fornext_exit_675:; +fornext_exit_707:; do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5375);}while(r); -S_6083:; +if(!qbevent)break;evnt(5455);}while(r); +S_6238:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5376);if(r)goto S_6083;} +if(qbevent){evnt(5456);if(r)goto S_6238;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5376);}while(r); +if(!qbevent)break;evnt(5456);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5377);}while(r); +if(!qbevent)break;evnt(5457);}while(r); do{ qbs_set(__STRING_HASHNAME,__STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5382);}while(r); +if(!qbevent)break;evnt(5462);}while(r); do{ *__LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(5383);}while(r); +if(!qbevent)break;evnt(5463);}while(r); do{ *__LONG_HASHRES=FUNC_HASHFIND(__STRING_HASHNAME,__LONG_HASHCHKFLAGS,__LONG_HASHRESFLAGS,__LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5384);}while(r); -S_6090:; +if(!qbevent)break;evnt(5464);}while(r); +S_6245:; while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(5385);if(r)goto S_6090;} -S_6091:; +if(qbevent){evnt(5465);if(r)goto S_6245;} +S_6246:; if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(5386);if(r)goto S_6091;} +if(qbevent){evnt(5466);if(r)goto S_6246;} do{ tmp_long=array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(5386);}while(r); +if(!qbevent)break;evnt(5466);}while(r); do{ -goto dl_exit_678; -if(!qbevent)break;evnt(5386);}while(r); +goto dl_exit_710; +if(!qbevent)break;evnt(5466);}while(r); } -S_6095:; +S_6250:; if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(5387);if(r)goto S_6095;} +if(qbevent){evnt(5467);if(r)goto S_6250;} do{ *__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(5387);}while(r); +if(!qbevent)break;evnt(5467);}while(r); }else{ do{ *__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(5387);}while(r); +if(!qbevent)break;evnt(5467);}while(r); } -dl_continue_678:; +dl_continue_710:; } -dl_exit_678:; -S_6101:; +dl_exit_710:; +S_6256:; if ((*__LONG_PENDING)||new_error){ -if(qbevent){evnt(5390);if(r)goto S_6101;} +if(qbevent){evnt(5470);if(r)goto S_6256;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5390);}while(r); +if(!qbevent)break;evnt(5470);}while(r); do{ goto LABEL_CONSTDEFPENDING; -if(!qbevent)break;evnt(5390);}while(r); +if(!qbevent)break;evnt(5470);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5392);}while(r); -S_6106:; +if(!qbevent)break;evnt(5472);}while(r); +S_6261:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5392);if(r)goto S_6106;} +if(qbevent){evnt(5472);if(r)goto S_6261;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5392);}while(r); +if(!qbevent)break;evnt(5472);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5392);}while(r); +if(!qbevent)break;evnt(5472);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5394);}while(r); +if(!qbevent)break;evnt(5474);}while(r); } LABEL_PREDEFINE:; -if(qbevent){evnt(5397);r=0;} -S_6113:; +if(qbevent){evnt(5477);r=0;} +S_6268:; if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5398);if(r)goto S_6113;} +if(qbevent){evnt(5478);if(r)goto S_6268;} do{ *__LONG_ASREQ= 0 ; -if(!qbevent)break;evnt(5399);}while(r); -S_6115:; +if(!qbevent)break;evnt(5479);}while(r); +S_6270:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ -if(qbevent){evnt(5400);if(r)goto S_6115;} +if(qbevent){evnt(5480);if(r)goto S_6270;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5480);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("INTEGER",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5400);}while(r); +if(!qbevent)break;evnt(5480);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5400);}while(r); +if(!qbevent)break;evnt(5480);}while(r); do{ goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5400);}while(r); +if(!qbevent)break;evnt(5480);}while(r); } -S_6120:; +S_6276:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ -if(qbevent){evnt(5401);if(r)goto S_6120;} +if(qbevent){evnt(5481);if(r)goto S_6276;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5481);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("LONG",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5401);}while(r); +if(!qbevent)break;evnt(5481);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5401);}while(r); +if(!qbevent)break;evnt(5481);}while(r); do{ goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5401);}while(r); +if(!qbevent)break;evnt(5481);}while(r); } -S_6125:; +S_6282:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ -if(qbevent){evnt(5402);if(r)goto S_6125;} +if(qbevent){evnt(5482);if(r)goto S_6282;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5482);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("SINGLE",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5402);}while(r); +if(!qbevent)break;evnt(5482);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5402);}while(r); +if(!qbevent)break;evnt(5482);}while(r); do{ goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5402);}while(r); +if(!qbevent)break;evnt(5482);}while(r); } -S_6130:; +S_6288:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ -if(qbevent){evnt(5403);if(r)goto S_6130;} +if(qbevent){evnt(5483);if(r)goto S_6288;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5483);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("DOUBLE",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5403);}while(r); +if(!qbevent)break;evnt(5483);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5403);}while(r); +if(!qbevent)break;evnt(5483);}while(r); do{ goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5403);}while(r); +if(!qbevent)break;evnt(5483);}while(r); } -S_6135:; +S_6294:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ -if(qbevent){evnt(5404);if(r)goto S_6135;} +if(qbevent){evnt(5484);if(r)goto S_6294;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5484);}while(r); do{ qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),qbs_new_txt_len("STRING",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5404);}while(r); +if(!qbevent)break;evnt(5484);}while(r); do{ *__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5404);}while(r); +if(!qbevent)break;evnt(5484);}while(r); do{ goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5404);}while(r); +if(!qbevent)break;evnt(5484);}while(r); } -S_6140:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||new_error){ -if(qbevent){evnt(5405);if(r)goto S_6140;} +S_6300:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINE",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(5485);if(r)goto S_6300;} do{ *__LONG_ASREQ= 1 ; -if(!qbevent)break;evnt(5406);}while(r); -LABEL_DEFINETYPE:; -if(qbevent){evnt(5407);r=0;} +if(!qbevent)break;evnt(5486);}while(r); +S_6302:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||new_error){ +if(qbevent){evnt(5487);if(r)goto S_6302;} do{ -qbs_set(__STRING_L,__STRING_FIRSTELEMENT); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Define",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5408);}while(r); +if(!qbevent)break;evnt(5487);}while(r); +}else{ +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Define",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5487);}while(r); +} +LABEL_DEFINETYPE:; +if(qbevent){evnt(5488);r=0;} do{ qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5410);}while(r); +if(!qbevent)break;evnt(5490);}while(r); do{ qbs_set(__STRING_TYP2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5411);}while(r); +if(!qbevent)break;evnt(5491);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5412);}while(r); -S_6146:; -fornext_value681=*__LONG_N; -fornext_finalvalue681= 2 ; -fornext_step681= -1 ; -if (fornext_step681<0) fornext_step_negative681=1; else fornext_step_negative681=0; -if (new_error) goto fornext_error681; -goto fornext_entrylabel681; +if(!qbevent)break;evnt(5492);}while(r); +S_6310:; +fornext_value713=*__LONG_N; +fornext_finalvalue713= 2 ; +fornext_step713= -1 ; +if (fornext_step713<0) fornext_step_negative713=1; else fornext_step_negative713=0; +if (new_error) goto fornext_error713; +goto fornext_entrylabel713; while(1){ -fornext_value681=fornext_step681+(*__LONG_I); -fornext_entrylabel681: -*__LONG_I=fornext_value681; -if (fornext_step_negative681){ -if (fornext_value681fornext_finalvalue681) break; +if (fornext_value713>fornext_finalvalue713) break; } -fornext_error681:; -if(qbevent){evnt(5413);if(r)goto S_6146;} +fornext_error713:; +if(qbevent){evnt(5493);if(r)goto S_6310;} do{ qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5414);}while(r); -S_6148:; +if(!qbevent)break;evnt(5494);}while(r); +S_6312:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(5415);if(r)goto S_6148;} +if(qbevent){evnt(5495);if(r)goto S_6312;} do{ -goto fornext_exit_680; -if(!qbevent)break;evnt(5415);}while(r); +goto fornext_exit_712; +if(!qbevent)break;evnt(5495);}while(r); } do{ qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5416);}while(r); +if(!qbevent)break;evnt(5496);}while(r); do{ qbs_set(__STRING_TYP2,qbs_add(qbs_add(__STRING_T,__STRING1_SP),__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5417);}while(r); -fornext_continue_680:; +if(!qbevent)break;evnt(5497);}while(r); +fornext_continue_712:; } -fornext_exit_680:; +fornext_exit_712:; do{ qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5419);}while(r); -S_6155:; +if(!qbevent)break;evnt(5499);}while(r); +S_6319:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(5420);if(r)goto S_6155;} +if(qbevent){evnt(5500);if(r)goto S_6319;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ... AS ...",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5420);}while(r); +if(!qbevent)break;evnt(5500);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5420);}while(r); +if(!qbevent)break;evnt(5500);}while(r); } -S_6159:; +S_6323:; if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||new_error){ -if(qbevent){evnt(5421);if(r)goto S_6159;} +if(qbevent){evnt(5501);if(r)goto S_6323;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ... AS ...",28)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ... AS ...",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5421);}while(r); +if(!qbevent)break;evnt(5501);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5421);}while(r); +if(!qbevent)break;evnt(5501);}while(r); } do{ *__LONG_N=*__LONG_I- 1 ; -if(!qbevent)break;evnt(5424);}while(r); +if(!qbevent)break;evnt(5504);}while(r); do{ *__LONG_I= 2 - 1 ; -if(!qbevent)break;evnt(5426);}while(r); +if(!qbevent)break;evnt(5506);}while(r); LABEL_DEFINENEXT:; -if(qbevent){evnt(5427);r=0;} +if(qbevent){evnt(5507);r=0;} do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5429);}while(r); +if(!qbevent)break;evnt(5509);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5429);}while(r); +if(!qbevent)break;evnt(5509);}while(r); do{ *__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5429);}while(r); -S_6168:; +if(!qbevent)break;evnt(5509);}while(r); +S_6332:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ -if(qbevent){evnt(5430);if(r)goto S_6168;} +if(qbevent){evnt(5510);if(r)goto S_6332;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5430);}while(r); +if(!qbevent)break;evnt(5510);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5430);}while(r); +if(!qbevent)break;evnt(5510);}while(r); } -S_6172:; +S_6336:; if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ -if(qbevent){evnt(5431);if(r)goto S_6172;} +if(qbevent){evnt(5511);if(r)goto S_6336;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5431);}while(r); +if(!qbevent)break;evnt(5511);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5431);}while(r); +if(!qbevent)break;evnt(5511);}while(r); } -S_6176:; +S_6340:; if ((-(*__LONG_E== 95 ))||new_error){ -if(qbevent){evnt(5432);if(r)goto S_6176;} +if(qbevent){evnt(5512);if(r)goto S_6340;} do{ *__LONG_E= 27 ; -if(!qbevent)break;evnt(5432);}while(r); +if(!qbevent)break;evnt(5512);}while(r); }else{ do{ *__LONG_E=*__LONG_E- 64 ; -if(!qbevent)break;evnt(5432);}while(r); +if(!qbevent)break;evnt(5512);}while(r); } do{ tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5433);}while(r); +if(!qbevent)break;evnt(5513);}while(r); do{ tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5434);}while(r); -S_6183:; +if(!qbevent)break;evnt(5514);}while(r); +S_6347:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5435);if(r)goto S_6183;} +if(qbevent){evnt(5515);if(r)goto S_6347;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5435);}while(r); +if(!qbevent)break;evnt(5515);}while(r); } do{ *__LONG_FIRSTE=*__LONG_E; -if(!qbevent)break;evnt(5436);}while(r); +if(!qbevent)break;evnt(5516);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5437);}while(r); -S_6188:; +if(!qbevent)break;evnt(5517);}while(r); +S_6352:; if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5439);if(r)goto S_6188;} -S_6189:; +if(qbevent){evnt(5519);if(r)goto S_6352;} +S_6353:; if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ -if(qbevent){evnt(5440);if(r)goto S_6189;} +if(qbevent){evnt(5520);if(r)goto S_6353;} do{ goto LABEL_PREDEFINED; -if(!qbevent)break;evnt(5440);}while(r); +if(!qbevent)break;evnt(5520);}while(r); } -S_6192:; +S_6356:; if ((*__LONG_ASREQ)||new_error){ -if(qbevent){evnt(5441);if(r)goto S_6192;} +if(qbevent){evnt(5521);if(r)goto S_6356;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP2)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5441);}while(r); +if(!qbevent)break;evnt(5521);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5442);}while(r); -S_6196:; +if(!qbevent)break;evnt(5522);}while(r); +S_6360:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5442);if(r)goto S_6196;} +if(qbevent){evnt(5522);if(r)goto S_6360;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5442);}while(r); +if(!qbevent)break;evnt(5522);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5442);}while(r); +if(!qbevent)break;evnt(5522);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5443);}while(r); +if(!qbevent)break;evnt(5523);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5447);}while(r); +if(!qbevent)break;evnt(5527);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5447);}while(r); -S_6205:; +if(!qbevent)break;evnt(5527);}while(r); +S_6369:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_E,qbs_new_txt_len("-",1)))&(qbs_notequal(__STRING_E,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(5448);if(r)goto S_6205;} +if(qbevent){evnt(5528);if(r)goto S_6369;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected - or ,",24)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected - or ,",23))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5448);}while(r); +if(!qbevent)break;evnt(5528);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5448);}while(r); +if(!qbevent)break;evnt(5528);}while(r); } -S_6209:; +S_6373:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(5449);if(r)goto S_6209;} +if(qbevent){evnt(5529);if(r)goto S_6373;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len("-",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5450);}while(r); -S_6211:; +if(!qbevent)break;evnt(5530);}while(r); +S_6375:; if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5451);if(r)goto S_6211;} +if(qbevent){evnt(5531);if(r)goto S_6375;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Syntax incomplete",26)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Syntax incomplete",25))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5451);}while(r); +if(!qbevent)break;evnt(5531);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5451);}while(r); +if(!qbevent)break;evnt(5531);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5453);}while(r); +if(!qbevent)break;evnt(5533);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5453);}while(r); +if(!qbevent)break;evnt(5533);}while(r); do{ *__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5453);}while(r); -S_6218:; +if(!qbevent)break;evnt(5533);}while(r); +S_6382:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ -if(qbevent){evnt(5454);if(r)goto S_6218;} +if(qbevent){evnt(5534);if(r)goto S_6382;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5454);}while(r); +if(!qbevent)break;evnt(5534);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5454);}while(r); +if(!qbevent)break;evnt(5534);}while(r); } -S_6222:; +S_6386:; if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ -if(qbevent){evnt(5455);if(r)goto S_6222;} +if(qbevent){evnt(5535);if(r)goto S_6386;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected an alphabet letter or the underscore character (_)",68)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5455);}while(r); +if(!qbevent)break;evnt(5535);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5455);}while(r); +if(!qbevent)break;evnt(5535);}while(r); } -S_6226:; +S_6390:; if ((-(*__LONG_E== 95 ))||new_error){ -if(qbevent){evnt(5456);if(r)goto S_6226;} +if(qbevent){evnt(5536);if(r)goto S_6390;} do{ *__LONG_E= 27 ; -if(!qbevent)break;evnt(5456);}while(r); +if(!qbevent)break;evnt(5536);}while(r); }else{ do{ *__LONG_E=*__LONG_E- 64 ; -if(!qbevent)break;evnt(5456);}while(r); +if(!qbevent)break;evnt(5536);}while(r); } -S_6231:; +S_6395:; if ((-(*__LONG_FIRSTE>*__LONG_E))||new_error){ -if(qbevent){evnt(5457);if(r)goto S_6231;} +if(qbevent){evnt(5537);if(r)goto S_6395;} do{ swap_32(&*__LONG_E,&*__LONG_FIRSTE); -if(!qbevent)break;evnt(5457);}while(r); +if(!qbevent)break;evnt(5537);}while(r); } -S_6234:; -fornext_value686=*__LONG_FIRSTE; -fornext_finalvalue686=*__LONG_E; -fornext_step686= 1 ; -if (fornext_step686<0) fornext_step_negative686=1; else fornext_step_negative686=0; -if (new_error) goto fornext_error686; -goto fornext_entrylabel686; +S_6398:; +fornext_value718=*__LONG_FIRSTE; +fornext_finalvalue718=*__LONG_E; +fornext_step718= 1 ; +if (fornext_step718<0) fornext_step_negative718=1; else fornext_step_negative718=0; +if (new_error) goto fornext_error718; +goto fornext_entrylabel718; while(1){ -fornext_value686=fornext_step686+(*__LONG_E2); -fornext_entrylabel686: -*__LONG_E2=fornext_value686; -if (fornext_step_negative686){ -if (fornext_value686fornext_finalvalue686) break; +if (fornext_value718>fornext_finalvalue718) break; } -fornext_error686:; -if(qbevent){evnt(5458);if(r)goto S_6234;} +fornext_error718:; +if(qbevent){evnt(5538);if(r)goto S_6398;} do{ tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5459);}while(r); +if(!qbevent)break;evnt(5539);}while(r); do{ tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5460);}while(r); -S_6237:; +if(!qbevent)break;evnt(5540);}while(r); +S_6401:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5461);if(r)goto S_6237;} +if(qbevent){evnt(5541);if(r)goto S_6401;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5461);}while(r); +if(!qbevent)break;evnt(5541);}while(r); } -fornext_continue_685:; +fornext_continue_717:; } -fornext_exit_685:; +fornext_exit_717:; do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5463);}while(r); -S_6242:; +if(!qbevent)break;evnt(5543);}while(r); +S_6406:; if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5464);if(r)goto S_6242;} -S_6243:; +if(qbevent){evnt(5544);if(r)goto S_6406;} +S_6407:; if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ -if(qbevent){evnt(5465);if(r)goto S_6243;} +if(qbevent){evnt(5545);if(r)goto S_6407;} do{ goto LABEL_PREDEFINED; -if(!qbevent)break;evnt(5465);}while(r); +if(!qbevent)break;evnt(5545);}while(r); } -S_6246:; +S_6410:; if ((*__LONG_ASREQ)||new_error){ -if(qbevent){evnt(5466);if(r)goto S_6246;} +if(qbevent){evnt(5546);if(r)goto S_6410;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP2)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5466);}while(r); +if(!qbevent)break;evnt(5546);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5467);}while(r); -S_6250:; +if(!qbevent)break;evnt(5547);}while(r); +S_6414:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5467);if(r)goto S_6250;} +if(qbevent){evnt(5547);if(r)goto S_6414;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5467);}while(r); +if(!qbevent)break;evnt(5547);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5467);}while(r); +if(!qbevent)break;evnt(5547);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5468);}while(r); +if(!qbevent)break;evnt(5548);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5471);}while(r); +if(!qbevent)break;evnt(5551);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5471);}while(r); -S_6259:; +if(!qbevent)break;evnt(5551);}while(r); +S_6423:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(5472);if(r)goto S_6259;} +if(qbevent){evnt(5552);if(r)goto S_6423;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("_DEFINE: Expected ,",19)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ,",18))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5472);}while(r); +if(!qbevent)break;evnt(5552);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5472);}while(r); +if(!qbevent)break;evnt(5552);}while(r); } } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5474);}while(r); +if(!qbevent)break;evnt(5554);}while(r); do{ goto LABEL_DEFINENEXT; -if(!qbevent)break;evnt(5475);}while(r); +if(!qbevent)break;evnt(5555);}while(r); } } -S_6268:; +S_6432:; if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ -if(qbevent){evnt(5478);if(r)goto S_6268;} +if(qbevent){evnt(5558);if(r)goto S_6432;} do{ goto LABEL_PREDEFINED; -if(!qbevent)break;evnt(5478);}while(r); +if(!qbevent)break;evnt(5558);}while(r); } -S_6271:; +S_6435:; if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(5480);if(r)goto S_6271;} +if(qbevent){evnt(5560);if(r)goto S_6435;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Statement cannot be placed between SUB/FUNCTIONs",48)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5480);}while(r); +if(!qbevent)break;evnt(5560);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5480);}while(r); +if(!qbevent)break;evnt(5560);}while(r); } do{ *__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ; -if(!qbevent)break;evnt(5484);}while(r); -S_6276:; +if(!qbevent)break;evnt(5564);}while(r); +S_6440:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5487);if(r)goto S_6276;} -S_6277:; +if(qbevent){evnt(5567);if(r)goto S_6440;} +S_6441:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||new_error){ -if(qbevent){evnt(5488);if(r)goto S_6277;} +if(qbevent){evnt(5568);if(r)goto S_6441;} do{ -qbs_set(__STRING_L,qbs_new_txt_len("NEXT",4)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5490);}while(r); -S_6279:; +if(!qbevent)break;evnt(5570);}while(r); +S_6443:; if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5491);if(r)goto S_6279;} +if(qbevent){evnt(5571);if(r)goto S_6443;} do{ goto LABEL_SIMPLENEXT; -if(!qbevent)break;evnt(5491);}while(r); +if(!qbevent)break;evnt(5571);}while(r); } do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5492);}while(r); -S_6283:; -fornext_value689= 2 ; -fornext_finalvalue689=*__LONG_N; -fornext_step689= 1 ; -if (fornext_step689<0) fornext_step_negative689=1; else fornext_step_negative689=0; -if (new_error) goto fornext_error689; -goto fornext_entrylabel689; +if(!qbevent)break;evnt(5572);}while(r); +S_6447:; +fornext_value721= 2 ; +fornext_finalvalue721=*__LONG_N; +fornext_step721= 1 ; +if (fornext_step721<0) fornext_step_negative721=1; else fornext_step_negative721=0; +if (new_error) goto fornext_error721; +goto fornext_entrylabel721; while(1){ -fornext_value689=fornext_step689+(*__LONG_I); -fornext_entrylabel689: -*__LONG_I=fornext_value689; -if (fornext_step_negative689){ -if (fornext_value689fornext_finalvalue689) break; +if (fornext_value721>fornext_finalvalue721) break; } -fornext_error689:; -if(qbevent){evnt(5493);if(r)goto S_6283;} +fornext_error721:; +if(qbevent){evnt(5573);if(r)goto S_6447;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5494);}while(r); -S_6285:; +if(!qbevent)break;evnt(5574);}while(r); +S_6449:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(5496);if(r)goto S_6285;} +if(qbevent){evnt(5576);if(r)goto S_6449;} LABEL_LASTNEXTELE:; -if(qbevent){evnt(5498);r=0;} +if(qbevent){evnt(5578);r=0;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5499);}while(r); -S_6287:; +if(!qbevent)break;evnt(5579);}while(r); +S_6451:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5500);if(r)goto S_6287;} +if(qbevent){evnt(5580);if(r)goto S_6451;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5500);}while(r); +if(!qbevent)break;evnt(5580);}while(r); } -S_6290:; +S_6454:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||new_error){ -if(qbevent){evnt(5501);if(r)goto S_6290;} +if(qbevent){evnt(5581);if(r)goto S_6454;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5501);}while(r); +if(!qbevent)break;evnt(5581);}while(r); }else{ do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5501);}while(r); +if(!qbevent)break;evnt(5581);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5502);}while(r); -S_6296:; +if(!qbevent)break;evnt(5582);}while(r); +S_6460:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5503);if(r)goto S_6296;} +if(qbevent){evnt(5583);if(r)goto S_6460;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5503);}while(r); +if(!qbevent)break;evnt(5583);}while(r); } -S_6299:; +S_6463:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5504);if(r)goto S_6299;} +if(qbevent){evnt(5584);if(r)goto S_6463;} do{ -SUB_GETID(&(pass691=qbr(func_val(__STRING_E)))); +SUB_GETID(&(pass723=qbr(func_val(__STRING_E)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5505);}while(r); -S_6301:; +if(!qbevent)break;evnt(5585);}while(r); +S_6465:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5506);if(r)goto S_6301;} +if(qbevent){evnt(5586);if(r)goto S_6465;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5506);}while(r); +if(!qbevent)break;evnt(5586);}while(r); } -S_6304:; +S_6468:; if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(5507);if(r)goto S_6304;} -S_6305:; +if(qbevent){evnt(5587);if(r)goto S_6468;} +S_6469:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(5508);if(r)goto S_6305;} -S_6306:; +if(qbevent){evnt(5588);if(r)goto S_6469;} +S_6470:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ -if(qbevent){evnt(5509);if(r)goto S_6306;} -S_6307:; +if(qbevent){evnt(5589);if(r)goto S_6470;} +S_6471:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(5510);if(r)goto S_6307;} +if(qbevent){evnt(5590);if(r)goto S_6471;} do{ goto LABEL_FORNEXTFOUNDVAR2; -if(!qbevent)break;evnt(5511);}while(r); +if(!qbevent)break;evnt(5591);}while(r); } } } @@ -23256,2402 +23984,2646 @@ if(!qbevent)break;evnt(5511);}while(r); do{ qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable after NEXT",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5517);}while(r); +if(!qbevent)break;evnt(5597);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5517);}while(r); +if(!qbevent)break;evnt(5597);}while(r); LABEL_FORNEXTFOUNDVAR2:; -if(qbevent){evnt(5518);r=0;} +if(qbevent){evnt(5598);r=0;} LABEL_SIMPLENEXT:; -if(qbevent){evnt(5519);r=0;} -S_6316:; +if(qbevent){evnt(5599);r=0;} +S_6480:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||new_error){ -if(qbevent){evnt(5520);if(r)goto S_6316;} +if(qbevent){evnt(5600);if(r)goto S_6480;} do{ qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5520);}while(r); +if(!qbevent)break;evnt(5600);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5520);}while(r); +if(!qbevent)break;evnt(5600);}while(r); } -S_6320:; +S_6484:; if (((-(*__LONG_N!= 1 ))&(-(((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]!=*__LONG_CURRENTID)))||new_error){ -if(qbevent){evnt(5521);if(r)goto S_6320;} +if(qbevent){evnt(5601);if(r)goto S_6484;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5521);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5521);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip692; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip692; -skip692: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5522);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip693; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip693; -skip693: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5523);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip694; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip694; -skip694: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5524);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5525);}while(r); -S_6328:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5526);if(r)goto S_6328;} -do{ -goto fornext_exit_688; -if(!qbevent)break;evnt(5526);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5527);}while(r); -}else{ -S_6333:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ -if(qbevent){evnt(5531);if(r)goto S_6333;} -do{ -qbs_set(__STRING_V,qbs_add(qbs_add(__STRING_V,__STRING1_SP),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5531);}while(r); -}else{ -do{ -qbs_set(__STRING_V,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5531);}while(r); -} -S_6338:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5532);if(r)goto S_6338;} -do{ -goto LABEL_LASTNEXTELE; -if(!qbevent)break;evnt(5532);}while(r); -} -} -fornext_continue_688:; -} -fornext_exit_688:; -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5538);}while(r); -S_6344:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5538);if(r)goto S_6344;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5538);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5538);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5539);}while(r); -} -} -S_6352:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5545);if(r)goto S_6352;} -S_6353:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(5546);if(r)goto S_6353;} -S_6354:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5547);if(r)goto S_6354;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip697; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip697; -skip697: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5547);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5547);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5549);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5550);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(5551);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(5552);}while(r); -S_6362:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5553);if(r)goto S_6362;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass698= 2 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5554);}while(r); -S_6364:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5555);if(r)goto S_6364;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5555);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("WHILE",5),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5556);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5557);}while(r); -S_6369:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5557);if(r)goto S_6369;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5557);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5557);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5558);}while(r); -S_6375:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5559);if(r)goto S_6375;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5559);}while(r); -} -S_6378:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5560);if(r)goto S_6378;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass700= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5560);}while(r); -} -S_6381:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5561);if(r)goto S_6381;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5561);}while(r); -} -S_6384:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5562);if(r)goto S_6384;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5562);}while(r); -} -S_6387:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5563);if(r)goto S_6387;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Cannot accept a STRING type.",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5563);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5563);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip701; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); -if (new_error) goto skip701; -skip701: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5564);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Expected expression after WHILE.",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5566);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5566);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5569);}while(r); -} -} -S_6399:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5573);if(r)goto S_6399;} -S_6400:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||new_error){ -if(qbevent){evnt(5574);if(r)goto S_6400;} -S_6401:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||new_error){ -if(qbevent){evnt(5577);if(r)goto S_6401;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5577);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5577);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip702; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ww_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip702; -skip702: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5578);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip703; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip703; -skip703: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5579);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip704; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ww_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip704; -skip704: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5580);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5581);}while(r); -do{ -qbs_set(__STRING_L,qbs_new_txt_len("WEND",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5582);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5583);}while(r); -S_6411:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5583);if(r)goto S_6411;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5583);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5583);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5584);}while(r); -} -} -S_6419:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5592);if(r)goto S_6419;} -S_6420:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||new_error){ -if(qbevent){evnt(5593);if(r)goto S_6420;} -S_6421:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5594);if(r)goto S_6421;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip706; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip706; -skip706: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5594);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5594);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5595);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5596);}while(r); -do{ -qbs_set(__STRING_L,qbs_new_txt_len("DO",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5597);}while(r); -S_6428:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5598);if(r)goto S_6428;} -do{ -*__LONG_WHILEUNTIL= 0 ; -if(!qbevent)break;evnt(5599);}while(r); -S_6430:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(5600);if(r)goto S_6430;} -do{ -*__LONG_WHILEUNTIL= 1 ; -if(!qbevent)break;evnt(5600);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("WHILE",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5600);}while(r); -} -S_6434:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ -if(qbevent){evnt(5601);if(r)goto S_6434;} -do{ -*__LONG_WHILEUNTIL= 2 ; if(!qbevent)break;evnt(5601);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("UNTIL",5))); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_ERRMES; if(!qbevent)break;evnt(5601);}while(r); } -S_6438:; -if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ -if(qbevent){evnt(5602);if(r)goto S_6438;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Expected WHILE or UNTIL after DO.",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5602);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5602);}while(r); -} -S_6442:; -if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ -if(qbevent){evnt(5603);if(r)goto S_6442;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5603);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5603);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass707= 3 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5604);}while(r); -S_6447:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5605);if(r)goto S_6447;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5605);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5606);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5607);}while(r); -S_6452:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5608);if(r)goto S_6452;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5608);}while(r); -} -S_6455:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5609);if(r)goto S_6455;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass708= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5609);}while(r); -} -S_6458:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5610);if(r)goto S_6458;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5610);}while(r); -} -S_6461:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5611);if(r)goto S_6461;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5611);}while(r); -} -S_6464:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5612);if(r)goto S_6464;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Cannot accept a STRING type.",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5612);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5612);}while(r); -} -S_6468:; -if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ -if(qbevent){evnt(5613);if(r)goto S_6468;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip709; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); -if (new_error) goto skip709; -skip709: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5613);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip710; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); -if (new_error) goto skip710; -skip710: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5613);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ; -if(!qbevent)break;evnt(5614);}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ; -if(!qbevent)break;evnt(5616);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip711; -sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); -if (new_error) goto skip711; -skip711: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5617);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(5619);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5620);}while(r); -S_6480:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5620);if(r)goto S_6480;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5620);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5620);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5621);}while(r); -} -} -S_6488:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5625);if(r)goto S_6488;} -S_6489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||new_error){ -if(qbevent){evnt(5626);if(r)goto S_6489;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("LOOP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5627);}while(r); -S_6491:; -if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 3 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 4 )))||new_error){ -if(qbevent){evnt(5628);if(r)goto S_6491;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5628);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5628);}while(r); -} -S_6495:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5629);if(r)goto S_6495;} -S_6496:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5630);if(r)goto S_6496;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip713; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip713; -skip713: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5630);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5630);}while(r); -} -S_6500:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ -if(qbevent){evnt(5631);if(r)goto S_6500;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5631);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5631);}while(r); -} -do{ -*__LONG_WHILEUNTIL= 0 ; -if(!qbevent)break;evnt(5632);}while(r); -S_6505:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(5633);if(r)goto S_6505;} -do{ -*__LONG_WHILEUNTIL= 1 ; -if(!qbevent)break;evnt(5633);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("WHILE",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5633);}while(r); -} -S_6509:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ -if(qbevent){evnt(5634);if(r)goto S_6509;} -do{ -*__LONG_WHILEUNTIL= 2 ; -if(!qbevent)break;evnt(5634);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("UNTIL",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5634);}while(r); -} -S_6513:; -if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ -if(qbevent){evnt(5635);if(r)goto S_6513;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Expected WHILE or UNTIL after LOOP.",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5635);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5635);}while(r); -} -S_6517:; -if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ -if(qbevent){evnt(5636);if(r)goto S_6517;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5636);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5636);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass714= 3 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5637);}while(r); -S_6522:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5638);if(r)goto S_6522;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5638);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5639);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5640);}while(r); -S_6527:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5641);if(r)goto S_6527;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5641);}while(r); -} -S_6530:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5642);if(r)goto S_6530;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass715= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5642);}while(r); -} -S_6533:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5643);if(r)goto S_6533;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5643);}while(r); -} -S_6536:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5644);if(r)goto S_6536;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5644);}while(r); -} -S_6539:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5645);if(r)goto S_6539;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Cannot accept a STRING type.",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5645);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5645);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip716; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip716; -skip716: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5646);}while(r); -S_6544:; -if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ -if(qbevent){evnt(5647);if(r)goto S_6544;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip717; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!new_error));",17)), 0 , 0 , 1 ); -if (new_error) goto skip717; -skip717: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5647);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip718; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!new_error));",18)), 0 , 0 , 1 ); -if (new_error) goto skip718; -skip718: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5647);}while(r); -} -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip719; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip719; -skip719: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5649);}while(r); -S_6551:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ -if(qbevent){evnt(5650);if(r)goto S_6551;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip720; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip720; -skip720: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5651);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip721; -sub_file_print(tmp_fileno,qbs_new_txt_len("}while(1);",10), 0 , 0 , 1 ); -if (new_error) goto skip721; -skip721: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5653);}while(r); -} -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip722; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("dl_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip722; -skip722: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5656);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5657);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5658);}while(r); -S_6560:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5658);if(r)goto S_6560;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5658);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5658);}while(r); -} -S_6565:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5659);if(r)goto S_6565;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5659);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5660);}while(r); -} -} -S_6571:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5672);if(r)goto S_6571;} -S_6572:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ -if(qbevent){evnt(5673);if(r)goto S_6572;} -S_6573:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5674);if(r)goto S_6573;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip724; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip724; skip724: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5674);}while(r); +if(!qbevent)break;evnt(5602);}while(r); +S_6489:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_NOCHECKS== 0 )))||new_error){ +if(qbevent){evnt(5603);if(r)goto S_6489;} do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5674);}while(r); +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass725= 0 )); +if(!qbevent)break;evnt(5604);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip726; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip726; +skip726: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5605);}while(r); } do{ -qbs_set(__STRING_L,qbs_new_txt_len("FOR",3)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip727; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip727; +skip727: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5676);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5607);}while(r); do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5677);}while(r); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip728; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip728; +skip728: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5608);}while(r); do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5678);}while(r); +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5609);}while(r); +S_6496:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5610);if(r)goto S_6496;} do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(5679);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(5680);}while(r); +goto fornext_exit_720; +if(!qbevent)break;evnt(5610);}while(r); +} do{ qbs_set(__STRING_V,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5682);}while(r); -do{ -qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5683);}while(r); -do{ -qbs_set(__STRING_P3,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5684);}while(r); -do{ -*__LONG_STEPUSED= 0 ; -if(!qbevent)break;evnt(5684);}while(r); -do{ -qbs_set(__STRING_P2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5685);}while(r); -do{ -*__LONG_MODE= 0 ; -if(!qbevent)break;evnt(5686);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(5687);}while(r); -S_6589:; -fornext_value726= 2 ; -fornext_finalvalue726=*__LONG_N; -fornext_step726= 1 ; -if (fornext_step726<0) fornext_step_negative726=1; else fornext_step_negative726=0; -if (new_error) goto fornext_error726; -goto fornext_entrylabel726; -while(1){ -fornext_value726=fornext_step726+(*__LONG_I); -fornext_entrylabel726: -*__LONG_I=fornext_value726; -if (fornext_step_negative726){ -if (fornext_value726fornext_finalvalue726) break; -} -fornext_error726:; -if(qbevent){evnt(5688);if(r)goto S_6589;} +S_6501:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ +if(qbevent){evnt(5615);if(r)goto S_6501;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_set(__STRING_V,qbs_add(qbs_add(__STRING_V,__STRING1_SP),__STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5689);}while(r); -S_6591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(5690);if(r)goto S_6591;} -S_6592:; -if ((-(*__LONG_MODE!= 0 ))||new_error){ -if(qbevent){evnt(5691);if(r)goto S_6592;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5691);}while(r); -do{ -goto fornext_exit_725; -if(!qbevent)break;evnt(5691);}while(r); -} -do{ -*__LONG_MODE= 1 ; -if(!qbevent)break;evnt(5692);}while(r); -do{ -qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass727= 2 ),&(pass728=*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5693);}while(r); -do{ -*__LONG_EQUPOS=*__LONG_I; -if(!qbevent)break;evnt(5694);}while(r); -} -S_6600:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||new_error){ -if(qbevent){evnt(5696);if(r)goto S_6600;} -S_6601:; -if ((-(*__LONG_MODE!= 1 ))||new_error){ -if(qbevent){evnt(5697);if(r)goto S_6601;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5697);}while(r); -do{ -goto fornext_exit_725; -if(!qbevent)break;evnt(5697);}while(r); -} -do{ -*__LONG_MODE= 2 ; -if(!qbevent)break;evnt(5698);}while(r); -do{ -qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass729=*__LONG_EQUPOS+ 1 ),&(pass730=*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5699);}while(r); -do{ -*__LONG_TOPOS=*__LONG_I; -if(!qbevent)break;evnt(5700);}while(r); -} -S_6609:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||new_error){ -if(qbevent){evnt(5702);if(r)goto S_6609;} -S_6610:; -if ((-(*__LONG_MODE!= 2 ))||new_error){ -if(qbevent){evnt(5703);if(r)goto S_6610;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5703);}while(r); -do{ -goto fornext_exit_725; -if(!qbevent)break;evnt(5703);}while(r); -} -do{ -*__LONG_MODE= 3 ; -if(!qbevent)break;evnt(5704);}while(r); -do{ -*__LONG_STEPUSED= 1 ; -if(!qbevent)break;evnt(5705);}while(r); -do{ -qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass731=*__LONG_TOPOS+ 1 ),&(pass732=*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5706);}while(r); -do{ -qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass733=*__LONG_I+ 1 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5707);}while(r); -do{ -goto fornext_exit_725; -if(!qbevent)break;evnt(5708);}while(r); -} -fornext_continue_725:; -} -fornext_exit_725:; -S_6621:; -if ((-(*__LONG_MODE< 2 ))||new_error){ -if(qbevent){evnt(5711);if(r)goto S_6621;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5711);}while(r); -} -S_6624:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5712);if(r)goto S_6624;} -do{ -qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass734=*__LONG_TOPOS+ 1 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5712);}while(r); -} -S_6627:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||new_error){ -if(qbevent){evnt(5713);if(r)goto S_6627;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5713);}while(r); -} -S_6630:; -if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||new_error){ -if(qbevent){evnt(5714);if(r)goto S_6630;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5714);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5714);}while(r); -} -S_6634:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(5715);if(r)goto S_6634;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end STEP increment",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5715);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5715);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5717);}while(r); -S_6639:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5718);if(r)goto S_6639;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5718);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5719);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5720);}while(r); -S_6644:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5721);if(r)goto S_6644;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5721);}while(r); -} -S_6647:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5722);if(r)goto S_6647;} -do{ -SUB_GETID(&(pass738=qbr(func_val(__STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5723);}while(r); -S_6649:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5724);if(r)goto S_6649;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5724);}while(r); -} -S_6652:; -if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(5725);if(r)goto S_6652;} -S_6653:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(5726);if(r)goto S_6653;} -S_6654:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ -if(qbevent){evnt(5727);if(r)goto S_6654;} -S_6655:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(5728);if(r)goto S_6655;} -do{ -goto LABEL_FORNEXTFOUNDVAR; -if(!qbevent)break;evnt(5729);}while(r); -} -} -} -} -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5735);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5735);}while(r); -LABEL_FORNEXTFOUNDVAR:; -if(qbevent){evnt(5736);r=0;} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID; -if(!qbevent)break;evnt(5737);}while(r); -do{ -qbs_set(__STRING_V,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5738);}while(r); -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5742);}while(r); -do{ -*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(5743);}while(r); -do{ -*__LONG_BITS=*__LONG_TYP& 511 ; -if(!qbevent)break;evnt(5744);}while(r); -S_6669:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(5745);if(r)goto S_6669;} -S_6670:; -if ((-(*__LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(5746);if(r)goto S_6670;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5746);}while(r); -do{ -*__LONG_CTYP= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(5746);}while(r); -} -S_6674:; -if ((-(*__LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(5747);if(r)goto S_6674;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5747);}while(r); -do{ -*__LONG_CTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(5747);}while(r); -} -S_6678:; -if ((-(*__LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(5748);if(r)goto S_6678;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5748);}while(r); -do{ -*__LONG_CTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(5748);}while(r); -} -}else{ -S_6683:; -if ((-(*__LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(5750);if(r)goto S_6683;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5750);}while(r); -do{ -*__LONG_CTYP= 16 ; -if(!qbevent)break;evnt(5750);}while(r); -} -S_6687:; -if ((-(*__LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(5751);if(r)goto S_6687;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5751);}while(r); -do{ -*__LONG_CTYP= 32 ; -if(!qbevent)break;evnt(5751);}while(r); -} -S_6691:; -if ((-(*__LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(5752);if(r)goto S_6691;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5752);}while(r); -do{ -*__LONG_CTYP= 64 ; -if(!qbevent)break;evnt(5752);}while(r); -} -S_6695:; -if ((-(*__LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(5753);if(r)goto S_6695;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5753);}while(r); -do{ -*__LONG_CTYP= 64 ; -if(!qbevent)break;evnt(5753);}while(r); -} -} -S_6700:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5755);if(r)goto S_6700;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5755);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5755);}while(r); -} -do{ -qbs_set(__STRING_U,FUNC_STR2(&(pass739=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5756);}while(r); -S_6705:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5758);if(r)goto S_6705;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip740; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip740; -skip740: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5759);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip741; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip741; -skip741: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5760);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip742; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip742; -skip742: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5761);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip743; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static uint8 fornext_step_negative",34),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip743; -skip743: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5762);}while(r); +if(!qbevent)break;evnt(5615);}while(r); }else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip744; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip744; -skip744: +qbs_set(__STRING_V,__STRING_A2); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5764);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip745; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip745; -skip745: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5765);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip746; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip746; -skip746: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5766);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip747; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 fornext_step_negative",27),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip747; -skip747: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5767);}while(r); +if(!qbevent)break;evnt(5615);}while(r); } +S_6506:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(5616);if(r)goto S_6506;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5771);}while(r); -S_6717:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5772);if(r)goto S_6717;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5772);}while(r); +goto LABEL_LASTNEXTELE; +if(!qbevent)break;evnt(5616);}while(r); } -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5773);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5774);}while(r); -S_6722:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5775);if(r)goto S_6722;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5775);}while(r); } -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip748; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip748; -skip748: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5776);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5779);}while(r); -S_6727:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5780);if(r)goto S_6727;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5780);}while(r); +fornext_continue_720:; } -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5781);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5782);}while(r); -S_6732:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5783);if(r)goto S_6732;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5783);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip749; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_finalvalue",18),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip749; -skip749: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5784);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5787);}while(r); -S_6737:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5788);if(r)goto S_6737;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5788);}while(r); -} -S_6740:; -if ((-(*__LONG_STEPUSED== 1 ))||new_error){ -if(qbevent){evnt(5789);if(r)goto S_6740;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("STEP",4)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5789);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5790);}while(r); -S_6744:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5791);if(r)goto S_6744;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5791);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip750; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_step",12),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip750; -skip750: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5792);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip751; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step",16),__STRING_U),qbs_new_txt_len("<0) fornext_step_negative",25)),__STRING_U),qbs_new_txt_len("=1; else fornext_step_negative",30)),__STRING_U),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); -if (new_error) goto skip751; -skip751: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5793);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip752; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto fornext_error",33),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip752; -skip752: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5795);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip753; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_entrylabel",23),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip753; -skip753: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5796);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip754; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(1){",9), 0 , 0 , 1 ); -if (new_error) goto skip754; -skip754: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5797);}while(r); -do{ -*__LONG_TYPBAK=*__LONG_TYP; -if(!qbevent)break;evnt(5798);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip755; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=fornext_step",13)),__STRING_U),qbs_new_txt_len("+(",2)),FUNC_REFER(__STRING_V,__LONG_TYP,&(pass756= 0 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip755; -skip755: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5799);}while(r); -S_6754:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5800);if(r)goto S_6754;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5800);}while(r); -} -do{ -*__LONG_TYP=*__LONG_TYPBAK; -if(!qbevent)break;evnt(5801);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip757; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_entrylabel",18),__STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip757; -skip757: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5802);}while(r); -do{ -SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass758= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5803);}while(r); -S_6760:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5804);if(r)goto S_6760;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5804);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip759; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step_negative",25),__STRING_U),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip759; -skip759: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5805);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip760; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_value",17),__STRING_U),qbs_new_txt_len("fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(") break;",8)), 0 , 0 , 1 ); -if (new_error) goto skip762; -skip762: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5808);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip763; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip763; -skip763: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5809);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip764; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_error",13),__STRING_U),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip764; -skip764: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(5810);}while(r); +fornext_exit_720:; do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5812);}while(r); -S_6770:; +if(!qbevent)break;evnt(5622);}while(r); +S_6512:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5812);if(r)goto S_6770;} +if(qbevent){evnt(5622);if(r)goto S_6512;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5812);}while(r); +if(!qbevent)break;evnt(5622);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5812);}while(r); +if(!qbevent)break;evnt(5622);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5623);}while(r); +} +} +S_6520:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5629);if(r)goto S_6520;} +S_6521:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(5630);if(r)goto S_6521;} +S_6522:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5631);if(r)goto S_6522;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip731; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip731; +skip731: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5631);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5631);}while(r); +} +S_6526:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(5634);if(r)goto S_6526;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5635);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5635);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(5638);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(5639);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(5640);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(5641);}while(r); +S_6534:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5642);if(r)goto S_6534;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass732= 2 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5643);}while(r); +S_6536:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5644);if(r)goto S_6536;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5644);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("While",5)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5645);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5646);}while(r); +S_6541:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5646);if(r)goto S_6541;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5646);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5646);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5647);}while(r); +S_6547:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5648);if(r)goto S_6547;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5648);}while(r); +} +S_6550:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5649);if(r)goto S_6550;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass734= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5649);}while(r); +} +S_6553:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5650);if(r)goto S_6553;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5650);}while(r); +} +S_6556:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(5651);if(r)goto S_6556;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5651);}while(r); +} +S_6559:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5652);if(r)goto S_6559;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Cannot accept a STRING type.",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5652);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5652);}while(r); +} +S_6563:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5653);if(r)goto S_6563;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass735= 0 )); +if(!qbevent)break;evnt(5654);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip736; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip736; +skip736: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5655);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip737; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); +if (new_error) goto skip737; +skip737: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5657);}while(r); +}else{ +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WHILE ERROR! Expected expression after WHILE.",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5659);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5659);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5814);}while(r); +if(!qbevent)break;evnt(5662);}while(r); } } -S_6778:; +S_6575:; if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5819);if(r)goto S_6778;} -S_6779:; +if(qbevent){evnt(5666);if(r)goto S_6575;} +S_6576:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||new_error){ +if(qbevent){evnt(5667);if(r)goto S_6576;} +S_6577:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||new_error){ +if(qbevent){evnt(5670);if(r)goto S_6577;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5670);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5670);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip738; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ww_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip738; +skip738: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5671);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip739; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip739; +skip739: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5672);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip740; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ww_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip740; +skip740: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5673);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5674);}while(r); +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Wend",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5675);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5676);}while(r); +S_6587:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5676);if(r)goto S_6587;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5676);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5676);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5677);}while(r); +} +} +S_6595:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5685);if(r)goto S_6595;} +S_6596:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||new_error){ +if(qbevent){evnt(5686);if(r)goto S_6596;} +S_6597:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5687);if(r)goto S_6597;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip742; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip742; +skip742: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5687);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5687);}while(r); +} +S_6601:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(5690);if(r)goto S_6601;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5691);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5691);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(5694);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(5695);}while(r); +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5696);}while(r); +S_6608:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5697);if(r)goto S_6608;} +do{ +*__LONG_WHILEUNTIL= 0 ; +if(!qbevent)break;evnt(5698);}while(r); +S_6610:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(5699);if(r)goto S_6610;} +do{ +*__LONG_WHILEUNTIL= 1 ; +if(!qbevent)break;evnt(5699);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5699);}while(r); +} +S_6614:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ +if(qbevent){evnt(5700);if(r)goto S_6614;} +do{ +*__LONG_WHILEUNTIL= 2 ; +if(!qbevent)break;evnt(5700);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5700);}while(r); +} +S_6618:; +if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ +if(qbevent){evnt(5701);if(r)goto S_6618;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Expected WHILE or UNTIL after DO.",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5701);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5701);}while(r); +} +S_6622:; +if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ +if(qbevent){evnt(5702);if(r)goto S_6622;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5702);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5702);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass743= 3 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5703);}while(r); +S_6627:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5704);if(r)goto S_6627;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5704);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5705);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5706);}while(r); +S_6632:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5707);if(r)goto S_6632;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5707);}while(r); +} +S_6635:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5708);if(r)goto S_6635;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass744= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5708);}while(r); +} +S_6638:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5709);if(r)goto S_6638;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5709);}while(r); +} +S_6641:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(5710);if(r)goto S_6641;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5710);}while(r); +} +S_6644:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5711);if(r)goto S_6644;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DO ERROR! Cannot accept a STRING type.",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5711);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5711);}while(r); +} +S_6648:; +if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ +if(qbevent){evnt(5712);if(r)goto S_6648;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip745; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); +if (new_error) goto skip745; +skip745: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5712);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip746; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); +if (new_error) goto skip746; +skip746: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5712);}while(r); +} +S_6653:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5713);if(r)goto S_6653;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass747= 0 )); +if(!qbevent)break;evnt(5714);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip748; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip748; +skip748: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5715);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ; +if(!qbevent)break;evnt(5717);}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ; +if(!qbevent)break;evnt(5719);}while(r); +S_6660:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_NOCHECKS== 0 )))||new_error){ +if(qbevent){evnt(5720);if(r)goto S_6660;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass749= 0 )); +if(!qbevent)break;evnt(5721);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip750; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip750; +skip750: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5722);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip751; +sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); +if (new_error) goto skip751; +skip751: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5724);}while(r); +} +} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(5727);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5728);}while(r); +S_6669:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5728);if(r)goto S_6669;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5728);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5728);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(5729);}while(r); +} +} +S_6677:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5733);if(r)goto S_6677;} +S_6678:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||new_error){ +if(qbevent){evnt(5734);if(r)goto S_6678;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5735);}while(r); +S_6680:; +if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 3 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 4 )))||new_error){ +if(qbevent){evnt(5736);if(r)goto S_6680;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5736);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5736);}while(r); +} +S_6684:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5737);if(r)goto S_6684;} +S_6685:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5738);if(r)goto S_6685;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip753; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip753; +skip753: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5738);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5738);}while(r); +} +S_6689:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ +if(qbevent){evnt(5739);if(r)goto S_6689;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5739);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5739);}while(r); +} +do{ +*__LONG_WHILEUNTIL= 0 ; +if(!qbevent)break;evnt(5740);}while(r); +S_6694:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(5741);if(r)goto S_6694;} +do{ +*__LONG_WHILEUNTIL= 1 ; +if(!qbevent)break;evnt(5741);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("While",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5741);}while(r); +} +S_6698:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ +if(qbevent){evnt(5742);if(r)goto S_6698;} +do{ +*__LONG_WHILEUNTIL= 2 ; +if(!qbevent)break;evnt(5742);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Until",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5742);}while(r); +} +S_6702:; +if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ +if(qbevent){evnt(5743);if(r)goto S_6702;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Expected WHILE or UNTIL after LOOP.",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5743);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5743);}while(r); +} +S_6706:; +if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ +if(qbevent){evnt(5744);if(r)goto S_6706;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Condition expected after WHILE/UNTIL",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5744);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5744);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass754= 3 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5745);}while(r); +S_6711:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5746);if(r)goto S_6711;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5746);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5747);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5748);}while(r); +S_6716:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5749);if(r)goto S_6716;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5749);}while(r); +} +S_6719:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5750);if(r)goto S_6719;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass755= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5750);}while(r); +} +S_6722:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5751);if(r)goto S_6722;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5751);}while(r); +} +S_6725:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(5752);if(r)goto S_6725;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5752);}while(r); +} +S_6728:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5753);if(r)goto S_6728;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("LOOP ERROR! Cannot accept a STRING type.",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5753);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5753);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip756; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip756; +skip756: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5754);}while(r); +S_6733:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5755);if(r)goto S_6733;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass757= 0 )); +if(!qbevent)break;evnt(5756);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip758; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip758; +skip758: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5757);}while(r); +} +S_6737:; +if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ +if(qbevent){evnt(5759);if(r)goto S_6737;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip759; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!new_error));",17)), 0 , 0 , 1 ); +if (new_error) goto skip759; +skip759: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5759);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip760; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!new_error));",18)), 0 , 0 , 1 ); +if (new_error) goto skip760; +skip760: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5759);}while(r); +} +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip761; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip761; +skip761: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5761);}while(r); +S_6744:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5763);if(r)goto S_6744;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass762= 0 )); +if(!qbevent)break;evnt(5764);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip763; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip763; +skip763: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5765);}while(r); +} +S_6748:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ +if(qbevent){evnt(5768);if(r)goto S_6748;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip764; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip764; +skip764: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5769);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip765; +sub_file_print(tmp_fileno,qbs_new_txt_len("}while(1);",10), 0 , 0 , 1 ); +if (new_error) goto skip765; +skip765: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5771);}while(r); +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip766; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("dl_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip766; +skip766: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5774);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5775);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5776);}while(r); +S_6757:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5776);if(r)goto S_6757;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5776);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5776);}while(r); +} +S_6762:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5777);if(r)goto S_6762;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5777);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(5778);}while(r); +} +} +S_6768:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5790);if(r)goto S_6768;} +S_6769:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ +if(qbevent){evnt(5791);if(r)goto S_6769;} +S_6770:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5792);if(r)goto S_6770;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip768; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip768; +skip768: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5792);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5792);}while(r); +} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5794);}while(r); +S_6775:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(5797);if(r)goto S_6775;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5798);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5798);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(5801);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(5802);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(5803);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(5804);}while(r); +do{ +qbs_set(__STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5806);}while(r); +do{ +qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5807);}while(r); +do{ +qbs_set(__STRING_P3,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5808);}while(r); +do{ +*__LONG_STEPUSED= 0 ; +if(!qbevent)break;evnt(5808);}while(r); +do{ +qbs_set(__STRING_P2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5809);}while(r); +do{ +*__LONG_MODE= 0 ; +if(!qbevent)break;evnt(5810);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(5811);}while(r); +S_6790:; +fornext_value770= 2 ; +fornext_finalvalue770=*__LONG_N; +fornext_step770= 1 ; +if (fornext_step770<0) fornext_step_negative770=1; else fornext_step_negative770=0; +if (new_error) goto fornext_error770; +goto fornext_entrylabel770; +while(1){ +fornext_value770=fornext_step770+(*__LONG_I); +fornext_entrylabel770: +*__LONG_I=fornext_value770; +if (fornext_step_negative770){ +if (fornext_value770fornext_finalvalue770) break; +} +fornext_error770:; +if(qbevent){evnt(5812);if(r)goto S_6790;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5813);}while(r); +S_6792:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(5814);if(r)goto S_6792;} +S_6793:; +if ((-(*__LONG_MODE!= 0 ))||new_error){ +if(qbevent){evnt(5815);if(r)goto S_6793;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5815);}while(r); +do{ +goto fornext_exit_769; +if(!qbevent)break;evnt(5815);}while(r); +} +do{ +*__LONG_MODE= 1 ; +if(!qbevent)break;evnt(5816);}while(r); +do{ +qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass771= 2 ),&(pass772=*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5817);}while(r); +do{ +*__LONG_EQUPOS=*__LONG_I; +if(!qbevent)break;evnt(5818);}while(r); +} +S_6801:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||new_error){ +if(qbevent){evnt(5820);if(r)goto S_6801;} +S_6802:; +if ((-(*__LONG_MODE!= 1 ))||new_error){ +if(qbevent){evnt(5821);if(r)goto S_6802;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5821);}while(r); +do{ +goto fornext_exit_769; +if(!qbevent)break;evnt(5821);}while(r); +} +do{ +*__LONG_MODE= 2 ; +if(!qbevent)break;evnt(5822);}while(r); +do{ +qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass773=*__LONG_EQUPOS+ 1 ),&(pass774=*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5823);}while(r); +do{ +*__LONG_TOPOS=*__LONG_I; +if(!qbevent)break;evnt(5824);}while(r); +} +S_6810:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||new_error){ +if(qbevent){evnt(5826);if(r)goto S_6810;} +S_6811:; +if ((-(*__LONG_MODE!= 2 ))||new_error){ +if(qbevent){evnt(5827);if(r)goto S_6811;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5827);}while(r); +do{ +goto fornext_exit_769; +if(!qbevent)break;evnt(5827);}while(r); +} +do{ +*__LONG_MODE= 3 ; +if(!qbevent)break;evnt(5828);}while(r); +do{ +*__LONG_STEPUSED= 1 ; +if(!qbevent)break;evnt(5829);}while(r); +do{ +qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass775=*__LONG_TOPOS+ 1 ),&(pass776=*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5830);}while(r); +do{ +qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass777=*__LONG_I+ 1 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5831);}while(r); +do{ +goto fornext_exit_769; +if(!qbevent)break;evnt(5832);}while(r); +} +fornext_continue_769:; +} +fornext_exit_769:; +S_6822:; +if ((-(*__LONG_MODE< 2 ))||new_error){ +if(qbevent){evnt(5835);if(r)goto S_6822;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5835);}while(r); +} +S_6825:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5836);if(r)goto S_6825;} +do{ +qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass778=*__LONG_TOPOS+ 1 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5836);}while(r); +} +S_6828:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||new_error){ +if(qbevent){evnt(5837);if(r)goto S_6828;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5837);}while(r); +} +S_6831:; +if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||new_error){ +if(qbevent){evnt(5838);if(r)goto S_6831;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5838);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5838);}while(r); +} +S_6835:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(5839);if(r)goto S_6835;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected FOR name = start TO end STEP increment",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5839);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5839);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5841);}while(r); +S_6840:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5842);if(r)goto S_6840;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5842);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5843);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5844);}while(r); +S_6845:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5845);if(r)goto S_6845;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5845);}while(r); +} +S_6848:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5846);if(r)goto S_6848;} +do{ +SUB_GETID(&(pass782=qbr(func_val(__STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5847);}while(r); +S_6850:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5848);if(r)goto S_6850;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5848);}while(r); +} +S_6853:; +if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(5849);if(r)goto S_6853;} +S_6854:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(5850);if(r)goto S_6854;} +S_6855:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ +if(qbevent){evnt(5851);if(r)goto S_6855;} +S_6856:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(5852);if(r)goto S_6856;} +do{ +goto LABEL_FORNEXTFOUNDVAR; +if(!qbevent)break;evnt(5853);}while(r); +} +} +} +} +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5859);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5859);}while(r); +LABEL_FORNEXTFOUNDVAR:; +if(qbevent){evnt(5860);r=0;} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID; +if(!qbevent)break;evnt(5861);}while(r); +do{ +qbs_set(__STRING_V,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5862);}while(r); +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5866);}while(r); +do{ +*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(5867);}while(r); +do{ +*__LONG_BITS=*__LONG_TYP& 511 ; +if(!qbevent)break;evnt(5868);}while(r); +S_6870:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(5869);if(r)goto S_6870;} +S_6871:; +if ((-(*__LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(5870);if(r)goto S_6871;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5870);}while(r); +do{ +*__LONG_CTYP= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(5870);}while(r); +} +S_6875:; +if ((-(*__LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(5871);if(r)goto S_6875;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5871);}while(r); +do{ +*__LONG_CTYP= 256 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(5871);}while(r); +} +S_6879:; +if ((-(*__LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(5872);if(r)goto S_6879;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5872);}while(r); +do{ +*__LONG_CTYP= 256 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(5872);}while(r); +} +}else{ +S_6884:; +if ((-(*__LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(5874);if(r)goto S_6884;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5874);}while(r); +do{ +*__LONG_CTYP= 16 ; +if(!qbevent)break;evnt(5874);}while(r); +} +S_6888:; +if ((-(*__LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(5875);if(r)goto S_6888;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5875);}while(r); +do{ +*__LONG_CTYP= 32 ; +if(!qbevent)break;evnt(5875);}while(r); +} +S_6892:; +if ((-(*__LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(5876);if(r)goto S_6892;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5876);}while(r); +do{ +*__LONG_CTYP= 64 ; +if(!qbevent)break;evnt(5876);}while(r); +} +S_6896:; +if ((-(*__LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(5877);if(r)goto S_6896;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5877);}while(r); +do{ +*__LONG_CTYP= 64 ; +if(!qbevent)break;evnt(5877);}while(r); +} +} +S_6901:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5879);if(r)goto S_6901;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unsupported variable used in FOR statement",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5879);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5879);}while(r); +} +do{ +qbs_set(__STRING_U,FUNC_STR2(&(pass783=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5880);}while(r); +S_6906:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5882);if(r)goto S_6906;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip784; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip784; +skip784: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5883);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip785; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip785; +skip785: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5884);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip786; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_CTYPE),qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip786; +skip786: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5885);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip787; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static uint8 fornext_step_negative",34),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip787; +skip787: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5886);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip788; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_value",14)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip788; +skip788: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5888);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip789; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip789; +skip789: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5889);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip790; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_CTYPE,qbs_new_txt_len(" fornext_step",13)),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip790; +skip790: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5890);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip791; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 fornext_step_negative",27),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip791; +skip791: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5891);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5895);}while(r); +S_6918:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5896);if(r)goto S_6918;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5896);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5897);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5898);}while(r); +S_6923:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5899);if(r)goto S_6923;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5899);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip792; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip792; +skip792: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5900);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5903);}while(r); +S_6928:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5904);if(r)goto S_6928;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5904);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5905);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5906);}while(r); +S_6933:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5907);if(r)goto S_6933;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5907);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip793; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_finalvalue",18),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip793; +skip793: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5908);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5911);}while(r); +S_6938:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5912);if(r)goto S_6938;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5912);}while(r); +} +S_6941:; +if ((-(*__LONG_STEPUSED== 1 ))||new_error){ +if(qbevent){evnt(5913);if(r)goto S_6941;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Step",4))),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5913);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5914);}while(r); +S_6945:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5915);if(r)goto S_6945;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5915);}while(r); +} +S_6948:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5917);if(r)goto S_6948;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass794= 0 )); +if(!qbevent)break;evnt(5918);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip795; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip795; +skip795: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5919);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip796; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_step",12),__STRING_U),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip796; +skip796: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5922);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip797; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step",16),__STRING_U),qbs_new_txt_len("<0) fornext_step_negative",25)),__STRING_U),qbs_new_txt_len("=1; else fornext_step_negative",30)),__STRING_U),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); +if (new_error) goto skip797; +skip797: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5923);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip798; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto fornext_error",33),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip798; +skip798: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5925);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip799; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_entrylabel",23),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip799; +skip799: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5926);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip800; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(1){",9), 0 , 0 , 1 ); +if (new_error) goto skip800; +skip800: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5927);}while(r); +do{ +*__LONG_TYPBAK=*__LONG_TYP; +if(!qbevent)break;evnt(5928);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip801; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),qbs_new_txt_len("=fornext_step",13)),__STRING_U),qbs_new_txt_len("+(",2)),FUNC_REFER(__STRING_V,__LONG_TYP,&(pass802= 0 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip801; +skip801: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5929);}while(r); +S_6959:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5930);if(r)goto S_6959;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5930);}while(r); +} +do{ +*__LONG_TYP=*__LONG_TYPBAK; +if(!qbevent)break;evnt(5931);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip803; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_entrylabel",18),__STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip803; +skip803: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5932);}while(r); +do{ +SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass804= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5933);}while(r); +S_6965:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5934);if(r)goto S_6965;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5934);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip805; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (fornext_step_negative",25),__STRING_U),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); +if (new_error) goto skip805; +skip805: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5935);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip806; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (fornext_value",17),__STRING_U),qbs_new_txt_len("fornext_finalvalue",19)),__STRING_U),qbs_new_txt_len(") break;",8)), 0 , 0 , 1 ); +if (new_error) goto skip808; +skip808: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5938);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip809; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip809; +skip809: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5939);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip810; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("fornext_error",13),__STRING_U),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip810; +skip810: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(5940);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5942);}while(r); +S_6975:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5942);if(r)goto S_6975;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5942);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5942);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(5944);}while(r); +} +} +S_6983:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5949);if(r)goto S_6983;} +S_6984:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(5820);if(r)goto S_6779;} +if(qbevent){evnt(5950);if(r)goto S_6984;} do{ qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5829);}while(r); -S_6781:; +if(!qbevent)break;evnt(5959);}while(r); +S_6986:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||new_error){ -if(qbevent){evnt(5831);if(r)goto S_6781;} +if(qbevent){evnt(5961);if(r)goto S_6986;} do{ tqbs=__STRING_TEMP; if (!new_error){ tmp_fileno=func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0); if (!new_error){ tmp_long= 32 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(5832);}while(r); -dl_continue_766:; +if(!qbevent)break;evnt(5962);}while(r); +dl_continue_812:; } -dl_exit_766:; +dl_exit_812:; do{ *__LONG_GOODELSE= 0 ; -if(!qbevent)break;evnt(5835);}while(r); -S_6785:; +if(!qbevent)break;evnt(5965);}while(r); +S_6990:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||new_error){ -if(qbevent){evnt(5836);if(r)goto S_6785;} +if(qbevent){evnt(5966);if(r)goto S_6990;} do{ *__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(5836);}while(r); +if(!qbevent)break;evnt(5966);}while(r); do{ goto LABEL_SKIPELSECHECK; -if(!qbevent)break;evnt(5836);}while(r); +if(!qbevent)break;evnt(5966);}while(r); } -S_6789:; +S_6994:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(5837);if(r)goto S_6789;} +if(qbevent){evnt(5967);if(r)goto S_6994;} do{ *__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(5837);}while(r); +if(!qbevent)break;evnt(5967);}while(r); do{ goto LABEL_SKIPELSECHECK; -if(!qbevent)break;evnt(5837);}while(r); +if(!qbevent)break;evnt(5967);}while(r); } -S_6793:; +S_6998:; do{ -if(qbevent){evnt(5838);if(r)goto S_6793;} +if(qbevent){evnt(5968);if(r)goto S_6998;} do{ *__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5839);}while(r); -S_6795:; +if(!qbevent)break;evnt(5969);}while(r); +S_7000:; if ((*__LONG_SPACELOCATION)||new_error){ -if(qbevent){evnt(5840);if(r)goto S_6795;} +if(qbevent){evnt(5970);if(r)goto S_7000;} do{ qbs_set(__STRING_TEMP,qbs_add(qbs_left(__STRING_TEMP,*__LONG_SPACELOCATION- 1 ),func_mid(__STRING_TEMP,*__LONG_SPACELOCATION+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5840);}while(r); +if(!qbevent)break;evnt(5970);}while(r); } -S_6798:; -dl_continue_767:; +S_7003:; +dl_continue_813:; }while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!new_error)); -dl_exit_767:; -if(qbevent){evnt(5841);if(r)goto S_6798;} -S_6799:; +dl_exit_813:; +if(qbevent){evnt(5971);if(r)goto S_7003;} +S_7004:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(":ELSE",5),0)|func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(":IF",3),0)))||new_error){ -if(qbevent){evnt(5842);if(r)goto S_6799;} +if(qbevent){evnt(5972);if(r)goto S_7004;} do{ *__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(5842);}while(r); +if(!qbevent)break;evnt(5972);}while(r); do{ goto LABEL_SKIPELSECHECK; -if(!qbevent)break;evnt(5842);}while(r); +if(!qbevent)break;evnt(5972);}while(r); } do{ *__LONG_COUNT= 0 ; -if(!qbevent)break;evnt(5843);}while(r); -S_6804:; +if(!qbevent)break;evnt(5973);}while(r); +S_7009:; do{ -if(qbevent){evnt(5844);if(r)goto S_6804;} +if(qbevent){evnt(5974);if(r)goto S_7009;} do{ *__LONG_COUNT=*__LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(5845);}while(r); -S_6806:; -qbs_set(sc_769,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,1)); +if(!qbevent)break;evnt(5975);}while(r); +S_7011:; +qbs_set(sc_815,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(5846);if(r)goto S_6806;} -S_6807:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_769,qbs_new_txt_len("1",1))||qbs_equal(sc_769,qbs_new_txt_len("2",1))||qbs_equal(sc_769,qbs_new_txt_len("3",1))||qbs_equal(sc_769,qbs_new_txt_len("4",1))||qbs_equal(sc_769,qbs_new_txt_len("5",1))||qbs_equal(sc_769,qbs_new_txt_len("6",1))||qbs_equal(sc_769,qbs_new_txt_len("7",1))||qbs_equal(sc_769,qbs_new_txt_len("8",1))||qbs_equal(sc_769,qbs_new_txt_len("9",1))||qbs_equal(sc_769,qbs_new_txt_len("0",1))||qbs_equal(sc_769,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(5847);if(r)goto S_6807;} -goto sc_769_end; +if(qbevent){evnt(5976);if(r)goto S_7011;} +S_7012:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_815,qbs_new_txt_len("1",1))||qbs_equal(sc_815,qbs_new_txt_len("2",1))||qbs_equal(sc_815,qbs_new_txt_len("3",1))||qbs_equal(sc_815,qbs_new_txt_len("4",1))||qbs_equal(sc_815,qbs_new_txt_len("5",1))||qbs_equal(sc_815,qbs_new_txt_len("6",1))||qbs_equal(sc_815,qbs_new_txt_len("7",1))||qbs_equal(sc_815,qbs_new_txt_len("8",1))||qbs_equal(sc_815,qbs_new_txt_len("9",1))||qbs_equal(sc_815,qbs_new_txt_len("0",1))||qbs_equal(sc_815,qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(5977);if(r)goto S_7012;} +sc_ec_27_end:; +goto sc_815_end; } do{ -goto dl_exit_768; -if(!qbevent)break;evnt(5848);}while(r); -sc_769_end:; -S_6811:; -dl_continue_768:; +goto dl_exit_814; +if(!qbevent)break;evnt(5978);}while(r); +sc_815_end:; +S_7016:; +dl_continue_814:; }while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!new_error)); -dl_exit_768:; -if(qbevent){evnt(5850);if(r)goto S_6811;} -S_6812:; +dl_exit_814:; +if(qbevent){evnt(5980);if(r)goto S_7016;} +S_7017:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 4 ,1),qbs_new_txt_len("ELSE",4)))|(qbs_equal(func_mid(__STRING_TEMP,*__LONG_COUNT, 2 ,1),qbs_new_txt_len("IF",2)))))||new_error){ -if(qbevent){evnt(5851);if(r)goto S_6812;} +if(qbevent){evnt(5981);if(r)goto S_7017;} do{ *__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(5851);}while(r); +if(!qbevent)break;evnt(5981);}while(r); } -S_6815:; +S_7020:; if ((~(*__LONG_GOODELSE))||new_error){ -if(qbevent){evnt(5852);if(r)goto S_6815;} +if(qbevent){evnt(5982);if(r)goto S_7020;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5852);}while(r); +if(!qbevent)break;evnt(5982);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5852);}while(r); +if(!qbevent)break;evnt(5982);}while(r); } LABEL_SKIPELSECHECK:; -if(qbevent){evnt(5853);r=0;} -S_6819:; -fornext_value772=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue772= 1 ; -fornext_step772= -1 ; -if (fornext_step772<0) fornext_step_negative772=1; else fornext_step_negative772=0; -if (new_error) goto fornext_error772; -goto fornext_entrylabel772; +if(qbevent){evnt(5983);r=0;} +S_7024:; +fornext_value818=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue818= 1 ; +fornext_step818= -1 ; +if (fornext_step818<0) fornext_step_negative818=1; else fornext_step_negative818=0; +if (new_error) goto fornext_error818; +goto fornext_entrylabel818; while(1){ -fornext_value772=fornext_step772+(*__LONG_I); -fornext_entrylabel772: -*__LONG_I=fornext_value772; -if (fornext_step_negative772){ -if (fornext_value772fornext_finalvalue772) break; +if (fornext_value818>fornext_finalvalue818) break; } -fornext_error772:; -if(qbevent){evnt(5855);if(r)goto S_6819;} +fornext_error818:; +if(qbevent){evnt(5985);if(r)goto S_7024;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(5856);}while(r); -S_6821:; +if(!qbevent)break;evnt(5986);}while(r); +S_7026:; if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(5857);if(r)goto S_6821;} -S_6822:; +if(qbevent){evnt(5987);if(r)goto S_7026;} +S_7027:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ -if(qbevent){evnt(5858);if(r)goto S_6822;} +if(qbevent){evnt(5988);if(r)goto S_7027;} do{ qbs_set(__STRING_A,qbs_new_txt_len("IF-THEN already contains an ELSE statement",42)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5858);}while(r); +if(!qbevent)break;evnt(5988);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5858);}while(r); +if(!qbevent)break;evnt(5988);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip773; +if (new_error) goto skip819; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip773; -skip773: +if (new_error) goto skip819; +skip819: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5859);}while(r); +if(!qbevent)break;evnt(5989);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(5860);}while(r); -S_6828:; +if(!qbevent)break;evnt(5990);}while(r); +S_7033:; if ((-(*__LONG_LINEELSEUSED== 0 ))||new_error){ -if(qbevent){evnt(5861);if(r)goto S_6828;} +if(qbevent){evnt(5991);if(r)goto S_7033;} do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5861);}while(r); +if(!qbevent)break;evnt(5991);}while(r); } do{ -qbs_set(__STRING_L,qbs_new_txt_len("ELSE",4)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Else",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5862);}while(r); +if(!qbevent)break;evnt(5992);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5863);}while(r); -S_6833:; +if(!qbevent)break;evnt(5993);}while(r); +S_7038:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5863);if(r)goto S_6833;} +if(qbevent){evnt(5993);if(r)goto S_7038;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5863);}while(r); +if(!qbevent)break;evnt(5993);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5863);}while(r); +if(!qbevent)break;evnt(5993);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5864);}while(r); +if(!qbevent)break;evnt(5994);}while(r); } -fornext_continue_771:; +fornext_continue_817:; } -fornext_exit_771:; +fornext_exit_817:; do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5867);}while(r); +if(!qbevent)break;evnt(5997);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5867);}while(r); +if(!qbevent)break;evnt(5997);}while(r); } } -S_6845:; +S_7050:; if ((-(*__LONG_N>= 3 ))||new_error){ -if(qbevent){evnt(5871);if(r)goto S_6845;} -S_6846:; +if(qbevent){evnt(6001);if(r)goto S_7050;} +S_7051:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||new_error){ -if(qbevent){evnt(5872);if(r)goto S_6846;} -S_6847:; +if(qbevent){evnt(6002);if(r)goto S_7051;} +S_7052:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5873);if(r)goto S_6847;} +if(qbevent){evnt(6003);if(r)goto S_7052;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip775; +if (new_error) goto skip821; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip775; -skip775: +if (new_error) goto skip821; +skip821: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5873);}while(r); +if(!qbevent)break;evnt(6004);}while(r); do{ *__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5873);}while(r); +if(!qbevent)break;evnt(6004);}while(r); +S_7055:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6005);if(r)goto S_7055;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass822= 0 )); +if(!qbevent)break;evnt(6006);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip823; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip823; +skip823: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6007);}while(r); } -S_6851:; -fornext_value777=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue777= 1 ; -fornext_step777= -1 ; -if (fornext_step777<0) fornext_step_negative777=1; else fornext_step_negative777=0; -if (new_error) goto fornext_error777; -goto fornext_entrylabel777; +} +S_7060:; +fornext_value825=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue825= 1 ; +fornext_step825= -1 ; +if (fornext_step825<0) fornext_step_negative825=1; else fornext_step_negative825=0; +if (new_error) goto fornext_error825; +goto fornext_entrylabel825; while(1){ -fornext_value777=fornext_step777+(*__LONG_I); -fornext_entrylabel777: -*__LONG_I=fornext_value777; -if (fornext_step_negative777){ -if (fornext_value777fornext_finalvalue777) break; +if (fornext_value825>fornext_finalvalue825) break; } -fornext_error777:; -if(qbevent){evnt(5875);if(r)goto S_6851;} +fornext_error825:; +if(qbevent){evnt(6010);if(r)goto S_7060;} do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(5876);}while(r); -S_6853:; +if(!qbevent)break;evnt(6011);}while(r); +S_7062:; if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(5877);if(r)goto S_6853;} -S_6854:; +if(qbevent){evnt(6012);if(r)goto S_7062;} +S_7063:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ -if(qbevent){evnt(5878);if(r)goto S_6854;} +if(qbevent){evnt(6013);if(r)goto S_7063;} do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5878);}while(r); +if(!qbevent)break;evnt(6013);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5878);}while(r); +if(!qbevent)break;evnt(6013);}while(r); } do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(5879);}while(r); +if(!qbevent)break;evnt(6014);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]+ 1 ; -if(!qbevent)break;evnt(5880);}while(r); +if(!qbevent)break;evnt(6015);}while(r); do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5881);}while(r); -S_6861:; +if(!qbevent)break;evnt(6016);}while(r); +S_7070:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(5882);if(r)goto S_6861;} +if(qbevent){evnt(6017);if(r)goto S_7070;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5882);}while(r); +if(!qbevent)break;evnt(6017);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5882);}while(r); +if(!qbevent)break;evnt(6017);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip778; +if (new_error) goto skip826; sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip778; -skip778: +if (new_error) goto skip826; +skip826: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5883);}while(r); +if(!qbevent)break;evnt(6018);}while(r); do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass779= 2 ),&(pass780=*__LONG_N- 1 )))); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass827= 2 ),&(pass828=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5884);}while(r); -S_6867:; +if(!qbevent)break;evnt(6019);}while(r); +S_7076:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5885);if(r)goto S_6867;} +if(qbevent){evnt(6020);if(r)goto S_7076;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5885);}while(r); +if(!qbevent)break;evnt(6020);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ELSEIF",6),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("THEN",4))); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("ElseIf",6)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5886);}while(r); +if(!qbevent)break;evnt(6021);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5887);}while(r); -S_6872:; +if(!qbevent)break;evnt(6022);}while(r); +S_7081:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5887);if(r)goto S_6872;} +if(qbevent){evnt(6022);if(r)goto S_7081;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5887);}while(r); +if(!qbevent)break;evnt(6022);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5887);}while(r); +if(!qbevent)break;evnt(6022);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5888);}while(r); -S_6878:; +if(!qbevent)break;evnt(6023);}while(r); +S_7087:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5889);if(r)goto S_6878;} +if(qbevent){evnt(6024);if(r)goto S_7087;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5889);}while(r); +if(!qbevent)break;evnt(6024);}while(r); } -S_6881:; +S_7090:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5890);if(r)goto S_6881;} +if(qbevent){evnt(6025);if(r)goto S_7090;} do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass782= 0 ))); +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass830= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5890);}while(r); +if(!qbevent)break;evnt(6025);}while(r); } -S_6884:; +S_7093:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5891);if(r)goto S_6884;} +if(qbevent){evnt(6026);if(r)goto S_7093;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5891);}while(r); +if(!qbevent)break;evnt(6026);}while(r); } -S_6887:; +S_7096:; if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(5892);if(r)goto S_6887;} +if(qbevent){evnt(6027);if(r)goto S_7096;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF LEN(stringexpression) THEN",42)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5893);}while(r); +if(!qbevent)break;evnt(6028);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5893);}while(r); +if(!qbevent)break;evnt(6028);}while(r); } -S_6891:; +S_7100:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5895);if(r)goto S_6891;} +if(qbevent){evnt(6030);if(r)goto S_7100;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip783; +if (new_error) goto skip831; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len(")){",3)), 0 , 0 , 1 ); -if (new_error) goto skip783; -skip783: +if (new_error) goto skip831; +skip831: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5896);}while(r); +if(!qbevent)break;evnt(6031);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip784; +if (new_error) goto skip832; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_E),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip784; -skip784: +if (new_error) goto skip832; +skip832: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5898);}while(r); +if(!qbevent)break;evnt(6033);}while(r); } do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5900);}while(r); +if(!qbevent)break;evnt(6035);}while(r); do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5901);}while(r); +if(!qbevent)break;evnt(6036);}while(r); } -fornext_continue_776:; +fornext_continue_824:; } -fornext_exit_776:; +fornext_exit_824:; do{ qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5904);}while(r); +if(!qbevent)break;evnt(6039);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5904);}while(r); +if(!qbevent)break;evnt(6039);}while(r); } } -S_6904:; +S_7113:; if ((-(*__LONG_N>= 3 ))||new_error){ -if(qbevent){evnt(5908);if(r)goto S_6904;} -S_6905:; +if(qbevent){evnt(6043);if(r)goto S_7113;} +S_7114:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||new_error){ -if(qbevent){evnt(5909);if(r)goto S_6905;} -S_6906:; +if(qbevent){evnt(6044);if(r)goto S_7114;} +S_7115:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5910);if(r)goto S_6906;} +if(qbevent){evnt(6045);if(r)goto S_7115;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip785; +if (new_error) goto skip833; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip785; -skip785: +if (new_error) goto skip833; +skip833: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5910);}while(r); +if(!qbevent)break;evnt(6046);}while(r); do{ *__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5910);}while(r); +if(!qbevent)break;evnt(6046);}while(r); +S_7118:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6047);if(r)goto S_7118;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass834= 0 )); +if(!qbevent)break;evnt(6048);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip835; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip835; +skip835: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6049);}while(r); +} +} +S_7123:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(6054);if(r)goto S_7123;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6055);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6055);}while(r); } do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5912);}while(r); +if(!qbevent)break;evnt(6058);}while(r); do{ *__LONG_IFTYPE= 0 ; -if(!qbevent)break;evnt(5913);}while(r); -S_6912:; +if(!qbevent)break;evnt(6059);}while(r); +S_7129:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(5914);if(r)goto S_6912;} +if(qbevent){evnt(6060);if(r)goto S_7129;} do{ *__LONG_IFTYPE= 1 ; -if(!qbevent)break;evnt(5914);}while(r); +if(!qbevent)break;evnt(6060);}while(r); } -S_6915:; +S_7132:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ -if(qbevent){evnt(5915);if(r)goto S_6915;} +if(qbevent){evnt(6061);if(r)goto S_7132;} do{ *__LONG_IFTYPE= 2 ; -if(!qbevent)break;evnt(5915);}while(r); +if(!qbevent)break;evnt(6061);}while(r); } -S_6918:; +S_7135:; if ((-(*__LONG_IFTYPE== 0 ))||new_error){ -if(qbevent){evnt(5916);if(r)goto S_6918;} +if(qbevent){evnt(6062);if(r)goto S_7135;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected IF expression THEN/GOTO",32)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5916);}while(r); +if(!qbevent)break;evnt(6062);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5916);}while(r); +if(!qbevent)break;evnt(6062);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5918);}while(r); +if(!qbevent)break;evnt(6064);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5919);}while(r); +if(!qbevent)break;evnt(6065);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(5920);}while(r); +if(!qbevent)break;evnt(6066);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(5921);}while(r); +if(!qbevent)break;evnt(6067);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(5922);}while(r); +if(!qbevent)break;evnt(6068);}while(r); do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass786= 2 ),&(pass787=*__LONG_N- 1 )))); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass836= 2 ),&(pass837=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5924);}while(r); -S_6928:; +if(!qbevent)break;evnt(6070);}while(r); +S_7145:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5925);if(r)goto S_6928;} +if(qbevent){evnt(6071);if(r)goto S_7145;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5925);}while(r); +if(!qbevent)break;evnt(6071);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("IF",2),__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("If",2)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5926);}while(r); +if(!qbevent)break;evnt(6072);}while(r); do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5927);}while(r); -S_6933:; +if(!qbevent)break;evnt(6073);}while(r); +S_7150:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5928);if(r)goto S_6933;} +if(qbevent){evnt(6074);if(r)goto S_7150;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5928);}while(r); +if(!qbevent)break;evnt(6074);}while(r); } -S_6936:; +S_7153:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5929);if(r)goto S_6936;} +if(qbevent){evnt(6075);if(r)goto S_7153;} do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass788= 0 ))); +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass838= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5929);}while(r); +if(!qbevent)break;evnt(6075);}while(r); } -S_6939:; +S_7156:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5930);if(r)goto S_6939;} +if(qbevent){evnt(6076);if(r)goto S_7156;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5930);}while(r); +if(!qbevent)break;evnt(6076);}while(r); } -S_6942:; +S_7159:; if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(5932);if(r)goto S_6942;} +if(qbevent){evnt(6078);if(r)goto S_7159;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected IF LEN(stringexpression) THEN",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5933);}while(r); +if(!qbevent)break;evnt(6079);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5933);}while(r); +if(!qbevent)break;evnt(6079);}while(r); } -S_6946:; +S_7163:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5936);if(r)goto S_6946;} +if(qbevent){evnt(6082);if(r)goto S_7163;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip789; +if (new_error) goto skip839; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); -if (new_error) goto skip789; -skip789: +if (new_error) goto skip839; +skip839: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5937);}while(r); +if(!qbevent)break;evnt(6083);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip790; +if (new_error) goto skip840; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); -if (new_error) goto skip790; -skip790: +if (new_error) goto skip840; +skip840: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5939);}while(r); +if(!qbevent)break;evnt(6085);}while(r); } -S_6951:; +S_7168:; if ((-(*__LONG_IFTYPE== 1 ))||new_error){ -if(qbevent){evnt(5942);if(r)goto S_6951;} +if(qbevent){evnt(6088);if(r)goto S_7168;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("THEN",4))); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Then",4)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5942);}while(r); +if(!qbevent)break;evnt(6088);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5943);}while(r); -S_6955:; +if(!qbevent)break;evnt(6089);}while(r); +S_7172:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(5943);if(r)goto S_6955;} +if(qbevent){evnt(6089);if(r)goto S_7172;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5943);}while(r); +if(!qbevent)break;evnt(6089);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5943);}while(r); +if(!qbevent)break;evnt(6089);}while(r); } -S_6960:; +S_7177:; if ((-(*__LONG_IFTYPE== 2 ))||new_error){ -if(qbevent){evnt(5945);if(r)goto S_6960;} +if(qbevent){evnt(6091);if(r)goto S_7177;} do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5946);}while(r); +if(!qbevent)break;evnt(6092);}while(r); } do{ *__LONG_THENGOTO= 1 ; -if(!qbevent)break;evnt(5949);}while(r); +if(!qbevent)break;evnt(6095);}while(r); do{ goto LABEL_FINISHEDLINE2; -if(!qbevent)break;evnt(5950);}while(r); +if(!qbevent)break;evnt(6096);}while(r); } } -S_6967:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass792= 1 )),qbs_new_txt_len("ENDIF",5)))))||new_error){ -if(qbevent){evnt(5955);if(r)goto S_6967;} -S_6968:; +S_7184:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass842= 1 )),qbs_new_txt_len("ENDIF",5)))))||new_error){ +if(qbevent){evnt(6101);if(r)goto S_7184;} +S_7185:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ -if(qbevent){evnt(5956);if(r)goto S_6968;} +if(qbevent){evnt(6102);if(r)goto S_7185;} do{ qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5956);}while(r); +if(!qbevent)break;evnt(6102);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5956);}while(r); +if(!qbevent)break;evnt(6102);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5957);}while(r); -S_6973:; +if(!qbevent)break;evnt(6103);}while(r); +S_7190:; if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ -if(qbevent){evnt(5958);if(r)goto S_6973;} +if(qbevent){evnt(6104);if(r)goto S_7190;} do{ -qbs_set(__STRING_L,qbs_new_txt_len("END IF",6)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5959);}while(r); -S_6975:; +if(!qbevent)break;evnt(6105);}while(r); +S_7192:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(5960);if(r)goto S_6975;} +if(qbevent){evnt(6106);if(r)goto S_7192;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5960);}while(r); +if(!qbevent)break;evnt(6106);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5960);}while(r); +if(!qbevent)break;evnt(6106);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip794; +if (new_error) goto skip844; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip794; -skip794: +if (new_error) goto skip844; +skip844: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5963);}while(r); -S_6982:; -fornext_value796= 1 ; -fornext_finalvalue796=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; -fornext_step796= 1 ; -if (fornext_step796<0) fornext_step_negative796=1; else fornext_step_negative796=0; -if (new_error) goto fornext_error796; -goto fornext_entrylabel796; +if(!qbevent)break;evnt(6109);}while(r); +S_7199:; +fornext_value846= 1 ; +fornext_finalvalue846=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; +fornext_step846= 1 ; +if (fornext_step846<0) fornext_step_negative846=1; else fornext_step_negative846=0; +if (new_error) goto fornext_error846; +goto fornext_entrylabel846; while(1){ -fornext_value796=fornext_step796+(*__LONG_I); -fornext_entrylabel796: -*__LONG_I=fornext_value796; -if (fornext_step_negative796){ -if (fornext_value796fornext_finalvalue796) break; +if (fornext_value846>fornext_finalvalue846) break; } -fornext_error796:; -if(qbevent){evnt(5964);if(r)goto S_6982;} +fornext_error846:; +if(qbevent){evnt(6110);if(r)goto S_7199;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip797; +if (new_error) goto skip847; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip797; -skip797: +if (new_error) goto skip847; +skip847: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5965);}while(r); -fornext_continue_795:; +if(!qbevent)break;evnt(6111);}while(r); +fornext_continue_845:; } -fornext_exit_795:; +fornext_exit_845:; do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5967);}while(r); +if(!qbevent)break;evnt(6113);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5968);}while(r); +if(!qbevent)break;evnt(6114);}while(r); } -S_6988:; +S_7205:; if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(5973);if(r)goto S_6988;} -S_6989:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass798= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass799= 2 )),qbs_new_txt_len("IF",2)))))||new_error){ -if(qbevent){evnt(5974);if(r)goto S_6989;} -S_6990:; +if(qbevent){evnt(6119);if(r)goto S_7205;} +S_7206:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass848= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass849= 2 )),qbs_new_txt_len("IF",2)))))||new_error){ +if(qbevent){evnt(6120);if(r)goto S_7206;} +S_7207:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ -if(qbevent){evnt(5977);if(r)goto S_6990;} +if(qbevent){evnt(6123);if(r)goto S_7207;} do{ qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5977);}while(r); +if(!qbevent)break;evnt(6123);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(5977);}while(r); +if(!qbevent)break;evnt(6123);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5978);}while(r); -S_6995:; +if(!qbevent)break;evnt(6124);}while(r); +S_7212:; if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ -if(qbevent){evnt(5979);if(r)goto S_6995;} +if(qbevent){evnt(6125);if(r)goto S_7212;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("IF",2))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("If",2)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5980);}while(r); -S_6997:; +if(!qbevent)break;evnt(6126);}while(r); +S_7214:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(5981);if(r)goto S_6997;} +if(qbevent){evnt(6127);if(r)goto S_7214;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5981);}while(r); +if(!qbevent)break;evnt(6127);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5981);}while(r); +if(!qbevent)break;evnt(6127);}while(r); } } +S_7220:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6130);if(r)goto S_7220;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass851= 0 )); +if(!qbevent)break;evnt(6131);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip852; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip852; +skip852: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6132);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip801; +if (new_error) goto skip853; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip801; -skip801: +if (new_error) goto skip853; +skip853: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5984);}while(r); -S_7004:; -fornext_value803= 1 ; -fornext_finalvalue803=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; -fornext_step803= 1 ; -if (fornext_step803<0) fornext_step_negative803=1; else fornext_step_negative803=0; -if (new_error) goto fornext_error803; -goto fornext_entrylabel803; +if(!qbevent)break;evnt(6135);}while(r); +S_7225:; +fornext_value855= 1 ; +fornext_finalvalue855=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; +fornext_step855= 1 ; +if (fornext_step855<0) fornext_step_negative855=1; else fornext_step_negative855=0; +if (new_error) goto fornext_error855; +goto fornext_entrylabel855; while(1){ -fornext_value803=fornext_step803+(*__LONG_I); -fornext_entrylabel803: -*__LONG_I=fornext_value803; -if (fornext_step_negative803){ -if (fornext_value803fornext_finalvalue803) break; +if (fornext_value855>fornext_finalvalue855) break; } -fornext_error803:; -if(qbevent){evnt(5985);if(r)goto S_7004;} +fornext_error855:; +if(qbevent){evnt(6136);if(r)goto S_7225;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip804; +if (new_error) goto skip856; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip804; -skip804: +if (new_error) goto skip856; +skip856: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5986);}while(r); -fornext_continue_802:; +if(!qbevent)break;evnt(6137);}while(r); +fornext_continue_854:; } -fornext_exit_802:; +fornext_exit_854:; do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5988);}while(r); +if(!qbevent)break;evnt(6139);}while(r); do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5989);}while(r); +if(!qbevent)break;evnt(6140);}while(r); } } -S_7011:; +S_7232:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5996);if(r)goto S_7011;} -S_7012:; +if(qbevent){evnt(6147);if(r)goto S_7232;} +S_7233:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ -if(qbevent){evnt(5997);if(r)goto S_7012;} -S_7013:; +if(qbevent){evnt(6148);if(r)goto S_7233;} +S_7234:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5998);if(r)goto S_7013;} +if(qbevent){evnt(6149);if(r)goto S_7234;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip805; +if (new_error) goto skip857; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip805; -skip805: +if (new_error) goto skip857; +skip857: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(5998);}while(r); +if(!qbevent)break;evnt(6150);}while(r); do{ *__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5998);}while(r); +if(!qbevent)break;evnt(6150);}while(r); +S_7237:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6151);if(r)goto S_7237;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass858= 0 )); +if(!qbevent)break;evnt(6152);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip859; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip859; +skip859: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6153);}while(r); +} +} +S_7242:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(6158);if(r)goto S_7242;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6159);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6159);}while(r); } do{ *__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ; -if(!qbevent)break;evnt(5999);}while(r); -S_7018:; +if(!qbevent)break;evnt(6162);}while(r); +S_7247:; if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ -if(qbevent){evnt(6000);if(r)goto S_7018;} +if(qbevent){evnt(6163);if(r)goto S_7247;} do{ if (__ARRAY_LONG_EVERYCASESET[2]&2){ @@ -25691,397 +26663,445 @@ if (!__ARRAY_LONG_EVERYCASESET[0]) error(257); } __ARRAY_LONG_EVERYCASESET[2]|=1; } -if(!qbevent)break;evnt(6000);}while(r); +if(!qbevent)break;evnt(6163);}while(r); } -S_7021:; +S_7250:; +if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ +if(qbevent){evnt(6164);if(r)goto S_7250;} +do{ + +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){ +preserved_elements=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]; +} +else preserved_elements=0; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]= 0 ; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=(*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]+1; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=1; +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +tmp_long=__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementslen))||new_error){ -if(qbevent){evnt(6017);if(r)goto S_7049;} +if(qbevent){evnt(6181);if(r)goto S_7282;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6017);}while(r); +if(!qbevent)break;evnt(6181);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6017);}while(r); +if(!qbevent)break;evnt(6181);}while(r); } do{ qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6018);}while(r); -S_7055:; +if(!qbevent)break;evnt(6182);}while(r); +S_7288:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6019);if(r)goto S_7055;} +if(qbevent){evnt(6183);if(r)goto S_7288;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6019);}while(r); +if(!qbevent)break;evnt(6183);}while(r); } do{ *__LONG_U=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(6020);}while(r); +if(!qbevent)break;evnt(6184);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6022);}while(r); +if(!qbevent)break;evnt(6186);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(6023);}while(r); +if(!qbevent)break;evnt(6187);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6025);}while(r); -S_7062:; +if(!qbevent)break;evnt(6189);}while(r); +S_7295:; if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(6026);if(r)goto S_7062;} +if(qbevent){evnt(6190);if(r)goto S_7295;} do{ *__LONG_T= 0 ; -if(!qbevent)break;evnt(6027);}while(r); -S_7064:; +if(!qbevent)break;evnt(6191);}while(r); +S_7297:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(6028);if(r)goto S_7064;} +if(qbevent){evnt(6192);if(r)goto S_7297;} do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); -if(!qbevent)break;evnt(6029);}while(r); +if(!qbevent)break;evnt(6193);}while(r); }else{ -S_7067:; +S_7300:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6031);if(r)goto S_7067;} +if(qbevent){evnt(6195);if(r)goto S_7300;} do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass809= 0 ))); +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass863= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6031);}while(r); +if(!qbevent)break;evnt(6195);}while(r); } -S_7070:; +S_7303:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6032);if(r)goto S_7070;} +if(qbevent){evnt(6196);if(r)goto S_7303;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6032);}while(r); +if(!qbevent)break;evnt(6196);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip810; +if (new_error) goto skip864; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *sc_",15),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=qbs_new(0,0);",14)), 0 , 0 , 1 ); -if (new_error) goto skip810; -skip810: +if (new_error) goto skip864; +skip864: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6033);}while(r); +if(!qbevent)break;evnt(6197);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip811; +if (new_error) goto skip865; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(sc_",11),FUNC_STR2(__LONG_U)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip811; -skip811: +if (new_error) goto skip865; +skip865: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6034);}while(r); -S_7075:; +if(!qbevent)break;evnt(6198);}while(r); +S_7308:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6035);if(r)goto S_7075;} +if(qbevent){evnt(6199);if(r)goto S_7308;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip812; +if (new_error) goto skip866; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip812; -skip812: +if (new_error) goto skip866; +skip866: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6035);}while(r); +if(!qbevent)break;evnt(6199);}while(r); } } }else{ -S_7080:; +S_7313:; if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6040);if(r)goto S_7080;} -S_7081:; +if(qbevent){evnt(6204);if(r)goto S_7313;} +S_7314:; if ((-((*__LONG_TYP& 511 )> 64 ))||new_error){ -if(qbevent){evnt(6042);if(r)goto S_7081;} +if(qbevent){evnt(6206);if(r)goto S_7314;} do{ *__LONG_T= 3 ; -if(!qbevent)break;evnt(6042);}while(r); +if(!qbevent)break;evnt(6206);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("long double",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6042);}while(r); +if(!qbevent)break;evnt(6206);}while(r); } -S_7085:; +S_7318:; if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(6043);if(r)goto S_7085;} +if(qbevent){evnt(6207);if(r)goto S_7318;} do{ *__LONG_T= 4 ; -if(!qbevent)break;evnt(6043);}while(r); +if(!qbevent)break;evnt(6207);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("float",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6043);}while(r); +if(!qbevent)break;evnt(6207);}while(r); } -S_7089:; +S_7322:; if ((-((*__LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(6044);if(r)goto S_7089;} +if(qbevent){evnt(6208);if(r)goto S_7322;} do{ *__LONG_T= 5 ; -if(!qbevent)break;evnt(6044);}while(r); +if(!qbevent)break;evnt(6208);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("double",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6044);}while(r); +if(!qbevent)break;evnt(6208);}while(r); } -S_7093:; +S_7326:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(6045);if(r)goto S_7093;} +if(qbevent){evnt(6209);if(r)goto S_7326;} do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); -if(!qbevent)break;evnt(6046);}while(r); +if(!qbevent)break;evnt(6210);}while(r); }else{ -S_7096:; +S_7329:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6048);if(r)goto S_7096;} +if(qbevent){evnt(6212);if(r)goto S_7329;} do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass813= 0 ))); +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass867= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6048);}while(r); +if(!qbevent)break;evnt(6212);}while(r); } -S_7099:; +S_7332:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6049);if(r)goto S_7099;} +if(qbevent){evnt(6213);if(r)goto S_7332;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6049);}while(r); +if(!qbevent)break;evnt(6213);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip814; +if (new_error) goto skip868; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),FUNC_STR2(__LONG_U)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip814; -skip814: +if (new_error) goto skip868; +skip868: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6051);}while(r); +if(!qbevent)break;evnt(6215);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip815; +if (new_error) goto skip869; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip815; -skip815: +if (new_error) goto skip869; +skip869: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6052);}while(r); -S_7104:; +if(!qbevent)break;evnt(6216);}while(r); +S_7337:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6053);if(r)goto S_7104;} +if(qbevent){evnt(6217);if(r)goto S_7337;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip816; +if (new_error) goto skip870; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip816; -skip816: +if (new_error) goto skip870; +skip870: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6053);}while(r); +if(!qbevent)break;evnt(6217);}while(r); } } }else{ do{ *__LONG_T= 1 ; -if(!qbevent)break;evnt(6059);}while(r); +if(!qbevent)break;evnt(6223);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6059);}while(r); -S_7111:; +if(!qbevent)break;evnt(6223);}while(r); +S_7344:; if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(6060);if(r)goto S_7111;} -S_7112:; +if(qbevent){evnt(6224);if(r)goto S_7344;} +S_7345:; if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ -if(qbevent){evnt(6061);if(r)goto S_7112;} +if(qbevent){evnt(6225);if(r)goto S_7345;} do{ *__LONG_T= 7 ; -if(!qbevent)break;evnt(6061);}while(r); +if(!qbevent)break;evnt(6225);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("uint32",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6061);}while(r); +if(!qbevent)break;evnt(6225);}while(r); } -S_7116:; +S_7349:; if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ -if(qbevent){evnt(6062);if(r)goto S_7116;} +if(qbevent){evnt(6226);if(r)goto S_7349;} do{ *__LONG_T= 2 ; -if(!qbevent)break;evnt(6062);}while(r); +if(!qbevent)break;evnt(6226);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("uint64",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6062);}while(r); +if(!qbevent)break;evnt(6226);}while(r); } }else{ -S_7121:; +S_7354:; if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ -if(qbevent){evnt(6064);if(r)goto S_7121;} +if(qbevent){evnt(6228);if(r)goto S_7354;} do{ *__LONG_T= 6 ; -if(!qbevent)break;evnt(6064);}while(r); +if(!qbevent)break;evnt(6228);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6064);}while(r); +if(!qbevent)break;evnt(6228);}while(r); } -S_7125:; +S_7358:; if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ -if(qbevent){evnt(6065);if(r)goto S_7125;} +if(qbevent){evnt(6229);if(r)goto S_7358;} do{ *__LONG_T= 1 ; -if(!qbevent)break;evnt(6065);}while(r); +if(!qbevent)break;evnt(6229);}while(r); do{ qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6065);}while(r); +if(!qbevent)break;evnt(6229);}while(r); } } -S_7130:; +S_7363:; if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(6067);if(r)goto S_7130;} +if(qbevent){evnt(6231);if(r)goto S_7363;} do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); -if(!qbevent)break;evnt(6068);}while(r); +if(!qbevent)break;evnt(6232);}while(r); }else{ -S_7133:; +S_7366:; if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6070);if(r)goto S_7133;} +if(qbevent){evnt(6234);if(r)goto S_7366;} do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass817= 0 ))); +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass871= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6070);}while(r); +if(!qbevent)break;evnt(6234);}while(r); } -S_7136:; +S_7369:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6071);if(r)goto S_7136;} +if(qbevent){evnt(6235);if(r)goto S_7369;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6071);}while(r); +if(!qbevent)break;evnt(6235);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip818; +if (new_error) goto skip872; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),FUNC_STR2(__LONG_U)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip818; -skip818: +if (new_error) goto skip872; +skip872: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6072);}while(r); +if(!qbevent)break;evnt(6236);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip819; +if (new_error) goto skip873; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip819; -skip819: +if (new_error) goto skip873; +skip873: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6073);}while(r); -S_7141:; +if(!qbevent)break;evnt(6237);}while(r); +S_7374:; if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6074);if(r)goto S_7141;} +if(qbevent){evnt(6238);if(r)goto S_7374;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip820; +if (new_error) goto skip874; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip820; -skip820: +if (new_error) goto skip874; +skip874: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6074);}while(r); +if(!qbevent)break;evnt(6238);}while(r); } } } @@ -26089,4577 +27109,3160 @@ if(!qbevent)break;evnt(6074);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(6082);}while(r); +if(!qbevent)break;evnt(6246);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 10 +*__LONG_T; -if(!qbevent)break;evnt(6083);}while(r); +if(!qbevent)break;evnt(6247);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=*__LONG_U; -if(!qbevent)break;evnt(6084);}while(r); -S_7150:; +if(!qbevent)break;evnt(6248);}while(r); +S_7383:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6085);if(r)goto S_7150;} +if(qbevent){evnt(6249);if(r)goto S_7383;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip821; +if (new_error) goto skip875; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int32 sc_",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var;",5)), 0 , 0 , 1 ); -if (new_error) goto skip821; -skip821: +if (new_error) goto skip875; +skip875: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6085);}while(r); +if(!qbevent)break;evnt(6249);}while(r); } -S_7153:; +S_7386:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6086);if(r)goto S_7153;} +if(qbevent){evnt(6250);if(r)goto S_7386;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip822; +if (new_error) goto skip876; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var=0;",7)), 0 , 0 , 1 ); -if (new_error) goto skip822; -skip822: +if (new_error) goto skip876; +skip876: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6086);}while(r); +if(!qbevent)break;evnt(6250);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6087);}while(r); +if(!qbevent)break;evnt(6251);}while(r); } } -S_7159:; +S_7392:; if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6093);if(r)goto S_7159;} -S_7160:; +if(qbevent){evnt(6257);if(r)goto S_7392;} +S_7393:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6)))))||new_error){ -if(qbevent){evnt(6094);if(r)goto S_7160;} -S_7161:; +if(qbevent){evnt(6258);if(r)goto S_7393;} +S_7394:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ -if(qbevent){evnt(6098);if(r)goto S_7161;} +if(qbevent){evnt(6262);if(r)goto S_7394;} +do{ +*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; +if(!qbevent)break;evnt(6263);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip877; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6)), 0 , 0 , 1 ); +if (new_error) goto skip877; +skip877: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6264);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6099);}while(r); -S_7163:; +if(!qbevent)break;evnt(6265);}while(r); +S_7398:; if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ -if(qbevent){evnt(6100);if(r)goto S_7163;} +if(qbevent){evnt(6266);if(r)goto S_7398;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip823; +if (new_error) goto skip878; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); -if (new_error) goto skip823; -skip823: +if (new_error) goto skip878; +skip878: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6100);}while(r); +if(!qbevent)break;evnt(6266);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip824; +if (new_error) goto skip879; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip824; -skip824: +if (new_error) goto skip879; +skip879: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6101);}while(r); +if(!qbevent)break;evnt(6267);}while(r); } -S_7168:; +S_7403:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ -if(qbevent){evnt(6103);if(r)goto S_7168;} +if(qbevent){evnt(6269);if(r)goto S_7403;} do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6104);}while(r); -S_7170:; +if(!qbevent)break;evnt(6270);}while(r); +S_7405:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6105);if(r)goto S_7170;} +if(qbevent){evnt(6271);if(r)goto S_7405;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip825; +if (new_error) goto skip880; sub_file_print(tmp_fileno,qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36), 0 , 0 , 1 ); -if (new_error) goto skip825; -skip825: +if (new_error) goto skip880; +skip880: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6105);}while(r); +if(!qbevent)break;evnt(6271);}while(r); } } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip826; +if (new_error) goto skip881; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end:;",6)), 0 , 0 , 1 ); -if (new_error) goto skip826; -skip826: +if (new_error) goto skip881; +skip881: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6107);}while(r); -S_7175:; +if(!qbevent)break;evnt(6274);}while(r); +S_7410:; if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))||new_error){ -if(qbevent){evnt(6108);if(r)goto S_7175;} +if(qbevent){evnt(6275);if(r)goto S_7410;} do{ qbs_set(__STRING_A,qbs_new_txt_len("END SELECT without SELECT CASE",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6108);}while(r); +if(!qbevent)break;evnt(6275);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6108);}while(r); +if(!qbevent)break;evnt(6275);}while(r); +} +S_7414:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6277);if(r)goto S_7414;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass882= 0 )); +if(!qbevent)break;evnt(6278);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip883; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip883; +skip883: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6279);}while(r); +} +S_7418:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(6282);if(r)goto S_7418;} +S_7419:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(6284);if(r)goto S_7419;} +do{ +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("empty SELECT CASE block",23),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6285);}while(r); +} } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6109);}while(r); +if(!qbevent)break;evnt(6289);}while(r); do{ *__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ; -if(!qbevent)break;evnt(6110);}while(r); +if(!qbevent)break;evnt(6290);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("END",3),__STRING1_SP),qbs_new_txt_len("SELECT",6))); +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("End",3),__STRING1_SP),qbs_new_txt_len("Select",6)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6111);}while(r); +if(!qbevent)break;evnt(6291);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6112);}while(r); -S_7183:; +if(!qbevent)break;evnt(6292);}while(r); +S_7427:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6112);if(r)goto S_7183;} +if(qbevent){evnt(6292);if(r)goto S_7427;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6112);}while(r); +if(!qbevent)break;evnt(6292);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6112);}while(r); +if(!qbevent)break;evnt(6292);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6113);}while(r); +if(!qbevent)break;evnt(6293);}while(r); } } -S_7191:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4)))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]>= 10 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 17 ))))||new_error){ -if(qbevent){evnt(6123);if(r)goto S_7191;} +S_7435:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4)))&(-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 ))))||new_error){ +if(qbevent){evnt(6298);if(r)goto S_7435;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6123);}while(r); +if(!qbevent)break;evnt(6299);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6123);}while(r); +if(!qbevent)break;evnt(6299);}while(r); } -S_7195:; +S_7439:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(6128);if(r)goto S_7195;} -S_7196:; +if(qbevent){evnt(6304);if(r)goto S_7439;} +S_7440:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ -if(qbevent){evnt(6129);if(r)goto S_7196;} +if(qbevent){evnt(6305);if(r)goto S_7440;} do{ -qbs_set(__STRING_L,qbs_new_txt_len("CASE",4)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6131);}while(r); -S_7198:; +if(!qbevent)break;evnt(6307);}while(r); +S_7442:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ -if(qbevent){evnt(6135);if(r)goto S_7198;} +if(qbevent){evnt(6311);if(r)goto S_7442;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6135);}while(r); +if(!qbevent)break;evnt(6311);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6135);}while(r); +if(!qbevent)break;evnt(6311);}while(r); } -S_7202:; +S_7446:; if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ -if(qbevent){evnt(6136);if(r)goto S_7202;} +if(qbevent){evnt(6312);if(r)goto S_7446;} do{ *__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6137);}while(r); +if(!qbevent)break;evnt(6313);}while(r); do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6138);}while(r); -S_7205:; -if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ -if(qbevent){evnt(6139);if(r)goto S_7205;} +if(!qbevent)break;evnt(6314);}while(r); +do{ +*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; +if(!qbevent)break;evnt(6315);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip828; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); -if (new_error) goto skip828; -skip828: +if (new_error) goto skip885; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6)), 0 , 0 , 1 ); +if (new_error) goto skip885; +skip885: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6140);}while(r); +if(!qbevent)break;evnt(6316);}while(r); +S_7451:; +if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ +if(qbevent){evnt(6317);if(r)goto S_7451;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip886; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); +if (new_error) goto skip886; +skip886: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6318);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip829; +if (new_error) goto skip887; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var=-1;",8)), 0 , 0 , 1 ); -if (new_error) goto skip829; -skip829: +if (new_error) goto skip887; +skip887: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6142);}while(r); +if(!qbevent)break;evnt(6320);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip830; +if (new_error) goto skip888; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip830; -skip830: +if (new_error) goto skip888; +skip888: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6144);}while(r); +if(!qbevent)break;evnt(6322);}while(r); } -S_7212:; -if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))||new_error){ -if(qbevent){evnt(6150);if(r)goto S_7212;} +S_7458:; +if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 ))&(((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]< 10 ))|(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]> 17 )))))||new_error){ +if(qbevent){evnt(6328);if(r)goto S_7458;} do{ qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6150);}while(r); +if(!qbevent)break;evnt(6328);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6150);}while(r); +if(!qbevent)break;evnt(6328);}while(r); } -S_7216:; +S_7462:; if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(6151);if(r)goto S_7216;} +if(qbevent){evnt(6329);if(r)goto S_7462;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6151);}while(r); +if(!qbevent)break;evnt(6329);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6151);}while(r); +if(!qbevent)break;evnt(6329);}while(r); } do{ +tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(6330);}while(r); +do{ *__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]- 10 ; -if(!qbevent)break;evnt(6185);}while(r); +if(!qbevent)break;evnt(6363);}while(r); do{ *__LONG_FLT= 0 ; -if(!qbevent)break;evnt(6187);}while(r); -S_7222:; +if(!qbevent)break;evnt(6365);}while(r); +S_7469:; if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(6188);if(r)goto S_7222;} +if(qbevent){evnt(6366);if(r)goto S_7469;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6188);}while(r); +if(!qbevent)break;evnt(6366);}while(r); } -S_7225:; +S_7472:; if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6189);if(r)goto S_7225;} +if(qbevent){evnt(6367);if(r)goto S_7472;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6189);}while(r); +if(!qbevent)break;evnt(6367);}while(r); } -S_7228:; +S_7475:; if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6190);if(r)goto S_7228;} +if(qbevent){evnt(6368);if(r)goto S_7475;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6190);}while(r); +if(!qbevent)break;evnt(6368);}while(r); } -S_7231:; +S_7478:; if ((-(*__LONG_T== 3 ))||new_error){ -if(qbevent){evnt(6191);if(r)goto S_7231;} +if(qbevent){evnt(6369);if(r)goto S_7478;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6191);}while(r); +if(!qbevent)break;evnt(6369);}while(r); do{ *__LONG_FLT= 1 ; -if(!qbevent)break;evnt(6191);}while(r); +if(!qbevent)break;evnt(6369);}while(r); } -S_7235:; +S_7482:; if ((-(*__LONG_T== 4 ))||new_error){ -if(qbevent){evnt(6192);if(r)goto S_7235;} +if(qbevent){evnt(6370);if(r)goto S_7482;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6192);}while(r); +if(!qbevent)break;evnt(6370);}while(r); do{ *__LONG_FLT= 1 ; -if(!qbevent)break;evnt(6192);}while(r); +if(!qbevent)break;evnt(6370);}while(r); } -S_7239:; +S_7486:; if ((-(*__LONG_T== 5 ))||new_error){ -if(qbevent){evnt(6193);if(r)goto S_7239;} +if(qbevent){evnt(6371);if(r)goto S_7486;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6193);}while(r); +if(!qbevent)break;evnt(6371);}while(r); do{ *__LONG_FLT= 1 ; -if(!qbevent)break;evnt(6193);}while(r); +if(!qbevent)break;evnt(6371);}while(r); } -S_7243:; +S_7490:; if ((-(*__LONG_T== 6 ))||new_error){ -if(qbevent){evnt(6194);if(r)goto S_7243;} +if(qbevent){evnt(6372);if(r)goto S_7490;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6194);}while(r); +if(!qbevent)break;evnt(6372);}while(r); } -S_7246:; +S_7493:; if ((-(*__LONG_T== 7 ))||new_error){ -if(qbevent){evnt(6195);if(r)goto S_7246;} +if(qbevent){evnt(6373);if(r)goto S_7493;} do{ qbs_set(__STRING_TC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6195);}while(r); +if(!qbevent)break;evnt(6373);}while(r); } do{ qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6197);}while(r); +if(!qbevent)break;evnt(6375);}while(r); do{ *__LONG_CV=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; -if(!qbevent)break;evnt(6198);}while(r); -S_7251:; +if(!qbevent)break;evnt(6376);}while(r); +S_7498:; if ((*__LONG_CV)||new_error){ -if(qbevent){evnt(6199);if(r)goto S_7251;} +if(qbevent){evnt(6377);if(r)goto S_7498;} do{ -qbs_set(__STRING_N,FUNC_REFER(FUNC_STR2(__LONG_CV),&(pass831= 0 ),&(pass832= 0 ))); +qbs_set(__STRING_N,FUNC_REFER(FUNC_STR2(__LONG_CV),&(pass889= 0 ),&(pass890= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6200);}while(r); -S_7253:; +if(!qbevent)break;evnt(6378);}while(r); +S_7500:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6201);if(r)goto S_7253;} +if(qbevent){evnt(6379);if(r)goto S_7500;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6201);}while(r); +if(!qbevent)break;evnt(6379);}while(r); } } -S_7257:; +S_7504:; if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6205);if(r)goto S_7257;} -S_7258:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass833= 2 )),qbs_new_txt_len("C-EL",4))))||new_error){ -if(qbevent){evnt(6206);if(r)goto S_7258;} -S_7259:; +if(qbevent){evnt(6383);if(r)goto S_7504;} +S_7505:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass891= 2 )),qbs_new_txt_len("C-EL",4))))||new_error){ +if(qbevent){evnt(6384);if(r)goto S_7505;} +S_7506:; if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6207);if(r)goto S_7259;} +if(qbevent){evnt(6385);if(r)goto S_7506;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip834; +if (new_error) goto skip892; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (sc_",7),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var==0) {",10)), 0 , 0 , 1 ); -if (new_error) goto skip834; -skip834: +if (new_error) goto skip892; +skip892: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6207);}while(r); +if(!qbevent)break;evnt(6385);}while(r); } do{ *__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6208);}while(r); +if(!qbevent)break;evnt(6386);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 19 ; -if(!qbevent)break;evnt(6208);}while(r); +if(!qbevent)break;evnt(6386);}while(r); do{ tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; -if(!qbevent)break;evnt(6209);}while(r); +if(!qbevent)break;evnt(6387);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("ELSE",4))); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Else",4)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6210);}while(r); +if(!qbevent)break;evnt(6388);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6211);}while(r); -S_7267:; +if(!qbevent)break;evnt(6389);}while(r); +S_7514:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6211);if(r)goto S_7267;} +if(qbevent){evnt(6389);if(r)goto S_7514;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6211);}while(r); +if(!qbevent)break;evnt(6389);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6211);}while(r); +if(!qbevent)break;evnt(6389);}while(r); } do{ goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6212);}while(r); +if(!qbevent)break;evnt(6390);}while(r); } } -S_7275:; +S_7522:; if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6216);if(r)goto S_7275;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip836; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip836; -skip836: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6216);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(6216);}while(r); -} -do{ -qbs_set(__STRING_F12,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6220);}while(r); -do{ -*__LONG_NEXP= 0 ; -if(!qbevent)break;evnt(6222);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6223);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6224);}while(r); -S_7283:; -fornext_value838= 2 ; -fornext_finalvalue838=*__LONG_N; -fornext_step838= 1 ; -if (fornext_step838<0) fornext_step_negative838=1; else fornext_step_negative838=0; -if (new_error) goto fornext_error838; -goto fornext_entrylabel838; -while(1){ -fornext_value838=fornext_step838+(*__LONG_I); -fornext_entrylabel838: -*__LONG_I=fornext_value838; -if (fornext_step_negative838){ -if (fornext_value838fornext_finalvalue838) break; -} -fornext_error838:; -if(qbevent){evnt(6225);if(r)goto S_7283;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6226);}while(r); -S_7285:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6227);if(r)goto S_7285;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6227);}while(r); -} -S_7288:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6228);if(r)goto S_7288;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6228);}while(r); -} -S_7291:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(6229);if(r)goto S_7291;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6229);}while(r); -} -S_7294:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_I==*__LONG_N))|(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))))||new_error){ -if(qbevent){evnt(6230);if(r)goto S_7294;} -S_7295:; -if ((-(*__LONG_NEXP!= 0 ))||new_error){ -if(qbevent){evnt(6231);if(r)goto S_7295;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6231);}while(r); -do{ -qbs_set(__STRING_F12,qbs_add(__STRING_F12,qbs_new_txt_len("||",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6231);}while(r); -} -S_7299:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6232);if(r)goto S_7299;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6232);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6232);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6233);}while(r); -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6238);}while(r); -do{ -*__LONG_B2= 0 ; -if(!qbevent)break;evnt(6239);}while(r); -do{ -qbs_set(__STRING_EL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6240);}while(r); -do{ -qbs_set(__STRING_ER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6240);}while(r); -do{ -*__LONG_USEDTO= 0 ; -if(!qbevent)break;evnt(6241);}while(r); -S_7309:; -fornext_value841= 1 ; -fornext_finalvalue841=*__LONG_N2; -fornext_step841= 1 ; -if (fornext_step841<0) fornext_step_negative841=1; else fornext_step_negative841=0; -if (new_error) goto fornext_error841; -goto fornext_entrylabel841; -while(1){ -fornext_value841=fornext_step841+(*__LONG_I2); -fornext_entrylabel841: -*__LONG_I2=fornext_value841; -if (fornext_step_negative841){ -if (fornext_value841fornext_finalvalue841) break; -} -fornext_error841:; -if(qbevent){evnt(6242);if(r)goto S_7309;} -do{ -qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6243);}while(r); -S_7311:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6244);if(r)goto S_7311;} -do{ -*__LONG_B2=*__LONG_B2+ 1 ; -if(!qbevent)break;evnt(6244);}while(r); -} -S_7314:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6245);if(r)goto S_7314;} -do{ -*__LONG_B2=*__LONG_B2- 1 ; -if(!qbevent)break;evnt(6245);}while(r); -} -S_7317:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||new_error){ -if(qbevent){evnt(6246);if(r)goto S_7317;} -do{ -*__LONG_USEDTO= 1 ; -if(!qbevent)break;evnt(6247);}while(r); -}else{ -S_7320:; -if ((-(*__LONG_USEDTO== 0 ))||new_error){ -if(qbevent){evnt(6249);if(r)goto S_7320;} -do{ -qbs_set(__STRING_EL,qbs_add(qbs_add(__STRING_EL,__STRING1_SP),__STRING_E3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6249);}while(r); -}else{ -do{ -qbs_set(__STRING_ER,qbs_add(qbs_add(__STRING_ER,__STRING1_SP),__STRING_E3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6249);}while(r); -} -} -fornext_continue_840:; -} -fornext_exit_840:; -S_7327:; -if ((-(*__LONG_USEDTO== 1 ))||new_error){ -if(qbevent){evnt(6252);if(r)goto S_7327;} -S_7328:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_EL,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_ER,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(6253);if(r)goto S_7328;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6253);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6253);}while(r); -} -do{ -qbs_set(__STRING_EL,qbs_right(__STRING_EL,__STRING_EL->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6254);}while(r); -do{ -qbs_set(__STRING_ER,qbs_right(__STRING_ER,__STRING_ER->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6254);}while(r); -S_7334:; -fornext_value845= 1 ; -fornext_finalvalue845= 2 ; -fornext_step845= 1 ; -if (fornext_step845<0) fornext_step_negative845=1; else fornext_step_negative845=0; -if (new_error) goto fornext_error845; -goto fornext_entrylabel845; -while(1){ -fornext_value845=fornext_step845+(*__LONG_I2); -fornext_entrylabel845: -*__LONG_I2=fornext_value845; -if (fornext_step_negative845){ -if (fornext_value845fornext_finalvalue845) break; -} -fornext_error845:; -if(qbevent){evnt(6256);if(r)goto S_7334;} -S_7335:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6257);if(r)goto S_7335;} -do{ -qbs_set(__STRING_E,__STRING_EL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6257);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_ER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6257);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6258);}while(r); -S_7341:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6259);if(r)goto S_7341;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6259);}while(r); -} -S_7344:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6260);if(r)goto S_7344;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6260);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6260);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6261);}while(r); -S_7350:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6262);if(r)goto S_7350;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6262);}while(r); -} -S_7353:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6263);if(r)goto S_7353;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass846= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6263);}while(r); -} -S_7356:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6264);if(r)goto S_7356;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6264);}while(r); -} -S_7359:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(6265);if(r)goto S_7359;} -S_7360:; -if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6266);if(r)goto S_7360;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6266);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6266);}while(r); -} -S_7364:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6267);if(r)goto S_7364;} -do{ -qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(qbs_greaterorequal(",20)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")&&qbs_lessorequal(",19)),__STRING_N),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6267);}while(r); -} -S_7367:; -if ((-(*__LONG_I2== 2 ))||new_error){ -if(qbevent){evnt(6268);if(r)goto S_7367;} -do{ -qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6268);}while(r); -} -}else{ -S_7371:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(6270);if(r)goto S_7371;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6270);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6270);}while(r); -} -S_7375:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6272);if(r)goto S_7375;} -S_7376:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6273);if(r)goto S_7376;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6273);}while(r); -} -S_7379:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6274);if(r)goto S_7379;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6274);}while(r); -} -S_7382:; -if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ -if(qbevent){evnt(6275);if(r)goto S_7382;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6275);}while(r); -} -} -S_7386:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ -if(qbevent){evnt(6278);if(r)goto S_7386;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6278);}while(r); -} -S_7389:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6279);if(r)goto S_7389;} -do{ -qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("((",2)),__STRING_N),qbs_new_txt_len(">=(",3)),__STRING_E),qbs_new_txt_len("))&&(",5)),__STRING_N),qbs_new_txt_len("<=(",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6279);}while(r); -} -S_7392:; -if ((-(*__LONG_I2== 2 ))||new_error){ -if(qbevent){evnt(6280);if(r)goto S_7392;} -do{ -qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len(")))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6280);}while(r); -} -} -fornext_continue_844:; -} -fornext_exit_844:; -do{ -goto LABEL_ADDEDEXP; -if(!qbevent)break;evnt(6283);}while(r); -} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("==",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6305);}while(r); -do{ -qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass848= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6308);}while(r); -S_7401:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||new_error){ -if(qbevent){evnt(6309);if(r)goto S_7401;} -S_7402:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,qbs_new_txt_len("=",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<>",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">=",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<=",2)))))||new_error){ -if(qbevent){evnt(6310);if(r)goto S_7402;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("IS",2),__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6311);}while(r); -do{ -qbs_set(__STRING_X,qbs_new_txt_len("IS",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6312);}while(r); -} -} -S_7407:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||new_error){ -if(qbevent){evnt(6315);if(r)goto S_7407;} -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6316);}while(r); -S_7409:; -if ((-(*__LONG_N2< 3 ))||new_error){ -if(qbevent){evnt(6317);if(r)goto S_7409;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6317);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6317);}while(r); -} -do{ -qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass849= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6318);}while(r); -do{ -qbs_set(__STRING_O2,__STRING_O); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6319);}while(r); -do{ -*__LONG_O= 0 ; -if(!qbevent)break;evnt(6320);}while(r); -S_7416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(6321);if(r)goto S_7416;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("==",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6321);}while(r); -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6321);}while(r); -} -S_7420:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(6322);if(r)goto S_7420;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("!=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6322);}while(r); -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6322);}while(r); -} -S_7424:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(6323);if(r)goto S_7424;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6323);}while(r); -} -S_7427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(6324);if(r)goto S_7427;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6324);}while(r); -} -S_7430:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(6325);if(r)goto S_7430;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6325);}while(r); -} -S_7433:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(6326);if(r)goto S_7433;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6326);}while(r); -} -S_7436:; -if ((-(*__LONG_O!= 1 ))||new_error){ -if(qbevent){evnt(6327);if(r)goto S_7436;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6327);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6327);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("IS",2)),__STRING1_SP),__STRING_O2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6328);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass850= 3 ),__LONG_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6329);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6334);}while(r); -S_7444:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6335);if(r)goto S_7444;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6335);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6336);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6337);}while(r); -S_7449:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6338);if(r)goto S_7449;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6338);}while(r); -} -S_7452:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6339);if(r)goto S_7452;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass851= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6339);}while(r); -} -S_7455:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6340);if(r)goto S_7455;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6340);}while(r); -} -S_7458:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(6341);if(r)goto S_7458;} -S_7459:; -if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6343);if(r)goto S_7459;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6343);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6343);}while(r); -} -S_7463:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||new_error){ -if(qbevent){evnt(6344);if(r)goto S_7463;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6344);}while(r); -} -S_7466:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||new_error){ -if(qbevent){evnt(6345);if(r)goto S_7466;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6345);}while(r); -} -S_7469:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(6346);if(r)goto S_7469;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6346);}while(r); -} -S_7472:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(6347);if(r)goto S_7472;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6347);}while(r); -} -S_7475:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(6348);if(r)goto S_7475;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6348);}while(r); -} -S_7478:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(6349);if(r)goto S_7478;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6349);}while(r); -} -do{ -qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,__STRING_O),qbs_new_txt_len("(",1)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6350);}while(r); -}else{ -S_7483:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(6353);if(r)goto S_7483;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6353);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6353);}while(r); -} -S_7487:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6355);if(r)goto S_7487;} -S_7488:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6356);if(r)goto S_7488;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6356);}while(r); -} -S_7491:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6357);if(r)goto S_7491;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6357);}while(r); -} -S_7494:; -if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ -if(qbevent){evnt(6358);if(r)goto S_7494;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6358);}while(r); -} -} -S_7498:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ -if(qbevent){evnt(6361);if(r)goto S_7498;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6361);}while(r); -} -do{ -qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(",1)),__STRING_N),__STRING_O),qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6362);}while(r); -} -LABEL_ADDEDEXP:; -if(qbevent){evnt(6365);r=0;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6366);}while(r); -do{ -*__LONG_NEXP=*__LONG_NEXP+ 1 ; -if(!qbevent)break;evnt(6367);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6369);}while(r); -} -fornext_continue_837:; -} -fornext_exit_837:; -S_7509:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6373);if(r)goto S_7509;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip853; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); -if (new_error) goto skip853; -skip853: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6374);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip854; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); -if (new_error) goto skip854; -skip854: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6376);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6379);}while(r); -S_7515:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6379);if(r)goto S_7515;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6379);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6379);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6380);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; -if(!qbevent)break;evnt(6381);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ; -if(!qbevent)break;evnt(6382);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6383);}while(r); -} -} -S_7526:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6400);if(r)goto S_7526;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip856; -sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); -if (new_error) goto skip856; -skip856: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6401);}while(r); -} -S_7529:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(6406);if(r)goto S_7529;} -S_7530:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||new_error){ -if(qbevent){evnt(6407);if(r)goto S_7530;} -S_7531:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(6408);if(r)goto S_7531;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("PALETTE",7),__STRING1_SP),qbs_new_txt_len("USING",5)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6409);}while(r); -S_7533:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(6410);if(r)goto S_7533;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6410);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6410);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass857= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6412);}while(r); -S_7538:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||new_error){ -if(qbevent){evnt(6413);if(r)goto S_7538;} -S_7539:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6414);if(r)goto S_7539;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6414);}while(r); -} -do{ -*__LONG_Z= 1 ; -if(!qbevent)break;evnt(6415);}while(r); -do{ -*__LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(6416);}while(r); -S_7544:; -if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||new_error){ -if(qbevent){evnt(6417);if(r)goto S_7544;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6417);}while(r); -} -S_7547:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(6418);if(r)goto S_7547;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6418);}while(r); -} -S_7550:; -if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(6419);if(r)goto S_7550;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6419);}while(r); -} -S_7553:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(6420);if(r)goto S_7553;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6420);}while(r); -} -S_7556:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(6421);if(r)goto S_7556;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6421);}while(r); -} -S_7559:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(6422);if(r)goto S_7559;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6422);}while(r); -} -S_7562:; -if ((-(*__LONG_Z== 0 ))||new_error){ -if(qbevent){evnt(6423);if(r)goto S_7562;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Array must be of type INTEGER or LONG",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6423);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6423);}while(r); -} -do{ -*__LONG_BITS=*__LONG_T& 511 ; -if(!qbevent)break;evnt(6424);}while(r); -do{ -goto LABEL_PU_GOTARRAY; -if(!qbevent)break;evnt(6425);}while(r); -} -S_7569:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6427);if(r)goto S_7569;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6427);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6428);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6428);}while(r); -LABEL_PU_GOTARRAY:; -if(qbevent){evnt(6429);r=0;} -S_7574:; -if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(6431);if(r)goto S_7574;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6432);}while(r); -}else{ -S_7577:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass858= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(6434);if(r)goto S_7577;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name(...)",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6434);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6434);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass859= 4 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6435);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6437);}while(r); -S_7584:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6438);if(r)goto S_7584;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6438);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6439);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass860= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6440);}while(r); -S_7589:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6441);if(r)goto S_7589;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6441);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip861; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_paletteusing(",17),__STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip861; -skip861: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6442);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6443);}while(r); -S_7594:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6443);if(r)goto S_7594;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6443);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6443);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6444);}while(r); -} -} -} -S_7603:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||new_error){ -if(qbevent){evnt(6450);if(r)goto S_7603;} -S_7604:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(6451);if(r)goto S_7604;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6451);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6451);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("KEY",3),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6452);}while(r); -S_7609:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||new_error){ -if(qbevent){evnt(6453);if(r)goto S_7609;} -S_7610:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(6454);if(r)goto S_7610;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6454);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6454);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_new_txt_len("OFF",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6455);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6455);}while(r); -S_7616:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6455);if(r)goto S_7616;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6455);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6455);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip864; -sub_file_print(tmp_fileno,qbs_new_txt_len("key_off();",10), 0 , 0 , 1 ); -if (new_error) goto skip864; -skip864: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6456);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6457);}while(r); -} -S_7624:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||new_error){ -if(qbevent){evnt(6459);if(r)goto S_7624;} -S_7625:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(6460);if(r)goto S_7625;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6460);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6460);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_new_txt_len("ON",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6461);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6461);}while(r); -S_7631:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6461);if(r)goto S_7631;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6461);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6461);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip866; -sub_file_print(tmp_fileno,qbs_new_txt_len("key_on();",9), 0 , 0 , 1 ); -if (new_error) goto skip866; -skip866: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6462);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6463);}while(r); -} -S_7639:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||new_error){ -if(qbevent){evnt(6465);if(r)goto S_7639;} -S_7640:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(6466);if(r)goto S_7640;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6466);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6466);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_new_txt_len("LIST",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6467);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6467);}while(r); -S_7646:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6467);if(r)goto S_7646;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6467);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6467);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip868; -sub_file_print(tmp_fileno,qbs_new_txt_len("key_list();",11), 0 , 0 , 1 ); -if (new_error) goto skip868; -skip868: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6468);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6469);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6472);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6472);}while(r); -S_7656:; -fornext_value870= 2 ; -fornext_finalvalue870=*__LONG_N; -fornext_step870= 1 ; -if (fornext_step870<0) fornext_step_negative870=1; else fornext_step_negative870=0; -if (new_error) goto fornext_error870; -goto fornext_entrylabel870; -while(1){ -fornext_value870=fornext_step870+(*__LONG_I); -fornext_entrylabel870: -*__LONG_I=fornext_value870; -if (fornext_step_negative870){ -if (fornext_value870fornext_finalvalue870) break; -} -fornext_error870:; -if(qbevent){evnt(6473);if(r)goto S_7656;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6474);}while(r); -S_7658:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6475);if(r)goto S_7658;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6475);}while(r); -} -S_7661:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6476);if(r)goto S_7661;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6476);}while(r); -} -S_7664:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6477);if(r)goto S_7664;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6478);}while(r); -do{ -goto LABEL_KEY_ASSIGNMENT; -if(!qbevent)break;evnt(6478);}while(r); -} -S_7668:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6480);if(r)goto S_7668;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6480);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6480);}while(r); -} -fornext_continue_869:; -} -fornext_exit_869:; -do{ -goto LABEL_KEY_FALLTHROUGH; -if(!qbevent)break;evnt(6483);}while(r); -LABEL_KEY_ASSIGNMENT:; -if(qbevent){evnt(6484);r=0;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6487);}while(r); -S_7676:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6488);if(r)goto S_7676;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6488);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6489);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass872= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6490);}while(r); -S_7681:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6491);if(r)goto S_7681;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6491);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip873; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("key_assign(",11),__STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip873; -skip873: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6492);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6494);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6495);}while(r); -S_7687:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6496);if(r)goto S_7687;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6496);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6497);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6498);}while(r); -S_7692:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6499);if(r)goto S_7692;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6499);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip874; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip874; -skip874: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6500);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6501);}while(r); -S_7697:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6501);if(r)goto S_7697;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6501);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6501);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6502);}while(r); -} -LABEL_KEY_FALLTHROUGH:; -if(qbevent){evnt(6504);r=0;} -S_7704:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||new_error){ -if(qbevent){evnt(6509);if(r)goto S_7704;} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6512);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6512);}while(r); -S_7707:; -fornext_value877= 2 ; -fornext_finalvalue877=*__LONG_N; -fornext_step877= 1 ; -if (fornext_step877<0) fornext_step_negative877=1; else fornext_step_negative877=0; -if (new_error) goto fornext_error877; -goto fornext_entrylabel877; -while(1){ -fornext_value877=fornext_step877+(*__LONG_I); -fornext_entrylabel877: -*__LONG_I=fornext_value877; -if (fornext_step_negative877){ -if (fornext_value877fornext_finalvalue877) break; -} -fornext_error877:; -if(qbevent){evnt(6513);if(r)goto S_7707;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6514);}while(r); -S_7709:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6515);if(r)goto S_7709;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6515);}while(r); -} -S_7712:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6516);if(r)goto S_7712;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6516);}while(r); -} -S_7715:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6517);if(r)goto S_7715;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6518);}while(r); -do{ -goto LABEL_FIELDGOTFN; -if(!qbevent)break;evnt(6518);}while(r); -} -S_7719:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6520);if(r)goto S_7719;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6520);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6520);}while(r); -} -fornext_continue_876:; -} -fornext_exit_876:; -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6522);}while(r); -LABEL_FIELDGOTFN:; -if(qbevent){evnt(6523);r=0;} -S_7726:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||new_error){ -if(qbevent){evnt(6524);if(r)goto S_7726;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6524);}while(r); -} -S_7729:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(__STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(6525);if(r)goto S_7729;} -do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6525);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("FIELD",5),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6525);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("FIELD",5),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6525);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6526);}while(r); -S_7736:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6527);if(r)goto S_7736;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6527);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6528);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass881= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6529);}while(r); -S_7741:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6530);if(r)goto S_7741;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6530);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip882; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("field_new(",10),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip882; -skip882: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6531);}while(r); -LABEL_FIELDNEXT:; -if(qbevent){evnt(6533);r=0;} -S_7745:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6536);if(r)goto S_7745;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6536);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6537);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6537);}while(r); -S_7750:; -fornext_value884=*__LONG_I; -fornext_finalvalue884=*__LONG_N; -fornext_step884= 1 ; -if (fornext_step884<0) fornext_step_negative884=1; else fornext_step_negative884=0; -if (new_error) goto fornext_error884; -goto fornext_entrylabel884; -while(1){ -fornext_value884=fornext_step884+(*__LONG_I); -fornext_entrylabel884: -*__LONG_I=fornext_value884; -if (fornext_step_negative884){ -if (fornext_value884fornext_finalvalue884) break; -} -fornext_error884:; -if(qbevent){evnt(6538);if(r)goto S_7750;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6539);}while(r); -S_7752:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6540);if(r)goto S_7752;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6540);}while(r); -} -S_7755:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6541);if(r)goto S_7755;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6541);}while(r); -} -S_7758:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6542);if(r)goto S_7758;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6543);}while(r); -do{ -goto LABEL_FIELDGOTFW; -if(!qbevent)break;evnt(6543);}while(r); -} -S_7762:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6545);if(r)goto S_7762;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6545);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6545);}while(r); -} -fornext_continue_883:; -} -fornext_exit_883:; -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6547);}while(r); -LABEL_FIELDGOTFW:; -if(qbevent){evnt(6548);r=0;} -S_7769:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(6549);if(r)goto S_7769;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6549);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6550);}while(r); -S_7773:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6551);if(r)goto S_7773;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6551);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6552);}while(r); -do{ -qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass887= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6553);}while(r); -S_7778:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6554);if(r)goto S_7778;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6554);}while(r); -} -S_7781:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6557);if(r)goto S_7781;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6557);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6558);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6558);}while(r); -S_7786:; -fornext_value889=*__LONG_I; -fornext_finalvalue889=*__LONG_N; -fornext_step889= 1 ; -if (fornext_step889<0) fornext_step_negative889=1; else fornext_step_negative889=0; -if (new_error) goto fornext_error889; -goto fornext_entrylabel889; -while(1){ -fornext_value889=fornext_step889+(*__LONG_I); -fornext_entrylabel889: -*__LONG_I=fornext_value889; -if (fornext_step_negative889){ -if (fornext_value889fornext_finalvalue889) break; -} -fornext_error889:; -if(qbevent){evnt(6559);if(r)goto S_7786;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6560);}while(r); -S_7788:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6561);if(r)goto S_7788;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6561);}while(r); -} -S_7791:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6562);if(r)goto S_7791;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6562);}while(r); -} -S_7794:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_I==*__LONG_N))|(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6563);if(r)goto S_7794;} -S_7795:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(6564);if(r)goto S_7795;} -do{ -*__LONG_I=*__LONG_I- 1 ; -if(!qbevent)break;evnt(6564);}while(r); -} -S_7798:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(6565);if(r)goto S_7798;} -S_7799:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6566);if(r)goto S_7799;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6566);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6566);}while(r); -} -} -do{ -goto LABEL_FIELDGOTFNAME; -if(!qbevent)break;evnt(6568);}while(r); -} -S_7807:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6570);if(r)goto S_7807;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6570);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6570);}while(r); -} -fornext_continue_888:; -} -fornext_exit_888:; -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6572);}while(r); -LABEL_FIELDGOTFNAME:; -if(qbevent){evnt(6573);r=0;} -S_7814:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(6574);if(r)goto S_7814;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6574);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6576);}while(r); -S_7818:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6577);if(r)goto S_7818;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6577);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6578);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6579);}while(r); -S_7823:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6580);if(r)goto S_7823;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6580);}while(r); -} -S_7826:; -if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6581);if(r)goto S_7826;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6581);}while(r); -} -S_7829:; -if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(6582);if(r)goto S_7829;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Fixed length strings cannot be used in a FIELD statement",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6582);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6582);}while(r); -} -S_7833:; -if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(6583);if(r)goto S_7833;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6583);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass893= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6584);}while(r); -S_7837:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6585);if(r)goto S_7837;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6585);}while(r); -} +if(qbevent){evnt(6394);if(r)goto S_7522;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip894; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("field_add(",10),__STRING_E),qbs_new_txt_len(",",1)),__STRING_SIZEE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); if (new_error) goto skip894; skip894: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6586);}while(r); -S_7841:; -if ((-(*__LONG_I<*__LONG_N))||new_error){ -if(qbevent){evnt(6588);if(r)goto S_7841;} +if(!qbevent)break;evnt(6395);}while(r); do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6589);}while(r); +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(6395);}while(r); +S_7525:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6396);if(r)goto S_7525;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6590);}while(r); -S_7844:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(6591);if(r)goto S_7844;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6591);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6591);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6592);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6593);}while(r); -do{ -goto LABEL_FIELDNEXT; -if(!qbevent)break;evnt(6594);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6597);}while(r); -S_7853:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6597);if(r)goto S_7853;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6597);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6597);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6598);}while(r); -LABEL_FIELDERROR:; -if(qbevent){evnt(6600);r=0;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected FIELD #filenumber, characters AS variable$, ...",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6600);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6600);}while(r); -} -S_7862:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6613);if(r)goto S_7862;} -S_7863:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ -if(qbevent){evnt(6614);if(r)goto S_7863;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_SECONDELEMENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6616);}while(r); -S_7865:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||new_error){ -if(qbevent){evnt(6618);if(r)goto S_7865;} -S_7866:; -fornext_value897=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue897= 1 ; -fornext_step897= -1 ; -if (fornext_step897<0) fornext_step_negative897=1; else fornext_step_negative897=0; -if (new_error) goto fornext_error897; -goto fornext_entrylabel897; -while(1){ -fornext_value897=fornext_step897+(*__LONG_I); -fornext_entrylabel897: -*__LONG_I=fornext_value897; -if (fornext_step_negative897){ -if (fornext_value897fornext_finalvalue897) break; -} -fornext_error897:; -if(qbevent){evnt(6620);if(r)goto S_7866;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6621);}while(r); -S_7868:; -if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||new_error){ -if(qbevent){evnt(6622);if(r)goto S_7868;} +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass895= 0 )); +if(!qbevent)break;evnt(6397);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip898; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto dl_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip898; -skip898: +if (new_error) goto skip896; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip896; +skip896: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6623);}while(r); +if(!qbevent)break;evnt(6398);}while(r); +} +} do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6624);}while(r); -S_7871:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6624);if(r)goto S_7871;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_set(__STRING_F12,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6624);}while(r); +if(!qbevent)break;evnt(6404);}while(r); +do{ +*__LONG_NEXP= 0 ; +if(!qbevent)break;evnt(6406);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6407);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6408);}while(r); +S_7534:; +fornext_value898= 2 ; +fornext_finalvalue898=*__LONG_N; +fornext_step898= 1 ; +if (fornext_step898<0) fornext_step_negative898=1; else fornext_step_negative898=0; +if (new_error) goto fornext_error898; +goto fornext_entrylabel898; +while(1){ +fornext_value898=fornext_step898+(*__LONG_I); +fornext_entrylabel898: +*__LONG_I=fornext_value898; +if (fornext_step_negative898){ +if (fornext_value898fornext_finalvalue898) break; +} +fornext_error898:; +if(qbevent){evnt(6409);if(r)goto S_7534;} do{ -qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6624);}while(r); -} +if(!qbevent)break;evnt(6410);}while(r); +S_7536:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6411);if(r)goto S_7536;} do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6625);}while(r); +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6411);}while(r); } -fornext_continue_896:; -} -fornext_exit_896:; +S_7539:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6412);if(r)goto S_7539;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18)); +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6412);}while(r); +} +S_7542:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(6413);if(r)goto S_7542;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6628);}while(r); +if(!qbevent)break;evnt(6413);}while(r); +} +S_7545:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_I==*__LONG_N))|(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))))||new_error){ +if(qbevent){evnt(6414);if(r)goto S_7545;} +S_7546:; +if ((-(*__LONG_NEXP!= 0 ))||new_error){ +if(qbevent){evnt(6415);if(r)goto S_7546;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6415);}while(r); +do{ +qbs_set(__STRING_F12,qbs_add(__STRING_F12,qbs_new_txt_len("||",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6415);}while(r); +} +S_7550:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(6416);if(r)goto S_7550;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6416);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6628);}while(r); +if(!qbevent)break;evnt(6416);}while(r); } -S_7882:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ -if(qbevent){evnt(6631);if(r)goto S_7882;} -S_7883:; -fornext_value901=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue901= 1 ; -fornext_step901= -1 ; +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6417);}while(r); +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6422);}while(r); +do{ +*__LONG_B2= 0 ; +if(!qbevent)break;evnt(6423);}while(r); +do{ +qbs_set(__STRING_EL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6424);}while(r); +do{ +qbs_set(__STRING_ER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6424);}while(r); +do{ +*__LONG_USEDTO= 0 ; +if(!qbevent)break;evnt(6425);}while(r); +S_7560:; +fornext_value901= 1 ; +fornext_finalvalue901=*__LONG_N2; +fornext_step901= 1 ; if (fornext_step901<0) fornext_step_negative901=1; else fornext_step_negative901=0; if (new_error) goto fornext_error901; goto fornext_entrylabel901; while(1){ -fornext_value901=fornext_step901+(*__LONG_I); +fornext_value901=fornext_step901+(*__LONG_I2); fornext_entrylabel901: -*__LONG_I=fornext_value901; +*__LONG_I2=fornext_value901; if (fornext_step_negative901){ if (fornext_value901fornext_finalvalue901) break; } fornext_error901:; -if(qbevent){evnt(6633);if(r)goto S_7883;} +if(qbevent){evnt(6426);if(r)goto S_7560;} do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6634);}while(r); -S_7885:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6635);if(r)goto S_7885;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip902; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_exit_",18),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip902; -skip902: +qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6636);}while(r); +if(!qbevent)break;evnt(6427);}while(r); +S_7562:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6428);if(r)goto S_7562;} do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6637);}while(r); -S_7888:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6637);if(r)goto S_7888;} +*__LONG_B2=*__LONG_B2+ 1 ; +if(!qbevent)break;evnt(6428);}while(r); +} +S_7565:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6429);if(r)goto S_7565;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +*__LONG_B2=*__LONG_B2- 1 ; +if(!qbevent)break;evnt(6429);}while(r); +} +S_7568:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||new_error){ +if(qbevent){evnt(6430);if(r)goto S_7568;} +do{ +*__LONG_USEDTO= 1 ; +if(!qbevent)break;evnt(6431);}while(r); +}else{ +S_7571:; +if ((-(*__LONG_USEDTO== 0 ))||new_error){ +if(qbevent){evnt(6433);if(r)goto S_7571;} +do{ +qbs_set(__STRING_EL,qbs_add(qbs_add(__STRING_EL,__STRING1_SP),__STRING_E3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6637);}while(r); +if(!qbevent)break;evnt(6433);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_set(__STRING_ER,qbs_add(qbs_add(__STRING_ER,__STRING1_SP),__STRING_E3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6637);}while(r); +if(!qbevent)break;evnt(6433);}while(r); } -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6638);}while(r); } fornext_continue_900:; } fornext_exit_900:; +S_7578:; +if ((-(*__LONG_USEDTO== 1 ))||new_error){ +if(qbevent){evnt(6436);if(r)goto S_7578;} +S_7579:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_EL,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_ER,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(6437);if(r)goto S_7579;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6641);}while(r); +if(!qbevent)break;evnt(6437);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6641);}while(r); +if(!qbevent)break;evnt(6437);}while(r); } -S_7899:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(6644);if(r)goto S_7899;} -S_7900:; -fornext_value905=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue905= 1 ; -fornext_step905= -1 ; +do{ +qbs_set(__STRING_EL,qbs_right(__STRING_EL,__STRING_EL->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6438);}while(r); +do{ +qbs_set(__STRING_ER,qbs_right(__STRING_ER,__STRING_ER->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6438);}while(r); +S_7585:; +fornext_value905= 1 ; +fornext_finalvalue905= 2 ; +fornext_step905= 1 ; if (fornext_step905<0) fornext_step_negative905=1; else fornext_step_negative905=0; if (new_error) goto fornext_error905; goto fornext_entrylabel905; while(1){ -fornext_value905=fornext_step905+(*__LONG_I); +fornext_value905=fornext_step905+(*__LONG_I2); fornext_entrylabel905: -*__LONG_I=fornext_value905; +*__LONG_I2=fornext_value905; if (fornext_step_negative905){ if (fornext_value905fornext_finalvalue905) break; } fornext_error905:; -if(qbevent){evnt(6646);if(r)goto S_7900;} +if(qbevent){evnt(6440);if(r)goto S_7585;} +S_7586:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6441);if(r)goto S_7586;} do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6647);}while(r); -S_7902:; -if ((-(*__LONG_T== 5 ))||new_error){ -if(qbevent){evnt(6648);if(r)goto S_7902;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip906; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ww_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip906; -skip906: +qbs_set(__STRING_E,__STRING_EL); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6649);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6650);}while(r); -S_7905:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6650);if(r)goto S_7905;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6650);}while(r); +if(!qbevent)break;evnt(6441);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_set(__STRING_E,__STRING_ER); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6650);}while(r); +if(!qbevent)break;evnt(6441);}while(r); } do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6651);}while(r); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6442);}while(r); +S_7592:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6443);if(r)goto S_7592;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6443);}while(r); +} +S_7595:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6444);if(r)goto S_7595;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6444);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6444);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6445);}while(r); +S_7601:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6446);if(r)goto S_7601;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6446);}while(r); +} +S_7604:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6447);if(r)goto S_7604;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass906= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6447);}while(r); +} +S_7607:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6448);if(r)goto S_7607;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6448);}while(r); +} +S_7610:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(6449);if(r)goto S_7610;} +S_7611:; +if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6450);if(r)goto S_7611;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6450);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6450);}while(r); +} +S_7615:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6451);if(r)goto S_7615;} +do{ +qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(qbs_greaterorequal(",20)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")&&qbs_lessorequal(",19)),__STRING_N),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6451);}while(r); +} +S_7618:; +if ((-(*__LONG_I2== 2 ))||new_error){ +if(qbevent){evnt(6452);if(r)goto S_7618;} +do{ +qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6452);}while(r); +} +}else{ +S_7622:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(6454);if(r)goto S_7622;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6454);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6454);}while(r); +} +S_7626:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(6456);if(r)goto S_7626;} +S_7627:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6457);if(r)goto S_7627;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6457);}while(r); +} +S_7630:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6458);if(r)goto S_7630;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6458);}while(r); +} +S_7633:; +if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ +if(qbevent){evnt(6459);if(r)goto S_7633;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6459);}while(r); +} +} +S_7637:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ +if(qbevent){evnt(6462);if(r)goto S_7637;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6462);}while(r); +} +S_7640:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6463);if(r)goto S_7640;} +do{ +qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("((",2)),__STRING_N),qbs_new_txt_len(">=(",3)),__STRING_E),qbs_new_txt_len("))&&(",5)),__STRING_N),qbs_new_txt_len("<=(",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6463);}while(r); +} +S_7643:; +if ((-(*__LONG_I2== 2 ))||new_error){ +if(qbevent){evnt(6464);if(r)goto S_7643;} +do{ +qbs_set(__STRING_F12,qbs_add(qbs_add(__STRING_F12,__STRING_E),qbs_new_txt_len(")))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6464);}while(r); +} } fornext_continue_904:; } fornext_exit_904:; do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24)); +goto LABEL_ADDEDEXP; +if(!qbevent)break;evnt(6467);}while(r); +} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("==",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6654);}while(r); +if(!qbevent)break;evnt(6489);}while(r); +do{ +qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass908= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6492);}while(r); +S_7652:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||new_error){ +if(qbevent){evnt(6493);if(r)goto S_7652;} +S_7653:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,qbs_new_txt_len("=",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<>",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<",1)))|(qbs_equal(__STRING_X,qbs_new_txt_len(">=",2)))|(qbs_equal(__STRING_X,qbs_new_txt_len("<=",2)))))||new_error){ +if(qbevent){evnt(6494);if(r)goto S_7653;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("IS",2),__STRING1_SP),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6495);}while(r); +do{ +qbs_set(__STRING_X,qbs_new_txt_len("IS",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6496);}while(r); +} +} +S_7658:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||new_error){ +if(qbevent){evnt(6499);if(r)goto S_7658;} +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6500);}while(r); +S_7660:; +if ((-(*__LONG_N2< 3 ))||new_error){ +if(qbevent){evnt(6501);if(r)goto S_7660;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6501);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6654);}while(r); +if(!qbevent)break;evnt(6501);}while(r); } -} -} -S_7918:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(6667);if(r)goto S_7918;} -S_7919:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STRIG",5)))))||new_error){ -if(qbevent){evnt(6668);if(r)goto S_7919;} do{ -tmp_long=array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(6669);}while(r); -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(6670);}while(r); -S_7922:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6671);if(r)goto S_7922;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass909= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6671);}while(r); +if(!qbevent)break;evnt(6502);}while(r); +do{ +qbs_set(__STRING_O2,__STRING_O); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6503);}while(r); +do{ +*__LONG_O= 0 ; +if(!qbevent)break;evnt(6504);}while(r); +S_7667:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(6505);if(r)goto S_7667;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("==",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6505);}while(r); +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6505);}while(r); +} +S_7671:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(6506);if(r)goto S_7671;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("!=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6506);}while(r); +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6506);}while(r); +} +S_7675:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(6507);if(r)goto S_7675;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6507);}while(r); +} +S_7678:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(6508);if(r)goto S_7678;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6508);}while(r); +} +S_7681:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(6509);if(r)goto S_7681;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6509);}while(r); +} +S_7684:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(6510);if(r)goto S_7684;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6510);}while(r); +} +S_7687:; +if ((-(*__LONG_O!= 1 ))||new_error){ +if(qbevent){evnt(6511);if(r)goto S_7687;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6511);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6671);}while(r); +if(!qbevent)break;evnt(6511);}while(r); } do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Is",2))),__STRING1_SP),__STRING_O2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6672);}while(r); +if(!qbevent)break;evnt(6512);}while(r); do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6672);}while(r); -S_7928:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6673);if(r)goto S_7928;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass910= 3 ),__LONG_N2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6673);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6673);}while(r); +if(!qbevent)break;evnt(6513);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("STRIG",5)),__STRING1_SP2),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6674);}while(r); -S_7933:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6675);if(r)goto S_7933;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6675);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6675);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6676);}while(r); -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(6677);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6678);}while(r); -do{ -qbs_set(__STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6679);}while(r); -S_7941:; -fornext_value909=*__LONG_I; -fornext_finalvalue909=*__LONG_N; -fornext_step909= 1 ; -if (fornext_step909<0) fornext_step_negative909=1; else fornext_step_negative909=0; -if (new_error) goto fornext_error909; -goto fornext_entrylabel909; -while(1){ -fornext_value909=fornext_step909+(*__LONG_I); -fornext_entrylabel909: -*__LONG_I=fornext_value909; -if (fornext_step_negative909){ -if (fornext_value909fornext_finalvalue909) break; -} -fornext_error909:; -if(qbevent){evnt(6680);if(r)goto S_7941;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6681);}while(r); -do{ -*__LONG_A=qbs_asc(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6682);}while(r); -S_7944:; -if ((-(*__LONG_A== 40 ))||new_error){ -if(qbevent){evnt(6683);if(r)goto S_7944;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6683);}while(r); -} -S_7947:; -if ((-(*__LONG_A== 41 ))||new_error){ -if(qbevent){evnt(6684);if(r)goto S_7947;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6684);}while(r); -} -S_7950:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(6685);if(r)goto S_7950;} -do{ -goto LABEL_ONSTRIGGOTARG; -if(!qbevent)break;evnt(6685);}while(r); -} -S_7953:; -if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ -if(qbevent){evnt(6686);if(r)goto S_7953;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(6687);}while(r); -S_7955:; -if ((-(*__LONG_X> 1 ))||new_error){ -if(qbevent){evnt(6688);if(r)goto S_7955;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6688);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6688);}while(r); -} -S_7959:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6689);if(r)goto S_7959;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6689);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6689);}while(r); -} -do{ -qbs_set(__STRING_E3,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6690);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6691);}while(r); -}else{ -S_7966:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ -if(qbevent){evnt(6693);if(r)goto S_7966;} -do{ -qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6693);}while(r); -}else{ -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6693);}while(r); -} -} -fornext_continue_908:; -} -fornext_exit_908:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6696);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6696);}while(r); -LABEL_ONSTRIGGOTARG:; -if(qbevent){evnt(6697);r=0;} -S_7975:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6698);if(r)goto S_7975;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6698);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6698);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip911; -sub_file_print(tmp_fileno,qbs_new_txt_len("onstrig_setup(",14), 0 , 0 , 0 ); -if (new_error) goto skip911; -skip911: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6699);}while(r); -S_7980:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ -if(qbevent){evnt(6702);if(r)goto S_7980;} -do{ -qbs_set(__STRING_OPTI,__STRING_E3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6703);}while(r); -do{ -qbs_set(__STRING_OPTCONTROLLER,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6704);}while(r); -do{ -qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6705);}while(r); -}else{ -do{ -qbs_set(__STRING_OPTI,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6707);}while(r); -do{ -qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6708);}while(r); -do{ -qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6709);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6713);}while(r); -S_7990:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6713);if(r)goto S_7990;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6713);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6714);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass913= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6715);}while(r); -S_7995:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6715);if(r)goto S_7995;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6715);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip914; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip914; -skip914: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6716);}while(r); -S_7999:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(6719);if(r)goto S_7999;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6720);}while(r); -S_8001:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6720);if(r)goto S_8001;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6720);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6721);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass915= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6722);}while(r); -S_8006:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6722);if(r)goto S_8006;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6722);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,__STRING_OPTCONTROLLER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6724);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip916; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(",",1)),__STRING_OPTPASSED),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip916; -skip916: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6726);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6728);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6730);}while(r); -S_8015:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6731);if(r)goto S_8015;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6731);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6731);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6732);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6732);}while(r); -do{ -*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ; -if(!qbevent)break;evnt(6733);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip917; -sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONSTRIGID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip917; -skip917: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6734);}while(r); -S_8023:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(6736);if(r)goto S_8023;} -S_8024:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6737);if(r)goto S_8024;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6737);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6737);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6738);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6738);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip918; -sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); -if (new_error) goto skip918; -skip918: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6740);}while(r); -S_8031:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(6742);if(r)goto S_8031;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6742);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6742);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass919= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6744);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(6745);}while(r); -LABEL_LABCHK60Z:; -if(qbevent){evnt(6746);r=0;} -S_8037:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(6747);if(r)goto S_8037;} -do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(6748);}while(r); -S_8039:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(6749);if(r)goto S_8039;} -S_8040:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(6750);if(r)goto S_8040;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; -if(!qbevent)break;evnt(6750);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(6751);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6752);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(6753);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(6754);}while(r); -}else{ -S_8048:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(6756);if(r)goto S_8048;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(6756);}while(r); -do{ -goto LABEL_LABCHK60Z; -if(!qbevent)break;evnt(6756);}while(r); -} -} -} -S_8054:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(6759);if(r)goto S_8054;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(6761);}while(r); -S_8056:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(6761);if(r)goto S_8056;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(6761);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); -if (new_error) goto skip927; -skip927: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6780);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip928; -sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); -if (new_error) goto skip928; -skip928: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6781);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip929; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip929; -skip929: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6782);}while(r); -S_8079:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(6784);if(r)goto S_8079;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6784);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6784);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6785);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6786);}while(r); -}else{ -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(6791);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6792);}while(r); -S_8089:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6793);if(r)goto S_8089;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6793);}while(r); -} -S_8092:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(6794);if(r)goto S_8092;} -S_8093:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(6795);if(r)goto S_8093;} -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(6795);}while(r); -do{ -goto dl_exit_931; -if(!qbevent)break;evnt(6795);}while(r); -} -S_8097:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(6796);if(r)goto S_8097;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(6796);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6796);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(6796);}while(r); -} -S_8103:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6797);if(r)goto S_8103;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6797);}while(r); -} -dl_continue_931:; -} -dl_exit_931:; -S_8107:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(6799);if(r)goto S_8107;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6799);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6799);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6801);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip932; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip932; -skip932: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6803);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip933; -sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip933; -skip933: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6804);}while(r); -S_8114:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ -if(qbevent){evnt(6806);if(r)goto S_8114;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6806);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6806);}while(r); -} -S_8118:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6808);if(r)goto S_8118;} -S_8119:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ -if(qbevent){evnt(6810);if(r)goto S_8119;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6810);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6810);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip934; -sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); -if (new_error) goto skip934; -skip934: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6811);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip935; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip935; -skip935: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6812);}while(r); -}else{ -S_8126:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ -if(qbevent){evnt(6816);if(r)goto S_8126;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6816);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6816);}while(r); -} -do{ -*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6818);}while(r); -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(6819);}while(r); -S_8132:; -if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(6820);if(r)goto S_8132;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6820);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6820);}while(r); -} -S_8136:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(6821);if(r)goto S_8136;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6821);}while(r); -} -S_8139:; -if ((-(*__LONG_B== 16 ))||new_error){ -if(qbevent){evnt(6822);if(r)goto S_8139;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6822);}while(r); -} -S_8142:; -if ((-(*__LONG_B== 32 ))||new_error){ -if(qbevent){evnt(6823);if(r)goto S_8142;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6823);}while(r); -} -S_8145:; -if ((-(*__LONG_B== 64 ))||new_error){ -if(qbevent){evnt(6824);if(r)goto S_8145;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6824);}while(r); -} -S_8148:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(6825);if(r)goto S_8148;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6825);}while(r); -} -S_8151:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(6826);if(r)goto S_8151;} -do{ -qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6826);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip936; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); -if (new_error) goto skip936; -skip936: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6827);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6829);}while(r); -do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6830);}while(r); -S_8157:; +if(!qbevent)break;evnt(6518);}while(r); +S_7695:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6831);if(r)goto S_8157;} +if(qbevent){evnt(6519);if(r)goto S_7695;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6831);}while(r); +if(!qbevent)break;evnt(6519);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6832);}while(r); +if(!qbevent)break;evnt(6520);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass937=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6833);}while(r); -S_8162:; +if(!qbevent)break;evnt(6521);}while(r); +S_7700:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6834);if(r)goto S_8162;} +if(qbevent){evnt(6522);if(r)goto S_7700;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6834);}while(r); +if(!qbevent)break;evnt(6522);}while(r); +} +S_7703:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6523);if(r)goto S_7703;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass911= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6523);}while(r); +} +S_7706:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6524);if(r)goto S_7706;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6524);}while(r); +} +S_7709:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(6525);if(r)goto S_7709;} +S_7710:; +if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6527);if(r)goto S_7710;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6527);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6527);}while(r); +} +S_7714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||new_error){ +if(qbevent){evnt(6528);if(r)goto S_7714;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6528);}while(r); +} +S_7717:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||new_error){ +if(qbevent){evnt(6529);if(r)goto S_7717;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6529);}while(r); +} +S_7720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(6530);if(r)goto S_7720;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6530);}while(r); +} +S_7723:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(6531);if(r)goto S_7723;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6531);}while(r); +} +S_7726:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(6532);if(r)goto S_7726;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6532);}while(r); +} +S_7729:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(6533);if(r)goto S_7729;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6533);}while(r); +} +do{ +qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,__STRING_O),qbs_new_txt_len("(",1)),__STRING_N),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6534);}while(r); +}else{ +S_7734:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(6537);if(r)goto S_7734;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6537);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6537);}while(r); +} +S_7738:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(6539);if(r)goto S_7738;} +S_7739:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6540);if(r)goto S_7739;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6540);}while(r); +} +S_7742:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6541);if(r)goto S_7742;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_longdouble_to_uint64(",25),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6541);}while(r); +} +S_7745:; +if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ +if(qbevent){evnt(6542);if(r)goto S_7745;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6542);}while(r); +} +} +S_7749:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ +if(qbevent){evnt(6545);if(r)goto S_7749;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_TC,qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6545);}while(r); +} +do{ +qbs_set(__STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_F12,qbs_new_txt_len("(",1)),__STRING_N),__STRING_O),qbs_new_txt_len("(",1)),__STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6546);}while(r); +} +LABEL_ADDEDEXP:; +if(qbevent){evnt(6549);r=0;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6550);}while(r); +do{ +*__LONG_NEXP=*__LONG_NEXP+ 1 ; +if(!qbevent)break;evnt(6551);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6553);}while(r); +} +fornext_continue_897:; +} +fornext_exit_897:; +S_7760:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6557);if(r)goto S_7760;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip913; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||new_error){",15)), 0 , 0 , 1 ); +if (new_error) goto skip913; +skip913: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6558);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip914; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||new_error){",14)), 0 , 0 , 1 ); +if (new_error) goto skip914; +skip914: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6560);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6563);}while(r); +S_7766:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6563);if(r)goto S_7766;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6563);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6563);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(6564);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL- 1 )-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; +if(!qbevent)break;evnt(6565);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ; +if(!qbevent)break;evnt(6566);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6567);}while(r); +} +} +S_7777:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(6584);if(r)goto S_7777;} +S_7778:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6585);if(r)goto S_7778;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass916= 0 )); +if(!qbevent)break;evnt(6586);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip917; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174)), 0 , 0 , 1 ); +if (new_error) goto skip917; +skip917: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6587);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip918; +sub_file_print(tmp_fileno,qbs_new_txt_len("do{",3), 0 , 0 , 1 ); +if (new_error) goto skip918; +skip918: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6589);}while(r); +} +} +S_7785:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(6595);if(r)goto S_7785;} +S_7786:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||new_error){ +if(qbevent){evnt(6596);if(r)goto S_7786;} +S_7787:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(6597);if(r)goto S_7787;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Palette",7),__STRING1_SP),qbs_new_txt_len("Using",5)),__STRING1_SP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6598);}while(r); +S_7789:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(6599);if(r)goto S_7789;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6599);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6599);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass919= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6601);}while(r); +S_7794:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||new_error){ +if(qbevent){evnt(6602);if(r)goto S_7794;} +S_7795:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6603);if(r)goto S_7795;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6603);}while(r); +} +do{ +*__LONG_Z= 1 ; +if(!qbevent)break;evnt(6604);}while(r); +do{ +*__LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(6605);}while(r); +S_7800:; +if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||new_error){ +if(qbevent){evnt(6606);if(r)goto S_7800;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6606);}while(r); +} +S_7803:; +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(6607);if(r)goto S_7803;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6607);}while(r); +} +S_7806:; +if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(6608);if(r)goto S_7806;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6608);}while(r); +} +S_7809:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(6609);if(r)goto S_7809;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6609);}while(r); +} +S_7812:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(6610);if(r)goto S_7812;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6610);}while(r); +} +S_7815:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(6611);if(r)goto S_7815;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6611);}while(r); +} +S_7818:; +if ((-(*__LONG_Z== 0 ))||new_error){ +if(qbevent){evnt(6612);if(r)goto S_7818;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Array must be of type INTEGER or LONG",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6612);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6612);}while(r); +} +do{ +*__LONG_BITS=*__LONG_T& 511 ; +if(!qbevent)break;evnt(6613);}while(r); +do{ +goto LABEL_PU_GOTARRAY; +if(!qbevent)break;evnt(6614);}while(r); +} +S_7825:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6616);if(r)goto S_7825;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6616);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6617);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6617);}while(r); +LABEL_PU_GOTARRAY:; +if(qbevent){evnt(6618);r=0;} +S_7830:; +if ((-(*__LONG_N== 3 ))||new_error){ +if(qbevent){evnt(6620);if(r)goto S_7830;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6621);}while(r); +}else{ +S_7833:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass920= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(6623);if(r)goto S_7833;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected PALETTE USING array-name(...)",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6623);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6623);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass921= 4 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6624);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6626);}while(r); +S_7840:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6627);if(r)goto S_7840;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6627);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6628);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass922= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6629);}while(r); +S_7845:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6630);if(r)goto S_7845;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6630);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip938; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip938; -skip938: +if (new_error) goto skip923; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_paletteusing(",17),__STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip923; +skip923: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6835);}while(r); -} +if(!qbevent)break;evnt(6631);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 29 ; -if (new_error) goto skip939; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip939; -skip939: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6839);}while(r); -S_8168:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(6840);if(r)goto S_8168;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6840);}while(r); -}else{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6632);}while(r); +S_7850:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6632);if(r)goto S_7850;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6840);}while(r); -} +if(!qbevent)break;evnt(6632);}while(r); +}else{ do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6841);}while(r); +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6632);}while(r); +} do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6842);}while(r); +if(!qbevent)break;evnt(6633);}while(r); } } } -S_8178:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(6859);if(r)goto S_8178;} -S_8179:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("TIMER",5)))))||new_error){ -if(qbevent){evnt(6860);if(r)goto S_8179;} +S_7859:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||new_error){ +if(qbevent){evnt(6639);if(r)goto S_7859;} +S_7860:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(6640);if(r)goto S_7860;} do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(6861);}while(r); -S_8181:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6862);if(r)goto S_8181;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6862);}while(r); +if(!qbevent)break;evnt(6640);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6862);}while(r); +if(!qbevent)break;evnt(6640);}while(r); } do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("KEY",3)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6863);}while(r); +if(!qbevent)break;evnt(6641);}while(r); +S_7865:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||new_error){ +if(qbevent){evnt(6642);if(r)goto S_7865;} +S_7866:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(6643);if(r)goto S_7866;} do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6863);}while(r); -S_8187:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6864);if(r)goto S_8187;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6864);}while(r); +if(!qbevent)break;evnt(6643);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6864);}while(r); +if(!qbevent)break;evnt(6643);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("TIMER",5)),__STRING1_SP2),qbs_new_txt_len("(",1))); +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Off",3)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6865);}while(r); -S_8192:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6866);if(r)goto S_8192;} +if(!qbevent)break;evnt(6644);}while(r); do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6644);}while(r); +S_7872:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6644);if(r)goto S_7872;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6866);}while(r); +if(!qbevent)break;evnt(6644);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6644);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip926; +sub_file_print(tmp_fileno,qbs_new_txt_len("key_off();",10), 0 , 0 , 1 ); +if (new_error) goto skip926; +skip926: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6645);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6646);}while(r); +} +S_7880:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||new_error){ +if(qbevent){evnt(6648);if(r)goto S_7880;} +S_7881:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(6649);if(r)goto S_7881;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6649);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6866);}while(r); +if(!qbevent)break;evnt(6649);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6650);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6650);}while(r); +S_7887:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6650);if(r)goto S_7887;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6650);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6650);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip928; +sub_file_print(tmp_fileno,qbs_new_txt_len("key_on();",9), 0 , 0 , 1 ); +if (new_error) goto skip928; +skip928: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6651);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6652);}while(r); +} +S_7895:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||new_error){ +if(qbevent){evnt(6654);if(r)goto S_7895;} +S_7896:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(6655);if(r)goto S_7896;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6655);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6655);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("List",4)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6656);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6656);}while(r); +S_7902:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6656);if(r)goto S_7902;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6656);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6656);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip930; +sub_file_print(tmp_fileno,qbs_new_txt_len("key_list();",11), 0 , 0 , 1 ); +if (new_error) goto skip930; +skip930: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6657);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6658);}while(r); } do{ *__LONG_B= 0 ; -if(!qbevent)break;evnt(6867);}while(r); +if(!qbevent)break;evnt(6661);}while(r); do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(6868);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6869);}while(r); -do{ -qbs_set(__STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6870);}while(r); -S_8200:; -fornext_value942=*__LONG_I; -fornext_finalvalue942=*__LONG_N; -fornext_step942= 1 ; -if (fornext_step942<0) fornext_step_negative942=1; else fornext_step_negative942=0; -if (new_error) goto fornext_error942; -goto fornext_entrylabel942; +if(!qbevent)break;evnt(6661);}while(r); +S_7912:; +fornext_value932= 2 ; +fornext_finalvalue932=*__LONG_N; +fornext_step932= 1 ; +if (fornext_step932<0) fornext_step_negative932=1; else fornext_step_negative932=0; +if (new_error) goto fornext_error932; +goto fornext_entrylabel932; while(1){ -fornext_value942=fornext_step942+(*__LONG_I); -fornext_entrylabel942: -*__LONG_I=fornext_value942; -if (fornext_step_negative942){ -if (fornext_value942fornext_finalvalue942) break; +if (fornext_value932>fornext_finalvalue932) break; } -fornext_error942:; -if(qbevent){evnt(6871);if(r)goto S_8200;} +fornext_error932:; +if(qbevent){evnt(6662);if(r)goto S_7912;} do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6872);}while(r); -do{ -*__LONG_A=qbs_asc(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6873);}while(r); -S_8203:; -if ((-(*__LONG_A== 40 ))||new_error){ -if(qbevent){evnt(6874);if(r)goto S_8203;} +if(!qbevent)break;evnt(6663);}while(r); +S_7914:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6664);if(r)goto S_7914;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6874);}while(r); +if(!qbevent)break;evnt(6664);}while(r); } -S_8206:; -if ((-(*__LONG_A== 41 ))||new_error){ -if(qbevent){evnt(6875);if(r)goto S_8206;} +S_7917:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6665);if(r)goto S_7917;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6875);}while(r); +if(!qbevent)break;evnt(6665);}while(r); } -S_8209:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(6876);if(r)goto S_8209;} +S_7920:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6666);if(r)goto S_7920;} do{ -goto LABEL_ONTIMGOTARG; -if(!qbevent)break;evnt(6876);}while(r); +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6667);}while(r); +do{ +goto LABEL_KEY_ASSIGNMENT; +if(!qbevent)break;evnt(6667);}while(r); } -S_8212:; -if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ -if(qbevent){evnt(6877);if(r)goto S_8212;} +S_7924:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6669);if(r)goto S_7924;} do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(6878);}while(r); -S_8214:; -if ((-(*__LONG_X> 1 ))||new_error){ -if(qbevent){evnt(6879);if(r)goto S_8214;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6879);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6879);}while(r); -} -S_8218:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6880);if(r)goto S_8218;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6880);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6880);}while(r); -} -do{ -qbs_set(__STRING_E3,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6881);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6882);}while(r); -}else{ -S_8225:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ -if(qbevent){evnt(6884);if(r)goto S_8225;} -do{ -qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6884);}while(r); +if(!qbevent)break;evnt(6669);}while(r); }else{ do{ -qbs_set(__STRING_E2,__STRING_E); +qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6884);}while(r); +if(!qbevent)break;evnt(6669);}while(r); } +fornext_continue_931:; } -fornext_continue_941:; -} -fornext_exit_941:; +fornext_exit_931:; do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +goto LABEL_KEY_FALLTHROUGH; +if(!qbevent)break;evnt(6672);}while(r); +LABEL_KEY_ASSIGNMENT:; +if(qbevent){evnt(6673);r=0;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6887);}while(r); +if(!qbevent)break;evnt(6676);}while(r); +S_7932:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6677);if(r)goto S_7932;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6887);}while(r); -LABEL_ONTIMGOTARG:; -if(qbevent){evnt(6888);r=0;} -S_8234:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6889);if(r)goto S_8234;} +if(!qbevent)break;evnt(6677);}while(r); +} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6889);}while(r); +if(!qbevent)break;evnt(6678);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass934= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6679);}while(r); +S_7937:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6680);if(r)goto S_7937;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(6889);}while(r); +if(!qbevent)break;evnt(6680);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip935; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("key_assign(",11),__STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip935; +skip935: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6681);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6683);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6684);}while(r); +S_7943:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6685);if(r)goto S_7943;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6685);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6686);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6687);}while(r); +S_7948:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6688);if(r)goto S_7948;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6688);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip936; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip936; +skip936: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6689);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6690);}while(r); +S_7953:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6690);if(r)goto S_7953;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6690);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6690);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6691);}while(r); +} +LABEL_KEY_FALLTHROUGH:; +if(qbevent){evnt(6693);r=0;} +S_7960:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||new_error){ +if(qbevent){evnt(6698);if(r)goto S_7960;} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6701);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6701);}while(r); +S_7963:; +fornext_value939= 2 ; +fornext_finalvalue939=*__LONG_N; +fornext_step939= 1 ; +if (fornext_step939<0) fornext_step_negative939=1; else fornext_step_negative939=0; +if (new_error) goto fornext_error939; +goto fornext_entrylabel939; +while(1){ +fornext_value939=fornext_step939+(*__LONG_I); +fornext_entrylabel939: +*__LONG_I=fornext_value939; +if (fornext_step_negative939){ +if (fornext_value939fornext_finalvalue939) break; +} +fornext_error939:; +if(qbevent){evnt(6702);if(r)goto S_7963;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6703);}while(r); +S_7965:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6704);if(r)goto S_7965;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6704);}while(r); +} +S_7968:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6705);if(r)goto S_7968;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6705);}while(r); +} +S_7971:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6706);if(r)goto S_7971;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6707);}while(r); +do{ +goto LABEL_FIELDGOTFN; +if(!qbevent)break;evnt(6707);}while(r); +} +S_7975:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6709);if(r)goto S_7975;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6709);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6709);}while(r); +} +fornext_continue_938:; +} +fornext_exit_938:; +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6711);}while(r); +LABEL_FIELDGOTFN:; +if(qbevent){evnt(6712);r=0;} +S_7982:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||new_error){ +if(qbevent){evnt(6713);if(r)goto S_7982;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6713);}while(r); +} +S_7985:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(__STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(6714);if(r)goto S_7985;} +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6714);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6714);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Field",5)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6714);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6715);}while(r); +S_7992:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6716);if(r)goto S_7992;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6716);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6717);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass943= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6718);}while(r); +S_7997:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6719);if(r)goto S_7997;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6719);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip944; -sub_file_print(tmp_fileno,qbs_new_txt_len("ontimer_setup(",14), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("field_new(",10),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip944; skip944: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(6890);}while(r); -S_8239:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ -if(qbevent){evnt(6892);if(r)goto S_8239;} +if(!qbevent)break;evnt(6720);}while(r); +LABEL_FIELDNEXT:; +if(qbevent){evnt(6722);r=0;} +S_8001:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(6725);if(r)goto S_8001;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6893);}while(r); -S_8241:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6894);if(r)goto S_8241;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6894);}while(r); +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6725);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT),qbs_new_txt_len(",",1)),__STRING1_SP)); +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6726);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6726);}while(r); +S_8006:; +fornext_value946=*__LONG_I; +fornext_finalvalue946=*__LONG_N; +fornext_step946= 1 ; +if (fornext_step946<0) fornext_step_negative946=1; else fornext_step_negative946=0; +if (new_error) goto fornext_error946; +goto fornext_entrylabel946; +while(1){ +fornext_value946=fornext_step946+(*__LONG_I); +fornext_entrylabel946: +*__LONG_I=fornext_value946; +if (fornext_step_negative946){ +if (fornext_value946fornext_finalvalue946) break; +} +fornext_error946:; +if(qbevent){evnt(6727);if(r)goto S_8006;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6728);}while(r); +S_8008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6729);if(r)goto S_8008;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6729);}while(r); +} +S_8011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6730);if(r)goto S_8011;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6730);}while(r); +} +S_8014:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6731);if(r)goto S_8014;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6732);}while(r); +do{ +goto LABEL_FIELDGOTFW; +if(!qbevent)break;evnt(6732);}while(r); +} +S_8018:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6734);if(r)goto S_8018;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6734);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6734);}while(r); +} +fornext_continue_945:; +} +fornext_exit_945:; +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6736);}while(r); +LABEL_FIELDGOTFW:; +if(qbevent){evnt(6737);r=0;} +S_8025:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(6738);if(r)goto S_8025;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6738);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6739);}while(r); +S_8029:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6740);if(r)goto S_8029;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6740);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6741);}while(r); +do{ +qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass949= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6742);}while(r); +S_8034:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6743);if(r)goto S_8034;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6743);}while(r); +} +S_8037:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(6746);if(r)goto S_8037;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6746);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6747);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6747);}while(r); +S_8042:; +fornext_value951=*__LONG_I; +fornext_finalvalue951=*__LONG_N; +fornext_step951= 1 ; +if (fornext_step951<0) fornext_step_negative951=1; else fornext_step_negative951=0; +if (new_error) goto fornext_error951; +goto fornext_entrylabel951; +while(1){ +fornext_value951=fornext_step951+(*__LONG_I); +fornext_entrylabel951: +*__LONG_I=fornext_value951; +if (fornext_step_negative951){ +if (fornext_value951fornext_finalvalue951) break; +} +fornext_error951:; +if(qbevent){evnt(6748);if(r)goto S_8042;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6749);}while(r); +S_8044:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6750);if(r)goto S_8044;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6750);}while(r); +} +S_8047:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6751);if(r)goto S_8047;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6751);}while(r); +} +S_8050:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_I==*__LONG_N))|(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6752);if(r)goto S_8050;} +S_8051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(6753);if(r)goto S_8051;} +do{ +*__LONG_I=*__LONG_I- 1 ; +if(!qbevent)break;evnt(6753);}while(r); +} +S_8054:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(6754);if(r)goto S_8054;} +S_8055:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6755);if(r)goto S_8055;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6755);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6755);}while(r); +} +} +do{ +goto LABEL_FIELDGOTFNAME; +if(!qbevent)break;evnt(6757);}while(r); +} +S_8063:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6759);if(r)goto S_8063;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6759);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6759);}while(r); +} +fornext_continue_950:; +} +fornext_exit_950:; +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6761);}while(r); +LABEL_FIELDGOTFNAME:; +if(qbevent){evnt(6762);r=0;} +S_8070:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(6763);if(r)goto S_8070;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6763);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6765);}while(r); +S_8074:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6766);if(r)goto S_8074;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6766);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6767);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6768);}while(r); +S_8079:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6769);if(r)goto S_8079;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6769);}while(r); +} +S_8082:; +if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6770);if(r)goto S_8082;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6770);}while(r); +} +S_8085:; +if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(6771);if(r)goto S_8085;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Fixed length strings cannot be used in a FIELD statement",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6771);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6771);}while(r); +} +S_8089:; +if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(6772);if(r)goto S_8089;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6772);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass955= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6773);}while(r); +S_8093:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6774);if(r)goto S_8093;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6774);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip956; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("field_add(",10),__STRING_E),qbs_new_txt_len(",",1)),__STRING_SIZEE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip956; +skip956: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6775);}while(r); +S_8097:; +if ((-(*__LONG_I<*__LONG_N))||new_error){ +if(qbevent){evnt(6777);if(r)goto S_8097;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6778);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6779);}while(r); +S_8100:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(6780);if(r)goto S_8100;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6780);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6780);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6781);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6782);}while(r); +do{ +goto LABEL_FIELDNEXT; +if(!qbevent)break;evnt(6783);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6786);}while(r); +S_8109:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6786);if(r)goto S_8109;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6786);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6786);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6787);}while(r); +LABEL_FIELDERROR:; +if(qbevent){evnt(6789);r=0;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected FIELD #filenumber, characters AS variable$, ...",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6789);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6789);}while(r); +} +S_8118:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6802);if(r)goto S_8118;} +S_8119:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ +if(qbevent){evnt(6803);if(r)goto S_8119;} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6805);}while(r); +S_8121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||new_error){ +if(qbevent){evnt(6807);if(r)goto S_8121;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Do",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6809);}while(r); +S_8123:; +fornext_value959=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue959= 1 ; +fornext_step959= -1 ; +if (fornext_step959<0) fornext_step_negative959=1; else fornext_step_negative959=0; +if (new_error) goto fornext_error959; +goto fornext_entrylabel959; +while(1){ +fornext_value959=fornext_step959+(*__LONG_I); +fornext_entrylabel959: +*__LONG_I=fornext_value959; +if (fornext_step_negative959){ +if (fornext_value959fornext_finalvalue959) break; +} +fornext_error959:; +if(qbevent){evnt(6810);if(r)goto S_8123;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6811);}while(r); +S_8125:; +if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||new_error){ +if(qbevent){evnt(6812);if(r)goto S_8125;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip960; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto dl_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip960; +skip960: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6813);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6814);}while(r); +S_8128:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6814);if(r)goto S_8128;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6814);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6814);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6815);}while(r); +} +fornext_continue_958:; +} +fornext_exit_958:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6818);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6818);}while(r); +} +S_8139:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ +if(qbevent){evnt(6821);if(r)goto S_8139;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("For",3)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6823);}while(r); +S_8141:; +fornext_value963=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue963= 1 ; +fornext_step963= -1 ; +if (fornext_step963<0) fornext_step_negative963=1; else fornext_step_negative963=0; +if (new_error) goto fornext_error963; +goto fornext_entrylabel963; +while(1){ +fornext_value963=fornext_step963+(*__LONG_I); +fornext_entrylabel963: +*__LONG_I=fornext_value963; +if (fornext_step_negative963){ +if (fornext_value963fornext_finalvalue963) break; +} +fornext_error963:; +if(qbevent){evnt(6824);if(r)goto S_8141;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6825);}while(r); +S_8143:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6826);if(r)goto S_8143;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip964; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_exit_",18),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip964; +skip964: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6827);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6828);}while(r); +S_8146:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6828);if(r)goto S_8146;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6828);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6828);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6829);}while(r); +} +fornext_continue_962:; +} +fornext_exit_962:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6832);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6832);}while(r); +} +S_8157:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(6835);if(r)goto S_8157;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("While",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6837);}while(r); +S_8159:; +fornext_value967=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue967= 1 ; +fornext_step967= -1 ; +if (fornext_step967<0) fornext_step_negative967=1; else fornext_step_negative967=0; +if (new_error) goto fornext_error967; +goto fornext_entrylabel967; +while(1){ +fornext_value967=fornext_step967+(*__LONG_I); +fornext_entrylabel967: +*__LONG_I=fornext_value967; +if (fornext_step_negative967){ +if (fornext_value967fornext_finalvalue967) break; +} +fornext_error967:; +if(qbevent){evnt(6838);if(r)goto S_8159;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6839);}while(r); +S_8161:; +if ((-(*__LONG_T== 5 ))||new_error){ +if(qbevent){evnt(6840);if(r)goto S_8161;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip968; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ww_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip968; +skip968: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6841);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6842);}while(r); +S_8164:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6842);if(r)goto S_8164;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6842);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6842);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6843);}while(r); +} +fornext_continue_966:; +} +fornext_exit_966:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6846);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6846);}while(r); +} +S_8175:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ +if(qbevent){evnt(6849);if(r)goto S_8175;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Select",6)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6851);}while(r); +S_8177:; +fornext_value971=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue971= 1 ; +fornext_step971= -1 ; +if (fornext_step971<0) fornext_step_negative971=1; else fornext_step_negative971=0; +if (new_error) goto fornext_error971; +goto fornext_entrylabel971; +while(1){ +fornext_value971=fornext_step971+(*__LONG_I); +fornext_entrylabel971: +*__LONG_I=fornext_value971; +if (fornext_step_negative971){ +if (fornext_value971fornext_finalvalue971) break; +} +fornext_error971:; +if(qbevent){evnt(6852);if(r)goto S_8177;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6853);}while(r); +S_8179:; +if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||new_error){ +if(qbevent){evnt(6854);if(r)goto S_8179;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip972; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); +if (new_error) goto skip972; +skip972: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6855);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6856);}while(r); +S_8182:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6856);if(r)goto S_8182;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6856);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6856);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6857);}while(r); +} +fornext_continue_970:; +} +fornext_exit_970:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6860);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6860);}while(r); +} +S_8193:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ +if(qbevent){evnt(6863);if(r)goto S_8193;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6865);}while(r); +S_8195:; +fornext_value975=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue975= 1 ; +fornext_step975= -1 ; +if (fornext_step975<0) fornext_step_negative975=1; else fornext_step_negative975=0; +if (new_error) goto fornext_error975; +goto fornext_entrylabel975; +while(1){ +fornext_value975=fornext_step975+(*__LONG_I); +fornext_entrylabel975: +*__LONG_I=fornext_value975; +if (fornext_step_negative975){ +if (fornext_value975fornext_finalvalue975) break; +} +fornext_error975:; +if(qbevent){evnt(6866);if(r)goto S_8195;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6867);}while(r); +S_8197:; +if ((-(*__LONG_T== 18 ))||new_error){ +if(qbevent){evnt(6868);if(r)goto S_8197;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip976; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_ec_",11),FUNC_STR2(&(pass977=*__LONG_EVERYCASENEWCASE+ 1 ))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); +if (new_error) goto skip976; +skip976: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6869);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6870);}while(r); +S_8200:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6870);if(r)goto S_8200;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6870);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6870);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6871);}while(r); +S_8206:; +}else{ +if (-(*__LONG_T== 19 )){ +if(qbevent){evnt(6872);if(r)goto S_8206;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip979; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5)), 0 , 0 , 1 ); +if (new_error) goto skip979; +skip979: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6873);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6874);}while(r); +S_8209:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6874);if(r)goto S_8209;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6874);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6874);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6875);}while(r); +} +} +fornext_continue_974:; +} +fornext_exit_974:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6878);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6878);}while(r); +} +} +} +S_8222:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(6891);if(r)goto S_8222;} +S_8223:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STRIG",5)))))||new_error){ +if(qbevent){evnt(6892);if(r)goto S_8223;} +do{ +tmp_long=array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(6893);}while(r); +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(6894);}while(r); +S_8226:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(6895);if(r)goto S_8226;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6895);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass946= 32 ))); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6895);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(6896);}while(r); -S_8246:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6897);if(r)goto S_8246;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6896);}while(r); +S_8232:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6897);if(r)goto S_8232;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6897);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(6897);}while(r); } do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip947; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip947; -skip947: +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Strig",5)),__STRING1_SP2),qbs_new_txt_len("(",1)))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(6898);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip948; -sub_file_print(tmp_fileno,qbs_new_txt_len("0,",2), 0 , 0 , 0 ); -if (new_error) goto skip948; -skip948: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6900);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6901);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6904);}while(r); -S_8255:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6905);if(r)goto S_8255;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6905);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6906);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass949=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6907);}while(r); -S_8260:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6908);if(r)goto S_8260;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6908);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip950; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip950; -skip950: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6909);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6910);}while(r); -S_8265:; +S_8237:; if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6911);if(r)goto S_8265;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6911);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6911);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6912);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6912);}while(r); -do{ -*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ; -if(!qbevent)break;evnt(6913);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip951; -sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONTIMERID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip951; -skip951: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6914);}while(r); -S_8273:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(6916);if(r)goto S_8273;} -S_8274:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6917);if(r)goto S_8274;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6917);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6917);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6918);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6918);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip952; -sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); -if (new_error) goto skip952; -skip952: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6920);}while(r); -S_8281:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(6922);if(r)goto S_8281;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6922);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6922);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass953= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6924);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(6925);}while(r); -LABEL_LABCHK60:; -if(qbevent){evnt(6926);r=0;} -S_8287:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(6927);if(r)goto S_8287;} -do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(6928);}while(r); -S_8289:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(6929);if(r)goto S_8289;} -S_8290:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(6930);if(r)goto S_8290;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; -if(!qbevent)break;evnt(6930);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(6931);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6932);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(6933);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(6934);}while(r); -}else{ -S_8298:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(6936);if(r)goto S_8298;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(6936);}while(r); -do{ -goto LABEL_LABCHK60; -if(!qbevent)break;evnt(6936);}while(r); -} -} -} -S_8304:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(6939);if(r)goto S_8304;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(6941);}while(r); -S_8306:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(6941);if(r)goto S_8306;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(6941);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); -if (new_error) goto skip961; -skip961: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6960);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip962; -sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); -if (new_error) goto skip962; -skip962: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6961);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip963; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip963; -skip963: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6962);}while(r); -S_8329:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(6972);if(r)goto S_8329;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6972);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6972);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6973);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6974);}while(r); -}else{ -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(6978);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6979);}while(r); -S_8339:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6980);if(r)goto S_8339;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6980);}while(r); -} -S_8342:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(6981);if(r)goto S_8342;} -S_8343:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(6982);if(r)goto S_8343;} -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(6982);}while(r); -do{ -goto dl_exit_965; -if(!qbevent)break;evnt(6982);}while(r); -} -S_8347:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(6983);if(r)goto S_8347;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(6983);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6983);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(6983);}while(r); -} -S_8353:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6984);if(r)goto S_8353;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6984);}while(r); -} -dl_continue_965:; -} -dl_exit_965:; -S_8357:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(6986);if(r)goto S_8357;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6986);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6986);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6988);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip966; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip966; -skip966: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6990);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip967; -sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); -if (new_error) goto skip967; -skip967: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6991);}while(r); -S_8364:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ -if(qbevent){evnt(6993);if(r)goto S_8364;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6993);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6993);}while(r); -} -S_8368:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6995);if(r)goto S_8368;} -S_8369:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ -if(qbevent){evnt(6997);if(r)goto S_8369;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6997);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6997);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip968; -sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); -if (new_error) goto skip968; -skip968: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6998);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip969; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip969; -skip969: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(6999);}while(r); -}else{ -S_8376:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ -if(qbevent){evnt(7003);if(r)goto S_8376;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7003);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7003);}while(r); -} -do{ -*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7005);}while(r); -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(7006);}while(r); -S_8382:; -if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(7007);if(r)goto S_8382;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7007);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7007);}while(r); -} -S_8386:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(7008);if(r)goto S_8386;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7008);}while(r); -} -S_8389:; -if ((-(*__LONG_B== 16 ))||new_error){ -if(qbevent){evnt(7009);if(r)goto S_8389;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7009);}while(r); -} -S_8392:; -if ((-(*__LONG_B== 32 ))||new_error){ -if(qbevent){evnt(7010);if(r)goto S_8392;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7010);}while(r); -} -S_8395:; -if ((-(*__LONG_B== 64 ))||new_error){ -if(qbevent){evnt(7011);if(r)goto S_8395;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7011);}while(r); -} -S_8398:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(7012);if(r)goto S_8398;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7012);}while(r); -} -S_8401:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(7013);if(r)goto S_8401;} -do{ -qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7013);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip970; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); -if (new_error) goto skip970; -skip970: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7014);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7016);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7017);}while(r); -S_8407:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7018);if(r)goto S_8407;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7018);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7019);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass971=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7020);}while(r); -S_8412:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7021);if(r)goto S_8412;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7021);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip972; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip972; -skip972: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7022);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 24 ; -if (new_error) goto skip973; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip973; -skip973: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7026);}while(r); -S_8418:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7027);if(r)goto S_8418;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7027);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7027);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7028);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7029);}while(r); -} -} -} -S_8428:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(7038);if(r)goto S_8428;} -S_8429:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("KEY",3)))))||new_error){ -if(qbevent){evnt(7039);if(r)goto S_8429;} -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7040);}while(r); -S_8431:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7041);if(r)goto S_8431;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7041);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7041);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7042);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7042);}while(r); -S_8437:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7043);if(r)goto S_8437;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7043);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7043);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("KEY",3)),__STRING1_SP2),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7044);}while(r); -S_8442:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7045);if(r)goto S_8442;} +if(qbevent){evnt(6899);if(r)goto S_8237;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7045);}while(r); +if(!qbevent)break;evnt(6899);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7045);}while(r); +if(!qbevent)break;evnt(6899);}while(r); } do{ *__LONG_B= 0 ; -if(!qbevent)break;evnt(7046);}while(r); +if(!qbevent)break;evnt(6900);}while(r); do{ *__LONG_X= 0 ; -if(!qbevent)break;evnt(7047);}while(r); +if(!qbevent)break;evnt(6901);}while(r); do{ qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7048);}while(r); -S_8449:; -fornext_value976=*__LONG_I; -fornext_finalvalue976=*__LONG_N; -fornext_step976= 1 ; -if (fornext_step976<0) fornext_step_negative976=1; else fornext_step_negative976=0; -if (new_error) goto fornext_error976; -goto fornext_entrylabel976; +if(!qbevent)break;evnt(6902);}while(r); +do{ +qbs_set(__STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6903);}while(r); +S_8245:; +fornext_value982=*__LONG_I; +fornext_finalvalue982=*__LONG_N; +fornext_step982= 1 ; +if (fornext_step982<0) fornext_step_negative982=1; else fornext_step_negative982=0; +if (new_error) goto fornext_error982; +goto fornext_entrylabel982; while(1){ -fornext_value976=fornext_step976+(*__LONG_I); -fornext_entrylabel976: -*__LONG_I=fornext_value976; -if (fornext_step_negative976){ -if (fornext_value976fornext_finalvalue976) break; +if (fornext_value982>fornext_finalvalue982) break; } -fornext_error976:; -if(qbevent){evnt(7049);if(r)goto S_8449;} +fornext_error982:; +if(qbevent){evnt(6904);if(r)goto S_8245;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7050);}while(r); +if(!qbevent)break;evnt(6905);}while(r); do{ *__LONG_A=qbs_asc(__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7051);}while(r); -S_8452:; +if(!qbevent)break;evnt(6906);}while(r); +S_8248:; if ((-(*__LONG_A== 40 ))||new_error){ -if(qbevent){evnt(7054);if(r)goto S_8452;} +if(qbevent){evnt(6907);if(r)goto S_8248;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7054);}while(r); +if(!qbevent)break;evnt(6907);}while(r); } -S_8455:; +S_8251:; if ((-(*__LONG_A== 41 ))||new_error){ -if(qbevent){evnt(7055);if(r)goto S_8455;} +if(qbevent){evnt(6908);if(r)goto S_8251;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7055);}while(r); +if(!qbevent)break;evnt(6908);}while(r); } -S_8458:; +S_8254:; if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7056);if(r)goto S_8458;} +if(qbevent){evnt(6909);if(r)goto S_8254;} do{ -goto fornext_exit_975; -if(!qbevent)break;evnt(7056);}while(r); +goto LABEL_ONSTRIGGOTARG; +if(!qbevent)break;evnt(6909);}while(r); } -S_8461:; +S_8257:; +if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ +if(qbevent){evnt(6910);if(r)goto S_8257;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(6911);}while(r); +S_8259:; +if ((-(*__LONG_X> 1 ))||new_error){ +if(qbevent){evnt(6912);if(r)goto S_8259;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6912);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6912);}while(r); +} +S_8263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(6913);if(r)goto S_8263;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6913);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6913);}while(r); +} +do{ +qbs_set(__STRING_E3,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6914);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6915);}while(r); +}else{ +S_8270:; if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ -if(qbevent){evnt(7057);if(r)goto S_8461;} +if(qbevent){evnt(6917);if(r)goto S_8270;} do{ qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7057);}while(r); +if(!qbevent)break;evnt(6917);}while(r); }else{ do{ qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7057);}while(r); +if(!qbevent)break;evnt(6917);}while(r); } -fornext_continue_975:; } -fornext_exit_975:; -S_8467:; -if ((-(*__LONG_I==(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(7059);if(r)goto S_8467;} +fornext_continue_981:; +} +fornext_exit_981:; do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7059);}while(r); +if(!qbevent)break;evnt(6920);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7059);}while(r); -} -S_8471:; +if(!qbevent)break;evnt(6920);}while(r); +LABEL_ONSTRIGGOTARG:; +if(qbevent){evnt(6921);r=0;} +S_8279:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7060);if(r)goto S_8471;} +if(qbevent){evnt(6922);if(r)goto S_8279;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7060);}while(r); +if(!qbevent)break;evnt(6922);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7060);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7062);}while(r); -S_8476:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7063);if(r)goto S_8476;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7063);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7064);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass978=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7065);}while(r); -S_8481:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7066);if(r)goto S_8481;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7066);}while(r); +if(!qbevent)break;evnt(6922);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip979; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("onkey_setup(",12),__STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip979; -skip979: +if (new_error) goto skip984; +sub_file_print(tmp_fileno,qbs_new_txt_len("onstrig_setup(",14), 0 , 0 , 0 ); +if (new_error) goto skip984; +skip984: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7067);}while(r); +if(!qbevent)break;evnt(6923);}while(r); +S_8284:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ +if(qbevent){evnt(6926);if(r)goto S_8284;} +do{ +qbs_set(__STRING_OPTI,__STRING_E3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6927);}while(r); +do{ +qbs_set(__STRING_OPTCONTROLLER,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6928);}while(r); +do{ +qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6929);}while(r); +}else{ +do{ +qbs_set(__STRING_OPTI,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6931);}while(r); +do{ +qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6932);}while(r); +do{ +qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6933);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6937);}while(r); +S_8294:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6937);if(r)goto S_8294;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6937);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6938);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass986= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6939);}while(r); +S_8299:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6939);if(r)goto S_8299;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6939);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip987; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip987; +skip987: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6940);}while(r); +S_8303:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(6943);if(r)goto S_8303;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6944);}while(r); +S_8305:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6944);if(r)goto S_8305;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6944);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6945);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass988= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6946);}while(r); +S_8310:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6946);if(r)goto S_8310;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6946);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,__STRING_OPTCONTROLLER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6948);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip989; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(",",1)),__STRING_OPTPASSED),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip989; +skip989: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(6950);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6952);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7069);}while(r); -S_8486:; +if(!qbevent)break;evnt(6954);}while(r); +S_8319:; if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7070);if(r)goto S_8486;} +if(qbevent){evnt(6955);if(r)goto S_8319;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7070);}while(r); +if(!qbevent)break;evnt(6955);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7070);}while(r); +if(!qbevent)break;evnt(6955);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7071);}while(r); +if(!qbevent)break;evnt(6956);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7071);}while(r); +if(!qbevent)break;evnt(6956);}while(r); do{ -*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ; -if(!qbevent)break;evnt(7072);}while(r); +*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ; +if(!qbevent)break;evnt(6957);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip980; -sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONKEYID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip980; -skip980: +if (new_error) goto skip990; +sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONSTRIGID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip990; +skip990: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7073);}while(r); -S_8494:; +if(!qbevent)break;evnt(6958);}while(r); +S_8327:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(7075);if(r)goto S_8494;} -S_8495:; +if(qbevent){evnt(6960);if(r)goto S_8327;} +S_8328:; if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7076);if(r)goto S_8495;} +if(qbevent){evnt(6961);if(r)goto S_8328;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7076);}while(r); +if(!qbevent)break;evnt(6961);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7076);}while(r); +if(!qbevent)break;evnt(6961);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7077);}while(r); +if(!qbevent)break;evnt(6962);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7077);}while(r); +if(!qbevent)break;evnt(6962);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip981; +if (new_error) goto skip991; sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); -if (new_error) goto skip981; -skip981: +if (new_error) goto skip991; +skip991: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7079);}while(r); -S_8502:; +if(!qbevent)break;evnt(6964);}while(r); +S_8335:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(7081);if(r)goto S_8502;} +if(qbevent){evnt(6966);if(r)goto S_8335;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7081);}while(r); +if(!qbevent)break;evnt(6966);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7081);}while(r); +if(!qbevent)break;evnt(6966);}while(r); } do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass982= 2 ),__LONG_IGNORE,__LONG_R); +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass992= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7083);}while(r); +if(!qbevent)break;evnt(6968);}while(r); do{ *__LONG_X= 1 ; -if(!qbevent)break;evnt(7084);}while(r); -LABEL_LABCHK61:; -if(qbevent){evnt(7085);r=0;} -S_8508:; +if(!qbevent)break;evnt(6969);}while(r); +LABEL_LABCHK60Z:; +if(qbevent){evnt(6970);r=0;} +S_8341:; if ((*__LONG_V)||new_error){ -if(qbevent){evnt(7086);if(r)goto S_8508;} +if(qbevent){evnt(6971);if(r)goto S_8341;} do{ *__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(7087);}while(r); -S_8510:; +if(!qbevent)break;evnt(6972);}while(r); +S_8343:; if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(7088);if(r)goto S_8510;} -S_8511:; +if(qbevent){evnt(6973);if(r)goto S_8343;} +S_8344:; if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(7089);if(r)goto S_8511;} +if(qbevent){evnt(6974);if(r)goto S_8344;} do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; -if(!qbevent)break;evnt(7089);}while(r); +if(!qbevent)break;evnt(6974);}while(r); } do{ *__LONG_X= 0 ; -if(!qbevent)break;evnt(7090);}while(r); +if(!qbevent)break;evnt(6975);}while(r); do{ qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7091);}while(r); +if(!qbevent)break;evnt(6976);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(7092);}while(r); +if(!qbevent)break;evnt(6977);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(7093);}while(r); +if(!qbevent)break;evnt(6978);}while(r); }else{ -S_8519:; +S_8352:; if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(7095);if(r)goto S_8519;} +if(qbevent){evnt(6980);if(r)goto S_8352;} do{ *__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(7095);}while(r); +if(!qbevent)break;evnt(6980);}while(r); do{ -goto LABEL_LABCHK61; -if(!qbevent)break;evnt(7095);}while(r); +goto LABEL_LABCHK60Z; +if(!qbevent)break;evnt(6980);}while(r); } } } -S_8525:; +S_8358:; if ((*__LONG_X)||new_error){ -if(qbevent){evnt(7098);if(r)goto S_8525;} +if(qbevent){evnt(6983);if(r)goto S_8358;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(7100);}while(r); -S_8527:; +if(!qbevent)break;evnt(6985);}while(r); +S_8360:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(7100);if(r)goto S_8527;} +if(qbevent){evnt(6985);if(r)goto S_8360;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(7100);}while(r); +if(!qbevent)break;evnt(6985);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ @@ -30699,3304 +30302,5393 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; } -if(!qbevent)break;evnt(7100);}while(r); +if(!qbevent)break;evnt(6985);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282); -if(!qbevent)break;evnt(7101);}while(r); +if(!qbevent)break;evnt(6986);}while(r); do{ -SUB_HASHADD(__STRING_A2,&(pass983= 2 ),__LONG_NLABELS); +SUB_HASHADD(__STRING_A2,&(pass993= 2 ),__LONG_NLABELS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7102);}while(r); +if(!qbevent)break;evnt(6987);}while(r); do{ *__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(7103);}while(r); +if(!qbevent)break;evnt(6988);}while(r); do{ *(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; -if(!qbevent)break;evnt(7104);}while(r); +if(!qbevent)break;evnt(6989);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7105);}while(r); +if(!qbevent)break;evnt(6990);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; -if(!qbevent)break;evnt(7106);}while(r); +if(!qbevent)break;evnt(6991);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(7107);}while(r); +if(!qbevent)break;evnt(6992);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(7108);}while(r); +if(!qbevent)break;evnt(6993);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,qbs_new_txt_len("GOSUB",5)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoSub",5))),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7110);}while(r); +if(!qbevent)break;evnt(6995);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 28 ; -if (new_error) goto skip984; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(key_event_id==",17),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip984; -skip984: +tab_fileno=tmp_fileno= 30 ; +if (new_error) goto skip994; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(strig_event_id==",19),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip994; +skip994: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7112);}while(r); +if(!qbevent)break;evnt(6997);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip985; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip985; -skip985: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7114);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip986; -sub_file_print(tmp_fileno,qbs_new_txt_len("key_event_occurred++;",21), 0 , 0 , 1 ); -if (new_error) goto skip986; -skip986: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7115);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip987; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("key_event_id=",13),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip987; -skip987: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7116);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip988; -sub_file_print(tmp_fileno,qbs_new_txt_len("key_event_occurred++;",21), 0 , 0 , 1 ); -if (new_error) goto skip988; -skip988: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7117);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip989; -sub_file_print(tmp_fileno,qbs_new_txt_len("return_point[next_return_point++]=0;",36), 0 , 0 , 1 ); -if (new_error) goto skip989; -skip989: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7118);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip990; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); -if (new_error) goto skip990; -skip990: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7119);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip991; -sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); -if (new_error) goto skip991; -skip991: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7120);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; -if (new_error) goto skip992; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip992; -skip992: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7121);}while(r); -S_8550:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7123);if(r)goto S_8550;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7123);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7123);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7124);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7125);}while(r); -}else{ -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7129);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7130);}while(r); -S_8560:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7131);if(r)goto S_8560;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7131);}while(r); -} -S_8563:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(7132);if(r)goto S_8563;} -S_8564:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(7133);if(r)goto S_8564;} -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7133);}while(r); -do{ -goto dl_exit_994; -if(!qbevent)break;evnt(7133);}while(r); -} -S_8568:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(7134);if(r)goto S_8568;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(7134);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7134);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(7134);}while(r); -} -S_8574:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7135);if(r)goto S_8574;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7135);}while(r); -} -dl_continue_994:; -} -dl_exit_994:; -S_8578:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(7137);if(r)goto S_8578;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7137);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7137);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7139);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip995; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip995; skip995: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7141);}while(r); +if(!qbevent)break;evnt(6999);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip996; -sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("strig_event_occurred++;",23), 0 , 0 , 1 ); if (new_error) goto skip996; skip996: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7142);}while(r); -S_8585:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ -if(qbevent){evnt(7144);if(r)goto S_8585;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7144);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7144);}while(r); -} -S_8589:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7146);if(r)goto S_8589;} -S_8590:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ -if(qbevent){evnt(7148);if(r)goto S_8590;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7148);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7148);}while(r); -} +if(!qbevent)break;evnt(7000);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip997; -sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("strig_event_id=",15),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip997; skip997: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7149);}while(r); +if(!qbevent)break;evnt(7001);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip998; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("strig_event_occurred++;",23), 0 , 0 , 1 ); if (new_error) goto skip998; skip998: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7150);}while(r); -}else{ -S_8597:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ -if(qbevent){evnt(7154);if(r)goto S_8597;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7154);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7154);}while(r); -} -do{ -*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7156);}while(r); -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(7157);}while(r); -S_8603:; -if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(7158);if(r)goto S_8603;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7158);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7158);}while(r); -} -S_8607:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(7159);if(r)goto S_8607;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7159);}while(r); -} -S_8610:; -if ((-(*__LONG_B== 16 ))||new_error){ -if(qbevent){evnt(7160);if(r)goto S_8610;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7160);}while(r); -} -S_8613:; -if ((-(*__LONG_B== 32 ))||new_error){ -if(qbevent){evnt(7161);if(r)goto S_8613;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7161);}while(r); -} -S_8616:; -if ((-(*__LONG_B== 64 ))||new_error){ -if(qbevent){evnt(7162);if(r)goto S_8616;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7162);}while(r); -} -S_8619:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(7163);if(r)goto S_8619;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7163);}while(r); -} -S_8622:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(7164);if(r)goto S_8622;} -do{ -qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7164);}while(r); -} +if(!qbevent)break;evnt(7002);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip999; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("return_point[next_return_point++]=0;",36), 0 , 0 , 1 ); if (new_error) goto skip999; skip999: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7165);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7167);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7168);}while(r); -S_8628:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7169);if(r)goto S_8628;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7169);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7170);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1000=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7171);}while(r); -S_8633:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7172);if(r)goto S_8633;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7172);}while(r); -} +if(!qbevent)break;evnt(7003);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 29 ; +if (new_error) goto skip1000; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); +if (new_error) goto skip1000; +skip1000: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7004);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip1001; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip1001; skip1001: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7173);}while(r); -} +if(!qbevent)break;evnt(7005);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 27 ; +tab_fileno=tmp_fileno= 29 ; if (new_error) goto skip1002; sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); if (new_error) goto skip1002; skip1002: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7177);}while(r); -S_8639:; +if(!qbevent)break;evnt(7006);}while(r); +S_8383:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7178);if(r)goto S_8639;} +if(qbevent){evnt(7008);if(r)goto S_8383;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7178);}while(r); +if(!qbevent)break;evnt(7008);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7178);}while(r); +if(!qbevent)break;evnt(7008);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7179);}while(r); +if(!qbevent)break;evnt(7009);}while(r); do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7180);}while(r); -} -} -} -S_8649:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(7213);if(r)goto S_8649;} -S_8650:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||new_error){ -if(qbevent){evnt(7214);if(r)goto S_8650;} -S_8651:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(7215);if(r)goto S_8651;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7215);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7215);}while(r); -} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(7216);}while(r); -S_8656:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(7217);if(r)goto S_8656;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SHARED must be used within a SUB/FUNCTION",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7217);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7217);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("SHARED",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7221);}while(r); -LABEL_SUBFUNCSHR:; -if(qbevent){evnt(7222);r=0;} -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7225);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7225);}while(r); -S_8663:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7227);if(r)goto S_8663;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED variable-name",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7227);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7227);}while(r); -} -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7229);}while(r); -S_8668:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7230);if(r)goto S_8668;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7230);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7231);}while(r); -do{ -*__LONG_A= 0 ; -if(!qbevent)break;evnt(7234);}while(r); -S_8673:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7235);if(r)goto S_8673;} -S_8674:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1004=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7236);if(r)goto S_8674;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7236);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7236);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(7237);}while(r); -do{ -*__LONG_A= 1 ; -if(!qbevent)break;evnt(7238);}while(r); -do{ -qbs_set(__STRING_L2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L2,__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7239);}while(r); -} -do{ -*__LONG_METHOD= 1 ; -if(!qbevent)break;evnt(7242);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7245);}while(r); -do{ -qbs_set(__STRING_TS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7246);}while(r); -do{ -qbs_set(__STRING_T3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7247);}while(r); -S_8686:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(7248);if(r)goto S_8686;} -do{ -qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),qbs_new_txt_len("AS",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7249);}while(r); -LABEL_GETSHRTYP:; -if(qbevent){evnt(7250);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7251);}while(r); -do{ -qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7252);}while(r); -S_8690:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(7253);if(r)goto S_8690;} -S_8691:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7254);if(r)goto S_8691;} -do{ -qbs_set(__STRING_T,__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7254);}while(r); +if(!qbevent)break;evnt(7010);}while(r); }else{ do{ -qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_T2)); +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7015);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7254);}while(r); -} -S_8696:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7255);if(r)goto S_8696;} -do{ -qbs_set(__STRING_T3,__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7255);}while(r); -}else{ -do{ -qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7255);}while(r); -} -do{ -goto LABEL_GETSHRTYP; -if(!qbevent)break;evnt(7256);}while(r); -} -S_8703:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7258);if(r)goto S_8703;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7258);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7258);}while(r); -} -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7260);}while(r); -S_8708:; +if(!qbevent)break;evnt(7016);}while(r); +S_8393:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7261);if(r)goto S_8708;} +if(qbevent){evnt(7017);if(r)goto S_8393;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7261);}while(r); +if(!qbevent)break;evnt(7017);}while(r); } -S_8711:; -if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7262);if(r)goto S_8711;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7262);}while(r); -} -S_8714:; -if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7263);if(r)goto S_8714;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7263);}while(r); -} -S_8717:; -if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7264);if(r)goto S_8717;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7264);}while(r); -} -do{ -*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(7265);}while(r); -do{ -*__LONG_METHOD= 0 ; -if(!qbevent)break;evnt(7266);}while(r); -S_8722:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(7267);if(r)goto S_8722;} -do{ -qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7267);}while(r); -}else{ -do{ -qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7267);}while(r); -} -S_8727:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7268);if(r)goto S_8727;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7268);}while(r); -} -do{ -qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7269);}while(r); -} -S_8732:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||new_error){ -if(qbevent){evnt(7273);if(r)goto S_8732;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected symbol or AS type after variable name",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7273);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7273);}while(r); -} -S_8736:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_S,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(7276);if(r)goto S_8736;} -S_8737:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(7277);if(r)goto S_8737;} -do{ -*__LONG_V= 27 ; -if(!qbevent)break;evnt(7277);}while(r); -}else{ -do{ -*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7277);}while(r); -} -do{ -qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7278);}while(r); -} -do{ -qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7282);}while(r); -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7283);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE= 18 ; -if(!qbevent)break;evnt(7284);}while(r); -do{ -sub_close( 13 ,1); -if(!qbevent)break;evnt(7285);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7285);}while(r); -do{ -sub_close( 19 ,1); -if(!qbevent)break;evnt(7286);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7286);}while(r); -do{ -qbs_set(__STRING_N2,qbs_add(qbs_add(__STRING_N,__STRING_S),__STRING_TS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7289);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7290);}while(r); -S_8753:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7291);if(r)goto S_8753;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7291);}while(r); -} -S_8756:; +S_8396:; while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(7292);if(r)goto S_8756;} -S_8757:; -if ((*__LONG_A)||new_error){ -if(qbevent){evnt(7293);if(r)goto S_8757;} -S_8758:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(7296);if(r)goto S_8758;} -S_8759:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ -if(qbevent){evnt(7297);if(r)goto S_8759;} +if(qbevent){evnt(7018);if(r)goto S_8396;} +S_8397:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(7019);if(r)goto S_8397;} do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7297);}while(r); +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7019);}while(r); +do{ +goto dl_exit_1004; +if(!qbevent)break;evnt(7019);}while(r); } -do{ -*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(7298);}while(r); -do{ -*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(7298);}while(r); -S_8764:; -if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7299);if(r)goto S_8764;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7299);}while(r); -} -S_8767:; -if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7300);if(r)goto S_8767;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7300);}while(r); -} -S_8770:; -if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7301);if(r)goto S_8770;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7301);}while(r); -} -S_8773:; -if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ -if(qbevent){evnt(7302);if(r)goto S_8773;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7302);}while(r); -} -} -}else{ -S_8778:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(7308);if(r)goto S_8778;} -S_8779:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ -if(qbevent){evnt(7309);if(r)goto S_8779;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7309);}while(r); -} -do{ -*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(7310);}while(r); -do{ -*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(7310);}while(r); -S_8784:; -if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7311);if(r)goto S_8784;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7311);}while(r); -} -S_8787:; -if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7312);if(r)goto S_8787;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7312);}while(r); -} -S_8790:; -if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7313);if(r)goto S_8790;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7313);}while(r); -} -S_8793:; -if (( 0 )||new_error){ -if(qbevent){evnt(7315);if(r)goto S_8793;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1010; -sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0 , 0 , 0 ); -if (new_error) goto skip1010; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1 , 0 , 0 ); -if (new_error) goto skip1010; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1 , 1 , 0 ); -if (new_error) goto skip1010; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1 , 0 , 0 ); -if (new_error) goto skip1010; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1 , 0 , 1 ); -if (new_error) goto skip1010; -skip1010: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7315);}while(r); -} -S_8796:; -if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ -if(qbevent){evnt(7317);if(r)goto S_8796;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7317);}while(r); -} -} -} -S_8801:; +S_8401:; if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(7322);if(r)goto S_8801;} +if(qbevent){evnt(7020);if(r)goto S_8401;} do{ *__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(7322);}while(r); +if(!qbevent)break;evnt(7020);}while(r); do{ -*__LONG_TRY=FUNC_FINDID(__STRING_N2); +*__LONG_TRY=FUNC_FINDID(__STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7322);}while(r); +if(!qbevent)break;evnt(7020);}while(r); }else{ do{ *__LONG_TRY= 0 ; -if(!qbevent)break;evnt(7322);}while(r); +if(!qbevent)break;evnt(7020);}while(r); } -S_8807:; +S_8407:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7323);if(r)goto S_8807;} +if(qbevent){evnt(7021);if(r)goto S_8407;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7323);}while(r); +if(!qbevent)break;evnt(7021);}while(r); } -dl_continue_1007:; +dl_continue_1004:; } -dl_exit_1007:; -S_8811:; -if ((*__LONG_A)||new_error){ -if(qbevent){evnt(7326);if(r)goto S_8811;} +dl_exit_1004:; +S_8411:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(7023);if(r)goto S_8411;} do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Array '",7),__STRING_N),qbs_new_txt_len("' not defined",13))); +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7326);}while(r); +if(!qbevent)break;evnt(7023);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7326);}while(r); +if(!qbevent)break;evnt(7023);}while(r); } -S_8815:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ -if(qbevent){evnt(7328);if(r)goto S_8815;} do{ -qbs_set(__STRING_TYP,__STRING_S); +qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7328);}while(r); -}else{ +if(!qbevent)break;evnt(7025);}while(r); do{ -qbs_set(__STRING_TYP,__STRING_T); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 29 ; +if (new_error) goto skip1005; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip1005; +skip1005: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7328);}while(r); -} -S_8820:; -if ((*__BYTE_OPTIONEXPLICIT)||new_error){ -if(qbevent){evnt(7329);if(r)goto S_8820;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7027);}while(r); do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),__STRING_N),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),qbs_new_txt_len(") not defined",13))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 29 ; +if (new_error) goto skip1006; +sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); +if (new_error) goto skip1006; +skip1006: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7329);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7028);}while(r); +S_8418:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ +if(qbevent){evnt(7030);if(r)goto S_8418;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7030);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7329);}while(r); +if(!qbevent)break;evnt(7030);}while(r); } +S_8422:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7032);if(r)goto S_8422;} +S_8423:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ +if(qbevent){evnt(7034);if(r)goto S_8423;} do{ -*__BYTE_BYPASSNEXTVARIABLE= -1 ; -if(!qbevent)break;evnt(7330);}while(r); -do{ -*__LONG_RETVAL=FUNC_DIM2(__STRING_N,__STRING_TYP,__LONG_METHOD,qbs_new_txt_len("",0)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7331);}while(r); -S_8826:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7332);if(r)goto S_8826;} +if(!qbevent)break;evnt(7034);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7332);}while(r); -} -LABEL_SHRFOUND:; -if(qbevent){evnt(7335);r=0;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7336);}while(r); -do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))| 2 ; -if(!qbevent)break;evnt(7338);}while(r); -do{ -*__LONG_LMAY=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7341);}while(r); -do{ -*__LONG_LMUST=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7341);}while(r); -S_8833:; -if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||new_error){ -if(qbevent){evnt(7342);if(r)goto S_8833;} -S_8834:; -if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||new_error){ -if(qbevent){evnt(7343);if(r)goto S_8834;} -do{ -*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ; -if(!qbevent)break;evnt(7344);}while(r); -do{ -tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID; -if(!qbevent)break;evnt(7345);}while(r); -do{ -swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+520)),8,1)); -if(!qbevent)break;evnt(7346);}while(r); -} -} -do{ -qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7351);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE= 13 ; -if(!qbevent)break;evnt(7352);}while(r); -do{ -sub_close( 13 ,1); -if(!qbevent)break;evnt(7353);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 5 ,NULL,NULL, 13 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7353);}while(r); -do{ -sub_close( 19 ,1); -if(!qbevent)break;evnt(7354);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 5 ,NULL,NULL, 19 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7354);}while(r); -S_8846:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(7356);if(r)goto S_8846;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7356);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7356);}while(r); -do{ -goto LABEL_SUBFUNCSHR; -if(!qbevent)break;evnt(7356);}while(r); -} -S_8851:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7357);if(r)goto S_8851;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7357);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7357);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7359);}while(r); -S_8856:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7359);if(r)goto S_8856;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7359);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7359);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7360);}while(r); -} -} -S_8864:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(7365);if(r)goto S_8864;} -S_8865:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ -if(qbevent){evnt(7366);if(r)goto S_8865;} -do{ -*__LONG_SF= 0 ; -if(!qbevent)break;evnt(7367);}while(r); -S_8867:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(7368);if(r)goto S_8867;} -do{ -*__LONG_SF= 1 ; -if(!qbevent)break;evnt(7368);}while(r); -} -S_8870:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(7369);if(r)goto S_8870;} -do{ -*__LONG_SF= 2 ; -if(!qbevent)break;evnt(7369);}while(r); -} -S_8873:; -if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(7370);if(r)goto S_8873;} -S_8874:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ -if(qbevent){evnt(7372);if(r)goto S_8874;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("EXIT ",5),__STRING_SECONDELEMENT),qbs_new_txt_len(" must be used within a SUB/FUNCTION",35))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7372);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7372);}while(r); +if(!qbevent)break;evnt(7034);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1014; -sub_file_print(tmp_fileno,qbs_new_txt_len("goto exit_subfunc;",18), 0 , 0 , 1 ); -if (new_error) goto skip1014; -skip1014: +if (new_error) goto skip1007; +sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); +if (new_error) goto skip1007; +skip1007: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7374);}while(r); +if(!qbevent)break;evnt(7035);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_FIRSTELEMENT,__STRING1_SP),__STRING_SECONDELEMENT)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 29 ; +if (new_error) goto skip1008; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip1008; +skip1008: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7375);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7376);}while(r); -S_8881:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7376);if(r)goto S_8881;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7376);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7036);}while(r); }else{ +S_8430:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ +if(qbevent){evnt(7040);if(r)goto S_8430;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7040);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7040);}while(r); +} +do{ +*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7042);}while(r); +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(7043);}while(r); +S_8436:; +if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(7044);if(r)goto S_8436;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7044);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7044);}while(r); +} +S_8440:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(7045);if(r)goto S_8440;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7045);}while(r); +} +S_8443:; +if ((-(*__LONG_B== 16 ))||new_error){ +if(qbevent){evnt(7046);if(r)goto S_8443;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7046);}while(r); +} +S_8446:; +if ((-(*__LONG_B== 32 ))||new_error){ +if(qbevent){evnt(7047);if(r)goto S_8446;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7047);}while(r); +} +S_8449:; +if ((-(*__LONG_B== 64 ))||new_error){ +if(qbevent){evnt(7048);if(r)goto S_8449;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7048);}while(r); +} +S_8452:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(7049);if(r)goto S_8452;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7049);}while(r); +} +S_8455:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(7050);if(r)goto S_8455;} +do{ +qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7050);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 29 ; +if (new_error) goto skip1009; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); +if (new_error) goto skip1009; +skip1009: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7051);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7053);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7054);}while(r); +S_8461:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7055);if(r)goto S_8461;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7055);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7056);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1010=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7057);}while(r); +S_8466:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7058);if(r)goto S_8466;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7058);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1011; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1011; +skip1011: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7059);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 29 ; +if (new_error) goto skip1012; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip1012; +skip1012: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7063);}while(r); +S_8472:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7064);if(r)goto S_8472;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7376);}while(r); +if(!qbevent)break;evnt(7064);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7064);}while(r); } do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7065);}while(r); +do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7377);}while(r); +if(!qbevent)break;evnt(7066);}while(r); } } } -S_8890:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5))))||new_error){ -if(qbevent){evnt(7384);if(r)goto S_8890;} -S_8891:; -if ((-(*__LONG_CONSOLE== 0 ))||new_error){ -if(qbevent){evnt(7385);if(r)goto S_8891;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("_ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7386);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7386);}while(r); -} -} -S_8896:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(7392);if(r)goto S_8896;} -S_8897:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||new_error){ -if(qbevent){evnt(7393);if(r)goto S_8897;} -S_8898:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1016= 2 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7394);if(r)goto S_8898;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7394);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7394);}while(r); -} -do{ -*__LONG_USEPOSITION= 0 ; -if(!qbevent)break;evnt(7397);}while(r); -do{ -*__LONG_PART= 1 ; -if(!qbevent)break;evnt(7398);}while(r); +S_8482:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(7083);if(r)goto S_8482;} +S_8483:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("TIMER",5)))))||new_error){ +if(qbevent){evnt(7084);if(r)goto S_8483;} do{ *__LONG_I= 3 ; -if(!qbevent)break;evnt(7399);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7400);}while(r); -do{ -qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7401);}while(r); -do{ -qbs_set(__STRING_POSITION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7402);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(7403);}while(r); -S_8909:; -do{ -if(qbevent){evnt(7404);if(r)goto S_8909;} -S_8910:; +if(!qbevent)break;evnt(7085);}while(r); +S_8485:; if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7406);if(r)goto S_8910;} -S_8911:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||new_error){ -if(qbevent){evnt(7407);if(r)goto S_8911;} +if(qbevent){evnt(7086);if(r)goto S_8485;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7407);}while(r); +if(!qbevent)break;evnt(7086);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7407);}while(r); -} -do{ -qbs_set(__STRING_EXPRESSION,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7408);}while(r); -do{ -goto dl_exit_1017; -if(!qbevent)break;evnt(7409);}while(r); +if(!qbevent)break;evnt(7086);}while(r); } do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7412);}while(r); -S_8919:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7413);if(r)goto S_8919;} +if(!qbevent)break;evnt(7087);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7087);}while(r); +S_8491:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7088);if(r)goto S_8491;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7088);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7088);}while(r); +} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Timer",5)),__STRING1_SP2),qbs_new_txt_len("(",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7089);}while(r); +S_8496:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7090);if(r)goto S_8496;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7090);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7090);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7091);}while(r); +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7092);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7093);}while(r); +do{ +qbs_set(__STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7094);}while(r); +S_8504:; +fornext_value1015=*__LONG_I; +fornext_finalvalue1015=*__LONG_N; +fornext_step1015= 1 ; +if (fornext_step1015<0) fornext_step_negative1015=1; else fornext_step_negative1015=0; +if (new_error) goto fornext_error1015; +goto fornext_entrylabel1015; +while(1){ +fornext_value1015=fornext_step1015+(*__LONG_I); +fornext_entrylabel1015: +*__LONG_I=fornext_value1015; +if (fornext_step_negative1015){ +if (fornext_value1015fornext_finalvalue1015) break; +} +fornext_error1015:; +if(qbevent){evnt(7095);if(r)goto S_8504;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7096);}while(r); +do{ +*__LONG_A=qbs_asc(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7097);}while(r); +S_8507:; +if ((-(*__LONG_A== 40 ))||new_error){ +if(qbevent){evnt(7098);if(r)goto S_8507;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7413);}while(r); +if(!qbevent)break;evnt(7098);}while(r); } -S_8922:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7414);if(r)goto S_8922;} +S_8510:; +if ((-(*__LONG_A== 41 ))||new_error){ +if(qbevent){evnt(7099);if(r)goto S_8510;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7414);}while(r); +if(!qbevent)break;evnt(7099);}while(r); } -S_8925:; +S_8513:; if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7416);if(r)goto S_8925;} -S_8926:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(7418);if(r)goto S_8926;} -S_8927:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1019=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(7419);if(r)goto S_8927;} +if(qbevent){evnt(7100);if(r)goto S_8513;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +goto LABEL_ONTIMGOTARG; +if(!qbevent)break;evnt(7100);}while(r); +} +S_8516:; +if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ +if(qbevent){evnt(7101);if(r)goto S_8516;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(7102);}while(r); +S_8518:; +if ((-(*__LONG_X> 1 ))||new_error){ +if(qbevent){evnt(7103);if(r)goto S_8518;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7419);}while(r); +if(!qbevent)break;evnt(7103);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7419);}while(r); +if(!qbevent)break;evnt(7103);}while(r); } +S_8522:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7104);if(r)goto S_8522;} do{ -qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7420);}while(r); -do{ -qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7421);}while(r); -do{ -*__LONG_PART= 3 ; -if(!qbevent)break;evnt(7422);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7422);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7422);}while(r); -do{ -goto LABEL_ASCGOTPART; -if(!qbevent)break;evnt(7422);}while(r); -} -S_8938:; -if ((-(*__LONG_PART== 2 ))||new_error){ -if(qbevent){evnt(7425);if(r)goto S_8938;} -S_8939:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1020=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(7426);if(r)goto S_8939;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7426);}while(r); +if(!qbevent)break;evnt(7104);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7426);}while(r); +if(!qbevent)break;evnt(7104);}while(r); } do{ -*__LONG_USEPOSITION= 1 ; -if(!qbevent)break;evnt(7427);}while(r); -do{ -qbs_set(__STRING_POSITION,__STRING_A3); +qbs_set(__STRING_E3,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7428);}while(r); +if(!qbevent)break;evnt(7105);}while(r); do{ -*__LONG_PART= 3 ; -if(!qbevent)break;evnt(7429);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7429);}while(r); +if(!qbevent)break;evnt(7106);}while(r); +}else{ +S_8529:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ +if(qbevent){evnt(7108);if(r)goto S_8529;} do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7429);}while(r); -do{ -goto LABEL_ASCGOTPART; -if(!qbevent)break;evnt(7429);}while(r); -} -} -S_8951:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(7436);if(r)goto S_8951;} -S_8952:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(7437);if(r)goto S_8952;} -do{ -qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7437);}while(r); -do{ -*__LONG_PART= 2 ; -if(!qbevent)break;evnt(7437);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7437);}while(r); -do{ -goto LABEL_ASCGOTPART; -if(!qbevent)break;evnt(7437);}while(r); -} -} -S_8959:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(7440);if(r)goto S_8959;} -do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7440);}while(r); +if(!qbevent)break;evnt(7108);}while(r); }else{ do{ -qbs_set(__STRING_A3,__STRING_A2); +qbs_set(__STRING_E2,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7440);}while(r); +if(!qbevent)break;evnt(7108);}while(r); } -LABEL_ASCGOTPART:; -if(qbevent){evnt(7441);r=0;} +} +fornext_continue_1014:; +} +fornext_exit_1014:; do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7442);}while(r); -dl_continue_1017:; -}while(1); -dl_exit_1017:; -S_8966:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||new_error){ -if(qbevent){evnt(7444);if(r)goto S_8966;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7444);}while(r); +if(!qbevent)break;evnt(7111);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7444);}while(r); -} +if(!qbevent)break;evnt(7111);}while(r); +LABEL_ONTIMGOTARG:; +if(qbevent){evnt(7112);r=0;} +S_8538:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7113);if(r)goto S_8538;} do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7447);}while(r); -S_8971:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7448);if(r)goto S_8971;} +if(!qbevent)break;evnt(7113);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7448);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ASC",3),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7449);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7451);}while(r); -S_8976:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7452);if(r)goto S_8976;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7452);}while(r); -} -S_8979:; -if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(7453);if(r)goto S_8979;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7453);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7453);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7454);}while(r); -S_8984:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7455);if(r)goto S_8984;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7455);}while(r); -} -S_8987:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(7459);if(r)goto S_8987;} -S_8988:; -if ((*__LONG_USEPOSITION)||new_error){ -if(qbevent){evnt(7460);if(r)goto S_8988;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("1",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7460);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7460);}while(r); +if(!qbevent)break;evnt(7113);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1017; +sub_file_print(tmp_fileno,qbs_new_txt_len("ontimer_setup(",14), 0 , 0 , 0 ); +if (new_error) goto skip1017; +skip1017: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7114);}while(r); +S_8543:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ +if(qbevent){evnt(7116);if(r)goto S_8543;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7117);}while(r); +S_8545:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7118);if(r)goto S_8545;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7118);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT),qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7119);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1019= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7120);}while(r); +S_8550:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7121);if(r)goto S_8550;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7121);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1020; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip1020; +skip1020: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7122);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1021; +sub_file_print(tmp_fileno,qbs_new_txt_len("0,",2), 0 , 0 , 0 ); +if (new_error) goto skip1021; +skip1021: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7124);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7125);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7128);}while(r); +S_8559:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7129);if(r)goto S_8559;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7129);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7130);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1022=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7131);}while(r); +S_8564:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7132);if(r)goto S_8564;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7132);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1023; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip1023; +skip1023: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7133);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7134);}while(r); +S_8569:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7135);if(r)goto S_8569;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7135);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7135);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7136);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7136);}while(r); +do{ +*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ; +if(!qbevent)break;evnt(7137);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1024; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONTIMERID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); if (new_error) goto skip1024; skip1024: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7462);}while(r); +if(!qbevent)break;evnt(7138);}while(r); +S_8577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(7140);if(r)goto S_8577;} +S_8578:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7141);if(r)goto S_8578;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7463);}while(r); -S_8995:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7464);if(r)goto S_8995;} +if(!qbevent)break;evnt(7141);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7464);}while(r); +if(!qbevent)break;evnt(7141);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7465);}while(r); +if(!qbevent)break;evnt(7142);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1025= 32 ))); +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7142);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1025; +sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); +if (new_error) goto skip1025; +skip1025: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7466);}while(r); -S_9000:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7467);if(r)goto S_9000;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7144);}while(r); +S_8585:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(7146);if(r)goto S_8585;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7146);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7467);}while(r); +if(!qbevent)break;evnt(7146);}while(r); } do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1026; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); -if (new_error) goto skip1026; -skip1026: +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1026= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7468);}while(r); +if(!qbevent)break;evnt(7148);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7149);}while(r); +LABEL_LABCHK60:; +if(qbevent){evnt(7150);r=0;} +S_8591:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(7151);if(r)goto S_8591;} +do{ +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(7152);}while(r); +S_8593:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(7153);if(r)goto S_8593;} +S_8594:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(7154);if(r)goto S_8594;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; +if(!qbevent)break;evnt(7154);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7155);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7156);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(7157);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(7158);}while(r); +}else{ +S_8602:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(7160);if(r)goto S_8602;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(7160);}while(r); +do{ +goto LABEL_LABCHK60; +if(!qbevent)break;evnt(7160);}while(r); +} +} +} +S_8608:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(7163);if(r)goto S_8608;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(7165);}while(r); +S_8610:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(7165);if(r)goto S_8610;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(7165);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elementslen){tqbs->chr[0]=tmp_long;}else{error(5);}",53), 0 , 0 , 1 ); -if (new_error) goto skip1027; -skip1027: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7469);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 25 ; if (new_error) goto skip1028; -sub_file_print(tmp_fileno,qbs_new_txt_len("}}",2), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(timer_event_id==",19),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1028; skip1028: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7470);}while(r); -}else{ +if(!qbevent)break;evnt(7177);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip1029; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); if (new_error) goto skip1029; skip1029: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7474);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7475);}while(r); -S_9009:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7476);if(r)goto S_9009;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7476);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7477);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1030= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7478);}while(r); -S_9014:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7479);if(r)goto S_9014;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7479);}while(r); -} +if(!qbevent)break;evnt(7179);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1030; +sub_file_print(tmp_fileno,qbs_new_txt_len("timer_event_occurred++;",23), 0 , 0 , 1 ); +if (new_error) goto skip1030; +skip1030: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7180);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; if (new_error) goto skip1031; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("timer_event_id=",15),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1031; skip1031: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7480);}while(r); +if(!qbevent)break;evnt(7181);}while(r); do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1032; +sub_file_print(tmp_fileno,qbs_new_txt_len("timer_event_occurred++;",23), 0 , 0 , 1 ); +if (new_error) goto skip1032; +skip1032: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7481);}while(r); -S_9019:; +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7182);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1033; +sub_file_print(tmp_fileno,qbs_new_txt_len("return_point[next_return_point++]=0;",36), 0 , 0 , 1 ); +if (new_error) goto skip1033; +skip1033: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7183);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1034; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); +if (new_error) goto skip1034; +skip1034: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7184);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1035; +sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); +if (new_error) goto skip1035; +skip1035: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7185);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1036; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip1036; +skip1036: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7186);}while(r); +S_8633:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7196);if(r)goto S_8633;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7196);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7196);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7197);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7198);}while(r); +}else{ +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7202);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7203);}while(r); +S_8643:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7482);if(r)goto S_9019;} +if(qbevent){evnt(7204);if(r)goto S_8643;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7482);}while(r); +if(!qbevent)break;evnt(7204);}while(r); +} +S_8646:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7205);if(r)goto S_8646;} +S_8647:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(7206);if(r)goto S_8647;} +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7206);}while(r); +do{ +goto dl_exit_1038; +if(!qbevent)break;evnt(7206);}while(r); +} +S_8651:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7207);if(r)goto S_8651;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7207);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7207);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7207);}while(r); +} +S_8657:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7208);if(r)goto S_8657;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7208);}while(r); +} +dl_continue_1038:; +} +dl_exit_1038:; +S_8661:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(7210);if(r)goto S_8661;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7210);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7210);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7212);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1039; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip1039; +skip1039: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7214);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1040; +sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); +if (new_error) goto skip1040; +skip1040: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7215);}while(r); +S_8668:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ +if(qbevent){evnt(7217);if(r)goto S_8668;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7217);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7217);}while(r); +} +S_8672:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7219);if(r)goto S_8672;} +S_8673:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ +if(qbevent){evnt(7221);if(r)goto S_8673;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7221);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7221);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1041; +sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); +if (new_error) goto skip1041; +skip1041: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7222);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1042; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip1042; +skip1042: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7223);}while(r); +}else{ +S_8680:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ +if(qbevent){evnt(7227);if(r)goto S_8680;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7227);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7227);}while(r); +} +do{ +*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7229);}while(r); +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(7230);}while(r); +S_8686:; +if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(7231);if(r)goto S_8686;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7231);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7231);}while(r); +} +S_8690:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(7232);if(r)goto S_8690;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7232);}while(r); +} +S_8693:; +if ((-(*__LONG_B== 16 ))||new_error){ +if(qbevent){evnt(7233);if(r)goto S_8693;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7233);}while(r); +} +S_8696:; +if ((-(*__LONG_B== 32 ))||new_error){ +if(qbevent){evnt(7234);if(r)goto S_8696;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7234);}while(r); +} +S_8699:; +if ((-(*__LONG_B== 64 ))||new_error){ +if(qbevent){evnt(7235);if(r)goto S_8699;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7235);}while(r); +} +S_8702:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(7236);if(r)goto S_8702;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7236);}while(r); +} +S_8705:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(7237);if(r)goto S_8705;} +do{ +qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7237);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1043; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); +if (new_error) goto skip1043; +skip1043: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7238);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7240);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7241);}while(r); +S_8711:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7242);if(r)goto S_8711;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7242);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7483);}while(r); +if(!qbevent)break;evnt(7243);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1032= 32 ))); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1044=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7484);}while(r); -S_9024:; +if(!qbevent)break;evnt(7244);}while(r); +S_8716:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7485);if(r)goto S_9024;} +if(qbevent){evnt(7245);if(r)goto S_8716;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7245);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1045; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1045; +skip1045: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7246);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 24 ; +if (new_error) goto skip1046; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip1046; +skip1046: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7250);}while(r); +S_8722:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7251);if(r)goto S_8722;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7251);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7251);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7252);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7253);}while(r); +} +} +} +S_8732:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(7262);if(r)goto S_8732;} +S_8733:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("KEY",3)))))||new_error){ +if(qbevent){evnt(7263);if(r)goto S_8733;} +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7264);}while(r); +S_8735:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7265);if(r)goto S_8735;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7265);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7265);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7266);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7266);}while(r); +S_8741:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7267);if(r)goto S_8741;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7267);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7267);}while(r); +} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Key",3)),__STRING1_SP2),qbs_new_txt_len("(",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7268);}while(r); +S_8746:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7269);if(r)goto S_8746;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7269);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7269);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7270);}while(r); +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7271);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7272);}while(r); +S_8753:; +fornext_value1049=*__LONG_I; +fornext_finalvalue1049=*__LONG_N; +fornext_step1049= 1 ; +if (fornext_step1049<0) fornext_step_negative1049=1; else fornext_step_negative1049=0; +if (new_error) goto fornext_error1049; +goto fornext_entrylabel1049; +while(1){ +fornext_value1049=fornext_step1049+(*__LONG_I); +fornext_entrylabel1049: +*__LONG_I=fornext_value1049; +if (fornext_step_negative1049){ +if (fornext_value1049fornext_finalvalue1049) break; +} +fornext_error1049:; +if(qbevent){evnt(7273);if(r)goto S_8753;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7274);}while(r); +do{ +*__LONG_A=qbs_asc(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7275);}while(r); +S_8756:; +if ((-(*__LONG_A== 40 ))||new_error){ +if(qbevent){evnt(7278);if(r)goto S_8756;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7278);}while(r); +} +S_8759:; +if ((-(*__LONG_A== 41 ))||new_error){ +if(qbevent){evnt(7279);if(r)goto S_8759;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7279);}while(r); +} +S_8762:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7280);if(r)goto S_8762;} +do{ +goto fornext_exit_1048; +if(!qbevent)break;evnt(7280);}while(r); +} +S_8765:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ +if(qbevent){evnt(7281);if(r)goto S_8765;} +do{ +qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7281);}while(r); +}else{ +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7281);}while(r); +} +fornext_continue_1048:; +} +fornext_exit_1048:; +S_8771:; +if ((-(*__LONG_I==(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(7283);if(r)goto S_8771;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7283);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7283);}while(r); +} +S_8775:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7284);if(r)goto S_8775;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7284);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7284);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7286);}while(r); +S_8780:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7287);if(r)goto S_8780;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7287);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7288);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1051=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7289);}while(r); +S_8785:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7290);if(r)goto S_8785;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7290);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1052; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("onkey_setup(",12),__STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip1052; +skip1052: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7291);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7293);}while(r); +S_8790:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7294);if(r)goto S_8790;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7294);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7294);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7295);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7295);}while(r); +do{ +*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ; +if(!qbevent)break;evnt(7296);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1053; +sub_file_print(tmp_fileno,qbs_add(FUNC_STR2(__LONG_ONKEYID),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip1053; +skip1053: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7297);}while(r); +S_8798:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(7299);if(r)goto S_8798;} +S_8799:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7300);if(r)goto S_8799;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7300);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7300);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7301);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7301);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1054; +sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); +if (new_error) goto skip1054; +skip1054: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7303);}while(r); +S_8806:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(7305);if(r)goto S_8806;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7305);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7305);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1055= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7307);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7308);}while(r); +LABEL_LABCHK61:; +if(qbevent){evnt(7309);r=0;} +S_8812:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(7310);if(r)goto S_8812;} +do{ +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(7311);}while(r); +S_8814:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(7312);if(r)goto S_8814;} +S_8815:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(7313);if(r)goto S_8815;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; +if(!qbevent)break;evnt(7313);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7314);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7315);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(7316);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(7317);}while(r); +}else{ +S_8823:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(7319);if(r)goto S_8823;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(7319);}while(r); +do{ +goto LABEL_LABCHK61; +if(!qbevent)break;evnt(7319);}while(r); +} +} +} +S_8829:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(7322);if(r)goto S_8829;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(7324);}while(r); +S_8831:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(7324);if(r)goto S_8831;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(7324);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); +if (new_error) goto skip1063; +skip1063: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7343);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1064; +sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); +if (new_error) goto skip1064; +skip1064: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7344);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1065; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip1065; +skip1065: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7345);}while(r); +S_8854:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7347);if(r)goto S_8854;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7347);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7347);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7348);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7349);}while(r); +}else{ +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7353);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7354);}while(r); +S_8864:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7355);if(r)goto S_8864;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7355);}while(r); +} +S_8867:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7356);if(r)goto S_8867;} +S_8868:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(7357);if(r)goto S_8868;} +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7357);}while(r); +do{ +goto dl_exit_1067; +if(!qbevent)break;evnt(7357);}while(r); +} +S_8872:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7358);if(r)goto S_8872;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7358);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7358);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7358);}while(r); +} +S_8878:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7359);if(r)goto S_8878;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7359);}while(r); +} +dl_continue_1067:; +} +dl_exit_1067:; +S_8882:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(7361);if(r)goto S_8882;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7361);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7361);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7363);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1068; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip1068; +skip1068: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7365);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1069; +sub_file_print(tmp_fileno,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1)), 0 , 0 , 0 ); +if (new_error) goto skip1069; +skip1069: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7366);}while(r); +S_8889:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ +if(qbevent){evnt(7368);if(r)goto S_8889;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB requires more than one argument",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7368);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7368);}while(r); +} +S_8893:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7370);if(r)goto S_8893;} +S_8894:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ +if(qbevent){evnt(7372);if(r)goto S_8894;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7372);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7372);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1070; +sub_file_print(tmp_fileno,qbs_new_txt_len("0);",3), 0 , 0 , 1 ); +if (new_error) goto skip1070; +skip1070: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7373);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1071; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip1071; +skip1071: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7374);}while(r); +}else{ +S_8901:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ +if(qbevent){evnt(7378);if(r)goto S_8901;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7378);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7378);}while(r); +} +do{ +*__LONG_T=string2l(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7380);}while(r); +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(7381);}while(r); +S_8907:; +if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(7382);if(r)goto S_8907;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Only SUB arguments of integer-type allowed",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7382);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7382);}while(r); +} +S_8911:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(7383);if(r)goto S_8911;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7383);}while(r); +} +S_8914:; +if ((-(*__LONG_B== 16 ))||new_error){ +if(qbevent){evnt(7384);if(r)goto S_8914;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7384);}while(r); +} +S_8917:; +if ((-(*__LONG_B== 32 ))||new_error){ +if(qbevent){evnt(7385);if(r)goto S_8917;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7385);}while(r); +} +S_8920:; +if ((-(*__LONG_B== 64 ))||new_error){ +if(qbevent){evnt(7386);if(r)goto S_8920;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7386);}while(r); +} +S_8923:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(7387);if(r)goto S_8923;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7387);}while(r); +} +S_8926:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(7388);if(r)goto S_8926;} +do{ +qbs_set(__STRING_CT,qbs_add(qbs_new_txt_len("u",1),__STRING_CT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7388);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1072; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING_CT),qbs_new_txt_len("*)&i64);",8)), 0 , 0 , 1 ); +if (new_error) goto skip1072; +skip1072: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7389);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,__LONG_I,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7391);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7392);}while(r); +S_8932:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7393);if(r)goto S_8932;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7393);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7394);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1073=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7395);}while(r); +S_8937:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7396);if(r)goto S_8937;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7396);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1074; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1074; +skip1074: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7397);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 27 ; +if (new_error) goto skip1075; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip1075; +skip1075: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7401);}while(r); +S_8943:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7402);if(r)goto S_8943;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7402);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7402);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7403);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7404);}while(r); +} +} +} +S_8953:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(7437);if(r)goto S_8953;} +S_8954:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||new_error){ +if(qbevent){evnt(7438);if(r)goto S_8954;} +S_8955:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(7439);if(r)goto S_8955;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7439);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7439);}while(r); +} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(7440);}while(r); +S_8960:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(7441);if(r)goto S_8960;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SHARED must be used within a SUB/FUNCTION",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7441);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7441);}while(r); +} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Shared",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7445);}while(r); +LABEL_SUBFUNCSHR:; +if(qbevent){evnt(7446);r=0;} +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7449);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7449);}while(r); +S_8967:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7451);if(r)goto S_8967;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED variable-name or SHARED AS type variable-list",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7451);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7451);}while(r); +} +S_8971:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(7453);if(r)goto S_8971;} +do{ +*__LONG_NEWSHAREDSYNTAX= 0 ; +if(!qbevent)break;evnt(7455);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7456);}while(r); +S_8974:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7457);if(r)goto S_8974;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7457);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7458);}while(r); +do{ +*__LONG_A= 0 ; +if(!qbevent)break;evnt(7461);}while(r); +S_8979:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7462);if(r)goto S_8979;} +S_8980:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1077=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7463);if(r)goto S_8980;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7463);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7463);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(7464);}while(r); +do{ +*__LONG_A= 1 ; +if(!qbevent)break;evnt(7465);}while(r); +do{ +qbs_set(__STRING_L2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L2,__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7466);}while(r); +} +do{ +*__LONG_METHOD= 1 ; +if(!qbevent)break;evnt(7469);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7472);}while(r); +do{ +qbs_set(__STRING_TS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7473);}while(r); +do{ +qbs_set(__STRING_T3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7474);}while(r); +S_8992:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(7475);if(r)goto S_8992;} +do{ +qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7476);}while(r); +LABEL_GETSHRTYP:; +if(qbevent){evnt(7477);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7478);}while(r); +do{ +qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7479);}while(r); +S_8996:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(7480);if(r)goto S_8996;} +S_8997:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7481);if(r)goto S_8997;} +do{ +qbs_set(__STRING_T,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7481);}while(r); +}else{ +do{ +qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7481);}while(r); +} +S_9002:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7482);if(r)goto S_9002;} +do{ +qbs_set(__STRING_T3,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7482);}while(r); +}else{ +do{ +qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7482);}while(r); +} +do{ +goto LABEL_GETSHRTYP; +if(!qbevent)break;evnt(7483);}while(r); +} +S_9009:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7485);if(r)goto S_9009;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7485);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(7485);}while(r); } do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1033; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); -if (new_error) goto skip1033; -skip1033: +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7486);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1034; -sub_file_print(tmp_fileno,qbs_new_txt_len("if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}",94), 0 , 0 , 1 ); -if (new_error) goto skip1034; -skip1034: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(7487);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1035; -sub_file_print(tmp_fileno,qbs_new_txt_len("}}}",3), 0 , 0 , 1 ); -if (new_error) goto skip1035; -skip1035: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7488);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7491);}while(r); -S_9032:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7491);if(r)goto S_9032;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7491);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7491);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7492);}while(r); -} -} -S_9040:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(7500);if(r)goto S_9040;} -S_9041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||new_error){ -if(qbevent){evnt(7501);if(r)goto S_9041;} -S_9042:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1037= 2 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7502);if(r)goto S_9042;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7502);}while(r); +S_9014:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7488);if(r)goto S_9014;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7502);}while(r); +if(!qbevent)break;evnt(7488);}while(r); +} +S_9017:; +if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7489);if(r)goto S_9017;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7489);}while(r); +} +S_9020:; +if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7490);if(r)goto S_9020;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7490);}while(r); +} +S_9023:; +if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7491);if(r)goto S_9023;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7491);}while(r); } do{ -qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0)); +*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(7492);}while(r); +do{ +*__LONG_METHOD= 0 ; +if(!qbevent)break;evnt(7493);}while(r); +S_9028:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(7494);if(r)goto S_9028;} +do{ +qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7495);}while(r); +do{ +qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7496);}while(r); +}else{ +do{ +qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7498);}while(r); +S_9033:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(7499);if(r)goto S_9033;} +do{ +qbs_set(__STRING_T3,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7500);}while(r); +} +do{ +qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7502);}while(r); +} +S_9038:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7504);if(r)goto S_9038;} +do{ +goto LABEL_ERRMES; if(!qbevent)break;evnt(7504);}while(r); +} +} +S_9042:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||new_error){ +if(qbevent){evnt(7508);if(r)goto S_9042;} do{ -*__LONG_PART= 1 ; -if(!qbevent)break;evnt(7505);}while(r); -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7506);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7507);}while(r); -do{ -qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected symbol or AS type after variable name",46)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7508);}while(r); do{ -qbs_set(__STRING_START,qbs_new_txt_len("",0)); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7508);}while(r); +} +S_9046:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_S,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_T,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(7511);if(r)goto S_9046;} +S_9047:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(7512);if(r)goto S_9047;} +do{ +*__LONG_V= 27 ; +if(!qbevent)break;evnt(7512);}while(r); +}else{ +do{ +*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7509);}while(r); +if(!qbevent)break;evnt(7512);}while(r); +} do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(7510);}while(r); -S_9053:; -do{ -if(qbevent){evnt(7511);if(r)goto S_9053;} -S_9054:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7512);if(r)goto S_9054;} -S_9055:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(7513);if(r)goto S_9055;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22)); +qbs_set(__STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(7513);}while(r); +} +LABEL_NORMALSHAREDBLOCK:; +if(qbevent){evnt(7516);r=0;} +do{ +qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7518);}while(r); +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7519);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE= 18 ; +if(!qbevent)break;evnt(7520);}while(r); +do{ +sub_close( 13 ,1); +if(!qbevent)break;evnt(7521);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7521);}while(r); +do{ +sub_close( 19 ,1); +if(!qbevent)break;evnt(7522);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7522);}while(r); +do{ +qbs_set(__STRING_N2,qbs_add(qbs_add(__STRING_N,__STRING_S),__STRING_TS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7525);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7526);}while(r); +S_9063:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7527);if(r)goto S_9063;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7513);}while(r); -} -do{ -qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7514);}while(r); -do{ -goto dl_exit_1038; -if(!qbevent)break;evnt(7515);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7517);}while(r); -S_9063:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7518);if(r)goto S_9063;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7518);}while(r); +if(!qbevent)break;evnt(7527);}while(r); } S_9066:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7519);if(r)goto S_9066;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7519);}while(r); -} +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7528);if(r)goto S_9066;} +S_9067:; +if ((*__LONG_A)||new_error){ +if(qbevent){evnt(7529);if(r)goto S_9067;} +S_9068:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(7532);if(r)goto S_9068;} S_9069:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7520);if(r)goto S_9069;} -S_9070:; -if ((-(*__LONG_PART== 2 ))||new_error){ -if(qbevent){evnt(7521);if(r)goto S_9070;} -S_9071:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1039=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(7522);if(r)goto S_9071;} +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ +if(qbevent){evnt(7533);if(r)goto S_9069;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7522);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7522);}while(r); +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7533);}while(r); } do{ -qbs_set(__STRING_START,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7523);}while(r); +*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(7534);}while(r); do{ -*__LONG_PART= 4 ; -if(!qbevent)break;evnt(7523);}while(r); +*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(7534);}while(r); +S_9074:; +if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7535);if(r)goto S_9074;} do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7523);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7523);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(7523);}while(r); +*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7535);}while(r); } -S_9081:; -if ((-(*__LONG_PART== 3 ))||new_error){ -if(qbevent){evnt(7525);if(r)goto S_9081;} -S_9082:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1040=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(7526);if(r)goto S_9082;} +S_9077:; +if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7536);if(r)goto S_9077;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7526);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7526);}while(r); +*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7536);}while(r); } -S_9086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7527);if(r)goto S_9086;} +S_9080:; +if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7537);if(r)goto S_9080;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Omit , before ) if omitting length in MID$ statement",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7527);}while(r); +*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7537);}while(r); +} +S_9083:; +if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ +if(qbevent){evnt(7538);if(r)goto S_9083;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7527);}while(r); +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7538);}while(r); +} +} +}else{ +S_9088:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(7544);if(r)goto S_9088;} +S_9089:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ +if(qbevent){evnt(7545);if(r)goto S_9089;} +do{ +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7545);}while(r); } do{ -qbs_set(__STRING_LENGTH,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7528);}while(r); +*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(7546);}while(r); do{ -*__LONG_PART= 4 ; -if(!qbevent)break;evnt(7528);}while(r); +*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(7546);}while(r); +S_9094:; +if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7547);if(r)goto S_9094;} do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7528);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7528);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(7528);}while(r); -} +*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7547);}while(r); } S_9097:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(7531);if(r)goto S_9097;} -S_9098:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(7532);if(r)goto S_9098;} +if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7548);if(r)goto S_9097;} do{ -qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7532);}while(r); -do{ -*__LONG_PART= 2 ; -if(!qbevent)break;evnt(7532);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7532);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(7532);}while(r); -} -S_9104:; -if ((-(*__LONG_PART== 2 ))||new_error){ -if(qbevent){evnt(7533);if(r)goto S_9104;} -do{ -qbs_set(__STRING_START,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7533);}while(r); -do{ -*__LONG_PART= 3 ; -if(!qbevent)break;evnt(7533);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7533);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(7533);}while(r); -} -} -S_9111:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(7535);if(r)goto S_9111;} -do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7535);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7535);}while(r); -} -LABEL_MIDGOTPART:; -if(qbevent){evnt(7536);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7537);}while(r); -dl_continue_1038:; -}while(1); -dl_exit_1038:; -S_9118:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7539);if(r)goto S_9118;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7539);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7539);}while(r); -} -S_9122:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7540);if(r)goto S_9122;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7540);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7540);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7542);}while(r); -S_9127:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7543);if(r)goto S_9127;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7543);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("MID$",4),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7544);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7545);}while(r); -S_9132:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7546);if(r)goto S_9132;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7546);}while(r); -} -S_9135:; -if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(7547);if(r)goto S_9135;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("MID$ expects a string variable/array-element as its first argument",66)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7547);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7547);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; if(!qbevent)break;evnt(7548);}while(r); -S_9140:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7549);if(r)goto S_9140;} +} +S_9100:; +if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7549);if(r)goto S_9100;} do{ -goto LABEL_ERRMES; +*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; if(!qbevent)break;evnt(7549);}while(r); } -do{ -qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7551);}while(r); -S_9144:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7552);if(r)goto S_9144;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7552);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7553);}while(r); -do{ -qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1042= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7554);}while(r); -do{ -qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7556);}while(r); -S_9150:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7557);if(r)goto S_9150;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7557);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7558);}while(r); -do{ -qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7559);}while(r); -S_9155:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7560);if(r)goto S_9155;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7560);}while(r); -} -S_9158:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||new_error){ -if(qbevent){evnt(7562);if(r)goto S_9158;} -do{ -qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7563);}while(r); -S_9160:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7564);if(r)goto S_9160;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7564);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7565);}while(r); -do{ -qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1044= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7566);}while(r); -S_9165:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7567);if(r)goto S_9165;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7567);}while(r); -} +S_9103:; +if (( 0 )||new_error){ +if(qbevent){evnt(7551);if(r)goto S_9103;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1045; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",",1)),__STRING_LENGTH),qbs_new_txt_len(",",1)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1045; -skip1045: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7568);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1046; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",0,",3)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1046; -skip1046: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7570);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_L2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7573);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7574);}while(r); -S_9174:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7574);if(r)goto S_9174;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7574);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7574);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7575);}while(r); -} -} -S_9182:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(7580);if(r)goto S_9182;} -S_9183:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||new_error){ -if(qbevent){evnt(7581);if(r)goto S_9183;} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(7582);}while(r); -do{ -qbs_set(__STRING_L,qbs_new_txt_len("ERASE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7583);}while(r); -LABEL_ERASENEXTARRAY:; -if(qbevent){evnt(7584);r=0;} -do{ -qbs_set(__STRING_VAR,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7585);}while(r); -do{ -qbs_set(__STRING_X,__STRING_VAR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7586);}while(r); -do{ -qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7586);}while(r); -S_9189:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7587);if(r)goto S_9189;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7587);}while(r); -} -S_9192:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||new_error){ -if(qbevent){evnt(7589);if(r)goto S_9192;} -S_9193:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7590);if(r)goto S_9193;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7590);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_LS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7591);}while(r); -LABEL_CLEARERASE:; -if(qbevent){evnt(7593);r=0;} -do{ -qbs_set(__STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7594);}while(r); -do{ -qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1048=(*(int32*)(((char*)__UDT_ID)+(512))& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7595);}while(r); -S_9199:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(7596);if(r)goto S_9199;} -do{ -qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7596);}while(r); -} -S_9202:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(7597);if(r)goto S_9202;} -do{ -qbs_set(__STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(&(pass1049=(*(int32*)(((char*)__UDT_ID)+(512))& 511 ))),qbs_new_txt_len("/8+1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7597);}while(r); -} -S_9205:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(7598);if(r)goto S_9205;} -do{ -qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1050=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*(int32*)(((char*)__UDT_ID)+(512))& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7599);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1051; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&1){",7)), 0 , 0 , 1 ); -if (new_error) goto skip1051; -skip1051: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7601);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1052; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&2){",7)), 0 , 0 , 1 ); -if (new_error) goto skip1052; -skip1052: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7602);}while(r); -S_9210:; -if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(7603);if(r)goto S_9210;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1053; -sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=",9), 0 , 0 , 0 ); -if (new_error) goto skip1053; -skip1053: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7604);}while(r); -S_9212:; -fornext_value1055= 1 ; -fornext_finalvalue1055=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1055= 1 ; -if (fornext_step1055<0) fornext_step_negative1055=1; else fornext_step_negative1055=0; -if (new_error) goto fornext_error1055; -goto fornext_entrylabel1055; -while(1){ -fornext_value1055=fornext_step1055+(*__LONG_I2); -fornext_entrylabel1055: -*__LONG_I2=fornext_value1055; -if (fornext_step_negative1055){ -if (fornext_value1055fornext_finalvalue1055) break; -} -fornext_error1055:; -if(qbevent){evnt(7605);if(r)goto S_9212;} -S_9213:; -if ((-(*__LONG_I2!= 1 ))||new_error){ -if(qbevent){evnt(7606);if(r)goto S_9213;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1056; -sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); -if (new_error) goto skip1056; -skip1056: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7606);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1057; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1058=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); -if (new_error) goto skip1057; -skip1057: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7607);}while(r); -fornext_continue_1054:; -} -fornext_exit_1054:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1059; -sub_file_print(tmp_fileno,qbs_new_txt_len(";",1), 0 , 0 , 1 ); -if (new_error) goto skip1059; -skip1059: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7609);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1060; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); -if (new_error) goto skip1060; -skip1060: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7610);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1061; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]))->len=0;",25)), 0 , 0 , 1 ); -if (new_error) goto skip1061; -skip1061: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7611);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1062; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1062; -skip1062: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7612);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1063; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_N),qbs_new_txt_len("[0]),0,",7)), 0 , 0 , 0 ); -if (new_error) goto skip1063; -skip1063: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7616);}while(r); -S_9224:; -fornext_value1065= 1 ; -fornext_finalvalue1065=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1065= 1 ; -if (fornext_step1065<0) fornext_step_negative1065=1; else fornext_step_negative1065=0; -if (new_error) goto fornext_error1065; -goto fornext_entrylabel1065; -while(1){ -fornext_value1065=fornext_step1065+(*__LONG_I2); -fornext_entrylabel1065: -*__LONG_I2=fornext_value1065; -if (fornext_step_negative1065){ -if (fornext_value1065fornext_finalvalue1065) break; -} -fornext_error1065:; -if(qbevent){evnt(7617);if(r)goto S_9224;} -S_9225:; -if ((-(*__LONG_I2!= 1 ))||new_error){ -if(qbevent){evnt(7618);if(r)goto S_9225;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1066; -sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); -if (new_error) goto skip1066; -skip1066: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7618);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1067; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1068=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); -if (new_error) goto skip1067; -skip1067: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7619);}while(r); -fornext_continue_1064:; -} -fornext_exit_1064:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1069; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1069; -skip1069: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7621);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1070; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip1070; -skip1070: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7623);}while(r); -S_9233:; -if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(7625);if(r)goto S_9233;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1071; -sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=",9), 0 , 0 , 0 ); -if (new_error) goto skip1071; -skip1071: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7627);}while(r); -S_9235:; -fornext_value1073= 1 ; -fornext_finalvalue1073=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1073= 1 ; -if (fornext_step1073<0) fornext_step_negative1073=1; else fornext_step_negative1073=0; -if (new_error) goto fornext_error1073; -goto fornext_entrylabel1073; -while(1){ -fornext_value1073=fornext_step1073+(*__LONG_I2); -fornext_entrylabel1073: -*__LONG_I2=fornext_value1073; -if (fornext_step_negative1073){ -if (fornext_value1073fornext_finalvalue1073) break; -} -fornext_error1073:; -if(qbevent){evnt(7628);if(r)goto S_9235;} -S_9236:; -if ((-(*__LONG_I2!= 1 ))||new_error){ -if(qbevent){evnt(7629);if(r)goto S_9236;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1074; -sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); -if (new_error) goto skip1074; -skip1074: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7629);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1075; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1076=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); -if (new_error) goto skip1075; -skip1075: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7630);}while(r); -fornext_continue_1072:; -} -fornext_exit_1072:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1077; -sub_file_print(tmp_fileno,qbs_new_txt_len(";",1), 0 , 0 , 1 ); -if (new_error) goto skip1077; -skip1077: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7632);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1078; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); -if (new_error) goto skip1078; -skip1078: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7633);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1079; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free((qbs*)(((uint64*)(",27),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]));",18)), 0 , 0 , 1 ); -if (new_error) goto skip1079; -skip1079: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7634);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1080; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1080; -skip1080: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7635);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1081; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); -if (new_error) goto skip1081; -skip1081: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7637);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1082; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&4){",7)), 0 , 0 , 1 ); -if (new_error) goto skip1082; -skip1082: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7640);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1083; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0 , 0 , 0 ); +if (new_error) goto skip1083; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1 , 0 , 0 ); +if (new_error) goto skip1083; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1 , 1 , 0 ); +if (new_error) goto skip1083; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1 , 0 , 0 ); +if (new_error) goto skip1083; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1 , 0 , 1 ); if (new_error) goto skip1083; skip1083: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7641);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1084; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip1084; -skip1084: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7642);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1085; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); -if (new_error) goto skip1085; -skip1085: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7643);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1086; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1086; -skip1086: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7644);}while(r); +if(!qbevent)break;evnt(7551);}while(r); } +S_9106:; +if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ +if(qbevent){evnt(7553);if(r)goto S_9106;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1087; -sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)), 0 , 0 , 1 ); -if (new_error) goto skip1087; -skip1087: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7647);}while(r); -S_9254:; -fornext_value1089= 1 ; -fornext_finalvalue1089=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1089= 1 ; -if (fornext_step1089<0) fornext_step_negative1089=1; else fornext_step_negative1089=0; -if (new_error) goto fornext_error1089; -goto fornext_entrylabel1089; -while(1){ -fornext_value1089=fornext_step1089+(*__LONG_I2); -fornext_entrylabel1089: -*__LONG_I2=fornext_value1089; -if (fornext_step_negative1089){ -if (fornext_value1089fornext_finalvalue1089) break; +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7553);}while(r); } -fornext_error1089:; -if(qbevent){evnt(7649);if(r)goto S_9254;} -do{ -*__LONG_B=*__LONG_I2* 4 ; -if(!qbevent)break;evnt(7650);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1090; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(__LONG_B)),qbs_new_txt_len("]=2147483647;",13)), 0 , 0 , 1 ); -if (new_error) goto skip1090; -skip1090: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7651);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1091; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1092=*__LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); -if (new_error) goto skip1091; -skip1091: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7652);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1093; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1094=*__LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); -if (new_error) goto skip1093; -skip1093: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7653);}while(r); -fornext_continue_1088:; } -fornext_exit_1088:; -S_9260:; -if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(7655);if(r)goto S_9260;} +} +S_9111:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7558);if(r)goto S_9111;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1095; -sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29)), 0 , 0 , 1 ); -if (new_error) goto skip1095; -skip1095: +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7558);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_N2); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7656);}while(r); +if(!qbevent)break;evnt(7558);}while(r); }else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1096; -sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)), 0 , 0 , 1 ); -if (new_error) goto skip1096; -skip1096: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7658);}while(r); +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7558);}while(r); } -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1097; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1097; -skip1097: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7660);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1098; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1098; -skip1098: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7661);}while(r); -S_9267:; -if ((-(*__LONG_CLEARERASERETURN== 1 ))||new_error){ -if(qbevent){evnt(7662);if(r)goto S_9267;} -do{ -*__LONG_CLEARERASERETURN= 0 ; -if(!qbevent)break;evnt(7662);}while(r); -do{ -goto LABEL_CLEARERASERETURNED; -if(!qbevent)break;evnt(7662);}while(r); -} -do{ -goto LABEL_ERASEDARRAY; -if(!qbevent)break;evnt(7663);}while(r); -} -S_9273:; +S_9117:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7665);if(r)goto S_9273;} +if(qbevent){evnt(7559);if(r)goto S_9117;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7665);}while(r); +if(!qbevent)break;evnt(7559);}while(r); +} +dl_continue_1080:; +} +dl_exit_1080:; +S_9121:; +if ((*__LONG_A)||new_error){ +if(qbevent){evnt(7562);if(r)goto S_9121;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Array '",7),__STRING_N),qbs_new_txt_len("' not defined",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7562);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7562);}while(r); +} +S_9125:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ +if(qbevent){evnt(7564);if(r)goto S_9125;} +do{ +qbs_set(__STRING_TYP,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7564);}while(r); +}else{ +do{ +qbs_set(__STRING_TYP,__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7564);}while(r); +} +S_9130:; +if ((*__BYTE_OPTIONEXPLICIT)||new_error){ +if(qbevent){evnt(7565);if(r)goto S_9130;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),__STRING_N),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),qbs_new_txt_len(") not defined",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7565);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7565);}while(r); } do{ -qbs_set(__STRING_A,qbs_new_txt_len("Undefined array passed to ERASE",31)); +*__BYTE_BYPASSNEXTVARIABLE= -1 ; +if(!qbevent)break;evnt(7566);}while(r); +do{ +*__LONG_RETVAL=FUNC_DIM2(__STRING_N,__STRING_TYP,__LONG_METHOD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7666);}while(r); +if(!qbevent)break;evnt(7567);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass1085= 0 ),&(pass1086= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7568);}while(r); +S_9137:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7569);if(r)goto S_9137;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7666);}while(r); -LABEL_ERASEDARRAY:; -if(qbevent){evnt(7668);r=0;} -S_9278:; -if ((-(*__LONG_I<*__LONG_N))||new_error){ -if(qbevent){evnt(7669);if(r)goto S_9278;} +if(!qbevent)break;evnt(7569);}while(r); +} +LABEL_SHRFOUND:; +if(qbevent){evnt(7572);r=0;} +S_9140:; +if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||new_error){ +if(qbevent){evnt(7573);if(r)goto S_9140;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7574);}while(r); +}else{ +S_9143:; +if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||new_error){ +if(qbevent){evnt(7576);if(r)goto S_9143;} +do{ +*__LONG_SHAREDASLAYOUTADDED= -1 ; +if(!qbevent)break;evnt(7577);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_L2),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7578);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7580);}while(r); +} +} +do{ +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))| 2 ; +if(!qbevent)break;evnt(7584);}while(r); +do{ +*__LONG_LMAY=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7587);}while(r); +do{ +*__LONG_LMUST=((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7587);}while(r); +S_9153:; +if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||new_error){ +if(qbevent){evnt(7588);if(r)goto S_9153;} +S_9154:; +if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||new_error){ +if(qbevent){evnt(7589);if(r)goto S_9154;} +do{ +*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ; +if(!qbevent)break;evnt(7590);}while(r); +do{ +tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID; +if(!qbevent)break;evnt(7591);}while(r); +do{ +swap_string(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1),qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1)); +if(!qbevent)break;evnt(7592);}while(r); +} +} +do{ +qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7597);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE= 13 ; +if(!qbevent)break;evnt(7598);}while(r); +do{ +sub_close( 13 ,1); +if(!qbevent)break;evnt(7599);}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 5 ,NULL,NULL, 13 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7599);}while(r); +do{ +sub_close( 19 ,1); +if(!qbevent)break;evnt(7600);}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("free",4)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)), 5 ,NULL,NULL, 19 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7600);}while(r); +S_9166:; +if ((*__LONG_NEWSHAREDSYNTAX)||new_error){ +if(qbevent){evnt(7602);if(r)goto S_9166;} +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(7602);}while(r); +} +S_9169:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(7604);if(r)goto S_9169;} do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7670);}while(r); -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7670);}while(r); -S_9281:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(7670);if(r)goto S_9281;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7670);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7670);}while(r); -} +if(!qbevent)break;evnt(7604);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7671);}while(r); +if(!qbevent)break;evnt(7604);}while(r); do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7672);}while(r); -S_9287:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7672);if(r)goto S_9287;} +goto LABEL_SUBFUNCSHR; +if(!qbevent)break;evnt(7604);}while(r); +} +S_9174:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7605);if(r)goto S_9174;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7672);}while(r); +if(!qbevent)break;evnt(7605);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7672);}while(r); -} -do{ -goto LABEL_ERASENEXTARRAY; -if(!qbevent)break;evnt(7673);}while(r); +if(!qbevent)break;evnt(7605);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7676);}while(r); -S_9294:; +if(!qbevent)break;evnt(7607);}while(r); +S_9179:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7676);if(r)goto S_9294;} +if(qbevent){evnt(7607);if(r)goto S_9179;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7676);}while(r); +if(!qbevent)break;evnt(7607);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7676);}while(r); +if(!qbevent)break;evnt(7607);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7677);}while(r); -} -} -S_9302:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(7683);if(r)goto S_9302;} +if(!qbevent)break;evnt(7608);}while(r); +}else{ do{ -*__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(7684);}while(r); +*__LONG_I=*__LONG_I- 1 ; +if(!qbevent)break;evnt(7611);}while(r); do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(7684);}while(r); -do{ -*__LONG_COMMONOPTION= 0 ; -if(!qbevent)break;evnt(7684);}while(r); -S_9306:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||new_error){ -if(qbevent){evnt(7685);if(r)goto S_9306;} -do{ -*__INTEGER_DIMOPTION= 1 ; -if(!qbevent)break;evnt(7685);}while(r); -} -S_9309:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||new_error){ -if(qbevent){evnt(7686);if(r)goto S_9309;} -do{ -*__INTEGER_DIMOPTION= 2 ; -if(!qbevent)break;evnt(7687);}while(r); -do{ -*__INTEGER_REDIMOPTION= 1 ; -if(!qbevent)break;evnt(7687);}while(r); -S_9312:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||new_error){ -if(qbevent){evnt(7688);if(r)goto S_9312;} -do{ -*__INTEGER_REDIMOPTION= 2 ; -if(!qbevent)break;evnt(7689);}while(r); -S_9314:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(7690);if(r)goto S_9314;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected REDIM _PRESERVE ...",28)); +qbs_set(__STRING_T,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7690);}while(r); +if(!qbevent)break;evnt(7614);}while(r); +do{ +qbs_set(__STRING_TS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7615);}while(r); +do{ +qbs_set(__STRING_T3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7616);}while(r); +do{ +qbs_set(__STRING_N,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7617);}while(r); +do{ +qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7618);}while(r); +do{ +qbs_set(__STRING_L2,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7619);}while(r); +do{ +*__LONG_SHAREDASLAYOUTADDED= 0 ; +if(!qbevent)break;evnt(7620);}while(r); +LABEL_GETSHRTYP2:; +if(qbevent){evnt(7621);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7622);}while(r); +do{ +qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7623);}while(r); +S_9196:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("(",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(7624);if(r)goto S_9196;} +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7626);}while(r); +S_9198:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ +if(qbevent){evnt(7628);if(r)goto S_9198;} +S_9199:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7629);if(r)goto S_9199;} +do{ +qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7629);}while(r); +}else{ +do{ +qbs_set(__STRING_T,qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" ",1)),__STRING_PREVIOUSELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7629);}while(r); +} +S_9204:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7630);if(r)goto S_9204;} +do{ +qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7630);}while(r); +}else{ +do{ +qbs_set(__STRING_T3,qbs_add(qbs_add(__STRING_T3,__STRING1_SP),__STRING_PREVIOUSELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7630);}while(r); +} +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7632);}while(r); +do{ +goto LABEL_GETSHRTYP2; +if(!qbevent)break;evnt(7633);}while(r); +} +S_9213:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7635);if(r)goto S_9213;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED AS type variable-list or SHARED variable-name AS type",69)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7635);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7690);}while(r); +if(!qbevent)break;evnt(7635);}while(r); } -} -} -S_9320:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(7693);if(r)goto S_9320;} do{ -*__INTEGER_DIMOPTION= 3 ; -if(!qbevent)break;evnt(7693);}while(r); +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7637);}while(r); +S_9218:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7638);if(r)goto S_9218;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7638);}while(r); } -S_9323:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||new_error){ -if(qbevent){evnt(7694);if(r)goto S_9323;} +S_9221:; +if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7639);if(r)goto S_9221;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7639);}while(r); +} +S_9224:; +if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7640);if(r)goto S_9224;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7640);}while(r); +} +S_9227:; +if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7641);if(r)goto S_9227;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7641);}while(r); +} +do{ +*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(7642);}while(r); +do{ +*__LONG_METHOD= 0 ; +if(!qbevent)break;evnt(7643);}while(r); +S_9232:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(7644);if(r)goto S_9232;} +do{ +qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7645);}while(r); +do{ +qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),FUNC_SCASE2(__STRING_T3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7646);}while(r); +}else{ +do{ +qbs_set(__STRING_T3,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7648);}while(r); +S_9237:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(7649);if(r)goto S_9237;} +do{ +qbs_set(__STRING_T3,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7650);}while(r); +} +do{ +qbs_set(__STRING_L2,qbs_add(qbs_add(__STRING_L2,__STRING1_SP),__STRING_T3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7652);}while(r); +} +S_9242:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7654);if(r)goto S_9242;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7654);}while(r); +} +LABEL_SUBFUNCSHR2:; +if(qbevent){evnt(7656);r=0;} +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7657);}while(r); +S_9246:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7658);if(r)goto S_9246;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7658);}while(r); +} +S_9249:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7659);if(r)goto S_9249;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Cannot use type symbol with SHARED AS type variable-list (",58),__STRING_S),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7660);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7661);}while(r); +} +do{ +*__LONG_A= 0 ; +if(!qbevent)break;evnt(7665);}while(r); +do{ +qbs_set(__STRING_L3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7666);}while(r); +S_9255:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7667);if(r)goto S_9255;} +S_9256:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1089=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7668);if(r)goto S_9256;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7668);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7668);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(7669);}while(r); +do{ +*__LONG_A= 1 ; +if(!qbevent)break;evnt(7670);}while(r); +do{ +qbs_set(__STRING_L3,qbs_add(qbs_add(qbs_add(__STRING1_SP2,qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7671);}while(r); +} +do{ +*__LONG_NEWSHAREDSYNTAX= -1 ; +if(!qbevent)break;evnt(7674);}while(r); +do{ +return_point[next_return_point++]=4; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NORMALSHAREDBLOCK; +RETURN_4:; +if(!qbevent)break;evnt(7675);}while(r); +do{ +*__LONG_NEWSHAREDSYNTAX= 0 ; +if(!qbevent)break;evnt(7676);}while(r); +S_9267:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(7678);if(r)goto S_9267;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7679);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7680);}while(r); +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7683);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7683);}while(r); +do{ +goto LABEL_SUBFUNCSHR2; +if(!qbevent)break;evnt(7684);}while(r); +} +S_9274:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7686);if(r)goto S_9274;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7686);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7686);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7688);}while(r); +S_9279:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7688);if(r)goto S_9279;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7688);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7688);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7689);}while(r); +} +} +} +S_9288:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(7695);if(r)goto S_9288;} +S_9289:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ +if(qbevent){evnt(7696);if(r)goto S_9289;} +do{ +*__LONG_SF= 0 ; +if(!qbevent)break;evnt(7697);}while(r); +S_9291:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(7698);if(r)goto S_9291;} +do{ +*__LONG_SF= 1 ; +if(!qbevent)break;evnt(7698);}while(r); +} +S_9294:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(7699);if(r)goto S_9294;} +do{ +*__LONG_SF= 2 ; +if(!qbevent)break;evnt(7699);}while(r); +} +S_9297:; +if ((*__LONG_SF)||new_error){ +if(qbevent){evnt(7700);if(r)goto S_9297;} +S_9298:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ +if(qbevent){evnt(7702);if(r)goto S_9298;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("EXIT ",5),__STRING_SECONDELEMENT),qbs_new_txt_len(" must be used within a ",23)),__STRING_SECONDELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7702);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7702);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1092; +sub_file_print(tmp_fileno,qbs_new_txt_len("goto exit_subfunc;",18), 0 , 0 , 1 ); +if (new_error) goto skip1092; +skip1092: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7704);}while(r); +S_9303:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||new_error){ +if(qbevent){evnt(7705);if(r)goto S_9303;} +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7705);}while(r); +}else{ +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Function",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7705);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Exit",4)),__STRING1_SP),__STRING_SECONDELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7706);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7707);}while(r); +S_9310:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7707);if(r)goto S_9310;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7707);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7707);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7708);}while(r); +} +} +} +S_9319:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ECHO",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(7715);if(r)goto S_9319;} +S_9320:; +if ((-(*__LONG_CONSOLE== 0 ))||new_error){ +if(qbevent){evnt(7716);if(r)goto S_9320;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",55))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7717);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7717);}while(r); +} +} +S_9325:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(7723);if(r)goto S_9325;} +S_9326:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||new_error){ +if(qbevent){evnt(7724);if(r)goto S_9326;} +S_9327:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1094= 2 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7725);if(r)goto S_9327;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7725);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7725);}while(r); +} +do{ +*__LONG_USEPOSITION= 0 ; +if(!qbevent)break;evnt(7728);}while(r); +do{ +*__LONG_PART= 1 ; +if(!qbevent)break;evnt(7729);}while(r); +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7730);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7731);}while(r); +do{ +qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7732);}while(r); +do{ +qbs_set(__STRING_POSITION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7733);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7734);}while(r); +S_9338:; +do{ +if(qbevent){evnt(7735);if(r)goto S_9338;} +S_9339:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7737);if(r)goto S_9339;} +S_9340:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||new_error){ +if(qbevent){evnt(7738);if(r)goto S_9340;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7738);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7738);}while(r); +} +do{ +qbs_set(__STRING_EXPRESSION,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7739);}while(r); +do{ +goto dl_exit_1095; +if(!qbevent)break;evnt(7740);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7743);}while(r); +S_9348:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7744);if(r)goto S_9348;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7744);}while(r); +} +S_9351:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7745);if(r)goto S_9351;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7745);}while(r); +} +S_9354:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7747);if(r)goto S_9354;} +S_9355:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(7749);if(r)goto S_9355;} +S_9356:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1097=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(7750);if(r)goto S_9356;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7750);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7750);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7751);}while(r); +do{ +qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7752);}while(r); +do{ +*__LONG_PART= 3 ; +if(!qbevent)break;evnt(7753);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7753);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7753);}while(r); +do{ +goto LABEL_ASCGOTPART; +if(!qbevent)break;evnt(7753);}while(r); +} +S_9367:; +if ((-(*__LONG_PART== 2 ))||new_error){ +if(qbevent){evnt(7756);if(r)goto S_9367;} +S_9368:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1098=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(7757);if(r)goto S_9368;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7757);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7757);}while(r); +} +do{ +*__LONG_USEPOSITION= 1 ; +if(!qbevent)break;evnt(7758);}while(r); +do{ +qbs_set(__STRING_POSITION,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7759);}while(r); +do{ +*__LONG_PART= 3 ; +if(!qbevent)break;evnt(7760);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7760);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7760);}while(r); +do{ +goto LABEL_ASCGOTPART; +if(!qbevent)break;evnt(7760);}while(r); +} +} +S_9380:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(7767);if(r)goto S_9380;} +S_9381:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(7768);if(r)goto S_9381;} +do{ +qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7768);}while(r); +do{ +*__LONG_PART= 2 ; +if(!qbevent)break;evnt(7768);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7768);}while(r); +do{ +goto LABEL_ASCGOTPART; +if(!qbevent)break;evnt(7768);}while(r); +} +} +S_9388:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ +if(qbevent){evnt(7771);if(r)goto S_9388;} +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7771);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7771);}while(r); +} +LABEL_ASCGOTPART:; +if(qbevent){evnt(7772);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7773);}while(r); +dl_continue_1095:; +}while(1); +dl_exit_1095:; +S_9395:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||new_error){ +if(qbevent){evnt(7775);if(r)goto S_9395;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7775);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7775);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7778);}while(r); +S_9400:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7779);if(r)goto S_9400;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7779);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Asc",3)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7780);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7782);}while(r); +S_9405:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7783);if(r)goto S_9405;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7783);}while(r); +} +S_9408:; +if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(7784);if(r)goto S_9408;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7784);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7784);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7785);}while(r); +S_9413:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7786);if(r)goto S_9413;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7786);}while(r); +} +S_9416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(7790);if(r)goto S_9416;} +S_9417:; +if ((*__LONG_USEPOSITION)||new_error){ +if(qbevent){evnt(7791);if(r)goto S_9417;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("1",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7791);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7791);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1102; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1102; +skip1102: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7793);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7794);}while(r); +S_9424:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7795);if(r)goto S_9424;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7795);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7796);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1103= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7797);}while(r); +S_9429:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7798);if(r)goto S_9429;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7798);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1104; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1104; +skip1104: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7799);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1105; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);}",53), 0 , 0 , 1 ); +if (new_error) goto skip1105; +skip1105: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7800);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1106; +sub_file_print(tmp_fileno,qbs_new_txt_len("}}",2), 0 , 0 , 1 ); +if (new_error) goto skip1106; +skip1106: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7801);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1107; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1107; +skip1107: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7805);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7806);}while(r); +S_9438:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7807);if(r)goto S_9438;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7807);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7808);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1108= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7809);}while(r); +S_9443:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7810);if(r)goto S_9443;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7810);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1109; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1109; +skip1109: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7811);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7812);}while(r); +S_9448:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7813);if(r)goto S_9448;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7813);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7814);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1110= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7815);}while(r); +S_9453:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7816);if(r)goto S_9453;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7816);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1111; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1111; +skip1111: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7817);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1112; +sub_file_print(tmp_fileno,qbs_new_txt_len("if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}",94), 0 , 0 , 1 ); +if (new_error) goto skip1112; +skip1112: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7818);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1113; +sub_file_print(tmp_fileno,qbs_new_txt_len("}}}",3), 0 , 0 , 1 ); +if (new_error) goto skip1113; +skip1113: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7819);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7822);}while(r); +S_9461:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7822);if(r)goto S_9461;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7822);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7822);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7823);}while(r); +} +} +S_9469:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(7831);if(r)goto S_9469;} +S_9470:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||new_error){ +if(qbevent){evnt(7832);if(r)goto S_9470;} +S_9471:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1115= 2 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7833);if(r)goto S_9471;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7833);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7833);}while(r); +} +do{ +qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7835);}while(r); +do{ +*__LONG_PART= 1 ; +if(!qbevent)break;evnt(7836);}while(r); +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7837);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7838);}while(r); +do{ +qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7839);}while(r); +do{ +qbs_set(__STRING_START,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7840);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7841);}while(r); +S_9482:; +do{ +if(qbevent){evnt(7842);if(r)goto S_9482;} +S_9483:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7843);if(r)goto S_9483;} +S_9484:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(7844);if(r)goto S_9484;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7844);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7844);}while(r); +} +do{ +qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7845);}while(r); +do{ +goto dl_exit_1116; +if(!qbevent)break;evnt(7846);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7848);}while(r); +S_9492:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7849);if(r)goto S_9492;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7849);}while(r); +} +S_9495:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7850);if(r)goto S_9495;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7850);}while(r); +} +S_9498:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7851);if(r)goto S_9498;} +S_9499:; +if ((-(*__LONG_PART== 2 ))||new_error){ +if(qbevent){evnt(7852);if(r)goto S_9499;} +S_9500:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1117=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(7853);if(r)goto S_9500;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7853);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7853);}while(r); +} +do{ +qbs_set(__STRING_START,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7854);}while(r); +do{ +*__LONG_PART= 4 ; +if(!qbevent)break;evnt(7854);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7854);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7854);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(7854);}while(r); +} +S_9510:; +if ((-(*__LONG_PART== 3 ))||new_error){ +if(qbevent){evnt(7856);if(r)goto S_9510;} +S_9511:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1118=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(7857);if(r)goto S_9511;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7857);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7857);}while(r); +} +S_9515:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7858);if(r)goto S_9515;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Omit , before ) if omitting length in MID$ statement",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7858);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7858);}while(r); +} +do{ +qbs_set(__STRING_LENGTH,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7859);}while(r); +do{ +*__LONG_PART= 4 ; +if(!qbevent)break;evnt(7859);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7859);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7859);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(7859);}while(r); +} +} +S_9526:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(7862);if(r)goto S_9526;} +S_9527:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(7863);if(r)goto S_9527;} +do{ +qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7863);}while(r); +do{ +*__LONG_PART= 2 ; +if(!qbevent)break;evnt(7863);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7863);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(7863);}while(r); +} +S_9533:; +if ((-(*__LONG_PART== 2 ))||new_error){ +if(qbevent){evnt(7864);if(r)goto S_9533;} +do{ +qbs_set(__STRING_START,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7864);}while(r); +do{ +*__LONG_PART= 3 ; +if(!qbevent)break;evnt(7864);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7864);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(7864);}while(r); +} +} +S_9540:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ +if(qbevent){evnt(7866);if(r)goto S_9540;} +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7866);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7866);}while(r); +} +LABEL_MIDGOTPART:; +if(qbevent){evnt(7867);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7868);}while(r); +dl_continue_1116:; +}while(1); +dl_exit_1116:; +S_9547:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7870);if(r)goto S_9547;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - first parameter must be a string variable/array-element",70)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7870);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7870);}while(r); +} +S_9551:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7871);if(r)goto S_9551;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - second parameter not optional",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7871);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7871);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7873);}while(r); +S_9556:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7874);if(r)goto S_9556;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7874);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Mid$",4)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7875);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7876);}while(r); +S_9561:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7877);if(r)goto S_9561;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7877);}while(r); +} +S_9564:; +if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(7878);if(r)goto S_9564;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("MID$ expects a string variable/array-element as its first argument",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7878);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7878);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7879);}while(r); +S_9569:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7880);if(r)goto S_9569;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7880);}while(r); +} +do{ +qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7882);}while(r); +S_9573:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7883);if(r)goto S_9573;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7883);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7884);}while(r); +do{ +qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1120= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7885);}while(r); +do{ +qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7887);}while(r); +S_9579:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7888);if(r)goto S_9579;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7888);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7889);}while(r); +do{ +qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7890);}while(r); +S_9584:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7891);if(r)goto S_9584;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7891);}while(r); +} +S_9587:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||new_error){ +if(qbevent){evnt(7893);if(r)goto S_9587;} +do{ +qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7894);}while(r); +S_9589:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7895);if(r)goto S_9589;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7895);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7896);}while(r); +do{ +qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1122= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7897);}while(r); +S_9594:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7898);if(r)goto S_9594;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7898);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1123; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",",1)),__STRING_LENGTH),qbs_new_txt_len(",",1)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1123; +skip1123: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7899);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1124; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_mid(",8),__STRING_STRINGVARIABLE),qbs_new_txt_len(",",1)),__STRING_START),qbs_new_txt_len(",0,",3)),__STRING_STRINGEXPRESSION),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1124; +skip1124: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7901);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP),__STRING_L2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7904);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7905);}while(r); +S_9603:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7905);if(r)goto S_9603;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7905);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7905);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7906);}while(r); +} +} +S_9611:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(7911);if(r)goto S_9611;} +S_9612:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||new_error){ +if(qbevent){evnt(7912);if(r)goto S_9612;} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(7913);}while(r); +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Erase",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7914);}while(r); +LABEL_ERASENEXTARRAY:; +if(qbevent){evnt(7915);r=0;} +do{ +qbs_set(__STRING_VAR,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7916);}while(r); +do{ +qbs_set(__STRING_X,__STRING_VAR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7917);}while(r); +do{ +qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7917);}while(r); +S_9618:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7918);if(r)goto S_9618;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7918);}while(r); +} +S_9621:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||new_error){ +if(qbevent){evnt(7920);if(r)goto S_9621;} +S_9622:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7921);if(r)goto S_9622;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7921);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),__STRING_LS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7922);}while(r); +LABEL_CLEARERASE:; +if(qbevent){evnt(7924);r=0;} +do{ +qbs_set(__STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7925);}while(r); +do{ +qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1126=(*(int32*)(((char*)__UDT_ID)+(512))& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7926);}while(r); +S_9628:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(7927);if(r)goto S_9628;} +do{ +qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7927);}while(r); +} +S_9631:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(7928);if(r)goto S_9631;} +do{ +qbs_set(__STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(&(pass1127=(*(int32*)(((char*)__UDT_ID)+(512))& 511 ))),qbs_new_txt_len("/8+1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7928);}while(r); +} +S_9634:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(7929);if(r)goto S_9634;} +do{ +qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1128=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*(int32*)(((char*)__UDT_ID)+(512))& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7930);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1129; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&1){",7)), 0 , 0 , 1 ); +if (new_error) goto skip1129; +skip1129: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7932);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1130; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&2){",7)), 0 , 0 , 1 ); +if (new_error) goto skip1130; +skip1130: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7933);}while(r); +S_9639:; +if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(7934);if(r)goto S_9639;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1131; +sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=",9), 0 , 0 , 0 ); +if (new_error) goto skip1131; +skip1131: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7935);}while(r); +S_9641:; +fornext_value1133= 1 ; +fornext_finalvalue1133=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1133= 1 ; +if (fornext_step1133<0) fornext_step_negative1133=1; else fornext_step_negative1133=0; +if (new_error) goto fornext_error1133; +goto fornext_entrylabel1133; +while(1){ +fornext_value1133=fornext_step1133+(*__LONG_I2); +fornext_entrylabel1133: +*__LONG_I2=fornext_value1133; +if (fornext_step_negative1133){ +if (fornext_value1133fornext_finalvalue1133) break; +} +fornext_error1133:; +if(qbevent){evnt(7936);if(r)goto S_9641;} +S_9642:; +if ((-(*__LONG_I2!= 1 ))||new_error){ +if(qbevent){evnt(7937);if(r)goto S_9642;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1134; +sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); +if (new_error) goto skip1134; +skip1134: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7937);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1135; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1136=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); +if (new_error) goto skip1135; +skip1135: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7938);}while(r); +fornext_continue_1132:; +} +fornext_exit_1132:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1137; +sub_file_print(tmp_fileno,qbs_new_txt_len(";",1), 0 , 0 , 1 ); +if (new_error) goto skip1137; +skip1137: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7940);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1138; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); +if (new_error) goto skip1138; +skip1138: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7941);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1139; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]))->len=0;",25)), 0 , 0 , 1 ); +if (new_error) goto skip1139; +skip1139: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7942);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1140; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1140; +skip1140: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7943);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1141; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_N),qbs_new_txt_len("[0]),0,",7)), 0 , 0 , 0 ); +if (new_error) goto skip1141; +skip1141: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7947);}while(r); +S_9653:; +fornext_value1143= 1 ; +fornext_finalvalue1143=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1143= 1 ; +if (fornext_step1143<0) fornext_step_negative1143=1; else fornext_step_negative1143=0; +if (new_error) goto fornext_error1143; +goto fornext_entrylabel1143; +while(1){ +fornext_value1143=fornext_step1143+(*__LONG_I2); +fornext_entrylabel1143: +*__LONG_I2=fornext_value1143; +if (fornext_step_negative1143){ +if (fornext_value1143fornext_finalvalue1143) break; +} +fornext_error1143:; +if(qbevent){evnt(7948);if(r)goto S_9653;} +S_9654:; +if ((-(*__LONG_I2!= 1 ))||new_error){ +if(qbevent){evnt(7949);if(r)goto S_9654;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1144; +sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); +if (new_error) goto skip1144; +skip1144: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7949);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1145; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1146=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); +if (new_error) goto skip1145; +skip1145: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7950);}while(r); +fornext_continue_1142:; +} +fornext_exit_1142:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1147; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1147; +skip1147: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7952);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1148; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip1148; +skip1148: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7954);}while(r); +S_9662:; +if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(7956);if(r)goto S_9662;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1149; +sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=",9), 0 , 0 , 0 ); +if (new_error) goto skip1149; +skip1149: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7958);}while(r); +S_9664:; +fornext_value1151= 1 ; +fornext_finalvalue1151=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1151= 1 ; +if (fornext_step1151<0) fornext_step_negative1151=1; else fornext_step_negative1151=0; +if (new_error) goto fornext_error1151; +goto fornext_entrylabel1151; +while(1){ +fornext_value1151=fornext_step1151+(*__LONG_I2); +fornext_entrylabel1151: +*__LONG_I2=fornext_value1151; +if (fornext_step_negative1151){ +if (fornext_value1151fornext_finalvalue1151) break; +} +fornext_error1151:; +if(qbevent){evnt(7959);if(r)goto S_9664;} +S_9665:; +if ((-(*__LONG_I2!= 1 ))||new_error){ +if(qbevent){evnt(7960);if(r)goto S_9665;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1152; +sub_file_print(tmp_fileno,qbs_new_txt_len("*",1), 0 , 0 , 0 ); +if (new_error) goto skip1152; +skip1152: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7960);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1153; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1154=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1)), 0 , 0 , 0 ); +if (new_error) goto skip1153; +skip1153: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7961);}while(r); +fornext_continue_1150:; +} +fornext_exit_1150:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1155; +sub_file_print(tmp_fileno,qbs_new_txt_len(";",1), 0 , 0 , 1 ); +if (new_error) goto skip1155; +skip1155: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7963);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1156; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); +if (new_error) goto skip1156; +skip1156: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7964);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1157; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free((qbs*)(((uint64*)(",27),__STRING_N),qbs_new_txt_len("[0]))[tmp_long]));",18)), 0 , 0 , 1 ); +if (new_error) goto skip1157; +skip1157: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7965);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1158; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1158; +skip1158: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7966);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1159; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); +if (new_error) goto skip1159; +skip1159: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7968);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1160; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N),qbs_new_txt_len("[2]&4){",7)), 0 , 0 , 1 ); +if (new_error) goto skip1160; +skip1160: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7971);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1161; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); +if (new_error) goto skip1161; +skip1161: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7972);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1162; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip1162; +skip1162: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7973);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1163; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),__STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); +if (new_error) goto skip1163; +skip1163: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7974);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1164; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1164; +skip1164: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7975);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1165; +sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7)), 0 , 0 , 1 ); +if (new_error) goto skip1165; +skip1165: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7978);}while(r); +S_9683:; +fornext_value1167= 1 ; +fornext_finalvalue1167=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1167= 1 ; +if (fornext_step1167<0) fornext_step_negative1167=1; else fornext_step_negative1167=0; +if (new_error) goto fornext_error1167; +goto fornext_entrylabel1167; +while(1){ +fornext_value1167=fornext_step1167+(*__LONG_I2); +fornext_entrylabel1167: +*__LONG_I2=fornext_value1167; +if (fornext_step_negative1167){ +if (fornext_value1167fornext_finalvalue1167) break; +} +fornext_error1167:; +if(qbevent){evnt(7980);if(r)goto S_9683;} +do{ +*__LONG_B=*__LONG_I2* 4 ; +if(!qbevent)break;evnt(7981);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1168; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(__LONG_B)),qbs_new_txt_len("]=2147483647;",13)), 0 , 0 , 1 ); +if (new_error) goto skip1168; +skip1168: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7982);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1169; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1170=*__LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); +if (new_error) goto skip1169; +skip1169: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7983);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1171; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1172=*__LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); +if (new_error) goto skip1171; +skip1171: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7984);}while(r); +fornext_continue_1166:; +} +fornext_exit_1166:; +S_9689:; +if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(7986);if(r)goto S_9689;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1173; +sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29)), 0 , 0 , 1 ); +if (new_error) goto skip1173; +skip1173: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7987);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1174; +sub_file_print(tmp_fileno,qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)), 0 , 0 , 1 ); +if (new_error) goto skip1174; +skip1174: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7989);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1175; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1175; +skip1175: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7991);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1176; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1176; +skip1176: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7992);}while(r); +S_9696:; +if ((-(*__LONG_CLEARERASERETURN== 1 ))||new_error){ +if(qbevent){evnt(7993);if(r)goto S_9696;} +do{ +*__LONG_CLEARERASERETURN= 0 ; +if(!qbevent)break;evnt(7993);}while(r); +do{ +goto LABEL_CLEARERASERETURNED; +if(!qbevent)break;evnt(7993);}while(r); +} +do{ +goto LABEL_ERASEDARRAY; +if(!qbevent)break;evnt(7994);}while(r); +} +S_9702:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7996);if(r)goto S_9702;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7996);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined array passed to ERASE",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7997);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7997);}while(r); +LABEL_ERASEDARRAY:; +if(qbevent){evnt(7999);r=0;} +S_9707:; +if ((-(*__LONG_I<*__LONG_N))||new_error){ +if(qbevent){evnt(8000);if(r)goto S_9707;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8001);}while(r); +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8001);}while(r); +S_9710:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8001);if(r)goto S_9710;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8001);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8001);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8002);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8003);}while(r); +S_9716:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(8003);if(r)goto S_9716;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8003);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8003);}while(r); +} +do{ +goto LABEL_ERASENEXTARRAY; +if(!qbevent)break;evnt(8004);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8007);}while(r); +S_9723:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8007);if(r)goto S_9723;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8007);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8007);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8008);}while(r); +} +} +S_9731:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(8014);if(r)goto S_9731;} +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(8015);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(8015);}while(r); +do{ +*__LONG_COMMONOPTION= 0 ; +if(!qbevent)break;evnt(8015);}while(r); +S_9735:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||new_error){ +if(qbevent){evnt(8016);if(r)goto S_9735;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8016);}while(r); do{ *__INTEGER_DIMOPTION= 1 ; -if(!qbevent)break;evnt(7694);}while(r); +if(!qbevent)break;evnt(8016);}while(r); +} +S_9739:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||new_error){ +if(qbevent){evnt(8017);if(r)goto S_9739;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8018);}while(r); +do{ +*__INTEGER_DIMOPTION= 2 ; +if(!qbevent)break;evnt(8019);}while(r); +do{ +*__INTEGER_REDIMOPTION= 1 ; +if(!qbevent)break;evnt(8019);}while(r); +S_9743:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9)))|(((qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("PRESERVE",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(8020);if(r)goto S_9743;} +do{ +*__INTEGER_REDIMOPTION= 2 ; +if(!qbevent)break;evnt(8021);}while(r); +S_9745:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||new_error){ +if(qbevent){evnt(8022);if(r)goto S_9745;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("_Preserve",9)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8023);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Preserve",8)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8025);}while(r); +} +S_9750:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(8027);if(r)goto S_9750;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected REDIM ",15),__STRING_QB64PREFIX),qbs_new_txt_len("PRESERVE ...",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8027);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8027);}while(r); +} +} +} +S_9756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ +if(qbevent){evnt(8030);if(r)goto S_9756;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8030);}while(r); +do{ +*__INTEGER_DIMOPTION= 3 ; +if(!qbevent)break;evnt(8030);}while(r); +} +S_9760:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||new_error){ +if(qbevent){evnt(8031);if(r)goto S_9760;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8031);}while(r); +do{ +*__INTEGER_DIMOPTION= 1 ; +if(!qbevent)break;evnt(8031);}while(r); do{ *__LONG_COMMONOPTION= 1 ; -if(!qbevent)break;evnt(7694);}while(r); +if(!qbevent)break;evnt(8031);}while(r); } -S_9327:; +S_9765:; if ((*__INTEGER_DIMOPTION)||new_error){ -if(qbevent){evnt(7695);if(r)goto S_9327;} -do{ -qbs_set(__STRING_L,__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7697);}while(r); -S_9329:; +if(qbevent){evnt(8032);if(r)goto S_9765;} +S_9766:; if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||new_error){ -if(qbevent){evnt(7699);if(r)goto S_9329;} +if(qbevent){evnt(8034);if(r)goto S_9766;} do{ qbs_set(__STRING_A,qbs_new_txt_len("STATIC must be used within a SUB/FUNCTION",41)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7699);}while(r); +if(!qbevent)break;evnt(8034);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7699);}while(r); +if(!qbevent)break;evnt(8034);}while(r); } -S_9333:; +S_9770:; if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||new_error){ -if(qbevent){evnt(7700);if(r)goto S_9333;} +if(qbevent){evnt(8035);if(r)goto S_9770;} do{ qbs_set(__STRING_A,qbs_new_txt_len("COMMON cannot be used within a SUB/FUNCTION",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7700);}while(r); +if(!qbevent)break;evnt(8035);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7700);}while(r); +if(!qbevent)break;evnt(8035);}while(r); } do{ *__LONG_I= 2 ; -if(!qbevent)break;evnt(7702);}while(r); -S_9338:; +if(!qbevent)break;evnt(8037);}while(r); +S_9775:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(7703);if(r)goto S_9338;} +if(qbevent){evnt(8038);if(r)goto S_9775;} do{ *__LONG_I= 3 ; -if(!qbevent)break;evnt(7703);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("_PRESERVE",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7703);}while(r); +if(!qbevent)break;evnt(8038);}while(r); } -S_9342:; +S_9778:; if ((-(*__INTEGER_DIMOPTION!= 3 ))||new_error){ -if(qbevent){evnt(7705);if(r)goto S_9342;} +if(qbevent){evnt(8040);if(r)goto S_9778;} do{ qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7706);}while(r); -S_9344:; +if(!qbevent)break;evnt(8041);}while(r); +S_9780:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||new_error){ -if(qbevent){evnt(7707);if(r)goto S_9344;} -S_9345:; +if(qbevent){evnt(8042);if(r)goto S_9780;} +S_9781:; if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ -if(qbevent){evnt(7708);if(r)goto S_9345;} +if(qbevent){evnt(8043);if(r)goto S_9781;} do{ qbs_set(__STRING_A,qbs_new_txt_len("DIM/REDIM SHARED invalid within a SUB/FUNCTION",46)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7708);}while(r); +if(!qbevent)break;evnt(8043);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7708);}while(r); +if(!qbevent)break;evnt(8043);}while(r); } do{ *__INTEGER_DIMSHARED= 1 ; -if(!qbevent)break;evnt(7709);}while(r); +if(!qbevent)break;evnt(8044);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7710);}while(r); +if(!qbevent)break;evnt(8045);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_A2)); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Shared",6)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7711);}while(r); +if(!qbevent)break;evnt(8046);}while(r); } } -S_9354:; +S_9790:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(7715);if(r)goto S_9354;} +if(qbevent){evnt(8050);if(r)goto S_9790;} do{ *__LONG_DIMSTATIC= 1 ; -if(!qbevent)break;evnt(7715);}while(r); +if(!qbevent)break;evnt(8050);}while(r); do{ *__LONG_ALLOWLOCALNAME= 1 ; -if(!qbevent)break;evnt(7715);}while(r); +if(!qbevent)break;evnt(8050);}while(r); } +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8053);}while(r); +S_9795:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(8054);if(r)goto S_9795;} LABEL_DIMNEXT:; -if(qbevent){evnt(7717);r=0;} +if(qbevent){evnt(8056);r=0;} +do{ +*__LONG_NEWDIMSYNTAX= 0 ; +if(!qbevent)break;evnt(8057);}while(r); do{ *__LONG_NOTYPE= 0 ; -if(!qbevent)break;evnt(7718);}while(r); +if(!qbevent)break;evnt(8058);}while(r); do{ *__LONG_LISTARRAY= 0 ; -if(!qbevent)break;evnt(7719);}while(r); +if(!qbevent)break;evnt(8059);}while(r); do{ qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7725);}while(r); +if(!qbevent)break;evnt(8065);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7725);}while(r); -S_9362:; +if(!qbevent)break;evnt(8065);}while(r); +S_9801:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7726);if(r)goto S_9362;} +if(qbevent){evnt(8066);if(r)goto S_9801;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" variable-name or ",18)),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list",22))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7726);}while(r); +if(!qbevent)break;evnt(8066);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7726);}while(r); +if(!qbevent)break;evnt(8066);}while(r); } -S_9366:; +S_9805:; if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(7729);if(r)goto S_9366;} +if(qbevent){evnt(8069);if(r)goto S_9805;} do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7729);}while(r); +if(!qbevent)break;evnt(8069);}while(r); }else{ do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7729);}while(r); +if(!qbevent)break;evnt(8069);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7729);}while(r); +if(!qbevent)break;evnt(8069);}while(r); } do{ qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7732);}while(r); -S_9373:; +if(!qbevent)break;evnt(8072);}while(r); +S_9812:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7734);if(r)goto S_9373;} +if(qbevent){evnt(8074);if(r)goto S_9812;} do{ *__LONG_B= 1 ; -if(!qbevent)break;evnt(7735);}while(r); -S_9375:; -fornext_value1101=*__LONG_I; -fornext_finalvalue1101=*__LONG_N; -fornext_step1101= 1 ; -if (fornext_step1101<0) fornext_step_negative1101=1; else fornext_step_negative1101=0; -if (new_error) goto fornext_error1101; -goto fornext_entrylabel1101; +if(!qbevent)break;evnt(8075);}while(r); +S_9814:; +fornext_value1179=*__LONG_I; +fornext_finalvalue1179=*__LONG_N; +fornext_step1179= 1 ; +if (fornext_step1179<0) fornext_step_negative1179=1; else fornext_step_negative1179=0; +if (new_error) goto fornext_error1179; +goto fornext_entrylabel1179; while(1){ -fornext_value1101=fornext_step1101+(*__LONG_I); -fornext_entrylabel1101: -*__LONG_I=fornext_value1101; -if (fornext_step_negative1101){ -if (fornext_value1101fornext_finalvalue1101) break; +if (fornext_value1179>fornext_finalvalue1179) break; } -fornext_error1101:; -if(qbevent){evnt(7736);if(r)goto S_9375;} +fornext_error1179:; +if(qbevent){evnt(8076);if(r)goto S_9814;} do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7737);}while(r); -S_9377:; +if(!qbevent)break;evnt(8077);}while(r); +S_9816:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7738);if(r)goto S_9377;} +if(qbevent){evnt(8078);if(r)goto S_9816;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7738);}while(r); +if(!qbevent)break;evnt(8078);}while(r); } -S_9380:; +S_9819:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7739);if(r)goto S_9380;} +if(qbevent){evnt(8079);if(r)goto S_9819;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7739);}while(r); +if(!qbevent)break;evnt(8079);}while(r); } -S_9383:; +S_9822:; if ((-(*__LONG_B== 0 ))||new_error){ -if(qbevent){evnt(7740);if(r)goto S_9383;} +if(qbevent){evnt(8080);if(r)goto S_9822;} do{ -goto fornext_exit_1100; -if(!qbevent)break;evnt(7740);}while(r); +goto fornext_exit_1178; +if(!qbevent)break;evnt(8080);}while(r); } -S_9386:; +S_9825:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(7741);if(r)goto S_9386;} +if(qbevent){evnt(8081);if(r)goto S_9825;} do{ qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7741);}while(r); +if(!qbevent)break;evnt(8081);}while(r); }else{ do{ qbs_set(__STRING_ELEMENTS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7741);}while(r); +if(!qbevent)break;evnt(8081);}while(r); } -fornext_continue_1100:; +fornext_continue_1178:; } -fornext_exit_1100:; -S_9392:; +fornext_exit_1178:; +S_9831:; if ((-(*__LONG_B!= 0 ))||new_error){ -if(qbevent){evnt(7743);if(r)goto S_9392;} +if(qbevent){evnt(8083);if(r)goto S_9831;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7743);}while(r); +if(!qbevent)break;evnt(8083);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7743);}while(r); +if(!qbevent)break;evnt(8083);}while(r); } do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7744);}while(r); -S_9397:; +if(!qbevent)break;evnt(8084);}while(r); +S_9836:; if ((*__LONG_COMMONOPTION)||new_error){ -if(qbevent){evnt(7746);if(r)goto S_9397;} +if(qbevent){evnt(8086);if(r)goto S_9836;} do{ qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7746);}while(r); +if(!qbevent)break;evnt(8086);}while(r); } -S_9400:; +S_9839:; if (( 0 )||new_error){ -if(qbevent){evnt(7749);if(r)goto S_9400;} +if(qbevent){evnt(8089);if(r)goto S_9839;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1103; +if (new_error) goto skip1181; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("DIM2:array:elements$:[",22),__STRING_ELEMENTS),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip1103; -skip1103: +if (new_error) goto skip1181; +skip1181: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(7749);}while(r); +if(!qbevent)break;evnt(8089);}while(r); } -S_9403:; +S_9842:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(7754);if(r)goto S_9403;} -S_9404:; +if(qbevent){evnt(8094);if(r)goto S_9842;} +S_9843:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ -if(qbevent){evnt(7755);if(r)goto S_9404;} +if(qbevent){evnt(8095);if(r)goto S_9843;} do{ *__LONG_LISTARRAY= 1 ; -if(!qbevent)break;evnt(7756);}while(r); +if(!qbevent)break;evnt(8096);}while(r); } } -S_9408:; +S_9847:; if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(7762);if(r)goto S_9408;} +if(qbevent){evnt(8102);if(r)goto S_9847;} do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7762);}while(r); +if(!qbevent)break;evnt(8102);}while(r); }else{ do{ qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7762);}while(r); +if(!qbevent)break;evnt(8102);}while(r); do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7762);}while(r); +if(!qbevent)break;evnt(8102);}while(r); } } do{ qbs_set(__STRING_D,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7764);}while(r); +if(!qbevent)break;evnt(8104);}while(r); do{ *__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(7766);}while(r); +if(!qbevent)break;evnt(8106);}while(r); do{ qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7768);}while(r); +if(!qbevent)break;evnt(8108);}while(r); do{ qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7769);}while(r); +if(!qbevent)break;evnt(8109);}while(r); do{ qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7770);}while(r); +if(!qbevent)break;evnt(8110);}while(r); do{ qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7773);}while(r); -S_9421:; +if(!qbevent)break;evnt(8113);}while(r); +S_9860:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7774);if(r)goto S_9421;} +if(qbevent){evnt(8114);if(r)goto S_9860;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7774);}while(r); +if(!qbevent)break;evnt(8114);}while(r); } -S_9424:; +S_9863:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ -if(qbevent){evnt(7775);if(r)goto S_9424;} +if(qbevent){evnt(8115);if(r)goto S_9863;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7775);}while(r); +if(!qbevent)break;evnt(8115);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7775);}while(r); +if(!qbevent)break;evnt(8115);}while(r); } -S_9428:; +S_9867:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7777);if(r)goto S_9428;} +if(qbevent){evnt(8117);if(r)goto S_9867;} do{ qbs_set(__STRING_TYP,__STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7778);}while(r); +if(!qbevent)break;evnt(8118);}while(r); do{ *__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(7779);}while(r); +if(!qbevent)break;evnt(8119);}while(r); do{ qbs_set(__STRING_APPENDNAME,__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7780);}while(r); +if(!qbevent)break;evnt(8120);}while(r); do{ goto LABEL_DIMGOTTYP; -if(!qbevent)break;evnt(7781);}while(r); +if(!qbevent)break;evnt(8121);}while(r); } -S_9434:; +S_9873:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(7784);if(r)goto S_9434;} +if(qbevent){evnt(8124);if(r)goto S_9873;} do{ -qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,qbs_new_txt_len("AS",2))); +qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7785);}while(r); +if(!qbevent)break;evnt(8125);}while(r); do{ qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7786);}while(r); -S_9437:; -fornext_value1106=*__LONG_I; -fornext_finalvalue1106=*__LONG_N; -fornext_step1106= 1 ; -if (fornext_step1106<0) fornext_step_negative1106=1; else fornext_step_negative1106=0; -if (new_error) goto fornext_error1106; -goto fornext_entrylabel1106; +if(!qbevent)break;evnt(8126);}while(r); +S_9876:; +fornext_value1184=*__LONG_I; +fornext_finalvalue1184=*__LONG_N; +fornext_step1184= 1 ; +if (fornext_step1184<0) fornext_step_negative1184=1; else fornext_step_negative1184=0; +if (new_error) goto fornext_error1184; +goto fornext_entrylabel1184; while(1){ -fornext_value1106=fornext_step1106+(*__LONG_I); -fornext_entrylabel1106: -*__LONG_I=fornext_value1106; -if (fornext_step_negative1106){ -if (fornext_value1106fornext_finalvalue1106) break; +if (fornext_value1184>fornext_finalvalue1184) break; } -fornext_error1106:; -if(qbevent){evnt(7787);if(r)goto S_9437;} +fornext_error1184:; +if(qbevent){evnt(8127);if(r)goto S_9876;} do{ qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7788);}while(r); -S_9439:; +if(!qbevent)break;evnt(8128);}while(r); +S_9878:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(7789);if(r)goto S_9439;} +if(qbevent){evnt(8129);if(r)goto S_9878;} do{ *__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7789);}while(r); +if(!qbevent)break;evnt(8129);}while(r); do{ -goto fornext_exit_1105; -if(!qbevent)break;evnt(7789);}while(r); +goto fornext_exit_1183; +if(!qbevent)break;evnt(8129);}while(r); } do{ qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_D),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7790);}while(r); +if(!qbevent)break;evnt(8130);}while(r); do{ qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_D)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7791);}while(r); +if(!qbevent)break;evnt(8131);}while(r); do{ qbs_set(__STRING_D,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7792);}while(r); -fornext_continue_1105:; +if(!qbevent)break;evnt(8132);}while(r); +fornext_continue_1183:; } -fornext_exit_1105:; +fornext_exit_1183:; do{ -qbs_set(__STRING_APPENDTYPE,qbs_ucase(__STRING_APPENDTYPE)); +qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7794);}while(r); +if(!qbevent)break;evnt(8134);}while(r); do{ qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7795);}while(r); +if(!qbevent)break;evnt(8135);}while(r); do{ goto LABEL_DIMGOTTYP; -if(!qbevent)break;evnt(7796);}while(r); +if(!qbevent)break;evnt(8136);}while(r); } do{ *__LONG_NOTYPE= 1 ; -if(!qbevent)break;evnt(7800);}while(r); -S_9452:; +if(!qbevent)break;evnt(8140);}while(r); +S_9891:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(7801);if(r)goto S_9452;} +if(qbevent){evnt(8141);if(r)goto S_9891;} do{ *__LONG_V= 27 ; -if(!qbevent)break;evnt(7801);}while(r); +if(!qbevent)break;evnt(8141);}while(r); }else{ do{ *__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7801);}while(r); +if(!qbevent)break;evnt(8141);}while(r); } do{ qbs_set(__STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[array_check((*__LONG_V)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7802);}while(r); +if(!qbevent)break;evnt(8142);}while(r); do{ *__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(7803);}while(r); +if(!qbevent)break;evnt(8143);}while(r); do{ goto LABEL_DIMGOTTYP; -if(!qbevent)break;evnt(7804);}while(r); +if(!qbevent)break;evnt(8144);}while(r); LABEL_DIMGOTTYP:; -if(qbevent){evnt(7806);r=0;} -S_9460:; +if(qbevent){evnt(8146);r=0;} +S_9899:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(7807);if(r)goto S_9460;} +if(qbevent){evnt(8147);if(r)goto S_9899;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected comma!",20)); +qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7807);}while(r); +if(!qbevent)break;evnt(8147);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7807);}while(r); +if(!qbevent)break;evnt(8147);}while(r); } -S_9464:; +S_9903:; if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||new_error){ -if(qbevent){evnt(7810);if(r)goto S_9464;} -S_9465:; +if(qbevent){evnt(8150);if(r)goto S_9903;} +S_9904:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(7811);if(r)goto S_9465;} -S_9466:; +if(qbevent){evnt(8151);if(r)goto S_9904;} +S_9905:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ -if(qbevent){evnt(7812);if(r)goto S_9466;} -S_9467:; +if(qbevent){evnt(8152);if(r)goto S_9905;} +S_9906:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)))||new_error){ -if(qbevent){evnt(7813);if(r)goto S_9467;} +if(qbevent){evnt(8153);if(r)goto S_9906;} do{ qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7814);}while(r); +if(!qbevent)break;evnt(8154);}while(r); do{ *__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(7815);}while(r); +if(!qbevent)break;evnt(8155);}while(r); } } } } -S_9474:; +LABEL_NORMALDIMBLOCK:; +if(qbevent){evnt(8161);r=0;} +S_9913:; if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||new_error){ -if(qbevent){evnt(7821);if(r)goto S_9474;} +if(qbevent){evnt(8162);if(r)goto S_9913;} do{ qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7823);}while(r); +if(!qbevent)break;evnt(8164);}while(r); do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7824);}while(r); +if(!qbevent)break;evnt(8165);}while(r); do{ *__LONG_TS=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(7824);}while(r); -S_9478:; +if(!qbevent)break;evnt(8165);}while(r); +S_9917:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ -if(qbevent){evnt(7826);if(r)goto S_9478;} -S_9479:; +if(qbevent){evnt(8167);if(r)goto S_9917;} +S_9918:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(7827);if(r)goto S_9479;} -S_9480:; +if(qbevent){evnt(8168);if(r)goto S_9918;} +S_9919:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(7828);if(r)goto S_9480;} -S_9481:; +if(qbevent){evnt(8169);if(r)goto S_9919;} +S_9920:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7830);if(r)goto S_9481;} -S_9482:; +if(qbevent){evnt(8171);if(r)goto S_9920;} +S_9921:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7831);if(r)goto S_9482;} +if(qbevent){evnt(8172);if(r)goto S_9921;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7832);}while(r); +if(!qbevent)break;evnt(8173);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7832);}while(r); +if(!qbevent)break;evnt(8173);}while(r); } } }else{ -S_9488:; +S_9927:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(7836);if(r)goto S_9488;} +if(qbevent){evnt(8177);if(r)goto S_9927;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7837);}while(r); +if(!qbevent)break;evnt(8178);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7837);}while(r); +if(!qbevent)break;evnt(8178);}while(r); }else{ -S_9492:; +S_9931:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7840);if(r)goto S_9492;} -S_9493:; +if(qbevent){evnt(8181);if(r)goto S_9931;} +S_9932:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7841);if(r)goto S_9493;} +if(qbevent){evnt(8182);if(r)goto S_9932;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7842);}while(r); +if(!qbevent)break;evnt(8183);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7842);}while(r); +if(!qbevent)break;evnt(8183);}while(r); } } } } } } -S_9502:; +S_9941:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(7850);if(r)goto S_9502;} +if(qbevent){evnt(8191);if(r)goto S_9941;} do{ qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7851);}while(r); -S_9504:; +if(!qbevent)break;evnt(8192);}while(r); +S_9943:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7852);if(r)goto S_9504;} +if(qbevent){evnt(8193);if(r)goto S_9943;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7852);}while(r); +if(!qbevent)break;evnt(8193);}while(r); } -S_9507:; +S_9946:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ -if(qbevent){evnt(7853);if(r)goto S_9507;} -S_9508:; +if(qbevent){evnt(8194);if(r)goto S_9946;} +S_9947:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(7854);if(r)goto S_9508;} -S_9509:; +if(qbevent){evnt(8195);if(r)goto S_9947;} +S_9948:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(7855);if(r)goto S_9509;} -S_9510:; +if(qbevent){evnt(8196);if(r)goto S_9948;} +S_9949:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7857);if(r)goto S_9510;} -S_9511:; +if(qbevent){evnt(8198);if(r)goto S_9949;} +S_9950:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7858);if(r)goto S_9511;} +if(qbevent){evnt(8199);if(r)goto S_9950;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7859);}while(r); +if(!qbevent)break;evnt(8200);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7859);}while(r); +if(!qbevent)break;evnt(8200);}while(r); } } }else{ -S_9517:; +S_9956:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(7863);if(r)goto S_9517;} +if(qbevent){evnt(8204);if(r)goto S_9956;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7864);}while(r); +if(!qbevent)break;evnt(8205);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7864);}while(r); +if(!qbevent)break;evnt(8205);}while(r); }else{ -S_9521:; +S_9960:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7867);if(r)goto S_9521;} -S_9522:; +if(qbevent){evnt(8208);if(r)goto S_9960;} +S_9961:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7868);if(r)goto S_9522;} +if(qbevent){evnt(8209);if(r)goto S_9961;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7869);}while(r); +if(!qbevent)break;evnt(8210);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7869);}while(r); +if(!qbevent)break;evnt(8210);}while(r); } } } @@ -34005,226 +35697,226 @@ if(!qbevent)break;evnt(7869);}while(r); } } } -S_9533:; +S_9972:; if ((*__LONG_LISTARRAY)||new_error){ -if(qbevent){evnt(7879);if(r)goto S_9533;} +if(qbevent){evnt(8220);if(r)goto S_9972;} do{ *__LONG_XI= 1 ; -if(!qbevent)break;evnt(7884);}while(r); -S_9535:; -fornext_value1110= 1 ; -fornext_finalvalue1110=*__LONG_STATICARRAYLISTN; -fornext_step1110= 1 ; -if (fornext_step1110<0) fornext_step_negative1110=1; else fornext_step_negative1110=0; -if (new_error) goto fornext_error1110; -goto fornext_entrylabel1110; +if(!qbevent)break;evnt(8225);}while(r); +S_9974:; +fornext_value1188= 1 ; +fornext_finalvalue1188=*__LONG_STATICARRAYLISTN; +fornext_step1188= 1 ; +if (fornext_step1188<0) fornext_step_negative1188=1; else fornext_step_negative1188=0; +if (new_error) goto fornext_error1188; +goto fornext_entrylabel1188; while(1){ -fornext_value1110=fornext_step1110+(*__LONG_X); -fornext_entrylabel1110: -*__LONG_X=fornext_value1110; -if (fornext_step_negative1110){ -if (fornext_value1110fornext_finalvalue1110) break; +if (fornext_value1188>fornext_finalvalue1188) break; } -fornext_error1110:; -if(qbevent){evnt(7885);if(r)goto S_9535;} +fornext_error1188:; +if(qbevent){evnt(8226);if(r)goto S_9974;} do{ qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7886);}while(r); +if(!qbevent)break;evnt(8227);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(7886);}while(r); +if(!qbevent)break;evnt(8227);}while(r); do{ qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7887);}while(r); +if(!qbevent)break;evnt(8228);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(7887);}while(r); +if(!qbevent)break;evnt(8228);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7888);}while(r); +if(!qbevent)break;evnt(8229);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(7888);}while(r); -S_9542:; +if(!qbevent)break;evnt(8229);}while(r); +S_9981:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ -if(qbevent){evnt(7890);if(r)goto S_9542;} -S_9543:; +if(qbevent){evnt(8231);if(r)goto S_9981;} +S_9982:; if ((-(*__LONG_DIMMETHOD2== 1 ))||new_error){ -if(qbevent){evnt(7891);if(r)goto S_9543;} -S_9544:; +if(qbevent){evnt(8232);if(r)goto S_9982;} +S_9983:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(7893);if(r)goto S_9544;} +if(qbevent){evnt(8234);if(r)goto S_9983;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7893);}while(r); +if(!qbevent)break;evnt(8234);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7893);}while(r); +if(!qbevent)break;evnt(8234);}while(r); } }else{ -S_9549:; +S_9988:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(7896);if(r)goto S_9549;} +if(qbevent){evnt(8237);if(r)goto S_9988;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7897);}while(r); +if(!qbevent)break;evnt(8238);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7897);}while(r); +if(!qbevent)break;evnt(8238);}while(r); }else{ -S_9553:; +S_9992:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(7899);if(r)goto S_9553;} +if(qbevent){evnt(8240);if(r)goto S_9992;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7899);}while(r); +if(!qbevent)break;evnt(8240);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7899);}while(r); +if(!qbevent)break;evnt(8240);}while(r); } } } } -fornext_continue_1109:; +fornext_continue_1187:; } -fornext_exit_1109:; +fornext_exit_1187:; do{ qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7906);}while(r); +if(!qbevent)break;evnt(8247);}while(r); do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7907);}while(r); +if(!qbevent)break;evnt(8248);}while(r); do{ *__LONG_TS=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(7907);}while(r); -S_9564:; +if(!qbevent)break;evnt(8248);}while(r); +S_10003:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ -if(qbevent){evnt(7909);if(r)goto S_9564;} -S_9565:; +if(qbevent){evnt(8250);if(r)goto S_10003;} +S_10004:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(7910);if(r)goto S_9565;} -S_9566:; +if(qbevent){evnt(8251);if(r)goto S_10004;} +S_10005:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(7911);if(r)goto S_9566;} -S_9567:; +if(qbevent){evnt(8252);if(r)goto S_10005;} +S_10006:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7913);if(r)goto S_9567;} -S_9568:; +if(qbevent){evnt(8254);if(r)goto S_10006;} +S_10007:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7914);if(r)goto S_9568;} +if(qbevent){evnt(8255);if(r)goto S_10007;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7915);}while(r); +if(!qbevent)break;evnt(8256);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7915);}while(r); +if(!qbevent)break;evnt(8256);}while(r); } } }else{ -S_9574:; +S_10013:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(7919);if(r)goto S_9574;} +if(qbevent){evnt(8260);if(r)goto S_10013;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7920);}while(r); +if(!qbevent)break;evnt(8261);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7920);}while(r); +if(!qbevent)break;evnt(8261);}while(r); }else{ -S_9578:; +S_10017:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7923);if(r)goto S_9578;} -S_9579:; +if(qbevent){evnt(8264);if(r)goto S_10017;} +S_10018:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7924);if(r)goto S_9579;} +if(qbevent){evnt(8265);if(r)goto S_10018;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7925);}while(r); +if(!qbevent)break;evnt(8266);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7925);}while(r); +if(!qbevent)break;evnt(8266);}while(r); } } } } } } -S_9588:; +S_10027:; if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(7933);if(r)goto S_9588;} +if(qbevent){evnt(8274);if(r)goto S_10027;} do{ qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7934);}while(r); -S_9590:; +if(!qbevent)break;evnt(8275);}while(r); +S_10029:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7935);if(r)goto S_9590;} +if(qbevent){evnt(8276);if(r)goto S_10029;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7935);}while(r); +if(!qbevent)break;evnt(8276);}while(r); } -S_9593:; +S_10032:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ -if(qbevent){evnt(7936);if(r)goto S_9593;} -S_9594:; +if(qbevent){evnt(8277);if(r)goto S_10032;} +S_10033:; if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(7937);if(r)goto S_9594;} -S_9595:; +if(qbevent){evnt(8278);if(r)goto S_10033;} +S_10034:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(7938);if(r)goto S_9595;} -S_9596:; +if(qbevent){evnt(8279);if(r)goto S_10034;} +S_10035:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7940);if(r)goto S_9596;} -S_9597:; +if(qbevent){evnt(8281);if(r)goto S_10035;} +S_10036:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7941);if(r)goto S_9597;} +if(qbevent){evnt(8282);if(r)goto S_10036;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7942);}while(r); +if(!qbevent)break;evnt(8283);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7942);}while(r); +if(!qbevent)break;evnt(8283);}while(r); } } }else{ -S_9603:; +S_10042:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(7946);if(r)goto S_9603;} +if(qbevent){evnt(8287);if(r)goto S_10042;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7947);}while(r); +if(!qbevent)break;evnt(8288);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7947);}while(r); +if(!qbevent)break;evnt(8288);}while(r); }else{ -S_9607:; +S_10046:; if ((-((*(int32*)(((char*)__UDT_ID)+(512))&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))==(*__LONG_T&(*__LONG_ISFLOAT+*__LONG_ISUDT+ 511 +*__LONG_ISUNSIGNED+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH))))||new_error){ -if(qbevent){evnt(7950);if(r)goto S_9607;} -S_9608:; +if(qbevent){evnt(8291);if(r)goto S_10046;} +S_10047:; if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(7951);if(r)goto S_9608;} +if(qbevent){evnt(8292);if(r)goto S_10047;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Name already in use",19)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),__STRING_VARNAME),__STRING_S2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7952);}while(r); +if(!qbevent)break;evnt(8293);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7952);}while(r); +if(!qbevent)break;evnt(8293);}while(r); } } } @@ -34232,2938 +35924,1517 @@ if(!qbevent)break;evnt(7952);}while(r); } } } -S_9618:; +S_10057:; if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||new_error){ -if(qbevent){evnt(7962);if(r)goto S_9618;} +if(qbevent){evnt(8303);if(r)goto S_10057;} do{ qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7962);}while(r); +if(!qbevent)break;evnt(8303);}while(r); } do{ qbs_set(__STRING_STATICARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_STATICARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7963);}while(r); -S_9622:; +if(!qbevent)break;evnt(8304);}while(r); +S_10061:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7964);if(r)goto S_9622;} +if(qbevent){evnt(8305);if(r)goto S_10061;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7964);}while(r); +if(!qbevent)break;evnt(8305);}while(r); } do{ *__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ; -if(!qbevent)break;evnt(7965);}while(r); +if(!qbevent)break;evnt(8306);}while(r); do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_VARNAME),__STRING_APPENDNAME),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1)),__STRING_APPENDTYPE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7966);}while(r); +if(!qbevent)break;evnt(8307);}while(r); }else{ do{ *__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; -if(!qbevent)break;evnt(7971);}while(r); -S_9629:; +if(!qbevent)break;evnt(8312);}while(r); +S_10068:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(7974);if(r)goto S_9629;} -S_9630:; +if(qbevent){evnt(8315);if(r)goto S_10068;} +S_10069:; if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(7975);if(r)goto S_9630;} +if(qbevent){evnt(8316);if(r)goto S_10069;} do{ *__LONG_XI= 1 ; -if(!qbevent)break;evnt(7976);}while(r); -S_9632:; -fornext_value1114= 1 ; -fornext_finalvalue1114=*__LONG_STATICARRAYLISTN; -fornext_step1114= 1 ; -if (fornext_step1114<0) fornext_step_negative1114=1; else fornext_step_negative1114=0; -if (new_error) goto fornext_error1114; -goto fornext_entrylabel1114; +if(!qbevent)break;evnt(8317);}while(r); +S_10071:; +fornext_value1192= 1 ; +fornext_finalvalue1192=*__LONG_STATICARRAYLISTN; +fornext_step1192= 1 ; +if (fornext_step1192<0) fornext_step_negative1192=1; else fornext_step_negative1192=0; +if (new_error) goto fornext_error1192; +goto fornext_entrylabel1192; while(1){ -fornext_value1114=fornext_step1114+(*__LONG_X); -fornext_entrylabel1114: -*__LONG_X=fornext_value1114; -if (fornext_step_negative1114){ -if (fornext_value1114fornext_finalvalue1114) break; +if (fornext_value1192>fornext_finalvalue1192) break; } -fornext_error1114:; -if(qbevent){evnt(7977);if(r)goto S_9632;} +fornext_error1192:; +if(qbevent){evnt(8318);if(r)goto S_10071;} do{ qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7978);}while(r); +if(!qbevent)break;evnt(8319);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(7978);}while(r); +if(!qbevent)break;evnt(8319);}while(r); do{ qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7979);}while(r); +if(!qbevent)break;evnt(8320);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(7979);}while(r); +if(!qbevent)break;evnt(8320);}while(r); do{ *__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7980);}while(r); +if(!qbevent)break;evnt(8321);}while(r); do{ *__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(7980);}while(r); -S_9639:; +if(!qbevent)break;evnt(8321);}while(r); +S_10078:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ -if(qbevent){evnt(7982);if(r)goto S_9639;} -S_9640:; +if(qbevent){evnt(8323);if(r)goto S_10078;} +S_10079:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(7983);if(r)goto S_9640;} -S_9641:; +if(qbevent){evnt(8324);if(r)goto S_10079;} +S_10080:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7984);if(r)goto S_9641;} +if(qbevent){evnt(8325);if(r)goto S_10080;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7984);}while(r); +if(!qbevent)break;evnt(8325);}while(r); } -S_9644:; +S_10083:; if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ -if(qbevent){evnt(7985);if(r)goto S_9644;} +if(qbevent){evnt(8326);if(r)goto S_10083;} do{ qbs_set(__STRING_VARNAME,__STRING_VARNAME2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7987);}while(r); +if(!qbevent)break;evnt(8328);}while(r); do{ *__LONG_DIMSTATIC= 3 ; -if(!qbevent)break;evnt(7988);}while(r); -S_9647:; +if(!qbevent)break;evnt(8329);}while(r); +S_10086:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(7989);if(r)goto S_9647;} +if(qbevent){evnt(8330);if(r)goto S_10086;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Array already listed as STATIC",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7989);}while(r); +if(!qbevent)break;evnt(8330);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(7989);}while(r); +if(!qbevent)break;evnt(8330);}while(r); } } } } -fornext_continue_1113:; +fornext_continue_1191:; } -fornext_exit_1113:; +fornext_exit_1191:; } } -S_9657:; +S_10096:; if ((*__LONG_COMMONOPTION)||new_error){ -if(qbevent){evnt(8000);if(r)goto S_9657;} -S_9658:; +if(qbevent){evnt(8341);if(r)goto S_10096;} +S_10097:; if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8001);if(r)goto S_9658;} -S_9659:; +if(qbevent){evnt(8342);if(r)goto S_10097;} +S_10098:; if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||new_error){ -if(qbevent){evnt(8004);if(r)goto S_9659;} +if(qbevent){evnt(8345);if(r)goto S_10098;} do{ qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8004);}while(r); +if(!qbevent)break;evnt(8345);}while(r); } do{ -qbs_set(__STRING_COMMONARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_COMMONARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1117=*__INTEGER_DIMSHARED)))); +qbs_set(__STRING_COMMONARRAYLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_COMMONARRAYLIST,__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1195=*__INTEGER_DIMSHARED)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8006);}while(r); -S_9663:; +if(!qbevent)break;evnt(8347);}while(r); +S_10102:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8007);if(r)goto S_9663;} +if(qbevent){evnt(8348);if(r)goto S_10102;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8007);}while(r); +if(!qbevent)break;evnt(8348);}while(r); } do{ *__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ; -if(!qbevent)break;evnt(8008);}while(r); -S_9667:; +if(!qbevent)break;evnt(8349);}while(r); +S_10106:; if (( 0 )||new_error){ -if(qbevent){evnt(8009);if(r)goto S_9667;} +if(qbevent){evnt(8350);if(r)goto S_10106;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1118; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common listed:",14),__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1119=*__INTEGER_DIMSHARED))), 0 , 0 , 1 ); -if (new_error) goto skip1118; -skip1118: +if (new_error) goto skip1196; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common listed:",14),__STRING_VARNAME),__STRING1_SP),FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1197=*__INTEGER_DIMSHARED))), 0 , 0 , 1 ); +if (new_error) goto skip1196; +skip1196: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8009);}while(r); +if(!qbevent)break;evnt(8350);}while(r); } -S_9670:; +S_10109:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8010);if(r)goto S_9670;} +if(qbevent){evnt(8351);if(r)goto S_10109;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8010);}while(r); +if(!qbevent)break;evnt(8351);}while(r); } do{ *__LONG_X= 0 ; -if(!qbevent)break;evnt(8012);}while(r); +if(!qbevent)break;evnt(8353);}while(r); do{ qbs_set(__STRING_V,__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8014);}while(r); -S_9675:; +if(!qbevent)break;evnt(8355);}while(r); +S_10114:; if ((-(*__LONG_DIMMETHOD== 1 ))||new_error){ -if(qbevent){evnt(8015);if(r)goto S_9675;} +if(qbevent){evnt(8356);if(r)goto S_10114;} do{ qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8015);}while(r); +if(!qbevent)break;evnt(8356);}while(r); } do{ *__LONG_TRY=FUNC_FINDID(__STRING_V); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8016);}while(r); -S_9679:; +if(!qbevent)break;evnt(8357);}while(r); +S_10118:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8017);if(r)goto S_9679;} +if(qbevent){evnt(8358);if(r)goto S_10118;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8017);}while(r); +if(!qbevent)break;evnt(8358);}while(r); } -S_9682:; +S_10121:; while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(8018);if(r)goto S_9682;} -S_9683:; +if(qbevent){evnt(8359);if(r)goto S_10121;} +S_10122:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(8019);if(r)goto S_9683;} +if(qbevent){evnt(8360);if(r)goto S_10122;} do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8021);}while(r); -S_9685:; +if(!qbevent)break;evnt(8362);}while(r); +S_10124:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8022);if(r)goto S_9685;} +if(qbevent){evnt(8363);if(r)goto S_10124;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8022);}while(r); +if(!qbevent)break;evnt(8363);}while(r); } do{ *__LONG_S=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(8023);}while(r); +if(!qbevent)break;evnt(8364);}while(r); do{ *__LONG_MATCH= 1 ; -if(!qbevent)break;evnt(8024);}while(r); -S_9690:; +if(!qbevent)break;evnt(8365);}while(r); +S_10129:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8026);if(r)goto S_9690;} +if(qbevent){evnt(8367);if(r)goto S_10129;} do{ *__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(8027);}while(r); +if(!qbevent)break;evnt(8368);}while(r); do{ *__LONG_S2=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(8028);}while(r); -S_9693:; +if(!qbevent)break;evnt(8369);}while(r); +S_10132:; if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||new_error){ -if(qbevent){evnt(8029);if(r)goto S_9693;} +if(qbevent){evnt(8370);if(r)goto S_10132;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8029);}while(r); +if(!qbevent)break;evnt(8370);}while(r); } -S_9696:; +S_10135:; if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||new_error){ -if(qbevent){evnt(8030);if(r)goto S_9696;} +if(qbevent){evnt(8371);if(r)goto S_10135;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8030);}while(r); +if(!qbevent)break;evnt(8371);}while(r); } -S_9699:; +S_10138:; if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(8031);if(r)goto S_9699;} +if(qbevent){evnt(8372);if(r)goto S_10138;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8031);}while(r); +if(!qbevent)break;evnt(8372);}while(r); } -S_9702:; +S_10141:; if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||new_error){ -if(qbevent){evnt(8032);if(r)goto S_9702;} +if(qbevent){evnt(8373);if(r)goto S_10141;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8032);}while(r); +if(!qbevent)break;evnt(8373);}while(r); } -S_9705:; +S_10144:; if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||new_error){ -if(qbevent){evnt(8033);if(r)goto S_9705;} +if(qbevent){evnt(8374);if(r)goto S_10144;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8033);}while(r); +if(!qbevent)break;evnt(8374);}while(r); } -S_9708:; +S_10147:; if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||new_error){ -if(qbevent){evnt(8034);if(r)goto S_9708;} +if(qbevent){evnt(8375);if(r)goto S_10147;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8034);}while(r); +if(!qbevent)break;evnt(8375);}while(r); } -S_9711:; +S_10150:; if ((-((*__LONG_T& 511 )!=(*__LONG_T2& 511 )))||new_error){ -if(qbevent){evnt(8035);if(r)goto S_9711;} +if(qbevent){evnt(8376);if(r)goto S_10150;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8035);}while(r); +if(!qbevent)break;evnt(8376);}while(r); } -S_9714:; +S_10153:; if ((-(*__LONG_S!=*__LONG_S2))||new_error){ -if(qbevent){evnt(8036);if(r)goto S_9714;} +if(qbevent){evnt(8377);if(r)goto S_10153;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8036);}while(r); +if(!qbevent)break;evnt(8377);}while(r); } do{ *__LONG_OLDMETHOD= 0 ; -if(!qbevent)break;evnt(8038);}while(r); -S_9718:; +if(!qbevent)break;evnt(8379);}while(r); +S_10157:; if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8038);if(r)goto S_9718;} +if(qbevent){evnt(8379);if(r)goto S_10157;} do{ *__LONG_OLDMETHOD= 1 ; -if(!qbevent)break;evnt(8038);}while(r); +if(!qbevent)break;evnt(8379);}while(r); } -S_9721:; +S_10160:; if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||new_error){ -if(qbevent){evnt(8039);if(r)goto S_9721;} +if(qbevent){evnt(8380);if(r)goto S_10160;} do{ *__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8039);}while(r); +if(!qbevent)break;evnt(8380);}while(r); } } -S_9725:; +S_10164:; if ((*__LONG_MATCH)||new_error){ -if(qbevent){evnt(8042);if(r)goto S_9725;} +if(qbevent){evnt(8383);if(r)goto S_10164;} do{ *__LONG_X=*__LONG_CURRENTID; -if(!qbevent)break;evnt(8043);}while(r); -S_9727:; +if(!qbevent)break;evnt(8384);}while(r); +S_10166:; if ((*__INTEGER_DIMSHARED)||new_error){ -if(qbevent){evnt(8044);if(r)goto S_9727;} +if(qbevent){evnt(8385);if(r)goto S_10166;} do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))= 1 ; -if(!qbevent)break;evnt(8044);}while(r); +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_X)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))= 1 ; +if(!qbevent)break;evnt(8385);}while(r); } do{ qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8045);}while(r); -S_9731:; +if(!qbevent)break;evnt(8386);}while(r); +S_10170:; if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8047);if(r)goto S_9731;} -S_9732:; +if(qbevent){evnt(8388);if(r)goto S_10170;} +S_10171:; if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(8048);if(r)goto S_9732;} +if(qbevent){evnt(8389);if(r)goto S_10171;} do{ qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8049);}while(r); +if(!qbevent)break;evnt(8390);}while(r); +S_10173:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_TYP),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(8391);if(r)goto S_10173;} +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8392);}while(r); +} }else{ do{ qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8051);}while(r); -S_9736:; +if(!qbevent)break;evnt(8395);}while(r); +S_10178:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(8052);if(r)goto S_9736;} +if(qbevent){evnt(8396);if(r)goto S_10178;} do{ tqbs=__STRING_DIM2TYPEPASSBACK; if (!new_error){ tmp_fileno=func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0); if (!new_error){ tmp_long=qbs_asc(__STRING1_SP); if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(8053);}while(r); -dl_continue_1121:; +if(!qbevent)break;evnt(8397);}while(r); +dl_continue_1199:; } -dl_exit_1121:; +dl_exit_1199:; do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_ucase(__STRING_DIM2TYPEPASSBACK)); +qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8055);}while(r); +if(!qbevent)break;evnt(8399);}while(r); } } do{ -goto dl_exit_1120; -if(!qbevent)break;evnt(8059);}while(r); +goto dl_exit_1198; +if(!qbevent)break;evnt(8403);}while(r); } } -S_9745:; +S_10187:; if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(8063);if(r)goto S_9745;} +if(qbevent){evnt(8407);if(r)goto S_10187;} do{ *__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(8063);}while(r); +if(!qbevent)break;evnt(8407);}while(r); do{ *__LONG_TRY=FUNC_FINDID(__STRING_V); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8063);}while(r); +if(!qbevent)break;evnt(8407);}while(r); }else{ do{ *__LONG_TRY= 0 ; -if(!qbevent)break;evnt(8063);}while(r); +if(!qbevent)break;evnt(8407);}while(r); } -S_9751:; +S_10193:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8064);if(r)goto S_9751;} +if(qbevent){evnt(8408);if(r)goto S_10193;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8064);}while(r); +if(!qbevent)break;evnt(8408);}while(r); } -dl_continue_1120:; +dl_continue_1198:; } -dl_exit_1120:; -S_9755:; +dl_exit_1198:; +S_10197:; if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(8067);if(r)goto S_9755;} +if(qbevent){evnt(8411);if(r)goto S_10197;} do{ *__LONG_X=*__LONG_IDN+ 1 ; -if(!qbevent)break;evnt(8067);}while(r); +if(!qbevent)break;evnt(8411);}while(r); } do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 5 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8070);}while(r); +if(!qbevent)break;evnt(8414);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 22 ; -if (new_error) goto skip1122; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip1122; -skip1122: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8072);}while(r); -do{ -sub_close( 22 ,1); -if(!qbevent)break;evnt(8073);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 22 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8075);}while(r); -do{ -sub_close( 22 ,1); -if(!qbevent)break;evnt(8075);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 5 ,NULL,NULL, 22 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8077);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 22 ; -if (new_error) goto skip1123; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip1123; -skip1123: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8079);}while(r); -do{ -sub_close( 22 ,1); -if(!qbevent)break;evnt(8080);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 22 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8082);}while(r); -do{ -sub_close( 22 ,1); -if(!qbevent)break;evnt(8082);}while(r); -S_9768:; -if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||new_error){ -if(qbevent){evnt(8085);if(r)goto S_9768;} -do{ -goto LABEL_SKIPDIM; -if(!qbevent)break;evnt(8085);}while(r); -} -do{ -goto LABEL_DIMCOMMONARRAY; -if(!qbevent)break;evnt(8086);}while(r); -} -} -S_9774:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8093);if(r)goto S_9774;} -S_9775:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(8094);if(r)goto S_9775;} -S_9776:; -if (( 0 )||new_error){ -if(qbevent){evnt(8096);if(r)goto S_9776;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1125; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0 , 0 , 1 ); -if (new_error) goto skip1125; -skip1125: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8096);}while(r); -} -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(8098);}while(r); -S_9780:; -fornext_value1127= 1 ; -fornext_finalvalue1127=*__LONG_COMMONARRAYLISTN; -fornext_step1127= 1 ; -if (fornext_step1127<0) fornext_step_negative1127=1; else fornext_step_negative1127=0; -if (new_error) goto fornext_error1127; -goto fornext_entrylabel1127; -while(1){ -fornext_value1127=fornext_step1127+(*__LONG_X); -fornext_entrylabel1127: -*__LONG_X=fornext_value1127; -if (fornext_step_negative1127){ -if (fornext_value1127fornext_finalvalue1127) break; -} -fornext_error1127:; -if(qbevent){evnt(8099);if(r)goto S_9780;} -do{ -qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8100);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8100);}while(r); -do{ -qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8101);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8101);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8102);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8102);}while(r); -do{ -*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8103);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8103);}while(r); -S_9789:; -if (( 0 )||new_error){ -if(qbevent){evnt(8104);if(r)goto S_9789;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1128; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common checking against:",24),__STRING_VARNAME2),__STRING1_SP),__STRING_TYP2),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD2)),__STRING1_SP),FUNC_STR2(__LONG_DIMSHARED2)), 0 , 0 , 1 ); -if (new_error) goto skip1128; -skip1128: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8104);}while(r); -} -S_9792:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||new_error){ -if(qbevent){evnt(8106);if(r)goto S_9792;} -S_9793:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(8107);if(r)goto S_9793;} -S_9794:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8108);if(r)goto S_9794;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8108);}while(r); -} -S_9797:; -if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ -if(qbevent){evnt(8109);if(r)goto S_9797;} -S_9798:; -if ((*__LONG_DIMSHARED2)||new_error){ -if(qbevent){evnt(8113);if(r)goto S_9798;} -do{ -*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ; -if(!qbevent)break;evnt(8113);}while(r); -} -} -} -} -fornext_continue_1126:; -} -fornext_exit_1126:; -} -} -LABEL_DIMCOMMONARRAY:; -if(qbevent){evnt(8125);r=0;} -do{ -*__LONG_RETVAL=FUNC_DIM2(__STRING_VARNAME,__STRING_TYP,__LONG_DIMMETHOD,__STRING_ELEMENTS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8126);}while(r); -S_9808:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8127);if(r)goto S_9808;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8127);}while(r); -} -LABEL_SKIPDIM:; -if(qbevent){evnt(8128);r=0;} -S_9811:; -if ((-(*__INTEGER_DIMSHARED>= 2 ))||new_error){ -if(qbevent){evnt(8129);if(r)goto S_9811;} -do{ -*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ; -if(!qbevent)break;evnt(8129);}while(r); -} -S_9814:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||new_error){ -if(qbevent){evnt(8132);if(r)goto S_9814;} -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; -if(!qbevent)break;evnt(8136);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(8139);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 5 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8140);}while(r); -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8141);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1130; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=1;",11), 0 , 0 , 1 ); -if (new_error) goto skip1130; -skip1130: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8143);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1131; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1131; -skip1131: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8144);}while(r); -do{ -*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(8146);}while(r); -do{ -*__LONG_BITS=*__LONG_T& 511 ; -if(!qbevent)break;evnt(8147);}while(r); -S_9823:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(8148);if(r)goto S_9823;} -do{ -*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(8148);}while(r); -} -S_9826:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(8149);if(r)goto S_9826;} -S_9827:; -if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(8150);if(r)goto S_9827;} -do{ -*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+(540))* 8 ; -if(!qbevent)break;evnt(8151);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1132; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=__STRING_",18),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len*8;",8)), 0 , 0 , 1 ); -if (new_error) goto skip1132; -skip1132: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8153);}while(r); -do{ -*__LONG_BITS= 0 ; -if(!qbevent)break;evnt(8154);}while(r); -} -} -S_9834:; -if ((*__LONG_BITS)||new_error){ -if(qbevent){evnt(8158);if(r)goto S_9834;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1133; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1133; -skip1133: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8159);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1134; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1134; -skip1134: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8161);}while(r); -do{ -qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8164);}while(r); -S_9839:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(8166);if(r)goto S_9839;} -S_9840:; -if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(8167);if(r)goto S_9840;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8168);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8170);}while(r); -S_9844:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8171);if(r)goto S_9844;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8171);}while(r); -} -} -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1135= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8174);}while(r); -S_9850:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8175);if(r)goto S_9850;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8175);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1136; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1136; -skip1136: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8177);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,__STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8179);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(8181);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 5 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8182);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(8188);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 5 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8189);}while(r); -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8190);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1137; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==1){",17), 0 , 0 , 1 ); -if (new_error) goto skip1137; -skip1137: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8193);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1138; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1138; -skip1138: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8195);}while(r); -do{ -qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8198);}while(r); -do{ -*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(8199);}while(r); -S_9864:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(8200);if(r)goto S_9864;} -S_9865:; -if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(8201);if(r)goto S_9865;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8202);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8204);}while(r); -S_9869:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8205);if(r)goto S_9869;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8205);}while(r); -} -} -} -S_9874:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(8209);if(r)goto S_9874;} -S_9875:; -if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(8210);if(r)goto S_9875;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1139; -sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28), 0 , 0 , 1 ); -if (new_error) goto skip1139; -skip1139: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8211);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1140; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_",17),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(",tqbs);",7)), 0 , 0 , 1 ); -if (new_error) goto skip1140; -skip1140: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8212);}while(r); -} -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1141= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8217);}while(r); -S_9881:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8218);if(r)goto S_9881;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8218);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1142; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1142; -skip1142: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8219);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1143; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1143; -skip1143: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8221);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1144; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1144; -skip1144: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8222);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,__STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8224);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(8226);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 5 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8227);}while(r); -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(8229);}while(r); -} -LABEL_COMMONARRAYLISTED:; -if(qbevent){evnt(8233);r=0;} -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8235);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1145= 1 ))),__STRING_APPENDNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8236);}while(r); -S_9894:; -if ((-(*__LONG_N2> 1 ))||new_error){ -if(qbevent){evnt(8237);if(r)goto S_9894;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1146= 2 ),__LONG_N2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8238);}while(r); -} -S_9897:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_APPENDTYPE->len))||new_error){ -if(qbevent){evnt(8241);if(r)goto S_9897;} -S_9898:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ -if(qbevent){evnt(8242);if(r)goto S_9898;} -do{ -qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_DIM2TYPEPASSBACK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8242);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8243);}while(r); -} -do{ -*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC; -if(!qbevent)break;evnt(8248);}while(r); -} -S_9905:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(8252);if(r)goto S_9905;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8252);}while(r); -do{ -goto LABEL_DIMNEXT; -if(!qbevent)break;evnt(8252);}while(r); -} -do{ -*__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(8254);}while(r); -do{ -*__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(8255);}while(r); -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(8256);}while(r); -S_9912:; -if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ -if(qbevent){evnt(8257);if(r)goto S_9912;} -do{ -*__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(8257);}while(r); -} -do{ -*__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(8258);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8260);}while(r); -S_9917:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(8261);if(r)goto S_9917;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8261);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8261);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8263);}while(r); -} -} -S_9925:; -if ((-(*__LONG_THENGOTO== 1 ))||new_error){ -if(qbevent){evnt(8278);if(r)goto S_9925;} -S_9926:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8279);if(r)goto S_9926;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8280);}while(r); -do{ -*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8281);}while(r); -S_9929:; -if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||new_error){ -if(qbevent){evnt(8282);if(r)goto S_9929;} -do{ -qbs_set(__STRING_A2,__STRING_CA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8282);}while(r); -do{ -goto LABEL_THENGOTO; -if(!qbevent)break;evnt(8282);}while(r); -} -} -} -S_9935:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(8287);if(r)goto S_9935;} -S_9936:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1150= 1 )),qbs_new_txt_len("GOTO",4))))||new_error){ -if(qbevent){evnt(8288);if(r)goto S_9936;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("GOTO",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8289);}while(r); -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1151= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8290);}while(r); -LABEL_THENGOTO:; -if(qbevent){evnt(8291);r=0;} -S_9939:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(8292);if(r)goto S_9939;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8292);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8292);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1152= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8294);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8295);}while(r); -LABEL_LABCHK2:; -if(qbevent){evnt(8296);r=0;} -S_9945:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8297);if(r)goto S_9945;} -do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(8298);}while(r); -S_9947:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(8299);if(r)goto S_9947;} -S_9948:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(8300);if(r)goto S_9948;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(8300);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8301);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8302);}while(r); -}else{ -S_9954:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(8304);if(r)goto S_9954;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(8304);}while(r); -do{ -goto LABEL_LABCHK2; -if(!qbevent)break;evnt(8304);}while(r); -} -} -} -S_9960:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8307);if(r)goto S_9960;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8309);}while(r); -S_9962:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8309);if(r)goto S_9962;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8309);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elementslen))||new_error){ -if(qbevent){evnt(8319);if(r)goto S_9974;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8319);}while(r); -}else{ -do{ -qbs_set(__STRING_L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8319);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8320);}while(r); -S_9980:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8320);if(r)goto S_9980;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8320);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8320);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1156; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1156; -skip1156: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8321);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8322);}while(r); -} -} -S_9989:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8326);if(r)goto S_9989;} -S_9990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||new_error){ -if(qbevent){evnt(8327);if(r)goto S_9990;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("_CONTINUE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8328);}while(r); -S_9992:; -fornext_value1158=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue1158= 1 ; -fornext_step1158= -1 ; -if (fornext_step1158<0) fornext_step_negative1158=1; else fornext_step_negative1158=0; -if (new_error) goto fornext_error1158; -goto fornext_entrylabel1158; -while(1){ -fornext_value1158=fornext_step1158+(*__LONG_I); -fornext_entrylabel1158: -*__LONG_I=fornext_value1158; -if (fornext_step_negative1158){ -if (fornext_value1158fornext_finalvalue1158) break; -} -fornext_error1158:; -if(qbevent){evnt(8330);if(r)goto S_9992;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(8331);}while(r); -S_9994:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(8332);if(r)goto S_9994;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1159; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_continue_",22),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1159; -skip1159: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8333);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8334);}while(r); -S_9997:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8334);if(r)goto S_9997;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8334);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8334);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8335);}while(r); -S_10003:; -}else{ -if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){ -if(qbevent){evnt(8336);if(r)goto S_10003;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1161; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto dl_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1161; -skip1161: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8337);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8338);}while(r); -S_10006:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8338);if(r)goto S_10006;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8338);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8338);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8339);}while(r); -S_10012:; -}else{ -if (-(*__LONG_T== 5 )){ -if(qbevent){evnt(8340);if(r)goto S_10012;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1163; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ww_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1163; -skip1163: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8341);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8342);}while(r); -S_10015:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8342);if(r)goto S_10015;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8342);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8342);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8343);}while(r); -} -} -} -fornext_continue_1157:; -} -fornext_exit_1157:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("_CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8346);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8346);}while(r); -} -} -S_10027:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||new_error){ -if(qbevent){evnt(8350);if(r)goto S_10027;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("RUN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8351);}while(r); -S_10029:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8352);if(r)goto S_10029;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1165; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_run_init();",15), 0 , 0 , 1 ); -if (new_error) goto skip1165; -skip1165: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8354);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1166; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31), 0 , 0 , 1 ); -if (new_error) goto skip1166; -skip1166: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8355);}while(r); -S_10032:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(8356);if(r)goto S_10032;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1168; -sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); -if (new_error) goto skip1168; -skip1168: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8357);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1169; -sub_file_print(tmp_fileno,qbs_new_txt_len("goto S_0;",9), 0 , 0 , 1 ); -if (new_error) goto skip1169; -skip1169: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8359);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1170= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8363);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8364);}while(r); -S_10040:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8365);if(r)goto S_10040;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8365);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8366);}while(r); -do{ -qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8367);}while(r); -S_10045:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8368);if(r)goto S_10045;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8368);}while(r); -} -S_10048:; -if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||new_error){ -if(qbevent){evnt(8369);if(r)goto S_10048;} -do{ -qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1171= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8371);}while(r); -S_10050:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ -if(qbevent){evnt(8372);if(r)goto S_10050;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8372);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8372);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1172= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8374);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8375);}while(r); -LABEL_LABCHK501:; -if(qbevent){evnt(8376);r=0;} -S_10056:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8377);if(r)goto S_10056;} -do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(8378);}while(r); -S_10058:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(8379);if(r)goto S_10058;} -S_10059:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(8380);if(r)goto S_10059;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; -if(!qbevent)break;evnt(8380);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8381);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8382);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(8383);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(8384);}while(r); -}else{ -S_10067:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(8386);if(r)goto S_10067;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(8386);}while(r); -do{ -goto LABEL_LABCHK501; -if(!qbevent)break;evnt(8386);}while(r); -} -} -} -S_10073:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8389);if(r)goto S_10073;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8391);}while(r); -S_10075:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8391);if(r)goto S_10075;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8391);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elementslen))||new_error){ -if(qbevent){evnt(8405);if(r)goto S_10091;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 21 ; -if (new_error) goto skip1177; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (run_from_line==",19),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len("){run_from_line=0;goto LABEL_",29)),__STRING_LBL),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); -if (new_error) goto skip1177; -skip1177: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8406);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1178; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1178; -skip1178: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8407);}while(r); -do{ -*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ; -if(!qbevent)break;evnt(8408);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1179; -sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); -if (new_error) goto skip1179; -skip1179: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8409);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1180; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_LBL),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1180; -skip1180: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8411);}while(r); -} -}else{ -S_10100:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(8415);if(r)goto S_10100;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8415);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8415);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8416);}while(r); -S_10105:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8417);if(r)goto S_10105;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8417);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1181; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_run(",8),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1181; -skip1181: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8418);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8419);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8422);}while(r); -S_10113:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8422);if(r)goto S_10113;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8422);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8422);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8423);}while(r); -} -S_10120:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(8430);if(r)goto S_10120;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("END",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8431);}while(r); -S_10122:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(8432);if(r)goto S_10122;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1183= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8433);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8434);}while(r); -S_10125:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8434);if(r)goto S_10125;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8434);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8435);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8436);}while(r); -S_10130:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8436);if(r)goto S_10130;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8436);}while(r); -} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8437);}while(r); -S_10134:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(8438);if(r)goto S_10134;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8439);}while(r); -do{ -qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8440);}while(r); -do{ -qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8441);}while(r); -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8442);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1185; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)), 0 , 0 , 1 ); -if (new_error) goto skip1185; -skip1185: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8444);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1186; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1186; -skip1186: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8445);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8446);}while(r); -} -do{ -SUB_XEND(); -if(!qbevent)break;evnt(8448);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8449);}while(r); -S_10146:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8449);if(r)goto S_10146;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8449);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8449);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8450);}while(r); -} -S_10153:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||new_error){ -if(qbevent){evnt(8453);if(r)goto S_10153;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("SYSTEM",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8454);}while(r); -S_10155:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(8455);if(r)goto S_10155;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1188= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8456);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8457);}while(r); -S_10158:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8457);if(r)goto S_10158;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8457);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8458);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8459);}while(r); -S_10163:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8459);if(r)goto S_10163;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8459);}while(r); -} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8460);}while(r); -S_10167:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(8461);if(r)goto S_10167;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8462);}while(r); -do{ -qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8463);}while(r); -do{ -qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8464);}while(r); -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8465);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1190; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)), 0 , 0 , 1 ); -if (new_error) goto skip1190; -skip1190: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8467);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1191; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1191; -skip1191: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8468);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8469);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1192; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (sub_gl_called) error(271);",30), 0 , 0 , 1 ); -if (new_error) goto skip1192; -skip1192: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8473);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1193; -sub_file_print(tmp_fileno,qbs_new_txt_len("close_program=1;",16), 0 , 0 , 1 ); -if (new_error) goto skip1193; -skip1193: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8474);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1194; -sub_file_print(tmp_fileno,qbs_new_txt_len("end();",6), 0 , 0 , 1 ); -if (new_error) goto skip1194; -skip1194: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8475);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8476);}while(r); -S_10181:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8476);if(r)goto S_10181;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8476);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8476);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8477);}while(r); -} -S_10188:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8480);if(r)goto S_10188;} -S_10189:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||new_error){ -if(qbevent){evnt(8481);if(r)goto S_10189;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("STOP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8482);}while(r); -S_10191:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(8483);if(r)goto S_10191;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1196= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8484);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8485);}while(r); -S_10194:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8486);if(r)goto S_10194;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8486);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("STOP",4),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8487);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1197= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8488);}while(r); -S_10199:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8489);if(r)goto S_10199;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8489);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8492);}while(r); -S_10204:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8492);if(r)goto S_10204;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8492);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8492);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1199; -sub_file_print(tmp_fileno,qbs_new_txt_len("close_program=1;",16), 0 , 0 , 1 ); -if (new_error) goto skip1199; -skip1199: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8493);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1200; -sub_file_print(tmp_fileno,qbs_new_txt_len("end();",6), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip1200; skip1200: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8494);}while(r); +if(!qbevent)break;evnt(8416);}while(r); do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8495);}while(r); -} -} -S_10214:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(8499);if(r)goto S_10214;} -S_10215:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(8500);if(r)goto S_10215;} +sub_close( 22 ,1); +if(!qbevent)break;evnt(8417);}while(r); do{ -SUB_XGOSUB(__STRING_CA); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8501);}while(r); -S_10217:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8502);if(r)goto S_10217;} +if(!qbevent)break;evnt(8419);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8502);}while(r); -} +sub_close( 22 ,1); +if(!qbevent)break;evnt(8419);}while(r); do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8504);}while(r); -} -} -S_10223:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8508);if(r)goto S_10223;} -S_10224:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||new_error){ -if(qbevent){evnt(8509);if(r)goto S_10224;} -S_10225:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8510);if(r)goto S_10225;} +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain.txt",12)), 5 ,NULL,NULL, 22 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8421);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 22 ; if (new_error) goto skip1201; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("ret",3)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); if (new_error) goto skip1201; skip1201: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8511);}while(r); +if(!qbevent)break;evnt(8423);}while(r); do{ -qbs_set(__STRING_L,qbs_new_txt_len("RETURN",6)); +sub_close( 22 ,1); +if(!qbevent)break;evnt(8424);}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 22 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8512);}while(r); +if(!qbevent)break;evnt(8426);}while(r); do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8513);}while(r); -S_10229:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8513);if(r)goto S_10229;} +sub_close( 22 ,1); +if(!qbevent)break;evnt(8426);}while(r); +S_10210:; +if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||new_error){ +if(qbevent){evnt(8429);if(r)goto S_10210;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8513);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8513);}while(r); +goto LABEL_SKIPDIM; +if(!qbevent)break;evnt(8429);}while(r); } do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8514);}while(r); -}else{ -S_10236:; -if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ -if(qbevent){evnt(8517);if(r)goto S_10236;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("RETURN linelabel/linenumber invalid within a SUB/FUNCTION",57)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8517);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8517);}while(r); +goto LABEL_DIMCOMMONARRAY; +if(!qbevent)break;evnt(8430);}while(r); } -S_10240:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(8518);if(r)goto S_10240;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected linelabel/linenumber after RETURN",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8518);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8518);}while(r); } +S_10216:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8437);if(r)goto S_10216;} +S_10217:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(8438);if(r)goto S_10217;} +S_10218:; +if (( 0 )||new_error){ +if(qbevent){evnt(8440);if(r)goto S_10218;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1203; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (!next_return_point) error(3);",33), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0 , 0 , 1 ); if (new_error) goto skip1203; skip1203: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8519);}while(r); +if(!qbevent)break;evnt(8440);}while(r); +} +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(8442);}while(r); +S_10222:; +fornext_value1205= 1 ; +fornext_finalvalue1205=*__LONG_COMMONARRAYLISTN; +fornext_step1205= 1 ; +if (fornext_step1205<0) fornext_step_negative1205=1; else fornext_step_negative1205=0; +if (new_error) goto fornext_error1205; +goto fornext_entrylabel1205; +while(1){ +fornext_value1205=fornext_step1205+(*__LONG_X); +fornext_entrylabel1205: +*__LONG_X=fornext_value1205; +if (fornext_step_negative1205){ +if (fornext_value1205fornext_finalvalue1205) break; +} +fornext_error1205:; +if(qbevent){evnt(8443);if(r)goto S_10222;} +do{ +qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8444);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8444);}while(r); +do{ +qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8445);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8445);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8446);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8446);}while(r); +do{ +*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8447);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8447);}while(r); +S_10231:; +if (( 0 )||new_error){ +if(qbevent){evnt(8448);if(r)goto S_10231;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1204; -sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); -if (new_error) goto skip1204; -skip1204: +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1206; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("common checking against:",24),__STRING_VARNAME2),__STRING1_SP),__STRING_TYP2),__STRING1_SP),FUNC_STR2(__LONG_DIMMETHOD2)),__STRING1_SP),FUNC_STR2(__LONG_DIMSHARED2)), 0 , 0 , 1 ); +if (new_error) goto skip1206; +skip1206: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8520);}while(r); -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1205= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8521);}while(r); -S_10247:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(8522);if(r)goto S_10247;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8522);}while(r); +if(!qbevent)break;evnt(8448);}while(r); +} +S_10234:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||new_error){ +if(qbevent){evnt(8450);if(r)goto S_10234;} +S_10235:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ +if(qbevent){evnt(8451);if(r)goto S_10235;} +S_10236:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8452);if(r)goto S_10236;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8522);}while(r); +if(!qbevent)break;evnt(8452);}while(r); } +S_10239:; +if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ +if(qbevent){evnt(8453);if(r)goto S_10239;} +S_10240:; +if ((*__LONG_DIMSHARED2)||new_error){ +if(qbevent){evnt(8457);if(r)goto S_10240;} do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1206= 2 ),__LONG_IGNORE,__LONG_R); +*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ; +if(!qbevent)break;evnt(8457);}while(r); +} +} +} +} +fornext_continue_1204:; +} +fornext_exit_1204:; +} +} +LABEL_DIMCOMMONARRAY:; +if(qbevent){evnt(8469);r=0;} +do{ +*__LONG_RETVAL=FUNC_DIM2(__STRING_VARNAME,__STRING_TYP,__LONG_DIMMETHOD,__STRING_ELEMENTS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8524);}while(r); +if(!qbevent)break;evnt(8470);}while(r); +S_10250:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8471);if(r)goto S_10250;} do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8525);}while(r); -LABEL_LABCHK505:; -if(qbevent){evnt(8526);r=0;} +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8471);}while(r); +} +LABEL_SKIPDIM:; +if(qbevent){evnt(8472);r=0;} S_10253:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8527);if(r)goto S_10253;} +if ((-(*__INTEGER_DIMSHARED>= 2 ))||new_error){ +if(qbevent){evnt(8473);if(r)goto S_10253;} do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(8528);}while(r); -S_10255:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(8529);if(r)goto S_10255;} +*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ; +if(!qbevent)break;evnt(8473);}while(r); +} S_10256:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(8530);if(r)goto S_10256;} +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||new_error){ +if(qbevent){evnt(8476);if(r)goto S_10256;} do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(8530);}while(r); -} +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; +if(!qbevent)break;evnt(8480);}while(r); do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8531);}while(r); +sub_close( 12 ,1); +if(!qbevent)break;evnt(8483);}while(r); do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain.txt",9)), 5 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8532);}while(r); -}else{ -S_10262:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(8534);if(r)goto S_10262;} +if(!qbevent)break;evnt(8484);}while(r); do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(8534);}while(r); -do{ -goto LABEL_LABCHK505; -if(!qbevent)break;evnt(8534);}while(r); -} -} -} -S_10268:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8537);if(r)goto S_10268;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8539);}while(r); -S_10270:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8539);if(r)goto S_10270;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8539);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elementslen))||new_error){ -if(qbevent){evnt(8551);if(r)goto S_10285;} +*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(8490);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8551);}while(r); +*__LONG_BITS=*__LONG_T& 511 ; +if(!qbevent)break;evnt(8491);}while(r); +S_10265:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(8492);if(r)goto S_10265;} +do{ +*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(8492);}while(r); +} +S_10268:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(8493);if(r)goto S_10268;} +S_10269:; +if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(8494);if(r)goto S_10269;} +do{ +*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+(540))* 8 ; +if(!qbevent)break;evnt(8495);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8551);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8552);}while(r); -} -} -} -S_10294:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8557);if(r)goto S_10294;} -S_10295:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||new_error){ -if(qbevent){evnt(8558);if(r)goto S_10295;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("RESUME",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8559);}while(r); -S_10297:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8560);if(r)goto S_10297;} -LABEL_RESUMEPREV:; -if(qbevent){evnt(8561);r=0;} -do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1210; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (!error_handling){error(20);}else{error_retry=1; qbevent=1; error_handling=0; error_err=0; return;}",102), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=__STRING_",18),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len*8;",8)), 0 , 0 , 1 ); if (new_error) goto skip1210; skip1210: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8564);}while(r); +if(!qbevent)break;evnt(8497);}while(r); do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8566);}while(r); -S_10300:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8566);if(r)goto S_10300;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8566);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8566);}while(r); +*__LONG_BITS= 0 ; +if(!qbevent)break;evnt(8498);}while(r); } -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8567);}while(r); } -S_10307:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(8569);if(r)goto S_10307;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8569);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8569);}while(r); -} -do{ -qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1212= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8570);}while(r); -S_10312:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||new_error){ -if(qbevent){evnt(8571);if(r)goto S_10312;} +S_10276:; +if ((*__LONG_BITS)||new_error){ +if(qbevent){evnt(8502);if(r)goto S_10276;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1213; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}",76), 0 , 0 , 1 ); -if (new_error) goto skip1213; -skip1213: +if (new_error) goto skip1211; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1211; +skip1211: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8574);}while(r); +if(!qbevent)break;evnt(8503);}while(r); +} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("NEXT",4))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1212; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1212; +skip1212: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8576);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8505);}while(r); do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8577);}while(r); -S_10316:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8577);if(r)goto S_10316;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8577);}while(r); +if(!qbevent)break;evnt(8508);}while(r); +S_10281:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(8510);if(r)goto S_10281;} +S_10282:; +if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(8511);if(r)goto S_10282;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8512);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8577);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8578);}while(r); -} -S_10323:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(8580);if(r)goto S_10323;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8580);}while(r); -do{ -goto LABEL_RESUMEPREV; -if(!qbevent)break;evnt(8580);}while(r); -} -S_10327:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||new_error){ -if(qbevent){evnt(8581);if(r)goto S_10327;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label passed to RESUME",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8581);}while(r); +if(!qbevent)break;evnt(8514);}while(r); +S_10286:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8515);if(r)goto S_10286;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8581);}while(r); +if(!qbevent)break;evnt(8515);}while(r); +} +} } do{ -*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1215= 2 ),__LONG_IGNORE,__LONG_R); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1213= -4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8583);}while(r); +if(!qbevent)break;evnt(8518);}while(r); +S_10292:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8519);if(r)goto S_10292;} do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8584);}while(r); -LABEL_LABCHK506:; -if(qbevent){evnt(8585);r=0;} -S_10333:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8586);if(r)goto S_10333;} -do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(8587);}while(r); -S_10335:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(8588);if(r)goto S_10335;} -S_10336:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(8589);if(r)goto S_10336;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(8589);}while(r); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8519);}while(r); } do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8590);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1214; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1214; +skip1214: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8591);}while(r); -}else{ -S_10342:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(8593);if(r)goto S_10342;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8521);}while(r); do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(8593);}while(r); -do{ -goto LABEL_LABCHK506; -if(!qbevent)break;evnt(8593);}while(r); -} -} -} -S_10348:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8596);if(r)goto S_10348;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8598);}while(r); -S_10350:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8598);if(r)goto S_10350;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8598);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elementslen))||new_error){ -if(qbevent){evnt(8609);if(r)goto S_10364;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8609);}while(r); +if(!qbevent)break;evnt(8534);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1215; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==1){",17), 0 , 0 , 1 ); +if (new_error) goto skip1215; +skip1215: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8537);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1216; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1216; +skip1216: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8539);}while(r); +do{ +qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8542);}while(r); +do{ +*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(8543);}while(r); +S_10306:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(8544);if(r)goto S_10306;} +S_10307:; +if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(8545);if(r)goto S_10307;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8546);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8609);}while(r); +if(!qbevent)break;evnt(8548);}while(r); +S_10311:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8549);if(r)goto S_10311;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8549);}while(r); } +} +} +S_10316:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(8553);if(r)goto S_10316;} +S_10317:; +if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(8554);if(r)goto S_10317;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1217; +sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28), 0 , 0 , 1 ); +if (new_error) goto skip1217; +skip1217: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8555);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1218; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_",79),__STRING_S),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(__STRING_",17),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(",tqbs);",7)), 0 , 0 , 1 ); if (new_error) goto skip1218; skip1218: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8610);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8611);}while(r); +if(!qbevent)break;evnt(8556);}while(r); } } -S_10373:; -if ((-(*__LONG_N== 4 ))||new_error){ -if(qbevent){evnt(8615);if(r)goto S_10373;} -S_10374:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1219= 1 ),&(pass1220= 3 )),(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("ERROR",5)),__STRING1_SP),qbs_new_txt_len("GOTO",4))))))||new_error){ -if(qbevent){evnt(8616);if(r)goto S_10374;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("ERROR",5)),__STRING1_SP),qbs_new_txt_len("GOTO",4))); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1219= -4 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8617);}while(r); +if(!qbevent)break;evnt(8561);}while(r); +S_10323:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8562);if(r)goto S_10323;} do{ -qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1221= 4 ))); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8562);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1220; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1220; +skip1220: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8618);}while(r); -S_10377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(8619);if(r)goto S_10377;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8563);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1221; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1221; +skip1221: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8565);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1222; -sub_file_print(tmp_fileno,qbs_new_txt_len("error_goto_line=0;",18), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1222; skip1222: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8620);}while(r); +if(!qbevent)break;evnt(8566);}while(r); do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1))); +qbs_set(__STRING_TLAYOUT,__STRING_L2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8621);}while(r); +if(!qbevent)break;evnt(8568);}while(r); +do{ +sub_close( 12 ,1); +if(!qbevent)break;evnt(8570);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8)), 5 ,NULL,NULL, 12 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8571);}while(r); +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; +if(!qbevent)break;evnt(8573);}while(r); +} +LABEL_COMMONARRAYLISTED:; +if(qbevent){evnt(8577);r=0;} +S_10334:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||new_error){ +if(qbevent){evnt(8579);if(r)goto S_10334;} +S_10335:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ +if(qbevent){evnt(8580);if(r)goto S_10335;} +do{ +qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8580);}while(r); +} +S_10338:; +if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||new_error){ +if(qbevent){evnt(8581);if(r)goto S_10338;} +do{ +*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ; +if(!qbevent)break;evnt(8582);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8583);}while(r); +} +} +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8587);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1225= 1 ))),__STRING_APPENDNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8588);}while(r); +S_10345:; +if ((-(*__LONG_N2> 1 ))||new_error){ +if(qbevent){evnt(8589);if(r)goto S_10345;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1226= 2 ),__LONG_N2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8590);}while(r); +} +S_10348:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||new_error){ +if(qbevent){evnt(8593);if(r)goto S_10348;} +S_10349:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ +if(qbevent){evnt(8594);if(r)goto S_10349;} +do{ +qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_DIM2TYPEPASSBACK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8594);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8595);}while(r); +} +do{ +*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC; +if(!qbevent)break;evnt(8600);}while(r); +} +S_10356:; +if ((*__LONG_NEWDIMSYNTAX)||new_error){ +if(qbevent){evnt(8604);if(r)goto S_10356;} +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(8604);}while(r); +} +S_10359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8606);if(r)goto S_10359;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8606);}while(r); +do{ +goto LABEL_DIMNEXT; +if(!qbevent)break;evnt(8606);}while(r); +} +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(8608);}while(r); +do{ +*__INTEGER_DIMSHARED= 0 ; +if(!qbevent)break;evnt(8609);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(8610);}while(r); +S_10366:; +if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ +if(qbevent){evnt(8611);if(r)goto S_10366;} +do{ +*__LONG_DIMSTATIC= 0 ; +if(!qbevent)break;evnt(8611);}while(r); +} +do{ +*__LONG_ALLOWLOCALNAME= 0 ; +if(!qbevent)break;evnt(8612);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8622);}while(r); -S_10381:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8622);if(r)goto S_10381;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8622);}while(r); -}else{ +if(!qbevent)break;evnt(8614);}while(r); +S_10371:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(8615);if(r)goto S_10371;} do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8622);}while(r); +if(!qbevent)break;evnt(8615);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8615);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8623);}while(r); -} -S_10388:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ -if(qbevent){evnt(8625);if(r)goto S_10388;} +if(!qbevent)break;evnt(8617);}while(r); +}else{ do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8620);}while(r); +do{ +*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ; +if(!qbevent)break;evnt(8621);}while(r); +do{ +qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8624);}while(r); +do{ +qbs_set(__STRING_APPENDTYPE,qbs_add(__STRING1_SP,FUNC_SCASE(qbs_new_txt_len("As",2)))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8625);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8625);}while(r); -} +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8626);}while(r); do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1224= 2 ),__LONG_IGNORE,__LONG_R); +qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8627);}while(r); do{ -*__LONG_X= 1 ; +qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8628);}while(r); -LABEL_LABCHK6:; -if(qbevent){evnt(8629);r=0;} -S_10394:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8630);if(r)goto S_10394;} +S_10385:; +fornext_value1231=*__LONG_I; +fornext_finalvalue1231=*__LONG_N; +fornext_step1231= 1 ; +if (fornext_step1231<0) fornext_step_negative1231=1; else fornext_step_negative1231=0; +if (new_error) goto fornext_error1231; +goto fornext_entrylabel1231; +while(1){ +fornext_value1231=fornext_step1231+(*__LONG_I); +fornext_entrylabel1231: +*__LONG_I=fornext_value1231; +if (fornext_step_negative1231){ +if (fornext_value1231fornext_finalvalue1231) break; +} +fornext_error1231:; +if(qbevent){evnt(8629);if(r)goto S_10385;} do{ -*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8630);}while(r); +S_10387:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_D,qbs_new_txt_len(",",1)))|(qbs_equal(__STRING_D,qbs_new_txt_len("(",1)))))||new_error){ +if(qbevent){evnt(8631);if(r)goto S_10387;} +do{ +goto fornext_exit_1230; if(!qbevent)break;evnt(8631);}while(r); -S_10396:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(8632);if(r)goto S_10396;} -S_10397:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(8633);if(r)goto S_10397;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; -if(!qbevent)break;evnt(8633);}while(r); } do{ -*__LONG_X= 0 ; +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8632);}while(r); +S_10391:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ +if(qbevent){evnt(8633);if(r)goto S_10391;} +do{ +qbs_set(__STRING_TYP,qbs_add(qbs_add(__STRING_TYP,__STRING_PREVIOUSELEMENT),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8634);}while(r); do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_set(__STRING_APPENDTYPE,qbs_add(qbs_add(__STRING_APPENDTYPE,__STRING1_SP),__STRING_PREVIOUSELEMENT)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8635);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(8636);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(8637);}while(r); -}else{ -S_10405:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(8639);if(r)goto S_10405;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(8639);}while(r); -do{ -goto LABEL_LABCHK6; -if(!qbevent)break;evnt(8639);}while(r); -} -} -} -S_10411:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8642);if(r)goto S_10411;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8644);}while(r); -S_10413:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8644);if(r)goto S_10413;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8644);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elements=(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(8650);if(r)goto S_10406;} do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); +qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8649);}while(r); +if(!qbevent)break;evnt(8650);}while(r); +}else{ do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8650);}while(r); do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(8651);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(8652);}while(r); +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8650);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8653);}while(r); +S_10413:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8655);if(r)goto S_10413;} +do{ +*__LONG_B= 1 ; if(!qbevent)break;evnt(8656);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8657);}while(r); -S_10428:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8657);if(r)goto S_10428;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8657);}while(r); +S_10415:; +fornext_value1234=*__LONG_I; +fornext_finalvalue1234=*__LONG_N; +fornext_step1234= 1 ; +if (fornext_step1234<0) fornext_step_negative1234=1; else fornext_step_negative1234=0; +if (new_error) goto fornext_error1234; +goto fornext_entrylabel1234; +while(1){ +fornext_value1234=fornext_step1234+(*__LONG_I); +fornext_entrylabel1234: +*__LONG_I=fornext_value1234; +if (fornext_step_negative1234){ +if (fornext_value1234fornext_finalvalue1234) break; } +fornext_error1234:; +if(qbevent){evnt(8657);if(r)goto S_10415;} do{ -*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ; +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8658);}while(r); +S_10417:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8659);if(r)goto S_10417;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1227; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1227; -skip1227: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; +*__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(8659);}while(r); +} +S_10420:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(8660);if(r)goto S_10420;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 14 ; -if (new_error) goto skip1228; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (error_goto_line==",21),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len("){error_handling=1; goto LABEL_",31)),__STRING_LBL),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); -if (new_error) goto skip1228; -skip1228: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; +*__LONG_B=*__LONG_B- 1 ; if(!qbevent)break;evnt(8660);}while(r); +} +S_10423:; +if ((-(*__LONG_B== 0 ))||new_error){ +if(qbevent){evnt(8661);if(r)goto S_10423;} do{ -goto LABEL_FINISHEDLINE; +goto fornext_exit_1233; if(!qbevent)break;evnt(8661);}while(r); } -} -S_10439:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8665);if(r)goto S_10439;} -S_10440:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||new_error){ -if(qbevent){evnt(8666);if(r)goto S_10440;} +S_10426:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8662);if(r)goto S_10426;} do{ -qbs_set(__STRING_L,qbs_new_txt_len("RESTORE",7)); +qbs_set(__STRING_ELEMENTS,qbs_add(qbs_add(__STRING_ELEMENTS,__STRING1_SP),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8662);}while(r); +}else{ +do{ +qbs_set(__STRING_ELEMENTS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8662);}while(r); +} +fornext_continue_1233:; +} +fornext_exit_1233:; +S_10432:; +if ((-(*__LONG_B!= 0 ))||new_error){ +if(qbevent){evnt(8664);if(r)goto S_10432;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8664);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8664);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8665);}while(r); +S_10437:; +if ((*__LONG_COMMONOPTION)||new_error){ +if(qbevent){evnt(8667);if(r)goto S_10437;} +do{ +qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8667);}while(r); -S_10442:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8668);if(r)goto S_10442;} +} +S_10440:; +if (( 0 )||new_error){ +if(qbevent){evnt(8670);if(r)goto S_10440;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1229; -sub_file_print(tmp_fileno,qbs_new_txt_len("data_offset=0;",14), 0 , 0 , 1 ); -if (new_error) goto skip1229; -skip1229: +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1236; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("DIM2:array:elements$:[",22),__STRING_ELEMENTS),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip1236; +skip1236: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8669);}while(r); -}else{ -S_10445:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(8671);if(r)goto S_10445;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8671);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8671);}while(r); +if(!qbevent)break;evnt(8670);}while(r); } +S_10443:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(8675);if(r)goto S_10443;} +S_10444:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ +if(qbevent){evnt(8676);if(r)goto S_10444;} do{ -qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1230= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8672);}while(r); -S_10450:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ -if(qbevent){evnt(8673);if(r)goto S_10450;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8673);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8673);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1231= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_LISTARRAY= 1 ; if(!qbevent)break;evnt(8677);}while(r); +} +} +S_10448:; +if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(8683);if(r)goto S_10448;} do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8678);}while(r); -S_10456:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8679);if(r)goto S_10456;} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8680);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8681);}while(r); +if(!qbevent)break;evnt(8683);}while(r); +}else{ do{ -*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))= 1 ; -if(!qbevent)break;evnt(8682);}while(r); -S_10460:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))== 0 ))||new_error){ -if(qbevent){evnt(8683);if(r)goto S_10460;} +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8683);}while(r); do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +*__LONG_I=*__LONG_I+ 1 ; if(!qbevent)break;evnt(8683);}while(r); } } -S_10464:; +do{ +qbs_set(__STRING_D,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8685);}while(r); +do{ +*__LONG_DIMMETHOD= 0 ; +if(!qbevent)break;evnt(8687);}while(r); +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8689);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8692);}while(r); +S_10459:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8693);if(r)goto S_10459;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8693);}while(r); +} +S_10462:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ +if(qbevent){evnt(8694);if(r)goto S_10462;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8694);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8694);}while(r); +} +S_10466:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8696);if(r)goto S_10466;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Cannot use type symbol with ",28),__STRING_FIRSTELEMENT),qbs_new_txt_len(" AS type variable-list (",24)),__STRING_S),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8697);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8698);}while(r); +} +S_10470:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(8701);if(r)goto S_10470;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8701);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8701);}while(r); +} +do{ +*__LONG_NEWDIMSYNTAX= -1 ; +if(!qbevent)break;evnt(8703);}while(r); +do{ +return_point[next_return_point++]=5; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NORMALDIMBLOCK; +RETURN_5:; +if(!qbevent)break;evnt(8704);}while(r); +do{ +*__LONG_NEWDIMSYNTAX= 0 ; +if(!qbevent)break;evnt(8705);}while(r); +S_10477:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8707);if(r)goto S_10477;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8708);}while(r); +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8709);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8709);}while(r); +do{ +goto LABEL_DIMNEXT2; +if(!qbevent)break;evnt(8710);}while(r); +} +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(8713);}while(r); +do{ +*__INTEGER_DIMSHARED= 0 ; +if(!qbevent)break;evnt(8714);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(8715);}while(r); +S_10486:; +if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ +if(qbevent){evnt(8716);if(r)goto S_10486;} +do{ +*__LONG_DIMSTATIC= 0 ; +if(!qbevent)break;evnt(8716);}while(r); +} +do{ +*__LONG_ALLOWLOCALNAME= 0 ; +if(!qbevent)break;evnt(8717);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8719);}while(r); +S_10491:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(8720);if(r)goto S_10491;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8720);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8720);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8722);}while(r); +} +} +} +S_10500:; +if ((-(*__LONG_THENGOTO== 1 ))||new_error){ +if(qbevent){evnt(8738);if(r)goto S_10500;} +S_10501:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8739);if(r)goto S_10501;} +do{ +qbs_set(__STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8740);}while(r); +do{ +*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8741);}while(r); +S_10504:; +if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||new_error){ +if(qbevent){evnt(8742);if(r)goto S_10504;} +do{ +qbs_set(__STRING_A2,__STRING_CA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8742);}while(r); +do{ +goto LABEL_THENGOTO; +if(!qbevent)break;evnt(8742);}while(r); +} +} +} +S_10510:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(8747);if(r)goto S_10510;} +S_10511:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1239= 1 )),qbs_new_txt_len("GOTO",4))))||new_error){ +if(qbevent){evnt(8748);if(r)goto S_10511;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8749);}while(r); +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1240= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8750);}while(r); +LABEL_THENGOTO:; +if(qbevent){evnt(8751);r=0;} +S_10514:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(8752);if(r)goto S_10514;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8752);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8752);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1241= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8754);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(8755);}while(r); +LABEL_LABCHK2:; +if(qbevent){evnt(8756);r=0;} +S_10520:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(8757);if(r)goto S_10520;} +do{ +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(8758);}while(r); +S_10522:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(8759);if(r)goto S_10522;} +S_10523:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(8760);if(r)goto S_10523;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(8760);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(8761);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8762);}while(r); +}else{ +S_10529:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(8764);if(r)goto S_10529;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(8764);}while(r); +do{ +goto LABEL_LABCHK2; +if(!qbevent)break;evnt(8764);}while(r); +} +} +} +S_10535:; if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8685);if(r)goto S_10464;} +if(qbevent){evnt(8767);if(r)goto S_10535;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8686);}while(r); -S_10466:; +if(!qbevent)break;evnt(8769);}while(r); +S_10537:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8686);if(r)goto S_10466;} +if(qbevent){evnt(8769);if(r)goto S_10537;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8686);}while(r); +if(!qbevent)break;evnt(8769);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ @@ -37203,9056 +37474,8036 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; } -if(!qbevent)break;evnt(8686);}while(r); +if(!qbevent)break;evnt(8769);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282); -if(!qbevent)break;evnt(8687);}while(r); +if(!qbevent)break;evnt(8770);}while(r); do{ -SUB_HASHADD(__STRING_LBL,&(pass1232= 2 ),__LONG_NLABELS); +SUB_HASHADD(__STRING_A2,&(pass1242= 2 ),__LONG_NLABELS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8688);}while(r); +if(!qbevent)break;evnt(8771);}while(r); do{ *__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(8689);}while(r); +if(!qbevent)break;evnt(8772);}while(r); do{ *(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; -if(!qbevent)break;evnt(8690);}while(r); +if(!qbevent)break;evnt(8773);}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8691);}while(r); +if(!qbevent)break;evnt(8774);}while(r); do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= -1 ; -if(!qbevent)break;evnt(8692);}while(r); +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(8775);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(8693);}while(r); -do{ -*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))= 1 ; -if(!qbevent)break;evnt(8694);}while(r); +if(!qbevent)break;evnt(8776);}while(r); } +S_10549:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||new_error){ +if(qbevent){evnt(8779);if(r)goto S_10549;} do{ qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8697);}while(r); +if(!qbevent)break;evnt(8779);}while(r); +}else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1233; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("data_offset=data_at_LABEL_",26),__STRING_LBL),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1233; -skip1233: +qbs_set(__STRING_L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8698);}while(r); +if(!qbevent)break;evnt(8779);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8700);}while(r); -S_10483:; +if(!qbevent)break;evnt(8780);}while(r); +S_10555:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8700);if(r)goto S_10483;} +if(qbevent){evnt(8780);if(r)goto S_10555;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8700);}while(r); +if(!qbevent)break;evnt(8780);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8700);}while(r); +if(!qbevent)break;evnt(8780);}while(r); } do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8701);}while(r); -} -} -S_10491:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8708);if(r)goto S_10491;} -S_10492:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||new_error){ -if(qbevent){evnt(8709);if(r)goto S_10492;} -do{ -SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8710);}while(r); -S_10494:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8711);if(r)goto S_10494;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8711);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8712);}while(r); -} -} -S_10500:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8718);if(r)goto S_10500;} -S_10501:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||new_error){ -if(qbevent){evnt(8719);if(r)goto S_10501;} -S_10502:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(8720);if(r)goto S_10502;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8720);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8720);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8722);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(8723);}while(r); -do{ -*__LONG_NE= 0 ; -if(!qbevent)break;evnt(8724);}while(r); -S_10509:; -fornext_value1236= 2 ; -fornext_finalvalue1236=*__LONG_N; -fornext_step1236= 1 ; -if (fornext_step1236<0) fornext_step_negative1236=1; else fornext_step_negative1236=0; -if (new_error) goto fornext_error1236; -goto fornext_entrylabel1236; -while(1){ -fornext_value1236=fornext_step1236+(*__LONG_I2); -fornext_entrylabel1236: -*__LONG_I2=fornext_value1236; -if (fornext_step_negative1236){ -if (fornext_value1236fornext_finalvalue1236) break; -} -fornext_error1236:; -if(qbevent){evnt(8725);if(r)goto S_10509;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8726);}while(r); -S_10511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8727);if(r)goto S_10511;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(8727);}while(r); -} -S_10514:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(8728);if(r)goto S_10514;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(8728);}while(r); -} -S_10517:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(8729);if(r)goto S_10517;} -do{ -*__LONG_NE=*__LONG_NE+ 1 ; -if(!qbevent)break;evnt(8730);}while(r); -S_10519:; -if ((-(*__LONG_NE== 1 ))||new_error){ -if(qbevent){evnt(8731);if(r)goto S_10519;} -do{ -qbs_set(__STRING_BLK,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8731);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8731);}while(r); -} -S_10523:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(8732);if(r)goto S_10523;} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8732);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8732);}while(r); -} -S_10527:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(8733);if(r)goto S_10527;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8733);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8733);}while(r); -} -}else{ -S_10532:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(8735);if(r)goto S_10532;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8735);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8735);}while(r); -} -} -fornext_continue_1235:; -} -fornext_exit_1235:; -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8738);}while(r); -S_10540:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||new_error){ -if(qbevent){evnt(8739);if(r)goto S_10540;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMGET mem-reference,offset,variable",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8739);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8739);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("_MEMGET",7),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8741);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8743);}while(r); -S_10546:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8743);if(r)goto S_10546;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8743);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8744);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8746);}while(r); -S_10551:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8746);if(r)goto S_10551;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8746);}while(r); -} -S_10554:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ -if(qbevent){evnt(8747);if(r)goto S_10554;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8747);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8747);}while(r); -} -do{ -qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1238= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8748);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8755);}while(r); -S_10560:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8755);if(r)goto S_10560;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8755);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8756);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1239=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8757);}while(r); -S_10565:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8757);if(r)goto S_10565;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8757);}while(r); -} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8758);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8761);}while(r); -S_10570:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8761);if(r)goto S_10570;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8761);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8762);}while(r); -do{ -qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1240= -5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8763);}while(r); -S_10575:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8763);if(r)goto S_10575;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8763);}while(r); -} -do{ -qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1241= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8764);}while(r); -S_10579:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8764);if(r)goto S_10579;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8764);}while(r); -} -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(8774);}while(r); -S_10583:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(8775);if(r)goto S_10583;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(8775);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8775);}while(r); -} -S_10587:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ -if(qbevent){evnt(8776);if(r)goto S_10587;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(8776);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8776);}while(r); -} -S_10591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ -if(qbevent){evnt(8777);if(r)goto S_10591;} -do{ -*__LONG_S= 4 ; -if(!qbevent)break;evnt(8777);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8777);}while(r); -} -S_10595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ -if(qbevent){evnt(8778);if(r)goto S_10595;} -do{ -*__LONG_S= 8 ; -if(!qbevent)break;evnt(8778);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8778);}while(r); -} -S_10599:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(8780);if(r)goto S_10599;} -S_10600:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(8782);if(r)goto S_10600;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1242; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1242; -skip1242: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8783);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1243; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(void*)",8)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1243; -skip1243: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8785);}while(r); -} -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1244; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1244; -skip1244: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8789);}while(r); -do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1245; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1245; skip1245: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; +if(!qbevent)break;evnt(8781);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8782);}while(r); +} +} +S_10564:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8786);if(r)goto S_10564;} +S_10565:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONTINUE",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(8787);if(r)goto S_10565;} +S_10566:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||new_error){ +if(qbevent){evnt(8788);if(r)goto S_10566;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8788);}while(r); +}else{ +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Continue",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8788);}while(r); +} +S_10571:; +fornext_value1247=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue1247= 1 ; +fornext_step1247= -1 ; +if (fornext_step1247<0) fornext_step_negative1247=1; else fornext_step_negative1247=0; +if (new_error) goto fornext_error1247; +goto fornext_entrylabel1247; +while(1){ +fornext_value1247=fornext_step1247+(*__LONG_I); +fornext_entrylabel1247: +*__LONG_I=fornext_value1247; +if (fornext_step_negative1247){ +if (fornext_value1247fornext_finalvalue1247) break; +} +fornext_error1247:; +if(qbevent){evnt(8790);if(r)goto S_10571;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; if(!qbevent)break;evnt(8791);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1246; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); -if (new_error) goto skip1246; -skip1246: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8793);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1247; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); -if (new_error) goto skip1247; -skip1247: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8794);}while(r); +S_10573:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(8792);if(r)goto S_10573;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1248; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size) ||",13)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto fornext_continue_",22),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1248; skip1248: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8795);}while(r); +if(!qbevent)break;evnt(8793);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1249; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id ){",15)), 0 , 0 , 1 ); -if (new_error) goto skip1249; -skip1249: +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8794);}while(r); +S_10576:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8794);if(r)goto S_10576;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8796);}while(r); +if(!qbevent)break;evnt(8794);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8794);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8795);}while(r); +S_10582:; +}else{ +if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){ +if(qbevent){evnt(8796);if(r)goto S_10582;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1250; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto dl_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1250; skip1250: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8798);}while(r); +if(!qbevent)break;evnt(8797);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1251; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip1251; -skip1251: +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8798);}while(r); +S_10585:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8798);if(r)goto S_10585;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; +if(!qbevent)break;evnt(8798);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8798);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(8799);}while(r); -S_10614:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(8800);if(r)goto S_10614;} +S_10591:; +}else{ +if (-(*__LONG_T== 5 )){ +if(qbevent){evnt(8800);if(r)goto S_10591;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1252; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)tmp_long;",11)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ww_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1252; skip1252: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8801);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1253; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(void*)tmp_long,",17)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1253; -skip1253: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8803);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1254; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1254; -skip1254: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8805);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1255; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); -if (new_error) goto skip1255; -skip1255: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8806);}while(r); -} do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8809);}while(r); -S_10623:; +if(!qbevent)break;evnt(8802);}while(r); +S_10594:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8809);if(r)goto S_10623;} +if(qbevent){evnt(8802);if(r)goto S_10594;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8809);}while(r); +if(!qbevent)break;evnt(8802);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8809);}while(r); +if(!qbevent)break;evnt(8802);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8810);}while(r); +if(!qbevent)break;evnt(8803);}while(r); } } -S_10631:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8818);if(r)goto S_10631;} -S_10632:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||new_error){ -if(qbevent){evnt(8819);if(r)goto S_10632;} -S_10633:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(8820);if(r)goto S_10633;} +} +fornext_continue_1246:; +} +fornext_exit_1246:; do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",53))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8820);}while(r); +if(!qbevent)break;evnt(8806);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8820);}while(r); +if(!qbevent)break;evnt(8806);}while(r); +} +} +S_10606:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||new_error){ +if(qbevent){evnt(8810);if(r)goto S_10606;} +S_10607:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(8811);if(r)goto S_10607;} +do{ +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Feature incompatible with $Debug mode",37),qbs_new_txt_len("CHAIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8812);}while(r); +} +} +S_10611:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||new_error){ +if(qbevent){evnt(8816);if(r)goto S_10611;} +S_10612:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(8817);if(r)goto S_10612;} +do{ +SUB_ADDWARNING(__LONG_LINENUMBER,__LONG_INCLEVEL,(&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),qbs_new_txt_len("Feature incompatible with $Debug mode",37),qbs_new_txt_len("RUN",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8818);}while(r); } do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Run",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8822);}while(r); +if(!qbevent)break;evnt(8820);}while(r); +S_10616:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8821);if(r)goto S_10616;} do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1254; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_run_init();",15), 0 , 0 , 1 ); +if (new_error) goto skip1254; +skip1254: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(8823);}while(r); do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(8824);}while(r); -do{ -*__LONG_NE= 0 ; -if(!qbevent)break;evnt(8825);}while(r); -S_10641:; -fornext_value1258= 2 ; -fornext_finalvalue1258=*__LONG_N; -fornext_step1258= 1 ; -if (fornext_step1258<0) fornext_step_negative1258=1; else fornext_step_negative1258=0; -if (new_error) goto fornext_error1258; -goto fornext_entrylabel1258; -while(1){ -fornext_value1258=fornext_step1258+(*__LONG_I2); -fornext_entrylabel1258: -*__LONG_I2=fornext_value1258; -if (fornext_step_negative1258){ -if (fornext_value1258fornext_finalvalue1258) break; -} -fornext_error1258:; -if(qbevent){evnt(8826);if(r)goto S_10641;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1255; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31), 0 , 0 , 1 ); +if (new_error) goto skip1255; +skip1255: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8827);}while(r); -S_10643:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8828);if(r)goto S_10643;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8824);}while(r); +S_10619:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(8825);if(r)goto S_10619;} do{ -*__LONG_B=*__LONG_B+ 1 ; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1257; +sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); +if (new_error) goto skip1257; +skip1257: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8826);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1258; +sub_file_print(tmp_fileno,qbs_new_txt_len("goto S_0;",9), 0 , 0 , 1 ); +if (new_error) goto skip1258; +skip1258: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(8828);}while(r); } -S_10646:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(8829);if(r)goto S_10646;} +}else{ do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(8829);}while(r); -} -S_10649:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(8830);if(r)goto S_10649;} -do{ -*__LONG_NE=*__LONG_NE+ 1 ; -if(!qbevent)break;evnt(8831);}while(r); -S_10651:; -if ((-(*__LONG_NE== 1 ))||new_error){ -if(qbevent){evnt(8832);if(r)goto S_10651;} -do{ -qbs_set(__STRING_BLK,__STRING_E); +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1259= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8832);}while(r); do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8832);}while(r); -} -S_10655:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(8833);if(r)goto S_10655;} -do{ -qbs_set(__STRING_OFFS,__STRING_E); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8833);}while(r); +S_10627:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8834);if(r)goto S_10627;} do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8833);}while(r); -} -S_10659:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(8834);if(r)goto S_10659;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8834);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_ERRMES; if(!qbevent)break;evnt(8834);}while(r); } -S_10663:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 3 ))))|(((-(*__LONG_NE== 3 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 4 ))))||new_error){ -if(qbevent){evnt(8835);if(r)goto S_10663;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference,offset,variable|value[AS type]",61)); +qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8835);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8835);}while(r); -} -}else{ -S_10668:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(8837);if(r)goto S_10668;} -do{ -qbs_set(__STRING_E,__STRING_E2); +qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8837);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8837);}while(r); -} -} -fornext_continue_1257:; -} -fornext_exit_1257:; -S_10675:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(8840);if(r)goto S_10675;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference,offset,variable|value[AS type]",61)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8840);}while(r); +if(!qbevent)break;evnt(8836);}while(r); +S_10632:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8837);if(r)goto S_10632;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(8840);}while(r); +if(!qbevent)break;evnt(8837);}while(r); } -S_10679:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(8841);if(r)goto S_10679;} +S_10635:; +if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||new_error){ +if(qbevent){evnt(8838);if(r)goto S_10635;} do{ -qbs_set(__STRING_VAR,__STRING_E); +qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1260= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8840);}while(r); +S_10637:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ +if(qbevent){evnt(8841);if(r)goto S_10637;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8841);}while(r); -}else{ do{ -qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_ERRMES; if(!qbevent)break;evnt(8841);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("_MEMPUT",7),__STRING1_SP)); +*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1261= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8843);}while(r); do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8845);}while(r); -S_10686:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8845);if(r)goto S_10686;} +*__LONG_X= 1 ; +if(!qbevent)break;evnt(8844);}while(r); +LABEL_LABCHK501:; +if(qbevent){evnt(8845);r=0;} +S_10643:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(8846);if(r)goto S_10643;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8845);}while(r); -} +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(8847);}while(r); +S_10645:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(8848);if(r)goto S_10645;} +S_10646:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(8849);if(r)goto S_10646;} do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8846);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8848);}while(r); -S_10691:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8848);if(r)goto S_10691;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8848);}while(r); -} -S_10694:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ -if(qbevent){evnt(8849);if(r)goto S_10694;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8849);}while(r); -do{ -goto LABEL_ERRMES; +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; if(!qbevent)break;evnt(8849);}while(r); } do{ -qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1260= -6 ))); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_X= 0 ; if(!qbevent)break;evnt(8850);}while(r); do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8852);}while(r); -S_10700:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8852);if(r)goto S_10700;} +if(!qbevent)break;evnt(8851);}while(r); do{ -goto LABEL_ERRMES; +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; if(!qbevent)break;evnt(8852);}while(r); -} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; if(!qbevent)break;evnt(8853);}while(r); +}else{ +S_10654:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(8855);if(r)goto S_10654;} do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1261=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8854);}while(r); -S_10705:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8854);if(r)goto S_10705;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8854);}while(r); -} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); if(!qbevent)break;evnt(8855);}while(r); -S_10709:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(8857);if(r)goto S_10709;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8858);}while(r); -S_10711:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8858);if(r)goto S_10711;} +goto LABEL_LABCHK501; +if(!qbevent)break;evnt(8855);}while(r); +} +} +} +S_10660:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(8858);if(r)goto S_10660;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8858);}while(r); +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(8860);}while(r); +S_10662:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(8860);if(r)goto S_10662;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(8860);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elementslen",14)); -qbs_cleanup(qbs_tmp_base,0); +*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; if(!qbevent)break;evnt(8864);}while(r); do{ -qbs_set(__STRING_VAROFFS,qbs_new_txt_len("g_tmp_str->chr",14)); +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8865);}while(r); -}else{ do{ -qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1263= -5 ))); -qbs_cleanup(qbs_tmp_base,0); +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; +if(!qbevent)break;evnt(8866);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; if(!qbevent)break;evnt(8867);}while(r); -S_10725:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8867);if(r)goto S_10725;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8867);}while(r); -} -do{ -qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1264= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8868);}while(r); -S_10729:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8868);if(r)goto S_10729;} -do{ -goto LABEL_ERRMES; +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; if(!qbevent)break;evnt(8868);}while(r); } -} do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(8872);}while(r); -S_10734:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(8873);if(r)goto S_10734;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(8873);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8873);}while(r); -} -S_10738:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ -if(qbevent){evnt(8874);if(r)goto S_10738;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(8874);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8874);}while(r); -} -S_10742:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ -if(qbevent){evnt(8875);if(r)goto S_10742;} -do{ -*__LONG_S= 4 ; -if(!qbevent)break;evnt(8875);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8875);}while(r); -} -S_10746:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ -if(qbevent){evnt(8876);if(r)goto S_10746;} -do{ -*__LONG_S= 8 ; -if(!qbevent)break;evnt(8876);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8876);}while(r); -} -S_10750:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(8878);if(r)goto S_10750;} -S_10751:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(8880);if(r)goto S_10751;} +if(!qbevent)break;evnt(8871);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1265; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=*(",4)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1265; -skip1265: +if (new_error) goto skip1263; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_run_init();",15), 0 , 0 , 1 ); +if (new_error) goto skip1263; +skip1263: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8881);}while(r); -}else{ +if(!qbevent)break;evnt(8872);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1264; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31), 0 , 0 , 1 ); +if (new_error) goto skip1264; +skip1264: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8873);}while(r); +S_10678:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(8874);if(r)goto S_10678;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 21 ; if (new_error) goto skip1266; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)",15),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (run_from_line==",19),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len("){run_from_line=0;goto LABEL_",29)),__STRING_LBL),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); if (new_error) goto skip1266; skip1266: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8883);}while(r); -} -}else{ +if(!qbevent)break;evnt(8875);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1267; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1267; skip1267: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8887);}while(r); +if(!qbevent)break;evnt(8876);}while(r); +do{ +*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ; +if(!qbevent)break;evnt(8877);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1268; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("QBMAIN(NULL);",13), 0 , 0 , 1 ); if (new_error) goto skip1268; skip1268: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8889);}while(r); +if(!qbevent)break;evnt(8878);}while(r); +}else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1269; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),__STRING_LBL),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1269; skip1269: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8891);}while(r); +if(!qbevent)break;evnt(8880);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8884);}while(r); +S_10688:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8885);if(r)goto S_10688;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8885);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1270; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_run(",8),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1270; skip1270: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8892);}while(r); +if(!qbevent)break;evnt(8886);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1271; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size) ||",13)), 0 , 0 , 1 ); -if (new_error) goto skip1271; -skip1271: +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8893);}while(r); +if(!qbevent)break;evnt(8887);}while(r); +} +} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1272; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id ){",15)), 0 , 0 , 1 ); -if (new_error) goto skip1272; -skip1272: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8894);}while(r); +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8890);}while(r); +S_10696:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8890);if(r)goto S_10696;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1273; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)), 0 , 0 , 1 ); -if (new_error) goto skip1273; -skip1273: +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8896);}while(r); +if(!qbevent)break;evnt(8890);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8890);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8891);}while(r); +} +S_10703:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(8898);if(r)goto S_10703;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8899);}while(r); +S_10705:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(8900);if(r)goto S_10705;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1272= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8901);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8902);}while(r); +S_10708:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8902);if(r)goto S_10708;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8902);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8903);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8904);}while(r); +S_10713:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8904);if(r)goto S_10713;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8904);}while(r); +} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8905);}while(r); +S_10717:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(8906);if(r)goto S_10717;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8907);}while(r); +do{ +qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8908);}while(r); +do{ +qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8909);}while(r); +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8910);}while(r); +} +S_10723:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(8912);if(r)goto S_10723;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8912);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8912);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1274; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)), 0 , 0 , 1 ); if (new_error) goto skip1274; skip1274: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8897);}while(r); -S_10765:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(8898);if(r)goto S_10765;} +if(!qbevent)break;evnt(8913);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1275; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=*(",13)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1275; skip1275: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8899);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1276; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)tmp_long,",24),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1276; -skip1276: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8901);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1277; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1277; -skip1277: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8903);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1278; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); -if (new_error) goto skip1278; -skip1278: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8904);}while(r); -} -}else{ -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8912);}while(r); -S_10775:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(8913);if(r)goto S_10775;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8913);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8913);}while(r); -} -S_10779:; -if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(8914);if(r)goto S_10779;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("_MEMPUT requires numeric type",29)); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8914);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8914);}while(r); -} -S_10783:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(8915);if(r)goto S_10783;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8915);}while(r); } do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); +SUB_XEND(); if(!qbevent)break;evnt(8917);}while(r); -S_10787:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8917);if(r)goto S_10787;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8917);}while(r); -} +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8918);}while(r); +S_10734:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8918);if(r)goto S_10734;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8918);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8919);}while(r); -S_10792:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8919);if(r)goto S_10792;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8919);}while(r); -} -do{ -qbs_set(__STRING_ST,FUNC_TYP2CTYP(__LONG_T,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8920);}while(r); -do{ -qbs_set(__STRING_VARSIZE,FUNC_STR2(&(pass1279=(*__LONG_T& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8921);}while(r); -S_10797:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(8922);if(r)goto S_10797;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1280; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1280; -skip1280: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8924);}while(r); }else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1281; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1281; -skip1281: +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8918);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8919);}while(r); +} +S_10741:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||new_error){ +if(qbevent){evnt(8922);if(r)goto S_10741;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8923);}while(r); +S_10743:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(8924);if(r)goto S_10743;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1277= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8925);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8926);}while(r); +S_10746:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8926);if(r)goto S_10746;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8926);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8927);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1282; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); -if (new_error) goto skip1282; -skip1282: +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8929);}while(r); +if(!qbevent)break;evnt(8928);}while(r); +S_10751:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8928);if(r)goto S_10751;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1283; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); -if (new_error) goto skip1283; -skip1283: +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8928);}while(r); +} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8929);}while(r); +S_10755:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(8930);if(r)goto S_10755;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8931);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1284; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); -if (new_error) goto skip1284; -skip1284: +qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8932);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1285; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size) ||",13)), 0 , 0 , 1 ); -if (new_error) goto skip1285; -skip1285: +qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8933);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1286; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id ){",15)), 0 , 0 , 1 ); -if (new_error) goto skip1286; -skip1286: +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8934);}while(r); +} +S_10761:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(8936);if(r)goto S_10761;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1287; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)), 0 , 0 , 1 ); -if (new_error) goto skip1287; -skip1287: +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8936);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8936);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1288; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip1288; -skip1288: +if (new_error) goto skip1279; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3)), 0 , 0 , 1 ); +if (new_error) goto skip1279; +skip1279: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8937);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1289; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=",11)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1289; -skip1289: +if (new_error) goto skip1280; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("exit_code=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1280; +skip1280: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(8938);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1290; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1290; -skip1290: +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_L2)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(8939);}while(r); +} +S_10770:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(8943);if(r)goto S_10770;} +S_10771:; +if ((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))||new_error){ +if(qbevent){evnt(8944);if(r)goto S_10771;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1281= 0 )); +if(!qbevent)break;evnt(8945);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1291; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); -if (new_error) goto skip1291; -skip1291: +if (new_error) goto skip1282; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101), 0 , 0 , 1 ); +if (new_error) goto skip1282; +skip1282: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(8940);}while(r); -} +if(!qbevent)break;evnt(8947);}while(r); } do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1283; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (sub_gl_called) error(271);",30), 0 , 0 , 1 ); +if (new_error) goto skip1283; +skip1283: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8949);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1284; +sub_file_print(tmp_fileno,qbs_new_txt_len("close_program=1;",16), 0 , 0 , 1 ); +if (new_error) goto skip1284; +skip1284: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8950);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1285; +sub_file_print(tmp_fileno,qbs_new_txt_len("end();",6), 0 , 0 , 1 ); +if (new_error) goto skip1285; +skip1285: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8951);}while(r); +do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8945);}while(r); -S_10814:; +if(!qbevent)break;evnt(8952);}while(r); +S_10780:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8945);if(r)goto S_10814;} +if(qbevent){evnt(8952);if(r)goto S_10780;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8945);}while(r); +if(!qbevent)break;evnt(8952);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8945);}while(r); +if(!qbevent)break;evnt(8952);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8946);}while(r); +if(!qbevent)break;evnt(8953);}while(r); } -} -S_10822:; +S_10787:; if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(8955);if(r)goto S_10822;} -S_10823:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||new_error){ -if(qbevent){evnt(8956);if(r)goto S_10823;} -S_10824:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(8957);if(r)goto S_10824;} +if(qbevent){evnt(8956);if(r)goto S_10787;} +S_10788:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||new_error){ +if(qbevent){evnt(8957);if(r)goto S_10788;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8957);}while(r); +if(!qbevent)break;evnt(8958);}while(r); +S_10790:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(8959);if(r)goto S_10790;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8957);}while(r); -} -do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8959);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1287= 2 ),__LONG_N)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8960);}while(r); do{ -*__LONG_B= 0 ; +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8961);}while(r); +S_10793:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8962);if(r)goto S_10793;} do{ -*__LONG_NE= 0 ; +goto LABEL_ERRMES; if(!qbevent)break;evnt(8962);}while(r); -S_10832:; -fornext_value1294= 2 ; -fornext_finalvalue1294=*__LONG_N; -fornext_step1294= 1 ; -if (fornext_step1294<0) fornext_step_negative1294=1; else fornext_step_negative1294=0; -if (new_error) goto fornext_error1294; -goto fornext_entrylabel1294; -while(1){ -fornext_value1294=fornext_step1294+(*__LONG_I2); -fornext_entrylabel1294: -*__LONG_I2=fornext_value1294; -if (fornext_step_negative1294){ -if (fornext_value1294fornext_finalvalue1294) break; } -fornext_error1294:; -if(qbevent){evnt(8963);if(r)goto S_10832;} do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Stop",4)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8963);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1288= 64 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8964);}while(r); -S_10834:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8965);if(r)goto S_10834;} +S_10798:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8965);if(r)goto S_10798;} do{ -*__LONG_B=*__LONG_B+ 1 ; +goto LABEL_ERRMES; if(!qbevent)break;evnt(8965);}while(r); } -S_10837:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(8966);if(r)goto S_10837;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(8966);}while(r); } -S_10840:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(8967);if(r)goto S_10840;} do{ -*__LONG_NE=*__LONG_NE+ 1 ; +*__LONG_LAYOUTDONE= 1 ; if(!qbevent)break;evnt(8968);}while(r); -S_10842:; -if ((-(*__LONG_NE== 1 ))||new_error){ -if(qbevent){evnt(8969);if(r)goto S_10842;} +S_10803:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8968);if(r)goto S_10803;} do{ -qbs_set(__STRING_BLK,__STRING_E); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8969);}while(r); +if(!qbevent)break;evnt(8968);}while(r); +}else{ do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8969);}while(r); +if(!qbevent)break;evnt(8968);}while(r); } -S_10846:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(8970);if(r)goto S_10846;} +S_10808:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(8969);if(r)goto S_10808;} do{ -qbs_set(__STRING_OFFS,__STRING_E); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1290; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",202), 0 , 0 , 1 ); +if (new_error) goto skip1290; +skip1290: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(8970);}while(r); do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8970);}while(r); -} -S_10850:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(8971);if(r)goto S_10850;} -do{ -qbs_set(__STRING_BYTES,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1291= 0 )); if(!qbevent)break;evnt(8971);}while(r); +}else{ do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8971);}while(r); -} -S_10854:; -if ((-(*__LONG_NE== 4 ))||new_error){ -if(qbevent){evnt(8972);if(r)goto S_10854;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8972);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8972);}while(r); -} -S_10858:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 4 ))))|(((-(*__LONG_NE== 4 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 5 ))))||new_error){ -if(qbevent){evnt(8973);if(r)goto S_10858;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]",68)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1292; +sub_file_print(tmp_fileno,qbs_new_txt_len("close_program=1;",16), 0 , 0 , 1 ); +if (new_error) goto skip1292; +skip1292: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(8973);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8973);}while(r); -} -}else{ -S_10863:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(8975);if(r)goto S_10863;} -do{ -qbs_set(__STRING_E,__STRING_E2); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1293; +sub_file_print(tmp_fileno,qbs_new_txt_len("end();",6), 0 , 0 , 1 ); +if (new_error) goto skip1293; +skip1293: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8975);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8975);}while(r); -} -} -fornext_continue_1293:; -} -fornext_exit_1293:; -S_10870:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(8978);if(r)goto S_10870;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]",68)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8978);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8978);}while(r); -} -S_10874:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(8979);if(r)goto S_10874;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8979);}while(r); -}else{ -do{ -qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8979);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8974);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_new_txt_len("_MEMFILL",8),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8981);}while(r); +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8976);}while(r); +} +} +S_10818:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(8980);if(r)goto S_10818;} +S_10819:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(8981);if(r)goto S_10819;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +SUB_XGOSUB(__STRING_CA); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8983);}while(r); -S_10881:; +if(!qbevent)break;evnt(8982);}while(r); +S_10821:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8983);if(r)goto S_10881;} +if(qbevent){evnt(8983);if(r)goto S_10821;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(8983);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8984);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8986);}while(r); -S_10886:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8986);if(r)goto S_10886;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8986);}while(r); +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8985);}while(r); } -S_10889:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ -if(qbevent){evnt(8987);if(r)goto S_10889;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEM type",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8987);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8987);}while(r); } +S_10827:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(8989);if(r)goto S_10827;} +S_10828:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||new_error){ +if(qbevent){evnt(8990);if(r)goto S_10828;} +S_10829:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8991);if(r)goto S_10829;} do{ -qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1296= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8988);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8990);}while(r); -S_10895:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8990);if(r)goto S_10895;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8990);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8991);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1297=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1294; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#include ",9),func_chr( 34 )),qbs_new_txt_len("ret",3)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip1294; +skip1294: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(8992);}while(r); -S_10900:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8992);if(r)goto S_10900;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8992);}while(r); -} -do{ -qbs_set(__STRING_OFFS,__STRING_E); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Return",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8993);}while(r); do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8995);}while(r); -S_10905:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8995);if(r)goto S_10905;} +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8994);}while(r); +S_10833:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8994);if(r)goto S_10833;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8995);}while(r); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8994);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8994);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8996);}while(r); +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8995);}while(r); +}else{ +S_10840:; +if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ +if(qbevent){evnt(8998);if(r)goto S_10840;} do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1298=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8997);}while(r); -S_10910:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8997);if(r)goto S_10910;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8997);}while(r); -} -do{ -qbs_set(__STRING_BYTES,__STRING_E); +qbs_set(__STRING_A,qbs_new_txt_len("RETURN linelabel/linenumber invalid within a SUB/FUNCTION",57)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(8998);}while(r); -S_10914:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(9000);if(r)goto S_10914;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9001);}while(r); -S_10916:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9001);if(r)goto S_10916;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9001);}while(r); +if(!qbevent)break;evnt(8998);}while(r); +} +S_10844:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(8999);if(r)goto S_10844;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected linelabel/linenumber after RETURN",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8999);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8999);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1296; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (!next_return_point) error(3);",33), 0 , 0 , 1 ); +if (new_error) goto skip1296; +skip1296: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9000);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1297; +sub_file_print(tmp_fileno,qbs_new_txt_len("next_return_point--;",20), 0 , 0 , 1 ); +if (new_error) goto skip1297; +skip1297: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9001);}while(r); +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1298= 2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9002);}while(r); +S_10851:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(9003);if(r)goto S_10851;} do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9003);}while(r); -S_10921:; -if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(9004);if(r)goto S_10921;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1299; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=(ptrszint)",19),__STRING_TEST),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1299; -skip1299: +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9003);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1299= 2 ),__LONG_IGNORE,__LONG_R); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(9005);}while(r); do{ -qbs_set(__STRING_VARSIZE,qbs_new_txt_len("((qbs*)tmp_long)->len",21)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_X= 1 ; if(!qbevent)break;evnt(9006);}while(r); +LABEL_LABCHK505:; +if(qbevent){evnt(9007);r=0;} +S_10857:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9008);if(r)goto S_10857;} do{ -qbs_set(__STRING_VAROFFS,qbs_new_txt_len("((qbs*)tmp_long)->chr",21)); +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(9009);}while(r); +S_10859:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9010);if(r)goto S_10859;} +S_10860:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9011);if(r)goto S_10860;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(9011);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9012);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9007);}while(r); +if(!qbevent)break;evnt(9013);}while(r); }else{ +S_10866:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9015);if(r)goto S_10866;} do{ -qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1300= -5 ))); +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9015);}while(r); +do{ +goto LABEL_LABCHK505; +if(!qbevent)break;evnt(9015);}while(r); +} +} +} +S_10872:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9018);if(r)goto S_10872;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9020);}while(r); +S_10874:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9020);if(r)goto S_10874;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9020);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elementslen))||new_error){ +if(qbevent){evnt(9032);if(r)goto S_10889;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9032);}while(r); }else{ do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9032);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9033);}while(r); +} +} +} +S_10898:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9038);if(r)goto S_10898;} +S_10899:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||new_error){ +if(qbevent){evnt(9039);if(r)goto S_10899;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9040);}while(r); +S_10901:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9041);if(r)goto S_10901;} +LABEL_RESUMEPREV:; +if(qbevent){evnt(9042);r=0;} +do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1303; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill((mem_block*)",25),__STRING_BLKOFFS),qbs_new_txt_len(",",1)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("if (!error_handling){error(20);}else{error_retry=1; qbevent=1; error_handling=0; error_err=0; return;}",102), 0 , 0 , 1 ); if (new_error) goto skip1303; skip1303: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9016);}while(r); +if(!qbevent)break;evnt(9045);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9047);}while(r); +S_10904:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9047);if(r)goto S_10904;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9047);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9047);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9048);}while(r); +} +S_10911:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9050);if(r)goto S_10911;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9050);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9050);}while(r); +} +do{ +qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1305= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9051);}while(r); +S_10916:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||new_error){ +if(qbevent){evnt(9052);if(r)goto S_10916;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1306; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}",76), 0 , 0 , 1 ); +if (new_error) goto skip1306; +skip1306: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9055);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Next",4)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9057);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9058);}while(r); +S_10920:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9058);if(r)goto S_10920;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9058);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9058);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9059);}while(r); +} +S_10927:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(9061);if(r)goto S_10927;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9061);}while(r); +do{ +goto LABEL_RESUMEPREV; +if(!qbevent)break;evnt(9061);}while(r); +} +S_10931:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||new_error){ +if(qbevent){evnt(9062);if(r)goto S_10931;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label passed to RESUME",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9062);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9062);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1308= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9064);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9065);}while(r); +LABEL_LABCHK506:; +if(qbevent){evnt(9066);r=0;} +S_10937:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9067);if(r)goto S_10937;} +do{ +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(9068);}while(r); +S_10939:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9069);if(r)goto S_10939;} +S_10940:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9070);if(r)goto S_10940;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(9070);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9071);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9072);}while(r); +}else{ +S_10946:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9074);if(r)goto S_10946;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9074);}while(r); +do{ +goto LABEL_LABCHK506; +if(!qbevent)break;evnt(9074);}while(r); +} +} +} +S_10952:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9077);if(r)goto S_10952;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9079);}while(r); +S_10954:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9079);if(r)goto S_10954;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9079);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elementslen))||new_error){ +if(qbevent){evnt(9090);if(r)goto S_10968;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9090);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9090);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1311; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_",79),__STRING_S),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); +if (new_error) goto skip1311; +skip1311: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9091);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9092);}while(r); +} +} +S_10977:; +if ((-(*__LONG_N== 4 ))||new_error){ +if(qbevent){evnt(9096);if(r)goto S_10977;} +S_10978:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1312= 1 ),&(pass1313= 3 )),(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ON",2),__STRING1_SP),qbs_new_txt_len("ERROR",5)),__STRING1_SP),qbs_new_txt_len("GOTO",4))))))||new_error){ +if(qbevent){evnt(9097);if(r)goto S_10978;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("On",2),__STRING1_SP),qbs_new_txt_len("Error",5)),__STRING1_SP),qbs_new_txt_len("GoTo",4)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9098);}while(r); +do{ +qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1314= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9099);}while(r); +S_10981:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(9100);if(r)goto S_10981;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1315; +sub_file_print(tmp_fileno,qbs_new_txt_len("error_goto_line=0;",18), 0 , 0 , 1 ); +if (new_error) goto skip1315; +skip1315: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9101);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len("0",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9102);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9103);}while(r); +S_10985:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9103);if(r)goto S_10985;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9103);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9103);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9104);}while(r); +} +S_10992:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ +if(qbevent){evnt(9106);if(r)goto S_10992;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9106);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9106);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1317= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9108);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9109);}while(r); +LABEL_LABCHK6:; +if(qbevent){evnt(9110);r=0;} +S_10998:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9111);if(r)goto S_10998;} +do{ +*__LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(9112);}while(r); +S_11000:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9113);if(r)goto S_11000;} +S_11001:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9114);if(r)goto S_11001;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))= 0 ; +if(!qbevent)break;evnt(9114);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9115);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9116);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(9117);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(9118);}while(r); +}else{ +S_11009:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9120);if(r)goto S_11009;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9120);}while(r); +do{ +goto LABEL_LABCHK6; +if(!qbevent)break;evnt(9120);}while(r); +} +} +} +S_11015:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9123);if(r)goto S_11015;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9125);}while(r); +S_11017:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9125);if(r)goto S_11017;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9125);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elementslen))||new_error){ +if(qbevent){evnt(9138);if(r)goto S_11032;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9138);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9138);}while(r); +} +do{ +*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ; +if(!qbevent)break;evnt(9139);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1320; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1320; +skip1320: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9140);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 14 ; +if (new_error) goto skip1321; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (error_goto_line==",21),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len("){error_handling=1; goto LABEL_",31)),__STRING_LBL),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); +if (new_error) goto skip1321; +skip1321: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9141);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9142);}while(r); +} +} +S_11043:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9146);if(r)goto S_11043;} +S_11044:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||new_error){ +if(qbevent){evnt(9147);if(r)goto S_11044;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9148);}while(r); +S_11046:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9149);if(r)goto S_11046;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1322; +sub_file_print(tmp_fileno,qbs_new_txt_len("data_offset=0;",14), 0 , 0 , 1 ); +if (new_error) goto skip1322; +skip1322: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9150);}while(r); +}else{ +S_11049:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9152);if(r)goto S_11049;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - too many parameters (expected RESTORE label/line number)",71)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9152);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9152);}while(r); +} +do{ +qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1323= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9153);}while(r); +S_11054:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ +if(qbevent){evnt(9154);if(r)goto S_11054;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9154);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9154);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1324= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9158);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9159);}while(r); +S_11060:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9160);if(r)goto S_11060;} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9161);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9162);}while(r); +do{ +*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269))= 1 ; +if(!qbevent)break;evnt(9163);}while(r); +S_11064:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))== 0 ))||new_error){ +if(qbevent){evnt(9164);if(r)goto S_11064;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(9164);}while(r); +} +} +S_11068:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9166);if(r)goto S_11068;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9167);}while(r); +S_11070:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9167);if(r)goto S_11070;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9167);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elementslen))||new_error){ +if(qbevent){evnt(9181);if(r)goto S_11087;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9181);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9181);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9182);}while(r); +} +} +S_11095:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9189);if(r)goto S_11095;} +S_11096:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||new_error){ +if(qbevent){evnt(9190);if(r)goto S_11096;} +do{ +SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9191);}while(r); +S_11098:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9192);if(r)goto S_11098;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9192);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9193);}while(r); +} +} +S_11104:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9199);if(r)goto S_11104;} +S_11105:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMGET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(9200);if(r)goto S_11105;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9202);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9203);}while(r); +do{ +*__LONG_NE= 0 ; +if(!qbevent)break;evnt(9204);}while(r); +S_11109:; +fornext_value1329= 2 ; +fornext_finalvalue1329=*__LONG_N; +fornext_step1329= 1 ; +if (fornext_step1329<0) fornext_step_negative1329=1; else fornext_step_negative1329=0; +if (new_error) goto fornext_error1329; +goto fornext_entrylabel1329; +while(1){ +fornext_value1329=fornext_step1329+(*__LONG_I2); +fornext_entrylabel1329: +*__LONG_I2=fornext_value1329; +if (fornext_step_negative1329){ +if (fornext_value1329fornext_finalvalue1329) break; +} +fornext_error1329:; +if(qbevent){evnt(9205);if(r)goto S_11109;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9206);}while(r); +S_11111:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9207);if(r)goto S_11111;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9207);}while(r); +} +S_11114:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9208);if(r)goto S_11114;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9208);}while(r); +} +S_11117:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9209);if(r)goto S_11117;} +do{ +*__LONG_NE=*__LONG_NE+ 1 ; +if(!qbevent)break;evnt(9210);}while(r); +S_11119:; +if ((-(*__LONG_NE== 1 ))||new_error){ +if(qbevent){evnt(9211);if(r)goto S_11119;} +do{ +qbs_set(__STRING_BLK,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9211);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9211);}while(r); +} +S_11123:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9212);if(r)goto S_11123;} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9212);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9212);}while(r); +} +S_11127:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9213);if(r)goto S_11127;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Syntax error - too many parameters (Expected ",45),__STRING_QB64PREFIX),qbs_new_txt_len("MEMGET mem-reference, offset, variable)",39))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9213);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9213);}while(r); +} +}else{ +S_11132:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(9215);if(r)goto S_11132;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9215);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9215);}while(r); +} +} +fornext_continue_1328:; +} +fornext_exit_1328:; +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9218);}while(r); +S_11140:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||new_error){ +if(qbevent){evnt(9219);if(r)goto S_11140;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMGET mem-reference, offset, variable",38))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9219);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9219);}while(r); +} +S_11144:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||new_error){ +if(qbevent){evnt(9221);if(r)goto S_11144;} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemGet",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9221);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemGet",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9221);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9223);}while(r); +S_11150:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9223);if(r)goto S_11150;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9223);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9224);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9226);}while(r); +S_11155:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9226);if(r)goto S_11155;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9226);}while(r); +} +S_11158:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ +if(qbevent){evnt(9227);if(r)goto S_11158;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9227);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9227);}while(r); +} +do{ +qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1331= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9228);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9235);}while(r); +S_11164:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9235);if(r)goto S_11164;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9235);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9236);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1332=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9237);}while(r); +S_11169:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9237);if(r)goto S_11169;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9237);}while(r); +} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9238);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9241);}while(r); +S_11174:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9241);if(r)goto S_11174;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9241);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9242);}while(r); +do{ +qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1333= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9243);}while(r); +S_11179:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9243);if(r)goto S_11179;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9243);}while(r); +} +do{ +qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1334= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9244);}while(r); +S_11183:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9244);if(r)goto S_11183;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9244);}while(r); +} +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9254);}while(r); +S_11187:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(9255);if(r)goto S_11187;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(9255);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9255);}while(r); +} +S_11191:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ +if(qbevent){evnt(9256);if(r)goto S_11191;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(9256);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9256);}while(r); +} +S_11195:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ +if(qbevent){evnt(9257);if(r)goto S_11195;} +do{ +*__LONG_S= 4 ; +if(!qbevent)break;evnt(9257);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9257);}while(r); +} +S_11199:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ +if(qbevent){evnt(9258);if(r)goto S_11199;} +do{ +*__LONG_S= 8 ; +if(!qbevent)break;evnt(9258);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9258);}while(r); +} +S_11203:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9260);if(r)goto S_11203;} +S_11204:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9262);if(r)goto S_11204;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1335; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1335; +skip1335: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9263);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1336; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(void*)",8)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1336; +skip1336: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9265);}while(r); +} +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1337; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1337; +skip1337: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9269);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1338; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1338; +skip1338: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9271);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1339; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); +if (new_error) goto skip1339; +skip1339: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9273);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1340; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); +if (new_error) goto skip1340; +skip1340: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9274);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1341; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size) ||",13)), 0 , 0 , 1 ); +if (new_error) goto skip1341; +skip1341: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9275);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1342; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id ){",15)), 0 , 0 , 1 ); +if (new_error) goto skip1342; +skip1342: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9276);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1343; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)), 0 , 0 , 1 ); +if (new_error) goto skip1343; +skip1343: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9278);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1344; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip1344; +skip1344: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9279);}while(r); +S_11218:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9280);if(r)goto S_11218;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1345; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len("=*(",3)),__STRING_ST),qbs_new_txt_len("*)tmp_long;",11)), 0 , 0 , 1 ); +if (new_error) goto skip1345; +skip1345: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9281);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1346; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove(",8),__STRING_VAROFFS),qbs_new_txt_len(",(void*)tmp_long,",17)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1346; +skip1346: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9283);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1347; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1347; +skip1347: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9285);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1348; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); +if (new_error) goto skip1348; +skip1348: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9286);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9289);}while(r); +S_11227:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9289);if(r)goto S_11227;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9289);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9289);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9290);}while(r); +} +} +S_11235:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9298);if(r)goto S_11235;} +S_11236:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMPUT",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(9299);if(r)goto S_11236;} +do{ +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9301);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9302);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9303);}while(r); +do{ +*__LONG_NE= 0 ; +if(!qbevent)break;evnt(9304);}while(r); +S_11241:; +fornext_value1351= 2 ; +fornext_finalvalue1351=*__LONG_N; +fornext_step1351= 1 ; +if (fornext_step1351<0) fornext_step_negative1351=1; else fornext_step_negative1351=0; +if (new_error) goto fornext_error1351; +goto fornext_entrylabel1351; +while(1){ +fornext_value1351=fornext_step1351+(*__LONG_I2); +fornext_entrylabel1351: +*__LONG_I2=fornext_value1351; +if (fornext_step_negative1351){ +if (fornext_value1351fornext_finalvalue1351) break; +} +fornext_error1351:; +if(qbevent){evnt(9305);if(r)goto S_11241;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9306);}while(r); +S_11243:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9307);if(r)goto S_11243;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9307);}while(r); +} +S_11246:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9308);if(r)goto S_11246;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9308);}while(r); +} +S_11249:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9309);if(r)goto S_11249;} +do{ +*__LONG_NE=*__LONG_NE+ 1 ; +if(!qbevent)break;evnt(9310);}while(r); +S_11251:; +if ((-(*__LONG_NE== 1 ))||new_error){ +if(qbevent){evnt(9311);if(r)goto S_11251;} +do{ +qbs_set(__STRING_BLK,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9311);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9311);}while(r); +} +S_11255:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9312);if(r)goto S_11255;} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9312);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9312);}while(r); +} +S_11259:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9313);if(r)goto S_11259;} +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9313);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9313);}while(r); +} +S_11263:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 3 ))))|(((-(*__LONG_NE== 3 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 4 ))))||new_error){ +if(qbevent){evnt(9314);if(r)goto S_11263;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMPUT mem-reference,offset,variable|value[AS type]",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9314);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9314);}while(r); +} +}else{ +S_11268:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(9316);if(r)goto S_11268;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9316);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9316);}while(r); +} +} +fornext_continue_1350:; +} +fornext_exit_1350:; +S_11275:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(9319);if(r)goto S_11275;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMPUT mem-reference, offset, variable|value[AS type]",53))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9319);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9319);}while(r); +} +S_11279:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9320);if(r)goto S_11279;} +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9320);}while(r); +}else{ +do{ +qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9320);}while(r); +} +S_11284:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||new_error){ +if(qbevent){evnt(9322);if(r)goto S_11284;} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemPut",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9322);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemPut",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9322);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9324);}while(r); +S_11290:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9324);if(r)goto S_11290;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9324);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9325);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9327);}while(r); +S_11295:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9327);if(r)goto S_11295;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9327);}while(r); +} +S_11298:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ +if(qbevent){evnt(9328);if(r)goto S_11298;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9328);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9328);}while(r); +} +do{ +qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1353= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9329);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9331);}while(r); +S_11304:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9331);if(r)goto S_11304;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9331);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9332);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1354=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9333);}while(r); +S_11309:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9333);if(r)goto S_11309;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9333);}while(r); +} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9334);}while(r); +S_11313:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9336);if(r)goto S_11313;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9337);}while(r); +S_11315:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9337);if(r)goto S_11315;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9337);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9338);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9340);}while(r); +S_11320:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9340);if(r)goto S_11320;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9340);}while(r); +} +S_11323:; +if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9341);if(r)goto S_11323;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1355; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("g_tmp_str=",10),__STRING_TEST),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1355; +skip1355: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9342);}while(r); +do{ +qbs_set(__STRING_VARSIZE,qbs_new_txt_len("g_tmp_str->len",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9343);}while(r); +do{ +qbs_set(__STRING_VAROFFS,qbs_new_txt_len("g_tmp_str->chr",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9344);}while(r); +}else{ +do{ +qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1356= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9346);}while(r); +S_11329:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9346);if(r)goto S_11329;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9346);}while(r); +} +do{ +qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1357= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9347);}while(r); +S_11333:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9347);if(r)goto S_11333;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9347);}while(r); +} +} +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9351);}while(r); +S_11338:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(9352);if(r)goto S_11338;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(9352);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9352);}while(r); +} +S_11342:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ +if(qbevent){evnt(9353);if(r)goto S_11342;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(9353);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9353);}while(r); +} +S_11346:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ +if(qbevent){evnt(9354);if(r)goto S_11346;} +do{ +*__LONG_S= 4 ; +if(!qbevent)break;evnt(9354);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9354);}while(r); +} +S_11350:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ +if(qbevent){evnt(9355);if(r)goto S_11350;} +do{ +*__LONG_S= 8 ; +if(!qbevent)break;evnt(9355);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9355);}while(r); +} +S_11354:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9357);if(r)goto S_11354;} +S_11355:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9359);if(r)goto S_11355;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1358; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=*(",4)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1358; +skip1358: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9360);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1359; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)",15),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1359; +skip1359: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9362);}while(r); +} +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1360; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1360; +skip1360: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9366);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1361; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1361; +skip1361: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9368);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1362; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); +if (new_error) goto skip1362; +skip1362: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9370);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1363; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); +if (new_error) goto skip1363; +skip1363: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9371);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1364; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size) ||",13)), 0 , 0 , 1 ); +if (new_error) goto skip1364; +skip1364: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9372);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1365; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id ){",15)), 0 , 0 , 1 ); +if (new_error) goto skip1365; +skip1365: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9373);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1366; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)), 0 , 0 , 1 ); +if (new_error) goto skip1366; +skip1366: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9375);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1367; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip1367; +skip1367: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9376);}while(r); +S_11369:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9377);if(r)goto S_11369;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1368; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=*(",13)),__STRING_ST),qbs_new_txt_len("*)",2)),__STRING_VAROFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1368; +skip1368: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9378);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1369; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)tmp_long,",24),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1369; +skip1369: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9380);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1370; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1370; +skip1370: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9382);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1371; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); +if (new_error) goto skip1371; +skip1371: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9383);}while(r); } }else{ do{ *__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9022);}while(r); -S_10942:; +if(!qbevent)break;evnt(9391);}while(r); +S_11379:; if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(9023);if(r)goto S_10942;} +if(qbevent){evnt(9392);if(r)goto S_11379;} do{ qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9023);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9023);}while(r); -} -S_10946:; -if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(9024);if(r)goto S_10946;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("_MEMFILL requires numeric type",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9024);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9024);}while(r); -} -S_10950:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(9025);if(r)goto S_10950;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(9025);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9027);}while(r); -S_10954:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9027);if(r)goto S_10954;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9027);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("AS",2)),__STRING1_SP),__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9028);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9029);}while(r); -S_10959:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9029);if(r)goto S_10959;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9029);}while(r); -} -do{ -qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9031);}while(r); -S_10963:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(9032);if(r)goto S_10963;} -do{ -qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9032);}while(r); -} -S_10966:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(9033);if(r)goto S_10966;} -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("OFFSET",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9034);}while(r); -}else{ -S_10969:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(9036);if(r)goto S_10969;} -S_10970:; -if ((-((*__LONG_T& 511 )== 32 ))||new_error){ -if(qbevent){evnt(9037);if(r)goto S_10970;} -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("SINGLE",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9037);}while(r); -} -S_10973:; -if ((-((*__LONG_T& 511 )== 64 ))||new_error){ -if(qbevent){evnt(9038);if(r)goto S_10973;} -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("DOUBLE",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9038);}while(r); -} -S_10976:; -if ((-((*__LONG_T& 511 )== 256 ))||new_error){ -if(qbevent){evnt(9039);if(r)goto S_10976;} -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("FLOAT",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9039);}while(r); -} -}else{ -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,FUNC_STR2(&(pass1304=(*__LONG_T& 511 )/ 8 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9041);}while(r); -} -} -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9044);}while(r); -S_10984:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(9045);if(r)goto S_10984;} -do{ -qbs_set(__STRING_C,qbs_add(qbs_add(qbs_add(__STRING_C,qbs_new_txt_len("(mem_block*)",12)),__STRING_BLKOFFS),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9045);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1305; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_C,__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1305; -skip1305: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9046);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9049);}while(r); -S_10990:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9049);if(r)goto S_10990;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9049);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9049);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9050);}while(r); -} -} -do{ -*__LONG_CISPECIAL= 0 ; -if(!qbevent)break;evnt(9068);}while(r); -S_10999:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9069);if(r)goto S_10999;} -S_11000:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPTX",10)))))||new_error){ -if(qbevent){evnt(9070);if(r)goto S_11000;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1307= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9071);}while(r); -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1308= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9072);}while(r); -do{ -*__LONG_N=*__LONG_N+ 3 ; -if(!qbevent)break;evnt(9073);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9074);}while(r); -do{ -*__LONG_CISPECIAL= 1 ; -if(!qbevent)break;evnt(9075);}while(r); -} -} -do{ -*__LONG_USECALL= 0 ; -if(!qbevent)break;evnt(9080);}while(r); -S_11009:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||new_error){ -if(qbevent){evnt(9081);if(r)goto S_11009;} -do{ -*__LONG_USECALL= 1 ; -if(!qbevent)break;evnt(9082);}while(r); -S_11011:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9083);if(r)goto S_11011;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9083);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9083);}while(r); -} -do{ -qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1309= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9084);}while(r); -do{ -qbs_set(__STRING_N,qbs_ucase(__STRING_CN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9084);}while(r); -S_11017:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9086);if(r)goto S_11017;} -S_11018:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(9088);if(r)goto S_11018;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9088);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9088);}while(r); -} -S_11022:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1310= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(9089);if(r)goto S_11022;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9089);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9089);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1311= 4 ),&(pass1312=*__LONG_N- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9090);}while(r); -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1313= 4 ),&(pass1314=*__LONG_N- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9091);}while(r); -S_11028:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPTX",10)))))||new_error){ -if(qbevent){evnt(9094);if(r)goto S_11028;} -S_11029:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||new_error){ -if(qbevent){evnt(9096);if(r)goto S_11029;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1315; -sub_file_print(tmp_fileno,qbs_new_txt_len("call_interrupt(",15), 0 , 0 , 0 ); -if (new_error) goto skip1315; -skip1315: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9096);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1316; -sub_file_print(tmp_fileno,qbs_new_txt_len("call_interruptx(",16), 0 , 0 , 0 ); -if (new_error) goto skip1316; -skip1316: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9096);}while(r); -} -do{ -*__LONG_ARGN= 0 ; -if(!qbevent)break;evnt(9097);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9098);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9099);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9100);}while(r); -S_11038:; -fornext_value1318= 2 ; -fornext_finalvalue1318=*__LONG_N; -fornext_step1318= 1 ; -if (fornext_step1318<0) fornext_step_negative1318=1; else fornext_step_negative1318=0; -if (new_error) goto fornext_error1318; -goto fornext_entrylabel1318; -while(1){ -fornext_value1318=fornext_step1318+(*__LONG_I); -fornext_entrylabel1318: -*__LONG_I=fornext_value1318; -if (fornext_step_negative1318){ -if (fornext_value1318fornext_finalvalue1318) break; -} -fornext_error1318:; -if(qbevent){evnt(9101);if(r)goto S_11038;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9102);}while(r); -S_11040:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9103);if(r)goto S_11040;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9103);}while(r); -} -S_11043:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9104);if(r)goto S_11043;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9104);}while(r); -} -S_11046:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ -if(qbevent){evnt(9105);if(r)goto S_11046;} -S_11047:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(9106);if(r)goto S_11047;} -S_11048:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9107);if(r)goto S_11048;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9107);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9107);}while(r); -} -} -do{ -*__LONG_ARGN=*__LONG_ARGN+ 1 ; -if(!qbevent)break;evnt(9109);}while(r); -S_11055:; -if ((-(*__LONG_ARGN== 1 ))||new_error){ -if(qbevent){evnt(9110);if(r)goto S_11055;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9111);}while(r); -S_11057:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9112);if(r)goto S_11057;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9112);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_N),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9113);}while(r); -S_11061:; -if ((-(*__LONG_CISPECIAL== 1 ))||new_error){ -if(qbevent){evnt(9114);if(r)goto S_11061;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_N,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9114);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1319= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9115);}while(r); -S_11065:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9116);if(r)goto S_11065;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9116);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1320; -sub_file_print(tmp_fileno,__STRING_E, 0 , 0 , 0 ); -if (new_error) goto skip1320; -skip1320: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9118);}while(r); -} -S_11070:; -if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||new_error){ -if(qbevent){evnt(9120);if(r)goto S_11070;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9121);}while(r); -S_11072:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9122);if(r)goto S_11072;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9122);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9123);}while(r); -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9124);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1321= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9125);}while(r); -S_11078:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9126);if(r)goto S_11078;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9126);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1322; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(",",1),__STRING_E), 0 , 0 , 0 ); -if (new_error) goto skip1322; -skip1322: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9128);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9130);}while(r); -}else{ -S_11085:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9132);if(r)goto S_11085;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9132);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9132);}while(r); -} -} -fornext_continue_1317:; -} -fornext_exit_1317:; -S_11092:; -if ((-(*__LONG_ARGN!= 3 ))||new_error){ -if(qbevent){evnt(9135);if(r)goto S_11092;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL INTERRUPT (interrupt-no, inregs, outregs)",55)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9135);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9135);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1323; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip1323; -skip1323: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9136);}while(r); -S_11097:; -if ((-(*__LONG_CISPECIAL== 0 ))||new_error){ -if(qbevent){evnt(9137);if(r)goto S_11097;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9137);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9138);}while(r); -S_11101:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9138);if(r)goto S_11101;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9138);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9138);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9140);}while(r); -} -S_11108:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||new_error){ -if(qbevent){evnt(9151);if(r)goto S_11108;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),qbs_new_txt_len("ABSOLUTE",8)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9152);}while(r); -do{ -*__LONG_ARGN= 0 ; -if(!qbevent)break;evnt(9153);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9154);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9155);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9156);}while(r); -S_11114:; -fornext_value1326= 2 ; -fornext_finalvalue1326=*__LONG_N; -fornext_step1326= 1 ; -if (fornext_step1326<0) fornext_step_negative1326=1; else fornext_step_negative1326=0; -if (new_error) goto fornext_error1326; -goto fornext_entrylabel1326; -while(1){ -fornext_value1326=fornext_step1326+(*__LONG_I); -fornext_entrylabel1326: -*__LONG_I=fornext_value1326; -if (fornext_step_negative1326){ -if (fornext_value1326fornext_finalvalue1326) break; -} -fornext_error1326:; -if(qbevent){evnt(9157);if(r)goto S_11114;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9158);}while(r); -S_11116:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9159);if(r)goto S_11116;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9159);}while(r); -} -S_11119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9160);if(r)goto S_11119;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9160);}while(r); -} -S_11122:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ -if(qbevent){evnt(9161);if(r)goto S_11122;} -S_11123:; -if ((-(*__LONG_I<*__LONG_N))||new_error){ -if(qbevent){evnt(9162);if(r)goto S_11123;} -S_11124:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9163);if(r)goto S_11124;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9163);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9163);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9165);}while(r); -S_11129:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9166);if(r)goto S_11129;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9166);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9167);}while(r); -do{ -qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9168);}while(r); -S_11134:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9169);if(r)goto S_11134;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9169);}while(r); -} -S_11137:; -if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(9171);if(r)goto S_11137;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("VARPTR",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_E),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9175);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1327=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9176);}while(r); -S_11140:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9177);if(r)goto S_11140;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9177);}while(r); -} -}else{ -S_11144:; -if ((*__LONG_TYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(9183);if(r)goto S_11144;} -S_11145:; -if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(9184);if(r)goto S_11145;} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1328=*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9185);}while(r); -S_11147:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9186);if(r)goto S_11147;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9186);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1329=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9187);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip1330; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("float *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip1330; -skip1330: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9188);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1331; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip1331; -skip1331: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9189);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1332; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); -if (new_error) goto skip1332; -skip1332: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9190);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1333; -sub_file_print(tmp_fileno,qbs_add(__STRING_V,qbs_new_txt_len("=(float*)(dblock+cmem_sp);",26)), 0 , 0 , 1 ); -if (new_error) goto skip1333; -skip1333: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9191);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1334; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen))||new_error){ -if(qbevent){evnt(9238);if(r)goto S_11216;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9238);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9238);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9239);}while(r); -} -}else{ -do{ -qbs_set(__STRING_A,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9244);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_CN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9245);}while(r); -do{ -*__LONG_USECALL= 2 ; -if(!qbevent)break;evnt(9246);}while(r); -} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9250);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1356= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9251);}while(r); -do{ -*__LONG_VALIDSUB= 0 ; -if(!qbevent)break;evnt(9254);}while(r); -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9255);}while(r); -S_11232:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9255);if(r)goto S_11232;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1357= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9255);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9256);}while(r); -S_11236:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9257);if(r)goto S_11236;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9257);}while(r); -} -S_11239:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(9258);if(r)goto S_11239;} -S_11240:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(9259);if(r)goto S_11240;} -do{ -*__LONG_VALIDSUB= 1 ; -if(!qbevent)break;evnt(9259);}while(r); -do{ -goto dl_exit_1358; -if(!qbevent)break;evnt(9259);}while(r); -} -S_11244:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(9260);if(r)goto S_11244;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9261);}while(r); -S_11246:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9261);if(r)goto S_11246;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1359= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9261);}while(r); -} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(9262);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9263);}while(r); -S_11251:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9264);if(r)goto S_11251;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9264);}while(r); -} -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(9266);}while(r); -} -dl_continue_1358:; -} -dl_exit_1358:; -S_11258:; -if ((-(*__LONG_VALIDSUB== 0 ))||new_error){ -if(qbevent){evnt(9269);if(r)goto S_11258;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9269);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9269);}while(r); -} -} -S_11263:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9273);if(r)goto S_11263;} -S_11264:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(9275);if(r)goto S_11264;} -do{ -qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9275);}while(r); -} -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9277);}while(r); -S_11268:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9277);if(r)goto S_11268;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1360= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9277);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9278);}while(r); -S_11272:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9279);if(r)goto S_11272;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9279);}while(r); -} -S_11275:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(9280);if(r)goto S_11275;} -S_11276:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(9281);if(r)goto S_11276;} -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(qbs_add(__STRING_FIRSTELEMENT,qbs_new_txt_len("",0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9284);}while(r); -S_11278:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9285);if(r)goto S_11278;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9285);}while(r); -} -S_11281:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 36 )))||new_error){ -if(qbevent){evnt(9286);if(r)goto S_11281;} -S_11282:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(9287);if(r)goto S_11282;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9287);}while(r); -} -}else{ -S_11286:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ -if(qbevent){evnt(9289);if(r)goto S_11286;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9289);}while(r); -} -} -S_11290:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9292);if(r)goto S_11290;} -S_11291:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1))!= 61 )))||new_error){ -if(qbevent){evnt(9293);if(r)goto S_11291;} -S_11292:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1363= 2 )))== 61 )))||new_error){ -if(qbevent){evnt(9294);if(r)goto S_11292;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9294);}while(r); -} -} -} -S_11297:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9298);if(r)goto S_11297;} -S_11298:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||new_error){ -if(qbevent){evnt(9299);if(r)goto S_11298;} -S_11299:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1364= 2 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9300);if(r)goto S_11299;} -do{ -*__LONG_B= 1 ; -if(!qbevent)break;evnt(9301);}while(r); -S_11301:; -fornext_value1366= 3 ; -fornext_finalvalue1366=*__LONG_N; -fornext_step1366= 1 ; -if (fornext_step1366<0) fornext_step_negative1366=1; else fornext_step_negative1366=0; -if (new_error) goto fornext_error1366; -goto fornext_entrylabel1366; -while(1){ -fornext_value1366=fornext_step1366+(*__LONG_I); -fornext_entrylabel1366: -*__LONG_I=fornext_value1366; -if (fornext_step_negative1366){ -if (fornext_value1366fornext_finalvalue1366) break; -} -fornext_error1366:; -if(qbevent){evnt(9302);if(r)goto S_11301;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9303);}while(r); -S_11303:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9304);if(r)goto S_11303;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9304);}while(r); -} -S_11306:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9305);if(r)goto S_11306;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9306);}while(r); -S_11308:; -if ((-(*__LONG_B== 0 ))||new_error){ -if(qbevent){evnt(9307);if(r)goto S_11308;} -S_11309:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(9308);if(r)goto S_11309;} -do{ -goto fornext_exit_1365; -if(!qbevent)break;evnt(9308);}while(r); -} -S_11312:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1367=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(9309);if(r)goto S_11312;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9309);}while(r); -} -} -} -fornext_continue_1365:; -} -fornext_exit_1365:; -} -} -} -S_11321:; -if ((*(int16*)(((char*)__UDT_ID)+(2861)))||new_error){ -if(qbevent){evnt(9318);if(r)goto S_11321;} -S_11322:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(9319);if(r)goto S_11322;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9319);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9319);}while(r); -} -} -S_11327:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(9323);if(r)goto S_11327;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB _GL directly",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9323);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9323);}while(r); -} -S_11331:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||new_error){ -if(qbevent){evnt(9325);if(r)goto S_11331;} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9327);}while(r); -S_11333:; -fornext_value1369= 2 ; -fornext_finalvalue1369=*__LONG_N; -fornext_step1369= 1 ; -if (fornext_step1369<0) fornext_step_negative1369=1; else fornext_step_negative1369=0; -if (new_error) goto fornext_error1369; -goto fornext_entrylabel1369; -while(1){ -fornext_value1369=fornext_step1369+(*__LONG_X); -fornext_entrylabel1369: -*__LONG_X=fornext_value1369; -if (fornext_step_negative1369){ -if (fornext_value1369fornext_finalvalue1369) break; -} -fornext_error1369:; -if(qbevent){evnt(9328);if(r)goto S_11333;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9329);}while(r); -S_11335:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9330);if(r)goto S_11335;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9330);}while(r); -} -S_11338:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9331);if(r)goto S_11338;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9331);}while(r); -} -S_11341:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("FOR",3)))|(qbs_equal(__STRING_A2,qbs_new_txt_len("AS",2)))))||new_error){ -if(qbevent){evnt(9332);if(r)goto S_11341;} -do{ -goto fornext_exit_1368; -if(!qbevent)break;evnt(9332);}while(r); -} -S_11344:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(9333);if(r)goto S_11344;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(9334);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9335);}while(r); -S_11347:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9336);if(r)goto S_11347;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9336);}while(r); -} -do{ -goto fornext_exit_1368; -if(!qbevent)break;evnt(9337);}while(r); -} -fornext_continue_1368:; -} -fornext_exit_1368:; -} -S_11354:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLOSE",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5)))))||new_error){ -if(qbevent){evnt(9347);if(r)goto S_11354;} -S_11355:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||new_error){ -if(qbevent){evnt(9348);if(r)goto S_11355;} -S_11356:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9349);if(r)goto S_11356;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9349);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9349);}while(r); -} -} -do{ -qbs_set(__STRING_L,__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9351);}while(r); -S_11362:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9352);if(r)goto S_11362;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1370; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_close(NULL,0);",18), 0 , 0 , 1 ); -if (new_error) goto skip1370; -skip1370: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9353);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9355);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9356);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(9357);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9358);}while(r); -S_11369:; -fornext_value1372= 2 ; -fornext_finalvalue1372=*__LONG_N; -fornext_step1372= 1 ; -if (fornext_step1372<0) fornext_step_negative1372=1; else fornext_step_negative1372=0; -if (new_error) goto fornext_error1372; -goto fornext_entrylabel1372; -while(1){ -fornext_value1372=fornext_step1372+(*__LONG_X); -fornext_entrylabel1372: -*__LONG_X=fornext_value1372; -if (fornext_step_negative1372){ -if (fornext_value1372fornext_finalvalue1372) break; -} -fornext_error1372:; -if(qbevent){evnt(9359);if(r)goto S_11369;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9360);}while(r); -S_11371:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9361);if(r)goto S_11371;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9361);}while(r); -} -S_11374:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9362);if(r)goto S_11374;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9362);}while(r); -} -S_11377:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9363);if(r)goto S_11377;} -S_11378:; -if ((-(*__LONG_S== 0 ))||new_error){ -if(qbevent){evnt(9364);if(r)goto S_11378;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(9364);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9364);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9364);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,qbs_new_txt_len("#",1)),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9365);}while(r); -do{ -goto LABEL_CLOSENEXTA; -if(!qbevent)break;evnt(9366);}while(r); -} -S_11387:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9369);if(r)goto S_11387;} -S_11388:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(9370);if(r)goto S_11388;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9371);}while(r); -S_11390:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9372);if(r)goto S_11390;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9372);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9373);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1373= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9374);}while(r); -S_11395:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9375);if(r)goto S_11395;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9375);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1374; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1374; -skip1374: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9376);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9377);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(9378);}while(r); -do{ -goto LABEL_CLOSENEXTA; -if(!qbevent)break;evnt(9379);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before ,",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9381);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9381);}while(r); -} -} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(9385);}while(r); -S_11408:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9386);if(r)goto S_11408;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9386);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9386);}while(r); -} -LABEL_CLOSENEXTA:; -if(qbevent){evnt(9388);r=0;} -fornext_continue_1371:; -} -fornext_exit_1371:; -S_11414:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(9391);if(r)goto S_11414;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9392);}while(r); -S_11416:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9393);if(r)goto S_11416;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9392);}while(r); +} +S_11383:; +if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9393);if(r)goto S_11383;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMPUT requires numeric type",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9393);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9393);}while(r); } +S_11387:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(9394);if(r)goto S_11387;} do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; if(!qbevent)break;evnt(9394);}while(r); +} do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1375= 64 ))); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9395);}while(r); -S_11421:; +if(!qbevent)break;evnt(9396);}while(r); +S_11391:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9396);if(r)goto S_11421;} +if(qbevent){evnt(9396);if(r)goto S_11391;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(9396);}while(r); } do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9397);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9398);}while(r); +S_11396:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9398);if(r)goto S_11396;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9398);}while(r); +} +do{ +qbs_set(__STRING_ST,FUNC_TYP2CTYP(__LONG_T,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9399);}while(r); +do{ +qbs_set(__STRING_VARSIZE,FUNC_STR2(&(pass1372=(*__LONG_T& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9400);}while(r); +S_11401:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9401);if(r)goto S_11401;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1373; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)(",3)),__STRING_OFFS),qbs_new_txt_len(")=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1373; +skip1373: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9403);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1374; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_OFFS),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1374; +skip1374: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9406);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1375; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ( ((mem_block*)(",19),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset ){",18)), 0 , 0 , 1 ); +if (new_error) goto skip1375; +skip1375: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9408);}while(r); +do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1376; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("if (",4), 0 , 0 , 1 ); if (new_error) goto skip1376; skip1376: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9397);}while(r); -}else{ +if(!qbevent)break;evnt(9410);}while(r); do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1377; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long < ((mem_block*)(",25),__STRING_BLKOFFS),qbs_new_txt_len("))->offset ||",14)), 0 , 0 , 1 ); +if (new_error) goto skip1377; +skip1377: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9399);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9411);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1378; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(tmp_long+(",11),__STRING_VARSIZE),qbs_new_txt_len(")) > ( ((mem_block*)(",21)),__STRING_BLKOFFS),qbs_new_txt_len("))->offset + ((mem_block*)(",27)),__STRING_BLKOFFS),qbs_new_txt_len("))->size) ||",13)), 0 , 0 , 1 ); +if (new_error) goto skip1378; +skip1378: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9412);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1379; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((mem_block*)(",26),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id ){",15)), 0 , 0 , 1 ); +if (new_error) goto skip1379; +skip1379: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9413);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1380; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (",4),qbs_new_txt_len("((mem_lock*)((mem_block*)(",26)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_offset)->id != ((mem_block*)(",38)),__STRING_BLKOFFS),qbs_new_txt_len("))->lock_id",11)),qbs_new_txt_len(") error(308); else error(300);",30)), 0 , 0 , 1 ); +if (new_error) goto skip1380; +skip1380: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9415);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1381; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip1381; +skip1381: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9416);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1382; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),__STRING_ST),qbs_new_txt_len("*)tmp_long=",11)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1382; +skip1382: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9417);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1383; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1383; +skip1383: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9418);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1384; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else error(309);",17), 0 , 0 , 1 ); +if (new_error) goto skip1384; +skip1384: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9419);}while(r); } } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9403);}while(r); -S_11430:; +if(!qbevent)break;evnt(9424);}while(r); +S_11418:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9403);if(r)goto S_11430;} +if(qbevent){evnt(9424);if(r)goto S_11418;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9403);}while(r); +if(!qbevent)break;evnt(9424);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9403);}while(r); +if(!qbevent)break;evnt(9424);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9404);}while(r); -} -S_11437:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||new_error){ -if(qbevent){evnt(9423);if(r)goto S_11437;} -do{ -SUB_XREAD(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9424);}while(r); -S_11439:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9425);if(r)goto S_11439;} -do{ -goto LABEL_ERRMES; if(!qbevent)break;evnt(9425);}while(r); } -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9427);}while(r); } +S_11426:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9434);if(r)goto S_11426;} +S_11427:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMFILL",7)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(9435);if(r)goto S_11427;} do{ -*__LONG_LINEINPUT= 0 ; -if(!qbevent)break;evnt(9466);}while(r); -S_11445:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9467);if(r)goto S_11445;} +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9437);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9438);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9439);}while(r); +do{ +*__LONG_NE= 0 ; +if(!qbevent)break;evnt(9440);}while(r); +S_11432:; +fornext_value1387= 2 ; +fornext_finalvalue1387=*__LONG_N; +fornext_step1387= 1 ; +if (fornext_step1387<0) fornext_step_negative1387=1; else fornext_step_negative1387=0; +if (new_error) goto fornext_error1387; +goto fornext_entrylabel1387; +while(1){ +fornext_value1387=fornext_step1387+(*__LONG_I2); +fornext_entrylabel1387: +*__LONG_I2=fornext_value1387; +if (fornext_step_negative1387){ +if (fornext_value1387fornext_finalvalue1387) break; +} +fornext_error1387:; +if(qbevent){evnt(9441);if(r)goto S_11432;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9442);}while(r); +S_11434:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9443);if(r)goto S_11434;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9443);}while(r); +} +S_11437:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9444);if(r)goto S_11437;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9444);}while(r); +} +S_11440:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9445);if(r)goto S_11440;} +do{ +*__LONG_NE=*__LONG_NE+ 1 ; +if(!qbevent)break;evnt(9446);}while(r); +S_11442:; +if ((-(*__LONG_NE== 1 ))||new_error){ +if(qbevent){evnt(9447);if(r)goto S_11442;} +do{ +qbs_set(__STRING_BLK,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9447);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9447);}while(r); +} S_11446:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LINE",4)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("INPUT",5)))))||new_error){ -if(qbevent){evnt(9468);if(r)goto S_11446;} +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9448);if(r)goto S_11446;} do{ -*__LONG_LINEINPUT= 1 ; -if(!qbevent)break;evnt(9469);}while(r); -do{ -qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len- 5 )); +qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9470);}while(r); +if(!qbevent)break;evnt(9448);}while(r); do{ -qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 5 )); +qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9470);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(9470);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9471);}while(r); +if(!qbevent)break;evnt(9448);}while(r); } +S_11450:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9449);if(r)goto S_11450;} +do{ +qbs_set(__STRING_BYTES,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9449);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9449);}while(r); } S_11454:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(9475);if(r)goto S_11454;} -S_11455:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9476);if(r)goto S_11455;} -S_11456:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1381= 2 )),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(9477);if(r)goto S_11456;} +if ((-(*__LONG_NE== 4 ))||new_error){ +if(qbevent){evnt(9450);if(r)goto S_11454;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("INPUT",5),__STRING1_SP),qbs_new_txt_len("#",1))); +qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9478);}while(r); +if(!qbevent)break;evnt(9450);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9450);}while(r); +} S_11458:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9478);if(r)goto S_11458;} +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_NE!= 4 ))))|(((-(*__LONG_NE== 4 ))&(qbs_notequal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))))|(-(*__LONG_NE== 5 ))))||new_error){ +if(qbevent){evnt(9451);if(r)goto S_11458;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("LINE",4),__STRING1_SP),__STRING_L)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]",68)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9478);}while(r); -} -do{ -qbs_set(__STRING_U,FUNC_STR2(&(pass1382=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9480);}while(r); -S_11462:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(9482);if(r)goto S_11462;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9482);}while(r); +if(!qbevent)break;evnt(9451);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9482);}while(r); +if(!qbevent)break;evnt(9451);}while(r); } -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9483);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9484);}while(r); -S_11468:; -fornext_value1384= 3 ; -fornext_finalvalue1384=*__LONG_N; -fornext_step1384= 1 ; -if (fornext_step1384<0) fornext_step_negative1384=1; else fornext_step_negative1384=0; -if (new_error) goto fornext_error1384; -goto fornext_entrylabel1384; -while(1){ -fornext_value1384=fornext_step1384+(*__LONG_I); -fornext_entrylabel1384: -*__LONG_I=fornext_value1384; -if (fornext_step_negative1384){ -if (fornext_value1384fornext_finalvalue1384) break; -} -fornext_error1384:; -if(qbevent){evnt(9485);if(r)goto S_11468;} +S_11463:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(9453);if(r)goto S_11463;} do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9486);}while(r); +if(!qbevent)break;evnt(9453);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9453);}while(r); +} +} +fornext_continue_1386:; +} +fornext_exit_1386:; S_11470:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9487);if(r)goto S_11470;} +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(9456);if(r)goto S_11470;} do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9487);}while(r); -} -S_11473:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9488);if(r)goto S_11473;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9488);}while(r); -} -S_11476:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9489);if(r)goto S_11476;} -S_11477:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9490);if(r)goto S_11477;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMFILL mem-reference, offset, bytes, variable|value[AS type]",61))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9490);}while(r); +if(!qbevent)break;evnt(9456);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9490);}while(r); +if(!qbevent)break;evnt(9456);}while(r); } +S_11474:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9457);if(r)goto S_11474;} do{ -goto LABEL_INPUTGOTFN; -if(!qbevent)break;evnt(9491);}while(r); -} -S_11483:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9493);if(r)goto S_11483;} -do{ -qbs_set(__STRING_A3,__STRING_A2); +qbs_set(__STRING_VAR,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9493);}while(r); +if(!qbevent)break;evnt(9457);}while(r); }else{ do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9493);}while(r); +if(!qbevent)break;evnt(9457);}while(r); } -fornext_continue_1383:; -} -fornext_exit_1383:; -LABEL_INPUTGOTFN:; -if(qbevent){evnt(9495);r=0;} +S_11479:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||new_error){ +if(qbevent){evnt(9459);if(r)goto S_11479;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemFill",8)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9496);}while(r); +if(!qbevent)break;evnt(9459);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemFill",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9459);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9461);}while(r); +S_11485:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9461);if(r)goto S_11485;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9461);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9462);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9464);}while(r); S_11490:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9497);if(r)goto S_11490;} +if(qbevent){evnt(9464);if(r)goto S_11490;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9497);}while(r); +if(!qbevent)break;evnt(9464);}while(r); +} +S_11493:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ +if(qbevent){evnt(9465);if(r)goto S_11493;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9465);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9465);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT)); +qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1389= -6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9498);}while(r); +if(!qbevent)break;evnt(9466);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1385= 64 ))); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9499);}while(r); -S_11495:; +if(!qbevent)break;evnt(9468);}while(r); +S_11499:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9500);if(r)goto S_11495;} +if(qbevent){evnt(9468);if(r)goto S_11499;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9500);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1386; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1386; -skip1386: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9501);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1387; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1387; -skip1387: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9502);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(9503);}while(r); -S_11501:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(9504);if(r)goto S_11501;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9504);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9504);}while(r); -} -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9505);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9506);}while(r); -S_11507:; -fornext_value1389=*__LONG_I; -fornext_finalvalue1389=*__LONG_N; -fornext_step1389= 1 ; -if (fornext_step1389<0) fornext_step_negative1389=1; else fornext_step_negative1389=0; -if (new_error) goto fornext_error1389; -goto fornext_entrylabel1389; -while(1){ -fornext_value1389=fornext_step1389+(*__LONG_I); -fornext_entrylabel1389: -*__LONG_I=fornext_value1389; -if (fornext_step_negative1389){ -if (fornext_value1389fornext_finalvalue1389) break; -} -fornext_error1389:; -if(qbevent){evnt(9507);if(r)goto S_11507;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9508);}while(r); -S_11509:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9509);if(r)goto S_11509;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9509);}while(r); -} -S_11512:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9510);if(r)goto S_11512;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9510);}while(r); -} -S_11515:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(9511);if(r)goto S_11515;} -S_11516:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9512);if(r)goto S_11516;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9512);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9512);}while(r); -} -do{ -qbs_set(__STRING_A2,qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9513);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9513);}while(r); -} -S_11524:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9515);if(r)goto S_11524;} -S_11525:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9516);if(r)goto S_11525;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9516);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9516);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9517);}while(r); -S_11530:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9518);if(r)goto S_11530;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9518);}while(r); +if(!qbevent)break;evnt(9468);}while(r); } do{ qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9519);}while(r); +if(!qbevent)break;evnt(9469);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1390=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9520);}while(r); -S_11535:; +if(!qbevent)break;evnt(9470);}while(r); +S_11504:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9521);if(r)goto S_11535;} +if(qbevent){evnt(9470);if(r)goto S_11504;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9521);}while(r); +if(!qbevent)break;evnt(9470);}while(r); } -S_11538:; -if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(9522);if(r)goto S_11538;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); +qbs_set(__STRING_OFFS,__STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9522);}while(r); +if(!qbevent)break;evnt(9471);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9522);}while(r); -} -S_11542:; -if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(9523);if(r)goto S_11542;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1390= 0 ))); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9524);}while(r); -S_11544:; +if(!qbevent)break;evnt(9473);}while(r); +S_11509:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9525);if(r)goto S_11544;} +if(qbevent){evnt(9473);if(r)goto S_11509;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9525);}while(r); +if(!qbevent)break;evnt(9473);}while(r); } -S_11547:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9526);if(r)goto S_11547;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1391; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_line_input_string(tmp_fileno,",38),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1391; -skip1391: +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9527);}while(r); +if(!qbevent)break;evnt(9474);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1391=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9475);}while(r); +S_11514:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9475);if(r)goto S_11514;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9475);}while(r); +} +do{ +qbs_set(__STRING_BYTES,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9476);}while(r); +S_11518:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9478);if(r)goto S_11518;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9479);}while(r); +S_11520:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9479);if(r)goto S_11520;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9479);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9480);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9481);}while(r); +S_11525:; +if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9482);if(r)goto S_11525;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1392; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=(ptrszint)",19),__STRING_TEST),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1392; skip1392: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9528);}while(r); +if(!qbevent)break;evnt(9483);}while(r); +do{ +qbs_set(__STRING_VARSIZE,qbs_new_txt_len("((qbs*)tmp_long)->len",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9484);}while(r); +do{ +qbs_set(__STRING_VAROFFS,qbs_new_txt_len("((qbs*)tmp_long)->chr",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9485);}while(r); }else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1393; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_input_string(tmp_fileno,",33),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1393; -skip1393: +qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1393= -5 ))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9530);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1394; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1394; -skip1394: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9531);}while(r); -} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(9533);}while(r); -}else{ -S_11556:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9535);if(r)goto S_11556;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9535);}while(r); +if(!qbevent)break;evnt(9487);}while(r); +S_11531:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9487);if(r)goto S_11531;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9535);}while(r); +if(!qbevent)break;evnt(9487);}while(r); } -S_11560:; -if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||new_error){ -if(qbevent){evnt(9538);if(r)goto S_11560;} -S_11561:; -if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(9539);if(r)goto S_11561;} do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_file_input_float(tmp_fileno,",41),FUNC_STR2(__LONG_T)),qbs_new_txt_len("))",2)),&(pass1395= 1 )); +qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1394= -6 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9540);}while(r); +if(!qbevent)break;evnt(9488);}while(r); +S_11535:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9488);if(r)goto S_11535;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9488);}while(r); +} +} +S_11539:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9491);if(r)goto S_11539;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1395; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill_nochecks(",22),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1395; +skip1395: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9492);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1396; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub__memfill((mem_block*)",25),__STRING_BLKOFFS),qbs_new_txt_len(",",1)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",(ptrszint)",11)),__STRING_VAROFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1396; +skip1396: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9494);}while(r); +} +}else{ +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9500);}while(r); +S_11546:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(9501);if(r)goto S_11546;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9501);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9501);}while(r); +} +S_11550:; +if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9502);if(r)goto S_11550;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMFILL requires numeric type",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9502);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9502);}while(r); +} +S_11554:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(9503);if(r)goto S_11554;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(9503);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9505);}while(r); +S_11558:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9505);if(r)goto S_11558;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9505);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2))),__STRING1_SP),__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9506);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9507);}while(r); S_11563:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9541);if(r)goto S_11563;} +if(qbevent){evnt(9507);if(r)goto S_11563;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9541);}while(r); +if(!qbevent)break;evnt(9507);}while(r); } -}else{ do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_file_input_float(tmp_fileno,",33),FUNC_STR2(__LONG_T)),qbs_new_txt_len(")",1)),&(pass1396= 1 )); +qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9543);}while(r); -S_11568:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9544);if(r)goto S_11568;} +if(!qbevent)break;evnt(9509);}while(r); +S_11567:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9510);if(r)goto S_11567;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9544);}while(r); -} +qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9510);}while(r); } +S_11570:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(9511);if(r)goto S_11570;} +do{ +qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("OFFSET",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9512);}while(r); }else{ S_11573:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(9547);if(r)goto S_11573;} +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(9514);if(r)goto S_11573;} +S_11574:; +if ((-((*__LONG_T& 511 )== 32 ))||new_error){ +if(qbevent){evnt(9515);if(r)goto S_11574;} do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1397= 1 )); +qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("SINGLE",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9548);}while(r); -S_11575:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9549);if(r)goto S_11575;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9549);}while(r); +if(!qbevent)break;evnt(9515);}while(r); } -}else{ +S_11577:; +if ((-((*__LONG_T& 511 )== 64 ))||new_error){ +if(qbevent){evnt(9516);if(r)goto S_11577;} do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1398= 1 )); +qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("DOUBLE",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9551);}while(r); +if(!qbevent)break;evnt(9516);}while(r); +} S_11580:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9552);if(r)goto S_11580;} +if ((-((*__LONG_T& 511 )== 256 ))||new_error){ +if(qbevent){evnt(9517);if(r)goto S_11580;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9552);}while(r); -} -} -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1399; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1399; -skip1399: +qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("FLOAT",5))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9556);}while(r); +if(!qbevent)break;evnt(9517);}while(r); } -S_11587:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(9559);if(r)goto S_11587;} -do{ -goto fornext_exit_1388; -if(!qbevent)break;evnt(9559);}while(r); -} -S_11590:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9560);if(r)goto S_11590;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9560);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9560);}while(r); -} -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9561);}while(r); -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9561);}while(r); -} -S_11597:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9563);if(r)goto S_11597;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9563);}while(r); }else{ do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_set(__STRING_C,qbs_add(__STRING_C,FUNC_STR2(&(pass1397=(*__LONG_T& 511 )/ 8 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9563);}while(r); +if(!qbevent)break;evnt(9519);}while(r); } -fornext_continue_1388:; } -fornext_exit_1388:; +do{ +qbs_set(__STRING_C,qbs_add(__STRING_C,qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9522);}while(r); +S_11588:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(9523);if(r)goto S_11588;} +do{ +qbs_set(__STRING_C,qbs_add(qbs_add(qbs_add(__STRING_C,qbs_new_txt_len("(mem_block*)",12)),__STRING_BLKOFFS),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9523);}while(r); +} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1400; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),__STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip1400; -skip1400: +if (new_error) goto skip1398; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_C,__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_BYTES),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1398; +skip1398: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9565);}while(r); -S_11604:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(9566);if(r)goto S_11604;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1401; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip1401; -skip1401: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9566);}while(r); +if(!qbevent)break;evnt(9524);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9567);}while(r); -S_11608:; +if(!qbevent)break;evnt(9527);}while(r); +S_11594:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9567);if(r)goto S_11608;} +if(qbevent){evnt(9527);if(r)goto S_11594;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9567);}while(r); +if(!qbevent)break;evnt(9527);}while(r); }else{ do{ qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9567);}while(r); +if(!qbevent)break;evnt(9527);}while(r); } do{ goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9528);}while(r); +} +} +do{ +*__LONG_CISPECIAL= 0 ; +if(!qbevent)break;evnt(9546);}while(r); +S_11603:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9547);if(r)goto S_11603;} +S_11604:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INTERRUPTX",10)))))||new_error){ +if(qbevent){evnt(9548);if(r)goto S_11604;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1400= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9549);}while(r); +do{ +qbs_set(__STRING_CA,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),__STRING_FIRSTELEMENT),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1401= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9550);}while(r); +do{ +*__LONG_N=*__LONG_N+ 3 ; +if(!qbevent)break;evnt(9551);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9552);}while(r); +do{ +*__LONG_CISPECIAL= 1 ; +if(!qbevent)break;evnt(9553);}while(r); +} +} +do{ +*__LONG_USECALL= 0 ; +if(!qbevent)break;evnt(9558);}while(r); +S_11613:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||new_error){ +if(qbevent){evnt(9559);if(r)goto S_11613;} +do{ +*__LONG_USECALL= 1 ; +if(!qbevent)break;evnt(9560);}while(r); +S_11615:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9561);if(r)goto S_11615;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9561);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9561);}while(r); +} +do{ +qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1402= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9562);}while(r); +do{ +qbs_set(__STRING_N,qbs_ucase(__STRING_CN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9562);}while(r); +S_11621:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9564);if(r)goto S_11621;} +S_11622:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(9566);if(r)goto S_11622;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9566);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9566);}while(r); +} +S_11626:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1403= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(9567);if(r)goto S_11626;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9567);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9567);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1404= 4 ),&(pass1405=*__LONG_N- 1 )))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9568);}while(r); -} -} -} -S_11617:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(9574);if(r)goto S_11617;} do{ -qbs_set(__STRING_L,qbs_new_txt_len("INPUT",5)); +qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1406= 4 ),&(pass1407=*__LONG_N- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9575);}while(r); -S_11619:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9575);if(r)goto S_11619;} +if(!qbevent)break;evnt(9569);}while(r); +S_11632:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9)))|(qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPTX",10)))))||new_error){ +if(qbevent){evnt(9572);if(r)goto S_11632;} +S_11633:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||new_error){ +if(qbevent){evnt(9574);if(r)goto S_11633;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("LINE",4),__STRING1_SP),__STRING_L)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1408; +sub_file_print(tmp_fileno,qbs_new_txt_len("call_interrupt(",15), 0 , 0 , 0 ); +if (new_error) goto skip1408; +skip1408: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9575);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9574);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1409; +sub_file_print(tmp_fileno,qbs_new_txt_len("call_interruptx(",16), 0 , 0 , 0 ); +if (new_error) goto skip1409; +skip1409: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9574);}while(r); } do{ -*__LONG_COMMANEEDED= 0 ; +*__LONG_ARGN= 0 ; +if(!qbevent)break;evnt(9575);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9576);}while(r); do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(9577);}while(r); -do{ -*__LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(9579);}while(r); -S_11625:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(9579);if(r)goto S_11625;} -do{ -*__LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(9579);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(9579);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9579);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9581);}while(r); -S_11631:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(9582);if(r)goto S_11631;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9583);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9583);}while(r); -S_11634:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9584);if(r)goto S_11634;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9584);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1403; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt_len(",26),__STRING_A2),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1403; -skip1403: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9585);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(9586);}while(r); -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9588);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(9589);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9590);}while(r); -S_11642:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(9591);if(r)goto S_11642;} -S_11643:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9592);if(r)goto S_11643;} -do{ -goto LABEL_FINISHEDPROMPTSTRING; -if(!qbevent)break;evnt(9592);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1404; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1404; -skip1404: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9593);}while(r); -do{ -goto LABEL_FINISHEDPROMPTSTRING; -if(!qbevent)break;evnt(9594);}while(r); -} -S_11649:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(9596);if(r)goto S_11649;} -do{ -goto LABEL_FINISHEDPROMPTSTRING; -if(!qbevent)break;evnt(9597);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("INPUT STATEMENT: SYNTAX ERROR!",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9599);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9599);}while(r); -} -S_11655:; -if ((-(*__LONG_LINEINPUT== 0 ))||new_error){ -if(qbevent){evnt(9602);if(r)goto S_11655;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1405; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1405; -skip1405: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9602);}while(r); -} -LABEL_FINISHEDPROMPTSTRING:; -if(qbevent){evnt(9603);r=0;} -do{ -*__LONG_NUMVAR= 0 ; -if(!qbevent)break;evnt(9604);}while(r); -S_11659:; -fornext_value1407=*__LONG_I; -fornext_finalvalue1407=*__LONG_N; -fornext_step1407= 1 ; -if (fornext_step1407<0) fornext_step_negative1407=1; else fornext_step_negative1407=0; -if (new_error) goto fornext_error1407; -goto fornext_entrylabel1407; -while(1){ -fornext_value1407=fornext_step1407+(*__LONG_I); -fornext_entrylabel1407: -*__LONG_I=fornext_value1407; -if (fornext_step_negative1407){ -if (fornext_value1407fornext_finalvalue1407) break; -} -fornext_error1407:; -if(qbevent){evnt(9605);if(r)goto S_11659;} -S_11660:; -if ((-(*__LONG_COMMANEEDED== 1 ))||new_error){ -if(qbevent){evnt(9606);if(r)goto S_11660;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9607);}while(r); -S_11662:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(9608);if(r)goto S_11662;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("INPUT STATEMENT: SYNTAX ERROR! (COMMA EXPECTED)",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9608);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9608);}while(r); -} -}else{ -do{ *__LONG_B= 0 ; -if(!qbevent)break;evnt(9611);}while(r); +if(!qbevent)break;evnt(9577);}while(r); do{ qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9612);}while(r); -S_11669:; -fornext_value1409=*__LONG_I; -fornext_finalvalue1409=*__LONG_N; -fornext_step1409= 1 ; -if (fornext_step1409<0) fornext_step_negative1409=1; else fornext_step_negative1409=0; -if (new_error) goto fornext_error1409; -goto fornext_entrylabel1409; +if(!qbevent)break;evnt(9578);}while(r); +S_11642:; +fornext_value1411= 2 ; +fornext_finalvalue1411=*__LONG_N; +fornext_step1411= 1 ; +if (fornext_step1411<0) fornext_step_negative1411=1; else fornext_step_negative1411=0; +if (new_error) goto fornext_error1411; +goto fornext_entrylabel1411; while(1){ -fornext_value1409=fornext_step1409+(*__LONG_I2); -fornext_entrylabel1409: -*__LONG_I2=fornext_value1409; -if (fornext_step_negative1409){ -if (fornext_value1409fornext_finalvalue1409) break; +if (fornext_value1411>fornext_finalvalue1411) break; } -fornext_error1409:; -if(qbevent){evnt(9613);if(r)goto S_11669;} +fornext_error1411:; +if(qbevent){evnt(9579);if(r)goto S_11642;} do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9614);}while(r); -S_11671:; +if(!qbevent)break;evnt(9580);}while(r); +S_11644:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9615);if(r)goto S_11671;} +if(qbevent){evnt(9581);if(r)goto S_11644;} do{ *__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9615);}while(r); +if(!qbevent)break;evnt(9581);}while(r); } -S_11674:; +S_11647:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9616);if(r)goto S_11674;} +if(qbevent){evnt(9582);if(r)goto S_11647;} do{ *__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9616);}while(r); +if(!qbevent)break;evnt(9582);}while(r); } -S_11677:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9617);if(r)goto S_11677;} +S_11650:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ +if(qbevent){evnt(9583);if(r)goto S_11650;} +S_11651:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(9584);if(r)goto S_11651;} +S_11652:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9585);if(r)goto S_11652;} do{ -*__LONG_I2=*__LONG_I2- 1 ; -if(!qbevent)break;evnt(9617);}while(r); -do{ -goto fornext_exit_1408; -if(!qbevent)break;evnt(9617);}while(r); -} +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9585);}while(r); +}else{ do{ qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9618);}while(r); -fornext_continue_1408:; +if(!qbevent)break;evnt(9585);}while(r); } -fornext_exit_1408:; -do{ -*__LONG_I=*__LONG_I2; -if(!qbevent)break;evnt(9620);}while(r); -S_11684:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(9620);if(r)goto S_11684;} -do{ -*__LONG_I=*__LONG_N; -if(!qbevent)break;evnt(9620);}while(r); -} -S_11687:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9621);if(r)goto S_11687;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9621);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9621);}while(r); } do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9622);}while(r); +*__LONG_ARGN=*__LONG_ARGN+ 1 ; +if(!qbevent)break;evnt(9587);}while(r); +S_11659:; +if ((-(*__LONG_ARGN== 1 ))||new_error){ +if(qbevent){evnt(9588);if(r)goto S_11659;} do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9623);}while(r); -S_11693:; +if(!qbevent)break;evnt(9589);}while(r); +S_11661:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9624);if(r)goto S_11693;} +if(qbevent){evnt(9590);if(r)goto S_11661;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9624);}while(r); +if(!qbevent)break;evnt(9590);}while(r); } do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),__STRING_N),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9625);}while(r); -S_11697:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(9625);if(r)goto S_11697;} +if(!qbevent)break;evnt(9591);}while(r); +S_11665:; +if ((-(*__LONG_CISPECIAL== 1 ))||new_error){ +if(qbevent){evnt(9592);if(r)goto S_11665;} do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_N,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9625);}while(r); +if(!qbevent)break;evnt(9592);}while(r); } do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1412= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9626);}while(r); -S_11701:; +if(!qbevent)break;evnt(9593);}while(r); +S_11669:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9627);if(r)goto S_11701;} +if(qbevent){evnt(9594);if(r)goto S_11669;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9627);}while(r); +if(!qbevent)break;evnt(9594);}while(r); } -S_11704:; -if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(9628);if(r)goto S_11704;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9628);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9628);}while(r); -} -S_11708:; -if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(9630);if(r)goto S_11708;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1411= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9631);}while(r); -S_11710:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9632);if(r)goto S_11710;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9632);}while(r); -} -do{ -*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; -if(!qbevent)break;evnt(9633);}while(r); -S_11714:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9634);if(r)goto S_11714;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1412; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING+512;",15)), 0 , 0 , 1 ); -if (new_error) goto skip1412; -skip1412: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9635);}while(r); -}else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1413; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING;",11)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,__STRING_E, 0 , 0 , 0 ); if (new_error) goto skip1413; skip1413: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9637);}while(r); +if(!qbevent)break;evnt(9596);}while(r); +} +S_11674:; +if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||new_error){ +if(qbevent){evnt(9598);if(r)goto S_11674;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9599);}while(r); +S_11676:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9600);if(r)goto S_11676;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9600);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9601);}while(r); +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9602);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1414= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9603);}while(r); +S_11682:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9604);if(r)goto S_11682;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9604);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1414; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1414; -skip1414: +if (new_error) goto skip1415; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(",",1),__STRING_E), 0 , 0 , 0 ); +if (new_error) goto skip1415; +skip1415: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9639);}while(r); -do{ -goto LABEL_GOTINPUTVAR; -if(!qbevent)break;evnt(9640);}while(r); +if(!qbevent)break;evnt(9606);}while(r); } -S_11722:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(9643);if(r)goto S_11722;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24)); +qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9643);}while(r); +if(!qbevent)break;evnt(9608);}while(r); +}else{ +S_11689:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9610);if(r)goto S_11689;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9610);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9610);}while(r); +} +} +fornext_continue_1410:; +} +fornext_exit_1410:; +S_11696:; +if ((-(*__LONG_ARGN!= 3 ))||new_error){ +if(qbevent){evnt(9613);if(r)goto S_11696;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL INTERRUPT (interrupt-no, inregs, outregs)",55)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9613);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9643);}while(r); +if(!qbevent)break;evnt(9613);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1416; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip1416; +skip1416: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9614);}while(r); +S_11701:; +if ((-(*__LONG_CISPECIAL== 0 ))||new_error){ +if(qbevent){evnt(9615);if(r)goto S_11701;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9615);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9616);}while(r); +S_11705:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9616);if(r)goto S_11705;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9616);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9616);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9618);}while(r); +} +S_11712:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||new_error){ +if(qbevent){evnt(9629);if(r)goto S_11712;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Call",4),__STRING1_SP),qbs_new_txt_len("Absolute",8)),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9630);}while(r); +do{ +*__LONG_ARGN= 0 ; +if(!qbevent)break;evnt(9631);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9632);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9633);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9634);}while(r); +S_11718:; +fornext_value1419= 2 ; +fornext_finalvalue1419=*__LONG_N; +fornext_step1419= 1 ; +if (fornext_step1419<0) fornext_step_negative1419=1; else fornext_step_negative1419=0; +if (new_error) goto fornext_error1419; +goto fornext_entrylabel1419; +while(1){ +fornext_value1419=fornext_step1419+(*__LONG_I); +fornext_entrylabel1419: +*__LONG_I=fornext_value1419; +if (fornext_step_negative1419){ +if (fornext_value1419fornext_finalvalue1419) break; +} +fornext_error1419:; +if(qbevent){evnt(9635);if(r)goto S_11718;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9636);}while(r); +S_11720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9637);if(r)goto S_11720;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9637);}while(r); +} +S_11723:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9638);if(r)goto S_11723;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9638);}while(r); } S_11726:; -if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(9644);if(r)goto S_11726;} +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ +if(qbevent){evnt(9639);if(r)goto S_11726;} S_11727:; -if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(9645);if(r)goto S_11727;} +if ((-(*__LONG_I<*__LONG_N))||new_error){ +if(qbevent){evnt(9640);if(r)goto S_11727;} +S_11728:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9641);if(r)goto S_11728;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle BIT array elements yet",42)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9646);}while(r); +if(!qbevent)break;evnt(9641);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9646);}while(r); -} +if(!qbevent)break;evnt(9641);}while(r); } do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1415= 0 ))),qbs_new_txt_len(")",1))); +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9649);}while(r); +if(!qbevent)break;evnt(9643);}while(r); S_11733:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9650);if(r)goto S_11733;} +if(qbevent){evnt(9644);if(r)goto S_11733;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(9650);}while(r); +if(!qbevent)break;evnt(9644);}while(r); } -S_11736:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(9653);if(r)goto S_11736;} do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9645);}while(r); +do{ +qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9646);}while(r); +S_11738:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9647);if(r)goto S_11738;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9647);}while(r); +} +S_11741:; +if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ +if(qbevent){evnt(9649);if(r)goto S_11741;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("VARPTR",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_E),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9653);}while(r); -} -S_11739:; -if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(9654);if(r)goto S_11739;} do{ -*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1420=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(9654);}while(r); -} -S_11742:; -if (((*__LONG_T&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(9655);if(r)goto S_11742;} +S_11744:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9655);if(r)goto S_11744;} do{ -*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +goto LABEL_ERRMES; if(!qbevent)break;evnt(9655);}while(r); } +}else{ +S_11748:; +if ((*__LONG_TYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(9661);if(r)goto S_11748;} +S_11749:; +if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(9662);if(r)goto S_11749;} do{ -*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1421=*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9663);}while(r); +S_11751:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9664);if(r)goto S_11751;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9664);}while(r); +} +do{ +qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1422=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9665);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip1423; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("float *",7),__STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip1423; +skip1423: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(9666);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1416; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),FUNC_STR2(__LONG_T)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1416; -skip1416: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1424; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip1424; +skip1424: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9667);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1417; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1417; -skip1417: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1425; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); +if (new_error) goto skip1425; +skip1425: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(9668);}while(r); do{ -goto LABEL_GOTINPUTVAR; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1426; +sub_file_print(tmp_fileno,qbs_add(__STRING_V,qbs_new_txt_len("=(float*)(dblock+cmem_sp);",26)), 0 , 0 , 1 ); +if (new_error) goto skip1426; +skip1426: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(9669);}while(r); -} -LABEL_GOTINPUTVAR:; -if(qbevent){evnt(9672);r=0;} -do{ -*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ; -if(!qbevent)break;evnt(9673);}while(r); -S_11751:; -if ((-(*__LONG_COMMANEEDED== 2 ))||new_error){ -if(qbevent){evnt(9673);if(r)goto S_11751;} -do{ -*__LONG_COMMANEEDED= 0 ; -if(!qbevent)break;evnt(9673);}while(r); -} -fornext_continue_1406:; -} -fornext_exit_1406:; -S_11755:; -if ((-(*__LONG_NUMVAR== 0 ))||new_error){ -if(qbevent){evnt(9675);if(r)goto S_11755;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("INPUT STATEMENT: SYNTAX ERROR! (NO VARIABLES LISTED FOR INPUT)",62)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9675);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9675);}while(r); -} -S_11759:; -if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||new_error){ -if(qbevent){evnt(9676);if(r)goto S_11759;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9676);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9676);}while(r); -} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1418; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input(",10),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_NEWLINE)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1418; -skip1418: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1427; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen))||new_error){ -if(qbevent){evnt(9680);if(r)goto S_11767;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9680);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9680);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9681);}while(r); -} -S_11774:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ -if(qbevent){evnt(9686);if(r)goto S_11774;} -S_11775:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9687);if(r)goto S_11775;} -S_11776:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1422= 2 )),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(9688);if(r)goto S_11776;} -do{ -SUB_XFILEWRITE(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9689);}while(r); -S_11778:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9690);if(r)goto S_11778;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9690);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9691);}while(r); -} -} -} -S_11785:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ -if(qbevent){evnt(9696);if(r)goto S_11785;} -do{ -SUB_XWRITE(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9697);}while(r); -S_11787:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9698);if(r)goto S_11787;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9698);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9699);}while(r); -} -S_11792:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||new_error){ -if(qbevent){evnt(9702);if(r)goto S_11792;} -S_11793:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9703);if(r)goto S_11793;} -S_11794:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1423= 2 )),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(9704);if(r)goto S_11794;} -do{ -SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9705);}while(r); -S_11796:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9706);if(r)goto S_11796;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9706);}while(r); -} -do{ -qbs_set(__STRING_L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9707);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9708);}while(r); -S_11801:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9708);if(r)goto S_11801;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9708);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9708);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9709);}while(r); -} -} -} -S_11810:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||new_error){ -if(qbevent){evnt(9714);if(r)goto S_11810;} -S_11811:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(9715);if(r)goto S_11811;} -do{ -*__LONG_ELEMENTON= 2 ; -if(!qbevent)break;evnt(9716);}while(r); -LABEL_REDOSEMI:; -if(qbevent){evnt(9717);r=0;} -S_11813:; -fornext_value1426=*__LONG_ELEMENTON; -fornext_finalvalue1426=*__LONG_N- 1 ; -fornext_step1426= 1 ; -if (fornext_step1426<0) fornext_step_negative1426=1; else fornext_step_negative1426=0; -if (new_error) goto fornext_error1426; -goto fornext_entrylabel1426; -while(1){ -fornext_value1426=fornext_step1426+(*__LONG_I); -fornext_entrylabel1426: -*__LONG_I=fornext_value1426; -if (fornext_step_negative1426){ -if (fornext_value1426fornext_finalvalue1426) break; -} -fornext_error1426:; -if(qbevent){evnt(9718);if(r)goto S_11813;} -do{ -qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1427=*__LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9719);}while(r); -S_11815:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(9720);if(r)goto S_11815;} -do{ -qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9721);}while(r); -do{ -*__LONG_BEGINPOINT=func_instr(*__LONG_BEGINPOINT,__STRING_TEMP1,func_chr( 34 ),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9722);}while(r); -do{ -*__LONG_ENDPOINT=func_instr(*__LONG_BEGINPOINT+ 1 ,__STRING_TEMP1,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9723);}while(r); -S_11819:; -if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||new_error){ -if(qbevent){evnt(9724);if(r)goto S_11819;} -do{ -*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ; -if(!qbevent)break;evnt(9726);}while(r); -do{ -qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs_ltrim(qbs_str((int32)(*__LONG_TEXTLENGTH))))->len),1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9727);}while(r); -S_11822:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||new_error){ -if(qbevent){evnt(9728);if(r)goto S_11822;} -do{ -SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9729);}while(r); -do{ -SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9730);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(9731);}while(r); -do{ -*__LONG_ELEMENTON=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(9732);}while(r); -do{ -goto LABEL_REDOSEMI; -if(!qbevent)break;evnt(9733);}while(r); -} -} -S_11830:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(9736);if(r)goto S_11830;} -S_11831:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(9737);if(r)goto S_11831;} -S_11832:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("(",1)))))||new_error){ -if(qbevent){evnt(9738);if(r)goto S_11832;} -do{ -SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9739);}while(r); -do{ -SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9740);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(9741);}while(r); -do{ -*__LONG_ELEMENTON=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(9742);}while(r); -do{ -goto LABEL_REDOSEMI; -if(!qbevent)break;evnt(9743);}while(r); -} -} -} -} -fornext_continue_1425:; -} -fornext_exit_1425:; -} -do{ -SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9751);}while(r); -S_11845:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9752);if(r)goto S_11845;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9752);}while(r); -} -do{ -qbs_set(__STRING_L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9753);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9754);}while(r); -S_11850:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9754);if(r)goto S_11850;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9754);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9754);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9755);}while(r); -} -S_11857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||new_error){ -if(qbevent){evnt(9760);if(r)goto S_11857;} -S_11858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9761);if(r)goto S_11858;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("CLEAR cannot be used inside a SUB/FUNCTION",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9761);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9761);}while(r); -} -} -S_11863:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RSET",4)))))||new_error){ -if(qbevent){evnt(9765);if(r)goto S_11863;} -S_11864:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9766);if(r)goto S_11864;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" ...",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9766);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9766);}while(r); -} -do{ -qbs_set(__STRING_L,__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9767);}while(r); -do{ -qbs_set(__STRING_DEST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9768);}while(r); -do{ -qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9769);}while(r); -do{ -*__LONG_PART= 1 ; -if(!qbevent)break;evnt(9770);}while(r); -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(9771);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9772);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9773);}while(r); -S_11875:; -do{ -if(qbevent){evnt(9774);if(r)goto S_11875;} -S_11876:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(9775);if(r)goto S_11876;} -S_11877:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(9776);if(r)goto S_11877;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9776);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9776);}while(r); -} -do{ -qbs_set(__STRING_SOURCE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9777);}while(r); -do{ -goto dl_exit_1429; -if(!qbevent)break;evnt(9778);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9780);}while(r); -S_11885:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9781);if(r)goto S_11885;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9781);}while(r); -} -S_11888:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9782);if(r)goto S_11888;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9782);}while(r); -} -S_11891:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9783);if(r)goto S_11891;} -S_11892:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(9784);if(r)goto S_11892;} -do{ -qbs_set(__STRING_DEST,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9784);}while(r); -do{ -*__LONG_PART= 2 ; -if(!qbevent)break;evnt(9784);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9784);}while(r); -do{ -goto LABEL_LRSETGOTPART; -if(!qbevent)break;evnt(9784);}while(r); -} -} -S_11899:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(9786);if(r)goto S_11899;} -do{ -qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9786);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9786);}while(r); -} -LABEL_LRSETGOTPART:; -if(qbevent){evnt(9787);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(9788);}while(r); -dl_continue_1429:; -}while(1); -dl_exit_1429:; -S_11906:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9790);if(r)goto S_11906;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9790);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9790);}while(r); -} -do{ -qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9792);}while(r); -S_11911:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9793);if(r)goto S_11911;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9793);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("=",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9794);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9795);}while(r); -S_11916:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9796);if(r)goto S_11916;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9796);}while(r); -} -S_11919:; -if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(9797);if(r)goto S_11919;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("LSET/RSET expects a string variable/array-element as its first argument",71)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9797);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9797);}while(r); -} -do{ -qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9798);}while(r); -S_11924:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9799);if(r)goto S_11924;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9799);}while(r); -} -do{ -qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9800);}while(r); -S_11928:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9801);if(r)goto S_11928;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9801);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9802);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9803);}while(r); -S_11933:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9803);if(r)goto S_11933;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9803);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9803);}while(r); -} -do{ -qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9804);}while(r); -S_11939:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9805);if(r)goto S_11939;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9805);}while(r); -} -S_11942:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ -if(qbevent){evnt(9806);if(r)goto S_11942;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1432; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_lset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1432; -skip1432: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9807);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 13 ; if (new_error) goto skip1433; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_rset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); if (new_error) goto skip1433; skip1433: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(9809);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9811);}while(r); -} -S_11949:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||new_error){ -if(qbevent){evnt(9815);if(r)goto S_11949;} -S_11950:; -if ((-(*__LONG_N< 4 ))||new_error){ -if(qbevent){evnt(9816);if(r)goto S_11950;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9816);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9816);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9817);}while(r); -do{ -*__LONG_ELE= 1 ; -if(!qbevent)break;evnt(9818);}while(r); -do{ -qbs_set(__STRING_E1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9819);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9820);}while(r); -S_11958:; -fornext_value1435= 2 ; -fornext_finalvalue1435=*__LONG_N; -fornext_step1435= 1 ; -if (fornext_step1435<0) fornext_step_negative1435=1; else fornext_step_negative1435=0; -if (new_error) goto fornext_error1435; -goto fornext_entrylabel1435; -while(1){ -fornext_value1435=fornext_step1435+(*__LONG_I); -fornext_entrylabel1435: -*__LONG_I=fornext_value1435; -if (fornext_step_negative1435){ -if (fornext_value1435fornext_finalvalue1435) break; -} -fornext_error1435:; -if(qbevent){evnt(9821);if(r)goto S_11958;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9822);}while(r); -S_11960:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9823);if(r)goto S_11960;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9823);}while(r); -} -S_11963:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9824);if(r)goto S_11963;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9824);}while(r); -} -S_11966:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9825);if(r)goto S_11966;} -S_11967:; -if ((-(*__LONG_ELE== 2 ))||new_error){ -if(qbevent){evnt(9826);if(r)goto S_11967;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9826);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9826);}while(r); -} -do{ -*__LONG_ELE= 2 ; -if(!qbevent)break;evnt(9827);}while(r); -}else{ -S_11973:; -if ((-(*__LONG_ELE== 1 ))||new_error){ -if(qbevent){evnt(9829);if(r)goto S_11973;} -do{ -qbs_set(__STRING_E1,qbs_add(qbs_add(__STRING_E1,__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9829);}while(r); -}else{ -do{ -qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9829);}while(r); -} -} -fornext_continue_1434:; -} -fornext_exit_1434:; -S_11980:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9832);if(r)goto S_11980;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9832);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9832);}while(r); -} -do{ -qbs_set(__STRING_E1,qbs_right(__STRING_E1,__STRING_E1->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9833);}while(r); -do{ -qbs_set(__STRING_E2,qbs_right(__STRING_E2,__STRING_E2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9833);}while(r); -do{ -qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9835);}while(r); -S_11987:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9836);if(r)goto S_11987;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9836);}while(r); -} -do{ -qbs_set(__STRING_E1L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9837);}while(r); -do{ -qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9838);}while(r); -S_11992:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9839);if(r)goto S_11992;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9839);}while(r); -} -do{ -qbs_set(__STRING_E2L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9840);}while(r); -do{ -qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9841);}while(r); -do{ -qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9841);}while(r); -S_11998:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9842);if(r)goto S_11998;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9842);}while(r); -} -S_12001:; -if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||new_error){ -if(qbevent){evnt(9843);if(r)goto S_12001;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9843);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9843);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9845);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("SWAP",4),__STRING1_SP),__STRING_E1L),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_E2L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9846);}while(r); -S_12007:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(9847);if(r)goto S_12007;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9847);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9847);}while(r); -} -S_12012:; -if (((*__LONG_E1TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(9850);if(r)goto S_12012;} -S_12013:; -if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(9851);if(r)goto S_12013;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9851);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9851);}while(r); -} -do{ -qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1439= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9852);}while(r); -do{ -qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1440= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9852);}while(r); -S_12019:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9853);if(r)goto S_12019;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9853);}while(r); -} +if(!qbevent)break;evnt(9679);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1434; +sub_file_print(tmp_fileno,qbs_add(__STRING_V,qbs_new_txt_len("=(double*)(dblock+cmem_sp);",27)), 0 , 0 , 1 ); +if (new_error) goto skip1434; +skip1434: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9680);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1435; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen-*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9868);}while(r); -do{ -SUB_GETID(__LONG_IDNUMBER); -if(!qbevent)break;evnt(9869);}while(r); -S_12032:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9870);if(r)goto S_12032;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9870);}while(r); } do{ -*__LONG_U=qbr(func_val(__STRING_A)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1445; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("call_absolute_offsets[",22),FUNC_STR2(__LONG_ARGN)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1445; +skip1445: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9871);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9872);}while(r); -do{ -qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9872);}while(r); -do{ -*__LONG_E=qbr(func_val(__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9872);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9873);}while(r); -do{ -qbs_set(__STRING_O,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9873);}while(r); -do{ -qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9874);}while(r); -S_12042:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(9874);if(r)goto S_12042;} -do{ -qbs_set(__STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9874);}while(r); -} -S_12045:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(9875);if(r)goto S_12045;} -do{ -qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9876);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9700);}while(r); +}else{ +S_11793:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9702);if(r)goto S_11793;} do{ qbs_set(__STRING_E,__STRING_E2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9877);}while(r); -do{ -*__LONG_T2=*__LONG_E2TYP; -if(!qbevent)break;evnt(9877);}while(r); -S_12049:; -if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(9878);if(r)goto S_12049;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9878);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9878);}while(r); -} -do{ -*__LONG_IDNUMBER2=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9879);}while(r); -do{ -SUB_GETID(__LONG_IDNUMBER2); -if(!qbevent)break;evnt(9880);}while(r); -S_12055:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9881);if(r)goto S_12055;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9881);}while(r); -} -do{ -qbs_set(__STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9882);}while(r); -S_12059:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(9882);if(r)goto S_12059;} -do{ -qbs_set(__STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N2),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9882);}while(r); -} -do{ -*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9883);}while(r); -do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9883);}while(r); -do{ -*__LONG_U2=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9883);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9884);}while(r); -do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9884);}while(r); -do{ -*__LONG_E2=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9884);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9886);}while(r); -do{ -qbs_set(__STRING_O2,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9886);}while(r); -S_12070:; -if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||new_error){ -if(qbevent){evnt(9888);if(r)goto S_12070;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9888);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9888);}while(r); -} -do{ -qbs_set(__STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),__STRING_LHSSCOPE),__STRING_N),qbs_new_txt_len(")+(",3)),__STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9889);}while(r); -do{ -qbs_set(__STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),__STRING_N2),qbs_new_txt_len(")+(",3)),__STRING_O2),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9890);}while(r); -do{ -*__LONG_B=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(9891);}while(r); -do{ -qbs_set(__STRING_SIZ,FUNC_STR2(__LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9892);}while(r); -S_12078:; -if ((-(*__LONG_B== 1 ))||new_error){ -if(qbevent){evnt(9893);if(r)goto S_12078;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1448; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_8(",7),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1448; -skip1448: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9893);}while(r); -} -S_12081:; -if ((-(*__LONG_B== 2 ))||new_error){ -if(qbevent){evnt(9894);if(r)goto S_12081;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1449; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_16(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1449; -skip1449: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9894);}while(r); -} -S_12084:; -if ((-(*__LONG_B== 4 ))||new_error){ -if(qbevent){evnt(9895);if(r)goto S_12084;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1450; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_32(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1450; -skip1450: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9895);}while(r); -} -S_12087:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(9896);if(r)goto S_12087;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1451; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_64(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1451; -skip1451: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9896);}while(r); -} -S_12090:; -if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||new_error){ -if(qbevent){evnt(9897);if(r)goto S_12090;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1452; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_block(",11),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(",",1)),__STRING_SIZ),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1452; -skip1452: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9897);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9898);}while(r); -} -} -} -do{ -*__LONG_E1TYPC=*__LONG_E1TYP; -if(!qbevent)break;evnt(9904);}while(r); -S_12098:; -if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(9905);if(r)goto S_12098;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(9905);}while(r); -} -S_12101:; -if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(9906);if(r)goto S_12101;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(9906);}while(r); -} -S_12104:; -if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(9907);if(r)goto S_12104;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY; -if(!qbevent)break;evnt(9907);}while(r); -} -S_12107:; -if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(9908);if(r)goto S_12107;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(9908);}while(r); -} -S_12110:; -if ((*__LONG_E1TYPC&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(9909);if(r)goto S_12110;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT; -if(!qbevent)break;evnt(9909);}while(r); -} -do{ -*__LONG_E2TYPC=*__LONG_E2TYP; -if(!qbevent)break;evnt(9910);}while(r); -S_12114:; -if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(9911);if(r)goto S_12114;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(9911);}while(r); -} -S_12117:; -if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(9912);if(r)goto S_12117;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(9912);}while(r); -} -S_12120:; -if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(9913);if(r)goto S_12120;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY; -if(!qbevent)break;evnt(9913);}while(r); -} -S_12123:; -if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(9914);if(r)goto S_12123;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(9914);}while(r); -} -S_12126:; -if ((*__LONG_E2TYPC&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(9915);if(r)goto S_12126;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT; -if(!qbevent)break;evnt(9915);}while(r); -} -S_12129:; -if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||new_error){ -if(qbevent){evnt(9916);if(r)goto S_12129;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9916);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9916);}while(r); -} -do{ -*__LONG_T=*__LONG_E1TYP; -if(!qbevent)break;evnt(9917);}while(r); -S_12134:; -if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(9918);if(r)goto S_12134;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP bit-length variables",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9918);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9918);}while(r); -} -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(9919);}while(r); -do{ -qbs_set(__STRING_T,FUNC_STR2(__LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9920);}while(r); -S_12140:; -if ((-(*__LONG_B> 64 ))||new_error){ -if(qbevent){evnt(9920);if(r)goto S_12140;} -do{ -qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9920);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1453; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_",5),__STRING_T),qbs_new_txt_len("(&",2)),FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1454= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1455= 0 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1453; -skip1453: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9921);}while(r); -S_12144:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9922);if(r)goto S_12144;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9922);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9923);}while(r); -} -S_12149:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||new_error){ -if(qbevent){evnt(9926);if(r)goto S_12149;} -S_12150:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(9927);if(r)goto S_12150;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9927);}while(r); +if(!qbevent)break;evnt(9702);}while(r); }else{ do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9927);}while(r); -} -S_12155:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9928);if(r)goto S_12155;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9928);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9928);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1456= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9929);}while(r); -S_12160:; -if(qbevent){evnt(9930);if(r)goto S_12160;} -S_12161:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||new_error){ -if(qbevent){evnt(9931);if(r)goto S_12161;} -do{ -qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1458= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9932);}while(r); -S_12163:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_L,qbs_new_txt_len("0",1)))&(qbs_notequal(__STRING_L,qbs_new_txt_len("1",1)))))||new_error){ -if(qbevent){evnt(9933);if(r)goto S_12163;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected OPTION BASE 0 or 1",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9933);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9933);}while(r); -} -S_12167:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(9934);if(r)goto S_12167;} -do{ -*__INTEGER_OPTIONBASE= 1 ; -if(!qbevent)break;evnt(9934);}while(r); -}else{ -do{ -*__INTEGER_OPTIONBASE= 0 ; -if(!qbevent)break;evnt(9934);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPTION",6),__STRING1_SP),qbs_new_txt_len("BASE",4)),__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9935);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9936);}while(r); -S_12174:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9936);if(r)goto S_12174;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9936);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9936);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9937);}while(r); -goto sc_1457_end; -} -S_12180:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||new_error){ -if(qbevent){evnt(9938);if(r)goto S_12180;} -S_12181:; -if (((-(*__BYTE_OPTIONEXPLICIT== -1 ))&(-(*__LONG_NOIDEMODE== 0 )))||new_error){ -if(qbevent){evnt(9939);if(r)goto S_12181;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Duplicate OPTION _EXPLICIT",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9939);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9939);}while(r); -} -S_12185:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9940);if(r)goto S_12185;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("OPTION _EXPLICIT must come before any other statement",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9940);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9940);}while(r); -} -S_12189:; -if (((-(*__LONG_LINENUMBER> 1 ))&(-(*__LONG_OPEX_COMMENTS== 0 )))||new_error){ -if(qbevent){evnt(9941);if(r)goto S_12189;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("OPTION _EXPLICIT must come before any other statement",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9941);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9941);}while(r); -} -do{ -*__BYTE_OPTIONEXPLICIT= -1 ; -if(!qbevent)break;evnt(9942);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_new_txt_len("OPTION",6),__STRING1_SP),qbs_new_txt_len("_EXPLICIT",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9943);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9944);}while(r); -S_12196:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9944);if(r)goto S_12196;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9944);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9944);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9945);}while(r); -goto sc_1457_end; -} -S_12203:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(9947);if(r)goto S_12203;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len(" or OPTION _EXPLICIT",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9947);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9947);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9948);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9948);}while(r); -sc_1457_end:; -} -do{ -memcpy(((char*)__UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2863); -if(!qbevent)break;evnt(9954);}while(r); -do{ -*__LONG_TARGETID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(9956);}while(r); -S_12214:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_stub",8))))||new_error){ -if(qbevent){evnt(9958);if(r)goto S_12214;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9958);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9958);}while(r); -} -S_12218:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9960);if(r)goto S_12218;} -S_12219:; -if ((-(*(int16*)(((char*)__UDT_ID2)+(809))== 0 ))||new_error){ -if(qbevent){evnt(9961);if(r)goto S_12219;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB does not require any arguments",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9961);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9961);}while(r); -} -} -do{ -SUB_SETDEPENDENCY(&(pass1462=*(int16*)(((char*)__UDT_ID2)+(546)))); -if(!qbevent)break;evnt(9964);}while(r); -do{ -*__LONG_SEPERATEARGS_ERROR= 0 ; -if(!qbevent)break;evnt(9966);}while(r); -do{ -*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1463= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1464= 2 ),__LONG_N),__LONG_PASSED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9967);}while(r); -S_12227:; -if ((*__LONG_SEPERATEARGS_ERROR)||new_error){ -if(qbevent){evnt(9968);if(r)goto S_12227;} -do{ -qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9968);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9968);}while(r); -} -S_12231:; -fornext_value1466= 1 ; -fornext_finalvalue1466=*__LONG_OPTMAX; -fornext_step1466= 1 ; -if (fornext_step1466<0) fornext_step_negative1466=1; else fornext_step_negative1466=0; -if (new_error) goto fornext_error1466; -goto fornext_entrylabel1466; -while(1){ -fornext_value1466=fornext_step1466+(*__LONG_I); -fornext_entrylabel1466: -*__LONG_I=fornext_value1466; -if (fornext_step_negative1466){ -if (fornext_value1466fornext_finalvalue1466) break; -} -fornext_error1466:; -if(qbevent){evnt(9971);if(r)goto S_12231;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9971);}while(r); -fornext_continue_1465:; -} -fornext_exit_1465:; -S_12234:; -fornext_value1468= 1 ; -fornext_finalvalue1468=*__LONG_OPTMAX+ 1 ; -fornext_step1468= 1 ; -if (fornext_step1468<0) fornext_step_negative1468=1; else fornext_step_negative1468=0; -if (new_error) goto fornext_error1468; -goto fornext_entrylabel1468; -while(1){ -fornext_value1468=fornext_step1468+(*__LONG_I); -fornext_entrylabel1468: -*__LONG_I=fornext_value1468; -if (fornext_step_negative1468){ -if (fornext_value1468fornext_finalvalue1468) break; -} -fornext_error1468:; -if(qbevent){evnt(9972);if(r)goto S_12234;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9972);}while(r); -fornext_continue_1467:; -} -fornext_exit_1467:; -S_12237:; -fornext_value1470= 1 ; -fornext_finalvalue1470=*(int16*)(((char*)__UDT_ID2)+(809)); -fornext_step1470= 1 ; -if (fornext_step1470<0) fornext_step_negative1470=1; else fornext_step_negative1470=0; -if (new_error) goto fornext_error1470; -goto fornext_entrylabel1470; -while(1){ -fornext_value1470=fornext_step1470+(*__LONG_I); -fornext_entrylabel1470: -*__LONG_I=fornext_value1470; -if (fornext_step_negative1470){ -if (fornext_value1470fornext_finalvalue1470) break; -} -fornext_error1470:; -if(qbevent){evnt(9973);if(r)goto S_12237;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9973);}while(r); -fornext_continue_1469:; -} -fornext_exit_1469:; -S_12240:; -fornext_value1472= 1 ; -fornext_finalvalue1472=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; -fornext_step1472= 1 ; -if (fornext_step1472<0) fornext_step_negative1472=1; else fornext_step_negative1472=0; -if (new_error) goto fornext_error1472; -goto fornext_entrylabel1472; -while(1){ -fornext_value1472=fornext_step1472+(*__LONG_I); -fornext_entrylabel1472: -*__LONG_I=fornext_value1472; -if (fornext_step_negative1472){ -if (fornext_value1472fornext_finalvalue1472) break; -} -fornext_error1472:; -if(qbevent){evnt(9974);if(r)goto S_12240;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9974);}while(r); -fornext_continue_1471:; -} -fornext_exit_1471:; -S_12243:; -if (( 0 )||new_error){ -if(qbevent){evnt(9978);if(r)goto S_12243;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1473; -sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0 , 0 , 1 ); -if (new_error) goto skip1473; -skip1473: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9979);}while(r); -S_12245:; -fornext_value1475= 1 ; -fornext_finalvalue1475=*(int16*)(((char*)__UDT_ID2)+(809)); -fornext_step1475= 1 ; -if (fornext_step1475<0) fornext_step_negative1475=1; else fornext_step_negative1475=0; -if (new_error) goto fornext_error1475; -goto fornext_entrylabel1475; -while(1){ -fornext_value1475=fornext_step1475+(*__LONG_I); -fornext_entrylabel1475: -*__LONG_I=fornext_value1475; -if (fornext_step_negative1475){ -if (fornext_value1475fornext_finalvalue1475) break; -} -fornext_error1475:; -if(qbevent){evnt(9979);if(r)goto S_12245;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1476; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip1476; -sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 0 , 0 , 1 ); -if (new_error) goto skip1476; -skip1476: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9979);}while(r); -fornext_continue_1474:; -} -fornext_exit_1474:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1477; -sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0 , 0 , 1 ); -if (new_error) goto skip1477; -skip1477: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9980);}while(r); -S_12249:; -fornext_value1479= 1 ; -fornext_finalvalue1479=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; -fornext_step1479= 1 ; -if (fornext_step1479<0) fornext_step_negative1479=1; else fornext_step_negative1479=0; -if (new_error) goto fornext_error1479; -goto fornext_entrylabel1479; -while(1){ -fornext_value1479=fornext_step1479+(*__LONG_I); -fornext_entrylabel1479: -*__LONG_I=fornext_value1479; -if (fornext_step_negative1479){ -if (fornext_value1479fornext_finalvalue1479) break; -} -fornext_error1479:; -if(qbevent){evnt(9980);if(r)goto S_12249;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1480; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip1480; -sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])), 0 , 0 , 1 ); -if (new_error) goto skip1480; -skip1480: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(9980);}while(r); -fornext_continue_1478:; -} -fornext_exit_1478:; -} -S_12253:; -if ((*__LONG_USECALL)||new_error){ -if(qbevent){evnt(9992);if(r)goto S_12253;} -S_12254:; -if ((-(*__LONG_USECALL== 1 ))||new_error){ -if(qbevent){evnt(9993);if(r)goto S_12254;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9993);}while(r); -} -S_12257:; -if ((-(*__LONG_USECALL== 2 ))||new_error){ -if(qbevent){evnt(9994);if(r)goto S_12257;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CALL",4),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9994);}while(r); -} -}else{ -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9996);}while(r); -} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9999);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 0 ; -if(!qbevent)break;evnt(10000);}while(r); -do{ -*__LONG_FIELDCALL= 0 ; -if(!qbevent)break;evnt(10002);}while(r); -S_12266:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_get",7)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_put",7)))))||new_error){ -if(qbevent){evnt(10004);if(r)goto S_12266;} -S_12267:; -if ((*__LONG_PASSED& 2 )||new_error){ -if(qbevent){evnt(10005);if(r)goto S_12267;} -do{ -*__LONG_PASSED=*__LONG_PASSED- 2 ; -if(!qbevent)break;evnt(10007);}while(r); -}else{ -S_12270:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_get",7))))||new_error){ -if(qbevent){evnt(10010);if(r)goto S_12270;} -do{ -*__LONG_FIELDCALL= 1 ; -if(!qbevent)break;evnt(10011);}while(r); -do{ -qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10012);}while(r); -}else{ -do{ -*__LONG_FIELDCALL= 2 ; -if(!qbevent)break;evnt(10014);}while(r); -do{ -qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10015);}while(r); -} -} -} -S_12279:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_key",7)))))||new_error){ -if(qbevent){evnt(10020);if(r)goto S_12279;} -S_12280:; -if ((-(*__LONG_USECALL== 0 ))||new_error){ -if(qbevent){evnt(10021);if(r)goto S_12280;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10022);}while(r); -} -} -S_12284:; -fornext_value1483= 1 ; -fornext_finalvalue1483=*(int16*)(((char*)__UDT_ID2)+(809)); -fornext_step1483= 1 ; -if (fornext_step1483<0) fornext_step_negative1483=1; else fornext_step_negative1483=0; -if (new_error) goto fornext_error1483; -goto fornext_entrylabel1483; -while(1){ -fornext_value1483=fornext_step1483+(*__LONG_I); -fornext_entrylabel1483: -*__LONG_I=fornext_value1483; -if (fornext_step_negative1483){ -if (fornext_value1483fornext_finalvalue1483) break; -} -fornext_error1483:; -if(qbevent){evnt(10026);if(r)goto S_12284;} -do{ -*__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(813)),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10027);}while(r); -do{ -*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10028);}while(r); -do{ -*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10029);}while(r); -do{ -*__LONG_ADDLAYOUT= 1 ; -if(!qbevent)break;evnt(10031);}while(r); -do{ -*__LONG_CONVERTSPACING= 0 ; -if(!qbevent)break;evnt(10032);}while(r); -do{ -qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10033);}while(r); -S_12291:; -while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ -if(qbevent){evnt(10034);if(r)goto S_12291;} -do{ -*__LONG_X=qbs_asc(__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10035);}while(r); -S_12293:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(10036);if(r)goto S_12293;} -do{ -*__LONG_CONVERTSPACING= 0 ; -if(!qbevent)break;evnt(10037);}while(r); -do{ -qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10038);}while(r); -do{ -qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10039);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(10041);}while(r); -do{ -*__LONG_AN= 0 ; -if(!qbevent)break;evnt(10042);}while(r); -do{ -qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10043);}while(r); -S_12300:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ -if(qbevent){evnt(10044);if(r)goto S_12300;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10044);}while(r); -} -S_12303:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ -if(qbevent){evnt(10045);if(r)goto S_12303;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10046);}while(r); -S_12305:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(10047);if(r)goto S_12305;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(10047);}while(r); -} -}else{ -S_12309:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(10049);if(r)goto S_12309;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(10049);}while(r); -} -} -do{ -*__LONG_S1=*__LONG_S; -if(!qbevent)break;evnt(10051);}while(r); -S_12314:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(10053);if(r)goto S_12314;} -do{ -*__LONG_CONVERTSPACING= 1 ; -if(!qbevent)break;evnt(10053);}while(r); -} -S_12317:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||new_error){ -if(qbevent){evnt(10056);if(r)goto S_12317;} -} -S_12319:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||new_error){ -if(qbevent){evnt(10080);if(r)goto S_12319;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10084);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10085);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10086);}while(r); -} -S_12324:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(10089);if(r)goto S_12324;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10090);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10091);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10092);}while(r); -} -S_12329:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(10095);if(r)goto S_12329;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10096);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10097);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10098);}while(r); -} -S_12334:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(10101);if(r)goto S_12334;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10101);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10101);}while(r); -} -S_12338:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(10104);if(r)goto S_12338;} -S_12339:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ -if(qbevent){evnt(10105);if(r)goto S_12339;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10105);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10105);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10106);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10106);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10110);}while(r); -LABEL_CUSTOMLAYCHAR:; -if(qbevent){evnt(10116);r=0;} -S_12347:; -if ((-(*__LONG_S== 0 ))||new_error){ -if(qbevent){evnt(10117);if(r)goto S_12347;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10117);}while(r); -} -S_12350:; -if ((-(*__LONG_S!=*__LONG_S1))||new_error){ -if(qbevent){evnt(10118);if(r)goto S_12350;} -S_12351:; -if ((*__LONG_S1)||new_error){ -if(qbevent){evnt(10119);if(r)goto S_12351;} -do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10119);}while(r); -} -S_12354:; -if ((-(*__LONG_S== 1 ))||new_error){ -if(qbevent){evnt(10120);if(r)goto S_12354;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10120);}while(r); -} -S_12357:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(10121);if(r)goto S_12357;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10121);}while(r); -} -} -S_12361:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_key",7)))))&(-(*__LONG_I==*(int16*)(((char*)__UDT_ID2)+(809))))))||new_error){ -if(qbevent){evnt(10124);if(r)goto S_12361;} -S_12362:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||new_error){ -if(qbevent){evnt(10125);if(r)goto S_12362;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10126);}while(r); -} -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10130);}while(r); -}else{ -do{ -*__LONG_ADDLAYOUT= 0 ; -if(!qbevent)break;evnt(10133);}while(r); -do{ -qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10134);}while(r); -} -do{ -*__LONG_ADDEDLAYOUT= 0 ; -if(!qbevent)break;evnt(10136);}while(r); -dl_continue_1485:; -} -dl_exit_1485:; -S_12373:; -if ((-(*__LONG_TARGETTYP== -3 ))||new_error){ -if(qbevent){evnt(10145);if(r)goto S_12373;} -S_12374:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||new_error){ -if(qbevent){evnt(10146);if(r)goto S_12374;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10146);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10146);}while(r); -} -do{ -qbs_set(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10148);}while(r); -S_12379:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||new_error){ -if(qbevent){evnt(10150);if(r)goto S_12379;} -do{ -qbs_set(__STRING_TRY_STRING,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10151);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10152);}while(r); -S_12382:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10153);if(r)goto S_12382;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10153);}while(r); -} -S_12385:; -do{ -if(qbevent){evnt(10154);if(r)goto S_12385;} -S_12386:; -if ((*__LONG_TRY)||new_error){ -if(qbevent){evnt(10155);if(r)goto S_12386;} -S_12387:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(10156);if(r)goto S_12387;} -S_12388:; -if ((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(10157);if(r)goto S_12388;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10158);}while(r); -do{ -goto dl_exit_1490; -if(!qbevent)break;evnt(10159);}while(r); -} -} -S_12393:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(10163);if(r)goto S_12393;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(10163);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10163);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(10163);}while(r); -} -S_12399:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10164);if(r)goto S_12399;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10164);}while(r); -} -} -S_12403:; -if ((-(*__LONG_TRY== 0 ))||new_error){ -if(qbevent){evnt(10166);if(r)goto S_12403;} -S_12404:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||new_error){ -if(qbevent){evnt(10167);if(r)goto S_12404;} -S_12405:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10168);if(r)goto S_12405;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10168);}while(r); -} -do{ -*__LONG_A=qbs_asc(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10169);}while(r); -S_12409:; -if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||new_error){ -if(qbevent){evnt(10170);if(r)goto S_12409;} -do{ -*__LONG_A=*__LONG_A- 32 ; -if(!qbevent)break;evnt(10170);}while(r); -} -S_12412:; -if ((-(*__LONG_A== 95 ))||new_error){ -if(qbevent){evnt(10171);if(r)goto S_12412;} -do{ -*__LONG_A= 91 ; -if(!qbevent)break;evnt(10171);}while(r); -} -do{ -*__LONG_A=*__LONG_A- 64 ; -if(!qbevent)break;evnt(10172);}while(r); -S_12416:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))->len))||new_error){ -if(qbevent){evnt(10173);if(r)goto S_12416;} -do{ -qbs_set(__STRING_TRY_STRING,qbs_add(__STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10173);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10173);}while(r); -} -S_12420:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10174);if(r)goto S_12420;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10174);}while(r); -} -} -} -S_12425:; -dl_continue_1490:; -}while((!(-(*__LONG_TRY== 0 )))&&(!new_error)); -dl_exit_1490:; -if(qbevent){evnt(10177);if(r)goto S_12425;} +if(!qbevent)break;evnt(9702);}while(r); } do{ qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10182);}while(r); -S_12428:; +if(!qbevent)break;evnt(9703);}while(r); +S_11799:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10183);if(r)goto S_12428;} +if(qbevent){evnt(9704);if(r)goto S_11799;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10183);}while(r); +if(!qbevent)break;evnt(9704);}while(r); } -S_12431:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10184);if(r)goto S_12431;} do{ -qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10184);}while(r); +if(!qbevent)break;evnt(9705);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1446=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9706);}while(r); +S_11804:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9707);if(r)goto S_11804;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9707);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1447; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("call_absolute(",14),FUNC_STR2(__LONG_ARGN)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1447; +skip1447: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9708);}while(r); +} +do{ +*__LONG_ARGN=*__LONG_ARGN+ 1 ; +if(!qbevent)break;evnt(9710);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9711);}while(r); +}else{ +S_11812:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9713);if(r)goto S_11812;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9713);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9713);}while(r); +} +} +fornext_continue_1418:; +} +fornext_exit_1418:; +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9716);}while(r); +S_11820:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9716);if(r)goto S_11820;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9716);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9716);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9717);}while(r); +} +}else{ +do{ +qbs_set(__STRING_A,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9722);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_CN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9723);}while(r); +do{ +*__LONG_USECALL= 2 ; +if(!qbevent)break;evnt(9724);}while(r); +} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9728);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1449= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9729);}while(r); +do{ +*__LONG_VALIDSUB= 0 ; +if(!qbevent)break;evnt(9732);}while(r); +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9733);}while(r); +S_11836:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9733);if(r)goto S_11836;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1450= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9733);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9734);}while(r); +S_11840:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9735);if(r)goto S_11840;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9735);}while(r); +} +S_11843:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(9736);if(r)goto S_11843;} +S_11844:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(9737);if(r)goto S_11844;} +do{ +*__LONG_VALIDSUB= 1 ; +if(!qbevent)break;evnt(9737);}while(r); +do{ +goto dl_exit_1451; +if(!qbevent)break;evnt(9737);}while(r); +} +S_11848:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(9738);if(r)goto S_11848;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9739);}while(r); +S_11850:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9739);if(r)goto S_11850;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1452= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9739);}while(r); +} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(9740);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9741);}while(r); +S_11855:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9742);if(r)goto S_11855;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9742);}while(r); +} +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(9744);}while(r); +} +dl_continue_1451:; +} +dl_exit_1451:; +S_11862:; +if ((-(*__LONG_VALIDSUB== 0 ))||new_error){ +if(qbevent){evnt(9747);if(r)goto S_11862;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9747);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9747);}while(r); +} +} +S_11867:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9751);if(r)goto S_11867;} +S_11868:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(9753);if(r)goto S_11868;} +do{ +qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9753);}while(r); +} +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9755);}while(r); +S_11872:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9755);if(r)goto S_11872;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1453= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9755);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9756);}while(r); +S_11876:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9757);if(r)goto S_11876;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9757);}while(r); +} +S_11879:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(9758);if(r)goto S_11879;} +S_11880:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(9759);if(r)goto S_11880;} +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(qbs_add(__STRING_FIRSTELEMENT,qbs_new_txt_len("",0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9762);}while(r); +S_11882:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9763);if(r)goto S_11882;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9763);}while(r); +} +S_11885:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 36 )))||new_error){ +if(qbevent){evnt(9764);if(r)goto S_11885;} +S_11886:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(9765);if(r)goto S_11886;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9765);}while(r); +} +}else{ +S_11890:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ +if(qbevent){evnt(9767);if(r)goto S_11890;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9767);}while(r); +} +} +S_11894:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9770);if(r)goto S_11894;} +S_11895:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1))!= 61 )))||new_error){ +if(qbevent){evnt(9771);if(r)goto S_11895;} +S_11896:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1456= 2 )))== 61 )))||new_error){ +if(qbevent){evnt(9772);if(r)goto S_11896;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9772);}while(r); +} +} +} +S_11901:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9776);if(r)goto S_11901;} +S_11902:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))&(qbs_notequal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||new_error){ +if(qbevent){evnt(9777);if(r)goto S_11902;} +S_11903:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1457= 2 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9778);if(r)goto S_11903;} +do{ +*__LONG_B= 1 ; +if(!qbevent)break;evnt(9779);}while(r); +S_11905:; +fornext_value1459= 3 ; +fornext_finalvalue1459=*__LONG_N; +fornext_step1459= 1 ; +if (fornext_step1459<0) fornext_step_negative1459=1; else fornext_step_negative1459=0; +if (new_error) goto fornext_error1459; +goto fornext_entrylabel1459; +while(1){ +fornext_value1459=fornext_step1459+(*__LONG_I); +fornext_entrylabel1459: +*__LONG_I=fornext_value1459; +if (fornext_step_negative1459){ +if (fornext_value1459fornext_finalvalue1459) break; +} +fornext_error1459:; +if(qbevent){evnt(9780);if(r)goto S_11905;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9781);}while(r); +S_11907:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9782);if(r)goto S_11907;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9782);}while(r); +} +S_11910:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9783);if(r)goto S_11910;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9784);}while(r); +S_11912:; +if ((-(*__LONG_B== 0 ))||new_error){ +if(qbevent){evnt(9785);if(r)goto S_11912;} +S_11913:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(9786);if(r)goto S_11913;} +do{ +goto fornext_exit_1458; +if(!qbevent)break;evnt(9786);}while(r); +} +S_11916:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1460=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(9787);if(r)goto S_11916;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9787);}while(r); +} +} +} +fornext_continue_1458:; +} +fornext_exit_1458:; +} +} +} +S_11925:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(9797);if(r)goto S_11925;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB _GL directly",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9798);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9798);}while(r); +} +S_11929:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||new_error){ +if(qbevent){evnt(9801);if(r)goto S_11929;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot call SUB VWATCH directly",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9802);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9802);}while(r); +} +S_11933:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||new_error){ +if(qbevent){evnt(9805);if(r)goto S_11933;} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9807);}while(r); +S_11935:; +fornext_value1462= 2 ; +fornext_finalvalue1462=*__LONG_N; +fornext_step1462= 1 ; +if (fornext_step1462<0) fornext_step_negative1462=1; else fornext_step_negative1462=0; +if (new_error) goto fornext_error1462; +goto fornext_entrylabel1462; +while(1){ +fornext_value1462=fornext_step1462+(*__LONG_X); +fornext_entrylabel1462: +*__LONG_X=fornext_value1462; +if (fornext_step_negative1462){ +if (fornext_value1462fornext_finalvalue1462) break; +} +fornext_error1462:; +if(qbevent){evnt(9808);if(r)goto S_11935;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9809);}while(r); +S_11937:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9810);if(r)goto S_11937;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9810);}while(r); +} +S_11940:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9811);if(r)goto S_11940;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9811);}while(r); +} +S_11943:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("FOR",3)))|(qbs_equal(__STRING_A2,qbs_new_txt_len("AS",2)))))||new_error){ +if(qbevent){evnt(9812);if(r)goto S_11943;} +do{ +goto fornext_exit_1461; +if(!qbevent)break;evnt(9812);}while(r); +} +S_11946:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(9813);if(r)goto S_11946;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(9814);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9815);}while(r); +S_11949:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9816);if(r)goto S_11949;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9816);}while(r); +} +do{ +goto fornext_exit_1461; +if(!qbevent)break;evnt(9817);}while(r); +} +fornext_continue_1461:; +} +fornext_exit_1461:; +} +S_11956:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLOSE",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5)))))||new_error){ +if(qbevent){evnt(9827);if(r)goto S_11956;} +S_11957:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||new_error){ +if(qbevent){evnt(9828);if(r)goto S_11957;} +S_11958:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9829);if(r)goto S_11958;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - RESET takes no parameters",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9829);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9829);}while(r); +} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Reset",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9830);}while(r); +}else{ +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Close",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9832);}while(r); +} +S_11966:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9835);if(r)goto S_11966;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1463; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_close(NULL,0);",18), 0 , 0 , 1 ); +if (new_error) goto skip1463; +skip1463: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9836);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9838);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9839);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9840);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9841);}while(r); +S_11973:; +fornext_value1465= 2 ; +fornext_finalvalue1465=*__LONG_N; +fornext_step1465= 1 ; +if (fornext_step1465<0) fornext_step_negative1465=1; else fornext_step_negative1465=0; +if (new_error) goto fornext_error1465; +goto fornext_entrylabel1465; +while(1){ +fornext_value1465=fornext_step1465+(*__LONG_X); +fornext_entrylabel1465: +*__LONG_X=fornext_value1465; +if (fornext_step_negative1465){ +if (fornext_value1465fornext_finalvalue1465) break; +} +fornext_error1465:; +if(qbevent){evnt(9842);if(r)goto S_11973;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9843);}while(r); +S_11975:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9844);if(r)goto S_11975;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9844);}while(r); +} +S_11978:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9845);if(r)goto S_11978;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9845);}while(r); +} +S_11981:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9846);if(r)goto S_11981;} +S_11982:; +if ((-(*__LONG_S== 0 ))||new_error){ +if(qbevent){evnt(9847);if(r)goto S_11982;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(9847);}while(r); +}else{ +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9847);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9847);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,qbs_new_txt_len("#",1)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9848);}while(r); +do{ +goto LABEL_CLOSENEXTA; +if(!qbevent)break;evnt(9849);}while(r); +} +S_11991:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9852);if(r)goto S_11991;} +S_11992:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(9853);if(r)goto S_11992;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9854);}while(r); +S_11994:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9855);if(r)goto S_11994;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9855);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9856);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1466= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9857);}while(r); +S_11999:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9858);if(r)goto S_11999;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9858);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1467; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1467; +skip1467: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9859);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9860);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9861);}while(r); +do{ +goto LABEL_CLOSENEXTA; +if(!qbevent)break;evnt(9862);}while(r); +}else{ +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before ,",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9864);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9864);}while(r); +} +} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(9868);}while(r); +S_12012:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9869);if(r)goto S_12012;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9869);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9869);}while(r); +} +LABEL_CLOSENEXTA:; +if(qbevent){evnt(9871);r=0;} +fornext_continue_1464:; +} +fornext_exit_1464:; +S_12018:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(9874);if(r)goto S_12018;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9875);}while(r); +S_12020:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9876);if(r)goto S_12020;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9876);}while(r); } -S_12434:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10185);if(r)goto S_12434;} do{ qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10185);}while(r); +if(!qbevent)break;evnt(9877);}while(r); do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10185);}while(r); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1468= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9878);}while(r); +S_12025:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9879);if(r)goto S_12025;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9879);}while(r); } do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1493= -2 ))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1469; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_close(",10),__STRING_E),qbs_new_txt_len(",1);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1469; +skip1469: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9880);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9882);}while(r); +} +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9886);}while(r); +S_12034:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9886);if(r)goto S_12034;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9886);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9886);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9887);}while(r); +} +S_12041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||new_error){ +if(qbevent){evnt(9906);if(r)goto S_12041;} +do{ +SUB_XREAD(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9907);}while(r); +S_12043:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9908);if(r)goto S_12043;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9908);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9910);}while(r); +} +do{ +*__LONG_LINEINPUT= 0 ; +if(!qbevent)break;evnt(9949);}while(r); +S_12049:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9950);if(r)goto S_12049;} +S_12050:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LINE",4)))&(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("INPUT",5)))))||new_error){ +if(qbevent){evnt(9951);if(r)goto S_12050;} +do{ +*__LONG_LINEINPUT= 1 ; +if(!qbevent)break;evnt(9952);}while(r); +do{ +qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len- 5 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9953);}while(r); +do{ +qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 5 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9953);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(9953);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9954);}while(r); +} +} +S_12058:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(9958);if(r)goto S_12058;} +S_12059:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9959);if(r)goto S_12059;} +S_12060:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1474= 2 )),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(9960);if(r)goto S_12060;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Input",5)),__STRING1_SP),qbs_new_txt_len("#",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9961);}while(r); +S_12062:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(9961);if(r)goto S_12062;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9961);}while(r); +} +do{ +qbs_set(__STRING_U,FUNC_STR2(&(pass1475=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9963);}while(r); +S_12066:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(9965);if(r)goto S_12066;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9965);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9965);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9966);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9967);}while(r); +S_12072:; +fornext_value1477= 3 ; +fornext_finalvalue1477=*__LONG_N; +fornext_step1477= 1 ; +if (fornext_step1477<0) fornext_step_negative1477=1; else fornext_step_negative1477=0; +if (new_error) goto fornext_error1477; +goto fornext_entrylabel1477; +while(1){ +fornext_value1477=fornext_step1477+(*__LONG_I); +fornext_entrylabel1477: +*__LONG_I=fornext_value1477; +if (fornext_step_negative1477){ +if (fornext_value1477fornext_finalvalue1477) break; +} +fornext_error1477:; +if(qbevent){evnt(9968);if(r)goto S_12072;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9969);}while(r); +S_12074:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9970);if(r)goto S_12074;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9970);}while(r); +} +S_12077:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9971);if(r)goto S_12077;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9971);}while(r); +} +S_12080:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9972);if(r)goto S_12080;} +S_12081:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9973);if(r)goto S_12081;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9973);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9973);}while(r); +} +do{ +goto LABEL_INPUTGOTFN; +if(!qbevent)break;evnt(9974);}while(r); +} +S_12087:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9976);if(r)goto S_12087;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9976);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9976);}while(r); +} +fornext_continue_1476:; +} +fornext_exit_1476:; +LABEL_INPUTGOTFN:; +if(qbevent){evnt(9978);r=0;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9979);}while(r); +S_12094:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9980);if(r)goto S_12094;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9980);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9981);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1478= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9982);}while(r); +S_12099:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9983);if(r)goto S_12099;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9983);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1479; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1479; +skip1479: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9984);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1480; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1480; +skip1480: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(9985);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(9986);}while(r); +S_12105:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(9987);if(r)goto S_12105;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9987);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9987);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9988);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9989);}while(r); +S_12111:; +fornext_value1482=*__LONG_I; +fornext_finalvalue1482=*__LONG_N; +fornext_step1482= 1 ; +if (fornext_step1482<0) fornext_step_negative1482=1; else fornext_step_negative1482=0; +if (new_error) goto fornext_error1482; +goto fornext_entrylabel1482; +while(1){ +fornext_value1482=fornext_step1482+(*__LONG_I); +fornext_entrylabel1482: +*__LONG_I=fornext_value1482; +if (fornext_step_negative1482){ +if (fornext_value1482fornext_finalvalue1482) break; +} +fornext_error1482:; +if(qbevent){evnt(9990);if(r)goto S_12111;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9991);}while(r); +S_12113:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9992);if(r)goto S_12113;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9992);}while(r); +} +S_12116:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9993);if(r)goto S_12116;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9993);}while(r); +} +S_12119:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(9994);if(r)goto S_12119;} +S_12120:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9995);if(r)goto S_12120;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9995);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9995);}while(r); +} +do{ +qbs_set(__STRING_A2,qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9996);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9996);}while(r); +} +S_12128:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9998);if(r)goto S_12128;} +S_12129:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9999);if(r)goto S_12129;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9999);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9999);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10000);}while(r); +S_12134:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10001);if(r)goto S_12134;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10001);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10002);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10003);}while(r); +S_12139:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10004);if(r)goto S_12139;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10004);}while(r); +} +S_12142:; +if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(10005);if(r)goto S_12142;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10005);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10005);}while(r); +} +S_12146:; +if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10006);if(r)goto S_12146;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1483= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10007);}while(r); +S_12148:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10008);if(r)goto S_12148;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10008);}while(r); +} +S_12151:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10009);if(r)goto S_12151;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1484; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_line_input_string(tmp_fileno,",38),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1484; +skip1484: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10010);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1485; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1485; +skip1485: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10011);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1486; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_input_string(tmp_fileno,",33),__STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1486; +skip1486: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10013);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1487; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1487; +skip1487: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10014);}while(r); +} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(10016);}while(r); +}else{ +S_12160:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10018);if(r)goto S_12160;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10018);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10018);}while(r); +} +S_12164:; +if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||new_error){ +if(qbevent){evnt(10021);if(r)goto S_12164;} +S_12165:; +if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(10022);if(r)goto S_12165;} +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_file_input_float(tmp_fileno,",41),FUNC_STR2(__LONG_T)),qbs_new_txt_len("))",2)),&(pass1488= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10023);}while(r); +S_12167:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10024);if(r)goto S_12167;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10024);}while(r); +} +}else{ +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_file_input_float(tmp_fileno,",33),FUNC_STR2(__LONG_T)),qbs_new_txt_len(")",1)),&(pass1489= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10026);}while(r); +S_12172:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10027);if(r)goto S_12172;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10027);}while(r); +} +} +}else{ +S_12177:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(10030);if(r)goto S_12177;} +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1490= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10031);}while(r); +S_12179:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10032);if(r)goto S_12179;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10032);}while(r); +} +}else{ +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1491= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10034);}while(r); +S_12184:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10035);if(r)goto S_12184;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10035);}while(r); +} +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1492; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1492; +skip1492: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10039);}while(r); +} +S_12191:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(10042);if(r)goto S_12191;} +do{ +goto fornext_exit_1481; +if(!qbevent)break;evnt(10042);}while(r); +} +S_12194:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10043);if(r)goto S_12194;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10043);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10043);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10044);}while(r); +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10044);}while(r); +} +S_12201:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10046);if(r)goto S_12201;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10046);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10046);}while(r); +} +fornext_continue_1481:; +} +fornext_exit_1481:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1493; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),__STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip1493; +skip1493: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10048);}while(r); +S_12208:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(10049);if(r)goto S_12208;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1494; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip1494; +skip1494: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10049);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10050);}while(r); +S_12212:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10050);if(r)goto S_12212;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10050);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10050);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10051);}while(r); +} +} +} +S_12221:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(10057);if(r)goto S_12221;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10058);}while(r); +S_12223:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10058);if(r)goto S_12223;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Line",4)),__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10058);}while(r); +} +do{ +*__LONG_COMMANEEDED= 0 ; +if(!qbevent)break;evnt(10059);}while(r); +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(10060);}while(r); +do{ +*__LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(10062);}while(r); +S_12229:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(10062);if(r)goto S_12229;} +do{ +*__LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(10062);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10062);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10062);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10064);}while(r); +S_12235:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(10065);if(r)goto S_12235;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10066);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10066);}while(r); +S_12238:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10067);if(r)goto S_12238;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10067);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1496; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt_len(",26),__STRING_A2),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1496; +skip1496: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10068);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10069);}while(r); +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10071);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10072);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10073);}while(r); +S_12246:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(10074);if(r)goto S_12246;} +S_12247:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10075);if(r)goto S_12247;} +do{ +goto LABEL_FINISHEDPROMPTSTRING; +if(!qbevent)break;evnt(10075);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1497; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1497; +skip1497: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10076);}while(r); +do{ +goto LABEL_FINISHEDPROMPTSTRING; +if(!qbevent)break;evnt(10077);}while(r); +} +S_12253:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(10079);if(r)goto S_12253;} +do{ +goto LABEL_FINISHEDPROMPTSTRING; +if(!qbevent)break;evnt(10080);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Syntax error - Reference: INPUT [;] ",36),func_chr( 34 )),qbs_new_txt_len("[Question or statement text]",28)),func_chr( 34 )),qbs_new_txt_len("{,|;} variable[, ...] or INPUT ; variable[, ...]",48))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10082);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10082);}while(r); +} +S_12259:; +if ((-(*__LONG_LINEINPUT== 0 ))||new_error){ +if(qbevent){evnt(10085);if(r)goto S_12259;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1498; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(qbs_new_txt(",22),func_chr( 34 )),qbs_new_txt_len("? ",2)),func_chr( 34 )),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1498; +skip1498: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10085);}while(r); +} +LABEL_FINISHEDPROMPTSTRING:; +if(qbevent){evnt(10086);r=0;} +do{ +*__LONG_NUMVAR= 0 ; +if(!qbevent)break;evnt(10087);}while(r); +S_12263:; +fornext_value1500=*__LONG_I; +fornext_finalvalue1500=*__LONG_N; +fornext_step1500= 1 ; +if (fornext_step1500<0) fornext_step_negative1500=1; else fornext_step_negative1500=0; +if (new_error) goto fornext_error1500; +goto fornext_entrylabel1500; +while(1){ +fornext_value1500=fornext_step1500+(*__LONG_I); +fornext_entrylabel1500: +*__LONG_I=fornext_value1500; +if (fornext_step_negative1500){ +if (fornext_value1500fornext_finalvalue1500) break; +} +fornext_error1500:; +if(qbevent){evnt(10088);if(r)goto S_12263;} +S_12264:; +if ((-(*__LONG_COMMANEEDED== 1 ))||new_error){ +if(qbevent){evnt(10089);if(r)goto S_12264;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10090);}while(r); +S_12266:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(10091);if(r)goto S_12266;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10091);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10091);}while(r); +} +}else{ +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10094);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10095);}while(r); +S_12273:; +fornext_value1502=*__LONG_I; +fornext_finalvalue1502=*__LONG_N; +fornext_step1502= 1 ; +if (fornext_step1502<0) fornext_step_negative1502=1; else fornext_step_negative1502=0; +if (new_error) goto fornext_error1502; +goto fornext_entrylabel1502; +while(1){ +fornext_value1502=fornext_step1502+(*__LONG_I2); +fornext_entrylabel1502: +*__LONG_I2=fornext_value1502; +if (fornext_step_negative1502){ +if (fornext_value1502fornext_finalvalue1502) break; +} +fornext_error1502:; +if(qbevent){evnt(10096);if(r)goto S_12273;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10097);}while(r); +S_12275:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10098);if(r)goto S_12275;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10098);}while(r); +} +S_12278:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10099);if(r)goto S_12278;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10099);}while(r); +} +S_12281:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10100);if(r)goto S_12281;} +do{ +*__LONG_I2=*__LONG_I2- 1 ; +if(!qbevent)break;evnt(10100);}while(r); +do{ +goto fornext_exit_1501; +if(!qbevent)break;evnt(10100);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10101);}while(r); +fornext_continue_1501:; +} +fornext_exit_1501:; +do{ +*__LONG_I=*__LONG_I2; +if(!qbevent)break;evnt(10103);}while(r); +S_12288:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(10103);if(r)goto S_12288;} +do{ +*__LONG_I=*__LONG_N; +if(!qbevent)break;evnt(10103);}while(r); +} +S_12291:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10104);if(r)goto S_12291;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10104);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10104);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10105);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10106);}while(r); +S_12297:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10107);if(r)goto S_12297;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10107);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10108);}while(r); +S_12301:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(10108);if(r)goto S_12301;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10108);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10109);}while(r); +S_12305:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10110);if(r)goto S_12305;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10110);}while(r); +} +S_12308:; +if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(10111);if(r)goto S_12308;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10111);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10111);}while(r); +} +S_12312:; +if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10113);if(r)goto S_12312;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1504= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10114);}while(r); +S_12314:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10115);if(r)goto S_12314;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10115);}while(r); +} +do{ +*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; +if(!qbevent)break;evnt(10116);}while(r); +S_12318:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10117);if(r)goto S_12318;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1505; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING+512;",15)), 0 , 0 , 1 ); +if (new_error) goto skip1505; +skip1505: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10118);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1506; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING;",11)), 0 , 0 , 1 ); +if (new_error) goto skip1506; +skip1506: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10120);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1507; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1507; +skip1507: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10122);}while(r); +do{ +goto LABEL_GOTINPUTVAR; +if(!qbevent)break;evnt(10123);}while(r); +} +S_12326:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10126);if(r)goto S_12326;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10126);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10126);}while(r); +} +S_12330:; +if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(10127);if(r)goto S_12330;} +S_12331:; +if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(10128);if(r)goto S_12331;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle BIT array elements",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10129);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10129);}while(r); +} +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1508= 0 ))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10132);}while(r); +S_12337:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10133);if(r)goto S_12337;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10133);}while(r); +} +S_12340:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(10136);if(r)goto S_12340;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(10136);}while(r); +} +S_12343:; +if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(10137);if(r)goto S_12343;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(10137);}while(r); +} +S_12346:; +if (((*__LONG_T&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(10138);if(r)goto S_12346;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(10138);}while(r); +} +do{ +*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; +if(!qbevent)break;evnt(10149);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1509; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),FUNC_STR2(__LONG_T)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1509; +skip1509: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10150);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1510; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1510; +skip1510: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10151);}while(r); +do{ +goto LABEL_GOTINPUTVAR; +if(!qbevent)break;evnt(10152);}while(r); +} +LABEL_GOTINPUTVAR:; +if(qbevent){evnt(10155);r=0;} +do{ +*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ; +if(!qbevent)break;evnt(10156);}while(r); +S_12355:; +if ((-(*__LONG_COMMANEEDED== 2 ))||new_error){ +if(qbevent){evnt(10156);if(r)goto S_12355;} +do{ +*__LONG_COMMANEEDED= 0 ; +if(!qbevent)break;evnt(10156);}while(r); +} +fornext_continue_1499:; +} +fornext_exit_1499:; +S_12359:; +if ((-(*__LONG_NUMVAR== 0 ))||new_error){ +if(qbevent){evnt(10158);if(r)goto S_12359;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Syntax error - Reference: INPUT [;] ",36),func_chr( 34 )),qbs_new_txt_len("[Question or statement text]",28)),func_chr( 34 )),qbs_new_txt_len("{,|;} variable[, ...] or INPUT ; variable[, ...]",48))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10158);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10158);}while(r); +} +S_12363:; +if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||new_error){ +if(qbevent){evnt(10159);if(r)goto S_12363;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10159);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10159);}while(r); +} +S_12367:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(10160);if(r)goto S_12367;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1511; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102), 0 , 0 , 1 ); +if (new_error) goto skip1511; +skip1511: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10161);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1512; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input(",10),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_NEWLINE)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1512; +skip1512: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10163);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1513; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (stop_program) end();",24), 0 , 0 , 1 ); +if (new_error) goto skip1513; +skip1513: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10164);}while(r); +S_12372:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(10165);if(r)goto S_12372;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1514; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102), 0 , 0 , 1 ); +if (new_error) goto skip1514; +skip1514: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10166);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1515; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip1515; +skip1515: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10168);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10169);}while(r); +S_12377:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10169);if(r)goto S_12377;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10169);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10169);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10170);}while(r); +} +S_12384:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ +if(qbevent){evnt(10175);if(r)goto S_12384;} +S_12385:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10176);if(r)goto S_12385;} +S_12386:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1517= 2 )),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10177);if(r)goto S_12386;} +do{ +SUB_XFILEWRITE(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10178);}while(r); +S_12388:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10179);if(r)goto S_12388;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10179);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10180);}while(r); +} +} +} +S_12395:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ +if(qbevent){evnt(10185);if(r)goto S_12395;} +do{ +SUB_XWRITE(__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10186);}while(r); -S_12439:; +S_12397:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10187);if(r)goto S_12439;} +if(qbevent){evnt(10187);if(r)goto S_12397;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10187);}while(r); } do{ -goto LABEL_SETE; +goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(10188);}while(r); } -S_12444:; -if ((-(*__LONG_TARGETTYP== -2 ))||new_error){ -if(qbevent){evnt(10192);if(r)goto S_12444;} +S_12402:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||new_error){ +if(qbevent){evnt(10191);if(r)goto S_12402;} +S_12403:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10192);if(r)goto S_12403;} +S_12404:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1518= 2 )),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10193);if(r)goto S_12404;} do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10193);}while(r); -S_12446:; +if(!qbevent)break;evnt(10194);}while(r); +S_12406:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10194);if(r)goto S_12446;} +if(qbevent){evnt(10195);if(r)goto S_12406;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10194);}while(r); -} -S_12449:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10195);if(r)goto S_12449;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10195);}while(r); } -S_12452:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10196);if(r)goto S_12452;} do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_set(__STRING_L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10196);}while(r); do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10196);}while(r); -} +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10197);}while(r); +S_12411:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10197);if(r)goto S_12411;} do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1495= -2 ))); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10197);}while(r); -S_12457:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10198);if(r)goto S_12457;} +}else{ do{ -goto LABEL_ERRMES; +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10197);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; if(!qbevent)break;evnt(10198);}while(r); } -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10199);}while(r); } -S_12462:; -if ((-(*__LONG_TARGETTYP== -4 ))||new_error){ -if(qbevent){evnt(10202);if(r)goto S_12462;} -S_12463:; -if ((*__LONG_FIELDCALL)||new_error){ -if(qbevent){evnt(10204);if(r)goto S_12463;} +} +S_12420:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LPRINT",6)))))||new_error){ +if(qbevent){evnt(10203);if(r)goto S_12420;} +S_12421:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(10204);if(r)goto S_12421;} do{ -*__LONG_I=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; +*__LONG_ELEMENTON= 2 ; if(!qbevent)break;evnt(10205);}while(r); -do{ -goto fornext_exit_1482; -if(!qbevent)break;evnt(10206);}while(r); +LABEL_REDOSEMI:; +if(qbevent){evnt(10206);r=0;} +S_12423:; +fornext_value1521=*__LONG_ELEMENTON; +fornext_finalvalue1521=*__LONG_N- 1 ; +fornext_step1521= 1 ; +if (fornext_step1521<0) fornext_step_negative1521=1; else fornext_step_negative1521=0; +if (new_error) goto fornext_error1521; +goto fornext_entrylabel1521; +while(1){ +fornext_value1521=fornext_step1521+(*__LONG_I); +fornext_entrylabel1521: +*__LONG_I=fornext_value1521; +if (fornext_step_negative1521){ +if (fornext_value1521fornext_finalvalue1521) break; } -S_12467:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||new_error){ -if(qbevent){evnt(10209);if(r)goto S_12467;} +fornext_error1521:; +if(qbevent){evnt(10207);if(r)goto S_12423;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable name/array element",36)); +qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1522=*__LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10209);}while(r); +if(!qbevent)break;evnt(10208);}while(r); +S_12425:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(10209);if(r)goto S_12425;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10209);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])))); +qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10210);}while(r); -S_12472:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10211);if(r)goto S_12472;} do{ -goto LABEL_ERRMES; +*__LONG_BEGINPOINT=func_instr(*__LONG_BEGINPOINT,__STRING_TEMP1,func_chr( 34 ),1); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10211);}while(r); -} -S_12475:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10212);if(r)goto S_12475;} do{ -qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +*__LONG_ENDPOINT=func_instr(*__LONG_BEGINPOINT+ 1 ,__STRING_TEMP1,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10212);}while(r); -} -S_12478:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10213);if(r)goto S_12478;} +S_12429:; +if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||new_error){ +if(qbevent){evnt(10213);if(r)goto S_12429;} do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ; +if(!qbevent)break;evnt(10215);}while(r); +do{ +qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs_ltrim(qbs_str((int32)(*__LONG_TEXTLENGTH))))->len),1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10213);}while(r); +if(!qbevent)break;evnt(10216);}while(r); +S_12432:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||new_error){ +if(qbevent){evnt(10217);if(r)goto S_12432;} do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10213);}while(r); -} -S_12482:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PUT",3)))))||new_error){ -if(qbevent){evnt(10216);if(r)goto S_12482;} -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10217);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP)); +SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10218);}while(r); -S_12485:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10219);if(r)goto S_12485;} do{ -goto LABEL_ERRMES; +SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10219);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(10220);}while(r); +do{ +*__LONG_ELEMENTON=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(10221);}while(r); +do{ +goto LABEL_REDOSEMI; +if(!qbevent)break;evnt(10222);}while(r); } -S_12488:; -if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10220);if(r)goto S_12488;} -S_12489:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(10221);if(r)goto S_12489;} +} +S_12440:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(10225);if(r)goto S_12440;} +S_12441:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(10226);if(r)goto S_12441;} +S_12442:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("(",1)))))||new_error){ +if(qbevent){evnt(10227);if(r)goto S_12442;} do{ -qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 )); +SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10223);}while(r); -S_12491:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||new_error){ -if(qbevent){evnt(10225);if(r)goto S_12491;} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_get2",8),__STRING_SUBCALL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10226);}while(r); -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1498= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10227);}while(r); -S_12494:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10228);if(r)goto S_12494;} -do{ -goto LABEL_ERRMES; if(!qbevent)break;evnt(10228);}while(r); -} do{ -goto LABEL_SETE; +SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10229);}while(r); -}else{ do{ -qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_put2",8),__STRING_SUBCALL)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(10230);}while(r); +do{ +*__LONG_ELEMENTON=*__LONG_I+ 2 ; if(!qbevent)break;evnt(10231);}while(r); +do{ +goto LABEL_REDOSEMI; +if(!qbevent)break;evnt(10232);}while(r); } } } +} +fornext_continue_1520:; +} +fornext_exit_1520:; +} do{ -qbs_set(__STRING_E,__STRING_E2); +SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10236);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1499= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10239);}while(r); -S_12506:; +if(!qbevent)break;evnt(10240);}while(r); +S_12455:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10240);if(r)goto S_12506;} +if(qbevent){evnt(10241);if(r)goto S_12455;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10240);}while(r); -} -do{ -goto LABEL_SETE; if(!qbevent)break;evnt(10241);}while(r); } -S_12511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||new_error){ -if(qbevent){evnt(10244);if(r)goto S_12511;} do{ -qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); +qbs_set(__STRING_L,__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10245);}while(r); +if(!qbevent)break;evnt(10242);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10243);}while(r); +S_12460:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10243);if(r)goto S_12460;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10243);}while(r); }else{ do{ -qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])))); +qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10248);}while(r); -S_12515:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10249);if(r)goto S_12515;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10249);}while(r); +if(!qbevent)break;evnt(10243);}while(r); } -S_12518:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10250);if(r)goto S_12518;} do{ -qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10244);}while(r); +} +S_12467:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||new_error){ +if(qbevent){evnt(10249);if(r)goto S_12467;} +S_12468:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10250);if(r)goto S_12468;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("CLEAR cannot be used inside a SUB/FUNCTION",42)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10250);}while(r); -} -S_12521:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10251);if(r)goto S_12521;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10251);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10251);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10253);}while(r); -S_12526:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10254);if(r)goto S_12526;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10254);}while(r); +if(!qbevent)break;evnt(10250);}while(r); } -S_12529:; -if ((*__LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(10256);if(r)goto S_12529;} -S_12530:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ -if(qbevent){evnt(10257);if(r)goto S_12530;} -S_12531:; -if ((-(*(int16*)(((char*)__UDT_ID2)+(548))== 0 ))||new_error){ -if(qbevent){evnt(10258);if(r)goto S_12531;} +} +S_12473:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RSET",4)))))||new_error){ +if(qbevent){evnt(10254);if(r)goto S_12473;} +S_12474:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(10255);if(r)goto S_12474;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_FIRSTELEMENT),qbs_new_txt_len(" ...",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10258);}while(r); +if(!qbevent)break;evnt(10255);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10258);}while(r); +if(!qbevent)break;evnt(10255);}while(r); } -} -} -S_12537:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_paint",9))))||new_error){ -if(qbevent){evnt(10262);if(r)goto S_12537;} -S_12538:; -if ((-(*__LONG_I== 3 ))||new_error){ -if(qbevent){evnt(10263);if(r)goto S_12538;} -S_12539:; -if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10264);if(r)goto S_12539;} +S_12478:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ +if(qbevent){evnt(10256);if(r)goto S_12478;} do{ -*__LONG_TARGETTYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(10265);}while(r); -} -} -} -S_12544:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(10270);if(r)goto S_12544;} -do{ -*__LONG_DEREFERENCE= 1 ; -if(!qbevent)break;evnt(10270);}while(r); +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10256);}while(r); }else{ do{ -*__LONG_DEREFERENCE= 0 ; +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("RSet",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10256);}while(r); +} +do{ +qbs_set(__STRING_DEST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10257);}while(r); +do{ +qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10258);}while(r); +do{ +*__LONG_PART= 1 ; +if(!qbevent)break;evnt(10259);}while(r); +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(10260);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10261);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10262);}while(r); +S_12489:; +do{ +if(qbevent){evnt(10263);if(r)goto S_12489;} +S_12490:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(10264);if(r)goto S_12490;} +S_12491:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(10265);if(r)goto S_12491;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10265);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10265);}while(r); +} +do{ +qbs_set(__STRING_SOURCE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10266);}while(r); +do{ +goto dl_exit_1524; +if(!qbevent)break;evnt(10267);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10269);}while(r); +S_12499:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10270);if(r)goto S_12499;} +do{ +*__LONG_B=*__LONG_B+ 1 ; if(!qbevent)break;evnt(10270);}while(r); } -S_12549:; -if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(10273);if(r)goto S_12549;} -S_12550:; -if ((-(*__LONG_DEREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(10274);if(r)goto S_12550;} -S_12551:; -if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(10277);if(r)goto S_12551;} -S_12552:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(10278);if(r)goto S_12552;} +S_12502:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10271);if(r)goto S_12502;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10278);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10278);}while(r); +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10271);}while(r); } -S_12556:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(10279);if(r)goto S_12556;} +S_12505:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10272);if(r)goto S_12505;} +S_12506:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(10273);if(r)goto S_12506;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_set(__STRING_DEST,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10273);}while(r); +do{ +*__LONG_PART= 2 ; +if(!qbevent)break;evnt(10273);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10273);}while(r); +do{ +goto LABEL_LRSETGOTPART; +if(!qbevent)break;evnt(10273);}while(r); +} +} +S_12513:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ +if(qbevent){evnt(10275);if(r)goto S_12513;} +do{ +qbs_set(__STRING_A3,qbs_add(qbs_add(__STRING_A3,__STRING1_SP),__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10275);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10275);}while(r); +} +LABEL_LRSETGOTPART:; +if(qbevent){evnt(10276);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10277);}while(r); +dl_continue_1524:; +}while(1); +dl_exit_1524:; +S_12520:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10279);if(r)goto S_12520;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected LSET/RSET stringvariable=string",40)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10279);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10279);}while(r); } -S_12560:; -if (( 0 )||new_error){ -if(qbevent){evnt(10280);if(r)goto S_12560;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1501; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:[",21),__STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip1501; -skip1501: +qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10280);}while(r); +if(!qbevent)break;evnt(10281);}while(r); +S_12525:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10282);if(r)goto S_12525;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10282);}while(r); } do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP; +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("=",1))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10283);}while(r); do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP; -if(!qbevent)break;evnt(10283);}while(r); -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10284);}while(r); +S_12530:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10285);if(r)goto S_12530;} do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +goto LABEL_ERRMES; if(!qbevent)break;evnt(10285);}while(r); -S_12567:; -if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(10286);if(r)goto S_12567;} +} +S_12533:; +if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(10286);if(r)goto S_12533;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34)); +qbs_set(__STRING_A,qbs_new_txt_len("LSET/RSET expects a string variable/array-element as its first argument",71)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10286);}while(r); do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10286);}while(r); } -S_12571:; -if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10289);if(r)goto S_12571;} -S_12572:; -if (( 0 )||new_error){ -if(qbevent){evnt(10290);if(r)goto S_12572;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1502; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:udt reference:[",35),__STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip1502; -skip1502: +qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; +if(!qbevent)break;evnt(10287);}while(r); +S_12538:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10288);if(r)goto S_12538;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10288);}while(r); +} +do{ +qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10289);}while(r); +S_12542:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10290);if(r)goto S_12542;} +do{ +goto LABEL_ERRMES; if(!qbevent)break;evnt(10290);}while(r); } do{ -*__LONG_UDTREFID=qbr(func_val(__STRING_E)); +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10291);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10292);}while(r); +S_12547:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10292);if(r)goto S_12547;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10292);}while(r); +}else{ do{ -SUB_GETID(__LONG_UDTREFID); +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10292);}while(r); +} +do{ +qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(10293);}while(r); -S_12577:; +S_12553:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10294);if(r)goto S_12577;} +if(qbevent){evnt(10294);if(r)goto S_12553;} do{ goto LABEL_ERRMES; if(!qbevent)break;evnt(10294);}while(r); } -do{ -*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10295);}while(r); -do{ -*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10296);}while(r); -do{ -*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10297);}while(r); -do{ -*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10298);}while(r); -do{ -*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10299);}while(r); -do{ -qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10300);}while(r); -S_12586:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ -if(qbevent){evnt(10302);if(r)goto S_12586;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10302);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10302);}while(r); -} -}else{ -S_12591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(__STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(10304);if(r)goto S_12591;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10304);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10304);}while(r); -} -} -do{ -*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10307);}while(r); -do{ -SUB_GETID(__LONG_IDNUM); -if(!qbevent)break;evnt(10308);}while(r); -S_12598:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10309);if(r)goto S_12598;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10309);}while(r); -} -S_12601:; -if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(10311);if(r)goto S_12601;} -do{ -*__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(1213)),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10312);}while(r); -S_12603:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*__LONG_TARGETTYPSIZE))||new_error){ -if(qbevent){evnt(10313);if(r)goto S_12603;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10313);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10313);}while(r); -} -} -S_12608:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(10316);if(r)goto S_12608;} -S_12609:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(10317);if(r)goto S_12609;} -do{ -tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(10318);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(10319);}while(r); -} -} -S_12614:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ -if(qbevent){evnt(10323);if(r)goto S_12614;} -S_12615:; -if ((-(*__LONG_NELEREQ== 0 ))||new_error){ -if(qbevent){evnt(10329);if(r)goto S_12615;} -S_12616:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 ))||new_error){ -if(qbevent){evnt(10333);if(r)goto S_12616;} -do{ -*__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(10335);}while(r); -do{ -sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,func_chr(*__LONG_NELEREQ),1); -if(!qbevent)break;evnt(10336);}while(r); -} -do{ -memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0,((char*)__UDT_ID2)+(0)+ 0, 2863); -if(!qbevent)break;evnt(10342);}while(r); -}else{ -S_12622:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*__LONG_NELEREQ))||new_error){ -if(qbevent){evnt(10349);if(r)goto S_12622;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported (yet)",91)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10349);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10349);}while(r); -} -} -} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1504= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10355);}while(r); -S_12629:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10356);if(r)goto S_12629;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10356);}while(r); -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10357);}while(r); -} -S_12634:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(10364);if(r)goto S_12634;} -S_12635:; -if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(10365);if(r)goto S_12635;} -do{ -*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10366);}while(r); -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP; -if(!qbevent)break;evnt(10368);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP; -if(!qbevent)break;evnt(10368);}while(r); -do{ -*__LONG_ARR= 0 ; -if(!qbevent)break;evnt(10371);}while(r); -S_12640:; -if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(10371);if(r)goto S_12640;} -do{ -*__LONG_ARR= 1 ; -if(!qbevent)break;evnt(10371);}while(r); -} -do{ -*__LONG_PASSUDTELEMENT= 0 ; -if(!qbevent)break;evnt(10372);}while(r); -S_12644:; -if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ -if(qbevent){evnt(10372);if(r)goto S_12644;} -do{ -*__LONG_PASSUDTELEMENT= 1 ; -if(!qbevent)break;evnt(10372);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT; -if(!qbevent)break;evnt(10372);}while(r); -} -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(10375);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(10376);}while(r); -S_12650:; -if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(10379);if(r)goto S_12650;} -S_12651:; -if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10381);if(r)goto S_12651;} -do{ -*__LONG_UDTREFID=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10385);}while(r); -do{ -SUB_GETID(__LONG_UDTREFID); -if(!qbevent)break;evnt(10386);}while(r); -S_12654:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10387);if(r)goto S_12654;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10387);}while(r); -} -do{ -*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10388);}while(r); -do{ -*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10389);}while(r); -do{ -*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10390);}while(r); -do{ -*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10391);}while(r); -do{ -*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10392);}while(r); -do{ -qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10393);}while(r); -S_12663:; -if ((*__LONG_ARR)||new_error){ -if(qbevent){evnt(10396);if(r)goto S_12663;} -do{ -qbs_set(__STRING_N,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10397);}while(r); -}else{ -do{ -qbs_set(__STRING_N,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10399);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),__STRING_N),qbs_new_txt_len(")) + (",6)),__STRING_O),qbs_new_txt_len(") )",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10402);}while(r); -S_12669:; -if ((*__LONG_PASSUDTELEMENT)||new_error){ -if(qbevent){evnt(10405);if(r)goto S_12669;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1506=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10405);}while(r); -} -S_12672:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10406);if(r)goto S_12672;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10406);}while(r); -} -}else{ -S_12676:; -if ((*__LONG_ARR)||new_error){ -if(qbevent){evnt(10410);if(r)goto S_12676;} -S_12677:; -if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(10411);if(r)goto S_12677;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass BIT array offsets yet",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10411);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10411);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1507= 0 ))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10412);}while(r); -S_12682:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10413);if(r)goto S_12682;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10413);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1508= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10415);}while(r); -S_12687:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10416);if(r)goto S_12687;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10416);}while(r); -} -} -S_12691:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ -if(qbevent){evnt(10420);if(r)goto S_12691;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1509=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10421);}while(r); -S_12693:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10422);if(r)goto S_12693;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10422);}while(r); -} -} -} -S_12698:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(10427);if(r)goto S_12698;} -S_12699:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(10428);if(r)goto S_12699;} -do{ -tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(10429);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(10430);}while(r); -} -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10434);}while(r); -} -} -}else{ -S_12708:; -if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(10439);if(r)goto S_12708;} -do{ -*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10440);}while(r); -S_12710:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(10441);if(r)goto S_12710;} -S_12711:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(10442);if(r)goto S_12711;} -do{ -tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(10443);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(10444);}while(r); -} -} -} -} -} -} -S_12720:; -if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(10456);if(r)goto S_12720;} -S_12721:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(10457);if(r)goto S_12721;} -do{ -*__LONG_NTH=*__LONG_I; -if(!qbevent)break;evnt(10458);}while(r); -S_12723:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 1 ))||new_error){ -if(qbevent){evnt(10459);if(r)goto S_12723;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10459);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10459);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a string",31))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10460);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10460);}while(r); -} -} -S_12731:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(10463);if(r)goto S_12731;} -S_12732:; -if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(10464);if(r)goto S_12732;} -do{ -*__LONG_NTH=*__LONG_I; -if(!qbevent)break;evnt(10465);}while(r); -S_12734:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 1 ))||new_error){ -if(qbevent){evnt(10466);if(r)goto S_12734;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10466);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10466);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a number",31))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10467);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10467);}while(r); -} -} -S_12742:; -if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(10472);if(r)goto S_12742;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1510= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10473);}while(r); -S_12744:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10474);if(r)goto S_12744;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10474);}while(r); -} -} -S_12748:; -if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(10477);if(r)goto S_12748;} -S_12749:; -if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10478);if(r)goto S_12749;} -do{ -*__LONG_NTH=*__LONG_I; -if(!qbevent)break;evnt(10479);}while(r); -do{ -qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10480);}while(r); -S_12752:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 1 ))||new_error){ -if(qbevent){evnt(10481);if(r)goto S_12752;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),__STRING_X),qbs_new_txt_len(" required for sub",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10481);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10481);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires TYPE ",28)),__STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10482);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10482);}while(r); -} -}else{ -S_12760:; -if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10485);if(r)goto S_12760;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10485);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10485);}while(r); -} -} -S_12765:; -if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(10489);if(r)goto S_12765;} -S_12766:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(10490);if(r)goto S_12766;} -do{ -*__LONG_BITS=*__LONG_TARGETTYP& 511 ; -if(!qbevent)break;evnt(10492);}while(r); -S_12768:; -if ((-(*__LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(10493);if(r)goto S_12768;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10493);}while(r); -} -S_12771:; -if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||new_error){ -if(qbevent){evnt(10494);if(r)goto S_12771;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10494);}while(r); -} -S_12774:; -if ((-(*__LONG_BITS>= 32 ))||new_error){ -if(qbevent){evnt(10495);if(r)goto S_12774;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10495);}while(r); -} -} -} -S_12779:; -if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(10499);if(r)goto S_12779;} -S_12780:; -if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10500);if(r)goto S_12780;} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10500);}while(r); -} -do{ -qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TARGETTYP,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10501);}while(r); -S_12784:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10502);if(r)goto S_12784;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10502);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1511=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10503);}while(r); -S_12788:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(10505);if(r)goto S_12788;} -do{ -*__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/ 8 ; -if(!qbevent)break;evnt(10506);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip1512; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" *",2)),__STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip1512; -skip1512: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10507);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1513; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip1513; -skip1513: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10508);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1514; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(__LONG_BYTESREQ)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1514; -skip1514: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10509);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1515; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_V,qbs_new_txt_len("=(",2)),__STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip1515; -skip1515: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10510);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip1516; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10543);}while(r); -} -S_12820:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(10546);if(r)goto S_12820;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10546);}while(r); -} -} -S_12824:; -if ((-(*__LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(10550);if(r)goto S_12824;} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10550);}while(r); -} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10551);}while(r); -fornext_continue_1482:; -} -fornext_exit_1482:; -do{ -qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10555);}while(r); -S_12830:; -while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ -if(qbevent){evnt(10556);if(r)goto S_12830;} -do{ -*__LONG_X=qbs_asc(__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10557);}while(r); -S_12832:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(10558);if(r)goto S_12832;} -do{ -qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10559);}while(r); -do{ -qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10560);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(10562);}while(r); -do{ -*__LONG_AN= 0 ; -if(!qbevent)break;evnt(10563);}while(r); -do{ -qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10564);}while(r); -S_12838:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ -if(qbevent){evnt(10565);if(r)goto S_12838;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10565);}while(r); -} -S_12841:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ -if(qbevent){evnt(10566);if(r)goto S_12841;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10567);}while(r); -S_12843:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(10568);if(r)goto S_12843;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(10568);}while(r); -} -}else{ -S_12847:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(10571);if(r)goto S_12847;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(10571);}while(r); -} -} -do{ -*__LONG_S1=*__LONG_S; -if(!qbevent)break;evnt(10574);}while(r); -S_12852:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||new_error){ -if(qbevent){evnt(10576);if(r)goto S_12852;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10577);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10578);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(10579);}while(r); -} -S_12857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(10582);if(r)goto S_12857;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10583);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10584);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(10585);}while(r); -} -S_12862:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(10588);if(r)goto S_12862;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10589);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10590);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(10591);}while(r); -} -S_12867:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(10594);if(r)goto S_12867;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10594);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(10594);}while(r); -} -S_12871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(10596);if(r)goto S_12871;} -S_12872:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ -if(qbevent){evnt(10597);if(r)goto S_12872;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10597);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(10597);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10598);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(10598);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10602);}while(r); -LABEL_CUSTOMLAYCHAR2:; -if(qbevent){evnt(10603);r=0;} -S_12880:; -if ((-(*__LONG_S== 0 ))||new_error){ -if(qbevent){evnt(10604);if(r)goto S_12880;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10604);}while(r); -} -S_12883:; -if ((-(*__LONG_S!=*__LONG_S1))||new_error){ -if(qbevent){evnt(10605);if(r)goto S_12883;} -S_12884:; -if ((*__LONG_S1)||new_error){ -if(qbevent){evnt(10606);if(r)goto S_12884;} -do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10606);}while(r); -} -S_12887:; -if ((-(*__LONG_S== 1 ))||new_error){ -if(qbevent){evnt(10607);if(r)goto S_12887;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10607);}while(r); -} -S_12890:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(10608);if(r)goto S_12890;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10608);}while(r); -} -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10610);}while(r); -}else{ -do{ -*__LONG_ADDLAYOUT= 0 ; -if(!qbevent)break;evnt(10613);}while(r); -do{ -qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10614);}while(r); -} -do{ -*__LONG_ADDEDLAYOUT= 0 ; -if(!qbevent)break;evnt(10616);}while(r); -dl_continue_1520:; -} -dl_exit_1520:; -S_12901:; -if ((*__LONG_PASSEDNEEDED)||new_error){ -if(qbevent){evnt(10624);if(r)goto S_12901;} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_PASSED))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10625);}while(r); -} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10627);}while(r); +S_12556:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ +if(qbevent){evnt(10295);if(r)goto S_12556;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1524; -sub_file_print(tmp_fileno,__STRING_SUBCALL, 0 , 0 , 1 ); -if (new_error) goto skip1524; -skip1524: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10628);}while(r); -do{ -qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10629);}while(r); -S_12907:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(10630);if(r)goto S_12907;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1525; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip1525; -skip1525: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10630);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10632);}while(r); -do{ -qbs_set(__STRING_X,qbs_right(__STRING_L, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10633);}while(r); -S_12912:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||new_error){ -if(qbevent){evnt(10633);if(r)goto S_12912;} -do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10633);}while(r); -} -S_12915:; -if ((-(*__LONG_USECALL== 1 ))||new_error){ -if(qbevent){evnt(10634);if(r)goto S_12915;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10634);}while(r); -} -S_12918:; -if (( 0 )||new_error){ -if(qbevent){evnt(10635);if(r)goto S_12918;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1527; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("SUB layout:[",12),__STRING_L),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_lset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1527; skip1527: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10635);}while(r); -} -S_12921:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(10636);if(r)goto S_12921;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10636);}while(r); +if(!qbevent)break;evnt(10296);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1528; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_rset(",9),__STRING_DEST),qbs_new_txt_len(",",1)),__STRING_SOURCE),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1528; +skip1528: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10636);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10298);}while(r); } do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10637);}while(r); +if(!qbevent)break;evnt(10300);}while(r); } -S_12928:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(10642);if(r)goto S_12928;} +S_12563:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||new_error){ +if(qbevent){evnt(10304);if(r)goto S_12563;} +S_12564:; +if ((-(*__LONG_N< 4 ))||new_error){ +if(qbevent){evnt(10305);if(r)goto S_12564;} do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10643);}while(r); -S_12930:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(10643);if(r)goto S_12930;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1529= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10643);}while(r); -} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(10644);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10645);}while(r); -S_12935:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10646);if(r)goto S_12935;} +if(!qbevent)break;evnt(10305);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10646);}while(r); +if(!qbevent)break;evnt(10305);}while(r); } +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10306);}while(r); +do{ +*__LONG_ELE= 1 ; +if(!qbevent)break;evnt(10307);}while(r); +do{ +qbs_set(__STRING_E1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10308);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10309);}while(r); +S_12572:; +fornext_value1530= 2 ; +fornext_finalvalue1530=*__LONG_N; +fornext_step1530= 1 ; +if (fornext_step1530<0) fornext_step_negative1530=1; else fornext_step_negative1530=0; +if (new_error) goto fornext_error1530; +goto fornext_entrylabel1530; +while(1){ +fornext_value1530=fornext_step1530+(*__LONG_I); +fornext_entrylabel1530: +*__LONG_I=fornext_value1530; +if (fornext_step_negative1530){ +if (fornext_value1530fornext_finalvalue1530) break; +} +fornext_error1530:; +if(qbevent){evnt(10310);if(r)goto S_12572;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10311);}while(r); +S_12574:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10312);if(r)goto S_12574;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10312);}while(r); +} +S_12577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10313);if(r)goto S_12577;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10313);}while(r); +} +S_12580:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10314);if(r)goto S_12580;} +S_12581:; +if ((-(*__LONG_ELE== 2 ))||new_error){ +if(qbevent){evnt(10315);if(r)goto S_12581;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10315);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10315);}while(r); +} +do{ +*__LONG_ELE= 2 ; +if(!qbevent)break;evnt(10316);}while(r); +}else{ +S_12587:; +if ((-(*__LONG_ELE== 1 ))||new_error){ +if(qbevent){evnt(10318);if(r)goto S_12587;} +do{ +qbs_set(__STRING_E1,qbs_add(qbs_add(__STRING_E1,__STRING1_SP),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10318);}while(r); }else{ do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(10648);}while(r); -} -dl_continue_1361:; -} -dl_exit_1361:; -} -LABEL_NOTSUBCALL:; -if(qbevent){evnt(10654);r=0;} -S_12943:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(10656);if(r)goto S_12943;} -S_12944:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||new_error){ -if(qbevent){evnt(10657);if(r)goto S_12944;} -S_12945:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(10658);if(r)goto S_12945;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_set(__STRING_E2,qbs_add(qbs_add(__STRING_E2,__STRING1_SP),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10658);}while(r); +if(!qbevent)break;evnt(10318);}while(r); +} +} +fornext_continue_1529:; +} +fornext_exit_1529:; +S_12594:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10321);if(r)goto S_12594;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10321);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10658);}while(r); +if(!qbevent)break;evnt(10321);}while(r); } do{ -qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 4 )); +qbs_set(__STRING_E1,qbs_right(__STRING_E1,__STRING_E1->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10659);}while(r); +if(!qbevent)break;evnt(10322);}while(r); do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(10660);}while(r); -do{ -qbs_set(__STRING_L,qbs_new_txt_len("LET",3)); +qbs_set(__STRING_E2,qbs_right(__STRING_E2,__STRING_E2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10661);}while(r); -S_12952:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10662);if(r)goto S_12952;} +if(!qbevent)break;evnt(10322);}while(r); do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10662);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10662);}while(r); -} -do{ -goto LABEL_LETUSED; -if(!qbevent)break;evnt(10664);}while(r); -} -} -S_12960:; -if ((-(*__LONG_N>= 3 ))||new_error){ -if(qbevent){evnt(10669);if(r)goto S_12960;} -S_12961:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1)),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(10670);if(r)goto S_12961;} -LABEL_LETUSED:; -if(qbevent){evnt(10671);r=0;} -do{ -SUB_ASSIGN(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10672);}while(r); -S_12963:; +if(!qbevent)break;evnt(10324);}while(r); +S_12601:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10673);if(r)goto S_12963;} +if(qbevent){evnt(10325);if(r)goto S_12601;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10673);}while(r); +if(!qbevent)break;evnt(10325);}while(r); +} +do{ +qbs_set(__STRING_E1L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10326);}while(r); +do{ +qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10327);}while(r); +S_12606:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10328);if(r)goto S_12606;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10328);}while(r); +} +do{ +qbs_set(__STRING_E2L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10329);}while(r); +do{ +qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10330);}while(r); +do{ +qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10330);}while(r); +S_12612:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10331);if(r)goto S_12612;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10331);}while(r); +} +S_12615:; +if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||new_error){ +if(qbevent){evnt(10332);if(r)goto S_12615;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10332);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10332);}while(r); } do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10674);}while(r); -S_12967:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(10675);if(r)goto S_12967;} +if(!qbevent)break;evnt(10334);}while(r); do{ -qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Swap",4)),__STRING1_SP),__STRING_E1L),__STRING1_SP2),qbs_new_txt_len(",",1)),__STRING1_SP),__STRING_E2L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10675);}while(r); +if(!qbevent)break;evnt(10335);}while(r); +S_12621:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(10336);if(r)goto S_12621;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10336);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10675);}while(r); +if(!qbevent)break;evnt(10336);}while(r); } +S_12626:; +if (((*__LONG_E1TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10339);if(r)goto S_12626;} +S_12627:; +if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10340);if(r)goto S_12627;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10340);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10340);}while(r); +} +do{ +qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1534= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10341);}while(r); +do{ +qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1535= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10341);}while(r); +S_12633:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10342);if(r)goto S_12633;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10342);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1536; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_string(",12),__STRING_E1),qbs_new_txt_len(",",1)),__STRING_E2),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1536; +skip1536: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10343);}while(r); do{ goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10676);}while(r); +if(!qbevent)break;evnt(10344);}while(r); } -} -S_12975:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_A, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1))))))||new_error){ -if(qbevent){evnt(10679);if(r)goto S_12975;} +S_12639:; +if ((*__LONG_E1TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10352);if(r)goto S_12639;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25)); +qbs_set(__STRING_A,__STRING_E1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10679);}while(r); +if(!qbevent)break;evnt(10353);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10355);}while(r); +S_12642:; +if ((*__LONG_I)||new_error){ +if(qbevent){evnt(10356);if(r)goto S_12642;} +do{ +*__LONG_IDNUMBER=qbr(func_val(qbs_left(__STRING_A,*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10357);}while(r); +do{ +qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10357);}while(r); +do{ +SUB_GETID(__LONG_IDNUMBER); +if(!qbevent)break;evnt(10358);}while(r); +S_12646:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10359);if(r)goto S_12646;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10679);}while(r); +if(!qbevent)break;evnt(10359);}while(r); } do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +*__LONG_U=qbr(func_val(__STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10682);}while(r); +if(!qbevent)break;evnt(10360);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10361);}while(r); +do{ +qbs_set(__STRING_A,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10361);}while(r); +do{ +*__LONG_E=qbr(func_val(__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10361);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10362);}while(r); +do{ +qbs_set(__STRING_O,qbs_right(__STRING_A,__STRING_A->len-*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10362);}while(r); +do{ +qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10363);}while(r); +S_12656:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(10363);if(r)goto S_12656;} +do{ +qbs_set(__STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10363);}while(r); +} +S_12659:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(10364);if(r)goto S_12659;} +do{ +qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10365);}while(r); +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10366);}while(r); +do{ +*__LONG_T2=*__LONG_E2TYP; +if(!qbevent)break;evnt(10366);}while(r); +S_12663:; +if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(10367);if(r)goto S_12663;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10367);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10682);}while(r); -LABEL_FINISHEDLINE:; -if(qbevent){evnt(10684);r=0;} -do{ -*__LONG_THENGOTO= 0 ; -if(!qbevent)break;evnt(10685);}while(r); -LABEL_FINISHEDLINE2:; -if(qbevent){evnt(10686);r=0;} -S_12982:; -if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||new_error){ -if(qbevent){evnt(10688);if(r)goto S_12982;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(10688);}while(r); +if(!qbevent)break;evnt(10367);}while(r); } do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +*__LONG_IDNUMBER2=qbr(func_val(__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10690);}while(r); -S_12986:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(10691);if(r)goto S_12986;} +if(!qbevent)break;evnt(10368);}while(r); do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10692);}while(r); +SUB_GETID(__LONG_IDNUMBER2); +if(!qbevent)break;evnt(10369);}while(r); +S_12669:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10370);if(r)goto S_12669;} do{ -qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10693);}while(r); -do{ -qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10694);}while(r); -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10695);}while(r); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10370);}while(r); } -S_12992:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(10697);if(r)goto S_12992;} -S_12993:; -if ((*__LONG_DYNSCOPE)||new_error){ -if(qbevent){evnt(10698);if(r)goto S_12993;} do{ -*__LONG_DYNSCOPE= 0 ; -if(!qbevent)break;evnt(10699);}while(r); +qbs_set(__STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10371);}while(r); +S_12673:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(10371);if(r)goto S_12673;} +do{ +qbs_set(__STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),__STRING_N2),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10371);}while(r); +} +do{ +*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10372);}while(r); +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10372);}while(r); +do{ +*__LONG_U2=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10372);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10373);}while(r); +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10373);}while(r); +do{ +*__LONG_E2=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10373);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10375);}while(r); +do{ +qbs_set(__STRING_O2,qbs_right(__STRING_E,__STRING_E->len-*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10375);}while(r); +S_12684:; +if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||new_error){ +if(qbevent){evnt(10377);if(r)goto S_12684;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP with similar user defined type",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10377);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10377);}while(r); +} +do{ +qbs_set(__STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),__STRING_LHSSCOPE),__STRING_N),qbs_new_txt_len(")+(",3)),__STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10378);}while(r); +do{ +qbs_set(__STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),__STRING_N2),qbs_new_txt_len(")+(",3)),__STRING_O2),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10379);}while(r); +do{ +*__LONG_B=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(10380);}while(r); +do{ +qbs_set(__STRING_SIZ,FUNC_STR2(__LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10381);}while(r); +S_12692:; +if ((-(*__LONG_B== 1 ))||new_error){ +if(qbevent){evnt(10382);if(r)goto S_12692;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1534; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){evnt(",17),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); -if (new_error) goto skip1534; -skip1534: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10700);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1535; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(!qbevent)break;evnt(",23),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12)), 0 , 0 , 1 ); -if (new_error) goto skip1535; -skip1535: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10702);}while(r); -} -} -LABEL_FINISHEDNONEXEC:; -if(qbevent){evnt(10706);r=0;} -S_13000:; -if ((-(*__LONG_LAYOUTDONE== 0 ))||new_error){ -if(qbevent){evnt(10708);if(r)goto S_13000;} -do{ -*__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(10708);}while(r); -} -S_13003:; -if ((-(*__LONG_CONTINUELINEFROM== 0 ))||new_error){ -if(qbevent){evnt(10710);if(r)goto S_13003;} -S_13004:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ -if(qbevent){evnt(10713);if(r)goto S_13004;} -S_13005:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(10715);if(r)goto S_13005;} -do{ -qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10717);}while(r); -do{ -*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK; -if(!qbevent)break;evnt(10718);}while(r); -do{ -qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10719);}while(r); -} -do{ -qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10722);}while(r); -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10722);}while(r); -S_13012:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(10724);if(r)goto S_13012;} -do{ -*__LONG_INCLUDINGFROMROOT= 0 ; -if(!qbevent)break;evnt(10725);}while(r); -do{ -*__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(10726);}while(r); -LABEL_FORCEINCLUDE:; -if(qbevent){evnt(10727);r=0;} -S_13015:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10728);if(r)goto S_13015;} -do{ -qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10729);}while(r); -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10730);}while(r); -do{ -*__LONG_FORCEINCLUDINGFILE= 1 ; -if(!qbevent)break;evnt(10731);}while(r); -do{ -*__LONG_INCLUDINGFROMROOT= 1 ; -if(!qbevent)break;evnt(10732);}while(r); -} -} -S_13022:; -if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ -if(qbevent){evnt(10736);if(r)goto S_13022;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10736);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10736);}while(r); -} -do{ -*__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(10738);}while(r); -do{ -*__LONG_FIRSTTRYMETHOD= 1 ; -if(!qbevent)break;evnt(10740);}while(r); -S_13028:; -if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(10741);if(r)goto S_13028;} -do{ -*__LONG_FIRSTTRYMETHOD= 2 ; -if(!qbevent)break;evnt(10741);}while(r); -} -S_13031:; -fornext_value1538=*__LONG_FIRSTTRYMETHOD; -fornext_finalvalue1538= 2 ; -fornext_step1538= 1 ; -if (fornext_step1538<0) fornext_step_negative1538=1; else fornext_step_negative1538=0; -if (new_error) goto fornext_error1538; -goto fornext_entrylabel1538; -while(1){ -fornext_value1538=fornext_step1538+(*__LONG_TRY); -fornext_entrylabel1538: -*__LONG_TRY=fornext_value1538; -if (fornext_step_negative1538){ -if (fornext_value1538fornext_finalvalue1538) break; -} -fornext_error1538:; -if(qbevent){evnt(10742);if(r)goto S_13031;} -S_13032:; -if ((-(*__LONG_TRY== 1 ))||new_error){ -if(qbevent){evnt(10743);if(r)goto S_13032;} -S_13033:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(10744);if(r)goto S_13033;} -S_13034:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(10745);if(r)goto S_13034;} -do{ -qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10745);}while(r); -}else{ -do{ -qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10745);}while(r); -} -}else{ -do{ -qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10747);}while(r); -} -do{ -qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10749);}while(r); -} -S_13044:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(10751);if(r)goto S_13044;} -do{ -qbs_set(__STRING_F,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10751);}while(r); -} -S_13047:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ -if(qbevent){evnt(10752);if(r)goto S_13047;} -do{ -*__INTEGER_QBERRORHAPPENED= -2 ; -if(!qbevent)break;evnt(10753);}while(r); -do{ -sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10754);}while(r); -LABEL_QBERRORHAPPENED2:; -if(qbevent){evnt(10755);r=0;} -S_13050:; -if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||new_error){ -if(qbevent){evnt(10756);if(r)goto S_13050;} -do{ -goto fornext_exit_1537; -if(!qbevent)break;evnt(10756);}while(r); -} -} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(10758);}while(r); -fornext_continue_1537:; -} -fornext_exit_1537:; -S_13056:; -if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||new_error){ -if(qbevent){evnt(10760);if(r)goto S_13056;} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(10760);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10760);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10760);}while(r); -} -do{ -*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(10761);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10761);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(10761);}while(r); -} -S_13065:; -while((*__LONG_INCLEVEL)||new_error){ -if(qbevent){evnt(10764);if(r)goto S_13065;} -do{ -*__LONG_FH= 99 +*__LONG_INCLEVEL; -if(!qbevent)break;evnt(10765);}while(r); -S_13067:; -if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ -if(qbevent){evnt(10767);if(r)goto S_13067;} -do{ -tmp_fileno=*__LONG_FH; -if (new_error) goto skip1540; -sub_file_line_input_string(tmp_fileno,__STRING_X); -if (new_error) goto skip1540; -skip1540: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10768);}while(r); -do{ -qbs_set(__STRING_A3,__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10769);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(10770);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ; -if(!qbevent)break;evnt(10771);}while(r); -do{ -*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; -if(!qbevent)break;evnt(10773);}while(r); -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),qbs_new_txt_len(" included",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10774);}while(r); -S_13074:; -if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ -if(qbevent){evnt(10775);if(r)goto S_13074;} -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10776);}while(r); -S_13076:; -fornext_value1542= 1 ; -fornext_finalvalue1542=*__LONG_INCLEVEL- 1 ; -fornext_step1542= 1 ; -if (fornext_step1542<0) fornext_step_negative1542=1; else fornext_step_negative1542=0; -if (new_error) goto fornext_error1542; -goto fornext_entrylabel1542; -while(1){ -fornext_value1542=fornext_step1542+(*__LONG_X); -fornext_entrylabel1542: -*__LONG_X=fornext_value1542; -if (fornext_step_negative1542){ -if (fornext_value1542fornext_finalvalue1542) break; -} -fornext_error1542:; -if(qbevent){evnt(10777);if(r)goto S_13076;} -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10778);}while(r); -S_13078:; -if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ -if(qbevent){evnt(10779);if(r)goto S_13078;} -S_13079:; -if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ -if(qbevent){evnt(10780);if(r)goto S_13079;} -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10781);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10783);}while(r); -} -} -fornext_continue_1541:; -} -fornext_exit_1541:; -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10787);}while(r); -} -do{ -qbs_set(__STRING_INCERROR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10789);}while(r); -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; -if(!qbevent)break;evnt(10790);}while(r); -S_13090:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(10791);if(r)goto S_13090;} -do{ -qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10791);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(10791);}while(r); -} -do{ -goto LABEL_INCLUDELINE; -if(!qbevent)break;evnt(10792);}while(r); -} -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(10795);}while(r); -do{ -*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; -if(!qbevent)break;evnt(10796);}while(r); -S_13098:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(10797);if(r)goto S_13098;} -S_13099:; -if ((-(*__LONG_FORCEINCLUDINGFILE== 1 ))||new_error){ -if(qbevent){evnt(10798);if(r)goto S_13099;} -do{ -*__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(10799);}while(r); -do{ -goto LABEL_FORCEINCLUDECOMPLETED; -if(!qbevent)break;evnt(10800);}while(r); -} -do{ -*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP; -if(!qbevent)break;evnt(10803);}while(r); -do{ -qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10804);}while(r); -do{ -qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10805);}while(r); -} -dl_continue_1539:; -} -dl_exit_1539:; -} -S_13109:; -if (( 0 )||new_error){ -if(qbevent){evnt(10815);if(r)goto S_13109;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1543; -sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_8(",7),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1543; skip1543: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10816);}while(r); +if(!qbevent)break;evnt(10382);}while(r); +} +S_12695:; +if ((-(*__LONG_B== 2 ))||new_error){ +if(qbevent){evnt(10383);if(r)goto S_12695;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1544; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUTORIGINAL),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_16(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1544; skip1544: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10817);}while(r); +if(!qbevent)break;evnt(10383);}while(r); +} +S_12698:; +if ((-(*__LONG_B== 4 ))||new_error){ +if(qbevent){evnt(10384);if(r)goto S_12698;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1545; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUT),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_32(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1545; skip1545: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10818);}while(r); +if(!qbevent)break;evnt(10384);}while(r); +} +S_12701:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(10385);if(r)goto S_12701;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1546; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_64(",8),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1546; skip1546: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10819);}while(r); +if(!qbevent)break;evnt(10385);}while(r); +} +S_12704:; +if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||new_error){ +if(qbevent){evnt(10386);if(r)goto S_12704;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1547; -sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_block(",11),__STRING_SRC),qbs_new_txt_len(",",1)),__STRING_DST),qbs_new_txt_len(",",1)),__STRING_SIZ),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); if (new_error) goto skip1547; skip1547: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10820);}while(r); +if(!qbevent)break;evnt(10386);}while(r); } -S_13116:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(10826);if(r)goto S_13116;} -S_13117:; -if ((-(*__LONG_CONTINUELINEFROM!= 0 ))||new_error){ -if(qbevent){evnt(10827);if(r)goto S_13117;} do{ -goto LABEL_IDE4; -if(!qbevent)break;evnt(10827);}while(r); +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10387);}while(r); } -S_13120:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||new_error){ -if(qbevent){evnt(10829);if(r)goto S_13120;} -S_13121:; +} +} +do{ +*__LONG_E1TYPC=*__LONG_E1TYP; +if(!qbevent)break;evnt(10393);}while(r); +S_12712:; +if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(10394);if(r)goto S_12712;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(10394);}while(r); +} +S_12715:; +if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(10395);if(r)goto S_12715;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(10395);}while(r); +} +S_12718:; +if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(10396);if(r)goto S_12718;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY; +if(!qbevent)break;evnt(10396);}while(r); +} +S_12721:; +if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(10397);if(r)goto S_12721;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(10397);}while(r); +} +S_12724:; +if ((*__LONG_E1TYPC&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10398);if(r)goto S_12724;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT; +if(!qbevent)break;evnt(10398);}while(r); +} +do{ +*__LONG_E2TYPC=*__LONG_E2TYP; +if(!qbevent)break;evnt(10399);}while(r); +S_12728:; +if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(10400);if(r)goto S_12728;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(10400);}while(r); +} +S_12731:; +if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(10401);if(r)goto S_12731;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(10401);}while(r); +} +S_12734:; +if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(10402);if(r)goto S_12734;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY; +if(!qbevent)break;evnt(10402);}while(r); +} +S_12737:; +if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(10403);if(r)goto S_12737;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(10403);}while(r); +} +S_12740:; +if ((*__LONG_E2TYPC&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10404);if(r)goto S_12740;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT; +if(!qbevent)break;evnt(10404);}while(r); +} +S_12743:; +if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||new_error){ +if(qbevent){evnt(10405);if(r)goto S_12743;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10405);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10405);}while(r); +} +do{ +*__LONG_T=*__LONG_E1TYP; +if(!qbevent)break;evnt(10406);}while(r); +S_12748:; +if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(10407);if(r)goto S_12748;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot SWAP bit-length variables",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10407);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10407);}while(r); +} +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(10408);}while(r); +do{ +qbs_set(__STRING_T,FUNC_STR2(__LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10409);}while(r); +S_12754:; +if ((-(*__LONG_B> 64 ))||new_error){ +if(qbevent){evnt(10409);if(r)goto S_12754;} +do{ +qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10409);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1548; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("swap_",5),__STRING_T),qbs_new_txt_len("(&",2)),FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1549= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1550= 0 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1548; +skip1548: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10410);}while(r); +S_12758:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10411);if(r)goto S_12758;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10411);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10412);}while(r); +} +S_12763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||new_error){ +if(qbevent){evnt(10415);if(r)goto S_12763;} +S_12764:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10416);if(r)goto S_12764;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10416);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10416);}while(r); +} +S_12769:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10417);if(r)goto S_12769;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10417);}while(r); +} +S_12772:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(10418);if(r)goto S_12772;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10418);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10418);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1551= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10419);}while(r); +S_12777:; +if(qbevent){evnt(10420);if(r)goto S_12777;} +S_12778:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||new_error){ +if(qbevent){evnt(10421);if(r)goto S_12778;} +do{ +qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1553= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10422);}while(r); +S_12780:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_L,qbs_new_txt_len("0",1)))&(qbs_notequal(__STRING_L,qbs_new_txt_len("1",1)))))||new_error){ +if(qbevent){evnt(10423);if(r)goto S_12780;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected OPTION BASE 0 or 1",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10423);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10423);}while(r); +} +S_12784:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(10424);if(r)goto S_12784;} +do{ +*__INTEGER_OPTIONBASE= 1 ; +if(!qbevent)break;evnt(10424);}while(r); +}else{ +do{ +*__INTEGER_OPTIONBASE= 0 ; +if(!qbevent)break;evnt(10424);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_add(qbs_add(qbs_new_txt_len("Option",6),__STRING1_SP),qbs_new_txt_len("Base",4))),__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10425);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10426);}while(r); +S_12791:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10830);if(r)goto S_13121;} +if(qbevent){evnt(10426);if(r)goto S_12791;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_LAYOUTCOMMENT)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10830);}while(r); +if(!qbevent)break;evnt(10426);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT); +qbs_set(__STRING_LAYOUT,__STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10830);}while(r); +if(!qbevent)break;evnt(10426);}while(r); } -} -S_13127:; -if ((-(*__LONG_LAYOUTOK== 0 ))||new_error){ -if(qbevent){evnt(10833);if(r)goto S_13127;} do{ -qbs_set(__STRING_LAYOUT,__STRING_LAYOUTORIGINAL); +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10427);}while(r); +sc_ec_28_end:; +goto sc_1552_end; +} +S_12797:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8))||qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||new_error){ +if(qbevent){evnt(10428);if(r)goto S_12797;} +S_12798:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8)))&(qbs_equal(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)))))||new_error){ +if(qbevent){evnt(10429);if(r)goto S_12798;} +S_12799:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10430);if(r)goto S_12799;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10834);}while(r); +if(!qbevent)break;evnt(10430);}while(r); }else{ do{ -*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); +qbs_set(__STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10839);}while(r); -S_13131:; -while((*__LONG_I)||new_error){ -if(qbevent){evnt(10840);if(r)goto S_13131;} +if(!qbevent)break;evnt(10430);}while(r); +} +S_12804:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10431);if(r)goto S_12804;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_left(__STRING_LAYOUT,*__LONG_I- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-(*__LONG_I+__STRING_FIX046->len- 1 )))); +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10841);}while(r); +if(!qbevent)break;evnt(10431);}while(r); +} do{ -*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); +qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10842);}while(r); -dl_continue_1550:; -} -dl_exit_1550:; -} -do{ -*__LONG_X=*__LONG_LHSCONTROLLEVEL; -if(!qbevent)break;evnt(10846);}while(r); -S_13137:; -if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||new_error){ -if(qbevent){evnt(10846);if(r)goto S_13137;} -do{ -*__LONG_X=*__INTEGER_CONTROLLEVEL; -if(!qbevent)break;evnt(10846);}while(r); -} -S_13140:; -if ((-(*__LONG_DEFININGTYPE== 2 ))||new_error){ -if(qbevent){evnt(10847);if(r)goto S_13140;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(10847);}while(r); -} -S_13143:; -if ((-(*__LONG_DEFININGTYPE> 0 ))||new_error){ -if(qbevent){evnt(10848);if(r)goto S_13143;} -do{ -*__LONG_DEFININGTYPE= 2 ; -if(!qbevent)break;evnt(10848);}while(r); -} -S_13146:; -if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||new_error){ -if(qbevent){evnt(10849);if(r)goto S_13146;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(10849);}while(r); -} -S_13149:; -if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||new_error){ -if(qbevent){evnt(10850);if(r)goto S_13149;} -do{ -*__LONG_DECLARINGLIBRARY= 2 ; -if(!qbevent)break;evnt(10850);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__LONG_X),__STRING_LAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10851);}while(r); -S_13153:; -if ((*__LONG_LINECONTINUATION)||new_error){ -if(qbevent){evnt(10852);if(r)goto S_13153;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10852);}while(r); -} -do{ -goto LABEL_IDERET4; -if(!qbevent)break;evnt(10854);}while(r); -} -LABEL_SKIPIDE4:; -if(qbevent){evnt(10858);r=0;} -dl_continue_342:; -}while(1); -dl_exit_342:; -S_13159:; -if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ -if(qbevent){evnt(10862);if(r)goto S_13159;} -do{ -*__LONG_LASTLINERETURN= 1 ; -if(!qbevent)break;evnt(10863);}while(r); -do{ -*__LONG_LASTLINE= 1 ; -if(!qbevent)break;evnt(10864);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10865);}while(r); -do{ -goto LABEL_MAINPASSLASTLINE; -if(!qbevent)break;evnt(10866);}while(r); -} -LABEL_IDE5:; -if(qbevent){evnt(10869);r=0;} -do{ -*__LONG_LINENUMBER= 0 ; -if(!qbevent)break;evnt(10870);}while(r); -S_13166:; -if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ -if(qbevent){evnt(10872);if(r)goto S_13166;} -do{ -SUB_CLOSEMAIN(); -if(!qbevent)break;evnt(10872);}while(r); -} -S_13169:; -if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(10874);if(r)goto S_13169;} -do{ -*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR; -if(!qbevent)break;evnt(10874);}while(r); -do{ -qbs_set(__STRING_A,qbs_new_txt_len("TYPE without END TYPE",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10874);}while(r); +if(!qbevent)break;evnt(10432);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10874);}while(r); -} -S_13174:; -if ((*__INTEGER_CONTROLLEVEL)||new_error){ -if(qbevent){evnt(10877);if(r)goto S_13174;} -do{ -*__LONG_X=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(10878);}while(r); -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10879);}while(r); -S_13177:; -if ((-(*__LONG_X== 1 ))||new_error){ -if(qbevent){evnt(10880);if(r)goto S_13177;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10880);}while(r); -} -S_13180:; -if ((-(*__LONG_X== 2 ))||new_error){ -if(qbevent){evnt(10881);if(r)goto S_13180;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10881);}while(r); -} -S_13183:; -if (((-(*__LONG_X== 3 ))|(-(*__LONG_X== 4 )))||new_error){ -if(qbevent){evnt(10882);if(r)goto S_13183;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10882);}while(r); -} -S_13186:; -if ((-(*__LONG_X== 5 ))||new_error){ -if(qbevent){evnt(10883);if(r)goto S_13186;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10883);}while(r); -} -S_13189:; -if ((-(*__LONG_X== 6 ))||new_error){ -if(qbevent){evnt(10884);if(r)goto S_13189;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10884);}while(r); -} -S_13192:; -if (((((-(*__LONG_X>= 10 ))&(-(*__LONG_X<= 17 ))))|(-(*__LONG_X== 18 ))|(-(*__LONG_X== 19 )))||new_error){ -if(qbevent){evnt(10885);if(r)goto S_13192;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10885);}while(r); +if(!qbevent)break;evnt(10432);}while(r); } do{ -*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; -if(!qbevent)break;evnt(10886);}while(r); +*__LONG_OPEX_DESIREDSTATE= -1 ; +if(!qbevent)break;evnt(10435);}while(r); +S_12811:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10436);if(r)goto S_12811;} +S_12812:; +if ((-(*__LONG_OPEX_RECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(10437);if(r)goto S_12812;} +do{ +*__LONG_OPEX_RECOMPILEATTEMPTS=*__LONG_OPEX_RECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(10438);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(10439);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Option",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10443);}while(r); +S_12818:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8))))||new_error){ +if(qbevent){evnt(10444);if(r)goto S_12818;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Explicit",8)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10444);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Explicit",9)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10444);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10445);}while(r); +S_12824:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10445);if(r)goto S_12824;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10445);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10445);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10446);}while(r); +sc_ec_29_end:; +goto sc_1552_end; +} +S_12830:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13))||qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||new_error){ +if(qbevent){evnt(10447);if(r)goto S_12830;} +S_12831:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13)))&(qbs_equal(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)))))||new_error){ +if(qbevent){evnt(10448);if(r)goto S_12831;} +S_12832:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10449);if(r)goto S_12832;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10449);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10449);}while(r); +} +S_12837:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10450);if(r)goto S_12837;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10450);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10451);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10887);}while(r); +if(!qbevent)break;evnt(10451);}while(r); } -S_13198:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(10890);if(r)goto S_13198;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37)); +*__LONG_OPEXARRAY_DESIREDSTATE= -1 ; +if(!qbevent)break;evnt(10454);}while(r); +S_12844:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10455);if(r)goto S_12844;} +S_12845:; +if ((-(*__LONG_OPEXARRAY_RECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(10456);if(r)goto S_12845;} +do{ +*__LONG_OPEXARRAY_RECOMPILEATTEMPTS=*__LONG_OPEXARRAY_RECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(10457);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(10458);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Option",6)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10890);}while(r); +if(!qbevent)break;evnt(10462);}while(r); +S_12851:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13))))||new_error){ +if(qbevent){evnt(10463);if(r)goto S_12851;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ExplicitArray",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10463);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_ExplicitArray",14)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10463);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10464);}while(r); +S_12857:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10464);if(r)goto S_12857;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10464);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10464);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10465);}while(r); +sc_ec_30_end:; +goto sc_1552_end; +} +S_12864:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10467);if(r)goto S_12864;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10467);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10467);}while(r); +} +S_12869:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10468);if(r)goto S_12869;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10468);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Expected OPTION BASE",20),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10469);}while(r); do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(10890);}while(r); +if(!qbevent)break;evnt(10469);}while(r); +sc_1552_end:; } do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 14 ; -if (new_error) goto skip1554; -sub_file_print(tmp_fileno,qbs_new_txt_len("exit(99);",9), 0 , 0 , 1 ); -if (new_error) goto skip1554; -skip1554: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10893);}while(r); +memcpy((((char*)__UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)__UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)__UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)__UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)__UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)__UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)__UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)__UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)__UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)__UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)__UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(10475);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 14 ; -if (new_error) goto skip1555; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1555; -skip1555: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10894);}while(r); +*__LONG_TARGETID=*__LONG_CURRENTID; +if(!qbevent)break;evnt(10477);}while(r); +S_12878:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_stub",8))))||new_error){ +if(qbevent){evnt(10479);if(r)goto S_12878;} do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(10897);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("clear.txt",9)), 4 ,NULL,NULL, 12 ,NULL,0); +qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10898);}while(r); -S_13206:; -fornext_value1557= 1 ; -fornext_finalvalue1557=*__LONG_IDN; -fornext_step1557= 1 ; -if (fornext_step1557<0) fornext_step_negative1557=1; else fornext_step_negative1557=0; -if (new_error) goto fornext_error1557; -goto fornext_entrylabel1557; +if(!qbevent)break;evnt(10479);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10479);}while(r); +} +S_12882:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10481);if(r)goto S_12882;} +S_12883:; +if ((-(*(int16*)(((char*)__UDT_ID2)+(809))== 0 ))||new_error){ +if(qbevent){evnt(10482);if(r)goto S_12883;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB does not require any arguments",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10482);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10482);}while(r); +} +} +do{ +SUB_SETDEPENDENCY(&(pass1557=*(int16*)(((char*)__UDT_ID2)+(546)))); +if(!qbevent)break;evnt(10485);}while(r); +do{ +*__LONG_SEPERATEARGS_ERROR= 0 ; +if(!qbevent)break;evnt(10487);}while(r); +do{ +*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1558= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1559= 2 ),__LONG_N),__LONG_PASSED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10488);}while(r); +S_12891:; +if ((*__LONG_SEPERATEARGS_ERROR)||new_error){ +if(qbevent){evnt(10489);if(r)goto S_12891;} +do{ +qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10489);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10489);}while(r); +} +S_12895:; +fornext_value1561= 1 ; +fornext_finalvalue1561=*__LONG_OPTMAX; +fornext_step1561= 1 ; +if (fornext_step1561<0) fornext_step_negative1561=1; else fornext_step_negative1561=0; +if (new_error) goto fornext_error1561; +goto fornext_entrylabel1561; while(1){ -fornext_value1557=fornext_step1557+(*__LONG_I); -fornext_entrylabel1557: -*__LONG_I=fornext_value1557; -if (fornext_step_negative1557){ -if (fornext_value1557fornext_finalvalue1557) break; +if (fornext_value1561>fornext_finalvalue1561) break; } -fornext_error1557:; -if(qbevent){evnt(10900);if(r)goto S_13206;} -S_13207:; -if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2853)))||new_error){ -if(qbevent){evnt(10902);if(r)goto S_13207;} +fornext_error1561:; +if(qbevent){evnt(10492);if(r)goto S_12895;} do{ -qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2385)),256,1))); +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10903);}while(r); -do{ -goto LABEL_CLEARSTATICSCOPE; -if(!qbevent)break;evnt(10904);}while(r); +if(!qbevent)break;evnt(10492);}while(r); +fornext_continue_1560:; } -do{ -*__LONG_A=qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2385)),256,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10907);}while(r); -S_13212:; -if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||new_error){ -if(qbevent){evnt(10908);if(r)goto S_13212;} -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10909);}while(r); -LABEL_CLEARSTATICSCOPE:; -if(qbevent){evnt(10910);r=0;} -S_13214:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+512)))||new_error){ -if(qbevent){evnt(10912);if(r)goto S_13214;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(10913);}while(r); -S_13216:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10914);if(r)goto S_13216;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10914);}while(r); -} -S_13219:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ -if(qbevent){evnt(10915);if(r)goto S_13219;} -do{ -goto LABEL_CLEARERASERETURNED; -if(!qbevent)break;evnt(10915);}while(r); -} -do{ -*__LONG_CLEARERASERETURN= 1 ; -if(!qbevent)break;evnt(10916);}while(r); -do{ -goto LABEL_CLEARERASE; -if(!qbevent)break;evnt(10916);}while(r); -} -S_13225:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+536)))||new_error){ -if(qbevent){evnt(10919);if(r)goto S_13225;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(10920);}while(r); -S_13227:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10921);if(r)goto S_13227;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10921);}while(r); -} -do{ -qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1558= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10922);}while(r); -S_13231:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10923);if(r)goto S_13231;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10923);}while(r); -} -do{ -*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(10925);}while(r); -S_13235:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10926);if(r)goto S_13235;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_STR2(__LONG_I),__STRING1_SP3),FUNC_STR2(&(pass1559=*__LONG_TYP& 511 ))),__STRING1_SP3),qbs_new_txt_len("0",1)),__STRING1_SP3),qbs_new_txt_len("0",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10927);}while(r); -}else{ -do{ -qbs_set(__STRING_E,FUNC_STR2(__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10929);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1560= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10931);}while(r); -S_13241:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10932);if(r)goto S_13241;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10932);}while(r); -} -S_13244:; -if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(10933);if(r)goto S_13244;} -S_13245:; -if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(10934);if(r)goto S_13245;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1561; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_E),qbs_new_txt_len("->chr),0,",9)),__STRING_BYTES),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1561; -skip1561: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10935);}while(r); -do{ -goto LABEL_CLEARED; -if(!qbevent)break;evnt(10936);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1562; -sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)), 0 , 0 , 1 ); -if (new_error) goto skip1562; -skip1562: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10938);}while(r); -do{ -goto LABEL_CLEARED; -if(!qbevent)break;evnt(10939);}while(r); -} -} -S_13253:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10942);if(r)goto S_13253;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1563; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_E),qbs_new_txt_len(",0,",3)),__STRING_BYTES),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1563; -skip1563: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10943);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1564; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_E),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); -if (new_error) goto skip1564; -skip1564: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10945);}while(r); -} -do{ -goto LABEL_CLEARED; -if(!qbevent)break;evnt(10947);}while(r); -} -} -LABEL_CLEARED:; -if(qbevent){evnt(10952);r=0;} -LABEL_CLEARERASERETURNED:; -if(qbevent){evnt(10953);r=0;} -fornext_continue_1556:; -} -fornext_exit_1556:; -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(10955);}while(r); -S_13263:; -if (( 0 )||new_error){ -if(qbevent){evnt(10957);if(r)goto S_13263;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1565; -sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0 , 0 , 1 ); -if (new_error) goto skip1565; -skip1565: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10958);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1566; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0 , 0 , 0 ); -if (new_error) goto skip1566; -sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1 , 0 , 1 ); -if (new_error) goto skip1566; -skip1566: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10959);}while(r); -} -S_13267:; -fornext_value1568= 1 ; -fornext_finalvalue1568=*__LONG_IDN; -fornext_step1568= 1 ; -if (fornext_step1568<0) fornext_step_negative1568=1; else fornext_step_negative1568=0; -if (new_error) goto fornext_error1568; -goto fornext_entrylabel1568; +fornext_exit_1560:; +S_12898:; +fornext_value1563= 1 ; +fornext_finalvalue1563=*__LONG_OPTMAX+ 1 ; +fornext_step1563= 1 ; +if (fornext_step1563<0) fornext_step_negative1563=1; else fornext_step_negative1563=0; +if (new_error) goto fornext_error1563; +goto fornext_entrylabel1563; while(1){ -fornext_value1568=fornext_step1568+(*__LONG_I); -fornext_entrylabel1568: -*__LONG_I=fornext_value1568; -if (fornext_step_negative1568){ -if (fornext_value1568fornext_finalvalue1568) break; +if (fornext_value1563>fornext_finalvalue1563) break; } -fornext_error1568:; -if(qbevent){evnt(10963);if(r)goto S_13267;} -S_13268:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(10964);if(r)goto S_13268;} +fornext_error1563:; +if(qbevent){evnt(10493);if(r)goto S_12898;} do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(10966);}while(r); -S_13270:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10967);if(r)goto S_13270;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10967);}while(r); +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10493);}while(r); +fornext_continue_1562:; } -S_13273:; +fornext_exit_1562:; +S_12901:; +fornext_value1565= 1 ; +fornext_finalvalue1565=*(int16*)(((char*)__UDT_ID2)+(809)); +fornext_step1565= 1 ; +if (fornext_step1565<0) fornext_step_negative1565=1; else fornext_step_negative1565=0; +if (new_error) goto fornext_error1565; +goto fornext_entrylabel1565; +while(1){ +fornext_value1565=fornext_step1565+(*__LONG_I); +fornext_entrylabel1565: +*__LONG_I=fornext_value1565; +if (fornext_step_negative1565){ +if (fornext_value1565fornext_finalvalue1565) break; +} +fornext_error1565:; +if(qbevent){evnt(10494);if(r)goto S_12901;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10494);}while(r); +fornext_continue_1564:; +} +fornext_exit_1564:; +S_12904:; +fornext_value1567= 1 ; +fornext_finalvalue1567=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; +fornext_step1567= 1 ; +if (fornext_step1567<0) fornext_step_negative1567=1; else fornext_step_negative1567=0; +if (new_error) goto fornext_error1567; +goto fornext_entrylabel1567; +while(1){ +fornext_value1567=fornext_step1567+(*__LONG_I); +fornext_entrylabel1567: +*__LONG_I=fornext_value1567; +if (fornext_step_negative1567){ +if (fornext_value1567fornext_finalvalue1567) break; +} +fornext_error1567:; +if(qbevent){evnt(10495);if(r)goto S_12904;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10495);}while(r); +fornext_continue_1566:; +} +fornext_exit_1566:; +S_12907:; if (( 0 )||new_error){ -if(qbevent){evnt(10969);if(r)goto S_13273;} +if(qbevent){evnt(10499);if(r)goto S_12907;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1569; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0 , 0 , 0 ); -if (new_error) goto skip1569; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)), 0 , 0 , 1 ); -if (new_error) goto skip1569; -skip1569: +if (new_error) goto skip1568; +sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0 , 0 , 1 ); +if (new_error) goto skip1568; +skip1568: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10969);}while(r); +if(!qbevent)break;evnt(10500);}while(r); +S_12909:; +fornext_value1570= 1 ; +fornext_finalvalue1570=*(int16*)(((char*)__UDT_ID2)+(809)); +fornext_step1570= 1 ; +if (fornext_step1570<0) fornext_step_negative1570=1; else fornext_step_negative1570=0; +if (new_error) goto fornext_error1570; +goto fornext_entrylabel1570; +while(1){ +fornext_value1570=fornext_step1570+(*__LONG_I); +fornext_entrylabel1570: +*__LONG_I=fornext_value1570; +if (fornext_step_negative1570){ +if (fornext_value1570fornext_finalvalue1570) break; } -S_13276:; -if ((*(int32*)(((char*)__UDT_ID)+(2855)))||new_error){ -if(qbevent){evnt(10971);if(r)goto S_13276;} -S_13277:; -if (( 0 )||new_error){ -if(qbevent){evnt(10973);if(r)goto S_13277;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1570; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0 , 0 , 1 ); -if (new_error) goto skip1570; -skip1570: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10973);}while(r); -} -do{ -*__LONG_I2=*(int32*)(((char*)__UDT_ID)+(2855)); -if(!qbevent)break;evnt(10975);}while(r); -do{ -*__LONG_X=*(int16*)(((char*)__UDT_ID)+(2859)); -if(!qbevent)break;evnt(10976);}while(r); -S_13282:; -if (( 0 )||new_error){ -if(qbevent){evnt(10978);if(r)goto S_13282;} +fornext_error1570:; +if(qbevent){evnt(10500);if(r)goto S_12909;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1571; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip1571; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); -if (new_error) goto skip1571; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1 , 0 , 1 ); +sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 0 , 0 , 1 ); if (new_error) goto skip1571; skip1571: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10978);}while(r); +if(!qbevent)break;evnt(10500);}while(r); +fornext_continue_1569:; } -S_13285:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(10981);if(r)goto S_13285;} -do{ -sub_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,func_chr( 1 ),1); -if(!qbevent)break;evnt(10982);}while(r); -S_13287:; -if (( 0 )||new_error){ -if(qbevent){evnt(10985);if(r)goto S_13287;} +fornext_exit_1569:; do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1572; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0 , 0 , 0 ); -if (new_error) goto skip1572; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); -if (new_error) goto skip1572; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0 , 0 , 1 ); if (new_error) goto skip1572; skip1572: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10985);}while(r); -} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(10988);}while(r); -} -} -} -fornext_continue_1567:; -} -fornext_exit_1567:; -do{ -*__LONG_UNRESOLVED= 0 ; -if(!qbevent)break;evnt(10994);}while(r); -S_13296:; +if(!qbevent)break;evnt(10501);}while(r); +S_12913:; fornext_value1574= 1 ; -fornext_finalvalue1574=*__LONG_IDN; +fornext_finalvalue1574=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; fornext_step1574= 1 ; if (fornext_step1574<0) fornext_step_negative1574=1; else fornext_step_negative1574=0; if (new_error) goto fornext_error1574; @@ -46267,7129 +45518,10992 @@ if (fornext_value1574fornext_finalvalue1574) break; } fornext_error1574:; -if(qbevent){evnt(10995);if(r)goto S_13296;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(10996);}while(r); -S_13298:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10997);if(r)goto S_13298;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10997);}while(r); -} -S_13301:; -if (( 0 )||new_error){ -if(qbevent){evnt(10999);if(r)goto S_13301;} +if(qbevent){evnt(10501);if(r)goto S_12913;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1575; -sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1 , 1 , 0 ); if (new_error) goto skip1575; -sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])])), 0 , 0 , 1 ); if (new_error) goto skip1575; skip1575: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(10999);}while(r); -} -S_13304:; -if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ -if(qbevent){evnt(11001);if(r)goto S_13304;} -S_13305:; -fornext_value1577= 1 ; -fornext_finalvalue1577=*(int16*)(((char*)__UDT_ID)+(809)); -fornext_step1577= 1 ; -if (fornext_step1577<0) fornext_step_negative1577=1; else fornext_step_negative1577=0; -if (new_error) goto fornext_error1577; -goto fornext_entrylabel1577; -while(1){ -fornext_value1577=fornext_step1577+(*__LONG_I2); -fornext_entrylabel1577: -*__LONG_I2=fornext_value1577; -if (fornext_step_negative1577){ -if (fornext_value1577fornext_finalvalue1577) break; -} -fornext_error1577:; -if(qbevent){evnt(11002);if(r)goto S_13305;} -do{ -*__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11003);}while(r); -S_13307:; -if ((-(*__LONG_T> 0 ))||new_error){ -if(qbevent){evnt(11004);if(r)goto S_13307;} -S_13308:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(11005);if(r)goto S_13308;} -S_13309:; -if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(11006);if(r)goto S_13309;} -S_13310:; -if (( 0 )||new_error){ -if(qbevent){evnt(11008);if(r)goto S_13310;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1578; -sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0 , 0 , 0 ); -if (new_error) goto skip1578; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); -if (new_error) goto skip1578; -sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0 , 0 , 0 ); -if (new_error) goto skip1578; -sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+(809)))), 1 , 0 , 1 ); -if (new_error) goto skip1578; -skip1578: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11008);}while(r); -} -do{ -*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),*__LONG_I2, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11010);}while(r); -do{ -*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),*__LONG_I2, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11011);}while(r); -S_13315:; -if (( 0 )||new_error){ -if(qbevent){evnt(11013);if(r)goto S_13315;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1579; -sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0 , 0 , 0 ); -if (new_error) goto skip1579; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1 , 0 , 1 ); -if (new_error) goto skip1579; -skip1579: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11013);}while(r); -} -S_13318:; -if (( 0 )||new_error){ -if(qbevent){evnt(11014);if(r)goto S_13318;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1580; -sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0 , 0 , 0 ); -if (new_error) goto skip1580; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1 , 0 , 1 ); -if (new_error) goto skip1580; -skip1580: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11014);}while(r); -} -S_13321:; -if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||new_error){ -if(qbevent){evnt(11016);if(r)goto S_13321;} -S_13322:; -if (( 0 )||new_error){ -if(qbevent){evnt(11018);if(r)goto S_13322;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1581; -sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0 , 0 , 1 ); -if (new_error) goto skip1581; -skip1581: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11018);}while(r); -} -do{ -*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ; -if(!qbevent)break;evnt(11020);}while(r); -do{ -*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ; -if(!qbevent)break;evnt(11021);}while(r); -do{ -tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I; -if(!qbevent)break;evnt(11022);}while(r); -do{ -tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(11023);}while(r); -do{ -tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ; -if(!qbevent)break;evnt(11024);}while(r); -} -} -} -} -fornext_continue_1576:; -} -fornext_exit_1576:; -} +if(!qbevent)break;evnt(10501);}while(r); fornext_continue_1573:; } fornext_exit_1573:; -S_13337:; -if ((-(*__LONG_UNRESOLVED> 0 ))||new_error){ -if(qbevent){evnt(11034);if(r)goto S_13337;} -S_13338:; -if ((-(*__LONG_LASTUNRESOLVED== -1 ))||new_error){ -if(qbevent){evnt(11035);if(r)goto S_13338;} +} +S_12917:; +if ((*__LONG_USECALL)||new_error){ +if(qbevent){evnt(10513);if(r)goto S_12917;} +S_12918:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(10514);if(r)goto S_12918;} +S_12919:; +if ((-(*__LONG_USECALL== 1 ))||new_error){ +if(qbevent){evnt(10515);if(r)goto S_12919;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10515);}while(r); +} +S_12922:; +if ((-(*__LONG_USECALL== 2 ))||new_error){ +if(qbevent){evnt(10516);if(r)goto S_12922;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10516);}while(r); +} +}else{ +S_12926:; +if ((-(*__LONG_USECALL== 1 ))||new_error){ +if(qbevent){evnt(10518);if(r)goto S_12926;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP2),qbs_new_txt_len("(",1)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10518);}while(r); +} +S_12929:; +if ((-(*__LONG_USECALL== 2 ))||new_error){ +if(qbevent){evnt(10519);if(r)goto S_12929;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Call",4)),__STRING1_SP),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10519);}while(r); +} +} +}else{ +S_12934:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(10522);if(r)goto S_12934;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10523);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10525);}while(r); +} +} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1)),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10529);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 0 ; +if(!qbevent)break;evnt(10530);}while(r); +do{ +*__LONG_FIELDCALL= 0 ; +if(!qbevent)break;evnt(10532);}while(r); +S_12943:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_get",7)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_put",7)))))||new_error){ +if(qbevent){evnt(10534);if(r)goto S_12943;} +S_12944:; +if ((*__LONG_PASSED& 2 )||new_error){ +if(qbevent){evnt(10535);if(r)goto S_12944;} +do{ +*__LONG_PASSED=*__LONG_PASSED- 2 ; +if(!qbevent)break;evnt(10537);}while(r); +}else{ +S_12947:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_get",7))))||new_error){ +if(qbevent){evnt(10540);if(r)goto S_12947;} +do{ +*__LONG_FIELDCALL= 1 ; +if(!qbevent)break;evnt(10541);}while(r); +do{ +qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10542);}while(r); +}else{ +do{ +*__LONG_FIELDCALL= 2 ; +if(!qbevent)break;evnt(10544);}while(r); +do{ +qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10545);}while(r); +} +} +} +S_12956:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_key",7)))))||new_error){ +if(qbevent){evnt(10550);if(r)goto S_12956;} +S_12957:; +if ((-(*__LONG_USECALL== 0 ))||new_error){ +if(qbevent){evnt(10551);if(r)goto S_12957;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10552);}while(r); +} +} +S_12961:; +fornext_value1578= 1 ; +fornext_finalvalue1578=*(int16*)(((char*)__UDT_ID2)+(809)); +fornext_step1578= 1 ; +if (fornext_step1578<0) fornext_step_negative1578=1; else fornext_step_negative1578=0; +if (new_error) goto fornext_error1578; +goto fornext_entrylabel1578; +while(1){ +fornext_value1578=fornext_step1578+(*__LONG_I); +fornext_entrylabel1578: +*__LONG_I=fornext_value1578; +if (fornext_step_negative1578){ +if (fornext_value1578fornext_finalvalue1578) break; +} +fornext_error1578:; +if(qbevent){evnt(10556);if(r)goto S_12961;} +do{ +*__LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(813)),400,1),( -3 )+(*__LONG_I* 4 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10557);}while(r); +do{ +*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2647)),100,1),*__LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10558);}while(r); +do{ +*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10559);}while(r); +do{ +*__LONG_ADDLAYOUT= 1 ; +if(!qbevent)break;evnt(10561);}while(r); +do{ +*__LONG_CONVERTSPACING= 0 ; +if(!qbevent)break;evnt(10562);}while(r); +do{ +qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10563);}while(r); +S_12968:; +while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ +if(qbevent){evnt(10564);if(r)goto S_12968;} +do{ +*__LONG_X=qbs_asc(__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10565);}while(r); +S_12970:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(10566);if(r)goto S_12970;} +do{ +*__LONG_CONVERTSPACING= 0 ; +if(!qbevent)break;evnt(10567);}while(r); +do{ +qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10568);}while(r); +do{ +qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10569);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(10571);}while(r); +do{ +*__LONG_AN= 0 ; +if(!qbevent)break;evnt(10572);}while(r); +do{ +qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10573);}while(r); +S_12977:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ +if(qbevent){evnt(10574);if(r)goto S_12977;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10574);}while(r); +} +S_12980:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ +if(qbevent){evnt(10575);if(r)goto S_12980;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(10576);}while(r); +S_12982:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(10577);if(r)goto S_12982;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(10577);}while(r); +} +}else{ +S_12986:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(10579);if(r)goto S_12986;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(10579);}while(r); +} +} +do{ +*__LONG_S1=*__LONG_S; +if(!qbevent)break;evnt(10581);}while(r); +S_12991:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(10583);if(r)goto S_12991;} +do{ +*__LONG_CONVERTSPACING= 1 ; +if(!qbevent)break;evnt(10583);}while(r); +} +S_12994:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||new_error){ +if(qbevent){evnt(10586);if(r)goto S_12994;} +} +S_12996:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||new_error){ +if(qbevent){evnt(10610);if(r)goto S_12996;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10614);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10615);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10616);}while(r); +} +S_13001:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(10619);if(r)goto S_13001;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10620);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10621);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10622);}while(r); +} +S_13006:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10625);if(r)goto S_13006;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10626);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10627);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10628);}while(r); +} +S_13011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(10631);if(r)goto S_13011;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10631);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10631);}while(r); +} +S_13015:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(10634);if(r)goto S_13015;} +S_13016:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ +if(qbevent){evnt(10635);if(r)goto S_13016;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10635);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10635);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10636);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10636);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10640);}while(r); +LABEL_CUSTOMLAYCHAR:; +if(qbevent){evnt(10646);r=0;} +S_13024:; +if ((-(*__LONG_S== 0 ))||new_error){ +if(qbevent){evnt(10647);if(r)goto S_13024;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(10647);}while(r); +} +S_13027:; +if ((-(*__LONG_S!=*__LONG_S1))||new_error){ +if(qbevent){evnt(10648);if(r)goto S_13027;} +S_13028:; +if ((*__LONG_S1)||new_error){ +if(qbevent){evnt(10649);if(r)goto S_13028;} +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10649);}while(r); +} +S_13031:; +if ((-(*__LONG_S== 1 ))||new_error){ +if(qbevent){evnt(10650);if(r)goto S_13031;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10650);}while(r); +} +S_13034:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(10651);if(r)goto S_13034;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10651);}while(r); +} +} +S_13038:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_timer",9)))|(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_key",7)))))&(-(*__LONG_I==*(int16*)(((char*)__UDT_ID2)+(809))))))||new_error){ +if(qbevent){evnt(10654);if(r)goto S_13038;} +S_13039:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||new_error){ +if(qbevent){evnt(10655);if(r)goto S_13039;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10656);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10660);}while(r); +}else{ +do{ +*__LONG_ADDLAYOUT= 0 ; +if(!qbevent)break;evnt(10663);}while(r); +do{ +qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10664);}while(r); +} +do{ +*__LONG_ADDEDLAYOUT= 0 ; +if(!qbevent)break;evnt(10666);}while(r); +dl_continue_1580:; +} +dl_exit_1580:; +S_13050:; +if ((-(*__LONG_TARGETTYP== -3 ))||new_error){ +if(qbevent){evnt(10675);if(r)goto S_13050;} +S_13051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||new_error){ +if(qbevent){evnt(10676);if(r)goto S_13051;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10676);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10676);}while(r); +} +do{ +qbs_set(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10678);}while(r); +S_13056:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||new_error){ +if(qbevent){evnt(10680);if(r)goto S_13056;} +do{ +qbs_set(__STRING_TRY_STRING,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10681);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10682);}while(r); +S_13059:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10683);if(r)goto S_13059;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10683);}while(r); +} +S_13062:; +do{ +if(qbevent){evnt(10684);if(r)goto S_13062;} +S_13063:; +if ((*__LONG_TRY)||new_error){ +if(qbevent){evnt(10685);if(r)goto S_13063;} +S_13064:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(10686);if(r)goto S_13064;} +S_13065:; +if ((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10687);if(r)goto S_13065;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10688);}while(r); +do{ +goto dl_exit_1585; +if(!qbevent)break;evnt(10689);}while(r); +} +} +S_13070:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(10693);if(r)goto S_13070;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(10693);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10693);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(10693);}while(r); +} +S_13076:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10694);if(r)goto S_13076;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10694);}while(r); +} +} +S_13080:; +if ((-(*__LONG_TRY== 0 ))||new_error){ +if(qbevent){evnt(10696);if(r)goto S_13080;} +S_13081:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||new_error){ +if(qbevent){evnt(10697);if(r)goto S_13081;} +S_13082:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10698);if(r)goto S_13082;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10698);}while(r); +} +do{ +*__LONG_A=qbs_asc(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10699);}while(r); +S_13086:; +if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||new_error){ +if(qbevent){evnt(10700);if(r)goto S_13086;} +do{ +*__LONG_A=*__LONG_A- 32 ; +if(!qbevent)break;evnt(10700);}while(r); +} +S_13089:; +if ((-(*__LONG_A== 95 ))||new_error){ +if(qbevent){evnt(10701);if(r)goto S_13089;} +do{ +*__LONG_A= 91 ; +if(!qbevent)break;evnt(10701);}while(r); +} +do{ +*__LONG_A=*__LONG_A- 64 ; +if(!qbevent)break;evnt(10702);}while(r); +S_13093:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))->len))||new_error){ +if(qbevent){evnt(10703);if(r)goto S_13093;} +do{ +qbs_set(__STRING_TRY_STRING,qbs_add(__STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*__LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10703);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10703);}while(r); +} +S_13097:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10704);if(r)goto S_13097;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10704);}while(r); +} +} +} +S_13102:; +dl_continue_1585:; +}while((!(-(*__LONG_TRY== 0 )))&&(!new_error)); +dl_exit_1585:; +if(qbevent){evnt(10707);if(r)goto S_13102;} +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10712);}while(r); +S_13105:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10713);if(r)goto S_13105;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10713);}while(r); +} +S_13108:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10714);if(r)goto S_13108;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10714);}while(r); +} +S_13111:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10715);if(r)goto S_13111;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10715);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10715);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1588= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10716);}while(r); +S_13116:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10717);if(r)goto S_13116;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10717);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10718);}while(r); +} +S_13121:; +if ((-(*__LONG_TARGETTYP== -2 ))||new_error){ +if(qbevent){evnt(10722);if(r)goto S_13121;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10723);}while(r); +S_13123:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10724);if(r)goto S_13123;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10724);}while(r); +} +S_13126:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10725);if(r)goto S_13126;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10725);}while(r); +} +S_13129:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10726);if(r)goto S_13129;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10726);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10726);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1590= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10727);}while(r); +S_13134:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10728);if(r)goto S_13134;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10728);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10729);}while(r); +} +S_13139:; +if ((-(*__LONG_TARGETTYP== -4 ))||new_error){ +if(qbevent){evnt(10732);if(r)goto S_13139;} +S_13140:; +if ((*__LONG_FIELDCALL)||new_error){ +if(qbevent){evnt(10734);if(r)goto S_13140;} +do{ +*__LONG_I=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; +if(!qbevent)break;evnt(10735);}while(r); +do{ +goto fornext_exit_1577; +if(!qbevent)break;evnt(10736);}while(r); +} +S_13144:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||new_error){ +if(qbevent){evnt(10739);if(r)goto S_13144;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10739);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10739);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10740);}while(r); +S_13149:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10741);if(r)goto S_13149;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10741);}while(r); +} +S_13152:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10742);if(r)goto S_13152;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10742);}while(r); +} +S_13155:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10743);if(r)goto S_13155;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10743);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10743);}while(r); +} +S_13159:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3)))|(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PUT",3)))))||new_error){ +if(qbevent){evnt(10746);if(r)goto S_13159;} +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10747);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10748);}while(r); +S_13162:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10749);if(r)goto S_13162;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10749);}while(r); +} +S_13165:; +if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10750);if(r)goto S_13165;} +S_13166:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(10751);if(r)goto S_13166;} +do{ +qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10753);}while(r); +S_13168:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||new_error){ +if(qbevent){evnt(10755);if(r)goto S_13168;} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_get2",8),__STRING_SUBCALL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10756);}while(r); +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1593= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10757);}while(r); +S_13171:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10758);if(r)goto S_13171;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10758);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10759);}while(r); +}else{ +do{ +qbs_set(__STRING_SUBCALL,qbs_add(qbs_new_txt_len("sub_put2",8),__STRING_SUBCALL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10761);}while(r); +} +} +} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10766);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1594= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10769);}while(r); +S_13183:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10770);if(r)goto S_13183;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10770);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10771);}while(r); +} +S_13188:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])),qbs_new_txt_len("N-LL",4))))||new_error){ +if(qbevent){evnt(10774);if(r)goto S_13188;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10775);}while(r); +}else{ +do{ +qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10778);}while(r); +S_13192:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10779);if(r)goto S_13192;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10779);}while(r); +} +S_13195:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10780);if(r)goto S_13195;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_left(__STRING_L,__STRING_L->len- 1 ),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10780);}while(r); +} +S_13198:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10781);if(r)goto S_13198;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10781);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10781);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10783);}while(r); +S_13203:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10784);if(r)goto S_13203;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10784);}while(r); +} +S_13206:; +if ((*__LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(10786);if(r)goto S_13206;} +S_13207:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ +if(qbevent){evnt(10787);if(r)goto S_13207;} +S_13208:; +if ((-(*(int16*)(((char*)__UDT_ID2)+(548))== 0 ))||new_error){ +if(qbevent){evnt(10788);if(r)goto S_13208;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10788);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10788);}while(r); +} +} +} +S_13214:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID2)+(550)),256,1)),qbs_new_txt_len("sub_paint",9))))||new_error){ +if(qbevent){evnt(10792);if(r)goto S_13214;} +S_13215:; +if ((-(*__LONG_I== 3 ))||new_error){ +if(qbevent){evnt(10793);if(r)goto S_13215;} +S_13216:; +if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10794);if(r)goto S_13216;} +do{ +*__LONG_TARGETTYP=*__LONG_ISSTRING; +if(!qbevent)break;evnt(10795);}while(r); +} +} +} +S_13221:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5])])), 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(10800);if(r)goto S_13221;} +do{ +*__LONG_DEREFERENCE= 1 ; +if(!qbevent)break;evnt(10800);}while(r); +}else{ +do{ +*__LONG_DEREFERENCE= 0 ; +if(!qbevent)break;evnt(10800);}while(r); +} +S_13226:; +if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(10803);if(r)goto S_13226;} +S_13227:; +if ((-(*__LONG_DEREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(10804);if(r)goto S_13227;} +S_13228:; +if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(10807);if(r)goto S_13228;} +S_13229:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(10808);if(r)goto S_13229;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10808);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10808);}while(r); +} +S_13233:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(10809);if(r)goto S_13233;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10809);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10809);}while(r); +} +S_13237:; +if (( 0 )||new_error){ +if(qbevent){evnt(10810);if(r)goto S_13237;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1596; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:[",21),__STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip1596; +skip1596: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10810);}while(r); +} +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP; +if(!qbevent)break;evnt(10813);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP; +if(!qbevent)break;evnt(10813);}while(r); +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(10814);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(10815);}while(r); +S_13244:; +if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(10816);if(r)goto S_13244;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10816);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10816);}while(r); +} +S_13248:; +if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10819);if(r)goto S_13248;} +S_13249:; +if (( 0 )||new_error){ +if(qbevent){evnt(10820);if(r)goto S_13249;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1597; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub:array reference:udt reference:[",35),__STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip1597; +skip1597: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10820);}while(r); +} +do{ +*__LONG_UDTREFID=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10822);}while(r); +do{ +SUB_GETID(__LONG_UDTREFID); +if(!qbevent)break;evnt(10823);}while(r); +S_13254:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10824);if(r)goto S_13254;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10824);}while(r); +} +do{ +*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10825);}while(r); +do{ +*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10826);}while(r); +do{ +*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10827);}while(r); +do{ +*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10828);}while(r); +do{ +*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10829);}while(r); +do{ +qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10830);}while(r); +S_13263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ +if(qbevent){evnt(10832);if(r)goto S_13263;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10832);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10832);}while(r); +} +}else{ +S_13268:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(__STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(10834);if(r)goto S_13268;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10834);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10834);}while(r); +} +} +do{ +*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10837);}while(r); +do{ +SUB_GETID(__LONG_IDNUM); +if(!qbevent)break;evnt(10838);}while(r); +S_13275:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10839);if(r)goto S_13275;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10839);}while(r); +} +S_13278:; +if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(10841);if(r)goto S_13278;} +do{ +*__LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(1213)),400,1),(*__LONG_I* 4 )-( 4 )+( 1 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10842);}while(r); +S_13280:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*__LONG_TARGETTYPSIZE))||new_error){ +if(qbevent){evnt(10843);if(r)goto S_13280;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Incorrect array type passed to sub",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10843);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10843);}while(r); +} +} +S_13285:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(10846);if(r)goto S_13285;} +S_13286:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(10847);if(r)goto S_13286;} +do{ +tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(10848);}while(r); do{ *__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11037);}while(r); +if(!qbevent)break;evnt(10849);}while(r); +} +} +S_13291:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ +if(qbevent){evnt(10853);if(r)goto S_13291;} +S_13292:; +if ((-(*__LONG_NELEREQ== 0 ))||new_error){ +if(qbevent){evnt(10859);if(r)goto S_13292;} +S_13293:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 ))||new_error){ +if(qbevent){evnt(10863);if(r)goto S_13293;} +do{ +*__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(10865);}while(r); +do{ +sub_mid(qbs_new_fixed((((uint8*)__UDT_ID2)+(2747)),100,1),*__LONG_I, 1 ,func_chr(*__LONG_NELEREQ),1); +if(!qbevent)break;evnt(10866);}while(r); +} +do{ +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID2)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID2)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID2)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID2)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID2)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID2)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID2)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID2)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID2)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID2)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID2)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID2)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID2)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID2)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID2)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID2)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID2)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID2)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID2)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID2)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID2)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID2)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID2)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID2)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID2)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID2)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID2)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID2)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID2)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID2)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID2)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID2)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID2)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID2)+(0)+ 2861)); +if(!qbevent)break;evnt(10872);}while(r); +}else{ +S_13299:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*__LONG_NELEREQ))||new_error){ +if(qbevent){evnt(10879);if(r)goto S_13299;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10879);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10879);}while(r); +} +} +} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1599= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10885);}while(r); +S_13306:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10886);if(r)goto S_13306;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10886);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10887);}while(r); +} +S_13311:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10894);if(r)goto S_13311;} +S_13312:; +if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(10895);if(r)goto S_13312;} +do{ +*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10896);}while(r); +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP; +if(!qbevent)break;evnt(10898);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP; +if(!qbevent)break;evnt(10898);}while(r); +do{ +*__LONG_ARR= 0 ; +if(!qbevent)break;evnt(10901);}while(r); +S_13317:; +if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(10901);if(r)goto S_13317;} +do{ +*__LONG_ARR= 1 ; +if(!qbevent)break;evnt(10901);}while(r); +} +do{ +*__LONG_PASSUDTELEMENT= 0 ; +if(!qbevent)break;evnt(10902);}while(r); +S_13321:; +if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ +if(qbevent){evnt(10902);if(r)goto S_13321;} +do{ +*__LONG_PASSUDTELEMENT= 1 ; +if(!qbevent)break;evnt(10902);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT; +if(!qbevent)break;evnt(10902);}while(r); +} +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(10905);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(10906);}while(r); +S_13327:; +if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(10909);if(r)goto S_13327;} +S_13328:; +if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10911);if(r)goto S_13328;} +do{ +*__LONG_UDTREFID=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10915);}while(r); +do{ +SUB_GETID(__LONG_UDTREFID); +if(!qbevent)break;evnt(10916);}while(r); +S_13331:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10917);if(r)goto S_13331;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10917);}while(r); +} +do{ +*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10918);}while(r); +do{ +*__LONG_UDTREFI2=func_instr(*__LONG_UDTREFI+ 1 ,__STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10919);}while(r); +do{ +*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10920);}while(r); +do{ +*__LONG_UDTREFI3=func_instr(*__LONG_UDTREFI2+ 1 ,__STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10921);}while(r); +do{ +*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10922);}while(r); +do{ +qbs_set(__STRING_O,qbs_right(__STRING_E,__STRING_E->len-*__LONG_UDTREFI3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10923);}while(r); S_13340:; -if (( 0 )||new_error){ -if(qbevent){evnt(11038);if(r)goto S_13340;} +if ((*__LONG_ARR)||new_error){ +if(qbevent){evnt(10926);if(r)goto S_13340;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1582; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0 , 0 , 1 ); -if (new_error) goto skip1582; -skip1582: +qbs_set(__STRING_N,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("[0]",3))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11039);}while(r); +if(!qbevent)break;evnt(10927);}while(r); +}else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1583; -sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0 , 0 , 0 ); -if (new_error) goto skip1583; -sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1 , 0 , 1 ); -if (new_error) goto skip1583; -skip1583: +qbs_set(__STRING_N,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; +if(!qbevent)break;evnt(10929);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),__STRING_N),qbs_new_txt_len(")) + (",6)),__STRING_O),qbs_new_txt_len(") )",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10932);}while(r); +S_13346:; +if ((*__LONG_PASSUDTELEMENT)||new_error){ +if(qbevent){evnt(10935);if(r)goto S_13346;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1601=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10935);}while(r); +} +S_13349:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10936);if(r)goto S_13349;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10936);}while(r); +} +}else{ +S_13353:; +if ((*__LONG_ARR)||new_error){ +if(qbevent){evnt(10940);if(r)goto S_13353;} +S_13354:; +if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(10941);if(r)goto S_13354;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass BIT array offsets",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10941);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10941);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1602= 0 ))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10942);}while(r); +S_13359:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10943);if(r)goto S_13359;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10943);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1603= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10945);}while(r); +S_13364:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10946);if(r)goto S_13364;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10946);}while(r); +} +} +S_13368:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ +if(qbevent){evnt(10950);if(r)goto S_13368;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1604=*__LONG_TARGETTYP2+(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10951);}while(r); +S_13370:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10952);if(r)goto S_13370;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10952);}while(r); +} +} +} +S_13375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(10957);if(r)goto S_13375;} +S_13376:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(10958);if(r)goto S_13376;} +do{ +tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(10959);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(10960);}while(r); +} +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10964);}while(r); +} +} +}else{ +S_13385:; +if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(10969);if(r)goto S_13385;} +do{ +*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10970);}while(r); +S_13387:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(10971);if(r)goto S_13387;} +S_13388:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(10972);if(r)goto S_13388;} +do{ +tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(10973);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(10974);}while(r); +} +} +} +} +} +} +S_13397:; +if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(10986);if(r)goto S_13397;} +S_13398:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10987);if(r)goto S_13398;} +do{ +*__LONG_NTH=*__LONG_I; +if(!qbevent)break;evnt(10988);}while(r); +S_13400:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(10989);if(r)goto S_13400;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("String required for sub",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10989);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10989);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a string",31))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10990);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10990);}while(r); +} +} +S_13408:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10993);if(r)goto S_13408;} +S_13409:; +if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(10994);if(r)goto S_13409;} +do{ +*__LONG_NTH=*__LONG_I; +if(!qbevent)break;evnt(10995);}while(r); +S_13411:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(10996);if(r)goto S_13411;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10996);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10996);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires a number",31))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10997);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10997);}while(r); +} +} +S_13419:; +if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(11002);if(r)goto S_13419;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1605= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11003);}while(r); +S_13421:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11004);if(r)goto S_13421;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11004);}while(r); +} +} +S_13425:; +if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(11007);if(r)goto S_13425;} +S_13426:; +if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11008);if(r)goto S_13426;} +do{ +*__LONG_NTH=*__LONG_I; +if(!qbevent)break;evnt(11009);}while(r); +S_13428:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_QB64PREFIX_SET&(qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1),qbs_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(11010);if(r)goto S_13428;} +do{ +qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11011);}while(r); +}else{ +do{ +qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*__LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11013);}while(r); +} +S_13433:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(11015);if(r)goto S_13433;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),__STRING_X),qbs_new_txt_len(" required for sub",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11015);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11015);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_STR_NTH(__LONG_NTH),qbs_new_txt_len(" sub argument requires TYPE ",28)),__STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11016);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11016);}while(r); +} +}else{ +S_13441:; +if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11019);if(r)goto S_13441;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11019);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11019);}while(r); +} +} +S_13446:; +if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(11023);if(r)goto S_13446;} +S_13447:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(11024);if(r)goto S_13447;} +do{ +*__LONG_BITS=*__LONG_TARGETTYP& 511 ; +if(!qbevent)break;evnt(11026);}while(r); +S_13449:; +if ((-(*__LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(11027);if(r)goto S_13449;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11027);}while(r); +} +S_13452:; +if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||new_error){ +if(qbevent){evnt(11028);if(r)goto S_13452;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11028);}while(r); +} +S_13455:; +if ((-(*__LONG_BITS>= 32 ))||new_error){ +if(qbevent){evnt(11029);if(r)goto S_13455;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),__STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11029);}while(r); +} +} +} +S_13460:; +if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(11033);if(r)goto S_13460;} +S_13461:; +if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(11034);if(r)goto S_13461;} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(11034);}while(r); +} +do{ +qbs_set(__STRING_T,FUNC_TYP2CTYP(__LONG_TARGETTYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11035);}while(r); +S_13465:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11036);if(r)goto S_13465;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11036);}while(r); +} +do{ +qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1606=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11037);}while(r); +S_13469:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_I, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(11039);if(r)goto S_13469;} +do{ +*__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/ 8 ; if(!qbevent)break;evnt(11040);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1584; -sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0 , 0 , 0 ); -if (new_error) goto skip1584; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1 , 0 , 1 ); -if (new_error) goto skip1584; -skip1584: +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip1607; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_T,qbs_new_txt_len(" *",2)),__STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip1607; +skip1607: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11041);}while(r); -} -}else{ -S_13346:; -if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||new_error){ -if(qbevent){evnt(11045);if(r)goto S_13346;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11046);}while(r); -S_13348:; -if (( 0 )||new_error){ -if(qbevent){evnt(11047);if(r)goto S_13348;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1585; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (not first time)",54), 0 , 0 , 1 ); -if (new_error) goto skip1585; -skip1585: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1608; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),__STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip1608; +skip1608: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11048);}while(r); +if(!qbevent)break;evnt(11042);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1586; -sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0 , 0 , 0 ); -if (new_error) goto skip1586; -sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1 , 0 , 1 ); -if (new_error) goto skip1586; -skip1586: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1609; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(__LONG_BYTESREQ)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1609; +skip1609: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11043);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1610; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(__STRING_V,qbs_new_txt_len("=(",2)),__STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip1610; +skip1610: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11044);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip1611; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11077);}while(r); +} +S_13501:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(11080);if(r)goto S_13501;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11080);}while(r); +} +} +S_13505:; +if ((-(*__LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(11084);if(r)goto S_13505;} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11084);}while(r); +} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11085);}while(r); +fornext_continue_1577:; +} +fornext_exit_1577:; +do{ +qbs_set(__STRING_X,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11089);}while(r); +S_13511:; +while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ +if(qbevent){evnt(11090);if(r)goto S_13511;} +do{ +*__LONG_X=qbs_asc(__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11091);}while(r); +S_13513:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(11092);if(r)goto S_13513;} +do{ +qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11093);}while(r); +do{ +qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len-*__LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11094);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(11096);}while(r); +do{ +*__LONG_AN= 0 ; +if(!qbevent)break;evnt(11097);}while(r); +do{ +qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11098);}while(r); +S_13519:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ +if(qbevent){evnt(11099);if(r)goto S_13519;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11099);}while(r); +} +S_13522:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ +if(qbevent){evnt(11100);if(r)goto S_13522;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(11101);}while(r); +S_13524:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(__STRING_L, 2 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(11102);if(r)goto S_13524;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(11102);}while(r); +} +}else{ +S_13528:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X3))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(11105);if(r)goto S_13528;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(11105);}while(r); +} +} +do{ +*__LONG_S1=*__LONG_S; +if(!qbevent)break;evnt(11108);}while(r); +S_13533:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_AN== 1 ))|(-(*__LONG_ADDEDLAYOUT== 1 ))))&(-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(__STRING_X2))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]!= 0 ))))||new_error){ +if(qbevent){evnt(11110);if(r)goto S_13533;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11111);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11112);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11113);}while(r); +} +S_13538:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(11116);if(r)goto S_13538;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11117);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11118);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11119);}while(r); +} +S_13543:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(11122);if(r)goto S_13543;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11123);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11124);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11125);}while(r); +} +S_13548:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(11128);if(r)goto S_13548;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11128);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11128);}while(r); +} +S_13552:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(11130);if(r)goto S_13552;} +S_13553:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ +if(qbevent){evnt(11131);if(r)goto S_13553;} +do{ +qbs_set(__STRING_X2,qbs_add(FUNC_SCASE(qbs_new_txt_len("Step",4)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11131);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11131);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11132);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11132);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11136);}while(r); +LABEL_CUSTOMLAYCHAR2:; +if(qbevent){evnt(11137);r=0;} +S_13561:; +if ((-(*__LONG_S== 0 ))||new_error){ +if(qbevent){evnt(11138);if(r)goto S_13561;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(11138);}while(r); +} +S_13564:; +if ((-(*__LONG_S!=*__LONG_S1))||new_error){ +if(qbevent){evnt(11139);if(r)goto S_13564;} +S_13565:; +if ((*__LONG_S1)||new_error){ +if(qbevent){evnt(11140);if(r)goto S_13565;} +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11140);}while(r); +} +S_13568:; +if ((-(*__LONG_S== 1 ))||new_error){ +if(qbevent){evnt(11141);if(r)goto S_13568;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11141);}while(r); +} +S_13571:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(11142);if(r)goto S_13571;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11142);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11144);}while(r); +}else{ +do{ +*__LONG_ADDLAYOUT= 0 ; +if(!qbevent)break;evnt(11147);}while(r); +do{ +qbs_set(__STRING_X,qbs_right(__STRING_X,__STRING_X->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11148);}while(r); +} +do{ +*__LONG_ADDEDLAYOUT= 0 ; +if(!qbevent)break;evnt(11150);}while(r); +dl_continue_1615:; +} +dl_exit_1615:; +S_13582:; +if ((*__LONG_PASSEDNEEDED)||new_error){ +if(qbevent){evnt(11158);if(r)goto S_13582;} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_PASSED))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11159);}while(r); +} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11161);}while(r); +S_13586:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||new_error){ +if(qbevent){evnt(11163);if(r)goto S_13586;} +S_13587:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11164);if(r)goto S_13587;} +do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1587; -sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0 , 0 , 0 ); -if (new_error) goto skip1587; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1 , 0 , 1 ); -if (new_error) goto skip1587; -skip1587: +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1619; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102), 0 , 0 , 1 ); +if (new_error) goto skip1619; +skip1619: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11050);}while(r); +if(!qbevent)break;evnt(11165);}while(r); +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1620; +sub_file_print(tmp_fileno,__STRING_SUBCALL, 0 , 0 , 1 ); +if (new_error) goto skip1620; +skip1620: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11169);}while(r); +S_13592:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||new_error){ +if(qbevent){evnt(11171);if(r)goto S_13592;} +S_13593:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11172);if(r)goto S_13593;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1621; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102), 0 , 0 , 1 ); +if (new_error) goto skip1621; +skip1621: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11173);}while(r); +} +} +do{ +qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11177);}while(r); +S_13598:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(11178);if(r)goto S_13598;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1622; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip1622; +skip1622: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11178);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(11180);}while(r); +do{ +qbs_set(__STRING_X,qbs_right(__STRING_L, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11181);}while(r); +S_13603:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||new_error){ +if(qbevent){evnt(11181);if(r)goto S_13603;} +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11181);}while(r); +} +S_13606:; +if ((-(*__LONG_USECALL== 1 ))||new_error){ +if(qbevent){evnt(11182);if(r)goto S_13606;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11182);}while(r); +} +S_13609:; +if (( 0 )||new_error){ +if(qbevent){evnt(11183);if(r)goto S_13609;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1624; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("SUB layout:[",12),__STRING_L),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip1624; +skip1624: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11183);}while(r); +} +S_13612:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(11184);if(r)goto S_13612;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11184);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11184);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(11185);}while(r); +} +S_13619:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11190);if(r)goto S_13619;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11191);}while(r); +S_13621:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(11191);if(r)goto S_13621;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1626= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11191);}while(r); +} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(11192);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11193);}while(r); +S_13626:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11194);if(r)goto S_13626;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11194);}while(r); +} +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(11196);}while(r); +} +dl_continue_1454:; +} +dl_exit_1454:; +} +LABEL_NOTSUBCALL:; +if(qbevent){evnt(11202);r=0;} +S_13634:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(11204);if(r)goto S_13634;} +S_13635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||new_error){ +if(qbevent){evnt(11205);if(r)goto S_13635;} +S_13636:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(11206);if(r)goto S_13636;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)",83)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11206);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11206);}while(r); +} +do{ +qbs_set(__STRING_CA,qbs_right(__STRING_CA,__STRING_CA->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11207);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(11208);}while(r); +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Let",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11209);}while(r); +S_13643:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(11210);if(r)goto S_13643;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11210);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11210);}while(r); +} +do{ +goto LABEL_LETUSED; +if(!qbevent)break;evnt(11212);}while(r); +} +} +S_13651:; +if ((-(*__LONG_N>= 3 ))||new_error){ +if(qbevent){evnt(11217);if(r)goto S_13651;} +S_13652:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1)),__STRING1_SP),0)))||new_error){ +if(qbevent){evnt(11218);if(r)goto S_13652;} +LABEL_LETUSED:; +if(qbevent){evnt(11219);r=0;} +do{ +SUB_ASSIGN(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11220);}while(r); +S_13654:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11221);if(r)goto S_13654;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11221);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(11222);}while(r); +S_13658:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(11223);if(r)goto S_13658;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11223);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11223);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(11224);}while(r); +} +} +S_13666:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_A, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1))))))||new_error){ +if(qbevent){evnt(11227);if(r)goto S_13666;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11227);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11227);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11230);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11230);}while(r); +LABEL_FINISHEDLINE:; +if(qbevent){evnt(11232);r=0;} +do{ +*__LONG_THENGOTO= 0 ; +if(!qbevent)break;evnt(11233);}while(r); +LABEL_FINISHEDLINE2:; +if(qbevent){evnt(11234);r=0;} +S_13673:; +if ((*__BYTE_INPUTFUNCTIONCALLED)||new_error){ +if(qbevent){evnt(11236);if(r)goto S_13673;} +do{ +*__BYTE_INPUTFUNCTIONCALLED= 0 ; +if(!qbevent)break;evnt(11237);}while(r); +S_13675:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11238);if(r)goto S_13675;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1630; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102), 0 , 0 , 1 ); +if (new_error) goto skip1630; +skip1630: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11239);}while(r); +} +} +S_13679:; +if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||new_error){ +if(qbevent){evnt(11243);if(r)goto S_13679;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(11243);}while(r); +} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11245);}while(r); +S_13683:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(11246);if(r)goto S_13683;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11247);}while(r); +do{ +qbs_set(__STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11248);}while(r); +do{ +qbs_set(__STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),__STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11249);}while(r); +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_INCLINENUMP,qbs_new_txt_len(",",1)),func_chr( 34 )),__STRING_THISINCNAME),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11250);}while(r); +} +S_13689:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(11252);if(r)goto S_13689;} +S_13690:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(11253);if(r)goto S_13690;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11253);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11253);}while(r); +} +S_13695:; +if ((*__LONG_DYNSCOPE)||new_error){ +if(qbevent){evnt(11254);if(r)goto S_13695;} +do{ +*__LONG_DYNSCOPE= 0 ; +if(!qbevent)break;evnt(11255);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1632; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(qbevent){",12),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(";}",2)), 0 , 0 , 1 ); +if (new_error) goto skip1632; +skip1632: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11256);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1633; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(!qbevent)break;",18),__STRING_TEMP),qbs_new_txt_len("evnt(",5)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12)), 0 , 0 , 1 ); +if (new_error) goto skip1633; +skip1633: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11258);}while(r); +} +} +LABEL_FINISHEDNONEXEC:; +if(qbevent){evnt(11262);r=0;} +do{ +*__LONG_FIRSTLINE= 0 ; +if(!qbevent)break;evnt(11264);}while(r); +S_13703:; +if ((-(*__LONG_LAYOUTDONE== 0 ))||new_error){ +if(qbevent){evnt(11266);if(r)goto S_13703;} +do{ +*__LONG_LAYOUTOK= 0 ; +if(!qbevent)break;evnt(11266);}while(r); +} +S_13706:; +if ((-(*__LONG_CONTINUELINEFROM== 0 ))||new_error){ +if(qbevent){evnt(11268);if(r)goto S_13706;} +S_13707:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ +if(qbevent){evnt(11271);if(r)goto S_13707;} +S_13708:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11273);if(r)goto S_13708;} +do{ +qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11275);}while(r); +do{ +*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK; +if(!qbevent)break;evnt(11276);}while(r); +do{ +qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11277);}while(r); +} +do{ +qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11280);}while(r); +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11280);}while(r); +S_13715:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11282);if(r)goto S_13715;} +do{ +*__LONG_INCLUDINGFROMROOT= 0 ; +if(!qbevent)break;evnt(11283);}while(r); +do{ +*__LONG_FORCEINCLUDINGFILE= 0 ; +if(!qbevent)break;evnt(11284);}while(r); +LABEL_FORCEINCLUDE:; +if(qbevent){evnt(11285);r=0;} +S_13718:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(11286);if(r)goto S_13718;} +do{ +qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11287);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11288);}while(r); +do{ +*__LONG_FORCEINCLUDINGFILE= 1 ; +if(!qbevent)break;evnt(11289);}while(r); +do{ +*__LONG_INCLUDINGFROMROOT= 1 ; +if(!qbevent)break;evnt(11290);}while(r); +} +} +S_13725:; +if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ +if(qbevent){evnt(11294);if(r)goto S_13725;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many indwelling INCLUDE files",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11294);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11294);}while(r); +} +do{ +*__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; +if(!qbevent)break;evnt(11296);}while(r); +do{ +*__LONG_FIRSTTRYMETHOD= 1 ; +if(!qbevent)break;evnt(11298);}while(r); +S_13731:; +if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(11299);if(r)goto S_13731;} +do{ +*__LONG_FIRSTTRYMETHOD= 2 ; +if(!qbevent)break;evnt(11299);}while(r); +} +S_13734:; +fornext_value1636=*__LONG_FIRSTTRYMETHOD; +fornext_finalvalue1636= 2 ; +fornext_step1636= 1 ; +if (fornext_step1636<0) fornext_step_negative1636=1; else fornext_step_negative1636=0; +if (new_error) goto fornext_error1636; +goto fornext_entrylabel1636; +while(1){ +fornext_value1636=fornext_step1636+(*__LONG_TRY); +fornext_entrylabel1636: +*__LONG_TRY=fornext_value1636; +if (fornext_step_negative1636){ +if (fornext_value1636fornext_finalvalue1636) break; +} +fornext_error1636:; +if(qbevent){evnt(11300);if(r)goto S_13734;} +S_13735:; +if ((-(*__LONG_TRY== 1 ))||new_error){ +if(qbevent){evnt(11301);if(r)goto S_13735;} +S_13736:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11302);if(r)goto S_13736;} +S_13737:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11303);if(r)goto S_13737;} +do{ +qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11303);}while(r); +}else{ +do{ +qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11303);}while(r); +} +}else{ +do{ +qbs_set(__STRING_P,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11305);}while(r); +} +do{ +qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11307);}while(r); +} +S_13747:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11309);if(r)goto S_13747;} +do{ +qbs_set(__STRING_F,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11309);}while(r); +} +S_13750:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ +if(qbevent){evnt(11310);if(r)goto S_13750;} +do{ +*__INTEGER_QBERRORHAPPENED= -2 ; +if(!qbevent)break;evnt(11311);}while(r); +do{ +sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11312);}while(r); +LABEL_QBERRORHAPPENED2:; +if(qbevent){evnt(11313);r=0;} +S_13753:; +if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||new_error){ +if(qbevent){evnt(11314);if(r)goto S_13753;} +do{ +goto fornext_exit_1635; +if(!qbevent)break;evnt(11314);}while(r); +} +} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(11316);}while(r); +fornext_continue_1635:; +} +fornext_exit_1635:; +S_13759:; +if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||new_error){ +if(qbevent){evnt(11318);if(r)goto S_13759;} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(11318);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("File ",5),__STRING_A),qbs_new_txt_len(" not found",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11318);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11318);}while(r); +} +do{ +*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; +if(!qbevent)break;evnt(11319);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11319);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(11319);}while(r); +} +S_13768:; +while((*__LONG_INCLEVEL)||new_error){ +if(qbevent){evnt(11322);if(r)goto S_13768;} +do{ +*__LONG_FH= 99 +*__LONG_INCLEVEL; +if(!qbevent)break;evnt(11323);}while(r); +S_13770:; +if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ +if(qbevent){evnt(11325);if(r)goto S_13770;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip1638; +sub_file_line_input_string(tmp_fileno,__STRING_X); +if (new_error) goto skip1638; +skip1638: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11326);}while(r); +do{ +qbs_set(__STRING_A3,__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11327);}while(r); +do{ +*__LONG_CONTINUELINEFROM= 0 ; +if(!qbevent)break;evnt(11328);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ; +if(!qbevent)break;evnt(11329);}while(r); +do{ +*__LONG_ERRORLINEININCLUDE=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; +if(!qbevent)break;evnt(11331);}while(r); +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),qbs_new_txt_len(" of ",4)),((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),qbs_new_txt_len(" included",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11332);}while(r); +S_13777:; +if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ +if(qbevent){evnt(11333);if(r)goto S_13777;} +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" (through ",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11334);}while(r); +S_13779:; +fornext_value1640= 1 ; +fornext_finalvalue1640=*__LONG_INCLEVEL- 1 ; +fornext_step1640= 1 ; +if (fornext_step1640<0) fornext_step_negative1640=1; else fornext_step_negative1640=0; +if (new_error) goto fornext_error1640; +goto fornext_entrylabel1640; +while(1){ +fornext_value1640=fornext_step1640+(*__LONG_X); +fornext_entrylabel1640: +*__LONG_X=fornext_value1640; +if (fornext_step_negative1640){ +if (fornext_value1640fornext_finalvalue1640) break; +} +fornext_error1640:; +if(qbevent){evnt(11335);if(r)goto S_13779;} +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11336);}while(r); +S_13781:; +if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ +if(qbevent){evnt(11337);if(r)goto S_13781;} +S_13782:; +if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ +if(qbevent){evnt(11338);if(r)goto S_13782;} +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(" then ",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11339);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(", ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11341);}while(r); +} +} +fornext_continue_1639:; +} +fornext_exit_1639:; +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11345);}while(r); +} +do{ +qbs_set(__STRING_INCERROR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11347);}while(r); +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; +if(!qbevent)break;evnt(11348);}while(r); +S_13793:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11349);if(r)goto S_13793;} +do{ +qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11349);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(11349);}while(r); +} +do{ +goto LABEL_INCLUDELINE; +if(!qbevent)break;evnt(11350);}while(r); +} +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(11353);}while(r); +do{ +*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; +if(!qbevent)break;evnt(11354);}while(r); +S_13801:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11355);if(r)goto S_13801;} +S_13802:; +if ((-(*__LONG_FORCEINCLUDINGFILE== 1 ))||new_error){ +if(qbevent){evnt(11356);if(r)goto S_13802;} +do{ +*__LONG_FORCEINCLUDINGFILE= 0 ; +if(!qbevent)break;evnt(11357);}while(r); +do{ +goto LABEL_FORCEINCLUDECOMPLETED; +if(!qbevent)break;evnt(11358);}while(r); +} +do{ +*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP; +if(!qbevent)break;evnt(11361);}while(r); +do{ +qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11362);}while(r); +do{ +qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11363);}while(r); +} +dl_continue_1637:; +} +dl_exit_1637:; +} +S_13812:; +if (( 0 )||new_error){ +if(qbevent){evnt(11373);if(r)goto S_13812;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1641; +sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0 , 0 , 1 ); +if (new_error) goto skip1641; +skip1641: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11374);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1642; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUTORIGINAL),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip1642; +skip1642: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11375);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1643; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("[",1),__STRING_LAYOUT),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip1643; +skip1643: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11376);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1644; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1 , 0 , 1 ); +if (new_error) goto skip1644; +skip1644: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11377);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1645; +sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0 , 0 , 1 ); +if (new_error) goto skip1645; +skip1645: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11378);}while(r); +} +S_13819:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11384);if(r)goto S_13819;} +S_13820:; +if ((-(*__LONG_CONTINUELINEFROM!= 0 ))||new_error){ +if(qbevent){evnt(11385);if(r)goto S_13820;} +do{ +goto LABEL_IDE4; +if(!qbevent)break;evnt(11385);}while(r); +} +S_13823:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||new_error){ +if(qbevent){evnt(11387);if(r)goto S_13823;} +S_13824:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(11388);if(r)goto S_13824;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_LAYOUTCOMMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11388);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11388);}while(r); +} +} +S_13830:; +if ((-(*__LONG_LAYOUTOK== 0 ))||new_error){ +if(qbevent){evnt(11391);if(r)goto S_13830;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_LAYOUTORIGINAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11392);}while(r); +}else{ +do{ +*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11397);}while(r); +S_13834:; +while((*__LONG_I)||new_error){ +if(qbevent){evnt(11398);if(r)goto S_13834;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_left(__STRING_LAYOUT,*__LONG_I- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-(*__LONG_I+__STRING_FIX046->len- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11399);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11400);}while(r); +dl_continue_1648:; +} +dl_exit_1648:; +} +do{ +*__LONG_X=*__LONG_LHSCONTROLLEVEL; +if(!qbevent)break;evnt(11404);}while(r); +S_13840:; +if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||new_error){ +if(qbevent){evnt(11404);if(r)goto S_13840;} +do{ +*__LONG_X=*__INTEGER_CONTROLLEVEL; +if(!qbevent)break;evnt(11404);}while(r); +} +S_13843:; +if ((-(*__LONG_DEFININGTYPE== 2 ))||new_error){ +if(qbevent){evnt(11405);if(r)goto S_13843;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(11405);}while(r); +} +S_13846:; +if ((-(*__LONG_DEFININGTYPE> 0 ))||new_error){ +if(qbevent){evnt(11406);if(r)goto S_13846;} +do{ +*__LONG_DEFININGTYPE= 2 ; +if(!qbevent)break;evnt(11406);}while(r); +} +S_13849:; +if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||new_error){ +if(qbevent){evnt(11407);if(r)goto S_13849;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(11407);}while(r); +} +S_13852:; +if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||new_error){ +if(qbevent){evnt(11408);if(r)goto S_13852;} +do{ +*__LONG_DECLARINGLIBRARY= 2 ; +if(!qbevent)break;evnt(11408);}while(r); +} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__LONG_X),__STRING_LAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11409);}while(r); +S_13856:; +if ((*__LONG_LINECONTINUATION)||new_error){ +if(qbevent){evnt(11410);if(r)goto S_13856;} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11410);}while(r); +} +do{ +goto LABEL_IDERET4; +if(!qbevent)break;evnt(11412);}while(r); +} +LABEL_SKIPIDE4:; +if(qbevent){evnt(11416);r=0;} +dl_continue_325:; +}while(1); +dl_exit_325:; +S_13862:; +if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ +if(qbevent){evnt(11420);if(r)goto S_13862;} +do{ +*__LONG_LASTLINERETURN= 1 ; +if(!qbevent)break;evnt(11421);}while(r); +do{ +*__LONG_LASTLINE= 1 ; +if(!qbevent)break;evnt(11422);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11423);}while(r); +do{ +goto LABEL_MAINPASSLASTLINE; +if(!qbevent)break;evnt(11424);}while(r); +} +LABEL_IDE5:; +if(qbevent){evnt(11427);r=0;} +do{ +*__LONG_LINENUMBER= 0 ; +if(!qbevent)break;evnt(11428);}while(r); +S_13869:; +if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ +if(qbevent){evnt(11430);if(r)goto S_13869;} +do{ +SUB_CLOSEMAIN(); +if(!qbevent)break;evnt(11430);}while(r); +} +S_13872:; +if ((*__LONG_DEFININGTYPE)||new_error){ +if(qbevent){evnt(11432);if(r)goto S_13872;} +do{ +*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR; +if(!qbevent)break;evnt(11432);}while(r); +do{ +qbs_set(__STRING_A,qbs_new_txt_len("TYPE without END TYPE",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11432);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11432);}while(r); +} +S_13877:; +if ((*__INTEGER_CONTROLLEVEL)||new_error){ +if(qbevent){evnt(11435);if(r)goto S_13877;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11436);}while(r); +S_13879:; +sc_1651=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(qbevent){evnt(11437);if(r)goto S_13879;} +S_13880:; +if (((sc_1651==( 1 )))||new_error){ +if(qbevent){evnt(11438);if(r)goto S_13880;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11438);}while(r); +sc_ec_31_end:; +goto sc_1651_end; +} +S_13882:; +if (((sc_1651==( 2 )))||new_error){ +if(qbevent){evnt(11439);if(r)goto S_13882;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11439);}while(r); +sc_ec_32_end:; +goto sc_1651_end; +} +S_13884:; +if (((sc_1651==( 3 ))||(sc_1651==( 4 )))||new_error){ +if(qbevent){evnt(11440);if(r)goto S_13884;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11440);}while(r); +sc_ec_33_end:; +goto sc_1651_end; +} +S_13886:; +if (((sc_1651==( 5 )))||new_error){ +if(qbevent){evnt(11441);if(r)goto S_13886;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11441);}while(r); +sc_ec_34_end:; +goto sc_1651_end; +} +S_13888:; +if (((sc_1651==( 6 )))||new_error){ +if(qbevent){evnt(11442);if(r)goto S_13888;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11442);}while(r); +sc_ec_35_end:; +goto sc_1651_end; +} +S_13890:; +if ((((sc_1651>=( 10 ))&&(sc_1651<=( 19 ))))||new_error){ +if(qbevent){evnt(11443);if(r)goto S_13890;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SELECT CASE without END SELECT",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11443);}while(r); +sc_ec_36_end:; +goto sc_1651_end; +} +S_13892:; +if (((sc_1651==( 32 )))||new_error){ +if(qbevent){evnt(11444);if(r)goto S_13892;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11444);}while(r); +sc_ec_37_end:; +goto sc_1651_end; +} +sc_1651_end:; +do{ +*__LONG_LINENUMBER=((int32*)(__ARRAY_LONG_CONTROLREF[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5])]; +if(!qbevent)break;evnt(11446);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11447);}while(r); +} +S_13898:; +if ((-(*__LONG_IDEINDENTSUBS== 0 ))||new_error){ +if(qbevent){evnt(11450);if(r)goto S_13898;} +S_13899:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(11451);if(r)goto S_13899;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB/FUNCTION without END SUB/FUNCTION",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11451);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11451);}while(r); +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 14 ; +if (new_error) goto skip1653; +sub_file_print(tmp_fileno,qbs_new_txt_len("exit(99);",9), 0 , 0 , 1 ); +if (new_error) goto skip1653; +skip1653: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11455);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 14 ; +if (new_error) goto skip1654; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1654; +skip1654: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11456);}while(r); +do{ +sub_close( 12 ,1); +if(!qbevent)break;evnt(11459);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("clear.txt",9)), 4 ,NULL,NULL, 12 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11460);}while(r); +S_13908:; +fornext_value1656= 1 ; +fornext_finalvalue1656=*__LONG_IDN; +fornext_step1656= 1 ; +if (fornext_step1656<0) fornext_step_negative1656=1; else fornext_step_negative1656=0; +if (new_error) goto fornext_error1656; +goto fornext_entrylabel1656; +while(1){ +fornext_value1656=fornext_step1656+(*__LONG_I); +fornext_entrylabel1656: +*__LONG_I=fornext_value1656; +if (fornext_step_negative1656){ +if (fornext_value1656fornext_finalvalue1656) break; +} +fornext_error1656:; +if(qbevent){evnt(11462);if(r)goto S_13908;} +S_13909:; +if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2853)))||new_error){ +if(qbevent){evnt(11464);if(r)goto S_13909;} +do{ +qbs_set(__STRING_SUBFUNC,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11465);}while(r); +do{ +goto LABEL_CLEARSTATICSCOPE; +if(!qbevent)break;evnt(11466);}while(r); +} +do{ +*__LONG_A=qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11469);}while(r); +S_13914:; +if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||new_error){ +if(qbevent){evnt(11470);if(r)goto S_13914;} +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11471);}while(r); +LABEL_CLEARSTATICSCOPE:; +if(qbevent){evnt(11472);r=0;} +S_13916:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512)))||new_error){ +if(qbevent){evnt(11474);if(r)goto S_13916;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11475);}while(r); +S_13918:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11476);if(r)goto S_13918;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11476);}while(r); +} +S_13921:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ +if(qbevent){evnt(11477);if(r)goto S_13921;} +do{ +goto LABEL_CLEARERASERETURNED; +if(!qbevent)break;evnt(11477);}while(r); +} +S_13924:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))),qbs_new_txt_len("@",1)),0)> 0 )))||new_error){ +if(qbevent){evnt(11478);if(r)goto S_13924;} +do{ +goto LABEL_CLEARERASERETURNED; +if(!qbevent)break;evnt(11479);}while(r); +} +do{ +*__LONG_CLEARERASERETURN= 1 ; +if(!qbevent)break;evnt(11481);}while(r); +do{ +goto LABEL_CLEARERASE; +if(!qbevent)break;evnt(11481);}while(r); +} +S_13930:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536)))||new_error){ +if(qbevent){evnt(11484);if(r)goto S_13930;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11485);}while(r); +S_13932:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11486);if(r)goto S_13932;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11486);}while(r); +} +do{ +qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1657= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11487);}while(r); +S_13936:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11488);if(r)goto S_13936;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11488);}while(r); +} +do{ +*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(11490);}while(r); +S_13940:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11491);if(r)goto S_13940;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_STR2(__LONG_I),__STRING1_SP3),FUNC_STR2(&(pass1658=*__LONG_TYP& 511 ))),__STRING1_SP3),qbs_new_txt_len("0",1)),__STRING1_SP3),qbs_new_txt_len("0",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11492);}while(r); +}else{ +do{ +qbs_set(__STRING_E,FUNC_STR2(__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11494);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1659= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11496);}while(r); +S_13946:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11497);if(r)goto S_13946;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11497);}while(r); +} +S_13949:; +if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(11498);if(r)goto S_13949;} +S_13950:; +if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(11499);if(r)goto S_13950;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1660; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),__STRING_E),qbs_new_txt_len("->chr),0,",9)),__STRING_BYTES),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1660; +skip1660: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11500);}while(r); +do{ +goto LABEL_CLEARED; +if(!qbevent)break;evnt(11501);}while(r); +}else{ +S_13954:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),__STRING_E),qbs_new_txt_len("@",1)),0)== 0 ))&(qbs_notequal(qbs_left(__STRING_E, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||new_error){ +if(qbevent){evnt(11503);if(r)goto S_13954;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1661; +sub_file_print(tmp_fileno,qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8)), 0 , 0 , 1 ); +if (new_error) goto skip1661; +skip1661: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11504);}while(r); +} +do{ +goto LABEL_CLEARED; +if(!qbevent)break;evnt(11506);}while(r); +} +} +S_13960:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11509);if(r)goto S_13960;} +S_13961:; +if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(11510);if(r)goto S_13961;} +do{ +SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1662=*__LONG_TYP& 511 ),&(pass1663= 12 ),&(pass1664= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11512);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1665; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)",14),__STRING_E),qbs_new_txt_len(",0,",3)),__STRING_BYTES),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1665; +skip1665: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11514);}while(r); +} +}else{ +S_13967:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),__STRING_E),qbs_new_txt_len("@",1)),0)== 0 ))&(qbs_notequal(qbs_left(__STRING_E, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||new_error){ +if(qbevent){evnt(11517);if(r)goto S_13967;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1666; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*",1),__STRING_E),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); +if (new_error) goto skip1666; +skip1666: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11518);}while(r); +} +} +do{ +goto LABEL_CLEARED; +if(!qbevent)break;evnt(11521);}while(r); +} +} +LABEL_CLEARED:; +if(qbevent){evnt(11526);r=0;} +LABEL_CLEARERASERETURNED:; +if(qbevent){evnt(11527);r=0;} +fornext_continue_1655:; +} +fornext_exit_1655:; +do{ +sub_close( 12 ,1); +if(!qbevent)break;evnt(11529);}while(r); +S_13976:; +if (( 0 )||new_error){ +if(qbevent){evnt(11531);if(r)goto S_13976;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1667; +sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0 , 0 , 1 ); +if (new_error) goto skip1667; +skip1667: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11532);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1668; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0 , 0 , 0 ); +if (new_error) goto skip1668; +sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1 , 0 , 1 ); +if (new_error) goto skip1668; +skip1668: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11533);}while(r); +} +S_13980:; +fornext_value1670= 1 ; +fornext_finalvalue1670=*__LONG_IDN; +fornext_step1670= 1 ; +if (fornext_step1670<0) fornext_step_negative1670=1; else fornext_step_negative1670=0; +if (new_error) goto fornext_error1670; +goto fornext_entrylabel1670; +while(1){ +fornext_value1670=fornext_step1670+(*__LONG_I); +fornext_entrylabel1670: +*__LONG_I=fornext_value1670; +if (fornext_step_negative1670){ +if (fornext_value1670fornext_finalvalue1670) break; +} +fornext_error1670:; +if(qbevent){evnt(11537);if(r)goto S_13980;} +S_13981:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(11538);if(r)goto S_13981;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11540);}while(r); +S_13983:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11541);if(r)goto S_13983;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11541);}while(r); +} +S_13986:; +if (( 0 )||new_error){ +if(qbevent){evnt(11543);if(r)goto S_13986;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1671; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0 , 0 , 0 ); +if (new_error) goto skip1671; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)), 0 , 0 , 1 ); +if (new_error) goto skip1671; +skip1671: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11543);}while(r); +} +S_13989:; +if ((*(int32*)(((char*)__UDT_ID)+(2855)))||new_error){ +if(qbevent){evnt(11545);if(r)goto S_13989;} +S_13990:; +if (( 0 )||new_error){ +if(qbevent){evnt(11547);if(r)goto S_13990;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1672; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0 , 0 , 1 ); +if (new_error) goto skip1672; +skip1672: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11547);}while(r); +} +do{ +*__LONG_I2=*(int32*)(((char*)__UDT_ID)+(2855)); +if(!qbevent)break;evnt(11549);}while(r); +do{ +*__LONG_X=*(int16*)(((char*)__UDT_ID)+(2859)); +if(!qbevent)break;evnt(11550);}while(r); +S_13995:; +if (( 0 )||new_error){ +if(qbevent){evnt(11552);if(r)goto S_13995;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1673; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0 , 0 , 0 ); +if (new_error) goto skip1673; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); +if (new_error) goto skip1673; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1 , 0 , 1 ); +if (new_error) goto skip1673; +skip1673: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11552);}while(r); +} +S_13998:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(11555);if(r)goto S_13998;} +do{ +sub_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*__LONG_I2)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*__LONG_X, 1 ,func_chr( 1 ),1); +if(!qbevent)break;evnt(11556);}while(r); +S_14000:; +if (( 0 )||new_error){ +if(qbevent){evnt(11559);if(r)goto S_14000;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1674; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0 , 0 , 0 ); +if (new_error) goto skip1674; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); +if (new_error) goto skip1674; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1 , 0 , 1 ); +if (new_error) goto skip1674; +skip1674: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11559);}while(r); +} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11562);}while(r); +} +} +} +fornext_continue_1669:; +} +fornext_exit_1669:; +do{ +*__LONG_UNRESOLVED= 0 ; +if(!qbevent)break;evnt(11568);}while(r); +S_14009:; +fornext_value1676= 1 ; +fornext_finalvalue1676=*__LONG_IDN; +fornext_step1676= 1 ; +if (fornext_step1676<0) fornext_step_negative1676=1; else fornext_step_negative1676=0; +if (new_error) goto fornext_error1676; +goto fornext_entrylabel1676; +while(1){ +fornext_value1676=fornext_step1676+(*__LONG_I); +fornext_entrylabel1676: +*__LONG_I=fornext_value1676; +if (fornext_step_negative1676){ +if (fornext_value1676fornext_finalvalue1676) break; +} +fornext_error1676:; +if(qbevent){evnt(11569);if(r)goto S_14009;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11570);}while(r); +S_14011:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11571);if(r)goto S_14011;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11571);}while(r); +} +S_14014:; +if (( 0 )||new_error){ +if(qbevent){evnt(11573);if(r)goto S_14014;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1677; +sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0 , 0 , 0 ); +if (new_error) goto skip1677; +sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1), 0 , 0 , 1 ); +if (new_error) goto skip1677; +skip1677: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11573);}while(r); +} +S_14017:; +if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ +if(qbevent){evnt(11575);if(r)goto S_14017;} +S_14018:; +fornext_value1679= 1 ; +fornext_finalvalue1679=*(int16*)(((char*)__UDT_ID)+(809)); +fornext_step1679= 1 ; +if (fornext_step1679<0) fornext_step_negative1679=1; else fornext_step_negative1679=0; +if (new_error) goto fornext_error1679; +goto fornext_entrylabel1679; +while(1){ +fornext_value1679=fornext_step1679+(*__LONG_I2); +fornext_entrylabel1679: +*__LONG_I2=fornext_value1679; +if (fornext_step_negative1679){ +if (fornext_value1679fornext_finalvalue1679) break; +} +fornext_error1679:; +if(qbevent){evnt(11576);if(r)goto S_14018;} +do{ +*__LONG_T=string2l(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),(*__LONG_I2* 4 )-( 3 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11577);}while(r); +S_14020:; +if ((-(*__LONG_T> 0 ))||new_error){ +if(qbevent){evnt(11578);if(r)goto S_14020;} +S_14021:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(11579);if(r)goto S_14021;} +S_14022:; +if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(11580);if(r)goto S_14022;} +S_14023:; +if (( 0 )||new_error){ +if(qbevent){evnt(11582);if(r)goto S_14023;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0 , 0 , 0 ); +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1 , 0 , 0 ); +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0 , 0 , 0 ); +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+(809)))), 1 , 0 , 1 ); +if (new_error) goto skip1680; +skip1680: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11582);}while(r); +} +do{ +*__LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2647)),100,1),*__LONG_I2, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11584);}while(r); +do{ +*__LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)__UDT_ID)+(2747)),100,1),*__LONG_I2, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11585);}while(r); +S_14028:; +if (( 0 )||new_error){ +if(qbevent){evnt(11587);if(r)goto S_14028;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1681; +sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0 , 0 , 0 ); +if (new_error) goto skip1681; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1 , 0 , 1 ); +if (new_error) goto skip1681; +skip1681: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11587);}while(r); +} +S_14031:; +if (( 0 )||new_error){ +if(qbevent){evnt(11588);if(r)goto S_14031;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1682; +sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0 , 0 , 0 ); +if (new_error) goto skip1682; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1 , 0 , 1 ); +if (new_error) goto skip1682; +skip1682: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11588);}while(r); +} +S_14034:; +if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||new_error){ +if(qbevent){evnt(11590);if(r)goto S_14034;} +S_14035:; +if (( 0 )||new_error){ +if(qbevent){evnt(11592);if(r)goto S_14035;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1683; +sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0 , 0 , 1 ); +if (new_error) goto skip1683; +skip1683: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11592);}while(r); +} +do{ +*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ; +if(!qbevent)break;evnt(11594);}while(r); +do{ +*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ; +if(!qbevent)break;evnt(11595);}while(r); +do{ +tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I; +if(!qbevent)break;evnt(11596);}while(r); +do{ +tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2; +if(!qbevent)break;evnt(11597);}while(r); +do{ +tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ; +if(!qbevent)break;evnt(11598);}while(r); +} +} +} +} +fornext_continue_1678:; +} +fornext_exit_1678:; +} +fornext_continue_1675:; +} +fornext_exit_1675:; +S_14050:; +if ((-(*__LONG_UNRESOLVED> 0 ))||new_error){ +if(qbevent){evnt(11608);if(r)goto S_14050;} +S_14051:; +if ((-(*__LONG_LASTUNRESOLVED== -1 ))||new_error){ +if(qbevent){evnt(11609);if(r)goto S_14051;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11611);}while(r); +S_14053:; +if (( 0 )||new_error){ +if(qbevent){evnt(11612);if(r)goto S_14053;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1684; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0 , 0 , 1 ); +if (new_error) goto skip1684; +skip1684: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11613);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1685; +sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0 , 0 , 0 ); +if (new_error) goto skip1685; +sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1 , 0 , 1 ); +if (new_error) goto skip1685; +skip1685: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11614);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1686; +sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0 , 0 , 0 ); +if (new_error) goto skip1686; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1 , 0 , 1 ); +if (new_error) goto skip1686; +skip1686: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11615);}while(r); +} +}else{ +S_14059:; +if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||new_error){ +if(qbevent){evnt(11619);if(r)goto S_14059;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11620);}while(r); +S_14061:; +if (( 0 )||new_error){ +if(qbevent){evnt(11621);if(r)goto S_14061;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1687; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (not first time)",54), 0 , 0 , 1 ); +if (new_error) goto skip1687; +skip1687: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11622);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1688; +sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0 , 0 , 0 ); +if (new_error) goto skip1688; +sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1 , 0 , 1 ); +if (new_error) goto skip1688; +skip1688: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11623);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1689; +sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0 , 0 , 0 ); +if (new_error) goto skip1689; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1 , 0 , 1 ); +if (new_error) goto skip1689; +skip1689: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11624);}while(r); } } } } do{ *__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED; -if(!qbevent)break;evnt(11055);}while(r); -S_13357:; +if(!qbevent)break;evnt(11629);}while(r); +S_14070:; if (( 0 )||new_error){ -if(qbevent){evnt(11081);if(r)goto S_13357;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1588; -sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0 , 0 , 1 ); -if (new_error) goto skip1588; -skip1588: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11081);}while(r); -} -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(11082);}while(r); -S_13361:; -fornext_value1590= 1 ; -fornext_finalvalue1590=*__LONG_COMMONARRAYLISTN; -fornext_step1590= 1 ; -if (fornext_step1590<0) fornext_step_negative1590=1; else fornext_step_negative1590=0; -if (new_error) goto fornext_error1590; -goto fornext_entrylabel1590; -while(1){ -fornext_value1590=fornext_step1590+(*__LONG_X); -fornext_entrylabel1590: -*__LONG_X=fornext_value1590; -if (fornext_step_negative1590){ -if (fornext_value1590fornext_finalvalue1590) break; -} -fornext_error1590:; -if(qbevent){evnt(11083);if(r)goto S_13361;} -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11084);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11084);}while(r); -do{ -qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11085);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11085);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11086);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11086);}while(r); -do{ -*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11087);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11087);}while(r); -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11089);}while(r); -S_13371:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11090);if(r)goto S_13371;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11090);}while(r); -} -S_13374:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(11091);if(r)goto S_13374;} -do{ -qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11091);}while(r); -} -S_13377:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11092);if(r)goto S_13377;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11092);}while(r); -} -S_13380:; -if (( 0 )||new_error){ -if(qbevent){evnt(11094);if(r)goto S_13380;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1591; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Checking for array '",20),__STRING_VARNAME),qbs_new_txt_len("'...",4)), 0 , 0 , 1 ); -if (new_error) goto skip1591; -skip1591: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11094);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11096);}while(r); -S_13384:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11097);if(r)goto S_13384;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11097);}while(r); -} -S_13387:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(11098);if(r)goto S_13387;} -S_13388:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(11099);if(r)goto S_13388;} -do{ -goto LABEL_FOUNDCOMMONARRAY2; -if(!qbevent)break;evnt(11099);}while(r); -} -S_13391:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(11100);if(r)goto S_13391;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(11100);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11100);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(11100);}while(r); -} -S_13397:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11101);if(r)goto S_13397;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11101);}while(r); -} -dl_continue_1592:; -} -dl_exit_1592:; -LABEL_FOUNDCOMMONARRAY2:; -if(qbevent){evnt(11103);r=0;} -S_13401:; -if (( 0 )||new_error){ -if(qbevent){evnt(11105);if(r)goto S_13401;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1593; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found array '",13),__STRING_VARNAME),qbs_new_txt_len("!",1)), 0 , 0 , 1 ); -if (new_error) goto skip1593; -skip1593: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11105);}while(r); -} -S_13404:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ -if(qbevent){evnt(11107);if(r)goto S_13404;} -S_13405:; -if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||new_error){ -if(qbevent){evnt(11108);if(r)goto S_13405;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11108);}while(r); -} -S_13408:; -if (( 0 )||new_error){ -if(qbevent){evnt(11109);if(r)goto S_13408;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1594; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0 , 0 , 1 ); -if (new_error) goto skip1594; -skip1594: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11109);}while(r); -} -} -fornext_continue_1589:; -} -fornext_exit_1589:; -S_13413:; -if (( 0 )||new_error){ -if(qbevent){evnt(11112);if(r)goto S_13413;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1595; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0 , 0 , 1 ); -if (new_error) goto skip1595; -skip1595: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11112);}while(r); -} -S_13416:; -if ((-(*__LONG_DESIREDVIRTUALKEYBOARDSTATE!=*__LONG_VIRTUALKEYBOARDSTATE))||new_error){ -if(qbevent){evnt(11114);if(r)goto S_13416;} -do{ -*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE+ 1 ; -if(!qbevent)break;evnt(11115);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11116);}while(r); -} -S_13420:; -if ((*__INTEGER_RECOMPILE)||new_error){ -if(qbevent){evnt(11119);if(r)goto S_13420;} -LABEL_DO_RECOMPILE:; -if(qbevent){evnt(11120);r=0;} -S_13421:; -if (( 0 )||new_error){ -if(qbevent){evnt(11121);if(r)goto S_13421;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1596; -sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0 , 0 , 1 ); -if (new_error) goto skip1596; -skip1596: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11121);}while(r); -} -do{ -*__INTEGER_RECOMPILE= 0 ; -if(!qbevent)break;evnt(11122);}while(r); -S_13425:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(11123);if(r)goto S_13425;} -do{ -*__LONG_IDERECOMPILE= 1 ; -if(!qbevent)break;evnt(11123);}while(r); -} -S_13428:; -fornext_value1598= 1 ; -fornext_finalvalue1598= 255 ; -fornext_step1598= 1 ; -if (fornext_step1598<0) fornext_step_negative1598=1; else fornext_step_negative1598=0; -if (new_error) goto fornext_error1598; -goto fornext_entrylabel1598; -while(1){ -fornext_value1598=fornext_step1598+(*__LONG_CLOSEALL); -fornext_entrylabel1598: -*__LONG_CLOSEALL=fornext_value1598; -if (fornext_step_negative1598){ -if (fornext_value1598fornext_finalvalue1598) break; -} -fornext_error1598:; -if(qbevent){evnt(11124);if(r)goto S_13428;} -do{ -sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(11124);}while(r); -fornext_continue_1597:; -} -fornext_exit_1597:; -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11125);}while(r); -do{ -goto LABEL_RECOMPILE; -if(!qbevent)break;evnt(11126);}while(r); -} -S_13434:; -if (( 0 )||new_error){ -if(qbevent){evnt(11129);if(r)goto S_13434;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1599; -sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0 , 0 , 1 ); -if (new_error) goto skip1599; -skip1599: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11129);}while(r); -} -S_13437:; -fornext_value1601= 1 ; -fornext_finalvalue1601=*__LONG_NLABELS; -fornext_step1601= 1 ; -if (fornext_step1601<0) fornext_step_negative1601=1; else fornext_step_negative1601=0; -if (new_error) goto fornext_error1601; -goto fornext_entrylabel1601; -while(1){ -fornext_value1601=fornext_step1601+(*__LONG_R); -fornext_entrylabel1601: -*__LONG_R=fornext_value1601; -if (fornext_step_negative1601){ -if (fornext_value1601fornext_finalvalue1601) break; -} -fornext_error1601:; -if(qbevent){evnt(11130);if(r)goto S_13437;} -S_13438:; -if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))||new_error){ -if(qbevent){evnt(11132);if(r)goto S_13438;} -do{ -qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11133);}while(r); -do{ -*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11134);}while(r); -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1602= 2 ),__LONG_IGNORE,__LONG_R2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11135);}while(r); -LABEL_ADDLABCHK7:; -if(qbevent){evnt(11136);r=0;} -S_13442:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(11137);if(r)goto S_13442;} -S_13443:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R2)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))==*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274))))||new_error){ -if(qbevent){evnt(11138);if(r)goto S_13443;} -do{ -*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)); -if(!qbevent)break;evnt(11139);}while(r); -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Common label within a SUB/FUNCTION",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11139);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11139);}while(r); -} -S_13448:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(11141);if(r)goto S_13448;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); -if(!qbevent)break;evnt(11141);}while(r); -do{ -goto LABEL_ADDLABCHK7; -if(!qbevent)break;evnt(11141);}while(r); -} -} -} -S_13454:; -if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 0 ))||new_error){ -if(qbevent){evnt(11146);if(r)goto S_13454;} -S_13455:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(11148);if(r)goto S_13455;} -S_13456:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))),__STRING1_SP),0)== 0 )))||new_error){ -if(qbevent){evnt(11149);if(r)goto S_13456;} -do{ -qbs_set(__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING_SUBNAMELABELS,qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11150);}while(r); -S_13458:; -if (( 0 )||new_error){ -if(qbevent){evnt(11151);if(r)goto S_13458;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1603; -sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0 , 0 , 0 ); -if (new_error) goto skip1603; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)), 0 , 0 , 1 ); -if (new_error) goto skip1603; -skip1603: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11151);}while(r); -} -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(11152);}while(r); -} -} -do{ -*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)); -if(!qbevent)break;evnt(11156);}while(r); -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Label not defined",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11156);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11156);}while(r); -} -S_13468:; -if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))||new_error){ -if(qbevent){evnt(11160);if(r)goto S_13468;} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(11163);}while(r); -do{ -qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11164);}while(r); -do{ -*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11165);}while(r); -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1604= 2 ),__LONG_IGNORE,__LONG_R2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11166);}while(r); -LABEL_ADDLABCHK4:; -if(qbevent){evnt(11167);r=0;} -S_13473:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(11168);if(r)goto S_13473;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(11169);}while(r); -S_13475:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(11170);if(r)goto S_13475;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); -if(!qbevent)break;evnt(11170);}while(r); -do{ -goto LABEL_ADDLABCHK4; -if(!qbevent)break;evnt(11170);}while(r); -} -} -S_13480:; -if ((-(*__LONG_X!= 1 ))||new_error){ -if(qbevent){evnt(11172);if(r)goto S_13480;} -do{ -*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)); -if(!qbevent)break;evnt(11172);}while(r); -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Ambiguous DATA label",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11172);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11172);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1605; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_at_LABEL_",23),__STRING_A),qbs_new_txt_len("=",1)),FUNC_STR2(&(pass1606=*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1605; -skip1605: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11175);}while(r); -} -fornext_continue_1600:; -} -fornext_exit_1600:; -S_13488:; -if (( 0 )||new_error){ -if(qbevent){evnt(11180);if(r)goto S_13488;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1607; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0 , 0 , 1 ); -if (new_error) goto skip1607; -skip1607: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11180);}while(r); -} -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(11189);}while(r); -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11192);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE= 18 ; -if(!qbevent)break;evnt(11193);}while(r); -do{ -sub_close( 13 ,1); -if(!qbevent)break;evnt(11194);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11194);}while(r); -do{ -sub_close( 19 ,1); -if(!qbevent)break;evnt(11195);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11195);}while(r); -S_13498:; -if ((*__LONG_CONSOLE)||new_error){ -if(qbevent){evnt(11197);if(r)goto S_13498;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1608; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 console=1;",16), 0 , 0 , 1 ); -if (new_error) goto skip1608; -skip1608: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11198);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1609; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 console=0;",16), 0 , 0 , 1 ); -if (new_error) goto skip1609; -skip1609: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11200);}while(r); -} -S_13503:; -if ((*__LONG_SCREENHIDE)||new_error){ -if(qbevent){evnt(11203);if(r)goto S_13503;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1610; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 screen_hide_startup=1;",28), 0 , 0 , 1 ); -if (new_error) goto skip1610; -skip1610: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11204);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1611; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32 screen_hide_startup=0;",28), 0 , 0 , 1 ); -if (new_error) goto skip1611; -skip1611: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11206);}while(r); -} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(11209);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)), 5 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11210);}while(r); -S_13510:; -if ((*__LONG_RESIZE)||new_error){ -if(qbevent){evnt(11211);if(r)goto S_13510;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip1612; -sub_file_print(tmp_fileno,qbs_new_txt_len("ScreenResize=1;",15), 0 , 0 , 1 ); -if (new_error) goto skip1612; -skip1612: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11212);}while(r); -} -S_13513:; -if ((*__LONG_RESIZE_SCALE)||new_error){ -if(qbevent){evnt(11214);if(r)goto S_13513;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip1613; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),FUNC_STR2(__LONG_RESIZE_SCALE)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1613; -skip1613: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11215);}while(r); -} -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(11217);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1614; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),FUNC_STR2(__LONG_DATAOFFSET)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1614; -skip1614: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11220);}while(r); -S_13518:; -if ((-(*__LONG_DATAOFFSET== 0 ))||new_error){ -if(qbevent){evnt(11221);if(r)goto S_13518;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1615; -sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32), 0 , 0 , 1 ); -if (new_error) goto skip1615; -skip1615: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11223);}while(r); -}else{ -S_13521:; -if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ -if(qbevent){evnt(11227);if(r)goto S_13521;} -S_13522:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(11228);if(r)goto S_13522;} -S_13523:; -if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(11229);if(r)goto S_13523;} -do{ -qbs_set(__STRING_X,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11230);}while(r); -do{ -sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1616),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11230);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1617; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); -if (new_error) goto skip1617; -skip1617: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11231);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1618; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *binary_____temp",28),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); -if (new_error) goto skip1618; -skip1618: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11232);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1619; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1619; -skip1619: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11233);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1620; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&binary_____temp",36),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); -if (new_error) goto skip1620; -skip1620: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11234);}while(r); -}else{ -do{ -qbs_set(__STRING_X,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11236);}while(r); -do{ -sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1621),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11236);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1622; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); -if (new_error) goto skip1622; -skip1622: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11237);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1623; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_____temp",29),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); -if (new_error) goto skip1623; -skip1623: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11238);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1624; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1624; -skip1624: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11239);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1625; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_____temp",37),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); -if (new_error) goto skip1625; -skip1625: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11240);}while(r); -} -} -S_13539:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(11243);if(r)goto S_13539;} -do{ -qbs_set(__STRING_X,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11244);}while(r); -do{ -sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1626),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11244);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1627; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); -if (new_error) goto skip1627; -skip1627: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11245);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1628; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary____temp",28),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16)), 0 , 0 , 1 ); -if (new_error) goto skip1628; -skip1628: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11246);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1629; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1629; -skip1629: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11247);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1630; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary____temp",36),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16)), 0 , 0 , 1 ); -if (new_error) goto skip1630; -skip1630: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11248);}while(r); -} -}else{ -do{ -sub_close( 16 ,1); -if(!qbevent)break;evnt(11252);}while(r); -do{ -*__LONG_FF=func_freefile(); -if(!qbevent)break;evnt(11253);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 2 ,NULL,NULL,*__LONG_FF,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11254);}while(r); -do{ -qbs_set(__STRING_X,func_space(func_lof(*__LONG_FF))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11255);}while(r); -do{ -sub_get2(*__LONG_FF,NULL,__STRING_X,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11256);}while(r); -do{ -sub_close(*__LONG_FF,1); -if(!qbevent)break;evnt(11257);}while(r); -do{ -qbs_set(__STRING_X2,qbs_new_txt_len("uint8 inline_data[]={",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11258);}while(r); -S_13555:; -fornext_value1632= 1 ; -fornext_finalvalue1632=__STRING_X->len; -fornext_step1632= 1 ; -if (fornext_step1632<0) fornext_step_negative1632=1; else fornext_step_negative1632=0; -if (new_error) goto fornext_error1632; -goto fornext_entrylabel1632; -while(1){ -fornext_value1632=fornext_step1632+(*__LONG_I); -fornext_entrylabel1632: -*__LONG_I=fornext_value1632; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative1632){ -if (fornext_value1632fornext_finalvalue1632) break; -} -fornext_error1632:; -if(qbevent){evnt(11259);if(r)goto S_13555;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11260);}while(r); -fornext_continue_1631:; -} -fornext_exit_1631:; -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,qbs_new_txt_len("0};",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11262);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1634; -sub_file_print(tmp_fileno,__STRING_X2, 0 , 0 , 1 ); -if (new_error) goto skip1634; -skip1634: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11263);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1635; -sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *data=&inline_data[0];",28), 0 , 0 , 1 ); -if (new_error) goto skip1635; -skip1635: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11264);}while(r); -do{ -qbs_set(__STRING_X,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11265);}while(r); -do{ -qbs_set(__STRING_X2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11265);}while(r); -} -} -S_13565:; -if (( 0 )||new_error){ -if(qbevent){evnt(11269);if(r)goto S_13565;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1636; -sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0 , 0 , 1 ); -if (new_error) goto skip1636; -skip1636: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11269);}while(r); -} -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; -if(!qbevent)break;evnt(11270);}while(r); -do{ -*__LONG_NCOMMONTMP= 0 ; -if(!qbevent)break;evnt(11271);}while(r); -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(11272);}while(r); -S_13571:; -fornext_value1638= 1 ; -fornext_finalvalue1638=*__LONG_COMMONARRAYLISTN; -fornext_step1638= 1 ; -if (fornext_step1638<0) fornext_step_negative1638=1; else fornext_step_negative1638=0; -if (new_error) goto fornext_error1638; -goto fornext_entrylabel1638; -while(1){ -fornext_value1638=fornext_step1638+(*__LONG_X); -fornext_entrylabel1638: -*__LONG_X=fornext_value1638; -if (fornext_step_negative1638){ -if (fornext_value1638fornext_finalvalue1638) break; -} -fornext_error1638:; -if(qbevent){evnt(11273);if(r)goto S_13571;} -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11274);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11274);}while(r); -do{ -qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11275);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11275);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11276);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11276);}while(r); -do{ -*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11277);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11277);}while(r); -do{ -qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11280);}while(r); -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11281);}while(r); -S_13582:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11282);if(r)goto S_13582;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11282);}while(r); -} -S_13585:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(11283);if(r)goto S_13585;} -do{ -qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11283);}while(r); -} -S_13588:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11284);if(r)goto S_13588;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11284);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11285);}while(r); -S_13592:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11286);if(r)goto S_13592;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11286);}while(r); -} -S_13595:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(11287);if(r)goto S_13595;} -S_13596:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(11288);if(r)goto S_13596;} -do{ -goto LABEL_FOUNDCOMMONARRAY; -if(!qbevent)break;evnt(11288);}while(r); -} -S_13599:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(11289);if(r)goto S_13599;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(11289);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11289);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(11289);}while(r); -} -S_13605:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11290);if(r)goto S_13605;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11290);}while(r); -} -dl_continue_1639:; -} -dl_exit_1639:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11292);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11292);}while(r); -LABEL_FOUNDCOMMONARRAY:; -if(qbevent){evnt(11293);r=0;} -S_13611:; -if (( 0 )||new_error){ -if(qbevent){evnt(11294);if(r)goto S_13611;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1640; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found common array '",20),__STRING_VARNAME),qbs_new_txt_len("'!",2)), 0 , 0 , 1 ); -if (new_error) goto skip1640; -skip1640: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11294);}while(r); -} -do{ -*__LONG_I=*__LONG_CURRENTID; -if(!qbevent)break;evnt(11296);}while(r); -do{ -*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(11297);}while(r); -do{ -*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(11298);}while(r); -do{ -qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11299);}while(r); -S_13618:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(11300);if(r)goto S_13618;} -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11300);}while(r); -} -S_13621:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11301);if(r)goto S_13621;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11301);}while(r); -} -do{ -qbs_set(__STRING_N,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11302);}while(r); -do{ -qbs_set(__STRING_N2,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11303);}while(r); -do{ -*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(11304);}while(r); -do{ -*__LONG_COMMAND= 3 ; -if(!qbevent)break;evnt(11307);}while(r); -S_13628:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(11308);if(r)goto S_13628;} -S_13629:; -if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(11309);if(r)goto S_13629;} -do{ -*__LONG_COMMAND= 4 ; -if(!qbevent)break;evnt(11310);}while(r); -} -} -S_13633:; -if ((-(*__LONG_ARRAYELEMENTS== -1 ))||new_error){ -if(qbevent){evnt(11322);if(r)goto S_13633;} -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11328);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1641; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==2){",17), 0 , 0 , 1 ); -if (new_error) goto skip1641; -skip1641: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11329);}while(r); -do{ -qbs_set(__STRING_X,FUNC_STR2(&(pass1642=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11331);}while(r); -do{ -qbs_set(__STRING_X1,qbs_add(qbs_new_txt_len("chainarraybuf",13),__STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11332);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(qbs_new_txt_len("chainarraybufsiz",16),__STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11333);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1643; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static uint8 *",14),__STRING_X1),qbs_new_txt_len("=(uint8*)malloc(1);",19)), 0 , 0 , 1 ); -if (new_error) goto skip1643; -skip1643: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11334);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip1644; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static int64 ",13),__STRING_X2),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); -if (new_error) goto skip1644; -skip1644: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11335);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1645; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1645; -skip1645: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11337);}while(r); -S_13642:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11339);if(r)goto S_13642;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1646; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==3){",17), 0 , 0 , 1 ); -if (new_error) goto skip1646; -skip1646: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11339);}while(r); -} -S_13645:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11340);if(r)goto S_13645;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1647; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==4){",17), 0 , 0 , 1 ); -if (new_error) goto skip1647; -skip1647: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11340);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1648; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)), 0 , 0 , 1 ); -if (new_error) goto skip1648; -skip1648: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11341);}while(r); -S_13649:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11343);if(r)goto S_13649;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1649; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1649; -skip1649: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11345);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1650; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)), 0 , 0 , 1 ); -if (new_error) goto skip1650; -skip1650: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11346);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1651; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=int64val>>3;",18), 0 , 0 , 1 ); -if (new_error) goto skip1651; -skip1651: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11347);}while(r); -} -S_13654:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11350);if(r)goto S_13654;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1652; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); -if (new_error) goto skip1652; -skip1652: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11350);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1653; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1653; -skip1653: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11353);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1654; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)), 0 , 0 , 1 ); -if (new_error) goto skip1654; -skip1654: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11354);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1655; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(int32val--){",18), 0 , 0 , 1 ); -if (new_error) goto skip1655; -skip1655: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11357);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1656; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1656; -skip1656: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11358);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1657; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)), 0 , 0 , 1 ); -if (new_error) goto skip1657; -skip1657: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11359);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1658; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1658; -skip1658: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11360);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1659; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val2;",14)), 0 , 0 , 1 ); -if (new_error) goto skip1659; -skip1659: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11361);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1660; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); -if (new_error) goto skip1660; -skip1660: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11362);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1661; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1661; -skip1661: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11363);}while(r); -S_13666:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11365);if(r)goto S_13666;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1662; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=bytes; ",9)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1662; -skip1662: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11367);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1663; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-bytes),bytes,",14)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1663; -skip1663: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11368);}while(r); -} -S_13670:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11371);if(r)goto S_13670;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1664; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); -if (new_error) goto skip1664; -skip1664: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11372);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1665; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(bytei>3); ",17)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip1668; -skip1668: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11376);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1669; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-(int64val>>3)),(int64val>>3),",30)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1669; -skip1669: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11377);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1670; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); -if (new_error) goto skip1670; -skip1670: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11378);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1671; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1671; -skip1671: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11379);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1672; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1672; -skip1672: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11383);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1673; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1673; -skip1673: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11384);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1674; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1674; -skip1674: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11386);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(11387);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11392);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1675; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=2;",11), 0 , 0 , 1 ); -if (new_error) goto skip1675; -skip1675: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11393);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1676; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1676; -skip1676: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11394);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1677; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)",37),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1677; -skip1677: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11396);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(11397);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11407);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1678; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==2){",17), 0 , 0 , 1 ); -if (new_error) goto skip1678; -skip1678: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11409);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1679; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1679; -skip1679: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11410);}while(r); -S_13693:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11412);if(r)goto S_13693;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1680; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==3){",17), 0 , 0 , 1 ); -if (new_error) goto skip1680; -skip1680: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11412);}while(r); -} -S_13696:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11413);if(r)goto S_13696;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1681; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==4){",17), 0 , 0 , 1 ); -if (new_error) goto skip1681; -skip1681: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11413);}while(r); -} -S_13699:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11415);if(r)goto S_13699;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1682; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1682; -skip1682: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11417);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1683; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1683; -skip1683: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11422);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11425);}while(r); -S_13704:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11426);if(r)goto S_13704;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1684; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); -if (new_error) goto skip1684; -skip1684: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11426);}while(r); -} -S_13707:; -fornext_value1686= 1 ; -fornext_finalvalue1686=*__LONG_ARRAYELEMENTS; -fornext_step1686= 1 ; -if (fornext_step1686<0) fornext_step_negative1686=1; else fornext_step_negative1686=0; -if (new_error) goto fornext_error1686; -goto fornext_entrylabel1686; -while(1){ -fornext_value1686=fornext_step1686+(*__LONG_X2); -fornext_entrylabel1686: -*__LONG_X2=fornext_value1686; -if (fornext_step_negative1686){ -if (fornext_value1686fornext_finalvalue1686) break; -} -fornext_error1686:; -if(qbevent){evnt(11427);if(r)goto S_13707;} -S_13708:; -if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||new_error){ -if(qbevent){evnt(11430);if(r)goto S_13708;} -do{ -*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ; -if(!qbevent)break;evnt(11431);}while(r); -S_13710:; -if (( 0 )||new_error){ -if(qbevent){evnt(11433);if(r)goto S_13710;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1687; -sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0 , 0 , 1 ); -if (new_error) goto skip1687; -skip1687: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11433);}while(r); -} -S_13713:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11434);if(r)goto S_13713;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11434);}while(r); -} -do{ -*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1688= 0 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11435);}while(r); -S_13717:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11436);if(r)goto S_13717;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11436);}while(r); -} -do{ -*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1689= 0 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11437);}while(r); -S_13721:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11438);if(r)goto S_13721;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11438);}while(r); -} -S_13724:; -if (( 0 )||new_error){ -if(qbevent){evnt(11439);if(r)goto S_13724;} +if(qbevent){evnt(11655);if(r)goto S_14070;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1690; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0 , 0 , 1 ); if (new_error) goto skip1690; skip1690: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11439);}while(r); +if(!qbevent)break;evnt(11655);}while(r); } -S_13727:; +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(11656);}while(r); +S_14074:; +fornext_value1692= 1 ; +fornext_finalvalue1692=*__LONG_COMMONARRAYLISTN; +fornext_step1692= 1 ; +if (fornext_step1692<0) fornext_step_negative1692=1; else fornext_step_negative1692=0; +if (new_error) goto fornext_error1692; +goto fornext_entrylabel1692; +while(1){ +fornext_value1692=fornext_step1692+(*__LONG_X); +fornext_entrylabel1692: +*__LONG_X=fornext_value1692; +if (fornext_step_negative1692){ +if (fornext_value1692fornext_finalvalue1692) break; +} +fornext_error1692:; +if(qbevent){evnt(11657);if(r)goto S_14074;} +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11658);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11658);}while(r); +do{ +qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11659);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11659);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11660);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11660);}while(r); +do{ +*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11661);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11661);}while(r); +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11663);}while(r); +S_14084:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11440);if(r)goto S_13727;} +if(qbevent){evnt(11664);if(r)goto S_14084;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(11440);}while(r); +if(!qbevent)break;evnt(11664);}while(r); } +S_14087:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(11665);if(r)goto S_14087;} +do{ +qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11665);}while(r); } +S_14090:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11666);if(r)goto S_14090;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11666);}while(r); +} +S_14093:; +if (( 0 )||new_error){ +if(qbevent){evnt(11668);if(r)goto S_14093;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1691; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1691; -skip1691: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11445);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1692; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val;",10)), 0 , 0 , 1 ); -if (new_error) goto skip1692; -skip1692: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11446);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1693; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Checking for array '",20),__STRING_VARNAME),qbs_new_txt_len("'...",4)), 0 , 0 , 1 ); if (new_error) goto skip1693; skip1693: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11447);}while(r); +if(!qbevent)break;evnt(11668);}while(r); +} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1694; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val2;",11)), 0 , 0 , 1 ); -if (new_error) goto skip1694; -skip1694: +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11448);}while(r); -S_13735:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11449);if(r)goto S_13735;} +if(!qbevent)break;evnt(11670);}while(r); +S_14097:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11671);if(r)goto S_14097;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11671);}while(r); +} +S_14100:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(11672);if(r)goto S_14100;} +S_14101:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(11673);if(r)goto S_14101;} +do{ +goto LABEL_FOUNDCOMMONARRAY2; +if(!qbevent)break;evnt(11673);}while(r); +} +S_14104:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11674);if(r)goto S_14104;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(11674);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11674);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(11674);}while(r); +} +S_14110:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11675);if(r)goto S_14110;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11675);}while(r); +} +dl_continue_1694:; +} +dl_exit_1694:; +LABEL_FOUNDCOMMONARRAY2:; +if(qbevent){evnt(11677);r=0;} +S_14114:; +if (( 0 )||new_error){ +if(qbevent){evnt(11679);if(r)goto S_14114;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1695; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found array '",13),__STRING_VARNAME),qbs_new_txt_len("!",1)), 0 , 0 , 1 ); if (new_error) goto skip1695; skip1695: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11449);}while(r); +if(!qbevent)break;evnt(11679);}while(r); } -S_13738:; -if ((-(*__LONG_X2> 1 ))||new_error){ -if(qbevent){evnt(11450);if(r)goto S_13738;} +S_14117:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ +if(qbevent){evnt(11681);if(r)goto S_14117;} +S_14118:; +if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||new_error){ +if(qbevent){evnt(11682);if(r)goto S_14118;} do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11450);}while(r); +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11682);}while(r); } -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25)),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25)),FUNC_STR2(__LONG_X2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11451);}while(r); -fornext_continue_1685:; -} -fornext_exit_1685:; -S_13743:; +S_14121:; if (( 0 )||new_error){ -if(qbevent){evnt(11454);if(r)goto S_13743;} +if(qbevent){evnt(11683);if(r)goto S_14121;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1696; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Calling DIM2(",13),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")...",4)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0 , 0 , 1 ); if (new_error) goto skip1696; skip1696: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11454);}while(r); +if(!qbevent)break;evnt(11683);}while(r); } -S_13746:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11455);if(r)goto S_13746;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11455);}while(r); } -do{ -*__INTEGER_REDIMOPTION= 1 ; -if(!qbevent)break;evnt(11457);}while(r); -do{ -*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1697= 0 ),__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11458);}while(r); -S_13751:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11459);if(r)goto S_13751;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11459);}while(r); +fornext_continue_1691:; } -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(11460);}while(r); -S_13755:; +fornext_exit_1691:; +S_14126:; if (( 0 )||new_error){ -if(qbevent){evnt(11461);if(r)goto S_13755;} +if(qbevent){evnt(11686);if(r)goto S_14126;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1697; +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0 , 0 , 1 ); +if (new_error) goto skip1697; +skip1697: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11686);}while(r); +} +S_14129:; +if ((-(*__LONG_VWATCHDESIREDSTATE!=*__LONG_VWATCHON))||new_error){ +if(qbevent){evnt(11688);if(r)goto S_14129;} +do{ +*__LONG_VWATCHRECOMPILEATTEMPTS=*__LONG_VWATCHRECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(11689);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11690);}while(r); +} +S_14133:; +if ((*__INTEGER_RECOMPILE)||new_error){ +if(qbevent){evnt(11693);if(r)goto S_14133;} +LABEL_DO_RECOMPILE:; +if(qbevent){evnt(11694);r=0;} +S_14134:; +if (( 0 )||new_error){ +if(qbevent){evnt(11695);if(r)goto S_14134;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1698; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Finished calling DIM2(",22),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")!",2)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0 , 0 , 1 ); if (new_error) goto skip1698; skip1698: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11461);}while(r); +if(!qbevent)break;evnt(11695);}while(r); } -S_13758:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11462);if(r)goto S_13758;} do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11462);}while(r); +*__INTEGER_RECOMPILE= 0 ; +if(!qbevent)break;evnt(11696);}while(r); +S_14138:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11697);if(r)goto S_14138;} +do{ +*__LONG_IDERECOMPILE= 1 ; +if(!qbevent)break;evnt(11697);}while(r); } -S_13761:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11464);if(r)goto S_13761;} +S_14141:; +fornext_value1700= 1 ; +fornext_finalvalue1700= 255 ; +fornext_step1700= 1 ; +if (fornext_step1700<0) fornext_step_negative1700=1; else fornext_step_negative1700=0; +if (new_error) goto fornext_error1700; +goto fornext_entrylabel1700; +while(1){ +fornext_value1700=fornext_step1700+(*__LONG_CLOSEALL); +fornext_entrylabel1700: +*__LONG_CLOSEALL=fornext_value1700; +if (fornext_step_negative1700){ +if (fornext_value1700fornext_finalvalue1700) break; +} +fornext_error1700:; +if(qbevent){evnt(11698);if(r)goto S_14141;} do{ -qbs_set(__STRING_VARNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARNAME,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +sub_close(*__LONG_CLOSEALL,1); +if(!qbevent)break;evnt(11698);}while(r); +fornext_continue_1699:; +} +fornext_exit_1699:; +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11466);}while(r); +if(!qbevent)break;evnt(11699);}while(r); do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1699= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11467);}while(r); -S_13764:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11468);if(r)goto S_13764;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11468);}while(r); +goto LABEL_RECOMPILE; +if(!qbevent)break;evnt(11700);}while(r); } +S_14147:; +if (( 0 )||new_error){ +if(qbevent){evnt(11703);if(r)goto S_14147;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1700; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1700; -skip1700: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11469);}while(r); -} -S_13769:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11472);if(r)goto S_13769;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1701; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0 , 0 , 1 ); if (new_error) goto skip1701; skip1701: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11473);}while(r); +if(!qbevent)break;evnt(11703);}while(r); +} +S_14150:; +fornext_value1703= 1 ; +fornext_finalvalue1703=*__LONG_NLABELS; +fornext_step1703= 1 ; +if (fornext_step1703<0) fornext_step_negative1703=1; else fornext_step_negative1703=0; +if (new_error) goto fornext_error1703; +goto fornext_entrylabel1703; +while(1){ +fornext_value1703=fornext_step1703+(*__LONG_R); +fornext_entrylabel1703: +*__LONG_R=fornext_value1703; +if (fornext_step_negative1703){ +if (fornext_value1703fornext_finalvalue1703) break; +} +fornext_error1703:; +if(qbevent){evnt(11704);if(r)goto S_14150;} +S_14151:; +if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))||new_error){ +if(qbevent){evnt(11706);if(r)goto S_14151;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1702; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(bytei>3,1));",37), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0 , 0 , 0 ); +if (new_error) goto skip1705; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)), 0 , 0 , 1 ); if (new_error) goto skip1705; skip1705: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11477);}while(r); +if(!qbevent)break;evnt(11725);}while(r); +} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1706; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)tqbs->chr,int64val>>3,",59),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1706; -skip1706: +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(11726);}while(r); +} +} +do{ +*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)); +if(!qbevent)break;evnt(11730);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Label '",7),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))),qbs_new_txt_len("' not defined",13))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11478);}while(r); +if(!qbevent)break;evnt(11730);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11730);}while(r); +} +S_14181:; +if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))||new_error){ +if(qbevent){evnt(11734);if(r)goto S_14181;} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(11737);}while(r); +do{ +qbs_set(__STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11738);}while(r); +do{ +*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11739);}while(r); +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1706= 2 ),__LONG_IGNORE,__LONG_R2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11740);}while(r); +LABEL_ADDLABCHK4:; +if(qbevent){evnt(11741);r=0;} +S_14186:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(11742);if(r)goto S_14186;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(11743);}while(r); +S_14188:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(11744);if(r)goto S_14188;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); +if(!qbevent)break;evnt(11744);}while(r); +do{ +goto LABEL_ADDLABCHK4; +if(!qbevent)break;evnt(11744);}while(r); +} +} +S_14193:; +if ((-(*__LONG_X!= 1 ))||new_error){ +if(qbevent){evnt(11746);if(r)goto S_14193;} +do{ +*__LONG_LINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270)); +if(!qbevent)break;evnt(11746);}while(r); +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Ambiguous DATA label",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11746);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11746);}while(r); +} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1707; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_at_LABEL_",23),__STRING_A),qbs_new_txt_len("=",1)),FUNC_STR2(&(pass1708=*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1707; skip1707: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11479);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1708; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1708; -skip1708: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11480);}while(r); +if(!qbevent)break;evnt(11749);}while(r); } +fornext_continue_1702:; +} +fornext_exit_1702:; +S_14201:; +if (( 0 )||new_error){ +if(qbevent){evnt(11754);if(r)goto S_14201;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1709; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0 , 0 , 1 ); if (new_error) goto skip1709; skip1709: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11484);}while(r); +if(!qbevent)break;evnt(11754);}while(r); +} +do{ +sub_close( 12 ,1); +if(!qbevent)break;evnt(11763);}while(r); +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11766);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE= 18 ; +if(!qbevent)break;evnt(11767);}while(r); +do{ +sub_close( 13 ,1); +if(!qbevent)break;evnt(11768);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11768);}while(r); +do{ +sub_close( 19 ,1); +if(!qbevent)break;evnt(11769);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11769);}while(r); +S_14211:; +if ((*__LONG_CONSOLE)||new_error){ +if(qbevent){evnt(11771);if(r)goto S_14211;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1710; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 console=1;",16), 0 , 0 , 1 ); if (new_error) goto skip1710; skip1710: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11485);}while(r); +if(!qbevent)break;evnt(11772);}while(r); +}else{ do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1711; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 console=0;",16), 0 , 0 , 1 ); if (new_error) goto skip1711; skip1711: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11486);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(11487);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11491);}while(r); +if(!qbevent)break;evnt(11774);}while(r); +} +S_14216:; +if ((*__LONG_SCREENHIDE)||new_error){ +if(qbevent){evnt(11777);if(r)goto S_14216;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1712; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=2;",11), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 screen_hide_startup=1;",28), 0 , 0 , 1 ); if (new_error) goto skip1712; skip1712: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11493);}while(r); +if(!qbevent)break;evnt(11778);}while(r); +}else{ do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1713; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 screen_hide_startup=0;",28), 0 , 0 , 1 ); if (new_error) goto skip1713; skip1713: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11494);}while(r); +if(!qbevent)break;evnt(11780);}while(r); +} +S_14221:; +if ((*__LONG_ASSERTS)||new_error){ +if(qbevent){evnt(11783);if(r)goto S_14221;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1714; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N2),qbs_new_txt_len("[2]&1){",7)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 asserts=1;",16), 0 , 0 , 1 ); if (new_error) goto skip1714; skip1714: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11496);}while(r); -S_13787:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11498);if(r)goto S_13787;} +if(!qbevent)break;evnt(11784);}while(r); +}else{ do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1715; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=3;",11), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 asserts=0;",16), 0 , 0 , 1 ); if (new_error) goto skip1715; skip1715: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11498);}while(r); +if(!qbevent)break;evnt(11786);}while(r); } -S_13790:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11499);if(r)goto S_13790;} +S_14226:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(11789);if(r)goto S_14226;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1716; -sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=4;",11), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 vwatch=-1;",16), 0 , 0 , 1 ); if (new_error) goto skip1716; skip1716: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11499);}while(r); -} +if(!qbevent)break;evnt(11790);}while(r); +}else{ do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1717; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32 vwatch=0;",15), 0 , 0 , 1 ); if (new_error) goto skip1717; skip1717: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11500);}while(r); -S_13794:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11502);if(r)goto S_13794;} -do{ -*__LONG_BITS=*__LONG_T& 511 ; -if(!qbevent)break;evnt(11504);}while(r); -S_13796:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(11505);if(r)goto S_13796;} -do{ -*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(11505);}while(r); +if(!qbevent)break;evnt(11792);}while(r); } -S_13799:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(11506);if(r)goto S_13799;} do{ -*__LONG_BITS=*__LONG_TSIZE* 8 ; -if(!qbevent)break;evnt(11506);}while(r); -} +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(11795);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("dyninfo.txt",11)), 5 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11796);}while(r); +S_14233:; +if ((*__LONG_RESIZE)||new_error){ +if(qbevent){evnt(11797);if(r)goto S_14233;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1718; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("ScreenResize=1;",15), 0 , 0 , 1 ); if (new_error) goto skip1718; skip1718: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11507);}while(r); +if(!qbevent)break;evnt(11798);}while(r); +} +S_14236:; +if ((*__LONG_RESIZE_SCALE)||new_error){ +if(qbevent){evnt(11800);if(r)goto S_14236;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno=*__LONG_FH; if (new_error) goto skip1719; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),FUNC_STR2(__LONG_RESIZE_SCALE)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1719; skip1719: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11508);}while(r); +if(!qbevent)break;evnt(11801);}while(r); +} +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(11803);}while(r); +S_14240:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11805);if(r)goto S_14240;} +do{ +SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1720= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11806);}while(r); } do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1720; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),FUNC_STR2(__LONG_ARRAYELEMENTS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1720; -skip1720: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11511);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1721; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),FUNC_STR2(__LONG_DATAOFFSET)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1721; skip1721: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11512);}while(r); -S_13807:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(11514);if(r)goto S_13807;} -S_13808:; -fornext_value1723= 1 ; -fornext_finalvalue1723=*__LONG_ARRAYELEMENTS; -fornext_step1723= 1 ; -if (fornext_step1723<0) fornext_step_negative1723=1; else fornext_step_negative1723=0; -if (new_error) goto fornext_error1723; -goto fornext_entrylabel1723; -while(1){ -fornext_value1723=fornext_step1723+(*__LONG_X2); -fornext_entrylabel1723: -*__LONG_X2=fornext_value1723; -if (fornext_step_negative1723){ -if (fornext_value1723fornext_finalvalue1723) break; -} -fornext_error1723:; -if(qbevent){evnt(11516);if(r)goto S_13808;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11518);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1724= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11519);}while(r); -S_13811:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11520);if(r)goto S_13811;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11520);}while(r); -} +if(!qbevent)break;evnt(11811);}while(r); +S_14244:; +if ((-(*__LONG_DATAOFFSET== 0 ))||new_error){ +if(qbevent){evnt(11812);if(r)goto S_14244;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1722; +sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32), 0 , 0 , 1 ); +if (new_error) goto skip1722; +skip1722: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11814);}while(r); +}else{ +S_14247:; +if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ +if(qbevent){evnt(11818);if(r)goto S_14247;} +S_14248:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(11819);if(r)goto S_14248;} +S_14249:; +if ((-(*__LONG_OS_BITS== 32 ))||new_error){ +if(qbevent){evnt(11820);if(r)goto S_14249;} +do{ +qbs_set(__STRING_X,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11821);}while(r); +do{ +sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1723),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11821);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1724; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip1724; +skip1724: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11822);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1725; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *binary_____temp",28),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); if (new_error) goto skip1725; skip1725: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11521);}while(r); +if(!qbevent)break;evnt(11823);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; +tab_fileno=tmp_fileno= 18 ; if (new_error) goto skip1726; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1726; skip1726: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11522);}while(r); -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11523);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1727= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11524);}while(r); -S_13818:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11525);if(r)goto S_13818;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11525);}while(r); -} +if(!qbevent)break;evnt(11824);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1728; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1728; -skip1728: +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1727; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&binary_____temp",36),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); +if (new_error) goto skip1727; +skip1727: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(11526);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1729; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1729; -skip1729: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11527);}while(r); -fornext_continue_1722:; -} -fornext_exit_1722:; -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_N,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))),&(pass1730= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11531);}while(r); -S_13825:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11532);if(r)goto S_13825;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11532);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1731; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); -if (new_error) goto skip1731; -skip1731: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11533);}while(r); -} -S_13830:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(11537);if(r)goto S_13830;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1732; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); -if (new_error) goto skip1732; -skip1732: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11540);}while(r); -S_13832:; -fornext_value1734= 1 ; -fornext_finalvalue1734=*__LONG_ARRAYELEMENTS; -fornext_step1734= 1 ; -if (fornext_step1734<0) fornext_step_negative1734=1; else fornext_step_negative1734=0; -if (new_error) goto fornext_error1734; -goto fornext_entrylabel1734; -while(1){ -fornext_value1734=fornext_step1734+(*__LONG_X2); -fornext_entrylabel1734: -*__LONG_X2=fornext_value1734; -if (fornext_step_negative1734){ -if (fornext_value1734fornext_finalvalue1734) break; -} -fornext_error1734:; -if(qbevent){evnt(11541);if(r)goto S_13832;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11542);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1735= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11543);}while(r); -S_13835:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11544);if(r)goto S_13835;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11544);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1736; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1736; -skip1736: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11545);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1737; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1737; -skip1737: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11546);}while(r); -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11547);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1738= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11548);}while(r); -S_13842:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11549);if(r)goto S_13842;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11549);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1739; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val2=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip1739; -skip1739: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11550);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1740; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1740; -skip1740: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11551);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1741; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); -if (new_error) goto skip1741; -skip1741: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11552);}while(r); -fornext_continue_1733:; -} -fornext_exit_1733:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1742; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); -if (new_error) goto skip1742; -skip1742: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11555);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1743; -sub_file_print(tmp_fileno,qbs_new_txt_len("while(byteilen; int64val<<=3;",33), 0 , 0 , 1 ); -if (new_error) goto skip1745; -skip1745: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11558);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1746; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1746; -skip1746: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11559);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1747; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)tqbs->chr,tqbs->len,",57),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); -if (new_error) goto skip1747; -skip1747: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11560);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1748; -sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); -if (new_error) goto skip1748; -skip1748: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11561);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1749; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1749; -skip1749: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11562);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip1750; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1750; -skip1750: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11566);}while(r); -do{ -sub_close( 12 ,1); -if(!qbevent)break;evnt(11568);}while(r); -} -fornext_continue_1637:; -} -fornext_exit_1637:; -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(11666);}while(r); -S_13863:; -if (( 0 )||new_error){ -if(qbevent){evnt(11667);if(r)goto S_13863;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1751; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0 , 0 , 1 ); -if (new_error) goto skip1751; -skip1751: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11667);}while(r); -} -S_13866:; -fornext_value1753= 1 ; -fornext_finalvalue1753= 255 ; -fornext_step1753= 1 ; -if (fornext_step1753<0) fornext_step_negative1753=1; else fornext_step_negative1753=0; -if (new_error) goto fornext_error1753; -goto fornext_entrylabel1753; -while(1){ -fornext_value1753=fornext_step1753+(*__LONG_CLOSEALL); -fornext_entrylabel1753: -*__LONG_CLOSEALL=fornext_value1753; -if (fornext_step_negative1753){ -if (fornext_value1753fornext_finalvalue1753) break; -} -fornext_error1753:; -if(qbevent){evnt(11670);if(r)goto S_13866;} -do{ -sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(11670);}while(r); -fornext_continue_1752:; -} -fornext_exit_1752:; -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11671);}while(r); -do{ -qbs_set(__STRING_COMPILELOG,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("compilelog.txt",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11672);}while(r); -do{ -sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11673);}while(r); -do{ -sub_close( 1 ,1); -if(!qbevent)break;evnt(11673);}while(r); -S_13873:; -if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||new_error){ -if(qbevent){evnt(11682);if(r)goto S_13873;} -S_13874:; -if ((-(*__LONG_IDEMODE== 0 ))||new_error){ -if(qbevent){evnt(11683);if(r)goto S_13874;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("WARNING:",8)); -if (new_error) goto skip1754; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_str((int32)(*__LONG_TOTALUNUSEDVARIABLES))); -if (new_error) goto skip1754; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(" unused variable",16)); -if (new_error) goto skip1754; -makefit(tqbs); -qbs_print(tqbs,0); -skip1754: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11684);}while(r); -S_13876:; -if ((-(*__LONG_TOTALUNUSEDVARIABLES> 1 ))||new_error){ -if(qbevent){evnt(11685);if(r)goto S_13876;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("s",1)); -if (new_error) goto skip1755; -makefit(tqbs); -qbs_print(tqbs,0); -skip1755: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11685);}while(r); -} -S_13879:; -if ((*__BYTE_VERBOSEMODE)||new_error){ -if(qbevent){evnt(11686);if(r)goto S_13879;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(":",1)); -if (new_error) goto skip1756; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1756: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11687);}while(r); -do{ -*__LONG_FINDITEM= 0 ; -if(!qbevent)break;evnt(11688);}while(r); -S_13882:; -do{ -if(qbevent){evnt(11689);if(r)goto S_13882;} -do{ -qbs_set(__STRING_S,qbs_add(qbs_add(func_chr( 2 ),qbs_new_txt_len("VAR:",4)),func_chr( 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11690);}while(r); -do{ -*__LONG_FINDITEM=func_instr(*__LONG_FINDITEM+ 1 ,__STRING_USEDVARIABLELIST,__STRING_S,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11691);}while(r); -S_13885:; -if ((-(*__LONG_FINDITEM== 0 ))||new_error){ -if(qbevent){evnt(11692);if(r)goto S_13885;} -do{ -goto dl_exit_1757; -if(!qbevent)break;evnt(11692);}while(r); -} -do{ -*__LONG_WHICHLINE=string2l(func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM- 4 , 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11693);}while(r); -do{ -*__LONG_VARNAMELEN=string2i(func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 6 , 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11694);}while(r); -do{ -qbs_set(__STRING_INTERNALVARNAME,func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 8 ,*__LONG_VARNAMELEN,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11695);}while(r); -do{ -*__LONG_FINDLF=func_instr(*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN,__STRING_USEDVARIABLELIST,func_chr( 10 ),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11696);}while(r); -do{ -qbs_set(__STRING_VARNAME,func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN,*__LONG_FINDLF-(*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN),1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11697);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space( 4 )); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_VARNAME); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(" (",2)); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_INTERNALVARNAME); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(", line",6)); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_str((int32)(*__LONG_WHICHLINE))); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(")",1)); -if (new_error) goto skip1758; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1758: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11698);}while(r); -dl_continue_1757:; -}while(1); -dl_exit_1757:; +if(!qbevent)break;evnt(11825);}while(r); }else{ do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1759: -qbs_free(tqbs); +qbs_set(__STRING_X,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11701);}while(r); -} -}else{ +if(!qbevent)break;evnt(11827);}while(r); do{ -*__LONG_FINDITEM= 0 ; -if(!qbevent)break;evnt(11704);}while(r); -do{ -*__LONG_MAXVARNAMELEN= 0 ; -if(!qbevent)break;evnt(11705);}while(r); -S_13901:; -do{ -if(qbevent){evnt(11706);if(r)goto S_13901;} -do{ -qbs_set(__STRING_S,qbs_add(qbs_add(func_chr( 2 ),qbs_new_txt_len("VAR:",4)),func_chr( 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11707);}while(r); -do{ -*__LONG_FINDITEM=func_instr(*__LONG_FINDITEM+ 1 ,__STRING_USEDVARIABLELIST,__STRING_S,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11708);}while(r); -S_13904:; -if ((-(*__LONG_FINDITEM== 0 ))||new_error){ -if(qbevent){evnt(11709);if(r)goto S_13904;} -do{ -goto dl_exit_1760; -if(!qbevent)break;evnt(11709);}while(r); -} -do{ -*__LONG_VARNAMELEN=string2i(func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 6 , 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11710);}while(r); -do{ -qbs_set(__STRING_INTERNALVARNAME,func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 8 ,*__LONG_VARNAMELEN,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11711);}while(r); -do{ -*__LONG_FINDLF=func_instr(*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN,__STRING_USEDVARIABLELIST,func_chr( 10 ),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11712);}while(r); -do{ -qbs_set(__STRING_VARNAME,func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN,*__LONG_FINDLF-(*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN),1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11713);}while(r); -S_13911:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VARNAME->len>*__LONG_MAXVARNAMELEN)))||new_error){ -if(qbevent){evnt(11714);if(r)goto S_13911;} -do{ -*__LONG_MAXVARNAMELEN=__STRING_VARNAME->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11714);}while(r); -} -dl_continue_1760:; -}while(1); -dl_exit_1760:; -do{ -*__LONG_FINDITEM= 0 ; -if(!qbevent)break;evnt(11717);}while(r); -do{ -SUB_ADDWARNING(&(pass1763= 0 ),qbs_add(qbs_add(qbs_new_txt_len("Unused variables (",18),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALUNUSEDVARIABLES)))),qbs_new_txt_len("):",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11718);}while(r); -S_13917:; -do{ -if(qbevent){evnt(11719);if(r)goto S_13917;} -do{ -qbs_set(__STRING_S,qbs_add(qbs_add(func_chr( 2 ),qbs_new_txt_len("VAR:",4)),func_chr( 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11720);}while(r); -do{ -*__LONG_FINDITEM=func_instr(*__LONG_FINDITEM+ 1 ,__STRING_USEDVARIABLELIST,__STRING_S,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11721);}while(r); -S_13920:; -if ((-(*__LONG_FINDITEM== 0 ))||new_error){ -if(qbevent){evnt(11722);if(r)goto S_13920;} -do{ -goto dl_exit_1764; -if(!qbevent)break;evnt(11722);}while(r); -} -do{ -*__LONG_WHICHLINE=string2l(func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM- 4 , 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11723);}while(r); -do{ -*__LONG_VARNAMELEN=string2i(func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 6 , 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11724);}while(r); -do{ -qbs_set(__STRING_INTERNALVARNAME,func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 8 ,*__LONG_VARNAMELEN,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11725);}while(r); -do{ -*__LONG_FINDLF=func_instr(*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN,__STRING_USEDVARIABLELIST,func_chr( 10 ),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11726);}while(r); -do{ -qbs_set(__STRING_VARNAME,func_mid(__STRING_USEDVARIABLELIST,*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN,*__LONG_FINDLF-(*__LONG_FINDITEM+ 9 +*__LONG_VARNAMELEN),1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11727);}while(r); -do{ -SUB_ADDWARNING(__LONG_WHICHLINE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARNAME,func_space((*__LONG_MAXVARNAMELEN+ 1 )-__STRING_VARNAME->len)),qbs_new_txt_len(" (",2)),__STRING_INTERNALVARNAME),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11728);}while(r); -dl_continue_1764:; -}while(1); -dl_exit_1764:; -} -} -S_13932:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(11733);if(r)goto S_13932;} -do{ -goto LABEL_IDERET5; -if(!qbevent)break;evnt(11733);}while(r); -} -LABEL_IDE6:; -if(qbevent){evnt(11734);r=0;} -S_13935:; -if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_NO_C_COMPILE_MODE== 0 )))||new_error){ -if(qbevent){evnt(11736);if(r)goto S_13935;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1766: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11737);}while(r); -S_13937:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(11738);if(r)goto S_13937;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("COMPILING C++ CODE INTO EXECUTABLE...",37)); -if (new_error) goto skip1767; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1767: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11739);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("COMPILING C++ CODE INTO EXE...",30)); -if (new_error) goto skip1768; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1768: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11741);}while(r); -} -S_13942:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len))||new_error){ -if(qbevent){evnt(11743);if(r)goto S_13942;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_OUTPUTFILE_CMD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11745);}while(r); -do{ -qbs_set(__STRING_F,func_mid(__STRING_OUTPUTFILE_CMD,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11746);}while(r); -do{ -qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11747);}while(r); -S_13946:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__OUT->len))||new_error){ -if(qbevent){evnt(11748);if(r)goto S_13946;} -S_13947:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||new_error){ -if(qbevent){evnt(11749);if(r)goto S_13947;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1772: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11750);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("CAN'T CREATE OUTPUT EXECUTABLE - PATH NOT FOUND: ",49),__STRING_PATH__ASCII_CHR_046__OUT)); -if (new_error) goto skip1773; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1773: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11751);}while(r); -S_13950:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(11752);if(r)goto S_13950;} -do{ -if(qbevent){evnt(11752);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(11752);}while(r); -} -do{ -if(qbevent){evnt(11753);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(11753);}while(r); -} -do{ -qbs_set(__STRING_CURRENTDIR,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11755);}while(r); -do{ -sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11756);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11757);}while(r); -do{ -sub_chdir(__STRING_CURRENTDIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11758);}while(r); -S_13959:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||new_error){ -if(qbevent){evnt(11759);if(r)goto S_13959;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,qbs_add(__STRING_PATH__ASCII_CHR_046__OUT,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11759);}while(r); -} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__OUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11760);}while(r); -do{ -*__BYTE_SAVEEXEWITHSOURCE= -1 ; -if(!qbevent)break;evnt(11761);}while(r); -} -} -do{ -qbs_set(__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__EXE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11764);}while(r); -S_13967:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||new_error){ -if(qbevent){evnt(11765);if(r)goto S_13967;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11765);}while(r); -} -S_13970:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ -if(qbevent){evnt(11766);if(r)goto S_13970;} -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(11767);}while(r); -do{ -error_goto_line=9; -if(!qbevent)break;evnt(11768);}while(r); -do{ -sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11769);}while(r); -do{ -error_goto_line=10; -if(!qbevent)break;evnt(11770);}while(r); -S_13975:; -if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(11771);if(r)goto S_13975;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CANNOT CREATE ",14),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len(" BECAUSE THE FILE IS ALREADY IN USE!",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11772);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11772);}while(r); -} -} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11775);}while(r); -} -S_13982:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(11779);if(r)goto S_13982;} -S_13983:; -if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(11781);if(r)goto S_13983;} -S_13984:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))))||new_error){ -if(qbevent){evnt(11782);if(r)goto S_13984;} -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(11783);}while(r); -do{ -error_goto_line=11; -if(!qbevent)break;evnt(11784);}while(r); -do{ -sub_kill(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11785);}while(r); -S_13988:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_E== 1 ))|(-(func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))== -1 ))))||new_error){ -if(qbevent){evnt(11786);if(r)goto S_13988;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Error creating resource file",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11786);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11786);}while(r); -} -do{ -error_goto_line=12; -if(!qbevent)break;evnt(11787);}while(r); -} -} -S_13995:; -if ((*__LONG_EXEICONSET)||new_error){ -if(qbevent){evnt(11791);if(r)goto S_13995;} -do{ -*__LONG_LINENUMBER=*__LONG_EXEICONSET; -if(!qbevent)break;evnt(11792);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,qbs_add(qbs_add(qbs_new_txt_len(" $EXEICON:'",11),__STRING_EXEICONFILE),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11793);}while(r); -} -S_13999:; -if ((*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(11796);if(r)goto S_13999;} -do{ -*__LONG_ICONFILEHANDLE=func_freefile(); -if(!qbevent)break;evnt(11797);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 5 ,NULL,NULL,*__LONG_ICONFILEHANDLE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11798);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1774; -sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); -if (new_error) goto skip1774; -skip1774: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11799);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1775; -sub_file_print(tmp_fileno,qbs_new_txt_len("1 VERSIONINFO",13), 0 , 0 , 1 ); -if (new_error) goto skip1775; -skip1775: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11800);}while(r); -S_14004:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||new_error){ -if(qbevent){evnt(11801);if(r)goto S_14004;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1777; -sub_file_print(tmp_fileno,qbs_new_txt_len("FILEVERSION ",16), 0 , 0 , 0 ); -if (new_error) goto skip1777; -sub_file_print(tmp_fileno,__STRING_VIFILEVERSIONNUM, 0 , 0 , 1 ); -if (new_error) goto skip1777; -skip1777: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11801);}while(r); -} -S_14007:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||new_error){ -if(qbevent){evnt(11802);if(r)goto S_14007;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1779; -sub_file_print(tmp_fileno,qbs_new_txt_len("PRODUCTVERSION ",16), 0 , 0 , 0 ); -if (new_error) goto skip1779; -sub_file_print(tmp_fileno,__STRING_VIPRODUCTVERSIONNUM, 0 , 0 , 1 ); -if (new_error) goto skip1779; -skip1779: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11802);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1780; -sub_file_print(tmp_fileno,qbs_new_txt_len("BEGIN",5), 0 , 0 , 1 ); -if (new_error) goto skip1780; -skip1780: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11803);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1781; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",10),FUNC_QUOTEDFILENAME(qbs_new_txt_len("StringFileInfo",14))), 0 , 0 , 1 ); -if (new_error) goto skip1781; -skip1781: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11804);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1782; -sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",9), 0 , 0 , 1 ); -if (new_error) goto skip1782; -skip1782: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11805);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1783; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",14),FUNC_QUOTEDFILENAME(qbs_new_txt_len("040904E4",8))), 0 , 0 , 1 ); -if (new_error) goto skip1783; -skip1783: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11806);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1784; -sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",13), 0 , 0 , 1 ); -if (new_error) goto skip1784; -skip1784: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11807);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1785; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("CompanyName",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1785; -skip1785: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11808);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1786; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("FileDescription",15))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1786; -skip1786: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11809);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1787; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("FileVersion",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIFILEVERSION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1787; -skip1787: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11810);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1788; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("InternalName",12))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIINTERNALNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1788; -skip1788: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11811);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1789; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("LegalCopyright",14))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1789; -skip1789: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11812);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1790; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("LegalTrademarks",15))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1790; -skip1790: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11813);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1791; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("OriginalFilename",16))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1791; -skip1791: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11814);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1792; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("ProductName",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIPRODUCTNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1792; -skip1792: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11815);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1793; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("ProductVersion",14))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1793; -skip1793: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11816);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1794; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Comments",8))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VICOMMENTS,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1794; -skip1794: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11817);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1795; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Web",3))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIWEB,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); -if (new_error) goto skip1795; -skip1795: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11818);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1796; -sub_file_print(tmp_fileno,qbs_new_txt_len(" END",11), 0 , 0 , 1 ); -if (new_error) goto skip1796; -skip1796: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11819);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1797; -sub_file_print(tmp_fileno,qbs_new_txt_len(" END",7), 0 , 0 , 1 ); -if (new_error) goto skip1797; -skip1797: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11820);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; -if (new_error) goto skip1798; -sub_file_print(tmp_fileno,qbs_new_txt_len("END",3), 0 , 0 , 1 ); -if (new_error) goto skip1798; -skip1798: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11821);}while(r); -do{ -sub_close(*__LONG_ICONFILEHANDLE,1); -if(!qbevent)break;evnt(11822);}while(r); -} -S_14031:; -if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(11825);if(r)goto S_14031;} -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(11826);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("call_windres.bat",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1728),0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11827);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1799; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\windres.exe -i ",41),__STRING_TMPDIR),qbs_new_txt_len("icon.rc -o ",11)),__STRING_TMPDIR),qbs_new_txt_len("icon.o",6)), 0 , 0 , 1 ); -if (new_error) goto skip1799; -skip1799: +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1729; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip1729; +skip1729: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(11828);}while(r); do{ -sub_close(*__LONG_FFH,1); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1730; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_____temp",29),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); +if (new_error) goto skip1730; +skip1730: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11829);}while(r); do{ -sub_shell2(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("call_windres.bat",16)),2); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1731; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1731; +skip1731: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11830);}while(r); -S_14037:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))== 0 )))||new_error){ -if(qbevent){evnt(11831);if(r)goto S_14037;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("Bad icon file",13)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1732; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_____temp",37),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("__data_bin_start;",17)), 0 , 0 , 1 ); +if (new_error) goto skip1732; +skip1732: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11832);}while(r); -S_14039:; -if ((*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(11833);if(r)goto S_14039;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_A,qbs_new_txt_len(" or invalid $VERSIONINFO values",31))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11833);}while(r); -} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11834);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11831);}while(r); } } -} -do{ -qbs_set(__STRING_O,qbs_lcase(__STRING_OS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11841);}while(r); -do{ -*__LONG_WIN= 0 ; -if(!qbevent)break;evnt(11842);}while(r); -S_14048:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(11842);if(r)goto S_14048;} -do{ -*__LONG_WIN= 1 ; -if(!qbevent)break;evnt(11842);}while(r); -} -do{ -*__LONG_LNX= 0 ; -if(!qbevent)break;evnt(11843);}while(r); -S_14052:; +S_14265:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(11843);if(r)goto S_14052;} +if(qbevent){evnt(11834);if(r)goto S_14265;} do{ -*__LONG_LNX= 1 ; +qbs_set(__STRING_X,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11835);}while(r); +do{ +sub_put2( 16 ,NULL,byte_element((uint64)__STRING_X->chr,__STRING_X->len,byte_element_1733),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11835);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1734; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip1734; +skip1734: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11836);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1735; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary____temp",28),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16)), 0 , 0 , 1 ); +if (new_error) goto skip1735; +skip1735: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11837);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1736; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1736; +skip1736: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11838);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1737; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary____temp",36),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16)), 0 , 0 , 1 ); +if (new_error) goto skip1737; +skip1737: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11839);}while(r); +} +}else{ +do{ +sub_close( 16 ,1); if(!qbevent)break;evnt(11843);}while(r); -} do{ -*__LONG_MAC= 0 ; -if(!qbevent)break;evnt(11844);}while(r); -S_14056:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(11844);if(r)goto S_14056;} -do{ -*__LONG_MAC= 1 ; +*__LONG_FF=func_freefile(); if(!qbevent)break;evnt(11844);}while(r); do{ -qbs_set(__STRING_O,qbs_new_txt_len("osx",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11844);}while(r); -} -do{ -qbs_set(__STRING_DEFINES,qbs_new_txt_len("",0)); +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("data.bin",8)), 2 ,NULL,NULL,*__LONG_FF,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11845);}while(r); do{ -qbs_set(__STRING_DEFINES_HEADER,qbs_new_txt_len(" -D ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11845);}while(r); -do{ -qbs_set(__STRING_VER,__STRING_VERSION); +qbs_set(__STRING_X,func_space(func_lof(*__LONG_FF))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11846);}while(r); do{ -*__LONG_X=func_instr(NULL,__STRING_VER,qbs_new_txt_len(".",1),0); +sub_get2(*__LONG_FF,NULL,__STRING_X,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11847);}while(r); -S_14064:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(11847);if(r)goto S_14064;} do{ -tqbs=__STRING_VER; if (!new_error){ -tmp_fileno=*__LONG_X; if (!new_error){ -tmp_long= 95 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(11847);}while(r); -} -do{ -qbs_set(__STRING_LIBS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); +sub_close(*__LONG_FF,1); if(!qbevent)break;evnt(11848);}while(r); -S_14068:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11850);if(r)goto S_14068;} -S_14069:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(11851);if(r)goto S_14069;} do{ -qbs_set(__STRING_A,qbs_new_txt_len("GL not supported on QLOUD",25)); +qbs_set(__STRING_X2,qbs_new_txt_len("uint8 inline_data[]={",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11849);}while(r); +S_14281:; +fornext_value1739= 1 ; +fornext_finalvalue1739=__STRING_X->len; +fornext_step1739= 1 ; +if (fornext_step1739<0) fornext_step_negative1739=1; else fornext_step_negative1739=0; +if (new_error) goto fornext_error1739; +goto fornext_entrylabel1739; +while(1){ +fornext_value1739=fornext_step1739+(*__LONG_I); +fornext_entrylabel1739: +*__LONG_I=fornext_value1739; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative1739){ +if (fornext_value1739fornext_finalvalue1739) break; +} +fornext_error1739:; +if(qbevent){evnt(11850);if(r)goto S_14281;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11851);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11851);}while(r); +fornext_continue_1738:; } +fornext_exit_1738:; do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_GL",13))); +qbs_set(__STRING_X2,qbs_add(__STRING_X2,qbs_new_txt_len("0};",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11852);}while(r); -} -S_14075:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11855);if(r)goto S_14075;} +if(!qbevent)break;evnt(11853);}while(r); do{ -tmp_long=array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1741; +sub_file_print(tmp_fileno,__STRING_X2, 0 , 0 , 1 ); +if (new_error) goto skip1741; +skip1741: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11854);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1742; +sub_file_print(tmp_fileno,qbs_new_txt_len("uint8 *data=&inline_data[0];",28), 0 , 0 , 1 ); +if (new_error) goto skip1742; +skip1742: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11855);}while(r); +do{ +qbs_set(__STRING_X,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11856);}while(r); +do{ +qbs_set(__STRING_X2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11856);}while(r); } -S_14078:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11859);if(r)goto S_14078;} +} +S_14291:; +if (( 0 )||new_error){ +if(qbevent){evnt(11860);if(r)goto S_14291;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_IMAGE_CODEC",22))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1743; +sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0 , 0 , 1 ); +if (new_error) goto skip1743; +skip1743: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11860);}while(r); } -S_14081:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11863);if(r)goto S_14081;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_CONSOLE_ONLY",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11864);}while(r); +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; +if(!qbevent)break;evnt(11861);}while(r); +do{ +*__LONG_NCOMMONTMP= 0 ; +if(!qbevent)break;evnt(11862);}while(r); +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(11863);}while(r); +S_14297:; +fornext_value1745= 1 ; +fornext_finalvalue1745=*__LONG_COMMONARRAYLISTN; +fornext_step1745= 1 ; +if (fornext_step1745<0) fornext_step_negative1745=1; else fornext_step_negative1745=0; +if (new_error) goto fornext_error1745; +goto fornext_entrylabel1745; +while(1){ +fornext_value1745=fornext_step1745+(*__LONG_X); +fornext_entrylabel1745: +*__LONG_X=fornext_value1745; +if (fornext_step_negative1745){ +if (fornext_value1745fornext_finalvalue1745) break; } -S_14084:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11867);if(r)goto S_14084;} +fornext_error1745:; +if(qbevent){evnt(11864);if(r)goto S_14297;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_SOCKETS",18))); +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11865);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11865);}while(r); +do{ +qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11866);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11866);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11867);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11867);}while(r); +do{ +*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11868);}while(r); -}else{ do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_SOCKETS",21))); +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11868);}while(r); +do{ +qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11870);}while(r); -} -S_14089:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11873);if(r)goto S_14089;} +if(!qbevent)break;evnt(11871);}while(r); do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_PRINTER",18))); +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11872);}while(r); +S_14308:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11873);if(r)goto S_14308;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11873);}while(r); +} +S_14311:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(11874);if(r)goto S_14311;} +do{ +qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11874);}while(r); -}else{ +} +S_14314:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11875);if(r)goto S_14314;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_PRINTER",21))); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11875);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11876);}while(r); -} -S_14094:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11879);if(r)goto S_14094;} +S_14318:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11877);if(r)goto S_14318;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_ICON",15))); +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11877);}while(r); +} +S_14321:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(11878);if(r)goto S_14321;} +S_14322:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(11879);if(r)goto S_14322;} +do{ +goto LABEL_FOUNDCOMMONARRAY; +if(!qbevent)break;evnt(11879);}while(r); +} +S_14325:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11880);if(r)goto S_14325;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(11880);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11880);}while(r); }else{ do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_ICON",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11882);}while(r); +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(11880);}while(r); } -S_14099:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11885);if(r)goto S_14099;} +S_14331:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11881);if(r)goto S_14331;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_SCREENIMAGE",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11886);}while(r); -}else{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11881);}while(r); +} +dl_continue_1746:; +} +dl_exit_1746:; do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_SCREENIMAGE",25))); +qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24)); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11883);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11883);}while(r); +LABEL_FOUNDCOMMONARRAY:; +if(qbevent){evnt(11884);r=0;} +S_14337:; +if (( 0 )||new_error){ +if(qbevent){evnt(11885);if(r)goto S_14337;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1747; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("Found common array '",20),__STRING_VARNAME),qbs_new_txt_len("'!",2)), 0 , 0 , 1 ); +if (new_error) goto skip1747; +skip1747: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11885);}while(r); +} +do{ +*__LONG_I=*__LONG_CURRENTID; +if(!qbevent)break;evnt(11887);}while(r); +do{ +*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+(512)); if(!qbevent)break;evnt(11888);}while(r); -} -S_14104:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11891);if(r)goto S_14104;} do{ -qbs_set(__STRING_D,qbs_new_txt_len("internal\\c\\parts\\video\\font\\ttf\\",32)); +*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(11889);}while(r); +do{ +qbs_set(__STRING_E,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11890);}while(r); +S_14344:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(11891);if(r)goto S_14344;} +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11891);}while(r); +} +S_14347:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11892);if(r)goto S_14347;} +do{ +goto LABEL_ERRMES; if(!qbevent)break;evnt(11892);}while(r); -S_14106:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_D,qbs_new_txt_len("os\\",3)),__STRING_O),qbs_new_txt_len("\\src.o",6)))== 0 )))||new_error){ -if(qbevent){evnt(11894);if(r)goto S_14106;} +} do{ -SUB_BUILD(qbs_add(qbs_add(__STRING_D,qbs_new_txt_len("os\\",3)),__STRING_O)); +qbs_set(__STRING_N,__STRING_E); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11893);}while(r); +do{ +qbs_set(__STRING_N2,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11894);}while(r); +do{ +*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(11895);}while(r); -} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_LOADFONT",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11897);}while(r); -do{ -qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),qbs_new_txt_len("parts\\video\\font\\ttf\\os\\",24)),__STRING_O),qbs_new_txt_len("\\src.o",6))); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_COMMAND= 3 ; if(!qbevent)break;evnt(11898);}while(r); -} +S_14354:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(11899);if(r)goto S_14354;} +S_14355:; +if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(11900);if(r)goto S_14355;} do{ -qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_COMMAND= 4 ; if(!qbevent)break;evnt(11901);}while(r); -S_14113:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11903);if(r)goto S_14113;} -do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_DEVICEINPUT",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11904);}while(r); -do{ -qbs_set(__STRING_LIBNAME,qbs_new_txt_len("input\\game_controller",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11905);}while(r); -do{ -qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("parts\\",6),__STRING_LIBNAME),qbs_new_txt_len("\\os\\",4)),__STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11906);}while(r); -do{ -qbs_set(__STRING_LIBFILE,qbs_add(__STRING_LIBPATH,qbs_new_txt_len("\\src.a",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11907);}while(r); -S_14118:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_LOCALPATH,__STRING_LIBFILE))== 0 )))||new_error){ -if(qbevent){evnt(11908);if(r)goto S_14118;} -do{ -SUB_BUILD(qbs_add(__STRING_LOCALPATH,__STRING_LIBPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11908);}while(r); } +} +S_14359:; +if ((-(*__LONG_ARRAYELEMENTS== -1 ))||new_error){ +if(qbevent){evnt(11913);if(r)goto S_14359;} do{ -qbs_set(__STRING_LIBS,qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_LIBFILE)); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11909);}while(r); -} -S_14123:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11912);if(r)goto S_14123;} +if(!qbevent)break;evnt(11919);}while(r); do{ -tmp_long=array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(11912);}while(r); -} -S_14126:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11913);if(r)goto S_14126;} -do{ -tmp_long=array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(11913);}while(r); -} -S_14129:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11914);if(r)goto S_14129;} -do{ -tmp_long=array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(11914);}while(r); -} -S_14132:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11917);if(r)goto S_14132;} -do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_CONVERSION",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11918);}while(r); -do{ -qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\conversion",22)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1748; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==2){",17), 0 , 0 , 1 ); +if (new_error) goto skip1748; +skip1748: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11920);}while(r); do{ -qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11921);}while(r); -do{ -qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); +qbs_set(__STRING_X,FUNC_STR2(&(pass1749=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11922);}while(r); -S_14137:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ -if(qbevent){evnt(11923);if(r)goto S_14137;} do{ -SUB_BUILD(__STRING_D3); +qbs_set(__STRING_X1,qbs_add(qbs_new_txt_len("chainarraybuf",13),__STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11923);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(qbs_new_txt_len("chainarraybufsiz",16),__STRING_X)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11924);}while(r); -} do{ -qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1750; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static uint8 *",14),__STRING_X1),qbs_new_txt_len("=(uint8*)malloc(1);",19)), 0 , 0 , 1 ); +if (new_error) goto skip1750; +skip1750: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11925);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip1751; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static int64 ",13),__STRING_X2),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); +if (new_error) goto skip1751; +skip1751: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11926);}while(r); -} -S_14142:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11929);if(r)goto S_14142;} do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_DECODE",23))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1752; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1752; +skip1752: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11928);}while(r); +S_14368:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(11930);if(r)goto S_14368;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1753; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==3){",17), 0 , 0 , 1 ); +if (new_error) goto skip1753; +skip1753: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11930);}while(r); +} +S_14371:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(11931);if(r)goto S_14371;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1754; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==4){",17), 0 , 0 , 1 ); +if (new_error) goto skip1754; +skip1754: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11931);}while(r); +} do{ -qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\decode\\mp3_mini",27)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1755; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)), 0 , 0 , 1 ); +if (new_error) goto skip1755; +skip1755: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11933);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11932);}while(r); +S_14375:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(11934);if(r)goto S_14375;} do{ -qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1756; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1756; +skip1756: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11934);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11936);}while(r); do{ -qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11935);}while(r); -S_14147:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ -if(qbevent){evnt(11936);if(r)goto S_14147;} -do{ -SUB_BUILD(__STRING_D3); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1757; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)), 0 , 0 , 1 ); +if (new_error) goto skip1757; +skip1757: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11937);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1758; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=int64val>>3;",18), 0 , 0 , 1 ); +if (new_error) goto skip1758; +skip1758: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11938);}while(r); } +S_14380:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(11941);if(r)goto S_14380;} do{ -qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11939);}while(r); -do{ -qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\decode\\ogg",22)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1759; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); +if (new_error) goto skip1759; +skip1759: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11941);}while(r); +} do{ -qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1760; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1760; +skip1760: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11942);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11944);}while(r); do{ -qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11943);}while(r); -S_14154:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.o",6)))== 0 )))||new_error){ -if(qbevent){evnt(11944);if(r)goto S_14154;} -do{ -SUB_BUILD(__STRING_D3); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1761; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=4; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int32*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-4)=int32val;",13)), 0 , 0 , 1 ); +if (new_error) goto skip1761; +skip1761: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11945);}while(r); -} do{ -qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.o",6))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1762; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(int32val--){",18), 0 , 0 , 1 ); +if (new_error) goto skip1762; +skip1762: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11947);}while(r); -} -S_14159:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11952);if(r)goto S_14159;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11948);}while(r); do{ -qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_OUT",20))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1763; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1763; +skip1763: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11949);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1764; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)), 0 , 0 , 1 ); +if (new_error) goto skip1764; +skip1764: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11950);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1765; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1765; +skip1765: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11951);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1766; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val2;",14)), 0 , 0 , 1 ); +if (new_error) goto skip1766; +skip1766: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11952);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1767; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); +if (new_error) goto skip1767; +skip1767: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11953);}while(r); do{ -qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\out",15)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1768; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1768; +skip1768: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11954);}while(r); +S_14392:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(11956);if(r)goto S_14392;} do{ -qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11955);}while(r); -do{ -qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11956);}while(r); -S_14164:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ -if(qbevent){evnt(11957);if(r)goto S_14164;} -do{ -SUB_BUILD(__STRING_D3); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1769; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=bytes; ",9)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1769; +skip1769: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11958);}while(r); -} do{ -qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1770; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-bytes),bytes,",14)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1770; +skip1770: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11960);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11959);}while(r); } -S_14169:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ -if(qbevent){evnt(11964);if(r)goto S_14169;} +S_14396:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(11962);if(r)goto S_14396;} do{ -qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1771; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); +if (new_error) goto skip1771; +skip1771: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11963);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1772; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(byteilen))||new_error){ -if(qbevent){evnt(11966);if(r)goto S_14173;} do{ -qbs_set(__STRING_DEFINES,qbs_add(__STRING_DEFINES,qbs_new_txt_len(" ",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1774; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=8; ",5)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len("); *(int64*)(",13)),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-8)=int64val;",13)), 0 , 0 , 1 ); +if (new_error) goto skip1774; +skip1774: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11966);}while(r); -} -S_14176:; -if ((-(*__LONG_MAC== 0 ))||new_error){ -if(qbevent){evnt(11969);if(r)goto S_14176;} do{ -qbs_set(__STRING_D1,qbs_new_txt_len("parts\\core",10)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1775; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_X2,qbs_new_txt_len("+=(int64val>>3); ",17)),__STRING_X1),qbs_new_txt_len("=(uint8*)realloc(",17)),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip1775; +skip1775: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11967);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1776; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)(",38),__STRING_X1),qbs_new_txt_len("+",1)),__STRING_X2),qbs_new_txt_len("-(int64val>>3)),(int64val>>3),",30)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1776; +skip1776: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11968);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1777; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); +if (new_error) goto skip1777; +skip1777: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11969);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1778; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1778; +skip1778: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11970);}while(r); +} do{ -qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11971);}while(r); -do{ -qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11972);}while(r); -S_14180:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ -if(qbevent){evnt(11973);if(r)goto S_14180;} -do{ -SUB_BUILD(__STRING_D3); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1779; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1779; +skip1779: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11974);}while(r); -} -} do{ -qbs_set(__STRING_DEPSTR,qbs_add(__STRING_VER,qbs_new_txt_len("_",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1780; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1780; +skip1780: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11979);}while(r); -S_14185:; -fornext_value1803= 1 ; -fornext_finalvalue1803=*__LONG_DEPENDENCY_LAST; -fornext_step1803= 1 ; -if (fornext_step1803<0) fornext_step_negative1803=1; else fornext_step_negative1803=0; -if (new_error) goto fornext_error1803; -goto fornext_entrylabel1803; -while(1){ -fornext_value1803=fornext_step1803+(*__LONG_I); -fornext_entrylabel1803: -*__LONG_I=fornext_value1803; -if (fornext_step_negative1803){ -if (fornext_value1803fornext_finalvalue1803) break; -} -fornext_error1803:; -if(qbevent){evnt(11980);if(r)goto S_14185;} -S_14186:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(11981);if(r)goto S_14186;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11975);}while(r); do{ -qbs_set(__STRING_DEPSTR,qbs_add(__STRING_DEPSTR,qbs_new_txt_len("1",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1781; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1781; +skip1781: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11981);}while(r); -}else{ +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11977);}while(r); do{ -qbs_set(__STRING_DEPSTR,qbs_add(__STRING_DEPSTR,qbs_new_txt_len("0",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11981);}while(r); -} -fornext_continue_1802:; -} -fornext_exit_1802:; +sub_close( 12 ,1); +if(!qbevent)break;evnt(11978);}while(r); do{ -qbs_set(__STRING_LIBQB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" libqb\\os\\",10),__STRING_O),qbs_new_txt_len("\\libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o ",3))); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(11983);}while(r); do{ -SUB_PATH_SLASH_CORRECT(__STRING_LIBQB); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1782; +sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=2;",11), 0 , 0 , 1 ); +if (new_error) goto skip1782; +skip1782: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(11984);}while(r); -S_14194:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_new_txt_len("internal\\c\\",11),qbs_ltrim(qbs_rtrim(__STRING_LIBQB))))== 0 )))||new_error){ -if(qbevent){evnt(11985);if(r)goto S_14194;} do{ -sub_chdir(qbs_new_txt_len("internal\\c",10)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1783; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1783; +skip1783: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11986);}while(r); -S_14196:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(11987);if(r)goto S_14196;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11985);}while(r); do{ -sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c c_compiler\\bin\\g++ -c -s -w -Wall libqb.cpp -D FREEGLUT_STATIC ",70),__STRING_DEFINES),qbs_new_txt_len(" -o libqb\\os\\",13)),__STRING_O),qbs_new_txt_len("\\libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1784; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)",37),__STRING_X1),qbs_new_txt_len(",",1)),__STRING_X2),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1784; +skip1784: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11987);}while(r); +do{ +sub_close( 12 ,1); if(!qbevent)break;evnt(11988);}while(r); }else{ -S_14199:; -if ((*__LONG_MAC)||new_error){ -if(qbevent){evnt(11990);if(r)goto S_14199;} do{ -sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("g++ -c -s -w -Wall libqb.mm ",28),__STRING_DEFINES),qbs_new_txt_len(" -o libqb/os/",13)),__STRING_O),qbs_new_txt_len("/libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("inpchain",8)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11991);}while(r); -}else{ +if(!qbevent)break;evnt(11998);}while(r); do{ -sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("g++ -c -s -w -Wall libqb.cpp -D FREEGLUT_STATIC ",48),__STRING_DEFINES),qbs_new_txt_len(" -o libqb/os/",13)),__STRING_O),qbs_new_txt_len("/libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1785; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==2){",17), 0 , 0 , 1 ); +if (new_error) goto skip1785; +skip1785: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11993);}while(r); -} -} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12000);}while(r); do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11996);}while(r); -} -S_14207:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12000);if(r)goto S_14207;} -S_14208:; -if ((*__LONG_MAC)||new_error){ -if(qbevent){evnt(12001);if(r)goto S_14208;} -do{ -qbs_set(__STRING_DEFINES,qbs_add(__STRING_DEFINES,qbs_new_txt_len(" -framework AudioUnit -framework AudioToolbox ",46))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1786; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1786; +skip1786: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12001);}while(r); -} -} -S_14212:; -if ((*__LONG_MAKEANDROID)||new_error){ -if(qbevent){evnt(12027);if(r)goto S_14212;} +S_14419:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12003);if(r)goto S_14419;} do{ -goto LABEL_SKIP_BUILD; -if(!qbevent)break;evnt(12035);}while(r); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1787; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==3){",17), 0 , 0 , 1 ); +if (new_error) goto skip1787; +skip1787: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12003);}while(r); } -S_14215:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(12038);if(r)goto S_14215;} -S_14216:; -fornext_value1805= 1 ; -fornext_finalvalue1805=*__LONG_RESOLVESTATICFUNCTIONS; -fornext_step1805= 1 ; -if (fornext_step1805<0) fornext_step_negative1805=1; else fornext_step_negative1805=0; -if (new_error) goto fornext_error1805; -goto fornext_entrylabel1805; +S_14422:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12004);if(r)goto S_14422;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1788; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (int32val==4){",17), 0 , 0 , 1 ); +if (new_error) goto skip1788; +skip1788: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12004);}while(r); +} +S_14425:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12006);if(r)goto S_14425;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1789; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1789; +skip1789: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12008);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1790; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1790; +skip1790: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12013);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12016);}while(r); +S_14430:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12017);if(r)goto S_14430;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1791; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); +if (new_error) goto skip1791; +skip1791: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12017);}while(r); +} +S_14433:; +fornext_value1793= 1 ; +fornext_finalvalue1793=*__LONG_ARRAYELEMENTS; +fornext_step1793= 1 ; +if (fornext_step1793<0) fornext_step_negative1793=1; else fornext_step_negative1793=0; +if (new_error) goto fornext_error1793; +goto fornext_entrylabel1793; while(1){ -fornext_value1805=fornext_step1805+(*__LONG_X); -fornext_entrylabel1805: -*__LONG_X=fornext_value1805; -if (fornext_step_negative1805){ -if (fornext_value1805fornext_finalvalue1805) break; +if (fornext_value1793>fornext_finalvalue1793) break; } -fornext_error1805:; -if(qbevent){evnt(12041);if(r)goto S_14216;} -S_14217:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||new_error){ -if(qbevent){evnt(12042);if(r)goto S_14217;} +fornext_error1793:; +if(qbevent){evnt(12018);if(r)goto S_14433;} +S_14434:; +if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||new_error){ +if(qbevent){evnt(12021);if(r)goto S_14434;} do{ -*__LONG_N= 0 ; -if(!qbevent)break;evnt(12044);}while(r); +*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ; +if(!qbevent)break;evnt(12022);}while(r); +S_14436:; +if (( 0 )||new_error){ +if(qbevent){evnt(12024);if(r)goto S_14436;} do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\nm.exe ",33),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" --demangle -g >internal\\temp\\nm_output.txt",43)),2); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1794; +sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0 , 0 , 1 ); +if (new_error) goto skip1794; +skip1794: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12024);}while(r); +} +S_14439:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12025);if(r)goto S_14439;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12025);}while(r); +} +do{ +*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1795= 0 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12026);}while(r); +S_14443:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12027);if(r)goto S_14443;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12027);}while(r); +} +do{ +*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1796= 0 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12028);}while(r); +S_14447:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12029);if(r)goto S_14447;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12029);}while(r); +} +S_14450:; +if (( 0 )||new_error){ +if(qbevent){evnt(12030);if(r)goto S_14450;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1797; +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0 , 0 , 1 ); +if (new_error) goto skip1797; +skip1797: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12030);}while(r); +} +S_14453:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12031);if(r)goto S_14453;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12031);}while(r); +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1798; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1798; +skip1798: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12036);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1799; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val;",10)), 0 , 0 , 1 ); +if (new_error) goto skip1799; +skip1799: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12037);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1800; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1800; +skip1800: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12038);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1801; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val2;",11)), 0 , 0 , 1 ); +if (new_error) goto skip1801; +skip1801: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12039);}while(r); +S_14461:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12040);if(r)goto S_14461;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1802; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); +if (new_error) goto skip1802; +skip1802: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12040);}while(r); +} +S_14464:; +if ((-(*__LONG_X2> 1 ))||new_error){ +if(qbevent){evnt(12041);if(r)goto S_14464;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12041);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25)),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25)),FUNC_STR2(__LONG_X2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12042);}while(r); +fornext_continue_1792:; +} +fornext_exit_1792:; +S_14469:; +if (( 0 )||new_error){ +if(qbevent){evnt(12045);if(r)goto S_14469;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1803; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Calling DIM2(",13),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")...",4)), 0 , 0 , 1 ); +if (new_error) goto skip1803; +skip1803: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12045);}while(r); +} +S_14472:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12046);if(r)goto S_14472;} do{ -*__LONG_FH=func_freefile(); +goto LABEL_ERRMES; if(!qbevent)break;evnt(12046);}while(r); +} do{ -qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12047);}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); +*__INTEGER_REDIMOPTION= 1 ; if(!qbevent)break;evnt(12048);}while(r); -S_14223:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12049);if(r)goto S_14223;} do{ -tmp_fileno=*__LONG_FH; -if (new_error) goto skip1808; -sub_file_line_input_string(tmp_fileno,__STRING_A); -if (new_error) goto skip1808; -skip1808: +*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1804= 0 ),__STRING_E); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12049);}while(r); +S_14477:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12050);if(r)goto S_14477;} +do{ +goto LABEL_ERRMES; if(!qbevent)break;evnt(12050);}while(r); -S_14225:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12051);if(r)goto S_14225;} +} do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(12051);}while(r); +S_14481:; +if (( 0 )||new_error){ +if(qbevent){evnt(12052);if(r)goto S_14481;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1805; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Finished calling DIM2(",22),__STRING_PUREVARNAME),qbs_new_txt_len(",",1)),__STRING_TYP),qbs_new_txt_len(",0,",3)),__STRING_E),qbs_new_txt_len(")!",2)), 0 , 0 , 1 ); +if (new_error) goto skip1805; +skip1805: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12052);}while(r); +} +S_14484:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12053);if(r)goto S_14484;} +do{ +goto LABEL_ERRMES; if(!qbevent)break;evnt(12053);}while(r); -S_14227:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12054);if(r)goto S_14227;} -S_14228:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12055);if(r)goto S_14228;} +} +S_14487:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12055);if(r)goto S_14487;} do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12056);}while(r); -do{ -*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); +qbs_set(__STRING_VARNAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARNAME,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12057);}while(r); do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12058);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1806= -4 ))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12058);}while(r); +S_14490:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12059);if(r)goto S_14490;} +do{ +goto LABEL_ERRMES; if(!qbevent)break;evnt(12059);}while(r); +} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1807; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1807; +skip1807: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12060);}while(r); +} +S_14495:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12063);if(r)goto S_14495;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1808; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); +if (new_error) goto skip1808; +skip1808: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12064);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1809; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(bytei 1 ))||new_error){ -if(qbevent){evnt(12068);if(r)goto S_14241;} do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12068);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12068);}while(r); -} -S_14245:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12070);if(r)goto S_14245;} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(12071);}while(r); -do{ -qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12072);}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12073);}while(r); -S_14249:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12074);if(r)goto S_14249;} -do{ -tmp_fileno=*__LONG_FH; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1812; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_set(tqbs,qbs_new(int64val>>3,1));",37), 0 , 0 , 1 ); if (new_error) goto skip1812; skip1812: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12075);}while(r); -S_14251:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12076);if(r)goto S_14251;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12078);}while(r); -S_14253:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12079);if(r)goto S_14253;} -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12080);}while(r); -S_14255:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12081);if(r)goto S_14255;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12082);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12068);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1813; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)tqbs->chr,int64val>>3,",59),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1813; +skip1813: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12069);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1814; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); +if (new_error) goto skip1814; +skip1814: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12070);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1815; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1815; skip1815: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12083);}while(r); +if(!qbevent)break;evnt(12071);}while(r); +} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1816; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_get(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1816; skip1816: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12084);}while(r); +if(!qbevent)break;evnt(12075);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1817; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1817; skip1817: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12085);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12087);}while(r); +if(!qbevent)break;evnt(12076);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1818; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1818; skip1818: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12088);}while(r); -} +if(!qbevent)break;evnt(12077);}while(r); do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12090);}while(r); +sub_close( 12 ,1); +if(!qbevent)break;evnt(12078);}while(r); do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12091);}while(r); -do{ -goto dl_exit_1811; -if(!qbevent)break;evnt(12092);}while(r); -} -} -dl_continue_1811:; -} -dl_exit_1811:; -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12096);}while(r); -} -S_14272:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12099);if(r)goto S_14272;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\nm ",29),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" -D --demangle -g >.\\internal\\temp\\nm_output_dynamic.txt",56)),2); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("chain",5)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL, 12 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12100);}while(r); +if(!qbevent)break;evnt(12082);}while(r); do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(12101);}while(r); -do{ -qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1819; +sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=2;",11), 0 , 0 , 1 ); +if (new_error) goto skip1819; +skip1819: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12102);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12084);}while(r); do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12103);}while(r); -S_14277:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12104);if(r)goto S_14277;} -do{ -tmp_fileno=*__LONG_FH; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1820; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1820; skip1820: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12105);}while(r); -S_14279:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12106);if(r)goto S_14279;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12108);}while(r); -S_14281:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12109);if(r)goto S_14281;} -S_14282:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12110);if(r)goto S_14282;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12111);}while(r); -do{ -*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12112);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12113);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12114);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12085);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1821; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (",4),__STRING_N2),qbs_new_txt_len("[2]&1){",7)), 0 , 0 , 1 ); +if (new_error) goto skip1821; +skip1821: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12087);}while(r); +S_14513:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12089);if(r)goto S_14513;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1822; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=3;",11), 0 , 0 , 1 ); if (new_error) goto skip1822; skip1822: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12115);}while(r); -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12116);}while(r); +if(!qbevent)break;evnt(12089);}while(r); } +S_14516:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12090);if(r)goto S_14516;} do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12118);}while(r); -} -} -dl_continue_1819:; -} -dl_exit_1819:; -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12122);}while(r); -S_14295:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(12123);if(r)goto S_14295;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1823; +sub_file_print(tmp_fileno,qbs_new_txt_len("int32val=4;",11), 0 , 0 , 1 ); +if (new_error) goto skip1823; +skip1823: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12123);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12123);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12090);}while(r); } -} -S_14300:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12126);if(r)goto S_14300;} do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(12127);}while(r); -do{ -qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12128);}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12129);}while(r); -S_14304:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12130);if(r)goto S_14304;} -do{ -tmp_fileno=*__LONG_FH; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1824; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1824; skip1824: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12131);}while(r); -S_14306:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12132);if(r)goto S_14306;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12091);}while(r); +S_14520:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12093);if(r)goto S_14520;} do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12134);}while(r); -S_14308:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12135);if(r)goto S_14308;} +*__LONG_BITS=*__LONG_T& 511 ; +if(!qbevent)break;evnt(12095);}while(r); +S_14522:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(12096);if(r)goto S_14522;} do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12136);}while(r); -S_14310:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12137);if(r)goto S_14310;} +*__LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(12096);}while(r); +} +S_14525:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(12097);if(r)goto S_14525;} do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12138);}while(r); +*__LONG_BITS=*__LONG_TSIZE* 8 ; +if(!qbevent)break;evnt(12097);}while(r); +} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1825; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1825; +skip1825: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12098);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1826; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1826; +skip1826: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12099);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1827; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),FUNC_STR2(__LONG_ARRAYELEMENTS)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1827; skip1827: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12139);}while(r); +if(!qbevent)break;evnt(12102);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1828; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int32val,4,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1828; skip1828: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12140);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1829; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1829; -skip1829: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12141);}while(r); +if(!qbevent)break;evnt(12103);}while(r); +S_14533:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12105);if(r)goto S_14533;} +S_14534:; +fornext_value1830= 1 ; +fornext_finalvalue1830=*__LONG_ARRAYELEMENTS; +fornext_step1830= 1 ; +if (fornext_step1830<0) fornext_step_negative1830=1; else fornext_step_negative1830=0; +if (new_error) goto fornext_error1830; +goto fornext_entrylabel1830; +while(1){ +fornext_value1830=fornext_step1830+(*__LONG_X2); +fornext_entrylabel1830: +*__LONG_X2=fornext_value1830; +if (fornext_step_negative1830){ +if (fornext_value1830fornext_finalvalue1830) break; +} +fornext_error1830:; +if(qbevent){evnt(12107);if(r)goto S_14534;} do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12143);}while(r); +if(!qbevent)break;evnt(12109);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1830; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); -if (new_error) goto skip1830; -skip1830: +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1831= 64 ))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12144);}while(r); -} -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12146);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12147);}while(r); -do{ -goto dl_exit_1823; -if(!qbevent)break;evnt(12148);}while(r); -} -} -dl_continue_1823:; -} -dl_exit_1823:; -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12152);}while(r); -S_14326:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12153);if(r)goto S_14326;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12153);}while(r); +if(!qbevent)break;evnt(12110);}while(r); +S_14537:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12111);if(r)goto S_14537;} do{ goto LABEL_ERRMES; -if(!qbevent)break;evnt(12153);}while(r); +if(!qbevent)break;evnt(12111);}while(r); } -} -} -fornext_continue_1804:; -} -fornext_exit_1804:; -S_14333:; -if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ -if(qbevent){evnt(12159);if(r)goto S_14333;} -S_14334:; -if ((*__LONG_DATAOFFSET)||new_error){ -if(qbevent){evnt(12160);if(r)goto S_14334;} -S_14335:; -if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(12161);if(r)goto S_14335;} do{ -sub_open(qbs_new_txt_len(".\\internal\\c\\makedat_win32.txt",30), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12162);}while(r); -do{ -tmp_fileno= 150 ; -if (new_error) goto skip1831; -sub_file_line_input_string(tmp_fileno,__STRING_A); -if (new_error) goto skip1831; -skip1831: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12162);}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(12162);}while(r); -}else{ -do{ -sub_open(qbs_new_txt_len(".\\internal\\c\\makedat_win64.txt",30), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12164);}while(r); -do{ -tmp_fileno= 150 ; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1832; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1832; skip1832: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12164);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12112);}while(r); do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(12164);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.bin ",9)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12166);}while(r); -do{ -sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12167);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_A),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12168);}while(r); -do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12169);}while(r); -} -} -do{ -sub_open(qbs_new_txt_len(".\\internal\\c\\makeline_win.txt",29), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12176);}while(r); -do{ -tmp_fileno= 150 ; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1833; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1833; skip1833: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12177);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12113);}while(r); do{ -qbs_set(__STRING_A,FUNC_GDB_FIX(__STRING_A)); +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12177);}while(r); +if(!qbevent)break;evnt(12114);}while(r); do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(12178);}while(r); -S_14354:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A, 7 ),qbs_new_txt_len(" ..\\..\\",7))))||new_error){ -if(qbevent){evnt(12179);if(r)goto S_14354;} -do{ -qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 6 )); +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1834= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12179);}while(r); +if(!qbevent)break;evnt(12115);}while(r); +S_14544:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12116);if(r)goto S_14544;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12116);}while(r); } do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("qbx.cpp",7),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12181);}while(r); -S_14358:; -if (((-(*__LONG_X!= 0 ))&(-(*__LONG_TEMPFOLDERINDEX!= 1 )))||new_error){ -if(qbevent){evnt(12181);if(r)goto S_14358;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("qbx",3)),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".cpp",4)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 6 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12181);}while(r); -} -S_14361:; -if ((*__LONG_CONSOLE)||new_error){ -if(qbevent){evnt(12183);if(r)goto S_14361;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -s",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12184);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -mconsole",10)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12184);}while(r); -} -S_14365:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12187);if(r)goto S_14365;} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-mwindows",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12188);}while(r); -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lopengl32",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12189);}while(r); -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lglu32",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12190);}while(r); -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("parts\\core\\os\\win\\src.a",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12191);}while(r); -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-D FREEGLUT_STATIC",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12192);}while(r); -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-D GLEW_STATIC",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12193);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lws2_32",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12196);}while(r); -S_14374:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12197);if(r)goto S_14374;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12198);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lws2_32",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12198);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lwinspool",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12201);}while(r); -S_14379:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12202);if(r)goto S_14379;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12203);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lwinspool",11)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12203);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lwinmm",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12206);}while(r); -S_14384:; -if (((-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]== 0 )))||new_error){ -if(qbevent){evnt(12207);if(r)goto S_14384;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12208);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lwinmm",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12208);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lksguid",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12211);}while(r); -S_14389:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12212);if(r)goto S_14389;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12213);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lksguid",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12213);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-ldxguid",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12216);}while(r); -S_14394:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12217);if(r)goto S_14394;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12218);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -ldxguid",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12218);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lole32",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12221);}while(r); -S_14399:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12222);if(r)goto S_14399;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12223);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lole32",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12223);}while(r); -} -do{ -qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lgdi32",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12226);}while(r); -S_14404:; -if (((-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 )))||new_error){ -if(qbevent){evnt(12227);if(r)goto S_14404;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12228);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lgdi32",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12228);}while(r); -} -S_14408:; -if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ -if(qbevent){evnt(12231);if(r)goto S_14408;} -S_14409:; -if ((*__LONG_DATAOFFSET)||new_error){ -if(qbevent){evnt(12233);if(r)goto S_14409;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12234);}while(r); -S_14411:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12235);if(r)goto S_14411;} -do{ -*__LONG_X=*__LONG_X+ 3 ; -if(!qbevent)break;evnt(12236);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X),qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6)),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12237);}while(r); -} -} -} -S_14417:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_MYLIB->len))||new_error){ -if(qbevent){evnt(12244);if(r)goto S_14417;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12245);}while(r); -S_14419:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12246);if(r)goto S_14419;} -do{ -*__LONG_X=*__LONG_X+ 3 ; -if(!qbevent)break;evnt(12247);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X),qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12248);}while(r); -} -} -S_14424:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ -if(qbevent){evnt(12254);if(r)goto S_14424;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12255);}while(r); -S_14426:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12256);if(r)goto S_14426;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12257);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBS),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12258);}while(r); -} -} -S_14431:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ -if(qbevent){evnt(12263);if(r)goto S_14431;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12264);}while(r); -S_14433:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12265);if(r)goto S_14433;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12266);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_DEFINES),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12267);}while(r); -} -} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12272);}while(r); -S_14439:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12273);if(r)goto S_14439;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12274);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBQB),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12275);}while(r); -} -S_14443:; -if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(12279);if(r)goto S_14443;} -S_14444:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12280);if(r)goto S_14444;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X+__STRING_LIBQB->len),qbs_new_txt_len("..\\..\\",6)),__STRING_TMPDIR),qbs_new_txt_len("icon.o ",7)),func_mid(__STRING_A,*__LONG_X+__STRING_LIBQB->len+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12281);}while(r); -} -} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_A,FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12285);}while(r); -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12287);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_win.bat",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12288);}while(r); -do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1835; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1835; +skip1835: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12117);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1836; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1836; +skip1836: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12118);}while(r); +fornext_continue_1829:; +} +fornext_exit_1829:; +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_N,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))),&(pass1837= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12122);}while(r); +S_14551:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12123);if(r)goto S_14551;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12123);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1838; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,",16),__STRING_E),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); +if (new_error) goto skip1838; +skip1838: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12124);}while(r); +} +S_14556:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12128);if(r)goto S_14556;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1839; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes=1;",8), 0 , 0 , 1 ); +if (new_error) goto skip1839; +skip1839: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12131);}while(r); +S_14558:; +fornext_value1841= 1 ; +fornext_finalvalue1841=*__LONG_ARRAYELEMENTS; +fornext_step1841= 1 ; +if (fornext_step1841<0) fornext_step_negative1841=1; else fornext_step_negative1841=0; +if (new_error) goto fornext_error1841; +goto fornext_entrylabel1841; +while(1){ +fornext_value1841=fornext_step1841+(*__LONG_X2); +fornext_entrylabel1841: +*__LONG_X2=fornext_value1841; +if (fornext_step_negative1841){ +if (fornext_value1841fornext_finalvalue1841) break; +} +fornext_error1841:; +if(qbevent){evnt(12132);if(r)goto S_14558;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12133);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1842= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12134);}while(r); +S_14561:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12135);if(r)goto S_14561;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12135);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1843; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1843; +skip1843: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12136);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1844; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1844; +skip1844: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12137);}while(r); +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("UBOUND",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),__STRING_N),__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12138);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1845= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12139);}while(r); +S_14568:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12140);if(r)goto S_14568;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12140);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1846; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("int64val2=",10),__STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1846; +skip1846: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12141);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1847; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val2,8,",50),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1847; +skip1847: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12142);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1848; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30), 0 , 0 , 1 ); +if (new_error) goto skip1848; +skip1848: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12143);}while(r); +fornext_continue_1840:; +} +fornext_exit_1840:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1849; +sub_file_print(tmp_fileno,qbs_new_txt_len("bytei=0;",8), 0 , 0 , 1 ); +if (new_error) goto skip1849; +skip1849: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12146);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1850; +sub_file_print(tmp_fileno,qbs_new_txt_len("while(byteilen; int64val<<=3;",33), 0 , 0 , 1 ); +if (new_error) goto skip1852; +skip1852: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12149);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip1853; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)&int64val,8,",49),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); +if (new_error) goto skip1853; +skip1853: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12150);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1854; -sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_put(FF,NULL,byte_element((uint64)tqbs->chr,tqbs->len,",57),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len("),0);",5)), 0 , 0 , 1 ); if (new_error) goto skip1854; skip1854: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12289);}while(r); +if(!qbevent)break;evnt(12151);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1855; -sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("bytei++;",8), 0 , 0 , 1 ); if (new_error) goto skip1855; skip1855: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12290);}while(r); +if(!qbevent)break;evnt(12152);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1856; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo Recompiling...",19), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1856; skip1856: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12291);}while(r); +if(!qbevent)break;evnt(12153);}while(r); +} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno= 12 ; if (new_error) goto skip1857; -sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../c",7), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); if (new_error) goto skip1857; skip1857: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12292);}while(r); +if(!qbevent)break;evnt(12157);}while(r); +do{ +sub_close( 12 ,1); +if(!qbevent)break;evnt(12159);}while(r); +} +fornext_continue_1744:; +} +fornext_exit_1744:; +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; +if(!qbevent)break;evnt(12257);}while(r); +S_14589:; +if (( 0 )||new_error){ +if(qbevent){evnt(12258);if(r)goto S_14589;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno= 9 ; if (new_error) goto skip1858; -sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0 , 0 , 1 ); if (new_error) goto skip1858; skip1858: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12293);}while(r); +if(!qbevent)break;evnt(12258);}while(r); +} +S_14592:; +fornext_value1860= 1 ; +fornext_finalvalue1860= 255 ; +fornext_step1860= 1 ; +if (fornext_step1860<0) fornext_step_negative1860=1; else fornext_step_negative1860=0; +if (new_error) goto fornext_error1860; +goto fornext_entrylabel1860; +while(1){ +fornext_value1860=fornext_step1860+(*__LONG_CLOSEALL); +fornext_entrylabel1860: +*__LONG_CLOSEALL=fornext_value1860; +if (fornext_step_negative1860){ +if (fornext_value1860fornext_finalvalue1860) break; +} +fornext_error1860:; +if(qbevent){evnt(12261);if(r)goto S_14592;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1859; -sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); -if (new_error) goto skip1859; -skip1859: +sub_close(*__LONG_CLOSEALL,1); +if(!qbevent)break;evnt(12261);}while(r); +fornext_continue_1859:; +} +fornext_exit_1859:; +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12294);}while(r); +if(!qbevent)break;evnt(12262);}while(r); do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12295);}while(r); -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12297);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_win.bat",13)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_set(__STRING_COMPILELOG,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("compilelog.txt",14))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12298);}while(r); +if(!qbevent)break;evnt(12263);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1860; -sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0 , 0 , 1 ); -if (new_error) goto skip1860; -skip1860: +sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12299);}while(r); +if(!qbevent)break;evnt(12264);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1861; -sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0 , 0 , 1 ); +sub_close( 1 ,1); +if(!qbevent)break;evnt(12264);}while(r); +S_14599:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(12266);if(r)goto S_14599;} +S_14600:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(12267);if(r)goto S_14600;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("[",1),func_string(*__LONG_MAXPROGRESSWIDTH,(qbs_new_txt_len(".",1)->chr[0]))),qbs_new_txt_len("] 100%",6))); if (new_error) goto skip1861; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); skip1861: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12300);}while(r); +if(!qbevent)break;evnt(12268);}while(r); +}else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1862; -sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0 , 0 , 1 ); +qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); +if(!qbevent)break;evnt(12270);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(func_string(*__LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5))); if (new_error) goto skip1862; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); skip1862: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12301);}while(r); +if(!qbevent)break;evnt(12271);}while(r); +} +} +S_14607:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(12275);if(r)goto S_14607;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1863; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo C++ Debugging: ",20),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using gdb.exe",14)), 0 , 0 , 1 ); -if (new_error) goto skip1863; -skip1863: +*__LONG_TOTALUNUSEDVARIABLES= 0 ; +if(!qbevent)break;evnt(12276);}while(r); +S_14609:; +fornext_value1864= 1 ; +fornext_finalvalue1864=*__LONG_TOTALVARIABLESCREATED; +fornext_step1864= 1 ; +if (fornext_step1864<0) fornext_step_negative1864=1; else fornext_step_negative1864=0; +if (new_error) goto fornext_error1864; +goto fornext_entrylabel1864; +while(1){ +fornext_value1864=fornext_step1864+(*__LONG_I); +fornext_entrylabel1864: +*__LONG_I=fornext_value1864; +if (fornext_step_negative1864){ +if (fornext_value1864fornext_finalvalue1864) break; +} +fornext_error1864:; +if(qbevent){evnt(12277);if(r)goto S_14609;} +S_14610:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ +if(qbevent){evnt(12278);if(r)goto S_14610;} +do{ +*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ; +if(!qbevent)break;evnt(12279);}while(r); +} +fornext_continue_1863:; +} +fornext_exit_1863:; +S_14614:; +if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||new_error){ +if(qbevent){evnt(12283);if(r)goto S_14614;} +do{ +*__LONG_MAXVARNAMELEN= 0 ; +if(!qbevent)break;evnt(12284);}while(r); +S_14616:; +fornext_value1866= 1 ; +fornext_finalvalue1866=*__LONG_TOTALVARIABLESCREATED; +fornext_step1866= 1 ; +if (fornext_step1866<0) fornext_step_negative1866=1; else fornext_step_negative1866=0; +if (new_error) goto fornext_error1866; +goto fornext_entrylabel1866; +while(1){ +fornext_value1866=fornext_step1866+(*__LONG_I); +fornext_entrylabel1866: +*__LONG_I=fornext_value1866; +if (fornext_step_negative1866){ +if (fornext_value1866fornext_finalvalue1866) break; +} +fornext_error1866:; +if(qbevent){evnt(12285);if(r)goto S_14616;} +S_14617:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ +if(qbevent){evnt(12286);if(r)goto S_14617;} +S_14618:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len>*__LONG_MAXVARNAMELEN)))||new_error){ +if(qbevent){evnt(12287);if(r)goto S_14618;} +do{ +*__LONG_MAXVARNAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len; qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12302);}while(r); +if(!qbevent)break;evnt(12287);}while(r); +} +} +fornext_continue_1865:; +} +fornext_exit_1865:; do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1864; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0 , 0 , 1 ); -if (new_error) goto skip1864; -skip1864: +qbs_set(__STRING_HEADER,qbs_new_txt_len("unused variable",15)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12303);}while(r); +if(!qbevent)break;evnt(12291);}while(r); +S_14624:; +fornext_value1868= 1 ; +fornext_finalvalue1868=*__LONG_TOTALVARIABLESCREATED; +fornext_step1868= 1 ; +if (fornext_step1868<0) fornext_step_negative1868=1; else fornext_step_negative1868=0; +if (new_error) goto fornext_error1868; +goto fornext_entrylabel1868; +while(1){ +fornext_value1868=fornext_step1868+(*__LONG_I); +fornext_entrylabel1868: +*__LONG_I=fornext_value1868; +if (fornext_step_negative1868){ +if (fornext_value1868fornext_finalvalue1868) break; +} +fornext_error1868:; +if(qbevent){evnt(12292);if(r)goto S_14624;} +S_14625:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ +if(qbevent){evnt(12293);if(r)goto S_14625;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1865; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo After the debugger launches type 'run' to start your program",65), 0 , 0 , 1 ); -if (new_error) goto skip1865; -skip1865: +SUB_ADDWARNING((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+8) ),(int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12) ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),__STRING_HEADER,qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),func_space((*__LONG_MAXVARNAMELEN+ 1 )-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len)),qbs_new_txt_len(" ",2)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12304);}while(r); +if(!qbevent)break;evnt(12294);}while(r); +} +fornext_continue_1867:; +} +fornext_exit_1867:; +} +} +S_14631:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(12300);if(r)goto S_14631;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1866; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo After your program crashes type 'list' to find where the problem is and fix/report it",90), 0 , 0 , 1 ); -if (new_error) goto skip1866; -skip1866: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12305);}while(r); +goto LABEL_IDERET5; +if(!qbevent)break;evnt(12300);}while(r); +} +LABEL_IDE6:; +if(qbevent){evnt(12301);r=0;} +S_14634:; +if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_NO_C_COMPILE_MODE== 0 )))||new_error){ +if(qbevent){evnt(12303);if(r)goto S_14634;} +S_14635:; +if ((~(*__BYTE_QUIETMODE))||new_error){ +if(qbevent){evnt(12304);if(r)goto S_14635;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1867; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0 , 0 , 1 ); -if (new_error) goto skip1867; -skip1867: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12306);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1868; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo (the GDB debugger has many other useful commands, this advice is for beginners)",84), 0 , 0 , 1 ); -if (new_error) goto skip1868; -skip1868: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12307);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1869; -sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); -if (new_error) goto skip1869; +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); skip1869: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12308);}while(r); +if(!qbevent)break;evnt(12305);}while(r); +S_14637:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(12306);if(r)goto S_14637;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1870; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\gdb.exe ",34),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )), 0 , 0 , 1 ); +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37)); if (new_error) goto skip1870; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); skip1870: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12309);}while(r); +if(!qbevent)break;evnt(12307);}while(r); +}else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1871; -sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into EXE...",30)); if (new_error) goto skip1871; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); skip1871: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12310);}while(r); +if(!qbevent)break;evnt(12309);}while(r); +} +} +S_14643:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len))||new_error){ +if(qbevent){evnt(12312);if(r)goto S_14643;} do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12311);}while(r); -S_14473:; -if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ -if(qbevent){evnt(12313);if(r)goto S_14473;} -do{ -sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); +qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_OUTPUTFILE_CMD)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12314);}while(r); do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_A),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); +qbs_set(__STRING_F,func_mid(__STRING_OUTPUTFILE_CMD,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12315);}while(r); do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12316);}while(r); -S_14477:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12317);if(r)goto S_14477;} +S_14647:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__OUT->len))||new_error){ +if(qbevent){evnt(12317);if(r)goto S_14647;} +S_14648:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||new_error){ +if(qbevent){evnt(12318);if(r)goto S_14648;} do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1872= 0 )); -if(!qbevent)break;evnt(12319);}while(r); -} -} -} -S_14482:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12325);if(r)goto S_14482;} -S_14483:; -fornext_value1874= 1 ; -fornext_finalvalue1874=*__LONG_RESOLVESTATICFUNCTIONS; -fornext_step1874= 1 ; -if (fornext_step1874<0) fornext_step_negative1874=1; else fornext_step_negative1874=0; -if (new_error) goto fornext_error1874; -goto fornext_entrylabel1874; -while(1){ -fornext_value1874=fornext_step1874+(*__LONG_X); -fornext_entrylabel1874: -*__LONG_X=fornext_value1874; -if (fornext_step_negative1874){ -if (fornext_value1874fornext_finalvalue1874) break; -} -fornext_error1874:; -if(qbevent){evnt(12326);if(r)goto S_14483;} -S_14484:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||new_error){ -if(qbevent){evnt(12327);if(r)goto S_14484;} -do{ -*__LONG_N= 0 ; -if(!qbevent)break;evnt(12329);}while(r); -S_14486:; -if ((-(*__LONG_MACOSX== 0 ))||new_error){ -if(qbevent){evnt(12330);if(r)goto S_14486;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" --demangle -g >./internal/temp/nm_output.txt 2>./internal/temp/nm_error.txt",76)),2); +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip1875: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12319);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Can't create output executable - path not found: ",49),__STRING_PATH__ASCII_CHR_046__OUT)); +if (new_error) goto skip1876; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip1876: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12320);}while(r); +S_14651:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(12321);if(r)goto S_14651;} +do{ +if(qbevent){evnt(12321);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(12321);}while(r); +} +do{ +if(qbevent){evnt(12322);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(12322);}while(r); +} +do{ +qbs_set(__STRING_CURRENTDIR,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12324);}while(r); +do{ +sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12325);}while(r); +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12326);}while(r); +do{ +sub_chdir(__STRING_CURRENTDIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12327);}while(r); +S_14660:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||new_error){ +if(qbevent){evnt(12328);if(r)goto S_14660;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,qbs_add(__STRING_PATH__ASCII_CHR_046__OUT,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12328);}while(r); +} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__OUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12329);}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE= -1 ; if(!qbevent)break;evnt(12330);}while(r); } -S_14489:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12331);if(r)goto S_14489;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" >./internal/temp/nm_output.txt 2>./internal/temp/nm_error.txt",62)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12331);}while(r); } -S_14492:; -if ((-(*__LONG_MACOSX== 0 ))||new_error){ -if(qbevent){evnt(12333);if(r)goto S_14492;} do{ -*__LONG_FH=func_freefile(); +qbs_set(__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE,__STRING_PATH__ASCII_CHR_046__EXE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12333);}while(r); +S_14668:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||new_error){ +if(qbevent){evnt(12334);if(r)goto S_14668;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12334);}while(r); +} +S_14671:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ +if(qbevent){evnt(12335);if(r)goto S_14671;} do{ -qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12335);}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_E= 0 ; if(!qbevent)break;evnt(12336);}while(r); -S_14496:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12337);if(r)goto S_14496;} do{ -tmp_fileno=*__LONG_FH; +error_goto_line=9; +if(!qbevent)break;evnt(12337);}while(r); +do{ +sub_kill(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12338);}while(r); +do{ +error_goto_line=10; +if(!qbevent)break;evnt(12339);}while(r); +S_14676:; +if ((-(*__LONG_E== 1 ))||new_error){ +if(qbevent){evnt(12340);if(r)goto S_14676;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("CANNOT CREATE ",14),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len(" BECAUSE THE FILE IS ALREADY IN USE!",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12341);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12341);}while(r); +} +} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12344);}while(r); +} +S_14683:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(12348);if(r)goto S_14683;} +S_14684:; +if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12350);if(r)goto S_14684;} +S_14685:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))))||new_error){ +if(qbevent){evnt(12351);if(r)goto S_14685;} +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(12352);}while(r); +do{ +error_goto_line=11; +if(!qbevent)break;evnt(12353);}while(r); +do{ +sub_kill(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12354);}while(r); +S_14689:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_E== 1 ))|(-(func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))== -1 ))))||new_error){ +if(qbevent){evnt(12355);if(r)goto S_14689;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Error creating resource file",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12355);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12355);}while(r); +} +do{ +error_goto_line=12; +if(!qbevent)break;evnt(12356);}while(r); +} +} +S_14696:; +if ((*__LONG_EXEICONSET)||new_error){ +if(qbevent){evnt(12360);if(r)goto S_14696;} +do{ +*__LONG_LINENUMBER=*__LONG_EXEICONSET; +if(!qbevent)break;evnt(12361);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,qbs_add(qbs_add(qbs_new_txt_len(" $EXEICON:'",11),__STRING_EXEICONFILE),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12362);}while(r); +} +S_14700:; +if ((*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12365);if(r)goto S_14700;} +do{ +*__LONG_MANIFEST=func_freefile(); +if(!qbevent)break;evnt(12366);}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(".manifest",9)), 4 ,NULL,NULL,*__LONG_MANIFEST,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12367);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1877; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",2)), 0 , 0 , 1 ); if (new_error) goto skip1877; skip1877: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12338);}while(r); -S_14498:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12339);if(r)goto S_14498;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12341);}while(r); -S_14500:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12342);if(r)goto S_14500;} -S_14501:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12343);if(r)goto S_14501;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12344);}while(r); -do{ -*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12345);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12346);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12347);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12368);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1878; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1)), 0 , 0 , 1 ); +if (new_error) goto skip1878; +skip1878: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12369);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1879; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len(" 1 ))||new_error){ -if(qbevent){evnt(12356);if(r)goto S_14514;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1880; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" version=",12),FUNC_QUOTEDFILENAME(qbs_new_txt_len("1.0.0.0",7))), 0 , 0 , 1 ); +if (new_error) goto skip1880; +skip1880: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12356);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12371);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12356);}while(r); -} -} -S_14519:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12359);if(r)goto S_14519;} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(12360);}while(r); -do{ -qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12361);}while(r); -do{ -qbs_set(__STRING_S2,__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12361);}while(r); -S_14523:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12362);if(r)goto S_14523;} -do{ -qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" _",2),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12362);}while(r); -} -do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12363);}while(r); -S_14527:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12364);if(r)goto S_14527;} -do{ -tmp_fileno=*__LONG_FH; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1881; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" processorArchitecture=",26),FUNC_QUOTEDFILENAME(qbs_new_txt_len("*",1))), 0 , 0 , 1 ); if (new_error) goto skip1881; skip1881: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12365);}while(r); -S_14529:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12366);if(r)goto S_14529;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12368);}while(r); -S_14531:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12369);if(r)goto S_14531;} -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12370);}while(r); -S_14533:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12371);if(r)goto S_14533;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12372);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1884; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); -if (new_error) goto skip1884; -skip1884: +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1882; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" name=",9),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len(".",1)),__STRING_VIPRODUCTNAME),qbs_new_txt_len(".",1)),__STRING_VIPRODUCTNAME))), 0 , 0 , 1 ); +if (new_error) goto skip1882; +skip1882: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12373);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1885; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S2),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); -if (new_error) goto skip1885; -skip1885: +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1883; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" type=",9),FUNC_QUOTEDFILENAME(qbs_new_txt_len("win32",5))), 0 , 0 , 1 ); +if (new_error) goto skip1883; +skip1883: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12374);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1884; +sub_file_print(tmp_fileno,qbs_new_txt_len("/>",2), 0 , 0 , 1 ); +if (new_error) goto skip1884; +skip1884: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12375);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1885; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("",13),__STRING_VIFILEDESCRIPTION),qbs_new_txt_len("",14)), 0 , 0 , 1 ); +if (new_error) goto skip1885; +skip1885: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12376);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1886; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("",12), 0 , 0 , 1 ); if (new_error) goto skip1886; skip1886: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12375);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12377);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1887; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_new_txt_len(" ",23), 0 , 0 , 1 ); if (new_error) goto skip1887; skip1887: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12378);}while(r); -} do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12380);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12381);}while(r); -do{ -goto dl_exit_1880; -if(!qbevent)break;evnt(12382);}while(r); -} -} -dl_continue_1880:; -} -dl_exit_1880:; -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12386);}while(r); -} -S_14550:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12389);if(r)goto S_14550;} -S_14551:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12390);if(r)goto S_14551;} -do{ -goto LABEL_MACOSX_LIBFIND_FAILED; -if(!qbevent)break;evnt(12390);}while(r); -} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" -D --demangle -g >./internal/temp/nm_output_dynamic.txt 2>./internal/temp/nm_error.txt",87)),2); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1888; +sub_file_print(tmp_fileno,qbs_new_txt_len(" len))||new_error){ -if(qbevent){evnt(12397);if(r)goto S_14560;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12399);}while(r); -S_14562:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12400);if(r)goto S_14562;} -S_14563:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12401);if(r)goto S_14563;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12402);}while(r); -do{ -*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12403);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12404);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12405);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12380);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1890; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" name=",17),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Microsoft.Windows.Common-Controls",33))), 0 , 0 , 1 ); +if (new_error) goto skip1890; +skip1890: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12381);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1891; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" version=",20),FUNC_QUOTEDFILENAME(qbs_new_txt_len("6.0.0.0",7))), 0 , 0 , 1 ); if (new_error) goto skip1891; skip1891: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12406);}while(r); +if(!qbevent)break;evnt(12382);}while(r); do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12407);}while(r); -} -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12409);}while(r); -} -} -dl_continue_1888:; -} -dl_exit_1888:; -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12413);}while(r); -S_14576:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(12414);if(r)goto S_14576;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1892; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" processorArchitecture=",34),FUNC_QUOTEDFILENAME(qbs_new_txt_len("*",1))), 0 , 0 , 1 ); +if (new_error) goto skip1892; +skip1892: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12414);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12383);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12414);}while(r); -} -} -S_14581:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12417);if(r)goto S_14581;} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(12418);}while(r); -do{ -qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12419);}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12420);}while(r); -S_14585:; -while((!(func_eof(*__LONG_FH)))||new_error){ -if(qbevent){evnt(12421);if(r)goto S_14585;} -do{ -tmp_fileno=*__LONG_FH; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; if (new_error) goto skip1893; -sub_file_line_input_string(tmp_fileno,__STRING_A); +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" publicKeyToken=",27),FUNC_QUOTEDFILENAME(qbs_new_txt_len("6595b64144ccf1df",16))), 0 , 0 , 1 ); if (new_error) goto skip1893; skip1893: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12384);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1894; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" language=",21),FUNC_QUOTEDFILENAME(qbs_new_txt_len("*",1))), 0 , 0 , 1 ); +if (new_error) goto skip1894; +skip1894: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12385);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1895; +sub_file_print(tmp_fileno,qbs_new_txt_len(" />",10), 0 , 0 , 1 ); +if (new_error) goto skip1895; +skip1895: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12386);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1896; +sub_file_print(tmp_fileno,qbs_new_txt_len(" ",24), 0 , 0 , 1 ); +if (new_error) goto skip1896; +skip1896: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12387);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1897; +sub_file_print(tmp_fileno,qbs_new_txt_len("",13), 0 , 0 , 1 ); +if (new_error) goto skip1897; +skip1897: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12388);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFEST; +if (new_error) goto skip1898; +sub_file_print(tmp_fileno,qbs_new_txt_len("",11), 0 , 0 , 1 ); +if (new_error) goto skip1898; +skip1898: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12389);}while(r); +do{ +sub_close(*__LONG_MANIFEST,1); +if(!qbevent)break;evnt(12390);}while(r); +do{ +*__LONG_MANIFESTEMBED=func_freefile(); +if(!qbevent)break;evnt(12392);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("manifest.h",10)), 4 ,NULL,NULL,*__LONG_MANIFESTEMBED,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12393);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1899; +sub_file_print(tmp_fileno,qbs_new_txt_len("#ifndef RESOURCE_H",18), 0 , 0 , 1 ); +if (new_error) goto skip1899; +skip1899: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12394);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1900; +sub_file_print(tmp_fileno,qbs_new_txt_len("#define RESOURCE_H",20), 0 , 0 , 1 ); +if (new_error) goto skip1900; +skip1900: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12395);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1901; +sub_file_print(tmp_fileno,qbs_new_txt_len("#ifdef __cplusplus",21), 0 , 0 , 1 ); +if (new_error) goto skip1901; +skip1901: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12396);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1902; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern ",7),FUNC_QUOTEDFILENAME(qbs_new_txt_len("C",1))),qbs_new_txt_len(" {",2)), 0 , 0 , 1 ); +if (new_error) goto skip1902; +skip1902: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12397);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1903; +sub_file_print(tmp_fileno,qbs_new_txt_len("#endif",6), 0 , 0 , 1 ); +if (new_error) goto skip1903; +skip1903: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12398);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1904; +sub_file_print(tmp_fileno,qbs_new_txt_len("#ifdef __cplusplus",21), 0 , 0 , 1 ); +if (new_error) goto skip1904; +skip1904: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12399);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1905; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1905; +skip1905: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12400);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1906; +sub_file_print(tmp_fileno,qbs_new_txt_len("#endif",6), 0 , 0 , 1 ); +if (new_error) goto skip1906; +skip1906: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12401);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1907; +sub_file_print(tmp_fileno,qbs_new_txt_len("#endif /* RESOURCE_H */",26), 0 , 0 , 1 ); +if (new_error) goto skip1907; +skip1907: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12402);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1908; +sub_file_print(tmp_fileno,qbs_new_txt_len("#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 /*Defined manifest file*/",70), 0 , 0 , 1 ); +if (new_error) goto skip1908; +skip1908: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12403);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_MANIFESTEMBED; +if (new_error) goto skip1909; +sub_file_print(tmp_fileno,qbs_new_txt_len("#define RT_MANIFEST 24",44), 0 , 0 , 1 ); +if (new_error) goto skip1909; +skip1909: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12404);}while(r); +do{ +sub_close(*__LONG_MANIFESTEMBED,1); +if(!qbevent)break;evnt(12405);}while(r); +do{ +*__LONG_ICONFILEHANDLE=func_freefile(); +if(!qbevent)break;evnt(12407);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.rc",7)), 5 ,NULL,NULL,*__LONG_ICONFILEHANDLE,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12408);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1910; +sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); +if (new_error) goto skip1910; +skip1910: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12409);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1911; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#include ",9),FUNC_QUOTEDFILENAME(qbs_new_txt_len("manifest.h",10))), 0 , 0 , 1 ); +if (new_error) goto skip1911; +skip1911: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12410);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1912; +sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); +if (new_error) goto skip1912; +skip1912: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12411);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1913; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST ",47),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_FILE,__STRING_EXTENSION),qbs_new_txt_len(".manifest",9)))), 0 , 0 , 1 ); +if (new_error) goto skip1913; +skip1913: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12412);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1914; +sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); +if (new_error) goto skip1914; +skip1914: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12413);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1915; +sub_file_print(tmp_fileno,qbs_new_txt_len("1 VERSIONINFO",13), 0 , 0 , 1 ); +if (new_error) goto skip1915; +skip1915: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12414);}while(r); +S_14748:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||new_error){ +if(qbevent){evnt(12415);if(r)goto S_14748;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1917; +sub_file_print(tmp_fileno,qbs_new_txt_len("FILEVERSION ",16), 0 , 0 , 0 ); +if (new_error) goto skip1917; +sub_file_print(tmp_fileno,__STRING_VIFILEVERSIONNUM, 0 , 0 , 1 ); +if (new_error) goto skip1917; +skip1917: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12415);}while(r); +} +S_14751:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||new_error){ +if(qbevent){evnt(12416);if(r)goto S_14751;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1919; +sub_file_print(tmp_fileno,qbs_new_txt_len("PRODUCTVERSION ",16), 0 , 0 , 0 ); +if (new_error) goto skip1919; +sub_file_print(tmp_fileno,__STRING_VIPRODUCTVERSIONNUM, 0 , 0 , 1 ); +if (new_error) goto skip1919; +skip1919: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12416);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1920; +sub_file_print(tmp_fileno,qbs_new_txt_len("BEGIN",5), 0 , 0 , 1 ); +if (new_error) goto skip1920; +skip1920: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12417);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1921; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",10),FUNC_QUOTEDFILENAME(qbs_new_txt_len("StringFileInfo",14))), 0 , 0 , 1 ); +if (new_error) goto skip1921; +skip1921: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12418);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1922; +sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",9), 0 , 0 , 1 ); +if (new_error) goto skip1922; +skip1922: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12419);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1923; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",14),FUNC_QUOTEDFILENAME(qbs_new_txt_len("040904E4",8))), 0 , 0 , 1 ); +if (new_error) goto skip1923; +skip1923: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12420);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1924; +sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",13), 0 , 0 , 1 ); +if (new_error) goto skip1924; +skip1924: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12421);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1925; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("CompanyName",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VICOMPANYNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1925; +skip1925: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12422);}while(r); -S_14587:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12423);if(r)goto S_14587;} do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1926; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("FileDescription",15))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1926; +skip1926: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12423);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1927; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("FileVersion",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIFILEVERSION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1927; +skip1927: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12424);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1928; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("InternalName",12))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIINTERNALNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1928; +skip1928: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12425);}while(r); -S_14589:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12426);if(r)goto S_14589;} do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12427);}while(r); -S_14591:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12428);if(r)goto S_14591;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1929; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("LegalCopyright",14))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1929; +skip1929: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12426);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1930; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("LegalTrademarks",15))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1930; +skip1930: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12427);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1931; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("OriginalFilename",16))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1931; +skip1931: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12428);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1932; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("ProductName",11))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIPRODUCTNAME,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1932; +skip1932: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12429);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1896; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); -if (new_error) goto skip1896; -skip1896: +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1933; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("ProductVersion",14))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1933; +skip1933: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12430);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1897; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); -if (new_error) goto skip1897; -skip1897: +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; +if (new_error) goto skip1934; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Comments",8))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VICOMMENTS,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); +if (new_error) goto skip1934; +skip1934: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12431);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1898; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip1898; -skip1898: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12432);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12434);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1899; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); -if (new_error) goto skip1899; -skip1899: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12435);}while(r); -} -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12437);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12438);}while(r); -do{ -goto dl_exit_1892; -if(!qbevent)break;evnt(12439);}while(r); -} -} -dl_continue_1892:; -} -dl_exit_1892:; -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12443);}while(r); -LABEL_MACOSX_LIBFIND_FAILED:; -if(qbevent){evnt(12444);r=0;} -S_14607:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12445);if(r)goto S_14607;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12445);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12445);}while(r); -} -} -} -fornext_continue_1873:; -} -fornext_exit_1873:; -S_14614:; -if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ -if(qbevent){evnt(12451);if(r)goto S_14614;} -S_14615:; -if ((*__LONG_DATAOFFSET)||new_error){ -if(qbevent){evnt(12452);if(r)goto S_14615;} -S_14616:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ -if(qbevent){evnt(12453);if(r)goto S_14616;} -do{ -qbs_set(__STRING_B,qbs_new_txt_len("32",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12453);}while(r); -}else{ -do{ -qbs_set(__STRING_B,qbs_new_txt_len("64",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12453);}while(r); -} -do{ -sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\makedat_lnx",24),__STRING_B),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12454);}while(r); -do{ -tmp_fileno= 150 ; -if (new_error) goto skip1900; -sub_file_line_input_string(tmp_fileno,__STRING_A); -if (new_error) goto skip1900; -skip1900: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12454);}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(12454);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.bin ",9)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12455);}while(r); -do{ -sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12456);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12457);}while(r); -do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12458);}while(r); -} -} -S_14630:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12462);if(r)goto S_14630;} -do{ -sub_open(qbs_new_txt_len("./internal/c/makeline_osx.txt",29), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12463);}while(r); -}else{ -do{ -sub_open(qbs_new_txt_len("./internal/c/makeline_lnx.txt",29), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12465);}while(r); -} -do{ -tmp_fileno= 150 ; -if (new_error) goto skip1901; -sub_file_line_input_string(tmp_fileno,__STRING_A); -if (new_error) goto skip1901; -skip1901: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12468);}while(r); -do{ -qbs_set(__STRING_A,FUNC_GDB_FIX(__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12468);}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(12469);}while(r); -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("qbx.cpp",7),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12471);}while(r); -S_14639:; -if (((-(*__LONG_X!= 0 ))&(-(*__LONG_TEMPFOLDERINDEX!= 1 )))||new_error){ -if(qbevent){evnt(12471);if(r)goto S_14639;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("qbx",3)),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".cpp",4)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 6 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12471);}while(r); -} -S_14642:; -if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ -if(qbevent){evnt(12473);if(r)goto S_14642;} -S_14643:; -if ((*__LONG_DATAOFFSET)||new_error){ -if(qbevent){evnt(12475);if(r)goto S_14643;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("-lX11",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12476);}while(r); -S_14645:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12477);if(r)goto S_14645;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.o ",7)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12478);}while(r); -} -} -} -S_14650:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_MYLIB->len))||new_error){ -if(qbevent){evnt(12485);if(r)goto S_14650;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12486);}while(r); -S_14652:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12487);if(r)goto S_14652;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12488);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" ",1)),__STRING_MYLIBOPT),qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12489);}while(r); -} -} -S_14657:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ -if(qbevent){evnt(12494);if(r)goto S_14657;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12495);}while(r); -S_14659:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12496);if(r)goto S_14659;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12497);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBS),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12498);}while(r); -} -} -S_14664:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ -if(qbevent){evnt(12503);if(r)goto S_14664;} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12504);}while(r); -S_14666:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12505);if(r)goto S_14666;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12506);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_DEFINES),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12507);}while(r); -} -} -do{ -*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12512);}while(r); -S_14672:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(12513);if(r)goto S_14672;} -do{ -*__LONG_X=*__LONG_X+ 5 ; -if(!qbevent)break;evnt(12514);}while(r); -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBQB),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12515);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_A,FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12525);}while(r); -S_14677:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12527);if(r)goto S_14677;} -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12529);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12530);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1911; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1911; -skip1911: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12531);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1912; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1912; -skip1912: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12532);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1913; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1913; -skip1913: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12533);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1914; -sub_file_print(tmp_fileno,qbs_add(__STRING_A,func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1914; -skip1914: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12534);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1915; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("read -p ",8),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1915; -skip1915: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12535);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12536);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("recompile_osx.command",21)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12537);}while(r); -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12539);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12540);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1916; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1916; -skip1916: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12541);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1917; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1917; -skip1917: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12542);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1918; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1918; -skip1918: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12543);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1919; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1919; -skip1919: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12544);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1920; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1920; -skip1920: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12545);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1921; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1921; -skip1921: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12546);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1922; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1922; -skip1922: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12547);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1923; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1923; -skip1923: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12548);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1924; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1924; -skip1924: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12549);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1925; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1925; -skip1925: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12550);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1926; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1926; -skip1926: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12551);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1927; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1927; -skip1927: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12552);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1928; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1928; -skip1928: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12553);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1929; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1929; -skip1929: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12554);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1930; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1930; -skip1930: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12555);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12556);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("debug_osx.command",17)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12557);}while(r); -}else{ -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12561);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12562);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1931; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1931; -skip1931: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12563);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1932; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1932; -skip1932: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12564);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1933; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1933; -skip1933: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12565);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1934; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1934; -skip1934: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12566);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1935; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Web",3))),qbs_new_txt_len(",",1)),FUNC_QUOTEDFILENAME(qbs_add(__STRING_VIWEB,qbs_new_txt_len("\\0",2)))), 0 , 0 , 1 ); if (new_error) goto skip1935; skip1935: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12567);}while(r); +if(!qbevent)break;evnt(12432);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1936; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_new_txt_len(" END",11), 0 , 0 , 1 ); if (new_error) goto skip1936; skip1936: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12568);}while(r); +if(!qbevent)break;evnt(12433);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1937; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_new_txt_len(" END",7), 0 , 0 , 1 ); if (new_error) goto skip1937; skip1937: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12569);}while(r); +if(!qbevent)break;evnt(12434);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1938; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len(" BLOCK ",10),FUNC_QUOTEDFILENAME(qbs_new_txt_len("VarFileInfo",11))), 0 , 0 , 1 ); if (new_error) goto skip1938; skip1938: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12570);}while(r); +if(!qbevent)break;evnt(12435);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1939; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_new_txt_len(" BEGIN",9), 0 , 0 , 1 ); if (new_error) goto skip1939; skip1939: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12571);}while(r); +if(!qbevent)break;evnt(12436);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1940; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" VALUE ",18),FUNC_QUOTEDFILENAME(qbs_new_txt_len("Translation",11))),qbs_new_txt_len(", 0x409, 0x04E4",15)), 0 , 0 , 1 ); if (new_error) goto skip1940; skip1940: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12572);}while(r); +if(!qbevent)break;evnt(12437);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1941; -sub_file_print(tmp_fileno,qbs_add(__STRING_A,func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_new_txt_len(" END",7), 0 , 0 , 1 ); if (new_error) goto skip1941; skip1941: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12573);}while(r); +if(!qbevent)break;evnt(12438);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_ICONFILEHANDLE; if (new_error) goto skip1942; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_new_txt_len("END",3), 0 , 0 , 1 ); if (new_error) goto skip1942; skip1942: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12574);}while(r); +if(!qbevent)break;evnt(12439);}while(r); +do{ +sub_close(*__LONG_ICONFILEHANDLE,1); +if(!qbevent)break;evnt(12440);}while(r); +} +S_14779:; +if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12443);if(r)goto S_14779;} +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12444);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("call_windres.bat",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12445);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip1943; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\windres.exe -i ",41),__STRING_TMPDIR),qbs_new_txt_len("icon.rc -o ",11)),__STRING_TMPDIR),qbs_new_txt_len("icon.o",6)), 0 , 0 , 1 ); if (new_error) goto skip1943; skip1943: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12575);}while(r); +if(!qbevent)break;evnt(12446);}while(r); do{ sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12576);}while(r); +if(!qbevent)break;evnt(12447);}while(r); do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("recompile_lnx.sh",16)),2); +sub_shell2(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("call_windres.bat",16)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12448);}while(r); +S_14785:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("icon.o",6)))== 0 )))||new_error){ +if(qbevent){evnt(12449);if(r)goto S_14785;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Bad icon file",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12450);}while(r); +S_14787:; +if ((*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12451);if(r)goto S_14787;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_A,qbs_new_txt_len(" or invalid $VERSIONINFO values",31))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12451);}while(r); +} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12452);}while(r); +} +} +} +do{ +qbs_set(__STRING_O,qbs_lcase(__STRING_OS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12459);}while(r); +do{ +*__LONG_WIN= 0 ; +if(!qbevent)break;evnt(12460);}while(r); +S_14796:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(12460);if(r)goto S_14796;} +do{ +*__LONG_WIN= 1 ; +if(!qbevent)break;evnt(12460);}while(r); +} +do{ +*__LONG_LNX= 0 ; +if(!qbevent)break;evnt(12461);}while(r); +S_14800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(12461);if(r)goto S_14800;} +do{ +*__LONG_LNX= 1 ; +if(!qbevent)break;evnt(12461);}while(r); +} +do{ +*__LONG_MAC= 0 ; +if(!qbevent)break;evnt(12462);}while(r); +S_14804:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12462);if(r)goto S_14804;} +do{ +*__LONG_MAC= 1 ; +if(!qbevent)break;evnt(12462);}while(r); +do{ +qbs_set(__STRING_O,qbs_new_txt_len("osx",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12462);}while(r); +} +do{ +qbs_set(__STRING_DEFINES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12463);}while(r); +do{ +qbs_set(__STRING_DEFINES_HEADER,qbs_new_txt_len(" -D ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12463);}while(r); +do{ +qbs_set(__STRING_VER,__STRING_VERSION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12464);}while(r); +do{ +*__LONG_X=func_instr(NULL,__STRING_VER,qbs_new_txt_len(".",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12465);}while(r); +S_14812:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12465);if(r)goto S_14812;} +do{ +tqbs=__STRING_VER; if (!new_error){ +tmp_fileno=*__LONG_X; if (!new_error){ +tmp_long= 95 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(12465);}while(r); +} +do{ +qbs_set(__STRING_LIBS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12466);}while(r); +S_14816:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12468);if(r)goto S_14816;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_GL",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12469);}while(r); +} +S_14819:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12472);if(r)goto S_14819;} +do{ +tmp_long=array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(12473);}while(r); +} +S_14822:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12476);if(r)goto S_14822;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_IMAGE_CODEC",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12477);}while(r); +} +S_14825:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12480);if(r)goto S_14825;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_CONSOLE_ONLY",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12481);}while(r); +} +S_14828:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12484);if(r)goto S_14828;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_SOCKETS",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12485);}while(r); +}else{ +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_SOCKETS",21))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12487);}while(r); +} +S_14833:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12490);if(r)goto S_14833;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_PRINTER",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12491);}while(r); +}else{ +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_PRINTER",21))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12493);}while(r); +} +S_14838:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12496);if(r)goto S_14838;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_ICON",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12497);}while(r); +}else{ +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_ICON",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12499);}while(r); +} +S_14843:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12502);if(r)goto S_14843;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_SCREENIMAGE",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12503);}while(r); +}else{ +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_NO_SCREENIMAGE",25))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12505);}while(r); +} +S_14848:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12508);if(r)goto S_14848;} +do{ +qbs_set(__STRING_D,qbs_new_txt_len("internal\\c\\parts\\video\\font\\ttf\\",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12509);}while(r); +S_14850:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_D,qbs_new_txt_len("os\\",3)),__STRING_O),qbs_new_txt_len("\\src.o",6)))== 0 )))||new_error){ +if(qbevent){evnt(12511);if(r)goto S_14850;} +do{ +SUB_BUILD(qbs_add(qbs_add(__STRING_D,qbs_new_txt_len("os\\",3)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12512);}while(r); +} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_LOADFONT",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12514);}while(r); +do{ +qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),qbs_new_txt_len("parts\\video\\font\\ttf\\os\\",24)),__STRING_O),qbs_new_txt_len("\\src.o",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12515);}while(r); +} +do{ +qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12518);}while(r); +S_14857:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12520);if(r)goto S_14857;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_DEVICEINPUT",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12521);}while(r); +do{ +qbs_set(__STRING_LIBNAME,qbs_new_txt_len("input\\game_controller",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12522);}while(r); +do{ +qbs_set(__STRING_LIBPATH,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("parts\\",6),__STRING_LIBNAME),qbs_new_txt_len("\\os\\",4)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12523);}while(r); +do{ +qbs_set(__STRING_LIBFILE,qbs_add(__STRING_LIBPATH,qbs_new_txt_len("\\src.a",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12524);}while(r); +S_14862:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_LOCALPATH,__STRING_LIBFILE))== 0 )))||new_error){ +if(qbevent){evnt(12525);if(r)goto S_14862;} +do{ +SUB_BUILD(qbs_add(__STRING_LOCALPATH,__STRING_LIBPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12525);}while(r); +} +do{ +qbs_set(__STRING_LIBS,qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_LIBFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12526);}while(r); +} +S_14867:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12529);if(r)goto S_14867;} +do{ +tmp_long=array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(12529);}while(r); +} +S_14870:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12530);if(r)goto S_14870;} +do{ +tmp_long=array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(12530);}while(r); +} +S_14873:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12531);if(r)goto S_14873;} +do{ +tmp_long=array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(12531);}while(r); +} +S_14876:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12534);if(r)goto S_14876;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_CONVERSION",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12535);}while(r); +do{ +qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\conversion",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12537);}while(r); +do{ +qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12538);}while(r); +do{ +qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12539);}while(r); +S_14881:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ +if(qbevent){evnt(12540);if(r)goto S_14881;} +do{ +SUB_BUILD(__STRING_D3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12541);}while(r); +} +do{ +qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12543);}while(r); +} +S_14886:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12546);if(r)goto S_14886;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_DECODE",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12548);}while(r); +do{ +qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\decode\\mp3_mini",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12550);}while(r); +do{ +qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12551);}while(r); +do{ +qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12552);}while(r); +S_14891:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ +if(qbevent){evnt(12553);if(r)goto S_14891;} +do{ +SUB_BUILD(__STRING_D3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12554);}while(r); +} +do{ +qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12556);}while(r); +do{ +qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\decode\\ogg",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12558);}while(r); +do{ +qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12559);}while(r); +do{ +qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12560);}while(r); +S_14898:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.o",6)))== 0 )))||new_error){ +if(qbevent){evnt(12561);if(r)goto S_14898;} +do{ +SUB_BUILD(__STRING_D3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12562);}while(r); +} +do{ +qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.o",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12564);}while(r); +} +S_14903:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12569);if(r)goto S_14903;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_AUDIO_OUT",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12570);}while(r); +do{ +qbs_set(__STRING_D1,qbs_new_txt_len("parts\\audio\\out",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12571);}while(r); +do{ +qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12572);}while(r); +do{ +qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12573);}while(r); +S_14908:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ +if(qbevent){evnt(12574);if(r)goto S_14908;} +do{ +SUB_BUILD(__STRING_D3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12575);}while(r); +} +do{ +qbs_set(__STRING_LIBS,qbs_add(qbs_add(qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1)),__STRING_D2),qbs_new_txt_len("\\src.a",6))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12577);}while(r); +} +S_14913:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 13 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12580);if(r)goto S_14913;} do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12579);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_set(__STRING_DEFINES,qbs_add(qbs_add(__STRING_DEFINES,__STRING_DEFINES_HEADER),qbs_new_txt_len("DEPENDENCY_ZLIB",15))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12580);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1944; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1944; -skip1944: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(12581);}while(r); +S_14915:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12582);if(r)goto S_14915;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1945; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1945; -skip1945: +qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" -lz",4))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12582);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1946; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1946; -skip1946: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(12583);}while(r); +}else{ do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1947; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1947; -skip1947: +qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" -l:libz.a",10))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12584);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1948; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1948; -skip1948: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; if(!qbevent)break;evnt(12585);}while(r); +} +} +S_14921:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ +if(qbevent){evnt(12590);if(r)goto S_14921;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1949; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1949; -skip1949: +qbs_set(__STRING_LIBS,qbs_add(__STRING_LIBS,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12586);}while(r); +if(!qbevent)break;evnt(12590);}while(r); +} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1950; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1950; -skip1950: +SUB_PATH_SLASH_CORRECT(__STRING_LIBS); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12587);}while(r); +if(!qbevent)break;evnt(12591);}while(r); +S_14925:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ +if(qbevent){evnt(12592);if(r)goto S_14925;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1951; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1951; -skip1951: +qbs_set(__STRING_DEFINES,qbs_add(__STRING_DEFINES,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12588);}while(r); +if(!qbevent)break;evnt(12592);}while(r); +} +S_14928:; +if ((-(*__LONG_MAC== 0 ))||new_error){ +if(qbevent){evnt(12595);if(r)goto S_14928;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +qbs_set(__STRING_D1,qbs_new_txt_len("parts\\core",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12596);}while(r); +do{ +qbs_set(__STRING_D2,qbs_add(qbs_add(__STRING_D1,qbs_new_txt_len("\\os\\",4)),__STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12597);}while(r); +do{ +qbs_set(__STRING_D3,qbs_add(qbs_new_txt_len("internal\\c\\",11),__STRING_D2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12598);}while(r); +S_14932:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(__STRING_D3,qbs_new_txt_len("\\src.a",6)))== 0 )))||new_error){ +if(qbevent){evnt(12599);if(r)goto S_14932;} +do{ +SUB_BUILD(__STRING_D3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12600);}while(r); +} +} +do{ +qbs_set(__STRING_DEPSTR,qbs_add(__STRING_VER,qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12605);}while(r); +S_14937:; +fornext_value1947= 1 ; +fornext_finalvalue1947=*__LONG_DEPENDENCY_LAST; +fornext_step1947= 1 ; +if (fornext_step1947<0) fornext_step_negative1947=1; else fornext_step_negative1947=0; +if (new_error) goto fornext_error1947; +goto fornext_entrylabel1947; +while(1){ +fornext_value1947=fornext_step1947+(*__LONG_I); +fornext_entrylabel1947: +*__LONG_I=fornext_value1947; +if (fornext_step_negative1947){ +if (fornext_value1947fornext_finalvalue1947) break; +} +fornext_error1947:; +if(qbevent){evnt(12606);if(r)goto S_14937;} +S_14938:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12607);if(r)goto S_14938;} +do{ +qbs_set(__STRING_DEPSTR,qbs_add(__STRING_DEPSTR,qbs_new_txt_len("1",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12607);}while(r); +}else{ +do{ +qbs_set(__STRING_DEPSTR,qbs_add(__STRING_DEPSTR,qbs_new_txt_len("0",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12607);}while(r); +} +fornext_continue_1946:; +} +fornext_exit_1946:; +do{ +qbs_set(__STRING_LIBQB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" libqb\\os\\",10),__STRING_O),qbs_new_txt_len("\\libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o ",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12609);}while(r); +do{ +SUB_PATH_SLASH_CORRECT(__STRING_LIBQB); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12610);}while(r); +S_14946:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_new_txt_len("internal\\c\\",11),qbs_ltrim(qbs_rtrim(__STRING_LIBQB))))== 0 )))||new_error){ +if(qbevent){evnt(12611);if(r)goto S_14946;} +do{ +sub_chdir(qbs_new_txt_len("internal\\c",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12612);}while(r); +S_14948:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(12613);if(r)goto S_14948;} +do{ +sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c c_compiler\\bin\\g++ -c -s -w -Wall libqb.cpp -D FREEGLUT_STATIC ",70),__STRING_DEFINES),qbs_new_txt_len(" -o libqb\\os\\",13)),__STRING_O),qbs_new_txt_len("\\libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12614);}while(r); +}else{ +S_14951:; +if ((*__LONG_MAC)||new_error){ +if(qbevent){evnt(12616);if(r)goto S_14951;} +do{ +sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("g++ -c -s -w -Wall libqb.mm ",28),__STRING_DEFINES),qbs_new_txt_len(" -o libqb/os/",13)),__STRING_O),qbs_new_txt_len("/libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12617);}while(r); +}else{ +do{ +sub_shell2(qbs_add(qbs_add(FUNC_GDB_FIX(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("g++ -c -s -w -Wall libqb.cpp -D FREEGLUT_STATIC ",48),__STRING_DEFINES),qbs_new_txt_len(" -o libqb/os/",13)),__STRING_O),qbs_new_txt_len("/libqb_",7)),__STRING_DEPSTR),qbs_new_txt_len(".o",2))),qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12619);}while(r); +} +} +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12622);}while(r); +} +S_14959:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12626);if(r)goto S_14959;} +S_14960:; +if ((*__LONG_MAC)||new_error){ +if(qbevent){evnt(12627);if(r)goto S_14960;} +do{ +qbs_set(__STRING_DEFINES,qbs_add(__STRING_DEFINES,qbs_new_txt_len(" -framework AudioUnit -framework AudioToolbox ",46))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12627);}while(r); +} +} +S_14964:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(12654);if(r)goto S_14964;} +S_14965:; +fornext_value1949= 1 ; +fornext_finalvalue1949=*__LONG_RESOLVESTATICFUNCTIONS; +fornext_step1949= 1 ; +if (fornext_step1949<0) fornext_step_negative1949=1; else fornext_step_negative1949=0; +if (new_error) goto fornext_error1949; +goto fornext_entrylabel1949; +while(1){ +fornext_value1949=fornext_step1949+(*__LONG_X); +fornext_entrylabel1949: +*__LONG_X=fornext_value1949; +if (fornext_step_negative1949){ +if (fornext_value1949fornext_finalvalue1949) break; +} +fornext_error1949:; +if(qbevent){evnt(12657);if(r)goto S_14965;} +S_14966:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||new_error){ +if(qbevent){evnt(12658);if(r)goto S_14966;} +do{ +*__LONG_N= 0 ; +if(!qbevent)break;evnt(12660);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\nm.exe ",33),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" --demangle -g >internal\\temp\\nm_output.txt",43)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12661);}while(r); +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(12662);}while(r); +do{ +qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12663);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12664);}while(r); +S_14972:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(12665);if(r)goto S_14972;} +do{ +tmp_fileno=*__LONG_FH; if (new_error) goto skip1952; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1952; skip1952: qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12589);}while(r); +if(!qbevent)break;evnt(12666);}while(r); +S_14974:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12667);if(r)goto S_14974;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1953; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1953; -skip1953: +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12590);}while(r); +if(!qbevent)break;evnt(12669);}while(r); +S_14976:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12670);if(r)goto S_14976;} +S_14977:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12671);if(r)goto S_14977;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(12672);}while(r); +do{ +*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12673);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12674);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12675);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +tab_fileno=tmp_fileno=*__LONG_FH2; if (new_error) goto skip1954; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); if (new_error) goto skip1954; skip1954: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(12591);}while(r); +if(!qbevent)break;evnt(12676);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1955; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1955; -skip1955: +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12677);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12679);}while(r); +} +} +dl_continue_1951:; +} +dl_exit_1951:; +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(12683);}while(r); +S_14990:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12684);if(r)goto S_14990;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12592);}while(r); +if(!qbevent)break;evnt(12684);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12684);}while(r); +} +S_14994:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12686);if(r)goto S_14994;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(12687);}while(r); +do{ +qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12688);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12689);}while(r); +S_14998:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(12690);if(r)goto S_14998;} +do{ +tmp_fileno=*__LONG_FH; if (new_error) goto skip1956; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +sub_file_line_input_string(tmp_fileno,__STRING_A); if (new_error) goto skip1956; skip1956: qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12593);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1957; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1957; -skip1957: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12594);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1958; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); -if (new_error) goto skip1958; -skip1958: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12595);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12596);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("debug_lnx.sh",12)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12597);}while(r); -} -S_14744:; -if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ -if(qbevent){evnt(12601);if(r)goto S_14744;} -do{ -sub_chdir(qbs_new_txt_len("./internal/c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12602);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12603);}while(r); -do{ -sub_chdir(qbs_new_txt_len("../..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12604);}while(r); -S_14748:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12605);if(r)goto S_14748;} -do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1959= 0 )); -if(!qbevent)break;evnt(12607);}while(r); -} -} -S_14752:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12611);if(r)goto S_14752;} -do{ -*__LONG_FF=func_freefile(); -if(!qbevent)break;evnt(12612);}while(r); -S_14754:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||new_error){ -if(qbevent){evnt(12613);if(r)goto S_14754;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12613);}while(r); -} -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)), 4 ,NULL,NULL,*__LONG_FF,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12614);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1960; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname ",10)),func_chr( 34 )),qbs_new_txt_len("$0",2)),func_chr( 34 )),qbs_new_txt_len(")",1)),func_chr( 34 )), 0 , 0 , 0 ); -if (new_error) goto skip1960; -skip1960: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12615);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1961; -sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); -if (new_error) goto skip1961; -skip1961: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12616);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1962; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("./",2),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" &",2)), 0 , 0 , 0 ); -if (new_error) goto skip1962; -skip1962: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12617);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1963; -sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); -if (new_error) goto skip1963; -skip1963: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12618);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1964; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'tell application ",31),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to close (every window whose name contains ",44)),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)),func_chr( 34 )),qbs_new_txt_len(")' &",4)), 0 , 0 , 0 ); -if (new_error) goto skip1964; -skip1964: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12619);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1965; -sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); -if (new_error) goto skip1965; -skip1965: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12620);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1966; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'if (count the windows of application ",51),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(") is 0 then tell application ",29)),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to quit' &",11)), 0 , 0 , 0 ); -if (new_error) goto skip1966; -skip1966: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12621);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1967; -sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); -if (new_error) goto skip1967; -skip1967: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12622);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1968; -sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0 , 0 , 0 ); -if (new_error) goto skip1968; -skip1968: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12623);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip1969; -sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); -if (new_error) goto skip1969; -skip1969: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12624);}while(r); -do{ -sub_close(*__LONG_FF,1); -if(!qbevent)break;evnt(12625);}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12626);}while(r); -} -} -S_14772:; -if ((*__LONG_NO_C_COMPILE_MODE)||new_error){ -if(qbevent){evnt(12631);if(r)goto S_14772;} -do{ -*__LONG_COMPFAILED= 0 ; -if(!qbevent)break;evnt(12631);}while(r); -do{ -goto LABEL_NO_C_COMPILE; -if(!qbevent)break;evnt(12631);}while(r); -} -S_14776:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||new_error){ -if(qbevent){evnt(12632);if(r)goto S_14776;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12632);}while(r); -} -S_14779:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ -if(qbevent){evnt(12633);if(r)goto S_14779;} -do{ -*__LONG_COMPFAILED= 0 ; -if(!qbevent)break;evnt(12634);}while(r); -do{ -qbs_set(__STRING_LASTBINARYGENERATED,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12635);}while(r); -}else{ -do{ -*__LONG_COMPFAILED= 1 ; -if(!qbevent)break;evnt(12637);}while(r); -} -S_14785:; -if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(12640);if(r)goto S_14785;} -S_14786:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12641);if(r)goto S_14786;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("C++ Compilation failed (Check ",30),func_chr( 0 )),__STRING_COMPILELOG),func_chr( 0 )),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12642);}while(r); -do{ -goto LABEL_IDEERROR; -if(!qbevent)break;evnt(12643);}while(r); -} -S_14790:; -if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(12645);if(r)goto S_14790;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("C++ COMPILATION FAILED!",23)); -if (new_error) goto skip1970; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1970: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12646);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("Check ",6),__STRING_COMPILELOG),qbs_new_txt_len(" for details.",13))); -if (new_error) goto skip1971; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1971: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12647);}while(r); -} -}else{ -S_14795:; -if ((-(*__LONG_IDEMODE== 0 ))||new_error){ -if(qbevent){evnt(12650);if(r)goto S_14795;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("OUTPUT: ",8)); -if (new_error) goto skip1972; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_LASTBINARYGENERATED); -if (new_error) goto skip1972; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1972: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12650);}while(r); -} -} -LABEL_SKIP_BUILD:; -if(qbevent){evnt(12655);r=0;} -S_14799:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12659);if(r)goto S_14799;} -do{ -goto LABEL_IDERET6; -if(!qbevent)break;evnt(12659);}while(r); -} -LABEL_NO_C_COMPILE:; -if(qbevent){evnt(12661);r=0;} -S_14802:; -if (((-(*__LONG_COMPFAILED!= 0 ))&(-(*__LONG_CONSOLEMODE== 0 )))||new_error){ -if(qbevent){evnt(12663);if(r)goto S_14802;} -do{ -if(qbevent){evnt(12663);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(12663);}while(r); -} -S_14805:; -if ((-(*__LONG_COMPFAILED!= 0 ))||new_error){ -if(qbevent){evnt(12664);if(r)goto S_14805;} -do{ -if(qbevent){evnt(12664);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12664);}while(r); -} -do{ -if(qbevent){evnt(12665);} -exit_code= 0 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12665);}while(r); -LABEL_QBERROR_TEST:; -if(qbevent){evnt(12667);r=0;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(12668);}while(r); -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;} -if(!qbevent)break;evnt(12669);}while(r); -LABEL_QBERROR:; -if(qbevent){evnt(12671);r=0;} -S_14811:; -if (( 0 )||new_error){ -if(qbevent){evnt(12672);if(r)goto S_14811;} -S_14812:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(12673);if(r)goto S_14812;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1973: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12674);}while(r); -}else{ -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(12676);}while(r); -do{ -qbg_screen(func__newimage( 80 , 25 , 0 ,1),NULL, 0 , 0 ,NULL,13); -if(!qbevent)break;evnt(12677);}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(12678);}while(r); -} -do{ -sub__controlchr( 2 ); -if(!qbevent)break;evnt(12680);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("A QB error has occurred (and you have compiled in debugging support).",69)); -if (new_error) goto skip1974; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1974: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12681);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64.bas):",32)); -if (new_error) goto skip1975; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1975: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12682);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Error",5)); -if (new_error) goto skip1976; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" "))); -if (new_error) goto skip1976; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1976: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12683);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Line",4)); -if (new_error) goto skip1977; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" "))); -if (new_error) goto skip1977; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1977: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12684);}while(r); -S_14824:; -if ((func__inclerrorline())||new_error){ -if(qbevent){evnt(12685);if(r)goto S_14824;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Included line",13)); -if (new_error) goto skip1978; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" "))); -if (new_error) goto skip1978; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1978: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12686);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Included file ",14)); -if (new_error) goto skip1979; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,func__inclerrorfile()); -if (new_error) goto skip1979; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1979: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12687);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1980: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12689);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27)); -if (new_error) goto skip1981; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1981: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12690);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("ideerror =",10)); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" "))); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17)); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" "))); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22)); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" "))); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("linenumber =",12)); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" "))); -if (new_error) goto skip1982; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1982: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12691);}while(r); +S_15000:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12692);if(r)goto S_15000;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7)); -if (new_error) goto skip1983; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_CA); -if (new_error) goto skip1983; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18)); -if (new_error) goto skip1983; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_IDECOMMAND); -if (new_error) goto skip1983; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("}",1)); -if (new_error) goto skip1983; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1983: -qbs_free(tqbs); +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12692);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16)); -if (new_error) goto skip1984; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_LINEFRAGMENT); -if (new_error) goto skip1984; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("}",1)); -if (new_error) goto skip1984; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1984: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12693);}while(r); -do{ -sub_end(); if(!qbevent)break;evnt(12694);}while(r); -} -S_14835:; -if ((*__LONG_IDEERROR)||new_error){ -if(qbevent){evnt(12697);if(r)goto S_14835;} +S_15002:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12695);if(r)goto S_15002;} do{ -*__LONG_FH=func_freefile(); +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12696);}while(r); +S_15004:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12697);if(r)goto S_15004;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12698);}while(r); do{ -sub_open(qbs_new_txt_len("internal\\temp\\ideerror.txt",26), 4 ,NULL,NULL,*__LONG_FH,NULL,0); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1959; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip1959; +skip1959: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12699);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip1985; -sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1 , 0 , 1 ); -if (new_error) goto skip1985; -skip1985: +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1960; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); +if (new_error) goto skip1960; +skip1960: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12700);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip1986; -sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1 , 0 , 1 ); -if (new_error) goto skip1986; -skip1986: +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1961; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1961; +skip1961: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; if(!qbevent)break;evnt(12701);}while(r); +}else{ do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(12702);}while(r); -do{ -qbs_set(__STRING_SENDC,func_chr( 255 )); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12703);}while(r); do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;} +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1962; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); +if (new_error) goto skip1962; +skip1962: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12704);}while(r); } do{ -*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED; +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12706);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(12707);}while(r); do{ -*__INTEGER_QBERRORHAPPENED= 1 ; +goto dl_exit_1955; if(!qbevent)break;evnt(12708);}while(r); -S_14846:; -if (( 0 )||new_error){ -if(qbevent){evnt(12710);if(r)goto S_14846;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1987; -sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0 , 0 , 1 ); -if (new_error) goto skip1987; -skip1987: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12710);}while(r); } -S_14849:; -if (( 0 )||new_error){ -if(qbevent){evnt(12711);if(r)goto S_14849;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1988; -sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0 , 0 , 0 ); -if (new_error) goto skip1988; -sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1 , 0 , 1 ); -if (new_error) goto skip1988; -skip1988: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12711);}while(r); } -S_14852:; -if (( 0 )||new_error){ -if(qbevent){evnt(12712);if(r)goto S_14852;} +dl_continue_1955:; +} +dl_exit_1955:; do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1989; -sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0 , 0 , 0 ); -if (new_error) goto skip1989; -sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1 , 0 , 1 ); -if (new_error) goto skip1989; -skip1989: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; +sub_close(*__LONG_FH,1); if(!qbevent)break;evnt(12712);}while(r); } -S_14855:; -if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||new_error){ -if(qbevent){evnt(12714);if(r)goto S_14855;} +S_15021:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12715);if(r)goto S_15021;} do{ -*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\nm ",29),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" -D --demangle -g >.\\internal\\temp\\nm_output_dynamic.txt",56)),2); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12716);}while(r); do{ -qbs_set(__STRING_IDEMESSAGE,qbs_new_txt_len("Compiler error (check for syntax errors) (Reference:",52)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12717);}while(r); -S_14858:; -if ((get_error_err())||new_error){ -if(qbevent){evnt(12718);if(r)goto S_14858;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass1990=get_error_err()))),qbs_new_txt_len("-",1))); +qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12718);}while(r); -} -S_14861:; -if ((func__errorline())||new_error){ -if(qbevent){evnt(12719);if(r)goto S_14861;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass1991=func__errorline())))); +sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12719);}while(r); -} -S_14864:; -if ((func__inclerrorline())||new_error){ -if(qbevent){evnt(12720);if(r)goto S_14864;} +S_15026:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(12720);if(r)goto S_15026;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass1992=func__inclerrorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12720);}while(r); -} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1))); +tmp_fileno=*__LONG_FH; +if (new_error) goto skip1964; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip1964; +skip1964: qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12721);}while(r); -S_14868:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(12722);if(r)goto S_14868;} +S_15028:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12722);if(r)goto S_15028;} do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12722);}while(r); -} +if(!qbevent)break;evnt(12724);}while(r); +S_15030:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12725);if(r)goto S_15030;} +S_15031:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12726);if(r)goto S_15031;} do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;} -if(!qbevent)break;evnt(12723);}while(r); -} -S_14873:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||new_error){ -if(qbevent){evnt(12726);if(r)goto S_14873;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_X1=*__LONG_X1+ 1 ; if(!qbevent)break;evnt(12727);}while(r); do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12727);}while(r); -} +*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12728);}while(r); do{ -*__INTEGER_QBERRORCODE=get_error_err(); +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12729);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12730);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1966; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip1966; +skip1966: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12731);}while(r); do{ -*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl()); +sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(12732);}while(r); -S_14879:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||new_error){ -if(qbevent){evnt(12733);if(r)goto S_14879;} -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;} -if(!qbevent)break;evnt(12733);}while(r); } -S_14882:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||new_error){ -if(qbevent){evnt(12734);if(r)goto S_14882;} do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;} +*__LONG_N=*__LONG_N+ 1 ; if(!qbevent)break;evnt(12734);}while(r); } -S_14885:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||new_error){ -if(qbevent){evnt(12735);if(r)goto S_14885;} -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;} -if(!qbevent)break;evnt(12735);}while(r); } +dl_continue_1963:; +} +dl_exit_1963:; do{ -sub_end(); -if(!qbevent)break;evnt(12736);}while(r); -LABEL_ERRMES:; -if(qbevent){evnt(12738);r=0;} -S_14889:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12739);if(r)goto S_14889;} +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(12738);}while(r); +S_15044:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12739);if(r)goto S_15044;} do{ -qbs_set(__STRING_A,__STRING_ERROR_MESSAGE); +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12739);}while(r); do{ -*__LONG_ERROR_HAPPENED= 0 ; +goto LABEL_ERRMES; if(!qbevent)break;evnt(12739);}while(r); } +} +S_15049:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12742);if(r)goto S_15049;} do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12740);}while(r); -do{ -*__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(12740);}while(r); -S_14895:; -if ((*__LONG_FORCEINCLUDINGFILE)||new_error){ -if(qbevent){evnt(12742);if(r)goto S_14895;} -S_14896:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||new_error){ -if(qbevent){evnt(12743);if(r)goto S_14896;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB without END SUB",19)); -qbs_cleanup(qbs_tmp_base,0); +*__LONG_FH=func_freefile(); if(!qbevent)break;evnt(12743);}while(r); -} -}else{ -S_14900:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(12745);if(r)goto S_14900;} do{ -qbs_set(__STRING_A,qbs_add(__STRING_A,__STRING_INCERROR)); +qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12744);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12745);}while(r); -} -} -S_14904:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12748);if(r)goto S_14904;} +S_15053:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(12746);if(r)goto S_15053;} do{ -*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(12749);}while(r); +tmp_fileno=*__LONG_FH; +if (new_error) goto skip1968; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip1968; +skip1968: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12747);}while(r); +S_15055:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12748);if(r)goto S_15055;} do{ -qbs_set(__STRING_IDEMESSAGE,__STRING_A); +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12750);}while(r); +S_15057:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12751);if(r)goto S_15057;} do{ -goto LABEL_IDEERROR; -if(!qbevent)break;evnt(12751);}while(r); -} +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12752);}while(r); +S_15059:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12753);if(r)goto S_15059;} do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1993: -qbs_free(tqbs); +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(12754);}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_A); -if (new_error) goto skip1994; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1994: -qbs_free(tqbs); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1971; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip1971; +skip1971: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12755);}while(r); -S_14911:; -fornext_value1996= 1 ; -fornext_finalvalue1996=__STRING_LINEFRAGMENT->len; -fornext_step1996= 1 ; -if (fornext_step1996<0) fornext_step_negative1996=1; else fornext_step_negative1996=0; -if (new_error) goto fornext_error1996; -goto fornext_entrylabel1996; -while(1){ -fornext_value1996=fornext_step1996+(*__LONG_I); -fornext_entrylabel1996: -*__LONG_I=fornext_value1996; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative1996){ -if (fornext_value1996fornext_finalvalue1996) break; -} -fornext_error1996:; -if(qbevent){evnt(12756);if(r)goto S_14911;} -S_14912:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(12757);if(r)goto S_14912;} do{ -sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1972; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); +if (new_error) goto skip1972; +skip1972: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12756);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1973; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip1973; +skip1973: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12757);}while(r); -} -fornext_continue_1995:; -} -fornext_exit_1995:; -S_14916:; -fornext_value1999= 1 ; -fornext_finalvalue1999=__STRING_WHOLELINE->len; -fornext_step1999= 1 ; -if (fornext_step1999<0) fornext_step_negative1999=1; else fornext_step_negative1999=0; -if (new_error) goto fornext_error1999; -goto fornext_entrylabel1999; -while(1){ -fornext_value1999=fornext_step1999+(*__LONG_I); -fornext_entrylabel1999: -*__LONG_I=fornext_value1999; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative1999){ -if (fornext_value1999fornext_finalvalue1999) break; -} -fornext_error1999:; -if(qbevent){evnt(12759);if(r)goto S_14916;} -S_14917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(12760);if(r)goto S_14917;} do{ -sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12759);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1974; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); +if (new_error) goto skip1974; +skip1974: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(12760);}while(r); } -fornext_continue_1998:; -} -fornext_exit_1998:; do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT)); -if (new_error) goto skip2001; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2001: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); +sub_close(*__LONG_FH2,1); if(!qbevent)break;evnt(12762);}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LINE ",5),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len(":",1)),__STRING_WHOLELINE)); +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12763);}while(r); +do{ +goto dl_exit_1967; +if(!qbevent)break;evnt(12764);}while(r); +} +} +dl_continue_1967:; +} +dl_exit_1967:; +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(12768);}while(r); +S_15075:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12769);if(r)goto S_15075;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12769);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12769);}while(r); +} +} +} +fornext_continue_1948:; +} +fornext_exit_1948:; +S_15082:; +if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ +if(qbevent){evnt(12775);if(r)goto S_15082;} +S_15083:; +if ((*__LONG_DATAOFFSET)||new_error){ +if(qbevent){evnt(12776);if(r)goto S_15083;} +S_15084:; +if ((-(*__LONG_OS_BITS== 32 ))||new_error){ +if(qbevent){evnt(12777);if(r)goto S_15084;} +do{ +sub_open(qbs_new_txt_len(".\\internal\\c\\makedat_win32.txt",30), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12778);}while(r); +do{ +tmp_fileno= 150 ; +if (new_error) goto skip1975; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip1975; +skip1975: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12778);}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(12778);}while(r); +}else{ +do{ +sub_open(qbs_new_txt_len(".\\internal\\c\\makedat_win64.txt",30), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12780);}while(r); +do{ +tmp_fileno= 150 ; +if (new_error) goto skip1976; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip1976; +skip1976: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12780);}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(12780);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.bin ",9)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12782);}while(r); +do{ +sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12783);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_A),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12784);}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12785);}while(r); +} +} +do{ +sub_open(qbs_new_txt_len(".\\internal\\c\\makeline_win.txt",29), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12792);}while(r); +do{ +tmp_fileno= 150 ; +if (new_error) goto skip1977; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip1977; +skip1977: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12793);}while(r); +do{ +qbs_set(__STRING_A,FUNC_GDB_FIX(__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12793);}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(12794);}while(r); +S_15103:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A, 7 ),qbs_new_txt_len(" ..\\..\\",7))))||new_error){ +if(qbevent){evnt(12795);if(r)goto S_15103;} +do{ +qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 6 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12795);}while(r); +} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("qbx.cpp",7),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12797);}while(r); +S_15107:; +if (((-(*__LONG_X!= 0 ))&(-(*__LONG_TEMPFOLDERINDEX!= 1 )))||new_error){ +if(qbevent){evnt(12797);if(r)goto S_15107;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("qbx",3)),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".cpp",4)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 6 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12797);}while(r); +} +S_15110:; +if ((*__LONG_CONSOLE)||new_error){ +if(qbevent){evnt(12799);if(r)goto S_15110;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -s",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12800);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -mconsole",10)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12800);}while(r); +} +S_15114:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12803);if(r)goto S_15114;} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-mwindows",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12804);}while(r); +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lopengl32",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12805);}while(r); +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lglu32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12806);}while(r); +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("parts\\core\\os\\win\\src.a",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12807);}while(r); +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-D FREEGLUT_STATIC",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12808);}while(r); +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-D GLEW_STATIC",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12809);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lws2_32",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12812);}while(r); +S_15123:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12813);if(r)goto S_15123;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12814);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lws2_32",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12814);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lwinspool",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12817);}while(r); +S_15128:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12818);if(r)goto S_15128;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12819);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lwinspool",11)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12819);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lwinmm",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12822);}while(r); +S_15133:; +if (((-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]== 0 )))||new_error){ +if(qbevent){evnt(12823);if(r)goto S_15133;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12824);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lwinmm",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12824);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lksguid",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12827);}while(r); +S_15138:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12828);if(r)goto S_15138;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12829);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lksguid",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12829);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-ldxguid",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12832);}while(r); +S_15143:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12833);if(r)goto S_15143;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12834);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -ldxguid",9)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12834);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lole32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12837);}while(r); +S_15148:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12838);if(r)goto S_15148;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12839);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lole32",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12839);}while(r); +} +do{ +qbs_set(__STRING_A,FUNC_STRREMOVE(__STRING_A,qbs_new_txt_len("-lgdi32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12842);}while(r); +S_15153:; +if (((-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 ))|(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 )))||new_error){ +if(qbevent){evnt(12843);if(r)goto S_15153;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(" -o",3),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12844);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" -lgdi32",8)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12844);}while(r); +} +S_15157:; +if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ +if(qbevent){evnt(12847);if(r)goto S_15157;} +S_15158:; +if ((*__LONG_DATAOFFSET)||new_error){ +if(qbevent){evnt(12849);if(r)goto S_15158;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12850);}while(r); +S_15160:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12851);if(r)goto S_15160;} +do{ +*__LONG_X=*__LONG_X+ 3 ; +if(!qbevent)break;evnt(12852);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X),qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6)),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12853);}while(r); +} +} +} +S_15166:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_MYLIB->len))||new_error){ +if(qbevent){evnt(12860);if(r)goto S_15166;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12861);}while(r); +S_15168:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12862);if(r)goto S_15168;} +do{ +*__LONG_X=*__LONG_X+ 3 ; +if(!qbevent)break;evnt(12863);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X),qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12864);}while(r); +} +} +S_15173:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ +if(qbevent){evnt(12870);if(r)goto S_15173;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12871);}while(r); +S_15175:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12872);if(r)goto S_15175;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(12873);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBS),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12874);}while(r); +} +} +S_15180:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ +if(qbevent){evnt(12879);if(r)goto S_15180;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12880);}while(r); +S_15182:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12881);if(r)goto S_15182;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(12882);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_DEFINES),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12883);}while(r); +} +} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12888);}while(r); +S_15188:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12889);if(r)goto S_15188;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(12890);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBQB),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12891);}while(r); +} +S_15192:; +if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12895);if(r)goto S_15192;} +S_15193:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(12896);if(r)goto S_15193;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X+__STRING_LIBQB->len),qbs_new_txt_len("..\\..\\",6)),__STRING_TMPDIR),qbs_new_txt_len("icon.o ",7)),func_mid(__STRING_A,*__LONG_X+__STRING_LIBQB->len+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12897);}while(r); +} +} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_A,FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12901);}while(r); +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12903);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_win.bat",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12904);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1998; +sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0 , 0 , 1 ); +if (new_error) goto skip1998; +skip1998: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12905);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1999; +sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0 , 0 , 1 ); +if (new_error) goto skip1999; +skip1999: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12906);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2000; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo Recompiling...",19), 0 , 0 , 1 ); +if (new_error) goto skip2000; +skip2000: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12907);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2001; +sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../c",7), 0 , 0 , 1 ); +if (new_error) goto skip2001; +skip2001: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12908);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; if (new_error) goto skip2002; +sub_file_print(tmp_fileno,__STRING_A, 0 , 0 , 1 ); +if (new_error) goto skip2002; +skip2002: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12909);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2003; +sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); +if (new_error) goto skip2003; +skip2003: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12910);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12911);}while(r); +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12913);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_win.bat",13)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12914);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2004; +sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0 , 0 , 1 ); +if (new_error) goto skip2004; +skip2004: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12915);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2005; +sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0 , 0 , 1 ); +if (new_error) goto skip2005; +skip2005: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12916);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2006; +sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0 , 0 , 1 ); +if (new_error) goto skip2006; +skip2006: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12917);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2007; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo C++ Debugging: ",20),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using gdb.exe",14)), 0 , 0 , 1 ); +if (new_error) goto skip2007; +skip2007: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12918);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2008; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0 , 0 , 1 ); +if (new_error) goto skip2008; +skip2008: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12919);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2009; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo After the debugger launches type 'run' to start your program",65), 0 , 0 , 1 ); +if (new_error) goto skip2009; +skip2009: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12920);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2010; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo After your program crashes type 'list' to find where the problem is and fix/report it",90), 0 , 0 , 1 ); +if (new_error) goto skip2010; +skip2010: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12921);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2011; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0 , 0 , 1 ); +if (new_error) goto skip2011; +skip2011: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12922);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2012; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo (the GDB debugger has many other useful commands, this advice is for beginners)",84), 0 , 0 , 1 ); +if (new_error) goto skip2012; +skip2012: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12923);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2013; +sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); +if (new_error) goto skip2013; +skip2013: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12924);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2014; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\gdb.exe ",34),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )), 0 , 0 , 1 ); +if (new_error) goto skip2014; +skip2014: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12925);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2015; +sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0 , 0 , 1 ); +if (new_error) goto skip2015; +skip2015: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12926);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12927);}while(r); +S_15222:; +if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ +if(qbevent){evnt(12929);if(r)goto S_15222;} +do{ +sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12930);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),__STRING_A),qbs_new_txt_len(" 2>> ..\\..\\",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12931);}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12932);}while(r); +S_15226:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(12933);if(r)goto S_15226;} +do{ +*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2016= 0 )); +if(!qbevent)break;evnt(12935);}while(r); +} +} +} +S_15231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(12941);if(r)goto S_15231;} +S_15232:; +fornext_value2018= 1 ; +fornext_finalvalue2018=*__LONG_RESOLVESTATICFUNCTIONS; +fornext_step2018= 1 ; +if (fornext_step2018<0) fornext_step_negative2018=1; else fornext_step_negative2018=0; +if (new_error) goto fornext_error2018; +goto fornext_entrylabel2018; +while(1){ +fornext_value2018=fornext_step2018+(*__LONG_X); +fornext_entrylabel2018: +*__LONG_X=fornext_value2018; +if (fornext_step_negative2018){ +if (fornext_value2018fornext_finalvalue2018) break; +} +fornext_error2018:; +if(qbevent){evnt(12942);if(r)goto S_15232;} +S_15233:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))->len))||new_error){ +if(qbevent){evnt(12943);if(r)goto S_15233;} +do{ +*__LONG_N= 0 ; +if(!qbevent)break;evnt(12945);}while(r); +S_15235:; +if ((-(*__LONG_MACOSX== 0 ))||new_error){ +if(qbevent){evnt(12946);if(r)goto S_15235;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" --demangle -g >./internal/temp/nm_output.txt 2>./internal/temp/nm_error.txt",76)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12946);}while(r); +} +S_15238:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12947);if(r)goto S_15238;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" >./internal/temp/nm_output.txt 2>./internal/temp/nm_error.txt",62)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12947);}while(r); +} +S_15241:; +if ((-(*__LONG_MACOSX== 0 ))||new_error){ +if(qbevent){evnt(12949);if(r)goto S_15241;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(12950);}while(r); +do{ +qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12951);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12952);}while(r); +S_15245:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(12953);if(r)goto S_15245;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip2021; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip2021; +skip2021: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12954);}while(r); +S_15247:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12955);if(r)goto S_15247;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12957);}while(r); +S_15249:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12958);if(r)goto S_15249;} +S_15250:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12959);if(r)goto S_15250;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(12960);}while(r); +do{ +*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12961);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12962);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12963);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2023; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2023; +skip2023: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12964);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12965);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12967);}while(r); +} +} +dl_continue_2020:; +} +dl_exit_2020:; +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(12971);}while(r); +S_15263:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12972);if(r)goto S_15263;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12972);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12972);}while(r); +} +} +S_15268:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12975);if(r)goto S_15268;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(12976);}while(r); +do{ +qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12977);}while(r); +do{ +qbs_set(__STRING_S2,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12977);}while(r); +S_15272:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12978);if(r)goto S_15272;} +do{ +qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" _",2),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12978);}while(r); +} +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output.txt",27), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12979);}while(r); +S_15276:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(12980);if(r)goto S_15276;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip2025; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip2025; +skip2025: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12981);}while(r); +S_15278:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12982);if(r)goto S_15278;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12984);}while(r); +S_15280:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12985);if(r)goto S_15280;} +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12986);}while(r); +S_15282:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12987);if(r)goto S_15282;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12988);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2028; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip2028; +skip2028: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12989);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2029; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S2),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); +if (new_error) goto skip2029; +skip2029: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12990);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2030; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2030; +skip2030: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12991);}while(r); +}else{ +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12993);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2031; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); +if (new_error) goto skip2031; +skip2031: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12994);}while(r); +} +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12996);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12997);}while(r); +do{ +goto dl_exit_2024; +if(!qbevent)break;evnt(12998);}while(r); +} +} +dl_continue_2024:; +} +dl_exit_2024:; +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(13002);}while(r); +} +S_15299:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(13005);if(r)goto S_15299;} +S_15300:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(13006);if(r)goto S_15300;} +do{ +goto LABEL_MACOSX_LIBFIND_FAILED; +if(!qbevent)break;evnt(13006);}while(r); +} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("nm ",3),func_chr( 34 )),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),func_chr( 34 )),qbs_new_txt_len(" -D --demangle -g >./internal/temp/nm_output_dynamic.txt 2>./internal/temp/nm_error.txt",87)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13007);}while(r); +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(13008);}while(r); +do{ +qbs_set(__STRING_S,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13009);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13010);}while(r); +S_15307:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(13011);if(r)goto S_15307;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip2033; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip2033; +skip2033: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13012);}while(r); +S_15309:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(13013);if(r)goto S_15309;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13015);}while(r); +S_15311:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(13016);if(r)goto S_15311;} +S_15312:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(13017);if(r)goto S_15312;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(13018);}while(r); +do{ +*__LONG_X2=func_instr(*__LONG_X1,__STRING_A,qbs_new_txt_len(")",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13019);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(13020);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13021);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2035; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),func_mid(__STRING_A,*__LONG_X1,*__LONG_X2-*__LONG_X1+ 1 ,1)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2035; +skip2035: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13022);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(13023);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(13025);}while(r); +} +} +dl_continue_2032:; +} +dl_exit_2032:; +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(13029);}while(r); +S_15325:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(13030);if(r)goto S_15325;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Unable to resolve multiple instances of sub/function '",54),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13030);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(13030);}while(r); +} +} +S_15330:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(13033);if(r)goto S_15330;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(13034);}while(r); +do{ +qbs_set(__STRING_S,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13035);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\nm_output_dynamic.txt",35), 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13036);}while(r); +S_15334:; +while((!(func_eof(*__LONG_FH)))||new_error){ +if(qbevent){evnt(13037);if(r)goto S_15334;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip2037; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip2037; +skip2037: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13038);}while(r); +S_15336:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(13039);if(r)goto S_15336;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13041);}while(r); +S_15338:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(13042);if(r)goto S_15338;} +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(13043);}while(r); +S_15340:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(13044);if(r)goto S_15340;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("global.txt",10)), 5 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13045);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2040; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len("{",1)), 0 , 0 , 1 ); +if (new_error) goto skip2040; +skip2040: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13046);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2041; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("extern void ",12),__STRING_S),qbs_new_txt_len("(void);",7)), 0 , 0 , 1 ); +if (new_error) goto skip2041; +skip2041: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13047);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2042; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2042; +skip2042: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13048);}while(r); +}else{ +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13050);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2043; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("extern ",7),func_chr( 34 )),qbs_new_txt_len("C",1)),func_chr( 34 )),qbs_new_txt_len(" ",1)), 0 , 0 , 1 ); +if (new_error) goto skip2043; +skip2043: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13051);}while(r); +} +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(13053);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(13054);}while(r); +do{ +goto dl_exit_2036; +if(!qbevent)break;evnt(13055);}while(r); +} +} +dl_continue_2036:; +} +dl_exit_2036:; +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(13059);}while(r); +LABEL_MACOSX_LIBFIND_FAILED:; +if(qbevent){evnt(13060);r=0;} +S_15356:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(13061);if(r)goto S_15356;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Could not find sub/function '",29),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5])]))),qbs_new_txt_len("' in '",6)),((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[array_check((*__LONG_X)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5])]))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13061);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(13061);}while(r); +} +} +} +fornext_continue_2017:; +} +fornext_exit_2017:; +S_15363:; +if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ +if(qbevent){evnt(13067);if(r)goto S_15363;} +S_15364:; +if ((*__LONG_DATAOFFSET)||new_error){ +if(qbevent){evnt(13068);if(r)goto S_15364;} +S_15365:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ +if(qbevent){evnt(13069);if(r)goto S_15365;} +do{ +qbs_set(__STRING_B,qbs_new_txt_len("32",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13069);}while(r); +}else{ +do{ +qbs_set(__STRING_B,qbs_new_txt_len("64",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13069);}while(r); +} +do{ +sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\makedat_lnx",24),__STRING_B),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13070);}while(r); +do{ +tmp_fileno= 150 ; +if (new_error) goto skip2044; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip2044; +skip2044: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13070);}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(13070);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.bin ",9)),__STRING_TMPDIR2),qbs_new_txt_len("data.o",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13071);}while(r); +do{ +sub_chdir(qbs_new_txt_len(".\\internal\\c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13072);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13073);}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13074);}while(r); +} +} +S_15379:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13078);if(r)goto S_15379;} +do{ +sub_open(qbs_new_txt_len("./internal/c/makeline_osx.txt",29), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13079);}while(r); +S_15381:; +}else{ +if (((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]){ +if(qbevent){evnt(13080);if(r)goto S_15381;} +do{ +sub_open(qbs_new_txt_len("./internal/c/makeline_lnx_nogui.txt",35), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13081);}while(r); +}else{ +do{ +sub_open(qbs_new_txt_len("./internal/c/makeline_lnx.txt",29), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13083);}while(r); +} +} +do{ +tmp_fileno= 150 ; +if (new_error) goto skip2045; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip2045; +skip2045: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13086);}while(r); +do{ +qbs_set(__STRING_A,FUNC_GDB_FIX(__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13086);}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(13087);}while(r); +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("qbx.cpp",7),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13089);}while(r); +S_15390:; +if (((-(*__LONG_X!= 0 ))&(-(*__LONG_TEMPFOLDERINDEX!= 1 )))||new_error){ +if(qbevent){evnt(13089);if(r)goto S_15390;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len("qbx",3)),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".cpp",4)),qbs_right(__STRING_A,__STRING_A->len-(*__LONG_X+ 6 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13089);}while(r); +} +S_15393:; +if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ +if(qbevent){evnt(13091);if(r)goto S_15393;} +S_15394:; +if ((*__LONG_DATAOFFSET)||new_error){ +if(qbevent){evnt(13093);if(r)goto S_15394;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len("-lrt",4),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13094);}while(r); +S_15396:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(13095);if(r)goto S_15396;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" ",1)),__STRING_TMPDIR2),qbs_new_txt_len("data.o ",7)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13096);}while(r); +} +} +} +S_15401:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_MYLIB->len))||new_error){ +if(qbevent){evnt(13103);if(r)goto S_15401;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13104);}while(r); +S_15403:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(13105);if(r)goto S_15403;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(13106);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),qbs_new_txt_len(" ",1)),__STRING_MYLIBOPT),qbs_new_txt_len(" ",1)),__STRING_MYLIB),qbs_new_txt_len(" ",1)),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13107);}while(r); +} +} +S_15408:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBS->len))||new_error){ +if(qbevent){evnt(13112);if(r)goto S_15408;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13113);}while(r); +S_15410:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(13114);if(r)goto S_15410;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(13115);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBS),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13116);}while(r); +} +} +S_15415:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DEFINES->len))||new_error){ +if(qbevent){evnt(13121);if(r)goto S_15415;} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13122);}while(r); +S_15417:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(13123);if(r)goto S_15417;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(13124);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_DEFINES),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13125);}while(r); +} +} +do{ +*__LONG_X=func_instr(NULL,__STRING_A,qbs_new_txt_len(".cpp ",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13130);}while(r); +S_15423:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(13131);if(r)goto S_15423;} +do{ +*__LONG_X=*__LONG_X+ 5 ; +if(!qbevent)break;evnt(13132);}while(r); +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_left(__STRING_A,*__LONG_X- 1 ),__STRING_LIBQB),qbs_right(__STRING_A,__STRING_A->len-*__LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13133);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_A,FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13143);}while(r); +S_15428:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13145);if(r)goto S_15428;} +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(13147);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_osx.command",21)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13148);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2055; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2055; +skip2055: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13149);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2056; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2056; +skip2056: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13150);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2057; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2057; +skip2057: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13151);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2058; +sub_file_print(tmp_fileno,qbs_add(__STRING_A,func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2058; +skip2058: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13152);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2059; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("read -p ",8),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2059; +skip2059: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13153);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(13154);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("recompile_osx.command",21)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13155);}while(r); +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(13157);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_osx.command",17)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13158);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2060; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2060; +skip2060: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13159);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2061; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2061; +skip2061: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13160);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2062; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2062; +skip2062: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13161);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2063; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2063; +skip2063: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13162);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2064; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2064; +skip2064: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13163);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2065; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2065; +skip2065: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13164);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2066; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2066; +skip2066: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13165);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2067; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2067; +skip2067: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13166);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2068; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2068; +skip2068: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13167);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2069; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2069; +skip2069: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13168);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2070; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2070; +skip2070: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13169);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2071; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2071; +skip2071: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13170);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2072; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2072; +skip2072: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13171);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2073; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2073; +skip2073: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13172);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2074; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2074; +skip2074: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13173);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(13174);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("debug_osx.command",17)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13175);}while(r); +}else{ +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(13179);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("recompile_lnx.sh",16)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13180);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2075; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2075; +skip2075: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13181);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2076; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2076; +skip2076: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13182);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2077; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2077; +skip2077: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13183);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2078; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2078; +skip2078: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13184);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2079; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2079; +skip2079: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13185);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2080; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2080; +skip2080: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13186);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2081; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2081; +skip2081: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13187);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2082; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2082; +skip2082: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13188);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2083; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2083; +skip2083: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13189);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2084; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2084; +skip2084: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13190);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2085; +sub_file_print(tmp_fileno,qbs_add(__STRING_A,func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2085; +skip2085: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13191);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2086; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2086; +skip2086: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13192);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2087; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2087; +skip2087: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13193);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(13194);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("recompile_lnx.sh",16)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13195);}while(r); +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(13197);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("debug_lnx.sh",12)), 4 ,NULL,NULL,*__LONG_FFH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13198);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2088; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2088; +skip2088: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13199);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2089; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2089; +skip2089: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13200);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2090; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2090; +skip2090: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13201);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2091; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2091; +skip2091: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13202);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2092; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty -icanon -echo min 1 time 0",31),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2092; +skip2092: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13203);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2093; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("dd count=1 2>/dev/null",22),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2093; +skip2093: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13204);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2094; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2094; +skip2094: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13205);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2095; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2095; +skip2095: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13206);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2096; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2096; +skip2096: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13207);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2097; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2097; +skip2097: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13208);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2098; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2098; +skip2098: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13209);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2099; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2099; +skip2099: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13210);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2100; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2100; +skip2100: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13211);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2101; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("gdb ",4),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2101; +skip2101: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13212);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2102; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0 , 0 , 0 ); +if (new_error) goto skip2102; +skip2102: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13213);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(13214);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_TMPDIR),qbs_new_txt_len("debug_lnx.sh",12)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13215);}while(r); +} +S_15495:; +if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ +if(qbevent){evnt(13219);if(r)goto S_15495;} +do{ +sub_chdir(qbs_new_txt_len("./internal/c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13220);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(__STRING_A,qbs_new_txt_len(" 2>> ../../",11)),__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13221);}while(r); +do{ +sub_chdir(qbs_new_txt_len("../..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13222);}while(r); +S_15499:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13223);if(r)goto S_15499;} +do{ +*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2103= 0 )); +if(!qbevent)break;evnt(13225);}while(r); +} +} +S_15503:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13229);if(r)goto S_15503;} +do{ +*__LONG_FF=func_freefile(); +if(!qbevent)break;evnt(13230);}while(r); +S_15505:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||new_error){ +if(qbevent){evnt(13231);if(r)goto S_15505;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13231);}while(r); +} +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)), 4 ,NULL,NULL,*__LONG_FF,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13232);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2104; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname ",10)),func_chr( 34 )),qbs_new_txt_len("$0",2)),func_chr( 34 )),qbs_new_txt_len(")",1)),func_chr( 34 )), 0 , 0 , 0 ); +if (new_error) goto skip2104; +skip2104: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13233);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2105; +sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); +if (new_error) goto skip2105; +skip2105: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13234);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2106; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("./",2),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" &",2)), 0 , 0 , 0 ); +if (new_error) goto skip2106; +skip2106: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13235);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2107; +sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); +if (new_error) goto skip2107; +skip2107: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13236);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2108; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'tell application ",31),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to close (every window whose name contains ",44)),func_chr( 34 )),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)),func_chr( 34 )),qbs_new_txt_len(")' &",4)), 0 , 0 , 0 ); +if (new_error) goto skip2108; +skip2108: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13237);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2109; +sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); +if (new_error) goto skip2109; +skip2109: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13238);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2110; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("osascript -e 'if (count the windows of application ",51),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(") is 0 then tell application ",29)),func_chr( 34 )),qbs_new_txt_len("Terminal",8)),func_chr( 34 )),qbs_new_txt_len(" to quit' &",11)), 0 , 0 , 0 ); +if (new_error) goto skip2110; +skip2110: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13239);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2111; +sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); +if (new_error) goto skip2111; +skip2111: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13240);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2112; +sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0 , 0 , 0 ); +if (new_error) goto skip2112; +skip2112: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13241);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2113; +sub_file_print(tmp_fileno,func_chr( 10 ), 0 , 0 , 0 ); +if (new_error) goto skip2113; +skip2113: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13242);}while(r); +do{ +sub_close(*__LONG_FF,1); +if(!qbevent)break;evnt(13243);}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("chmod +x ",9),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len("_start.command",14)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13244);}while(r); +} +} +S_15523:; +if ((*__LONG_NO_C_COMPILE_MODE)||new_error){ +if(qbevent){evnt(13249);if(r)goto S_15523;} +do{ +*__LONG_COMPFAILED= 0 ; +if(!qbevent)break;evnt(13249);}while(r); +do{ +goto LABEL_NO_C_COMPILE; +if(!qbevent)break;evnt(13249);}while(r); +} +S_15527:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("../../",6)))|(qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("..\\..\\",6)))))||new_error){ +if(qbevent){evnt(13250);if(r)goto S_15527;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13250);}while(r); +} +S_15530:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ +if(qbevent){evnt(13251);if(r)goto S_15530;} +do{ +*__LONG_COMPFAILED= 0 ; +if(!qbevent)break;evnt(13252);}while(r); +do{ +qbs_set(__STRING_LASTBINARYGENERATED,qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13253);}while(r); +}else{ +do{ +*__LONG_COMPFAILED= 1 ; +if(!qbevent)break;evnt(13255);}while(r); +} +S_15536:; +if ((*__LONG_COMPFAILED)||new_error){ +if(qbevent){evnt(13258);if(r)goto S_15536;} +S_15537:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13259);if(r)goto S_15537;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("C++ Compilation failed ",23),func_chr( 0 )),qbs_new_txt_len("(Check ",7)),qbs__trim(__STRING_COMPILELOG)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13260);}while(r); +do{ +goto LABEL_IDEERROR; +if(!qbevent)break;evnt(13261);}while(r); +} +S_15541:; +if ((*__LONG_COMPFAILED)||new_error){ +if(qbevent){evnt(13263);if(r)goto S_15541;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30)); +if (new_error) goto skip2114; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2002: +skip2114: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12763);}while(r); -S_14923:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(12765);if(r)goto S_14923;} +if(!qbevent)break;evnt(13264);}while(r); do{ -if(qbevent){evnt(12765);} +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("Check ",6),__STRING_COMPILELOG),qbs_new_txt_len(" for details.",13))); +if (new_error) goto skip2115; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2115: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13265);}while(r); +} +}else{ +S_15546:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(13268);if(r)goto S_15546;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Output: ",8)); +if (new_error) goto skip2116; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_LASTBINARYGENERATED); +if (new_error) goto skip2116; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2116: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13268);}while(r); +} +} +LABEL_SKIP_BUILD:; +if(qbevent){evnt(13273);r=0;} +S_15550:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13277);if(r)goto S_15550;} +do{ +goto LABEL_IDERET6; +if(!qbevent)break;evnt(13277);}while(r); +} +LABEL_NO_C_COMPILE:; +if(qbevent){evnt(13279);r=0;} +S_15553:; +if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(-(*__LONG_CONSOLEMODE== 0 )))||new_error){ +if(qbevent){evnt(13281);if(r)goto S_15553;} +do{ +if(qbevent){evnt(13281);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(13281);}while(r); +} +S_15556:; +if ((-(*__LONG_COMPFAILED!= 0 ))||new_error){ +if(qbevent){evnt(13282);if(r)goto S_15556;} +do{ +if(qbevent){evnt(13282);} exit_code= 1 ; if (sub_gl_called) error(271); close_program=1; end(); -if(!qbevent)break;evnt(12765);}while(r); +if(!qbevent)break;evnt(13282);}while(r); } do{ -if(qbevent){evnt(12766);} +if(qbevent){evnt(13283);} +exit_code= 0 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13283);}while(r); +LABEL_QBERROR_TEST:; +if(qbevent){evnt(13285);r=0;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(13286);}while(r); +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;} +if(!qbevent)break;evnt(13287);}while(r); +LABEL_QBERROR:; +if(qbevent){evnt(13289);r=0;} +S_15562:; +if (( 0 )||new_error){ +if(qbevent){evnt(13306);if(r)goto S_15562;} +S_15563:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(13307);if(r)goto S_15563;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2117: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13308);}while(r); +}else{ +do{ +sub__autodisplay(); +if(!qbevent)break;evnt(13310);}while(r); +do{ +qbg_screen(func__newimage( 80 , 25 , 0 ,1),NULL, 0 , 0 ,NULL,13); +if(!qbevent)break;evnt(13311);}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(13312);}while(r); +} +do{ +sub__controlchr( 2 ); +if(!qbevent)break;evnt(13314);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("A QB error has occurred (and you have compiled in debugging support).",69)); +if (new_error) goto skip2118; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2118: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13315);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64.bas):",32)); +if (new_error) goto skip2119; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2119: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13316);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Error",5)); +if (new_error) goto skip2120; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" "))); +if (new_error) goto skip2120; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2120: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13317);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Description: ",13)); +if (new_error) goto skip2121; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,func__errormessage(NULL,0)); +if (new_error) goto skip2121; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2121: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13318);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Line",4)); +if (new_error) goto skip2122; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" "))); +if (new_error) goto skip2122; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2122: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13319);}while(r); +S_15576:; +if ((func__inclerrorline())||new_error){ +if(qbevent){evnt(13320);if(r)goto S_15576;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Included line",13)); +if (new_error) goto skip2123; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" "))); +if (new_error) goto skip2123; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2123: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13321);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Included file ",14)); +if (new_error) goto skip2124; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,func__inclerrorfile()); +if (new_error) goto skip2124; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2124: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13322);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2125: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13324);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27)); +if (new_error) goto skip2126; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2126: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13325);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("ideerror =",10)); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" "))); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17)); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" "))); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22)); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" "))); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("linenumber =",12)); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" "))); +if (new_error) goto skip2127; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2127: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13326);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7)); +if (new_error) goto skip2128; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_CA); +if (new_error) goto skip2128; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18)); +if (new_error) goto skip2128; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_IDECOMMAND); +if (new_error) goto skip2128; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("}",1)); +if (new_error) goto skip2128; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2128: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13327);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16)); +if (new_error) goto skip2129; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_LINEFRAGMENT); +if (new_error) goto skip2129; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("}",1)); +if (new_error) goto skip2129; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2129: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13328);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(13329);}while(r); +} +S_15587:; +if ((*__LONG_IDEERROR)||new_error){ +if(qbevent){evnt(13332);if(r)goto S_15587;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(13333);}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\temp\\ideerror.txt",26), 5 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13334);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2130; +sub_file_print(tmp_fileno,func_date(), 0 , 0 , 0 ); +if (new_error) goto skip2130; +sub_file_print(tmp_fileno,func_time(), 0 , 0 , 0 ); +if (new_error) goto skip2130; +sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0 , 0 , 1 ); +if (new_error) goto skip2130; +skip2130: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13335);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2131; +sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1 , 0 , 1 ); +if (new_error) goto skip2131; +skip2131: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13336);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2132; +sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0 , 0 , 1 ); +if (new_error) goto skip2132; +skip2132: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13337);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2133; +sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1 , 0 , 1 ); +if (new_error) goto skip2133; +skip2133: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13338);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2134; +sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1 , 0 , 1 ); +if (new_error) goto skip2134; +skip2134: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13339);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2135; +sub_file_print(tmp_fileno,func__inclerrorfile(), 0 , 0 , 1 ); +if (new_error) goto skip2135; +skip2135: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13340);}while(r); +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(13341);}while(r); +do{ +qbs_set(__STRING_SENDC,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13342);}while(r); +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;} +if(!qbevent)break;evnt(13343);}while(r); +} +do{ +*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED; +if(!qbevent)break;evnt(13346);}while(r); +do{ +*__INTEGER_QBERRORHAPPENED= 1 ; +if(!qbevent)break;evnt(13347);}while(r); +S_15602:; +if (( 0 )||new_error){ +if(qbevent){evnt(13349);if(r)goto S_15602;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2136; +sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0 , 0 , 1 ); +if (new_error) goto skip2136; +skip2136: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13349);}while(r); +} +S_15605:; +if (( 0 )||new_error){ +if(qbevent){evnt(13350);if(r)goto S_15605;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2137; +sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0 , 0 , 0 ); +if (new_error) goto skip2137; +sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1 , 0 , 1 ); +if (new_error) goto skip2137; +skip2137: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13350);}while(r); +} +S_15608:; +if (( 0 )||new_error){ +if(qbevent){evnt(13351);if(r)goto S_15608;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2138; +sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0 , 0 , 0 ); +if (new_error) goto skip2138; +sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1 , 0 , 1 ); +if (new_error) goto skip2138; +skip2138: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13351);}while(r); +} +S_15611:; +if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||new_error){ +if(qbevent){evnt(13353);if(r)goto S_15611;} +do{ +*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(13355);}while(r); +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_new_txt_len("Compiler error (check for syntax errors) (",42),func__errormessage(NULL,0)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13356);}while(r); +S_15614:; +if ((get_error_err())||new_error){ +if(qbevent){evnt(13357);if(r)goto S_15614;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass2139=get_error_err()))),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13357);}while(r); +} +S_15617:; +if ((func__errorline())||new_error){ +if(qbevent){evnt(13358);if(r)goto S_15617;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass2140=func__errorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13358);}while(r); +} +S_15620:; +if ((func__inclerrorline())||new_error){ +if(qbevent){evnt(13359);if(r)goto S_15620;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len("-",1)),func__inclerrorfile()),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass2141=func__inclerrorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13359);}while(r); +} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13360);}while(r); +S_15624:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(13361);if(r)goto S_15624;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13361);}while(r); +} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;} +if(!qbevent)break;evnt(13362);}while(r); +} +S_15629:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||new_error){ +if(qbevent){evnt(13365);if(r)goto S_15629;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13366);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(13366);}while(r); +} +do{ +*__INTEGER_QBERRORCODE=get_error_err(); +if(!qbevent)break;evnt(13370);}while(r); +do{ +*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl()); +if(!qbevent)break;evnt(13371);}while(r); +S_15635:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||new_error){ +if(qbevent){evnt(13372);if(r)goto S_15635;} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;} +if(!qbevent)break;evnt(13372);}while(r); +} +S_15638:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||new_error){ +if(qbevent){evnt(13373);if(r)goto S_15638;} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;} +if(!qbevent)break;evnt(13373);}while(r); +} +S_15641:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||new_error){ +if(qbevent){evnt(13374);if(r)goto S_15641;} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;} +if(!qbevent)break;evnt(13374);}while(r); +} +do{ +sub_end(); +if(!qbevent)break;evnt(13375);}while(r); +LABEL_ERRMES:; +if(qbevent){evnt(13377);r=0;} +S_15645:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(13378);if(r)goto S_15645;} +do{ +qbs_set(__STRING_A,__STRING_ERROR_MESSAGE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13378);}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(13378);}while(r); +} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13379);}while(r); +do{ +*__LONG_LAYOUTOK= 0 ; +if(!qbevent)break;evnt(13379);}while(r); +S_15651:; +if ((*__LONG_FORCEINCLUDINGFILE)||new_error){ +if(qbevent){evnt(13381);if(r)goto S_15651;} +S_15652:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||new_error){ +if(qbevent){evnt(13382);if(r)goto S_15652;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB without END SUB",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13382);}while(r); +} +}else{ +S_15656:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(13384);if(r)goto S_15656;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_A,__STRING_INCERROR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13384);}while(r); +} +} +S_15660:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13387);if(r)goto S_15660;} +do{ +*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(13388);}while(r); +do{ +qbs_set(__STRING_IDEMESSAGE,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13389);}while(r); +do{ +goto LABEL_IDEERROR; +if(!qbevent)break;evnt(13390);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2142: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13393);}while(r); +S_15666:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13394);if(r)goto S_15666;} +S_15667:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(13395);if(r)goto S_15667;} +do{ +qbg_sub_color( 4 ,NULL,NULL,1); +if(!qbevent)break;evnt(13396);}while(r); +}else{ +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(13398);}while(r); +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,__STRING_A); +if (new_error) goto skip2143; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2143: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13401);}while(r); +S_15674:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13402);if(r)goto S_15674;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(13402);}while(r); +} +S_15677:; +fornext_value2145= 1 ; +fornext_finalvalue2145=__STRING_LINEFRAGMENT->len; +fornext_step2145= 1 ; +if (fornext_step2145<0) fornext_step_negative2145=1; else fornext_step_negative2145=0; +if (new_error) goto fornext_error2145; +goto fornext_entrylabel2145; +while(1){ +fornext_value2145=fornext_step2145+(*__LONG_I); +fornext_entrylabel2145: +*__LONG_I=fornext_value2145; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2145){ +if (fornext_value2145fornext_finalvalue2145) break; +} +fornext_error2145:; +if(qbevent){evnt(13403);if(r)goto S_15677;} +S_15678:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(13404);if(r)goto S_15678;} +do{ +sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(13404);}while(r); +} +fornext_continue_2144:; +} +fornext_exit_2144:; +S_15682:; +fornext_value2148= 1 ; +fornext_finalvalue2148=__STRING_WHOLELINE->len; +fornext_step2148= 1 ; +if (fornext_step2148<0) fornext_step_negative2148=1; else fornext_step_negative2148=0; +if (new_error) goto fornext_error2148; +goto fornext_entrylabel2148; +while(1){ +fornext_value2148=fornext_step2148+(*__LONG_I); +fornext_entrylabel2148: +*__LONG_I=fornext_value2148; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2148){ +if (fornext_value2148fornext_finalvalue2148) break; +} +fornext_error2148:; +if(qbevent){evnt(13406);if(r)goto S_15682;} +S_15683:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(13407);if(r)goto S_15683;} +do{ +sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(13407);}while(r); +} +fornext_continue_2147:; +} +fornext_exit_2147:; +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT)); +if (new_error) goto skip2150; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2150: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13409);}while(r); +S_15688:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13410);if(r)goto S_15688;} +do{ +qbg_sub_color( 8 ,NULL,NULL,1); +if(!qbevent)break;evnt(13410);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("LINE ",5)); +if (new_error) goto skip2151; +makefit(tqbs); +qbs_print(tqbs,0); +skip2151: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13411);}while(r); +S_15692:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13412);if(r)goto S_15692;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(13412);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(FUNC_STR2(__LONG_LINENUMBER),qbs_new_txt_len(":",1))); +if (new_error) goto skip2152; +makefit(tqbs); +qbs_print(tqbs,0); +skip2152: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13413);}while(r); +S_15696:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13414);if(r)goto S_15696;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(13414);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,__STRING_WHOLELINE); +if (new_error) goto skip2153; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2153: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13415);}while(r); +S_15700:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(13417);if(r)goto S_15700;} +do{ +if(qbevent){evnt(13417);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13417);}while(r); +} +do{ +if(qbevent){evnt(13418);} exit_code= 1 ; sub_end(); -if(!qbevent)break;evnt(12766);}while(r); +if(!qbevent)break;evnt(13418);}while(r); sub_end(); return; } @@ -53406,849 +56520,954 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_14927:; -fornext_value2004= 1 ; -fornext_finalvalue2004=func__commandcount(); -fornext_step2004= 1 ; -if (fornext_step2004<0) fornext_step_negative2004=1; else fornext_step_negative2004=0; -if (new_error) goto fornext_error2004; -goto fornext_entrylabel2004; +S_15704:; +fornext_value2155= 1 ; +fornext_finalvalue2155=func__commandcount(); +fornext_step2155= 1 ; +if (fornext_step2155<0) fornext_step_negative2155=1; else fornext_step_negative2155=0; +if (new_error) goto fornext_error2155; +goto fornext_entrylabel2155; while(1){ -fornext_value2004=fornext_step2004+(*_FUNC_PARSECMDLINEARGS_LONG_I); -fornext_entrylabel2004: -*_FUNC_PARSECMDLINEARGS_LONG_I=fornext_value2004; -if (fornext_step_negative2004){ -if (fornext_value2004fornext_finalvalue2004) break; +if (fornext_value2155>fornext_finalvalue2155) break; } -fornext_error2004:; -if(qbevent){evnt(12772);if(r)goto S_14927;} +fornext_error2155:; +if(qbevent){evnt(13424);if(r)goto S_15704;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12773);}while(r); -S_14929:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("-help",5)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("--help",6)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("-h",2)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/help",5)))))||new_error){ -if(qbevent){evnt(12774);if(r)goto S_14929;} +if(!qbevent)break;evnt(13425);}while(r); +S_15706:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/?",2)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("--help",6)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/help",5)))))||new_error){ +if(qbevent){evnt(13426);if(r)goto S_15706;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,qbs_new_txt_len("-?",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12774);}while(r); +if(!qbevent)break;evnt(13426);}while(r); } -S_14932:; -qbs_set(sc_2005,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 2 ))); +S_15709:; +qbs_set(sc_2156,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(12775);if(r)goto S_14932;} -S_14933:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-?",2))))||new_error){ -if(qbevent){evnt(12776);if(r)goto S_14933;} +if(qbevent){evnt(13427);if(r)goto S_15709;} +S_15710:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-?",2))))||new_error){ +if(qbevent){evnt(13428);if(r)goto S_15710;} do{ sub__dest(func__console()); -if(!qbevent)break;evnt(12777);}while(r); +if(!qbevent)break;evnt(13429);}while(r); +S_15712:; +if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ +if(qbevent){evnt(13430);if(r)goto S_15712;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(13430);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 COMPILER V",15),__STRING_VERSION)); -if (new_error) goto skip2006; +qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 Compiler V",15),__STRING_VERSION)); +if (new_error) goto skip2157; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2006: +skip2157: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12778);}while(r); +if(!qbevent)break;evnt(13430);}while(r); +} do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); -skip2007: +skip2158: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12779);}while(r); +if(!qbevent)break;evnt(13431);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("USAGE: qb64 [switches] ",31)); -if (new_error) goto skip2008; +qbs_set(tqbs,qbs_new_txt_len("Usage: qb64 [switches] ",29)); +if (new_error) goto skip2159; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2008: +skip2159: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12780);}while(r); +if(!qbevent)break;evnt(13432);}while(r); do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); -skip2009: +skip2160: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12781);}while(r); +if(!qbevent)break;evnt(13433);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("OPTIONS:",8)); -if (new_error) goto skip2010; +qbs_set(tqbs,qbs_new_txt_len("Options:",8)); +if (new_error) goto skip2161; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2010: +skip2161: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12782);}while(r); +if(!qbevent)break;evnt(13434);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" Source file to load",45)); -if (new_error) goto skip2011; +if (new_error) goto skip2162; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2011: +skip2162: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12783);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -v Verbose mode (detailed warnings)",58)); -if (new_error) goto skip2012; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2012: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12784);}while(r); +if(!qbevent)break;evnt(13435);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" -c Compile instead of edit",49)); -if (new_error) goto skip2013; +if (new_error) goto skip2163; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2013: +skip2163: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12785);}while(r); +if(!qbevent)break;evnt(13436);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -o Write output executable to ",66)); +if (new_error) goto skip2164; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2164: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13437);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" -x Compile instead of edit and output the result to the",78)); -if (new_error) goto skip2014; +if (new_error) goto skip2165; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2014: +skip2165: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12786);}while(r); +if(!qbevent)break;evnt(13438);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" console",36)); -if (new_error) goto skip2015; +if (new_error) goto skip2166; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2015: +skip2166: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12787);}while(r); +if(!qbevent)break;evnt(13439);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -p Purge all pre-compiled content first",62)); -if (new_error) goto skip2016; +qbs_set(tqbs,qbs_new_txt_len(" -w Show warnings",39)); +if (new_error) goto skip2167; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2016: +skip2167: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12788);}while(r); +if(!qbevent)break;evnt(13440);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -z Generate C code without compiling to executable",73)); -if (new_error) goto skip2017; +qbs_set(tqbs,qbs_new_txt_len(" -q Quiet mode (does not inhibit warnings or errors)",74)); +if (new_error) goto skip2168; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2017: +skip2168: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12789);}while(r); +if(!qbevent)break;evnt(13441);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -o Write output executable to ",59)); -if (new_error) goto skip2018; +qbs_set(tqbs,qbs_new_txt_len(" -m Do not colorize compiler output (monochrome mode)",75)); +if (new_error) goto skip2169; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2018: +skip2169: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12790);}while(r); +if(!qbevent)break;evnt(13442);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -e Enables OPTION _EXPLICIT, making variable declaration",79)); -if (new_error) goto skip2019; +qbs_set(tqbs,qbs_new_txt_len(" -e Enable OPTION _EXPLICIT, making variable declaration",78)); +if (new_error) goto skip2170; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2019: +skip2170: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12791);}while(r); +if(!qbevent)break;evnt(13443);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" mandatory (per-compilation; doesn't affect the",75)); -if (new_error) goto skip2020; +if (new_error) goto skip2171; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2020: +skip2171: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12792);}while(r); +if(!qbevent)break;evnt(13444);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" source file or global settings)",60)); -if (new_error) goto skip2021; +if (new_error) goto skip2172; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2021: +skip2172: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12793);}while(r); +if(!qbevent)break;evnt(13445);}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" -s[:switch=true/false] View/edit compiler settings",53)); -if (new_error) goto skip2022; +if (new_error) goto skip2173; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2022: +skip2173: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12794);}while(r); +if(!qbevent)break;evnt(13446);}while(r); do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -l: Starts the IDE at the specified line number",69)); -if (new_error) goto skip2023; +qbs_set(tqbs,qbs_new_txt_len(" -l: Start the IDE at the specified line number",68)); +if (new_error) goto skip2174; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip2023: +skip2174: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12795);}while(r); +if(!qbevent)break;evnt(13447);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -p Purge all pre-compiled content first",62)); +if (new_error) goto skip2175; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2175: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13448);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -z Generate C code without compiling to executable",73)); +if (new_error) goto skip2176; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2176: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13449);}while(r); do{ tqbs=qbs_new(0,0); qbs_print(nothingstring,1); -skip2024: +skip2177: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12796);}while(r); +if(!qbevent)break;evnt(13450);}while(r); do{ if (sub_gl_called) error(271); close_program=1; end(); -if(!qbevent)break;evnt(12797);}while(r); -goto sc_2005_end; +if(!qbevent)break;evnt(13451);}while(r); +sc_ec_38_end:; +goto sc_2156_end; } -S_14955:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-v",2))))||new_error){ -if(qbevent){evnt(12798);if(r)goto S_14955;} -do{ -*__BYTE_VERBOSEMODE= -1 ; -if(!qbevent)break;evnt(12799);}while(r); -goto sc_2005_end; -} -S_14957:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-p",2))))||new_error){ -if(qbevent){evnt(12800);if(r)goto S_14957;} -S_14958:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(12801);if(r)goto S_14958;} -do{ -sub_chdir(qbs_new_txt_len("internal\\c",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12802);}while(r); -do{ -sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12803);}while(r); -do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12804);}while(r); -} -S_14963:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12806);if(r)goto S_14963;} -do{ -sub_chdir(qbs_new_txt_len("./internal/c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12807);}while(r); -S_14965:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12809);if(r)goto S_14965;} -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12810);}while(r); -}else{ -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12812);}while(r); -} -do{ -sub_chdir(qbs_new_txt_len("../..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12814);}while(r); -} -goto sc_2005_end; -} -S_14972:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-s",2))))||new_error){ -if(qbevent){evnt(12816);if(r)goto S_14972;} -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(12817);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 COMPILER V",15),__STRING_VERSION)); -if (new_error) goto skip2025; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2025: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12818);}while(r); -S_14975:; -qbs_set(sc_2026,qbs_lcase(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(12819);if(r)goto S_14975;} -S_14976:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(12820);if(r)goto S_14976;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",16)); -if (new_error) goto skip2027; -makefit(tqbs); -qbs_print(tqbs,0); -skip2027: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12821);}while(r); -S_14978:; -if ((*__LONG_IDEDEBUGINFO)||new_error){ -if(qbevent){evnt(12822);if(r)goto S_14978;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("TRUE",4)); -if (new_error) goto skip2028; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2028: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12822);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("FALSE",5)); -if (new_error) goto skip2029; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2029: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12822);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); -if (new_error) goto skip2030; -makefit(tqbs); -qbs_print(tqbs,0); -skip2030: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12823);}while(r); -S_14984:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(12824);if(r)goto S_14984;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("TRUE",4)); -if (new_error) goto skip2031; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2031: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12824);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("FALSE",5)); -if (new_error) goto skip2032; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2032: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12824);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12825);}while(r); -goto sc_2026_end; -} -S_14990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len(":exewithsource",14))))||new_error){ -if(qbevent){evnt(12826);if(r)goto S_14990;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); -if (new_error) goto skip2033; -makefit(tqbs); -qbs_print(tqbs,0); -skip2033: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12827);}while(r); -S_14992:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(12828);if(r)goto S_14992;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("TRUE",4)); -if (new_error) goto skip2034; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2034: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12828);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("FALSE",5)); -if (new_error) goto skip2035; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2035: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12828);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12829);}while(r); -goto sc_2026_end; -} -S_14998:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len(":exewithsource=true",19))))||new_error){ -if(qbevent){evnt(12830);if(r)goto S_14998;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12831);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = TRUE",20)); -if (new_error) goto skip2036; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2036: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12832);}while(r); -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12833);}while(r); -goto sc_2026_end; -} -S_15002:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len(":exewithsource=false",20))))||new_error){ -if(qbevent){evnt(12834);if(r)goto S_15002;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12835);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = FALSE",21)); -if (new_error) goto skip2037; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2037: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12836);}while(r); -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12837);}while(r); -goto sc_2026_end; -} -S_15006:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len(":debuginfo",10))))||new_error){ -if(qbevent){evnt(12838);if(r)goto S_15006;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",12)); -if (new_error) goto skip2038; -makefit(tqbs); -qbs_print(tqbs,0); -skip2038: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12839);}while(r); -S_15008:; -if ((*__LONG_IDEDEBUGINFO)||new_error){ -if(qbevent){evnt(12840);if(r)goto S_15008;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("TRUE",4)); -if (new_error) goto skip2039; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2039: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12840);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("FALSE",5)); -if (new_error) goto skip2040; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2040: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12840);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12841);}while(r); -goto sc_2026_end; -} -S_15014:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len(":debuginfo=true",15))))||new_error){ -if(qbevent){evnt(12842);if(r)goto S_15014;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = TRUE",16)); -if (new_error) goto skip2041; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2041: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12843);}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("TRUE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12844);}while(r); -do{ -*__LONG_IDEDEBUGINFO= 1 ; -if(!qbevent)break;evnt(12845);}while(r); -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(12846);}while(r); -S_15019:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(12847);if(r)goto S_15019;} -do{ -sub_chdir(qbs_new_txt_len("internal\\c",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12848);}while(r); -do{ -sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12849);}while(r); -do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12850);}while(r); -} -S_15024:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12852);if(r)goto S_15024;} -do{ -sub_chdir(qbs_new_txt_len("./internal/c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12853);}while(r); -S_15026:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12855);if(r)goto S_15026;} -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12856);}while(r); -}else{ -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12858);}while(r); -} -do{ -sub_chdir(qbs_new_txt_len("../..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12860);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12862);}while(r); -goto sc_2026_end; -} -S_15034:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2026,qbs_new_txt_len(":debuginfo=false",16))))||new_error){ -if(qbevent){evnt(12863);if(r)goto S_15034;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = FALSE",17)); -if (new_error) goto skip2042; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2042: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12864);}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12865);}while(r); -do{ -*__LONG_IDEDEBUGINFO= 0 ; -if(!qbevent)break;evnt(12866);}while(r); -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(12867);}while(r); -S_15039:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(12868);if(r)goto S_15039;} -do{ -sub_chdir(qbs_new_txt_len("internal\\c",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12869);}while(r); -do{ -sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12870);}while(r); -do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12871);}while(r); -} -S_15044:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12873);if(r)goto S_15044;} -do{ -sub_chdir(qbs_new_txt_len("./internal/c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12874);}while(r); -S_15046:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12876);if(r)goto S_15046;} -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12877);}while(r); -}else{ -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12879);}while(r); -} -do{ -sub_chdir(qbs_new_txt_len("../..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12881);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12883);}while(r); -goto sc_2026_end; -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("INVALID SETTINGS SWITCH: ",25)); -if (new_error) goto skip2043; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); -if (new_error) goto skip2043; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2043: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12885);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2044: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12886);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("VALID SWITCHES:",15)); -if (new_error) goto skip2045; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2045: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12887);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -s:debuginfo=true/false (Embed C++ debug info into .EXE)",64)); -if (new_error) goto skip2046; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2046: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12888);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -s:exewithsource=true/false (Save .EXE in the source folder)",64)); -if (new_error) goto skip2047; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2047: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12889);}while(r); -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12890);}while(r); -sc_2026_end:; -goto sc_2005_end; -} -S_15062:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-e",2))))||new_error){ -if(qbevent){evnt(12892);if(r)goto S_15062;} -do{ -*__BYTE_OPTIONEXPLICIT_CMD= -1 ; -if(!qbevent)break;evnt(12893);}while(r); -goto sc_2005_end; -} -S_15064:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-z",2))))||new_error){ -if(qbevent){evnt(12894);if(r)goto S_15064;} -do{ -*__LONG_NO_C_COMPILE_MODE= 1 ; -if(!qbevent)break;evnt(12895);}while(r); -do{ -*__LONG_CONSOLEMODE= 1 ; -if(!qbevent)break;evnt(12896);}while(r); +S_15737:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-c",2))))||new_error){ +if(qbevent){evnt(13452);if(r)goto S_15737;} do{ *__LONG_NOIDEMODE= 1 ; -if(!qbevent)break;evnt(12897);}while(r); -goto sc_2005_end; -} -S_15068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-x",2))))||new_error){ -if(qbevent){evnt(12898);if(r)goto S_15068;} +if(!qbevent)break;evnt(13453);}while(r); do{ -*__LONG_CONSOLEMODE= 1 ; -if(!qbevent)break;evnt(12899);}while(r); -do{ -*__LONG_NOIDEMODE= 1 ; -if(!qbevent)break;evnt(12900);}while(r); -goto sc_2005_end; +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13454);}while(r); +sc_ec_39_end:; +goto sc_2156_end; } -S_15071:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-c",2))))||new_error){ -if(qbevent){evnt(12901);if(r)goto S_15071;} -do{ -*__LONG_NOIDEMODE= 1 ; -if(!qbevent)break;evnt(12902);}while(r); -goto sc_2005_end; -} -S_15073:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-o",2))))||new_error){ -if(qbevent){evnt(12903);if(r)goto S_15073;} -S_15074:; +S_15740:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-o",2))))||new_error){ +if(qbevent){evnt(13455);if(r)goto S_15740;} +S_15741:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,1))->len)> 0 )))||new_error){ -if(qbevent){evnt(12904);if(r)goto S_15074;} +if(qbevent){evnt(13456);if(r)goto S_15741;} do{ qbs_set(__STRING_OUTPUTFILE_CMD,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12904);}while(r); +if(!qbevent)break;evnt(13456);}while(r); do{ *_FUNC_PARSECMDLINEARGS_LONG_I=*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ; -if(!qbevent)break;evnt(12904);}while(r); +if(!qbevent)break;evnt(13456);}while(r); } -goto sc_2005_end; +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13457);}while(r); +sc_ec_40_end:; +goto sc_2156_end; } -S_15078:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2005,qbs_new_txt_len("-l",2))))||new_error){ -if(qbevent){evnt(12905);if(r)goto S_15078;} -S_15079:; +S_15746:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-x",2))))||new_error){ +if(qbevent){evnt(13458);if(r)goto S_15746;} +do{ +*__LONG_CONSOLEMODE= 1 ; +if(!qbevent)break;evnt(13459);}while(r); +do{ +*__LONG_NOIDEMODE= 1 ; +if(!qbevent)break;evnt(13460);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13461);}while(r); +sc_ec_41_end:; +goto sc_2156_end; +} +S_15750:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-w",2))))||new_error){ +if(qbevent){evnt(13462);if(r)goto S_15750;} +do{ +*__BYTE_SHOWWARNINGS= -1 ; +if(!qbevent)break;evnt(13463);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13464);}while(r); +sc_ec_42_end:; +goto sc_2156_end; +} +S_15753:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-q",2))))||new_error){ +if(qbevent){evnt(13465);if(r)goto S_15753;} +do{ +*__BYTE_QUIETMODE= -1 ; +if(!qbevent)break;evnt(13466);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13467);}while(r); +sc_ec_43_end:; +goto sc_2156_end; +} +S_15756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-m",2))))||new_error){ +if(qbevent){evnt(13468);if(r)goto S_15756;} +do{ +*__BYTE_MONOCHROMELOGGINGMODE= -1 ; +if(!qbevent)break;evnt(13469);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13470);}while(r); +sc_ec_44_end:; +goto sc_2156_end; +} +S_15759:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-e",2))))||new_error){ +if(qbevent){evnt(13471);if(r)goto S_15759;} +do{ +*__BYTE_OPTIONEXPLICIT_CMD= -1 ; +if(!qbevent)break;evnt(13472);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13473);}while(r); +sc_ec_45_end:; +goto sc_2156_end; +} +S_15762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-s",2))))||new_error){ +if(qbevent){evnt(13474);if(r)goto S_15762;} +do{ +*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE= -1 ; +if(!qbevent)break;evnt(13475);}while(r); +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(13476);}while(r); +S_15765:; +if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ +if(qbevent){evnt(13477);if(r)goto S_15765;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(13477);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("QB64 Compiler V",15),__STRING_VERSION)); +if (new_error) goto skip2178; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2178: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13477);}while(r); +} +S_15769:; +qbs_set(sc_2179,qbs_lcase(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(13478);if(r)goto S_15769;} +S_15770:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(13479);if(r)goto S_15770;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",16)); +if (new_error) goto skip2180; +makefit(tqbs); +qbs_print(tqbs,0); +skip2180: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13480);}while(r); +S_15772:; +if ((*__LONG_IDEDEBUGINFO)||new_error){ +if(qbevent){evnt(13481);if(r)goto S_15772;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) goto skip2181; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2181: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13481);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) goto skip2182; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2182: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13481);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); +if (new_error) goto skip2183; +makefit(tqbs); +qbs_print(tqbs,0); +skip2183: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13482);}while(r); +S_15778:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(13483);if(r)goto S_15778;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) goto skip2184; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2184: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13483);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) goto skip2185; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2185: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13483);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13484);}while(r); +sc_ec_46_end:; +goto sc_2179_end; +} +S_15784:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len(":exewithsource",14))))||new_error){ +if(qbevent){evnt(13485);if(r)goto S_15784;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); +if (new_error) goto skip2186; +makefit(tqbs); +qbs_print(tqbs,0); +skip2186: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13486);}while(r); +S_15786:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(13487);if(r)goto S_15786;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) goto skip2187; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2187: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13487);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) goto skip2188; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2188: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13487);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13488);}while(r); +sc_ec_47_end:; +goto sc_2179_end; +} +S_15792:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len(":exewithsource=true",19))))||new_error){ +if(qbevent){evnt(13489);if(r)goto S_15792;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13490);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = true",20)); +if (new_error) goto skip2189; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2189: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13491);}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE= -1 ; +if(!qbevent)break;evnt(13492);}while(r); +sc_ec_48_end:; +goto sc_2179_end; +} +S_15796:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len(":exewithsource=false",20))))||new_error){ +if(qbevent){evnt(13493);if(r)goto S_15796;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13494);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = false",21)); +if (new_error) goto skip2190; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2190: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13495);}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE= 0 ; +if(!qbevent)break;evnt(13496);}while(r); +sc_ec_49_end:; +goto sc_2179_end; +} +S_15800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len(":debuginfo",10))))||new_error){ +if(qbevent){evnt(13497);if(r)goto S_15800;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",12)); +if (new_error) goto skip2191; +makefit(tqbs); +qbs_print(tqbs,0); +skip2191: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13498);}while(r); +S_15802:; +if ((*__LONG_IDEDEBUGINFO)||new_error){ +if(qbevent){evnt(13499);if(r)goto S_15802;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) goto skip2192; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2192: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13499);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) goto skip2193; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2193: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13499);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13500);}while(r); +sc_ec_50_end:; +goto sc_2179_end; +} +S_15808:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len(":debuginfo=true",15))))||new_error){ +if(qbevent){evnt(13501);if(r)goto S_15808;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = true",16)); +if (new_error) goto skip2194; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2194: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13502);}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("True",4),__STRING_DEBUGINFOINIWARNING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13503);}while(r); +do{ +*__LONG_IDEDEBUGINFO= 1 ; +if(!qbevent)break;evnt(13504);}while(r); +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(13505);}while(r); +S_15813:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(13506);if(r)goto S_15813;} +do{ +sub_chdir(qbs_new_txt_len("internal\\c",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13507);}while(r); +do{ +sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13508);}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13509);}while(r); +} +S_15818:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(13511);if(r)goto S_15818;} +do{ +sub_chdir(qbs_new_txt_len("./internal/c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13512);}while(r); +S_15820:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13514);if(r)goto S_15820;} +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13515);}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13517);}while(r); +} +do{ +sub_chdir(qbs_new_txt_len("../..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13519);}while(r); +} +sc_ec_51_end:; +goto sc_2179_end; +} +S_15827:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2179,qbs_new_txt_len(":debuginfo=false",16))))||new_error){ +if(qbevent){evnt(13521);if(r)goto S_15827;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = false",17)); +if (new_error) goto skip2195; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2195: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13522);}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("False",5),__STRING_DEBUGINFOINIWARNING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13523);}while(r); +do{ +*__LONG_IDEDEBUGINFO= 0 ; +if(!qbevent)break;evnt(13524);}while(r); +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(13525);}while(r); +S_15832:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(13526);if(r)goto S_15832;} +do{ +sub_chdir(qbs_new_txt_len("internal\\c",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13527);}while(r); +do{ +sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13528);}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13529);}while(r); +} +S_15837:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(13531);if(r)goto S_15837;} +do{ +sub_chdir(qbs_new_txt_len("./internal/c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13532);}while(r); +S_15839:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13534);if(r)goto S_15839;} +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13535);}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13537);}while(r); +} +do{ +sub_chdir(qbs_new_txt_len("../..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13539);}while(r); +} +sc_ec_52_end:; +goto sc_2179_end; +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Invalid settings switch: ",25)); +if (new_error) goto skip2196; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); +if (new_error) goto skip2196; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2196: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13542);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2197: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13543);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Valid switches:",15)); +if (new_error) goto skip2198; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2198: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13544);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -s:debuginfo=true/false (Embed C++ debug info into .EXE)",64)); +if (new_error) goto skip2199; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2199: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13545);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -s:exewithsource=true/false (Save .EXE in the source folder)",64)); +if (new_error) goto skip2200; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2200: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13546);}while(r); +do{ +if(qbevent){evnt(13547);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13547);}while(r); +sc_2179_end:; +do{ +sub__dest( 0 ); +if(!qbevent)break;evnt(13549);}while(r); +sc_ec_53_end:; +goto sc_2156_end; +} +S_15855:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-l",2))))||new_error){ +if(qbevent){evnt(13550);if(r)goto S_15855;} +S_15856:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 , 1 ,1),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(12906);if(r)goto S_15079;} +if(qbevent){evnt(13551);if(r)goto S_15856;} do{ *__LONG_IDESTARTATLINE=qbr(func_val(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 4 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12906);}while(r); +if(!qbevent)break;evnt(13551);}while(r); } -goto sc_2005_end; +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13552);}while(r); +sc_ec_54_end:; +goto sc_2156_end; } -S_15083:; +S_15860:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-p",2))))||new_error){ +if(qbevent){evnt(13553);if(r)goto S_15860;} +S_15861:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(13554);if(r)goto S_15861;} +do{ +sub_chdir(qbs_new_txt_len("internal\\c",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13555);}while(r); +do{ +sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13556);}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13557);}while(r); +} +S_15866:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(13559);if(r)goto S_15866;} +do{ +sub_chdir(qbs_new_txt_len("./internal/c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13560);}while(r); +S_15868:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13562);if(r)goto S_15868;} +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13563);}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13565);}while(r); +} +do{ +sub_chdir(qbs_new_txt_len("../..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13567);}while(r); +} +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13569);}while(r); +sc_ec_55_end:; +goto sc_2156_end; +} +S_15876:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2156,qbs_new_txt_len("-z",2))))||new_error){ +if(qbevent){evnt(13570);if(r)goto S_15876;} +do{ +*__LONG_NO_C_COMPILE_MODE= 1 ; +if(!qbevent)break;evnt(13571);}while(r); +do{ +*__LONG_CONSOLEMODE= 1 ; +if(!qbevent)break;evnt(13572);}while(r); +do{ +*__LONG_NOIDEMODE= 1 ; +if(!qbevent)break;evnt(13573);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13574);}while(r); +sc_ec_56_end:; +goto sc_2156_end; +} +S_15882:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(12908);if(r)goto S_15083;} +if(qbevent){evnt(13576);if(r)goto S_15882;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12908);}while(r); +if(!qbevent)break;evnt(13576);}while(r); } -sc_2005_end:; -fornext_continue_2003:; +sc_2156_end:; +fornext_continue_2154:; } -fornext_exit_2003:; -S_15088:; +fornext_exit_2154:; +S_15887:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME->len))||new_error){ -if(qbevent){evnt(12912);if(r)goto S_15088;} +if(qbevent){evnt(13580);if(r)goto S_15887;} do{ qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12912);}while(r); +if(!qbevent)break;evnt(13581);}while(r); +}else{ +S_15890:; +if (((-(*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH== 0 ))&(-(*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE== -1 )))||new_error){ +if(qbevent){evnt(13583);if(r)goto S_15890;} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13583);}while(r); +} } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -54272,118 +57491,118 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T= 0 ; -if(!qbevent)break;evnt(12916);}while(r); -S_15092:; +if(!qbevent)break;evnt(13588);}while(r); +S_15895:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(12917);if(r)goto S_15092;} +if(qbevent){evnt(13589);if(r)goto S_15895;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 65536 ; -if(!qbevent)break;evnt(12917);}while(r); +if(!qbevent)break;evnt(13589);}while(r); } -S_15095:; +S_15898:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(12918);if(r)goto S_15095;} -S_15096:; +if(qbevent){evnt(13590);if(r)goto S_15898;} +S_15899:; if ((-((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )== 1 ))||new_error){ -if(qbevent){evnt(12919);if(r)goto S_15096;} +if(qbevent){evnt(13591);if(r)goto S_15899;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 4096 ; -if(!qbevent)break;evnt(12920);}while(r); +if(!qbevent)break;evnt(13592);}while(r); }else{ do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 32768 ; -if(!qbevent)break;evnt(12922);}while(r); +if(!qbevent)break;evnt(13594);}while(r); } }else{ -S_15102:; +S_15905:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(12925);if(r)goto S_15102;} +if(qbevent){evnt(13597);if(r)goto S_15905;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 512 ; -if(!qbevent)break;evnt(12926);}while(r); +if(!qbevent)break;evnt(13598);}while(r); }else{ -S_15105:; +S_15908:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(12928);if(r)goto S_15105;} +if(qbevent){evnt(13600);if(r)goto S_15908;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 256 ; -if(!qbevent)break;evnt(12929);}while(r); +if(!qbevent)break;evnt(13601);}while(r); }else{ do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 128 ; -if(!qbevent)break;evnt(12931);}while(r); -S_15109:; +if(!qbevent)break;evnt(13603);}while(r); +S_15912:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(12932);if(r)goto S_15109;} +if(qbevent){evnt(13604);if(r)goto S_15912;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 1024 ; -if(!qbevent)break;evnt(12932);}while(r); +if(!qbevent)break;evnt(13604);}while(r); } -S_15112:; +S_15915:; if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(12933);if(r)goto S_15112;} +if(qbevent){evnt(13605);if(r)goto S_15915;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 8192 ; -if(!qbevent)break;evnt(12933);}while(r); +if(!qbevent)break;evnt(13605);}while(r); } } do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S=(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )/ 8 ; -if(!qbevent)break;evnt(12935);}while(r); -S_15117:; +if(!qbevent)break;evnt(13607);}while(r); +S_15920:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 1 ))||new_error){ -if(qbevent){evnt(12936);if(r)goto S_15117;} +if(qbevent){evnt(13608);if(r)goto S_15920;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12936);}while(r); +if(!qbevent)break;evnt(13608);}while(r); } -S_15120:; +S_15923:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 2 ))||new_error){ -if(qbevent){evnt(12937);if(r)goto S_15120;} +if(qbevent){evnt(13609);if(r)goto S_15923;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12937);}while(r); +if(!qbevent)break;evnt(13609);}while(r); } -S_15123:; +S_15926:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 4 ))||new_error){ -if(qbevent){evnt(12938);if(r)goto S_15123;} +if(qbevent){evnt(13610);if(r)goto S_15926;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12938);}while(r); +if(!qbevent)break;evnt(13610);}while(r); } -S_15126:; +S_15929:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 8 ))||new_error){ -if(qbevent){evnt(12939);if(r)goto S_15126;} +if(qbevent){evnt(13611);if(r)goto S_15929;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12939);}while(r); +if(!qbevent)break;evnt(13611);}while(r); } -S_15129:; +S_15932:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 16 ))||new_error){ -if(qbevent){evnt(12940);if(r)goto S_15129;} +if(qbevent){evnt(13612);if(r)goto S_15932;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12940);}while(r); +if(!qbevent)break;evnt(13612);}while(r); } -S_15132:; +S_15935:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 32 ))||new_error){ -if(qbevent){evnt(12941);if(r)goto S_15132;} +if(qbevent){evnt(13613);if(r)goto S_15935;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12941);}while(r); +if(!qbevent)break;evnt(13613);}while(r); } -S_15135:; +S_15938:; if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 64 ))||new_error){ -if(qbevent){evnt(12942);if(r)goto S_15135;} +if(qbevent){evnt(13614);if(r)goto S_15938;} do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(12942);}while(r); +if(!qbevent)break;evnt(13614);}while(r); } } } do{ *_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T; -if(!qbevent)break;evnt(12945);}while(r); +if(!qbevent)break;evnt(13617);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free2.txt" @@ -54404,49 +57623,49 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_15141:; -fornext_value2051=_FUNC_FILEHASEXTENSION_STRING_F->len; -fornext_finalvalue2051= 1 ; -fornext_step2051= -1 ; -if (fornext_step2051<0) fornext_step_negative2051=1; else fornext_step_negative2051=0; -if (new_error) goto fornext_error2051; -goto fornext_entrylabel2051; +S_15944:; +fornext_value2204=_FUNC_FILEHASEXTENSION_STRING_F->len; +fornext_finalvalue2204= 1 ; +fornext_step2204= -1 ; +if (fornext_step2204<0) fornext_step_negative2204=1; else fornext_step_negative2204=0; +if (new_error) goto fornext_error2204; +goto fornext_entrylabel2204; while(1){ -fornext_value2051=fornext_step2051+(*_FUNC_FILEHASEXTENSION_LONG_I); -fornext_entrylabel2051: -*_FUNC_FILEHASEXTENSION_LONG_I=fornext_value2051; +fornext_value2204=fornext_step2204+(*_FUNC_FILEHASEXTENSION_LONG_I); +fornext_entrylabel2204: +*_FUNC_FILEHASEXTENSION_LONG_I=fornext_value2204; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2051){ -if (fornext_value2051fornext_finalvalue2051) break; +if (fornext_value2204>fornext_finalvalue2204) break; } -fornext_error2051:; -if(qbevent){evnt(12949);if(r)goto S_15141;} +fornext_error2204:; +if(qbevent){evnt(13621);if(r)goto S_15944;} do{ *_FUNC_FILEHASEXTENSION_LONG_A=qbs_asc(_FUNC_FILEHASEXTENSION_STRING_F,*_FUNC_FILEHASEXTENSION_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12950);}while(r); -S_15143:; +if(!qbevent)break;evnt(13622);}while(r); +S_15946:; if (((-(*_FUNC_FILEHASEXTENSION_LONG_A== 47 ))|(-(*_FUNC_FILEHASEXTENSION_LONG_A== 92 )))||new_error){ -if(qbevent){evnt(12951);if(r)goto S_15143;} +if(qbevent){evnt(13623);if(r)goto S_15946;} do{ -goto fornext_exit_2050; -if(!qbevent)break;evnt(12951);}while(r); +goto fornext_exit_2203; +if(!qbevent)break;evnt(13623);}while(r); } -S_15146:; +S_15949:; if ((-(*_FUNC_FILEHASEXTENSION_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(12952);if(r)goto S_15146;} +if(qbevent){evnt(13624);if(r)goto S_15949;} do{ *_FUNC_FILEHASEXTENSION_LONG_FILEHASEXTENSION= -1 ; -if(!qbevent)break;evnt(12952);}while(r); +if(!qbevent)break;evnt(13624);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(12952);}while(r); +if(!qbevent)break;evnt(13624);}while(r); } -fornext_continue_2050:; +fornext_continue_2203:; } -fornext_exit_2050:; +fornext_exit_2203:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free3.txt" @@ -54467,54 +57686,54 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_15151:; -fornext_value2055=_FUNC_REMOVEFILEEXTENSION_STRING_F->len; -fornext_finalvalue2055= 1 ; -fornext_step2055= -1 ; -if (fornext_step2055<0) fornext_step_negative2055=1; else fornext_step_negative2055=0; -if (new_error) goto fornext_error2055; -goto fornext_entrylabel2055; +S_15954:; +fornext_value2208=_FUNC_REMOVEFILEEXTENSION_STRING_F->len; +fornext_finalvalue2208= 1 ; +fornext_step2208= -1 ; +if (fornext_step2208<0) fornext_step_negative2208=1; else fornext_step_negative2208=0; +if (new_error) goto fornext_error2208; +goto fornext_entrylabel2208; while(1){ -fornext_value2055=fornext_step2055+(*_FUNC_REMOVEFILEEXTENSION_LONG_I); -fornext_entrylabel2055: -*_FUNC_REMOVEFILEEXTENSION_LONG_I=fornext_value2055; +fornext_value2208=fornext_step2208+(*_FUNC_REMOVEFILEEXTENSION_LONG_I); +fornext_entrylabel2208: +*_FUNC_REMOVEFILEEXTENSION_LONG_I=fornext_value2208; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2055){ -if (fornext_value2055fornext_finalvalue2055) break; +if (fornext_value2208>fornext_finalvalue2208) break; } -fornext_error2055:; -if(qbevent){evnt(12957);if(r)goto S_15151;} +fornext_error2208:; +if(qbevent){evnt(13629);if(r)goto S_15954;} do{ *_FUNC_REMOVEFILEEXTENSION_LONG_A=qbs_asc(_FUNC_REMOVEFILEEXTENSION_STRING_F,*_FUNC_REMOVEFILEEXTENSION_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12958);}while(r); -S_15153:; +if(!qbevent)break;evnt(13630);}while(r); +S_15956:; if (((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 47 ))|(-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 92 )))||new_error){ -if(qbevent){evnt(12959);if(r)goto S_15153;} +if(qbevent){evnt(13631);if(r)goto S_15956;} do{ -goto fornext_exit_2054; -if(!qbevent)break;evnt(12959);}while(r); +goto fornext_exit_2207; +if(!qbevent)break;evnt(13631);}while(r); } -S_15156:; +S_15959:; if ((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(12960);if(r)goto S_15156;} +if(qbevent){evnt(13632);if(r)goto S_15959;} do{ qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,qbs_left(_FUNC_REMOVEFILEEXTENSION_STRING_F,*_FUNC_REMOVEFILEEXTENSION_LONG_I- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12960);}while(r); +if(!qbevent)break;evnt(13632);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(12960);}while(r); +if(!qbevent)break;evnt(13632);}while(r); } -fornext_continue_2054:; +fornext_continue_2207:; } -fornext_exit_2054:; +fornext_exit_2207:; do{ qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,_FUNC_REMOVEFILEEXTENSION_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12962);}while(r); +if(!qbevent)break;evnt(13634);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free4.txt" @@ -54537,1693 +57756,1693 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED; -if(!qbevent)break;evnt(12972);}while(r); +if(!qbevent)break;evnt(13644);}while(r); do{ *__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(12972);}while(r); -S_15164:; +if(!qbevent)break;evnt(13644);}while(r); +S_15967:; if ((-(*__LONG_AUTOARRAY== 1 ))||new_error){ -if(qbevent){evnt(12974);if(r)goto S_15164;} +if(qbevent){evnt(13646);if(r)goto S_15967;} do{ *__LONG_AUTOARRAY= 0 ; -if(!qbevent)break;evnt(12974);}while(r); +if(!qbevent)break;evnt(13646);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ; -if(!qbevent)break;evnt(12974);}while(r); +if(!qbevent)break;evnt(13646);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12976);}while(r); +if(!qbevent)break;evnt(13648);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12981);}while(r); +if(!qbevent)break;evnt(13653);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12981);}while(r); -S_15171:; +if(!qbevent)break;evnt(13653);}while(r); +S_15974:; if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||new_error){ -if(qbevent){evnt(12982);if(r)goto S_15171;} +if(qbevent){evnt(13654);if(r)goto S_15974;} do{ *_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ; -if(!qbevent)break;evnt(12982);}while(r); +if(!qbevent)break;evnt(13654);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE= 8 ; -if(!qbevent)break;evnt(12982);}while(r); +if(!qbevent)break;evnt(13654);}while(r); } -S_15175:; +S_15978:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||new_error){ -if(qbevent){evnt(12984);if(r)goto S_15175;} +if(qbevent){evnt(13656);if(r)goto S_15978;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12985);}while(r); +if(!qbevent)break;evnt(13657);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ; -if(!qbevent)break;evnt(12986);}while(r); +if(!qbevent)break;evnt(13658);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_NUME= 1 ; -if(!qbevent)break;evnt(12987);}while(r); -S_15179:; +if(!qbevent)break;evnt(13659);}while(r); +S_15982:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||new_error){ -if(qbevent){evnt(12988);if(r)goto S_15179;} +if(qbevent){evnt(13660);if(r)goto S_15982;} do{ goto LABEL_UNDEFINEDARRAY; -if(!qbevent)break;evnt(12988);}while(r); +if(!qbevent)break;evnt(13660);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ; -if(!qbevent)break;evnt(12989);}while(r); +if(!qbevent)break;evnt(13661);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_NUME=qbr(func_val(qbs_right(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_E->len- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12990);}while(r); +if(!qbevent)break;evnt(13662);}while(r); do{ goto LABEL_UNDEFINEDARRAY; -if(!qbevent)break;evnt(12991);}while(r); +if(!qbevent)break;evnt(13663);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_NUME= 1 ; -if(!qbevent)break;evnt(12996);}while(r); +if(!qbevent)break;evnt(13668);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12997);}while(r); -S_15188:; -fornext_value2062= 1 ; -fornext_finalvalue2062=*_FUNC_ALLOCARRAY_LONG_N; -fornext_step2062= 1 ; -if (fornext_step2062<0) fornext_step_negative2062=1; else fornext_step_negative2062=0; -if (new_error) goto fornext_error2062; -goto fornext_entrylabel2062; +if(!qbevent)break;evnt(13669);}while(r); +S_15991:; +fornext_value2215= 1 ; +fornext_finalvalue2215=*_FUNC_ALLOCARRAY_LONG_N; +fornext_step2215= 1 ; +if (fornext_step2215<0) fornext_step_negative2215=1; else fornext_step_negative2215=0; +if (new_error) goto fornext_error2215; +goto fornext_entrylabel2215; while(1){ -fornext_value2062=fornext_step2062+(*_FUNC_ALLOCARRAY_LONG_I); -fornext_entrylabel2062: -*_FUNC_ALLOCARRAY_LONG_I=fornext_value2062; -if (fornext_step_negative2062){ -if (fornext_value2062fornext_finalvalue2062) break; +if (fornext_value2215>fornext_finalvalue2215) break; } -fornext_error2062:; -if(qbevent){evnt(12998);if(r)goto S_15188;} +fornext_error2215:; +if(qbevent){evnt(13670);if(r)goto S_15991;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12999);}while(r); -S_15190:; +if(!qbevent)break;evnt(13671);}while(r); +S_15993:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(13000);if(r)goto S_15190;} +if(qbevent){evnt(13672);if(r)goto S_15993;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; -if(!qbevent)break;evnt(13000);}while(r); +if(!qbevent)break;evnt(13672);}while(r); } -S_15193:; +S_15996:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))&(qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(13001);if(r)goto S_15193;} +if(qbevent){evnt(13673);if(r)goto S_15996;} do{ *_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ; -if(!qbevent)break;evnt(13001);}while(r); +if(!qbevent)break;evnt(13673);}while(r); } -S_15196:; +S_15999:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(13002);if(r)goto S_15196;} +if(qbevent){evnt(13674);if(r)goto S_15999;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; -if(!qbevent)break;evnt(13002);}while(r); +if(!qbevent)break;evnt(13674);}while(r); } -fornext_continue_2061:; +fornext_continue_2214:; } -fornext_exit_2061:; -S_15200:; +fornext_exit_2214:; +S_16003:; if (( 0 )||new_error){ -if(qbevent){evnt(13004);if(r)goto S_15200;} +if(qbevent){evnt(13676);if(r)goto S_16003;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2063; +if (new_error) goto skip2216; sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0 , 0 , 0 ); -if (new_error) goto skip2063; +if (new_error) goto skip2216; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1 , 0 , 1 ); -if (new_error) goto skip2063; -skip2063: +if (new_error) goto skip2216; +skip2216: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13004);}while(r); +if(!qbevent)break;evnt(13676);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ; -if(!qbevent)break;evnt(13006);}while(r); -S_15204:; +if(!qbevent)break;evnt(13678);}while(r); +S_16007:; if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13007);if(r)goto S_15204;} -S_15205:; +if(qbevent){evnt(13679);if(r)goto S_16007;} +S_16008:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_ALLOCARRAY_LONG_NUME))||new_error){ -if(qbevent){evnt(13008);if(r)goto S_15205;} -S_15206:; +if(qbevent){evnt(13680);if(r)goto S_16008;} +S_16009:; if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ -if(qbevent){evnt(13010);if(r)goto S_15206;} -S_15207:; +if(qbevent){evnt(13682);if(r)goto S_16009;} +S_16010:; if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_NUME!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||new_error){ -if(qbevent){evnt(13011);if(r)goto S_15207;} +if(qbevent){evnt(13683);if(r)goto S_16010;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13011);}while(r); +if(!qbevent)break;evnt(13683);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13011);}while(r); +if(!qbevent)break;evnt(13683);}while(r); } -S_15211:; +S_16014:; if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||new_error){ -if(qbevent){evnt(13012);if(r)goto S_15211;} +if(qbevent){evnt(13684);if(r)goto S_16014;} do{ *(int16*)(((char*)__UDT_ID)+(516))= 1 ; -if(!qbevent)break;evnt(13012);}while(r); +if(!qbevent)break;evnt(13684);}while(r); do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+516))= 1 ; -if(!qbevent)break;evnt(13012);}while(r); +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))= 1 ; +if(!qbevent)break;evnt(13684);}while(r); } do{ tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ALLOCARRAY_LONG_NUME; -if(!qbevent)break;evnt(13013);}while(r); +if(!qbevent)break;evnt(13685);}while(r); }else{ do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13015);}while(r); +if(!qbevent)break;evnt(13687);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13015);}while(r); +if(!qbevent)break;evnt(13687);}while(r); } } -S_15221:; +S_16024:; if ((*(int16*)(((char*)__UDT_ID)+(518)))||new_error){ -if(qbevent){evnt(13019);if(r)goto S_15221;} +if(qbevent){evnt(13691);if(r)goto S_16024;} do{ *_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ; -if(!qbevent)break;evnt(13019);}while(r); +if(!qbevent)break;evnt(13691);}while(r); } } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13022);}while(r); +if(!qbevent)break;evnt(13694);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13024);}while(r); +if(!qbevent)break;evnt(13696);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13025);}while(r); +if(!qbevent)break;evnt(13697);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ; -if(!qbevent)break;evnt(13026);}while(r); +if(!qbevent)break;evnt(13698);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 ); -if(!qbevent)break;evnt(13027);}while(r); +if(!qbevent)break;evnt(13699);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_CURE= 1 ; -if(!qbevent)break;evnt(13028);}while(r); +if(!qbevent)break;evnt(13700);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13029);}while(r); +if(!qbevent)break;evnt(13701);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13029);}while(r); -S_15233:; -fornext_value2065= 1 ; -fornext_finalvalue2065=*_FUNC_ALLOCARRAY_LONG_N; -fornext_step2065= 1 ; -if (fornext_step2065<0) fornext_step_negative2065=1; else fornext_step_negative2065=0; -if (new_error) goto fornext_error2065; -goto fornext_entrylabel2065; +if(!qbevent)break;evnt(13701);}while(r); +S_16036:; +fornext_value2218= 1 ; +fornext_finalvalue2218=*_FUNC_ALLOCARRAY_LONG_N; +fornext_step2218= 1 ; +if (fornext_step2218<0) fornext_step_negative2218=1; else fornext_step_negative2218=0; +if (new_error) goto fornext_error2218; +goto fornext_entrylabel2218; while(1){ -fornext_value2065=fornext_step2065+(*_FUNC_ALLOCARRAY_LONG_I); -fornext_entrylabel2065: -*_FUNC_ALLOCARRAY_LONG_I=fornext_value2065; -if (fornext_step_negative2065){ -if (fornext_value2065fornext_finalvalue2065) break; +if (fornext_value2218>fornext_finalvalue2218) break; } -fornext_error2065:; -if(qbevent){evnt(13030);if(r)goto S_15233;} +fornext_error2218:; +if(qbevent){evnt(13702);if(r)goto S_16036;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13031);}while(r); -S_15235:; +if(!qbevent)break;evnt(13703);}while(r); +S_16038:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(13032);if(r)goto S_15235;} +if(qbevent){evnt(13704);if(r)goto S_16038;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; -if(!qbevent)break;evnt(13032);}while(r); +if(!qbevent)break;evnt(13704);}while(r); } -S_15238:; +S_16041:; if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))|(-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))))||new_error){ -if(qbevent){evnt(13033);if(r)goto S_15238;} -S_15239:; +if(qbevent){evnt(13705);if(r)goto S_16041;} +S_16042:; if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ -if(qbevent){evnt(13034);if(r)goto S_15239;} +if(qbevent){evnt(13706);if(r)goto S_16042;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13034);}while(r); +if(!qbevent)break;evnt(13706);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_right(_FUNC_ALLOCARRAY_STRING_E3,_FUNC_ALLOCARRAY_STRING_E3->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13035);}while(r); -S_15243:; +if(!qbevent)break;evnt(13707);}while(r); +S_16046:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13036);if(r)goto S_15243;} +if(qbevent){evnt(13708);if(r)goto S_16046;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_right(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3BASE->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13036);}while(r); +if(!qbevent)break;evnt(13708);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ; -if(!qbevent)break;evnt(13040);}while(r); -S_15247:; +if(!qbevent)break;evnt(13712);}while(r); +S_16050:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13041);if(r)goto S_15247;} +if(qbevent){evnt(13713);if(r)goto S_16050;} do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_STR2(&(pass2068=*__INTEGER_OPTIONBASE+ 0 ))); +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_STR2(&(pass2221=*__INTEGER_OPTIONBASE+ 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13041);}while(r); +if(!qbevent)break;evnt(13713);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ; -if(!qbevent)break;evnt(13041);}while(r); +if(!qbevent)break;evnt(13713);}while(r); } do{ *__INTEGER_CONSTEQUATION= 1 ; -if(!qbevent)break;evnt(13042);}while(r); +if(!qbevent)break;evnt(13714);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3BASE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13044);}while(r); -S_15253:; +if(!qbevent)break;evnt(13716);}while(r); +S_16056:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13045);if(r)goto S_15253;} +if(qbevent){evnt(13717);if(r)goto S_16056;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13045);}while(r); +if(!qbevent)break;evnt(13717);}while(r); } -S_15256:; +S_16059:; if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||new_error){ -if(qbevent){evnt(13046);if(r)goto S_15256;} +if(qbevent){evnt(13718);if(r)goto S_16059;} do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP)); +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13046);}while(r); +if(!qbevent)break;evnt(13718);}while(r); } do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2069= 64 ))); +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2222= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13047);}while(r); -S_15260:; +if(!qbevent)break;evnt(13719);}while(r); +S_16063:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13048);if(r)goto S_15260;} +if(qbevent){evnt(13720);if(r)goto S_16063;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13048);}while(r); +if(!qbevent)break;evnt(13720);}while(r); } -S_15263:; +S_16066:; if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ -if(qbevent){evnt(13050);if(r)goto S_15263;} +if(qbevent){evnt(13722);if(r)goto S_16066;} do{ *_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; -if(!qbevent)break;evnt(13050);}while(r); +if(!qbevent)break;evnt(13722);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_E3BASE),qbs_new_txt_len(";",1)),_FUNC_ALLOCARRAY_STRING_CR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13051);}while(r); +if(!qbevent)break;evnt(13723);}while(r); do{ *__INTEGER_CONSTEQUATION= 1 ; -if(!qbevent)break;evnt(13053);}while(r); +if(!qbevent)break;evnt(13725);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13055);}while(r); -S_15269:; +if(!qbevent)break;evnt(13727);}while(r); +S_16072:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13056);if(r)goto S_15269;} +if(qbevent){evnt(13728);if(r)goto S_16072;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13056);}while(r); +if(!qbevent)break;evnt(13728);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13057);}while(r); -S_15273:; +if(!qbevent)break;evnt(13729);}while(r); +S_16076:; if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ -if(qbevent){evnt(13058);if(r)goto S_15273;} +if(qbevent){evnt(13730);if(r)goto S_16076;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13058);}while(r); +if(!qbevent)break;evnt(13730);}while(r); }else{ do{ qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(",",1)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13058);}while(r); +if(!qbevent)break;evnt(13730);}while(r); } do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2070= 64 ))); +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2223= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13059);}while(r); -S_15279:; +if(!qbevent)break;evnt(13731);}while(r); +S_16082:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13060);if(r)goto S_15279;} +if(qbevent){evnt(13732);if(r)goto S_16082;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13060);}while(r); +if(!qbevent)break;evnt(13732);}while(r); } -S_15282:; +S_16085:; if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ -if(qbevent){evnt(13062);if(r)goto S_15282;} +if(qbevent){evnt(13734);if(r)goto S_16085;} do{ *_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; -if(!qbevent)break;evnt(13062);}while(r); +if(!qbevent)break;evnt(13734);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13063);}while(r); +if(!qbevent)break;evnt(13735);}while(r); do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=(",3)),_FUNC_ALLOCARRAY_STRING_E3),qbs_new_txt_len(")-",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2071=*_FUNC_ALLOCARRAY_LONG_EI- 1 ))),qbs_new_txt_len("]+1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=(",3)),_FUNC_ALLOCARRAY_STRING_E3),qbs_new_txt_len(")-",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2224=*_FUNC_ALLOCARRAY_LONG_EI- 1 ))),qbs_new_txt_len("]+1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13064);}while(r); +if(!qbevent)break;evnt(13736);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13065);}while(r); -S_15288:; +if(!qbevent)break;evnt(13737);}while(r); +S_16091:; if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||new_error){ -if(qbevent){evnt(13067);if(r)goto S_15288;} +if(qbevent){evnt(13739);if(r)goto S_16091;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13069);}while(r); +if(!qbevent)break;evnt(13741);}while(r); }else{ do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2072=*_FUNC_ALLOCARRAY_LONG_EI+ 4 ))),qbs_new_txt_len("]*",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2073=*_FUNC_ALLOCARRAY_LONG_EI+ 3 ))),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR)); +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2225=*_FUNC_ALLOCARRAY_LONG_EI+ 4 ))),qbs_new_txt_len("]*",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2226=*_FUNC_ALLOCARRAY_LONG_EI+ 3 ))),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13071);}while(r); +if(!qbevent)break;evnt(13743);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13073);}while(r); +if(!qbevent)break;evnt(13745);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13074);}while(r); +if(!qbevent)break;evnt(13746);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ; -if(!qbevent)break;evnt(13075);}while(r); +if(!qbevent)break;evnt(13747);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ; -if(!qbevent)break;evnt(13076);}while(r); +if(!qbevent)break;evnt(13748);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13077);}while(r); +if(!qbevent)break;evnt(13749);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13077);}while(r); +if(!qbevent)break;evnt(13749);}while(r); do{ goto LABEL_AANEXTE; -if(!qbevent)break;evnt(13078);}while(r); +if(!qbevent)break;evnt(13750);}while(r); } -S_15301:; +S_16104:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(13080);if(r)goto S_15301;} +if(qbevent){evnt(13752);if(r)goto S_16104;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; -if(!qbevent)break;evnt(13080);}while(r); +if(!qbevent)break;evnt(13752);}while(r); } -S_15304:; +S_16107:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(_FUNC_ALLOCARRAY_STRING_E2),qbs_new_txt_len("TO",2)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(13081);if(r)goto S_15304;} +if(qbevent){evnt(13753);if(r)goto S_16107;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13082);}while(r); +if(!qbevent)break;evnt(13754);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13083);}while(r); +if(!qbevent)break;evnt(13755);}while(r); }else{ do{ qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13085);}while(r); +if(!qbevent)break;evnt(13757);}while(r); } LABEL_AANEXTE:; -if(qbevent){evnt(13087);r=0;} -fornext_continue_2064:; +if(qbevent){evnt(13759);r=0;} +fornext_continue_2217:; } -fornext_exit_2064:; +fornext_exit_2217:; do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_left(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_SD->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13089);}while(r); +if(!qbevent)break;evnt(13761);}while(r); LABEL_UNDEFINEDARRAY:; -if(qbevent){evnt(13091);r=0;} +if(qbevent){evnt(13763);r=0;} do{ *_FUNC_ALLOCARRAY_LONG_CMEM= 0 ; -if(!qbevent)break;evnt(13094);}while(r); -S_15313:; +if(!qbevent)break;evnt(13766);}while(r); +S_16116:; if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ -if(qbevent){evnt(13095);if(r)goto S_15313;} -S_15314:; +if(qbevent){evnt(13767);if(r)goto S_16116;} +S_16117:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13096);if(r)goto S_15314;} +if(qbevent){evnt(13768);if(r)goto S_16117;} do{ *_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; -if(!qbevent)break;evnt(13096);}while(r); +if(!qbevent)break;evnt(13768);}while(r); } }else{ -S_15318:; +S_16121:; if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__INTEGER_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13098);if(r)goto S_15318;} +if(qbevent){evnt(13770);if(r)goto S_16121;} do{ *_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; -if(!qbevent)break;evnt(13098);}while(r); +if(!qbevent)break;evnt(13770);}while(r); } } do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS; -if(!qbevent)break;evnt(13101);}while(r); -S_15323:; +if(!qbevent)break;evnt(13773);}while(r); +S_16126:; if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||new_error){ -if(qbevent){evnt(13102);if(r)goto S_15323;} +if(qbevent){evnt(13774);if(r)goto S_16126;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13102);}while(r); +if(!qbevent)break;evnt(13774);}while(r); } -S_15326:; +S_16129:; if ((-(*__LONG_DIMSTATIC== 3 ))||new_error){ -if(qbevent){evnt(13103);if(r)goto S_15326;} +if(qbevent){evnt(13775);if(r)goto S_16129;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13103);}while(r); +if(!qbevent)break;evnt(13775);}while(r); } -S_15329:; +S_16132:; if ((*__INTEGER_DYNAMICMODE)||new_error){ -if(qbevent){evnt(13104);if(r)goto S_15329;} +if(qbevent){evnt(13776);if(r)goto S_16132;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13104);}while(r); +if(!qbevent)break;evnt(13776);}while(r); } -S_15332:; +S_16135:; if ((*__INTEGER_REDIMOPTION)||new_error){ -if(qbevent){evnt(13105);if(r)goto S_15332;} +if(qbevent){evnt(13777);if(r)goto S_16135;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13105);}while(r); +if(!qbevent)break;evnt(13777);}while(r); } -S_15335:; +S_16138:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(13106);if(r)goto S_15335;} +if(qbevent){evnt(13778);if(r)goto S_16138;} do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13106);}while(r); +if(!qbevent)break;evnt(13778);}while(r); } -S_15338:; +S_16141:; if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13108);if(r)goto S_15338;} -S_15339:; +if(qbevent){evnt(13780);if(r)goto S_16141;} +S_16142:; if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||new_error){ -if(qbevent){evnt(13109);if(r)goto S_15339;} -S_15340:; +if(qbevent){evnt(13781);if(r)goto S_16142;} +S_16143:; if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||new_error){ -if(qbevent){evnt(13110);if(r)goto S_15340;} +if(qbevent){evnt(13782);if(r)goto S_16143;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13110);}while(r); +if(!qbevent)break;evnt(13782);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13110);}while(r); +if(!qbevent)break;evnt(13782);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13111);}while(r); +if(!qbevent)break;evnt(13783);}while(r); } } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,FUNC_STR2(_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13120);}while(r); -S_15348:; +if(!qbevent)break;evnt(13792);}while(r); +S_16151:; if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||new_error){ -if(qbevent){evnt(13121);if(r)goto S_15348;} +if(qbevent){evnt(13793);if(r)goto S_16151;} do{ *_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE); -if(!qbevent)break;evnt(13122);}while(r); +if(!qbevent)break;evnt(13794);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),qbs_new_txt_len("/8+1",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13123);}while(r); +if(!qbevent)break;evnt(13795);}while(r); } -S_15352:; +S_16155:; if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ -if(qbevent){evnt(13128);if(r)goto S_15352;} +if(qbevent){evnt(13800);if(r)goto S_16155;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2075; +if (new_error) goto skip2228; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *",10),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2075; -skip2075: +if (new_error) goto skip2228; +skip2228: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13129);}while(r); +if(!qbevent)break;evnt(13801);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2076; +if (new_error) goto skip2229; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip2076; -skip2076: +if (new_error) goto skip2229; +skip2229: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13130);}while(r); +if(!qbevent)break;evnt(13802);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2077; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("=(ptrszint*)mem_static_malloc(",30)),FUNC_STR2(&(pass2078=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )))),qbs_new_txt_len("*ptrsz);",8)), 0 , 0 , 1 ); -if (new_error) goto skip2077; -skip2077: +if (new_error) goto skip2230; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("=(ptrszint*)mem_static_malloc(",30)),FUNC_STR2(&(pass2231=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )))),qbs_new_txt_len("*ptrsz);",8)), 0 , 0 , 1 ); +if (new_error) goto skip2230; +skip2230: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13131);}while(r); +if(!qbevent)break;evnt(13803);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2079; +if (new_error) goto skip2232; sub_file_print(tmp_fileno,qbs_new_txt_len("new_mem_lock();",15), 0 , 0 , 1 ); -if (new_error) goto skip2079; -skip2079: +if (new_error) goto skip2232; +skip2232: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13133);}while(r); +if(!qbevent)break;evnt(13805);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2080; +if (new_error) goto skip2233; sub_file_print(tmp_fileno,qbs_new_txt_len("mem_lock_tmp->type=4;",21), 0 , 0 , 1 ); -if (new_error) goto skip2080; -skip2080: +if (new_error) goto skip2233; +skip2233: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13134);}while(r); +if(!qbevent)break;evnt(13806);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2081; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint*)",12),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2082=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25)), 0 , 0 , 1 ); -if (new_error) goto skip2081; -skip2081: +if (new_error) goto skip2234; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint*)",12),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2235=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25)), 0 , 0 , 1 ); +if (new_error) goto skip2234; +skip2234: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13135);}while(r); +if(!qbevent)break;evnt(13807);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13139);}while(r); -S_15361:; -fornext_value2084= 1 ; -fornext_finalvalue2084=*_FUNC_ALLOCARRAY_LONG_NUME; -fornext_step2084= 1 ; -if (fornext_step2084<0) fornext_step_negative2084=1; else fornext_step_negative2084=0; -if (new_error) goto fornext_error2084; -goto fornext_entrylabel2084; +if(!qbevent)break;evnt(13811);}while(r); +S_16164:; +fornext_value2237= 1 ; +fornext_finalvalue2237=*_FUNC_ALLOCARRAY_LONG_NUME; +fornext_step2237= 1 ; +if (fornext_step2237<0) fornext_step_negative2237=1; else fornext_step_negative2237=0; +if (new_error) goto fornext_error2237; +goto fornext_entrylabel2237; while(1){ -fornext_value2084=fornext_step2084+(*_FUNC_ALLOCARRAY_LONG_I); -fornext_entrylabel2084: -*_FUNC_ALLOCARRAY_LONG_I=fornext_value2084; -if (fornext_step_negative2084){ -if (fornext_value2084fornext_finalvalue2084) break; +if (fornext_value2237>fornext_finalvalue2237) break; } -fornext_error2084:; -if(qbevent){evnt(13140);if(r)goto S_15361;} -S_15362:; +fornext_error2237:; +if(qbevent){evnt(13812);if(r)goto S_16164;} +S_16165:; if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(13141);if(r)goto S_15362;} +if(qbevent){evnt(13813);if(r)goto S_16165;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13141);}while(r); +if(!qbevent)break;evnt(13813);}while(r); } do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2085=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2238=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13142);}while(r); -fornext_continue_2083:; +if(!qbevent)break;evnt(13814);}while(r); +fornext_continue_2236:; } -fornext_exit_2083:; +fornext_exit_2236:; do{ qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13144);}while(r); +if(!qbevent)break;evnt(13816);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13145);}while(r); -S_15369:; +if(!qbevent)break;evnt(13817);}while(r); +S_16172:; if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||new_error){ -if(qbevent){evnt(13150);if(r)goto S_15369;} +if(qbevent){evnt(13822);if(r)goto S_16172;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2086; +if (new_error) goto skip2239; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_SD, 0 , 0 , 1 ); -if (new_error) goto skip2086; -skip2086: +if (new_error) goto skip2239; +skip2239: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13152);}while(r); -S_15371:; +if(!qbevent)break;evnt(13824);}while(r); +S_16174:; if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||new_error){ -if(qbevent){evnt(13157);if(r)goto S_15371;} +if(qbevent){evnt(13829);if(r)goto S_16174;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2087; +if (new_error) goto skip2240; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_static_pointer;",34)), 0 , 0 , 1 ); -if (new_error) goto skip2087; -skip2087: +if (new_error) goto skip2240; +skip2240: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13160);}while(r); +if(!qbevent)break;evnt(13832);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2088; +if (new_error) goto skip2241; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((cmem_static_pointer+=((",28),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")+15)&-16)>cmem_dynamic_base) error(257);",41)), 0 , 0 , 1 ); -if (new_error) goto skip2088; -skip2088: +if (new_error) goto skip2241; +skip2241: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13162);}while(r); +if(!qbevent)break;evnt(13834);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2089; +if (new_error) goto skip2242; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")>65536) error(257);",20)), 0 , 0 , 1 ); -if (new_error) goto skip2089; -skip2089: +if (new_error) goto skip2242; +skip2242: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13164);}while(r); +if(!qbevent)break;evnt(13836);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2090; +if (new_error) goto skip2243; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2090; -skip2090: +if (new_error) goto skip2243; +skip2243: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13166);}while(r); +if(!qbevent)break;evnt(13838);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2091; +if (new_error) goto skip2244; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2+4;",10)), 0 , 0 , 1 ); -if (new_error) goto skip2091; -skip2091: +if (new_error) goto skip2244; +skip2244: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13168);}while(r); +if(!qbevent)break;evnt(13840);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2092; +if (new_error) goto skip2245; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)mem_static_malloc(",32)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2092; -skip2092: +if (new_error) goto skip2245; +skip2245: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13171);}while(r); -S_15379:; +if(!qbevent)break;evnt(13843);}while(r); +S_16182:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13172);if(r)goto S_15379;} +if(qbevent){evnt(13844);if(r)goto S_16182;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2093; +if (new_error) goto skip2246; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2093; -skip2093: +if (new_error) goto skip2246; +skip2246: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13174);}while(r); +if(!qbevent)break;evnt(13846);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2094; +if (new_error) goto skip2247; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); -if (new_error) goto skip2094; -skip2094: +if (new_error) goto skip2247; +skip2247: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13175);}while(r); -S_15382:; +if(!qbevent)break;evnt(13847);}while(r); +S_16185:; if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||new_error){ -if(qbevent){evnt(13176);if(r)goto S_15382;} +if(qbevent){evnt(13848);if(r)goto S_16185;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2095; +if (new_error) goto skip2248; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);",42)), 0 , 0 , 1 ); -if (new_error) goto skip2095; -skip2095: +if (new_error) goto skip2248; +skip2248: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13177);}while(r); +if(!qbevent)break;evnt(13849);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2096; +if (new_error) goto skip2249; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new(0,0);",37)), 0 , 0 , 1 ); -if (new_error) goto skip2096; -skip2096: +if (new_error) goto skip2249; +skip2249: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13179);}while(r); +if(!qbevent)break;evnt(13851);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2097; +if (new_error) goto skip2250; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2097; -skip2097: +if (new_error) goto skip2250; +skip2250: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13181);}while(r); +if(!qbevent)break;evnt(13853);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2098; +if (new_error) goto skip2251; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2098; -skip2098: +if (new_error) goto skip2251; +skip2251: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13184);}while(r); +if(!qbevent)break;evnt(13856);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2099; +if (new_error) goto skip2252; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2;",8)), 0 , 0 , 1 ); -if (new_error) goto skip2099; -skip2099: +if (new_error) goto skip2252; +skip2252: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13186);}while(r); +if(!qbevent)break;evnt(13858);}while(r); } -S_15393:; +S_16196:; if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(13189);if(r)goto S_15393;} +if(qbevent){evnt(13861);if(r)goto S_16196;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2100; +if (new_error) goto skip2253; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2100; -skip2100: +if (new_error) goto skip2253; +skip2253: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13190);}while(r); +if(!qbevent)break;evnt(13862);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2101; +if (new_error) goto skip2254; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--){",18), 0 , 0 , 1 ); -if (new_error) goto skip2101; -skip2101: +if (new_error) goto skip2254; +skip2254: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13191);}while(r); +if(!qbevent)break;evnt(13863);}while(r); do{ -SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2102= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); +SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2255= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13192);}while(r); +if(!qbevent)break;evnt(13864);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2103; +if (new_error) goto skip2256; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_ACC, 0 , 0 , 1 ); -if (new_error) goto skip2103; -skip2103: +if (new_error) goto skip2256; +skip2256: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13193);}while(r); +if(!qbevent)break;evnt(13865);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2104; +if (new_error) goto skip2257; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2104; -skip2104: +if (new_error) goto skip2257; +skip2257: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13194);}while(r); +if(!qbevent)break;evnt(13866);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2105; +if (new_error) goto skip2258; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2105; -skip2105: +if (new_error) goto skip2258; +skip2258: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13198);}while(r); +if(!qbevent)break;evnt(13870);}while(r); do{ *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ; -if(!qbevent)break;evnt(13199);}while(r); +if(!qbevent)break;evnt(13871);}while(r); } -S_15403:; +S_16206:; if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||new_error){ -if(qbevent){evnt(13204);if(r)goto S_15403;} -S_15404:; +if(qbevent){evnt(13876);if(r)goto S_16206;} +S_16207:; if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ -if(qbevent){evnt(13206);if(r)goto S_15404;} +if(qbevent){evnt(13878);if(r)goto S_16207;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&2){",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13211);}while(r); +if(!qbevent)break;evnt(13883);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("error(10);",10))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13212);}while(r); +if(!qbevent)break;evnt(13884);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13213);}while(r); -S_15408:; +if(!qbevent)break;evnt(13885);}while(r); +S_16211:; if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ -if(qbevent){evnt(13218);if(r)goto S_15408;} +if(qbevent){evnt(13890);if(r)goto S_16211;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13219);}while(r); +if(!qbevent)break;evnt(13891);}while(r); do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("error(10);",10))); +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (!error_occurred) error(10);",31))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13220);}while(r); +if(!qbevent)break;evnt(13892);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13221);}while(r); +if(!qbevent)break;evnt(13893);}while(r); }else{ do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("((mem_lock*)((ptrszint*)",24)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2106=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("])->id=(++mem_lock_id);",23))); +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("((mem_lock*)((ptrszint*)",24)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2259=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("])->id=(++mem_lock_id);",23))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13229);}while(r); -S_15414:; +if(!qbevent)break;evnt(13901);}while(r); +S_16217:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13231);if(r)goto S_15414;} +if(qbevent){evnt(13903);if(r)goto S_16217;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("static int32 preserved_elements;",32))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13232);}while(r); +if(!qbevent)break;evnt(13904);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13236);}while(r); -S_15418:; +if(!qbevent)break;evnt(13908);}while(r); +S_16221:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13238);if(r)goto S_15418;} +if(qbevent){evnt(13910);if(r)goto S_16221;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("preserved_elements=",19)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13239);}while(r); +if(!qbevent)break;evnt(13911);}while(r); do{ goto LABEL_SKIPERASE; -if(!qbevent)break;evnt(13240);}while(r); +if(!qbevent)break;evnt(13912);}while(r); } -S_15422:; +S_16225:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13244);if(r)goto S_15422;} +if(qbevent){evnt(13916);if(r)goto S_16225;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13245);}while(r); +if(!qbevent)break;evnt(13917);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13246);}while(r); +if(!qbevent)break;evnt(13918);}while(r); } -S_15426:; +S_16229:; if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(13249);if(r)goto S_15426;} +if(qbevent){evnt(13921);if(r)goto S_16229;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13250);}while(r); +if(!qbevent)break;evnt(13922);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("while(tmp_long--) {",19))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13251);}while(r); +if(!qbevent)break;evnt(13923);}while(r); do{ -SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2107= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); +SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2260= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13252);}while(r); +if(!qbevent)break;evnt(13924);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,_FUNC_ALLOCARRAY_STRING_ACC),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13253);}while(r); +if(!qbevent)break;evnt(13925);}while(r); } -S_15432:; +S_16235:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13257);if(r)goto S_15432;} +if(qbevent){evnt(13929);if(r)goto S_16235;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("free((void*)(",13)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13259);}while(r); +if(!qbevent)break;evnt(13931);}while(r); }else{ do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13262);}while(r); +if(!qbevent)break;evnt(13934);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13263);}while(r); +if(!qbevent)break;evnt(13935);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13264);}while(r); +if(!qbevent)break;evnt(13936);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("free((void*)(",13)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13265);}while(r); +if(!qbevent)break;evnt(13937);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13266);}while(r); +if(!qbevent)break;evnt(13938);}while(r); } LABEL_SKIPERASE:; -if(qbevent){evnt(13269);r=0;} +if(qbevent){evnt(13941);r=0;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13271);}while(r); -S_15442:; +if(!qbevent)break;evnt(13943);}while(r); +S_16245:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13272);if(r)goto S_15442;} +if(qbevent){evnt(13944);if(r)goto S_16245;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("else preserved_elements=0;",26))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13273);}while(r); +if(!qbevent)break;evnt(13945);}while(r); } } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),_FUNC_ALLOCARRAY_STRING_SD)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13283);}while(r); -S_15447:; +if(!qbevent)break;evnt(13955);}while(r); +S_16250:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY|((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(13284);if(r)goto S_15447;} -S_15448:; +if(qbevent){evnt(13956);if(r)goto S_16250;} +S_16251:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13288);if(r)goto S_15448;} +if(qbevent){evnt(13960);if(r)goto S_16251;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elements){",24))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13289);}while(r); +if(!qbevent)break;evnt(13961);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("static ptrszint tmp_long2;",26))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13291);}while(r); +if(!qbevent)break;evnt(13963);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long2=",10)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13294);}while(r); +if(!qbevent)break;evnt(13966);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (tmp_long2 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(13357);if(r)goto S_15503;} +if(qbevent){evnt(14029);if(r)goto S_16306;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2113; +if (new_error) goto skip2266; sub_file_print(tmp_fileno,qbs_new_txt_len("while(tmp_long--) {",19), 0 , 0 , 1 ); -if (new_error) goto skip2113; -skip2113: +if (new_error) goto skip2266; +skip2266: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13358);}while(r); +if(!qbevent)break;evnt(14030);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13359);}while(r); +if(!qbevent)break;evnt(14031);}while(r); do{ -SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2114= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); +SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2267= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13360);}while(r); +if(!qbevent)break;evnt(14032);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2115; +if (new_error) goto skip2268; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)), 0 , 0 , 1 ); -if (new_error) goto skip2115; -skip2115: +if (new_error) goto skip2268; +skip2268: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13361);}while(r); +if(!qbevent)break;evnt(14033);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2116; +if (new_error) goto skip2269; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17)), 0 , 0 , 1 ); -if (new_error) goto skip2116; -skip2116: +if (new_error) goto skip2269; +skip2269: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13363);}while(r); +if(!qbevent)break;evnt(14035);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2117; +if (new_error) goto skip2270; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)), 0 , 0 , 1 ); -if (new_error) goto skip2117; -skip2117: +if (new_error) goto skip2270; +skip2270: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13365);}while(r); +if(!qbevent)break;evnt(14037);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2118; +if (new_error) goto skip2271; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2118; -skip2118: +if (new_error) goto skip2271; +skip2271: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13366);}while(r); +if(!qbevent)break;evnt(14038);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2119; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("free_mem_lock( (mem_lock*)((ptrszint*)",38),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2120=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("] );",4)), 0 , 0 , 1 ); -if (new_error) goto skip2119; -skip2119: +if (new_error) goto skip2272; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("free_mem_lock( (mem_lock*)((ptrszint*)",38),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2273=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("] );",4)), 0 , 0 , 1 ); +if (new_error) goto skip2272; +skip2272: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13368);}while(r); +if(!qbevent)break;evnt(14040);}while(r); } }else{ do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13375);}while(r); -S_15517:; +if(!qbevent)break;evnt(14047);}while(r); +S_16320:; if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13377);if(r)goto S_15517;} +if(qbevent){evnt(14049);if(r)goto S_16320;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elements){",24))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13378);}while(r); +if(!qbevent)break;evnt(14050);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("memcpy(redim_preserve_cmem_buffer,(void*)(",42)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),preserved_elements*",24)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13382);}while(r); +if(!qbevent)break;evnt(14054);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13384);}while(r); +if(!qbevent)break;evnt(14056);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13385);}while(r); +if(!qbevent)break;evnt(14057);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*",43)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13386);}while(r); +if(!qbevent)break;evnt(14058);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("memcpy((void*)(",15)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),redim_preserve_cmem_buffer,preserved_elements*",51)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13387);}while(r); +if(!qbevent)break;evnt(14059);}while(r); do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elementsfornext_finalvalue2133) break; +if (fornext_value2286>fornext_finalvalue2286) break; } -fornext_error2133:; -if(qbevent){evnt(13446);if(r)goto S_15566;} +fornext_error2286:; +if(qbevent){evnt(14118);if(r)goto S_16369;} do{ *_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ; -if(!qbevent)break;evnt(13447);}while(r); +if(!qbevent)break;evnt(14119);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2134; +if (new_error) goto skip2287; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_B)),qbs_new_txt_len("]=2147483647;",13)), 0 , 0 , 1 ); -if (new_error) goto skip2134; -skip2134: +if (new_error) goto skip2287; +skip2287: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13448);}while(r); +if(!qbevent)break;evnt(14120);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2135; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2136=*_FUNC_ALLOCARRAY_LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); -if (new_error) goto skip2135; -skip2135: +if (new_error) goto skip2288; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2289=*_FUNC_ALLOCARRAY_LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); +if (new_error) goto skip2288; +skip2288: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13449);}while(r); +if(!qbevent)break;evnt(14121);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2137; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2138=*_FUNC_ALLOCARRAY_LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); -if (new_error) goto skip2137; -skip2137: +if (new_error) goto skip2290; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2291=*_FUNC_ALLOCARRAY_LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4)), 0 , 0 , 1 ); +if (new_error) goto skip2290; +skip2290: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13450);}while(r); -fornext_continue_2132:; +if(!qbevent)break;evnt(14122);}while(r); +fornext_continue_2285:; } -fornext_exit_2132:; -S_15572:; +fornext_exit_2285:; +S_16375:; if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13452);if(r)goto S_15572;} +if(qbevent){evnt(14124);if(r)goto S_16375;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2139; +if (new_error) goto skip2292; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29)), 0 , 0 , 1 ); -if (new_error) goto skip2139; -skip2139: +if (new_error) goto skip2292; +skip2292: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13454);}while(r); +if(!qbevent)break;evnt(14126);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2140; +if (new_error) goto skip2293; sub_file_print(tmp_fileno,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)), 0 , 0 , 1 ); -if (new_error) goto skip2140; -skip2140: +if (new_error) goto skip2293; +skip2293: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13457);}while(r); +if(!qbevent)break;evnt(14129);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2141; +if (new_error) goto skip2294; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2141; -skip2141: +if (new_error) goto skip2294; +skip2294: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13459);}while(r); +if(!qbevent)break;evnt(14131);}while(r); } -S_15579:; +S_16382:; if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ -if(qbevent){evnt(13462);if(r)goto S_15579;} -S_15580:; +if(qbevent){evnt(14134);if(r)goto S_16382;} +S_16383:; if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ -if(qbevent){evnt(13464);if(r)goto S_15580;} +if(qbevent){evnt(14136);if(r)goto S_16383;} do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13464);}while(r); +if(!qbevent)break;evnt(14136);}while(r); } do{ qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13465);}while(r); +if(!qbevent)break;evnt(14137);}while(r); } do{ *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME; -if(!qbevent)break;evnt(13469);}while(r); -S_15586:; +if(!qbevent)break;evnt(14141);}while(r); +S_16389:; if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||new_error){ -if(qbevent){evnt(13470);if(r)goto S_15586;} +if(qbevent){evnt(14142);if(r)goto S_16389;} do{ *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ; -if(!qbevent)break;evnt(13470);}while(r); +if(!qbevent)break;evnt(14142);}while(r); } } -S_15590:; +S_16393:; if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||new_error){ -if(qbevent){evnt(13474);if(r)goto S_15590;} -S_15591:; +if(qbevent){evnt(14146);if(r)goto S_16393;} +S_16394:; if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(13475);if(r)goto S_15591;} +if(qbevent){evnt(14147);if(r)goto S_16394;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2142; +if (new_error) goto skip2295; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_F12, 0 , 0 , 1 ); -if (new_error) goto skip2142; -skip2142: +if (new_error) goto skip2295; +skip2295: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13476);}while(r); +if(!qbevent)break;evnt(14148);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2143; +if (new_error) goto skip2296; sub_file_print(tmp_fileno,_FUNC_ALLOCARRAY_STRING_F12, 0 , 0 , 1 ); -if (new_error) goto skip2143; -skip2143: +if (new_error) goto skip2296; +skip2296: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13478);}while(r); +if(!qbevent)break;evnt(14150);}while(r); } } do{ *__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST; -if(!qbevent)break;evnt(13490);}while(r); +if(!qbevent)break;evnt(14162);}while(r); do{ qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13492);}while(r); +if(!qbevent)break;evnt(14164);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free5.txt" @@ -56246,269 +59465,320 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *__INTEGER_ARRAYPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(13496);}while(r); +if(!qbevent)break;evnt(14168);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,FUNC_STR2(__LONG_CURRENTID)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13506);}while(r); +if(!qbevent)break;evnt(14178);}while(r); do{ -if(!qbevent)break;evnt(13508);}while(r); +if(!qbevent)break;evnt(14180);}while(r); do{ -memcpy(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2863); -if(!qbevent)break;evnt(13510);}while(r); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(14182);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_STRING_INDEXES); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13512);}while(r); +if(!qbevent)break;evnt(14184);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_TYP=*(int32*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(512))+*__LONG_ISARRAY+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(13513);}while(r); +if(!qbevent)break;evnt(14185);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(550)),256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13514);}while(r); -S_15606:; +if(!qbevent)break;evnt(14186);}while(r); +S_16409:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13516);if(r)goto S_15606;} +if(qbevent){evnt(14188);if(r)goto S_16409;} do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13517);}while(r); +if(!qbevent)break;evnt(14189);}while(r); do{ goto LABEL_GOTARRAYINDEX; -if(!qbevent)break;evnt(13518);}while(r); +if(!qbevent)break;evnt(14190);}while(r); } do{ *_FUNC_ARRAYREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13521);}while(r); +if(!qbevent)break;evnt(14193);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_ELEMENTS= 1 ; -if(!qbevent)break;evnt(13524);}while(r); +if(!qbevent)break;evnt(14196);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_B= 0 ; -if(!qbevent)break;evnt(13525);}while(r); -S_15613:; -fornext_value2146= 1 ; -fornext_finalvalue2146=*_FUNC_ARRAYREFERENCE_LONG_N; -fornext_step2146= 1 ; -if (fornext_step2146<0) fornext_step_negative2146=1; else fornext_step_negative2146=0; -if (new_error) goto fornext_error2146; -goto fornext_entrylabel2146; +if(!qbevent)break;evnt(14197);}while(r); +S_16416:; +fornext_value2299= 1 ; +fornext_finalvalue2299=*_FUNC_ARRAYREFERENCE_LONG_N; +fornext_step2299= 1 ; +if (fornext_step2299<0) fornext_step_negative2299=1; else fornext_step_negative2299=0; +if (new_error) goto fornext_error2299; +goto fornext_entrylabel2299; while(1){ -fornext_value2146=fornext_step2146+(*_FUNC_ARRAYREFERENCE_LONG_I); -fornext_entrylabel2146: -*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2146; -if (fornext_step_negative2146){ -if (fornext_value2146fornext_finalvalue2146) break; +if (fornext_value2299>fornext_finalvalue2299) break; } -fornext_error2146:; -if(qbevent){evnt(13526);if(r)goto S_15613;} +fornext_error2299:; +if(qbevent){evnt(14198);if(r)goto S_16416;} do{ *_FUNC_ARRAYREFERENCE_LONG_A=qbs_asc(FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13527);}while(r); -S_15615:; +if(!qbevent)break;evnt(14199);}while(r); +S_16418:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 40 ))||new_error){ -if(qbevent){evnt(13528);if(r)goto S_15615;} +if(qbevent){evnt(14200);if(r)goto S_16418;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; -if(!qbevent)break;evnt(13528);}while(r); +if(!qbevent)break;evnt(14200);}while(r); } -S_15618:; +S_16421:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 41 ))||new_error){ -if(qbevent){evnt(13529);if(r)goto S_15618;} +if(qbevent){evnt(14201);if(r)goto S_16421;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; -if(!qbevent)break;evnt(13529);}while(r); +if(!qbevent)break;evnt(14201);}while(r); } -S_15621:; +S_16424:; if (((-(*_FUNC_ARRAYREFERENCE_LONG_A== 44 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))||new_error){ -if(qbevent){evnt(13530);if(r)goto S_15621;} +if(qbevent){evnt(14202);if(r)goto S_16424;} do{ *_FUNC_ARRAYREFERENCE_LONG_ELEMENTS=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS+ 1 ; -if(!qbevent)break;evnt(13530);}while(r); +if(!qbevent)break;evnt(14202);}while(r); } -fornext_continue_2145:; +fornext_continue_2298:; } -fornext_exit_2145:; -S_15625:; +fornext_exit_2298:; +S_16428:; if ((-(*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))== -1 ))||new_error){ -if(qbevent){evnt(13533);if(r)goto S_15625;} -S_15626:; +if(qbevent){evnt(14205);if(r)goto S_16428;} +S_16429:; if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||new_error){ -if(qbevent){evnt(13534);if(r)goto S_15626;} +if(qbevent){evnt(14206);if(r)goto S_16429;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13534);}while(r); +if(!qbevent)break;evnt(14206);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13534);}while(r); +if(!qbevent)break;evnt(14206);}while(r); } -S_15630:; +S_16433:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS== 1 ))||new_error){ -if(qbevent){evnt(13535);if(r)goto S_15630;} +if(qbevent){evnt(14207);if(r)goto S_16433;} do{ *(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))= 1 ; -if(!qbevent)break;evnt(13535);}while(r); +if(!qbevent)break;evnt(14207);}while(r); do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+516))= 1 ; -if(!qbevent)break;evnt(13535);}while(r); +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))= 1 ; +if(!qbevent)break;evnt(14207);}while(r); } do{ tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS; -if(!qbevent)break;evnt(13536);}while(r); +if(!qbevent)break;evnt(14208);}while(r); }else{ -S_15636:; +S_16439:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))))||new_error){ -if(qbevent){evnt(13538);if(r)goto S_15636;} +if(qbevent){evnt(14210);if(r)goto S_16439;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13538);}while(r); +if(!qbevent)break;evnt(14210);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13538);}while(r); +if(!qbevent)break;evnt(14210);}while(r); } } do{ *_FUNC_ARRAYREFERENCE_LONG_CURARG= 1 ; -if(!qbevent)break;evnt(13541);}while(r); +if(!qbevent)break;evnt(14213);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_FIRSTI= 1 ; -if(!qbevent)break;evnt(13542);}while(r); -S_15643:; -fornext_value2148= 1 ; -fornext_finalvalue2148=*_FUNC_ARRAYREFERENCE_LONG_N; -fornext_step2148= 1 ; -if (fornext_step2148<0) fornext_step_negative2148=1; else fornext_step_negative2148=0; -if (new_error) goto fornext_error2148; -goto fornext_entrylabel2148; +if(!qbevent)break;evnt(14214);}while(r); +S_16446:; +fornext_value2301= 1 ; +fornext_finalvalue2301=*_FUNC_ARRAYREFERENCE_LONG_N; +fornext_step2301= 1 ; +if (fornext_step2301<0) fornext_step_negative2301=1; else fornext_step_negative2301=0; +if (new_error) goto fornext_error2301; +goto fornext_entrylabel2301; while(1){ -fornext_value2148=fornext_step2148+(*_FUNC_ARRAYREFERENCE_LONG_I); -fornext_entrylabel2148: -*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2148; -if (fornext_step_negative2148){ -if (fornext_value2148fornext_finalvalue2148) break; +if (fornext_value2301>fornext_finalvalue2301) break; } -fornext_error2148:; -if(qbevent){evnt(13543);if(r)goto S_15643;} +fornext_error2301:; +if(qbevent){evnt(14215);if(r)goto S_16446;} do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_L,FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13544);}while(r); -S_15645:; +if(!qbevent)break;evnt(14216);}while(r); +S_16448:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(13545);if(r)goto S_15645;} +if(qbevent){evnt(14217);if(r)goto S_16448;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; -if(!qbevent)break;evnt(13545);}while(r); +if(!qbevent)break;evnt(14217);}while(r); } -S_15648:; +S_16451:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(13546);if(r)goto S_15648;} +if(qbevent){evnt(14218);if(r)goto S_16451;} do{ *_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; -if(!qbevent)break;evnt(13546);}while(r); +if(!qbevent)break;evnt(14218);}while(r); } -S_15651:; +S_16454:; if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))|(-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))))||new_error){ -if(qbevent){evnt(13547);if(r)goto S_15651;} -S_15652:; +if(qbevent){evnt(14219);if(r)goto S_16454;} +S_16455:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))||new_error){ -if(qbevent){evnt(13548);if(r)goto S_15652;} -S_15653:; +if(qbevent){evnt(14220);if(r)goto S_16455;} +S_16456:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(13549);if(r)goto S_15653;} +if(qbevent){evnt(14221);if(r)goto S_16456;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13549);}while(r); +if(!qbevent)break;evnt(14221);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13549);}while(r); +if(!qbevent)break;evnt(14221);}while(r); } do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,_FUNC_ARRAYREFERENCE_LONG_I),&(pass2149= 64 ))); +qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,_FUNC_ARRAYREFERENCE_LONG_I),&(pass2302= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13550);}while(r); -S_15658:; +if(!qbevent)break;evnt(14222);}while(r); +S_16461:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13551);if(r)goto S_15658;} +if(qbevent){evnt(14223);if(r)goto S_16461;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13551);}while(r); +if(!qbevent)break;evnt(14223);}while(r); } }else{ do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,&(pass2150=*_FUNC_ARRAYREFERENCE_LONG_I- 1 )),&(pass2151= 64 ))); +qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,&(pass2303=*_FUNC_ARRAYREFERENCE_LONG_I- 1 )),&(pass2304= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13553);}while(r); -S_15663:; +if(!qbevent)break;evnt(14225);}while(r); +S_16466:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13554);if(r)goto S_15663;} +if(qbevent){evnt(14226);if(r)goto S_16466;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13554);}while(r); +if(!qbevent)break;evnt(14226);}while(r); } } -S_15667:; +S_16470:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13556);if(r)goto S_15667;} +if(qbevent){evnt(14228);if(r)goto S_16470;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13556);}while(r); +if(!qbevent)break;evnt(14228);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13556);}while(r); +if(!qbevent)break;evnt(14228);}while(r); } do{ *_FUNC_ARRAYREFERENCE_LONG_ARGI=((*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS-*_FUNC_ARRAYREFERENCE_LONG_CURARG)* 4 )+( 4 ); -if(!qbevent)break;evnt(13557);}while(r); -S_15672:; +if(!qbevent)break;evnt(14229);}while(r); +S_16475:; if ((-(*_FUNC_ARRAYREFERENCE_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(13558);if(r)goto S_15672;} +if(qbevent){evnt(14230);if(r)goto S_16475;} +S_16476:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(14231);if(r)goto S_16476;} do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2152=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])+",3))); +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2305=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])+",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13559);}while(r); +if(!qbevent)break;evnt(14232);}while(r); }else{ do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2153=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2154=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("(",1)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("]+",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13561);}while(r); +if(!qbevent)break;evnt(14234);}while(r); +} +}else{ +S_16482:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(14238);if(r)goto S_16482;} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2306=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2307=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14239);}while(r); +}else{ +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("((",2)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2308=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14241);}while(r); +} } do{ *_FUNC_ARRAYREFERENCE_LONG_FIRSTI=*_FUNC_ARRAYREFERENCE_LONG_I+ 1 ; -if(!qbevent)break;evnt(13563);}while(r); +if(!qbevent)break;evnt(14244);}while(r); do{ *_FUNC_ARRAYREFERENCE_LONG_CURARG=*_FUNC_ARRAYREFERENCE_LONG_CURARG+ 1 ; -if(!qbevent)break;evnt(13564);}while(r); +if(!qbevent)break;evnt(14245);}while(r); } -fornext_continue_2147:; +fornext_continue_2300:; } -fornext_exit_2147:; +fornext_exit_2300:; do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_left(_FUNC_ARRAYREFERENCE_STRING_R,_FUNC_ARRAYREFERENCE_STRING_R->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13567);}while(r); +if(!qbevent)break;evnt(14248);}while(r); LABEL_GOTARRAYINDEX:; -if(qbevent){evnt(13568);r=0;} +if(qbevent){evnt(14249);r=0;} do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,__STRING1_SP3),_FUNC_ARRAYREFERENCE_STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13570);}while(r); +if(!qbevent)break;evnt(14251);}while(r); do{ qbs_set(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE,_FUNC_ARRAYREFERENCE_STRING_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13571);}while(r); +if(!qbevent)break;evnt(14252);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free6.txt" @@ -56529,197 +59799,197 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_15684:; -fornext_value2158= 1 ; -fornext_finalvalue2158=*_SUB_ASSIGN_LONG_N; -fornext_step2158= 1 ; -if (fornext_step2158<0) fornext_step_negative2158=1; else fornext_step_negative2158=0; -if (new_error) goto fornext_error2158; -goto fornext_entrylabel2158; +S_16495:; +fornext_value2312= 1 ; +fornext_finalvalue2312=*_SUB_ASSIGN_LONG_N; +fornext_step2312= 1 ; +if (fornext_step2312<0) fornext_step_negative2312=1; else fornext_step_negative2312=0; +if (new_error) goto fornext_error2312; +goto fornext_entrylabel2312; while(1){ -fornext_value2158=fornext_step2158+(*_SUB_ASSIGN_LONG_I); -fornext_entrylabel2158: -*_SUB_ASSIGN_LONG_I=fornext_value2158; -if (fornext_step_negative2158){ -if (fornext_value2158fornext_finalvalue2158) break; +if (fornext_value2312>fornext_finalvalue2312) break; } -fornext_error2158:; -if(qbevent){evnt(13577);if(r)goto S_15684;} +fornext_error2312:; +if(qbevent){evnt(14258);if(r)goto S_16495;} do{ *_SUB_ASSIGN_LONG_C=qbs_asc(FUNC_GETELEMENT(_SUB_ASSIGN_STRING_A,_SUB_ASSIGN_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13578);}while(r); -S_15686:; +if(!qbevent)break;evnt(14259);}while(r); +S_16497:; if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||new_error){ -if(qbevent){evnt(13579);if(r)goto S_15686;} +if(qbevent){evnt(14260);if(r)goto S_16497;} do{ *_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ; -if(!qbevent)break;evnt(13579);}while(r); +if(!qbevent)break;evnt(14260);}while(r); } -S_15689:; +S_16500:; if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||new_error){ -if(qbevent){evnt(13580);if(r)goto S_15689;} +if(qbevent){evnt(14261);if(r)goto S_16500;} do{ *_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ; -if(!qbevent)break;evnt(13580);}while(r); +if(!qbevent)break;evnt(14261);}while(r); } -S_15692:; +S_16503:; if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||new_error){ -if(qbevent){evnt(13581);if(r)goto S_15692;} -S_15693:; +if(qbevent){evnt(14262);if(r)goto S_16503;} +S_16504:; if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(13582);if(r)goto S_15693;} +if(qbevent){evnt(14263);if(r)goto S_16504;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13582);}while(r); +if(!qbevent)break;evnt(14263);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13582);}while(r); +if(!qbevent)break;evnt(14263);}while(r); } -S_15697:; +S_16508:; if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||new_error){ -if(qbevent){evnt(13583);if(r)goto S_15697;} +if(qbevent){evnt(14264);if(r)goto S_16508;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13583);}while(r); +if(!qbevent)break;evnt(14264);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13583);}while(r); +if(!qbevent)break;evnt(14264);}while(r); } do{ -qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2159= 1 ),&(pass2160=*_SUB_ASSIGN_LONG_I- 1 )))); +qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2313= 1 ),&(pass2314=*_SUB_ASSIGN_LONG_I- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13585);}while(r); -S_15702:; +if(!qbevent)break;evnt(14266);}while(r); +S_16513:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13586);if(r)goto S_15702;} +if(qbevent){evnt(14267);if(r)goto S_16513;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13586);}while(r); +if(!qbevent)break;evnt(14267);}while(r); } do{ qbs_set(_SUB_ASSIGN_STRING_L,qbs_add(qbs_add(qbs_add(__STRING_TLAYOUT,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13587);}while(r); -S_15706:; +if(!qbevent)break;evnt(14268);}while(r); +S_16517:; if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||new_error){ -if(qbevent){evnt(13590);if(r)goto S_15706;} +if(qbevent){evnt(14271);if(r)goto S_16517;} do{ *_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13591);}while(r); -S_15708:; +if(!qbevent)break;evnt(14272);}while(r); +S_16519:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13592);if(r)goto S_15708;} +if(qbevent){evnt(14273);if(r)goto S_16519;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13592);}while(r); +if(!qbevent)break;evnt(14273);}while(r); } -S_15711:; +S_16522:; while((*_SUB_ASSIGN_LONG_TRY)||new_error){ -if(qbevent){evnt(13593);if(r)goto S_15711;} -S_15712:; +if(qbevent){evnt(14274);if(r)goto S_16522;} +S_16523:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(13594);if(r)goto S_15712;} -S_15713:; +if(qbevent){evnt(14275);if(r)goto S_16523;} +S_16524:; if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))||new_error){ -if(qbevent){evnt(13595);if(r)goto S_15713;} -S_15714:; +if(qbevent){evnt(14276);if(r)goto S_16524;} +S_16525:; if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(13596);if(r)goto S_15714;} +if(qbevent){evnt(14277);if(r)goto S_16525;} do{ SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13597);}while(r); +if(!qbevent)break;evnt(14278);}while(r); do{ goto LABEL_ASSIGNSIMPLEVARIABLE; -if(!qbevent)break;evnt(13598);}while(r); +if(!qbevent)break;evnt(14279);}while(r); } } } -S_15720:; +S_16531:; if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(13602);if(r)goto S_15720;} +if(qbevent){evnt(14283);if(r)goto S_16531;} do{ *__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(13602);}while(r); +if(!qbevent)break;evnt(14283);}while(r); do{ *_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13602);}while(r); +if(!qbevent)break;evnt(14283);}while(r); }else{ do{ *_SUB_ASSIGN_LONG_TRY= 0 ; -if(!qbevent)break;evnt(13602);}while(r); +if(!qbevent)break;evnt(14283);}while(r); } -S_15726:; +S_16537:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13603);if(r)goto S_15726;} +if(qbevent){evnt(14284);if(r)goto S_16537;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13603);}while(r); +if(!qbevent)break;evnt(14284);}while(r); } -dl_continue_2161:; +dl_continue_2315:; } -dl_exit_2161:; +dl_exit_2315:; } do{ qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_EVALUATE(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13607);}while(r); -S_15732:; +if(!qbevent)break;evnt(14288);}while(r); +S_16543:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13607);if(r)goto S_15732;} +if(qbevent){evnt(14288);if(r)goto S_16543;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13607);}while(r); +if(!qbevent)break;evnt(14288);}while(r); } LABEL_ASSIGNSIMPLEVARIABLE:; -if(qbevent){evnt(13608);r=0;} -S_15735:; +if(qbevent){evnt(14289);r=0;} +S_16546:; if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(13609);if(r)goto S_15735;} +if(qbevent){evnt(14290);if(r)goto S_16546;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable =",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13609);}while(r); +if(!qbevent)break;evnt(14290);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13609);}while(r); +if(!qbevent)break;evnt(14290);}while(r); } do{ -SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2162=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2163= 0 )); +SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2316=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2317= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13610);}while(r); -S_15740:; +if(!qbevent)break;evnt(14291);}while(r); +S_16551:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13611);if(r)goto S_15740;} +if(qbevent){evnt(14292);if(r)goto S_16551;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(13611);}while(r); +if(!qbevent)break;evnt(14292);}while(r); } do{ qbs_set(__STRING_TLAYOUT,qbs_add(_SUB_ASSIGN_STRING_L,__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13612);}while(r); +if(!qbevent)break;evnt(14293);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13614);}while(r); +if(!qbevent)break;evnt(14295);}while(r); } -fornext_continue_2157:; +fornext_continue_2311:; } -fornext_exit_2157:; +fornext_exit_2311:; do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13618);}while(r); +if(!qbevent)break;evnt(14299);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(13618);}while(r); +if(!qbevent)break;evnt(14299);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free7.txt" @@ -56740,15 +60010,48 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -memcpy(((char*)__UDT_ID)+(0)+ 0,((char*)__UDT_CLEARIDDATA)+(0)+ 0, 2863); -if(!qbevent)break;evnt(13622);}while(r); +memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__UDT_CLEARIDDATA)+(0)+ 0), 256); +memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__UDT_CLEARIDDATA)+(0)+ 256), 256); +memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__UDT_CLEARIDDATA)+(0)+ 512), 4); +memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__UDT_CLEARIDDATA)+(0)+ 516), 2); +memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__UDT_CLEARIDDATA)+(0)+ 518), 2); +memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__UDT_CLEARIDDATA)+(0)+ 520), 8); +memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__UDT_CLEARIDDATA)+(0)+ 528), 8); +memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__UDT_CLEARIDDATA)+(0)+ 536), 4); +memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__UDT_CLEARIDDATA)+(0)+ 540), 4); +memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__UDT_CLEARIDDATA)+(0)+ 544), 2); +memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__UDT_CLEARIDDATA)+(0)+ 546), 2); +memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__UDT_CLEARIDDATA)+(0)+ 548), 2); +memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__UDT_CLEARIDDATA)+(0)+ 550), 256); +memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__UDT_CLEARIDDATA)+(0)+ 806), 2); +memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__UDT_CLEARIDDATA)+(0)+ 808), 1); +memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__UDT_CLEARIDDATA)+(0)+ 809), 2); +memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__UDT_CLEARIDDATA)+(0)+ 811), 2); +memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__UDT_CLEARIDDATA)+(0)+ 813), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__UDT_CLEARIDDATA)+(0)+ 1213), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__UDT_CLEARIDDATA)+(0)+ 1613), 256); +memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__UDT_CLEARIDDATA)+(0)+ 1869), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__UDT_CLEARIDDATA)+(0)+ 2125), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__UDT_CLEARIDDATA)+(0)+ 2381), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__UDT_CLEARIDDATA)+(0)+ 2385), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__UDT_CLEARIDDATA)+(0)+ 2641), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__UDT_CLEARIDDATA)+(0)+ 2645), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__UDT_CLEARIDDATA)+(0)+ 2647), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__UDT_CLEARIDDATA)+(0)+ 2747), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__UDT_CLEARIDDATA)+(0)+ 2847), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__UDT_CLEARIDDATA)+(0)+ 2851), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__UDT_CLEARIDDATA)+(0)+ 2853), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__UDT_CLEARIDDATA)+(0)+ 2855), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__UDT_CLEARIDDATA)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__UDT_CLEARIDDATA)+(0)+ 2861)); +if(!qbevent)break;evnt(14303);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free8.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_CLOSEMAIN(){ +void SUB_VWATCHVARIABLE(qbs*_SUB_VWATCHVARIABLE_STRING_THIS,int8*_SUB_VWATCHVARIABLE_BYTE_ACTION){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -56762,68 +60065,221 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -SUB_XEND(); -if(!qbevent)break;evnt(13626);}while(r); +if(!qbevent)break;evnt(14307);}while(r); +do{ +if(!qbevent)break;evnt(14308);}while(r); +S_16563:; +if(qbevent){evnt(14310);if(r)goto S_16563;} +S_16564:; +if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( -1 )))||new_error){ +if(qbevent){evnt(14311);if(r)goto S_16564;} +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES= 0 ; +if(!qbevent)break;evnt(14312);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14313);}while(r); +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES= 0 ; +if(!qbevent)break;evnt(14314);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14315);}while(r); +sc_ec_57_end:; +goto sc_2319_end; +} +S_16569:; +if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( 0 )))||new_error){ +if(qbevent){evnt(14316);if(r)goto S_16569;} +S_16570:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len("@",1)),0)> 0 ))|(qbs_equal(qbs_left(_SUB_VWATCHVARIABLE_STRING_THIS, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||new_error){ +if(qbevent){evnt(14317);if(r)goto S_16570;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14318);}while(r); +} +do{ +qbs_set(__STRING_VWATCHNEWVARIABLE,_SUB_VWATCHVARIABLE_STRING_THIS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14321);}while(r); +S_16574:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14322);if(r)goto S_16574;} +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES+ 1 ; +if(!qbevent)break;evnt(14323);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("vwatch_global_vars[",19)),FUNC_STR2(&(pass2320=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES- 1 ))),qbs_new_txt_len("] = &",5)),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len(";",1)),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14324);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_VWATCHVARIABLE_STRING_THIS,&(pass2321=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES- 1 ),&(pass2322= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14325);}while(r); +}else{ +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES+ 1 ; +if(!qbevent)break;evnt(14327);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("vwatch_local_vars[",18)),FUNC_STR2(&(pass2323=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES- 1 ))),qbs_new_txt_len("] = &",5)),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len(";",1)),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14328);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_VWATCHVARIABLE_STRING_THIS,&(pass2324=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES- 1 ),&(pass2325= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14329);}while(r); +} +sc_ec_58_end:; +goto sc_2319_end; +} +S_16583:; +if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( 1 )))||new_error){ +if(qbevent){evnt(14331);if(r)goto S_16583;} +S_16584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14332);if(r)goto S_16584;} +S_16585:; +if ((-(*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES> 0 ))||new_error){ +if(qbevent){evnt(14333);if(r)goto S_16585;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2164; -sub_file_print(tmp_fileno,qbs_new_txt_len("return;",7), 0 , 0 , 1 ); -if (new_error) goto skip2164; -skip2164: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2326; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_local_vars[0];",27), 0 , 0 , 1 ); +if (new_error) goto skip2326; +skip2326: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13628);}while(r); +if(!qbevent)break;evnt(14334);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2165; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2165; -skip2165: +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip2327; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_global_vars[",25), 0 , 0 , 0 ); +if (new_error) goto skip2327; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES)), 1 , 0 , 0 ); +if (new_error) goto skip2327; +sub_file_print(tmp_fileno,qbs_new_txt_len("];",2), 0 , 0 , 1 ); +if (new_error) goto skip2327; +skip2327: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13630);}while(r); +if(!qbevent)break;evnt(14335);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip2166; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2166; -skip2166: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2328; +sub_file_print(tmp_fileno,_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST, 0 , 0 , 1 ); +if (new_error) goto skip2328; +skip2328: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13631);}while(r); +if(!qbevent)break;evnt(14336);}while(r); +}else{ do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip2167; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2167; -skip2167: +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2329; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_local_vars[0];",27), 0 , 0 , 1 ); +if (new_error) goto skip2329; +skip2329: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13632);}while(r); +if(!qbevent)break;evnt(14338);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip2168; -sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); -if (new_error) goto skip2168; -skip2168: +tab_fileno=tmp_fileno= 18 ; +if (new_error) goto skip2330; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_global_vars[0];",28), 0 , 0 , 1 ); +if (new_error) goto skip2330; +skip2330: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(13633);}while(r); +if(!qbevent)break;evnt(14339);}while(r); +} do{ -*__INTEGER_CLOSEDMAIN= 1 ; -if(!qbevent)break;evnt(13635);}while(r); +qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14342);}while(r); +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES= 0 ; +if(!qbevent)break;evnt(14343);}while(r); +}else{ +S_16596:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||new_error){ +if(qbevent){evnt(14345);if(r)goto S_16596;} +S_16597:; +if ((-(*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES> 0 ))||new_error){ +if(qbevent){evnt(14346);if(r)goto S_16597;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2331; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_local_vars[",24), 0 , 0 , 0 ); +if (new_error) goto skip2331; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES)), 1 , 0 , 0 ); +if (new_error) goto skip2331; +sub_file_print(tmp_fileno,qbs_new_txt_len("];",2), 0 , 0 , 1 ); +if (new_error) goto skip2331; +skip2331: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14347);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2332; +sub_file_print(tmp_fileno,_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST, 0 , 0 , 1 ); +if (new_error) goto skip2332; +skip2332: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14348);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2333; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_local_vars[0];",27), 0 , 0 , 1 ); +if (new_error) goto skip2333; +skip2333: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14350);}while(r); +} +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2334; +sub_file_print(tmp_fileno,qbs_new_txt_len("void *vwatch_local_vars[0];",27), 0 , 0 , 1 ); +if (new_error) goto skip2334; +skip2334: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14353);}while(r); +} +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14356);}while(r); +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES= 0 ; +if(!qbevent)break;evnt(14357);}while(r); +} +sc_ec_59_end:; +goto sc_2319_end; +} +sc_2319_end:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free9.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -int32 FUNC_COUNTELEMENTS(qbs*_FUNC_COUNTELEMENTS_STRING_A){ +void SUB_VWATCHADDLABEL(int32*_SUB_VWATCHADDLABEL_LONG_THIS,int8*_SUB_VWATCHADDLABEL_BYTE_LASTLINE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -56837,80 +60293,116 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_COUNTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_FUNC_COUNTELEMENTS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13640);}while(r); +if(!qbevent)break;evnt(14363);}while(r); +S_16611:; +if ((-(*_SUB_VWATCHADDLABEL_BYTE_LASTLINE== 0 ))||new_error){ +if(qbevent){evnt(14365);if(r)goto S_16611;} +S_16612:; +while((qbs_cleanup(qbs_tmp_base,-(*_SUB_VWATCHADDLABEL_LONG_THIS>__STRING_VWATCHUSEDLABELS->len)))||new_error){ +if(qbevent){evnt(14366);if(r)goto S_16612;} do{ -*_FUNC_COUNTELEMENTS_LONG_C= 1 ; -if(!qbevent)break;evnt(13641);}while(r); -S_15759:; -fornext_value2171= 1 ; -fornext_finalvalue2171=*_FUNC_COUNTELEMENTS_LONG_N; -fornext_step2171= 1 ; -if (fornext_step2171<0) fornext_step_negative2171=1; else fornext_step_negative2171=0; -if (new_error) goto fornext_error2171; -goto fornext_entrylabel2171; -while(1){ -fornext_value2171=fornext_step2171+(*_FUNC_COUNTELEMENTS_LONG_I); -fornext_entrylabel2171: -*_FUNC_COUNTELEMENTS_LONG_I=fornext_value2171; -if (fornext_step_negative2171){ -if (fornext_value2171fornext_finalvalue2171) break; -} -fornext_error2171:; -if(qbevent){evnt(13642);if(r)goto S_15759;} +S_16619:; +if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVSKIP!=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL))||new_error){ +if(qbevent){evnt(14374);if(r)goto S_16619;} do{ -qbs_set(_FUNC_COUNTELEMENTS_STRING_E,FUNC_GETELEMENT(_FUNC_COUNTELEMENTS_STRING_A,_FUNC_COUNTELEMENTS_LONG_I)); +tqbs=__STRING_VWATCHUSEDSKIPLABELS; if (!new_error){ +tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(14375);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2337; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("VWATCH_SKIPLABEL_",17),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_PREVLABEL)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip2337; +skip2337: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13643);}while(r); -S_15761:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(13644);if(r)goto S_15761;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14376);}while(r); do{ -*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B+ 1 ; -if(!qbevent)break;evnt(13644);}while(r); +*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; +if(!qbevent)break;evnt(14377);}while(r); } -S_15764:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(13645);if(r)goto S_15764;} -do{ -*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B- 1 ; -if(!qbevent)break;evnt(13645);}while(r); } -S_15767:; -if ((-(*_FUNC_COUNTELEMENTS_LONG_B< 0 ))||new_error){ -if(qbevent){evnt(13646);if(r)goto S_15767;} +S_16625:; +if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVLABEL!=*_SUB_VWATCHADDLABEL_LONG_THIS))||new_error){ +if(qbevent){evnt(14381);if(r)goto S_16625;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected ) encountered",24)); +tqbs=__STRING_VWATCHUSEDLABELS; if (!new_error){ +tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_THIS; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(14382);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2338; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("VWATCH_LABEL_",13),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_THIS)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip2338; +skip2338: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13646);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14383);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13646);}while(r); -} -S_15771:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(",",1)))&(-(*_FUNC_COUNTELEMENTS_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(13647);if(r)goto S_15771;} +*_SUB_VWATCHADDLABEL_LONG_PREVLABEL=*_SUB_VWATCHADDLABEL_LONG_THIS; +if(!qbevent)break;evnt(14384);}while(r); do{ -*_FUNC_COUNTELEMENTS_LONG_C=*_FUNC_COUNTELEMENTS_LONG_C+ 1 ; -if(!qbevent)break;evnt(13647);}while(r); +*__LONG_LASTLINENUMBERLABELVWATCH=*_SUB_VWATCHADDLABEL_LONG_THIS; +if(!qbevent)break;evnt(14385);}while(r); } -fornext_continue_2170:; -} -fornext_exit_2170:; +}else{ +S_16632:; +if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVSKIP!=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL))||new_error){ +if(qbevent){evnt(14388);if(r)goto S_16632;} do{ -*_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=*_FUNC_COUNTELEMENTS_LONG_C; -if(!qbevent)break;evnt(13649);}while(r); +tqbs=__STRING_VWATCHUSEDSKIPLABELS; if (!new_error){ +tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(14389);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2339; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("VWATCH_SKIPLABEL_",17),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_PREVLABEL)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip2339; +skip2339: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14390);}while(r); +do{ +*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; +if(!qbevent)break;evnt(14391);}while(r); +} +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free10.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS; } -int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS){ +void SUB_CLOSEMAIN(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -56924,5069 +60416,275 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13674);}while(r); -do{ -*_FUNC_DIM2_LONG_DIM2= 1 ; -if(!qbevent)break;evnt(13675);}while(r); -S_15778:; -if (( 0 )||new_error){ -if(qbevent){evnt(13677);if(r)goto S_15778;} +SUB_XEND(); +if(!qbevent)break;evnt(14397);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2175; -sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0 , 1 , 0 ); -if (new_error) goto skip2175; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1 , 0 , 1 ); -if (new_error) goto skip2175; -skip2175: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13677);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13679);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13680);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_VARNAME,qbs_ucase(_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13681);}while(r); -S_15784:; -if ((-(*__INTEGER_DIMSFARRAY== 1 ))||new_error){ -if(qbevent){evnt(13683);if(r)goto S_15784;} -do{ -*_FUNC_DIM2_LONG_F= 0 ; -if(!qbevent)break;evnt(13683);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_F= 1 ; -if(!qbevent)break;evnt(13683);}while(r); -} -S_15789:; -if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||new_error){ -if(qbevent){evnt(13685);if(r)goto S_15789;} -do{ -*__INTEGER_DEFDATAHANDLE= 18 ; -if(!qbevent)break;evnt(13688);}while(r); -do{ -sub_close( 13 ,1); -if(!qbevent)break;evnt(13689);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13689);}while(r); -do{ -sub_close( 19 ,1); -if(!qbevent)break;evnt(13690);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13690);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13694);}while(r); -S_15797:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||new_error){ -if(qbevent){evnt(13697);if(r)goto S_15797;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13697);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13697);}while(r); -} -S_15801:; -fornext_value2178= 1 ; -fornext_finalvalue2178=*__LONG_LASTTYPE; -fornext_step2178= 1 ; -if (fornext_step2178<0) fornext_step_negative2178=1; else fornext_step_negative2178=0; -if (new_error) goto fornext_error2178; -goto fornext_entrylabel2178; -while(1){ -fornext_value2178=fornext_step2178+(*_FUNC_DIM2_LONG_I); -fornext_entrylabel2178: -*_FUNC_DIM2_LONG_I=fornext_value2178; -if (fornext_step_negative2178){ -if (fornext_value2178fornext_finalvalue2178) break; -} -fornext_error2178:; -if(qbevent){evnt(13701);if(r)goto S_15801;} -S_15802:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ -if(qbevent){evnt(13702);if(r)goto S_15802;} -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13703);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13705);}while(r); -S_15805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13708);if(r)goto S_15805;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(13709);}while(r); -S_15807:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(13710);if(r)goto S_15807;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13711);}while(r); -S_15809:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13712);if(r)goto S_15809;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13712);}while(r); -} -S_15812:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(13713);if(r)goto S_15812;} -S_15813:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(13714);if(r)goto S_15813;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13715);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(13716);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13716);}while(r); -do{ -goto dl_exit_2179; -if(!qbevent)break;evnt(13717);}while(r); -} -S_15819:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(13719);if(r)goto S_15819;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(13719);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13719);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(13719);}while(r); -} -S_15825:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13720);if(r)goto S_15825;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13720);}while(r); -} -dl_continue_2179:; -} -dl_exit_2179:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13723);}while(r); -do{ -*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(13724);}while(r); -S_15832:; -if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(13725);if(r)goto S_15832;} -S_15833:; -if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ -if(qbevent){evnt(13726);if(r)goto S_15833;} -do{ -*_FUNC_DIM2_LONG_BITS=*_FUNC_DIM2_LONG_BITS+ 8 -(*_FUNC_DIM2_LONG_BITS% 8 ); -if(!qbevent)break;evnt(13726);}while(r); -} -} -S_15837:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(13729);if(r)goto S_15837;} -S_15838:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(13731);if(r)goto S_15838;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(13732);}while(r); -S_15840:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(13732);if(r)goto S_15840;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13732);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2181=-(*_FUNC_DIM2_LONG_BITS)),_FUNC_DIM2_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13734);}while(r); -S_15845:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13735);if(r)goto S_15845;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13735);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13736);}while(r); -S_15849:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13737);if(r)goto S_15849;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(13737);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(13738);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(13741);}while(r); -S_15855:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(13742);if(r)goto S_15855;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(13743);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(13744);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(13745);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13747);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; -if(!qbevent)break;evnt(13751);}while(r); -S_15864:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13752);if(r)goto S_15864;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(13752);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13753);}while(r); -S_15868:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(13755);if(r)goto S_15868;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(13755);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(13755);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(13757);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13758);}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(13759);}while(r); -S_15875:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13760);if(r)goto S_15875;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13760);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(13761);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(13765);}while(r); -do{ -*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/ 8 ; -if(!qbevent)break;evnt(13765);}while(r); -S_15882:; -if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ -if(qbevent){evnt(13766);if(r)goto S_15882;} -do{ -*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ; -if(!qbevent)break;evnt(13767);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13769);}while(r); -S_15886:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13770);if(r)goto S_15886;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2182; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2182; -skip2182: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13770);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(13771);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13772);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; -if(!qbevent)break;evnt(13773);}while(r); -S_15892:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13774);if(r)goto S_15892;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(13775);}while(r); -S_15894:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13776);if(r)goto S_15894;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2183; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2183; -skip2183: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13777);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2184; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2184; -skip2184: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13778);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2185; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen- 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13810);}while(r); -S_15929:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||new_error){ -if(qbevent){evnt(13811);if(r)goto S_15929;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected more type information after _UNSIGNED!",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13811);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13811);}while(r); -} -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13814);}while(r); -S_15935:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(13816);if(r)goto S_15935;} -S_15936:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||new_error){ -if(qbevent){evnt(13818);if(r)goto S_15936;} -S_15937:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ -if(qbevent){evnt(13819);if(r)goto S_15937;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13819);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13819);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13821);}while(r); -do{ -*_FUNC_DIM2_LONG_HASHFOUND= 0 ; -if(!qbevent)break;evnt(13824);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13825);}while(r); -do{ -*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(13826);}while(r); -do{ -*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_LONG_HASHCHKFLAGS,_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13827);}while(r); -S_15946:; -while((*_FUNC_DIM2_LONG_HASHRES)||new_error){ -if(qbevent){evnt(13828);if(r)goto S_15946;} -S_15947:; -if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ -if(qbevent){evnt(13829);if(r)goto S_15947;} -S_15948:; -if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ -if(qbevent){evnt(13830);if(r)goto S_15948;} -do{ -*_FUNC_DIM2_LONG_HASHFOUND= 1 ; -if(!qbevent)break;evnt(13831);}while(r); -do{ -goto dl_exit_2201; -if(!qbevent)break;evnt(13832);}while(r); -} -} -S_15953:; -if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(13835);if(r)goto S_15953;} -do{ -*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); -if(!qbevent)break;evnt(13835);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(13835);}while(r); -} -dl_continue_2201:; -} -dl_exit_2201:; -S_15959:; -if ((*_FUNC_DIM2_LONG_HASHFOUND)||new_error){ -if(qbevent){evnt(13837);if(r)goto S_15959;} -do{ -*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF; -if(!qbevent)break;evnt(13838);}while(r); -do{ -*_FUNC_DIM2_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(13839);}while(r); -S_15962:; -if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(13840);if(r)goto S_15962;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13840);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13840);}while(r); -} -S_15966:; -if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(13842);if(r)goto S_15966;} -do{ -*_FUNC_DIM2_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; -if(!qbevent)break;evnt(13843);}while(r); -do{ -*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V); -if(!qbevent)break;evnt(13844);}while(r); -do{ -*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(13845);}while(r); -}else{ -S_15971:; -if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(13847);if(r)goto S_15971;} -do{ -*_FUNC_DIM2_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; -if(!qbevent)break;evnt(13848);}while(r); -do{ -*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V; -if(!qbevent)break;evnt(13849);}while(r); -do{ -*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(13850);}while(r); -}else{ -do{ -*_FUNC_DIM2_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; -if(!qbevent)break;evnt(13852);}while(r); -do{ -*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(13853);}while(r); -do{ -*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(13854);}while(r); -} -} -S_15981:; -if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||new_error){ -if(qbevent){evnt(13857);if(r)goto S_15981;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13857);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13857);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(13858);}while(r); -do{ -goto LABEL_CONSTANTLENSTR; -if(!qbevent)break;evnt(13859);}while(r); -} -S_15988:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ -if(qbevent){evnt(13862);if(r)goto S_15988;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13862);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13862);}while(r); -} -S_15992:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||new_error){ -if(qbevent){evnt(13863);if(r)goto S_15992;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13863);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13863);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BYTES=qbr(func_val(_FUNC_DIM2_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13864);}while(r); -S_15997:; -if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||new_error){ -if(qbevent){evnt(13865);if(r)goto S_15997;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a fixed string of length 0",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13865);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13865);}while(r); -} -LABEL_CONSTANTLENSTR:; -if(qbevent){evnt(13866);r=0;} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13867);}while(r); -S_16002:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13870);if(r)goto S_16002;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(13871);}while(r); -S_16004:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(13872);if(r)goto S_16004;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13873);}while(r); -S_16006:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13874);if(r)goto S_16006;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13874);}while(r); -} -S_16009:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(13875);if(r)goto S_16009;} -S_16010:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(13876);if(r)goto S_16010;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13877);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(13878);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13878);}while(r); -do{ -goto dl_exit_2203; -if(!qbevent)break;evnt(13879);}while(r); -} -S_16016:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(13881);if(r)goto S_16016;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(13881);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13881);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(13881);}while(r); -} -S_16022:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13882);if(r)goto S_16022;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13882);}while(r); -} -dl_continue_2203:; -} -dl_exit_2203:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13885);}while(r); -S_16028:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(13891);if(r)goto S_16028;} -S_16029:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(13893);if(r)goto S_16029;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(13894);}while(r); -S_16031:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(13894);if(r)goto S_16031;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13894);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2205= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13896);}while(r); -S_16036:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13897);if(r)goto S_16036;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13897);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13898);}while(r); -S_16040:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13899);if(r)goto S_16040;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(13899);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(13900);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(13903);}while(r); -S_16046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(13904);if(r)goto S_16046;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(13905);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(13906);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(13907);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13909);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(13913);}while(r); -S_16055:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13914);if(r)goto S_16055;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(13914);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13915);}while(r); -S_16059:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(13916);if(r)goto S_16059;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(13916);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(13916);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(13918);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13919);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; -if(!qbevent)break;evnt(13920);}while(r); -S_16066:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(13921);if(r)goto S_16066;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13922);}while(r); -} -S_16069:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(13924);if(r)goto S_16069;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13925);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(13927);}while(r); -S_16073:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13928);if(r)goto S_16073;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13928);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(13929);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13933);}while(r); -S_16079:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13934);if(r)goto S_16079;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2206; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2206; -skip2206: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13934);}while(r); -} -S_16082:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13935);if(r)goto S_16082;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2207; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2207; -skip2207: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13935);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(13936);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13937);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(13938);}while(r); -S_16088:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13939);if(r)goto S_16088;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(13940);}while(r); -S_16090:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13941);if(r)goto S_16090;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2208; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2208; -skip2208: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13941);}while(r); -} -S_16093:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13942);if(r)goto S_16093;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2209; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2209; -skip2209: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13942);}while(r); -} -S_16096:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13943);if(r)goto S_16096;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2210; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2212; -skip2212: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13945);}while(r); -} -S_16105:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13946);if(r)goto S_16105;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2213; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2213; -skip2213: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13946);}while(r); -} -}else{ -S_16109:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13948);if(r)goto S_16109;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2214; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2214; -skip2214: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13948);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_O,qbs_add(qbs_add(qbs_new_txt_len("(uint8*)mem_static_malloc(",26),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13949);}while(r); -S_16113:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13950);if(r)goto S_16113;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2215; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed(",15)),_FUNC_DIM2_STRING_O),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); -if (new_error) goto skip2215; -skip2215: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13950);}while(r); -} -S_16116:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13951);if(r)goto S_16116;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2216; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2216; -skip2216: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13951);}while(r); -} -S_16119:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(13952);if(r)goto S_16119;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2217; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip2217; -skip2217: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13952);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; -if(!qbevent)break;evnt(13954);}while(r); -S_16124:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(13955);if(r)goto S_16124;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13956);}while(r); -} -S_16127:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(13958);if(r)goto S_16127;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13959);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(13961);}while(r); -S_16131:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13962);if(r)goto S_16131;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13962);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(13963);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("STRING_",7),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13967);}while(r); -S_16137:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13970);if(r)goto S_16137;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(13971);}while(r); -S_16139:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(13972);if(r)goto S_16139;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13973);}while(r); -S_16141:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13974);if(r)goto S_16141;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13974);}while(r); -} -S_16144:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(13975);if(r)goto S_16144;} -S_16145:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(13976);if(r)goto S_16145;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13977);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(13978);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13978);}while(r); -do{ -goto dl_exit_2218; -if(!qbevent)break;evnt(13979);}while(r); -} -S_16151:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(13981);if(r)goto S_16151;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(13981);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13981);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(13981);}while(r); -} -S_16157:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13982);if(r)goto S_16157;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13982);}while(r); -} -dl_continue_2218:; -} -dl_exit_2218:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13985);}while(r); -S_16163:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(13991);if(r)goto S_16163;} -S_16164:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(13993);if(r)goto S_16164;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(13994);}while(r); -S_16166:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(13994);if(r)goto S_16166;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13994);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2220= -2147483647 ),&(pass2221= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13996);}while(r); -S_16171:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13997);if(r)goto S_16171;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13997);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13998);}while(r); -S_16175:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13999);if(r)goto S_16175;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(13999);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14000);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14003);}while(r); -S_16181:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14004);if(r)goto S_16181;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14005);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14006);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14007);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14009);}while(r); -} -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14013);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(14014);}while(r); -S_16191:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14015);if(r)goto S_16191;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14015);}while(r); -} -S_16194:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14016);if(r)goto S_16194;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14016);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14016);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14018);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14019);}while(r); -S_16200:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14020);if(r)goto S_16200;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14021);}while(r); -} -S_16203:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14023);if(r)goto S_16203;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14024);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14026);}while(r); -S_16207:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14027);if(r)goto S_16207;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14027);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14028);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14032);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14033);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14034);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(14035);}while(r); -S_16216:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14036);if(r)goto S_16216;} -S_16217:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14037);if(r)goto S_16217;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2222; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2222; -skip2222: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14037);}while(r); -} -S_16220:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14038);if(r)goto S_16220;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2223; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new_cmem(0,0);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2223; -skip2223: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14038);}while(r); -} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14039);}while(r); -}else{ -S_16225:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14041);if(r)goto S_16225;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2224; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2224; -skip2224: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14041);}while(r); -} -S_16228:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14042);if(r)goto S_16228;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2225; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new(0,0);",14)), 0 , 0 , 1 ); -if (new_error) goto skip2225; -skip2225: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14042);}while(r); -} -} -S_16232:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14044);if(r)goto S_16232;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 19 ; -if (new_error) goto skip2226; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2226; -skip2226: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14044);}while(r); -} -S_16235:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14045);if(r)goto S_16235;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14046);}while(r); -} -S_16238:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14048);if(r)goto S_16238;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14049);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14051);}while(r); -S_16242:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14052);if(r)goto S_16242;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14052);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14053);}while(r); -} -S_16247:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4))))||new_error){ -if(qbevent){evnt(14056);if(r)goto S_16247;} -S_16248:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 4 )))||new_error){ -if(qbevent){evnt(14057);if(r)goto S_16248;} -S_16249:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7))))||new_error){ -if(qbevent){evnt(14058);if(r)goto S_16249;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14058);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14058);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14059);}while(r); -S_16254:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ -if(qbevent){evnt(14060);if(r)goto S_16254;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14060);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14060);}while(r); -} -S_16258:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||new_error){ -if(qbevent){evnt(14061);if(r)goto S_16258;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14061);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14061);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BITS=qbr(func_val(_FUNC_DIM2_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14062);}while(r); -S_16263:; -if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||new_error){ -if(qbevent){evnt(14063);if(r)goto S_16263;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size 0 bits",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14063);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14063);}while(r); -} -S_16267:; -if ((-(*_FUNC_DIM2_LONG_BITS> 57 ))||new_error){ -if(qbevent){evnt(14064);if(r)goto S_16267;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 24 bits",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14064);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14064);}while(r); -} -}else{ -do{ -*_FUNC_DIM2_LONG_BITS= 1 ; -if(!qbevent)break;evnt(14066);}while(r); -} -S_16274:; -if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||new_error){ -if(qbevent){evnt(14068);if(r)goto S_16274;} -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14068);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14068);}while(r); -} -S_16279:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14069);if(r)goto S_16279;} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14069);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14069);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_DIM2_LONG_BITS)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14070);}while(r); -S_16284:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14073);if(r)goto S_16284;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(14074);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14075);}while(r); -S_16287:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14075);if(r)goto S_16287;} -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14075);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14076);}while(r); -S_16291:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14077);if(r)goto S_16291;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14078);}while(r); -S_16293:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14079);if(r)goto S_16293;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14079);}while(r); -} -S_16296:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(14080);if(r)goto S_16296;} -S_16297:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(14081);if(r)goto S_16297;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14082);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(14083);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14083);}while(r); -do{ -goto dl_exit_2230; -if(!qbevent)break;evnt(14084);}while(r); -} -S_16303:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14086);if(r)goto S_16303;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(14086);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14086);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14086);}while(r); -} -S_16309:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14087);if(r)goto S_16309;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14087);}while(r); -} -dl_continue_2230:; -} -dl_exit_2230:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14090);}while(r); -S_16315:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14096);if(r)goto S_16315;} -S_16316:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14098);if(r)goto S_16316;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14099);}while(r); -S_16318:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14099);if(r)goto S_16318;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14099);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2232=-(*_FUNC_DIM2_LONG_BITS)),&(pass2233= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14101);}while(r); -S_16323:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14102);if(r)goto S_16323;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14102);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14103);}while(r); -S_16327:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14104);if(r)goto S_16327;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14104);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14105);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14108);}while(r); -S_16333:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14109);if(r)goto S_16333;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14110);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14111);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14112);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14114);}while(r); -} -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14118);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS; -if(!qbevent)break;evnt(14119);}while(r); -S_16343:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14120);if(r)goto S_16343;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14120);}while(r); -} -S_16346:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14121);if(r)goto S_16346;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14121);}while(r); -} -S_16349:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14122);if(r)goto S_16349;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14122);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14122);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14124);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14125);}while(r); -S_16355:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14126);if(r)goto S_16355;} -S_16356:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14127);if(r)goto S_16356;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14127);}while(r); -}else{ -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14127);}while(r); -} -} -S_16362:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14129);if(r)goto S_16362;} -S_16363:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14130);if(r)goto S_16363;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14130);}while(r); -}else{ -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14130);}while(r); -} -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14132);}while(r); -S_16370:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14133);if(r)goto S_16370;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14133);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14134);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14137);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2234; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2234; -skip2234: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14138);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2235; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2235; -skip2235: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14139);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2236; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); -if (new_error) goto skip2236; -skip2236: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14140);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2237; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14189);if(r)goto S_16448;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14190);}while(r); -S_16450:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14190);if(r)goto S_16450;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14190);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2243= 1 ),&(pass2244= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14192);}while(r); -S_16455:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14193);if(r)goto S_16455;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14193);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14194);}while(r); -S_16459:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14195);if(r)goto S_16459;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14195);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14196);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14199);}while(r); -S_16465:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14200);if(r)goto S_16465;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14201);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14202);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14203);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14205);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(14209);}while(r); -S_16474:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14209);if(r)goto S_16474;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14209);}while(r); -} -S_16477:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14210);if(r)goto S_16477;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14210);}while(r); -} -S_16480:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14211);if(r)goto S_16480;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14211);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14211);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14213);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14214);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14216);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14217);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(14218);}while(r); -S_16490:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14218);if(r)goto S_16490;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14218);}while(r); -} -S_16493:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14219);if(r)goto S_16493;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2245; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2245; -skip2245: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14219);}while(r); -} -S_16496:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14220);if(r)goto S_16496;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2246; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2246; -skip2246: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14220);}while(r); -} -S_16499:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14221);if(r)goto S_16499;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14222);}while(r); -S_16501:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14223);if(r)goto S_16501;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2247; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=1;",11), 0 , 0 , 1 ); -if (new_error) goto skip2247; -skip2247: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14223);}while(r); -} -S_16504:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14224);if(r)goto S_16504;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2248; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2248; -skip2248: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14224);}while(r); -} -S_16507:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14225);if(r)goto S_16507;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2249; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14270);if(r)goto S_16582;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14271);}while(r); -S_16584:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14271);if(r)goto S_16584;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14271);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2255= 2 ),&(pass2256= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14273);}while(r); -S_16589:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14274);if(r)goto S_16589;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14274);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14275);}while(r); -S_16593:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14276);if(r)goto S_16593;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14276);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14277);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14280);}while(r); -S_16599:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14281);if(r)goto S_16599;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14282);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14283);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14284);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14286);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(14291);}while(r); -S_16608:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14291);if(r)goto S_16608;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14291);}while(r); -} -S_16611:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14292);if(r)goto S_16611;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14292);}while(r); -} -S_16614:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14293);if(r)goto S_16614;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14293);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14293);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14295);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14296);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14298);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14299);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(14300);}while(r); -S_16624:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14300);if(r)goto S_16624;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14300);}while(r); -} -S_16627:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14301);if(r)goto S_16627;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2257; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2257; -skip2257: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14301);}while(r); -} -S_16630:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14302);if(r)goto S_16630;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2258; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2258; -skip2258: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14302);}while(r); -} -S_16633:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14303);if(r)goto S_16633;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14304);}while(r); -S_16635:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14305);if(r)goto S_16635;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2259; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=2;",11), 0 , 0 , 1 ); -if (new_error) goto skip2259; -skip2259: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14305);}while(r); -} -S_16638:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14306);if(r)goto S_16638;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2260; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2260; -skip2260: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14306);}while(r); -} -S_16641:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14307);if(r)goto S_16641;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2261; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14358);if(r)goto S_16716;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14359);}while(r); -S_16718:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14359);if(r)goto S_16718;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14359);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2267=*__LONG_OS_BITS/ 8 ),&(pass2268= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14361);}while(r); -S_16723:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14362);if(r)goto S_16723;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14362);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14363);}while(r); -S_16727:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14364);if(r)goto S_16727;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14364);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14365);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14368);}while(r); -S_16733:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14369);if(r)goto S_16733;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14370);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14371);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14372);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14374);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(14378);}while(r); -S_16742:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14378);if(r)goto S_16742;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14378);}while(r); -} -S_16745:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14379);if(r)goto S_16745;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14379);}while(r); -} -S_16748:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14380);if(r)goto S_16748;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14380);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14380);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14382);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14383);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14385);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14386);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(14387);}while(r); -S_16758:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14387);if(r)goto S_16758;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14387);}while(r); -} -S_16761:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14388);if(r)goto S_16761;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2269; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2269; -skip2269: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14388);}while(r); -} -S_16764:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14389);if(r)goto S_16764;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2270; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2270; -skip2270: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14389);}while(r); -} -S_16767:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14390);if(r)goto S_16767;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14391);}while(r); -S_16769:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14392);if(r)goto S_16769;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2271; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(&(pass2272=*__LONG_OS_BITS/ 8 ))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2271; -skip2271: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14392);}while(r); -} -S_16772:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14393);if(r)goto S_16772;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2273; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2273; -skip2273: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14393);}while(r); -} -S_16775:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14394);if(r)goto S_16775;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2274; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_sp 0 )))||new_error){ +if(qbevent){evnt(14401);if(r)goto S_16640;} do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2341; +sub_file_print(tmp_fileno,qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20), 0 , 0 , 1 ); +if (new_error) goto skip2341; +skip2341: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14401);}while(r); -S_16791:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14402);if(r)goto S_16791;} -S_16792:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14403);if(r)goto S_16792;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14402);}while(r); do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("~%&",3)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2342; +sub_file_print(tmp_fileno,qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30), 0 , 0 , 1 ); +if (new_error) goto skip2342; +skip2342: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14403);}while(r); +S_16643:; +fornext_value2344=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue2344=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step2344= 1 ; +if (fornext_step2344<0) fornext_step_negative2344=1; else fornext_step_negative2344=0; +if (new_error) goto fornext_error2344; +goto fornext_entrylabel2344; +while(1){ +fornext_value2344=fornext_step2344+(*_SUB_CLOSEMAIN_LONG_I); +fornext_entrylabel2344: +*_SUB_CLOSEMAIN_LONG_I=fornext_value2344; +if (fornext_step_negative2344){ +if (fornext_value2344fornext_finalvalue2344) break; } -} -S_16798:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14405);if(r)goto S_16798;} -S_16799:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14406);if(r)goto S_16799;} +fornext_error2344:; +if(qbevent){evnt(14404);if(r)goto S_16643;} +S_16644:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*_SUB_CLOSEMAIN_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(14405);if(r)goto S_16644;} do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("~%&",3)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2345; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" case ",9),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip2345; +skip2345: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14406);}while(r); -}else{ do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("%&",2)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2346; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_LABEL_",26),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2346; +skip2346: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14406);}while(r); -} -} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14407);}while(r); do{ -SUB_REGID(); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2347; +sub_file_print(tmp_fileno,qbs_new_txt_len(" break;",14), 0 , 0 , 1 ); +if (new_error) goto skip2347; +skip2347: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14408);}while(r); -S_16806:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14409);if(r)goto S_16806;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14409);}while(r); } -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14410);}while(r); +fornext_continue_2343:; } -S_16811:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("LONG",4))))||new_error){ -if(qbevent){evnt(14413);if(r)goto S_16811;} +fornext_exit_2343:; do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2348; +sub_file_print(tmp_fileno,qbs_new_txt_len(" default:",12), 0 , 0 , 1 ); +if (new_error) goto skip2348; +skip2348: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14411);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2349; +sub_file_print(tmp_fileno,qbs_new_txt_len(" *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54), 0 , 0 , 1 ); +if (new_error) goto skip2349; +skip2349: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14412);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2350; +sub_file_print(tmp_fileno,qbs_new_txt_len(" goto VWATCH_SETNEXTLINE;",32), 0 , 0 , 1 ); +if (new_error) goto skip2350; +skip2350: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14413);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2351; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2351; +skip2351: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14414);}while(r); -S_16813:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14415);if(r)goto S_16813;} do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14415);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14415);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("LONG_",5)),_FUNC_DIM2_STRING_VARNAME)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2352; +sub_file_print(tmp_fileno,qbs_new_txt_len("VWATCH_SKIPLINE:;",17), 0 , 0 , 1 ); +if (new_error) goto skip2352; +skip2352: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14416);}while(r); -S_16818:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14417);if(r)goto S_16818;} do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(14418);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2353; +sub_file_print(tmp_fileno,qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30), 0 , 0 , 1 ); +if (new_error) goto skip2353; +skip2353: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14419);}while(r); -S_16821:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14419);if(r)goto S_16821;} -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14419);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14417);}while(r); +S_16656:; +fornext_value2355=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue2355=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step2355= 1 ; +if (fornext_step2355<0) fornext_step_negative2355=1; else fornext_step_negative2355=0; +if (new_error) goto fornext_error2355; +goto fornext_entrylabel2355; +while(1){ +fornext_value2355=fornext_step2355+(*_SUB_CLOSEMAIN_LONG_I); +fornext_entrylabel2355: +*_SUB_CLOSEMAIN_LONG_I=fornext_value2355; +if (fornext_step_negative2355){ +if (fornext_value2355fornext_finalvalue2355) break; } +fornext_error2355:; +if(qbevent){evnt(14418);if(r)goto S_16656;} +S_16657:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*_SUB_CLOSEMAIN_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(14419);if(r)goto S_16657;} do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("&",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2356; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" case -",10),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip2356; +skip2356: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14420);}while(r); -S_16825:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14421);if(r)goto S_16825;} do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2357; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_SKIPLABEL_",30),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2357; +skip2357: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14421);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2358; +sub_file_print(tmp_fileno,qbs_new_txt_len(" break;",14), 0 , 0 , 1 ); +if (new_error) goto skip2358; +skip2358: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14422);}while(r); -S_16827:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14423);if(r)goto S_16827;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14423);}while(r); } -S_16830:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(14424);if(r)goto S_16830;} -S_16831:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(14425);if(r)goto S_16831;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14426);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(14427);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14427);}while(r); -do{ -goto dl_exit_2279; -if(!qbevent)break;evnt(14428);}while(r); +fornext_continue_2354:; } -S_16837:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14430);if(r)goto S_16837;} +fornext_exit_2354:; do{ -*__INTEGER_FINDANOTHERID= 1 ; +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2359; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2359; +skip2359: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14425);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2360; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2360; +skip2360: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14429);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip2361; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2361; +skip2361: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; if(!qbevent)break;evnt(14430);}while(r); do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip2362; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2362; +skip2362: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14430);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14430);}while(r); -} -S_16843:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14431);if(r)goto S_16843;} -do{ -goto exit_subfunc; +tab_spc_cr_size=1; if(!qbevent)break;evnt(14431);}while(r); -} -dl_continue_2279:; -} -dl_exit_2279:; -} do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip2363; +sub_file_print(tmp_fileno,qbs_new_txt_len("error(3);",9), 0 , 0 , 1 ); +if (new_error) goto skip2363; +skip2363: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14432);}while(r); +do{ +*__INTEGER_CLOSEDMAIN= 1 ; if(!qbevent)break;evnt(14434);}while(r); -S_16849:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14440);if(r)goto S_16849;} -S_16850:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14442);if(r)goto S_16850;} do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14443);}while(r); -S_16852:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14443);if(r)goto S_16852;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14443);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2281= 4 ),&(pass2282= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14445);}while(r); -S_16857:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14446);if(r)goto S_16857;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14446);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14447);}while(r); -S_16861:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14448);if(r)goto S_16861;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14448);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14449);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14452);}while(r); -S_16867:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14453);if(r)goto S_16867;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14454);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14455);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14456);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14458);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(14462);}while(r); -S_16876:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14462);if(r)goto S_16876;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14462);}while(r); -} -S_16879:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14463);if(r)goto S_16879;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14463);}while(r); -} -S_16882:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14464);if(r)goto S_16882;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14464);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14464);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14466);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14467);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14469);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14470);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(14471);}while(r); -S_16892:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14471);if(r)goto S_16892;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14471);}while(r); -} -S_16895:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14472);if(r)goto S_16895;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2283; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2283; -skip2283: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14472);}while(r); -} -S_16898:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14473);if(r)goto S_16898;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2284; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2284; -skip2284: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14473);}while(r); -} -S_16901:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14474);if(r)goto S_16901;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14475);}while(r); -S_16903:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14476);if(r)goto S_16903;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2285; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); -if (new_error) goto skip2285; -skip2285: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14476);}while(r); -} -S_16906:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14477);if(r)goto S_16906;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2286; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2286; -skip2286: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14477);}while(r); -} -S_16909:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14478);if(r)goto S_16909;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2287; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14526);if(r)goto S_16984;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14527);}while(r); -S_16986:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14527);if(r)goto S_16986;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14527);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2293= 8 ),&(pass2294= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14529);}while(r); -S_16991:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14530);if(r)goto S_16991;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14530);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14531);}while(r); -S_16995:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14532);if(r)goto S_16995;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14532);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14533);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14536);}while(r); -S_17001:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14537);if(r)goto S_17001;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14538);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14539);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14540);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14542);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(14546);}while(r); -S_17010:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14546);if(r)goto S_17010;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14546);}while(r); -} -S_17013:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14547);if(r)goto S_17013;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14547);}while(r); -} -S_17016:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14548);if(r)goto S_17016;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14548);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14548);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14550);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14551);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14553);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14554);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(14555);}while(r); -S_17026:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14555);if(r)goto S_17026;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14555);}while(r); -} -S_17029:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14556);if(r)goto S_17029;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2295; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2295; -skip2295: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14556);}while(r); -} -S_17032:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14557);if(r)goto S_17032;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2296; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2296; -skip2296: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14557);}while(r); -} -S_17035:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14558);if(r)goto S_17035;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14559);}while(r); -S_17037:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14560);if(r)goto S_17037;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2297; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); -if (new_error) goto skip2297; -skip2297: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14560);}while(r); -} -S_17040:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14561);if(r)goto S_17040;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2298; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2298; -skip2298: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14561);}while(r); -} -S_17043:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14562);if(r)goto S_17043;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2299; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14610);if(r)goto S_17114;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14611);}while(r); -S_17116:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14611);if(r)goto S_17116;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14611);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2305= 4 ),&(pass2306= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14613);}while(r); -S_17121:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14614);if(r)goto S_17121;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14614);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14615);}while(r); -S_17125:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14616);if(r)goto S_17125;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14616);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14617);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14620);}while(r); -S_17131:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14621);if(r)goto S_17131;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14622);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14623);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14624);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14626);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(14630);}while(r); -S_17140:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14631);if(r)goto S_17140;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14631);}while(r); -} -S_17143:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14632);if(r)goto S_17143;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14632);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14632);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14634);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14635);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14637);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14638);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(14639);}while(r); -S_17153:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14640);if(r)goto S_17153;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2307; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2307; -skip2307: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14640);}while(r); -} -S_17156:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14641);if(r)goto S_17156;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2308; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2308; -skip2308: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14641);}while(r); -} -S_17159:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14642);if(r)goto S_17159;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14643);}while(r); -S_17161:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14644);if(r)goto S_17161;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2309; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); -if (new_error) goto skip2309; -skip2309: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14644);}while(r); -} -S_17164:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14645);if(r)goto S_17164;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2310; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2310; -skip2310: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14645);}while(r); -} -S_17167:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14646);if(r)goto S_17167;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2311; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14692);if(r)goto S_17226;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14693);}while(r); -S_17228:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14693);if(r)goto S_17228;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14693);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2317= 8 ),&(pass2318= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14695);}while(r); -S_17233:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14696);if(r)goto S_17233;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14696);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14697);}while(r); -S_17237:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14698);if(r)goto S_17237;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14698);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14699);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14702);}while(r); -S_17243:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14703);if(r)goto S_17243;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14704);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14705);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14706);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14708);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(14712);}while(r); -S_17252:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14713);if(r)goto S_17252;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14713);}while(r); -} -S_17255:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14714);if(r)goto S_17255;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14714);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14714);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14716);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14717);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14719);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14720);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(14721);}while(r); -S_17265:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14722);if(r)goto S_17265;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2319; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2319; -skip2319: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14722);}while(r); -} -S_17268:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14723);if(r)goto S_17268;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2320; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2320; -skip2320: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14723);}while(r); -} -S_17271:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14724);if(r)goto S_17271;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14725);}while(r); -S_17273:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14726);if(r)goto S_17273;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2321; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); -if (new_error) goto skip2321; -skip2321: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14726);}while(r); -} -S_17276:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14727);if(r)goto S_17276;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2322; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2322; -skip2322: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14727);}while(r); -} -S_17279:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14728);if(r)goto S_17279;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2323; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14774);if(r)goto S_17338;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14775);}while(r); -S_17340:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14775);if(r)goto S_17340;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14775);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2329= 32 ),&(pass2330= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14777);}while(r); -S_17345:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14778);if(r)goto S_17345;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14778);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14779);}while(r); -S_17349:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14780);if(r)goto S_17349;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14780);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14781);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14784);}while(r); -S_17355:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14785);if(r)goto S_17355;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14786);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14787);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14788);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14790);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(14794);}while(r); -S_17364:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14795);if(r)goto S_17364;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14795);}while(r); -} -S_17367:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14796);if(r)goto S_17367;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14796);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14796);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14798);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14799);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14801);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14802);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(14803);}while(r); -S_17377:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14804);if(r)goto S_17377;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2331; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2331; -skip2331: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14804);}while(r); -} -S_17380:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14805);if(r)goto S_17380;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2332; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2332; -skip2332: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14805);}while(r); -} -S_17383:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14806);if(r)goto S_17383;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14807);}while(r); -S_17385:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14808);if(r)goto S_17385;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2333; -sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=32;",12), 0 , 0 , 1 ); -if (new_error) goto skip2333; -skip2333: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14808);}while(r); -} -S_17388:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14809);if(r)goto S_17388;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2334; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2334; -skip2334: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14809);}while(r); -} -S_17391:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14810);if(r)goto S_17391;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2335; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_sp=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_DIM2_LONG_DIM2; } -qbs* FUNC_UDTREFERENCE(qbs*_FUNC_UDTREFERENCE_STRING_O,qbs*_FUNC_UDTREFERENCE_STRING_A,int32*_FUNC_UDTREFERENCE_LONG_TYP){ +int32 FUNC_COUNTELEMENTS(qbs*_FUNC_COUNTELEMENTS_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -62000,312 +60698,80 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_OBAK,_FUNC_UDTREFERENCE_STRING_O); +*_FUNC_COUNTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_FUNC_COUNTELEMENTS_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14859);}while(r); +if(!qbevent)break;evnt(14439);}while(r); do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(FUNC_STR2(__LONG_CURRENTID),__STRING1_SP3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14864);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_O= 0 ; -if(!qbevent)break;evnt(14867);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_INCMEM= 0 ; -if(!qbevent)break;evnt(14869);}while(r); -S_17441:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(14870);if(r)goto S_17441;} -do{ -*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(536))& 511 ; -if(!qbevent)break;evnt(14871);}while(r); -S_17443:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(14872);if(r)goto S_17443;} -do{ -*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; -if(!qbevent)break;evnt(14872);}while(r); -} +*_FUNC_COUNTELEMENTS_LONG_C= 1 ; +if(!qbevent)break;evnt(14440);}while(r); +S_16673:; +fornext_value2366= 1 ; +fornext_finalvalue2366=*_FUNC_COUNTELEMENTS_LONG_N; +fornext_step2366= 1 ; +if (fornext_step2366<0) fornext_step_negative2366=1; else fornext_step_negative2366=0; +if (new_error) goto fornext_error2366; +goto fornext_entrylabel2366; +while(1){ +fornext_value2366=fornext_step2366+(*_FUNC_COUNTELEMENTS_LONG_I); +fornext_entrylabel2366: +*_FUNC_COUNTELEMENTS_LONG_I=fornext_value2366; +if (fornext_step_negative2366){ +if (fornext_value2366fornext_finalvalue2366) break; } +fornext_error2366:; +if(qbevent){evnt(14441);if(r)goto S_16673;} do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(14877);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTREFERENCE_STRING_A); +qbs_set(_FUNC_COUNTELEMENTS_STRING_E,FUNC_GETELEMENT(_FUNC_COUNTELEMENTS_STRING_A,_FUNC_COUNTELEMENTS_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14879);}while(r); -S_17454:; -if ((-(*_FUNC_UDTREFERENCE_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(14880);if(r)goto S_17454;} +if(!qbevent)break;evnt(14442);}while(r); +S_16675:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(14443);if(r)goto S_16675;} do{ -goto LABEL_FULLUDT; -if(!qbevent)break;evnt(14880);}while(r); +*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B+ 1 ; +if(!qbevent)break;evnt(14443);}while(r); } +S_16678:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(14444);if(r)goto S_16678;} do{ -*_FUNC_UDTREFERENCE_LONG_I= 1 ; -if(!qbevent)break;evnt(14882);}while(r); -LABEL_UDTFINDELENEXT:; -if(qbevent){evnt(14883);r=0;} -S_17458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(14884);if(r)goto S_17458;} +*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B- 1 ; +if(!qbevent)break;evnt(14444);}while(r); +} +S_16681:; +if ((-(*_FUNC_COUNTELEMENTS_LONG_B< 0 ))||new_error){ +if(qbevent){evnt(14445);if(r)goto S_16681;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected .",10)); +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected ) encountered",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14884);}while(r); +if(!qbevent)break;evnt(14445);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(14884);}while(r); +if(!qbevent)break;evnt(14445);}while(r); } +S_16685:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(",",1)))&(-(*_FUNC_COUNTELEMENTS_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(14446);if(r)goto S_16685;} do{ -*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; -if(!qbevent)break;evnt(14885);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_N,FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14886);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_NSYM,FUNC_REMOVESYMBOL(_FUNC_UDTREFERENCE_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14887);}while(r); -S_17465:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ -if(qbevent){evnt(14887);if(r)goto S_17465;} -do{ -*_FUNC_UDTREFERENCE_LONG_NTYP=FUNC_TYPNAME2TYP(_FUNC_UDTREFERENCE_STRING_NSYM); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14887);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_NTYPSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(14887);}while(r); +*_FUNC_COUNTELEMENTS_LONG_C=*_FUNC_COUNTELEMENTS_LONG_C+ 1 ; +if(!qbevent)break;evnt(14446);}while(r); } -S_17469:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14888);if(r)goto S_17469;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14888);}while(r); +fornext_continue_2365:; } -S_17472:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14890);if(r)goto S_17472;} +fornext_exit_2365:; do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected .elementname",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14890);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14890);}while(r); -} -LABEL_UDTFINDELE:; -if(qbevent){evnt(14891);r=0;} -S_17476:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(14892);if(r)goto S_17476;} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_U)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(14892);}while(r); -}else{ -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(14892);}while(r); -} -S_17481:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(14893);if(r)goto S_17481;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14893);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14893);}while(r); -} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_N2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14894);}while(r); -S_17486:; -if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_E)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(14895);if(r)goto S_17486;} -S_17487:; -if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ -if(qbevent){evnt(14896);if(r)goto S_17487;} -do{ -*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+( 8 -(*_FUNC_UDTREFERENCE_LONG_O% 8 )); -if(!qbevent)break;evnt(14896);}while(r); -} -} -S_17491:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_N,_FUNC_UDTREFERENCE_STRING_N2)))||new_error){ -if(qbevent){evnt(14899);if(r)goto S_17491;} -do{ -*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; -if(!qbevent)break;evnt(14901);}while(r); -do{ -goto LABEL_UDTFINDELE; -if(!qbevent)break;evnt(14902);}while(r); -} -S_17495:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ -if(qbevent){evnt(14906);if(r)goto S_17495;} -S_17496:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(14908);if(r)goto S_17496;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol after user defined type",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14908);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14908);}while(r); -} -S_17500:; -if (((-(*_FUNC_UDTREFERENCE_LONG_NTYP!=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]))|(-(*_FUNC_UDTREFERENCE_LONG_NTYPSIZE!=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))||new_error){ -if(qbevent){evnt(14909);if(r)goto S_17500;} -S_17501:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_UDTREFERENCE_STRING_NSYM,qbs_new_txt_len("$",1)))&((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 )))))||new_error){ -if(qbevent){evnt(14910);if(r)goto S_17501;} -do{ -goto LABEL_CORRECTSYMBOL; -if(!qbevent)break;evnt(14910);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect symbol after element name",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14911);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14911);}while(r); -} -} -LABEL_CORRECTSYMBOL:; -if(qbevent){evnt(14914);r=0;} -S_17508:; -if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||new_error){ -if(qbevent){evnt(14917);if(r)goto S_17508;} -S_17509:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(14918);if(r)goto S_17509;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected user defined type",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14918);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14918);}while(r); -} -do{ -*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; -if(!qbevent)break;evnt(14919);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(14920);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; -if(!qbevent)break;evnt(14921);}while(r); -do{ -goto LABEL_UDTFINDELENEXT; -if(!qbevent)break;evnt(14922);}while(r); -} -S_17518:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(14926);if(r)goto S_17518;} -do{ -*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; -if(!qbevent)break;evnt(14927);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(14928);}while(r); -} -LABEL_FULLUDT:; -if(qbevent){evnt(14931);r=0;} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_R,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_U)),__STRING1_SP3),FUNC_STR2(__LONG_E)),__STRING1_SP3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14933);}while(r); -S_17523:; -if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ -if(qbevent){evnt(14935);if(r)goto S_17523;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("QB64 cannot handle bit offsets within user defined types yet",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14935);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14935);}while(r); -} -do{ -*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O/ 8 ; -if(!qbevent)break;evnt(14936);}while(r); -S_17528:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14938);if(r)goto S_17528;} -S_17529:; -if ((-(*_FUNC_UDTREFERENCE_LONG_O!= 0 ))||new_error){ -if(qbevent){evnt(14939);if(r)goto S_17529;} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("+",1)),FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14940);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_O,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14943);}while(r); -} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(_FUNC_UDTREFERENCE_STRING_R,_FUNC_UDTREFERENCE_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14946);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14948);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]+*__LONG_ISUDT+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(14949);}while(r); -S_17538:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(14952);if(r)goto S_17538;} -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_U+*__LONG_ISUDT+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(14953);}while(r); -} -S_17541:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_OBAK,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14956);if(r)goto S_17541;} -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISARRAY; -if(!qbevent)break;evnt(14956);}while(r); -} -S_17544:; -if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||new_error){ -if(qbevent){evnt(14957);if(r)goto S_17544;} -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14957);}while(r); -} +*_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=*_FUNC_COUNTELEMENTS_LONG_C; +if(!qbevent)break;evnt(14448);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free12.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE);return _FUNC_UDTREFERENCE_STRING_UDTREFERENCE; +return *_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS; } -qbs* FUNC_EVALUATE(qbs*_FUNC_EVALUATE_STRING_A2,int32*_FUNC_EVALUATE_LONG_TYP){ +int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -62319,12 +60785,5534 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ +qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14473);}while(r); +do{ +*_FUNC_DIM2_LONG_DIM2= 1 ; +if(!qbevent)break;evnt(14474);}while(r); +S_16692:; +if (( 0 )||new_error){ +if(qbevent){evnt(14476);if(r)goto S_16692;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2370; +sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0 , 1 , 0 ); +if (new_error) goto skip2370; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1 , 0 , 1 ); +if (new_error) goto skip2370; +skip2370: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14476);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14478);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14479);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_VARNAME,qbs_ucase(_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14480);}while(r); +S_16698:; +if ((-(*__INTEGER_DIMSFARRAY== 1 ))||new_error){ +if(qbevent){evnt(14482);if(r)goto S_16698;} +do{ +*_FUNC_DIM2_LONG_F= 0 ; +if(!qbevent)break;evnt(14482);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_F= 1 ; +if(!qbevent)break;evnt(14482);}while(r); +} +S_16703:; +if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||new_error){ +if(qbevent){evnt(14484);if(r)goto S_16703;} +do{ +*__INTEGER_DEFDATAHANDLE= 18 ; +if(!qbevent)break;evnt(14487);}while(r); +do{ +sub_close( 13 ,1); +if(!qbevent)break;evnt(14488);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("maindata.txt",12)), 5 ,NULL,NULL, 13 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14488);}while(r); +do{ +sub_close( 19 ,1); +if(!qbevent)break;evnt(14489);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("mainfree.txt",12)), 5 ,NULL,NULL, 19 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14489);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14493);}while(r); +S_16711:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||new_error){ +if(qbevent){evnt(14496);if(r)goto S_16711;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14496);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14496);}while(r); +} +S_16715:; +fornext_value2373= 1 ; +fornext_finalvalue2373=*__LONG_LASTTYPE; +fornext_step2373= 1 ; +if (fornext_step2373<0) fornext_step_negative2373=1; else fornext_step_negative2373=0; +if (new_error) goto fornext_error2373; +goto fornext_entrylabel2373; +while(1){ +fornext_value2373=fornext_step2373+(*_FUNC_DIM2_LONG_I); +fornext_entrylabel2373: +*_FUNC_DIM2_LONG_I=fornext_value2373; +if (fornext_step_negative2373){ +if (fornext_value2373fornext_finalvalue2373) break; +} +fornext_error2373:; +if(qbevent){evnt(14500);if(r)goto S_16715;} +S_16716:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1))))|(((qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(14501);if(r)goto S_16716;} +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14502);}while(r); +S_16718:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(14503);if(r)goto S_16718;} +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14504);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14507);}while(r); +S_16722:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14510);if(r)goto S_16722;} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14511);}while(r); +S_16724:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14512);if(r)goto S_16724;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14513);}while(r); +S_16726:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14514);if(r)goto S_16726;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14514);}while(r); +} +S_16729:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14515);if(r)goto S_16729;} +S_16730:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14516);if(r)goto S_16730;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14517);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14518);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14518);}while(r); +do{ +goto dl_exit_2374; +if(!qbevent)break;evnt(14519);}while(r); +} +S_16736:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14521);if(r)goto S_16736;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14521);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14521);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14521);}while(r); +} +S_16742:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14522);if(r)goto S_16742;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14522);}while(r); +} +dl_continue_2374:; +} +dl_exit_2374:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14525);}while(r); +do{ +*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(14526);}while(r); +S_16749:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(14527);if(r)goto S_16749;} +S_16750:; +if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ +if(qbevent){evnt(14528);if(r)goto S_16750;} +do{ +*_FUNC_DIM2_LONG_BITS=*_FUNC_DIM2_LONG_BITS+ 8 -(*_FUNC_DIM2_LONG_BITS% 8 ); +if(!qbevent)break;evnt(14528);}while(r); +} +} +S_16754:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14531);if(r)goto S_16754;} +S_16755:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14533);if(r)goto S_16755;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14534);}while(r); +S_16757:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14534);if(r)goto S_16757;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14534);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2376=-(*_FUNC_DIM2_LONG_BITS)),_FUNC_DIM2_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14536);}while(r); +S_16762:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14537);if(r)goto S_16762;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14537);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14538);}while(r); +S_16766:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14539);if(r)goto S_16766;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14539);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14540);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14543);}while(r); +S_16772:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14544);if(r)goto S_16772;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14545);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14546);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14547);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14549);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; +if(!qbevent)break;evnt(14553);}while(r); +S_16781:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14554);if(r)goto S_16781;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14554);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14555);}while(r); +S_16785:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14557);if(r)goto S_16785;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14557);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14557);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14559);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14560);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14561);}while(r); +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2377= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14562);}while(r); +S_16793:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14563);if(r)goto S_16793;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14563);}while(r); +} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14564);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(14568);}while(r); +do{ +*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/ 8 ; +if(!qbevent)break;evnt(14568);}while(r); +S_16800:; +if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ +if(qbevent){evnt(14569);if(r)goto S_16800;} +do{ +*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ; +if(!qbevent)break;evnt(14570);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14572);}while(r); +S_16804:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14573);if(r)goto S_16804;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2378; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2378; +skip2378: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14573);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14574);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14575);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; +if(!qbevent)break;evnt(14576);}while(r); +S_16810:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14577);if(r)goto S_16810;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14578);}while(r); +S_16812:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14579);if(r)goto S_16812;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2379; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2379; +skip2379: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14580);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2380; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2380; +skip2380: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14581);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2381; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 0 )))||new_error){ +if(qbevent){evnt(14616);if(r)goto S_16849;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected more type information after ",37),__STRING_QB64PREFIX),qbs_new_txt_len("UNSIGNED!",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14616);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14616);}while(r); +} +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14619);}while(r); +S_16855:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(14621);if(r)goto S_16855;} +S_16856:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||new_error){ +if(qbevent){evnt(14623);if(r)goto S_16856;} +S_16857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ +if(qbevent){evnt(14624);if(r)goto S_16857;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14624);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14624);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14626);}while(r); +do{ +*_FUNC_DIM2_LONG_HASHFOUND= 0 ; +if(!qbevent)break;evnt(14629);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14630);}while(r); +do{ +*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(14631);}while(r); +do{ +*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_LONG_HASHCHKFLAGS,_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14632);}while(r); +S_16866:; +while((*_FUNC_DIM2_LONG_HASHRES)||new_error){ +if(qbevent){evnt(14633);if(r)goto S_16866;} +S_16867:; +if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ +if(qbevent){evnt(14634);if(r)goto S_16867;} +S_16868:; +if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ +if(qbevent){evnt(14635);if(r)goto S_16868;} +do{ +*_FUNC_DIM2_LONG_HASHFOUND= 1 ; +if(!qbevent)break;evnt(14636);}while(r); +do{ +goto dl_exit_2397; +if(!qbevent)break;evnt(14637);}while(r); +} +} +S_16873:; +if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(14640);if(r)goto S_16873;} +do{ +*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); +if(!qbevent)break;evnt(14640);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(14640);}while(r); +} +dl_continue_2397:; +} +dl_exit_2397:; +S_16879:; +if ((*_FUNC_DIM2_LONG_HASHFOUND)||new_error){ +if(qbevent){evnt(14642);if(r)goto S_16879;} +do{ +*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF; +if(!qbevent)break;evnt(14643);}while(r); +do{ +*_FUNC_DIM2_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(14644);}while(r); +S_16882:; +if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(14645);if(r)goto S_16882;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14645);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14645);}while(r); +} +S_16886:; +if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(14647);if(r)goto S_16886;} +do{ +*_FUNC_DIM2_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; +if(!qbevent)break;evnt(14648);}while(r); +do{ +*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V); +if(!qbevent)break;evnt(14649);}while(r); +do{ +*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14650);}while(r); +}else{ +S_16891:; +if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(14652);if(r)goto S_16891;} +do{ +*_FUNC_DIM2_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; +if(!qbevent)break;evnt(14653);}while(r); +do{ +*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V; +if(!qbevent)break;evnt(14654);}while(r); +do{ +*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14655);}while(r); +}else{ +do{ +*_FUNC_DIM2_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; +if(!qbevent)break;evnt(14657);}while(r); +do{ +*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14658);}while(r); +do{ +*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14659);}while(r); +} +} +S_16901:; +if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||new_error){ +if(qbevent){evnt(14662);if(r)goto S_16901;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14662);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14662);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14663);}while(r); +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_add(FUNC_SCASE(qbs_new_txt_len("String * ",9)),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14664);}while(r); +do{ +goto LABEL_CONSTANTLENSTR; +if(!qbevent)break;evnt(14665);}while(r); +} +S_16909:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ +if(qbevent){evnt(14668);if(r)goto S_16909;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14668);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14668);}while(r); +} +S_16913:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||new_error){ +if(qbevent){evnt(14669);if(r)goto S_16913;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14669);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14669);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BYTES=qbr(func_val(_FUNC_DIM2_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14670);}while(r); +S_16918:; +if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||new_error){ +if(qbevent){evnt(14671);if(r)goto S_16918;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a fixed string of length 0",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14671);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14671);}while(r); +} +LABEL_CONSTANTLENSTR:; +if(qbevent){evnt(14672);r=0;} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14673);}while(r); +S_16923:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14676);if(r)goto S_16923;} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14677);}while(r); +S_16925:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14678);if(r)goto S_16925;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14679);}while(r); +S_16927:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14680);if(r)goto S_16927;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14680);}while(r); +} +S_16930:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14681);if(r)goto S_16930;} +S_16931:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14682);if(r)goto S_16931;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14683);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14684);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14684);}while(r); +do{ +goto dl_exit_2399; +if(!qbevent)break;evnt(14685);}while(r); +} +S_16937:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14687);if(r)goto S_16937;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14687);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14687);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14687);}while(r); +} +S_16943:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14688);if(r)goto S_16943;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14688);}while(r); +} +dl_continue_2399:; +} +dl_exit_2399:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14691);}while(r); +S_16949:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14697);if(r)goto S_16949;} +S_16950:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14699);if(r)goto S_16950;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14700);}while(r); +S_16952:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14700);if(r)goto S_16952;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14700);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2401= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14702);}while(r); +S_16957:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14703);if(r)goto S_16957;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14703);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14704);}while(r); +S_16961:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14705);if(r)goto S_16961;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14705);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14706);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14709);}while(r); +S_16967:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14710);if(r)goto S_16967;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14711);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14712);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14713);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14715);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(14719);}while(r); +S_16976:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14720);if(r)goto S_16976;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14720);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14721);}while(r); +S_16980:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14722);if(r)goto S_16980;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14722);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14722);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14724);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14725);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; +if(!qbevent)break;evnt(14726);}while(r); +S_16987:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14727);if(r)goto S_16987;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14728);}while(r); +} +S_16990:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14730);if(r)goto S_16990;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14731);}while(r); +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14733);}while(r); +S_16994:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14734);if(r)goto S_16994;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14734);}while(r); +} +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2402= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14735);}while(r); +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14736);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14740);}while(r); +S_17001:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14741);if(r)goto S_17001;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2403; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2403; +skip2403: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14741);}while(r); +} +S_17004:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14742);if(r)goto S_17004;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 19 ; +if (new_error) goto skip2404; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip2404; +skip2404: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14742);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14743);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14744);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(14745);}while(r); +S_17010:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14746);if(r)goto S_17010;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14747);}while(r); +S_17012:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14748);if(r)goto S_17012;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2405; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2405; +skip2405: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14748);}while(r); +} +S_17015:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14749);if(r)goto S_17015;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2406; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2406; +skip2406: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14749);}while(r); +} +S_17018:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14750);if(r)goto S_17018;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2407; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip2409; +skip2409: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14752);}while(r); +} +S_17027:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14753);if(r)goto S_17027;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2410; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2410; +skip2410: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14753);}while(r); +} +}else{ +S_17031:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14755);if(r)goto S_17031;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2411; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2411; +skip2411: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14755);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_O,qbs_add(qbs_add(qbs_new_txt_len("(uint8*)mem_static_malloc(",26),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14756);}while(r); +S_17035:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14757);if(r)goto S_17035;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2412; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed(",15)),_FUNC_DIM2_STRING_O),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(",0);",4)), 0 , 0 , 1 ); +if (new_error) goto skip2412; +skip2412: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14757);}while(r); +} +S_17038:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14758);if(r)goto S_17038;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2413; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip2413; +skip2413: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14758);}while(r); +} +S_17041:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14759);if(r)goto S_17041;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2414; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip2414; +skip2414: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14759);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; +if(!qbevent)break;evnt(14761);}while(r); +S_17046:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14762);if(r)goto S_17046;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14763);}while(r); +} +S_17049:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14765);if(r)goto S_17049;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14766);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14768);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14769);}while(r); +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2415= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14770);}while(r); +S_17055:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14771);if(r)goto S_17055;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14771);}while(r); +} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14772);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("STRING_",7),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14776);}while(r); +S_17061:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14779);if(r)goto S_17061;} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14780);}while(r); +S_17063:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14781);if(r)goto S_17063;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14782);}while(r); +S_17065:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14783);if(r)goto S_17065;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14783);}while(r); +} +S_17068:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14784);if(r)goto S_17068;} +S_17069:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14785);if(r)goto S_17069;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14786);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14787);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14787);}while(r); +do{ +goto dl_exit_2416; +if(!qbevent)break;evnt(14788);}while(r); +} +S_17075:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14790);if(r)goto S_17075;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14790);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14790);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14790);}while(r); +} +S_17081:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14791);if(r)goto S_17081;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14791);}while(r); +} +dl_continue_2416:; +} +dl_exit_2416:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14794);}while(r); +S_17087:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14800);if(r)goto S_17087;} +S_17088:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14802);if(r)goto S_17088;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14803);}while(r); +S_17090:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14803);if(r)goto S_17090;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14803);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2418= -2147483647 ),&(pass2419= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14805);}while(r); +S_17095:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14806);if(r)goto S_17095;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14806);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14807);}while(r); +S_17099:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14808);if(r)goto S_17099;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14808);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14809);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14812);}while(r); +S_17105:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14813);if(r)goto S_17105;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14814);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14815);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14816);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14818);}while(r); +} +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14822);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(14823);}while(r); +S_17115:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14824);if(r)goto S_17115;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14824);}while(r); +} +S_17118:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14825);if(r)goto S_17118;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14825);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14825);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14827);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14828);}while(r); +S_17124:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14829);if(r)goto S_17124;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14830);}while(r); +} +S_17127:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14832);if(r)goto S_17127;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14833);}while(r); +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14835);}while(r); +S_17131:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14836);if(r)goto S_17131;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14836);}while(r); +} +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2420= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14837);}while(r); +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14838);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14842);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14843);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14844);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(14845);}while(r); +S_17141:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14846);if(r)goto S_17141;} +S_17142:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14847);if(r)goto S_17142;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2421; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2421; +skip2421: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14847);}while(r); +} +S_17145:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14848);if(r)goto S_17145;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2422; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new_cmem(0,0);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2422; +skip2422: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14848);}while(r); +} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14849);}while(r); +}else{ +S_17150:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14851);if(r)goto S_17150;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2423; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2423; +skip2423: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14851);}while(r); +} +S_17153:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14852);if(r)goto S_17153;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2424; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new(0,0);",14)), 0 , 0 , 1 ); +if (new_error) goto skip2424; +skip2424: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14852);}while(r); +} +} +S_17157:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14854);if(r)goto S_17157;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 19 ; +if (new_error) goto skip2425; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip2425; +skip2425: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14854);}while(r); +} +S_17160:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14855);if(r)goto S_17160;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14856);}while(r); +} +S_17163:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14858);if(r)goto S_17163;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14859);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14861);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14862);}while(r); +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2426= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14863);}while(r); +S_17169:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14864);if(r)goto S_17169;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14864);}while(r); +} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14865);}while(r); +} +S_17174:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))|(((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 3 ),qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(14868);if(r)goto S_17174;} +S_17175:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))&(-(_FUNC_DIM2_STRING_TYP->len> 4 )))|((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 3 ),qbs_new_txt_len("BIT",3)))&(-(_FUNC_DIM2_STRING_TYP->len> 3 )))))||new_error){ +if(qbevent){evnt(14869);if(r)goto S_17175;} +S_17176:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7)))&(qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("BIT * ",6)))))||new_error){ +if(qbevent){evnt(14870);if(r)goto S_17176;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("BIT * number",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14870);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14870);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_C,func_mid(_FUNC_DIM2_STRING_TYP,func_instr(NULL,_FUNC_DIM2_STRING_TYP,qbs_new_txt_len(" * ",3),0)+ 3 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14871);}while(r); +S_17181:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ +if(qbevent){evnt(14872);if(r)goto S_17181;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14872);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14872);}while(r); +} +S_17185:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||new_error){ +if(qbevent){evnt(14873);if(r)goto S_17185;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 64 bits",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14873);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14873);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BITS=qbr(func_val(_FUNC_DIM2_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14874);}while(r); +S_17190:; +if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||new_error){ +if(qbevent){evnt(14875);if(r)goto S_17190;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size 0 bits",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14875);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14875);}while(r); +} +S_17194:; +if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(14876);if(r)goto S_17194;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 64 bits",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14876);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14876);}while(r); +} +}else{ +do{ +*_FUNC_DIM2_LONG_BITS= 1 ; +if(!qbevent)break;evnt(14878);}while(r); +} +S_17201:; +if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||new_error){ +if(qbevent){evnt(14880);if(r)goto S_17201;} +do{ +qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14880);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14880);}while(r); +} +S_17206:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14881);if(r)goto S_17206;} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14881);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14881);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_DIM2_LONG_BITS)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14882);}while(r); +S_17211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14885);if(r)goto S_17211;} +S_17212:; +if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||new_error){ +if(qbevent){evnt(14886);if(r)goto S_17212;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit array of size > 63 bits",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14886);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14886);}while(r); +} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14887);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14888);}while(r); +S_17218:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14888);if(r)goto S_17218;} +do{ +qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14888);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14889);}while(r); +S_17222:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14890);if(r)goto S_17222;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14891);}while(r); +S_17224:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14892);if(r)goto S_17224;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14892);}while(r); +} +S_17227:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14893);if(r)goto S_17227;} +S_17228:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14894);if(r)goto S_17228;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14895);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14896);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14896);}while(r); +do{ +goto dl_exit_2430; +if(!qbevent)break;evnt(14897);}while(r); +} +S_17234:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14899);if(r)goto S_17234;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14899);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14899);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14899);}while(r); +} +S_17240:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14900);if(r)goto S_17240;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14900);}while(r); +} +dl_continue_2430:; +} +dl_exit_2430:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14903);}while(r); +S_17246:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14909);if(r)goto S_17246;} +S_17247:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14911);if(r)goto S_17247;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14912);}while(r); +S_17249:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14912);if(r)goto S_17249;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14912);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2432=-(*_FUNC_DIM2_LONG_BITS)),&(pass2433= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14914);}while(r); +S_17254:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14915);if(r)goto S_17254;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14915);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14916);}while(r); +S_17258:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14917);if(r)goto S_17258;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14917);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14918);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14921);}while(r); +S_17264:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14922);if(r)goto S_17264;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14923);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14924);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14925);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14927);}while(r); +} +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14931);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS; +if(!qbevent)break;evnt(14932);}while(r); +S_17274:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14933);if(r)goto S_17274;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(14933);}while(r); +} +S_17277:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14934);if(r)goto S_17277;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14934);}while(r); +} +S_17280:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14935);if(r)goto S_17280;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14935);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14935);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14937);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14938);}while(r); +S_17286:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14939);if(r)goto S_17286;} +S_17287:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14940);if(r)goto S_17287;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14940);}while(r); +}else{ +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14940);}while(r); +} +} +S_17293:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14942);if(r)goto S_17293;} +S_17294:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14943);if(r)goto S_17294;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14943);}while(r); +}else{ +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14943);}while(r); +} +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14945);}while(r); +S_17301:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14946);if(r)goto S_17301;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14946);}while(r); +} +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2434= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14947);}while(r); +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14948);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14951);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2435; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2435; +skip2435: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14952);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2436; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2436; +skip2436: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14953);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2437; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); +if (new_error) goto skip2437; +skip2437: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14954);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2438; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15005);if(r)goto S_17382;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15006);}while(r); +S_17384:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15006);if(r)goto S_17384;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15006);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2445= 1 ),&(pass2446= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15008);}while(r); +S_17389:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15009);if(r)goto S_17389;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15009);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15010);}while(r); +S_17393:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15011);if(r)goto S_17393;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15011);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15012);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15015);}while(r); +S_17399:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15016);if(r)goto S_17399;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15017);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15018);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15019);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15021);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(15025);}while(r); +S_17408:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15025);if(r)goto S_17408;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15025);}while(r); +} +S_17411:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15026);if(r)goto S_17411;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15026);}while(r); +} +S_17414:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15027);if(r)goto S_17414;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15027);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15027);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15029);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15030);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15032);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15033);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(15034);}while(r); +S_17424:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15034);if(r)goto S_17424;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15034);}while(r); +} +S_17427:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15035);if(r)goto S_17427;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2447; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2447; +skip2447: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15035);}while(r); +} +S_17430:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15036);if(r)goto S_17430;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2448; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2448; +skip2448: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15036);}while(r); +} +S_17433:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15037);if(r)goto S_17433;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15038);}while(r); +S_17435:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15039);if(r)goto S_17435;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2449; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=1;",11), 0 , 0 , 1 ); +if (new_error) goto skip2449; +skip2449: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15039);}while(r); +} +S_17438:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15040);if(r)goto S_17438;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2450; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2450; +skip2450: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15040);}while(r); +} +S_17441:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15041);if(r)goto S_17441;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2451; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15088);if(r)goto S_17518;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15089);}while(r); +S_17520:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15089);if(r)goto S_17520;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15089);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2458= 2 ),&(pass2459= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15091);}while(r); +S_17525:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15092);if(r)goto S_17525;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15092);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15093);}while(r); +S_17529:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15094);if(r)goto S_17529;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15094);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15095);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15098);}while(r); +S_17535:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15099);if(r)goto S_17535;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15100);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15101);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15102);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15104);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(15109);}while(r); +S_17544:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15109);if(r)goto S_17544;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15109);}while(r); +} +S_17547:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15110);if(r)goto S_17547;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15110);}while(r); +} +S_17550:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15111);if(r)goto S_17550;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15111);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15111);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15113);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15114);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15116);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15117);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(15118);}while(r); +S_17560:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15118);if(r)goto S_17560;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15118);}while(r); +} +S_17563:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15119);if(r)goto S_17563;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2460; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2460; +skip2460: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15119);}while(r); +} +S_17566:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15120);if(r)goto S_17566;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2461; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2461; +skip2461: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15120);}while(r); +} +S_17569:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15121);if(r)goto S_17569;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15122);}while(r); +S_17571:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15123);if(r)goto S_17571;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2462; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=2;",11), 0 , 0 , 1 ); +if (new_error) goto skip2462; +skip2462: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15123);}while(r); +} +S_17574:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15124);if(r)goto S_17574;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2463; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2463; +skip2463: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15124);}while(r); +} +S_17577:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15125);if(r)goto S_17577;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2464; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15178);if(r)goto S_17654;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15179);}while(r); +S_17656:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15179);if(r)goto S_17656;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15179);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2471=*__LONG_OS_BITS/ 8 ),&(pass2472= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15181);}while(r); +S_17661:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15182);if(r)goto S_17661;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15182);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15183);}while(r); +S_17665:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15184);if(r)goto S_17665;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15184);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15185);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15188);}while(r); +S_17671:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15189);if(r)goto S_17671;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15190);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15191);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15192);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15194);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(15198);}while(r); +S_17680:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15198);if(r)goto S_17680;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15198);}while(r); +} +S_17683:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15199);if(r)goto S_17683;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15199);}while(r); +} +S_17686:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15200);if(r)goto S_17686;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15200);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15200);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15202);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15203);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15205);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15206);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(15207);}while(r); +S_17696:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15207);if(r)goto S_17696;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15207);}while(r); +} +S_17699:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15208);if(r)goto S_17699;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2473; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2473; +skip2473: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15208);}while(r); +} +S_17702:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15209);if(r)goto S_17702;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2474; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2474; +skip2474: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15209);}while(r); +} +S_17705:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15210);if(r)goto S_17705;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15211);}while(r); +S_17707:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15212);if(r)goto S_17707;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2475; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(&(pass2476=*__LONG_OS_BITS/ 8 ))),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2475; +skip2475: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15212);}while(r); +} +S_17710:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15213);if(r)goto S_17710;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2477; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2477; +skip2477: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15213);}while(r); +} +S_17713:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15214);if(r)goto S_17713;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2478; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15264);if(r)goto S_17790;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15265);}while(r); +S_17792:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15265);if(r)goto S_17792;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15265);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2486= 4 ),&(pass2487= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15267);}while(r); +S_17797:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15268);if(r)goto S_17797;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15268);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15269);}while(r); +S_17801:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15270);if(r)goto S_17801;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15270);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15271);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15274);}while(r); +S_17807:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15275);if(r)goto S_17807;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15276);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15277);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15278);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15280);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(15284);}while(r); +S_17816:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15284);if(r)goto S_17816;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15284);}while(r); +} +S_17819:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15285);if(r)goto S_17819;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15285);}while(r); +} +S_17822:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15286);if(r)goto S_17822;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15286);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15286);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15288);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15289);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15291);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15292);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(15293);}while(r); +S_17832:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15293);if(r)goto S_17832;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15293);}while(r); +} +S_17835:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15294);if(r)goto S_17835;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2488; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2488; +skip2488: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15294);}while(r); +} +S_17838:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15295);if(r)goto S_17838;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2489; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2489; +skip2489: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15295);}while(r); +} +S_17841:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15296);if(r)goto S_17841;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15297);}while(r); +S_17843:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15298);if(r)goto S_17843;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2490; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); +if (new_error) goto skip2490; +skip2490: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15298);}while(r); +} +S_17846:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15299);if(r)goto S_17846;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2491; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2491; +skip2491: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15299);}while(r); +} +S_17849:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15300);if(r)goto S_17849;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2492; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15350);if(r)goto S_17926;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15351);}while(r); +S_17928:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15351);if(r)goto S_17928;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15351);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2499= 8 ),&(pass2500= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15353);}while(r); +S_17933:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15354);if(r)goto S_17933;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15354);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15355);}while(r); +S_17937:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15356);if(r)goto S_17937;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15356);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15357);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15360);}while(r); +S_17943:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15361);if(r)goto S_17943;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15362);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15363);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15364);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15366);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(15370);}while(r); +S_17952:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15370);if(r)goto S_17952;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15370);}while(r); +} +S_17955:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15371);if(r)goto S_17955;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15371);}while(r); +} +S_17958:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15372);if(r)goto S_17958;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15372);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15372);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15374);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15375);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15377);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15378);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(15379);}while(r); +S_17968:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15379);if(r)goto S_17968;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15379);}while(r); +} +S_17971:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15380);if(r)goto S_17971;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2501; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2501; +skip2501: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15380);}while(r); +} +S_17974:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15381);if(r)goto S_17974;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2502; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2502; +skip2502: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15381);}while(r); +} +S_17977:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15382);if(r)goto S_17977;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15383);}while(r); +S_17979:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15384);if(r)goto S_17979;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2503; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); +if (new_error) goto skip2503; +skip2503: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15384);}while(r); +} +S_17982:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15385);if(r)goto S_17982;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2504; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2504; +skip2504: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15385);}while(r); +} +S_17985:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15386);if(r)goto S_17985;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2505; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15436);if(r)goto S_18058;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15437);}while(r); +S_18060:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15437);if(r)goto S_18060;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15437);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2512= 4 ),&(pass2513= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15439);}while(r); +S_18065:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15440);if(r)goto S_18065;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15440);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15441);}while(r); +S_18069:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15442);if(r)goto S_18069;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15442);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15443);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15446);}while(r); +S_18075:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15447);if(r)goto S_18075;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15448);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15449);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15450);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15452);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(15456);}while(r); +S_18084:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15457);if(r)goto S_18084;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15457);}while(r); +} +S_18087:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15458);if(r)goto S_18087;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15458);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15458);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15460);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15461);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15463);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15464);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(15465);}while(r); +S_18097:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15466);if(r)goto S_18097;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2514; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2514; +skip2514: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15466);}while(r); +} +S_18100:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15467);if(r)goto S_18100;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2515; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2515; +skip2515: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15467);}while(r); +} +S_18103:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15468);if(r)goto S_18103;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15469);}while(r); +S_18105:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15470);if(r)goto S_18105;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2516; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=4;",11), 0 , 0 , 1 ); +if (new_error) goto skip2516; +skip2516: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15470);}while(r); +} +S_18108:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15471);if(r)goto S_18108;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2517; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2517; +skip2517: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15471);}while(r); +} +S_18111:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15472);if(r)goto S_18111;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2518; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15520);if(r)goto S_18172;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15521);}while(r); +S_18174:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15521);if(r)goto S_18174;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15521);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2525= 8 ),&(pass2526= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15523);}while(r); +S_18179:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15524);if(r)goto S_18179;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15524);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15525);}while(r); +S_18183:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15526);if(r)goto S_18183;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15526);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15527);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15530);}while(r); +S_18189:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15531);if(r)goto S_18189;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15532);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15533);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15534);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15536);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(15540);}while(r); +S_18198:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15541);if(r)goto S_18198;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15541);}while(r); +} +S_18201:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15542);if(r)goto S_18201;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15542);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15542);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15544);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15545);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15547);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15548);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(15549);}while(r); +S_18211:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15550);if(r)goto S_18211;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2527; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2527; +skip2527: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15550);}while(r); +} +S_18214:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15551);if(r)goto S_18214;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2528; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2528; +skip2528: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15551);}while(r); +} +S_18217:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15552);if(r)goto S_18217;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15553);}while(r); +S_18219:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15554);if(r)goto S_18219;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2529; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=8;",11), 0 , 0 , 1 ); +if (new_error) goto skip2529; +skip2529: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15554);}while(r); +} +S_18222:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15555);if(r)goto S_18222;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2530; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2530; +skip2530: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15555);}while(r); +} +S_18225:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15556);if(r)goto S_18225;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2531; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15604);if(r)goto S_18286;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15605);}while(r); +S_18288:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15605);if(r)goto S_18288;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15605);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2538= 32 ),&(pass2539= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15607);}while(r); +S_18293:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15608);if(r)goto S_18293;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15608);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15609);}while(r); +S_18297:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15610);if(r)goto S_18297;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15610);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15611);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15614);}while(r); +S_18303:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15615);if(r)goto S_18303;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15616);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15617);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15618);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15620);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(15624);}while(r); +S_18312:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15625);if(r)goto S_18312;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15625);}while(r); +} +S_18315:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15626);if(r)goto S_18315;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15626);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15626);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15628);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15629);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15631);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15632);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(15633);}while(r); +S_18325:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15634);if(r)goto S_18325;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2540; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2540; +skip2540: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15634);}while(r); +} +S_18328:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15635);if(r)goto S_18328;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2541; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2541; +skip2541: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15635);}while(r); +} +S_18331:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15636);if(r)goto S_18331;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15637);}while(r); +S_18333:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15638);if(r)goto S_18333;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2542; +sub_file_print(tmp_fileno,qbs_new_txt_len("cmem_sp-=32;",12), 0 , 0 , 1 ); +if (new_error) goto skip2542; +skip2542: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15638);}while(r); +} +S_18336:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15639);if(r)goto S_18336;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2543; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2543; +skip2543: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15639);}while(r); +} +S_18339:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15640);if(r)goto S_18339;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2544; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_sp=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_DIM2_LONG_DIM2; +} +qbs* FUNC_UDTREFERENCE(qbs*_FUNC_UDTREFERENCE_STRING_O,qbs*_FUNC_UDTREFERENCE_STRING_A,int32*_FUNC_UDTREFERENCE_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data14.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_OBAK,_FUNC_UDTREFERENCE_STRING_O); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15688);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(FUNC_STR2(__LONG_CURRENTID),__STRING1_SP3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15693);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_O= 0 ; +if(!qbevent)break;evnt(15696);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_INCMEM= 0 ; +if(!qbevent)break;evnt(15698);}while(r); +S_18388:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(15699);if(r)goto S_18388;} +do{ +*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(536))& 511 ; +if(!qbevent)break;evnt(15700);}while(r); +S_18390:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(15701);if(r)goto S_18390;} +do{ +*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; +if(!qbevent)break;evnt(15701);}while(r); +} +}else{ +do{ +*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; +if(!qbevent)break;evnt(15703);}while(r); +S_18395:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(15704);if(r)goto S_18395;} +do{ +*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; +if(!qbevent)break;evnt(15704);}while(r); +} +} +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(15706);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTREFERENCE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15708);}while(r); +S_18401:; +if ((-(*_FUNC_UDTREFERENCE_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(15709);if(r)goto S_18401;} +do{ +goto LABEL_FULLUDT; +if(!qbevent)break;evnt(15709);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_I= 1 ; +if(!qbevent)break;evnt(15711);}while(r); +LABEL_UDTFINDELENEXT:; +if(qbevent){evnt(15712);r=0;} +S_18405:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(15713);if(r)goto S_18405;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected .",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15713);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15713);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; +if(!qbevent)break;evnt(15714);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_N,FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15715);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_NSYM,FUNC_REMOVESYMBOL(_FUNC_UDTREFERENCE_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15716);}while(r); +S_18412:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ +if(qbevent){evnt(15716);if(r)goto S_18412;} +do{ +*_FUNC_UDTREFERENCE_LONG_NTYP=FUNC_TYPNAME2TYP(_FUNC_UDTREFERENCE_STRING_NSYM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15716);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_NTYPSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(15716);}while(r); +} +S_18416:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15717);if(r)goto S_18416;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15717);}while(r); +} +S_18419:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15719);if(r)goto S_18419;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected .elementname",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15719);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15719);}while(r); +} +LABEL_UDTFINDELE:; +if(qbevent){evnt(15720);r=0;} +S_18423:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(15721);if(r)goto S_18423;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_U)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(15721);}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(15721);}while(r); +} +S_18428:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(15722);if(r)goto S_18428;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15722);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15722);}while(r); +} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_N2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15723);}while(r); +S_18433:; +if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_E)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(15724);if(r)goto S_18433;} +S_18434:; +if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ +if(qbevent){evnt(15725);if(r)goto S_18434;} +do{ +*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+( 8 -(*_FUNC_UDTREFERENCE_LONG_O% 8 )); +if(!qbevent)break;evnt(15725);}while(r); +} +} +S_18438:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_N,_FUNC_UDTREFERENCE_STRING_N2)))||new_error){ +if(qbevent){evnt(15728);if(r)goto S_18438;} +do{ +*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; +if(!qbevent)break;evnt(15730);}while(r); +do{ +goto LABEL_UDTFINDELE; +if(!qbevent)break;evnt(15731);}while(r); +} +S_18442:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ +if(qbevent){evnt(15735);if(r)goto S_18442;} +S_18443:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(15737);if(r)goto S_18443;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol after user defined type",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15737);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15737);}while(r); +} +S_18447:; +if (((-(*_FUNC_UDTREFERENCE_LONG_NTYP!=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]))|(-(*_FUNC_UDTREFERENCE_LONG_NTYPSIZE!=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))||new_error){ +if(qbevent){evnt(15738);if(r)goto S_18447;} +S_18448:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_UDTREFERENCE_STRING_NSYM,qbs_new_txt_len("$",1)))&((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 )))))||new_error){ +if(qbevent){evnt(15739);if(r)goto S_18448;} +do{ +goto LABEL_CORRECTSYMBOL; +if(!qbevent)break;evnt(15739);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect symbol after element name",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15740);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15740);}while(r); +} +} +LABEL_CORRECTSYMBOL:; +if(qbevent){evnt(15743);r=0;} +S_18455:; +if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||new_error){ +if(qbevent){evnt(15746);if(r)goto S_18455;} +S_18456:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(15747);if(r)goto S_18456;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected user defined type",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15747);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15747);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; +if(!qbevent)break;evnt(15748);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(15749);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; +if(!qbevent)break;evnt(15750);}while(r); +do{ +goto LABEL_UDTFINDELENEXT; +if(!qbevent)break;evnt(15751);}while(r); +} +S_18465:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(15755);if(r)goto S_18465;} +do{ +*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; +if(!qbevent)break;evnt(15756);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(15757);}while(r); +} +LABEL_FULLUDT:; +if(qbevent){evnt(15760);r=0;} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_R,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_U)),__STRING1_SP3),FUNC_STR2(__LONG_E)),__STRING1_SP3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15762);}while(r); +S_18470:; +if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ +if(qbevent){evnt(15764);if(r)goto S_18470;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("QB64 cannot handle bit offsets within user defined types",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15764);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15764);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O/ 8 ; +if(!qbevent)break;evnt(15765);}while(r); +S_18475:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15767);if(r)goto S_18475;} +S_18476:; +if ((-(*_FUNC_UDTREFERENCE_LONG_O!= 0 ))||new_error){ +if(qbevent){evnt(15768);if(r)goto S_18476;} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("+",1)),FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15769);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_O,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15772);}while(r); +} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(_FUNC_UDTREFERENCE_STRING_R,_FUNC_UDTREFERENCE_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15775);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15777);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]+*__LONG_ISUDT+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(15778);}while(r); +S_18485:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(15781);if(r)goto S_18485;} +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_U+*__LONG_ISUDT+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(15782);}while(r); +} +S_18488:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_OBAK,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15785);if(r)goto S_18488;} +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISARRAY; +if(!qbevent)break;evnt(15785);}while(r); +} +S_18491:; +if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||new_error){ +if(qbevent){evnt(15786);if(r)goto S_18491;} +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15786);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free14.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE);return _FUNC_UDTREFERENCE_STRING_UDTREFERENCE; +} +qbs* FUNC_EVALUATE(qbs*_FUNC_EVALUATE_STRING_A2,int32*_FUNC_EVALUATE_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data15.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&2){ error(10); }else{ if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]= 0 ; _FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]+1; @@ -62340,14 +66328,14 @@ while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(u } } } -if(!qbevent)break;evnt(14964);}while(r); +if(!qbevent)break;evnt(15793);}while(r); do{ if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&2){ error(10); }else{ if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]= 0 ; _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]+1; @@ -62362,14 +66350,14 @@ if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257); _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]|=1; } } -if(!qbevent)break;evnt(14965);}while(r); +if(!qbevent)break;evnt(15794);}while(r); do{ if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&2){ error(10); }else{ if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]= 0 ; _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]+1; @@ -62384,1004 +66372,1004 @@ if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257); _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]|=1; } } -if(!qbevent)break;evnt(14966);}while(r); +if(!qbevent)break;evnt(15795);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14969);}while(r); +if(!qbevent)break;evnt(15798);}while(r); do{ *_FUNC_EVALUATE_LONG_TYP= -1 ; -if(!qbevent)break;evnt(14970);}while(r); -S_17552:; +if(!qbevent)break;evnt(15799);}while(r); +S_18499:; if (( 0 )||new_error){ -if(qbevent){evnt(14972);if(r)goto S_17552;} +if(qbevent){evnt(15801);if(r)goto S_18499;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2345; +if (new_error) goto skip2554; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluating:[",12),_FUNC_EVALUATE_STRING_A2),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip2345; -skip2345: +if (new_error) goto skip2554; +skip2554: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(14972);}while(r); +if(!qbevent)break;evnt(15801);}while(r); } -S_17555:; +S_18502:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14973);if(r)goto S_17555;} +if(qbevent){evnt(15802);if(r)goto S_18502;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14973);}while(r); +if(!qbevent)break;evnt(15802);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(14973);}while(r); +if(!qbevent)break;evnt(15802);}while(r); } do{ *_FUNC_EVALUATE_LONG_BLOCKN= 0 ; -if(!qbevent)break;evnt(14982);}while(r); +if(!qbevent)break;evnt(15811);}while(r); do{ *_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14983);}while(r); +if(!qbevent)break;evnt(15812);}while(r); do{ *_FUNC_EVALUATE_LONG_B= 0 ; -if(!qbevent)break;evnt(14984);}while(r); -S_17562:; -fornext_value2347= 1 ; -fornext_finalvalue2347=*_FUNC_EVALUATE_LONG_N; -fornext_step2347= 1 ; -if (fornext_step2347<0) fornext_step_negative2347=1; else fornext_step_negative2347=0; -if (new_error) goto fornext_error2347; -goto fornext_entrylabel2347; +if(!qbevent)break;evnt(15813);}while(r); +S_18509:; +fornext_value2556= 1 ; +fornext_finalvalue2556=*_FUNC_EVALUATE_LONG_N; +fornext_step2556= 1 ; +if (fornext_step2556<0) fornext_step_negative2556=1; else fornext_step_negative2556=0; +if (new_error) goto fornext_error2556; +goto fornext_entrylabel2556; while(1){ -fornext_value2347=fornext_step2347+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2347: -*_FUNC_EVALUATE_LONG_I=fornext_value2347; -if (fornext_step_negative2347){ -if (fornext_value2347fornext_finalvalue2347) break; +if (fornext_value2556>fornext_finalvalue2556) break; } -fornext_error2347:; -if(qbevent){evnt(14985);if(r)goto S_17562;} +fornext_error2556:; +if(qbevent){evnt(15814);if(r)goto S_18509;} LABEL_REEVALUATE:; -if(qbevent){evnt(14987);r=0;} +if(qbevent){evnt(15816);r=0;} do{ qbs_set(_FUNC_EVALUATE_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14992);}while(r); -S_17564:; +if(!qbevent)break;evnt(15821);}while(r); +S_18511:; if (( 0 )||new_error){ -if(qbevent){evnt(14995);if(r)goto S_17564;} +if(qbevent){evnt(15824);if(r)goto S_18511;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2348; +if (new_error) goto skip2557; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#*#*#* reevaluating:",20),_FUNC_EVALUATE_STRING_L), 0 , 1 , 0 ); -if (new_error) goto skip2348; +if (new_error) goto skip2557; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1 , 0 , 1 ); -if (new_error) goto skip2348; -skip2348: +if (new_error) goto skip2557; +skip2557: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(14995);}while(r); +if(!qbevent)break;evnt(15824);}while(r); } -S_17567:; +S_18514:; if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ -if(qbevent){evnt(14998);if(r)goto S_17567;} +if(qbevent){evnt(15827);if(r)goto S_18514;} do{ -qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2349=*_FUNC_EVALUATE_LONG_I+ 1 ))); +qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2558=*_FUNC_EVALUATE_LONG_I+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14998);}while(r); +if(!qbevent)break;evnt(15827);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14998);}while(r); +if(!qbevent)break;evnt(15827);}while(r); } -S_17572:; +S_18519:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15002);if(r)goto S_17572;} -S_17573:; +if(qbevent){evnt(15831);if(r)goto S_18519;} +S_18520:; if (( 0 )||new_error){ -if(qbevent){evnt(15004);if(r)goto S_17573;} +if(qbevent){evnt(15833);if(r)goto S_18520;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2350; +if (new_error) goto skip2559; sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2350; -skip2350: +if (new_error) goto skip2559; +skip2559: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15004);}while(r); +if(!qbevent)break;evnt(15833);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15006);}while(r); -S_17577:; -fornext_value2352= 1 ; -fornext_finalvalue2352= 4 ; -fornext_step2352= 1 ; -if (fornext_step2352<0) fornext_step_negative2352=1; else fornext_step_negative2352=0; -if (new_error) goto fornext_error2352; -goto fornext_entrylabel2352; +if(!qbevent)break;evnt(15835);}while(r); +S_18524:; +fornext_value2561= 1 ; +fornext_finalvalue2561= 4 ; +fornext_step2561= 1 ; +if (fornext_step2561<0) fornext_step_negative2561=1; else fornext_step_negative2561=0; +if (new_error) goto fornext_error2561; +goto fornext_entrylabel2561; while(1){ -fornext_value2352=fornext_step2352+(*_FUNC_EVALUATE_LONG_TRY_METHOD); -fornext_entrylabel2352: -*_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value2352; -if (fornext_step_negative2352){ -if (fornext_value2352fornext_finalvalue2352) break; +if (fornext_value2561>fornext_finalvalue2561) break; } -fornext_error2352:; -if(qbevent){evnt(15007);if(r)goto S_17577;} +fornext_error2561:; +if(qbevent){evnt(15836);if(r)goto S_18524;} do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15008);}while(r); -S_17579:; +if(!qbevent)break;evnt(15837);}while(r); +S_18526:; if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||new_error){ -if(qbevent){evnt(15009);if(r)goto S_17579;} -S_17580:; +if(qbevent){evnt(15838);if(r)goto S_18526;} +S_18527:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15010);if(r)goto S_17580;} +if(qbevent){evnt(15839);if(r)goto S_18527;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15010);}while(r); +if(!qbevent)break;evnt(15839);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15011);}while(r); -S_17584:; +if(!qbevent)break;evnt(15840);}while(r); +S_18531:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15011);if(r)goto S_17584;} +if(qbevent){evnt(15840);if(r)goto S_18531;} do{ qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15011);}while(r); +if(!qbevent)break;evnt(15840);}while(r); do{ *__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(15011);}while(r); +if(!qbevent)break;evnt(15840);}while(r); } -S_17588:; +S_18535:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||new_error){ -if(qbevent){evnt(15012);if(r)goto S_17588;} -S_17589:; +if(qbevent){evnt(15841);if(r)goto S_18535;} +S_18536:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ -if(qbevent){evnt(15013);if(r)goto S_17589;} -S_17590:; +if(qbevent){evnt(15842);if(r)goto S_18536;} +S_18537:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ -if(qbevent){evnt(15014);if(r)goto S_17590;} -S_17591:; +if(qbevent){evnt(15843);if(r)goto S_18537;} +S_18538:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_L, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(15015);if(r)goto S_17591;} +if(qbevent){evnt(15844);if(r)goto S_18538;} do{ *_FUNC_EVALUATE_LONG_V= 27 ; -if(!qbevent)break;evnt(15015);}while(r); +if(!qbevent)break;evnt(15844);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_L))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15015);}while(r); +if(!qbevent)break;evnt(15844);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_L,qbs_add(_FUNC_EVALUATE_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15016);}while(r); +if(!qbevent)break;evnt(15845);}while(r); } } }else{ do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15020);}while(r); +if(!qbevent)break;evnt(15849);}while(r); } } do{ *_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15023);}while(r); -S_17604:; +if(!qbevent)break;evnt(15852);}while(r); +S_18551:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15024);if(r)goto S_17604;} +if(qbevent){evnt(15853);if(r)goto S_18551;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15024);}while(r); +if(!qbevent)break;evnt(15853);}while(r); } -S_17607:; +S_18554:; while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ -if(qbevent){evnt(15025);if(r)goto S_17607;} -S_17608:; +if(qbevent){evnt(15854);if(r)goto S_18554;} +S_18555:; if (( 0 )||new_error){ -if(qbevent){evnt(15027);if(r)goto S_17608;} +if(qbevent){evnt(15856);if(r)goto S_18555;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2355; +if (new_error) goto skip2564; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1 , 0 , 1 ); -if (new_error) goto skip2355; -skip2355: +if (new_error) goto skip2564; +skip2564: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15027);}while(r); +if(!qbevent)break;evnt(15856);}while(r); } -S_17611:; +S_18558:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15030);if(r)goto S_17611;} -S_17612:; +if(qbevent){evnt(15859);if(r)goto S_18558;} +S_18559:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(15031);if(r)goto S_17612;} -S_17613:; +if(qbevent){evnt(15860);if(r)goto S_18559;} +S_18560:; if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(15032);if(r)goto S_17613;} +if(qbevent){evnt(15861);if(r)goto S_18560;} do{ *_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(15033);}while(r); +if(!qbevent)break;evnt(15862);}while(r); do{ *__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15034);}while(r); +if(!qbevent)break;evnt(15863);}while(r); do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; -if(!qbevent)break;evnt(15035);}while(r); +if(!qbevent)break;evnt(15864);}while(r); do{ *_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15036);}while(r); +if(!qbevent)break;evnt(15865);}while(r); LABEL_EVALNEXTELE3:; -if(qbevent){evnt(15037);r=0;} +if(qbevent){evnt(15866);r=0;} do{ qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15038);}while(r); -S_17619:; +if(!qbevent)break;evnt(15867);}while(r); +S_18566:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15039);if(r)goto S_17619;} +if(qbevent){evnt(15868);if(r)goto S_18566;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15039);}while(r); +if(!qbevent)break;evnt(15868);}while(r); } -S_17622:; +S_18569:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15040);if(r)goto S_17622;} +if(qbevent){evnt(15869);if(r)goto S_18569;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15041);}while(r); -S_17624:; +if(!qbevent)break;evnt(15870);}while(r); +S_18571:; if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ -if(qbevent){evnt(15042);if(r)goto S_17624;} +if(qbevent){evnt(15871);if(r)goto S_18571;} do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2356=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2357=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_TYP2)); +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2565=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2566=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15043);}while(r); -S_17626:; +if(!qbevent)break;evnt(15872);}while(r); +S_18573:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15044);if(r)goto S_17626;} +if(qbevent){evnt(15873);if(r)goto S_18573;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15044);}while(r); +if(!qbevent)break;evnt(15873);}while(r); } do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; -if(!qbevent)break;evnt(15045);}while(r); -S_17630:; +if(!qbevent)break;evnt(15874);}while(r); +S_18577:; if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15048);if(r)goto S_17630;} +if(qbevent){evnt(15877);if(r)goto S_18577;} do{ SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID); -if(!qbevent)break;evnt(15050);}while(r); -S_17632:; +if(!qbevent)break;evnt(15879);}while(r); +S_18579:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15051);if(r)goto S_17632;} +if(qbevent){evnt(15880);if(r)goto S_18579;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15051);}while(r); +if(!qbevent)break;evnt(15880);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_O,qbs_right(_FUNC_EVALUATE_STRING_C,_FUNC_EVALUATE_STRING_C->len-func_instr(NULL,_FUNC_EVALUATE_STRING_C,__STRING1_SP3,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15052);}while(r); +if(!qbevent)break;evnt(15881);}while(r); do{ *_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 511 ; -if(!qbevent)break;evnt(15054);}while(r); +if(!qbevent)break;evnt(15883);}while(r); do{ *_FUNC_EVALUATE_LONG_S=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(15055);}while(r); -S_17638:; +if(!qbevent)break;evnt(15884);}while(r); +S_18585:; if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(15056);if(r)goto S_17638;} -S_17639:; +if(qbevent){evnt(15885);if(r)goto S_18585;} +S_18586:; if ((*_FUNC_EVALUATE_LONG_S% 8 )||new_error){ -if(qbevent){evnt(15057);if(r)goto S_17639;} +if(qbevent){evnt(15886);if(r)goto S_18586;} do{ *_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S+( 8 -(*_FUNC_EVALUATE_LONG_S% 8 )); -if(!qbevent)break;evnt(15057);}while(r); +if(!qbevent)break;evnt(15886);}while(r); } do{ *_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S/ 8 ; -if(!qbevent)break;evnt(15058);}while(r); +if(!qbevent)break;evnt(15887);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_O),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATE_LONG_S))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15060);}while(r); +if(!qbevent)break;evnt(15889);}while(r); do{ goto LABEL_EVALUDT; -if(!qbevent)break;evnt(15062);}while(r); +if(!qbevent)break;evnt(15891);}while(r); } do{ goto LABEL_EVALEDNEXTELE3; -if(!qbevent)break;evnt(15065);}while(r); +if(!qbevent)break;evnt(15894);}while(r); } } do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(15068);}while(r); +if(!qbevent)break;evnt(15897);}while(r); do{ goto LABEL_EVALNEXTELE3; -if(!qbevent)break;evnt(15069);}while(r); +if(!qbevent)break;evnt(15898);}while(r); LABEL_EVALEDNEXTELE3:; -if(qbevent){evnt(15070);r=0;} +if(qbevent){evnt(15899);r=0;} do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15071);}while(r); +if(!qbevent)break;evnt(15900);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15072);}while(r); +if(!qbevent)break;evnt(15901);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15073);}while(r); +if(!qbevent)break;evnt(15902);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15074);}while(r); -S_17656:; +if(!qbevent)break;evnt(15903);}while(r); +S_18603:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15075);if(r)goto S_17656;} +if(qbevent){evnt(15904);if(r)goto S_18603;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15075);}while(r); +if(!qbevent)break;evnt(15904);}while(r); } do{ goto LABEL_EVALED; -if(!qbevent)break;evnt(15076);}while(r); +if(!qbevent)break;evnt(15905);}while(r); } } }else{ -S_17663:; +S_18610:; if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ -if(qbevent){evnt(15084);if(r)goto S_17663;} -S_17664:; +if(qbevent){evnt(15913);if(r)goto S_18610;} +S_18611:; if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(15085);if(r)goto S_17664;} +if(qbevent){evnt(15914);if(r)goto S_18611;} do{ *__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15086);}while(r); +if(!qbevent)break;evnt(15915);}while(r); do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15087);}while(r); +if(!qbevent)break;evnt(15916);}while(r); do{ SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15088);}while(r); -S_17668:; +if(!qbevent)break;evnt(15917);}while(r); +S_18615:; if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15089);if(r)goto S_17668;} +if(qbevent){evnt(15918);if(r)goto S_18615;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15089);}while(r); +if(!qbevent)break;evnt(15918);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15090);}while(r); +if(!qbevent)break;evnt(15919);}while(r); do{ goto LABEL_EVALED; -if(!qbevent)break;evnt(15091);}while(r); +if(!qbevent)break;evnt(15920);}while(r); } } -S_17675:; +S_18622:; if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15096);if(r)goto S_17675;} -S_17676:; +if(qbevent){evnt(15925);if(r)goto S_18622;} +S_18623:; if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(15097);if(r)goto S_17676;} +if(qbevent){evnt(15926);if(r)goto S_18623;} do{ *__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15098);}while(r); +if(!qbevent)break;evnt(15927);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15099);}while(r); +if(!qbevent)break;evnt(15928);}while(r); LABEL_EVALUDT:; -if(qbevent){evnt(15100);r=0;} +if(qbevent){evnt(15929);r=0;} do{ *_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15101);}while(r); +if(!qbevent)break;evnt(15930);}while(r); do{ *_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15102);}while(r); -S_17681:; -fornext_value2360=*_FUNC_EVALUATE_LONG_I3; -fornext_finalvalue2360=*_FUNC_EVALUATE_LONG_N; -fornext_step2360= 1 ; -if (fornext_step2360<0) fornext_step_negative2360=1; else fornext_step_negative2360=0; -if (new_error) goto fornext_error2360; -goto fornext_entrylabel2360; +if(!qbevent)break;evnt(15931);}while(r); +S_18628:; +fornext_value2569=*_FUNC_EVALUATE_LONG_I3; +fornext_finalvalue2569=*_FUNC_EVALUATE_LONG_N; +fornext_step2569= 1 ; +if (fornext_step2569<0) fornext_step_negative2569=1; else fornext_step_negative2569=0; +if (new_error) goto fornext_error2569; +goto fornext_entrylabel2569; while(1){ -fornext_value2360=fornext_step2360+(*_FUNC_EVALUATE_LONG_I2); -fornext_entrylabel2360: -*_FUNC_EVALUATE_LONG_I2=fornext_value2360; -if (fornext_step_negative2360){ -if (fornext_value2360fornext_finalvalue2360) break; +if (fornext_value2569>fornext_finalvalue2569) break; } -fornext_error2360:; -if(qbevent){evnt(15103);if(r)goto S_17681;} +fornext_error2569:; +if(qbevent){evnt(15932);if(r)goto S_18628;} do{ qbs_set(_FUNC_EVALUATE_STRING_E2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15104);}while(r); -S_17683:; +if(!qbevent)break;evnt(15933);}while(r); +S_18630:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15105);if(r)goto S_17683;} +if(qbevent){evnt(15934);if(r)goto S_18630;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15105);}while(r); +if(!qbevent)break;evnt(15934);}while(r); } -S_17686:; +S_18633:; if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||new_error){ -if(qbevent){evnt(15106);if(r)goto S_17686;} -S_17687:; +if(qbevent){evnt(15935);if(r)goto S_18633;} +S_18634:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1)))|(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_E2))))||new_error){ -if(qbevent){evnt(15107);if(r)goto S_17687;} +if(qbevent){evnt(15936);if(r)goto S_18634;} do{ *_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ; -if(!qbevent)break;evnt(15108);}while(r); +if(!qbevent)break;evnt(15937);}while(r); do{ goto LABEL_GOTUDT; -if(!qbevent)break;evnt(15109);}while(r); +if(!qbevent)break;evnt(15938);}while(r); } } -S_17692:; +S_18639:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15112);if(r)goto S_17692;} +if(qbevent){evnt(15941);if(r)goto S_18639;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15112);}while(r); +if(!qbevent)break;evnt(15941);}while(r); } -fornext_continue_2359:; +fornext_continue_2568:; } -fornext_exit_2359:; +fornext_exit_2568:; do{ *_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N; -if(!qbevent)break;evnt(15114);}while(r); +if(!qbevent)break;evnt(15943);}while(r); LABEL_GOTUDT:; -if(qbevent){evnt(15115);r=0;} -S_17697:; +if(qbevent){evnt(15944);r=0;} +S_18644:; if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||new_error){ -if(qbevent){evnt(15116);if(r)goto S_17697;} +if(qbevent){evnt(15945);if(r)goto S_18644;} do{ qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15116);}while(r); +if(!qbevent)break;evnt(15945);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I3,_FUNC_EVALUATE_LONG_I4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15116);}while(r); +if(!qbevent)break;evnt(15945);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_UDTREFERENCE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_STRING_E,_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15118);}while(r); -S_17703:; +if(!qbevent)break;evnt(15947);}while(r); +S_18650:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15119);if(r)goto S_17703;} +if(qbevent){evnt(15948);if(r)goto S_18650;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15119);}while(r); +if(!qbevent)break;evnt(15948);}while(r); } do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4; -if(!qbevent)break;evnt(15120);}while(r); +if(!qbevent)break;evnt(15949);}while(r); do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15121);}while(r); +if(!qbevent)break;evnt(15950);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15122);}while(r); +if(!qbevent)break;evnt(15951);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15123);}while(r); +if(!qbevent)break;evnt(15952);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15124);}while(r); +if(!qbevent)break;evnt(15953);}while(r); do{ goto LABEL_EVALED; -if(!qbevent)break;evnt(15127);}while(r); +if(!qbevent)break;evnt(15956);}while(r); } } } -S_17715:; +S_18662:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(15134);if(r)goto S_17715;} +if(qbevent){evnt(15963);if(r)goto S_18662;} do{ *__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15135);}while(r); -S_17717:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2361=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15136);if(r)goto S_17717;} +if(!qbevent)break;evnt(15964);}while(r); +S_18664:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2570=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15965);if(r)goto S_18664;} do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; -if(!qbevent)break;evnt(15137);}while(r); +if(!qbevent)break;evnt(15966);}while(r); do{ *_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15138);}while(r); +if(!qbevent)break;evnt(15967);}while(r); do{ *_FUNC_EVALUATE_LONG_ARGS= 1 ; -if(!qbevent)break;evnt(15139);}while(r); +if(!qbevent)break;evnt(15968);}while(r); LABEL_EVALNEXTELE:; -if(qbevent){evnt(15140);r=0;} +if(qbevent){evnt(15969);r=0;} do{ qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15141);}while(r); -S_17722:; +if(!qbevent)break;evnt(15970);}while(r); +S_18669:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15142);if(r)goto S_17722;} +if(qbevent){evnt(15971);if(r)goto S_18669;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15142);}while(r); +if(!qbevent)break;evnt(15971);}while(r); } -S_17725:; +S_18672:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15143);if(r)goto S_17725;} +if(qbevent){evnt(15972);if(r)goto S_18672;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15144);}while(r); -S_17727:; +if(!qbevent)break;evnt(15973);}while(r); +S_18674:; if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ -if(qbevent){evnt(15145);if(r)goto S_17727;} -S_17728:; +if(qbevent){evnt(15974);if(r)goto S_18674;} +S_18675:; if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||new_error){ -if(qbevent){evnt(15146);if(r)goto S_17728;} +if(qbevent){evnt(15975);if(r)goto S_18675;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15146);}while(r); +if(!qbevent)break;evnt(15975);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15146);}while(r); +if(!qbevent)break;evnt(15975);}while(r); } do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2362=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2363=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2)); +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2571=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2572=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15147);}while(r); -S_17733:; +if(!qbevent)break;evnt(15976);}while(r); +S_18680:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15148);if(r)goto S_17733;} +if(qbevent){evnt(15977);if(r)goto S_18680;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15148);}while(r); +if(!qbevent)break;evnt(15977);}while(r); } do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; -if(!qbevent)break;evnt(15149);}while(r); +if(!qbevent)break;evnt(15978);}while(r); do{ goto LABEL_EVALEDNEXTELE; -if(!qbevent)break;evnt(15150);}while(r); +if(!qbevent)break;evnt(15979);}while(r); } } -S_17740:; +S_18687:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATE_LONG_B2== 0 ))))||new_error){ -if(qbevent){evnt(15153);if(r)goto S_17740;} +if(qbevent){evnt(15982);if(r)goto S_18687;} do{ *_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ; -if(!qbevent)break;evnt(15153);}while(r); +if(!qbevent)break;evnt(15982);}while(r); } do{ *_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(15154);}while(r); +if(!qbevent)break;evnt(15983);}while(r); do{ goto LABEL_EVALNEXTELE; -if(!qbevent)break;evnt(15155);}while(r); +if(!qbevent)break;evnt(15984);}while(r); }else{ do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2364= 0 ),_FUNC_EVALUATE_LONG_TYP2)); +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2573= 0 ),_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15158);}while(r); -S_17747:; +if(!qbevent)break;evnt(15987);}while(r); +S_18694:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15159);if(r)goto S_17747;} +if(qbevent){evnt(15988);if(r)goto S_18694;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15159);}while(r); +if(!qbevent)break;evnt(15988);}while(r); } } LABEL_EVALEDNEXTELE:; -if(qbevent){evnt(15161);r=0;} +if(qbevent){evnt(15990);r=0;} do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15162);}while(r); +if(!qbevent)break;evnt(15991);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15163);}while(r); +if(!qbevent)break;evnt(15992);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15164);}while(r); +if(!qbevent)break;evnt(15993);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15165);}while(r); -S_17755:; +if(!qbevent)break;evnt(15994);}while(r); +S_18702:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15166);if(r)goto S_17755;} +if(qbevent){evnt(15995);if(r)goto S_18702;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15166);}while(r); +if(!qbevent)break;evnt(15995);}while(r); } do{ goto LABEL_EVALED; -if(!qbevent)break;evnt(15167);}while(r); +if(!qbevent)break;evnt(15996);}while(r); } -S_17760:; +S_18707:; if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(15170);if(r)goto S_17760;} +if(qbevent){evnt(15999);if(r)goto S_18707;} do{ *__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(15170);}while(r); +if(!qbevent)break;evnt(15999);}while(r); do{ *_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15170);}while(r); +if(!qbevent)break;evnt(15999);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_TRY= 0 ; -if(!qbevent)break;evnt(15170);}while(r); +if(!qbevent)break;evnt(15999);}while(r); } -S_17766:; +S_18713:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15171);if(r)goto S_17766;} +if(qbevent){evnt(16000);if(r)goto S_18713;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15171);}while(r); +if(!qbevent)break;evnt(16000);}while(r); } -dl_continue_2354:; +dl_continue_2563:; } -dl_exit_2354:; -fornext_continue_2351:; +dl_exit_2563:; +fornext_continue_2560:; } -fornext_exit_2351:; -S_17771:; +fornext_exit_2560:; +S_18718:; if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ -if(qbevent){evnt(15177);if(r)goto S_17771;} -S_17772:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2365=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15178);if(r)goto S_17772;} -S_17773:; +if(qbevent){evnt(16006);if(r)goto S_18718;} +S_18719:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2574=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(16007);if(r)goto S_18719;} +S_18720:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ -if(qbevent){evnt(15179);if(r)goto S_17773;} -S_17774:; +if(qbevent){evnt(16008);if(r)goto S_18720;} +S_18721:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ -if(qbevent){evnt(15180);if(r)goto S_17774;} -S_17775:; +if(qbevent){evnt(16009);if(r)goto S_18721;} +S_18722:; if (( 0 )||new_error){ -if(qbevent){evnt(15181);if(r)goto S_17775;} +if(qbevent){evnt(16010);if(r)goto S_18722;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2366; +if (new_error) goto skip2575; sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0 , 0 , 1 ); -if (new_error) goto skip2366; -skip2366: +if (new_error) goto skip2575; +skip2575: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15182);}while(r); +if(!qbevent)break;evnt(16011);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2367; +if (new_error) goto skip2576; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("about to auto-create array:",27),_FUNC_EVALUATE_STRING_L), 0 , 1 , 0 ); -if (new_error) goto skip2367; +if (new_error) goto skip2576; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1 , 0 , 1 ); -if (new_error) goto skip2367; -skip2367: +if (new_error) goto skip2576; +skip2576: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15183);}while(r); +if(!qbevent)break;evnt(16012);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2368; +if (new_error) goto skip2577; sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0 , 0 , 1 ); -if (new_error) goto skip2368; -skip2368: +if (new_error) goto skip2577; +skip2577: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15184);}while(r); +if(!qbevent)break;evnt(16013);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15186);}while(r); -S_17781:; +if(!qbevent)break;evnt(16015);}while(r); +S_18728:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15187);if(r)goto S_17781;} +if(qbevent){evnt(16016);if(r)goto S_18728;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15187);}while(r); +if(!qbevent)break;evnt(16016);}while(r); } do{ *_FUNC_EVALUATE_LONG_NUME= 1 ; -if(!qbevent)break;evnt(15189);}while(r); +if(!qbevent)break;evnt(16018);}while(r); do{ *_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15190);}while(r); -S_17786:; -fornext_value2370=*_FUNC_EVALUATE_LONG_I+ 2 ; -fornext_finalvalue2370=*_FUNC_EVALUATE_LONG_N; -fornext_step2370= 1 ; -if (fornext_step2370<0) fornext_step_negative2370=1; else fornext_step_negative2370=0; -if (new_error) goto fornext_error2370; -goto fornext_entrylabel2370; +if(!qbevent)break;evnt(16019);}while(r); +S_18733:; +fornext_value2579=*_FUNC_EVALUATE_LONG_I+ 2 ; +fornext_finalvalue2579=*_FUNC_EVALUATE_LONG_N; +fornext_step2579= 1 ; +if (fornext_step2579<0) fornext_step_negative2579=1; else fornext_step_negative2579=0; +if (new_error) goto fornext_error2579; +goto fornext_entrylabel2579; while(1){ -fornext_value2370=fornext_step2370+(*_FUNC_EVALUATE_LONG_I2); -fornext_entrylabel2370: -*_FUNC_EVALUATE_LONG_I2=fornext_value2370; -if (fornext_step_negative2370){ -if (fornext_value2370fornext_finalvalue2370) break; +if (fornext_value2579>fornext_finalvalue2579) break; } -fornext_error2370:; -if(qbevent){evnt(15191);if(r)goto S_17786;} +fornext_error2579:; +if(qbevent){evnt(16020);if(r)goto S_18733;} do{ qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15192);}while(r); -S_17788:; +if(!qbevent)break;evnt(16021);}while(r); +S_18735:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15193);if(r)goto S_17788;} +if(qbevent){evnt(16022);if(r)goto S_18735;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15193);}while(r); +if(!qbevent)break;evnt(16022);}while(r); } -S_17791:; +S_18738:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_B2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(15194);if(r)goto S_17791;} +if(qbevent){evnt(16023);if(r)goto S_18738;} do{ *_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ; -if(!qbevent)break;evnt(15194);}while(r); +if(!qbevent)break;evnt(16023);}while(r); } -S_17794:; +S_18741:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15195);if(r)goto S_17794;} +if(qbevent){evnt(16024);if(r)goto S_18741;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15195);}while(r); +if(!qbevent)break;evnt(16024);}while(r); } -S_17797:; +S_18744:; if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ -if(qbevent){evnt(15196);if(r)goto S_17797;} +if(qbevent){evnt(16025);if(r)goto S_18744;} do{ -goto fornext_exit_2369; -if(!qbevent)break;evnt(15196);}while(r); +goto fornext_exit_2578; +if(!qbevent)break;evnt(16025);}while(r); } -fornext_continue_2369:; +fornext_continue_2578:; } -fornext_exit_2369:; +fornext_exit_2578:; do{ qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15198);}while(r); -S_17802:; -fornext_value2372= 2 ; -fornext_finalvalue2372=*_FUNC_EVALUATE_LONG_NUME; -fornext_step2372= 1 ; -if (fornext_step2372<0) fornext_step_negative2372=1; else fornext_step_negative2372=0; -if (new_error) goto fornext_error2372; -goto fornext_entrylabel2372; +if(!qbevent)break;evnt(16027);}while(r); +S_18749:; +fornext_value2581= 2 ; +fornext_finalvalue2581=*_FUNC_EVALUATE_LONG_NUME; +fornext_step2581= 1 ; +if (fornext_step2581<0) fornext_step_negative2581=1; else fornext_step_negative2581=0; +if (new_error) goto fornext_error2581; +goto fornext_entrylabel2581; while(1){ -fornext_value2372=fornext_step2372+(*_FUNC_EVALUATE_LONG_I2); -fornext_entrylabel2372: -*_FUNC_EVALUATE_LONG_I2=fornext_value2372; -if (fornext_step_negative2372){ -if (fornext_value2372fornext_finalvalue2372) break; +if (fornext_value2581>fornext_finalvalue2581) break; } -fornext_error2372:; -if(qbevent){evnt(15198);if(r)goto S_17802;} +fornext_error2581:; +if(qbevent){evnt(16027);if(r)goto S_18749;} do{ qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_FAKEE,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("10",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15198);}while(r); -fornext_continue_2371:; +if(!qbevent)break;evnt(16027);}while(r); +fornext_continue_2580:; } -fornext_exit_2371:; -S_17805:; +fornext_exit_2580:; +S_18752:; if (( 0 )||new_error){ -if(qbevent){evnt(15199);if(r)goto S_17805;} +if(qbevent){evnt(16028);if(r)goto S_18752;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2373; +if (new_error) goto skip2582; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluate:creating undefined array using dim2(",45),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len(",",1)),_FUNC_EVALUATE_STRING_DTYP),qbs_new_txt_len(",1,",3)),_FUNC_EVALUATE_STRING_FAKEE),qbs_new_txt_len(")",1)), 0 , 0 , 1 ); -if (new_error) goto skip2373; -skip2373: +if (new_error) goto skip2582; +skip2582: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15199);}while(r); +if(!qbevent)break;evnt(16028);}while(r); } -S_17808:; -if ((*__BYTE_OPTIONEXPLICIT)||new_error){ -if(qbevent){evnt(15200);if(r)goto S_17808;} +S_18755:; +if ((*__BYTE_OPTIONEXPLICIT|*__BYTE_OPTIONEXPLICITARRAY)||new_error){ +if(qbevent){evnt(16029);if(r)goto S_18755;} do{ SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Array '",7),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP)),qbs_new_txt_len(") not defined",13))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15200);}while(r); +if(!qbevent)break;evnt(16029);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15200);}while(r); +if(!qbevent)break;evnt(16029);}while(r); } -S_17812:; +S_18759:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15201);if(r)goto S_17812;} +if(qbevent){evnt(16030);if(r)goto S_18759;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15201);}while(r); +if(!qbevent)break;evnt(16030);}while(r); } do{ *_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; -if(!qbevent)break;evnt(15202);}while(r); +if(!qbevent)break;evnt(16031);}while(r); do{ *_FUNC_EVALUATE_LONG_METHOD= 1 ; -if(!qbevent)break;evnt(15203);}while(r); -S_17817:; +if(!qbevent)break;evnt(16032);}while(r); +S_18764:; if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(15204);if(r)goto S_17817;} +if(qbevent){evnt(16033);if(r)goto S_18764;} do{ *__LONG_AUTOARRAY= 1 ; -if(!qbevent)break;evnt(15205);}while(r); +if(!qbevent)break;evnt(16034);}while(r); do{ *_FUNC_EVALUATE_LONG_XI= 1 ; -if(!qbevent)break;evnt(15208);}while(r); -S_17820:; -fornext_value2375= 1 ; -fornext_finalvalue2375=*__LONG_STATICARRAYLISTN; -fornext_step2375= 1 ; -if (fornext_step2375<0) fornext_step_negative2375=1; else fornext_step_negative2375=0; -if (new_error) goto fornext_error2375; -goto fornext_entrylabel2375; +if(!qbevent)break;evnt(16037);}while(r); +S_18767:; +fornext_value2584= 1 ; +fornext_finalvalue2584=*__LONG_STATICARRAYLISTN; +fornext_step2584= 1 ; +if (fornext_step2584<0) fornext_step_negative2584=1; else fornext_step_negative2584=0; +if (new_error) goto fornext_error2584; +goto fornext_entrylabel2584; while(1){ -fornext_value2375=fornext_step2375+(*_FUNC_EVALUATE_LONG_X); -fornext_entrylabel2375: -*_FUNC_EVALUATE_LONG_X=fornext_value2375; -if (fornext_step_negative2375){ -if (fornext_value2375fornext_finalvalue2375) break; +if (fornext_value2584>fornext_finalvalue2584) break; } -fornext_error2375:; -if(qbevent){evnt(15209);if(r)goto S_17820;} +fornext_error2584:; +if(qbevent){evnt(16038);if(r)goto S_18767;} do{ qbs_set(_FUNC_EVALUATE_STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15210);}while(r); +if(!qbevent)break;evnt(16039);}while(r); do{ *_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; -if(!qbevent)break;evnt(15210);}while(r); +if(!qbevent)break;evnt(16039);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15211);}while(r); +if(!qbevent)break;evnt(16040);}while(r); do{ *_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; -if(!qbevent)break;evnt(15211);}while(r); +if(!qbevent)break;evnt(16040);}while(r); do{ *_FUNC_EVALUATE_LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15212);}while(r); +if(!qbevent)break;evnt(16041);}while(r); do{ *_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; -if(!qbevent)break;evnt(15212);}while(r); -S_17827:; +if(!qbevent)break;evnt(16041);}while(r); +S_18774:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATE_STRING_L),qbs_ucase(_FUNC_EVALUATE_STRING_VARNAME2))))||new_error){ -if(qbevent){evnt(15214);if(r)goto S_17827;} +if(qbevent){evnt(16043);if(r)goto S_18774;} do{ qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15215);}while(r); +if(!qbevent)break;evnt(16044);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_S,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15215);}while(r); -S_17830:; +if(!qbevent)break;evnt(16044);}while(r); +S_18777:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP),_FUNC_EVALUATE_STRING_TYP2))|(((-(*_FUNC_EVALUATE_LONG_DIMMETHOD2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_S,qbs_new_txt_len("",0)))))))||new_error){ -if(qbevent){evnt(15216);if(r)goto S_17830;} -S_17831:; +if(qbevent){evnt(16045);if(r)goto S_18777;} +S_18778:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15217);if(r)goto S_17831;} +if(qbevent){evnt(16046);if(r)goto S_18778;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15217);}while(r); +if(!qbevent)break;evnt(16046);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15219);}while(r); +if(!qbevent)break;evnt(16048);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15220);}while(r); +if(!qbevent)break;evnt(16049);}while(r); do{ *_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2; -if(!qbevent)break;evnt(15221);}while(r); +if(!qbevent)break;evnt(16050);}while(r); do{ *__LONG_DIMSTATIC= 3 ; -if(!qbevent)break;evnt(15222);}while(r); +if(!qbevent)break;evnt(16051);}while(r); } -S_17839:; +S_18786:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15224);if(r)goto S_17839;} +if(qbevent){evnt(16053);if(r)goto S_18786;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15224);}while(r); +if(!qbevent)break;evnt(16053);}while(r); } } -fornext_continue_2374:; +fornext_continue_2583:; } -fornext_exit_2374:; +fornext_exit_2583:; } do{ *__BYTE_BYPASSNEXTVARIABLE= -1 ; -if(!qbevent)break;evnt(15228);}while(r); +if(!qbevent)break;evnt(16057);}while(r); do{ *_FUNC_EVALUATE_LONG_IGNORE=FUNC_DIM2(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_LONG_METHOD,_FUNC_EVALUATE_STRING_FAKEE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15229);}while(r); -S_17847:; +if(!qbevent)break;evnt(16058);}while(r); +S_18794:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15230);if(r)goto S_17847;} +if(qbevent){evnt(16059);if(r)goto S_18794;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15230);}while(r); +if(!qbevent)break;evnt(16059);}while(r); } do{ *__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC; -if(!qbevent)break;evnt(15231);}while(r); -S_17851:; +if(!qbevent)break;evnt(16060);}while(r); +S_18798:; if (( 0 )||new_error){ -if(qbevent){evnt(15232);if(r)goto S_17851;} +if(qbevent){evnt(16061);if(r)goto S_18798;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2376; +if (new_error) goto skip2585; sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0 , 0 , 1 ); -if (new_error) goto skip2376; -skip2376: +if (new_error) goto skip2585; +skip2585: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15232);}while(r); +if(!qbevent)break;evnt(16061);}while(r); } do{ goto LABEL_REEVALUATE; -if(!qbevent)break;evnt(15233);}while(r); +if(!qbevent)break;evnt(16062);}while(r); } } } @@ -63389,308 +67377,308 @@ if(!qbevent)break;evnt(15233);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15239);}while(r); +if(!qbevent)break;evnt(16068);}while(r); } -S_17861:; +S_18808:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15243);if(r)goto S_17861;} -S_17862:; +if(qbevent){evnt(16072);if(r)goto S_18808;} +S_18809:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15244);if(r)goto S_17862;} +if(qbevent){evnt(16073);if(r)goto S_18809;} do{ *_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15244);}while(r); +if(!qbevent)break;evnt(16073);}while(r); } do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ; -if(!qbevent)break;evnt(15245);}while(r); +if(!qbevent)break;evnt(16074);}while(r); } -S_17867:; +S_18814:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15248);if(r)goto S_17867;} +if(qbevent){evnt(16077);if(r)goto S_18814;} do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15249);}while(r); +if(!qbevent)break;evnt(16078);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15250);}while(r); +if(!qbevent)break;evnt(16079);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(15251);}while(r); +if(!qbevent)break;evnt(16080);}while(r); } -S_17872:; +S_18819:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15254);if(r)goto S_17872;} +if(qbevent){evnt(16083);if(r)goto S_18819;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ; -if(!qbevent)break;evnt(15255);}while(r); -S_17874:; +if(!qbevent)break;evnt(16084);}while(r); +S_18821:; if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15256);if(r)goto S_17874;} +if(qbevent){evnt(16085);if(r)goto S_18821;} do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2377=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2)); +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2586=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15257);}while(r); -S_17876:; +if(!qbevent)break;evnt(16086);}while(r); +S_18823:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15258);if(r)goto S_17876;} +if(qbevent){evnt(16087);if(r)goto S_18823;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15258);}while(r); +if(!qbevent)break;evnt(16087);}while(r); } -S_17879:; +S_18826:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15259);if(r)goto S_17879;} +if(qbevent){evnt(16088);if(r)goto S_18826;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15259);}while(r); +if(!qbevent)break;evnt(16088);}while(r); } do{ *_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15260);}while(r); -S_17883:; +if(!qbevent)break;evnt(16089);}while(r); +S_18830:; if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(15261);if(r)goto S_17883;} +if(qbevent){evnt(16090);if(r)goto S_18830;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15262);}while(r); +if(!qbevent)break;evnt(16091);}while(r); }else{ do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_C),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15264);}while(r); +if(!qbevent)break;evnt(16093);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(15266);}while(r); +if(!qbevent)break;evnt(16095);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15267);}while(r); +if(!qbevent)break;evnt(16096);}while(r); } } LABEL_EVALED:; -if(qbevent){evnt(15270);r=0;} -fornext_continue_2346:; +if(qbevent){evnt(16099);r=0;} +fornext_continue_2555:; } -fornext_exit_2346:; +fornext_exit_2555:; do{ qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15273);}while(r); -S_17894:; +if(!qbevent)break;evnt(16102);}while(r); +S_18841:; if (( 0 )||new_error){ -if(qbevent){evnt(15275);if(r)goto S_17894;} +if(qbevent){evnt(16104);if(r)goto S_18841;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2378; +if (new_error) goto skip2587; sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0 , 0 , 0 ); -if (new_error) goto skip2378; -skip2378: +if (new_error) goto skip2587; +skip2587: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15275);}while(r); +if(!qbevent)break;evnt(16104);}while(r); } -S_17897:; -fornext_value2380= 1 ; -fornext_finalvalue2380=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2380= 1 ; -if (fornext_step2380<0) fornext_step_negative2380=1; else fornext_step_negative2380=0; -if (new_error) goto fornext_error2380; -goto fornext_entrylabel2380; +S_18844:; +fornext_value2589= 1 ; +fornext_finalvalue2589=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2589= 1 ; +if (fornext_step2589<0) fornext_step_negative2589=1; else fornext_step_negative2589=0; +if (new_error) goto fornext_error2589; +goto fornext_entrylabel2589; while(1){ -fornext_value2380=fornext_step2380+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2380: -*_FUNC_EVALUATE_LONG_I=fornext_value2380; -if (fornext_step_negative2380){ -if (fornext_value2380fornext_finalvalue2380) break; +if (fornext_value2589>fornext_finalvalue2589) break; } -fornext_error2380:; -if(qbevent){evnt(15276);if(r)goto S_17897;} -S_17898:; +fornext_error2589:; +if(qbevent){evnt(16105);if(r)goto S_18844;} +S_18845:; if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||new_error){ -if(qbevent){evnt(15277);if(r)goto S_17898;} -S_17899:; +if(qbevent){evnt(16106);if(r)goto S_18845;} +S_18846:; if (( 0 )||new_error){ -if(qbevent){evnt(15278);if(r)goto S_17899;} +if(qbevent){evnt(16107);if(r)goto S_18846;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2381; +if (new_error) goto skip2590; sub_file_print(tmp_fileno,qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),func_chr( 219 )), 0 , 0 , 0 ); -if (new_error) goto skip2381; -skip2381: +if (new_error) goto skip2590; +skip2590: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15278);}while(r); +if(!qbevent)break;evnt(16107);}while(r); } }else{ -S_17903:; +S_18850:; if (( 0 )||new_error){ -if(qbevent){evnt(15280);if(r)goto S_17903;} +if(qbevent){evnt(16109);if(r)goto S_18850;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2382; +if (new_error) goto skip2591; sub_file_print(tmp_fileno,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 0 , 0 , 1 ); -if (new_error) goto skip2382; -skip2382: +if (new_error) goto skip2591; +skip2591: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15280);}while(r); +if(!qbevent)break;evnt(16109);}while(r); } } -fornext_continue_2379:; +fornext_continue_2588:; } -fornext_exit_2379:; -S_17908:; -fornext_value2384= 1 ; -fornext_finalvalue2384=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2384= 1 ; -if (fornext_step2384<0) fornext_step_negative2384=1; else fornext_step_negative2384=0; -if (new_error) goto fornext_error2384; -goto fornext_entrylabel2384; +fornext_exit_2588:; +S_18855:; +fornext_value2593= 1 ; +fornext_finalvalue2593=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2593= 1 ; +if (fornext_step2593<0) fornext_step_negative2593=1; else fornext_step_negative2593=0; +if (new_error) goto fornext_error2593; +goto fornext_entrylabel2593; while(1){ -fornext_value2384=fornext_step2384+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2384: -*_FUNC_EVALUATE_LONG_I=fornext_value2384; -if (fornext_step_negative2384){ -if (fornext_value2384fornext_finalvalue2384) break; +if (fornext_value2593>fornext_finalvalue2593) break; } -fornext_error2384:; -if(qbevent){evnt(15287);if(r)goto S_17908;} -S_17909:; +fornext_error2593:; +if(qbevent){evnt(16116);if(r)goto S_18855;} +S_18856:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))== 0 )))||new_error){ -if(qbevent){evnt(15288);if(r)goto S_17909;} -S_17910:; +if(qbevent){evnt(16117);if(r)goto S_18856;} +S_18857:; if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||new_error){ -if(qbevent){evnt(15289);if(r)goto S_17910;} +if(qbevent){evnt(16118);if(r)goto S_18857;} do{ *_FUNC_EVALUATE_LONG_C=qbs_asc(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15292);}while(r); -S_17912:; +if(!qbevent)break;evnt(16121);}while(r); +S_18859:; if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||new_error){ -if(qbevent){evnt(15293);if(r)goto S_17912;} +if(qbevent){evnt(16122);if(r)goto S_18859;} do{ qbs_set(_FUNC_EVALUATE_STRING_NUM,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15294);}while(r); +if(!qbevent)break;evnt(16123);}while(r); do{ *_FUNC_EVALUATE_LONG_F= 0 ; -if(!qbevent)break;evnt(15296);}while(r); +if(!qbevent)break;evnt(16125);}while(r); do{ *_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("E",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15297);}while(r); -S_17916:; +if(!qbevent)break;evnt(16126);}while(r); +S_18863:; if ((*_FUNC_EVALUATE_LONG_X)||new_error){ -if(qbevent){evnt(15298);if(r)goto S_17916;} +if(qbevent){evnt(16127);if(r)goto S_18863;} do{ *_FUNC_EVALUATE_LONG_F= 1 ; -if(!qbevent)break;evnt(15299);}while(r); +if(!qbevent)break;evnt(16128);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15299);}while(r); +if(!qbevent)break;evnt(16128);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("D",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15301);}while(r); -S_17921:; +if(!qbevent)break;evnt(16130);}while(r); +S_18868:; if ((*_FUNC_EVALUATE_LONG_X)||new_error){ -if(qbevent){evnt(15302);if(r)goto S_17921;} +if(qbevent){evnt(16131);if(r)goto S_18868;} do{ *_FUNC_EVALUATE_LONG_F= 2 ; -if(!qbevent)break;evnt(15303);}while(r); +if(!qbevent)break;evnt(16132);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15303);}while(r); +if(!qbevent)break;evnt(16132);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("F",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15305);}while(r); -S_17926:; +if(!qbevent)break;evnt(16134);}while(r); +S_18873:; if ((*_FUNC_EVALUATE_LONG_X)||new_error){ -if(qbevent){evnt(15306);if(r)goto S_17926;} +if(qbevent){evnt(16135);if(r)goto S_18873;} do{ *_FUNC_EVALUATE_LONG_F= 3 ; -if(!qbevent)break;evnt(15307);}while(r); +if(!qbevent)break;evnt(16136);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15307);}while(r); +if(!qbevent)break;evnt(16136);}while(r); } } } -S_17932:; +S_18879:; if ((*_FUNC_EVALUATE_LONG_F)||new_error){ -if(qbevent){evnt(15311);if(r)goto S_17932;} -S_17933:; +if(qbevent){evnt(16140);if(r)goto S_18879;} +S_18880:; if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||new_error){ -if(qbevent){evnt(15313);if(r)goto S_17933;} +if(qbevent){evnt(16142);if(r)goto S_18880;} do{ sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1); -if(!qbevent)break;evnt(15313);}while(r); +if(!qbevent)break;evnt(16142);}while(r); } -S_17936:; +S_18883:; if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||new_error){ -if(qbevent){evnt(15314);if(r)goto S_17936;} +if(qbevent){evnt(16143);if(r)goto S_18883;} do{ qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("L",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15314);}while(r); +if(!qbevent)break;evnt(16143);}while(r); } }else{ do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=FUNC_TYPNAME2TYP(FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_NUM)); -if(!qbevent)break;evnt(15317);}while(r); -S_17941:; +if(!qbevent)break;evnt(16146);}while(r); +S_18888:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15318);if(r)goto S_17941;} +if(qbevent){evnt(16147);if(r)goto S_18888;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15318);}while(r); +if(!qbevent)break;evnt(16147);}while(r); } -S_17944:; +S_18891:; if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(15319);if(r)goto S_17944;} +if(qbevent){evnt(16148);if(r)goto S_18891;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15319);}while(r); +if(!qbevent)break;evnt(16148);}while(r); } -S_17947:; +S_18894:; if ((-((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]& 511 )> 32 ))||new_error){ -if(qbevent){evnt(15320);if(r)goto S_17947;} -S_17948:; +if(qbevent){evnt(16149);if(r)goto S_18894;} +S_18895:; if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(15321);if(r)goto S_17948;} +if(qbevent){evnt(16150);if(r)goto S_18895;} do{ qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ull",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15321);}while(r); +if(!qbevent)break;evnt(16150);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ll",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15321);}while(r); +if(!qbevent)break;evnt(16150);}while(r); } } } @@ -63698,5701 +67686,1266 @@ do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_FUNC_EVALUATE_STRING_NUM),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15324);}while(r); +if(!qbevent)break;evnt(16153);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(15325);}while(r); +if(!qbevent)break;evnt(16154);}while(r); do{ goto LABEL_EVALEDBLOCK; -if(!qbevent)break;evnt(15326);}while(r); +if(!qbevent)break;evnt(16155);}while(r); } -S_17959:; +S_18906:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(15384);if(r)goto S_17959;} -S_17960:; +if(qbevent){evnt(16213);if(r)goto S_18906;} +S_18907:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(15385);if(r)goto S_17960;} +if(qbevent){evnt(16214);if(r)goto S_18907;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len(",16),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15386);}while(r); +if(!qbevent)break;evnt(16215);}while(r); }else{ do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15388);}while(r); +if(!qbevent)break;evnt(16217);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_ISSTRING; -if(!qbevent)break;evnt(15390);}while(r); +if(!qbevent)break;evnt(16219);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(15391);}while(r); +if(!qbevent)break;evnt(16220);}while(r); do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15392);}while(r); +if(!qbevent)break;evnt(16221);}while(r); do{ goto LABEL_EVALEDBLOCK; -if(!qbevent)break;evnt(15393);}while(r); +if(!qbevent)break;evnt(16222);}while(r); } -S_17970:; +S_18917:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||new_error){ -if(qbevent){evnt(15397);if(r)goto S_17970;} +if(qbevent){evnt(16226);if(r)goto S_18917;} do{ qbs_set(_FUNC_EVALUATE_STRING_X,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15398);}while(r); +if(!qbevent)break;evnt(16227);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_TYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15400);}while(r); -S_17973:; +if(!qbevent)break;evnt(16229);}while(r); +S_18920:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15401);if(r)goto S_17973;} +if(qbevent){evnt(16230);if(r)goto S_18920;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15401);}while(r); +if(!qbevent)break;evnt(16230);}while(r); } -S_17976:; +S_18923:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||new_error){ -if(qbevent){evnt(15404);if(r)goto S_17976;} -S_17977:; +if(qbevent){evnt(16233);if(r)goto S_18923;} +S_18924:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_X, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(15405);if(r)goto S_17977;} +if(qbevent){evnt(16234);if(r)goto S_18924;} do{ *_FUNC_EVALUATE_LONG_V= 27 ; -if(!qbevent)break;evnt(15405);}while(r); +if(!qbevent)break;evnt(16234);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_X))- 64 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15405);}while(r); +if(!qbevent)break;evnt(16234);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15406);}while(r); +if(!qbevent)break;evnt(16235);}while(r); } do{ *_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15410);}while(r); -S_17985:; +if(!qbevent)break;evnt(16239);}while(r); +S_18932:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15411);if(r)goto S_17985;} +if(qbevent){evnt(16240);if(r)goto S_18932;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15411);}while(r); +if(!qbevent)break;evnt(16240);}while(r); } -S_17988:; +S_18935:; while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ -if(qbevent){evnt(15412);if(r)goto S_17988;} -S_17989:; +if(qbevent){evnt(16241);if(r)goto S_18935;} +S_18936:; if (( 0 )||new_error){ -if(qbevent){evnt(15413);if(r)goto S_17989;} +if(qbevent){evnt(16242);if(r)goto S_18936;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2387; +if (new_error) goto skip2596; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1 , 0 , 1 ); -if (new_error) goto skip2387; -skip2387: +if (new_error) goto skip2596; +skip2596: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15413);}while(r); +if(!qbevent)break;evnt(16242);}while(r); } -S_17992:; +S_18939:; if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ -if(qbevent){evnt(15414);if(r)goto S_17992;} +if(qbevent){evnt(16243);if(r)goto S_18939;} do{ goto LABEL_SIMPLEVARFOUND; -if(!qbevent)break;evnt(15415);}while(r); +if(!qbevent)break;evnt(16244);}while(r); } -S_17995:; +S_18942:; if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(15417);if(r)goto S_17995;} +if(qbevent){evnt(16246);if(r)goto S_18942;} do{ *__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(15417);}while(r); +if(!qbevent)break;evnt(16246);}while(r); do{ *_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15417);}while(r); +if(!qbevent)break;evnt(16246);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_TRY= 0 ; -if(!qbevent)break;evnt(15417);}while(r); +if(!qbevent)break;evnt(16246);}while(r); } -S_18001:; +S_18948:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15418);if(r)goto S_18001;} +if(qbevent){evnt(16247);if(r)goto S_18948;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15418);}while(r); +if(!qbevent)break;evnt(16247);}while(r); } -dl_continue_2386:; +dl_continue_2595:; } -dl_exit_2386:; -S_18005:; +dl_exit_2595:; +S_18952:; if (( 0 )||new_error){ -if(qbevent){evnt(15421);if(r)goto S_18005;} +if(qbevent){evnt(16250);if(r)goto S_18952;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2388; +if (new_error) goto skip2597; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("CREATING VARIABLE:",18),_FUNC_EVALUATE_STRING_X), 0 , 0 , 1 ); -if (new_error) goto skip2388; -skip2388: +if (new_error) goto skip2597; +skip2597: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15421);}while(r); +if(!qbevent)break;evnt(16250);}while(r); } -S_18008:; +S_18955:; if ((*__BYTE_OPTIONEXPLICIT)||new_error){ -if(qbevent){evnt(15422);if(r)goto S_18008;} +if(qbevent){evnt(16251);if(r)goto S_18955;} do{ SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),_FUNC_EVALUATE_STRING_X),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_TYP)),qbs_new_txt_len(") not defined",13))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15422);}while(r); +if(!qbevent)break;evnt(16251);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15422);}while(r); +if(!qbevent)break;evnt(16251);}while(r); } do{ *__BYTE_BYPASSNEXTVARIABLE= -1 ; -if(!qbevent)break;evnt(15423);}while(r); +if(!qbevent)break;evnt(16252);}while(r); do{ -*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2389= 1 ),qbs_new_txt_len("",0)); +*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2598= 1 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15424);}while(r); -S_18014:; +if(!qbevent)break;evnt(16253);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass2599= 0 ),&(pass2600= 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16254);}while(r); +S_18962:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15425);if(r)goto S_18014;} +if(qbevent){evnt(16255);if(r)goto S_18962;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15425);}while(r); +if(!qbevent)break;evnt(16255);}while(r); } LABEL_SIMPLEVARFOUND:; -if(qbevent){evnt(15427);r=0;} +if(qbevent){evnt(16257);r=0;} do{ *__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15428);}while(r); +if(!qbevent)break;evnt(16258);}while(r); do{ SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15429);}while(r); -S_18019:; +if(!qbevent)break;evnt(16259);}while(r); +S_18967:; if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15430);if(r)goto S_18019;} +if(qbevent){evnt(16260);if(r)goto S_18967;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15430);}while(r); +if(!qbevent)break;evnt(16260);}while(r); } -S_18022:; +S_18970:; if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ -if(qbevent){evnt(15431);if(r)goto S_18022;} -S_18023:; +if(qbevent){evnt(16261);if(r)goto S_18970;} +S_18971:; if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(15432);if(r)goto S_18023;} +if(qbevent){evnt(16262);if(r)goto S_18971;} do{ goto LABEL_RETURNPOINTER; -if(!qbevent)break;evnt(15432);}while(r); +if(!qbevent)break;evnt(16262);}while(r); } } do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2390= 0 ))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2601= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15435);}while(r); -S_18028:; +if(!qbevent)break;evnt(16265);}while(r); +S_18976:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15435);if(r)goto S_18028;} +if(qbevent){evnt(16265);if(r)goto S_18976;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15435);}while(r); +if(!qbevent)break;evnt(16265);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(15436);}while(r); +if(!qbevent)break;evnt(16266);}while(r); do{ goto LABEL_EVALEDBLOCK; -if(!qbevent)break;evnt(15437);}while(r); +if(!qbevent)break;evnt(16267);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15439);}while(r); +if(!qbevent)break;evnt(16269);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15439);}while(r); +if(!qbevent)break;evnt(16269);}while(r); }else{ -S_18037:; +S_18985:; if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(15442);if(r)goto S_18037;} -S_18038:; +if(qbevent){evnt(16272);if(r)goto S_18985;} +S_18986:; if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ -if(qbevent){evnt(15443);if(r)goto S_18038;} +if(qbevent){evnt(16273);if(r)goto S_18986;} do{ goto LABEL_RETURNPOINTER; -if(!qbevent)break;evnt(15443);}while(r); +if(!qbevent)break;evnt(16273);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2391= 0 ))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2602= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15447);}while(r); -S_18042:; +if(!qbevent)break;evnt(16277);}while(r); +S_18990:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15448);if(r)goto S_18042;} +if(qbevent){evnt(16278);if(r)goto S_18990;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(15448);}while(r); +if(!qbevent)break;evnt(16278);}while(r); } } } } LABEL_EVALEDBLOCK:; -if(qbevent){evnt(15454);r=0;} -fornext_continue_2383:; +if(qbevent){evnt(16284);r=0;} +fornext_continue_2592:; } -fornext_exit_2383:; -S_18049:; +fornext_exit_2592:; +S_18997:; if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ -if(qbevent){evnt(15459);if(r)goto S_18049;} -S_18050:; +if(qbevent){evnt(16289);if(r)goto S_18997;} +S_18998:; if ((((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])])||new_error){ -if(qbevent){evnt(15460);if(r)goto S_18050;} -S_18051:; +if(qbevent){evnt(16290);if(r)goto S_18998;} +S_18999:; if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(15461);if(r)goto S_18051;} +if(qbevent){evnt(16291);if(r)goto S_18999;} LABEL_RETURNPOINTER:; -if(qbevent){evnt(15462);r=0;} -S_18052:; +if(qbevent){evnt(16292);r=0;} +S_19000:; if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15463);if(r)goto S_18052;} +if(qbevent){evnt(16293);if(r)goto S_19000;} do{ *__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15463);}while(r); +if(!qbevent)break;evnt(16293);}while(r); } -S_18055:; +S_19003:; if (( 0 )||new_error){ -if(qbevent){evnt(15464);if(r)goto S_18055;} +if(qbevent){evnt(16294);if(r)goto S_19003;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2392; +if (new_error) goto skip2603; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluated reference:",20),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))), 0 , 0 , 1 ); -if (new_error) goto skip2392; -skip2392: +if (new_error) goto skip2603; +skip2603: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15464);}while(r); +if(!qbevent)break;evnt(16294);}while(r); } do{ *_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(15465);}while(r); +if(!qbevent)break;evnt(16295);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15466);}while(r); +if(!qbevent)break;evnt(16296);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15467);}while(r); +if(!qbevent)break;evnt(16297);}while(r); } } } -S_18064:; +S_19012:; if (( 0 )||new_error){ -if(qbevent){evnt(15480);if(r)goto S_18064;} +if(qbevent){evnt(16310);if(r)goto S_19012;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2393; +if (new_error) goto skip2604; sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0 , 0 , 0 ); -if (new_error) goto skip2393; -skip2393: +if (new_error) goto skip2604; +skip2604: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15480);}while(r); +if(!qbevent)break;evnt(16310);}while(r); } -S_18067:; +S_19015:; if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||new_error){ -if(qbevent){evnt(15483);if(r)goto S_18067;} +if(qbevent){evnt(16313);if(r)goto S_19015;} do{ *_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(15484);}while(r); -S_18069:; +if(!qbevent)break;evnt(16314);}while(r); +S_19017:; if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||new_error){ -if(qbevent){evnt(15487);if(r)goto S_18069;} +if(qbevent){evnt(16317);if(r)goto S_19017;} do{ *_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(15488);}while(r); +if(!qbevent)break;evnt(16318);}while(r); } } do{ *_FUNC_EVALUATE_LONG_NONOP= 0 ; -if(!qbevent)break;evnt(15492);}while(r); -S_18074:; -fornext_value2395= 1 ; -fornext_finalvalue2395=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2395= 1 ; -if (fornext_step2395<0) fornext_step_negative2395=1; else fornext_step_negative2395=0; -if (new_error) goto fornext_error2395; -goto fornext_entrylabel2395; +if(!qbevent)break;evnt(16322);}while(r); +S_19022:; +fornext_value2606= 1 ; +fornext_finalvalue2606=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2606= 1 ; +if (fornext_step2606<0) fornext_step_negative2606=1; else fornext_step_negative2606=0; +if (new_error) goto fornext_error2606; +goto fornext_entrylabel2606; while(1){ -fornext_value2395=fornext_step2395+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2395: -*_FUNC_EVALUATE_LONG_I=fornext_value2395; -if (fornext_step_negative2395){ -if (fornext_value2395fornext_finalvalue2395) break; +if (fornext_value2606>fornext_finalvalue2606) break; } -fornext_error2395:; -if(qbevent){evnt(15493);if(r)goto S_18074;} -S_18075:; +fornext_error2606:; +if(qbevent){evnt(16323);if(r)goto S_19022;} +S_19023:; if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||new_error){ -if(qbevent){evnt(15495);if(r)goto S_18075;} +if(qbevent){evnt(16325);if(r)goto S_19023;} do{ *_FUNC_EVALUATE_LONG_ISOP=FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15496);}while(r); -S_18077:; +if(!qbevent)break;evnt(16326);}while(r); +S_19025:; if ((*_FUNC_EVALUATE_LONG_ISOP)||new_error){ -if(qbevent){evnt(15497);if(r)goto S_18077;} +if(qbevent){evnt(16327);if(r)goto S_19025;} do{ *_FUNC_EVALUATE_LONG_NONOP= 0 ; -if(!qbevent)break;evnt(15498);}while(r); +if(!qbevent)break;evnt(16328);}while(r); do{ *__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15500);}while(r); +if(!qbevent)break;evnt(16330);}while(r); do{ qbs_set(_FUNC_EVALUATE_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15503);}while(r); +if(!qbevent)break;evnt(16333);}while(r); do{ *_FUNC_EVALUATE_LONG_U=FUNC_OPERATORUSAGE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_LONG_TYP,_FUNC_EVALUATE_STRING_I,_FUNC_EVALUATE_LONG_LHSTYP,_FUNC_EVALUATE_LONG_RHSTYP,_FUNC_EVALUATE_LONG_RESULT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15504);}while(r); -S_18082:; +if(!qbevent)break;evnt(16334);}while(r); +S_19030:; if ((-(*_FUNC_EVALUATE_LONG_U!= 5 ))||new_error){ -if(qbevent){evnt(15506);if(r)goto S_18082;} +if(qbevent){evnt(16336);if(r)goto S_19030;} do{ *_FUNC_EVALUATE_LONG_NONOP= 1 ; -if(!qbevent)break;evnt(15507);}while(r); -S_18084:; +if(!qbevent)break;evnt(16337);}while(r); +S_19032:; if (((-(*_FUNC_EVALUATE_LONG_I== 1 ))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(15508);if(r)goto S_18084;} -S_18085:; +if(qbevent){evnt(16338);if(r)goto S_19032;} +S_19033:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_I== 1 ))&(-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))&(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("-",1)))))||new_error){ -if(qbevent){evnt(15509);if(r)goto S_18085;} +if(qbevent){evnt(16339);if(r)goto S_19033;} do{ SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15509);}while(r); +if(!qbevent)break;evnt(16339);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15509);}while(r); +if(!qbevent)break;evnt(16339);}while(r); } do{ SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value before '",32),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15510);}while(r); +if(!qbevent)break;evnt(16340);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15510);}while(r); +if(!qbevent)break;evnt(16340);}while(r); } } -S_18093:; +S_19041:; if (((-(*_FUNC_EVALUATE_LONG_I==*_FUNC_EVALUATE_LONG_BLOCKN))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(15513);if(r)goto S_18093;} +if(qbevent){evnt(16343);if(r)goto S_19041;} do{ SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15513);}while(r); +if(!qbevent)break;evnt(16343);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15513);}while(r); +if(!qbevent)break;evnt(16343);}while(r); } do{ *_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP; -if(!qbevent)break;evnt(15521);}while(r); +if(!qbevent)break;evnt(16351);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(15522);}while(r); -S_18099:; +if(!qbevent)break;evnt(16352);}while(r); +S_19047:; if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||new_error){ -if(qbevent){evnt(15534);if(r)goto S_18099;} +if(qbevent){evnt(16364);if(r)goto S_19047;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15535);}while(r); +if(!qbevent)break;evnt(16365);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15535);}while(r); +if(!qbevent)break;evnt(16365);}while(r); } do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; -if(!qbevent)break;evnt(15539);}while(r); +if(!qbevent)break;evnt(16369);}while(r); do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; -if(!qbevent)break;evnt(15540);}while(r); -S_18105:; +if(!qbevent)break;evnt(16370);}while(r); +S_19053:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||new_error){ -if(qbevent){evnt(15541);if(r)goto S_18105;} +if(qbevent){evnt(16371);if(r)goto S_19053;} do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ; -if(!qbevent)break;evnt(15542);}while(r); -S_18107:; +if(!qbevent)break;evnt(16372);}while(r); +S_19055:; if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(15543);if(r)goto S_18107;} -S_18108:; +if(qbevent){evnt(16373);if(r)goto S_19055;} +S_19056:; if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ -if(qbevent){evnt(15544);if(r)goto S_18108;} +if(qbevent){evnt(16374);if(r)goto S_19056;} do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; -if(!qbevent)break;evnt(15544);}while(r); +if(!qbevent)break;evnt(16374);}while(r); } } -S_18112:; +S_19060:; if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(15546);if(r)goto S_18112;} -S_18113:; +if(qbevent){evnt(16376);if(r)goto S_19060;} +S_19061:; if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ -if(qbevent){evnt(15547);if(r)goto S_18113;} +if(qbevent){evnt(16377);if(r)goto S_19061;} do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; -if(!qbevent)break;evnt(15547);}while(r); +if(!qbevent)break;evnt(16377);}while(r); } } -S_18117:; +S_19065:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ -if(qbevent){evnt(15553);if(r)goto S_18117;} -S_18118:; +if(qbevent){evnt(16383);if(r)goto S_19065;} +S_19066:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ -if(qbevent){evnt(15554);if(r)goto S_18118;} -S_18119:; +if(qbevent){evnt(16384);if(r)goto S_19066;} +S_19067:; if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ -if(qbevent){evnt(15556);if(r)goto S_18119;} +if(qbevent){evnt(16386);if(r)goto S_19067;} do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; -if(!qbevent)break;evnt(15557);}while(r); -S_18121:; +if(!qbevent)break;evnt(16387);}while(r); +S_19069:; if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(15558);if(r)goto S_18121;} +if(qbevent){evnt(16388);if(r)goto S_19069;} do{ *_FUNC_EVALUATE_LONG_LHSTYP= 2 ; -if(!qbevent)break;evnt(15558);}while(r); +if(!qbevent)break;evnt(16388);}while(r); } -S_18124:; +S_19072:; if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(15559);if(r)goto S_18124;} +if(qbevent){evnt(16389);if(r)goto S_19072;} do{ *_FUNC_EVALUATE_LONG_RHSTYP= 2 ; -if(!qbevent)break;evnt(15559);}while(r); +if(!qbevent)break;evnt(16389);}while(r); } } } -S_18129:; +S_19077:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ -if(qbevent){evnt(15562);if(r)goto S_18129;} +if(qbevent){evnt(16392);if(r)goto S_19077;} do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; -if(!qbevent)break;evnt(15564);}while(r); -S_18131:; +if(!qbevent)break;evnt(16394);}while(r); +S_19079:; if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(15565);if(r)goto S_18131;} +if(qbevent){evnt(16395);if(r)goto S_19079;} do{ *_FUNC_EVALUATE_LONG_LHSTYP= 2 ; -if(!qbevent)break;evnt(15565);}while(r); +if(!qbevent)break;evnt(16395);}while(r); } -S_18134:; +S_19082:; if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(15566);if(r)goto S_18134;} +if(qbevent){evnt(16396);if(r)goto S_19082;} do{ *_FUNC_EVALUATE_LONG_RHSTYP= 2 ; -if(!qbevent)break;evnt(15566);}while(r); +if(!qbevent)break;evnt(16396);}while(r); } } }else{ -S_18139:; +S_19087:; if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||new_error){ -if(qbevent){evnt(15569);if(r)goto S_18139;} +if(qbevent){evnt(16399);if(r)goto S_19087;} do{ *_FUNC_EVALUATE_LONG_LHSTYP= 1 ; -if(!qbevent)break;evnt(15569);}while(r); +if(!qbevent)break;evnt(16399);}while(r); } -S_18142:; +S_19090:; if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||new_error){ -if(qbevent){evnt(15570);if(r)goto S_18142;} +if(qbevent){evnt(16400);if(r)goto S_19090;} do{ *_FUNC_EVALUATE_LONG_RHSTYP= 1 ; -if(!qbevent)break;evnt(15570);}while(r); +if(!qbevent)break;evnt(16400);}while(r); } } -S_18146:; +S_19094:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(15573);if(r)goto S_18146;} +if(qbevent){evnt(16403);if(r)goto S_19094;} do{ *_FUNC_EVALUATE_LONG_RESULT= 1 ; -if(!qbevent)break;evnt(15573);}while(r); +if(!qbevent)break;evnt(16403);}while(r); } } -S_18150:; +S_19098:; if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15580);if(r)goto S_18150;} -S_18151:; +if(qbevent){evnt(16410);if(r)goto S_19098;} +S_19099:; if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||new_error){ -if(qbevent){evnt(15581);if(r)goto S_18151;} +if(qbevent){evnt(16411);if(r)goto S_19099;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15581);}while(r); +if(!qbevent)break;evnt(16411);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15581);}while(r); +if(!qbevent)break;evnt(16411);}while(r); } }else{ -S_18156:; +S_19104:; if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||new_error){ -if(qbevent){evnt(15584);if(r)goto S_18156;} +if(qbevent){evnt(16414);if(r)goto S_19104;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15584);}while(r); +if(!qbevent)break;evnt(16414);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15584);}while(r); +if(!qbevent)break;evnt(16414);}while(r); } -S_18160:; +S_19108:; if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(15585);if(r)goto S_18160;} -S_18161:; +if(qbevent){evnt(16415);if(r)goto S_19108;} +S_19109:; if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||new_error){ -if(qbevent){evnt(15586);if(r)goto S_18161;} +if(qbevent){evnt(16416);if(r)goto S_19109;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15588);}while(r); +if(!qbevent)break;evnt(16418);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 64 ; -if(!qbevent)break;evnt(15589);}while(r); +if(!qbevent)break;evnt(16419);}while(r); } }else{ -S_18166:; +S_19114:; if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||new_error){ -if(qbevent){evnt(15593);if(r)goto S_18166;} +if(qbevent){evnt(16423);if(r)goto S_19114;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15595);}while(r); +if(!qbevent)break;evnt(16425);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(15596);}while(r); +if(!qbevent)break;evnt(16426);}while(r); } } } -S_18172:; +S_19120:; if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15601);if(r)goto S_18172;} -S_18173:; +if(qbevent){evnt(16431);if(r)goto S_19120;} +S_19121:; if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||new_error){ -if(qbevent){evnt(15602);if(r)goto S_18173;} +if(qbevent){evnt(16432);if(r)goto S_19121;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15602);}while(r); +if(!qbevent)break;evnt(16432);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15602);}while(r); +if(!qbevent)break;evnt(16432);}while(r); } }else{ -S_18178:; +S_19126:; if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||new_error){ -if(qbevent){evnt(15605);if(r)goto S_18178;} +if(qbevent){evnt(16435);if(r)goto S_19126;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15605);}while(r); +if(!qbevent)break;evnt(16435);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15605);}while(r); +if(!qbevent)break;evnt(16435);}while(r); } -S_18182:; +S_19130:; if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(15606);if(r)goto S_18182;} -S_18183:; +if(qbevent){evnt(16436);if(r)goto S_19130;} +S_19131:; if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||new_error){ -if(qbevent){evnt(15607);if(r)goto S_18183;} +if(qbevent){evnt(16437);if(r)goto S_19131;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15609);}while(r); +if(!qbevent)break;evnt(16439);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 64 ; -if(!qbevent)break;evnt(15610);}while(r); +if(!qbevent)break;evnt(16440);}while(r); } }else{ -S_18188:; +S_19136:; if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||new_error){ -if(qbevent){evnt(15614);if(r)goto S_18188;} +if(qbevent){evnt(16444);if(r)goto S_19136;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15616);}while(r); +if(!qbevent)break;evnt(16446);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(15617);}while(r); +if(!qbevent)break;evnt(16447);}while(r); } } } -S_18194:; +S_19142:; if ((-(*_FUNC_EVALUATE_LONG_ISOP== 7 ))||new_error){ -if(qbevent){evnt(15623);if(r)goto S_18194;} -S_18195:; +if(qbevent){evnt(16453);if(r)goto S_19142;} +S_19143:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ -if(qbevent){evnt(15633);if(r)goto S_18195;} +if(qbevent){evnt(16463);if(r)goto S_19143;} do{ *_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(15634);}while(r); +if(!qbevent)break;evnt(16464);}while(r); do{ *_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(15634);}while(r); -S_18198:; +if(!qbevent)break;evnt(16464);}while(r); +S_19146:; if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||new_error){ -if(qbevent){evnt(15635);if(r)goto S_18198;} +if(qbevent){evnt(16465);if(r)goto S_19146;} do{ *_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2; -if(!qbevent)break;evnt(15635);}while(r); +if(!qbevent)break;evnt(16465);}while(r); } -S_18201:; +S_19149:; if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||new_error){ -if(qbevent){evnt(15636);if(r)goto S_18201;} +if(qbevent){evnt(16466);if(r)goto S_19149;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15637);}while(r); +if(!qbevent)break;evnt(16467);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(15637);}while(r); +if(!qbevent)break;evnt(16467);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15638);}while(r); +if(!qbevent)break;evnt(16468);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(15638);}while(r); +if(!qbevent)break;evnt(16468);}while(r); } -S_18207:; +S_19155:; if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||new_error){ -if(qbevent){evnt(15640);if(r)goto S_18207;} +if(qbevent){evnt(16470);if(r)goto S_19155;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15641);}while(r); +if(!qbevent)break;evnt(16471);}while(r); do{ *_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(15641);}while(r); +if(!qbevent)break;evnt(16471);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15642);}while(r); +if(!qbevent)break;evnt(16472);}while(r); do{ *_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(15642);}while(r); +if(!qbevent)break;evnt(16472);}while(r); } } } do{ *_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP; -if(!qbevent)break;evnt(15647);}while(r); -S_18216:; +if(!qbevent)break;evnt(16477);}while(r); +S_19164:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(15654);if(r)goto S_18216;} -S_18217:; +if(qbevent){evnt(16484);if(r)goto S_19164;} +S_19165:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ -if(qbevent){evnt(15655);if(r)goto S_18217;} +if(qbevent){evnt(16485);if(r)goto S_19165;} do{ *_FUNC_EVALUATE_LONG_B= 0 ; -if(!qbevent)break;evnt(15657);}while(r); -S_18219:; +if(!qbevent)break;evnt(16487);}while(r); +S_19167:; if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(15657);if(r)goto S_18219;} +if(qbevent){evnt(16487);if(r)goto S_19167;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(15657);}while(r); +if(!qbevent)break;evnt(16487);}while(r); } -S_18222:; +S_19170:; if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(15658);if(r)goto S_18222;} +if(qbevent){evnt(16488);if(r)goto S_19170;} do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(15659);}while(r); -S_18224:; +if(!qbevent)break;evnt(16489);}while(r); +S_19172:; if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(15659);if(r)goto S_18224;} +if(qbevent){evnt(16489);if(r)goto S_19172;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; -if(!qbevent)break;evnt(15659);}while(r); +if(!qbevent)break;evnt(16489);}while(r); } } do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; -if(!qbevent)break;evnt(15661);}while(r); +if(!qbevent)break;evnt(16491);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(15666);}while(r); +if(!qbevent)break;evnt(16496);}while(r); do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(15666);}while(r); -S_18232:; +if(!qbevent)break;evnt(16496);}while(r); +S_19180:; if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(15666);if(r)goto S_18232;} +if(qbevent){evnt(16496);if(r)goto S_19180;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; -if(!qbevent)break;evnt(15666);}while(r); +if(!qbevent)break;evnt(16496);}while(r); } do{ *_FUNC_EVALUATE_LONG_TYP= 64 ; -if(!qbevent)break;evnt(15667);}while(r); -S_18236:; +if(!qbevent)break;evnt(16497);}while(r); +S_19184:; if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(15668);if(r)goto S_18236;} -S_18237:; +if(qbevent){evnt(16498);if(r)goto S_19184;} +S_19185:; if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(15669);if(r)goto S_18237;} +if(qbevent){evnt(16499);if(r)goto S_19185;} do{ *_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15669);}while(r); +if(!qbevent)break;evnt(16499);}while(r); } } } } -S_18243:; +S_19191:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(15674);if(r)goto S_18243;} -S_18244:; +if(qbevent){evnt(16504);if(r)goto S_19191;} +S_19192:; if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||new_error){ -if(qbevent){evnt(15675);if(r)goto S_18244;} +if(qbevent){evnt(16505);if(r)goto S_19192;} do{ *_FUNC_EVALUATE_LONG_TYP= 64 ; -if(!qbevent)break;evnt(15675);}while(r); +if(!qbevent)break;evnt(16505);}while(r); } } -S_18248:; +S_19196:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(15677);if(r)goto S_18248;} -S_18249:; +if(qbevent){evnt(16507);if(r)goto S_19196;} +S_19197:; if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(15678);if(r)goto S_18249;} +if(qbevent){evnt(16508);if(r)goto S_19197;} do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ; -if(!qbevent)break;evnt(15678);}while(r); +if(!qbevent)break;evnt(16508);}while(r); } } -S_18253:; +S_19201:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||new_error){ -if(qbevent){evnt(15680);if(r)goto S_18253;} +if(qbevent){evnt(16510);if(r)goto S_19201;} do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(15681);}while(r); +if(!qbevent)break;evnt(16511);}while(r); } -S_18256:; +S_19204:; if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||new_error){ -if(qbevent){evnt(15683);if(r)goto S_18256;} +if(qbevent){evnt(16513);if(r)goto S_19204;} do{ *_FUNC_EVALUATE_LONG_TYP= 32 ; -if(!qbevent)break;evnt(15684);}while(r); +if(!qbevent)break;evnt(16514);}while(r); } -S_18259:; +S_19207:; if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ -if(qbevent){evnt(15688);if(r)goto S_18259;} -S_18260:; +if(qbevent){evnt(16518);if(r)goto S_19207;} +S_19208:; if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||new_error){ -if(qbevent){evnt(15689);if(r)goto S_18260;} +if(qbevent){evnt(16519);if(r)goto S_19208;} do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15690);}while(r); -S_18262:; +if(!qbevent)break;evnt(16520);}while(r); +S_19210:; if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||new_error){ -if(qbevent){evnt(15690);if(r)goto S_18262;} +if(qbevent){evnt(16520);if(r)goto S_19210;} do{ *_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15690);}while(r); +if(!qbevent)break;evnt(16520);}while(r); } } } -S_18267:; +S_19215:; if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ -if(qbevent){evnt(15695);if(r)goto S_18267;} -S_18268:; +if(qbevent){evnt(16525);if(r)goto S_19215;} +S_19216:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||new_error){ -if(qbevent){evnt(15696);if(r)goto S_18268;} -S_18269:; +if(qbevent){evnt(16526);if(r)goto S_19216;} +S_19217:; if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ -if(qbevent){evnt(15698);if(r)goto S_18269;} +if(qbevent){evnt(16528);if(r)goto S_19217;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Operator '^' cannot be used with an _OFFSET",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15698);}while(r); +if(!qbevent)break;evnt(16528);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15698);}while(r); +if(!qbevent)break;evnt(16528);}while(r); } do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(15702);}while(r); -S_18274:; +if(!qbevent)break;evnt(16532);}while(r); +S_19222:; if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(15703);if(r)goto S_18274;} +if(qbevent){evnt(16533);if(r)goto S_19222;} }else{ -S_18276:; +S_19224:; if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||new_error){ -if(qbevent){evnt(15706);if(r)goto S_18276;} +if(qbevent){evnt(16536);if(r)goto S_19224;} do{ *_FUNC_EVALUATE_LONG_B= 64 ; -if(!qbevent)break;evnt(15706);}while(r); +if(!qbevent)break;evnt(16536);}while(r); } -S_18279:; +S_19227:; if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||new_error){ -if(qbevent){evnt(15707);if(r)goto S_18279;} +if(qbevent){evnt(16537);if(r)goto S_19227;} do{ *_FUNC_EVALUATE_LONG_B= 256 ; -if(!qbevent)break;evnt(15707);}while(r); +if(!qbevent)break;evnt(16537);}while(r); } -S_18282:; +S_19230:; if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||new_error){ -if(qbevent){evnt(15708);if(r)goto S_18282;} +if(qbevent){evnt(16538);if(r)goto S_19230;} do{ *_FUNC_EVALUATE_LONG_B= 32 ; -if(!qbevent)break;evnt(15708);}while(r); +if(!qbevent)break;evnt(16538);}while(r); } } do{ *_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(15710);}while(r); -S_18287:; +if(!qbevent)break;evnt(16540);}while(r); +S_19235:; if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(15711);if(r)goto S_18287;} -S_18288:; +if(qbevent){evnt(16541);if(r)goto S_19235;} +S_19236:; if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(15712);if(r)goto S_18288;} +if(qbevent){evnt(16542);if(r)goto S_19236;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; -if(!qbevent)break;evnt(15712);}while(r); +if(!qbevent)break;evnt(16542);}while(r); } }else{ do{ *_FUNC_EVALUATE_LONG_B3= 32 ; -if(!qbevent)break;evnt(15714);}while(r); -S_18293:; +if(!qbevent)break;evnt(16544);}while(r); +S_19241:; if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||new_error){ -if(qbevent){evnt(15715);if(r)goto S_18293;} +if(qbevent){evnt(16545);if(r)goto S_19241;} do{ *_FUNC_EVALUATE_LONG_B3= 64 ; -if(!qbevent)break;evnt(15715);}while(r); +if(!qbevent)break;evnt(16545);}while(r); } -S_18296:; +S_19244:; if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||new_error){ -if(qbevent){evnt(15716);if(r)goto S_18296;} +if(qbevent){evnt(16546);if(r)goto S_19244;} do{ *_FUNC_EVALUATE_LONG_B3= 256 ; -if(!qbevent)break;evnt(15716);}while(r); +if(!qbevent)break;evnt(16546);}while(r); } -S_18299:; +S_19247:; if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(15717);if(r)goto S_18299;} +if(qbevent){evnt(16547);if(r)goto S_19247;} do{ *_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3; -if(!qbevent)break;evnt(15717);}while(r); +if(!qbevent)break;evnt(16547);}while(r); } } do{ *_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; -if(!qbevent)break;evnt(15719);}while(r); +if(!qbevent)break;evnt(16549);}while(r); } } -S_18306:; +S_19254:; if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||new_error){ -if(qbevent){evnt(15726);if(r)goto S_18306;} +if(qbevent){evnt(16556);if(r)goto S_19254;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15727);}while(r); +if(!qbevent)break;evnt(16557);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15728);}while(r); +if(!qbevent)break;evnt(16558);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15728);}while(r); +if(!qbevent)break;evnt(16558);}while(r); do{ goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(15728);}while(r); +if(!qbevent)break;evnt(16558);}while(r); } -S_18312:; +S_19260:; if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||new_error){ -if(qbevent){evnt(15733);if(r)goto S_18312;} +if(qbevent){evnt(16563);if(r)goto S_19260;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15734);}while(r); +if(!qbevent)break;evnt(16564);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15735);}while(r); +if(!qbevent)break;evnt(16565);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15735);}while(r); +if(!qbevent)break;evnt(16565);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15735);}while(r); +if(!qbevent)break;evnt(16565);}while(r); do{ goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(15735);}while(r); +if(!qbevent)break;evnt(16565);}while(r); } -S_18319:; +S_19267:; if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ -if(qbevent){evnt(15738);if(r)goto S_18319;} +if(qbevent){evnt(16568);if(r)goto S_19267;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(",",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15739);}while(r); +if(!qbevent)break;evnt(16569);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15740);}while(r); +if(!qbevent)break;evnt(16570);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15740);}while(r); +if(!qbevent)break;evnt(16570);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15740);}while(r); +if(!qbevent)break;evnt(16570);}while(r); do{ goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(15740);}while(r); +if(!qbevent)break;evnt(16570);}while(r); } -S_18326:; +S_19274:; if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||new_error){ -if(qbevent){evnt(15743);if(r)goto S_18326;} +if(qbevent){evnt(16573);if(r)goto S_19274;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15744);}while(r); +if(!qbevent)break;evnt(16574);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15745);}while(r); +if(!qbevent)break;evnt(16575);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15745);}while(r); +if(!qbevent)break;evnt(16575);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15745);}while(r); +if(!qbevent)break;evnt(16575);}while(r); do{ goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(15745);}while(r); +if(!qbevent)break;evnt(16575);}while(r); } -S_18333:; +S_19281:; if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||new_error){ -if(qbevent){evnt(15748);if(r)goto S_18333;} +if(qbevent){evnt(16578);if(r)goto S_19281;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15749);}while(r); +if(!qbevent)break;evnt(16579);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15750);}while(r); +if(!qbevent)break;evnt(16580);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15750);}while(r); +if(!qbevent)break;evnt(16580);}while(r); do{ *_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15750);}while(r); +if(!qbevent)break;evnt(16580);}while(r); do{ goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(15750);}while(r); +if(!qbevent)break;evnt(16580);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("ERROR: Operator could not be applied correctly!",47)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15755);}while(r); +if(!qbevent)break;evnt(16585);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15755);}while(r); +if(!qbevent)break;evnt(16585);}while(r); LABEL_OPERATORAPPLIED:; -if(qbevent){evnt(15756);r=0;} -S_18342:; +if(qbevent){evnt(16586);r=0;} +S_19290:; if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||new_error){ -if(qbevent){evnt(15758);if(r)goto S_18342;} +if(qbevent){evnt(16588);if(r)goto S_19290;} do{ tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15758);}while(r); +if(!qbevent)break;evnt(16588);}while(r); do{ *_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; -if(!qbevent)break;evnt(15758);}while(r); +if(!qbevent)break;evnt(16588);}while(r); } do{ *_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; -if(!qbevent)break;evnt(15759);}while(r); +if(!qbevent)break;evnt(16589);}while(r); }else{ do{ *_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; -if(!qbevent)break;evnt(15762);}while(r); +if(!qbevent)break;evnt(16592);}while(r); } }else{ do{ *_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; -if(!qbevent)break;evnt(15765);}while(r); +if(!qbevent)break;evnt(16595);}while(r); } -S_18353:; +S_19301:; if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||new_error){ -if(qbevent){evnt(15767);if(r)goto S_18353;} +if(qbevent){evnt(16597);if(r)goto S_19301;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15767);}while(r); +if(!qbevent)break;evnt(16597);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(15767);}while(r); +if(!qbevent)break;evnt(16597);}while(r); } -fornext_continue_2394:; +fornext_continue_2605:; } -fornext_exit_2394:; -S_18358:; +fornext_exit_2605:; +S_19306:; if (( 0 )||new_error){ -if(qbevent){evnt(15769);if(r)goto S_18358;} +if(qbevent){evnt(16599);if(r)goto S_19306;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2396; +if (new_error) goto skip2607; sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); -if (new_error) goto skip2396; -skip2396: +if (new_error) goto skip2607; +skip2607: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15769);}while(r); +if(!qbevent)break;evnt(16599);}while(r); } -S_18361:; -fornext_value2398= 1 ; -fornext_finalvalue2398=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2398= 1 ; -if (fornext_step2398<0) fornext_step_negative2398=1; else fornext_step_negative2398=0; -if (new_error) goto fornext_error2398; -goto fornext_entrylabel2398; +S_19309:; +fornext_value2609= 1 ; +fornext_finalvalue2609=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2609= 1 ; +if (fornext_step2609<0) fornext_step_negative2609=1; else fornext_step_negative2609=0; +if (new_error) goto fornext_error2609; +goto fornext_entrylabel2609; while(1){ -fornext_value2398=fornext_step2398+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2398: -*_FUNC_EVALUATE_LONG_I=fornext_value2398; -if (fornext_step_negative2398){ -if (fornext_value2398fornext_finalvalue2398) break; +if (fornext_value2609>fornext_finalvalue2609) break; } -fornext_error2398:; -if(qbevent){evnt(15772);if(r)goto S_18361;} +fornext_error2609:; +if(qbevent){evnt(16602);if(r)goto S_19309;} do{ qbs_set(_FUNC_EVALUATE_STRING_R,qbs_add(_FUNC_EVALUATE_STRING_R,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15773);}while(r); -fornext_continue_2397:; +if(!qbevent)break;evnt(16603);}while(r); +fornext_continue_2608:; } -fornext_exit_2397:; -S_18364:; +fornext_exit_2608:; +S_19312:; if (( 0 )||new_error){ -if(qbevent){evnt(15776);if(r)goto S_18364;} +if(qbevent){evnt(16606);if(r)goto S_19312;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2399; +if (new_error) goto skip2610; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluated:",10),_FUNC_EVALUATE_STRING_R),qbs_new_txt_len(" AS TYPE:",9)), 0 , 0 , 0 ); -if (new_error) goto skip2399; -skip2399: +if (new_error) goto skip2610; +skip2610: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15777);}while(r); -S_18366:; +if(!qbevent)break;evnt(16607);}while(r); +S_19314:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15778);if(r)goto S_18366;} +if(qbevent){evnt(16608);if(r)goto S_19314;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2400; +if (new_error) goto skip2611; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0 , 0 , 0 ); -if (new_error) goto skip2400; -skip2400: +if (new_error) goto skip2611; +skip2611: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15778);}while(r); +if(!qbevent)break;evnt(16608);}while(r); } -S_18369:; +S_19317:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(15779);if(r)goto S_18369;} +if(qbevent){evnt(16609);if(r)goto S_19317;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2401; +if (new_error) goto skip2612; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0 , 0 , 0 ); -if (new_error) goto skip2401; -skip2401: +if (new_error) goto skip2612; +skip2612: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15779);}while(r); +if(!qbevent)break;evnt(16609);}while(r); } -S_18372:; +S_19320:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(15780);if(r)goto S_18372;} +if(qbevent){evnt(16610);if(r)goto S_19320;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2402; +if (new_error) goto skip2613; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0 , 0 , 0 ); -if (new_error) goto skip2402; -skip2402: +if (new_error) goto skip2613; +skip2613: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15780);}while(r); +if(!qbevent)break;evnt(16610);}while(r); } -S_18375:; +S_19323:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(15781);if(r)goto S_18375;} +if(qbevent){evnt(16611);if(r)goto S_19323;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2403; +if (new_error) goto skip2614; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0 , 0 , 0 ); -if (new_error) goto skip2403; -skip2403: +if (new_error) goto skip2614; +skip2614: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15781);}while(r); +if(!qbevent)break;evnt(16611);}while(r); } -S_18378:; +S_19326:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(15782);if(r)goto S_18378;} +if(qbevent){evnt(16612);if(r)goto S_19326;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2404; +if (new_error) goto skip2615; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0 , 0 , 0 ); -if (new_error) goto skip2404; -skip2404: +if (new_error) goto skip2615; +skip2615: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15782);}while(r); +if(!qbevent)break;evnt(16612);}while(r); } -S_18381:; +S_19329:; if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(15783);if(r)goto S_18381;} +if(qbevent){evnt(16613);if(r)goto S_19329;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2405; +if (new_error) goto skip2616; sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0 , 0 , 0 ); -if (new_error) goto skip2405; -skip2405: +if (new_error) goto skip2616; +skip2616: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15783);}while(r); +if(!qbevent)break;evnt(16613);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2406; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),FUNC_STR2(&(pass2407=*_FUNC_EVALUATE_LONG_TYP& 511 ))),qbs_new_txt_len(")",1)), 0 , 0 , 1 ); -if (new_error) goto skip2406; -skip2406: +if (new_error) goto skip2617; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),FUNC_STR2(&(pass2618=*_FUNC_EVALUATE_LONG_TYP& 511 ))),qbs_new_txt_len(")",1)), 0 , 0 , 1 ); +if (new_error) goto skip2617; +skip2617: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(15784);}while(r); +if(!qbevent)break;evnt(16614);}while(r); } do{ qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15788);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free13.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATE_STRING_EVALUATE);return _FUNC_EVALUATE_STRING_EVALUATE; -} -qbs* FUNC_EVALUATEFUNC(qbs*_FUNC_EVALUATEFUNC_STRING_A2,int32*_FUNC_EVALUATEFUNC_LONG_ARGS,int32*_FUNC_EVALUATEFUNC_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data14.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15798);}while(r); -S_18388:; -if (( 0 )||new_error){ -if(qbevent){evnt(15800);if(r)goto S_18388;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2409; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluatingfunction:",19),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(":",1)),_FUNC_EVALUATEFUNC_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2409; -skip2409: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15800);}while(r); -} -do{ -if(!qbevent)break;evnt(15802);}while(r); -do{ -memcpy(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2863); -if(!qbevent)break;evnt(15804);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15805);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381)); -if(!qbevent)break;evnt(15806);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(15807);}while(r); -S_18396:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_stub",9))))||new_error){ -if(qbevent){evnt(15809);if(r)goto S_18396;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15809);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15809);}while(r); -} -do{ -SUB_SETDEPENDENCY(&(pass2410=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(546)))); -if(!qbevent)break;evnt(15811);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ; -if(!qbevent)break;evnt(15813);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST= 0 ; -if(!qbevent)break;evnt(15814);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST= 0 ; -if(!qbevent)break;evnt(15814);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15816);}while(r); -S_18405:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||new_error){ -if(qbevent){evnt(15817);if(r)goto S_18405;} -do{ -*_FUNC_EVALUATEFUNC_LONG_SQB= 0 ; -if(!qbevent)break;evnt(15820);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_A= 0 ; -if(!qbevent)break;evnt(15821);}while(r); -S_18408:; -fornext_value2413= 1 ; -fornext_finalvalue2413=_FUNC_EVALUATEFUNC_STRING_F->len; -fornext_step2413= 1 ; -if (fornext_step2413<0) fornext_step_negative2413=1; else fornext_step_negative2413=0; -if (new_error) goto fornext_error2413; -goto fornext_entrylabel2413; -while(1){ -fornext_value2413=fornext_step2413+(*_FUNC_EVALUATEFUNC_LONG_FI); -fornext_entrylabel2413: -*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2413; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2413){ -if (fornext_value2413fornext_finalvalue2413) break; -} -fornext_error2413:; -if(qbevent){evnt(15822);if(r)goto S_18408;} -do{ -*_FUNC_EVALUATEFUNC_LONG_FA=qbs_asc(_FUNC_EVALUATEFUNC_STRING_F,*_FUNC_EVALUATEFUNC_LONG_FI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15823);}while(r); -S_18410:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 63 ))||new_error){ -if(qbevent){evnt(15824);if(r)goto S_18410;} -do{ -*_FUNC_EVALUATEFUNC_LONG_A=*_FUNC_EVALUATEFUNC_LONG_A+ 1 ; -if(!qbevent)break;evnt(15825);}while(r); -S_18412:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_SQB!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST== 0 )))||new_error){ -if(qbevent){evnt(15826);if(r)goto S_18412;} -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST=*_FUNC_EVALUATEFUNC_LONG_A; -if(!qbevent)break;evnt(15826);}while(r); -} -} -S_18416:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 91 ))||new_error){ -if(qbevent){evnt(15828);if(r)goto S_18416;} -do{ -*_FUNC_EVALUATEFUNC_LONG_SQB= 1 ; -if(!qbevent)break;evnt(15828);}while(r); -} -S_18419:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 93 ))||new_error){ -if(qbevent){evnt(15829);if(r)goto S_18419;} -do{ -*_FUNC_EVALUATEFUNC_LONG_SQB= 0 ; -if(!qbevent)break;evnt(15829);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST=*_FUNC_EVALUATEFUNC_LONG_A; -if(!qbevent)break;evnt(15829);}while(r); -} -fornext_continue_2412:; -} -fornext_exit_2412:; -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARGS=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST-*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST+ 1 ; -if(!qbevent)break;evnt(15831);}while(r); -S_18425:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_ARGS!=(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))-*_FUNC_EVALUATEFUNC_LONG_OMITARGS)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS!=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))||new_error){ -if(qbevent){evnt(15833);if(r)goto S_18425;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15833);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15833);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ; -if(!qbevent)break;evnt(15835);}while(r); -S_18430:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))==*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ -if(qbevent){evnt(15837);if(r)goto S_18430;} -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST= 0 ; -if(!qbevent)break;evnt(15837);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST= 0 ; -if(!qbevent)break;evnt(15837);}while(r); -} -}else{ -S_18435:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))))||new_error){ -if(qbevent){evnt(15841);if(r)goto S_18435;} -do{ -goto LABEL_SKIPARGNUMCHK; -if(!qbevent)break;evnt(15841);}while(r); -} -S_18438:; -if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(811))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))))||new_error){ -if(qbevent){evnt(15842);if(r)goto S_18438;} -do{ -goto LABEL_SKIPARGNUMCHK; -if(!qbevent)break;evnt(15842);}while(r); -} -S_18441:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ -if(qbevent){evnt(15844);if(r)goto S_18441;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15844);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15844);}while(r); -} -} -LABEL_SKIPARGNUMCHK:; -if(qbevent){evnt(15848);r=0;} -S_18446:; -if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))||new_error){ -if(qbevent){evnt(15850);if(r)goto S_18446;} -S_18447:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(15851);if(r)goto S_18447;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15851);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15854);}while(r); -S_18452:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!= 0 ))||new_error){ -if(qbevent){evnt(15857);if(r)goto S_18452;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ; -if(!qbevent)break;evnt(15859);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ; -if(!qbevent)break;evnt(15860);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15862);}while(r); -S_18456:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(15863);if(r)goto S_18456;} -do{ -*_FUNC_EVALUATEFUNC_LONG_I= 0 ; -if(!qbevent)break;evnt(15863);}while(r); -do{ -goto LABEL_NOARGS; -if(!qbevent)break;evnt(15863);}while(r); -} -S_18460:; -fornext_value2416= 1 ; -fornext_finalvalue2416=*_FUNC_EVALUATEFUNC_LONG_N; -fornext_step2416= 1 ; -if (fornext_step2416<0) fornext_step_negative2416=1; else fornext_step_negative2416=0; -if (new_error) goto fornext_error2416; -goto fornext_entrylabel2416; -while(1){ -fornext_value2416=fornext_step2416+(*_FUNC_EVALUATEFUNC_LONG_I); -fornext_entrylabel2416: -*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2416; -if (fornext_step_negative2416){ -if (fornext_value2416fornext_finalvalue2416) break; -} -fornext_error2416:; -if(qbevent){evnt(15865);if(r)goto S_18460;} -S_18461:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG>=*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ -if(qbevent){evnt(15869);if(r)goto S_18461;} -LABEL_NOARGS:; -if(qbevent){evnt(15870);r=0;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15871);}while(r); -S_18463:; -fornext_value2418= 1 ; -fornext_finalvalue2418=*_FUNC_EVALUATEFUNC_LONG_OMITARGS- 1 ; -fornext_step2418= 1 ; -if (fornext_step2418<0) fornext_step_negative2418=1; else fornext_step_negative2418=0; -if (new_error) goto fornext_error2418; -goto fornext_entrylabel2418; -while(1){ -fornext_value2418=fornext_step2418+(*_FUNC_EVALUATEFUNC_LONG_FI); -fornext_entrylabel2418: -*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2418; -if (fornext_step_negative2418){ -if (fornext_value2418fornext_finalvalue2418) break; -} -fornext_error2418:; -if(qbevent){evnt(15875);if(r)goto S_18463;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15875);}while(r); -fornext_continue_2417:; -} -fornext_exit_2417:; -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15875);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+*_FUNC_EVALUATEFUNC_LONG_OMITARGS; -if(!qbevent)break;evnt(15876);}while(r); -S_18468:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ -if(qbevent){evnt(15877);if(r)goto S_18468;} -do{ -goto fornext_exit_2415; -if(!qbevent)break;evnt(15877);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15878);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15881);}while(r); -S_18474:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15882);if(r)goto S_18474;} -do{ -*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ; -if(!qbevent)break;evnt(15882);}while(r); -} -S_18477:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15883);if(r)goto S_18477;} -do{ -*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ; -if(!qbevent)break;evnt(15883);}while(r); -} -S_18480:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATEFUNC_LONG_B== 0 )))|(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))))||new_error){ -if(qbevent){evnt(15884);if(r)goto S_18480;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15886);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2647)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15887);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15888);}while(r); -S_18484:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ -if(qbevent){evnt(15890);if(r)goto S_18484;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,_FUNC_EVALUATEFUNC_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15891);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2419=*_FUNC_EVALUATEFUNC_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15893);}while(r); -} -S_18489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(15896);if(r)goto S_18489;} -do{ -*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ; -if(!qbevent)break;evnt(15896);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ; -if(!qbevent)break;evnt(15896);}while(r); -} -S_18494:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||new_error){ -if(qbevent){evnt(15901);if(r)goto S_18494;} -S_18495:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(15902);if(r)goto S_18495;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15903);}while(r); -S_18497:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15904);if(r)goto S_18497;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15904);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15905);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(15906);}while(r); -} -} -S_18504:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||new_error){ -if(qbevent){evnt(15912);if(r)goto S_18504;} -S_18505:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(15913);if(r)goto S_18505;} -S_18506:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(15914);if(r)goto S_18506;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15915);}while(r); -S_18508:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15916);if(r)goto S_18508;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15916);}while(r); -} -S_18511:; -if (( 0 )||new_error){ -if(qbevent){evnt(15917);if(r)goto S_18511;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2420; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_MK:[",5),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]:[",3)),_FUNC_EVALUATEFUNC_STRING_MKTYPE),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip2420; -skip2420: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15917);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15918);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(15919);}while(r); -} -} -} -S_18519:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ -if(qbevent){evnt(15924);if(r)goto S_18519;} -S_18520:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(15925);if(r)goto S_18520;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15927);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15928);}while(r); -S_18523:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15929);if(r)goto S_18523;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15929);}while(r); -} -S_18526:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(15930);if(r)goto S_18526;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15930);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15930);}while(r); -} -S_18530:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(15931);if(r)goto S_18530;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15931);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15931);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15933);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(15934);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15935);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15936);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(15937);}while(r); -} -} -S_18541:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(15943);if(r)goto S_18541;} -S_18542:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(15944);if(r)goto S_18542;} -S_18543:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(15945);if(r)goto S_18543;} -S_18544:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(15946);if(r)goto S_18544;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15946);}while(r); -} -} -} -} -S_18550:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||new_error){ -if(qbevent){evnt(15953);if(r)goto S_18550;} -S_18551:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(15954);if(r)goto S_18551;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2422= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15955);}while(r); -S_18553:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15956);if(r)goto S_18553;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15956);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15957);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15958);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(15959);}while(r); -} -} -S_18561:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7))))||new_error){ -if(qbevent){evnt(15970);if(r)goto S_18561;} -S_18562:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(15971);if(r)goto S_18562;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15972);}while(r); -} -S_18565:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(15974);if(r)goto S_18565;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15975);}while(r); -} -S_18568:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||new_error){ -if(qbevent){evnt(15977);if(r)goto S_18568;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15978);}while(r); -S_18570:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("*",1)),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(15979);if(r)goto S_18570;} -S_18571:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 ),qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(15980);if(r)goto S_18571;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15981);}while(r); -}else{ -S_18574:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("&",1)))|(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("%",1)))))||new_error){ -if(qbevent){evnt(15983);if(r)goto S_18574;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15983);}while(r); -} -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15986);}while(r); -S_18580:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(15987);if(r)goto S_18580;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15987);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15987);}while(r); -} -S_18584:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(15988);if(r)goto S_18584;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_BIT TYPE unsupported",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15988);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15988);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(15989);}while(r); -S_18589:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(15990);if(r)goto S_18589;} -S_18590:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(15991);if(r)goto S_18590;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15991);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15991);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("qbs*",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15992);}while(r); -}else{ -S_18596:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15994);if(r)goto S_18596;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(15995);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("void*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15996);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/ 8 ; -if(!qbevent)break;evnt(15998);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_T,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15999);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2425=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16008);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2426= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16009);}while(r); -S_18606:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(16010);if(r)goto S_18606;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__memget((mem_block*)",25),_FUNC_EVALUATEFUNC_STRING_BLKOFFS),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16012);}while(r); -} -S_18609:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16014);if(r)goto S_18609;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len((char*)",23),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16015);}while(r); -}else{ -S_18612:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16017);if(r)goto S_18612;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((void*)+",9),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16018);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 ); -if(!qbevent)break;evnt(16019);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP),qbs_new_txt_len("*)(",3)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16021);}while(r); -S_18617:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(16022);if(r)goto S_18617;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16022);}while(r); -} -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T; -if(!qbevent)break;evnt(16032);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16035);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16040);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16041);}while(r); -S_18628:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16042);if(r)goto S_18628;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16042);}while(r); -} -S_18631:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||new_error){ -if(qbevent){evnt(16046);if(r)goto S_18631;} -S_18632:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16047);if(r)goto S_18632;} -S_18633:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ -if(qbevent){evnt(16048);if(r)goto S_18633;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ; -if(!qbevent)break;evnt(16049);}while(r); -} -S_18636:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ -if(qbevent){evnt(16051);if(r)goto S_18636;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("_at_offset",10)),qbs_right(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_R->len-((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)))->len)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16052);}while(r); -S_18638:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||new_error){ -if(qbevent){evnt(16053);if(r)goto S_18638;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16053);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16053);}while(r); -} -} -} -} -S_18645:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||new_error){ -if(qbevent){evnt(16059);if(r)goto S_18645;} -S_18646:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16060);if(r)goto S_18646;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_OFFSET expects the name of a variable/array",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16061);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16061);}while(r); -} -S_18650:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16063);if(r)goto S_18650;} -S_18651:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16064);if(r)goto S_18651;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_OFFSET cannot reference _BIT type arrays",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16064);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16064);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((uptrszint)(",13),FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2428= -6 ))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16066);}while(r); -S_18657:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16067);if(r)goto S_18657;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16067);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16068);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16069);}while(r); -} -S_18663:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(16073);if(r)goto S_18663;} -S_18664:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKSMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(16074);if(r)goto S_18664;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16074);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16074);}while(r); -} -S_18668:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKDMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(16075);if(r)goto S_18668;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16075);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16075);}while(r); -} -} -S_18673:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||new_error){ -if(qbevent){evnt(16079);if(r)goto S_18673;} -S_18674:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16080);if(r)goto S_18674;} -S_18675:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(16081);if(r)goto S_18675;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2429= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16081);}while(r); -} -S_18678:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16082);if(r)goto S_18678;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16082);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16083);}while(r); -} -} -S_18684:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||new_error){ -if(qbevent){evnt(16088);if(r)goto S_18684;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16089);}while(r); -S_18686:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16090);if(r)goto S_18686;} -S_18687:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16092);if(r)goto S_18687;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((int32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")->len)",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16093);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16094);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("String expression or variable name required in LEN statement",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16096);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16096);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2430= -5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16098);}while(r); -S_18695:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16099);if(r)goto S_18695;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16099);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16100);}while(r); -} -S_18700:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||new_error){ -if(qbevent){evnt(16104);if(r)goto S_18700;} -S_18701:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16105);if(r)goto S_18701;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16106);}while(r); -S_18703:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16108);if(r)goto S_18703;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16108);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16108);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; -if(!qbevent)break;evnt(16109);}while(r); -S_18708:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16110);if(r)goto S_18708;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2431= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16110);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; -if(!qbevent)break;evnt(16110);}while(r); -} -S_18712:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16111);if(r)goto S_18712;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16111);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16112);}while(r); -S_18716:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16113);if(r)goto S_18716;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16114);}while(r); -}else{ -S_18719:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16116);if(r)goto S_18719;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_oct_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16117);}while(r); -}else{ -S_18722:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16119);if(r)goto S_18722;} -S_18723:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ -if(qbevent){evnt(16120);if(r)goto S_18723;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; -if(!qbevent)break;evnt(16120);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16122);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16125);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16126);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16127);}while(r); -} -} -S_18735:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||new_error){ -if(qbevent){evnt(16134);if(r)goto S_18735;} -S_18736:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16135);if(r)goto S_18736;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16136);}while(r); -S_18738:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16137);if(r)goto S_18738;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16137);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16137);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; -if(!qbevent)break;evnt(16138);}while(r); -S_18743:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16139);if(r)goto S_18743;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2432= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16139);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; -if(!qbevent)break;evnt(16139);}while(r); -} -S_18747:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16140);if(r)goto S_18747;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16140);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16141);}while(r); -S_18751:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16142);if(r)goto S_18751;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/ 4 ; -if(!qbevent)break;evnt(16143);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16144);}while(r); -}else{ -S_18755:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16146);if(r)goto S_18755;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_hex_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16147);}while(r); -}else{ -S_18758:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(16149);if(r)goto S_18758;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ; -if(!qbevent)break;evnt(16149);}while(r); -} -S_18761:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(16150);if(r)goto S_18761;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ; -if(!qbevent)break;evnt(16150);}while(r); -} -S_18764:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16151);if(r)goto S_18764;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ; -if(!qbevent)break;evnt(16151);}while(r); -} -S_18767:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16152);if(r)goto S_18767;} -S_18768:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||new_error){ -if(qbevent){evnt(16153);if(r)goto S_18768;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ; -if(!qbevent)break;evnt(16153);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ; -if(!qbevent)break;evnt(16153);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16155);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16158);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16159);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16160);}while(r); -} -} -S_18782:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||new_error){ -if(qbevent){evnt(16173);if(r)goto S_18782;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16174);}while(r); -S_18784:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16175);if(r)goto S_18784;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16175);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16175);}while(r); -} -S_18788:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16176);if(r)goto S_18788;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2433= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16176);}while(r); -} -S_18791:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16177);if(r)goto S_18791;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16177);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16178);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16179);}while(r); -S_18796:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16180);if(r)goto S_18796;} -S_18797:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16181);if(r)goto S_18797;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16181);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16181);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16181);}while(r); -} -}else{ -S_18804:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16183);if(r)goto S_18804;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16184);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16184);}while(r); -}else{ -S_18808:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(16186);if(r)goto S_18808;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16186);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16186);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16186);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16189);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16190);}while(r); -} -S_18819:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||new_error){ -if(qbevent){evnt(16194);if(r)goto S_18819;} -S_18820:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16195);if(r)goto S_18820;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16195);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16195);}while(r); -} -S_18824:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16196);if(r)goto S_18824;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2434= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16196);}while(r); -} -S_18827:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16197);if(r)goto S_18827;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16197);}while(r); -} -S_18830:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16199);if(r)goto S_18830;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("floor(",6),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16199);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16199);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16200);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16201);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16202);}while(r); -} -S_18839:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||new_error){ -if(qbevent){evnt(16206);if(r)goto S_18839;} -S_18840:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16207);if(r)goto S_18840;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16207);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16207);}while(r); -} -S_18844:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16208);if(r)goto S_18844;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2435= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16208);}while(r); -} -S_18847:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16209);if(r)goto S_18847;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16209);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16211);}while(r); -S_18851:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16212);if(r)goto S_18851;} -S_18852:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16213);if(r)goto S_18852;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16213);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_double(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16213);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16215);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16217);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16218);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16219);}while(r); -} -S_18864:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6))))||new_error){ -if(qbevent){evnt(16223);if(r)goto S_18864;} -S_18865:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16224);if(r)goto S_18865;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16224);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16224);}while(r); -} -S_18869:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16225);if(r)goto S_18869;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2436= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16225);}while(r); -} -S_18872:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16226);if(r)goto S_18872;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16226);}while(r); -} -S_18875:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16228);if(r)goto S_18875;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16229);}while(r); -S_18877:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16230);if(r)goto S_18877;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_float(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16230);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_double(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16230);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16232);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16234);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16235);}while(r); -S_18887:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16236);if(r)goto S_18887;} -S_18888:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(16237);if(r)goto S_18888;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16237);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16237);}while(r); -} -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16239);}while(r); -} -S_18896:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||new_error){ -if(qbevent){evnt(16244);if(r)goto S_18896;} -S_18897:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16245);if(r)goto S_18897;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16245);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16245);}while(r); -} -S_18901:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16246);if(r)goto S_18901;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16246);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16246);}while(r); -} -S_18905:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16247);if(r)goto S_18905;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2437= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16247);}while(r); -} -S_18908:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16248);if(r)goto S_18908;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16248);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16250);}while(r); -S_18912:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16251);if(r)goto S_18912;} -S_18913:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16252);if(r)goto S_18913;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cdbl_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16252);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16254);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16256);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16257);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16258);}while(r); -} -S_18923:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||new_error){ -if(qbevent){evnt(16262);if(r)goto S_18923;} -S_18924:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16263);if(r)goto S_18924;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16263);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16263);}while(r); -} -S_18928:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16264);if(r)goto S_18928;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16264);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16264);}while(r); -} -S_18932:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16265);if(r)goto S_18932;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2438= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16265);}while(r); -} -S_18935:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16266);if(r)goto S_18935;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16266);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16268);}while(r); -S_18939:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16269);if(r)goto S_18939;} -S_18940:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16270);if(r)goto S_18940;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16270);}while(r); -} -S_18943:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16271);if(r)goto S_18943;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16271);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16273);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16275);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16276);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16277);}while(r); -} -S_18953:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||new_error){ -if(qbevent){evnt(16282);if(r)goto S_18953;} -S_18954:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16283);if(r)goto S_18954;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16283);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16283);}while(r); -} -S_18958:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16284);if(r)goto S_18958;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16284);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16284);}while(r); -} -S_18962:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16285);if(r)goto S_18962;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2439= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16285);}while(r); -} -S_18965:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16286);if(r)goto S_18965;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16286);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16288);}while(r); -S_18969:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16289);if(r)goto S_18969;} -S_18970:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16290);if(r)goto S_18970;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16290);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16290);}while(r); -} -}else{ -S_18976:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(16292);if(r)goto S_18976;} -S_18977:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16293);if(r)goto S_18977;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16293);}while(r); -} -S_18980:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(16294);if(r)goto S_18980;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16294);}while(r); -} -}else{ -S_18984:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(16296);if(r)goto S_18984;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16296);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16299);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ; -if(!qbevent)break;evnt(16300);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16301);}while(r); -} -S_18993:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||new_error){ -if(qbevent){evnt(16305);if(r)goto S_18993;} -S_18994:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16306);if(r)goto S_18994;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16306);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16306);}while(r); -} -S_18998:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16307);if(r)goto S_18998;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16307);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16307);}while(r); -} -S_19002:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16308);if(r)goto S_19002;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2440= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16308);}while(r); -} -S_19005:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16309);if(r)goto S_19005;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16309);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16311);}while(r); -S_19009:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16312);if(r)goto S_19009;} -S_19010:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16313);if(r)goto S_19010;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16313);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16313);}while(r); -} -}else{ -S_19016:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(16315);if(r)goto S_19016;} -S_19017:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ -if(qbevent){evnt(16316);if(r)goto S_19017;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16316);}while(r); -} -S_19020:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(16317);if(r)goto S_19020;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16317);}while(r); -} -}else{ -S_19024:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ -if(qbevent){evnt(16319);if(r)goto S_19024;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_long(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16319);}while(r); -} -S_19027:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(16320);if(r)goto S_19027;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16320);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16323);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ; -if(!qbevent)break;evnt(16324);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16325);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ; -if(!qbevent)break;evnt(16329);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ; -if(!qbevent)break;evnt(16330);}while(r); -S_19038:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||new_error){ -if(qbevent){evnt(16331);if(r)goto S_19038;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ; -if(!qbevent)break;evnt(16331);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16331);}while(r); -} -S_19042:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||new_error){ -if(qbevent){evnt(16332);if(r)goto S_19042;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ; -if(!qbevent)break;evnt(16332);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16332);}while(r); -} -S_19046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||new_error){ -if(qbevent){evnt(16333);if(r)goto S_19046;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ; -if(!qbevent)break;evnt(16333);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16333);}while(r); -} -S_19050:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||new_error){ -if(qbevent){evnt(16334);if(r)goto S_19050;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ; -if(!qbevent)break;evnt(16334);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16334);}while(r); -} -S_19054:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||new_error){ -if(qbevent){evnt(16335);if(r)goto S_19054;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ; -if(!qbevent)break;evnt(16335);}while(r); -} -S_19057:; -if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||new_error){ -if(qbevent){evnt(16336);if(r)goto S_19057;} -S_19058:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ -if(qbevent){evnt(16337);if(r)goto S_19058;} -S_19059:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16338);if(r)goto S_19059;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16338);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16338);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ; -if(!qbevent)break;evnt(16340);}while(r); -S_19064:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(16341);if(r)goto S_19064;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16341);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16341);}while(r); -} -S_19068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(16342);if(r)goto S_19068;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16342);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16342);}while(r); -} -S_19072:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(16343);if(r)goto S_19072;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16343);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16343);}while(r); -} -S_19076:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(16344);if(r)goto S_19076;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16344);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16344);}while(r); -} -S_19080:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(16345);if(r)goto S_19080;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16345);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16345);}while(r); -} -S_19084:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(16346);if(r)goto S_19084;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16346);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16346);}while(r); -} -S_19088:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(16347);if(r)goto S_19088;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16347);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16347);}while(r); -} -S_19092:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(16348);if(r)goto S_19092;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16348);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16348);}while(r); -} -S_19096:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(16349);if(r)goto S_19096;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16349);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16349);}while(r); -} -S_19100:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(16350);if(r)goto S_19100;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16350);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16350);}while(r); -} -S_19104:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(16351);if(r)goto S_19104;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16351);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16351);}while(r); -} -S_19108:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(16352);if(r)goto S_19108;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16352);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16352);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16352);}while(r); -} -S_19113:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(16353);if(r)goto S_19113;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16353);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16353);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16353);}while(r); -} -S_19118:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||new_error){ -if(qbevent){evnt(16354);if(r)goto S_19118;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_MK only accepts numeric types",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16354);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16354);}while(r); -} -S_19122:; -if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||new_error){ -if(qbevent){evnt(16355);if(r)goto S_19122;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16356);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16358);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ; -if(!qbevent)break;evnt(16360);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP; -if(!qbevent)break;evnt(16361);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ; -if(!qbevent)break;evnt(16366);}while(r); -S_19132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||new_error){ -if(qbevent){evnt(16367);if(r)goto S_19132;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ; -if(!qbevent)break;evnt(16367);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16367);}while(r); -} -S_19136:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||new_error){ -if(qbevent){evnt(16368);if(r)goto S_19136;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ; -if(!qbevent)break;evnt(16368);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16368);}while(r); -} -S_19140:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||new_error){ -if(qbevent){evnt(16369);if(r)goto S_19140;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ; -if(!qbevent)break;evnt(16369);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16369);}while(r); -} -S_19144:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||new_error){ -if(qbevent){evnt(16370);if(r)goto S_19144;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ; -if(!qbevent)break;evnt(16370);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16370);}while(r); -} -S_19148:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||new_error){ -if(qbevent){evnt(16371);if(r)goto S_19148;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ; -if(!qbevent)break;evnt(16371);}while(r); -} -S_19151:; -if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||new_error){ -if(qbevent){evnt(16372);if(r)goto S_19151;} -S_19152:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ -if(qbevent){evnt(16373);if(r)goto S_19152;} -S_19153:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(16374);if(r)goto S_19153;} -do{ -SUB_GIVE_ERROR(qbs_add(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len(" requires a STRING argument",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16374);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16374);}while(r); -} -S_19157:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16375);if(r)goto S_19157;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2443= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16375);}while(r); -} -S_19160:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16376);if(r)goto S_19160;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16376);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ; -if(!qbevent)break;evnt(16377);}while(r); -S_19164:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(16378);if(r)goto S_19164;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16378);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16378);}while(r); -} -S_19168:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(16379);if(r)goto S_19168;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16379);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16379);}while(r); -} -S_19172:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(16380);if(r)goto S_19172;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16380);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16380);}while(r); -} -S_19176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(16381);if(r)goto S_19176;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16381);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16381);}while(r); -} -S_19180:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(16382);if(r)goto S_19180;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16382);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16382);}while(r); -} -S_19184:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(16383);if(r)goto S_19184;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16383);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16383);}while(r); -} -S_19188:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(16384);if(r)goto S_19188;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16384);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16384);}while(r); -} -S_19192:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(16385);if(r)goto S_19192;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16385);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16385);}while(r); -} -S_19196:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(16386);if(r)goto S_19196;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16386);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16386);}while(r); -} -S_19200:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(16387);if(r)goto S_19200;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16387);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16387);}while(r); -} -S_19204:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(16388);if(r)goto S_19204;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16388);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16388);}while(r); -} -S_19208:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(16389);if(r)goto S_19208;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16389);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16389);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16389);}while(r); -} -S_19213:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(16390);if(r)goto S_19213;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16390);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16390);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16390);}while(r); -} -S_19218:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(16391);if(r)goto S_19218;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_CV cannot return STRING type!",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16391);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16391);}while(r); -} -S_19222:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)))))||new_error){ -if(qbevent){evnt(16392);if(r)goto S_19222;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16393);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16395);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16397);}while(r); -} -} -S_19230:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(16402);if(r)goto S_19230;} -S_19231:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(16403);if(r)goto S_19231;} -S_19232:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16404);if(r)goto S_19232;} -S_19233:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16405);if(r)goto S_19233;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2446= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16405);}while(r); -} -S_19236:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16406);if(r)goto S_19236;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16406);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ; -if(!qbevent)break;evnt(16407);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("->chr[0])",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16408);}while(r); -} -} -} -S_19244:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("SADD",4))))||new_error){ -if(qbevent){evnt(16414);if(r)goto S_19244;} -S_19245:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16415);if(r)goto S_19245;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16416);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16416);}while(r); -} -S_19249:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(16418);if(r)goto S_19249;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16419);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16419);}while(r); -} -S_19253:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(16421);if(r)goto S_19253;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16422);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16423);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16424);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16425);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16426);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2447= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16428);}while(r); -S_19261:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16429);if(r)goto S_19261;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16429);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16430);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16431);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16432);}while(r); -} -S_19268:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARPTR",6))))||new_error){ -if(qbevent){evnt(16436);if(r)goto S_19268;} -S_19269:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16437);if(r)goto S_19269;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16438);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16438);}while(r); -} -S_19273:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16441);if(r)goto S_19273;} -S_19274:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(16442);if(r)goto S_19274;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16443);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16444);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16445);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(16446);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16447);}while(r); -} -S_19281:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16450);if(r)goto S_19281;} -S_19282:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(16451);if(r)goto S_19282;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16451);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16451);}while(r); -} -S_19286:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(16452);if(r)goto S_19286;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16452);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16452);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2448= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16457);}while(r); -S_19292:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16458);if(r)goto S_19292;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16458);}while(r); -} -S_19295:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16459);if(r)goto S_19295;} -S_19296:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16460);if(r)goto S_19296;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2449= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16460);}while(r); -} -S_19299:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16461);if(r)goto S_19299;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16461);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16462);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T= 3 ; -if(!qbevent)break;evnt(16463);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16465);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T= 0 ; -if(!qbevent)break;evnt(16477);}while(r); -S_19307:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(16478);if(r)goto S_19307;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ; -if(!qbevent)break;evnt(16478);}while(r); -} -S_19310:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16479);if(r)goto S_19310;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ; -if(!qbevent)break;evnt(16480);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 ); -if(!qbevent)break;evnt(16481);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16483);}while(r); -S_19315:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16484);if(r)goto S_19315;} -S_19316:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16485);if(r)goto S_19316;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ; -if(!qbevent)break;evnt(16485);}while(r); -} -S_19319:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16486);if(r)goto S_19319;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ; -if(!qbevent)break;evnt(16486);}while(r); -} -S_19322:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(16487);if(r)goto S_19322;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ; -if(!qbevent)break;evnt(16487);}while(r); -} -}else{ -S_19326:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(16489);if(r)goto S_19326;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ; -if(!qbevent)break;evnt(16489);}while(r); -} -S_19329:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(16490);if(r)goto S_19329;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ; -if(!qbevent)break;evnt(16490);}while(r); -} -S_19332:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16491);if(r)goto S_19332;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ; -if(!qbevent)break;evnt(16491);}while(r); -} -S_19335:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16492);if(r)goto S_19335;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ; -if(!qbevent)break;evnt(16492);}while(r); -} -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_varptr_helper(",19),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16496);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(16497);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16498);}while(r); -} -S_19345:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(16512);if(r)goto S_19345;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16513);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16514);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16515);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16516);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16517);}while(r); -} -S_19352:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16520);if(r)goto S_19352;} -S_19353:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16521);if(r)goto S_19353;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR cannot reference _BIT type arrays",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16521);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16521);}while(r); -} -S_19357:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16524);if(r)goto S_19357;} -S_19358:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(16525);if(r)goto S_19358;} -do{ -SUB_GETID(&(pass2450=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16526);}while(r); -S_19360:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16527);if(r)goto S_19360;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16527);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(16528);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16529);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16530);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16531);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16532);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2452= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16535);}while(r); -S_19370:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16536);if(r)goto S_19370;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16536);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16537);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16538);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16539);}while(r); -} -} -S_19378:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16543);if(r)goto S_19378;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16544);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16545);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16546);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16547);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16548);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16549);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(16553);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16554);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16555);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16556);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16557);}while(r); -} -S_19392:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16563);if(r)goto S_19392;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2457= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16564);}while(r); -S_19394:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16565);if(r)goto S_19394;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16565);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16566);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16567);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16568);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16569);}while(r); -do{ -SUB_GETID(&(pass2461=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16572);}while(r); -S_19402:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16573);if(r)goto S_19402;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16573);}while(r); -} -S_19405:; -if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ -if(qbevent){evnt(16574);if(r)goto S_19405;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16576);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(") - &cmem[1280] + (",19)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") ))",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16579);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16582);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16585);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2462= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16586);}while(r); -S_19414:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16587);if(r)goto S_19414;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16587);}while(r); -} -S_19417:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16588);if(r)goto S_19417;} -S_19418:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(16589);if(r)goto S_19418;} -do{ -SUB_GETID(&(pass2463=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16592);}while(r); -S_19420:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16593);if(r)goto S_19420;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16593);}while(r); -} -S_19423:; -if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ -if(qbevent){evnt(16594);if(r)goto S_19423;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(",20),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr)",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16595);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16597);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16601);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16603);}while(r); -} -do{ -SUB_GETID(&(pass2464=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16608);}while(r); -S_19434:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16609);if(r)goto S_19434;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16609);}while(r); -} -S_19437:; -if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ -if(qbevent){evnt(16610);if(r)goto S_19437;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check((uint8*)",28),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16611);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16613);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16616);}while(r); -} -S_19444:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARSEG",6))))||new_error){ -if(qbevent){evnt(16620);if(r)goto S_19444;} -S_19445:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16621);if(r)goto S_19445;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16622);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16622);}while(r); -} -S_19449:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(16624);if(r)goto S_19449;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16625);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16626);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16627);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16628);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16629);}while(r); -} -S_19456:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16632);if(r)goto S_19456;} -S_19457:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(16633);if(r)goto S_19457;} -S_19458:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16634);if(r)goto S_19458;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16635);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16636);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16637);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16640);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("( ( ((ptrszint)(",16),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2465= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16641);}while(r); -S_19466:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16642);if(r)goto S_19466;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16642);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16643);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16647);}while(r); -do{ -SUB_GETID(&(pass2466=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16649);}while(r); -S_19473:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16650);if(r)goto S_19473;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16650);}while(r); -} -S_19476:; -if (((-(*(int16*)(((char*)__UDT_ID)+(2859))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(16651);if(r)goto S_19476;} -S_19477:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16652);if(r)goto S_19477;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2467= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16653);}while(r); -S_19479:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16654);if(r)goto S_19479;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16654);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16655);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16656);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16657);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16658);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check((uint8*)",28),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2471= 1 ))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16660);}while(r); -S_19488:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16661);if(r)goto S_19488;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16661);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16665);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16667);}while(r); -} -S_19497:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||new_error){ -if(qbevent){evnt(16693);if(r)goto S_19497;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2472= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16694);}while(r); -S_19499:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16695);if(r)goto S_19499;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16695);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16696);}while(r); -} -S_19504:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||new_error){ -if(qbevent){evnt(16699);if(r)goto S_19504;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2473= -7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16700);}while(r); -S_19506:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16701);if(r)goto S_19506;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16701);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16702);}while(r); -} -S_19511:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||new_error){ -if(qbevent){evnt(16705);if(r)goto S_19511;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2474= -8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16706);}while(r); -S_19513:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16707);if(r)goto S_19513;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16707);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16708);}while(r); -} -S_19518:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(16711);if(r)goto S_19518;} -S_19519:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ -if(qbevent){evnt(16712);if(r)goto S_19519;} -S_19520:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(548))== 0 ))||new_error){ -if(qbevent){evnt(16713);if(r)goto S_19520;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16713);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16713);}while(r); -} -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ; -if(!qbevent)break;evnt(16718);}while(r); -S_19527:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||new_error){ -if(qbevent){evnt(16719);if(r)goto S_19527;} -do{ -*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ; -if(!qbevent)break;evnt(16720);}while(r); -S_19529:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16721);if(r)goto S_19529;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16721);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16721);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16722);}while(r); -S_19534:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(16723);if(r)goto S_19534;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16723);}while(r); -} -} -S_19538:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(16727);if(r)goto S_19538;} -S_19539:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(16728);if(r)goto S_19539;} -S_19540:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16733);if(r)goto S_19540;} -S_19541:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16734);if(r)goto S_19541;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16734);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16734);}while(r); -} -S_19545:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(16735);if(r)goto S_19545;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16735);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16735);}while(r); -} -S_19549:; -if (( 0 )||new_error){ -if(qbevent){evnt(16736);if(r)goto S_19549;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2475; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:[",30),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip2475; -skip2475: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16736);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; -if(!qbevent)break;evnt(16739);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16739);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); -if(!qbevent)break;evnt(16740);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); -if(!qbevent)break;evnt(16741);}while(r); -S_19556:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(16742);if(r)goto S_19556;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16742);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16742);}while(r); -} -S_19560:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16745);if(r)goto S_19560;} -S_19561:; -if (( 0 )||new_error){ -if(qbevent){evnt(16746);if(r)goto S_19561;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2476; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:udt reference:[",44),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); -if (new_error) goto skip2476; -skip2476: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16746);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16748);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); -if(!qbevent)break;evnt(16749);}while(r); -S_19566:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16750);if(r)goto S_19566;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16750);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16751);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16752);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16753);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16754);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16755);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16756);}while(r); -S_19575:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ -if(qbevent){evnt(16758);if(r)goto S_19575;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16758);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16758);}while(r); -} -}else{ -S_19580:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(16760);if(r)goto S_19580;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16760);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16760);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16764);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM); -if(!qbevent)break;evnt(16765);}while(r); -S_19587:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16766);if(r)goto S_19587;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16766);}while(r); -} -S_19590:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(16768);if(r)goto S_19590;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1213)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16769);}while(r); -S_19592:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||new_error){ -if(qbevent){evnt(16770);if(r)goto S_19592;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16770);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16770);}while(r); -} -} -S_19597:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(16773);if(r)goto S_19597;} -S_19598:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(16774);if(r)goto S_19598;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16775);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16777);}while(r); -} -} -S_19603:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ -if(qbevent){evnt(16783);if(r)goto S_19603;} -S_19604:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||new_error){ -if(qbevent){evnt(16788);if(r)goto S_19604;} -S_19605:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!= -1 ))||new_error){ -if(qbevent){evnt(16792);if(r)goto S_19605;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(16793);}while(r); -do{ -sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1); -if(!qbevent)break;evnt(16794);}while(r); -} -do{ -memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0,((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0, 2863); -if(!qbevent)break;evnt(16797);}while(r); -}else{ -S_19611:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||new_error){ -if(qbevent){evnt(16810);if(r)goto S_19611;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported (yet)",91)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16810);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16810);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2478= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16818);}while(r); -S_19618:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16819);if(r)goto S_19618;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16819);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16820);}while(r); -} -S_19623:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(16838);if(r)goto S_19623;} -S_19624:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16839);if(r)goto S_19624;} -do{ -*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16840);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; -if(!qbevent)break;evnt(16842);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16842);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ; -if(!qbevent)break;evnt(16845);}while(r); -S_19629:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16845);if(r)goto S_19629;} -do{ -*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ; -if(!qbevent)break;evnt(16845);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ; -if(!qbevent)break;evnt(16846);}while(r); -S_19633:; -if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ -if(qbevent){evnt(16846);if(r)goto S_19633;} -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ; -if(!qbevent)break;evnt(16846);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT; -if(!qbevent)break;evnt(16846);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(16849);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(16850);}while(r); -S_19639:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(16853);if(r)goto S_19639;} -S_19640:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16855);if(r)goto S_19640;} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16859);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); -if(!qbevent)break;evnt(16860);}while(r); -S_19643:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16861);if(r)goto S_19643;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16861);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16862);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16863);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16864);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16865);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16866);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16867);}while(r); -S_19652:; -if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ -if(qbevent){evnt(16870);if(r)goto S_19652;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16871);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16873);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),_FUNC_EVALUATEFUNC_STRING_N2),qbs_new_txt_len(")) + (",6)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") )",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16876);}while(r); -S_19658:; -if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||new_error){ -if(qbevent){evnt(16879);if(r)goto S_19658;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2480=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16879);}while(r); -} -S_19661:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16880);if(r)goto S_19661;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16880);}while(r); -} -}else{ -S_19665:; -if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ -if(qbevent){evnt(16884);if(r)goto S_19665;} -S_19666:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16885);if(r)goto S_19666;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass BIT array offsets yet",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16885);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16885);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2481= 0 ))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16886);}while(r); -S_19671:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16887);if(r)goto S_19671;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16887);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2482= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16889);}while(r); -S_19676:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16890);if(r)goto S_19676;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16890);}while(r); -} -} -S_19680:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ -if(qbevent){evnt(16894);if(r)goto S_19680;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2483=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16895);}while(r); -S_19682:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16896);if(r)goto S_19682;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16896);}while(r); -} -} -} -S_19687:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(16902);if(r)goto S_19687;} -S_19688:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(16903);if(r)goto S_19688;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16904);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16905);}while(r); -} -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16909);}while(r); -} -} -}else{ -S_19697:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16927);if(r)goto S_19697;} -do{ -*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16928);}while(r); -S_19699:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(16929);if(r)goto S_19699;} -S_19700:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(16930);if(r)goto S_19700;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16931);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(16932);}while(r); -} -} -} -} -} -} -S_19709:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16955);if(r)goto S_19709;} -S_19710:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(16956);if(r)goto S_19710;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; -if(!qbevent)break;evnt(16957);}while(r); -S_19712:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ -if(qbevent){evnt(16958);if(r)goto S_19712;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; -if(!qbevent)break;evnt(16958);}while(r); -} -S_19715:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 1 ))||new_error){ -if(qbevent){evnt(16959);if(r)goto S_19715;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16959);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16959);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a string",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16960);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16960);}while(r); -} -} -S_19723:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(16963);if(r)goto S_19723;} -S_19724:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16964);if(r)goto S_19724;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; -if(!qbevent)break;evnt(16965);}while(r); -S_19726:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ -if(qbevent){evnt(16966);if(r)goto S_19726;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; -if(!qbevent)break;evnt(16966);}while(r); -} -S_19729:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 1 ))||new_error){ -if(qbevent){evnt(16967);if(r)goto S_19729;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16967);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16967);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a number",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16968);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16968);}while(r); -} -} -S_19737:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16973);if(r)goto S_19737;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2484= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16974);}while(r); -S_19739:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16975);if(r)goto S_19739;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16975);}while(r); -} -} -S_19743:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(16978);if(r)goto S_19743;} -S_19744:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16979);if(r)goto S_19744;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; -if(!qbevent)break;evnt(16980);}while(r); -S_19746:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ -if(qbevent){evnt(16981);if(r)goto S_19746;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; -if(!qbevent)break;evnt(16981);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16982);}while(r); -S_19750:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 1 ))||new_error){ -if(qbevent){evnt(16983);if(r)goto S_19750;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),_FUNC_EVALUATEFUNC_STRING_X),qbs_new_txt_len(" required for function",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16983);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16983);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires TYPE ",33)),_FUNC_EVALUATEFUNC_STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16984);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16984);}while(r); -} -}else{ -S_19758:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16987);if(r)goto S_19758;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16987);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16987);}while(r); -} -} -S_19763:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16991);if(r)goto S_19763;} -S_19764:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(16992);if(r)goto S_19764;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ; -if(!qbevent)break;evnt(16994);}while(r); -S_19766:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(16995);if(r)goto S_19766;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16995);}while(r); -} -S_19769:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||new_error){ -if(qbevent){evnt(16996);if(r)goto S_19769;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16996);}while(r); -} -S_19772:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||new_error){ -if(qbevent){evnt(16997);if(r)goto S_19772;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16997);}while(r); -} -} -} -S_19777:; -if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||new_error){ -if(qbevent){evnt(17001);if(r)goto S_19777;} -S_19778:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17002);if(r)goto S_19778;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17004);}while(r); -}else{ -S_19781:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17006);if(r)goto S_19781;} -S_19782:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(17007);if(r)goto S_19782;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(float)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17007);}while(r); -} -S_19785:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(17008);if(r)goto S_19785;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(double)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17008);}while(r); -} -S_19788:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||new_error){ -if(qbevent){evnt(17009);if(r)goto S_19788;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(long double)(",14),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17009);}while(r); -} -}else{ -S_19792:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(17011);if(r)goto S_19792;} -S_19793:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(17012);if(r)goto S_19793;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint8)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17012);}while(r); -} -S_19796:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(17013);if(r)goto S_19796;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint16)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17013);}while(r); -} -S_19799:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(17014);if(r)goto S_19799;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17014);}while(r); -} -S_19802:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(17015);if(r)goto S_19802;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint64)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17015);}while(r); -} -}else{ -S_19806:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(17017);if(r)goto S_19806;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int8)(",7),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17017);}while(r); -} -S_19809:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(17018);if(r)goto S_19809;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int16)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17018);}while(r); -} -S_19812:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(17019);if(r)goto S_19812;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int32)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17019);}while(r); -} -S_19815:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(17020);if(r)goto S_19815;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17020);}while(r); -} -} -} -} -} -S_19822:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(17027);if(r)goto S_19822;} -S_19823:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17028);if(r)goto S_19823;} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17028);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_T,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TARGETTYP,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17030);}while(r); -S_19827:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17031);if(r)goto S_19827;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17031);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass2485=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17032);}while(r); -S_19831:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(17034);if(r)goto S_19831;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/ 8 ; -if(!qbevent)break;evnt(17035);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2486; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_T,qbs_new_txt_len(" *",2)),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip2486; -skip2486: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17036);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2487; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); -if (new_error) goto skip2487; -skip2487: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17037);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2488; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BYTESREQ)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2488; -skip2488: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17038);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2489; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_V,qbs_new_txt_len("=(",2)),_FUNC_EVALUATEFUNC_STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); -if (new_error) goto skip2489; -skip2489: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17039);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip2490; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17060);}while(r); -} -S_19853:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALUATEFUNC_STRING_E)),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(17063);if(r)goto S_19853;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17063);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17067);}while(r); -S_19858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||new_error){ -if(qbevent){evnt(17070);if(r)goto S_19858;} -S_19859:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ -if(qbevent){evnt(17071);if(r)goto S_19859;} -S_19860:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(17072);if(r)goto S_19860;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17072);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17072);}while(r); -} -} -S_19865:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ -if(qbevent){evnt(17074);if(r)goto S_19865;} -S_19866:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(17075);if(r)goto S_19866;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17075);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17075);}while(r); -} -} -} -S_19872:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||new_error){ -if(qbevent){evnt(17079);if(r)goto S_19872;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17079);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ; -if(!qbevent)break;evnt(17080);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; -if(!qbevent)break;evnt(17081);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; -if(!qbevent)break;evnt(17082);}while(r); -} -S_19879:; -if (((((-(*_FUNC_EVALUATEFUNC_LONG_CURARG>=*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST))))&(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N)))||new_error){ -if(qbevent){evnt(17085);if(r)goto S_19879;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17086);}while(r); -S_19881:; -fornext_value2494= 1 ; -fornext_finalvalue2494=*_FUNC_EVALUATEFUNC_LONG_OMITARGS; -fornext_step2494= 1 ; -if (fornext_step2494<0) fornext_step_negative2494=1; else fornext_step_negative2494=0; -if (new_error) goto fornext_error2494; -goto fornext_entrylabel2494; -while(1){ -fornext_value2494=fornext_step2494+(*_FUNC_EVALUATEFUNC_LONG_FI); -fornext_entrylabel2494: -*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2494; -if (fornext_step_negative2494){ -if (fornext_value2494fornext_finalvalue2494) break; -} -fornext_error2494:; -if(qbevent){evnt(17088);if(r)goto S_19881;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17088);}while(r); -fornext_continue_2493:; -} -fornext_exit_2493:; -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+*_FUNC_EVALUATEFUNC_LONG_OMITARGS; -if(!qbevent)break;evnt(17089);}while(r); -} -fornext_continue_2415:; -} -fornext_exit_2415:; -} -S_19888:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ -if(qbevent){evnt(17095);if(r)goto S_19888;} -S_19889:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||new_error){ -if(qbevent){evnt(17096);if(r)goto S_19889;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17096);}while(r); -} -S_19892:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||new_error){ -if(qbevent){evnt(17097);if(r)goto S_19892;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17097);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_lbound(",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17097);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2495= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17098);}while(r); -S_19898:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17099);if(r)goto S_19898;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17099);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(17102);}while(r); -S_19902:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||new_error){ -if(qbevent){evnt(17103);if(r)goto S_19902;} -do{ -*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ; -if(!qbevent)break;evnt(17103);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R2,_FUNC_EVALUATEFUNC_STRING_E),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17105);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17106);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17107);}while(r); -} -S_19909:; -if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||new_error){ -if(qbevent){evnt(17110);if(r)goto S_19909;} -S_19910:; -if ((*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST)||new_error){ -if(qbevent){evnt(17111);if(r)goto S_19910;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",0",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17111);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17111);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17113);}while(r); -LABEL_EVALFUNCSPECIAL:; -if(qbevent){evnt(17115);r=0;} -S_19917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||new_error){ -if(qbevent){evnt(17117);if(r)goto S_19917;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(17117);}while(r); -} -S_19920:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SIN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("COS",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("TAN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ATN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SQR",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LOG",3)))))||new_error){ -if(qbevent){evnt(17120);if(r)goto S_19920;} -do{ -*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(17121);}while(r); -S_19922:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(17122);if(r)goto S_19922;} -S_19923:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(17124);if(r)goto S_19923;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17124);}while(r); -} -S_19926:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(17125);if(r)goto S_19926;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17125);}while(r); -} -}else{ -S_19930:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||new_error){ -if(qbevent){evnt(17128);if(r)goto S_19930;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17128);}while(r); -} -S_19933:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||new_error){ -if(qbevent){evnt(17129);if(r)goto S_19933;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17129);}while(r); -} -} -} -S_19938:; -if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381))==(*__LONG_ISUDT+( 1 ))))||new_error){ -if(qbevent){evnt(17133);if(r)goto S_19938;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),FUNC_STR2(&(pass2496=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17135);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; -if (new_error) goto skip2497; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2497; -skip2497: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17136);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17137);}while(r); -} -S_19943:; -if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||new_error){ -if(qbevent){evnt(17140);if(r)goto S_19943;} -S_19944:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_R, 11 ),qbs_new_txt_len("( char* )",11))))||new_error){ -if(qbevent){evnt(17141);if(r)goto S_19944;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17142);}while(r); -} -} -S_19948:; -if (( 0 )||new_error){ -if(qbevent){evnt(17146);if(r)goto S_19948;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2498; -sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0 , 0 , 0 ); -if (new_error) goto skip2498; -sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0 , 0 , 1 ); -if (new_error) goto skip2498; -skip2498: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17146);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17147);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free14.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC);return _FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC; -} -qbs* FUNC_VARIABLESIZE(int32*_FUNC_VARIABLESIZE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data15.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_19952:; -if ((-(*_FUNC_VARIABLESIZE_LONG_I!= -1 ))||new_error){ -if(qbevent){evnt(17152);if(r)goto S_19952;} -do{ -SUB_GETID(_FUNC_VARIABLESIZE_LONG_I); -if(!qbevent)break;evnt(17152);}while(r); -} -S_19955:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17153);if(r)goto S_19955;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17153);}while(r); -} -do{ -*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(17155);}while(r); -S_19959:; -if ((-(*_FUNC_VARIABLESIZE_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(17155);if(r)goto S_19959;} -do{ -*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(17155);}while(r); -} -do{ -*_FUNC_VARIABLESIZE_LONG_BYTES=(*_FUNC_VARIABLESIZE_LONG_T& 511 )/ 8 ; -if(!qbevent)break;evnt(17156);}while(r); -S_19963:; -if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17158);if(r)goto S_19963;} -do{ -*_FUNC_VARIABLESIZE_LONG_U=*_FUNC_VARIABLESIZE_LONG_T& 511 ; -if(!qbevent)break;evnt(17159);}while(r); -do{ -*_FUNC_VARIABLESIZE_LONG_BYTES=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_VARIABLESIZE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(17160);}while(r); -} -S_19967:; -if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17163);if(r)goto S_19967;} -S_19968:; -if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17164);if(r)goto S_19968;} -do{ -*_FUNC_VARIABLESIZE_LONG_BYTES=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(17165);}while(r); -}else{ -S_19971:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17167);if(r)goto S_19971;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot determine size of variable-length string array",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17167);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17167);}while(r); -} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17168);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17169);}while(r); -} -} -S_19979:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17173);if(r)goto S_19979;} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17174);}while(r); -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES),qbs_new_txt_len("*(",2)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[2]&1)",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17175);}while(r); -do{ -*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(17176);}while(r); -S_19983:; -if ((-(*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS== -1 ))||new_error){ -if(qbevent){evnt(17176);if(r)goto S_19983;} -do{ -*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS= 1 ; -if(!qbevent)break;evnt(17176);}while(r); -} -S_19986:; -fornext_value2500= 1 ; -fornext_finalvalue2500=*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS; -fornext_step2500= 1 ; -if (fornext_step2500<0) fornext_step_negative2500=1; else fornext_step_negative2500=0; -if (new_error) goto fornext_error2500; -goto fornext_entrylabel2500; -while(1){ -fornext_value2500=fornext_step2500+(*_FUNC_VARIABLESIZE_LONG_I2); -fornext_entrylabel2500: -*_FUNC_VARIABLESIZE_LONG_I2=fornext_value2500; -if (fornext_step_negative2500){ -if (fornext_value2500fornext_finalvalue2500) break; -} -fornext_error2500:; -if(qbevent){evnt(17177);if(r)goto S_19986;} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_VARIABLESIZE_STRING_S,qbs_new_txt_len("*",1)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2501=(*_FUNC_VARIABLESIZE_LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17178);}while(r); -fornext_continue_2499:; -} -fornext_exit_2499:; -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_VARIABLESIZE_STRING_S),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17180);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17181);}while(r); -} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17184);}while(r); +if(!qbevent)break;evnt(16618);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free15.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE);return _FUNC_VARIABLESIZE_STRING_VARIABLESIZE; +qbs_maketmp(_FUNC_EVALUATE_STRING_EVALUATE);return _FUNC_EVALUATE_STRING_EVALUATE; } -qbs* FUNC_EVALUATETOTYP(qbs*_FUNC_EVALUATETOTYP_STRING_A2,int32*_FUNC_EVALUATETOTYP_LONG_TARGETTYP){ +qbs* FUNC_EVALUATEFUNC(qbs*_FUNC_EVALUATEFUNC_STRING_A2,int32*_FUNC_EVALUATEFUNC_LONG_ARGS,int32*_FUNC_EVALUATEFUNC_LONG_TYP){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -69406,1622 +68959,4511 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_A2); +qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17191);}while(r); +if(!qbevent)break;evnt(16628);}while(r); +S_19336:; +if (( 0 )||new_error){ +if(qbevent){evnt(16630);if(r)goto S_19336;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_LONG_SOURCETYP)); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2620; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluatingfunction:",19),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(":",1)),_FUNC_EVALUATEFUNC_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2620; +skip2620: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17192);}while(r); -S_19995:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17193);if(r)goto S_19995;} +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16630);}while(r); +} +do{ +if(!qbevent)break;evnt(16632);}while(r); +do{ +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(16634);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16635);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381)); +if(!qbevent)break;evnt(16636);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID; +if(!qbevent)break;evnt(16637);}while(r); +S_19344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_stub",9))))||new_error){ +if(qbevent){evnt(16639);if(r)goto S_19344;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16639);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17193);}while(r); +if(!qbevent)break;evnt(16639);}while(r); } -S_19998:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(17196);if(r)goto S_19998;} -S_19999:; -if (((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP>= 0 )))||new_error){ -if(qbevent){evnt(17197);if(r)goto S_19999;} +S_19348:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_input",10)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))&(-(*__BYTE_INPUTFUNCTIONCALLED== 0 ))))||new_error){ +if(qbevent){evnt(16640);if(r)goto S_19348;} +do{ +*__BYTE_INPUTFUNCTIONCALLED= -1 ; +if(!qbevent)break;evnt(16641);}while(r); +S_19350:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(16642);if(r)goto S_19350;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip2621; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102), 0 , 0 , 1 ); +if (new_error) goto skip2621; +skip2621: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16643);}while(r); +} +} +do{ +SUB_SETDEPENDENCY(&(pass2622=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(546)))); +if(!qbevent)break;evnt(16647);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ; +if(!qbevent)break;evnt(16649);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST= 0 ; +if(!qbevent)break;evnt(16650);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST= 0 ; +if(!qbevent)break;evnt(16650);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16652);}while(r); +S_19359:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||new_error){ +if(qbevent){evnt(16653);if(r)goto S_19359;} +do{ +*_FUNC_EVALUATEFUNC_LONG_SQB= 0 ; +if(!qbevent)break;evnt(16656);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_A= 0 ; +if(!qbevent)break;evnt(16657);}while(r); +S_19362:; +fornext_value2625= 1 ; +fornext_finalvalue2625=_FUNC_EVALUATEFUNC_STRING_F->len; +fornext_step2625= 1 ; +if (fornext_step2625<0) fornext_step_negative2625=1; else fornext_step_negative2625=0; +if (new_error) goto fornext_error2625; +goto fornext_entrylabel2625; +while(1){ +fornext_value2625=fornext_step2625+(*_FUNC_EVALUATEFUNC_LONG_FI); +fornext_entrylabel2625: +*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2625; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2625){ +if (fornext_value2625fornext_finalvalue2625) break; +} +fornext_error2625:; +if(qbevent){evnt(16658);if(r)goto S_19362;} +do{ +*_FUNC_EVALUATEFUNC_LONG_FA=qbs_asc(_FUNC_EVALUATEFUNC_STRING_F,*_FUNC_EVALUATEFUNC_LONG_FI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16659);}while(r); +S_19364:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 63 ))||new_error){ +if(qbevent){evnt(16660);if(r)goto S_19364;} +do{ +*_FUNC_EVALUATEFUNC_LONG_A=*_FUNC_EVALUATEFUNC_LONG_A+ 1 ; +if(!qbevent)break;evnt(16661);}while(r); +S_19366:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_SQB!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST== 0 )))||new_error){ +if(qbevent){evnt(16662);if(r)goto S_19366;} +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST=*_FUNC_EVALUATEFUNC_LONG_A; +if(!qbevent)break;evnt(16662);}while(r); +} +} +S_19370:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 91 ))||new_error){ +if(qbevent){evnt(16664);if(r)goto S_19370;} +do{ +*_FUNC_EVALUATEFUNC_LONG_SQB= 1 ; +if(!qbevent)break;evnt(16664);}while(r); +} +S_19373:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_FA== 93 ))||new_error){ +if(qbevent){evnt(16665);if(r)goto S_19373;} +do{ +*_FUNC_EVALUATEFUNC_LONG_SQB= 0 ; +if(!qbevent)break;evnt(16665);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST=*_FUNC_EVALUATEFUNC_LONG_A; +if(!qbevent)break;evnt(16665);}while(r); +} +fornext_continue_2624:; +} +fornext_exit_2624:; +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARGS=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST-*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST+ 1 ; +if(!qbevent)break;evnt(16667);}while(r); +S_19379:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_ARGS!=(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))-*_FUNC_EVALUATEFUNC_LONG_OMITARGS)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS!=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))||new_error){ +if(qbevent){evnt(16669);if(r)goto S_19379;} +S_19380:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||new_error){ +if(qbevent){evnt(16670);if(r)goto S_19380;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16671);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16673);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16675);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ; +if(!qbevent)break;evnt(16678);}while(r); +S_19388:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))==*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ +if(qbevent){evnt(16680);if(r)goto S_19388;} +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST= 0 ; +if(!qbevent)break;evnt(16680);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST= 0 ; +if(!qbevent)break;evnt(16680);}while(r); +} +}else{ +S_19393:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))))||new_error){ +if(qbevent){evnt(16684);if(r)goto S_19393;} +do{ +goto LABEL_SKIPARGNUMCHK; +if(!qbevent)break;evnt(16684);}while(r); +} +S_19396:; +if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(811))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))))||new_error){ +if(qbevent){evnt(16685);if(r)goto S_19396;} +do{ +goto LABEL_SKIPARGNUMCHK; +if(!qbevent)break;evnt(16685);}while(r); +} +S_19399:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ +if(qbevent){evnt(16687);if(r)goto S_19399;} +S_19400:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||new_error){ +if(qbevent){evnt(16688);if(r)goto S_19400;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16689);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16691);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16693);}while(r); +} +} +LABEL_SKIPARGNUMCHK:; +if(qbevent){evnt(16698);r=0;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16700);}while(r); +S_19409:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!= 0 ))||new_error){ +if(qbevent){evnt(16703);if(r)goto S_19409;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ; +if(!qbevent)break;evnt(16705);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ; +if(!qbevent)break;evnt(16706);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16708);}while(r); +S_19413:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(16709);if(r)goto S_19413;} +do{ +*_FUNC_EVALUATEFUNC_LONG_I= 0 ; +if(!qbevent)break;evnt(16709);}while(r); +do{ +goto LABEL_NOARGS; +if(!qbevent)break;evnt(16709);}while(r); +} +S_19417:; +fornext_value2628= 1 ; +fornext_finalvalue2628=*_FUNC_EVALUATEFUNC_LONG_N; +fornext_step2628= 1 ; +if (fornext_step2628<0) fornext_step_negative2628=1; else fornext_step_negative2628=0; +if (new_error) goto fornext_error2628; +goto fornext_entrylabel2628; +while(1){ +fornext_value2628=fornext_step2628+(*_FUNC_EVALUATEFUNC_LONG_I); +fornext_entrylabel2628: +*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2628; +if (fornext_step_negative2628){ +if (fornext_value2628fornext_finalvalue2628) break; +} +fornext_error2628:; +if(qbevent){evnt(16711);if(r)goto S_19417;} +S_19418:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG>=*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ +if(qbevent){evnt(16715);if(r)goto S_19418;} +LABEL_NOARGS:; +if(qbevent){evnt(16716);r=0;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16717);}while(r); +S_19420:; +fornext_value2630= 1 ; +fornext_finalvalue2630=*_FUNC_EVALUATEFUNC_LONG_OMITARGS- 1 ; +fornext_step2630= 1 ; +if (fornext_step2630<0) fornext_step_negative2630=1; else fornext_step_negative2630=0; +if (new_error) goto fornext_error2630; +goto fornext_entrylabel2630; +while(1){ +fornext_value2630=fornext_step2630+(*_FUNC_EVALUATEFUNC_LONG_FI); +fornext_entrylabel2630: +*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2630; +if (fornext_step_negative2630){ +if (fornext_value2630fornext_finalvalue2630) break; +} +fornext_error2630:; +if(qbevent){evnt(16721);if(r)goto S_19420;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16721);}while(r); +fornext_continue_2629:; +} +fornext_exit_2629:; +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16721);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+*_FUNC_EVALUATEFUNC_LONG_OMITARGS; +if(!qbevent)break;evnt(16722);}while(r); +S_19425:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ +if(qbevent){evnt(16723);if(r)goto S_19425;} +do{ +goto fornext_exit_2627; +if(!qbevent)break;evnt(16723);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16724);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16727);}while(r); +S_19431:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(16728);if(r)goto S_19431;} +do{ +*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ; +if(!qbevent)break;evnt(16728);}while(r); +} +S_19434:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(16729);if(r)goto S_19434;} +do{ +*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ; +if(!qbevent)break;evnt(16729);}while(r); +} +S_19437:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATEFUNC_LONG_B== 0 )))|(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))))||new_error){ +if(qbevent){evnt(16730);if(r)goto S_19437;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16732);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2647)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16733);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16734);}while(r); +S_19441:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ +if(qbevent){evnt(16736);if(r)goto S_19441;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,_FUNC_EVALUATEFUNC_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16737);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2631=*_FUNC_EVALUATEFUNC_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16739);}while(r); +} +S_19446:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(16742);if(r)goto S_19446;} +do{ +*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ; +if(!qbevent)break;evnt(16742);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ; +if(!qbevent)break;evnt(16742);}while(r); +} +S_19451:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CV",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16747);if(r)goto S_19451;} +S_19452:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16748);if(r)goto S_19452;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16749);}while(r); +S_19454:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16750);if(r)goto S_19454;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16750);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16751);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16752);}while(r); +} +} +S_19461:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MK",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16758);if(r)goto S_19461;} +S_19462:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16759);if(r)goto S_19462;} +S_19463:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16760);if(r)goto S_19463;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16761);}while(r); +S_19465:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16762);if(r)goto S_19465;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16762);}while(r); +} +S_19468:; +if (( 0 )||new_error){ +if(qbevent){evnt(16763);if(r)goto S_19468;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2632; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_MK:[",5),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]:[",3)),_FUNC_EVALUATEFUNC_STRING_MKTYPE),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip2632; +skip2632: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16763);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16764);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16765);}while(r); +} +} +} +S_19476:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ +if(qbevent){evnt(16770);if(r)goto S_19476;} +S_19477:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16771);if(r)goto S_19477;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16773);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16774);}while(r); +S_19480:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16775);if(r)goto S_19480;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16775);}while(r); +} +S_19483:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(16776);if(r)goto S_19483;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16776);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16776);}while(r); +} +S_19487:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(16777);if(r)goto S_19487;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16777);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16777);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16779);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(16780);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16781);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16782);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16783);}while(r); +} +} +S_19498:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(16789);if(r)goto S_19498;} +S_19499:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16790);if(r)goto S_19499;} +S_19500:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(16791);if(r)goto S_19500;} +S_19501:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(16792);if(r)goto S_19501;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16792);}while(r); +} +} +} +} +S_19507:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||new_error){ +if(qbevent){evnt(16799);if(r)goto S_19507;} +S_19508:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(16800);if(r)goto S_19508;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2634= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16801);}while(r); +S_19510:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16802);if(r)goto S_19510;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16802);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16803);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16804);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16805);}while(r); +} +} +S_19518:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEMGET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16816);if(r)goto S_19518;} +S_19519:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16817);if(r)goto S_19519;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16818);}while(r); +} +S_19522:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(16820);if(r)goto S_19522;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16821);}while(r); +} +S_19525:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||new_error){ +if(qbevent){evnt(16823);if(r)goto S_19525;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16824);}while(r); +S_19527:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("*",1)),__STRING1_SP),0)))||new_error){ +if(qbevent){evnt(16825);if(r)goto S_19527;} +S_19528:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 ),qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(16826);if(r)goto S_19528;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16827);}while(r); +}else{ +S_19531:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("&",1)))|(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("%",1)))))||new_error){ +if(qbevent){evnt(16829);if(r)goto S_19531;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16829);}while(r); +} +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16832);}while(r); +S_19537:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(16833);if(r)goto S_19537;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16833);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16833);}while(r); +} +S_19541:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(16834);if(r)goto S_19541;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT TYPE unsupported",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16834);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16834);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(16835);}while(r); +S_19546:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16836);if(r)goto S_19546;} +S_19547:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(16837);if(r)goto S_19547;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16837);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16837);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("qbs*",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16838);}while(r); +}else{ +S_19553:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(16840);if(r)goto S_19553;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(16841);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("void*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16842);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/ 8 ; +if(!qbevent)break;evnt(16844);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_T,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16845);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2637=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16854);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2638= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16855);}while(r); +S_19563:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(16856);if(r)goto S_19563;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__memget((mem_block*)",25),_FUNC_EVALUATEFUNC_STRING_BLKOFFS),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16858);}while(r); +} +S_19566:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16860);if(r)goto S_19566;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len((char*)",23),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16861);}while(r); +}else{ +S_19569:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(16863);if(r)goto S_19569;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((void*)+",9),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16864);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 ); +if(!qbevent)break;evnt(16865);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP),qbs_new_txt_len("*)(",3)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16867);}while(r); +S_19574:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(16868);if(r)goto S_19574;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16868);}while(r); +} +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T; +if(!qbevent)break;evnt(16878);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16881);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16886);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16887);}while(r); +S_19585:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16888);if(r)goto S_19585;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16888);}while(r); +} +S_19588:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16892);if(r)goto S_19588;} +S_19589:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16893);if(r)goto S_19589;} +S_19590:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ +if(qbevent){evnt(16894);if(r)goto S_19590;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ; +if(!qbevent)break;evnt(16895);}while(r); +} +S_19593:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ +if(qbevent){evnt(16897);if(r)goto S_19593;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("_at_offset",10)),qbs_right(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_R->len-((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)))->len)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16898);}while(r); +S_19595:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||new_error){ +if(qbevent){evnt(16899);if(r)goto S_19595;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16899);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16899);}while(r); +} +} +} +} +S_19602:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16905);if(r)goto S_19602;} +S_19603:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(16906);if(r)goto S_19603;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET expects the name of a variable/array",43))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16907);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16907);}while(r); +} +S_19607:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(16909);if(r)goto S_19607;} +S_19608:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16910);if(r)goto S_19608;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET cannot reference _BIT type arrays",40))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16910);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16910);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((uptrszint)(",13),FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2640= -6 ))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16912);}while(r); +S_19614:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16913);if(r)goto S_19614;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16913);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16914);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16915);}while(r); +} +S_19620:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(16919);if(r)goto S_19620;} +S_19621:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKSMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(16920);if(r)goto S_19621;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17198);}while(r); +if(!qbevent)break;evnt(16920);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17198);}while(r); +if(!qbevent)break;evnt(16920);}while(r); } -} -S_20004:; -if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 )))||new_error){ -if(qbevent){evnt(17204);if(r)goto S_20004;} -S_20005:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17205);if(r)goto S_20005;} +S_19625:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKDMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(16921);if(r)goto S_19625;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17205);}while(r); +if(!qbevent)break;evnt(16921);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17205);}while(r); +if(!qbevent)break;evnt(16921);}while(r); } +} +S_19630:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||new_error){ +if(qbevent){evnt(16925);if(r)goto S_19630;} +S_19631:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16926);if(r)goto S_19631;} +S_19632:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(16927);if(r)goto S_19632;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2641= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16927);}while(r); +} +S_19635:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16928);if(r)goto S_19635;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16928);}while(r); +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16929);}while(r); +} +} +S_19641:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||new_error){ +if(qbevent){evnt(16934);if(r)goto S_19641;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16935);}while(r); +S_19643:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(16936);if(r)goto S_19643;} +S_19644:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16938);if(r)goto S_19644;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((int32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")->len)",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16939);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16940);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("String expression or variable name required in LEN statement",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16942);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16942);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2642= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16944);}while(r); +S_19652:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16945);if(r)goto S_19652;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16945);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16946);}while(r); +} +S_19657:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("BIN",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16951);if(r)goto S_19657;} +S_19658:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16952);if(r)goto S_19658;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16953);}while(r); +S_19660:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16955);if(r)goto S_19660;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16955);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16955);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; +if(!qbevent)break;evnt(16956);}while(r); +S_19665:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16957);if(r)goto S_19665;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2643= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16957);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; +if(!qbevent)break;evnt(16957);}while(r); +} +S_19669:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16958);if(r)goto S_19669;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16958);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16959);}while(r); +S_19673:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16960);if(r)goto S_19673;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16961);}while(r); +}else{ +S_19676:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16963);if(r)goto S_19676;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func__bin_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16964);}while(r); +}else{ +S_19679:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(16966);if(r)goto S_19679;} +S_19680:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ +if(qbevent){evnt(16967);if(r)goto S_19680;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; +if(!qbevent)break;evnt(16967);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16969);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16972);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16973);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16974);}while(r); +} +} +S_19692:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||new_error){ +if(qbevent){evnt(16979);if(r)goto S_19692;} +S_19693:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16980);if(r)goto S_19693;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16981);}while(r); +S_19695:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16983);if(r)goto S_19695;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16983);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16983);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; +if(!qbevent)break;evnt(16984);}while(r); +S_19700:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16985);if(r)goto S_19700;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2644= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16985);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; +if(!qbevent)break;evnt(16985);}while(r); +} +S_19704:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16986);if(r)goto S_19704;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16986);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16987);}while(r); +S_19708:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16988);if(r)goto S_19708;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16989);}while(r); +}else{ +S_19711:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16991);if(r)goto S_19711;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_oct_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16992);}while(r); +}else{ +S_19714:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(16994);if(r)goto S_19714;} +S_19715:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ +if(qbevent){evnt(16995);if(r)goto S_19715;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; +if(!qbevent)break;evnt(16995);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16997);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17000);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17001);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17002);}while(r); +} +} +S_19727:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||new_error){ +if(qbevent){evnt(17007);if(r)goto S_19727;} +S_19728:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(17008);if(r)goto S_19728;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17009);}while(r); +S_19730:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17010);if(r)goto S_19730;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17010);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17010);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; +if(!qbevent)break;evnt(17011);}while(r); +S_19735:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17012);if(r)goto S_19735;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2645= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17012);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; +if(!qbevent)break;evnt(17012);}while(r); +} +S_19739:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17013);if(r)goto S_19739;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17013);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17014);}while(r); +S_19743:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17015);if(r)goto S_19743;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/ 4 ; +if(!qbevent)break;evnt(17016);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17017);}while(r); +}else{ +S_19747:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17019);if(r)goto S_19747;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_hex_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17020);}while(r); +}else{ +S_19750:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(17022);if(r)goto S_19750;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ; +if(!qbevent)break;evnt(17022);}while(r); +} +S_19753:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(17023);if(r)goto S_19753;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ; +if(!qbevent)break;evnt(17023);}while(r); +} +S_19756:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17024);if(r)goto S_19756;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ; +if(!qbevent)break;evnt(17024);}while(r); +} +S_19759:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17025);if(r)goto S_19759;} +S_19760:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||new_error){ +if(qbevent){evnt(17026);if(r)goto S_19760;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ; +if(!qbevent)break;evnt(17026);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ; +if(!qbevent)break;evnt(17026);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17028);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17031);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17032);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17033);}while(r); +} +} +S_19774:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||new_error){ +if(qbevent){evnt(17039);if(r)goto S_19774;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17040);}while(r); +S_19776:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17041);if(r)goto S_19776;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17041);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17041);}while(r); +} +S_19780:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17042);if(r)goto S_19780;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2646= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17042);}while(r); +} +S_19783:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17043);if(r)goto S_19783;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17043);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17044);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17045);}while(r); +S_19788:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17046);if(r)goto S_19788;} +S_19789:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17047);if(r)goto S_19789;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17047);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17047);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17047);}while(r); +} +}else{ +S_19796:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17049);if(r)goto S_19796;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17050);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17050);}while(r); +}else{ +S_19800:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(17052);if(r)goto S_19800;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17052);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17052);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17052);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17055);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17056);}while(r); +} +S_19811:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||new_error){ +if(qbevent){evnt(17060);if(r)goto S_19811;} +S_19812:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17061);if(r)goto S_19812;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17061);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17061);}while(r); +} +S_19816:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17062);if(r)goto S_19816;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2647= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17062);}while(r); +} +S_19819:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17063);if(r)goto S_19819;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17063);}while(r); +} +S_19822:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17065);if(r)goto S_19822;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("floor(",6),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17065);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17065);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17066);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17067);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17068);}while(r); +} +S_19831:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||new_error){ +if(qbevent){evnt(17072);if(r)goto S_19831;} +S_19832:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17073);if(r)goto S_19832;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17073);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17073);}while(r); +} +S_19836:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17074);if(r)goto S_19836;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2648= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17074);}while(r); +} +S_19839:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17075);if(r)goto S_19839;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17075);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17077);}while(r); +S_19843:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17078);if(r)goto S_19843;} +S_19844:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17079);if(r)goto S_19844;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17079);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_double(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17079);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17081);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17083);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17084);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17085);}while(r); +} +S_19856:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROUND",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17089);if(r)goto S_19856;} +S_19857:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17090);if(r)goto S_19857;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17090);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17090);}while(r); +} +S_19861:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17091);if(r)goto S_19861;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2649= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17091);}while(r); +} +S_19864:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17092);if(r)goto S_19864;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17092);}while(r); +} +S_19867:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17094);if(r)goto S_19867;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17095);}while(r); +S_19869:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17096);if(r)goto S_19869;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_float(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17096);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_double(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17096);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17098);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17100);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17101);}while(r); +S_19879:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17102);if(r)goto S_19879;} +S_19880:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(17103);if(r)goto S_19880;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17103);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17103);}while(r); +} +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17105);}while(r); +} +S_19888:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||new_error){ +if(qbevent){evnt(17110);if(r)goto S_19888;} +S_19889:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17111);if(r)goto S_19889;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17111);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17111);}while(r); +} +S_19893:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17112);if(r)goto S_19893;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17112);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17112);}while(r); +} +S_19897:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17113);if(r)goto S_19897;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2650= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17113);}while(r); +} +S_19900:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17114);if(r)goto S_19900;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17114);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17116);}while(r); +S_19904:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17117);if(r)goto S_19904;} +S_19905:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17118);if(r)goto S_19905;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cdbl_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17118);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17120);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17122);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17123);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17124);}while(r); +} +S_19915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||new_error){ +if(qbevent){evnt(17128);if(r)goto S_19915;} +S_19916:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17129);if(r)goto S_19916;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17129);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17129);}while(r); +} +S_19920:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17130);if(r)goto S_19920;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17130);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17130);}while(r); +} +S_19924:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17131);if(r)goto S_19924;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2651= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17131);}while(r); +} +S_19927:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17132);if(r)goto S_19927;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17132);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17134);}while(r); +S_19931:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17135);if(r)goto S_19931;} +S_19932:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17136);if(r)goto S_19932;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17136);}while(r); +} +S_19935:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17137);if(r)goto S_19935;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17137);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17139);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17141);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17142);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17143);}while(r); +} +S_19945:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||new_error){ +if(qbevent){evnt(17148);if(r)goto S_19945;} +S_19946:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17149);if(r)goto S_19946;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17149);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17149);}while(r); +} +S_19950:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17150);if(r)goto S_19950;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17150);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17150);}while(r); +} +S_19954:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17151);if(r)goto S_19954;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2652= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17151);}while(r); +} +S_19957:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17152);if(r)goto S_19957;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17152);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17154);}while(r); +S_19961:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17155);if(r)goto S_19961;} +S_19962:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17156);if(r)goto S_19962;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17156);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17156);}while(r); +} +}else{ +S_19968:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17158);if(r)goto S_19968;} +S_19969:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17159);if(r)goto S_19969;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17159);}while(r); +} +S_19972:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17160);if(r)goto S_19972;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17160);}while(r); +} +}else{ +S_19976:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17162);if(r)goto S_19976;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17162);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17165);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ; +if(!qbevent)break;evnt(17166);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17167);}while(r); +} +S_19985:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||new_error){ +if(qbevent){evnt(17171);if(r)goto S_19985;} +S_19986:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17172);if(r)goto S_19986;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17172);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17172);}while(r); +} +S_19990:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17173);if(r)goto S_19990;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17173);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17173);}while(r); +} +S_19994:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17174);if(r)goto S_19994;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2653= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17174);}while(r); +} +S_19997:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17175);if(r)goto S_19997;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17175);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17177);}while(r); +S_20001:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17178);if(r)goto S_20001;} +S_20002:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17179);if(r)goto S_20002;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17179);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17179);}while(r); +} +}else{ +S_20008:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17181);if(r)goto S_20008;} S_20009:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17206);if(r)goto S_20009;} +if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ +if(qbevent){evnt(17182);if(r)goto S_20009;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17206);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17206);}while(r); +if(!qbevent)break;evnt(17182);}while(r); } -S_20013:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(17210);if(r)goto S_20013;} -S_20014:; -if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(17211);if(r)goto S_20014;} +S_20012:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17183);if(r)goto S_20012;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("UDT must have fixed size",24)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17183);}while(r); +} +}else{ +S_20016:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ +if(qbevent){evnt(17185);if(r)goto S_20016;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_long(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17185);}while(r); +} +S_20019:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17186);if(r)goto S_20019;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17186);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17189);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ; +if(!qbevent)break;evnt(17190);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17191);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ; +if(!qbevent)break;evnt(17195);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ; +if(!qbevent)break;evnt(17196);}while(r); +S_20030:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||new_error){ +if(qbevent){evnt(17197);if(r)goto S_20030;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ; +if(!qbevent)break;evnt(17197);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17197);}while(r); +} +S_20034:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||new_error){ +if(qbevent){evnt(17198);if(r)goto S_20034;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ; +if(!qbevent)break;evnt(17198);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17198);}while(r); +} +S_20038:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||new_error){ +if(qbevent){evnt(17199);if(r)goto S_20038;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ; +if(!qbevent)break;evnt(17199);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17199);}while(r); +} +S_20042:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||new_error){ +if(qbevent){evnt(17200);if(r)goto S_20042;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ; +if(!qbevent)break;evnt(17200);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17200);}while(r); +} +S_20046:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MK",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17201);if(r)goto S_20046;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ; +if(!qbevent)break;evnt(17201);}while(r); +} +S_20049:; +if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||new_error){ +if(qbevent){evnt(17202);if(r)goto S_20049;} +S_20050:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ +if(qbevent){evnt(17203);if(r)goto S_20050;} +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ; +if(!qbevent)break;evnt(17206);}while(r); +S_20052:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(17207);if(r)goto S_20052;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17207);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17207);}while(r); +} +S_20056:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(17208);if(r)goto S_20056;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17208);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17208);}while(r); +} +S_20060:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(17209);if(r)goto S_20060;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17209);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17209);}while(r); +} +S_20064:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(17210);if(r)goto S_20064;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17210);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17210);}while(r); +} +S_20068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(17211);if(r)goto S_20068;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17211);}while(r); do{ -goto exit_subfunc; +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17211);}while(r); } +S_20072:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(17212);if(r)goto S_20072;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17212);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17212);}while(r); +} +S_20076:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(17213);if(r)goto S_20076;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17213);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17213);}while(r); +} +S_20080:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(17214);if(r)goto S_20080;} do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17214);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17214);}while(r); +} +S_20084:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(17215);if(r)goto S_20084;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17215);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17215);}while(r); +} +S_20088:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(17216);if(r)goto S_20088;} do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17216);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17216);}while(r); +} +S_20092:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(17217);if(r)goto S_20092;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17217);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17217);}while(r); +} +S_20096:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(17218);if(r)goto S_20096;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17218);}while(r); do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17219);}while(r); -S_20029:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17220);if(r)goto S_20029;} +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17218);}while(r); +} +S_20100:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(17219);if(r)goto S_20100;} do{ -goto exit_subfunc; +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17219);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17219);}while(r); +} +S_20104:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(17220);if(r)goto S_20104;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17220);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17220);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 2 ))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17220);}while(r); } +S_20109:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(17221);if(r)goto S_20109;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17221);}while(r); -S_20033:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17222);if(r)goto S_20033;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17221);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17223);}while(r); -S_20035:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ -if(qbevent){evnt(17225);if(r)goto S_20035;} +if(!qbevent)break;evnt(17221);}while(r); +} +S_20114:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||new_error){ +if(qbevent){evnt(17222);if(r)goto S_20114;} do{ -goto LABEL_METHOD2USEALLUDT; -if(!qbevent)break;evnt(17227);}while(r); +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MK only accepts numeric types",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17222);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17222);}while(r); +} +S_20118:; +if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||new_error){ +if(qbevent){evnt(17223);if(r)goto S_20118;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17224);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17226);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ; +if(!qbevent)break;evnt(17228);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP; +if(!qbevent)break;evnt(17229);}while(r); } } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17231);}while(r); -S_20040:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(17234);if(r)goto S_20040;} +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ; +if(!qbevent)break;evnt(17234);}while(r); +S_20128:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||new_error){ +if(qbevent){evnt(17235);if(r)goto S_20128;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2506=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ; +if(!qbevent)break;evnt(17235);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17235);}while(r); -}else{ -S_20043:; -if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))))||new_error){ -if(qbevent){evnt(17237);if(r)goto S_20043;} +} +S_20132:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||new_error){ +if(qbevent){evnt(17236);if(r)goto S_20132;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)",9),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(")->len",6))); +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ; +if(!qbevent)break;evnt(17236);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17236);}while(r); +} +S_20136:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||new_error){ +if(qbevent){evnt(17237);if(r)goto S_20136;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ; +if(!qbevent)break;evnt(17237);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17237);}while(r); +} +S_20140:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||new_error){ +if(qbevent){evnt(17238);if(r)goto S_20140;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ; if(!qbevent)break;evnt(17238);}while(r); do{ -goto exit_subfunc; +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17238);}while(r); +} +S_20144:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CV",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17239);if(r)goto S_20144;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ; if(!qbevent)break;evnt(17239);}while(r); } +S_20147:; +if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||new_error){ +if(qbevent){evnt(17240);if(r)goto S_20147;} +S_20148:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ +if(qbevent){evnt(17241);if(r)goto S_20148;} +S_20149:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17242);if(r)goto S_20149;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2507=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); +SUB_GIVE_ERROR(qbs_add(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len(" requires a STRING argument",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17241);}while(r); -} +if(!qbevent)break;evnt(17242);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +goto exit_subfunc; +if(!qbevent)break;evnt(17242);}while(r); +} +S_20153:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17243);if(r)goto S_20153;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2656= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17243);}while(r); -S_20050:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17244);if(r)goto S_20050;} +} +S_20156:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17244);if(r)goto S_20156;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); +goto exit_subfunc; if(!qbevent)break;evnt(17244);}while(r); } -S_20053:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17245);if(r)goto S_20053;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ; if(!qbevent)break;evnt(17245);}while(r); -} +S_20160:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(17246);if(r)goto S_20160;} do{ -goto exit_subfunc; +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17246);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17246);}while(r); } -S_20058:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17249);if(r)goto S_20058;} -S_20059:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(17251);if(r)goto S_20059;} -S_20060:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17253);if(r)goto S_20060;} -S_20061:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(17254);if(r)goto S_20061;} +S_20164:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(17247);if(r)goto S_20164;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17247);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17247);}while(r); +} +S_20168:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(17248);if(r)goto S_20168;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17248);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17248);}while(r); +} +S_20172:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(17249);if(r)goto S_20172;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17249);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17249);}while(r); +} +S_20176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(17250);if(r)goto S_20176;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17250);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17250);}while(r); +} +S_20180:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(17251);if(r)goto S_20180;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17251);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17251);}while(r); +} +S_20184:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(17252);if(r)goto S_20184;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17252);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17252);}while(r); +} +S_20188:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(17253);if(r)goto S_20188;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17253);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17253);}while(r); +} +S_20192:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(17254);if(r)goto S_20192;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17254);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17254);}while(r); +} +S_20196:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(17255);if(r)goto S_20196;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17255);}while(r); do{ -goto exit_subfunc; +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17255);}while(r); } -} +S_20200:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(17256);if(r)goto S_20200;} do{ -goto LABEL_METHOD2USEALL; +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17256);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17256);}while(r); +} +S_20204:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(17257);if(r)goto S_20204;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17257);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17257);}while(r); +} +S_20208:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(17258);if(r)goto S_20208;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17258);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17258);}while(r); } -S_20068:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17261);if(r)goto S_20068;} -S_20069:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17262);if(r)goto S_20069;} +S_20212:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(17259);if(r)goto S_20212;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17263);}while(r); +if(!qbevent)break;evnt(17259);}while(r); do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17264);}while(r); -S_20072:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17265);if(r)goto S_20072;} +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17259);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17259);}while(r); +} +S_20217:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(17260);if(r)goto S_20217;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17260);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17260);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17260);}while(r); +} +S_20222:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(17261);if(r)goto S_20222;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CV cannot return STRING type!",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17261);}while(r); do{ goto exit_subfunc; +if(!qbevent)break;evnt(17261);}while(r); +} +S_20226:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)))))||new_error){ +if(qbevent){evnt(17262);if(r)goto S_20226;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17263);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17265);}while(r); } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17266);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2508= 0 ))); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17267);}while(r); -S_20077:; +} +} +S_20234:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(17272);if(r)goto S_20234;} +S_20235:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(17273);if(r)goto S_20235;} +S_20236:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17274);if(r)goto S_20236;} +S_20237:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17275);if(r)goto S_20237;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2659= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17275);}while(r); +} +S_20240:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17268);if(r)goto S_20077;} +if(qbevent){evnt(17276);if(r)goto S_20240;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17268);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17269);}while(r); -S_20081:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17270);if(r)goto S_20081;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17270);}while(r); -} -S_20084:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17271);if(r)goto S_20084;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17271);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2509= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17273);}while(r); -S_20089:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17274);if(r)goto S_20089;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17274);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17276);}while(r); -S_20093:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17277);if(r)goto S_20093;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17277);}while(r); } -S_20096:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17278);if(r)goto S_20096;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ; +if(!qbevent)break;evnt(17277);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("->chr[0])",9))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17278);}while(r); } } -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17280);}while(r); } +S_20248:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("SADD",4))))||new_error){ +if(qbevent){evnt(17284);if(r)goto S_20248;} +S_20249:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17285);if(r)goto S_20249;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2510= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17282);}while(r); -S_20103:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17283);if(r)goto S_20103;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17283);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17284);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2511=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17285);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17286);}while(r); -S_20109:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17287);if(r)goto S_20109;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17287);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(17286);}while(r); } -S_20112:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17288);if(r)goto S_20112;} +S_20253:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17288);if(r)goto S_20253;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17288);}while(r); -} +if(!qbevent)break;evnt(17289);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17289);}while(r); } -S_20117:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17292);if(r)goto S_20117;} -S_20118:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17293);if(r)goto S_20118;} +S_20257:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17291);if(r)goto S_20257;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17292);}while(r); +do{ +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17293);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17294);}while(r); do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(17295);}while(r); -S_20121:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17296);if(r)goto S_20121;} do{ -goto exit_subfunc; +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17296);}while(r); } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17297);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2512= 0 ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2660= 0 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17298);}while(r); -S_20126:; +S_20265:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17299);if(r)goto S_20126;} +if(qbevent){evnt(17299);if(r)goto S_20265;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17299);}while(r); } -}else{ do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2513= 0 ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17301);}while(r); -S_20131:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17302);if(r)goto S_20131;} +if(!qbevent)break;evnt(17300);}while(r); do{ -goto exit_subfunc; +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17301);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17302);}while(r); } +S_20272:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARPTR",6))))||new_error){ +if(qbevent){evnt(17306);if(r)goto S_20272;} +S_20273:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17307);if(r)goto S_20273;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17303);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17305);}while(r); -S_20137:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17306);if(r)goto S_20137;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17306);}while(r); -} -S_20140:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17307);if(r)goto S_20140;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17307);}while(r); -} +if(!qbevent)break;evnt(17308);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17308);}while(r); } +S_20277:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(17311);if(r)goto S_20277;} +S_20278:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17312);if(r)goto S_20278;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2514= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17312);}while(r); -S_20146:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17313);if(r)goto S_20146;} -do{ -goto exit_subfunc; +*__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(17313);}while(r); -} do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; if(!qbevent)break;evnt(17314);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17315);}while(r); -S_20151:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17316);if(r)goto S_20151;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; if(!qbevent)break;evnt(17316);}while(r); -} -S_20154:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17317);if(r)goto S_20154;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17317);}while(r); } +S_20285:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17320);if(r)goto S_20285;} +S_20286:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17321);if(r)goto S_20286;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17318);}while(r); -} -S_20159:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 ))||new_error){ -if(qbevent){evnt(17325);if(r)goto S_20159;} -S_20160:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17326);if(r)goto S_20160;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17326);}while(r); +if(!qbevent)break;evnt(17321);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17326);}while(r); +if(!qbevent)break;evnt(17321);}while(r); } -S_20164:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17327);if(r)goto S_20164;} +S_20290:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17322);if(r)goto S_20290;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17322);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17322);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2661= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17327);}while(r); +S_20296:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17328);if(r)goto S_20296;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17327);}while(r); +if(!qbevent)break;evnt(17328);}while(r); } -S_20168:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(17330);if(r)goto S_20168;} +S_20299:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17329);if(r)goto S_20299;} +S_20300:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17330);if(r)goto S_20300;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2662= 0 ))); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17330);}while(r); +} +S_20303:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17331);if(r)goto S_20303;} +do{ +goto exit_subfunc; if(!qbevent)break;evnt(17331);}while(r); +} do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17332);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17332);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_T= 3 ; if(!qbevent)break;evnt(17333);}while(r); +}else{ do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17334);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17334);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17335);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17336);}while(r); +*_FUNC_EVALUATEFUNC_LONG_T= 0 ; +if(!qbevent)break;evnt(17347);}while(r); +S_20311:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17348);if(r)goto S_20311;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17336);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17337);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17338);}while(r); -S_20180:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17339);if(r)goto S_20180;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17339);}while(r); +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ; +if(!qbevent)break;evnt(17348);}while(r); } +S_20314:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17349);if(r)goto S_20314;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17340);}while(r); -S_20184:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17341);if(r)goto S_20184;} +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ; +if(!qbevent)break;evnt(17350);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17342);}while(r); -S_20186:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ -if(qbevent){evnt(17344);if(r)goto S_20186;} -do{ -goto LABEL_METHOD2USEALLUDT__7; -if(!qbevent)break;evnt(17346);}while(r); -} -} -S_20190:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(17350);if(r)goto S_20190;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2518=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 ); if(!qbevent)break;evnt(17351);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T1=*__LONG_ISUDT+((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; -if(!qbevent)break;evnt(17352);}while(r); }else{ do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2519=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17354);}while(r); +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17353);}while(r); +S_20319:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17354);if(r)goto S_20319;} +S_20320:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17355);if(r)goto S_20320;} do{ -*_FUNC_EVALUATETOTYP_LONG_T1=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ; if(!qbevent)break;evnt(17355);}while(r); } +S_20323:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17356);if(r)goto S_20323;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ; +if(!qbevent)break;evnt(17356);}while(r); +} +S_20326:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(17357);if(r)goto S_20326;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ; if(!qbevent)break;evnt(17357);}while(r); +} +}else{ +S_20330:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(17359);if(r)goto S_20330;} do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_T1); +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ; +if(!qbevent)break;evnt(17359);}while(r); +} +S_20333:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(17360);if(r)goto S_20333;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ; +if(!qbevent)break;evnt(17360);}while(r); +} +S_20336:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17361);if(r)goto S_20336;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ; +if(!qbevent)break;evnt(17361);}while(r); +} +S_20339:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17362);if(r)goto S_20339;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ; if(!qbevent)break;evnt(17362);}while(r); +} +} +} +} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_varptr_helper(",19),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17363);}while(r); +if(!qbevent)break;evnt(17366);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17365);}while(r); +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; +if(!qbevent)break;evnt(17367);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17368);}while(r); } -S_20202:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17368);if(r)goto S_20202;} -S_20203:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(17370);if(r)goto S_20203;} -S_20204:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17372);if(r)goto S_20204;} -S_20205:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(17373);if(r)goto S_20205;} +S_20349:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17382);if(r)goto S_20349;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17374);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17374);}while(r); -} -} -do{ -goto LABEL_METHOD2USEALL__7; -if(!qbevent)break;evnt(17377);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17380);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17381);}while(r); -S_20214:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17382);if(r)goto S_20214;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17382);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); +*__INTEGER_RECOMPILE= 1 ; if(!qbevent)break;evnt(17383);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2520=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; if(!qbevent)break;evnt(17384);}while(r); -S_20219:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17388);if(r)goto S_20219;} -S_20220:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17389);if(r)goto S_20220;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17390);}while(r); +if(!qbevent)break;evnt(17385);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2521= 0 ))); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17386);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17387);}while(r); +} +S_20356:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17390);if(r)goto S_20356;} +S_20357:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17391);if(r)goto S_20357;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR cannot reference _BIT type arrays",40)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17391);}while(r); -S_20223:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17392);if(r)goto S_20223;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17392);}while(r); +if(!qbevent)break;evnt(17391);}while(r); +} +S_20361:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17394);if(r)goto S_20361;} +S_20362:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17395);if(r)goto S_20362;} +do{ +SUB_GETID(&(pass2663=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17396);}while(r); +S_20364:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17397);if(r)goto S_20364;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17397);}while(r); } do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(17397);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+(540)); if(!qbevent)break;evnt(17398);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17399);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17400);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17401);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17402);}while(r); }else{ do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_MEMELEMENT cannot reference variable-length strings",52)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2665= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17402);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17402);}while(r); -} -do{ -goto exit_subfunc; if(!qbevent)break;evnt(17405);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2522= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17408);}while(r); -S_20235:; +S_20374:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17409);if(r)goto S_20235;} +if(qbevent){evnt(17406);if(r)goto S_20374;} do{ goto exit_subfunc; +if(!qbevent)break;evnt(17406);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17407);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17408);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17409);}while(r); } +} +S_20382:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17413);if(r)goto S_20382;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17410);}while(r); +if(!qbevent)break;evnt(17414);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2523=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17411);}while(r); +if(!qbevent)break;evnt(17415);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17416);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(17417);}while(r); do{ -goto exit_subfunc; +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17418);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17419);}while(r); } -S_20244:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17422);if(r)goto S_20244;} -S_20245:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17423);if(r)goto S_20245;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +*_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(17423);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17424);}while(r); do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(17425);}while(r); -S_20248:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17426);if(r)goto S_20248;} do{ -goto exit_subfunc; +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17426);}while(r); -} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17427);}while(r); +} +S_20396:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17433);if(r)goto S_20396;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2524= 0 ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2670= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17428);}while(r); -S_20253:; +if(!qbevent)break;evnt(17434);}while(r); +S_20398:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17429);if(r)goto S_20253;} +if(qbevent){evnt(17435);if(r)goto S_20398;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17429);}while(r); +if(!qbevent)break;evnt(17435);}while(r); } -}else{ do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_MEMELEMENT cannot reference variable-length strings",52)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17431);}while(r); +if(!qbevent)break;evnt(17436);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17431);}while(r); -} +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17437);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17438);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(17439);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17441);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2525= 1 ))); +SUB_GETID(&(pass2674=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17445);}while(r); -S_20265:; +if(!qbevent)break;evnt(17442);}while(r); +S_20406:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17446);if(r)goto S_20265;} +if(qbevent){evnt(17443);if(r)goto S_20406;} do{ goto exit_subfunc; +if(!qbevent)break;evnt(17443);}while(r); +} +S_20409:; +if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ +if(qbevent){evnt(17444);if(r)goto S_20409;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17446);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(17447);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(17452);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17453);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17455);}while(r); -} -S_20273:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))||new_error){ -if(qbevent){evnt(17468);if(r)goto S_20273;} -LABEL_METHOD2USEALL__7:; -if(qbevent){evnt(17469);r=0;} -S_20274:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17470);if(r)goto S_20274;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17470);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17470);}while(r); -} -S_20278:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17471);if(r)goto S_20278;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17471);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17471);}while(r); -} -S_20282:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(17474);if(r)goto S_20282;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17476);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17477);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17477);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17478);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17479);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17479);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17480);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17481);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17481);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17483);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17484);}while(r); -S_20294:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17485);if(r)goto S_20294;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17485);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17486);}while(r); -S_20298:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17486);if(r)goto S_20298;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17486);}while(r); -} -LABEL_METHOD2USEALLUDT__7:; -if(qbevent){evnt(17487);r=0;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2529= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17488);}while(r); -S_20302:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17489);if(r)goto S_20302;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17489);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17490);}while(r); -S_20306:; -if ((-(*__LONG_E!= 0 ))||new_error){ -if(qbevent){evnt(17496);if(r)goto S_20306;} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE= 1 ; -if(!qbevent)break;evnt(17496);}while(r); }else{ do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(17496);}while(r); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(") - &cmem[1280] + (",19)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") ))",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17449);}while(r); } do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17452);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17455);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2675= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17456);}while(r); +S_20418:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17457);if(r)goto S_20418;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17457);}while(r); +} +S_20421:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17458);if(r)goto S_20421;} +S_20422:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17459);if(r)goto S_20422;} +do{ +SUB_GETID(&(pass2676=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17462);}while(r); +S_20424:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17463);if(r)goto S_20424;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17463);}while(r); +} +S_20427:; +if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ +if(qbevent){evnt(17464);if(r)goto S_20427;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(",20),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr)",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17465);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17467);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17471);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17473);}while(r); +} +do{ +SUB_GETID(&(pass2677=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17478);}while(r); +S_20438:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17479);if(r)goto S_20438;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17479);}while(r); +} +S_20441:; +if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ +if(qbevent){evnt(17480);if(r)goto S_20441;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check((uint8*)",28),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17481);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17483);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17486);}while(r); +} +S_20448:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARSEG",6))))||new_error){ +if(qbevent){evnt(17490);if(r)goto S_20448;} +S_20449:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17491);if(r)goto S_20449;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17492);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17492);}while(r); +} +S_20453:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17494);if(r)goto S_20453;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17495);}while(r); +do{ +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17496);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17497);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(17498);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_EVALFUNCSPECIAL; if(!qbevent)break;evnt(17499);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17501);}while(r); } -S_20315:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17505);if(r)goto S_20315;} -S_20316:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17506);if(r)goto S_20316;} -S_20317:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(17507);if(r)goto S_20317;} +S_20460:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17502);if(r)goto S_20460;} +S_20461:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(17503);if(r)goto S_20461;} +S_20462:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17504);if(r)goto S_20462;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45)); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17508);}while(r); +if(!qbevent)break;evnt(17505);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17508);}while(r); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17506);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17507);}while(r); } } do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17510);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("( ( ((ptrszint)(",16),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2678= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17512);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17513);}while(r); -S_20324:; +if(!qbevent)break;evnt(17511);}while(r); +S_20470:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17514);if(r)goto S_20324;} +if(qbevent){evnt(17512);if(r)goto S_20470;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17514);}while(r); +if(!qbevent)break;evnt(17512);}while(r); } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17516);}while(r); +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17513);}while(r); +} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2530=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; if(!qbevent)break;evnt(17517);}while(r); do{ -*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +SUB_GETID(&(pass2679=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17519);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17521);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2532= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17522);}while(r); -S_20332:; +S_20477:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17523);if(r)goto S_20332;} +if(qbevent){evnt(17520);if(r)goto S_20477;} do{ goto exit_subfunc; +if(!qbevent)break;evnt(17520);}while(r); +} +S_20480:; +if (((-(*(int16*)(((char*)__UDT_ID)+(2859))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(17521);if(r)goto S_20480;} +S_20481:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17522);if(r)goto S_20481;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2680= 1 ))); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17523);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2533= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17524);}while(r); -S_20336:; +S_20483:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17525);if(r)goto S_20336;} +if(qbevent){evnt(17524);if(r)goto S_20483;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17525);}while(r); +if(!qbevent)break;evnt(17524);}while(r); } -S_20339:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17527);if(r)goto S_20339;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")->chr)",7))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17525);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17526);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17527);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17528);}while(r); }else{ do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check((uint8*)",28),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2684= 1 ))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17530);}while(r); -} -S_20344:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17535);if(r)goto S_20344;} +S_20492:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17531);if(r)goto S_20492;} do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; -if(!qbevent)break;evnt(17536);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(17531);}while(r); +} +} }else{ do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(17538);}while(r); +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17535);}while(r); } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17540);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(17542);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17543);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17545);}while(r); +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17537);}while(r); } -S_20354:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17549);if(r)goto S_20354;} -S_20355:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(17550);if(r)goto S_20355;} +S_20501:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||new_error){ +if(qbevent){evnt(17563);if(r)goto S_20501;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17550);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17550);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17552);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17553);}while(r); -S_20361:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17553);if(r)goto S_20361;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17553);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17554);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2534= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17555);}while(r); -S_20366:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17555);if(r)goto S_20366;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17555);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(17557);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17558);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17560);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2535= 1 ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2685= -2 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17564);}while(r); -S_20374:; +S_20503:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17565);if(r)goto S_20374;} +if(qbevent){evnt(17565);if(r)goto S_20503;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17565);}while(r); } do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +goto LABEL_DONTEVALUATE; if(!qbevent)break;evnt(17566);}while(r); +} +S_20508:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||new_error){ +if(qbevent){evnt(17569);if(r)goto S_20508;} do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(17568);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2686= -7 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17569);}while(r); +if(!qbevent)break;evnt(17570);}while(r); +S_20510:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17571);if(r)goto S_20510;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17571);}while(r); } -S_20382:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))||new_error){ -if(qbevent){evnt(17576);if(r)goto S_20382;} -LABEL_METHOD2USEALL:; -if(qbevent){evnt(17577);r=0;} -S_20383:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17580);if(r)goto S_20383;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17572);}while(r); +} +S_20515:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||new_error){ +if(qbevent){evnt(17575);if(r)goto S_20515;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2687= -8 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17580);}while(r); +if(!qbevent)break;evnt(17576);}while(r); +S_20517:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17577);if(r)goto S_20517;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17580);}while(r); +if(!qbevent)break;evnt(17577);}while(r); } -S_20387:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17581);if(r)goto S_20387;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17578);}while(r); +} +S_20522:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(17581);if(r)goto S_20522;} +S_20523:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ +if(qbevent){evnt(17582);if(r)goto S_20523;} +S_20524:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(548))== 0 ))||new_error){ +if(qbevent){evnt(17583);if(r)goto S_20524;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17581);}while(r); +if(!qbevent)break;evnt(17583);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17581);}while(r); +if(!qbevent)break;evnt(17583);}while(r); +} +} } -S_20391:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(17584);if(r)goto S_20391;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17586);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17587);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17587);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ; if(!qbevent)break;evnt(17588);}while(r); +S_20531:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||new_error){ +if(qbevent){evnt(17589);if(r)goto S_20531;} do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17589);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17589);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ; if(!qbevent)break;evnt(17590);}while(r); +S_20533:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17591);if(r)goto S_20533;} do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17591);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); +goto exit_subfunc; if(!qbevent)break;evnt(17591);}while(r); +} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; if(!qbevent)break;evnt(17592);}while(r); +S_20538:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(17593);if(r)goto S_20538;} do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER; if(!qbevent)break;evnt(17593);}while(r); -S_20403:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17594);if(r)goto S_20403;} +} +} +S_20542:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(17597);if(r)goto S_20542;} +S_20543:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(17598);if(r)goto S_20543;} +S_20544:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17603);if(r)goto S_20544;} +S_20545:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17604);if(r)goto S_20545;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17604);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17594);}while(r); +if(!qbevent)break;evnt(17604);}while(r); } +S_20549:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(17605);if(r)goto S_20549;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17595);}while(r); -S_20407:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17595);if(r)goto S_20407;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17595);}while(r); -} -LABEL_METHOD2USEALLUDT:; -if(qbevent){evnt(17596);r=0;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2539= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17597);}while(r); -S_20411:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17598);if(r)goto S_20411;} +if(!qbevent)break;evnt(17605);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17598);}while(r); +if(!qbevent)break;evnt(17605);}while(r); +} +S_20553:; +if (( 0 )||new_error){ +if(qbevent){evnt(17606);if(r)goto S_20553;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2688; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:[",30),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip2688; +skip2688: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17606);}while(r); } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17599);}while(r); +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; +if(!qbevent)break;evnt(17609);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17600);}while(r); -S_20416:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17601);if(r)goto S_20416;} +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17609);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17601);}while(r); -} -S_20419:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17602);if(r)goto S_20419;} +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(17610);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17602);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17603);}while(r); -} -S_20424:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17607);if(r)goto S_20424;} -S_20425:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17609);if(r)goto S_20425;} -S_20426:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(17610);if(r)goto S_20426;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2540= 0 ))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); if(!qbevent)break;evnt(17611);}while(r); -S_20428:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17612);if(r)goto S_20428;} +S_20560:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(17612);if(r)goto S_20560;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17612);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17612);}while(r); } +S_20564:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17615);if(r)goto S_20564;} +S_20565:; +if (( 0 )||new_error){ +if(qbevent){evnt(17616);if(r)goto S_20565;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2689; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:udt reference:[",44),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0 , 0 , 1 ); +if (new_error) goto skip2689; +skip2689: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17613);}while(r); -S_20432:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17614);if(r)goto S_20432;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17614);}while(r); -} -S_20435:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17615);if(r)goto S_20435;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17615);}while(r); -} -do{ -goto exit_subfunc; +tab_spc_cr_size=1; if(!qbevent)break;evnt(17616);}while(r); } -} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17619);}while(r); +if(!qbevent)break;evnt(17618);}while(r); do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17620);}while(r); -S_20443:; +SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); +if(!qbevent)break;evnt(17619);}while(r); +S_20570:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17621);if(r)goto S_20443;} +if(qbevent){evnt(17620);if(r)goto S_20570;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17621);}while(r); +if(!qbevent)break;evnt(17620);}while(r); } do{ -*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17621);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17622);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); +*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17623);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17624);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2542= -1 ))); +*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17625);}while(r); -S_20449:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17626);if(r)goto S_20449;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17626);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2543= 0 ))); +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17627);}while(r); -S_20453:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17628);if(r)goto S_20453;} +if(!qbevent)break;evnt(17626);}while(r); +S_20579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ +if(qbevent){evnt(17628);if(r)goto S_20579;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17628);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17628);}while(r); } -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17629);}while(r); -S_20457:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17632);if(r)goto S_20457;} -do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; -if(!qbevent)break;evnt(17633);}while(r); }else{ +S_20584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(17630);if(r)goto S_20584;} do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(17635);}while(r); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17630);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17630);}while(r); +} } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); +*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17637);}while(r); +if(!qbevent)break;evnt(17634);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17638);}while(r); -S_20464:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17639);if(r)goto S_20464;} +SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM); +if(!qbevent)break;evnt(17635);}while(r); +S_20591:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17636);if(r)goto S_20591;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +goto exit_subfunc; +if(!qbevent)break;evnt(17636);}while(r); +} +S_20594:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(17638);if(r)goto S_20594;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1213)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17639);}while(r); -} -S_20467:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17640);if(r)goto S_20467;} +S_20596:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||new_error){ +if(qbevent){evnt(17640);if(r)goto S_20596;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17640);}while(r); -} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17642);}while(r); +if(!qbevent)break;evnt(17640);}while(r); } -S_20472:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17646);if(r)goto S_20472;} -S_20473:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17647);if(r)goto S_20473;} +} +S_20601:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17643);if(r)goto S_20601;} +S_20602:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(17644);if(r)goto S_20602;} do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17648);}while(r); +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17645);}while(r); do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17649);}while(r); -S_20476:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17650);if(r)goto S_20476;} +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17647);}while(r); +} +} +S_20607:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ +if(qbevent){evnt(17653);if(r)goto S_20607;} +S_20608:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||new_error){ +if(qbevent){evnt(17658);if(r)goto S_20608;} +S_20609:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!= -1 ))||new_error){ +if(qbevent){evnt(17662);if(r)goto S_20609;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17650);}while(r); +*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(17663);}while(r); +do{ +sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1); +if(!qbevent)break;evnt(17664);}while(r); } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17651);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2544= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17652);}while(r); -S_20481:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17653);if(r)goto S_20481;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17653);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2545= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17655);}while(r); -S_20486:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17656);if(r)goto S_20486;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17656);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17657);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17659);}while(r); -S_20492:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17660);if(r)goto S_20492;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17660);}while(r); -} -S_20495:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17661);if(r)goto S_20495;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17661);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17662);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2546= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17666);}while(r); -S_20501:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17667);if(r)goto S_20501;} -do{ -goto exit_subfunc; +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861)); if(!qbevent)break;evnt(17667);}while(r); -} +}else{ +S_20615:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||new_error){ +if(qbevent){evnt(17680);if(r)goto S_20615;} do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(17668);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17669);}while(r); -S_20506:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(17670);if(r)goto S_20506;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17670);}while(r); -} -S_20509:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(17671);if(r)goto S_20509;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17671);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17672);}while(r); -} -S_20514:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!=(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(17679);if(r)goto S_20514;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Illegal string-number conversion",32)); +SUB_GIVE_ERROR(qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(17680);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(17680);}while(r); } -S_20518:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17683);if(r)goto S_20518;} +} +} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2691= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17684);}while(r); -S_20520:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17685);if(r)goto S_20520;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2547= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17686);}while(r); -S_20522:; +if(!qbevent)break;evnt(17688);}while(r); +S_20622:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17687);if(r)goto S_20522;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17687);}while(r); -} -} +if(qbevent){evnt(17689);if(r)goto S_20622;} do{ goto exit_subfunc; if(!qbevent)break;evnt(17689);}while(r); } -S_20528:; -if (((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(17693);if(r)goto S_20528;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp received a request for a pointer! (as yet unsupported)",68)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17694);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17694);}while(r); -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid pointer",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17696);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17696);}while(r); +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17690);}while(r); } -S_20534:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17700);if(r)goto S_20534;} +S_20627:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17708);if(r)goto S_20627;} +S_20628:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17709);if(r)goto S_20628;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2548= 0 ))); +*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17701);}while(r); -S_20536:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17702);if(r)goto S_20536;} +if(!qbevent)break;evnt(17710);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17702);}while(r); -} -} -S_20540:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(17705);if(r)goto S_20540;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp couldn't convert pointer type!",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17706);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17706);}while(r); -} -S_20544:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17710);if(r)goto S_20544;} -S_20545:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(17711);if(r)goto S_20545;} -do{ -*_FUNC_EVALUATETOTYP_LONG_BITS=*_FUNC_EVALUATETOTYP_LONG_TARGETTYP& 511 ; +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; if(!qbevent)break;evnt(17712);}while(r); -S_20547:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(17714);if(r)goto S_20547;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17714);}while(r); -} -S_20550:; -if (((-(*_FUNC_EVALUATETOTYP_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATETOTYP_LONG_BITS< 32 )))||new_error){ -if(qbevent){evnt(17715);if(r)goto S_20550;} +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17712);}while(r); do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ; +if(!qbevent)break;evnt(17715);}while(r); +S_20633:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17715);if(r)goto S_20633;} +do{ +*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ; if(!qbevent)break;evnt(17715);}while(r); } -S_20553:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS>= 32 ))||new_error){ -if(qbevent){evnt(17716);if(r)goto S_20553;} do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ; +if(!qbevent)break;evnt(17716);}while(r); +S_20637:; +if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ +if(qbevent){evnt(17716);if(r)goto S_20637;} +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ; +if(!qbevent)break;evnt(17716);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT; if(!qbevent)break;evnt(17716);}while(r); } +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(17719);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(17720);}while(r); +S_20643:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(17723);if(r)goto S_20643;} +S_20644:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17725);if(r)goto S_20644;} +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17729);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); +if(!qbevent)break;evnt(17730);}while(r); +S_20647:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17731);if(r)goto S_20647;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17731);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17732);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17733);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17734);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17735);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17736);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17737);}while(r); +S_20656:; +if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ +if(qbevent){evnt(17740);if(r)goto S_20656;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17741);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17743);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),_FUNC_EVALUATEFUNC_STRING_N2),qbs_new_txt_len(")) + (",6)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") )",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17746);}while(r); +S_20662:; +if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||new_error){ +if(qbevent){evnt(17749);if(r)goto S_20662;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2693=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17749);}while(r); +} +S_20665:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17750);if(r)goto S_20665;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17750);}while(r); +} +}else{ +S_20669:; +if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ +if(qbevent){evnt(17754);if(r)goto S_20669;} +S_20670:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17755);if(r)goto S_20670;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass BIT array offsets",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17755);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17755);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2694= 0 ))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17756);}while(r); +S_20675:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17757);if(r)goto S_20675;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17757);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2695= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17759);}while(r); +S_20680:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17760);if(r)goto S_20680;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17760);}while(r); +} +} +S_20684:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ +if(qbevent){evnt(17764);if(r)goto S_20684;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2696=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17765);}while(r); +S_20686:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17766);if(r)goto S_20686;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17766);}while(r); +} +} +} +S_20691:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17772);if(r)goto S_20691;} +S_20692:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(17773);if(r)goto S_20692;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17774);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17775);}while(r); } } do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17779);}while(r); +} +} +}else{ +S_20701:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17797);if(r)goto S_20701;} +do{ +*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17720);}while(r); +if(!qbevent)break;evnt(17798);}while(r); +S_20703:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17799);if(r)goto S_20703;} +S_20704:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(17800);if(r)goto S_20704;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17801);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17802);}while(r); +} +} +} +} +} +} +S_20713:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(17825);if(r)goto S_20713;} +S_20714:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17826);if(r)goto S_20714;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; +if(!qbevent)break;evnt(17827);}while(r); +S_20716:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ +if(qbevent){evnt(17828);if(r)goto S_20716;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; +if(!qbevent)break;evnt(17828);}while(r); +} +S_20719:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(17829);if(r)goto S_20719;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17829);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17829);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a string",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17830);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17830);}while(r); +} +} +S_20727:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17833);if(r)goto S_20727;} +S_20728:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(17834);if(r)goto S_20728;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; +if(!qbevent)break;evnt(17835);}while(r); +S_20730:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ +if(qbevent){evnt(17836);if(r)goto S_20730;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; +if(!qbevent)break;evnt(17836);}while(r); +} +S_20733:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(17837);if(r)goto S_20733;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17837);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17837);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a number",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17838);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17838);}while(r); +} +} +S_20741:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17843);if(r)goto S_20741;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2697= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17844);}while(r); +S_20743:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17845);if(r)goto S_20743;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17845);}while(r); +} +} +S_20747:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(17848);if(r)goto S_20747;} +S_20748:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17849);if(r)goto S_20748;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; +if(!qbevent)break;evnt(17850);}while(r); +S_20750:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST!= 0 ))&(-(*_FUNC_EVALUATEFUNC_LONG_NTH>*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST)))||new_error){ +if(qbevent){evnt(17851);if(r)goto S_20750;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; +if(!qbevent)break;evnt(17851);}while(r); +} +S_20753:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_QB64PREFIX_SET&(qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1),qbs_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(17852);if(r)goto S_20753;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17853);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17855);}while(r); +} +S_20758:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(17857);if(r)goto S_20758;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),_FUNC_EVALUATEFUNC_STRING_X),qbs_new_txt_len(" required for function",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17857);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17857);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires TYPE ",33)),_FUNC_EVALUATEFUNC_STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17858);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17858);}while(r); +} +}else{ +S_20766:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17861);if(r)goto S_20766;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17861);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17861);}while(r); +} +} +S_20771:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17865);if(r)goto S_20771;} +S_20772:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(17866);if(r)goto S_20772;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ; +if(!qbevent)break;evnt(17868);}while(r); +S_20774:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(17869);if(r)goto S_20774;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17869);}while(r); +} +S_20777:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||new_error){ +if(qbevent){evnt(17870);if(r)goto S_20777;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17870);}while(r); +} +S_20780:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||new_error){ +if(qbevent){evnt(17871);if(r)goto S_20780;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17871);}while(r); +} +} +} +S_20785:; +if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||new_error){ +if(qbevent){evnt(17875);if(r)goto S_20785;} +S_20786:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17876);if(r)goto S_20786;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17878);}while(r); +}else{ +S_20789:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17880);if(r)goto S_20789;} +S_20790:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(17881);if(r)goto S_20790;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(float)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17881);}while(r); +} +S_20793:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(17882);if(r)goto S_20793;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(double)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17882);}while(r); +} +S_20796:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||new_error){ +if(qbevent){evnt(17883);if(r)goto S_20796;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(long double)(",14),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17883);}while(r); +} +}else{ +S_20800:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17885);if(r)goto S_20800;} +S_20801:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(17886);if(r)goto S_20801;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint8)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17886);}while(r); +} +S_20804:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(17887);if(r)goto S_20804;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint16)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17887);}while(r); +} +S_20807:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(17888);if(r)goto S_20807;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17888);}while(r); +} +S_20810:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(17889);if(r)goto S_20810;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint64)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17889);}while(r); +} +}else{ +S_20814:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(17891);if(r)goto S_20814;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int8)(",7),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17891);}while(r); +} +S_20817:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(17892);if(r)goto S_20817;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int16)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17892);}while(r); +} +S_20820:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(17893);if(r)goto S_20820;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int32)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17893);}while(r); +} +S_20823:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(17894);if(r)goto S_20823;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17894);}while(r); +} +} +} +} +} +S_20830:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(17901);if(r)goto S_20830;} +S_20831:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17902);if(r)goto S_20831;} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17902);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_T,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TARGETTYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17904);}while(r); +S_20835:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17905);if(r)goto S_20835;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17905);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass2698=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17906);}while(r); +S_20839:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17908);if(r)goto S_20839;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/ 8 ; +if(!qbevent)break;evnt(17909);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2699; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_T,qbs_new_txt_len(" *",2)),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); +if (new_error) goto skip2699; +skip2699: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17910);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2700; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8)), 0 , 0 , 1 ); +if (new_error) goto skip2700; +skip2700: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17911);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2701; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BYTESREQ)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2701; +skip2701: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17912);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2702; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_V,qbs_new_txt_len("=(",2)),_FUNC_EVALUATEFUNC_STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)), 0 , 0 , 1 ); +if (new_error) goto skip2702; +skip2702: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17913);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip2703; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (cmem_spchr",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17934);}while(r); +} +S_20861:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALUATEFUNC_STRING_E)),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(17937);if(r)goto S_20861;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17937);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17941);}while(r); +S_20866:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17944);if(r)goto S_20866;} +S_20867:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ +if(qbevent){evnt(17945);if(r)goto S_20867;} +S_20868:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(17946);if(r)goto S_20868;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17946);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17946);}while(r); +} +} +S_20873:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ +if(qbevent){evnt(17948);if(r)goto S_20873;} +S_20874:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(17949);if(r)goto S_20874;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17949);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17949);}while(r); +} +} +} +S_20880:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||new_error){ +if(qbevent){evnt(17953);if(r)goto S_20880;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17953);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ; +if(!qbevent)break;evnt(17954);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; +if(!qbevent)break;evnt(17955);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; +if(!qbevent)break;evnt(17956);}while(r); +} +S_20887:; +if (((((-(*_FUNC_EVALUATEFUNC_LONG_CURARG>=*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*_FUNC_EVALUATEFUNC_LONG_OMITARG_LAST))))&(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N)))||new_error){ +if(qbevent){evnt(17959);if(r)goto S_20887;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17960);}while(r); +S_20889:; +fornext_value2707= 1 ; +fornext_finalvalue2707=*_FUNC_EVALUATEFUNC_LONG_OMITARGS; +fornext_step2707= 1 ; +if (fornext_step2707<0) fornext_step_negative2707=1; else fornext_step_negative2707=0; +if (new_error) goto fornext_error2707; +goto fornext_entrylabel2707; +while(1){ +fornext_value2707=fornext_step2707+(*_FUNC_EVALUATEFUNC_LONG_FI); +fornext_entrylabel2707: +*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2707; +if (fornext_step_negative2707){ +if (fornext_value2707fornext_finalvalue2707) break; +} +fornext_error2707:; +if(qbevent){evnt(17962);if(r)goto S_20889;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17962);}while(r); +fornext_continue_2706:; +} +fornext_exit_2706:; +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+*_FUNC_EVALUATEFUNC_LONG_OMITARGS; +if(!qbevent)break;evnt(17963);}while(r); +} +fornext_continue_2627:; +} +fornext_exit_2627:; +} +S_20896:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ +if(qbevent){evnt(17969);if(r)goto S_20896;} +S_20897:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||new_error){ +if(qbevent){evnt(17970);if(r)goto S_20897;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17970);}while(r); +} +S_20900:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||new_error){ +if(qbevent){evnt(17971);if(r)goto S_20900;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17971);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_lbound(",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17971);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2708= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17972);}while(r); +S_20906:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17973);if(r)goto S_20906;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17973);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(17976);}while(r); +S_20910:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||new_error){ +if(qbevent){evnt(17977);if(r)goto S_20910;} +do{ +*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ; +if(!qbevent)break;evnt(17977);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R2,_FUNC_EVALUATEFUNC_STRING_E),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17979);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17980);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17981);}while(r); +} +S_20917:; +if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||new_error){ +if(qbevent){evnt(17984);if(r)goto S_20917;} +S_20918:; +if ((*_FUNC_EVALUATEFUNC_LONG_OMITARG_FIRST)||new_error){ +if(qbevent){evnt(17985);if(r)goto S_20918;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",0",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17985);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17985);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17987);}while(r); +LABEL_EVALFUNCSPECIAL:; +if(qbevent){evnt(17989);r=0;} +S_20925:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||new_error){ +if(qbevent){evnt(17991);if(r)goto S_20925;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17991);}while(r); +} +S_20928:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SIN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("COS",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("TAN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ATN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SQR",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LOG",3)))))||new_error){ +if(qbevent){evnt(17994);if(r)goto S_20928;} +do{ +*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17995);}while(r); +S_20930:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(17996);if(r)goto S_20930;} +S_20931:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(17998);if(r)goto S_20931;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17998);}while(r); +} +S_20934:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(17999);if(r)goto S_20934;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17999);}while(r); +} +}else{ +S_20938:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||new_error){ +if(qbevent){evnt(18002);if(r)goto S_20938;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(18002);}while(r); +} +S_20941:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||new_error){ +if(qbevent){evnt(18003);if(r)goto S_20941;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(18003);}while(r); +} +} +} +S_20946:; +if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381))==(*__LONG_ISUDT+( 1 ))))||new_error){ +if(qbevent){evnt(18007);if(r)goto S_20946;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),FUNC_STR2(&(pass2709=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18009);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__INTEGER_DEFDATAHANDLE; +if (new_error) goto skip2710; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip2710; +skip2710: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18010);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18011);}while(r); +} +S_20951:; +if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||new_error){ +if(qbevent){evnt(18014);if(r)goto S_20951;} +S_20952:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_R, 11 ),qbs_new_txt_len("( char* )",11))))||new_error){ +if(qbevent){evnt(18015);if(r)goto S_20952;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18016);}while(r); +} +} +S_20956:; +if (( 0 )||new_error){ +if(qbevent){evnt(18020);if(r)goto S_20956;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2711; +sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0 , 0 , 0 ); +if (new_error) goto skip2711; +sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0 , 0 , 1 ); +if (new_error) goto skip2711; +skip2711: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18020);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18021);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free16.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP);return _FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP; +qbs_maketmp(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC);return _FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC; } -int32 FUNC_FINDID(qbs*_FUNC_FINDID_STRING_N2){ +qbs* FUNC_VARIABLESIZE(int32*_FUNC_VARIABLESIZE_LONG_I){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -71034,418 +73476,139 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_20960:; +if ((-(*_FUNC_VARIABLESIZE_LONG_I!= -1 ))||new_error){ +if(qbevent){evnt(18026);if(r)goto S_20960;} do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_ucase(_FUNC_FINDID_STRING_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17724);}while(r); -S_20560:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_FINDID_STRING_N)== 34 )))||new_error){ -if(qbevent){evnt(17727);if(r)goto S_20560;} -do{ -goto LABEL_NOID; -if(!qbevent)break;evnt(17727);}while(r); +SUB_GETID(_FUNC_VARIABLESIZE_LONG_I); +if(!qbevent)break;evnt(18026);}while(r); } -do{ -qbs_set(_FUNC_FINDID_STRING_SECONDARG,__STRING_FINDIDSECONDARG); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17730);}while(r); -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17730);}while(r); -do{ -*_FUNC_FINDID_LONG_FINDANOTHER=*__INTEGER_FINDANOTHERID; -if(!qbevent)break;evnt(17733);}while(r); -do{ -*__INTEGER_FINDANOTHERID= 0 ; -if(!qbevent)break;evnt(17733);}while(r); -S_20567:; -if (((-(*_FUNC_FINDID_LONG_FINDANOTHER!= 0 ))&(-(*__LONG_FINDIDINTERNAL!= 2 )))||new_error){ -if(qbevent){evnt(17734);if(r)goto S_20567;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("FINDID() ERROR: Invalid repeat search requested!",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17734);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17734);}while(r); -} -S_20571:; +S_20963:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17735);if(r)goto S_20571;} +if(qbevent){evnt(18027);if(r)goto S_20963;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17735);}while(r); +if(!qbevent)break;evnt(18027);}while(r); } do{ -*_FUNC_FINDID_LONG_FINDID= 2 ; -if(!qbevent)break;evnt(17737);}while(r); +*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(18029);}while(r); +S_20967:; +if ((-(*_FUNC_VARIABLESIZE_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(18029);if(r)goto S_20967;} do{ -*_FUNC_FINDID_LONG_I= 0 ; -if(!qbevent)break;evnt(17740);}while(r); -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17741);}while(r); -S_20577:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17741);if(r)goto S_20577;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17741);}while(r); +*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(18029);}while(r); } do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17742);}while(r); -S_20581:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17742);if(r)goto S_20581;} +*_FUNC_VARIABLESIZE_LONG_BYTES=(*_FUNC_VARIABLESIZE_LONG_T& 511 )/ 8 ; +if(!qbevent)break;evnt(18030);}while(r); +S_20971:; +if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(18032);if(r)goto S_20971;} do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17742);}while(r); +*_FUNC_VARIABLESIZE_LONG_U=*_FUNC_VARIABLESIZE_LONG_T& 511 ; +if(!qbevent)break;evnt(18033);}while(r); +do{ +*_FUNC_VARIABLESIZE_LONG_BYTES=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_VARIABLESIZE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(18034);}while(r); } +S_20975:; +if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18037);if(r)goto S_20975;} +S_20976:; +if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18038);if(r)goto S_20976;} do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17743);}while(r); -S_20585:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17743);if(r)goto S_20585;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17743);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17744);}while(r); -S_20589:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17744);if(r)goto S_20589;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17744);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17745);}while(r); -S_20593:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17745);if(r)goto S_20593;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17745);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17746);}while(r); -S_20597:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17746);if(r)goto S_20597;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17746);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17747);}while(r); -S_20601:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17747);if(r)goto S_20601;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(17747);}while(r); -} -LABEL_GOTSC:; -if(qbevent){evnt(17748);r=0;} -S_20604:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(17749);if(r)goto S_20604;} -do{ -qbs_set(_FUNC_FINDID_STRING_SC,qbs_right(_FUNC_FINDID_STRING_N,_FUNC_FINDID_STRING_N->len-*_FUNC_FINDID_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17750);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_left(_FUNC_FINDID_STRING_N,*_FUNC_FINDID_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17750);}while(r); -S_20607:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("`",1)))|(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("~`",2)))))||new_error){ -if(qbevent){evnt(17751);if(r)goto S_20607;} -do{ -qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("1",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17751);}while(r); -} +*_FUNC_VARIABLESIZE_LONG_BYTES=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(18039);}while(r); }else{ -} +S_20979:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18041);if(r)goto S_20979;} do{ -qbs_set(_FUNC_FINDID_STRING_INSF,qbs_add(__STRING_SUBFUNC,func_space( 256 -__STRING_SUBFUNC->len))); +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot determine size of variable-length string array",53)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17762);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_SECONDARG,qbs_add(_FUNC_FINDID_STRING_SECONDARG,func_space( 256 -_FUNC_FINDID_STRING_SECONDARG->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17763);}while(r); -S_20614:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FINDID_STRING_SC->len))||new_error){ -if(qbevent){evnt(17764);if(r)goto S_20614;} -do{ -*_FUNC_FINDID_LONG_SCPASSED= 1 ; -if(!qbevent)break;evnt(17764);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,func_space( 8 -_FUNC_FINDID_STRING_SC->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17764);}while(r); -}else{ -do{ -*_FUNC_FINDID_LONG_SCPASSED= 0 ; -if(!qbevent)break;evnt(17764);}while(r); -} -S_20620:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FINDID_STRING_N->len< 256 )))||new_error){ -if(qbevent){evnt(17766);if(r)goto S_20620;} -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_add(_FUNC_FINDID_STRING_N,func_space( 256 -_FUNC_FINDID_STRING_N->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17766);}while(r); -} -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_rtrim(_FUNC_FINDID_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17775);}while(r); -S_20624:; -if ((*_FUNC_FINDID_LONG_FINDANOTHER)||new_error){ -if(qbevent){evnt(17776);if(r)goto S_20624;} -LABEL_HASHRETRY:; -if(qbevent){evnt(17777);r=0;} -do{ -*_FUNC_FINDID_LONG_Z=FUNC_HASHFINDCONT(_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); -if(!qbevent)break;evnt(17778);}while(r); -}else{ -do{ -*_FUNC_FINDID_LONG_Z=FUNC_HASHFINDREV(_FUNC_FINDID_STRING_N,&(pass2557= 1 ),_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17780);}while(r); -} -do{ -*__LONG_FINDIDINTERNAL=*_FUNC_FINDID_LONG_Z; -if(!qbevent)break;evnt(17782);}while(r); -S_20630:; -if ((-(*_FUNC_FINDID_LONG_Z== 0 ))||new_error){ -if(qbevent){evnt(17783);if(r)goto S_20630;} -do{ -goto LABEL_NOID; -if(!qbevent)break;evnt(17783);}while(r); -} -do{ -*_FUNC_FINDID_LONG_FINDID=*_FUNC_FINDID_LONG_Z; -if(!qbevent)break;evnt(17784);}while(r); -S_20634:; -if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+544))== 0 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2645))== 0 )))||new_error){ -if(qbevent){evnt(17798);if(r)goto S_20634;} -S_20635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2385)),256,1),_FUNC_FINDID_STRING_INSF)))||new_error){ -if(qbevent){evnt(17799);if(r)goto S_20635;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(17799);}while(r); -} -} -S_20639:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+544))== 2 ))||new_error){ -if(qbevent){evnt(17803);if(r)goto S_20639;} -S_20640:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+1869)),256,1))!= 32 )))||new_error){ -if(qbevent){evnt(17804);if(r)goto S_20640;} -S_20641:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDID_STRING_SECONDARG,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+1869)),256,1))))||new_error){ -if(qbevent){evnt(17805);if(r)goto S_20641;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(17805);}while(r); -} -} -S_20645:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2125)),256,1))!= 32 )))||new_error){ -if(qbevent){evnt(17807);if(r)goto S_20645;} -S_20646:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDID_STRING_SECONDARG,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2125)),256,1))))||new_error){ -if(qbevent){evnt(17808);if(r)goto S_20646;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(17808);}while(r); -} -} -} -do{ -*_FUNC_FINDID_LONG_IMUSTHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17814);}while(r); -do{ -*_FUNC_FINDID_LONG_AMUSTHAVE=*_FUNC_FINDID_LONG_IMUSTHAVE& 255 ; -if(!qbevent)break;evnt(17815);}while(r); -S_20653:; -if ((-(*_FUNC_FINDID_LONG_AMUSTHAVE!= 32 ))||new_error){ -if(qbevent){evnt(17816);if(r)goto S_20653;} -S_20654:; -if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ -if(qbevent){evnt(17817);if(r)goto S_20654;} -S_20655:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1))))||new_error){ -if(qbevent){evnt(17818);if(r)goto S_20655;} -do{ -goto LABEL_FINDIDOK; -if(!qbevent)break;evnt(17818);}while(r); -} -} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(17829);}while(r); -} -S_20661:; -if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ -if(qbevent){evnt(17835);if(r)goto S_20661;} -do{ -*_FUNC_FINDID_LONG_IMAYHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+520)),8,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17836);}while(r); -do{ -*_FUNC_FINDID_LONG_AMAYHAVE=*_FUNC_FINDID_LONG_IMAYHAVE& 255 ; -if(!qbevent)break;evnt(17837);}while(r); -S_20664:; -if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 32 ))||new_error){ -if(qbevent){evnt(17838);if(r)goto S_20664;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(17838);}while(r); -} -S_20667:; -if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 36 ))||new_error){ -if(qbevent){evnt(17841);if(r)goto S_20667;} -S_20668:; -if ((-(*_FUNC_FINDID_LONG_IMAYHAVE!= 8228 ))||new_error){ -if(qbevent){evnt(17842);if(r)goto S_20668;} -S_20669:; -if ((qbs_cleanup(qbs_tmp_base,-(string2i(_FUNC_FINDID_STRING_SC)== 8228 )))||new_error){ -if(qbevent){evnt(17844);if(r)goto S_20669;} -do{ -goto LABEL_FINDIDOK; -if(!qbevent)break;evnt(17844);}while(r); -} -} -} -S_20674:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+520)),8,1))))||new_error){ -if(qbevent){evnt(17848);if(r)goto S_20674;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(17848);}while(r); -} -} -LABEL_FINDIDOK:; -if(qbevent){evnt(17852);r=0;} -do{ -memcpy(((char*)__UDT_ID)+(0)+ 0,((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0, 2863); -if(!qbevent)break;evnt(17854);}while(r); -do{ -*_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(17856);}while(r); -S_20680:; -if ((-(*_FUNC_FINDID_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(17857);if(r)goto S_20680;} -do{ -*_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(17858);}while(r); -S_20682:; -if ((*_FUNC_FINDID_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17859);if(r)goto S_20682;} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2558= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17860);}while(r); -}else{ -do{ -qbs_set(_FUNC_FINDID_STRING_N,FUNC_ID2SHORTTYPENAME()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17862);}while(r); -S_20686:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDID_STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(17863);if(r)goto S_20686;} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY",5)),_FUNC_FINDID_STRING_N),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2559= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17864);}while(r); -}else{ -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_",6)),_FUNC_FINDID_STRING_N),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2560= 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17866);}while(r); -} -} -}else{ -S_20693:; -if ((*_FUNC_FINDID_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17870);if(r)goto S_20693;} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2561= 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17871);}while(r); -}else{ -do{ -qbs_set(_FUNC_FINDID_STRING_N,FUNC_ID2SHORTTYPENAME()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17873);}while(r); -S_20697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDID_STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(17874);if(r)goto S_20697;} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),func_mid(_FUNC_FINDID_STRING_N, 2 ,NULL,0)),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2562= 5 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17875);}while(r); -}else{ -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),_FUNC_FINDID_STRING_N),qbs_new_txt_len("_",1)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),&(pass2563= 6 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17877);}while(r); -} -} -} -do{ -*__LONG_CURRENTID=*_FUNC_FINDID_LONG_I; -if(!qbevent)break;evnt(17882);}while(r); +if(!qbevent)break;evnt(18041);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17883);}while(r); -LABEL_FINDIDNOMATCH:; -if(qbevent){evnt(17886);r=0;} -S_20706:; -if ((-(*_FUNC_FINDID_LONG_Z== 2 ))||new_error){ -if(qbevent){evnt(17888);if(r)goto S_20706;} -do{ -goto LABEL_HASHRETRY; -if(!qbevent)break;evnt(17888);}while(r); +if(!qbevent)break;evnt(18041);}while(r); } -LABEL_NOID:; -if(qbevent){evnt(17891);r=0;} do{ -*_FUNC_FINDID_LONG_FINDID= 0 ; -if(!qbevent)break;evnt(17892);}while(r); +qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18042);}while(r); do{ -*__LONG_CURRENTID= -1 ; -if(!qbevent)break;evnt(17893);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(18043);}while(r); +} +} +S_20987:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18047);if(r)goto S_20987;} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18048);}while(r); +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES),qbs_new_txt_len("*(",2)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[2]&1)",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18049);}while(r); +do{ +*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(18050);}while(r); +S_20991:; +if ((-(*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS== -1 ))||new_error){ +if(qbevent){evnt(18050);if(r)goto S_20991;} +do{ +*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS= 1 ; +if(!qbevent)break;evnt(18050);}while(r); +} +S_20994:; +fornext_value2713= 1 ; +fornext_finalvalue2713=*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS; +fornext_step2713= 1 ; +if (fornext_step2713<0) fornext_step_negative2713=1; else fornext_step_negative2713=0; +if (new_error) goto fornext_error2713; +goto fornext_entrylabel2713; +while(1){ +fornext_value2713=fornext_step2713+(*_FUNC_VARIABLESIZE_LONG_I2); +fornext_entrylabel2713: +*_FUNC_VARIABLESIZE_LONG_I2=fornext_value2713; +if (fornext_step_negative2713){ +if (fornext_value2713fornext_finalvalue2713) break; +} +fornext_error2713:; +if(qbevent){evnt(18051);if(r)goto S_20994;} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_VARIABLESIZE_STRING_S,qbs_new_txt_len("*",1)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2714=(*_FUNC_VARIABLESIZE_LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18052);}while(r); +fornext_continue_2712:; +} +fornext_exit_2712:; +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_VARIABLESIZE_STRING_S),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18054);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18055);}while(r); +} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18058);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free17.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_FINDID_LONG_FINDID; +qbs_maketmp(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE);return _FUNC_VARIABLESIZE_STRING_VARIABLESIZE; } -int32 FUNC_FINDARRAY(qbs*_FUNC_FINDARRAY_STRING_SECURE){ +qbs* FUNC_EVALUATETOTYP(qbs*_FUNC_EVALUATETOTYP_STRING_A2,int32*_FUNC_EVALUATETOTYP_LONG_TARGETTYP){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -71459,486 +73622,1642 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_FINDARRAY_LONG_FINDARRAY= -1 ; -if(!qbevent)break;evnt(17897);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SECURE); +qbs_set(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17898);}while(r); -S_20713:; -if (( 0 )||new_error){ -if(qbevent){evnt(17899);if(r)goto S_20713;} +if(!qbevent)break;evnt(18065);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2565; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("func findarray:in:",18),_FUNC_FINDARRAY_STRING_N), 0 , 0 , 1 ); -if (new_error) goto skip2565; -skip2565: +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_LONG_SOURCETYP)); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17899);}while(r); -} -S_20716:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_FINDARRAY_STRING_N))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ -if(qbevent){evnt(17900);if(r)goto S_20716;} -do{ -*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; -if(!qbevent)break;evnt(17900);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17900);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17903);}while(r); -S_20721:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17903);if(r)goto S_20721;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17903);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17903);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17903);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17904);}while(r); -S_20727:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17904);if(r)goto S_20727;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17904);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17904);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17904);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17905);}while(r); -S_20733:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17905);if(r)goto S_20733;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17905);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17905);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17905);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17906);}while(r); -S_20739:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17906);if(r)goto S_20739;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17906);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17906);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17906);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17907);}while(r); -S_20745:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17907);if(r)goto S_20745;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17907);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17907);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17907);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17908);}while(r); -S_20751:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17908);if(r)goto S_20751;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17908);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17908);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17908);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17909);}while(r); -S_20757:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(17909);if(r)goto S_20757;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17909);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17909);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(17909);}while(r); -} -LABEL_GOTSC2:; -if(qbevent){evnt(17910);r=0;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SC)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17911);}while(r); -S_20763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDARRAY_STRING_SC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(17913);if(r)goto S_20763;} -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17916);}while(r); -S_20765:; +if(!qbevent)break;evnt(18066);}while(r); +S_21003:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17916);if(r)goto S_20765;} +if(qbevent){evnt(18067);if(r)goto S_21003;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17916);}while(r); +if(!qbevent)break;evnt(18067);}while(r); } -S_20768:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(17917);if(r)goto S_20768;} -S_20769:; +S_21006:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(18070);if(r)goto S_21006;} +S_21007:; +if (((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP>= 0 )))||new_error){ +if(qbevent){evnt(18071);if(r)goto S_21007;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18072);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18072);}while(r); +} +} +S_21012:; +if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 )))||new_error){ +if(qbevent){evnt(18078);if(r)goto S_21012;} +S_21013:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18079);if(r)goto S_21013;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18079);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18079);}while(r); +} +S_21017:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18080);if(r)goto S_21017;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18080);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18080);}while(r); +} +S_21021:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18084);if(r)goto S_21021;} +S_21022:; +if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(18085);if(r)goto S_21022;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("UDT must have fixed size",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18085);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18085);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18086);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18087);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18087);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18088);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18089);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18089);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18090);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18091);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18091);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18092);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18093);}while(r); +S_21037:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18094);if(r)goto S_21037;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18094);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18095);}while(r); +S_21041:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17918);if(r)goto S_20769;} +if(qbevent){evnt(18096);if(r)goto S_21041;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18097);}while(r); +S_21043:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ +if(qbevent){evnt(18099);if(r)goto S_21043;} +do{ +goto LABEL_METHOD2USEALLUDT; +if(!qbevent)break;evnt(18101);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18105);}while(r); +S_21048:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(18108);if(r)goto S_21048;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2719=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18109);}while(r); +}else{ +S_21051:; +if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))))||new_error){ +if(qbevent){evnt(18111);if(r)goto S_21051;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)",9),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(")->len",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18112);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17919);}while(r); -} -S_20772:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(17921);if(r)goto S_20772;} +if(!qbevent)break;evnt(18113);}while(r); +S_21054:; +}else{ +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 )))){ +if(qbevent){evnt(18114);if(r)goto S_21054;} do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(17921);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->chr",9))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17921);}while(r); +if(!qbevent)break;evnt(18115);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->len",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18116);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18117);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18118);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2720=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18120);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18122);}while(r); +S_21063:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18123);if(r)goto S_21063;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18123);}while(r); +} +S_21066:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18124);if(r)goto S_21066;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18124);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18125);}while(r); +} +S_21071:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18128);if(r)goto S_21071;} +S_21072:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(18130);if(r)goto S_21072;} +S_21073:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18132);if(r)goto S_21073;} +S_21074:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18133);if(r)goto S_21074;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18134);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18134);}while(r); +} +} +do{ +goto LABEL_METHOD2USEALL; +if(!qbevent)break;evnt(18137);}while(r); +} +S_21081:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18140);if(r)goto S_21081;} +S_21082:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18141);if(r)goto S_21082;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18142);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18143);}while(r); +S_21085:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18144);if(r)goto S_21085;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18144);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18145);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2721= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18146);}while(r); +S_21090:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18147);if(r)goto S_21090;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18147);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18148);}while(r); +S_21094:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18149);if(r)goto S_21094;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18149);}while(r); +} +S_21097:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18150);if(r)goto S_21097;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18150);}while(r); +} }else{ do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(17921);}while(r); -} -S_20778:; +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2722= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18152);}while(r); +S_21102:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17922);if(r)goto S_20778;} +if(qbevent){evnt(18153);if(r)goto S_21102;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17922);}while(r); +if(!qbevent)break;evnt(18153);}while(r); } -dl_continue_2573:; +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18155);}while(r); +S_21106:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18156);if(r)goto S_21106;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18156);}while(r); +} +S_21109:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18157);if(r)goto S_21109;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18157);}while(r); +} +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18159);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2723= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18161);}while(r); +S_21116:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18162);if(r)goto S_21116;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18162);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18163);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2724=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18164);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18165);}while(r); +S_21122:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18166);if(r)goto S_21122;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18166);}while(r); +} +S_21125:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18167);if(r)goto S_21125;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18167);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18168);}while(r); +} +S_21130:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18171);if(r)goto S_21130;} +S_21131:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18172);if(r)goto S_21131;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18173);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18174);}while(r); +S_21134:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18175);if(r)goto S_21134;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18175);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18176);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2725= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18177);}while(r); +S_21139:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18178);if(r)goto S_21139;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18178);}while(r); } -dl_exit_2573:; }else{ do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2726= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17929);}while(r); -S_20784:; +if(!qbevent)break;evnt(18180);}while(r); +S_21144:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17929);if(r)goto S_20784;} +if(qbevent){evnt(18181);if(r)goto S_21144;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17929);}while(r); +if(!qbevent)break;evnt(18181);}while(r); } -S_20787:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(17930);if(r)goto S_20787;} -S_20788:; +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18182);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18184);}while(r); +S_21150:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18185);if(r)goto S_21150;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18185);}while(r); +} +S_21153:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18186);if(r)goto S_21153;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18186);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18187);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2727= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18191);}while(r); +S_21159:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18192);if(r)goto S_21159;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18192);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18193);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18194);}while(r); +S_21164:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18195);if(r)goto S_21164;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18195);}while(r); +} +S_21167:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18196);if(r)goto S_21167;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18196);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18197);}while(r); +} +S_21172:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 ))||new_error){ +if(qbevent){evnt(18204);if(r)goto S_21172;} +S_21173:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18205);if(r)goto S_21173;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18205);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18205);}while(r); +} +S_21177:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18206);if(r)goto S_21177;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18206);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18206);}while(r); +} +S_21181:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18209);if(r)goto S_21181;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18210);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18211);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18211);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18212);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18213);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18213);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18214);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18215);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18215);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18216);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18217);}while(r); +S_21193:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18218);if(r)goto S_21193;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18218);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18219);}while(r); +S_21197:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17931);if(r)goto S_20788;} -S_20789:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(17932);if(r)goto S_20789;} +if(qbevent){evnt(18220);if(r)goto S_21197;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17932);}while(r); -} -S_20792:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(17933);if(r)goto S_20792;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17933);}while(r); -} -} -S_20796:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(17935);if(r)goto S_20796;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(17935);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17935);}while(r); +if(!qbevent)break;evnt(18221);}while(r); +S_21199:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ +if(qbevent){evnt(18223);if(r)goto S_21199;} +do{ +goto LABEL_METHOD2USEALLUDT__7; +if(!qbevent)break;evnt(18225);}while(r); +} +} +S_21203:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(18229);if(r)goto S_21203;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2731=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18230);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T1=*__LONG_ISUDT+((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(18231);}while(r); }else{ do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(17935);}while(r); +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2732=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18233);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T1=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(18234);}while(r); } -S_20802:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17936);if(r)goto S_20802;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18236);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_T1); +if(!qbevent)break;evnt(18241);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18242);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17936);}while(r); +if(!qbevent)break;evnt(18244);}while(r); } -dl_continue_2574:; -} -dl_exit_2574:; +S_21215:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18247);if(r)goto S_21215;} +S_21216:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(18249);if(r)goto S_21216;} +S_21217:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18251);if(r)goto S_21217;} +S_21218:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18252);if(r)goto S_21218;} do{ -*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17940);}while(r); -S_20807:; -if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(17940);if(r)goto S_20807;} -do{ -*_FUNC_FINDARRAY_LONG_A= 91 ; -if(!qbevent)break;evnt(17940);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; -if(!qbevent)break;evnt(17941);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17942);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17943);}while(r); -S_20813:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17943);if(r)goto S_20813;} +if(!qbevent)break;evnt(18253);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17943);}while(r); +if(!qbevent)break;evnt(18253);}while(r); } -S_20816:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(17944);if(r)goto S_20816;} -S_20817:; +} +do{ +goto LABEL_METHOD2USEALL__7; +if(!qbevent)break;evnt(18256);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18259);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18260);}while(r); +S_21227:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18261);if(r)goto S_21227;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18261);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18262);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2733=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18263);}while(r); +S_21232:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18267);if(r)goto S_21232;} +S_21233:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18268);if(r)goto S_21233;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18269);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2734= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18270);}while(r); +S_21236:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18271);if(r)goto S_21236;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18271);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18276);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18277);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMELEMENT cannot reference variable-length strings",51))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18281);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18281);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18284);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2735= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18287);}while(r); +S_21248:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18288);if(r)goto S_21248;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18288);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18289);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2736=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18290);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18295);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18296);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18298);}while(r); +} +S_21257:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18301);if(r)goto S_21257;} +S_21258:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18302);if(r)goto S_21258;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18303);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18304);}while(r); +S_21261:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18305);if(r)goto S_21261;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18305);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18306);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2737= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18307);}while(r); +S_21266:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18308);if(r)goto S_21266;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18308);}while(r); +} +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMELEMENT cannot reference variable-length strings",51))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18310);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18310);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18317);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18318);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18320);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2738= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18324);}while(r); +S_21278:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18325);if(r)goto S_21278;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18325);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18326);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18331);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18332);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18334);}while(r); +} +S_21286:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))||new_error){ +if(qbevent){evnt(18347);if(r)goto S_21286;} +LABEL_METHOD2USEALL__7:; +if(qbevent){evnt(18348);r=0;} +S_21287:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18349);if(r)goto S_21287;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18349);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18349);}while(r); +} +S_21291:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18350);if(r)goto S_21291;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18350);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18350);}while(r); +} +S_21295:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18353);if(r)goto S_21295;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18355);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18356);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18356);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18357);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18358);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18358);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18359);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18360);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18360);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18362);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18363);}while(r); +S_21307:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18364);if(r)goto S_21307;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18364);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18365);}while(r); +S_21311:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17945);if(r)goto S_20817;} -S_20818:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(17946);if(r)goto S_20818;} +if(qbevent){evnt(18365);if(r)goto S_21311;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17946);}while(r); -} -S_20821:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(17947);if(r)goto S_20821;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17947);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17948);}while(r); -} -S_20826:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(17950);if(r)goto S_20826;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(17950);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17950);}while(r); +if(!qbevent)break;evnt(18365);}while(r); +} +LABEL_METHOD2USEALLUDT__7:; +if(qbevent){evnt(18366);r=0;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2742= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18367);}while(r); +S_21315:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18368);if(r)goto S_21315;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18368);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18369);}while(r); +S_21319:; +if ((-(*__LONG_E!= 0 ))||new_error){ +if(qbevent){evnt(18375);if(r)goto S_21319;} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE= 1 ; +if(!qbevent)break;evnt(18375);}while(r); }else{ do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(17950);}while(r); +*_FUNC_EVALUATETOTYP_LONG_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(18375);}while(r); } -S_20832:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17951);if(r)goto S_20832;} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18377);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18378);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17951);}while(r); +if(!qbevent)break;evnt(18380);}while(r); } -dl_continue_2575:; -} -dl_exit_2575:; +S_21328:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18384);if(r)goto S_21328;} +S_21329:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18385);if(r)goto S_21329;} +S_21330:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18386);if(r)goto S_21330;} do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,_FUNC_FINDARRAY_STRING_N); +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEM cannot reference variable-length strings",44))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17955);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17956);}while(r); -S_20838:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17956);if(r)goto S_20838;} +if(!qbevent)break;evnt(18387);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(17956);}while(r); +if(!qbevent)break;evnt(18387);}while(r); } -S_20841:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(17957);if(r)goto S_20841;} -S_20842:; +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18391);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18392);}while(r); +S_21337:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18393);if(r)goto S_21337;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18393);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18395);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2743=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18396);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(18398);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18400);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2745= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18401);}while(r); +S_21345:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18402);if(r)goto S_21345;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18402);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2746= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18403);}while(r); +S_21349:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18404);if(r)goto S_21349;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18404);}while(r); +} +S_21352:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18406);if(r)goto S_21352;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")->chr)",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18407);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18409);}while(r); +} +S_21357:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18414);if(r)goto S_21357;} +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; +if(!qbevent)break;evnt(18415);}while(r); +}else{ +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18417);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18419);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18421);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18422);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18424);}while(r); +} +S_21367:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18428);if(r)goto S_21367;} +S_21368:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18429);if(r)goto S_21368;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEM cannot reference variable-length strings",44))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18429);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18429);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18431);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18432);}while(r); +S_21374:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18432);if(r)goto S_21374;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18432);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18433);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2747= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18434);}while(r); +S_21379:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18434);if(r)goto S_21379;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18434);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18436);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18437);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18439);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2748= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18443);}while(r); +S_21387:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18444);if(r)goto S_21387;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18444);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18445);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18447);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18448);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18450);}while(r); +} +S_21395:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))||new_error){ +if(qbevent){evnt(18455);if(r)goto S_21395;} +LABEL_METHOD2USEALL:; +if(qbevent){evnt(18456);r=0;} +S_21396:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18459);if(r)goto S_21396;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18459);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18459);}while(r); +} +S_21400:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18460);if(r)goto S_21400;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18460);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18460);}while(r); +} +S_21404:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18463);if(r)goto S_21404;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18465);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18466);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18466);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18467);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18468);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18468);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18469);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18470);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18470);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18471);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18472);}while(r); +S_21416:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18473);if(r)goto S_21416;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18473);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18474);}while(r); +S_21420:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17958);if(r)goto S_20842;} +if(qbevent){evnt(18474);if(r)goto S_21420;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18474);}while(r); +} +LABEL_METHOD2USEALLUDT:; +if(qbevent){evnt(18475);r=0;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2752= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18476);}while(r); +S_21424:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18477);if(r)goto S_21424;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17959);}while(r); +if(!qbevent)break;evnt(18477);}while(r); } -S_20845:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(17961);if(r)goto S_20845;} do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(17961);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17961);}while(r); +if(!qbevent)break;evnt(18478);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18479);}while(r); +S_21429:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18480);if(r)goto S_21429;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18480);}while(r); +} +S_21432:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18481);if(r)goto S_21432;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18481);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18482);}while(r); +} +S_21437:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18486);if(r)goto S_21437;} +S_21438:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18488);if(r)goto S_21438;} +S_21439:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18489);if(r)goto S_21439;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2753= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18490);}while(r); +S_21441:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18491);if(r)goto S_21441;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18491);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18492);}while(r); +S_21445:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18493);if(r)goto S_21445;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18493);}while(r); +} +S_21448:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18494);if(r)goto S_21448;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18494);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18495);}while(r); +} +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18498);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18499);}while(r); +S_21456:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18500);if(r)goto S_21456;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18500);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(18501);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18503);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2755= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18504);}while(r); +S_21462:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18505);if(r)goto S_21462;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18505);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2756= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18506);}while(r); +S_21466:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18507);if(r)goto S_21466;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18507);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18508);}while(r); +S_21470:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18511);if(r)goto S_21470;} +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; +if(!qbevent)break;evnt(18512);}while(r); }else{ do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(17961);}while(r); +*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18514);}while(r); } -S_20851:; +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18516);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18517);}while(r); +S_21477:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18518);if(r)goto S_21477;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18518);}while(r); +} +S_21480:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18519);if(r)goto S_21480;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18519);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18521);}while(r); +} +S_21485:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18525);if(r)goto S_21485;} +S_21486:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18526);if(r)goto S_21486;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18527);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18528);}while(r); +S_21489:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17962);if(r)goto S_20851;} +if(qbevent){evnt(18529);if(r)goto S_21489;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17962);}while(r); -} -dl_continue_2576:; -} -dl_exit_2576:; -do{ -*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17966);}while(r); -S_20856:; -if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(17966);if(r)goto S_20856;} -do{ -*_FUNC_FINDARRAY_LONG_A= 91 ; -if(!qbevent)break;evnt(17966);}while(r); +if(!qbevent)break;evnt(18529);}while(r); } do{ -*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; -if(!qbevent)break;evnt(17967);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17968);}while(r); +if(!qbevent)break;evnt(18530);}while(r); do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2757= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17969);}while(r); -S_20862:; +if(!qbevent)break;evnt(18531);}while(r); +S_21494:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17969);if(r)goto S_20862;} +if(qbevent){evnt(18532);if(r)goto S_21494;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17969);}while(r); +if(!qbevent)break;evnt(18532);}while(r); } -S_20865:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(17970);if(r)goto S_20865;} -S_20866:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17971);if(r)goto S_20866;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17972);}while(r); -} -S_20869:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(17974);if(r)goto S_20869;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(17974);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17974);}while(r); }else{ do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(17974);}while(r); -} -S_20875:; +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2758= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18534);}while(r); +S_21499:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17975);if(r)goto S_20875;} +if(qbevent){evnt(18535);if(r)goto S_21499;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(17975);}while(r); -} -dl_continue_2577:; -} -dl_exit_2577:; +if(!qbevent)break;evnt(18535);}while(r); } do{ -*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; -if(!qbevent)break;evnt(17979);}while(r); +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18536);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18538);}while(r); +S_21505:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18539);if(r)goto S_21505;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18539);}while(r); +} +S_21508:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18540);if(r)goto S_21508;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18540);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18541);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2759= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18545);}while(r); +S_21514:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18546);if(r)goto S_21514;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18546);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18547);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18548);}while(r); +S_21519:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18549);if(r)goto S_21519;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18549);}while(r); +} +S_21522:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18550);if(r)goto S_21522;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18550);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18551);}while(r); +} +S_21527:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!=(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(18558);if(r)goto S_21527;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Illegal string-number conversion",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18559);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18559);}while(r); +} +S_21531:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(18562);if(r)goto S_21531;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18563);}while(r); +S_21533:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(18564);if(r)goto S_21533;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2760= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18565);}while(r); +S_21535:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18566);if(r)goto S_21535;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18566);}while(r); +} +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18568);}while(r); +} +S_21541:; +if (((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(18572);if(r)goto S_21541;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp received a request for a pointer (unsupported)",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18573);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18573);}while(r); +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid pointer",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18575);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18575);}while(r); +} +S_21547:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(18579);if(r)goto S_21547;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2761= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18580);}while(r); +S_21549:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18581);if(r)goto S_21549;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18581);}while(r); +} +} +S_21553:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(18584);if(r)goto S_21553;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp couldn't convert pointer type!",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18585);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18585);}while(r); +} +S_21557:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(18589);if(r)goto S_21557;} +S_21558:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(18590);if(r)goto S_21558;} +do{ +*_FUNC_EVALUATETOTYP_LONG_BITS=*_FUNC_EVALUATETOTYP_LONG_TARGETTYP& 511 ; +if(!qbevent)break;evnt(18591);}while(r); +S_21560:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(18593);if(r)goto S_21560;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18593);}while(r); +} +S_21563:; +if (((-(*_FUNC_EVALUATETOTYP_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATETOTYP_LONG_BITS< 32 )))||new_error){ +if(qbevent){evnt(18594);if(r)goto S_21563;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18594);}while(r); +} +S_21566:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS>= 32 ))||new_error){ +if(qbevent){evnt(18595);if(r)goto S_21566;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18595);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18599);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free18.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_FINDARRAY_LONG_FINDARRAY; +qbs_maketmp(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP);return _FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP; } -qbs* FUNC_FIXOPERATIONORDER(qbs*_FUNC_FIXOPERATIONORDER_STRING_SAVEA){ +int32 FUNC_FINDID(qbs*_FUNC_FINDID_STRING_N2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -71952,2932 +75271,410 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); +qbs_set(_FUNC_FINDID_STRING_N,qbs_ucase(_FUNC_FINDID_STRING_N2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17986);}while(r); -S_20882:; -if (( 0 )||new_error){ -if(qbevent){evnt(17987);if(r)goto S_20882;} +if(!qbevent)break;evnt(18603);}while(r); +S_21573:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_FINDID_STRING_N)== 34 )))||new_error){ +if(qbevent){evnt(18606);if(r)goto S_21573;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2579; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:in:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2579; -skip2579: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17987);}while(r); -} -do{ -*__LONG_FOOINDWEL=*__LONG_FOOINDWEL+ 1 ; -if(!qbevent)break;evnt(17989);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17991);}while(r); -S_20887:; -if ((-(*__LONG_FOOINDWEL== 1 ))||new_error){ -if(qbevent){evnt(17993);if(r)goto S_20887;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17996);}while(r); -S_20889:; -fornext_value2581= 1 ; -fornext_finalvalue2581=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -fornext_step2581= 1 ; -if (fornext_step2581<0) fornext_step_negative2581=1; else fornext_step_negative2581=0; -if (new_error) goto fornext_error2581; -goto fornext_entrylabel2581; -while(1){ -fornext_value2581=fornext_step2581+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2581: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2581; -if (fornext_step_negative2581){ -if (fornext_value2581fornext_finalvalue2581) break; -} -fornext_error2581:; -if(qbevent){evnt(17997);if(r)goto S_20889;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17998);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,&(pass2582=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17999);}while(r); -S_20892:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("AND",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("AND",3)))))||new_error){ -if(qbevent){evnt(18000);if(r)goto S_20892;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: AND AND",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18000);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18000);}while(r); -} -S_20896:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("OR",2)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("OR",2)))))||new_error){ -if(qbevent){evnt(18001);if(r)goto S_20896;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: OR OR",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18001);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18001);}while(r); -} -S_20900:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("XOR",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("XOR",3)))))||new_error){ -if(qbevent){evnt(18002);if(r)goto S_20900;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: XOR XOR",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18002);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18002);}while(r); -} -S_20904:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("IMP",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("IMP",3)))))||new_error){ -if(qbevent){evnt(18003);if(r)goto S_20904;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: IMP IMP",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18003);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18003);}while(r); -} -S_20908:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("EQV",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("EQV",3)))))||new_error){ -if(qbevent){evnt(18004);if(r)goto S_20908;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: EQV EQV",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18004);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18004);}while(r); -} -fornext_continue_2580:; -} -fornext_exit_2580:; -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18008);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18009);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B1,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("(",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18010);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B2,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18011);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I= 1 ; -if(!qbevent)break;evnt(18012);}while(r); -LABEL_FINDMMB:; -if(qbevent){evnt(18013);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I1=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18014);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B2,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18015);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I1; -if(!qbevent)break;evnt(18016);}while(r); -S_20921:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I2)||new_error){ -if(qbevent){evnt(18017);if(r)goto S_20921;} -S_20922:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I1== 0 ))||new_error){ -if(qbevent){evnt(18018);if(r)goto S_20922;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; -if(!qbevent)break;evnt(18019);}while(r); -}else{ -S_20925:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I2<*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ -if(qbevent){evnt(18021);if(r)goto S_20925;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; -if(!qbevent)break;evnt(18021);}while(r); -} -} -} -S_20930:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I3)||new_error){ -if(qbevent){evnt(18024);if(r)goto S_20930;} -S_20931:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ -if(qbevent){evnt(18025);if(r)goto S_20931;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18025);}while(r); -} -S_20934:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I2))||new_error){ -if(qbevent){evnt(18026);if(r)goto S_20934;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18026);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I3+ 2 ; -if(!qbevent)break;evnt(18027);}while(r); -S_20938:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B< 0 ))||new_error){ -if(qbevent){evnt(18028);if(r)goto S_20938;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Missing (",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18028);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18028);}while(r); -} -do{ -goto LABEL_FINDMMB; -if(!qbevent)break;evnt(18029);}while(r); -} -S_20944:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B> 0 ))||new_error){ -if(qbevent){evnt(18031);if(r)goto S_20944;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18031);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18031);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18035);}while(r); -LABEL_RULE1:; -if(qbevent){evnt(18038);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("+",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18039);}while(r); -S_20950:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ -if(qbevent){evnt(18040);if(r)goto S_20950;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18041);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18042);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18043);}while(r); -S_20954:; -if (( 0 )||new_error){ -if(qbevent){evnt(18044);if(r)goto S_20954;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2585; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2585; -skip2585: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18044);}while(r); -} -do{ -goto LABEL_RULE1; -if(!qbevent)break;evnt(18045);}while(r); -} -LABEL_RULE2:; -if(qbevent){evnt(18049);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18050);}while(r); -S_20960:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ -if(qbevent){evnt(18051);if(r)goto S_20960;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18052);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18053);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18054);}while(r); -S_20964:; -if (( 0 )||new_error){ -if(qbevent){evnt(18055);if(r)goto S_20964;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2588; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2588; -skip2588: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18055);}while(r); -} -do{ -goto LABEL_RULE2; -if(!qbevent)break;evnt(18056);}while(r); -} -LABEL_RULE3:; -if(qbevent){evnt(18060);r=0;} -S_20969:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("-",1)),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(18061);if(r)goto S_20969;} -S_20970:; -fornext_value2590= 1 ; -fornext_finalvalue2590=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; -fornext_step2590= 1 ; -if (fornext_step2590<0) fornext_step_negative2590=1; else fornext_step_negative2590=0; -if (new_error) goto fornext_error2590; -goto fornext_entrylabel2590; -while(1){ -fornext_value2590=fornext_step2590+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2590: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2590; -if (fornext_step_negative2590){ -if (fornext_value2590fornext_finalvalue2590) break; -} -fornext_error2590:; -if(qbevent){evnt(18062);if(r)goto S_20970;} -S_20971:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))))||new_error){ -if(qbevent){evnt(18063);if(r)goto S_20971;} -S_20972:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2591=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(18064);if(r)goto S_20972;} -S_20973:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2592=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 )),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(18065);if(r)goto S_20973;} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2593=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2594=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),&(pass2595= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18066);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18067);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; -if(!qbevent)break;evnt(18068);}while(r); -S_20977:; -if (( 0 )||new_error){ -if(qbevent){evnt(18069);if(r)goto S_20977;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2596; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2596; -skip2596: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18069);}while(r); -} -do{ -goto LABEL_RULE3; -if(!qbevent)break;evnt(18070);}while(r); -} -} -} -fornext_continue_2589:; -} -fornext_exit_2589:; -} -S_20986:; -fornext_value2598= 1 ; -fornext_finalvalue2598=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -fornext_step2598= 1 ; -if (fornext_step2598<0) fornext_step_negative2598=1; else fornext_step_negative2598=0; -if (new_error) goto fornext_error2598; -goto fornext_entrylabel2598; -while(1){ -fornext_value2598=fornext_step2598+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2598: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2598; -if (fornext_step_negative2598){ -if (fornext_value2598fornext_finalvalue2598) break; -} -fornext_error2598:; -if(qbevent){evnt(18094);if(r)goto S_20986;} -S_20987:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(18095);if(r)goto S_20987;} -do{ -goto fornext_exit_2597; -if(!qbevent)break;evnt(18095);}while(r); -} -S_20990:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))== 45 )))||new_error){ -if(qbevent){evnt(18097);if(r)goto S_20990;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 0 ; -if(!qbevent)break;evnt(18099);}while(r); -S_20992:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(18100);if(r)goto S_20992;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; -if(!qbevent)break;evnt(18101);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2599=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18103);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18104);}while(r); -S_20997:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 )))||new_error){ -if(qbevent){evnt(18105);if(r)goto S_20997;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; -if(!qbevent)break;evnt(18106);}while(r); -}else{ -S_21000:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ -if(qbevent){evnt(18108);if(r)goto S_21000;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; -if(!qbevent)break;evnt(18108);}while(r); -} -} -} -S_21005:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEG== 1 ))||new_error){ -if(qbevent){evnt(18111);if(r)goto S_21005;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2600=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18113);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18114);}while(r); -S_21008:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(18115);if(r)goto S_21008;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2= 0 ; -if(!qbevent)break;evnt(18116);}while(r); -S_21010:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(18116);if(r)goto S_21010;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2601=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18116);}while(r); -} -S_21013:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2!= 94 ))||new_error){ -if(qbevent){evnt(18117);if(r)goto S_21013;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18119);}while(r); -S_21015:; -if ((qbs_cleanup(qbs_tmp_base,*_FUNC_FIXOPERATIONORDER_LONG_I2&(-(qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2+ 1 )!= 38 ))))||new_error){ -if(qbevent){evnt(18120);if(r)goto S_21015;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-",1),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2)),qbs_new_txt_len("-",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18121);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_new_txt_len("-",1),_FUNC_FIXOPERATIONORDER_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18123);}while(r); -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2603=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2604= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18125);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2605=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18126);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18127);}while(r); -S_21023:; -if (( 0 )||new_error){ -if(qbevent){evnt(18128);if(r)goto S_21023;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2606; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2606; -skip2606: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18128);}while(r); -} -do{ -goto LABEL_NEGDONE; -if(!qbevent)break;evnt(18130);}while(r); -} -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2607= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18137);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2608=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),func_chr( 241 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18138);}while(r); -S_21031:; -if (( 0 )||new_error){ -if(qbevent){evnt(18139);if(r)goto S_21031;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2609; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2609; -skip2609: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18139);}while(r); -} -} -} -LABEL_NEGDONE:; -if(qbevent){evnt(18143);r=0;} -fornext_continue_2597:; -} -fornext_exit_2597:; -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 0 ; -if(!qbevent)break;evnt(18153);}while(r); -LABEL_POWNEG:; -if(qbevent){evnt(18154);r=0;} -S_21039:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("^",1),__STRING1_SP),func_chr( 241 )),0)))||new_error){ -if(qbevent){evnt(18155);if(r)goto S_21039;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18156);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B1= 0 ; -if(!qbevent)break;evnt(18157);}while(r); -S_21042:; -fornext_value2611= 1 ; -fornext_finalvalue2611=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2611= 1 ; -if (fornext_step2611<0) fornext_step_negative2611=1; else fornext_step_negative2611=0; -if (new_error) goto fornext_error2611; -goto fornext_entrylabel2611; -while(1){ -fornext_value2611=fornext_step2611+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2611: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2611; -if (fornext_step_negative2611){ -if (fornext_value2611fornext_finalvalue2611) break; -} -fornext_error2611:; -if(qbevent){evnt(18158);if(r)goto S_21042;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18159);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18160);}while(r); -S_21045:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))||new_error){ -if(qbevent){evnt(18161);if(r)goto S_21045;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18161);}while(r); -} -S_21048:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ -if(qbevent){evnt(18162);if(r)goto S_21048;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18162);}while(r); -} -S_21051:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18163);if(r)goto S_21051;} -S_21052:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ -if(qbevent){evnt(18164);if(r)goto S_21052;} -S_21053:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ -if(qbevent){evnt(18165);if(r)goto S_21053;} -S_21054:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len("^",1)))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,func_chr( 241 )))))||new_error){ -if(qbevent){evnt(18166);if(r)goto S_21054;} -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2612=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18167);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18168);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18169);}while(r); -S_21058:; -if (( 0 )||new_error){ -if(qbevent){evnt(18170);if(r)goto S_21058;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2613; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2613; -skip2613: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18170);}while(r); -} -do{ -goto LABEL_POWNEG; -if(!qbevent)break;evnt(18171);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; -if(!qbevent)break;evnt(18172);}while(r); -} -} -} -S_21066:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 94 ))||new_error){ -if(qbevent){evnt(18176);if(r)goto S_21066;} -S_21067:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2614=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),func_chr( 241 ))))||new_error){ -if(qbevent){evnt(18177);if(r)goto S_21067;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B1=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(18177);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(18177);}while(r); -} -} -} -fornext_continue_2610:; -} -fornext_exit_2610:; -S_21074:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ -if(qbevent){evnt(18181);if(r)goto S_21074;} -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18182);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A,__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18183);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18184);}while(r); -S_21078:; -if (( 0 )||new_error){ -if(qbevent){evnt(18185);if(r)goto S_21078;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2615; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2615; -skip2615: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18185);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; -if(!qbevent)break;evnt(18186);}while(r); -do{ -goto LABEL_POWNEG; -if(!qbevent)break;evnt(18187);}while(r); -} -} -LABEL_NOT_RECHECK:; -if(qbevent){evnt(18194);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LCO= 255 ; -if(!qbevent)break;evnt(18195);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HCO= 0 ; -if(!qbevent)break;evnt(18196);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18197);}while(r); -S_21088:; -fornext_value2617= 1 ; -fornext_finalvalue2617=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2617= 1 ; -if (fornext_step2617<0) fornext_step_negative2617=1; else fornext_step_negative2617=0; -if (new_error) goto fornext_error2617; -goto fornext_entrylabel2617; -while(1){ -fornext_value2617=fornext_step2617+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2617: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2617; -if (fornext_step_negative2617){ -if (fornext_value2617fornext_finalvalue2617) break; -} -fornext_error2617:; -if(qbevent){evnt(18198);if(r)goto S_21088;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18199);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18200);}while(r); -S_21091:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18201);if(r)goto S_21091;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18201);}while(r); -} -S_21094:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18202);if(r)goto S_21094;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18202);}while(r); -} -S_21097:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18203);if(r)goto S_21097;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18204);}while(r); -S_21099:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_OP)||new_error){ -if(qbevent){evnt(18205);if(r)goto S_21099;} -S_21100:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP<*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ -if(qbevent){evnt(18206);if(r)goto S_21100;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; -if(!qbevent)break;evnt(18206);}while(r); -} -S_21103:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP>*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ -if(qbevent){evnt(18207);if(r)goto S_21103;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; -if(!qbevent)break;evnt(18207);}while(r); -} -} -} -fornext_continue_2616:; -} -fornext_exit_2616:; -S_21109:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HCO!= 0 ))||new_error){ -if(qbevent){evnt(18214);if(r)goto S_21109;} -S_21110:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO!=*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ -if(qbevent){evnt(18215);if(r)goto S_21110;} -S_21111:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO== 6 ))||new_error){ -if(qbevent){evnt(18218);if(r)goto S_21111;} -S_21112:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(18221);if(r)goto S_21112;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18221);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18221);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18222);}while(r); -S_21117:; -fornext_value2619= 1 ; -fornext_finalvalue2619=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2619= 1 ; -if (fornext_step2619<0) fornext_step_negative2619=1; else fornext_step_negative2619=0; -if (new_error) goto fornext_error2619; -goto fornext_entrylabel2619; -while(1){ -fornext_value2619=fornext_step2619+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2619: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2619; -if (fornext_step_negative2619){ -if (fornext_value2619fornext_finalvalue2619) break; -} -fornext_error2619:; -if(qbevent){evnt(18223);if(r)goto S_21117;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18224);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18225);}while(r); -S_21120:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18226);if(r)goto S_21120;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18226);}while(r); -} -S_21123:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18227);if(r)goto S_21123;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18227);}while(r); -} -S_21126:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18228);if(r)goto S_21126;} -S_21127:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2),qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(18229);if(r)goto S_21127;} -S_21128:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18230);if(r)goto S_21128;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18230);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18230);}while(r); -} -S_21132:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(18231);if(r)goto S_21132;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2620= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18231);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18231);}while(r); -do{ -goto LABEL_LCO_BRACKETTING_DONE; -if(!qbevent)break;evnt(18231);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2621= 1 ),&(pass2622=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2623=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18232);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 4 ; -if(!qbevent)break;evnt(18233);}while(r); -do{ -goto LABEL_NOT_RECHECK; -if(!qbevent)break;evnt(18234);}while(r); -} -} -fornext_continue_2618:; -} -fornext_exit_2618:; -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N2=*_FUNC_FIXOPERATIONORDER_LONG_N; -if(!qbevent)break;evnt(18240);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18241);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_new_txt_len("{",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18242);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N= 1 ; -if(!qbevent)break;evnt(18243);}while(r); -S_21148:; -fornext_value2625= 1 ; -fornext_finalvalue2625=*_FUNC_FIXOPERATIONORDER_LONG_N2; -fornext_step2625= 1 ; -if (fornext_step2625<0) fornext_step_negative2625=1; else fornext_step_negative2625=0; -if (new_error) goto fornext_error2625; -goto fornext_entrylabel2625; -while(1){ -fornext_value2625=fornext_step2625+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2625: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2625; -if (fornext_step_negative2625){ -if (fornext_value2625fornext_finalvalue2625) break; -} -fornext_error2625:; -if(qbevent){evnt(18244);if(r)goto S_21148;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18245);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18246);}while(r); -S_21151:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18247);if(r)goto S_21151;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18247);}while(r); -} -S_21154:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18248);if(r)goto S_21154;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18248);}while(r); -} -S_21157:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18249);if(r)goto S_21157;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18250);}while(r); -S_21159:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP==*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ -if(qbevent){evnt(18251);if(r)goto S_21159;} -S_21160:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(18252);if(r)goto S_21160;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A2,__STRING1_SP),qbs_new_txt_len("{",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18253);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N= 2 ; -if(!qbevent)break;evnt(18254);}while(r); -}else{ -S_21164:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N2))||new_error){ -if(qbevent){evnt(18256);if(r)goto S_21164;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18256);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18256);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP),qbs_new_txt_len("{",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18257);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 3 ; -if(!qbevent)break;evnt(18258);}while(r); -} -do{ -goto LABEL_FIXOP0; -if(!qbevent)break;evnt(18260);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18264);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; -if(!qbevent)break;evnt(18265);}while(r); -LABEL_FIXOP0:; -if(qbevent){evnt(18266);r=0;} -fornext_continue_2624:; -} -fornext_exit_2624:; -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18268);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; -if(!qbevent)break;evnt(18269);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18270);}while(r); -LABEL_LCO_BRACKETTING_DONE:; -if(qbevent){evnt(18272);r=0;} -S_21180:; -if (( 0 )||new_error){ -if(qbevent){evnt(18273);if(r)goto S_21180;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2626; -sub_file_print(tmp_fileno,qbs_new_txt_len("fixoperationorder:lco bracketing[",33), 0 , 0 , 0 ); -if (new_error) goto skip2626; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_LCO)), 1 , 0 , 0 ); -if (new_error) goto skip2626; -sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); -if (new_error) goto skip2626; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_HCO)), 1 , 0 , 0 ); -if (new_error) goto skip2626; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("]:",2),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2626; -skip2626: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18273);}while(r); -} -S_21183:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED)||new_error){ -if(qbevent){evnt(18276);if(r)goto S_21183;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18277);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I= 0 ; -if(!qbevent)break;evnt(18278);}while(r); -S_21186:; -do{ -if(qbevent){evnt(18279);if(r)goto S_21186;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(18280);}while(r); -S_21188:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18281);if(r)goto S_21188;} -do{ -goto dl_exit_2627; -if(!qbevent)break;evnt(18281);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18282);}while(r); -S_21192:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18283);if(r)goto S_21192;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18283);}while(r); -} -S_21195:; -if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ -if(qbevent){evnt(18284);if(r)goto S_21195;} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2628= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18285);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18286);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ; -if(!qbevent)break;evnt(18287);}while(r); -S_21199:; -if (( 0 )||new_error){ -if(qbevent){evnt(18288);if(r)goto S_21199;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2629; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^- {} removed:",32),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip2629; -skip2629: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18288);}while(r); -} -} -S_21203:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18290);if(r)goto S_21203;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18290);}while(r); -} -dl_continue_2627:; -}while(1); -dl_exit_2627:; -} -} -} -S_21210:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 4 )),(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),func_chr( 241 )),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(18298);if(r)goto S_21210;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2630= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18299);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18299);}while(r); -} -S_21214:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 8 ))),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(18301);if(r)goto S_21214;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2631= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18302);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18302);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18311);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18312);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C= 0 ; -if(!qbevent)break;evnt(18313);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 0 ; -if(!qbevent)break;evnt(18314);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI= 0 ; -if(!qbevent)break;evnt(18314);}while(r); -S_21223:; -fornext_value2633= 1 ; -fornext_finalvalue2633=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2633= 1 ; -if (fornext_step2633<0) fornext_step_negative2633=1; else fornext_step_negative2633=0; -if (new_error) goto fornext_error2633; -goto fornext_entrylabel2633; -while(1){ -fornext_value2633=fornext_step2633+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2633: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2633; -if (fornext_step_negative2633){ -if (fornext_value2633fornext_finalvalue2633) break; -} -fornext_error2633:; -if(qbevent){evnt(18315);if(r)goto S_21223;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18316);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTC=*_FUNC_FIXOPERATIONORDER_LONG_C; -if(!qbevent)break;evnt(18317);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18318);}while(r); -S_21227:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18320);if(r)goto S_21227;} -S_21228:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ -if(qbevent){evnt(18321);if(r)goto S_21228;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18321);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18322);}while(r); -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18323);}while(r); -} -S_21234:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18325);if(r)goto S_21234;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18327);}while(r); -S_21236:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18330);if(r)goto S_21236;} -S_21237:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ -if(qbevent){evnt(18331);if(r)goto S_21237;} -S_21238:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC== 40 ))||new_error){ -if(qbevent){evnt(18332);if(r)goto S_21238;} -S_21239:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI==(*_FUNC_FIXOPERATIONORDER_LONG_I- 2 )))|(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI== 0 )))||new_error){ -if(qbevent){evnt(18333);if(r)goto S_21239;} -S_21240:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT>= 0 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT<= 3 )))||new_error){ -if(qbevent){evnt(18334);if(r)goto S_21240;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected (",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18335);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18335);}while(r); -} -} -} -} -} -S_21248:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ -if(qbevent){evnt(18342);if(r)goto S_21248;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18342);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18343);}while(r); -} -S_21253:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18346);if(r)goto S_21253;} -S_21254:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 34 ))||new_error){ -if(qbevent){evnt(18357);if(r)goto S_21254;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 1 ; -if(!qbevent)break;evnt(18358);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(18358);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X2= 1 ; -if(!qbevent)break;evnt(18362);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18363);}while(r); -S_21259:; -while((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ -if(qbevent){evnt(18364);if(r)goto S_21259;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18365);}while(r); -S_21261:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 92 ))||new_error){ -if(qbevent){evnt(18366);if(r)goto S_21261;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18367);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; -if(!qbevent)break;evnt(18368);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C3=((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 3 )- 48 ))+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 )- 48 )* 8 )+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 )- 48 )* 64 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18371);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),func_chr(*_FUNC_FIXOPERATIONORDER_LONG_C3)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18372);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; -if(!qbevent)break;evnt(18373);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18375);}while(r); -dl_continue_2634:; -} -dl_exit_2634:; -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr( 2 ,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18378);}while(r); -S_21272:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ -if(qbevent){evnt(18378);if(r)goto S_21272;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18378);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18379);}while(r); -} -S_21277:; -if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 )))||new_error){ -if(qbevent){evnt(18383);if(r)goto S_21277;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 2 ; -if(!qbevent)break;evnt(18384);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(18384);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18386);}while(r); -S_21281:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ -if(qbevent){evnt(18387);if(r)goto S_21281;} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2637= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18388);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2638=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18388);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18389);}while(r); -} -S_21286:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(18392);if(r)goto S_21286;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18393);}while(r); -S_21288:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C2< 48 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C2> 57 )))||new_error){ -if(qbevent){evnt(18394);if(r)goto S_21288;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X= 1 ; -if(!qbevent)break;evnt(18395);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18397);}while(r); -} -} -S_21294:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(18402);if(r)goto S_21294;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18403);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18404);}while(r); -S_21297:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 ))||new_error){ -if(qbevent){evnt(18405);if(r)goto S_21297;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18406);}while(r); -S_21299:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessthan(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-2147483648",11)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 11 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 11 ))))||new_error){ -if(qbevent){evnt(18407);if(r)goto S_21299;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18407);}while(r); -} -S_21302:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-32768",6)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 6 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 6 ))))||new_error){ -if(qbevent){evnt(18408);if(r)goto S_21302;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18408);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18410);}while(r); -S_21307:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("9223372036854775807",19)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 19 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 19 ))))||new_error){ -if(qbevent){evnt(18411);if(r)goto S_21307;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18411);}while(r); -} -S_21310:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("2147483647",10)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 10 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 10 ))))||new_error){ -if(qbevent){evnt(18412);if(r)goto S_21310;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18412);}while(r); -} -S_21313:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("32767",5)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 5 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 5 ))))||new_error){ -if(qbevent){evnt(18413);if(r)goto S_21313;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18413);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18415);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2651= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18416);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2652=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18416);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18419);}while(r); -} -S_21323:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_F2)))||new_error){ -if(qbevent){evnt(18423);if(r)goto S_21323;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 3 ; -if(!qbevent)break;evnt(18424);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(18424);}while(r); -S_21326:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_F2->len> 1 )))||new_error){ -if(qbevent){evnt(18425);if(r)goto S_21326;} -S_21327:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2))))||new_error){ -if(qbevent){evnt(18426);if(r)goto S_21327;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18427);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2654= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18428);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2655=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18429);}while(r); -} -} -S_21333:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F2,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(18433);if(r)goto S_21333;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18433);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(18433);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18434);}while(r); -} -S_21339:; -if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])||new_error){ -if(qbevent){evnt(18438);if(r)goto S_21339;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 4 ; -if(!qbevent)break;evnt(18439);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(18439);}while(r); -S_21342:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18441);if(r)goto S_21342;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2656=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18441);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; -if(!qbevent)break;evnt(18441);}while(r); -} -S_21347:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ -if(qbevent){evnt(18444);if(r)goto S_21347;} -S_21348:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC!= 46 ))||new_error){ -if(qbevent){evnt(18445);if(r)goto S_21348;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18447);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18448);}while(r); -S_21351:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18449);if(r)goto S_21351;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18449);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 0 ; -if(!qbevent)break;evnt(18451);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18452);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(18453);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18454);}while(r); -S_21358:; -while((*_FUNC_FIXOPERATIONORDER_LONG_HASHRES)||new_error){ -if(qbevent){evnt(18455);if(r)goto S_21358;} -S_21359:; -if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ -if(qbevent){evnt(18456);if(r)goto S_21359;} -S_21360:; -if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ -if(qbevent){evnt(18457);if(r)goto S_21360;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 1 ; -if(!qbevent)break;evnt(18458);}while(r); -do{ -goto dl_exit_2657; -if(!qbevent)break;evnt(18459);}while(r); -} -} -S_21365:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(18462);if(r)goto S_21365;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); -if(!qbevent)break;evnt(18462);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(18462);}while(r); -} -dl_continue_2657:; -} -dl_exit_2657:; -S_21371:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND)||new_error){ -if(qbevent){evnt(18465);if(r)goto S_21371;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I2=*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF; -if(!qbevent)break;evnt(18466);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 0 ; -if(!qbevent)break;evnt(18475);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18476);}while(r); -S_21375:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18477);if(r)goto S_21375;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18477);}while(r); -} -S_21378:; -while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ -if(qbevent){evnt(18478);if(r)goto S_21378;} -S_21379:; -if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ -if(qbevent){evnt(18479);if(r)goto S_21379;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; -if(!qbevent)break;evnt(18479);}while(r); -do{ -goto dl_exit_2658; -if(!qbevent)break;evnt(18479);}while(r); -} -S_21383:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18480);if(r)goto S_21383;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18480);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18480);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18480);}while(r); -} -S_21389:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18481);if(r)goto S_21389;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18481);}while(r); -} -dl_continue_2658:; -} -dl_exit_2658:; -S_21393:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ -if(qbevent){evnt(18484);if(r)goto S_21393;} -S_21394:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_ES->len== 0 )))||new_error){ -if(qbevent){evnt(18485);if(r)goto S_21394;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_A=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18486);}while(r); -S_21396:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(18486);if(r)goto S_21396;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_A= 91 ; -if(!qbevent)break;evnt(18486);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_A=*_FUNC_FIXOPERATIONORDER_LONG_A- 64 ; -if(!qbevent)break;evnt(18487);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18488);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18489);}while(r); -S_21402:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18490);if(r)goto S_21402;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18490);}while(r); -} -S_21405:; -while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ -if(qbevent){evnt(18491);if(r)goto S_21405;} -S_21406:; -if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ -if(qbevent){evnt(18492);if(r)goto S_21406;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; -if(!qbevent)break;evnt(18492);}while(r); -do{ -goto dl_exit_2660; -if(!qbevent)break;evnt(18492);}while(r); -} -S_21410:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18493);if(r)goto S_21410;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18493);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18493);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18493);}while(r); -} -S_21416:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18494);if(r)goto S_21416;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18494);}while(r); -} -dl_continue_2660:; -} -dl_exit_2660:; -} -} -S_21422:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ -if(qbevent){evnt(18499);if(r)goto S_21422;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(18501);}while(r); -S_21424:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18502);if(r)goto S_21424;} -S_21425:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXOPERATIONORDER_STRING_ES->len> 0 ))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_ES,qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(18503);if(r)goto S_21425;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18503);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18503);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18504);}while(r); -}else{ -S_21431:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_ES->len))||new_error){ -if(qbevent){evnt(18506);if(r)goto S_21431;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_ET=FUNC_TYPNAME2TYP(_FUNC_FIXOPERATIONORDER_STRING_ES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18506);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_ET= 0 ; -if(!qbevent)break;evnt(18506);}while(r); -} -S_21436:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18507);if(r)goto S_21436;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18507);}while(r); -} -S_21439:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_ET&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18508);if(r)goto S_21439;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18508);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18508);}while(r); -} -S_21443:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(18510);if(r)goto S_21443;} -do{ -*_FUNC_FIXOPERATIONORDER_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; -if(!qbevent)break;evnt(18511);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_INTEGER64_V=qbr(*_FUNC_FIXOPERATIONORDER_FLOAT_V); -if(!qbevent)break;evnt(18512);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(18513);}while(r); -}else{ -S_21448:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(18515);if(r)goto S_21448;} -do{ -*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; -if(!qbevent)break;evnt(18516);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_INTEGER64_V=*_FUNC_FIXOPERATIONORDER_UINTEGER64_V; -if(!qbevent)break;evnt(18517);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(18518);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; -if(!qbevent)break;evnt(18520);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(18521);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(18522);}while(r); -} -} -S_21458:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_ET)||new_error){ -if(qbevent){evnt(18526);if(r)goto S_21458;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=*_FUNC_FIXOPERATIONORDER_LONG_ET; -if(!qbevent)break;evnt(18526);}while(r); -} -S_21461:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(18529);if(r)goto S_21461;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_FUNC_FIXOPERATIONORDER_FLOAT_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18530);}while(r); -}else{ -S_21464:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(18532);if(r)goto S_21464;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_FIXOPERATIONORDER_UINTEGER64_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18533);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_FIXOPERATIONORDER_INTEGER64_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18535);}while(r); -} -} -S_21470:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(18540);if(r)goto S_21470;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T2=*_FUNC_FIXOPERATIONORDER_LONG_T& 511 ; -if(!qbevent)break;evnt(18541);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18543);}while(r); -S_21473:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E",1),0)))||new_error){ -if(qbevent){evnt(18544);if(r)goto S_21473;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18544);}while(r); -} -S_21476:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D",1),0)))||new_error){ -if(qbevent){evnt(18545);if(r)goto S_21476;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18545);}while(r); -} -S_21479:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F",1),0)))||new_error){ -if(qbevent){evnt(18546);if(r)goto S_21479;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18546);}while(r); -} -S_21482:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_S->len))||new_error){ -if(qbevent){evnt(18547);if(r)goto S_21482;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18549);}while(r); -S_21484:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ -if(qbevent){evnt(18551);if(r)goto S_21484;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18551);}while(r); -} -S_21487:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ -if(qbevent){evnt(18552);if(r)goto S_21487;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18552);}while(r); -} -S_21490:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ -if(qbevent){evnt(18553);if(r)goto S_21490;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18553);}while(r); -} -do{ -sub_mid(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X, 1 ,_FUNC_FIXOPERATIONORDER_STRING_S,1); -if(!qbevent)break;evnt(18554);}while(r); -S_21494:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ -if(qbevent){evnt(18555);if(r)goto S_21494;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),qbs_new_txt_len(".0",2)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18555);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 ; -if(!qbevent)break;evnt(18555);}while(r); -} -S_21498:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(18556);if(r)goto S_21498;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18556);}while(r); -} -S_21501:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ -if(qbevent){evnt(18557);if(r)goto S_21501;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18557);}while(r); -} -S_21504:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("+",1),0)== 0 ))&(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("-",1),0)== 0 ))))||new_error){ -if(qbevent){evnt(18558);if(r)goto S_21504;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_new_txt_len("+",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18559);}while(r); -} -}else{ -S_21508:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ -if(qbevent){evnt(18563);if(r)goto S_21508;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".0",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18563);}while(r); -} -S_21511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(18564);if(r)goto S_21511;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18564);}while(r); -} -S_21514:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ -if(qbevent){evnt(18565);if(r)goto S_21514;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18565);}while(r); -} -S_21517:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ -if(qbevent){evnt(18566);if(r)goto S_21517;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E+0",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18566);}while(r); -} -S_21520:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ -if(qbevent){evnt(18567);if(r)goto S_21520;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D+0",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18567);}while(r); -} -S_21523:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ -if(qbevent){evnt(18568);if(r)goto S_21523;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F+0",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18568);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_TYPEVALUE2SYMBOL(_FUNC_FIXOPERATIONORDER_LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18571);}while(r); -S_21529:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18572);if(r)goto S_21529;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18572);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18573);}while(r); -} -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2668= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18578);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2669=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18579);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),_FUNC_FIXOPERATIONORDER_STRING_ES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18581);}while(r); -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18582);}while(r); -} -} -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18592);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18594);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18595);}while(r); -S_21546:; -fornext_value2671= 1 ; -fornext_finalvalue2671= 4 ; -fornext_step2671= 1 ; -if (fornext_step2671<0) fornext_step_negative2671=1; else fornext_step_negative2671=0; -if (new_error) goto fornext_error2671; -goto fornext_entrylabel2671; -while(1){ -fornext_value2671=fornext_step2671+(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD); -fornext_entrylabel2671: -*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD=fornext_value2671; -if (fornext_step_negative2671){ -if (fornext_value2671fornext_finalvalue2671) break; -} -fornext_error2671:; -if(qbevent){evnt(18597);if(r)goto S_21546;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18598);}while(r); -S_21548:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 4 )))||new_error){ -if(qbevent){evnt(18599);if(r)goto S_21548;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18600);}while(r); -S_21550:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_DTYP->len== 0 )))||new_error){ -if(qbevent){evnt(18601);if(r)goto S_21550;} -S_21551:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)== 0 )))||new_error){ -if(qbevent){evnt(18602);if(r)goto S_21551;} -S_21552:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)))||new_error){ -if(qbevent){evnt(18603);if(r)goto S_21552;} -S_21553:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(18604);if(r)goto S_21553;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_V= 27 ; -if(!qbevent)break;evnt(18604);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_V=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18604);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18605);}while(r); -} +goto LABEL_NOID; +if(!qbevent)break;evnt(18606);}while(r); } -}else{ do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); +qbs_set(_FUNC_FINDID_STRING_SECONDARG,__STRING_FINDIDSECONDARG); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18609);}while(r); -} -} do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18609);}while(r); +do{ +*_FUNC_FINDID_LONG_FINDANOTHER=*__INTEGER_FINDANOTHERID; if(!qbevent)break;evnt(18612);}while(r); -S_21566:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18613);if(r)goto S_21566;} +do{ +*__INTEGER_FINDANOTHERID= 0 ; +if(!qbevent)break;evnt(18612);}while(r); +S_21580:; +if (((-(*_FUNC_FINDID_LONG_FINDANOTHER!= 0 ))&(-(*__LONG_FINDIDINTERNAL!= 2 )))||new_error){ +if(qbevent){evnt(18613);if(r)goto S_21580;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("FINDID() ERROR: Invalid repeat search requested!",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18613);}while(r); do{ goto exit_subfunc; if(!qbevent)break;evnt(18613);}while(r); } -S_21569:; -while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ -if(qbevent){evnt(18614);if(r)goto S_21569;} -S_21570:; -if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(18615);if(r)goto S_21570;} -S_21571:; -if (( 0 )||new_error){ -if(qbevent){evnt(18617);if(r)goto S_21571;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2674; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("found id matching ",18),_FUNC_FIXOPERATIONORDER_STRING_F2), 0 , 0 , 1 ); -if (new_error) goto skip2674; -skip2674: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18617);}while(r); -} -S_21574:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 40 ))||new_error){ -if(qbevent){evnt(18619);if(r)goto S_21574;} -S_21575:; -if (((-(*(int32*)(((char*)__UDT_ID)+(512))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ -if(qbevent){evnt(18622);if(r)goto S_21575;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18626);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18627);}while(r); -S_21578:; +S_21584:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18628);if(r)goto S_21578;} +if(qbevent){evnt(18614);if(r)goto S_21584;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(18628);}while(r); +if(!qbevent)break;evnt(18614);}while(r); } do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +*_FUNC_FINDID_LONG_FINDID= 2 ; +if(!qbevent)break;evnt(18616);}while(r); +do{ +*_FUNC_FINDID_LONG_I= 0 ; +if(!qbevent)break;evnt(18619);}while(r); +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18620);}while(r); +S_21590:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18620);if(r)goto S_21590;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18620);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18621);}while(r); +S_21594:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18621);if(r)goto S_21594;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18621);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18622);}while(r); +S_21598:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18622);if(r)goto S_21598;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18622);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18623);}while(r); +S_21602:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18623);if(r)goto S_21602;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18623);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18624);}while(r); +S_21606:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18624);if(r)goto S_21606;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18624);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18625);}while(r); +S_21610:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18625);if(r)goto S_21610;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18625);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18626);}while(r); +S_21614:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18626);if(r)goto S_21614;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18626);}while(r); +} +LABEL_GOTSC:; +if(qbevent){evnt(18627);r=0;} +S_21617:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18628);if(r)goto S_21617;} +do{ +qbs_set(_FUNC_FINDID_STRING_SC,qbs_right(_FUNC_FINDID_STRING_N,_FUNC_FINDID_STRING_N->len-*_FUNC_FINDID_LONG_I+ 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18629);}while(r); do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2675= 0 )); +qbs_set(_FUNC_FINDID_STRING_N,qbs_left(_FUNC_FINDID_STRING_N,*_FUNC_FINDID_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18629);}while(r); +S_21620:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("`",1)))|(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("~`",2)))))||new_error){ +if(qbevent){evnt(18630);if(r)goto S_21620;} +do{ +qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("1",1))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18630);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2676=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18631);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18632);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2= 1 ; -if(!qbevent)break;evnt(18635);}while(r); -S_21586:; -fornext_value2678=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; -fornext_finalvalue2678=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2678= 1 ; -if (fornext_step2678<0) fornext_step_negative2678=1; else fornext_step_negative2678=0; -if (new_error) goto fornext_error2678; -goto fornext_entrylabel2678; -while(1){ -fornext_value2678=fornext_step2678+(*_FUNC_FIXOPERATIONORDER_LONG_I2); -fornext_entrylabel2678: -*_FUNC_FIXOPERATIONORDER_LONG_I2=fornext_value2678; -if (fornext_step_negative2678){ -if (fornext_value2678fornext_finalvalue2678) break; -} -fornext_error2678:; -if(qbevent){evnt(18636);if(r)goto S_21586;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18637);}while(r); -S_21588:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 40 ))||new_error){ -if(qbevent){evnt(18638);if(r)goto S_21588;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2+ 1 ; -if(!qbevent)break;evnt(18638);}while(r); -} -S_21591:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 41 ))||new_error){ -if(qbevent){evnt(18639);if(r)goto S_21591;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2- 1 ; -if(!qbevent)break;evnt(18639);}while(r); -} -S_21594:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B2== 0 ))||new_error){ -if(qbevent){evnt(18640);if(r)goto S_21594;} -do{ -goto fornext_exit_2677; -if(!qbevent)break;evnt(18640);}while(r); } do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_set(_FUNC_FINDID_STRING_INSF,qbs_add(__STRING_SUBFUNC,func_space( 256 -__STRING_SUBFUNC->len))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18641);}while(r); -fornext_continue_2677:; -} -fornext_exit_2677:; do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I2; -if(!qbevent)break;evnt(18645);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len(")",1))); +qbs_set(_FUNC_FINDID_STRING_SECONDARG,qbs_add(_FUNC_FINDID_STRING_SECONDARG,func_space( 256 -_FUNC_FINDID_STRING_SECONDARG->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18647);}while(r); -S_21601:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(18650);if(r)goto S_21601;} -S_21602:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18651);if(r)goto S_21602;} +if(!qbevent)break;evnt(18642);}while(r); +S_21627:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FINDID_STRING_SC->len))||new_error){ +if(qbevent){evnt(18643);if(r)goto S_21627;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2679=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +*_FUNC_FINDID_LONG_SCPASSED= 1 ; +if(!qbevent)break;evnt(18643);}while(r); +do{ +qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,func_space( 8 -_FUNC_FINDID_STRING_SC->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18651);}while(r); +if(!qbevent)break;evnt(18643);}while(r); }else{ do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; -if(!qbevent)break;evnt(18651);}while(r); +*_FUNC_FINDID_LONG_SCPASSED= 0 ; +if(!qbevent)break;evnt(18643);}while(r); } -S_21607:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 46 ))||new_error){ -if(qbevent){evnt(18652);if(r)goto S_21607;} +S_21633:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FINDID_STRING_N->len< 256 )))||new_error){ +if(qbevent){evnt(18645);if(r)goto S_21633;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(18652);}while(r); +qbs_set(_FUNC_FINDID_STRING_N,qbs_add(_FUNC_FINDID_STRING_N,func_space( 256 -_FUNC_FINDID_STRING_N->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18645);}while(r); +} do{ -goto LABEL_FOOUDT; -if(!qbevent)break;evnt(18652);}while(r); +qbs_set(_FUNC_FINDID_STRING_N,qbs_rtrim(_FUNC_FINDID_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18654);}while(r); +S_21637:; +if ((*_FUNC_FINDID_LONG_FINDANOTHER)||new_error){ +if(qbevent){evnt(18655);if(r)goto S_21637;} +LABEL_HASHRETRY:; +if(qbevent){evnt(18656);r=0;} +do{ +*_FUNC_FINDID_LONG_Z=FUNC_HASHFINDCONT(_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); +if(!qbevent)break;evnt(18657);}while(r); +}else{ +do{ +*_FUNC_FINDID_LONG_Z=FUNC_HASHFIND(_FUNC_FINDID_STRING_N,&(pass2770= 1 ),_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18659);}while(r); +} +do{ +*__LONG_FINDIDINTERNAL=*_FUNC_FINDID_LONG_Z; +if(!qbevent)break;evnt(18661);}while(r); +S_21643:; +if ((-(*_FUNC_FINDID_LONG_Z== 0 ))||new_error){ +if(qbevent){evnt(18662);if(r)goto S_21643;} +do{ +goto LABEL_NOID; +if(!qbevent)break;evnt(18662);}while(r); +} +do{ +*_FUNC_FINDID_LONG_FINDID=*_FUNC_FINDID_LONG_Z; +if(!qbevent)break;evnt(18663);}while(r); +S_21647:; +if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 0 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))== 0 )))||new_error){ +if(qbevent){evnt(18677);if(r)goto S_21647;} +S_21648:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1),_FUNC_FINDID_STRING_INSF)))||new_error){ +if(qbevent){evnt(18678);if(r)goto S_21648;} +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18678);}while(r); +} +} +S_21652:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))||new_error){ +if(qbevent){evnt(18682);if(r)goto S_21652;} +S_21653:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1))!= 32 )))||new_error){ +if(qbevent){evnt(18683);if(r)goto S_21653;} +S_21654:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1))))))||new_error){ +if(qbevent){evnt(18684);if(r)goto S_21654;} +S_21655:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1), 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_left(_FUNC_FINDID_STRING_SECONDARG, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1)), 2 ,NULL,0)))))){ +if(qbevent){evnt(18685);if(r)goto S_21655;} +}else{ +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18687);}while(r); +} +} +} +S_21660:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1))!= 32 )))||new_error){ +if(qbevent){evnt(18690);if(r)goto S_21660;} +S_21661:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1))))))||new_error){ +if(qbevent){evnt(18691);if(r)goto S_21661;} +S_21662:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1), 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_left(_FUNC_FINDID_STRING_SECONDARG, 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1)), 2 ,NULL,0)))))){ +if(qbevent){evnt(18692);if(r)goto S_21662;} +}else{ +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18694);}while(r); +} +} } } do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18655);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(18656);}while(r); -} -} -S_21616:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ -if(qbevent){evnt(18660);if(r)goto S_21616;} -S_21617:; -if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ -if(qbevent){evnt(18661);if(r)goto S_21617;} -S_21618:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(18663);if(r)goto S_21618;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18668);}while(r); -S_21620:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18669);if(r)goto S_21620;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18669);}while(r); -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2680= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18670);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2681=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18671);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18672);}while(r); -S_21626:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ -if(qbevent){evnt(18676);if(r)goto S_21626;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18676);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(18676);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(18677);}while(r); -LABEL_FOOUDT:; -if(qbevent){evnt(18679);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18681);}while(r); -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_T& 511 )-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(18682);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; -if(!qbevent)break;evnt(18683);}while(r); -S_21634:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18688);if(r)goto S_21634;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected .element",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18688);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18688);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18689);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18690);}while(r); -S_21640:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18691);if(r)goto S_21640;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18691);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,qbs_add(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),func_space( 256 -_FUNC_FIXOPERATIONORDER_STRING_F2->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18692);}while(r); -LABEL_FOOUDTNEXTE:; -if(qbevent){evnt(18695);r=0;} -S_21644:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1),_FUNC_FIXOPERATIONORDER_STRING_U)))||new_error){ -if(qbevent){evnt(18696);if(r)goto S_21644;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +*_FUNC_FINDID_LONG_IMUSTHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18701);}while(r); do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2683= 0 )); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_FINDID_LONG_AMUSTHAVE=*_FUNC_FINDID_LONG_IMUSTHAVE& 255 ; if(!qbevent)break;evnt(18702);}while(r); +S_21670:; +if ((-(*_FUNC_FINDID_LONG_AMUSTHAVE!= 32 ))||new_error){ +if(qbevent){evnt(18703);if(r)goto S_21670;} +S_21671:; +if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ +if(qbevent){evnt(18704);if(r)goto S_21671;} +S_21672:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))))||new_error){ +if(qbevent){evnt(18705);if(r)goto S_21672;} do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2684=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18703);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18704);}while(r); -S_21649:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18706);if(r)goto S_21649;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18706);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(18706);}while(r); +goto LABEL_FINDIDOK; +if(!qbevent)break;evnt(18705);}while(r); +} } do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2685=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18707);}while(r); -S_21654:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ -if(qbevent){evnt(18708);if(r)goto S_21654;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18708);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(18708);}while(r); +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18716);}while(r); } +S_21678:; +if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ +if(qbevent){evnt(18722);if(r)goto S_21678;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; -if(!qbevent)break;evnt(18710);}while(r); -S_21659:; -if ((-((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(18711);if(r)goto S_21659;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23)); +*_FUNC_FINDID_LONG_IMAYHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18711);}while(r); +if(!qbevent)break;evnt(18723);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18711);}while(r); -} -do{ -goto LABEL_FOOUDT; -if(!qbevent)break;evnt(18712);}while(r); -} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(18717);}while(r); -S_21666:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(18718);if(r)goto S_21666;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18718);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18718);}while(r); -} -do{ -goto LABEL_FOOUDTNEXTE; -if(!qbevent)break;evnt(18719);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_FINDID_LONG_AMAYHAVE=*_FUNC_FINDID_LONG_IMAYHAVE& 255 ; if(!qbevent)break;evnt(18724);}while(r); +S_21681:; +if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 32 ))||new_error){ +if(qbevent){evnt(18725);if(r)goto S_21681;} do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); -qbs_cleanup(qbs_tmp_base,0); +goto LABEL_FINDIDNOMATCH; if(!qbevent)break;evnt(18725);}while(r); -S_21674:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18726);if(r)goto S_21674;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18726);}while(r); } +S_21684:; +if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 36 ))||new_error){ +if(qbevent){evnt(18728);if(r)goto S_21684;} +S_21685:; +if ((-(*_FUNC_FINDID_LONG_IMAYHAVE!= 8228 ))||new_error){ +if(qbevent){evnt(18729);if(r)goto S_21685;} +S_21686:; +if ((qbs_cleanup(qbs_tmp_base,-(string2i(_FUNC_FINDID_STRING_SC)== 8228 )))||new_error){ +if(qbevent){evnt(18731);if(r)goto S_21686;} do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18727);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2686= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18729);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2687=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18730);}while(r); -do{ -goto LABEL_COULDNOTCLASSIFY; +goto LABEL_FINDIDOK; if(!qbevent)break;evnt(18731);}while(r); } } } -S_21684:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18737);if(r)goto S_21684;} +S_21691:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1))))||new_error){ +if(qbevent){evnt(18735);if(r)goto S_21691;} do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18737);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18737);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18737);}while(r); +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18735);}while(r); } -S_21690:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18738);if(r)goto S_21690;} +} +LABEL_FINDIDOK:; +if(qbevent){evnt(18739);r=0;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18738);}while(r); -} -dl_continue_2673:; -} -dl_exit_2673:; -fornext_continue_2670:; -} -fornext_exit_2670:; -LABEL_COULDNOTCLASSIFY:; -if(qbevent){evnt(18741);r=0;} +memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0), 256); +memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256), 256); +memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512), 4); +memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516), 2); +memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518), 2); +memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520), 8); +memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528), 8); +memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536), 4); +memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540), 4); +memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544), 2); +memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546), 2); +memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548), 2); +memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550), 256); +memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806), 2); +memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808), 1); +memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809), 2); +memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811), 2); +memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613), 256); +memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861)); +if(!qbevent)break;evnt(18741);}while(r); do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +*_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(18743);}while(r); +do{ +qbs_set(_FUNC_FINDID_STRING_TEMP,FUNC_REFER(FUNC_STR2(_FUNC_FINDID_LONG_I),_FUNC_FINDID_LONG_T,&(pass2771= 1 ))); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18744);}while(r); do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 0 ; +SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_FUNC_FINDID_STRING_TEMP,&(pass2772= 0 ),&(pass2773= 1 )); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18745);}while(r); -S_21697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(18746);if(r)goto S_21697;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +*__LONG_CURRENTID=*_FUNC_FINDID_LONG_I; if(!qbevent)break;evnt(18746);}while(r); -} -S_21700:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_UNSIGNED",9))))||new_error){ -if(qbevent){evnt(18747);if(r)goto S_21700;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +goto exit_subfunc; if(!qbevent)break;evnt(18747);}while(r); -} -S_21703:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BIT",4))))||new_error){ -if(qbevent){evnt(18748);if(r)goto S_21703;} +LABEL_FINDIDNOMATCH:; +if(qbevent){evnt(18750);r=0;} +S_21701:; +if ((-(*_FUNC_FINDID_LONG_Z== 2 ))||new_error){ +if(qbevent){evnt(18752);if(r)goto S_21701;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18748);}while(r); -} -S_21706:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BYTE",5))))||new_error){ -if(qbevent){evnt(18749);if(r)goto S_21706;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18749);}while(r); -} -S_21709:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER",7))))||new_error){ -if(qbevent){evnt(18750);if(r)goto S_21709;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18750);}while(r); -} -S_21712:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("LONG",4))))||new_error){ -if(qbevent){evnt(18751);if(r)goto S_21712;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18751);}while(r); -} -S_21715:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_INTEGER64",10))))||new_error){ -if(qbevent){evnt(18752);if(r)goto S_21715;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +goto LABEL_HASHRETRY; if(!qbevent)break;evnt(18752);}while(r); } -S_21718:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(18753);if(r)goto S_21718;} +LABEL_NOID:; +if(qbevent){evnt(18755);r=0;} do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18753);}while(r); -} -S_21721:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(18754);if(r)goto S_21721;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18754);}while(r); -} -S_21724:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_FLOAT",6))))||new_error){ -if(qbevent){evnt(18755);if(r)goto S_21724;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(18755);}while(r); -} -S_21727:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_OFFSET",7))))||new_error){ -if(qbevent){evnt(18756);if(r)goto S_21727;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +*_FUNC_FINDID_LONG_FINDID= 0 ; if(!qbevent)break;evnt(18756);}while(r); -} -S_21730:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE== 1 ))||new_error){ -if(qbevent){evnt(18757);if(r)goto S_21730;} do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18758);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2688= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18759);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2689=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18760);}while(r); -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18761);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(18764);}while(r); -} -LABEL_CLASSDONE:; -if(qbevent){evnt(18767);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18768);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18770);}while(r); -LABEL_CLASSDONE_SPECIAL:; -if(qbevent){evnt(18771);r=0;} -fornext_continue_2632:; -} -fornext_exit_2632:; -S_21742:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F->len))||new_error){ -if(qbevent){evnt(18773);if(r)goto S_21742;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18773);}while(r); -} -S_21745:; -if (( 0 )||new_error){ -if(qbevent){evnt(18775);if(r)goto S_21745;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2692; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification:",33),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 1 , 0 ); -if (new_error) goto skip2692; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1 , 0 , 1 ); -if (new_error) goto skip2692; -skip2692: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18775);}while(r); -} -S_21748:; -if (( 0 )||new_error){ -if(qbevent){evnt(18776);if(r)goto S_21748;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2693; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification(layout):",41),_FUNC_FIXOPERATIONORDER_STRING_F), 0 , 1 , 0 ); -if (new_error) goto skip2693; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1 , 0 , 1 ); -if (new_error) goto skip2693; -skip2693: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18776);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18783);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18784);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2= 0 ; -if(!qbevent)break;evnt(18785);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_P1= 0 ; -if(!qbevent)break;evnt(18786);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18787);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18788);}while(r); -S_21757:; -fornext_value2695= 1 ; -fornext_finalvalue2695=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2695= 1 ; -if (fornext_step2695<0) fornext_step_negative2695=1; else fornext_step_negative2695=0; -if (new_error) goto fornext_error2695; -goto fornext_entrylabel2695; -while(1){ -fornext_value2695=fornext_step2695+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2695: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2695; -if (fornext_step_negative2695){ -if (fornext_value2695fornext_finalvalue2695) break; -} -fornext_error2695:; -if(qbevent){evnt(18789);if(r)goto S_21757;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 0 ; -if(!qbevent)break;evnt(18791);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18793);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18795);}while(r); -S_21761:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18799);if(r)goto S_21761;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18800);}while(r); -S_21763:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ -if(qbevent){evnt(18802);if(r)goto S_21763;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(18807);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("(",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18808);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 1 ; -if(!qbevent)break;evnt(18812);}while(r); -do{ -goto LABEL_FOOPASS; -if(!qbevent)break;evnt(18814);}while(r); -} -S_21770:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ -if(qbevent){evnt(18818);if(r)goto S_21770;} -S_21771:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ -if(qbevent){evnt(18819);if(r)goto S_21771;} -do{ -goto LABEL_FOOPASSIT; -if(!qbevent)break;evnt(18820);}while(r); -} -} -S_21775:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18824);if(r)goto S_21775;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18825);}while(r); -S_21777:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18827);if(r)goto S_21777;} -LABEL_FOOPASSIT:; -if(qbevent){evnt(18828);r=0;} -S_21778:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_P1!=*_FUNC_FIXOPERATIONORDER_LONG_I))||new_error){ -if(qbevent){evnt(18829);if(r)goto S_21778;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FOO,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_P1,&(pass2696=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18830);}while(r); -S_21780:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18831);if(r)goto S_21780;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18831);}while(r); -} -S_21783:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FOO->len))||new_error){ -if(qbevent){evnt(18832);if(r)goto S_21783;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_FOO),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18833);}while(r); -S_21785:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))||new_error){ -if(qbevent){evnt(18834);if(r)goto S_21785;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18834);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18834);}while(r); -} -} -} -S_21792:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ -if(qbevent){evnt(18837);if(r)goto S_21792;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18837);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18837);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18837);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(18838);}while(r); -} -do{ -goto LABEL_FOOPASS; -if(!qbevent)break;evnt(18841);}while(r); -} -S_21802:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18847);if(r)goto S_21802;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18847);}while(r); -} -LABEL_FOOPASS:; -if(qbevent){evnt(18850);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENTSPECIAL(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18852);}while(r); -S_21806:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18853);if(r)goto S_21806;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18853);}while(r); -} -S_21809:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F2->len))||new_error){ -if(qbevent){evnt(18854);if(r)goto S_21809;} -S_21810:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(18857);if(r)goto S_21810;} -S_21811:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_I> 1 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N)))||new_error){ -if(qbevent){evnt(18858);if(r)goto S_21811;} -S_21812:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ -if(qbevent){evnt(18859);if(r)goto S_21812;} -do{ -sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); -if(!qbevent)break;evnt(18859);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(".",1)),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18860);}while(r); -do{ -goto LABEL_FOOLOOPNXT; -if(!qbevent)break;evnt(18861);}while(r); -} -} -S_21819:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET)||new_error){ -if(qbevent){evnt(18866);if(r)goto S_21819;} -S_21820:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(18869);if(r)goto S_21820;} -S_21821:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2701=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))== 0 )))||new_error){ -if(qbevent){evnt(18870);if(r)goto S_21821;} -do{ -sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); -if(!qbevent)break;evnt(18871);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18874);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18876);}while(r); -} -} -LABEL_FOOLOOPNXT:; -if(qbevent){evnt(18881);r=0;} -fornext_continue_2694:; -} -fornext_exit_2694:; -S_21831:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_AA->len))||new_error){ -if(qbevent){evnt(18885);if(r)goto S_21831;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_AA->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18885);}while(r); -} -S_21834:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ -if(qbevent){evnt(18886);if(r)goto S_21834;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18886);}while(r); -} -S_21837:; -if (( 0 )||new_error){ -if(qbevent){evnt(18888);if(r)goto S_21837;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2707; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:return:",25),_FUNC_FIXOPERATIONORDER_STRING_AA), 0 , 0 , 1 ); -if (new_error) goto skip2707; -skip2707: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18888);}while(r); -} -S_21840:; -if (( 0 )||new_error){ -if(qbevent){evnt(18889);if(r)goto S_21840;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2708; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:layout:",25),_FUNC_FIXOPERATIONORDER_STRING_FF), 0 , 0 , 1 ); -if (new_error) goto skip2708; -skip2708: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18889);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_FUNC_FIXOPERATIONORDER_STRING_FF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18890);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER,_FUNC_FIXOPERATIONORDER_STRING_AA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18891);}while(r); -do{ -*__LONG_FOOINDWEL=*__LONG_FOOINDWEL- 1 ; -if(!qbevent)break;evnt(18893);}while(r); +*__LONG_CURRENTID= -1 ; +if(!qbevent)break;evnt(18757);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free19.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER);return _FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER; +return *_FUNC_FINDID_LONG_FINDID; } -qbs* FUNC_GETELEMENTSPECIAL(qbs*_FUNC_GETELEMENTSPECIAL_STRING_SAVEA,int32*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM){ +int32 FUNC_FINDARRAY(qbs*_FUNC_FINDARRAY_STRING_SECURE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -74891,99 +75688,486 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); +*_FUNC_FINDARRAY_LONG_FINDARRAY= -1 ; +if(!qbevent)break;evnt(18761);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SECURE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18900);}while(r); -S_21847:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENTSPECIAL_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(18901);if(r)goto S_21847;} +if(!qbevent)break;evnt(18762);}while(r); +S_21708:; +if (( 0 )||new_error){ +if(qbevent){evnt(18763);if(r)goto S_21708;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2775; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("func findarray:in:",18),_FUNC_FINDARRAY_STRING_N), 0 , 0 , 1 ); +if (new_error) goto skip2775; +skip2775: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18763);}while(r); +} +S_21711:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_FINDARRAY_STRING_N))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ +if(qbevent){evnt(18764);if(r)goto S_21711;} +do{ +*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; +if(!qbevent)break;evnt(18764);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(18901);}while(r); +if(!qbevent)break;evnt(18764);}while(r); } do{ -*_FUNC_GETELEMENTSPECIAL_LONG_N= 1 ; -if(!qbevent)break;evnt(18903);}while(r); -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_P= 1 ; -if(!qbevent)break;evnt(18904);}while(r); -LABEL_GETELEMENTSPECIALNEXT:; -if(qbevent){evnt(18905);r=0;} -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,1); +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("~",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18906);}while(r); +if(!qbevent)break;evnt(18767);}while(r); +S_21716:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18767);if(r)goto S_21716;} do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I2=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),1); +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18909);}while(r); -S_21854:; -if (((-(*_FUNC_GETELEMENTSPECIAL_LONG_I2<*_FUNC_GETELEMENTSPECIAL_LONG_I))&(-(*_FUNC_GETELEMENTSPECIAL_LONG_I2!= 0 )))||new_error){ -if(qbevent){evnt(18910);if(r)goto S_21854;} +if(!qbevent)break;evnt(18767);}while(r); do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I3=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I2+ 1 ,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),1); +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18911);}while(r); -S_21856:; -if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I3== 0 ))||new_error){ -if(qbevent){evnt(18911);if(r)goto S_21856;} +if(!qbevent)break;evnt(18767);}while(r); do{ -SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 ))); +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18767);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("`",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18911);}while(r); +if(!qbevent)break;evnt(18768);}while(r); +S_21722:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18768);if(r)goto S_21722;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18768);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18768);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18768);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18769);}while(r); +S_21728:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18769);if(r)goto S_21728;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18769);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18769);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18769);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18770);}while(r); +S_21734:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18770);if(r)goto S_21734;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18770);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18770);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18770);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18771);}while(r); +S_21740:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18771);if(r)goto S_21740;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18771);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18771);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18771);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18772);}while(r); +S_21746:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18772);if(r)goto S_21746;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18772);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18772);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18772);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18773);}while(r); +S_21752:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18773);if(r)goto S_21752;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18773);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18773);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18773);}while(r); +} +LABEL_GOTSC2:; +if(qbevent){evnt(18774);r=0;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18775);}while(r); +S_21758:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDARRAY_STRING_SC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(18777);if(r)goto S_21758;} +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18780);}while(r); +S_21760:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18780);if(r)goto S_21760;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(18911);}while(r); +if(!qbevent)break;evnt(18780);}while(r); } +S_21763:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18781);if(r)goto S_21763;} +S_21764:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18782);if(r)goto S_21764;} do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I3,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18912);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(18783);}while(r); } -S_21862:; -if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM==*_FUNC_GETELEMENTSPECIAL_LONG_N))||new_error){ -if(qbevent){evnt(18915);if(r)goto S_21862;} -S_21863:; -if ((*_FUNC_GETELEMENTSPECIAL_LONG_I)||new_error){ -if(qbevent){evnt(18916);if(r)goto S_21863;} +S_21767:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18785);if(r)goto S_21767;} do{ -qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,func_mid(_FUNC_GETELEMENTSPECIAL_STRING_A,*_FUNC_GETELEMENTSPECIAL_LONG_P,*_FUNC_GETELEMENTSPECIAL_LONG_I-*_FUNC_GETELEMENTSPECIAL_LONG_P,1)); +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18785);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18917);}while(r); +if(!qbevent)break;evnt(18785);}while(r); }else{ do{ -qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,qbs_right(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_A->len-*_FUNC_GETELEMENTSPECIAL_LONG_P+ 1 )); +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18785);}while(r); +} +S_21773:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18786);if(r)goto S_21773;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18786);}while(r); +} +dl_continue_2783:; +} +dl_exit_2783:; +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18919);}while(r); +if(!qbevent)break;evnt(18793);}while(r); +S_21779:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18793);if(r)goto S_21779;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18793);}while(r); +} +S_21782:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18794);if(r)goto S_21782;} +S_21783:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18795);if(r)goto S_21783;} +S_21784:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(18796);if(r)goto S_21784;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18796);}while(r); +} +S_21787:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(18797);if(r)goto S_21787;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18797);}while(r); +} +} +S_21791:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18799);if(r)goto S_21791;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18799);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18799);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18799);}while(r); +} +S_21797:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18800);if(r)goto S_21797;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18800);}while(r); +} +dl_continue_2784:; +} +dl_exit_2784:; +do{ +*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18804);}while(r); +S_21802:; +if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(18804);if(r)goto S_21802;} +do{ +*_FUNC_FINDARRAY_LONG_A= 91 ; +if(!qbevent)break;evnt(18804);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; +if(!qbevent)break;evnt(18805);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18806);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18807);}while(r); +S_21808:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18807);if(r)goto S_21808;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18807);}while(r); +} +S_21811:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18808);if(r)goto S_21811;} +S_21812:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18809);if(r)goto S_21812;} +S_21813:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(18810);if(r)goto S_21813;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18810);}while(r); +} +S_21816:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(18811);if(r)goto S_21816;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18811);}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(18921);}while(r); +if(!qbevent)break;evnt(18812);}while(r); +} +S_21821:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18814);if(r)goto S_21821;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18814);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18814);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18814);}while(r); +} +S_21827:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18815);if(r)goto S_21827;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18815);}while(r); +} +dl_continue_2785:; +} +dl_exit_2785:; +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,_FUNC_FINDARRAY_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18819);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18820);}while(r); +S_21833:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18820);if(r)goto S_21833;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18820);}while(r); +} +S_21836:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18821);if(r)goto S_21836;} +S_21837:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18822);if(r)goto S_21837;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18823);}while(r); +} +S_21840:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18825);if(r)goto S_21840;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18825);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18825);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18825);}while(r); +} +S_21846:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18826);if(r)goto S_21846;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18826);}while(r); +} +dl_continue_2786:; +} +dl_exit_2786:; +do{ +*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18830);}while(r); +S_21851:; +if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(18830);if(r)goto S_21851;} +do{ +*_FUNC_FINDARRAY_LONG_A= 91 ; +if(!qbevent)break;evnt(18830);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; +if(!qbevent)break;evnt(18831);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18832);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18833);}while(r); +S_21857:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18833);if(r)goto S_21857;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18833);}while(r); +} +S_21860:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18834);if(r)goto S_21860;} +S_21861:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18835);if(r)goto S_21861;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18836);}while(r); +} +S_21864:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18838);if(r)goto S_21864;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18838);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18838);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18838);}while(r); } S_21870:; -if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(18924);if(r)goto S_21870;} +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18839);if(r)goto S_21870;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(18924);}while(r); +if(!qbevent)break;evnt(18839);}while(r); +} +dl_continue_2787:; +} +dl_exit_2787:; } do{ -*_FUNC_GETELEMENTSPECIAL_LONG_N=*_FUNC_GETELEMENTSPECIAL_LONG_N+ 1 ; -if(!qbevent)break;evnt(18925);}while(r); -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_P=*_FUNC_GETELEMENTSPECIAL_LONG_I+ 1 ; -if(!qbevent)break;evnt(18926);}while(r); -do{ -goto LABEL_GETELEMENTSPECIALNEXT; -if(!qbevent)break;evnt(18927);}while(r); +*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; +if(!qbevent)break;evnt(18843);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free20.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL);return _FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL; +return *_FUNC_FINDARRAY_LONG_FINDARRAY; } -qbs* FUNC_GETELEMENT(qbs*_FUNC_GETELEMENT_STRING_A,int32*_FUNC_GETELEMENT_LONG_ELENUM){ +qbs* FUNC_FIXOPERATIONORDER(qbs*_FUNC_FIXOPERATIONORDER_STRING_SAVEA){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -74996,69 +76180,2982 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_21876:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(18933);if(r)goto S_21876;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18933);}while(r); +if(!qbevent)break;evnt(18851);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18853);}while(r); +S_21878:; +if (( 0 )||new_error){ +if(qbevent){evnt(18854);if(r)goto S_21878;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2789; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:in:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2789; +skip2789: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18854);}while(r); } do{ -*_FUNC_GETELEMENT_LONG_N= 1 ; +*__LONG_FOOINDWEL=*__LONG_FOOINDWEL+ 1 ; +if(!qbevent)break;evnt(18856);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18858);}while(r); +S_21883:; +if ((-(*__LONG_FOOINDWEL== 1 ))||new_error){ +if(qbevent){evnt(18860);if(r)goto S_21883;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 0 ; +if(!qbevent)break;evnt(18861);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18864);}while(r); +S_21886:; +fornext_value2791= 1 ; +fornext_finalvalue2791=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +fornext_step2791= 1 ; +if (fornext_step2791<0) fornext_step_negative2791=1; else fornext_step_negative2791=0; +if (new_error) goto fornext_error2791; +goto fornext_entrylabel2791; +while(1){ +fornext_value2791=fornext_step2791+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2791: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2791; +if (fornext_step_negative2791){ +if (fornext_value2791fornext_finalvalue2791) break; +} +fornext_error2791:; +if(qbevent){evnt(18865);if(r)goto S_21886;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18866);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,&(pass2792=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18867);}while(r); +S_21889:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("AND",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("AND",3)))))||new_error){ +if(qbevent){evnt(18868);if(r)goto S_21889;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: AND AND",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18868);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18868);}while(r); +} +S_21893:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("OR",2)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("OR",2)))))||new_error){ +if(qbevent){evnt(18869);if(r)goto S_21893;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: OR OR",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18869);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18869);}while(r); +} +S_21897:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("XOR",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("XOR",3)))))||new_error){ +if(qbevent){evnt(18870);if(r)goto S_21897;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: XOR XOR",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18870);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18870);}while(r); +} +S_21901:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("IMP",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("IMP",3)))))||new_error){ +if(qbevent){evnt(18871);if(r)goto S_21901;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: IMP IMP",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18871);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18871);}while(r); +} +S_21905:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("EQV",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("EQV",3)))))||new_error){ +if(qbevent){evnt(18872);if(r)goto S_21905;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: EQV EQV",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18872);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18872);}while(r); +} +fornext_continue_2790:; +} +fornext_exit_2790:; +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(18876);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18877);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B1,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("(",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18878);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B2,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18879);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I= 1 ; +if(!qbevent)break;evnt(18880);}while(r); +LABEL_FINDMMB:; +if(qbevent){evnt(18881);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I1=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18882);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B2,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18883);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I1; +if(!qbevent)break;evnt(18884);}while(r); +S_21918:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I2)||new_error){ +if(qbevent){evnt(18885);if(r)goto S_21918;} +S_21919:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I1== 0 ))||new_error){ +if(qbevent){evnt(18886);if(r)goto S_21919;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; +if(!qbevent)break;evnt(18887);}while(r); +}else{ +S_21922:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I2<*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ +if(qbevent){evnt(18889);if(r)goto S_21922;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; +if(!qbevent)break;evnt(18889);}while(r); +} +} +} +S_21927:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I3)||new_error){ +if(qbevent){evnt(18892);if(r)goto S_21927;} +S_21928:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ +if(qbevent){evnt(18893);if(r)goto S_21928;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(18893);}while(r); +} +S_21931:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I2))||new_error){ +if(qbevent){evnt(18894);if(r)goto S_21931;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(18894);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I3+ 2 ; +if(!qbevent)break;evnt(18895);}while(r); +S_21935:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B< 0 ))||new_error){ +if(qbevent){evnt(18896);if(r)goto S_21935;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Missing (",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18896);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18896);}while(r); +} +do{ +goto LABEL_FINDMMB; +if(!qbevent)break;evnt(18897);}while(r); +} +S_21941:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B> 0 ))||new_error){ +if(qbevent){evnt(18899);if(r)goto S_21941;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18899);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18899);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18903);}while(r); +LABEL_RULE1:; +if(qbevent){evnt(18906);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("+",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18907);}while(r); +S_21947:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ +if(qbevent){evnt(18908);if(r)goto S_21947;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18909);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18910);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(18911);}while(r); +S_21951:; +if (( 0 )||new_error){ +if(qbevent){evnt(18912);if(r)goto S_21951;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2795; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2795; +skip2795: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18912);}while(r); +} +do{ +goto LABEL_RULE1; +if(!qbevent)break;evnt(18913);}while(r); +} +LABEL_RULE2:; +if(qbevent){evnt(18917);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18918);}while(r); +S_21957:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ +if(qbevent){evnt(18919);if(r)goto S_21957;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18920);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18921);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(18922);}while(r); +S_21961:; +if (( 0 )||new_error){ +if(qbevent){evnt(18923);if(r)goto S_21961;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2798; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2798; +skip2798: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18923);}while(r); +} +do{ +goto LABEL_RULE2; +if(!qbevent)break;evnt(18924);}while(r); +} +LABEL_RULE3:; +if(qbevent){evnt(18928);r=0;} +S_21966:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("-",1)),__STRING1_SP),0)))||new_error){ +if(qbevent){evnt(18929);if(r)goto S_21966;} +S_21967:; +fornext_value2800= 1 ; +fornext_finalvalue2800=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; +fornext_step2800= 1 ; +if (fornext_step2800<0) fornext_step_negative2800=1; else fornext_step_negative2800=0; +if (new_error) goto fornext_error2800; +goto fornext_entrylabel2800; +while(1){ +fornext_value2800=fornext_step2800+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2800: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2800; +if (fornext_step_negative2800){ +if (fornext_value2800fornext_finalvalue2800) break; +} +fornext_error2800:; +if(qbevent){evnt(18930);if(r)goto S_21967;} +S_21968:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))))||new_error){ +if(qbevent){evnt(18931);if(r)goto S_21968;} +S_21969:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2801=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(18932);if(r)goto S_21969;} +S_21970:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2802=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 )),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(18933);if(r)goto S_21970;} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2803=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2804=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),&(pass2805= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18934);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(18935);}while(r); do{ -*_FUNC_GETELEMENT_LONG_P= 1 ; +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; if(!qbevent)break;evnt(18936);}while(r); -LABEL_GETELEMENTNEXT:; -if(qbevent){evnt(18937);r=0;} +S_21974:; +if (( 0 )||new_error){ +if(qbevent){evnt(18937);if(r)goto S_21974;} do{ -*_FUNC_GETELEMENT_LONG_I=func_instr(*_FUNC_GETELEMENT_LONG_P,_FUNC_GETELEMENT_STRING_A,__STRING1_SP,1); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2806; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2806; +skip2806: qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18937);}while(r); +} +do{ +goto LABEL_RULE3; if(!qbevent)break;evnt(18938);}while(r); -S_21882:; -if ((-(*_FUNC_GETELEMENT_LONG_ELENUM==*_FUNC_GETELEMENT_LONG_N))||new_error){ -if(qbevent){evnt(18940);if(r)goto S_21882;} -S_21883:; -if ((*_FUNC_GETELEMENT_LONG_I)||new_error){ -if(qbevent){evnt(18941);if(r)goto S_21883;} +} +} +} +fornext_continue_2799:; +} +fornext_exit_2799:; +} +S_21983:; +fornext_value2808= 1 ; +fornext_finalvalue2808=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +fornext_step2808= 1 ; +if (fornext_step2808<0) fornext_step_negative2808=1; else fornext_step_negative2808=0; +if (new_error) goto fornext_error2808; +goto fornext_entrylabel2808; +while(1){ +fornext_value2808=fornext_step2808+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2808: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2808; +if (fornext_step_negative2808){ +if (fornext_value2808fornext_finalvalue2808) break; +} +fornext_error2808:; +if(qbevent){evnt(18962);if(r)goto S_21983;} +S_21984:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(18963);if(r)goto S_21984;} do{ -qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,func_mid(_FUNC_GETELEMENT_STRING_A,*_FUNC_GETELEMENT_LONG_P,*_FUNC_GETELEMENT_LONG_I-*_FUNC_GETELEMENT_LONG_P,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18942);}while(r); +goto fornext_exit_2807; +if(!qbevent)break;evnt(18963);}while(r); +} +S_21987:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))== 45 )))||new_error){ +if(qbevent){evnt(18965);if(r)goto S_21987;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 0 ; +if(!qbevent)break;evnt(18967);}while(r); +S_21989:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(18968);if(r)goto S_21989;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; +if(!qbevent)break;evnt(18969);}while(r); }else{ do{ -qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,qbs_right(_FUNC_GETELEMENT_STRING_A,_FUNC_GETELEMENT_STRING_A->len-*_FUNC_GETELEMENT_LONG_P+ 1 )); +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2809=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18944);}while(r); +if(!qbevent)break;evnt(18971);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18972);}while(r); +S_21994:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 )))||new_error){ +if(qbevent){evnt(18973);if(r)goto S_21994;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; +if(!qbevent)break;evnt(18974);}while(r); +}else{ +S_21997:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ +if(qbevent){evnt(18976);if(r)goto S_21997;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; +if(!qbevent)break;evnt(18976);}while(r); } +} +} +S_22002:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEG== 1 ))||new_error){ +if(qbevent){evnt(18979);if(r)goto S_22002;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2810=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18981);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18982);}while(r); +S_22005:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(18983);if(r)goto S_22005;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2= 0 ; +if(!qbevent)break;evnt(18984);}while(r); +S_22007:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(18984);if(r)goto S_22007;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2811=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18984);}while(r); +} +S_22010:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2!= 94 ))||new_error){ +if(qbevent){evnt(18985);if(r)goto S_22010;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18987);}while(r); +S_22012:; +if ((qbs_cleanup(qbs_tmp_base,*_FUNC_FIXOPERATIONORDER_LONG_I2&(-(qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2+ 1 )!= 38 ))))||new_error){ +if(qbevent){evnt(18988);if(r)goto S_22012;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-",1),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2)),qbs_new_txt_len("-",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18989);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_new_txt_len("-",1),_FUNC_FIXOPERATIONORDER_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18991);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2813=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2814= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18993);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2815=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18994);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(18995);}while(r); +S_22020:; +if (( 0 )||new_error){ +if(qbevent){evnt(18996);if(r)goto S_22020;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2816; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2816; +skip2816: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18996);}while(r); +} +do{ +goto LABEL_NEGDONE; +if(!qbevent)break;evnt(18998);}while(r); +} +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2817= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19005);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2818=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),func_chr( 241 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19006);}while(r); +S_22028:; +if (( 0 )||new_error){ +if(qbevent){evnt(19007);if(r)goto S_22028;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2819; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2819; +skip2819: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19007);}while(r); +} +} +} +LABEL_NEGDONE:; +if(qbevent){evnt(19011);r=0;} +fornext_continue_2807:; +} +fornext_exit_2807:; +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 0 ; +if(!qbevent)break;evnt(19021);}while(r); +LABEL_POWNEG:; +if(qbevent){evnt(19022);r=0;} +S_22036:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("^",1),__STRING1_SP),func_chr( 241 )),0)))||new_error){ +if(qbevent){evnt(19023);if(r)goto S_22036;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19024);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B1= 0 ; +if(!qbevent)break;evnt(19025);}while(r); +S_22039:; +fornext_value2821= 1 ; +fornext_finalvalue2821=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2821= 1 ; +if (fornext_step2821<0) fornext_step_negative2821=1; else fornext_step_negative2821=0; +if (new_error) goto fornext_error2821; +goto fornext_entrylabel2821; +while(1){ +fornext_value2821=fornext_step2821+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2821: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2821; +if (fornext_step_negative2821){ +if (fornext_value2821fornext_finalvalue2821) break; +} +fornext_error2821:; +if(qbevent){evnt(19026);if(r)goto S_22039;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19027);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19028);}while(r); +S_22042:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))||new_error){ +if(qbevent){evnt(19029);if(r)goto S_22042;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19029);}while(r); +} +S_22045:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ +if(qbevent){evnt(19030);if(r)goto S_22045;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19030);}while(r); +} +S_22048:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19031);if(r)goto S_22048;} +S_22049:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ +if(qbevent){evnt(19032);if(r)goto S_22049;} +S_22050:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ +if(qbevent){evnt(19033);if(r)goto S_22050;} +S_22051:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len("^",1)))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,func_chr( 241 )))))||new_error){ +if(qbevent){evnt(19034);if(r)goto S_22051;} +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2822=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19035);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19036);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19037);}while(r); +S_22055:; +if (( 0 )||new_error){ +if(qbevent){evnt(19038);if(r)goto S_22055;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2823; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2823; +skip2823: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19038);}while(r); +} +do{ +goto LABEL_POWNEG; +if(!qbevent)break;evnt(19039);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; +if(!qbevent)break;evnt(19040);}while(r); +} +} +} +S_22063:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 94 ))||new_error){ +if(qbevent){evnt(19044);if(r)goto S_22063;} +S_22064:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2824=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),func_chr( 241 ))))||new_error){ +if(qbevent){evnt(19045);if(r)goto S_22064;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B1=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19045);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19045);}while(r); +} +} +} +fornext_continue_2820:; +} +fornext_exit_2820:; +S_22071:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ +if(qbevent){evnt(19049);if(r)goto S_22071;} +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19050);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A,__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19051);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19052);}while(r); +S_22075:; +if (( 0 )||new_error){ +if(qbevent){evnt(19053);if(r)goto S_22075;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2825; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2825; +skip2825: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19053);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; +if(!qbevent)break;evnt(19054);}while(r); +do{ +goto LABEL_POWNEG; +if(!qbevent)break;evnt(19055);}while(r); +} +} +LABEL_NOT_RECHECK:; +if(qbevent){evnt(19062);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LCO= 255 ; +if(!qbevent)break;evnt(19063);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HCO= 0 ; +if(!qbevent)break;evnt(19064);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19065);}while(r); +S_22085:; +fornext_value2827= 1 ; +fornext_finalvalue2827=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2827= 1 ; +if (fornext_step2827<0) fornext_step_negative2827=1; else fornext_step_negative2827=0; +if (new_error) goto fornext_error2827; +goto fornext_entrylabel2827; +while(1){ +fornext_value2827=fornext_step2827+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2827: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2827; +if (fornext_step_negative2827){ +if (fornext_value2827fornext_finalvalue2827) break; +} +fornext_error2827:; +if(qbevent){evnt(19066);if(r)goto S_22085;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19067);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19068);}while(r); +S_22088:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19069);if(r)goto S_22088;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19069);}while(r); +} +S_22091:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19070);if(r)goto S_22091;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19070);}while(r); +} +S_22094:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19071);if(r)goto S_22094;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19072);}while(r); +S_22096:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_OP)||new_error){ +if(qbevent){evnt(19073);if(r)goto S_22096;} +S_22097:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP<*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ +if(qbevent){evnt(19074);if(r)goto S_22097;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; +if(!qbevent)break;evnt(19074);}while(r); +} +S_22100:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP>*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ +if(qbevent){evnt(19075);if(r)goto S_22100;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; +if(!qbevent)break;evnt(19075);}while(r); +} +} +} +fornext_continue_2826:; +} +fornext_exit_2826:; +S_22106:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HCO!= 0 ))||new_error){ +if(qbevent){evnt(19082);if(r)goto S_22106;} +S_22107:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO!=*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ +if(qbevent){evnt(19083);if(r)goto S_22107;} +S_22108:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO== 6 ))||new_error){ +if(qbevent){evnt(19086);if(r)goto S_22108;} +S_22109:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(19089);if(r)goto S_22109;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19089);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(18946);}while(r); +if(!qbevent)break;evnt(19089);}while(r); } -S_21890:; -if ((-(*_FUNC_GETELEMENT_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(18949);if(r)goto S_21890;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19090);}while(r); +S_22114:; +fornext_value2829= 1 ; +fornext_finalvalue2829=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2829= 1 ; +if (fornext_step2829<0) fornext_step_negative2829=1; else fornext_step_negative2829=0; +if (new_error) goto fornext_error2829; +goto fornext_entrylabel2829; +while(1){ +fornext_value2829=fornext_step2829+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2829: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2829; +if (fornext_step_negative2829){ +if (fornext_value2829fornext_finalvalue2829) break; +} +fornext_error2829:; +if(qbevent){evnt(19091);if(r)goto S_22114;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19092);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19093);}while(r); +S_22117:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19094);if(r)goto S_22117;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19094);}while(r); +} +S_22120:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19095);if(r)goto S_22120;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19095);}while(r); +} +S_22123:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19096);if(r)goto S_22123;} +S_22124:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2),qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(19097);if(r)goto S_22124;} +S_22125:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19098);if(r)goto S_22125;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19098);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(18949);}while(r); +if(!qbevent)break;evnt(19098);}while(r); +} +S_22129:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(19099);if(r)goto S_22129;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2830= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19099);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19099);}while(r); +do{ +goto LABEL_LCO_BRACKETTING_DONE; +if(!qbevent)break;evnt(19099);}while(r); } do{ -*_FUNC_GETELEMENT_LONG_N=*_FUNC_GETELEMENT_LONG_N+ 1 ; -if(!qbevent)break;evnt(18950);}while(r); +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2831= 1 ),&(pass2832=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2833=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19100);}while(r); do{ -*_FUNC_GETELEMENT_LONG_P=*_FUNC_GETELEMENT_LONG_I+ 1 ; -if(!qbevent)break;evnt(18951);}while(r); +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 4 ; +if(!qbevent)break;evnt(19101);}while(r); do{ -goto LABEL_GETELEMENTNEXT; -if(!qbevent)break;evnt(18952);}while(r); +goto LABEL_NOT_RECHECK; +if(!qbevent)break;evnt(19102);}while(r); +} +} +fornext_continue_2828:; +} +fornext_exit_2828:; +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N2=*_FUNC_FIXOPERATIONORDER_LONG_N; +if(!qbevent)break;evnt(19108);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19109);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_new_txt_len("{",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19110);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N= 1 ; +if(!qbevent)break;evnt(19111);}while(r); +S_22145:; +fornext_value2835= 1 ; +fornext_finalvalue2835=*_FUNC_FIXOPERATIONORDER_LONG_N2; +fornext_step2835= 1 ; +if (fornext_step2835<0) fornext_step_negative2835=1; else fornext_step_negative2835=0; +if (new_error) goto fornext_error2835; +goto fornext_entrylabel2835; +while(1){ +fornext_value2835=fornext_step2835+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2835: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2835; +if (fornext_step_negative2835){ +if (fornext_value2835fornext_finalvalue2835) break; +} +fornext_error2835:; +if(qbevent){evnt(19112);if(r)goto S_22145;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19113);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19114);}while(r); +S_22148:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19115);if(r)goto S_22148;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19115);}while(r); +} +S_22151:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19116);if(r)goto S_22151;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19116);}while(r); +} +S_22154:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19117);if(r)goto S_22154;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19118);}while(r); +S_22156:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP==*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ +if(qbevent){evnt(19119);if(r)goto S_22156;} +S_22157:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(19120);if(r)goto S_22157;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A2,__STRING1_SP),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19121);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N= 2 ; +if(!qbevent)break;evnt(19122);}while(r); +}else{ +S_22161:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N2))||new_error){ +if(qbevent){evnt(19124);if(r)goto S_22161;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19124);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19124);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19125);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 3 ; +if(!qbevent)break;evnt(19126);}while(r); +} +do{ +goto LABEL_FIXOP0; +if(!qbevent)break;evnt(19128);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19132);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; +if(!qbevent)break;evnt(19133);}while(r); +LABEL_FIXOP0:; +if(qbevent){evnt(19134);r=0;} +fornext_continue_2834:; +} +fornext_exit_2834:; +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19136);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; +if(!qbevent)break;evnt(19137);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19138);}while(r); +LABEL_LCO_BRACKETTING_DONE:; +if(qbevent){evnt(19140);r=0;} +S_22177:; +if (( 0 )||new_error){ +if(qbevent){evnt(19141);if(r)goto S_22177;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2836; +sub_file_print(tmp_fileno,qbs_new_txt_len("fixoperationorder:lco bracketing[",33), 0 , 0 , 0 ); +if (new_error) goto skip2836; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_LCO)), 1 , 0 , 0 ); +if (new_error) goto skip2836; +sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); +if (new_error) goto skip2836; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_HCO)), 1 , 0 , 0 ); +if (new_error) goto skip2836; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("]:",2),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2836; +skip2836: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19141);}while(r); +} +S_22180:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED)||new_error){ +if(qbevent){evnt(19144);if(r)goto S_22180;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19145);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I= 0 ; +if(!qbevent)break;evnt(19146);}while(r); +S_22183:; +do{ +if(qbevent){evnt(19147);if(r)goto S_22183;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19148);}while(r); +S_22185:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19149);if(r)goto S_22185;} +do{ +goto dl_exit_2837; +if(!qbevent)break;evnt(19149);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19150);}while(r); +S_22189:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19151);if(r)goto S_22189;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19151);}while(r); +} +S_22192:; +if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ +if(qbevent){evnt(19152);if(r)goto S_22192;} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2838= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19153);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(19154);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ; +if(!qbevent)break;evnt(19155);}while(r); +S_22196:; +if (( 0 )||new_error){ +if(qbevent){evnt(19156);if(r)goto S_22196;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2839; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^- {} removed:",32),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 0 , 1 ); +if (new_error) goto skip2839; +skip2839: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19156);}while(r); +} +} +S_22200:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19158);if(r)goto S_22200;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19158);}while(r); +} +dl_continue_2837:; +}while(1); +dl_exit_2837:; +} +} +} +S_22207:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 4 )),(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),func_chr( 241 )),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(19166);if(r)goto S_22207;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2840= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19167);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19167);}while(r); +} +S_22211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 8 ))),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(19169);if(r)goto S_22211;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2841= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19170);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19170);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19179);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19180);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C= 0 ; +if(!qbevent)break;evnt(19181);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 0 ; +if(!qbevent)break;evnt(19182);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI= 0 ; +if(!qbevent)break;evnt(19182);}while(r); +S_22220:; +fornext_value2843= 1 ; +fornext_finalvalue2843=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2843= 1 ; +if (fornext_step2843<0) fornext_step_negative2843=1; else fornext_step_negative2843=0; +if (new_error) goto fornext_error2843; +goto fornext_entrylabel2843; +while(1){ +fornext_value2843=fornext_step2843+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2843: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2843; +if (fornext_step_negative2843){ +if (fornext_value2843fornext_finalvalue2843) break; +} +fornext_error2843:; +if(qbevent){evnt(19183);if(r)goto S_22220;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19184);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTC=*_FUNC_FIXOPERATIONORDER_LONG_C; +if(!qbevent)break;evnt(19185);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19186);}while(r); +S_22224:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19188);if(r)goto S_22224;} +S_22225:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ +if(qbevent){evnt(19189);if(r)goto S_22225;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19189);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19190);}while(r); +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19191);}while(r); +} +S_22231:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19193);if(r)goto S_22231;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19195);}while(r); +S_22233:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19198);if(r)goto S_22233;} +S_22234:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ +if(qbevent){evnt(19199);if(r)goto S_22234;} +S_22235:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC== 40 ))||new_error){ +if(qbevent){evnt(19200);if(r)goto S_22235;} +S_22236:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI==(*_FUNC_FIXOPERATIONORDER_LONG_I- 2 )))|(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI== 0 )))||new_error){ +if(qbevent){evnt(19201);if(r)goto S_22236;} +S_22237:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT>= 0 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT<= 3 )))||new_error){ +if(qbevent){evnt(19202);if(r)goto S_22237;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected (",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19203);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19203);}while(r); +} +} +} +} +} +S_22245:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ +if(qbevent){evnt(19210);if(r)goto S_22245;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19210);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19211);}while(r); +} +S_22250:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19214);if(r)goto S_22250;} +S_22251:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 34 ))||new_error){ +if(qbevent){evnt(19225);if(r)goto S_22251;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 1 ; +if(!qbevent)break;evnt(19226);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19226);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X2= 1 ; +if(!qbevent)break;evnt(19230);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19231);}while(r); +S_22256:; +while((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ +if(qbevent){evnt(19232);if(r)goto S_22256;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19233);}while(r); +S_22258:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 92 ))||new_error){ +if(qbevent){evnt(19234);if(r)goto S_22258;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19235);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; +if(!qbevent)break;evnt(19236);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C3=((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 3 )- 48 ))+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 )- 48 )* 8 )+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 )- 48 )* 64 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19239);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),func_chr(*_FUNC_FIXOPERATIONORDER_LONG_C3)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19240);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; +if(!qbevent)break;evnt(19241);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19243);}while(r); +dl_continue_2844:; +} +dl_exit_2844:; +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr( 2 ,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19246);}while(r); +S_22269:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ +if(qbevent){evnt(19246);if(r)goto S_22269;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19246);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19247);}while(r); +} +S_22274:; +if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 )))||new_error){ +if(qbevent){evnt(19251);if(r)goto S_22274;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 2 ; +if(!qbevent)break;evnt(19252);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19252);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19254);}while(r); +S_22278:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ +if(qbevent){evnt(19255);if(r)goto S_22278;} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2847= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19256);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2848=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19256);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19257);}while(r); +} +S_22283:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(19260);if(r)goto S_22283;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19261);}while(r); +S_22285:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C2< 48 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C2> 57 )))||new_error){ +if(qbevent){evnt(19262);if(r)goto S_22285;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X= 1 ; +if(!qbevent)break;evnt(19263);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19265);}while(r); +} +} +S_22291:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(19270);if(r)goto S_22291;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19271);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19272);}while(r); +S_22294:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 ))||new_error){ +if(qbevent){evnt(19273);if(r)goto S_22294;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19274);}while(r); +S_22296:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessthan(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-2147483648",11)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 11 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 11 ))))||new_error){ +if(qbevent){evnt(19275);if(r)goto S_22296;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19275);}while(r); +} +S_22299:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-32768",6)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 6 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 6 ))))||new_error){ +if(qbevent){evnt(19276);if(r)goto S_22299;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19276);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19278);}while(r); +S_22304:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("9223372036854775807",19)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 19 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 19 ))))||new_error){ +if(qbevent){evnt(19279);if(r)goto S_22304;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19279);}while(r); +} +S_22307:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("2147483647",10)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 10 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 10 ))))||new_error){ +if(qbevent){evnt(19280);if(r)goto S_22307;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19280);}while(r); +} +S_22310:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("32767",5)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 5 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 5 ))))||new_error){ +if(qbevent){evnt(19281);if(r)goto S_22310;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19281);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19283);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2861= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19284);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2862=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19284);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19287);}while(r); +} +S_22320:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_F2)))||new_error){ +if(qbevent){evnt(19291);if(r)goto S_22320;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 3 ; +if(!qbevent)break;evnt(19292);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19292);}while(r); +S_22323:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_F2->len> 1 )))||new_error){ +if(qbevent){evnt(19293);if(r)goto S_22323;} +S_22324:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F2))))||new_error){ +if(qbevent){evnt(19294);if(r)goto S_22324;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19295);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2864= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19296);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2865=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19297);}while(r); +} +} +S_22330:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F2,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(19301);if(r)goto S_22330;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19301);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19301);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19302);}while(r); +} +S_22336:; +if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])||new_error){ +if(qbevent){evnt(19305);if(r)goto S_22336;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 4 ; +if(!qbevent)break;evnt(19306);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19306);}while(r); +S_22339:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19308);if(r)goto S_22339;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2866=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19308);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; +if(!qbevent)break;evnt(19308);}while(r); +} +S_22344:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ +if(qbevent){evnt(19311);if(r)goto S_22344;} +S_22345:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC!= 46 ))||new_error){ +if(qbevent){evnt(19312);if(r)goto S_22345;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19314);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19315);}while(r); +S_22348:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19316);if(r)goto S_22348;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19316);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 0 ; +if(!qbevent)break;evnt(19318);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19319);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(19320);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19321);}while(r); +S_22355:; +while((*_FUNC_FIXOPERATIONORDER_LONG_HASHRES)||new_error){ +if(qbevent){evnt(19322);if(r)goto S_22355;} +S_22356:; +if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ +if(qbevent){evnt(19323);if(r)goto S_22356;} +S_22357:; +if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ +if(qbevent){evnt(19324);if(r)goto S_22357;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 1 ; +if(!qbevent)break;evnt(19325);}while(r); +do{ +goto dl_exit_2867; +if(!qbevent)break;evnt(19326);}while(r); +} +} +S_22362:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(19329);if(r)goto S_22362;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); +if(!qbevent)break;evnt(19329);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(19329);}while(r); +} +dl_continue_2867:; +} +dl_exit_2867:; +S_22368:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND)||new_error){ +if(qbevent){evnt(19332);if(r)goto S_22368;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I2=*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF; +if(!qbevent)break;evnt(19333);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 0 ; +if(!qbevent)break;evnt(19342);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19343);}while(r); +S_22372:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19344);if(r)goto S_22372;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19344);}while(r); +} +S_22375:; +while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ +if(qbevent){evnt(19345);if(r)goto S_22375;} +S_22376:; +if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ +if(qbevent){evnt(19346);if(r)goto S_22376;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; +if(!qbevent)break;evnt(19346);}while(r); +do{ +goto dl_exit_2868; +if(!qbevent)break;evnt(19346);}while(r); +} +S_22380:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(19347);if(r)goto S_22380;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(19347);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19347);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; +if(!qbevent)break;evnt(19347);}while(r); +} +S_22386:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19348);if(r)goto S_22386;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19348);}while(r); +} +dl_continue_2868:; +} +dl_exit_2868:; +S_22390:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ +if(qbevent){evnt(19351);if(r)goto S_22390;} +S_22391:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_ES->len== 0 )))||new_error){ +if(qbevent){evnt(19352);if(r)goto S_22391;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_A=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19353);}while(r); +S_22393:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(19353);if(r)goto S_22393;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_A= 91 ; +if(!qbevent)break;evnt(19353);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_A=*_FUNC_FIXOPERATIONORDER_LONG_A- 64 ; +if(!qbevent)break;evnt(19354);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19355);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19356);}while(r); +S_22399:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19357);if(r)goto S_22399;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19357);}while(r); +} +S_22402:; +while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ +if(qbevent){evnt(19358);if(r)goto S_22402;} +S_22403:; +if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ +if(qbevent){evnt(19359);if(r)goto S_22403;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; +if(!qbevent)break;evnt(19359);}while(r); +do{ +goto dl_exit_2870; +if(!qbevent)break;evnt(19359);}while(r); +} +S_22407:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(19360);if(r)goto S_22407;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(19360);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19360);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; +if(!qbevent)break;evnt(19360);}while(r); +} +S_22413:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19361);if(r)goto S_22413;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19361);}while(r); +} +dl_continue_2870:; +} +dl_exit_2870:; +} +} +S_22419:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ +if(qbevent){evnt(19366);if(r)goto S_22419;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(19368);}while(r); +S_22421:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(19369);if(r)goto S_22421;} +S_22422:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXOPERATIONORDER_STRING_ES->len> 0 ))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_ES,qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(19370);if(r)goto S_22422;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19370);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19370);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19371);}while(r); +}else{ +S_22428:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_ES->len))||new_error){ +if(qbevent){evnt(19373);if(r)goto S_22428;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_ET=FUNC_TYPNAME2TYP(_FUNC_FIXOPERATIONORDER_STRING_ES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19373);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_ET= 0 ; +if(!qbevent)break;evnt(19373);}while(r); +} +S_22433:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19374);if(r)goto S_22433;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19374);}while(r); +} +S_22436:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_ET&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(19375);if(r)goto S_22436;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19375);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19375);}while(r); +} +S_22440:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(19377);if(r)goto S_22440;} +do{ +*_FUNC_FIXOPERATIONORDER_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; +if(!qbevent)break;evnt(19378);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_INTEGER64_V=qbr(*_FUNC_FIXOPERATIONORDER_FLOAT_V); +if(!qbevent)break;evnt(19379);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19380);}while(r); +}else{ +S_22445:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(19382);if(r)goto S_22445;} +do{ +*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; +if(!qbevent)break;evnt(19383);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_INTEGER64_V=*_FUNC_FIXOPERATIONORDER_UINTEGER64_V; +if(!qbevent)break;evnt(19384);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19385);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; +if(!qbevent)break;evnt(19387);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19388);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19389);}while(r); +} +} +S_22455:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_ET)||new_error){ +if(qbevent){evnt(19393);if(r)goto S_22455;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=*_FUNC_FIXOPERATIONORDER_LONG_ET; +if(!qbevent)break;evnt(19393);}while(r); +} +S_22458:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(19396);if(r)goto S_22458;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_FUNC_FIXOPERATIONORDER_FLOAT_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19397);}while(r); +}else{ +S_22461:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(19399);if(r)goto S_22461;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_FIXOPERATIONORDER_UINTEGER64_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19400);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_FIXOPERATIONORDER_INTEGER64_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19402);}while(r); +} +} +S_22467:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(19407);if(r)goto S_22467;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T2=*_FUNC_FIXOPERATIONORDER_LONG_T& 511 ; +if(!qbevent)break;evnt(19408);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19410);}while(r); +S_22470:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E",1),0)))||new_error){ +if(qbevent){evnt(19411);if(r)goto S_22470;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19411);}while(r); +} +S_22473:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D",1),0)))||new_error){ +if(qbevent){evnt(19412);if(r)goto S_22473;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19412);}while(r); +} +S_22476:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F",1),0)))||new_error){ +if(qbevent){evnt(19413);if(r)goto S_22476;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19413);}while(r); +} +S_22479:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_S->len))||new_error){ +if(qbevent){evnt(19414);if(r)goto S_22479;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19416);}while(r); +S_22481:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ +if(qbevent){evnt(19418);if(r)goto S_22481;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19418);}while(r); +} +S_22484:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ +if(qbevent){evnt(19419);if(r)goto S_22484;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19419);}while(r); +} +S_22487:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ +if(qbevent){evnt(19420);if(r)goto S_22487;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19420);}while(r); +} +do{ +sub_mid(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X, 1 ,_FUNC_FIXOPERATIONORDER_STRING_S,1); +if(!qbevent)break;evnt(19421);}while(r); +S_22491:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ +if(qbevent){evnt(19422);if(r)goto S_22491;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),qbs_new_txt_len(".0",2)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19422);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 ; +if(!qbevent)break;evnt(19422);}while(r); +} +S_22495:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(19423);if(r)goto S_22495;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19423);}while(r); +} +S_22498:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ +if(qbevent){evnt(19424);if(r)goto S_22498;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19424);}while(r); +} +S_22501:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("+",1),0)== 0 ))&(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("-",1),0)== 0 ))))||new_error){ +if(qbevent){evnt(19425);if(r)goto S_22501;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_new_txt_len("+",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19426);}while(r); +} +}else{ +S_22505:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ +if(qbevent){evnt(19430);if(r)goto S_22505;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".0",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19430);}while(r); +} +S_22508:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(19431);if(r)goto S_22508;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19431);}while(r); +} +S_22511:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ +if(qbevent){evnt(19432);if(r)goto S_22511;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19432);}while(r); +} +S_22514:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ +if(qbevent){evnt(19433);if(r)goto S_22514;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E+0",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19433);}while(r); +} +S_22517:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ +if(qbevent){evnt(19434);if(r)goto S_22517;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D+0",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19434);}while(r); +} +S_22520:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ +if(qbevent){evnt(19435);if(r)goto S_22520;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F+0",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19435);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_TYPEVALUE2SYMBOL(_FUNC_FIXOPERATIONORDER_LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19438);}while(r); +S_22526:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19439);if(r)goto S_22526;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19439);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19440);}while(r); +} +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2878= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19445);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2879=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19446);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),_FUNC_FIXOPERATIONORDER_STRING_ES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19448);}while(r); +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19449);}while(r); +} +} +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19459);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19461);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19462);}while(r); +S_22543:; +fornext_value2881= 1 ; +fornext_finalvalue2881= 4 ; +fornext_step2881= 1 ; +if (fornext_step2881<0) fornext_step_negative2881=1; else fornext_step_negative2881=0; +if (new_error) goto fornext_error2881; +goto fornext_entrylabel2881; +while(1){ +fornext_value2881=fornext_step2881+(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD); +fornext_entrylabel2881: +*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD=fornext_value2881; +if (fornext_step_negative2881){ +if (fornext_value2881fornext_finalvalue2881) break; +} +fornext_error2881:; +if(qbevent){evnt(19464);if(r)goto S_22543;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19465);}while(r); +S_22545:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 4 )))||new_error){ +if(qbevent){evnt(19466);if(r)goto S_22545;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19467);}while(r); +S_22547:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_DTYP->len== 0 )))||new_error){ +if(qbevent){evnt(19468);if(r)goto S_22547;} +S_22548:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)== 0 )))||new_error){ +if(qbevent){evnt(19469);if(r)goto S_22548;} +S_22549:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)))||new_error){ +if(qbevent){evnt(19470);if(r)goto S_22549;} +S_22550:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(19471);if(r)goto S_22550;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_V= 27 ; +if(!qbevent)break;evnt(19471);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_V=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19471);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19472);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19476);}while(r); +} +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19479);}while(r); +S_22563:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19480);if(r)goto S_22563;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19480);}while(r); +} +S_22566:; +while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ +if(qbevent){evnt(19481);if(r)goto S_22566;} +S_22567:; +if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD>= 3 )))||new_error){ +if(qbevent){evnt(19482);if(r)goto S_22567;} +S_22568:; +if (( 0 )||new_error){ +if(qbevent){evnt(19484);if(r)goto S_22568;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2884; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("found id matching ",18),_FUNC_FIXOPERATIONORDER_STRING_F2), 0 , 0 , 1 ); +if (new_error) goto skip2884; +skip2884: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19484);}while(r); +} +S_22571:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND!= 0 )))||new_error){ +if(qbevent){evnt(19486);if(r)goto S_22571;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 0 ; +if(!qbevent)break;evnt(19488);}while(r); +S_22573:; +if (((-(*(int32*)(((char*)__UDT_ID)+(512))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ +if(qbevent){evnt(19491);if(r)goto S_22573;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19495);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19496);}while(r); +S_22576:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19497);if(r)goto S_22576;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19497);}while(r); +} +S_22579:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(19498);if(r)goto S_22579;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19499);}while(r); +S_22581:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),qbs_new_txt_len("UBOUND",6)))|(qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),qbs_new_txt_len("LBOUND",6))))))||new_error){ +if(qbevent){evnt(19500);if(r)goto S_22581;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 2 ; +if(!qbevent)break;evnt(19501);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19504);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2885= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19506);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2886=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19507);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19508);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2= 1 ; +if(!qbevent)break;evnt(19511);}while(r); +S_22591:; +fornext_value2888=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; +fornext_finalvalue2888=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2888= 1 ; +if (fornext_step2888<0) fornext_step_negative2888=1; else fornext_step_negative2888=0; +if (new_error) goto fornext_error2888; +goto fornext_entrylabel2888; +while(1){ +fornext_value2888=fornext_step2888+(*_FUNC_FIXOPERATIONORDER_LONG_I2); +fornext_entrylabel2888: +*_FUNC_FIXOPERATIONORDER_LONG_I2=fornext_value2888; +if (fornext_step_negative2888){ +if (fornext_value2888fornext_finalvalue2888) break; +} +fornext_error2888:; +if(qbevent){evnt(19512);if(r)goto S_22591;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19513);}while(r); +S_22593:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 40 ))||new_error){ +if(qbevent){evnt(19514);if(r)goto S_22593;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2+ 1 ; +if(!qbevent)break;evnt(19514);}while(r); +} +S_22596:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 41 ))||new_error){ +if(qbevent){evnt(19515);if(r)goto S_22596;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2- 1 ; +if(!qbevent)break;evnt(19515);}while(r); +} +S_22599:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B2== 0 ))||new_error){ +if(qbevent){evnt(19516);if(r)goto S_22599;} +do{ +goto fornext_exit_2887; +if(!qbevent)break;evnt(19516);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19517);}while(r); +fornext_continue_2887:; +} +fornext_exit_2887:; +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I2; +if(!qbevent)break;evnt(19521);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19523);}while(r); +S_22606:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(19526);if(r)goto S_22606;} +S_22607:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19527);if(r)goto S_22607;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2889=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19527);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; +if(!qbevent)break;evnt(19527);}while(r); +} +S_22612:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 46 ))||new_error){ +if(qbevent){evnt(19528);if(r)goto S_22612;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(19528);}while(r); +do{ +goto LABEL_FOOUDT; +if(!qbevent)break;evnt(19528);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19531);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19532);}while(r); +} +} +S_22621:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ +if(qbevent){evnt(19536);if(r)goto S_22621;} +S_22622:; +if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ +if(qbevent){evnt(19537);if(r)goto S_22622;} +S_22623:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(19539);if(r)goto S_22623;} +S_22624:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(19544);if(r)goto S_22624;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19545);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19547);}while(r); +} +S_22629:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19549);if(r)goto S_22629;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19549);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2890= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19550);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2891=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19551);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19552);}while(r); +S_22635:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ +if(qbevent){evnt(19556);if(r)goto S_22635;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19556);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19556);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(19557);}while(r); +LABEL_FOOUDT:; +if(qbevent){evnt(19559);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19561);}while(r); +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_T& 511 )-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(19562);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; +if(!qbevent)break;evnt(19563);}while(r); +S_22643:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19568);if(r)goto S_22643;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected .element",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19568);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19568);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19569);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19570);}while(r); +S_22649:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19571);if(r)goto S_22649;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19571);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,qbs_add(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),func_space( 256 -_FUNC_FIXOPERATIONORDER_STRING_F2->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19572);}while(r); +LABEL_FOOUDTNEXTE:; +if(qbevent){evnt(19575);r=0;} +S_22653:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1),_FUNC_FIXOPERATIONORDER_STRING_U)))||new_error){ +if(qbevent){evnt(19576);if(r)goto S_22653;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19581);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2893= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19582);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2894=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19583);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19584);}while(r); +S_22658:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19586);if(r)goto S_22658;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19586);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19586);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2895=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19587);}while(r); +S_22663:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ +if(qbevent){evnt(19588);if(r)goto S_22663;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19588);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19588);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(19590);}while(r); +S_22668:; +if ((-((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(19591);if(r)goto S_22668;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19591);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19591);}while(r); +} +do{ +goto LABEL_FOOUDT; +if(!qbevent)break;evnt(19592);}while(r); +} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(19597);}while(r); +S_22675:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(19598);if(r)goto S_22675;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19598);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19598);}while(r); +} +do{ +goto LABEL_FOOUDTNEXTE; +if(!qbevent)break;evnt(19599);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19604);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19605);}while(r); +S_22683:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19606);if(r)goto S_22683;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19606);}while(r); +} +S_22686:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(19607);if(r)goto S_22686;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19608);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19610);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2896= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19613);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2897=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19614);}while(r); +do{ +goto LABEL_COULDNOTCLASSIFY; +if(!qbevent)break;evnt(19615);}while(r); +} +} +} +S_22697:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(19621);if(r)goto S_22697;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(19621);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19621);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; +if(!qbevent)break;evnt(19621);}while(r); +} +S_22703:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19622);if(r)goto S_22703;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19622);}while(r); +} +dl_continue_2883:; +} +dl_exit_2883:; +fornext_continue_2880:; +} +fornext_exit_2880:; +LABEL_COULDNOTCLASSIFY:; +if(qbevent){evnt(19625);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19628);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 0 ; +if(!qbevent)break;evnt(19629);}while(r); +S_22710:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(19630);if(r)goto S_22710;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19630);}while(r); +} +S_22713:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_UNSIGNED",9)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("UNSIGNED",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19631);if(r)goto S_22713;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19631);}while(r); +} +S_22716:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BIT",4)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19632);if(r)goto S_22716;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19632);}while(r); +} +S_22719:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BYTE",5)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("BYTE",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19633);if(r)goto S_22719;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19633);}while(r); +} +S_22722:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER",7))))||new_error){ +if(qbevent){evnt(19634);if(r)goto S_22722;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19634);}while(r); +} +S_22725:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("LONG",4))))||new_error){ +if(qbevent){evnt(19635);if(r)goto S_22725;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19635);}while(r); +} +S_22728:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_INTEGER64",10)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER64",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19636);if(r)goto S_22728;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19636);}while(r); +} +S_22731:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(19637);if(r)goto S_22731;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19637);}while(r); +} +S_22734:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(19638);if(r)goto S_22734;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19638);}while(r); +} +S_22737:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_FLOAT",6)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("FLOAT",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19639);if(r)goto S_22737;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19639);}while(r); +} +S_22740:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19640);if(r)goto S_22740;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19640);}while(r); +} +S_22743:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE== 1 ))||new_error){ +if(qbevent){evnt(19641);if(r)goto S_22743;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19642);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2898= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19643);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2899=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19644);}while(r); +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19645);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19648);}while(r); +} +LABEL_CLASSDONE:; +if(qbevent){evnt(19651);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19652);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19654);}while(r); +LABEL_CLASSDONE_SPECIAL:; +if(qbevent){evnt(19655);r=0;} +fornext_continue_2842:; +} +fornext_exit_2842:; +S_22755:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F->len))||new_error){ +if(qbevent){evnt(19658);if(r)goto S_22755;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19658);}while(r); +} +S_22758:; +if (( 0 )||new_error){ +if(qbevent){evnt(19660);if(r)goto S_22758;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2902; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification:",33),_FUNC_FIXOPERATIONORDER_STRING_A), 0 , 1 , 0 ); +if (new_error) goto skip2902; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1 , 0 , 1 ); +if (new_error) goto skip2902; +skip2902: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19660);}while(r); +} +S_22761:; +if (( 0 )||new_error){ +if(qbevent){evnt(19661);if(r)goto S_22761;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2903; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification(layout):",41),_FUNC_FIXOPERATIONORDER_STRING_F), 0 , 1 , 0 ); +if (new_error) goto skip2903; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1 , 0 , 1 ); +if (new_error) goto skip2903; +skip2903: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19661);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19667);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19668);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2= 0 ; +if(!qbevent)break;evnt(19669);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_P1= 0 ; +if(!qbevent)break;evnt(19670);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19671);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19672);}while(r); +S_22770:; +fornext_value2905= 1 ; +fornext_finalvalue2905=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2905= 1 ; +if (fornext_step2905<0) fornext_step_negative2905=1; else fornext_step_negative2905=0; +if (new_error) goto fornext_error2905; +goto fornext_entrylabel2905; +while(1){ +fornext_value2905=fornext_step2905+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2905: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2905; +if (fornext_step_negative2905){ +if (fornext_value2905fornext_finalvalue2905) break; +} +fornext_error2905:; +if(qbevent){evnt(19673);if(r)goto S_22770;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 0 ; +if(!qbevent)break;evnt(19675);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19677);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19679);}while(r); +S_22774:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19683);if(r)goto S_22774;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19684);}while(r); +S_22776:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ +if(qbevent){evnt(19686);if(r)goto S_22776;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19691);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("(",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19692);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 1 ; +if(!qbevent)break;evnt(19696);}while(r); +do{ +goto LABEL_FOOPASS; +if(!qbevent)break;evnt(19698);}while(r); +} +S_22783:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ +if(qbevent){evnt(19702);if(r)goto S_22783;} +S_22784:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ +if(qbevent){evnt(19703);if(r)goto S_22784;} +do{ +goto LABEL_FOOPASSIT; +if(!qbevent)break;evnt(19704);}while(r); +} +} +S_22788:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19708);if(r)goto S_22788;} +S_22789:; +if ((*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND)||new_error){ +if(qbevent){evnt(19709);if(r)goto S_22789;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND=*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND- 1 ; +if(!qbevent)break;evnt(19709);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19710);}while(r); +S_22793:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19712);if(r)goto S_22793;} +LABEL_FOOPASSIT:; +if(qbevent){evnt(19713);r=0;} +S_22794:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_P1!=*_FUNC_FIXOPERATIONORDER_LONG_I))||new_error){ +if(qbevent){evnt(19714);if(r)goto S_22794;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FOO,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_P1,&(pass2906=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19715);}while(r); +S_22796:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19716);if(r)goto S_22796;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19716);}while(r); +} +S_22799:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FOO->len))||new_error){ +if(qbevent){evnt(19717);if(r)goto S_22799;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_FOO),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19718);}while(r); +S_22801:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))||new_error){ +if(qbevent){evnt(19719);if(r)goto S_22801;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19719);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19719);}while(r); +} +} +} +S_22808:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ +if(qbevent){evnt(19722);if(r)goto S_22808;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19722);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19722);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19722);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19723);}while(r); +} +do{ +goto LABEL_FOOPASS; +if(!qbevent)break;evnt(19726);}while(r); +} +S_22818:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19732);if(r)goto S_22818;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19732);}while(r); +} +LABEL_FOOPASS:; +if(qbevent){evnt(19735);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENTSPECIAL(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19737);}while(r); +S_22822:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19738);if(r)goto S_22822;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19738);}while(r); +} +S_22825:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F2->len))||new_error){ +if(qbevent){evnt(19739);if(r)goto S_22825;} +S_22826:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(19742);if(r)goto S_22826;} +S_22827:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_I> 1 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N)))||new_error){ +if(qbevent){evnt(19743);if(r)goto S_22827;} +S_22828:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ +if(qbevent){evnt(19744);if(r)goto S_22828;} +do{ +sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); +if(!qbevent)break;evnt(19744);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(".",1)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19745);}while(r); +do{ +goto LABEL_FOOLOOPNXT; +if(!qbevent)break;evnt(19746);}while(r); +} +} +S_22835:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET)||new_error){ +if(qbevent){evnt(19751);if(r)goto S_22835;} +S_22836:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(19754);if(r)goto S_22836;} +S_22837:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2911=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))== 0 )))||new_error){ +if(qbevent){evnt(19755);if(r)goto S_22837;} +do{ +sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); +if(!qbevent)break;evnt(19756);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19759);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19761);}while(r); +} +} +LABEL_FOOLOOPNXT:; +if(qbevent){evnt(19766);r=0;} +fornext_continue_2904:; +} +fornext_exit_2904:; +S_22847:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_AA->len))||new_error){ +if(qbevent){evnt(19770);if(r)goto S_22847;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_AA->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19770);}while(r); +} +S_22850:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ +if(qbevent){evnt(19771);if(r)goto S_22850;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19771);}while(r); +} +S_22853:; +if (( 0 )||new_error){ +if(qbevent){evnt(19773);if(r)goto S_22853;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2917; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:return:",25),_FUNC_FIXOPERATIONORDER_STRING_AA), 0 , 0 , 1 ); +if (new_error) goto skip2917; +skip2917: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19773);}while(r); +} +S_22856:; +if (( 0 )||new_error){ +if(qbevent){evnt(19774);if(r)goto S_22856;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2918; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:layout:",25),_FUNC_FIXOPERATIONORDER_STRING_FF), 0 , 0 , 1 ); +if (new_error) goto skip2918; +skip2918: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19774);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_FUNC_FIXOPERATIONORDER_STRING_FF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19775);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER,_FUNC_FIXOPERATIONORDER_STRING_AA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19776);}while(r); +do{ +*__LONG_FOOINDWEL=*__LONG_FOOINDWEL- 1 ; +if(!qbevent)break;evnt(19778);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free21.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETELEMENT_STRING_GETELEMENT);return _FUNC_GETELEMENT_STRING_GETELEMENT; +qbs_maketmp(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER);return _FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER; } -qbs* FUNC_GETELEMENTS(qbs*_FUNC_GETELEMENTS_STRING_A,int32*_FUNC_GETELEMENTS_LONG_I1,int32*_FUNC_GETELEMENTS_LONG_I2){ +qbs* FUNC_GETELEMENTSPECIAL(qbs*_FUNC_GETELEMENTSPECIAL_STRING_SAVEA,int32*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75071,73 +79168,100 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_21896:; -if ((-(*_FUNC_GETELEMENTS_LONG_I2<*_FUNC_GETELEMENTS_LONG_I1))||new_error){ -if(qbevent){evnt(18956);if(r)goto S_21896;} do{ -qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_new_txt_len("",0)); +qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18956);}while(r); +if(!qbevent)break;evnt(19785);}while(r); +S_22863:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENTSPECIAL_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19786);if(r)goto S_22863;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(18956);}while(r); +if(!qbevent)break;evnt(19786);}while(r); } do{ -*_FUNC_GETELEMENTS_LONG_N= 1 ; -if(!qbevent)break;evnt(18957);}while(r); +*_FUNC_GETELEMENTSPECIAL_LONG_N= 1 ; +if(!qbevent)break;evnt(19788);}while(r); do{ -*_FUNC_GETELEMENTS_LONG_P= 1 ; -if(!qbevent)break;evnt(18958);}while(r); -LABEL_GETELEMENTSNEXT:; -if(qbevent){evnt(18959);r=0;} +*_FUNC_GETELEMENTSPECIAL_LONG_P= 1 ; +if(!qbevent)break;evnt(19789);}while(r); +LABEL_GETELEMENTSPECIALNEXT:; +if(qbevent){evnt(19790);r=0;} do{ -*_FUNC_GETELEMENTS_LONG_I=func_instr(*_FUNC_GETELEMENTS_LONG_P,_FUNC_GETELEMENTS_STRING_A,__STRING1_SP,1); +*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18960);}while(r); -S_21903:; -if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I1))||new_error){ -if(qbevent){evnt(18961);if(r)goto S_21903;} +if(!qbevent)break;evnt(19791);}while(r); do{ -*_FUNC_GETELEMENTS_LONG_I1POS=*_FUNC_GETELEMENTS_LONG_P; -if(!qbevent)break;evnt(18962);}while(r); +*_FUNC_GETELEMENTSPECIAL_LONG_I2=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19794);}while(r); +S_22870:; +if (((-(*_FUNC_GETELEMENTSPECIAL_LONG_I2<*_FUNC_GETELEMENTSPECIAL_LONG_I))&(-(*_FUNC_GETELEMENTSPECIAL_LONG_I2!= 0 )))||new_error){ +if(qbevent){evnt(19795);if(r)goto S_22870;} +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_I3=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I2+ 1 ,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19796);}while(r); +S_22872:; +if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I3== 0 ))||new_error){ +if(qbevent){evnt(19796);if(r)goto S_22872;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19796);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19796);}while(r); } -S_21906:; -if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I2))||new_error){ -if(qbevent){evnt(18964);if(r)goto S_21906;} -S_21907:; -if ((*_FUNC_GETELEMENTS_LONG_I)||new_error){ -if(qbevent){evnt(18965);if(r)goto S_21907;} do{ -qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,func_mid(_FUNC_GETELEMENTS_STRING_A,*_FUNC_GETELEMENTS_LONG_I1POS,*_FUNC_GETELEMENTS_LONG_I-*_FUNC_GETELEMENTS_LONG_I1POS,1)); +*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I3,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18966);}while(r); +if(!qbevent)break;evnt(19797);}while(r); +} +S_22878:; +if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM==*_FUNC_GETELEMENTSPECIAL_LONG_N))||new_error){ +if(qbevent){evnt(19800);if(r)goto S_22878;} +S_22879:; +if ((*_FUNC_GETELEMENTSPECIAL_LONG_I)||new_error){ +if(qbevent){evnt(19801);if(r)goto S_22879;} +do{ +qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,func_mid(_FUNC_GETELEMENTSPECIAL_STRING_A,*_FUNC_GETELEMENTSPECIAL_LONG_P,*_FUNC_GETELEMENTSPECIAL_LONG_I-*_FUNC_GETELEMENTSPECIAL_LONG_P,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19802);}while(r); }else{ do{ -qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_right(_FUNC_GETELEMENTS_STRING_A,_FUNC_GETELEMENTS_STRING_A->len-*_FUNC_GETELEMENTS_LONG_I1POS+ 1 )); +qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,qbs_right(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_A->len-*_FUNC_GETELEMENTSPECIAL_LONG_P+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18968);}while(r); +if(!qbevent)break;evnt(19804);}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(18970);}while(r); +if(!qbevent)break;evnt(19806);}while(r); +} +S_22886:; +if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(19809);if(r)goto S_22886;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19809);}while(r); } do{ -*_FUNC_GETELEMENTS_LONG_N=*_FUNC_GETELEMENTS_LONG_N+ 1 ; -if(!qbevent)break;evnt(18972);}while(r); +*_FUNC_GETELEMENTSPECIAL_LONG_N=*_FUNC_GETELEMENTSPECIAL_LONG_N+ 1 ; +if(!qbevent)break;evnt(19810);}while(r); do{ -*_FUNC_GETELEMENTS_LONG_P=*_FUNC_GETELEMENTS_LONG_I+ 1 ; -if(!qbevent)break;evnt(18973);}while(r); +*_FUNC_GETELEMENTSPECIAL_LONG_P=*_FUNC_GETELEMENTSPECIAL_LONG_I+ 1 ; +if(!qbevent)break;evnt(19811);}while(r); do{ -goto LABEL_GETELEMENTSNEXT; -if(!qbevent)break;evnt(18974);}while(r); +goto LABEL_GETELEMENTSPECIALNEXT; +if(!qbevent)break;evnt(19812);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free22.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETELEMENTS_STRING_GETELEMENTS);return _FUNC_GETELEMENTS_STRING_GETELEMENTS; +qbs_maketmp(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL);return _FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL; } -void SUB_GETID(int32*_SUB_GETID_LONG_I){ +qbs* FUNC_GETELEMENT(qbs*_FUNC_GETELEMENT_STRING_A,int32*_FUNC_GETELEMENT_LONG_ELENUM){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75150,30 +79274,69 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_21917:; -if ((-(*_SUB_GETID_LONG_I== -1 ))||new_error){ -if(qbevent){evnt(18978);if(r)goto S_21917;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("-1 passed to getid!",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18978);}while(r); +S_22892:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19818);if(r)goto S_22892;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(18978);}while(r); +if(!qbevent)break;evnt(19818);}while(r); } do{ -memcpy(((char*)__UDT_ID)+(0)+ 0,((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0, 2863); -if(!qbevent)break;evnt(18980);}while(r); +*_FUNC_GETELEMENT_LONG_N= 1 ; +if(!qbevent)break;evnt(19820);}while(r); do{ -*__LONG_CURRENTID=*_SUB_GETID_LONG_I; -if(!qbevent)break;evnt(18982);}while(r); +*_FUNC_GETELEMENT_LONG_P= 1 ; +if(!qbevent)break;evnt(19821);}while(r); +LABEL_GETELEMENTNEXT:; +if(qbevent){evnt(19822);r=0;} +do{ +*_FUNC_GETELEMENT_LONG_I=func_instr(*_FUNC_GETELEMENT_LONG_P,_FUNC_GETELEMENT_STRING_A,__STRING1_SP,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19823);}while(r); +S_22898:; +if ((-(*_FUNC_GETELEMENT_LONG_ELENUM==*_FUNC_GETELEMENT_LONG_N))||new_error){ +if(qbevent){evnt(19825);if(r)goto S_22898;} +S_22899:; +if ((*_FUNC_GETELEMENT_LONG_I)||new_error){ +if(qbevent){evnt(19826);if(r)goto S_22899;} +do{ +qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,func_mid(_FUNC_GETELEMENT_STRING_A,*_FUNC_GETELEMENT_LONG_P,*_FUNC_GETELEMENT_LONG_I-*_FUNC_GETELEMENT_LONG_P,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19827);}while(r); +}else{ +do{ +qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,qbs_right(_FUNC_GETELEMENT_STRING_A,_FUNC_GETELEMENT_STRING_A->len-*_FUNC_GETELEMENT_LONG_P+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19829);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19831);}while(r); +} +S_22906:; +if ((-(*_FUNC_GETELEMENT_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(19834);if(r)goto S_22906;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19834);}while(r); +} +do{ +*_FUNC_GETELEMENT_LONG_N=*_FUNC_GETELEMENT_LONG_N+ 1 ; +if(!qbevent)break;evnt(19835);}while(r); +do{ +*_FUNC_GETELEMENT_LONG_P=*_FUNC_GETELEMENT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19836);}while(r); +do{ +goto LABEL_GETELEMENTNEXT; +if(!qbevent)break;evnt(19837);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free23.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETELEMENT_STRING_GETELEMENT);return _FUNC_GETELEMENT_STRING_GETELEMENT; } -void SUB_INSERTELEMENTS(qbs*_SUB_INSERTELEMENTS_STRING_A,int32*_SUB_INSERTELEMENTS_LONG_I,qbs*_SUB_INSERTELEMENTS_STRING_ELEMENTS){ +qbs* FUNC_GETELEMENTS(qbs*_FUNC_GETELEMENTS_STRING_A,int32*_FUNC_GETELEMENTS_LONG_I1,int32*_FUNC_GETELEMENTS_LONG_I2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75186,88 +79349,73 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_21923:; -if ((-(*_SUB_INSERTELEMENTS_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(18986);if(r)goto S_21923;} -S_21924:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_INSERTELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(18987);if(r)goto S_21924;} +S_22912:; +if ((-(*_FUNC_GETELEMENTS_LONG_I2<*_FUNC_GETELEMENTS_LONG_I1))||new_error){ +if(qbevent){evnt(19841);if(r)goto S_22912;} do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_ELEMENTS); +qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18988);}while(r); +if(!qbevent)break;evnt(19841);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(18989);}while(r); +if(!qbevent)break;evnt(19841);}while(r); } do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_ELEMENTS,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18991);}while(r); +*_FUNC_GETELEMENTS_LONG_N= 1 ; +if(!qbevent)break;evnt(19842);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18992);}while(r); +*_FUNC_GETELEMENTS_LONG_P= 1 ; +if(!qbevent)break;evnt(19843);}while(r); +LABEL_GETELEMENTSNEXT:; +if(qbevent){evnt(19844);r=0;} +do{ +*_FUNC_GETELEMENTS_LONG_I=func_instr(*_FUNC_GETELEMENTS_LONG_P,_FUNC_GETELEMENTS_STRING_A,__STRING1_SP,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19845);}while(r); +S_22919:; +if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I1))||new_error){ +if(qbevent){evnt(19846);if(r)goto S_22919;} +do{ +*_FUNC_GETELEMENTS_LONG_I1POS=*_FUNC_GETELEMENTS_LONG_P; +if(!qbevent)break;evnt(19847);}while(r); } +S_22922:; +if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I2))||new_error){ +if(qbevent){evnt(19849);if(r)goto S_22922;} +S_22923:; +if ((*_FUNC_GETELEMENTS_LONG_I)||new_error){ +if(qbevent){evnt(19850);if(r)goto S_22923;} do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_new_txt_len("",0)); +qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,func_mid(_FUNC_GETELEMENTS_STRING_A,*_FUNC_GETELEMENTS_LONG_I1POS,*_FUNC_GETELEMENTS_LONG_I-*_FUNC_GETELEMENTS_LONG_I1POS,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18995);}while(r); -do{ -*_SUB_INSERTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_INSERTELEMENTS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18996);}while(r); -S_21933:; -fornext_value2718= 1 ; -fornext_finalvalue2718=*_SUB_INSERTELEMENTS_LONG_N; -fornext_step2718= 1 ; -if (fornext_step2718<0) fornext_step_negative2718=1; else fornext_step_negative2718=0; -if (new_error) goto fornext_error2718; -goto fornext_entrylabel2718; -while(1){ -fornext_value2718=fornext_step2718+(*_SUB_INSERTELEMENTS_LONG_I2); -fornext_entrylabel2718: -*_SUB_INSERTELEMENTS_LONG_I2=fornext_value2718; -if (fornext_step_negative2718){ -if (fornext_value2718fornext_finalvalue2718) break; -} -fornext_error2718:; -if(qbevent){evnt(19001);if(r)goto S_21933;} -S_21934:; -if ((-(*_SUB_INSERTELEMENTS_LONG_I2> 1 ))||new_error){ -if(qbevent){evnt(19002);if(r)goto S_21934;} do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP)); +qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_right(_FUNC_GETELEMENTS_STRING_A,_FUNC_GETELEMENTS_STRING_A->len-*_FUNC_GETELEMENTS_LONG_I1POS+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19002);}while(r); +if(!qbevent)break;evnt(19853);}while(r); } do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,FUNC_GETELEMENT(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_LONG_I2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19003);}while(r); -S_21938:; -if ((-(*_SUB_INSERTELEMENTS_LONG_I==*_SUB_INSERTELEMENTS_LONG_I2))||new_error){ -if(qbevent){evnt(19004);if(r)goto S_21938;} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19004);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(19855);}while(r); } -fornext_continue_2717:; -} -fornext_exit_2717:; do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19007);}while(r); +*_FUNC_GETELEMENTS_LONG_N=*_FUNC_GETELEMENTS_LONG_N+ 1 ; +if(!qbevent)break;evnt(19857);}while(r); +do{ +*_FUNC_GETELEMENTS_LONG_P=*_FUNC_GETELEMENTS_LONG_I+ 1 ; +if(!qbevent)break;evnt(19858);}while(r); +do{ +goto LABEL_GETELEMENTSNEXT; +if(!qbevent)break;evnt(19859);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free24.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETELEMENTS_STRING_GETELEMENTS);return _FUNC_GETELEMENTS_STRING_GETELEMENTS; } -int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING_A){ +void SUB_GETID(int32*_SUB_GETID_LONG_I){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75280,139 +79428,63 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_21943:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(19012);if(r)goto S_21943;} +S_22933:; +if ((-(*_SUB_GETID_LONG_I== -1 ))||new_error){ +if(qbevent){evnt(19863);if(r)goto S_22933;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19012);}while(r); -} -S_21946:; -fornext_value2722= 1 ; -fornext_finalvalue2722=_FUNC_ISNUMBER_STRING_A->len; -fornext_step2722= 1 ; -if (fornext_step2722<0) fornext_step_negative2722=1; else fornext_step_negative2722=0; -if (new_error) goto fornext_error2722; -goto fornext_entrylabel2722; -while(1){ -fornext_value2722=fornext_step2722+(*_FUNC_ISNUMBER_LONG_I); -fornext_entrylabel2722: -*_FUNC_ISNUMBER_LONG_I=fornext_value2722; +SUB_GIVE_ERROR(qbs_new_txt_len("-1 passed to getid!",19)); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2722){ -if (fornext_value2722fornext_finalvalue2722) break; -} -fornext_error2722:; -if(qbevent){evnt(19013);if(r)goto S_21946;} -do{ -*_FUNC_ISNUMBER_LONG_A=qbs_asc(func_mid(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19014);}while(r); -S_21948:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||new_error){ -if(qbevent){evnt(19015);if(r)goto S_21948;} -S_21949:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_ISNUMBER_LONG_I== 1 ))&(-(_FUNC_ISNUMBER_STRING_A->len> 1 )))|((-(*_FUNC_ISNUMBER_LONG_I> 1 ))&(((-(*_FUNC_ISNUMBER_LONG_D==(*_FUNC_ISNUMBER_LONG_I- 1 )))|(-(*__LONG_E==(*_FUNC_ISNUMBER_LONG_I- 1 ))))))))||new_error){ -if(qbevent){evnt(19016);if(r)goto S_21949;} -do{ -goto fornext_continue_2721; -if(!qbevent)break;evnt(19016);}while(r); -} +if(!qbevent)break;evnt(19863);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(19017);}while(r); -} -S_21954:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(19019);if(r)goto S_21954;} -S_21955:; -if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||new_error){ -if(qbevent){evnt(19020);if(r)goto S_21955;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19020);}while(r); +if(!qbevent)break;evnt(19863);}while(r); } do{ -*_FUNC_ISNUMBER_LONG_DP= 1 ; -if(!qbevent)break;evnt(19021);}while(r); +memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0), 256); +memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256), 256); +memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512), 4); +memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516), 2); +memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518), 2); +memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520), 8); +memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528), 8); +memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536), 4); +memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540), 4); +memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544), 2); +memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546), 2); +memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548), 2); +memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550), 256); +memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806), 2); +memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808), 1); +memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809), 2); +memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811), 2); +memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613), 256); +memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861)); +if(!qbevent)break;evnt(19865);}while(r); do{ -goto fornext_continue_2721; -if(!qbevent)break;evnt(19022);}while(r); -} -S_21961:; -if (((-(*_FUNC_ISNUMBER_LONG_A== 100 ))|(-(*_FUNC_ISNUMBER_LONG_A== 68 )))||new_error){ -if(qbevent){evnt(19024);if(r)goto S_21961;} -S_21962:; -if (((-(*_FUNC_ISNUMBER_LONG_D> 1 ))|(-(*__LONG_E> 1 )))||new_error){ -if(qbevent){evnt(19025);if(r)goto S_21962;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19025);}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_D=*_FUNC_ISNUMBER_LONG_I; -if(!qbevent)break;evnt(19026);}while(r); -do{ -goto fornext_continue_2721; -if(!qbevent)break;evnt(19027);}while(r); -} -S_21968:; -if (((-(*_FUNC_ISNUMBER_LONG_A== 101 ))|(-(*_FUNC_ISNUMBER_LONG_A== 69 )))||new_error){ -if(qbevent){evnt(19029);if(r)goto S_21968;} -S_21969:; -if (((-(*_FUNC_ISNUMBER_LONG_D> 0 ))|(-(*__LONG_E> 1 )))||new_error){ -if(qbevent){evnt(19030);if(r)goto S_21969;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19030);}while(r); -} -do{ -*__LONG_E=*_FUNC_ISNUMBER_LONG_I; -if(!qbevent)break;evnt(19031);}while(r); -do{ -goto fornext_continue_2721; -if(!qbevent)break;evnt(19032);}while(r); -} -S_21975:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||new_error){ -if(qbevent){evnt(19034);if(r)goto S_21975;} -S_21976:; -if (((-(*_FUNC_ISNUMBER_LONG_D==(*_FUNC_ISNUMBER_LONG_I- 1 )))|(-(*__LONG_E==(*_FUNC_ISNUMBER_LONG_I- 1 ))))||new_error){ -if(qbevent){evnt(19035);if(r)goto S_21976;} -do{ -goto fornext_continue_2721; -if(!qbevent)break;evnt(19035);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19036);}while(r); -} -S_21981:; -if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||new_error){ -if(qbevent){evnt(19039);if(r)goto S_21981;} -do{ -goto fornext_continue_2721; -if(!qbevent)break;evnt(19039);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19040);}while(r); -fornext_continue_2721:; -} -fornext_exit_2721:; -do{ -*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; -if(!qbevent)break;evnt(19042);}while(r); +*__LONG_CURRENTID=*_SUB_GETID_LONG_I; +if(!qbevent)break;evnt(19867);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free25.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_ISNUMBER_LONG_ISNUMBER; } -int32 FUNC_ISOPERATOR(qbs*_FUNC_ISOPERATOR_STRING_A2){ +void SUB_INSERTELEMENTS(qbs*_SUB_INSERTELEMENTS_STRING_A,int32*_SUB_INSERTELEMENTS_LONG_I,qbs*_SUB_INSERTELEMENTS_STRING_ELEMENTS){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75425,208 +79497,88 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_22939:; +if ((-(*_SUB_INSERTELEMENTS_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(19871);if(r)goto S_22939;} +S_22940:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_INSERTELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19872);if(r)goto S_22940;} do{ -qbs_set(_FUNC_ISOPERATOR_STRING_A,qbs_ucase(_FUNC_ISOPERATOR_STRING_A2)); +qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_ELEMENTS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19046);}while(r); -do{ -*_FUNC_ISOPERATOR_LONG_L= 0 ; -if(!qbevent)break;evnt(19047);}while(r); -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19048);}while(r); -S_21990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(19048);if(r)goto S_21990;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19048);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19049);}while(r); -S_21994:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(19049);if(r)goto S_21994;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19049);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19050);}while(r); -S_21998:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(19050);if(r)goto S_21998;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19050);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19051);}while(r); -S_22002:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(19051);if(r)goto S_22002;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19051);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19052);}while(r); -S_22006:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(19052);if(r)goto S_22006;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19052);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19053);}while(r); -S_22010:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(19053);if(r)goto S_22010;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19053);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19054);}while(r); -S_22014:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(19055);if(r)goto S_22014;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19055);}while(r); -} -S_22017:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(19056);if(r)goto S_22017;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19056);}while(r); -} -S_22020:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(19057);if(r)goto S_22020;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19057);}while(r); -} -S_22023:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(19058);if(r)goto S_22023;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19058);}while(r); -} -S_22026:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(19059);if(r)goto S_22026;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19059);}while(r); -} -S_22029:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(19060);if(r)goto S_22029;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19060);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19061);}while(r); -S_22033:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(19062);if(r)goto S_22033;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19062);}while(r); -} -S_22036:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(19063);if(r)goto S_22036;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19063);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19064);}while(r); -S_22040:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(19064);if(r)goto S_22040;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19064);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19065);}while(r); -S_22044:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(19065);if(r)goto S_22044;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19065);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19066);}while(r); -S_22048:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(19067);if(r)goto S_22048;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19067);}while(r); -} -S_22051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(19068);if(r)goto S_22051;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19068);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19070);}while(r); -S_22055:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(19070);if(r)goto S_22055;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19070);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19071);}while(r); -S_22059:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(19071);if(r)goto S_22059;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19071);}while(r); -} +if(!qbevent)break;evnt(19873);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(19072);}while(r); -LABEL_OPFOUND:; -if(qbevent){evnt(19073);r=0;} +if(!qbevent)break;evnt(19874);}while(r); +} do{ -*_FUNC_ISOPERATOR_LONG_ISOPERATOR=*_FUNC_ISOPERATOR_LONG_L; -if(!qbevent)break;evnt(19074);}while(r); +qbs_set(_SUB_INSERTELEMENTS_STRING_A,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_ELEMENTS,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19876);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19877);}while(r); +} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19880);}while(r); +do{ +*_SUB_INSERTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_INSERTELEMENTS_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19881);}while(r); +S_22949:; +fornext_value2928= 1 ; +fornext_finalvalue2928=*_SUB_INSERTELEMENTS_LONG_N; +fornext_step2928= 1 ; +if (fornext_step2928<0) fornext_step_negative2928=1; else fornext_step_negative2928=0; +if (new_error) goto fornext_error2928; +goto fornext_entrylabel2928; +while(1){ +fornext_value2928=fornext_step2928+(*_SUB_INSERTELEMENTS_LONG_I2); +fornext_entrylabel2928: +*_SUB_INSERTELEMENTS_LONG_I2=fornext_value2928; +if (fornext_step_negative2928){ +if (fornext_value2928fornext_finalvalue2928) break; +} +fornext_error2928:; +if(qbevent){evnt(19886);if(r)goto S_22949;} +S_22950:; +if ((-(*_SUB_INSERTELEMENTS_LONG_I2> 1 ))||new_error){ +if(qbevent){evnt(19887);if(r)goto S_22950;} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19887);}while(r); +} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,FUNC_GETELEMENT(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_LONG_I2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19888);}while(r); +S_22954:; +if ((-(*_SUB_INSERTELEMENTS_LONG_I==*_SUB_INSERTELEMENTS_LONG_I2))||new_error){ +if(qbevent){evnt(19889);if(r)goto S_22954;} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19889);}while(r); +} +fornext_continue_2927:; +} +fornext_exit_2927:; +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19892);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free26.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_ISOPERATOR_LONG_ISOPERATOR; } -int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I){ +int32 FUNC_ISOPERATOR(qbs*_FUNC_ISOPERATOR_STRING_A2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75639,64 +79591,208 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_22064:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||new_error){ -if(qbevent){evnt(19078);if(r)goto S_22064;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19078);}while(r); -} -S_22067:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_ISUINTEGER_STRING_I, 1 )== 48 ))&(-(_FUNC_ISUINTEGER_STRING_I->len> 1 ))))||new_error){ -if(qbevent){evnt(19079);if(r)goto S_22067;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19079);}while(r); -} -S_22070:; -fornext_value2730= 1 ; -fornext_finalvalue2730=_FUNC_ISUINTEGER_STRING_I->len; -fornext_step2730= 1 ; -if (fornext_step2730<0) fornext_step_negative2730=1; else fornext_step_negative2730=0; -if (new_error) goto fornext_error2730; -goto fornext_entrylabel2730; -while(1){ -fornext_value2730=fornext_step2730+(*_FUNC_ISUINTEGER_LONG_C); -fornext_entrylabel2730: -*_FUNC_ISUINTEGER_LONG_C=fornext_value2730; +qbs_set(_FUNC_ISOPERATOR_STRING_A,qbs_ucase(_FUNC_ISOPERATOR_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2730){ -if (fornext_value2730fornext_finalvalue2730) break; -} -fornext_error2730:; -if(qbevent){evnt(19080);if(r)goto S_22070;} +if(!qbevent)break;evnt(19897);}while(r); do{ -*_FUNC_ISUINTEGER_LONG_V=qbs_asc(_FUNC_ISUINTEGER_STRING_I,*_FUNC_ISUINTEGER_LONG_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19081);}while(r); -S_22072:; -if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||new_error){ -if(qbevent){evnt(19082);if(r)goto S_22072;} +*_FUNC_ISOPERATOR_LONG_L= 0 ; +if(!qbevent)break;evnt(19898);}while(r); +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19899);}while(r); +S_22962:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(19899);if(r)goto S_22962;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19899);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19900);}while(r); +S_22966:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(19900);if(r)goto S_22966;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19900);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19901);}while(r); +S_22970:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(19901);if(r)goto S_22970;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19901);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19902);}while(r); +S_22974:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(19902);if(r)goto S_22974;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19902);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19903);}while(r); +S_22978:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(19903);if(r)goto S_22978;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19903);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19904);}while(r); +S_22982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(19904);if(r)goto S_22982;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19904);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19905);}while(r); +S_22986:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(19906);if(r)goto S_22986;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19906);}while(r); +} +S_22989:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(19907);if(r)goto S_22989;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19907);}while(r); +} +S_22992:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(19908);if(r)goto S_22992;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19908);}while(r); +} +S_22995:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(19909);if(r)goto S_22995;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19909);}while(r); +} +S_22998:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(19910);if(r)goto S_22998;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19910);}while(r); +} +S_23001:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(19911);if(r)goto S_23001;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19911);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19912);}while(r); +S_23005:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(19913);if(r)goto S_23005;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19913);}while(r); +} +S_23008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(19914);if(r)goto S_23008;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19914);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19915);}while(r); +S_23012:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(19915);if(r)goto S_23012;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19915);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19916);}while(r); +S_23016:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(19916);if(r)goto S_23016;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19916);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19917);}while(r); +S_23020:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(19918);if(r)goto S_23020;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19918);}while(r); +} +S_23023:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(19919);if(r)goto S_23023;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19919);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19921);}while(r); +S_23027:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(19921);if(r)goto S_23027;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19921);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19922);}while(r); +S_23031:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(19922);if(r)goto S_23031;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19922);}while(r); +} do{ goto exit_subfunc; -if(!qbevent)break;evnt(19082);}while(r); -} -fornext_continue_2729:; -} -fornext_exit_2729:; +if(!qbevent)break;evnt(19923);}while(r); +LABEL_OPFOUND:; +if(qbevent){evnt(19924);r=0;} do{ -*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ; -if(!qbevent)break;evnt(19084);}while(r); +*_FUNC_ISOPERATOR_LONG_ISOPERATOR=*_FUNC_ISOPERATOR_LONG_L; +if(!qbevent)break;evnt(19925);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free27.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_ISUINTEGER_LONG_ISUINTEGER; +return *_FUNC_ISOPERATOR_LONG_ISOPERATOR; } -int32 FUNC_ISVALIDVARIABLE(qbs*_FUNC_ISVALIDVARIABLE_STRING_A){ +int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75709,179 +79805,64 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_22077:; -fornext_value2734= 1 ; -fornext_finalvalue2734=_FUNC_ISVALIDVARIABLE_STRING_A->len; -fornext_step2734= 1 ; -if (fornext_step2734<0) fornext_step_negative2734=1; else fornext_step_negative2734=0; -if (new_error) goto fornext_error2734; -goto fornext_entrylabel2734; +S_23036:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||new_error){ +if(qbevent){evnt(19929);if(r)goto S_23036;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19929);}while(r); +} +S_23039:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_ISUINTEGER_STRING_I, 1 )== 48 ))&(-(_FUNC_ISUINTEGER_STRING_I->len> 1 ))))||new_error){ +if(qbevent){evnt(19930);if(r)goto S_23039;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19930);}while(r); +} +S_23042:; +fornext_value2934= 1 ; +fornext_finalvalue2934=_FUNC_ISUINTEGER_STRING_I->len; +fornext_step2934= 1 ; +if (fornext_step2934<0) fornext_step_negative2934=1; else fornext_step_negative2934=0; +if (new_error) goto fornext_error2934; +goto fornext_entrylabel2934; while(1){ -fornext_value2734=fornext_step2734+(*_FUNC_ISVALIDVARIABLE_LONG_I); -fornext_entrylabel2734: -*_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value2734; +fornext_value2934=fornext_step2934+(*_FUNC_ISUINTEGER_LONG_C); +fornext_entrylabel2934: +*_FUNC_ISUINTEGER_LONG_C=fornext_value2934; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2734){ -if (fornext_value2734fornext_finalvalue2734) break; +if (fornext_value2934>fornext_finalvalue2934) break; } -fornext_error2734:; -if(qbevent){evnt(19088);if(r)goto S_22077;} +fornext_error2934:; +if(qbevent){evnt(19931);if(r)goto S_23042;} do{ -*_FUNC_ISVALIDVARIABLE_LONG_C=qbs_asc(_FUNC_ISVALIDVARIABLE_STRING_A,*_FUNC_ISVALIDVARIABLE_LONG_I); +*_FUNC_ISUINTEGER_LONG_V=qbs_asc(_FUNC_ISUINTEGER_STRING_I,*_FUNC_ISUINTEGER_LONG_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19089);}while(r); -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ; -if(!qbevent)break;evnt(19090);}while(r); -S_22080:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(19091);if(r)goto S_22080;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ; -if(!qbevent)break;evnt(19091);}while(r); -} -S_22083:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(19092);if(r)goto S_22083;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; -if(!qbevent)break;evnt(19092);}while(r); -} -S_22086:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||new_error){ -if(qbevent){evnt(19093);if(r)goto S_22086;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; -if(!qbevent)break;evnt(19093);}while(r); -} -S_22089:; -if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||new_error){ -if(qbevent){evnt(19094);if(r)goto S_22089;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; -if(!qbevent)break;evnt(19094);}while(r); -} -S_22092:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||new_error){ -if(qbevent){evnt(19095);if(r)goto S_22092;} -}else{ -S_22094:; -if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(19098);if(r)goto S_22094;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; -if(!qbevent)break;evnt(19098);}while(r); +if(!qbevent)break;evnt(19932);}while(r); +S_23044:; +if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||new_error){ +if(qbevent){evnt(19933);if(r)goto S_23044;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(19098);}while(r); +if(!qbevent)break;evnt(19933);}while(r); } -do{ -goto fornext_exit_2733; -if(!qbevent)break;evnt(19099);}while(r); +fornext_continue_2933:; } -fornext_continue_2733:; -} -fornext_exit_2733:; +fornext_exit_2933:; do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; -if(!qbevent)break;evnt(19103);}while(r); -S_22102:; -if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||new_error){ -if(qbevent){evnt(19104);if(r)goto S_22102;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19104);}while(r); -} -do{ -qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_A,_FUNC_ISVALIDVARIABLE_STRING_A->len-*_FUNC_ISVALIDVARIABLE_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19105);}while(r); -S_22106:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%%",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%%",3)))))||new_error){ -if(qbevent){evnt(19106);if(r)goto S_22106;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19106);}while(r); -} -S_22109:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%",2)))))||new_error){ -if(qbevent){evnt(19107);if(r)goto S_22109;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19107);}while(r); -} -S_22112:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&",2)))))||new_error){ -if(qbevent){evnt(19108);if(r)goto S_22112;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19108);}while(r); -} -S_22115:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&&",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&&",3)))))||new_error){ -if(qbevent){evnt(19109);if(r)goto S_22115;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19109);}while(r); -} -S_22118:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("!",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("#",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("##",2)))))||new_error){ -if(qbevent){evnt(19110);if(r)goto S_22118;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19110);}while(r); -} -S_22121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(19111);if(r)goto S_22121;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19111);}while(r); -} -S_22124:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19112);if(r)goto S_22124;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19112);}while(r); -} -S_22127:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("$",1)))&(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("`",1)))))||new_error){ -if(qbevent){evnt(19113);if(r)goto S_22127;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; -if(!qbevent)break;evnt(19113);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19113);}while(r); -} -do{ -qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_E,_FUNC_ISVALIDVARIABLE_STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19114);}while(r); -S_22132:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||new_error){ -if(qbevent){evnt(19115);if(r)goto S_22132;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; -if(!qbevent)break;evnt(19115);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19115);}while(r); -} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; -if(!qbevent)break;evnt(19116);}while(r); +*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ; +if(!qbevent)break;evnt(19935);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free28.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE; +return *_FUNC_ISUINTEGER_LONG_ISUINTEGER; } -qbs* FUNC_LINEFORMAT(qbs*_FUNC_LINEFORMAT_STRING_A){ +int32 FUNC_ISVALIDVARIABLE(qbs*_FUNC_ISVALIDVARIABLE_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -75894,3634 +79875,179 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19123);}while(r); -do{ -*__LONG_LINECONTINUATION= 0 ; -if(!qbevent)break;evnt(19124);}while(r); -LABEL_CONTINUELINE:; -if(qbevent){evnt(19126);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_add(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len(" ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19128);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19130);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_ucase(_FUNC_LINEFORMAT_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19131);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_N=_FUNC_LINEFORMAT_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19133);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I= 1 ; -if(!qbevent)break;evnt(19134);}while(r); -LABEL_LINEFORMATNEXT:; -if(qbevent){evnt(19135);r=0;} -S_22144:; -if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19136);if(r)goto S_22144;} -do{ -goto LABEL_LINEFORMATDONE; -if(!qbevent)break;evnt(19136);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19138);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_chr(*_FUNC_LINEFORMAT_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19139);}while(r); -S_22149:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ -if(qbevent){evnt(19142);if(r)goto S_22149;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19143);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19144);}while(r); -S_22152:; -fornext_value2741=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -fornext_finalvalue2741=*_FUNC_LINEFORMAT_LONG_N- 2 ; -fornext_step2741= 1 ; -if (fornext_step2741<0) fornext_step_negative2741=1; else fornext_step_negative2741=0; -if (new_error) goto fornext_error2741; -goto fornext_entrylabel2741; -while(1){ -fornext_value2741=fornext_step2741+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2741: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2741; -if (fornext_step_negative2741){ -if (fornext_value2741fornext_finalvalue2741) break; -} -fornext_error2741:; -if(qbevent){evnt(19145);if(r)goto S_22152;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19146);}while(r); -S_22154:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 34 ))||new_error){ -if(qbevent){evnt(19148);if(r)goto S_22154;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,1)),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2742=*_FUNC_LINEFORMAT_LONG_I2-(*_FUNC_LINEFORMAT_LONG_I+ 1 ))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19149);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; -if(!qbevent)break;evnt(19150);}while(r); -do{ -goto fornext_exit_2740; -if(!qbevent)break;evnt(19151);}while(r); -} -S_22159:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 92 ))||new_error){ -if(qbevent){evnt(19154);if(r)goto S_22159;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,1)),qbs_new_txt_len("\\\\",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19155);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; -if(!qbevent)break;evnt(19156);}while(r); -} -S_22163:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2< 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C2> 126 )))||new_error){ -if(qbevent){evnt(19159);if(r)goto S_22163;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_O,func_oct(*_FUNC_LINEFORMAT_LONG_C2,32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19160);}while(r); -S_22165:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ -if(qbevent){evnt(19161);if(r)goto S_22165;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19162);}while(r); -S_22167:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ -if(qbevent){evnt(19163);if(r)goto S_22167;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19163);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,1)),qbs_new_txt_len("\\",1)),_FUNC_LINEFORMAT_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19165);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; -if(!qbevent)break;evnt(19166);}while(r); -} -fornext_continue_2740:; -} -fornext_exit_2740:; -S_22175:; -if ((-(*_FUNC_LINEFORMAT_LONG_I2==(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19171);if(r)goto S_22175;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,(*_FUNC_LINEFORMAT_LONG_N- 2 )-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,1)),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2745=(*_FUNC_LINEFORMAT_LONG_N- 2 )-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19172);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_N- 1 ; -if(!qbevent)break;evnt(19173);}while(r); -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19176);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_FIRSTI=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(19181);}while(r); -S_22182:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19182);if(r)goto S_22182;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19183);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_C2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19183);}while(r); -S_22185:; -if ((((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 ))))||new_error){ -if(qbevent){evnt(19184);if(r)goto S_22185;} -do{ -goto LABEL_LFNUMBER; -if(!qbevent)break;evnt(19184);}while(r); -} -} -S_22189:; -if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 ))))||new_error){ -if(qbevent){evnt(19186);if(r)goto S_22189;} -LABEL_LFNUMBER:; -if(qbevent){evnt(19187);r=0;} -S_22190:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("ELSE",4))))))||new_error){ -if(qbevent){evnt(19190);if(r)goto S_22190;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("GOTO",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19191);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 0 ; -if(!qbevent)break;evnt(19199);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19200);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_DP= 0 ; -if(!qbevent)break;evnt(19201);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19202);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 0 ; -if(!qbevent)break;evnt(19203);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_PM= 1 ; -if(!qbevent)break;evnt(19204);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19205);}while(r); -LABEL_LFREADNUMBER:; -if(qbevent){evnt(19210);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 0 ; -if(!qbevent)break;evnt(19211);}while(r); -S_22201:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19213);if(r)goto S_22201;} -S_22202:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ -if(qbevent){evnt(19214);if(r)goto S_22202;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19214);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_DP= 1 ; -if(!qbevent)break;evnt(19214);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 1 ; -if(!qbevent)break;evnt(19214);}while(r); -} -} -S_22208:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(19217);if(r)goto S_22208;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19218);}while(r); -S_22210:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ -if(qbevent){evnt(19219);if(r)goto S_22210;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19219);}while(r); -} -S_22213:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 1 ))||new_error){ -if(qbevent){evnt(19220);if(r)goto S_22213;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_add(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19220);}while(r); -} -S_22216:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ -if(qbevent){evnt(19221);if(r)goto S_22216;} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 3 ; -if(!qbevent)break;evnt(19221);}while(r); -} -S_22219:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 3 ))||new_error){ -if(qbevent){evnt(19222);if(r)goto S_22219;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_add(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19222);}while(r); -} -} -S_22223:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 68 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 70 )))||new_error){ -if(qbevent){evnt(19225);if(r)goto S_22223;} -S_22224:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE< 2 ))||new_error){ -if(qbevent){evnt(19226);if(r)goto S_22224;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19227);}while(r); -S_22226:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))||new_error){ -if(qbevent){evnt(19228);if(r)goto S_22226;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 1 ; -if(!qbevent)break;evnt(19228);}while(r); -} -S_22229:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 68 ))||new_error){ -if(qbevent){evnt(19229);if(r)goto S_22229;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 2 ; -if(!qbevent)break;evnt(19229);}while(r); -} -S_22232:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 70 ))||new_error){ -if(qbevent){evnt(19230);if(r)goto S_22232;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 3 ; -if(!qbevent)break;evnt(19230);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 2 ; -if(!qbevent)break;evnt(19231);}while(r); -} -} -S_22238:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 43 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 45 )))||new_error){ -if(qbevent){evnt(19235);if(r)goto S_22238;} -S_22239:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ -if(qbevent){evnt(19236);if(r)goto S_22239;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19237);}while(r); -S_22241:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 45 ))||new_error){ -if(qbevent){evnt(19238);if(r)goto S_22241;} -do{ -*_FUNC_LINEFORMAT_LONG_PM= -1 ; -if(!qbevent)break;evnt(19238);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 3 ; -if(!qbevent)break;evnt(19239);}while(r); -} -} -S_22247:; -if ((*_FUNC_LINEFORMAT_LONG_VALID)||new_error){ -if(qbevent){evnt(19243);if(r)goto S_22247;} -S_22248:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19244);if(r)goto S_22248;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19244);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19244);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19244);}while(r); -do{ -goto LABEL_LFREADNUMBER; -if(!qbevent)break;evnt(19244);}while(r); -} -} -S_22255:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_WHOLE, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19250);if(r)goto S_22255;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_right(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19250);}while(r); -dl_continue_2746:; -} -dl_exit_2746:; -S_22258:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_FRAC, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19252);if(r)goto S_22258;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_left(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_FRAC->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19252);}while(r); -dl_continue_2748:; -} -dl_exit_2748:; -S_22261:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_EX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19254);if(r)goto S_22261;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_right(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_EX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19254);}while(r); -dl_continue_2750:; -} -dl_exit_2750:; -S_22264:; -if (((-(*_FUNC_LINEFORMAT_LONG_DP!= 0 ))|(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 )))||new_error){ -if(qbevent){evnt(19256);if(r)goto S_22264;} -do{ -*_FUNC_LINEFORMAT_LONG_FLOAT= 1 ; -if(!qbevent)break;evnt(19256);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_FLOAT= 0 ; -if(!qbevent)break;evnt(19256);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_EXTUSED= 1 ; -if(!qbevent)break;evnt(19258);}while(r); -S_22270:; -if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ -if(qbevent){evnt(19260);if(r)goto S_22270;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19260);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19260);}while(r); -} -S_22274:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(19263);if(r)goto S_22274;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19264);}while(r); -S_22276:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19265);if(r)goto S_22276;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19265);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19265);}while(r); -} -S_22280:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19266);if(r)goto S_22280;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19266);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19266);}while(r); -} -S_22284:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19267);if(r)goto S_22284;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19267);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19267);}while(r); -} -} -S_22289:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19270);if(r)goto S_22289;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19271);}while(r); -S_22291:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19272);if(r)goto S_22291;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19272);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19272);}while(r); -} -S_22295:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19273);if(r)goto S_22295;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19273);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19273);}while(r); -} -S_22299:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19274);if(r)goto S_22299;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19274);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19274);}while(r); -} -S_22303:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19275);if(r)goto S_22303;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19275);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19275);}while(r); -} -S_22307:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19276);if(r)goto S_22307;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19276);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19276);}while(r); -} -S_22311:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(19277);if(r)goto S_22311;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19278);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 3 ; -if(!qbevent)break;evnt(19279);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19280);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19281);}while(r); -} -S_22317:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(19283);if(r)goto S_22317;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19284);}while(r); -do{ -goto LABEL_LFFOUNDBITEXT; -if(!qbevent)break;evnt(19285);}while(r); -} -} -S_22322:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19289);if(r)goto S_22322;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19290);}while(r); -S_22324:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19291);if(r)goto S_22324;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19291);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19291);}while(r); -} -S_22328:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19292);if(r)goto S_22328;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19292);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19292);}while(r); -} -S_22332:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(19293);if(r)goto S_22332;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19294);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 1 ; -if(!qbevent)break;evnt(19295);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19296);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19297);}while(r); -} -S_22338:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(19299);if(r)goto S_22338;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19300);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 2 ; -if(!qbevent)break;evnt(19301);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19302);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19303);}while(r); -} -S_22344:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19305);if(r)goto S_22344;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19306);}while(r); -LABEL_LFFOUNDBITEXT:; -if(qbevent){evnt(19307);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19308);}while(r); -S_22347:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19309);if(r)goto S_22347;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19310);}while(r); -S_22349:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(19311);if(r)goto S_22349;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19312);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19313);}while(r); -}else{ -do{ -goto dl_exit_2752; -if(!qbevent)break;evnt(19315);}while(r); -} -dl_continue_2752:; -} -dl_exit_2752:; -S_22356:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19318);if(r)goto S_22356;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19318);}while(r); -} -S_22359:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19320);if(r)goto S_22359;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19320);}while(r); -dl_continue_2753:; -} -dl_exit_2753:; -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_add(_FUNC_LINEFORMAT_STRING_E,_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19321);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19322);}while(r); -} -} -S_22366:; -if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ -if(qbevent){evnt(19326);if(r)goto S_22366;} -S_22367:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19328);if(r)goto S_22367;} -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET=_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19329);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_WHOLE->len+_FUNC_LINEFORMAT_STRING_FRAC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19330);}while(r); -}else{ -S_22371:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19332);if(r)goto S_22371;} -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET= -1 ; -if(!qbevent)break;evnt(19333);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_FRAC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19334);}while(r); -S_22374:; -fornext_value2760= 1 ; -fornext_finalvalue2760=_FUNC_LINEFORMAT_STRING_FRAC->len; -fornext_step2760= 1 ; -if (fornext_step2760<0) fornext_step_negative2760=1; else fornext_step_negative2760=0; -if (new_error) goto fornext_error2760; -goto fornext_entrylabel2760; -while(1){ -fornext_value2760=fornext_step2760+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2760: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2760; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2760){ -if (fornext_value2760fornext_finalvalue2760) break; -} -fornext_error2760:; -if(qbevent){evnt(19335);if(r)goto S_22374;} -S_22375:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_FRAC,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19336);if(r)goto S_22375;} -do{ -goto fornext_exit_2759; -if(!qbevent)break;evnt(19336);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET=*_FUNC_LINEFORMAT_LONG_OFFSET- 1 ; -if(!qbevent)break;evnt(19337);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS=*_FUNC_LINEFORMAT_LONG_SIGDIGITS- 1 ; -if(!qbevent)break;evnt(19338);}while(r); -fornext_continue_2759:; -} -fornext_exit_2759:; -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(19342);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS= 0 ; -if(!qbevent)break;evnt(19343);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_right(qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_FRAC),*_FUNC_LINEFORMAT_LONG_SIGDIGITS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19346);}while(r); -S_22387:; -if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 7 ))||new_error){ -if(qbevent){evnt(19348);if(r)goto S_22387;} -S_22388:; -if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 38 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -38 )))||new_error){ -if(qbevent){evnt(19349);if(r)goto S_22388;} -S_22389:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 38 ))||new_error){ -if(qbevent){evnt(19350);if(r)goto S_22389;} -S_22390:; -if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("3402823",7))))||new_error){ -if(qbevent){evnt(19351);if(r)goto S_22390;} -do{ -goto LABEL_LFXSINGLE; -if(!qbevent)break;evnt(19351);}while(r); -} -} -S_22394:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -38 ))||new_error){ -if(qbevent){evnt(19353);if(r)goto S_22394;} -S_22395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1175494",7))))||new_error){ -if(qbevent){evnt(19354);if(r)goto S_22395;} -do{ -goto LABEL_LFXSINGLE; -if(!qbevent)break;evnt(19354);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 1 ; -if(!qbevent)break;evnt(19356);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19357);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19358);}while(r); -} -} -LABEL_LFXSINGLE:; -if(qbevent){evnt(19361);r=0;} -S_22404:; -if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 16 ))||new_error){ -if(qbevent){evnt(19363);if(r)goto S_22404;} -S_22405:; -if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 308 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -308 )))||new_error){ -if(qbevent){evnt(19364);if(r)goto S_22405;} -S_22406:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 308 ))||new_error){ -if(qbevent){evnt(19365);if(r)goto S_22406;} -S_22407:; -if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1797693134862315",16))))||new_error){ -if(qbevent){evnt(19366);if(r)goto S_22407;} -do{ -goto LABEL_LFXDOUBLE; -if(!qbevent)break;evnt(19366);}while(r); -} -} -S_22411:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -308 ))||new_error){ -if(qbevent){evnt(19368);if(r)goto S_22411;} -S_22412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("2225073858507201",16))))||new_error){ -if(qbevent){evnt(19369);if(r)goto S_22412;} -do{ -goto LABEL_LFXDOUBLE; -if(!qbevent)break;evnt(19369);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 2 ; -if(!qbevent)break;evnt(19371);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19372);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19373);}while(r); -} -} -LABEL_LFXDOUBLE:; -if(qbevent){evnt(19376);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 3 ; -if(!qbevent)break;evnt(19378);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19379);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19379);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_EXTUSED= 0 ; -if(!qbevent)break;evnt(19382);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19383);}while(r); -LABEL_LFFOUNDEXT:; -if(qbevent){evnt(19384);r=0;} -S_22427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19387);if(r)goto S_22427;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19387);}while(r); -} -S_22430:; -if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ -if(qbevent){evnt(19389);if(r)goto S_22430;} -do{ -*_FUNC_LINEFORMAT_LONG_DP= 1 ; -if(!qbevent)break;evnt(19390);}while(r); -S_22432:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19391);if(r)goto S_22432;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19391);}while(r); -} -} -S_22436:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 ))&(qbs_equal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(19394);if(r)goto S_22436;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19394);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19396);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_WHOLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19397);}while(r); -S_22441:; -if ((*_FUNC_LINEFORMAT_LONG_DP)||new_error){ -if(qbevent){evnt(19398);if(r)goto S_22441;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(".",1)),_FUNC_LINEFORMAT_STRING_FRAC)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19398);}while(r); -} -S_22444:; -if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ -if(qbevent){evnt(19399);if(r)goto S_22444;} -S_22445:; -if ((-(*_FUNC_LINEFORMAT_LONG_ED== 1 ))||new_error){ -if(qbevent){evnt(19400);if(r)goto S_22445;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("E",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19400);}while(r); -} -S_22448:; -if ((-(*_FUNC_LINEFORMAT_LONG_ED== 2 ))||new_error){ -if(qbevent){evnt(19401);if(r)goto S_22448;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("D",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19401);}while(r); -} -S_22451:; -if ((-(*_FUNC_LINEFORMAT_LONG_ED== 3 ))||new_error){ -if(qbevent){evnt(19402);if(r)goto S_22451;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("F",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19402);}while(r); -} -S_22454:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_PM== -1 ))&(qbs_notequal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(19403);if(r)goto S_22454;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19403);}while(r); -}else{ -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("+",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19403);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_EX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19404);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19406);}while(r); -S_22462:; -if ((*_FUNC_LINEFORMAT_LONG_EXTUSED)||new_error){ -if(qbevent){evnt(19408);if(r)goto S_22462;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(",",1)),func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_FIRSTI,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_FIRSTI,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19408);}while(r); -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19410);}while(r); -} -S_22467:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(19415);if(r)goto S_22467;} -S_22468:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("H",1))))||new_error){ -if(qbevent){evnt(19416);if(r)goto S_22468;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19417);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19418);}while(r); -LABEL_LFREADHEX:; -if(qbevent){evnt(19419);r=0;} -S_22471:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19420);if(r)goto S_22471;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19421);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19421);}while(r); -S_22474:; -if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))|((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 70 ))))||new_error){ -if(qbevent){evnt(19422);if(r)goto S_22474;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19422);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19422);}while(r); -do{ -goto LABEL_LFREADHEX; -if(!qbevent)break;evnt(19422);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&H",2),_FUNC_LINEFORMAT_STRING_HX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19424);}while(r); -S_22481:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19427);if(r)goto S_22481;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19427);}while(r); -dl_continue_2762:; -} -dl_exit_2762:; -S_22484:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19428);if(r)goto S_22484;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19428);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19430);}while(r); -S_22488:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(19432);if(r)goto S_22488;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19433);}while(r); -S_22490:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(19434);if(r)goto S_22490;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19434);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19434);}while(r); -} -S_22494:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(19435);if(r)goto S_22494;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19435);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19435);}while(r); -} -S_22498:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(19436);if(r)goto S_22498;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19436);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19436);}while(r); -} -} -S_22503:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19439);if(r)goto S_22503;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19440);}while(r); -S_22505:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(19441);if(r)goto S_22505;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19441);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19441);}while(r); -} -S_22509:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(19442);if(r)goto S_22509;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19442);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19442);}while(r); -} -S_22513:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(19443);if(r)goto S_22513;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19443);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19443);}while(r); -} -S_22517:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(19444);if(r)goto S_22517;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19444);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19444);}while(r); -} -S_22521:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(19445);if(r)goto S_22521;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19445);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19445);}while(r); -} -S_22525:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(19446);if(r)goto S_22525;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19447);}while(r); -do{ -goto LABEL_LFHXBITEXT; -if(!qbevent)break;evnt(19448);}while(r); -} -} -S_22530:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19452);if(r)goto S_22530;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19453);}while(r); -S_22532:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(19454);if(r)goto S_22532;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19454);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19454);}while(r); -} -S_22536:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(19455);if(r)goto S_22536;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19455);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19455);}while(r); -} -S_22540:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19456);if(r)goto S_22540;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19457);}while(r); -LABEL_LFHXBITEXT:; -if(qbevent){evnt(19458);r=0;} -S_22542:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19459);if(r)goto S_22542;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19460);}while(r); -S_22544:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(19461);if(r)goto S_22544;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19462);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19463);}while(r); -}else{ -do{ -goto dl_exit_2764; -if(!qbevent)break;evnt(19465);}while(r); -} -dl_continue_2764:; -} -dl_exit_2764:; -S_22551:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19468);if(r)goto S_22551;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19468);}while(r); -} -S_22554:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19470);if(r)goto S_22554;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19470);}while(r); -dl_continue_2765:; -} -dl_exit_2765:; -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(19471);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19476);}while(r); -S_22561:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 8 )))||new_error){ -if(qbevent){evnt(19477);if(r)goto S_22561;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19477);}while(r); -} -S_22564:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 4 )))||new_error){ -if(qbevent){evnt(19478);if(r)goto S_22564;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19478);}while(r); -} -do{ -goto LABEL_LFHXEXT2; -if(!qbevent)break;evnt(19479);}while(r); -LABEL_LFHXEXT:; -if(qbevent){evnt(19480);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19481);}while(r); -LABEL_LFHXEXT2:; -if(qbevent){evnt(19482);r=0;} -S_22569:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 16 )))||new_error){ -if(qbevent){evnt(19485);if(r)goto S_22569;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19485);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19485);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; -if(!qbevent)break;evnt(19486);}while(r); -S_22574:; -fornext_value2771= 1 ; -fornext_finalvalue2771=_FUNC_LINEFORMAT_STRING_HX->len; -fornext_step2771= 1 ; -if (fornext_step2771<0) fornext_step_negative2771=1; else fornext_step_negative2771=0; -if (new_error) goto fornext_error2771; -goto fornext_entrylabel2771; -while(1){ -fornext_value2771=fornext_step2771+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2771: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2771; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2771){ -if (fornext_value2771fornext_finalvalue2771) break; -} -fornext_error2771:; -if(qbevent){evnt(19487);if(r)goto S_22574;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19488);}while(r); -S_22576:; -if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 57 ))||new_error){ -if(qbevent){evnt(19489);if(r)goto S_22576;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; -if(!qbevent)break;evnt(19489);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 65 + 10 ; -if(!qbevent)break;evnt(19489);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 16 )+*_FUNC_LINEFORMAT_LONG_V2; -if(!qbevent)break;evnt(19490);}while(r); -fornext_continue_2770:; -} -fornext_exit_2770:; -LABEL_FINISHHEXOCTBIN:; -if(qbevent){evnt(19493);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19494);}while(r); -S_22584:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_E, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(19495);if(r)goto S_22584;} -S_22585:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(19498);if(r)goto S_22585;} -S_22586:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 127 ))||new_error){ -if(qbevent){evnt(19499);if(r)goto S_22586;} -S_22587:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 255 ))||new_error){ -if(qbevent){evnt(19500);if(r)goto S_22587;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19500);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19500);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 255 )+ 1 ; -if(!qbevent)break;evnt(19501);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19502);}while(r); -} -} -S_22595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(19506);if(r)goto S_22595;} -S_22596:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 32767 ))||new_error){ -if(qbevent){evnt(19507);if(r)goto S_22596;} -S_22597:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 65535 ))||new_error){ -if(qbevent){evnt(19508);if(r)goto S_22597;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19508);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19508);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 65535 )+ 1 ; -if(!qbevent)break;evnt(19509);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19510);}while(r); -} -} -S_22605:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(19514);if(r)goto S_22605;} -S_22606:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 2147483647 ))||new_error){ -if(qbevent){evnt(19515);if(r)goto S_22606;} -S_22607:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 4294967295ll ))||new_error){ -if(qbevent){evnt(19516);if(r)goto S_22607;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19516);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19516);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 4294967295ll )+ 1 ; -if(!qbevent)break;evnt(19517);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19518);}while(r); -} -} -S_22615:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(19522);if(r)goto S_22615;} -S_22616:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 9223372036854775807ll ))||new_error){ -if(qbevent){evnt(19523);if(r)goto S_22616;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(~(*_FUNC_LINEFORMAT_UINTEGER64_V))+ 1 ; -if(!qbevent)break;evnt(19525);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19526);}while(r); -} -} -S_22621:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19530);if(r)goto S_22621;} -do{ -*_FUNC_LINEFORMAT_LONG_VBITN=qbr(func_val(_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19531);}while(r); -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; -if(!qbevent)break;evnt(19532);}while(r); -S_22624:; -fornext_value2774= 1 ; -fornext_finalvalue2774=*_FUNC_LINEFORMAT_LONG_VBITN- 1 ; -fornext_step2774= 1 ; -if (fornext_step2774<0) fornext_step_negative2774=1; else fornext_step_negative2774=0; -if (new_error) goto fornext_error2774; -goto fornext_entrylabel2774; -while(1){ -fornext_value2774=fornext_step2774+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2774: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2774; -if (fornext_step_negative2774){ -if (fornext_value2774fornext_finalvalue2774) break; -} -fornext_error2774:; -if(qbevent){evnt(19532);if(r)goto S_22624;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; -if(!qbevent)break;evnt(19532);}while(r); -fornext_continue_2773:; -} -fornext_exit_2773:; -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; -if(!qbevent)break;evnt(19532);}while(r); -S_22628:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ -if(qbevent){evnt(19533);if(r)goto S_22628;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; -if(!qbevent)break;evnt(19534);}while(r); -S_22630:; -fornext_value2776= 1 ; -fornext_finalvalue2776=*_FUNC_LINEFORMAT_LONG_VBITN; -fornext_step2776= 1 ; -if (fornext_step2776<0) fornext_step_negative2776=1; else fornext_step_negative2776=0; -if (new_error) goto fornext_error2776; -goto fornext_entrylabel2776; -while(1){ -fornext_value2776=fornext_step2776+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2776: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2776; -if (fornext_step_negative2776){ -if (fornext_value2776fornext_finalvalue2776) break; -} -fornext_error2776:; -if(qbevent){evnt(19534);if(r)goto S_22630;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; -if(!qbevent)break;evnt(19534);}while(r); -fornext_continue_2775:; -} -fornext_exit_2775:; -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; -if(!qbevent)break;evnt(19534);}while(r); -S_22634:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ -if(qbevent){evnt(19535);if(r)goto S_22634;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19535);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19535);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))&*_FUNC_LINEFORMAT_UINTEGER64_H)+ 1 ; -if(!qbevent)break;evnt(19536);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19537);}while(r); -} -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),_FUNC_LINEFORMAT_STRING_NUM),_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN),qbs_new_txt_len(",",1)),_FUNC_LINEFORMAT_STRING_FULLHX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19543);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19545);}while(r); -} -} -S_22647:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(19551);if(r)goto S_22647;} -S_22648:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("O",1))))||new_error){ -if(qbevent){evnt(19552);if(r)goto S_22648;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19553);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19555);}while(r); -LABEL_LFREADOCT:; -if(qbevent){evnt(19556);r=0;} -S_22651:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19557);if(r)goto S_22651;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19558);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19558);}while(r); -S_22654:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 55 )))||new_error){ -if(qbevent){evnt(19559);if(r)goto S_22654;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19559);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19559);}while(r); -do{ -goto LABEL_LFREADOCT; -if(!qbevent)break;evnt(19559);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&O",2),_FUNC_LINEFORMAT_STRING_HX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19561);}while(r); -S_22661:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19564);if(r)goto S_22661;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19564);}while(r); -dl_continue_2777:; -} -dl_exit_2777:; -S_22664:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19565);if(r)goto S_22664;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19565);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19567);}while(r); -S_22668:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(19569);if(r)goto S_22668;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19570);}while(r); -S_22670:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(19571);if(r)goto S_22670;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19571);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19571);}while(r); -} -S_22674:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(19572);if(r)goto S_22674;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19572);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19572);}while(r); -} -S_22678:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(19573);if(r)goto S_22678;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19573);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19573);}while(r); -} -} -S_22683:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19576);if(r)goto S_22683;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19577);}while(r); -S_22685:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(19578);if(r)goto S_22685;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19578);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19578);}while(r); -} -S_22689:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(19579);if(r)goto S_22689;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19579);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19579);}while(r); -} -S_22693:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(19580);if(r)goto S_22693;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19580);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19580);}while(r); -} -S_22697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(19581);if(r)goto S_22697;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19581);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19581);}while(r); -} -S_22701:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(19582);if(r)goto S_22701;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19582);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19582);}while(r); -} -S_22705:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(19583);if(r)goto S_22705;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19584);}while(r); -do{ -goto LABEL_LFOTBITEXT; -if(!qbevent)break;evnt(19585);}while(r); -} -} -S_22710:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19589);if(r)goto S_22710;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19590);}while(r); -S_22712:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(19591);if(r)goto S_22712;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19591);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19591);}while(r); -} -S_22716:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(19592);if(r)goto S_22716;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19592);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19592);}while(r); -} -S_22720:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19593);if(r)goto S_22720;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19594);}while(r); -LABEL_LFOTBITEXT:; -if(qbevent){evnt(19595);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19596);}while(r); -S_22723:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19597);if(r)goto S_22723;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19598);}while(r); -S_22725:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(19599);if(r)goto S_22725;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19600);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19601);}while(r); -}else{ -do{ -goto dl_exit_2779; -if(!qbevent)break;evnt(19603);}while(r); -} -dl_continue_2779:; -} -dl_exit_2779:; -S_22732:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19606);if(r)goto S_22732;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19606);}while(r); -} -S_22735:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19608);if(r)goto S_22735;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19608);}while(r); -dl_continue_2780:; -} -dl_exit_2780:; -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(19609);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19614);}while(r); -S_22742:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 11 )))||new_error){ -if(qbevent){evnt(19616);if(r)goto S_22742;} -S_22743:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 11 ))|(-(qbs_asc(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ))<= 51 ))))||new_error){ -if(qbevent){evnt(19617);if(r)goto S_22743;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19617);}while(r); -} -} -S_22747:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 6 )))||new_error){ -if(qbevent){evnt(19620);if(r)goto S_22747;} -S_22748:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 6 ))|(qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1)))))||new_error){ -if(qbevent){evnt(19621);if(r)goto S_22748;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19621);}while(r); -} -} -do{ -goto LABEL_LFOTEXT2; -if(!qbevent)break;evnt(19624);}while(r); -LABEL_LFOTEXT:; -if(qbevent){evnt(19625);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19626);}while(r); -LABEL_LFOTEXT2:; -if(qbevent){evnt(19627);r=0;} -S_22754:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 22 )))||new_error){ -if(qbevent){evnt(19631);if(r)goto S_22754;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19631);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19631);}while(r); -} -S_22758:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len== 22 )))||new_error){ -if(qbevent){evnt(19632);if(r)goto S_22758;} -S_22759:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(19633);if(r)goto S_22759;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19633);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19633);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; -if(!qbevent)break;evnt(19636);}while(r); -S_22765:; -fornext_value2789= 1 ; -fornext_finalvalue2789=_FUNC_LINEFORMAT_STRING_HX->len; -fornext_step2789= 1 ; -if (fornext_step2789<0) fornext_step_negative2789=1; else fornext_step_negative2789=0; -if (new_error) goto fornext_error2789; -goto fornext_entrylabel2789; -while(1){ -fornext_value2789=fornext_step2789+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2789: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2789; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2789){ -if (fornext_value2789fornext_finalvalue2789) break; -} -fornext_error2789:; -if(qbevent){evnt(19637);if(r)goto S_22765;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19638);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; -if(!qbevent)break;evnt(19639);}while(r); -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 8 )+*_FUNC_LINEFORMAT_LONG_V2; -if(!qbevent)break;evnt(19640);}while(r); -fornext_continue_2788:; -} -fornext_exit_2788:; -do{ -goto LABEL_FINISHHEXOCTBIN; -if(!qbevent)break;evnt(19643);}while(r); -} -} -S_22773:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(19649);if(r)goto S_22773;} -S_22774:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("B",1))))||new_error){ -if(qbevent){evnt(19650);if(r)goto S_22774;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19651);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19653);}while(r); -LABEL_LFREADBIN:; -if(qbevent){evnt(19654);r=0;} -S_22777:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19655);if(r)goto S_22777;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19656);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19656);}while(r); -S_22780:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 49 )))||new_error){ -if(qbevent){evnt(19657);if(r)goto S_22780;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19657);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19657);}while(r); -do{ -goto LABEL_LFREADBIN; -if(!qbevent)break;evnt(19657);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&B",2),_FUNC_LINEFORMAT_STRING_HX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19659);}while(r); -S_22787:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19662);if(r)goto S_22787;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19662);}while(r); -dl_continue_2791:; -} -dl_exit_2791:; -S_22790:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19663);if(r)goto S_22790;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19663);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19665);}while(r); -S_22794:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(19667);if(r)goto S_22794;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19668);}while(r); -S_22796:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(19669);if(r)goto S_22796;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19669);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19669);}while(r); -} -S_22800:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(19670);if(r)goto S_22800;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19670);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19670);}while(r); -} -S_22804:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(19671);if(r)goto S_22804;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19671);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19671);}while(r); -} -} -S_22809:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19674);if(r)goto S_22809;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19675);}while(r); -S_22811:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(19676);if(r)goto S_22811;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19676);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19676);}while(r); -} -S_22815:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(19677);if(r)goto S_22815;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19677);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19677);}while(r); -} -S_22819:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(19678);if(r)goto S_22819;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19678);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19678);}while(r); -} -S_22823:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(19679);if(r)goto S_22823;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19679);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19679);}while(r); -} -S_22827:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(19680);if(r)goto S_22827;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19680);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19680);}while(r); -} -S_22831:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(19681);if(r)goto S_22831;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19682);}while(r); -do{ -goto LABEL_LFBIBITEXT; -if(!qbevent)break;evnt(19683);}while(r); -} -} -S_22836:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19689);if(r)goto S_22836;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19690);}while(r); -S_22838:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(19691);if(r)goto S_22838;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19691);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19691);}while(r); -} -S_22842:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(19692);if(r)goto S_22842;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19692);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19692);}while(r); -} -S_22846:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19693);if(r)goto S_22846;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19694);}while(r); -LABEL_LFBIBITEXT:; -if(qbevent){evnt(19695);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19696);}while(r); -S_22849:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19697);if(r)goto S_22849;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19698);}while(r); -S_22851:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(19699);if(r)goto S_22851;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19700);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19701);}while(r); -}else{ -do{ -goto dl_exit_2793; -if(!qbevent)break;evnt(19703);}while(r); -} -dl_continue_2793:; -} -dl_exit_2793:; -S_22858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19706);if(r)goto S_22858;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19706);}while(r); -} -S_22861:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19708);if(r)goto S_22861;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19708);}while(r); -dl_continue_2794:; -} -dl_exit_2794:; -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(19709);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19714);}while(r); -S_22868:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 32 )))||new_error){ -if(qbevent){evnt(19715);if(r)goto S_22868;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19715);}while(r); -} -S_22871:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 16 )))||new_error){ -if(qbevent){evnt(19716);if(r)goto S_22871;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19716);}while(r); -} -do{ -goto LABEL_LFBIEXT2; -if(!qbevent)break;evnt(19718);}while(r); -LABEL_LFBIEXT:; -if(qbevent){evnt(19719);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19720);}while(r); -LABEL_LFBIEXT2:; -if(qbevent){evnt(19721);r=0;} -S_22876:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 64 )))||new_error){ -if(qbevent){evnt(19724);if(r)goto S_22876;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19724);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19724);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; -if(!qbevent)break;evnt(19726);}while(r); -S_22881:; -fornext_value2800= 1 ; -fornext_finalvalue2800=_FUNC_LINEFORMAT_STRING_HX->len; -fornext_step2800= 1 ; -if (fornext_step2800<0) fornext_step_negative2800=1; else fornext_step_negative2800=0; -if (new_error) goto fornext_error2800; -goto fornext_entrylabel2800; -while(1){ -fornext_value2800=fornext_step2800+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2800: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2800; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2800){ -if (fornext_value2800fornext_finalvalue2800) break; -} -fornext_error2800:; -if(qbevent){evnt(19727);if(r)goto S_22881;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19728);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; -if(!qbevent)break;evnt(19729);}while(r); -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 2 )+*_FUNC_LINEFORMAT_LONG_V2; -if(!qbevent)break;evnt(19730);}while(r); -fornext_continue_2799:; -} -fornext_exit_2799:; -do{ -goto LABEL_FINISHHEXOCTBIN; -if(!qbevent)break;evnt(19733);}while(r); -} -} -S_22889:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(19739);if(r)goto S_22889;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected &H... or &O...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19739);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19739);}while(r); -} -S_22893:; -if (((((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 90 ))))|(-(*_FUNC_LINEFORMAT_LONG_C== 95 )))||new_error){ -if(qbevent){evnt(19743);if(r)goto S_22893;} -S_22894:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 95 ))||new_error){ -if(qbevent){evnt(19744);if(r)goto S_22894;} -do{ -*_FUNC_LINEFORMAT_LONG_P2= 0 ; -if(!qbevent)break;evnt(19744);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(19744);}while(r); -} -S_22899:; -fornext_value2803=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -fornext_finalvalue2803=*_FUNC_LINEFORMAT_LONG_N; -fornext_step2803= 1 ; -if (fornext_step2803<0) fornext_step_negative2803=1; else fornext_step_negative2803=0; -if (new_error) goto fornext_error2803; -goto fornext_entrylabel2803; -while(1){ -fornext_value2803=fornext_step2803+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2803: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2803; -if (fornext_step_negative2803){ -if (fornext_value2803fornext_finalvalue2803) break; -} -fornext_error2803:; -if(qbevent){evnt(19745);if(r)goto S_22899;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19746);}while(r); -S_22901:; -if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C2)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(19747);if(r)goto S_22901;} -do{ -goto fornext_exit_2802; -if(!qbevent)break;evnt(19747);}while(r); -} -S_22904:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2!= 95 ))||new_error){ -if(qbevent){evnt(19748);if(r)goto S_22904;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; -if(!qbevent)break;evnt(19748);}while(r); -} -fornext_continue_2802:; -} -fornext_exit_2802:; -S_22908:; -if ((*_FUNC_LINEFORMAT_LONG_P2)||new_error){ -if(qbevent){evnt(19750);if(r)goto S_22908;} -do{ -*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19752);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A3,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19753);}while(r); -S_22911:; -if ((-(*_FUNC_LINEFORMAT_LONG_N2== 3 ))||new_error){ -if(qbevent){evnt(19756);if(r)goto S_22911;} -S_22912:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("REM",3))))||new_error){ -if(qbevent){evnt(19757);if(r)goto S_22912;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; -if(!qbevent)break;evnt(19758);}while(r); -S_22914:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19759);if(r)goto S_22914;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19760);}while(r); -S_22916:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19761);if(r)goto S_22916;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19761);}while(r); -do{ -goto LABEL_EXTCHECK; -if(!qbevent)break;evnt(19761);}while(r); -} -} -S_22921:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 ))),(qbs_add(__STRING1_SP,qbs_new_txt_len("THEN",4))))))||new_error){ -if(qbevent){evnt(19765);if(r)goto S_22921;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19765);}while(r); -} -do{ -qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("REM",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19766);}while(r); -do{ -goto LABEL_COMMENT; -if(!qbevent)break;evnt(19767);}while(r); -} -} -S_22928:; -if ((-(*_FUNC_LINEFORMAT_LONG_N2== 4 ))||new_error){ -if(qbevent){evnt(19772);if(r)goto S_22928;} -S_22929:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("DATA",4))))||new_error){ -if(qbevent){evnt(19773);if(r)goto S_22929;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19774);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; -if(!qbevent)break;evnt(19775);}while(r); -S_22932:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19776);if(r)goto S_22932;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19777);}while(r); -S_22934:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19778);if(r)goto S_22934;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19778);}while(r); -do{ -goto LABEL_EXTCHECK; -if(!qbevent)break;evnt(19778);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; -if(!qbevent)break;evnt(19781);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; -if(!qbevent)break;evnt(19782);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; -if(!qbevent)break;evnt(19783);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_FINALDATA= 0 ; -if(!qbevent)break;evnt(19784);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19785);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1= 0 ; -if(!qbevent)break;evnt(19786);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P2= 0 ; -if(!qbevent)break;evnt(19787);}while(r); -LABEL_NEXTDATACHR:; -if(qbevent){evnt(19788);r=0;} -S_22946:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19789);if(r)goto S_22946;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19790);}while(r); -S_22948:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 9 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 32 )))||new_error){ -if(qbevent){evnt(19791);if(r)goto S_22948;} -S_22949:; -if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ -if(qbevent){evnt(19792);if(r)goto S_22949;} -do{ -goto LABEL_SKIPWHITESPACE; -if(!qbevent)break;evnt(19792);}while(r); -} -} -S_22953:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 58 ))||new_error){ -if(qbevent){evnt(19795);if(r)goto S_22953;} -S_22954:; -if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ -if(qbevent){evnt(19796);if(r)goto S_22954;} -do{ -*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; -if(!qbevent)break;evnt(19796);}while(r); -do{ -goto LABEL_ADDDATA; -if(!qbevent)break;evnt(19796);}while(r); -} -} -S_22959:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 44 ))||new_error){ -if(qbevent){evnt(19799);if(r)goto S_22959;} -S_22960:; -if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ -if(qbevent){evnt(19800);if(r)goto S_22960;} -LABEL_ADDDATA:; -if(qbevent){evnt(19801);r=0;} -S_22961:; -if ((-(*__LONG_PREPASS== 0 ))||new_error){ -if(qbevent){evnt(19802);if(r)goto S_22961;} -S_22962:; -if ((*_FUNC_LINEFORMAT_LONG_P1)||new_error){ -if(qbevent){evnt(19803);if(r)goto S_22962;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19807);}while(r); -} -S_22965:; -if ((*_FUNC_LINEFORMAT_LONG_SPEECHMARKS)||new_error){ -if(qbevent){evnt(19810);if(r)goto S_22965;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19812);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 44 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19816);}while(r); -} -S_22970:; -if ((-(*_FUNC_LINEFORMAT_LONG_FINALDATA== 1 ))||new_error){ -if(qbevent){evnt(19818);if(r)goto S_22970;} -do{ -goto LABEL_FINISHEDDATA; -if(!qbevent)break;evnt(19818);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19819);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1= 0 ; -if(!qbevent)break;evnt(19820);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P2= 0 ; -if(!qbevent)break;evnt(19821);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; -if(!qbevent)break;evnt(19822);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; -if(!qbevent)break;evnt(19823);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; -if(!qbevent)break;evnt(19824);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19825);}while(r); -do{ -goto LABEL_NEXTDATACHR; -if(!qbevent)break;evnt(19826);}while(r); -} -} -S_22983:; -if ((-(*_FUNC_LINEFORMAT_LONG_COMMANEXT== 1 ))||new_error){ -if(qbevent){evnt(19830);if(r)goto S_22983;} -S_22984:; -if (((-(*_FUNC_LINEFORMAT_LONG_C!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 9 )))||new_error){ -if(qbevent){evnt(19831);if(r)goto S_22984;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected , after quoted string in DATA statement",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19831);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19831);}while(r); -} -} -S_22989:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ -if(qbevent){evnt(19834);if(r)goto S_22989;} -S_22990:; -if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 1 ))||new_error){ -if(qbevent){evnt(19835);if(r)goto S_22990;} -do{ -*_FUNC_LINEFORMAT_LONG_COMMANEXT= 1 ; -if(!qbevent)break;evnt(19836);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; -if(!qbevent)break;evnt(19837);}while(r); -} -S_22994:; -if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ -if(qbevent){evnt(19839);if(r)goto S_22994;} -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 1 ; -if(!qbevent)break;evnt(19839);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_SCAN= 1 ; -if(!qbevent)break;evnt(19842);}while(r); -S_22999:; -if ((-(*_FUNC_LINEFORMAT_LONG_P1== 0 ))||new_error){ -if(qbevent){evnt(19844);if(r)goto S_22999;} -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(19844);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(19844);}while(r); -} -S_23003:; -if (((-(*_FUNC_LINEFORMAT_LONG_C!= 9 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 32 )))||new_error){ -if(qbevent){evnt(19845);if(r)goto S_23003;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(19845);}while(r); -} -LABEL_SKIPWHITESPACE:; -if(qbevent){evnt(19847);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19848);}while(r); -do{ -goto LABEL_NEXTDATACHR; -if(!qbevent)break;evnt(19848);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; -if(!qbevent)break;evnt(19850);}while(r); -do{ -goto LABEL_ADDDATA; -if(!qbevent)break;evnt(19850);}while(r); -LABEL_FINISHEDDATA:; -if(qbevent){evnt(19851);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19852);}while(r); -S_23012:; -if ((-(*__LONG_PREPASS== 0 ))||new_error){ -if(qbevent){evnt(19853);if(r)goto S_23012;} -do{ -sub_put2( 16 ,NULL,byte_element((uint64)_FUNC_LINEFORMAT_STRING_X->chr,_FUNC_LINEFORMAT_STRING_X->len,byte_element_2804),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19854);}while(r); -do{ -*__LONG_DATAOFFSET=*__LONG_DATAOFFSET+_FUNC_LINEFORMAT_STRING_X->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19855);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_space((_FUNC_LINEFORMAT_STRING_X->len- 1 )* 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19857);}while(r); -S_23016:; -fornext_value2808= 1 ; -fornext_finalvalue2808=_FUNC_LINEFORMAT_STRING_X->len- 1 ; -fornext_step2808= 1 ; -if (fornext_step2808<0) fornext_step_negative2808=1; else fornext_step_negative2808=0; -if (new_error) goto fornext_error2808; -goto fornext_entrylabel2808; -while(1){ -fornext_value2808=fornext_step2808+(*_FUNC_LINEFORMAT_LONG_EC); -fornext_entrylabel2808: -*_FUNC_LINEFORMAT_LONG_EC=fornext_value2808; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2808){ -if (fornext_value2808fornext_finalvalue2808) break; -} -fornext_error2808:; -if(qbevent){evnt(19858);if(r)goto S_23016;} -do{ -*_FUNC_LINEFORMAT_LONG_V1=qbs_asc(_FUNC_LINEFORMAT_STRING_X,*_FUNC_LINEFORMAT_LONG_EC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19860);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V1/ 16 ; -if(!qbevent)break;evnt(19861);}while(r); -S_23019:; -if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 9 ))||new_error){ -if(qbevent){evnt(19861);if(r)goto S_23019;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 48 ; -if(!qbevent)break;evnt(19861);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 55 ; -if(!qbevent)break;evnt(19861);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1& 15 ; -if(!qbevent)break;evnt(19862);}while(r); -S_23025:; -if ((-(*_FUNC_LINEFORMAT_LONG_V1<= 9 ))||new_error){ -if(qbevent){evnt(19862);if(r)goto S_23025;} -do{ -*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 48 ; -if(!qbevent)break;evnt(19862);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 55 ; -if(!qbevent)break;evnt(19862);}while(r); -} -do{ -tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ -tmp_fileno=(*_FUNC_LINEFORMAT_LONG_EC* 2 )-( 1 ); if (!new_error){ -tmp_long=*_FUNC_LINEFORMAT_LONG_V1; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(19863);}while(r); -do{ -tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ -tmp_fileno=*_FUNC_LINEFORMAT_LONG_EC* 2 ; if (!new_error){ -tmp_long=*_FUNC_LINEFORMAT_LONG_V2; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(19864);}while(r); -fornext_continue_2807:; -} -fornext_exit_2807:; -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("DATA",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19869);}while(r); -S_23035:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_E->len))||new_error){ -if(qbevent){evnt(19869);if(r)goto S_23035;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("_",1)),_FUNC_LINEFORMAT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19869);}while(r); -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19870);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19874);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; -if(!qbevent)break;evnt(19875);}while(r); -LABEL_EXTCHECK:; -if(qbevent){evnt(19878);r=0;} -S_23043:; -if ((-(*_FUNC_LINEFORMAT_LONG_N2> 40 ))||new_error){ -if(qbevent){evnt(19879);if(r)goto S_23043;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Identifier longer than 40 character limit",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19879);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19879);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_C3=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19880);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_M= 0 ; -if(!qbevent)break;evnt(19881);}while(r); S_23049:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 126 ))||new_error){ -if(qbevent){evnt(19882);if(r)goto S_23049;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19883);}while(r); -S_23051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(19884);if(r)goto S_23051;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19884);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19884);}while(r); -} -S_23055:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(19885);if(r)goto S_23055;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19885);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19885);}while(r); -} -S_23059:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(19886);if(r)goto S_23059;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19886);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19886);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_chr(qbs_asc(_FUNC_LINEFORMAT_STRING_E2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19887);}while(r); -S_23064:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(19888);if(r)goto S_23064;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19888);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19888);}while(r); -} -S_23068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(19889);if(r)goto S_23068;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19889);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19889);}while(r); -} -S_23072:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19890);if(r)goto S_23072;} -do{ -*_FUNC_LINEFORMAT_LONG_M= 1 ; -if(!qbevent)break;evnt(19890);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~`",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19890);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19890);}while(r); -} -} -S_23078:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 37 ))||new_error){ -if(qbevent){evnt(19892);if(r)goto S_23078;} -do{ -*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19893);}while(r); -S_23080:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 37 ))||new_error){ -if(qbevent){evnt(19894);if(r)goto S_23080;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19894);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19894);}while(r); -} -S_23084:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ -if(qbevent){evnt(19895);if(r)goto S_23084;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19895);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19895);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19896);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19896);}while(r); -} -S_23091:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 38 ))||new_error){ -if(qbevent){evnt(19898);if(r)goto S_23091;} -do{ -*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19899);}while(r); -S_23093:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ -if(qbevent){evnt(19900);if(r)goto S_23093;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19900);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19900);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19901);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19901);}while(r); -} -S_23100:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 33 ))||new_error){ -if(qbevent){evnt(19903);if(r)goto S_23100;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19903);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19903);}while(r); -} -S_23104:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 35 ))||new_error){ -if(qbevent){evnt(19904);if(r)goto S_23104;} -do{ -*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19905);}while(r); -S_23106:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 35 ))||new_error){ -if(qbevent){evnt(19906);if(r)goto S_23106;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19906);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19906);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19907);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19907);}while(r); -} -S_23113:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 36 ))||new_error){ -if(qbevent){evnt(19909);if(r)goto S_23113;} -do{ -*_FUNC_LINEFORMAT_LONG_M= 1 ; -if(!qbevent)break;evnt(19909);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19909);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19909);}while(r); -} -S_23118:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 96 ))||new_error){ -if(qbevent){evnt(19910);if(r)goto S_23118;} -do{ -*_FUNC_LINEFORMAT_LONG_M= 1 ; -if(!qbevent)break;evnt(19910);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19910);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(19910);}while(r); -} -S_23123:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I)== 46 )))||new_error){ -if(qbevent){evnt(19914);if(r)goto S_23123;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19915);}while(r); -S_23125:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(19916);if(r)goto S_23125;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19918);}while(r); -S_23127:; -fornext_value2812=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -fornext_finalvalue2812=*_FUNC_LINEFORMAT_LONG_N; -fornext_step2812= 1 ; -if (fornext_step2812<0) fornext_step_negative2812=1; else fornext_step_negative2812=0; -if (new_error) goto fornext_error2812; -goto fornext_entrylabel2812; +fornext_value2938= 1 ; +fornext_finalvalue2938=_FUNC_ISVALIDVARIABLE_STRING_A->len; +fornext_step2938= 1 ; +if (fornext_step2938<0) fornext_step_negative2938=1; else fornext_step_negative2938=0; +if (new_error) goto fornext_error2938; +goto fornext_entrylabel2938; while(1){ -fornext_value2812=fornext_step2812+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2812: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2812; -if (fornext_step_negative2812){ -if (fornext_value2812fornext_finalvalue2812) break; +if (fornext_value2938>fornext_finalvalue2938) break; } -fornext_error2812:; -if(qbevent){evnt(19919);if(r)goto S_23127;} +fornext_error2938:; +if(qbevent){evnt(19939);if(r)goto S_23049;} do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19920);}while(r); -S_23129:; -if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(19922);if(r)goto S_23129;} -do{ -goto fornext_exit_2811; -if(!qbevent)break;evnt(19922);}while(r); -} -S_23132:; -if ((-(*_FUNC_LINEFORMAT_LONG_C!= 95 ))||new_error){ -if(qbevent){evnt(19923);if(r)goto S_23132;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; -if(!qbevent)break;evnt(19923);}while(r); -} -fornext_continue_2811:; -} -fornext_exit_2811:; -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I+ 1 ,*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19925);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_N2+ 1 +(*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ); -if(!qbevent)break;evnt(19926);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_P2+ 1 ; -if(!qbevent)break;evnt(19927);}while(r); -do{ -goto LABEL_EXTCHECK; -if(!qbevent)break;evnt(19928);}while(r); -} -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19932);}while(r); -LABEL_LFGETVE:; -if(qbevent){evnt(19934);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+_FUNC_LINEFORMAT_STRING_E2->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19935);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19936);}while(r); -S_23145:; -if ((*_FUNC_LINEFORMAT_LONG_M)||new_error){ -if(qbevent){evnt(19937);if(r)goto S_23145;} -LABEL_LFGETVD:; -if(qbevent){evnt(19938);r=0;} -S_23146:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19939);if(r)goto S_23146;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +*_FUNC_ISVALIDVARIABLE_LONG_C=qbs_asc(_FUNC_ISVALIDVARIABLE_STRING_A,*_FUNC_ISVALIDVARIABLE_LONG_I); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19940);}while(r); -S_23148:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(19941);if(r)goto S_23148;} do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_chr(*_FUNC_LINEFORMAT_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ; if(!qbevent)break;evnt(19941);}while(r); +S_23052:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(19942);if(r)goto S_23052;} do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19941);}while(r); +*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ; +if(!qbevent)break;evnt(19942);}while(r); +} +S_23055:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(19943);if(r)goto S_23055;} do{ -goto LABEL_LFGETVD; -if(!qbevent)break;evnt(19941);}while(r); -} -} +*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; +if(!qbevent)break;evnt(19943);}while(r); } +S_23058:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||new_error){ +if(qbevent){evnt(19944);if(r)goto S_23058;} do{ -goto LABEL_LINEFORMATNEXT; +*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; +if(!qbevent)break;evnt(19944);}while(r); +} +S_23061:; +if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||new_error){ +if(qbevent){evnt(19945);if(r)goto S_23061;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; if(!qbevent)break;evnt(19945);}while(r); } +S_23064:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||new_error){ +if(qbevent){evnt(19946);if(r)goto S_23064;} +}else{ +S_23066:; +if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(19949);if(r)goto S_23066;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; +if(!qbevent)break;evnt(19949);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19949);}while(r); } -S_23158:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 9 )))||new_error){ -if(qbevent){evnt(19952);if(r)goto S_23158;} do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19952);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19952);}while(r); +goto fornext_exit_2937; +if(!qbevent)break;evnt(19950);}while(r); } -S_23162:; -if ((((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5])])||new_error){ -if(qbevent){evnt(19956);if(r)goto S_23162;} -S_23163:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 61 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 62 )))||new_error){ -if(qbevent){evnt(19957);if(r)goto S_23163;} +fornext_continue_2937:; +} +fornext_exit_2937:; do{ -*_FUNC_LINEFORMAT_LONG_COUNT= 0 ; +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; +if(!qbevent)break;evnt(19954);}while(r); +S_23074:; +if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||new_error){ +if(qbevent){evnt(19955);if(r)goto S_23074;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19955);}while(r); +} +do{ +qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_A,_FUNC_ISVALIDVARIABLE_STRING_A->len-*_FUNC_ISVALIDVARIABLE_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19956);}while(r); +S_23078:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%%",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%%",3)))))||new_error){ +if(qbevent){evnt(19957);if(r)goto S_23078;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19957);}while(r); +} +S_23081:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%",2)))))||new_error){ +if(qbevent){evnt(19958);if(r)goto S_23081;} +do{ +goto exit_subfunc; if(!qbevent)break;evnt(19958);}while(r); -S_23165:; +} +S_23084:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&",2)))))||new_error){ +if(qbevent){evnt(19959);if(r)goto S_23084;} do{ -if(qbevent){evnt(19959);if(r)goto S_23165;} +goto exit_subfunc; +if(!qbevent)break;evnt(19959);}while(r); +} +S_23087:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&&",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&&",3)))))||new_error){ +if(qbevent){evnt(19960);if(r)goto S_23087;} do{ -*_FUNC_LINEFORMAT_LONG_COUNT=*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +goto exit_subfunc; if(!qbevent)break;evnt(19960);}while(r); -S_23167:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)>=(_FUNC_LINEFORMAT_STRING_A->len- 2 ))))||new_error){ -if(qbevent){evnt(19961);if(r)goto S_23167;} +} +S_23090:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("!",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("#",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("##",2)))))||new_error){ +if(qbevent){evnt(19961);if(r)goto S_23090;} do{ -goto dl_exit_2814; +goto exit_subfunc; if(!qbevent)break;evnt(19961);}while(r); } -S_23170:; -dl_continue_2814:; -}while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)!= 32 ))))&&(!new_error)); -dl_exit_2814:; -if(qbevent){evnt(19962);if(r)goto S_23170;} +S_23093:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(19962);if(r)goto S_23093;} do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT); -qbs_cleanup(qbs_tmp_base,0); +goto exit_subfunc; +if(!qbevent)break;evnt(19962);}while(r); +} +S_23096:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(19963);if(r)goto S_23096;} +do{ +goto exit_subfunc; if(!qbevent)break;evnt(19963);}while(r); -S_23172:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))||new_error){ -if(qbevent){evnt(19964);if(r)goto S_23172;} -S_23173:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ -if(qbevent){evnt(19965);if(r)goto S_23173;} +} +S_23099:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("$",1)))&(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("`",1)))))||new_error){ +if(qbevent){evnt(19964);if(r)goto S_23099;} do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; +if(!qbevent)break;evnt(19964);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19964);}while(r); +} +do{ +qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_E,_FUNC_ISVALIDVARIABLE_STRING_E->len- 1 )); qbs_cleanup(qbs_tmp_base,0); if(!qbevent)break;evnt(19965);}while(r); +S_23104:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||new_error){ +if(qbevent){evnt(19966);if(r)goto S_23104;} do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(19965);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19965);}while(r); -} -S_23178:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ -if(qbevent){evnt(19966);if(r)goto S_23178;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); -qbs_cleanup(qbs_tmp_base,0); +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; if(!qbevent)break;evnt(19966);}while(r); do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(19966);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; +goto exit_subfunc; if(!qbevent)break;evnt(19966);}while(r); } -S_23183:; -}else{ -if (-(*_FUNC_LINEFORMAT_LONG_C== 62 )){ -if(qbevent){evnt(19967);if(r)goto S_23183;} -S_23184:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ -if(qbevent){evnt(19968);if(r)goto S_23184;} do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19968);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(19968);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19968);}while(r); -} -S_23189:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ -if(qbevent){evnt(19969);if(r)goto S_23189;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19969);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(19969);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19969);}while(r); -} -S_23194:; -}else{ -if (-(*_FUNC_LINEFORMAT_LONG_C== 61 )){ -if(qbevent){evnt(19970);if(r)goto S_23194;} -S_23195:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ -if(qbevent){evnt(19971);if(r)goto S_23195;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19971);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(19971);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19971);}while(r); -} -S_23200:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ -if(qbevent){evnt(19972);if(r)goto S_23200;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19972);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(19972);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19972);}while(r); -} -} -} -} -} -S_23207:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_C== 36 ))&(_FUNC_LINEFORMAT_STRING_A2->len)))||new_error){ -if(qbevent){evnt(19976);if(r)goto S_23207;} -do{ -goto LABEL_BADUSAGE; -if(!qbevent)break;evnt(19976);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr(*_FUNC_LINEFORMAT_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19979);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19980);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19981);}while(r); -} -LABEL_BADUSAGE:; -if(qbevent){evnt(19983);r=0;} -S_23214:; -if ((-(*_FUNC_LINEFORMAT_LONG_C!= 39 ))||new_error){ -if(qbevent){evnt(19985);if(r)goto S_23214;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected character on line",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19985);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19985);}while(r); -} -do{ -qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("'",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19988);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19989);}while(r); -LABEL_COMMENT:; -if(qbevent){evnt(19990);r=0;} -S_23220:; -if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19991);if(r)goto S_23220;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(19991);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_right(_FUNC_LINEFORMAT_STRING_A,_FUNC_LINEFORMAT_STRING_A->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19992);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_CC,qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19993);}while(r); -S_23225:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ -if(qbevent){evnt(19994);if(r)goto S_23225;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(19994);}while(r); -} -do{ -qbs_set(__STRING_LAYOUTCOMMENT,qbs_rtrim(qbs_add(__STRING_LAYOUTCOMMENT,_FUNC_LINEFORMAT_STRING_CC))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19995);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_ltrim(_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19997);}while(r); -S_23230:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ -if(qbevent){evnt(19998);if(r)goto S_23230;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(19998);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19999);}while(r); -S_23234:; -if ((-(*_FUNC_LINEFORMAT_LONG_AC!= 36 ))||new_error){ -if(qbevent){evnt(20000);if(r)goto S_23234;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20000);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NOCASEC,qbs_ltrim(qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20001);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_MEMMODE= 0 ; -if(!qbevent)break;evnt(20002);}while(r); -S_23239:; -fornext_value2823= 1 ; -fornext_finalvalue2823=_FUNC_LINEFORMAT_STRING_C->len; -fornext_step2823= 1 ; -if (fornext_step2823<0) fornext_step_negative2823=1; else fornext_step_negative2823=0; -if (new_error) goto fornext_error2823; -goto fornext_entrylabel2823; -while(1){ -fornext_value2823=fornext_step2823+(*_FUNC_LINEFORMAT_LONG_X); -fornext_entrylabel2823: -*_FUNC_LINEFORMAT_LONG_X=fornext_value2823; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2823){ -if (fornext_value2823fornext_finalvalue2823) break; -} -fornext_error2823:; -if(qbevent){evnt(20003);if(r)goto S_23239;} -LABEL_MCNEXT:; -if(qbevent){evnt(20004);r=0;} -S_23240:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 1 ,1),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20005);if(r)goto S_23240;} -S_23241:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 7 ,1),qbs_new_txt_len("$STATIC",7))))||new_error){ -if(qbevent){evnt(20009);if(r)goto S_23241;} -do{ -*_FUNC_LINEFORMAT_LONG_MEMMODE= 1 ; -if(!qbevent)break;evnt(20010);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20011);}while(r); -S_23244:; -if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ -if(qbevent){evnt(20012);if(r)goto S_23244;} -do{ -goto fornext_exit_2822; -if(!qbevent)break;evnt(20012);}while(r); -}else{ -} -do{ -*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; -if(!qbevent)break;evnt(20013);}while(r); -do{ -goto LABEL_MCNEXT; -if(!qbevent)break;evnt(20013);}while(r); -} -S_23251:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,1),qbs_new_txt_len("$DYNAMIC",8))))||new_error){ -if(qbevent){evnt(20016);if(r)goto S_23251;} -do{ -*_FUNC_LINEFORMAT_LONG_MEMMODE= 2 ; -if(!qbevent)break;evnt(20017);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20018);}while(r); -S_23254:; -if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ -if(qbevent){evnt(20019);if(r)goto S_23254;} -do{ -goto fornext_exit_2822; -if(!qbevent)break;evnt(20019);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; -if(!qbevent)break;evnt(20020);}while(r); -do{ -goto LABEL_MCNEXT; -if(!qbevent)break;evnt(20020);}while(r); -} -S_23260:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,1),qbs_new_txt_len("$INCLUDE",8))))||new_error){ -if(qbevent){evnt(20023);if(r)goto S_23260;} -S_23261:; -if ((*__LONG_CLOUD)||new_error){ -if(qbevent){evnt(20024);if(r)goto S_23261;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Feature not supported on QLOUD",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20024);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20024);}while(r); -} -S_23265:; -fornext_value2826=*_FUNC_LINEFORMAT_LONG_X+ 8 ; -fornext_finalvalue2826=_FUNC_LINEFORMAT_STRING_C->len; -fornext_step2826= 1 ; -if (fornext_step2826<0) fornext_step_negative2826=1; else fornext_step_negative2826=0; -if (new_error) goto fornext_error2826; -goto fornext_entrylabel2826; -while(1){ -fornext_value2826=fornext_step2826+(*_FUNC_LINEFORMAT_LONG_XX); -fornext_entrylabel2826: -*_FUNC_LINEFORMAT_LONG_XX=fornext_value2826; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2826){ -if (fornext_value2826fornext_finalvalue2826) break; -} -fornext_error2826:; -if(qbevent){evnt(20028);if(r)goto S_23265;} -do{ -*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20029);}while(r); -S_23267:; -if ((-(*_FUNC_LINEFORMAT_LONG_AC== 58 ))||new_error){ -if(qbevent){evnt(20030);if(r)goto S_23267;} -do{ -goto fornext_exit_2825; -if(!qbevent)break;evnt(20030);}while(r); -} -S_23270:; -if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ -if(qbevent){evnt(20031);if(r)goto S_23270;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20031);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20031);}while(r); -} -fornext_continue_2825:; -} -fornext_exit_2825:; -do{ -*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; -if(!qbevent)break;evnt(20033);}while(r); -S_23276:; -fornext_value2829=*_FUNC_LINEFORMAT_LONG_X+ 1 ; -fornext_finalvalue2829=_FUNC_LINEFORMAT_STRING_C->len; -fornext_step2829= 1 ; -if (fornext_step2829<0) fornext_step_negative2829=1; else fornext_step_negative2829=0; -if (new_error) goto fornext_error2829; -goto fornext_entrylabel2829; -while(1){ -fornext_value2829=fornext_step2829+(*_FUNC_LINEFORMAT_LONG_XX); -fornext_entrylabel2829: -*_FUNC_LINEFORMAT_LONG_XX=fornext_value2829; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2829){ -if (fornext_value2829fornext_finalvalue2829) break; -} -fornext_error2829:; -if(qbevent){evnt(20035);if(r)goto S_23276;} -do{ -*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20036);}while(r); -S_23278:; -if ((-(*_FUNC_LINEFORMAT_LONG_AC== 39 ))||new_error){ -if(qbevent){evnt(20037);if(r)goto S_23278;} -do{ -goto fornext_exit_2828; -if(!qbevent)break;evnt(20037);}while(r); -} -S_23281:; -if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ -if(qbevent){evnt(20038);if(r)goto S_23281;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20038);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20038);}while(r); -} -fornext_continue_2828:; -} -fornext_exit_2828:; -do{ -*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; -if(!qbevent)break;evnt(20040);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("'",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20041);}while(r); -S_23288:; -if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ -if(qbevent){evnt(20042);if(r)goto S_23288;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20042);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20042);}while(r); -} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,func_mid(_FUNC_LINEFORMAT_STRING_NOCASEC,*_FUNC_LINEFORMAT_LONG_X+ 1 ,*_FUNC_LINEFORMAT_LONG_XX-*_FUNC_LINEFORMAT_LONG_X- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20043);}while(r); -S_23293:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20044);if(r)goto S_23293;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20044);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20044);}while(r); -} -do{ -goto LABEL_MCFINAL; -if(!qbevent)break;evnt(20045);}while(r); -} -} -fornext_continue_2822:; -} -fornext_exit_2822:; -LABEL_MCFINAL:; -if(qbevent){evnt(20052);r=0;} -S_23301:; -if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 1 ))||new_error){ -if(qbevent){evnt(20054);if(r)goto S_23301;} -do{ -*__INTEGER_ADDMETASTATIC= 1 ; -if(!qbevent)break;evnt(20054);}while(r); -} -S_23304:; -if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 2 ))||new_error){ -if(qbevent){evnt(20055);if(r)goto S_23304;} -do{ -*__INTEGER_ADDMETADYNAMIC= 1 ; -if(!qbevent)break;evnt(20055);}while(r); -} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20057);}while(r); -LABEL_LINEFORMATDONE:; -if(qbevent){evnt(20061);r=0;} -S_23308:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_A2->len))||new_error){ -if(qbevent){evnt(20065);if(r)goto S_23308;} -S_23309:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(20066);if(r)goto S_23309;} -do{ -*__LONG_LINECONTINUATION= 1 ; -if(!qbevent)break;evnt(20068);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20069);}while(r); -S_23312:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_A2->len>= 2 )))||new_error){ -if(qbevent){evnt(20072);if(r)goto S_23312;} -S_23313:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("_",1))))))||new_error){ -if(qbevent){evnt(20073);if(r)goto S_23313;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20073);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20075);}while(r); -S_23318:; -if ((*__LONG_INCLEVEL)||new_error){ -if(qbevent){evnt(20077);if(r)goto S_23318;} -do{ -*_FUNC_LINEFORMAT_LONG_FH= 99 +*__LONG_INCLEVEL; -if(!qbevent)break;evnt(20078);}while(r); -S_23320:; -if ((func_eof(*_FUNC_LINEFORMAT_LONG_FH))||new_error){ -if(qbevent){evnt(20079);if(r)goto S_23320;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20079);}while(r); -} -do{ -tmp_fileno=*_FUNC_LINEFORMAT_LONG_FH; -if (new_error) goto skip2835; -sub_file_line_input_string(tmp_fileno,_FUNC_LINEFORMAT_STRING_A); -if (new_error) goto skip2835; -skip2835: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20080);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ; -if(!qbevent)break;evnt(20081);}while(r); -do{ -goto LABEL_INCLUDECONT; -if(!qbevent)break;evnt(20082);}while(r); -} -S_23327:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(20085);if(r)goto S_23327;} -do{ -qbs_set(__STRING_IDECOMMAND,func_chr( 100 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20086);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_IGNORE=FUNC_IDE(&(pass2836= 0 )); -if(!qbevent)break;evnt(20087);}while(r); -do{ -*__LONG_IDEERROR= 0 ; -if(!qbevent)break;evnt(20088);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,__STRING_IDERETURN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20089);}while(r); -S_23332:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20090);if(r)goto S_23332;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20090);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20092);}while(r); -S_23337:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(20093);if(r)goto S_23337;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20093);}while(r); -} -} -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; -if(!qbevent)break;evnt(20096);}while(r); -LABEL_INCLUDECONT:; -if(qbevent){evnt(20098);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_CONTLINE= 1 ; -if(!qbevent)break;evnt(20100);}while(r); -do{ -goto LABEL_CONTINUELINE; -if(!qbevent)break;evnt(20101);}while(r); -} -} -LABEL_LINEFORMATDONE2:; -if(qbevent){evnt(20105);r=0;} -S_23346:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_A2, 1 ),__STRING1_SP)))||new_error){ -if(qbevent){evnt(20106);if(r)goto S_23346;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_right(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20106);}while(r); -} -S_23349:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(20109);if(r)goto S_23349;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20109);}while(r); -} -S_23352:; -if (( 0 )||new_error){ -if(qbevent){evnt(20111);if(r)goto S_23352;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2838; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("lineformat():return:",20),_FUNC_LINEFORMAT_STRING_A2), 0 , 0 , 1 ); -if (new_error) goto skip2838; -skip2838: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(20111);}while(r); -} -S_23355:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(20112);if(r)goto S_23355;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20112);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_LINEFORMAT,_FUNC_LINEFORMAT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20113);}while(r); +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; +if(!qbevent)break;evnt(19967);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free29.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_LINEFORMAT_STRING_LINEFORMAT);return _FUNC_LINEFORMAT_STRING_LINEFORMAT; +return *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE; } -void SUB_MAKEIDREFER(qbs*_SUB_MAKEIDREFER_STRING_REF,int32*_SUB_MAKEIDREFER_LONG_TYP){ +qbs* FUNC_LINEFORMAT(qbs*_FUNC_LINEFORMAT_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -79535,19 +80061,3571 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_MAKEIDREFER_STRING_REF,FUNC_STR2(__LONG_CURRENTID)); +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20119);}while(r); +if(!qbevent)break;evnt(19974);}while(r); do{ -*_SUB_MAKEIDREFER_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(20120);}while(r); +*__LONG_LINECONTINUATION= 0 ; +if(!qbevent)break;evnt(19975);}while(r); +LABEL_CONTINUELINE:; +if(qbevent){evnt(19977);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_add(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len(" ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19979);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19981);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_ucase(_FUNC_LINEFORMAT_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19982);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_N=_FUNC_LINEFORMAT_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19984);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I= 1 ; +if(!qbevent)break;evnt(19985);}while(r); +LABEL_LINEFORMATNEXT:; +if(qbevent){evnt(19986);r=0;} +S_23116:; +if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(19987);if(r)goto S_23116;} +do{ +goto LABEL_LINEFORMATDONE; +if(!qbevent)break;evnt(19987);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19989);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_chr(*_FUNC_LINEFORMAT_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19990);}while(r); +S_23121:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ +if(qbevent){evnt(19993);if(r)goto S_23121;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19994);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19995);}while(r); +S_23124:; +fornext_value2945=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +fornext_finalvalue2945=*_FUNC_LINEFORMAT_LONG_N- 2 ; +fornext_step2945= 1 ; +if (fornext_step2945<0) fornext_step_negative2945=1; else fornext_step_negative2945=0; +if (new_error) goto fornext_error2945; +goto fornext_entrylabel2945; +while(1){ +fornext_value2945=fornext_step2945+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2945: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2945; +if (fornext_step_negative2945){ +if (fornext_value2945fornext_finalvalue2945) break; +} +fornext_error2945:; +if(qbevent){evnt(19996);if(r)goto S_23124;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19997);}while(r); +S_23126:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 34 ))||new_error){ +if(qbevent){evnt(19999);if(r)goto S_23126;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,1)),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2946=*_FUNC_LINEFORMAT_LONG_I2-(*_FUNC_LINEFORMAT_LONG_I+ 1 ))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20000);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; +if(!qbevent)break;evnt(20001);}while(r); +do{ +goto fornext_exit_2944; +if(!qbevent)break;evnt(20002);}while(r); +} +S_23131:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 92 ))||new_error){ +if(qbevent){evnt(20005);if(r)goto S_23131;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,1)),qbs_new_txt_len("\\\\",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20006);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; +if(!qbevent)break;evnt(20007);}while(r); +} +S_23135:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2< 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C2> 126 )))||new_error){ +if(qbevent){evnt(20010);if(r)goto S_23135;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_O,func_oct(*_FUNC_LINEFORMAT_LONG_C2,32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20011);}while(r); +S_23137:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ +if(qbevent){evnt(20012);if(r)goto S_23137;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20013);}while(r); +S_23139:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ +if(qbevent){evnt(20014);if(r)goto S_23139;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20014);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,1)),qbs_new_txt_len("\\",1)),_FUNC_LINEFORMAT_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20016);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; +if(!qbevent)break;evnt(20017);}while(r); +} +fornext_continue_2944:; +} +fornext_exit_2944:; +S_23147:; +if ((-(*_FUNC_LINEFORMAT_LONG_I2==(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20022);if(r)goto S_23147;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,(*_FUNC_LINEFORMAT_LONG_N- 2 )-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,1)),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2949=(*_FUNC_LINEFORMAT_LONG_N- 2 )-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20023);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_N- 1 ; +if(!qbevent)break;evnt(20024);}while(r); +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20027);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_FIRSTI=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20032);}while(r); +S_23154:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(20033);if(r)goto S_23154;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20034);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_C2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20034);}while(r); +S_23157:; +if ((((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 ))))||new_error){ +if(qbevent){evnt(20035);if(r)goto S_23157;} +do{ +goto LABEL_LFNUMBER; +if(!qbevent)break;evnt(20035);}while(r); +} +} +S_23161:; +if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 ))))||new_error){ +if(qbevent){evnt(20037);if(r)goto S_23161;} +LABEL_LFNUMBER:; +if(qbevent){evnt(20038);r=0;} +S_23162:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("ELSE",4))))))||new_error){ +if(qbevent){evnt(20041);if(r)goto S_23162;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("GOTO",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20042);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 0 ; +if(!qbevent)break;evnt(20050);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20051);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_DP= 0 ; +if(!qbevent)break;evnt(20052);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20053);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 0 ; +if(!qbevent)break;evnt(20054);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_PM= 1 ; +if(!qbevent)break;evnt(20055);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20056);}while(r); +LABEL_LFREADNUMBER:; +if(qbevent){evnt(20061);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 0 ; +if(!qbevent)break;evnt(20062);}while(r); +S_23173:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(20064);if(r)goto S_23173;} +S_23174:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ +if(qbevent){evnt(20065);if(r)goto S_23174;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(20065);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_DP= 1 ; +if(!qbevent)break;evnt(20065);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 1 ; +if(!qbevent)break;evnt(20065);}while(r); +} +} +S_23180:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(20068);if(r)goto S_23180;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(20069);}while(r); +S_23182:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ +if(qbevent){evnt(20070);if(r)goto S_23182;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20070);}while(r); +} +S_23185:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 1 ))||new_error){ +if(qbevent){evnt(20071);if(r)goto S_23185;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_add(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20071);}while(r); +} +S_23188:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ +if(qbevent){evnt(20072);if(r)goto S_23188;} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 3 ; +if(!qbevent)break;evnt(20072);}while(r); +} +S_23191:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 3 ))||new_error){ +if(qbevent){evnt(20073);if(r)goto S_23191;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_add(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20073);}while(r); +} +} +S_23195:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 68 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 70 )))||new_error){ +if(qbevent){evnt(20076);if(r)goto S_23195;} +S_23196:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE< 2 ))||new_error){ +if(qbevent){evnt(20077);if(r)goto S_23196;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(20078);}while(r); +S_23198:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))||new_error){ +if(qbevent){evnt(20079);if(r)goto S_23198;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 1 ; +if(!qbevent)break;evnt(20079);}while(r); +} +S_23201:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 68 ))||new_error){ +if(qbevent){evnt(20080);if(r)goto S_23201;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 2 ; +if(!qbevent)break;evnt(20080);}while(r); +} +S_23204:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 70 ))||new_error){ +if(qbevent){evnt(20081);if(r)goto S_23204;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 3 ; +if(!qbevent)break;evnt(20081);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 2 ; +if(!qbevent)break;evnt(20082);}while(r); +} +} +S_23210:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 43 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 45 )))||new_error){ +if(qbevent){evnt(20086);if(r)goto S_23210;} +S_23211:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ +if(qbevent){evnt(20087);if(r)goto S_23211;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(20088);}while(r); +S_23213:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 45 ))||new_error){ +if(qbevent){evnt(20089);if(r)goto S_23213;} +do{ +*_FUNC_LINEFORMAT_LONG_PM= -1 ; +if(!qbevent)break;evnt(20089);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 3 ; +if(!qbevent)break;evnt(20090);}while(r); +} +} +S_23219:; +if ((*_FUNC_LINEFORMAT_LONG_VALID)||new_error){ +if(qbevent){evnt(20094);if(r)goto S_23219;} +S_23220:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20095);if(r)goto S_23220;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20095);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20095);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20095);}while(r); +do{ +goto LABEL_LFREADNUMBER; +if(!qbevent)break;evnt(20095);}while(r); +} +} +S_23227:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_WHOLE, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20101);if(r)goto S_23227;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_right(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20101);}while(r); +dl_continue_2950:; +} +dl_exit_2950:; +S_23230:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_FRAC, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20103);if(r)goto S_23230;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_left(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_FRAC->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20103);}while(r); +dl_continue_2952:; +} +dl_exit_2952:; +S_23233:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_EX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20105);if(r)goto S_23233;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_right(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_EX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20105);}while(r); +dl_continue_2954:; +} +dl_exit_2954:; +S_23236:; +if (((-(*_FUNC_LINEFORMAT_LONG_DP!= 0 ))|(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 )))||new_error){ +if(qbevent){evnt(20107);if(r)goto S_23236;} +do{ +*_FUNC_LINEFORMAT_LONG_FLOAT= 1 ; +if(!qbevent)break;evnt(20107);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_FLOAT= 0 ; +if(!qbevent)break;evnt(20107);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_EXTUSED= 1 ; +if(!qbevent)break;evnt(20109);}while(r); +S_23242:; +if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ +if(qbevent){evnt(20111);if(r)goto S_23242;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20111);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20111);}while(r); +} +S_23246:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20114);if(r)goto S_23246;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20115);}while(r); +S_23248:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20116);if(r)goto S_23248;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20116);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20116);}while(r); +} +S_23252:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20117);if(r)goto S_23252;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20117);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20117);}while(r); +} +S_23256:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20118);if(r)goto S_23256;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20118);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20118);}while(r); +} +} +S_23261:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20121);if(r)goto S_23261;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20122);}while(r); +S_23263:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20123);if(r)goto S_23263;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20123);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20123);}while(r); +} +S_23267:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20124);if(r)goto S_23267;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20124);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20124);}while(r); +} +S_23271:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20125);if(r)goto S_23271;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20125);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20125);}while(r); +} +S_23275:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20126);if(r)goto S_23275;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20126);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20126);}while(r); +} +S_23279:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20127);if(r)goto S_23279;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20127);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20127);}while(r); +} +S_23283:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(20128);if(r)goto S_23283;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20129);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 3 ; +if(!qbevent)break;evnt(20130);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20131);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20132);}while(r); +} +S_23289:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20134);if(r)goto S_23289;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20135);}while(r); +do{ +goto LABEL_LFFOUNDBITEXT; +if(!qbevent)break;evnt(20136);}while(r); +} +} +S_23294:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20140);if(r)goto S_23294;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20141);}while(r); +S_23296:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20142);if(r)goto S_23296;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20142);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20142);}while(r); +} +S_23300:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(20143);if(r)goto S_23300;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20143);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20143);}while(r); +} +S_23304:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(20144);if(r)goto S_23304;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20145);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 1 ; +if(!qbevent)break;evnt(20146);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20147);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20148);}while(r); +} +S_23310:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(20150);if(r)goto S_23310;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20151);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 2 ; +if(!qbevent)break;evnt(20152);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20153);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20154);}while(r); +} +S_23316:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20156);if(r)goto S_23316;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20157);}while(r); +LABEL_LFFOUNDBITEXT:; +if(qbevent){evnt(20158);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20159);}while(r); +S_23319:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20160);if(r)goto S_23319;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20161);}while(r); +S_23321:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20162);if(r)goto S_23321;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20163);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20164);}while(r); +}else{ +do{ +goto dl_exit_2956; +if(!qbevent)break;evnt(20166);}while(r); +} +dl_continue_2956:; +} +dl_exit_2956:; +S_23328:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20169);if(r)goto S_23328;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20169);}while(r); +} +S_23331:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20171);if(r)goto S_23331;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20171);}while(r); +dl_continue_2957:; +} +dl_exit_2957:; +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_add(_FUNC_LINEFORMAT_STRING_E,_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20172);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20173);}while(r); +} +} +S_23338:; +if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ +if(qbevent){evnt(20177);if(r)goto S_23338;} +S_23339:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20179);if(r)goto S_23339;} +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET=_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20180);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_WHOLE->len+_FUNC_LINEFORMAT_STRING_FRAC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20181);}while(r); +}else{ +S_23343:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20183);if(r)goto S_23343;} +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET= -1 ; +if(!qbevent)break;evnt(20184);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_FRAC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20185);}while(r); +S_23346:; +fornext_value2964= 1 ; +fornext_finalvalue2964=_FUNC_LINEFORMAT_STRING_FRAC->len; +fornext_step2964= 1 ; +if (fornext_step2964<0) fornext_step_negative2964=1; else fornext_step_negative2964=0; +if (new_error) goto fornext_error2964; +goto fornext_entrylabel2964; +while(1){ +fornext_value2964=fornext_step2964+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2964: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2964; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2964){ +if (fornext_value2964fornext_finalvalue2964) break; +} +fornext_error2964:; +if(qbevent){evnt(20186);if(r)goto S_23346;} +S_23347:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_FRAC,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20187);if(r)goto S_23347;} +do{ +goto fornext_exit_2963; +if(!qbevent)break;evnt(20187);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET=*_FUNC_LINEFORMAT_LONG_OFFSET- 1 ; +if(!qbevent)break;evnt(20188);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS=*_FUNC_LINEFORMAT_LONG_SIGDIGITS- 1 ; +if(!qbevent)break;evnt(20189);}while(r); +fornext_continue_2963:; +} +fornext_exit_2963:; +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(20193);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS= 0 ; +if(!qbevent)break;evnt(20194);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_right(qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_FRAC),*_FUNC_LINEFORMAT_LONG_SIGDIGITS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20197);}while(r); +S_23359:; +if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 7 ))||new_error){ +if(qbevent){evnt(20199);if(r)goto S_23359;} +S_23360:; +if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 38 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -38 )))||new_error){ +if(qbevent){evnt(20200);if(r)goto S_23360;} +S_23361:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 38 ))||new_error){ +if(qbevent){evnt(20201);if(r)goto S_23361;} +S_23362:; +if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("3402823",7))))||new_error){ +if(qbevent){evnt(20202);if(r)goto S_23362;} +do{ +goto LABEL_LFXSINGLE; +if(!qbevent)break;evnt(20202);}while(r); +} +} +S_23366:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -38 ))||new_error){ +if(qbevent){evnt(20204);if(r)goto S_23366;} +S_23367:; +if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1175494",7))))||new_error){ +if(qbevent){evnt(20205);if(r)goto S_23367;} +do{ +goto LABEL_LFXSINGLE; +if(!qbevent)break;evnt(20205);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 1 ; +if(!qbevent)break;evnt(20207);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20208);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20209);}while(r); +} +} +LABEL_LFXSINGLE:; +if(qbevent){evnt(20212);r=0;} +S_23376:; +if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 16 ))||new_error){ +if(qbevent){evnt(20214);if(r)goto S_23376;} +S_23377:; +if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 308 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -308 )))||new_error){ +if(qbevent){evnt(20215);if(r)goto S_23377;} +S_23378:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 308 ))||new_error){ +if(qbevent){evnt(20216);if(r)goto S_23378;} +S_23379:; +if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1797693134862315",16))))||new_error){ +if(qbevent){evnt(20217);if(r)goto S_23379;} +do{ +goto LABEL_LFXDOUBLE; +if(!qbevent)break;evnt(20217);}while(r); +} +} +S_23383:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -308 ))||new_error){ +if(qbevent){evnt(20219);if(r)goto S_23383;} +S_23384:; +if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("2225073858507201",16))))||new_error){ +if(qbevent){evnt(20220);if(r)goto S_23384;} +do{ +goto LABEL_LFXDOUBLE; +if(!qbevent)break;evnt(20220);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 2 ; +if(!qbevent)break;evnt(20222);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20223);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20224);}while(r); +} +} +LABEL_LFXDOUBLE:; +if(qbevent){evnt(20227);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 3 ; +if(!qbevent)break;evnt(20229);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20230);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20230);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_EXTUSED= 0 ; +if(!qbevent)break;evnt(20233);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20234);}while(r); +LABEL_LFFOUNDEXT:; +if(qbevent){evnt(20235);r=0;} +S_23399:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20238);if(r)goto S_23399;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20238);}while(r); +} +S_23402:; +if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ +if(qbevent){evnt(20240);if(r)goto S_23402;} +do{ +*_FUNC_LINEFORMAT_LONG_DP= 1 ; +if(!qbevent)break;evnt(20241);}while(r); +S_23404:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20242);if(r)goto S_23404;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20242);}while(r); +} +} +S_23408:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 ))&(qbs_equal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(20245);if(r)goto S_23408;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20245);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20247);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_WHOLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20248);}while(r); +S_23413:; +if ((*_FUNC_LINEFORMAT_LONG_DP)||new_error){ +if(qbevent){evnt(20249);if(r)goto S_23413;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(".",1)),_FUNC_LINEFORMAT_STRING_FRAC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20249);}while(r); +} +S_23416:; +if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ +if(qbevent){evnt(20250);if(r)goto S_23416;} +S_23417:; +if ((-(*_FUNC_LINEFORMAT_LONG_ED== 1 ))||new_error){ +if(qbevent){evnt(20251);if(r)goto S_23417;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("E",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20251);}while(r); +} +S_23420:; +if ((-(*_FUNC_LINEFORMAT_LONG_ED== 2 ))||new_error){ +if(qbevent){evnt(20252);if(r)goto S_23420;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("D",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20252);}while(r); +} +S_23423:; +if ((-(*_FUNC_LINEFORMAT_LONG_ED== 3 ))||new_error){ +if(qbevent){evnt(20253);if(r)goto S_23423;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("F",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20253);}while(r); +} +S_23426:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_PM== -1 ))&(qbs_notequal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(20254);if(r)goto S_23426;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20254);}while(r); +}else{ +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("+",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20254);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_EX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20255);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20257);}while(r); +S_23434:; +if ((*_FUNC_LINEFORMAT_LONG_EXTUSED)||new_error){ +if(qbevent){evnt(20259);if(r)goto S_23434;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(",",1)),func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_FIRSTI,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_FIRSTI,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20259);}while(r); +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20261);}while(r); +} +S_23439:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20266);if(r)goto S_23439;} +S_23440:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("H",1))))||new_error){ +if(qbevent){evnt(20267);if(r)goto S_23440;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20268);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20269);}while(r); +LABEL_LFREADHEX:; +if(qbevent){evnt(20270);r=0;} +S_23443:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20271);if(r)goto S_23443;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20272);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20272);}while(r); +S_23446:; +if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))|((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 70 ))))||new_error){ +if(qbevent){evnt(20273);if(r)goto S_23446;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20273);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20273);}while(r); +do{ +goto LABEL_LFREADHEX; +if(!qbevent)break;evnt(20273);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&H",2),_FUNC_LINEFORMAT_STRING_HX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20275);}while(r); +S_23453:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20278);if(r)goto S_23453;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20278);}while(r); +dl_continue_2966:; +} +dl_exit_2966:; +S_23456:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20279);if(r)goto S_23456;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20279);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20281);}while(r); +S_23460:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20283);if(r)goto S_23460;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20284);}while(r); +S_23462:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(20285);if(r)goto S_23462;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20285);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20285);}while(r); +} +S_23466:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(20286);if(r)goto S_23466;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20286);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20286);}while(r); +} +S_23470:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(20287);if(r)goto S_23470;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20287);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20287);}while(r); +} +} +S_23475:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20290);if(r)goto S_23475;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20291);}while(r); +S_23477:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20292);if(r)goto S_23477;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20292);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20292);}while(r); +} +S_23481:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(20293);if(r)goto S_23481;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20293);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20293);}while(r); +} +S_23485:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20294);if(r)goto S_23485;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20294);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20294);}while(r); +} +S_23489:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20295);if(r)goto S_23489;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20295);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20295);}while(r); +} +S_23493:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(20296);if(r)goto S_23493;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20296);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20296);}while(r); +} +S_23497:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20297);if(r)goto S_23497;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20298);}while(r); +do{ +goto LABEL_LFHXBITEXT; +if(!qbevent)break;evnt(20299);}while(r); +} +} +S_23502:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20303);if(r)goto S_23502;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20304);}while(r); +S_23504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20305);if(r)goto S_23504;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20305);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20305);}while(r); +} +S_23508:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20306);if(r)goto S_23508;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20306);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20306);}while(r); +} +S_23512:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20307);if(r)goto S_23512;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20308);}while(r); +LABEL_LFHXBITEXT:; +if(qbevent){evnt(20309);r=0;} +S_23514:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20310);if(r)goto S_23514;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20311);}while(r); +S_23516:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20312);if(r)goto S_23516;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20313);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20314);}while(r); +}else{ +do{ +goto dl_exit_2968; +if(!qbevent)break;evnt(20316);}while(r); +} +dl_continue_2968:; +} +dl_exit_2968:; +S_23523:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20319);if(r)goto S_23523;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20319);}while(r); +} +S_23526:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20321);if(r)goto S_23526;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20321);}while(r); +dl_continue_2969:; +} +dl_exit_2969:; +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20322);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20327);}while(r); +S_23533:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 8 )))||new_error){ +if(qbevent){evnt(20328);if(r)goto S_23533;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20328);}while(r); +} +S_23536:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 4 )))||new_error){ +if(qbevent){evnt(20329);if(r)goto S_23536;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20329);}while(r); +} +do{ +goto LABEL_LFHXEXT2; +if(!qbevent)break;evnt(20330);}while(r); +LABEL_LFHXEXT:; +if(qbevent){evnt(20331);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20332);}while(r); +LABEL_LFHXEXT2:; +if(qbevent){evnt(20333);r=0;} +S_23541:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 16 )))||new_error){ +if(qbevent){evnt(20336);if(r)goto S_23541;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20336);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20336);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; +if(!qbevent)break;evnt(20337);}while(r); +S_23546:; +fornext_value2975= 1 ; +fornext_finalvalue2975=_FUNC_LINEFORMAT_STRING_HX->len; +fornext_step2975= 1 ; +if (fornext_step2975<0) fornext_step_negative2975=1; else fornext_step_negative2975=0; +if (new_error) goto fornext_error2975; +goto fornext_entrylabel2975; +while(1){ +fornext_value2975=fornext_step2975+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2975: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2975; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2975){ +if (fornext_value2975fornext_finalvalue2975) break; +} +fornext_error2975:; +if(qbevent){evnt(20338);if(r)goto S_23546;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20339);}while(r); +S_23548:; +if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 57 ))||new_error){ +if(qbevent){evnt(20340);if(r)goto S_23548;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; +if(!qbevent)break;evnt(20340);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 65 + 10 ; +if(!qbevent)break;evnt(20340);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 16 )+*_FUNC_LINEFORMAT_LONG_V2; +if(!qbevent)break;evnt(20341);}while(r); +fornext_continue_2974:; +} +fornext_exit_2974:; +LABEL_FINISHHEXOCTBIN:; +if(qbevent){evnt(20344);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20345);}while(r); +S_23556:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_E, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(20346);if(r)goto S_23556;} +S_23557:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20349);if(r)goto S_23557;} +S_23558:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 127 ))||new_error){ +if(qbevent){evnt(20350);if(r)goto S_23558;} +S_23559:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 255 ))||new_error){ +if(qbevent){evnt(20351);if(r)goto S_23559;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20351);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20351);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 255 )+ 1 ; +if(!qbevent)break;evnt(20352);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20353);}while(r); +} +} +S_23567:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20357);if(r)goto S_23567;} +S_23568:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 32767 ))||new_error){ +if(qbevent){evnt(20358);if(r)goto S_23568;} +S_23569:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 65535 ))||new_error){ +if(qbevent){evnt(20359);if(r)goto S_23569;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20359);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20359);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 65535 )+ 1 ; +if(!qbevent)break;evnt(20360);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20361);}while(r); +} +} +S_23577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20365);if(r)goto S_23577;} +S_23578:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 2147483647 ))||new_error){ +if(qbevent){evnt(20366);if(r)goto S_23578;} +S_23579:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 4294967295ll ))||new_error){ +if(qbevent){evnt(20367);if(r)goto S_23579;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20367);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20367);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 4294967295ll )+ 1 ; +if(!qbevent)break;evnt(20368);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20369);}while(r); +} +} +S_23587:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20373);if(r)goto S_23587;} +S_23588:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 9223372036854775807ll ))||new_error){ +if(qbevent){evnt(20374);if(r)goto S_23588;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(~(*_FUNC_LINEFORMAT_UINTEGER64_V))+ 1 ; +if(!qbevent)break;evnt(20376);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20377);}while(r); +} +} +S_23593:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20381);if(r)goto S_23593;} +do{ +*_FUNC_LINEFORMAT_LONG_VBITN=qbr(func_val(_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20382);}while(r); +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; +if(!qbevent)break;evnt(20383);}while(r); +S_23596:; +fornext_value2978= 1 ; +fornext_finalvalue2978=*_FUNC_LINEFORMAT_LONG_VBITN- 1 ; +fornext_step2978= 1 ; +if (fornext_step2978<0) fornext_step_negative2978=1; else fornext_step_negative2978=0; +if (new_error) goto fornext_error2978; +goto fornext_entrylabel2978; +while(1){ +fornext_value2978=fornext_step2978+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2978: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2978; +if (fornext_step_negative2978){ +if (fornext_value2978fornext_finalvalue2978) break; +} +fornext_error2978:; +if(qbevent){evnt(20383);if(r)goto S_23596;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; +if(!qbevent)break;evnt(20383);}while(r); +fornext_continue_2977:; +} +fornext_exit_2977:; +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; +if(!qbevent)break;evnt(20383);}while(r); +S_23600:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ +if(qbevent){evnt(20384);if(r)goto S_23600;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; +if(!qbevent)break;evnt(20385);}while(r); +S_23602:; +fornext_value2980= 1 ; +fornext_finalvalue2980=*_FUNC_LINEFORMAT_LONG_VBITN; +fornext_step2980= 1 ; +if (fornext_step2980<0) fornext_step_negative2980=1; else fornext_step_negative2980=0; +if (new_error) goto fornext_error2980; +goto fornext_entrylabel2980; +while(1){ +fornext_value2980=fornext_step2980+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2980: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2980; +if (fornext_step_negative2980){ +if (fornext_value2980fornext_finalvalue2980) break; +} +fornext_error2980:; +if(qbevent){evnt(20385);if(r)goto S_23602;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; +if(!qbevent)break;evnt(20385);}while(r); +fornext_continue_2979:; +} +fornext_exit_2979:; +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; +if(!qbevent)break;evnt(20385);}while(r); +S_23606:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ +if(qbevent){evnt(20386);if(r)goto S_23606;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20386);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20386);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))&*_FUNC_LINEFORMAT_UINTEGER64_H)+ 1 ; +if(!qbevent)break;evnt(20387);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20388);}while(r); +} +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),_FUNC_LINEFORMAT_STRING_NUM),_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN),qbs_new_txt_len(",",1)),_FUNC_LINEFORMAT_STRING_FULLHX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20394);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20396);}while(r); +} +} +S_23619:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20402);if(r)goto S_23619;} +S_23620:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("O",1))))||new_error){ +if(qbevent){evnt(20403);if(r)goto S_23620;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20404);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20406);}while(r); +LABEL_LFREADOCT:; +if(qbevent){evnt(20407);r=0;} +S_23623:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20408);if(r)goto S_23623;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20409);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20409);}while(r); +S_23626:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 55 )))||new_error){ +if(qbevent){evnt(20410);if(r)goto S_23626;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20410);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20410);}while(r); +do{ +goto LABEL_LFREADOCT; +if(!qbevent)break;evnt(20410);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&O",2),_FUNC_LINEFORMAT_STRING_HX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20412);}while(r); +S_23633:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20415);if(r)goto S_23633;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20415);}while(r); +dl_continue_2981:; +} +dl_exit_2981:; +S_23636:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20416);if(r)goto S_23636;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20416);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20418);}while(r); +S_23640:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20420);if(r)goto S_23640;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20421);}while(r); +S_23642:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(20422);if(r)goto S_23642;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20422);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20422);}while(r); +} +S_23646:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(20423);if(r)goto S_23646;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20423);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20423);}while(r); +} +S_23650:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(20424);if(r)goto S_23650;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20424);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20424);}while(r); +} +} +S_23655:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20427);if(r)goto S_23655;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20428);}while(r); +S_23657:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20429);if(r)goto S_23657;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20429);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20429);}while(r); +} +S_23661:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(20430);if(r)goto S_23661;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20430);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20430);}while(r); +} +S_23665:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20431);if(r)goto S_23665;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20431);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20431);}while(r); +} +S_23669:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20432);if(r)goto S_23669;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20432);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20432);}while(r); +} +S_23673:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(20433);if(r)goto S_23673;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20433);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20433);}while(r); +} +S_23677:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20434);if(r)goto S_23677;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20435);}while(r); +do{ +goto LABEL_LFOTBITEXT; +if(!qbevent)break;evnt(20436);}while(r); +} +} +S_23682:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20440);if(r)goto S_23682;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20441);}while(r); +S_23684:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20442);if(r)goto S_23684;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20442);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20442);}while(r); +} +S_23688:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20443);if(r)goto S_23688;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20443);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20443);}while(r); +} +S_23692:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20444);if(r)goto S_23692;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20445);}while(r); +LABEL_LFOTBITEXT:; +if(qbevent){evnt(20446);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20447);}while(r); +S_23695:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20448);if(r)goto S_23695;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20449);}while(r); +S_23697:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20450);if(r)goto S_23697;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20451);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20452);}while(r); +}else{ +do{ +goto dl_exit_2983; +if(!qbevent)break;evnt(20454);}while(r); +} +dl_continue_2983:; +} +dl_exit_2983:; +S_23704:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20457);if(r)goto S_23704;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20457);}while(r); +} +S_23707:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20459);if(r)goto S_23707;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20459);}while(r); +dl_continue_2984:; +} +dl_exit_2984:; +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20460);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20465);}while(r); +S_23714:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 11 )))||new_error){ +if(qbevent){evnt(20467);if(r)goto S_23714;} +S_23715:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 11 ))|(-(qbs_asc(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ))<= 51 ))))||new_error){ +if(qbevent){evnt(20468);if(r)goto S_23715;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20468);}while(r); +} +} +S_23719:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 6 )))||new_error){ +if(qbevent){evnt(20471);if(r)goto S_23719;} +S_23720:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 6 ))|(qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1)))))||new_error){ +if(qbevent){evnt(20472);if(r)goto S_23720;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20472);}while(r); +} +} +do{ +goto LABEL_LFOTEXT2; +if(!qbevent)break;evnt(20475);}while(r); +LABEL_LFOTEXT:; +if(qbevent){evnt(20476);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20477);}while(r); +LABEL_LFOTEXT2:; +if(qbevent){evnt(20478);r=0;} +S_23726:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 22 )))||new_error){ +if(qbevent){evnt(20482);if(r)goto S_23726;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20482);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20482);}while(r); +} +S_23730:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len== 22 )))||new_error){ +if(qbevent){evnt(20483);if(r)goto S_23730;} +S_23731:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(20484);if(r)goto S_23731;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20484);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20484);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; +if(!qbevent)break;evnt(20487);}while(r); +S_23737:; +fornext_value2993= 1 ; +fornext_finalvalue2993=_FUNC_LINEFORMAT_STRING_HX->len; +fornext_step2993= 1 ; +if (fornext_step2993<0) fornext_step_negative2993=1; else fornext_step_negative2993=0; +if (new_error) goto fornext_error2993; +goto fornext_entrylabel2993; +while(1){ +fornext_value2993=fornext_step2993+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2993: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2993; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2993){ +if (fornext_value2993fornext_finalvalue2993) break; +} +fornext_error2993:; +if(qbevent){evnt(20488);if(r)goto S_23737;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20489);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; +if(!qbevent)break;evnt(20490);}while(r); +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 8 )+*_FUNC_LINEFORMAT_LONG_V2; +if(!qbevent)break;evnt(20491);}while(r); +fornext_continue_2992:; +} +fornext_exit_2992:; +do{ +goto LABEL_FINISHHEXOCTBIN; +if(!qbevent)break;evnt(20494);}while(r); +} +} +S_23745:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20500);if(r)goto S_23745;} +S_23746:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,1),qbs_new_txt_len("B",1))))||new_error){ +if(qbevent){evnt(20501);if(r)goto S_23746;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20502);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20504);}while(r); +LABEL_LFREADBIN:; +if(qbevent){evnt(20505);r=0;} +S_23749:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20506);if(r)goto S_23749;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20507);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20507);}while(r); +S_23752:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 49 )))||new_error){ +if(qbevent){evnt(20508);if(r)goto S_23752;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20508);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20508);}while(r); +do{ +goto LABEL_LFREADBIN; +if(!qbevent)break;evnt(20508);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&B",2),_FUNC_LINEFORMAT_STRING_HX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20510);}while(r); +S_23759:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20513);if(r)goto S_23759;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20513);}while(r); +dl_continue_2995:; +} +dl_exit_2995:; +S_23762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20514);if(r)goto S_23762;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20514);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20516);}while(r); +S_23766:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20518);if(r)goto S_23766;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20519);}while(r); +S_23768:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(20520);if(r)goto S_23768;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20520);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20520);}while(r); +} +S_23772:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(20521);if(r)goto S_23772;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20521);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20521);}while(r); +} +S_23776:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(20522);if(r)goto S_23776;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20522);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20522);}while(r); +} +} +S_23781:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20525);if(r)goto S_23781;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20526);}while(r); +S_23783:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20527);if(r)goto S_23783;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20527);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20527);}while(r); +} +S_23787:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(20528);if(r)goto S_23787;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20528);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20528);}while(r); +} +S_23791:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20529);if(r)goto S_23791;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20529);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20529);}while(r); +} +S_23795:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20530);if(r)goto S_23795;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20530);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20530);}while(r); +} +S_23799:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(20531);if(r)goto S_23799;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20531);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20531);}while(r); +} +S_23803:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20532);if(r)goto S_23803;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20533);}while(r); +do{ +goto LABEL_LFBIBITEXT; +if(!qbevent)break;evnt(20534);}while(r); +} +} +S_23808:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20540);if(r)goto S_23808;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20541);}while(r); +S_23810:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20542);if(r)goto S_23810;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20542);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20542);}while(r); +} +S_23814:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20543);if(r)goto S_23814;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20543);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20543);}while(r); +} +S_23818:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20544);if(r)goto S_23818;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20545);}while(r); +LABEL_LFBIBITEXT:; +if(qbevent){evnt(20546);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20547);}while(r); +S_23821:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20548);if(r)goto S_23821;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20549);}while(r); +S_23823:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20550);if(r)goto S_23823;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20551);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20552);}while(r); +}else{ +do{ +goto dl_exit_2997; +if(!qbevent)break;evnt(20554);}while(r); +} +dl_continue_2997:; +} +dl_exit_2997:; +S_23830:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20557);if(r)goto S_23830;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20557);}while(r); +} +S_23833:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20559);if(r)goto S_23833;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20559);}while(r); +dl_continue_2998:; +} +dl_exit_2998:; +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20560);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20565);}while(r); +S_23840:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 32 )))||new_error){ +if(qbevent){evnt(20566);if(r)goto S_23840;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20566);}while(r); +} +S_23843:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 16 )))||new_error){ +if(qbevent){evnt(20567);if(r)goto S_23843;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20567);}while(r); +} +do{ +goto LABEL_LFBIEXT2; +if(!qbevent)break;evnt(20569);}while(r); +LABEL_LFBIEXT:; +if(qbevent){evnt(20570);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20571);}while(r); +LABEL_LFBIEXT2:; +if(qbevent){evnt(20572);r=0;} +S_23848:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 64 )))||new_error){ +if(qbevent){evnt(20575);if(r)goto S_23848;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20575);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20575);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; +if(!qbevent)break;evnt(20577);}while(r); +S_23853:; +fornext_value3004= 1 ; +fornext_finalvalue3004=_FUNC_LINEFORMAT_STRING_HX->len; +fornext_step3004= 1 ; +if (fornext_step3004<0) fornext_step_negative3004=1; else fornext_step_negative3004=0; +if (new_error) goto fornext_error3004; +goto fornext_entrylabel3004; +while(1){ +fornext_value3004=fornext_step3004+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel3004: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value3004; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3004){ +if (fornext_value3004fornext_finalvalue3004) break; +} +fornext_error3004:; +if(qbevent){evnt(20578);if(r)goto S_23853;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20579);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; +if(!qbevent)break;evnt(20580);}while(r); +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 2 )+*_FUNC_LINEFORMAT_LONG_V2; +if(!qbevent)break;evnt(20581);}while(r); +fornext_continue_3003:; +} +fornext_exit_3003:; +do{ +goto LABEL_FINISHHEXOCTBIN; +if(!qbevent)break;evnt(20584);}while(r); +} +} +S_23861:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20590);if(r)goto S_23861;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected &H... or &O...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20590);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20590);}while(r); +} +S_23865:; +if (((((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 90 ))))|(-(*_FUNC_LINEFORMAT_LONG_C== 95 )))||new_error){ +if(qbevent){evnt(20594);if(r)goto S_23865;} +S_23866:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 95 ))||new_error){ +if(qbevent){evnt(20595);if(r)goto S_23866;} +do{ +*_FUNC_LINEFORMAT_LONG_P2= 0 ; +if(!qbevent)break;evnt(20595);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20595);}while(r); +} +S_23871:; +fornext_value3007=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +fornext_finalvalue3007=*_FUNC_LINEFORMAT_LONG_N; +fornext_step3007= 1 ; +if (fornext_step3007<0) fornext_step_negative3007=1; else fornext_step_negative3007=0; +if (new_error) goto fornext_error3007; +goto fornext_entrylabel3007; +while(1){ +fornext_value3007=fornext_step3007+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel3007: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value3007; +if (fornext_step_negative3007){ +if (fornext_value3007fornext_finalvalue3007) break; +} +fornext_error3007:; +if(qbevent){evnt(20596);if(r)goto S_23871;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20597);}while(r); +S_23873:; +if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C2)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(20598);if(r)goto S_23873;} +do{ +goto fornext_exit_3006; +if(!qbevent)break;evnt(20598);}while(r); +} +S_23876:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2!= 95 ))||new_error){ +if(qbevent){evnt(20599);if(r)goto S_23876;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; +if(!qbevent)break;evnt(20599);}while(r); +} +fornext_continue_3006:; +} +fornext_exit_3006:; +S_23880:; +if ((*_FUNC_LINEFORMAT_LONG_P2)||new_error){ +if(qbevent){evnt(20601);if(r)goto S_23880;} +do{ +*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20603);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A3,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20604);}while(r); +S_23883:; +if ((-(*_FUNC_LINEFORMAT_LONG_N2== 3 ))||new_error){ +if(qbevent){evnt(20607);if(r)goto S_23883;} +S_23884:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("REM",3))))||new_error){ +if(qbevent){evnt(20608);if(r)goto S_23884;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; +if(!qbevent)break;evnt(20609);}while(r); +S_23886:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20610);if(r)goto S_23886;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20611);}while(r); +S_23888:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(20612);if(r)goto S_23888;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20612);}while(r); +do{ +goto LABEL_EXTCHECK; +if(!qbevent)break;evnt(20612);}while(r); +} +} +S_23893:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 ))),(qbs_add(__STRING1_SP,qbs_new_txt_len("THEN",4))))))||new_error){ +if(qbevent){evnt(20616);if(r)goto S_23893;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20616);}while(r); +} +do{ +qbs_set(__STRING_LAYOUTCOMMENT,FUNC_SCASE(qbs_new_txt_len("Rem",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20617);}while(r); +do{ +goto LABEL_COMMENT; +if(!qbevent)break;evnt(20618);}while(r); +} +} +S_23900:; +if ((-(*_FUNC_LINEFORMAT_LONG_N2== 4 ))||new_error){ +if(qbevent){evnt(20623);if(r)goto S_23900;} +S_23901:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("DATA",4))))||new_error){ +if(qbevent){evnt(20624);if(r)goto S_23901;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20625);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; +if(!qbevent)break;evnt(20626);}while(r); +S_23904:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20627);if(r)goto S_23904;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20628);}while(r); +S_23906:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(20629);if(r)goto S_23906;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20629);}while(r); +do{ +goto LABEL_EXTCHECK; +if(!qbevent)break;evnt(20629);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; +if(!qbevent)break;evnt(20632);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; +if(!qbevent)break;evnt(20633);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; +if(!qbevent)break;evnt(20634);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_FINALDATA= 0 ; +if(!qbevent)break;evnt(20635);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20636);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1= 0 ; +if(!qbevent)break;evnt(20637);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P2= 0 ; +if(!qbevent)break;evnt(20638);}while(r); +LABEL_NEXTDATACHR:; +if(qbevent){evnt(20639);r=0;} +S_23918:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20640);if(r)goto S_23918;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20641);}while(r); +S_23920:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 9 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 32 )))||new_error){ +if(qbevent){evnt(20642);if(r)goto S_23920;} +S_23921:; +if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ +if(qbevent){evnt(20643);if(r)goto S_23921;} +do{ +goto LABEL_SKIPWHITESPACE; +if(!qbevent)break;evnt(20643);}while(r); +} +} +S_23925:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 58 ))||new_error){ +if(qbevent){evnt(20646);if(r)goto S_23925;} +S_23926:; +if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ +if(qbevent){evnt(20647);if(r)goto S_23926;} +do{ +*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; +if(!qbevent)break;evnt(20647);}while(r); +do{ +goto LABEL_ADDDATA; +if(!qbevent)break;evnt(20647);}while(r); +} +} +S_23931:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 44 ))||new_error){ +if(qbevent){evnt(20650);if(r)goto S_23931;} +S_23932:; +if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ +if(qbevent){evnt(20651);if(r)goto S_23932;} +LABEL_ADDDATA:; +if(qbevent){evnt(20652);r=0;} +S_23933:; +if ((-(*__LONG_PREPASS== 0 ))||new_error){ +if(qbevent){evnt(20653);if(r)goto S_23933;} +S_23934:; +if ((*_FUNC_LINEFORMAT_LONG_P1)||new_error){ +if(qbevent){evnt(20654);if(r)goto S_23934;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20658);}while(r); +} +S_23937:; +if ((*_FUNC_LINEFORMAT_LONG_SPEECHMARKS)||new_error){ +if(qbevent){evnt(20661);if(r)goto S_23937;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20663);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 44 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20667);}while(r); +} +S_23942:; +if ((-(*_FUNC_LINEFORMAT_LONG_FINALDATA== 1 ))||new_error){ +if(qbevent){evnt(20669);if(r)goto S_23942;} +do{ +goto LABEL_FINISHEDDATA; +if(!qbevent)break;evnt(20669);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20670);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1= 0 ; +if(!qbevent)break;evnt(20671);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P2= 0 ; +if(!qbevent)break;evnt(20672);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; +if(!qbevent)break;evnt(20673);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; +if(!qbevent)break;evnt(20674);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; +if(!qbevent)break;evnt(20675);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20676);}while(r); +do{ +goto LABEL_NEXTDATACHR; +if(!qbevent)break;evnt(20677);}while(r); +} +} +S_23955:; +if ((-(*_FUNC_LINEFORMAT_LONG_COMMANEXT== 1 ))||new_error){ +if(qbevent){evnt(20681);if(r)goto S_23955;} +S_23956:; +if (((-(*_FUNC_LINEFORMAT_LONG_C!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 9 )))||new_error){ +if(qbevent){evnt(20682);if(r)goto S_23956;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected , after quoted string in DATA statement",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20682);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20682);}while(r); +} +} +S_23961:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ +if(qbevent){evnt(20685);if(r)goto S_23961;} +S_23962:; +if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 1 ))||new_error){ +if(qbevent){evnt(20686);if(r)goto S_23962;} +do{ +*_FUNC_LINEFORMAT_LONG_COMMANEXT= 1 ; +if(!qbevent)break;evnt(20687);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; +if(!qbevent)break;evnt(20688);}while(r); +} +S_23966:; +if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ +if(qbevent){evnt(20690);if(r)goto S_23966;} +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 1 ; +if(!qbevent)break;evnt(20690);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_SCAN= 1 ; +if(!qbevent)break;evnt(20693);}while(r); +S_23971:; +if ((-(*_FUNC_LINEFORMAT_LONG_P1== 0 ))||new_error){ +if(qbevent){evnt(20695);if(r)goto S_23971;} +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20695);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20695);}while(r); +} +S_23975:; +if (((-(*_FUNC_LINEFORMAT_LONG_C!= 9 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 32 )))||new_error){ +if(qbevent){evnt(20696);if(r)goto S_23975;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20696);}while(r); +} +LABEL_SKIPWHITESPACE:; +if(qbevent){evnt(20698);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20699);}while(r); +do{ +goto LABEL_NEXTDATACHR; +if(!qbevent)break;evnt(20699);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; +if(!qbevent)break;evnt(20701);}while(r); +do{ +goto LABEL_ADDDATA; +if(!qbevent)break;evnt(20701);}while(r); +LABEL_FINISHEDDATA:; +if(qbevent){evnt(20702);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20703);}while(r); +S_23984:; +if ((-(*__LONG_PREPASS== 0 ))||new_error){ +if(qbevent){evnt(20704);if(r)goto S_23984;} +do{ +sub_put2( 16 ,NULL,byte_element((uint64)_FUNC_LINEFORMAT_STRING_X->chr,_FUNC_LINEFORMAT_STRING_X->len,byte_element_3008),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20705);}while(r); +do{ +*__LONG_DATAOFFSET=*__LONG_DATAOFFSET+_FUNC_LINEFORMAT_STRING_X->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20706);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_space((_FUNC_LINEFORMAT_STRING_X->len- 1 )* 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20708);}while(r); +S_23988:; +fornext_value3012= 1 ; +fornext_finalvalue3012=_FUNC_LINEFORMAT_STRING_X->len- 1 ; +fornext_step3012= 1 ; +if (fornext_step3012<0) fornext_step_negative3012=1; else fornext_step_negative3012=0; +if (new_error) goto fornext_error3012; +goto fornext_entrylabel3012; +while(1){ +fornext_value3012=fornext_step3012+(*_FUNC_LINEFORMAT_LONG_EC); +fornext_entrylabel3012: +*_FUNC_LINEFORMAT_LONG_EC=fornext_value3012; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3012){ +if (fornext_value3012fornext_finalvalue3012) break; +} +fornext_error3012:; +if(qbevent){evnt(20709);if(r)goto S_23988;} +do{ +*_FUNC_LINEFORMAT_LONG_V1=qbs_asc(_FUNC_LINEFORMAT_STRING_X,*_FUNC_LINEFORMAT_LONG_EC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20711);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V1/ 16 ; +if(!qbevent)break;evnt(20712);}while(r); +S_23991:; +if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 9 ))||new_error){ +if(qbevent){evnt(20712);if(r)goto S_23991;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 48 ; +if(!qbevent)break;evnt(20712);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 55 ; +if(!qbevent)break;evnt(20712);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1& 15 ; +if(!qbevent)break;evnt(20713);}while(r); +S_23997:; +if ((-(*_FUNC_LINEFORMAT_LONG_V1<= 9 ))||new_error){ +if(qbevent){evnt(20713);if(r)goto S_23997;} +do{ +*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 48 ; +if(!qbevent)break;evnt(20713);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 55 ; +if(!qbevent)break;evnt(20713);}while(r); +} +do{ +tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ +tmp_fileno=(*_FUNC_LINEFORMAT_LONG_EC* 2 )-( 1 ); if (!new_error){ +tmp_long=*_FUNC_LINEFORMAT_LONG_V1; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(20714);}while(r); +do{ +tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ +tmp_fileno=*_FUNC_LINEFORMAT_LONG_EC* 2 ; if (!new_error){ +tmp_long=*_FUNC_LINEFORMAT_LONG_V2; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(20715);}while(r); +fornext_continue_3011:; +} +fornext_exit_3011:; +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("DATA",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20720);}while(r); +S_24007:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_E->len))||new_error){ +if(qbevent){evnt(20720);if(r)goto S_24007;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("_",1)),_FUNC_LINEFORMAT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20720);}while(r); +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20721);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20725);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; +if(!qbevent)break;evnt(20726);}while(r); +LABEL_EXTCHECK:; +if(qbevent){evnt(20729);r=0;} +S_24015:; +if ((-(*_FUNC_LINEFORMAT_LONG_N2> 40 ))||new_error){ +if(qbevent){evnt(20730);if(r)goto S_24015;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Identifier longer than 40 character limit",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20730);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20730);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_C3=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20731);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_M= 0 ; +if(!qbevent)break;evnt(20732);}while(r); +S_24021:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 126 ))||new_error){ +if(qbevent){evnt(20733);if(r)goto S_24021;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20734);}while(r); +S_24023:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20735);if(r)goto S_24023;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20735);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20735);}while(r); +} +S_24027:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20736);if(r)goto S_24027;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20736);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20736);}while(r); +} +S_24031:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20737);if(r)goto S_24031;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20737);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20737);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_chr(qbs_asc(_FUNC_LINEFORMAT_STRING_E2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20738);}while(r); +S_24036:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20739);if(r)goto S_24036;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20739);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20739);}while(r); +} +S_24040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20740);if(r)goto S_24040;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20740);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20740);}while(r); +} +S_24044:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20741);if(r)goto S_24044;} +do{ +*_FUNC_LINEFORMAT_LONG_M= 1 ; +if(!qbevent)break;evnt(20741);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~`",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20741);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20741);}while(r); +} +} +S_24050:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 37 ))||new_error){ +if(qbevent){evnt(20743);if(r)goto S_24050;} +do{ +*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20744);}while(r); +S_24052:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 37 ))||new_error){ +if(qbevent){evnt(20745);if(r)goto S_24052;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20745);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20745);}while(r); +} +S_24056:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ +if(qbevent){evnt(20746);if(r)goto S_24056;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20746);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20746);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20747);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20747);}while(r); +} +S_24063:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 38 ))||new_error){ +if(qbevent){evnt(20749);if(r)goto S_24063;} +do{ +*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20750);}while(r); +S_24065:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ +if(qbevent){evnt(20751);if(r)goto S_24065;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20751);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20751);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20752);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20752);}while(r); +} +S_24072:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 33 ))||new_error){ +if(qbevent){evnt(20754);if(r)goto S_24072;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20754);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20754);}while(r); +} +S_24076:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 35 ))||new_error){ +if(qbevent){evnt(20755);if(r)goto S_24076;} +do{ +*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20756);}while(r); +S_24078:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 35 ))||new_error){ +if(qbevent){evnt(20757);if(r)goto S_24078;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20757);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20757);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20758);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20758);}while(r); +} +S_24085:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 36 ))||new_error){ +if(qbevent){evnt(20760);if(r)goto S_24085;} +do{ +*_FUNC_LINEFORMAT_LONG_M= 1 ; +if(!qbevent)break;evnt(20760);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20760);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20760);}while(r); +} +S_24090:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 96 ))||new_error){ +if(qbevent){evnt(20761);if(r)goto S_24090;} +do{ +*_FUNC_LINEFORMAT_LONG_M= 1 ; +if(!qbevent)break;evnt(20761);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20761);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20761);}while(r); +} +S_24095:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I)== 46 )))||new_error){ +if(qbevent){evnt(20765);if(r)goto S_24095;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20766);}while(r); +S_24097:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20767);if(r)goto S_24097;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20769);}while(r); +S_24099:; +fornext_value3016=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +fornext_finalvalue3016=*_FUNC_LINEFORMAT_LONG_N; +fornext_step3016= 1 ; +if (fornext_step3016<0) fornext_step_negative3016=1; else fornext_step_negative3016=0; +if (new_error) goto fornext_error3016; +goto fornext_entrylabel3016; +while(1){ +fornext_value3016=fornext_step3016+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel3016: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value3016; +if (fornext_step_negative3016){ +if (fornext_value3016fornext_finalvalue3016) break; +} +fornext_error3016:; +if(qbevent){evnt(20770);if(r)goto S_24099;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20771);}while(r); +S_24101:; +if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(20773);if(r)goto S_24101;} +do{ +goto fornext_exit_3015; +if(!qbevent)break;evnt(20773);}while(r); +} +S_24104:; +if ((-(*_FUNC_LINEFORMAT_LONG_C!= 95 ))||new_error){ +if(qbevent){evnt(20774);if(r)goto S_24104;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; +if(!qbevent)break;evnt(20774);}while(r); +} +fornext_continue_3015:; +} +fornext_exit_3015:; +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I+ 1 ,*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20776);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_N2+ 1 +(*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ); +if(!qbevent)break;evnt(20777);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_P2+ 1 ; +if(!qbevent)break;evnt(20778);}while(r); +do{ +goto LABEL_EXTCHECK; +if(!qbevent)break;evnt(20779);}while(r); +} +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20783);}while(r); +LABEL_LFGETVE:; +if(qbevent){evnt(20785);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+_FUNC_LINEFORMAT_STRING_E2->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20786);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20787);}while(r); +S_24117:; +if ((*_FUNC_LINEFORMAT_LONG_M)||new_error){ +if(qbevent){evnt(20788);if(r)goto S_24117;} +LABEL_LFGETVD:; +if(qbevent){evnt(20789);r=0;} +S_24118:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20790);if(r)goto S_24118;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20791);}while(r); +S_24120:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(20792);if(r)goto S_24120;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_chr(*_FUNC_LINEFORMAT_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20792);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20792);}while(r); +do{ +goto LABEL_LFGETVD; +if(!qbevent)break;evnt(20792);}while(r); +} +} +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20796);}while(r); +} +} +S_24130:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 9 )))||new_error){ +if(qbevent){evnt(20803);if(r)goto S_24130;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20803);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20803);}while(r); +} +S_24134:; +if ((((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5])])||new_error){ +if(qbevent){evnt(20807);if(r)goto S_24134;} +S_24135:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 61 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 62 )))||new_error){ +if(qbevent){evnt(20808);if(r)goto S_24135;} +do{ +*_FUNC_LINEFORMAT_LONG_COUNT= 0 ; +if(!qbevent)break;evnt(20809);}while(r); +S_24137:; +do{ +if(qbevent){evnt(20810);if(r)goto S_24137;} +do{ +*_FUNC_LINEFORMAT_LONG_COUNT=*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20811);}while(r); +S_24139:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)>=(_FUNC_LINEFORMAT_STRING_A->len- 2 ))))||new_error){ +if(qbevent){evnt(20812);if(r)goto S_24139;} +do{ +goto dl_exit_3018; +if(!qbevent)break;evnt(20812);}while(r); +} +S_24142:; +dl_continue_3018:; +}while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)!= 32 ))))&&(!new_error)); +dl_exit_3018:; +if(qbevent){evnt(20813);if(r)goto S_24142;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20814);}while(r); +S_24144:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))||new_error){ +if(qbevent){evnt(20815);if(r)goto S_24144;} +S_24145:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ +if(qbevent){evnt(20816);if(r)goto S_24145;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20816);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20816);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20816);}while(r); +} +S_24150:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ +if(qbevent){evnt(20817);if(r)goto S_24150;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20817);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20817);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20817);}while(r); +} +S_24155:; +}else{ +if (-(*_FUNC_LINEFORMAT_LONG_C== 62 )){ +if(qbevent){evnt(20818);if(r)goto S_24155;} +S_24156:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ +if(qbevent){evnt(20819);if(r)goto S_24156;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20819);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20819);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20819);}while(r); +} +S_24161:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ +if(qbevent){evnt(20820);if(r)goto S_24161;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20820);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20820);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20820);}while(r); +} +S_24166:; +}else{ +if (-(*_FUNC_LINEFORMAT_LONG_C== 61 )){ +if(qbevent){evnt(20821);if(r)goto S_24166;} +S_24167:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ +if(qbevent){evnt(20822);if(r)goto S_24167;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20822);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20822);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20822);}while(r); +} +S_24172:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ +if(qbevent){evnt(20823);if(r)goto S_24172;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20823);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20823);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20823);}while(r); +} +} +} +} +} +S_24179:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_C== 36 ))&(_FUNC_LINEFORMAT_STRING_A2->len)))||new_error){ +if(qbevent){evnt(20827);if(r)goto S_24179;} +do{ +goto LABEL_BADUSAGE; +if(!qbevent)break;evnt(20827);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr(*_FUNC_LINEFORMAT_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20830);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20831);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20832);}while(r); +} +LABEL_BADUSAGE:; +if(qbevent){evnt(20834);r=0;} +S_24186:; +if ((-(*_FUNC_LINEFORMAT_LONG_C!= 39 ))||new_error){ +if(qbevent){evnt(20836);if(r)goto S_24186;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected character on line",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20836);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20836);}while(r); +} +do{ +qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("'",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20839);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20840);}while(r); +LABEL_COMMENT:; +if(qbevent){evnt(20841);r=0;} +S_24192:; +if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20842);if(r)goto S_24192;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20842);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_right(_FUNC_LINEFORMAT_STRING_A,_FUNC_LINEFORMAT_STRING_A->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20843);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_CC,qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20844);}while(r); +S_24197:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ +if(qbevent){evnt(20845);if(r)goto S_24197;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20845);}while(r); +} +do{ +qbs_set(__STRING_LAYOUTCOMMENT,qbs_rtrim(qbs_add(__STRING_LAYOUTCOMMENT,_FUNC_LINEFORMAT_STRING_CC))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20846);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_ltrim(_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20848);}while(r); +S_24202:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ +if(qbevent){evnt(20849);if(r)goto S_24202;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20849);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20850);}while(r); +S_24206:; +if ((-(*_FUNC_LINEFORMAT_LONG_AC!= 36 ))||new_error){ +if(qbevent){evnt(20855);if(r)goto S_24206;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20855);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NOCASEC,qbs_ltrim(qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20856);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_MEMMODE= 0 ; +if(!qbevent)break;evnt(20857);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_X= 1 ; +if(!qbevent)break;evnt(20858);}while(r); +S_24212:; +do{ +if(qbevent){evnt(20859);if(r)goto S_24212;} +S_24213:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 7 ,1),qbs_new_txt_len("$STATIC",7))))||new_error){ +if(qbevent){evnt(20866);if(r)goto S_24213;} +do{ +*_FUNC_LINEFORMAT_LONG_MEMMODE= 1 ; +if(!qbevent)break;evnt(20867);}while(r); +S_24215:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,1),qbs_new_txt_len("$DYNAMIC",8)))){ +if(qbevent){evnt(20868);if(r)goto S_24215;} +do{ +*_FUNC_LINEFORMAT_LONG_MEMMODE= 2 ; +if(!qbevent)break;evnt(20869);}while(r); +S_24217:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,1),qbs_new_txt_len("$INCLUDE",8)))){ +if(qbevent){evnt(20870);if(r)goto S_24217;} +S_24218:; +fornext_value3028=*_FUNC_LINEFORMAT_LONG_X+ 8 ; +fornext_finalvalue3028=_FUNC_LINEFORMAT_STRING_C->len; +fornext_step3028= 1 ; +if (fornext_step3028<0) fornext_step_negative3028=1; else fornext_step_negative3028=0; +if (new_error) goto fornext_error3028; +goto fornext_entrylabel3028; +while(1){ +fornext_value3028=fornext_step3028+(*_FUNC_LINEFORMAT_LONG_XX); +fornext_entrylabel3028: +*_FUNC_LINEFORMAT_LONG_XX=fornext_value3028; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3028){ +if (fornext_value3028fornext_finalvalue3028) break; +} +fornext_error3028:; +if(qbevent){evnt(20873);if(r)goto S_24218;} +do{ +*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20874);}while(r); +S_24220:; +if ((-(*_FUNC_LINEFORMAT_LONG_AC== 58 ))||new_error){ +if(qbevent){evnt(20875);if(r)goto S_24220;} +do{ +goto fornext_exit_3027; +if(!qbevent)break;evnt(20875);}while(r); +} +S_24223:; +if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ +if(qbevent){evnt(20876);if(r)goto S_24223;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20876);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20876);}while(r); +} +fornext_continue_3027:; +} +fornext_exit_3027:; +do{ +*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; +if(!qbevent)break;evnt(20878);}while(r); +S_24229:; +fornext_value3031=*_FUNC_LINEFORMAT_LONG_X+ 1 ; +fornext_finalvalue3031=_FUNC_LINEFORMAT_STRING_C->len; +fornext_step3031= 1 ; +if (fornext_step3031<0) fornext_step_negative3031=1; else fornext_step_negative3031=0; +if (new_error) goto fornext_error3031; +goto fornext_entrylabel3031; +while(1){ +fornext_value3031=fornext_step3031+(*_FUNC_LINEFORMAT_LONG_XX); +fornext_entrylabel3031: +*_FUNC_LINEFORMAT_LONG_XX=fornext_value3031; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3031){ +if (fornext_value3031fornext_finalvalue3031) break; +} +fornext_error3031:; +if(qbevent){evnt(20880);if(r)goto S_24229;} +do{ +*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20881);}while(r); +S_24231:; +if ((-(*_FUNC_LINEFORMAT_LONG_AC== 39 ))||new_error){ +if(qbevent){evnt(20882);if(r)goto S_24231;} +do{ +goto fornext_exit_3030; +if(!qbevent)break;evnt(20882);}while(r); +} +S_24234:; +if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ +if(qbevent){evnt(20883);if(r)goto S_24234;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20883);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20883);}while(r); +} +fornext_continue_3030:; +} +fornext_exit_3030:; +do{ +*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; +if(!qbevent)break;evnt(20885);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("'",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20886);}while(r); +S_24241:; +if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ +if(qbevent){evnt(20887);if(r)goto S_24241;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20887);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20887);}while(r); +} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,func_mid(_FUNC_LINEFORMAT_STRING_NOCASEC,*_FUNC_LINEFORMAT_LONG_X+ 1 ,*_FUNC_LINEFORMAT_LONG_XX-*_FUNC_LINEFORMAT_LONG_X- 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20888);}while(r); +S_24246:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20889);if(r)goto S_24246;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20889);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20889);}while(r); +} +} +} +} +do{ +*_FUNC_LINEFORMAT_LONG_X=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20892);}while(r); +S_24252:; +dl_continue_3026:; +}while((-(*_FUNC_LINEFORMAT_LONG_X!= 0 ))&&(!new_error)); +dl_exit_3026:; +if(qbevent){evnt(20893);if(r)goto S_24252;} +S_24253:; +if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 1 ))||new_error){ +if(qbevent){evnt(20895);if(r)goto S_24253;} +do{ +*__INTEGER_ADDMETASTATIC= 1 ; +if(!qbevent)break;evnt(20895);}while(r); +} +S_24256:; +if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 2 ))||new_error){ +if(qbevent){evnt(20896);if(r)goto S_24256;} +do{ +*__INTEGER_ADDMETADYNAMIC= 1 ; +if(!qbevent)break;evnt(20896);}while(r); +} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20898);}while(r); +LABEL_LINEFORMATDONE:; +if(qbevent){evnt(20902);r=0;} +S_24260:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_A2->len))||new_error){ +if(qbevent){evnt(20906);if(r)goto S_24260;} +S_24261:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(20907);if(r)goto S_24261;} +do{ +*__LONG_LINECONTINUATION= 1 ; +if(!qbevent)break;evnt(20909);}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20910);}while(r); +S_24264:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_A2->len>= 2 )))||new_error){ +if(qbevent){evnt(20913);if(r)goto S_24264;} +S_24265:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("_",1))))))||new_error){ +if(qbevent){evnt(20914);if(r)goto S_24265;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20914);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20916);}while(r); +S_24270:; +if ((*__LONG_INCLEVEL)||new_error){ +if(qbevent){evnt(20918);if(r)goto S_24270;} +do{ +*_FUNC_LINEFORMAT_LONG_FH= 99 +*__LONG_INCLEVEL; +if(!qbevent)break;evnt(20919);}while(r); +S_24272:; +if ((func_eof(*_FUNC_LINEFORMAT_LONG_FH))||new_error){ +if(qbevent){evnt(20920);if(r)goto S_24272;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20920);}while(r); +} +do{ +tmp_fileno=*_FUNC_LINEFORMAT_LONG_FH; +if (new_error) goto skip3037; +sub_file_line_input_string(tmp_fileno,_FUNC_LINEFORMAT_STRING_A); +if (new_error) goto skip3037; +skip3037: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20921);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]+ 1 ; +if(!qbevent)break;evnt(20922);}while(r); +do{ +goto LABEL_INCLUDECONT; +if(!qbevent)break;evnt(20923);}while(r); +} +S_24279:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(20926);if(r)goto S_24279;} +do{ +qbs_set(__STRING_IDECOMMAND,func_chr( 100 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20927);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_IGNORE=FUNC_IDE(&(pass3038= 0 )); +if(!qbevent)break;evnt(20928);}while(r); +do{ +*__LONG_IDEERROR= 0 ; +if(!qbevent)break;evnt(20929);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,__STRING_IDERETURN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20930);}while(r); +S_24284:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20931);if(r)goto S_24284;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20931);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20933);}while(r); +S_24289:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,func_chr( 13 ))))||new_error){ +if(qbevent){evnt(20934);if(r)goto S_24289;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20934);}while(r); +} +} +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; +if(!qbevent)break;evnt(20937);}while(r); +LABEL_INCLUDECONT:; +if(qbevent){evnt(20939);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_CONTLINE= 1 ; +if(!qbevent)break;evnt(20941);}while(r); +do{ +goto LABEL_CONTINUELINE; +if(!qbevent)break;evnt(20942);}while(r); +} +} +LABEL_LINEFORMATDONE2:; +if(qbevent){evnt(20946);r=0;} +S_24298:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_A2, 1 ),__STRING1_SP)))||new_error){ +if(qbevent){evnt(20947);if(r)goto S_24298;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_right(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20947);}while(r); +} +S_24301:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(20950);if(r)goto S_24301;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20950);}while(r); +} +S_24304:; +if (( 0 )||new_error){ +if(qbevent){evnt(20952);if(r)goto S_24304;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3040; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("lineformat():return:",20),_FUNC_LINEFORMAT_STRING_A2), 0 , 0 , 1 ); +if (new_error) goto skip3040; +skip3040: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(20952);}while(r); +} +S_24307:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(20953);if(r)goto S_24307;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20953);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_LINEFORMAT,_FUNC_LINEFORMAT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20954);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free30.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_LINEFORMAT_STRING_LINEFORMAT);return _FUNC_LINEFORMAT_STRING_LINEFORMAT; } -int32 FUNC_NUMELEMENTS(qbs*_FUNC_NUMELEMENTS_STRING_A){ +void SUB_MAKEIDREFER(qbs*_SUB_MAKEIDREFER_STRING_REF,int32*_SUB_MAKEIDREFER_LONG_TYP){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -79560,52 +83638,20 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_23361:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_NUMELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20124);if(r)goto S_23361;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20124);}while(r); -} -do{ -*_FUNC_NUMELEMENTS_LONG_N= 1 ; -if(!qbevent)break;evnt(20125);}while(r); -do{ -*_FUNC_NUMELEMENTS_LONG_P= 1 ; -if(!qbevent)break;evnt(20126);}while(r); -LABEL_NUMELEMENTSNEXT:; -if(qbevent){evnt(20127);r=0;} -do{ -*_FUNC_NUMELEMENTS_LONG_I=func_instr(*_FUNC_NUMELEMENTS_LONG_P,_FUNC_NUMELEMENTS_STRING_A,__STRING1_SP,1); +qbs_set(_SUB_MAKEIDREFER_STRING_REF,FUNC_STR2(__LONG_CURRENTID)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20128);}while(r); -S_23367:; -if ((-(*_FUNC_NUMELEMENTS_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(20129);if(r)goto S_23367;} +if(!qbevent)break;evnt(20960);}while(r); do{ -*_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=*_FUNC_NUMELEMENTS_LONG_N; -if(!qbevent)break;evnt(20129);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20129);}while(r); -} -do{ -*_FUNC_NUMELEMENTS_LONG_N=*_FUNC_NUMELEMENTS_LONG_N+ 1 ; -if(!qbevent)break;evnt(20130);}while(r); -do{ -*_FUNC_NUMELEMENTS_LONG_P=*_FUNC_NUMELEMENTS_LONG_I+ 1 ; -if(!qbevent)break;evnt(20131);}while(r); -do{ -goto LABEL_NUMELEMENTSNEXT; -if(!qbevent)break;evnt(20132);}while(r); +*_SUB_MAKEIDREFER_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(20961);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free31.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS; } -int32 FUNC_OPERATORUSAGE(qbs*_FUNC_OPERATORUSAGE_STRING_OPERATOR,int32*_FUNC_OPERATORUSAGE_LONG_TYP,qbs*_FUNC_OPERATORUSAGE_STRING_INFO,int32*_FUNC_OPERATORUSAGE_LONG_LHS,int32*_FUNC_OPERATORUSAGE_LONG_RHS,int32*_FUNC_OPERATORUSAGE_LONG_RESULT){ +int32 FUNC_NUMELEMENTS(qbs*_FUNC_NUMELEMENTS_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -79618,495 +83664,52 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; -if(!qbevent)break;evnt(20136);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 7 ; -if(!qbevent)break;evnt(20136);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 0 ; -if(!qbevent)break;evnt(20136);}while(r); -S_23377:; -if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20152);if(r)goto S_23377;} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 4 ; -if(!qbevent)break;evnt(20153);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 4 ; -if(!qbevent)break;evnt(20153);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 4 ; -if(!qbevent)break;evnt(20154);}while(r); -S_23381:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(20155);if(r)goto S_23381;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_add",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20155);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20155);}while(r); +S_24313:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_NUMELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20965);if(r)goto S_24313;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(20155);}while(r); +if(!qbevent)break;evnt(20965);}while(r); } do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; -if(!qbevent)break;evnt(20156);}while(r); -S_23387:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(20157);if(r)goto S_23387;} +*_FUNC_NUMELEMENTS_LONG_N= 1 ; +if(!qbevent)break;evnt(20966);}while(r); do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_equal",9)); +*_FUNC_NUMELEMENTS_LONG_P= 1 ; +if(!qbevent)break;evnt(20967);}while(r); +LABEL_NUMELEMENTSNEXT:; +if(qbevent){evnt(20968);r=0;} +do{ +*_FUNC_NUMELEMENTS_LONG_I=func_instr(*_FUNC_NUMELEMENTS_LONG_P,_FUNC_NUMELEMENTS_STRING_A,__STRING1_SP,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20157);}while(r); +if(!qbevent)break;evnt(20969);}while(r); +S_24319:; +if ((-(*_FUNC_NUMELEMENTS_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(20970);if(r)goto S_24319;} do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20157);}while(r); +*_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=*_FUNC_NUMELEMENTS_LONG_N; +if(!qbevent)break;evnt(20970);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20157);}while(r); -} -S_23392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(20158);if(r)goto S_23392;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_notequal",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20158);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20158);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20158);}while(r); -} -S_23397:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(20159);if(r)goto S_23397;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterthan",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20159);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20159);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20159);}while(r); -} -S_23402:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(20160);if(r)goto S_23402;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessthan",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20160);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20160);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20160);}while(r); -} -S_23407:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(20161);if(r)goto S_23407;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterorequal",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20161);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20161);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20161);}while(r); -} -S_23412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(20162);if(r)goto S_23412;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessorequal",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20162);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20162);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20162);}while(r); -} -S_23417:; -if (( 0 )||new_error){ -if(qbevent){evnt(20163);if(r)goto S_23417;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2843; -sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID STRING OPERATOR!",24), 0 , 0 , 1 ); -if (new_error) goto skip2843; -skip2843: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(20163);}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(20163);}while(r); -} +if(!qbevent)break;evnt(20970);}while(r); } do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; -if(!qbevent)break;evnt(20167);}while(r); +*_FUNC_NUMELEMENTS_LONG_N=*_FUNC_NUMELEMENTS_LONG_N+ 1 ; +if(!qbevent)break;evnt(20971);}while(r); do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; -if(!qbevent)break;evnt(20167);}while(r); -S_23424:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(20168);if(r)goto S_23424;} +*_FUNC_NUMELEMENTS_LONG_P=*_FUNC_NUMELEMENTS_LONG_I+ 1 ; +if(!qbevent)break;evnt(20972);}while(r); do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; -if(!qbevent)break;evnt(20168);}while(r); -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("pow2",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20168);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20168);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20168);}while(r); -} -S_23430:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(20169);if(r)goto S_23430;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20169);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; -if(!qbevent)break;evnt(20169);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20169);}while(r); -} -S_23435:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(20170);if(r)goto S_23435;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20171);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20171);}while(r); -S_23438:; -if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(20174);if(r)goto S_23438;} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 2 ; -if(!qbevent)break;evnt(20176);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; -if(!qbevent)break;evnt(20177);}while(r); -}else{ -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; -if(!qbevent)break;evnt(20180);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 2 ; -if(!qbevent)break;evnt(20181);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; -if(!qbevent)break;evnt(20183);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20184);}while(r); -} -S_23448:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(20186);if(r)goto S_23448;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("*",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20186);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20186);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20186);}while(r); -} -S_23453:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(20187);if(r)goto S_23453;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("+",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20187);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20187);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20187);}while(r); -} -S_23458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(20188);if(r)goto S_23458;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20188);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20188);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20188);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; -if(!qbevent)break;evnt(20190);}while(r); -S_23464:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(20191);if(r)goto S_23464;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("==",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20191);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20191);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20191);}while(r); -} -S_23469:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(20192);if(r)goto S_23469;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20192);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20192);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20192);}while(r); -} -S_23474:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(20193);if(r)goto S_23474;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20193);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20193);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20193);}while(r); -} -S_23479:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(20194);if(r)goto S_23479;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("!=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20194);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20194);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20194);}while(r); -} -S_23484:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(20195);if(r)goto S_23484;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20195);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20195);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20195);}while(r); -} -S_23489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(20196);if(r)goto S_23489;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20196);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20196);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20196);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 1 ; -if(!qbevent)break;evnt(20198);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 1 ; -if(!qbevent)break;evnt(20198);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 1 ; -if(!qbevent)break;evnt(20198);}while(r); -S_23497:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(20199);if(r)goto S_23497;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20199);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20199);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20199);}while(r); -} -S_23502:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(20200);if(r)goto S_23502;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20200);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20200);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20200);}while(r); -} -S_23507:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(20201);if(r)goto S_23507;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20201);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; -if(!qbevent)break;evnt(20201);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20201);}while(r); -} -S_23512:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(20202);if(r)goto S_23512;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20202);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; -if(!qbevent)break;evnt(20202);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20202);}while(r); -} -S_23517:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(20203);if(r)goto S_23517;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20203);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20203);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20203);}while(r); -} -S_23522:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(20204);if(r)goto S_23522;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20204);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20204);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20204);}while(r); -} -S_23527:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(20205);if(r)goto S_23527;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20205);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20205);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20205);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; -if(!qbevent)break;evnt(20207);}while(r); -S_23533:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(20208);if(r)goto S_23533;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("~",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20208);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; -if(!qbevent)break;evnt(20208);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20208);}while(r); -} -S_23538:; -if (( 0 )||new_error){ -if(qbevent){evnt(20210);if(r)goto S_23538;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2844; -sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID NUMBERIC OPERATOR!",26), 0 , 0 , 1 ); -if (new_error) goto skip2844; -skip2844: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(20210);}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(20210);}while(r); -} +goto LABEL_NUMELEMENTSNEXT; +if(!qbevent)break;evnt(20973);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free32.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE; +return *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS; } -qbs* FUNC_REFER(qbs*_FUNC_REFER_STRING_A2,int32*_FUNC_REFER_LONG_TYP,int32*_FUNC_REFER_LONG_METHOD){ +int32 FUNC_OPERATORUSAGE(qbs*_FUNC_OPERATORUSAGE_STRING_OPERATOR,int32*_FUNC_OPERATORUSAGE_LONG_TYP,qbs*_FUNC_OPERATORUSAGE_STRING_INFO,int32*_FUNC_OPERATORUSAGE_LONG_LHS,int32*_FUNC_OPERATORUSAGE_LONG_RHS,int32*_FUNC_OPERATORUSAGE_LONG_RESULT){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -80120,681 +83723,498 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_REFER_LONG_TYPBAK=*_FUNC_REFER_LONG_TYP; -if(!qbevent)break;evnt(20215);}while(r); +*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; +if(!qbevent)break;evnt(20977);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20219);}while(r); +*_FUNC_OPERATORUSAGE_LONG_RHS= 7 ; +if(!qbevent)break;evnt(20977);}while(r); do{ -*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20222);}while(r); -S_23545:; -if ((*_FUNC_REFER_LONG_I)||new_error){ -if(qbevent){evnt(20223);if(r)goto S_23545;} +*_FUNC_OPERATORUSAGE_LONG_RESULT= 0 ; +if(!qbevent)break;evnt(20977);}while(r); +S_24329:; +if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(20993);if(r)goto S_24329;} do{ -*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_FUNC_REFER_STRING_A,*_FUNC_REFER_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20224);}while(r); +*_FUNC_OPERATORUSAGE_LONG_LHS= 4 ; +if(!qbevent)break;evnt(20994);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +*_FUNC_OPERATORUSAGE_LONG_RHS= 4 ; +if(!qbevent)break;evnt(20994);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 4 ; +if(!qbevent)break;evnt(20995);}while(r); +S_24333:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(20996);if(r)goto S_24333;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_add",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20224);}while(r); +if(!qbevent)break;evnt(20996);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20996);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20996);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; +if(!qbevent)break;evnt(20997);}while(r); +S_24339:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(20998);if(r)goto S_24339;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_equal",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20998);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20998);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20998);}while(r); +} +S_24344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(20999);if(r)goto S_24344;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_notequal",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20999);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20999);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20999);}while(r); +} +S_24349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(21000);if(r)goto S_24349;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterthan",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21000);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(21000);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21000);}while(r); +} +S_24354:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(21001);if(r)goto S_24354;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessthan",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21001);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(21001);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21001);}while(r); +} +S_24359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(21002);if(r)goto S_24359;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterorequal",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21002);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(21002);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21002);}while(r); +} +S_24364:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(21003);if(r)goto S_24364;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessorequal",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21003);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(21003);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21003);}while(r); +} +S_24369:; +if (( 0 )||new_error){ +if(qbevent){evnt(21004);if(r)goto S_24369;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3045; +sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID STRING OPERATOR!",24), 0 , 0 , 1 ); +if (new_error) goto skip3045; +skip3045: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21004);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(21004);}while(r); +} +} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; +if(!qbevent)break;evnt(21008);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; +if(!qbevent)break;evnt(21008);}while(r); +S_24376:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(21009);if(r)goto S_24376;} +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; +if(!qbevent)break;evnt(21009);}while(r); +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("pow2",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21009);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(21009);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21009);}while(r); +} +S_24382:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(21010);if(r)goto S_24382;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21010);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; +if(!qbevent)break;evnt(21010);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21010);}while(r); +} +S_24387:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(21011);if(r)goto S_24387;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21012);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21012);}while(r); +S_24390:; +if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(21015);if(r)goto S_24390;} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 2 ; +if(!qbevent)break;evnt(21017);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; +if(!qbevent)break;evnt(21018);}while(r); }else{ do{ -*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(_FUNC_REFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20226);}while(r); +*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; +if(!qbevent)break;evnt(21021);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 2 ; +if(!qbevent)break;evnt(21022);}while(r); } do{ -SUB_GETID(_FUNC_REFER_LONG_IDNUMBER); -if(!qbevent)break;evnt(20228);}while(r); -S_23552:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(20229);if(r)goto S_23552;} +*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; +if(!qbevent)break;evnt(21024);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20229);}while(r); +if(!qbevent)break;evnt(21025);}while(r); } -S_23555:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(20232);if(r)goto S_23555;} -S_23556:; -if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(20233);if(r)goto S_23556;} +S_24400:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(21027);if(r)goto S_24400;} do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("*",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20234);}while(r); -S_23558:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(20235);if(r)goto S_23558;} +if(!qbevent)break;evnt(21027);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20235);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(FUNC_SCOPE(),_FUNC_REFER_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20236);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20237);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21027);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20238);}while(r); +if(!qbevent)break;evnt(21027);}while(r); } +S_24405:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(21028);if(r)goto S_24405;} do{ -*_FUNC_REFER_LONG_U=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("+",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20243);}while(r); +if(!qbevent)break;evnt(21028);}while(r); do{ -*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20244);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20244);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_REFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20244);}while(r); -do{ -*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20245);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_O,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20245);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20246);}while(r); -S_23572:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(20246);if(r)goto S_23572;} -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20246);}while(r); -} -S_23575:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(20247);if(r)goto S_23575;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("User defined types in expressions are invalid",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20247);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21028);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20247);}while(r); +if(!qbevent)break;evnt(21028);}while(r); } -S_23579:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(20248);if(r)goto S_23579;} +S_24410:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(21029);if(r)goto S_24410;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types yet",65)); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20248);}while(r); +if(!qbevent)break;evnt(21029);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21029);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20248);}while(r); -} -S_23583:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(20250);if(r)goto S_23583;} -S_23584:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(20251);if(r)goto S_23584;} -do{ -qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20252);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20253);}while(r); -do{ -*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(20254);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)(",10),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_REFER_STRING_O),qbs_new_txt_len(")))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20256);}while(r); -do{ -*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(20257);}while(r); -} -}else{ -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20260);}while(r); -S_23594:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(20261);if(r)goto S_23594;} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISARRAY; -if(!qbevent)break;evnt(20261);}while(r); +if(!qbevent)break;evnt(21029);}while(r); } do{ -qbs_set(_FUNC_REFER_STRING_T,FUNC_TYP2CTYP(_FUNC_REFER_LONG_TYP,qbs_new_txt_len("",0))); +*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; +if(!qbevent)break;evnt(21031);}while(r); +S_24416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(21032);if(r)goto S_24416;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("==",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20262);}while(r); -S_23598:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(20263);if(r)goto S_23598;} +if(!qbevent)break;evnt(21032);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(21032);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20263);}while(r); +if(!qbevent)break;evnt(21032);}while(r); } +S_24421:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(21033);if(r)goto S_24421;} do{ -qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20264);}while(r); +if(!qbevent)break;evnt(21033);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)",2)),_FUNC_REFER_STRING_O2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20265);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20269);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(21033);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20270);}while(r); +if(!qbevent)break;evnt(21033);}while(r); } -S_23607:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(20275);if(r)goto S_23607;} +S_24426:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(21034);if(r)goto S_24426;} do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20277);}while(r); -S_23609:; -if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(20278);if(r)goto S_23609;} +if(!qbevent)break;evnt(21034);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20279);}while(r); -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; -if(!qbevent)break;evnt(20280);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(21034);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20281);}while(r); +if(!qbevent)break;evnt(21034);}while(r); } +S_24431:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(21035);if(r)goto S_24431;} do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(20283);}while(r); -S_23615:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20285);if(r)goto S_23615;} -S_23616:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(20286);if(r)goto S_23616;} -do{ -qbs_set(_FUNC_REFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[(",7)),_FUNC_REFER_STRING_A),qbs_new_txt_len(")*",2)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("!=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20287);}while(r); +if(!qbevent)break;evnt(21035);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20288);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20290);}while(r); -} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(20292);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20293);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(21035);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20294);}while(r); +if(!qbevent)break;evnt(21035);}while(r); } -S_23626:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(20297);if(r)goto S_23626;} -S_23627:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(20300);if(r)goto S_23627;} +S_24436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(21036);if(r)goto S_24436;} do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getubits",8)); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20300);}while(r); -}else{ +if(!qbevent)break;evnt(21036);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getbits",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20300);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(",1)),FUNC_STR2(&(pass2849=*_FUNC_REFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20301);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20302);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_A),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20303);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20304);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(21036);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20305);}while(r); -}else{ +if(!qbevent)break;evnt(21036);}while(r); +} +S_24441:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(21037);if(r)goto S_24441;} do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0)); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20307);}while(r); -S_23639:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(20308);if(r)goto S_23639;} -S_23640:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(20309);if(r)goto S_23640;} +if(!qbevent)break;evnt(21037);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20309);}while(r); -} -S_23643:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(20310);if(r)goto S_23643;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20310);}while(r); -} -S_23646:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 256 ))||new_error){ -if(qbevent){evnt(20311);if(r)goto S_23646;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20311);}while(r); -} -}else{ -S_23650:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(20313);if(r)goto S_23650;} -S_23651:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(20314);if(r)goto S_23651;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20314);}while(r); -} -S_23654:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(20315);if(r)goto S_23654;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint16",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20315);}while(r); -} -S_23657:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(20316);if(r)goto S_23657;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20316);}while(r); -} -S_23660:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(20317);if(r)goto S_23660;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint64",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20317);}while(r); -} -S_23663:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(20318);if(r)goto S_23663;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20318);}while(r); -} -}else{ -S_23667:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(20320);if(r)goto S_23667;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20320);}while(r); -} -S_23670:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(20321);if(r)goto S_23670;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20321);}while(r); -} -S_23673:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(20322);if(r)goto S_23673;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20322);}while(r); -} -S_23676:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(20323);if(r)goto S_23676;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20323);}while(r); -} -S_23679:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(20324);if(r)goto S_23679;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20324);}while(r); -} -} -} -} -S_23685:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20328);if(r)goto S_23685;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20328);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(21037);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20328);}while(r); +if(!qbevent)break;evnt(21037);}while(r); } do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)(",3)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20329);}while(r); +*_FUNC_OPERATORUSAGE_LONG_LHS= 1 ; +if(!qbevent)break;evnt(21039);}while(r); do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +*_FUNC_OPERATORUSAGE_LONG_RHS= 1 ; +if(!qbevent)break;evnt(21039);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 1 ; +if(!qbevent)break;evnt(21039);}while(r); +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_ucase(_FUNC_OPERATORUSAGE_STRING_OPERATOR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20330);}while(r); +if(!qbevent)break;evnt(21040);}while(r); +S_24450:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(21041);if(r)goto S_24450;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21041);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21041);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20331);}while(r); +if(!qbevent)break;evnt(21041);}while(r); } -S_23693:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(20335);if(r)goto S_23693;} +S_24455:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(21042);if(r)goto S_24455;} do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20336);}while(r); +if(!qbevent)break;evnt(21042);}while(r); do{ -*_FUNC_REFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(20337);}while(r); -S_23696:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(20339);if(r)goto S_23696;} -do{ -*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(20339);}while(r); -} -S_23699:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20341);if(r)goto S_23699;} -S_23700:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(20342);if(r)goto S_23700;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20343);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20343);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20345);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20345);}while(r); -} -S_23707:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(20348);if(r)goto S_23707;} -S_23708:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(20349);if(r)goto S_23708;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass2850=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20350);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass2851=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20352);}while(r); -} -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20354);}while(r); -} -S_23715:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_BYTETYPE))||new_error){ -if(qbevent){evnt(20356);if(r)goto S_23715;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20356);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20356);}while(r); -} -S_23719:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ -if(qbevent){evnt(20357);if(r)goto S_23719;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20357);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20357);}while(r); -} -S_23723:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ -if(qbevent){evnt(20358);if(r)goto S_23723;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20358);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20358);}while(r); -} -S_23727:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ -if(qbevent){evnt(20359);if(r)goto S_23727;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20359);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20359);}while(r); -} -S_23731:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_LONGTYPE))||new_error){ -if(qbevent){evnt(20360);if(r)goto S_23731;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20360);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20360);}while(r); -} -S_23735:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ -if(qbevent){evnt(20361);if(r)goto S_23735;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20361);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20361);}while(r); -} -S_23739:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ -if(qbevent){evnt(20362);if(r)goto S_23739;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20362);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20362);}while(r); -} -S_23743:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ -if(qbevent){evnt(20363);if(r)goto S_23743;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20363);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20363);}while(r); -} -S_23747:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ -if(qbevent){evnt(20364);if(r)goto S_23747;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20364);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20364);}while(r); -} -S_23751:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ -if(qbevent){evnt(20365);if(r)goto S_23751;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20365);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20365);}while(r); -} -S_23755:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ -if(qbevent){evnt(20366);if(r)goto S_23755;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20366);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20366);}while(r); -} -S_23759:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ -if(qbevent){evnt(20367);if(r)goto S_23759;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20367);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20367);}while(r); -} -S_23763:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ -if(qbevent){evnt(20368);if(r)goto S_23763;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20368);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20368);}while(r); -} -LABEL_REF:; -if(qbevent){evnt(20369);r=0;} -S_23767:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20370);if(r)goto S_23767;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(20370);}while(r); -} -S_23770:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(20371);if(r)goto S_23770;} -do{ -*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20371);}while(r); -} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_T; -if(!qbevent)break;evnt(20372);}while(r); -S_23774:; -if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(20373);if(r)goto S_23774;} -S_23775:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_REFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(20374);if(r)goto S_23775;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_right(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_R->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20374);}while(r); -} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; -if(!qbevent)break;evnt(20375);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20377);}while(r); +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21042);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20378);}while(r); +if(!qbevent)break;evnt(21042);}while(r); +} +S_24460:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(21043);if(r)goto S_24460;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21043);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; +if(!qbevent)break;evnt(21043);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21043);}while(r); +} +S_24465:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(21044);if(r)goto S_24465;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21044);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; +if(!qbevent)break;evnt(21044);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21044);}while(r); +} +S_24470:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(21045);if(r)goto S_24470;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21045);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21045);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21045);}while(r); +} +S_24475:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(21046);if(r)goto S_24475;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21046);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21046);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21046);}while(r); +} +S_24480:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(21047);if(r)goto S_24480;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21047);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(21047);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21047);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; +if(!qbevent)break;evnt(21049);}while(r); +S_24486:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(21050);if(r)goto S_24486;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("~",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21050);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; +if(!qbevent)break;evnt(21050);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21050);}while(r); +} +S_24491:; +if (( 0 )||new_error){ +if(qbevent){evnt(21052);if(r)goto S_24491;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3046; +sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID NUMBERIC OPERATOR!",26), 0 , 0 , 1 ); +if (new_error) goto skip3046; +skip3046: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21052);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(21052);}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free33.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REFER_STRING_REFER);return _FUNC_REFER_STRING_REFER; +return *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE; } -void SUB_REGID(){ +qbs* FUNC_REFER(qbs*_FUNC_REFER_STRING_A2,int32*_FUNC_REFER_LONG_TYP,int32*_FUNC_REFER_LONG_METHOD){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -80808,14 +84228,702 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ +*_FUNC_REFER_LONG_TYPBAK=*_FUNC_REFER_LONG_TYP; +if(!qbevent)break;evnt(21057);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21061);}while(r); +do{ +*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21064);}while(r); +S_24498:; +if ((*_FUNC_REFER_LONG_I)||new_error){ +if(qbevent){evnt(21065);if(r)goto S_24498;} +do{ +*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_FUNC_REFER_STRING_A,*_FUNC_REFER_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21066);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21066);}while(r); +}else{ +do{ +*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21068);}while(r); +} +do{ +SUB_GETID(_FUNC_REFER_LONG_IDNUMBER); +if(!qbevent)break;evnt(21070);}while(r); +S_24505:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(21071);if(r)goto S_24505;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21071);}while(r); +} +S_24508:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(21074);if(r)goto S_24508;} +S_24509:; +if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(21075);if(r)goto S_24509;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21076);}while(r); +S_24511:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(21077);if(r)goto S_24511;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21077);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(FUNC_SCOPE(),_FUNC_REFER_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21078);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21079);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21080);}while(r); +} +do{ +*_FUNC_REFER_LONG_U=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21085);}while(r); +do{ +*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21086);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21086);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21086);}while(r); +do{ +*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21087);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_O,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21087);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21088);}while(r); +S_24525:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(21088);if(r)goto S_24525;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21088);}while(r); +} +S_24528:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(21089);if(r)goto S_24528;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("User defined types in expressions are invalid",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21089);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21089);}while(r); +} +S_24532:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(21090);if(r)goto S_24532;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21090);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21090);}while(r); +} +S_24536:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(21092);if(r)goto S_24536;} +S_24537:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(21093);if(r)goto S_24537;} +do{ +qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21094);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21095);}while(r); +do{ +*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(21096);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)",17),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_REFER_STRING_O),qbs_new_txt_len(")))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21098);}while(r); +do{ +*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(21099);}while(r); +} +}else{ +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21102);}while(r); +S_24547:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(21103);if(r)goto S_24547;} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISARRAY; +if(!qbevent)break;evnt(21103);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_T,FUNC_TYP2CTYP(_FUNC_REFER_LONG_TYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21104);}while(r); +S_24551:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(21105);if(r)goto S_24551;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21105);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21106);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)",2)),_FUNC_REFER_STRING_O2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21107);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21111);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21112);}while(r); +} +S_24560:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(21117);if(r)goto S_24560;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21119);}while(r); +S_24562:; +if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(21120);if(r)goto S_24562;} +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21121);}while(r); +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; +if(!qbevent)break;evnt(21122);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21123);}while(r); +} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(21125);}while(r); +S_24568:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(21127);if(r)goto S_24568;} +S_24569:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(21128);if(r)goto S_24569;} +do{ +qbs_set(_FUNC_REFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[(",7)),_FUNC_REFER_STRING_A),qbs_new_txt_len(")*",2)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21129);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21130);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21132);}while(r); +} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(21134);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21135);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21136);}while(r); +} +S_24579:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(21139);if(r)goto S_24579;} +S_24580:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(21142);if(r)goto S_24580;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getubits",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21142);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getbits",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21142);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(",1)),FUNC_STR2(&(pass3051=*_FUNC_REFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21143);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21144);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_A),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21145);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21146);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21147);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21149);}while(r); +S_24592:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(21150);if(r)goto S_24592;} +S_24593:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(21151);if(r)goto S_24593;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21151);}while(r); +} +S_24596:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(21152);if(r)goto S_24596;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21152);}while(r); +} +S_24599:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 256 ))||new_error){ +if(qbevent){evnt(21153);if(r)goto S_24599;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21153);}while(r); +} +}else{ +S_24603:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(21155);if(r)goto S_24603;} +S_24604:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(21156);if(r)goto S_24604;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21156);}while(r); +} +S_24607:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(21157);if(r)goto S_24607;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint16",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21157);}while(r); +} +S_24610:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(21158);if(r)goto S_24610;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21158);}while(r); +} +S_24613:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(21159);if(r)goto S_24613;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint64",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21159);}while(r); +} +S_24616:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(21160);if(r)goto S_24616;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21160);}while(r); +} +}else{ +S_24620:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(21162);if(r)goto S_24620;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21162);}while(r); +} +S_24623:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(21163);if(r)goto S_24623;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21163);}while(r); +} +S_24626:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(21164);if(r)goto S_24626;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21164);}while(r); +} +S_24629:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(21165);if(r)goto S_24629;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21165);}while(r); +} +S_24632:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(21166);if(r)goto S_24632;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21166);}while(r); +} +} +} +} +S_24638:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(21170);if(r)goto S_24638;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21170);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21170);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)(",3)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21171);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21172);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21173);}while(r); +} +S_24646:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(21177);if(r)goto S_24646;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21178);}while(r); +do{ +*_FUNC_REFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(21179);}while(r); +S_24649:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(21181);if(r)goto S_24649;} +do{ +*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(21181);}while(r); +} +S_24652:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(21183);if(r)goto S_24652;} +S_24653:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(21184);if(r)goto S_24653;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21185);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21185);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21187);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21187);}while(r); +} +S_24660:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(21190);if(r)goto S_24660;} +S_24661:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(21191);if(r)goto S_24661;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass3052=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21192);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass3053=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21194);}while(r); +} +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21196);}while(r); +} +S_24668:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_BYTETYPE))||new_error){ +if(qbevent){evnt(21198);if(r)goto S_24668;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21198);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21198);}while(r); +} +S_24672:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ +if(qbevent){evnt(21199);if(r)goto S_24672;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21199);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21199);}while(r); +} +S_24676:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ +if(qbevent){evnt(21200);if(r)goto S_24676;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21200);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21200);}while(r); +} +S_24680:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ +if(qbevent){evnt(21201);if(r)goto S_24680;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21201);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21201);}while(r); +} +S_24684:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_LONGTYPE))||new_error){ +if(qbevent){evnt(21202);if(r)goto S_24684;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21202);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21202);}while(r); +} +S_24688:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ +if(qbevent){evnt(21203);if(r)goto S_24688;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21203);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21203);}while(r); +} +S_24692:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ +if(qbevent){evnt(21204);if(r)goto S_24692;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21204);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21204);}while(r); +} +S_24696:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ +if(qbevent){evnt(21205);if(r)goto S_24696;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21205);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21205);}while(r); +} +S_24700:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ +if(qbevent){evnt(21206);if(r)goto S_24700;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21206);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21206);}while(r); +} +S_24704:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ +if(qbevent){evnt(21207);if(r)goto S_24704;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21207);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21207);}while(r); +} +S_24708:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ +if(qbevent){evnt(21208);if(r)goto S_24708;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21208);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21208);}while(r); +} +S_24712:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ +if(qbevent){evnt(21209);if(r)goto S_24712;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21209);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21209);}while(r); +} +S_24716:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ +if(qbevent){evnt(21210);if(r)goto S_24716;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21210);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21210);}while(r); +} +LABEL_REF:; +if(qbevent){evnt(21211);r=0;} +S_24720:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(21212);if(r)goto S_24720;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(21212);}while(r); +} +S_24723:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(21213);if(r)goto S_24723;} +do{ +*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21213);}while(r); +} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_T; +if(!qbevent)break;evnt(21214);}while(r); +S_24727:; +if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(21215);if(r)goto S_24727;} +S_24728:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_REFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(21216);if(r)goto S_24728;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_right(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_R->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21216);}while(r); +} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; +if(!qbevent)break;evnt(21217);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21219);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21220);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free34.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REFER_STRING_REFER);return _FUNC_REFER_STRING_REFER; +} +void SUB_REGID(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data35.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ *__LONG_IDN=*__LONG_IDN+ 1 ; -if(!qbevent)break;evnt(20386);}while(r); -S_23784:; +if(!qbevent)break;evnt(21228);}while(r); +S_24737:; if ((-(*__LONG_IDN>*__LONG_IDS_MAX))||new_error){ -if(qbevent){evnt(20388);if(r)goto S_23784;} +if(qbevent){evnt(21230);if(r)goto S_24737;} do{ *__LONG_IDS_MAX=*__LONG_IDS_MAX* 2 ; -if(!qbevent)break;evnt(20389);}while(r); +if(!qbevent)break;evnt(21231);}while(r); do{ if (__ARRAY_UDT_IDS[2]&2){ @@ -80830,32 +84938,30 @@ else preserved_elements=0; __ARRAY_UDT_IDS[4]= 1 ; __ARRAY_UDT_IDS[5]=(*__LONG_IDS_MAX)-__ARRAY_UDT_IDS[4]+1; __ARRAY_UDT_IDS[6]=1; -if (__ARRAY_UDT_IDS[2]&4){ if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_IDS[0]),preserved_elements*22904/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); -tmp_long=__ARRAY_UDT_IDS[5]; -__ARRAY_UDT_IDS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*22904/8+1); -memcpy((void*)(__ARRAY_UDT_IDS[0]),redim_preserve_cmem_buffer,preserved_elements*22904/8+1); -if (preserved_elementslen))||new_error){ -if(qbevent){evnt(20409);if(r)goto S_23803;} -do{ -qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20410);}while(r); -S_23805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_REGID_STRING_N),qbs_ucase(__STRING_REFACTOR_SOURCE))))||new_error){ -if(qbevent){evnt(20411);if(r)goto S_23805;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),__STRING_REFACTOR_DEST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20412);}while(r); -} +if(!qbevent)break;evnt(21248);}while(r); } do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2385)),256,1),__STRING_SUBFUNC); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20417);}while(r); +if(!qbevent)break;evnt(21251);}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2641))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(20418);}while(r); -S_23811:; +if(!qbevent)break;evnt(21252);}while(r); +S_24758:; if ((*__INTEGER_DIMSHARED)||new_error){ -if(qbevent){evnt(20421);if(r)goto S_23811;} +if(qbevent){evnt(21255);if(r)goto S_24758;} do{ *(int16*)(((char*)__UDT_ID)+(2645))=*__INTEGER_DIMSHARED; -if(!qbevent)break;evnt(20422);}while(r); +if(!qbevent)break;evnt(21256);}while(r); }else{ -S_23814:; +S_24761:; if ((*__LONG_DIMSTATIC)||new_error){ -if(qbevent){evnt(20424);if(r)goto S_23814;} +if(qbevent){evnt(21258);if(r)goto S_24761;} do{ *(int16*)(((char*)__UDT_ID)+(2853))= 1 ; -if(!qbevent)break;evnt(20424);}while(r); +if(!qbevent)break;evnt(21258);}while(r); } } do{ -memcpy(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863)+ 0,((char*)__UDT_ID)+(0)+ 0, 2863); -if(!qbevent)break;evnt(20427);}while(r); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(21261);}while(r); do{ *__LONG_CURRENTID=*__LONG_IDN; -if(!qbevent)break;evnt(20429);}while(r); +if(!qbevent)break;evnt(21263);}while(r); do{ *_SUB_REGID_LONG_HASHFLAGS= 1 ; -if(!qbevent)break;evnt(20432);}while(r); -S_23821:; +if(!qbevent)break;evnt(21266);}while(r); +S_24768:; if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ -if(qbevent){evnt(20436);if(r)goto S_23821;} +if(qbevent){evnt(21270);if(r)goto S_24768;} do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+548))=*__LONG_REGINTERNALSUBFUNC; -if(!qbevent)break;evnt(20437);}while(r); -S_23823:; +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))=*__LONG_REGINTERNALSUBFUNC; +if(!qbevent)break;evnt(21271);}while(r); +S_24770:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(20438);if(r)goto S_23823;} +if(qbevent){evnt(21272);if(r)goto S_24770;} do{ *_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 128 ; -if(!qbevent)break;evnt(20438);}while(r); +if(!qbevent)break;evnt(21272);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 64 ; -if(!qbevent)break;evnt(20438);}while(r); +if(!qbevent)break;evnt(21272);}while(r); } -S_23828:; +S_24775:; if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||new_error){ -if(qbevent){evnt(20439);if(r)goto S_23828;} +if(qbevent){evnt(21273);if(r)goto S_24775;} do{ *_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 1024 ; -if(!qbevent)break;evnt(20440);}while(r); -S_23830:; +if(!qbevent)break;evnt(21274);}while(r); +S_24777:; if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(20441);if(r)goto S_23830;} +if(qbevent){evnt(21275);if(r)goto S_24777;} do{ *_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 128 ; -if(!qbevent)break;evnt(20441);}while(r); +if(!qbevent)break;evnt(21275);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 64 ; -if(!qbevent)break;evnt(20441);}while(r); +if(!qbevent)break;evnt(21275);}while(r); } do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20442);}while(r); -S_23836:; +if(!qbevent)break;evnt(21276);}while(r); +S_24783:; while((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(20443);if(r)goto S_23836;} -S_23837:; +if(qbevent){evnt(21277);if(r)goto S_24783;} +S_24784:; if ((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(20444);if(r)goto S_23837;} +if(qbevent){evnt(21278);if(r)goto S_24784;} do{ *_SUB_REGID_LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(20448);}while(r); -S_23839:; +if(!qbevent)break;evnt(21282);}while(r); +S_24786:; if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ -if(qbevent){evnt(20449);if(r)goto S_23839;} -S_23840:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20450);if(r)goto S_23840;} -S_23841:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+520)),8,1),qbs_new_txt_len("$",1),0)== 0 )))||new_error){ -if(qbevent){evnt(20451);if(r)goto S_23841;} +if(qbevent){evnt(21283);if(r)goto S_24786;} +S_24787:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21284);if(r)goto S_24787;} +S_24788:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1),qbs_new_txt_len("$",1),0)== 0 )))||new_error){ +if(qbevent){evnt(21285);if(r)goto S_24788;} do{ *_SUB_REGID_LONG_ALLOW= 1 ; -if(!qbevent)break;evnt(20451);}while(r); +if(!qbevent)break;evnt(21285);}while(r); } } } -S_23846:; +S_24793:; if ((-(*_SUB_REGID_LONG_ALLOW== 0 ))||new_error){ -if(qbevent){evnt(20454);if(r)goto S_23846;} +if(qbevent){evnt(21288);if(r)goto S_24793;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20454);}while(r); +if(!qbevent)break;evnt(21288);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20454);}while(r); +if(!qbevent)break;evnt(21288);}while(r); } } -S_23851:; +S_24798:; if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(20456);if(r)goto S_23851;} +if(qbevent){evnt(21290);if(r)goto S_24798;} do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -if(!qbevent)break;evnt(20456);}while(r); +if(!qbevent)break;evnt(21290);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(20456);}while(r); +if(!qbevent)break;evnt(21290);}while(r); } -dl_continue_2854:; +dl_continue_3055:; } -dl_exit_2854:; -S_23857:; +dl_exit_3055:; +S_24804:; if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(20458);if(r)goto S_23857;} -S_23858:; +if(qbevent){evnt(21292);if(r)goto S_24804;} +S_24805:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1)),0)== 0 )))||new_error){ -if(qbevent){evnt(20459);if(r)goto S_23858;} +if(qbevent){evnt(21293);if(r)goto S_24805;} do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20460);}while(r); +if(!qbevent)break;evnt(21294);}while(r); } } } } -S_23864:; +S_24811:; if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(20467);if(r)goto S_23864;} +if(qbevent){evnt(21301);if(r)goto S_24811;} do{ *_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 2048 ; -if(!qbevent)break;evnt(20468);}while(r); -S_23866:; +if(!qbevent)break;evnt(21302);}while(r); +S_24813:; if ((-(*__LONG_REGINTERNALVARIABLE== 0 ))||new_error){ -if(qbevent){evnt(20469);if(r)goto S_23866;} +if(qbevent){evnt(21303);if(r)goto S_24813;} do{ *_SUB_REGID_LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(20470);}while(r); +if(!qbevent)break;evnt(21304);}while(r); LABEL_VAR_RECHECK:; -if(qbevent){evnt(20471);r=0;} -S_23868:; +if(qbevent){evnt(21305);r=0;} +S_24815:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(20472);if(r)goto S_23868;} +if(qbevent){evnt(21306);if(r)goto S_24815;} do{ *_SUB_REGID_LONG_ASTYPE2= 1 ; -if(!qbevent)break;evnt(20472);}while(r); +if(!qbevent)break;evnt(21306);}while(r); } do{ *_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(20473);}while(r); +if(!qbevent)break;evnt(21307);}while(r); do{ *_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 1024 + 2048 ; -if(!qbevent)break;evnt(20474);}while(r); +if(!qbevent)break;evnt(21308);}while(r); do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20475);}while(r); -S_23874:; +if(!qbevent)break;evnt(21309);}while(r); +S_24821:; while((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(20476);if(r)goto S_23874;} -S_23875:; +if(qbevent){evnt(21310);if(r)goto S_24821;} +S_24822:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(20479);if(r)goto S_23875;} +if(qbevent){evnt(21313);if(r)goto S_24822;} do{ qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20480);}while(r); -S_23877:; +if(!qbevent)break;evnt(21314);}while(r); +S_24824:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(20481);if(r)goto S_23877;} +if(qbevent){evnt(21315);if(r)goto S_24824;} }else{ do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20485);}while(r); +if(!qbevent)break;evnt(21319);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20485);}while(r); +if(!qbevent)break;evnt(21319);}while(r); } } -S_23883:; +S_24830:; if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ -if(qbevent){evnt(20490);if(r)goto S_23883;} -S_23884:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+548))== 0 ))||new_error){ -if(qbevent){evnt(20491);if(r)goto S_23884;} +if(qbevent){evnt(21324);if(r)goto S_24830;} +S_24831:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))||new_error){ +if(qbevent){evnt(21325);if(r)goto S_24831;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20491);}while(r); +if(!qbevent)break;evnt(21325);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20491);}while(r); +if(!qbevent)break;evnt(21325);}while(r); } -S_23888:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+544))== 2 ))))||new_error){ -if(qbevent){evnt(20492);if(r)goto S_23888;} +S_24835:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))))||new_error){ +if(qbevent){evnt(21326);if(r)goto S_24835;} do{ goto LABEL_VARNAME_EXCEPTION; -if(!qbevent)break;evnt(20492);}while(r); +if(!qbevent)break;evnt(21326);}while(r); } do{ qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20493);}while(r); -S_23892:; +if(!qbevent)break;evnt(21327);}while(r); +S_24839:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ -if(qbevent){evnt(20494);if(r)goto S_23892;} -S_23893:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20495);if(r)goto S_23893;} -S_23894:; +if(qbevent){evnt(21328);if(r)goto S_24839;} +S_24840:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21329);if(r)goto S_24840;} +S_24841:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(20497);if(r)goto S_23894;} +if(qbevent){evnt(21331);if(r)goto S_24841;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20497);}while(r); +if(!qbevent)break;evnt(21331);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20497);}while(r); +if(!qbevent)break;evnt(21331);}while(r); } }else{ do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20499);}while(r); +if(!qbevent)break;evnt(21333);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20499);}while(r); +if(!qbevent)break;evnt(21333);}while(r); } } -S_23903:; +S_24850:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(20502);if(r)goto S_23903;} -S_23904:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20503);if(r)goto S_23904;} +if(qbevent){evnt(21336);if(r)goto S_24850;} +S_24851:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21337);if(r)goto S_24851;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20503);}while(r); +if(!qbevent)break;evnt(21337);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20503);}while(r); +if(!qbevent)break;evnt(21337);}while(r); } }else{ -S_23909:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20506);if(r)goto S_23909;} +S_24856:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21340);if(r)goto S_24856;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20506);}while(r); +if(!qbevent)break;evnt(21340);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20506);}while(r); +if(!qbevent)break;evnt(21340);}while(r); } } } -S_23915:; +S_24862:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 1024 )||new_error){ -if(qbevent){evnt(20511);if(r)goto S_23915;} +if(qbevent){evnt(21345);if(r)goto S_24862;} do{ *_SUB_REGID_LONG_SCOPE1=((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]; -if(!qbevent)break;evnt(20512);}while(r); -S_23917:; +if(!qbevent)break;evnt(21346);}while(r); +S_24864:; if (((((-(*_SUB_REGID_LONG_SCOPE1== 0 ))&(-(*__LONG_ALLOWLOCALNAME== 0 ))))|(-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2)))||new_error){ -if(qbevent){evnt(20513);if(r)goto S_23917;} +if(qbevent){evnt(21347);if(r)goto S_24864;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20513);}while(r); +if(!qbevent)break;evnt(21347);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20513);}while(r); +if(!qbevent)break;evnt(21347);}while(r); } } -S_23922:; +S_24869:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 2048 )||new_error){ -if(qbevent){evnt(20517);if(r)goto S_23922;} +if(qbevent){evnt(21351);if(r)goto S_24869;} do{ *_SUB_REGID_LONG_ASTYPE1= 0 ; -if(!qbevent)break;evnt(20518);}while(r); -S_23924:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(20518);if(r)goto S_23924;} +if(!qbevent)break;evnt(21352);}while(r); +S_24871:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))== 32 )))||new_error){ +if(qbevent){evnt(21352);if(r)goto S_24871;} do{ *_SUB_REGID_LONG_ASTYPE1= 1 ; -if(!qbevent)break;evnt(20518);}while(r); +if(!qbevent)break;evnt(21352);}while(r); } do{ -*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2641)); -if(!qbevent)break;evnt(20519);}while(r); -S_23928:; +*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2641)); +if(!qbevent)break;evnt(21353);}while(r); +S_24875:; if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ -if(qbevent){evnt(20520);if(r)goto S_23928;} -S_23929:; +if(qbevent){evnt(21354);if(r)goto S_24875;} +S_24876:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(20521);if(r)goto S_23929;} +if(qbevent){evnt(21355);if(r)goto S_24876;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20521);}while(r); +if(!qbevent)break;evnt(21355);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20521);}while(r); +if(!qbevent)break;evnt(21355);}while(r); } } -S_23934:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+536))))||new_error){ -if(qbevent){evnt(20524);if(r)goto S_23934;} -S_23935:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+540))))||new_error){ -if(qbevent){evnt(20525);if(r)goto S_23935;} -S_23936:; +S_24881:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))))||new_error){ +if(qbevent){evnt(21358);if(r)goto S_24881;} +S_24882:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+540))))||new_error){ +if(qbevent){evnt(21359);if(r)goto S_24882;} +S_24883:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(20526);if(r)goto S_23936;} +if(qbevent){evnt(21360);if(r)goto S_24883;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20526);}while(r); +if(!qbevent)break;evnt(21360);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20526);}while(r); +if(!qbevent)break;evnt(21360);}while(r); } } } -S_23942:; +S_24889:; if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(20530);if(r)goto S_23942;} -S_23943:; +if(qbevent){evnt(21364);if(r)goto S_24889;} +S_24890:; if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ -if(qbevent){evnt(20531);if(r)goto S_23943;} -S_23944:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+536))&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(20532);if(r)goto S_23944;} -S_23945:; -if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+536))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(20533);if(r)goto S_23945;} -S_23946:; +if(qbevent){evnt(21365);if(r)goto S_24890;} +S_24891:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(21366);if(r)goto S_24891;} +S_24892:; +if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(21367);if(r)goto S_24892;} +S_24893:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(20534);if(r)goto S_23946;} +if(qbevent){evnt(21368);if(r)goto S_24893;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20534);}while(r); +if(!qbevent)break;evnt(21368);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20534);}while(r); +if(!qbevent)break;evnt(21368);}while(r); } } } @@ -81392,226 +85515,226 @@ if(!qbevent)break;evnt(20534);}while(r); } } LABEL_VARNAME_EXCEPTION:; -if(qbevent){evnt(20541);r=0;} -S_23955:; +if(qbevent){evnt(21375);r=0;} +S_24902:; if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(20542);if(r)goto S_23955;} +if(qbevent){evnt(21376);if(r)goto S_24902;} do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -if(!qbevent)break;evnt(20542);}while(r); +if(!qbevent)break;evnt(21376);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(20542);}while(r); +if(!qbevent)break;evnt(21376);}while(r); } -dl_continue_2855:; +dl_continue_3056:; } -dl_exit_2855:; +dl_exit_3056:; } } -S_23963:; +S_24910:; if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(20548);if(r)goto S_23963;} +if(qbevent){evnt(21382);if(r)goto S_24910;} do{ *_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 4096 ; -if(!qbevent)break;evnt(20549);}while(r); +if(!qbevent)break;evnt(21383);}while(r); do{ *_SUB_REGID_LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(20550);}while(r); +if(!qbevent)break;evnt(21384);}while(r); LABEL_ARY_RECHECK:; -if(qbevent){evnt(20551);r=0;} +if(qbevent){evnt(21385);r=0;} do{ *_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(20552);}while(r); -S_23967:; +if(!qbevent)break;evnt(21386);}while(r); +S_24914:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(20553);if(r)goto S_23967;} +if(qbevent){evnt(21387);if(r)goto S_24914;} do{ *_SUB_REGID_LONG_ASTYPE2= 1 ; -if(!qbevent)break;evnt(20553);}while(r); +if(!qbevent)break;evnt(21387);}while(r); } do{ *_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 4096 ; -if(!qbevent)break;evnt(20554);}while(r); +if(!qbevent)break;evnt(21388);}while(r); do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20555);}while(r); -S_23972:; +if(!qbevent)break;evnt(21389);}while(r); +S_24919:; while((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(20556);if(r)goto S_23972;} -S_23973:; +if(qbevent){evnt(21390);if(r)goto S_24919;} +S_24920:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(20559);if(r)goto S_23973;} +if(qbevent){evnt(21393);if(r)goto S_24920;} do{ qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20560);}while(r); -S_23975:; +if(!qbevent)break;evnt(21394);}while(r); +S_24922:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(20561);if(r)goto S_23975;} +if(qbevent){evnt(21395);if(r)goto S_24922;} }else{ do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20565);}while(r); +if(!qbevent)break;evnt(21399);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20565);}while(r); +if(!qbevent)break;evnt(21399);}while(r); } } -S_23981:; +S_24928:; if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ -if(qbevent){evnt(20570);if(r)goto S_23981;} -S_23982:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+548))== 0 ))||new_error){ -if(qbevent){evnt(20571);if(r)goto S_23982;} +if(qbevent){evnt(21404);if(r)goto S_24928;} +S_24929:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))||new_error){ +if(qbevent){evnt(21405);if(r)goto S_24929;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20571);}while(r); +if(!qbevent)break;evnt(21405);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20571);}while(r); +if(!qbevent)break;evnt(21405);}while(r); } -S_23986:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+544))== 2 ))))||new_error){ -if(qbevent){evnt(20572);if(r)goto S_23986;} +S_24933:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))))||new_error){ +if(qbevent){evnt(21406);if(r)goto S_24933;} do{ goto LABEL_ARRAYNAME_EXCEPTION; -if(!qbevent)break;evnt(20572);}while(r); +if(!qbevent)break;evnt(21406);}while(r); } do{ qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20573);}while(r); -S_23990:; +if(!qbevent)break;evnt(21407);}while(r); +S_24937:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ -if(qbevent){evnt(20575);if(r)goto S_23990;} -S_23991:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20576);if(r)goto S_23991;} -S_23992:; +if(qbevent){evnt(21409);if(r)goto S_24937;} +S_24938:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21410);if(r)goto S_24938;} +S_24939:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(20578);if(r)goto S_23992;} +if(qbevent){evnt(21412);if(r)goto S_24939;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20578);}while(r); +if(!qbevent)break;evnt(21412);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20578);}while(r); +if(!qbevent)break;evnt(21412);}while(r); } }else{ do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20580);}while(r); +if(!qbevent)break;evnt(21414);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20580);}while(r); +if(!qbevent)break;evnt(21414);}while(r); } } -S_24001:; +S_24948:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(20583);if(r)goto S_24001;} -S_24002:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20584);if(r)goto S_24002;} +if(qbevent){evnt(21417);if(r)goto S_24948;} +S_24949:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21418);if(r)goto S_24949;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20584);}while(r); +if(!qbevent)break;evnt(21418);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20584);}while(r); +if(!qbevent)break;evnt(21418);}while(r); } }else{ -S_24007:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(20587);if(r)goto S_24007;} +S_24954:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21421);if(r)goto S_24954;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20587);}while(r); +if(!qbevent)break;evnt(21421);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20587);}while(r); +if(!qbevent)break;evnt(21421);}while(r); } } } -S_24013:; +S_24960:; if ((*_SUB_REGID_LONG_HASHRESFLAGS& 4096 )||new_error){ -if(qbevent){evnt(20592);if(r)goto S_24013;} +if(qbevent){evnt(21426);if(r)goto S_24960;} do{ *_SUB_REGID_LONG_ASTYPE1= 0 ; -if(!qbevent)break;evnt(20593);}while(r); -S_24015:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(20593);if(r)goto S_24015;} +if(!qbevent)break;evnt(21427);}while(r); +S_24962:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))== 32 )))||new_error){ +if(qbevent){evnt(21427);if(r)goto S_24962;} do{ *_SUB_REGID_LONG_ASTYPE1= 1 ; -if(!qbevent)break;evnt(20593);}while(r); +if(!qbevent)break;evnt(21427);}while(r); } do{ -*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+2641)); -if(!qbevent)break;evnt(20594);}while(r); -S_24019:; +*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2641)); +if(!qbevent)break;evnt(21428);}while(r); +S_24966:; if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ -if(qbevent){evnt(20595);if(r)goto S_24019;} -S_24020:; +if(qbevent){evnt(21429);if(r)goto S_24966;} +S_24967:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(20596);if(r)goto S_24020;} +if(qbevent){evnt(21430);if(r)goto S_24967;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20596);}while(r); +if(!qbevent)break;evnt(21430);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20596);}while(r); +if(!qbevent)break;evnt(21430);}while(r); } } -S_24025:; -if ((-(*(int32*)(((char*)__UDT_ID)+(512))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+512))))||new_error){ -if(qbevent){evnt(20599);if(r)goto S_24025;} -S_24026:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+540))))||new_error){ -if(qbevent){evnt(20600);if(r)goto S_24026;} -S_24027:; +S_24972:; +if ((-(*(int32*)(((char*)__UDT_ID)+(512))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))))||new_error){ +if(qbevent){evnt(21433);if(r)goto S_24972;} +S_24973:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+540))))||new_error){ +if(qbevent){evnt(21434);if(r)goto S_24973;} +S_24974:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(20601);if(r)goto S_24027;} +if(qbevent){evnt(21435);if(r)goto S_24974;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20601);}while(r); +if(!qbevent)break;evnt(21435);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20601);}while(r); +if(!qbevent)break;evnt(21435);}while(r); } } } -S_24033:; +S_24980:; if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(20605);if(r)goto S_24033;} -S_24034:; +if(qbevent){evnt(21439);if(r)goto S_24980;} +S_24981:; if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ -if(qbevent){evnt(20606);if(r)goto S_24034;} -S_24035:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+512))&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(20607);if(r)goto S_24035;} -S_24036:; -if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+512))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(20608);if(r)goto S_24036;} -S_24037:; +if(qbevent){evnt(21440);if(r)goto S_24981;} +S_24982:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(21441);if(r)goto S_24982;} +S_24983:; +if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(21442);if(r)goto S_24983;} +S_24984:; if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(20609);if(r)goto S_24037;} +if(qbevent){evnt(21443);if(r)goto S_24984;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Name already in use",19)); +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20609);}while(r); +if(!qbevent)break;evnt(21443);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20609);}while(r); +if(!qbevent)break;evnt(21443);}while(r); } } } @@ -81619,10455 +85742,33 @@ if(!qbevent)break;evnt(20609);}while(r); } } LABEL_ARRAYNAME_EXCEPTION:; -if(qbevent){evnt(20616);r=0;} -S_24046:; +if(qbevent){evnt(21450);r=0;} +S_24993:; if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(20617);if(r)goto S_24046;} +if(qbevent){evnt(21451);if(r)goto S_24993;} do{ *_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -if(!qbevent)break;evnt(20617);}while(r); +if(!qbevent)break;evnt(21451);}while(r); }else{ do{ *_SUB_REGID_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(20617);}while(r); +if(!qbevent)break;evnt(21451);}while(r); } -dl_continue_2857:; +dl_continue_3058:; } -dl_exit_2857:; +dl_exit_3058:; } do{ SUB_HASHADD(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHFLAGS,__LONG_CURRENTID); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20622);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free34.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_REGINTERNAL(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data35.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(20627);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,28,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ASC",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,29,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,29,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,29,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,29,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,30,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("END",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,31,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,31,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,31,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,31,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,32,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LSET",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,33,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,33,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,33,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,33,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,34,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RSET",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,35,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,35,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,35,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,35,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,36,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MID",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,37,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,37,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,37,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,37,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,37,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,38,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,39,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,39,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,39,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,39,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,40,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("OPTION",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,41,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,41,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,41,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,41,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,42,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SWAP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,43,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,43,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,43,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,43,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,44,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SYSTEM",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,45,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,45,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,45,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,45,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,46,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("WRITE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,47,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,47,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,47,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,47,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,48,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("READ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,49,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,49,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,49,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,49,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,50,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLOSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,51,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,51,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,51,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,51,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,52,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RESET",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,53,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,53,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,53,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,53,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,54,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("INPUT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,55,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,55,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,55,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,55,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,57,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TRON",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,58,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,58,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,58,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,58,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,59,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TROFF",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,60,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,60,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,60,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,60,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,61,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LIST",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,62,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,62,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,62,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,62,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,63,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("DEF",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,64,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,64,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,64,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("SEG",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,64,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,64,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,65,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IOCTL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,66,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,66,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,66,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,66,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,67,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IOCTL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,68,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,69,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FRE",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,70,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,71,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SETMEM",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,72,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,73,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FILEATTR",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,74,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,75,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMGET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,76,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,76,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,76,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,76,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,77,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMPUT",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,78,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,78,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,78,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,78,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,79,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMFILL",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,80,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,80,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,80,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,80,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,81,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONTINUE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,82,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,82,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,82,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,82,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,85,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RESIZE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,86,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,87,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__resize",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,88,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,89,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,90,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{ON|OFF}][,{_STRETCH|_SMOOTH}]",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,91,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,92,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,94,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RESIZE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,95,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,96,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resize",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,97,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,98,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,99,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,101,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RESIZEWIDTH",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,102,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,103,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizewidth",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,104,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,105,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,106,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,108,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RESIZEHEIGHT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,109,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,110,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizeheight",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,111,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,112,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,113,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,115,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCALEDWIDTH",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,116,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,117,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledwidth",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,118,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,119,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,120,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,122,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCALEDHEIGHT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,123,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,124,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledheight",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,125,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,126,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,127,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,130,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_GLRENDER",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,131,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,132,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__glrender",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,133,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,134,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,135,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_BEHIND|_ONTOP|_ONLY}",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,136,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,137,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,138,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,140,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DISPLAYORDER",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,141,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,142,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__displayorder",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,143,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,144,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,145,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}]]]]",179)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,146,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,147,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,148,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,150,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMGET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,151,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,152,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memget",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,153,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,154,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string( -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,155,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(20628,156,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,157,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,158,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,160,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEM",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,161,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,162,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,163,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,166,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,167,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,168,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(20628,169,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,170,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,171,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,174,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMELEMENT",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,175,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,176,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,177,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,178,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,179,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(20628,180,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,181,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,182,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,187,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMFREE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,188,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,189,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memfree",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,190,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,191,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,192,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,193,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,194,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,196,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMEXISTS",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,197,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,198,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memexists",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,199,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,200,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,201,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,202,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,203,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,204,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,206,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMNEW",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,207,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,208,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memnew",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,209,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,210,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,211,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(20628,212,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,213,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,214,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,216,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMIMAGE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,217,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,218,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memimage",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,219,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,220,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,221,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,222,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(20628,223,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,224,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,225,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,227,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MEMCOPY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,228,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,229,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memcopy",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,230,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,231,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_UDTTYPE+( 1 ))),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,232,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?{TO}?,?",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,233,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,234,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,235,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,237,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONSOLETITLE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,238,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,239,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consoletitle",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,240,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,241,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,242,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,243,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,244,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,246,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENSHOW",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,247,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,248,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenshow",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,249,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,250,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,251,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,253,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENHIDE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,254,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,255,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenhide",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,256,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,257,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,258,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,260,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENHIDE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,261,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,262,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenhide",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,263,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,264,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,265,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,266,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,269,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONSOLE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,270,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,271,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__console",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,272,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,273,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,274,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,275,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,277,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONSOLE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,278,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,279,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,280,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,281,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,282,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{ON|OFF}",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,283,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,284,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,285,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,287,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONTROLCHR",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,288,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,289,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__controlchr",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,290,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,291,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,292,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{ON|OFF}",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,293,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,294,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,296,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BLINK",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,297,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,298,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blink",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,299,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,300,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,301,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{ON|OFF}",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,302,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,303,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,305,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BLINK",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,306,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,307,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blink",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,308,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,309,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,310,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,312,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FILEEXISTS",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,313,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,314,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fileexists",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,315,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,316,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,317,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,318,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,319,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,321,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DIREXISTS",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,322,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,323,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__direxists",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,324,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,325,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,326,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,327,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,328,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,332,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("STICK",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,333,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,333,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,334,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stick",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,335,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,336,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,337,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,338,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,339,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,340,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,342,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("STRIG",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,343,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,343,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,344,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_strig",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,345,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,346,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,347,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,348,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,349,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,350,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,352,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("STRIG",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,353,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,353,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,354,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_strig",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,355,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,356,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,357,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?[,?])]{ON|OFF|STOP}",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,358,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,360,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,364,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEVICES",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,365,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,365,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,366,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__devices",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,367,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,368,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,369,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,371,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEVICE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,372,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,372,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,373,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,374,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__device",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,375,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,376,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,377,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,378,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,379,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,380,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,382,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEVICEINPUT",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,383,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,383,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,384,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deviceinput",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,385,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,386,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,387,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,388,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,389,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,390,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,392,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_LASTBUTTON",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,393,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,393,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,394,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastbutton",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,395,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,396,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,397,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,398,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,399,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,400,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,402,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_LASTAXIS",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,403,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,403,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,404,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastaxis",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,405,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,406,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,407,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,408,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,409,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,410,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,412,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_LASTWHEEL",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,413,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,413,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,414,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastwheel",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,415,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,416,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,417,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,418,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,419,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,420,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,422,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BUTTON",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,423,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,423,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,424,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__button",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,425,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,426,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,427,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,428,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,429,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,430,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,432,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BUTTONCHANGE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,434,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__buttonchange",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,435,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,436,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,437,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,438,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,439,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,440,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,442,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_AXIS",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,443,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,443,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,444,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__axis",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,445,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,446,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,447,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,448,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,449,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,450,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,453,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_WHEEL",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,454,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(20628,454,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,455,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__wheel",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,456,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,457,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,458,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,459,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,460,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,461,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,472,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("KEY",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,473,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,474,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_key",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,475,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,476,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,477,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("(?){ON|OFF|STOP}",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,478,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,479,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,481,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENX",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,482,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,483,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenx",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,484,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,485,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,486,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,488,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,489,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,490,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screeny",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,491,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,492,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,493,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,495,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENMOVE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,496,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,497,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenmove",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,498,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,499,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,500,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_MIDDLE}][?,?]",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,501,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,502,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,504,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEMOVE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,505,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,506,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousemove",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,507,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,508,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,509,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,510,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,512,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_OS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,513,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,514,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,515,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__os",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,516,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,517,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,518,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,520,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_TITLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,521,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,522,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,523,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__title",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,524,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,525,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,526,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,527,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,529,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MAPUNICODE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,530,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,531,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mapunicode",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,532,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,533,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,534,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{TO}?",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,535,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,536,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,538,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MAPUNICODE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,539,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,540,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mapunicode",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,541,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,542,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,543,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,544,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,545,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,547,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_KEYDOWN",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,548,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,549,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keydown",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,550,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,551,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,552,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,553,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,554,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,556,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_KEYHIT",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,557,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,558,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keyhit",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,559,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,560,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,561,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,563,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_WINDOWHANDLE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,564,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,565,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__handle",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,566,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,567,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,568,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,569,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,571,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FILES",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,572,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,573,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_files",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,574,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,575,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,576,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,577,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,578,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,579,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,581,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PRINTIMAGE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,582,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 9 ; -if(!qbevent)break;evnt(20628,582,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,583,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printimage",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,584,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,585,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,586,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,589,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,590,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,594,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENCLICK",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,595,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,596,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenclick",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,597,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,598,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,599,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,600,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,601,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,602,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,604,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENPRINT",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,605,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,606,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenprint",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,607,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,608,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,609,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,610,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,611,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,613,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENIMAGE",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,614,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 11 ; -if(!qbevent)break;evnt(20628,614,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,615,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenimage",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,616,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,617,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,618,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?,?,?]",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,619,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,620,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,621,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,622,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,628,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOCK",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,629,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,630,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_lock",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,631,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,632,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,633,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{TO}?]]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,634,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,635,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,636,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,638,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UNLOCK",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,639,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,640,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_unlock",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,641,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,642,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,643,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{TO}?]]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,644,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,645,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,646,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,648,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FREETIMER",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,649,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,650,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__freetimer",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,651,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,652,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,653,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,655,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TIMER",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,656,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,657,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_timer",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,658,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,659,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,660,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?)]{ON|OFF|STOP|FREE}",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,661,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,662,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,664,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FULLSCREEN",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,665,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,666,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fullscreen",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,667,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,668,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,669,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_OFF|_STRETCH|_SQUAREPIXELS|OFF}][,{_SMOOTH}]",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,670,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,671,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,672,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,674,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ALLOWFULLSCREEN",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,675,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,676,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__allowfullscreen",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,677,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,678,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,679,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_STRETCH|_SQUAREPIXELS|_OFF|_ALL|OFF}][,{_SMOOTH|_OFF|_ALL|OFF}]",66)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,680,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,681,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,682,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,684,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FULLSCREEN",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,685,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,686,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreen",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,687,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,688,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,689,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,690,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,692,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SMOOTH",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,693,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,694,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreensmooth",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,695,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,696,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,697,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,698,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,700,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_WINDOWHASFOCUS",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,701,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,702,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__hasfocus",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,703,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,704,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,705,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,706,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,708,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CLIPBOARD",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,709,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,710,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,711,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboard",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,712,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,713,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,714,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,715,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,716,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,717,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,719,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CLIPBOARD",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,720,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,721,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,722,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboard",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,723,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,724,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,725,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,726,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,728,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CLIPBOARDIMAGE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,729,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 11 ; -if(!qbevent)break;evnt(20628,729,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,730,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboardimage",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,731,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,732,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,733,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,734,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,736,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CLIPBOARDIMAGE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,737,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 11 ; -if(!qbevent)break;evnt(20628,737,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,738,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboardimage",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,739,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,740,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,741,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,742,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,743,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,744,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,746,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_EXIT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,747,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,748,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__exit",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,749,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,750,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,751,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,753,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_OPENHOST",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,754,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 8 ; -if(!qbevent)break;evnt(20628,754,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,755,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openhost",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,756,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,757,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,758,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,759,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,760,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,762,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONNECTED",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,763,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,764,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connected",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,765,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,766,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,767,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,768,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,769,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,771,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONNECTIONADDRESS",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,772,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,773,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,774,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connectionaddress",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,775,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,776,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,777,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,778,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,779,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,781,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_OPENCONNECTION",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,782,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,783,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openconnection",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,784,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,785,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,786,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,787,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,788,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,790,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_OPENCLIENT",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,791,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 8 ; -if(!qbevent)break;evnt(20628,791,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,792,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openclient",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,793,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,794,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,795,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,796,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,797,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,798,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,801,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ENVIRON",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,802,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,803,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,804,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_environ",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,805,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,806,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,807,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,808,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,809,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,810,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,812,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ENVIRON",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,813,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,814,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_environ",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,815,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,816,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,817,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,818,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,819,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,821,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ERRORLINE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,822,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,823,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errorline",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,824,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,825,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,826,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,828,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_INCLERRORLINE",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,829,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,830,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorline",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,831,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,832,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,833,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,836,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DISPLAY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,837,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,838,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__display",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,839,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,840,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,842,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_AUTODISPLAY",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,843,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,844,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__autodisplay",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,845,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,846,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,848,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_LIMIT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,849,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,850,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__limit",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,851,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,852,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,853,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,854,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,856,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FPS",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,857,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,858,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fps",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,859,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,860,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,861,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_AUTO}][?]",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,862,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,863,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,865,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DELAY",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,866,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,867,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__delay",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,868,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,869,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,870,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,871,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,873,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ICON",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,874,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 10 ; -if(!qbevent)break;evnt(20628,874,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,875,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__icon",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,876,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,877,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,878,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?[,?]]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,879,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,880,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,881,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,883,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_TITLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,884,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,885,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__title",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,886,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,887,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,888,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,889,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,890,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,892,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ECHO",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,893,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,894,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__echo",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,895,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,896,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,897,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,898,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,899,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,901,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ACCEPTFILEDROP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,902,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,903,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__filedrop",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,904,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,905,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,906,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{ON|OFF}]",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,907,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,908,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,909,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,911,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ACCEPTFILEDROP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,912,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,913,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__filedrop",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,914,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,915,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,916,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,917,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,919,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FINISHDROP",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,920,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,921,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__finishdrop",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,922,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,923,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,924,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,926,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_TOTALDROPPEDFILES",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,927,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,928,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__totaldroppedfiles",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,929,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,930,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,931,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,933,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DROPPEDFILE",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,934,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,935,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,936,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__droppedfile",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,937,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,938,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,939,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,940,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,941,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,942,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,943,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,945,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLEAR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,946,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,947,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_clear",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,948,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,949,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,950,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,951,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,952,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,956,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_NEWIMAGE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,957,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,958,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__newimage",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,959,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,960,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,961,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,962,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,963,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,964,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,966,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_LOADIMAGE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,967,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 6 ; -if(!qbevent)break;evnt(20628,967,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,968,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadimage",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,969,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,970,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,971,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,972,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,973,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,974,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,976,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FREEIMAGE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,977,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,978,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freeimage",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,979,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,980,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,981,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,982,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,983,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,985,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COPYIMAGE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,986,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,987,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__copyimage",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,988,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,989,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,990,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,991,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,992,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,993,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,997,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SOURCE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,998,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,999,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__source",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1000,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1001,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1002,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1003,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1004,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1006,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEST",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1007,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1008,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dest",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1009,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1010,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1011,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1012,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1013,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1015,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SOURCE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1016,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1017,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__source",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1018,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1019,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1020,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1022,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEST",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1023,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1024,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dest",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1025,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1026,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1027,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1029,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DISPLAY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1030,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1031,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__display",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1032,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1033,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1034,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1038,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BLEND",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1039,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1040,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blend",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1041,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1042,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1043,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1044,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1045,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1047,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DONTBLEND",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1048,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1049,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dontblend",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1050,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1051,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1052,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1053,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1054,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1056,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CLEARCOLOR",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1057,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1058,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clearcolor",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1059,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1060,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1061,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_NONE}][?][,?]",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1062,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1063,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1067,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PUTIMAGE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1068,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1069,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__putimage",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1070,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 10 ; -if(!qbevent)break;evnt(20628,1071,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1072,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{STEP}](?,?)[-[{STEP}](?,?)]][,[?][,[?][,[[{STEP}](?,?)[-[{STEP}](?,?)]][,{_SMOOTH}]]]]",89)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1073,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1074,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1076,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MAPTRIANGLE",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1077,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1078,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__maptriangle",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1079,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 19 ; -if(!qbevent)break;evnt(20628,1080,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1081,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_CLOCKWISE|_ANTICLOCKWISE}][{_SEAMLESS}](?,?)-(?,?)-(?,?)[,?]{TO}(?,?[,?])-(?,?[,?])-(?,?[,?])[,[?][,{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]",145)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1082,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1083,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1085,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEPTHBUFFER",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1086,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1087,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__depthbuffer",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1088,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1089,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1090,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{ON|OFF|LOCK|_CLEAR}[,?]",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1091,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1092,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1094,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SETALPHA",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1095,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1096,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__setalpha",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1097,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,1098,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1099,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?[{TO}?]][,?]]",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1100,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1101,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1105,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_WIDTH",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1106,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1107,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__width",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1108,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1109,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1110,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1111,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1112,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1113,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1115,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_HEIGHT",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1116,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1117,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__height",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1118,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1119,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1120,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1121,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1122,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1123,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1125,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PIXELSIZE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1126,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1127,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__pixelsize",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1128,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1129,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1130,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1131,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1132,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1133,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1135,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CLEARCOLOR",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1136,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1137,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clearcolor",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1138,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1139,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1140,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1141,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1142,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1143,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1145,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BLEND",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1146,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1147,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blend",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1148,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1149,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1150,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1151,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1152,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1153,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1155,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DEFAULTCOLOR",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1156,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1157,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__defaultcolor",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1158,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1159,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1160,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1161,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1162,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1163,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1165,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BACKGROUNDCOLOR",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1166,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1167,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__backgroundcolor",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1168,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1169,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1170,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1171,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1172,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1173,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1177,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PALETTECOLOR",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1178,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1179,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__palettecolor",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1180,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1181,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1182,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1183,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1184,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1185,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1187,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PALETTECOLOR",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1188,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1189,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__palettecolor",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1190,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,1191,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1192,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1193,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1194,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1196,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COPYPALETTE",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1197,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1198,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__copypalette",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1199,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1200,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1201,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1202,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1203,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1207,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_LOADFONT",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1208,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 1 ; -if(!qbevent)break;evnt(20628,1208,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1209,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadfont",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1210,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,1211,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1212,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1213,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1214,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1215,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1217,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FONT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1218,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1219,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__font",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1220,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1221,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1222,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1223,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1224,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1226,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FONTWIDTH",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1227,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1228,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontwidth",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1229,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1230,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1231,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1232,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1233,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1234,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1236,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FONTHEIGHT",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1237,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1238,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontheight",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1239,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1240,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1241,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1242,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1243,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1244,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1246,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FONT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1247,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1248,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__font",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1249,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1250,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1251,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1252,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1253,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1254,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1256,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PRINTSTRING",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1257,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1258,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printstring",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1259,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,1260,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1261,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?),?[,?]",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1262,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1263,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1265,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PRINTWIDTH",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1266,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1267,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printwidth",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1268,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1269,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1270,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1271,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1272,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1273,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1275,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_FREEFONT",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1276,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1277,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freefont",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1278,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1279,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1280,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1281,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1282,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1284,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PRINTMODE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1285,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1286,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printmode",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1287,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1288,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1289,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_FILLBACKGROUND|_KEEPBACKGROUND|_ONLYBACKGROUND}[,?]",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1290,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1291,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1293,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PRINTMODE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1294,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1295,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printmode",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1296,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1297,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1298,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1299,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1300,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1301,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1305,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RGBA",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1306,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1307,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1308,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,1309,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1310,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1311,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1312,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1313,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1315,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RGB",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1316,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1317,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1318,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,1319,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1320,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?[,?]",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1321,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1322,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1323,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1325,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RED",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1326,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1327,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1328,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1329,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1330,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1331,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1332,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1333,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1335,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_GREEN",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1336,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1337,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1338,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1339,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1340,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1341,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1342,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1343,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1345,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BLUE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1346,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1347,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1348,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1349,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1350,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1351,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1352,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1353,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1355,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ALPHA",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1356,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1357,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1358,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1359,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1360,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1361,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1362,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1363,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1365,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RGBA32",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1366,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1367,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba32",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1368,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,1369,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1370,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1371,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1372,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1374,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RGB32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1375,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1376,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb32",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1377,"subs_functions.bas");}while(r); -do{ -*(int8*)(((char*)__UDT_ID)+(808))= -1 ; -if(!qbevent)break;evnt(20628,1378,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(811))= 1 ; -if(!qbevent)break;evnt(20628,1379,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,1380,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1381,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1382,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1383,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1385,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_RED32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1386,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1387,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red32",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1388,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1389,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1390,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1391,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1392,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1394,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_GREEN32",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1395,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1396,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green32",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1397,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1398,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1399,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1400,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1401,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1403,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_BLUE32",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1404,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1405,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue32",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1406,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1407,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1408,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1409,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1410,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1412,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ALPHA32",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1413,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1414,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha32",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1415,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1416,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1417,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1418,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1419,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1422,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("DRAW",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1423,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1424,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_draw",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1425,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1426,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1427,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1428,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1430,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PLAY",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1431,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1431,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1432,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_play",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1434,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1435,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1437,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1439,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PLAY",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1440,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1440,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1441,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_play",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1442,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1443,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1444,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1445,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1446,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1447,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1450,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSESHOW",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1451,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1452,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseshow",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1453,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1454,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1455,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1456,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1457,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1459,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEHIDE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1460,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1461,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousehide",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1462,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1463,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1465,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEINPUT",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1466,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1467,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mouseinput",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1468,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1469,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1470,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1471,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1472,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1473,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1475,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEX",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1476,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1477,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousex",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1478,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1479,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1480,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1481,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1482,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1483,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1485,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEY",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1486,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1487,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousey",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1488,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1489,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1490,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1491,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1492,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1493,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1495,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEMOVEMENTX",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1496,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1497,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementx",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1498,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1499,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1500,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1501,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1502,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1503,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1505,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEMOVEMENTY",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1506,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1507,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementy",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1508,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1509,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1510,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1511,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1512,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1513,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1515,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEBUTTON",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1516,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1517,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousebutton",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1518,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1519,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1520,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1521,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1522,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1523,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1525,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEWHEEL",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1526,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1527,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousewheel",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1528,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1529,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1530,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1531,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1532,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1533,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1536,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEPIPEOPEN",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1537,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1538,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousepipeopen",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1539,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1540,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1541,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1543,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEINPUTPIPE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1544,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1545,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseinputpipe",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1546,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1547,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1548,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1549,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1551,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MOUSEPIPECLOSE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1552,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1553,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousepipeclose",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1554,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1555,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1556,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1557,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1559,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FREEFILE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1560,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1561,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_freefile",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1562,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1563,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1564,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1566,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("NAME",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1567,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1568,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_name",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1569,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1570,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1571,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{AS}?",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1572,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1573,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1575,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("KILL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1576,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1577,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_kill",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1578,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1579,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1580,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1581,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1583,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CHDIR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1584,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1585,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chdir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1586,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1587,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1588,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 0 ; -if(!qbevent)break;evnt(20628,1589,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1590,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1592,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKDIR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1593,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1594,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_mkdir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1595,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1596,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1597,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1598,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1599,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1601,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RMDIR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1602,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1603,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_rmdir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1604,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1605,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1606,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1607,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1608,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1610,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CHAIN",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1611,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1612,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chain",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1613,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1614,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1615,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1616,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1617,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1619,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SHELL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1620,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1621,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1622,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1623,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1624,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1625,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1627,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1628,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1630,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SHELL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1631,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1632,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell2",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1633,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1634,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1635,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_HIDE}[{_DONTWAIT}][?]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1636,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_HIDE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1637,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1638,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1639,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1641,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SHELL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1642,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1643,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell3",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1644,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1645,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1646,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_DONTWAIT}[{_HIDE}][?]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1647,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_DONTWAIT",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1648,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1649,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1650,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1652,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SHELL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1653,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1654,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_shell",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1655,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1656,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1657,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1658,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1659,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1660,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1662,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SHELLHIDE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1663,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1664,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shellhide",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1665,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1666,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1667,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1668,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1669,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1670,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1672,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("COMMAND",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1673,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1674,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1675,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_command",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1676,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1677,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1678,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1679,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1680,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1681,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1682,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1684,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COMMANDCOUNT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1685,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1686,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__commandcount",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1687,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1688,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1689,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1694,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDRATE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1695,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1695,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1696,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrate",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1697,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1698,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1699,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1700,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1702,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDRAW",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1703,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1703,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1704,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndraw",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1705,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,1706,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1707,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1708,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1709,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1710,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1712,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDRAWDONE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1713,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1713,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1714,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndrawdone",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1715,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1716,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1717,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1718,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1719,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1720,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1722,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDOPENRAW",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1723,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1723,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1724,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopenraw",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1725,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1726,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1727,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1728,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1730,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDRAWLEN",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1731,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1731,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1732,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrawlen",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1733,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1734,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1735,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1736,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1737,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1738,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1739,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1741,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDLEN",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1742,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1742,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1743,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndlen",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1744,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1745,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1746,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1747,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1748,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1749,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1751,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDPAUSED",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1752,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1752,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1753,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndpaused",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1754,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1755,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1756,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1757,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1758,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1759,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1761,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDPLAYFILE",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1762,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 3 ; -if(!qbevent)break;evnt(20628,1762,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1763,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplayfile",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1764,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,1765,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1766,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1767,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1768,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1769,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1771,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDPLAYCOPY",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1772,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1772,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1773,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplaycopy",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1774,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1775,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1776,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1777,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1778,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1779,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1781,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDSTOP",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1782,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1782,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1783,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndstop",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1784,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1785,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1786,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1787,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1788,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1790,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDLOOP",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1791,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1791,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1792,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndloop",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1793,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1794,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1795,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1796,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1797,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1799,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDLIMIT",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1800,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1800,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1801,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndlimit",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1802,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1803,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1804,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1805,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1806,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1808,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDOPEN",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1809,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 3 ; -if(!qbevent)break;evnt(20628,1809,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1810,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopen",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1811,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1812,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1813,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1814,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1815,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1816,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1817,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1819,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDSETPOS",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1820,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1820,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1821,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndsetpos",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1822,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1823,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1824,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1825,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1826,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1828,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDGETPOS",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1829,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1829,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1830,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndgetpos",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1831,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1832,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1833,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1834,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1835,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1836,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1838,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDPLAYING",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1839,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1839,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1840,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndplaying",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1841,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1842,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1843,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1844,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1845,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1846,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1848,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDPAUSE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1849,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1849,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1850,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndpause",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1851,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1852,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1853,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1854,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1855,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1857,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDBAL",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1858,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1858,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1859,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndbal",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1860,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,1861,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1862,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?][,[?][,[?][,[?]]]]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1863,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1864,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1865,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1868,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDVOL",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1869,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1869,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1870,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndvol",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1871,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1872,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1873,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1874,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1875,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1877,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDPLAY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1878,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1878,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1879,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplay",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1880,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1881,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1882,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1883,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1884,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1886,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDCOPY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1887,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1887,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1888,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndcopy",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1889,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1890,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1891,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1892,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1893,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1894,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1896,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SNDCLOSE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1897,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,1897,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1898,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndclose",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1899,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1900,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1901,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,1902,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1903,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1905,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("INPUT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1906,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1907,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1908,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_input",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1909,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1910,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1911,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1912,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1913,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1914,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1916,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SEEK",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1917,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,1918,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_seek",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1919,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1920,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1921,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?,?",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1922,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1923,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1925,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SEEK",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1926,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1927,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_seek",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1928,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1929,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1930,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1931,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1932,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1934,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOC",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1935,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1936,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_loc",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1937,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1938,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1939,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1940,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1941,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1943,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("EOF",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1944,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1945,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_eof",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1946,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1947,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1948,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1949,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1950,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1952,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOF",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1953,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1954,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lof",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1955,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1956,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1957,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1958,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1959,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1962,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SCREEN",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1963,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1964,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screen",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1965,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,1966,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1967,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1968,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1969,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1970,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1972,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PMAP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1973,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1974,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pmap",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1975,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1976,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1977,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1978,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1979,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1982,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("POINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1983,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1984,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_point",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1985,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,1986,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1987,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1988,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1989,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,1990,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,1993,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TAB",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1994,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,1995,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_tab",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1996,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,1997,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,1998,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,1999,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2000,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2002,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SPC",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2003,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2004,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_spc",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2005,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2006,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2007,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2008,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2009,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2012,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("WAIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2013,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2014,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_wait",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2015,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2016,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2017,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2018,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2019,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2021,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("INP",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2022,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2023,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_inp",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2024,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2025,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2026,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2027,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2028,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2030,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("POS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2031,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2032,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pos",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2033,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2034,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2035,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2036,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2037,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2039,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SGN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2040,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2041,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sgn",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2042,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2043,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2044,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2045,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2046,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2048,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LBOUND",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2049,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2050,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2051,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2052,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2053,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2054,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2055,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2057,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UBOUND",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2058,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2059,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2060,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2061,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2062,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2063,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2064,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2066,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("OCT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2067,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2068,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2069,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2070,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2071,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2072,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2073,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2075,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("HEX",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2076,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2077,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2078,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2079,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2080,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2081,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2082,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2084,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SLEEP",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2085,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2086,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sleep",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2087,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2088,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2089,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2090,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2091,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2093,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("EXP",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2094,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2095,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2096,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2097,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(20628,2098,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2099,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2101,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FIX",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2102,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2103,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2104,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2105,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(20628,2106,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2107,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2109,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("INT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2110,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2111,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2112,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2113,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(20628,2114,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2115,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2117,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CDBL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2118,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2119,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2120,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2121,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2122,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2123,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2125,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CSNG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2126,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2127,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2128,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2129,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2130,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2131,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2133,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ROUND",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2134,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2135,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2136,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2137,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2138,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2139,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2141,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CINT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2142,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2143,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2144,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2145,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2146,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2147,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2149,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLNG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2150,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2151,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2152,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2153,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2154,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2155,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2159,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TIME",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2160,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2161,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2162,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_time",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2163,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2164,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2165,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2166,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2167,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2169,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TIME",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2170,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2171,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2172,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_time",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2173,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2174,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2175,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2179,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("DATE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2180,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2181,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2182,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_date",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2183,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2184,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2185,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2186,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2187,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2189,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("DATE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2190,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2191,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2192,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_date",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2193,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2194,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2195,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2197,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CSRLIN",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2198,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2199,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csrlin",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2200,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2201,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2202,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2205,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PAINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2206,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2207,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_paint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2208,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,2209,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2210,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?)[,[?][,[?][,?]]]",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2211,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2213,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2215,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CIRCLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2216,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2217,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_circle",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2218,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 7 ; -if(!qbevent)break;evnt(20628,2219,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2220,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?),?[,[?][,[?][,[?][,?]]]]",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2221,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2223,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2225,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BLOAD",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2226,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2227,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bload",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2228,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2229,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2230,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2231,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2232,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2234,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BSAVE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2235,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2236,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bsave",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2237,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2238,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2239,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2240,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2242,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("GET",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2243,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2244,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_get",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2245,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2246,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2247,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2249,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2250,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2252,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PUT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2253,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2254,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_put",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2255,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2256,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2257,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2259,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2260,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2263,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("GET",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2264,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2265,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2266,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(20628,2267,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2268,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?)-[{STEP}](?,?),?[,?]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2269,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("STEP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2270,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2271,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2273,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("GET",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2274,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2275,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2276,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(20628,2277,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2278,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?)-[{STEP}](?,?),?[,?]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2279,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2280,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2281,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2284,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PUT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2285,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2286,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2287,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,2288,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2289,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?),?[,[{_CLIP}][{PSET|PRESET|AND|OR|XOR}][,?]]",57)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2290,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("STEP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2293,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2294,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2295,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PUT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2296,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2297,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2298,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,2299,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2300,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?),?[,[{_CLIP}][{PSET|PRESET|AND|OR|XOR}][,?]]",57)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2301,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2304,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2305,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2307,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("OPEN",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2308,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2309,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open_gwbasic",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2310,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,2311,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2312,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[#]?,?[,?]",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2313,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2314,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2315,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("OPEN",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2316,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2317,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2318,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(20628,2319,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2320,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[{FOR RANDOM|FOR BINARY|FOR INPUT|FOR OUTPUT|FOR APPEND}][{ACCESS READ WRITE|ACCESS READ|ACCESS WRITE}][{SHARED|LOCK READ WRITE|LOCK READ|LOCK WRITE}]{AS}[#]?[{LEN =}?]",169)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2321,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2322,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2324,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VAL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2325,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2326,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_val",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2327,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2328,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2329,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2330,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2331,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2333,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKSMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2334,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2335,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2336,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mksmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2337,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2338,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2339,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2340,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2341,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2342,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKDMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2343,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2344,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2345,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mkdmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2346,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2347,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2348,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2349,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2350,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2352,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKI",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2353,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2354,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2355,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2356,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2357,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2358,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2359,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2360,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2361,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2362,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2363,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2364,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2365,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2366,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2367,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2368,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2369,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2370,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2371,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2372,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2373,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2374,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2375,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2376,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2377,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2378,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2379,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKD",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2380,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2381,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2382,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2383,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2384,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2385,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2386,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2387,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2388,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_MK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2389,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2390,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2391,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2392,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2393,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string( -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2394,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2395,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2396,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2398,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVSMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2399,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2400,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvsmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2401,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2402,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2403,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2404,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2405,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2406,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVDMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2407,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2408,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvdmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2409,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2410,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2411,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2412,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2413,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2415,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVI",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2416,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2417,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2418,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2419,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2420,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2421,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2422,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2423,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2424,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2425,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2426,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2427,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2428,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2429,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2430,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2431,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2432,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2433,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2434,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2435,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2436,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2437,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2438,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2439,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVD",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2440,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2441,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2442,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2443,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2444,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2445,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2446,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2447,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CV",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2448,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2449,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2450,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2451,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2452,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(20628,2453,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2454,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2456,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2457,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2458,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2459,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_string",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2460,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2461,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2462,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2463,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2464,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2466,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SPACE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2467,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2468,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2469,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_space",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2470,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2471,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2472,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2473,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2474,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2476,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("INSTR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2477,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2478,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_instr",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2479,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2480,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2481,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2482,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2483,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2484,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2486,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_INSTRREV",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2487,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2488,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__instrrev",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2489,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2490,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2491,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2492,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2493,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2494,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2496,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MID",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2497,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2498,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2499,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mid",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2500,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2501,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2502,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2503,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,[?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2504,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2505,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2507,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SADD",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2508,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2509,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2510,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2511,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2512,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2513,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2514,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2516,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2517,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2518,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_cls",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2519,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2520,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2521,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2522,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2523,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2525,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SQR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2526,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2527,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sqr",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2528,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2529,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2530,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2531,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2532,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2534,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CHR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2535,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2536,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2537,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_chr",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2538,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2539,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2540,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2541,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2542,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2544,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VARPTR",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2545,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2546,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2547,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2548,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2549,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2550,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2551,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2552,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2554,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VARPTR",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2555,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2556,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2557,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2558,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2559,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2560,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2561,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2563,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2564,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2565,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2566,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2567,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2568,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2569,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2570,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2572,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VARSEG",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2573,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2574,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2575,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2576,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2577,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2578,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2579,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2581,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("POKE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2582,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2583,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_poke",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2584,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2585,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2586,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2587,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2589,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PEEK",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2590,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2591,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_peek",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2592,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2593,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2594,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2595,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2596,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2598,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("DEF",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2599,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2600,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_defseg",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2601,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2602,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2603,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{SEG}[=?]",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2604,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("SEG",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2605,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2606,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2608,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SIN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2609,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2610,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sin",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2611,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2612,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2613,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2614,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2615,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2617,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("COS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2618,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2619,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cos",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2620,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2621,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2622,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2623,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2624,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2626,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TAN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2627,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2628,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tan",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2629,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2630,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2631,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2632,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2633,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2635,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ATN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2636,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2637,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2638,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2639,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2640,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2641,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2642,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2644,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOG",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2645,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2646,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_log",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2647,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2648,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2649,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2650,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2651,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2653,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ABS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2654,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2655,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_abs",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2656,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2657,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2658,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2659,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2660,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2662,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ERL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2663,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2664,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_erl",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2665,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,2666,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2667,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2668,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2670,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ERR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2671,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2672,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_err",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2673,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,2674,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2675,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2676,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2678,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ERROR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2679,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2680,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("error",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2681,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2682,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2683,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2684,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2686,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LINE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2687,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2688,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_line",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2689,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 7 ; -if(!qbevent)break;evnt(20628,2690,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2691,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{STEP}](?,?)]-[{STEP}](?,?)[,[?][,[{B|BF}][,?]]]",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2692,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2693,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2695,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SOUND",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2696,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,2696,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2697,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sound",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2698,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2699,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2700,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2702,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2704,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BEEP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2705,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(20628,2705,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2706,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_beep",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2707,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,2708,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2710,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2712,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TIMER",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2713,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2714,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_timer",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2715,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2716,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2717,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2718,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2719,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2720,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2722,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RND",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2723,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2724,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rnd",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2725,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2726,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2727,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2728,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2729,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2730,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2732,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RANDOMIZE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2733,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2734,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_randomize",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2735,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2736,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2737,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{USING}]?]",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2738,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2739,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2741,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("OUT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2742,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2743,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_out",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2744,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2745,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2746,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2747,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2749,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PCOPY",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2750,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2751,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pcopy",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2752,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2753,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2754,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2755,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2757,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VIEW",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2758,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2759,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2760,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(20628,2761,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2762,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{SCREEN}](?,?)-(?,?)[,[?][,?]]]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2763,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2764,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2765,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2767,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VIEW",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2768,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2769,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view_print",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2770,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2771,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2772,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{PRINT}[?{TO}?]",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2773,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2774,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2775,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2777,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("WINDOW",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2778,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2779,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_window",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2780,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(20628,2781,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2782,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{SCREEN}](?,?)-(?,?)]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2783,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2784,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2786,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOCATE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2787,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2788,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_locate",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2789,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,2790,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2791,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,?]]]]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2792,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2793,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2795,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("COLOR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2796,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2797,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_color",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2798,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2799,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2800,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2801,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2802,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2804,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PALETTE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2805,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2806,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_palette",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2807,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2808,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2809,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2810,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2811,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2813,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("WIDTH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2814,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2815,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbsub_width",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2816,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2817,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2818,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{#|LPRINT}][?][,?]",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2819,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2820,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2823,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SCREEN",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2824,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2825,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_screen",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2826,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(20628,2827,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2828,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,[{_MANUALDISPLAY}?]]]]]",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2832,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2833,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2835,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PSET",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2836,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2837,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pset",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2838,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2839,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2840,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?)[,?]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2841,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2842,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2844,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PRESET",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2845,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2846,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_preset",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2847,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(20628,2848,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2849,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{STEP}](?,?)[,?]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2850,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2851,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2853,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ASC",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2854,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2855,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_asc",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2856,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2857,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2858,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2859,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2860,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2862,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LEN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2863,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2864,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2865,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2866,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2867,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2868,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2869,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2871,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("INKEY",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2872,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2873,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2874,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_inkey",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2875,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2876,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2877,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2879,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("STR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2880,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2881,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2882,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_str",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2883,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2884,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2885,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2886,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2887,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2889,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UCASE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2890,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2891,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2892,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ucase",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2893,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2894,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2895,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2896,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2897,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2899,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LCASE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2900,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2901,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2902,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lcase",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2903,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2904,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2905,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2906,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2907,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2909,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LEFT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2910,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2911,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2912,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_left",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2913,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2914,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2915,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2916,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2917,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2919,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RIGHT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2920,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2921,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2922,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_right",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2923,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,2924,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2925,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2926,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2927,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2929,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LTRIM",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2930,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2931,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2932,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ltrim",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2933,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2934,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2935,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2936,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2937,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2939,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RTRIM",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2940,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2941,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2942,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_rtrim",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2943,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2944,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2945,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2946,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2947,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2949,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_TRIM",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2950,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2951,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2952,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs__trim",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2953,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2954,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2955,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2956,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2957,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2959,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2960,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2961,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_print",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2962,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2963,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2964,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2965,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2967,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPRINT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2968,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 9 ; -if(!qbevent)break;evnt(20628,2968,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,2969,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lprint",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2970,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2971,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2972,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,2973,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2974,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2976,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPOS",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2977,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 9 ; -if(!qbevent)break;evnt(20628,2977,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2978,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lpos",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2979,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,2980,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2981,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2982,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2861))= 1 ; -if(!qbevent)break;evnt(20628,2983,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2984,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2987,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CWD",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2988,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2989,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2990,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cwd",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2991,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,2992,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,2993,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,2996,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_STARTDIR",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2997,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,2998,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,2999,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__startdir",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3000,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3001,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3002,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3005,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DIR",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3006,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3007,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3008,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3009,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3010,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3011,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3012,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3013,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3016,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_INCLERRORFILE",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3017,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3018,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3019,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorfile",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3020,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3021,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3022,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3024,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_KEYCLEAR",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3025,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,3026,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3027,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3028,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3029,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__keyclear",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3030,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3031,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3033,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_D2R",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3034,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3035,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2rad",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3036,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3037,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3038,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3039,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3040,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3042,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_D2G",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3043,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3044,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2grad",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3045,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3046,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3047,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3048,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3049,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3051,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_R2D",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3052,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3053,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2deg",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3054,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3055,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3056,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3057,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3058,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3060,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_R2G",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3061,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3062,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2grad",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3063,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3064,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3065,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3066,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3067,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3069,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_G2D",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3070,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3071,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2deg",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3072,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3073,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3074,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3075,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3076,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3078,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_G2R",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3079,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3080,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2rad",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3081,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3082,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3083,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3084,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3085,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3087,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ATAN2",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3088,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3089,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan2",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3090,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,3091,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3092,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3093,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3094,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3096,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_HYPOT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3097,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3098,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("hypot",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3099,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,3100,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3101,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3102,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3103,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3105,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ASIN",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3106,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3107,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asin",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3108,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3109,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3110,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3111,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3112,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3114,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ACOS",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3115,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3116,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acos",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3117,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3118,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3119,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3120,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3121,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3123,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SINH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3124,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3125,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sinh",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3126,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3127,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3128,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3129,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3130,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3132,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COSH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3133,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3134,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cosh",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3135,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3136,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3137,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3138,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3139,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3141,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_TANH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3142,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3143,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tanh",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3144,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3145,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3146,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3147,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3148,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3150,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ASINH",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3151,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3152,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asinh",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3153,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3154,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3155,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3156,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3157,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3159,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ACOSH",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3160,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3161,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acosh",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3162,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3163,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3164,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3165,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3166,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3168,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ATANH",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3169,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3170,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atanh",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3171,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3172,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3173,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3174,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3175,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3177,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CEIL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3178,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3179,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("ceil",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3180,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3181,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3182,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3183,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3184,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3186,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_PI",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3187,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3188,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pi",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3189,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3190,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3191,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3192,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3193,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3194,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3196,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DESKTOPHEIGHT",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3197,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3198,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenheight",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3199,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,3200,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3201,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3202,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3204,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_DESKTOPWIDTH",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3205,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3206,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenwidth",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3207,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,3208,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3209,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3210,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3212,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENICON",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3213,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(20628,3214,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_screenicon",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3215,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3216,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3218,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENEXISTS",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3219,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3220,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_windowexists",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3221,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3222,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3224,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CONTROLCHR",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3225,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3226,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__controlchr",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3227,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,3228,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3229,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3230,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3232,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_STRICMP",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3233,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3234,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_nc_compare",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3235,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,3236,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3237,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3238,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3239,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3241,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_STRCMP",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3242,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3243,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_compare",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3244,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,3245,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3246,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3247,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3248,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3250,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ARCSEC",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3251,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3252,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arcsec",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3253,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3254,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3255,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3256,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3257,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3259,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ARCCSC",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3260,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3261,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccsc",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3262,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3263,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3264,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3265,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3266,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3268,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_ARCCOT",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3269,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3270,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccot",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3271,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3272,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3273,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3274,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3275,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3277,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SECH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3278,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3279,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sech",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3280,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3281,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3282,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3283,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3284,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3286,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CSCH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3287,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3288,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csch",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3289,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3290,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3291,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3292,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3293,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3295,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COTH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3296,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3297,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_coth",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3298,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3299,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3300,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3301,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3302,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3304,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SEC",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3305,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3306,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sec",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3307,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3308,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3309,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3310,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3311,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3313,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_CSC",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3314,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3315,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csc",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3316,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3317,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3318,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3319,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3320,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3322,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_COT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3323,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3324,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cot",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3325,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(20628,3326,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3327,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3328,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3329,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3331,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SCREENICON",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3332,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3333,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenicon",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3334,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,3335,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3336,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3337,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3339,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_AUTODISPLAY",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3340,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3341,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__autodisplay",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3342,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(20628,3343,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3344,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3345,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3347,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SHR",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3348,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3349,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shr",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3350,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,3351,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3352,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3353,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3354,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(20628,3356,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_SHL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3357,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(20628,3358,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shl",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3359,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(20628,3360,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20628,3361,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20628,3362,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(20628,3363,"subs_functions.bas");}while(r); -do{ -*__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(20629);}while(r); +if(!qbevent)break;evnt(21456);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free35.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_REMOVEELEMENTS(qbs*_SUB_REMOVEELEMENTS_STRING_A,int32*_SUB_REMOVEELEMENTS_LONG_FIRST,int32*_SUB_REMOVEELEMENTS_LONG_LAST,int32*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING){ +void SUB_REGINTERNAL(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -92081,70 +85782,12270 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20656);}while(r); +*__LONG_REGINTERNALSUBFUNC= 1 ; +if(!qbevent)break;evnt(21461);}while(r); do{ -*_SUB_REMOVEELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_REMOVEELEMENTS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20661);}while(r); -S_27110:; -fornext_value2861= 1 ; -fornext_finalvalue2861=*_SUB_REMOVEELEMENTS_LONG_N; -fornext_step2861= 1 ; -if (fornext_step2861<0) fornext_step_negative2861=1; else fornext_step_negative2861=0; -if (new_error) goto fornext_error2861; -goto fornext_entrylabel2861; -while(1){ -fornext_value2861=fornext_step2861+(*_SUB_REMOVEELEMENTS_LONG_I); -fornext_entrylabel2861: -*_SUB_REMOVEELEMENTS_LONG_I=fornext_value2861; -if (fornext_step_negative2861){ -if (fornext_value2861fornext_finalvalue2861) break; -} -fornext_error2861:; -if(qbevent){evnt(20662);if(r)goto S_27110;} -S_27111:; -if (((-(*_SUB_REMOVEELEMENTS_LONG_I<*_SUB_REMOVEELEMENTS_LONG_FIRST))|(-(*_SUB_REMOVEELEMENTS_LONG_I>*_SUB_REMOVEELEMENTS_LONG_LAST)))||new_error){ -if(qbevent){evnt(20663);if(r)goto S_27111;} +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,28,"subs_functions.bas");}while(r); do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP),FUNC_GETELEMENT(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_LONG_I))); +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20664);}while(r); -}else{ -S_27114:; -if ((*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING)||new_error){ -if(qbevent){evnt(20666);if(r)goto S_27114;} +if(!qbevent)break;evnt(21462,29,"subs_functions.bas");}while(r); do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20666);}while(r); -} -} -fornext_continue_2860:; -} -fornext_exit_2860:; -S_27119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_REMOVEELEMENTS_STRING_A2, 1 ),__STRING1_SP)))||new_error){ -if(qbevent){evnt(20669);if(r)goto S_27119;} +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,29,"subs_functions.bas");}while(r); do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_right(_SUB_REMOVEELEMENTS_STRING_A2,_SUB_REMOVEELEMENTS_STRING_A2->len- 1 )); +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20669);}while(r); -} +if(!qbevent)break;evnt(21462,29,"subs_functions.bas");}while(r); do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_STRING_A2); +SUB_REGID(); +if(!qbevent)break;evnt(21462,29,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,30,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20671);}while(r); +if(!qbevent)break;evnt(21462,31,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,31,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,31,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,31,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,32,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("End",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,33,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,33,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,33,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,33,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,34,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LSet",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,35,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,35,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,35,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,35,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,36,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RSet",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,37,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,37,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,37,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,37,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,38,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Mid",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,39,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,39,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,39,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,39,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,39,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,40,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,41,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,41,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,41,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,41,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,42,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Option",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,43,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,43,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,43,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,43,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,44,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Swap",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,45,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,45,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,45,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,45,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,46,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("System",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,47,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,47,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,47,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,47,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,48,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Write",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,49,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,49,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,49,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,49,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,50,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Read",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,51,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,51,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,51,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,51,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,52,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Close",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,53,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,53,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,53,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,53,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,54,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Reset",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,55,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,55,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,55,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,55,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,56,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Input",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,57,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,57,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,57,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,57,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,59,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TrOn",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,60,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,60,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,60,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,60,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,61,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TrOff",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,62,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,62,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,62,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,62,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,63,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("List",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,64,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,64,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,64,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,64,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,65,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Def",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,66,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,66,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,66,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("SEG",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,66,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,66,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,67,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IoCtl",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,68,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,68,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,68,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,68,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,69,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IoCtl",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,70,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,71,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Fre",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,72,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,73,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SetMem",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,74,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,75,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FileAttr",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,76,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,77,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemGet",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,78,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,78,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,78,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,78,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,79,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemPut",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,80,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,80,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,80,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,80,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,81,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemFill",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,82,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,82,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,82,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,82,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,83,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Continue",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,84,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,84,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,84,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,84,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,87,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Resize",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,88,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,89,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__resize",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,90,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,91,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,92,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{On|Off}][,{_Stretch|_Smooth}]",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,93,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZE [{ON|OFF}][, {_STRETCH|_SMOOTH}]",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,94,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,95,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,97,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Resize",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,98,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,99,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resize",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,100,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,101,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZE",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,102,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,103,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,105,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResizeWidth",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,106,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,107,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizewidth",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,108,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,109,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZEWIDTH",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,110,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,111,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,113,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResizeHeight",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,114,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,115,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizeheight",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,116,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,117,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZEHEIGHT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,118,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,119,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,121,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScaledWidth",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,122,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,123,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledwidth",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,124,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,125,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCALEDWIDTH",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,126,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,127,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,129,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScaledHeight",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,130,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,131,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledheight",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,132,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,133,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCALEDHEIGHT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,134,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,135,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,138,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("GLRender",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,139,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,140,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__glrender",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,141,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,142,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,143,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_Behind|_OnTop|_Only}",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,144,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GLRENDER {_Behind|_OnTop|_Only}",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,145,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,146,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,148,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DisplayOrder",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,149,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,150,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__displayorder",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,151,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,153,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}]]]]",179)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,154,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAYORDER {_Software|_Hardware|_Hardware1|_GLRender} (any combination/order)",80)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,155,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,156,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,158,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemGet",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,159,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,160,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memget",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,161,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,162,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,163,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21462,164,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMGET(block, offset, type)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,165,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,166,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,168,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Mem",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,169,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,170,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,171,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,174,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,176,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21462,177,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEM(referenceVariable) or _MEM(offset, byteSize)",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,178,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,179,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,182,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemElement",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,183,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,184,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,185,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,186,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,187,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21462,188,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMELEMENT(referenceVariable)",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,189,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,190,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,195,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemFree",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,196,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,197,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memfree",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,198,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,199,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,200,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMFREE memoryVariable",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,201,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,202,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,204,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemExists",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,205,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,206,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memexists",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,207,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,208,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,209,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,210,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMEXISTS(memBlock)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,211,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,212,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,214,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemNew",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,215,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,216,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memnew",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,217,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,218,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,219,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21462,220,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMNEW(byteSize)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,221,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,222,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,224,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemImage",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,225,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,226,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memimage",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,227,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,228,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,229,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,230,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21462,231,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMIMAGE or _MEMIMAGE(imageHandle)",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,232,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,233,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,235,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemSound",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,236,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 3 ; +if(!qbevent)break;evnt(21462,236,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,237,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memsound",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,238,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,239,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,240,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21462,241,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMSOUND(soundHandle)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,242,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,243,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,245,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemCopy",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,246,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,247,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memcopy",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,248,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,249,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_UDTTYPE+( 1 ))),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,250,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?{To}?,?",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,251,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMCOPY sourceBlock, sourceBlock.OFFSET, sourceBlock.SIZE TO destBlock, destBlock.OFFSET",89)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,252,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,253,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,255,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleTitle",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,256,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,257,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consoletitle",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,258,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,259,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,260,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLETITLE title$",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,261,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,262,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,264,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenShow",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,265,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,266,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenshow",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,267,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENSHOW",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,268,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,269,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,271,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenHide",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,272,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,273,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenhide",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,274,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENHIDE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,275,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,276,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,278,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenHide",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,279,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,280,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenhide",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,281,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,282,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENHIDE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,283,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,284,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,287,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Console",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,288,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,289,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__console",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,290,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,291,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLE",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,292,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,293,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,295,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Console",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,296,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,297,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,298,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,299,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,300,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,301,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLE {On|Off}",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,302,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,303,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,305,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ControlChr",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,306,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,307,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__controlchr",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,308,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,309,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,310,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,311,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONTROLCHR {On|Off}",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,312,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,313,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,315,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blink",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,316,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,317,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blink",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,318,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,319,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,320,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,321,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLINK {On|Off}",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,322,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,323,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,325,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blink",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,326,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,327,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blink",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,328,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,329,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLINK",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,330,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,331,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,333,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FileExists",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,334,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,335,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fileexists",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,336,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,337,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,338,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,339,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FILEEXISTS(fileName$)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,340,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,341,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,343,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DirExists",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,344,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,345,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__direxists",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,346,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,347,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,348,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,349,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DIREXISTS(path$)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,350,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,351,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,355,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Stick",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,356,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,356,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,357,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stick",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,358,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,359,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,360,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,361,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,362,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STICK(direction%) or STICK(direction%, axis_number%)",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,363,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,364,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,366,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Strig",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,367,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,367,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,368,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_strig",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,369,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,370,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,371,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,373,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRIG(button_function%) or STRIG(button_function%, device_number%)",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,374,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,375,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,377,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Strig",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,378,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,378,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,379,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_strig",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,380,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,381,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?[,?])]{On|Off|Stop}",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,383,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRIG(button%) {On|Off|Stop}",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,385,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,386,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,390,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Devices",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,392,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__devices",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,393,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,394,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICES",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,395,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,396,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,398,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Device",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,399,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,399,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,400,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,401,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__device",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,402,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,403,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,404,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,405,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,406,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICE$(device_number)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,407,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,408,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,410,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DeviceInput",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,411,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,411,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,412,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deviceinput",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,413,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,414,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,415,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,416,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,417,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICEINPUT or _DEVICEINPUT(device_number%)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,418,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,419,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,421,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastButton",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,422,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,422,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,423,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastbutton",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,424,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,425,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,426,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,427,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,428,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTBUTTON(deviceNumber)",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,429,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,430,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastAxis",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,434,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastaxis",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,435,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,436,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,437,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,438,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,439,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTAXIS(deviceNumber)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,440,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,441,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,443,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastWheel",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,444,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,444,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,445,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastwheel",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,446,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,447,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,448,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,449,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,450,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTWHEEL(deviceNumber)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,451,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,452,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,454,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Button",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,456,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__button",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,457,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,458,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,459,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,460,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,461,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BUTTON(button_number%)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,462,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,463,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,465,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ButtonChange",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,466,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,466,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,467,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__buttonchange",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,468,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,469,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,470,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,471,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,472,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BUTTONCHANGE(button_number%)",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,473,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,474,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Axis",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,477,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,477,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,478,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__axis",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,479,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,480,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,481,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,482,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,483,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AXIS(axis_number%)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,484,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,485,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,488,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Wheel",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,489,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21462,489,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,490,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__wheel",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,491,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,492,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,493,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,494,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,495,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WHEEL(wheelNumber%)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,496,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,497,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,508,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Key",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,509,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,510,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_key",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,511,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,512,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,513,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("(?){On|Off|Stop}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,514,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("KEY(number) {On|Off|Stop}",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,515,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,516,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,518,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenX",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,519,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,520,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenx",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,521,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,522,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENX",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,523,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,524,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,526,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenY",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,527,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,528,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screeny",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,529,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,530,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,531,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,532,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,534,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenMove",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,535,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,536,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenmove",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,537,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,538,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,539,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Middle}][?,?]",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,540,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENMOVE x, y or _SCREENMOVE _Middle",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,541,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,542,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,544,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMove",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,545,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,546,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousemove",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,547,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,548,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,549,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVE x, y",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,550,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,551,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,553,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OS",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,554,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,555,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,556,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__os",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,557,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,558,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OS$",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,559,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,560,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,562,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Title",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,563,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,564,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,565,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__title",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,566,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,567,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TITLE$",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,568,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,569,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,571,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapUnicode",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,572,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,573,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mapunicode",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,574,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,575,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,576,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{To}?",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,577,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPUNICODE unicode& TO asciiCode%",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,578,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,579,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,581,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapUnicode",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,582,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,583,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mapunicode",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,584,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,585,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,586,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,587,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPUNICODE(asciiCode%)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,588,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,589,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,591,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyDown",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,592,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,593,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keydown",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,594,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,595,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,596,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,597,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYDOWN(code&)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,598,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,599,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,601,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyHit",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,602,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,603,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keyhit",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,604,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,605,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYHIT",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,606,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,607,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,609,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("WindowHandle",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,610,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,611,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__handle",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,612,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,613,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WINDOWHANDLE",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,614,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,615,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,617,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Files",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,618,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,619,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_files",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,620,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,621,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,622,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,623,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("FILES fileSpec$",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,624,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,625,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,627,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintImage",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,628,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 9 ; +if(!qbevent)break;evnt(21462,628,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,629,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printimage",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,630,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,631,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,632,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTIMAGE imageHandle&",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,635,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,636,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,640,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenClick",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,641,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenclick",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,643,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,644,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,645,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,646,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENCLICK x, y[, button%]",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,647,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,648,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,650,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenPrint",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,651,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,652,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenprint",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,653,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,654,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,655,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENPRINT text$",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,656,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,657,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,659,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenImage",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,660,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 11 ; +if(!qbevent)break;evnt(21462,660,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,661,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenimage",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,662,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,663,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,664,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?,?,?]",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,665,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,666,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENIMAGE(column1, row1, column2, row2)",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,667,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,668,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,674,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Lock",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,675,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,676,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_lock",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,677,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,678,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,679,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{To}?]]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,680,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOCK #fileNumber%, record& or LOCK #fileNumber% firstRecord& TO lastRecord&",75)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,681,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,682,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,684,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Unlock",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,685,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,686,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_unlock",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,687,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,688,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,689,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{To}?]]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,690,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UNLOCK #fileNumber%, record& or UNLOCK #fileNumber% firstRecord& TO lastRecord&",79)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,691,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,692,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,694,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeTimer",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,695,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,696,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__freetimer",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,697,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,698,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREETIMER",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,699,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,700,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,702,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Timer",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,703,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,704,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_timer",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,705,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,707,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?)]{On|Off|Stop|Free}",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,708,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIMER[(number%)] {On|Off|Stop|Free}",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,709,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,710,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,712,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FullScreen",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,713,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,714,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fullscreen",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,715,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,716,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,717,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,718,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FULLSCREEN [{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,719,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,720,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,722,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AllowFullScreen",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,723,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,724,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__allowfullscreen",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,725,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,726,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,727,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,728,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALLOWFULLSCREEN [{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]",83)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,729,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,730,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,732,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FullScreen",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,733,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,734,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreen",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,735,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,736,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FULLSCREEN",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,737,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,738,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Smooth",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,741,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,742,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreensmooth",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,743,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,744,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SMOOTH",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,745,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,746,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,748,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("WindowHasFocus",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,749,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,750,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__hasfocus",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,751,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,752,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WINDOWHASFOCUS",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,753,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,754,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,756,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Clipboard",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,757,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,758,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,759,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboard",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,760,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,761,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,762,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,763,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARD$ = text$",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,764,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,765,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,767,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Clipboard",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,768,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,769,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,770,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboard",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,771,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,772,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARD$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,773,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,774,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,776,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClipboardImage",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,777,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 11 ; +if(!qbevent)break;evnt(21462,777,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,778,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboardimage",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,779,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,780,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARDIMAGE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,781,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,782,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,784,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClipboardImage",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,785,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 11 ; +if(!qbevent)break;evnt(21462,785,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,786,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboardimage",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,787,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,788,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,789,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,790,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARDIMAGE = existingImageHandle&",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,791,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,792,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,794,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Exit",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,795,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,796,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__exit",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,797,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,798,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_EXIT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,799,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,800,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,802,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenHost",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,803,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 8 ; +if(!qbevent)break;evnt(21462,803,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,804,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openhost",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,805,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,806,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,807,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,808,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_OPENHOST(",10),func_chr( 34 )),qbs_new_txt_len("TCP/IP:portNumber",17)),func_chr( 34 )),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,809,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,810,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,812,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Connected",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,813,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,814,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connected",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,815,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,816,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,817,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,818,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONNECTED(connectionHandle&)",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,819,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,820,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,822,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConnectionAddress",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,823,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,824,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,825,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connectionaddress",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,826,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,827,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,828,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,829,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONNECTIONADDRESS(connectionHandle&)",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,830,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,831,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,833,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenConnection",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,834,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,835,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openconnection",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,836,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,837,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,838,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,839,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OPENCONNECTION(hostHandle)",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,840,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,841,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,843,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenClient",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 8 ; +if(!qbevent)break;evnt(21462,844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,845,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openclient",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,846,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,847,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,848,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,849,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_OPENCLIENT(",12),func_chr( 34 )),qbs_new_txt_len("TCP/IP:port:address",19)),func_chr( 34 )),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,850,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,851,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,854,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("EnvironCount",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,855,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,856,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__environcount",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,857,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,858,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ENVIRONCOUNT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,859,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,860,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,862,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Environ",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,863,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,864,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,865,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_environ",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,866,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,867,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,868,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,869,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ENVIRON$(listIndex%) or ENVIRON$(systemID$)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,870,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,871,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,873,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Environ",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,874,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,875,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_environ",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,876,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,877,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,878,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ENVIRON stringExpression$",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,879,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,880,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,882,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ErrorLine",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,883,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,884,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errorline",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,885,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,886,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ERRORLINE",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,887,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,888,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,890,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InclErrorLine",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,891,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,892,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorline",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,893,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,894,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INCLERRORLINE",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,895,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,896,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,898,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ErrorMessage",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,899,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,900,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,901,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errormessage",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,902,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,903,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,904,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,905,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,906,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ERRORMESSAGE$ or _ERRORMESSAGE$(errorCode%)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,907,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,908,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,910,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Assert",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,911,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,912,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__assert",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,913,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,914,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,915,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,916,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASSERT condition[, errorMessage$]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,917,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,918,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,920,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Display",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,921,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,922,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__display",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,923,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,924,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,925,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,927,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AutoDisplay",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,928,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,929,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__autodisplay",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,930,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AUTODISPLAY",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,931,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,932,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,934,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Limit",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,935,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,936,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__limit",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,937,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,938,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,939,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LIMIT framesPerSecond!",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,940,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,941,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,943,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FPS",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,944,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,945,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fps",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,946,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,947,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,948,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Auto}][?]",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,949,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FPS fps! or _FPS _Auto",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,950,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,951,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,953,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Delay",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,954,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,955,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__delay",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,956,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,957,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,958,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DELAY seconds!",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,959,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,960,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,962,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Icon",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,963,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 10 ; +if(!qbevent)break;evnt(21462,963,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,964,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__icon",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,965,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,966,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,967,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?[,?]]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,968,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ICON [mainImageHandle&[, smallImageHandle&]]",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,969,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,970,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,972,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Title",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,973,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,974,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__title",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,975,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,976,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,977,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TITLE text$",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,978,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,979,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,981,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Echo",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,982,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,983,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__echo",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,984,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,985,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,986,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ECHO text$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,987,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,988,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,990,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AcceptFileDrop",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,991,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,992,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__filedrop",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,993,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,994,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,995,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{On|Off}]",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,996,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACCEPTFILEDROP [{On|Off}]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,997,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,998,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1000,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AcceptFileDrop",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1001,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1002,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__filedrop",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1003,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1004,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACCEPTFILEDROP",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1005,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1006,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1008,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FinishDrop",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1009,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1010,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__finishdrop",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1011,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FINISHDROP",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1012,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1013,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1015,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("TotalDroppedFiles",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1016,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1017,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__totaldroppedfiles",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1018,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1019,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TOTALDROPPEDFILES",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1020,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1021,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1023,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DroppedFile",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1024,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1025,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1026,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__droppedfile",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1027,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1028,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1029,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1030,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1031,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DROPPEDFILE$ or _DROPPEDFILE$(index&)",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1032,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1033,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1035,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Clear",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1036,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1037,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_clear",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1038,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,1039,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1040,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1041,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLEAR",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1042,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1043,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1047,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NewImage",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1048,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1049,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__newimage",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1050,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,1051,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1052,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1053,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1054,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NEWIMAGE(width&, height&, mode)",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1055,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1056,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1058,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LoadImage",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1059,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 6 ; +if(!qbevent)break;evnt(21462,1059,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1060,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadimage",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1061,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1062,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1063,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1064,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1065,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LOADIMAGE(fileName$[, mode])",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1066,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1067,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1069,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeImage",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1070,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1071,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freeimage",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1072,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1073,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1074,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1075,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEIMAGE handle&",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1076,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1077,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1079,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CopyImage",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1080,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1081,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__copyimage",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1082,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1083,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1084,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1085,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1086,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COPYIMAGE[(imageHandle&[, mode])]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1087,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1088,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1092,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Source",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1093,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1094,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__source",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1095,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1096,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1097,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1098,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SOURCE handle&",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1099,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1100,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1102,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dest",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1103,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1104,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dest",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1105,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1106,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1107,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1108,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEST imageHandle&",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1109,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1110,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1112,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Source",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1113,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1114,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__source",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1115,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1116,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SOURCE",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1117,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1118,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1120,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dest",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1121,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1122,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dest",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1123,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1124,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEST",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1125,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1126,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1128,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Display",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1129,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1130,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__display",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1131,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1132,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1133,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1134,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1138,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blend",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1139,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1140,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blend",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1141,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1142,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1143,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1144,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLEND [imageHandle&]",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1145,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1146,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1148,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DontBlend",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1149,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1150,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dontblend",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1151,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1153,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1154,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DONTBLEND [imageHandle&]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1155,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1156,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1158,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClearColor",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1159,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1160,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clearcolor",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1161,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1162,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1163,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_None}][?][,?]",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1164,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLEARCOLOR {color&|_None}[,dest_handle&]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1165,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1166,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1170,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PutImage",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1171,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1172,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__putimage",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1173,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 10 ; +if(!qbevent)break;evnt(21462,1174,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Step}](?,?)[-[{Step}](?,?)]][,[?][,[?][,[[{Step}](?,?)[-[{Step}](?,?)]][,{_Smooth}]]]]",89)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1176,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]][_SMOOTH]",130)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1177,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1178,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1180,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapTriangle",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1181,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1182,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__maptriangle",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1183,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 19 ; +if(!qbevent)break;evnt(21462,1184,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1185,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Clockwise|_AntiClockwise}][{_Seamless}](?,?)-(?,?)-(?,?)[,?]{To}(?,?[,?])-(?,?[,?])-(?,?[,?])[,[?][,{_Smooth|_SmoothShrunk|_SmoothStretched}]]",145)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1186,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]",163)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1187,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1188,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1190,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DepthBuffer",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1191,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1192,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__depthbuffer",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1193,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1194,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1195,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|Lock|_Clear}[,?]",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1196,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEPTHBUFFER {On|Off|Lock|_Clear}[,handle&]",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1197,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1198,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1200,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SetAlpha",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1201,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1202,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__setalpha",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1203,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,1204,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1205,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?[{To}?]][,?]]",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1206,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SETALPHA alpha& or _SETALPHA color1& TO color2&[, imageHandle&]",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1207,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1208,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1212,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Width",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1213,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1214,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__width",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1215,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1216,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1217,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1218,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1219,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WIDTH(imageHandle&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1220,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1221,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1223,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Height",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1224,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1225,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__height",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1226,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1227,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1228,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1229,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1230,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_HEIGHT(imageHandle&)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1231,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1232,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1234,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PixelSize",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1235,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1236,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__pixelsize",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1237,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1238,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1239,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1240,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1241,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PIXELSIZE[(imageHandle&)]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1242,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1243,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1245,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClearColor",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1246,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1247,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clearcolor",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1248,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1249,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1250,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1251,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1252,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLEARCOLOR[(sourceHandle&)]",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1253,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1254,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1256,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blend",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1257,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1258,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blend",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1259,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1260,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1261,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1262,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1263,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLEND[(imageHandle&)]",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1264,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1265,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1267,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DefaultColor",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1268,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1269,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__defaultcolor",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1270,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1271,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1272,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1273,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1274,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEFAULTCOLOR[(imageHandle&)]",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1275,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1276,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1278,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BackgroundColor",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1279,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1280,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__backgroundcolor",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1281,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1282,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1283,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1284,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1285,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BACKGROUNDCOLOR(imageHandle&)]",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1286,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1287,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1291,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PaletteColor",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1292,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1293,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__palettecolor",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1294,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1295,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1296,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1297,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1298,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PALETTECOLOR(attributeNumber%, imgHandle&)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1299,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1300,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1302,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PaletteColor",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1303,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1304,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__palettecolor",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1305,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,1306,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1307,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1308,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PALETTECOLOR attribute%, newColor&[, imgHandle&]",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1309,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1310,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1312,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CopyPalette",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1313,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1314,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__copypalette",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1315,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1316,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1317,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1318,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COPYPALETTE [sourceImageHandle&[, destinationImageHandle&]]",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1319,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1320,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1324,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LoadFont",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1325,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 1 ; +if(!qbevent)break;evnt(21462,1325,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1326,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadfont",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1327,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,1328,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1329,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1330,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1331,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_LOADFONT(fileName$, size%[, ",29),func_chr( 34 )),qbs_new_txt_len("{MONOSPACE|, BOLD|, ITALIC|, UNDERLINE|, UNICODE|, DONTBLEND}",61)),func_chr( 34 )),qbs_new_txt_len("])",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1332,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1333,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1335,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Font",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1336,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1337,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__font",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1338,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1339,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1340,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1341,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONT fontHandle&[, imageHandle&]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1342,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1343,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1345,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FontWidth",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1346,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1347,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontwidth",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1348,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1349,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1350,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1351,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1352,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONTWIDTH or _FONTWIDTH(fontHandle&)",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1353,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1354,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1356,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FontHeight",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1357,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1358,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontheight",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1359,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1360,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1361,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1362,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1363,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONTHEIGHT or _FONTHEIGHT(fontHandle&)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1364,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1365,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1367,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Font",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1368,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1369,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__font",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1370,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1371,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1373,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1374,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONT[(imageHandle&)]",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1375,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1376,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1378,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintString",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1379,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1380,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printstring",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1381,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,1382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1383,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,?]",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1384,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTSTRING(x, y), text$[, imageHandle&]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1385,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1386,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1388,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintWidth",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1389,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1390,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printwidth",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1392,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1393,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1394,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1395,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTWIDTH(textToPrint$[, destinationHandle&])",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1396,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1397,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1399,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeFont",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1400,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1401,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freefont",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1402,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1403,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1404,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1405,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEFONT fontHandle&",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1406,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1407,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1409,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintMode",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1410,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1411,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printmode",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1412,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1413,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1414,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_FillBackground|_KeepBackground|_OnlyBackground}[,?]",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1415,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTMODE {_FillBackground|_KeepBackground|_OnlyBackground}[, imageHandle&]",76)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1416,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1417,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1419,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintMode",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1420,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1421,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printmode",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1422,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1423,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1424,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1425,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1426,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTMODE[(imageHandle&)]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1427,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1428,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGBA",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1434,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1435,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,1436,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1437,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1438,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1439,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGBA(red&, green&, blue&, alpha&[, imageHandle&])",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1440,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1441,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1443,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGB",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1444,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1445,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1446,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,1447,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1448,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?[,?]",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1449,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1450,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGB(red&, green&, blue&[, imageHandle&])",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1451,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1452,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1454,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Red",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1456,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1457,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1458,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1459,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1460,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1461,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RED(rgbaColorIndex&[, imageHandle&])",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1462,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1463,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1465,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Green",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1466,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1467,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1468,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1469,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1470,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1471,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1472,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GREEN(rgbaColorIndex&[, imageHandle&])",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1473,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1474,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blue",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1477,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1478,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1479,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1480,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1481,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1482,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1483,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLUE(rgbaColorIndex&[, imageHandle&])",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1484,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1485,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1487,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Alpha",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1488,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1489,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1490,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1491,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1492,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1493,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1494,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALPHA(color~&[, imageHandle&])",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1495,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1496,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1498,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGBA32",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1499,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1500,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba32",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1501,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,1502,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1503,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1504,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGBA32(red&, green&, blue&, alpha&)",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1505,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1506,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1508,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGB32",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1509,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1510,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb32",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1511,"subs_functions.bas");}while(r); +do{ +*(int8*)(((char*)__UDT_ID)+(808))= -1 ; +if(!qbevent)break;evnt(21462,1512,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(811))= 1 ; +if(!qbevent)break;evnt(21462,1513,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,1514,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1515,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1516,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGB32(red&, green&, blue&[, alpha&]) or _RGB32(intensity&[, alpha&])",69)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1517,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1518,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1520,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Red32",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1521,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1522,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red32",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1523,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1524,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1525,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1526,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RED32(rgbaColor&)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1527,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1528,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1530,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Green32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1531,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1532,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green32",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1533,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1534,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1535,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1536,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GREEN32(rgbaColor&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1537,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1538,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1540,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blue32",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1541,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1542,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue32",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1543,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1544,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1545,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1546,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLUE32(rgbaColor&)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1547,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1548,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1550,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Alpha32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1551,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1552,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha32",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1553,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1554,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1555,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1556,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALPHA32(rgbaColor&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1557,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1558,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1561,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Draw",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1562,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1563,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_draw",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1564,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1565,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1566,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DRAW drawString$",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1567,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1568,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1570,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Play",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1571,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1571,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1572,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_play",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1573,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1574,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1575,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PLAY commandString$",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1576,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1577,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1579,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Play",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1580,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1580,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1581,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_play",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1582,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1583,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1584,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1585,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PLAY",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1586,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1587,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1590,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseShow",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1591,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1592,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseshow",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1593,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1594,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1595,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1596,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSESHOW [cursorShape$]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1597,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1598,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1600,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseHide",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1601,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1602,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousehide",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1603,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEHIDE",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1604,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1605,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1607,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseInput",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1608,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1609,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mouseinput",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1610,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1611,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1612,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1613,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1614,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEINPUT",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1615,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1616,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1618,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseX",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1619,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1620,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousex",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1621,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1622,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1623,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1624,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1625,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEX",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1626,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1627,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1629,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseY",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1630,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1631,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousey",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1632,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1633,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1634,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1635,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1636,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEY",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1637,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1638,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1640,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMovementX",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1641,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementx",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1643,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1644,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1645,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1646,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1647,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVEMENTX",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1648,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1649,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1651,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMovementY",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1652,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1653,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementy",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1654,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1655,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1656,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1657,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1658,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVEMENTY",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1659,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1660,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1662,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseButton",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1663,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1664,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousebutton",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1665,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1666,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1667,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1668,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1669,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEBUTTON(buttonNumber)",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1670,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1671,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1673,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseWheel",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1674,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1675,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousewheel",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1676,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1677,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1678,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1679,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1680,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEWHEEL",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1681,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1682,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1685,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MousePipeOpen",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1686,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1687,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousepipeopen",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1688,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1689,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEPIPEOPEN",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1690,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1691,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1693,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseInputPipe",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1694,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1695,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseinputpipe",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1696,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1697,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1698,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEINPUTPIPE(context)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1699,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1700,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1702,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MousePipeClose",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1703,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1704,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousepipeclose",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1705,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1707,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEPIPECLOSE(context)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1708,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1709,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1711,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FreeFile",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1712,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1713,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_freefile",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1714,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1715,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEFILE",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1716,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1717,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1719,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Name",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1720,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1721,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_name",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1722,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1723,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1724,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{As}?",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1725,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("NAME oldFileOrFolderName$ AS newFileOrFolderName$",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1726,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1727,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1729,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Kill",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1730,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1731,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_kill",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1732,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1733,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1734,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("KILL fileSpec$",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1735,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1736,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1738,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ChDir",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1739,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chdir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1741,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1742,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1743,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHDIR path$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1744,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1745,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1747,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MkDir",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1748,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1749,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_mkdir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1750,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1751,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1752,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKDIR pathSpec$",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1753,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1754,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1756,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RmDir",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1757,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1758,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_rmdir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1759,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1760,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1761,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RMDIR path$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1762,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1763,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1765,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Chain",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1766,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1767,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chain",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1768,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1769,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1770,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHAIN moduleName$",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1771,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1772,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1775,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1776,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1777,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell2",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1778,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1779,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1780,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_Hide}[{_DontWait}][?]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1781,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_Hide",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1782,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1783,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1784,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1786,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1787,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1788,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell3",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1789,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1790,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1791,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_DontWait}[{_Hide}][?]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1792,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_DontWait",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1793,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1794,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1795,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1797,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1798,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1799,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1800,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1801,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1802,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1803,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1805,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1806,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1808,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1809,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1810,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_shell",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1811,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1812,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1813,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1814,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL(commandToRun$)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1815,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1816,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1818,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShellHide",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1819,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1820,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shellhide",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1821,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1822,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1823,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1824,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHELLHIDE(commandToRun$)",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1825,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1826,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1828,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Command",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1829,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1830,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1831,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_command",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1832,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1833,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1834,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1835,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1836,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COMMAND$[(index%)]",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1837,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1838,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1840,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CommandCount",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1841,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1842,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__commandcount",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1843,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1844,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COMMANDCOUNT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1845,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1846,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1851,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRate",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1852,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1852,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1853,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrate",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1854,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1855,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRATE",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1856,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1857,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1859,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRaw",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1860,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1860,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1861,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndraw",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1862,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,1863,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1864,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1865,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAW leftSample[, rightSample][, pipeHandle&]",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1866,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1867,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1869,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRawDone",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1870,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1870,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1871,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndrawdone",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1872,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1873,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1874,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1875,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAWDONE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1876,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1877,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1879,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndOpenRaw",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1880,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1880,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1881,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopenraw",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1882,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1883,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDOPENRAW",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1884,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1885,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1887,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRawLen",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1888,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1888,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1889,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrawlen",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1890,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1891,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1892,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1893,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1894,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAWLEN",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1895,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1896,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1898,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLen",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1899,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1899,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1900,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndlen",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1901,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1902,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1903,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1904,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLEN(handle&)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1905,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1906,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1908,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPaused",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1909,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1909,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1910,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndpaused",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1911,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1912,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1913,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1914,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPAUSED(handle&)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1915,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1916,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1918,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlayFile",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1919,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 3 ; +if(!qbevent)break;evnt(21462,1919,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1920,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplayfile",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1921,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,1922,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1923,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1924,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYFILE fileName$[, , volume!]",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1925,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1926,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1928,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlayCopy",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1929,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1929,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1930,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplaycopy",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1931,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1932,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1933,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1934,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYCOPY handle&[, volume!]",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1935,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1936,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1938,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndStop",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1939,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1939,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1940,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndstop",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1941,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1942,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1943,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDSTOP handle&",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1944,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1945,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1947,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLoop",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1948,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1948,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1949,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndloop",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1950,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1951,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1952,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLOOP handle&",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1953,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1954,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1956,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLimit",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1957,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1957,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1958,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndlimit",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1959,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1960,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1961,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLIMIT handle&, numberOfSeconds!",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1962,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1963,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1965,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndOpen",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1966,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 3 ; +if(!qbevent)break;evnt(21462,1966,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1967,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopen",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1968,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1969,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1970,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1971,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1972,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDOPEN(fileName$)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1973,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1974,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1976,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndSetPos",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1977,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1977,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,1978,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndsetpos",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1979,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,1980,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1981,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDSETPOS handle&, position!",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1982,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1983,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1985,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndGetPos",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1986,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1986,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1987,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndgetpos",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1988,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1989,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1990,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,1991,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDGETPOS(handle&)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1992,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,1993,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,1995,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlaying",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1996,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,1996,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,1997,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndplaying",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,1998,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,1999,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2000,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2001,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYING(handle&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2002,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2003,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2005,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPause",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2006,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2006,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2007,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndpause",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2008,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2009,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2010,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPAUSE handle&",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2011,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2012,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2014,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndBal",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2015,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2015,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2016,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndbal",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2017,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,2018,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2019,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?][,[?][,[?][,[?]]]]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2020,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDBAL handle&[, x!][, y!][, z!][, channel&]]",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2021,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2022,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2025,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndVol",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2026,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2026,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2027,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndvol",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2028,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2029,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2030,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDVOL handle&, volume!",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2031,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2032,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2034,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlay",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2035,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2035,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2036,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplay",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2037,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2038,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2039,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAY handle&",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2040,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2041,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2043,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndCopy",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2044,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2044,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2045,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndcopy",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2046,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2047,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2048,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2049,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDCOPY(handle&)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2050,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2051,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2053,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndClose",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2054,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2054,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2055,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndclose",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2056,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2057,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2058,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDCLOSE handle&",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2059,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2060,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2062,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Input",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2063,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2064,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2065,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_input",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2066,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2067,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2068,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2069,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2070,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INPUT$(numberOfBytes%[, fileOrPortNumber])",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2071,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2072,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2074,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Seek",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2075,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2076,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_seek",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2077,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2078,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2079,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?,?",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2080,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SEEK filenumber&, position",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2081,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2082,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2084,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Seek",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2085,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2086,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_seek",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2087,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2088,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2089,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2090,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SEEK(filenumber&)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2091,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2092,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2094,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Loc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2095,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2096,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_loc",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2097,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2098,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2099,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2100,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOC(fileOrPortNumber%)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2101,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2102,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2104,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("EOF",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2105,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2106,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_eof",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2107,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2108,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2109,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2110,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("EOF(fileNumber&)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2111,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2112,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2114,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOF",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2115,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2116,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lof",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2117,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2118,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2119,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2120,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOF(fileNumber&)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2121,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2122,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2125,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Screen",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2126,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2127,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screen",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2128,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2129,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2130,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2131,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2132,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SCREEN(x, y[, colorflag%])",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2133,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2134,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2136,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PMap",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2137,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2138,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pmap",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2139,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2140,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2141,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2142,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PMAP(coordinate, function_number%)",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2143,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2144,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2147,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Point",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2148,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2149,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_point",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2150,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2151,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2153,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2154,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POINT(x, y) or POINT({0|1|2|3})",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2155,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2156,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2159,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Tab",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2160,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2161,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_tab",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2162,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2163,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2164,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2165,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TAB(column%)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2166,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2167,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2169,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Spc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2170,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2171,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_spc",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2172,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2173,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2174,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2175,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SPC(count%)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2176,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2177,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2180,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Wait",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2181,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2182,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_wait",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2183,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2184,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2185,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2186,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WAIT port%, andMask%[, xorMask%]",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2187,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2188,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2190,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Inp",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2191,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2192,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_inp",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2193,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2194,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2195,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2196,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INP(address)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2197,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2198,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2200,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Pos",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2201,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2202,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pos",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2203,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2204,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2205,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2206,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POS(0)",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2207,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2208,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2210,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sgn",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2211,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2212,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sgn",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2213,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2214,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2215,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2216,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SGN(value)",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2217,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2218,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2220,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LBound",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2221,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2222,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2223,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2224,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2225,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2226,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LBOUND(arrayName[, dimension%])",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2227,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2228,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2230,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UBound",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2231,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2232,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2233,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2234,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2235,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2236,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UBOUND(arrayName[, dimension%])",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2237,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2238,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2240,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Bin",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2241,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2242,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2243,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2244,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2245,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2246,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BIN$(number)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2247,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2248,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2250,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Oct",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2251,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2252,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2253,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2254,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2255,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2256,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OCT$(number)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2257,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2258,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2260,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Hex",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2261,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2262,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2263,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2264,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2265,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2266,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("HEX$(decimalNumber)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2267,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2268,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2270,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sleep",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2271,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2272,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sleep",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2273,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2274,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2275,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2276,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SLEEP seconds%",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2277,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2278,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2280,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Exp",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2281,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2282,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2283,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2284,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21462,2285,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("EXP(numericExpression)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2286,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2287,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2289,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Fix",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2290,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2291,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2292,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2293,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21462,2294,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("FIX(expression)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2295,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2296,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2298,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Int",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2299,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2300,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2301,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2302,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21462,2303,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INT(expression)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2304,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2305,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2307,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CDbl",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2308,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2309,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2310,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2311,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2312,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CDBL(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2313,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2314,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2316,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CSng",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2317,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2318,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2319,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2320,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2321,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CSNG(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2322,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2323,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2325,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Round",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2326,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2327,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2328,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2329,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2330,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROUND(number)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2331,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2332,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2334,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CInt",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2335,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2336,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2337,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2338,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2339,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CINT(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2340,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2341,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2343,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLng",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2344,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2345,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2346,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2347,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2348,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLNG(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2349,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2350,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2354,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Time",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2355,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2356,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2357,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_time",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2358,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2359,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2360,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2361,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIME$ = timeToSet$",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2362,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2363,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2365,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Time",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2366,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2367,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2368,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_time",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2369,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2370,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIME$",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2371,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2372,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2376,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Date",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2377,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2378,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2379,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_date",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2380,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2381,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2383,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DATE$ = dateToSet$",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2384,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2385,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2387,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Date",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2388,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2389,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2390,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_date",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2391,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2392,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DATE$",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2393,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2394,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2396,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CsrLin",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2397,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2398,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csrlin",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2399,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2400,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CSRLIN",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2401,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2402,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2405,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Paint",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2406,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2407,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_paint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2408,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,2409,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2410,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,[?][,[?][,?]]]",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2411,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PAINT [STEP] (x!, y!)[,[fillColor&] [,[bordercolor&] [,pattern$]]]",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2413,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2414,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2416,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Circle",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2417,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2418,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_circle",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2419,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 7 ; +if(!qbevent)break;evnt(21462,2420,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2421,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[?][,[?][,[?][,?]]]]",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2422,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CIRCLE [STEP] (x!, y!), radius![, [color&] [, [start!] [, [end!] [, aspect!]]]]",79)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2424,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2425,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2427,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BLoad",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2428,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2429,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bload",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2430,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2431,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2433,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BLOAD fileName$, VARPTR(imageArray%(index))",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2434,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2435,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2437,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BSave",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2438,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2439,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bsave",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2440,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2441,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2442,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BSAVE saveFile$, VARPTR(array(index)), fileSize&",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2443,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2444,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2447,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2448,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2449,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2450,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21462,2451,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2452,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)-[{Step}](?,?),?[,?]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2453,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Step",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2454,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]",82)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2455,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2456,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2458,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2459,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2460,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2461,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21462,2462,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2463,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)-[{Step}](?,?),?[,?]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2464,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2465,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]",82)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2466,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2467,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2470,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2471,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2472,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2473,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,2474,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2475,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]",57)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Step",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2479,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]",92)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2480,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2481,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2482,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2483,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2484,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2485,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,2486,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2487,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]",57)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2488,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2491,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]",92)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2492,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2493,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2495,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2496,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2497,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_get",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2498,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2499,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2500,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2502,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET #fileNumber&, [position][, targetVariable|targetArray()}]",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2503,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2504,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2506,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2507,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2508,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_put",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2509,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2510,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2511,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2513,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT #filenumber&, [position][, {holdingvariable|holdingarray()}]",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2514,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2515,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2517,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2518,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2519,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2520,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21462,2521,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2522,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[{For Random|For Binary|For Input|For Output|For Append}][{Access Read Write|Access Read|Access Write}][{Shared|Lock Read Write|Lock Read|Lock Write}]{As}[#]?[{Len =}?]",169)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2523,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OPEN fileName$ [FOR mode] [ACCESS|LOCK|SHARED [{READ|WRITE}] AS [#]fileNumber& [LEN = recordLength]",99)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2524,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2525,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2527,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2528,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2529,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open_gwbasic",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2530,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,2531,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2532,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[#]?,?[,?]",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2533,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OPEN modeLetter$, [#]fileNumber&, fileName$[, recordLength]",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2534,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2535,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2537,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Val",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2538,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2539,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_val",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2540,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2541,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2542,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2543,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VAL(string_value$)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2544,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2545,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2547,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKSMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2548,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2549,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2550,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mksmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2551,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2552,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2553,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2554,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKSMBF$(value!)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2555,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2556,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2557,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKDMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2558,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2559,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2560,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mkdmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2561,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2562,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2563,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2564,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKDMBF$(value#)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2565,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2566,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2568,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKI",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2569,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2570,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2571,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2572,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2573,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2574,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2575,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKI$(integerVariableOrLiteral%)",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2576,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2577,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2578,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2579,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2580,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2581,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2582,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2583,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2584,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2585,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKL$(longVariableOrLiteral&)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2586,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2587,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2588,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKS",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2589,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2590,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2591,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2592,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2593,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2594,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2595,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKS$(singlePrecisionVariableOrLiteral!)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2596,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2597,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2598,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKD",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2599,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2600,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2601,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2602,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2603,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2604,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2605,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKD$(doublePrecisionVariableOrLiteral#)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2606,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2607,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2608,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MK",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2609,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2610,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2611,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2612,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2613,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2614,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2615,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MK$(numericalType, numericalValue)",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2616,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2617,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2619,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVSMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2620,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2621,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvsmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2622,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2623,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2624,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2625,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVSMBF(stringData$)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2626,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2627,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2628,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVDMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2629,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2630,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvdmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2631,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2632,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2633,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2634,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVDMBF(stringData$)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2635,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2636,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2638,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVI",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2639,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2640,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2641,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2643,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2644,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVI(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2645,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2646,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2647,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2648,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2649,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2650,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2651,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2652,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2653,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVL(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2654,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2655,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2656,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVS",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2657,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2658,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2659,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2660,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2661,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2662,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVS(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2663,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2664,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2665,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVD",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2666,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2667,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2668,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2669,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2670,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2671,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVD(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2672,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2673,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2674,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CV",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2675,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2676,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2677,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2678,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2679,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21462,2680,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CV(numericalType, MKstringValue$)",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2681,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2682,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2684,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("String",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2685,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2686,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2687,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_string",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2688,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2689,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2690,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2691,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRING$(count&, {character$ | ASCIIcode%})",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2692,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2693,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2695,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Space",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2696,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2697,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2698,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_space",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2699,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2700,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2701,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2702,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SPACE$(count&)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2703,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2704,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("InStr",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2707,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2708,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_instr",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2709,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2710,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2711,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2712,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2713,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INSTR([start%,] baseString$, searchString$)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2714,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2715,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2717,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InStrRev",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2718,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2719,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__instrrev",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2720,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2721,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2722,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2723,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2724,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INSTRREV([start%,] baseString$, searchString$)",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2725,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2726,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2728,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Mid",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2729,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2730,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2731,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mid",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2732,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,2733,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2734,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2735,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,[?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2736,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MID$(stringValue$, startPosition%[, bytes%])",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2737,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2738,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SAdd",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2741,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2742,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2743,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2744,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2745,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2746,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SADD(stringVariable$)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2747,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2748,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2750,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Cls",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2751,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2752,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_cls",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2753,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2754,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2755,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2756,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLS [method%] [, bgColor&]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2757,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2758,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2760,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sqr",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2761,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2762,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sqr",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2763,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2764,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2765,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2766,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SQR(value)",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2767,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2768,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2770,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Chr",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2771,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2772,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2773,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_chr",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2774,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2775,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2776,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2777,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHR$(code%)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2778,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2779,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2781,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarPtr",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2782,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2783,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2784,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2785,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2786,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2787,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2788,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARPTR(variable_name[(reference_index%)])",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2789,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2790,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2792,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarPtr",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2793,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2794,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2795,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2796,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2797,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2798,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARPTR(variable_name[(reference_index%)])",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2799,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2800,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2802,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Offset",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2803,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2804,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2805,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2806,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2807,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2808,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OFFSET(variable)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2809,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2810,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2812,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarSeg",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2813,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2814,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2815,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2816,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2817,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2818,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARSEG(variable_name[(start_index)])",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2819,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2820,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2822,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Poke",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2823,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2824,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_poke",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2825,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2826,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2827,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POKE segment_offset, offset_value",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2828,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2829,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2831,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Peek",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2832,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2833,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_peek",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2834,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2835,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2836,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2837,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PEEK(segment_offset)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2838,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2839,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2841,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Def",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2842,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2843,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_defseg",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2845,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2846,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{Seg}[=?]",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2847,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Seg",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2848,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DEF SEG [=][{segment|VARSEG(variable}]",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2849,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2850,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2852,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sin",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2853,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2854,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sin",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2855,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2856,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2857,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2858,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SIN(radian_angle!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2859,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2860,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2862,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Cos",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2863,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2864,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cos",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2865,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2866,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2867,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2868,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COS(radian_angle!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2869,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2870,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2872,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Tan",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2873,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2874,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tan",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2875,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2876,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2877,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2878,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TAN(radian_angle!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2879,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2880,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2882,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Atn",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2883,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2884,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2885,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2886,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2887,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2888,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ATN(tangent!)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2889,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2890,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2892,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Log",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2893,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2894,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_log",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2895,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2896,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2897,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2898,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOG(value)",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2899,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2900,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2902,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Abs",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2903,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2904,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_abs",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2905,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2906,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2907,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2908,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ABS(numericalValue)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2909,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2910,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2912,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Erl",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2913,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2914,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_erl",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2915,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,2916,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2917,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2918,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2919,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2921,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Err",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2922,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2923,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_err",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2924,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,2925,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2926,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERR",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2927,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2928,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2930,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2931,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2932,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2933,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2934,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2935,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERROR codeNumber%",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2936,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2937,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2939,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Line",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2940,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2941,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_line",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2942,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 7 ; +if(!qbevent)break;evnt(21462,2943,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2944,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Step}](?,?)]-[{Step}](?,?)[,[?][,[{B|BF}][,?]]]",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2945,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]",79)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2946,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2947,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2949,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sound",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2950,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2950,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2951,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sound",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2952,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,2953,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2954,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SOUND frequency, duration",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2955,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2956,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2958,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Beep",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2959,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21462,2959,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2960,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_beep",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2961,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,2962,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BEEP",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2963,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2964,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2966,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Timer",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2967,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2968,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_timer",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2969,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2970,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2971,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2972,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2973,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIMER[(accuracy!)]",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2974,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2975,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2977,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Rnd",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2978,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,2979,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rnd",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2980,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2981,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2982,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,2983,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2984,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RND[(behavior)]",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2985,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2986,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2988,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Randomize",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2989,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,2990,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_randomize",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2991,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,2992,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2993,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Using}]?]",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2994,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RANDOMIZE [USING] {seednumber|TIMER}",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2995,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,2996,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,2998,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Out",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,2999,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3000,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_out",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3001,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3002,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3003,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OUT registerAddress%, value%",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3004,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3005,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3007,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PCopy",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3008,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3009,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pcopy",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3010,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3011,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3012,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PCOPY sourcePage%, destinationPage%",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3013,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3014,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3016,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("View",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3017,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3018,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3019,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21462,3020,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3021,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Screen}](?,?)-(?,?)[,[?][,?]]]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3022,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3023,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VIEW [SCREEN] (column1, row1)-(column2, row2)[, color][, border]",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3024,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3025,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3027,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("View",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3028,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3029,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view_print",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3030,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3031,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3032,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{Print}[?{To}?]",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3033,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3034,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VIEW PRINT [topRow% TO bottomRow%]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3035,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3036,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3038,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Window",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3039,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3040,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_window",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3041,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21462,3042,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3043,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Screen}](?,?)-(?,?)]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3044,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WINDOW [[SCREEN] (x1!, y1!) - (x2!, y2!)]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3045,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3046,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3048,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Locate",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3049,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3050,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_locate",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3051,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,3052,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3053,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,?]]]]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3054,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOCATE [row%][, column%] [, cursor%][, cursorStart%, cursorStop%]",65)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3055,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3056,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3058,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Color",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3059,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3060,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_color",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3061,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,3062,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3063,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3064,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COLOR [foreground&][, background&]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3065,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3066,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3068,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Palette",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3069,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3070,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_palette",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3071,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3072,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3073,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3074,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PALETTE [attribute%, red% + (green% * 256) + (blue% * 65536)] or PALETTE [existingAttribute%, newAttribute%]",108)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3075,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3076,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3078,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Width",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3079,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3080,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbsub_width",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3081,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,3082,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3083,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{#|LPrint}][?][,[?][,[?][,[?]]]]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3084,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WIDTH [columns%][, rows%] or WIDTH {file_number|device}, columnwidth%",69)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3086,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3087,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3090,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Screen",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3091,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3092,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_screen",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3093,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21462,3094,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3095,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,[{_ManualDisplay}?]]]]]",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3099,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SCREEN {mode%|imagehandle&} [, , active_page, visual_page]",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3100,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3101,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3103,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PSet",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3104,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3105,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pset",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3106,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,3107,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3108,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,?]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3109,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PSET [STEP](column%, row%)[, colorAttribute]",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3110,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3111,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3113,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PReset",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3114,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3115,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_preset",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3116,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21462,3117,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3118,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,?]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3119,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PRESET [STEP](column%, row%)[, colorAttribute]",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3120,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3121,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3123,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3124,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3125,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_asc",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3126,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3127,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3128,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3129,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ASC(text$[, position%])",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3130,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3131,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3133,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Len",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3134,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3135,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3136,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3137,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3138,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3139,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LEN(literalTextOrVariable$)",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3140,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3141,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3143,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("InKey",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3144,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3145,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3146,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_inkey",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3147,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3148,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INKEY$",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3149,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3150,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Str",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3153,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3154,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3155,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_str",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3156,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3157,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3158,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3159,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STR$(number)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3160,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3161,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3163,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UCase",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3164,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3165,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3166,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ucase",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3167,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3168,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3169,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3170,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UCASE$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3171,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3172,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3174,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LCase",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3176,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3177,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lcase",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3178,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3179,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3180,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3181,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LCASE$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3182,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3183,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3185,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Left",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3186,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3187,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3188,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_left",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3189,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3190,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3191,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3192,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LEFT$(stringValue$, numberOfCharacters%)",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3193,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3194,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3196,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Right",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3197,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3198,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3199,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_right",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3200,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3201,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3202,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3203,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RIGHT$(stringValue$, numberOfCharacters%)",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3204,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3205,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3207,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LTrim",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3208,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3209,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3210,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ltrim",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3211,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3212,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3213,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3214,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LTRIM$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3215,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3216,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3218,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RTrim",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3219,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3220,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3221,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_rtrim",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3222,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3223,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3224,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3225,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RTRIM$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3226,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3227,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3229,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Trim",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3230,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3231,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3232,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs__trim",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3233,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3234,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3235,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3236,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TRIM$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3237,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3238,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3240,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3241,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3242,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_print",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3243,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3244,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3245,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PRINT [expression] [{;|,] [expression...]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3246,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3247,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3249,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPrint",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3250,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 9 ; +if(!qbevent)break;evnt(21462,3250,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3251,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lprint",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3252,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3253,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3254,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LPRINT [expression] [{;|,}]",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3255,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3256,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3258,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPos",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3259,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 9 ; +if(!qbevent)break;evnt(21462,3259,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3260,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lpos",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3261,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3262,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3263,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3264,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LPOS(index%)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3265,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3266,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3269,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CWD",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3270,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3271,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3272,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cwd",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3273,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3274,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CWD$",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3275,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3276,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3279,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StartDir",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3280,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3281,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3282,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__startdir",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3283,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3284,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STARTDIR$",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3285,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3286,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3289,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dir",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3290,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3291,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3292,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3293,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3294,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3295,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3296,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_DIR$(",6),func_chr( 34 )),qbs_new_txt_len("folderspecification",19)),func_chr( 34 )),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3297,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3298,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3301,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InclErrorFile",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3302,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3303,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3304,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorfile",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3305,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3306,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INCLERRORFILE$",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3307,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3308,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3310,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyClear",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3311,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3312,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3313,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3314,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3315,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__keyclear",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3316,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYCLEAR buffer&",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3317,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3318,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3320,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("D2R",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3321,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3322,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2rad",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3323,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3324,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3325,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3326,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_D2R(angleInDegrees!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3327,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3328,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3330,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("D2G",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3331,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3332,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2grad",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3333,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3334,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3335,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3336,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_D2G(angleInDegrees!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3337,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3338,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3340,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("R2D",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3341,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3342,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2deg",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3343,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3344,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3345,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3346,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_R2D(angleInRadians!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3347,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3348,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3350,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("R2G",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3351,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3352,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2grad",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3353,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3354,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3355,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3356,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_R2G(angleInRadians!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3357,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3358,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3360,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("G2D",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3361,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3362,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2deg",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3363,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3364,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3365,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3366,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_G2D(gradient!)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3367,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3368,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3370,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("G2R",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3371,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2rad",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3373,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3374,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3375,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3376,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_G2R(gradient!)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3377,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3378,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3380,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Atan2",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3381,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan2",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3383,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3384,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3385,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3386,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ATAN2(y, x)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3387,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3388,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3390,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Hypot",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3392,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("hypot",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3393,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3394,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3395,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3396,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_HYPOT(x, y)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3397,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3398,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3400,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Asin",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3401,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3402,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asin",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3403,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3404,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3405,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3406,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASIN(sine_value!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3407,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3408,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3410,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Acos",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3411,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3412,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acos",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3413,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3414,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3415,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3416,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACOS(cosine_value!)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3417,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3418,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3420,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sinh",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3421,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3422,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sinh",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3423,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3424,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3425,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3426,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SINH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3427,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3428,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3430,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Cosh",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3431,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cosh",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3434,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3435,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3436,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COSH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3437,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3438,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3440,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Tanh",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3441,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3442,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tanh",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3443,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3444,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3445,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3446,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TANH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3447,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3448,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3450,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Asinh",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3451,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3452,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asinh",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3453,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3454,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3455,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3456,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASINH(value)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3457,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3458,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3460,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Acosh",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3461,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3462,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acosh",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3463,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3464,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3465,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3466,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACOSH(value)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3467,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3468,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3470,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Atanh",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3471,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3472,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atanh",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3473,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3474,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3475,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3476,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ATANH(value)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3477,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3478,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3480,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Ceil",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3481,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3482,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("ceil",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3483,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3484,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3485,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3486,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CEIL(expression)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3487,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3488,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3490,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Pi",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3491,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3492,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pi",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3493,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3494,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3495,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3496,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3497,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PI[(multiplier)]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3498,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3499,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3501,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DesktopHeight",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3502,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3503,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenheight",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3504,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3505,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3506,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DESKTOPHEIGHT",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3507,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3508,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3510,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DesktopWidth",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3511,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3512,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenwidth",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3513,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3514,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3515,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DESKTOPWIDTH",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3516,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3517,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3519,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenIcon",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3520,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3521,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_screenicon",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3522,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENICON",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3523,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3524,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3526,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenExists",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3527,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3528,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_windowexists",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3529,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENEXISTS",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3530,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3531,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3533,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ControlChr",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3534,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3535,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__controlchr",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3536,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3537,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3538,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONTROLCHR",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3539,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3540,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3542,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StriCmp",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3543,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3544,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_nc_compare",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3545,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3546,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3547,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3548,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STRICMP(string1$, string2$)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3549,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3550,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3552,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StrCmp",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3553,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3554,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_compare",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3555,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3556,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3557,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3558,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STRCMP(string1$, string2$)",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3559,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3560,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3562,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arcsec",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3563,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3564,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arcsec",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3565,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3566,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3567,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3568,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCSEC(value)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3569,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3570,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3572,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arccsc",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3573,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3574,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccsc",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3575,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3576,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3577,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3578,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCCSC(value)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3579,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3580,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3582,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arccot",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3583,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3584,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccot",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3585,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3586,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3587,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3588,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCCOT(value)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3589,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3590,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3592,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sech",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3593,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3594,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sech",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3595,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3596,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3597,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3598,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SECH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3599,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3600,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3602,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Csch",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3603,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3604,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csch",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3605,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3606,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3607,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3608,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CSCH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3609,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3610,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3612,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Coth",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3613,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3614,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_coth",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3615,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3616,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3617,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3618,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COTH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3619,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3620,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3622,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sec",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3623,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3624,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sec",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3625,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3626,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3627,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3628,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SEC(value)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3629,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3630,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3632,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Csc",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3633,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3634,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csc",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3635,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3636,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3637,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3638,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CSC(value)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3639,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3640,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Cot",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3643,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3644,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cot",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3645,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3646,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3647,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3648,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COT(value)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3649,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3650,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3652,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenIcon",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3653,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3654,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenicon",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3655,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3656,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3657,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENICON",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3658,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3659,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3661,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AutoDisplay",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3662,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3663,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__autodisplay",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3664,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3665,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3666,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AUTODISPLAY",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3667,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3668,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3670,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SHR",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3671,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3672,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shr",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3673,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3674,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3675,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3676,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHR(numericalVariable, numericalValue)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3677,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3678,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3680,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SHL",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3681,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3682,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shl",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3683,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3684,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3685,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3686,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHL(numericalVariable, numericalValue)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3687,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3688,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3690,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Deflate",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3691,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 13 ; +if(!qbevent)break;evnt(21462,3692,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3693,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3694,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deflate",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3695,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3696,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3697,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3698,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEFLATE$(stringToCompress$)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3699,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3700,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3702,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Inflate",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3703,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 13 ; +if(!qbevent)break;evnt(21462,3704,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3705,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inflate",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3707,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3708,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3709,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3710,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3711,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INFLATE$(stringToDecompress$[, originalSize&])",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3712,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3713,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3715,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CInp",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3716,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3717,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cinp",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3718,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3719,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3720,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3721,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3722,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CINP",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3723,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3724,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3726,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CapsLock",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3727,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3728,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__capslock",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3729,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3730,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3731,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CAPSLOCK",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3732,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3733,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3735,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScrollLock",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3736,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3737,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scrolllock",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3738,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3739,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3740,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCROLLLOCK",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3741,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3742,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3744,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NumLock",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3745,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3746,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__numlock",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3747,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3748,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3749,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NUMLOCK",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3750,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3751,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3753,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CapsLock",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3754,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3755,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__capslock",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3756,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3757,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3758,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3759,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CAPSLOCK {On|Off|_Toggle}",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3760,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3761,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3763,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Scrolllock",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3764,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3765,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__scrolllock",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3766,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3767,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3768,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3769,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCROLLLOCK {On|Off|_Toggle}",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3770,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3771,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3773,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Numlock",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3774,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3775,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__numlock",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3776,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3777,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21462,3778,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3779,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NUMLOCK {On|Off|_Toggle}",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3780,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3781,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3783,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleFont",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3784,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3785,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consolefont",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3786,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3787,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3788,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLEFONT fontFile$",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3789,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3790,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3792,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleCursor",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3793,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21462,3794,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console_cursor",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3795,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3796,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3797,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Show|_Hide}][,?]",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3798,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLECURSOR {_Show|_Hide}[, size%]",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3799,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3800,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3802,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleInput",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3803,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3804,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__getconsoleinput",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3805,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21462,3806,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3807,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLEINPUT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3808,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3809,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3811,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ReadBit",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3812,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3813,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__readbit",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3814,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3815,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3816,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3817,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_READBIT(numericalVariable, numericalValue)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3818,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3819,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3821,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SetBit",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3822,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3823,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__setbit",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3824,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3825,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3826,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3827,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SETBIT(numericalVariable, numericalValue)",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3828,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3829,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3831,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResetBit",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3832,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3833,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resetbit",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3834,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3835,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3836,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3837,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESETBIT(numericalVariable, numericalValue)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3838,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3839,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21462,3841,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ToggleBit",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3842,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21462,3843,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__togglebit",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21462,3845,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3846,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21462,3847,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TOGGLEBIT(numericalVariable, numericalValue)",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462,3848,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21462,3849,"subs_functions.bas");}while(r); +do{ +*__LONG_REGINTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(21463);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free36.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){ +void SUB_REMOVEELEMENTS(qbs*_SUB_REMOVEELEMENTS_STRING_A,int32*_SUB_REMOVEELEMENTS_LONG_FIRST,int32*_SUB_REMOVEELEMENTS_LONG_LAST,int32*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -92157,390 +98058,71 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_27123:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||new_error){ -if(qbevent){evnt(20680);if(r)goto S_27123;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20680);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S); +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20682);}while(r); +if(!qbevent)break;evnt(21490);}while(r); do{ -*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len; +*_SUB_REMOVEELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_REMOVEELEMENTS_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20683);}while(r); -S_27128:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ -if(qbevent){evnt(20684);if(r)goto S_27128;} -S_27129:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20685);if(r)goto S_27129;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ; -if(!qbevent)break;evnt(20685);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20685);}while(r); +if(!qbevent)break;evnt(21495);}while(r); +S_28527:; +fornext_value3062= 1 ; +fornext_finalvalue3062=*_SUB_REMOVEELEMENTS_LONG_N; +fornext_step3062= 1 ; +if (fornext_step3062<0) fornext_step_negative3062=1; else fornext_step_negative3062=0; +if (new_error) goto fornext_error3062; +goto fornext_entrylabel3062; +while(1){ +fornext_value3062=fornext_step3062+(*_SUB_REMOVEELEMENTS_LONG_I); +fornext_entrylabel3062: +*_SUB_REMOVEELEMENTS_LONG_I=fornext_value3062; +if (fornext_step_negative3062){ +if (fornext_value3062fornext_finalvalue3062) break; } -S_27133:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ -if(qbevent){evnt(20686);if(r)goto S_27133;} +fornext_error3062:; +if(qbevent){evnt(21496);if(r)goto S_28527;} +S_28528:; +if (((-(*_SUB_REMOVEELEMENTS_LONG_I<*_SUB_REMOVEELEMENTS_LONG_FIRST))|(-(*_SUB_REMOVEELEMENTS_LONG_I>*_SUB_REMOVEELEMENTS_LONG_LAST)))||new_error){ +if(qbevent){evnt(21497);if(r)goto S_28528;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20686);}while(r); -} -S_27136:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||new_error){ -if(qbevent){evnt(20687);if(r)goto S_27136;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ; -if(!qbevent)break;evnt(20687);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20687);}while(r); -} -S_27140:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ -if(qbevent){evnt(20688);if(r)goto S_27140;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20688);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20688);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20689);}while(r); -} -S_27146:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ -if(qbevent){evnt(20691);if(r)goto S_27146;} -S_27147:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20692);if(r)goto S_27147;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ; -if(!qbevent)break;evnt(20692);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20692);}while(r); -} -S_27151:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ -if(qbevent){evnt(20693);if(r)goto S_27151;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20693);}while(r); -} -S_27154:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ -if(qbevent){evnt(20694);if(r)goto S_27154;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ; -if(!qbevent)break;evnt(20694);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20694);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20695);}while(r); -} -S_27160:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||new_error){ -if(qbevent){evnt(20697);if(r)goto S_27160;} -S_27161:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20698);if(r)goto S_27161;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(20698);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20698);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20699);}while(r); -} -S_27167:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||new_error){ -if(qbevent){evnt(20701);if(r)goto S_27167;} -S_27168:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20702);if(r)goto S_27168;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(20702);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20702);}while(r); -} -S_27172:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ -if(qbevent){evnt(20703);if(r)goto S_27172;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20703);}while(r); -} -S_27175:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||new_error){ -if(qbevent){evnt(20704);if(r)goto S_27175;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(20704);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20704);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20705);}while(r); -} -S_27181:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||new_error){ -if(qbevent){evnt(20707);if(r)goto S_27181;} -S_27182:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20708);if(r)goto S_27182;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING; -if(!qbevent)break;evnt(20708);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20708);}while(r); -} -S_27186:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ -if(qbevent){evnt(20709);if(r)goto S_27186;} -S_27187:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||new_error){ -if(qbevent){evnt(20710);if(r)goto S_27187;} -S_27188:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||new_error){ -if(qbevent){evnt(20711);if(r)goto S_27188;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20711);}while(r); -} -S_27191:; -if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||new_error){ -if(qbevent){evnt(20712);if(r)goto S_27191;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20712);}while(r); -} -} -do{ -*__LONG_SYMBOLTYPE_SIZE=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP),FUNC_GETELEMENT(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20714);}while(r); +if(!qbevent)break;evnt(21498);}while(r); +}else{ +S_28531:; +if ((*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING)||new_error){ +if(qbevent){evnt(21500);if(r)goto S_28531;} do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(20715);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20716);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20718);}while(r); -} -S_27201:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ -if(qbevent){evnt(20720);if(r)goto S_27201;} -S_27202:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20721);if(r)goto S_27202;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(20721);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20721);}while(r); -} -S_27206:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ -if(qbevent){evnt(20722);if(r)goto S_27206;} -S_27207:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ -if(qbevent){evnt(20723);if(r)goto S_27207;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20723);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20724);}while(r); -S_27211:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 56 ))||new_error){ -if(qbevent){evnt(20725);if(r)goto S_27211;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20725);}while(r); +if(!qbevent)break;evnt(21500);}while(r); } -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(20726);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20726);}while(r); } -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20728);}while(r); +fornext_continue_3061:; } -S_27219:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||new_error){ -if(qbevent){evnt(20730);if(r)goto S_27219;} -S_27220:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(20731);if(r)goto S_27220;} +fornext_exit_3061:; +S_28536:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_REMOVEELEMENTS_STRING_A2, 1 ),__STRING1_SP)))||new_error){ +if(qbevent){evnt(21503);if(r)goto S_28536;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20731);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 ); +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_right(_SUB_REMOVEELEMENTS_STRING_A2,_SUB_REMOVEELEMENTS_STRING_A2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20732);}while(r); -S_27224:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ -if(qbevent){evnt(20733);if(r)goto S_27224;} -S_27225:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ -if(qbevent){evnt(20734);if(r)goto S_27225;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(20734);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20734);}while(r); -} -S_27229:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ -if(qbevent){evnt(20735);if(r)goto S_27229;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20735);}while(r); -} -S_27232:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||new_error){ -if(qbevent){evnt(20736);if(r)goto S_27232;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(20736);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20736);}while(r); -} -S_27236:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ -if(qbevent){evnt(20737);if(r)goto S_27236;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20737);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20737);}while(r); +if(!qbevent)break;evnt(21503);}while(r); } do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20738);}while(r); -} -S_27242:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ -if(qbevent){evnt(20740);if(r)goto S_27242;} -S_27243:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ -if(qbevent){evnt(20741);if(r)goto S_27243;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(20741);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20741);}while(r); -} -S_27247:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ -if(qbevent){evnt(20742);if(r)goto S_27247;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20742);}while(r); -} -S_27250:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ -if(qbevent){evnt(20743);if(r)goto S_27250;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(20743);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20743);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20744);}while(r); -} -S_27256:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ -if(qbevent){evnt(20746);if(r)goto S_27256;} -S_27257:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ -if(qbevent){evnt(20747);if(r)goto S_27257;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(20747);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20747);}while(r); -} -S_27261:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||new_error){ -if(qbevent){evnt(20748);if(r)goto S_27261;} -S_27262:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||new_error){ -if(qbevent){evnt(20749);if(r)goto S_27262;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20749);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))); +qbs_set(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20750);}while(r); -S_27266:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 56 ))||new_error){ -if(qbevent){evnt(20751);if(r)goto S_27266;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20751);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(20752);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20752);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20754);}while(r); -} -} +if(!qbevent)break;evnt(21505);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free37.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE; } -qbs* FUNC_REMOVESYMBOL(qbs*_FUNC_REMOVESYMBOL_STRING_VARNAME){ +int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -92553,130 +98135,390 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_28540:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||new_error){ +if(qbevent){evnt(21514);if(r)goto S_28540;} do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20760);}while(r); -S_27276:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20760);if(r)goto S_27276;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20760);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(21514);}while(r); } do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("`",1),0); +*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20761);}while(r); -S_27280:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20761);if(r)goto S_27280;} +if(!qbevent)break;evnt(21516);}while(r); do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20761);}while(r); +*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21517);}while(r); +S_28545:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ +if(qbevent){evnt(21518);if(r)goto S_28545;} +S_28546:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21519);if(r)goto S_28546;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ; +if(!qbevent)break;evnt(21519);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21519);}while(r); } +S_28550:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ +if(qbevent){evnt(21520);if(r)goto S_28550;} do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20762);}while(r); -S_27284:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20762);if(r)goto S_27284;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20762);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(21520);}while(r); } +S_28553:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||new_error){ +if(qbevent){evnt(21521);if(r)goto S_28553;} do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20763);}while(r); -S_27288:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20763);if(r)goto S_27288;} +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ; +if(!qbevent)break;evnt(21521);}while(r); do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20763);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(21521);}while(r); } +S_28557:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ +if(qbevent){evnt(21522);if(r)goto S_28557;} do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20764);}while(r); -S_27292:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20764);if(r)goto S_27292;} +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21522);}while(r); do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20764);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20765);}while(r); -S_27296:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20765);if(r)goto S_27296;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20765);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20766);}while(r); -S_27300:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(20766);if(r)goto S_27300;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(20766);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(21522);}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(20767);}while(r); -LABEL_FOUNDSYMBOL:; -if(qbevent){evnt(20768);r=0;} -S_27304:; -if ((-(*_FUNC_REMOVESYMBOL_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(20769);if(r)goto S_27304;} +if(!qbevent)break;evnt(21523);}while(r); +} +S_28563:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ +if(qbevent){evnt(21525);if(r)goto S_28563;} +S_28564:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21526);if(r)goto S_28564;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name before symbol",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20769);}while(r); +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ; +if(!qbevent)break;evnt(21526);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(20769);}while(r); +if(!qbevent)break;evnt(21526);}while(r); } -do{ -qbs_set(_FUNC_REMOVESYMBOL_STRING_SYMBOL,qbs_right(_FUNC_REMOVESYMBOL_STRING_VARNAME,_FUNC_REMOVESYMBOL_STRING_VARNAME->len-*_FUNC_REMOVESYMBOL_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20770);}while(r); -S_27309:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_REMOVESYMBOL_STRING_SYMBOL)== 0 )))||new_error){ -if(qbevent){evnt(20771);if(r)goto S_27309;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20771);}while(r); +S_28568:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ +if(qbevent){evnt(21527);if(r)goto S_28568;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(20771);}while(r); +if(!qbevent)break;evnt(21527);}while(r); +} +S_28571:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ +if(qbevent){evnt(21528);if(r)goto S_28571;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ; +if(!qbevent)break;evnt(21528);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21528);}while(r); } do{ -qbs_set(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL,_FUNC_REMOVESYMBOL_STRING_SYMBOL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20772);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(21529);}while(r); +} +S_28577:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||new_error){ +if(qbevent){evnt(21531);if(r)goto S_28577;} +S_28578:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21532);if(r)goto S_28578;} do{ -qbs_set(_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_left(_FUNC_REMOVESYMBOL_STRING_VARNAME,*_FUNC_REMOVESYMBOL_LONG_I- 1 )); +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(21532);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21532);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21533);}while(r); +} +S_28584:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||new_error){ +if(qbevent){evnt(21535);if(r)goto S_28584;} +S_28585:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21536);if(r)goto S_28585;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(21536);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21536);}while(r); +} +S_28589:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ +if(qbevent){evnt(21537);if(r)goto S_28589;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21537);}while(r); +} +S_28592:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||new_error){ +if(qbevent){evnt(21538);if(r)goto S_28592;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(21538);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21538);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21539);}while(r); +} +S_28598:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||new_error){ +if(qbevent){evnt(21541);if(r)goto S_28598;} +S_28599:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21542);if(r)goto S_28599;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING; +if(!qbevent)break;evnt(21542);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21542);}while(r); +} +S_28603:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ +if(qbevent){evnt(21543);if(r)goto S_28603;} +S_28604:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||new_error){ +if(qbevent){evnt(21544);if(r)goto S_28604;} +S_28605:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||new_error){ +if(qbevent){evnt(21545);if(r)goto S_28605;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21545);}while(r); +} +S_28608:; +if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||new_error){ +if(qbevent){evnt(21546);if(r)goto S_28608;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21546);}while(r); +} +} +do{ +*__LONG_SYMBOLTYPE_SIZE=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20773);}while(r); +if(!qbevent)break;evnt(21548);}while(r); +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(21549);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21550);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21552);}while(r); +} +S_28618:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ +if(qbevent){evnt(21554);if(r)goto S_28618;} +S_28619:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21555);if(r)goto S_28619;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(21555);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21555);}while(r); +} +S_28623:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ +if(qbevent){evnt(21556);if(r)goto S_28623;} +S_28624:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ +if(qbevent){evnt(21557);if(r)goto S_28624;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21557);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21558);}while(r); +S_28628:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||new_error){ +if(qbevent){evnt(21559);if(r)goto S_28628;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21559);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(21560);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21560);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21562);}while(r); +} +S_28636:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||new_error){ +if(qbevent){evnt(21564);if(r)goto S_28636;} +S_28637:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21565);if(r)goto S_28637;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21565);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21566);}while(r); +S_28641:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ +if(qbevent){evnt(21567);if(r)goto S_28641;} +S_28642:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ +if(qbevent){evnt(21568);if(r)goto S_28642;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21568);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21568);}while(r); +} +S_28646:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ +if(qbevent){evnt(21569);if(r)goto S_28646;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21569);}while(r); +} +S_28649:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||new_error){ +if(qbevent){evnt(21570);if(r)goto S_28649;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21570);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21570);}while(r); +} +S_28653:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ +if(qbevent){evnt(21571);if(r)goto S_28653;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21571);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21571);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21572);}while(r); +} +S_28659:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ +if(qbevent){evnt(21574);if(r)goto S_28659;} +S_28660:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ +if(qbevent){evnt(21575);if(r)goto S_28660;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21575);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21575);}while(r); +} +S_28664:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ +if(qbevent){evnt(21576);if(r)goto S_28664;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21576);}while(r); +} +S_28667:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ +if(qbevent){evnt(21577);if(r)goto S_28667;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21577);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21577);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21578);}while(r); +} +S_28673:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ +if(qbevent){evnt(21580);if(r)goto S_28673;} +S_28674:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ +if(qbevent){evnt(21581);if(r)goto S_28674;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21581);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21581);}while(r); +} +S_28678:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||new_error){ +if(qbevent){evnt(21582);if(r)goto S_28678;} +S_28679:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||new_error){ +if(qbevent){evnt(21583);if(r)goto S_28679;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21583);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21584);}while(r); +S_28683:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||new_error){ +if(qbevent){evnt(21585);if(r)goto S_28683;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21585);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21586);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21586);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21588);}while(r); +} +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free38.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL);return _FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL; +return *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE; } -qbs* FUNC_SCOPE(){ +qbs* FUNC_REMOVESYMBOL(qbs*_FUNC_REMOVESYMBOL_STRING_VARNAME){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -92689,29 +98531,130 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_27315:; -if ((*(int16*)(((char*)__UDT_ID)+(2645)))||new_error){ -if(qbevent){evnt(20777);if(r)goto S_27315;} do{ -qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(__STRING_MODULE,qbs_new_txt_len("__",2))); +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("~",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20777);}while(r); +if(!qbevent)break;evnt(21594);}while(r); +S_28693:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21594);if(r)goto S_28693;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20777);}while(r); +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21594);}while(r); } do{ -qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("`",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20778);}while(r); +if(!qbevent)break;evnt(21595);}while(r); +S_28697:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21595);if(r)goto S_28697;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21595);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21596);}while(r); +S_28701:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21596);if(r)goto S_28701;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21596);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21597);}while(r); +S_28705:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21597);if(r)goto S_28705;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21597);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21598);}while(r); +S_28709:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21598);if(r)goto S_28709;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21598);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21599);}while(r); +S_28713:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21599);if(r)goto S_28713;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21599);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21600);}while(r); +S_28717:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21600);if(r)goto S_28717;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21600);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21601);}while(r); +LABEL_FOUNDSYMBOL:; +if(qbevent){evnt(21602);r=0;} +S_28721:; +if ((-(*_FUNC_REMOVESYMBOL_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(21603);if(r)goto S_28721;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name before symbol",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21603);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21603);}while(r); +} +do{ +qbs_set(_FUNC_REMOVESYMBOL_STRING_SYMBOL,qbs_right(_FUNC_REMOVESYMBOL_STRING_VARNAME,_FUNC_REMOVESYMBOL_STRING_VARNAME->len-*_FUNC_REMOVESYMBOL_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21604);}while(r); +S_28726:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_REMOVESYMBOL_STRING_SYMBOL)== 0 )))||new_error){ +if(qbevent){evnt(21605);if(r)goto S_28726;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21605);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21605);}while(r); +} +do{ +qbs_set(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL,_FUNC_REMOVESYMBOL_STRING_SYMBOL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21606);}while(r); +do{ +qbs_set(_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_left(_FUNC_REMOVESYMBOL_STRING_VARNAME,*_FUNC_REMOVESYMBOL_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21607);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free39.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_SCOPE_STRING_SCOPE);return _FUNC_SCOPE_STRING_SCOPE; +qbs_maketmp(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL);return _FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL; } -int32 FUNC_SEPERATEARGS(qbs*_FUNC_SEPERATEARGS_STRING_A,qbs*_FUNC_SEPERATEARGS_STRING_CA,int32*_FUNC_SEPERATEARGS_LONG_PASS){ +qbs* FUNC_SCOPE(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -92724,1402 +98667,1470 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_28732:; +if ((*(int16*)(((char*)__UDT_ID)+(2645)))||new_error){ +if(qbevent){evnt(21611);if(r)goto S_28732;} +do{ +qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(__STRING_MODULE,qbs_new_txt_len("__",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21611);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21611);}while(r); +} +do{ +qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21612);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free40.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_SCOPE_STRING_SCOPE);return _FUNC_SCOPE_STRING_SCOPE; +} +int32 FUNC_SEPERATEARGS(qbs*_FUNC_SEPERATEARGS_STRING_A,qbs*_FUNC_SEPERATEARGS_STRING_CA,int32*_FUNC_SEPERATEARGS_LONG_PASS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data41.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; do{ *_FUNC_SEPERATEARGS_LONG_PASS= 0 ; -if(!qbevent)break;evnt(20782);}while(r); -S_27321:; -fornext_value2871= 1 ; -fornext_finalvalue2871=*__LONG_OPTMAX; -fornext_step2871= 1 ; -if (fornext_step2871<0) fornext_step_negative2871=1; else fornext_step_negative2871=0; -if (new_error) goto fornext_error2871; -goto fornext_entrylabel2871; +if(!qbevent)break;evnt(21616);}while(r); +S_28738:; +fornext_value3072= 1 ; +fornext_finalvalue3072=*__LONG_OPTMAX; +fornext_step3072= 1 ; +if (fornext_step3072<0) fornext_step_negative3072=1; else fornext_step_negative3072=0; +if (new_error) goto fornext_error3072; +goto fornext_entrylabel3072; while(1){ -fornext_value2871=fornext_step2871+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2871: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2871; -if (fornext_step_negative2871){ -if (fornext_value2871fornext_finalvalue2871) break; +if (fornext_value3072>fornext_finalvalue3072) break; } -fornext_error2871:; -if(qbevent){evnt(20784);if(r)goto S_27321;} +fornext_error3072:; +if(qbevent){evnt(21618);if(r)goto S_28738;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20784);}while(r); -fornext_continue_2870:; +if(!qbevent)break;evnt(21618);}while(r); +fornext_continue_3071:; } -fornext_exit_2870:; -S_27324:; -fornext_value2873= 1 ; -fornext_finalvalue2873=*__LONG_OPTMAX+ 1 ; -fornext_step2873= 1 ; -if (fornext_step2873<0) fornext_step_negative2873=1; else fornext_step_negative2873=0; -if (new_error) goto fornext_error2873; -goto fornext_entrylabel2873; +fornext_exit_3071:; +S_28741:; +fornext_value3074= 1 ; +fornext_finalvalue3074=*__LONG_OPTMAX+ 1 ; +fornext_step3074= 1 ; +if (fornext_step3074<0) fornext_step_negative3074=1; else fornext_step_negative3074=0; +if (new_error) goto fornext_error3074; +goto fornext_entrylabel3074; while(1){ -fornext_value2873=fornext_step2873+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2873: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2873; -if (fornext_step_negative2873){ -if (fornext_value2873fornext_finalvalue2873) break; +if (fornext_value3074>fornext_finalvalue3074) break; } -fornext_error2873:; -if(qbevent){evnt(20785);if(r)goto S_27324;} +fornext_error3074:; +if(qbevent){evnt(21619);if(r)goto S_28741;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20785);}while(r); -fornext_continue_2872:; +if(!qbevent)break;evnt(21619);}while(r); +fornext_continue_3073:; } -fornext_exit_2872:; -S_27327:; -fornext_value2875= 1 ; -fornext_finalvalue2875=*__LONG_OPTMAX; -fornext_step2875= 1 ; -if (fornext_step2875<0) fornext_step_negative2875=1; else fornext_step_negative2875=0; -if (new_error) goto fornext_error2875; -goto fornext_entrylabel2875; +fornext_exit_3073:; +S_28744:; +fornext_value3076= 1 ; +fornext_finalvalue3076=*__LONG_OPTMAX; +fornext_step3076= 1 ; +if (fornext_step3076<0) fornext_step_negative3076=1; else fornext_step_negative3076=0; +if (new_error) goto fornext_error3076; +goto fornext_entrylabel3076; while(1){ -fornext_value2875=fornext_step2875+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2875: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2875; -if (fornext_step_negative2875){ -if (fornext_value2875fornext_finalvalue2875) break; +if (fornext_value3076>fornext_finalvalue3076) break; } -fornext_error2875:; -if(qbevent){evnt(20786);if(r)goto S_27327;} +fornext_error3076:; +if(qbevent){evnt(21620);if(r)goto S_28744;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20787);}while(r); +if(!qbevent)break;evnt(21621);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20788);}while(r); +if(!qbevent)break;evnt(21622);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20789);}while(r); +if(!qbevent)break;evnt(21623);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20790);}while(r); +if(!qbevent)break;evnt(21624);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20791);}while(r); +if(!qbevent)break;evnt(21625);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20792);}while(r); +if(!qbevent)break;evnt(21626);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20793);}while(r); -fornext_continue_2874:; +if(!qbevent)break;evnt(21627);}while(r); +fornext_continue_3075:; } -fornext_exit_2874:; +fornext_exit_3075:; do{ -if(!qbevent)break;evnt(20796);}while(r); +if(!qbevent)break;evnt(21630);}while(r); do{ -memcpy(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 0,((char*)__UDT_ID)+(0)+ 0, 2863); -if(!qbevent)break;evnt(20798);}while(r); -S_27338:; +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(21632);}while(r); +S_28755:; if ((-(*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809))== 0 ))||new_error){ -if(qbevent){evnt(20800);if(r)goto S_27338;} +if(qbevent){evnt(21634);if(r)goto S_28755;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(20800);}while(r); +if(!qbevent)break;evnt(21634);}while(r); } do{ qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_new_fixed((((uint8*)_FUNC_SEPERATEARGS_UDT_ID2)+(1613)),256,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20803);}while(r); +if(!qbevent)break;evnt(21637);}while(r); do{ qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_rtrim(_FUNC_SEPERATEARGS_STRING_S)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20804);}while(r); -S_27343:; +if(!qbevent)break;evnt(21638);}while(r); +S_28760:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20807);if(r)goto S_27343;} -S_27344:; -fornext_value2877= 1 ; -fornext_finalvalue2877=*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809)); -fornext_step2877= 1 ; -if (fornext_step2877<0) fornext_step_negative2877=1; else fornext_step_negative2877=0; -if (new_error) goto fornext_error2877; -goto fornext_entrylabel2877; +if(qbevent){evnt(21641);if(r)goto S_28760;} +S_28761:; +fornext_value3078= 1 ; +fornext_finalvalue3078=*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809)); +fornext_step3078= 1 ; +if (fornext_step3078<0) fornext_step_negative3078=1; else fornext_step_negative3078=0; +if (new_error) goto fornext_error3078; +goto fornext_entrylabel3078; while(1){ -fornext_value2877=fornext_step2877+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2877: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2877; -if (fornext_step_negative2877){ -if (fornext_value2877fornext_finalvalue2877) break; +if (fornext_value3078>fornext_finalvalue3078) break; } -fornext_error2877:; -if(qbevent){evnt(20808);if(r)goto S_27344;} -S_27345:; +fornext_error3078:; +if(qbevent){evnt(21642);if(r)goto S_28761;} +S_28762:; if ((-(*_FUNC_SEPERATEARGS_LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(20809);if(r)goto S_27345;} +if(qbevent){evnt(21643);if(r)goto S_28762;} do{ qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_add(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len(",?",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20809);}while(r); +if(!qbevent)break;evnt(21643);}while(r); }else{ do{ qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("?",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20809);}while(r); +if(!qbevent)break;evnt(21643);}while(r); } -fornext_continue_2876:; +fornext_continue_3077:; } -fornext_exit_2876:; +fornext_exit_3077:; } do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG= 1 ; -if(!qbevent)break;evnt(20815);}while(r); +if(!qbevent)break;evnt(21649);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL= 0 ; -if(!qbevent)break;evnt(20816);}while(r); +if(!qbevent)break;evnt(21650);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET= 1 ; -if(!qbevent)break;evnt(20817);}while(r); +if(!qbevent)break;evnt(21651);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; -if(!qbevent)break;evnt(20818);}while(r); +if(!qbevent)break;evnt(21652);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LASTT= 0 ; -if(!qbevent)break;evnt(20819);}while(r); +if(!qbevent)break;evnt(21653);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL= 0 ; -if(!qbevent)break;evnt(20820);}while(r); -S_27358:; -fornext_value2879= 1 ; -fornext_finalvalue2879=_FUNC_SEPERATEARGS_STRING_S->len; -fornext_step2879= 1 ; -if (fornext_step2879<0) fornext_step_negative2879=1; else fornext_step_negative2879=0; -if (new_error) goto fornext_error2879; -goto fornext_entrylabel2879; +if(!qbevent)break;evnt(21654);}while(r); +S_28775:; +fornext_value3080= 1 ; +fornext_finalvalue3080=_FUNC_SEPERATEARGS_STRING_S->len; +fornext_step3080= 1 ; +if (fornext_step3080<0) fornext_step_negative3080=1; else fornext_step_negative3080=0; +if (new_error) goto fornext_error3080; +goto fornext_entrylabel3080; while(1){ -fornext_value2879=fornext_step2879+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2879: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2879; +fornext_value3080=fornext_step3080+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3080: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3080; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2879){ -if (fornext_value2879fornext_finalvalue2879) break; +if (fornext_value3080>fornext_finalvalue3080) break; } -fornext_error2879:; -if(qbevent){evnt(20821);if(r)goto S_27358;} +fornext_error3080:; +if(qbevent){evnt(21655);if(r)goto S_28775;} do{ qbs_set(_FUNC_SEPERATEARGS_STRING_S2,func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20822);}while(r); -S_27360:; +if(!qbevent)break;evnt(21656);}while(r); +S_28777:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("[",1))))||new_error){ -if(qbevent){evnt(20824);if(r)goto S_27360;} +if(qbevent){evnt(21658);if(r)goto S_28777;} do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL+ 1 ; -if(!qbevent)break;evnt(20825);}while(r); +if(!qbevent)break;evnt(21659);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20826);}while(r); +if(!qbevent)break;evnt(21660);}while(r); do{ goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(20827);}while(r); +if(!qbevent)break;evnt(21661);}while(r); } -S_27365:; +S_28782:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(20830);if(r)goto S_27365;} +if(qbevent){evnt(21664);if(r)goto S_28782;} do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -if(!qbevent)break;evnt(20831);}while(r); -S_27367:; +if(!qbevent)break;evnt(21665);}while(r); +S_28784:; if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL<*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL))||new_error){ -if(qbevent){evnt(20832);if(r)goto S_27367;} +if(qbevent){evnt(21666);if(r)goto S_28784;} do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20832);}while(r); +if(!qbevent)break;evnt(21666);}while(r); } do{ goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(20833);}while(r); +if(!qbevent)break;evnt(21667);}while(r); } -S_27372:; +S_28789:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("{",1))))||new_error){ -if(qbevent){evnt(20836);if(r)goto S_27372;} +if(qbevent){evnt(21670);if(r)goto S_28789;} do{ *_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; -if(!qbevent)break;evnt(20837);}while(r); +if(!qbevent)break;evnt(21671);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20837);}while(r); +if(!qbevent)break;evnt(21671);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20837);}while(r); +if(!qbevent)break;evnt(21671);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; -if(!qbevent)break;evnt(20838);}while(r); +if(!qbevent)break;evnt(21672);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20838);}while(r); +if(!qbevent)break;evnt(21672);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+ 1 ; -if(!qbevent)break;evnt(20839);}while(r); +if(!qbevent)break;evnt(21673);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I2=func_instr(*_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("}",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20840);}while(r); +if(!qbevent)break;evnt(21674);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_NUMOPTS= 0 ; -if(!qbevent)break;evnt(20841);}while(r); +if(!qbevent)break;evnt(21675);}while(r); LABEL_NEXTOPT:; -if(qbevent){evnt(20842);r=0;} +if(qbevent){evnt(21676);r=0;} do{ *_FUNC_SEPERATEARGS_LONG_NUMOPTS=*_FUNC_SEPERATEARGS_LONG_NUMOPTS+ 1 ; -if(!qbevent)break;evnt(20843);}while(r); +if(!qbevent)break;evnt(21677);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I3=func_instr(*_FUNC_SEPERATEARGS_LONG_I+ 1 ,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("|",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20844);}while(r); -S_27383:; +if(!qbevent)break;evnt(21678);}while(r); +S_28800:; if (((-(*_FUNC_SEPERATEARGS_LONG_I3!= 0 ))&(-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_I2)))||new_error){ -if(qbevent){evnt(20845);if(r)goto S_27383;} +if(qbevent){evnt(21679);if(r)goto S_28800;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_NUMOPTS)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I,*_FUNC_SEPERATEARGS_LONG_I3-*_FUNC_SEPERATEARGS_LONG_I,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20846);}while(r); +if(!qbevent)break;evnt(21680);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I3+ 1 ; -if(!qbevent)break;evnt(20847);}while(r); +if(!qbevent)break;evnt(21681);}while(r); do{ goto LABEL_NEXTOPT; -if(!qbevent)break;evnt(20847);}while(r); +if(!qbevent)break;evnt(21681);}while(r); } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_NUMOPTS)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I,*_FUNC_SEPERATEARGS_LONG_I2-*_FUNC_SEPERATEARGS_LONG_I,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20849);}while(r); +if(!qbevent)break;evnt(21683);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_NUMOPTS; -if(!qbevent)break;evnt(20850);}while(r); -S_27390:; -fornext_value2882= 1 ; -fornext_finalvalue2882=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; -fornext_step2882= 1 ; -if (fornext_step2882<0) fornext_step_negative2882=1; else fornext_step_negative2882=0; -if (new_error) goto fornext_error2882; -goto fornext_entrylabel2882; +if(!qbevent)break;evnt(21684);}while(r); +S_28807:; +fornext_value3083= 1 ; +fornext_finalvalue3083=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; +fornext_step3083= 1 ; +if (fornext_step3083<0) fornext_step_negative3083=1; else fornext_step_negative3083=0; +if (new_error) goto fornext_error3083; +goto fornext_entrylabel3083; while(1){ -fornext_value2882=fornext_step2882+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel2882: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value2882; -if (fornext_step_negative2882){ -if (fornext_value2882fornext_finalvalue2882) break; +if (fornext_value3083>fornext_finalvalue3083) break; } -fornext_error2882:; -if(qbevent){evnt(20852);if(r)goto S_27390;} +fornext_error3083:; +if(qbevent){evnt(21686);if(r)goto S_28807;} do{ *_FUNC_SEPERATEARGS_LONG_W= 1 ; -if(!qbevent)break;evnt(20853);}while(r); +if(!qbevent)break;evnt(21687);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_X2= 1 ; -if(!qbevent)break;evnt(20854);}while(r); +if(!qbevent)break;evnt(21688);}while(r); LABEL_NEWWORD:; -if(qbevent){evnt(20855);r=0;} -S_27393:; +if(qbevent){evnt(21689);r=0;} +S_28810:; if ((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_SEPERATEARGS_LONG_X2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),qbs_new_txt_len(" ",1),1)))||new_error){ -if(qbevent){evnt(20856);if(r)goto S_27393;} +if(qbevent){evnt(21690);if(r)goto S_28810;} do{ *_FUNC_SEPERATEARGS_LONG_W=*_FUNC_SEPERATEARGS_LONG_W+ 1 ; -if(!qbevent)break;evnt(20856);}while(r); +if(!qbevent)break;evnt(21690);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_X2=func_instr(*_FUNC_SEPERATEARGS_LONG_X2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),qbs_new_txt_len(" ",1),1)+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20856);}while(r); +if(!qbevent)break;evnt(21690);}while(r); do{ goto LABEL_NEWWORD; -if(!qbevent)break;evnt(20856);}while(r); +if(!qbevent)break;evnt(21690);}while(r); } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]; if (!new_error) ((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_W; -if(!qbevent)break;evnt(20857);}while(r); -fornext_continue_2881:; +if(!qbevent)break;evnt(21691);}while(r); +fornext_continue_3082:; } -fornext_exit_2881:; +fornext_exit_3082:; do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(20859);}while(r); +if(!qbevent)break;evnt(21693);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20862);}while(r); -S_27402:; +if(!qbevent)break;evnt(21696);}while(r); +S_28819:; if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ -if(qbevent){evnt(20863);if(r)goto S_27402;} +if(qbevent){evnt(21697);if(r)goto S_28819;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20864);}while(r); -S_27404:; -fornext_value2884= 1 ; -fornext_finalvalue2884=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -fornext_step2884= 1 ; -if (fornext_step2884<0) fornext_step_negative2884=1; else fornext_step_negative2884=0; -if (new_error) goto fornext_error2884; -goto fornext_entrylabel2884; +if(!qbevent)break;evnt(21698);}while(r); +S_28821:; +fornext_value3085= 1 ; +fornext_finalvalue3085=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +fornext_step3085= 1 ; +if (fornext_step3085<0) fornext_step_negative3085=1; else fornext_step_negative3085=0; +if (new_error) goto fornext_error3085; +goto fornext_entrylabel3085; while(1){ -fornext_value2884=fornext_step2884+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel2884: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value2884; -if (fornext_step_negative2884){ -if (fornext_value2884fornext_finalvalue2884) break; +if (fornext_value3085>fornext_finalvalue3085) break; } -fornext_error2884:; -if(qbevent){evnt(20865);if(r)goto S_27404;} -S_27405:; +fornext_error3085:; +if(qbevent){evnt(21699);if(r)goto S_28821;} +S_28822:; if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ -if(qbevent){evnt(20866);if(r)goto S_27405;} +if(qbevent){evnt(21700);if(r)goto S_28822;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(20866);}while(r); +if(!qbevent)break;evnt(21700);}while(r); } -fornext_continue_2883:; +fornext_continue_3084:; } -fornext_exit_2883:; +fornext_exit_3084:; } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20869);}while(r); +if(!qbevent)break;evnt(21703);}while(r); do{ goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(20871);}while(r); +if(!qbevent)break;evnt(21705);}while(r); } -S_27413:; +S_28830:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(20874);if(r)goto S_27413;} +if(qbevent){evnt(21708);if(r)goto S_28830;} do{ *_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; -if(!qbevent)break;evnt(20875);}while(r); +if(!qbevent)break;evnt(21709);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20875);}while(r); +if(!qbevent)break;evnt(21709);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20875);}while(r); +if(!qbevent)break;evnt(21709);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; -if(!qbevent)break;evnt(20876);}while(r); +if(!qbevent)break;evnt(21710);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20876);}while(r); +if(!qbevent)break;evnt(21710);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20877);}while(r); +if(!qbevent)break;evnt(21711);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20879);}while(r); -S_27421:; +if(!qbevent)break;evnt(21713);}while(r); +S_28838:; if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ -if(qbevent){evnt(20880);if(r)goto S_27421;} +if(qbevent){evnt(21714);if(r)goto S_28838;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20881);}while(r); -S_27423:; -fornext_value2886= 1 ; -fornext_finalvalue2886=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -fornext_step2886= 1 ; -if (fornext_step2886<0) fornext_step_negative2886=1; else fornext_step_negative2886=0; -if (new_error) goto fornext_error2886; -goto fornext_entrylabel2886; +if(!qbevent)break;evnt(21715);}while(r); +S_28840:; +fornext_value3087= 1 ; +fornext_finalvalue3087=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +fornext_step3087= 1 ; +if (fornext_step3087<0) fornext_step_negative3087=1; else fornext_step_negative3087=0; +if (new_error) goto fornext_error3087; +goto fornext_entrylabel3087; while(1){ -fornext_value2886=fornext_step2886+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel2886: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value2886; -if (fornext_step_negative2886){ -if (fornext_value2886fornext_finalvalue2886) break; +if (fornext_value3087>fornext_finalvalue3087) break; } -fornext_error2886:; -if(qbevent){evnt(20882);if(r)goto S_27423;} -S_27424:; +fornext_error3087:; +if(qbevent){evnt(21716);if(r)goto S_28840;} +S_28841:; if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ -if(qbevent){evnt(20883);if(r)goto S_27424;} +if(qbevent){evnt(21717);if(r)goto S_28841;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(20883);}while(r); +if(!qbevent)break;evnt(21717);}while(r); } -fornext_continue_2885:; +fornext_continue_3086:; } -fornext_exit_2885:; +fornext_exit_3086:; } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20886);}while(r); +if(!qbevent)break;evnt(21720);}while(r); do{ goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(20888);}while(r); +if(!qbevent)break;evnt(21722);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; -if(!qbevent)break;evnt(20892);}while(r); +if(!qbevent)break;evnt(21726);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20892);}while(r); +if(!qbevent)break;evnt(21726);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20892);}while(r); +if(!qbevent)break;evnt(21726);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; -if(!qbevent)break;evnt(20893);}while(r); +if(!qbevent)break;evnt(21727);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20893);}while(r); +if(!qbevent)break;evnt(21727);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20894);}while(r); +if(!qbevent)break;evnt(21728);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),_FUNC_SEPERATEARGS_STRING_S2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20894);}while(r); +if(!qbevent)break;evnt(21728);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]; if (!new_error) ((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20894);}while(r); +if(!qbevent)break;evnt(21728);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20894);}while(r); +if(!qbevent)break;evnt(21728);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(20897);}while(r); -S_27442:; +if(!qbevent)break;evnt(21731);}while(r); +S_28859:; if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ -if(qbevent){evnt(20898);if(r)goto S_27442;} +if(qbevent){evnt(21732);if(r)goto S_28859;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(20899);}while(r); -S_27444:; -fornext_value2888= 1 ; -fornext_finalvalue2888=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -fornext_step2888= 1 ; -if (fornext_step2888<0) fornext_step_negative2888=1; else fornext_step_negative2888=0; -if (new_error) goto fornext_error2888; -goto fornext_entrylabel2888; +if(!qbevent)break;evnt(21733);}while(r); +S_28861:; +fornext_value3089= 1 ; +fornext_finalvalue3089=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +fornext_step3089= 1 ; +if (fornext_step3089<0) fornext_step_negative3089=1; else fornext_step_negative3089=0; +if (new_error) goto fornext_error3089; +goto fornext_entrylabel3089; while(1){ -fornext_value2888=fornext_step2888+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel2888: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value2888; -if (fornext_step_negative2888){ -if (fornext_value2888fornext_finalvalue2888) break; +if (fornext_value3089>fornext_finalvalue3089) break; } -fornext_error2888:; -if(qbevent){evnt(20900);if(r)goto S_27444;} -S_27445:; +fornext_error3089:; +if(qbevent){evnt(21734);if(r)goto S_28861;} +S_28862:; if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ -if(qbevent){evnt(20901);if(r)goto S_27445;} +if(qbevent){evnt(21735);if(r)goto S_28862;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(20901);}while(r); +if(!qbevent)break;evnt(21735);}while(r); } -fornext_continue_2887:; +fornext_continue_3088:; } -fornext_exit_2887:; +fornext_exit_3088:; } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20904);}while(r); +if(!qbevent)break;evnt(21738);}while(r); do{ goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(20906);}while(r); +if(!qbevent)break;evnt(21740);}while(r); LABEL_NEXTSYMBOL:; -if(qbevent){evnt(20908);r=0;} -fornext_continue_2878:; +if(qbevent){evnt(21742);r=0;} +fornext_continue_3079:; } -fornext_exit_2878:; -S_27453:; +fornext_exit_3079:; +S_28870:; if (( 0 )||new_error){ -if(qbevent){evnt(20912);if(r)goto S_27453;} +if(qbevent){evnt(21746);if(r)goto S_28870;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2889; +if (new_error) goto skip3090; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:1--------",46), 0 , 0 , 1 ); -if (new_error) goto skip2889; -skip2889: +if (new_error) goto skip3090; +skip3090: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20913);}while(r); -S_27455:; -fornext_value2891= 1 ; -fornext_finalvalue2891=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2891= 1 ; -if (fornext_step2891<0) fornext_step_negative2891=1; else fornext_step_negative2891=0; -if (new_error) goto fornext_error2891; -goto fornext_entrylabel2891; +if(!qbevent)break;evnt(21747);}while(r); +S_28872:; +fornext_value3092= 1 ; +fornext_finalvalue3092=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3092= 1 ; +if (fornext_step3092<0) fornext_step_negative3092=1; else fornext_step_negative3092=0; +if (new_error) goto fornext_error3092; +goto fornext_entrylabel3092; while(1){ -fornext_value2891=fornext_step2891+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2891: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2891; -if (fornext_step_negative2891){ -if (fornext_value2891fornext_finalvalue2891) break; +if (fornext_value3092>fornext_finalvalue3092) break; } -fornext_error2891:; -if(qbevent){evnt(20914);if(r)goto S_27455;} +fornext_error3092:; +if(qbevent){evnt(21748);if(r)goto S_28872;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2892; +if (new_error) goto skip3093; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2892; +if (new_error) goto skip3093; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip2892; -skip2892: +if (new_error) goto skip3093; +skip3093: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20915);}while(r); +if(!qbevent)break;evnt(21749);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2893; +if (new_error) goto skip3094; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2893; +if (new_error) goto skip3094; sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0 , 0 , 0 ); -if (new_error) goto skip2893; +if (new_error) goto skip3094; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1 , 0 , 1 ); -if (new_error) goto skip2893; -skip2893: +if (new_error) goto skip3094; +skip3094: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20916);}while(r); +if(!qbevent)break;evnt(21750);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2894; +if (new_error) goto skip3095; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2894; +if (new_error) goto skip3095; sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0 , 0 , 0 ); -if (new_error) goto skip2894; +if (new_error) goto skip3095; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2894; -skip2894: +if (new_error) goto skip3095; +skip3095: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20917);}while(r); +if(!qbevent)break;evnt(21751);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2895; +if (new_error) goto skip3096; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2895; +if (new_error) goto skip3096; sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0 , 0 , 0 ); -if (new_error) goto skip2895; +if (new_error) goto skip3096; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2895; -skip2895: +if (new_error) goto skip3096; +skip3096: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20918);}while(r); +if(!qbevent)break;evnt(21752);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2896; +if (new_error) goto skip3097; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2896; +if (new_error) goto skip3097; sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0 , 0 , 0 ); -if (new_error) goto skip2896; +if (new_error) goto skip3097; sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2896; -skip2896: +if (new_error) goto skip3097; +skip3097: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20919);}while(r); +if(!qbevent)break;evnt(21753);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2897; +if (new_error) goto skip3098; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2897; +if (new_error) goto skip3098; sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0 , 0 , 0 ); -if (new_error) goto skip2897; +if (new_error) goto skip3098; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2897; -skip2897: +if (new_error) goto skip3098; +skip3098: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20920);}while(r); +if(!qbevent)break;evnt(21754);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2898; +if (new_error) goto skip3099; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2898; +if (new_error) goto skip3099; sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0 , 0 , 0 ); -if (new_error) goto skip2898; +if (new_error) goto skip3099; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2898; -skip2898: +if (new_error) goto skip3099; +skip3099: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20921);}while(r); -fornext_continue_2890:; +if(!qbevent)break;evnt(21755);}while(r); +fornext_continue_3091:; } -fornext_exit_2890:; +fornext_exit_3091:; } -S_27465:; -fornext_value2900= 1 ; -fornext_finalvalue2900=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2900= 1 ; -if (fornext_step2900<0) fornext_step_negative2900=1; else fornext_step_negative2900=0; -if (new_error) goto fornext_error2900; -goto fornext_entrylabel2900; +S_28882:; +fornext_value3101= 1 ; +fornext_finalvalue3101=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3101= 1 ; +if (fornext_step3101<0) fornext_step_negative3101=1; else fornext_step_negative3101=0; +if (new_error) goto fornext_error3101; +goto fornext_entrylabel3101; while(1){ -fornext_value2900=fornext_step2900+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel2900: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value2900; -if (fornext_step_negative2900){ -if (fornext_value2900fornext_finalvalue2900) break; +if (fornext_value3101>fornext_finalvalue3101) break; } -fornext_error2900:; -if(qbevent){evnt(20929);if(r)goto S_27465;} -S_27466:; +fornext_error3101:; +if(qbevent){evnt(21763);if(r)goto S_28882;} +S_28883:; if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]== 0 ))||new_error){ -if(qbevent){evnt(20930);if(r)goto S_27466;} -S_27467:; +if(qbevent){evnt(21764);if(r)goto S_28883;} +S_28884:; if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 1 ))||new_error){ -if(qbevent){evnt(20931);if(r)goto S_27467;} +if(qbevent){evnt(21765);if(r)goto S_28884;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(20931);}while(r); +if(!qbevent)break;evnt(21765);}while(r); } } -fornext_continue_2899:; +fornext_continue_3100:; } -fornext_exit_2899:; -S_27472:; +fornext_exit_3100:; +S_28889:; if (( 0 )||new_error){ -if(qbevent){evnt(20935);if(r)goto S_27472;} +if(qbevent){evnt(21769);if(r)goto S_28889;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2901; +if (new_error) goto skip3102; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:2--------",46), 0 , 0 , 1 ); -if (new_error) goto skip2901; -skip2901: +if (new_error) goto skip3102; +skip3102: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20936);}while(r); -S_27474:; -fornext_value2903= 1 ; -fornext_finalvalue2903=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2903= 1 ; -if (fornext_step2903<0) fornext_step_negative2903=1; else fornext_step_negative2903=0; -if (new_error) goto fornext_error2903; -goto fornext_entrylabel2903; +if(!qbevent)break;evnt(21770);}while(r); +S_28891:; +fornext_value3104= 1 ; +fornext_finalvalue3104=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3104= 1 ; +if (fornext_step3104<0) fornext_step_negative3104=1; else fornext_step_negative3104=0; +if (new_error) goto fornext_error3104; +goto fornext_entrylabel3104; while(1){ -fornext_value2903=fornext_step2903+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2903: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2903; -if (fornext_step_negative2903){ -if (fornext_value2903fornext_finalvalue2903) break; +if (fornext_value3104>fornext_finalvalue3104) break; } -fornext_error2903:; -if(qbevent){evnt(20937);if(r)goto S_27474;} +fornext_error3104:; +if(qbevent){evnt(21771);if(r)goto S_28891;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2904; +if (new_error) goto skip3105; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2904; +if (new_error) goto skip3105; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip2904; -skip2904: +if (new_error) goto skip3105; +skip3105: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20938);}while(r); +if(!qbevent)break;evnt(21772);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2905; +if (new_error) goto skip3106; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2905; +if (new_error) goto skip3106; sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0 , 0 , 0 ); -if (new_error) goto skip2905; +if (new_error) goto skip3106; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1 , 0 , 1 ); -if (new_error) goto skip2905; -skip2905: +if (new_error) goto skip3106; +skip3106: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20939);}while(r); +if(!qbevent)break;evnt(21773);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2906; +if (new_error) goto skip3107; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2906; +if (new_error) goto skip3107; sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0 , 0 , 0 ); -if (new_error) goto skip2906; +if (new_error) goto skip3107; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2906; -skip2906: +if (new_error) goto skip3107; +skip3107: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20940);}while(r); +if(!qbevent)break;evnt(21774);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2907; +if (new_error) goto skip3108; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2907; +if (new_error) goto skip3108; sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0 , 0 , 0 ); -if (new_error) goto skip2907; +if (new_error) goto skip3108; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2907; -skip2907: +if (new_error) goto skip3108; +skip3108: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20941);}while(r); +if(!qbevent)break;evnt(21775);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2908; +if (new_error) goto skip3109; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2908; +if (new_error) goto skip3109; sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0 , 0 , 0 ); -if (new_error) goto skip2908; +if (new_error) goto skip3109; sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2908; -skip2908: +if (new_error) goto skip3109; +skip3109: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20942);}while(r); +if(!qbevent)break;evnt(21776);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2909; +if (new_error) goto skip3110; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2909; +if (new_error) goto skip3110; sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0 , 0 , 0 ); -if (new_error) goto skip2909; +if (new_error) goto skip3110; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2909; -skip2909: +if (new_error) goto skip3110; +skip3110: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20943);}while(r); +if(!qbevent)break;evnt(21777);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2910; +if (new_error) goto skip3111; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2910; +if (new_error) goto skip3111; sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0 , 0 , 0 ); -if (new_error) goto skip2910; +if (new_error) goto skip3111; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2910; -skip2910: +if (new_error) goto skip3111; +skip3111: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(20944);}while(r); -fornext_continue_2902:; +if(!qbevent)break;evnt(21778);}while(r); +fornext_continue_3103:; } -fornext_exit_2902:; +fornext_exit_3103:; } do{ *_FUNC_SEPERATEARGS_LONG_X1= 0 ; -if(!qbevent)break;evnt(20951);}while(r); +if(!qbevent)break;evnt(21785);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; -if(!qbevent)break;evnt(20952);}while(r); +if(!qbevent)break;evnt(21786);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; -if(!qbevent)break;evnt(20953);}while(r); +if(!qbevent)break;evnt(21787);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; -if(!qbevent)break;evnt(20958);}while(r); -S_27488:; -fornext_value2912= 1 ; -fornext_finalvalue2912= 32767 ; -fornext_step2912= 1 ; -if (fornext_step2912<0) fornext_step_negative2912=1; else fornext_step_negative2912=0; -if (new_error) goto fornext_error2912; -goto fornext_entrylabel2912; +if(!qbevent)break;evnt(21792);}while(r); +S_28905:; +fornext_value3113= 1 ; +fornext_finalvalue3113= 32767 ; +fornext_step3113= 1 ; +if (fornext_step3113<0) fornext_step_negative3113=1; else fornext_step_negative3113=0; +if (new_error) goto fornext_error3113; +goto fornext_entrylabel3113; while(1){ -fornext_value2912=fornext_step2912+(*_FUNC_SEPERATEARGS_LONG_L); -fornext_entrylabel2912: -*_FUNC_SEPERATEARGS_LONG_L=fornext_value2912; -if (fornext_step_negative2912){ -if (fornext_value2912fornext_finalvalue2912) break; +if (fornext_value3113>fornext_finalvalue3113) break; } -fornext_error2912:; -if(qbevent){evnt(20959);if(r)goto S_27488;} +fornext_error3113:; +if(qbevent){evnt(21793);if(r)goto S_28905;} do{ *_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 0 ; -if(!qbevent)break;evnt(20960);}while(r); -S_27490:; -fornext_value2914= 1 ; -fornext_finalvalue2914=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2914= 1 ; -if (fornext_step2914<0) fornext_step_negative2914=1; else fornext_step_negative2914=0; -if (new_error) goto fornext_error2914; -goto fornext_entrylabel2914; +if(!qbevent)break;evnt(21794);}while(r); +S_28907:; +fornext_value3115= 1 ; +fornext_finalvalue3115=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3115= 1 ; +if (fornext_step3115<0) fornext_step_negative3115=1; else fornext_step_negative3115=0; +if (new_error) goto fornext_error3115; +goto fornext_entrylabel3115; while(1){ -fornext_value2914=fornext_step2914+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel2914: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value2914; -if (fornext_step_negative2914){ -if (fornext_value2914fornext_finalvalue2914) break; +if (fornext_value3115>fornext_finalvalue3115) break; } -fornext_error2914:; -if(qbevent){evnt(20961);if(r)goto S_27490;} -S_27491:; +fornext_error3115:; +if(qbevent){evnt(21795);if(r)goto S_28907;} +S_28908:; if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]>*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(20962);if(r)goto S_27491;} +if(qbevent){evnt(21796);if(r)goto S_28908;} do{ *_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 1 ; -if(!qbevent)break;evnt(20962);}while(r); +if(!qbevent)break;evnt(21796);}while(r); } -S_27494:; +S_28911:; if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ -if(qbevent){evnt(20964);if(r)goto S_27494;} -S_27495:; +if(qbevent){evnt(21798);if(r)goto S_28911;} +S_28912:; if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(20965);if(r)goto S_27495;} -S_27496:; +if(qbevent){evnt(21799);if(r)goto S_28912;} +S_28913:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ -if(qbevent){evnt(20966);if(r)goto S_27496;} -S_27497:; +if(qbevent){evnt(21800);if(r)goto S_28913;} +S_28914:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ -if(qbevent){evnt(20969);if(r)goto S_27497;} -S_27498:; -fornext_value2916= 1 ; -fornext_finalvalue2916=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step2916= 1 ; -if (fornext_step2916<0) fornext_step_negative2916=1; else fornext_step_negative2916=0; -if (new_error) goto fornext_error2916; -goto fornext_entrylabel2916; +if(qbevent){evnt(21803);if(r)goto S_28914;} +S_28915:; +fornext_value3117= 1 ; +fornext_finalvalue3117=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3117= 1 ; +if (fornext_step3117<0) fornext_step_negative3117=1; else fornext_step_negative3117=0; +if (new_error) goto fornext_error3117; +goto fornext_entrylabel3117; while(1){ -fornext_value2916=fornext_step2916+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2916: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2916; -if (fornext_step_negative2916){ -if (fornext_value2916fornext_finalvalue2916) break; +if (fornext_value3117>fornext_finalvalue3117) break; } -fornext_error2916:; -if(qbevent){evnt(20971);if(r)goto S_27498;} +fornext_error3117:; +if(qbevent){evnt(21805);if(r)goto S_28915;} do{ tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(20972);}while(r); -fornext_continue_2915:; +if(!qbevent)break;evnt(21806);}while(r); +fornext_continue_3116:; } -fornext_exit_2915:; +fornext_exit_3116:; do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(20974);}while(r); +if(!qbevent)break;evnt(21808);}while(r); }else{ -S_27503:; -fornext_value2918= 1 ; -fornext_finalvalue2918=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step2918= 1 ; -if (fornext_step2918<0) fornext_step_negative2918=1; else fornext_step_negative2918=0; -if (new_error) goto fornext_error2918; -goto fornext_entrylabel2918; +S_28920:; +fornext_value3119= 1 ; +fornext_finalvalue3119=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3119= 1 ; +if (fornext_step3119<0) fornext_step_negative3119=1; else fornext_step_negative3119=0; +if (new_error) goto fornext_error3119; +goto fornext_entrylabel3119; while(1){ -fornext_value2918=fornext_step2918+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2918: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2918; -if (fornext_step_negative2918){ -if (fornext_value2918fornext_finalvalue2918) break; +if (fornext_value3119>fornext_finalvalue3119) break; } -fornext_error2918:; -if(qbevent){evnt(20978);if(r)goto S_27503;} -S_27504:; +fornext_error3119:; +if(qbevent){evnt(21812);if(r)goto S_28920;} +S_28921:; if ((-(((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])]!=*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT))||new_error){ -if(qbevent){evnt(20979);if(r)goto S_27504;} +if(qbevent){evnt(21813);if(r)goto S_28921;} do{ tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT); -if(!qbevent)break;evnt(20979);}while(r); +if(!qbevent)break;evnt(21813);}while(r); } -fornext_continue_2917:; +fornext_continue_3118:; } -fornext_exit_2917:; +fornext_exit_3118:; } }else{ -S_27510:; -fornext_value2920= 1 ; -fornext_finalvalue2920=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step2920= 1 ; -if (fornext_step2920<0) fornext_step_negative2920=1; else fornext_step_negative2920=0; -if (new_error) goto fornext_error2920; -goto fornext_entrylabel2920; +S_28927:; +fornext_value3121= 1 ; +fornext_finalvalue3121=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3121= 1 ; +if (fornext_step3121<0) fornext_step_negative3121=1; else fornext_step_negative3121=0; +if (new_error) goto fornext_error3121; +goto fornext_entrylabel3121; while(1){ -fornext_value2920=fornext_step2920+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2920: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2920; -if (fornext_step_negative2920){ -if (fornext_value2920fornext_finalvalue2920) break; +if (fornext_value3121>fornext_finalvalue3121) break; } -fornext_error2920:; -if(qbevent){evnt(20984);if(r)goto S_27510;} +fornext_error3121:; +if(qbevent){evnt(21818);if(r)goto S_28927;} do{ tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(20984);}while(r); -fornext_continue_2919:; +if(!qbevent)break;evnt(21818);}while(r); +fornext_continue_3120:; } -fornext_exit_2919:; -S_27513:; +fornext_exit_3120:; +S_28930:; if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ -if(qbevent){evnt(20985);if(r)goto S_27513;} +if(qbevent){evnt(21819);if(r)goto S_28930;} do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(20985);}while(r); +if(!qbevent)break;evnt(21819);}while(r); } } do{ *_FUNC_SEPERATEARGS_LONG_X1= 0 ; -if(!qbevent)break;evnt(20987);}while(r); +if(!qbevent)break;evnt(21821);}while(r); } } -S_27520:; +S_28937:; if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]==*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(20992);if(r)goto S_27520;} -S_27521:; +if(qbevent){evnt(21826);if(r)goto S_28937;} +S_28938:; if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(20993);if(r)goto S_27521;} +if(qbevent){evnt(21827);if(r)goto S_28938;} do{ *_FUNC_SEPERATEARGS_LONG_X1=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(20994);}while(r); +if(!qbevent)break;evnt(21828);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; -if(!qbevent)break;evnt(20995);}while(r); +if(!qbevent)break;evnt(21829);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; -if(!qbevent)break;evnt(20996);}while(r); +if(!qbevent)break;evnt(21830);}while(r); } } -S_27527:; +S_28944:; if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ -if(qbevent){evnt(21000);if(r)goto S_27527;} -S_27528:; +if(qbevent){evnt(21834);if(r)goto S_28944;} +S_28945:; if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]==*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(21001);if(r)goto S_27528;} -S_27529:; +if(qbevent){evnt(21835);if(r)goto S_28945;} +S_28946:; if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]!= 1 ))||new_error){ -if(qbevent){evnt(21003);if(r)goto S_27529;} -S_27530:; +if(qbevent){evnt(21837);if(r)goto S_28946;} +S_28947:; if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT== 0 ))||new_error){ -if(qbevent){evnt(21005);if(r)goto S_27530;} +if(qbevent){evnt(21839);if(r)goto S_28947;} do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21006);}while(r); -S_27532:; +if(!qbevent)break;evnt(21840);}while(r); +S_28949:; if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 0 ))||new_error){ -if(qbevent){evnt(21007);if(r)goto S_27532;} +if(qbevent){evnt(21841);if(r)goto S_28949;} do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 1 ; -if(!qbevent)break;evnt(21007);}while(r); +if(!qbevent)break;evnt(21841);}while(r); }else{ do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; -if(!qbevent)break;evnt(21007);}while(r); +if(!qbevent)break;evnt(21841);}while(r); } }else{ -S_27538:; +S_28955:; if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG== 1 ))||new_error){ -if(qbevent){evnt(21011);if(r)goto S_27538;} -S_27539:; +if(qbevent){evnt(21845);if(r)goto S_28955;} +S_28956:; if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]> 1 ))||new_error){ -if(qbevent){evnt(21012);if(r)goto S_27539;} +if(qbevent){evnt(21846);if(r)goto S_28956;} do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21013);}while(r); +if(!qbevent)break;evnt(21847);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; -if(!qbevent)break;evnt(21013);}while(r); +if(!qbevent)break;evnt(21847);}while(r); } } } do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; -if(!qbevent)break;evnt(21018);}while(r); +if(!qbevent)break;evnt(21852);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_TEMPLISTN)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21018);}while(r); +if(!qbevent)break;evnt(21852);}while(r); } -S_27548:; +S_28965:; if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 1 ))||new_error){ -if(qbevent){evnt(21021);if(r)goto S_27548;} -S_27549:; +if(qbevent){evnt(21855);if(r)goto S_28965;} +S_28966:; if ((-(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])]== 0 ))||new_error){ -if(qbevent){evnt(21027);if(r)goto S_27549;} +if(qbevent){evnt(21861);if(r)goto S_28966;} do{ *_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; -if(!qbevent)break;evnt(21027);}while(r); +if(!qbevent)break;evnt(21861);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_TEMPLISTN)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21027);}while(r); +if(!qbevent)break;evnt(21861);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21027);}while(r); +if(!qbevent)break;evnt(21861);}while(r); } } } } -fornext_continue_2913:; +fornext_continue_3114:; } -fornext_exit_2913:; -S_27558:; +fornext_exit_3114:; +S_28975:; if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ -if(qbevent){evnt(21036);if(r)goto S_27558;} -S_27559:; +if(qbevent){evnt(21870);if(r)goto S_28975;} +S_28976:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ -if(qbevent){evnt(21037);if(r)goto S_27559;} -S_27560:; +if(qbevent){evnt(21871);if(r)goto S_28976;} +S_28977:; if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ -if(qbevent){evnt(21040);if(r)goto S_27560;} -S_27561:; -fornext_value2922= 1 ; -fornext_finalvalue2922=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step2922= 1 ; -if (fornext_step2922<0) fornext_step_negative2922=1; else fornext_step_negative2922=0; -if (new_error) goto fornext_error2922; -goto fornext_entrylabel2922; +if(qbevent){evnt(21874);if(r)goto S_28977;} +S_28978:; +fornext_value3123= 1 ; +fornext_finalvalue3123=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3123= 1 ; +if (fornext_step3123<0) fornext_step_negative3123=1; else fornext_step_negative3123=0; +if (new_error) goto fornext_error3123; +goto fornext_entrylabel3123; while(1){ -fornext_value2922=fornext_step2922+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2922: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2922; -if (fornext_step_negative2922){ -if (fornext_value2922fornext_finalvalue2922) break; +if (fornext_value3123>fornext_finalvalue3123) break; } -fornext_error2922:; -if(qbevent){evnt(21042);if(r)goto S_27561;} +fornext_error3123:; +if(qbevent){evnt(21876);if(r)goto S_28978;} do{ tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(21043);}while(r); -fornext_continue_2921:; +if(!qbevent)break;evnt(21877);}while(r); +fornext_continue_3122:; } -fornext_exit_2921:; +fornext_exit_3122:; do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(21045);}while(r); +if(!qbevent)break;evnt(21879);}while(r); }else{ -S_27566:; -fornext_value2924= 1 ; -fornext_finalvalue2924=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step2924= 1 ; -if (fornext_step2924<0) fornext_step_negative2924=1; else fornext_step_negative2924=0; -if (new_error) goto fornext_error2924; -goto fornext_entrylabel2924; +S_28983:; +fornext_value3125= 1 ; +fornext_finalvalue3125=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3125= 1 ; +if (fornext_step3125<0) fornext_step_negative3125=1; else fornext_step_negative3125=0; +if (new_error) goto fornext_error3125; +goto fornext_entrylabel3125; while(1){ -fornext_value2924=fornext_step2924+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2924: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2924; -if (fornext_step_negative2924){ -if (fornext_value2924fornext_finalvalue2924) break; +if (fornext_value3125>fornext_finalvalue3125) break; } -fornext_error2924:; -if(qbevent){evnt(21049);if(r)goto S_27566;} -S_27567:; +fornext_error3125:; +if(qbevent){evnt(21883);if(r)goto S_28983;} +S_28984:; if ((-(((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])]!=*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT))||new_error){ -if(qbevent){evnt(21050);if(r)goto S_27567;} +if(qbevent){evnt(21884);if(r)goto S_28984;} do{ tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT); -if(!qbevent)break;evnt(21050);}while(r); +if(!qbevent)break;evnt(21884);}while(r); } -fornext_continue_2923:; +fornext_continue_3124:; } -fornext_exit_2923:; +fornext_exit_3124:; } }else{ -S_27573:; -fornext_value2926= 1 ; -fornext_finalvalue2926=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step2926= 1 ; -if (fornext_step2926<0) fornext_step_negative2926=1; else fornext_step_negative2926=0; -if (new_error) goto fornext_error2926; -goto fornext_entrylabel2926; +S_28990:; +fornext_value3127= 1 ; +fornext_finalvalue3127=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3127= 1 ; +if (fornext_step3127<0) fornext_step_negative3127=1; else fornext_step_negative3127=0; +if (new_error) goto fornext_error3127; +goto fornext_entrylabel3127; while(1){ -fornext_value2926=fornext_step2926+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2926: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2926; -if (fornext_step_negative2926){ -if (fornext_value2926fornext_finalvalue2926) break; +if (fornext_value3127>fornext_finalvalue3127) break; } -fornext_error2926:; -if(qbevent){evnt(21055);if(r)goto S_27573;} +fornext_error3127:; +if(qbevent){evnt(21889);if(r)goto S_28990;} do{ tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(21055);}while(r); -fornext_continue_2925:; +if(!qbevent)break;evnt(21889);}while(r); +fornext_continue_3126:; } -fornext_exit_2925:; -S_27576:; +fornext_exit_3126:; +S_28993:; if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ -if(qbevent){evnt(21056);if(r)goto S_27576;} +if(qbevent){evnt(21890);if(r)goto S_28993;} do{ *_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(21056);}while(r); +if(!qbevent)break;evnt(21890);}while(r); } } do{ *_FUNC_SEPERATEARGS_LONG_X1= 0 ; -if(!qbevent)break;evnt(21058);}while(r); +if(!qbevent)break;evnt(21892);}while(r); } -S_27582:; +S_28999:; if ((-(*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL== 0 ))||new_error){ -if(qbevent){evnt(21061);if(r)goto S_27582;} +if(qbevent){evnt(21895);if(r)goto S_28999;} do{ -goto fornext_exit_2911; -if(!qbevent)break;evnt(21061);}while(r); +goto fornext_exit_3112; +if(!qbevent)break;evnt(21895);}while(r); } -fornext_continue_2911:; +fornext_continue_3112:; } -fornext_exit_2911:; -S_27586:; +fornext_exit_3112:; +S_29003:; if (( 0 )||new_error){ -if(qbevent){evnt(21064);if(r)goto S_27586;} +if(qbevent){evnt(21898);if(r)goto S_29003;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2927; +if (new_error) goto skip3128; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:3--------",46), 0 , 0 , 1 ); -if (new_error) goto skip2927; -skip2927: +if (new_error) goto skip3128; +skip3128: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21065);}while(r); -S_27588:; -fornext_value2929= 1 ; -fornext_finalvalue2929=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2929= 1 ; -if (fornext_step2929<0) fornext_step_negative2929=1; else fornext_step_negative2929=0; -if (new_error) goto fornext_error2929; -goto fornext_entrylabel2929; +if(!qbevent)break;evnt(21899);}while(r); +S_29005:; +fornext_value3130= 1 ; +fornext_finalvalue3130=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3130= 1 ; +if (fornext_step3130<0) fornext_step_negative3130=1; else fornext_step_negative3130=0; +if (new_error) goto fornext_error3130; +goto fornext_entrylabel3130; while(1){ -fornext_value2929=fornext_step2929+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2929: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2929; -if (fornext_step_negative2929){ -if (fornext_value2929fornext_finalvalue2929) break; +if (fornext_value3130>fornext_finalvalue3130) break; } -fornext_error2929:; -if(qbevent){evnt(21066);if(r)goto S_27588;} +fornext_error3130:; +if(qbevent){evnt(21900);if(r)goto S_29005;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2930; +if (new_error) goto skip3131; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2930; +if (new_error) goto skip3131; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0 , 0 , 1 ); -if (new_error) goto skip2930; -skip2930: +if (new_error) goto skip3131; +skip3131: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21067);}while(r); +if(!qbevent)break;evnt(21901);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2931; +if (new_error) goto skip3132; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2931; +if (new_error) goto skip3132; sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0 , 0 , 0 ); -if (new_error) goto skip2931; +if (new_error) goto skip3132; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1 , 0 , 1 ); -if (new_error) goto skip2931; -skip2931: +if (new_error) goto skip3132; +skip3132: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21068);}while(r); +if(!qbevent)break;evnt(21902);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2932; +if (new_error) goto skip3133; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2932; +if (new_error) goto skip3133; sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0 , 0 , 0 ); -if (new_error) goto skip2932; +if (new_error) goto skip3133; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2932; -skip2932: +if (new_error) goto skip3133; +skip3133: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21069);}while(r); +if(!qbevent)break;evnt(21903);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2933; +if (new_error) goto skip3134; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2933; +if (new_error) goto skip3134; sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0 , 0 , 0 ); -if (new_error) goto skip2933; +if (new_error) goto skip3134; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2933; -skip2933: +if (new_error) goto skip3134; +skip3134: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21070);}while(r); +if(!qbevent)break;evnt(21904);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2934; +if (new_error) goto skip3135; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2934; +if (new_error) goto skip3135; sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0 , 0 , 0 ); -if (new_error) goto skip2934; +if (new_error) goto skip3135; sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2934; -skip2934: +if (new_error) goto skip3135; +skip3135: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21071);}while(r); +if(!qbevent)break;evnt(21905);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2935; +if (new_error) goto skip3136; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2935; +if (new_error) goto skip3136; sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0 , 0 , 0 ); -if (new_error) goto skip2935; +if (new_error) goto skip3136; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2935; -skip2935: +if (new_error) goto skip3136; +skip3136: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21072);}while(r); +if(!qbevent)break;evnt(21906);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2936; +if (new_error) goto skip3137; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2936; +if (new_error) goto skip3137; sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0 , 0 , 0 ); -if (new_error) goto skip2936; +if (new_error) goto skip3137; sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1 , 0 , 1 ); -if (new_error) goto skip2936; -skip2936: +if (new_error) goto skip3137; +skip3137: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21073);}while(r); -fornext_continue_2928:; +if(!qbevent)break;evnt(21907);}while(r); +fornext_continue_3129:; } -fornext_exit_2928:; +fornext_exit_3129:; } -S_27598:; -fornext_value2938= 1 ; -fornext_finalvalue2938=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2938= 1 ; -if (fornext_step2938<0) fornext_step_negative2938=1; else fornext_step_negative2938=0; -if (new_error) goto fornext_error2938; -goto fornext_entrylabel2938; +S_29015:; +fornext_value3139= 1 ; +fornext_finalvalue3139=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3139= 1 ; +if (fornext_step3139<0) fornext_step_negative3139=1; else fornext_step_negative3139=0; +if (new_error) goto fornext_error3139; +goto fornext_entrylabel3139; while(1){ -fornext_value2938=fornext_step2938+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2938: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2938; -if (fornext_step_negative2938){ -if (fornext_value2938fornext_finalvalue2938) break; +if (fornext_value3139>fornext_finalvalue3139) break; } -fornext_error2938:; -if(qbevent){evnt(21079);if(r)goto S_27598;} +fornext_error3139:; +if(qbevent){evnt(21913);if(r)goto S_29015;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21079);}while(r); -fornext_continue_2937:; +if(!qbevent)break;evnt(21913);}while(r); +fornext_continue_3138:; } -fornext_exit_2937:; +fornext_exit_3138:; do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES= 0 ; -if(!qbevent)break;evnt(21097);}while(r); +if(!qbevent)break;evnt(21931);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4]+1; @@ -94134,14 +100145,14 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]) error(257); _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]|=1; } } -if(!qbevent)break;evnt(21098);}while(r); +if(!qbevent)break;evnt(21932);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4]+1; @@ -94156,14 +100167,14 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]) error(257); _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]|=1; } } -if(!qbevent)break;evnt(21099);}while(r); +if(!qbevent)break;evnt(21933);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4]+1; @@ -94178,14 +100189,14 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]) error(257); _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]|=1; } } -if(!qbevent)break;evnt(21102);}while(r); +if(!qbevent)break;evnt(21936);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4]+1; @@ -94200,14 +100211,14 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]) error(257); _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]|=1; } } -if(!qbevent)break;evnt(21103);}while(r); +if(!qbevent)break;evnt(21937);}while(r); do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&2){ error(10); }else{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4]= 1 ; _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]=( 100 )-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4]+1; @@ -94222,2033 +100233,751 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]) error(257); _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]|=1; } } -if(!qbevent)break;evnt(21106);}while(r); +if(!qbevent)break;evnt(21940);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_N=FUNC_NUMELEMENTS(_FUNC_SEPERATEARGS_STRING_CA); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21108);}while(r); +if(!qbevent)break;evnt(21942);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I= 1 ; -if(!qbevent)break;evnt(21109);}while(r); +if(!qbevent)break;evnt(21943);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; -if(!qbevent)break;evnt(21111);}while(r); +if(!qbevent)break;evnt(21945);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; -if(!qbevent)break;evnt(21112);}while(r); -S_27611:; -fornext_value2940= 1 ; -fornext_finalvalue2940=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2940= 1 ; -if (fornext_step2940<0) fornext_step_negative2940=1; else fornext_step_negative2940=0; -if (new_error) goto fornext_error2940; -goto fornext_entrylabel2940; +if(!qbevent)break;evnt(21946);}while(r); +S_29028:; +fornext_value3141= 1 ; +fornext_finalvalue3141=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3141= 1 ; +if (fornext_step3141<0) fornext_step_negative3141=1; else fornext_step_negative3141=0; +if (new_error) goto fornext_error3141; +goto fornext_entrylabel3141; while(1){ -fornext_value2940=fornext_step2940+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel2940: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value2940; -if (fornext_step_negative2940){ -if (fornext_value2940fornext_finalvalue2940) break; +if (fornext_value3141>fornext_finalvalue3141) break; } -fornext_error2940:; -if(qbevent){evnt(21113);if(r)goto S_27611;} +fornext_error3141:; +if(qbevent){evnt(21947);if(r)goto S_29028;} LABEL_CONTINUESCAN:; -if(qbevent){evnt(21115);r=0;} -S_27612:; +if(qbevent){evnt(21949);r=0;} +S_29029:; if ((-(((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5])]<*_FUNC_SEPERATEARGS_LONG_LEVEL))||new_error){ -if(qbevent){evnt(21117);if(r)goto S_27612;} +if(qbevent){evnt(21951);if(r)goto S_29029;} do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5])]; -if(!qbevent)break;evnt(21119);}while(r); +if(!qbevent)break;evnt(21953);}while(r); } -S_27615:; +S_29032:; if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<=*_FUNC_SEPERATEARGS_LONG_LEVEL))||new_error){ -if(qbevent){evnt(21122);if(r)goto S_27615;} -S_27616:; +if(qbevent){evnt(21956);if(r)goto S_29032;} +S_29033:; if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]))||new_error){ -if(qbevent){evnt(21125);if(r)goto S_27616;} +if(qbevent){evnt(21959);if(r)goto S_29033;} do{ *_FUNC_SEPERATEARGS_LONG_OPTIONAL= 1 ; -if(!qbevent)break;evnt(21126);}while(r); -S_27618:; +if(!qbevent)break;evnt(21960);}while(r); +S_29035:; if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL>((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]))||new_error){ -if(qbevent){evnt(21127);if(r)goto S_27618;} +if(qbevent){evnt(21961);if(r)goto S_29035;} do{ *_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; -if(!qbevent)break;evnt(21127);}while(r); +if(!qbevent)break;evnt(21961);}while(r); } }else{ do{ *_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; -if(!qbevent)break;evnt(21130);}while(r); +if(!qbevent)break;evnt(21964);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_T=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; -if(!qbevent)break;evnt(21133);}while(r); -S_27625:; +if(!qbevent)break;evnt(21967);}while(r); +S_29042:; if ((-(*_FUNC_SEPERATEARGS_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(21135);if(r)goto S_27625;} -S_27626:; +if(qbevent){evnt(21969);if(r)goto S_29042;} +S_29043:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21136);if(r)goto S_27626;} +if(qbevent){evnt(21970);if(r)goto S_29043;} do{ goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21139);}while(r); +if(!qbevent)break;evnt(21973);}while(r); } -S_27629:; +S_29046:; if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ -if(qbevent){evnt(21142);if(r)goto S_27629;} +if(qbevent){evnt(21976);if(r)goto S_29046;} do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; -if(!qbevent)break;evnt(21143);}while(r); +if(!qbevent)break;evnt(21977);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21144);}while(r); +if(!qbevent)break;evnt(21978);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21145);}while(r); +if(!qbevent)break;evnt(21979);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21146);}while(r); +if(!qbevent)break;evnt(21980);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21147);}while(r); +if(!qbevent)break;evnt(21981);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21148);}while(r); +if(!qbevent)break;evnt(21982);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]; -if(!qbevent)break;evnt(21149);}while(r); +if(!qbevent)break;evnt(21983);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21151);}while(r); +if(!qbevent)break;evnt(21985);}while(r); } -S_27640:; +S_29057:; if ((*_FUNC_SEPERATEARGS_LONG_T)||new_error){ -if(qbevent){evnt(21154);if(r)goto S_27640;} +if(qbevent){evnt(21988);if(r)goto S_29057;} do{ *_FUNC_SEPERATEARGS_LONG_CURRENTLEV=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21156);}while(r); -S_27642:; +if(!qbevent)break;evnt(21990);}while(r); +S_29059:; if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ -if(qbevent){evnt(21159);if(r)goto S_27642;} +if(qbevent){evnt(21993);if(r)goto S_29059;} do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; -if(!qbevent)break;evnt(21160);}while(r); +if(!qbevent)break;evnt(21994);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21161);}while(r); +if(!qbevent)break;evnt(21995);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21162);}while(r); +if(!qbevent)break;evnt(21996);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21163);}while(r); +if(!qbevent)break;evnt(21997);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_EXPRESSION; -if(!qbevent)break;evnt(21164);}while(r); +if(!qbevent)break;evnt(21998);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21165);}while(r); +if(!qbevent)break;evnt(21999);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_I1=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21169);}while(r); +if(!qbevent)break;evnt(22003);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21169);}while(r); -S_27652:; +if(!qbevent)break;evnt(22003);}while(r); +S_29069:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21170);if(r)goto S_27652;} +if(qbevent){evnt(22004);if(r)goto S_29069;} do{ *_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_N; -if(!qbevent)break;evnt(21170);}while(r); +if(!qbevent)break;evnt(22004);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_OUTOFRANGE= 2147483647 ; -if(!qbevent)break;evnt(21174);}while(r); +if(!qbevent)break;evnt(22008);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE; -if(!qbevent)break;evnt(21175);}while(r); +if(!qbevent)break;evnt(22009);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_WHICH= 0 ; -if(!qbevent)break;evnt(21176);}while(r); -S_27658:; +if(!qbevent)break;evnt(22010);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 0 ; +if(!qbevent)break;evnt(22011);}while(r); +S_29076:; if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ -if(qbevent){evnt(21177);if(r)goto S_27658;} -S_27659:; -fornext_value2942= 1 ; -fornext_finalvalue2942=*_FUNC_SEPERATEARGS_LONG_T; -fornext_step2942= 1 ; -if (fornext_step2942<0) fornext_step_negative2942=1; else fornext_step_negative2942=0; -if (new_error) goto fornext_error2942; -goto fornext_entrylabel2942; +if(qbevent){evnt(22012);if(r)goto S_29076;} +S_29077:; +fornext_value3143= 1 ; +fornext_finalvalue3143=*_FUNC_SEPERATEARGS_LONG_T; +fornext_step3143= 1 ; +if (fornext_step3143<0) fornext_step_negative3143=1; else fornext_step_negative3143=0; +if (new_error) goto fornext_error3143; +goto fornext_entrylabel3143; while(1){ -fornext_value2942=fornext_step2942+(*_FUNC_SEPERATEARGS_LONG_O); -fornext_entrylabel2942: -*_FUNC_SEPERATEARGS_LONG_O=fornext_value2942; -if (fornext_step_negative2942){ -if (fornext_value2942fornext_finalvalue2942) break; +if (fornext_value3143>fornext_finalvalue3143) break; } -fornext_error2942:; -if(qbevent){evnt(21178);if(r)goto S_27659;} +fornext_error3143:; +if(qbevent){evnt(22013);if(r)goto S_29077;} do{ *_FUNC_SEPERATEARGS_LONG_WORDS=((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]]; -if(!qbevent)break;evnt(21179);}while(r); +if(!qbevent)break;evnt(22014);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_B= 0 ; -if(!qbevent)break;evnt(21180);}while(r); -S_27662:; -fornext_value2944=*_FUNC_SEPERATEARGS_LONG_I1; -fornext_finalvalue2944=*_FUNC_SEPERATEARGS_LONG_I2; -fornext_step2944= 1 ; -if (fornext_step2944<0) fornext_step_negative2944=1; else fornext_step_negative2944=0; -if (new_error) goto fornext_error2944; -goto fornext_entrylabel2944; +if(!qbevent)break;evnt(22015);}while(r); +S_29080:; +fornext_value3145=*_FUNC_SEPERATEARGS_LONG_I1; +fornext_finalvalue3145=*_FUNC_SEPERATEARGS_LONG_I2; +fornext_step3145= 1 ; +if (fornext_step3145<0) fornext_step_negative3145=1; else fornext_step_negative3145=0; +if (new_error) goto fornext_error3145; +goto fornext_entrylabel3145; while(1){ -fornext_value2944=fornext_step2944+(*_FUNC_SEPERATEARGS_LONG_I3); -fornext_entrylabel2944: -*_FUNC_SEPERATEARGS_LONG_I3=fornext_value2944; -if (fornext_step_negative2944){ -if (fornext_value2944fornext_finalvalue2944) break; +if (fornext_value3145>fornext_finalvalue3145) break; } -fornext_error2944:; -if(qbevent){evnt(21181);if(r)goto S_27662;} -S_27663:; +fornext_error3145:; +if(qbevent){evnt(22016);if(r)goto S_29080;} +S_29081:; if ((-((*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_WORDS- 1 )<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ -if(qbevent){evnt(21182);if(r)goto S_27663;} +if(qbevent){evnt(22017);if(r)goto S_29081;} do{ qbs_set(_FUNC_SEPERATEARGS_STRING_C,FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,_FUNC_SEPERATEARGS_LONG_I3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21183);}while(r); -S_27665:; +if(!qbevent)break;evnt(22018);}while(r); +S_29083:; if ((-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(21184);if(r)goto S_27665;} -S_27666:; -fornext_value2946= 2 ; -fornext_finalvalue2946=*_FUNC_SEPERATEARGS_LONG_WORDS; -fornext_step2946= 1 ; -if (fornext_step2946<0) fornext_step_negative2946=1; else fornext_step_negative2946=0; -if (new_error) goto fornext_error2946; -goto fornext_entrylabel2946; +if(qbevent){evnt(22019);if(r)goto S_29083;} +S_29084:; +fornext_value3147= 2 ; +fornext_finalvalue3147=*_FUNC_SEPERATEARGS_LONG_WORDS; +fornext_step3147= 1 ; +if (fornext_step3147<0) fornext_step_negative3147=1; else fornext_step_negative3147=0; +if (new_error) goto fornext_error3147; +goto fornext_entrylabel3147; while(1){ -fornext_value2946=fornext_step2946+(*_FUNC_SEPERATEARGS_LONG_W); -fornext_entrylabel2946: -*_FUNC_SEPERATEARGS_LONG_W=fornext_value2946; -if (fornext_step_negative2946){ -if (fornext_value2946fornext_finalvalue2946) break; +if (fornext_value3147>fornext_finalvalue3147) break; } -fornext_error2946:; -if(qbevent){evnt(21186);if(r)goto S_27666;} +fornext_error3147:; +if(qbevent){evnt(22021);if(r)goto S_29084;} do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_C,qbs_add(qbs_add(_FUNC_SEPERATEARGS_STRING_C,qbs_new_txt_len(" ",1)),FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,&(pass2947=*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_W- 1 )))); +qbs_set(_FUNC_SEPERATEARGS_STRING_C,qbs_add(qbs_add(_FUNC_SEPERATEARGS_STRING_C,qbs_new_txt_len(" ",1)),FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,&(pass3148=*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_W- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21187);}while(r); -fornext_continue_2945:; +if(!qbevent)break;evnt(22022);}while(r); +fornext_continue_3146:; } -fornext_exit_2945:; -S_27669:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))))||new_error){ -if(qbevent){evnt(21190);if(r)goto S_27669;} -S_27670:; +fornext_exit_3146:; +do{ +*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH=(qbs_equal(qbs_left(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)), 2 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22025);}while(r); +S_29088:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_ucase(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))))|*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH))||new_error){ +if(qbevent){evnt(22026);if(r)goto S_29088;} +S_29089:; if ((-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_POSITION))||new_error){ -if(qbevent){evnt(21192);if(r)goto S_27670;} +if(qbevent){evnt(22028);if(r)goto S_29089;} do{ *_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_I3; -if(!qbevent)break;evnt(21193);}while(r); +if(!qbevent)break;evnt(22029);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_WHICH=*_FUNC_SEPERATEARGS_LONG_O; -if(!qbevent)break;evnt(21194);}while(r); +if(!qbevent)break;evnt(22030);}while(r); +S_29092:; +if ((*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH)||new_error){ +if(qbevent){evnt(22031);if(r)goto S_29092;} +do{ +*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 1 ; +if(!qbevent)break;evnt(22031);}while(r); +} do{ *_FUNC_SEPERATEARGS_LONG_BVALUE=*_FUNC_SEPERATEARGS_LONG_B; -if(!qbevent)break;evnt(21195);}while(r); +if(!qbevent)break;evnt(22032);}while(r); do{ -goto fornext_exit_2943; -if(!qbevent)break;evnt(21196);}while(r); +goto fornext_exit_3144; +if(!qbevent)break;evnt(22033);}while(r); } } } -S_27678:; +S_29100:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(21201);if(r)goto S_27678;} +if(qbevent){evnt(22038);if(r)goto S_29100;} do{ -goto fornext_exit_2943; -if(!qbevent)break;evnt(21202);}while(r); +goto fornext_exit_3144; +if(!qbevent)break;evnt(22039);}while(r); } -S_27681:; +S_29103:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ -if(qbevent){evnt(21205);if(r)goto S_27681;} +if(qbevent){evnt(22042);if(r)goto S_29103;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; -if(!qbevent)break;evnt(21206);}while(r); +if(!qbevent)break;evnt(22043);}while(r); } -S_27684:; +S_29106:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ -if(qbevent){evnt(21208);if(r)goto S_27684;} +if(qbevent){evnt(22045);if(r)goto S_29106;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; -if(!qbevent)break;evnt(21209);}while(r); -S_27686:; +if(!qbevent)break;evnt(22046);}while(r); +S_29108:; if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ -if(qbevent){evnt(21210);if(r)goto S_27686;} +if(qbevent){evnt(22047);if(r)goto S_29108;} do{ -goto fornext_exit_2943; -if(!qbevent)break;evnt(21210);}while(r); +goto fornext_exit_3144; +if(!qbevent)break;evnt(22047);}while(r); } } } -fornext_continue_2943:; +fornext_continue_3144:; } -fornext_exit_2943:; -fornext_continue_2941:; +fornext_exit_3144:; +fornext_continue_3142:; } -fornext_exit_2941:; +fornext_exit_3142:; } -S_27694:; +S_29116:; if ((-(*_FUNC_SEPERATEARGS_LONG_POSITION!=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE))||new_error){ -if(qbevent){evnt(21218);if(r)goto S_27694;} +if(qbevent){evnt(22055);if(r)goto S_29116;} do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]; -if(!qbevent)break;evnt(21220);}while(r); -S_27696:; +if(!qbevent)break;evnt(22057);}while(r); +S_29118:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21221);if(r)goto S_27696;} -S_27697:; +if(qbevent){evnt(22058);if(r)goto S_29118;} +S_29119:; if (((-(*_FUNC_SEPERATEARGS_LONG_POSITION>*_FUNC_SEPERATEARGS_LONG_I))&(-(*_FUNC_SEPERATEARGS_LONG_BVALUE== 0 )))||new_error){ -if(qbevent){evnt(21224);if(r)goto S_27697;} +if(qbevent){evnt(22061);if(r)goto S_29119;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,&(pass2948=*_FUNC_SEPERATEARGS_LONG_POSITION- 1 ))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,&(pass3149=*_FUNC_SEPERATEARGS_LONG_POSITION- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21226);}while(r); +if(!qbevent)break;evnt(22063);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; -if(!qbevent)break;evnt(21227);}while(r); +if(!qbevent)break;evnt(22064);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_POSITION; -if(!qbevent)break;evnt(21228);}while(r); +if(!qbevent)break;evnt(22065);}while(r); }else{ do{ goto LABEL_OPTCHECKBACKTRACK; -if(!qbevent)break;evnt(21232);}while(r); +if(!qbevent)break;evnt(22069);}while(r); } } do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]]; -if(!qbevent)break;evnt(21236);}while(r); +if(!qbevent)break;evnt(22073);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(func_chr(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))->len)),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(func_chr(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))->len)-*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX),FUNC_SCASE(func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX+ 1 ,NULL,0)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21237);}while(r); +if(!qbevent)break;evnt(22074);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_add(func_chr( 0 ),FUNC_STR2(_FUNC_SEPERATEARGS_LONG_WHICH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21238);}while(r); +if(!qbevent)break;evnt(22075);}while(r); }else{ LABEL_OPTCHECKBACKTRACK:; -if(qbevent){evnt(21242);r=0;} -S_27709:; +if(qbevent){evnt(22079);r=0;} +S_29131:; if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]>((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]))||new_error){ -if(qbevent){evnt(21244);if(r)goto S_27709;} +if(qbevent){evnt(22081);if(r)goto S_29131;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21247);}while(r); +if(!qbevent)break;evnt(22084);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_CURRENTLEV; -if(!qbevent)break;evnt(21248);}while(r); +if(!qbevent)break;evnt(22085);}while(r); }else{ LABEL_BACKTRACK:; -if(qbevent){evnt(21250);r=0;} -S_27713:; -fornext_value2950=*_FUNC_SEPERATEARGS_LONG_BRANCHES; -fornext_finalvalue2950= 1 ; -fornext_step2950= -1 ; -if (fornext_step2950<0) fornext_step_negative2950=1; else fornext_step_negative2950=0; -if (new_error) goto fornext_error2950; -goto fornext_entrylabel2950; +if(qbevent){evnt(22087);r=0;} +S_29135:; +fornext_value3151=*_FUNC_SEPERATEARGS_LONG_BRANCHES; +fornext_finalvalue3151= 1 ; +fornext_step3151= -1 ; +if (fornext_step3151<0) fornext_step_negative3151=1; else fornext_step_negative3151=0; +if (new_error) goto fornext_error3151; +goto fornext_entrylabel3151; while(1){ -fornext_value2950=fornext_step2950+(*_FUNC_SEPERATEARGS_LONG_BRANCH); -fornext_entrylabel2950: -*_FUNC_SEPERATEARGS_LONG_BRANCH=fornext_value2950; -if (fornext_step_negative2950){ -if (fornext_value2950fornext_finalvalue2950) break; +if (fornext_value3151>fornext_finalvalue3151) break; } -fornext_error2950:; -if(qbevent){evnt(21253);if(r)goto S_27713;} -S_27714:; +fornext_error3151:; +if(qbevent){evnt(22090);if(r)goto S_29135;} +S_29136:; if ((((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCH)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5])])||new_error){ -if(qbevent){evnt(21254);if(r)goto S_27714;} +if(qbevent){evnt(22091);if(r)goto S_29136;} do{ -goto fornext_exit_2949; -if(!qbevent)break;evnt(21254);}while(r); +goto fornext_exit_3150; +if(!qbevent)break;evnt(22091);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES- 1 ; -if(!qbevent)break;evnt(21255);}while(r); -fornext_continue_2949:; +if(!qbevent)break;evnt(22092);}while(r); +fornext_continue_3150:; } -fornext_exit_2949:; -S_27719:; +fornext_exit_3150:; +S_29141:; if ((-(*_FUNC_SEPERATEARGS_LONG_BRANCHES== 0 ))||new_error){ -if(qbevent){evnt(21257);if(r)goto S_27719;} +if(qbevent){evnt(22094);if(r)goto S_29141;} do{ *__LONG_SEPERATEARGS_ERROR= 1 ; -if(!qbevent)break;evnt(21258);}while(r); +if(!qbevent)break;evnt(22095);}while(r); do{ qbs_set(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_new_txt_len("Syntax error",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21259);}while(r); +if(!qbevent)break;evnt(22096);}while(r); +S_29144:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(2861)))->len> 0 )))||new_error){ +if(qbevent){evnt(22097);if(r)goto S_29144;} +do{ +qbs_set(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_add(qbs_add(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_new_txt_len(" - Reference: ",14)),*((qbs**)((char*)_FUNC_SEPERATEARGS_UDT_ID2+(2861))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22097);}while(r); +} do{ goto exit_subfunc; -if(!qbevent)break;evnt(21260);}while(r); +if(!qbevent)break;evnt(22098);}while(r); } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21263);}while(r); +if(!qbevent)break;evnt(22101);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_EXPRESSION=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5])]; -if(!qbevent)break;evnt(21264);}while(r); +if(!qbevent)break;evnt(22102);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_I=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5])]; -if(!qbevent)break;evnt(21265);}while(r); +if(!qbevent)break;evnt(22103);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_X=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5])]; -if(!qbevent)break;evnt(21266);}while(r); +if(!qbevent)break;evnt(22104);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_LEVEL=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5])]; -if(!qbevent)break;evnt(21267);}while(r); -S_27729:; +if(!qbevent)break;evnt(22105);}while(r); +S_29154:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21269);if(r)goto S_27729;} +if(qbevent){evnt(22107);if(r)goto S_29154;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21269);}while(r); +if(!qbevent)break;evnt(22107);}while(r); } -S_27732:; -fornext_value2952=*_FUNC_SEPERATEARGS_LONG_X; -fornext_finalvalue2952=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2952= 1 ; -if (fornext_step2952<0) fornext_step_negative2952=1; else fornext_step_negative2952=0; -if (new_error) goto fornext_error2952; -goto fornext_entrylabel2952; +S_29157:; +fornext_value3153=*_FUNC_SEPERATEARGS_LONG_X; +fornext_finalvalue3153=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3153= 1 ; +if (fornext_step3153<0) fornext_step_negative3153=1; else fornext_step_negative3153=0; +if (new_error) goto fornext_error3153; +goto fornext_entrylabel3153; while(1){ -fornext_value2952=fornext_step2952+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel2952: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value2952; -if (fornext_step_negative2952){ -if (fornext_value2952fornext_finalvalue2952) break; +if (fornext_value3153>fornext_finalvalue3153) break; } -fornext_error2952:; -if(qbevent){evnt(21270);if(r)goto S_27732;} +fornext_error3153:; +if(qbevent){evnt(22108);if(r)goto S_29157;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21271);}while(r); +if(!qbevent)break;evnt(22109);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21272);}while(r); -fornext_continue_2951:; +if(!qbevent)break;evnt(22110);}while(r); +fornext_continue_3152:; } -fornext_exit_2951:; +fornext_exit_3152:; } } } } -fornext_continue_2939:; +fornext_continue_3140:; } -fornext_exit_2939:; -S_27741:; +fornext_exit_3140:; +S_29166:; if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21286);if(r)goto S_27741;} -S_27742:; +if(qbevent){evnt(22124);if(r)goto S_29166;} +S_29167:; if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ -if(qbevent){evnt(21287);if(r)goto S_27742;} +if(qbevent){evnt(22125);if(r)goto S_29167;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_LONG_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21288);}while(r); +if(!qbevent)break;evnt(22126);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_B= 0 ; -if(!qbevent)break;evnt(21292);}while(r); -S_27745:; -fornext_value2954=*_FUNC_SEPERATEARGS_LONG_I; -fornext_finalvalue2954=*_FUNC_SEPERATEARGS_LONG_N; -fornext_step2954= 1 ; -if (fornext_step2954<0) fornext_step_negative2954=1; else fornext_step_negative2954=0; -if (new_error) goto fornext_error2954; -goto fornext_entrylabel2954; +if(!qbevent)break;evnt(22130);}while(r); +S_29170:; +fornext_value3155=*_FUNC_SEPERATEARGS_LONG_I; +fornext_finalvalue3155=*_FUNC_SEPERATEARGS_LONG_N; +fornext_step3155= 1 ; +if (fornext_step3155<0) fornext_step_negative3155=1; else fornext_step_negative3155=0; +if (new_error) goto fornext_error3155; +goto fornext_entrylabel3155; while(1){ -fornext_value2954=fornext_step2954+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel2954: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value2954; -if (fornext_step_negative2954){ -if (fornext_value2954fornext_finalvalue2954) break; +if (fornext_value3155>fornext_finalvalue3155) break; } -fornext_error2954:; -if(qbevent){evnt(21293);if(r)goto S_27745;} +fornext_error3155:; +if(qbevent){evnt(22131);if(r)goto S_29170;} do{ qbs_set(_FUNC_SEPERATEARGS_STRING_C,FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,_FUNC_SEPERATEARGS_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21294);}while(r); -S_27747:; +if(!qbevent)break;evnt(22132);}while(r); +S_29172:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(21295);if(r)goto S_27747;} +if(qbevent){evnt(22133);if(r)goto S_29172;} do{ goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21296);}while(r); +if(!qbevent)break;evnt(22134);}while(r); } -S_27750:; +S_29175:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ -if(qbevent){evnt(21298);if(r)goto S_27750;} +if(qbevent){evnt(22136);if(r)goto S_29175;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; -if(!qbevent)break;evnt(21299);}while(r); +if(!qbevent)break;evnt(22137);}while(r); } -S_27753:; +S_29178:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ -if(qbevent){evnt(21301);if(r)goto S_27753;} +if(qbevent){evnt(22139);if(r)goto S_29178;} do{ *_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; -if(!qbevent)break;evnt(21302);}while(r); -S_27755:; +if(!qbevent)break;evnt(22140);}while(r); +S_29180:; if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ -if(qbevent){evnt(21303);if(r)goto S_27755;} +if(qbevent){evnt(22141);if(r)goto S_29180;} do{ goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21303);}while(r); +if(!qbevent)break;evnt(22141);}while(r); } } -fornext_continue_2953:; +fornext_continue_3154:; } -fornext_exit_2953:; -S_27760:; +fornext_exit_3154:; +S_29185:; if ((-(*_FUNC_SEPERATEARGS_LONG_B!= 0 ))||new_error){ -if(qbevent){evnt(21306);if(r)goto S_27760;} +if(qbevent){evnt(22144);if(r)goto S_29185;} do{ goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21306);}while(r); +if(!qbevent)break;evnt(22144);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_N+ 1 ; -if(!qbevent)break;evnt(21308);}while(r); +if(!qbevent)break;evnt(22146);}while(r); }else{ do{ goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21310);}while(r); +if(!qbevent)break;evnt(22148);}while(r); } } -S_27768:; +S_29193:; if ((-(*_FUNC_SEPERATEARGS_LONG_I!=(*_FUNC_SEPERATEARGS_LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(21314);if(r)goto S_27768;} +if(qbevent){evnt(22152);if(r)goto S_29193;} do{ goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21314);}while(r); +if(!qbevent)break;evnt(22152);}while(r); } -S_27771:; +S_29196:; if (( 0 )||new_error){ -if(qbevent){evnt(21316);if(r)goto S_27771;} +if(qbevent){evnt(22154);if(r)goto S_29196;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2955; +if (new_error) goto skip3156; sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #2--------",44), 0 , 0 , 1 ); -if (new_error) goto skip2955; -skip2955: +if (new_error) goto skip3156; +skip3156: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21317);}while(r); -S_27773:; -fornext_value2957= 1 ; -fornext_finalvalue2957=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2957= 1 ; -if (fornext_step2957<0) fornext_step_negative2957=1; else fornext_step_negative2957=0; -if (new_error) goto fornext_error2957; -goto fornext_entrylabel2957; +if(!qbevent)break;evnt(22155);}while(r); +S_29198:; +fornext_value3158= 1 ; +fornext_finalvalue3158=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3158= 1 ; +if (fornext_step3158<0) fornext_step_negative3158=1; else fornext_step_negative3158=0; +if (new_error) goto fornext_error3158; +goto fornext_entrylabel3158; while(1){ -fornext_value2957=fornext_step2957+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2957: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2957; -if (fornext_step_negative2957){ -if (fornext_value2957fornext_finalvalue2957) break; +if (fornext_value3158>fornext_finalvalue3158) break; } -fornext_error2957:; -if(qbevent){evnt(21318);if(r)goto S_27773;} +fornext_error3158:; +if(qbevent){evnt(22156);if(r)goto S_29198;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2958; +if (new_error) goto skip3159; sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1 , 1 , 0 ); -if (new_error) goto skip2958; +if (new_error) goto skip3159; sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])), 0 , 0 , 1 ); -if (new_error) goto skip2958; -skip2958: +if (new_error) goto skip3159; +skip3159: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(21319);}while(r); -fornext_continue_2956:; +if(!qbevent)break;evnt(22157);}while(r); +fornext_continue_3157:; } -fornext_exit_2956:; +fornext_exit_3157:; } -S_27777:; +S_29202:; if ((-(*_FUNC_SEPERATEARGS_LONG_PASSFLAG!= 1 ))||new_error){ -if(qbevent){evnt(21330);if(r)goto S_27777;} +if(qbevent){evnt(22168);if(r)goto S_29202;} do{ *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS= 1 ; -if(!qbevent)break;evnt(21330);}while(r); +if(!qbevent)break;evnt(22168);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_PASS= 0 ; -if(!qbevent)break;evnt(21331);}while(r); +if(!qbevent)break;evnt(22169);}while(r); do{ *_FUNC_SEPERATEARGS_LONG_X= 1 ; -if(!qbevent)break;evnt(21334);}while(r); -S_27782:; -fornext_value2960= 1 ; -fornext_finalvalue2960=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step2960= 1 ; -if (fornext_step2960<0) fornext_step_negative2960=1; else fornext_step_negative2960=0; -if (new_error) goto fornext_error2960; -goto fornext_entrylabel2960; +if(!qbevent)break;evnt(22172);}while(r); +S_29207:; +fornext_value3161= 1 ; +fornext_finalvalue3161=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3161= 1 ; +if (fornext_step3161<0) fornext_step_negative3161=1; else fornext_step_negative3161=0; +if (new_error) goto fornext_error3161; +goto fornext_entrylabel3161; while(1){ -fornext_value2960=fornext_step2960+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel2960: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value2960; -if (fornext_step_negative2960){ -if (fornext_value2960fornext_finalvalue2960) break; +if (fornext_value3161>fornext_finalvalue3161) break; } -fornext_error2960:; -if(qbevent){evnt(21336);if(r)goto S_27782;} -S_27783:; +fornext_error3161:; +if(qbevent){evnt(22174);if(r)goto S_29207;} +S_29208:; if ((-(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])]== 0 ))||new_error){ -if(qbevent){evnt(21338);if(r)goto S_27783;} -S_27784:; +if(qbevent){evnt(22176);if(r)goto S_29208;} +S_29209:; if ((-(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]> 0 ))||new_error){ -if(qbevent){evnt(21340);if(r)goto S_27784;} -S_27785:; +if(qbevent){evnt(22178);if(r)goto S_29209;} +S_29210:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ -if(qbevent){evnt(21341);if(r)goto S_27785;} +if(qbevent){evnt(22179);if(r)goto S_29210;} do{ *_FUNC_SEPERATEARGS_LONG_PASS=*_FUNC_SEPERATEARGS_LONG_PASS|((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]; -if(!qbevent)break;evnt(21341);}while(r); +if(!qbevent)break;evnt(22179);}while(r); } } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21344);}while(r); +if(!qbevent)break;evnt(22182);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21345);}while(r); -S_27791:; +if(!qbevent)break;evnt(22183);}while(r); +S_29216:; if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))->len))||new_error){ -if(qbevent){evnt(21347);if(r)goto S_27791;} -S_27792:; +if(qbevent){evnt(22185);if(r)goto S_29216;} +S_29217:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])))== 0 )))||new_error){ -if(qbevent){evnt(21348);if(r)goto S_27792;} +if(qbevent){evnt(22186);if(r)goto S_29217;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21350);}while(r); +if(!qbevent)break;evnt(22188);}while(r); do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])),func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21351);}while(r); +if(!qbevent)break;evnt(22189);}while(r); } } -S_27797:; +S_29222:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ -if(qbevent){evnt(21355);if(r)goto S_27797;} +if(qbevent){evnt(22193);if(r)goto S_29222;} do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("N-LL",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21355);}while(r); +if(!qbevent)break;evnt(22193);}while(r); } do{ *_FUNC_SEPERATEARGS_LONG_X=*_FUNC_SEPERATEARGS_LONG_X+ 1 ; -if(!qbevent)break;evnt(21356);}while(r); +if(!qbevent)break;evnt(22194);}while(r); }else{ -S_27802:; +S_29227:; if ((-(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]> 0 ))||new_error){ -if(qbevent){evnt(21363);if(r)goto S_27802;} -S_27803:; +if(qbevent){evnt(22201);if(r)goto S_29227;} +S_29228:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ -if(qbevent){evnt(21364);if(r)goto S_27803;} +if(qbevent){evnt(22202);if(r)goto S_29228;} do{ *_FUNC_SEPERATEARGS_LONG_PASS=*_FUNC_SEPERATEARGS_LONG_PASS|((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]; -if(!qbevent)break;evnt(21364);}while(r); +if(!qbevent)break;evnt(22202);}while(r); } } do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21367);}while(r); +if(!qbevent)break;evnt(22205);}while(r); } -fornext_continue_2959:; +fornext_continue_3160:; } -fornext_exit_2959:; +fornext_exit_3160:; do{ tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21371);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free40.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS; -} -void SUB_SETREFER(qbs*_SUB_SETREFER_STRING_A2,int32*_SUB_SETREFER_LONG_TYP2,qbs*_SUB_SETREFER_STRING_E2,int32*_SUB_SETREFER_LONG_METHOD){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data41.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21381);}while(r); -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP2; -if(!qbevent)break;evnt(21381);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21381);}while(r); -S_27814:; -if ((-(*_SUB_SETREFER_LONG_METHOD!= 1 ))||new_error){ -if(qbevent){evnt(21382);if(r)goto S_27814;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21382);}while(r); -} -S_27817:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21383);if(r)goto S_27817;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21383);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_TL,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21384);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21392);}while(r); -S_27822:; -if ((*_SUB_SETREFER_LONG_I)||new_error){ -if(qbevent){evnt(21393);if(r)goto S_27822;} -do{ -*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_SUB_SETREFER_STRING_A,*_SUB_SETREFER_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21394);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21394);}while(r); -}else{ -do{ -*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(_SUB_SETREFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21396);}while(r); -} -do{ -SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER); -if(!qbevent)break;evnt(21398);}while(r); -S_27829:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21399);if(r)goto S_27829;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21399);}while(r); -} -S_27832:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(21402);if(r)goto S_27832;} -do{ -*_SUB_SETREFER_LONG_U=qbr(func_val(_SUB_SETREFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21405);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21406);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21406);}while(r); -do{ -*__LONG_E=qbr(func_val(_SUB_SETREFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21406);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21407);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_O,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21407);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21408);}while(r); -S_27840:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(21408);if(r)goto S_27840;} -do{ -qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21408);}while(r); -} -S_27843:; -if ((-(*__LONG_CLOUD== 0 ))||new_error){ -if(qbevent){evnt(21410);if(r)goto S_27843;} -S_27844:; -if (((-(*__LONG_E!= 0 ))&(-(*_SUB_SETREFER_LONG_U== 1 )))||new_error){ -if(qbevent){evnt(21411);if(r)goto S_27844;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot set read-only element of _MEM TYPE",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21412);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21412);}while(r); -} -} -S_27849:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(21416);if(r)goto S_27849;} -S_27850:; -if ((-(*_SUB_SETREFER_LONG_METHOD!= 0 ))||new_error){ -if(qbevent){evnt(21419);if(r)goto S_27850;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected internal code reference to UDT",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21419);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21419);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_LHSSCOPE,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21420);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATE(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21421);}while(r); -S_27856:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21422);if(r)goto S_27856;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21422);}while(r); -} -S_27859:; -if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(21423);if(r)goto S_27859;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21423);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21423);}while(r); -} -S_27863:; -if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(21425);if(r)goto S_27863;} -S_27864:; -if ((*_SUB_SETREFER_LONG_T2&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(21426);if(r)goto S_27864;} -do{ -qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21427);}while(r); -do{ -*_SUB_SETREFER_LONG_E2= 0 ; -if(!qbevent)break;evnt(21428);}while(r); -do{ -*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; -if(!qbevent)break;evnt(21428);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)&",9),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21430);}while(r); -do{ -*_SUB_SETREFER_LONG_E2= 0 ; -if(!qbevent)break;evnt(21431);}while(r); -do{ -*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; -if(!qbevent)break;evnt(21431);}while(r); -} -do{ -goto LABEL_DIRECTUDT; -if(!qbevent)break;evnt(21433);}while(r); -} -do{ -*_SUB_SETREFER_LONG_IDNUMBER2=qbr(func_val(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21437);}while(r); -do{ -SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER2); -if(!qbevent)break;evnt(21438);}while(r); -S_27877:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21441);if(r)goto S_27877;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21441);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21442);}while(r); -S_27881:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(21442);if(r)goto S_27881;} -do{ -qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N2),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21442);}while(r); -} -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21443);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21443);}while(r); -do{ -*_SUB_SETREFER_LONG_U2=qbr(func_val(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21443);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21444);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21444);}while(r); -do{ -*_SUB_SETREFER_LONG_E2=qbr(func_val(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21444);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21445);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_O2,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21445);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),_SUB_SETREFER_STRING_N2),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21450);}while(r); -LABEL_DIRECTUDT:; -if(qbevent){evnt(21451);r=0;} -S_27893:; -if (((-(*_SUB_SETREFER_LONG_U!=*_SUB_SETREFER_LONG_U2))|(-(*_SUB_SETREFER_LONG_E2!= 0 )))||new_error){ -if(qbevent){evnt(21452);if(r)goto S_27893;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21452);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21452);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_LHSSCOPE),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21453);}while(r); -do{ -SUB_COPY_FULL_UDT(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,&(pass2971= 12 ),&(pass2972= 0 ),_SUB_SETREFER_LONG_U); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21455);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21459);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21460);}while(r); -} -S_27902:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(21464);if(r)goto S_27902;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types yet",65)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21464);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21464);}while(r); -} -S_27906:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(21465);if(r)goto S_27906;} -S_27907:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(21466);if(r)goto S_27907;} -do{ -qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21467);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21468);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((",11),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21470);}while(r); -} -S_27913:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21472);if(r)goto S_27913;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass2973=*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21472);}while(r); -} -S_27916:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21473);if(r)goto S_27916;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21473);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2974; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2974; -skip2974: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21474);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2975; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip2975; -skip2975: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21475);}while(r); -}else{ -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21477);}while(r); -S_27923:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(21478);if(r)goto S_27923;} -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISARRAY; -if(!qbevent)break;evnt(21478);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_T,FUNC_TYP2CTYP(_SUB_SETREFER_LONG_TYP,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21479);}while(r); -S_27927:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21480);if(r)goto S_27927;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21480);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21481);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)",2)),_SUB_SETREFER_STRING_O2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21482);}while(r); -S_27932:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21483);if(r)goto S_27932;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21483);}while(r); -} -S_27935:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21484);if(r)goto S_27935;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21484);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2976; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2976; -skip2976: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21485);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21489);}while(r); -S_27941:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(21490);if(r)goto S_27941;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21490);}while(r); -} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),qbs_add(FUNC_SCOPE(),_SUB_SETREFER_STRING_N),&(pass2977= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21491);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21492);}while(r); -} -S_27947:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(21497);if(r)goto S_27947;} -do{ -qbs_set(_SUB_SETREFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21498);}while(r); -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(21499);}while(r); -S_27950:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(21501);if(r)goto S_27950;} -S_27951:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(21502);if(r)goto S_27951;} -do{ -qbs_set(_SUB_SETREFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long*",15)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21503);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21504);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2978; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2978; -skip2978: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21505);}while(r); -S_27955:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21506);if(r)goto S_27955;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21507);}while(r); -S_27957:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21508);if(r)goto S_27957;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21508);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21510);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2979; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2979; -skip2979: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21512);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2980; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2980; -skip2980: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21514);}while(r); -S_27966:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21515);if(r)goto S_27966;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21516);}while(r); -S_27968:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21517);if(r)goto S_27968;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21517);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21519);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2981; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2981; -skip2981: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21521);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2982; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip2982; -skip2982: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21523);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21524);}while(r); -S_27978:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(21525);if(r)goto S_27978;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21525);}while(r); -} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass2983= 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21526);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21527);}while(r); -} -S_27984:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(21530);if(r)goto S_27984;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("setbits(",8),FUNC_STR2(&(pass2984=*_SUB_SETREFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21532);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",tmp_long,",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21533);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2985; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2985; -skip2985: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21534);}while(r); -S_27988:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21535);if(r)goto S_27988;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21536);}while(r); -S_27990:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21537);if(r)goto S_27990;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21537);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21539);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2986; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2986; -skip2986: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21541);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21542);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21543);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21545);}while(r); -S_28001:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(21546);if(r)goto S_28001;} -S_28002:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(21547);if(r)goto S_28002;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21547);}while(r); -} -S_28005:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(21548);if(r)goto S_28005;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21548);}while(r); -} -S_28008:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 256 ))||new_error){ -if(qbevent){evnt(21549);if(r)goto S_28008;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21549);}while(r); -} -}else{ -S_28012:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(21551);if(r)goto S_28012;} -S_28013:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(21552);if(r)goto S_28013;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21552);}while(r); -} -S_28016:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(21553);if(r)goto S_28016;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint16",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21553);}while(r); -} -S_28019:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(21554);if(r)goto S_28019;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21554);}while(r); -} -S_28022:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(21555);if(r)goto S_28022;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint64",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21555);}while(r); -} -S_28025:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(21556);if(r)goto S_28025;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21556);}while(r); -} -}else{ -S_28029:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(21558);if(r)goto S_28029;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21558);}while(r); -} -S_28032:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(21559);if(r)goto S_28032;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21559);}while(r); -} -S_28035:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(21560);if(r)goto S_28035;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21560);}while(r); -} -S_28038:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(21561);if(r)goto S_28038;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21561);}while(r); -} -S_28041:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(21562);if(r)goto S_28041;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21562);}while(r); -} -} -} -} -S_28047:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(21566);if(r)goto S_28047;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21566);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21566);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2987; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip2987; -skip2987: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21567);}while(r); -S_28052:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21568);if(r)goto S_28052;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21569);}while(r); -S_28054:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21570);if(r)goto S_28054;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21570);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21572);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2988; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2988; -skip2988: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21575);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21576);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21577);}while(r); -} -S_28064:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(21581);if(r)goto S_28064;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21582);}while(r); -do{ -*_SUB_SETREFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(21583);}while(r); -S_28067:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(21585);if(r)goto S_28067;} -do{ -*_SUB_SETREFER_LONG_T=*_SUB_SETREFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(21585);}while(r); -} -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_T; -if(!qbevent)break;evnt(21586);}while(r); -S_28071:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(21589);if(r)goto S_28071;} -S_28072:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(21590);if(r)goto S_28072;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21591);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21593);}while(r); -} -S_28077:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21595);if(r)goto S_28077;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21595);}while(r); -} -S_28080:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21596);if(r)goto S_28080;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21596);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2989; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip2989; -skip2989: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21597);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2990; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip2990; -skip2990: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21598);}while(r); -S_28085:; -if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(21599);if(r)goto S_28085;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(21599);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21600);}while(r); -S_28089:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(21601);if(r)goto S_28089;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21601);}while(r); -} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass2991= 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21602);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21603);}while(r); -} -S_28095:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(21607);if(r)goto S_28095;} -do{ -*_SUB_SETREFER_LONG_B=*_SUB_SETREFER_LONG_T& 511 ; -if(!qbevent)break;evnt(21608);}while(r); -S_28097:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(21609);if(r)goto S_28097;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass2992=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21610);}while(r); -S_28099:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21611);if(r)goto S_28099;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass2993= 64 +*__LONG_ISUNSIGNED))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21611);}while(r); -} -S_28102:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21612);if(r)goto S_28102;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21612);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=(",2)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass2994=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21613);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2995; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2995; -skip2995: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21614);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass2996=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21616);}while(r); -S_28109:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21617);if(r)goto S_28109;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass2997= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21617);}while(r); -} -S_28112:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21618);if(r)goto S_28112;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21618);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_SUB_SETREFER_STRING_R),qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass2998=qbr(pow2( 2 ,(*_SUB_SETREFER_LONG_B- 1 )))))),qbs_new_txt_len("){",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21619);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip2999; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip2999; -skip2999: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21620);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("|=",2)),FUNC_STR2(&(pass3000=((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5])]))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21622);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3001; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip3001; -skip3001: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21623);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3002; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip3002; -skip3002: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21624);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("&=",2)),FUNC_STR2(&(pass3003=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21626);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3004; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip3004; -skip3004: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21627);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3005; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip3005; -skip3005: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21628);}while(r); -} -S_28124:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(21630);if(r)goto S_28124;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3006; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3006; -skip3006: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21630);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(21630);}while(r); -} -S_28128:; -if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(21631);if(r)goto S_28128;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(21631);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21632);}while(r); -S_28132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(21633);if(r)goto S_28132;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21633);}while(r); -} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass3007= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21634);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21635);}while(r); -} -S_28138:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_BYTETYPE))||new_error){ -if(qbevent){evnt(21639);if(r)goto S_28138;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21639);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21639);}while(r); -} -S_28142:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ -if(qbevent){evnt(21640);if(r)goto S_28142;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21640);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21640);}while(r); -} -S_28146:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ -if(qbevent){evnt(21641);if(r)goto S_28146;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21641);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21641);}while(r); -} -S_28150:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ -if(qbevent){evnt(21642);if(r)goto S_28150;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21642);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21642);}while(r); -} -S_28154:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_LONGTYPE))||new_error){ -if(qbevent){evnt(21643);if(r)goto S_28154;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21643);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21643);}while(r); -} -S_28158:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ -if(qbevent){evnt(21644);if(r)goto S_28158;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21644);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21644);}while(r); -} -S_28162:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ -if(qbevent){evnt(21645);if(r)goto S_28162;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21645);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21645);}while(r); -} -S_28166:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ -if(qbevent){evnt(21646);if(r)goto S_28166;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21646);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21646);}while(r); -} -S_28170:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ -if(qbevent){evnt(21647);if(r)goto S_28170;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21647);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21647);}while(r); -} -S_28174:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ -if(qbevent){evnt(21648);if(r)goto S_28174;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21648);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21648);}while(r); -} -S_28178:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ -if(qbevent){evnt(21649);if(r)goto S_28178;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21649);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21649);}while(r); -} -S_28182:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ -if(qbevent){evnt(21650);if(r)goto S_28182;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21650);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21650);}while(r); -} -S_28186:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ -if(qbevent){evnt(21651);if(r)goto S_28186;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21651);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(21651);}while(r); -} -LABEL_SREF:; -if(qbevent){evnt(21652);r=0;} -do{ -*_SUB_SETREFER_LONG_T2=*_SUB_SETREFER_LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21653);}while(r); -S_28191:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(21654);if(r)goto S_28191;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21654);}while(r); -} -S_28194:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21655);if(r)goto S_28194;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21655);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21656);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3008; -sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); -if (new_error) goto skip3008; -skip3008: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21657);}while(r); -S_28199:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(21658);if(r)goto S_28199;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3009; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3009; -skip3009: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21658);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(21658);}while(r); -} -S_28203:; -if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(21659);if(r)goto S_28203;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(21659);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21660);}while(r); -S_28207:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(21662);if(r)goto S_28207;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21662);}while(r); -} -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_SUB_SETREFER_STRING_R,&(pass3010= 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21663);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21665);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21668);}while(r); +if(!qbevent)break;evnt(22209);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free41.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +return *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS; } -qbs* FUNC_STR2(int32*_FUNC_STR2_LONG_V){ +void SUB_SETREFER(qbs*_SUB_SETREFER_STRING_A2,int32*_SUB_SETREFER_LONG_TYP2,qbs*_SUB_SETREFER_STRING_E2,int32*_SUB_SETREFER_LONG_METHOD){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -96262,17 +100991,1273 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_STR2_STRING_STR2,qbs_ltrim(qbs_rtrim(qbs_str((int32)(*_FUNC_STR2_LONG_V))))); +qbs_set(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21672);}while(r); +if(!qbevent)break;evnt(22219);}while(r); +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP2; +if(!qbevent)break;evnt(22219);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22219);}while(r); +S_29239:; +if ((-(*_SUB_SETREFER_LONG_METHOD!= 1 ))||new_error){ +if(qbevent){evnt(22220);if(r)goto S_29239;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22220);}while(r); +} +S_29242:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22221);if(r)goto S_29242;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22221);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_TL,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22222);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22230);}while(r); +S_29247:; +if ((*_SUB_SETREFER_LONG_I)||new_error){ +if(qbevent){evnt(22231);if(r)goto S_29247;} +do{ +*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_SUB_SETREFER_STRING_A,*_SUB_SETREFER_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22232);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22232);}while(r); +}else{ +do{ +*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(_SUB_SETREFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22234);}while(r); +} +do{ +SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER); +if(!qbevent)break;evnt(22236);}while(r); +S_29254:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22237);if(r)goto S_29254;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22237);}while(r); +} +S_29257:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(22240);if(r)goto S_29257;} +do{ +*_SUB_SETREFER_LONG_U=qbr(func_val(_SUB_SETREFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22243);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22244);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22244);}while(r); +do{ +*__LONG_E=qbr(func_val(_SUB_SETREFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22244);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22245);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_O,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22245);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22246);}while(r); +S_29265:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(22246);if(r)goto S_29265;} +do{ +qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22246);}while(r); +} +S_29268:; +if (((-(*__LONG_E!= 0 ))&(-(*_SUB_SETREFER_LONG_U== 1 )))||new_error){ +if(qbevent){evnt(22248);if(r)goto S_29268;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot set read-only element of _MEM TYPE",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22249);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22249);}while(r); +} +S_29272:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(22252);if(r)goto S_29272;} +S_29273:; +if ((-(*_SUB_SETREFER_LONG_METHOD!= 0 ))||new_error){ +if(qbevent){evnt(22255);if(r)goto S_29273;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected internal code reference to UDT",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22255);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22255);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_LHSSCOPE,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22256);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATE(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22257);}while(r); +S_29279:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22258);if(r)goto S_29279;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22258);}while(r); +} +S_29282:; +if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(22259);if(r)goto S_29282;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22259);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22259);}while(r); +} +S_29286:; +if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(22261);if(r)goto S_29286;} +S_29287:; +if ((*_SUB_SETREFER_LONG_T2&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(22262);if(r)goto S_29287;} +do{ +qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22263);}while(r); +do{ +*_SUB_SETREFER_LONG_E2= 0 ; +if(!qbevent)break;evnt(22264);}while(r); +do{ +*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; +if(!qbevent)break;evnt(22264);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)&",9),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22266);}while(r); +do{ +*_SUB_SETREFER_LONG_E2= 0 ; +if(!qbevent)break;evnt(22267);}while(r); +do{ +*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; +if(!qbevent)break;evnt(22267);}while(r); +} +do{ +goto LABEL_DIRECTUDT; +if(!qbevent)break;evnt(22269);}while(r); +} +do{ +*_SUB_SETREFER_LONG_IDNUMBER2=qbr(func_val(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22273);}while(r); +do{ +SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER2); +if(!qbevent)break;evnt(22274);}while(r); +S_29300:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22277);if(r)goto S_29300;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22277);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22278);}while(r); +S_29304:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(22278);if(r)goto S_29304;} +do{ +qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N2),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22278);}while(r); +} +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22279);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22279);}while(r); +do{ +*_SUB_SETREFER_LONG_U2=qbr(func_val(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22279);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22280);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22280);}while(r); +do{ +*_SUB_SETREFER_LONG_E2=qbr(func_val(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22280);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22281);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_O2,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22281);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),_SUB_SETREFER_STRING_N2),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22286);}while(r); +LABEL_DIRECTUDT:; +if(qbevent){evnt(22287);r=0;} +S_29316:; +if (((-(*_SUB_SETREFER_LONG_U!=*_SUB_SETREFER_LONG_U2))|(-(*_SUB_SETREFER_LONG_E2!= 0 )))||new_error){ +if(qbevent){evnt(22288);if(r)goto S_29316;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22288);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22288);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_LHSSCOPE),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22289);}while(r); +do{ +SUB_COPY_FULL_UDT(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,&(pass3172= 12 ),&(pass3173= 0 ),_SUB_SETREFER_LONG_U); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22290);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22294);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22295);}while(r); +} +S_29325:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(22299);if(r)goto S_29325;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22299);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22299);}while(r); +} +S_29329:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(22300);if(r)goto S_29329;} +S_29330:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(22301);if(r)goto S_29330;} +do{ +qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22302);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22303);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)(",18),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22305);}while(r); +} +S_29336:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22307);if(r)goto S_29336;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3174=*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22307);}while(r); +} +S_29339:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22308);if(r)goto S_29339;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22308);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3175; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3175; +skip3175: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22309);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3176; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3176; +skip3176: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22310);}while(r); +}else{ +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(22312);}while(r); +S_29346:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(22313);if(r)goto S_29346;} +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISARRAY; +if(!qbevent)break;evnt(22313);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_T,FUNC_TYP2CTYP(_SUB_SETREFER_LONG_TYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22314);}while(r); +S_29350:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22315);if(r)goto S_29350;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22315);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22316);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)",2)),_SUB_SETREFER_STRING_O2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22317);}while(r); +S_29355:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22318);if(r)goto S_29355;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22318);}while(r); +} +S_29358:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22319);if(r)goto S_29358;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22319);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3177; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3177; +skip3177: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22320);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22324);}while(r); +S_29364:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22325);if(r)goto S_29364;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22325);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22326);}while(r); +} +S_29369:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(22331);if(r)goto S_29369;} +do{ +qbs_set(_SUB_SETREFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22332);}while(r); +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(22333);}while(r); +S_29372:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(22335);if(r)goto S_29372;} +S_29373:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(22336);if(r)goto S_29373;} +do{ +qbs_set(_SUB_SETREFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long*",15)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22337);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22338);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3178; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3178; +skip3178: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22339);}while(r); +S_29377:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22340);if(r)goto S_29377;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22341);}while(r); +S_29379:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22342);if(r)goto S_29379;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22342);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22344);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3179; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3179; +skip3179: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22346);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3180; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3180; +skip3180: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22348);}while(r); +S_29388:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22349);if(r)goto S_29388;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22350);}while(r); +S_29390:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22351);if(r)goto S_29390;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22351);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22353);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3181; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3181; +skip3181: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22355);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3182; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3182; +skip3182: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22357);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22358);}while(r); +S_29400:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22359);if(r)goto S_29400;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22359);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22360);}while(r); +} +S_29405:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(22363);if(r)goto S_29405;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("setbits(",8),FUNC_STR2(&(pass3183=*_SUB_SETREFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22365);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",tmp_long,",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22366);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3184; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3184; +skip3184: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22367);}while(r); +S_29409:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22368);if(r)goto S_29409;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22369);}while(r); +S_29411:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22370);if(r)goto S_29411;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22370);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22372);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3185; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3185; +skip3185: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22374);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22375);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22376);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22378);}while(r); +S_29422:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(22379);if(r)goto S_29422;} +S_29423:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22380);if(r)goto S_29423;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22380);}while(r); +} +S_29426:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22381);if(r)goto S_29426;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22381);}while(r); +} +S_29429:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 256 ))||new_error){ +if(qbevent){evnt(22382);if(r)goto S_29429;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22382);}while(r); +} +}else{ +S_29433:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22384);if(r)goto S_29433;} +S_29434:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(22385);if(r)goto S_29434;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22385);}while(r); +} +S_29437:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(22386);if(r)goto S_29437;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint16",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22386);}while(r); +} +S_29440:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22387);if(r)goto S_29440;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22387);}while(r); +} +S_29443:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22388);if(r)goto S_29443;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint64",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22388);}while(r); +} +S_29446:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22389);if(r)goto S_29446;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22389);}while(r); +} +}else{ +S_29450:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(22391);if(r)goto S_29450;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22391);}while(r); +} +S_29453:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(22392);if(r)goto S_29453;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22392);}while(r); +} +S_29456:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22393);if(r)goto S_29456;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22393);}while(r); +} +S_29459:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22394);if(r)goto S_29459;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22394);}while(r); +} +S_29462:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22395);if(r)goto S_29462;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22395);}while(r); +} +} +} +} +S_29468:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22399);if(r)goto S_29468;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22399);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22399);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3186; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3186; +skip3186: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22400);}while(r); +S_29473:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22401);if(r)goto S_29473;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22402);}while(r); +S_29475:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22403);if(r)goto S_29475;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22403);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22405);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3187; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3187; +skip3187: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22408);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22409);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22410);}while(r); +} +S_29485:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(22414);if(r)goto S_29485;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22415);}while(r); +do{ +*_SUB_SETREFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(22416);}while(r); +S_29488:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(22418);if(r)goto S_29488;} +do{ +*_SUB_SETREFER_LONG_T=*_SUB_SETREFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(22418);}while(r); +} +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_T; +if(!qbevent)break;evnt(22419);}while(r); +S_29492:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(22422);if(r)goto S_29492;} +S_29493:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(22423);if(r)goto S_29493;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22424);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22426);}while(r); +} +S_29498:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22428);if(r)goto S_29498;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22428);}while(r); +} +S_29501:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22429);if(r)goto S_29501;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22429);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3188; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3188; +skip3188: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22430);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3189; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3189; +skip3189: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22431);}while(r); +S_29506:; +if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22432);if(r)goto S_29506;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22432);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22433);}while(r); +S_29510:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22434);if(r)goto S_29510;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22434);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22435);}while(r); +} +S_29515:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(22439);if(r)goto S_29515;} +do{ +*_SUB_SETREFER_LONG_B=*_SUB_SETREFER_LONG_T& 511 ; +if(!qbevent)break;evnt(22440);}while(r); +S_29517:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22441);if(r)goto S_29517;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass3190=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22442);}while(r); +S_29519:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22443);if(r)goto S_29519;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3191= 64 +*__LONG_ISUNSIGNED))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22443);}while(r); +} +S_29522:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22444);if(r)goto S_29522;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22444);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=(",2)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass3192=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22445);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3193; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3193; +skip3193: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22446);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass3194=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22448);}while(r); +S_29529:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22449);if(r)goto S_29529;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3195= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22449);}while(r); +} +S_29532:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22450);if(r)goto S_29532;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22450);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_SUB_SETREFER_STRING_R),qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass3196=qbr(pow2( 2 ,(*_SUB_SETREFER_LONG_B- 1 )))))),qbs_new_txt_len("){",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22451);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3197; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3197; +skip3197: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22452);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("|=",2)),FUNC_STR2(&(pass3198=((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5])]))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22454);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3199; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3199; +skip3199: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22455);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3200; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip3200; +skip3200: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22456);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("&=",2)),FUNC_STR2(&(pass3201=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22458);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3202; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3202; +skip3202: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22459);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3203; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip3203; +skip3203: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22460);}while(r); +} +S_29544:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22462);if(r)goto S_29544;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3204; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3204; +skip3204: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22462);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22462);}while(r); +} +S_29548:; +if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22463);if(r)goto S_29548;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22463);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22464);}while(r); +S_29552:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22465);if(r)goto S_29552;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22465);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22466);}while(r); +} +S_29557:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_BYTETYPE))||new_error){ +if(qbevent){evnt(22470);if(r)goto S_29557;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22470);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22470);}while(r); +} +S_29561:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ +if(qbevent){evnt(22471);if(r)goto S_29561;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22471);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22471);}while(r); +} +S_29565:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ +if(qbevent){evnt(22472);if(r)goto S_29565;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22472);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22472);}while(r); +} +S_29569:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ +if(qbevent){evnt(22473);if(r)goto S_29569;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22473);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22473);}while(r); +} +S_29573:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_LONGTYPE))||new_error){ +if(qbevent){evnt(22474);if(r)goto S_29573;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22474);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22474);}while(r); +} +S_29577:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ +if(qbevent){evnt(22475);if(r)goto S_29577;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22475);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22475);}while(r); +} +S_29581:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ +if(qbevent){evnt(22476);if(r)goto S_29581;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22476);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22476);}while(r); +} +S_29585:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ +if(qbevent){evnt(22477);if(r)goto S_29585;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22477);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22477);}while(r); +} +S_29589:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ +if(qbevent){evnt(22478);if(r)goto S_29589;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22478);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22478);}while(r); +} +S_29593:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ +if(qbevent){evnt(22479);if(r)goto S_29593;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22479);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22479);}while(r); +} +S_29597:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ +if(qbevent){evnt(22480);if(r)goto S_29597;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22480);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22480);}while(r); +} +S_29601:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ +if(qbevent){evnt(22481);if(r)goto S_29601;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22481);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22481);}while(r); +} +S_29605:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ +if(qbevent){evnt(22482);if(r)goto S_29605;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22482);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22482);}while(r); +} +LABEL_SREF:; +if(qbevent){evnt(22483);r=0;} +do{ +*_SUB_SETREFER_LONG_T2=*_SUB_SETREFER_LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(22484);}while(r); +S_29610:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22485);if(r)goto S_29610;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22485);}while(r); +} +S_29613:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22486);if(r)goto S_29613;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22486);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22487);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3205; +sub_file_print(tmp_fileno,_SUB_SETREFER_STRING_L, 0 , 0 , 1 ); +if (new_error) goto skip3205; +skip3205: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22488);}while(r); +S_29618:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22489);if(r)goto S_29618;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3206; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3206; +skip3206: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(22489);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22489);}while(r); +} +S_29622:; +if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22490);if(r)goto S_29622;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22490);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22491);}while(r); +S_29626:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22493);if(r)goto S_29626;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22493);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22494);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22497);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free42.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR2_STRING_STR2);return _FUNC_STR2_STRING_STR2; } -qbs* FUNC_STR2U64(uint64*_FUNC_STR2U64_UINTEGER64_V){ +qbs* FUNC_STR2(int32*_FUNC_STR2_LONG_V){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -96286,17 +102271,17 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_STR2U64_STRING_STR2U64,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_STR2U64_UINTEGER64_V))))); +qbs_set(_FUNC_STR2_STRING_STR2,qbs__trim(qbs_str((int32)(*_FUNC_STR2_LONG_V)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21676);}while(r); +if(!qbevent)break;evnt(22501);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free43.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR2U64_STRING_STR2U64);return _FUNC_STR2U64_STRING_STR2U64; +qbs_maketmp(_FUNC_STR2_STRING_STR2);return _FUNC_STR2_STRING_STR2; } -qbs* FUNC_STR2I64(int64*_FUNC_STR2I64_INTEGER64_V){ +qbs* FUNC_STR2U64(uint64*_FUNC_STR2U64_UINTEGER64_V){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -96310,17 +102295,17 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_STR2I64_STRING_STR2I64,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_STR2I64_INTEGER64_V))))); +qbs_set(_FUNC_STR2U64_STRING_STR2U64,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_STR2U64_UINTEGER64_V))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21680);}while(r); +if(!qbevent)break;evnt(22505);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free44.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR2I64_STRING_STR2I64);return _FUNC_STR2I64_STRING_STR2I64; +qbs_maketmp(_FUNC_STR2U64_STRING_STR2U64);return _FUNC_STR2U64_STRING_STR2U64; } -qbs* FUNC_TYP2CTYP(int32*_FUNC_TYP2CTYP_LONG_T,qbs*_FUNC_TYP2CTYP_STRING_TSTR){ +qbs* FUNC_STR2I64(int64*_FUNC_STR2I64_INTEGER64_V){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -96334,407 +102319,17 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0)); +qbs_set(_FUNC_STR2I64_STRING_STR2I64,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_STR2I64_INTEGER64_V))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21684);}while(r); -S_28218:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TSTR,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(21689);if(r)goto S_28218;} -S_28219:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(21690);if(r)goto S_28219;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21690);}while(r); -} -S_28222:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(21691);if(r)goto S_28222;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("qbs",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21691);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21691);}while(r); -} -do{ -*_FUNC_TYP2CTYP_LONG_B=*_FUNC_TYP2CTYP_LONG_T& 511 ; -if(!qbevent)break;evnt(21692);}while(r); -S_28227:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(21693);if(r)goto S_28227;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("void",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21693);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21693);}while(r); -} -S_28231:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(21694);if(r)goto S_28231;} -S_28232:; -if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ -if(qbevent){evnt(21695);if(r)goto S_28232;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21695);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21695);}while(r); -} -S_28237:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(21696);if(r)goto S_28237;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21696);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21697);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21697);}while(r); -} -S_28243:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(21699);if(r)goto S_28243;} -S_28244:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(21700);if(r)goto S_28244;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21700);}while(r); -} -S_28247:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(21701);if(r)goto S_28247;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21701);}while(r); -} -S_28250:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 256 ))||new_error){ -if(qbevent){evnt(21702);if(r)goto S_28250;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21702);}while(r); -} -}else{ -S_28254:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 8 ))||new_error){ -if(qbevent){evnt(21704);if(r)goto S_28254;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21704);}while(r); -} -S_28257:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 16 ))||new_error){ -if(qbevent){evnt(21705);if(r)goto S_28257;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21705);}while(r); -} -S_28260:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(21706);if(r)goto S_28260;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21706);}while(r); -} -S_28263:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(21707);if(r)goto S_28263;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21707);}while(r); -} -S_28266:; -if ((*_FUNC_TYP2CTYP_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(21708);if(r)goto S_28266;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21708);}while(r); -} -S_28269:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(21709);if(r)goto S_28269;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21709);}while(r); -} -} -S_28273:; -if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(21711);if(r)goto S_28273;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21712);}while(r); -S_28275:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(21712);if(r)goto S_28275;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21712);}while(r); -} -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21714);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21714);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TSTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21717);}while(r); -S_28283:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21719);if(r)goto S_28283;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("qbs",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21719);}while(r); -} -S_28286:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(21720);if(r)goto S_28286;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21720);}while(r); -} -S_28289:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(21721);if(r)goto S_28289;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21721);}while(r); -} -S_28292:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(21722);if(r)goto S_28292;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21722);}while(r); -} -S_28295:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(21723);if(r)goto S_28295;} -do{ -*_FUNC_TYP2CTYP_LONG_UNSGN= 1 ; -if(!qbevent)break;evnt(21723);}while(r); -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TS,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21723);}while(r); -} -S_28299:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(21724);if(r)goto S_28299;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_N,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21725);}while(r); -do{ -*_FUNC_TYP2CTYP_LONG_B= 1 ; -if(!qbevent)break;evnt(21726);}while(r); -S_28302:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(21727);if(r)goto S_28302;} -S_28303:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYP2CTYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(21728);if(r)goto S_28303;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21728);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21728);}while(r); -} -do{ -*_FUNC_TYP2CTYP_LONG_B=qbr(func_val(_FUNC_TYP2CTYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21729);}while(r); -S_28308:; -if ((-(*_FUNC_TYP2CTYP_LONG_B> 57 ))||new_error){ -if(qbevent){evnt(21730);if(r)goto S_28308;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21730);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21730);}while(r); -} -} -S_28313:; -if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ -if(qbevent){evnt(21732);if(r)goto S_28313;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21732);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21732);}while(r); -} -S_28318:; -if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(21733);if(r)goto S_28318;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21733);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21734);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21734);}while(r); -} -S_28324:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(21736);if(r)goto S_28324;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21737);}while(r); -S_28326:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(21737);if(r)goto S_28326;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21737);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21738);}while(r); -} -S_28331:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(21740);if(r)goto S_28331;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21740);}while(r); -} -S_28334:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(21741);if(r)goto S_28334;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21741);}while(r); -} -S_28337:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(21742);if(r)goto S_28337;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21742);}while(r); -} -S_28340:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(21743);if(r)goto S_28340;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21743);}while(r); -} -S_28343:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(21744);if(r)goto S_28343;} -S_28344:; -if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(21745);if(r)goto S_28344;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21745);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21746);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21746);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_S,FUNC_TYPE2SYMBOL(_FUNC_TYP2CTYP_STRING_TSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21749);}while(r); -S_28351:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21750);if(r)goto S_28351;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21750);}while(r); -} -S_28354:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_TYP2CTYP_STRING_S->len))||new_error){ -if(qbevent){evnt(21751);if(r)goto S_28354;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,FUNC_TYP2CTYP(&(pass3015= 0 ),_FUNC_TYP2CTYP_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21752);}while(r); -S_28356:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(21753);if(r)goto S_28356;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21753);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21754);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid type",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21757);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21757);}while(r); +if(!qbevent)break;evnt(22509);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free45.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_TYP2CTYP_STRING_TYP2CTYP);return _FUNC_TYP2CTYP_STRING_TYP2CTYP; +qbs_maketmp(_FUNC_STR2I64_STRING_STR2I64);return _FUNC_STR2I64_STRING_STR2I64; } -qbs* FUNC_TYPE2SYMBOL(qbs*_FUNC_TYPE2SYMBOL_STRING_TYP){ +qbs* FUNC_TYP2CTYP(int32*_FUNC_TYP2CTYP_LONG_T,qbs*_FUNC_TYP2CTYP_STRING_TSTR){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -96748,391 +102343,407 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_TYP); +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21762);}while(r); -S_28364:; -fornext_value3018= 1 ; -fornext_finalvalue3018=_FUNC_TYPE2SYMBOL_STRING_T->len; -fornext_step3018= 1 ; -if (fornext_step3018<0) fornext_step_negative3018=1; else fornext_step_negative3018=0; -if (new_error) goto fornext_error3018; -goto fornext_entrylabel3018; -while(1){ -fornext_value3018=fornext_step3018+(*_FUNC_TYPE2SYMBOL_LONG_I); -fornext_entrylabel3018: -*_FUNC_TYPE2SYMBOL_LONG_I=fornext_value3018; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3018){ -if (fornext_value3018fornext_finalvalue3018) break; -} -fornext_error3018:; -if(qbevent){evnt(21763);if(r)goto S_28364;} -S_28365:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(21764);if(r)goto S_28365;} -do{ -sub_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(21764);}while(r); -} -fornext_continue_3017:; -} -fornext_exit_3017:; -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("Cannot convert type (",21),_FUNC_TYPE2SYMBOL_STRING_TYP),qbs_new_txt_len(") to symbol",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21766);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BIT",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21767);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21767);}while(r); -S_28372:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21767);if(r)goto S_28372;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21767);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21768);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21768);}while(r); -S_28377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21768);if(r)goto S_28377;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21768);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21769);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21769);}while(r); -S_28382:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21769);if(r)goto S_28382;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21769);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21770);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21770);}while(r); -S_28387:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21770);if(r)goto S_28387;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21770);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21771);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21771);}while(r); -S_28392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21771);if(r)goto S_28392;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21771);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21772);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21772);}while(r); -S_28397:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21772);if(r)goto S_28397;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21772);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21773);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21773);}while(r); -S_28402:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21773);if(r)goto S_28402;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21773);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21774);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21774);}while(r); -S_28407:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21774);if(r)goto S_28407;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21774);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21775);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21775);}while(r); -S_28412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21775);if(r)goto S_28412;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21775);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21776);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21776);}while(r); -S_28417:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21776);if(r)goto S_28417;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21776);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21777);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21777);}while(r); -S_28422:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21777);if(r)goto S_28422;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21777);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21778);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21778);}while(r); -S_28427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21778);if(r)goto S_28427;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21778);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21779);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21779);}while(r); -S_28432:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21779);if(r)goto S_28432;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21779);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21780);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21780);}while(r); -S_28437:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21780);if(r)goto S_28437;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21780);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_FLOAT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21781);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21781);}while(r); -S_28442:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21781);if(r)goto S_28442;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21781);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21782);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21782);}while(r); -S_28447:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(21782);if(r)goto S_28447;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(21782);}while(r); -} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21783);}while(r); +if(!qbevent)break;evnt(22513);}while(r); +S_29636:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TSTR,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22518);if(r)goto S_29636;} +S_29637:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(22519);if(r)goto S_29637;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(21783);}while(r); -LABEL_T2SFOUND:; -if(qbevent){evnt(21784);r=0;} +if(!qbevent)break;evnt(22519);}while(r); +} +S_29640:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(22520);if(r)goto S_29640;} do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("qbs",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21785);}while(r); -S_28453:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_TYPE2SYMBOL_STRING_T2->len!=_FUNC_TYPE2SYMBOL_STRING_T->len)))||new_error){ -if(qbevent){evnt(21786);if(r)goto S_28453;} -S_28454:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)))))||new_error){ -if(qbevent){evnt(21787);if(r)goto S_28454;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21787);}while(r); +if(!qbevent)break;evnt(22520);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(21787);}while(r); +if(!qbevent)break;evnt(22520);}while(r); } do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len-_FUNC_TYPE2SYMBOL_STRING_T2->len)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21788);}while(r); -S_28459:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T, 3 ),qbs_new_txt_len(" * ",3))))||new_error){ -if(qbevent){evnt(21789);if(r)goto S_28459;} +*_FUNC_TYP2CTYP_LONG_B=*_FUNC_TYP2CTYP_LONG_T& 511 ; +if(!qbevent)break;evnt(22521);}while(r); +S_29645:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(22522);if(r)goto S_29645;} do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("void",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21789);}while(r); +if(!qbevent)break;evnt(22522);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(21789);}while(r); +if(!qbevent)break;evnt(22522);}while(r); } +S_29649:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(22523);if(r)goto S_29649;} +S_29650:; +if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ +if(qbevent){evnt(22524);if(r)goto S_29650;} do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len- 3 )); +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21790);}while(r); -S_28464:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPE2SYMBOL_STRING_T)== 0 )))||new_error){ -if(qbevent){evnt(21791);if(r)goto S_28464;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21791);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21791);}while(r); -} -do{ -*_FUNC_TYPE2SYMBOL_LONG_V=qbr(func_val(_FUNC_TYPE2SYMBOL_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21792);}while(r); -S_28469:; -if ((-(*_FUNC_TYPE2SYMBOL_LONG_V== 0 ))||new_error){ -if(qbevent){evnt(21793);if(r)goto S_28469;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21793);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21793);}while(r); -} -S_28473:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(-(*_FUNC_TYPE2SYMBOL_LONG_V> 56 ))))||new_error){ -if(qbevent){evnt(21794);if(r)goto S_28473;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21794);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21794);}while(r); -} -S_28477:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21795);if(r)goto S_28477;} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPE2SYMBOL_STRING_S,FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21796);}while(r); +if(!qbevent)break;evnt(22524);}while(r); }else{ do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(qbs_left(_FUNC_TYPE2SYMBOL_STRING_S,_FUNC_TYPE2SYMBOL_STRING_S->len- 1 ),FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21798);}while(r); +if(!qbevent)break;evnt(22524);}while(r); +} +S_29655:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22525);if(r)goto S_29655;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22525);}while(r); } do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21800);}while(r); +if(!qbevent)break;evnt(22526);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22526);}while(r); } +S_29661:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(22528);if(r)goto S_29661;} +S_29662:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(22529);if(r)goto S_29662;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22529);}while(r); +} +S_29665:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(22530);if(r)goto S_29665;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22530);}while(r); +} +S_29668:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 256 ))||new_error){ +if(qbevent){evnt(22531);if(r)goto S_29668;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22531);}while(r); +} +}else{ +S_29672:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 8 ))||new_error){ +if(qbevent){evnt(22533);if(r)goto S_29672;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22533);}while(r); +} +S_29675:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 16 ))||new_error){ +if(qbevent){evnt(22534);if(r)goto S_29675;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22534);}while(r); +} +S_29678:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(22535);if(r)goto S_29678;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22535);}while(r); +} +S_29681:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(22536);if(r)goto S_29681;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22536);}while(r); +} +S_29684:; +if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22537);if(r)goto S_29684;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22537);}while(r); +} +S_29687:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22538);if(r)goto S_29687;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22538);}while(r); +} +} +S_29691:; +if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22540);if(r)goto S_29691;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22541);}while(r); +S_29693:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22541);if(r)goto S_29693;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22541);}while(r); +} +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22543);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22543);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TSTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22546);}while(r); +S_29701:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22548);if(r)goto S_29701;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("qbs",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22548);}while(r); +} +S_29704:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(22549);if(r)goto S_29704;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22549);}while(r); +} +S_29707:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(22550);if(r)goto S_29707;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22550);}while(r); +} +S_29710:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(22551);if(r)goto S_29710;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22551);}while(r); +} +S_29713:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(22552);if(r)goto S_29713;} +do{ +*_FUNC_TYP2CTYP_LONG_UNSGN= 1 ; +if(!qbevent)break;evnt(22552);}while(r); +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TS,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22552);}while(r); +} +S_29717:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(22553);if(r)goto S_29717;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_N,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22554);}while(r); +do{ +*_FUNC_TYP2CTYP_LONG_B= 1 ; +if(!qbevent)break;evnt(22555);}while(r); +S_29720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22556);if(r)goto S_29720;} +S_29721:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYP2CTYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22557);if(r)goto S_29721;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22557);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22557);}while(r); +} +do{ +*_FUNC_TYP2CTYP_LONG_B=qbr(func_val(_FUNC_TYP2CTYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22558);}while(r); +S_29726:; +if ((-(*_FUNC_TYP2CTYP_LONG_B> 64 ))||new_error){ +if(qbevent){evnt(22559);if(r)goto S_29726;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22559);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22559);}while(r); +} +} +S_29731:; +if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ +if(qbevent){evnt(22561);if(r)goto S_29731;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22561);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22561);}while(r); +} +S_29736:; +if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22562);if(r)goto S_29736;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22562);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22563);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22563);}while(r); +} +S_29742:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(22565);if(r)goto S_29742;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22566);}while(r); +S_29744:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22566);if(r)goto S_29744;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22566);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22567);}while(r); +} +S_29749:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(22569);if(r)goto S_29749;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22569);}while(r); +} +S_29752:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(22570);if(r)goto S_29752;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22570);}while(r); +} +S_29755:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(22571);if(r)goto S_29755;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22571);}while(r); +} +S_29758:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(22572);if(r)goto S_29758;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22572);}while(r); +} +S_29761:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22573);if(r)goto S_29761;} +S_29762:; +if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22574);if(r)goto S_29762;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22574);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22575);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22575);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_S,FUNC_TYPE2SYMBOL(_FUNC_TYP2CTYP_STRING_TSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22578);}while(r); +S_29769:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22579);if(r)goto S_29769;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22579);}while(r); +} +S_29772:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_TYP2CTYP_STRING_S->len))||new_error){ +if(qbevent){evnt(22580);if(r)goto S_29772;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,FUNC_TYP2CTYP(&(pass3211= 0 ),_FUNC_TYP2CTYP_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22581);}while(r); +S_29774:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22582);if(r)goto S_29774;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22582);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22583);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid type",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22586);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22586);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free46.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL);return _FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL; +qbs_maketmp(_FUNC_TYP2CTYP_STRING_TYP2CTYP);return _FUNC_TYP2CTYP_STRING_TYP2CTYP; } -int32 FUNC_TYPECOMP(int32*_FUNC_TYPECOMP_LONG_TYP){ +qbs* FUNC_TYPE2SYMBOL(qbs*_FUNC_TYPE2SYMBOL_STRING_TYP){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -97146,26 +102757,676 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP; -if(!qbevent)break;evnt(21806);}while(r); -S_28485:; -if (((*_FUNC_TYPECOMP_LONG_TYP2&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(21807);if(r)goto S_28485;} +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22591);}while(r); +S_29782:; +fornext_value3214= 1 ; +fornext_finalvalue3214=_FUNC_TYPE2SYMBOL_STRING_T->len; +fornext_step3214= 1 ; +if (fornext_step3214<0) fornext_step_negative3214=1; else fornext_step_negative3214=0; +if (new_error) goto fornext_error3214; +goto fornext_entrylabel3214; +while(1){ +fornext_value3214=fornext_step3214+(*_FUNC_TYPE2SYMBOL_LONG_I); +fornext_entrylabel3214: +*_FUNC_TYPE2SYMBOL_LONG_I=fornext_value3214; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3214){ +if (fornext_value3214fornext_finalvalue3214) break; +} +fornext_error3214:; +if(qbevent){evnt(22592);if(r)goto S_29782;} +S_29783:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(22593);if(r)goto S_29783;} do{ -*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP2-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(21807);}while(r); +sub_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(22593);}while(r); +} +fornext_continue_3213:; +} +fornext_exit_3213:; +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("Cannot convert type (",21),_FUNC_TYPE2SYMBOL_STRING_TYP),qbs_new_txt_len(") to symbol",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22595);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BIT",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22596);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22596);}while(r); +S_29790:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22596);if(r)goto S_29790;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22596);}while(r); } do{ -*_FUNC_TYPECOMP_LONG_TYPECOMP=*_FUNC_TYPECOMP_LONG_TYP2; -if(!qbevent)break;evnt(21808);}while(r); +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22597);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22597);}while(r); +S_29795:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22597);if(r)goto S_29795;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22597);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22598);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22598);}while(r); +S_29800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22598);if(r)goto S_29800;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22598);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22599);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22599);}while(r); +S_29805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22599);if(r)goto S_29805;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22599);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22600);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22600);}while(r); +S_29810:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22600);if(r)goto S_29810;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22600);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22601);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22601);}while(r); +S_29815:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22601);if(r)goto S_29815;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22601);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22602);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22602);}while(r); +S_29820:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22602);if(r)goto S_29820;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22602);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22603);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22603);}while(r); +S_29825:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22603);if(r)goto S_29825;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22603);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22604);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22604);}while(r); +S_29830:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22604);if(r)goto S_29830;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22604);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22605);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22605);}while(r); +S_29835:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22605);if(r)goto S_29835;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22605);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22606);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22606);}while(r); +S_29840:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22606);if(r)goto S_29840;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22606);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22607);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22607);}while(r); +S_29845:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22607);if(r)goto S_29845;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22607);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22608);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22608);}while(r); +S_29850:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22608);if(r)goto S_29850;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22608);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_FLOAT",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22609);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22609);}while(r); +S_29855:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22609);if(r)goto S_29855;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22609);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22610);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22610);}while(r); +S_29860:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22610);if(r)goto S_29860;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22610);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED BIT",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22611);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22611);}while(r); +S_29865:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22611);if(r)goto S_29865;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22611);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED BYTE",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22612);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22612);}while(r); +S_29870:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22612);if(r)goto S_29870;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22612);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED LONG",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22613);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22613);}while(r); +S_29875:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22613);if(r)goto S_29875;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22613);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED INTEGER64",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22614);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22614);}while(r); +S_29880:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22614);if(r)goto S_29880;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22614);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED INTEGER",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22615);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22615);}while(r); +S_29885:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22615);if(r)goto S_29885;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22615);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED OFFSET",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22616);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22616);}while(r); +S_29890:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22616);if(r)goto S_29890;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22616);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _BIT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22617);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22617);}while(r); +S_29895:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22617);if(r)goto S_29895;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22617);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _BYTE",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22618);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22618);}while(r); +S_29900:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22618);if(r)goto S_29900;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22618);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _INTEGER64",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22619);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22619);}while(r); +S_29905:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22619);if(r)goto S_29905;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22619);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _OFFSET",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22620);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22620);}while(r); +S_29910:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22620);if(r)goto S_29910;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22620);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED BIT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22621);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22621);}while(r); +S_29915:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22621);if(r)goto S_29915;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22621);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED BYTE",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22622);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22622);}while(r); +S_29920:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22622);if(r)goto S_29920;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22622);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER64",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22623);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22623);}while(r); +S_29925:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22623);if(r)goto S_29925;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22623);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED OFFSET",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22624);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22624);}while(r); +S_29930:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22624);if(r)goto S_29930;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22624);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("BIT",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22625);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22625);}while(r); +S_29935:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22625);if(r)goto S_29935;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22625);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("BYTE",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22626);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22626);}while(r); +S_29940:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22626);if(r)goto S_29940;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22626);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER64",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22627);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22627);}while(r); +S_29945:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22627);if(r)goto S_29945;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22627);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22628);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22628);}while(r); +S_29950:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22628);if(r)goto S_29950;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22628);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("OFFSET",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22629);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22629);}while(r); +S_29955:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22629);if(r)goto S_29955;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22629);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("FLOAT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22630);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22630);}while(r); +S_29960:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22630);if(r)goto S_29960;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22630);}while(r); +} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22631);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22631);}while(r); +LABEL_T2SFOUND:; +if(qbevent){evnt(22632);r=0;} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22633);}while(r); +S_29966:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_TYPE2SYMBOL_STRING_T2->len!=_FUNC_TYPE2SYMBOL_STRING_T->len)))||new_error){ +if(qbevent){evnt(22634);if(r)goto S_29966;} +S_29967:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)))))||new_error){ +if(qbevent){evnt(22635);if(r)goto S_29967;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22635);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22635);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len-_FUNC_TYPE2SYMBOL_STRING_T2->len)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22636);}while(r); +S_29972:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T, 3 ),qbs_new_txt_len(" * ",3))))||new_error){ +if(qbevent){evnt(22637);if(r)goto S_29972;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22637);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22637);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22638);}while(r); +S_29977:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPE2SYMBOL_STRING_T)== 0 )))||new_error){ +if(qbevent){evnt(22639);if(r)goto S_29977;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22639);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22639);}while(r); +} +do{ +*_FUNC_TYPE2SYMBOL_LONG_V=qbr(func_val(_FUNC_TYPE2SYMBOL_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22640);}while(r); +S_29982:; +if ((-(*_FUNC_TYPE2SYMBOL_LONG_V== 0 ))||new_error){ +if(qbevent){evnt(22641);if(r)goto S_29982;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22641);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22641);}while(r); +} +S_29986:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(-(*_FUNC_TYPE2SYMBOL_LONG_V> 64 ))))||new_error){ +if(qbevent){evnt(22642);if(r)goto S_29986;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22642);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22642);}while(r); +} +S_29990:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22643);if(r)goto S_29990;} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPE2SYMBOL_STRING_S,FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22644);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(qbs_left(_FUNC_TYPE2SYMBOL_STRING_S,_FUNC_TYPE2SYMBOL_STRING_S->len- 1 ),FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22646);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22648);}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free47.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_TYPECOMP_LONG_TYPECOMP; +qbs_maketmp(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL);return _FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL; } -int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){ +int32 FUNC_TYPECOMP(int32*_FUNC_TYPECOMP_LONG_TYP){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -97179,645 +103440,26 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*__LONG_TYPNAME2TYPSIZE= 0 ; -if(!qbevent)break;evnt(21812);}while(r); +*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP; +if(!qbevent)break;evnt(22654);}while(r); +S_29998:; +if (((*_FUNC_TYPECOMP_LONG_TYP2&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(22655);if(r)goto S_29998;} do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21814);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21817);}while(r); -S_28492:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21818);if(r)goto S_28492;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(21818);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21818);}while(r); -} -S_28496:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(21819);if(r)goto S_28496;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(21819);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21819);}while(r); -} -S_28500:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(21820);if(r)goto S_28500;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(21820);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21820);}while(r); -} -S_28504:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(21821);if(r)goto S_28504;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(21821);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21821);}while(r); -} -S_28508:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21824);if(r)goto S_28508;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21825);}while(r); -S_28510:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(21826);if(r)goto S_28510;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21826);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21826);}while(r); +*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP2-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(22655);}while(r); } do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21827);}while(r); -S_28515:; -if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(21828);if(r)goto S_28515;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21828);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21828);}while(r); -} -do{ -*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; -if(!qbevent)break;evnt(21829);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(21830);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21831);}while(r); -} -S_28523:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(21835);if(r)goto S_28523;} -do{ -*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ; -if(!qbevent)break;evnt(21835);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21835);}while(r); -} -S_28527:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(21838);if(r)goto S_28527;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21839);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_B= 1 ; -if(!qbevent)break;evnt(21840);}while(r); -S_28530:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(21841);if(r)goto S_28530;} -S_28531:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(21842);if(r)goto S_28531;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21842);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21842);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21843);}while(r); -S_28536:; -if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 56 ))||new_error){ -if(qbevent){evnt(21844);if(r)goto S_28536;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21844);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21844);}while(r); -} -} -S_28541:; -if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(21846);if(r)goto S_28541;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); -if(!qbevent)break;evnt(21846);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); -if(!qbevent)break;evnt(21846);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21847);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_T= 0 ; -if(!qbevent)break;evnt(21850);}while(r); -S_28549:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(21851);if(r)goto S_28549;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(21851);}while(r); -} -S_28552:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(21852);if(r)goto S_28552;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(21852);}while(r); -} -S_28555:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(21853);if(r)goto S_28555;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(21853);}while(r); -} -S_28558:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(21854);if(r)goto S_28558;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(21854);}while(r); -} -S_28561:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(21855);if(r)goto S_28561;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(21855);}while(r); -} -S_28564:; -if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ -if(qbevent){evnt(21857);if(r)goto S_28564;} -S_28565:; -if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(21858);if(r)goto S_28565;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21858);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; -if(!qbevent)break;evnt(21859);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21859);}while(r); -} -S_28571:; -fornext_value3047= 1 ; -fornext_finalvalue3047=_FUNC_TYPNAME2TYP_STRING_T->len; -fornext_step3047= 1 ; -if (fornext_step3047<0) fornext_step_negative3047=1; else fornext_step_negative3047=0; -if (new_error) goto fornext_error3047; -goto fornext_entrylabel3047; -while(1){ -fornext_value3047=fornext_step3047+(*_FUNC_TYPNAME2TYP_LONG_I); -fornext_entrylabel3047: -*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3047; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3047){ -if (fornext_value3047fornext_finalvalue3047) break; -} -fornext_error3047:; -if(qbevent){evnt(21864);if(r)goto S_28571;} -S_28572:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(21865);if(r)goto S_28572;} -do{ -sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(21865);}while(r); -} -fornext_continue_3046:; -} -fornext_exit_3046:; -S_28576:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(21867);if(r)goto S_28576;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(21867);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21867);}while(r); -} -S_28580:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ -if(qbevent){evnt(21869);if(r)goto S_28580;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21871);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ; -if(!qbevent)break;evnt(21874);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21875);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(21876);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21877);}while(r); -S_28586:; -while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||new_error){ -if(qbevent){evnt(21878);if(r)goto S_28586;} -S_28587:; -if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ -if(qbevent){evnt(21879);if(r)goto S_28587;} -S_28588:; -if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ -if(qbevent){evnt(21880);if(r)goto S_28588;} -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ; -if(!qbevent)break;evnt(21881);}while(r); -do{ -goto dl_exit_3050; -if(!qbevent)break;evnt(21882);}while(r); -} -} -S_28593:; -if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(21885);if(r)goto S_28593;} -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); -if(!qbevent)break;evnt(21885);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(21885);}while(r); -} -dl_continue_3050:; -} -dl_exit_3050:; -S_28599:; -if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||new_error){ -if(qbevent){evnt(21887);if(r)goto S_28599;} -do{ -*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF; -if(!qbevent)break;evnt(21888);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(21889);}while(r); -S_28602:; -if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(21890);if(r)goto S_28602;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21890);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21890);}while(r); -} -S_28606:; -if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(21892);if(r)goto S_28606;} -do{ -*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; -if(!qbevent)break;evnt(21893);}while(r); -do{ -*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V); -if(!qbevent)break;evnt(21894);}while(r); -do{ -*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(21895);}while(r); -}else{ -S_28611:; -if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(21897);if(r)goto S_28611;} -do{ -*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; -if(!qbevent)break;evnt(21898);}while(r); -do{ -*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V; -if(!qbevent)break;evnt(21899);}while(r); -do{ -*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(21900);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; -if(!qbevent)break;evnt(21902);}while(r); -do{ -*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(21903);}while(r); -do{ -*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(21904);}while(r); -} -} -S_28621:; -if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||new_error){ -if(qbevent){evnt(21907);if(r)goto S_28621;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21907);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21907);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(21908);}while(r); -do{ -goto LABEL_CONSTANTLENSTR; -if(!qbevent)break;evnt(21909);}while(r); -} -S_28628:; -if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ -if(qbevent){evnt(21912);if(r)goto S_28628;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21912);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21912);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21913);}while(r); -S_28633:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ -if(qbevent){evnt(21914);if(r)goto S_28633;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21914);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21914);}while(r); -} -LABEL_CONSTANTLENSTR:; -if(qbevent){evnt(21915);r=0;} -do{ -*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; -if(!qbevent)break;evnt(21916);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(21917);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21918);}while(r); -} -S_28641:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(21921);if(r)goto S_28641;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(21921);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21921);}while(r); -} -S_28645:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(21922);if(r)goto S_28645;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(21922);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21922);}while(r); -} -S_28649:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6))))||new_error){ -if(qbevent){evnt(21923);if(r)goto S_28649;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(21923);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21923);}while(r); -} -S_28653:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10))))||new_error){ -if(qbevent){evnt(21924);if(r)goto S_28653;} -do{ -*_FUNC_TYPNAME2TYP_LONG_U= 1 ; -if(!qbevent)break;evnt(21924);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_T,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21924);}while(r); -} -S_28657:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||new_error){ -if(qbevent){evnt(21925);if(r)goto S_28657;} -S_28658:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4))))||new_error){ -if(qbevent){evnt(21926);if(r)goto S_28658;} -S_28659:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(21927);if(r)goto S_28659;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE; -if(!qbevent)break;evnt(21927);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE; -if(!qbevent)break;evnt(21927);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21928);}while(r); -} -S_28666:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7))))||new_error){ -if(qbevent){evnt(21930);if(r)goto S_28666;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21930);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21930);}while(r); -} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21932);}while(r); -S_28671:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(21933);if(r)goto S_28671;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21933);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21933);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21934);}while(r); -S_28676:; -if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 56 )))||new_error){ -if(qbevent){evnt(21935);if(r)goto S_28676;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid size after _BIT *",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21935);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21935);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B; -if(!qbevent)break;evnt(21936);}while(r); -S_28681:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(21936);if(r)goto S_28681;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21936);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; -if(!qbevent)break;evnt(21937);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21938);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_T= 0 ; -if(!qbevent)break;evnt(21941);}while(r); -S_28688:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5))))||new_error){ -if(qbevent){evnt(21942);if(r)goto S_28688;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(21942);}while(r); -} -S_28691:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||new_error){ -if(qbevent){evnt(21943);if(r)goto S_28691;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(21943);}while(r); -} -S_28694:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||new_error){ -if(qbevent){evnt(21944);if(r)goto S_28694;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(21944);}while(r); -} -S_28697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10))))||new_error){ -if(qbevent){evnt(21945);if(r)goto S_28697;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(21945);}while(r); -} -S_28700:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7))))||new_error){ -if(qbevent){evnt(21946);if(r)goto S_28700;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(21946);}while(r); -} -S_28703:; -if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ -if(qbevent){evnt(21947);if(r)goto S_28703;} -S_28704:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(21948);if(r)goto S_28704;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21948);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; -if(!qbevent)break;evnt(21949);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21950);}while(r); -} -S_28710:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(21952);if(r)goto S_28710;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21952);}while(r); -} -S_28713:; -fornext_value3056= 1 ; -fornext_finalvalue3056=*__LONG_LASTTYPE; -fornext_step3056= 1 ; -if (fornext_step3056<0) fornext_step_negative3056=1; else fornext_step_negative3056=0; -if (new_error) goto fornext_error3056; -goto fornext_entrylabel3056; -while(1){ -fornext_value3056=fornext_step3056+(*_FUNC_TYPNAME2TYP_LONG_I); -fornext_entrylabel3056: -*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3056; -if (fornext_step_negative3056){ -if (fornext_value3056fornext_finalvalue3056) break; -} -fornext_error3056:; -if(qbevent){evnt(21955);if(r)goto S_28713;} -S_28714:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ -if(qbevent){evnt(21956);if(r)goto S_28714;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; -if(!qbevent)break;evnt(21957);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21958);}while(r); -} -fornext_continue_3055:; -} -fornext_exit_3055:; +*_FUNC_TYPECOMP_LONG_TYPECOMP=*_FUNC_TYPECOMP_LONG_TYP2; +if(!qbevent)break;evnt(22656);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free48.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP; +return *_FUNC_TYPECOMP_LONG_TYPECOMP; } -int32 FUNC_UNIQUENUMBER(){ +int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -97831,19 +103473,656 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*__LONG_UNIQUENUMBERN=*__LONG_UNIQUENUMBERN+ 1 ; -if(!qbevent)break;evnt(21966);}while(r); +*__LONG_TYPNAME2TYPSIZE= 0 ; +if(!qbevent)break;evnt(22660);}while(r); do{ -*_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER=*__LONG_UNIQUENUMBERN; -if(!qbevent)break;evnt(21967);}while(r); +qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22662);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22665);}while(r); +S_30005:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22666);if(r)goto S_30005;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(22666);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22666);}while(r); +} +S_30009:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(22667);if(r)goto S_30009;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(22667);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22667);}while(r); +} +S_30013:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(22668);if(r)goto S_30013;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(22668);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22668);}while(r); +} +S_30017:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(22669);if(r)goto S_30017;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(22669);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22669);}while(r); +} +S_30021:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22672);if(r)goto S_30021;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22673);}while(r); +S_30023:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22674);if(r)goto S_30023;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22674);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22674);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22675);}while(r); +S_30028:; +if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(22676);if(r)goto S_30028;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22676);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22676);}while(r); +} +do{ +*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; +if(!qbevent)break;evnt(22677);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(22678);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22679);}while(r); +} +S_30036:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(22683);if(r)goto S_30036;} +do{ +*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ; +if(!qbevent)break;evnt(22683);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22683);}while(r); +} +S_30040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(22686);if(r)goto S_30040;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22687);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_B= 1 ; +if(!qbevent)break;evnt(22688);}while(r); +S_30043:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22689);if(r)goto S_30043;} +S_30044:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22690);if(r)goto S_30044;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22690);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22690);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22691);}while(r); +S_30049:; +if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||new_error){ +if(qbevent){evnt(22692);if(r)goto S_30049;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22692);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22692);}while(r); +} +} +S_30054:; +if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22694);if(r)goto S_30054;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); +if(!qbevent)break;evnt(22694);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); +if(!qbevent)break;evnt(22694);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22695);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_T= 0 ; +if(!qbevent)break;evnt(22698);}while(r); +S_30062:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(22699);if(r)goto S_30062;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(22699);}while(r); +} +S_30065:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(22700);if(r)goto S_30065;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(22700);}while(r); +} +S_30068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(22701);if(r)goto S_30068;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(22701);}while(r); +} +S_30071:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(22702);if(r)goto S_30071;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(22702);}while(r); +} +S_30074:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(22703);if(r)goto S_30074;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(22703);}while(r); +} +S_30077:; +if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ +if(qbevent){evnt(22705);if(r)goto S_30077;} +S_30078:; +if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22706);if(r)goto S_30078;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(22706);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; +if(!qbevent)break;evnt(22707);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22707);}while(r); +} +S_30084:; +fornext_value3227= 1 ; +fornext_finalvalue3227=_FUNC_TYPNAME2TYP_STRING_T->len; +fornext_step3227= 1 ; +if (fornext_step3227<0) fornext_step_negative3227=1; else fornext_step_negative3227=0; +if (new_error) goto fornext_error3227; +goto fornext_entrylabel3227; +while(1){ +fornext_value3227=fornext_step3227+(*_FUNC_TYPNAME2TYP_LONG_I); +fornext_entrylabel3227: +*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3227; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3227){ +if (fornext_value3227fornext_finalvalue3227) break; +} +fornext_error3227:; +if(qbevent){evnt(22712);if(r)goto S_30084;} +S_30085:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(22713);if(r)goto S_30085;} +do{ +sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(22713);}while(r); +} +fornext_continue_3226:; +} +fornext_exit_3226:; +S_30089:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(22715);if(r)goto S_30089;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(22715);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22715);}while(r); +} +S_30093:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ +if(qbevent){evnt(22717);if(r)goto S_30093;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22719);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ; +if(!qbevent)break;evnt(22722);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22723);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(22724);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22725);}while(r); +S_30099:; +while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||new_error){ +if(qbevent){evnt(22726);if(r)goto S_30099;} +S_30100:; +if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ +if(qbevent){evnt(22727);if(r)goto S_30100;} +S_30101:; +if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ +if(qbevent){evnt(22728);if(r)goto S_30101;} +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ; +if(!qbevent)break;evnt(22729);}while(r); +do{ +goto dl_exit_3230; +if(!qbevent)break;evnt(22730);}while(r); +} +} +S_30106:; +if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(22733);if(r)goto S_30106;} +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); +if(!qbevent)break;evnt(22733);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(22733);}while(r); +} +dl_continue_3230:; +} +dl_exit_3230:; +S_30112:; +if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||new_error){ +if(qbevent){evnt(22735);if(r)goto S_30112;} +do{ +*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF; +if(!qbevent)break;evnt(22736);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(22737);}while(r); +S_30115:; +if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(22738);if(r)goto S_30115;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22738);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22738);}while(r); +} +S_30119:; +if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(22740);if(r)goto S_30119;} +do{ +*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; +if(!qbevent)break;evnt(22741);}while(r); +do{ +*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V); +if(!qbevent)break;evnt(22742);}while(r); +do{ +*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22743);}while(r); +}else{ +S_30124:; +if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(22745);if(r)goto S_30124;} +do{ +*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; +if(!qbevent)break;evnt(22746);}while(r); +do{ +*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V; +if(!qbevent)break;evnt(22747);}while(r); +do{ +*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22748);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; +if(!qbevent)break;evnt(22750);}while(r); +do{ +*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22751);}while(r); +do{ +*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22752);}while(r); +} +} +S_30134:; +if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||new_error){ +if(qbevent){evnt(22755);if(r)goto S_30134;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22755);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22755);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22756);}while(r); +do{ +goto LABEL_CONSTANTLENSTR; +if(!qbevent)break;evnt(22757);}while(r); +} +S_30141:; +if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ +if(qbevent){evnt(22760);if(r)goto S_30141;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22760);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22760);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22761);}while(r); +S_30146:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ +if(qbevent){evnt(22762);if(r)goto S_30146;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22762);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22762);}while(r); +} +LABEL_CONSTANTLENSTR:; +if(qbevent){evnt(22763);r=0;} +do{ +*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; +if(!qbevent)break;evnt(22764);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(22765);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22766);}while(r); +} +S_30154:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(22769);if(r)goto S_30154;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(22769);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22769);}while(r); +} +S_30158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(22770);if(r)goto S_30158;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(22770);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22770);}while(r); +} +S_30162:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("FLOAT",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22771);if(r)goto S_30162;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(22771);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22771);}while(r); +} +S_30166:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("UNSIGNED ",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22772);if(r)goto S_30166;} +do{ +*_FUNC_TYPNAME2TYP_LONG_U= 1 ; +if(!qbevent)break;evnt(22773);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_T,func_mid(_FUNC_TYPNAME2TYP_STRING_T,func_instr(NULL,_FUNC_TYPNAME2TYP_STRING_T,func_chr( 32 ),0)+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22774);}while(r); +} +S_30170:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 3 ),qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22776);if(r)goto S_30170;} +S_30171:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22777);if(r)goto S_30171;} +S_30172:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22778);if(r)goto S_30172;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE; +if(!qbevent)break;evnt(22778);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE; +if(!qbevent)break;evnt(22778);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22779);}while(r); +} +S_30179:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 6 ),qbs_new_txt_len("BIT * ",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22781);if(r)goto S_30179;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected _BIT * number",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22781);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22781);}while(r); +} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22783);}while(r); +S_30184:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22784);if(r)goto S_30184;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Invalid size after ",19),__STRING_QB64PREFIX),qbs_new_txt_len("BIT *",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22784);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22784);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22785);}while(r); +S_30189:; +if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||new_error){ +if(qbevent){evnt(22786);if(r)goto S_30189;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Invalid size after ",19),__STRING_QB64PREFIX),qbs_new_txt_len("BIT *",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22786);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22786);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B; +if(!qbevent)break;evnt(22787);}while(r); +S_30194:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22787);if(r)goto S_30194;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(22787);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; +if(!qbevent)break;evnt(22788);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22789);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_T= 0 ; +if(!qbevent)break;evnt(22792);}while(r); +S_30201:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("BYTE",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22793);if(r)goto S_30201;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(22793);}while(r); +} +S_30204:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||new_error){ +if(qbevent){evnt(22794);if(r)goto S_30204;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(22794);}while(r); +} +S_30207:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||new_error){ +if(qbevent){evnt(22795);if(r)goto S_30207;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(22795);}while(r); +} +S_30210:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER64",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22796);if(r)goto S_30210;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(22796);}while(r); +} +S_30213:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22797);if(r)goto S_30213;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(22797);}while(r); +} +S_30216:; +if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ +if(qbevent){evnt(22798);if(r)goto S_30216;} +S_30217:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22799);if(r)goto S_30217;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(22799);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; +if(!qbevent)break;evnt(22800);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22801);}while(r); +} +S_30223:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22803);if(r)goto S_30223;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22803);}while(r); +} +S_30226:; +fornext_value3235= 1 ; +fornext_finalvalue3235=*__LONG_LASTTYPE; +fornext_step3235= 1 ; +if (fornext_step3235<0) fornext_step_negative3235=1; else fornext_step_negative3235=0; +if (new_error) goto fornext_error3235; +goto fornext_entrylabel3235; +while(1){ +fornext_value3235=fornext_step3235+(*_FUNC_TYPNAME2TYP_LONG_I); +fornext_entrylabel3235: +*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3235; +if (fornext_step_negative3235){ +if (fornext_value3235fornext_finalvalue3235) break; +} +fornext_error3235:; +if(qbevent){evnt(22806);if(r)goto S_30226;} +S_30227:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ +if(qbevent){evnt(22807);if(r)goto S_30227;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; +if(!qbevent)break;evnt(22808);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22809);}while(r); +S_30230:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 )))){ +if(qbevent){evnt(22810);if(r)goto S_30230;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; +if(!qbevent)break;evnt(22811);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22812);}while(r); +} +} +fornext_continue_3234:; +} +fornext_exit_3234:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free49.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER; +return *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP; } -int32 FUNC_VALIDLABEL(qbs*_FUNC_VALIDLABEL_STRING_LABEL2){ +int32 FUNC_UNIQUENUMBER(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -97857,483 +104136,19 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_VALIDLABEL_LONG_CREATE=*__LONG_CREATINGLABEL; -if(!qbevent)break;evnt(21971);}while(r); +*__LONG_UNIQUENUMBERN=*__LONG_UNIQUENUMBERN+ 1 ; +if(!qbevent)break;evnt(22820);}while(r); do{ -*__LONG_CREATINGLABEL= 0 ; -if(!qbevent)break;evnt(21971);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 0 ; -if(!qbevent)break;evnt(21972);}while(r); -S_28724:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_LABEL2->len== 0 )))||new_error){ -if(qbevent){evnt(21973);if(r)goto S_28724;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21973);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_STRING_LABEL2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21974);}while(r); -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21975);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_N=FUNC_NUMELEMENTS(_FUNC_VALIDLABEL_STRING_LABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21977);}while(r); -S_28730:; -if ((-(*_FUNC_VALIDLABEL_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(21979);if(r)goto S_28730;} -do{ -*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFIND(_FUNC_VALIDLABEL_STRING_LABEL,&(pass3059= 8 + 64 + 128 ),_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21982);}while(r); -S_28732:; -while((*_FUNC_VALIDLABEL_LONG_HASHRES)||new_error){ -if(qbevent){evnt(21983);if(r)goto S_28732;} -S_28733:; -if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ -if(qbevent){evnt(21984);if(r)goto S_28733;} -S_28734:; -if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+548)))||new_error){ -if(qbevent){evnt(21985);if(r)goto S_28734;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21985);}while(r); -} -S_28737:; -if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS& 64 )||new_error){ -if(qbevent){evnt(21987);if(r)goto S_28737;} -S_28738:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+1613)),256,1))== 32 )))||new_error){ -if(qbevent){evnt(21990);if(r)goto S_28738;} -S_28739:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+809))== 0 ))||new_error){ -if(qbevent){evnt(21991);if(r)goto S_28739;} -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; -if(!qbevent)break;evnt(21991);}while(r); -}else{ -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; -if(!qbevent)break;evnt(21991);}while(r); -} -}else{ -S_28745:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+1613)),256,1))!= 91 )))||new_error){ -if(qbevent){evnt(21993);if(r)goto S_28745;} -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; -if(!qbevent)break;evnt(21994);}while(r); -}else{ -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; -if(!qbevent)break;evnt(21996);}while(r); -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2863+1613)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21997);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_B= 1 ; -if(!qbevent)break;evnt(21998);}while(r); -S_28751:; -fornext_value3062= 2 ; -fornext_finalvalue3062=_FUNC_VALIDLABEL_STRING_A->len; -fornext_step3062= 1 ; -if (fornext_step3062<0) fornext_step_negative3062=1; else fornext_step_negative3062=0; -if (new_error) goto fornext_error3062; -goto fornext_entrylabel3062; -while(1){ -fornext_value3062=fornext_step3062+(*_FUNC_VALIDLABEL_LONG_X); -fornext_entrylabel3062: -*_FUNC_VALIDLABEL_LONG_X=fornext_value3062; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3062){ -if (fornext_value3062fornext_finalvalue3062) break; -} -fornext_error3062:; -if(qbevent){evnt(21999);if(r)goto S_28751;} -do{ -*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_A,*_FUNC_VALIDLABEL_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22000);}while(r); -S_28753:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 91 ))||new_error){ -if(qbevent){evnt(22001);if(r)goto S_28753;} -do{ -*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B+ 1 ; -if(!qbevent)break;evnt(22001);}while(r); -} -S_28756:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 93 ))||new_error){ -if(qbevent){evnt(22002);if(r)goto S_28756;} -do{ -*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B- 1 ; -if(!qbevent)break;evnt(22002);}while(r); -} -S_28759:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_B== 0 ))&(-(*_FUNC_VALIDLABEL_LONG_X!=_FUNC_VALIDLABEL_STRING_A->len))))||new_error){ -if(qbevent){evnt(22003);if(r)goto S_28759;} -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; -if(!qbevent)break;evnt(22003);}while(r); -do{ -goto fornext_exit_3061; -if(!qbevent)break;evnt(22003);}while(r); -} -fornext_continue_3061:; -} -fornext_exit_3061:; -} -} -S_28766:; -if (((-(*_FUNC_VALIDLABEL_LONG_CREATE!= 0 ))&(-(*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB== 1 )))||new_error){ -if(qbevent){evnt(22007);if(r)goto S_28766;} -S_28767:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP),0)== 0 )))||new_error){ -if(qbevent){evnt(22008);if(r)goto S_28767;} -do{ -qbs_set(__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING_POSSIBLESUBNAMELABELS,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22008);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22008);}while(r); -} -} -} -}else{ -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22015);}while(r); -} -S_28776:; -if ((-(*_FUNC_VALIDLABEL_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(22017);if(r)goto S_28776;} -do{ -*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); -if(!qbevent)break;evnt(22017);}while(r); -}else{ -do{ -*_FUNC_VALIDLABEL_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(22017);}while(r); -} -dl_continue_3060:; -} -dl_exit_3060:; -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_LABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22024);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22026);}while(r); -S_28784:; -if (((((-(*_FUNC_VALIDLABEL_LONG_A>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_A<= 57 ))))|(-(*_FUNC_VALIDLABEL_LONG_A== 46 )))||new_error){ -if(qbevent){evnt(22027);if(r)goto S_28784;} -do{ -*_FUNC_VALIDLABEL_LONG_X=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,func_chr( 44 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22030);}while(r); -S_28786:; -if ((*_FUNC_VALIDLABEL_LONG_X)||new_error){ -if(qbevent){evnt(22031);if(r)goto S_28786;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_right(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_T->len-*_FUNC_VALIDLABEL_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22032);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,FUNC_REMOVESYMBOL(_FUNC_VALIDLABEL_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22037);}while(r); -S_28790:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22038);if(r)goto S_28790;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22038);}while(r); -} -S_28793:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_VALIDLABEL_STRING_ADDSYMBOL->len))||new_error){ -if(qbevent){evnt(22039);if(r)goto S_28793;} -S_28794:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(22040);if(r)goto S_28794;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22040);}while(r); -} -S_28797:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1)))&(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1)))))||new_error){ -if(qbevent){evnt(22041);if(r)goto S_28797;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22041);}while(r); -} -} -S_28801:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(22044);if(r)goto S_28801;} -do{ -*_FUNC_VALIDLABEL_LONG_DP= 1 ; -if(!qbevent)break;evnt(22044);}while(r); -} -S_28804:; -fornext_value3068= 2 ; -fornext_finalvalue3068=_FUNC_VALIDLABEL_STRING_T->len; -fornext_step3068= 1 ; -if (fornext_step3068<0) fornext_step_negative3068=1; else fornext_step_negative3068=0; -if (new_error) goto fornext_error3068; -goto fornext_entrylabel3068; -while(1){ -fornext_value3068=fornext_step3068+(*_FUNC_VALIDLABEL_LONG_X); -fornext_entrylabel3068: -*_FUNC_VALIDLABEL_LONG_X=fornext_value3068; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3068){ -if (fornext_value3068fornext_finalvalue3068) break; -} -fornext_error3068:; -if(qbevent){evnt(22045);if(r)goto S_28804;} -do{ -*_FUNC_VALIDLABEL_LONG_A=qbs_asc(func_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_X, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22046);}while(r); -S_28806:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(22047);if(r)goto S_28806;} -do{ -*_FUNC_VALIDLABEL_LONG_DP=*_FUNC_VALIDLABEL_LONG_DP+ 1 ; -if(!qbevent)break;evnt(22047);}while(r); -} -S_28809:; -if (((((-(*_FUNC_VALIDLABEL_LONG_A< 48 ))|(-(*_FUNC_VALIDLABEL_LONG_A> 57 ))))&(-(*_FUNC_VALIDLABEL_LONG_A!= 46 )))||new_error){ -if(qbevent){evnt(22048);if(r)goto S_28809;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22048);}while(r); -} -fornext_continue_3067:; -} -fornext_exit_3067:; -S_28813:; -if ((-(*_FUNC_VALIDLABEL_LONG_DP> 1 ))||new_error){ -if(qbevent){evnt(22050);if(r)goto S_28813;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22050);}while(r); -} -S_28816:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_DP== 1 ))&(-(_FUNC_VALIDLABEL_STRING_T->len== 1 ))))||new_error){ -if(qbevent){evnt(22051);if(r)goto S_28816;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22051);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,qbs_add(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_ADDSYMBOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22053);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_I=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len(".",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22055);}while(r); -S_28821:; -if ((*_FUNC_VALIDLABEL_LONG_I)||new_error){ -if(qbevent){evnt(22055);if(r)goto S_28821;} -do{ -sub_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_I, 1 ,qbs_new_txt_len("p",1),1); -if(!qbevent)break;evnt(22055);}while(r); -} -S_28824:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(22056);if(r)goto S_28824;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("d",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22056);}while(r); -} -S_28827:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(22057);if(r)goto S_28827;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("s",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22057);}while(r); -} -S_28830:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_T->len> 40 )))||new_error){ -if(qbevent){evnt(22059);if(r)goto S_28830;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22059);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22061);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; -if(!qbevent)break;evnt(22062);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22063);}while(r); -} -} -S_28838:; -if ((-((*_FUNC_VALIDLABEL_LONG_N& 1 )== 0 ))||new_error){ -if(qbevent){evnt(22072);if(r)goto S_28838;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22072);}while(r); -} -S_28841:; -fornext_value3073= 2 ; -fornext_finalvalue3073=*_FUNC_VALIDLABEL_LONG_N- 1 ; -fornext_step3073= 2 ; -if (fornext_step3073<0) fornext_step_negative3073=1; else fornext_step_negative3073=0; -if (new_error) goto fornext_error3073; -goto fornext_entrylabel3073; -while(1){ -fornext_value3073=fornext_step3073+(*_FUNC_VALIDLABEL_LONG_NX); -fornext_entrylabel3073: -*_FUNC_VALIDLABEL_LONG_NX=fornext_value3073; -if (fornext_step_negative3073){ -if (fornext_value3073fornext_finalvalue3073) break; -} -fornext_error3073:; -if(qbevent){evnt(22073);if(r)goto S_28841;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_A,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_LONG_NX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22074);}while(r); -S_28843:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_VALIDLABEL_STRING_A,qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(22075);if(r)goto S_28843;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22075);}while(r); -} -fornext_continue_3072:; -} -fornext_exit_3072:; -do{ -*_FUNC_VALIDLABEL_LONG_C=qbs_asc(_FUNC_VALIDLABEL_STRING_CLABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22079);}while(r); -S_28848:; -if (((-(*_FUNC_VALIDLABEL_LONG_C>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(22079);if(r)goto S_28848;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22079);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22082);}while(r); -S_28852:; -fornext_value3075= 1 ; -fornext_finalvalue3075=*_FUNC_VALIDLABEL_LONG_N; -fornext_step3075= 2 ; -if (fornext_step3075<0) fornext_step_negative3075=1; else fornext_step_negative3075=0; -if (new_error) goto fornext_error3075; -goto fornext_entrylabel3075; -while(1){ -fornext_value3075=fornext_step3075+(*_FUNC_VALIDLABEL_LONG_NX); -fornext_entrylabel3075: -*_FUNC_VALIDLABEL_LONG_NX=fornext_value3075; -if (fornext_step_negative3075){ -if (fornext_value3075fornext_finalvalue3075) break; -} -fornext_error3075:; -if(qbevent){evnt(22083);if(r)goto S_28852;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_LONG_NX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22084);}while(r); -S_28854:; -fornext_value3077= 1 ; -fornext_finalvalue3077=_FUNC_VALIDLABEL_STRING_LABEL->len; -fornext_step3077= 1 ; -if (fornext_step3077<0) fornext_step_negative3077=1; else fornext_step_negative3077=0; -if (new_error) goto fornext_error3077; -goto fornext_entrylabel3077; -while(1){ -fornext_value3077=fornext_step3077+(*_FUNC_VALIDLABEL_LONG_X); -fornext_entrylabel3077: -*_FUNC_VALIDLABEL_LONG_X=fornext_value3077; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3077){ -if (fornext_value3077fornext_finalvalue3077) break; -} -fornext_error3077:; -if(qbevent){evnt(22087);if(r)goto S_28854;} -S_28855:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_VALIDLABEL_STRING_LABEL,*_FUNC_VALIDLABEL_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ -if(qbevent){evnt(22088);if(r)goto S_28855;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22088);}while(r); -} -fornext_continue_3076:; -} -fornext_exit_3076:; -S_28859:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22092);if(r)goto S_28859;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22092);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_FUNC_VALIDLABEL_STRING_LABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22092);}while(r); -}else{ -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_add(qbs_add(_FUNC_VALIDLABEL_STRING_LABEL3,__STRING_FIX046),qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22092);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(".",1)),_FUNC_VALIDLABEL_STRING_LABEL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22092);}while(r); -} -fornext_continue_3074:; -} -fornext_exit_3074:; -do{ -*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; -if(!qbevent)break;evnt(22095);}while(r); -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_LABEL3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22096);}while(r); +*_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER=*__LONG_UNIQUENUMBERN; +if(!qbevent)break;evnt(22821);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free50.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_VALIDLABEL_LONG_VALIDLABEL; +return *_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER; } -void SUB_XEND(){ +int32 FUNC_VALIDLABEL(qbs*_FUNC_VALIDLABEL_STRING_LABEL2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -98347,22 +104162,483 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3079; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_end();",10), 0 , 0 , 1 ); -if (new_error) goto skip3079; -skip3079: +*_FUNC_VALIDLABEL_LONG_CREATE=*__LONG_CREATINGLABEL; +if(!qbevent)break;evnt(22825);}while(r); +do{ +*__LONG_CREATINGLABEL= 0 ; +if(!qbevent)break;evnt(22825);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 0 ; +if(!qbevent)break;evnt(22826);}while(r); +S_30240:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_LABEL2->len== 0 )))||new_error){ +if(qbevent){evnt(22827);if(r)goto S_30240;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22827);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_STRING_LABEL2); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22102);}while(r); +if(!qbevent)break;evnt(22828);}while(r); +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22829);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_N=FUNC_NUMELEMENTS(_FUNC_VALIDLABEL_STRING_LABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22831);}while(r); +S_30246:; +if ((-(*_FUNC_VALIDLABEL_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(22833);if(r)goto S_30246;} +do{ +*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFIND(_FUNC_VALIDLABEL_STRING_LABEL,&(pass3238= 8 + 64 + 128 ),_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22836);}while(r); +S_30248:; +while((*_FUNC_VALIDLABEL_LONG_HASHRES)||new_error){ +if(qbevent){evnt(22837);if(r)goto S_30248;} +S_30249:; +if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ +if(qbevent){evnt(22838);if(r)goto S_30249;} +S_30250:; +if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548)))||new_error){ +if(qbevent){evnt(22839);if(r)goto S_30250;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22839);}while(r); +} +S_30253:; +if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS& 64 )||new_error){ +if(qbevent){evnt(22841);if(r)goto S_30253;} +S_30254:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))== 32 )))||new_error){ +if(qbevent){evnt(22844);if(r)goto S_30254;} +S_30255:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 0 ))||new_error){ +if(qbevent){evnt(22845);if(r)goto S_30255;} +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; +if(!qbevent)break;evnt(22845);}while(r); +}else{ +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; +if(!qbevent)break;evnt(22845);}while(r); +} +}else{ +S_30261:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))!= 91 )))||new_error){ +if(qbevent){evnt(22847);if(r)goto S_30261;} +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; +if(!qbevent)break;evnt(22848);}while(r); +}else{ +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; +if(!qbevent)break;evnt(22850);}while(r); +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22851);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_B= 1 ; +if(!qbevent)break;evnt(22852);}while(r); +S_30267:; +fornext_value3241= 2 ; +fornext_finalvalue3241=_FUNC_VALIDLABEL_STRING_A->len; +fornext_step3241= 1 ; +if (fornext_step3241<0) fornext_step_negative3241=1; else fornext_step_negative3241=0; +if (new_error) goto fornext_error3241; +goto fornext_entrylabel3241; +while(1){ +fornext_value3241=fornext_step3241+(*_FUNC_VALIDLABEL_LONG_X); +fornext_entrylabel3241: +*_FUNC_VALIDLABEL_LONG_X=fornext_value3241; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3241){ +if (fornext_value3241fornext_finalvalue3241) break; +} +fornext_error3241:; +if(qbevent){evnt(22853);if(r)goto S_30267;} +do{ +*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_A,*_FUNC_VALIDLABEL_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22854);}while(r); +S_30269:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 91 ))||new_error){ +if(qbevent){evnt(22855);if(r)goto S_30269;} +do{ +*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B+ 1 ; +if(!qbevent)break;evnt(22855);}while(r); +} +S_30272:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 93 ))||new_error){ +if(qbevent){evnt(22856);if(r)goto S_30272;} +do{ +*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B- 1 ; +if(!qbevent)break;evnt(22856);}while(r); +} +S_30275:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_B== 0 ))&(-(*_FUNC_VALIDLABEL_LONG_X!=_FUNC_VALIDLABEL_STRING_A->len))))||new_error){ +if(qbevent){evnt(22857);if(r)goto S_30275;} +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; +if(!qbevent)break;evnt(22857);}while(r); +do{ +goto fornext_exit_3240; +if(!qbevent)break;evnt(22857);}while(r); +} +fornext_continue_3240:; +} +fornext_exit_3240:; +} +} +S_30282:; +if (((-(*_FUNC_VALIDLABEL_LONG_CREATE!= 0 ))&(-(*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB== 1 )))||new_error){ +if(qbevent){evnt(22861);if(r)goto S_30282;} +S_30283:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP),0)== 0 )))||new_error){ +if(qbevent){evnt(22862);if(r)goto S_30283;} +do{ +qbs_set(__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING_POSSIBLESUBNAMELABELS,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22862);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22862);}while(r); +} +} +} +}else{ +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22869);}while(r); +} +S_30292:; +if ((-(*_FUNC_VALIDLABEL_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(22871);if(r)goto S_30292;} +do{ +*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); +if(!qbevent)break;evnt(22871);}while(r); +}else{ +do{ +*_FUNC_VALIDLABEL_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(22871);}while(r); +} +dl_continue_3239:; +} +dl_exit_3239:; +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_LABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22878);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22880);}while(r); +S_30300:; +if (((((-(*_FUNC_VALIDLABEL_LONG_A>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_A<= 57 ))))|(-(*_FUNC_VALIDLABEL_LONG_A== 46 )))||new_error){ +if(qbevent){evnt(22881);if(r)goto S_30300;} +do{ +*_FUNC_VALIDLABEL_LONG_X=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,func_chr( 44 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22884);}while(r); +S_30302:; +if ((*_FUNC_VALIDLABEL_LONG_X)||new_error){ +if(qbevent){evnt(22885);if(r)goto S_30302;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_right(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_T->len-*_FUNC_VALIDLABEL_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22886);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,FUNC_REMOVESYMBOL(_FUNC_VALIDLABEL_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22891);}while(r); +S_30306:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22892);if(r)goto S_30306;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22892);}while(r); +} +S_30309:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_VALIDLABEL_STRING_ADDSYMBOL->len))||new_error){ +if(qbevent){evnt(22893);if(r)goto S_30309;} +S_30310:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(22894);if(r)goto S_30310;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22894);}while(r); +} +S_30313:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1)))&(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1)))))||new_error){ +if(qbevent){evnt(22895);if(r)goto S_30313;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22895);}while(r); +} +} +S_30317:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(22898);if(r)goto S_30317;} +do{ +*_FUNC_VALIDLABEL_LONG_DP= 1 ; +if(!qbevent)break;evnt(22898);}while(r); +} +S_30320:; +fornext_value3247= 2 ; +fornext_finalvalue3247=_FUNC_VALIDLABEL_STRING_T->len; +fornext_step3247= 1 ; +if (fornext_step3247<0) fornext_step_negative3247=1; else fornext_step_negative3247=0; +if (new_error) goto fornext_error3247; +goto fornext_entrylabel3247; +while(1){ +fornext_value3247=fornext_step3247+(*_FUNC_VALIDLABEL_LONG_X); +fornext_entrylabel3247: +*_FUNC_VALIDLABEL_LONG_X=fornext_value3247; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3247){ +if (fornext_value3247fornext_finalvalue3247) break; +} +fornext_error3247:; +if(qbevent){evnt(22899);if(r)goto S_30320;} +do{ +*_FUNC_VALIDLABEL_LONG_A=qbs_asc(func_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_X, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22900);}while(r); +S_30322:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(22901);if(r)goto S_30322;} +do{ +*_FUNC_VALIDLABEL_LONG_DP=*_FUNC_VALIDLABEL_LONG_DP+ 1 ; +if(!qbevent)break;evnt(22901);}while(r); +} +S_30325:; +if (((((-(*_FUNC_VALIDLABEL_LONG_A< 48 ))|(-(*_FUNC_VALIDLABEL_LONG_A> 57 ))))&(-(*_FUNC_VALIDLABEL_LONG_A!= 46 )))||new_error){ +if(qbevent){evnt(22902);if(r)goto S_30325;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22902);}while(r); +} +fornext_continue_3246:; +} +fornext_exit_3246:; +S_30329:; +if ((-(*_FUNC_VALIDLABEL_LONG_DP> 1 ))||new_error){ +if(qbevent){evnt(22904);if(r)goto S_30329;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22904);}while(r); +} +S_30332:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_DP== 1 ))&(-(_FUNC_VALIDLABEL_STRING_T->len== 1 ))))||new_error){ +if(qbevent){evnt(22905);if(r)goto S_30332;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22905);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,qbs_add(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_ADDSYMBOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22907);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_I=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len(".",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22909);}while(r); +S_30337:; +if ((*_FUNC_VALIDLABEL_LONG_I)||new_error){ +if(qbevent){evnt(22909);if(r)goto S_30337;} +do{ +sub_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_I, 1 ,qbs_new_txt_len("p",1),1); +if(!qbevent)break;evnt(22909);}while(r); +} +S_30340:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(22910);if(r)goto S_30340;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("d",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22910);}while(r); +} +S_30343:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(22911);if(r)goto S_30343;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("s",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22911);}while(r); +} +S_30346:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_T->len> 40 )))||new_error){ +if(qbevent){evnt(22913);if(r)goto S_30346;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22913);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22915);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; +if(!qbevent)break;evnt(22916);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22917);}while(r); +} +} +S_30354:; +if ((-((*_FUNC_VALIDLABEL_LONG_N& 1 )== 0 ))||new_error){ +if(qbevent){evnt(22926);if(r)goto S_30354;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22926);}while(r); +} +S_30357:; +fornext_value3252= 2 ; +fornext_finalvalue3252=*_FUNC_VALIDLABEL_LONG_N- 1 ; +fornext_step3252= 2 ; +if (fornext_step3252<0) fornext_step_negative3252=1; else fornext_step_negative3252=0; +if (new_error) goto fornext_error3252; +goto fornext_entrylabel3252; +while(1){ +fornext_value3252=fornext_step3252+(*_FUNC_VALIDLABEL_LONG_NX); +fornext_entrylabel3252: +*_FUNC_VALIDLABEL_LONG_NX=fornext_value3252; +if (fornext_step_negative3252){ +if (fornext_value3252fornext_finalvalue3252) break; +} +fornext_error3252:; +if(qbevent){evnt(22927);if(r)goto S_30357;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_A,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_LONG_NX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22928);}while(r); +S_30359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_VALIDLABEL_STRING_A,qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(22929);if(r)goto S_30359;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22929);}while(r); +} +fornext_continue_3251:; +} +fornext_exit_3251:; +do{ +*_FUNC_VALIDLABEL_LONG_C=qbs_asc(_FUNC_VALIDLABEL_STRING_CLABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22933);}while(r); +S_30364:; +if (((-(*_FUNC_VALIDLABEL_LONG_C>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(22933);if(r)goto S_30364;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22933);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22936);}while(r); +S_30368:; +fornext_value3254= 1 ; +fornext_finalvalue3254=*_FUNC_VALIDLABEL_LONG_N; +fornext_step3254= 2 ; +if (fornext_step3254<0) fornext_step_negative3254=1; else fornext_step_negative3254=0; +if (new_error) goto fornext_error3254; +goto fornext_entrylabel3254; +while(1){ +fornext_value3254=fornext_step3254+(*_FUNC_VALIDLABEL_LONG_NX); +fornext_entrylabel3254: +*_FUNC_VALIDLABEL_LONG_NX=fornext_value3254; +if (fornext_step_negative3254){ +if (fornext_value3254fornext_finalvalue3254) break; +} +fornext_error3254:; +if(qbevent){evnt(22937);if(r)goto S_30368;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_LONG_NX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22938);}while(r); +S_30370:; +fornext_value3256= 1 ; +fornext_finalvalue3256=_FUNC_VALIDLABEL_STRING_LABEL->len; +fornext_step3256= 1 ; +if (fornext_step3256<0) fornext_step_negative3256=1; else fornext_step_negative3256=0; +if (new_error) goto fornext_error3256; +goto fornext_entrylabel3256; +while(1){ +fornext_value3256=fornext_step3256+(*_FUNC_VALIDLABEL_LONG_X); +fornext_entrylabel3256: +*_FUNC_VALIDLABEL_LONG_X=fornext_value3256; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3256){ +if (fornext_value3256fornext_finalvalue3256) break; +} +fornext_error3256:; +if(qbevent){evnt(22941);if(r)goto S_30370;} +S_30371:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_VALIDLABEL_STRING_LABEL,*_FUNC_VALIDLABEL_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ +if(qbevent){evnt(22942);if(r)goto S_30371;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22942);}while(r); +} +fornext_continue_3255:; +} +fornext_exit_3255:; +S_30375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22946);if(r)goto S_30375;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22946);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_FUNC_VALIDLABEL_STRING_LABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22946);}while(r); +}else{ +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_add(qbs_add(_FUNC_VALIDLABEL_STRING_LABEL3,__STRING_FIX046),qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22946);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(".",1)),_FUNC_VALIDLABEL_STRING_LABEL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22946);}while(r); +} +fornext_continue_3253:; +} +fornext_exit_3253:; +do{ +*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; +if(!qbevent)break;evnt(22949);}while(r); +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_LABEL3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22950);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free51.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +return *_FUNC_VALIDLABEL_LONG_VALIDLABEL; } -void SUB_XFILEPRINT(qbs*_SUB_XFILEPRINT_STRING_A,qbs*_SUB_XFILEPRINT_STRING_CA,int32*_SUB_XFILEPRINT_LONG_N){ +void SUB_XEND(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -98375,1204 +104651,44 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_30385:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(22955);if(r)goto S_30385;} +S_30386:; +if ((((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))|(-(*__INTEGER_CLOSEDMAIN== 0 ))))||new_error){ +if(qbevent){evnt(22957);if(r)goto S_30386;} do{ -qbs_set(_SUB_XFILEPRINT_STRING_U,FUNC_STR2(&(pass3082=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22106);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3083; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=2;",18), 0 , 0 , 1 ); -if (new_error) goto skip3083; -skip3083: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22107);}while(r); -S_28872:; -if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||new_error){ -if(qbevent){evnt(22108);if(r)goto S_28872;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22108);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22108);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22109);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22110);}while(r); -S_28878:; -fornext_value3085= 3 ; -fornext_finalvalue3085=*_SUB_XFILEPRINT_LONG_N; -fornext_step3085= 1 ; -if (fornext_step3085<0) fornext_step_negative3085=1; else fornext_step_negative3085=0; -if (new_error) goto fornext_error3085; -goto fornext_entrylabel3085; -while(1){ -fornext_value3085=fornext_step3085+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3085: -*_SUB_XFILEPRINT_LONG_I=fornext_value3085; -if (fornext_step_negative3085){ -if (fornext_value3085fornext_finalvalue3085) break; -} -fornext_error3085:; -if(qbevent){evnt(22111);if(r)goto S_28878;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22112);}while(r); -S_28880:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22113);if(r)goto S_28880;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22113);}while(r); -} -S_28883:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22114);if(r)goto S_28883;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22114);}while(r); -} -S_28886:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEPRINT_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(22115);if(r)goto S_28886;} -S_28887:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22116);if(r)goto S_28887;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22116);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22116);}while(r); -} -do{ -goto LABEL_PRINTGOTFN; -if(!qbevent)break;evnt(22117);}while(r); -} -S_28893:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22119);if(r)goto S_28893;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22119);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_A3,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22119);}while(r); -} -fornext_continue_3084:; -} -fornext_exit_3084:; -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22121);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22121);}while(r); -LABEL_PRINTGOTFN:; -if(qbevent){evnt(22122);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22123);}while(r); -S_28902:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22124);if(r)goto S_28902;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22124);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("PRINT",5),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22125);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3086= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22126);}while(r); -S_28907:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22127);if(r)goto S_28907;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22127);}while(r); +SUB_VWATCHADDLABEL(&(pass3258= 0 ),&(pass3259= -1 )); +if(!qbevent)break;evnt(22957);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3087; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3087; -skip3087: +if (new_error) goto skip3260; +sub_file_print(tmp_fileno,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",101), 0 , 0 , 1 ); +if (new_error) goto skip3260; +skip3260: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22128);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3088; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3088; -skip3088: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22129);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ; -if(!qbevent)break;evnt(22130);}while(r); -S_28913:; -if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||new_error){ -if(qbevent){evnt(22133);if(r)goto S_28913;} -S_28914:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_A,_SUB_XFILEPRINT_LONG_I),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(22134);if(r)goto S_28914;} -LABEL_FPUJUMP:; -if(qbevent){evnt(22136);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),qbs_new_txt_len("USING",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22137);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22138);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22138);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22138);}while(r); -S_28919:; -fornext_value3090=*_SUB_XFILEPRINT_LONG_I+ 1 ; -fornext_finalvalue3090=*_SUB_XFILEPRINT_LONG_N; -fornext_step3090= 1 ; -if (fornext_step3090<0) fornext_step_negative3090=1; else fornext_step_negative3090=0; -if (new_error) goto fornext_error3090; -goto fornext_entrylabel3090; -while(1){ -fornext_value3090=fornext_step3090+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3090: -*_SUB_XFILEPRINT_LONG_I=fornext_value3090; -if (fornext_step_negative3090){ -if (fornext_value3090fornext_finalvalue3090) break; -} -fornext_error3090:; -if(qbevent){evnt(22139);if(r)goto S_28919;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22140);}while(r); -S_28921:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22141);if(r)goto S_28921;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22141);}while(r); -} -S_28924:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22142);if(r)goto S_28924;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22142);}while(r); -} -S_28927:; -if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22143);if(r)goto S_28927;} -S_28928:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22144);if(r)goto S_28928;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22144);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22144);}while(r); -} -S_28932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22145);if(r)goto S_28932;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22146);}while(r); -S_28934:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22147);if(r)goto S_28934;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22147);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22148);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22149);}while(r); -S_28939:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22150);if(r)goto S_28939;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22150);}while(r); -} -S_28942:; -if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22151);if(r)goto S_28942;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3091= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22151);}while(r); -} -S_28945:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22152);if(r)goto S_28945;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22152);}while(r); -} -S_28948:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22153);if(r)goto S_28948;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22153);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22153);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22154);}while(r); -do{ -goto fornext_exit_3089; -if(!qbevent)break;evnt(22155);}while(r); -} -} -S_28956:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22158);if(r)goto S_28956;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22158);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22158);}while(r); -} -fornext_continue_3089:; -} -fornext_exit_3089:; -S_28962:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22160);if(r)goto S_28962;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22160);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22160);}while(r); -} -S_28966:; -if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||new_error){ -if(qbevent){evnt(22161);if(r)goto S_28966;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22161);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22161);}while(r); +if(!qbevent)break;evnt(22958);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3093; -sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); -if (new_error) goto skip3093; -skip3093: +if (new_error) goto skip3261; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_end();",10), 0 , 0 , 1 ); +if (new_error) goto skip3261; +skip3261: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22163);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3094; -sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=0;",11), 0 , 0 , 1 ); -if (new_error) goto skip3094; -skip3094: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22165);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XFILEPRINT_STRING_U)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22167);}while(r); -S_28973:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22168);if(r)goto S_28973;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3095; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3095; -skip3095: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22169);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3096; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3096; -skip3096: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22171);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3097; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3097; -skip3097: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22173);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3098; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3098; -skip3098: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22174);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22176);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22177);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22178);}while(r); -S_28983:; -fornext_value3100=*_SUB_XFILEPRINT_LONG_I+ 1 ; -fornext_finalvalue3100=*_SUB_XFILEPRINT_LONG_N; -fornext_step3100= 1 ; -if (fornext_step3100<0) fornext_step_negative3100=1; else fornext_step_negative3100=0; -if (new_error) goto fornext_error3100; -goto fornext_entrylabel3100; -while(1){ -fornext_value3100=fornext_step3100+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3100: -*_SUB_XFILEPRINT_LONG_I=fornext_value3100; -if (fornext_step_negative3100){ -if (fornext_value3100fornext_finalvalue3100) break; -} -fornext_error3100:; -if(qbevent){evnt(22179);if(r)goto S_28983;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22180);}while(r); -S_28985:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22181);if(r)goto S_28985;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22181);}while(r); -} -S_28988:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22182);if(r)goto S_28988;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22182);}while(r); -} -S_28991:; -if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22183);if(r)goto S_28991;} -S_28992:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(22184);if(r)goto S_28992;} -LABEL_FPRINTULAST:; -if(qbevent){evnt(22185);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22186);}while(r); -S_28994:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22187);if(r)goto S_28994;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22187);}while(r); -} -S_28997:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22188);if(r)goto S_28997;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22188);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22188);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22189);}while(r); -S_29003:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22190);if(r)goto S_29003;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22190);}while(r); -} -S_29006:; -if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22191);if(r)goto S_29006;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3101= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22191);}while(r); -} -S_29009:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22192);if(r)goto S_29009;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22192);}while(r); -} -S_29012:; -if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(22193);if(r)goto S_29012;} -S_29013:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ -if(qbevent){evnt(22195);if(r)goto S_29013;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3102; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38), 0 , 0 , 1 ); -if (new_error) goto skip3102; -skip3102: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22200);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3103; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3103; -skip3103: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22202);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3104; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3104; -skip3104: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22203);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3105; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38), 0 , 0 , 1 ); -if (new_error) goto skip3105; -skip3105: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22204);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3106; -sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs->len=0;",12), 0 , 0 , 1 ); -if (new_error) goto skip3106; -skip3106: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22206);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3107; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3107; -skip3107: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22211);}while(r); -} -}else{ -S_29023:; -if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(22216);if(r)goto S_29023;} -S_29024:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(22217);if(r)goto S_29024;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3108; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); -if (new_error) goto skip3108; -skip3108: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22217);}while(r); -} -S_29027:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(22218);if(r)goto S_29027;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3109; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); -if (new_error) goto skip3109; -skip3109: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22218);}while(r); -} -S_29030:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )> 64 ))||new_error){ -if(qbevent){evnt(22219);if(r)goto S_29030;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3110; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); -if (new_error) goto skip3110; -skip3110: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22219);}while(r); -} -}else{ -S_29034:; -if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(22221);if(r)goto S_29034;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3111; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); -if (new_error) goto skip3111; -skip3111: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22222);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3112; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); -if (new_error) goto skip3112; -skip3112: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22224);}while(r); -} -} -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3113; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3113; -skip3113: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22228);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22229);}while(r); -S_29043:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22230);if(r)goto S_29043;} -do{ -goto fornext_exit_3099; -if(!qbevent)break;evnt(22230);}while(r); -} -do{ -goto LABEL_FPRINTUNEXT; -if(!qbevent)break;evnt(22231);}while(r); -} -} -S_29049:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22234);if(r)goto S_29049;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22234);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22234);}while(r); -} -LABEL_FPRINTUNEXT:; -if(qbevent){evnt(22235);r=0;} -fornext_continue_3099:; -} -fornext_exit_3099:; -S_29055:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22237);if(r)goto S_29055;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22237);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22237);}while(r); -do{ -goto LABEL_FPRINTULAST; -if(!qbevent)break;evnt(22237);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3115; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3115; -skip3115: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22238);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3116; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error){",15), 0 , 0 , 1 ); -if (new_error) goto skip3116; -skip3116: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22240);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3117; -sub_file_print(tmp_fileno,qbs_new_txt_len("g_tmp_long=new_error; new_error=0; sub_file_print(tmp_fileno,tqbs,0,0,0); new_error=g_tmp_long;",95), 0 , 0 , 1 ); -if (new_error) goto skip3117; -skip3117: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22241);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3118; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip3118; -skip3118: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22242);}while(r); -S_29064:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ -if(qbevent){evnt(22243);if(r)goto S_29064;} -do{ -*_SUB_XFILEPRINT_LONG_NL= 0 ; -if(!qbevent)break;evnt(22243);}while(r); -}else{ -do{ -*_SUB_XFILEPRINT_LONG_NL= 1 ; -if(!qbevent)break;evnt(22243);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3119; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,",35),FUNC_STR2(_SUB_XFILEPRINT_LONG_NL)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3119; -skip3119: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22244);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3120; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip3120; -skip3120: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22245);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3121; -sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); -if (new_error) goto skip3121; -skip3121: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22246);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3122; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3122; -skip3122: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22247);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3123; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3123; -skip3123: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22248);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3124; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3124; -skip3124: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22249);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3125; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); -if (new_error) goto skip3125; -skip3125: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22250);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22251);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22252);}while(r); -} -} -S_29080:; -if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||new_error){ -if(qbevent){evnt(22257);if(r)goto S_29080;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3126; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47), 0 , 0 , 1 ); -if (new_error) goto skip3126; -skip3126: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22258);}while(r); -do{ -goto LABEL_PRINTBLANKLINE; -if(!qbevent)break;evnt(22259);}while(r); -} -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22261);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22262);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22263);}while(r); -S_29087:; -fornext_value3128=*_SUB_XFILEPRINT_LONG_I; -fornext_finalvalue3128=*_SUB_XFILEPRINT_LONG_N; -fornext_step3128= 1 ; -if (fornext_step3128<0) fornext_step_negative3128=1; else fornext_step_negative3128=0; -if (new_error) goto fornext_error3128; -goto fornext_entrylabel3128; -while(1){ -fornext_value3128=fornext_step3128+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3128: -*_SUB_XFILEPRINT_LONG_I=fornext_value3128; -if (fornext_step_negative3128){ -if (fornext_value3128fornext_finalvalue3128) break; -} -fornext_error3128:; -if(qbevent){evnt(22264);if(r)goto S_29087;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22265);}while(r); -S_29089:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22266);if(r)goto S_29089;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22266);}while(r); -} -S_29092:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22267);if(r)goto S_29092;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22267);}while(r); -} -S_29095:; -if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22268);if(r)goto S_29095;} -S_29096:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ -if(qbevent){evnt(22269);if(r)goto S_29096;} -LABEL_PRINTFILELAST:; -if(qbevent){evnt(22270);r=0;} -S_29097:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(22272);if(r)goto S_29097;} -S_29098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22273);if(r)goto S_29098;} -do{ -*_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ; -if(!qbevent)break;evnt(22273);}while(r); -}else{ -do{ -goto LABEL_FPUJUMP; -if(!qbevent)break;evnt(22273);}while(r); -} -} -S_29104:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22276);if(r)goto S_29104;} -do{ -*_SUB_XFILEPRINT_LONG_USETAB= 1 ; -if(!qbevent)break;evnt(22276);}while(r); -}else{ -do{ -*_SUB_XFILEPRINT_LONG_USETAB= 0 ; -if(!qbevent)break;evnt(22276);}while(r); -} -S_29109:; -if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||new_error){ -if(qbevent){evnt(22277);if(r)goto S_29109;} -do{ -*_SUB_XFILEPRINT_LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(22277);}while(r); -}else{ -do{ -*_SUB_XFILEPRINT_LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(22277);}while(r); -} -do{ -*_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ; -if(!qbevent)break;evnt(22278);}while(r); -S_29115:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22280);if(r)goto S_29115;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22281);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ; -if(!qbevent)break;evnt(22282);}while(r); -LABEL_PRINTFILENUMBER:; -if(qbevent){evnt(22283);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22284);}while(r); -S_29119:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22285);if(r)goto S_29119;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22285);}while(r); -} -S_29122:; -if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||new_error){ -if(qbevent){evnt(22286);if(r)goto S_29122;} -S_29123:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22287);if(r)goto S_29123;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22287);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22287);}while(r); -} -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22289);}while(r); -S_29130:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22290);if(r)goto S_29130;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22290);}while(r); -} -S_29133:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22291);if(r)goto S_29133;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22292);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ; -if(!qbevent)break;evnt(22293);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ; -if(!qbevent)break;evnt(22294);}while(r); -do{ -goto LABEL_PRINTFILENUMBER; -if(!qbevent)break;evnt(22295);}while(r); -} -S_29139:; -if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22297);if(r)goto S_29139;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3130= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22297);}while(r); -} -S_29142:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22298);if(r)goto S_29142;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22298);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_EXTRASPACE)), 1 , 0 , 0 ); -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_USETAB)), 1 , 0 , 0 ); -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_NEWLINE)), 1 , 0 , 0 ); -if (new_error) goto skip3131; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip3131; -skip3131: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22300);}while(r); -}else{ -S_29147:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22302);if(r)goto S_29147;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22302);}while(r); -} -S_29150:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22303);if(r)goto S_29150;} -S_29151:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XFILEPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22304);if(r)goto S_29151;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22304);}while(r); -} -} -S_29155:; -if ((*_SUB_XFILEPRINT_LONG_USETAB)||new_error){ -if(qbevent){evnt(22306);if(r)goto S_29155;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3132; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47), 0 , 0 , 1 ); -if (new_error) goto skip3132; -skip3132: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22306);}while(r); -} -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3133; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3133; -skip3133: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22308);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22310);}while(r); -S_29161:; -if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||new_error){ -if(qbevent){evnt(22311);if(r)goto S_29161;} -do{ -goto LABEL_FPUJUMP; -if(!qbevent)break;evnt(22311);}while(r); -} -S_29164:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22312);if(r)goto S_29164;} -do{ -goto fornext_exit_3127; -if(!qbevent)break;evnt(22312);}while(r); -} -do{ -goto LABEL_PRINTFILENEXT; -if(!qbevent)break;evnt(22313);}while(r); -} -} -S_29170:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22316);if(r)goto S_29170;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22316);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22316);}while(r); -} -LABEL_PRINTFILENEXT:; -if(qbevent){evnt(22317);r=0;} -fornext_continue_3127:; -} -fornext_exit_3127:; -S_29176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22319);if(r)goto S_29176;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22319);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22319);}while(r); -do{ -goto LABEL_PRINTFILELAST; -if(!qbevent)break;evnt(22319);}while(r); -} -LABEL_PRINTBLANKLINE:; -if(qbevent){evnt(22320);r=0;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3134; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3134; -skip3134: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22321);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3135; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3135; -skip3135: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22322);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3136; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); -if (new_error) goto skip3136; -skip3136: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22323);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22324);}while(r); +if(!qbevent)break;evnt(22960);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free52.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_XFILEWRITE(qbs*_SUB_XFILEWRITE_STRING_CA,int32*_SUB_XFILEWRITE_LONG_N){ +void SUB_XFILEPRINT(qbs*_SUB_XFILEPRINT_STRING_A,qbs*_SUB_XFILEPRINT_STRING_CA,int32*_SUB_XFILEPRINT_LONG_N){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -99586,485 +104702,1203 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(qbs_new_txt_len("WRITE",5),__STRING1_SP),qbs_new_txt_len("#",1))); +qbs_set(_SUB_XFILEPRINT_STRING_U,FUNC_STR2(&(pass3264=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22328);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_U,FUNC_STR2(&(pass3138=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22329);}while(r); +if(!qbevent)break;evnt(22964);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3139; +if (new_error) goto skip3265; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=2;",18), 0 , 0 , 1 ); -if (new_error) goto skip3139; -skip3139: +if (new_error) goto skip3265; +skip3265: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22330);}while(r); -S_29188:; -if ((-(*_SUB_XFILEWRITE_LONG_N== 2 ))||new_error){ -if(qbevent){evnt(22331);if(r)goto S_29188;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22331);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22331);}while(r); -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22332);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_B= 0 ; -if(!qbevent)break;evnt(22333);}while(r); -S_29194:; -fornext_value3141= 3 ; -fornext_finalvalue3141=*_SUB_XFILEWRITE_LONG_N; -fornext_step3141= 1 ; -if (fornext_step3141<0) fornext_step_negative3141=1; else fornext_step_negative3141=0; -if (new_error) goto fornext_error3141; -goto fornext_entrylabel3141; -while(1){ -fornext_value3141=fornext_step3141+(*_SUB_XFILEWRITE_LONG_I); -fornext_entrylabel3141: -*_SUB_XFILEWRITE_LONG_I=fornext_value3141; -if (fornext_step_negative3141){ -if (fornext_value3141fornext_finalvalue3141) break; -} -fornext_error3141:; -if(qbevent){evnt(22334);if(r)goto S_29194;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22335);}while(r); -S_29196:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22336);if(r)goto S_29196;} -do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; -if(!qbevent)break;evnt(22336);}while(r); -} -S_29199:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22337);if(r)goto S_29199;} -do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; -if(!qbevent)break;evnt(22337);}while(r); -} -S_29202:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEWRITE_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(22338);if(r)goto S_29202;} -S_29203:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22339);if(r)goto S_29203;} +if(!qbevent)break;evnt(22965);}while(r); +S_30394:; +if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||new_error){ +if(qbevent){evnt(22966);if(r)goto S_30394;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22339);}while(r); +if(!qbevent)break;evnt(22966);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22339);}while(r); +if(!qbevent)break;evnt(22966);}while(r); } do{ -goto LABEL_WRITEGOTFN; -if(!qbevent)break;evnt(22340);}while(r); -} -S_29209:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22342);if(r)goto S_29209;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A3,_SUB_XFILEWRITE_STRING_A2); +qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22342);}while(r); +if(!qbevent)break;evnt(22967);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(22968);}while(r); +S_30400:; +fornext_value3267= 3 ; +fornext_finalvalue3267=*_SUB_XFILEPRINT_LONG_N; +fornext_step3267= 1 ; +if (fornext_step3267<0) fornext_step_negative3267=1; else fornext_step_negative3267=0; +if (new_error) goto fornext_error3267; +goto fornext_entrylabel3267; +while(1){ +fornext_value3267=fornext_step3267+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3267: +*_SUB_XFILEPRINT_LONG_I=fornext_value3267; +if (fornext_step_negative3267){ +if (fornext_value3267fornext_finalvalue3267) break; +} +fornext_error3267:; +if(qbevent){evnt(22969);if(r)goto S_30400;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22970);}while(r); +S_30402:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22971);if(r)goto S_30402;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(22971);}while(r); +} +S_30405:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(22972);if(r)goto S_30405;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(22972);}while(r); +} +S_30408:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEPRINT_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(22973);if(r)goto S_30408;} +S_30409:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22974);if(r)goto S_30409;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22974);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22974);}while(r); +} +do{ +goto LABEL_PRINTGOTFN; +if(!qbevent)break;evnt(22975);}while(r); +} +S_30415:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22977);if(r)goto S_30415;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22977);}while(r); }else{ do{ -qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_A3,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); +qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_A3,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22342);}while(r); +if(!qbevent)break;evnt(22977);}while(r); } -fornext_continue_3140:; +fornext_continue_3266:; } -fornext_exit_3140:; +fornext_exit_3266:; do{ SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22344);}while(r); +if(!qbevent)break;evnt(22979);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22344);}while(r); -LABEL_WRITEGOTFN:; -if(qbevent){evnt(22345);r=0;} +if(!qbevent)break;evnt(22979);}while(r); +LABEL_PRINTGOTFN:; +if(qbevent){evnt(22980);r=0;} do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_A3)); +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_A3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22346);}while(r); -S_29218:; +if(!qbevent)break;evnt(22981);}while(r); +S_30424:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22347);if(r)goto S_29218;} +if(qbevent){evnt(22982);if(r)goto S_30424;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22347);}while(r); +if(!qbevent)break;evnt(22982);}while(r); } do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Print",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22348);}while(r); +if(!qbevent)break;evnt(22983);}while(r); do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEWRITE_STRING_E,&(pass3142= 64 ))); +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3268= 64 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22349);}while(r); -S_29223:; +if(!qbevent)break;evnt(22984);}while(r); +S_30429:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22350);if(r)goto S_29223;} +if(qbevent){evnt(22985);if(r)goto S_30429;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22350);}while(r); +if(!qbevent)break;evnt(22985);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3143; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3143; -skip3143: +if (new_error) goto skip3269; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3269; +skip3269: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22351);}while(r); +if(!qbevent)break;evnt(22986);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3144; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3144; -skip3144: +if (new_error) goto skip3270; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3270; +skip3270: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22352);}while(r); +if(!qbevent)break;evnt(22987);}while(r); do{ -*_SUB_XFILEWRITE_LONG_I=*_SUB_XFILEWRITE_LONG_I+ 1 ; -if(!qbevent)break;evnt(22353);}while(r); -S_29229:; -if ((-(*_SUB_XFILEWRITE_LONG_I>*_SUB_XFILEWRITE_LONG_N))||new_error){ -if(qbevent){evnt(22354);if(r)goto S_29229;} +*_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ; +if(!qbevent)break;evnt(22988);}while(r); +S_30435:; +if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||new_error){ +if(qbevent){evnt(22991);if(r)goto S_30435;} +S_30436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_A,_SUB_XFILEPRINT_LONG_I),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(22992);if(r)goto S_30436;} +LABEL_FPUJUMP:; +if(qbevent){evnt(22994);r=0;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3145; -sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47), 0 , 0 , 1 ); -if (new_error) goto skip3145; -skip3145: +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5)))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22355);}while(r); +if(!qbevent)break;evnt(22995);}while(r); do{ -goto LABEL_WRITEBLANKLINE; -if(!qbevent)break;evnt(22356);}while(r); -} -do{ -*_SUB_XFILEWRITE_LONG_B= 0 ; -if(!qbevent)break;evnt(22358);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22359);}while(r); +if(!qbevent)break;evnt(22996);}while(r); do{ -*_SUB_XFILEWRITE_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22360);}while(r); -S_29236:; -fornext_value3147=*_SUB_XFILEWRITE_LONG_I; -fornext_finalvalue3147=*_SUB_XFILEWRITE_LONG_N; -fornext_step3147= 1 ; -if (fornext_step3147<0) fornext_step_negative3147=1; else fornext_step_negative3147=0; -if (new_error) goto fornext_error3147; -goto fornext_entrylabel3147; +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(22996);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22996);}while(r); +S_30441:; +fornext_value3272=*_SUB_XFILEPRINT_LONG_I+ 1 ; +fornext_finalvalue3272=*_SUB_XFILEPRINT_LONG_N; +fornext_step3272= 1 ; +if (fornext_step3272<0) fornext_step_negative3272=1; else fornext_step_negative3272=0; +if (new_error) goto fornext_error3272; +goto fornext_entrylabel3272; while(1){ -fornext_value3147=fornext_step3147+(*_SUB_XFILEWRITE_LONG_I); -fornext_entrylabel3147: -*_SUB_XFILEWRITE_LONG_I=fornext_value3147; -if (fornext_step_negative3147){ -if (fornext_value3147fornext_finalvalue3147) break; +if (fornext_value3272>fornext_finalvalue3272) break; } -fornext_error3147:; -if(qbevent){evnt(22361);if(r)goto S_29236;} +fornext_error3272:; +if(qbevent){evnt(22997);if(r)goto S_30441;} do{ -qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22362);}while(r); -S_29238:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22363);if(r)goto S_29238;} +if(!qbevent)break;evnt(22998);}while(r); +S_30443:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22999);if(r)goto S_30443;} do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; -if(!qbevent)break;evnt(22363);}while(r); +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(22999);}while(r); } -S_29241:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22364);if(r)goto S_29241;} +S_30446:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23000);if(r)goto S_30446;} do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; -if(!qbevent)break;evnt(22364);}while(r); +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23000);}while(r); } -S_29244:; -if ((-(*_SUB_XFILEWRITE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22365);if(r)goto S_29244;} -S_29245:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22366);if(r)goto S_29245;} -LABEL_WRITEFILELAST:; -if(qbevent){evnt(22367);r=0;} -S_29246:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 1 ))||new_error){ -if(qbevent){evnt(22368);if(r)goto S_29246;} +S_30449:; +if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23001);if(r)goto S_30449;} +S_30450:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23002);if(r)goto S_30450;} do{ -*_SUB_XFILEWRITE_LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(22368);}while(r); -}else{ -do{ -*_SUB_XFILEWRITE_LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(22368);}while(r); -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_EBAK,_SUB_XFILEWRITE_STRING_E); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22369);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_REEVALED= 0 ; -if(!qbevent)break;evnt(22370);}while(r); -LABEL_WRITEFILENUMBER:; -if(qbevent){evnt(22371);r=0;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22372);}while(r); -S_29254:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22373);if(r)goto S_29254;} +if(!qbevent)break;evnt(23002);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22373);}while(r); +if(!qbevent)break;evnt(23002);}while(r); } -S_29257:; -if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(22374);if(r)goto S_29257;} +S_30454:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23003);if(r)goto S_30454;} do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22375);}while(r); -S_29259:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(22376);if(r)goto S_29259;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22376);}while(r); -} -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATE(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22378);}while(r); -S_29264:; +if(!qbevent)break;evnt(23004);}while(r); +S_30456:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22379);if(r)goto S_29264;} +if(qbevent){evnt(23005);if(r)goto S_30456;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22379);}while(r); +if(!qbevent)break;evnt(23005);}while(r); } -S_29267:; -if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(22380);if(r)goto S_29267;} -S_29268:; -if ((-((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22381);if(r)goto S_29268;} do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22382);}while(r); -S_29270:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(22383);if(r)goto S_29270;} +if(!qbevent)break;evnt(23006);}while(r); do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22383);}while(r); -} -do{ -*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(22384);}while(r); -do{ -goto LABEL_WRITEFILENUMBER; -if(!qbevent)break;evnt(22385);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22387);}while(r); -S_29277:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(22388);if(r)goto S_29277;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22388);}while(r); -} -do{ -*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(22389);}while(r); -do{ -goto LABEL_WRITEFILENUMBER; -if(!qbevent)break;evnt(22390);}while(r); -} -} -S_29284:; -if (((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22393);if(r)goto S_29284;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_REFER(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP,&(pass3148= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22393);}while(r); -} -S_29287:; +if(!qbevent)break;evnt(23007);}while(r); +S_30461:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22394);if(r)goto S_29287;} +if(qbevent){evnt(23008);if(r)goto S_30461;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22394);}while(r); +if(!qbevent)break;evnt(23008);}while(r); +} +S_30464:; +if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23009);if(r)goto S_30464;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3273= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23009);}while(r); +} +S_30467:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23010);if(r)goto S_30467;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23010);}while(r); +} +S_30470:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23011);if(r)goto S_30470;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23011);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23011);}while(r); } do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3149; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(",0,0,",5)), 0 , 0 , 0 ); -if (new_error) goto skip3149; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEWRITE_LONG_NEWLINE)), 1 , 0 , 0 ); -if (new_error) goto skip3149; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip3149; -skip3149: +qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22396);}while(r); +if(!qbevent)break;evnt(23012);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3150; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3150; -skip3150: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22397);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22398);}while(r); -S_29293:; -if ((*_SUB_XFILEWRITE_LONG_LAST)||new_error){ -if(qbevent){evnt(22399);if(r)goto S_29293;} -do{ -goto fornext_exit_3146; -if(!qbevent)break;evnt(22399);}while(r); -} -do{ -goto LABEL_WRITEFILENEXT; -if(!qbevent)break;evnt(22400);}while(r); +goto fornext_exit_3271; +if(!qbevent)break;evnt(23013);}while(r); } } -S_29299:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22403);if(r)goto S_29299;} +S_30478:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23016);if(r)goto S_30478;} do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22403);}while(r); +if(!qbevent)break;evnt(23016);}while(r); }else{ do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_STRING_A2); +qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22403);}while(r); +if(!qbevent)break;evnt(23016);}while(r); } -LABEL_WRITEFILENEXT:; -if(qbevent){evnt(22404);r=0;} -fornext_continue_3146:; +fornext_continue_3271:; } -fornext_exit_3146:; -S_29305:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22406);if(r)goto S_29305;} +fornext_exit_3271:; +S_30484:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23018);if(r)goto S_30484;} do{ -qbs_set(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22406);}while(r); +if(!qbevent)break;evnt(23018);}while(r); do{ -*_SUB_XFILEWRITE_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22406);}while(r); -do{ -goto LABEL_WRITEFILELAST; -if(!qbevent)break;evnt(22406);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(23018);}while(r); +} +S_30488:; +if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||new_error){ +if(qbevent){evnt(23019);if(r)goto S_30488;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23019);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23019);}while(r); } -LABEL_WRITEBLANKLINE:; -if(qbevent){evnt(22407);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3151; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3151; -skip3151: +if (new_error) goto skip3275; +sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); +if (new_error) goto skip3275; +skip3275: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22409);}while(r); +if(!qbevent)break;evnt(23021);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3152; +if (new_error) goto skip3276; +sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=0;",11), 0 , 0 , 1 ); +if (new_error) goto skip3276; +skip3276: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23023);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XFILEPRINT_STRING_U)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23025);}while(r); +S_30495:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23026);if(r)goto S_30495;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip3277; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3277; +skip3277: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23027);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip3278; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3278; +skip3278: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23029);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3279; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3279; +skip3279: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23031);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3280; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3280; +skip3280: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23032);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23034);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23035);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23036);}while(r); +S_30505:; +fornext_value3282=*_SUB_XFILEPRINT_LONG_I+ 1 ; +fornext_finalvalue3282=*_SUB_XFILEPRINT_LONG_N; +fornext_step3282= 1 ; +if (fornext_step3282<0) fornext_step_negative3282=1; else fornext_step_negative3282=0; +if (new_error) goto fornext_error3282; +goto fornext_entrylabel3282; +while(1){ +fornext_value3282=fornext_step3282+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3282: +*_SUB_XFILEPRINT_LONG_I=fornext_value3282; +if (fornext_step_negative3282){ +if (fornext_value3282fornext_finalvalue3282) break; +} +fornext_error3282:; +if(qbevent){evnt(23037);if(r)goto S_30505;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23038);}while(r); +S_30507:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23039);if(r)goto S_30507;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23039);}while(r); +} +S_30510:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23040);if(r)goto S_30510;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23040);}while(r); +} +S_30513:; +if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23041);if(r)goto S_30513;} +S_30514:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(23042);if(r)goto S_30514;} +LABEL_FPRINTULAST:; +if(qbevent){evnt(23043);r=0;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23044);}while(r); +S_30516:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23045);if(r)goto S_30516;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23045);}while(r); +} +S_30519:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23046);if(r)goto S_30519;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23046);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23046);}while(r); +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23047);}while(r); +S_30525:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23048);if(r)goto S_30525;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23048);}while(r); +} +S_30528:; +if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23049);if(r)goto S_30528;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3283= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23049);}while(r); +} +S_30531:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23050);if(r)goto S_30531;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23050);}while(r); +} +S_30534:; +if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23051);if(r)goto S_30534;} +S_30535:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ +if(qbevent){evnt(23053);if(r)goto S_30535;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3284; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38), 0 , 0 , 1 ); +if (new_error) goto skip3284; +skip3284: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23058);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3285; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3285; +skip3285: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23060);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3286; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3286; +skip3286: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23061);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3287; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38), 0 , 0 , 1 ); +if (new_error) goto skip3287; +skip3287: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23062);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3288; +sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs->len=0;",12), 0 , 0 , 1 ); +if (new_error) goto skip3288; +skip3288: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23064);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3289; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3289; +skip3289: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23069);}while(r); +} +}else{ +S_30545:; +if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23074);if(r)goto S_30545;} +S_30546:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(23075);if(r)goto S_30546;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3290; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3290; +skip3290: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23075);}while(r); +} +S_30549:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(23076);if(r)goto S_30549;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3291; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3291; +skip3291: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23076);}while(r); +} +S_30552:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )> 64 ))||new_error){ +if(qbevent){evnt(23077);if(r)goto S_30552;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3292; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3292; +skip3292: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23077);}while(r); +} +}else{ +S_30556:; +if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ +if(qbevent){evnt(23079);if(r)goto S_30556;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3293; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3293; +skip3293: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23080);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3294; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3294; +skip3294: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23082);}while(r); +} +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3295; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3295; +skip3295: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23086);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23087);}while(r); +S_30565:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23088);if(r)goto S_30565;} +do{ +goto fornext_exit_3281; +if(!qbevent)break;evnt(23088);}while(r); +} +do{ +goto LABEL_FPRINTUNEXT; +if(!qbevent)break;evnt(23089);}while(r); +} +} +S_30571:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23092);if(r)goto S_30571;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23092);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23092);}while(r); +} +LABEL_FPRINTUNEXT:; +if(qbevent){evnt(23093);r=0;} +fornext_continue_3281:; +} +fornext_exit_3281:; +S_30577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23095);if(r)goto S_30577;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23095);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23095);}while(r); +do{ +goto LABEL_FPRINTULAST; +if(!qbevent)break;evnt(23095);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3297; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3297; +skip3297: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23096);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3298; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error){",15), 0 , 0 , 1 ); +if (new_error) goto skip3298; +skip3298: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23098);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3299; +sub_file_print(tmp_fileno,qbs_new_txt_len("g_tmp_long=new_error; new_error=0; sub_file_print(tmp_fileno,tqbs,0,0,0); new_error=g_tmp_long;",95), 0 , 0 , 1 ); +if (new_error) goto skip3299; +skip3299: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23099);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3300; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip3300; +skip3300: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23100);}while(r); +S_30586:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ +if(qbevent){evnt(23101);if(r)goto S_30586;} +do{ +*_SUB_XFILEPRINT_LONG_NL= 0 ; +if(!qbevent)break;evnt(23101);}while(r); +}else{ +do{ +*_SUB_XFILEPRINT_LONG_NL= 1 ; +if(!qbevent)break;evnt(23101);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3301; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,",35),FUNC_STR2(_SUB_XFILEPRINT_LONG_NL)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3301; +skip3301: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23102);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3302; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip3302; +skip3302: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23103);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3303; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); +if (new_error) goto skip3303; +skip3303: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23104);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3304; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3304; +skip3304: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23105);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3305; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3305; +skip3305: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23106);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3306; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3152; -skip3152: +if (new_error) goto skip3306; +skip3306: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22410);}while(r); +if(!qbevent)break;evnt(23107);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3153; +if (new_error) goto skip3307; sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); -if (new_error) goto skip3153; -skip3153: +if (new_error) goto skip3307; +skip3307: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22411);}while(r); +if(!qbevent)break;evnt(23108);}while(r); do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(22412);}while(r); -S_29314:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(22412);if(r)goto S_29314;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XFILEWRITE_STRING_L)); +qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22412);}while(r); +if(!qbevent)break;evnt(23109);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23110);}while(r); +} +} +S_30602:; +if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||new_error){ +if(qbevent){evnt(23115);if(r)goto S_30602;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3308; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47), 0 , 0 , 1 ); +if (new_error) goto skip3308; +skip3308: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23116);}while(r); +do{ +goto LABEL_PRINTBLANKLINE; +if(!qbevent)break;evnt(23117);}while(r); +} +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23119);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23120);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23121);}while(r); +S_30609:; +fornext_value3310=*_SUB_XFILEPRINT_LONG_I; +fornext_finalvalue3310=*_SUB_XFILEPRINT_LONG_N; +fornext_step3310= 1 ; +if (fornext_step3310<0) fornext_step_negative3310=1; else fornext_step_negative3310=0; +if (new_error) goto fornext_error3310; +goto fornext_entrylabel3310; +while(1){ +fornext_value3310=fornext_step3310+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3310: +*_SUB_XFILEPRINT_LONG_I=fornext_value3310; +if (fornext_step_negative3310){ +if (fornext_value3310fornext_finalvalue3310) break; +} +fornext_error3310:; +if(qbevent){evnt(23122);if(r)goto S_30609;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23123);}while(r); +S_30611:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23124);if(r)goto S_30611;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23124);}while(r); +} +S_30614:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23125);if(r)goto S_30614;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23125);}while(r); +} +S_30617:; +if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23126);if(r)goto S_30617;} +S_30618:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ +if(qbevent){evnt(23127);if(r)goto S_30618;} +LABEL_PRINTFILELAST:; +if(qbevent){evnt(23128);r=0;} +S_30619:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(23130);if(r)goto S_30619;} +S_30620:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23131);if(r)goto S_30620;} +do{ +*_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ; +if(!qbevent)break;evnt(23131);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,_SUB_XFILEWRITE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22412);}while(r); +goto LABEL_FPUJUMP; +if(!qbevent)break;evnt(23131);}while(r); } +} +S_30626:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23134);if(r)goto S_30626;} +do{ +*_SUB_XFILEPRINT_LONG_USETAB= 1 ; +if(!qbevent)break;evnt(23134);}while(r); +}else{ +do{ +*_SUB_XFILEPRINT_LONG_USETAB= 0 ; +if(!qbevent)break;evnt(23134);}while(r); +} +S_30631:; +if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||new_error){ +if(qbevent){evnt(23135);if(r)goto S_30631;} +do{ +*_SUB_XFILEPRINT_LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(23135);}while(r); +}else{ +do{ +*_SUB_XFILEPRINT_LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(23135);}while(r); +} +do{ +*_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ; +if(!qbevent)break;evnt(23136);}while(r); +S_30637:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23138);if(r)goto S_30637;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23139);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ; +if(!qbevent)break;evnt(23140);}while(r); +LABEL_PRINTFILENUMBER:; +if(qbevent){evnt(23141);r=0;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23142);}while(r); +S_30641:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23143);if(r)goto S_30641;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23143);}while(r); +} +S_30644:; +if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||new_error){ +if(qbevent){evnt(23144);if(r)goto S_30644;} +S_30645:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23145);if(r)goto S_30645;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23145);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23145);}while(r); +} +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23147);}while(r); +S_30652:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23148);if(r)goto S_30652;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23148);}while(r); +} +S_30655:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23149);if(r)goto S_30655;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23150);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ; +if(!qbevent)break;evnt(23151);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ; +if(!qbevent)break;evnt(23152);}while(r); +do{ +goto LABEL_PRINTFILENUMBER; +if(!qbevent)break;evnt(23153);}while(r); +} +S_30661:; +if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23155);if(r)goto S_30661;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3312= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23155);}while(r); +} +S_30664:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23156);if(r)goto S_30664;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23156);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_EXTRASPACE)), 1 , 0 , 0 ); +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_USETAB)), 1 , 0 , 0 ); +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEPRINT_LONG_NEWLINE)), 1 , 0 , 0 ); +if (new_error) goto skip3313; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip3313; +skip3313: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23158);}while(r); +}else{ +S_30669:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23160);if(r)goto S_30669;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23160);}while(r); +} +S_30672:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23161);if(r)goto S_30672;} +S_30673:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XFILEPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23162);if(r)goto S_30673;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23162);}while(r); +} +} +S_30677:; +if ((*_SUB_XFILEPRINT_LONG_USETAB)||new_error){ +if(qbevent){evnt(23164);if(r)goto S_30677;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3314; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47), 0 , 0 , 1 ); +if (new_error) goto skip3314; +skip3314: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23164);}while(r); +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3315; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3315; +skip3315: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23166);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23168);}while(r); +S_30683:; +if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||new_error){ +if(qbevent){evnt(23169);if(r)goto S_30683;} +do{ +goto LABEL_FPUJUMP; +if(!qbevent)break;evnt(23169);}while(r); +} +S_30686:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23170);if(r)goto S_30686;} +do{ +goto fornext_exit_3309; +if(!qbevent)break;evnt(23170);}while(r); +} +do{ +goto LABEL_PRINTFILENEXT; +if(!qbevent)break;evnt(23171);}while(r); +} +} +S_30692:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23174);if(r)goto S_30692;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23174);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23174);}while(r); +} +LABEL_PRINTFILENEXT:; +if(qbevent){evnt(23175);r=0;} +fornext_continue_3309:; +} +fornext_exit_3309:; +S_30698:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23177);if(r)goto S_30698;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23177);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23177);}while(r); +do{ +goto LABEL_PRINTFILELAST; +if(!qbevent)break;evnt(23177);}while(r); +} +LABEL_PRINTBLANKLINE:; +if(qbevent){evnt(23178);r=0;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3316; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3316; +skip3316: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23179);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3317; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3317; +skip3317: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23180);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3318; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); +if (new_error) goto skip3318; +skip3318: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23181);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23182);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free53.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_XGOSUB(qbs*_SUB_XGOSUB_STRING_CA){ +void SUB_XFILEWRITE(qbs*_SUB_XFILEWRITE_STRING_CA,int32*_SUB_XFILEWRITE_LONG_N){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -100078,242 +105912,485 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_XGOSUB_STRING_A2,FUNC_GETELEMENT(_SUB_XGOSUB_STRING_CA,&(pass3156= 2 ))); +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Write",5)),__STRING1_SP),qbs_new_txt_len("#",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22416);}while(r); -S_29320:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XGOSUB_STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(22417);if(r)goto S_29320;} +if(!qbevent)break;evnt(23186);}while(r); do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label",13)); +qbs_set(_SUB_XFILEWRITE_STRING_U,FUNC_STR2(&(pass3320=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22417);}while(r); +if(!qbevent)break;evnt(23187);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3321; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=2;",18), 0 , 0 , 1 ); +if (new_error) goto skip3321; +skip3321: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23188);}while(r); +S_30710:; +if ((-(*_SUB_XFILEWRITE_LONG_N== 2 ))||new_error){ +if(qbevent){evnt(23189);if(r)goto S_30710;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23189);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22417);}while(r); +if(!qbevent)break;evnt(23189);}while(r); } do{ -*_SUB_XGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XGOSUB_STRING_A2,&(pass3157= 2 ),_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); +qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22419);}while(r); +if(!qbevent)break;evnt(23190);}while(r); do{ -*_SUB_XGOSUB_LONG_X= 1 ; -if(!qbevent)break;evnt(22420);}while(r); -LABEL_LABCHK200:; -if(qbevent){evnt(22421);r=0;} -S_29326:; -if ((*_SUB_XGOSUB_LONG_V)||new_error){ -if(qbevent){evnt(22422);if(r)goto S_29326;} -do{ -*_SUB_XGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(22423);}while(r); -S_29328:; -if (((-(*_SUB_XGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XGOSUB_LONG_S== -1 )))||new_error){ -if(qbevent){evnt(22424);if(r)goto S_29328;} -S_29329:; -if ((-(*_SUB_XGOSUB_LONG_S== -1 ))||new_error){ -if(qbevent){evnt(22425);if(r)goto S_29329;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(22425);}while(r); +*_SUB_XFILEWRITE_LONG_B= 0 ; +if(!qbevent)break;evnt(23191);}while(r); +S_30716:; +fornext_value3323= 3 ; +fornext_finalvalue3323=*_SUB_XFILEWRITE_LONG_N; +fornext_step3323= 1 ; +if (fornext_step3323<0) fornext_step_negative3323=1; else fornext_step_negative3323=0; +if (new_error) goto fornext_error3323; +goto fornext_entrylabel3323; +while(1){ +fornext_value3323=fornext_step3323+(*_SUB_XFILEWRITE_LONG_I); +fornext_entrylabel3323: +*_SUB_XFILEWRITE_LONG_I=fornext_value3323; +if (fornext_step_negative3323){ +if (fornext_value3323fornext_finalvalue3323) break; } +fornext_error3323:; +if(qbevent){evnt(23192);if(r)goto S_30716;} do{ -*_SUB_XGOSUB_LONG_X= 0 ; -if(!qbevent)break;evnt(22426);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22427);}while(r); -}else{ -S_29335:; -if ((-(*_SUB_XGOSUB_LONG_V== 2 ))||new_error){ -if(qbevent){evnt(22429);if(r)goto S_29335;} +if(!qbevent)break;evnt(23193);}while(r); +S_30718:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23194);if(r)goto S_30718;} do{ -*_SUB_XGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); -if(!qbevent)break;evnt(22429);}while(r); +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; +if(!qbevent)break;evnt(23194);}while(r); +} +S_30721:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23195);if(r)goto S_30721;} do{ -goto LABEL_LABCHK200; -if(!qbevent)break;evnt(22429);}while(r); +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; +if(!qbevent)break;evnt(23195);}while(r); } -} -} -S_29341:; -if ((*_SUB_XGOSUB_LONG_X)||new_error){ -if(qbevent){evnt(22432);if(r)goto S_29341;} +S_30724:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEWRITE_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(23196);if(r)goto S_30724;} +S_30725:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23197);if(r)goto S_30725;} do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(22434);}while(r); -S_29343:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(22434);if(r)goto S_29343;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(22434);}while(r); -do{ - -if (__ARRAY_UDT_LABELS[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_UDT_LABELS[2]&1){ -preserved_elements=__ARRAY_UDT_LABELS[5]; -} -else preserved_elements=0; -__ARRAY_UDT_LABELS[4]= 1 ; -__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; -__ARRAY_UDT_LABELS[6]=1; -if (__ARRAY_UDT_LABELS[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); -tmp_long=__ARRAY_UDT_LABELS[5]; -__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); -memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); -if (preserved_elements*_SUB_XFILEWRITE_LONG_N))||new_error){ +if(qbevent){evnt(23212);if(r)goto S_30751;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3327; +sub_file_print(tmp_fileno,qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47), 0 , 0 , 1 ); +if (new_error) goto skip3327; +skip3327: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23213);}while(r); +do{ +goto LABEL_WRITEBLANKLINE; +if(!qbevent)break;evnt(23214);}while(r); +} +do{ +*_SUB_XFILEWRITE_LONG_B= 0 ; +if(!qbevent)break;evnt(23216);}while(r); +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23217);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23218);}while(r); +S_30758:; +fornext_value3329=*_SUB_XFILEWRITE_LONG_I; +fornext_finalvalue3329=*_SUB_XFILEWRITE_LONG_N; +fornext_step3329= 1 ; +if (fornext_step3329<0) fornext_step_negative3329=1; else fornext_step_negative3329=0; +if (new_error) goto fornext_error3329; +goto fornext_entrylabel3329; +while(1){ +fornext_value3329=fornext_step3329+(*_SUB_XFILEWRITE_LONG_I); +fornext_entrylabel3329: +*_SUB_XFILEWRITE_LONG_I=fornext_value3329; +if (fornext_step_negative3329){ +if (fornext_value3329fornext_finalvalue3329) break; +} +fornext_error3329:; +if(qbevent){evnt(23219);if(r)goto S_30758;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23220);}while(r); +S_30760:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23221);if(r)goto S_30760;} +do{ +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; +if(!qbevent)break;evnt(23221);}while(r); +} +S_30763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23222);if(r)goto S_30763;} +do{ +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; +if(!qbevent)break;evnt(23222);}while(r); +} +S_30766:; +if ((-(*_SUB_XFILEWRITE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23223);if(r)goto S_30766;} +S_30767:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23224);if(r)goto S_30767;} +LABEL_WRITEFILELAST:; +if(qbevent){evnt(23225);r=0;} +S_30768:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 1 ))||new_error){ +if(qbevent){evnt(23226);if(r)goto S_30768;} +do{ +*_SUB_XFILEWRITE_LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(23226);}while(r); +}else{ +do{ +*_SUB_XFILEWRITE_LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(23226);}while(r); +} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_EBAK,_SUB_XFILEWRITE_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23227);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_REEVALED= 0 ; +if(!qbevent)break;evnt(23228);}while(r); +LABEL_WRITEFILENUMBER:; +if(qbevent){evnt(23229);r=0;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23230);}while(r); +S_30776:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23231);if(r)goto S_30776;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23231);}while(r); +} +S_30779:; +if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23232);if(r)goto S_30779;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23233);}while(r); +S_30781:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23234);if(r)goto S_30781;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23234);}while(r); +} +} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATE(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23236);}while(r); +S_30786:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23237);if(r)goto S_30786;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23237);}while(r); +} +S_30789:; +if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23238);if(r)goto S_30789;} +S_30790:; +if ((-((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23239);if(r)goto S_30790;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23240);}while(r); +S_30792:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23241);if(r)goto S_30792;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23241);}while(r); +} +do{ +*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23242);}while(r); +do{ +goto LABEL_WRITEFILENUMBER; +if(!qbevent)break;evnt(23243);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23245);}while(r); +S_30799:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23246);if(r)goto S_30799;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23246);}while(r); +} +do{ +*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23247);}while(r); +do{ +goto LABEL_WRITEFILENUMBER; +if(!qbevent)break;evnt(23248);}while(r); +} +} +S_30806:; +if (((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23251);if(r)goto S_30806;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_REFER(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP,&(pass3330= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23251);}while(r); +} +S_30809:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23252);if(r)goto S_30809;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23252);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3331; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(",0,0,",5)), 0 , 0 , 0 ); +if (new_error) goto skip3331; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XFILEWRITE_LONG_NEWLINE)), 1 , 0 , 0 ); +if (new_error) goto skip3331; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip3331; +skip3331: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23254);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3332; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3332; +skip3332: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23255);}while(r); +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23256);}while(r); +S_30815:; +if ((*_SUB_XFILEWRITE_LONG_LAST)||new_error){ +if(qbevent){evnt(23257);if(r)goto S_30815;} +do{ +goto fornext_exit_3328; +if(!qbevent)break;evnt(23257);}while(r); +} +do{ +goto LABEL_WRITEFILENEXT; +if(!qbevent)break;evnt(23258);}while(r); +} +} +S_30821:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23261);if(r)goto S_30821;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23261);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23261);}while(r); +} +LABEL_WRITEFILENEXT:; +if(qbevent){evnt(23262);r=0;} +fornext_continue_3328:; +} +fornext_exit_3328:; +S_30827:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23264);if(r)goto S_30827;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23264);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23264);}while(r); +do{ +goto LABEL_WRITEFILELAST; +if(!qbevent)break;evnt(23264);}while(r); +} +LABEL_WRITEBLANKLINE:; +if(qbevent){evnt(23265);r=0;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3333; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3333; +skip3333: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23267);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3334; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3334; +skip3334: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23268);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3335; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab_spc_cr_size=1;",18), 0 , 0 , 1 ); +if (new_error) goto skip3335; +skip3335: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23269);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(22445);}while(r); -S_29357:; +if(!qbevent)break;evnt(23270);}while(r); +S_30836:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(22445);if(r)goto S_29357;} +if(qbevent){evnt(23270);if(r)goto S_30836;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XGOSUB_STRING_L)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XFILEWRITE_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22445);}while(r); +if(!qbevent)break;evnt(23270);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,_SUB_XGOSUB_STRING_L); +qbs_set(__STRING_LAYOUT,_SUB_XFILEWRITE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22445);}while(r); +if(!qbevent)break;evnt(23270);}while(r); } -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3160; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3160; -skip3160: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22448);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3161; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); -if (new_error) goto skip3161; -skip3161: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22449);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3162; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XGOSUB_STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3162; -skip3162: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22450);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip3163; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3163; -skip3163: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22452);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip3164; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3164; -skip3164: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22453);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip3165; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip3165; -skip3165: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22454);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3166; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip3166; -skip3166: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22455);}while(r); -do{ -*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; -if(!qbevent)break;evnt(22456);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free54.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_XONGOTOGOSUB(qbs*_SUB_XONGOTOGOSUB_STRING_A,qbs*_SUB_XONGOTOGOSUB_STRING_CA,int32*_SUB_XONGOTOGOSUB_LONG_N){ +void SUB_XGOSUB(qbs*_SUB_XGOSUB_STRING_CA){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -100326,315 +106403,78 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_29370:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||new_error){ -if(qbevent){evnt(22460);if(r)goto S_29370;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); +qbs_set(_SUB_XGOSUB_STRING_A2,FUNC_GETELEMENT(_SUB_XGOSUB_STRING_CA,&(pass3338= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22460);}while(r); +if(!qbevent)break;evnt(23274);}while(r); +S_30842:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XGOSUB_STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(23275);if(r)goto S_30842;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23275);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22460);}while(r); +if(!qbevent)break;evnt(23275);}while(r); } do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_new_txt_len("ON",2)); +*_SUB_XGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XGOSUB_STRING_A2,&(pass3339= 2 ),_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22461);}while(r); +if(!qbevent)break;evnt(23277);}while(r); do{ -*_SUB_XONGOTOGOSUB_LONG_B= 0 ; -if(!qbevent)break;evnt(22462);}while(r); -S_29376:; -fornext_value3170= 2 ; -fornext_finalvalue3170=*_SUB_XONGOTOGOSUB_LONG_N; -fornext_step3170= 1 ; -if (fornext_step3170<0) fornext_step_negative3170=1; else fornext_step_negative3170=0; -if (new_error) goto fornext_error3170; -goto fornext_entrylabel3170; -while(1){ -fornext_value3170=fornext_step3170+(*_SUB_XONGOTOGOSUB_LONG_I); -fornext_entrylabel3170: -*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3170; -if (fornext_step_negative3170){ -if (fornext_value3170fornext_finalvalue3170) break; -} -fornext_error3170:; -if(qbevent){evnt(22463);if(r)goto S_29376;} +S_30857:; +if ((-(*_SUB_XGOSUB_LONG_V== 2 ))||new_error){ +if(qbevent){evnt(23287);if(r)goto S_30857;} do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E2,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_A,_SUB_XONGOTOGOSUB_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22464);}while(r); -S_29378:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22465);if(r)goto S_29378;} +*_SUB_XGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); +if(!qbevent)break;evnt(23287);}while(r); do{ -*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ; -if(!qbevent)break;evnt(22465);}while(r); -} -S_29381:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22466);if(r)goto S_29381;} -do{ -*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ; -if(!qbevent)break;evnt(22466);}while(r); -} -S_29384:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOTO",4)))|(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5)))))||new_error){ -if(qbevent){evnt(22467);if(r)goto S_29384;} -do{ -goto fornext_exit_3169; -if(!qbevent)break;evnt(22467);}while(r); -} -fornext_continue_3169:; -} -fornext_exit_3169:; -S_29388:; -if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||new_error){ -if(qbevent){evnt(22469);if(r)goto S_29388;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22469);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22469);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass3171= 2 ),&(pass3172=*_SUB_XONGOTOGOSUB_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22470);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_G= 0 ; -if(!qbevent)break;evnt(22472);}while(r); -S_29394:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(22472);if(r)goto S_29394;} -do{ -*_SUB_XONGOTOGOSUB_LONG_G= 1 ; -if(!qbevent)break;evnt(22472);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XONGOTOGOSUB_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22473);}while(r); -S_29398:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22474);if(r)goto S_29398;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22474);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22475);}while(r); -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_EVALUATE(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22476);}while(r); -S_29403:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22477);if(r)goto S_29403;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22477);}while(r); -} -S_29406:; -if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22478);if(r)goto S_29406;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass3173= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22478);}while(r); -} -S_29409:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22479);if(r)goto S_29409;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22479);}while(r); -} -S_29412:; -if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(22480);if(r)goto S_29412;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22480);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22480);}while(r); -} -S_29416:; -if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(22481);if(r)goto S_29416;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22482);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22484);}while(r); -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_U,FUNC_STR2(&(pass3174=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22485);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3175; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); -if (new_error) goto skip3175; -skip3175: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22486);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3176; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=",1)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3176; -skip3176: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22487);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_LN= 1 ; -if(!qbevent)break;evnt(22488);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; -if(!qbevent)break;evnt(22489);}while(r); -S_29425:; -fornext_value3178=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ; -fornext_finalvalue3178=*_SUB_XONGOTOGOSUB_LONG_N; -fornext_step3178= 1 ; -if (fornext_step3178<0) fornext_step_negative3178=1; else fornext_step_negative3178=0; -if (new_error) goto fornext_error3178; -goto fornext_entrylabel3178; -while(1){ -fornext_value3178=fornext_step3178+(*_SUB_XONGOTOGOSUB_LONG_I); -fornext_entrylabel3178: -*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3178; -if (fornext_step_negative3178){ -if (fornext_value3178fornext_finalvalue3178) break; -} -fornext_error3178:; -if(qbevent){evnt(22490);if(r)goto S_29425;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_CA,_SUB_XONGOTOGOSUB_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22491);}while(r); -S_29427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22492);if(r)goto S_29427;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22493);}while(r); -S_29429:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||new_error){ -if(qbevent){evnt(22494);if(r)goto S_29429;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22494);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22494);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ; -if(!qbevent)break;evnt(22495);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; -if(!qbevent)break;evnt(22496);}while(r); -}else{ -S_29436:; -if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||new_error){ -if(qbevent){evnt(22498);if(r)goto S_29436;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22498);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22498);}while(r); -} -S_29440:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||new_error){ -if(qbevent){evnt(22499);if(r)goto S_29440;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22499);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22499);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass3179= 2 ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22501);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_X= 1 ; -if(!qbevent)break;evnt(22502);}while(r); -LABEL_LABCHK507:; -if(qbevent){evnt(22503);r=0;} -S_29446:; -if ((*_SUB_XONGOTOGOSUB_LONG_V)||new_error){ -if(qbevent){evnt(22504);if(r)goto S_29446;} -do{ -*_SUB_XONGOTOGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(22505);}while(r); -S_29448:; -if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||new_error){ -if(qbevent){evnt(22506);if(r)goto S_29448;} -S_29449:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||new_error){ -if(qbevent){evnt(22507);if(r)goto S_29449;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(22507);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_X= 0 ; -if(!qbevent)break;evnt(22508);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22509);}while(r); -}else{ -S_29455:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||new_error){ -if(qbevent){evnt(22511);if(r)goto S_29455;} -do{ -*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); -if(!qbevent)break;evnt(22511);}while(r); -do{ -goto LABEL_LABCHK507; -if(!qbevent)break;evnt(22511);}while(r); +goto LABEL_LABCHK200; +if(!qbevent)break;evnt(23287);}while(r); } } } -S_29461:; -if ((*_SUB_XONGOTOGOSUB_LONG_X)||new_error){ -if(qbevent){evnt(22514);if(r)goto S_29461;} +S_30863:; +if ((*_SUB_XGOSUB_LONG_X)||new_error){ +if(qbevent){evnt(23290);if(r)goto S_30863;} do{ *__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(22516);}while(r); -S_29463:; +if(!qbevent)break;evnt(23292);}while(r); +S_30865:; if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(22516);if(r)goto S_29463;} +if(qbevent){evnt(23292);if(r)goto S_30865;} do{ *__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(22516);}while(r); +if(!qbevent)break;evnt(23292);}while(r); do{ if (__ARRAY_UDT_LABELS[2]&2){ @@ -100674,212 +106514,132 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; } -if(!qbevent)break;evnt(22516);}while(r); +if(!qbevent)break;evnt(23292);}while(r); } do{ memcpy(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_NLABELS)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282)+ 0,((char*)__UDT_EMPTY_LABEL)+(0)+ 0, 282); -if(!qbevent)break;evnt(22517);}while(r); +if(!qbevent)break;evnt(23293);}while(r); do{ -SUB_HASHADD(_SUB_XONGOTOGOSUB_STRING_E,&(pass3180= 2 ),__LONG_NLABELS); +SUB_HASHADD(_SUB_XGOSUB_STRING_A2,&(pass3340= 2 ),__LONG_NLABELS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22518);}while(r); +if(!qbevent)break;evnt(23294);}while(r); do{ -*_SUB_XONGOTOGOSUB_LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(22519);}while(r); +*_SUB_XGOSUB_LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(23295);}while(r); do{ -*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; -if(!qbevent)break;evnt(22520);}while(r); +*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; +if(!qbevent)break;evnt(23296);}while(r); do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1),__STRING_TLAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22521);}while(r); +if(!qbevent)break;evnt(23297);}while(r); do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(22522);}while(r); +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(23298);}while(r); do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(22523);}while(r); +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(23299);}while(r); } do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_set(_SUB_XGOSUB_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("GoSub",5)),__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22526);}while(r); -S_29476:; -if ((*_SUB_XONGOTOGOSUB_LONG_G)||new_error){ -if(qbevent){evnt(22527);if(r)goto S_29476;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_LB,_SUB_XONGOTOGOSUB_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22528);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3181; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip3181; -skip3181: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22529);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3182; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3182; -skip3182: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22532);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3183; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); -if (new_error) goto skip3183; -skip3183: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22533);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3184; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3184; -skip3184: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22534);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip3185; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3185; -skip3185: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22536);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip3186; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3186; -skip3186: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22537);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 15 ; -if (new_error) goto skip3187; -sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); -if (new_error) goto skip3187; -skip3187: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22538);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3188; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); -if (new_error) goto skip3188; -skip3188: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22539);}while(r); -do{ -*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; -if(!qbevent)break;evnt(22540);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3189; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6)), 0 , 0 , 1 ); -if (new_error) goto skip3189; -skip3189: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22541);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3190; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip3190; -skip3190: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22542);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3191; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len(") goto LABEL_",13)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3191; -skip3191: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22544);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ; -if(!qbevent)break;evnt(22546);}while(r); -} -fornext_continue_3177:; -} -fornext_exit_3177:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3192; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("<0) error(5);",13)), 0 , 0 , 1 ); -if (new_error) goto skip3192; -skip3192: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22549);}while(r); -S_29496:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||new_error){ -if(qbevent){evnt(22550);if(r)goto S_29496;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3193; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7)), 0 , 0 , 1 ); -if (new_error) goto skip3193; -skip3193: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22550);}while(r); -} +if(!qbevent)break;evnt(23302);}while(r); do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(22551);}while(r); -S_29500:; +if(!qbevent)break;evnt(23303);}while(r); +S_30879:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(22551);if(r)goto S_29500;} +if(qbevent){evnt(23303);if(r)goto S_30879;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_L)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XGOSUB_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22551);}while(r); +if(!qbevent)break;evnt(23303);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L); +qbs_set(__STRING_LAYOUT,_SUB_XGOSUB_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22551);}while(r); +if(!qbevent)break;evnt(23303);}while(r); } +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3342; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3342; +skip3342: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23306);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3343; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59), 0 , 0 , 1 ); +if (new_error) goto skip3343; +skip3343: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23307);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3344; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XGOSUB_STRING_A2),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3344; +skip3344: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23308);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip3345; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3345; +skip3345: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23310);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip3346; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3346; +skip3346: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23311);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip3347; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip3347; +skip3347: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23312);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3348; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip3348; +skip3348: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23313);}while(r); +do{ +*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; +if(!qbevent)break;evnt(23314);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free55.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_XPRINT(qbs*_SUB_XPRINT_STRING_A,qbs*_SUB_XPRINT_STRING_CA,int32*_SUB_XPRINT_LONG_N){ +void SUB_XONGOTOGOSUB(qbs*_SUB_XONGOTOGOSUB_STRING_A,qbs*_SUB_XONGOTOGOSUB_STRING_CA,int32*_SUB_XONGOTOGOSUB_LONG_N){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -100892,1161 +106652,560 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_30892:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||new_error){ +if(qbevent){evnt(23318);if(r)goto S_30892;} do{ -qbs_set(_SUB_XPRINT_STRING_U,FUNC_STR2(&(pass3197=FUNC_UNIQUENUMBER()))); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22555);}while(r); +if(!qbevent)break;evnt(23318);}while(r); do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22557);}while(r); -S_29507:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_XPRINT_STRING_A)== 76 )))||new_error){ -if(qbevent){evnt(22558);if(r)goto S_29507;} -do{ -*_SUB_XPRINT_LONG_LP= 1 ; -if(!qbevent)break;evnt(22558);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_LP,qbs_new_txt_len("l",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22558);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_new_txt_len("LPRINT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22558);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3198; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=1;",13), 0 , 0 , 1 ); -if (new_error) goto skip3198; -skip3198: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22558);}while(r); -do{ -tmp_long=array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(22558);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(23318);}while(r); } -S_29514:; -if ((-(*_SUB_XPRINT_LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(22561);if(r)goto S_29514;} -S_29515:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XPRINT_STRING_A,&(pass3199= 2 )),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(22562);if(r)goto S_29515;} do{ -*_SUB_XPRINT_LONG_I= 3 ; -if(!qbevent)break;evnt(22564);}while(r); -LABEL_PUJUMP:; -if(qbevent){evnt(22565);r=0;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),qbs_new_txt_len("USING",5))); +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22566);}while(r); +if(!qbevent)break;evnt(23319);}while(r); do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22567);}while(r); -do{ -*_SUB_XPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22567);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22567);}while(r); -S_29521:; -fornext_value3201=*_SUB_XPRINT_LONG_I; -fornext_finalvalue3201=*_SUB_XPRINT_LONG_N; -fornext_step3201= 1 ; -if (fornext_step3201<0) fornext_step_negative3201=1; else fornext_step_negative3201=0; -if (new_error) goto fornext_error3201; -goto fornext_entrylabel3201; +*_SUB_XONGOTOGOSUB_LONG_B= 0 ; +if(!qbevent)break;evnt(23320);}while(r); +S_30898:; +fornext_value3352= 2 ; +fornext_finalvalue3352=*_SUB_XONGOTOGOSUB_LONG_N; +fornext_step3352= 1 ; +if (fornext_step3352<0) fornext_step_negative3352=1; else fornext_step_negative3352=0; +if (new_error) goto fornext_error3352; +goto fornext_entrylabel3352; while(1){ -fornext_value3201=fornext_step3201+(*_SUB_XPRINT_LONG_I); -fornext_entrylabel3201: -*_SUB_XPRINT_LONG_I=fornext_value3201; -if (fornext_step_negative3201){ -if (fornext_value3201fornext_finalvalue3201) break; +if (fornext_value3352>fornext_finalvalue3352) break; } -fornext_error3201:; -if(qbevent){evnt(22568);if(r)goto S_29521;} +fornext_error3352:; +if(qbevent){evnt(23321);if(r)goto S_30898;} do{ -qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_set(_SUB_XONGOTOGOSUB_STRING_E2,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_A,_SUB_XONGOTOGOSUB_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22569);}while(r); -S_29523:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22570);if(r)goto S_29523;} +if(!qbevent)break;evnt(23322);}while(r); +S_30900:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23323);if(r)goto S_30900;} do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22570);}while(r); +*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ; +if(!qbevent)break;evnt(23323);}while(r); } -S_29526:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22571);if(r)goto S_29526;} +S_30903:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23324);if(r)goto S_30903;} do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22571);}while(r); +*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ; +if(!qbevent)break;evnt(23324);}while(r); } -S_29529:; -if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22572);if(r)goto S_29529;} -S_29530:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22573);if(r)goto S_29530;} +S_30906:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOTO",4)))|(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5)))))||new_error){ +if(qbevent){evnt(23325);if(r)goto S_30906;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +goto fornext_exit_3351; +if(!qbevent)break;evnt(23325);}while(r); +} +fornext_continue_3351:; +} +fornext_exit_3351:; +S_30910:; +if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||new_error){ +if(qbevent){evnt(23327);if(r)goto S_30910;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22573);}while(r); +if(!qbevent)break;evnt(23327);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22573);}while(r); +if(!qbevent)break;evnt(23327);}while(r); } -S_29534:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22574);if(r)goto S_29534;} do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass3353= 2 ),&(pass3354=*_SUB_XONGOTOGOSUB_LONG_I- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22575);}while(r); -S_29536:; +if(!qbevent)break;evnt(23328);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_G= 0 ; +if(!qbevent)break;evnt(23330);}while(r); +S_30916:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(23330);if(r)goto S_30916;} +do{ +*_SUB_XONGOTOGOSUB_LONG_G= 1 ; +if(!qbevent)break;evnt(23330);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XONGOTOGOSUB_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23331);}while(r); +S_30920:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22576);if(r)goto S_29536;} +if(qbevent){evnt(23332);if(r)goto S_30920;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22576);}while(r); +if(!qbevent)break;evnt(23332);}while(r); } do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22577);}while(r); +if(!qbevent)break;evnt(23333);}while(r); do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_EVALUATE(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22578);}while(r); -S_29541:; +if(!qbevent)break;evnt(23334);}while(r); +S_30925:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22579);if(r)goto S_29541;} +if(qbevent){evnt(23335);if(r)goto S_30925;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22579);}while(r); +if(!qbevent)break;evnt(23335);}while(r); } -S_29544:; -if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22580);if(r)goto S_29544;} +S_30928:; +if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23336);if(r)goto S_30928;} do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3202= 0 ))); +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass3355= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22580);}while(r); +if(!qbevent)break;evnt(23336);}while(r); } -S_29547:; +S_30931:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22581);if(r)goto S_29547;} +if(qbevent){evnt(23337);if(r)goto S_30931;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22581);}while(r); +if(!qbevent)break;evnt(23337);}while(r); } -S_29550:; -if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22582);if(r)goto S_29550;} +S_30934:; +if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(23338);if(r)goto S_30934;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22582);}while(r); +if(!qbevent)break;evnt(23338);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22582);}while(r); +if(!qbevent)break;evnt(23338);}while(r); +} +S_30938:; +if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(23339);if(r)goto S_30938;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23340);}while(r); } do{ -qbs_set(_SUB_XPRINT_STRING_PUFORMAT,_SUB_XPRINT_STRING_E); +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_E2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22583);}while(r); +if(!qbevent)break;evnt(23342);}while(r); do{ -goto fornext_exit_3200; -if(!qbevent)break;evnt(22584);}while(r); -} -} -S_29558:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22587);if(r)goto S_29558;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_set(_SUB_XONGOTOGOSUB_STRING_U,FUNC_STR2(&(pass3356=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22587);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22587);}while(r); -} -fornext_continue_3200:; -} -fornext_exit_3200:; -S_29564:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22589);if(r)goto S_29564;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22589);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22589);}while(r); -} -S_29568:; -if ((-(*_SUB_XPRINT_LONG_I==*_SUB_XPRINT_LONG_N))||new_error){ -if(qbevent){evnt(22590);if(r)goto S_29568;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22590);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22590);}while(r); -} -S_29572:; -if ((-(*_SUB_XPRINT_LONG_TQBSSET== 0 ))||new_error){ -if(qbevent){evnt(22592);if(r)goto S_29572;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3204; -sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); -if (new_error) goto skip3204; -skip3204: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22593);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3205; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,qbs_new_txt_len(",29),func_chr( 34 )),func_chr( 34 )),qbs_new_txt_len(",0));",5)), 0 , 0 , 1 ); -if (new_error) goto skip3205; -skip3205: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22595);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3206; -sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=0;",11), 0 , 0 , 1 ); -if (new_error) goto skip3206; -skip3206: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22598);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XPRINT_STRING_U)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22602);}while(r); -S_29579:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22603);if(r)goto S_29579;} +if(!qbevent)break;evnt(23343);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3207; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3207; -skip3207: +if (new_error) goto skip3357; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3)), 0 , 0 , 1 ); +if (new_error) goto skip3357; +skip3357: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22604);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3208; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3208; -skip3208: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22606);}while(r); -} +if(!qbevent)break;evnt(23344);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3209; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3209; -skip3209: +if (new_error) goto skip3358; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=",1)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3358; +skip3358: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22608);}while(r); +if(!qbevent)break;evnt(23345);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3210; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3210; -skip3210: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22609);}while(r); +*_SUB_XONGOTOGOSUB_LONG_LN= 1 ; +if(!qbevent)break;evnt(23346);}while(r); do{ -*_SUB_XPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22612);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22613);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22614);}while(r); -S_29589:; -fornext_value3212=*_SUB_XPRINT_LONG_I+ 1 ; -fornext_finalvalue3212=*_SUB_XPRINT_LONG_N; -fornext_step3212= 1 ; -if (fornext_step3212<0) fornext_step_negative3212=1; else fornext_step_negative3212=0; -if (new_error) goto fornext_error3212; -goto fornext_entrylabel3212; +*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; +if(!qbevent)break;evnt(23347);}while(r); +S_30947:; +fornext_value3360=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ; +fornext_finalvalue3360=*_SUB_XONGOTOGOSUB_LONG_N; +fornext_step3360= 1 ; +if (fornext_step3360<0) fornext_step_negative3360=1; else fornext_step_negative3360=0; +if (new_error) goto fornext_error3360; +goto fornext_entrylabel3360; while(1){ -fornext_value3212=fornext_step3212+(*_SUB_XPRINT_LONG_I); -fornext_entrylabel3212: -*_SUB_XPRINT_LONG_I=fornext_value3212; -if (fornext_step_negative3212){ -if (fornext_value3212fornext_finalvalue3212) break; +if (fornext_value3360>fornext_finalvalue3360) break; } -fornext_error3212:; -if(qbevent){evnt(22615);if(r)goto S_29589;} +fornext_error3360:; +if(qbevent){evnt(23348);if(r)goto S_30947;} do{ -qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_CA,_SUB_XONGOTOGOSUB_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22616);}while(r); -S_29591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22617);if(r)goto S_29591;} +if(!qbevent)break;evnt(23349);}while(r); +S_30949:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23350);if(r)goto S_30949;} do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22617);}while(r); -} -S_29594:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22618);if(r)goto S_29594;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22618);}while(r); -} -S_29597:; -if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22619);if(r)goto S_29597;} -S_29598:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(22620);if(r)goto S_29598;} -LABEL_PRINTULAST:; -if(qbevent){evnt(22621);r=0;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22622);}while(r); -S_29600:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22623);if(r)goto S_29600;} +if(!qbevent)break;evnt(23351);}while(r); +S_30951:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||new_error){ +if(qbevent){evnt(23352);if(r)goto S_30951;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23352);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22623);}while(r); +if(!qbevent)break;evnt(23352);}while(r); } -S_29603:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22624);if(r)goto S_29603;} do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22624);}while(r); +*_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ; +if(!qbevent)break;evnt(23353);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; +if(!qbevent)break;evnt(23354);}while(r); }else{ +S_30958:; +if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||new_error){ +if(qbevent){evnt(23356);if(r)goto S_30958;} do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22624);}while(r); -} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22625);}while(r); -S_29609:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22626);if(r)goto S_29609;} +if(!qbevent)break;evnt(23356);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22626);}while(r); +if(!qbevent)break;evnt(23356);}while(r); } -S_29612:; -if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22627);if(r)goto S_29612;} +S_30962:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||new_error){ +if(qbevent){evnt(23357);if(r)goto S_30962;} do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3213= 0 ))); +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22627);}while(r); -} -S_29615:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22628);if(r)goto S_29615;} +if(!qbevent)break;evnt(23357);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22628);}while(r); -} -S_29618:; -if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(22629);if(r)goto S_29618;} -S_29619:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ -if(qbevent){evnt(22631);if(r)goto S_29619;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3214; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); -if (new_error) goto skip3214; -skip3214: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22636);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3215; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3215; -skip3215: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22638);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3216; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3216; -skip3216: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22639);}while(r); -S_29623:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(22640);if(r)goto S_29623;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3217; -sub_file_print(tmp_fileno,qbs_new_txt_len("lprint_makefit(tqbs);",21), 0 , 0 , 1 ); -if (new_error) goto skip3217; -skip3217: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22640);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3218; -sub_file_print(tmp_fileno,qbs_new_txt_len("makefit(tqbs);",14), 0 , 0 , 1 ); -if (new_error) goto skip3218; -skip3218: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22640);}while(r); +if(!qbevent)break;evnt(23357);}while(r); } do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3219; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); -if (new_error) goto skip3219; -skip3219: +*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass3361= 2 ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22641);}while(r); +if(!qbevent)break;evnt(23359);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3220; -sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs->len=0;",12), 0 , 0 , 1 ); -if (new_error) goto skip3220; -skip3220: +*_SUB_XONGOTOGOSUB_LONG_X= 1 ; +if(!qbevent)break;evnt(23360);}while(r); +LABEL_LABCHK507:; +if(qbevent){evnt(23361);r=0;} +S_30968:; +if ((*_SUB_XONGOTOGOSUB_LONG_V)||new_error){ +if(qbevent){evnt(23362);if(r)goto S_30968;} +do{ +*_SUB_XONGOTOGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(23363);}while(r); +S_30970:; +if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||new_error){ +if(qbevent){evnt(23364);if(r)goto S_30970;} +S_30971:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||new_error){ +if(qbevent){evnt(23365);if(r)goto S_30971;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(23365);}while(r); +} +do{ +*_SUB_XONGOTOGOSUB_LONG_X= 0 ; +if(!qbevent)break;evnt(23366);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22643);}while(r); +if(!qbevent)break;evnt(23367);}while(r); }else{ +S_30977:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||new_error){ +if(qbevent){evnt(23369);if(r)goto S_30977;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3221; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3221; -skip3221: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22648);}while(r); +*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); +if(!qbevent)break;evnt(23369);}while(r); +do{ +goto LABEL_LABCHK507; +if(!qbevent)break;evnt(23369);}while(r); +} +} +} +S_30983:; +if ((*_SUB_XONGOTOGOSUB_LONG_X)||new_error){ +if(qbevent){evnt(23372);if(r)goto S_30983;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(23374);}while(r); +S_30985:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(23374);if(r)goto S_30985;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(23374);}while(r); +do{ + +if (__ARRAY_UDT_LABELS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_LABELS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_LABELS[2]&1){ +preserved_elements=__ARRAY_UDT_LABELS[5]; +} +else preserved_elements=0; +__ARRAY_UDT_LABELS[4]= 1 ; +__ARRAY_UDT_LABELS[5]=(*__LONG_LABELS_UBOUND)-__ARRAY_UDT_LABELS[4]+1; +__ARRAY_UDT_LABELS[6]=1; +if (__ARRAY_UDT_LABELS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_UDT_LABELS[0]),preserved_elements*2256/8+1); +cmem_dynamic_free((uint8*)(__ARRAY_UDT_LABELS[0])); +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2256/8+1); +memcpy((void*)(__ARRAY_UDT_LABELS[0]),redim_preserve_cmem_buffer,preserved_elements*2256/8+1); +if (preserved_elements 64 ))||new_error){ -if(qbevent){evnt(22658);if(r)goto S_29641;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3224; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); -if (new_error) goto skip3224; -skip3224: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22658);}while(r); -} +if (preserved_elements){ +tmp_long=__ARRAY_UDT_LABELS[5]; +__ARRAY_UDT_LABELS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_LABELS[0]),tmp_long*2256/8+1); +if (!__ARRAY_UDT_LABELS[0]) error(257); +if (preserved_elements=return_points) more_return_points();",59), 0 , 0 , 1 ); +if (new_error) goto skip3365; +skip3365: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22667);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22668);}while(r); -S_29654:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22669);if(r)goto S_29654;} -do{ -goto fornext_exit_3211; -if(!qbevent)break;evnt(22669);}while(r); -} -do{ -goto LABEL_PRINTUNEXT; -if(!qbevent)break;evnt(22670);}while(r); -} -} -S_29660:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22673);if(r)goto S_29660;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22673);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22673);}while(r); -} -LABEL_PRINTUNEXT:; -if(qbevent){evnt(22674);r=0;} -fornext_continue_3211:; -} -fornext_exit_3211:; -S_29666:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22676);if(r)goto S_29666;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22676);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22676);}while(r); -do{ -goto LABEL_PRINTULAST; -if(!qbevent)break;evnt(22676);}while(r); -} +if(!qbevent)break;evnt(23391);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3229; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3229; -skip3229: +if (new_error) goto skip3366; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3366; +skip3366: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22677);}while(r); +if(!qbevent)break;evnt(23392);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3230; -sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error){",15), 0 , 0 , 1 ); -if (new_error) goto skip3230; -skip3230: +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip3367; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3367; +skip3367: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22679);}while(r); +if(!qbevent)break;evnt(23394);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3231; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("g_tmp_long=new_error; new_error=0; qbs_",39),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0); new_error=g_tmp_long;",36)), 0 , 0 , 1 ); -if (new_error) goto skip3231; -skip3231: +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip3368; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3368; +skip3368: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22680);}while(r); +if(!qbevent)break;evnt(23395);}while(r); do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3232; -sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); -if (new_error) goto skip3232; -skip3232: +tab_fileno=tmp_fileno= 15 ; +if (new_error) goto skip3369; +sub_file_print(tmp_fileno,qbs_new_txt_len("break;",6), 0 , 0 , 1 ); +if (new_error) goto skip3369; +skip3369: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22681);}while(r); -S_29675:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ -if(qbevent){evnt(22682);if(r)goto S_29675;} -do{ -*_SUB_XPRINT_LONG_NL= 0 ; -if(!qbevent)break;evnt(22682);}while(r); -}else{ -do{ -*_SUB_XPRINT_LONG_NL= 1 ; -if(!qbevent)break;evnt(22682);}while(r); -} +if(!qbevent)break;evnt(23396);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3233; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,",11)),FUNC_STR2(_SUB_XPRINT_LONG_NL)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3233; -skip3233: +if (new_error) goto skip3370; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2)), 0 , 0 , 1 ); +if (new_error) goto skip3370; +skip3370: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22683);}while(r); +if(!qbevent)break;evnt(23397);}while(r); +do{ +*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; +if(!qbevent)break;evnt(23398);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3234; +if (new_error) goto skip3371; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6)), 0 , 0 , 1 ); +if (new_error) goto skip3371; +skip3371: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23399);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3372; sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); -if (new_error) goto skip3234; -skip3234: +if (new_error) goto skip3372; +skip3372: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22684);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3235; -sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); -if (new_error) goto skip3235; -skip3235: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22685);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3236; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3236; -skip3236: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22686);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3237; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3237; -skip3237: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22687);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3238; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3238; -skip3238: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22688);}while(r); -S_29686:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(22689);if(r)goto S_29686;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3239; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=0;",13), 0 , 0 , 1 ); -if (new_error) goto skip3239; -skip3239: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22689);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22690);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22691);}while(r); -} -} -do{ -*_SUB_XPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22696);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22697);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22698);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3240; -sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); -if (new_error) goto skip3240; -skip3240: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22699);}while(r); -do{ -*_SUB_XPRINT_LONG_TQBSSET= -1 ; -if(!qbevent)break;evnt(22700);}while(r); -S_29698:; -fornext_value3242= 2 ; -fornext_finalvalue3242=*_SUB_XPRINT_LONG_N; -fornext_step3242= 1 ; -if (fornext_step3242<0) fornext_step_negative3242=1; else fornext_step_negative3242=0; -if (new_error) goto fornext_error3242; -goto fornext_entrylabel3242; -while(1){ -fornext_value3242=fornext_step3242+(*_SUB_XPRINT_LONG_I); -fornext_entrylabel3242: -*_SUB_XPRINT_LONG_I=fornext_value3242; -if (fornext_step_negative3242){ -if (fornext_value3242fornext_finalvalue3242) break; -} -fornext_error3242:; -if(qbevent){evnt(22701);if(r)goto S_29698;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22702);}while(r); -S_29700:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22703);if(r)goto S_29700;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22703);}while(r); -} -S_29703:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22704);if(r)goto S_29703;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22704);}while(r); -} -S_29706:; -if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22705);if(r)goto S_29706;} -S_29707:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ -if(qbevent){evnt(22706);if(r)goto S_29707;} -LABEL_PRINTLAST:; -if(qbevent){evnt(22707);r=0;} -S_29708:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(22709);if(r)goto S_29708;} -S_29709:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22710);if(r)goto S_29709;} -do{ -*_SUB_XPRINT_LONG_GOTOPU= 1 ; -if(!qbevent)break;evnt(22710);}while(r); -}else{ -do{ -*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; -if(!qbevent)break;evnt(22710);}while(r); -do{ -goto LABEL_PUJUMP; -if(!qbevent)break;evnt(22710);}while(r); -} -} -S_29716:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22713);if(r)goto S_29716;} -do{ -qbs_set(_SUB_XPRINT_STRING_EBAK,_SUB_XPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22714);}while(r); -do{ -*_SUB_XPRINT_LONG_PNRTNUM= 0 ; -if(!qbevent)break;evnt(22715);}while(r); -LABEL_PRINTNUMBER:; -if(qbevent){evnt(22716);r=0;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22717);}while(r); -S_29720:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22718);if(r)goto S_29720;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22718);}while(r); -} -S_29723:; -if ((-(*_SUB_XPRINT_LONG_PNRTNUM== 0 ))||new_error){ -if(qbevent){evnt(22719);if(r)goto S_29723;} -S_29724:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22720);if(r)goto S_29724;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22720);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22720);}while(r); -} -} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22722);}while(r); -S_29731:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22723);if(r)goto S_29731;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22723);}while(r); -} -S_29734:; -if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22724);if(r)goto S_29734;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22726);}while(r); -do{ -*_SUB_XPRINT_LONG_PNRTNUM= 1 ; -if(!qbevent)break;evnt(22727);}while(r); -do{ -goto LABEL_PRINTNUMBER; -if(!qbevent)break;evnt(22728);}while(r); -} -S_29739:; -if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22730);if(r)goto S_29739;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3244= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22730);}while(r); -} -S_29742:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22731);if(r)goto S_29742;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22731);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3245; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3245; -skip3245: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22732);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3246; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3246; -skip3246: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22733);}while(r); -S_29747:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(22734);if(r)goto S_29747;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3247; -sub_file_print(tmp_fileno,qbs_new_txt_len("lprint_makefit(tqbs);",21), 0 , 0 , 1 ); -if (new_error) goto skip3247; -skip3247: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22734);}while(r); +if(!qbevent)break;evnt(23400);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3248; -sub_file_print(tmp_fileno,qbs_new_txt_len("makefit(tqbs);",14), 0 , 0 , 1 ); -if (new_error) goto skip3248; -skip3248: +if (new_error) goto skip3373; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len(") goto LABEL_",13)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3373; +skip3373: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22734);}while(r); +if(!qbevent)break;evnt(23402);}while(r); } do{ +*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ; +if(!qbevent)break;evnt(23404);}while(r); +} +fornext_continue_3359:; +} +fornext_exit_3359:; +do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3249; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); -if (new_error) goto skip3249; -skip3249: +if (new_error) goto skip3374; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("<0) error(5);",13)), 0 , 0 , 1 ); +if (new_error) goto skip3374; +skip3374: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22735);}while(r); -}else{ -S_29754:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22737);if(r)goto S_29754;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22737);}while(r); -} -S_29757:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22738);if(r)goto S_29757;} -S_29758:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22739);if(r)goto S_29758;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22739);}while(r); -} -} -} -S_29763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22742);if(r)goto S_29763;} +if(!qbevent)break;evnt(23407);}while(r); +S_31018:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||new_error){ +if(qbevent){evnt(23408);if(r)goto S_31018;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3250; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab();",6), 0 , 0 , 1 ); -if (new_error) goto skip3250; -skip3250: +if (new_error) goto skip3375; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7)), 0 , 0 , 1 ); +if (new_error) goto skip3375; +skip3375: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22742);}while(r); +if(!qbevent)break;evnt(23408);}while(r); } do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23409);}while(r); +S_31022:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23409);if(r)goto S_31022;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22743);}while(r); -S_29767:; -if ((*_SUB_XPRINT_LONG_GOTOPU)||new_error){ -if(qbevent){evnt(22745);if(r)goto S_29767;} -do{ -*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; -if(!qbevent)break;evnt(22745);}while(r); -do{ -goto LABEL_PUJUMP; -if(!qbevent)break;evnt(22745);}while(r); -} -S_29771:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22747);if(r)goto S_29771;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3251; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)), 0 , 0 , 1 ); -if (new_error) goto skip3251; -skip3251: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22748);}while(r); -do{ -goto fornext_exit_3241; -if(!qbevent)break;evnt(22749);}while(r); -} -do{ -goto LABEL_PRINTNEXT; -if(!qbevent)break;evnt(22752);}while(r); -} -} -S_29778:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22756);if(r)goto S_29778;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22756);}while(r); +if(!qbevent)break;evnt(23409);}while(r); }else{ do{ -qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); +qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22756);}while(r); +if(!qbevent)break;evnt(23409);}while(r); } -LABEL_PRINTNEXT:; -if(qbevent){evnt(22757);r=0;} -fornext_continue_3241:; -} -fornext_exit_3241:; -S_29784:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22759);if(r)goto S_29784;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22759);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22759);}while(r); -do{ -goto LABEL_PRINTLAST; -if(!qbevent)break;evnt(22759);}while(r); -} -S_29789:; -if ((-(*_SUB_XPRINT_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(22760);if(r)goto S_29789;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3254; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)), 0 , 0 , 1 ); -if (new_error) goto skip3254; -skip3254: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22760);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3255; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3255; -skip3255: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22761);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3256; -sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); -if (new_error) goto skip3256; -skip3256: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22762);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3257; -sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3257; -skip3257: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22763);}while(r); -S_29795:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(22764);if(r)goto S_29795;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3258; -sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=0;",13), 0 , 0 , 1 ); -if (new_error) goto skip3258; -skip3258: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22764);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22765);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free56.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_XREAD(qbs*_SUB_XREAD_STRING_CA,int32*_SUB_XREAD_LONG_N){ +void SUB_XPRINT(qbs*_SUB_XPRINT_STRING_A,qbs*_SUB_XPRINT_STRING_CA,int32*_SUB_XPRINT_LONG_N){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -102060,310 +107219,1160 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_XREAD_STRING_L,qbs_new_txt_len("READ",4)); +qbs_set(_SUB_XPRINT_STRING_U,FUNC_STR2(&(pass3379=FUNC_UNIQUENUMBER()))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22772);}while(r); -S_29800:; -if ((-(*_SUB_XREAD_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(22773);if(r)goto S_29800;} +if(!qbevent)break;evnt(23413);}while(r); do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); +qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("Print",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22773);}while(r); +if(!qbevent)break;evnt(23415);}while(r); +S_31029:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_XPRINT_STRING_A)== 76 )))||new_error){ +if(qbevent){evnt(23416);if(r)goto S_31029;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22773);}while(r); +*_SUB_XPRINT_LONG_LP= 1 ; +if(!qbevent)break;evnt(23416);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_LP,qbs_new_txt_len("l",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23416);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("LPrint",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23416);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3380; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=1;",13), 0 , 0 , 1 ); +if (new_error) goto skip3380; +skip3380: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23416);}while(r); +do{ +tmp_long=array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23416);}while(r); } +S_31036:; +if ((-(*_SUB_XPRINT_LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(23419);if(r)goto S_31036;} +S_31037:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XPRINT_STRING_A,&(pass3381= 2 )),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(23420);if(r)goto S_31037;} do{ -*_SUB_XREAD_LONG_I= 2 ; -if(!qbevent)break;evnt(22774);}while(r); -S_29805:; -if ((-(*_SUB_XREAD_LONG_I>*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(22775);if(r)goto S_29805;} +*_SUB_XPRINT_LONG_I= 3 ; +if(!qbevent)break;evnt(23422);}while(r); +LABEL_PUJUMP:; +if(qbevent){evnt(23423);r=0;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22775);}while(r); +if(!qbevent)break;evnt(23424);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22775);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22776);}while(r); +if(!qbevent)break;evnt(23425);}while(r); do{ -*_SUB_XREAD_LONG_B= 0 ; -if(!qbevent)break;evnt(22777);}while(r); -S_29811:; -fornext_value3261=*_SUB_XREAD_LONG_I; -fornext_finalvalue3261=*_SUB_XREAD_LONG_N; -fornext_step3261= 1 ; -if (fornext_step3261<0) fornext_step_negative3261=1; else fornext_step_negative3261=0; -if (new_error) goto fornext_error3261; -goto fornext_entrylabel3261; +*_SUB_XPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23425);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23425);}while(r); +S_31043:; +fornext_value3383=*_SUB_XPRINT_LONG_I; +fornext_finalvalue3383=*_SUB_XPRINT_LONG_N; +fornext_step3383= 1 ; +if (fornext_step3383<0) fornext_step_negative3383=1; else fornext_step_negative3383=0; +if (new_error) goto fornext_error3383; +goto fornext_entrylabel3383; while(1){ -fornext_value3261=fornext_step3261+(*_SUB_XREAD_LONG_I); -fornext_entrylabel3261: -*_SUB_XREAD_LONG_I=fornext_value3261; -if (fornext_step_negative3261){ -if (fornext_value3261fornext_finalvalue3261) break; +if (fornext_value3383>fornext_finalvalue3383) break; } -fornext_error3261:; -if(qbevent){evnt(22778);if(r)goto S_29811;} +fornext_error3383:; +if(qbevent){evnt(23426);if(r)goto S_31043;} do{ -qbs_set(_SUB_XREAD_STRING_A2,FUNC_GETELEMENT(_SUB_XREAD_STRING_CA,_SUB_XREAD_LONG_I)); +qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22779);}while(r); -S_29813:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22780);if(r)goto S_29813;} +if(!qbevent)break;evnt(23427);}while(r); +S_31045:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23428);if(r)goto S_31045;} do{ -*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B+ 1 ; -if(!qbevent)break;evnt(22780);}while(r); +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23428);}while(r); } -S_29816:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22781);if(r)goto S_29816;} +S_31048:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23429);if(r)goto S_31048;} do{ -*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B- 1 ; -if(!qbevent)break;evnt(22781);}while(r); +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23429);}while(r); } -S_29819:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XREAD_LONG_B== 0 ))))|(-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))))||new_error){ -if(qbevent){evnt(22782);if(r)goto S_29819;} -S_29820:; -if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(22783);if(r)goto S_29820;} -S_29821:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22784);if(r)goto S_29821;} +S_31051:; +if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23430);if(r)goto S_31051;} +S_31052:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23431);if(r)goto S_31052;} do{ -qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22784);}while(r); +if(!qbevent)break;evnt(23431);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23431);}while(r); +} +S_31056:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23432);if(r)goto S_31056;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23433);}while(r); +S_31058:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23434);if(r)goto S_31058;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23434);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23435);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23436);}while(r); +S_31063:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23437);if(r)goto S_31063;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23437);}while(r); +} +S_31066:; +if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23438);if(r)goto S_31066;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3384= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23438);}while(r); +} +S_31069:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23439);if(r)goto S_31069;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23439);}while(r); +} +S_31072:; +if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23440);if(r)goto S_31072;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23440);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23440);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_PUFORMAT,_SUB_XPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23441);}while(r); +do{ +goto fornext_exit_3382; +if(!qbevent)break;evnt(23442);}while(r); +} +} +S_31080:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23445);if(r)goto S_31080;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23445);}while(r); }else{ do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); +qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22784);}while(r); +if(!qbevent)break;evnt(23445);}while(r); } +fornext_continue_3382:; } -S_29827:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22786);if(r)goto S_29827;} +fornext_exit_3382:; +S_31086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23447);if(r)goto S_31086;} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22786);}while(r); +if(!qbevent)break;evnt(23447);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22786);}while(r); +if(!qbevent)break;evnt(23447);}while(r); } +S_31090:; +if ((-(*_SUB_XPRINT_LONG_I==*_SUB_XPRINT_LONG_N))||new_error){ +if(qbevent){evnt(23448);if(r)goto S_31090;} do{ -qbs_set(_SUB_XREAD_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XREAD_STRING_A3)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22787);}while(r); -S_29832:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22788);if(r)goto S_29832;} +if(!qbevent)break;evnt(23448);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22788);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22789);}while(r); -S_29836:; -if ((-(*_SUB_XREAD_LONG_I!=*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(22789);if(r)goto S_29836;} -do{ -qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22789);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_E,FUNC_EVALUATE(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22790);}while(r); -S_29840:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22791);if(r)goto S_29840;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22791);}while(r); -} -S_29843:; -if ((-((*_SUB_XREAD_LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(22792);if(r)goto S_29843;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22792);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22792);}while(r); -} -S_29847:; -if (((*_SUB_XREAD_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(22794);if(r)goto S_29847;} -do{ -qbs_set(_SUB_XREAD_STRING_E,FUNC_REFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,&(pass3262= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22795);}while(r); -S_29849:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22796);if(r)goto S_29849;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22796);}while(r); +if(!qbevent)break;evnt(23448);}while(r); } +S_31094:; +if ((-(*_SUB_XPRINT_LONG_TQBSSET== 0 ))||new_error){ +if(qbevent){evnt(23450);if(r)goto S_31094;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3263; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_read_string(data,&data_offset,data_size,",44),_SUB_XREAD_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3263; -skip3263: +if (new_error) goto skip3386; +sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); +if (new_error) goto skip3386; +skip3386: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22797);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(22798);}while(r); +if(!qbevent)break;evnt(23451);}while(r); }else{ -S_29855:; -if (((-((*_SUB_XREAD_LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*_SUB_XREAD_LONG_T& 511 )!= 64 )))||new_error){ -if(qbevent){evnt(22801);if(r)goto S_29855;} -S_29856:; -if (((*_SUB_XREAD_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(22802);if(r)goto S_29856;} -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_read_float(data,&data_offset,data_size,",52),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len("))",2)),&(pass3264= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22803);}while(r); -S_29858:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22804);if(r)goto S_29858;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22804);}while(r); -} -}else{ -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_read_float(data,&data_offset,data_size,",44),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len(")",1)),&(pass3265= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22806);}while(r); -S_29863:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22807);if(r)goto S_29863;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22807);}while(r); -} -} -}else{ -S_29868:; -if ((*_SUB_XREAD_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(22810);if(r)goto S_29868;} -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_uint64(data,&data_offset,data_size)",45),&(pass3266= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22811);}while(r); -S_29870:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22812);if(r)goto S_29870;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22812);}while(r); -} -}else{ -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_int64(data,&data_offset,data_size)",44),&(pass3267= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22814);}while(r); -S_29875:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22815);if(r)goto S_29875;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22815);}while(r); -} -} -} -} -S_29881:; -if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(22819);if(r)goto S_29881;} -do{ -goto fornext_exit_3260; -if(!qbevent)break;evnt(22819);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22820);}while(r); -do{ -qbs_set(_SUB_XREAD_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22820);}while(r); -} -S_29887:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22822);if(r)goto S_29887;} -do{ -qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22822);}while(r); -}else{ -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22822);}while(r); -} -fornext_continue_3260:; -} -fornext_exit_3260:; -S_29893:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(22824);if(r)goto S_29893;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3268; +if (new_error) goto skip3387; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,qbs_new_txt_len(",29),func_chr( 34 )),func_chr( 34 )),qbs_new_txt_len(",0));",5)), 0 , 0 , 1 ); +if (new_error) goto skip3387; +skip3387: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23453);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3388; +sub_file_print(tmp_fileno,qbs_new_txt_len("tmp_long=0;",11), 0 , 0 , 1 ); +if (new_error) goto skip3388; +skip3388: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23456);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XPRINT_STRING_U)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23460);}while(r); +S_31101:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23461);if(r)goto S_31101;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip3389; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3389; +skip3389: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23462);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 13 ; +if (new_error) goto skip3390; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3390; +skip3390: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23464);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3391; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3391; +skip3391: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23466);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3392; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3392; +skip3392: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23467);}while(r); +do{ +*_SUB_XPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23470);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23471);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23472);}while(r); +S_31111:; +fornext_value3394=*_SUB_XPRINT_LONG_I+ 1 ; +fornext_finalvalue3394=*_SUB_XPRINT_LONG_N; +fornext_step3394= 1 ; +if (fornext_step3394<0) fornext_step_negative3394=1; else fornext_step_negative3394=0; +if (new_error) goto fornext_error3394; +goto fornext_entrylabel3394; +while(1){ +fornext_value3394=fornext_step3394+(*_SUB_XPRINT_LONG_I); +fornext_entrylabel3394: +*_SUB_XPRINT_LONG_I=fornext_value3394; +if (fornext_step_negative3394){ +if (fornext_value3394fornext_finalvalue3394) break; +} +fornext_error3394:; +if(qbevent){evnt(23473);if(r)goto S_31111;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23474);}while(r); +S_31113:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23475);if(r)goto S_31113;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23475);}while(r); +} +S_31116:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23476);if(r)goto S_31116;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23476);}while(r); +} +S_31119:; +if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23477);if(r)goto S_31119;} +S_31120:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(23478);if(r)goto S_31120;} +LABEL_PRINTULAST:; +if(qbevent){evnt(23479);r=0;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23480);}while(r); +S_31122:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23481);if(r)goto S_31122;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23481);}while(r); +} +S_31125:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23482);if(r)goto S_31125;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23482);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23482);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23483);}while(r); +S_31131:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23484);if(r)goto S_31131;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23484);}while(r); +} +S_31134:; +if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23485);if(r)goto S_31134;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3395= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23485);}while(r); +} +S_31137:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23486);if(r)goto S_31137;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23486);}while(r); +} +S_31140:; +if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23487);if(r)goto S_31140;} +S_31141:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ +if(qbevent){evnt(23489);if(r)goto S_31141;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3396; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); +if (new_error) goto skip3396; +skip3396: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23494);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3397; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3397; +skip3397: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23496);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3398; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3398; +skip3398: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23497);}while(r); +S_31145:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23498);if(r)goto S_31145;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3399; +sub_file_print(tmp_fileno,qbs_new_txt_len("lprint_makefit(tqbs);",21), 0 , 0 , 1 ); +if (new_error) goto skip3399; +skip3399: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23498);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3400; +sub_file_print(tmp_fileno,qbs_new_txt_len("makefit(tqbs);",14), 0 , 0 , 1 ); +if (new_error) goto skip3400; +skip3400: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23498);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3401; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); +if (new_error) goto skip3401; +skip3401: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23499);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3402; +sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs->len=0;",12), 0 , 0 , 1 ); +if (new_error) goto skip3402; +skip3402: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23501);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3403; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3403; +skip3403: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23506);}while(r); +} +}else{ +S_31156:; +if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23513);if(r)goto S_31156;} +S_31157:; +if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(23514);if(r)goto S_31157;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3404; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3404; +skip3404: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23514);}while(r); +} +S_31160:; +if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(23515);if(r)goto S_31160;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3405; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3405; +skip3405: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23515);}while(r); +} +S_31163:; +if ((-((*_SUB_XPRINT_LONG_TYP& 511 )> 64 ))||new_error){ +if(qbevent){evnt(23516);if(r)goto S_31163;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3406; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3406; +skip3406: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23516);}while(r); +} +}else{ +S_31167:; +if ((((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ +if(qbevent){evnt(23518);if(r)goto S_31167;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3407; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3407; +skip3407: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23519);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3408; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16)), 0 , 0 , 1 ); +if (new_error) goto skip3408; +skip3408: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23521);}while(r); +} +} +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3409; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3409; +skip3409: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23525);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23526);}while(r); +S_31176:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23527);if(r)goto S_31176;} +do{ +goto fornext_exit_3393; +if(!qbevent)break;evnt(23527);}while(r); +} +do{ +goto LABEL_PRINTUNEXT; +if(!qbevent)break;evnt(23528);}while(r); +} +} +S_31182:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23531);if(r)goto S_31182;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23531);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23531);}while(r); +} +LABEL_PRINTUNEXT:; +if(qbevent){evnt(23532);r=0;} +fornext_continue_3393:; +} +fornext_exit_3393:; +S_31188:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23534);if(r)goto S_31188;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23534);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23534);}while(r); +do{ +goto LABEL_PRINTULAST; +if(!qbevent)break;evnt(23534);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3411; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3411; +skip3411: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23535);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3412; +sub_file_print(tmp_fileno,qbs_new_txt_len("if (new_error){",15), 0 , 0 , 1 ); +if (new_error) goto skip3412; +skip3412: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23537);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3413; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("g_tmp_long=new_error; new_error=0; qbs_",39),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0); new_error=g_tmp_long;",36)), 0 , 0 , 1 ); +if (new_error) goto skip3413; +skip3413: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23538);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3414; +sub_file_print(tmp_fileno,qbs_new_txt_len("}else{",6), 0 , 0 , 1 ); +if (new_error) goto skip3414; +skip3414: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23539);}while(r); +S_31197:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ +if(qbevent){evnt(23540);if(r)goto S_31197;} +do{ +*_SUB_XPRINT_LONG_NL= 0 ; +if(!qbevent)break;evnt(23540);}while(r); +}else{ +do{ +*_SUB_XPRINT_LONG_NL= 1 ; +if(!qbevent)break;evnt(23540);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3415; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,",11)),FUNC_STR2(_SUB_XPRINT_LONG_NL)),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3415; +skip3415: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23541);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3416; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0 , 0 , 1 ); +if (new_error) goto skip3416; +skip3416: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23542);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3417; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); +if (new_error) goto skip3417; +skip3417: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23543);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3418; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3418; +skip3418: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23544);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3419; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3419; +skip3419: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23545);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3420; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3268; -skip3268: +if (new_error) goto skip3420; +skip3420: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22824);}while(r); +if(!qbevent)break;evnt(23546);}while(r); +S_31208:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23547);if(r)goto S_31208;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3421; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=0;",13), 0 , 0 , 1 ); +if (new_error) goto skip3421; +skip3421: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23547);}while(r); } do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(22825);}while(r); -S_29897:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(22825);if(r)goto S_29897;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XREAD_STRING_L)); +qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22825);}while(r); +if(!qbevent)break;evnt(23548);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23549);}while(r); +} +} +do{ +*_SUB_XPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23554);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23555);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23556);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3422; +sub_file_print(tmp_fileno,qbs_new_txt_len("tqbs=qbs_new(0,0);",18), 0 , 0 , 1 ); +if (new_error) goto skip3422; +skip3422: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23557);}while(r); +do{ +*_SUB_XPRINT_LONG_TQBSSET= -1 ; +if(!qbevent)break;evnt(23558);}while(r); +S_31220:; +fornext_value3424= 2 ; +fornext_finalvalue3424=*_SUB_XPRINT_LONG_N; +fornext_step3424= 1 ; +if (fornext_step3424<0) fornext_step_negative3424=1; else fornext_step_negative3424=0; +if (new_error) goto fornext_error3424; +goto fornext_entrylabel3424; +while(1){ +fornext_value3424=fornext_step3424+(*_SUB_XPRINT_LONG_I); +fornext_entrylabel3424: +*_SUB_XPRINT_LONG_I=fornext_value3424; +if (fornext_step_negative3424){ +if (fornext_value3424fornext_finalvalue3424) break; +} +fornext_error3424:; +if(qbevent){evnt(23559);if(r)goto S_31220;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23560);}while(r); +S_31222:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23561);if(r)goto S_31222;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23561);}while(r); +} +S_31225:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23562);if(r)goto S_31225;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23562);}while(r); +} +S_31228:; +if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23563);if(r)goto S_31228;} +S_31229:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ +if(qbevent){evnt(23564);if(r)goto S_31229;} +LABEL_PRINTLAST:; +if(qbevent){evnt(23565);r=0;} +S_31230:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(23567);if(r)goto S_31230;} +S_31231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23568);if(r)goto S_31231;} +do{ +*_SUB_XPRINT_LONG_GOTOPU= 1 ; +if(!qbevent)break;evnt(23568);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,_SUB_XREAD_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22825);}while(r); +*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; +if(!qbevent)break;evnt(23568);}while(r); +do{ +goto LABEL_PUJUMP; +if(!qbevent)break;evnt(23568);}while(r); } +} +S_31238:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23571);if(r)goto S_31238;} +do{ +qbs_set(_SUB_XPRINT_STRING_EBAK,_SUB_XPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23572);}while(r); +do{ +*_SUB_XPRINT_LONG_PNRTNUM= 0 ; +if(!qbevent)break;evnt(23573);}while(r); +LABEL_PRINTNUMBER:; +if(qbevent){evnt(23574);r=0;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23575);}while(r); +S_31242:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23576);if(r)goto S_31242;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23576);}while(r); +} +S_31245:; +if ((-(*_SUB_XPRINT_LONG_PNRTNUM== 0 ))||new_error){ +if(qbevent){evnt(23577);if(r)goto S_31245;} +S_31246:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23578);if(r)goto S_31246;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23578);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23578);}while(r); +} +} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23580);}while(r); +S_31253:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23581);if(r)goto S_31253;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23581);}while(r); +} +S_31256:; +if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23582);if(r)goto S_31256;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23584);}while(r); +do{ +*_SUB_XPRINT_LONG_PNRTNUM= 1 ; +if(!qbevent)break;evnt(23585);}while(r); +do{ +goto LABEL_PRINTNUMBER; +if(!qbevent)break;evnt(23586);}while(r); +} +S_31261:; +if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23588);if(r)goto S_31261;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3426= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23588);}while(r); +} +S_31264:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23589);if(r)goto S_31264;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23589);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3427; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3427; +skip3427: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23590);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3428; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3428; +skip3428: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23591);}while(r); +S_31269:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23592);if(r)goto S_31269;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3429; +sub_file_print(tmp_fileno,qbs_new_txt_len("lprint_makefit(tqbs);",21), 0 , 0 , 1 ); +if (new_error) goto skip3429; +skip3429: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23592);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3430; +sub_file_print(tmp_fileno,qbs_new_txt_len("makefit(tqbs);",14), 0 , 0 , 1 ); +if (new_error) goto skip3430; +skip3430: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23592);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3431; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14)), 0 , 0 , 1 ); +if (new_error) goto skip3431; +skip3431: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23593);}while(r); +}else{ +S_31276:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23595);if(r)goto S_31276;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23595);}while(r); +} +S_31279:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23596);if(r)goto S_31279;} +S_31280:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23597);if(r)goto S_31280;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23597);}while(r); +} +} +} +S_31285:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23600);if(r)goto S_31285;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3432; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab();",6), 0 , 0 , 1 ); +if (new_error) goto skip3432; +skip3432: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23600);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23601);}while(r); +S_31289:; +if ((*_SUB_XPRINT_LONG_GOTOPU)||new_error){ +if(qbevent){evnt(23603);if(r)goto S_31289;} +do{ +*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; +if(!qbevent)break;evnt(23603);}while(r); +do{ +goto LABEL_PUJUMP; +if(!qbevent)break;evnt(23603);}while(r); +} +S_31293:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23605);if(r)goto S_31293;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3433; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)), 0 , 0 , 1 ); +if (new_error) goto skip3433; +skip3433: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23606);}while(r); +do{ +goto fornext_exit_3423; +if(!qbevent)break;evnt(23607);}while(r); +} +do{ +goto LABEL_PRINTNEXT; +if(!qbevent)break;evnt(23610);}while(r); +} +} +S_31300:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23614);if(r)goto S_31300;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23614);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23614);}while(r); +} +LABEL_PRINTNEXT:; +if(qbevent){evnt(23615);r=0;} +fornext_continue_3423:; +} +fornext_exit_3423:; +S_31306:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23617);if(r)goto S_31306;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23617);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23617);}while(r); +do{ +goto LABEL_PRINTLAST; +if(!qbevent)break;evnt(23617);}while(r); +} +S_31311:; +if ((-(*_SUB_XPRINT_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23618);if(r)goto S_31311;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3436; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23)), 0 , 0 , 1 ); +if (new_error) goto skip3436; +skip3436: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23618);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3437; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3437; +skip3437: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23619);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3438; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_free(tqbs);",15), 0 , 0 , 1 ); +if (new_error) goto skip3438; +skip3438: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23620);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3439; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3439; +skip3439: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23621);}while(r); +S_31317:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23622);if(r)goto S_31317;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3440; +sub_file_print(tmp_fileno,qbs_new_txt_len("tab_LPRINT=0;",13), 0 , 0 , 1 ); +if (new_error) goto skip3440; +skip3440: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23622);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23623);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free57.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_XWRITE(qbs*_SUB_XWRITE_STRING_CA,int32*_SUB_XWRITE_LONG_N){ +void SUB_XREAD(qbs*_SUB_XREAD_STRING_CA,int32*_SUB_XREAD_LONG_N){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -102377,311 +108386,302 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_XWRITE_STRING_L,qbs_new_txt_len("WRITE",5)); +qbs_set(_SUB_XREAD_STRING_L,FUNC_SCASE(qbs_new_txt_len("Read",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22829);}while(r); +if(!qbevent)break;evnt(23630);}while(r); +S_31322:; +if ((-(*_SUB_XREAD_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23631);if(r)goto S_31322;} do{ -qbs_set(_SUB_XWRITE_STRING_U,FUNC_STR2(&(pass3271=FUNC_UNIQUENUMBER()))); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22830);}while(r); -S_29904:; -if ((-(*_SUB_XWRITE_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(22831);if(r)goto S_29904;} +if(!qbevent)break;evnt(23631);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3272; -sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_print(nothingstring,1);",27), 0 , 0 , 1 ); -if (new_error) goto skip3272; -skip3272: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22832);}while(r); -do{ -goto LABEL_WRITEBLANKLINE2; -if(!qbevent)break;evnt(22833);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(23631);}while(r); } do{ -*_SUB_XWRITE_LONG_B= 0 ; -if(!qbevent)break;evnt(22835);}while(r); +*_SUB_XREAD_LONG_I= 2 ; +if(!qbevent)break;evnt(23632);}while(r); +S_31327:; +if ((-(*_SUB_XREAD_LONG_I>*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23633);if(r)goto S_31327;} do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22836);}while(r); +if(!qbevent)break;evnt(23633);}while(r); do{ -*_SUB_XWRITE_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22837);}while(r); -S_29911:; -fornext_value3274= 2 ; -fornext_finalvalue3274=*_SUB_XWRITE_LONG_N; -fornext_step3274= 1 ; -if (fornext_step3274<0) fornext_step_negative3274=1; else fornext_step_negative3274=0; -if (new_error) goto fornext_error3274; -goto fornext_entrylabel3274; +goto exit_subfunc; +if(!qbevent)break;evnt(23633);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23634);}while(r); +do{ +*_SUB_XREAD_LONG_B= 0 ; +if(!qbevent)break;evnt(23635);}while(r); +S_31333:; +fornext_value3443=*_SUB_XREAD_LONG_I; +fornext_finalvalue3443=*_SUB_XREAD_LONG_N; +fornext_step3443= 1 ; +if (fornext_step3443<0) fornext_step_negative3443=1; else fornext_step_negative3443=0; +if (new_error) goto fornext_error3443; +goto fornext_entrylabel3443; while(1){ -fornext_value3274=fornext_step3274+(*_SUB_XWRITE_LONG_I); -fornext_entrylabel3274: -*_SUB_XWRITE_LONG_I=fornext_value3274; -if (fornext_step_negative3274){ -if (fornext_value3274fornext_finalvalue3274) break; +if (fornext_value3443>fornext_finalvalue3443) break; } -fornext_error3274:; -if(qbevent){evnt(22838);if(r)goto S_29911;} +fornext_error3443:; +if(qbevent){evnt(23636);if(r)goto S_31333;} do{ -qbs_set(_SUB_XWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XWRITE_STRING_CA,_SUB_XWRITE_LONG_I)); +qbs_set(_SUB_XREAD_STRING_A2,FUNC_GETELEMENT(_SUB_XREAD_STRING_CA,_SUB_XREAD_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22839);}while(r); -S_29913:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22840);if(r)goto S_29913;} +if(!qbevent)break;evnt(23637);}while(r); +S_31335:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23638);if(r)goto S_31335;} do{ -*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ; -if(!qbevent)break;evnt(22840);}while(r); +*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B+ 1 ; +if(!qbevent)break;evnt(23638);}while(r); } -S_29916:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22841);if(r)goto S_29916;} +S_31338:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23639);if(r)goto S_31338;} do{ -*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ; -if(!qbevent)break;evnt(22841);}while(r); +*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B- 1 ; +if(!qbevent)break;evnt(23639);}while(r); } -S_29919:; -if ((-(*_SUB_XWRITE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22842);if(r)goto S_29919;} -S_29920:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22843);if(r)goto S_29920;} -LABEL_WRITELAST:; -if(qbevent){evnt(22844);r=0;} -S_29921:; -if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||new_error){ -if(qbevent){evnt(22845);if(r)goto S_29921;} +S_31341:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XREAD_LONG_B== 0 ))))|(-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))))||new_error){ +if(qbevent){evnt(23640);if(r)goto S_31341;} +S_31342:; +if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23641);if(r)goto S_31342;} +S_31343:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23642);if(r)goto S_31343;} do{ -*_SUB_XWRITE_LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(22845);}while(r); +qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23642);}while(r); }else{ do{ -*_SUB_XWRITE_LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(22845);}while(r); +qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23642);}while(r); } +} +S_31349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23644);if(r)goto S_31349;} do{ -qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22846);}while(r); -do{ -*_SUB_XWRITE_LONG_REEVALED= 0 ; -if(!qbevent)break;evnt(22847);}while(r); -LABEL_WRITECHECKED:; -if(qbevent){evnt(22848);r=0;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XWRITE_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22849);}while(r); -S_29929:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22850);if(r)goto S_29929;} +if(!qbevent)break;evnt(23644);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(22850);}while(r); -} -S_29932:; -if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(22851);if(r)goto S_29932;} -do{ -qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22852);}while(r); -S_29934:; -if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(22853);if(r)goto S_29934;} -do{ -qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22853);}while(r); -} +if(!qbevent)break;evnt(23644);}while(r); } do{ -qbs_set(_SUB_XWRITE_STRING_E,FUNC_EVALUATE(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP)); +qbs_set(_SUB_XREAD_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XREAD_STRING_A3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22855);}while(r); -S_29939:; +if(!qbevent)break;evnt(23645);}while(r); +S_31354:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22856);if(r)goto S_29939;} +if(qbevent){evnt(23646);if(r)goto S_31354;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22856);}while(r); +if(!qbevent)break;evnt(23646);}while(r); } -S_29942:; -if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(22857);if(r)goto S_29942;} -S_29943:; -if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22858);if(r)goto S_29943;} do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22859);}while(r); -S_29945:; -if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(22860);if(r)goto S_29945;} +if(!qbevent)break;evnt(23647);}while(r); +S_31358:; +if ((-(*_SUB_XREAD_LONG_I!=*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23647);if(r)goto S_31358;} do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22860);}while(r); +if(!qbevent)break;evnt(23647);}while(r); } do{ -*_SUB_XWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(22861);}while(r); -do{ -goto LABEL_WRITECHECKED; -if(!qbevent)break;evnt(22862);}while(r); -}else{ -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_set(_SUB_XREAD_STRING_E,FUNC_EVALUATE(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22864);}while(r); -S_29952:; -if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(22865);if(r)goto S_29952;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22865);}while(r); -} -do{ -*_SUB_XWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(22866);}while(r); -do{ -goto LABEL_WRITECHECKED; -if(!qbevent)break;evnt(22867);}while(r); -} -} -S_29959:; -if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22870);if(r)goto S_29959;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3275= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22870);}while(r); -} -S_29962:; +if(!qbevent)break;evnt(23648);}while(r); +S_31362:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22871);if(r)goto S_29962;} +if(qbevent){evnt(23649);if(r)goto S_31362;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22871);}while(r); +if(!qbevent)break;evnt(23649);}while(r); +} +S_31365:; +if ((-((*_SUB_XREAD_LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(23650);if(r)goto S_31365;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23650);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23650);}while(r); +} +S_31369:; +if (((*_SUB_XREAD_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(23652);if(r)goto S_31369;} +do{ +qbs_set(_SUB_XREAD_STRING_E,FUNC_REFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,&(pass3444= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23653);}while(r); +S_31371:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23654);if(r)goto S_31371;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23654);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3276; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_print(",10),_SUB_XWRITE_STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); -if (new_error) goto skip3276; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XWRITE_LONG_NEWLINE)), 1 , 0 , 0 ); -if (new_error) goto skip3276; -sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); -if (new_error) goto skip3276; -skip3276: +if (new_error) goto skip3445; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("sub_read_string(data,&data_offset,data_size,",44),_SUB_XREAD_STRING_E),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3445; +skip3445: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22873);}while(r); +if(!qbevent)break;evnt(23655);}while(r); do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3277; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); -if (new_error) goto skip3277; -skip3277: +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(23656);}while(r); +}else{ +S_31377:; +if (((-((*_SUB_XREAD_LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*_SUB_XREAD_LONG_T& 511 )!= 64 )))||new_error){ +if(qbevent){evnt(23659);if(r)goto S_31377;} +S_31378:; +if (((*_SUB_XREAD_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(23660);if(r)goto S_31378;} +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_read_float(data,&data_offset,data_size,",52),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len("))",2)),&(pass3446= 1 )); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22874);}while(r); +if(!qbevent)break;evnt(23661);}while(r); +S_31380:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23662);if(r)goto S_31380;} do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22875);}while(r); -S_29968:; -if ((*_SUB_XWRITE_LONG_LAST)||new_error){ -if(qbevent){evnt(22876);if(r)goto S_29968;} -do{ -goto fornext_exit_3273; -if(!qbevent)break;evnt(22876);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(23662);}while(r); } -do{ -goto LABEL_WRITENEXT; -if(!qbevent)break;evnt(22877);}while(r); -} -} -S_29974:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22880);if(r)goto S_29974;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),_SUB_XWRITE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22880);}while(r); }else{ do{ -qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2); +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_read_float(data,&data_offset,data_size,",44),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len(")",1)),&(pass3447= 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22880);}while(r); -} -LABEL_WRITENEXT:; -if(qbevent){evnt(22881);r=0;} -fornext_continue_3273:; -} -fornext_exit_3273:; -S_29980:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22883);if(r)goto S_29980;} +if(!qbevent)break;evnt(23664);}while(r); +S_31385:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23665);if(r)goto S_31385;} do{ -qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1)); +goto exit_subfunc; +if(!qbevent)break;evnt(23665);}while(r); +} +} +}else{ +S_31390:; +if ((*_SUB_XREAD_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(23668);if(r)goto S_31390;} +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_uint64(data,&data_offset,data_size)",45),&(pass3448= 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22883);}while(r); +if(!qbevent)break;evnt(23669);}while(r); +S_31392:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23670);if(r)goto S_31392;} do{ -*_SUB_XWRITE_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22883);}while(r); -do{ -goto LABEL_WRITELAST; -if(!qbevent)break;evnt(22883);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(23670);}while(r); } -LABEL_WRITEBLANKLINE2:; -if(qbevent){evnt(22884);r=0;} +}else{ +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_int64(data,&data_offset,data_size)",44),&(pass3449= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23672);}while(r); +S_31397:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23673);if(r)goto S_31397;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23673);}while(r); +} +} +} +} +S_31403:; +if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23677);if(r)goto S_31403;} +do{ +goto fornext_exit_3442; +if(!qbevent)break;evnt(23677);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23678);}while(r); +do{ +qbs_set(_SUB_XREAD_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23678);}while(r); +} +S_31409:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23680);if(r)goto S_31409;} +do{ +qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23680);}while(r); +}else{ +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23680);}while(r); +} +fornext_continue_3442:; +} +fornext_exit_3442:; +S_31415:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(23682);if(r)goto S_31415;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3278; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); -if (new_error) goto skip3278; -skip3278: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(22885);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 12 ; -if (new_error) goto skip3279; +if (new_error) goto skip3450; sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); -if (new_error) goto skip3279; -skip3279: +if (new_error) goto skip3450; +skip3450: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22886);}while(r); +if(!qbevent)break;evnt(23682);}while(r); +} do{ *__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(22887);}while(r); -S_29988:; +if(!qbevent)break;evnt(23683);}while(r); +S_31419:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(22887);if(r)goto S_29988;} +if(qbevent){evnt(23683);if(r)goto S_31419;} do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XWRITE_STRING_L)); +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XREAD_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22887);}while(r); +if(!qbevent)break;evnt(23683);}while(r); }else{ do{ -qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L); +qbs_set(__STRING_LAYOUT,_SUB_XREAD_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22887);}while(r); +if(!qbevent)break;evnt(23683);}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -102689,7 +108689,7 @@ free_mem_lock(sf_mem_lock); if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -qbs* FUNC_EVALUATECONST(qbs*_FUNC_EVALUATECONST_STRING_A2,int32*_FUNC_EVALUATECONST_LONG_T){ +void SUB_XWRITE(qbs*_SUB_XWRITE_STRING_CA,int32*_SUB_XWRITE_LONG_N){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -102703,22 +108703,348 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ +qbs_set(_SUB_XWRITE_STRING_L,FUNC_SCASE(qbs_new_txt_len("Write",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23687);}while(r); +do{ +qbs_set(_SUB_XWRITE_STRING_U,FUNC_STR2(&(pass3453=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23688);}while(r); +S_31426:; +if ((-(*_SUB_XWRITE_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23689);if(r)goto S_31426;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3454; +sub_file_print(tmp_fileno,qbs_new_txt_len("qbs_print(nothingstring,1);",27), 0 , 0 , 1 ); +if (new_error) goto skip3454; +skip3454: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23690);}while(r); +do{ +goto LABEL_WRITEBLANKLINE2; +if(!qbevent)break;evnt(23691);}while(r); +} +do{ +*_SUB_XWRITE_LONG_B= 0 ; +if(!qbevent)break;evnt(23693);}while(r); +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23694);}while(r); +do{ +*_SUB_XWRITE_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23695);}while(r); +S_31433:; +fornext_value3456= 2 ; +fornext_finalvalue3456=*_SUB_XWRITE_LONG_N; +fornext_step3456= 1 ; +if (fornext_step3456<0) fornext_step_negative3456=1; else fornext_step_negative3456=0; +if (new_error) goto fornext_error3456; +goto fornext_entrylabel3456; +while(1){ +fornext_value3456=fornext_step3456+(*_SUB_XWRITE_LONG_I); +fornext_entrylabel3456: +*_SUB_XWRITE_LONG_I=fornext_value3456; +if (fornext_step_negative3456){ +if (fornext_value3456fornext_finalvalue3456) break; +} +fornext_error3456:; +if(qbevent){evnt(23696);if(r)goto S_31433;} +do{ +qbs_set(_SUB_XWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XWRITE_STRING_CA,_SUB_XWRITE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23697);}while(r); +S_31435:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23698);if(r)goto S_31435;} +do{ +*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ; +if(!qbevent)break;evnt(23698);}while(r); +} +S_31438:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23699);if(r)goto S_31438;} +do{ +*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ; +if(!qbevent)break;evnt(23699);}while(r); +} +S_31441:; +if ((-(*_SUB_XWRITE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23700);if(r)goto S_31441;} +S_31442:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23701);if(r)goto S_31442;} +LABEL_WRITELAST:; +if(qbevent){evnt(23702);r=0;} +S_31443:; +if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||new_error){ +if(qbevent){evnt(23703);if(r)goto S_31443;} +do{ +*_SUB_XWRITE_LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(23703);}while(r); +}else{ +do{ +*_SUB_XWRITE_LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(23703);}while(r); +} +do{ +qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23704);}while(r); +do{ +*_SUB_XWRITE_LONG_REEVALED= 0 ; +if(!qbevent)break;evnt(23705);}while(r); +LABEL_WRITECHECKED:; +if(qbevent){evnt(23706);r=0;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XWRITE_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23707);}while(r); +S_31451:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23708);if(r)goto S_31451;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23708);}while(r); +} +S_31454:; +if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23709);if(r)goto S_31454;} +do{ +qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23710);}while(r); +S_31456:; +if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23711);if(r)goto S_31456;} +do{ +qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23711);}while(r); +} +} +do{ +qbs_set(_SUB_XWRITE_STRING_E,FUNC_EVALUATE(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23713);}while(r); +S_31461:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23714);if(r)goto S_31461;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23714);}while(r); +} +S_31464:; +if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23715);if(r)goto S_31464;} +S_31465:; +if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23716);if(r)goto S_31465;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23717);}while(r); +S_31467:; +if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23718);if(r)goto S_31467;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23718);}while(r); +} +do{ +*_SUB_XWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23719);}while(r); +do{ +goto LABEL_WRITECHECKED; +if(!qbevent)break;evnt(23720);}while(r); +}else{ +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23722);}while(r); +S_31474:; +if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23723);if(r)goto S_31474;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23723);}while(r); +} +do{ +*_SUB_XWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23724);}while(r); +do{ +goto LABEL_WRITECHECKED; +if(!qbevent)break;evnt(23725);}while(r); +} +} +S_31481:; +if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23728);if(r)goto S_31481;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3457= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23728);}while(r); +} +S_31484:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23729);if(r)goto S_31484;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23729);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3458; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("qbs_print(",10),_SUB_XWRITE_STRING_E),qbs_new_txt_len(",",1)), 0 , 0 , 0 ); +if (new_error) goto skip3458; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_XWRITE_LONG_NEWLINE)), 1 , 0 , 0 ); +if (new_error) goto skip3458; +sub_file_print(tmp_fileno,qbs_new_txt_len(");",2), 0 , 0 , 1 ); +if (new_error) goto skip3458; +skip3458: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23731);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3459; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XWRITE_STRING_U),qbs_new_txt_len(";",1)), 0 , 0 , 1 ); +if (new_error) goto skip3459; +skip3459: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23732);}while(r); +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23733);}while(r); +S_31490:; +if ((*_SUB_XWRITE_LONG_LAST)||new_error){ +if(qbevent){evnt(23734);if(r)goto S_31490;} +do{ +goto fornext_exit_3455; +if(!qbevent)break;evnt(23734);}while(r); +} +do{ +goto LABEL_WRITENEXT; +if(!qbevent)break;evnt(23735);}while(r); +} +} +S_31496:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23738);if(r)goto S_31496;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),_SUB_XWRITE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23738);}while(r); +}else{ +do{ +qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23738);}while(r); +} +LABEL_WRITENEXT:; +if(qbevent){evnt(23739);r=0;} +fornext_continue_3455:; +} +fornext_exit_3455:; +S_31502:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23741);if(r)goto S_31502;} +do{ +qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23741);}while(r); +do{ +*_SUB_XWRITE_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23741);}while(r); +do{ +goto LABEL_WRITELAST; +if(!qbevent)break;evnt(23741);}while(r); +} +LABEL_WRITEBLANKLINE2:; +if(qbevent){evnt(23742);r=0;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3460; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1)), 0 , 0 , 1 ); +if (new_error) goto skip3460; +skip3460: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23743);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 12 ; +if (new_error) goto skip3461; +sub_file_print(tmp_fileno,qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3)), 0 , 0 , 1 ); +if (new_error) goto skip3461; +skip3461: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23744);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23745);}while(r); +S_31510:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23745);if(r)goto S_31510;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XWRITE_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23745);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23745);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free59.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_EVALUATECONST(qbs*_FUNC_EVALUATECONST_STRING_A2,int32*_FUNC_EVALUATECONST_LONG_T){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data60.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ qbs_set(_FUNC_EVALUATECONST_STRING_A,_FUNC_EVALUATECONST_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22891);}while(r); -S_29994:; +if(!qbevent)break;evnt(23749);}while(r); +S_31516:; if (( 0 )||new_error){ -if(qbevent){evnt(22892);if(r)goto S_29994;} +if(qbevent){evnt(23750);if(r)goto S_31516;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3282; +if (new_error) goto skip3464; sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluateconst:in:",17),_FUNC_EVALUATECONST_STRING_A), 0 , 0 , 1 ); -if (new_error) goto skip3282; -skip3282: +if (new_error) goto skip3464; +skip3464: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(22892);}while(r); +if(!qbevent)break;evnt(23750);}while(r); } do{ @@ -102726,7 +109052,7 @@ if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&2){ error(10); }else{ if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]= 0 ; _FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]=( 1000 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]+1; @@ -102742,14 +109068,14 @@ while(tmp_long--) ((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_lon } } } -if(!qbevent)break;evnt(22895);}while(r); +if(!qbevent)break;evnt(23753);}while(r); do{ if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&2){ error(10); }else{ if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]= 0 ; _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]=( 1000 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]+1; @@ -102764,14 +109090,14 @@ if (!_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]) error(257); _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]|=1; } } -if(!qbevent)break;evnt(22896);}while(r); +if(!qbevent)break;evnt(23754);}while(r); do{ if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&2){ error(10); }else{ if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]= 0 ; _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]=( 1000 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]+1; @@ -102786,1588 +109112,1436 @@ if (!_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]) error(257); _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]|=1; } } -if(!qbevent)break;evnt(22899);}while(r); +if(!qbevent)break;evnt(23757);}while(r); do{ *_FUNC_EVALUATECONST_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATECONST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22902);}while(r); -S_30001:; -fornext_value3284= 1 ; -fornext_finalvalue3284=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3284= 1 ; -if (fornext_step3284<0) fornext_step_negative3284=1; else fornext_step_negative3284=0; -if (new_error) goto fornext_error3284; -goto fornext_entrylabel3284; +if(!qbevent)break;evnt(23760);}while(r); +S_31523:; +fornext_value3466= 1 ; +fornext_finalvalue3466=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3466= 1 ; +if (fornext_step3466<0) fornext_step_negative3466=1; else fornext_step_negative3466=0; +if (new_error) goto fornext_error3466; +goto fornext_entrylabel3466; while(1){ -fornext_value3284=fornext_step3284+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3284: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3284; -if (fornext_step_negative3284){ -if (fornext_value3284fornext_finalvalue3284) break; +if (fornext_value3466>fornext_finalvalue3466) break; } -fornext_error3284:; -if(qbevent){evnt(22903);if(r)goto S_30001;} +fornext_error3466:; +if(qbevent){evnt(23761);if(r)goto S_31523;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_GETELEMENT(_FUNC_EVALUATECONST_STRING_A,_FUNC_EVALUATECONST_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22904);}while(r); -fornext_continue_3283:; +if(!qbevent)break;evnt(23762);}while(r); +fornext_continue_3465:; } -fornext_exit_3283:; +fornext_exit_3465:; LABEL_EVALCONSTEVALBRACK:; -if(qbevent){evnt(22907);r=0;} +if(qbevent){evnt(23765);r=0;} do{ *_FUNC_EVALUATECONST_LONG_L= 0 ; -if(!qbevent)break;evnt(22910);}while(r); +if(!qbevent)break;evnt(23768);}while(r); do{ *_FUNC_EVALUATECONST_LONG_B= 0 ; -if(!qbevent)break;evnt(22911);}while(r); -S_30006:; -fornext_value3286= 1 ; -fornext_finalvalue3286=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3286= 1 ; -if (fornext_step3286<0) fornext_step_negative3286=1; else fornext_step_negative3286=0; -if (new_error) goto fornext_error3286; -goto fornext_entrylabel3286; +if(!qbevent)break;evnt(23769);}while(r); +S_31528:; +fornext_value3468= 1 ; +fornext_finalvalue3468=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3468= 1 ; +if (fornext_step3468<0) fornext_step_negative3468=1; else fornext_step_negative3468=0; +if (new_error) goto fornext_error3468; +goto fornext_entrylabel3468; while(1){ -fornext_value3286=fornext_step3286+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3286: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3286; -if (fornext_step_negative3286){ -if (fornext_value3286fornext_finalvalue3286) break; +if (fornext_value3468>fornext_finalvalue3468) break; } -fornext_error3286:; -if(qbevent){evnt(22912);if(r)goto S_30006;} -S_30007:; +fornext_error3468:; +if(qbevent){evnt(23770);if(r)goto S_31528;} +S_31529:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22913);if(r)goto S_30007;} +if(qbevent){evnt(23771);if(r)goto S_31529;} do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; -if(!qbevent)break;evnt(22913);}while(r); +if(!qbevent)break;evnt(23771);}while(r); } -S_30010:; +S_31532:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22914);if(r)goto S_30010;} +if(qbevent){evnt(23772);if(r)goto S_31532;} do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; -if(!qbevent)break;evnt(22914);}while(r); +if(!qbevent)break;evnt(23772);}while(r); } -S_30013:; +S_31535:; if ((-(*_FUNC_EVALUATECONST_LONG_B>*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(22915);if(r)goto S_30013;} +if(qbevent){evnt(23773);if(r)goto S_31535;} do{ *_FUNC_EVALUATECONST_LONG_L=*_FUNC_EVALUATECONST_LONG_B; -if(!qbevent)break;evnt(22915);}while(r); +if(!qbevent)break;evnt(23773);}while(r); } -fornext_continue_3285:; +fornext_continue_3467:; } -fornext_exit_3285:; -S_30017:; +fornext_exit_3467:; +S_31539:; if ((*_FUNC_EVALUATECONST_LONG_L)||new_error){ -if(qbevent){evnt(22919);if(r)goto S_30017;} +if(qbevent){evnt(23777);if(r)goto S_31539;} do{ *_FUNC_EVALUATECONST_LONG_B= 0 ; -if(!qbevent)break;evnt(22921);}while(r); +if(!qbevent)break;evnt(23779);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22922);}while(r); -S_30020:; -fornext_value3288= 1 ; -fornext_finalvalue3288=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3288= 1 ; -if (fornext_step3288<0) fornext_step_negative3288=1; else fornext_step_negative3288=0; -if (new_error) goto fornext_error3288; -goto fornext_entrylabel3288; +if(!qbevent)break;evnt(23780);}while(r); +S_31542:; +fornext_value3470= 1 ; +fornext_finalvalue3470=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3470= 1 ; +if (fornext_step3470<0) fornext_step_negative3470=1; else fornext_step_negative3470=0; +if (new_error) goto fornext_error3470; +goto fornext_entrylabel3470; while(1){ -fornext_value3288=fornext_step3288+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3288: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3288; -if (fornext_step_negative3288){ -if (fornext_value3288fornext_finalvalue3288) break; +if (fornext_value3470>fornext_finalvalue3470) break; } -fornext_error3288:; -if(qbevent){evnt(22923);if(r)goto S_30020;} -S_30021:; +fornext_error3470:; +if(qbevent){evnt(23781);if(r)goto S_31542;} +S_31543:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22925);if(r)goto S_30021;} -S_30022:; +if(qbevent){evnt(23783);if(r)goto S_31543;} +S_31544:; if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(22926);if(r)goto S_30022;} +if(qbevent){evnt(23784);if(r)goto S_31544;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22926);}while(r); +if(!qbevent)break;evnt(23784);}while(r); do{ -goto fornext_exit_3287; -if(!qbevent)break;evnt(22926);}while(r); +goto fornext_exit_3469; +if(!qbevent)break;evnt(23784);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; -if(!qbevent)break;evnt(22927);}while(r); +if(!qbevent)break;evnt(23785);}while(r); } -S_30028:; +S_31550:; if ((-(*_FUNC_EVALUATECONST_LONG_B>=*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(22930);if(r)goto S_30028;} -S_30029:; +if(qbevent){evnt(23788);if(r)goto S_31550;} +S_31551:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATECONST_STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(22931);if(r)goto S_30029;} +if(qbevent){evnt(23789);if(r)goto S_31551;} do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22931);}while(r); +if(!qbevent)break;evnt(23789);}while(r); }else{ do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_add(qbs_add(_FUNC_EVALUATECONST_STRING_E,__STRING1_SP),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22931);}while(r); +if(!qbevent)break;evnt(23789);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22932);}while(r); +if(!qbevent)break;evnt(23790);}while(r); } -S_30036:; +S_31558:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22935);if(r)goto S_30036;} +if(qbevent){evnt(23793);if(r)goto S_31558;} do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; -if(!qbevent)break;evnt(22936);}while(r); -S_30038:; +if(!qbevent)break;evnt(23794);}while(r); +S_31560:; if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(22937);if(r)goto S_30038;} +if(qbevent){evnt(23795);if(r)goto S_31560;} do{ *_FUNC_EVALUATECONST_LONG_I2=*_FUNC_EVALUATECONST_LONG_I; -if(!qbevent)break;evnt(22937);}while(r); +if(!qbevent)break;evnt(23795);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22937);}while(r); +if(!qbevent)break;evnt(23795);}while(r); } } -fornext_continue_3287:; +fornext_continue_3469:; } -fornext_exit_3287:; +fornext_exit_3469:; do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(22942);}while(r); +if(!qbevent)break;evnt(23800);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_EVALUATECONST(_FUNC_EVALUATECONST_STRING_E,(&(((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22943);}while(r); -S_30046:; +if(!qbevent)break;evnt(23801);}while(r); +S_31568:; if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22944);if(r)goto S_30046;} +if(qbevent){evnt(23802);if(r)goto S_31568;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(22944);}while(r); +if(!qbevent)break;evnt(23802);}while(r); } do{ goto LABEL_EVALCONSTEVALBRACK; -if(!qbevent)break;evnt(22945);}while(r); +if(!qbevent)break;evnt(23803);}while(r); } -S_30051:; -fornext_value3291= 1 ; -fornext_finalvalue3291=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3291= 1 ; -if (fornext_step3291<0) fornext_step_negative3291=1; else fornext_step_negative3291=0; -if (new_error) goto fornext_error3291; -goto fornext_entrylabel3291; +S_31573:; +fornext_value3473= 1 ; +fornext_finalvalue3473=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3473= 1 ; +if (fornext_step3473<0) fornext_step_negative3473=1; else fornext_step_negative3473=0; +if (new_error) goto fornext_error3473; +goto fornext_entrylabel3473; while(1){ -fornext_value3291=fornext_step3291+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3291: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3291; -if (fornext_step_negative3291){ -if (fornext_value3291fornext_finalvalue3291) break; +if (fornext_value3473>fornext_finalvalue3473) break; } -fornext_error3291:; -if(qbevent){evnt(22958);if(r)goto S_30051;} -S_30052:; +fornext_error3473:; +if(qbevent){evnt(23816);if(r)goto S_31573;} +S_31574:; if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(22959);if(r)goto S_30052;} -S_30053:; +if(qbevent){evnt(23817);if(r)goto S_31574;} +S_31575:; if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len))||new_error){ -if(qbevent){evnt(22960);if(r)goto S_30053;} +if(qbevent){evnt(23818);if(r)goto S_31575;} do{ *_FUNC_EVALUATECONST_LONG_A=qbs_asc(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22962);}while(r); -S_30055:; +if(!qbevent)break;evnt(23820);}while(r); +S_31577:; if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_EVALUATECONST_LONG_A== 45 ))&(-(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len> 1 )))|((-(*_FUNC_EVALUATECONST_LONG_A>= 48 ))&(-(*_FUNC_EVALUATECONST_LONG_A<= 57 )))))||new_error){ -if(qbevent){evnt(22963);if(r)goto S_30055;} +if(qbevent){evnt(23821);if(r)goto S_31577;} do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22966);}while(r); -S_30057:; +if(!qbevent)break;evnt(23824);}while(r); +S_31579:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(22967);if(r)goto S_30057;} +if(qbevent){evnt(23825);if(r)goto S_31579;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22967);}while(r); +if(!qbevent)break;evnt(23825);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22967);}while(r); +if(!qbevent)break;evnt(23825);}while(r); } -S_30061:; +S_31583:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(22968);if(r)goto S_30061;} +if(qbevent){evnt(23826);if(r)goto S_31583;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22968);}while(r); +if(!qbevent)break;evnt(23826);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22968);}while(r); +if(!qbevent)break;evnt(23826);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22969);}while(r); -S_30066:; +if(!qbevent)break;evnt(23827);}while(r); +S_31588:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(22970);if(r)goto S_30066;} +if(qbevent){evnt(23828);if(r)goto S_31588;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22970);}while(r); +if(!qbevent)break;evnt(23828);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22970);}while(r); +if(!qbevent)break;evnt(23828);}while(r); } -S_30070:; +S_31592:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(22971);if(r)goto S_30070;} +if(qbevent){evnt(23829);if(r)goto S_31592;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22971);}while(r); +if(!qbevent)break;evnt(23829);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22971);}while(r); +if(!qbevent)break;evnt(23829);}while(r); } -S_30074:; +S_31596:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(22972);if(r)goto S_30074;} +if(qbevent){evnt(23830);if(r)goto S_31596;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22972);}while(r); +if(!qbevent)break;evnt(23830);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22972);}while(r); +if(!qbevent)break;evnt(23830);}while(r); } -S_30078:; +S_31600:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(22973);if(r)goto S_30078;} +if(qbevent){evnt(23831);if(r)goto S_31600;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22973);}while(r); +if(!qbevent)break;evnt(23831);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22973);}while(r); +if(!qbevent)break;evnt(23831);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22974);}while(r); -S_30083:; +if(!qbevent)break;evnt(23832);}while(r); +S_31605:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(22975);if(r)goto S_30083;} +if(qbevent){evnt(23833);if(r)goto S_31605;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22975);}while(r); +if(!qbevent)break;evnt(23833);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22975);}while(r); +if(!qbevent)break;evnt(23833);}while(r); } -S_30087:; +S_31609:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(22976);if(r)goto S_30087;} +if(qbevent){evnt(23834);if(r)goto S_31609;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22976);}while(r); +if(!qbevent)break;evnt(23834);}while(r); do{ goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(22976);}while(r); +if(!qbevent)break;evnt(23834);}while(r); } -S_30091:; +S_31613:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("~`",2),0)))||new_error){ -if(qbevent){evnt(22979);if(r)goto S_30091;} +if(qbevent){evnt(23837);if(r)goto S_31613;} do{ *_FUNC_EVALUATECONST_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("~`",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22980);}while(r); -S_30093:; +if(!qbevent)break;evnt(23838);}while(r); +S_31615:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATECONST_LONG_X==(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len- 1 ))))||new_error){ -if(qbevent){evnt(22981);if(r)goto S_30093;} +if(qbevent){evnt(23839);if(r)goto S_31615;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("1",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22981);}while(r); +if(!qbevent)break;evnt(23839);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=qbr(*__LONG_UBITTYPE-*__LONG_ISPOINTER- 1 +func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-*_FUNC_EVALUATECONST_LONG_X- 1 ))); -if(!qbevent)break;evnt(22982);}while(r); +if(!qbevent)break;evnt(23840);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),*_FUNC_EVALUATECONST_LONG_X- 1 ))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22983);}while(r); +if(!qbevent)break;evnt(23841);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(22984);}while(r); +if(!qbevent)break;evnt(23842);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(22985);}while(r); +if(!qbevent)break;evnt(23843);}while(r); } -S_30101:; +S_31623:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("`",1),0)))||new_error){ -if(qbevent){evnt(22989);if(r)goto S_30101;} +if(qbevent){evnt(23847);if(r)goto S_31623;} do{ *_FUNC_EVALUATECONST_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("`",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22990);}while(r); -S_30103:; +if(!qbevent)break;evnt(23848);}while(r); +S_31625:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATECONST_LONG_X==((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len)))||new_error){ -if(qbevent){evnt(22991);if(r)goto S_30103;} +if(qbevent){evnt(23849);if(r)goto S_31625;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("1",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22991);}while(r); +if(!qbevent)break;evnt(23849);}while(r); } do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=qbr(*__LONG_BITTYPE-*__LONG_ISPOINTER- 1 +func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-*_FUNC_EVALUATECONST_LONG_X))); -if(!qbevent)break;evnt(22992);}while(r); +if(!qbevent)break;evnt(23850);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),*_FUNC_EVALUATECONST_LONG_X- 1 ))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22993);}while(r); +if(!qbevent)break;evnt(23851);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(22994);}while(r); +if(!qbevent)break;evnt(23852);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(22995);}while(r); +if(!qbevent)break;evnt(23853);}while(r); } -S_30111:; +S_31633:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("E",1),0)))||new_error){ -if(qbevent){evnt(22999);if(r)goto S_30111;} +if(qbevent){evnt(23857);if(r)goto S_31633;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23000);}while(r); +if(!qbevent)break;evnt(23858);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23001);}while(r); +if(!qbevent)break;evnt(23859);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23002);}while(r); +if(!qbevent)break;evnt(23860);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23003);}while(r); +if(!qbevent)break;evnt(23861);}while(r); } -S_30117:; +S_31639:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("D",1),0)))||new_error){ -if(qbevent){evnt(23005);if(r)goto S_30117;} +if(qbevent){evnt(23863);if(r)goto S_31639;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23006);}while(r); +if(!qbevent)break;evnt(23864);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23007);}while(r); +if(!qbevent)break;evnt(23865);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23008);}while(r); +if(!qbevent)break;evnt(23866);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23009);}while(r); +if(!qbevent)break;evnt(23867);}while(r); } -S_30123:; +S_31645:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("F",1),0)))||new_error){ -if(qbevent){evnt(23011);if(r)goto S_30123;} +if(qbevent){evnt(23869);if(r)goto S_31645;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23012);}while(r); +if(!qbevent)break;evnt(23870);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23013);}while(r); +if(!qbevent)break;evnt(23871);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23014);}while(r); +if(!qbevent)break;evnt(23872);}while(r); do{ goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23015);}while(r); +if(!qbevent)break;evnt(23873);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.1",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23018);}while(r); +if(!qbevent)break;evnt(23876);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23018);}while(r); +if(!qbevent)break;evnt(23876);}while(r); LABEL_GOTCONSTBLKITYP:; -if(qbevent){evnt(23020);r=0;} +if(qbevent){evnt(23878);r=0;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-_FUNC_EVALUATECONST_STRING_E->len)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23021);}while(r); +if(!qbevent)break;evnt(23879);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23022);}while(r); +if(!qbevent)break;evnt(23880);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23023);}while(r); +if(!qbevent)break;evnt(23881);}while(r); LABEL_GOTCONSTBLKTYP:; -if(qbevent){evnt(23024);r=0;} +if(qbevent){evnt(23882);r=0;} } -S_30135:; +S_31657:; if ((-(*_FUNC_EVALUATECONST_LONG_A== 34 ))||new_error){ -if(qbevent){evnt(23028);if(r)goto S_30135;} +if(qbevent){evnt(23886);if(r)goto S_31657;} do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23030);}while(r); +if(!qbevent)break;evnt(23888);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23031);}while(r); +if(!qbevent)break;evnt(23889);}while(r); } } } -fornext_continue_3290:; +fornext_continue_3472:; } -fornext_exit_3290:; +fornext_exit_3472:; do{ *_FUNC_EVALUATECONST_LONG_N2= 0 ; -if(!qbevent)break;evnt(23039);}while(r); -S_30143:; -fornext_value3301= 1 ; -fornext_finalvalue3301=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3301= 1 ; -if (fornext_step3301<0) fornext_step_negative3301=1; else fornext_step_negative3301=0; -if (new_error) goto fornext_error3301; -goto fornext_entrylabel3301; +if(!qbevent)break;evnt(23897);}while(r); +S_31665:; +fornext_value3483= 1 ; +fornext_finalvalue3483=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3483= 1 ; +if (fornext_step3483<0) fornext_step_negative3483=1; else fornext_step_negative3483=0; +if (new_error) goto fornext_error3483; +goto fornext_entrylabel3483; while(1){ -fornext_value3301=fornext_step3301+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3301: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3301; -if (fornext_step_negative3301){ -if (fornext_value3301fornext_finalvalue3301) break; +if (fornext_value3483>fornext_finalvalue3483) break; } -fornext_error3301:; -if(qbevent){evnt(23040);if(r)goto S_30143;} -S_30144:; +fornext_error3483:; +if(qbevent){evnt(23898);if(r)goto S_31665;} +S_31666:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23041);if(r)goto S_30144;} +if(qbevent){evnt(23899);if(r)goto S_31666;} do{ *_FUNC_EVALUATECONST_LONG_N2=*_FUNC_EVALUATECONST_LONG_N2+ 1 ; -if(!qbevent)break;evnt(23042);}while(r); +if(!qbevent)break;evnt(23900);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23043);}while(r); +if(!qbevent)break;evnt(23901);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]=((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]; -if(!qbevent)break;evnt(23044);}while(r); +if(!qbevent)break;evnt(23902);}while(r); do{ tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23045);}while(r); +if(!qbevent)break;evnt(23903);}while(r); } -fornext_continue_3300:; +fornext_continue_3482:; } -fornext_exit_3300:; +fornext_exit_3482:; do{ *_FUNC_EVALUATECONST_LONG_N=*_FUNC_EVALUATECONST_LONG_N2; -if(!qbevent)break;evnt(23048);}while(r); -S_30152:; +if(!qbevent)break;evnt(23906);}while(r); +S_31674:; if ((-(*_FUNC_EVALUATECONST_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(23051);if(r)goto S_30152;} -S_30153:; +if(qbevent){evnt(23909);if(r)goto S_31674;} +S_31675:; if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23052);if(r)goto S_30153;} +if(qbevent){evnt(23910);if(r)goto S_31675;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.2",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23052);}while(r); +if(!qbevent)break;evnt(23910);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23052);}while(r); +if(!qbevent)break;evnt(23910);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23053);}while(r); +if(!qbevent)break;evnt(23911);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23054);}while(r); +if(!qbevent)break;evnt(23912);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23055);}while(r); +if(!qbevent)break;evnt(23913);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_E,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23061);}while(r); -S_30162:; +if(!qbevent)break;evnt(23919);}while(r); +S_31684:; if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23062);if(r)goto S_30162;} -S_30163:; +if(qbevent){evnt(23920);if(r)goto S_31684;} +S_31685:; if ((-(*_FUNC_EVALUATECONST_LONG_N!= 2 ))||new_error){ -if(qbevent){evnt(23063);if(r)goto S_30163;} +if(qbevent){evnt(23921);if(r)goto S_31685;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.4",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23063);}while(r); +if(!qbevent)break;evnt(23921);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23063);}while(r); +if(!qbevent)break;evnt(23921);}while(r); } -S_30167:; +S_31689:; if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23064);if(r)goto S_30167;} +if(qbevent){evnt(23922);if(r)goto S_31689;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.5",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23064);}while(r); +if(!qbevent)break;evnt(23922);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23064);}while(r); +if(!qbevent)break;evnt(23922);}while(r); } -S_30171:; +S_31693:; if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23065);if(r)goto S_30171;} +if(qbevent){evnt(23923);if(r)goto S_31693;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.6",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23065);}while(r); +if(!qbevent)break;evnt(23923);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23065);}while(r); +if(!qbevent)break;evnt(23923);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23066);}while(r); -S_30176:; +if(!qbevent)break;evnt(23924);}while(r); +S_31698:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(23068);if(r)goto S_30176;} -S_30177:; +if(qbevent){evnt(23926);if(r)goto S_31698;} +S_31699:; if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23069);if(r)goto S_30177;} +if(qbevent){evnt(23927);if(r)goto S_31699;} do{ *_FUNC_EVALUATECONST_FLOAT_R=-(string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23070);}while(r); +if(!qbevent)break;evnt(23928);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23071);}while(r); +if(!qbevent)break;evnt(23929);}while(r); }else{ do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23073);}while(r); +if(!qbevent)break;evnt(23931);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23074);}while(r); +if(!qbevent)break;evnt(23932);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23076);}while(r); +if(!qbevent)break;evnt(23934);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23077);}while(r); +if(!qbevent)break;evnt(23935);}while(r); } -S_30187:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(23080);if(r)goto S_30187;} -S_30188:; +S_31709:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATECONST_STRING_O),qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(23938);if(r)goto S_31709;} +S_31710:; if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23081);if(r)goto S_30188;} +if(qbevent){evnt(23939);if(r)goto S_31710;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23082);}while(r); +if(!qbevent)break;evnt(23940);}while(r); }else{ do{ *_FUNC_EVALUATECONST_INTEGER64_R=string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23084);}while(r); +if(!qbevent)break;evnt(23942);}while(r); } do{ *_FUNC_EVALUATECONST_INTEGER64_R=~(*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23086);}while(r); +if(!qbevent)break;evnt(23944);}while(r); do{ *_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23087);}while(r); -S_30195:; +if(!qbevent)break;evnt(23945);}while(r); +S_31717:; if ((*_FUNC_EVALUATECONST_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23088);if(r)goto S_30195;} +if(qbevent){evnt(23946);if(r)goto S_31717;} do{ *_FUNC_EVALUATECONST_LONG_T=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23088);}while(r); +if(!qbevent)break;evnt(23946);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23089);}while(r); +if(!qbevent)break;evnt(23947);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23090);}while(r); +if(!qbevent)break;evnt(23948);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.7",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23093);}while(r); +if(!qbevent)break;evnt(23951);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23093);}while(r); +if(!qbevent)break;evnt(23951);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_ET=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23099);}while(r); +if(!qbevent)break;evnt(23957);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23100);}while(r); +if(!qbevent)break;evnt(23958);}while(r); do{ *_FUNC_EVALUATECONST_LONG_I= 2 ; -if(!qbevent)break;evnt(23102);}while(r); +if(!qbevent)break;evnt(23960);}while(r); LABEL_EVALCONSTEQU:; -if(qbevent){evnt(23104);r=0;} -S_30207:; +if(qbevent){evnt(23962);r=0;} +S_31729:; if ((-(*_FUNC_EVALUATECONST_LONG_I>=*_FUNC_EVALUATECONST_LONG_N))||new_error){ -if(qbevent){evnt(23107);if(r)goto S_30207;} +if(qbevent){evnt(23965);if(r)goto S_31729;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.8",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23107);}while(r); +if(!qbevent)break;evnt(23965);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23107);}while(r); +if(!qbevent)break;evnt(23965);}while(r); } do{ -qbs_set(_FUNC_EVALUATECONST_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_set(_FUNC_EVALUATECONST_STRING_O,qbs_ucase(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23108);}while(r); +if(!qbevent)break;evnt(23966);}while(r); do{ *_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; -if(!qbevent)break;evnt(23109);}while(r); -S_30213:; +if(!qbevent)break;evnt(23967);}while(r); +S_31735:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATECONST_STRING_O)== 0 )))||new_error){ -if(qbevent){evnt(23110);if(r)goto S_30213;} +if(qbevent){evnt(23968);if(r)goto S_31735;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.9",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23110);}while(r); +if(!qbevent)break;evnt(23968);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23110);}while(r); +if(!qbevent)break;evnt(23968);}while(r); } -S_30217:; +S_31739:; if ((-(*_FUNC_EVALUATECONST_LONG_I>*_FUNC_EVALUATECONST_LONG_N))||new_error){ -if(qbevent){evnt(23111);if(r)goto S_30217;} +if(qbevent){evnt(23969);if(r)goto S_31739;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.10",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23111);}while(r); +if(!qbevent)break;evnt(23969);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23111);}while(r); +if(!qbevent)break;evnt(23969);}while(r); } -S_30221:; +S_31743:; if ((-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISSTRING)!=(*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(23114);if(r)goto S_30221;} +if(qbevent){evnt(23972);if(r)goto S_31743;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.11",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23114);}while(r); +if(!qbevent)break;evnt(23972);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23114);}while(r); +if(!qbevent)break;evnt(23972);}while(r); } -S_30225:; +S_31747:; if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23116);if(r)goto S_30225;} -S_30226:; +if(qbevent){evnt(23974);if(r)goto S_31747;} +S_31748:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23117);if(r)goto S_30226;} +if(qbevent){evnt(23975);if(r)goto S_31748;} do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.12",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23117);}while(r); +if(!qbevent)break;evnt(23975);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23117);}while(r); +if(!qbevent)break;evnt(23975);}while(r); } do{ qbs_set(_FUNC_EVALUATECONST_STRING_S1,qbs_right(_FUNC_EVALUATECONST_STRING_EV,_FUNC_EVALUATECONST_STRING_EV->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23119);}while(r); +if(!qbevent)break;evnt(23977);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_S1,qbs_left(_FUNC_EVALUATECONST_STRING_S1,func_instr(NULL,_FUNC_EVALUATECONST_STRING_S1,func_chr( 34 ),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23120);}while(r); +if(!qbevent)break;evnt(23978);}while(r); do{ *_FUNC_EVALUATECONST_LONG_S1SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATECONST_STRING_EV,_FUNC_EVALUATECONST_STRING_EV->len-_FUNC_EVALUATECONST_STRING_S1->len- 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23121);}while(r); +if(!qbevent)break;evnt(23979);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_S2,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23122);}while(r); +if(!qbevent)break;evnt(23980);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_S2,qbs_left(_FUNC_EVALUATECONST_STRING_S2,func_instr(NULL,_FUNC_EVALUATECONST_STRING_S2,func_chr( 34 ),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23123);}while(r); +if(!qbevent)break;evnt(23981);}while(r); do{ *_FUNC_EVALUATECONST_LONG_S2SIZE=qbr(func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-_FUNC_EVALUATECONST_STRING_S2->len- 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23124);}while(r); +if(!qbevent)break;evnt(23982);}while(r); do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),_FUNC_EVALUATECONST_STRING_S1),_FUNC_EVALUATECONST_STRING_S2),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass3308=*_FUNC_EVALUATECONST_LONG_S1SIZE+*_FUNC_EVALUATECONST_LONG_S2SIZE)))); +qbs_set(_FUNC_EVALUATECONST_STRING_EV,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),_FUNC_EVALUATECONST_STRING_S1),_FUNC_EVALUATECONST_STRING_S2),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass3490=*_FUNC_EVALUATECONST_LONG_S1SIZE+*_FUNC_EVALUATECONST_LONG_S2SIZE)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23125);}while(r); +if(!qbevent)break;evnt(23983);}while(r); do{ goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23126);}while(r); +if(!qbevent)break;evnt(23984);}while(r); } -S_30239:; +S_31761:; if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23130);if(r)goto S_30239;} +if(qbevent){evnt(23988);if(r)goto S_31761;} do{ *_FUNC_EVALUATECONST_LONG_LINTEGER= 0 ; -if(!qbevent)break;evnt(23131);}while(r); +if(!qbevent)break;evnt(23989);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_L=string2f(_FUNC_EVALUATECONST_STRING_EV); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23132);}while(r); +if(!qbevent)break;evnt(23990);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_L=qbr(*_FUNC_EVALUATECONST_FLOAT_L); -if(!qbevent)break;evnt(23133);}while(r); +if(!qbevent)break;evnt(23991);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_LINTEGER= 1 ; -if(!qbevent)break;evnt(23135);}while(r); +if(!qbevent)break;evnt(23993);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_L=string2i64(_FUNC_EVALUATECONST_STRING_EV); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23136);}while(r); +if(!qbevent)break;evnt(23994);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_L=*_FUNC_EVALUATECONST_INTEGER64_L; -if(!qbevent)break;evnt(23137);}while(r); +if(!qbevent)break;evnt(23995);}while(r); } -S_30248:; +S_31770:; if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23139);if(r)goto S_30248;} +if(qbevent){evnt(23997);if(r)goto S_31770;} do{ *_FUNC_EVALUATECONST_LONG_RINTEGER= 0 ; -if(!qbevent)break;evnt(23140);}while(r); +if(!qbevent)break;evnt(23998);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_R=string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23141);}while(r); +if(!qbevent)break;evnt(23999);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23142);}while(r); +if(!qbevent)break;evnt(24000);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_RINTEGER= 1 ; -if(!qbevent)break;evnt(23144);}while(r); +if(!qbevent)break;evnt(24002);}while(r); do{ *_FUNC_EVALUATECONST_INTEGER64_R=string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23145);}while(r); +if(!qbevent)break;evnt(24003);}while(r); do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23146);}while(r); +if(!qbevent)break;evnt(24004);}while(r); } -S_30257:; +S_31779:; if (((-(*_FUNC_EVALUATECONST_LONG_LINTEGER== 1 ))&(-(*_FUNC_EVALUATECONST_LONG_RINTEGER== 1 )))||new_error){ -if(qbevent){evnt(23149);if(r)goto S_30257;} -S_30258:; +if(qbevent){evnt(24007);if(r)goto S_31779;} +S_31780:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23150);if(r)goto S_30258;} +if(qbevent){evnt(24008);if(r)goto S_31780;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L+*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23150);}while(r); +if(!qbevent)break;evnt(24008);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23150);}while(r); +if(!qbevent)break;evnt(24008);}while(r); } -S_30262:; +S_31784:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23151);if(r)goto S_30262;} +if(qbevent){evnt(24009);if(r)goto S_31784;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L-*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23151);}while(r); +if(!qbevent)break;evnt(24009);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23151);}while(r); +if(!qbevent)break;evnt(24009);}while(r); } -S_30266:; +S_31788:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(23152);if(r)goto S_30266;} +if(qbevent){evnt(24010);if(r)goto S_31788;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L**_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23152);}while(r); +if(!qbevent)break;evnt(24010);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23152);}while(r); +if(!qbevent)break;evnt(24010);}while(r); } -S_30270:; +S_31792:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(23153);if(r)goto S_30270;} +if(qbevent){evnt(24011);if(r)goto S_31792;} do{ *_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_INTEGER64_L,*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23153);}while(r); +if(!qbevent)break;evnt(24011);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23153);}while(r); +if(!qbevent)break;evnt(24011);}while(r); } -S_30274:; +S_31796:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(23154);if(r)goto S_30274;} +if(qbevent){evnt(24012);if(r)goto S_31796;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_L/ ((long double)(*_FUNC_EVALUATECONST_INTEGER64_R)); -if(!qbevent)break;evnt(23154);}while(r); +if(!qbevent)break;evnt(24012);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23154);}while(r); +if(!qbevent)break;evnt(24012);}while(r); } -S_30278:; +S_31800:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(23155);if(r)goto S_30278;} +if(qbevent){evnt(24013);if(r)goto S_31800;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L/ *_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23155);}while(r); +if(!qbevent)break;evnt(24013);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23155);}while(r); +if(!qbevent)break;evnt(24013);}while(r); } -S_30282:; +S_31804:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(23156);if(r)goto S_30282;} +if(qbevent){evnt(24014);if(r)goto S_31804;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L%*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23156);}while(r); +if(!qbevent)break;evnt(24014);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23156);}while(r); +if(!qbevent)break;evnt(24014);}while(r); } -S_30286:; +S_31808:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(23157);if(r)goto S_30286;} +if(qbevent){evnt(24015);if(r)goto S_31808;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L==*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23157);}while(r); +if(!qbevent)break;evnt(24015);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23157);}while(r); +if(!qbevent)break;evnt(24015);}while(r); } -S_30290:; +S_31812:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(23158);if(r)goto S_30290;} +if(qbevent){evnt(24016);if(r)goto S_31812;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23158);}while(r); +if(!qbevent)break;evnt(24016);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23158);}while(r); +if(!qbevent)break;evnt(24016);}while(r); } -S_30294:; +S_31816:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(23159);if(r)goto S_30294;} +if(qbevent){evnt(24017);if(r)goto S_31816;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23159);}while(r); +if(!qbevent)break;evnt(24017);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23159);}while(r); +if(!qbevent)break;evnt(24017);}while(r); } -S_30298:; +S_31820:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(23160);if(r)goto S_30298;} +if(qbevent){evnt(24018);if(r)goto S_31820;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>=*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23160);}while(r); +if(!qbevent)break;evnt(24018);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23160);}while(r); +if(!qbevent)break;evnt(24018);}while(r); } -S_30302:; +S_31824:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(23161);if(r)goto S_30302;} +if(qbevent){evnt(24019);if(r)goto S_31824;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<=*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23161);}while(r); +if(!qbevent)break;evnt(24019);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23161);}while(r); +if(!qbevent)break;evnt(24019);}while(r); } -S_30306:; +S_31828:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(23162);if(r)goto S_30306;} +if(qbevent){evnt(24020);if(r)goto S_31828;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L!=*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23162);}while(r); +if(!qbevent)break;evnt(24020);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23162);}while(r); +if(!qbevent)break;evnt(24020);}while(r); } -S_30310:; +S_31832:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(23163);if(r)goto S_30310;} +if(qbevent){evnt(24021);if(r)goto S_31832;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23163);}while(r); +if(!qbevent)break;evnt(24021);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23163);}while(r); +if(!qbevent)break;evnt(24021);}while(r); } -S_30314:; +S_31836:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(23164);if(r)goto S_30314;} +if(qbevent){evnt(24022);if(r)goto S_31836;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23164);}while(r); +if(!qbevent)break;evnt(24022);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23164);}while(r); +if(!qbevent)break;evnt(24022);}while(r); } -S_30318:; +S_31840:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(23165);if(r)goto S_30318;} +if(qbevent){evnt(24023);if(r)goto S_31840;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23165);}while(r); +if(!qbevent)break;evnt(24023);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23165);}while(r); +if(!qbevent)break;evnt(24023);}while(r); } -S_30322:; +S_31844:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(23166);if(r)goto S_30322;} +if(qbevent){evnt(24024);if(r)goto S_31844;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23166);}while(r); +if(!qbevent)break;evnt(24024);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23166);}while(r); +if(!qbevent)break;evnt(24024);}while(r); } -S_30326:; +S_31848:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(23167);if(r)goto S_30326;} +if(qbevent){evnt(24025);if(r)goto S_31848;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L&*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23167);}while(r); +if(!qbevent)break;evnt(24025);}while(r); do{ goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23167);}while(r); +if(!qbevent)break;evnt(24025);}while(r); } } -S_30331:; +S_31853:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23170);if(r)goto S_30331;} +if(qbevent){evnt(24028);if(r)goto S_31853;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L+*_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23170);}while(r); +if(!qbevent)break;evnt(24028);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23170);}while(r); +if(!qbevent)break;evnt(24028);}while(r); } -S_30335:; +S_31857:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23171);if(r)goto S_30335;} +if(qbevent){evnt(24029);if(r)goto S_31857;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L-*_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23171);}while(r); +if(!qbevent)break;evnt(24029);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23171);}while(r); +if(!qbevent)break;evnt(24029);}while(r); } -S_30339:; +S_31861:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(23172);if(r)goto S_30339;} +if(qbevent){evnt(24030);if(r)goto S_31861;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L**_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23172);}while(r); +if(!qbevent)break;evnt(24030);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23172);}while(r); +if(!qbevent)break;evnt(24030);}while(r); } -S_30343:; +S_31865:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(23173);if(r)goto S_30343;} +if(qbevent){evnt(24031);if(r)goto S_31865;} do{ *_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_FLOAT_L,*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23173);}while(r); +if(!qbevent)break;evnt(24031);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23173);}while(r); +if(!qbevent)break;evnt(24031);}while(r); } -S_30347:; +S_31869:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(23174);if(r)goto S_30347;} +if(qbevent){evnt(24032);if(r)goto S_31869;} do{ *_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L/ *_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23174);}while(r); +if(!qbevent)break;evnt(24032);}while(r); do{ goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23174);}while(r); +if(!qbevent)break;evnt(24032);}while(r); } -S_30351:; +S_31873:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(23175);if(r)goto S_30351;} +if(qbevent){evnt(24033);if(r)goto S_31873;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)/ qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23175);}while(r); +if(!qbevent)break;evnt(24033);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23175);}while(r); +if(!qbevent)break;evnt(24033);}while(r); } -S_30355:; +S_31877:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(23176);if(r)goto S_30355;} +if(qbevent){evnt(24034);if(r)goto S_31877;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)%qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23176);}while(r); +if(!qbevent)break;evnt(24034);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23176);}while(r); +if(!qbevent)break;evnt(24034);}while(r); } -S_30359:; +S_31881:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(23177);if(r)goto S_30359;} +if(qbevent){evnt(24035);if(r)goto S_31881;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L==*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23177);}while(r); +if(!qbevent)break;evnt(24035);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23177);}while(r); +if(!qbevent)break;evnt(24035);}while(r); } -S_30363:; +S_31885:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(23178);if(r)goto S_30363;} +if(qbevent){evnt(24036);if(r)goto S_31885;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23178);}while(r); +if(!qbevent)break;evnt(24036);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23178);}while(r); +if(!qbevent)break;evnt(24036);}while(r); } -S_30367:; +S_31889:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(23179);if(r)goto S_30367;} +if(qbevent){evnt(24037);if(r)goto S_31889;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23179);}while(r); +if(!qbevent)break;evnt(24037);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23179);}while(r); +if(!qbevent)break;evnt(24037);}while(r); } -S_30371:; +S_31893:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(23180);if(r)goto S_30371;} +if(qbevent){evnt(24038);if(r)goto S_31893;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>=*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23180);}while(r); +if(!qbevent)break;evnt(24038);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23180);}while(r); +if(!qbevent)break;evnt(24038);}while(r); } -S_30375:; +S_31897:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(23181);if(r)goto S_30375;} +if(qbevent){evnt(24039);if(r)goto S_31897;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<=*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23181);}while(r); +if(!qbevent)break;evnt(24039);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23181);}while(r); +if(!qbevent)break;evnt(24039);}while(r); } -S_30379:; +S_31901:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(23182);if(r)goto S_30379;} +if(qbevent){evnt(24040);if(r)goto S_31901;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L!=*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23182);}while(r); +if(!qbevent)break;evnt(24040);}while(r); do{ goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23182);}while(r); +if(!qbevent)break;evnt(24040);}while(r); } -S_30383:; +S_31905:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(23183);if(r)goto S_30383;} +if(qbevent){evnt(24041);if(r)goto S_31905;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23183);}while(r); +if(!qbevent)break;evnt(24041);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23183);}while(r); +if(!qbevent)break;evnt(24041);}while(r); } -S_30387:; +S_31909:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(23184);if(r)goto S_30387;} +if(qbevent){evnt(24042);if(r)goto S_31909;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23184);}while(r); +if(!qbevent)break;evnt(24042);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23184);}while(r); +if(!qbevent)break;evnt(24042);}while(r); } -S_30391:; +S_31913:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(23185);if(r)goto S_30391;} +if(qbevent){evnt(24043);if(r)goto S_31913;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23185);}while(r); +if(!qbevent)break;evnt(24043);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23185);}while(r); +if(!qbevent)break;evnt(24043);}while(r); } -S_30395:; +S_31917:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(23186);if(r)goto S_30395;} +if(qbevent){evnt(24044);if(r)goto S_31917;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23186);}while(r); +if(!qbevent)break;evnt(24044);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23186);}while(r); +if(!qbevent)break;evnt(24044);}while(r); } -S_30399:; +S_31921:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(23187);if(r)goto S_30399;} +if(qbevent){evnt(24045);if(r)goto S_31921;} do{ *_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)&qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23187);}while(r); +if(!qbevent)break;evnt(24045);}while(r); do{ goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23187);}while(r); +if(!qbevent)break;evnt(24045);}while(r); } do{ SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.13",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23189);}while(r); +if(!qbevent)break;evnt(24047);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23189);}while(r); +if(!qbevent)break;evnt(24047);}while(r); LABEL_ECONSTMARKUPI16:; -if(qbevent){evnt(23191);r=0;} +if(qbevent){evnt(24049);r=0;} do{ *_FUNC_EVALUATECONST_LONG_ET=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23192);}while(r); +if(!qbevent)break;evnt(24050);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23193);}while(r); +if(!qbevent)break;evnt(24051);}while(r); do{ goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23194);}while(r); +if(!qbevent)break;evnt(24052);}while(r); LABEL_ECONSTMARKUPI32:; -if(qbevent){evnt(23196);r=0;} +if(qbevent){evnt(24054);r=0;} do{ *_FUNC_EVALUATECONST_LONG_ET=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23197);}while(r); +if(!qbevent)break;evnt(24055);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23198);}while(r); +if(!qbevent)break;evnt(24056);}while(r); do{ goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23199);}while(r); +if(!qbevent)break;evnt(24057);}while(r); LABEL_ECONSTMARKUPI:; -if(qbevent){evnt(23201);r=0;} -S_30411:; +if(qbevent){evnt(24059);r=0;} +S_31933:; if ((-(*_FUNC_EVALUATECONST_LONG_ET!=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]))||new_error){ -if(qbevent){evnt(23202);if(r)goto S_30411;} +if(qbevent){evnt(24060);if(r)goto S_31933;} do{ *_FUNC_EVALUATECONST_LONG_U= 0 ; -if(!qbevent)break;evnt(23204);}while(r); -S_30413:; +if(!qbevent)break;evnt(24062);}while(r); +S_31935:; if (((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISUNSIGNED)!= 0 ))&(-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(23204);if(r)goto S_30413;} +if(qbevent){evnt(24062);if(r)goto S_31935;} do{ *_FUNC_EVALUATECONST_LONG_U= 1 ; -if(!qbevent)break;evnt(23204);}while(r); +if(!qbevent)break;evnt(24062);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_LB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; -if(!qbevent)break;evnt(23205);}while(r); +if(!qbevent)break;evnt(24063);}while(r); do{ *_FUNC_EVALUATECONST_LONG_RB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; -if(!qbevent)break;evnt(23205);}while(r); +if(!qbevent)break;evnt(24063);}while(r); do{ *_FUNC_EVALUATECONST_LONG_OB= 0 ; -if(!qbevent)break;evnt(23206);}while(r); -S_30419:; +if(!qbevent)break;evnt(24064);}while(r); +S_31941:; if ((-(*_FUNC_EVALUATECONST_LONG_LB==*_FUNC_EVALUATECONST_LONG_RB))||new_error){ -if(qbevent){evnt(23207);if(r)goto S_30419;} -S_30420:; +if(qbevent){evnt(24065);if(r)goto S_31941;} +S_31942:; if (((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))&(-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(23208);if(r)goto S_30420;} +if(qbevent){evnt(24066);if(r)goto S_31942;} do{ *_FUNC_EVALUATECONST_LONG_OB= 1 ; -if(!qbevent)break;evnt(23208);}while(r); +if(!qbevent)break;evnt(24066);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; -if(!qbevent)break;evnt(23209);}while(r); +if(!qbevent)break;evnt(24067);}while(r); } -S_30425:; +S_31947:; if ((-(*_FUNC_EVALUATECONST_LONG_LB>*_FUNC_EVALUATECONST_LONG_RB))||new_error){ -if(qbevent){evnt(23211);if(r)goto S_30425;} -S_30426:; +if(qbevent){evnt(24069);if(r)goto S_31947;} +S_31948:; if ((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ -if(qbevent){evnt(23212);if(r)goto S_30426;} +if(qbevent){evnt(24070);if(r)goto S_31948;} do{ *_FUNC_EVALUATECONST_LONG_OB= 1 ; -if(!qbevent)break;evnt(23212);}while(r); +if(!qbevent)break;evnt(24070);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; -if(!qbevent)break;evnt(23213);}while(r); +if(!qbevent)break;evnt(24071);}while(r); } -S_30431:; +S_31953:; if ((-(*_FUNC_EVALUATECONST_LONG_LB<*_FUNC_EVALUATECONST_LONG_RB))||new_error){ -if(qbevent){evnt(23215);if(r)goto S_30431;} -S_30432:; +if(qbevent){evnt(24073);if(r)goto S_31953;} +S_31954:; if ((-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ -if(qbevent){evnt(23216);if(r)goto S_30432;} +if(qbevent){evnt(24074);if(r)goto S_31954;} do{ *_FUNC_EVALUATECONST_LONG_OB= 1 ; -if(!qbevent)break;evnt(23216);}while(r); +if(!qbevent)break;evnt(24074);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_RB; -if(!qbevent)break;evnt(23217);}while(r); +if(!qbevent)break;evnt(24075);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_B; -if(!qbevent)break;evnt(23219);}while(r); -S_30438:; +if(!qbevent)break;evnt(24077);}while(r); +S_31960:; if ((*_FUNC_EVALUATECONST_LONG_OB)||new_error){ -if(qbevent){evnt(23220);if(r)goto S_30438;} +if(qbevent){evnt(24078);if(r)goto S_31960;} do{ *_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(23220);}while(r); +if(!qbevent)break;evnt(24078);}while(r); } -S_30441:; +S_31963:; if ((*_FUNC_EVALUATECONST_LONG_U)||new_error){ -if(qbevent){evnt(23221);if(r)goto S_30441;} +if(qbevent){evnt(24079);if(r)goto S_31963;} do{ *_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(23221);}while(r); +if(!qbevent)break;evnt(24079);}while(r); } } do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23223);}while(r); +if(!qbevent)break;evnt(24081);}while(r); do{ goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23224);}while(r); +if(!qbevent)break;evnt(24082);}while(r); LABEL_ECONSTMARKUPF:; -if(qbevent){evnt(23226);r=0;} +if(qbevent){evnt(24084);r=0;} do{ *_FUNC_EVALUATECONST_LONG_LFB= 0 ; -if(!qbevent)break;evnt(23227);}while(r); +if(!qbevent)break;evnt(24085);}while(r); do{ *_FUNC_EVALUATECONST_LONG_RFB= 0 ; -if(!qbevent)break;evnt(23227);}while(r); +if(!qbevent)break;evnt(24085);}while(r); do{ *_FUNC_EVALUATECONST_LONG_LIB= 0 ; -if(!qbevent)break;evnt(23228);}while(r); +if(!qbevent)break;evnt(24086);}while(r); do{ *_FUNC_EVALUATECONST_LONG_RIB= 0 ; -if(!qbevent)break;evnt(23228);}while(r); -S_30451:; +if(!qbevent)break;evnt(24086);}while(r); +S_31973:; if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23229);if(r)goto S_30451;} +if(qbevent){evnt(24087);if(r)goto S_31973;} do{ *_FUNC_EVALUATECONST_LONG_LFB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; -if(!qbevent)break;evnt(23229);}while(r); +if(!qbevent)break;evnt(24087);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_LIB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; -if(!qbevent)break;evnt(23229);}while(r); +if(!qbevent)break;evnt(24087);}while(r); } -S_30456:; +S_31978:; if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23230);if(r)goto S_30456;} +if(qbevent){evnt(24088);if(r)goto S_31978;} do{ *_FUNC_EVALUATECONST_LONG_RFB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; -if(!qbevent)break;evnt(23230);}while(r); +if(!qbevent)break;evnt(24088);}while(r); }else{ do{ *_FUNC_EVALUATECONST_LONG_RIB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; -if(!qbevent)break;evnt(23230);}while(r); +if(!qbevent)break;evnt(24088);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_F= 32 ; -if(!qbevent)break;evnt(23231);}while(r); -S_30462:; +if(!qbevent)break;evnt(24089);}while(r); +S_31984:; if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 16 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 16 )))||new_error){ -if(qbevent){evnt(23232);if(r)goto S_30462;} +if(qbevent){evnt(24090);if(r)goto S_31984;} do{ *_FUNC_EVALUATECONST_LONG_F= 64 ; -if(!qbevent)break;evnt(23232);}while(r); +if(!qbevent)break;evnt(24090);}while(r); } -S_30465:; +S_31987:; if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 32 )))||new_error){ -if(qbevent){evnt(23233);if(r)goto S_30465;} +if(qbevent){evnt(24091);if(r)goto S_31987;} do{ *_FUNC_EVALUATECONST_LONG_F= 64 ; -if(!qbevent)break;evnt(23233);}while(r); +if(!qbevent)break;evnt(24091);}while(r); } -S_30468:; +S_31990:; if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 32 )))||new_error){ -if(qbevent){evnt(23234);if(r)goto S_30468;} +if(qbevent){evnt(24092);if(r)goto S_31990;} do{ *_FUNC_EVALUATECONST_LONG_F= 256 ; -if(!qbevent)break;evnt(23234);}while(r); +if(!qbevent)break;evnt(24092);}while(r); } -S_30471:; +S_31993:; if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 64 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 64 )))||new_error){ -if(qbevent){evnt(23235);if(r)goto S_30471;} +if(qbevent){evnt(24093);if(r)goto S_31993;} do{ *_FUNC_EVALUATECONST_LONG_F= 256 ; -if(!qbevent)break;evnt(23235);}while(r); +if(!qbevent)break;evnt(24093);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_ET=*__LONG_ISFLOAT+*_FUNC_EVALUATECONST_LONG_F; -if(!qbevent)break;evnt(23236);}while(r); +if(!qbevent)break;evnt(24094);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EV,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23237);}while(r); +if(!qbevent)break;evnt(24095);}while(r); LABEL_ECONSTMARKEDUP:; -if(qbevent){evnt(23239);r=0;} +if(qbevent){evnt(24097);r=0;} do{ *_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; -if(!qbevent)break;evnt(23241);}while(r); -S_30477:; +if(!qbevent)break;evnt(24099);}while(r); +S_31999:; if ((-(*_FUNC_EVALUATECONST_LONG_I<=*_FUNC_EVALUATECONST_LONG_N))||new_error){ -if(qbevent){evnt(23243);if(r)goto S_30477;} +if(qbevent){evnt(24101);if(r)goto S_31999;} do{ goto LABEL_EVALCONSTEQU; -if(!qbevent)break;evnt(23243);}while(r); +if(!qbevent)break;evnt(24101);}while(r); } do{ *_FUNC_EVALUATECONST_LONG_T=*_FUNC_EVALUATECONST_LONG_ET; -if(!qbevent)break;evnt(23245);}while(r); +if(!qbevent)break;evnt(24103);}while(r); do{ qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,_FUNC_EVALUATECONST_STRING_EV); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23246);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free59.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATECONST_STRING_EVALUATECONST);return _FUNC_EVALUATECONST_STRING_EVALUATECONST; -} -qbs* FUNC_TYPEVALUE2SYMBOL(int32*_FUNC_TYPEVALUE2SYMBOL_LONG_T){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data60.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_30482:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23252);if(r)goto S_30482;} -S_30483:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(23253);if(r)goto S_30483;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert expression type to symbol",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23253);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23253);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23254);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23255);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23258);}while(r); -S_30491:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23260);if(r)goto S_30491;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("~",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23260);}while(r); -} -do{ -*_FUNC_TYPEVALUE2SYMBOL_LONG_B=*_FUNC_TYPEVALUE2SYMBOL_LONG_T& 511 ; -if(!qbevent)break;evnt(23262);}while(r); -S_30495:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(23264);if(r)goto S_30495;} -S_30496:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B> 1 ))||new_error){ -if(qbevent){evnt(23265);if(r)goto S_30496;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_TYPEVALUE2SYMBOL_LONG_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23265);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23265);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23266);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23267);}while(r); -} -S_30504:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23270);if(r)goto S_30504;} -S_30505:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(23271);if(r)goto S_30505;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23271);}while(r); -} -S_30508:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(23272);if(r)goto S_30508;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23272);}while(r); -} -S_30511:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 256 ))||new_error){ -if(qbevent){evnt(23273);if(r)goto S_30511;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23273);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23274);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23275);}while(r); -} -S_30517:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 8 ))||new_error){ -if(qbevent){evnt(23278);if(r)goto S_30517;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23278);}while(r); -} -S_30520:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 16 ))||new_error){ -if(qbevent){evnt(23279);if(r)goto S_30520;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23279);}while(r); -} -S_30523:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(23280);if(r)goto S_30523;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23280);}while(r); -} -S_30526:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(23281);if(r)goto S_30526;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23281);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23282);}while(r); +if(!qbevent)break;evnt(24104);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free60.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL);return _FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL; +qbs_maketmp(_FUNC_EVALUATECONST_STRING_EVALUATECONST);return _FUNC_EVALUATECONST_STRING_EVALUATECONST; } -qbs* FUNC_ID2FULLTYPENAME(){ +qbs* FUNC_TYPEVALUE2SYMBOL(int32*_FUNC_TYPEVALUE2SYMBOL_LONG_T){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -104380,174 +110554,146 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_32004:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(24110);if(r)goto S_32004;} +S_32005:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(24111);if(r)goto S_32005;} do{ -*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(23288);}while(r); -S_30531:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(23289);if(r)goto S_30531;} -do{ -*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(23289);}while(r); -} -do{ -*_FUNC_ID2FULLTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(23290);}while(r); -do{ -*_FUNC_ID2FULLTYPENAME_LONG_BITS=*_FUNC_ID2FULLTYPENAME_LONG_T& 511 ; -if(!qbevent)break;evnt(23291);}while(r); -S_30536:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(23292);if(r)goto S_30536;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2FULLTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert expression type to symbol",40)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23293);}while(r); -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23294);}while(r); +if(!qbevent)break;evnt(24111);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23294);}while(r); -} -S_30541:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23296);if(r)goto S_30541;} -S_30542:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(23297);if(r)goto S_30542;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING * ",9),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_SIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23297);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23297);}while(r); +if(!qbevent)break;evnt(24111);}while(r); } do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,qbs_new_txt_len("$",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23298);}while(r); +if(!qbevent)break;evnt(24112);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23298);}while(r); +if(!qbevent)break;evnt(24113);}while(r); } -S_30550:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(23300);if(r)goto S_30550;} -S_30551:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS> 1 ))||new_error){ -if(qbevent){evnt(23301);if(r)goto S_30551;} do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("_BIT * ",7),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_BITS))); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23301);}while(r); +if(!qbevent)break;evnt(24116);}while(r); +S_32013:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24118);if(r)goto S_32013;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("~",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24118);}while(r); +} +do{ +*_FUNC_TYPEVALUE2SYMBOL_LONG_B=*_FUNC_TYPEVALUE2SYMBOL_LONG_T& 511 ; +if(!qbevent)break;evnt(24120);}while(r); +S_32017:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(24122);if(r)goto S_32017;} +S_32018:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B> 1 ))||new_error){ +if(qbevent){evnt(24123);if(r)goto S_32018;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_TYPEVALUE2SYMBOL_LONG_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24123);}while(r); }else{ do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("_BIT",4)); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23301);}while(r); -} -S_30556:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23302);if(r)goto S_30556;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("_UNSIGNED ",10),_FUNC_ID2FULLTYPENAME_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23302);}while(r); +if(!qbevent)break;evnt(24123);}while(r); } do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23303);}while(r); +if(!qbevent)break;evnt(24124);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23303);}while(r); +if(!qbevent)break;evnt(24125);}while(r); } -S_30562:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23305);if(r)goto S_30562;} -S_30563:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(23306);if(r)goto S_30563;} +S_32026:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(24128);if(r)goto S_32026;} +S_32027:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(24129);if(r)goto S_32027;} do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23306);}while(r); +if(!qbevent)break;evnt(24129);}while(r); } -S_30566:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(23307);if(r)goto S_30566;} +S_32030:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(24130);if(r)goto S_32030;} do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23307);}while(r); +if(!qbevent)break;evnt(24130);}while(r); } -S_30569:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(23308);if(r)goto S_30569;} +S_32033:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 256 ))||new_error){ +if(qbevent){evnt(24131);if(r)goto S_32033;} do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6)); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23308);}while(r); -} -}else{ -S_30573:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(23310);if(r)goto S_30573;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23310);}while(r); -} -S_30576:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(23311);if(r)goto S_30576;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23311);}while(r); -} -S_30579:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(23312);if(r)goto S_30579;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23312);}while(r); -} -S_30582:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(23313);if(r)goto S_30582;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23313);}while(r); -} -S_30585:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23314);if(r)goto S_30585;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("_UNSIGNED ",10),_FUNC_ID2FULLTYPENAME_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23314);}while(r); -} +if(!qbevent)break;evnt(24131);}while(r); } do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23316);}while(r); +if(!qbevent)break;evnt(24132);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24133);}while(r); +} +S_32039:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 8 ))||new_error){ +if(qbevent){evnt(24136);if(r)goto S_32039;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24136);}while(r); +} +S_32042:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 16 ))||new_error){ +if(qbevent){evnt(24137);if(r)goto S_32042;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24137);}while(r); +} +S_32045:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(24138);if(r)goto S_32045;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24138);}while(r); +} +S_32048:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(24139);if(r)goto S_32048;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24139);}while(r); +} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24140);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free61.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME);return _FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME; +qbs_maketmp(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL);return _FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL; } -qbs* FUNC_ID2SHORTTYPENAME(){ +qbs* FUNC_ID2FULLTYPENAME(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -104561,206 +110707,189 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(23320);}while(r); -S_30591:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(23321);if(r)goto S_30591;} +*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(24146);}while(r); +S_32053:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(24147);if(r)goto S_32053;} do{ -*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(23321);}while(r); +*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(24147);}while(r); } do{ -*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(23322);}while(r); +*_FUNC_ID2FULLTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(24148);}while(r); do{ -*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 ; -if(!qbevent)break;evnt(23323);}while(r); -S_30596:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(23324);if(r)goto S_30596;} +*_FUNC_ID2FULLTYPENAME_LONG_BITS=*_FUNC_ID2FULLTYPENAME_LONG_T& 511 ; +if(!qbevent)break;evnt(24149);}while(r); +S_32058:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(24150);if(r)goto S_32058;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2FULLTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23325);}while(r); +if(!qbevent)break;evnt(24151);}while(r); do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23326);}while(r); +if(!qbevent)break;evnt(24152);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23326);}while(r); +if(!qbevent)break;evnt(24152);}while(r); } -S_30601:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23328);if(r)goto S_30601;} -S_30602:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(23329);if(r)goto S_30602;} +S_32063:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(24154);if(r)goto S_32063;} +S_32064:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(24155);if(r)goto S_32064;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_SIZE))); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING * ",9),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_SIZE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23329);}while(r); +if(!qbevent)break;evnt(24155);}while(r); }else{ do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23329);}while(r); +if(!qbevent)break;evnt(24155);}while(r); } do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23330);}while(r); +if(!qbevent)break;evnt(24156);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23330);}while(r); +if(!qbevent)break;evnt(24156);}while(r); } -S_30610:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(23332);if(r)goto S_30610;} -S_30611:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23333);if(r)goto S_30611;} +S_32072:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(24158);if(r)goto S_32072;} +S_32073:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS> 1 ))||new_error){ +if(qbevent){evnt(24159);if(r)goto S_32073;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT * ",6)),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_BITS))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23333);}while(r); +if(!qbevent)break;evnt(24159);}while(r); }else{ do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_",1)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23333);}while(r); +if(!qbevent)break;evnt(24159);}while(r); } -S_30616:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||new_error){ -if(qbevent){evnt(23334);if(r)goto S_30616;} +S_32078:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24160);if(r)goto S_32078;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_BITS))); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23334);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23334);}while(r); +if(!qbevent)break;evnt(24160);}while(r); } do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23335);}while(r); +if(!qbevent)break;evnt(24161);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23335);}while(r); +if(!qbevent)break;evnt(24161);}while(r); } -S_30624:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23337);if(r)goto S_30624;} -S_30625:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(23338);if(r)goto S_30625;} +S_32084:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(24163);if(r)goto S_32084;} +S_32085:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(24164);if(r)goto S_32085;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23338);}while(r); +if(!qbevent)break;evnt(24164);}while(r); } -S_30628:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(23339);if(r)goto S_30628;} +S_32088:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(24165);if(r)goto S_32088;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23339);}while(r); +if(!qbevent)break;evnt(24165);}while(r); } -S_30631:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(23340);if(r)goto S_30631;} +S_32091:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(24166);if(r)goto S_32091;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FLOAT",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23340);}while(r); +if(!qbevent)break;evnt(24166);}while(r); } }else{ -S_30635:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(23342);if(r)goto S_30635;} -S_30636:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(23343);if(r)goto S_30636;} +S_32095:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(24168);if(r)goto S_32095;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BYTE",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23343);}while(r); -}else{ +if(!qbevent)break;evnt(24168);}while(r); +} +S_32098:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(24169);if(r)goto S_32098;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23343);}while(r); +if(!qbevent)break;evnt(24169);}while(r); +} +S_32101:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(24170);if(r)goto S_32101;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24170);}while(r); +} +S_32104:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(24171);if(r)goto S_32104;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("INTEGER64",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24171);}while(r); +} +S_32107:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24172);if(r)goto S_32107;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24172);}while(r); } } -S_30642:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(23345);if(r)goto S_30642;} -S_30643:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(23346);if(r)goto S_30643;} +S_32111:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(24174);if(r)goto S_32111;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23346);}while(r); -}else{ +if(!qbevent)break;evnt(24175);}while(r); +S_32113:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24176);if(r)goto S_32113;} do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23346);}while(r); -} -} -S_30649:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(23348);if(r)goto S_30649;} -S_30650:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(23349);if(r)goto S_30650;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23349);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23349);}while(r); -} -} -S_30656:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(23351);if(r)goto S_30656;} -S_30657:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(23352);if(r)goto S_30657;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23352);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23352);}while(r); -} +if(!qbevent)break;evnt(24176);}while(r); } } do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23355);}while(r); +if(!qbevent)break;evnt(24178);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free62.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME);return _FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME; +qbs_maketmp(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME);return _FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME; } -qbs* FUNC_SYMBOL2FULLTYPENAME(qbs*_FUNC_SYMBOL2FULLTYPENAME_STRING_S2){ +qbs* FUNC_ID2SHORTTYPENAME(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -104774,267 +110903,206 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23360);}while(r); -S_30666:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(23362);if(r)goto S_30666;} +*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(24182);}while(r); +S_32119:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(24183);if(r)goto S_32119;} do{ -*_FUNC_SYMBOL2FULLTYPENAME_LONG_U= 1 ; -if(!qbevent)break;evnt(23363);}while(r); -S_30668:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP->len== 1 )))||new_error){ -if(qbevent){evnt(23364);if(r)goto S_30668;} +*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(24183);}while(r); +} do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ~...",13)); +*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(24184);}while(r); +do{ +*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 ; +if(!qbevent)break;evnt(24185);}while(r); +S_32124:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(24186);if(r)goto S_32124;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23364);}while(r); +if(!qbevent)break;evnt(24187);}while(r); +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24188);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23364);}while(r); +if(!qbevent)break;evnt(24188);}while(r); } +S_32129:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(24190);if(r)goto S_32129;} +S_32130:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(24191);if(r)goto S_32130;} do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_SIZE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23365);}while(r); -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_UNSIGNED ",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23366);}while(r); -} -S_30675:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(23369);if(r)goto S_30675;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_BYTE",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23369);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23369);}while(r); -} -S_30679:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(23370);if(r)goto S_30679;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("INTEGER",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23370);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23370);}while(r); -} -S_30683:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(23371);if(r)goto S_30683;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("LONG",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23371);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23371);}while(r); -} -S_30687:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(23372);if(r)goto S_30687;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_INTEGER64",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23372);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23372);}while(r); -} -S_30691:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(23373);if(r)goto S_30691;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_OFFSET",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23373);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23373);}while(r); -} -S_30695:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(23375);if(r)goto S_30695;} -S_30696:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len== 1 )))||new_error){ -if(qbevent){evnt(23376);if(r)goto S_30696;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_BIT * 1",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23377);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23378);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23380);}while(r); -S_30701:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(23381);if(r)goto S_30701;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol `",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23381);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23381);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_BIT * ",7)),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23382);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23383);}while(r); -} -S_30708:; -if ((-(*_FUNC_SYMBOL2FULLTYPENAME_LONG_U== 1 ))||new_error){ -if(qbevent){evnt(23386);if(r)goto S_30708;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected type symbol after ~",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23386);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23386);}while(r); -} -S_30712:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(23388);if(r)goto S_30712;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23388);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23388);}while(r); -} -S_30716:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(23389);if(r)goto S_30716;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23389);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23389);}while(r); -} -S_30720:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(23390);if(r)goto S_30720;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("_FLOAT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23390);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23390);}while(r); -} -S_30724:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(23391);if(r)goto S_30724;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23391);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23391);}while(r); -} -S_30728:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(23393);if(r)goto S_30728;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23394);}while(r); -S_30730:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(23395);if(r)goto S_30730;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol $",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23395);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23395);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_new_txt_len("STRING * ",9),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23396);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(23397);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,_FUNC_SYMBOL2FULLTYPENAME_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23400);}while(r); -LABEL_GOTSYM2TYP:; -if(qbevent){evnt(23402);r=0;} -S_30738:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_add(qbs_new_txt_len(" ",1),_FUNC_SYMBOL2FULLTYPENAME_STRING_T), 5 ),qbs_new_txt_len(" _BIT",5))))||new_error){ -if(qbevent){evnt(23404);if(r)goto S_30738;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len(" * 1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23404);}while(r); -} -S_30741:; -fornext_value3316= 1 ; -fornext_finalvalue3316=_FUNC_SYMBOL2FULLTYPENAME_STRING_T->len; -fornext_step3316= 1 ; -if (fornext_step3316<0) fornext_step_negative3316=1; else fornext_step_negative3316=0; -if (new_error) goto fornext_error3316; -goto fornext_entrylabel3316; -while(1){ -fornext_value3316=fornext_step3316+(*_FUNC_SYMBOL2FULLTYPENAME_LONG_I); -fornext_entrylabel3316: -*_FUNC_SYMBOL2FULLTYPENAME_LONG_I=fornext_value3316; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3316){ -if (fornext_value3316fornext_finalvalue3316) break; -} -fornext_error3316:; -if(qbevent){evnt(23406);if(r)goto S_30741;} -S_30742:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,*_FUNC_SYMBOL2FULLTYPENAME_LONG_I)==qbs_asc(__STRING1_SP))))||new_error){ -if(qbevent){evnt(23407);if(r)goto S_30742;} do{ -tqbs=_FUNC_SYMBOL2FULLTYPENAME_STRING_T; if (!new_error){ -tmp_fileno=*_FUNC_SYMBOL2FULLTYPENAME_LONG_I; if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(23407);}while(r); -} -fornext_continue_3315:; -} -fornext_exit_3315:; -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME,_FUNC_SYMBOL2FULLTYPENAME_STRING_T); +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23410);}while(r); +if(!qbevent)break;evnt(24191);}while(r); +} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24192);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24192);}while(r); +} +S_32138:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(24194);if(r)goto S_32138;} +S_32139:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24195);if(r)goto S_32139;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24195);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24195);}while(r); +} +S_32144:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||new_error){ +if(qbevent){evnt(24196);if(r)goto S_32144;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24196);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24196);}while(r); +} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24197);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24197);}while(r); +} +S_32152:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(24199);if(r)goto S_32152;} +S_32153:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(24200);if(r)goto S_32153;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24200);}while(r); +} +S_32156:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(24201);if(r)goto S_32156;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24201);}while(r); +} +S_32159:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(24202);if(r)goto S_32159;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24202);}while(r); +} +}else{ +S_32163:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(24204);if(r)goto S_32163;} +S_32164:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24205);if(r)goto S_32164;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24205);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24205);}while(r); +} +} +S_32170:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(24207);if(r)goto S_32170;} +S_32171:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24208);if(r)goto S_32171;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24208);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24208);}while(r); +} +} +S_32177:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(24210);if(r)goto S_32177;} +S_32178:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24211);if(r)goto S_32178;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24211);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24211);}while(r); +} +} +S_32184:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(24213);if(r)goto S_32184;} +S_32185:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24214);if(r)goto S_32185;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24214);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24214);}while(r); +} +} +} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24217);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free63.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME);return _FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME; +qbs_maketmp(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME);return _FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME; } -void SUB_LINEINPUT3LOAD(qbs*_SUB_LINEINPUT3LOAD_STRING_F){ +qbs* FUNC_SYMBOL2FULLTYPENAME(qbs*_FUNC_SYMBOL2FULLTYPENAME_STRING_S2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105048,45 +111116,267 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_open(_SUB_LINEINPUT3LOAD_STRING_F, 2 ,NULL,NULL, 1 ,NULL,0); +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23415);}while(r); +if(!qbevent)break;evnt(24222);}while(r); +S_32194:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(24224);if(r)goto S_32194;} do{ -*_SUB_LINEINPUT3LOAD_LONG_L=func_lof( 1 ); -if(!qbevent)break;evnt(23416);}while(r); +*_FUNC_SYMBOL2FULLTYPENAME_LONG_U= 1 ; +if(!qbevent)break;evnt(24225);}while(r); +S_32196:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP->len== 1 )))||new_error){ +if(qbevent){evnt(24226);if(r)goto S_32196;} do{ -qbs_set(__STRING_LINEINPUT3BUFFER,func_space(*_SUB_LINEINPUT3LOAD_LONG_L)); +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ~...",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23417);}while(r); +if(!qbevent)break;evnt(24226);}while(r); do{ -sub_get2( 1 ,NULL,__STRING_LINEINPUT3BUFFER,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23418);}while(r); -S_30751:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LINEINPUT3BUFFER->len))||new_error){ -if(qbevent){evnt(23419);if(r)goto S_30751;} -S_30752:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_LINEINPUT3BUFFER, 1 ),func_chr( 26 ))))||new_error){ -if(qbevent){evnt(23419);if(r)goto S_30752;} -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,qbs_left(__STRING_LINEINPUT3BUFFER,__STRING_LINEINPUT3BUFFER->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23419);}while(r); -} +goto exit_subfunc; +if(!qbevent)break;evnt(24226);}while(r); } do{ -sub_close( 1 ,1); -if(!qbevent)break;evnt(23420);}while(r); +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24227);}while(r); do{ -*__LONG_LINEINPUT3INDEX= 1 ; -if(!qbevent)break;evnt(23421);}while(r); +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24228);}while(r); +} +S_32203:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(24231);if(r)goto S_32203;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BYTE",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24231);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24231);}while(r); +} +S_32207:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(24232);if(r)goto S_32207;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("INTEGER",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24232);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24232);}while(r); +} +S_32211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(24233);if(r)goto S_32211;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("LONG",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24233);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24233);}while(r); +} +S_32215:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(24234);if(r)goto S_32215;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("INTEGER64",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24234);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24234);}while(r); +} +S_32219:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(24235);if(r)goto S_32219;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("OFFSET",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24235);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24235);}while(r); +} +S_32223:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(24237);if(r)goto S_32223;} +S_32224:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len== 1 )))||new_error){ +if(qbevent){evnt(24238);if(r)goto S_32224;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BIT * 1",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24239);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24240);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24242);}while(r); +S_32229:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(24243);if(r)goto S_32229;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol `",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24243);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24243);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BIT * ",6)),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24244);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24245);}while(r); +} +S_32236:; +if ((-(*_FUNC_SYMBOL2FULLTYPENAME_LONG_U== 1 ))||new_error){ +if(qbevent){evnt(24248);if(r)goto S_32236;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected type symbol after ~",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24248);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24248);}while(r); +} +S_32240:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(24250);if(r)goto S_32240;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24250);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24250);}while(r); +} +S_32244:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(24251);if(r)goto S_32244;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24251);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24251);}while(r); +} +S_32248:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(24252);if(r)goto S_32248;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FLOAT",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24252);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24252);}while(r); +} +S_32252:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(24253);if(r)goto S_32252;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24253);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24253);}while(r); +} +S_32256:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(24255);if(r)goto S_32256;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24256);}while(r); +S_32258:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(24257);if(r)goto S_32258;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol $",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24257);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24257);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_new_txt_len("STRING * ",9),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24258);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24259);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,_FUNC_SYMBOL2FULLTYPENAME_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24262);}while(r); +LABEL_GOTSYM2TYP:; +if(qbevent){evnt(24264);r=0;} +S_32266:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_add(qbs_new_txt_len(" ",1),_FUNC_SYMBOL2FULLTYPENAME_STRING_T), 5 ),qbs_new_txt_len(" _BIT",5))))||new_error){ +if(qbevent){evnt(24266);if(r)goto S_32266;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len(" * 1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24266);}while(r); +} +S_32269:; +fornext_value3498= 1 ; +fornext_finalvalue3498=_FUNC_SYMBOL2FULLTYPENAME_STRING_T->len; +fornext_step3498= 1 ; +if (fornext_step3498<0) fornext_step_negative3498=1; else fornext_step_negative3498=0; +if (new_error) goto fornext_error3498; +goto fornext_entrylabel3498; +while(1){ +fornext_value3498=fornext_step3498+(*_FUNC_SYMBOL2FULLTYPENAME_LONG_I); +fornext_entrylabel3498: +*_FUNC_SYMBOL2FULLTYPENAME_LONG_I=fornext_value3498; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3498){ +if (fornext_value3498fornext_finalvalue3498) break; +} +fornext_error3498:; +if(qbevent){evnt(24268);if(r)goto S_32269;} +S_32270:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,*_FUNC_SYMBOL2FULLTYPENAME_LONG_I)==qbs_asc(__STRING1_SP))))||new_error){ +if(qbevent){evnt(24269);if(r)goto S_32270;} +do{ +tqbs=_FUNC_SYMBOL2FULLTYPENAME_STRING_T; if (!new_error){ +tmp_fileno=*_FUNC_SYMBOL2FULLTYPENAME_LONG_I; if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(24269);}while(r); +} +fornext_continue_3497:; +} +fornext_exit_3497:; +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME,_FUNC_SYMBOL2FULLTYPENAME_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24272);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free64.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME);return _FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME; } -qbs* FUNC_LINEINPUT3(){ +void SUB_LINEINPUT3LOAD(qbs*_SUB_LINEINPUT3LOAD_STRING_F){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105100,105 +111390,45 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_LINEINPUT3_LONG_L=__STRING_LINEINPUT3BUFFER->len; +sub_open(_SUB_LINEINPUT3LOAD_STRING_F, 2 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23426);}while(r); -S_30759:; -if ((-(*__LONG_LINEINPUT3INDEX>*_FUNC_LINEINPUT3_LONG_L))||new_error){ -if(qbevent){evnt(23427);if(r)goto S_30759;} +if(!qbevent)break;evnt(24277);}while(r); do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_chr( 13 )); +*_SUB_LINEINPUT3LOAD_LONG_L=func_lof( 1 ); +if(!qbevent)break;evnt(24278);}while(r); +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,func_space(*_SUB_LINEINPUT3LOAD_LONG_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23427);}while(r); +if(!qbevent)break;evnt(24279);}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23427);}while(r); -} -do{ -*_FUNC_LINEINPUT3_LONG_C13=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 13 ),1); +sub_get2( 1 ,NULL,__STRING_LINEINPUT3BUFFER,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23428);}while(r); +if(!qbevent)break;evnt(24280);}while(r); +S_32279:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LINEINPUT3BUFFER->len))||new_error){ +if(qbevent){evnt(24281);if(r)goto S_32279;} +S_32280:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_LINEINPUT3BUFFER, 1 ),func_chr( 26 ))))||new_error){ +if(qbevent){evnt(24281);if(r)goto S_32280;} do{ -*_FUNC_LINEINPUT3_LONG_C10=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 10 ),1); +qbs_set(__STRING_LINEINPUT3BUFFER,qbs_left(__STRING_LINEINPUT3BUFFER,__STRING_LINEINPUT3BUFFER->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23429);}while(r); -S_30765:; -if (((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))&(-(*_FUNC_LINEINPUT3_LONG_C13== 0 )))||new_error){ -if(qbevent){evnt(23430);if(r)goto S_30765;} -do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_L-*__LONG_LINEINPUT3INDEX+ 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23431);}while(r); -do{ -*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_L+ 1 ; -if(!qbevent)break;evnt(23432);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23433);}while(r); -} -S_30770:; -if ((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))||new_error){ -if(qbevent){evnt(23435);if(r)goto S_30770;} -do{ -*_FUNC_LINEINPUT3_LONG_C10= 2147483647 ; -if(!qbevent)break;evnt(23435);}while(r); -} -S_30773:; -if ((-(*_FUNC_LINEINPUT3_LONG_C13== 0 ))||new_error){ -if(qbevent){evnt(23436);if(r)goto S_30773;} -do{ -*_FUNC_LINEINPUT3_LONG_C13= 2147483647 ; -if(!qbevent)break;evnt(23436);}while(r); -} -S_30776:; -if ((-(*_FUNC_LINEINPUT3_LONG_C10<*_FUNC_LINEINPUT3_LONG_C13))||new_error){ -if(qbevent){evnt(23437);if(r)goto S_30776;} -do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C10-*__LONG_LINEINPUT3INDEX,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23439);}while(r); -do{ -*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C10+ 1 ; -if(!qbevent)break;evnt(23440);}while(r); -S_30779:; -if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ -if(qbevent){evnt(23441);if(r)goto S_30779;} -S_30780:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,1))== 13 )))||new_error){ -if(qbevent){evnt(23442);if(r)goto S_30780;} -do{ -*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; -if(!qbevent)break;evnt(23442);}while(r); +if(!qbevent)break;evnt(24281);}while(r); } } -}else{ do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C13-*__LONG_LINEINPUT3INDEX,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23446);}while(r); +sub_close( 1 ,1); +if(!qbevent)break;evnt(24282);}while(r); do{ -*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C13+ 1 ; -if(!qbevent)break;evnt(23447);}while(r); -S_30787:; -if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ -if(qbevent){evnt(23448);if(r)goto S_30787;} -S_30788:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,1))== 10 )))||new_error){ -if(qbevent){evnt(23449);if(r)goto S_30788;} -do{ -*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; -if(!qbevent)break;evnt(23449);}while(r); -} -} -} +*__LONG_LINEINPUT3INDEX= 1 ; +if(!qbevent)break;evnt(24283);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free65.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_LINEINPUT3_STRING_LINEINPUT3);return _FUNC_LINEINPUT3_STRING_LINEINPUT3; } -qbs* FUNC_GETFILEPATH(qbs*_FUNC_GETFILEPATH_STRING_F){ +qbs* FUNC_LINEINPUT3(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105211,55 +111441,106 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_30793:; -fornext_value3324=_FUNC_GETFILEPATH_STRING_F->len; -fornext_finalvalue3324= 1 ; -fornext_step3324= -1 ; -if (fornext_step3324<0) fornext_step_negative3324=1; else fornext_step_negative3324=0; -if (new_error) goto fornext_error3324; -goto fornext_entrylabel3324; -while(1){ -fornext_value3324=fornext_step3324+(*_FUNC_GETFILEPATH_LONG_I); -fornext_entrylabel3324: -*_FUNC_GETFILEPATH_LONG_I=fornext_value3324; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3324){ -if (fornext_value3324fornext_finalvalue3324) break; -} -fornext_error3324:; -if(qbevent){evnt(23455);if(r)goto S_30793;} do{ -qbs_set(_FUNC_GETFILEPATH_STRING_A,func_mid(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I, 1 ,1)); +*_FUNC_LINEINPUT3_LONG_L=__STRING_LINEINPUT3BUFFER->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23456);}while(r); -S_30795:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(23457);if(r)goto S_30795;} +if(!qbevent)break;evnt(24288);}while(r); +S_32287:; +if ((-(*__LONG_LINEINPUT3INDEX>*_FUNC_LINEINPUT3_LONG_L))||new_error){ +if(qbevent){evnt(24289);if(r)goto S_32287;} do{ -qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_left(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I)); +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_chr( 13 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23458);}while(r); +if(!qbevent)break;evnt(24289);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23459);}while(r); +if(!qbevent)break;evnt(24289);}while(r); } -fornext_continue_3323:; -} -fornext_exit_3323:; do{ -qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_new_txt_len("",0)); +*_FUNC_LINEINPUT3_LONG_C13=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 13 ),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23462);}while(r); +if(!qbevent)break;evnt(24290);}while(r); +do{ +*_FUNC_LINEINPUT3_LONG_C10=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 10 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24291);}while(r); +S_32293:; +if (((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))&(-(*_FUNC_LINEINPUT3_LONG_C13== 0 )))||new_error){ +if(qbevent){evnt(24292);if(r)goto S_32293;} +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_L-*__LONG_LINEINPUT3INDEX+ 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24293);}while(r); +do{ +*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_L+ 1 ; +if(!qbevent)break;evnt(24294);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24295);}while(r); +} +S_32298:; +if ((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))||new_error){ +if(qbevent){evnt(24297);if(r)goto S_32298;} +do{ +*_FUNC_LINEINPUT3_LONG_C10= 2147483647 ; +if(!qbevent)break;evnt(24297);}while(r); +} +S_32301:; +if ((-(*_FUNC_LINEINPUT3_LONG_C13== 0 ))||new_error){ +if(qbevent){evnt(24298);if(r)goto S_32301;} +do{ +*_FUNC_LINEINPUT3_LONG_C13= 2147483647 ; +if(!qbevent)break;evnt(24298);}while(r); +} +S_32304:; +if ((-(*_FUNC_LINEINPUT3_LONG_C10<*_FUNC_LINEINPUT3_LONG_C13))||new_error){ +if(qbevent){evnt(24299);if(r)goto S_32304;} +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C10-*__LONG_LINEINPUT3INDEX,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24301);}while(r); +do{ +*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C10+ 1 ; +if(!qbevent)break;evnt(24302);}while(r); +S_32307:; +if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ +if(qbevent){evnt(24303);if(r)goto S_32307;} +S_32308:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,1))== 13 )))||new_error){ +if(qbevent){evnt(24304);if(r)goto S_32308;} +do{ +*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; +if(!qbevent)break;evnt(24304);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C13-*__LONG_LINEINPUT3INDEX,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24308);}while(r); +do{ +*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C13+ 1 ; +if(!qbevent)break;evnt(24309);}while(r); +S_32315:; +if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ +if(qbevent){evnt(24310);if(r)goto S_32315;} +S_32316:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,1))== 10 )))||new_error){ +if(qbevent){evnt(24311);if(r)goto S_32316;} +do{ +*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; +if(!qbevent)break;evnt(24311);}while(r); +} +} +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free66.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETFILEPATH_STRING_GETFILEPATH);return _FUNC_GETFILEPATH_STRING_GETFILEPATH; +qbs_maketmp(_FUNC_LINEINPUT3_STRING_LINEINPUT3);return _FUNC_LINEINPUT3_STRING_LINEINPUT3; } -qbs* FUNC_ELEUCASE(qbs*_FUNC_ELEUCASE_STRING_A){ +qbs* FUNC_GETFILEPATH(qbs*_FUNC_GETFILEPATH_STRING_F){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105272,110 +111553,55 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_30801:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(23468);if(r)goto S_30801;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23468);}while(r); -} -do{ -*_FUNC_ELEUCASE_LONG_I= 1 ; -if(!qbevent)break;evnt(23469);}while(r); -S_30805:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||new_error){ -if(qbevent){evnt(23470);if(r)goto S_30805;} -do{ -*_FUNC_ELEUCASE_LONG_I2=func_instr(NULL,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0); +S_32321:; +fornext_value3506=_FUNC_GETFILEPATH_STRING_F->len; +fornext_finalvalue3506= 1 ; +fornext_step3506= -1 ; +if (fornext_step3506<0) fornext_step_negative3506=1; else fornext_step_negative3506=0; +if (new_error) goto fornext_error3506; +goto fornext_entrylabel3506; +while(1){ +fornext_value3506=fornext_step3506+(*_FUNC_GETFILEPATH_LONG_I); +fornext_entrylabel3506: +*_FUNC_GETFILEPATH_LONG_I=fornext_value3506; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23471);}while(r); -S_30807:; -if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||new_error){ -if(qbevent){evnt(23472);if(r)goto S_30807;} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23472);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23472);}while(r); -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_left(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23473);}while(r); -do{ -*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2; -if(!qbevent)break;evnt(23474);}while(r); -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_SP34,qbs_add(__STRING1_SP,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23477);}while(r); -S_30815:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||new_error){ -if(qbevent){evnt(23478);if(r)goto S_30815;} -S_30816:; -while((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,1)))||new_error){ -if(qbevent){evnt(23479);if(r)goto S_30816;} -do{ -*_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23480);}while(r); -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,*_FUNC_ELEUCASE_LONG_I2-*_FUNC_ELEUCASE_LONG_I+ 1 ,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23481);}while(r); -do{ -*_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23482);}while(r); -S_30820:; -if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||new_error){ -if(qbevent){evnt(23482);if(r)goto S_30820;} -do{ -*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23482);}while(r); +if (fornext_step_negative3506){ +if (fornext_value3506fornext_finalvalue3506) break; } +fornext_error3506:; +if(qbevent){evnt(24317);if(r)goto S_32321;} do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2+ 1 ,*_FUNC_ELEUCASE_LONG_I3-(*_FUNC_ELEUCASE_LONG_I2+ 1 )+ 1 ,1))); +qbs_set(_FUNC_GETFILEPATH_STRING_A,func_mid(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23483);}while(r); +if(!qbevent)break;evnt(24318);}while(r); +S_32323:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ +if(qbevent){evnt(24319);if(r)goto S_32323;} do{ -*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ; -if(!qbevent)break;evnt(23484);}while(r); -S_30827:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||new_error){ -if(qbevent){evnt(23485);if(r)goto S_30827;} -do{ -goto dl_exit_3329; -if(!qbevent)break;evnt(23485);}while(r); -} -dl_continue_3329:; -} -dl_exit_3329:; -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A->len-*_FUNC_ELEUCASE_LONG_I+ 1 ,1)))); +qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_left(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23488);}while(r); +if(!qbevent)break;evnt(24320);}while(r); do{ -qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2); +goto exit_subfunc; +if(!qbevent)break;evnt(24321);}while(r); +} +fornext_continue_3505:; +} +fornext_exit_3505:; +do{ +qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23489);}while(r); +if(!qbevent)break;evnt(24324);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free67.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ELEUCASE_STRING_ELEUCASE);return _FUNC_ELEUCASE_STRING_ELEUCASE; +qbs_maketmp(_FUNC_GETFILEPATH_STRING_GETFILEPATH);return _FUNC_GETFILEPATH_STRING_GETFILEPATH; } -void SUB_SETDEPENDENCY(int32*_SUB_SETDEPENDENCY_LONG_REQUIREMENT){ +qbs* FUNC_ELEUCASE(qbs*_FUNC_ELEUCASE_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105388,21 +111614,110 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_30834:; -if ((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)||new_error){ -if(qbevent){evnt(23494);if(r)goto S_30834;} +S_32329:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(24330);if(r)goto S_32329;} do{ -tmp_long=array_check((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23495);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(24330);}while(r); } +do{ +*_FUNC_ELEUCASE_LONG_I= 1 ; +if(!qbevent)break;evnt(24331);}while(r); +S_32333:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||new_error){ +if(qbevent){evnt(24332);if(r)goto S_32333;} +do{ +*_FUNC_ELEUCASE_LONG_I2=func_instr(NULL,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24333);}while(r); +S_32335:; +if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||new_error){ +if(qbevent){evnt(24334);if(r)goto S_32335;} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24334);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24334);}while(r); +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_left(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24335);}while(r); +do{ +*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2; +if(!qbevent)break;evnt(24336);}while(r); +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_SP34,qbs_add(__STRING1_SP,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24339);}while(r); +S_32343:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||new_error){ +if(qbevent){evnt(24340);if(r)goto S_32343;} +S_32344:; +while((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,1)))||new_error){ +if(qbevent){evnt(24341);if(r)goto S_32344;} +do{ +*_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24342);}while(r); +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,*_FUNC_ELEUCASE_LONG_I2-*_FUNC_ELEUCASE_LONG_I+ 1 ,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24343);}while(r); +do{ +*_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24344);}while(r); +S_32348:; +if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||new_error){ +if(qbevent){evnt(24344);if(r)goto S_32348;} +do{ +*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24344);}while(r); +}else{ +do{ +*_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ; +if(!qbevent)break;evnt(24344);}while(r); +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2+ 1 ,*_FUNC_ELEUCASE_LONG_I3-(*_FUNC_ELEUCASE_LONG_I2+ 1 )+ 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24345);}while(r); +do{ +*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ; +if(!qbevent)break;evnt(24346);}while(r); +S_32355:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||new_error){ +if(qbevent){evnt(24347);if(r)goto S_32355;} +do{ +goto dl_exit_3511; +if(!qbevent)break;evnt(24347);}while(r); +} +dl_continue_3511:; +} +dl_exit_3511:; +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A->len-*_FUNC_ELEUCASE_LONG_I+ 1 ,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24350);}while(r); +do{ +qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24351);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free68.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ELEUCASE_STRING_ELEUCASE);return _FUNC_ELEUCASE_STRING_ELEUCASE; } -void SUB_BUILD(qbs*_SUB_BUILD_STRING_PATH){ +void SUB_SETDEPENDENCY(int32*_SUB_SETDEPENDENCY_LONG_REQUIREMENT){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105415,170 +111730,13 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_32362:; +if ((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)||new_error){ +if(qbevent){evnt(24356);if(r)goto S_32362;} do{ -qbs_set(_SUB_BUILD_STRING_PREVIOUS_DIR,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23500);}while(r); -do{ -*_SUB_BUILD_LONG_DEPTH= 1 ; -if(!qbevent)break;evnt(23503);}while(r); -S_30839:; -fornext_value3335= 1 ; -fornext_finalvalue3335=_SUB_BUILD_STRING_PATH->len; -fornext_step3335= 1 ; -if (fornext_step3335<0) fornext_step_negative3335=1; else fornext_step_negative3335=0; -if (new_error) goto fornext_error3335; -goto fornext_entrylabel3335; -while(1){ -fornext_value3335=fornext_step3335+(*_SUB_BUILD_LONG_X); -fornext_entrylabel3335: -*_SUB_BUILD_LONG_X=fornext_value3335; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3335){ -if (fornext_value3335fornext_finalvalue3335) break; -} -fornext_error3335:; -if(qbevent){evnt(23504);if(r)goto S_30839;} -S_30840:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_BUILD_STRING_PATH,*_SUB_BUILD_LONG_X)== 92 ))|(-(qbs_asc(_SUB_BUILD_STRING_PATH,*_SUB_BUILD_LONG_X)== 47 ))))||new_error){ -if(qbevent){evnt(23505);if(r)goto S_30840;} -do{ -*_SUB_BUILD_LONG_DEPTH=*_SUB_BUILD_LONG_DEPTH+ 1 ; -if(!qbevent)break;evnt(23505);}while(r); -} -fornext_continue_3334:; -} -fornext_exit_3334:; -do{ -sub_chdir(_SUB_BUILD_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23507);}while(r); -do{ -qbs_set(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("..",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23509);}while(r); -S_30846:; -fornext_value3338= 2 ; -fornext_finalvalue3338=*_SUB_BUILD_LONG_DEPTH; -fornext_step3338= 1 ; -if (fornext_step3338<0) fornext_step_negative3338=1; else fornext_step_negative3338=0; -if (new_error) goto fornext_error3338; -goto fornext_entrylabel3338; -while(1){ -fornext_value3338=fornext_step3338+(*_SUB_BUILD_LONG_X); -fornext_entrylabel3338: -*_SUB_BUILD_LONG_X=fornext_value3338; -if (fornext_step_negative3338){ -if (fornext_value3338fornext_finalvalue3338) break; -} -fornext_error3338:; -if(qbevent){evnt(23510);if(r)goto S_30846;} -do{ -qbs_set(_SUB_BUILD_STRING_RETURN_PATH,qbs_add(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("\\..",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23511);}while(r); -fornext_continue_3337:; -} -fornext_exit_3337:; -do{ -*_SUB_BUILD_LONG_BFH=func_freefile(); -if(!qbevent)break;evnt(23514);}while(r); -do{ -sub_open(qbs_add(qbs_new_txt_len("build",5),__STRING_BATCHFILE_EXTENSION), 2 ,NULL,NULL,*_SUB_BUILD_LONG_BFH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23515);}while(r); -S_30851:; -while((!(func_eof(*_SUB_BUILD_LONG_BFH)))||new_error){ -if(qbevent){evnt(23516);if(r)goto S_30851;} -do{ -tmp_fileno=*_SUB_BUILD_LONG_BFH; -if (new_error) goto skip3340; -sub_file_line_input_string(tmp_fileno,_SUB_BUILD_STRING_C); -if (new_error) goto skip3340; -skip3340: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23517);}while(r); -do{ -*_SUB_BUILD_LONG_USE= 0 ; -if(!qbevent)break;evnt(23518);}while(r); -S_30854:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_BUILD_STRING_C->len))||new_error){ -if(qbevent){evnt(23519);if(r)goto S_30854;} -do{ -*_SUB_BUILD_LONG_USE= 1 ; -if(!qbevent)break;evnt(23519);}while(r); -} -S_30857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_BUILD_STRING_C,qbs_new_txt_len("pause",5))))||new_error){ -if(qbevent){evnt(23520);if(r)goto S_30857;} -do{ -*_SUB_BUILD_LONG_USE= 0 ; -if(!qbevent)break;evnt(23520);}while(r); -} -S_30860:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_BUILD_STRING_C, 1 ),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(23521);if(r)goto S_30860;} -do{ -*_SUB_BUILD_LONG_USE= 0 ; -if(!qbevent)break;evnt(23521);}while(r); -} -S_30863:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_SUB_BUILD_STRING_C, 13 )),(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname",9))))))||new_error){ -if(qbevent){evnt(23522);if(r)goto S_30863;} -do{ -*_SUB_BUILD_LONG_USE= 0 ; -if(!qbevent)break;evnt(23522);}while(r); -} -S_30866:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_lcase(_SUB_BUILD_STRING_C),qbs_new_txt_len("press any key",13),0)))||new_error){ -if(qbevent){evnt(23523);if(r)goto S_30866;} -do{ -goto dl_exit_3339; -if(!qbevent)break;evnt(23523);}while(r); -} -do{ -qbs_set(_SUB_BUILD_STRING_C,FUNC_GDB_FIX(_SUB_BUILD_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23524);}while(r); -S_30870:; -if ((*_SUB_BUILD_LONG_USE)||new_error){ -if(qbevent){evnt(23525);if(r)goto S_30870;} -S_30871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(23526);if(r)goto S_30871;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /C ",7),_SUB_BUILD_STRING_C),qbs_new_txt_len(" 2>> ",5)),_SUB_BUILD_STRING_RETURN_PATH),qbs_new_txt_len("\\",1)),__STRING_COMPILELOG),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23527);}while(r); -}else{ -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_BUILD_STRING_C,qbs_new_txt_len(" 2>> ",5)),_SUB_BUILD_STRING_PREVIOUS_DIR),qbs_new_txt_len("/",1)),__STRING_COMPILELOG),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23529);}while(r); -} -} -dl_continue_3339:; -} -dl_exit_3339:; -do{ -sub_close(*_SUB_BUILD_LONG_BFH,1); -if(!qbevent)break;evnt(23533);}while(r); -S_30879:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(23535);if(r)goto S_30879;} -do{ -sub_chdir(_SUB_BUILD_STRING_RETURN_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23536);}while(r); -}else{ -do{ -sub_chdir(_SUB_BUILD_STRING_PREVIOUS_DIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23538);}while(r); +tmp_long=array_check((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(24357);}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -105586,7 +111744,7 @@ free_mem_lock(sf_mem_lock); if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -qbs* FUNC_GDB_FIX(qbs*_FUNC_GDB_FIX_STRING_G_COMMAND){ +void SUB_BUILD(qbs*_SUB_BUILD_STRING_PATH){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105600,134 +111758,177 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_G_COMMAND); +qbs_set(_SUB_BUILD_STRING_PREVIOUS_DIR,func__cwd()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23543);}while(r); -S_30885:; -if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ -if(qbevent){evnt(23544);if(r)goto S_30885;} -S_30886:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len("gcc ",4)))|(qbs_equal(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len("g++ ",4)))))||new_error){ -if(qbevent){evnt(23545);if(r)goto S_30886;} +if(!qbevent)break;evnt(24362);}while(r); do{ -qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len(" -g ",4)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len- 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23546);}while(r); -do{ -goto LABEL_ADDED_GDB_FLAG; -if(!qbevent)break;evnt(23547);}while(r); -} -S_30890:; -fornext_value3345= 1 ; -fornext_finalvalue3345= 6 ; -fornext_step3345= 1 ; -if (fornext_step3345<0) fornext_step_negative3345=1; else fornext_step_negative3345=0; -if (new_error) goto fornext_error3345; -goto fornext_entrylabel3345; +*_SUB_BUILD_LONG_DEPTH= 1 ; +if(!qbevent)break;evnt(24365);}while(r); +S_32367:; +fornext_value3517= 1 ; +fornext_finalvalue3517=_SUB_BUILD_STRING_PATH->len; +fornext_step3517= 1 ; +if (fornext_step3517<0) fornext_step_negative3517=1; else fornext_step_negative3517=0; +if (new_error) goto fornext_error3517; +goto fornext_entrylabel3517; while(1){ -fornext_value3345=fornext_step3345+(*_FUNC_GDB_FIX_LONG_O); -fornext_entrylabel3345: -*_FUNC_GDB_FIX_LONG_O=fornext_value3345; -if (fornext_step_negative3345){ -if (fornext_value3345fornext_finalvalue3345) break; +if (fornext_value3517>fornext_finalvalue3517) break; } -fornext_error3345:; -if(qbevent){evnt(23549);if(r)goto S_30890;} -S_30891:; -if ((-(*_FUNC_GDB_FIX_LONG_O== 1 ))||new_error){ -if(qbevent){evnt(23550);if(r)goto S_30891;} +fornext_error3517:; +if(qbevent){evnt(24366);if(r)goto S_32367;} +S_32368:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_BUILD_STRING_PATH,*_SUB_BUILD_LONG_X)== 92 ))|(-(qbs_asc(_SUB_BUILD_STRING_PATH,*_SUB_BUILD_LONG_X)== 47 ))))||new_error){ +if(qbevent){evnt(24367);if(r)goto S_32368;} do{ -qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("\\g++ ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23550);}while(r); +*_SUB_BUILD_LONG_DEPTH=*_SUB_BUILD_LONG_DEPTH+ 1 ; +if(!qbevent)break;evnt(24367);}while(r); } -S_30894:; -if ((-(*_FUNC_GDB_FIX_LONG_O== 2 ))||new_error){ -if(qbevent){evnt(23551);if(r)goto S_30894;} -do{ -qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("/g++ ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23551);}while(r); +fornext_continue_3516:; } -S_30897:; -if ((-(*_FUNC_GDB_FIX_LONG_O== 3 ))||new_error){ -if(qbevent){evnt(23552);if(r)goto S_30897;} +fornext_exit_3516:; do{ -qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("\\gcc ",5)); +sub_chdir(_SUB_BUILD_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23552);}while(r); +if(!qbevent)break;evnt(24369);}while(r); +do{ +qbs_set(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("..",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24371);}while(r); +S_32374:; +fornext_value3520= 2 ; +fornext_finalvalue3520=*_SUB_BUILD_LONG_DEPTH; +fornext_step3520= 1 ; +if (fornext_step3520<0) fornext_step_negative3520=1; else fornext_step_negative3520=0; +if (new_error) goto fornext_error3520; +goto fornext_entrylabel3520; +while(1){ +fornext_value3520=fornext_step3520+(*_SUB_BUILD_LONG_X); +fornext_entrylabel3520: +*_SUB_BUILD_LONG_X=fornext_value3520; +if (fornext_step_negative3520){ +if (fornext_value3520fornext_finalvalue3520) break; } -S_30900:; -if ((-(*_FUNC_GDB_FIX_LONG_O== 4 ))||new_error){ -if(qbevent){evnt(23553);if(r)goto S_30900;} +fornext_error3520:; +if(qbevent){evnt(24372);if(r)goto S_32374;} do{ -qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("/gcc ",5)); +qbs_set(_SUB_BUILD_STRING_RETURN_PATH,qbs_add(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("\\..",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23553);}while(r); +if(!qbevent)break;evnt(24373);}while(r); +fornext_continue_3519:; } -S_30903:; -if ((-(*_FUNC_GDB_FIX_LONG_O== 5 ))||new_error){ -if(qbevent){evnt(23554);if(r)goto S_30903;} +fornext_exit_3519:; do{ -qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len(" gcc ",5)); +*_SUB_BUILD_LONG_BFH=func_freefile(); +if(!qbevent)break;evnt(24376);}while(r); +do{ +sub_open(qbs_add(qbs_new_txt_len("build",5),__STRING_BATCHFILE_EXTENSION), 2 ,NULL,NULL,*_SUB_BUILD_LONG_BFH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23554);}while(r); +if(!qbevent)break;evnt(24377);}while(r); +S_32379:; +while((!(func_eof(*_SUB_BUILD_LONG_BFH)))||new_error){ +if(qbevent){evnt(24378);if(r)goto S_32379;} +do{ +tmp_fileno=*_SUB_BUILD_LONG_BFH; +if (new_error) goto skip3522; +sub_file_line_input_string(tmp_fileno,_SUB_BUILD_STRING_C); +if (new_error) goto skip3522; +skip3522: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24379);}while(r); +do{ +*_SUB_BUILD_LONG_USE= 0 ; +if(!qbevent)break;evnt(24380);}while(r); +S_32382:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_BUILD_STRING_C->len))||new_error){ +if(qbevent){evnt(24381);if(r)goto S_32382;} +do{ +*_SUB_BUILD_LONG_USE= 1 ; +if(!qbevent)break;evnt(24381);}while(r); } -S_30906:; -if ((-(*_FUNC_GDB_FIX_LONG_O== 6 ))||new_error){ -if(qbevent){evnt(23555);if(r)goto S_30906;} +S_32385:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_BUILD_STRING_C,qbs_new_txt_len("pause",5))))||new_error){ +if(qbevent){evnt(24382);if(r)goto S_32385;} do{ -qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len(" g++ ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23555);}while(r); +*_SUB_BUILD_LONG_USE= 0 ; +if(!qbevent)break;evnt(24382);}while(r); +} +S_32388:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_BUILD_STRING_C, 1 ),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(24383);if(r)goto S_32388;} +do{ +*_SUB_BUILD_LONG_USE= 0 ; +if(!qbevent)break;evnt(24383);}while(r); +} +S_32391:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_SUB_BUILD_STRING_C, 13 )),(qbs_add(qbs_add(qbs_new_txt_len("cd ",3),func_chr( 34 )),qbs_new_txt_len("$(dirname",9))))))||new_error){ +if(qbevent){evnt(24384);if(r)goto S_32391;} +do{ +*_SUB_BUILD_LONG_USE= 0 ; +if(!qbevent)break;evnt(24384);}while(r); +} +S_32394:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_lcase(_SUB_BUILD_STRING_C),qbs_new_txt_len("press any key",13),0)))||new_error){ +if(qbevent){evnt(24385);if(r)goto S_32394;} +do{ +goto dl_exit_3521; +if(!qbevent)break;evnt(24385);}while(r); } do{ -*_FUNC_GDB_FIX_LONG_X=func_instr(NULL,qbs_ucase(_FUNC_GDB_FIX_STRING_C),qbs_ucase(_FUNC_GDB_FIX_STRING_O),0); +qbs_set(_SUB_BUILD_STRING_C,FUNC_GDB_FIX(_SUB_BUILD_STRING_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23556);}while(r); -S_30910:; -if ((*_FUNC_GDB_FIX_LONG_X)||new_error){ -if(qbevent){evnt(23558);if(r)goto S_30910;} +if(!qbevent)break;evnt(24386);}while(r); +S_32398:; +if ((*_SUB_BUILD_LONG_USE)||new_error){ +if(qbevent){evnt(24387);if(r)goto S_32398;} +S_32399:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(24388);if(r)goto S_32399;} do{ -qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C,*_FUNC_GDB_FIX_LONG_X- 1 ),_FUNC_GDB_FIX_STRING_O),qbs_new_txt_len(" -g ",4)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len-*_FUNC_GDB_FIX_LONG_X-(_FUNC_GDB_FIX_STRING_O->len- 1 )))); +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /C ",7),_SUB_BUILD_STRING_C),qbs_new_txt_len(" 2>> ",5)),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(_SUB_BUILD_STRING_RETURN_PATH,qbs_new_txt_len("\\",1)),__STRING_COMPILELOG))),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23558);}while(r); +if(!qbevent)break;evnt(24389);}while(r); +}else{ do{ -goto fornext_exit_3344; -if(!qbevent)break;evnt(23558);}while(r); -} -fornext_continue_3344:; -} -fornext_exit_3344:; -LABEL_ADDED_GDB_FLAG:; -if(qbevent){evnt(23560);r=0;} -do{ -*_FUNC_GDB_FIX_LONG_X=func_instr(NULL,_FUNC_GDB_FIX_STRING_C,qbs_new_txt_len(" -s ",4),0); +sub_shell2(qbs_add(qbs_add(_SUB_BUILD_STRING_C,qbs_new_txt_len(" 2>> ",5)),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(_SUB_BUILD_STRING_PREVIOUS_DIR,qbs_new_txt_len("/",1)),__STRING_COMPILELOG))),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23562);}while(r); -S_30916:; -if ((*_FUNC_GDB_FIX_LONG_X)||new_error){ -if(qbevent){evnt(23562);if(r)goto S_30916;} -do{ -qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C,*_FUNC_GDB_FIX_LONG_X- 1 ),qbs_new_txt_len(" ",1)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len-*_FUNC_GDB_FIX_LONG_X- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23562);}while(r); +if(!qbevent)break;evnt(24391);}while(r); } } +dl_continue_3521:; +} +dl_exit_3521:; do{ -qbs_set(_FUNC_GDB_FIX_STRING_GDB_FIX,_FUNC_GDB_FIX_STRING_C); +sub_close(*_SUB_BUILD_LONG_BFH,1); +if(!qbevent)break;evnt(24395);}while(r); +S_32407:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(24397);if(r)goto S_32407;} +do{ +sub_chdir(_SUB_BUILD_STRING_RETURN_PATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23564);}while(r); +if(!qbevent)break;evnt(24398);}while(r); +}else{ +do{ +sub_chdir(_SUB_BUILD_STRING_PREVIOUS_DIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24400);}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free70.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GDB_FIX_STRING_GDB_FIX);return _FUNC_GDB_FIX_STRING_GDB_FIX; } -void SUB_PATH_SLASH_CORRECT(qbs*_SUB_PATH_SLASH_CORRECT_STRING_A){ +qbs* FUNC_GDB_FIX(qbs*_FUNC_GDB_FIX_STRING_G_COMMAND){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105740,84 +111941,135 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_30921:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(23569);if(r)goto S_30921;} -S_30922:; -fornext_value3351= 1 ; -fornext_finalvalue3351=_SUB_PATH_SLASH_CORRECT_STRING_A->len; -fornext_step3351= 1 ; -if (fornext_step3351<0) fornext_step_negative3351=1; else fornext_step_negative3351=0; -if (new_error) goto fornext_error3351; -goto fornext_entrylabel3351; -while(1){ -fornext_value3351=fornext_step3351+(*_SUB_PATH_SLASH_CORRECT_LONG_X); -fornext_entrylabel3351: -*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3351; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3351){ -if (fornext_value3351fornext_finalvalue3351) break; -} -fornext_error3351:; -if(qbevent){evnt(23570);if(r)goto S_30922;} -S_30923:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 47 )))||new_error){ -if(qbevent){evnt(23571);if(r)goto S_30923;} do{ -tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ -tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ -tmp_long= 92 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(23571);}while(r); -} -fornext_continue_3350:; -} -fornext_exit_3350:; -}else{ -S_30928:; -fornext_value3354= 1 ; -fornext_finalvalue3354=_SUB_PATH_SLASH_CORRECT_STRING_A->len; -fornext_step3354= 1 ; -if (fornext_step3354<0) fornext_step_negative3354=1; else fornext_step_negative3354=0; -if (new_error) goto fornext_error3354; -goto fornext_entrylabel3354; -while(1){ -fornext_value3354=fornext_step3354+(*_SUB_PATH_SLASH_CORRECT_LONG_X); -fornext_entrylabel3354: -*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3354; +qbs_set(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_G_COMMAND); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3354){ -if (fornext_value3354fornext_finalvalue3354) break; -} -fornext_error3354:; -if(qbevent){evnt(23574);if(r)goto S_30928;} -S_30929:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 92 )))||new_error){ -if(qbevent){evnt(23575);if(r)goto S_30929;} +if(!qbevent)break;evnt(24405);}while(r); +S_32413:; +if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ +if(qbevent){evnt(24406);if(r)goto S_32413;} +S_32414:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len("gcc ",4)))|(qbs_equal(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len("g++ ",4)))))||new_error){ +if(qbevent){evnt(24407);if(r)goto S_32414;} do{ -tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ -tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ -tmp_long= 47 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(23575);}while(r); +qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C, 4 ),qbs_new_txt_len(" -g ",4)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len- 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24408);}while(r); +do{ +goto LABEL_ADDED_GDB_FLAG; +if(!qbevent)break;evnt(24409);}while(r); } -fornext_continue_3353:; +S_32418:; +fornext_value3527= 1 ; +fornext_finalvalue3527= 6 ; +fornext_step3527= 1 ; +if (fornext_step3527<0) fornext_step_negative3527=1; else fornext_step_negative3527=0; +if (new_error) goto fornext_error3527; +goto fornext_entrylabel3527; +while(1){ +fornext_value3527=fornext_step3527+(*_FUNC_GDB_FIX_LONG_O); +fornext_entrylabel3527: +*_FUNC_GDB_FIX_LONG_O=fornext_value3527; +if (fornext_step_negative3527){ +if (fornext_value3527fornext_finalvalue3527) break; } -fornext_exit_3353:; +fornext_error3527:; +if(qbevent){evnt(24411);if(r)goto S_32418;} +S_32419:; +if ((-(*_FUNC_GDB_FIX_LONG_O== 1 ))||new_error){ +if(qbevent){evnt(24412);if(r)goto S_32419;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("\\g++ ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24412);}while(r); } +S_32422:; +if ((-(*_FUNC_GDB_FIX_LONG_O== 2 ))||new_error){ +if(qbevent){evnt(24413);if(r)goto S_32422;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("/g++ ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24413);}while(r); +} +S_32425:; +if ((-(*_FUNC_GDB_FIX_LONG_O== 3 ))||new_error){ +if(qbevent){evnt(24414);if(r)goto S_32425;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("\\gcc ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24414);}while(r); +} +S_32428:; +if ((-(*_FUNC_GDB_FIX_LONG_O== 4 ))||new_error){ +if(qbevent){evnt(24415);if(r)goto S_32428;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len("/gcc ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24415);}while(r); +} +S_32431:; +if ((-(*_FUNC_GDB_FIX_LONG_O== 5 ))||new_error){ +if(qbevent){evnt(24416);if(r)goto S_32431;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len(" gcc ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24416);}while(r); +} +S_32434:; +if ((-(*_FUNC_GDB_FIX_LONG_O== 6 ))||new_error){ +if(qbevent){evnt(24417);if(r)goto S_32434;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_O,qbs_new_txt_len(" g++ ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24417);}while(r); +} +do{ +*_FUNC_GDB_FIX_LONG_X=func_instr(NULL,qbs_ucase(_FUNC_GDB_FIX_STRING_C),qbs_ucase(_FUNC_GDB_FIX_STRING_O),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24418);}while(r); +S_32438:; +if ((*_FUNC_GDB_FIX_LONG_X)||new_error){ +if(qbevent){evnt(24420);if(r)goto S_32438;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C,*_FUNC_GDB_FIX_LONG_X- 1 ),_FUNC_GDB_FIX_STRING_O),qbs_new_txt_len(" -g ",4)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len-*_FUNC_GDB_FIX_LONG_X-(_FUNC_GDB_FIX_STRING_O->len- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24420);}while(r); +do{ +goto fornext_exit_3526; +if(!qbevent)break;evnt(24420);}while(r); +} +fornext_continue_3526:; +} +fornext_exit_3526:; +LABEL_ADDED_GDB_FLAG:; +if(qbevent){evnt(24422);r=0;} +do{ +*_FUNC_GDB_FIX_LONG_X=func_instr(NULL,_FUNC_GDB_FIX_STRING_C,qbs_new_txt_len(" -s ",4),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24424);}while(r); +S_32444:; +if ((*_FUNC_GDB_FIX_LONG_X)||new_error){ +if(qbevent){evnt(24424);if(r)goto S_32444;} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_C,qbs_add(qbs_add(qbs_left(_FUNC_GDB_FIX_STRING_C,*_FUNC_GDB_FIX_LONG_X- 1 ),qbs_new_txt_len(" ",1)),qbs_right(_FUNC_GDB_FIX_STRING_C,_FUNC_GDB_FIX_STRING_C->len-*_FUNC_GDB_FIX_LONG_X- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24424);}while(r); +} +} +do{ +qbs_set(_FUNC_GDB_FIX_STRING_GDB_FIX,_FUNC_GDB_FIX_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24426);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free71.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GDB_FIX_STRING_GDB_FIX);return _FUNC_GDB_FIX_STRING_GDB_FIX; } -void SUB_USEANDROID(int32*_SUB_USEANDROID_LONG_YES){ +void SUB_PATH_SLASH_CORRECT(qbs*_SUB_PATH_SLASH_CORRECT_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -105830,56 +112082,76 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(23582);}while(r); -do{ -if(!qbevent)break;evnt(23583);}while(r); -S_30936:; -if ((-(*_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP_SET== 0 ))||new_error){ -if(qbevent){evnt(23584);if(r)goto S_30936;} -do{ -*_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP_SET= 1 ; -if(!qbevent)break;evnt(23585);}while(r); -do{ -*_SUB_USEANDROID_LONG_INLINE_DATA_BACKUP=*__LONG_INLINE_DATA; -if(!qbevent)break;evnt(23586);}while(r); -} -S_30940:; -if ((*_SUB_USEANDROID_LONG_YES)||new_error){ -if(qbevent){evnt(23589);if(r)goto S_30940;} -S_30941:; -if ((-(*__LONG_MAKEANDROID== 0 ))||new_error){ -if(qbevent){evnt(23590);if(r)goto S_30941;} -do{ -*__LONG_MAKEANDROID= 1 ; -if(!qbevent)break;evnt(23591);}while(r); -do{ -*__LONG_INLINE_DATA= 1 ; -if(!qbevent)break;evnt(23592);}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(23593);}while(r); -do{ -*__LONG_IDEBUILDMODECHANGED= 1 ; -if(!qbevent)break;evnt(23594);}while(r); -} +S_32449:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(24431);if(r)goto S_32449;} +S_32450:; +fornext_value3533= 1 ; +fornext_finalvalue3533=_SUB_PATH_SLASH_CORRECT_STRING_A->len; +fornext_step3533= 1 ; +if (fornext_step3533<0) fornext_step_negative3533=1; else fornext_step_negative3533=0; +if (new_error) goto fornext_error3533; +goto fornext_entrylabel3533; +while(1){ +fornext_value3533=fornext_step3533+(*_SUB_PATH_SLASH_CORRECT_LONG_X); +fornext_entrylabel3533: +*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3533; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3533){ +if (fornext_value3533fornext_finalvalue3533) break; } +fornext_error3533:; +if(qbevent){evnt(24432);if(r)goto S_32450;} +S_32451:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 47 )))||new_error){ +if(qbevent){evnt(24433);if(r)goto S_32451;} +do{ +tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ +tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ +tmp_long= 92 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(24433);}while(r); +} +fornext_continue_3532:; +} +fornext_exit_3532:; +}else{ +S_32456:; +fornext_value3536= 1 ; +fornext_finalvalue3536=_SUB_PATH_SLASH_CORRECT_STRING_A->len; +fornext_step3536= 1 ; +if (fornext_step3536<0) fornext_step_negative3536=1; else fornext_step_negative3536=0; +if (new_error) goto fornext_error3536; +goto fornext_entrylabel3536; +while(1){ +fornext_value3536=fornext_step3536+(*_SUB_PATH_SLASH_CORRECT_LONG_X); +fornext_entrylabel3536: +*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3536; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3536){ +if (fornext_value3536fornext_finalvalue3536) break; +} +fornext_error3536:; +if(qbevent){evnt(24436);if(r)goto S_32456;} +S_32457:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 92 )))||new_error){ +if(qbevent){evnt(24437);if(r)goto S_32457;} +do{ +tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ +tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ +tmp_long= 47 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(24437);}while(r); +} +fornext_continue_3535:; +} +fornext_exit_3535:; } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -105903,189 +112175,149 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_T,_FUNC_EVALUATE_EXPRESSION_STRING_E); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23609);}while(r); -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_B=func_instr(NULL,qbs_ucase(_FUNC_EVALUATE_EXPRESSION_STRING_E),qbs_new_txt_len("EQL",3),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23611);}while(r); -S_30957:; -if ((*_FUNC_EVALUATE_EXPRESSION_LONG_B)||new_error){ -if(qbevent){evnt(23612);if(r)goto S_30957;} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_T,func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_E,*_FUNC_EVALUATE_EXPRESSION_LONG_B+ 3 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23612);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_VAR,qbs_ucase(qbs_ltrim(qbs_rtrim(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_E, 1 ,*_FUNC_EVALUATE_EXPRESSION_LONG_B- 1 ,1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23612);}while(r); -} -do{ -*__INTEGER_QUICKRETURN= 0 ; -if(!qbevent)break;evnt(23614);}while(r); +if(!qbevent)break;evnt(24444);}while(r); do{ SUB_PREPARSE(_FUNC_EVALUATE_EXPRESSION_STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23615);}while(r); -S_30963:; -if ((*__INTEGER_QUICKRETURN)||new_error){ -if(qbevent){evnt(23617);if(r)goto S_30963;} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23617);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23617);}while(r); -} -S_30967:; +if(!qbevent)break;evnt(24445);}while(r); +S_32464:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_T, 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(23619);if(r)goto S_30967;} +if(qbevent){evnt(24448);if(r)goto S_32464;} do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23619);}while(r); +if(!qbevent)break;evnt(24448);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23619);}while(r); +if(!qbevent)break;evnt(24448);}while(r); } do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_EXPRESSION_STRING_T),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23622);}while(r); -S_30972:; +if(!qbevent)break;evnt(24451);}while(r); +S_32469:; do{ -if(qbevent){evnt(23624);if(r)goto S_30972;} +if(qbevent){evnt(24453);if(r)goto S_32469;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E=func_instr(NULL,_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_new_txt_len(")",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23625);}while(r); -S_30974:; +if(!qbevent)break;evnt(24454);}while(r); +S_32471:; if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E> 0 ))||new_error){ -if(qbevent){evnt(23626);if(r)goto S_30974;} +if(qbevent){evnt(24455);if(r)goto S_32471;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; -if(!qbevent)break;evnt(23627);}while(r); -S_30976:; +if(!qbevent)break;evnt(24456);}while(r); +S_32473:; while((!(-((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C)<=( 0 ))))||new_error){ -if(qbevent){evnt(23628);if(r)goto S_30976;} +if(qbevent){evnt(24457);if(r)goto S_32473;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(23629);}while(r); -S_30978:; +if(!qbevent)break;evnt(24458);}while(r); +S_32475:; if ((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E)||new_error){ -if(qbevent){evnt(23630);if(r)goto S_30978;} -S_30979:; +if(qbevent){evnt(24459);if(r)goto S_32475;} +S_32476:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,1),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23631);if(r)goto S_30979;} +if(qbevent){evnt(24460);if(r)goto S_32476;} do{ -goto dl_exit_3358; -if(!qbevent)break;evnt(23631);}while(r); +goto dl_exit_3540; +if(!qbevent)break;evnt(24460);}while(r); } } -dl_continue_3358:; +dl_continue_3540:; } -dl_exit_3358:; +dl_exit_3540:; do{ *_FUNC_EVALUATE_EXPRESSION_LONG_S=*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(23634);}while(r); -S_30985:; +if(!qbevent)break;evnt(24463);}while(r); +S_32482:; if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_S< 1 ))||new_error){ -if(qbevent){evnt(23635);if(r)goto S_30985;} +if(qbevent){evnt(24464);if(r)goto S_32482;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("ERROR -- BAD () Count",21)); -if (new_error) goto skip3359; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3359: -qbs_free(tqbs); +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_new_txt_len("ERROR -- BAD () Count",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23635);}while(r); +if(!qbevent)break;evnt(24464);}while(r); do{ -sub_end(); -if(!qbevent)break;evnt(23635);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(24464);}while(r); } do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_S,1)),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23636);}while(r); +if(!qbevent)break;evnt(24465);}while(r); do{ SUB_PARSEEXPRESSION(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23637);}while(r); +if(!qbevent)break;evnt(24467);}while(r); do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_ltrim(qbs_rtrim(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23639);}while(r); -S_30992:; +if(!qbevent)break;evnt(24468);}while(r); +S_32489:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL, 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(23640);if(r)goto S_30992;} +if(qbevent){evnt(24469);if(r)goto S_32489;} do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23640);}while(r); +if(!qbevent)break;evnt(24469);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23640);}while(r); +if(!qbevent)break;evnt(24469);}while(r); } do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,FUNC_DWD(qbs_add(qbs_add(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S- 2 ),_FUNC_EVALUATE_EXPRESSION_STRING_EVAL),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E+ 1 ,NULL,0)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23641);}while(r); -S_30997:; +if(!qbevent)break;evnt(24470);}while(r); +S_32494:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 , 1 ,1),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(23642);if(r)goto S_30997;} +if(qbevent){evnt(24471);if(r)goto S_32494;} do{ sub_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 ,0,qbs_new_txt_len("-",1),0); -if(!qbevent)break;evnt(23642);}while(r); +if(!qbevent)break;evnt(24471);}while(r); } -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_TEMPPP,FUNC_DWD(qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S- 2 ),qbs_new_txt_len(" ## ",4)),_FUNC_EVALUATE_EXPRESSION_STRING_EVAL),qbs_new_txt_len(" ## ",4)),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*__LONG_E+ 1 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23644);}while(r); } -S_31002:; -dl_continue_3357:; +S_32498:; +dl_continue_3539:; }while((!(-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E== 0 )))&&(!new_error)); -dl_exit_3357:; -if(qbevent){evnt(23646);if(r)goto S_31002;} +dl_exit_3539:; +if(qbevent){evnt(24473);if(r)goto S_32498;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; -if(!qbevent)break;evnt(23647);}while(r); -S_31004:; +if(!qbevent)break;evnt(24474);}while(r); +S_32500:; do{ -if(qbevent){evnt(23648);if(r)goto S_31004;} +if(qbevent){evnt(24475);if(r)goto S_32500;} do{ *_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(23649);}while(r); -S_31006:; -qbs_set(sc_3361,func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,1)); +if(!qbevent)break;evnt(24476);}while(r); +S_32502:; +qbs_set(sc_3542,func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23650);if(r)goto S_31006;} -S_31007:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(sc_3361,qbs_new_txt_len("0",1))&&qbs_lessorequal(sc_3361,qbs_new_txt_len("9",1)))||qbs_equal(sc_3361,qbs_new_txt_len(".",1))||qbs_equal(sc_3361,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23651);if(r)goto S_31007;} -goto sc_3361_end; +if(qbevent){evnt(24477);if(r)goto S_32502;} +S_32503:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(sc_3542,qbs_new_txt_len("0",1))&&qbs_lessorequal(sc_3542,qbs_new_txt_len("9",1)))||qbs_equal(sc_3542,qbs_new_txt_len(".",1))||qbs_equal(sc_3542,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24478);if(r)goto S_32503;} +sc_ec_60_end:; +goto sc_3542_end; } do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Unknown Diagnosis: (",28),_FUNC_EVALUATE_EXPRESSION_STRING_EXP),qbs_new_txt_len(") ",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23652);}while(r); +if(!qbevent)break;evnt(24479);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23652);}while(r); -sc_3361_end:; -S_31012:; -dl_continue_3360:; +if(!qbevent)break;evnt(24479);}while(r); +sc_3542_end:; +S_32508:; +dl_continue_3541:; }while((!(qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATE_EXPRESSION_LONG_C>=_FUNC_EVALUATE_EXPRESSION_STRING_EXP->len))))&&(!new_error)); -dl_exit_3360:; -if(qbevent){evnt(23654);if(r)goto S_31012;} +dl_exit_3541:; +if(qbevent){evnt(24481);if(r)goto S_32508;} do{ qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EXP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23656);}while(r); +if(!qbevent)break;evnt(24483);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free73.txt" @@ -106112,7 +112344,7 @@ if (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&2){ error(10); }else{ if (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4]= 0 ; _SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]=( 10 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4]+1; @@ -106128,327 +112360,371 @@ while(tmp_long--) ((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long } } } -if(!qbevent)break;evnt(23662);}while(r); -S_31015:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PARSEEXPRESSION_STRING_EXP, 2 , 1 ,1),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23664);if(r)goto S_31015;} +if(!qbevent)break;evnt(24489);}while(r); do{ -qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_add(qbs_new_txt_len("0+",2),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP, 2 ,NULL,0))); +qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,FUNC_DWD(_SUB_PARSEEXPRESSION_STRING_EXP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23664);}while(r); -} -S_31018:; -fornext_value3365= 1 ; -fornext_finalvalue3365= 250 ; -fornext_step3365= 1 ; -if (fornext_step3365<0) fornext_step_negative3365=1; else fornext_step_negative3365=0; -if (new_error) goto fornext_error3365; -goto fornext_entrylabel3365; +if(!qbevent)break;evnt(24491);}while(r); +S_32512:; +fornext_value3546= 1 ; +fornext_finalvalue3546= 250 ; +fornext_step3546= 1 ; +if (fornext_step3546<0) fornext_step_negative3546=1; else fornext_step_negative3546=0; +if (new_error) goto fornext_error3546; +goto fornext_entrylabel3546; while(1){ -fornext_value3365=fornext_step3365+(*_SUB_PARSEEXPRESSION_LONG_J); -fornext_entrylabel3365: -*_SUB_PARSEEXPRESSION_LONG_J=fornext_value3365; -if (fornext_step_negative3365){ -if (fornext_value3365fornext_finalvalue3365) break; +if (fornext_value3546>fornext_finalvalue3546) break; } -fornext_error3365:; -if(qbevent){evnt(23665);if(r)goto S_31018;} +fornext_error3546:; +if(qbevent){evnt(24494);if(r)goto S_32512;} do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST= 0 ; -if(!qbevent)break;evnt(23666);}while(r); -S_31020:; +if(!qbevent)break;evnt(24495);}while(r); +S_32514:; while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_PARSEEXPRESSION_LONG_LOWEST==_SUB_PARSEEXPRESSION_STRING_EXP->len))))||new_error){ -if(qbevent){evnt(23667);if(r)goto S_31020;} +if(qbevent){evnt(24496);if(r)goto S_32514;} do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST=_SUB_PARSEEXPRESSION_STRING_EXP->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23668);}while(r); +if(!qbevent)break;evnt(24497);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_OPON= 0 ; -if(!qbevent)break;evnt(23668);}while(r); -S_31023:; -fornext_value3370= 1 ; -fornext_finalvalue3370=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3370= 1 ; -if (fornext_step3370<0) fornext_step_negative3370=1; else fornext_step_negative3370=0; -if (new_error) goto fornext_error3370; -goto fornext_entrylabel3370; +if(!qbevent)break;evnt(24497);}while(r); +S_32517:; +fornext_value3551= 1 ; +fornext_finalvalue3551=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3551= 1 ; +if (fornext_step3551<0) fornext_step_negative3551=1; else fornext_step_negative3551=0; +if (new_error) goto fornext_error3551; +goto fornext_entrylabel3551; while(1){ -fornext_value3370=fornext_step3370+(*_SUB_PARSEEXPRESSION_LONG_P); -fornext_entrylabel3370: -*_SUB_PARSEEXPRESSION_LONG_P=fornext_value3370; +fornext_value3551=fornext_step3551+(*_SUB_PARSEEXPRESSION_LONG_P); +fornext_entrylabel3551: +*_SUB_PARSEEXPRESSION_LONG_P=fornext_value3551; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3370){ -if (fornext_value3370fornext_finalvalue3370) break; +if (fornext_value3551>fornext_finalvalue3551) break; } -fornext_error3370:; -if(qbevent){evnt(23669);if(r)goto S_31023;} -S_31024:; +fornext_error3551:; +if(qbevent){evnt(24498);if(r)goto S_32517;} +S_32518:; if ((-(*_SUB_PARSEEXPRESSION_LONG_J==((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]))||new_error){ -if(qbevent){evnt(23671);if(r)goto S_31024;} -S_31025:; +if(qbevent){evnt(24500);if(r)goto S_32518;} +S_32519:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23672);if(r)goto S_31025;} +if(qbevent){evnt(24501);if(r)goto S_32519;} do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr( 2 ,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23672);}while(r); +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; +if(!qbevent)break;evnt(24501);}while(r); }else{ do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(NULL,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23672);}while(r); +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; +if(!qbevent)break;evnt(24501);}while(r); } -S_31030:; +do{ +*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24502);}while(r); +S_32525:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PARSEEXPRESSION_LONG_OP== 0 ))&(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(24503);if(r)goto S_32525;} +do{ +*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24505);}while(r); +S_32527:; +if ((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))||new_error){ +if(qbevent){evnt(24506);if(r)goto S_32527;} +do{ +qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 1 ),qbs_new_txt_len("_",1)),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24507);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_LOWEST+ 1 ; +if(!qbevent)break;evnt(24508);}while(r); +} +} +S_32532:; if (((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))&(-(*_SUB_PARSEEXPRESSION_LONG_OP<*_SUB_PARSEEXPRESSION_LONG_LOWEST)))||new_error){ -if(qbevent){evnt(23673);if(r)goto S_31030;} +if(qbevent){evnt(24511);if(r)goto S_32532;} do{ *_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_OP; -if(!qbevent)break;evnt(23673);}while(r); +if(!qbevent)break;evnt(24511);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_OPON=*_SUB_PARSEEXPRESSION_LONG_P; -if(!qbevent)break;evnt(23673);}while(r); +if(!qbevent)break;evnt(24511);}while(r); } } -fornext_continue_3369:; +fornext_continue_3550:; } -fornext_exit_3369:; -S_31036:; +fornext_exit_3550:; +S_32538:; if ((-(*_SUB_PARSEEXPRESSION_LONG_OPON== 0 ))||new_error){ -if(qbevent){evnt(23676);if(r)goto S_31036;} +if(qbevent){evnt(24514);if(r)goto S_32538;} do{ -goto dl_exit_3367; -if(!qbevent)break;evnt(23676);}while(r); +goto dl_exit_3548; +if(!qbevent)break;evnt(24514);}while(r); } -S_31039:; +S_32541:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23677);if(r)goto S_31039;} +if(qbevent){evnt(24515);if(r)goto S_32541;} do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr( 2 ,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23677);}while(r); +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; +if(!qbevent)break;evnt(24515);}while(r); }else{ do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(NULL,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23677);}while(r); +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; +if(!qbevent)break;evnt(24515);}while(r); } do{ +*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24516);}while(r); +do{ *_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; -if(!qbevent)break;evnt(23678);}while(r); -S_31045:; +if(!qbevent)break;evnt(24518);}while(r); +S_32548:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23681);if(r)goto S_31045;} -S_31046:; -qbs_set(sc_3371,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 3 ,1)); +if(qbevent){evnt(24521);if(r)goto S_32548;} +S_32549:; +qbs_set(sc_3552,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23682);if(r)goto S_31046;} -S_31047:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3371,qbs_new_txt_len("NOT",3))||qbs_equal(sc_3371,qbs_new_txt_len("XOR",3))||qbs_equal(sc_3371,qbs_new_txt_len("AND",3))||qbs_equal(sc_3371,qbs_new_txt_len("EQV",3))||qbs_equal(sc_3371,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(23683);if(r)goto S_31047;} +if(qbevent){evnt(24522);if(r)goto S_32549;} +S_32550:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3552,qbs_new_txt_len("NOT",3))||qbs_equal(sc_3552,qbs_new_txt_len("XOR",3))||qbs_equal(sc_3552,qbs_new_txt_len("AND",3))||qbs_equal(sc_3552,qbs_new_txt_len("EQV",3))||qbs_equal(sc_3552,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(24523);if(r)goto S_32550;} do{ -goto dl_exit_3367; -if(!qbevent)break;evnt(23684);}while(r); -goto sc_3371_end; +goto dl_exit_3548; +if(!qbevent)break;evnt(24524);}while(r); +sc_ec_61_end:; +goto sc_3552_end; } -sc_3371_end:; -S_31050:; +sc_3552_end:; +S_32553:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 2 ,1),qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(23686);if(r)goto S_31050;} +if(qbevent){evnt(24526);if(r)goto S_32553;} do{ -goto dl_exit_3367; -if(!qbevent)break;evnt(23686);}while(r); +goto dl_exit_3548; +if(!qbevent)break;evnt(24526);}while(r); } } -S_31054:; +S_32557:; if ((*_SUB_PARSEEXPRESSION_LONG_OP)||new_error){ -if(qbevent){evnt(23689);if(r)goto S_31054;} +if(qbevent){evnt(24529);if(r)goto S_32557;} do{ *_SUB_PARSEEXPRESSION_LONG_C=((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23690);}while(r); -S_31056:; +if(!qbevent)break;evnt(24530);}while(r); +S_32559:; do{ -if(qbevent){evnt(23691);if(r)goto S_31056;} -S_31057:; -qbs_set(sc_3374,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C+ 1 , 1 ,1)); +if(qbevent){evnt(24531);if(r)goto S_32559;} +S_32560:; +qbs_set(sc_3555,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C+ 1 , 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23692);if(r)goto S_31057;} -S_31058:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3374,qbs_new_txt_len("0",1))||qbs_equal(sc_3374,qbs_new_txt_len("1",1))||qbs_equal(sc_3374,qbs_new_txt_len("2",1))||qbs_equal(sc_3374,qbs_new_txt_len("3",1))||qbs_equal(sc_3374,qbs_new_txt_len("4",1))||qbs_equal(sc_3374,qbs_new_txt_len("5",1))||qbs_equal(sc_3374,qbs_new_txt_len("6",1))||qbs_equal(sc_3374,qbs_new_txt_len("7",1))||qbs_equal(sc_3374,qbs_new_txt_len("8",1))||qbs_equal(sc_3374,qbs_new_txt_len("9",1))||qbs_equal(sc_3374,qbs_new_txt_len(".",1))||qbs_equal(sc_3374,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(23693);if(r)goto S_31058;} +if(qbevent){evnt(24532);if(r)goto S_32560;} +S_32561:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3555,qbs_new_txt_len("0",1))||qbs_equal(sc_3555,qbs_new_txt_len("1",1))||qbs_equal(sc_3555,qbs_new_txt_len("2",1))||qbs_equal(sc_3555,qbs_new_txt_len("3",1))||qbs_equal(sc_3555,qbs_new_txt_len("4",1))||qbs_equal(sc_3555,qbs_new_txt_len("5",1))||qbs_equal(sc_3555,qbs_new_txt_len("6",1))||qbs_equal(sc_3555,qbs_new_txt_len("7",1))||qbs_equal(sc_3555,qbs_new_txt_len("8",1))||qbs_equal(sc_3555,qbs_new_txt_len("9",1))||qbs_equal(sc_3555,qbs_new_txt_len(".",1))||qbs_equal(sc_3555,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24533);if(r)goto S_32561;} do{ *_SUB_PARSEEXPRESSION_LONG_NUMSET= -1 ; -if(!qbevent)break;evnt(23693);}while(r); -goto sc_3374_end; +if(!qbevent)break;evnt(24533);}while(r); +sc_ec_62_end:; +goto sc_3555_end; } -S_31060:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3374,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23694);if(r)goto S_31060;} -S_31061:; +S_32563:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3555,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24534);if(r)goto S_32563;} +S_32564:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),qbs_new_txt_len("_PI",3)))|*_SUB_PARSEEXPRESSION_LONG_NUMSET))||new_error){ -if(qbevent){evnt(23695);if(r)goto S_31061;} +if(qbevent){evnt(24535);if(r)goto S_32564;} do{ -goto dl_exit_3373; -if(!qbevent)break;evnt(23695);}while(r); +goto dl_exit_3554; +if(!qbevent)break;evnt(24535);}while(r); } -goto sc_3374_end; +sc_ec_63_end:; +goto sc_3555_end; +} +S_32567:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3555,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(24536);if(r)goto S_32567;} +do{ +*_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; +if(!qbevent)break;evnt(24536);}while(r); +sc_ec_64_end:; +goto sc_3555_end; } do{ -goto dl_exit_3373; -if(!qbevent)break;evnt(23697);}while(r); -sc_3374_end:; +goto dl_exit_3554; +if(!qbevent)break;evnt(24538);}while(r); +sc_3555_end:; do{ *_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(23699);}while(r); -S_31068:; -dl_continue_3373:; +if(!qbevent)break;evnt(24540);}while(r); +S_32573:; +dl_continue_3554:; }while((!(qbs_cleanup(qbs_tmp_base,-((*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C)>=(_SUB_PARSEEXPRESSION_STRING_EXP->len)))))&&(!new_error)); -dl_exit_3373:; -if(qbevent){evnt(23700);if(r)goto S_31068;} +dl_exit_3554:; +if(qbevent){evnt(24541);if(r)goto S_32573;} do{ *__LONG_E=*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C; -if(!qbevent)break;evnt(23701);}while(r); +if(!qbevent)break;evnt(24542);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_C= 0 ; -if(!qbevent)break;evnt(23703);}while(r); -S_31071:; +if(!qbevent)break;evnt(24544);}while(r); +S_32576:; do{ -if(qbevent){evnt(23704);if(r)goto S_31071;} +if(qbevent){evnt(24545);if(r)goto S_32576;} do{ *_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(23705);}while(r); -S_31073:; -qbs_set(sc_3377,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C, 1 ,1)); +if(!qbevent)break;evnt(24546);}while(r); +S_32578:; +qbs_set(sc_3558,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23706);if(r)goto S_31073;} -S_31074:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3377,qbs_new_txt_len("0",1))||qbs_equal(sc_3377,qbs_new_txt_len("1",1))||qbs_equal(sc_3377,qbs_new_txt_len("2",1))||qbs_equal(sc_3377,qbs_new_txt_len("3",1))||qbs_equal(sc_3377,qbs_new_txt_len("4",1))||qbs_equal(sc_3377,qbs_new_txt_len("5",1))||qbs_equal(sc_3377,qbs_new_txt_len("6",1))||qbs_equal(sc_3377,qbs_new_txt_len("7",1))||qbs_equal(sc_3377,qbs_new_txt_len("8",1))||qbs_equal(sc_3377,qbs_new_txt_len("9",1))||qbs_equal(sc_3377,qbs_new_txt_len(".",1))||qbs_equal(sc_3377,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(23707);if(r)goto S_31074;} -goto sc_3377_end; +if(qbevent){evnt(24547);if(r)goto S_32578;} +S_32579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3558,qbs_new_txt_len("0",1))||qbs_equal(sc_3558,qbs_new_txt_len("1",1))||qbs_equal(sc_3558,qbs_new_txt_len("2",1))||qbs_equal(sc_3558,qbs_new_txt_len("3",1))||qbs_equal(sc_3558,qbs_new_txt_len("4",1))||qbs_equal(sc_3558,qbs_new_txt_len("5",1))||qbs_equal(sc_3558,qbs_new_txt_len("6",1))||qbs_equal(sc_3558,qbs_new_txt_len("7",1))||qbs_equal(sc_3558,qbs_new_txt_len("8",1))||qbs_equal(sc_3558,qbs_new_txt_len("9",1))||qbs_equal(sc_3558,qbs_new_txt_len(".",1))||qbs_equal(sc_3558,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24548);if(r)goto S_32579;} +sc_ec_65_end:; +goto sc_3558_end; } -S_31075:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3377,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23708);if(r)goto S_31075;} +S_32580:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3558,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24549);if(r)goto S_32580;} do{ *_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C; -if(!qbevent)break;evnt(23709);}while(r); +if(!qbevent)break;evnt(24550);}while(r); do{ *_SUB_PARSEEXPRESSION_LONG_BAD= 0 ; -if(!qbevent)break;evnt(23710);}while(r); -S_31078:; +if(!qbevent)break;evnt(24551);}while(r); +S_32583:; do{ -if(qbevent){evnt(23711);if(r)goto S_31078;} +if(qbevent){evnt(24552);if(r)goto S_32583;} do{ *_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C1+ 1 ; -if(!qbevent)break;evnt(23712);}while(r); -S_31080:; -qbs_set(sc_3379,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1, 1 ,1)); +if(!qbevent)break;evnt(24553);}while(r); +S_32585:; +qbs_set(sc_3560,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23713);if(r)goto S_31080;} -S_31081:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3379,qbs_new_txt_len("0",1))||qbs_equal(sc_3379,qbs_new_txt_len("1",1))||qbs_equal(sc_3379,qbs_new_txt_len("2",1))||qbs_equal(sc_3379,qbs_new_txt_len("3",1))||qbs_equal(sc_3379,qbs_new_txt_len("4",1))||qbs_equal(sc_3379,qbs_new_txt_len("5",1))||qbs_equal(sc_3379,qbs_new_txt_len("6",1))||qbs_equal(sc_3379,qbs_new_txt_len("7",1))||qbs_equal(sc_3379,qbs_new_txt_len("8",1))||qbs_equal(sc_3379,qbs_new_txt_len("9",1))||qbs_equal(sc_3379,qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(23714);if(r)goto S_31081;} +if(qbevent){evnt(24554);if(r)goto S_32585;} +S_32586:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3560,qbs_new_txt_len("0",1))||qbs_equal(sc_3560,qbs_new_txt_len("1",1))||qbs_equal(sc_3560,qbs_new_txt_len("2",1))||qbs_equal(sc_3560,qbs_new_txt_len("3",1))||qbs_equal(sc_3560,qbs_new_txt_len("4",1))||qbs_equal(sc_3560,qbs_new_txt_len("5",1))||qbs_equal(sc_3560,qbs_new_txt_len("6",1))||qbs_equal(sc_3560,qbs_new_txt_len("7",1))||qbs_equal(sc_3560,qbs_new_txt_len("8",1))||qbs_equal(sc_3560,qbs_new_txt_len("9",1))||qbs_equal(sc_3560,qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(24555);if(r)goto S_32586;} do{ *_SUB_PARSEEXPRESSION_LONG_BAD= -1 ; -if(!qbevent)break;evnt(23715);}while(r); +if(!qbevent)break;evnt(24556);}while(r); do{ -goto dl_exit_3378; -if(!qbevent)break;evnt(23716);}while(r); -goto sc_3379_end; +goto dl_exit_3559; +if(!qbevent)break;evnt(24557);}while(r); +sc_ec_66_end:; +goto sc_3560_end; } -sc_3379_end:; -S_31086:; -dl_continue_3378:; +sc_3560_end:; +S_32591:; +dl_continue_3559:; }while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1)<=( 0 ))))&&(!new_error)); -dl_exit_3378:; -if(qbevent){evnt(23720);if(r)goto S_31086;} -S_31087:; +dl_exit_3559:; +if(qbevent){evnt(24561);if(r)goto S_32591;} +S_32592:; if ((*_SUB_PARSEEXPRESSION_LONG_BAD)||new_error){ -if(qbevent){evnt(23721);if(r)goto S_31087;} +if(qbevent){evnt(24562);if(r)goto S_32592;} do{ -goto dl_exit_3376; -if(!qbevent)break;evnt(23721);}while(r); +goto dl_exit_3557; +if(!qbevent)break;evnt(24562);}while(r); } -goto sc_3377_end; +sc_ec_67_end:; +goto sc_3558_end; } do{ -goto dl_exit_3376; -if(!qbevent)break;evnt(23723);}while(r); -sc_3377_end:; -S_31093:; -dl_continue_3376:; +goto dl_exit_3557; +if(!qbevent)break;evnt(24564);}while(r); +sc_3558_end:; +S_32598:; +dl_continue_3557:; }while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C)<=( 0 ))))&&(!new_error)); -dl_exit_3376:; -if(qbevent){evnt(23725);if(r)goto S_31093;} +dl_exit_3557:; +if(qbevent){evnt(24566);if(r)goto S_32598;} do{ *_SUB_PARSEEXPRESSION_LONG_S=*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C; -if(!qbevent)break;evnt(23726);}while(r); +if(!qbevent)break;evnt(24567);}while(r); do{ tmp_long=array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_S+ 1 ,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_S- 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23727);}while(r); +if(!qbevent)break;evnt(24568);}while(r); do{ tmp_long=array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,*__LONG_E-*_SUB_PARSEEXPRESSION_LONG_OP-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23728);}while(r); -S_31097:; +if(!qbevent)break;evnt(24569);}while(r); +S_32602:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,1),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(23729);if(r)goto S_31097;} +if(qbevent){evnt(24570);if(r)goto S_32602;} do{ sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("-",1),0); -if(!qbevent)break;evnt(23729);}while(r); +if(!qbevent)break;evnt(24570);}while(r); } -S_31100:; +S_32605:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,1),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(23730);if(r)goto S_31100;} +if(qbevent){evnt(24571);if(r)goto S_32605;} do{ sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("-",1),0); -if(!qbevent)break;evnt(23730);}while(r); +if(!qbevent)break;evnt(24571);}while(r); } +S_32608:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24572);if(r)goto S_32608;} +do{ +tmp_long=array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_add(qbs_new_txt_len("N",1),FUNC_EVALUATENUMBERS(_SUB_PARSEEXPRESSION_LONG_OPON,_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24573);}while(r); +}else{ do{ tmp_long=array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),FUNC_EVALUATENUMBERS(_SUB_PARSEEXPRESSION_LONG_OPON,_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23731);}while(r); -S_31104:; +if(!qbevent)break;evnt(24575);}while(r); +} +S_32613:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,1),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23732);if(r)goto S_31104;} +if(qbevent){evnt(24577);if(r)goto S_32613;} do{ sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("N",1),0); -if(!qbevent)break;evnt(23732);}while(r); +if(!qbevent)break;evnt(24577);}while(r); } -S_31107:; +S_32616:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(23735);if(r)goto S_31107;} +if(qbevent){evnt(24578);if(r)goto S_32616;} do{ qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23735);}while(r); +if(!qbevent)break;evnt(24578);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23735);}while(r); +if(!qbevent)break;evnt(24578);}while(r); } do{ qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_ltrim(FUNC_N2S(FUNC_DWD(qbs_add(qbs_add(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_S),qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])]))))),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*__LONG_E+ 1 ,NULL,0)))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23736);}while(r); +if(!qbevent)break;evnt(24579);}while(r); } do{ *_SUB_PARSEEXPRESSION_LONG_OP= 0 ; -if(!qbevent)break;evnt(23739);}while(r); -dl_continue_3367:; +if(!qbevent)break;evnt(24581);}while(r); +dl_continue_3548:; } -dl_exit_3367:; -fornext_continue_3364:; +dl_exit_3548:; +fornext_continue_3545:; } -fornext_exit_3364:; +fornext_exit_3545:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free74.txt" @@ -106469,41 +112745,19 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(23753);}while(r); -do{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); }else{ ((mem_lock*)((ptrszint*)__ARRAY_STRING_ONAME)[8])->id=(++mem_lock_id); -static int32 preserved_elements; if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; +tmp_long=__ARRAY_STRING_ONAME[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_ONAME[0])); } -else preserved_elements=0; __ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; +__ARRAY_STRING_ONAME[5]=( 10000 )-__ARRAY_STRING_ONAME[4]+1; __ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); +if (__ARRAY_INTEGER_PL[2]&1){ +if (__ARRAY_INTEGER_PL[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); +}else{ +free((void*)(__ARRAY_INTEGER_PL[0])); } -if(!qbevent)break;evnt(23753);}while(r); +} +__ARRAY_INTEGER_PL[4]= 0 ; +__ARRAY_INTEGER_PL[5]=( 10000 )-__ARRAY_INTEGER_PL[4]+1; +__ARRAY_INTEGER_PL[6]=1; +if (__ARRAY_INTEGER_PL[2]&4){ +__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_INTEGER_PL[5]*2); +memset((void*)(__ARRAY_INTEGER_PL[0]),0,__ARRAY_INTEGER_PL[5]*2); +}else{ +__ARRAY_INTEGER_PL[0]=(ptrszint)calloc(__ARRAY_INTEGER_PL[5]*2,1); +if (!__ARRAY_INTEGER_PL[0]) error(257); +} +__ARRAY_INTEGER_PL[2]|=1; +} +if(!qbevent)break;evnt(24593);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24596);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UOF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24596);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24596);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24597);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_OF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24597);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24597);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24598);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UBY",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24598);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24598);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24599);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BY",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24599);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24599);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24600);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24600);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24600);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24601);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_IN",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24601);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24601);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24602);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UIF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24602);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24602);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24603);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_IF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24603);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24603);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24604);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_ULO",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24604);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24604);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24605);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_LO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24605);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24605);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24606);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_SI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24606);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24606);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24607);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_FL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24607);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24607);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24608);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_DO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24608);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24608);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24609);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UBI",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24609);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24609);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24610);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24610);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24610);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24613);}while(r); do{ tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_PI",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23753);}while(r); -do{ - -if (__ARRAY_INTEGER_PL[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23846);}while(r); -do{ - -if (__ARRAY_INTEGER_PL[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2<",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23848);}while(r); -do{ - -if (__ARRAY_INTEGER_PL[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23852);}while(r); -do{ - -if (__ARRAY_INTEGER_PL[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23856);}while(r); -do{ - -if (__ARRAY_INTEGER_PL[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23858);}while(r); -do{ - -if (__ARRAY_INTEGER_PL[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementsid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_STRING_ONAME[2]&1){ -preserved_elements=__ARRAY_STRING_ONAME[5]; -} -else preserved_elements=0; -__ARRAY_STRING_ONAME[4]= 0 ; -__ARRAY_STRING_ONAME[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4]+1; -__ARRAY_STRING_ONAME[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=__ARRAY_STRING_ONAME[5]; -if (tmp_long2id=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_INTEGER_PL[2]&1){ -preserved_elements=__ARRAY_INTEGER_PL[5]; -} -else preserved_elements=0; -__ARRAY_INTEGER_PL[4]= 0 ; -__ARRAY_INTEGER_PL[5]=(*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4]+1; -__ARRAY_INTEGER_PL[6]=1; -if (__ARRAY_INTEGER_PL[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_PL[0]),preserved_elements*2); -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_PL[0])); -tmp_long=__ARRAY_INTEGER_PL[5]; -__ARRAY_INTEGER_PL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); -memcpy((void*)(__ARRAY_INTEGER_PL[0]),redim_preserve_cmem_buffer,preserved_elements*2); -if (preserved_elementstype=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(23881);}while(r); -S_31397:; -qbs_set(sc_3382,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(23882);if(r)goto S_31397;} -S_31398:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_PI",3))))||new_error){ -if(qbevent){evnt(23883);if(r)goto S_31398;} +if(!qbevent)break;evnt(24695);}while(r); +S_32877:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24698);if(r)goto S_32877;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 3.14159265358979323846264338327950288E+0L ; -if(!qbevent)break;evnt(23883);}while(r); -goto sc_3382_end; -} -S_31400:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(23884);if(r)goto S_31400;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))/ 100 ; +tmp_long=array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23884);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24698);}while(r); } -S_31402:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_ACOS",5))))||new_error){ -if(qbevent){evnt(23885);if(r)goto S_31402;} +S_32880:; +if ((qbs_cleanup(qbs_tmp_base,(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]>= 20 ))&(((-(((int32)(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))->len)== 0 ))|(-(((int32)(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))->len)== 0 ))))))||new_error){ +if(qbevent){evnt(24700);if(r)goto S_32880;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=acos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Missing operand",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23885);}while(r); -goto sc_3382_end; -} -S_31404:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_ASIN",5))))||new_error){ -if(qbevent){evnt(23886);if(r)goto S_31404;} +if(!qbevent)break;evnt(24701);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=asin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23886);}while(r); -goto sc_3382_end; +goto exit_subfunc; +if(!qbevent)break;evnt(24701);}while(r); } -S_31406:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_ARCSEC",7))))||new_error){ -if(qbevent){evnt(23887);if(r)goto S_31406;} +S_32884:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len(",",1),0)))||new_error){ +if(qbevent){evnt(24704);if(r)goto S_32884;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arcsec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma (",23),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23887);}while(r); -goto sc_3382_end; -} -S_31408:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_ARCCSC",7))))||new_error){ -if(qbevent){evnt(23888);if(r)goto S_31408;} +if(!qbevent)break;evnt(24705);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccsc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23888);}while(r); -goto sc_3382_end; +goto exit_subfunc; +if(!qbevent)break;evnt(24705);}while(r); } -S_31410:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_ARCCOT",7))))||new_error){ -if(qbevent){evnt(23889);if(r)goto S_31410;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_LONG_L2=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len(",",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23889);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24707);}while(r); +S_32889:; +if ((*_FUNC_EVALUATENUMBERS_LONG_L2)||new_error){ +if(qbevent){evnt(24708);if(r)goto S_32889;} +S_32890:; +qbs_set(sc_3563,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24709);if(r)goto S_32890;} +S_32891:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3563,qbs_new_txt_len("C_RG",4))||qbs_equal(sc_3563,qbs_new_txt_len("C_RA",4))||qbs_equal(sc_3563,qbs_new_txt_len("_RGB",4))||qbs_equal(sc_3563,qbs_new_txt_len("_RGBA",5))||qbs_equal(sc_3563,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3563,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3563,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3563,qbs_new_txt_len("_ALPHA",6))))||new_error){ +if(qbevent){evnt(24710);if(r)goto S_32891;} +sc_ec_68_end:; +goto sc_3563_end; } -S_31412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_SECH",5))))||new_error){ -if(qbevent){evnt(23890);if(r)goto S_31412;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sech(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_C,func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_L2,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23890);}while(r); -goto sc_3382_end; -} -S_31414:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_CSCH",5))))||new_error){ -if(qbevent){evnt(23891);if(r)goto S_31414;} +if(!qbevent)break;evnt(24712);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csch(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +tmp_long=array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_L2- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23891);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24713);}while(r); +sc_3563_end:; } -S_31416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_COTH",5))))||new_error){ -if(qbevent){evnt(23892);if(r)goto S_31416;} +S_32897:; +sc_3564=((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]; +if(qbevent){evnt(24717);if(r)goto S_32897;} +S_32898:; +if (((sc_3564==( 5 )))||new_error){ +if(qbevent){evnt(24718);if(r)goto S_32898;} +S_32899:; +qbs_set(sc_3565,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24720);if(r)goto S_32899;} +S_32900:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_UOF",5))))||new_error){ +if(qbevent){evnt(24721);if(r)goto S_32900;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_coth(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_UOFFSET_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23892);}while(r); -goto sc_3382_end; -} -S_31418:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("COS",3))))||new_error){ -if(qbevent){evnt(23893);if(r)goto S_31418;} +if(!qbevent)break;evnt(24721);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=cos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint64)(*_FUNC_EVALUATENUMBERS_UOFFSET_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23893);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24721);}while(r); +sc_ec_69_end:; +goto sc_3565_end; } -S_31420:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("SIN",3))))||new_error){ -if(qbevent){evnt(23894);if(r)goto S_31420;} +S_32903:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_ULO",5))))||new_error){ +if(qbevent){evnt(24722);if(r)goto S_32903;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=sin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_OFFSET_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23894);}while(r); -goto sc_3382_end; -} -S_31422:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("TAN",3))))||new_error){ -if(qbevent){evnt(23895);if(r)goto S_31422;} +if(!qbevent)break;evnt(24722);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=tan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_OFFSET_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23895);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24722);}while(r); +sc_ec_70_end:; +goto sc_3565_end; } -S_31424:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("LOG",3))))||new_error){ -if(qbevent){evnt(23896);if(r)goto S_31424;} +S_32906:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_UBY",5))))||new_error){ +if(qbevent){evnt(24723);if(r)goto S_32906;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_log(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_UBYTE_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23896);}while(r); -goto sc_3382_end; -} -S_31426:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("EXP",3))))||new_error){ -if(qbevent){evnt(23897);if(r)goto S_31426;} +if(!qbevent)break;evnt(24723);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_exp_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint8)(*_FUNC_EVALUATENUMBERS_UBYTE_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23897);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24723);}while(r); +sc_ec_71_end:; +goto sc_3565_end; } -S_31428:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("ATN",3))))||new_error){ -if(qbevent){evnt(23898);if(r)goto S_31428;} +S_32909:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_UIN",5))))||new_error){ +if(qbevent){evnt(24724);if(r)goto S_32909;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=atan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_UINTEGER_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23898);}while(r); -goto sc_3382_end; -} -S_31430:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_D2R",4))))||new_error){ -if(qbevent){evnt(23899);if(r)goto S_31430;} +if(!qbevent)break;evnt(24724);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.0174532925E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint16)(*_FUNC_EVALUATENUMBERS_UINTEGER_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23899);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24724);}while(r); +sc_ec_72_end:; +goto sc_3565_end; } -S_31432:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_D2G",4))))||new_error){ -if(qbevent){evnt(23900);if(r)goto S_31432;} +S_32912:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_BY",4))))||new_error){ +if(qbevent){evnt(24725);if(r)goto S_32912;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 1.1111111111E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_BYTE_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23900);}while(r); -goto sc_3382_end; -} -S_31434:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_R2D",4))))||new_error){ -if(qbevent){evnt(23901);if(r)goto S_31434;} +if(!qbevent)break;evnt(24725);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 57.2957795E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int8)(*_FUNC_EVALUATENUMBERS_BYTE_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23901);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24725);}while(r); +sc_ec_73_end:; +goto sc_3565_end; } -S_31436:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_R2G",4))))||new_error){ -if(qbevent){evnt(23902);if(r)goto S_31436;} +S_32915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_IN",4))))||new_error){ +if(qbevent){evnt(24726);if(r)goto S_32915;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.015707963E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_INTEGER_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23902);}while(r); -goto sc_3382_end; -} -S_31438:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_G2D",4))))||new_error){ -if(qbevent){evnt(23903);if(r)goto S_31438;} +if(!qbevent)break;evnt(24726);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.9E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int16)(*_FUNC_EVALUATENUMBERS_INTEGER_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23903);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24726);}while(r); +sc_ec_74_end:; +goto sc_3565_end; } -S_31440:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_G2R",4))))||new_error){ -if(qbevent){evnt(23904);if(r)goto S_31440;} +S_32918:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_UIF",5))))||new_error){ +if(qbevent){evnt(24727);if(r)goto S_32918;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 63.661977237E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_UINTEGER64_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23904);}while(r); -goto sc_3382_end; -} -S_31442:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("ABS",3))))||new_error){ -if(qbevent){evnt(23905);if(r)goto S_31442;} +if(!qbevent)break;evnt(24727);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint64)(*_FUNC_EVALUATENUMBERS_UINTEGER64_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23905);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24727);}while(r); +sc_ec_75_end:; +goto sc_3565_end; } -S_31444:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("SGN",3))))||new_error){ -if(qbevent){evnt(23906);if(r)goto S_31444;} +S_32921:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_OF",4))))||new_error){ +if(qbevent){evnt(24728);if(r)goto S_32921;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sgn((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +*_FUNC_EVALUATENUMBERS_ULONG_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23906);}while(r); -goto sc_3382_end; -} -S_31446:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("INT",3))))||new_error){ -if(qbevent){evnt(23907);if(r)goto S_31446;} +if(!qbevent)break;evnt(24728);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=floor(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint32)(*_FUNC_EVALUATENUMBERS_ULONG_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23907);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24728);}while(r); +sc_ec_76_end:; +goto sc_3565_end; } -S_31448:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_ROUND",6))))||new_error){ -if(qbevent){evnt(23908);if(r)goto S_31448;} +S_32924:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_IF",4))))||new_error){ +if(qbevent){evnt(24729);if(r)goto S_32924;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_round_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_INTEGER64_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23908);}while(r); -goto sc_3382_end; -} -S_31450:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("FIX",3))))||new_error){ -if(qbevent){evnt(23909);if(r)goto S_31450;} +if(!qbevent)break;evnt(24729);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_INTEGER64_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23909);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24729);}while(r); +sc_ec_77_end:; +goto sc_3565_end; } -S_31452:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_SEC",4))))||new_error){ -if(qbevent){evnt(23910);if(r)goto S_31452;} +S_32927:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_LO",4))))||new_error){ +if(qbevent){evnt(24730);if(r)goto S_32927;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_LONG_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23910);}while(r); -goto sc_3382_end; -} -S_31454:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_CSC",4))))||new_error){ -if(qbevent){evnt(23911);if(r)goto S_31454;} +if(!qbevent)break;evnt(24730);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23911);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24730);}while(r); +sc_ec_78_end:; +goto sc_3565_end; } -S_31456:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("_COT",4))))||new_error){ -if(qbevent){evnt(23912);if(r)goto S_31456;} +S_32930:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_UBI",5))))||new_error){ +if(qbevent){evnt(24731);if(r)goto S_32930;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_cot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +*_FUNC_EVALUATENUMBERS_UBIT1_N1=(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))))&1; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23912);}while(r); -goto sc_3382_end; -} -S_31458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(23913);if(r)goto S_31458;} +if(!qbevent)break;evnt(24731);}while(r); do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=pow2(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_UBIT1_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23913);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24731);}while(r); +sc_ec_79_end:; +goto sc_3565_end; } -S_31460:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("SQR",3))))||new_error){ -if(qbevent){evnt(23914);if(r)goto S_31460;} +S_32933:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_BI",4))))||new_error){ +if(qbevent){evnt(24732);if(r)goto S_32933;} do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sqr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23914);}while(r); -goto sc_3382_end; +if ((*_FUNC_EVALUATENUMBERS_BIT1_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))))&1){ +*_FUNC_EVALUATENUMBERS_BIT1_N1|=-2; +}else{ +*_FUNC_EVALUATENUMBERS_BIT1_N1&=1; } -S_31462:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("ROOT",4))))||new_error){ -if(qbevent){evnt(23915);if(r)goto S_31462;} +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24732);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_BIT1_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24732);}while(r); +sc_ec_80_end:; +goto sc_3565_end; +} +S_32936:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_FL",4))))||new_error){ +if(qbevent){evnt(24733);if(r)goto S_32936;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23916);}while(r); +if(!qbevent)break;evnt(24733);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24733);}while(r); +sc_ec_81_end:; +goto sc_3565_end; +} +S_32939:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_DO",4))))||new_error){ +if(qbevent){evnt(24734);if(r)goto S_32939;} +do{ +*_FUNC_EVALUATENUMBERS_DOUBLE_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24734);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((double)(*_FUNC_EVALUATENUMBERS_DOUBLE_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24734);}while(r); +sc_ec_82_end:; +goto sc_3565_end; +} +S_32942:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3565,qbs_new_txt_len("C_SI",4))))||new_error){ +if(qbevent){evnt(24735);if(r)goto S_32942;} +do{ +*_FUNC_EVALUATENUMBERS_SINGLE_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24735);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((float)(*_FUNC_EVALUATENUMBERS_SINGLE_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24735);}while(r); +sc_ec_83_end:; +goto sc_3565_end; +} +sc_3565_end:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24737);}while(r); +sc_ec_84_end:; +goto sc_3564_end; +} +S_32947:; +if (((sc_3564==( 10 )))||new_error){ +if(qbevent){evnt(24738);if(r)goto S_32947;} +S_32948:; +qbs_set(sc_3566,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24739);if(r)goto S_32948;} +S_32949:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_PI",3))))||new_error){ +if(qbevent){evnt(24740);if(r)goto S_32949;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 3.14159265358979323846264338327950288E+0L ; +if(!qbevent)break;evnt(24741);}while(r); +S_32951:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24742);if(r)goto S_32951;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_FLOAT_N1*func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24742);}while(r); +} +sc_ec_85_end:; +goto sc_3566_end; +} +S_32954:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_ACOS",5))))||new_error){ +if(qbevent){evnt(24743);if(r)goto S_32954;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=acos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24743);}while(r); +sc_ec_86_end:; +goto sc_3566_end; +} +S_32956:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_ASIN",5))))||new_error){ +if(qbevent){evnt(24744);if(r)goto S_32956;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=asin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24744);}while(r); +sc_ec_87_end:; +goto sc_3566_end; +} +S_32958:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_ARCSEC",7))))||new_error){ +if(qbevent){evnt(24745);if(r)goto S_32958;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arcsec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24745);}while(r); +sc_ec_88_end:; +goto sc_3566_end; +} +S_32960:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_ARCCSC",7))))||new_error){ +if(qbevent){evnt(24746);if(r)goto S_32960;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccsc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24746);}while(r); +sc_ec_89_end:; +goto sc_3566_end; +} +S_32962:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_ARCCOT",7))))||new_error){ +if(qbevent){evnt(24747);if(r)goto S_32962;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24747);}while(r); +sc_ec_90_end:; +goto sc_3566_end; +} +S_32964:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_SECH",5))))||new_error){ +if(qbevent){evnt(24748);if(r)goto S_32964;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sech(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24748);}while(r); +sc_ec_91_end:; +goto sc_3566_end; +} +S_32966:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_CSCH",5))))||new_error){ +if(qbevent){evnt(24749);if(r)goto S_32966;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csch(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24749);}while(r); +sc_ec_92_end:; +goto sc_3566_end; +} +S_32968:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_COTH",5))))||new_error){ +if(qbevent){evnt(24750);if(r)goto S_32968;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_coth(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24750);}while(r); +sc_ec_93_end:; +goto sc_3566_end; +} +S_32970:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("C_RG",4))))||new_error){ +if(qbevent){evnt(24751);if(r)goto S_32970;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24752);}while(r); +S_32972:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24753);if(r)goto S_32972;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGB32",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24753);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24753);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24754);}while(r); +S_32977:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24755);if(r)goto S_32977;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24755);}while(r); +} +S_32980:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24756);if(r)goto S_32980;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24756);}while(r); +} +S_32983:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24757);if(r)goto S_32983;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24757);}while(r); +} +S_32986:; +if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ +if(qbevent){evnt(24758);if(r)goto S_32986;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24759);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb32(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24760);}while(r); +S_32989:; +}else{ +if (-(*_FUNC_EVALUATENUMBERS_LONG_C2== 0 )){ +if(qbevent){evnt(24761);if(r)goto S_32989;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24762);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24763);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2)); +if(!qbevent)break;evnt(24764);}while(r); +S_32993:; +}else{ +if (-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 )){ +if(qbevent){evnt(24765);if(r)goto S_32993;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24766);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24767);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24768);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3)); +if(!qbevent)break;evnt(24769);}while(r); +S_32998:; +}else{ +if (-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 )){ +if(qbevent){evnt(24770);if(r)goto S_32998;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24771);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24772);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24773);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24774);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4); +if(!qbevent)break;evnt(24775);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24777);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24777);}while(r); +} +} +} +} +sc_ec_94_end:; +goto sc_3566_end; +} +S_33008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("C_RA",4))))||new_error){ +if(qbevent){evnt(24779);if(r)goto S_33008;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24780);}while(r); +S_33010:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24781);if(r)goto S_33010;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGBA32",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24781);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24781);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24782);}while(r); +S_33015:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24783);if(r)goto S_33015;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24783);}while(r); +} +S_33018:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24784);if(r)goto S_33018;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24784);}while(r); +} +S_33021:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24785);if(r)goto S_33021;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24785);}while(r); +} +S_33024:; +if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ +if(qbevent){evnt(24786);if(r)goto S_33024;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24786);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24786);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24788);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24789);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24790);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24791);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4); +if(!qbevent)break;evnt(24792);}while(r); +sc_ec_95_end:; +goto sc_3566_end; +} +S_33033:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_RGB",4))))||new_error){ +if(qbevent){evnt(24793);if(r)goto S_33033;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24794);}while(r); +S_33035:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24795);if(r)goto S_33035;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGB",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24795);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24795);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24796);}while(r); +S_33040:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24797);if(r)goto S_33040;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24797);}while(r); +} +S_33043:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24798);if(r)goto S_33043;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24798);}while(r); +} +S_33046:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24799);if(r)goto S_33046;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24799);}while(r); +} +S_33049:; +if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ +if(qbevent){evnt(24800);if(r)goto S_33049;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("). _RGB requires 4 parameters for Red, Green, Blue, ScreenMode.",63))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24800);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24800);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24802);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24803);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24804);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24805);}while(r); +S_33057:; +if(qbevent){evnt(24806);if(r)goto S_33057;} +S_33058:; +if ((((*_FUNC_EVALUATENUMBERS_LONG_N4>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N4<=( 2 )))||((*_FUNC_EVALUATENUMBERS_LONG_N4>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N4<=( 13 )))||(*_FUNC_EVALUATENUMBERS_LONG_N4==( 256 ))||(*_FUNC_EVALUATENUMBERS_LONG_N4==( 32 )))||new_error){ +if(qbevent){evnt(24807);if(r)goto S_33058;} +sc_ec_96_end:; +goto sc_3567_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N4))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24809);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24809);}while(r); +sc_3567_end:; +do{ +*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,1); +if(!qbevent)break;evnt(24811);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24812);}while(r); +do{ +sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24813);}while(r); +sc_ec_97_end:; +goto sc_3566_end; +} +S_33066:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_RGBA",5))))||new_error){ +if(qbevent){evnt(24814);if(r)goto S_33066;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24815);}while(r); +S_33068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24816);if(r)goto S_33068;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGBA",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24816);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24816);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24817);}while(r); +S_33073:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24818);if(r)goto S_33073;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24818);}while(r); +} +S_33076:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24819);if(r)goto S_33076;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24819);}while(r); +} +S_33079:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24820);if(r)goto S_33079;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24820);}while(r); +} +S_33082:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C4)||new_error){ +if(qbevent){evnt(24821);if(r)goto S_33082;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C5=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24821);}while(r); +} +S_33085:; +if (((-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C5!= 0 )))||new_error){ +if(qbevent){evnt(24822);if(r)goto S_33085;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("). _RGBA requires 5 parameters for Red, Green, Blue, Alpha, ScreenMode.",71))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24822);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24822);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24824);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24825);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24826);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24827);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N5=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24828);}while(r); +S_33094:; +if(qbevent){evnt(24829);if(r)goto S_33094;} +S_33095:; +if ((((*_FUNC_EVALUATENUMBERS_LONG_N5>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N5<=( 2 )))||((*_FUNC_EVALUATENUMBERS_LONG_N5>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N5<=( 13 )))||(*_FUNC_EVALUATENUMBERS_LONG_N5==( 256 ))||(*_FUNC_EVALUATENUMBERS_LONG_N5==( 32 )))||new_error){ +if(qbevent){evnt(24830);if(r)goto S_33095;} +sc_ec_98_end:; +goto sc_3568_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N5))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24832);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24832);}while(r); +sc_3568_end:; +do{ +*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N5,1); +if(!qbevent)break;evnt(24834);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4,*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24835);}while(r); +do{ +sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24836);}while(r); +sc_ec_99_end:; +goto sc_3566_end; +} +S_33103:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3566,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3566,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_3566,qbs_new_txt_len("_ALPHA",6))))||new_error){ +if(qbevent){evnt(24837);if(r)goto S_33103;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24838);}while(r); +S_33105:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24839);if(r)goto S_33105;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_new_txt_len("ERROR - Invalid null ",21),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24839);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24839);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24840);}while(r); +S_33110:; +if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ +if(qbevent){evnt(24841);if(r)goto S_33110;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - ",8),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))),qbs_new_txt_len(" requires 2 parameters for Color, ScreenMode.",45))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24841);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24841);}while(r); +} +S_33114:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24842);if(r)goto S_33114;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24842);}while(r); +} +S_33117:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24843);if(r)goto S_33117;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - ",8),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))),qbs_new_txt_len(" requires 2 parameters for Color, ScreenMode.",45))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24843);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24843);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24844);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24845);}while(r); +S_33123:; +if(qbevent){evnt(24846);if(r)goto S_33123;} +S_33124:; +if ((((*_FUNC_EVALUATENUMBERS_FLOAT_N2>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_FLOAT_N2<=( 2 )))||((*_FUNC_EVALUATENUMBERS_FLOAT_N2>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_FLOAT_N2<=( 13 )))||(*_FUNC_EVALUATENUMBERS_FLOAT_N2==( 256 ))||(*_FUNC_EVALUATENUMBERS_FLOAT_N2==( 32 )))||new_error){ +if(qbevent){evnt(24847);if(r)goto S_33124;} +sc_ec_100_end:; +goto sc_3569_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N2))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24849);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24849);}while(r); +sc_3569_end:; +do{ +*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,1); +if(!qbevent)break;evnt(24851);}while(r); +S_33130:; +qbs_set(sc_3570,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24852);if(r)goto S_33130;} +S_33131:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3570,qbs_new_txt_len("_RED",4))))||new_error){ +if(qbevent){evnt(24853);if(r)goto S_33131;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24853);}while(r); +sc_ec_101_end:; +goto sc_3570_end; +} +S_33133:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3570,qbs_new_txt_len("_BLUE",5))))||new_error){ +if(qbevent){evnt(24854);if(r)goto S_33133;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24854);}while(r); +sc_ec_102_end:; +goto sc_3570_end; +} +S_33135:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3570,qbs_new_txt_len("_GREEN",6))))||new_error){ +if(qbevent){evnt(24855);if(r)goto S_33135;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24855);}while(r); +sc_ec_103_end:; +goto sc_3570_end; +} +S_33137:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3570,qbs_new_txt_len("_ALPHA",6))))||new_error){ +if(qbevent){evnt(24856);if(r)goto S_33137;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24856);}while(r); +sc_ec_104_end:; +goto sc_3570_end; +} +sc_3570_end:; +do{ +sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24858);}while(r); +sc_ec_105_end:; +goto sc_3566_end; +} +S_33141:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("C_RX",4))||qbs_equal(sc_3566,qbs_new_txt_len("C_GR",4))||qbs_equal(sc_3566,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3566,qbs_new_txt_len("C_AL",4))))||new_error){ +if(qbevent){evnt(24859);if(r)goto S_33141;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24860);}while(r); +S_33143:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24861);if(r)goto S_33143;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_new_txt_len("ERROR - Invalid null ",21),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24861);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24861);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24862);}while(r); +S_33148:; +qbs_set(sc_3571,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24863);if(r)goto S_33148;} +S_33149:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3571,qbs_new_txt_len("C_RX",4))))||new_error){ +if(qbevent){evnt(24864);if(r)goto S_33149;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24864);}while(r); +sc_ec_106_end:; +goto sc_3571_end; +} +S_33151:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3571,qbs_new_txt_len("C_BL",4))))||new_error){ +if(qbevent){evnt(24865);if(r)goto S_33151;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24865);}while(r); +sc_ec_107_end:; +goto sc_3571_end; +} +S_33153:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3571,qbs_new_txt_len("C_GR",4))))||new_error){ +if(qbevent){evnt(24866);if(r)goto S_33153;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24866);}while(r); +sc_ec_108_end:; +goto sc_3571_end; +} +S_33155:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3571,qbs_new_txt_len("C_AL",4))))||new_error){ +if(qbevent){evnt(24867);if(r)goto S_33155;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24867);}while(r); +sc_ec_109_end:; +goto sc_3571_end; +} +sc_3571_end:; +sc_ec_110_end:; +goto sc_3566_end; +} +S_33158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("COS",3))))||new_error){ +if(qbevent){evnt(24869);if(r)goto S_33158;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=cos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24869);}while(r); +sc_ec_111_end:; +goto sc_3566_end; +} +S_33160:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("SIN",3))))||new_error){ +if(qbevent){evnt(24870);if(r)goto S_33160;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=sin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24870);}while(r); +sc_ec_112_end:; +goto sc_3566_end; +} +S_33162:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("TAN",3))))||new_error){ +if(qbevent){evnt(24871);if(r)goto S_33162;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=tan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24871);}while(r); +sc_ec_113_end:; +goto sc_3566_end; +} +S_33164:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("LOG",3))))||new_error){ +if(qbevent){evnt(24872);if(r)goto S_33164;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_log(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24872);}while(r); +sc_ec_114_end:; +goto sc_3566_end; +} +S_33166:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("EXP",3))))||new_error){ +if(qbevent){evnt(24873);if(r)goto S_33166;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_exp_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24873);}while(r); +sc_ec_115_end:; +goto sc_3566_end; +} +S_33168:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("ATN",3))))||new_error){ +if(qbevent){evnt(24874);if(r)goto S_33168;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=atan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24874);}while(r); +sc_ec_116_end:; +goto sc_3566_end; +} +S_33170:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_D2R",4))))||new_error){ +if(qbevent){evnt(24875);if(r)goto S_33170;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.0174532925E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24875);}while(r); +sc_ec_117_end:; +goto sc_3566_end; +} +S_33172:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_D2G",4))))||new_error){ +if(qbevent){evnt(24876);if(r)goto S_33172;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 1.1111111111E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24876);}while(r); +sc_ec_118_end:; +goto sc_3566_end; +} +S_33174:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_R2D",4))))||new_error){ +if(qbevent){evnt(24877);if(r)goto S_33174;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 57.2957795E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24877);}while(r); +sc_ec_119_end:; +goto sc_3566_end; +} +S_33176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_R2G",4))))||new_error){ +if(qbevent){evnt(24878);if(r)goto S_33176;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.015707963E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24878);}while(r); +sc_ec_120_end:; +goto sc_3566_end; +} +S_33178:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_G2D",4))))||new_error){ +if(qbevent){evnt(24879);if(r)goto S_33178;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.9E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24879);}while(r); +sc_ec_121_end:; +goto sc_3566_end; +} +S_33180:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_G2R",4))))||new_error){ +if(qbevent){evnt(24880);if(r)goto S_33180;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 63.661977237E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24880);}while(r); +sc_ec_122_end:; +goto sc_3566_end; +} +S_33182:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("ABS",3))))||new_error){ +if(qbevent){evnt(24881);if(r)goto S_33182;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24881);}while(r); +sc_ec_123_end:; +goto sc_3566_end; +} +S_33184:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("SGN",3))))||new_error){ +if(qbevent){evnt(24882);if(r)goto S_33184;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sgn((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24882);}while(r); +sc_ec_124_end:; +goto sc_3566_end; +} +S_33186:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("INT",3))))||new_error){ +if(qbevent){evnt(24883);if(r)goto S_33186;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=floor(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24883);}while(r); +sc_ec_125_end:; +goto sc_3566_end; +} +S_33188:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_ROUND",6))))||new_error){ +if(qbevent){evnt(24884);if(r)goto S_33188;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_round_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24884);}while(r); +sc_ec_126_end:; +goto sc_3566_end; +} +S_33190:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_CEIL",5))))||new_error){ +if(qbevent){evnt(24885);if(r)goto S_33190;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=ceil(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24885);}while(r); +sc_ec_127_end:; +goto sc_3566_end; +} +S_33192:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("FIX",3))))||new_error){ +if(qbevent){evnt(24886);if(r)goto S_33192;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24886);}while(r); +sc_ec_128_end:; +goto sc_3566_end; +} +S_33194:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_SEC",4))))||new_error){ +if(qbevent){evnt(24887);if(r)goto S_33194;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24887);}while(r); +sc_ec_129_end:; +goto sc_3566_end; +} +S_33196:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_CSC",4))))||new_error){ +if(qbevent){evnt(24888);if(r)goto S_33196;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24888);}while(r); +sc_ec_130_end:; +goto sc_3566_end; +} +S_33198:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3566,qbs_new_txt_len("_COT",4))))||new_error){ +if(qbevent){evnt(24889);if(r)goto S_33198;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_cot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24889);}while(r); +sc_ec_131_end:; +goto sc_3566_end; +} +sc_3566_end:; +sc_ec_132_end:; +goto sc_3564_end; +} +S_33201:; +if ((((sc_3564>=( 20 ))&&(sc_3564<=( 60 ))))||new_error){ +if(qbevent){evnt(24891);if(r)goto S_33201;} +S_33202:; +qbs_set(sc_3572,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24892);if(r)goto S_33202;} +S_33203:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(24893);if(r)goto S_33203;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=pow2(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24893);}while(r); +sc_ec_133_end:; +goto sc_3572_end; +} +S_33205:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("SQR",3))))||new_error){ +if(qbevent){evnt(24894);if(r)goto S_33205;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sqr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24894);}while(r); +sc_ec_134_end:; +goto sc_3572_end; +} +S_33207:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("ROOT",4))))||new_error){ +if(qbevent){evnt(24895);if(r)goto S_33207;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24896);}while(r); do{ *_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23916);}while(r); -S_31465:; +if(!qbevent)break;evnt(24896);}while(r); +S_33210:; if ((-(*_FUNC_EVALUATENUMBERS_FLOAT_N2== 1 ))||new_error){ -if(qbevent){evnt(23917);if(r)goto S_31465;} +if(qbevent){evnt(24897);if(r)goto S_33210;} do{ qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23917);}while(r); +if(!qbevent)break;evnt(24897);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23917);}while(r); +if(!qbevent)break;evnt(24897);}while(r); } -S_31469:; +S_33214:; if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N1< 0 ))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2>= 1 )))||new_error){ -if(qbevent){evnt(23918);if(r)goto S_31469;} +if(qbevent){evnt(24898);if(r)goto S_33214;} do{ *_FUNC_EVALUATENUMBERS_LONG_SIGN= -1 ; -if(!qbevent)break;evnt(23918);}while(r); +if(!qbevent)break;evnt(24898);}while(r); do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(*_FUNC_EVALUATENUMBERS_FLOAT_N1); -if(!qbevent)break;evnt(23918);}while(r); +if(!qbevent)break;evnt(24898);}while(r); }else{ do{ *_FUNC_EVALUATENUMBERS_LONG_SIGN= 1 ; -if(!qbevent)break;evnt(23918);}while(r); +if(!qbevent)break;evnt(24898);}while(r); } do{ *_FUNC_EVALUATENUMBERS_FLOAT_N3= 1E+0L / *_FUNC_EVALUATENUMBERS_FLOAT_N2; -if(!qbevent)break;evnt(23919);}while(r); -S_31476:; +if(!qbevent)break;evnt(24899);}while(r); +S_33221:; if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N3!=floor(*_FUNC_EVALUATENUMBERS_FLOAT_N3)))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2< 1 )))||new_error){ -if(qbevent){evnt(23920);if(r)goto S_31476;} +if(qbevent){evnt(24900);if(r)goto S_33221;} do{ *_FUNC_EVALUATENUMBERS_LONG_SIGN=func_sgn((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); -if(!qbevent)break;evnt(23920);}while(r); +if(!qbevent)break;evnt(24900);}while(r); do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); -if(!qbevent)break;evnt(23920);}while(r); +if(!qbevent)break;evnt(24900);}while(r); } do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_LONG_SIGN*(pow2(*_FUNC_EVALUATENUMBERS_FLOAT_N1,*_FUNC_EVALUATENUMBERS_FLOAT_N3)); -if(!qbevent)break;evnt(23921);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24901);}while(r); +sc_ec_135_end:; +goto sc_3572_end; } -S_31481:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(23922);if(r)goto S_31481;} +S_33226:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(24902);if(r)goto S_33226;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))*func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23922);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24902);}while(r); +sc_ec_136_end:; +goto sc_3572_end; } -S_31483:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(23923);if(r)goto S_31483;} +S_33228:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(24903);if(r)goto S_33228;} +S_33229:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!= 0 )))||new_error){ +if(qbevent){evnt(24904);if(r)goto S_33229;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))/ func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23923);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24905);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24907);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24908);}while(r); } -S_31485:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(23924);if(r)goto S_31485;} +sc_ec_137_end:; +goto sc_3572_end; +} +S_33235:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(24910);if(r)goto S_33235;} +S_33236:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!= 0 )))||new_error){ +if(qbevent){evnt(24911);if(r)goto S_33236;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))/ qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23924);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24912);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24914);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24915);}while(r); } -S_31487:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(23925);if(r)goto S_31487;} +sc_ec_138_end:; +goto sc_3572_end; +} +S_33242:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(24917);if(r)goto S_33242;} +S_33243:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!= 0 )))||new_error){ +if(qbevent){evnt(24918);if(r)goto S_33243;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))%qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23925);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24919);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24921);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24922);}while(r); } -S_31489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23926);if(r)goto S_31489;} +sc_ec_139_end:; +goto sc_3572_end; +} +S_33249:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(24924);if(r)goto S_33249;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))+func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23926);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24924);}while(r); +sc_ec_140_end:; +goto sc_3572_end; } -S_31491:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23927);if(r)goto S_31491;} +S_33251:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3572,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24925);if(r)goto S_33251;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))-func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23927);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24926);}while(r); +sc_ec_141_end:; +goto sc_3572_end; } -S_31493:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(23928);if(r)goto S_31493;} +sc_3572_end:; +sc_ec_142_end:; +goto sc_3564_end; +} +S_33254:; +if (((sc_3564==( 70 )))||new_error){ +if(qbevent){evnt(24928);if(r)goto S_33254;} +S_33255:; +qbs_set(sc_3573,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24929);if(r)goto S_33255;} +S_33256:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3573,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(24930);if(r)goto S_33256;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))==func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23928);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24930);}while(r); +sc_ec_143_end:; +goto sc_3573_end; } -S_31495:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(23929);if(r)goto S_31495;} +S_33258:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3573,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(24931);if(r)goto S_33258;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))>func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23929);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24931);}while(r); +sc_ec_144_end:; +goto sc_3573_end; } -S_31497:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(23930);if(r)goto S_31497;} +S_33260:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3573,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(24932);if(r)goto S_33260;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))",2))||qbs_equal(sc_3382,qbs_new_txt_len("><",2))))||new_error){ -if(qbevent){evnt(23931);if(r)goto S_31499;} +S_33262:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3573,qbs_new_txt_len("<>",2))||qbs_equal(sc_3573,qbs_new_txt_len("><",2))))||new_error){ +if(qbevent){evnt(24933);if(r)goto S_33262;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23931);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24933);}while(r); +sc_ec_146_end:; +goto sc_3573_end; } -S_31501:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("<=",2))||qbs_equal(sc_3382,qbs_new_txt_len("=<",2))))||new_error){ -if(qbevent){evnt(23932);if(r)goto S_31501;} +S_33264:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3573,qbs_new_txt_len("<=",2))||qbs_equal(sc_3573,qbs_new_txt_len("=<",2))))||new_error){ +if(qbevent){evnt(24934);if(r)goto S_33264;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))<=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23932);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24934);}while(r); +sc_ec_147_end:; +goto sc_3573_end; } -S_31503:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len(">=",2))||qbs_equal(sc_3382,qbs_new_txt_len("=>",2))))||new_error){ -if(qbevent){evnt(23933);if(r)goto S_31503;} +S_33266:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3573,qbs_new_txt_len(">=",2))||qbs_equal(sc_3573,qbs_new_txt_len("=>",2))))||new_error){ +if(qbevent){evnt(24935);if(r)goto S_33266;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))>=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23933);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24935);}while(r); +sc_ec_148_end:; +goto sc_3573_end; } -S_31505:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(23934);if(r)goto S_31505;} +sc_3573_end:; +sc_ec_149_end:; +goto sc_3564_end; +} +S_33270:; +qbs_set(sc_3574,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24938);if(r)goto S_33270;} +S_33271:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3574,qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(24939);if(r)goto S_33271;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=~(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23934);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24939);}while(r); +sc_ec_150_end:; +goto sc_3574_end; } -S_31507:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(23935);if(r)goto S_31507;} +S_33273:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3574,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(24940);if(r)goto S_33273;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))&qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23935);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24940);}while(r); +sc_ec_151_end:; +goto sc_3574_end; } -S_31509:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(23936);if(r)goto S_31509;} +S_33275:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3574,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(24941);if(r)goto S_33275;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))|qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23936);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24941);}while(r); +sc_ec_152_end:; +goto sc_3574_end; } -S_31511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(23937);if(r)goto S_31511;} +S_33277:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3574,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(24942);if(r)goto S_33277;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))^qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23937);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24942);}while(r); +sc_ec_153_end:; +goto sc_3574_end; } -S_31513:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(23938);if(r)goto S_31513;} +S_33279:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3574,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(24943);if(r)goto S_33279;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=~qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))^qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23938);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24943);}while(r); +sc_ec_154_end:; +goto sc_3574_end; } -S_31515:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3382,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(23939);if(r)goto S_31515;} +S_33281:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3574,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(24944);if(r)goto S_33281;} do{ *_FUNC_EVALUATENUMBERS_FLOAT_N1=~qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))|qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23939);}while(r); -goto sc_3382_end; +if(!qbevent)break;evnt(24944);}while(r); +sc_ec_155_end:; +goto sc_3574_end; } +sc_3574_end:; +sc_3564_end:; do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Bad operation (We shouldn't see this)",45)); +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)))),_FUNC_EVALUATENUMBERS_STRING_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23941);}while(r); -sc_3382_end:; -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23943);}while(r); +if(!qbevent)break;evnt(24948);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free76.txt" @@ -112460,118 +115460,114 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23952);}while(r); -S_31522:; +if(!qbevent)break;evnt(24957);}while(r); +S_33287:; do{ -if(qbevent){evnt(23953);if(r)goto S_31522;} +if(qbevent){evnt(24958);if(r)goto S_33287;} do{ *_FUNC_DWD_LONG_BAD= 0 ; -if(!qbevent)break;evnt(23954);}while(r); -S_31524:; +if(!qbevent)break;evnt(24959);}while(r); +S_33289:; do{ -if(qbevent){evnt(23955);if(r)goto S_31524;} +if(qbevent){evnt(24960);if(r)goto S_33289;} do{ *_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("++",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23956);}while(r); -S_31526:; +if(!qbevent)break;evnt(24961);}while(r); +S_33291:; if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(23957);if(r)goto S_31526;} +if(qbevent){evnt(24962);if(r)goto S_33291;} do{ qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23957);}while(r); +if(!qbevent)break;evnt(24962);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(23957);}while(r); +if(!qbevent)break;evnt(24962);}while(r); } -S_31530:; -dl_continue_3385:; +S_33295:; +dl_continue_3577:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3385:; -if(qbevent){evnt(23958);if(r)goto S_31530;} -S_31531:; +dl_exit_3577:; +if(qbevent){evnt(24963);if(r)goto S_33295;} +S_33296:; do{ -if(qbevent){evnt(23959);if(r)goto S_31531;} +if(qbevent){evnt(24964);if(r)goto S_33296;} do{ *_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("+-",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23960);}while(r); -S_31533:; +if(!qbevent)break;evnt(24965);}while(r); +S_33298:; if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(23961);if(r)goto S_31533;} +if(qbevent){evnt(24966);if(r)goto S_33298;} do{ qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("-",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23961);}while(r); +if(!qbevent)break;evnt(24966);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(23961);}while(r); +if(!qbevent)break;evnt(24966);}while(r); } -S_31537:; -dl_continue_3386:; +S_33302:; +dl_continue_3578:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3386:; -if(qbevent){evnt(23962);if(r)goto S_31537;} -S_31538:; +dl_exit_3578:; +if(qbevent){evnt(24967);if(r)goto S_33302;} +S_33303:; do{ -if(qbevent){evnt(23963);if(r)goto S_31538;} +if(qbevent){evnt(24968);if(r)goto S_33303;} do{ *_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("-+",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23964);}while(r); -S_31540:; +if(!qbevent)break;evnt(24969);}while(r); +S_33305:; if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(23965);if(r)goto S_31540;} +if(qbevent){evnt(24970);if(r)goto S_33305;} do{ qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("-",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23965);}while(r); +if(!qbevent)break;evnt(24970);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(23965);}while(r); +if(!qbevent)break;evnt(24970);}while(r); } -S_31544:; -dl_continue_3387:; +S_33309:; +dl_continue_3579:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3387:; -if(qbevent){evnt(23966);if(r)goto S_31544;} -S_31545:; +dl_exit_3579:; +if(qbevent){evnt(24971);if(r)goto S_33309;} +S_33310:; do{ -if(qbevent){evnt(23967);if(r)goto S_31545;} +if(qbevent){evnt(24972);if(r)goto S_33310;} do{ *_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("--",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23968);}while(r); -S_31547:; +if(!qbevent)break;evnt(24973);}while(r); +S_33312:; if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(23969);if(r)goto S_31547;} +if(qbevent){evnt(24974);if(r)goto S_33312;} do{ qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23969);}while(r); +if(!qbevent)break;evnt(24974);}while(r); do{ *_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(23969);}while(r); +if(!qbevent)break;evnt(24974);}while(r); } -S_31551:; -dl_continue_3388:; +S_33316:; +dl_continue_3580:; }while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3388:; -if(qbevent){evnt(23970);if(r)goto S_31551;} -S_31552:; -dl_continue_3384:; +dl_exit_3580:; +if(qbevent){evnt(24975);if(r)goto S_33316;} +S_33317:; +dl_continue_3576:; }while((!(~(*_FUNC_DWD_LONG_BAD)))&&(!new_error)); -dl_exit_3384:; -if(qbevent){evnt(23971);if(r)goto S_31552;} +dl_exit_3576:; +if(qbevent){evnt(24976);if(r)goto S_33317;} do{ qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23972);}while(r); -do{ -SUB_VERIFYSTRING(_FUNC_DWD_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23973);}while(r); +if(!qbevent)break;evnt(24977);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free77.txt" @@ -112593,582 +115589,1394 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(23977);}while(r); +if(!qbevent)break;evnt(24981);}while(r); +do{ +if(!qbevent)break;evnt(24982);}while(r); +S_33321:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check(( 0 )-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24984);if(r)goto S_33321;} +do{ + +if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_PP_TYPEMOD[0])); +} +__ARRAY_STRING_PP_TYPEMOD[4]= 0 ; +__ARRAY_STRING_PP_TYPEMOD[5]=( 100 )-__ARRAY_STRING_PP_TYPEMOD[4]+1; +__ARRAY_STRING_PP_TYPEMOD[6]=1; +__ARRAY_STRING_PP_TYPEMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_TYPEMOD[5]*8); +if (!__ARRAY_STRING_PP_TYPEMOD[0]) error(257); +__ARRAY_STRING_PP_TYPEMOD[2]|=1; +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +if (__ARRAY_STRING_PP_TYPEMOD[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} + +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_CONVERTEDMOD)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_PP_CONVERTEDMOD[0])); +} +__ARRAY_STRING_PP_CONVERTEDMOD[4]= 0 ; +__ARRAY_STRING_PP_CONVERTEDMOD[5]=( 100 )-__ARRAY_STRING_PP_CONVERTEDMOD[4]+1; +__ARRAY_STRING_PP_CONVERTEDMOD[6]=1; +__ARRAY_STRING_PP_CONVERTEDMOD[0]=(ptrszint)malloc(__ARRAY_STRING_PP_CONVERTEDMOD[5]*8); +if (!__ARRAY_STRING_PP_CONVERTEDMOD[0]) error(257); +__ARRAY_STRING_PP_CONVERTEDMOD[2]|=1; +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&4){ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(24985);}while(r); +do{ +tmp_long=array_check(( 0 )-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("Initialized",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24986);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24988);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~`",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24988);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UBI",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24988);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24989);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24989);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UBY",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24989);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24990);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24990);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UOF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24990);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24991);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24991);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24991);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24992);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24992);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UIF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24992);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24993);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24993);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_ULO",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24993);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24994);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("`",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24994);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24994);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24995);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24995);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BY",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24995);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24996);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24996);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_OF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24996);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24997);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24997);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_IN",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24997);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24998);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24998);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_IF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24998);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24999);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24999);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_LO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24999);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25000);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25000);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_SI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25000);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25001);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25001);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_FL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25001);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25002);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25002);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_DO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25002);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25003);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RGB32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25003);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25003);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25004);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RGBA32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25004);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25004);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25005);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RED32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25005);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25005);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25006);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_GREEN32",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25006);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25006);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25007);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_BLUE32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25007);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25007);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25008);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_ALPHA32",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25008);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25008);}while(r); +do{ +*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; +if(!qbevent)break;evnt(25009);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25010);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RGB32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25010);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25010);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25011);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RGBA32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25011);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25011);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25012);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RED32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25012);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25012);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25013);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("GREEN32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25013);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25013);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25014);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("BLUE32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25014);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25014);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(25015);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("ALPHA32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25015);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25015);}while(r); +do{ +*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; +if(!qbevent)break;evnt(25016);}while(r); +do{ + +if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ +preserved_elements=__ARRAY_STRING_PP_TYPEMOD[5]; +} +else preserved_elements=0; +__ARRAY_STRING_PP_TYPEMOD[4]= 0 ; +__ARRAY_STRING_PP_TYPEMOD[5]=(*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4]+1; +__ARRAY_STRING_PP_TYPEMOD[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_PP_TYPEMOD[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ +preserved_elements=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +} +else preserved_elements=0; +__ARRAY_STRING_PP_CONVERTEDMOD[4]= 0 ; +__ARRAY_STRING_PP_CONVERTEDMOD[5]=(*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4]+1; +__ARRAY_STRING_PP_CONVERTEDMOD[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +if (tmp_long2len; -fornext_step3391= 1 ; -if (fornext_step3391<0) fornext_step_negative3391=1; else fornext_step_negative3391=0; -if (new_error) goto fornext_error3391; -goto fornext_entrylabel3391; +if(!qbevent)break;evnt(25022);}while(r); +S_33411:; +fornext_value3583= 1 ; +fornext_finalvalue3583=_SUB_PREPARSE_STRING_E->len; +fornext_step3583= 1 ; +if (fornext_step3583<0) fornext_step_negative3583=1; else fornext_step_negative3583=0; +if (new_error) goto fornext_error3583; +goto fornext_entrylabel3583; while(1){ -fornext_value3391=fornext_step3391+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3391: -*_SUB_PREPARSE_LONG_I=fornext_value3391; +fornext_value3583=fornext_step3583+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3583: +*_SUB_PREPARSE_LONG_I=fornext_value3583; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3391){ -if (fornext_value3391fornext_finalvalue3391) break; +if (fornext_value3583>fornext_finalvalue3583) break; } -fornext_error3391:; -if(qbevent){evnt(23983);if(r)goto S_31558;} -S_31559:; +fornext_error3583:; +if(qbevent){evnt(25023);if(r)goto S_33411;} +S_33412:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,1),qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(23984);if(r)goto S_31559;} +if(qbevent){evnt(25024);if(r)goto S_33412;} do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(_SUB_PREPARSE_STRING_T,func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23984);}while(r); +if(!qbevent)break;evnt(25024);}while(r); } -fornext_continue_3390:; +fornext_continue_3582:; } -fornext_exit_3390:; +fornext_exit_3582:; do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_ucase(_SUB_PREPARSE_STRING_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23987);}while(r); -S_31564:; +if(!qbevent)break;evnt(25027);}while(r); +S_33417:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23988);if(r)goto S_31564;} +if(qbevent){evnt(25028);if(r)goto S_33417;} do{ qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR -- NULL string; nothing to evaluate",41)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23988);}while(r); +if(!qbevent)break;evnt(25028);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23988);}while(r); +if(!qbevent)break;evnt(25028);}while(r); } do{ *_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(23991);}while(r); -S_31569:; +if(!qbevent)break;evnt(25031);}while(r); +S_33422:; do{ -if(qbevent){evnt(23992);if(r)goto S_31569;} +if(qbevent){evnt(25032);if(r)goto S_33422;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23993);}while(r); -S_31571:; +if(!qbevent)break;evnt(25033);}while(r); +S_33424:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(23993);if(r)goto S_31571;} +if(qbevent){evnt(25033);if(r)goto S_33424;} do{ *_SUB_PREPARSE_LONG_C=*_SUB_PREPARSE_LONG_C+ 1 ; -if(!qbevent)break;evnt(23993);}while(r); +if(!qbevent)break;evnt(25033);}while(r); } -S_31574:; -dl_continue_3393:; +S_33427:; +dl_continue_3585:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3393:; -if(qbevent){evnt(23994);if(r)goto S_31574;} +dl_exit_3585:; +if(qbevent){evnt(25034);if(r)goto S_33427;} do{ *_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(23995);}while(r); -S_31576:; +if(!qbevent)break;evnt(25035);}while(r); +S_33429:; do{ -if(qbevent){evnt(23996);if(r)goto S_31576;} +if(qbevent){evnt(25036);if(r)goto S_33429;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23997);}while(r); -S_31578:; +if(!qbevent)break;evnt(25037);}while(r); +S_33431:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(23997);if(r)goto S_31578;} +if(qbevent){evnt(25037);if(r)goto S_33431;} do{ *_SUB_PREPARSE_LONG_C1=*_SUB_PREPARSE_LONG_C1+ 1 ; -if(!qbevent)break;evnt(23997);}while(r); +if(!qbevent)break;evnt(25037);}while(r); } -S_31581:; -dl_continue_3394:; +S_33434:; +dl_continue_3586:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3394:; -if(qbevent){evnt(23998);if(r)goto S_31581;} -S_31582:; +dl_exit_3586:; +if(qbevent){evnt(25038);if(r)goto S_33434;} +S_33435:; if ((-(*_SUB_PREPARSE_LONG_C!=*_SUB_PREPARSE_LONG_C1))||new_error){ -if(qbevent){evnt(23999);if(r)goto S_31582;} +if(qbevent){evnt(25039);if(r)goto S_33435;} do{ qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ERROR -- Bad Parenthesis:",25),qbs_str((int32)(*_SUB_PREPARSE_LONG_C))),qbs_new_txt_len("( vs",4)),qbs_str((int32)(*_SUB_PREPARSE_LONG_C1))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23999);}while(r); +if(!qbevent)break;evnt(25039);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(23999);}while(r); +if(!qbevent)break;evnt(25039);}while(r); } do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24002);}while(r); -S_31587:; -do{ -if(qbevent){evnt(24003);if(r)goto S_31587;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("NOT",3),1); +qbs_set(_SUB_PREPARSE_STRING_SEP,qbs_new_txt_len("()+-*/\\><=^",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24004);}while(r); -S_31589:; +if(!qbevent)break;evnt(25042);}while(r); +S_33440:; +fornext_value3588= 0 ; +fornext_finalvalue3588=*__LONG_CONSTLAST; +fornext_step3588= 1 ; +if (fornext_step3588<0) fornext_step_negative3588=1; else fornext_step_negative3588=0; +if (new_error) goto fornext_error3588; +goto fornext_entrylabel3588; +while(1){ +fornext_value3588=fornext_step3588+(*_SUB_PREPARSE_LONG_I2); +fornext_entrylabel3588: +*_SUB_PREPARSE_LONG_I2=fornext_value3588; +if (fornext_step_negative3588){ +if (fornext_value3588fornext_finalvalue3588) break; +} +fornext_error3588:; +if(qbevent){evnt(25043);if(r)goto S_33440;} +do{ +qbs_set(_SUB_PREPARSE_STRING_THISCONSTNAME,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25044);}while(r); +S_33442:; +fornext_value3590= 1 ; +fornext_finalvalue3590= 2 ; +fornext_step3590= 1 ; +if (fornext_step3590<0) fornext_step_negative3590=1; else fornext_step_negative3590=0; +if (new_error) goto fornext_error3590; +goto fornext_entrylabel3590; +while(1){ +fornext_value3590=fornext_step3590+(*_SUB_PREPARSE_LONG_REPLACECONSTPASS); +fornext_entrylabel3590: +*_SUB_PREPARSE_LONG_REPLACECONSTPASS=fornext_value3590; +if (fornext_step_negative3590){ +if (fornext_value3590fornext_finalvalue3590) break; +} +fornext_error3590:; +if(qbevent){evnt(25045);if(r)goto S_33442;} +do{ +*_SUB_PREPARSE_LONG_FOUND= 0 ; +if(!qbevent)break;evnt(25046);}while(r); +S_33444:; +do{ +if(qbevent){evnt(25047);if(r)goto S_33444;} +do{ +*_SUB_PREPARSE_LONG_FOUND=func_instr(*_SUB_PREPARSE_LONG_FOUND+ 1 ,qbs_ucase(_SUB_PREPARSE_STRING_T),_SUB_PREPARSE_STRING_THISCONSTNAME,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25048);}while(r); +S_33446:; +if ((*_SUB_PREPARSE_LONG_FOUND)||new_error){ +if(qbevent){evnt(25049);if(r)goto S_33446;} +S_33447:; +if ((-(*_SUB_PREPARSE_LONG_FOUND> 1 ))||new_error){ +if(qbevent){evnt(25050);if(r)goto S_33447;} +S_33448:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND- 1 , 1 ,1),0)== 0 )))||new_error){ +if(qbevent){evnt(25051);if(r)goto S_33448;} +do{ +goto dl_continue_3591; +if(!qbevent)break;evnt(25051);}while(r); +} +} +S_33452:; +if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len)<=(_SUB_PREPARSE_STRING_T->len))))||new_error){ +if(qbevent){evnt(25053);if(r)goto S_33452;} +S_33453:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len, 1 ,1),0)== 0 )))||new_error){ +if(qbevent){evnt(25054);if(r)goto S_33453;} +do{ +goto dl_continue_3591; +if(!qbevent)break;evnt(25054);}while(r); +} +} +do{ +*_SUB_PREPARSE_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(25056);}while(r); +S_33458:; +if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25057);if(r)goto S_33458;} +do{ +qbs_set(_SUB_PREPARSE_STRING_R,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25058);}while(r); +do{ +*_SUB_PREPARSE_LONG_I4=func__instrrev(NULL,_SUB_PREPARSE_STRING_R,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25059);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_left(_SUB_PREPARSE_STRING_R,*_SUB_PREPARSE_LONG_I4- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25060);}while(r); +}else{ +S_33463:; +if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(25062);if(r)goto S_33463;} +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((long double)(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25063);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_R,FUNC_N2S(_SUB_PREPARSE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25064);}while(r); +}else{ +S_33467:; +if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(25066);if(r)goto S_33467;} +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((uint64)(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25066);}while(r); +}else{ +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25066);}while(r); +} +} +} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND- 1 ),qbs__trim(_SUB_PREPARSE_STRING_R)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25069);}while(r); +} +S_33476:; +dl_continue_3591:; +}while((!(-(*_SUB_PREPARSE_LONG_FOUND== 0 )))&&(!new_error)); +dl_exit_3591:; +if(qbevent){evnt(25071);if(r)goto S_33476;} +do{ +qbs_set(_SUB_PREPARSE_STRING_THISCONSTNAME,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25072);}while(r); +fornext_continue_3589:; +} +fornext_exit_3589:; +fornext_continue_3587:; +} +fornext_exit_3587:; +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(25077);}while(r); +S_33481:; +do{ +if(qbevent){evnt(25078);if(r)goto S_33481;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("NOT ",4),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25079);}while(r); +S_33483:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24005);if(r)goto S_31589;} +if(qbevent){evnt(25080);if(r)goto S_33483;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("AND",3),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24009);}while(r); -S_31591:; +if(!qbevent)break;evnt(25084);}while(r); +S_33485:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24010);if(r)goto S_31591;} +if(qbevent){evnt(25085);if(r)goto S_33485;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24010);}while(r); +if(!qbevent)break;evnt(25085);}while(r); } -S_31594:; +S_33488:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24011);if(r)goto S_31594;} +if(qbevent){evnt(25086);if(r)goto S_33488;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24011);}while(r); +if(!qbevent)break;evnt(25086);}while(r); } -S_31597:; +S_33491:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24012);if(r)goto S_31597;} +if(qbevent){evnt(25087);if(r)goto S_33491;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24012);}while(r); +if(!qbevent)break;evnt(25087);}while(r); } -S_31600:; +S_33494:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24013);if(r)goto S_31600;} +if(qbevent){evnt(25088);if(r)goto S_33494;} do{ *_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24013);}while(r); +if(!qbevent)break;evnt(25088);}while(r); } -S_31603:; +S_33497:; if ((-(*_SUB_PREPARSE_LONG_L1== 0 ))||new_error){ -if(qbevent){evnt(24014);if(r)goto S_31603;} +if(qbevent){evnt(25089);if(r)goto S_33497;} do{ *_SUB_PREPARSE_LONG_L1=_SUB_PREPARSE_STRING_T->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24014);}while(r); +if(!qbevent)break;evnt(25089);}while(r); } do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_new_txt_len("(",1)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L,*_SUB_PREPARSE_LONG_L1-*_SUB_PREPARSE_LONG_L,1)),qbs_new_txt_len(")",1)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+*_SUB_PREPARSE_LONG_L1-*_SUB_PREPARSE_LONG_L,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24015);}while(r); +if(!qbevent)break;evnt(25090);}while(r); do{ *_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 3 ; -if(!qbevent)break;evnt(24016);}while(r); +if(!qbevent)break;evnt(25091);}while(r); } -S_31609:; -dl_continue_3395:; +S_33503:; +dl_continue_3596:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3395:; -if(qbevent){evnt(24019);if(r)goto S_31609;} +dl_exit_3596:; +if(qbevent){evnt(25094);if(r)goto S_33503;} +do{ +*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD; +if(!qbevent)break;evnt(25096);}while(r); +S_33505:; +if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ +if(qbevent){evnt(25097);if(r)goto S_33505;} +do{ +*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD; +if(!qbevent)break;evnt(25097);}while(r); +} +S_33508:; +fornext_value3599= 1 ; +fornext_finalvalue3599=*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD; +fornext_step3599= 1 ; +if (fornext_step3599<0) fornext_step_negative3599=1; else fornext_step_negative3599=0; +if (new_error) goto fornext_error3599; +goto fornext_entrylabel3599; +while(1){ +fornext_value3599=fornext_step3599+(*_SUB_PREPARSE_LONG_J); +fornext_entrylabel3599: +*_SUB_PREPARSE_LONG_J=fornext_value3599; +if (fornext_step_negative3599){ +if (fornext_value3599fornext_finalvalue3599) break; +} +fornext_error3599:; +if(qbevent){evnt(25098);if(r)goto S_33508;} do{ *_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24022);}while(r); -S_31611:; +if(!qbevent)break;evnt(25099);}while(r); +S_33510:; do{ -if(qbevent){evnt(24023);if(r)goto S_31611;} +if(qbevent){evnt(25100);if(r)goto S_33510;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])])),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25101);}while(r); +S_33512:; +if ((-(*_SUB_PREPARSE_LONG_L== 0 ))||new_error){ +if(qbevent){evnt(25102);if(r)goto S_33512;} +do{ +goto dl_exit_3600; +if(!qbevent)break;evnt(25102);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_I= 0 ; +if(!qbevent)break;evnt(25103);}while(r); +do{ +*_SUB_PREPARSE_LONG_L1= 0 ; +if(!qbevent)break;evnt(25103);}while(r); +do{ +*_SUB_PREPARSE_LONG_L2= 0 ; +if(!qbevent)break;evnt(25103);}while(r); +do{ +*_SUB_PREPARSE_LONG_LO=((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25103);}while(r); +S_33519:; +do{ +if(qbevent){evnt(25104);if(r)goto S_33519;} +S_33520:; +if ((-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 10 ))||new_error){ +if(qbevent){evnt(25105);if(r)goto S_33520;} +do{ +*_SUB_PREPARSE_LONG_L2=func__instrrev(*_SUB_PREPARSE_LONG_L,_SUB_PREPARSE_STRING_T,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25106);}while(r); +S_33522:; +if (((-(*_SUB_PREPARSE_LONG_L2> 0 ))&(-(*_SUB_PREPARSE_LONG_L2>*_SUB_PREPARSE_LONG_L1)))||new_error){ +if(qbevent){evnt(25107);if(r)goto S_33522;} +do{ +*_SUB_PREPARSE_LONG_L1=*_SUB_PREPARSE_LONG_L2; +if(!qbevent)break;evnt(25107);}while(r); +} +} +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+*_SUB_PREPARSE_LONG_LO; +if(!qbevent)break;evnt(25109);}while(r); +S_33527:; +dl_continue_3602:; +}while((!(-(*_SUB_PREPARSE_LONG_I>func_ubound(__ARRAY_INTEGER_PL,1,1))))&&(!new_error)); +dl_exit_3602:; +if(qbevent){evnt(25110);if(r)goto S_33527;} +do{ +qbs_set(_SUB_PREPARSE_STRING_L,qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25111);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L1+ 1 ,*_SUB_PREPARSE_LONG_L-*_SUB_PREPARSE_LONG_L1- 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25112);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5])])),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+*_SUB_PREPARSE_LONG_LO,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25113);}while(r); +S_33531:; +if ((-(*_SUB_PREPARSE_LONG_J> 15 ))||new_error){ +if(qbevent){evnt(25114);if(r)goto S_33531;} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(_SUB_PREPARSE_STRING_L,_SUB_PREPARSE_STRING_M),_SUB_PREPARSE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25115);}while(r); +}else{ +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_PREPARSE_STRING_L,qbs_new_txt_len("(",1)),_SUB_PREPARSE_STRING_M),qbs_new_txt_len(")",1)),_SUB_PREPARSE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25118);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 2 +((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25120);}while(r); +dl_continue_3600:; +}while(1); +dl_exit_3600:; +fornext_continue_3598:; +} +fornext_exit_3598:; +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(25125);}while(r); +S_33540:; +do{ +if(qbevent){evnt(25126);if(r)goto S_33540;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24024);}while(r); -S_31613:; -if ((*_SUB_PREPARSE_LONG_L&(-(*_SUB_PREPARSE_LONG_L> 2 )))||new_error){ -if(qbevent){evnt(24025);if(r)goto S_31613;} +if(!qbevent)break;evnt(25127);}while(r); +S_33542:; +if (((-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L> 2 )))||new_error){ +if(qbevent){evnt(25128);if(r)goto S_33542;} do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24026);}while(r); -S_31615:; -fornext_value3399= 1 ; -fornext_finalvalue3399=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3399= 1 ; -if (fornext_step3399<0) fornext_step_negative3399=1; else fornext_step_negative3399=0; -if (new_error) goto fornext_error3399; -goto fornext_entrylabel3399; +if(!qbevent)break;evnt(25129);}while(r); +S_33544:; +fornext_value3606= 1 ; +fornext_finalvalue3606=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3606= 1 ; +if (fornext_step3606<0) fornext_step_negative3606=1; else fornext_step_negative3606=0; +if (new_error) goto fornext_error3606; +goto fornext_entrylabel3606; while(1){ -fornext_value3399=fornext_step3399+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3399: -*_SUB_PREPARSE_LONG_I=fornext_value3399; +fornext_value3606=fornext_step3606+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3606: +*_SUB_PREPARSE_LONG_I=fornext_value3606; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3399){ -if (fornext_value3399fornext_finalvalue3399) break; +if (fornext_value3606>fornext_finalvalue3606) break; } -fornext_error3399:; -if(qbevent){evnt(24027);if(r)goto S_31615;} -S_31616:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ -if(qbevent){evnt(24028);if(r)goto S_31616;} +fornext_error3606:; +if(qbevent){evnt(25130);if(r)goto S_33544;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25131);}while(r); +S_33546:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ +if(qbevent){evnt(25132);if(r)goto S_33546;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24028);}while(r); +if(!qbevent)break;evnt(25133);}while(r); do{ -goto fornext_exit_3398; -if(!qbevent)break;evnt(24028);}while(r); +goto fornext_exit_3605; +if(!qbevent)break;evnt(25133);}while(r); +}else{ +S_33550:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(25135);if(r)goto S_33550;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25137);}while(r); +S_33552:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ +if(qbevent){evnt(25138);if(r)goto S_33552;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(25138);}while(r); +do{ +goto fornext_exit_3605; +if(!qbevent)break;evnt(25138);}while(r); } -fornext_continue_3398:; } -fornext_exit_3398:; -S_31621:; +} +fornext_continue_3605:; +} +fornext_exit_3605:; +S_33559:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24030);if(r)goto S_31621;} +if(qbevent){evnt(25142);if(r)goto S_33559;} do{ qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR - Improper operations before (.",37)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24030);}while(r); +if(!qbevent)break;evnt(25142);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24030);}while(r); +if(!qbevent)break;evnt(25142);}while(r); } do{ *_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24031);}while(r); +if(!qbevent)break;evnt(25143);}while(r); } -S_31627:; -dl_continue_3397:; +S_33565:; +dl_continue_3604:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3397:; -if(qbevent){evnt(24033);if(r)goto S_31627;} +dl_exit_3604:; +if(qbevent){evnt(25145);if(r)goto S_33565;} do{ *_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24036);}while(r); -S_31629:; +if(!qbevent)break;evnt(25148);}while(r); +S_33567:; do{ -if(qbevent){evnt(24037);if(r)goto S_31629;} +if(qbevent){evnt(25149);if(r)goto S_33567;} do{ *_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24038);}while(r); -S_31631:; -if ((qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_L&(-(*_SUB_PREPARSE_LONG_L<_SUB_PREPARSE_STRING_T->len))))||new_error){ -if(qbevent){evnt(24039);if(r)goto S_31631;} +if(!qbevent)break;evnt(25150);}while(r); +S_33569:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L<_SUB_PREPARSE_STRING_T->len))))||new_error){ +if(qbevent){evnt(25151);if(r)goto S_33569;} do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24040);}while(r); -S_31633:; -fornext_value3405= 1 ; -fornext_finalvalue3405=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3405= 1 ; -if (fornext_step3405<0) fornext_step_negative3405=1; else fornext_step_negative3405=0; -if (new_error) goto fornext_error3405; -goto fornext_entrylabel3405; +if(!qbevent)break;evnt(25152);}while(r); +S_33571:; +fornext_value3614= 1 ; +fornext_finalvalue3614=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3614= 1 ; +if (fornext_step3614<0) fornext_step_negative3614=1; else fornext_step_negative3614=0; +if (new_error) goto fornext_error3614; +goto fornext_entrylabel3614; while(1){ -fornext_value3405=fornext_step3405+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3405: -*_SUB_PREPARSE_LONG_I=fornext_value3405; +fornext_value3614=fornext_step3614+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3614: +*_SUB_PREPARSE_LONG_I=fornext_value3614; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3405){ -if (fornext_value3405fornext_finalvalue3405) break; +if (fornext_value3614>fornext_finalvalue3614) break; } -fornext_error3405:; -if(qbevent){evnt(24041);if(r)goto S_31633;} -S_31634:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ -if(qbevent){evnt(24042);if(r)goto S_31634;} +fornext_error3614:; +if(qbevent){evnt(25153);if(r)goto S_33571;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25154);}while(r); +S_33573:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ +if(qbevent){evnt(25155);if(r)goto S_33573;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24042);}while(r); +if(!qbevent)break;evnt(25156);}while(r); do{ -goto fornext_exit_3404; -if(!qbevent)break;evnt(24042);}while(r); +goto fornext_exit_3613; +if(!qbevent)break;evnt(25156);}while(r); +}else{ +S_33577:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(25158);if(r)goto S_33577;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25160);}while(r); +S_33579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ +if(qbevent){evnt(25161);if(r)goto S_33579;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(25161);}while(r); +do{ +goto fornext_exit_3613; +if(!qbevent)break;evnt(25161);}while(r); } -fornext_continue_3404:; } -fornext_exit_3404:; -S_31639:; +} +fornext_continue_3613:; +} +fornext_exit_3613:; +S_33586:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 , 1 ,1),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(24044);if(r)goto S_31639;} +if(qbevent){evnt(25165);if(r)goto S_33586;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24044);}while(r); +if(!qbevent)break;evnt(25165);}while(r); } -S_31642:; +S_33589:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24045);if(r)goto S_31642;} +if(qbevent){evnt(25166);if(r)goto S_33589;} do{ qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR - Improper operations after ).",36)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24045);}while(r); +if(!qbevent)break;evnt(25166);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24045);}while(r); +if(!qbevent)break;evnt(25166);}while(r); } do{ *_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24046);}while(r); +if(!qbevent)break;evnt(25167);}while(r); } -S_31648:; -dl_continue_3402:; +S_33595:; +dl_continue_3611:; }while((!(qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L== 0 ))|(-(*_SUB_PREPARSE_LONG_L==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); -dl_exit_3402:; -if(qbevent){evnt(24048);if(r)goto S_31648;} +dl_exit_3611:; +if(qbevent){evnt(25169);if(r)goto S_33595;} do{ *_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24051);}while(r); -S_31650:; +if(!qbevent)break;evnt(25172);}while(r); +S_33597:; do{ -if(qbevent){evnt(24052);if(r)goto S_31650;} +if(qbevent){evnt(25173);if(r)goto S_33597;} do{ *_SUB_PREPARSE_LONG_L=func_instr(NULL,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("&H",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24053);}while(r); -S_31652:; +if(!qbevent)break;evnt(25174);}while(r); +S_33599:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24054);if(r)goto S_31652;} +if(qbevent){evnt(25175);if(r)goto S_33599;} do{ *__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24055);}while(r); +if(!qbevent)break;evnt(25176);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= 0 ; -if(!qbevent)break;evnt(24055);}while(r); -S_31655:; +if(!qbevent)break;evnt(25176);}while(r); +S_33602:; do{ -if(qbevent){evnt(24056);if(r)goto S_31655;} +if(qbevent){evnt(25177);if(r)goto S_33602;} do{ *__LONG_E=*__LONG_E+ 1 ; -if(!qbevent)break;evnt(24057);}while(r); +if(!qbevent)break;evnt(25178);}while(r); do{ qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24058);}while(r); -S_31658:; -if(qbevent){evnt(24059);if(r)goto S_31658;} -S_31659:; +if(!qbevent)break;evnt(25179);}while(r); +S_33605:; +if(qbevent){evnt(25180);if(r)goto S_33605;} +S_33606:; if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("9",1)))||(qbs_greaterorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("A",1))&&qbs_lessorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("F",1)))))||new_error){ -if(qbevent){evnt(24060);if(r)goto S_31659;} -goto sc_3410_end; +if(qbevent){evnt(25181);if(r)goto S_33606;} +sc_ec_156_end:; +goto sc_3620_end; } do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24062);}while(r); -S_31662:; -fornext_value3412= 1 ; -fornext_finalvalue3412=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3412= 1 ; -if (fornext_step3412<0) fornext_step_negative3412=1; else fornext_step_negative3412=0; -if (new_error) goto fornext_error3412; -goto fornext_entrylabel3412; +if(!qbevent)break;evnt(25183);}while(r); +S_33609:; +fornext_value3622= 1 ; +fornext_finalvalue3622=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3622= 1 ; +if (fornext_step3622<0) fornext_step_negative3622=1; else fornext_step_negative3622=0; +if (new_error) goto fornext_error3622; +goto fornext_entrylabel3622; while(1){ -fornext_value3412=fornext_step3412+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3412: -*_SUB_PREPARSE_LONG_I=fornext_value3412; +fornext_value3622=fornext_step3622+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3622: +*_SUB_PREPARSE_LONG_I=fornext_value3622; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3412){ -if (fornext_value3412fornext_finalvalue3412) break; +if (fornext_value3622>fornext_finalvalue3622) break; } -fornext_error3412:; -if(qbevent){evnt(24063);if(r)goto S_31662;} -S_31663:; +fornext_error3622:; +if(qbevent){evnt(25184);if(r)goto S_33609;} +S_33610:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ -if(qbevent){evnt(24064);if(r)goto S_31663;} +if(qbevent){evnt(25185);if(r)goto S_33610;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24064);}while(r); +if(!qbevent)break;evnt(25185);}while(r); do{ -goto fornext_exit_3411; -if(!qbevent)break;evnt(24064);}while(r); +goto fornext_exit_3621; +if(!qbevent)break;evnt(25185);}while(r); } -fornext_continue_3411:; +fornext_continue_3621:; } -fornext_exit_3411:; -S_31668:; +fornext_exit_3621:; +S_33615:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24066);if(r)goto S_31668;} +if(qbevent){evnt(25187);if(r)goto S_33615;} do{ qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Improper &H value. (",28),_SUB_PREPARSE_STRING_COMP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24066);}while(r); +if(!qbevent)break;evnt(25187);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24066);}while(r); +if(!qbevent)break;evnt(25187);}while(r); } do{ *__LONG_E=*__LONG_E- 1 ; -if(!qbevent)break;evnt(24067);}while(r); +if(!qbevent)break;evnt(25188);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= -1 ; -if(!qbevent)break;evnt(24068);}while(r); -sc_3410_end:; -S_31675:; -dl_continue_3409:; +if(!qbevent)break;evnt(25189);}while(r); +sc_3620_end:; +S_33622:; +dl_continue_3619:; }while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); -dl_exit_3409:; -if(qbevent){evnt(24070);if(r)goto S_31675;} +dl_exit_3619:; +if(qbevent){evnt(25191);if(r)goto S_33622;} do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_ltrim(qbs_rtrim(qbs_str((long double)(func_val(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L,*__LONG_E-*_SUB_PREPARSE_LONG_L+ 1 ,1))))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24071);}while(r); +if(!qbevent)break;evnt(25192);}while(r); } -S_31678:; -dl_continue_3408:; +S_33625:; +dl_continue_3618:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3408:; -if(qbevent){evnt(24073);if(r)goto S_31678;} +dl_exit_3618:; +if(qbevent){evnt(25194);if(r)goto S_33625;} do{ *_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24076);}while(r); -S_31680:; +if(!qbevent)break;evnt(25197);}while(r); +S_33627:; do{ -if(qbevent){evnt(24077);if(r)goto S_31680;} +if(qbevent){evnt(25198);if(r)goto S_33627;} do{ *_SUB_PREPARSE_LONG_L=func_instr(NULL,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("&B",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24078);}while(r); -S_31682:; +if(!qbevent)break;evnt(25199);}while(r); +S_33629:; if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24079);if(r)goto S_31682;} +if(qbevent){evnt(25200);if(r)goto S_33629;} do{ *__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24080);}while(r); +if(!qbevent)break;evnt(25201);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= 0 ; -if(!qbevent)break;evnt(24080);}while(r); -S_31685:; +if(!qbevent)break;evnt(25201);}while(r); +S_33632:; do{ -if(qbevent){evnt(24081);if(r)goto S_31685;} +if(qbevent){evnt(25202);if(r)goto S_33632;} do{ *__LONG_E=*__LONG_E+ 1 ; -if(!qbevent)break;evnt(24082);}while(r); +if(!qbevent)break;evnt(25203);}while(r); do{ qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24083);}while(r); -S_31688:; -if(qbevent){evnt(24084);if(r)goto S_31688;} -S_31689:; +if(!qbevent)break;evnt(25204);}while(r); +S_33635:; +if(qbevent){evnt(25205);if(r)goto S_33635;} +S_33636:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("0",1))||qbs_equal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(24085);if(r)goto S_31689;} -goto sc_3417_end; +if(qbevent){evnt(25206);if(r)goto S_33636;} +sc_ec_157_end:; +goto sc_3627_end; } do{ *_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24087);}while(r); -S_31692:; -fornext_value3419= 1 ; -fornext_finalvalue3419=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3419= 1 ; -if (fornext_step3419<0) fornext_step_negative3419=1; else fornext_step_negative3419=0; -if (new_error) goto fornext_error3419; -goto fornext_entrylabel3419; +if(!qbevent)break;evnt(25208);}while(r); +S_33639:; +fornext_value3629= 1 ; +fornext_finalvalue3629=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3629= 1 ; +if (fornext_step3629<0) fornext_step_negative3629=1; else fornext_step_negative3629=0; +if (new_error) goto fornext_error3629; +goto fornext_entrylabel3629; while(1){ -fornext_value3419=fornext_step3419+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3419: -*_SUB_PREPARSE_LONG_I=fornext_value3419; +fornext_value3629=fornext_step3629+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3629: +*_SUB_PREPARSE_LONG_I=fornext_value3629; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3419){ -if (fornext_value3419fornext_finalvalue3419) break; +if (fornext_value3629>fornext_finalvalue3629) break; } -fornext_error3419:; -if(qbevent){evnt(24088);if(r)goto S_31692;} -S_31693:; +fornext_error3629:; +if(qbevent){evnt(25209);if(r)goto S_33639;} +S_33640:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ -if(qbevent){evnt(24089);if(r)goto S_31693;} +if(qbevent){evnt(25210);if(r)goto S_33640;} do{ *_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24089);}while(r); +if(!qbevent)break;evnt(25210);}while(r); do{ -goto fornext_exit_3418; -if(!qbevent)break;evnt(24089);}while(r); +goto fornext_exit_3628; +if(!qbevent)break;evnt(25210);}while(r); } -fornext_continue_3418:; +fornext_continue_3628:; } -fornext_exit_3418:; -S_31698:; +fornext_exit_3628:; +S_33645:; if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24091);if(r)goto S_31698;} +if(qbevent){evnt(25212);if(r)goto S_33645;} do{ qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Improper &B value. (",28),_SUB_PREPARSE_STRING_COMP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24091);}while(r); +if(!qbevent)break;evnt(25212);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24091);}while(r); +if(!qbevent)break;evnt(25212);}while(r); } do{ *__LONG_E=*__LONG_E- 1 ; -if(!qbevent)break;evnt(24092);}while(r); +if(!qbevent)break;evnt(25213);}while(r); do{ *_SUB_PREPARSE_LONG_FINISHED= -1 ; -if(!qbevent)break;evnt(24093);}while(r); -sc_3417_end:; -S_31705:; -dl_continue_3416:; +if(!qbevent)break;evnt(25214);}while(r); +sc_3627_end:; +S_33652:; +dl_continue_3626:; }while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); -dl_exit_3416:; -if(qbevent){evnt(24095);if(r)goto S_31705;} +dl_exit_3626:; +if(qbevent){evnt(25216);if(r)goto S_33652;} do{ qbs_set(_SUB_PREPARSE_STRING_BIN,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 2 ,*__LONG_E-*_SUB_PREPARSE_LONG_L- 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24096);}while(r); -S_31707:; -fornext_value3423= 1 ; -fornext_finalvalue3423=_SUB_PREPARSE_STRING_BIN->len; -fornext_step3423= 1 ; -if (fornext_step3423<0) fornext_step_negative3423=1; else fornext_step_negative3423=0; -if (new_error) goto fornext_error3423; -goto fornext_entrylabel3423; +if(!qbevent)break;evnt(25217);}while(r); +S_33654:; +fornext_value3633= 1 ; +fornext_finalvalue3633=_SUB_PREPARSE_STRING_BIN->len; +fornext_step3633= 1 ; +if (fornext_step3633<0) fornext_step_negative3633=1; else fornext_step_negative3633=0; +if (new_error) goto fornext_error3633; +goto fornext_entrylabel3633; while(1){ -fornext_value3423=fornext_step3423+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3423: -*_SUB_PREPARSE_LONG_I=fornext_value3423; +fornext_value3633=fornext_step3633+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3633: +*_SUB_PREPARSE_LONG_I=fornext_value3633; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3423){ -if (fornext_value3423fornext_finalvalue3423) break; +if (fornext_value3633>fornext_finalvalue3633) break; } -fornext_error3423:; -if(qbevent){evnt(24097);if(r)goto S_31707;} -S_31708:; +fornext_error3633:; +if(qbevent){evnt(25218);if(r)goto S_33654;} +S_33655:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_BIN,*_SUB_PREPARSE_LONG_I, 1 ,1),qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(24098);if(r)goto S_31708;} +if(qbevent){evnt(25219);if(r)goto S_33655;} do{ *_SUB_PREPARSE_FLOAT_F=*_SUB_PREPARSE_FLOAT_F+(pow2( 2 ,(_SUB_PREPARSE_STRING_BIN->len-*_SUB_PREPARSE_LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24098);}while(r); +if(!qbevent)break;evnt(25219);}while(r); } -fornext_continue_3422:; +fornext_continue_3632:; } -fornext_exit_3422:; +fornext_exit_3632:; do{ qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_SUB_PREPARSE_FLOAT_F))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24100);}while(r); +if(!qbevent)break;evnt(25221);}while(r); } -S_31714:; -dl_continue_3415:; +S_33661:; +dl_continue_3625:; }while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3415:; -if(qbevent){evnt(24102);if(r)goto S_31714;} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,FUNC_N2S(_SUB_PREPARSE_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24104);}while(r); +dl_exit_3625:; +if(qbevent){evnt(25223);if(r)goto S_33661;} do{ SUB_VERIFYSTRING(_SUB_PREPARSE_STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24105);}while(r); +if(!qbevent)break;evnt(25227);}while(r); do{ qbs_set(_SUB_PREPARSE_STRING_E,_SUB_PREPARSE_STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24107);}while(r); +if(!qbevent)break;evnt(25228);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free78.txt" @@ -113190,80 +116998,102 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_VERIFYSTRING_LONG_J= 1 ; -if(!qbevent)break;evnt(24114);}while(r); -S_31719:; +if(!qbevent)break;evnt(25235);}while(r); +S_33665:; do{ -if(qbevent){evnt(24115);if(r)goto S_31719;} +if(qbevent){evnt(25236);if(r)goto S_33665;} do{ qbs_set(_SUB_VERIFYSTRING_STRING_COMP,func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24116);}while(r); -S_31721:; -if(qbevent){evnt(24117);if(r)goto S_31721;} -S_31722:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("9",1)))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(".",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("(",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(24118);if(r)goto S_31722;} +if(!qbevent)break;evnt(25237);}while(r); +S_33667:; +if(qbevent){evnt(25238);if(r)goto S_33667;} +S_33668:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("9",1)))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(".",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("(",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(")",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(25239);if(r)goto S_33668;} do{ *_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+ 1 ; -if(!qbevent)break;evnt(24118);}while(r); -goto sc_3428_end; +if(!qbevent)break;evnt(25239);}while(r); +sc_ec_158_end:; +goto sc_3638_end; } do{ *_SUB_VERIFYSTRING_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24120);}while(r); -S_31726:; -fornext_value3430= 1 ; -fornext_finalvalue3430=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3430= 1 ; -if (fornext_step3430<0) fornext_step_negative3430=1; else fornext_step_negative3430=0; -if (new_error) goto fornext_error3430; -goto fornext_entrylabel3430; +if(!qbevent)break;evnt(25241);}while(r); +do{ +*_SUB_VERIFYSTRING_LONG_EXTRACHAR= 0 ; +if(!qbevent)break;evnt(25242);}while(r); +S_33673:; +fornext_value3640= 1 ; +fornext_finalvalue3640=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3640= 1 ; +if (fornext_step3640<0) fornext_step_negative3640=1; else fornext_step_negative3640=0; +if (new_error) goto fornext_error3640; +goto fornext_entrylabel3640; while(1){ -fornext_value3430=fornext_step3430+(*_SUB_VERIFYSTRING_LONG_I); -fornext_entrylabel3430: -*_SUB_VERIFYSTRING_LONG_I=fornext_value3430; +fornext_value3640=fornext_step3640+(*_SUB_VERIFYSTRING_LONG_I); +fornext_entrylabel3640: +*_SUB_VERIFYSTRING_LONG_I=fornext_value3640; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3430){ -if (fornext_value3430fornext_finalvalue3430) break; +if (fornext_value3640>fornext_finalvalue3640) break; } -fornext_error3430:; -if(qbevent){evnt(24121);if(r)goto S_31726;} -S_31727:; +fornext_error3640:; +if(qbevent){evnt(25243);if(r)goto S_33673;} +S_33674:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ -if(qbevent){evnt(24122);if(r)goto S_31727;} +if(qbevent){evnt(25244);if(r)goto S_33674;} do{ *_SUB_VERIFYSTRING_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24122);}while(r); +if(!qbevent)break;evnt(25245);}while(r); do{ -goto fornext_exit_3429; -if(!qbevent)break;evnt(24122);}while(r); +goto fornext_exit_3639; +if(!qbevent)break;evnt(25245);}while(r); +}else{ +S_33678:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(25247);if(r)goto S_33678;} +S_33679:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,1),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ +if(qbevent){evnt(25249);if(r)goto S_33679;} +do{ +*_SUB_VERIFYSTRING_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(25250);}while(r); +do{ +*_SUB_VERIFYSTRING_LONG_EXTRACHAR= 1 ; +if(!qbevent)break;evnt(25250);}while(r); +do{ +goto fornext_exit_3639; +if(!qbevent)break;evnt(25250);}while(r); } -fornext_continue_3429:; } -fornext_exit_3429:; -S_31732:; +} +fornext_continue_3639:; +} +fornext_exit_3639:; +S_33687:; if ((~(*_SUB_VERIFYSTRING_LONG_GOOD))||new_error){ -if(qbevent){evnt(24124);if(r)goto S_31732;} +if(qbevent){evnt(25255);if(r)goto S_33687;} do{ qbs_set(_SUB_VERIFYSTRING_STRING_T,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Bad Operational value. (",32),_SUB_VERIFYSTRING_STRING_COMP),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24124);}while(r); +if(!qbevent)break;evnt(25255);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24124);}while(r); +if(!qbevent)break;evnt(25255);}while(r); } do{ -*_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len; +*_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len-*_SUB_VERIFYSTRING_LONG_EXTRACHAR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24125);}while(r); -sc_3428_end:; -S_31738:; -dl_continue_3427:; +if(!qbevent)break;evnt(25256);}while(r); +sc_3638_end:; +S_33693:; +dl_continue_3637:; }while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_VERIFYSTRING_LONG_J>_SUB_VERIFYSTRING_STRING_T->len))))&&(!new_error)); -dl_exit_3427:; -if(qbevent){evnt(24127);if(r)goto S_31738;} +dl_exit_3637:; +if(qbevent){evnt(25258);if(r)goto S_33693;} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free79.txt" @@ -113286,187 +117116,193 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_N2S_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_N2S_STRING_EXP))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24131);}while(r); -S_31740:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24132);if(r)goto S_31740;} +if(!qbevent)break;evnt(25263);}while(r); +S_33695:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("-",1)))|(qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("N",1)))))||new_error){ +if(qbevent){evnt(25264);if(r)goto S_33695;} do{ qbs_set(_FUNC_N2S_STRING_SIGN,qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24132);}while(r); +if(!qbevent)break;evnt(25264);}while(r); do{ qbs_set(_FUNC_N2S_STRING_T,func_mid(_FUNC_N2S_STRING_T, 2 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24132);}while(r); +if(!qbevent)break;evnt(25264);}while(r); } do{ *_FUNC_N2S_LONG_DP=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("D+",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24134);}while(r); +if(!qbevent)break;evnt(25266);}while(r); do{ *_FUNC_N2S_LONG_DM=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("D-",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24134);}while(r); +if(!qbevent)break;evnt(25266);}while(r); do{ *_FUNC_N2S_LONG_EP=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("E+",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24135);}while(r); +if(!qbevent)break;evnt(25267);}while(r); do{ *_FUNC_N2S_LONG_EM=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("E-",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24135);}while(r); +if(!qbevent)break;evnt(25267);}while(r); do{ *_FUNC_N2S_LONG_CHECK1=func_sgn((int32)(*_FUNC_N2S_LONG_DP))+func_sgn((int32)(*_FUNC_N2S_LONG_DM))+func_sgn((int32)(*_FUNC_N2S_LONG_EP))+func_sgn((int32)(*_FUNC_N2S_LONG_EM)); -if(!qbevent)break;evnt(24136);}while(r); -S_31749:; +if(!qbevent)break;evnt(25268);}while(r); +S_33704:; if (((-(*_FUNC_N2S_LONG_CHECK1< 1 ))|(-(*_FUNC_N2S_LONG_CHECK1> 1 )))||new_error){ -if(qbevent){evnt(24137);if(r)goto S_31749;} +if(qbevent){evnt(25269);if(r)goto S_33704;} do{ qbs_set(_FUNC_N2S_STRING_N2S,_FUNC_N2S_STRING_EXP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24137);}while(r); +if(!qbevent)break;evnt(25269);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24137);}while(r); +if(!qbevent)break;evnt(25269);}while(r); } -S_31753:; -if(qbevent){evnt(24139);if(r)goto S_31753;} -S_31754:; +S_33708:; +if(qbevent){evnt(25271);if(r)goto S_33708;} +S_33709:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DP)))||new_error){ -if(qbevent){evnt(24140);if(r)goto S_31754;} +if(qbevent){evnt(25272);if(r)goto S_33709;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DP; -if(!qbevent)break;evnt(24140);}while(r); -goto sc_3435_end; +if(!qbevent)break;evnt(25272);}while(r); +sc_ec_159_end:; +goto sc_3646_end; } -S_31756:; +S_33711:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DM)))||new_error){ -if(qbevent){evnt(24141);if(r)goto S_31756;} +if(qbevent){evnt(25273);if(r)goto S_33711;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DM; -if(!qbevent)break;evnt(24141);}while(r); -goto sc_3435_end; +if(!qbevent)break;evnt(25273);}while(r); +sc_ec_160_end:; +goto sc_3646_end; } -S_31758:; +S_33713:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EP)))||new_error){ -if(qbevent){evnt(24142);if(r)goto S_31758;} +if(qbevent){evnt(25274);if(r)goto S_33713;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EP; -if(!qbevent)break;evnt(24142);}while(r); -goto sc_3435_end; +if(!qbevent)break;evnt(25274);}while(r); +sc_ec_161_end:; +goto sc_3646_end; } -S_31760:; +S_33715:; if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EM)))||new_error){ -if(qbevent){evnt(24143);if(r)goto S_31760;} +if(qbevent){evnt(25275);if(r)goto S_33715;} do{ *_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EM; -if(!qbevent)break;evnt(24143);}while(r); -goto sc_3435_end; +if(!qbevent)break;evnt(25275);}while(r); +sc_ec_162_end:; +goto sc_3646_end; } -sc_3435_end:; +sc_3646_end:; do{ qbs_set(_FUNC_N2S_STRING_L,qbs_left(_FUNC_N2S_STRING_T,*_FUNC_N2S_LONG_L- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24146);}while(r); +if(!qbevent)break;evnt(25278);}while(r); do{ qbs_set(_FUNC_N2S_STRING_R,func_mid(_FUNC_N2S_STRING_T,*_FUNC_N2S_LONG_L+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24147);}while(r); +if(!qbevent)break;evnt(25279);}while(r); do{ *_FUNC_N2S_INTEGER64_R=qbr(func_val(_FUNC_N2S_STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24147);}while(r); -S_31766:; +if(!qbevent)break;evnt(25279);}while(r); +S_33721:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_N2S_STRING_L,qbs_new_txt_len(".",1),0)))||new_error){ -if(qbevent){evnt(24150);if(r)goto S_31766;} -S_31767:; +if(qbevent){evnt(25282);if(r)goto S_33721;} +S_33722:; if ((-(*_FUNC_N2S_INTEGER64_R> 0 ))||new_error){ -if(qbevent){evnt(24151);if(r)goto S_31767;} +if(qbevent){evnt(25283);if(r)goto S_33722;} do{ *_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R-_FUNC_N2S_STRING_L->len+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24152);}while(r); +if(!qbevent)break;evnt(25284);}while(r); }else{ do{ *_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R+ 1 ; -if(!qbevent)break;evnt(24154);}while(r); +if(!qbevent)break;evnt(25286);}while(r); } do{ qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_left(_FUNC_N2S_STRING_L, 1 ),func_mid(_FUNC_N2S_STRING_L, 3 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24156);}while(r); +if(!qbevent)break;evnt(25288);}while(r); } -S_31774:; -if(qbevent){evnt(24159);if(r)goto S_31774;} -S_31775:; +S_33729:; +if(qbevent){evnt(25291);if(r)goto S_33729;} +S_33730:; if (((*_FUNC_N2S_INTEGER64_R==( 0 )))||new_error){ -if(qbevent){evnt(24160);if(r)goto S_31775;} -goto sc_3437_end; +if(qbevent){evnt(25292);if(r)goto S_33730;} +sc_ec_163_end:; +goto sc_3648_end; } -S_31776:; +S_33731:; if (((*_FUNC_N2S_INTEGER64_R<( 0 )))||new_error){ -if(qbevent){evnt(24162);if(r)goto S_31776;} -S_31777:; -fornext_value3439= 1 ; -fornext_finalvalue3439=-(*_FUNC_N2S_INTEGER64_R); -fornext_step3439= 1 ; -if (fornext_step3439<0) fornext_step_negative3439=1; else fornext_step_negative3439=0; -if (new_error) goto fornext_error3439; -goto fornext_entrylabel3439; +if(qbevent){evnt(25294);if(r)goto S_33731;} +S_33732:; +fornext_value3650= 1 ; +fornext_finalvalue3650=-(*_FUNC_N2S_INTEGER64_R); +fornext_step3650= 1 ; +if (fornext_step3650<0) fornext_step_negative3650=1; else fornext_step_negative3650=0; +if (new_error) goto fornext_error3650; +goto fornext_entrylabel3650; while(1){ -fornext_value3439=fornext_step3439+(*_FUNC_N2S_LONG_I); -fornext_entrylabel3439: -*_FUNC_N2S_LONG_I=fornext_value3439; -if (fornext_step_negative3439){ -if (fornext_value3439fornext_finalvalue3439) break; +if (fornext_value3650>fornext_finalvalue3650) break; } -fornext_error3439:; -if(qbevent){evnt(24163);if(r)goto S_31777;} +fornext_error3650:; +if(qbevent){evnt(25295);if(r)goto S_33732;} do{ qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_new_txt_len("0",1),_FUNC_N2S_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24164);}while(r); -fornext_continue_3438:; +if(!qbevent)break;evnt(25296);}while(r); +fornext_continue_3649:; } -fornext_exit_3438:; +fornext_exit_3649:; do{ qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_new_txt_len("0.",2),_FUNC_N2S_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24166);}while(r); -goto sc_3437_end; +if(!qbevent)break;evnt(25298);}while(r); +sc_ec_164_end:; +goto sc_3648_end; } -S_31782:; -fornext_value3441= 1 ; -fornext_finalvalue3441=*_FUNC_N2S_INTEGER64_R; -fornext_step3441= 1 ; -if (fornext_step3441<0) fornext_step_negative3441=1; else fornext_step_negative3441=0; -if (new_error) goto fornext_error3441; -goto fornext_entrylabel3441; +S_33737:; +fornext_value3652= 1 ; +fornext_finalvalue3652=*_FUNC_N2S_INTEGER64_R; +fornext_step3652= 1 ; +if (fornext_step3652<0) fornext_step_negative3652=1; else fornext_step_negative3652=0; +if (new_error) goto fornext_error3652; +goto fornext_entrylabel3652; while(1){ -fornext_value3441=fornext_step3441+(*_FUNC_N2S_LONG_I); -fornext_entrylabel3441: -*_FUNC_N2S_LONG_I=fornext_value3441; -if (fornext_step_negative3441){ -if (fornext_value3441fornext_finalvalue3441) break; +if (fornext_value3652>fornext_finalvalue3652) break; } -fornext_error3441:; -if(qbevent){evnt(24168);if(r)goto S_31782;} +fornext_error3652:; +if(qbevent){evnt(25300);if(r)goto S_33737;} do{ qbs_set(_FUNC_N2S_STRING_L,qbs_add(_FUNC_N2S_STRING_L,qbs_new_txt_len("0",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24169);}while(r); -fornext_continue_3440:; +if(!qbevent)break;evnt(25301);}while(r); +fornext_continue_3651:; } -fornext_exit_3440:; -sc_3437_end:; +fornext_exit_3651:; +sc_3648_end:; do{ qbs_set(_FUNC_N2S_STRING_N2S,qbs_add(_FUNC_N2S_STRING_SIGN,_FUNC_N2S_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24173);}while(r); +if(!qbevent)break;evnt(25305);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free80.txt" @@ -113487,27 +117323,27 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_31787:; +S_33742:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(24179);if(r)goto S_31787;} +if(qbevent){evnt(25311);if(r)goto S_33742;} do{ qbs_set(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME,qbs_add(qbs_add(func_chr( 34 ),_FUNC_QUOTEDFILENAME_STRING_F),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24180);}while(r); +if(!qbevent)break;evnt(25312);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24181);}while(r); +if(!qbevent)break;evnt(25313);}while(r); } -S_31791:; +S_33746:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(24184);if(r)goto S_31791;} +if(qbevent){evnt(25316);if(r)goto S_33746;} do{ qbs_set(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME,qbs_add(qbs_add(qbs_new_txt_len("'",1),_FUNC_QUOTEDFILENAME_STRING_F),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24185);}while(r); +if(!qbevent)break;evnt(25317);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24186);}while(r); +if(!qbevent)break;evnt(25318);}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -113532,124 +117368,131 @@ if (new_error) goto exit_subfunc; do{ *_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24194);}while(r); -S_31796:; +if(!qbevent)break;evnt(25326);}while(r); +S_33751:; if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||new_error){ -if(qbevent){evnt(24195);if(r)goto S_31796;} +if(qbevent){evnt(25327);if(r)goto S_33751;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24195);}while(r); +if(!qbevent)break;evnt(25327);}while(r); } do{ *_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24196);}while(r); -S_31800:; +if(!qbevent)break;evnt(25328);}while(r); +S_33755:; if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||new_error){ -if(qbevent){evnt(24197);if(r)goto S_31800;} -S_31801:; -if(qbevent){evnt(24198);if(r)goto S_31801;} -S_31802:; +if(qbevent){evnt(25329);if(r)goto S_33755;} +S_33756:; +if(qbevent){evnt(25330);if(r)goto S_33756;} +S_33757:; if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ -if(qbevent){evnt(24199);if(r)goto S_31802;} +if(qbevent){evnt(25331);if(r)goto S_33757;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*_FUNC_HASHVALUE_LONG_A)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+ 1048576 ; -if(!qbevent)break;evnt(24200);}while(r); +if(!qbevent)break;evnt(25332);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24201);}while(r); -goto sc_3445_end; +if(!qbevent)break;evnt(25333);}while(r); +sc_ec_165_end:; +goto sc_3656_end; } -S_31805:; +S_33760:; if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ -if(qbevent){evnt(24202);if(r)goto S_31805;} +if(qbevent){evnt(25334);if(r)goto S_33760;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+ 2097152 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24203);}while(r); +if(!qbevent)break;evnt(25335);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24204);}while(r); -goto sc_3445_end; +if(!qbevent)break;evnt(25336);}while(r); +sc_ec_166_end:; +goto sc_3656_end; } -S_31808:; +S_33763:; if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ -if(qbevent){evnt(24205);if(r)goto S_31808;} +if(qbevent){evnt(25337);if(r)goto S_33763;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+( 3145728 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24206);}while(r); +if(!qbevent)break;evnt(25338);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24207);}while(r); -goto sc_3445_end; +if(!qbevent)break;evnt(25339);}while(r); +sc_ec_167_end:; +goto sc_3656_end; } do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24209);}while(r); +if(!qbevent)break;evnt(25341);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24210);}while(r); -sc_3445_end:; +if(!qbevent)break;evnt(25342);}while(r); +sc_3656_end:; }else{ -S_31816:; -if(qbevent){evnt(24213);if(r)goto S_31816;} -S_31817:; +S_33771:; +if(qbevent){evnt(25345);if(r)goto S_33771;} +S_33772:; if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ -if(qbevent){evnt(24214);if(r)goto S_31817;} +if(qbevent){evnt(25346);if(r)goto S_33772;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 ); -if(!qbevent)break;evnt(24215);}while(r); +if(!qbevent)break;evnt(25347);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24215);}while(r); -goto sc_3446_end; +if(!qbevent)break;evnt(25347);}while(r); +sc_ec_168_end:; +goto sc_3657_end; } -S_31820:; +S_33775:; if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ -if(qbevent){evnt(24216);if(r)goto S_31820;} +if(qbevent){evnt(25348);if(r)goto S_33775;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+( 2097152 + 8388608 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24217);}while(r); +if(!qbevent)break;evnt(25349);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24218);}while(r); -goto sc_3446_end; +if(!qbevent)break;evnt(25350);}while(r); +sc_ec_169_end:; +goto sc_3657_end; } -S_31823:; +S_33778:; if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ -if(qbevent){evnt(24219);if(r)goto S_31823;} +if(qbevent){evnt(25351);if(r)goto S_33778;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))+(qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+( 3145728 + 8388608 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24220);}while(r); +if(!qbevent)break;evnt(25352);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24221);}while(r); -goto sc_3446_end; +if(!qbevent)break;evnt(25353);}while(r); +sc_ec_170_end:; +goto sc_3657_end; } -S_31826:; +S_33781:; if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||new_error){ -if(qbevent){evnt(24222);if(r)goto S_31826;} +if(qbevent){evnt(25354);if(r)goto S_33781;} do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/ 256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 4 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+(( 4194304 + 8388608 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24223);}while(r); +if(!qbevent)break;evnt(25355);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24224);}while(r); -goto sc_3446_end; +if(!qbevent)break;evnt(25356);}while(r); +sc_ec_171_end:; +goto sc_3657_end; } do{ *_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/ 256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 )+( 8388608 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24226);}while(r); +if(!qbevent)break;evnt(25358);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24227);}while(r); -sc_3446_end:; +if(!qbevent)break;evnt(25359);}while(r); +sc_3657_end:; } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -113671,22 +117514,22 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_31834:; +S_33789:; if ((-(*__LONG_HASHLISTFREELAST> 0 ))||new_error){ -if(qbevent){evnt(24235);if(r)goto S_31834;} +if(qbevent){evnt(25367);if(r)goto S_33789;} do{ *_SUB_HASHADD_LONG_I=((int32*)(__ARRAY_LONG_HASHLISTFREE[0]))[array_check((*__LONG_HASHLISTFREELAST)-__ARRAY_LONG_HASHLISTFREE[4],__ARRAY_LONG_HASHLISTFREE[5])]; -if(!qbevent)break;evnt(24237);}while(r); +if(!qbevent)break;evnt(25369);}while(r); do{ *__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST- 1 ; -if(!qbevent)break;evnt(24238);}while(r); +if(!qbevent)break;evnt(25370);}while(r); }else{ -S_31838:; +S_33793:; if ((-(*__LONG_HASHLISTNEXT>*__LONG_HASHLISTSIZE))||new_error){ -if(qbevent){evnt(24240);if(r)goto S_31838;} +if(qbevent){evnt(25372);if(r)goto S_33793;} do{ *__LONG_HASHLISTSIZE=*__LONG_HASHLISTSIZE* 2 ; -if(!qbevent)break;evnt(24242);}while(r); +if(!qbevent)break;evnt(25374);}while(r); do{ if (__ARRAY_UDT_HASHLIST[2]&2){ @@ -113726,7 +117569,7 @@ if (!__ARRAY_UDT_HASHLIST[0]) error(257); } __ARRAY_UDT_HASHLIST[2]|=1; } -if(!qbevent)break;evnt(24243);}while(r); +if(!qbevent)break;evnt(25375);}while(r); do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ @@ -113766,63 +117609,63 @@ if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; } -if(!qbevent)break;evnt(24244);}while(r); +if(!qbevent)break;evnt(25376);}while(r); } do{ *_SUB_HASHADD_LONG_I=*__LONG_HASHLISTNEXT; -if(!qbevent)break;evnt(24246);}while(r); +if(!qbevent)break;evnt(25378);}while(r); do{ *__LONG_HASHLISTNEXT=*__LONG_HASHLISTNEXT+ 1 ; -if(!qbevent)break;evnt(24247);}while(r); +if(!qbevent)break;evnt(25379);}while(r); } do{ *_SUB_HASHADD_LONG_X=FUNC_HASHVALUE(_SUB_HASHADD_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24251);}while(r); +if(!qbevent)break;evnt(25383);}while(r); do{ *_SUB_HASHADD_LONG_I2=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHADD_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -if(!qbevent)break;evnt(24252);}while(r); -S_31848:; +if(!qbevent)break;evnt(25384);}while(r); +S_33803:; if ((*_SUB_HASHADD_LONG_I2)||new_error){ -if(qbevent){evnt(24253);if(r)goto S_31848;} +if(qbevent){evnt(25385);if(r)goto S_33803;} do{ *_SUB_HASHADD_LONG_I3=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(24254);}while(r); +if(!qbevent)break;evnt(25386);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(24255);}while(r); +if(!qbevent)break;evnt(25387);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I3)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(24256);}while(r); +if(!qbevent)break;evnt(25388);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))=*_SUB_HASHADD_LONG_I3; -if(!qbevent)break;evnt(24257);}while(r); +if(!qbevent)break;evnt(25389);}while(r); }else{ do{ tmp_long=array_check((*_SUB_HASHADD_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(24259);}while(r); +if(!qbevent)break;evnt(25391);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))= 0 ; -if(!qbevent)break;evnt(24260);}while(r); +if(!qbevent)break;evnt(25392);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(24261);}while(r); +if(!qbevent)break;evnt(25393);}while(r); } do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))= 0 ; -if(!qbevent)break;evnt(24263);}while(r); +if(!qbevent)break;evnt(25395);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20))=*_SUB_HASHADD_LONG_FLAGS; -if(!qbevent)break;evnt(24266);}while(r); +if(!qbevent)break;evnt(25398);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4))=*_SUB_HASHADD_LONG_REFERENCE; -if(!qbevent)break;evnt(24267);}while(r); +if(!qbevent)break;evnt(25399);}while(r); do{ tmp_long=array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[tmp_long*256],256,1),qbs_ucase(_SUB_HASHADD_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24268);}while(r); +if(!qbevent)break;evnt(25400);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free83.txt" @@ -113845,81 +117688,81 @@ if (new_error) goto exit_subfunc; do{ *_FUNC_HASHFIND_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(_FUNC_HASHFIND_STRING_A))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24277);}while(r); -S_31863:; +if(!qbevent)break;evnt(25409);}while(r); +S_33818:; if ((*_FUNC_HASHFIND_LONG_I)||new_error){ -if(qbevent){evnt(24278);if(r)goto S_31863;} +if(qbevent){evnt(25410);if(r)goto S_33818;} do{ qbs_set(_FUNC_HASHFIND_STRING_UA,qbs_add(qbs_ucase(_FUNC_HASHFIND_STRING_A),func_space( 256 -_FUNC_HASHFIND_STRING_A->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24279);}while(r); +if(!qbevent)break;evnt(25411);}while(r); LABEL_HASHFIND_NEXT:; -if(qbevent){evnt(24280);r=0;} +if(qbevent){evnt(25412);r=0;} do{ *_FUNC_HASHFIND_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(24281);}while(r); -S_31866:; +if(!qbevent)break;evnt(25413);}while(r); +S_33821:; if ((*_FUNC_HASHFIND_LONG_SEARCHFLAGS&*_FUNC_HASHFIND_LONG_F)||new_error){ -if(qbevent){evnt(24282);if(r)goto S_31866;} -S_31867:; +if(qbevent){evnt(25414);if(r)goto S_33821;} +S_33822:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),_FUNC_HASHFIND_STRING_UA)))||new_error){ -if(qbevent){evnt(24283);if(r)goto S_31867;} +if(qbevent){evnt(25415);if(r)goto S_33822;} do{ *_FUNC_HASHFIND_LONG_RESULTFLAGS=*_FUNC_HASHFIND_LONG_F; -if(!qbevent)break;evnt(24284);}while(r); +if(!qbevent)break;evnt(25416);}while(r); do{ *_FUNC_HASHFIND_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(24285);}while(r); +if(!qbevent)break;evnt(25417);}while(r); do{ *_FUNC_HASHFIND_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24286);}while(r); -S_31871:; +if(!qbevent)break;evnt(25418);}while(r); +S_33826:; if ((*_FUNC_HASHFIND_LONG_I2)||new_error){ -if(qbevent){evnt(24287);if(r)goto S_31871;} +if(qbevent){evnt(25419);if(r)goto S_33826;} do{ *_FUNC_HASHFIND_LONG_HASHFIND= 2 ; -if(!qbevent)break;evnt(24288);}while(r); +if(!qbevent)break;evnt(25420);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFIND_LONG_I2; -if(!qbevent)break;evnt(24289);}while(r); +if(!qbevent)break;evnt(25421);}while(r); do{ *__LONG_HASHFIND_REVERSE= 0 ; -if(!qbevent)break;evnt(24290);}while(r); +if(!qbevent)break;evnt(25422);}while(r); do{ *__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFIND_LONG_SEARCHFLAGS; -if(!qbevent)break;evnt(24291);}while(r); +if(!qbevent)break;evnt(25423);}while(r); do{ qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFIND_STRING_UA); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24292);}while(r); +if(!qbevent)break;evnt(25424);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; -if(!qbevent)break;evnt(24293);}while(r); +if(!qbevent)break;evnt(25425);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24294);}while(r); +if(!qbevent)break;evnt(25426);}while(r); }else{ do{ *_FUNC_HASHFIND_LONG_HASHFIND= 1 ; -if(!qbevent)break;evnt(24296);}while(r); +if(!qbevent)break;evnt(25428);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; -if(!qbevent)break;evnt(24297);}while(r); +if(!qbevent)break;evnt(25429);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24298);}while(r); +if(!qbevent)break;evnt(25430);}while(r); } } } do{ *_FUNC_HASHFIND_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24302);}while(r); -S_31887:; +if(!qbevent)break;evnt(25434);}while(r); +S_33842:; if ((*_FUNC_HASHFIND_LONG_I)||new_error){ -if(qbevent){evnt(24303);if(r)goto S_31887;} +if(qbevent){evnt(25435);if(r)goto S_33842;} do{ goto LABEL_HASHFIND_NEXT; -if(!qbevent)break;evnt(24303);}while(r); +if(!qbevent)break;evnt(25435);}while(r); } } exit_subfunc:; @@ -113945,84 +117788,84 @@ if (new_error) goto exit_subfunc; do{ *_FUNC_HASHFINDREV_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(_FUNC_HASHFINDREV_STRING_A))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24312);}while(r); -S_31892:; +if(!qbevent)break;evnt(25444);}while(r); +S_33847:; if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ -if(qbevent){evnt(24313);if(r)goto S_31892;} +if(qbevent){evnt(25445);if(r)goto S_33847;} do{ *_FUNC_HASHFINDREV_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(24314);}while(r); +if(!qbevent)break;evnt(25446);}while(r); do{ qbs_set(_FUNC_HASHFINDREV_STRING_UA,qbs_add(qbs_ucase(_FUNC_HASHFINDREV_STRING_A),func_space( 256 -_FUNC_HASHFINDREV_STRING_A->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24315);}while(r); +if(!qbevent)break;evnt(25447);}while(r); LABEL_HASHFINDREV_NEXT:; -if(qbevent){evnt(24316);r=0;} +if(qbevent){evnt(25448);r=0;} do{ *_FUNC_HASHFINDREV_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(24317);}while(r); -S_31896:; +if(!qbevent)break;evnt(25449);}while(r); +S_33851:; if ((*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS&*_FUNC_HASHFINDREV_LONG_F)||new_error){ -if(qbevent){evnt(24318);if(r)goto S_31896;} -S_31897:; +if(qbevent){evnt(25450);if(r)goto S_33851;} +S_33852:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),_FUNC_HASHFINDREV_STRING_UA)))||new_error){ -if(qbevent){evnt(24319);if(r)goto S_31897;} +if(qbevent){evnt(25451);if(r)goto S_33852;} do{ *_FUNC_HASHFINDREV_LONG_RESULTFLAGS=*_FUNC_HASHFINDREV_LONG_F; -if(!qbevent)break;evnt(24320);}while(r); +if(!qbevent)break;evnt(25452);}while(r); do{ *_FUNC_HASHFINDREV_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(24321);}while(r); +if(!qbevent)break;evnt(25453);}while(r); do{ *_FUNC_HASHFINDREV_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(24322);}while(r); -S_31901:; +if(!qbevent)break;evnt(25454);}while(r); +S_33856:; if ((*_FUNC_HASHFINDREV_LONG_I2)||new_error){ -if(qbevent){evnt(24323);if(r)goto S_31901;} +if(qbevent){evnt(25455);if(r)goto S_33856;} do{ *_FUNC_HASHFINDREV_LONG_HASHFINDREV= 2 ; -if(!qbevent)break;evnt(24324);}while(r); +if(!qbevent)break;evnt(25456);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDREV_LONG_I2; -if(!qbevent)break;evnt(24325);}while(r); +if(!qbevent)break;evnt(25457);}while(r); do{ *__LONG_HASHFIND_REVERSE= 1 ; -if(!qbevent)break;evnt(24326);}while(r); +if(!qbevent)break;evnt(25458);}while(r); do{ *__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS; -if(!qbevent)break;evnt(24327);}while(r); +if(!qbevent)break;evnt(25459);}while(r); do{ qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFINDREV_STRING_UA); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24328);}while(r); +if(!qbevent)break;evnt(25460);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; -if(!qbevent)break;evnt(24329);}while(r); +if(!qbevent)break;evnt(25461);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24330);}while(r); +if(!qbevent)break;evnt(25462);}while(r); }else{ do{ *_FUNC_HASHFINDREV_LONG_HASHFINDREV= 1 ; -if(!qbevent)break;evnt(24332);}while(r); +if(!qbevent)break;evnt(25464);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; -if(!qbevent)break;evnt(24333);}while(r); +if(!qbevent)break;evnt(25465);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24334);}while(r); +if(!qbevent)break;evnt(25466);}while(r); } } } do{ *_FUNC_HASHFINDREV_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(24338);}while(r); -S_31917:; +if(!qbevent)break;evnt(25470);}while(r); +S_33872:; if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ -if(qbevent){evnt(24339);if(r)goto S_31917;} +if(qbevent){evnt(25471);if(r)goto S_33872;} do{ goto LABEL_HASHFINDREV_NEXT; -if(!qbevent)break;evnt(24339);}while(r); +if(!qbevent)break;evnt(25471);}while(r); } } exit_subfunc:; @@ -114045,138 +117888,138 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_31921:; +S_33876:; if ((*__LONG_HASHFIND_REVERSE)||new_error){ -if(qbevent){evnt(24348);if(r)goto S_31921;} +if(qbevent){evnt(25480);if(r)goto S_33876;} do{ *_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; -if(!qbevent)break;evnt(24350);}while(r); +if(!qbevent)break;evnt(25482);}while(r); LABEL_HASHFINDREVC_NEXT:; -if(qbevent){evnt(24351);r=0;} +if(qbevent){evnt(25483);r=0;} do{ *_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(24352);}while(r); -S_31924:; +if(!qbevent)break;evnt(25484);}while(r); +S_33879:; if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ -if(qbevent){evnt(24353);if(r)goto S_31924;} -S_31925:; +if(qbevent){evnt(25485);if(r)goto S_33879;} +S_33880:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||new_error){ -if(qbevent){evnt(24354);if(r)goto S_31925;} +if(qbevent){evnt(25486);if(r)goto S_33880;} do{ *_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; -if(!qbevent)break;evnt(24355);}while(r); +if(!qbevent)break;evnt(25487);}while(r); do{ *_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(24356);}while(r); +if(!qbevent)break;evnt(25488);}while(r); do{ *_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(24357);}while(r); -S_31929:; +if(!qbevent)break;evnt(25489);}while(r); +S_33884:; if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ -if(qbevent){evnt(24358);if(r)goto S_31929;} +if(qbevent){evnt(25490);if(r)goto S_33884;} do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; -if(!qbevent)break;evnt(24359);}while(r); +if(!qbevent)break;evnt(25491);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; -if(!qbevent)break;evnt(24360);}while(r); +if(!qbevent)break;evnt(25492);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(24361);}while(r); +if(!qbevent)break;evnt(25493);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24362);}while(r); +if(!qbevent)break;evnt(25494);}while(r); }else{ do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; -if(!qbevent)break;evnt(24364);}while(r); +if(!qbevent)break;evnt(25496);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(24365);}while(r); +if(!qbevent)break;evnt(25497);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24366);}while(r); +if(!qbevent)break;evnt(25498);}while(r); } } } do{ *_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(24370);}while(r); -S_31942:; +if(!qbevent)break;evnt(25502);}while(r); +S_33897:; if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ -if(qbevent){evnt(24371);if(r)goto S_31942;} +if(qbevent){evnt(25503);if(r)goto S_33897;} do{ goto LABEL_HASHFINDREVC_NEXT; -if(!qbevent)break;evnt(24371);}while(r); +if(!qbevent)break;evnt(25503);}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(24372);}while(r); +if(!qbevent)break;evnt(25504);}while(r); }else{ do{ *_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; -if(!qbevent)break;evnt(24376);}while(r); +if(!qbevent)break;evnt(25508);}while(r); LABEL_HASHFINDC_NEXT:; -if(qbevent){evnt(24377);r=0;} +if(qbevent){evnt(25509);r=0;} do{ *_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(24378);}while(r); -S_31949:; +if(!qbevent)break;evnt(25510);}while(r); +S_33904:; if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ -if(qbevent){evnt(24379);if(r)goto S_31949;} -S_31950:; +if(qbevent){evnt(25511);if(r)goto S_33904;} +S_33905:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||new_error){ -if(qbevent){evnt(24380);if(r)goto S_31950;} +if(qbevent){evnt(25512);if(r)goto S_33905;} do{ *_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; -if(!qbevent)break;evnt(24381);}while(r); +if(!qbevent)break;evnt(25513);}while(r); do{ *_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(24382);}while(r); +if(!qbevent)break;evnt(25514);}while(r); do{ *_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24383);}while(r); -S_31954:; +if(!qbevent)break;evnt(25515);}while(r); +S_33909:; if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ -if(qbevent){evnt(24384);if(r)goto S_31954;} +if(qbevent){evnt(25516);if(r)goto S_33909;} do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; -if(!qbevent)break;evnt(24385);}while(r); +if(!qbevent)break;evnt(25517);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; -if(!qbevent)break;evnt(24386);}while(r); +if(!qbevent)break;evnt(25518);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(24387);}while(r); +if(!qbevent)break;evnt(25519);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24388);}while(r); +if(!qbevent)break;evnt(25520);}while(r); }else{ do{ *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; -if(!qbevent)break;evnt(24390);}while(r); +if(!qbevent)break;evnt(25522);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(24391);}while(r); +if(!qbevent)break;evnt(25523);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24392);}while(r); +if(!qbevent)break;evnt(25524);}while(r); } } } do{ *_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24396);}while(r); -S_31967:; +if(!qbevent)break;evnt(25528);}while(r); +S_33922:; if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ -if(qbevent){evnt(24397);if(r)goto S_31967;} +if(qbevent){evnt(25529);if(r)goto S_33922;} do{ goto LABEL_HASHFINDC_NEXT; -if(!qbevent)break;evnt(24397);}while(r); +if(!qbevent)break;evnt(25529);}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(24398);}while(r); +if(!qbevent)break;evnt(25530);}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -114200,16 +118043,16 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_HASHREMOVE_LONG_I=*__LONG_HASHREMOVE_LASTFOUND; -if(!qbevent)break;evnt(24405);}while(r); +if(!qbevent)break;evnt(25537);}while(r); do{ *__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST+ 1 ; -if(!qbevent)break;evnt(24408);}while(r); -S_31974:; +if(!qbevent)break;evnt(25540);}while(r); +S_33929:; if ((-(*__LONG_HASHLISTFREELAST>*__LONG_HASHLISTFREESIZE))||new_error){ -if(qbevent){evnt(24409);if(r)goto S_31974;} +if(qbevent){evnt(25541);if(r)goto S_33929;} do{ *__LONG_HASHLISTFREESIZE=*__LONG_HASHLISTFREESIZE* 2 ; -if(!qbevent)break;evnt(24410);}while(r); +if(!qbevent)break;evnt(25542);}while(r); do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ @@ -114249,68 +118092,68 @@ if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257); } __ARRAY_LONG_HASHLISTFREE[2]|=1; } -if(!qbevent)break;evnt(24411);}while(r); +if(!qbevent)break;evnt(25543);}while(r); } do{ tmp_long=array_check((*__LONG_HASHLISTFREELAST)-__ARRAY_LONG_HASHLISTFREE[4],__ARRAY_LONG_HASHLISTFREE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_HASHLISTFREE[0]))[tmp_long]=*_SUB_HASHREMOVE_LONG_I; -if(!qbevent)break;evnt(24413);}while(r); +if(!qbevent)break;evnt(25545);}while(r); do{ *_SUB_HASHREMOVE_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(24416);}while(r); -S_31980:; +if(!qbevent)break;evnt(25548);}while(r); +S_33935:; if ((*_SUB_HASHREMOVE_LONG_I1)||new_error){ -if(qbevent){evnt(24417);if(r)goto S_31980;} +if(qbevent){evnt(25549);if(r)goto S_33935;} do{ *_SUB_HASHREMOVE_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24419);}while(r); -S_31982:; +if(!qbevent)break;evnt(25551);}while(r); +S_33937:; if ((*_SUB_HASHREMOVE_LONG_I2)||new_error){ -if(qbevent){evnt(24420);if(r)goto S_31982;} +if(qbevent){evnt(25552);if(r)goto S_33937;} do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))=*_SUB_HASHREMOVE_LONG_I2; -if(!qbevent)break;evnt(24422);}while(r); +if(!qbevent)break;evnt(25554);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHREMOVE_LONG_I1; -if(!qbevent)break;evnt(24423);}while(r); +if(!qbevent)break;evnt(25555);}while(r); }else{ do{ *_SUB_HASHREMOVE_LONG_X=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24426);}while(r); +if(!qbevent)break;evnt(25558);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHREMOVE_LONG_I1; -if(!qbevent)break;evnt(24427);}while(r); +if(!qbevent)break;evnt(25559);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))= 0 ; -if(!qbevent)break;evnt(24428);}while(r); +if(!qbevent)break;evnt(25560);}while(r); } }else{ do{ *_SUB_HASHREMOVE_LONG_X=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24432);}while(r); +if(!qbevent)break;evnt(25564);}while(r); do{ *_SUB_HASHREMOVE_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24433);}while(r); -S_31993:; +if(!qbevent)break;evnt(25565);}while(r); +S_33948:; if ((*_SUB_HASHREMOVE_LONG_I2)||new_error){ -if(qbevent){evnt(24434);if(r)goto S_31993;} +if(qbevent){evnt(25566);if(r)goto S_33948;} do{ tmp_long=array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]=*_SUB_HASHREMOVE_LONG_I2; -if(!qbevent)break;evnt(24436);}while(r); +if(!qbevent)break;evnt(25568);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))= 0 ; -if(!qbevent)break;evnt(24437);}while(r); +if(!qbevent)break;evnt(25569);}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(24438);}while(r); +if(!qbevent)break;evnt(25570);}while(r); }else{ do{ tmp_long=array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(24441);}while(r); +if(!qbevent)break;evnt(25573);}while(r); } } exit_subfunc:; @@ -114334,229 +118177,229 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_HASHDUMP_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(24448);}while(r); +if(!qbevent)break;evnt(25580);}while(r); do{ sub_open(qbs_new_txt_len("hashdump.txt",12), 4 ,NULL,NULL,*_SUB_HASHDUMP_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24449);}while(r); +if(!qbevent)break;evnt(25581);}while(r); do{ qbs_set(_SUB_HASHDUMP_STRING_B,qbs_new_txt_len("12345678901234567890123456789012}",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24450);}while(r); -S_32004:; -fornext_value3453= 0 ; -fornext_finalvalue3453= 16777215 ; -fornext_step3453= 1 ; -if (fornext_step3453<0) fornext_step_negative3453=1; else fornext_step_negative3453=0; -if (new_error) goto fornext_error3453; -goto fornext_entrylabel3453; +if(!qbevent)break;evnt(25582);}while(r); +S_33959:; +fornext_value3664= 0 ; +fornext_finalvalue3664= 16777215 ; +fornext_step3664= 1 ; +if (fornext_step3664<0) fornext_step_negative3664=1; else fornext_step_negative3664=0; +if (new_error) goto fornext_error3664; +goto fornext_entrylabel3664; while(1){ -fornext_value3453=fornext_step3453+(*_SUB_HASHDUMP_LONG_X); -fornext_entrylabel3453: -*_SUB_HASHDUMP_LONG_X=fornext_value3453; -if (fornext_step_negative3453){ -if (fornext_value3453fornext_finalvalue3453) break; +if (fornext_value3664>fornext_finalvalue3664) break; } -fornext_error3453:; -if(qbevent){evnt(24451);if(r)goto S_32004;} -S_32005:; +fornext_error3664:; +if(qbevent){evnt(25583);if(r)goto S_33959;} +S_33960:; if ((((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])])||new_error){ -if(qbevent){evnt(24452);if(r)goto S_32005;} +if(qbevent){evnt(25584);if(r)goto S_33960;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3454; +if (new_error) goto skip3665; sub_file_print(tmp_fileno,qbs_new_txt_len("START HashTable(",16), 0 , 0 , 0 ); -if (new_error) goto skip3454; +if (new_error) goto skip3665; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1 , 0 , 0 ); -if (new_error) goto skip3454; +if (new_error) goto skip3665; sub_file_print(tmp_fileno,qbs_new_txt_len("):",2), 0 , 0 , 1 ); -if (new_error) goto skip3454; -skip3454: +if (new_error) goto skip3665; +skip3665: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24454);}while(r); +if(!qbevent)break;evnt(25586);}while(r); do{ *_SUB_HASHDUMP_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -if(!qbevent)break;evnt(24455);}while(r); +if(!qbevent)break;evnt(25587);}while(r); do{ *_SUB_HASHDUMP_LONG_LASTI=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(24458);}while(r); -S_32009:; +if(!qbevent)break;evnt(25590);}while(r); +S_33964:; if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))== 0 ))|(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))!= 0 ))|(-(FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))!=*_SUB_HASHDUMP_LONG_X))))||new_error){ -if(qbevent){evnt(24459);if(r)goto S_32009;} +if(qbevent){evnt(25591);if(r)goto S_33964;} do{ goto LABEL_CORRUPT; -if(!qbevent)break;evnt(24459);}while(r); +if(!qbevent)break;evnt(25591);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3455; +if (new_error) goto skip3666; sub_file_print(tmp_fileno,qbs_new_txt_len(" HashList(",11), 0 , 0 , 0 ); -if (new_error) goto skip3455; +if (new_error) goto skip3666; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_I)), 1 , 0 , 0 ); -if (new_error) goto skip3455; +if (new_error) goto skip3666; sub_file_print(tmp_fileno,qbs_new_txt_len(").LastItem=",11), 0 , 0 , 0 ); -if (new_error) goto skip3455; +if (new_error) goto skip3666; sub_file_print(tmp_fileno,qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)))), 1 , 0 , 1 ); -if (new_error) goto skip3455; -skip3455: +if (new_error) goto skip3666; +skip3666: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24461);}while(r); +if(!qbevent)break;evnt(25593);}while(r); LABEL_HASHDUMPNEXTITEM:; -if(qbevent){evnt(24462);r=0;} +if(qbevent){evnt(25594);r=0;} do{ qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" [",3),qbs_str((int32)(*_SUB_HASHDUMP_LONG_I))),qbs_new_txt_len("]",1)),qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24463);}while(r); +if(!qbevent)break;evnt(25595);}while(r); do{ *_SUB_HASHDUMP_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(24465);}while(r); +if(!qbevent)break;evnt(25597);}while(r); do{ qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Flags=",8)),qbs_str((int32)(*_SUB_HASHDUMP_LONG_F))),qbs_new_txt_len("{",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24466);}while(r); -S_32016:; -fornext_value3457= 1 ; -fornext_finalvalue3457= 32 ; -fornext_step3457= 1 ; -if (fornext_step3457<0) fornext_step_negative3457=1; else fornext_step_negative3457=0; -if (new_error) goto fornext_error3457; -goto fornext_entrylabel3457; +if(!qbevent)break;evnt(25598);}while(r); +S_33971:; +fornext_value3668= 1 ; +fornext_finalvalue3668= 32 ; +fornext_step3668= 1 ; +if (fornext_step3668<0) fornext_step_negative3668=1; else fornext_step_negative3668=0; +if (new_error) goto fornext_error3668; +goto fornext_entrylabel3668; while(1){ -fornext_value3457=fornext_step3457+(*_SUB_HASHDUMP_LONG_Z); -fornext_entrylabel3457: -*_SUB_HASHDUMP_LONG_Z=fornext_value3457; -if (fornext_step_negative3457){ -if (fornext_value3457fornext_finalvalue3457) break; +if (fornext_value3668>fornext_finalvalue3668) break; } -fornext_error3457:; -if(qbevent){evnt(24467);if(r)goto S_32016;} +fornext_error3668:; +if(qbevent){evnt(25599);if(r)goto S_33971;} do{ tqbs=_SUB_HASHDUMP_STRING_B; if (!new_error){ tmp_fileno=*_SUB_HASHDUMP_LONG_Z; if (!new_error){ tmp_long=(*_SUB_HASHDUMP_LONG_F& 1 )+ 48 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(24468);}while(r); +if(!qbevent)break;evnt(25600);}while(r); do{ *_SUB_HASHDUMP_LONG_F=*_SUB_HASHDUMP_LONG_F/ 2 ; -if(!qbevent)break;evnt(24469);}while(r); -fornext_continue_3456:; +if(!qbevent)break;evnt(25601);}while(r); +fornext_continue_3667:; } -fornext_exit_3456:; +fornext_exit_3667:; do{ qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(_SUB_HASHDUMP_STRING_X,_SUB_HASHDUMP_STRING_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24471);}while(r); +if(!qbevent)break;evnt(25603);}while(r); do{ qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Reference=",12)),qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24473);}while(r); +if(!qbevent)break;evnt(25605);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3458; +if (new_error) goto skip3669; sub_file_print(tmp_fileno,_SUB_HASHDUMP_STRING_X, 0 , 0 , 1 ); -if (new_error) goto skip3458; -skip3458: +if (new_error) goto skip3669; +skip3669: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24475);}while(r); +if(!qbevent)break;evnt(25607);}while(r); do{ *_SUB_HASHDUMP_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(24478);}while(r); +if(!qbevent)break;evnt(25610);}while(r); do{ *_SUB_HASHDUMP_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24479);}while(r); -S_32025:; +if(!qbevent)break;evnt(25611);}while(r); +S_33980:; if ((*_SUB_HASHDUMP_LONG_I1)||new_error){ -if(qbevent){evnt(24480);if(r)goto S_32025;} -S_32026:; +if(qbevent){evnt(25612);if(r)goto S_33980;} +S_33981:; if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))!=*_SUB_HASHDUMP_LONG_I))||new_error){ -if(qbevent){evnt(24481);if(r)goto S_32026;} +if(qbevent){evnt(25613);if(r)goto S_33981;} do{ goto LABEL_CORRUPT; -if(!qbevent)break;evnt(24481);}while(r); +if(!qbevent)break;evnt(25613);}while(r); } } -S_32030:; +S_33985:; if ((*_SUB_HASHDUMP_LONG_I2)||new_error){ -if(qbevent){evnt(24483);if(r)goto S_32030;} -S_32031:; +if(qbevent){evnt(25615);if(r)goto S_33985;} +S_33986:; if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))!=*_SUB_HASHDUMP_LONG_I))||new_error){ -if(qbevent){evnt(24484);if(r)goto S_32031;} +if(qbevent){evnt(25616);if(r)goto S_33986;} do{ goto LABEL_CORRUPT; -if(!qbevent)break;evnt(24484);}while(r); +if(!qbevent)break;evnt(25616);}while(r); } } -S_32035:; +S_33990:; if ((-(*_SUB_HASHDUMP_LONG_I2== 0 ))||new_error){ -if(qbevent){evnt(24486);if(r)goto S_32035;} -S_32036:; +if(qbevent){evnt(25618);if(r)goto S_33990;} +S_33991:; if ((-(*_SUB_HASHDUMP_LONG_LASTI!=*_SUB_HASHDUMP_LONG_I))||new_error){ -if(qbevent){evnt(24487);if(r)goto S_32036;} +if(qbevent){evnt(25619);if(r)goto S_33991;} do{ goto LABEL_CORRUPT; -if(!qbevent)break;evnt(24487);}while(r); +if(!qbevent)break;evnt(25619);}while(r); } } do{ *_SUB_HASHDUMP_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(24490);}while(r); -S_32041:; +if(!qbevent)break;evnt(25622);}while(r); +S_33996:; if ((*_SUB_HASHDUMP_LONG_I)||new_error){ -if(qbevent){evnt(24491);if(r)goto S_32041;} +if(qbevent){evnt(25623);if(r)goto S_33996;} do{ goto LABEL_HASHDUMPNEXTITEM; -if(!qbevent)break;evnt(24491);}while(r); +if(!qbevent)break;evnt(25623);}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3459; +if (new_error) goto skip3670; sub_file_print(tmp_fileno,qbs_new_txt_len("END HashTable(",14), 0 , 0 , 0 ); -if (new_error) goto skip3459; +if (new_error) goto skip3670; sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1 , 0 , 0 ); -if (new_error) goto skip3459; +if (new_error) goto skip3670; sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0 , 0 , 1 ); -if (new_error) goto skip3459; -skip3459: +if (new_error) goto skip3670; +skip3670: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24493);}while(r); +if(!qbevent)break;evnt(25625);}while(r); } -fornext_continue_3452:; +fornext_continue_3663:; } -fornext_exit_3452:; +fornext_exit_3663:; do{ sub_close(*_SUB_HASHDUMP_LONG_FH,1); -if(!qbevent)break;evnt(24496);}while(r); +if(!qbevent)break;evnt(25628);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24498);}while(r); +if(!qbevent)break;evnt(25630);}while(r); LABEL_CORRUPT:; -if(qbevent){evnt(24499);r=0;} +if(qbevent){evnt(25631);r=0;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3460; +if (new_error) goto skip3671; sub_file_print(tmp_fileno,qbs_new_txt_len("HASH TABLE CORRUPT!",19), 0 , 0 , 1 ); -if (new_error) goto skip3460; -skip3460: +if (new_error) goto skip3671; +skip3671: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24500);}while(r); +if(!qbevent)break;evnt(25632);}while(r); do{ sub_close(*_SUB_HASHDUMP_LONG_FH,1); -if(!qbevent)break;evnt(24501);}while(r); +if(!qbevent)break;evnt(25633);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free88.txt" @@ -114578,16 +118421,16 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *__LONG_HASHLISTSIZE= 65536 ; -if(!qbevent)break;evnt(24507);}while(r); +if(!qbevent)break;evnt(25639);}while(r); do{ *__LONG_HASHLISTNEXT= 1 ; -if(!qbevent)break;evnt(24508);}while(r); +if(!qbevent)break;evnt(25640);}while(r); do{ *__LONG_HASHLISTFREESIZE= 1024 ; -if(!qbevent)break;evnt(24509);}while(r); +if(!qbevent)break;evnt(25641);}while(r); do{ *__LONG_HASHLISTFREELAST= 0 ; -if(!qbevent)break;evnt(24510);}while(r); +if(!qbevent)break;evnt(25642);}while(r); do{ if (__ARRAY_UDT_HASHLIST[2]&2){ @@ -114613,7 +118456,7 @@ if (!__ARRAY_UDT_HASHLIST[0]) error(257); } __ARRAY_UDT_HASHLIST[2]|=1; } -if(!qbevent)break;evnt(24511);}while(r); +if(!qbevent)break;evnt(25643);}while(r); do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ @@ -114639,7 +118482,7 @@ if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; } -if(!qbevent)break;evnt(24512);}while(r); +if(!qbevent)break;evnt(25644);}while(r); do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ @@ -114665,7 +118508,7 @@ if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257); } __ARRAY_LONG_HASHLISTFREE[2]|=1; } -if(!qbevent)break;evnt(24513);}while(r); +if(!qbevent)break;evnt(25645);}while(r); do{ if (__ARRAY_LONG_HASHTABLE[2]&2){ @@ -114691,23 +118534,23 @@ if (!__ARRAY_LONG_HASHTABLE[0]) error(257); } __ARRAY_LONG_HASHTABLE[2]|=1; } -if(!qbevent)break;evnt(24514);}while(r); +if(!qbevent)break;evnt(25646);}while(r); do{ *__LONG_HASHFIND_NEXTLISTITEM= 0 ; -if(!qbevent)break;evnt(24516);}while(r); +if(!qbevent)break;evnt(25648);}while(r); do{ *__LONG_HASHFIND_REVERSE= 0 ; -if(!qbevent)break;evnt(24517);}while(r); +if(!qbevent)break;evnt(25649);}while(r); do{ *__LONG_HASHFIND_SEARCHFLAGS= 0 ; -if(!qbevent)break;evnt(24518);}while(r); +if(!qbevent)break;evnt(25650);}while(r); do{ qbs_set(__STRING_HASHFIND_NAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24519);}while(r); +if(!qbevent)break;evnt(25651);}while(r); do{ *__LONG_HASHREMOVE_LASTFOUND= 0 ; -if(!qbevent)break;evnt(24520);}while(r); +if(!qbevent)break;evnt(25652);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free89.txt" @@ -114730,14 +118573,14 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,_FUNC_REMOVECAST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24525);}while(r); -S_32065:; +if(!qbevent)break;evnt(25657);}while(r); +S_34020:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)))||new_error){ -if(qbevent){evnt(24526);if(r)goto S_32065;} +if(qbevent){evnt(25658);if(r)goto S_34020;} do{ qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,qbs_right(_FUNC_REMOVECAST_STRING_A,_FUNC_REMOVECAST_STRING_A->len-func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24527);}while(r); +if(!qbevent)break;evnt(25659);}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); @@ -114759,39 +118602,39 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32068:; +S_34023:; if ((*__LONG_IDEAUTOINDENT)||new_error){ -if(qbevent){evnt(24532);if(r)goto S_32068;} +if(qbevent){evnt(25664);if(r)goto S_34023;} do{ *_FUNC_CONVERTTABS_LONG_S=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(24532);}while(r); +if(!qbevent)break;evnt(25664);}while(r); }else{ do{ *_FUNC_CONVERTTABS_LONG_S= 4 ; -if(!qbevent)break;evnt(24532);}while(r); +if(!qbevent)break;evnt(25664);}while(r); } do{ qbs_set(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24533);}while(r); -S_32074:; +if(!qbevent)break;evnt(25665);}while(r); +S_34029:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0)))||new_error){ -if(qbevent){evnt(24534);if(r)goto S_32074;} +if(qbevent){evnt(25666);if(r)goto S_34029;} do{ *_FUNC_CONVERTTABS_LONG_X=func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24535);}while(r); +if(!qbevent)break;evnt(25667);}while(r); do{ qbs_set(_FUNC_CONVERTTABS_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_CONVERTTABS_STRING_A,*_FUNC_CONVERTTABS_LONG_X- 1 ),func_space(*_FUNC_CONVERTTABS_LONG_S-((*_FUNC_CONVERTTABS_LONG_X- 1 )%*_FUNC_CONVERTTABS_LONG_S))),qbs_right(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A->len-*_FUNC_CONVERTTABS_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24536);}while(r); -dl_continue_3464:; +if(!qbevent)break;evnt(25668);}while(r); +dl_continue_3675:; } -dl_exit_3464:; +dl_exit_3675:; do{ qbs_set(_FUNC_CONVERTTABS_STRING_CONVERTTABS,_FUNC_CONVERTTABS_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24538);}while(r); +if(!qbevent)break;evnt(25670);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free91.txt" @@ -114813,67 +118656,67 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_NEWBYTEELEMENT_STRING_A,qbs_add(qbs_new_txt_len("byte_element_",13),FUNC_STR2(&(pass3466=FUNC_UNIQUENUMBER())))); +qbs_set(_FUNC_NEWBYTEELEMENT_STRING_A,qbs_add(qbs_new_txt_len("byte_element_",13),FUNC_STR2(&(pass3677=FUNC_UNIQUENUMBER())))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24543);}while(r); +if(!qbevent)break;evnt(25675);}while(r); do{ qbs_set(_FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT,_FUNC_NEWBYTEELEMENT_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24544);}while(r); -S_32081:; +if(!qbevent)break;evnt(25676);}while(r); +S_34036:; if ((*__LONG_USE_GLOBAL_BYTE_ELEMENTS)||new_error){ -if(qbevent){evnt(24545);if(r)goto S_32081;} +if(qbevent){evnt(25677);if(r)goto S_34036;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 18 ; -if (new_error) goto skip3467; +if (new_error) goto skip3678; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=(byte_element_struct*)malloc(12);",34)), 0 , 0 , 1 ); -if (new_error) goto skip3467; -skip3467: +if (new_error) goto skip3678; +skip3678: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24546);}while(r); +if(!qbevent)break;evnt(25678);}while(r); }else{ do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3468; +if (new_error) goto skip3679; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=NULL;",6)), 0 , 0 , 1 ); -if (new_error) goto skip3468; -skip3468: +if (new_error) goto skip3679; +skip3679: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24548);}while(r); +if(!qbevent)break;evnt(25680);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3469; +if (new_error) goto skip3680; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("){",2)), 0 , 0 , 1 ); -if (new_error) goto skip3469; -skip3469: +if (new_error) goto skip3680; +skip3680: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24549);}while(r); +if(!qbevent)break;evnt(25681);}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 13 ; -if (new_error) goto skip3470; +if (new_error) goto skip3681; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((mem_static_pointer+=12)len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24561);}while(r); -S_32090:; +if(!qbevent)break;evnt(25693);}while(r); +S_34045:; if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||new_error){ -if(qbevent){evnt(24563);if(r)goto S_32090;} -S_32091:; +if(qbevent){evnt(25695);if(r)goto S_34045;} +S_34046:; if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||new_error){ -if(qbevent){evnt(24564);if(r)goto S_32091;} +if(qbevent){evnt(25696);if(r)goto S_34046;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24564);}while(r); +if(!qbevent)break;evnt(25696);}while(r); } do{ *_FUNC_VALIDNAME_LONG_I=func_instr(NULL,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24566);}while(r); -S_32095:; +if(!qbevent)break;evnt(25698);}while(r); +S_34050:; while((*_FUNC_VALIDNAME_LONG_I)||new_error){ -if(qbevent){evnt(24567);if(r)goto S_32095;} +if(qbevent){evnt(25699);if(r)goto S_34050;} do{ *_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24568);}while(r); +if(!qbevent)break;evnt(25700);}while(r); do{ *_FUNC_VALIDNAME_LONG_I=func_instr(*_FUNC_VALIDNAME_LONG_I+ 1 ,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24569);}while(r); -dl_continue_3474:; +if(!qbevent)break;evnt(25701);}while(r); +dl_continue_3685:; } -dl_exit_3474:; -S_32099:; +dl_exit_3685:; +S_34054:; if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||new_error){ -if(qbevent){evnt(24571);if(r)goto S_32099;} +if(qbevent){evnt(25703);if(r)goto S_34054;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24571);}while(r); +if(!qbevent)break;evnt(25703);}while(r); } do{ *_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24572);}while(r); +if(!qbevent)break;evnt(25704);}while(r); } -S_32104:; +S_34059:; if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||new_error){ -if(qbevent){evnt(24576);if(r)goto S_32104;} -S_32105:; +if(qbevent){evnt(25708);if(r)goto S_34059;} +S_34060:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )== 95 ))&(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 2 )!= 95 ))))||new_error){ -if(qbevent){evnt(24577);if(r)goto S_32105;} +if(qbevent){evnt(25709);if(r)goto S_34060;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24577);}while(r); +if(!qbevent)break;evnt(25709);}while(r); } } -S_32109:; -fornext_value3478= 1 ; -fornext_finalvalue3478=*_FUNC_VALIDNAME_LONG_L; -fornext_step3478= 1 ; -if (fornext_step3478<0) fornext_step_negative3478=1; else fornext_step_negative3478=0; -if (new_error) goto fornext_error3478; -goto fornext_entrylabel3478; +S_34064:; +fornext_value3689= 1 ; +fornext_finalvalue3689=*_FUNC_VALIDNAME_LONG_L; +fornext_step3689= 1 ; +if (fornext_step3689<0) fornext_step_negative3689=1; else fornext_step_negative3689=0; +if (new_error) goto fornext_error3689; +goto fornext_entrylabel3689; while(1){ -fornext_value3478=fornext_step3478+(*_FUNC_VALIDNAME_LONG_I); -fornext_entrylabel3478: -*_FUNC_VALIDNAME_LONG_I=fornext_value3478; -if (fornext_step_negative3478){ -if (fornext_value3478fornext_finalvalue3478) break; +if (fornext_value3689>fornext_finalvalue3689) break; } -fornext_error3478:; -if(qbevent){evnt(24580);if(r)goto S_32109;} +fornext_error3689:; +if(qbevent){evnt(25712);if(r)goto S_34064;} do{ *_FUNC_VALIDNAME_LONG_A=qbs_asc(_FUNC_VALIDNAME_STRING_A,*_FUNC_VALIDNAME_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24581);}while(r); -S_32111:; +if(!qbevent)break;evnt(25713);}while(r); +S_34066:; if ((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))||new_error){ -if(qbevent){evnt(24582);if(r)goto S_32111;} +if(qbevent){evnt(25714);if(r)goto S_34066;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24582);}while(r); +if(!qbevent)break;evnt(25714);}while(r); } -S_32114:; +S_34069:; if ((((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5])])||new_error){ -if(qbevent){evnt(24583);if(r)goto S_32114;} +if(qbevent){evnt(25715);if(r)goto S_34069;} do{ *_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; -if(!qbevent)break;evnt(24584);}while(r); -S_32116:; +if(!qbevent)break;evnt(25716);}while(r); +S_34071:; if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||new_error){ -if(qbevent){evnt(24585);if(r)goto S_32116;} +if(qbevent){evnt(25717);if(r)goto S_34071;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24585);}while(r); +if(!qbevent)break;evnt(25717);}while(r); } }else{ -S_32120:; +S_34075:; if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(24587);if(r)goto S_32120;} +if(qbevent){evnt(25719);if(r)goto S_34075;} do{ *_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ; -if(!qbevent)break;evnt(24588);}while(r); +if(!qbevent)break;evnt(25720);}while(r); }else{ do{ *_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ; -if(!qbevent)break;evnt(24590);}while(r); +if(!qbevent)break;evnt(25722);}while(r); do{ *_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; -if(!qbevent)break;evnt(24591);}while(r); +if(!qbevent)break;evnt(25723);}while(r); } } -fornext_continue_3477:; +fornext_continue_3688:; } -fornext_exit_3477:; -S_32128:; +fornext_exit_3688:; +S_34083:; if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||new_error){ -if(qbevent){evnt(24595);if(r)goto S_32128;} +if(qbevent){evnt(25727);if(r)goto S_34083;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24595);}while(r); +if(!qbevent)break;evnt(25727);}while(r); } do{ *_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ; -if(!qbevent)break;evnt(24596);}while(r); +if(!qbevent)break;evnt(25728);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free93.txt" @@ -115041,43 +118884,43 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32132:; +S_34087:; if ((-(*_FUNC_STR_NTH_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(24600);if(r)goto S_32132;} +if(qbevent){evnt(25732);if(r)goto S_34087;} do{ qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("1st",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24600);}while(r); +if(!qbevent)break;evnt(25732);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24600);}while(r); +if(!qbevent)break;evnt(25732);}while(r); } -S_32136:; +S_34091:; if ((-(*_FUNC_STR_NTH_LONG_X== 2 ))||new_error){ -if(qbevent){evnt(24601);if(r)goto S_32136;} +if(qbevent){evnt(25733);if(r)goto S_34091;} do{ qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("2nd",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24601);}while(r); +if(!qbevent)break;evnt(25733);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24601);}while(r); +if(!qbevent)break;evnt(25733);}while(r); } -S_32140:; +S_34095:; if ((-(*_FUNC_STR_NTH_LONG_X== 3 ))||new_error){ -if(qbevent){evnt(24602);if(r)goto S_32140;} +if(qbevent){evnt(25734);if(r)goto S_34095;} do{ qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("3rd",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24602);}while(r); +if(!qbevent)break;evnt(25734);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24602);}while(r); +if(!qbevent)break;evnt(25734);}while(r); } do{ qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_add(FUNC_STR2(_FUNC_STR_NTH_LONG_X),qbs_new_txt_len("th",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24603);}while(r); +if(!qbevent)break;evnt(25735);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free94.txt" @@ -115100,18 +118943,18 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *__LONG_ERROR_HAPPENED= 1 ; -if(!qbevent)break;evnt(24607);}while(r); +if(!qbevent)break;evnt(25739);}while(r); do{ qbs_set(__STRING_ERROR_MESSAGE,_SUB_GIVE_ERROR_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24608);}while(r); +if(!qbevent)break;evnt(25740);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free95.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_HEADING,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_TVALUE){ +void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_SECTION,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_VALUE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -115125,233 +118968,16 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_WRITECONFIGSETTING_STRING_VALUE,_SUB_WRITECONFIGSETTING_STRING_TVALUE); +SUB_WRITESETTING(__STRING_CONFIGFILE,_SUB_WRITECONFIGSETTING_STRING_SECTION,_SUB_WRITECONFIGSETTING_STRING_ITEM,_SUB_WRITECONFIGSETTING_STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24612);}while(r); -do{ -if(!qbevent)break;evnt(24613);}while(r); -do{ -*_SUB_WRITECONFIGSETTING_LONG_INFILE=func_freefile(); -if(!qbevent)break;evnt(24615);}while(r); -do{ -sub_open(__STRING_CONFIGFILE, 2 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_INFILE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24615);}while(r); -do{ -*_SUB_WRITECONFIGSETTING_LONG_OUTFILE=func_freefile(); -if(!qbevent)break;evnt(24616);}while(r); -do{ -sub_open(__STRING_CONFIGBAK, 4 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24616);}while(r); -do{ -*_SUB_WRITECONFIGSETTING_LONG_PLACED= 0 ; -if(!qbevent)break;evnt(24617);}while(r); -S_32154:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_rtrim(_SUB_WRITECONFIGSETTING_STRING_ITEM), 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(24620);if(r)goto S_32154;} -S_32155:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_WRITECONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(24621);if(r)goto S_32155;} -do{ -qbs_set(_SUB_WRITECONFIGSETTING_STRING_VALUE,qbs_add(func_chr( 34 ),_SUB_WRITECONFIGSETTING_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24621);}while(r); -} -S_32158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_WRITECONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(24622);if(r)goto S_32158;} -do{ -qbs_set(_SUB_WRITECONFIGSETTING_STRING_VALUE,qbs_add(_SUB_WRITECONFIGSETTING_STRING_VALUE,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24622);}while(r); -} -} -S_32162:; -if ((func_lof(*_SUB_WRITECONFIGSETTING_LONG_INFILE))||new_error){ -if(qbevent){evnt(24625);if(r)goto S_32162;} -S_32163:; -while((!(func_eof(*_SUB_WRITECONFIGSETTING_LONG_INFILE)))||new_error){ -if(qbevent){evnt(24626);if(r)goto S_32163;} -do{ -tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_INFILE; -if (new_error) goto skip3484; -sub_file_line_input_string(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_JUNK); -if (new_error) goto skip3484; -skip3484: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24627);}while(r); -do{ -qbs_set(_SUB_WRITECONFIGSETTING_STRING_JUNK,qbs_ltrim(qbs_rtrim(_SUB_WRITECONFIGSETTING_STRING_JUNK))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24629);}while(r); -do{ -*_SUB_WRITECONFIGSETTING_LONG_L=func_instr(NULL,_SUB_WRITECONFIGSETTING_STRING_JUNK,qbs_new_txt_len("=",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24630);}while(r); -do{ -qbs_set(_SUB_WRITECONFIGSETTING_STRING_COMPARE,qbs_rtrim(qbs_left(_SUB_WRITECONFIGSETTING_STRING_JUNK,*_SUB_WRITECONFIGSETTING_LONG_L- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24631);}while(r); -S_32168:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_WRITECONFIGSETTING_STRING_COMPARE),qbs_ucase(_SUB_WRITECONFIGSETTING_STRING_ITEM))))||new_error){ -if(qbevent){evnt(24633);if(r)goto S_32168;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3485; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_ITEM, 0 , 0 , 0 ); -if (new_error) goto skip3485; -sub_file_print(tmp_fileno,qbs_new_txt_len(" = ",3), 0 , 0 , 0 ); -if (new_error) goto skip3485; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_VALUE, 0 , 0 , 1 ); -if (new_error) goto skip3485; -skip3485: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24634);}while(r); -do{ -*_SUB_WRITECONFIGSETTING_LONG_PLACED= -1 ; -if(!qbevent)break;evnt(24635);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3486; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_JUNK, 0 , 0 , 1 ); -if (new_error) goto skip3486; -skip3486: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24637);}while(r); -} -dl_continue_3483:; -} -dl_exit_3483:; -} -do{ -sub_close(*_SUB_WRITECONFIGSETTING_LONG_INFILE,1); -sub_close(*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,1); -if(!qbevent)break;evnt(24642);}while(r); -do{ -sub_kill(__STRING_CONFIGFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24643);}while(r); -S_32178:; -if ((~(*_SUB_WRITECONFIGSETTING_LONG_PLACED))||new_error){ -if(qbevent){evnt(24644);if(r)goto S_32178;} -do{ -sub_open(__STRING_CONFIGBAK, 2 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_INFILE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24650);}while(r); -do{ -sub_open(qbs_new_txt_len("internal/config.tmp",19), 4 ,NULL,NULL,*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24651);}while(r); -do{ -qbs_set(_SUB_WRITECONFIGSETTING_STRING_OUT,qbs_add(qbs_add(_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs_new_txt_len(" = ",3)),_SUB_WRITECONFIGSETTING_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24652);}while(r); -S_32182:; -while((!((func_eof(*_SUB_WRITECONFIGSETTING_LONG_INFILE))|(-(func_lof(*_SUB_WRITECONFIGSETTING_LONG_INFILE)== 0 ))))||new_error){ -if(qbevent){evnt(24653);if(r)goto S_32182;} -do{ -tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_INFILE; -if (new_error) goto skip3488; -sub_file_line_input_string(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_TEMP); -if (new_error) goto skip3488; -skip3488: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24654);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3489; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_TEMP, 0 , 0 , 1 ); -if (new_error) goto skip3489; -skip3489: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24655);}while(r); -S_32185:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WRITECONFIGSETTING_STRING_TEMP,_SUB_WRITECONFIGSETTING_STRING_HEADING,0)))||new_error){ -if(qbevent){evnt(24656);if(r)goto S_32185;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3490; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_OUT, 0 , 0 , 1 ); -if (new_error) goto skip3490; -skip3490: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24656);}while(r); -do{ -*_SUB_WRITECONFIGSETTING_LONG_PLACED= -1 ; -if(!qbevent)break;evnt(24656);}while(r); -} -dl_continue_3487:; -} -dl_exit_3487:; -S_32190:; -if ((~(*_SUB_WRITECONFIGSETTING_LONG_PLACED))||new_error){ -if(qbevent){evnt(24658);if(r)goto S_32190;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3491; -sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0 , 0 , 1 ); -if (new_error) goto skip3491; -skip3491: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24659);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3492; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_HEADING, 0 , 0 , 1 ); -if (new_error) goto skip3492; -skip3492: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24660);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WRITECONFIGSETTING_LONG_OUTFILE; -if (new_error) goto skip3493; -sub_file_print(tmp_fileno,_SUB_WRITECONFIGSETTING_STRING_OUT, 0 , 0 , 1 ); -if (new_error) goto skip3493; -skip3493: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24661);}while(r); -} -do{ -sub_close(*_SUB_WRITECONFIGSETTING_LONG_INFILE,1); -sub_close(*_SUB_WRITECONFIGSETTING_LONG_OUTFILE,1); -if(!qbevent)break;evnt(24663);}while(r); -do{ -sub_kill(__STRING_CONFIGBAK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24664);}while(r); -do{ -sub_name(qbs_new_txt_len("internal/config.tmp",19),__STRING_CONFIGFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24665);}while(r); -}else{ -do{ -sub_name(__STRING_CONFIGBAK,__STRING_CONFIGFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24667);}while(r); -} +if(!qbevent)break;evnt(25744);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free96.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -int32 FUNC_READCONFIGSETTING(qbs*_FUNC_READCONFIGSETTING_STRING_ITEM,qbs*_FUNC_READCONFIGSETTING_STRING_VALUE){ +int32 FUNC_READCONFIGSETTING(qbs*_FUNC_READCONFIGSETTING_STRING_SECTION,qbs*_FUNC_READCONFIGSETTING_STRING_ITEM,qbs*_FUNC_READCONFIGSETTING_STRING_VALUE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -115365,136 +118991,13 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(24672);}while(r); -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_new_txt_len("",0)); +qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,FUNC_READSETTING(__STRING_CONFIGFILE,_FUNC_READCONFIGSETTING_STRING_SECTION,_FUNC_READCONFIGSETTING_STRING_ITEM)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24673);}while(r); +if(!qbevent)break;evnt(25748);}while(r); do{ -*_FUNC_READCONFIGSETTING_LONG_INFILE=func_freefile(); -if(!qbevent)break;evnt(24674);}while(r); -do{ -sub_open(__STRING_CONFIGFILE, 2 ,NULL,NULL,*_FUNC_READCONFIGSETTING_LONG_INFILE,NULL,0); +*_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING=(-(_FUNC_READCONFIGSETTING_STRING_VALUE->len> 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24674);}while(r); -S_32205:; -if ((func_lof(*_FUNC_READCONFIGSETTING_LONG_INFILE))||new_error){ -if(qbevent){evnt(24676);if(r)goto S_32205;} -do{ -*_FUNC_READCONFIGSETTING_LONG_FOUND= 0 ; -if(!qbevent)break;evnt(24677);}while(r); -S_32207:; -while((!(func_eof(*_FUNC_READCONFIGSETTING_LONG_INFILE)))||new_error){ -if(qbevent){evnt(24678);if(r)goto S_32207;} -do{ -tmp_fileno=*_FUNC_READCONFIGSETTING_LONG_INFILE; -if (new_error) goto skip3497; -sub_file_line_input_string(tmp_fileno,_FUNC_READCONFIGSETTING_STRING_TEMP); -if (new_error) goto skip3497; -skip3497: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24679);}while(r); -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_TEMP,qbs_ltrim(qbs_rtrim(_FUNC_READCONFIGSETTING_STRING_TEMP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24680);}while(r); -do{ -*_FUNC_READCONFIGSETTING_LONG_L=func_instr(NULL,_FUNC_READCONFIGSETTING_STRING_TEMP,qbs_new_txt_len("=",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24681);}while(r); -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_COMPARE,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_READCONFIGSETTING_STRING_TEMP,*_FUNC_READCONFIGSETTING_LONG_L- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24682);}while(r); -S_32212:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_READCONFIGSETTING_STRING_COMPARE),qbs_ucase(_FUNC_READCONFIGSETTING_STRING_ITEM))))||new_error){ -if(qbevent){evnt(24683);if(r)goto S_32212;} -do{ -*_FUNC_READCONFIGSETTING_LONG_FOUND= -1 ; -if(!qbevent)break;evnt(24683);}while(r); -do{ -goto dl_exit_3496; -if(!qbevent)break;evnt(24683);}while(r); -} -dl_continue_3496:; -} -dl_exit_3496:; -do{ -sub_close(*_FUNC_READCONFIGSETTING_LONG_INFILE,1); -if(!qbevent)break;evnt(24685);}while(r); -S_32218:; -if ((*_FUNC_READCONFIGSETTING_LONG_FOUND)||new_error){ -if(qbevent){evnt(24686);if(r)goto S_32218;} -S_32219:; -if ((*_FUNC_READCONFIGSETTING_LONG_L)||new_error){ -if(qbevent){evnt(24687);if(r)goto S_32219;} -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,func_mid(_FUNC_READCONFIGSETTING_STRING_TEMP,*_FUNC_READCONFIGSETTING_LONG_L+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24688);}while(r); -do{ -*_FUNC_READCONFIGSETTING_LONG_L=func_instr(NULL,_FUNC_READCONFIGSETTING_STRING_VALUE,func_chr( 13 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24689);}while(r); -S_32222:; -if ((*_FUNC_READCONFIGSETTING_LONG_L)||new_error){ -if(qbevent){evnt(24690);if(r)goto S_32222;} -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE,*_FUNC_READCONFIGSETTING_LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24690);}while(r); -} -do{ -*_FUNC_READCONFIGSETTING_LONG_L=func_instr(NULL,_FUNC_READCONFIGSETTING_STRING_VALUE,func_chr( 10 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24691);}while(r); -S_32226:; -if ((*_FUNC_READCONFIGSETTING_LONG_L)||new_error){ -if(qbevent){evnt(24693);if(r)goto S_32226;} -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE,*_FUNC_READCONFIGSETTING_LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24693);}while(r); -} -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_ltrim(qbs_rtrim(_FUNC_READCONFIGSETTING_STRING_VALUE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24694);}while(r); -S_32230:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_rtrim(_FUNC_READCONFIGSETTING_STRING_ITEM), 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(24696);if(r)goto S_32230;} -S_32231:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(24697);if(r)goto S_32231;} -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,func_mid(_FUNC_READCONFIGSETTING_STRING_VALUE, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24697);}while(r); -} -S_32234:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_READCONFIGSETTING_STRING_VALUE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(24698);if(r)goto S_32234;} -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,qbs_left(_FUNC_READCONFIGSETTING_STRING_VALUE,_FUNC_READCONFIGSETTING_STRING_VALUE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24698);}while(r); -} -} -do{ -*_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING= -1 ; -if(!qbevent)break;evnt(24700);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24701);}while(r); -} -} -} -do{ -sub_close(*_FUNC_READCONFIGSETTING_LONG_INFILE,1); -if(!qbevent)break;evnt(24705);}while(r); -do{ -*_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING= 0 ; -if(!qbevent)break;evnt(24706);}while(r); +if(!qbevent)break;evnt(25749);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free97.txt" @@ -115502,7 +119005,7 @@ if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_li cmem_sp=tmp_cmem_sp; return *_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING; } -int32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR){ +uint32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -115516,41 +119019,41 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_FUNC_VRGBS_LONG_VRGBS=*_FUNC_VRGBS_ULONG_DEFAULTCOLOR; -if(!qbevent)break;evnt(24715);}while(r); -S_32246:; +*_FUNC_VRGBS_ULONG_VRGBS=*_FUNC_VRGBS_ULONG_DEFAULTCOLOR; +if(!qbevent)break;evnt(25758);}while(r); +S_34106:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_FUNC_VRGBS_STRING_TEXT, 4 )),qbs_new_txt_len("_RGB",4))))||new_error){ -if(qbevent){evnt(24716);if(r)goto S_32246;} +if(qbevent){evnt(25759);if(r)goto S_34106;} do{ *_FUNC_VRGBS_LONG_RPOS=func_instr(NULL,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len("(",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24717);}while(r); +if(!qbevent)break;evnt(25760);}while(r); do{ *_FUNC_VRGBS_LONG_GPOS=func_instr(*_FUNC_VRGBS_LONG_RPOS,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24718);}while(r); +if(!qbevent)break;evnt(25761);}while(r); do{ *_FUNC_VRGBS_LONG_BPOS=func_instr(*_FUNC_VRGBS_LONG_GPOS+ 1 ,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24719);}while(r); -S_32250:; +if(!qbevent)break;evnt(25762);}while(r); +S_34110:; if (((-(*_FUNC_VRGBS_LONG_RPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_BPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_GPOS!= 0 )))||new_error){ -if(qbevent){evnt(24720);if(r)goto S_32250;} +if(qbevent){evnt(25763);if(r)goto S_34110;} do{ -*_FUNC_VRGBS_LONG_RED=qbr(func_val(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_RPOS+ 1 ,NULL,0))); +*_FUNC_VRGBS_LONG_RED=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_RPOS+ 1 ,NULL,0)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24721);}while(r); +if(!qbevent)break;evnt(25764);}while(r); do{ -*_FUNC_VRGBS_LONG_GREEN=qbr(func_val(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_GPOS+ 1 ,NULL,0))); +*_FUNC_VRGBS_LONG_GREEN=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_GPOS+ 1 ,NULL,0)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24722);}while(r); +if(!qbevent)break;evnt(25765);}while(r); do{ -*_FUNC_VRGBS_LONG_BLUE=qbr(func_val(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_BPOS+ 1 ,NULL,0))); +*_FUNC_VRGBS_LONG_BLUE=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_BPOS+ 1 ,NULL,0)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24723);}while(r); +if(!qbevent)break;evnt(25766);}while(r); do{ -*_FUNC_VRGBS_LONG_VRGBS=func__rgb32(*_FUNC_VRGBS_LONG_RED,*_FUNC_VRGBS_LONG_GREEN,*_FUNC_VRGBS_LONG_BLUE); -if(!qbevent)break;evnt(24724);}while(r); +*_FUNC_VRGBS_ULONG_VRGBS=func__rgb32(*_FUNC_VRGBS_LONG_RED,*_FUNC_VRGBS_LONG_GREEN,*_FUNC_VRGBS_LONG_BLUE); +if(!qbevent)break;evnt(25767);}while(r); } } exit_subfunc:; @@ -115558,9 +119061,9 @@ free_mem_lock(sf_mem_lock); #include "free98.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_VRGBS_LONG_VRGBS; +return *_FUNC_VRGBS_ULONG_VRGBS; } -int32 FUNC_EVALPREIF(qbs*_FUNC_EVALPREIF_STRING_TEXT,qbs*_FUNC_EVALPREIF_STRING_ERR){ +qbs* FUNC_RGBS(uint32*_FUNC_RGBS_ULONG_C){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -115574,20 +119077,44 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ +qbs_set(_FUNC_RGBS_STRING_RGBS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),qbs__trim(qbs_str((int32)(func__red32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(", ",2)),qbs__trim(qbs_str((int32)(func__green32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(", ",2)),qbs__trim(qbs_str((int32)(func__blue32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25773);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free99.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_RGBS_STRING_RGBS);return _FUNC_RGBS_STRING_RGBS; +} +int32 FUNC_EVALPREIF(qbs*_FUNC_EVALPREIF_STRING_TEXT,qbs*_FUNC_EVALPREIF_STRING_ERR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data100.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ qbs_set(_FUNC_EVALPREIF_STRING_TEMP,_FUNC_EVALPREIF_STRING_TEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24730);}while(r); +if(!qbevent)break;evnt(25777);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24731);}while(r); +if(!qbevent)break;evnt(25778);}while(r); do{ if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&2){ error(10); }else{ if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]= 0 ; _FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]=( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4]+1; @@ -115603,885 +119130,872 @@ while(tmp_long--) ((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=( } } } -if(!qbevent)break;evnt(24733);}while(r); +if(!qbevent)break;evnt(25780);}while(r); do{ tmp_long=array_check(( 1 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len("=",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24734);}while(r); +if(!qbevent)break;evnt(25781);}while(r); do{ tmp_long=array_check(( 2 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len("<",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24735);}while(r); +if(!qbevent)break;evnt(25782);}while(r); do{ tmp_long=array_check(( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len(">",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24736);}while(r); -S_32263:; +if(!qbevent)break;evnt(25783);}while(r); +S_34124:; do{ -if(qbevent){evnt(24737);if(r)goto S_32263;} +if(qbevent){evnt(25784);if(r)goto S_34124;} do{ qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24739);}while(r); +if(!qbevent)break;evnt(25786);}while(r); do{ *_FUNC_EVALPREIF_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(24739);}while(r); -S_32266:; -fornext_value3504= 1 ; -fornext_finalvalue3504=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1); -fornext_step3504= 1 ; -if (fornext_step3504<0) fornext_step_negative3504=1; else fornext_step_negative3504=0; -if (new_error) goto fornext_error3504; -goto fornext_entrylabel3504; +if(!qbevent)break;evnt(25786);}while(r); +S_34127:; +fornext_value3703= 1 ; +fornext_finalvalue3703=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1); +fornext_step3703= 1 ; +if (fornext_step3703<0) fornext_step_negative3703=1; else fornext_step_negative3703=0; +if (new_error) goto fornext_error3703; +goto fornext_entrylabel3703; while(1){ -fornext_value3504=fornext_step3504+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3504: -*_FUNC_EVALPREIF_LONG_I=fornext_value3504; +fornext_value3703=fornext_step3703+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3703: +*_FUNC_EVALPREIF_LONG_I=fornext_value3703; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3504){ -if (fornext_value3504fornext_finalvalue3504) break; +if (fornext_value3703>fornext_finalvalue3703) break; } -fornext_error3504:; -if(qbevent){evnt(24740);if(r)goto S_32266;} +fornext_error3703:; +if(qbevent){evnt(25787);if(r)goto S_34127;} do{ *_FUNC_EVALPREIF_LONG_TEMP=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24741);}while(r); -S_32268:; +if(!qbevent)break;evnt(25788);}while(r); +S_34129:; if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ -if(qbevent){evnt(24742);if(r)goto S_32268;} +if(qbevent){evnt(25789);if(r)goto S_34129;} do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; -if(!qbevent)break;evnt(24742);}while(r); +if(!qbevent)break;evnt(25789);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24742);}while(r); +if(!qbevent)break;evnt(25789);}while(r); } -S_32272:; +S_34133:; if (((-(*_FUNC_EVALPREIF_LONG_TEMP!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_TEMP<*_FUNC_EVALPREIF_LONG_FIRST)))||new_error){ -if(qbevent){evnt(24743);if(r)goto S_32272;} +if(qbevent){evnt(25790);if(r)goto S_34133;} do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; -if(!qbevent)break;evnt(24743);}while(r); +if(!qbevent)break;evnt(25790);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24743);}while(r); +if(!qbevent)break;evnt(25790);}while(r); } -fornext_continue_3503:; +fornext_continue_3702:; } -fornext_exit_3503:; -S_32277:; +fornext_exit_3702:; +S_34138:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24745);if(r)goto S_32277;} +if(qbevent){evnt(25792);if(r)goto S_34138;} do{ *_FUNC_EVALPREIF_LONG_SECONDSYMBOL= 0 ; -if(!qbevent)break;evnt(24746);}while(r); +if(!qbevent)break;evnt(25793);}while(r); do{ *_FUNC_EVALPREIF_LONG_SECOND= 0 ; -if(!qbevent)break;evnt(24746);}while(r); -S_32280:; -fornext_value3506=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; -fornext_finalvalue3506=_FUNC_EVALPREIF_STRING_TEMP->len; -fornext_step3506= 1 ; -if (fornext_step3506<0) fornext_step_negative3506=1; else fornext_step_negative3506=0; -if (new_error) goto fornext_error3506; -goto fornext_entrylabel3506; +if(!qbevent)break;evnt(25793);}while(r); +S_34141:; +fornext_value3705=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; +fornext_finalvalue3705=_FUNC_EVALPREIF_STRING_TEMP->len; +fornext_step3705= 1 ; +if (fornext_step3705<0) fornext_step_negative3705=1; else fornext_step_negative3705=0; +if (new_error) goto fornext_error3705; +goto fornext_entrylabel3705; while(1){ -fornext_value3506=fornext_step3506+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3506: -*_FUNC_EVALPREIF_LONG_I=fornext_value3506; +fornext_value3705=fornext_step3705+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3705: +*_FUNC_EVALPREIF_LONG_I=fornext_value3705; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3506){ -if (fornext_value3506fornext_finalvalue3506) break; +if (fornext_value3705>fornext_finalvalue3705) break; } -fornext_error3506:; -if(qbevent){evnt(24747);if(r)goto S_32280;} +fornext_error3705:; +if(qbevent){evnt(25794);if(r)goto S_34141;} do{ qbs_set(_FUNC_EVALPREIF_STRING_A,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24748);}while(r); -S_32282:; -if(qbevent){evnt(24749);if(r)goto S_32282;} -S_32283:; +if(!qbevent)break;evnt(25795);}while(r); +S_34143:; +if(qbevent){evnt(25796);if(r)goto S_34143;} +S_34144:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(24750);if(r)goto S_32283;} -goto sc_3508_end; +if(qbevent){evnt(25797);if(r)goto S_34144;} +sc_ec_172_end:; +goto sc_3707_end; } -S_32284:; +S_34145:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("=",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("<",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(24751);if(r)goto S_32284;} -S_32285:; +if(qbevent){evnt(25798);if(r)goto S_34145;} +S_34146:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)))||new_error){ -if(qbevent){evnt(24752);if(r)goto S_32285;} +if(qbevent){evnt(25799);if(r)goto S_34146;} do{ qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_add(qbs_add(qbs_new_txt_len("Duplicate operator (",20),_FUNC_EVALPREIF_STRING_A),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24752);}while(r); +if(!qbevent)break;evnt(25799);}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(24752);}while(r); +if(!qbevent)break;evnt(25799);}while(r); } do{ *_FUNC_EVALPREIF_LONG_SECOND=*_FUNC_EVALPREIF_LONG_I; -if(!qbevent)break;evnt(24753);}while(r); +if(!qbevent)break;evnt(25800);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_SECONDSYMBOL,_FUNC_EVALPREIF_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24753);}while(r); -goto sc_3508_end; +if(!qbevent)break;evnt(25800);}while(r); +sc_ec_173_end:; +goto sc_3707_end; } do{ -goto fornext_exit_3505; -if(!qbevent)break;evnt(24755);}while(r); -sc_3508_end:; -fornext_continue_3505:; +goto fornext_exit_3704; +if(!qbevent)break;evnt(25802);}while(r); +sc_3707_end:; +fornext_continue_3704:; } -fornext_exit_3505:; +fornext_exit_3704:; } -S_32296:; +S_34157:; if ((*_FUNC_EVALPREIF_LONG_FIRST)||new_error){ -if(qbevent){evnt(24759);if(r)goto S_32296;} +if(qbevent){evnt(25806);if(r)goto S_34157;} do{ qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24760);}while(r); -S_32298:; +if(!qbevent)break;evnt(25807);}while(r); +S_34159:; if ((*_FUNC_EVALPREIF_LONG_SECOND)||new_error){ -if(qbevent){evnt(24761);if(r)goto S_32298;} +if(qbevent){evnt(25808);if(r)goto S_34159;} do{ *_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_SECOND+ 1 ; -if(!qbevent)break;evnt(24761);}while(r); +if(!qbevent)break;evnt(25808);}while(r); }else{ do{ *_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; -if(!qbevent)break;evnt(24761);}while(r); +if(!qbevent)break;evnt(25808);}while(r); } do{ qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_RIGHTSTART,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24763);}while(r); +if(!qbevent)break;evnt(25810);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_add(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST, 1 ,1),func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_SECOND, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24764);}while(r); -S_32305:; -fornext_value3510=_FUNC_EVALPREIF_STRING_L->len; -fornext_finalvalue3510= 1 ; -fornext_step3510= -1 ; -if (fornext_step3510<0) fornext_step_negative3510=1; else fornext_step_negative3510=0; -if (new_error) goto fornext_error3510; -goto fornext_entrylabel3510; +if(!qbevent)break;evnt(25811);}while(r); +S_34166:; +fornext_value3709=_FUNC_EVALPREIF_STRING_L->len; +fornext_finalvalue3709= 1 ; +fornext_step3709= -1 ; +if (fornext_step3709<0) fornext_step_negative3709=1; else fornext_step_negative3709=0; +if (new_error) goto fornext_error3709; +goto fornext_entrylabel3709; while(1){ -fornext_value3510=fornext_step3510+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3510: -*_FUNC_EVALPREIF_LONG_I=fornext_value3510; +fornext_value3709=fornext_step3709+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3709: +*_FUNC_EVALPREIF_LONG_I=fornext_value3709; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3510){ -if (fornext_value3510fornext_finalvalue3510) break; +if (fornext_value3709>fornext_finalvalue3709) break; } -fornext_error3510:; -if(qbevent){evnt(24766);if(r)goto S_32305;} -S_32306:; +fornext_error3709:; +if(qbevent){evnt(25813);if(r)goto S_34166;} +S_34167:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_L,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ -if(qbevent){evnt(24767);if(r)goto S_32306;} +if(qbevent){evnt(25814);if(r)goto S_34167;} do{ -goto fornext_exit_3509; -if(!qbevent)break;evnt(24767);}while(r); +goto fornext_exit_3708; +if(!qbevent)break;evnt(25814);}while(r); } -fornext_continue_3509:; +fornext_continue_3708:; } -fornext_exit_3509:; +fornext_exit_3708:; do{ qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24769);}while(r); +if(!qbevent)break;evnt(25816);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_ltrim(qbs_rtrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I+ 1 ,_FUNC_EVALPREIF_STRING_L->len-*_FUNC_EVALPREIF_LONG_I,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24770);}while(r); +if(!qbevent)break;evnt(25817);}while(r); +S_34173:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALPREIF_STRING_L)== 0 )))||new_error){ +if(qbevent){evnt(25818);if(r)goto S_34173;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid flag name",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25818);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25818);}while(r); +} do{ *_FUNC_EVALPREIF_LONG_RIGHTSTOP=_FUNC_EVALPREIF_STRING_R->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24771);}while(r); -S_32313:; -fornext_value3515= 1 ; -fornext_finalvalue3515=_FUNC_EVALPREIF_STRING_R->len; -fornext_step3515= 1 ; -if (fornext_step3515<0) fornext_step_negative3515=1; else fornext_step_negative3515=0; -if (new_error) goto fornext_error3515; -goto fornext_entrylabel3515; +if(!qbevent)break;evnt(25819);}while(r); +S_34178:; +fornext_value3714= 1 ; +fornext_finalvalue3714=_FUNC_EVALPREIF_STRING_R->len; +fornext_step3714= 1 ; +if (fornext_step3714<0) fornext_step_negative3714=1; else fornext_step_negative3714=0; +if (new_error) goto fornext_error3714; +goto fornext_entrylabel3714; while(1){ -fornext_value3515=fornext_step3515+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3515: -*_FUNC_EVALPREIF_LONG_I=fornext_value3515; +fornext_value3714=fornext_step3714+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3714: +*_FUNC_EVALPREIF_LONG_I=fornext_value3714; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3515){ -if (fornext_value3515fornext_finalvalue3515) break; +if (fornext_value3714>fornext_finalvalue3714) break; } -fornext_error3515:; -if(qbevent){evnt(24772);if(r)goto S_32313;} -S_32314:; +fornext_error3714:; +if(qbevent){evnt(25820);if(r)goto S_34178;} +S_34179:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ -if(qbevent){evnt(24773);if(r)goto S_32314;} +if(qbevent){evnt(25821);if(r)goto S_34179;} do{ -goto fornext_exit_3514; -if(!qbevent)break;evnt(24773);}while(r); +goto fornext_exit_3713; +if(!qbevent)break;evnt(25821);}while(r); } -fornext_continue_3514:; +fornext_continue_3713:; } -fornext_exit_3514:; +fornext_exit_3713:; do{ qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24775);}while(r); +if(!qbevent)break;evnt(25823);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24776);}while(r); -S_32320:; +if(!qbevent)break;evnt(25824);}while(r); +S_34185:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=<",2))))||new_error){ -if(qbevent){evnt(24777);if(r)goto S_32320;} +if(qbevent){evnt(25825);if(r)goto S_34185;} do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24777);}while(r); +if(!qbevent)break;evnt(25825);}while(r); } -S_32323:; +S_34188:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=>",2))))||new_error){ -if(qbevent){evnt(24778);if(r)goto S_32323;} +if(qbevent){evnt(25826);if(r)goto S_34188;} do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">=",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24778);}while(r); +if(!qbevent)break;evnt(25826);}while(r); } -S_32326:; +S_34191:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("><",2))))||new_error){ -if(qbevent){evnt(24779);if(r)goto S_32326;} +if(qbevent){evnt(25827);if(r)goto S_34191;} do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24779);}while(r); +if(!qbevent)break;evnt(25827);}while(r); } do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24780);}while(r); -S_32330:; +if(!qbevent)break;evnt(25828);}while(r); +S_34195:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(24781);if(r)goto S_32330;} -S_32331:; -fornext_value3518= 0 ; -fornext_finalvalue3518=*__INTEGER_USERDEFINECOUNT; -fornext_step3518= 1 ; -if (fornext_step3518<0) fornext_step_negative3518=1; else fornext_step_negative3518=0; -if (new_error) goto fornext_error3518; -goto fornext_entrylabel3518; +if(qbevent){evnt(25829);if(r)goto S_34195;} +S_34196:; +fornext_value3717= 0 ; +fornext_finalvalue3717=*__INTEGER_USERDEFINECOUNT; +fornext_step3717= 1 ; +if (fornext_step3717<0) fornext_step_negative3717=1; else fornext_step_negative3717=0; +if (new_error) goto fornext_error3717; +goto fornext_entrylabel3717; while(1){ -fornext_value3518=fornext_step3518+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3518: -*_FUNC_EVALPREIF_LONG_I=fornext_value3518; -if (fornext_step_negative3518){ -if (fornext_value3518fornext_finalvalue3518) break; +if (fornext_value3717>fornext_finalvalue3717) break; } -fornext_error3518:; -if(qbevent){evnt(24782);if(r)goto S_32331;} -S_32332:; +fornext_error3717:; +if(qbevent){evnt(25830);if(r)goto S_34196;} +S_34197:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ -if(qbevent){evnt(24783);if(r)goto S_32332;} +if(qbevent){evnt(25831);if(r)goto S_34197;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24783);}while(r); +if(!qbevent)break;evnt(25831);}while(r); do{ goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(24783);}while(r); +if(!qbevent)break;evnt(25831);}while(r); } -fornext_continue_3517:; +fornext_continue_3716:; } -fornext_exit_3517:; +fornext_exit_3716:; } -S_32338:; +S_34203:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=",1),0)))||new_error){ -if(qbevent){evnt(24786);if(r)goto S_32338;} -S_32339:; -fornext_value3520= 0 ; -fornext_finalvalue3520=*__INTEGER_USERDEFINECOUNT; -fornext_step3520= 1 ; -if (fornext_step3520<0) fornext_step_negative3520=1; else fornext_step_negative3520=0; -if (new_error) goto fornext_error3520; -goto fornext_entrylabel3520; +if(qbevent){evnt(25834);if(r)goto S_34203;} +do{ +*_FUNC_EVALPREIF_LONG_USERFOUND= 0 ; +if(!qbevent)break;evnt(25835);}while(r); +S_34205:; +fornext_value3719= 0 ; +fornext_finalvalue3719=*__INTEGER_USERDEFINECOUNT; +fornext_step3719= 1 ; +if (fornext_step3719<0) fornext_step_negative3719=1; else fornext_step_negative3719=0; +if (new_error) goto fornext_error3719; +goto fornext_entrylabel3719; while(1){ -fornext_value3520=fornext_step3520+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3520: -*_FUNC_EVALPREIF_LONG_I=fornext_value3520; -if (fornext_step_negative3520){ -if (fornext_value3520fornext_finalvalue3520) break; +if (fornext_value3719>fornext_finalvalue3719) break; } -fornext_error3520:; -if(qbevent){evnt(24787);if(r)goto S_32339;} -S_32340:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ -if(qbevent){evnt(24788);if(r)goto S_32340;} +fornext_error3719:; +if(qbevent){evnt(25836);if(r)goto S_34205;} +S_34206:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L)))||new_error){ +if(qbevent){evnt(25837);if(r)goto S_34206;} +do{ +*_FUNC_EVALPREIF_LONG_USERFOUND= -1 ; +if(!qbevent)break;evnt(25838);}while(r); +S_34208:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R)))||new_error){ +if(qbevent){evnt(25839);if(r)goto S_34208;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24788);}while(r); +if(!qbevent)break;evnt(25839);}while(r); do{ goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(24788);}while(r); +if(!qbevent)break;evnt(25839);}while(r); } -fornext_continue_3519:; } -fornext_exit_3519:; -S_32345:; -if ((qbs_cleanup(qbs_tmp_base,(~(*_FUNC_EVALPREIF_LONG_USERFOUND))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("UNDEFINED",9)))))||new_error){ -if(qbevent){evnt(24790);if(r)goto S_32345;} +fornext_continue_3718:; +} +fornext_exit_3718:; +S_34214:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== 0 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("UNDEFINED",9)))))||new_error){ +if(qbevent){evnt(25842);if(r)goto S_34214;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24790);}while(r); +if(!qbevent)break;evnt(25842);}while(r); do{ goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(24790);}while(r); +if(!qbevent)break;evnt(25842);}while(r); } -S_32349:; -if ((qbs_cleanup(qbs_tmp_base,*_FUNC_EVALPREIF_LONG_USERFOUND&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("DEFINED",7)))))||new_error){ -if(qbevent){evnt(24791);if(r)goto S_32349;} +S_34218:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== -1 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("DEFINED",7)))))||new_error){ +if(qbevent){evnt(25843);if(r)goto S_34218;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24791);}while(r); +if(!qbevent)break;evnt(25843);}while(r); do{ goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(24791);}while(r); +if(!qbevent)break;evnt(25843);}while(r); } } -S_32354:; +S_34223:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">",1),0)))||new_error){ -if(qbevent){evnt(24794);if(r)goto S_32354;} -S_32355:; -fornext_value3522= 0 ; -fornext_finalvalue3522=*__INTEGER_USERDEFINECOUNT; -fornext_step3522= 1 ; -if (fornext_step3522<0) fornext_step_negative3522=1; else fornext_step_negative3522=0; -if (new_error) goto fornext_error3522; -goto fornext_entrylabel3522; +if(qbevent){evnt(25846);if(r)goto S_34223;} +S_34224:; +fornext_value3721= 0 ; +fornext_finalvalue3721=*__INTEGER_USERDEFINECOUNT; +fornext_step3721= 1 ; +if (fornext_step3721<0) fornext_step_negative3721=1; else fornext_step_negative3721=0; +if (new_error) goto fornext_error3721; +goto fornext_entrylabel3721; while(1){ -fornext_value3522=fornext_step3522+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3522: -*_FUNC_EVALPREIF_LONG_I=fornext_value3522; -if (fornext_step_negative3522){ -if (fornext_value3522fornext_finalvalue3522) break; +if (fornext_value3721>fornext_finalvalue3721) break; } -fornext_error3522:; -if(qbevent){evnt(24795);if(r)goto S_32355;} -S_32356:; +fornext_error3721:; +if(qbevent){evnt(25847);if(r)goto S_34224;} +S_34225:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))))||new_error){ -if(qbevent){evnt(24796);if(r)goto S_32356;} -S_32357:; +if(qbevent){evnt(25848);if(r)goto S_34225;} +S_34226:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(-(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))>func_val(_FUNC_EVALPREIF_STRING_R)))))||new_error){ -if(qbevent){evnt(24797);if(r)goto S_32357;} +if(qbevent){evnt(25849);if(r)goto S_34226;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24797);}while(r); +if(!qbevent)break;evnt(25849);}while(r); do{ goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(24797);}while(r); +if(!qbevent)break;evnt(25849);}while(r); } }else{ -S_32362:; +S_34231:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_greaterthan(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ -if(qbevent){evnt(24799);if(r)goto S_32362;} +if(qbevent){evnt(25851);if(r)goto S_34231;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24799);}while(r); +if(!qbevent)break;evnt(25851);}while(r); do{ goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(24799);}while(r); +if(!qbevent)break;evnt(25851);}while(r); } } -fornext_continue_3521:; +fornext_continue_3720:; } -fornext_exit_3521:; +fornext_exit_3720:; } -S_32369:; +S_34238:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<",1),0)))||new_error){ -if(qbevent){evnt(24803);if(r)goto S_32369;} -S_32370:; -fornext_value3524= 0 ; -fornext_finalvalue3524=*__INTEGER_USERDEFINECOUNT; -fornext_step3524= 1 ; -if (fornext_step3524<0) fornext_step_negative3524=1; else fornext_step_negative3524=0; -if (new_error) goto fornext_error3524; -goto fornext_entrylabel3524; +if(qbevent){evnt(25855);if(r)goto S_34238;} +S_34239:; +fornext_value3723= 0 ; +fornext_finalvalue3723=*__INTEGER_USERDEFINECOUNT; +fornext_step3723= 1 ; +if (fornext_step3723<0) fornext_step_negative3723=1; else fornext_step_negative3723=0; +if (new_error) goto fornext_error3723; +goto fornext_entrylabel3723; while(1){ -fornext_value3524=fornext_step3524+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3524: -*_FUNC_EVALPREIF_LONG_I=fornext_value3524; -if (fornext_step_negative3524){ -if (fornext_value3524fornext_finalvalue3524) break; +if (fornext_value3723>fornext_finalvalue3723) break; } -fornext_error3524:; -if(qbevent){evnt(24804);if(r)goto S_32370;} -S_32371:; +fornext_error3723:; +if(qbevent){evnt(25856);if(r)goto S_34239;} +S_34240:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))))||new_error){ -if(qbevent){evnt(24805);if(r)goto S_32371;} -S_32372:; +if(qbevent){evnt(25857);if(r)goto S_34240;} +S_34241:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(-(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))fornext_finalvalue3527) break; +if (fornext_value3726>fornext_finalvalue3726) break; } -fornext_error3527:; -if(qbevent){evnt(24828);if(r)goto S_32392;} -S_32393:; +fornext_error3726:; +if(qbevent){evnt(25880);if(r)goto S_34261;} +S_34262:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24829);if(r)goto S_32393;} +if(qbevent){evnt(25881);if(r)goto S_34262;} do{ *_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24830);}while(r); -S_32395:; +if(!qbevent)break;evnt(25882);}while(r); +S_34264:; if ((-(*_FUNC_EVALPREIF_LONG_FIRST!= 0 ))||new_error){ -if(qbevent){evnt(24831);if(r)goto S_32395;} -S_32396:; +if(qbevent){evnt(25883);if(r)goto S_34264;} +S_34265:; if (((-(*_FUNC_EVALPREIF_LONG_T<*_FUNC_EVALPREIF_LONG_FIRST))&(-(*_FUNC_EVALPREIF_LONG_T!= 0 )))||new_error){ -if(qbevent){evnt(24832);if(r)goto S_32396;} +if(qbevent){evnt(25884);if(r)goto S_34265;} do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; -if(!qbevent)break;evnt(24832);}while(r); +if(!qbevent)break;evnt(25884);}while(r); do{ *_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; -if(!qbevent)break;evnt(24832);}while(r); +if(!qbevent)break;evnt(25884);}while(r); } }else{ do{ *_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; -if(!qbevent)break;evnt(24834);}while(r); +if(!qbevent)break;evnt(25886);}while(r); do{ *_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; -if(!qbevent)break;evnt(24834);}while(r); +if(!qbevent)break;evnt(25886);}while(r); } } -fornext_continue_3526:; +fornext_continue_3725:; } -fornext_exit_3526:; -S_32406:; +fornext_exit_3725:; +S_34275:; if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ -if(qbevent){evnt(24838);if(r)goto S_32406;} +if(qbevent){evnt(25890);if(r)goto S_34275;} do{ -goto dl_exit_3525; -if(!qbevent)break;evnt(24838);}while(r); +goto dl_exit_3724; +if(!qbevent)break;evnt(25890);}while(r); } do{ qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24839);}while(r); +if(!qbevent)break;evnt(25891);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))->len,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24840);}while(r); +if(!qbevent)break;evnt(25892);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_T,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST+((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))->len,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24841);}while(r); +if(!qbevent)break;evnt(25893);}while(r); do{ *_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len(" ",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24842);}while(r); -S_32413:; +if(!qbevent)break;evnt(25894);}while(r); +S_34282:; if ((*_FUNC_EVALPREIF_LONG_T)||new_error){ -if(qbevent){evnt(24843);if(r)goto S_32413;} +if(qbevent){evnt(25895);if(r)goto S_34282;} do{ qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24844);}while(r); +if(!qbevent)break;evnt(25896);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24845);}while(r); +if(!qbevent)break;evnt(25897);}while(r); }else{ do{ qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24847);}while(r); +if(!qbevent)break;evnt(25899);}while(r); do{ qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24848);}while(r); +if(!qbevent)break;evnt(25900);}while(r); } do{ *_FUNC_EVALPREIF_LONG_LEFTRESULT= 0 ; -if(!qbevent)break;evnt(24850);}while(r); -S_32421:; +if(!qbevent)break;evnt(25902);}while(r); +S_34290:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ -if(qbevent){evnt(24851);if(r)goto S_32421;} -S_32422:; +if(qbevent){evnt(25903);if(r)goto S_34290;} +S_34291:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_LEFTSIDE)!= 0 )))||new_error){ -if(qbevent){evnt(24852);if(r)goto S_32422;} +if(qbevent){evnt(25904);if(r)goto S_34291;} do{ *_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; -if(!qbevent)break;evnt(24852);}while(r); +if(!qbevent)break;evnt(25904);}while(r); } }else{ -S_32426:; -fornext_value3531= 0 ; -fornext_finalvalue3531=*__INTEGER_USERDEFINECOUNT; -fornext_step3531= 1 ; -if (fornext_step3531<0) fornext_step_negative3531=1; else fornext_step_negative3531=0; -if (new_error) goto fornext_error3531; -goto fornext_entrylabel3531; +S_34295:; +fornext_value3730= 0 ; +fornext_finalvalue3730=*__INTEGER_USERDEFINECOUNT; +fornext_step3730= 1 ; +if (fornext_step3730<0) fornext_step_negative3730=1; else fornext_step_negative3730=0; +if (new_error) goto fornext_error3730; +goto fornext_entrylabel3730; while(1){ -fornext_value3531=fornext_step3531+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3531: -*_FUNC_EVALPREIF_LONG_I=fornext_value3531; -if (fornext_step_negative3531){ -if (fornext_value3531fornext_finalvalue3531) break; +if (fornext_value3730>fornext_finalvalue3730) break; } -fornext_error3531:; -if(qbevent){evnt(24854);if(r)goto S_32426;} -S_32427:; +fornext_error3730:; +if(qbevent){evnt(25906);if(r)goto S_34295;} +S_34296:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ -if(qbevent){evnt(24855);if(r)goto S_32427;} +if(qbevent){evnt(25907);if(r)goto S_34296;} do{ qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24856);}while(r); -S_32429:; +if(!qbevent)break;evnt(25908);}while(r); +S_34298:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(24857);if(r)goto S_32429;} +if(qbevent){evnt(25909);if(r)goto S_34298;} do{ *_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; -if(!qbevent)break;evnt(24857);}while(r); +if(!qbevent)break;evnt(25909);}while(r); do{ -goto fornext_exit_3530; -if(!qbevent)break;evnt(24857);}while(r); +goto fornext_exit_3729; +if(!qbevent)break;evnt(25909);}while(r); } } -fornext_continue_3530:; +fornext_continue_3729:; } -fornext_exit_3530:; +fornext_exit_3729:; } do{ *_FUNC_EVALPREIF_LONG_RIGHTRESULT= 0 ; -if(!qbevent)break;evnt(24861);}while(r); -S_32437:; +if(!qbevent)break;evnt(25913);}while(r); +S_34306:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_M)))||new_error){ -if(qbevent){evnt(24862);if(r)goto S_32437;} -S_32438:; +if(qbevent){evnt(25914);if(r)goto S_34306;} +S_34307:; if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_M)!= 0 )))||new_error){ -if(qbevent){evnt(24863);if(r)goto S_32438;} +if(qbevent){evnt(25915);if(r)goto S_34307;} do{ *_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; -if(!qbevent)break;evnt(24863);}while(r); +if(!qbevent)break;evnt(25915);}while(r); } }else{ -S_32442:; -fornext_value3533= 0 ; -fornext_finalvalue3533=*__INTEGER_USERDEFINECOUNT; -fornext_step3533= 1 ; -if (fornext_step3533<0) fornext_step_negative3533=1; else fornext_step_negative3533=0; -if (new_error) goto fornext_error3533; -goto fornext_entrylabel3533; +S_34311:; +fornext_value3732= 0 ; +fornext_finalvalue3732=*__INTEGER_USERDEFINECOUNT; +fornext_step3732= 1 ; +if (fornext_step3732<0) fornext_step_negative3732=1; else fornext_step_negative3732=0; +if (new_error) goto fornext_error3732; +goto fornext_entrylabel3732; while(1){ -fornext_value3533=fornext_step3533+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3533: -*_FUNC_EVALPREIF_LONG_I=fornext_value3533; -if (fornext_step_negative3533){ -if (fornext_value3533fornext_finalvalue3533) break; +if (fornext_value3732>fornext_finalvalue3732) break; } -fornext_error3533:; -if(qbevent){evnt(24865);if(r)goto S_32442;} -S_32443:; +fornext_error3732:; +if(qbevent){evnt(25917);if(r)goto S_34311;} +S_34312:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_M)))||new_error){ -if(qbevent){evnt(24866);if(r)goto S_32443;} +if(qbevent){evnt(25918);if(r)goto S_34312;} do{ qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24867);}while(r); -S_32445:; +if(!qbevent)break;evnt(25919);}while(r); +S_34314:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(24868);if(r)goto S_32445;} +if(qbevent){evnt(25920);if(r)goto S_34314;} do{ *_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; -if(!qbevent)break;evnt(24868);}while(r); +if(!qbevent)break;evnt(25920);}while(r); do{ -goto fornext_exit_3532; -if(!qbevent)break;evnt(24868);}while(r); +goto fornext_exit_3731; +if(!qbevent)break;evnt(25920);}while(r); } } -fornext_continue_3532:; +fornext_continue_3731:; } -fornext_exit_3532:; +fornext_exit_3731:; } -S_32452:; -qbs_set(sc_3534,qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_SYMBOL))); +S_34321:; +qbs_set(sc_3733,qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_SYMBOL))); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24872);if(r)goto S_32452;} -S_32453:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3534,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(24873);if(r)goto S_32453;} -S_32454:; +if(qbevent){evnt(25924);if(r)goto S_34321;} +S_34322:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3733,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(25925);if(r)goto S_34322;} +S_34323:; if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ -if(qbevent){evnt(24874);if(r)goto S_32454;} +if(qbevent){evnt(25926);if(r)goto S_34323;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24874);}while(r); +if(!qbevent)break;evnt(25926);}while(r); }else{ do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24874);}while(r); +if(!qbevent)break;evnt(25926);}while(r); } -goto sc_3534_end; +sc_ec_174_end:; +goto sc_3733_end; } -S_32459:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3534,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(24875);if(r)goto S_32459;} -S_32460:; +S_34328:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3733,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(25927);if(r)goto S_34328;} +S_34329:; if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))|(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ -if(qbevent){evnt(24876);if(r)goto S_32460;} +if(qbevent){evnt(25928);if(r)goto S_34329;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24876);}while(r); +if(!qbevent)break;evnt(25928);}while(r); }else{ do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24876);}while(r); +if(!qbevent)break;evnt(25928);}while(r); } -goto sc_3534_end; +sc_ec_175_end:; +goto sc_3733_end; } -S_32465:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3534,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(24877);if(r)goto S_32465;} -S_32466:; +S_34334:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3733,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(25929);if(r)goto S_34334;} +S_34335:; if ((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!=*_FUNC_EVALPREIF_LONG_RIGHTRESULT))||new_error){ -if(qbevent){evnt(24878);if(r)goto S_32466;} +if(qbevent){evnt(25930);if(r)goto S_34335;} do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24878);}while(r); +if(!qbevent)break;evnt(25930);}while(r); }else{ do{ qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24878);}while(r); +if(!qbevent)break;evnt(25930);}while(r); } -goto sc_3534_end; +sc_ec_176_end:; +goto sc_3733_end; } -sc_3534_end:; +sc_3733_end:; do{ qbs_set(_FUNC_EVALPREIF_STRING_TEMP,qbs_add(_FUNC_EVALPREIF_STRING_RESULT,_FUNC_EVALPREIF_STRING_RIGHTSIDE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24880);}while(r); -dl_continue_3525:; +if(!qbevent)break;evnt(25932);}while(r); +dl_continue_3724:; }while(1); -dl_exit_3525:; -S_32474:; +dl_exit_3724:; +S_34343:; if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ -if(qbevent){evnt(24883);if(r)goto S_32474;} +if(qbevent){evnt(25935);if(r)goto S_34343;} do{ *_FUNC_EVALPREIF_LONG_EVALPREIF=qbr(func_val(_FUNC_EVALPREIF_STRING_TEMP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24884);}while(r); +if(!qbevent)break;evnt(25936);}while(r); }else{ -S_32477:; +S_34346:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(24886);if(r)goto S_32477;} +if(qbevent){evnt(25938);if(r)goto S_34346;} do{ qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid Resolution of $IF; check statements",43)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24886);}while(r); +if(!qbevent)break;evnt(25938);}while(r); } -S_32480:; -fornext_value3536= 0 ; -fornext_finalvalue3536=*__INTEGER_USERDEFINECOUNT; -fornext_step3536= 1 ; -if (fornext_step3536<0) fornext_step_negative3536=1; else fornext_step_negative3536=0; -if (new_error) goto fornext_error3536; -goto fornext_entrylabel3536; +S_34349:; +fornext_value3735= 0 ; +fornext_finalvalue3735=*__INTEGER_USERDEFINECOUNT; +fornext_step3735= 1 ; +if (fornext_step3735<0) fornext_step_negative3735=1; else fornext_step_negative3735=0; +if (new_error) goto fornext_error3735; +goto fornext_entrylabel3735; while(1){ -fornext_value3536=fornext_step3536+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3536: -*_FUNC_EVALPREIF_LONG_I=fornext_value3536; -if (fornext_step_negative3536){ -if (fornext_value3536fornext_finalvalue3536) break; +if (fornext_value3735>fornext_finalvalue3735) break; } -fornext_error3536:; -if(qbevent){evnt(24887);if(r)goto S_32480;} -S_32481:; +fornext_error3735:; +if(qbevent){evnt(25939);if(r)goto S_34349;} +S_34350:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ -if(qbevent){evnt(24888);if(r)goto S_32481;} +if(qbevent){evnt(25940);if(r)goto S_34350;} do{ qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24889);}while(r); -S_32483:; +if(!qbevent)break;evnt(25941);}while(r); +S_34352:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(24890);if(r)goto S_32483;} +if(qbevent){evnt(25942);if(r)goto S_34352;} do{ *_FUNC_EVALPREIF_LONG_EVALPREIF= -1 ; -if(!qbevent)break;evnt(24890);}while(r); +if(!qbevent)break;evnt(25942);}while(r); do{ -goto fornext_exit_3535; -if(!qbevent)break;evnt(24890);}while(r); +goto fornext_exit_3734; +if(!qbevent)break;evnt(25942);}while(r); } } -fornext_continue_3535:; +fornext_continue_3734:; } -fornext_exit_3535:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free99.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_EVALPREIF_LONG_EVALPREIF; -} -int32 FUNC_VERIFYNUMBER(qbs*_FUNC_VERIFYNUMBER_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data100.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_VERIFYNUMBER_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_VERIFYNUMBER_STRING_TEXT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24898);}while(r); -do{ -*_FUNC_VERIFYNUMBER_LONG_V=qbr(func_val(_FUNC_VERIFYNUMBER_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24899);}while(r); -do{ -qbs_set(_FUNC_VERIFYNUMBER_STRING_T1,qbs_ltrim(qbs_str((int32)(*_FUNC_VERIFYNUMBER_LONG_V)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24900);}while(r); -S_32493:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VERIFYNUMBER_STRING_T,_FUNC_VERIFYNUMBER_STRING_T1)))||new_error){ -if(qbevent){evnt(24901);if(r)goto S_32493;} -do{ -*_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER= -1 ; -if(!qbevent)break;evnt(24901);}while(r); +fornext_exit_3734:; } exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free100.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER; +return *_FUNC_EVALPREIF_LONG_EVALPREIF; } -void SUB_INITIALISE_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ +int32 FUNC_VERIFYNUMBER(qbs*_FUNC_VERIFYNUMBER_STRING_TEXT){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116494,65 +120008,33 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32496:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(24905);if(r)goto S_32496;} do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24905);}while(r); -} -do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(24906);}while(r); -do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(24907);}while(r); -S_32501:; -while((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(24908);if(r)goto S_32501;} -S_32502:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(24909);if(r)goto S_32502;} -S_32503:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(24910);if(r)goto S_32503;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE; -if (new_error) goto skip3540; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(qbs**)(((char*)",17),_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(") = qbs_new(0,0);",17)), 0 , 0 , 1 ); -if (new_error) goto skip3540; -skip3540: +qbs_set(_FUNC_VERIFYNUMBER_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_VERIFYNUMBER_STRING_TEXT))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24911);}while(r); -} -S_32506:; -}else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(24913);if(r)goto S_32506;} +if(!qbevent)break;evnt(25950);}while(r); do{ -SUB_INITIALISE_UDT_VARSTRINGS(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,&(pass3541=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE,_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET); +*_FUNC_VERIFYNUMBER_LONG_V=qbr(func_val(_FUNC_VERIFYNUMBER_STRING_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24914);}while(r); -} -} +if(!qbevent)break;evnt(25951);}while(r); do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(24916);}while(r); +qbs_set(_FUNC_VERIFYNUMBER_STRING_T1,qbs_ltrim(qbs_str((int32)(*_FUNC_VERIFYNUMBER_LONG_V)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25952);}while(r); +S_34362:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VERIFYNUMBER_STRING_T,_FUNC_VERIFYNUMBER_STRING_T1)))||new_error){ +if(qbevent){evnt(25953);if(r)goto S_34362;} do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(24917);}while(r); -dl_continue_3539:; +*_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER= -1 ; +if(!qbevent)break;evnt(25953);}while(r); } -dl_exit_3539:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free101.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +return *_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER; } -void SUB_FREE_UDT_VARSTRINGS(qbs*_SUB_FREE_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ +void SUB_INITIALISE_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116565,65 +120047,65 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32512:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(24922);if(r)goto S_32512;} +S_34365:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25957);if(r)goto S_34365;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24922);}while(r); +if(!qbevent)break;evnt(25957);}while(r); } do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(24923);}while(r); +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25958);}while(r); do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(24924);}while(r); -S_32517:; -while((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(24925);if(r)goto S_32517;} -S_32518:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(24926);if(r)goto S_32518;} -S_32519:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(24927);if(r)goto S_32519;} +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(25959);}while(r); +S_34370:; +while((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25960);if(r)goto S_34370;} +S_34371:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25961);if(r)goto S_34371;} +S_34372:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25962);if(r)goto S_34372;} do{ tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE; -if (new_error) goto skip3544; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_free(*((qbs**)(((char*)",27),_SUB_FREE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")));",4)), 0 , 0 , 1 ); -if (new_error) goto skip3544; -skip3544: +tab_fileno=tmp_fileno=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE; +if (new_error) goto skip3739; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(qbs**)(((char*)",17),_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(") = qbs_new(0,0);",17)), 0 , 0 , 1 ); +if (new_error) goto skip3739; +skip3739: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(24928);}while(r); +if(!qbevent)break;evnt(25963);}while(r); } -S_32522:; +S_34375:; }else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(24930);if(r)goto S_32522;} +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(25965);if(r)goto S_34375;} do{ -SUB_INITIALISE_UDT_VARSTRINGS(_SUB_FREE_UDT_VARSTRINGS_STRING_N,&(pass3545=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_UDT_VARSTRINGS_LONG_FILE,_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET); +SUB_INITIALISE_UDT_VARSTRINGS(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,&(pass3740=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE,_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24931);}while(r); +if(!qbevent)break;evnt(25966);}while(r); } } do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(24933);}while(r); +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25968);}while(r); do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(24934);}while(r); -dl_continue_3543:; +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25969);}while(r); +dl_continue_3738:; } -dl_exit_3543:; +dl_exit_3738:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free102.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ +void SUB_FREE_UDT_VARSTRINGS(qbs*_SUB_FREE_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116636,59 +120118,65 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32528:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(24939);if(r)goto S_32528;} +S_34381:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25974);if(r)goto S_34381;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24939);}while(r); +if(!qbevent)break;evnt(25974);}while(r); } do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; -if(!qbevent)break;evnt(24940);}while(r); +*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25975);}while(r); do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(24941);}while(r); -S_32533:; -while((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(24942);if(r)goto S_32533;} -S_32534:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(24943);if(r)goto S_32534;} -S_32535:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(24944);if(r)goto S_32535;} +*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(25976);}while(r); +S_34386:; +while((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25977);if(r)goto S_34386;} +S_34387:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25978);if(r)goto S_34387;} +S_34388:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25979);if(r)goto S_34388;} do{ -qbs_set(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("*(qbs**)(",9)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")=qbs_new(0,0);",15))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE; +if (new_error) goto skip3743; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_free(*((qbs**)(((char*)",27),_SUB_FREE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")));",4)), 0 , 0 , 1 ); +if (new_error) goto skip3743; +skip3743: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24945);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25980);}while(r); } -S_32538:; +S_34391:; }else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(24947);if(r)goto S_32538;} +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(25982);if(r)goto S_34391;} do{ -SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3550=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +SUB_INITIALISE_UDT_VARSTRINGS(_SUB_FREE_UDT_VARSTRINGS_STRING_N,&(pass3744=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_UDT_VARSTRINGS_LONG_FILE,_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24948);}while(r); +if(!qbevent)break;evnt(25983);}while(r); } } do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(24950);}while(r); +*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25985);}while(r); do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(24951);}while(r); -dl_continue_3549:; +*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25986);}while(r); +dl_continue_3742:; } -dl_exit_3549:; +dl_exit_3742:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free103.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_FREE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ +void SUB_CLEAR_UDT_WITH_VARSTRINGS(qbs*_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_FILE,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116701,59 +120189,87 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32544:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(24956);if(r)goto S_32544;} +S_34397:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25991);if(r)goto S_34397;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24956);}while(r); +if(!qbevent)break;evnt(25991);}while(r); } do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; -if(!qbevent)break;evnt(24957);}while(r); +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25992);}while(r); do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(24958);}while(r); -S_32549:; -while((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(24959);if(r)goto S_32549;} -S_32550:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(24960);if(r)goto S_32550;} -S_32551:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(24961);if(r)goto S_32551;} +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(25993);}while(r); +S_34402:; +while((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25994);if(r)goto S_34402;} +S_34403:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25995);if(r)goto S_34403;} +S_34404:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25996);if(r)goto S_34404;} do{ -qbs_set(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("qbs_free(*(qbs**)(",18)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("));",3))); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_FILE; +if (new_error) goto skip3747; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(((char*)",18),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("))->len=0;",10)), 0 , 0 , 1 ); +if (new_error) goto skip3747; +skip3747: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24962);}while(r); -} -S_32554:; +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25997);}while(r); }else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(24964);if(r)goto S_32554;} do{ -SUB_FREE_ARRAY_UDT_VARSTRINGS(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3555=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_FILE; +if (new_error) goto skip3748; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3748; +skip3748: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24965);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25999);}while(r); +} +}else{ +S_34410:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(26002);if(r)goto S_34410;} +do{ +SUB_CLEAR_UDT_WITH_VARSTRINGS(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,&(pass3749=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_FILE,&(pass3750=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26003);}while(r); +}else{ +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_FILE; +if (new_error) goto skip3751; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3751; +skip3751: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26005);}while(r); } } do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(24967);}while(r); +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(26008);}while(r); do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(24968);}while(r); -dl_continue_3554:; +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26009);}while(r); +dl_continue_3746:; } -dl_exit_3554:; +dl_exit_3746:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free104.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_COPY_FULL_UDT(qbs*_SUB_COPY_FULL_UDT_STRING_DST,qbs*_SUB_COPY_FULL_UDT_STRING_SRC,int32*_SUB_COPY_FULL_UDT_LONG_FILE,int32*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET,int32*_SUB_COPY_FULL_UDT_LONG_UDT){ +void SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116766,82 +120282,59 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32560:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(24973);if(r)goto S_32560;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; -if (new_error) goto skip3558; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3558; -skip3558: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24974);}while(r); +S_34419:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(26015);if(r)goto S_34419;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(24975);}while(r); +if(!qbevent)break;evnt(26015);}while(r); } do{ -*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET; -if(!qbevent)break;evnt(24977);}while(r); +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; +if(!qbevent)break;evnt(26016);}while(r); do{ -*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(24978);}while(r); -S_32566:; -while((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(24979);if(r)goto S_32566;} -S_32567:; -if ((((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 )))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(24980);if(r)goto S_32567;} +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26017);}while(r); +S_34424:; +while((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(26018);if(r)goto S_34424;} +S_34425:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(26019);if(r)goto S_34425;} +S_34426:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(26020);if(r)goto S_34426;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; -if (new_error) goto skip3560; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(*(qbs**)(",17),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("), *(qbs**)(",12)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("));",3)), 0 , 0 , 1 ); -if (new_error) goto skip3560; -skip3560: +qbs_set(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("*(qbs**)(",9)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")=qbs_new(0,0);",15))); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24981);}while(r); -S_32569:; +if(!qbevent)break;evnt(26021);}while(r); +} +S_34429:; }else{ -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)> 0 ))){ -if(qbevent){evnt(24982);if(r)goto S_32569;} +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(26023);if(r)goto S_34429;} do{ -SUB_COPY_FULL_UDT(_SUB_COPY_FULL_UDT_STRING_DST,_SUB_COPY_FULL_UDT_STRING_SRC,&(pass3561= 12 ),_SUB_COPY_FULL_UDT_LONG_OFFSET,&(pass3562=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 )); +SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3756=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24983);}while(r); -}else{ -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; -if (new_error) goto skip3563; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((",8),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),(",3)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),",2)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); -if (new_error) goto skip3563; -skip3563: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24985);}while(r); +if(!qbevent)break;evnt(26024);}while(r); } } do{ -*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(24987);}while(r); +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(26026);}while(r); do{ -*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(24988);}while(r); -dl_continue_3559:; +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26027);}while(r); +dl_continue_3755:; } -dl_exit_3559:; +dl_exit_3755:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free105.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_DUMP_UDTS(){ +void SUB_FREE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116854,125 +120347,59 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_34435:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(26032);if(r)goto S_34435;} do{ -*_SUB_DUMP_UDTS_LONG_F=func_freefile(); -if(!qbevent)break;evnt(24993);}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(26032);}while(r); +} do{ -sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_F,NULL,0); +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; +if(!qbevent)break;evnt(26033);}while(r); +do{ +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26034);}while(r); +S_34440:; +while((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(26035);if(r)goto S_34440;} +S_34441:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(26036);if(r)goto S_34441;} +S_34442:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(26037);if(r)goto S_34442;} +do{ +qbs_set(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("qbs_free(*(qbs**)(",18)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("));",3))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24994);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; -if (new_error) goto skip3564; -sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Var?",32), 0 , 0 , 1 ); -if (new_error) goto skip3564; -skip3564: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24995);}while(r); -S_32580:; -fornext_value3566= 1 ; -fornext_finalvalue3566=*__LONG_LASTTYPE; -fornext_step3566= 1 ; -if (fornext_step3566<0) fornext_step_negative3566=1; else fornext_step_negative3566=0; -if (new_error) goto fornext_error3566; -goto fornext_entrylabel3566; -while(1){ -fornext_value3566=fornext_step3566+(*_SUB_DUMP_UDTS_LONG_I); -fornext_entrylabel3566: -*_SUB_DUMP_UDTS_LONG_I=fornext_value3566; -if (fornext_step_negative3566){ -if (fornext_value3566fornext_finalvalue3566) break; -} -fornext_error3566:; -if(qbevent){evnt(24996);if(r)goto S_32580;} +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(26040);if(r)goto S_34445;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; -if (new_error) goto skip3567; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)), 0 , 1 , 0 ); -if (new_error) goto skip3567; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3567; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3567; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3567; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])), 1 , 0 , 1 ); -if (new_error) goto skip3567; -skip3567: +SUB_FREE_ARRAY_UDT_VARSTRINGS(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3761=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24997);}while(r); -fornext_continue_3565:; +if(!qbevent)break;evnt(26041);}while(r); } -fornext_exit_3565:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; -if (new_error) goto skip3568; -sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Type Tsize Arr",45), 0 , 0 , 1 ); -if (new_error) goto skip3568; -skip3568: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(24999);}while(r); -S_32584:; -fornext_value3570= 1 ; -fornext_finalvalue3570=*__LONG_LASTTYPEELEMENT; -fornext_step3570= 1 ; -if (fornext_step3570<0) fornext_step_negative3570=1; else fornext_step_negative3570=0; -if (new_error) goto fornext_error3570; -goto fornext_entrylabel3570; -while(1){ -fornext_value3570=fornext_step3570+(*_SUB_DUMP_UDTS_LONG_I); -fornext_entrylabel3570: -*_SUB_DUMP_UDTS_LONG_I=fornext_value3570; -if (fornext_step_negative3570){ -if (fornext_value3570fornext_finalvalue3570) break; } -fornext_error3570:; -if(qbevent){evnt(25000);if(r)goto S_32584;} do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1)), 0 , 1 , 0 ); -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])), 1 , 1 , 0 ); -if (new_error) goto skip3571; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])), 1 , 0 , 1 ); -if (new_error) goto skip3571; -skip3571: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25001);}while(r); -fornext_continue_3569:; +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(26043);}while(r); +do{ +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26044);}while(r); +dl_continue_3760:; } -fornext_exit_3569:; -do{ -sub_close(*_SUB_DUMP_UDTS_LONG_F,1); -if(!qbevent)break;evnt(25003);}while(r); +dl_exit_3760:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free106.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,int8*_SUB_MANAGEVARIABLELIST_BYTE_ACTION){ +void SUB_COPY_FULL_UDT(qbs*_SUB_COPY_FULL_UDT_STRING_DST,qbs*_SUB_COPY_FULL_UDT_STRING_SRC,int32*_SUB_COPY_FULL_UDT_LONG_FILE,int32*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET,int32*_SUB_COPY_FULL_UDT_LONG_UDT){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -116985,86 +120412,82 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_34451:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(26049);if(r)goto S_34451;} do{ -if(!qbevent)break;evnt(25007);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,_SUB_MANAGEVARIABLELIST_STRING___CNAME); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; +if (new_error) goto skip3764; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3764; +skip3764: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25008);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26050);}while(r); do{ -*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_new_txt_len("[",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25010);}while(r); -S_32591:; -if ((*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM)||new_error){ -if(qbevent){evnt(25011);if(r)goto S_32591;} -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_left(_SUB_MANAGEVARIABLELIST_STRING_CNAME,*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25012);}while(r); -} -S_32594:; -if(qbevent){evnt(25015);if(r)goto S_32594;} -S_32595:; -if (((*_SUB_MANAGEVARIABLELIST_BYTE_ACTION==( 0 )))||new_error){ -if(qbevent){evnt(25016);if(r)goto S_32595;} -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_S,qbs_add(qbs_add(qbs_add(func_chr( 4 ),i2string(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len)),_SUB_MANAGEVARIABLELIST_STRING_CNAME),func_chr( 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25017);}while(r); -S_32597:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_USEDVARIABLELIST,_SUB_MANAGEVARIABLELIST_STRING_S,0)== 0 )))||new_error){ -if(qbevent){evnt(25018);if(r)goto S_32597;} -do{ -tqbs=_SUB_MANAGEVARIABLELIST_STRING_S; if (!new_error){ -tmp_long= 3 ; if (!new_error){ -if (tqbs->len){tqbs->chr[0]=tmp_long;}else{error(5);} -}} -if(!qbevent)break;evnt(25019);}while(r); -do{ -qbs_set(__STRING_USEDVARIABLELIST,qbs_add(qbs_add(qbs_add(__STRING_USEDVARIABLELIST,func_chr( 1 )),l2string(*__LONG_LINENUMBER)),func_chr( 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25020);}while(r); -do{ -qbs_set(__STRING_USEDVARIABLELIST,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_USEDVARIABLELIST,qbs_new_txt_len("VAR:",4)),_SUB_MANAGEVARIABLELIST_STRING_S),_SUB_MANAGEVARIABLELIST_STRING_NAME),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25021);}while(r); -do{ -*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ; -if(!qbevent)break;evnt(25022);}while(r); -} -goto sc_3574_end; +goto exit_subfunc; +if(!qbevent)break;evnt(26051);}while(r); } do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_S,qbs_add(qbs_add(qbs_add(func_chr( 3 ),i2string(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len)),_SUB_MANAGEVARIABLELIST_STRING_CNAME),func_chr( 5 ))); +*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET; +if(!qbevent)break;evnt(26053);}while(r); +do{ +*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26054);}while(r); +S_34457:; +while((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(26055);if(r)goto S_34457;} +S_34458:; +if ((((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 )))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(26056);if(r)goto S_34458;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; +if (new_error) goto skip3766; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(*(qbs**)(",17),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("), *(qbs**)(",12)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("));",3)), 0 , 0 , 1 ); +if (new_error) goto skip3766; +skip3766: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25026);}while(r); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26057);}while(r); +S_34460:; +}else{ +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)> 0 ))){ +if(qbevent){evnt(26058);if(r)goto S_34460;} do{ -*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=func_instr(NULL,__STRING_USEDVARIABLELIST,_SUB_MANAGEVARIABLELIST_STRING_S,0); +SUB_COPY_FULL_UDT(_SUB_COPY_FULL_UDT_STRING_DST,_SUB_COPY_FULL_UDT_STRING_SRC,&(pass3767= 12 ),_SUB_COPY_FULL_UDT_LONG_OFFSET,&(pass3768=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25027);}while(r); -S_32606:; -if ((*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM)||new_error){ -if(qbevent){evnt(25028);if(r)goto S_32606;} +if(!qbevent)break;evnt(26059);}while(r); +}else{ do{ -tqbs=__STRING_USEDVARIABLELIST; if (!new_error){ -tmp_fileno=*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM; if (!new_error){ -tmp_long= 4 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(25029);}while(r); -do{ -*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES- 1 ; -if(!qbevent)break;evnt(25030);}while(r); +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_COPY_FULL_UDT_LONG_FILE; +if (new_error) goto skip3769; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((",8),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),(",3)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),",2)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2)), 0 , 0 , 1 ); +if (new_error) goto skip3769; +skip3769: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26061);}while(r); } -sc_3574_end:; +} +do{ +*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(26063);}while(r); +do{ +*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26064);}while(r); +dl_continue_3765:; +} +dl_exit_3765:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free107.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_LINENUMBER,qbs*_SUB_ADDWARNING_STRING_TEXT){ +void SUB_DUMP_UDTS(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -117077,32 +120500,762 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32611:; -if ((-(*_SUB_ADDWARNING_LONG_LINENUMBER> 0 ))||new_error){ -if(qbevent){evnt(25037);if(r)goto S_32611;} do{ -*__LONG_TOTALWARNINGS=*__LONG_TOTALWARNINGS+ 1 ; -if(!qbevent)break;evnt(25038);}while(r); +*_SUB_DUMP_UDTS_LONG_F=func_freefile(); +if(!qbevent)break;evnt(26069);}while(r); +do{ +sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_F,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; +if (new_error) goto skip3770; +sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Var?",32), 0 , 0 , 1 ); +if (new_error) goto skip3770; +skip3770: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26071);}while(r); +S_34471:; +fornext_value3772= 1 ; +fornext_finalvalue3772=*__LONG_LASTTYPE; +fornext_step3772= 1 ; +if (fornext_step3772<0) fornext_step_negative3772=1; else fornext_step_negative3772=0; +if (new_error) goto fornext_error3772; +goto fornext_entrylabel3772; +while(1){ +fornext_value3772=fornext_step3772+(*_SUB_DUMP_UDTS_LONG_I); +fornext_entrylabel3772: +*_SUB_DUMP_UDTS_LONG_I=fornext_value3772; +if (fornext_step_negative3772){ +if (fornext_value3772fornext_finalvalue3772) break; +} +fornext_error3772:; +if(qbevent){evnt(26072);if(r)goto S_34471;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; +if (new_error) goto skip3773; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)), 0 , 1 , 0 ); +if (new_error) goto skip3773; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3773; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3773; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3773; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])), 1 , 0 , 1 ); +if (new_error) goto skip3773; +skip3773: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26073);}while(r); +fornext_continue_3771:; +} +fornext_exit_3771:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; +if (new_error) goto skip3774; +sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Type Tsize Arr",45), 0 , 0 , 1 ); +if (new_error) goto skip3774; +skip3774: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26075);}while(r); +S_34475:; +fornext_value3776= 1 ; +fornext_finalvalue3776=*__LONG_LASTTYPEELEMENT; +fornext_step3776= 1 ; +if (fornext_step3776<0) fornext_step_negative3776=1; else fornext_step_negative3776=0; +if (new_error) goto fornext_error3776; +goto fornext_entrylabel3776; +while(1){ +fornext_value3776=fornext_step3776+(*_SUB_DUMP_UDTS_LONG_I); +fornext_entrylabel3776: +*_SUB_DUMP_UDTS_LONG_I=fornext_value3776; +if (fornext_step_negative3776){ +if (fornext_value3776fornext_finalvalue3776) break; +} +fornext_error3776:; +if(qbevent){evnt(26076);if(r)goto S_34475;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_F; +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1)), 0 , 1 , 0 ); +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])), 1 , 1 , 0 ); +if (new_error) goto skip3777; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])), 1 , 0 , 1 ); +if (new_error) goto skip3777; +skip3777: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26077);}while(r); +fornext_continue_3775:; +} +fornext_exit_3775:; +do{ +sub_close(*_SUB_DUMP_UDTS_LONG_F,1); +if(!qbevent)break;evnt(26079);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free108.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING___NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,int32*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX,int8*_SUB_MANAGEVARIABLELIST_BYTE_ACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data109.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26083);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(_SUB_MANAGEVARIABLELIST_STRING___NAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26084);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_rtrim(_SUB_MANAGEVARIABLELIST_STRING___CNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26085);}while(r); +S_34482:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len== 0 )))||new_error){ +if(qbevent){evnt(26087);if(r)goto S_34482;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25041);}while(r); +if(!qbevent)break;evnt(26087);}while(r); +} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_new_txt_len("[",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26089);}while(r); +S_34486:; +if ((*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM)||new_error){ +if(qbevent){evnt(26090);if(r)goto S_34486;} +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_left(_SUB_MANAGEVARIABLELIST_STRING_CNAME,*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26091);}while(r); +} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FOUND= 0 ; +if(!qbevent)break;evnt(26094);}while(r); +S_34490:; +fornext_value3782= 1 ; +fornext_finalvalue3782=*__LONG_TOTALVARIABLESCREATED; +fornext_step3782= 1 ; +if (fornext_step3782<0) fornext_step_negative3782=1; else fornext_step_negative3782=0; +if (new_error) goto fornext_error3782; +goto fornext_entrylabel3782; +while(1){ +fornext_value3782=fornext_step3782+(*_SUB_MANAGEVARIABLELIST_LONG_I); +fornext_entrylabel3782: +*_SUB_MANAGEVARIABLELIST_LONG_I=fornext_value3782; +if (fornext_step_negative3782){ +if (fornext_value3782fornext_finalvalue3782) break; +} +fornext_error3782:; +if(qbevent){evnt(26095);if(r)goto S_34490;} +S_34491:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))),_SUB_MANAGEVARIABLELIST_STRING_CNAME)))||new_error){ +if(qbevent){evnt(26096);if(r)goto S_34491;} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FOUND= -1 ; +if(!qbevent)break;evnt(26096);}while(r); +do{ +goto fornext_exit_3781; +if(!qbevent)break;evnt(26096);}while(r); +} +fornext_continue_3781:; +} +fornext_exit_3781:; +S_34496:; +if(qbevent){evnt(26099);if(r)goto S_34496;} +S_34497:; +if (((*_SUB_MANAGEVARIABLELIST_BYTE_ACTION==( 0 )))||new_error){ +if(qbevent){evnt(26100);if(r)goto S_34497;} +S_34498:; +if ((-(*_SUB_MANAGEVARIABLELIST_LONG_FOUND== 0 ))||new_error){ +if(qbevent){evnt(26101);if(r)goto S_34498;} +S_34499:; +if ((-(*_SUB_MANAGEVARIABLELIST_LONG_I>func_ubound(__ARRAY_UDT_USEDVARIABLELIST,1,1)))||new_error){ +if(qbevent){evnt(26102);if(r)goto S_34499;} +do{ + +if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){ +preserved_elements=__ARRAY_UDT_USEDVARIABLELIST[5]; +} +else preserved_elements=0; +__ARRAY_UDT_USEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_USEDVARIABLELIST[5]=(func_ubound(__ARRAY_UDT_USEDVARIABLELIST,1,1)+ 999 )-__ARRAY_UDT_USEDVARIABLELIST[4]+1; +__ARRAY_UDT_USEDVARIABLELIST[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_UDT_USEDVARIABLELIST[5]; +if (tmp_long2 0 ))||new_error){ +if(qbevent){evnt(26113);if(r)goto S_34509;} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12))=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; +if(!qbevent)break;evnt(26114);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME,FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26115);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26116);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26117);}while(r); }else{ do{ -qbs_set(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_TEXT); +*__LONG_TOTALMAINVARIABLESCREATED=*__LONG_TOTALMAINVARIABLESCREATED+ 1 ; +if(!qbevent)break;evnt(26119);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12))= 0 ; +if(!qbevent)break;evnt(26120);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25043);}while(r); +if(!qbevent)break;evnt(26121);}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+16))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(26123);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),__STRING_SUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26124);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),FUNC_ID2FULLTYPENAME()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26125);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))),_SUB_MANAGEVARIABLELIST_STRING_CNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26126);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))=*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX; +if(!qbevent)break;evnt(26127);}while(r); +S_34524:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_NAME,__STRING_FIX046,0)))||new_error){ +if(qbevent){evnt(26130);if(r)goto S_34524;} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_X=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_NAME,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26131);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_add(qbs_add(qbs_left(_SUB_MANAGEVARIABLELIST_STRING_NAME,*_SUB_MANAGEVARIABLELIST_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(_SUB_MANAGEVARIABLELIST_STRING_NAME,_SUB_MANAGEVARIABLELIST_STRING_NAME->len-*_SUB_MANAGEVARIABLELIST_LONG_X+ 1 -__STRING_FIX046->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26131);}while(r); +dl_continue_3785:; +} +dl_exit_3785:; +S_34528:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)> 0 )))||new_error){ +if(qbevent){evnt(26134);if(r)goto S_34528;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26135);}while(r); +S_34530:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)> 0 ))){ +if(qbevent){evnt(26136);if(r)goto S_34530;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26137);}while(r); +}else{ +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),_SUB_MANAGEVARIABLELIST_STRING_NAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26139);}while(r); +} +} +S_34535:; +if (((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 )))||new_error){ +if(qbevent){evnt(26142);if(r)goto S_34535;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))= -1 ; +if(!qbevent)break;evnt(26143);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len("()",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26144);}while(r); +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))= 0 ; +if(!qbevent)break;evnt(26146);}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26148);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; +if(!qbevent)break;evnt(26149);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26150);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26151);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26152);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26153);}while(r); +do{ +*__LONG_TOTALVARIABLESCREATED=*__LONG_TOTALVARIABLESCREATED+ 1 ; +if(!qbevent)break;evnt(26154);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_TEMP,qbs_add(qbs_add(l2string( -1 ),l2string(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len)),_SUB_MANAGEVARIABLELIST_STRING_CNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26156);}while(r); +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FOUND=func_instr(NULL,__STRING_BACKUPVARIABLEWATCHLIST,_SUB_MANAGEVARIABLELIST_STRING_TEMP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26157);}while(r); +S_34550:; +if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ +if(qbevent){evnt(26158);if(r)goto S_34550;} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_J=string2l(func_mid(__STRING_BACKUPVARIABLEWATCHLIST,*_SUB_MANAGEVARIABLELIST_LONG_FOUND+_SUB_MANAGEVARIABLELIST_STRING_TEMP->len, 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26161);}while(r); +S_34552:; +if ((qbs_cleanup(qbs_tmp_base,((-((*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))->len> 0 ))&(qbs_equal(__STRING_BACKUPTYPEDEFINITIONS,__STRING_TYPEDEFINITIONS)))|(-((*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ +if(qbevent){evnt(26165);if(r)goto S_34552;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))=*(int8*)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+29)); +if(!qbevent)break;evnt(26166);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+72)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26167);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+80)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26168);}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+31)); +if(!qbevent)break;evnt(26169);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26170);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+96)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26171);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+104)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26172);}while(r); +} +} +} +sc_ec_177_end:; +goto sc_3783_end; +} +S_34564:; +if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ +if(qbevent){evnt(26177);if(r)goto S_34564;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))= -1 ; +if(!qbevent)break;evnt(26178);}while(r); +} +sc_3783_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free109.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_WHICHLINENUMBER,int32*_SUB_ADDWARNING_LONG_INCLUDELEVEL,int32*_SUB_ADDWARNING_LONG_INCLINENUMBER,qbs*_SUB_ADDWARNING_STRING_INCFILENAME,qbs*_SUB_ADDWARNING_STRING_HEADER,qbs*_SUB_ADDWARNING_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data110.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__BYTE_WARNINGSISSUED= -1 ; +if(!qbevent)break;evnt(26184);}while(r); +do{ +*__LONG_TOTALWARNINGS=*__LONG_TOTALWARNINGS+ 1 ; +if(!qbevent)break;evnt(26185);}while(r); +S_34570:; +if (((-(*__LONG_IDEMODE== 0 ))&*__BYTE_SHOWWARNINGS)||new_error){ +if(qbevent){evnt(26187);if(r)goto S_34570;} +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,FUNC_GETFILEPATH(__STRING_CMDLINEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26188);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,func_mid(__STRING_CMDLINEFILE,_SUB_ADDWARNING_STRING_THISSOURCE->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26189);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26190);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26191);}while(r); +S_34575:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(26193);if(r)goto S_34575;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(26193);}while(r); +} +S_34578:; +if (((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))&(-(*_SUB_ADDWARNING_LONG_INCLINENUMBER> 0 )))||new_error){ +if(qbevent){evnt(26194);if(r)goto S_34578;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISINCNAME); +if (new_error) goto skip3795; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(":",1)); +if (new_error) goto skip3795; +makefit(tqbs); +qbs_print(tqbs,0); +skip3795: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26195);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_INCLINENUMBER)); +if (new_error) goto skip3796; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(": ",2)); +if (new_error) goto skip3796; +makefit(tqbs); +qbs_print(tqbs,0); +skip3796: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26196);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISSOURCE); +if (new_error) goto skip3797; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(":",1)); +if (new_error) goto skip3797; +makefit(tqbs); +qbs_print(tqbs,0); +skip3797: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26198);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_WHICHLINENUMBER)); +if (new_error) goto skip3798; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(": ",2)); +if (new_error) goto skip3798; +makefit(tqbs); +qbs_print(tqbs,0); +skip3798: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26199);}while(r); +} +S_34585:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(26202);if(r)goto S_34585;} +do{ +qbg_sub_color( 13 ,NULL,NULL,1); +if(!qbevent)break;evnt(26202);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("warning: ",9)); +if (new_error) goto skip3799; +makefit(tqbs); +qbs_print(tqbs,0); +skip3799: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26203);}while(r); +S_34589:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(26204);if(r)goto S_34589;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26204);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_HEADER); +if (new_error) goto skip3800; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip3800: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26205);}while(r); +S_34593:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_ADDWARNING_STRING_TEXT->len> 0 )))||new_error){ +if(qbevent){evnt(26207);if(r)goto S_34593;} +S_34594:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(26208);if(r)goto S_34594;} +do{ +qbg_sub_color( 2 ,NULL,NULL,1); +if(!qbevent)break;evnt(26208);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space( 4 )); +if (new_error) goto skip3802; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_TEXT); +if (new_error) goto skip3802; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip3802: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26209);}while(r); +S_34598:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(26210);if(r)goto S_34598;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26210);}while(r); +} +} +S_34602:; +}else{ +if (*__LONG_IDEMODE){ +if(qbevent){evnt(26212);if(r)goto S_34602;} +S_34603:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(26213);if(r)goto S_34603;} +S_34604:; +if ((-(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER>*__LONG_MAXLINENUMBER))||new_error){ +if(qbevent){evnt(26214);if(r)goto S_34604;} +do{ +*__LONG_MAXLINENUMBER=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER; +if(!qbevent)break;evnt(26214);}while(r); +} +S_34607:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER)))||new_error){ +if(qbevent){evnt(26215);if(r)goto S_34607;} +do{ +qbs_set(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26216);}while(r); +do{ +return_point[next_return_point++]=6; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_INCREASEWARNINGCOUNT; +RETURN_6:; +if(!qbevent)break;evnt(26217);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long])),_SUB_ADDWARNING_STRING_HEADER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26218);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26219);}while(r); +} +do{ +return_point[next_return_point++]=7; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_INCREASEWARNINGCOUNT; +RETURN_7:; +if(!qbevent)break;evnt(26222);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long])),_SUB_ADDWARNING_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26223);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER; +if(!qbevent)break;evnt(26224);}while(r); +S_34616:; +if ((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))||new_error){ +if(qbevent){evnt(26225);if(r)goto S_34616;} +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26226);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26227);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_INCLINENUMBER; +if(!qbevent)break;evnt(26228);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),_SUB_ADDWARNING_STRING_THISINCNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26229);}while(r); +}else{ +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26231);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26232);}while(r); +} +} } } do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26236);}while(r); +LABEL_INCREASEWARNINGCOUNT:; +if(qbevent){evnt(26237);r=0;} +do{ *__LONG_WARNINGLISTITEMS=*__LONG_WARNINGLISTITEMS+ 1 ; -if(!qbevent)break;evnt(25047);}while(r); -S_32621:; +if(!qbevent)break;evnt(26238);}while(r); +S_34629:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_WARNINGLISTITEMS>func_ubound(__ARRAY_STRING_WARNING,1,1))))||new_error){ -if(qbevent){evnt(25048);if(r)goto S_32621;} +if(qbevent){evnt(26239);if(r)goto S_34629;} do{ if (__ARRAY_STRING_WARNING[2]&2){ @@ -117147,134 +121300,143 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_n } } } -if(!qbevent)break;evnt(25048);}while(r); +if(!qbevent)break;evnt(26240);}while(r); +do{ + +if (__ARRAY_LONG_WARNINGLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_WARNINGLINES[2]&1){ +preserved_elements=__ARRAY_LONG_WARNINGLINES[5]; +} +else preserved_elements=0; +__ARRAY_LONG_WARNINGLINES[4]= 0 ; +__ARRAY_LONG_WARNINGLINES[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-__ARRAY_LONG_WARNINGLINES[4]+1; +__ARRAY_LONG_WARNINGLINES[6]=1; +if (__ARRAY_LONG_WARNINGLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_WARNINGLINES[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0])); +tmp_long=__ARRAY_LONG_WARNINGLINES[5]; +__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_WARNINGLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_WARNINGINCLINES[2]&1){ +preserved_elements=__ARRAY_LONG_WARNINGINCLINES[5]; +} +else preserved_elements=0; +__ARRAY_LONG_WARNINGINCLINES[4]= 0 ; +__ARRAY_LONG_WARNINGINCLINES[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-__ARRAY_LONG_WARNINGINCLINES[4]+1; +__ARRAY_LONG_WARNINGINCLINES[6]=1; +if (__ARRAY_LONG_WARNINGINCLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_WARNINGINCLINES[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0])); +tmp_long=__ARRAY_LONG_WARNINGINCLINES[5]; +__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_WARNINGINCFILES[2]&1){ +preserved_elements=__ARRAY_STRING_WARNINGINCFILES[5]; +} +else preserved_elements=0; +__ARRAY_STRING_WARNINGINCFILES[4]= 0 ; +__ARRAY_STRING_WARNINGINCFILES[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-__ARRAY_STRING_WARNINGINCFILES[4]+1; +__ARRAY_STRING_WARNINGINCFILES[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_WARNINGINCFILES[5]; +if (tmp_long2=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_STRREMOVE(qbs*_FUNC_STRREMOVE_STRING_MYSTRING,qbs*_FUNC_STRREMOVE_STRING_WHATTOREMOVE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data109.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_MYSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,6,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_STRREMOVE_STRING_B,qbs_lcase(_FUNC_STRREMOVE_STRING_WHATTOREMOVE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,7,"strings.bas");}while(r); -do{ -*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,8,"strings.bas");}while(r); -S_32628:; -while((*_FUNC_STRREMOVE_LONG_I)||new_error){ -if(qbevent){evnt(25052,9,"strings.bas");if(r)goto S_32628;} -do{ -qbs_set(_FUNC_STRREMOVE_STRING_A,qbs_add(qbs_left(_FUNC_STRREMOVE_STRING_A,*_FUNC_STRREMOVE_LONG_I- 1 ),qbs_right(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_A->len-*_FUNC_STRREMOVE_LONG_I-_FUNC_STRREMOVE_STRING_B->len+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,10,"strings.bas");}while(r); -do{ -*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,11,"strings.bas");}while(r); -dl_continue_3580:; -} -dl_exit_3580:; -do{ -qbs_set(_FUNC_STRREMOVE_STRING_STRREMOVE,_FUNC_STRREMOVE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,13,"strings.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free109.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STRREMOVE_STRING_STRREMOVE);return _FUNC_STRREMOVE_STRING_STRREMOVE; -} -qbs* FUNC_STRREPLACE(qbs*_FUNC_STRREPLACE_STRING_MYSTRING,qbs*_FUNC_STRREPLACE_STRING_FIND,qbs*_FUNC_STRREPLACE_STRING_REPLACEWITH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data110.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_32633:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_STRREPLACE_STRING_MYSTRING->len== 0 )))||new_error){ -if(qbevent){evnt(25052,17,"strings.bas");if(r)goto S_32633;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25052,17,"strings.bas");}while(r); -} -do{ -qbs_set(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_MYSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,18,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_STRREPLACE_STRING_B,qbs_lcase(_FUNC_STRREPLACE_STRING_FIND)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,19,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_BASEI= 1 ; -if(!qbevent)break;evnt(25052,20,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,21,"strings.bas");}while(r); -S_32640:; -while((*_FUNC_STRREPLACE_LONG_I)||new_error){ -if(qbevent){evnt(25052,22,"strings.bas");if(r)goto S_32640;} -do{ -qbs_set(_FUNC_STRREPLACE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_STRREPLACE_STRING_A,*_FUNC_STRREPLACE_LONG_I- 1 ),_FUNC_STRREPLACE_STRING_REPLACEWITH),qbs_right(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_A->len-*_FUNC_STRREPLACE_LONG_I-_FUNC_STRREPLACE_STRING_B->len+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,23,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_BASEI=*_FUNC_STRREPLACE_LONG_I+_FUNC_STRREPLACE_STRING_REPLACEWITH->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,24,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,25,"strings.bas");}while(r); -dl_continue_3587:; -} -dl_exit_3587:; -do{ -qbs_set(_FUNC_STRREPLACE_STRING_STRREPLACE,_FUNC_STRREPLACE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052,27,"strings.bas");}while(r); +#include "ret110.txt" +if(!qbevent)break;evnt(26245);}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free110.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STRREPLACE_STRING_STRREPLACE);return _FUNC_STRREPLACE_STRING_STRREPLACE; } -qbs* FUNC_GL2QB_TYPE_CONVERT(qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,int32*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP){ +qbs* FUNC_SCASE(qbs*_FUNC_SCASE_STRING_T){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -117287,325 +121449,27 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_34636:; +if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ +if(qbevent){evnt(26249);if(r)goto S_34636;} do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("",0)); +qbs_set(_FUNC_SCASE_STRING_SCASE,qbs_ucase(_FUNC_SCASE_STRING_T)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,2,"opengl_methods.bas");}while(r); -S_32647:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLenum",6))))||new_error){ -if(qbevent){evnt(25054,5,"opengl_methods.bas");if(r)goto S_32647;} +if(!qbevent)break;evnt(26249);}while(r); +}else{ do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_set(_FUNC_SCASE_STRING_SCASE,_FUNC_SCASE_STRING_T); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,5,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,5,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,5,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,5,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26249);}while(r); } -S_32653:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbitfield",10))))||new_error){ -if(qbevent){evnt(25054,6,"opengl_methods.bas");if(r)goto S_32653;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,6,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,6,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,6,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,6,"opengl_methods.bas");}while(r); -} -S_32659:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLuint",6))))||new_error){ -if(qbevent){evnt(25054,7,"opengl_methods.bas");if(r)goto S_32659;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,7,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,7,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,7,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,7,"opengl_methods.bas");}while(r); -} -S_32665:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLint",5))))||new_error){ -if(qbevent){evnt(25054,10,"opengl_methods.bas");if(r)goto S_32665;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,10,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,10,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,10,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,10,"opengl_methods.bas");}while(r); -} -S_32671:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLsizei",7))))||new_error){ -if(qbevent){evnt(25054,11,"opengl_methods.bas");if(r)goto S_32671;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,11,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,11,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,11,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,11,"opengl_methods.bas");}while(r); -} -S_32677:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLboolean",9))))||new_error){ -if(qbevent){evnt(25054,14,"opengl_methods.bas");if(r)goto S_32677;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,14,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,14,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,14,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,14,"opengl_methods.bas");}while(r); -} -S_32683:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLubyte",7))))||new_error){ -if(qbevent){evnt(25054,15,"opengl_methods.bas");if(r)goto S_32683;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,15,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,15,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,15,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,15,"opengl_methods.bas");}while(r); -} -S_32689:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbyte",6))))||new_error){ -if(qbevent){evnt(25054,18,"opengl_methods.bas");if(r)goto S_32689;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,18,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,18,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,18,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,18,"opengl_methods.bas");}while(r); -} -S_32695:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLushort",8))))||new_error){ -if(qbevent){evnt(25054,21,"opengl_methods.bas");if(r)goto S_32695;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED INTEGER",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,21,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,21,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,21,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint16",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,21,"opengl_methods.bas");}while(r); -} -S_32701:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLshort",7))))||new_error){ -if(qbevent){evnt(25054,24,"opengl_methods.bas");if(r)goto S_32701;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,24,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,24,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,24,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,24,"opengl_methods.bas");}while(r); -} -S_32707:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLfloat",7))))||new_error){ -if(qbevent){evnt(25054,27,"opengl_methods.bas");if(r)goto S_32707;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,27,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,27,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,27,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,27,"opengl_methods.bas");}while(r); -} -S_32713:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampf",8))))||new_error){ -if(qbevent){evnt(25054,28,"opengl_methods.bas");if(r)goto S_32713;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,28,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,28,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,28,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,28,"opengl_methods.bas");}while(r); -} -S_32719:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLdouble",8))))||new_error){ -if(qbevent){evnt(25054,31,"opengl_methods.bas");if(r)goto S_32719;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,31,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,31,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,31,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,31,"opengl_methods.bas");}while(r); -} -S_32725:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampd",8))))||new_error){ -if(qbevent){evnt(25054,32,"opengl_methods.bas");if(r)goto S_32725;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,32,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,32,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,32,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,32,"opengl_methods.bas");}while(r); -} -S_32731:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLvoid",6))))||new_error){ -if(qbevent){evnt(25054,35,"opengl_methods.bas");if(r)goto S_32731;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,35,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,35,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,35,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,35,"opengl_methods.bas");}while(r); -} -S_32737:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25054,53,"opengl_methods.bas");if(r)goto S_32737;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("Unknown type:",13),_FUNC_GL2QB_TYPE_CONVERT_STRING_A)); -if (new_error) goto skip3594; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3594: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,53,"opengl_methods.bas");}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(25054,53,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT,_FUNC_GL2QB_TYPE_CONVERT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,54,"opengl_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free111.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT);return _FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT; +qbs_maketmp(_FUNC_SCASE_STRING_SCASE);return _FUNC_SCASE_STRING_SCASE; } -qbs* FUNC_READCHUNK(qbs*_FUNC_READCHUNK_STRING_A,qbs*_FUNC_READCHUNK_STRING_LAST_CHARACTER){ +qbs* FUNC_SCASE2(qbs*_FUNC_SCASE2_STRING_T){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -117619,74 +121483,100 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_READCHUNK_STRING_A))); +qbs_set(_FUNC_SCASE2_STRING_SEPARATOR,__STRING1_SP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,58,"opengl_methods.bas");}while(r); -S_32743:; -fornext_value3598= 1 ; -fornext_finalvalue3598=_FUNC_READCHUNK_STRING_A->len; -fornext_step3598= 1 ; -if (fornext_step3598<0) fornext_step_negative3598=1; else fornext_step_negative3598=0; -if (new_error) goto fornext_error3598; -goto fornext_entrylabel3598; -while(1){ -fornext_value3598=fornext_step3598+(*_FUNC_READCHUNK_LONG_X); -fornext_entrylabel3598: -*_FUNC_READCHUNK_LONG_X=fornext_value3598; +if(!qbevent)break;evnt(26253);}while(r); +S_34642:; +if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ +if(qbevent){evnt(26254);if(r)goto S_34642;} +do{ +qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_ucase(_FUNC_SCASE2_STRING_T)); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3598){ -if (fornext_value3598fornext_finalvalue3598) break; +do{ +*_FUNC_SCASE2_LONG_NEWWORD= -1 ; +if(!qbevent)break;evnt(26257);}while(r); +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26258);}while(r); +S_34647:; +fornext_value3807= 1 ; +fornext_finalvalue3807=_FUNC_SCASE2_STRING_T->len; +fornext_step3807= 1 ; +if (fornext_step3807<0) fornext_step_negative3807=1; else fornext_step_negative3807=0; +if (new_error) goto fornext_error3807; +goto fornext_entrylabel3807; +while(1){ +fornext_value3807=fornext_step3807+(*_FUNC_SCASE2_LONG_I); +fornext_entrylabel3807: +*_FUNC_SCASE2_LONG_I=fornext_value3807; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3807){ +if (fornext_value3807fornext_finalvalue3807) break; } -fornext_error3598:; -if(qbevent){evnt(25054,59,"opengl_methods.bas");if(r)goto S_32743;} +fornext_error3807:; +if(qbevent){evnt(26259);if(r)goto S_34647;} do{ -*_FUNC_READCHUNK_LONG_C=qbs_asc(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X); +qbs_set(_FUNC_SCASE2_STRING_S,func_mid(_FUNC_SCASE2_STRING_T,*_FUNC_SCASE2_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,60,"opengl_methods.bas");}while(r); -S_32745:; -if (((-(*_FUNC_READCHUNK_LONG_C== 32 ))|(-(*_FUNC_READCHUNK_LONG_C== 44 ))|(-(*_FUNC_READCHUNK_LONG_C== 40 ))|(-(*_FUNC_READCHUNK_LONG_C== 41 )))||new_error){ -if(qbevent){evnt(25054,61,"opengl_methods.bas");if(r)goto S_32745;} +if(!qbevent)break;evnt(26260);}while(r); +S_34649:; +if ((*_FUNC_SCASE2_LONG_NEWWORD)||new_error){ +if(qbevent){evnt(26261);if(r)goto S_34649;} +S_34650:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SCASE2_STRING_S,qbs_new_txt_len("_",1)))|(qbs_equal(_FUNC_SCASE2_STRING_S,_FUNC_SCASE2_STRING_SEPARATOR))))||new_error){ +if(qbevent){evnt(26262);if(r)goto S_34650;} do{ -qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,func_chr(*_FUNC_READCHUNK_LONG_C)); +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_S)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,61,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26263);}while(r); +}else{ do{ -qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,qbs_left(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X- 1 )); +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_ucase(_FUNC_SCASE2_STRING_S))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,61,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26265);}while(r); do{ -qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_right(_FUNC_READCHUNK_STRING_A,_FUNC_READCHUNK_STRING_A->len-*_FUNC_READCHUNK_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,61,"opengl_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25054,61,"opengl_methods.bas");}while(r); +*_FUNC_SCASE2_LONG_NEWWORD= 0 ; +if(!qbevent)break;evnt(26266);}while(r); } -fornext_continue_3597:; +}else{ +S_34657:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SCASE2_STRING_S,_FUNC_SCASE2_STRING_SEPARATOR)))||new_error){ +if(qbevent){evnt(26269);if(r)goto S_34657;} +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_SEPARATOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26270);}while(r); +do{ +*_FUNC_SCASE2_LONG_NEWWORD= -1 ; +if(!qbevent)break;evnt(26271);}while(r); +}else{ +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_lcase(_FUNC_SCASE2_STRING_S))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26273);}while(r); } -fornext_exit_3597:; +} +fornext_continue_3806:; +} +fornext_exit_3806:; do{ -qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,_FUNC_READCHUNK_STRING_A); +qbs_set(_FUNC_SCASE2_STRING_SCASE2,_FUNC_SCASE2_STRING_TEMP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,63,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,63,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_READCHUNK_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,63,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26277);}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free112.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_READCHUNK_STRING_READCHUNK);return _FUNC_READCHUNK_STRING_READCHUNK; +qbs_maketmp(_FUNC_SCASE2_STRING_SCASE2);return _FUNC_SCASE2_STRING_SCASE2; } -void SUB_GL_SCAN_HEADER(){ +void SUB_INCREASEUDTARRAYS(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -117699,809 +121589,1926 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_32755:; +do{ +*_SUB_INCREASEUDTARRAYS_LONG_X=func_ubound(__ARRAY_STRING256_UDTXNAME,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26282);}while(r); +do{ + +if (__ARRAY_STRING256_UDTXNAME[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING256_UDTXNAME[2]&1){ +preserved_elements=__ARRAY_STRING256_UDTXNAME[5]; +} +else preserved_elements=0; +__ARRAY_STRING256_UDTXNAME[4]= 0 ; +__ARRAY_STRING256_UDTXNAME[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_STRING256_UDTXNAME[4]+1; +__ARRAY_STRING256_UDTXNAME[6]=1; +if (__ARRAY_STRING256_UDTXNAME[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_STRING256_UDTXNAME[0]),preserved_elements*256); +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0])); +tmp_long=__ARRAY_STRING256_UDTXNAME[5]; +__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*256); +memcpy((void*)(__ARRAY_STRING256_UDTXNAME[0]),redim_preserve_cmem_buffer,preserved_elements*256); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING256_UDTXCNAME[2]&1){ +preserved_elements=__ARRAY_STRING256_UDTXCNAME[5]; +} +else preserved_elements=0; +__ARRAY_STRING256_UDTXCNAME[4]= 0 ; +__ARRAY_STRING256_UDTXCNAME[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_STRING256_UDTXCNAME[4]+1; +__ARRAY_STRING256_UDTXCNAME[6]=1; +if (__ARRAY_STRING256_UDTXCNAME[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_STRING256_UDTXCNAME[0]),preserved_elements*256); +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0])); +tmp_long=__ARRAY_STRING256_UDTXCNAME[5]; +__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*256); +memcpy((void*)(__ARRAY_STRING256_UDTXCNAME[0]),redim_preserve_cmem_buffer,preserved_elements*256); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTXSIZE[2]&1){ +preserved_elements=__ARRAY_LONG_UDTXSIZE[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTXSIZE[4]= 0 ; +__ARRAY_LONG_UDTXSIZE[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTXSIZE[4]+1; +__ARRAY_LONG_UDTXSIZE[6]=1; +if (__ARRAY_LONG_UDTXSIZE[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTXSIZE[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0])); +tmp_long=__ARRAY_LONG_UDTXSIZE[5]; +__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTXSIZE[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){ +preserved_elements=__ARRAY_INTEGER_UDTXBYTEALIGN[5]; +} +else preserved_elements=0; +__ARRAY_INTEGER_UDTXBYTEALIGN[4]= 0 ; +__ARRAY_INTEGER_UDTXBYTEALIGN[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_INTEGER_UDTXBYTEALIGN[4]+1; +__ARRAY_INTEGER_UDTXBYTEALIGN[6]=1; +if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),preserved_elements*2); +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0])); +tmp_long=__ARRAY_INTEGER_UDTXBYTEALIGN[5]; +__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); +memcpy((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),redim_preserve_cmem_buffer,preserved_elements*2); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTXNEXT[2]&1){ +preserved_elements=__ARRAY_LONG_UDTXNEXT[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTXNEXT[4]= 0 ; +__ARRAY_LONG_UDTXNEXT[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTXNEXT[4]+1; +__ARRAY_LONG_UDTXNEXT[6]=1; +if (__ARRAY_LONG_UDTXNEXT[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTXNEXT[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0])); +tmp_long=__ARRAY_LONG_UDTXNEXT[5]; +__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTXNEXT[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){ +preserved_elements=__ARRAY_INTEGER_UDTXVARIABLE[5]; +} +else preserved_elements=0; +__ARRAY_INTEGER_UDTXVARIABLE[4]= 0 ; +__ARRAY_INTEGER_UDTXVARIABLE[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_INTEGER_UDTXVARIABLE[4]+1; +__ARRAY_INTEGER_UDTXVARIABLE[6]=1; +if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),preserved_elements*2); +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0])); +tmp_long=__ARRAY_INTEGER_UDTXVARIABLE[5]; +__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); +memcpy((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),redim_preserve_cmem_buffer,preserved_elements*2); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING256_UDTENAME[2]&1){ +preserved_elements=__ARRAY_STRING256_UDTENAME[5]; +} +else preserved_elements=0; +__ARRAY_STRING256_UDTENAME[4]= 0 ; +__ARRAY_STRING256_UDTENAME[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_STRING256_UDTENAME[4]+1; +__ARRAY_STRING256_UDTENAME[6]=1; +if (__ARRAY_STRING256_UDTENAME[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_STRING256_UDTENAME[0]),preserved_elements*256); +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0])); +tmp_long=__ARRAY_STRING256_UDTENAME[5]; +__ARRAY_STRING256_UDTENAME[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*256); +memcpy((void*)(__ARRAY_STRING256_UDTENAME[0]),redim_preserve_cmem_buffer,preserved_elements*256); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING256_UDTECNAME[2]&1){ +preserved_elements=__ARRAY_STRING256_UDTECNAME[5]; +} +else preserved_elements=0; +__ARRAY_STRING256_UDTECNAME[4]= 0 ; +__ARRAY_STRING256_UDTECNAME[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_STRING256_UDTECNAME[4]+1; +__ARRAY_STRING256_UDTECNAME[6]=1; +if (__ARRAY_STRING256_UDTECNAME[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_STRING256_UDTECNAME[0]),preserved_elements*256); +cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0])); +tmp_long=__ARRAY_STRING256_UDTECNAME[5]; +__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*256); +memcpy((void*)(__ARRAY_STRING256_UDTECNAME[0]),redim_preserve_cmem_buffer,preserved_elements*256); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){ +preserved_elements=__ARRAY_INTEGER_UDTEBYTEALIGN[5]; +} +else preserved_elements=0; +__ARRAY_INTEGER_UDTEBYTEALIGN[4]= 0 ; +__ARRAY_INTEGER_UDTEBYTEALIGN[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_INTEGER_UDTEBYTEALIGN[4]+1; +__ARRAY_INTEGER_UDTEBYTEALIGN[6]=1; +if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),preserved_elements*2); +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0])); +tmp_long=__ARRAY_INTEGER_UDTEBYTEALIGN[5]; +__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); +memcpy((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),redim_preserve_cmem_buffer,preserved_elements*2); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTESIZE[2]&1){ +preserved_elements=__ARRAY_LONG_UDTESIZE[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTESIZE[4]= 0 ; +__ARRAY_LONG_UDTESIZE[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTESIZE[4]+1; +__ARRAY_LONG_UDTESIZE[6]=1; +if (__ARRAY_LONG_UDTESIZE[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTESIZE[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0])); +tmp_long=__ARRAY_LONG_UDTESIZE[5]; +__ARRAY_LONG_UDTESIZE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTESIZE[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTETYPE[2]&1){ +preserved_elements=__ARRAY_LONG_UDTETYPE[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTETYPE[4]= 0 ; +__ARRAY_LONG_UDTETYPE[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTETYPE[4]+1; +__ARRAY_LONG_UDTETYPE[6]=1; +if (__ARRAY_LONG_UDTETYPE[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTETYPE[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0])); +tmp_long=__ARRAY_LONG_UDTETYPE[5]; +__ARRAY_LONG_UDTETYPE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTETYPE[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTETYPESIZE[2]&1){ +preserved_elements=__ARRAY_LONG_UDTETYPESIZE[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTETYPESIZE[4]= 0 ; +__ARRAY_LONG_UDTETYPESIZE[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTETYPESIZE[4]+1; +__ARRAY_LONG_UDTETYPESIZE[6]=1; +if (__ARRAY_LONG_UDTETYPESIZE[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTETYPESIZE[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0])); +tmp_long=__ARRAY_LONG_UDTETYPESIZE[5]; +__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){ +preserved_elements=__ARRAY_LONG_UDTEARRAYELEMENTS[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTEARRAYELEMENTS[4]= 0 ; +__ARRAY_LONG_UDTEARRAYELEMENTS[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTEARRAYELEMENTS[4]+1; +__ARRAY_LONG_UDTEARRAYELEMENTS[6]=1; +if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0])); +tmp_long=__ARRAY_LONG_UDTEARRAYELEMENTS[5]; +__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_LONG_UDTENEXT[2]&1){ +preserved_elements=__ARRAY_LONG_UDTENEXT[5]; +} +else preserved_elements=0; +__ARRAY_LONG_UDTENEXT[4]= 0 ; +__ARRAY_LONG_UDTENEXT[5]=(*_SUB_INCREASEUDTARRAYS_LONG_X+ 1000 )-__ARRAY_LONG_UDTENEXT[4]+1; +__ARRAY_LONG_UDTENEXT[6]=1; +if (__ARRAY_LONG_UDTENEXT[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_UDTENEXT[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0])); +tmp_long=__ARRAY_LONG_UDTENEXT[5]; +__ARRAY_LONG_UDTENEXT[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(__ARRAY_LONG_UDTENEXT[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elements=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_STRREMOVE(qbs*_FUNC_STRREMOVE_STRING_MYSTRING,qbs*_FUNC_STRREMOVE_STRING_WHATTOREMOVE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data114.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26300,6,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26300,7,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_MYSTRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,9,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_STRREMOVE_STRING_B,qbs_lcase(_FUNC_STRREMOVE_STRING_WHATTOREMOVE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,10,"strings.bas");}while(r); +do{ +*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,11,"strings.bas");}while(r); +S_34687:; +while((*_FUNC_STRREMOVE_LONG_I)||new_error){ +if(qbevent){evnt(26300,12,"strings.bas");if(r)goto S_34687;} +do{ +qbs_set(_FUNC_STRREMOVE_STRING_A,qbs_add(qbs_left(_FUNC_STRREMOVE_STRING_A,*_FUNC_STRREMOVE_LONG_I- 1 ),qbs_right(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_A->len-*_FUNC_STRREMOVE_LONG_I-_FUNC_STRREMOVE_STRING_B->len+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,13,"strings.bas");}while(r); +do{ +*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,14,"strings.bas");}while(r); +dl_continue_3811:; +} +dl_exit_3811:; +do{ +qbs_set(_FUNC_STRREMOVE_STRING_STRREMOVE,_FUNC_STRREMOVE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,16,"strings.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free114.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STRREMOVE_STRING_STRREMOVE);return _FUNC_STRREMOVE_STRING_STRREMOVE; +} +qbs* FUNC_STRREPLACE(qbs*_FUNC_STRREPLACE_STRING_MYSTRING,qbs*_FUNC_STRREPLACE_STRING_FIND,qbs*_FUNC_STRREPLACE_STRING_REPLACEWITH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data115.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26300,20,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26300,21,"strings.bas");}while(r); +S_34694:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_STRREPLACE_STRING_MYSTRING->len== 0 )))||new_error){ +if(qbevent){evnt(26300,22,"strings.bas");if(r)goto S_34694;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26300,22,"strings.bas");}while(r); +} +do{ +qbs_set(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_MYSTRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,23,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_STRREPLACE_STRING_B,qbs_lcase(_FUNC_STRREPLACE_STRING_FIND)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,24,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_BASEI= 1 ; +if(!qbevent)break;evnt(26300,25,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,26,"strings.bas");}while(r); +S_34701:; +while((*_FUNC_STRREPLACE_LONG_I)||new_error){ +if(qbevent){evnt(26300,27,"strings.bas");if(r)goto S_34701;} +do{ +qbs_set(_FUNC_STRREPLACE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_STRREPLACE_STRING_A,*_FUNC_STRREPLACE_LONG_I- 1 ),_FUNC_STRREPLACE_STRING_REPLACEWITH),qbs_right(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_A->len-*_FUNC_STRREPLACE_LONG_I-_FUNC_STRREPLACE_STRING_B->len+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,28,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_BASEI=*_FUNC_STRREPLACE_LONG_I+_FUNC_STRREPLACE_STRING_REPLACEWITH->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,29,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,30,"strings.bas");}while(r); +dl_continue_3818:; +} +dl_exit_3818:; +do{ +qbs_set(_FUNC_STRREPLACE_STRING_STRREPLACE,_FUNC_STRREPLACE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26300,32,"strings.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free115.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STRREPLACE_STRING_STRREPLACE);return _FUNC_STRREPLACE_STRING_STRREPLACE; +} +qbs* FUNC_GL2QB_TYPE_CONVERT(qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,int32*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data116.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,2,"opengl_methods.bas");}while(r); +S_34708:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLenum",6))))||new_error){ +if(qbevent){evnt(26301,5,"opengl_methods.bas");if(r)goto S_34708;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,5,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,5,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,5,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,5,"opengl_methods.bas");}while(r); +} +S_34714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbitfield",10))))||new_error){ +if(qbevent){evnt(26301,6,"opengl_methods.bas");if(r)goto S_34714;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,6,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,6,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,6,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,6,"opengl_methods.bas");}while(r); +} +S_34720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLuint",6))))||new_error){ +if(qbevent){evnt(26301,7,"opengl_methods.bas");if(r)goto S_34720;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,7,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,7,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,7,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,7,"opengl_methods.bas");}while(r); +} +S_34726:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLint",5))))||new_error){ +if(qbevent){evnt(26301,10,"opengl_methods.bas");if(r)goto S_34726;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,10,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,10,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,10,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,10,"opengl_methods.bas");}while(r); +} +S_34732:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLsizei",7))))||new_error){ +if(qbevent){evnt(26301,11,"opengl_methods.bas");if(r)goto S_34732;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,11,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,11,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,11,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,11,"opengl_methods.bas");}while(r); +} +S_34738:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLboolean",9))))||new_error){ +if(qbevent){evnt(26301,14,"opengl_methods.bas");if(r)goto S_34738;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,14,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,14,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,14,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,14,"opengl_methods.bas");}while(r); +} +S_34744:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLubyte",7))))||new_error){ +if(qbevent){evnt(26301,15,"opengl_methods.bas");if(r)goto S_34744;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,15,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,15,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,15,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,15,"opengl_methods.bas");}while(r); +} +S_34750:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbyte",6))))||new_error){ +if(qbevent){evnt(26301,18,"opengl_methods.bas");if(r)goto S_34750;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,18,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,18,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,18,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,18,"opengl_methods.bas");}while(r); +} +S_34756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLushort",8))))||new_error){ +if(qbevent){evnt(26301,21,"opengl_methods.bas");if(r)goto S_34756;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED INTEGER",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,21,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,21,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,21,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint16",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,21,"opengl_methods.bas");}while(r); +} +S_34762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLshort",7))))||new_error){ +if(qbevent){evnt(26301,24,"opengl_methods.bas");if(r)goto S_34762;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,24,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,24,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,24,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,24,"opengl_methods.bas");}while(r); +} +S_34768:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLfloat",7))))||new_error){ +if(qbevent){evnt(26301,27,"opengl_methods.bas");if(r)goto S_34768;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,27,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,27,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,27,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,27,"opengl_methods.bas");}while(r); +} +S_34774:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampf",8))))||new_error){ +if(qbevent){evnt(26301,28,"opengl_methods.bas");if(r)goto S_34774;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,28,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,28,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,28,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,28,"opengl_methods.bas");}while(r); +} +S_34780:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLdouble",8))))||new_error){ +if(qbevent){evnt(26301,31,"opengl_methods.bas");if(r)goto S_34780;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,31,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,31,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,31,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,31,"opengl_methods.bas");}while(r); +} +S_34786:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampd",8))))||new_error){ +if(qbevent){evnt(26301,32,"opengl_methods.bas");if(r)goto S_34786;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,32,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,32,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,32,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,32,"opengl_methods.bas");}while(r); +} +S_34792:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLvoid",6))))||new_error){ +if(qbevent){evnt(26301,35,"opengl_methods.bas");if(r)goto S_34792;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,35,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,35,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26301,35,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,35,"opengl_methods.bas");}while(r); +} +S_34798:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26301,53,"opengl_methods.bas");if(r)goto S_34798;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Unknown type:",13),_FUNC_GL2QB_TYPE_CONVERT_STRING_A)); +if (new_error) goto skip3825; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip3825: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,53,"opengl_methods.bas");}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(26301,53,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT,_FUNC_GL2QB_TYPE_CONVERT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,54,"opengl_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free116.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT);return _FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT; +} +qbs* FUNC_READCHUNK(qbs*_FUNC_READCHUNK_STRING_A,qbs*_FUNC_READCHUNK_STRING_LAST_CHARACTER){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data117.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_READCHUNK_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,58,"opengl_methods.bas");}while(r); +S_34804:; +fornext_value3829= 1 ; +fornext_finalvalue3829=_FUNC_READCHUNK_STRING_A->len; +fornext_step3829= 1 ; +if (fornext_step3829<0) fornext_step_negative3829=1; else fornext_step_negative3829=0; +if (new_error) goto fornext_error3829; +goto fornext_entrylabel3829; +while(1){ +fornext_value3829=fornext_step3829+(*_FUNC_READCHUNK_LONG_X); +fornext_entrylabel3829: +*_FUNC_READCHUNK_LONG_X=fornext_value3829; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3829){ +if (fornext_value3829fornext_finalvalue3829) break; +} +fornext_error3829:; +if(qbevent){evnt(26301,59,"opengl_methods.bas");if(r)goto S_34804;} +do{ +*_FUNC_READCHUNK_LONG_C=qbs_asc(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,60,"opengl_methods.bas");}while(r); +S_34806:; +if (((-(*_FUNC_READCHUNK_LONG_C== 32 ))|(-(*_FUNC_READCHUNK_LONG_C== 44 ))|(-(*_FUNC_READCHUNK_LONG_C== 40 ))|(-(*_FUNC_READCHUNK_LONG_C== 41 )))||new_error){ +if(qbevent){evnt(26301,61,"opengl_methods.bas");if(r)goto S_34806;} +do{ +qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,func_chr(*_FUNC_READCHUNK_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,61,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,qbs_left(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,61,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_right(_FUNC_READCHUNK_STRING_A,_FUNC_READCHUNK_STRING_A->len-*_FUNC_READCHUNK_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,61,"opengl_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26301,61,"opengl_methods.bas");}while(r); +} +fornext_continue_3828:; +} +fornext_exit_3828:; +do{ +qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,_FUNC_READCHUNK_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,63,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,63,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,63,"opengl_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free117.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READCHUNK_STRING_READCHUNK);return _FUNC_READCHUNK_STRING_READCHUNK; +} +void SUB_GL_SCAN_HEADER(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data118.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34816:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,69,"opengl_methods.bas");if(r)goto S_32755;} +if(qbevent){evnt(26301,69,"opengl_methods.bas");if(r)goto S_34816;} do{ *_SUB_GL_SCAN_HEADER_LONG_HK=func_freefile(); -if(!qbevent)break;evnt(25054,69,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,69,"opengl_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_kit.bas",59), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_HK,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,69,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,69,"opengl_methods.bas");}while(r); } -S_32759:; +S_34820:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,70,"opengl_methods.bas");if(r)goto S_32759;} +if(qbevent){evnt(26301,70,"opengl_methods.bas");if(r)goto S_34820;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3601; +if (new_error) goto skip3832; sub_file_print(tmp_fileno,qbs_new_txt_len("DECLARE LIBRARY",15), 0 , 0 , 1 ); -if (new_error) goto skip3601; -skip3601: +if (new_error) goto skip3832; +skip3832: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,70,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,70,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_D= 0 ; -if(!qbevent)break;evnt(25054,72,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,72,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,72,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,72,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_H=func_freefile(); -if(!qbevent)break;evnt(25054,73,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,73,"opengl_methods.bas");}while(r); do{ -sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\gl.h",48), 3 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_H,NULL,0); +sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\gl.h",48), 2 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_H,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,74,"opengl_methods.bas");}while(r); -S_32766:; +if(!qbevent)break;evnt(26301,74,"opengl_methods.bas");}while(r); +S_34827:; while((!(func_eof(*_SUB_GL_SCAN_HEADER_LONG_H)))||new_error){ -if(qbevent){evnt(25054,75,"opengl_methods.bas");if(r)goto S_32766;} +if(qbevent){evnt(26301,75,"opengl_methods.bas");if(r)goto S_34827;} do{ tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_H; -if (new_error) goto skip3603; +if (new_error) goto skip3834; sub_file_line_input_string(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_A); -if (new_error) goto skip3603; -skip3603: +if (new_error) goto skip3834; +skip3834: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,76,"opengl_methods.bas");}while(r); -S_32768:; +if(!qbevent)break;evnt(26301,76,"opengl_methods.bas");}while(r); +S_34829:; if ((qbs_cleanup(qbs_tmp_base,_SUB_GL_SCAN_HEADER_STRING_A->len))||new_error){ -if(qbevent){evnt(25054,77,"opengl_methods.bas");if(r)goto S_32768;} +if(qbevent){evnt(26301,77,"opengl_methods.bas");if(r)goto S_34829;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_GL_SCAN_HEADER_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,78,"opengl_methods.bas");}while(r); -S_32770:; +if(!qbevent)break;evnt(26301,78,"opengl_methods.bas");}while(r); +S_34831:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_A, 8 ),qbs_new_txt_len("#define ",8))))||new_error){ -if(qbevent){evnt(25054,79,"opengl_methods.bas");if(r)goto S_32770;} +if(qbevent){evnt(26301,79,"opengl_methods.bas");if(r)goto S_34831;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,80,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,80,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,81,"opengl_methods.bas");}while(r); -S_32773:; -fornext_value3606= 1 ; -fornext_finalvalue3606=_SUB_GL_SCAN_HEADER_STRING_A->len; -fornext_step3606= 1 ; -if (fornext_step3606<0) fornext_step_negative3606=1; else fornext_step_negative3606=0; -if (new_error) goto fornext_error3606; -goto fornext_entrylabel3606; +if(!qbevent)break;evnt(26301,81,"opengl_methods.bas");}while(r); +S_34834:; +fornext_value3837= 1 ; +fornext_finalvalue3837=_SUB_GL_SCAN_HEADER_STRING_A->len; +fornext_step3837= 1 ; +if (fornext_step3837<0) fornext_step_negative3837=1; else fornext_step_negative3837=0; +if (new_error) goto fornext_error3837; +goto fornext_entrylabel3837; while(1){ -fornext_value3606=fornext_step3606+(*_SUB_GL_SCAN_HEADER_LONG_X); -fornext_entrylabel3606: -*_SUB_GL_SCAN_HEADER_LONG_X=fornext_value3606; +fornext_value3837=fornext_step3837+(*_SUB_GL_SCAN_HEADER_LONG_X); +fornext_entrylabel3837: +*_SUB_GL_SCAN_HEADER_LONG_X=fornext_value3837; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3606){ -if (fornext_value3606fornext_finalvalue3606) break; +if (fornext_value3837>fornext_finalvalue3837) break; } -fornext_error3606:; -if(qbevent){evnt(25054,82,"opengl_methods.bas");if(r)goto S_32773;} +fornext_error3837:; +if(qbevent){evnt(26301,82,"opengl_methods.bas");if(r)goto S_34834;} do{ *_SUB_GL_SCAN_HEADER_LONG_C=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A,*_SUB_GL_SCAN_HEADER_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,83,"opengl_methods.bas");}while(r); -S_32775:; +if(!qbevent)break;evnt(26301,83,"opengl_methods.bas");}while(r); +S_34836:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_C== 32 ))||new_error){ -if(qbevent){evnt(25054,84,"opengl_methods.bas");if(r)goto S_32775;} -S_32776:; -fornext_value3609= 1 ; -fornext_finalvalue3609=_SUB_GL_SCAN_HEADER_STRING_A2->len; -fornext_step3609= 1 ; -if (fornext_step3609<0) fornext_step_negative3609=1; else fornext_step_negative3609=0; -if (new_error) goto fornext_error3609; -goto fornext_entrylabel3609; +if(qbevent){evnt(26301,84,"opengl_methods.bas");if(r)goto S_34836;} +S_34837:; +fornext_value3840= 1 ; +fornext_finalvalue3840=_SUB_GL_SCAN_HEADER_STRING_A2->len; +fornext_step3840= 1 ; +if (fornext_step3840<0) fornext_step_negative3840=1; else fornext_step_negative3840=0; +if (new_error) goto fornext_error3840; +goto fornext_entrylabel3840; while(1){ -fornext_value3609=fornext_step3609+(*_SUB_GL_SCAN_HEADER_LONG_X2); -fornext_entrylabel3609: -*_SUB_GL_SCAN_HEADER_LONG_X2=fornext_value3609; +fornext_value3840=fornext_step3840+(*_SUB_GL_SCAN_HEADER_LONG_X2); +fornext_entrylabel3840: +*_SUB_GL_SCAN_HEADER_LONG_X2=fornext_value3840; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3609){ -if (fornext_value3609fornext_finalvalue3609) break; +if (fornext_value3840>fornext_finalvalue3840) break; } -fornext_error3609:; -if(qbevent){evnt(25054,85,"opengl_methods.bas");if(r)goto S_32776;} +fornext_error3840:; +if(qbevent){evnt(26301,85,"opengl_methods.bas");if(r)goto S_34837;} do{ *_SUB_GL_SCAN_HEADER_LONG_C2=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A2,*_SUB_GL_SCAN_HEADER_LONG_X2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,86,"opengl_methods.bas");}while(r); -S_32778:; +if(!qbevent)break;evnt(26301,86,"opengl_methods.bas");}while(r); +S_34839:; if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 65 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 90 )))||new_error){ -if(qbevent){evnt(25054,87,"opengl_methods.bas");if(r)goto S_32778;} +if(qbevent){evnt(26301,87,"opengl_methods.bas");if(r)goto S_34839;} do{ goto LABEL_DEFINE_OK; -if(!qbevent)break;evnt(25054,87,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,87,"opengl_methods.bas");}while(r); } -S_32781:; +S_34842:; if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 48 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 57 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_X2!= 1 )))||new_error){ -if(qbevent){evnt(25054,88,"opengl_methods.bas");if(r)goto S_32781;} +if(qbevent){evnt(26301,88,"opengl_methods.bas");if(r)goto S_34842;} do{ goto LABEL_DEFINE_OK; -if(!qbevent)break;evnt(25054,88,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,88,"opengl_methods.bas");}while(r); } -S_32784:; +S_34845:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_C2== 95 ))||new_error){ -if(qbevent){evnt(25054,89,"opengl_methods.bas");if(r)goto S_32784;} +if(qbevent){evnt(26301,89,"opengl_methods.bas");if(r)goto S_34845;} do{ goto LABEL_DEFINE_OK; -if(!qbevent)break;evnt(25054,89,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,89,"opengl_methods.bas");}while(r); } do{ goto LABEL_DEFINE_NOT_OK; -if(!qbevent)break;evnt(25054,90,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,90,"opengl_methods.bas");}while(r); LABEL_DEFINE_OK:; -if(qbevent){evnt(25054,91,"opengl_methods.bas");r=0;} -fornext_continue_3608:; +if(qbevent){evnt(26301,91,"opengl_methods.bas");r=0;} +fornext_continue_3839:; } -fornext_exit_3608:; +fornext_exit_3839:; do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VALUE,qbs_ltrim(qbs_rtrim(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_A->len-*_SUB_GL_SCAN_HEADER_LONG_X)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,93,"opengl_methods.bas");}while(r); -S_32790:; +if(!qbevent)break;evnt(26301,93,"opengl_methods.bas");}while(r); +S_34851:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_GL_SCAN_HEADER_STRING_VALUE->len== 0 )))||new_error){ -if(qbevent){evnt(25054,94,"opengl_methods.bas");if(r)goto S_32790;} +if(qbevent){evnt(26301,94,"opengl_methods.bas");if(r)goto S_34851;} do{ goto LABEL_DEFINE_NOT_OK; -if(!qbevent)break;evnt(25054,94,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,94,"opengl_methods.bas");}while(r); } -S_32793:; +S_34854:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VALUE, 2 ),qbs_new_txt_len("0x",2))))||new_error){ -if(qbevent){evnt(25054,96,"opengl_methods.bas");if(r)goto S_32793;} +if(qbevent){evnt(26301,96,"opengl_methods.bas");if(r)goto S_34854;} do{ *_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),qbs_right(_SUB_GL_SCAN_HEADER_STRING_VALUE,_SUB_GL_SCAN_HEADER_STRING_VALUE->len- 2 )),qbs_new_txt_len("&&",2)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,97,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,97,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; -if(!qbevent)break;evnt(25054,99,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,99,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,99,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,99,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE; -if(!qbevent)break;evnt(25054,99,"opengl_methods.bas");}while(r); -S_32798:; +if(!qbevent)break;evnt(26301,99,"opengl_methods.bas");}while(r); +S_34859:; }else{ if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)>= 48 ))&(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)<= 57 )))){ -if(qbevent){evnt(25054,100,"opengl_methods.bas");if(r)goto S_32798;} +if(qbevent){evnt(26301,100,"opengl_methods.bas");if(r)goto S_34859;} do{ *_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(func_val(_SUB_GL_SCAN_HEADER_STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,101,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,101,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; -if(!qbevent)break;evnt(25054,103,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,103,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,103,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,103,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE; -if(!qbevent)break;evnt(25054,103,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,103,"opengl_methods.bas");}while(r); }else{ -S_32804:; -fornext_value3615= 1 ; -fornext_finalvalue3615=*_SUB_GL_SCAN_HEADER_LONG_D; -fornext_step3615= 1 ; -if (fornext_step3615<0) fornext_step_negative3615=1; else fornext_step_negative3615=0; -if (new_error) goto fornext_error3615; -goto fornext_entrylabel3615; +S_34865:; +fornext_value3846= 1 ; +fornext_finalvalue3846=*_SUB_GL_SCAN_HEADER_LONG_D; +fornext_step3846= 1 ; +if (fornext_step3846<0) fornext_step_negative3846=1; else fornext_step_negative3846=0; +if (new_error) goto fornext_error3846; +goto fornext_entrylabel3846; while(1){ -fornext_value3615=fornext_step3615+(*_SUB_GL_SCAN_HEADER_LONG_I); -fornext_entrylabel3615: -*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3615; -if (fornext_step_negative3615){ -if (fornext_value3615fornext_finalvalue3615) break; +if (fornext_value3846>fornext_finalvalue3846) break; } -fornext_error3615:; -if(qbevent){evnt(25054,106,"opengl_methods.bas");if(r)goto S_32804;} -S_32805:; +fornext_error3846:; +if(qbevent){evnt(26301,106,"opengl_methods.bas");if(r)goto S_34865;} +S_34866:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])),_SUB_GL_SCAN_HEADER_STRING_VALUE)))||new_error){ -if(qbevent){evnt(25054,107,"opengl_methods.bas");if(r)goto S_32805;} +if(qbevent){evnt(26301,107,"opengl_methods.bas");if(r)goto S_34866;} do{ *_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; -if(!qbevent)break;evnt(25054,108,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,108,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,108,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,108,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])]; -if(!qbevent)break;evnt(25054,108,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,108,"opengl_methods.bas");}while(r); do{ -goto fornext_exit_3614; -if(!qbevent)break;evnt(25054,110,"opengl_methods.bas");}while(r); +goto fornext_exit_3845; +if(!qbevent)break;evnt(26301,110,"opengl_methods.bas");}while(r); } -fornext_continue_3614:; +fornext_continue_3845:; } -fornext_exit_3614:; +fornext_exit_3845:; } } do{ goto LABEL_GOT_DEFINE; -if(!qbevent)break;evnt(25054,114,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,114,"opengl_methods.bas");}while(r); LABEL_DEFINE_NOT_OK:; -if(qbevent){evnt(25054,115,"opengl_methods.bas");r=0;} +if(qbevent){evnt(26301,115,"opengl_methods.bas");r=0;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,116,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,116,"opengl_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A2,func_chr(*_SUB_GL_SCAN_HEADER_LONG_C))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,118,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,118,"opengl_methods.bas");}while(r); } -fornext_continue_3605:; +fornext_continue_3836:; } -fornext_exit_3605:; +fornext_exit_3836:; LABEL_GOT_DEFINE:; -if(qbevent){evnt(25054,121,"opengl_methods.bas");r=0;} +if(qbevent){evnt(26301,121,"opengl_methods.bas");r=0;} } -S_32820:; +S_34881:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A, 1 ),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(25054,125,"opengl_methods.bas");if(r)goto S_32820;} +if(qbevent){evnt(26301,125,"opengl_methods.bas");if(r)goto S_34881;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,126,"opengl_methods.bas");}while(r); -S_32822:; +if(!qbevent)break;evnt(26301,126,"opengl_methods.bas");}while(r); +S_34883:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("WINGDIAPI",9))))||new_error){ -if(qbevent){evnt(25054,126,"opengl_methods.bas");if(r)goto S_32822;} +if(qbevent){evnt(26301,126,"opengl_methods.bas");if(r)goto S_34883;} do{ goto LABEL_DISCARD; -if(!qbevent)break;evnt(25054,126,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,126,"opengl_methods.bas");}while(r); } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,127,"opengl_methods.bas");}while(r); -S_32826:; +if(!qbevent)break;evnt(26301,127,"opengl_methods.bas");}while(r); +S_34887:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("const",5))))||new_error){ -if(qbevent){evnt(25054,128,"opengl_methods.bas");if(r)goto S_32826;} +if(qbevent){evnt(26301,128,"opengl_methods.bas");if(r)goto S_34887;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,128,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,128,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 0 ; -if(!qbevent)break;evnt(25054,130,"opengl_methods.bas");}while(r); -S_32830:; +if(!qbevent)break;evnt(26301,130,"opengl_methods.bas");}while(r); +S_34891:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("void",4))))||new_error){ -if(qbevent){evnt(25054,130,"opengl_methods.bas");if(r)goto S_32830;} +if(qbevent){evnt(26301,130,"opengl_methods.bas");if(r)goto S_34891;} do{ *_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 1 ; -if(!qbevent)break;evnt(25054,130,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,130,"opengl_methods.bas");}while(r); } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,132,"opengl_methods.bas");}while(r); -S_32834:; +if(!qbevent)break;evnt(26301,132,"opengl_methods.bas");}while(r); +S_34895:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("*APIENTRY",9))))||new_error){ -if(qbevent){evnt(25054,133,"opengl_methods.bas");if(r)goto S_32834;} +if(qbevent){evnt(26301,133,"opengl_methods.bas");if(r)goto S_34895;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("*",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,133,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,133,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,133,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,133,"opengl_methods.bas");}while(r); } -S_32838:; +S_34899:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8))))||new_error){ -if(qbevent){evnt(25054,134,"opengl_methods.bas");if(r)goto S_32838;} +if(qbevent){evnt(26301,134,"opengl_methods.bas");if(r)goto S_34899;} do{ goto LABEL_DISCARD; -if(!qbevent)break;evnt(25054,134,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,134,"opengl_methods.bas");}while(r); } do{ *__LONG_GL_COMMANDS_LAST=*__LONG_GL_COMMANDS_LAST+ 1 ; -if(!qbevent)break;evnt(25054,136,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,136,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_C=*__LONG_GL_COMMANDS_LAST; -if(!qbevent)break;evnt(25054,137,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,137,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,139,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,139,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,140,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,140,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 0 ; -if(!qbevent)break;evnt(25054,141,"opengl_methods.bas");}while(r); -S_32846:; +if(!qbevent)break;evnt(26301,141,"opengl_methods.bas");}while(r); +S_34907:; if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ -if(qbevent){evnt(25054,143,"opengl_methods.bas");if(r)goto S_32846;} +if(qbevent){evnt(26301,143,"opengl_methods.bas");if(r)goto S_34907;} do{ *(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64))= 1 ; -if(!qbevent)break;evnt(25054,144,"opengl_methods.bas");}while(r); -S_32848:; +if(!qbevent)break;evnt(26301,144,"opengl_methods.bas");}while(r); +S_34909:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,145,"opengl_methods.bas");if(r)goto S_32848;} +if(qbevent){evnt(26301,145,"opengl_methods.bas");if(r)goto S_34909;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3616; +if (new_error) goto skip3847; sub_file_print(tmp_fileno,qbs_new_txt_len("FUNCTION ",9), 0 , 0 , 0 ); -if (new_error) goto skip3616; -skip3616: +if (new_error) goto skip3847; +skip3847: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,145,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,145,"opengl_methods.bas");}while(r); } }else{ do{ *(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64))= 2 ; -if(!qbevent)break;evnt(25054,147,"opengl_methods.bas");}while(r); -S_32853:; +if(!qbevent)break;evnt(26301,147,"opengl_methods.bas");}while(r); +S_34914:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,148,"opengl_methods.bas");if(r)goto S_32853;} +if(qbevent){evnt(26301,148,"opengl_methods.bas");if(r)goto S_34914;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3617; +if (new_error) goto skip3848; sub_file_print(tmp_fileno,qbs_new_txt_len("SUB ",4), 0 , 0 , 0 ); -if (new_error) goto skip3617; -skip3617: +if (new_error) goto skip3848; +skip3848: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,148,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,148,"opengl_methods.bas");}while(r); } } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,151,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,151,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216)),64,1),qbs_add(qbs_new_txt_len("_",1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,153,"opengl_methods.bas");}while(r); -S_32859:; +if(!qbevent)break;evnt(26301,153,"opengl_methods.bas");}while(r); +S_34920:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,153,"opengl_methods.bas");if(r)goto S_32859;} +if(qbevent){evnt(26301,153,"opengl_methods.bas");if(r)goto S_34920;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3618; +if (new_error) goto skip3849; sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME, 0 , 0 , 0 ); -if (new_error) goto skip3618; -skip3618: +if (new_error) goto skip3849; +skip3849: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,153,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,153,"opengl_methods.bas");}while(r); } do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,154,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,154,"opengl_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))= 0 ; -if(!qbevent)break;evnt(25054,156,"opengl_methods.bas");}while(r); -S_32864:; +if(!qbevent)break;evnt(26301,156,"opengl_methods.bas");}while(r); +S_34925:; if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ -if(qbevent){evnt(25054,157,"opengl_methods.bas");if(r)goto S_32864;} +if(qbevent){evnt(26301,157,"opengl_methods.bas");if(r)goto S_34925;} do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; -if(!qbevent)break;evnt(25054,158,"opengl_methods.bas");}while(r); -S_32866:; +if(!qbevent)break;evnt(26301,158,"opengl_methods.bas");}while(r); +S_34927:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(25054,158,"opengl_methods.bas");if(r)goto S_32866;} +if(qbevent){evnt(26301,158,"opengl_methods.bas");if(r)goto S_34927;} do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; -if(!qbevent)break;evnt(25054,158,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,158,"opengl_methods.bas");}while(r); } -S_32869:; +S_34930:; if ((*_SUB_GL_SCAN_HEADER_LONG_POINTER)||new_error){ -if(qbevent){evnt(25054,159,"opengl_methods.bas");if(r)goto S_32869;} +if(qbevent){evnt(26301,159,"opengl_methods.bas");if(r)goto S_34930;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,qbs_new_txt_len("_OFFSET",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,160,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,160,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_S,qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,160,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,160,"opengl_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,161,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,161,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("ptrszint ",9))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,162,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,162,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; -if(!qbevent)break;evnt(25054,163,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,163,"opengl_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,165,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,165,"opengl_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*_SUB_GL_SCAN_HEADER_LONG_TYP; -if(!qbevent)break;evnt(25054,166,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,166,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,167,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,167,"opengl_methods.bas");}while(r); } -S_32880:; +S_34941:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,169,"opengl_methods.bas");if(r)goto S_32880;} +if(qbevent){evnt(26301,169,"opengl_methods.bas");if(r)goto S_34941;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3619; +if (new_error) goto skip3850; sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_S, 0 , 0 , 0 ); -if (new_error) goto skip3619; -skip3619: +if (new_error) goto skip3850; +skip3850: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,169,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,169,"opengl_methods.bas");}while(r); } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("return (",8)),_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(")(",2)),_SUB_GL_SCAN_HEADER_STRING_RET_TYPE),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,170,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,170,"opengl_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("void ",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,172,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,172,"opengl_methods.bas");}while(r); } -S_32887:; +S_34948:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,175,"opengl_methods.bas");if(r)goto S_32887;} +if(qbevent){evnt(26301,175,"opengl_methods.bas");if(r)goto S_34948;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3620; +if (new_error) goto skip3851; sub_file_print(tmp_fileno,qbs_new_txt_len("(",1), 0 , 0 , 0 ); -if (new_error) goto skip3620; -skip3620: +if (new_error) goto skip3851; +skip3851: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,175,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,175,"opengl_methods.bas");}while(r); } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,177,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,177,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("call_",5)),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,178,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,178,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))= 0 ; -if(!qbevent)break;evnt(25054,181,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,181,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132)),80,1),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,182,"opengl_methods.bas");}while(r); -S_32894:; +if(!qbevent)break;evnt(26301,182,"opengl_methods.bas");}while(r); +S_34955:; do{ -if(qbevent){evnt(25054,184,"opengl_methods.bas");if(r)goto S_32894;} +if(qbevent){evnt(26301,184,"opengl_methods.bas");if(r)goto S_34955;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,186,"opengl_methods.bas");}while(r); -S_32896:; +if(!qbevent)break;evnt(26301,186,"opengl_methods.bas");}while(r); +S_34957:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))&(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len("(",1)))))||new_error){ -if(qbevent){evnt(25054,187,"opengl_methods.bas");if(r)goto S_32896;} +if(qbevent){evnt(26301,187,"opengl_methods.bas");if(r)goto S_34957;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,187,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,187,"opengl_methods.bas");}while(r); } -S_32899:; +S_34960:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("const",5))))||new_error){ -if(qbevent){evnt(25054,188,"opengl_methods.bas");if(r)goto S_32899;} +if(qbevent){evnt(26301,188,"opengl_methods.bas");if(r)goto S_34960;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,188,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,188,"opengl_methods.bas");}while(r); } -S_32902:; +S_34963:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("void",4)))|(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(25054,189,"opengl_methods.bas");if(r)goto S_32902;} +if(qbevent){evnt(26301,189,"opengl_methods.bas");if(r)goto S_34963;} do{ goto LABEL_NO_ARGUMENTS; -if(!qbevent)break;evnt(25054,189,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,189,"opengl_methods.bas");}while(r); } -S_32905:; +S_34966:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(",",1)))&(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(25054,190,"opengl_methods.bas");if(r)goto S_32905;} +if(qbevent){evnt(26301,190,"opengl_methods.bas");if(r)goto S_34966;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,191,"opengl_methods.bas");}while(r); -S_32907:; +if(!qbevent)break;evnt(26301,191,"opengl_methods.bas");}while(r); +S_34968:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(25054,192,"opengl_methods.bas");if(r)goto S_32907;} +if(qbevent){evnt(26301,192,"opengl_methods.bas");if(r)goto S_34968;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,192,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,192,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,192,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,192,"opengl_methods.bas");}while(r); } -S_32911:; +S_34972:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(25054,193,"opengl_methods.bas");if(r)goto S_32911;} +if(qbevent){evnt(26301,193,"opengl_methods.bas");if(r)goto S_34972;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,193,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,193,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,193,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,193,"opengl_methods.bas");}while(r); } }else{ do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len("no_name",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,196,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,196,"opengl_methods.bas");}while(r); } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,199,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,199,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; -if(!qbevent)break;evnt(25054,201,"opengl_methods.bas");}while(r); -S_32920:; +if(!qbevent)break;evnt(26301,201,"opengl_methods.bas");}while(r); +S_34981:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(25054,203,"opengl_methods.bas");if(r)goto S_32920;} +if(qbevent){evnt(26301,203,"opengl_methods.bas");if(r)goto S_34981;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,204,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,204,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; -if(!qbevent)break;evnt(25054,205,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,205,"opengl_methods.bas");}while(r); } -S_32924:; +S_34985:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(25054,207,"opengl_methods.bas");if(r)goto S_32924;} +if(qbevent){evnt(26301,207,"opengl_methods.bas");if(r)goto S_34985;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,208,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,208,"opengl_methods.bas");}while(r); do{ *_SUB_GL_SCAN_HEADER_LONG_POINTER= 2 ; -if(!qbevent)break;evnt(25054,209,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,209,"opengl_methods.bas");}while(r); } -S_32928:; +S_34989:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ -if(qbevent){evnt(25054,212,"opengl_methods.bas");if(r)goto S_32928;} +if(qbevent){evnt(26301,212,"opengl_methods.bas");if(r)goto S_34989;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,qbs_new_txt_len("_OFFSET",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,213,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,213,"opengl_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,215,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,215,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; -if(!qbevent)break;evnt(25054,219,"opengl_methods.bas");}while(r); -S_32934:; +if(!qbevent)break;evnt(26301,219,"opengl_methods.bas");}while(r); +S_34995:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,221,"opengl_methods.bas");if(r)goto S_32934;} -S_32935:; +if(qbevent){evnt(26301,221,"opengl_methods.bas");if(r)goto S_34995;} +S_34996:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ -if(qbevent){evnt(25054,222,"opengl_methods.bas");if(r)goto S_32935;} +if(qbevent){evnt(26301,222,"opengl_methods.bas");if(r)goto S_34996;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3626; +if (new_error) goto skip3857; sub_file_print(tmp_fileno,qbs_new_txt_len("BYVAL ",6), 0 , 0 , 0 ); -if (new_error) goto skip3626; -skip3626: +if (new_error) goto skip3857; +skip3857: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,222,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,222,"opengl_methods.bas");}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3627; +if (new_error) goto skip3858; sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len(" AS ",4)),_SUB_GL_SCAN_HEADER_STRING_QB_TYPE), 0 , 0 , 0 ); -if (new_error) goto skip3627; -skip3627: +if (new_error) goto skip3858; +skip3858: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,223,"opengl_methods.bas");}while(r); -S_32939:; +if(!qbevent)break;evnt(26301,223,"opengl_methods.bas");}while(r); +S_35000:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(25054,224,"opengl_methods.bas");if(r)goto S_32939;} +if(qbevent){evnt(26301,224,"opengl_methods.bas");if(r)goto S_35000;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3628; +if (new_error) goto skip3859; sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0 , 0 , 0 ); -if (new_error) goto skip3628; -skip3628: +if (new_error) goto skip3859; +skip3859: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,224,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,224,"opengl_methods.bas");}while(r); } } -S_32943:; +S_35004:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ -if(qbevent){evnt(25054,227,"opengl_methods.bas");if(r)goto S_32943;} +if(qbevent){evnt(26301,227,"opengl_methods.bas");if(r)goto S_35004;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*_SUB_GL_SCAN_HEADER_LONG_TYP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,228,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,228,"opengl_methods.bas");}while(r); } -S_32946:; +S_35007:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 1 ))||new_error){ -if(qbevent){evnt(25054,230,"opengl_methods.bas");if(r)goto S_32946;} +if(qbevent){evnt(26301,230,"opengl_methods.bas");if(r)goto S_35007;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,231,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,231,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,232,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,232,"opengl_methods.bas");}while(r); } -S_32950:; +S_35011:; if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ -if(qbevent){evnt(25054,234,"opengl_methods.bas");if(r)goto S_32950;} +if(qbevent){evnt(26301,234,"opengl_methods.bas");if(r)goto S_35011;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,235,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,235,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,236,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,236,"opengl_methods.bas");}while(r); } do{ *(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))=*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))+ 1 ; -if(!qbevent)break;evnt(25054,243,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,243,"opengl_methods.bas");}while(r); do{ sub_mid(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132)),80,1),((*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))- 1 )* 4 )+( 1 ), 4 ,_SUB_GL_SCAN_HEADER_STRING_ARG,1); -if(!qbevent)break;evnt(25054,245,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,245,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_LETTER,func_chr( 96 +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,250,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,250,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("(",1)),_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP),qbs_new_txt_len(")",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,252,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,252,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,253,"opengl_methods.bas");}while(r); -S_32959:; +if(!qbevent)break;evnt(26301,253,"opengl_methods.bas");}while(r); +S_35020:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(25054,257,"opengl_methods.bas");if(r)goto S_32959;} +if(qbevent){evnt(26301,257,"opengl_methods.bas");if(r)goto S_35020;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,257,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,257,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len(",",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,257,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,257,"opengl_methods.bas");}while(r); } -S_32963:; -dl_continue_3621:; +S_35024:; +dl_continue_3852:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))&&(!new_error)); -dl_exit_3621:; -if(qbevent){evnt(25054,259,"opengl_methods.bas");if(r)goto S_32963;} +dl_exit_3852:; +if(qbevent){evnt(26301,259,"opengl_methods.bas");if(r)goto S_35024;} LABEL_NO_ARGUMENTS:; -if(qbevent){evnt(25054,260,"opengl_methods.bas");r=0;} +if(qbevent){evnt(26301,260,"opengl_methods.bas");r=0;} do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("){",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,263,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,263,"opengl_methods.bas");}while(r); do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(");",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,264,"opengl_methods.bas");}while(r); -S_32966:; +if(!qbevent)break;evnt(26301,264,"opengl_methods.bas");}while(r); +S_35027:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,265,"opengl_methods.bas");if(r)goto S_32966;} +if(qbevent){evnt(26301,265,"opengl_methods.bas");if(r)goto S_35027;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3629; +if (new_error) goto skip3860; sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0 , 0 , 1 ); -if (new_error) goto skip3629; -skip3629: +if (new_error) goto skip3860; +skip3860: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,265,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,265,"opengl_methods.bas");}while(r); } do{ qbs_set(_SUB_GL_SCAN_HEADER_STRING_H,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,__STRING_CRLF),qbs_new_txt_len("if (!sub_gl_called) error(270);",31)),__STRING_CRLF),_SUB_GL_SCAN_HEADER_STRING_HC),__STRING_CRLF),qbs_new_txt_len("}",1)),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,266,"opengl_methods.bas");}while(r); -S_32970:; +if(!qbevent)break;evnt(26301,266,"opengl_methods.bas");}while(r); +S_35031:; if ((*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION)||new_error){ -if(qbevent){evnt(25054,268,"opengl_methods.bas");if(r)goto S_32970;} +if(qbevent){evnt(26301,268,"opengl_methods.bas");if(r)goto S_35031;} do{ qbs_set(__STRING_GL_HELPER_CODE,qbs_add(__STRING_GL_HELPER_CODE,_SUB_GL_SCAN_HEADER_STRING_H)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,269,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,269,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),qbs_add(qbs_new_txt_len("call_",5),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,270,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,270,"opengl_methods.bas");}while(r); } -S_32974:; +S_35035:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,qbs_new_txt_len("glGetString",11))))||new_error){ -if(qbevent){evnt(25054,274,"opengl_methods.bas");if(r)goto S_32974;} +if(qbevent){evnt(26301,274,"opengl_methods.bas");if(r)goto S_35035;} do{ *(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(25054,275,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,275,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),qbs_add(qbs_new_txt_len("( char* )",11),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,276,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,276,"opengl_methods.bas");}while(r); } } } LABEL_DISCARD:; -if(qbevent){evnt(25054,290,"opengl_methods.bas");r=0;} -dl_continue_3602:; +if(qbevent){evnt(26301,290,"opengl_methods.bas");r=0;} +dl_continue_3833:; } -dl_exit_3602:; +dl_exit_3833:; do{ sub_close(*_SUB_GL_SCAN_HEADER_LONG_H,1); -if(!qbevent)break;evnt(25054,292,"opengl_methods.bas");}while(r); -S_32982:; +if(!qbevent)break;evnt(26301,292,"opengl_methods.bas");}while(r); +S_35043:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,294,"opengl_methods.bas");if(r)goto S_32982;} +if(qbevent){evnt(26301,294,"opengl_methods.bas");if(r)goto S_35043;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3630; +if (new_error) goto skip3861; sub_file_print(tmp_fileno,qbs_new_txt_len("END DECLARE",11), 0 , 0 , 1 ); -if (new_error) goto skip3630; -skip3630: +if (new_error) goto skip3861; +skip3861: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,294,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,294,"opengl_methods.bas");}while(r); } do{ *__LONG_GL_DEFINES_LAST=*_SUB_GL_SCAN_HEADER_LONG_D; -if(!qbevent)break;evnt(25054,296,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,296,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_GL_DEFINES[2]&2){ @@ -118546,7 +123553,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qb } } } -if(!qbevent)break;evnt(25054,297,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,297,"opengl_methods.bas");}while(r); do{ if (__ARRAY_UDT_GL_COMMANDS[2]&2){ @@ -118586,74 +123593,74 @@ if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257); } __ARRAY_UDT_GL_COMMANDS[2]|=1; } -if(!qbevent)break;evnt(25054,300,"opengl_methods.bas");}while(r); -S_32988:; +if(!qbevent)break;evnt(26301,300,"opengl_methods.bas");}while(r); +S_35049:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,303,"opengl_methods.bas");if(r)goto S_32988;} -S_32989:; -fornext_value3632= 1 ; -fornext_finalvalue3632=*__LONG_GL_DEFINES_LAST; -fornext_step3632= 1 ; -if (fornext_step3632<0) fornext_step_negative3632=1; else fornext_step_negative3632=0; -if (new_error) goto fornext_error3632; -goto fornext_entrylabel3632; +if(qbevent){evnt(26301,303,"opengl_methods.bas");if(r)goto S_35049;} +S_35050:; +fornext_value3863= 1 ; +fornext_finalvalue3863=*__LONG_GL_DEFINES_LAST; +fornext_step3863= 1 ; +if (fornext_step3863<0) fornext_step_negative3863=1; else fornext_step_negative3863=0; +if (new_error) goto fornext_error3863; +goto fornext_entrylabel3863; while(1){ -fornext_value3632=fornext_step3632+(*_SUB_GL_SCAN_HEADER_LONG_I); -fornext_entrylabel3632: -*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3632; -if (fornext_step_negative3632){ -if (fornext_value3632fornext_finalvalue3632) break; +if (fornext_value3863>fornext_finalvalue3863) break; } -fornext_error3632:; -if(qbevent){evnt(25054,304,"opengl_methods.bas");if(r)goto S_32989;} +fornext_error3863:; +if(qbevent){evnt(26301,304,"opengl_methods.bas");if(r)goto S_35050;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3633; +if (new_error) goto skip3864; sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("CONST ",6),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))),qbs_new_txt_len("=",1)), 0 , 0 , 0 ); -if (new_error) goto skip3633; +if (new_error) goto skip3864; sub_file_print(tmp_fileno,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])])), 1 , 0 , 1 ); -if (new_error) goto skip3633; -skip3633: +if (new_error) goto skip3864; +skip3864: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,305,"opengl_methods.bas");}while(r); -fornext_continue_3631:; +if(!qbevent)break;evnt(26301,305,"opengl_methods.bas");}while(r); +fornext_continue_3862:; } -fornext_exit_3631:; +fornext_exit_3862:; } -S_32993:; +S_35054:; if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(25054,320,"opengl_methods.bas");if(r)goto S_32993;} +if(qbevent){evnt(26301,320,"opengl_methods.bas");if(r)goto S_35054;} do{ sub_close(*_SUB_GL_SCAN_HEADER_LONG_HK,1); -if(!qbevent)break;evnt(25054,320,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,320,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_SCAN_HEADER_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25054,323,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,323,"opengl_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_helper_code.h",65), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,324,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,324,"opengl_methods.bas");}while(r); do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_FH; -if (new_error) goto skip3634; +if (new_error) goto skip3865; sub_file_print(tmp_fileno,__STRING_GL_HELPER_CODE, 0 , 0 , 1 ); -if (new_error) goto skip3634; -skip3634: +if (new_error) goto skip3865; +skip3865: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25054,325,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,325,"opengl_methods.bas");}while(r); do{ sub_close(*_SUB_GL_SCAN_HEADER_LONG_FH,1); -if(!qbevent)break;evnt(25054,326,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,326,"opengl_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free113.txt" +#include "free118.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -118664,48 +123671,39 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data114.txt" +#include "data119.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_33000:; -fornext_value3636= 1 ; -fornext_finalvalue3636=*__LONG_GL_DEFINES_LAST; -fornext_step3636= 1 ; -if (fornext_step3636<0) fornext_step_negative3636=1; else fornext_step_negative3636=0; -if (new_error) goto fornext_error3636; -goto fornext_entrylabel3636; +S_35061:; +fornext_value3867= 1 ; +fornext_finalvalue3867=*__LONG_GL_DEFINES_LAST; +fornext_step3867= 1 ; +if (fornext_step3867<0) fornext_step_negative3867=1; else fornext_step_negative3867=0; +if (new_error) goto fornext_error3867; +goto fornext_entrylabel3867; while(1){ -fornext_value3636=fornext_step3636+(*_SUB_GL_INCLUDE_CONTENT_LONG_D); -fornext_entrylabel3636: -*_SUB_GL_INCLUDE_CONTENT_LONG_D=fornext_value3636; -if (fornext_step_negative3636){ -if (fornext_value3636fornext_finalvalue3636) break; -} -fornext_error3636:; -if(qbevent){evnt(25054,334,"opengl_methods.bas");if(r)goto S_33000;} -S_33001:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))!= 95 )))||new_error){ -if(qbevent){evnt(25054,335,"opengl_methods.bas");if(r)goto S_33001;} -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),qbs_add(qbs_new_txt_len("_",1),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,336,"opengl_methods.bas");}while(r); +if (fornext_value3867>fornext_finalvalue3867) break; } +fornext_error3867:; +if(qbevent){evnt(26301,334,"opengl_methods.bas");if(r)goto S_35061;} do{ *__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; -if(!qbevent)break;evnt(25054,338,"opengl_methods.bas");}while(r); -S_33005:; +if(!qbevent)break;evnt(26301,338,"opengl_methods.bas");}while(r); +S_35063:; if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ -if(qbevent){evnt(25054,339,"opengl_methods.bas");if(r)goto S_33005;} +if(qbevent){evnt(26301,339,"opengl_methods.bas");if(r)goto S_35063;} do{ *__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; -if(!qbevent)break;evnt(25054,340,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,340,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ @@ -118750,7 +123748,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs } } } -if(!qbevent)break;evnt(25054,341,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,341,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ @@ -118795,7 +123793,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qb } } } -if(!qbevent)break;evnt(25054,342,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,342,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ @@ -118840,7 +123838,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint } } } -if(!qbevent)break;evnt(25054,343,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,343,"opengl_methods.bas");}while(r); do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ @@ -118880,7 +123878,7 @@ if (!__ARRAY_LONG_CONSTTYPE[0]) error(257); } __ARRAY_LONG_CONSTTYPE[2]|=1; } -if(!qbevent)break;evnt(25054,344,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,344,"opengl_methods.bas");}while(r); do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ @@ -118920,7 +123918,7 @@ if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; } -if(!qbevent)break;evnt(25054,345,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,345,"opengl_methods.bas");}while(r); do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ @@ -118960,7 +123958,7 @@ if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; } -if(!qbevent)break;evnt(25054,346,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,346,"opengl_methods.bas");}while(r); do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ @@ -119000,7 +123998,7 @@ if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257); } __ARRAY_FLOAT_CONSTFLOAT[2]|=1; } -if(!qbevent)break;evnt(25054,347,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,347,"opengl_methods.bas");}while(r); do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ @@ -119045,7 +124043,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)q } } } -if(!qbevent)break;evnt(25054,348,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,348,"opengl_methods.bas");}while(r); do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ @@ -119085,7 +124083,7 @@ if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257); } __ARRAY_LONG_CONSTSUBFUNC[2]|=1; } -if(!qbevent)break;evnt(25054,349,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,349,"opengl_methods.bas");}while(r); do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ @@ -119125,592 +124123,159 @@ if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257); } __ARRAY_LONG_CONSTDEFINED[2]|=1; } -if(!qbevent)break;evnt(25054,350,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,350,"opengl_methods.bas");}while(r); } do{ *_SUB_GL_INCLUDE_CONTENT_LONG_I=*__LONG_CONSTLAST; -if(!qbevent)break;evnt(25054,352,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,352,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_add(__STRING_QB64PREFIX,((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,353,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,353,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),qbs_add(__STRING_QB64PREFIX,((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,354,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,354,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),qbs_new_txt_len("&&",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,355,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,355,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(25054,356,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,356,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]); if (!new_error) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])]; -if(!qbevent)break;evnt(25054,357,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,357,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(25054,358,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,358,"opengl_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(25054,359,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,359,"opengl_methods.bas");}while(r); do{ -SUB_HASHADD(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),&(pass3637= 1024 ),_SUB_GL_INCLUDE_CONTENT_LONG_I); +SUB_HASHADD(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),&(pass3868= 1024 ),_SUB_GL_INCLUDE_CONTENT_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,361,"opengl_methods.bas");}while(r); -fornext_continue_3635:; +if(!qbevent)break;evnt(26301,361,"opengl_methods.bas");}while(r); +fornext_continue_3866:; } -fornext_exit_3635:; -S_33028:; -fornext_value3639= 1 ; -fornext_finalvalue3639=*__LONG_GL_COMMANDS_LAST; -fornext_step3639= 1 ; -if (fornext_step3639<0) fornext_step_negative3639=1; else fornext_step_negative3639=0; -if (new_error) goto fornext_error3639; -goto fornext_entrylabel3639; +fornext_exit_3866:; +S_35086:; +fornext_value3870= 1 ; +fornext_finalvalue3870=*__LONG_GL_COMMANDS_LAST; +fornext_step3870= 1 ; +if (fornext_step3870<0) fornext_step_negative3870=1; else fornext_step_negative3870=0; +if (new_error) goto fornext_error3870; +goto fornext_entrylabel3870; while(1){ -fornext_value3639=fornext_step3639+(*_SUB_GL_INCLUDE_CONTENT_LONG_C); -fornext_entrylabel3639: -*_SUB_GL_INCLUDE_CONTENT_LONG_C=fornext_value3639; -if (fornext_step_negative3639){ -if (fornext_value3639fornext_finalvalue3639) break; +if (fornext_value3870>fornext_finalvalue3870) break; } -fornext_error3639:; -if(qbevent){evnt(25054,366,"opengl_methods.bas");if(r)goto S_33028;} +fornext_error3870:; +if(qbevent){evnt(26301,366,"opengl_methods.bas");if(r)goto S_35086;} do{ -if(!qbevent)break;evnt(25054,367,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,367,"opengl_methods.bas");}while(r); do{ memcpy(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)+ 0,((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216)+ 0, 216); -if(!qbevent)break;evnt(25054,376,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,376,"opengl_methods.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(25054,378,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,378,"opengl_methods.bas");}while(r); do{ SUB_CLEARID(); -if(!qbevent)break;evnt(25054,379,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,379,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(806))= 1 ; -if(!qbevent)break;evnt(25054,380,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,380,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)),64,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,381,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,381,"opengl_methods.bas");}while(r); +S_35093:; +if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ +if(qbevent){evnt(26301,382,"opengl_methods.bas");if(r)goto S_35093;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)),64,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26301,382,"opengl_methods.bas");}while(r); +} do{ *_SUB_GL_INCLUDE_CONTENT_LONG_S=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(64)); -if(!qbevent)break;evnt(25054,382,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,383,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))=*_SUB_GL_INCLUDE_CONTENT_LONG_S; -if(!qbevent)break;evnt(25054,383,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,384,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(66)),64,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,384,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,385,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(130)); -if(!qbevent)break;evnt(25054,385,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,386,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(132)),80,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,386,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,387,"opengl_methods.bas");}while(r); do{ *(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(212)); -if(!qbevent)break;evnt(25054,387,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,388,"opengl_methods.bas");}while(r); do{ SUB_REGID(); -if(!qbevent)break;evnt(25054,388,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,389,"opengl_methods.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(25054,389,"opengl_methods.bas");}while(r); -fornext_continue_3638:; +if(!qbevent)break;evnt(26301,390,"opengl_methods.bas");}while(r); +fornext_continue_3869:; } -fornext_exit_3638:; +fornext_exit_3869:; do{ *__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(25054,395,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,396,"opengl_methods.bas");}while(r); do{ SUB_CLEARID(); -if(!qbevent)break;evnt(25054,396,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,397,"opengl_methods.bas");}while(r); do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_gluPerspective",15)); +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("gluPerspective",14))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,397,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,398,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(25054,398,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,399,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("gluPerspective",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,399,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,400,"opengl_methods.bas");}while(r); do{ *(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(25054,400,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,401,"opengl_methods.bas");}while(r); do{ qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25054,401,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,402,"opengl_methods.bas");}while(r); do{ SUB_REGID(); -if(!qbevent)break;evnt(25054,402,"opengl_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,403,"opengl_methods.bas");}while(r); do{ *__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(25054,403,"opengl_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free114.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_ARYADDSTR(ptrszint*_SUB_ARYADDSTR_ARRAY_STRING_ARY,qbs*_SUB_ARYADDSTR_STRING_VALUE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data115.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_33053:; -if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_ARYADDSTR_ARRAY_STRING_ARY[0]))[array_check(( 0 )-_SUB_ARYADDSTR_ARRAY_STRING_ARY[4],_SUB_ARYADDSTR_ARRAY_STRING_ARY[5])]))->len== 0 )))||new_error){ -if(qbevent){evnt(25062,2,"android_methods.bas");if(r)goto S_33053;} -do{ -tmp_long=array_check(( 0 )-_SUB_ARYADDSTR_ARRAY_STRING_ARY[4],_SUB_ARYADDSTR_ARRAY_STRING_ARY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_ARYADDSTR_ARRAY_STRING_ARY[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,2,"android_methods.bas");}while(r); -} -do{ -*_SUB_ARYADDSTR_LONG_INDEX=qbr(func_val(((qbs*)(((uint64*)(_SUB_ARYADDSTR_ARRAY_STRING_ARY[0]))[array_check(( 0 )-_SUB_ARYADDSTR_ARRAY_STRING_ARY[4],_SUB_ARYADDSTR_ARRAY_STRING_ARY[5])])))+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,3,"android_methods.bas");}while(r); -do{ -*_SUB_ARYADDSTR_LONG_LASTINDEX=func_ubound(_SUB_ARYADDSTR_ARRAY_STRING_ARY,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,4,"android_methods.bas");}while(r); -S_33058:; -if ((-(*_SUB_ARYADDSTR_LONG_INDEX>*_SUB_ARYADDSTR_LONG_LASTINDEX))||new_error){ -if(qbevent){evnt(25062,5,"android_methods.bas");if(r)goto S_33058;} -do{ -*_SUB_ARYADDSTR_LONG_LASTINDEX=*_SUB_ARYADDSTR_LONG_INDEX* 2 ; -if(!qbevent)break;evnt(25062,6,"android_methods.bas");}while(r); -do{ - -if (_SUB_ARYADDSTR_ARRAY_STRING_ARY[2]&2){ -error(10); -}else{ -((mem_lock*)((ptrszint*)_SUB_ARYADDSTR_ARRAY_STRING_ARY)[8])->id=(++mem_lock_id); -static int32 preserved_elements; -if (_SUB_ARYADDSTR_ARRAY_STRING_ARY[2]&1){ -preserved_elements=_SUB_ARYADDSTR_ARRAY_STRING_ARY[5]; -} -else preserved_elements=0; -_SUB_ARYADDSTR_ARRAY_STRING_ARY[4]= 0 ; -_SUB_ARYADDSTR_ARRAY_STRING_ARY[5]=(*_SUB_ARYADDSTR_LONG_LASTINDEX)-_SUB_ARYADDSTR_ARRAY_STRING_ARY[4]+1; -_SUB_ARYADDSTR_ARRAY_STRING_ARY[6]=1; -if (preserved_elements){ -static ptrszint tmp_long2; -tmp_long2=_SUB_ARYADDSTR_ARRAY_STRING_ARY[5]; -if (tmp_long2=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_ARYLASTSTR(ptrszint*_FUNC_ARYLASTSTR_ARRAY_STRING_ARY){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data116.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_33065:; -if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[0]))[array_check(( 0 )-_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[4],_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[5])]))->len== 0 )))||new_error){ -if(qbevent){evnt(25062,15,"android_methods.bas");if(r)goto S_33065;} -do{ -tmp_long=array_check(( 0 )-_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[4],_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,15,"android_methods.bas");}while(r); -} -do{ -*_FUNC_ARYLASTSTR_LONG_ARYLASTSTR=qbr(func_val(((qbs*)(((uint64*)(_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[0]))[array_check(( 0 )-_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[4],_FUNC_ARYLASTSTR_ARRAY_STRING_ARY[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,16,"android_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free116.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ARYLASTSTR_LONG_ARYLASTSTR; -} -void SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE,qbs*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND,qbs*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data117.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,20,"android_methods.bas");}while(r); -do{ -sub_open(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE, 2 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,21,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,func_space(func_lof(*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,22,"android_methods.bas");}while(r); -do{ -sub_get2(*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH,NULL,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,23,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_STARTI= 1 ; -if(!qbevent)break;evnt(25062,24,"android_methods.bas");}while(r); -S_33074:; -while((qbs_cleanup(qbs_tmp_base,-(func_instr(*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_STARTI,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND,1)> 0 )))||new_error){ -if(qbevent){evnt(25062,25,"android_methods.bas");if(r)goto S_33074;} -do{ -*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_I=func_instr(*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_STARTI,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,26,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_I- 1 ),_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH),qbs_right(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A->len-*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_I-_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND->len+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,27,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_STARTI=*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_I+_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,28,"android_methods.bas");}while(r); -dl_continue_3646:; -} -dl_exit_3646:; -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,30,"android_methods.bas");}while(r); -do{ -sub_kill(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,31,"android_methods.bas");}while(r); -do{ -sub_open(_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE, 2 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,32,"android_methods.bas");}while(r); -do{ -sub_put2( 1 ,NULL,byte_element((uint64)_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A->chr,_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_A->len,byte_element_3650),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,33,"android_methods.bas");}while(r); -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,34,"android_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free117.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME(qbs*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A,int32*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_METHOD){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data118.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,38,"android_methods.bas");}while(r); -S_33085:; -fornext_value3653= 1 ; -fornext_finalvalue3653=_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A->len; -fornext_step3653= 1 ; -if (fornext_step3653<0) fornext_step_negative3653=1; else fornext_step_negative3653=0; -if (new_error) goto fornext_error3653; -goto fornext_entrylabel3653; -while(1){ -fornext_value3653=fornext_step3653+(*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I); -fornext_entrylabel3653: -*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I=fornext_value3653; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3653){ -if (fornext_value3653fornext_finalvalue3653) break; -} -fornext_error3653:; -if(qbevent){evnt(25062,39,"android_methods.bas");if(r)goto S_33085;} -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C,func_chr(qbs_asc(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A,*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,40,"android_methods.bas");}while(r); -S_33087:; -if ((-(*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_METHOD!= 2 ))||new_error){ -if(qbevent){evnt(25062,41,"android_methods.bas");if(r)goto S_33087;} -S_33088:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25062,42,"android_methods.bas");if(r)goto S_33088;} -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C,qbs_new_txt_len("\\:",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,42,"android_methods.bas");}while(r); -} -} -S_33092:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(25062,44,"android_methods.bas");if(r)goto S_33092;} -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C,qbs_new_txt_len("\\\\",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,44,"android_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2,qbs_add(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2,_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,45,"android_methods.bas");}while(r); -fornext_continue_3652:; -} -fornext_exit_3652:; -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_CREATEANDROIDPROJECT_ESCAPEFILENAME,_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,47,"android_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free118.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_CREATEANDROIDPROJECT_ESCAPEFILENAME);return _FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_CREATEANDROIDPROJECT_ESCAPEFILENAME; -} -qbs* FUNC_CREATEANDROIDPROJECT_FINDFILE(qbs*_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data119.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,51,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("programs\\android\\template\\located_files.txt",43), 2 ,NULL,NULL,*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,52,"android_methods.bas");}while(r); -do{ -sub_close(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,52,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("programs\\android\\template\\located_files.txt",43), 3 ,NULL,NULL,*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,53,"android_methods.bas");}while(r); -S_33102:; -while((!(func_eof(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH)))||new_error){ -if(qbevent){evnt(25062,54,"android_methods.bas");if(r)goto S_33102;} -do{ -tmp_fileno=*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH; -if (new_error) goto skip3657; -sub_file_line_input_string(tmp_fileno,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2); -if (new_error) goto skip3657; -skip3657: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,55,"android_methods.bas");}while(r); -S_33104:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE->len),_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE)))||new_error){ -if(qbevent){evnt(25062,56,"android_methods.bas");if(r)goto S_33104;} -S_33105:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2)))||new_error){ -if(qbevent){evnt(25062,57,"android_methods.bas");if(r)goto S_33105;} -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_CREATEANDROIDPROJECT_FINDFILE,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,58,"android_methods.bas");}while(r); -do{ -sub_close(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,59,"android_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25062,60,"android_methods.bas");}while(r); -} -} -dl_continue_3656:; -} -dl_exit_3656:; -do{ -sub_close(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,64,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c dir /s /b ",17),func_chr( 34 )),qbs_new_txt_len("c:\\",3)),_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE),func_chr( 34 )),qbs_new_txt_len(" >internal\\temp\\files.txt",25)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,65,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\files.txt",23), 3 ,NULL,NULL,*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,66,"android_methods.bas");}while(r); -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,67,"android_methods.bas");}while(r); -S_33116:; -if ((~(func_eof(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH)))||new_error){ -if(qbevent){evnt(25062,68,"android_methods.bas");if(r)goto S_33116;} -do{ -tmp_fileno=*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH; -if (new_error) goto skip3659; -sub_file_line_input_string(tmp_fileno,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A); -if (new_error) goto skip3659; -skip3659: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,69,"android_methods.bas");}while(r); -} -do{ -sub_close(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,71,"android_methods.bas");}while(r); -S_33120:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,72,"android_methods.bas");if(r)goto S_33120;} -do{ -*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_INLOCATEDFILES= 0 ; -if(!qbevent)break;evnt(25062,73,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("programs\\android\\template\\located_files.txt",43), 3 ,NULL,NULL,*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,74,"android_methods.bas");}while(r); -S_33123:; -while((!(func_eof(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH)))||new_error){ -if(qbevent){evnt(25062,75,"android_methods.bas");if(r)goto S_33123;} -do{ -tmp_fileno=*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH; -if (new_error) goto skip3661; -sub_file_line_input_string(tmp_fileno,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2); -if (new_error) goto skip3661; -skip3661: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,76,"android_methods.bas");}while(r); -S_33125:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A2,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A)))||new_error){ -if(qbevent){evnt(25062,77,"android_methods.bas");if(r)goto S_33125;} -do{ -*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_INLOCATEDFILES= 1 ; -if(!qbevent)break;evnt(25062,78,"android_methods.bas");}while(r); -} -dl_continue_3660:; -} -dl_exit_3660:; -do{ -sub_close(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,81,"android_methods.bas");}while(r); -S_33130:; -if ((-(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_INLOCATEDFILES== 0 ))||new_error){ -if(qbevent){evnt(25062,82,"android_methods.bas");if(r)goto S_33130;} -do{ -sub_open(qbs_new_txt_len("programs\\android\\template\\located_files.txt",43), 5 ,NULL,NULL,*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,83,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH; -if (new_error) goto skip3662; -sub_file_print(tmp_fileno,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A, 0 , 0 , 1 ); -if (new_error) goto skip3662; -skip3662: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,84,"android_methods.bas");}while(r); -do{ -sub_close(*_FUNC_CREATEANDROIDPROJECT_FINDFILE_LONG_FH,1); -if(!qbevent)break;evnt(25062,85,"android_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_CREATEANDROIDPROJECT_FINDFILE,_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,88,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26301,404,"opengl_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free119.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_CREATEANDROIDPROJECT_FINDFILE);return _FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_CREATEANDROIDPROJECT_FINDFILE; } -qbs* FUNC_CREATEANDROIDPROJECT_GETNDKPATH(){ +void SUB_INICOMMIT(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -119724,78 +124289,72 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Locating NDK in filesystem (this could take a while the first time)",67)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,93,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,5,"ini.bm");}while(r); do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,FUNC_CREATEANDROIDPROJECT_FINDFILE(qbs_new_txt_len("ndk-build",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,94,"android_methods.bas");}while(r); -S_33139:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,95,"android_methods.bas");if(r)goto S_33139;} +if(!qbevent)break;evnt(26302,6,"ini.bm");}while(r); +S_35116:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26302,8,"ini.bm");if(r)goto S_35116;} do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_add(qbs_add(qbs_new_txt_len("NDK located at '",16),_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,96,"android_methods.bas");}while(r); +*__LONG_INICODE= 18 ; +if(!qbevent)break;evnt(26302,8,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,8,"ini.bm");}while(r); } -S_33142:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,98,"android_methods.bas");if(r)goto S_33142;} do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("NDK not found. Assuming 'c:\\ndk\\ndk-build'",42)); +qbs_set(__STRING_INIWHOLEFILE,__STRING_ININEWFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,99,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,10,"ini.bm");}while(r); do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,qbs_new_txt_len("c:\\ndk\\ndk-build",16)); +*__ULONG_CURRENTINIFILELOF=__STRING_ININEWFILE->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,100,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,11,"ini.bm");}while(r); +S_35122:; +if ((~(*__LONG_INIDISABLEAUTOCOMMIT))||new_error){ +if(qbevent){evnt(26302,13,"ini.bm");if(r)goto S_35122;} +do{ +if(!qbevent)break;evnt(26302,14,"ini.bm");}while(r); +do{ +*_SUB_INICOMMIT_INTEGER_FILENUM=func_freefile(); +if(!qbevent)break;evnt(26302,16,"ini.bm");}while(r); +do{ +sub_open(__STRING_CURRENTINIFILENAME, 2 ,NULL,NULL,*_SUB_INICOMMIT_INTEGER_FILENUM,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,17,"ini.bm");}while(r); +S_35126:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_INIWHOLEFILE->lenlen; -fornext_finalvalue3664= 1 ; -fornext_step3664= -1 ; -if (fornext_step3664<0) fornext_step_negative3664=1; else fornext_step_negative3664=0; -if (new_error) goto fornext_error3664; -goto fornext_entrylabel3664; -while(1){ -fornext_value3664=fornext_step3664+(*_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_LONG_I); -fornext_entrylabel3664: -*_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_LONG_I=fornext_value3664; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3664){ -if (fornext_value3664fornext_finalvalue3664) break; -} -fornext_error3664:; -if(qbevent){evnt(25062,102,"android_methods.bas");if(r)goto S_33146;} -S_33147:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,*_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_LONG_I)== 92 )))||new_error){ -if(qbevent){evnt(25062,103,"android_methods.bas");if(r)goto S_33147;} do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,qbs_left(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE,*_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_LONG_I- 1 )); +sub_put2(*_SUB_INICOMMIT_INTEGER_FILENUM, 1 ,byte_element((uint64)__STRING_ININEWFILE->chr,__STRING_ININEWFILE->len,byte_element_3873),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,104,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,25,"ini.bm");}while(r); do{ -goto fornext_exit_3663; -if(!qbevent)break;evnt(25062,105,"android_methods.bas");}while(r); +sub_close(*_SUB_INICOMMIT_INTEGER_FILENUM,1); +if(!qbevent)break;evnt(26302,26,"ini.bm");}while(r); } -fornext_continue_3663:; -} -fornext_exit_3663:; -do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_CREATEANDROIDPROJECT_GETNDKPATH,_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_THISFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,108,"android_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free120.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_CREATEANDROIDPROJECT_GETNDKPATH);return _FUNC_CREATEANDROIDPROJECT_GETNDKPATH_STRING_CREATEANDROIDPROJECT_GETNDKPATH; } -qbs* FUNC_CREATEANDROIDPROJECT_GETSDKPATH(){ +qbs* FUNC_INIGETSECTION(qbs*_FUNC_INIGETSECTION_STRING___SECTION){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -119809,78 +124368,307 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Locating SDK in filesystem (this could take a while the first time)",67)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,112,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,31,"ini.bm");}while(r); do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,FUNC_CREATEANDROIDPROJECT_FINDFILE(qbs_new_txt_len("AVD Manager.exe",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,113,"android_methods.bas");}while(r); -S_33155:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,114,"android_methods.bas");if(r)goto S_33155;} +if(!qbevent)break;evnt(26302,32,"ini.bm");}while(r); +S_35137:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26302,34,"ini.bm");if(r)goto S_35137;} do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_add(qbs_add(qbs_new_txt_len("SDK located at '",16),_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,115,"android_methods.bas");}while(r); +*__LONG_INICODE= 18 ; +if(!qbevent)break;evnt(26302,34,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,34,"ini.bm");}while(r); } -S_33158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,117,"android_methods.bas");if(r)goto S_33158;} +S_35141:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||new_error){ +if(qbevent){evnt(26302,35,"ini.bm");if(r)goto S_35141;} do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("SDK not found. Assuming '%appdata%\\..\\local\\android\\sdk\\AVD Manager.exe'",72)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,118,"android_methods.bas");}while(r); +*__LONG_INICODE= 17 ; +if(!qbevent)break;evnt(26302,35,"ini.bm");}while(r); do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,qbs_new_txt_len("%appdata%\\..\\local\\android\\sdk\\AVD Manager.exe",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,119,"android_methods.bas");}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(26302,35,"ini.bm");}while(r); } -S_33162:; -fornext_value3667=_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE->len; -fornext_finalvalue3667= 1 ; -fornext_step3667= -1 ; -if (fornext_step3667<0) fornext_step_negative3667=1; else fornext_step_negative3667=0; -if (new_error) goto fornext_error3667; -goto fornext_entrylabel3667; +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26302,37,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,39,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,40,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,41,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_INIGETSECTION_STRING___SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,43,"ini.bm");}while(r); +S_35150:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26302,44,"ini.bm");if(r)goto S_35150;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,44,"ini.bm");}while(r); +} +S_35153:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_INIGETSECTION_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ +if(qbevent){evnt(26302,46,"ini.bm");if(r)goto S_35153;} +do{ +*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=func_instr(NULL,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,48,"ini.bm");}while(r); +S_35155:; +if ((-(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART== 0 ))||new_error){ +if(qbevent){evnt(26302,49,"ini.bm");if(r)goto S_35155;} +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,__STRING_INIWHOLEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,49,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,49,"ini.bm");}while(r); +} +S_35159:; +fornext_value3876=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART- 1 ; +fornext_finalvalue3876= 1 ; +fornext_step3876= -1 ; +if (fornext_step3876<0) fornext_step_negative3876=1; else fornext_step_negative3876=0; +if (new_error) goto fornext_error3876; +goto fornext_entrylabel3876; while(1){ -fornext_value3667=fornext_step3667+(*_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_LONG_I); -fornext_entrylabel3667: -*_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_LONG_I=fornext_value3667; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3667){ -if (fornext_value3667fornext_finalvalue3667) break; +if (fornext_value3876>fornext_finalvalue3876) break; } -fornext_error3667:; -if(qbevent){evnt(25062,121,"android_methods.bas");if(r)goto S_33162;} -S_33163:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,*_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_LONG_I)== 92 )))||new_error){ -if(qbevent){evnt(25062,122,"android_methods.bas");if(r)goto S_33163;} +fornext_error3876:; +if(qbevent){evnt(26302,51,"ini.bm");if(r)goto S_35159;} +S_35160:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,52,"ini.bm");if(r)goto S_35160;} do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,qbs_left(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE,*_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_LONG_I- 1 )); +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 ; +if(!qbevent)break;evnt(26302,52,"ini.bm");}while(r); +do{ +goto fornext_exit_3875; +if(!qbevent)break;evnt(26302,52,"ini.bm");}while(r); +} +S_35164:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)!= 32 )))||new_error){ +if(qbevent){evnt(26302,53,"ini.bm");if(r)goto S_35164;} +do{ +goto fornext_exit_3875; +if(!qbevent)break;evnt(26302,53,"ini.bm");}while(r); +} +fornext_continue_3875:; +} +fornext_exit_3875:; +S_35168:; +if ((-(*_FUNC_INIGETSECTION_ULONG_I== 0 ))||new_error){ +if(qbevent){evnt(26302,56,"ini.bm");if(r)goto S_35168;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 1 ; +if(!qbevent)break;evnt(26302,56,"ini.bm");}while(r); +} +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,qbs_left(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,123,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,58,"ini.bm");}while(r); +}else{ +S_35173:; do{ -goto fornext_exit_3666; -if(!qbevent)break;evnt(25062,124,"android_methods.bas");}while(r); -} -fornext_continue_3666:; -} -fornext_exit_3666:; +if(qbevent){evnt(26302,60,"ini.bm");if(r)goto S_35173;} do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_CREATEANDROIDPROJECT_GETSDKPATH,_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_THISFILE); +*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=func_instr(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART+ 1 ,qbs_lcase(__STRING_INIWHOLEFILE),qbs_lcase(_FUNC_INIGETSECTION_STRING_SECTION),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,127,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,61,"ini.bm");}while(r); +S_35175:; +if ((-(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART== 0 ))||new_error){ +if(qbevent){evnt(26302,62,"ini.bm");if(r)goto S_35175;} +do{ +*__LONG_INICODE= 14 ; +if(!qbevent)break;evnt(26302,62,"ini.bm");}while(r); +do{ +goto dl_exit_3877; +if(!qbevent)break;evnt(26302,62,"ini.bm");}while(r); +} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 0 ; +if(!qbevent)break;evnt(26302,65,"ini.bm");}while(r); +S_35180:; +fornext_value3879=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART- 1 ; +fornext_finalvalue3879= 1 ; +fornext_step3879= -1 ; +if (fornext_step3879<0) fornext_step_negative3879=1; else fornext_step_negative3879=0; +if (new_error) goto fornext_error3879; +goto fornext_entrylabel3879; +while(1){ +fornext_value3879=fornext_step3879+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3879: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3879; +if (fornext_step_negative3879){ +if (fornext_value3879fornext_finalvalue3879) break; +} +fornext_error3879:; +if(qbevent){evnt(26302,66,"ini.bm");if(r)goto S_35180;} +S_35181:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,67,"ini.bm");if(r)goto S_35181;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 ; +if(!qbevent)break;evnt(26302,67,"ini.bm");}while(r); +do{ +goto fornext_exit_3878; +if(!qbevent)break;evnt(26302,67,"ini.bm");}while(r); +} +S_35185:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)!= 32 )))||new_error){ +if(qbevent){evnt(26302,68,"ini.bm");if(r)goto S_35185;} +do{ +goto fornext_exit_3878; +if(!qbevent)break;evnt(26302,68,"ini.bm");}while(r); +} +fornext_continue_3878:; +} +fornext_exit_3878:; +S_35189:; +if ((-(*_FUNC_INIGETSECTION_ULONG_I== 0 ))||new_error){ +if(qbevent){evnt(26302,71,"ini.bm");if(r)goto S_35189;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 1 ; +if(!qbevent)break;evnt(26302,71,"ini.bm");}while(r); +} +S_35192:; +if ((-(*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION> 0 ))||new_error){ +if(qbevent){evnt(26302,73,"ini.bm");if(r)goto S_35192;} +do{ +*_FUNC_INIGETSECTION_ULONG_BRACKET1=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART; +if(!qbevent)break;evnt(26302,76,"ini.bm");}while(r); +LABEL_CHECKAGAIN:; +if(qbevent){evnt(26302,77,"ini.bm");r=0;} +do{ +*_FUNC_INIGETSECTION_ULONG_BRACKET1=func_instr(*_FUNC_INIGETSECTION_ULONG_BRACKET1+ 1 ,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,78,"ini.bm");}while(r); +S_35195:; +if ((-(*_FUNC_INIGETSECTION_ULONG_BRACKET1> 0 ))||new_error){ +if(qbevent){evnt(26302,80,"ini.bm");if(r)goto S_35195;} +do{ +*_FUNC_INIGETSECTION_BYTE_INQUOTE= 0 ; +if(!qbevent)break;evnt(26302,82,"ini.bm");}while(r); +S_35197:; +fornext_value3881= 1 ; +fornext_finalvalue3881=*_FUNC_INIGETSECTION_ULONG_BRACKET1- 1 ; +fornext_step3881= 1 ; +if (fornext_step3881<0) fornext_step_negative3881=1; else fornext_step_negative3881=0; +if (new_error) goto fornext_error3881; +goto fornext_entrylabel3881; +while(1){ +fornext_value3881=fornext_step3881+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3881: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3881; +if (fornext_step_negative3881){ +if (fornext_value3881fornext_finalvalue3881) break; +} +fornext_error3881:; +if(qbevent){evnt(26302,83,"ini.bm");if(r)goto S_35197;} +S_35198:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 34 )))||new_error){ +if(qbevent){evnt(26302,84,"ini.bm");if(r)goto S_35198;} +do{ +*_FUNC_INIGETSECTION_BYTE_INQUOTE=~(*_FUNC_INIGETSECTION_BYTE_INQUOTE); +if(!qbevent)break;evnt(26302,84,"ini.bm");}while(r); +} +fornext_continue_3880:; +} +fornext_exit_3880:; +S_35202:; +if ((*_FUNC_INIGETSECTION_BYTE_INQUOTE)||new_error){ +if(qbevent){evnt(26302,86,"ini.bm");if(r)goto S_35202;} +do{ +goto LABEL_CHECKAGAIN; +if(!qbevent)break;evnt(26302,86,"ini.bm");}while(r); +} +S_35205:; +fornext_value3883=*_FUNC_INIGETSECTION_ULONG_BRACKET1- 1 ; +fornext_finalvalue3883= 1 ; +fornext_step3883= -1 ; +if (fornext_step3883<0) fornext_step_negative3883=1; else fornext_step_negative3883=0; +if (new_error) goto fornext_error3883; +goto fornext_entrylabel3883; +while(1){ +fornext_value3883=fornext_step3883+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3883: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3883; +if (fornext_step_negative3883){ +if (fornext_value3883fornext_finalvalue3883) break; +} +fornext_error3883:; +if(qbevent){evnt(26302,88,"ini.bm");if(r)goto S_35205;} +S_35206:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,89,"ini.bm");if(r)goto S_35206;} +do{ +*_FUNC_INIGETSECTION_ULONG_ENDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 -__STRING_INILF->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,89,"ini.bm");}while(r); +do{ +goto fornext_exit_3882; +if(!qbevent)break;evnt(26302,89,"ini.bm");}while(r); +} +S_35210:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 61 )))||new_error){ +if(qbevent){evnt(26302,90,"ini.bm");if(r)goto S_35210;} +do{ +goto LABEL_CHECKAGAIN; +if(!qbevent)break;evnt(26302,90,"ini.bm");}while(r); +} +S_35213:; +if ((-(*_FUNC_INIGETSECTION_ULONG_I<=*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION))||new_error){ +if(qbevent){evnt(26302,91,"ini.bm");if(r)goto S_35213;} +do{ +goto fornext_exit_3882; +if(!qbevent)break;evnt(26302,91,"ini.bm");}while(r); +} +fornext_continue_3882:; +} +fornext_exit_3882:; +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,*_FUNC_INIGETSECTION_ULONG_ENDSECTION-*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,93,"ini.bm");}while(r); +}else{ +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,95,"ini.bm");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,97,"ini.bm");}while(r); +} +dl_continue_3877:; +}while(1); +dl_exit_3877:; +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free121.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_CREATEANDROIDPROJECT_GETSDKPATH);return _FUNC_CREATEANDROIDPROJECT_GETSDKPATH_STRING_CREATEANDROIDPROJECT_GETSDKPATH; +qbs_maketmp(_FUNC_INIGETSECTION_STRING_INIGETSECTION);return _FUNC_INIGETSECTION_STRING_INIGETSECTION; } -qbs* FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH(){ +qbs* FUNC_INIFORMATSECTION(qbs*_FUNC_INIFORMATSECTION_STRING___SECTION){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -119894,78 +124682,51 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Locating Gradle in filesystem (this could take a while the first time)",70)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,131,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,104,"ini.bm");}while(r); do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,FUNC_CREATEANDROIDPROJECT_FINDFILE(qbs_new_txt_len("gradle.bat",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,132,"android_methods.bas");}while(r); -S_33171:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,133,"android_methods.bas");if(r)goto S_33171;} +if(!qbevent)break;evnt(26302,106,"ini.bm");}while(r); do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_add(qbs_add(qbs_new_txt_len("Gradle located at '",19),_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE),qbs_new_txt_len("'",1))); +qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_ltrim(qbs_rtrim(_FUNC_INIFORMATSECTION_STRING___SECTION))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,134,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,108,"ini.bm");}while(r); +S_35228:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_INIFORMATSECTION_STRING_SECTION, 1 ),qbs_new_txt_len("[",1))))||new_error){ +if(qbevent){evnt(26302,111,"ini.bm");if(r)goto S_35228;} +do{ +qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_add(qbs_new_txt_len("[",1),_FUNC_INIFORMATSECTION_STRING_SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,111,"ini.bm");}while(r); } -S_33174:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,136,"android_methods.bas");if(r)goto S_33174;} +S_35231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_INIFORMATSECTION_STRING_SECTION, 1 ),qbs_new_txt_len("]",1))))||new_error){ +if(qbevent){evnt(26302,112,"ini.bm");if(r)goto S_35231;} do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,qbs_new_txt_len("C:\\Program Files\\Android\\Android Studio\\gradle\\gradle-2.2.1\\bin\\gradle.bat",74)); +qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_add(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_new_txt_len("]",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,137,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Gradle not found. Assuming '+thisFile$+",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,138,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,112,"ini.bm");}while(r); } -S_33178:; -fornext_value3670=_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE->len; -fornext_finalvalue3670= 1 ; -fornext_step3670= -1 ; -if (fornext_step3670<0) fornext_step_negative3670=1; else fornext_step_negative3670=0; -if (new_error) goto fornext_error3670; -goto fornext_entrylabel3670; -while(1){ -fornext_value3670=fornext_step3670+(*_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_LONG_I); -fornext_entrylabel3670: -*_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_LONG_I=fornext_value3670; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3670){ -if (fornext_value3670fornext_finalvalue3670) break; -} -fornext_error3670:; -if(qbevent){evnt(25062,140,"android_methods.bas");if(r)goto S_33178;} -S_33179:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,*_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_LONG_I)== 92 )))||new_error){ -if(qbevent){evnt(25062,141,"android_methods.bas");if(r)goto S_33179;} +S_35234:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func_mid(_FUNC_INIFORMATSECTION_STRING_SECTION, 2 ,_FUNC_INIFORMATSECTION_STRING_SECTION->len- 3 ,1),qbs_new_txt_len("[",1),0)|func_instr(NULL,func_mid(_FUNC_INIFORMATSECTION_STRING_SECTION, 2 ,_FUNC_INIFORMATSECTION_STRING_SECTION->len- 3 ,1),qbs_new_txt_len("]",1),0)))||new_error){ +if(qbevent){evnt(26302,114,"ini.bm");if(r)goto S_35234;} do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,qbs_left(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE,*_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,142,"android_methods.bas");}while(r); +*__LONG_INICODE= 15 ; +if(!qbevent)break;evnt(26302,115,"ini.bm");}while(r); do{ -goto fornext_exit_3669; -if(!qbevent)break;evnt(25062,143,"android_methods.bas");}while(r); +goto exit_subfunc; +if(!qbevent)break;evnt(26302,116,"ini.bm");}while(r); } -fornext_continue_3669:; -} -fornext_exit_3669:; do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_CREATEANDROIDPROJECT_GETGRADLEPATH,_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_THISFILE); +qbs_set(_FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION,_FUNC_INIFORMATSECTION_STRING_SECTION); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,146,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,119,"ini.bm");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free122.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_CREATEANDROIDPROJECT_GETGRADLEPATH);return _FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH_STRING_CREATEANDROIDPROJECT_GETGRADLEPATH; +qbs_maketmp(_FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION);return _FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION; } -void SUB_CREATEANDROIDPROJECT_MESSAGE(qbs*_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE){ +qbs* FUNC_READSETTING(qbs*_FUNC_READSETTING_STRING_FILE,qbs*_FUNC_READSETTING_STRING___SECTION,qbs*_FUNC_READSETTING_STRING___KEY){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -119979,114 +124740,315 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX= 2 ; -if(!qbevent)break;evnt(25062,150,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,123,"ini.bm");}while(r); do{ -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY=*__LONG_IDEWY- 3 ; -if(!qbevent)break;evnt(25062,151,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,124,"ini.bm");}while(r); do{ -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT= 3 ; -if(!qbevent)break;evnt(25062,152,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,125,"ini.bm");}while(r); do{ -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH=*__LONG_IDEWX- 2 ; -if(!qbevent)break;evnt(25062,153,"android_methods.bas");}while(r); -S_33189:; -fornext_value3674=*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY; -fornext_finalvalue3674=*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY+*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT- 1 ; -fornext_step3674= 1 ; -if (fornext_step3674<0) fornext_step_negative3674=1; else fornext_step_negative3674=0; -if (new_error) goto fornext_error3674; -goto fornext_entrylabel3674; +if(!qbevent)break;evnt(26302,126,"ini.bm");}while(r); +do{ +SUB_INILOAD(_FUNC_READSETTING_STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,128,"ini.bm");}while(r); +S_35244:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26302,129,"ini.bm");if(r)goto S_35244;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,129,"ini.bm");}while(r); +} +S_35247:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||new_error){ +if(qbevent){evnt(26302,131,"ini.bm");if(r)goto S_35247;} +do{ +*__LONG_INICODE= 17 ; +if(!qbevent)break;evnt(26302,131,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,131,"ini.bm");}while(r); +} +do{ +if(!qbevent)break;evnt(26302,133,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,134,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,135,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_READSETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_READSETTING_STRING___SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,137,"ini.bm");}while(r); +S_35255:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26302,138,"ini.bm");if(r)goto S_35255;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,138,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INISECTIONDATA,FUNC_INIGETSECTION(_FUNC_READSETTING_STRING_SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,141,"ini.bm");}while(r); +S_35259:; +if (((-(*__LONG_INICODE> 0 ))&(-(*__LONG_INICODE!= 17 )))||new_error){ +if(qbevent){evnt(26302,142,"ini.bm");if(r)goto S_35259;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,142,"ini.bm");}while(r); +} +S_35262:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_INISECTIONDATA->len== 0 ))&(qbs_notequal(_FUNC_READSETTING_STRING_SECTION,qbs_new_txt_len("[]",2)))))||new_error){ +if(qbevent){evnt(26302,144,"ini.bm");if(r)goto S_35262;} +do{ +*__LONG_INICODE= 14 ; +if(!qbevent)break;evnt(26302,144,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,144,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INILASTSECTION,_FUNC_READSETTING_STRING_SECTION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,146,"ini.bm");}while(r); +do{ +*__ULONG_INIPOSITION= 0 ; +if(!qbevent)break;evnt(26302,148,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_READSETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_FUNC_READSETTING_STRING___KEY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,150,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INILASTKEY,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,151,"ini.bm");}while(r); +S_35270:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26302,152,"ini.bm");if(r)goto S_35270;} +do{ +*__LONG_INICODE= 12 ; +if(!qbevent)break;evnt(26302,152,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,152,"ini.bm");}while(r); +} +S_35274:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len(";",1)))|(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len("'",1)))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("[",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("]",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("=",1),0)> 0 ))))||new_error){ +if(qbevent){evnt(26302,154,"ini.bm");if(r)goto S_35274;} +do{ +*__LONG_INICODE= 12 ; +if(!qbevent)break;evnt(26302,155,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,156,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INILASTKEY,_FUNC_READSETTING_STRING_KEY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,159,"ini.bm");}while(r); +S_35279:; +if ((-(*__ULONG_INIPOSITION> 0 ))||new_error){ +if(qbevent){evnt(26302,161,"ini.bm");if(r)goto S_35279;} +do{ +*_FUNC_READSETTING_ULONG_EQUAL=*__ULONG_INIPOSITION; +if(!qbevent)break;evnt(26302,161,"ini.bm");}while(r); +do{ +goto LABEL_KEYFOUND; +if(!qbevent)break;evnt(26302,161,"ini.bm");}while(r); +} +LABEL_CHECKKEY:; +if(qbevent){evnt(26302,162,"ini.bm");r=0;} +do{ +*__ULONG_INIPOSITION=func_instr(*__ULONG_INIPOSITION+ 1 ,qbs_lcase(__STRING_INISECTIONDATA),qbs_lcase(_FUNC_READSETTING_STRING_KEY),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,163,"ini.bm");}while(r); +S_35284:; +if ((-(*__ULONG_INIPOSITION> 0 ))||new_error){ +if(qbevent){evnt(26302,165,"ini.bm");if(r)goto S_35284;} +S_35285:; +fornext_value3893=*__ULONG_INIPOSITION- 1 ; +fornext_finalvalue3893= 1 ; +fornext_step3893= -1 ; +if (fornext_step3893<0) fornext_step_negative3893=1; else fornext_step_negative3893=0; +if (new_error) goto fornext_error3893; +goto fornext_entrylabel3893; while(1){ -fornext_value3674=fornext_step3674+(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y); -fornext_entrylabel3674: -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y=fornext_value3674; -if (fornext_step_negative3674){ -if (fornext_value3674fornext_finalvalue3674) break; +if (fornext_value3893>fornext_finalvalue3893) break; } -fornext_error3674:; -if(qbevent){evnt(25062,155,"android_methods.bas");if(r)goto S_33189;} +fornext_error3893:; +if(qbevent){evnt(26302,167,"ini.bm");if(r)goto S_35285;} +S_35286:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,168,"ini.bm");if(r)goto S_35286;} do{ -qbg_sub_locate(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y,*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25062,156,"android_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH)); -if (new_error) goto skip3675; -makefit(tqbs); -qbs_print(tqbs,0); -skip3675: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,156,"android_methods.bas");}while(r); -fornext_continue_3673:; +goto fornext_exit_3892; +if(!qbevent)break;evnt(26302,168,"ini.bm");}while(r); } -fornext_exit_3673:; -S_33193:; -fornext_value3677=*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY; -fornext_finalvalue3677=*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWY+*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWHEIGHT- 1 ; -fornext_step3677= 1 ; -if (fornext_step3677<0) fornext_step_negative3677=1; else fornext_step_negative3677=0; -if (new_error) goto fornext_error3677; -goto fornext_entrylabel3677; +S_35289:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 10 ))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26302,169,"ini.bm");if(r)goto S_35289;} +do{ +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26302,171,"ini.bm");}while(r); +} +fornext_continue_3892:; +} +fornext_exit_3892:; +S_35293:; +fornext_value3895=*__ULONG_INIPOSITION+_FUNC_READSETTING_STRING_KEY->len; +fornext_finalvalue3895=__STRING_INISECTIONDATA->len; +fornext_step3895= 1 ; +if (fornext_step3895<0) fornext_step_negative3895=1; else fornext_step_negative3895=0; +if (new_error) goto fornext_error3895; +goto fornext_entrylabel3895; while(1){ -fornext_value3677=fornext_step3677+(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y); -fornext_entrylabel3677: -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y=fornext_value3677; -if (fornext_step_negative3677){ -if (fornext_value3677fornext_finalvalue3677) break; +if (fornext_value3895>fornext_finalvalue3895) break; } -fornext_error3677:; -if(qbevent){evnt(25062,158,"android_methods.bas");if(r)goto S_33193;} +fornext_error3895:; +if(qbevent){evnt(26302,176,"ini.bm");if(r)goto S_35293;} +S_35294:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)==qbs_asc(qbs_new_txt_len("=",1)))))||new_error){ +if(qbevent){evnt(26302,177,"ini.bm");if(r)goto S_35294;} do{ -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH=_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE->len; +goto fornext_exit_3894; +if(!qbevent)break;evnt(26302,177,"ini.bm");}while(r); +} +S_35297:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!=qbs_asc(qbs_new_txt_len("=",1))))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26302,178,"ini.bm");if(r)goto S_35297;} +do{ +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26302,180,"ini.bm");}while(r); +} +fornext_continue_3894:; +} +fornext_exit_3894:; +do{ +*_FUNC_READSETTING_ULONG_EQUAL=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,qbs_new_txt_len("=",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,159,"android_methods.bas");}while(r); -S_33195:; -if ((-(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH> 0 ))||new_error){ -if(qbevent){evnt(25062,160,"android_methods.bas");if(r)goto S_33195;} -S_33196:; -if ((-(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH>*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH))||new_error){ -if(qbevent){evnt(25062,161,"android_methods.bas");if(r)goto S_33196;} +if(!qbevent)break;evnt(26302,185,"ini.bm");}while(r); +LABEL_KEYFOUND:; +if(qbevent){evnt(26302,186,"ini.bm");r=0;} do{ -*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH=*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWWIDTH; -if(!qbevent)break;evnt(25062,161,"android_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_Y,*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_STATUSWINDOWX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25062,162,"android_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_left(_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE,*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH)); -if (new_error) goto skip3679; -makefit(tqbs); -qbs_print(tqbs,0); -skip3679: -qbs_free(tqbs); +*_FUNC_READSETTING_ULONG_FOUNDLF=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,__STRING_INILF,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,162,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,187,"ini.bm");}while(r); +S_35303:; +if ((-(*_FUNC_READSETTING_ULONG_FOUNDLF> 0 ))||new_error){ +if(qbevent){evnt(26302,189,"ini.bm");if(r)goto S_35303;} +S_35304:; +if ((-(*_FUNC_READSETTING_ULONG_EQUAL>*_FUNC_READSETTING_ULONG_FOUNDLF))||new_error){ +if(qbevent){evnt(26302,190,"ini.bm");if(r)goto S_35304;} do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE,qbs_right(_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE,_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE->len-*_SUB_CREATEANDROIDPROJECT_MESSAGE_LONG_MESSAGELENGTH)); +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26302,190,"ini.bm");}while(r); +} +}else{ +do{ +*_FUNC_READSETTING_ULONG_FOUNDLF=__STRING_INISECTIONDATA->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,163,"android_methods.bas");}while(r); -} -fornext_continue_3676:; -} -fornext_exit_3676:; +if(!qbevent)break;evnt(26302,192,"ini.bm");}while(r); +S_35309:; +if ((-(*_FUNC_READSETTING_ULONG_EQUAL== 0 ))||new_error){ +if(qbevent){evnt(26302,193,"ini.bm");if(r)goto S_35309;} do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25062,166,"android_methods.bas");}while(r); +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26302,193,"ini.bm");}while(r); +} +} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(func_mid(__STRING_INISECTIONDATA,*_FUNC_READSETTING_ULONG_EQUAL+ 1 ,*_FUNC_READSETTING_ULONG_FOUNDLF-*_FUNC_READSETTING_ULONG_EQUAL- 1 ,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,196,"ini.bm");}while(r); +S_35314:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_READSETTING_STRING_TEMPVALUE->len> 0 )))||new_error){ +if(qbevent){evnt(26302,198,"ini.bm");if(r)goto S_35314;} +S_35315:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26302,199,"ini.bm");if(r)goto S_35315;} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,func_mid(_FUNC_READSETTING_STRING_TEMPVALUE, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,200,"ini.bm");}while(r); +do{ +*_FUNC_READSETTING_ULONG_QUOTE=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,func_chr( 34 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,201,"ini.bm");}while(r); +S_35318:; +if ((-(*_FUNC_READSETTING_ULONG_QUOTE> 0 ))||new_error){ +if(qbevent){evnt(26302,202,"ini.bm");if(r)goto S_35318;} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_QUOTE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,203,"ini.bm");}while(r); +} +}else{ +S_35322:; +if ((*__LONG_INIALLOWBASICCOMMENTS)||new_error){ +if(qbevent){evnt(26302,206,"ini.bm");if(r)goto S_35322;} +do{ +*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len("'",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,206,"ini.bm");}while(r); +} +S_35325:; +if ((-(*_FUNC_READSETTING_ULONG_COMMENT== 0 ))||new_error){ +if(qbevent){evnt(26302,207,"ini.bm");if(r)goto S_35325;} +do{ +*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len(";",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,207,"ini.bm");}while(r); +} +S_35328:; +if ((-(*_FUNC_READSETTING_ULONG_COMMENT> 0 ))||new_error){ +if(qbevent){evnt(26302,208,"ini.bm");if(r)goto S_35328;} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_COMMENT- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,209,"ini.bm");}while(r); +} +} +}else{ +do{ +*__LONG_INICODE= 2 ; +if(!qbevent)break;evnt(26302,213,"ini.bm");}while(r); +} +}else{ +do{ +*__LONG_INICODE= 3 ; +if(!qbevent)break;evnt(26302,216,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,217,"ini.bm");}while(r); +} +do{ +qbs_set(_FUNC_READSETTING_STRING_READSETTING,_FUNC_READSETTING_STRING_TEMPVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,220,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INILASTSECTION,FUNC_INICURRENTSECTION()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,221,"ini.bm");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free123.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READSETTING_STRING_READSETTING);return _FUNC_READSETTING_STRING_READSETTING; } -void SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs*_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE,qbs*_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER){ +qbs* FUNC_INICURRENTSECTION(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -120100,16 +125062,114 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c copy programs\\android\\template\\untitled\\",47),_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE),qbs_new_txt_len(" ",1)),_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER),qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE),2); +if(!qbevent)break;evnt(26302,225,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,227,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,228,"ini.bm");}while(r); +do{ +*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=func_instr(NULL,__STRING_INIWHOLEFILE,__STRING_INISECTIONDATA,0)+*__ULONG_INIPOSITION- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,170,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,230,"ini.bm");}while(r); +LABEL_CHECKSECTION:; +if(qbevent){evnt(26302,232,"ini.bm");r=0;} +S_35345:; +fornext_value3901=*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION- 1 ; +fornext_finalvalue3901= 1 ; +fornext_step3901= -1 ; +if (fornext_step3901<0) fornext_step_negative3901=1; else fornext_step_negative3901=0; +if (new_error) goto fornext_error3901; +goto fornext_entrylabel3901; +while(1){ +fornext_value3901=fornext_step3901+(*_FUNC_INICURRENTSECTION_ULONG_I); +fornext_entrylabel3901: +*_FUNC_INICURRENTSECTION_ULONG_I=fornext_value3901; +if (fornext_step_negative3901){ +if (fornext_value3901fornext_finalvalue3901) break; +} +fornext_error3901:; +if(qbevent){evnt(26302,233,"ini.bm");if(r)goto S_35345;} +S_35346:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)==qbs_asc(qbs_new_txt_len("[",1)))))||new_error){ +if(qbevent){evnt(26302,234,"ini.bm");if(r)goto S_35346;} +do{ +*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=*_FUNC_INICURRENTSECTION_ULONG_I; +if(!qbevent)break;evnt(26302,235,"ini.bm");}while(r); +do{ +goto fornext_exit_3900; +if(!qbevent)break;evnt(26302,235,"ini.bm");}while(r); +} +fornext_continue_3900:; +} +fornext_exit_3900:; +S_35351:; +if ((-(*_FUNC_INICURRENTSECTION_ULONG_I== 0 ))||new_error){ +if(qbevent){evnt(26302,239,"ini.bm");if(r)goto S_35351;} +do{ +qbs_set(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION,qbs_new_txt_len("[]",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,239,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,239,"ini.bm");}while(r); +} +S_35355:; +fornext_value3903=*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION- 1 ; +fornext_finalvalue3903= 1 ; +fornext_step3903= -1 ; +if (fornext_step3903<0) fornext_step_negative3903=1; else fornext_step_negative3903=0; +if (new_error) goto fornext_error3903; +goto fornext_entrylabel3903; +while(1){ +fornext_value3903=fornext_step3903+(*_FUNC_INICURRENTSECTION_ULONG_I); +fornext_entrylabel3903: +*_FUNC_INICURRENTSECTION_ULONG_I=fornext_value3903; +if (fornext_step_negative3903){ +if (fornext_value3903fornext_finalvalue3903) break; +} +fornext_error3903:; +if(qbevent){evnt(26302,242,"ini.bm");if(r)goto S_35355;} +S_35356:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,243,"ini.bm");if(r)goto S_35356;} +do{ +goto fornext_exit_3902; +if(!qbevent)break;evnt(26302,243,"ini.bm");}while(r); +} +S_35359:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)!= 10 ))&(-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26302,244,"ini.bm");if(r)goto S_35359;} +do{ +goto LABEL_CHECKSECTION; +if(!qbevent)break;evnt(26302,246,"ini.bm");}while(r); +} +fornext_continue_3902:; +} +fornext_exit_3902:; +do{ +*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET=func_instr(*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION,__STRING_INIWHOLEFILE,qbs_new_txt_len("]",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,250,"ini.bm");}while(r); +S_35364:; +if ((-(*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET> 0 ))||new_error){ +if(qbevent){evnt(26302,251,"ini.bm");if(r)goto S_35364;} +do{ +qbs_set(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION,*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET-*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION+ 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,252,"ini.bm");}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free124.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION);return _FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION; } -qbs* FUNC_CREATEANDROIDPROJECT_PATHREFERENCE(qbs*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH){ +void SUB_WRITESETTING(qbs*_SUB_WRITESETTING_STRING_FILE,qbs*_SUB_WRITESETTING_STRING___SECTION,qbs*_SUB_WRITESETTING_STRING___KEY,qbs*_SUB_WRITESETTING_STRING___VALUE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -120123,54 +125183,441 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A,_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH); +if(!qbevent)break;evnt(26302,257,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,258,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,259,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,260,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,262,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26302,264,"ini.bm");}while(r); +do{ +qbs_set(_SUB_WRITESETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_SUB_WRITESETTING_STRING___SECTION)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,174,"android_methods.bas");}while(r); -S_33207:; -fornext_value3685= 1 ; -fornext_finalvalue3685=_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A->len; -fornext_step3685= 1 ; -if (fornext_step3685<0) fornext_step_negative3685=1; else fornext_step_negative3685=0; -if (new_error) goto fornext_error3685; -goto fornext_entrylabel3685; -while(1){ -fornext_value3685=fornext_step3685+(*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I); -fornext_entrylabel3685: -*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I=fornext_value3685; +if(!qbevent)break;evnt(26302,267,"ini.bm");}while(r); +S_35374:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26302,268,"ini.bm");if(r)goto S_35374;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,268,"ini.bm");}while(r); +} +do{ +qbs_set(_SUB_WRITESETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___KEY))); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3685){ -if (fornext_value3685len)> 0 ))))||new_error){ +if(qbevent){evnt(26302,311,"ini.bm");if(r)goto S_35417;} +do{ +*__LONG_INICODE= 8 ; +if(!qbevent)break;evnt(26302,313,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,314,"ini.bm");}while(r); +} +do{ +if(!qbevent)break;evnt(26302,317,"ini.bm");}while(r); +do{ +*_SUB_WRITESETTING_ULONG_NEXTLINE=func_instr(*__ULONG_INIPOSITION+ 1 ,__STRING_INIWHOLEFILE,__STRING_INILF,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,318,"ini.bm");}while(r); +do{ +qbs_set(__STRING_ININEWFILE,qbs_left(__STRING_INIWHOLEFILE,*__ULONG_INIPOSITION- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,321,"ini.bm");}while(r); +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,322,"ini.bm");}while(r); +S_35425:; +if ((-(*_SUB_WRITESETTING_ULONG_NEXTLINE> 0 ))||new_error){ +if(qbevent){evnt(26302,324,"ini.bm");if(r)goto S_35425;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_NEXTLINE,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,325,"ini.bm");}while(r); +} +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26302,328,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 4 ; +if(!qbevent)break;evnt(26302,330,"ini.bm");}while(r); +} +S_35431:; }else{ -if (fornext_value3685>fornext_finalvalue3685) break; -} -fornext_error3685:; -if(qbevent){evnt(25062,175,"android_methods.bas");if(r)goto S_33207;} -S_33208:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A,*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I)== 92 )))||new_error){ -if(qbevent){evnt(25062,176,"android_methods.bas");if(r)goto S_33208;} +if ((-(*__LONG_INICODE== 3 ))|(-(*__LONG_INICODE== 14 ))){ +if(qbevent){evnt(26302,332,"ini.bm");if(r)goto S_35431;} do{ -tqbs=_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A; if (!new_error){ -tmp_fileno=*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_LONG_I; if (!new_error){ -tmp_long= 47 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(25062,176,"android_methods.bas");}while(r); -} -fornext_continue_3684:; -} -fornext_exit_3684:; +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26302,333,"ini.bm");}while(r); +S_35433:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(__STRING_INILASTSECTION),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION))))||new_error){ +if(qbevent){evnt(26302,334,"ini.bm");if(r)goto S_35433;} do{ -qbs_set(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_CREATEANDROIDPROJECT_PATHREFERENCE,_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_A); +if(!qbevent)break;evnt(26302,336,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,337,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26302,338,"ini.bm");}while(r); +do{ +*_SUB_WRITESETTING_ULONG_BEGINSECTION= 0 ; +if(!qbevent)break;evnt(26302,340,"ini.bm");}while(r); +do{ +*_SUB_WRITESETTING_ULONG_ENDSECTION= 0 ; +if(!qbevent)break;evnt(26302,341,"ini.bm");}while(r); +LABEL_CHECKSECTION:; +if(qbevent){evnt(26302,343,"ini.bm");r=0;} +do{ +*_SUB_WRITESETTING_ULONG_BEGINSECTION=func_instr(*_SUB_WRITESETTING_ULONG_BEGINSECTION+ 1 ,qbs_lcase(__STRING_INIWHOLEFILE),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,178,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,344,"ini.bm");}while(r); +S_35440:; +if ((-(*_SUB_WRITESETTING_ULONG_BEGINSECTION== 0 ))||new_error){ +if(qbevent){evnt(26302,345,"ini.bm");if(r)goto S_35440;} +do{ +goto LABEL_CREATESECTION; +if(!qbevent)break;evnt(26302,345,"ini.bm");}while(r); +} +S_35443:; +fornext_value3909=*_SUB_WRITESETTING_ULONG_BEGINSECTION- 1 ; +fornext_finalvalue3909= 1 ; +fornext_step3909= -1 ; +if (fornext_step3909<0) fornext_step_negative3909=1; else fornext_step_negative3909=0; +if (new_error) goto fornext_error3909; +goto fornext_entrylabel3909; +while(1){ +fornext_value3909=fornext_step3909+(*_SUB_WRITESETTING_ULONG_I); +fornext_entrylabel3909: +*_SUB_WRITESETTING_ULONG_I=fornext_value3909; +if (fornext_step_negative3909){ +if (fornext_value3909fornext_finalvalue3909) break; +} +fornext_error3909:; +if(qbevent){evnt(26302,348,"ini.bm");if(r)goto S_35443;} +S_35444:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,349,"ini.bm");if(r)goto S_35444;} +do{ +goto fornext_exit_3908; +if(!qbevent)break;evnt(26302,349,"ini.bm");}while(r); +} +S_35447:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)!= 10 ))&(-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26302,350,"ini.bm");if(r)goto S_35447;} +do{ +goto LABEL_CHECKSECTION; +if(!qbevent)break;evnt(26302,352,"ini.bm");}while(r); +} +fornext_continue_3908:; +} +fornext_exit_3908:; +do{ +*_SUB_WRITESETTING_ULONG_BRACKET1=func_instr(*_SUB_WRITESETTING_ULONG_BEGINSECTION+ 1 ,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,358,"ini.bm");}while(r); +S_35452:; +if ((-(*_SUB_WRITESETTING_ULONG_BRACKET1> 0 ))||new_error){ +if(qbevent){evnt(26302,359,"ini.bm");if(r)goto S_35452;} +S_35453:; +fornext_value3911=*_SUB_WRITESETTING_ULONG_BRACKET1- 1 ; +fornext_finalvalue3911= 1 ; +fornext_step3911= -1 ; +if (fornext_step3911<0) fornext_step_negative3911=1; else fornext_step_negative3911=0; +if (new_error) goto fornext_error3911; +goto fornext_entrylabel3911; +while(1){ +fornext_value3911=fornext_step3911+(*_SUB_WRITESETTING_ULONG_I); +fornext_entrylabel3911: +*_SUB_WRITESETTING_ULONG_I=fornext_value3911; +if (fornext_step_negative3911){ +if (fornext_value3911fornext_finalvalue3911) break; +} +fornext_error3911:; +if(qbevent){evnt(26302,360,"ini.bm");if(r)goto S_35453;} +S_35454:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26302,361,"ini.bm");if(r)goto S_35454;} +do{ +*_SUB_WRITESETTING_ULONG_ENDSECTION=*_SUB_WRITESETTING_ULONG_I+ 1 -__STRING_INILF->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,361,"ini.bm");}while(r); +do{ +goto fornext_exit_3910; +if(!qbevent)break;evnt(26302,361,"ini.bm");}while(r); +} +S_35458:; +if ((-(*_SUB_WRITESETTING_ULONG_I<=*_SUB_WRITESETTING_ULONG_BEGINSECTION))||new_error){ +if(qbevent){evnt(26302,362,"ini.bm");if(r)goto S_35458;} +do{ +goto fornext_exit_3910; +if(!qbevent)break;evnt(26302,362,"ini.bm");}while(r); +} +fornext_continue_3910:; +} +fornext_exit_3910:; +} +S_35463:; +if ((-(*_SUB_WRITESETTING_ULONG_ENDSECTION> 0 ))||new_error){ +if(qbevent){evnt(26302,366,"ini.bm");if(r)goto S_35463;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_left(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,368,"ini.bm");}while(r); +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,369,"ini.bm");}while(r); +S_35466:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION,__STRING_INILF->len,1),__STRING_INILF)))||new_error){ +if(qbevent){evnt(26302,370,"ini.bm");if(r)goto S_35466;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,370,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,371,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_ININEWFILE,__STRING_INIWHOLEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,374,"ini.bm");}while(r); +S_35472:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_ININEWFILE,__STRING_INILF->len),__STRING_INILF)))||new_error){ +if(qbevent){evnt(26302,375,"ini.bm");if(r)goto S_35472;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,376,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,378,"ini.bm");}while(r); +} +} +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26302,382,"ini.bm");}while(r); +S_35479:; +if ((-(*__LONG_INICODE== 0 ))||new_error){ +if(qbevent){evnt(26302,384,"ini.bm");if(r)goto S_35479;} +do{ +*__LONG_INICODE= 7 ; +if(!qbevent)break;evnt(26302,384,"ini.bm");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,385,"ini.bm");}while(r); +}else{ +LABEL_CREATESECTION:; +if(qbevent){evnt(26302,387,"ini.bm");r=0;} +do{ +qbs_set(__STRING_ININEWFILE,__STRING_INIWHOLEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,388,"ini.bm");}while(r); +S_35485:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ +if(qbevent){evnt(26302,389,"ini.bm");if(r)goto S_35485;} +do{ +goto LABEL_WRITEATTOP; +if(!qbevent)break;evnt(26302,389,"ini.bm");}while(r); +} +S_35488:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_ININEWFILE,__STRING_INILF->len* 2 )),(qbs_add(__STRING_INILF,__STRING_INILF)))))||new_error){ +if(qbevent){evnt(26302,391,"ini.bm");if(r)goto S_35488;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,392,"ini.bm");}while(r); +S_35490:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_ININEWFILE,__STRING_INILF->len),__STRING_INILF))){ +if(qbevent){evnt(26302,393,"ini.bm");if(r)goto S_35490;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,394,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),__STRING_INILF),_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,396,"ini.bm");}while(r); +} +} +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26302,399,"ini.bm");}while(r); +S_35496:; +if ((-(*__LONG_INICODE== 0 ))||new_error){ +if(qbevent){evnt(26302,401,"ini.bm");if(r)goto S_35496;} +do{ +*__LONG_INICODE= 9 ; +if(!qbevent)break;evnt(26302,401,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INICODE= 16 ; +if(!qbevent)break;evnt(26302,401,"ini.bm");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,402,"ini.bm");}while(r); +} +LABEL_WRITEATTOP:; +if(qbevent){evnt(26302,406,"ini.bm");r=0;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(_SUB_WRITESETTING_STRING_KEY,qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,407,"ini.bm");}while(r); +S_35504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_INIWHOLEFILE), 1 ),qbs_new_txt_len("[",1))))||new_error){ +if(qbevent){evnt(26302,408,"ini.bm");if(r)goto S_35504;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,408,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INIWHOLEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,409,"ini.bm");}while(r); +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26302,411,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 5 ; +if(!qbevent)break;evnt(26302,413,"ini.bm");}while(r); +} +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free125.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_CREATEANDROIDPROJECT_PATHREFERENCE);return _FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_CREATEANDROIDPROJECT_PATHREFERENCE; } -void SUB_CREATEANDROIDPROJECT_ADDDIR(qbs*_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE,qbs*_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR){ +void SUB_INISETADDQUOTES(int8*_SUB_INISETADDQUOTES_BYTE_STATE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -120184,16 +125631,25 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE,qbs_new_txt_len("mkdir(",6)),func_chr( 34 )),FUNC_CREATEANDROIDPROJECT_PATHREFERENCE(_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR)),func_chr( 34 )),qbs_new_txt_len(",0770);",7)),func_chr( 13 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,183,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,418,"ini.bm");}while(r); +S_35512:; +if ((*_SUB_INISETADDQUOTES_BYTE_STATE)||new_error){ +if(qbevent){evnt(26302,419,"ini.bm");if(r)goto S_35512;} +do{ +*__LONG_INIDISABLEADDQUOTES= 0 ; +if(!qbevent)break;evnt(26302,420,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INIDISABLEADDQUOTES= -1 ; +if(!qbevent)break;evnt(26302,422,"ini.bm");}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free126.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_CREATEANDROIDPROJECT_ADDFILE(qbs*_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE,qbs*_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE){ +void SUB_INISETFORCERELOAD(int8*_SUB_INISETFORCERELOAD_BYTE_STATE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -120207,16 +125663,25 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE,qbs_new_txt_len("android_get_file_asset(mgr,",27)),func_chr( 34 )),FUNC_CREATEANDROIDPROJECT_PATHREFERENCE(_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE)),func_chr( 34 )),qbs_new_txt_len(");",2)),func_chr( 13 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,188,"android_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,427,"ini.bm");}while(r); +S_35518:; +if ((*_SUB_INISETFORCERELOAD_BYTE_STATE)||new_error){ +if(qbevent){evnt(26302,428,"ini.bm");if(r)goto S_35518;} +do{ +*__LONG_INIFORCERELOAD= -1 ; +if(!qbevent)break;evnt(26302,429,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INIFORCERELOAD= 0 ; +if(!qbevent)break;evnt(26302,431,"ini.bm");}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free127.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_CREATEANDROIDPROJECT(qbs*_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2){ +void SUB_INISETALLOWBASICCOMMENTS(int8*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -120230,1052 +125695,25 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25062,196,"android_methods.bas");}while(r); -S_33216:; -fornext_value3693= 1 ; -fornext_finalvalue3693=_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2->len; -fornext_step3693= 1 ; -if (fornext_step3693<0) fornext_step_negative3693=1; else fornext_step_negative3693=0; -if (new_error) goto fornext_error3693; -goto fornext_entrylabel3693; -while(1){ -fornext_value3693=fornext_step3693+(*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI); -fornext_entrylabel3693: -*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI=fornext_value3693; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3693){ -if (fornext_value3693fornext_finalvalue3693) break; -} -fornext_error3693:; -if(qbevent){evnt(25062,197,"android_methods.bas");if(r)goto S_33216;} +if(!qbevent)break;evnt(26302,436,"ini.bm");}while(r); +S_35524:; +if ((*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE)||new_error){ +if(qbevent){evnt(26302,437,"ini.bm");if(r)goto S_35524;} do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAMEA,qbs_lcase(func_mid(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2,*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEI, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,198,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEASC=qbs_asc(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAMEA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,199,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEAVALID= 0 ; -if(!qbevent)break;evnt(25062,200,"android_methods.bas");}while(r); -S_33220:; -if (((-(*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEASC>= 97 ))&(-(*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEASC< 122 )))||new_error){ -if(qbevent){evnt(25062,201,"android_methods.bas");if(r)goto S_33220;} -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEAVALID= 1 ; -if(!qbevent)break;evnt(25062,201,"android_methods.bas");}while(r); -} -S_33223:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME->len>= 1 )))||new_error){ -if(qbevent){evnt(25062,202,"android_methods.bas");if(r)goto S_33223;} -S_33224:; -if (((-(*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEASC>= 48 ))&(-(*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEASC<= 57 )))||new_error){ -if(qbevent){evnt(25062,203,"android_methods.bas");if(r)goto S_33224;} -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEAVALID= 1 ; -if(!qbevent)break;evnt(25062,203,"android_methods.bas");}while(r); -} -} -S_33228:; -if ((*_SUB_CREATEANDROIDPROJECT_LONG_PROJECTNAMEAVALID)||new_error){ -if(qbevent){evnt(25062,205,"android_methods.bas");if(r)goto S_33228;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME,_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAMEA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,205,"android_methods.bas");}while(r); -} -fornext_continue_3692:; -} -fornext_exit_3692:; -S_33232:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,207,"android_methods.bas");if(r)goto S_33232;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME,qbs_new_txt_len("untitled",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,207,"android_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTVERSION,qbs_new_txt_len("QB64_ANDROID_1.5",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,209,"android_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25062,211,"android_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25062,213,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_CFOLDER,qbs_new_txt_len("internal\\c",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,214,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_add(qbs_new_txt_len("programs\\android\\",17),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,216,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_VERSIONFILE,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\qb64_android_version.txt",25))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,218,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_SAMEVERSION= 0 ; -if(!qbevent)break;evnt(25062,220,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_NEWPROJECT= 1 ; -if(!qbevent)break;evnt(25062,221,"android_methods.bas");}while(r); -S_33243:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER)))||new_error){ -if(qbevent){evnt(25062,222,"android_methods.bas");if(r)goto S_33243;} -S_33244:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_CREATEANDROIDPROJECT_STRING_VERSIONFILE)))||new_error){ -if(qbevent){evnt(25062,224,"android_methods.bas");if(r)goto S_33244;} -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,225,"android_methods.bas");}while(r); -do{ -sub_open(_SUB_CREATEANDROIDPROJECT_STRING_VERSIONFILE, 3 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,226,"android_methods.bas");}while(r); -do{ -tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3696; -sub_file_line_input_string(tmp_fileno,_SUB_CREATEANDROIDPROJECT_STRING_A); -if (new_error) goto skip3696; -skip3696: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,227,"android_methods.bas");}while(r); -S_33248:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_CREATEANDROIDPROJECT_STRING_A,_SUB_CREATEANDROIDPROJECT_STRING_PROJECTVERSION)))||new_error){ -if(qbevent){evnt(25062,228,"android_methods.bas");if(r)goto S_33248;} -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_SAMEVERSION= 1 ; -if(!qbevent)break;evnt(25062,228,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_NEWPROJECT= 0 ; -if(!qbevent)break;evnt(25062,228,"android_methods.bas");}while(r); -} -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,229,"android_methods.bas");}while(r); -} -S_33254:; -if ((-(*_SUB_CREATEANDROIDPROJECT_LONG_SAMEVERSION== 0 ))||new_error){ -if(qbevent){evnt(25062,231,"android_methods.bas");if(r)goto S_33254;} -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Removing existing project",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,233,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_new_txt_len("cmd /c rmdir /s /q ",19),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,234,"android_methods.bas");}while(r); +*__LONG_INIALLOWBASICCOMMENTS= -1 ; +if(!qbevent)break;evnt(26302,438,"ini.bm");}while(r); }else{ do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Updating existing project",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,236,"android_methods.bas");}while(r); +*__LONG_INIALLOWBASICCOMMENTS= 0 ; +if(!qbevent)break;evnt(26302,440,"ini.bm");}while(r); } -} -S_33261:; -if ((*_SUB_CREATEANDROIDPROJECT_LONG_NEWPROJECT)||new_error){ -if(qbevent){evnt(25062,240,"android_methods.bas");if(r)goto S_33261;} -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Creating new project",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,241,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Copying project template",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,242,"android_methods.bas");}while(r); -S_33264:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER)== 0 )))||new_error){ -if(qbevent){evnt(25062,244,"android_methods.bas");if(r)goto S_33264;} -do{ -sub_mkdir(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,244,"android_methods.bas");}while(r); -} -do{ -sub_shell2(qbs_add(qbs_new_txt_len("cmd /c xcopy /e programs\\android\\template\\untitled\\*.* ",55),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,246,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Copying C folder",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,249,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,250,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\xcopy_exclude.txt",31), 4 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,251,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3697; -sub_file_print(tmp_fileno,qbs_new_txt_len("c_compiler\\",11), 0 , 0 , 1 ); -if (new_error) goto skip3697; -skip3697: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,252,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3698; -sub_file_print(tmp_fileno,qbs_new_txt_len("os\\",3), 0 , 0 , 1 ); -if (new_error) goto skip3698; -skip3698: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,253,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3699; -sub_file_print(tmp_fileno,qbs_new_txt_len("download\\",9), 0 , 0 , 1 ); -if (new_error) goto skip3699; -skip3699: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,254,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3700; -sub_file_print(tmp_fileno,qbs_new_txt_len(".bat",4), 0 , 0 , 1 ); -if (new_error) goto skip3700; -skip3700: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,255,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3701; -sub_file_print(tmp_fileno,qbs_new_txt_len(".command",8), 0 , 0 , 1 ); -if (new_error) goto skip3701; -skip3701: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,256,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3702; -sub_file_print(tmp_fileno,qbs_new_txt_len(".sh",3), 0 , 0 , 1 ); -if (new_error) goto skip3702; -skip3702: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,257,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3703; -sub_file_print(tmp_fileno,qbs_new_txt_len(".o",2), 0 , 0 , 1 ); -if (new_error) goto skip3703; -skip3703: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,258,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3704; -sub_file_print(tmp_fileno,qbs_new_txt_len(".a",2), 0 , 0 , 1 ); -if (new_error) goto skip3704; -skip3704: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,259,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3705; -sub_file_print(tmp_fileno,qbs_new_txt_len(".lib",4), 0 , 0 , 1 ); -if (new_error) goto skip3705; -skip3705: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,260,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3706; -sub_file_print(tmp_fileno,qbs_new_txt_len(".txt",4), 0 , 0 , 1 ); -if (new_error) goto skip3706; -skip3706: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,261,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3707; -sub_file_print(tmp_fileno,qbs_new_txt_len(".bin",4), 0 , 0 , 1 ); -if (new_error) goto skip3707; -skip3707: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,262,"android_methods.bas");}while(r); -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,263,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c xcopy /e /EXCLUDE:internal\\temp\\xcopy_exclude.txt ",57),_SUB_CREATEANDROIDPROJECT_STRING_CFOLDER),qbs_new_txt_len("\\*.* ",5)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\app\\src\\main\\jni\\c",19)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,264,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,267,"android_methods.bas");}while(r); -do{ -sub_open(_SUB_CREATEANDROIDPROJECT_STRING_VERSIONFILE, 4 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,268,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3708; -sub_file_print(tmp_fileno,_SUB_CREATEANDROIDPROJECT_STRING_PROJECTVERSION, 0 , 0 , 1 ); -if (new_error) goto skip3708; -skip3708: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,269,"android_methods.bas");}while(r); -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,270,"android_methods.bas");}while(r); -}else{ -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Cleaning project",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,272,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c del /q ",14),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\app\\src\\main\\jni\\temp\\*.*",26)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,273,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Restoring setting files",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,276,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len("local.properties",16),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,277,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len("untitled.iml",12),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,278,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len(".idea\\modules.xml",17),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,279,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len(".idea\\name",10),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,280,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len("app\\app.iml",11),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,281,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len("app\\build.gradle",16),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,282,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len("add\\src\\main\\AndroidManifest.xml",32),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,283,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs_new_txt_len("app\\src\\main\\res\\values\\strings.xml",35),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,284,"android_methods.bas");}while(r); -} -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_add(qbs_add(qbs_new_txt_len("Copying TEMP",12),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len(" (program source files) folder",30))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,287,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c copy internal\\temp",25),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("\\*.txt ",7)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\app\\src\\main\\jni\\temp",22)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,288,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_DELSTR,qbs_add(qbs_add(qbs_new_txt_len("cmd /c del /q ",14),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\app\\src\\main\\jni\\temp\\",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,291,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DELSTR,qbs_new_txt_len("xcopy_exclude.txt",17)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,292,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DELSTR,qbs_new_txt_len("root.txt",8)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,293,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DELSTR,qbs_new_txt_len("paths.txt",9)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,294,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DELSTR,qbs_new_txt_len("files.txt",9)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,295,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Prepending _FULLSCREEN _SQUAREPIXELS directive",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,298,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_THISFILE,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\jni\\temp\\main.txt",31))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,300,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,302,"android_methods.bas");}while(r); -do{ -sub_open(_SUB_CREATEANDROIDPROJECT_STRING_THISFILE, 2 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,303,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_A,func_space(func_lof(*_SUB_CREATEANDROIDPROJECT_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,304,"android_methods.bas");}while(r); -do{ -sub_get2(*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,_SUB_CREATEANDROIDPROJECT_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,305,"android_methods.bas");}while(r); -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,306,"android_methods.bas");}while(r); -do{ -sub_kill(_SUB_CREATEANDROIDPROJECT_STRING_THISFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,307,"android_methods.bas");}while(r); -do{ -sub_open(_SUB_CREATEANDROIDPROJECT_STRING_THISFILE, 2 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,308,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_A2,qbs_new_txt_len("sub__fullscreen( 3 ,0);",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,309,"android_methods.bas");}while(r); -do{ -sub_put2( 1 ,NULL,byte_element((uint64)_SUB_CREATEANDROIDPROJECT_STRING_A2->chr,_SUB_CREATEANDROIDPROJECT_STRING_A2->len,byte_element_3709),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,310,"android_methods.bas");}while(r); -do{ -sub_put2( 1 ,NULL,byte_element((uint64)_SUB_CREATEANDROIDPROJECT_STRING_A->chr,_SUB_CREATEANDROIDPROJECT_STRING_A->len,byte_element_3710),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,311,"android_methods.bas");}while(r); -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,312,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Updating project references",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,314,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25062,316,"android_methods.bas");}while(r); -do{ -sub_open(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\local.properties",17)), 4 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,317,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3711; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("sdk.dir=",8),FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME(FUNC_CREATEANDROIDPROJECT_GETSDKPATH(),&(pass3712= 1 ))), 0 , 0 , 1 ); -if (new_error) goto skip3711; -skip3711: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,318,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3713; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("ndk.dir=",8),FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME(FUNC_CREATEANDROIDPROJECT_GETNDKPATH(),&(pass3714= 1 ))), 0 , 0 , 1 ); -if (new_error) goto skip3713; -skip3713: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,319,"android_methods.bas");}while(r); -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,320,"android_methods.bas");}while(r); -S_33327:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME),qbs_new_txt_len(".iml",4)))))||new_error){ -if(qbevent){evnt(25062,322,"android_methods.bas");if(r)goto S_33327;} -do{ -sub_kill(qbs_add(qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME),qbs_new_txt_len(".iml",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,322,"android_methods.bas");}while(r); -} -do{ -sub_name(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\untitled.iml",13)),qbs_add(qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME),qbs_new_txt_len(".iml",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,323,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\.idea\\modules.xml",18)),qbs_new_txt_len("untitled",8),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,325,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\.idea\\gradle.xml",17)),qbs_new_txt_len("$QB64_GRADLE_HOME$",18),FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,326,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\.idea\\.name",12)),qbs_new_txt_len("untitled",8),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,327,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\app.iml",12)),qbs_new_txt_len("untitled",8),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,328,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\build.gradle",17)),qbs_new_txt_len("untitled",8),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,329,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\build.gradle",17)),qbs_new_txt_len("$QB64_NDK_BUILD_CMD_FILE$",25),qbs_add(FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME(FUNC_CREATEANDROIDPROJECT_GETNDKPATH(),&(pass3715= 2 )),qbs_new_txt_len("\\\\ndk-build.cmd",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,330,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\AndroidManifest.xml",33)),qbs_new_txt_len("untitled",8),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,331,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\res\\values\\strings.xml",36)),qbs_new_txt_len("untitled",8),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,332,"android_methods.bas");}while(r); -S_33339:; -while((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\assets",20)))))||new_error){ -if(qbevent){evnt(25062,351,"android_methods.bas");if(r)goto S_33339;} -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_add(qbs_add(qbs_new_txt_len("Waiting to clean open/locked folder '",37),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\app\\src\\main\\assets'...",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,352,"android_methods.bas");}while(r); -do{ -sub__limit( 10 ); -if(!qbevent)break;evnt(25062,353,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c rmdir /s /q ",19),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\app\\src\\main\\assets",20)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,354,"android_methods.bas");}while(r); -dl_continue_3716:; -} -dl_exit_3716:; -do{ -sub_mkdir(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\assets",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,356,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,359,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_FILECODE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,360,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Adding $INSTALLFOLDER(s)",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,362,"android_methods.bas");}while(r); -S_33348:; -fornext_value3718= 1 ; -fornext_finalvalue3718=FUNC_ARYLASTSTR(__ARRAY_STRING_INSTALLFOLDER); -fornext_step3718= 1 ; -if (fornext_step3718<0) fornext_step_negative3718=1; else fornext_step_negative3718=0; -if (new_error) goto fornext_error3718; -goto fornext_entrylabel3718; -while(1){ -fornext_value3718=fornext_step3718+(*_SUB_CREATEANDROIDPROJECT_LONG_F); -fornext_entrylabel3718: -*_SUB_CREATEANDROIDPROJECT_LONG_F=fornext_value3718; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3718){ -if (fornext_value3718fornext_finalvalue3718) break; -} -fornext_error3718:; -if(qbevent){evnt(25062,364,"android_methods.bas");if(r)goto S_33348;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_P,((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[array_check((*_SUB_CREATEANDROIDPROJECT_LONG_F)-__ARRAY_STRING_INSTALLFOLDER[4],__ARRAY_STRING_INSTALLFOLDER[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,365,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[array_check((*_SUB_CREATEANDROIDPROJECT_LONG_F)-__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4],__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,377,"android_methods.bas");}while(r); -S_33351:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH->len> 0 )))||new_error){ -if(qbevent){evnt(25062,378,"android_methods.bas");if(r)goto S_33351;} -S_33352:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH, 1 ),qbs_new_txt_len("/",1)))|(qbs_equal(qbs_right(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(25062,379,"android_methods.bas");if(r)goto S_33352;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,qbs_left(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,_SUB_CREATEANDROIDPROJECT_STRING_BASPATH->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,379,"android_methods.bas");}while(r); -} -} -S_33356:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,381,"android_methods.bas");if(r)goto S_33356;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,qbs_new_txt_len(".",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,381,"android_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PATH,_SUB_CREATEANDROIDPROJECT_STRING_BASPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,383,"android_methods.bas");}while(r); -S_33360:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CREATEANDROIDPROJECT_STRING_P,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,384,"android_methods.bas");if(r)goto S_33360;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PATH,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_P)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,384,"android_methods.bas");}while(r); -} -S_33363:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\temp_assets",12)))))||new_error){ -if(qbevent){evnt(25062,387,"android_methods.bas");if(r)goto S_33363;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c rmdir /s /q ",19),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets",12)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,387,"android_methods.bas");}while(r); -} -do{ -sub_mkdir(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\temp_assets",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,388,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c xcopy /e ",16),func_chr( 34 )),_SUB_CREATEANDROIDPROJECT_STRING_PATH),func_chr( 34 )),qbs_new_txt_len(" ",1)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets",12)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,390,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_P,((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[array_check((*_SUB_CREATEANDROIDPROJECT_LONG_F)-__ARRAY_STRING_INSTALLFOLDERIN[4],__ARRAY_STRING_INSTALLFOLDERIN[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,394,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\assets",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,395,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_TP,_SUB_CREATEANDROIDPROJECT_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,398,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_II= 0 ; -if(!qbevent)break;evnt(25062,399,"android_methods.bas");}while(r); -S_33372:; -while((qbs_cleanup(qbs_tmp_base,func_instr(*_SUB_CREATEANDROIDPROJECT_LONG_II,_SUB_CREATEANDROIDPROJECT_STRING_TP,qbs_new_txt_len("\\",1),1)))||new_error){ -if(qbevent){evnt(25062,400,"android_methods.bas");if(r)goto S_33372;} -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_I=func_instr(*_SUB_CREATEANDROIDPROJECT_LONG_II,_SUB_CREATEANDROIDPROJECT_STRING_TP,qbs_new_txt_len("\\",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,401,"android_methods.bas");}while(r); -S_33374:; -if ((*_SUB_CREATEANDROIDPROJECT_LONG_I)||new_error){ -if(qbevent){evnt(25062,402,"android_methods.bas");if(r)goto S_33374;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_TP2,qbs_left(_SUB_CREATEANDROIDPROJECT_STRING_TP,*_SUB_CREATEANDROIDPROJECT_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,403,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_II=*_SUB_CREATEANDROIDPROJECT_LONG_I+ 1 ; -if(!qbevent)break;evnt(25062,404,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_D,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_TP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,405,"android_methods.bas");}while(r); -S_33378:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_D)== 0 )))||new_error){ -if(qbevent){evnt(25062,406,"android_methods.bas");if(r)goto S_33378;} -do{ -sub_mkdir(_SUB_CREATEANDROIDPROJECT_STRING_D); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,407,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_ADDDIR(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE,_SUB_CREATEANDROIDPROJECT_STRING_TP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,408,"android_methods.bas");}while(r); -} -} -dl_continue_3721:; -} -dl_exit_3721:; -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_TP2,_SUB_CREATEANDROIDPROJECT_STRING_TP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,412,"android_methods.bas");}while(r); -S_33385:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CREATEANDROIDPROJECT_STRING_TP2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,413,"android_methods.bas");if(r)goto S_33385;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_D,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_TP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,414,"android_methods.bas");}while(r); -S_33387:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_D)== 0 )))||new_error){ -if(qbevent){evnt(25062,415,"android_methods.bas");if(r)goto S_33387;} -do{ -sub_mkdir(_SUB_CREATEANDROIDPROJECT_STRING_D); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,416,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_ADDDIR(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE,_SUB_CREATEANDROIDPROJECT_STRING_TP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,417,"android_methods.bas");}while(r); -} -} -S_33392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CREATEANDROIDPROJECT_STRING_P,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,421,"android_methods.bas");if(r)goto S_33392;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_P)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,421,"android_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,_SUB_CREATEANDROIDPROJECT_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,423,"android_methods.bas");}while(r); -S_33396:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH->len!= 0 )))||new_error){ -if(qbevent){evnt(25062,424,"android_methods.bas");if(r)goto S_33396;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,qbs_new_txt_len("/",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,424,"android_methods.bas");}while(r); -} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c dir /s /b ",17),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets\\*.* >internal\\temp\\files.txt",41)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,428,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\files.txt",23), 3 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,429,"android_methods.bas");}while(r); -S_33401:; -while((!(func_eof(*_SUB_CREATEANDROIDPROJECT_LONG_FH)))||new_error){ -if(qbevent){evnt(25062,430,"android_methods.bas");if(r)goto S_33401;} -do{ -tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3724; -sub_file_line_input_string(tmp_fileno,_SUB_CREATEANDROIDPROJECT_STRING_F); -if (new_error) goto skip3724; -skip3724: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,431,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_I=func_instr(NULL,_SUB_CREATEANDROIDPROJECT_STRING_F,qbs_new_txt_len("\\temp_assets\\",13),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,433,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_LF,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,qbs_right(_SUB_CREATEANDROIDPROJECT_STRING_F,_SUB_CREATEANDROIDPROJECT_STRING_F->len-*_SUB_CREATEANDROIDPROJECT_LONG_I- 12 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,434,"android_methods.bas");}while(r); -S_33405:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_F)))||new_error){ -if(qbevent){evnt(25062,435,"android_methods.bas");if(r)goto S_33405;} -do{ -SUB_CREATEANDROIDPROJECT_ADDDIR(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE,_SUB_CREATEANDROIDPROJECT_STRING_LF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,438,"android_methods.bas");}while(r); -}else{ -do{ -SUB_CREATEANDROIDPROJECT_ADDFILE(_SUB_CREATEANDROIDPROJECT_STRING_FILECODE,_SUB_CREATEANDROIDPROJECT_STRING_LF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,442,"android_methods.bas");}while(r); -} -dl_continue_3723:; -} -dl_exit_3723:; -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,445,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c xcopy /e ",16),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets ",13)),func_chr( 34 )),_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH),func_chr( 34 )),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,448,"android_methods.bas");}while(r); -fornext_continue_3717:; -} -fornext_exit_3717:; -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Adding $INSTALLFILES",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,455,"android_methods.bas");}while(r); -S_33415:; -fornext_value3727= 1 ; -fornext_finalvalue3727=FUNC_ARYLASTSTR(__ARRAY_STRING_INSTALLFILES); -fornext_step3727= 1 ; -if (fornext_step3727<0) fornext_step_negative3727=1; else fornext_step_negative3727=0; -if (new_error) goto fornext_error3727; -goto fornext_entrylabel3727; -while(1){ -fornext_value3727=fornext_step3727+(*_SUB_CREATEANDROIDPROJECT_LONG_F); -fornext_entrylabel3727: -*_SUB_CREATEANDROIDPROJECT_LONG_F=fornext_value3727; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3727){ -if (fornext_value3727fornext_finalvalue3727) break; -} -fornext_error3727:; -if(qbevent){evnt(25062,457,"android_methods.bas");if(r)goto S_33415;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_P,((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[array_check((*_SUB_CREATEANDROIDPROJECT_LONG_F)-__ARRAY_STRING_INSTALLFILES[4],__ARRAY_STRING_INSTALLFILES[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,459,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[array_check((*_SUB_CREATEANDROIDPROJECT_LONG_F)-__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4],__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,461,"android_methods.bas");}while(r); -S_33418:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH->len> 0 )))||new_error){ -if(qbevent){evnt(25062,462,"android_methods.bas");if(r)goto S_33418;} -S_33419:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH, 1 ),qbs_new_txt_len("/",1)))|(qbs_equal(qbs_right(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH, 1 ),qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(25062,463,"android_methods.bas");if(r)goto S_33419;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,qbs_left(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,_SUB_CREATEANDROIDPROJECT_STRING_BASPATH->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,463,"android_methods.bas");}while(r); -} -} -S_33423:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,465,"android_methods.bas");if(r)goto S_33423;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_BASPATH,qbs_new_txt_len(".",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,465,"android_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PATH,_SUB_CREATEANDROIDPROJECT_STRING_BASPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,467,"android_methods.bas");}while(r); -S_33427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CREATEANDROIDPROJECT_STRING_P,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,468,"android_methods.bas");if(r)goto S_33427;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_PATH,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_P)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,468,"android_methods.bas");}while(r); -} -S_33430:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\temp_assets",12)))))||new_error){ -if(qbevent){evnt(25062,471,"android_methods.bas");if(r)goto S_33430;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c rmdir /s /q ",19),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets",12)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,471,"android_methods.bas");}while(r); -} -do{ -sub_mkdir(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\temp_assets",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,472,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c copy ",12),func_chr( 34 )),_SUB_CREATEANDROIDPROJECT_STRING_PATH),func_chr( 34 )),qbs_new_txt_len(" ",1)),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets",12)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,475,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_P,((qbs*)(((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[array_check((*_SUB_CREATEANDROIDPROJECT_LONG_F)-__ARRAY_STRING_INSTALLFILESIN[4],__ARRAY_STRING_INSTALLFILESIN[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,479,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\assets",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,480,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_TP,_SUB_CREATEANDROIDPROJECT_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,483,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_II= 0 ; -if(!qbevent)break;evnt(25062,484,"android_methods.bas");}while(r); -S_33439:; -while((qbs_cleanup(qbs_tmp_base,func_instr(*_SUB_CREATEANDROIDPROJECT_LONG_II,_SUB_CREATEANDROIDPROJECT_STRING_TP,qbs_new_txt_len("\\",1),1)))||new_error){ -if(qbevent){evnt(25062,485,"android_methods.bas");if(r)goto S_33439;} -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_I=func_instr(*_SUB_CREATEANDROIDPROJECT_LONG_II,_SUB_CREATEANDROIDPROJECT_STRING_TP,qbs_new_txt_len("\\",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,486,"android_methods.bas");}while(r); -S_33441:; -if ((*_SUB_CREATEANDROIDPROJECT_LONG_I)||new_error){ -if(qbevent){evnt(25062,487,"android_methods.bas");if(r)goto S_33441;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_TP2,qbs_left(_SUB_CREATEANDROIDPROJECT_STRING_TP,*_SUB_CREATEANDROIDPROJECT_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,488,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_II=*_SUB_CREATEANDROIDPROJECT_LONG_I+ 1 ; -if(!qbevent)break;evnt(25062,489,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_D,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_TP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,490,"android_methods.bas");}while(r); -S_33445:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_D)== 0 )))||new_error){ -if(qbevent){evnt(25062,491,"android_methods.bas");if(r)goto S_33445;} -do{ -sub_mkdir(_SUB_CREATEANDROIDPROJECT_STRING_D); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,492,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_ADDDIR(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE,_SUB_CREATEANDROIDPROJECT_STRING_TP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,493,"android_methods.bas");}while(r); -} -} -dl_continue_3730:; -} -dl_exit_3730:; -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_TP2,_SUB_CREATEANDROIDPROJECT_STRING_TP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,497,"android_methods.bas");}while(r); -S_33452:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CREATEANDROIDPROJECT_STRING_TP2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,498,"android_methods.bas");if(r)goto S_33452;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_D,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_TP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,499,"android_methods.bas");}while(r); -S_33454:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_D)== 0 )))||new_error){ -if(qbevent){evnt(25062,500,"android_methods.bas");if(r)goto S_33454;} -do{ -sub_mkdir(_SUB_CREATEANDROIDPROJECT_STRING_D); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,501,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_ADDDIR(_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE,_SUB_CREATEANDROIDPROJECT_STRING_TP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,502,"android_methods.bas");}while(r); -} -} -S_33459:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CREATEANDROIDPROJECT_STRING_P,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25062,506,"android_methods.bas");if(r)goto S_33459;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_add(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH,qbs_new_txt_len("\\",1)),_SUB_CREATEANDROIDPROJECT_STRING_P)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,506,"android_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,_SUB_CREATEANDROIDPROJECT_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,508,"android_methods.bas");}while(r); -S_33463:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH->len!= 0 )))||new_error){ -if(qbevent){evnt(25062,509,"android_methods.bas");if(r)goto S_33463;} -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,qbs_new_txt_len("/",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,509,"android_methods.bas");}while(r); -} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c dir /s /b ",17),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets\\*.* >internal\\temp\\files.txt",41)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,513,"android_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\temp\\files.txt",23), 3 ,NULL,NULL,*_SUB_CREATEANDROIDPROJECT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,514,"android_methods.bas");}while(r); -S_33468:; -while((!(func_eof(*_SUB_CREATEANDROIDPROJECT_LONG_FH)))||new_error){ -if(qbevent){evnt(25062,515,"android_methods.bas");if(r)goto S_33468;} -do{ -tmp_fileno=*_SUB_CREATEANDROIDPROJECT_LONG_FH; -if (new_error) goto skip3733; -sub_file_line_input_string(tmp_fileno,_SUB_CREATEANDROIDPROJECT_STRING_F); -if (new_error) goto skip3733; -skip3733: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,516,"android_methods.bas");}while(r); -do{ -*_SUB_CREATEANDROIDPROJECT_LONG_I=func_instr(NULL,_SUB_CREATEANDROIDPROJECT_STRING_F,qbs_new_txt_len("\\temp_assets\\",13),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,518,"android_methods.bas");}while(r); -do{ -qbs_set(_SUB_CREATEANDROIDPROJECT_STRING_LF,qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_ANDROIDPATH,qbs_right(_SUB_CREATEANDROIDPROJECT_STRING_F,_SUB_CREATEANDROIDPROJECT_STRING_F->len-*_SUB_CREATEANDROIDPROJECT_LONG_I- 12 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,519,"android_methods.bas");}while(r); -S_33472:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(_SUB_CREATEANDROIDPROJECT_STRING_F)))||new_error){ -if(qbevent){evnt(25062,520,"android_methods.bas");if(r)goto S_33472;} -}else{ -do{ -SUB_CREATEANDROIDPROJECT_ADDFILE(_SUB_CREATEANDROIDPROJECT_STRING_FILECODE,_SUB_CREATEANDROIDPROJECT_STRING_LF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,526,"android_methods.bas");}while(r); -} -dl_continue_3732:; -} -dl_exit_3732:; -do{ -sub_close(*_SUB_CREATEANDROIDPROJECT_LONG_FH,1); -if(!qbevent)break;evnt(25062,529,"android_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c copy ",12),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets\\*.* ",17)),func_chr( 34 )),_SUB_CREATEANDROIDPROJECT_STRING_DESTPATH),func_chr( 34 )),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,532,"android_methods.bas");}while(r); -fornext_continue_3726:; -} -fornext_exit_3726:; -S_33480:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\temp_assets",12)))))||new_error){ -if(qbevent){evnt(25062,537,"android_methods.bas");if(r)goto S_33480;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c rmdir /s /q ",19),_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER),qbs_new_txt_len("\\temp_assets",12)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,537,"android_methods.bas");}while(r); -} -do{ -sub_open(qbs_add(_SUB_CREATEANDROIDPROJECT_STRING_PROJECTFOLDER,qbs_new_txt_len("\\app\\src\\main\\jni\\temp\\assets.txt",33)), 4 ,NULL,NULL, 1 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,539,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 1 ; -if (new_error) goto skip3735; -sub_file_print(tmp_fileno,_SUB_CREATEANDROIDPROJECT_STRING_DIRCODE, 0 , 0 , 1 ); -if (new_error) goto skip3735; -skip3735: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,540,"android_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 1 ; -if (new_error) goto skip3736; -sub_file_print(tmp_fileno,_SUB_CREATEANDROIDPROJECT_STRING_FILECODE, 0 , 0 , 1 ); -if (new_error) goto skip3736; -skip3736: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25062,541,"android_methods.bas");}while(r); -do{ -sub_close( 1 ,1); -if(!qbevent)break;evnt(25062,542,"android_methods.bas");}while(r); -do{ -SUB_CREATEANDROIDPROJECT_MESSAGE(qbs_new_txt_len("Android project generation complete",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25062,547,"android_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free128.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -int32 FUNC_IDE(int32*_FUNC_IDE_LONG_IGNORE){ +void SUB_INISETAUTOCOMMIT(int8*_SUB_INISETAUTOCOMMIT_BYTE_STATE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -121288,391 +125726,26 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_33488:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMMAND,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,4,"ide_methods.bas");if(r)goto S_33488;} do{ -*_FUNC_IDE_LONG_CMD=qbs_asc(__STRING_IDECOMMAND); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4,"ide_methods.bas");}while(r); -} -S_33491:; -if ((-(*_FUNC_IDE_LONG_CMD== 3 ))||new_error){ -if(qbevent){evnt(25066,5,"ide_methods.bas");if(r)goto S_33491;} -S_33492:; -if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,6,"ide_methods.bas");if(r)goto S_33492;} -S_33493:; -if (((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDESY))|(-(*__LONG_IDECOMPILEDLINE>(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ -if(qbevent){evnt(25066,7,"ide_methods.bas");if(r)goto S_33493;} -S_33494:; -if ((func__exit()& 1 )||new_error){ -if(qbevent){evnt(25066,8,"ide_methods.bas");if(r)goto S_33494;} +if(!qbevent)break;evnt(26302,445,"ini.bm");}while(r); +S_35530:; +if ((*_SUB_INISETAUTOCOMMIT_BYTE_STATE)||new_error){ +if(qbevent){evnt(26302,446,"ini.bm");if(r)goto S_35530;} do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(25066,8,"ide_methods.bas");}while(r); -} -S_33497:; -if ((-(*__LONG_IDEEXIT== 0 ))||new_error){ -if(qbevent){evnt(25066,9,"ide_methods.bas");if(r)goto S_33497;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,10,"ide_methods.bas");}while(r); -S_33499:; -if (((-(*__LONG_ICHANGED== 0 ))&(-(*__LONG_MB== 0 )))||new_error){ -if(qbevent){evnt(25066,11,"ide_methods.bas");if(r)goto S_33499;} -S_33500:; -if (((-(*__LONG_IDEAUTOLAYOUT!= 0 ))|(-(*__LONG_IDEAUTOINDENT!= 0 )))||new_error){ -if(qbevent){evnt(25066,15,"ide_methods.bas");if(r)goto S_33500;} -S_33501:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(25066,16,"ide_methods.bas");if(r)goto S_33501;} -do{ -*_FUNC_IDE_LONG_L=__STRING_LAYOUT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,19,"ide_methods.bas");}while(r); -S_33503:; -fornext_value3740= 1 ; -fornext_finalvalue3740=*_FUNC_IDE_LONG_L; -fornext_step3740= 1 ; -if (fornext_step3740<0) fornext_step_negative3740=1; else fornext_step_negative3740=0; -if (new_error) goto fornext_error3740; -goto fornext_entrylabel3740; -while(1){ -fornext_value3740=fornext_step3740+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3740: -*_FUNC_IDE_LONG_I=fornext_value3740; -if (fornext_step_negative3740){ -if (fornext_value3740fornext_finalvalue3740) break; -} -fornext_error3740:; -if(qbevent){evnt(25066,20,"ide_methods.bas");if(r)goto S_33503;} -S_33504:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ -if(qbevent){evnt(25066,21,"ide_methods.bas");if(r)goto S_33504;} -S_33505:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)== 32 )))||new_error){ -if(qbevent){evnt(25066,22,"ide_methods.bas");if(r)goto S_33505;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,23,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I; -if(!qbevent)break;evnt(25066,23,"ide_methods.bas");}while(r); +*__LONG_INIDISABLEAUTOCOMMIT= 0 ; +if(!qbevent)break;evnt(26302,447,"ini.bm");}while(r); }else{ do{ -*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,25,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,26,"ide_methods.bas");}while(r); +*__LONG_INIDISABLEAUTOCOMMIT= -1 ; +if(!qbevent)break;evnt(26302,449,"ini.bm");}while(r); } -do{ -goto fornext_exit_3739; -if(!qbevent)break;evnt(25066,28,"ide_methods.bas");}while(r); -} -fornext_continue_3739:; -} -fornext_exit_3739:; -S_33515:; -if ((*__LONG_IDEAUTOLAYOUT)||new_error){ -if(qbevent){evnt(25066,32,"ide_methods.bas");if(r)goto S_33515;} -do{ -qbs_set(_FUNC_IDE_STRING_LAYOUT2,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,33,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_I2= 1 ; -if(!qbevent)break;evnt(25066,33,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(25066,34,"ide_methods.bas");}while(r); -S_33519:; -fornext_value3743= 1 ; -fornext_finalvalue3743=__STRING_LAYOUT->len; -fornext_step3743= 1 ; -if (fornext_step3743<0) fornext_step_negative3743=1; else fornext_step_negative3743=0; -if (new_error) goto fornext_error3743; -goto fornext_entrylabel3743; -while(1){ -fornext_value3743=fornext_step3743+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3743: -*_FUNC_IDE_LONG_I=fornext_value3743; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3743){ -if (fornext_value3743fornext_finalvalue3743) break; -} -fornext_error3743:; -if(qbevent){evnt(25066,35,"ide_methods.bas");if(r)goto S_33519;} -do{ -*_FUNC_IDE_LONG_A=qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,36,"ide_methods.bas");}while(r); -S_33521:; -if ((-(*_FUNC_IDE_LONG_A== 34 ))||new_error){ -if(qbevent){evnt(25066,37,"ide_methods.bas");if(r)goto S_33521;} -do{ -*_FUNC_IDE_LONG_IGNORESP=*_FUNC_IDE_LONG_IGNORESP+ 1 ; -if(!qbevent)break;evnt(25066,38,"ide_methods.bas");}while(r); -S_33523:; -if ((-(*_FUNC_IDE_LONG_IGNORESP== 2 ))||new_error){ -if(qbevent){evnt(25066,38,"ide_methods.bas");if(r)goto S_33523;} -do{ -*_FUNC_IDE_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(25066,38,"ide_methods.bas");}while(r); -} -} -S_33527:; -if ((-(*_FUNC_IDE_LONG_IGNORESP== 0 ))||new_error){ -if(qbevent){evnt(25066,40,"ide_methods.bas");if(r)goto S_33527;} -S_33528:; -if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP_ASC))||new_error){ -if(qbevent){evnt(25066,41,"ide_methods.bas");if(r)goto S_33528;} -do{ -tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ -tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(25066,41,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(25066,41,"ide_methods.bas");}while(r); -do{ -goto LABEL_SKIPCHAR; -if(!qbevent)break;evnt(25066,41,"ide_methods.bas");}while(r); -} -S_33533:; -if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP2_ASC))||new_error){ -if(qbevent){evnt(25066,42,"ide_methods.bas");if(r)goto S_33533;} -do{ -goto LABEL_SKIPCHAR; -if(!qbevent)break;evnt(25066,42,"ide_methods.bas");}while(r); -} -} -do{ -tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ -tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ -tmp_long=*_FUNC_IDE_LONG_A; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(25066,44,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(25066,44,"ide_methods.bas");}while(r); -LABEL_SKIPCHAR:; -if(qbevent){evnt(25066,45,"ide_methods.bas");r=0;} -fornext_continue_3742:; -} -fornext_exit_3742:; -do{ -qbs_set(__STRING_LAYOUT,qbs_left(_FUNC_IDE_STRING_LAYOUT2,*_FUNC_IDE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,47,"ide_methods.bas");}while(r); -} -S_33542:; -if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ -if(qbevent){evnt(25066,50,"ide_methods.bas");if(r)goto S_33542;} -do{ -*_FUNC_IDE_LONG_INDENT= 0 ; -if(!qbevent)break;evnt(25066,53,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,54,"ide_methods.bas");}while(r); -S_33545:; -fornext_value3747= 1 ; -fornext_finalvalue3747=*_FUNC_IDE_LONG_L; -fornext_step3747= 1 ; -if (fornext_step3747<0) fornext_step_negative3747=1; else fornext_step_negative3747=0; -if (new_error) goto fornext_error3747; -goto fornext_entrylabel3747; -while(1){ -fornext_value3747=fornext_step3747+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3747: -*_FUNC_IDE_LONG_I=fornext_value3747; -if (fornext_step_negative3747){ -if (fornext_value3747fornext_finalvalue3747) break; -} -fornext_error3747:; -if(qbevent){evnt(25066,55,"ide_methods.bas");if(r)goto S_33545;} -S_33546:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ -if(qbevent){evnt(25066,56,"ide_methods.bas");if(r)goto S_33546;} -do{ -*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,57,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3746; -if(!qbevent)break;evnt(25066,58,"ide_methods.bas");}while(r); -} -fornext_continue_3746:; -} -fornext_exit_3746:; -do{ -qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,61,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,63,"ide_methods.bas");}while(r); -} -S_33555:; -if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ -if(qbevent){evnt(25066,66,"ide_methods.bas");if(r)goto S_33555;} -do{ -*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,68,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,69,"ide_methods.bas");}while(r); -S_33558:; -fornext_value3750= 1 ; -fornext_finalvalue3750=*_FUNC_IDE_LONG_L; -fornext_step3750= 1 ; -if (fornext_step3750<0) fornext_step_negative3750=1; else fornext_step_negative3750=0; -if (new_error) goto fornext_error3750; -goto fornext_entrylabel3750; -while(1){ -fornext_value3750=fornext_step3750+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3750: -*_FUNC_IDE_LONG_I=fornext_value3750; -if (fornext_step_negative3750){ -if (fornext_value3750fornext_finalvalue3750) break; -} -fornext_error3750:; -if(qbevent){evnt(25066,70,"ide_methods.bas");if(r)goto S_33558;} -S_33559:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ -if(qbevent){evnt(25066,71,"ide_methods.bas");if(r)goto S_33559;} -do{ -qbs_set(__STRING_LAYOUT,qbs_right(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_L-*_FUNC_IDE_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,72,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3749; -if(!qbevent)break;evnt(25066,73,"ide_methods.bas");}while(r); -} -fornext_continue_3749:; -} -fornext_exit_3749:; -} -S_33565:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(25066,78,"ide_methods.bas");if(r)goto S_33565;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE_STRING_INDENT,__STRING_LAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,79,"ide_methods.bas");}while(r); -S_33567:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ -if(qbevent){evnt(25066,80,"ide_methods.bas");if(r)goto S_33567;} -do{ -SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,81,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; -if(!qbevent)break;evnt(25066,90,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,91,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_IDE= 4 ; -if(!qbevent)break;evnt(25066,92,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,93,"ide_methods.bas");}while(r); -S_33577:; -if ((-(*__LONG_IDEAUTORUN!= 0 ))||new_error){ -if(qbevent){evnt(25066,96,"ide_methods.bas");if(r)goto S_33577;} -S_33578:; -if ((*__LONG_PREPASS)||new_error){ -if(qbevent){evnt(25066,97,"ide_methods.bas");if(r)goto S_33578;} -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3752=qbr(floor((*__LONG_IDECOMPILEDLINE* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,98,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,99,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3754=qbr(floor(((*__LONG_IDEN+*__LONG_IDECOMPILEDLINE)* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,101,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,102,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDEINFO,qbs_add(func_chr( 0 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,104,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,106,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,108,"ide_methods.bas");}while(r); -} -S_33590:; -if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(25066,110,"ide_methods.bas");if(r)goto S_33590;} -do{ -*__LONG_ICHECKLATER= 1 ; -if(!qbevent)break;evnt(25066,110,"ide_methods.bas");}while(r); -} -} -} -}else{ -S_33596:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM!= 3 ))|(qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19)))))||new_error){ -if(qbevent){evnt(25066,114,"ide_methods.bas");if(r)goto S_33596;} -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,114,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,115,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE_LONG_IDE=FUNC_IDE2(&(pass3756= 0 )); -if(!qbevent)break;evnt(25066,119,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free129.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_IDE_LONG_IDE; } -int32 FUNC_IDE2(int32*_FUNC_IDE2_LONG_IGNORE){ +void SUB_INILOAD(qbs*_SUB_INILOAD_STRING_FILE){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -121686,1280 +125759,2434 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,123,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,454,"ini.bm");}while(r); do{ -if(!qbevent)break;evnt(25066,124,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,455,"ini.bm");}while(r); do{ -if(!qbevent)break;evnt(25066,125,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,456,"ini.bm");}while(r); do{ -if(!qbevent)break;evnt(25066,126,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26302,457,"ini.bm");}while(r); do{ -if(!qbevent)break;evnt(25066,127,"ide_methods.bas");}while(r); +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26302,460,"ini.bm");}while(r); +S_35540:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_INILOAD_STRING_FILE,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_CURRENTINIFILENAME,_SUB_INILOAD_STRING_FILE))))||new_error){ +if(qbevent){evnt(26302,462,"ini.bm");if(r)goto S_35540;} do{ -if(!qbevent)break;evnt(25066,128,"ide_methods.bas");}while(r); +qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,462,"ini.bm");}while(r); +} +S_35543:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_INIFORCERELOAD&(-(__STRING_CURRENTINIFILENAME->len> 0 ))))||new_error){ +if(qbevent){evnt(26302,464,"ini.bm");if(r)goto S_35543;} do{ -if(!qbevent)break;evnt(25066,129,"ide_methods.bas");}while(r); +qbs_set(_SUB_INILOAD_STRING_FILE,__STRING_CURRENTINIFILENAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,465,"ini.bm");}while(r); do{ -if(!qbevent)break;evnt(25066,130,"ide_methods.bas");}while(r); +qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,466,"ini.bm");}while(r); +} +S_35547:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26302,471,"ini.bm");if(r)goto S_35547;} +S_35548:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_INILOAD_STRING_FILE)))||new_error){ +if(qbevent){evnt(26302,473,"ini.bm");if(r)goto S_35548;} do{ -if(!qbevent)break;evnt(25066,131,"ide_methods.bas");}while(r); +qbs_set(__STRING_CURRENTINIFILENAME,_SUB_INILOAD_STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,474,"ini.bm");}while(r); do{ -if(!qbevent)break;evnt(25066,132,"ide_methods.bas");}while(r); +*_SUB_INILOAD_INTEGER_FILENUM=func_freefile(); +if(!qbevent)break;evnt(26302,477,"ini.bm");}while(r); +do{ +sub_open(__STRING_CURRENTINIFILENAME, 2 ,NULL,NULL,*_SUB_INILOAD_INTEGER_FILENUM,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,478,"ini.bm");}while(r); +do{ +*__ULONG_CURRENTINIFILELOF=func_lof(*_SUB_INILOAD_INTEGER_FILENUM); +if(!qbevent)break;evnt(26302,479,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INIWHOLEFILE,func_space(*__ULONG_CURRENTINIFILELOF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,480,"ini.bm");}while(r); +do{ +sub_get2(*_SUB_INILOAD_INTEGER_FILENUM, 1 ,__STRING_INIWHOLEFILE,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,481,"ini.bm");}while(r); +do{ +sub_close(*_SUB_INILOAD_INTEGER_FILENUM,1); +if(!qbevent)break;evnt(26302,482,"ini.bm");}while(r); +S_35556:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_INIWHOLEFILE,func_chr( 13 ),0)))||new_error){ +if(qbevent){evnt(26302,485,"ini.bm");if(r)goto S_35556;} +do{ +qbs_set(__STRING_INILF,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,485,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_INILF,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,485,"ini.bm");}while(r); +} +}else{ +LABEL_INIFILENOTFOUND:; +if(qbevent){evnt(26302,487,"ini.bm");r=0;} +do{ +*__LONG_INICODE= 1 ; +if(!qbevent)break;evnt(26302,488,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INILF,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,493,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26302,495,"ini.bm");}while(r); +} +S_35566:; +}else{ +if (qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_CURRENTINIFILENAME)))){ +if(qbevent){evnt(26302,497,"ini.bm");if(r)goto S_35566;} +do{ +qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26302,498,"ini.bm");}while(r); +do{ +goto LABEL_INIFILENOTFOUND; +if(!qbevent)break;evnt(26302,499,"ini.bm");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free130.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDE(int32*_FUNC_IDE_LONG_IGNORE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data131.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDE_LONG_IGNORE=*_FUNC_IDE_LONG_IGNORE; +if(!qbevent)break;evnt(26307,4,"ide_methods.bas");}while(r); +S_35571:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMMAND,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,5,"ide_methods.bas");if(r)goto S_35571;} +do{ +*_FUNC_IDE_LONG_CMD=qbs_asc(__STRING_IDECOMMAND); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5,"ide_methods.bas");}while(r); +} +S_35574:; +if ((-(*_FUNC_IDE_LONG_CMD== 3 ))||new_error){ +if(qbevent){evnt(26307,6,"ide_methods.bas");if(r)goto S_35574;} +S_35575:; +if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,7,"ide_methods.bas");if(r)goto S_35575;} +S_35576:; +if (((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDESY))|(-(*__LONG_IDECOMPILEDLINE>(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ +if(qbevent){evnt(26307,8,"ide_methods.bas");if(r)goto S_35576;} +S_35577:; +if ((func__exit()& 1 )||new_error){ +if(qbevent){evnt(26307,9,"ide_methods.bas");if(r)goto S_35577;} +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26307,9,"ide_methods.bas");}while(r); +} +S_35580:; +if ((-(*__LONG_IDEEXIT== 0 ))||new_error){ +if(qbevent){evnt(26307,10,"ide_methods.bas");if(r)goto S_35580;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,11,"ide_methods.bas");}while(r); +S_35582:; +if (((-(*__LONG_ICHANGED== 0 ))&(-(*__LONG_MB== 0 )))||new_error){ +if(qbevent){evnt(26307,12,"ide_methods.bas");if(r)goto S_35582;} +S_35583:; +if (((-(*__LONG_IDEAUTOLAYOUT!= 0 ))|(-(*__LONG_IDEAUTOINDENT!= 0 )))||new_error){ +if(qbevent){evnt(26307,16,"ide_methods.bas");if(r)goto S_35583;} +S_35584:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(26307,17,"ide_methods.bas");if(r)goto S_35584;} +do{ +*_FUNC_IDE_LONG_L=__STRING_LAYOUT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,20,"ide_methods.bas");}while(r); +S_35586:; +fornext_value3922= 1 ; +fornext_finalvalue3922=*_FUNC_IDE_LONG_L; +fornext_step3922= 1 ; +if (fornext_step3922<0) fornext_step_negative3922=1; else fornext_step_negative3922=0; +if (new_error) goto fornext_error3922; +goto fornext_entrylabel3922; +while(1){ +fornext_value3922=fornext_step3922+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3922: +*_FUNC_IDE_LONG_I=fornext_value3922; +if (fornext_step_negative3922){ +if (fornext_value3922fornext_finalvalue3922) break; +} +fornext_error3922:; +if(qbevent){evnt(26307,21,"ide_methods.bas");if(r)goto S_35586;} +S_35587:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ +if(qbevent){evnt(26307,22,"ide_methods.bas");if(r)goto S_35587;} +S_35588:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)== 32 )))||new_error){ +if(qbevent){evnt(26307,23,"ide_methods.bas");if(r)goto S_35588;} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,24,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I; +if(!qbevent)break;evnt(26307,24,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; +if(!qbevent)break;evnt(26307,26,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,27,"ide_methods.bas");}while(r); +} +do{ +goto fornext_exit_3921; +if(!qbevent)break;evnt(26307,29,"ide_methods.bas");}while(r); +} +fornext_continue_3921:; +} +fornext_exit_3921:; +S_35598:; +if ((*__LONG_IDEAUTOLAYOUT)||new_error){ +if(qbevent){evnt(26307,33,"ide_methods.bas");if(r)goto S_35598;} +do{ +qbs_set(_FUNC_IDE_STRING_LAYOUT2,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,34,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_I2= 1 ; +if(!qbevent)break;evnt(26307,34,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_IGNORESP= 0 ; +if(!qbevent)break;evnt(26307,35,"ide_methods.bas");}while(r); +S_35602:; +fornext_value3925= 1 ; +fornext_finalvalue3925=__STRING_LAYOUT->len; +fornext_step3925= 1 ; +if (fornext_step3925<0) fornext_step_negative3925=1; else fornext_step_negative3925=0; +if (new_error) goto fornext_error3925; +goto fornext_entrylabel3925; +while(1){ +fornext_value3925=fornext_step3925+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3925: +*_FUNC_IDE_LONG_I=fornext_value3925; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3925){ +if (fornext_value3925fornext_finalvalue3925) break; +} +fornext_error3925:; +if(qbevent){evnt(26307,36,"ide_methods.bas");if(r)goto S_35602;} +do{ +*_FUNC_IDE_LONG_A=qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,37,"ide_methods.bas");}while(r); +S_35604:; +if ((-(*_FUNC_IDE_LONG_A== 34 ))||new_error){ +if(qbevent){evnt(26307,38,"ide_methods.bas");if(r)goto S_35604;} +do{ +*_FUNC_IDE_LONG_IGNORESP=*_FUNC_IDE_LONG_IGNORESP+ 1 ; +if(!qbevent)break;evnt(26307,39,"ide_methods.bas");}while(r); +S_35606:; +if ((-(*_FUNC_IDE_LONG_IGNORESP== 2 ))||new_error){ +if(qbevent){evnt(26307,39,"ide_methods.bas");if(r)goto S_35606;} +do{ +*_FUNC_IDE_LONG_IGNORESP= 0 ; +if(!qbevent)break;evnt(26307,39,"ide_methods.bas");}while(r); +} +} +S_35610:; +if ((-(*_FUNC_IDE_LONG_IGNORESP== 0 ))||new_error){ +if(qbevent){evnt(26307,41,"ide_methods.bas");if(r)goto S_35610;} +S_35611:; +if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP_ASC))||new_error){ +if(qbevent){evnt(26307,42,"ide_methods.bas");if(r)goto S_35611;} +do{ +tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ +tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,42,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; +if(!qbevent)break;evnt(26307,42,"ide_methods.bas");}while(r); +do{ +goto LABEL_SKIPCHAR; +if(!qbevent)break;evnt(26307,42,"ide_methods.bas");}while(r); +} +S_35616:; +if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP2_ASC))||new_error){ +if(qbevent){evnt(26307,43,"ide_methods.bas");if(r)goto S_35616;} +do{ +goto LABEL_SKIPCHAR; +if(!qbevent)break;evnt(26307,43,"ide_methods.bas");}while(r); +} +} +do{ +tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ +tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ +tmp_long=*_FUNC_IDE_LONG_A; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,45,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; +if(!qbevent)break;evnt(26307,45,"ide_methods.bas");}while(r); +LABEL_SKIPCHAR:; +if(qbevent){evnt(26307,46,"ide_methods.bas");r=0;} +fornext_continue_3924:; +} +fornext_exit_3924:; +do{ +qbs_set(__STRING_LAYOUT,qbs_left(_FUNC_IDE_STRING_LAYOUT2,*_FUNC_IDE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,48,"ide_methods.bas");}while(r); +} +S_35625:; +if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ +if(qbevent){evnt(26307,51,"ide_methods.bas");if(r)goto S_35625;} +do{ +*_FUNC_IDE_LONG_INDENT= 0 ; +if(!qbevent)break;evnt(26307,54,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,55,"ide_methods.bas");}while(r); +S_35628:; +fornext_value3929= 1 ; +fornext_finalvalue3929=*_FUNC_IDE_LONG_L; +fornext_step3929= 1 ; +if (fornext_step3929<0) fornext_step_negative3929=1; else fornext_step_negative3929=0; +if (new_error) goto fornext_error3929; +goto fornext_entrylabel3929; +while(1){ +fornext_value3929=fornext_step3929+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3929: +*_FUNC_IDE_LONG_I=fornext_value3929; +if (fornext_step_negative3929){ +if (fornext_value3929fornext_finalvalue3929) break; +} +fornext_error3929:; +if(qbevent){evnt(26307,56,"ide_methods.bas");if(r)goto S_35628;} +S_35629:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ +if(qbevent){evnt(26307,57,"ide_methods.bas");if(r)goto S_35629;} +do{ +*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; +if(!qbevent)break;evnt(26307,58,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_3928; +if(!qbevent)break;evnt(26307,59,"ide_methods.bas");}while(r); +} +fornext_continue_3928:; +} +fornext_exit_3928:; +do{ +qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,62,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,64,"ide_methods.bas");}while(r); +} +S_35638:; +if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ +if(qbevent){evnt(26307,67,"ide_methods.bas");if(r)goto S_35638;} +do{ +*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,69,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,70,"ide_methods.bas");}while(r); +S_35641:; +fornext_value3932= 1 ; +fornext_finalvalue3932=*_FUNC_IDE_LONG_L; +fornext_step3932= 1 ; +if (fornext_step3932<0) fornext_step_negative3932=1; else fornext_step_negative3932=0; +if (new_error) goto fornext_error3932; +goto fornext_entrylabel3932; +while(1){ +fornext_value3932=fornext_step3932+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3932: +*_FUNC_IDE_LONG_I=fornext_value3932; +if (fornext_step_negative3932){ +if (fornext_value3932fornext_finalvalue3932) break; +} +fornext_error3932:; +if(qbevent){evnt(26307,71,"ide_methods.bas");if(r)goto S_35641;} +S_35642:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ +if(qbevent){evnt(26307,72,"ide_methods.bas");if(r)goto S_35642;} +do{ +qbs_set(__STRING_LAYOUT,qbs_right(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_L-*_FUNC_IDE_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,73,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_3931; +if(!qbevent)break;evnt(26307,74,"ide_methods.bas");}while(r); +} +fornext_continue_3931:; +} +fornext_exit_3931:; +} +S_35648:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(26307,79,"ide_methods.bas");if(r)goto S_35648;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE_STRING_INDENT,__STRING_LAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,80,"ide_methods.bas");}while(r); +S_35650:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ +if(qbevent){evnt(26307,81,"ide_methods.bas");if(r)goto S_35650;} +do{ +SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,82,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; +if(!qbevent)break;evnt(26307,91,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,92,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_IDE= 4 ; +if(!qbevent)break;evnt(26307,93,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,94,"ide_methods.bas");}while(r); +S_35660:; +if ((-(*__LONG_IDEAUTORUN!= 0 ))||new_error){ +if(qbevent){evnt(26307,97,"ide_methods.bas");if(r)goto S_35660;} +S_35661:; +if ((*__LONG_PREPASS)||new_error){ +if(qbevent){evnt(26307,98,"ide_methods.bas");if(r)goto S_35661;} +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3934=qbr(floor((*__LONG_IDECOMPILEDLINE* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,99,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,100,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3936=qbr(floor(((*__LONG_IDEN+*__LONG_IDECOMPILEDLINE)* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,102,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,103,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDEINFO,qbs_add(func_chr( 0 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,105,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,118,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,120,"ide_methods.bas");}while(r); +} +S_35673:; +if ((*__LONG_ICHANGED)||new_error){ +if(qbevent){evnt(26307,122,"ide_methods.bas");if(r)goto S_35673;} +do{ +*__LONG_ICHECKLATER= 1 ; +if(!qbevent)break;evnt(26307,122,"ide_methods.bas");}while(r); +} +} +} +}else{ +S_35679:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM!= 3 ))|(qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19)))))||new_error){ +if(qbevent){evnt(26307,126,"ide_methods.bas");if(r)goto S_35679;} +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,126,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,127,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE_LONG_IDE=FUNC_IDE2(&(pass3938= 0 )); +if(!qbevent)break;evnt(26307,131,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free131.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDE_LONG_IDE; +} +int32 FUNC_IDE2(int32*_FUNC_IDE2_LONG_IGNORE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data132.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,135,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,136,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,137,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,138,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,139,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,140,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,141,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,142,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,143,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,144,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,145,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,146,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,147,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IGNORE=*_FUNC_IDE2_LONG_IGNORE; +if(!qbevent)break;evnt(26307,149,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*().",16))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,135,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,151,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_C,__STRING_IDECOMMAND); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,137,"ide_methods.bas");}while(r); -S_33615:; +if(!qbevent)break;evnt(26307,153,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26307,154,"ide_methods.bas");}while(r); +LABEL_IDEERRORMESSAGE:; +if(qbevent){evnt(26307,156,"ide_methods.bas");r=0;} +S_35703:; if ((*__LONG_IDEERROR)||new_error){ -if(qbevent){evnt(25066,140,"ide_methods.bas");if(r)goto S_33615;} +if(qbevent){evnt(26307,158,"ide_methods.bas");if(r)goto S_35703;} +S_35704:; +if ((*__LONG_IDEDEBUGMODE)||new_error){ +if(qbevent){evnt(26307,159,"ide_methods.bas");if(r)goto S_35704;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,160,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,160,"ide_methods.bas");}while(r); +} do{ *_FUNC_IDE2_LONG_MUSTDISPLAY= 1 ; -if(!qbevent)break;evnt(25066,141,"ide_methods.bas");}while(r); -S_33617:; +if(!qbevent)break;evnt(26307,162,"ide_methods.bas");}while(r); +S_35709:; if ((-(*__LONG_IDEERROR== 1 ))||new_error){ -if(qbevent){evnt(25066,142,"ide_methods.bas");if(r)goto S_33617;} +if(qbevent){evnt(26307,163,"ide_methods.bas");if(r)goto S_35709;} do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("IDE module error",16)); +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Internal IDE error",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,142,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,163,"ide_methods.bas");}while(r); } -S_33620:; +S_35712:; if ((-(*__LONG_IDEERROR== 2 ))||new_error){ -if(qbevent){evnt(25066,143,"ide_methods.bas");if(r)goto S_33620;} +if(qbevent){evnt(26307,164,"ide_methods.bas");if(r)goto S_35712;} do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("File not found",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,143,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,164,"ide_methods.bas");}while(r); } -S_33623:; +S_35715:; if ((-(*__LONG_IDEERROR== 3 ))||new_error){ -if(qbevent){evnt(25066,144,"ide_methods.bas");if(r)goto S_33623;} +if(qbevent){evnt(26307,165,"ide_methods.bas");if(r)goto S_35715;} do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("File access error",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,144,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,165,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,144,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,165,"ide_methods.bas");}while(r); } -S_33627:; +S_35719:; if ((-(*__LONG_IDEERROR== 4 ))||new_error){ -if(qbevent){evnt(25066,145,"ide_methods.bas");if(r)goto S_33627;} +if(qbevent){evnt(26307,166,"ide_methods.bas");if(r)goto S_35719;} do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Path not found",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,145,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,166,"ide_methods.bas");}while(r); +} +S_35722:; +if ((-(*__LONG_IDEERROR== 5 ))||new_error){ +if(qbevent){evnt(26307,167,"ide_methods.bas");if(r)goto S_35722;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot create folder",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,167,"ide_methods.bas");}while(r); +} +S_35725:; +if ((-(*__LONG_IDEERROR== 6 ))||new_error){ +if(qbevent){evnt(26307,168,"ide_methods.bas");if(r)goto S_35725;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot save file",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,168,"ide_methods.bas");}while(r); +} +S_35728:; +if ((-(*__LONG_IDEERROR== -1 ))||new_error){ +if(qbevent){evnt(26307,169,"ide_methods.bas");if(r)goto S_35728;} +do{ +goto LABEL_ERRORREPORTDONE; +if(!qbevent)break;evnt(26307,169,"ide_methods.bas");}while(r); } do{ *__INTEGER_QBERRORCODE=get_error_err(); -if(!qbevent)break;evnt(25066,147,"ide_methods.bas");}while(r); -S_33631:; +if(!qbevent)break;evnt(26307,171,"ide_methods.bas");}while(r); +S_35732:; if ((*__INTEGER_QBERRORCODE)||new_error){ -if(qbevent){evnt(25066,148,"ide_methods.bas");if(r)goto S_33631;} +if(qbevent){evnt(26307,172,"ide_methods.bas");if(r)goto S_35732;} do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_new_txt_len("Error ",6),FUNC_STR2(&(pass3757=*__INTEGER_QBERRORCODE)))); +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_new_txt_len("Error ",6),FUNC_STR2(&(pass3939=*__INTEGER_QBERRORCODE)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,149,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,173,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,151,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,175,"ide_methods.bas");}while(r); } -S_33636:; -if ((((-(*__LONG_IDEERROR== 2 ))|(-(*__LONG_IDEERROR== 3 ))|(-(*__LONG_IDEERROR== 4 ))))||new_error){ -if(qbevent){evnt(25066,154,"ide_methods.bas");if(r)goto S_33636;} +S_35737:; +if (((-(*__LONG_IDEERROR> 1 )))||new_error){ +if(qbevent){evnt(26307,178,"ide_methods.bas");if(r)goto S_35737;} do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(" (",2)),FUNC_STR2(&(pass3758=func__errorline()))),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass3759=func__inclerrorline()))),qbs_new_txt_len(")",1))); +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(" (",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,156,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,180,"ide_methods.bas");}while(r); +S_35739:; +if (((-(func__errorline()> 0 ))|(-(func__inclerrorline()> 0 )))||new_error){ +if(qbevent){evnt(26307,181,"ide_methods.bas");if(r)goto S_35739;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,FUNC_STR2(&(pass3940=func__errorline()))),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass3941=func__inclerrorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,182,"ide_methods.bas");}while(r); +} +S_35742:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ +if(qbevent){evnt(26307,184,"ide_methods.bas");if(r)goto S_35742;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("-",1)),func_mid(__STRING_AUTOBUILDMSG, 10 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,184,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,185,"ide_methods.bas");}while(r); +S_35746:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error ()",8))))||new_error){ +if(qbevent){evnt(26307,186,"ide_methods.bas");if(r)goto S_35746;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,186,"ide_methods.bas");}while(r); +} +S_35749:; +if ((-(*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT== -1 ))||new_error){ +if(qbevent){evnt(26307,187,"ide_methods.bas");if(r)goto S_35749;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,189,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(".",1)),func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("Remove broken links from recent files?",38)),qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,190,"ide_methods.bas");}while(r); +S_35752:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,191,"ide_methods.bas");if(r)goto S_35752;} +do{ +return_point[next_return_point++]=8; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLEANUPRECENTLIST; +RETURN_8:; +if(!qbevent)break;evnt(26307,192,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,194,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,194,"ide_methods.bas");}while(r); +do{ +goto LABEL_ERRORREPORTDONE; +if(!qbevent)break;evnt(26307,195,"ide_methods.bas");}while(r); +} }else{ do{ *_FUNC_IDE2_LONG_INCLERRORLINE=func__inclerrorline(); -if(!qbevent)break;evnt(25066,159,"ide_methods.bas");}while(r); -S_33640:; +if(!qbevent)break;evnt(26307,199,"ide_methods.bas");}while(r); +S_35761:; if ((*_FUNC_IDE2_LONG_INCLERRORLINE)||new_error){ -if(qbevent){evnt(25066,160,"ide_methods.bas");if(r)goto S_33640;} +if(qbevent){evnt(26307,200,"ide_methods.bas");if(r)goto S_35761;} do{ qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(module: ",9)),FUNC_REMOVEFILEEXTENSION(qbs_left(func__inclerrorfile(), 60 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,162,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,202,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", on line: ",11)),FUNC_STR2(_FUNC_IDE2_LONG_INCLERRORLINE)),qbs_new_txt_len(")",1))); +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", on line: ",11)),FUNC_STR2(_FUNC_IDE2_LONG_INCLERRORLINE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,163,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,203,"ide_methods.bas");}while(r); +S_35764:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ +if(qbevent){evnt(26307,204,"ide_methods.bas");if(r)goto S_35764;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", ",2)),func_mid(__STRING_AUTOBUILDMSG, 10 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,204,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,205,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(on line: ",10)),FUNC_STR2(&(pass3760=func__errorline()))),qbs_new_txt_len(")",1))); +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(on line: ",10)),FUNC_STR2(&(pass3944=func__errorline())))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,165,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,207,"ide_methods.bas");}while(r); +S_35770:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ +if(qbevent){evnt(26307,208,"ide_methods.bas");if(r)goto S_35770;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", ",2)),func_mid(__STRING_AUTOBUILDMSG, 10 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,208,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,209,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,169,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,213,"ide_methods.bas");}while(r); do{ -SUB_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,_FUNC_IDE2_STRING_ERRORAT); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,170,"ide_methods.bas");}while(r); -} -S_33650:; -if ((((-(*__LONG_IDEERROR== 2 ))|(-(*__LONG_IDEERROR== 3 ))|(-(*__LONG_IDEERROR== 4 )))&(-(*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT== -1 )))||new_error){ -if(qbevent){evnt(25066,173,"ide_methods.bas");if(r)goto S_33650;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,175,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("INVALID",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,176,"ide_methods.bas");}while(r); -S_33653:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,177,"ide_methods.bas");if(r)goto S_33653;} -do{ -return_point[next_return_point++]=5; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLEANUPRECENTLIST; -RETURN_5:; -if(!qbevent)break;evnt(25066,178,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,180,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,180,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,180,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,180,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,214,"ide_methods.bas");}while(r); +LABEL_ERRORREPORTDONE:; +if(qbevent){evnt(26307,215,"ide_methods.bas");r=0;} } do{ *__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(25066,183,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,218,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; -if(!qbevent)break;evnt(25066,184,"ide_methods.bas");}while(r); -S_33663:; +if(!qbevent)break;evnt(26307,219,"ide_methods.bas");}while(r); +S_35781:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 12 ))))||new_error){ -if(qbevent){evnt(25066,186,"ide_methods.bas");if(r)goto S_33663;} +if(qbevent){evnt(26307,221,"ide_methods.bas");if(r)goto S_35781;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,187,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,222,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,188,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,223,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass3947= 0 )); +if(!qbevent)break;evnt(26307,224,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3762; -makefit(tqbs); -qbs_print(tqbs,0); -skip3762: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3763; -makefit(tqbs); -qbs_print(tqbs,0); -skip3763: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3764; -makefit(tqbs); -qbs_print(tqbs,0); -skip3764: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,189,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3765= 1 )); -if(!qbevent)break;evnt(25066,191,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3948= 1 )); +if(!qbevent)break;evnt(26307,226,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; -if(!qbevent)break;evnt(25066,192,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,227,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(25066,192,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,227,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=6; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; -RETURN_6:; -if(!qbevent)break;evnt(25066,192,"ide_methods.bas");}while(r); +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,227,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; -if(!qbevent)break;evnt(25066,192,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,227,"ide_methods.bas");}while(r); do{ qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,228,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,qbr((*__LONG_IDEWX- 8 )/ ((long double)( 2 ))),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,193,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Status ",8)); -if (new_error) goto skip3766; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3766: -qbs_free(tqbs); +sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,228,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,194,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,196,"ide_methods.bas");}while(r); -S_33683:; +if(!qbevent)break;evnt(26307,229,"ide_methods.bas");}while(r); +S_35793:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,197,"ide_methods.bas");if(r)goto S_33683;} +if(qbevent){evnt(26307,231,"ide_methods.bas");if(r)goto S_35793;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating executable file named ",31),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3))); -if (new_error) goto skip3767; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3767: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating executable file named ",31),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,198,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,232,"ide_methods.bas");}while(r); }else{ do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating .EXE file named ",25),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3))); -if (new_error) goto skip3768; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3768: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating .EXE file named ",25),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,200,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,234,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,237,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDE2= 9 ; -if(!qbevent)break;evnt(25066,204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,238,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,238,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,205,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,239,"ide_methods.bas");}while(r); } -S_33693:; +S_35803:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 100 ))))||new_error){ -if(qbevent){evnt(25066,208,"ide_methods.bas");if(r)goto S_33693;} +if(qbevent){evnt(26307,242,"ide_methods.bas");if(r)goto S_35803;} do{ *__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; -if(!qbevent)break;evnt(25066,209,"ide_methods.bas");}while(r); -S_33695:; +if(!qbevent)break;evnt(26307,243,"ide_methods.bas");}while(r); +S_35805:; if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,210,"ide_methods.bas");if(r)goto S_33695;} +if(qbevent){evnt(26307,244,"ide_methods.bas");if(r)goto S_35805;} do{ qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,211,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,245,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,212,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,246,"ide_methods.bas");}while(r); }else{ do{ qbs_set(__STRING_IDECOMPILEDLINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,214,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,248,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,215,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,249,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,251,"ide_methods.bas");}while(r); } -S_33704:; +S_35814:; if ((-(*__LONG_IDELAUNCHED== 0 ))||new_error){ -if(qbevent){evnt(25066,220,"ide_methods.bas");if(r)goto S_33704;} +if(qbevent){evnt(26307,254,"ide_methods.bas");if(r)goto S_35814;} do{ *__LONG_IDELAUNCHED= 1 ; -if(!qbevent)break;evnt(25066,221,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,255,"ide_methods.bas");}while(r); do{ -qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,3); -if(!qbevent)break;evnt(25066,223,"ide_methods.bas");}while(r); +qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); +if(!qbevent)break;evnt(26307,257,"ide_methods.bas");}while(r); +S_35817:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26307,258,"ide_methods.bas");if(r)goto S_35817;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26307,258,"ide_methods.bas");}while(r); +}else{ do{ sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(25066,224,"ide_methods.bas");}while(r); -S_33708:; -if ((*__LONG_IDECPINDEX)||new_error){ -if(qbevent){evnt(25066,227,"ide_methods.bas");if(r)goto S_33708;} -S_33709:; -fornext_value3770= 128 ; -fornext_finalvalue3770= 255 ; -fornext_step3770= 1 ; -if (fornext_step3770<0) fornext_step_negative3770=1; else fornext_step_negative3770=0; -if (new_error) goto fornext_error3770; -goto fornext_entrylabel3770; -while(1){ -fornext_value3770=fornext_step3770+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel3770: -*_FUNC_IDE2_LONG_X=fornext_value3770; -if (fornext_step_negative3770){ -if (fornext_value3770fornext_finalvalue3770) break; +if(!qbevent)break;evnt(26307,258,"ide_methods.bas");}while(r); } -fornext_error3770:; -if(qbevent){evnt(25066,228,"ide_methods.bas");if(r)goto S_33709;} +S_35822:; +if ((*__LONG_IDECPINDEX)||new_error){ +if(qbevent){evnt(26307,261,"ide_methods.bas");if(r)goto S_35822;} +S_35823:; +fornext_value3950= 128 ; +fornext_finalvalue3950= 255 ; +fornext_step3950= 1 ; +if (fornext_step3950<0) fornext_step_negative3950=1; else fornext_step_negative3950=0; +if (new_error) goto fornext_error3950; +goto fornext_entrylabel3950; +while(1){ +fornext_value3950=fornext_step3950+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel3950: +*_FUNC_IDE2_LONG_X=fornext_value3950; +if (fornext_step_negative3950){ +if (fornext_value3950fornext_finalvalue3950) break; +} +fornext_error3950:; +if(qbevent){evnt(26307,262,"ide_methods.bas");if(r)goto S_35823;} do{ *_FUNC_IDE2_LONG_U=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[array_check((*__LONG_IDECPINDEX)-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5])])),(*_FUNC_IDE2_LONG_X* 8 )+( 1 ), 8 ,1)),qbs_new_txt_len("&",1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,229,"ide_methods.bas");}while(r); -S_33711:; +if(!qbevent)break;evnt(26307,263,"ide_methods.bas");}while(r); +S_35825:; if ((-(*_FUNC_IDE2_LONG_U== 0 ))||new_error){ -if(qbevent){evnt(25066,230,"ide_methods.bas");if(r)goto S_33711;} +if(qbevent){evnt(26307,264,"ide_methods.bas");if(r)goto S_35825;} do{ *_FUNC_IDE2_LONG_U= 9744 ; -if(!qbevent)break;evnt(25066,230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,264,"ide_methods.bas");}while(r); } do{ sub__mapunicode(*_FUNC_IDE2_LONG_U,*_FUNC_IDE2_LONG_X); -if(!qbevent)break;evnt(25066,231,"ide_methods.bas");}while(r); -fornext_continue_3769:; +if(!qbevent)break;evnt(26307,265,"ide_methods.bas");}while(r); +fornext_continue_3949:; } -fornext_exit_3769:; +fornext_exit_3949:; } -S_33717:; +S_35831:; if ((*__LONG_IDECUSTOMFONT)||new_error){ -if(qbevent){evnt(25066,235,"ide_methods.bas");if(r)goto S_33717;} +if(qbevent){evnt(26307,269,"ide_methods.bas");if(r)goto S_35831;} do{ *__LONG_IDECUSTOMFONTHANDLE=func__loadfont(__STRING_IDECUSTOMFONTFILE,*__LONG_IDECUSTOMFONTHEIGHT,qbs_new_txt_len("MONOSPACE",9),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,236,"ide_methods.bas");}while(r); -S_33719:; +if(!qbevent)break;evnt(26307,270,"ide_methods.bas");}while(r); +S_35833:; if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ -if(qbevent){evnt(25066,237,"ide_methods.bas");if(r)goto S_33719;} +if(qbevent){evnt(26307,271,"ide_methods.bas");if(r)goto S_35833;} do{ *__LONG_IDECUSTOMFONT= 0 ; -if(!qbevent)break;evnt(25066,239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,273,"ide_methods.bas");}while(r); do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); +qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,273,"ide_methods.bas");}while(r); do{ *__LONG_IDECUSTOMFONTHEIGHT= 21 ; -if(!qbevent)break;evnt(25066,239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,273,"ide_methods.bas");}while(r); }else{ do{ sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); -if(!qbevent)break;evnt(25066,241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,275,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(25066,245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,279,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,279,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(25066,246,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,280,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,282,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,282,"ide_methods.bas");}while(r); do{ *__INTEGER_IDEEDITMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,283,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEEDITMENU(); -if(!qbevent)break;evnt(25066,250,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,284,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,286,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,286,"ide_methods.bas");}while(r); do{ *__INTEGER_VIEWMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,286,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,287,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,287,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#SUBs... F2",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,288,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,288,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of SUB/FUNCTION procedures",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,289,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Line Numbers ",15),func_chr( 16 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,255,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,290,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,255,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,290,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles and customizes line numbers (side bar)",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,291,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,292,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,292,"ide_methods.bas");}while(r); do{ *__INTEGER_VIEWMENUCOMPILERWARNINGS=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,258,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,294,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,259,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,295,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,259,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,295,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of recent code warnings",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,296,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,260,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,297,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,299,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,299,"ide_methods.bas");}while(r); do{ *__INTEGER_SEARCHMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,299,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Search",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,263,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,300,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,263,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,300,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Find... Ctrl+F3",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,264,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,301,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,264,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,301,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds specified text",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,302,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Repeat Last Find (Shift+) F3",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,303,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,303,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds next occurrence of text specified in previous search",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,304,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Change...",10)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Change... Alt+F3",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,305,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,305,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds and changes specified text",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,306,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,307,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,307,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clear Search #History...",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,308,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,308,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Clears history of searched text items",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,309,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,310,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,310,"ide_methods.bas");}while(r); do{ *__INTEGER_SEARCHMENUENABLEQUICKNAV=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,312,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Enable #Quick Navigation (Back Arrow)",37)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Quick Navigation",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,272,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,313,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,272,"ide_methods.bas");}while(r); -S_33769:; +if(!qbevent)break;evnt(26307,313,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles Quick Navigation (back arrow)",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,314,"ide_methods.bas");}while(r); +S_35891:; if ((*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(25066,273,"ide_methods.bas");if(r)goto S_33769;} +if(qbevent){evnt(26307,315,"ide_methods.bas");if(r)goto S_35891;} do{ tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,274,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,316,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,276,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,318,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,276,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,318,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add/Remove #Bookmark Alt+Left",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,319,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,319,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles a bookmark in the current line",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,320,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Next Bookmark Alt+Down",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,321,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,321,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Navigates to the next bookmark",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,322,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Previous Bookmark Alt+Up",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,279,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,323,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,279,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,323,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Navigates to the previous bookmark",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,324,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,280,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,325,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,280,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,325,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Go To Line... Ctrl+G",22)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,281,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,326,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,281,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,326,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to the specified line number",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,327,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,329,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,285,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,331,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,285,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,331,"ide_methods.bas");}while(r); do{ *__INTEGER_RUNMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,285,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,331,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Run",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,286,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,332,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,286,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,332,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Start F5",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,287,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,333,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,287,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,333,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program and runs it",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,334,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Modify #COMMAND$...",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,288,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,335,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,288,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,335,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets string returned by COMMAND$ function",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,336,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,289,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,337,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,289,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,337,"ide_methods.bas");}while(r); do{ *__INTEGER_RUNMENUSAVEEXEWITHSOURCE=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,339,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Output EXE to Source #Folder",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,340,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,292,"ide_methods.bas");}while(r); -S_33799:; +if(!qbevent)break;evnt(26307,340,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles compiling program to QB64's folder or to source folder",62)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,341,"ide_methods.bas");}while(r); +S_35928:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(25066,293,"ide_methods.bas");if(r)goto S_33799;} +if(qbevent){evnt(26307,342,"ide_methods.bas");if(r)goto S_35928;} do{ tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,294,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,343,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,345,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,296,"ide_methods.bas");}while(r); -S_33804:; +if(!qbevent)break;evnt(26307,345,"ide_methods.bas");}while(r); +S_35933:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,299,"ide_methods.bas");if(r)goto S_33804;} +if(qbevent){evnt(26307,347,"ide_methods.bas");if(r)goto S_35933;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Make E#xecutable Only F11",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,300,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,348,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,300,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,348,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Make E#XE Only F11",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,302,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,350,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,302,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,350,"ide_methods.bas");}while(r); } do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program without running it",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,352,"ide_methods.bas");}while(r); +do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,305,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,353,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,355,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,355,"ide_methods.bas");}while(r); +do{ +*__INTEGER_DEBUGMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26307,355,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Debug",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,356,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,356,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Start #Paused F7 or F8",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,357,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,357,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program and starts it in pause mode",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,358,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,359,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,359,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Breakpoint F9",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,360,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,360,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears breakpoint at cursor location",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,361,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Clear All Breakpoints F10",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,362,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,362,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all breakpoints",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,363,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,364,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,364,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears flag to skip line",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,365,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,366,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,366,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all line skip flags",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,367,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,368,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,368,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Watch List... F4",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,369,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,369,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds variables to watch list",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,370,"ide_methods.bas");}while(r); +do{ +*__INTEGER_DEBUGMENUCALLSTACK=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,371,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call #Stack... F12",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,372,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,372,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the call stack of the current program's last execution",63)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,373,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,374,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,374,"ide_methods.bas");}while(r); +do{ +*__INTEGER_DEBUGMENUAUTOADDCOMMAND=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,375,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,376,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,376,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles whether the IDE will auto-add the $Debug metacommand as required",72)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,377,"ide_methods.bas");}while(r); +S_35979:; +if ((*__BYTE_AUTOADDDEBUGCOMMAND)||new_error){ +if(qbevent){evnt(26307,378,"ide_methods.bas");if(r)goto S_35979;} +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,379,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,381,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Output Watch List to Console",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,382,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,382,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles directing the output of the watch list to the console window",68)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,383,"ide_methods.bas");}while(r); +S_35986:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26307,384,"ide_methods.bas");if(r)goto S_35986;} +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,385,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Set Base #TCP/IP Port Number...",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,387,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,387,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets the initial port number for TCP/IP communication with the debuggee",71)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,388,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Advanced (C++)...",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,389,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,389,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Enables embedding C++ debug information into compiled program",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,390,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Purge C++ #Libraries",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,391,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,391,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Purges all pre-compiled content",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,392,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26307,393,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26307,395,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,395,"ide_methods.bas");}while(r); do{ *__INTEGER_OPTIONSMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,395,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Options",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,396,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,396,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Display...",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,309,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,397,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,309,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,397,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes screen size and font",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,398,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("IDE C#olors...",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,399,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,399,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Language...",12)); +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes or customizes IDE color scheme",38)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,311,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,400,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Code Layout...",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,401,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,401,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes auto-format features",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,402,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,403,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,403,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Language...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,404,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,404,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes code page to use with TTF fonts",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,405,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Backup/Undo...",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,313,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,406,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,313,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,406,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets size of backup/undo buffer",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,407,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,408,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,408,"ide_methods.bas");}while(r); +do{ +*__INTEGER_OPTIONSMENUDISABLESYNTAX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,410,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Advanced...",12)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,411,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,411,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles syntax highlighter",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,412,"ide_methods.bas");}while(r); +S_36027:; +if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ +if(qbevent){evnt(26307,413,"ide_methods.bas");if(r)goto S_36027;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,414,"ide_methods.bas");}while(r); +} do{ *__INTEGER_OPTIONSMENUSWAPMOUSE=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,317,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,417,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Swap Mouse Buttons",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,318,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,418,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,318,"ide_methods.bas");}while(r); -S_33834:; +if(!qbevent)break;evnt(26307,418,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Swaps functionality of left/right mouse buttons",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,419,"ide_methods.bas");}while(r); +S_36034:; if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(25066,319,"ide_methods.bas");if(r)goto S_33834;} +if(qbevent){evnt(26307,420,"ide_methods.bas");if(r)goto S_36034;} do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,320,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,421,"ide_methods.bas");}while(r); } do{ *__INTEGER_OPTIONSMENUPASTECURSOR=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,323,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,424,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Pasted Content",28)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Paste",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,324,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,425,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,324,"ide_methods.bas");}while(r); -S_33840:; +if(!qbevent)break;evnt(26307,425,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles placing the cursor before/after the pasted content",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,426,"ide_methods.bas");}while(r); +S_36041:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,325,"ide_methods.bas");if(r)goto S_33840;} +if(qbevent){evnt(26307,427,"ide_methods.bas");if(r)goto S_36041;} do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,326,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,428,"ide_methods.bas");}while(r); } do{ *__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,329,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,431,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Show Compilation #Errors Immediately",36)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax Ch#ecker",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,330,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,432,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,330,"ide_methods.bas");}while(r); -S_33846:; +if(!qbevent)break;evnt(26307,432,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles instant syntax checker (status area)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,433,"ide_methods.bas");}while(r); +S_36048:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(25066,331,"ide_methods.bas");if(r)goto S_33846;} +if(qbevent){evnt(26307,434,"ide_methods.bas");if(r)goto S_36048;} do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,332,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,435,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_OPTIONSMENUIGNOREWARNINGS=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,438,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ignore #Warnings",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,439,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,439,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles display of warning messages (unused variables, etc)",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,440,"ide_methods.bas");}while(r); +S_36055:; +if ((*__BYTE_IGNOREWARNINGS)||new_error){ +if(qbevent){evnt(26307,441,"ide_methods.bas");if(r)goto S_36055;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Ignore #Warnings",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,441,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,335,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,448,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,337,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,450,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,337,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,450,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Tools",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,451,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,451,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#ASCII Chart...",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,452,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,452,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays ASCII characters and allows inserting in current program",65)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,453,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Insert Quick #Keycode Ctrl+K",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,454,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,454,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Captures key codes and inserts in current program",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,455,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Math Evaluator...",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,456,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,456,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the math evaluator dialog",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,457,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#RGB Color Mixer...",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,458,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,458,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Allows mixing colors to edit/insert _RGB statements",51)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,459,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26307,460,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26307,462,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,462,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Help",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,338,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,463,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,338,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,463,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#View Shift+F1",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,339,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,464,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,339,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,464,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help window",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,465,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Contents Page",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,340,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,466,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,340,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,466,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help contents page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,467,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Keyword #Index",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,468,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,468,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keyword index page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,469,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Keywords by Usage",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,470,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,470,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("ASCII C#hart",12)); +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keywords index by usage",32)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,343,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,343,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Math",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,344,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,344,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,471,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,345,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,472,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,345,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,472,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Update Current Page",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,346,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,473,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,346,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,473,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of an article from the wiki",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,474,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages",17)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages...",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,347,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,475,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,347,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,475,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of all articles from the wiki",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,476,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View Current Page On #Wiki",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,477,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,477,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Launches the default browser and navigates to the current article on the wiki",77)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,478,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,348,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,479,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,348,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,479,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#About...",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,349,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,482,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,349,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,482,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the current version of QB64",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,483,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,350,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,484,"ide_methods.bas");}while(r); do{ *__INTEGER_MENUS=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,352,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,486,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,355,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,489,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECONTEXTUALMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,356,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,490,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,493,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,493,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("ViewMenuShowLineNumbersSubMenu",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,360,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,494,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,360,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,494,"ide_methods.bas");}while(r); do{ *__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,361,"ide_methods.bas");}while(r); -S_33885:; +if(!qbevent)break;evnt(26307,495,"ide_methods.bas");}while(r); +S_36117:; if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(25066,362,"ide_methods.bas");if(r)goto S_33885;} +if(qbevent){evnt(26307,496,"ide_methods.bas");if(r)goto S_36117;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hide Line Numbers",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,496,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Show Line Numbers",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,496,"ide_methods.bas");}while(r); } do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles displaying line numbers (side bar)",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,497,"ide_methods.bas");}while(r); +do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,498,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Background Color",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,364,"ide_methods.bas");}while(r); -S_33892:; +if(!qbevent)break;evnt(26307,499,"ide_methods.bas");}while(r); +S_36125:; if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ -if(qbevent){evnt(25066,364,"ide_methods.bas");if(r)goto S_33892;} +if(qbevent){evnt(26307,499,"ide_methods.bas");if(r)goto S_36125;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,364,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,499,"ide_methods.bas");}while(r); } do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles displaying a different background (side bar)",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,500,"ide_methods.bas");}while(r); +do{ *__INTEGER_VIEWMENUSHOWBGID=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,365,"ide_methods.bas");}while(r); -S_33896:; +if(!qbevent)break;evnt(26307,501,"ide_methods.bas");}while(r); +S_36130:; if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ -if(qbevent){evnt(25066,366,"ide_methods.bas");if(r)goto S_33896;} +if(qbevent){evnt(26307,502,"ide_methods.bas");if(r)goto S_36130;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,366,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,502,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,367,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,503,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Sho#w Separator",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,368,"ide_methods.bas");}while(r); -S_33901:; +if(!qbevent)break;evnt(26307,504,"ide_methods.bas");}while(r); +S_36135:; if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ -if(qbevent){evnt(25066,368,"ide_methods.bas");if(r)goto S_33901;} +if(qbevent){evnt(26307,504,"ide_methods.bas");if(r)goto S_36135;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,368,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,504,"ide_methods.bas");}while(r); } do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles showing a separator line (side bar)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,505,"ide_methods.bas");}while(r); +do{ *__INTEGER_VIEWMENUSHOWSEPARATORID=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,369,"ide_methods.bas");}while(r); -S_33905:; +if(!qbevent)break;evnt(26307,506,"ide_methods.bas");}while(r); +S_36140:; if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ -if(qbevent){evnt(25066,370,"ide_methods.bas");if(r)goto S_33905;} +if(qbevent){evnt(26307,507,"ide_methods.bas");if(r)goto S_36140;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,370,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,507,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,371,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,508,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,372,"ide_methods.bas");}while(r); -S_33910:; +if(!qbevent)break;evnt(26307,509,"ide_methods.bas");}while(r); +S_36145:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,374,"ide_methods.bas");if(r)goto S_33910;} +if(qbevent){evnt(26307,511,"ide_methods.bas");if(r)goto S_36145;} do{ qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("\\",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,512,"ide_methods.bas");}while(r); } -S_33913:; +S_36148:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,377,"ide_methods.bas");if(r)goto S_33913;} +if(qbevent){evnt(26307,514,"ide_methods.bas");if(r)goto S_36148;} do{ qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("/",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,378,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,515,"ide_methods.bas");}while(r); } do{ -SUB_INITMOUSE(); -if(!qbevent)break;evnt(25066,381,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("QWERTYUIOP????ASDFGHJKL?????ZXCVBNM",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,382,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 16 ; -if(!qbevent)break;evnt(25066,382,"ide_methods.bas");}while(r); -S_33919:; -fornext_value3772= 1 ; -fornext_finalvalue3772=_FUNC_IDE2_STRING_A->len; -fornext_step3772= 1 ; -if (fornext_step3772<0) fornext_step_negative3772=1; else fornext_step_negative3772=0; -if (new_error) goto fornext_error3772; -goto fornext_entrylabel3772; -while(1){ -fornext_value3772=fornext_step3772+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3772: -*_FUNC_IDE2_LONG_I=fornext_value3772; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3772){ -if (fornext_value3772fornext_finalvalue3772) break; -} -fornext_error3772:; -if(qbevent){evnt(25066,382,"ide_methods.bas");if(r)goto S_33919;} -do{ -tmp_long=array_check((qbs_asc(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1)))-__ARRAY_INTEGER_IDEALTCODE[4],__ARRAY_INTEGER_IDEALTCODE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_IDEALTCODE[0]))[tmp_long]=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,382,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,382,"ide_methods.bas");}while(r); -fornext_continue_3771:; -} -fornext_exit_3771:; -do{ qbs_set(__STRING_IDEROOT,FUNC_IDEZGETROOT()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,384,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,518,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,func__startdir()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,519,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,522,"ide_methods.bas");}while(r); do{ *__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(25066,388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,522,"ide_methods.bas");}while(r); do{ *__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(25066,388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,522,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(25066,388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,522,"ide_methods.bas");}while(r); do{ *__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(25066,388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,522,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(26307,523,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,524,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,525,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,526,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,526,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,527,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,528,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,529,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26307,529,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= -1 ; -if(!qbevent)break;evnt(25066,389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,530,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,390,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,531,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,532,"ide_methods.bas");}while(r); LABEL_REDRAWEVERYTHING:; -if(qbevent){evnt(25066,392,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,534,"ide_methods.bas");r=0;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,393,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,535,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,394,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,536,"ide_methods.bas");}while(r); do{ *__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(25066,395,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,537,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,538,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,397,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,539,"ide_methods.bas");}while(r); LABEL_REDRAWEVERYTHING2:; -if(qbevent){evnt(25066,399,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,541,"ide_methods.bas");r=0;} do{ -return_point[next_return_point++]=7; +return_point[next_return_point++]=9; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; -RETURN_7:; -if(!qbevent)break;evnt(25066,400,"ide_methods.bas");}while(r); -S_33938:; +RETURN_9:; +if(!qbevent)break;evnt(26307,542,"ide_methods.bas");}while(r); +S_36176:; if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ -if(qbevent){evnt(25066,402,"ide_methods.bas");if(r)goto S_33938;} +if(qbevent){evnt(26307,544,"ide_methods.bas");if(r)goto S_36176;} do{ goto LABEL_SKIPLOAD; -if(!qbevent)break;evnt(25066,402,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,544,"ide_methods.bas");}while(r); } do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,406,"ide_methods.bas");}while(r); -S_33942:; +if(!qbevent)break;evnt(26307,548,"ide_methods.bas");}while(r); +S_36180:; if ((-(func_lof( 150 )== 1 ))||new_error){ -if(qbevent){evnt(25066,407,"ide_methods.bas");if(r)goto S_33942;} +if(qbevent){evnt(26307,549,"ide_methods.bas");if(r)goto S_36180;} do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,550,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDERESTORE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,409,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,551,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,410,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,552,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,410,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,410,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,410,"ide_methods.bas");}while(r); -S_33949:; +if(!qbevent)break;evnt(26307,552,"ide_methods.bas");}while(r); +S_36185:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,411,"ide_methods.bas");if(r)goto S_33949;} +if(qbevent){evnt(26307,553,"ide_methods.bas");if(r)goto S_36185;} do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,413,"ide_methods.bas");}while(r); -S_33951:; +if(!qbevent)break;evnt(26307,555,"ide_methods.bas");}while(r); +S_36187:; if ((func_lof( 150 ))||new_error){ -if(qbevent){evnt(25066,414,"ide_methods.bas");if(r)goto S_33951;} +if(qbevent){evnt(26307,556,"ide_methods.bas");if(r)goto S_36187;} do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,415,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,557,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"ide_methods.bas");}while(r); do{ sub_seek( 150 ,*_FUNC_IDE2_LONG_P2); -if(!qbevent)break;evnt(25066,418,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,560,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L,4,byte_element_3774),0); -if(!qbevent)break;evnt(25066,419,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L,4,byte_element_3951),0); +if(!qbevent)break;evnt(26307,561,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_3775),0); -if(!qbevent)break;evnt(25066,420,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_3952),0); +if(!qbevent)break;evnt(26307,562,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_3776),0); -if(!qbevent)break;evnt(25066,420,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_3953),0); +if(!qbevent)break;evnt(26307,562,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_3777),0); -if(!qbevent)break;evnt(25066,421,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_3954),0); +if(!qbevent)break;evnt(26307,563,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_3778),0); -if(!qbevent)break;evnt(25066,421,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_3955),0); +if(!qbevent)break;evnt(26307,563,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_3779),0); -if(!qbevent)break;evnt(25066,422,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_3956),0); +if(!qbevent)break;evnt(26307,564,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_3780),0); -if(!qbevent)break;evnt(25066,422,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_3957),0); +if(!qbevent)break;evnt(26307,564,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_3781),0); -if(!qbevent)break;evnt(25066,422,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_3958),0); +if(!qbevent)break;evnt(26307,564,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_3782),0); -if(!qbevent)break;evnt(25066,423,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_3959),0); +if(!qbevent)break;evnt(26307,565,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_3783),0); -if(!qbevent)break;evnt(25066,424,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_3960),0); +if(!qbevent)break;evnt(26307,566,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_3784),0); -if(!qbevent)break;evnt(25066,425,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_3961),0); +if(!qbevent)break;evnt(26307,567,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_3785),0); -if(!qbevent)break;evnt(25066,427,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_3962),0); +if(!qbevent)break;evnt(26307,569,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -122985,6208 +128212,6072 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(25066,427,"ide_methods.bas");}while(r); -S_33972:; -fornext_value3787= 1 ; -fornext_finalvalue3787=*__LONG_IDEBMKN; -fornext_step3787= 1 ; -if (fornext_step3787<0) fornext_step_negative3787=1; else fornext_step_negative3787=0; -if (new_error) goto fornext_error3787; -goto fornext_entrylabel3787; +if(!qbevent)break;evnt(26307,569,"ide_methods.bas");}while(r); +S_36208:; +fornext_value3964= 1 ; +fornext_finalvalue3964=*__LONG_IDEBMKN; +fornext_step3964= 1 ; +if (fornext_step3964<0) fornext_step_negative3964=1; else fornext_step_negative3964=0; +if (new_error) goto fornext_error3964; +goto fornext_entrylabel3964; while(1){ -fornext_value3787=fornext_step3787+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel3787: -*_FUNC_IDE2_LONG_BI=fornext_value3787; -if (fornext_step_negative3787){ -if (fornext_value3787fornext_finalvalue3787) break; +if (fornext_value3964>fornext_finalvalue3964) break; } -fornext_error3787:; -if(qbevent){evnt(25066,428,"ide_methods.bas");if(r)goto S_33972;} +fornext_error3964:; +if(qbevent){evnt(26307,570,"ide_methods.bas");if(r)goto S_36208;} do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_3788),0); -if(!qbevent)break;evnt(25066,428,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_3965),0); +if(!qbevent)break;evnt(26307,570,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_3789),0); -if(!qbevent)break;evnt(25066,428,"ide_methods.bas");}while(r); -fornext_continue_3786:; +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_3966),0); +if(!qbevent)break;evnt(26307,570,"ide_methods.bas");}while(r); +fornext_continue_3963:; } -fornext_exit_3786:; +fornext_exit_3963:; do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_3790),0); -if(!qbevent)break;evnt(25066,429,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_3967),0); +if(!qbevent)break;evnt(26307,571,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,429,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,571,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,__STRING_IDET,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,429,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,571,"ide_methods.bas");}while(r); } do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,431,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,573,"ide_methods.bas");}while(r); } }else{ do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,434,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,576,"ide_methods.bas");}while(r); } -S_33985:; +S_36221:; if ((-(*__LONG_IDEUNSAVED!= 1 ))||new_error){ -if(qbevent){evnt(25066,437,"ide_methods.bas");if(r)goto S_33985;} -S_33986:; +if(qbevent){evnt(26307,579,"ide_methods.bas");if(r)goto S_36221;} +S_36222:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(25066,438,"ide_methods.bas");if(r)goto S_33986;} +if(qbevent){evnt(26307,580,"ide_methods.bas");if(r)goto S_36222;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,439,"ide_methods.bas");}while(r); -S_33988:; +if(!qbevent)break;evnt(26307,581,"ide_methods.bas");}while(r); +S_36224:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(25066,440,"ide_methods.bas");if(r)goto S_33988;} +if(qbevent){evnt(26307,582,"ide_methods.bas");if(r)goto S_36224;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_add(_FUNC_IDE2_STRING_F,qbs_new_txt_len(".bas",4))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,440,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,582,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_PATH,FUNC_IDEZGETFILEPATH(__STRING_IDEROOT,_FUNC_IDE2_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,441,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 2 ; -if(!qbevent)break;evnt(25066,444,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,445,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,583,"ide_methods.bas");}while(r); +S_36228:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,584,"ide_methods.bas");if(r)goto S_36228;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,446,"ide_methods.bas");}while(r); -S_33996:; +if(!qbevent)break;evnt(26307,584,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,584,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,584,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 2 ; +if(!qbevent)break;evnt(26307,587,"ide_methods.bas");}while(r); +S_36234:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26307,588,"ide_methods.bas");if(r)goto S_36234;} +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,588,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,589,"ide_methods.bas");}while(r); +S_36238:; if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDE2_STRING_F)> 0 )))||new_error){ -if(qbevent){evnt(25066,447,"ide_methods.bas");if(r)goto S_33996;} +if(qbevent){evnt(26307,590,"ide_methods.bas");if(r)goto S_36238;} do{ goto LABEL_SKIPLOAD; -if(!qbevent)break;evnt(25066,447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,590,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(25066,448,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,591,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPATH,_FUNC_IDE2_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,592,"ide_methods.bas");}while(r); do{ SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,593,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,594,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I2= 1 ; -if(!qbevent)break;evnt(25066,452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,595,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_N= 0 ; -if(!qbevent)break;evnt(25066,453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,596,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHRTAB,func_chr( 9 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,454,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,597,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SPACE1,qbs_new_txt_len(" ",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,598,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SPACE2,qbs_new_txt_len(" ",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,598,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SPACE3,qbs_new_txt_len(" ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,598,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SPACE4,qbs_new_txt_len(" ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,598,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR7,func_chr( 7 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR11,func_chr( 11 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR12,func_chr( 12 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR28,func_chr( 28 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR29,func_chr( 29 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR30,func_chr( 30 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CHR31,func_chr( 31 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,456,"ide_methods.bas");}while(r); -S_34017:; +if(!qbevent)break;evnt(26307,599,"ide_methods.bas");}while(r); +S_36259:; do{ -if(qbevent){evnt(25066,457,"ide_methods.bas");if(r)goto S_34017;} +if(qbevent){evnt(26307,600,"ide_methods.bas");if(r)goto S_36259;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_LINEINPUT3()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,458,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,601,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,459,"ide_methods.bas");}while(r); -S_34020:; +if(!qbevent)break;evnt(26307,602,"ide_methods.bas");}while(r); +S_36262:; if ((*_FUNC_IDE2_LONG_L)||new_error){ -if(qbevent){evnt(25066,460,"ide_methods.bas");if(r)goto S_34020;} +if(qbevent){evnt(26307,603,"ide_methods.bas");if(r)goto S_36262;} do{ *_FUNC_IDE2_LONG_ASCA=qbs_asc(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,603,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_ASCA= -1 ; -if(!qbevent)break;evnt(25066,460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,603,"ide_methods.bas");}while(r); } -S_34025:; +S_36267:; if ((-(*_FUNC_IDE2_LONG_ASCA!= 13 ))||new_error){ -if(qbevent){evnt(25066,461,"ide_methods.bas");if(r)goto S_34025;} -S_34026:; +if(qbevent){evnt(26307,604,"ide_methods.bas");if(r)goto S_36267;} +S_36268:; if ((-(*_FUNC_IDE2_LONG_ASCA!= -1 ))||new_error){ -if(qbevent){evnt(25066,462,"ide_methods.bas");if(r)goto S_34026;} +if(qbevent){evnt(26307,605,"ide_methods.bas");if(r)goto S_36268;} LABEL_IDEOPENFIXTABSX:; -if(qbevent){evnt(25066,464,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,607,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_CHRTAB,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,465,"ide_methods.bas");}while(r); -S_34028:; +if(!qbevent)break;evnt(26307,608,"ide_methods.bas");}while(r); +S_36270:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,466,"ide_methods.bas");if(r)goto S_34028;} +if(qbevent){evnt(26307,609,"ide_methods.bas");if(r)goto S_36270;} do{ *_FUNC_IDE2_LONG_X2=(*_FUNC_IDE2_LONG_X- 1 )% 4 ; -if(!qbevent)break;evnt(25066,467,"ide_methods.bas");}while(r); -S_34030:; +if(!qbevent)break;evnt(26307,610,"ide_methods.bas");}while(r); +S_36272:; if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(25066,468,"ide_methods.bas");if(r)goto S_34030;} +if(qbevent){evnt(26307,611,"ide_methods.bas");if(r)goto S_36272;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE4),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,468,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,611,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 3 ; -if(!qbevent)break;evnt(25066,468,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,611,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(25066,468,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,611,"ide_methods.bas");}while(r); } -S_34035:; +S_36277:; if ((-(*_FUNC_IDE2_LONG_X2== 1 ))||new_error){ -if(qbevent){evnt(25066,469,"ide_methods.bas");if(r)goto S_34035;} +if(qbevent){evnt(26307,612,"ide_methods.bas");if(r)goto S_36277;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE3),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,469,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,612,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; -if(!qbevent)break;evnt(25066,469,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,612,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(25066,469,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,612,"ide_methods.bas");}while(r); } -S_34040:; +S_36282:; if ((-(*_FUNC_IDE2_LONG_X2== 2 ))||new_error){ -if(qbevent){evnt(25066,470,"ide_methods.bas");if(r)goto S_34040;} +if(qbevent){evnt(26307,613,"ide_methods.bas");if(r)goto S_36282;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE2),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,470,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,613,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; -if(!qbevent)break;evnt(25066,470,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,613,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(25066,470,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,613,"ide_methods.bas");}while(r); } -S_34045:; +S_36287:; if ((-(*_FUNC_IDE2_LONG_X2== 3 ))||new_error){ -if(qbevent){evnt(25066,471,"ide_methods.bas");if(r)goto S_34045;} +if(qbevent){evnt(26307,614,"ide_methods.bas");if(r)goto S_36287;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE1),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,471,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,614,"ide_methods.bas");}while(r); do{ goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(25066,471,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,614,"ide_methods.bas");}while(r); } } } do{ sub_mid(__STRING_IDET,*_FUNC_IDE2_LONG_I2,*_FUNC_IDE2_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_L),_FUNC_IDE2_STRING_A),l2string(*_FUNC_IDE2_LONG_L)),1); -if(!qbevent)break;evnt(25066,474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,617,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I2=*_FUNC_IDE2_LONG_I2+*_FUNC_IDE2_LONG_L+ 8 ; -if(!qbevent)break;evnt(25066,474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,617,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_N=*_FUNC_IDE2_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,617,"ide_methods.bas");}while(r); } -S_34055:; -dl_continue_3793:; +S_36297:; +dl_continue_3970:; }while((!(-(*_FUNC_IDE2_LONG_ASCA== 13 )))&&(!new_error)); -dl_exit_3793:; -if(qbevent){evnt(25066,476,"ide_methods.bas");if(r)goto S_34055;} +dl_exit_3970:; +if(qbevent){evnt(26307,619,"ide_methods.bas");if(r)goto S_36297;} do{ qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,477,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,620,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*_FUNC_IDE2_LONG_N; -if(!qbevent)break;evnt(25066,478,"ide_methods.bas");}while(r); -S_34058:; +if(!qbevent)break;evnt(26307,621,"ide_methods.bas");}while(r); +S_36300:; if ((-(*_FUNC_IDE2_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(25066,478,"ide_methods.bas");if(r)goto S_34058;} +if(qbevent){evnt(26307,621,"ide_methods.bas");if(r)goto S_36300;} do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,621,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(25066,478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,621,"ide_methods.bas");}while(r); }else{ do{ qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDE2_LONG_I2- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,621,"ide_methods.bas");}while(r); } -S_34064:; +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(26307,622,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,623,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,624,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,625,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,625,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,626,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,627,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,628,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26307,628,"ide_methods.bas");}while(r); +S_36315:; if (((-(*__LONG_IDESTARTATLINE> 0 ))&(-(*__LONG_IDESTARTATLINE<=*__LONG_IDEN)))||new_error){ -if(qbevent){evnt(25066,479,"ide_methods.bas");if(r)goto S_34064;} +if(qbevent){evnt(26307,629,"ide_methods.bas");if(r)goto S_36315;} do{ *__LONG_IDECY=*__LONG_IDESTARTATLINE; -if(!qbevent)break;evnt(25066,480,"ide_methods.bas");}while(r); -S_34066:; +if(!qbevent)break;evnt(26307,630,"ide_methods.bas");}while(r); +S_36317:; if ((-((*__LONG_IDECY- 10 )>=( 1 )))||new_error){ -if(qbevent){evnt(25066,481,"ide_methods.bas");if(r)goto S_34066;} +if(qbevent){evnt(26307,631,"ide_methods.bas");if(r)goto S_36317;} do{ *__LONG_IDESY=*__LONG_IDECY- 10 ; -if(!qbevent)break;evnt(25066,481,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,631,"ide_methods.bas");}while(r); } do{ *__LONG_IDEGOTOBOX_LASTLINENUM=*__LONG_IDESTARTATLINE; -if(!qbevent)break;evnt(25066,482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,632,"ide_methods.bas");}while(r); do{ *__LONG_IDESTARTATLINE= 0 ; -if(!qbevent)break;evnt(25066,483,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,633,"ide_methods.bas");}while(r); } do{ *__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(25066,485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,635,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(25066,486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,636,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPROGNAME,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,487,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,637,"ide_methods.bas");}while(r); do{ -sub__title(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - QB64",7))); +sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,487,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,637,"ide_methods.bas");}while(r); do{ SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,638,"ide_methods.bas");}while(r); do{ SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,489,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,639,"ide_methods.bas");}while(r); } } LABEL_SKIPLOAD:; -if(qbevent){evnt(25066,494,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,644,"ide_methods.bas");r=0;} } -S_34081:; +S_36332:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ -if(qbevent){evnt(25066,508,"ide_methods.bas");if(r)goto S_34081;} +if(qbevent){evnt(26307,658,"ide_methods.bas");if(r)goto S_36332;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; -if(!qbevent)break;evnt(25066,509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,659,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; -if(!qbevent)break;evnt(25066,510,"ide_methods.bas");}while(r); -S_34084:; +if(!qbevent)break;evnt(26307,660,"ide_methods.bas");}while(r); +S_36335:; if (((-(*__LONG_IDEAUTOLAYOUT== 0 ))&(-(*__LONG_IDEAUTOINDENT== 0 )))||new_error){ -if(qbevent){evnt(25066,514,"ide_methods.bas");if(r)goto S_34084;} +if(qbevent){evnt(26307,664,"ide_methods.bas");if(r)goto S_36335;} do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,516,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,666,"ide_methods.bas");}while(r); do{ *__LONG_IDELAYOUTALLOW= 0 ; -if(!qbevent)break;evnt(25066,517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,667,"ide_methods.bas");}while(r); }else{ -S_34088:; +S_36339:; if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(25066,521,"ide_methods.bas");if(r)goto S_34088;} -S_34089:; -fornext_value3797= 1 ; -fornext_finalvalue3797=__STRING_LAYOUT->len; -fornext_step3797= 1 ; -if (fornext_step3797<0) fornext_step_negative3797=1; else fornext_step_negative3797=0; -if (new_error) goto fornext_error3797; -goto fornext_entrylabel3797; +if(qbevent){evnt(26307,671,"ide_methods.bas");if(r)goto S_36339;} +S_36340:; +fornext_value3974= 1 ; +fornext_finalvalue3974=__STRING_LAYOUT->len; +fornext_step3974= 1 ; +if (fornext_step3974<0) fornext_step_negative3974=1; else fornext_step_negative3974=0; +if (new_error) goto fornext_error3974; +goto fornext_entrylabel3974; while(1){ -fornext_value3797=fornext_step3797+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3797: -*_FUNC_IDE2_LONG_I=fornext_value3797; +fornext_value3974=fornext_step3974+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel3974: +*_FUNC_IDE2_LONG_I=fornext_value3974; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3797){ -if (fornext_value3797fornext_finalvalue3797) break; +if (fornext_value3974>fornext_finalvalue3974) break; } -fornext_error3797:; -if(qbevent){evnt(25066,524,"ide_methods.bas");if(r)goto S_34089;} -S_34090:; +fornext_error3974:; +if(qbevent){evnt(26307,674,"ide_methods.bas");if(r)goto S_36340;} +S_36341:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==__STRING_LAYOUT->len))))||new_error){ -if(qbevent){evnt(25066,525,"ide_methods.bas");if(r)goto S_34090;} +if(qbevent){evnt(26307,675,"ide_methods.bas");if(r)goto S_36341;} do{ *_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,526,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,676,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE2_LONG_I+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,527,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,677,"ide_methods.bas");}while(r); do{ -goto fornext_exit_3796; -if(!qbevent)break;evnt(25066,528,"ide_methods.bas");}while(r); +goto fornext_exit_3973; +if(!qbevent)break;evnt(26307,678,"ide_methods.bas");}while(r); } -fornext_continue_3796:; +fornext_continue_3973:; } -fornext_exit_3796:; -S_34096:; +fornext_exit_3973:; +S_36347:; if ((*__LONG_IDEAUTOLAYOUT)||new_error){ -if(qbevent){evnt(25066,532,"ide_methods.bas");if(r)goto S_34096;} +if(qbevent){evnt(26307,682,"ide_methods.bas");if(r)goto S_36347;} LABEL_SPACELAYOUT:; -if(qbevent){evnt(25066,533,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,683,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(25066,534,"ide_methods.bas");}while(r); -S_34098:; -fornext_value3802= 1 ; -fornext_finalvalue3802=__STRING_LAYOUT->len; -fornext_step3802= 1 ; -if (fornext_step3802<0) fornext_step_negative3802=1; else fornext_step_negative3802=0; -if (new_error) goto fornext_error3802; -goto fornext_entrylabel3802; +if(!qbevent)break;evnt(26307,684,"ide_methods.bas");}while(r); +S_36349:; +fornext_value3979= 1 ; +fornext_finalvalue3979=__STRING_LAYOUT->len; +fornext_step3979= 1 ; +if (fornext_step3979<0) fornext_step_negative3979=1; else fornext_step_negative3979=0; +if (new_error) goto fornext_error3979; +goto fornext_entrylabel3979; while(1){ -fornext_value3802=fornext_step3802+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3802: -*_FUNC_IDE2_LONG_I=fornext_value3802; +fornext_value3979=fornext_step3979+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel3979: +*_FUNC_IDE2_LONG_I=fornext_value3979; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3802){ -if (fornext_value3802fornext_finalvalue3802) break; +if (fornext_value3979>fornext_finalvalue3979) break; } -fornext_error3802:; -if(qbevent){evnt(25066,535,"ide_methods.bas");if(r)goto S_34098;} -S_34099:; +fornext_error3979:; +if(qbevent){evnt(26307,685,"ide_methods.bas");if(r)goto S_36349;} +S_36350:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)== 34 )))||new_error){ -if(qbevent){evnt(25066,536,"ide_methods.bas");if(r)goto S_34099;} +if(qbevent){evnt(26307,686,"ide_methods.bas");if(r)goto S_36350;} do{ *_FUNC_IDE2_LONG_IGNORESP=*_FUNC_IDE2_LONG_IGNORESP+ 1 ; -if(!qbevent)break;evnt(25066,537,"ide_methods.bas");}while(r); -S_34101:; +if(!qbevent)break;evnt(26307,687,"ide_methods.bas");}while(r); +S_36352:; if ((-(*_FUNC_IDE2_LONG_IGNORESP== 2 ))||new_error){ -if(qbevent){evnt(25066,537,"ide_methods.bas");if(r)goto S_34101;} +if(qbevent){evnt(26307,687,"ide_methods.bas");if(r)goto S_36352;} do{ *_FUNC_IDE2_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(25066,537,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,687,"ide_methods.bas");}while(r); } } -S_34105:; +S_36356:; if ((-(*_FUNC_IDE2_LONG_IGNORESP== 0 ))||new_error){ -if(qbevent){evnt(25066,539,"ide_methods.bas");if(r)goto S_34105;} -S_34106:; +if(qbevent){evnt(26307,689,"ide_methods.bas");if(r)goto S_36356;} +S_36357:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(25066,540,"ide_methods.bas");if(r)goto S_34106;} +if(qbevent){evnt(26307,690,"ide_methods.bas");if(r)goto S_36357;} do{ sub_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(25066,540,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,690,"ide_methods.bas");}while(r); } -S_34109:; +S_36360:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,1),__STRING1_SP2)))||new_error){ -if(qbevent){evnt(25066,541,"ide_methods.bas");if(r)goto S_34109;} +if(qbevent){evnt(26307,691,"ide_methods.bas");if(r)goto S_36360;} do{ qbs_set(__STRING_LAYOUT,qbs_add(qbs_left(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I- 1 ),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE2_LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,541,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,691,"ide_methods.bas");}while(r); do{ goto LABEL_SPACELAYOUT; -if(!qbevent)break;evnt(25066,541,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,691,"ide_methods.bas");}while(r); } } -fornext_continue_3801:; +fornext_continue_3978:; } -fornext_exit_3801:; +fornext_exit_3978:; } -S_34116:; +S_36367:; if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ -if(qbevent){evnt(25066,546,"ide_methods.bas");if(r)goto S_34116;} +if(qbevent){evnt(26307,696,"ide_methods.bas");if(r)goto S_36367;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,549,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,699,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_INDENT= 0 ; -if(!qbevent)break;evnt(25066,550,"ide_methods.bas");}while(r); -S_34119:; -fornext_value3806= 1 ; -fornext_finalvalue3806=_FUNC_IDE2_STRING_A->len; -fornext_step3806= 1 ; -if (fornext_step3806<0) fornext_step_negative3806=1; else fornext_step_negative3806=0; -if (new_error) goto fornext_error3806; -goto fornext_entrylabel3806; +if(!qbevent)break;evnt(26307,700,"ide_methods.bas");}while(r); +S_36370:; +fornext_value3983= 1 ; +fornext_finalvalue3983=_FUNC_IDE2_STRING_A->len; +fornext_step3983= 1 ; +if (fornext_step3983<0) fornext_step_negative3983=1; else fornext_step_negative3983=0; +if (new_error) goto fornext_error3983; +goto fornext_entrylabel3983; while(1){ -fornext_value3806=fornext_step3806+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3806: -*_FUNC_IDE2_LONG_I=fornext_value3806; +fornext_value3983=fornext_step3983+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel3983: +*_FUNC_IDE2_LONG_I=fornext_value3983; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3806){ -if (fornext_value3806fornext_finalvalue3806) break; +if (fornext_value3983>fornext_finalvalue3983) break; } -fornext_error3806:; -if(qbevent){evnt(25066,551,"ide_methods.bas");if(r)goto S_34119;} -S_34120:; +fornext_error3983:; +if(qbevent){evnt(26307,701,"ide_methods.bas");if(r)goto S_36370;} +S_36371:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==_FUNC_IDE2_STRING_A->len))))||new_error){ -if(qbevent){evnt(25066,552,"ide_methods.bas");if(r)goto S_34120;} +if(qbevent){evnt(26307,702,"ide_methods.bas");if(r)goto S_36371;} do{ *_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,553,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,703,"ide_methods.bas");}while(r); do{ -goto fornext_exit_3805; -if(!qbevent)break;evnt(25066,554,"ide_methods.bas");}while(r); +goto fornext_exit_3982; +if(!qbevent)break;evnt(26307,704,"ide_methods.bas");}while(r); } -fornext_continue_3805:; +fornext_continue_3982:; } -fornext_exit_3805:; +fornext_exit_3982:; do{ qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,557,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,707,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,559,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,709,"ide_methods.bas");}while(r); } -S_34129:; +S_36380:; if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ -if(qbevent){evnt(25066,562,"ide_methods.bas");if(r)goto S_34129;} +if(qbevent){evnt(26307,712,"ide_methods.bas");if(r)goto S_36380;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,564,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,714,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,565,"ide_methods.bas");}while(r); -S_34132:; -fornext_value3810= 1 ; -fornext_finalvalue3810=_FUNC_IDE2_STRING_A->len; -fornext_step3810= 1 ; -if (fornext_step3810<0) fornext_step_negative3810=1; else fornext_step_negative3810=0; -if (new_error) goto fornext_error3810; -goto fornext_entrylabel3810; +if(!qbevent)break;evnt(26307,715,"ide_methods.bas");}while(r); +S_36383:; +fornext_value3987= 1 ; +fornext_finalvalue3987=_FUNC_IDE2_STRING_A->len; +fornext_step3987= 1 ; +if (fornext_step3987<0) fornext_step_negative3987=1; else fornext_step_negative3987=0; +if (new_error) goto fornext_error3987; +goto fornext_entrylabel3987; while(1){ -fornext_value3810=fornext_step3810+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3810: -*_FUNC_IDE2_LONG_I=fornext_value3810; +fornext_value3987=fornext_step3987+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel3987: +*_FUNC_IDE2_LONG_I=fornext_value3987; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3810){ -if (fornext_value3810fornext_finalvalue3810) break; +if (fornext_value3987>fornext_finalvalue3987) break; } -fornext_error3810:; -if(qbevent){evnt(25066,566,"ide_methods.bas");if(r)goto S_34132;} -S_34133:; +fornext_error3987:; +if(qbevent){evnt(26307,716,"ide_methods.bas");if(r)goto S_36383;} +S_36384:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==_FUNC_IDE2_STRING_A->len))))||new_error){ -if(qbevent){evnt(25066,567,"ide_methods.bas");if(r)goto S_34133;} +if(qbevent){evnt(26307,717,"ide_methods.bas");if(r)goto S_36384;} do{ qbs_set(__STRING_LAYOUT,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_I+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,568,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,718,"ide_methods.bas");}while(r); do{ -goto fornext_exit_3809; -if(!qbevent)break;evnt(25066,569,"ide_methods.bas");}while(r); +goto fornext_exit_3986; +if(!qbevent)break;evnt(26307,719,"ide_methods.bas");}while(r); } -fornext_continue_3809:; +fornext_continue_3986:; } -fornext_exit_3809:; +fornext_exit_3986:; } do{ qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE2_STRING_INDENT,__STRING_LAYOUT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,574,"ide_methods.bas");}while(r); -S_34140:; +if(!qbevent)break;evnt(26307,724,"ide_methods.bas");}while(r); +S_36391:; if (((-(*__LONG_IDECY!=*__LONG_IDECOMPILEDLINE))|(-(*__LONG_IDELAYOUTALLOW!= 0 )))||new_error){ -if(qbevent){evnt(25066,576,"ide_methods.bas");if(r)goto S_34140;} +if(qbevent){evnt(26307,726,"ide_methods.bas");if(r)goto S_36391;} do{ *__LONG_IDELAYOUTALLOW= 0 ; -if(!qbevent)break;evnt(25066,577,"ide_methods.bas");}while(r); -S_34142:; +if(!qbevent)break;evnt(26307,727,"ide_methods.bas");}while(r); +S_36393:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ -if(qbevent){evnt(25066,579,"ide_methods.bas");if(r)goto S_34142;} +if(qbevent){evnt(26307,729,"ide_methods.bas");if(r)goto S_36393;} do{ SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,580,"ide_methods.bas");}while(r); -S_34144:; +if(!qbevent)break;evnt(26307,730,"ide_methods.bas");}while(r); +S_36395:; if (((-(*__LONG_IDECOMPILEDLINE>=*__LONG_IDESY))&(-(*__LONG_IDECOMPILEDLINE<=(*__LONG_IDESY+ 16 ))))||new_error){ -if(qbevent){evnt(25066,581,"ide_methods.bas");if(r)goto S_34144;} +if(qbevent){evnt(26307,731,"ide_methods.bas");if(r)goto S_36395;} do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,581,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,731,"ide_methods.bas");}while(r); } } }else{ -S_34149:; +S_36400:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ -if(qbevent){evnt(25066,586,"ide_methods.bas");if(r)goto S_34149;} +if(qbevent){evnt(26307,736,"ide_methods.bas");if(r)goto S_36400;} do{ qbs_set(__STRING_IDECURRENTLINELAYOUT,__STRING_LAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,587,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,737,"ide_methods.bas");}while(r); do{ *__LONG_IDECURRENTLINELAYOUTI=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,588,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,738,"ide_methods.bas");}while(r); } } } } } -S_34157:; +S_36408:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 6 ))))||new_error){ -if(qbevent){evnt(25066,599,"ide_methods.bas");if(r)goto S_34157;} +if(qbevent){evnt(26307,749,"ide_methods.bas");if(r)goto S_36408;} do{ *__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(25066,600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,750,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_READY= 1 ; -if(!qbevent)break;evnt(25066,601,"ide_methods.bas");}while(r); -S_34160:; +if(!qbevent)break;evnt(26307,751,"ide_methods.bas");}while(r); +S_36411:; if ((*__LONG_IDEAUTORUN)||new_error){ -if(qbevent){evnt(25066,602,"ide_methods.bas");if(r)goto S_34160;} +if(qbevent){evnt(26307,752,"ide_methods.bas");if(r)goto S_36411;} do{ *__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(25066,602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,752,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMRUNSPECIAL; -if(!qbevent)break;evnt(25066,602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,752,"ide_methods.bas");}while(r); } } -S_34165:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 11 ))))||new_error){ -if(qbevent){evnt(25066,605,"ide_methods.bas");if(r)goto S_34165;} +do{ +if(!qbevent)break;evnt(26307,755,"ide_methods.bas");}while(r); +S_36417:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(*_FUNC_IDE2_BYTE_ATTEMPTTOHOST== 0 )))||new_error){ +if(qbevent){evnt(26307,756,"ide_methods.bas");if(r)goto S_36417;} +S_36418:; +if ((-(*__LONG_HOST== 0 ))||new_error){ +if(qbevent){evnt(26307,757,"ide_methods.bas");if(r)goto S_36418;} +do{ +qbs_set(__STRING_HOSTPORT,qbs__trim(qbs_str((int64)(*__LONG_IDEBASETCPPORT+*__LONG_TEMPFOLDERINDEX)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,758,"ide_methods.bas");}while(r); +do{ +sub_environ(qbs_add(qbs_new_txt_len("QB64DEBUGPORT=",14),__STRING_HOSTPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,759,"ide_methods.bas");}while(r); +do{ +*__LONG_HOST=func__openhost(qbs_add(qbs_new_txt_len("TCP/IP:",7),__STRING_HOSTPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,760,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOHOST= -1 ; +if(!qbevent)break;evnt(26307,761,"ide_methods.bas");}while(r); +} +S_36424:; +if ((*_FUNC_IDE2_BYTE_CHANGINGTCPPORT&(-(*__LONG_HOST== 0 )))||new_error){ +if(qbevent){evnt(26307,763,"ide_methods.bas");if(r)goto S_36424;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_add(qbs_add(qbs_new_txt_len("Cannot receive connections on port",34),qbs_str((int32)(*__LONG_IDEBASETCPPORT))),qbs_new_txt_len(".\\nCheck your firewall permissions.",35)),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,764,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,765,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,765,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_CHANGINGTCPPORT= 0 ; +if(!qbevent)break;evnt(26307,767,"ide_methods.bas");}while(r); +} +S_36431:; +if ((*__LONG_IDEDEBUGMODE)||new_error){ +if(qbevent){evnt(26307,770,"ide_methods.bas");if(r)goto S_36431;} do{ *__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(25066,606,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,771,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_READY= 1 ; -if(!qbevent)break;evnt(25066,607,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(25066,608,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SHOWEXECREATED= 1 ; -if(!qbevent)break;evnt(25066,609,"ide_methods.bas");}while(r); -} -S_34171:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 7 ))))||new_error){ -if(qbevent){evnt(25066,612,"ide_methods.bas");if(r)goto S_34171;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; -if(!qbevent)break;evnt(25066,613,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILEDLINE= 0 ; -if(!qbevent)break;evnt(25066,614,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; -if(!qbevent)break;evnt(25066,615,"ide_methods.bas");}while(r); -} -S_34176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 8 ))))||new_error){ -if(qbevent){evnt(25066,618,"ide_methods.bas");if(r)goto S_34176;} -do{ -*__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(25066,619,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FAILED= 1 ; -if(!qbevent)break;evnt(25066,620,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(25066,621,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_PASSBACK= 0 ; -if(!qbevent)break;evnt(25066,624,"ide_methods.bas");}while(r); -S_34182:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 10 ))))||new_error){ -if(qbevent){evnt(25066,625,"ide_methods.bas");if(r)goto S_34182;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; -if(!qbevent)break;evnt(25066,626,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; -if(!qbevent)break;evnt(25066,627,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE- 1 ; -if(!qbevent)break;evnt(25066,628,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PASSBACK= 1 ; -if(!qbevent)break;evnt(25066,629,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_PASSBACK,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,630,"ide_methods.bas");}while(r); -} -S_34189:; -if ((*_FUNC_IDE2_LONG_MUSTDISPLAY)||new_error){ -if(qbevent){evnt(25066,633,"ide_methods.bas");if(r)goto S_34189;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,633,"ide_methods.bas");}while(r); -} -S_34192:; -if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ -if(qbevent){evnt(25066,635,"ide_methods.bas");if(r)goto S_34192;} -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,637,"ide_methods.bas");}while(r); -S_34194:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ -if(qbevent){evnt(25066,642,"ide_methods.bas");if(r)goto S_34194;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3815; -makefit(tqbs); -qbs_print(tqbs,0); -skip3815: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3816; -makefit(tqbs); -qbs_print(tqbs,0); -skip3816: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3817; -makefit(tqbs); -qbs_print(tqbs,0); -skip3817: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,643,"ide_methods.bas");}while(r); -S_34202:; -if ((*_FUNC_IDE2_LONG_READY)||new_error){ -if(qbevent){evnt(25066,644,"ide_methods.bas");if(r)goto S_34202;} -S_34203:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(25066,645,"ide_methods.bas");if(r)goto S_34203;} -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,646,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("OK",2)); -if (new_error) goto skip3818; -makefit(tqbs); -qbs_print(tqbs,0); -skip3818: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,646,"ide_methods.bas");}while(r); -S_34206:; -if (((-(*__LONG_TOTALWARNINGS> 0 ))&(-(*_FUNC_IDE2_LONG_SHOWEXECREATED== 0 )))||new_error){ -if(qbevent){evnt(25066,647,"ide_methods.bas");if(r)goto S_34206;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,648,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" (",2)); -if (new_error) goto skip3819; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS))),qbs_new_txt_len(" warning",8))); -if (new_error) goto skip3819; -makefit(tqbs); -qbs_print(tqbs,0); -skip3819: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,649,"ide_methods.bas");}while(r); -S_34209:; -if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ -if(qbevent){evnt(25066,650,"ide_methods.bas");if(r)goto S_34209;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("s",1)); -if (new_error) goto skip3820; -makefit(tqbs); -qbs_print(tqbs,0); -skip3820: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,650,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" - click here or Ctrl+W to view)",32)); -if (new_error) goto skip3821; -makefit(tqbs); -qbs_print(tqbs,0); -skip3821: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,651,"ide_methods.bas");}while(r); -} -} -} -S_34216:; -if ((*_FUNC_IDE2_LONG_SHOWEXECREATED)||new_error){ -if(qbevent){evnt(25066,655,"ide_methods.bas");if(r)goto S_34216;} -do{ -*_FUNC_IDE2_LONG_SHOWEXECREATED= 0 ; -if(!qbevent)break;evnt(25066,656,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,657,"ide_methods.bas");}while(r); -S_34219:; -if ((*__LONG_MAKEANDROID)||new_error){ -if(qbevent){evnt(25066,659,"ide_methods.bas");if(r)goto S_34219;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("Project [programs\\android\\",26),__STRING_FILE),qbs_new_txt_len("] created",9))); -if (new_error) goto skip3822; -makefit(tqbs); -qbs_print(tqbs,0); -skip3822: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,660,"ide_methods.bas");}while(r); -}else{ -S_34222:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,662,"ide_methods.bas");if(r)goto S_34222;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Executable file created",23)); -if (new_error) goto skip3823; -makefit(tqbs); -qbs_print(tqbs,0); -skip3823: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,663,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(".EXE file created",17)); -if (new_error) goto skip3824; -makefit(tqbs); -qbs_print(tqbs,0); -skip3824: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,665,"ide_methods.bas");}while(r); -} -S_34227:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(25066,668,"ide_methods.bas");if(r)goto S_34227;} -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,669,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Location: ",10)); -if (new_error) goto skip3825; -makefit(tqbs); -qbs_print(tqbs,0); -skip3825: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,670,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,671,"ide_methods.bas");}while(r); -S_34231:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,672,"ide_methods.bas");if(r)goto S_34231;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,FUNC_GETFILEPATH(func_command( 0 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,672,"ide_methods.bas");}while(r); -} -S_34234:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__EXE, 1 ),__STRING1_PATHSEP)))||new_error){ -if(qbevent){evnt(25066,673,"ide_methods.bas");if(r)goto S_34234;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,673,"ide_methods.bas");}while(r); -} -S_34237:; -if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+__STRING_PATH__ASCII_CHR_046__EXE->len)>*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(25066,674,"ide_methods.bas");if(r)goto S_34237;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("...",3)); -if (new_error) goto skip3827; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_right(__STRING_PATH__ASCII_CHR_046__EXE,*__LONG_IDEWX- 15 )); -if (new_error) goto skip3827; -makefit(tqbs); -qbs_print(tqbs,0); -skip3827: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,675,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_PATH__ASCII_CHR_046__EXE); -if (new_error) goto skip3828; -makefit(tqbs); -qbs_print(tqbs,0); -skip3828: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,677,"ide_methods.bas");}while(r); -} -} -} -} -} -} -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(25066,687,"ide_methods.bas");}while(r); -S_34248:; -do{ -if(qbevent){evnt(25066,718,"ide_methods.bas");if(r)goto S_34248;} -LABEL_IDELOOP:; -if(qbevent){evnt(25066,719,"ide_methods.bas");r=0;} -S_34249:; -if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(25066,720,"ide_methods.bas");if(r)goto S_34249;} -do{ -*__LONG_MAXLINENUMBERLENGTH=((int32)(qbs_str((int32)(*__LONG_IDEN)))->len)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,720,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_MAXLINENUMBERLENGTH= 0 ; -if(!qbevent)break;evnt(25066,720,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,721,"ide_methods.bas");}while(r); -do{ -SUB_IDEDELTXT(); -if(!qbevent)break;evnt(25066,722,"ide_methods.bas");}while(r); -S_34256:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(25066,723,"ide_methods.bas");if(r)goto S_34256;} -do{ -sub__resize( 2 ,NULL); -if(!qbevent)break;evnt(25066,723,"ide_methods.bas");}while(r); -}else{ -do{ -sub__resize( 1 ,NULL); -if(!qbevent)break;evnt(25066,723,"ide_methods.bas");}while(r); -} -S_34261:; -if ((func__resize()|*_FUNC_IDE2_LONG_FORCERESIZE)||new_error){ -if(qbevent){evnt(25066,725,"ide_methods.bas");if(r)goto S_34261;} -S_34262:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(25066,726,"ide_methods.bas");if(r)goto S_34262;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(25066,727,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_RETVAL= 0 ; -if(!qbevent)break;evnt(25066,729,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= 0 ; -if(!qbevent)break;evnt(25066,730,"ide_methods.bas");}while(r); -S_34267:; -do{ -if(qbevent){evnt(25066,731,"ide_methods.bas");if(r)goto S_34267;} -do{ -*_FUNC_IDE2_BYTE_TOOSMALL= 0 ; -if(!qbevent)break;evnt(25066,732,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_INTEGER_V=func__resizewidth()/ func__fontwidth(NULL,0); -if(!qbevent)break;evnt(25066,733,"ide_methods.bas");}while(r); -S_34270:; -if (((-(*_FUNC_IDE2_INTEGER_V< 80 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ -if(qbevent){evnt(25066,733,"ide_methods.bas");if(r)goto S_34270;} -do{ -*_FUNC_IDE2_INTEGER_V= 80 ; -if(!qbevent)break;evnt(25066,733,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; -if(!qbevent)break;evnt(25066,733,"ide_methods.bas");}while(r); -} -S_34274:; -if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,734,"ide_methods.bas");if(r)goto S_34274;} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,734,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWX=*_FUNC_IDE2_INTEGER_V; -if(!qbevent)break;evnt(25066,734,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_INTEGER_V=func__resizeheight()/ func__fontheight(NULL,0); -if(!qbevent)break;evnt(25066,735,"ide_methods.bas");}while(r); -S_34279:; -if (((-(*_FUNC_IDE2_INTEGER_V< 25 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ -if(qbevent){evnt(25066,735,"ide_methods.bas");if(r)goto S_34279;} -do{ -*_FUNC_IDE2_INTEGER_V= 25 ; -if(!qbevent)break;evnt(25066,735,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; -if(!qbevent)break;evnt(25066,735,"ide_methods.bas");}while(r); -} -S_34283:; -if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(25066,736,"ide_methods.bas");if(r)goto S_34283;} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,736,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*_FUNC_IDE2_INTEGER_V; -if(!qbevent)break;evnt(25066,736,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_TEMPF=func__font(NULL,0); -if(!qbevent)break;evnt(25066,738,"ide_methods.bas");}while(r); -do{ -qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,3); -if(!qbevent)break;evnt(25066,739,"ide_methods.bas");}while(r); -do{ -sub__font(*_FUNC_IDE2_LONG_TEMPF,NULL,0); -if(!qbevent)break;evnt(25066,740,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,742,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); -if(!qbevent)break;evnt(25066,743,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,744,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(25066,745,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,746,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,747,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,748,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,749,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,750,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,751,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,754,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,755,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX)); -if (new_error) goto skip3831; -makefit(tqbs); -qbs_print(tqbs,0); -skip3831: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,755,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,756,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_left(__STRING_MENUBAR,*__LONG_IDEWX)); -if (new_error) goto skip3832; -makefit(tqbs); -qbs_print(tqbs,0); -skip3832: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,756,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,757,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass3833= 1 ),&(pass3834= 2 ),__LONG_IDEWX,&(pass3835=*__LONG_IDEWY- 5 )); -if(!qbevent)break;evnt(25066,757,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,759,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass3836= 1 ),&(pass3837=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass3838= 5 )); -if(!qbevent)break;evnt(25066,759,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,761,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 4 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,761,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 195 )); -if (new_error) goto skip3839; -makefit(tqbs); -qbs_print(tqbs,0); -skip3839: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,761,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,761,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 180 )); -if (new_error) goto skip3840; -makefit(tqbs); -qbs_print(tqbs,0); -skip3840: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,761,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=8; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_8:; -if(!qbevent)break;evnt(25066,763,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,766,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,766,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX)); -if (new_error) goto skip3841; -makefit(tqbs); -qbs_print(tqbs,0); -skip3841: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,766,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3842=*__LONG_IDEWY- 3 ),&(pass3843= 3 ),&(pass3844= 1 ),&(pass3845= 1 )); -if(!qbevent)break;evnt(25066,767,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3846= 3 ),&(pass3847=*__LONG_IDEWY- 8 ),&(pass3848= 1 ),&(pass3849= 1 )); -if(!qbevent)break;evnt(25066,768,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass3850= 2 ),&(pass3851=*__LONG_IDEWY- 5 ),&(pass3852=*__LONG_IDEWX- 2 ),&(pass3853= 1 ),&(pass3854= 1 )); -if(!qbevent)break;evnt(25066,769,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=9; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; -RETURN_9:; -if(!qbevent)break;evnt(25066,771,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,773,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Resizing...",11),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,774,"ide_methods.bas");}while(r); -S_34324:; -if ((*_FUNC_IDE2_BYTE_TOOSMALL)||new_error){ -if(qbevent){evnt(25066,775,"ide_methods.bas");if(r)goto S_34324;} -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,776,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 , 3 ,qbs_new_txt_len("ERROR: Minimum window size is 80x25",35),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,777,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,779,"ide_methods.bas");}while(r); -} -do{ -sub__display(); -if(!qbevent)break;evnt(25066,782,"ide_methods.bas");}while(r); -do{ -sub__limit( 30 ); -if(!qbevent)break;evnt(25066,783,"ide_methods.bas");}while(r); -S_34332:; -dl_continue_3830:; -}while((func__resize())&&(!new_error)); -dl_exit_3830:; -if(qbevent){evnt(25066,784,"ide_methods.bas");if(r)goto S_34332;} -S_34333:; -if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ -if(qbevent){evnt(25066,786,"ide_methods.bas");if(r)goto S_34333;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,787,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,788,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,791,"ide_methods.bas");}while(r); -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(25066,792,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,772,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=10; if (next_return_point>=return_points) more_return_points(); goto LABEL_REDRAWITALL; RETURN_10:; -if(!qbevent)break;evnt(25066,793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,773,"ide_methods.bas");}while(r); +do{ +goto LABEL_EXITDEBUGMODE; +if(!qbevent)break;evnt(26307,774,"ide_methods.bas");}while(r); } +S_36437:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 254 ))))||new_error){ +if(qbevent){evnt(26307,777,"ide_methods.bas");if(r)goto S_36437;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,779,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +error(10); }else{ -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(25066,796,"ide_methods.bas");}while(r); +((mem_lock*)((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8])->id=(++mem_lock_id); +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +tmp_long=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0])); } -S_34344:; -if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ -if(qbevent){evnt(25066,799,"ide_methods.bas");if(r)goto S_34344;} -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,801,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SFNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,807,"ide_methods.bas");}while(r); -S_34347:; -fornext_value3856=*__LONG_IDECY; -fornext_finalvalue3856= 1 ; -fornext_step3856= -1 ; -if (fornext_step3856<0) fornext_step_negative3856=1; else fornext_step_negative3856=0; -if (new_error) goto fornext_error3856; -goto fornext_entrylabel3856; -while(1){ -fornext_value3856=fornext_step3856+(*_FUNC_IDE2_LONG_CURRSF_CHECK); -fornext_entrylabel3856: -*_FUNC_IDE2_LONG_CURRSF_CHECK=fornext_value3856; -if (fornext_step_negative3856){ -if (fornext_value3856fornext_finalvalue3856) break; -} -fornext_error3856:; -if(qbevent){evnt(25066,808,"ide_methods.bas");if(r)goto S_34347;} -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_CURRSF_CHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,809,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,810,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_ISSF= 0 ; -if(!qbevent)break;evnt(25066,811,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_NCTHISLINE,qbs_ucase(_FUNC_IDE2_STRING_THISLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,812,"ide_methods.bas");}while(r); -S_34352:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(25066,813,"ide_methods.bas");if(r)goto S_34352;} -do{ -*_FUNC_IDE2_LONG_ISSF= 1 ; -if(!qbevent)break;evnt(25066,813,"ide_methods.bas");}while(r); -} -S_34355:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(25066,814,"ide_methods.bas");if(r)goto S_34355;} -do{ -*_FUNC_IDE2_LONG_ISSF= 2 ; -if(!qbevent)break;evnt(25066,814,"ide_methods.bas");}while(r); -} -S_34358:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7)))&(-(*_FUNC_IDE2_LONG_CURRSF_CHECK<*__LONG_IDECY))))||new_error){ -if(qbevent){evnt(25066,815,"ide_methods.bas");if(r)goto S_34358;} -do{ -goto fornext_exit_3855; -if(!qbevent)break;evnt(25066,815,"ide_methods.bas");}while(r); -} -S_34361:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12)))&(-(*_FUNC_IDE2_LONG_CURRSF_CHECK<*__LONG_IDECY))))||new_error){ -if(qbevent){evnt(25066,816,"ide_methods.bas");if(r)goto S_34361;} -do{ -goto fornext_exit_3855; -if(!qbevent)break;evnt(25066,816,"ide_methods.bas");}while(r); -} -S_34364:; -if ((*_FUNC_IDE2_LONG_ISSF)||new_error){ -if(qbevent){evnt(25066,817,"ide_methods.bas");if(r)goto S_34364;} -S_34365:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_NCTHISLINE, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(25066,818,"ide_methods.bas");if(r)goto S_34365;} -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_THISLINE,_FUNC_IDE2_STRING_THISLINE->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,819,"ide_methods.bas");}while(r); -} -S_34368:; -if ((-(*_FUNC_IDE2_LONG_ISSF== 1 ))||new_error){ -if(qbevent){evnt(25066,822,"ide_methods.bas");if(r)goto S_34368;} -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_right(_FUNC_IDE2_STRING_THISLINE,_FUNC_IDE2_STRING_THISLINE->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,823,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_right(_FUNC_IDE2_STRING_THISLINE,_FUNC_IDE2_STRING_THISLINE->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,825,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,827,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHECKARGS=func_instr(NULL,_FUNC_IDE2_STRING_THISLINE,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,828,"ide_methods.bas");}while(r); -S_34375:; -if ((*_FUNC_IDE2_LONG_CHECKARGS)||new_error){ -if(qbevent){evnt(25066,829,"ide_methods.bas");if(r)goto S_34375;} -do{ -qbs_set(_FUNC_IDE2_STRING_SFNAME,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_THISLINE,*_FUNC_IDE2_LONG_CHECKARGS- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,830,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_SFNAME,_FUNC_IDE2_STRING_THISLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,832,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(25066,837,"ide_methods.bas");}while(r); -S_34381:; -fornext_value3861=*_FUNC_IDE2_LONG_CURRSF_CHECK; -fornext_finalvalue3861= 1 ; -fornext_step3861= -1 ; -if (fornext_step3861<0) fornext_step_negative3861=1; else fornext_step_negative3861=0; -if (new_error) goto fornext_error3861; -goto fornext_entrylabel3861; -while(1){ -fornext_value3861=fornext_step3861+(*_FUNC_IDE2_LONG_DECLIB_CHECK); -fornext_entrylabel3861: -*_FUNC_IDE2_LONG_DECLIB_CHECK=fornext_value3861; -if (fornext_step_negative3861){ -if (fornext_value3861fornext_finalvalue3861) break; -} -fornext_error3861:; -if(qbevent){evnt(25066,838,"ide_methods.bas");if(r)goto S_34381;} -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_DECLIB_CHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,839,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,840,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_NCTHISLINE,qbs_ucase(_FUNC_IDE2_STRING_THISLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,841,"ide_methods.bas");}while(r); -S_34385:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDE2_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(25066,842,"ide_methods.bas");if(r)goto S_34385;} -do{ -*_FUNC_IDE2_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(25066,842,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3860; -if(!qbevent)break;evnt(25066,842,"ide_methods.bas");}while(r); -} -S_34389:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(25066,843,"ide_methods.bas");if(r)goto S_34389;} -do{ -goto fornext_exit_3860; -if(!qbevent)break;evnt(25066,843,"ide_methods.bas");}while(r); -} -fornext_continue_3860:; -} -fornext_exit_3860:; -S_34393:; -if ((-(*_FUNC_IDE2_LONG_INSIDEDECLARE== -1 ))||new_error){ -if(qbevent){evnt(25066,846,"ide_methods.bas");if(r)goto S_34393;} -do{ -qbs_set(_FUNC_IDE2_STRING_SFNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,847,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_ENDEDSF= 0 ; -if(!qbevent)break;evnt(25066,853,"ide_methods.bas");}while(r); -S_34397:; -fornext_value3863=*__LONG_IDECY; -fornext_finalvalue3863=*__LONG_IDEN; -fornext_step3863= 1 ; -if (fornext_step3863<0) fornext_step_negative3863=1; else fornext_step_negative3863=0; -if (new_error) goto fornext_error3863; -goto fornext_entrylabel3863; -while(1){ -fornext_value3863=fornext_step3863+(*_FUNC_IDE2_LONG_ENDSF_CHECK); -fornext_entrylabel3863: -*_FUNC_IDE2_LONG_ENDSF_CHECK=fornext_value3863; -if (fornext_step_negative3863){ -if (fornext_value3863fornext_finalvalue3863) break; -} -fornext_error3863:; -if(qbevent){evnt(25066,854,"ide_methods.bas");if(r)goto S_34397;} -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_ENDSF_CHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,855,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,856,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_NCTHISLINE,qbs_ucase(_FUNC_IDE2_STRING_THISLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,857,"ide_methods.bas");}while(r); -S_34401:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7))))||new_error){ -if(qbevent){evnt(25066,858,"ide_methods.bas");if(r)goto S_34401;} -do{ -*_FUNC_IDE2_LONG_ENDEDSF= 1 ; -if(!qbevent)break;evnt(25066,858,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3862; -if(!qbevent)break;evnt(25066,858,"ide_methods.bas");}while(r); -} -S_34405:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12))))||new_error){ -if(qbevent){evnt(25066,859,"ide_methods.bas");if(r)goto S_34405;} -do{ -*_FUNC_IDE2_LONG_ENDEDSF= 2 ; -if(!qbevent)break;evnt(25066,859,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3862; -if(!qbevent)break;evnt(25066,859,"ide_methods.bas");}while(r); -} -S_34409:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_IDE2_LONG_ENDSF_CHECK==*__LONG_IDECY))))||new_error){ -if(qbevent){evnt(25066,860,"ide_methods.bas");if(r)goto S_34409;} -do{ -*_FUNC_IDE2_LONG_ENDEDSF= 1 ; -if(!qbevent)break;evnt(25066,860,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3862; -if(!qbevent)break;evnt(25066,860,"ide_methods.bas");}while(r); -} -S_34413:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_IDE2_LONG_ENDSF_CHECK==*__LONG_IDECY))))||new_error){ -if(qbevent){evnt(25066,861,"ide_methods.bas");if(r)goto S_34413;} -do{ -*_FUNC_IDE2_LONG_ENDEDSF= 2 ; -if(!qbevent)break;evnt(25066,861,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3862; -if(!qbevent)break;evnt(25066,861,"ide_methods.bas");}while(r); -} -S_34417:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_IDE2_LONG_INSIDEDECLARE== 0 ))))||new_error){ -if(qbevent){evnt(25066,862,"ide_methods.bas");if(r)goto S_34417;} -do{ -goto fornext_exit_3862; -if(!qbevent)break;evnt(25066,862,"ide_methods.bas");}while(r); -} -S_34420:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_IDE2_LONG_INSIDEDECLARE== 0 ))))||new_error){ -if(qbevent){evnt(25066,863,"ide_methods.bas");if(r)goto S_34420;} -do{ -goto fornext_exit_3862; -if(!qbevent)break;evnt(25066,863,"ide_methods.bas");}while(r); -} -S_34423:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDE2_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(25066,864,"ide_methods.bas");if(r)goto S_34423;} -do{ -*_FUNC_IDE2_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(25066,864,"ide_methods.bas");}while(r); -} -S_34426:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(25066,865,"ide_methods.bas");if(r)goto S_34426;} -do{ -*_FUNC_IDE2_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(25066,865,"ide_methods.bas");}while(r); -} -fornext_continue_3862:; -} -fornext_exit_3862:; -S_34430:; -if ((-(*_FUNC_IDE2_LONG_ENDEDSF== 0 ))||new_error){ -if(qbevent){evnt(25066,867,"ide_methods.bas");if(r)goto S_34430;} -do{ -qbs_set(_FUNC_IDE2_STRING_SFNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,867,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_3855; -if(!qbevent)break;evnt(25066,867,"ide_methods.bas");}while(r); +while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -fornext_continue_3855:; -} -fornext_exit_3855:; -S_34438:; -fornext_value3865= 1 ; -fornext_finalvalue3865=_FUNC_IDE2_STRING_SFNAME->len; -fornext_step3865= 1 ; -if (fornext_step3865<0) fornext_step_negative3865=1; else fornext_step_negative3865=0; -if (new_error) goto fornext_error3865; -goto fornext_entrylabel3865; -while(1){ -fornext_value3865=fornext_step3865+(*_FUNC_IDE2_LONG_CLEANSESFNAME); -fornext_entrylabel3865: -*_FUNC_IDE2_LONG_CLEANSESFNAME=fornext_value3865; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3865){ -if (fornext_value3865fornext_finalvalue3865) break; -} -fornext_error3865:; -if(qbevent){evnt(25066,873,"ide_methods.bas");if(r)goto S_34438;} -S_34439:; -qbs_set(sc_3867,func_mid(_FUNC_IDE2_STRING_SFNAME,*_FUNC_IDE2_LONG_CLEANSESFNAME, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,874,"ide_methods.bas");if(r)goto S_34439;} -S_34440:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3867,qbs_new_txt_len(" ",1))||qbs_equal(sc_3867,qbs_new_txt_len("'",1))||qbs_equal(sc_3867,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,875,"ide_methods.bas");if(r)goto S_34440;} +if(!qbevent)break;evnt(26307,781,"ide_methods.bas");}while(r); +LABEL_ENTERDEBUGMODE:; +if(qbevent){evnt(26307,783,"ide_methods.bas");r=0;} +S_36440:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26307,784,"ide_methods.bas");if(r)goto S_36440;} do{ -qbs_set(_FUNC_IDE2_STRING_SFNAME,qbs_left(_FUNC_IDE2_STRING_SFNAME,*_FUNC_IDE2_LONG_CLEANSESFNAME- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,876,"ide_methods.bas");}while(r); +*__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26307,785,"ide_methods.bas");}while(r); do{ -goto fornext_exit_3864; -if(!qbevent)break;evnt(25066,877,"ide_methods.bas");}while(r); -goto sc_3867_end; +*__LONG_IDEHELP= 0 ; +if(!qbevent)break;evnt(26307,786,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW= 0 ; +if(!qbevent)break;evnt(26307,787,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,788,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26307,789,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26307,790,"ide_methods.bas");}while(r); } -sc_3867_end:; -fornext_continue_3864:; -} -fornext_exit_3864:; do{ return_point[next_return_point++]=11; if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; +goto LABEL_REDRAWITALL; RETURN_11:; -if(!qbevent)break;evnt(25066,882,"ide_methods.bas");}while(r); -S_34446:; -if ((*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(25066,885,"ide_methods.bas");if(r)goto S_34446;} +if(!qbevent)break;evnt(26307,793,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26307,794,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_READY= 1 ; +if(!qbevent)break;evnt(26307,795,"ide_methods.bas");}while(r); +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26307,796,"ide_methods.bas");}while(r); +do{ +SUB_DEBUGMODE(); +if(!qbevent)break;evnt(26307,797,"ide_methods.bas");}while(r); +LABEL_EXITDEBUGMODE:; +if(qbevent){evnt(26307,798,"ide_methods.bas");r=0;} +S_36453:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26307,799,"ide_methods.bas");if(r)goto S_36453;} +do{ +sub__console( 2 ); +if(!qbevent)break;evnt(26307,799,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEMENUHELPLINE(qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,800,"ide_methods.bas");}while(r); +S_36457:; +if(qbevent){evnt(26307,801,"ide_methods.bas");if(r)goto S_36457;} +S_36458:; +if (((*__LONG_IDEDEBUGMODE==( 1 )))||new_error){ +if(qbevent){evnt(26307,802,"ide_methods.bas");if(r)goto S_36458;} +do{ +*__LONG_IDEDEBUGMODE= 0 ; +if(!qbevent)break;evnt(26307,803,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26307,804,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26307,805,"ide_methods.bas");}while(r); +sc_ec_178_end:; +goto sc_3991_end; +} +S_36462:; +if (((*__LONG_IDEDEBUGMODE==( 2 )))||new_error){ +if(qbevent){evnt(26307,806,"ide_methods.bas");if(r)goto S_36462;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,807,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKECONTEXTUALMENU(); +if(!qbevent)break;evnt(26307,808,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; +if(!qbevent)break;evnt(26307,809,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26307,810,"ide_methods.bas");}while(r); +sc_ec_179_end:; +goto sc_3991_end; +} +sc_3991_end:; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,812,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,812,"ide_methods.bas");}while(r); +S_36470:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26307,813,"ide_methods.bas");if(r)goto S_36470;} +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26307,813,"ide_methods.bas");}while(r); +}else{ +do{ +sub__resize( 1 ,NULL); +if(!qbevent)break;evnt(26307,813,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,814,"ide_methods.bas");}while(r); +} +S_36477:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 11 ))))||new_error){ +if(qbevent){evnt(26307,817,"ide_methods.bas");if(r)goto S_36477;} +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26307,818,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_READY= 1 ; +if(!qbevent)break;evnt(26307,819,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEAUTORUN= 0 ; +if(!qbevent)break;evnt(26307,820,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SHOWEXECREATED= 1 ; +if(!qbevent)break;evnt(26307,821,"ide_methods.bas");}while(r); +} +S_36483:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26307,824,"ide_methods.bas");if(r)goto S_36483;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; +if(!qbevent)break;evnt(26307,825,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILEDLINE= 0 ; +if(!qbevent)break;evnt(26307,826,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; +if(!qbevent)break;evnt(26307,827,"ide_methods.bas");}while(r); +} +S_36488:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 8 ))))||new_error){ +if(qbevent){evnt(26307,830,"ide_methods.bas");if(r)goto S_36488;} +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26307,831,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FAILED= 1 ; +if(!qbevent)break;evnt(26307,832,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEAUTORUN= 0 ; +if(!qbevent)break;evnt(26307,833,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_PASSBACK= 0 ; +if(!qbevent)break;evnt(26307,836,"ide_methods.bas");}while(r); +S_36494:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 10 ))))||new_error){ +if(qbevent){evnt(26307,837,"ide_methods.bas");if(r)goto S_36494;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; +if(!qbevent)break;evnt(26307,838,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; +if(!qbevent)break;evnt(26307,839,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE- 1 ; +if(!qbevent)break;evnt(26307,840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PASSBACK= 1 ; +if(!qbevent)break;evnt(26307,841,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_PASSBACK,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,842,"ide_methods.bas");}while(r); +} +S_36501:; +if ((*_FUNC_IDE2_LONG_MUSTDISPLAY)||new_error){ +if(qbevent){evnt(26307,845,"ide_methods.bas");if(r)goto S_36501;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,845,"ide_methods.bas");}while(r); +} +S_36504:; +if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ +if(qbevent){evnt(26307,847,"ide_methods.bas");if(r)goto S_36504;} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,849,"ide_methods.bas");}while(r); +S_36506:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ +if(qbevent){evnt(26307,854,"ide_methods.bas");if(r)goto S_36506;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass3993= 0 )); +if(!qbevent)break;evnt(26307,855,"ide_methods.bas");}while(r); +S_36508:; +if ((*_FUNC_IDE2_LONG_READY)||new_error){ +if(qbevent){evnt(26307,856,"ide_methods.bas");if(r)goto S_36508;} +S_36509:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ +if(qbevent){evnt(26307,857,"ide_methods.bas");if(r)goto S_36509;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,858,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 0 ; +if(!qbevent)break;evnt(26307,859,"ide_methods.bas");}while(r); +S_36512:; +if (((-(*__LONG_TOTALWARNINGS> 0 ))&(-(*_FUNC_IDE2_LONG_SHOWEXECREATED== 0 )))||new_error){ +if(qbevent){evnt(26307,860,"ide_methods.bas");if(r)goto S_36512;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,861,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,862,"ide_methods.bas");}while(r); +S_36515:; +if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ +if(qbevent){evnt(26307,863,"ide_methods.bas");if(r)goto S_36515;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,863,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,864,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,865,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 4 ; +if(!qbevent)break;evnt(26307,866,"ide_methods.bas");}while(r); +} +S_36522:; +if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ +if(qbevent){evnt(26307,868,"ide_methods.bas");if(r)goto S_36522;} do{ return_point[next_return_point++]=12; if (next_return_point>=return_points) more_return_points(); -goto LABEL_DRAWQUICKNAV; +goto LABEL_SHOWVARLISTREADY; RETURN_12:; -if(!qbevent)break;evnt(25066,885,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,868,"ide_methods.bas");}while(r); } +} +} +S_36527:; +if ((*_FUNC_IDE2_LONG_SHOWEXECREATED)||new_error){ +if(qbevent){evnt(26307,871,"ide_methods.bas");if(r)goto S_36527;} +do{ +*_FUNC_IDE2_LONG_SHOWEXECREATED= 0 ; +if(!qbevent)break;evnt(26307,872,"ide_methods.bas");}while(r); +S_36529:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26307,874,"ide_methods.bas");if(r)goto S_36529;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Executable file created",23),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,875,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len(".EXE file created",17),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,877,"ide_methods.bas");}while(r); +} +S_36534:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(26307,880,"ide_methods.bas");if(r)goto S_36534;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,881,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,882,"ide_methods.bas");}while(r); +S_36537:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,883,"ide_methods.bas");if(r)goto S_36537;} +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,qbs_add(qbs_add(func__startdir(),__STRING1_PATHSEP),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,883,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_new_txt_len("Location: ",10),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,884,"ide_methods.bas");}while(r); +S_36541:; +if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26307,885,"ide_methods.bas");if(r)goto S_36541;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len("Location: ",10),func_string( 3 , 250 )),qbs_right(_FUNC_IDE2_STRING_LOCATION,*__LONG_IDEWX- 15 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,886,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 2 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,888,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 3 ; +if(!qbevent)break;evnt(26307,889,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26307,897,"ide_methods.bas");}while(r); +S_36551:; +do{ +if(qbevent){evnt(26307,928,"ide_methods.bas");if(r)goto S_36551;} +LABEL_IDELOOP:; +if(qbevent){evnt(26307,929,"ide_methods.bas");r=0;} +S_36552:; +if ((*__BYTE_SHOWLINENUMBERS)||new_error){ +if(qbevent){evnt(26307,930,"ide_methods.bas");if(r)goto S_36552;} +do{ +*__LONG_MAXLINENUMBERLENGTH=((int32)(qbs_str((int32)(*__LONG_IDEN)))->len)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,930,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_MAXLINENUMBERLENGTH= 0 ; +if(!qbevent)break;evnt(26307,930,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26307,931,"ide_methods.bas");}while(r); +do{ +SUB_IDEDELTXT(); +if(!qbevent)break;evnt(26307,932,"ide_methods.bas");}while(r); +S_36559:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26307,933,"ide_methods.bas");if(r)goto S_36559;} +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26307,933,"ide_methods.bas");}while(r); +}else{ +do{ +sub__resize( 1 ,NULL); +if(!qbevent)break;evnt(26307,933,"ide_methods.bas");}while(r); +} +S_36564:; +if ((((func__resize()|*_FUNC_IDE2_LONG_FORCERESIZE))&(-(((float)(FUNC_TIMEELAPSEDSINCE(__SINGLE_QB64_UPTIME)))>((float)( 1.5E+0 )))))||new_error){ +if(qbevent){evnt(26307,935,"ide_methods.bas");if(r)goto S_36564;} +S_36565:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26307,936,"ide_methods.bas");if(r)goto S_36565;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26307,937,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RETVAL= 0 ; +if(!qbevent)break;evnt(26307,939,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= 0 ; +if(!qbevent)break;evnt(26307,940,"ide_methods.bas");}while(r); +S_36570:; +do{ +if(qbevent){evnt(26307,941,"ide_methods.bas");if(r)goto S_36570;} +do{ +*_FUNC_IDE2_BYTE_TOOSMALL= 0 ; +if(!qbevent)break;evnt(26307,942,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_INTEGER_V=func__resizewidth()/ func__fontwidth(NULL,0); +if(!qbevent)break;evnt(26307,943,"ide_methods.bas");}while(r); +S_36573:; +if (((-(*_FUNC_IDE2_INTEGER_V< 80 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ +if(qbevent){evnt(26307,943,"ide_methods.bas");if(r)goto S_36573;} +do{ +*_FUNC_IDE2_INTEGER_V= 80 ; +if(!qbevent)break;evnt(26307,943,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; +if(!qbevent)break;evnt(26307,943,"ide_methods.bas");}while(r); +} +S_36577:; +if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26307,944,"ide_methods.bas");if(r)goto S_36577;} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26307,944,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWX=*_FUNC_IDE2_INTEGER_V; +if(!qbevent)break;evnt(26307,944,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_INTEGER_V=func__resizeheight()/ func__fontheight(NULL,0); +if(!qbevent)break;evnt(26307,945,"ide_methods.bas");}while(r); +S_36582:; +if (((-(*_FUNC_IDE2_INTEGER_V< 25 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ +if(qbevent){evnt(26307,945,"ide_methods.bas");if(r)goto S_36582;} +do{ +*_FUNC_IDE2_INTEGER_V= 25 ; +if(!qbevent)break;evnt(26307,945,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; +if(!qbevent)break;evnt(26307,945,"ide_methods.bas");}while(r); +} +S_36586:; +if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWY))||new_error){ +if(qbevent){evnt(26307,946,"ide_methods.bas");if(r)goto S_36586;} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26307,946,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*_FUNC_IDE2_INTEGER_V; +if(!qbevent)break;evnt(26307,946,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_TEMPF=func__font(NULL,0); +if(!qbevent)break;evnt(26307,948,"ide_methods.bas");}while(r); +do{ +qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); +if(!qbevent)break;evnt(26307,949,"ide_methods.bas");}while(r); +do{ +sub__font(*_FUNC_IDE2_LONG_TEMPF,NULL,0); +if(!qbevent)break;evnt(26307,950,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,952,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); +if(!qbevent)break;evnt(26307,953,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,954,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26307,955,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,956,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,957,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,958,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,959,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,960,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,961,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,962,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,964,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,966,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,967,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,qbs_left(__STRING_MENUBAR,*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,968,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,969,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass3997= 1 ),&(pass3998= 2 ),__LONG_IDEWX,&(pass3999=*__LONG_IDEWY- 5 )); +if(!qbevent)break;evnt(26307,969,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,971,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass4000= 1 ),&(pass4001=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4002= 5 )); +if(!qbevent)break;evnt(26307,971,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,973,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,973,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,973,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=13; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_13:; -if(!qbevent)break;evnt(25066,888,"ide_methods.bas");}while(r); -S_34450:; +if(!qbevent)break;evnt(26307,975,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,978,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,978,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,979,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4003=*__LONG_IDEWY- 3 ),&(pass4004= 3 ),&(pass4005= 1 ),&(pass4006= 1 )); +if(!qbevent)break;evnt(26307,980,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4007= 3 ),&(pass4008=*__LONG_IDEWY- 8 ),&(pass4009= 1 ),&(pass4010= 1 )); +if(!qbevent)break;evnt(26307,981,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4011= 2 ),&(pass4012=*__LONG_IDEWY- 5 ),&(pass4013=*__LONG_IDEWX- 2 ),&(pass4014= 1 ),&(pass4015= 1 )); +if(!qbevent)break;evnt(26307,982,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,984,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,986,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Resizing...",11),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,987,"ide_methods.bas");}while(r); +S_36625:; +if ((*_FUNC_IDE2_BYTE_TOOSMALL)||new_error){ +if(qbevent){evnt(26307,988,"ide_methods.bas");if(r)goto S_36625;} +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,989,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 , 3 ,qbs_new_txt_len("ERROR: Minimum window size is 80x25",35),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,990,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,992,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,995,"ide_methods.bas");}while(r); +do{ +sub__display(); +if(!qbevent)break;evnt(26307,997,"ide_methods.bas");}while(r); +do{ +sub__limit( 15 ); +if(!qbevent)break;evnt(26307,998,"ide_methods.bas");}while(r); +S_36634:; +dl_continue_3996:; +}while((func__resize())&&(!new_error)); +dl_exit_3996:; +if(qbevent){evnt(26307,999,"ide_methods.bas");if(r)goto S_36634;} +S_36635:; +if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ +if(qbevent){evnt(26307,1001,"ide_methods.bas");if(r)goto S_36635;} +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1002,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1003,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26307,1006,"ide_methods.bas");}while(r); +do{ +sub__autodisplay(); +if(!qbevent)break;evnt(26307,1007,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=14; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_14:; +if(!qbevent)break;evnt(26307,1008,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub__autodisplay(); +if(!qbevent)break;evnt(26307,1011,"ide_methods.bas");}while(r); +} +S_36646:; +if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ +if(qbevent){evnt(26307,1014,"ide_methods.bas");if(r)goto S_36646;} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,1016,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,1019,"ide_methods.bas");}while(r); +S_36649:; +if ((*__BYTE_ENABLEQUICKNAV)||new_error){ +if(qbevent){evnt(26307,1022,"ide_methods.bas");if(r)goto S_36649;} +do{ +return_point[next_return_point++]=15; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DRAWQUICKNAV; +RETURN_15:; +if(!qbevent)break;evnt(26307,1022,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=16; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_16:; +if(!qbevent)break;evnt(26307,1025,"ide_methods.bas");}while(r); +S_36653:; if ((*__INTEGER_IDEINSERT)||new_error){ -if(qbevent){evnt(25066,891,"ide_methods.bas");if(r)goto S_34450;} +if(qbevent){evnt(26307,1028,"ide_methods.bas");if(r)goto S_36653;} do{ qbg_sub_locate(NULL,NULL,NULL, 0 , 31 ,24); -if(!qbevent)break;evnt(25066,891,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1028,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(25066,891,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1028,"ide_methods.bas");}while(r); } -S_34455:; +S_36658:; if ((*_FUNC_IDE2_LONG_FAILED)||new_error){ -if(qbevent){evnt(25066,894,"ide_methods.bas");if(r)goto S_34455;} -S_34456:; +if(qbevent){evnt(26307,1031,"ide_methods.bas");if(r)goto S_36658;} +S_36659:; if (((-(*__BYTE_IDESHOWERRORSIMMEDIATELY!= 0 ))|(-(*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED!= 0 ))|(-(*__LONG_COMPFAILED!= 0 )))||new_error){ -if(qbevent){evnt(25066,895,"ide_methods.bas");if(r)goto S_34456;} -S_34457:; +if(qbevent){evnt(26307,1032,"ide_methods.bas");if(r)goto S_36659;} +S_36660:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))||new_error){ -if(qbevent){evnt(25066,896,"ide_methods.bas");if(r)goto S_34457;} +if(qbevent){evnt(26307,1033,"ide_methods.bas");if(r)goto S_36660;} do{ qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,896,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1033,"ide_methods.bas");}while(r); } do{ SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1034,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3868; -makefit(tqbs); -qbs_print(tqbs,0); -skip3868: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3869; -makefit(tqbs); -qbs_print(tqbs,0); -skip3869: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3870; -makefit(tqbs); -qbs_print(tqbs,0); -skip3870: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,899,"ide_methods.bas");}while(r); -S_34468:; +SUB_CLEARSTATUSWINDOW(&(pass4016= 0 )); +if(!qbevent)break;evnt(26307,1036,"ide_methods.bas");}while(r); +S_36665:; if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(25066,901,"ide_methods.bas");if(r)goto S_34468;} +if(qbevent){evnt(26307,1038,"ide_methods.bas");if(r)goto S_36665;} do{ qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,902,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,904,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; -if(!qbevent)break;evnt(25066,905,"ide_methods.bas");}while(r); -S_34472:; -fornext_value3873= 1 ; -fornext_finalvalue3873=_FUNC_IDE2_STRING_A->len; -fornext_step3873= 1 ; -if (fornext_step3873<0) fornext_step_negative3873=1; else fornext_step_negative3873=0; -if (new_error) goto fornext_error3873; -goto fornext_entrylabel3873; -while(1){ -fornext_value3873=fornext_step3873+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3873: -*_FUNC_IDE2_LONG_I=fornext_value3873; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3873){ -if (fornext_value3873fornext_finalvalue3873) break; -} -fornext_error3873:; -if(qbevent){evnt(25066,906,"ide_methods.bas");if(r)goto S_34472;} -S_34473:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)== 0 )))||new_error){ -if(qbevent){evnt(25066,907,"ide_methods.bas");if(r)goto S_34473;} -S_34474:; -if ((-(func__defaultcolor(NULL,0)== 7 ))||new_error){ -if(qbevent){evnt(25066,908,"ide_methods.bas");if(r)goto S_34474;} -do{ -qbg_sub_color( 11 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,908,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,908,"ide_methods.bas");}while(r); -} -do{ -goto fornext_continue_3872; -if(!qbevent)break;evnt(25066,909,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,911,"ide_methods.bas");}while(r); -S_34482:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,911,"ide_methods.bas");if(r)goto S_34482;} +if(!qbevent)break;evnt(26307,1039,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(25066,911,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1040,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,911,"ide_methods.bas");}while(r); -} -S_34486:; -if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ -if(qbevent){evnt(25066,912,"ide_methods.bas");if(r)goto S_34486;} +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; +if(!qbevent)break;evnt(26307,1041,"ide_methods.bas");}while(r); do{ -goto fornext_exit_3872; -if(!qbevent)break;evnt(25066,912,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_Y,*_FUNC_IDE2_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,913,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I))); -if (new_error) goto skip3875; -makefit(tqbs); -qbs_print(tqbs,0); -skip3875: -qbs_free(tqbs); +SUB_PRINTWRAPSTATUS(&(pass4018=*_FUNC_IDE2_LONG_X),&(pass4019=*_FUNC_IDE2_LONG_Y),&(pass4020=*_FUNC_IDE2_LONG_X),_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,914,"ide_methods.bas");}while(r); -fornext_continue_3872:; -} -fornext_exit_3872:; +if(!qbevent)break;evnt(26307,1042,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 1 ; +if(!qbevent)break;evnt(26307,1043,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,917,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1045,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_L=string2l(qbs_right(_FUNC_IDE2_STRING_C, 4 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,920,"ide_methods.bas");}while(r); -S_34495:; +if(!qbevent)break;evnt(26307,1047,"ide_methods.bas");}while(r); +S_36674:; if ((-(*_FUNC_IDE2_LONG_L!= 0 ))||new_error){ -if(qbevent){evnt(25066,920,"ide_methods.bas");if(r)goto S_34495;} +if(qbevent){evnt(26307,1047,"ide_methods.bas");if(r)goto S_36674;} do{ *__LONG_IDEFOCUSLINE=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1047,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDE2_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,922,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; -if(!qbevent)break;evnt(25066,923,"ide_methods.bas");}while(r); -S_34500:; -if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY==*_FUNC_IDE2_LONG_L)))||new_error){ -if(qbevent){evnt(25066,925,"ide_methods.bas");if(r)goto S_34500;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" on current line",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,925,"ide_methods.bas");}while(r); -} -S_34503:; -fornext_value3878= 1 ; -fornext_finalvalue3878=_FUNC_IDE2_STRING_A->len; -fornext_step3878= 1 ; -if (fornext_step3878<0) fornext_step_negative3878=1; else fornext_step_negative3878=0; -if (new_error) goto fornext_error3878; -goto fornext_entrylabel3878; -while(1){ -fornext_value3878=fornext_step3878+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3878: -*_FUNC_IDE2_LONG_I=fornext_value3878; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3878){ -if (fornext_value3878fornext_finalvalue3878) break; -} -fornext_error3878:; -if(qbevent){evnt(25066,927,"ide_methods.bas");if(r)goto S_34503;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,928,"ide_methods.bas");}while(r); -S_34505:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,928,"ide_methods.bas");if(r)goto S_34505;} -do{ *_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(25066,928,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1049,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,928,"ide_methods.bas");}while(r); -} -S_34509:; -if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ -if(qbevent){evnt(25066,929,"ide_methods.bas");if(r)goto S_34509;} +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; +if(!qbevent)break;evnt(26307,1050,"ide_methods.bas");}while(r); +S_36679:; +if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY==*_FUNC_IDE2_LONG_L)))||new_error){ +if(qbevent){evnt(26307,1052,"ide_methods.bas");if(r)goto S_36679;} do{ -goto fornext_exit_3877; -if(!qbevent)break;evnt(25066,929,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_Y,*_FUNC_IDE2_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,930,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I))); -if (new_error) goto skip3880; -makefit(tqbs); -qbs_print(tqbs,0); -skip3880: -qbs_free(tqbs); +*_FUNC_IDE2_LONG_ONCURRENTLINE=_FUNC_IDE2_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,931,"ide_methods.bas");}while(r); -fornext_continue_3877:; +if(!qbevent)break;evnt(26307,1052,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 1 )),qbs_new_txt_len(" on current line",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1052,"ide_methods.bas");}while(r); } -fornext_exit_3877:; -S_34515:; +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len(" - Reference: ",14),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1054,"ide_methods.bas");}while(r); +S_36684:; +if ((*_FUNC_IDE2_LONG_HASREFERENCE)||new_error){ +if(qbevent){evnt(26307,1055,"ide_methods.bas");if(r)goto S_36684;} +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=*_FUNC_IDE2_LONG_HASREFERENCE+ 13 ; +if(!qbevent)break;evnt(26307,1056,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE),func_chr( 2 )),func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1057,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len("Expected ",9),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1059,"ide_methods.bas");}while(r); +S_36689:; +if ((*_FUNC_IDE2_LONG_HASREFERENCE)||new_error){ +if(qbevent){evnt(26307,1060,"ide_methods.bas");if(r)goto S_36689;} +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=*_FUNC_IDE2_LONG_HASREFERENCE+ 8 ; +if(!qbevent)break;evnt(26307,1061,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE),func_chr( 2 )),func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1062,"ide_methods.bas");}while(r); +} +} +do{ +SUB_PRINTWRAPSTATUS(&(pass4023=*_FUNC_IDE2_LONG_X),&(pass4024=*_FUNC_IDE2_LONG_Y),&(pass4025=*_FUNC_IDE2_LONG_X),_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1066,"ide_methods.bas");}while(r); +S_36695:; if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY!=*_FUNC_IDE2_LONG_L)))||new_error){ -if(qbevent){evnt(25066,934,"ide_methods.bas");if(r)goto S_34515;} +if(qbevent){evnt(26307,1068,"ide_methods.bas");if(r)goto S_36695;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len(" on line",8),qbs_str((int32)(*_FUNC_IDE2_LONG_L))),qbs_new_txt_len(" (click here or Ctrl+Shift+G to jump there)",43))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,935,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1069,"ide_methods.bas");}while(r); do{ qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,936,"ide_methods.bas");}while(r); -S_34518:; -fornext_value3882= 1 ; -fornext_finalvalue3882=_FUNC_IDE2_STRING_A->len; -fornext_step3882= 1 ; -if (fornext_step3882<0) fornext_step_negative3882=1; else fornext_step_negative3882=0; -if (new_error) goto fornext_error3882; -goto fornext_entrylabel3882; -while(1){ -fornext_value3882=fornext_step3882+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3882: -*_FUNC_IDE2_LONG_I=fornext_value3882; +if(!qbevent)break;evnt(26307,1070,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4026=func_pos( 0 )),&(pass4027=func_csrlin()),&(pass4028= 2 ),_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3882){ -if (fornext_value3882fornext_finalvalue3882) break; +if(!qbevent)break;evnt(26307,1071,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 2 ; +if(!qbevent)break;evnt(26307,1072,"ide_methods.bas");}while(r); } -fornext_error3882:; -if(qbevent){evnt(25066,937,"ide_methods.bas");if(r)goto S_34518;} do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,938,"ide_methods.bas");}while(r); -S_34520:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,938,"ide_methods.bas");if(r)goto S_34520;} +*_FUNC_IDE2_LONG_Y=func_csrlin(); +if(!qbevent)break;evnt(26307,1075,"ide_methods.bas");}while(r); +S_36702:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_Y<(*__LONG_IDEWY- 1 )))&(qbs_notequal(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)))))||new_error){ +if(qbevent){evnt(26307,1076,"ide_methods.bas");if(r)goto S_36702;} do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(25066,938,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDE2_STRING_TEMP,__STRING_LINEFRAGMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1077,"ide_methods.bas");}while(r); +S_36704:; +fornext_value4030= 1 ; +fornext_finalvalue4030=_FUNC_IDE2_STRING_TEMP->len; +fornext_step4030= 1 ; +if (fornext_step4030<0) fornext_step_negative4030=1; else fornext_step_negative4030=0; +if (new_error) goto fornext_error4030; +goto fornext_entrylabel4030; +while(1){ +fornext_value4030=fornext_step4030+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4030: +*_FUNC_IDE2_LONG_I=fornext_value4030; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4030){ +if (fornext_value4030fornext_finalvalue4030) break; +} +fornext_error4030:; +if(qbevent){evnt(26307,1078,"ide_methods.bas");if(r)goto S_36704;} +S_36705:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(26307,1079,"ide_methods.bas");if(r)goto S_36705;} +do{ +sub_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(26307,1079,"ide_methods.bas");}while(r); +} +fornext_continue_4029:; +} +fornext_exit_4029:; +do{ +qbs_set(_FUNC_IDE2_STRING_TEMP,qbs__trim(_FUNC_IDE2_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1081,"ide_methods.bas");}while(r); +S_36710:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26307,1082,"ide_methods.bas");if(r)goto S_36710;} do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,938,"ide_methods.bas");}while(r); -} -S_34524:; -if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ -if(qbevent){evnt(25066,939,"ide_methods.bas");if(r)goto S_34524;} +if(!qbevent)break;evnt(26307,1083,"ide_methods.bas");}while(r); do{ -goto fornext_exit_3881; -if(!qbevent)break;evnt(25066,939,"ide_methods.bas");}while(r); -} +*_FUNC_IDE2_LONG_X= 1 ; +if(!qbevent)break;evnt(26307,1083,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_Y,*_FUNC_IDE2_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,940,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I))); -if (new_error) goto skip3884; -makefit(tqbs); -qbs_print(tqbs,0); -skip3884: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len("Caused by (or after): ",22),func_chr( 1 )),_FUNC_IDE2_STRING_TEMP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,941,"ide_methods.bas");}while(r); -fornext_continue_3881:; -} -fornext_exit_3881:; -} -} -} -} -S_34534:; -if ((*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(25066,948,"ide_methods.bas");if(r)goto S_34534;} -S_34535:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ -if(qbevent){evnt(25066,949,"ide_methods.bas");if(r)goto S_34535;} +if(!qbevent)break;evnt(26307,1084,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3885; -makefit(tqbs); -qbs_print(tqbs,0); -skip3885: -qbs_free(tqbs); +if(!qbevent)break;evnt(26307,1086,"ide_methods.bas");}while(r); +S_36715:; +fornext_value4034= 1 ; +fornext_finalvalue4034=_FUNC_IDE2_STRING_TEMP->len; +fornext_step4034= 1 ; +if (fornext_step4034<0) fornext_step_negative4034=1; else fornext_step_negative4034=0; +if (new_error) goto fornext_error4034; +goto fornext_entrylabel4034; +while(1){ +fornext_value4034=fornext_step4034+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4034: +*_FUNC_IDE2_LONG_I=fornext_value4034; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); +if (fornext_step_negative4034){ +if (fornext_value4034fornext_finalvalue4034) break; +} +fornext_error4034:; +if(qbevent){evnt(26307,1087,"ide_methods.bas");if(r)goto S_36715;} do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,1088,"ide_methods.bas");}while(r); +S_36717:; +if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26307,1088,"ide_methods.bas");if(r)goto S_36717;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3886; -makefit(tqbs); -qbs_print(tqbs,0); -skip3886: -qbs_free(tqbs); +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,1088,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,1088,"ide_methods.bas");}while(r); +} +S_36721:; +if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ +if(qbevent){evnt(26307,1089,"ide_methods.bas");if(r)goto S_36721;} +do{ +goto fornext_exit_4033; +if(!qbevent)break;evnt(26307,1089,"ide_methods.bas");}while(r); +} +S_36724:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(26307,1090,"ide_methods.bas");if(r)goto S_36724;} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,1090,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,1090,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_FUNC_IDE2_LONG_X,*_FUNC_IDE2_LONG_Y,func_chr(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1091,"ide_methods.bas");}while(r); +fornext_continue_4033:; +} +fornext_exit_4033:; +} +} +} +} +} +S_36735:; +if ((*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26307,1100,"ide_methods.bas");if(r)goto S_36735;} +S_36736:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ +if(qbevent){evnt(26307,1101,"ide_methods.bas");if(r)goto S_36736;} do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3887; -makefit(tqbs); -qbs_print(tqbs,0); -skip3887: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,950,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass4036= 0 )); +if(!qbevent)break;evnt(26307,1102,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,952,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1103,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,954,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("...",3)); -if (new_error) goto skip3888; -makefit(tqbs); -qbs_print(tqbs,0); -skip3888: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,954,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1104,"ide_methods.bas");}while(r); } } do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,958,"ide_methods.bas");}while(r); -S_34549:; +if(!qbevent)break;evnt(26307,1108,"ide_methods.bas");}while(r); +S_36743:; if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(25066,960,"ide_methods.bas");if(r)goto S_34549;} +if(qbevent){evnt(26307,1110,"ide_methods.bas");if(r)goto S_36743;} do{ SUB_HELP_SHOWTEXT(); -if(!qbevent)break;evnt(25066,965,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1115,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass3889= 2 ),&(pass3890=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass3891=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass3892=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(25066,967,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4037= 2 ),&(pass4038=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4039=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4040=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26307,1117,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3893=*__LONG_IDEWY+ 1 ),&(pass3894=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass3895=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(25066,968,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4041=*__LONG_IDEWY+ 1 ),&(pass4042=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4043=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26307,1118,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,972,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,973,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,974,"ide_methods.bas");}while(r); -S_34556:; -fornext_value3897= 1 ; -fornext_finalvalue3897=*_FUNC_IDE2_LONG_TOP; -fornext_step3897= 1 ; -if (fornext_step3897<0) fornext_step_negative3897=1; else fornext_step_negative3897=0; -if (new_error) goto fornext_error3897; -goto fornext_entrylabel3897; -while(1){ -fornext_value3897=fornext_step3897+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel3897: -*_FUNC_IDE2_LONG_X=fornext_value3897; -if (fornext_step_negative3897){ -if (fornext_value3897fornext_finalvalue3897) break; -} -fornext_error3897:; -if(qbevent){evnt(25066,975,"ide_methods.bas");if(r)goto S_34556;} -do{ -qbs_set(_FUNC_IDE2_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,976,"ide_methods.bas");}while(r); -S_34558:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_HELP_BACK_POS))||new_error){ -if(qbevent){evnt(25066,977,"ide_methods.bas");if(r)goto S_34558;} -do{ -*_FUNC_IDE2_LONG_P=_FUNC_IDE2_STRING_BACK_STR->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,977,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,978,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,979,"ide_methods.bas");}while(r); -S_34563:; -fornext_value3900= 1 ; -fornext_finalvalue3900=_FUNC_IDE2_STRING_N->len; -fornext_step3900= 1 ; -if (fornext_step3900<0) fornext_step_negative3900=1; else fornext_step_negative3900=0; -if (new_error) goto fornext_error3900; -goto fornext_entrylabel3900; -while(1){ -fornext_value3900=fornext_step3900+(*_FUNC_IDE2_LONG_X2); -fornext_entrylabel3900: -*_FUNC_IDE2_LONG_X2=fornext_value3900; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3900){ -if (fornext_value3900fornext_finalvalue3900) break; -} -fornext_error3900:; -if(qbevent){evnt(25066,980,"ide_methods.bas");if(r)goto S_34563;} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr(qbs_asc(_FUNC_IDE2_STRING_N,*_FUNC_IDE2_LONG_X2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,981,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,982,"ide_methods.bas");}while(r); -fornext_continue_3899:; -} -fornext_exit_3899:; -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,984,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,985,"ide_methods.bas");}while(r); -S_34569:; -if ((-(*_FUNC_IDE2_LONG_X!=*_FUNC_IDE2_LONG_TOP))||new_error){ -if(qbevent){evnt(25066,987,"ide_methods.bas");if(r)goto S_34569;} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,988,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,989,"ide_methods.bas");}while(r); -} -fornext_continue_3896:; -} -fornext_exit_3896:; -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,992,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,993,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACK_STR_POS=*_FUNC_IDE2_LONG_P-(*__LONG_IDEWX/ 2 )+((((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))->len+ 2 )/ 2 )+( 3 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,994,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY, 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,997,"ide_methods.bas");}while(r); -S_34578:; -fornext_value3904=*_FUNC_IDE2_LONG_BACK_STR_POS; -fornext_finalvalue3904=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; -fornext_step3904= 1 ; -if (fornext_step3904<0) fornext_step_negative3904=1; else fornext_step_negative3904=0; -if (new_error) goto fornext_error3904; -goto fornext_entrylabel3904; -while(1){ -fornext_value3904=fornext_step3904+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel3904: -*_FUNC_IDE2_LONG_X=fornext_value3904; -if (fornext_step_negative3904){ -if (fornext_value3904fornext_finalvalue3904) break; -} -fornext_error3904:; -if(qbevent){evnt(25066,998,"ide_methods.bas");if(r)goto S_34578;} -do{ -*_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,999,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1000,"ide_methods.bas");}while(r); -S_34581:; -if ((*_FUNC_IDE2_LONG_A)||new_error){ -if(qbevent){evnt(25066,1001,"ide_methods.bas");if(r)goto S_34581;} -S_34582:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1002,"ide_methods.bas");if(r)goto S_34582;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1002,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,1002,"ide_methods.bas");}while(r); -} -S_34587:; -if ((-(*_FUNC_IDE2_LONG_I<*__LONG_HELP_BACK_POS))||new_error){ -if(qbevent){evnt(25066,1003,"ide_methods.bas");if(r)goto S_34587;} -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,1003,"ide_methods.bas");}while(r); -} -S_34590:; -if ((-(*_FUNC_IDE2_LONG_I>*__LONG_HELP_BACK_POS))||new_error){ -if(qbevent){evnt(25066,1004,"ide_methods.bas");if(r)goto S_34590;} -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,1004,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(*_FUNC_IDE2_LONG_A)); -if (new_error) goto skip3905; -makefit(tqbs); -qbs_print(tqbs,0); -skip3905: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1005,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,1007,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 196 )); -if (new_error) goto skip3906; -makefit(tqbs); -qbs_print(tqbs,0); -skip3906: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1008,"ide_methods.bas");}while(r); -} -fornext_continue_3903:; -} -fornext_exit_3903:; -S_34599:; +return_point[next_return_point++]=17; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_HELPAREASHOWBACKLINKS; +RETURN_17:; +if(!qbevent)break;evnt(26307,1122,"ide_methods.bas");}while(r); +S_36748:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM== 3 ))&(qbs_notequal(qbs_left(__STRING_IDEINFO, 1 ),func_chr( 0 )))))||new_error){ -if(qbevent){evnt(25066,1012,"ide_methods.bas");if(r)goto S_34599;} +if(qbevent){evnt(26307,1125,"ide_methods.bas");if(r)goto S_36748;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1013,"ide_methods.bas");}while(r); -S_34601:; +if(!qbevent)break;evnt(26307,1126,"ide_methods.bas");}while(r); +S_36750:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ -if(qbevent){evnt(25066,1014,"ide_methods.bas");if(r)goto S_34601;} +if(qbevent){evnt(26307,1127,"ide_methods.bas");if(r)goto S_36750;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_HELP_SEARCH_STR); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1015,"ide_methods.bas");}while(r); -S_34603:; +if(!qbevent)break;evnt(26307,1128,"ide_methods.bas");}while(r); +S_36752:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ -if(qbevent){evnt(25066,1016,"ide_methods.bas");if(r)goto S_34603;} +if(qbevent){evnt(26307,1129,"ide_methods.bas");if(r)goto S_36752;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDE2_STRING_A, 17 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1016,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1129,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("[",1),_FUNC_IDE2_STRING_A),qbs_new_txt_len("](DELETE=next)",14))); +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("[",1),_FUNC_IDE2_STRING_A),qbs_new_txt_len("] (TAB=next)",12))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1017,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1130,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEINFO,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1018,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1131,"ide_methods.bas");}while(r); }else{ do{ qbs_set(__STRING_IDEINFO,qbs_new_txt_len("Start typing to search for text in this help page",49)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1020,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1133,"ide_methods.bas");}while(r); } do{ SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,1022,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1135,"ide_methods.bas");}while(r); } }else{ do{ qbs_set(__STRING_HELP_SEARCH_STR,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1025,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1138,"ide_methods.bas");}while(r); } -S_34616:; +S_36765:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,1028,"ide_methods.bas");if(r)goto S_34616;} +if(qbevent){evnt(26307,1141,"ide_methods.bas");if(r)goto S_36765;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,1029,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1142,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1030,"ide_methods.bas");}while(r); -S_34619:; +if(!qbevent)break;evnt(26307,1143,"ide_methods.bas");}while(r); +S_36768:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len> 20 )))||new_error){ -if(qbevent){evnt(25066,1031,"ide_methods.bas");if(r)goto S_34619;} -S_34620:; +if(qbevent){evnt(26307,1144,"ide_methods.bas");if(r)goto S_36768;} +S_36769:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ -if(qbevent){evnt(25066,1032,"ide_methods.bas");if(r)goto S_34620;} +if(qbevent){evnt(26307,1145,"ide_methods.bas");if(r)goto S_36769;} do{ *_FUNC_IDE2_LONG_TX= 20 ; -if(!qbevent)break;evnt(25066,1033,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1146,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1035,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1148,"ide_methods.bas");}while(r); } } do{ qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX-( 20 + 8 )+ 4 +*_FUNC_IDE2_LONG_TX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1038,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1151,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,1039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1152,"ide_methods.bas");}while(r); } -S_34629:; +S_36778:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1042,"ide_methods.bas");if(r)goto S_34629;} +if(qbevent){evnt(26307,1155,"ide_methods.bas");if(r)goto S_36778;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,1043,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1156,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*__LONG_HELP_CY-*__LONG_HELP_SY+*__LONG_HELP_WY1,*__LONG_HELP_CX-*__LONG_HELP_SX+*__LONG_HELP_WX1,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1157,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,1045,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1158,"ide_methods.bas");}while(r); } do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1048,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1161,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1051,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1164,"ide_methods.bas");}while(r); +} +S_36786:; +if ((-(*__BYTE_WHITELISTQB64FIRSTTIMEMSG== 0 ))||new_error){ +if(qbevent){evnt(26307,1168,"ide_methods.bas");if(r)goto S_36786;} +S_36787:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26307,1169,"ide_methods.bas");if(r)goto S_36787;} +do{ +qbs_set(_FUNC_IDE2_STRING_WHITELISTPROCESS,qbs_new_txt_len("and the process 'qb64.exe' ",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1169,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_WHITELISTPROCESS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1169,"ide_methods.bas");}while(r); } do{ -if(!qbevent)break;evnt(25066,1055,"ide_methods.bas");}while(r); -S_34638:; +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Welcome to QB64",15),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 is an independently distributed program, and as such",57),func_chr( 10 )),qbs_new_txt_len("both 'qb64",10)),__STRING_EXTENSION),qbs_new_txt_len("' and the programs you create with it may",41)),func_chr( 10 )),qbs_new_txt_len("eventually be flagged as false positives by your",48)),func_chr( 10 )),qbs_new_txt_len("antivirus/antimalware software.",31)),func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("It is advisable to whitelist your whole QB64 folder",51)),func_chr( 10 )),_FUNC_IDE2_STRING_WHITELISTPROCESS),qbs_new_txt_len("to avoid operation errors.",26)),qbs_new_txt_len("#OK;#Don't show this again",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1175,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,1177,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,1177,"ide_methods.bas");}while(r); +S_36795:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26307,1178,"ide_methods.bas");if(r)goto S_36795;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1179,"ide_methods.bas");}while(r); +} +do{ +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(26307,1181,"ide_methods.bas");}while(r); +} +S_36800:; if ((*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(25066,1056,"ide_methods.bas");if(r)goto S_34638;} -S_34639:; +if(qbevent){evnt(26307,1184,"ide_methods.bas");if(r)goto S_36800;} +S_36801:; if ((*__LONG_IDELAYOUTALLOW)||new_error){ -if(qbevent){evnt(25066,1058,"ide_methods.bas");if(r)goto S_34639;} +if(qbevent){evnt(26307,1186,"ide_methods.bas");if(r)goto S_36801;} do{ *__LONG_IDELAYOUTALLOW=*__LONG_IDELAYOUTALLOW- 1 ; -if(!qbevent)break;evnt(25066,1058,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1186,"ide_methods.bas");}while(r); } do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1188,"ide_methods.bas");}while(r); +do{ *__LONG_IDECURRENTLINELAYOUTI= 0 ; -if(!qbevent)break;evnt(25066,1060,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1189,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(25066,1061,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1190,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 0 ; -if(!qbevent)break;evnt(25066,1062,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDECHANGEDBEFORE= -1 ; -if(!qbevent)break;evnt(25066,1063,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1191,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= 0 ; -if(!qbevent)break;evnt(25066,1064,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1192,"ide_methods.bas");}while(r); do{ *__LONG_COMPFAILED= 0 ; -if(!qbevent)break;evnt(25066,1065,"ide_methods.bas");}while(r); -S_34648:; +if(!qbevent)break;evnt(26307,1193,"ide_methods.bas");}while(r); +S_36810:; if ((-(*__LONG_IDEUNSAVED== -1 ))||new_error){ -if(qbevent){evnt(25066,1066,"ide_methods.bas");if(r)goto S_34648;} +if(qbevent){evnt(26307,1194,"ide_methods.bas");if(r)goto S_36810;} do{ *__LONG_IDEUNSAVED= 0 ; -if(!qbevent)break;evnt(25066,1066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1194,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,1066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1194,"ide_methods.bas");}while(r); } -S_34653:; +S_36815:; if ((-(*__LONG_IDENOUNDO== 0 ))||new_error){ -if(qbevent){evnt(25066,1068,"ide_methods.bas");if(r)goto S_34653;} +if(qbevent){evnt(26307,1196,"ide_methods.bas");if(r)goto S_36815;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1072,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1200,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDESX)),l2string(*__LONG_IDESY))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1201,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDECX)),l2string(*__LONG_IDECY))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1074,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1202,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDESELECT)),l2string(*__LONG_IDESELECTX1)),l2string(*__LONG_IDESELECTY1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1075,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1203,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEN))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1076,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1204,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEL))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1077,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1205,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDELI))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1078,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1206,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEBMKN))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1080,"ide_methods.bas");}while(r); -S_34662:; -fornext_value3911= 1 ; -fornext_finalvalue3911=*__LONG_IDEBMKN; -fornext_step3911= 1 ; -if (fornext_step3911<0) fornext_step_negative3911=1; else fornext_step_negative3911=0; -if (new_error) goto fornext_error3911; -goto fornext_entrylabel3911; +if(!qbevent)break;evnt(26307,1208,"ide_methods.bas");}while(r); +S_36824:; +fornext_value4048= 1 ; +fornext_finalvalue4048=*__LONG_IDEBMKN; +fornext_step4048= 1 ; +if (fornext_step4048<0) fornext_step_negative4048=1; else fornext_step_negative4048=0; +if (new_error) goto fornext_error4048; +goto fornext_entrylabel4048; while(1){ -fornext_value3911=fornext_step3911+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel3911: -*_FUNC_IDE2_LONG_BI=fornext_value3911; -if (fornext_step_negative3911){ -if (fornext_value3911fornext_finalvalue3911) break; +if (fornext_value4048>fornext_finalvalue4048) break; } -fornext_error3911:; -if(qbevent){evnt(25066,1081,"ide_methods.bas");if(r)goto S_34662;} +fornext_error4048:; +if(qbevent){evnt(26307,1209,"ide_methods.bas");if(r)goto S_36824;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1081,"ide_methods.bas");}while(r); -fornext_continue_3910:; +if(!qbevent)break;evnt(26307,1209,"ide_methods.bas");}while(r); +fornext_continue_4047:; } -fornext_exit_3910:; +fornext_exit_4047:; do{ *_FUNC_IDE2_LONG_L=__STRING_IDET->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1082,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1210,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*_FUNC_IDE2_LONG_L))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1083,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1211,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_L+_FUNC_IDE2_STRING_A->len),_FUNC_IDE2_STRING_A),__STRING_IDET),l2string(*_FUNC_IDE2_LONG_L+_FUNC_IDE2_STRING_A->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1084,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1212,"ide_methods.bas");}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1088,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1216,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1218,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1218,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1218,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1218,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1090,"ide_methods.bas");}while(r); -S_34674:; +if(!qbevent)break;evnt(26307,1218,"ide_methods.bas");}while(r); +S_36836:; if ((*__LONG_IDEMERGEUNDO)||new_error){ -if(qbevent){evnt(25066,1092,"ide_methods.bas");if(r)goto S_34674;} +if(qbevent){evnt(26307,1220,"ide_methods.bas");if(r)goto S_36836;} do{ *__LONG_IDEMERGEUNDO= 0 ; -if(!qbevent)break;evnt(25066,1093,"ide_methods.bas");}while(r); -S_34676:; +if(!qbevent)break;evnt(26307,1221,"ide_methods.bas");}while(r); +S_36838:; if ((-(*_FUNC_IDE2_LONG_P2!=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,1094,"ide_methods.bas");if(r)goto S_34676;} -S_34677:; +if(qbevent){evnt(26307,1222,"ide_methods.bas");if(r)goto S_36838;} +S_36839:; if ((-(*_FUNC_IDE2_LONG_P2== 13 ))||new_error){ -if(qbevent){evnt(25066,1095,"ide_methods.bas");if(r)goto S_34677;} +if(qbevent){evnt(26307,1223,"ide_methods.bas");if(r)goto S_36839;} do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_PLAST; -if(!qbevent)break;evnt(25066,1096,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1224,"ide_methods.bas");}while(r); }else{ do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P2- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_PP2L,4,byte_element_3915),1); -if(!qbevent)break;evnt(25066,1099,"ide_methods.bas");}while(r); +sub_get( 150 ,*_FUNC_IDE2_LONG_P2- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_PP2L,4,byte_element_4052),1); +if(!qbevent)break;evnt(26307,1227,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2- 4 -*_FUNC_IDE2_LONG_PP2L- 4 ; -if(!qbevent)break;evnt(25066,1100,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1228,"ide_methods.bas");}while(r); } } } -S_34685:; +S_36847:; if ((-(*_FUNC_IDE2_LONG_P1== 0 ))||new_error){ -if(qbevent){evnt(25066,1105,"ide_methods.bas");if(r)goto S_34685;} +if(qbevent){evnt(26307,1233,"ide_methods.bas");if(r)goto S_36847;} do{ *_FUNC_IDE2_LONG_P1= 13 ; -if(!qbevent)break;evnt(25066,1106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1234,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2= 13 ; -if(!qbevent)break;evnt(25066,1106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1234,"ide_methods.bas");}while(r); }else{ -S_34689:; +S_36851:; if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,1108,"ide_methods.bas");if(r)goto S_34689;} -S_34690:; +if(qbevent){evnt(26307,1236,"ide_methods.bas");if(r)goto S_36851;} +S_36852:; if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ -if(qbevent){evnt(25066,1111,"ide_methods.bas");if(r)goto S_34690;} +if(qbevent){evnt(26307,1239,"ide_methods.bas");if(r)goto S_36852;} do{ *_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_P2; -if(!qbevent)break;evnt(25066,1114,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1242,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2= 13 ; -if(!qbevent)break;evnt(25066,1115,"ide_methods.bas");}while(r); -S_34693:; +if(!qbevent)break;evnt(26307,1243,"ide_methods.bas");}while(r); +S_36855:; while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ -if(qbevent){evnt(25066,1117,"ide_methods.bas");if(r)goto S_34693;} -S_34694:; +if(qbevent){evnt(26307,1245,"ide_methods.bas");if(r)goto S_36855;} +S_36856:; if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(25066,1118,"ide_methods.bas");if(r)goto S_34694;} +if(qbevent){evnt(26307,1246,"ide_methods.bas");if(r)goto S_36856;} do{ *__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(25066,1118,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1246,"ide_methods.bas");}while(r); } do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_3918),1); -if(!qbevent)break;evnt(25066,1121,"ide_methods.bas");}while(r); +sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4055),1); +if(!qbevent)break;evnt(26307,1249,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; -if(!qbevent)break;evnt(25066,1122,"ide_methods.bas");}while(r); -dl_continue_3917:; +if(!qbevent)break;evnt(26307,1250,"ide_methods.bas");}while(r); +dl_continue_4054:; } -dl_exit_3917:; +dl_exit_4054:; }else{ do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_3919),1); -if(!qbevent)break;evnt(25066,1128,"ide_methods.bas");}while(r); +sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_4056),1); +if(!qbevent)break;evnt(26307,1256,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; -if(!qbevent)break;evnt(25066,1129,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1257,"ide_methods.bas");}while(r); } }else{ do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_3920),1); -if(!qbevent)break;evnt(25066,1135,"ide_methods.bas");}while(r); +sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_4057),1); +if(!qbevent)break;evnt(26307,1263,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OP2=*_FUNC_IDE2_LONG_P2; -if(!qbevent)break;evnt(25066,1136,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1264,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; -if(!qbevent)break;evnt(25066,1137,"ide_methods.bas");}while(r); -S_34708:; +if(!qbevent)break;evnt(26307,1265,"ide_methods.bas");}while(r); +S_36870:; while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ -if(qbevent){evnt(25066,1139,"ide_methods.bas");if(r)goto S_34708;} -S_34709:; +if(qbevent){evnt(26307,1267,"ide_methods.bas");if(r)goto S_36870;} +S_36871:; if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(25066,1140,"ide_methods.bas");if(r)goto S_34709;} +if(qbevent){evnt(26307,1268,"ide_methods.bas");if(r)goto S_36871;} do{ *__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(25066,1140,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1268,"ide_methods.bas");}while(r); } -S_34712:; +S_36874:; if ((-(*_FUNC_IDE2_LONG_P1==*_FUNC_IDE2_LONG_PLAST))||new_error){ -if(qbevent){evnt(25066,1142,"ide_methods.bas");if(r)goto S_34712;} +if(qbevent){evnt(26307,1270,"ide_methods.bas");if(r)goto S_36874;} do{ *_FUNC_IDE2_LONG_P1= 13 ; -if(!qbevent)break;evnt(25066,1143,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1271,"ide_methods.bas");}while(r); do{ -goto dl_exit_3922; -if(!qbevent)break;evnt(25066,1144,"ide_methods.bas");}while(r); +goto dl_exit_4059; +if(!qbevent)break;evnt(26307,1272,"ide_methods.bas");}while(r); }else{ do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_3923),1); -if(!qbevent)break;evnt(25066,1146,"ide_methods.bas");}while(r); +sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4060),1); +if(!qbevent)break;evnt(26307,1274,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; -if(!qbevent)break;evnt(25066,1147,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1275,"ide_methods.bas");}while(r); } -dl_continue_3922:; +dl_continue_4059:; } -dl_exit_3922:; -S_34720:; +dl_exit_4059:; +S_36882:; if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ -if(qbevent){evnt(25066,1151,"ide_methods.bas");if(r)goto S_34720;} +if(qbevent){evnt(26307,1279,"ide_methods.bas");if(r)goto S_36882;} do{ *_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_OP2; -if(!qbevent)break;evnt(25066,1154,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1282,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2= 13 ; -if(!qbevent)break;evnt(25066,1155,"ide_methods.bas");}while(r); -S_34723:; +if(!qbevent)break;evnt(26307,1283,"ide_methods.bas");}while(r); +S_36885:; while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ -if(qbevent){evnt(25066,1157,"ide_methods.bas");if(r)goto S_34723;} -S_34724:; +if(qbevent){evnt(26307,1285,"ide_methods.bas");if(r)goto S_36885;} +S_36886:; if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(25066,1158,"ide_methods.bas");if(r)goto S_34724;} +if(qbevent){evnt(26307,1286,"ide_methods.bas");if(r)goto S_36886;} do{ *__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(25066,1158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1286,"ide_methods.bas");}while(r); } do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_3926),1); -if(!qbevent)break;evnt(25066,1161,"ide_methods.bas");}while(r); +sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4063),1); +if(!qbevent)break;evnt(26307,1289,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; -if(!qbevent)break;evnt(25066,1162,"ide_methods.bas");}while(r); -dl_continue_3925:; +if(!qbevent)break;evnt(26307,1290,"ide_methods.bas");}while(r); +dl_continue_4062:; } -dl_exit_3925:; +dl_exit_4062:; } } } do{ qbs_set(_FUNC_IDE2_STRING_H,qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_P1),l2string(*_FUNC_IDE2_LONG_P2)),l2string(*_FUNC_IDE2_LONG_PLAST))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1170,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1298,"ide_methods.bas");}while(r); do{ -sub_put2( 150 , 1 ,byte_element((uint64)_FUNC_IDE2_STRING_H->chr,_FUNC_IDE2_STRING_H->len,byte_element_3927),1); +sub_put2( 150 , 1 ,byte_element((uint64)_FUNC_IDE2_STRING_H->chr,_FUNC_IDE2_STRING_H->len,byte_element_4064),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1171,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1299,"ide_methods.bas");}while(r); do{ -sub_put2( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_3928),1); +sub_put2( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_4065),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1302,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,1176,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1304,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_P2; -if(!qbevent)break;evnt(25066,1178,"ide_methods.bas");}while(r); -S_34738:; +if(!qbevent)break;evnt(26307,1306,"ide_methods.bas");}while(r); +S_36900:; if ((-(*__LONG_IDEUNDOBASE== 0 ))||new_error){ -if(qbevent){evnt(25066,1179,"ide_methods.bas");if(r)goto S_34738;} +if(qbevent){evnt(26307,1307,"ide_methods.bas");if(r)goto S_36900;} do{ *__LONG_IDEUNDOBASE=*__LONG_IDEUNDOPOS; -if(!qbevent)break;evnt(25066,1179,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1307,"ide_methods.bas");}while(r); } -S_34741:; +S_36903:; if ((-(*__LONG_IDEUNDOFLAG== 0 ))||new_error){ -if(qbevent){evnt(25066,1184,"ide_methods.bas");if(r)goto S_34741;} +if(qbevent){evnt(26307,1312,"ide_methods.bas");if(r)goto S_36903;} do{ *__LONG_IDEUNDOFLAG= 1 ; -if(!qbevent)break;evnt(25066,1185,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1313,"ide_methods.bas");}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1186,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1314,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,func_chr( 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1186,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1314,"ide_methods.bas");}while(r); do{ -sub_put2( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_3929),0); +sub_put2( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_4066),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1186,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1314,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,1186,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1314,"ide_methods.bas");}while(r); } }else{ do{ *__LONG_IDENOUNDO= 0 ; -if(!qbevent)break;evnt(25066,1190,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1318,"ide_methods.bas");}while(r); } -S_34751:; +S_36913:; if ((-(*__LONG_IDEBUILDMODECHANGED== 0 ))||new_error){ -if(qbevent){evnt(25066,1194,"ide_methods.bas");if(r)goto S_34751;} +if(qbevent){evnt(26307,1322,"ide_methods.bas");if(r)goto S_36913;} do{ *__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(25066,1195,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1323,"ide_methods.bas");}while(r); } do{ *__LONG_IDEBUILDMODECHANGED= 0 ; -if(!qbevent)break;evnt(25066,1197,"ide_methods.bas");}while(r); -S_34755:; -if ((*__LONG_MAKEANDROID)||new_error){ -if(qbevent){evnt(25066,1199,"ide_methods.bas");if(r)goto S_34755;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c del /q ",14),__STRING_TMPDIR),qbs_new_txt_len("ret*.txt ",9)),__STRING_TMPDIR),qbs_new_txt_len("data*.txt ",10)),__STRING_TMPDIR),qbs_new_txt_len("free*.txt",9)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1201,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,1325,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILING= 1 ; -if(!qbevent)break;evnt(25066,1204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1327,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDE2= 2 ; -if(!qbevent)break;evnt(25066,1205,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1328,"ide_methods.bas");}while(r); do{ -qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(&(pass3930= 1 ))); +qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(&(pass4067= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1206,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1329,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1207,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1330,"ide_methods.bas");}while(r); do{ *__LONG_IDECOMPILEDLINE= 1 ; -if(!qbevent)break;evnt(25066,1208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1331,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,1209,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1332,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,1213,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1336,"ide_methods.bas");}while(r); LABEL_WAITFORINPUT:; -if(qbevent){evnt(25066,1214,"ide_methods.bas");r=0;} -S_34766:; +if(qbevent){evnt(26307,1337,"ide_methods.bas");r=0;} +S_36925:; +if ((*__BYTE_STARTPAUSEDPENDING)||new_error){ +if(qbevent){evnt(26307,1338,"ide_methods.bas");if(r)goto S_36925;} +do{ +goto LABEL_IDEMRUN; +if(!qbevent)break;evnt(26307,1338,"ide_methods.bas");}while(r); +} +S_36928:; if ((*__LONG_IDECURRENTLINELAYOUTI)||new_error){ -if(qbevent){evnt(25066,1216,"ide_methods.bas");if(r)goto S_34766;} -S_34767:; +if(qbevent){evnt(26307,1339,"ide_methods.bas");if(r)goto S_36928;} +S_36929:; if ((-(*__LONG_IDECY!=*__LONG_IDECURRENTLINELAYOUTI))||new_error){ -if(qbevent){evnt(25066,1217,"ide_methods.bas");if(r)goto S_34767;} +if(qbevent){evnt(26307,1340,"ide_methods.bas");if(r)goto S_36929;} do{ SUB_IDESETLINE(__LONG_IDECURRENTLINELAYOUTI,__STRING_IDECURRENTLINELAYOUT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1218,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1341,"ide_methods.bas");}while(r); do{ *__LONG_IDECURRENTLINELAYOUTI= 0 ; -if(!qbevent)break;evnt(25066,1219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1342,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1343,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_EXITVALUE=func__exit(); -if(!qbevent)break;evnt(25066,1224,"ide_methods.bas");}while(r); -S_34774:; +if(!qbevent)break;evnt(26307,1347,"ide_methods.bas");}while(r); +S_36936:; if (((-((*_FUNC_IDE2_LONG_EXITVALUE& 1 )!= 0 ))|(-(*__LONG_IDEEXIT!= 0 )))||new_error){ -if(qbevent){evnt(25066,1225,"ide_methods.bas");if(r)goto S_34774;} +if(qbevent){evnt(26307,1348,"ide_methods.bas");if(r)goto S_36936;} do{ *__LONG_IDEEXIT= 0 ; -if(!qbevent)break;evnt(25066,1225,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1348,"ide_methods.bas");}while(r); do{ goto LABEL_QUICKEXIT; -if(!qbevent)break;evnt(25066,1225,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1348,"ide_methods.bas");}while(r); } do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,1227,"ide_methods.bas");}while(r); -S_34779:; +if(!qbevent)break;evnt(26307,1350,"ide_methods.bas");}while(r); +S_36941:; if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(25066,1228,"ide_methods.bas");if(r)goto S_34779;} -S_34780:; +if(qbevent){evnt(26307,1351,"ide_methods.bas");if(r)goto S_36941;} +do{ +if(!qbevent)break;evnt(26307,1352,"ide_methods.bas");}while(r); +S_36943:; if (((((-(*__LONG_MX!=*_FUNC_IDE2_LONG_MOX))|(-(*__LONG_MY!=*_FUNC_IDE2_LONG_MOY))))&(-(*__LONG_MB!= 0 )))||new_error){ -if(qbevent){evnt(25066,1229,"ide_methods.bas");if(r)goto S_34780;} +if(qbevent){evnt(26307,1353,"ide_methods.bas");if(r)goto S_36943;} +do{ +*_FUNC_IDE2_LONG_MOX=*__LONG_MX; +if(!qbevent)break;evnt(26307,1354,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOY=*__LONG_MY; +if(!qbevent)break;evnt(26307,1355,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1356,"ide_methods.bas");}while(r); } -S_34783:; +S_36948:; if ((-(*__LONG_MB!=*__LONG_MOB))||new_error){ -if(qbevent){evnt(25066,1230,"ide_methods.bas");if(r)goto S_34783;} +if(qbevent){evnt(26307,1358,"ide_methods.bas");if(r)goto S_36948;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1358,"ide_methods.bas");}while(r); } -S_34786:; +S_36951:; if ((-(*__LONG_MB2!=*__LONG_MOB2))||new_error){ -if(qbevent){evnt(25066,1231,"ide_methods.bas");if(r)goto S_34786;} +if(qbevent){evnt(26307,1359,"ide_methods.bas");if(r)goto S_36951;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1231,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1359,"ide_methods.bas");}while(r); } -S_34789:; +S_36954:; if (((-(*__LONG_MCLICK!= 0 ))|(-(*__LONG_MCLICK2!= 0 )))||new_error){ -if(qbevent){evnt(25066,1232,"ide_methods.bas");if(r)goto S_34789;} +if(qbevent){evnt(26307,1360,"ide_methods.bas");if(r)goto S_36954;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1232,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1360,"ide_methods.bas");}while(r); } -S_34792:; +S_36957:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,1233,"ide_methods.bas");if(r)goto S_34792;} +if(qbevent){evnt(26307,1361,"ide_methods.bas");if(r)goto S_36957;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1233,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1361,"ide_methods.bas");}while(r); } -S_34795:; +S_36960:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,1234,"ide_methods.bas");if(r)goto S_34795;} +if(qbevent){evnt(26307,1362,"ide_methods.bas");if(r)goto S_36960;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1234,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1362,"ide_methods.bas");}while(r); } -S_34798:; +S_36963:; if ((*__LONG_KSTATECHANGED)||new_error){ -if(qbevent){evnt(25066,1235,"ide_methods.bas");if(r)goto S_34798;} +if(qbevent){evnt(26307,1363,"ide_methods.bas");if(r)goto S_36963;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1363,"ide_methods.bas");}while(r); } } -S_34802:; +S_36967:; if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_IDEMBMONITOR== 1 )))||new_error){ -if(qbevent){evnt(25066,1237,"ide_methods.bas");if(r)goto S_34802;} +if(qbevent){evnt(26307,1365,"ide_methods.bas");if(r)goto S_36967;} do{ *_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,1237,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1365,"ide_methods.bas");}while(r); } -S_34805:; +S_36970:; if ((-(*__LONG_MB== 0 ))||new_error){ -if(qbevent){evnt(25066,1238,"ide_methods.bas");if(r)goto S_34805;} +if(qbevent){evnt(26307,1366,"ide_methods.bas");if(r)goto S_36970;} do{ *__LONG_IDEMOUSESELECT= 0 ; -if(!qbevent)break;evnt(25066,1238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1366,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 0 ; -if(!qbevent)break;evnt(25066,1238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1366,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; -if(!qbevent)break;evnt(25066,1238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1366,"ide_methods.bas");}while(r); } -S_34810:; +S_36975:; if ((func__resize())||new_error){ -if(qbevent){evnt(25066,1240,"ide_methods.bas");if(r)goto S_34810;} +if(qbevent){evnt(26307,1368,"ide_methods.bas");if(r)goto S_36975;} do{ *_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(25066,1241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1369,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,1241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1369,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,1241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1369,"ide_methods.bas");}while(r); } -S_34815:; +S_36980:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(25066,1244,"ide_methods.bas");if(r)goto S_34815;} -S_34816:; +if(qbevent){evnt(26307,1372,"ide_methods.bas");if(r)goto S_36980;} +S_36981:; if (((-(*__INTEGER_IDE_TOPPOSITION!=func__screeny()))|(-(*__INTEGER_IDE_LEFTPOSITION!=func__screenx())))||new_error){ -if(qbevent){evnt(25066,1245,"ide_methods.bas");if(r)goto S_34816;} -S_34817:; +if(qbevent){evnt(26307,1373,"ide_methods.bas");if(r)goto S_36981;} +S_36982:; if (((-((func__screeny())>=((-(func__height(NULL,0)))*(func__fontheight(NULL,0)))))&(-((func__screenx())>=((-(func__width(NULL,0)))*(func__fontwidth(NULL,0))))))||new_error){ -if(qbevent){evnt(25066,1246,"ide_methods.bas");if(r)goto S_34817;} +if(qbevent){evnt(26307,1374,"ide_methods.bas");if(r)goto S_36982;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_TopPosition",15),qbs_str((int32)(func__screeny()))); +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_TopPosition",15),qbs_str((int32)(func__screeny()))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1375,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_LeftPosition",16),qbs_str((int32)(func__screenx()))); +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_LeftPosition",16),qbs_str((int32)(func__screenx()))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1376,"ide_methods.bas");}while(r); do{ *__INTEGER_IDE_TOPPOSITION=func__screeny(); -if(!qbevent)break;evnt(25066,1249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1377,"ide_methods.bas");}while(r); do{ *__INTEGER_IDE_LEFTPOSITION=func__screenx(); -if(!qbevent)break;evnt(25066,1249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1377,"ide_methods.bas");}while(r); } } } -S_34825:; +S_36990:; if ((-(func__totaldroppedfiles()> 0 ))||new_error){ -if(qbevent){evnt(25066,1254,"ide_methods.bas");if(r)goto S_34825;} -S_34826:; +if(qbevent){evnt(26307,1382,"ide_methods.bas");if(r)goto S_36990;} +S_36991:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(func__droppedfile( 1 ,1))))||new_error){ -if(qbevent){evnt(25066,1255,"ide_methods.bas");if(r)goto S_34826;} +if(qbevent){evnt(26307,1383,"ide_methods.bas");if(r)goto S_36991;} do{ qbs_set(__STRING_IDEOPENFILE,func__droppedfile( 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1384,"ide_methods.bas");}while(r); do{ sub__finishdrop(); -if(!qbevent)break;evnt(25066,1257,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1385,"ide_methods.bas");}while(r); do{ goto LABEL_CTRLOPEN; -if(!qbevent)break;evnt(25066,1258,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1386,"ide_methods.bas");}while(r); } do{ sub__finishdrop(); -if(!qbevent)break;evnt(25066,1260,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1388,"ide_methods.bas");}while(r); } -S_34833:; -if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 ))&*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(25066,1264,"ide_methods.bas");if(r)goto S_34833;} -S_34834:; -if ((-(*__LONG_MY== 2 ))||new_error){ -if(qbevent){evnt(25066,1265,"ide_methods.bas");if(r)goto S_34834;} -S_34835:; -if (((-(*__LONG_MX>= 4 ))&(-(*__LONG_MX<= 6 )))||new_error){ -if(qbevent){evnt(25066,1266,"ide_methods.bas");if(r)goto S_34835;} do{ -*_FUNC_IDE2_LONG_QUICKNAVHOVER= -1 ; -if(!qbevent)break;evnt(25066,1267,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 2 , 4 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1268,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,1269,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_POPUP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" back to line ",14)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])])))),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1270,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDE2_STRING_POPUP); -if (new_error) goto skip3931; -makefit(tqbs); -qbs_print(tqbs,0); -skip3931: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1271,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,1274,"ide_methods.bas");}while(r); -S_34842:; -fornext_value3933= 6 ; -fornext_finalvalue3933= 4 +_FUNC_IDE2_STRING_POPUP->len; -fornext_step3933= 1 ; -if (fornext_step3933<0) fornext_step_negative3933=1; else fornext_step_negative3933=0; -if (new_error) goto fornext_error3933; -goto fornext_entrylabel3933; -while(1){ -fornext_value3933=fornext_step3933+(*_FUNC_IDE2_LONG_X2); -fornext_entrylabel3933: -*_FUNC_IDE2_LONG_X2=fornext_value3933; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3933){ -if (fornext_value3933fornext_finalvalue3933) break; -} -fornext_error3933:; -if(qbevent){evnt(25066,1275,"ide_methods.bas");if(r)goto S_34842;} -do{ -qbg_sub_locate( 3 ,*_FUNC_IDE2_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1276,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(func_screen( 3 ,*_FUNC_IDE2_LONG_X2,NULL,0))); -if (new_error) goto skip3935; -makefit(tqbs); -qbs_print(tqbs,0); -skip3935: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1276,"ide_methods.bas");}while(r); -fornext_continue_3932:; -} -fornext_exit_3932:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1279,"ide_methods.bas");}while(r); -S_34847:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,1281,"ide_methods.bas");if(r)goto S_34847;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,1282,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])]; -if(!qbevent)break;evnt(25066,1283,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_UPDATEHOVER= 0 ; +if(!qbevent)break;evnt(26307,1392,"ide_methods.bas");}while(r); +S_36999:; +if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ +if(qbevent){evnt(26307,1393,"ide_methods.bas");if(r)goto S_36999;} +S_37000:; +while((!(-(*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26307,1394,"ide_methods.bas");if(r)goto S_37000;} do{ *__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; -if(!qbevent)break;evnt(25066,1284,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1396,"ide_methods.bas");}while(r); +S_37002:; +if ((-(*__LONG_QUICKNAVTOTAL== 0 ))||new_error){ +if(qbevent){evnt(26307,1397,"ide_methods.bas");if(r)goto S_37002;} do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,1285,"ide_methods.bas");}while(r); +goto dl_exit_4068; +if(!qbevent)break;evnt(26307,1397,"ide_methods.bas");}while(r); +} +dl_continue_4068:; +} +dl_exit_4068:; +} +S_37007:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 ))&*__BYTE_ENABLEQUICKNAV)||new_error){ +if(qbevent){evnt(26307,1401,"ide_methods.bas");if(r)goto S_37007;} +S_37008:; +if ((-(*__LONG_MY== 2 ))||new_error){ +if(qbevent){evnt(26307,1402,"ide_methods.bas");if(r)goto S_37008;} +S_37009:; +if (((-(*__LONG_MX>= 4 ))&(-(*__LONG_MX<= 6 )))||new_error){ +if(qbevent){evnt(26307,1403,"ide_methods.bas");if(r)goto S_37009;} +S_37010:; +if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== 0 ))||new_error){ +if(qbevent){evnt(26307,1404,"ide_methods.bas");if(r)goto S_37010;} do{ -goto LABEL_WAITFORINPUT; -if(!qbevent)break;evnt(25066,1286,"ide_methods.bas");}while(r); +*_FUNC_IDE2_BYTE_QUICKNAVHOVER= -1 ; +if(!qbevent)break;evnt(26307,1405,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,1406,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_POPUP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" back to line ",14)),FUNC_STR2((int32*)(void*)( ((char*)(__ARRAY_UDT_QUICKNAVHISTORY[0])) + ((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12) ))),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1407,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 , 2 ,_FUNC_IDE2_STRING_POPUP,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1408,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,1411,"ide_methods.bas");}while(r); +S_37016:; +fornext_value4070= 6 ; +fornext_finalvalue4070= 4 +_FUNC_IDE2_STRING_POPUP->len; +fornext_step4070= 1 ; +if (fornext_step4070<0) fornext_step_negative4070=1; else fornext_step_negative4070=0; +if (new_error) goto fornext_error4070; +goto fornext_entrylabel4070; +while(1){ +fornext_value4070=fornext_step4070+(*_FUNC_IDE2_LONG_X2); +fornext_entrylabel4070: +*_FUNC_IDE2_LONG_X2=fornext_value4070; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4070){ +if (fornext_value4070fornext_finalvalue4070) break; +} +fornext_error4070:; +if(qbevent){evnt(26307,1412,"ide_methods.bas");if(r)goto S_37016;} +do{ +sub__printstring(*_FUNC_IDE2_LONG_X2, 3 ,func_chr(func_screen( 3 ,*_FUNC_IDE2_LONG_X2,NULL,0)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1413,"ide_methods.bas");}while(r); +fornext_continue_4069:; +} +fornext_exit_4069:; +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1415,"ide_methods.bas");}while(r); +} +S_37021:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,1418,"ide_methods.bas");if(r)goto S_37021;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,1419,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12)); +if(!qbevent)break;evnt(26307,1420,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8)); +if(!qbevent)break;evnt(26307,1421,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16)); +if(!qbevent)break;evnt(26307,1422,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,1423,"ide_methods.bas");}while(r); +do{ +*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; +if(!qbevent)break;evnt(26307,1424,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,1425,"ide_methods.bas");}while(r); } }else{ -S_34855:; -if ((-(*_FUNC_IDE2_LONG_QUICKNAVHOVER== -1 ))||new_error){ -if(qbevent){evnt(25066,1289,"ide_methods.bas");if(r)goto S_34855;} do{ -*_FUNC_IDE2_LONG_QUICKNAVHOVER= 0 ; -if(!qbevent)break;evnt(25066,1290,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=14; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; -RETURN_14:; -if(!qbevent)break;evnt(25066,1291,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=15; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DRAWQUICKNAV; -RETURN_15:; -if(!qbevent)break;evnt(25066,1292,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,1293,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1294,"ide_methods.bas");}while(r); -} +goto LABEL_RESTOREBGQUICKNAV; +if(!qbevent)break;evnt(26307,1428,"ide_methods.bas");}while(r); } }else{ -S_34864:; -if ((-(*_FUNC_IDE2_LONG_QUICKNAVHOVER== -1 ))||new_error){ -if(qbevent){evnt(25066,1298,"ide_methods.bas");if(r)goto S_34864;} +LABEL_RESTOREBGQUICKNAV:; +if(qbevent){evnt(26307,1431,"ide_methods.bas");r=0;} +S_37034:; +if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== -1 ))||new_error){ +if(qbevent){evnt(26307,1432,"ide_methods.bas");if(r)goto S_37034;} do{ -*_FUNC_IDE2_LONG_QUICKNAVHOVER= 0 ; -if(!qbevent)break;evnt(25066,1299,"ide_methods.bas");}while(r); +*_FUNC_IDE2_BYTE_QUICKNAVHOVER= 0 ; +if(!qbevent)break;evnt(26307,1433,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=16; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; -RETURN_16:; -if(!qbevent)break;evnt(25066,1300,"ide_methods.bas");}while(r); +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,1434,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=17; +return_point[next_return_point++]=18; if (next_return_point>=return_points) more_return_points(); goto LABEL_DRAWQUICKNAV; -RETURN_17:; -if(!qbevent)break;evnt(25066,1301,"ide_methods.bas");}while(r); +RETURN_18:; +if(!qbevent)break;evnt(26307,1435,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,1302,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1436,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1437,"ide_methods.bas");}while(r); +} +} +} +S_37043:; +if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 ))))||new_error){ +if(qbevent){evnt(26307,1442,"ide_methods.bas");if(r)goto S_37043;} +S_37044:; +if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== 0 ))||new_error){ +if(qbevent){evnt(26307,1443,"ide_methods.bas");if(r)goto S_37044;} +do{ +qbg_sub_color( 1 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,1445,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 9 ),*__LONG_IDEWY- 4 ,qbs_new_txt_len("Find",4),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1446,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1447,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_FINDFIELDHOVER= -1 ; +if(!qbevent)break;evnt(26307,1448,"ide_methods.bas");}while(r); +} +}else{ +S_37051:; +if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== -1 ))||new_error){ +if(qbevent){evnt(26307,1451,"ide_methods.bas");if(r)goto S_37051;} +do{ +*_FUNC_IDE2_BYTE_FINDFIELDHOVER= 0 ; +if(!qbevent)break;evnt(26307,1453,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,1454,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 9 ),*__LONG_IDEWY- 4 ,qbs_new_txt_len("Find",4),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1455,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1456,"ide_methods.bas");}while(r); +} +} +S_37058:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len)))&(-(*__LONG_MX<(*__LONG_IDEWX- 21 )))))||new_error){ +if(qbevent){evnt(26307,1460,"ide_methods.bas");if(r)goto S_37058;} +S_37059:; +if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== 0 ))||new_error){ +if(qbevent){evnt(26307,1462,"ide_methods.bas");if(r)goto S_37059;} +do{ +qbg_sub_color( 13 , 6 ,NULL,3); +if(!qbevent)break;evnt(26307,1463,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1464,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1465,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_VERSIONINFOHOVER= -1 ; +if(!qbevent)break;evnt(26307,1466,"ide_methods.bas");}while(r); +} +S_37065:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,1468,"ide_methods.bas");if(r)goto S_37065;} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,1468,"ide_methods.bas");}while(r); +do{ +goto LABEL_HELPABOUT; +if(!qbevent)break;evnt(26307,1468,"ide_methods.bas");}while(r); +} +}else{ +S_37070:; +if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== -1 ))||new_error){ +if(qbevent){evnt(26307,1470,"ide_methods.bas");if(r)goto S_37070;} +do{ +*_FUNC_IDE2_BYTE_VERSIONINFOHOVER= 0 ; +if(!qbevent)break;evnt(26307,1472,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,1473,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1474,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1475,"ide_methods.bas");}while(r); +} +} +S_37077:; +if (((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 20 )))&(-(*__LONG_MX<=*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26307,1479,"ide_methods.bas");if(r)goto S_37077;} +S_37078:; +if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== 0 ))||new_error){ +if(qbevent){evnt(26307,1481,"ide_methods.bas");if(r)goto S_37078;} +do{ +qbg_sub_color( 13 , 6 ,NULL,3); +if(!qbevent)break;evnt(26307,1482,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1483,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_LINENUMBERHOVER= -1 ; +if(!qbevent)break;evnt(26307,1484,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1485,"ide_methods.bas");}while(r); +} +S_37084:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,1487,"ide_methods.bas");if(r)goto S_37084;} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,1488,"ide_methods.bas");}while(r); +do{ +SUB_IDEGOTOBOX(); +if(!qbevent)break;evnt(26307,1489,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1303,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1490,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,1490,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,1491,"ide_methods.bas");}while(r); +} +}else{ +S_37092:; +if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== -1 ))||new_error){ +if(qbevent){evnt(26307,1494,"ide_methods.bas");if(r)goto S_37092;} +do{ +*_FUNC_IDE2_BYTE_LINENUMBERHOVER= 0 ; +if(!qbevent)break;evnt(26307,1496,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,1497,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1498,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26307,1499,"ide_methods.bas");}while(r); } } -} -S_34873:; +S_37099:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))||new_error){ +if(qbevent){evnt(26307,1503,"ide_methods.bas");if(r)goto S_37099;} +S_37100:; if ((func__hasfocus())||new_error){ -if(qbevent){evnt(25066,1308,"ide_methods.bas");if(r)goto S_34873;} +if(qbevent){evnt(26307,1504,"ide_methods.bas");if(r)goto S_37100;} do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1309,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1505,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,1310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1506,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(25066,1311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1507,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1313,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1509,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,1314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1510,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,1315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1511,"ide_methods.bas");}while(r); } -S_34882:; +} +S_37110:; if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(25066,1318,"ide_methods.bas");if(r)goto S_34882;} -S_34883:; +if(qbevent){evnt(26307,1515,"ide_methods.bas");if(r)goto S_37110;} +S_37111:; if (((-(*__LONG_IDEALTHIGHLIGHT== 0 ))&(-(*__LONG_KALTPRESS== -1 ))&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,1320,"ide_methods.bas");if(r)goto S_34883;} +if(qbevent){evnt(26307,1517,"ide_methods.bas");if(r)goto S_37111;} do{ *__LONG_IDEALTHIGHLIGHT= 1 ; -if(!qbevent)break;evnt(25066,1322,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1519,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1323,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1520,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1323,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1520,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(25066,1323,"ide_methods.bas");}while(r); -S_34888:; -fornext_value3937= 1 ; -fornext_finalvalue3937=*__INTEGER_MENUS; -fornext_step3937= 1 ; -if (fornext_step3937<0) fornext_step_negative3937=1; else fornext_step_negative3937=0; -if (new_error) goto fornext_error3937; -goto fornext_entrylabel3937; +if(!qbevent)break;evnt(26307,1520,"ide_methods.bas");}while(r); +S_37116:; +fornext_value4076= 1 ; +fornext_finalvalue4076=*__INTEGER_MENUS; +fornext_step4076= 1 ; +if (fornext_step4076<0) fornext_step_negative4076=1; else fornext_step_negative4076=0; +if (new_error) goto fornext_error4076; +goto fornext_entrylabel4076; while(1){ -fornext_value3937=fornext_step3937+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3937: -*_FUNC_IDE2_LONG_I=fornext_value3937; -if (fornext_step_negative3937){ -if (fornext_value3937fornext_finalvalue3937) break; +if (fornext_value4076>fornext_finalvalue4076) break; } -fornext_error3937:; -if(qbevent){evnt(25066,1324,"ide_methods.bas");if(r)goto S_34888;} +fornext_error4076:; +if(qbevent){evnt(26307,1521,"ide_methods.bas");if(r)goto S_37116;} do{ -qbg_sub_locate( 1 ,*_FUNC_IDE2_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1325,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 )); -if (new_error) goto skip3938; -makefit(tqbs); -qbs_print(tqbs,0); -skip3938: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDE2_LONG_X, 1 ,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1522,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1326,"ide_methods.bas");}while(r); -S_34892:; +if(!qbevent)break;evnt(26307,1523,"ide_methods.bas");}while(r); +S_37119:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(25066,1327,"ide_methods.bas");if(r)goto S_34892;} +if(qbevent){evnt(26307,1524,"ide_methods.bas");if(r)goto S_37119;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1327,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1524,"ide_methods.bas");}while(r); } -fornext_continue_3936:; +fornext_continue_4075:; } -fornext_exit_3936:; +fornext_exit_4075:; do{ *__LONG_IDEENTERMENU= 1 ; -if(!qbevent)break;evnt(25066,1329,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1526,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,1331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1528,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,1331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1528,"ide_methods.bas");}while(r); } }else{ -S_34901:; +S_37128:; if ((-(*__LONG_IDEALTHIGHLIGHT== 1 ))||new_error){ -if(qbevent){evnt(25066,1335,"ide_methods.bas");if(r)goto S_34901;} +if(qbevent){evnt(26307,1532,"ide_methods.bas");if(r)goto S_37128;} do{ *__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,1337,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1534,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1338,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1535,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1338,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1535,"ide_methods.bas");}while(r); do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1338,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip3941; -makefit(tqbs); -qbs_print(tqbs,0); -skip3941: -qbs_free(tqbs); +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1338,"ide_methods.bas");}while(r); -S_34907:; +if(!qbevent)break;evnt(26307,1535,"ide_methods.bas");}while(r); +S_37133:; if (((-(*__LONG_IDEENTERMENU== 1 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(25066,1339,"ide_methods.bas");if(r)goto S_34907;} -S_34908:; -if ((func__hasfocus())||new_error){ -if(qbevent){evnt(25066,1340,"ide_methods.bas");if(r)goto S_34908;} +if(qbevent){evnt(26307,1536,"ide_methods.bas");if(r)goto S_37133;} +S_37134:; +if ((qbs_cleanup(qbs_tmp_base,(func__hasfocus())|(qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))))||new_error){ +if(qbevent){evnt(26307,1537,"ide_methods.bas");if(r)goto S_37134;} do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(25066,1341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1538,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,1342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1539,"ide_methods.bas");}while(r); do{ *__LONG_IDEENTERMENU= 0 ; -if(!qbevent)break;evnt(25066,1343,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1540,"ide_methods.bas");}while(r); do{ goto LABEL_STARTMENU; -if(!qbevent)break;evnt(25066,1344,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1541,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,1346,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1543,"ide_methods.bas");}while(r); } } } } -S_34919:; +S_37145:; +if ((*_FUNC_IDE2_LONG_UPDATEHOVER)||new_error){ +if(qbevent){evnt(26307,1550,"ide_methods.bas");if(r)goto S_37145;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,1550,"ide_methods.bas");}while(r); +} +S_37148:; if ((-(*_FUNC_IDE2_LONG_CHANGE== 0 ))||new_error){ -if(qbevent){evnt(25066,1353,"ide_methods.bas");if(r)goto S_34919;} -S_34920:; +if(qbevent){evnt(26307,1552,"ide_methods.bas");if(r)goto S_37148;} +S_37149:; if ((*__LONG_IDECOMPILING)||new_error){ -if(qbevent){evnt(25066,1356,"ide_methods.bas");if(r)goto S_34920;} -S_34921:; +if(qbevent){evnt(26307,1555,"ide_methods.bas");if(r)goto S_37149;} +S_37150:; if ((*_FUNC_IDE2_LONG_SENDNEXTLINE)||new_error){ -if(qbevent){evnt(25066,1357,"ide_methods.bas");if(r)goto S_34921;} -S_34922:; +if(qbevent){evnt(26307,1556,"ide_methods.bas");if(r)goto S_37150;} +S_37151:; if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,1358,"ide_methods.bas");if(r)goto S_34922;} +if(qbevent){evnt(26307,1557,"ide_methods.bas");if(r)goto S_37151;} do{ *__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; -if(!qbevent)break;evnt(25066,1359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1558,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDE2= 4 ; -if(!qbevent)break;evnt(25066,1360,"ide_methods.bas");}while(r); -S_34925:; +if(!qbevent)break;evnt(26307,1559,"ide_methods.bas");}while(r); +S_37154:; if ((*_FUNC_IDE2_LONG_PASSBACK)||new_error){ -if(qbevent){evnt(25066,1361,"ide_methods.bas");if(r)goto S_34925;} +if(qbevent){evnt(26307,1560,"ide_methods.bas");if(r)goto S_37154;} do{ qbs_set(__STRING_IDECOMPILEDLINE,_FUNC_IDE2_STRING_PASSBACK); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1561,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1562,"ide_methods.bas");}while(r); }else{ do{ qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1365,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1564,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1366,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1565,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,1368,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1567,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_IDE2= 5 ; -if(!qbevent)break;evnt(25066,1371,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1570,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,1375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1574,"ide_methods.bas");}while(r); } } } do{ sub__limit( 16 ); -if(!qbevent)break;evnt(25066,1380,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1579,"ide_methods.bas");}while(r); do{ goto LABEL_WAITFORINPUT; -if(!qbevent)break;evnt(25066,1382,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1580,"ide_methods.bas");}while(r); } do{ *__LONG_IDEENTERMENU= 0 ; -if(!qbevent)break;evnt(25066,1385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1583,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO- 1 ; -if(!qbevent)break;evnt(25066,1387,"ide_methods.bas");}while(r); -S_34944:; +if(!qbevent)break;evnt(26307,1585,"ide_methods.bas");}while(r); +S_37173:; if ((-(*__LONG_IDEUNDOCOMBO< 0 ))||new_error){ -if(qbevent){evnt(25066,1388,"ide_methods.bas");if(r)goto S_34944;} +if(qbevent){evnt(26307,1586,"ide_methods.bas");if(r)goto S_37173;} do{ *__LONG_IDEUNDOCOMBO= 0 ; -if(!qbevent)break;evnt(25066,1388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1586,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,1390,"ide_methods.bas");}while(r); -S_34948:; +if(!qbevent)break;evnt(26307,1588,"ide_methods.bas");}while(r); +S_37177:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,1394,"ide_methods.bas");if(r)goto S_34948;} -S_34949:; +if(qbevent){evnt(26307,1592,"ide_methods.bas");if(r)goto S_37177;} +S_37178:; if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=*__LONG_IDEWX))&(-(*__LONG_MY>=(*__LONG_IDEWY- 3 )))&(-(*__LONG_MY<=(*__LONG_IDEWY- 1 ))))||new_error){ -if(qbevent){evnt(25066,1395,"ide_methods.bas");if(r)goto S_34949;} -S_34950:; +if(qbevent){evnt(26307,1593,"ide_methods.bas");if(r)goto S_37178;} +S_37179:; if ((-((func_screen(*__LONG_MY,*__LONG_MX, 1 ,1))==(( 11 )+( 1 * 16 ))))||new_error){ -if(qbevent){evnt(25066,1396,"ide_methods.bas");if(r)goto S_34950;} -S_34951:; -if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(25066,1399,"ide_methods.bas");if(r)goto S_34951;} -S_34952:; +if(qbevent){evnt(26307,1594,"ide_methods.bas");if(r)goto S_37179;} +S_37180:; +if(qbevent){evnt(26307,1596,"ide_methods.bas");if(r)goto S_37180;} +S_37181:; +if (((*__INTEGER_STATUSAREALINK==( 1 )))||new_error){ +if(qbevent){evnt(26307,1597,"ide_methods.bas");if(r)goto S_37181;} +S_37182:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(25066,1400,"ide_methods.bas");if(r)goto S_34952;} +if(qbevent){evnt(26307,1599,"ide_methods.bas");if(r)goto S_37182;} do{ sub_shell3(FUNC_QUOTEDFILENAME(__STRING_COMPILELOG),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1401,"ide_methods.bas");}while(r); -S_34954:; +if(!qbevent)break;evnt(26307,1600,"ide_methods.bas");}while(r); +S_37184:; }else{ if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ -if(qbevent){evnt(25066,1402,"ide_methods.bas");if(r)goto S_34954;} +if(qbevent){evnt(26307,1601,"ide_methods.bas");if(r)goto S_37184;} do{ sub_shell3(qbs_add(qbs_new_txt_len("open ",5),FUNC_QUOTEDFILENAME(__STRING_COMPILELOG)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1403,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1602,"ide_methods.bas");}while(r); }else{ do{ sub_shell3(qbs_add(qbs_new_txt_len("xdg-open ",9),FUNC_QUOTEDFILENAME(__STRING_COMPILELOG)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1604,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1407,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1606,"ide_methods.bas");}while(r); +sc_ec_180_end:; +goto sc_4079_end; } -S_34961:; -if ((*__LONG_IDEFOCUSLINE)||new_error){ -if(qbevent){evnt(25066,1411,"ide_methods.bas");if(r)goto S_34961;} +S_37190:; +if (((*__INTEGER_STATUSAREALINK==( 2 )))||new_error){ +if(qbevent){evnt(26307,1607,"ide_methods.bas");if(r)goto S_37190;} do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,1412,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1609,"ide_methods.bas");}while(r); do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,1413,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,1610,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEFOCUSLINE; -if(!qbevent)break;evnt(25066,1414,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1611,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,1415,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1612,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1613,"ide_methods.bas");}while(r); +sc_ec_181_end:; +goto sc_4079_end; } -S_34968:; -if ((*_FUNC_IDE2_LONG_SHOWEXECREATED)||new_error){ -if(qbevent){evnt(25066,1420,"ide_methods.bas");if(r)goto S_34968;} -S_34969:; +S_37196:; +if (((*__INTEGER_STATUSAREALINK==( 3 )))||new_error){ +if(qbevent){evnt(26307,1614,"ide_methods.bas");if(r)goto S_37196;} +S_37197:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(25066,1421,"ide_methods.bas");if(r)goto S_34969;} +if(qbevent){evnt(26307,1616,"ide_methods.bas");if(r)goto S_37197;} do{ -sub_shell3(qbs_add(qbs_new_txt_len("explorer /select,",17),FUNC_QUOTEDFILENAME(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))),2); +sub_shell3(qbs_add(qbs_new_txt_len("explorer /select,",17),FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1422,"ide_methods.bas");}while(r); -S_34971:; +if(!qbevent)break;evnt(26307,1617,"ide_methods.bas");}while(r); +S_37199:; }else{ if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ -if(qbevent){evnt(25066,1423,"ide_methods.bas");if(r)goto S_34971;} +if(qbevent){evnt(26307,1618,"ide_methods.bas");if(r)goto S_37199;} do{ sub_shell3(qbs_add(qbs_new_txt_len("open ",5),FUNC_QUOTEDFILENAME(__STRING_PATH__ASCII_CHR_046__EXE)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1424,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1619,"ide_methods.bas");}while(r); }else{ do{ sub_shell3(qbs_add(qbs_new_txt_len("xdg-open ",9),FUNC_QUOTEDFILENAME(__STRING_PATH__ASCII_CHR_046__EXE)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1426,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1621,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1623,"ide_methods.bas");}while(r); +sc_ec_182_end:; +goto sc_4079_end; } -S_34978:; -if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(25066,1432,"ide_methods.bas");if(r)goto S_34978;} +S_37205:; +if (((*__INTEGER_STATUSAREALINK==( 4 )))||new_error){ +if(qbevent){evnt(26307,1624,"ide_methods.bas");if(r)goto S_37205;} do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); -if(!qbevent)break;evnt(25066,1433,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1626,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1628,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,1435,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,1435,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,1435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1628,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1629,"ide_methods.bas");}while(r); +sc_ec_183_end:; +goto sc_4079_end; +} +sc_4079_end:; } } } -} -S_34989:; -if ((-(*__LONG_KB== 34048 ))||new_error){ -if(qbevent){evnt(25066,1449,"ide_methods.bas");if(r)goto S_34989;} +S_37214:; +if (((-(*__LONG_KB== 16640 ))|(-(*__LONG_KB== 16896 )))||new_error){ +if(qbevent){evnt(26307,1635,"ide_methods.bas");if(r)goto S_37214;} do{ -SUB_USEANDROID(&(pass3942= 0 )); -if(!qbevent)break;evnt(25066,1450,"ide_methods.bas");}while(r); +goto LABEL_STARTPAUSEDMENUHANDLER; +if(!qbevent)break;evnt(26307,1636,"ide_methods.bas");}while(r); +} +S_37217:; +if ((-(*__LONG_KB== 17152 ))||new_error){ +if(qbevent){evnt(26307,1639,"ide_methods.bas");if(r)goto S_37217;} +do{ +goto LABEL_TOGGLEBREAKPOINT; +if(!qbevent)break;evnt(26307,1640,"ide_methods.bas");}while(r); +} +S_37220:; +if ((-(*__LONG_KB== 17408 ))||new_error){ +if(qbevent){evnt(26307,1643,"ide_methods.bas");if(r)goto S_37220;} +S_37221:; +if ((*__LONG_KCTRL)||new_error){ +if(qbevent){evnt(26307,1644,"ide_methods.bas");if(r)goto S_37221;} +do{ +goto LABEL_UNSKIPALLLINES; +if(!qbevent)break;evnt(26307,1645,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_CLEARALLBREAKPOINTS; +if(!qbevent)break;evnt(26307,1647,"ide_methods.bas");}while(r); +} +} +S_37227:; +if ((-(*__LONG_KB== 34048 ))||new_error){ +if(qbevent){evnt(26307,1651,"ide_methods.bas");if(r)goto S_37227;} LABEL_IDEMEXE:; -if(qbevent){evnt(25066,1451,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,1652,"ide_methods.bas");r=0;} do{ *__LONG_IDERUNMODE= 2 ; -if(!qbevent)break;evnt(25066,1452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1653,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMRUNSPECIAL; -if(!qbevent)break;evnt(25066,1453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1654,"ide_methods.bas");}while(r); } -S_34994:; -if ((-(*__LONG_KB== 16128 ))||new_error){ -if(qbevent){evnt(25066,1456,"ide_methods.bas");if(r)goto S_34994;} +S_37231:; +if ((-(*__LONG_KB== 34304 ))||new_error){ +if(qbevent){evnt(26307,1657,"ide_methods.bas");if(r)goto S_37231;} +S_37232:; +if ((-(*__LONG_CALLSTACKLENGTH> 0 ))||new_error){ +if(qbevent){evnt(26307,1658,"ide_methods.bas");if(r)goto S_37232;} do{ -SUB_USEANDROID(&(pass3943= 0 )); -if(!qbevent)break;evnt(25066,1457,"ide_methods.bas");}while(r); +goto LABEL_SHOWCALLSTACKDIALOG; +if(!qbevent)break;evnt(26307,1659,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_new_txt_len("No call stack log available.",28),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1661,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,1662,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,1662,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,1663,"ide_methods.bas");}while(r); +} +} +S_37241:; +if ((-(*__LONG_KB== 15872 ))||new_error){ +if(qbevent){evnt(26307,1667,"ide_methods.bas");if(r)goto S_37241;} +do{ +goto LABEL_SHOWWATCHLIST; +if(!qbevent)break;evnt(26307,1668,"ide_methods.bas");}while(r); +} +S_37244:; +if ((-(*__LONG_KB== 16128 ))||new_error){ +if(qbevent){evnt(26307,1671,"ide_methods.bas");if(r)goto S_37244;} +do{ +*__LONG_STARTPAUSED= 0 ; +if(!qbevent)break;evnt(26307,1672,"ide_methods.bas");}while(r); LABEL_IDEMRUN:; -if(qbevent){evnt(25066,1458,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,1673,"ide_methods.bas");r=0;} +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,1674,"ide_methods.bas");}while(r); do{ *__LONG_IDERUNMODE= 1 ; -if(!qbevent)break;evnt(25066,1459,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1675,"ide_methods.bas");}while(r); LABEL_IDEMRUNSPECIAL:; -if(qbevent){evnt(25066,1460,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,1676,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= -1 ; -if(!qbevent)break;evnt(25066,1461,"ide_methods.bas");}while(r); -S_34998:; -if (((-(*_FUNC_IDE2_LONG_READY!= 0 ))&(-(*__INTEGER_IDECHANGEMADE== 0 )))||new_error){ -if(qbevent){evnt(25066,1463,"ide_methods.bas");if(r)goto S_34998;} +if(!qbevent)break;evnt(26307,1678,"ide_methods.bas");}while(r); +S_37249:; +if ((-(*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG== 0 ))||new_error){ +if(qbevent){evnt(26307,1680,"ide_methods.bas");if(r)goto S_37249;} +S_37250:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(26307,1681,"ide_methods.bas");if(r)goto S_37250;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Run",3),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Your program will be compiled to the same folder where your",59),func_chr( 10 )),qbs_new_txt_len("source code is saved. You can change that by unchecking the",59)),func_chr( 10 )),qbs_new_txt_len("option 'Output EXE to Source Folder' in the Run menu.",53)),qbs_new_txt_len("#OK;#Don't show this again;#Cancel",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1684,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Run",3),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Your program will be compiled to your QB64 folder. You can",58),func_chr( 10 )),qbs_new_txt_len("change that by checking the option 'Output EXE to Source",56)),func_chr( 10 )),qbs_new_txt_len("Folder' in the Run menu.",24)),qbs_new_txt_len("#OK;#Don't show this again;#Cancel",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1688,"ide_methods.bas");}while(r); +} +S_37255:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26307,1690,"ide_methods.bas");if(r)goto S_37255;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1691,"ide_methods.bas");}while(r); +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(26307,1692,"ide_methods.bas");}while(r); +S_37258:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26307,1693,"ide_methods.bas");if(r)goto S_37258;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,1694,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,1694,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1465,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1695,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass4080= 0 )); +if(!qbevent)break;evnt(26307,1696,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3944; -makefit(tqbs); -qbs_print(tqbs,0); -skip3944: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Compilation request canceled.",29),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3945; -makefit(tqbs); -qbs_print(tqbs,0); -skip3945: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3946; -makefit(tqbs); -qbs_print(tqbs,0); -skip3946: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1466,"ide_methods.bas");}while(r); -S_35007:; -if ((*__LONG_IDECOMPILED)||new_error){ -if(qbevent){evnt(25066,1468,"ide_methods.bas");if(r)goto S_35007;} -S_35008:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDERUNMODE== 2 ))&(func__fileexists(__STRING_LASTBINARYGENERATED))))||new_error){ -if(qbevent){evnt(25066,1470,"ide_methods.bas");if(r)goto S_35008;} -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1471,"ide_methods.bas");}while(r); -S_35010:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,1473,"ide_methods.bas");if(r)goto S_35010;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Already created executable file!",32)); -if (new_error) goto skip3947; -makefit(tqbs); -qbs_print(tqbs,0); -skip3947: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1474,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Already created .EXE file!",26)); -if (new_error) goto skip3948; -makefit(tqbs); -qbs_print(tqbs,0); -skip3948: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1476,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,1697,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1479,"ide_methods.bas");}while(r); -S_35016:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_LASTBINARYGENERATED)== 0 ))){ -if(qbevent){evnt(25066,1480,"ide_methods.bas");if(r)goto S_35016;} -do{ -*__LONG_IDECOMPILED= 0 ; -if(!qbevent)break;evnt(25066,1481,"ide_methods.bas");}while(r); -do{ -goto LABEL_MUSTGENERATEEXE; -if(!qbevent)break;evnt(25066,1482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1698,"ide_methods.bas");}while(r); } } -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3949= 1 )); -if(!qbevent)break;evnt(25066,1485,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; -if(!qbevent)break;evnt(25066,1486,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(25066,1486,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=18; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; -RETURN_18:; -if(!qbevent)break;evnt(25066,1486,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; -if(!qbevent)break;evnt(25066,1486,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1487,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,qbr((*__LONG_IDEWX- 8 )/ ((long double)( 2 ))),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1487,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Status ",8)); -if (new_error) goto skip3950; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3950: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1487,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,1488,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1489,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Starting program...",19)); -if (new_error) goto skip3951; -makefit(tqbs); -qbs_print(tqbs,0); -skip3951: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1489,"ide_methods.bas");}while(r); -}else{ -LABEL_MUSTGENERATEEXE:; -if(qbevent){evnt(25066,1491,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass3952= 1 )); -if(!qbevent)break;evnt(25066,1492,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; -if(!qbevent)break;evnt(25066,1493,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(25066,1493,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=19; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATETITLEOFMAINWINDOW; -RETURN_19:; -if(!qbevent)break;evnt(25066,1493,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; -if(!qbevent)break;evnt(25066,1493,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1494,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,qbr((*__LONG_IDEWX- 8 )/ ((long double)( 2 ))),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1494,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Status ",8)); -if (new_error) goto skip3953; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3953: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1494,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,1495,"ide_methods.bas");}while(r); -S_35041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,1496,"ide_methods.bas");if(r)goto S_35041;} -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1497,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Creating executable file...",27)); -if (new_error) goto skip3954; -makefit(tqbs); -qbs_print(tqbs,0); -skip3954: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1497,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1499,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Creating .EXE file...",21)); -if (new_error) goto skip3955; -makefit(tqbs); -qbs_print(tqbs,0); -skip3955: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1499,"ide_methods.bas");}while(r); -} } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1503,"ide_methods.bas");}while(r); -S_35050:; +if(!qbevent)break;evnt(26307,1701,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,1701,"ide_methods.bas");}while(r); +S_37269:; +if (((-(*_FUNC_IDE2_LONG_READY!= 0 ))&(-(*__INTEGER_IDECHANGEMADE== 0 )))||new_error){ +if(qbevent){evnt(26307,1704,"ide_methods.bas");if(r)goto S_37269;} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,1706,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4081= 0 )); +if(!qbevent)break;evnt(26307,1707,"ide_methods.bas");}while(r); +S_37272:; +if ((*__LONG_IDECOMPILED)||new_error){ +if(qbevent){evnt(26307,1709,"ide_methods.bas");if(r)goto S_37272;} +S_37273:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDERUNMODE== 2 ))&(func__fileexists(__STRING_LASTBINARYGENERATED))))||new_error){ +if(qbevent){evnt(26307,1711,"ide_methods.bas");if(r)goto S_37273;} +S_37274:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26307,1712,"ide_methods.bas");if(r)goto S_37274;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Already created executable file!",32),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1713,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Already created .EXE file!",26),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1715,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,1718,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1719,"ide_methods.bas");}while(r); +S_37281:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,1720,"ide_methods.bas");if(r)goto S_37281;} +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,qbs_add(qbs_add(func__startdir(),__STRING1_PATHSEP),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1720,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_new_txt_len("Location: ",10),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1721,"ide_methods.bas");}while(r); +S_37285:; +if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26307,1722,"ide_methods.bas");if(r)goto S_37285;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len("Location: ",10),func_string( 3 , 250 )),qbs_right(_FUNC_IDE2_STRING_LOCATION,*__LONG_IDEWX- 15 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1723,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 2 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1725,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 3 ; +if(!qbevent)break;evnt(26307,1726,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,1729,"ide_methods.bas");}while(r); +S_37291:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_LASTBINARYGENERATED)== 0 ))){ +if(qbevent){evnt(26307,1730,"ide_methods.bas");if(r)goto S_37291;} +do{ +*__LONG_IDECOMPILED= 0 ; +if(!qbevent)break;evnt(26307,1731,"ide_methods.bas");}while(r); +do{ +goto LABEL_MUSTGENERATEEXE; +if(!qbevent)break;evnt(26307,1732,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4083= 1 )); +if(!qbevent)break;evnt(26307,1735,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; +if(!qbevent)break;evnt(26307,1736,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26307,1736,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,1736,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; +if(!qbevent)break;evnt(26307,1736,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,1737,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1737,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,1738,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Starting program...",19),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1739,"ide_methods.bas");}while(r); +}else{ +LABEL_MUSTGENERATEEXE:; +if(qbevent){evnt(26307,1741,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4084= 1 )); +if(!qbevent)break;evnt(26307,1742,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; +if(!qbevent)break;evnt(26307,1743,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26307,1743,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,1743,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; +if(!qbevent)break;evnt(26307,1743,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,1744,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1744,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,1745,"ide_methods.bas");}while(r); +S_37313:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26307,1746,"ide_methods.bas");if(r)goto S_37313;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Creating executable file...",27),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1747,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Creating .EXE file...",21),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1749,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,1753,"ide_methods.bas");}while(r); +S_37320:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,1507,"ide_methods.bas");if(r)goto S_35050;} +if(qbevent){evnt(26307,1757,"ide_methods.bas");if(r)goto S_37320;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1508,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1758,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_F,__STRING_IDEPROGNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1760,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_F,FUNC_REMOVEFILEEXTENSION(_FUNC_IDE2_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1511,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1761,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_IDE2= 9 ; -if(!qbevent)break;evnt(25066,1513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1763,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1763,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,1514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1764,"ide_methods.bas");}while(r); } -S_35060:; +S_37330:; if ((-(*_FUNC_IDE2_LONG_FAILED== 1 ))||new_error){ -if(qbevent){evnt(25066,1517,"ide_methods.bas");if(r)goto S_35060;} +if(qbevent){evnt(26307,1767,"ide_methods.bas");if(r)goto S_37330;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1767,"ide_methods.bas");}while(r); } do{ *__LONG_IDEAUTORUN= 1 ; -if(!qbevent)break;evnt(25066,1519,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1769,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1522,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1772,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass4085= 0 )); +if(!qbevent)break;evnt(26307,1773,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3956; -makefit(tqbs); -qbs_print(tqbs,0); -skip3956: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Checking program... (editing program will cancel request)",57),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3957; -makefit(tqbs); -qbs_print(tqbs,0); -skip3957: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip3958; -makefit(tqbs); -qbs_print(tqbs,0); -skip3958: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1523,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1525,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Checking program... (editing program will cancel request)",57)); -if (new_error) goto skip3959; -makefit(tqbs); -qbs_print(tqbs,0); -skip3959: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1525,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1775,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,1528,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1778,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1529,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1779,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1530,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1780,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1532,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1782,"ide_methods.bas");}while(r); } do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1535,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1785,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(25066,1536,"ide_methods.bas");}while(r); -S_35081:; +if(!qbevent)break;evnt(26307,1786,"ide_methods.bas");}while(r); +S_37344:; if ((((*__LONG_MCLICK|*__LONG_MCLICK2))&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ -if(qbevent){evnt(25066,1538,"ide_methods.bas");if(r)goto S_35081;} -S_35082:; +if(qbevent){evnt(26307,1788,"ide_methods.bas");if(r)goto S_37344;} +S_37345:; if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(25066,1539,"ide_methods.bas");if(r)goto S_35082;} +if(qbevent){evnt(26307,1789,"ide_methods.bas");if(r)goto S_37345;} do{ *_FUNC_IDE2_LONG_X= 3 ; -if(!qbevent)break;evnt(25066,1540,"ide_methods.bas");}while(r); -S_35084:; -fornext_value3961= 1 ; -fornext_finalvalue3961=*__INTEGER_MENUS; -fornext_step3961= 1 ; -if (fornext_step3961<0) fornext_step_negative3961=1; else fornext_step_negative3961=0; -if (new_error) goto fornext_error3961; -goto fornext_entrylabel3961; +if(!qbevent)break;evnt(26307,1790,"ide_methods.bas");}while(r); +S_37347:; +fornext_value4087= 1 ; +fornext_finalvalue4087=*__INTEGER_MENUS; +fornext_step4087= 1 ; +if (fornext_step4087<0) fornext_step_negative4087=1; else fornext_step_negative4087=0; +if (new_error) goto fornext_error4087; +goto fornext_entrylabel4087; while(1){ -fornext_value3961=fornext_step3961+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3961: -*_FUNC_IDE2_LONG_I=fornext_value3961; -if (fornext_step_negative3961){ -if (fornext_value3961fornext_finalvalue3961) break; +if (fornext_value4087>fornext_finalvalue4087) break; } -fornext_error3961:; -if(qbevent){evnt(25066,1541,"ide_methods.bas");if(r)goto S_35084;} +fornext_error4087:; +if(qbevent){evnt(26307,1791,"ide_methods.bas");if(r)goto S_37347;} do{ *_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1542,"ide_methods.bas");}while(r); -S_35086:; +if(!qbevent)break;evnt(26307,1792,"ide_methods.bas");}while(r); +S_37349:; if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ -if(qbevent){evnt(25066,1543,"ide_methods.bas");if(r)goto S_35086;} +if(qbevent){evnt(26307,1793,"ide_methods.bas");if(r)goto S_37349;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,1544,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1794,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,1545,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1795,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(25066,1547,"ide_methods.bas");}while(r); -S_35091:; +if(!qbevent)break;evnt(26307,1797,"ide_methods.bas");}while(r); +S_37354:; if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(25066,1548,"ide_methods.bas");if(r)goto S_35091;} +if(qbevent){evnt(26307,1798,"ide_methods.bas");if(r)goto S_37354;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1548,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1798,"ide_methods.bas");}while(r); } -fornext_continue_3960:; +fornext_continue_4086:; } -fornext_exit_3960:; +fornext_exit_4086:; } } -S_35097:; -fornext_value3965= 1 ; -fornext_finalvalue3965=*__INTEGER_MENUS; -fornext_step3965= 1 ; -if (fornext_step3965<0) fornext_step_negative3965=1; else fornext_step_negative3965=0; -if (new_error) goto fornext_error3965; -goto fornext_entrylabel3965; +S_37360:; +fornext_value4091= 1 ; +fornext_finalvalue4091=*__INTEGER_MENUS; +fornext_step4091= 1 ; +if (fornext_step4091<0) fornext_step_negative4091=1; else fornext_step_negative4091=0; +if (new_error) goto fornext_error4091; +goto fornext_entrylabel4091; while(1){ -fornext_value3965=fornext_step3965+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel3965: -*_FUNC_IDE2_LONG_I=fornext_value3965; -if (fornext_step_negative3965){ -if (fornext_value3965fornext_finalvalue3965) break; +if (fornext_value4091>fornext_finalvalue4091) break; } -fornext_error3965:; -if(qbevent){evnt(25066,1553,"ide_methods.bas");if(r)goto S_35097;} +fornext_error4091:; +if(qbevent){evnt(26307,1803,"ide_methods.bas");if(r)goto S_37360;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1554,"ide_methods.bas");}while(r); -S_35099:; +if(!qbevent)break;evnt(26307,1804,"ide_methods.bas");}while(r); +S_37362:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KALT&(qbs_equal(qbs_ucase(__STRING_K),_FUNC_IDE2_STRING_A))))||new_error){ -if(qbevent){evnt(25066,1555,"ide_methods.bas");if(r)goto S_35099;} +if(qbevent){evnt(26307,1805,"ide_methods.bas");if(r)goto S_37362;} do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,1556,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1557,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1806,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1557,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1807,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip3966; -makefit(tqbs); -qbs_print(tqbs,0); -skip3966: -qbs_free(tqbs); +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1557,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1807,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1808,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,1559,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1809,"ide_methods.bas");}while(r); } -fornext_continue_3964:; +fornext_continue_4090:; } -fornext_exit_3964:; -S_35108:; +fornext_exit_4090:; +S_37370:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCTRL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("F",1)))))||new_error){ -if(qbevent){evnt(25066,1563,"ide_methods.bas");if(r)goto S_35108;} +if(qbevent){evnt(26307,1813,"ide_methods.bas");if(r)goto S_37370;} do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1564,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1814,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(25066,1565,"ide_methods.bas");}while(r); -S_35111:; +if(!qbevent)break;evnt(26307,1815,"ide_methods.bas");}while(r); +S_37373:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ -if(qbevent){evnt(25066,1566,"ide_methods.bas");if(r)goto S_35111;} +if(qbevent){evnt(26307,1816,"ide_methods.bas");if(r)goto S_37373;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(25066,1566,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1816,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(25066,1566,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1816,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1566,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1816,"ide_methods.bas");}while(r); } +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,1817,"ide_methods.bas");}while(r); } -S_35117:; +S_37380:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCTRL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("K",1)))))||new_error){ +if(qbevent){evnt(26307,1820,"ide_methods.bas");if(r)goto S_37380;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1821,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEQUICKKEYCODE; +if(!qbevent)break;evnt(26307,1822,"ide_methods.bas");}while(r); +} +S_37384:; if ((*__LONG_KCTRL&(-(*__LONG_KB== 15616 )))||new_error){ -if(qbevent){evnt(25066,1569,"ide_methods.bas");if(r)goto S_35117;} -S_35118:; +if(qbevent){evnt(26307,1826,"ide_methods.bas");if(r)goto S_37384;} +S_37385:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1570,"ide_methods.bas");if(r)goto S_35118;} +if(qbevent){evnt(26307,1827,"ide_methods.bas");if(r)goto S_37385;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1570,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1827,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDJMP; -if(!qbevent)break;evnt(25066,1571,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1828,"ide_methods.bas");}while(r); } -S_35123:; -if ((-(*__LONG_KB== 15616 ))||new_error){ -if(qbevent){evnt(25066,1574,"ide_methods.bas");if(r)goto S_35123;} -S_35124:; +S_37390:; +if ((*__LONG_KALT&(-(*__LONG_KB== 15616 )))||new_error){ +if(qbevent){evnt(26307,1831,"ide_methods.bas");if(r)goto S_37390;} +S_37391:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1575,"ide_methods.bas");if(r)goto S_35124;} +if(qbevent){evnt(26307,1832,"ide_methods.bas");if(r)goto S_37391;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1575,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1832,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDCHANGEJMP; +if(!qbevent)break;evnt(26307,1833,"ide_methods.bas");}while(r); +} +S_37396:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KB== 15616 ))|(qbs_equal(__STRING_K,func_chr( 28 )))))||new_error){ +if(qbevent){evnt(26307,1836,"ide_methods.bas");if(r)goto S_37396;} +S_37397:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26307,1837,"ide_methods.bas");if(r)goto S_37397;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26307,1837,"ide_methods.bas");}while(r); } LABEL_IDEMF3:; -if(qbevent){evnt(25066,1576,"ide_methods.bas");r=0;} -S_35127:; +if(qbevent){evnt(26307,1838,"ide_methods.bas");r=0;} +S_37400:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,1577,"ide_methods.bas");if(r)goto S_35127;} -S_35128:; +if(qbevent){evnt(26307,1839,"ide_methods.bas");if(r)goto S_37400;} +S_37401:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,1578,"ide_methods.bas");if(r)goto S_35128;} +if(qbevent){evnt(26307,1840,"ide_methods.bas");if(r)goto S_37401;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(25066,1579,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1841,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1580,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1842,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(25066,1581,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1843,"ide_methods.bas");}while(r); } do{ +return_point[next_return_point++]=19; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_19:; +if(!qbevent)break;evnt(26307,1845,"ide_methods.bas");}while(r); +S_37407:; +if ((*__LONG_KSHIFT)||new_error){ +if(qbevent){evnt(26307,1846,"ide_methods.bas");if(r)goto S_37407;} +do{ +*__INTEGER_IDEFINDINVERT= 1 ; +if(!qbevent)break;evnt(26307,1846,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,1847,"ide_methods.bas");}while(r); +do{ +SUB_IDEFINDAGAIN(&(pass4095= -1 )); +if(!qbevent)break;evnt(26307,1848,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDEFINDJMP; +if(!qbevent)break;evnt(26307,1850,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,1852,"ide_methods.bas");}while(r); +} +S_37417:; +if ((*__LONG_KSHIFT&(-(*__LONG_KB== 15104 )))||new_error){ +if(qbevent){evnt(26307,1855,"ide_methods.bas");if(r)goto S_37417;} +S_37418:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26307,1856,"ide_methods.bas");if(r)goto S_37418;} +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26307,1857,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26307,1857,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26307,1858,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26307,1858,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26307,1858,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26307,1858,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26307,1858,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26307,1858,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 1 ; +if(!qbevent)break;evnt(26307,1859,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,1860,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26307,1861,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26307,1862,"ide_methods.bas");}while(r); +do{ return_point[next_return_point++]=20; if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; +goto LABEL_REDRAWITALL; RETURN_20:; -if(!qbevent)break;evnt(25066,1583,"ide_methods.bas");}while(r); -S_35134:; -if ((*__LONG_KSHIFT)||new_error){ -if(qbevent){evnt(25066,1584,"ide_methods.bas");if(r)goto S_35134;} -do{ -*__INTEGER_IDEFINDINVERT= 1 ; -if(!qbevent)break;evnt(25066,1584,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1585,"ide_methods.bas");}while(r); -do{ -SUB_IDEFINDAGAIN(); -if(!qbevent)break;evnt(25066,1586,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDEFINDJMP; -if(!qbevent)break;evnt(25066,1588,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1590,"ide_methods.bas");}while(r); -} -S_35144:; -if ((*__LONG_KSHIFT&(-(*__LONG_KB== 15104 )))||new_error){ -if(qbevent){evnt(25066,1593,"ide_methods.bas");if(r)goto S_35144;} -S_35145:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(25066,1594,"ide_methods.bas");if(r)goto S_35145;} -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(25066,1595,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,1595,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(25066,1596,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(25066,1596,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(25066,1596,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(25066,1596,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(25066,1596,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(25066,1596,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(25066,1597,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,1598,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,1599,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,1600,"ide_methods.bas");}while(r); -do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,1600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1862,"ide_methods.bas");}while(r); } do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,1602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1864,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1603,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1865,"ide_methods.bas");}while(r); } do{ -if(!qbevent)break;evnt(25066,1608,"ide_methods.bas");}while(r); -S_35164:; +if(!qbevent)break;evnt(26307,1870,"ide_methods.bas");}while(r); +S_37437:; if ((-(*__LONG_MB== 0 ))||new_error){ -if(qbevent){evnt(25066,1610,"ide_methods.bas");if(r)goto S_35164;} +if(qbevent){evnt(26307,1872,"ide_methods.bas");if(r)goto S_37437;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR= 0 ; -if(!qbevent)break;evnt(25066,1610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1872,"ide_methods.bas");}while(r); } -S_35167:; +S_37440:; if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(25066,1611,"ide_methods.bas");if(r)goto S_35167;} -S_35168:; +if(qbevent){evnt(26307,1873,"ide_methods.bas");if(r)goto S_37440;} +S_37441:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1612,"ide_methods.bas");if(r)goto S_35168;} -S_35169:; +if(qbevent){evnt(26307,1874,"ide_methods.bas");if(r)goto S_37441;} +S_37442:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,1615,"ide_methods.bas");if(r)goto S_35169;} -S_35170:; +if(qbevent){evnt(26307,1877,"ide_methods.bas");if(r)goto S_37442;} +S_37443:; if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))&(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ))))||new_error){ -if(qbevent){evnt(25066,1616,"ide_methods.bas");if(r)goto S_35170;} +if(qbevent){evnt(26307,1878,"ide_methods.bas");if(r)goto S_37443;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR= 1 ; -if(!qbevent)break;evnt(25066,1617,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1879,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass3970= 2 ),&(pass3971=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass3972=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass3973=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(25066,1618,"ide_methods.bas");}while(r); -S_35173:; +*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass4096= 2 ),&(pass4097=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4098=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4099=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26307,1880,"ide_methods.bas");}while(r); +S_37446:; if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MX))||new_error){ -if(qbevent){evnt(25066,1619,"ide_methods.bas");if(r)goto S_35173;} +if(qbevent){evnt(26307,1881,"ide_methods.bas");if(r)goto S_37446;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; -if(!qbevent)break;evnt(25066,1619,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1881,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; -if(!qbevent)break;evnt(25066,1619,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1881,"ide_methods.bas");}while(r); } -S_35178:; +S_37451:; if ((-(*__LONG_MX== 2 ))||new_error){ -if(qbevent){evnt(25066,1620,"ide_methods.bas");if(r)goto S_35178;} +if(qbevent){evnt(26307,1882,"ide_methods.bas");if(r)goto S_37451;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; -if(!qbevent)break;evnt(25066,1620,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1882,"ide_methods.bas");}while(r); } -S_35181:; +S_37454:; if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(25066,1621,"ide_methods.bas");if(r)goto S_35181;} +if(qbevent){evnt(26307,1883,"ide_methods.bas");if(r)goto S_37454;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; -if(!qbevent)break;evnt(25066,1621,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1883,"ide_methods.bas");}while(r); } } -S_35185:; +S_37458:; if (((-(*__LONG_MY>=(*__LONG_IDEWY+ 1 )))&(-(*__LONG_MY<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))&(-(*__LONG_MX==*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(25066,1623,"ide_methods.bas");if(r)goto S_35185;} +if(qbevent){evnt(26307,1885,"ide_methods.bas");if(r)goto S_37458;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR= 2 ; -if(!qbevent)break;evnt(25066,1624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1886,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3974=*__LONG_IDEWY+ 1 ),&(pass3975=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass3976=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(25066,1625,"ide_methods.bas");}while(r); -S_35188:; +*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4100=*__LONG_IDEWY+ 1 ),&(pass4101=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4102=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26307,1887,"ide_methods.bas");}while(r); +S_37461:; if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MY))||new_error){ -if(qbevent){evnt(25066,1626,"ide_methods.bas");if(r)goto S_35188;} +if(qbevent){evnt(26307,1888,"ide_methods.bas");if(r)goto S_37461;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; -if(!qbevent)break;evnt(25066,1626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1888,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; -if(!qbevent)break;evnt(25066,1626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1888,"ide_methods.bas");}while(r); } -S_35193:; +S_37466:; if ((-(*__LONG_MY==(*__LONG_IDEWY+ 1 )))||new_error){ -if(qbevent){evnt(25066,1627,"ide_methods.bas");if(r)goto S_35193;} +if(qbevent){evnt(26307,1889,"ide_methods.bas");if(r)goto S_37466;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; -if(!qbevent)break;evnt(25066,1627,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1889,"ide_methods.bas");}while(r); } -S_35196:; +S_37469:; if ((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))||new_error){ -if(qbevent){evnt(25066,1628,"ide_methods.bas");if(r)goto S_35196;} +if(qbevent){evnt(26307,1890,"ide_methods.bas");if(r)goto S_37469;} do{ *_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; -if(!qbevent)break;evnt(25066,1628,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1890,"ide_methods.bas");}while(r); } } } -S_35201:; +S_37474:; if ((*_FUNC_IDE2_LONG_HELP_SCROLLBAR)||new_error){ -if(qbevent){evnt(25066,1632,"ide_methods.bas");if(r)goto S_35201;} +if(qbevent){evnt(26307,1894,"ide_methods.bas");if(r)goto S_37474;} do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,1633,"ide_methods.bas");}while(r); -S_35203:; +if(!qbevent)break;evnt(26307,1895,"ide_methods.bas");}while(r); +S_37476:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 1 ))||new_error){ -if(qbevent){evnt(25066,1634,"ide_methods.bas");if(r)goto S_35203;} -S_35204:; +if(qbevent){evnt(26307,1896,"ide_methods.bas");if(r)goto S_37476;} +S_37477:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(25066,1635,"ide_methods.bas");if(r)goto S_35204;} +if(qbevent){evnt(26307,1897,"ide_methods.bas");if(r)goto S_37477;} do{ *__LONG_KB= 19200 ; -if(!qbevent)break;evnt(25066,1635,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1897,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1635,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1897,"ide_methods.bas");}while(r); } -S_35208:; +S_37481:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(25066,1636,"ide_methods.bas");if(r)goto S_35208;} +if(qbevent){evnt(26307,1898,"ide_methods.bas");if(r)goto S_37481;} do{ *__LONG_KB= 18432 ; -if(!qbevent)break;evnt(25066,1636,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1898,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1636,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1898,"ide_methods.bas");}while(r); } } -S_35213:; +S_37486:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 2 ))||new_error){ -if(qbevent){evnt(25066,1638,"ide_methods.bas");if(r)goto S_35213;} -S_35214:; +if(qbevent){evnt(26307,1900,"ide_methods.bas");if(r)goto S_37486;} +S_37487:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(25066,1639,"ide_methods.bas");if(r)goto S_35214;} +if(qbevent){evnt(26307,1901,"ide_methods.bas");if(r)goto S_37487;} do{ *__LONG_KB= 19712 ; -if(!qbevent)break;evnt(25066,1639,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1901,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1639,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1901,"ide_methods.bas");}while(r); } -S_35218:; +S_37491:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(25066,1640,"ide_methods.bas");if(r)goto S_35218;} +if(qbevent){evnt(26307,1902,"ide_methods.bas");if(r)goto S_37491;} do{ *__LONG_KB= 20480 ; -if(!qbevent)break;evnt(25066,1640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1902,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1902,"ide_methods.bas");}while(r); } } -S_35223:; +S_37496:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 3 ))||new_error){ -if(qbevent){evnt(25066,1642,"ide_methods.bas");if(r)goto S_35223;} -S_35224:; +if(qbevent){evnt(26307,1904,"ide_methods.bas");if(r)goto S_37496;} +S_37497:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(25066,1643,"ide_methods.bas");if(r)goto S_35224;} +if(qbevent){evnt(26307,1905,"ide_methods.bas");if(r)goto S_37497;} do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass3977= 2 ),&(pass3978=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass3979=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass3980=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(25066,1644,"ide_methods.bas");}while(r); -S_35226:; +*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass4103= 2 ),&(pass4104=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4105=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4106=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26307,1906,"ide_methods.bas");}while(r); +S_37499:; if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(25066,1645,"ide_methods.bas");if(r)goto S_35226;} +if(qbevent){evnt(26307,1907,"ide_methods.bas");if(r)goto S_37499;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX- 8 ; -if(!qbevent)break;evnt(25066,1646,"ide_methods.bas");}while(r); -S_35228:; +if(!qbevent)break;evnt(26307,1908,"ide_methods.bas");}while(r); +S_37501:; if ((-(*__LONG_HELP_CX< 1 ))||new_error){ -if(qbevent){evnt(25066,1647,"ide_methods.bas");if(r)goto S_35228;} +if(qbevent){evnt(26307,1909,"ide_methods.bas");if(r)goto S_37501;} do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,1647,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1909,"ide_methods.bas");}while(r); } -S_35231:; +S_37504:; if ((-(*__LONG_HELP_SX>*__LONG_HELP_CX))||new_error){ -if(qbevent){evnt(25066,1648,"ide_methods.bas");if(r)goto S_35231;} +if(qbevent){evnt(26307,1910,"ide_methods.bas");if(r)goto S_37504;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,1648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1910,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1649,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1911,"ide_methods.bas");}while(r); } -S_35236:; +S_37509:; if ((-(*__LONG_MX>*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(25066,1651,"ide_methods.bas");if(r)goto S_35236;} +if(qbevent){evnt(26307,1913,"ide_methods.bas");if(r)goto S_37509;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX+ 8 ; -if(!qbevent)break;evnt(25066,1652,"ide_methods.bas");}while(r); -S_35238:; +if(!qbevent)break;evnt(26307,1914,"ide_methods.bas");}while(r); +S_37511:; if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ -if(qbevent){evnt(25066,1653,"ide_methods.bas");if(r)goto S_35238;} +if(qbevent){evnt(26307,1915,"ide_methods.bas");if(r)goto S_37511;} do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(25066,1653,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1915,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1654,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1916,"ide_methods.bas");}while(r); } } -S_35244:; +S_37517:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(25066,1657,"ide_methods.bas");if(r)goto S_35244;} +if(qbevent){evnt(26307,1919,"ide_methods.bas");if(r)goto S_37517;} do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass3981=*__LONG_IDEWY+ 1 ),&(pass3982=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass3983=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(25066,1658,"ide_methods.bas");}while(r); -S_35246:; +*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4107=*__LONG_IDEWY+ 1 ),&(pass4108=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4109=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26307,1920,"ide_methods.bas");}while(r); +S_37519:; if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(25066,1659,"ide_methods.bas");if(r)goto S_35246;} +if(qbevent){evnt(26307,1921,"ide_methods.bas");if(r)goto S_37519;} do{ *__LONG_KB= 18688 ; -if(!qbevent)break;evnt(25066,1659,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1921,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1659,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1921,"ide_methods.bas");}while(r); } -S_35250:; +S_37523:; if ((-(*__LONG_MY>*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(25066,1660,"ide_methods.bas");if(r)goto S_35250;} +if(qbevent){evnt(26307,1922,"ide_methods.bas");if(r)goto S_37523;} do{ *__LONG_KB= 20736 ; -if(!qbevent)break;evnt(25066,1660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1922,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,1660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1922,"ide_methods.bas");}while(r); } } } -S_35256:; +S_37529:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 4 ))||new_error){ -if(qbevent){evnt(25066,1667,"ide_methods.bas");if(r)goto S_35256;} -S_35257:; +if(qbevent){evnt(26307,1929,"ide_methods.bas");if(r)goto S_37529;} +S_37530:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(25066,1668,"ide_methods.bas");if(r)goto S_35257;} -S_35258:; +if(qbevent){evnt(26307,1930,"ide_methods.bas");if(r)goto S_37530;} +S_37531:; if ((-(*__LONG_HELP_W> 1 ))||new_error){ -if(qbevent){evnt(25066,1669,"ide_methods.bas");if(r)goto S_35258;} -S_35259:; +if(qbevent){evnt(26307,1931,"ide_methods.bas");if(r)goto S_37531;} +S_37532:; if ((-(*__LONG_MX<= 3 ))||new_error){ -if(qbevent){evnt(25066,1670,"ide_methods.bas");if(r)goto S_35259;} +if(qbevent){evnt(26307,1932,"ide_methods.bas");if(r)goto S_37532;} do{ *__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(25066,1671,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1933,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,1671,"ide_methods.bas");}while(r); -S_35262:; +if(!qbevent)break;evnt(26307,1933,"ide_methods.bas");}while(r); +S_37535:; }else{ if (-(*__LONG_MX>=(*__LONG_IDEWX- 2 ))){ -if(qbevent){evnt(25066,1672,"ide_methods.bas");if(r)goto S_35262;} +if(qbevent){evnt(26307,1934,"ide_methods.bas");if(r)goto S_37535;} do{ *__LONG_HELP_SX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(25066,1673,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1935,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(25066,1673,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1935,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_X=*__LONG_MX; -if(!qbevent)break;evnt(25066,1675,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1937,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 4 + 0.5E+0 ; -if(!qbevent)break;evnt(25066,1676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1938,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDEWX- 3 - 3 ); -if(!qbevent)break;evnt(25066,1677,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1939,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_W)+( 1 )); -if(!qbevent)break;evnt(25066,1678,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1940,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,1679,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1941,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,1679,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1941,"ide_methods.bas");}while(r); } } } } -S_35275:; +S_37548:; if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(25066,1683,"ide_methods.bas");if(r)goto S_35275;} -S_35276:; +if(qbevent){evnt(26307,1945,"ide_methods.bas");if(r)goto S_37548;} +S_37549:; if ((-(*__LONG_HELP_H> 1 ))||new_error){ -if(qbevent){evnt(25066,1684,"ide_methods.bas");if(r)goto S_35276;} -S_35277:; +if(qbevent){evnt(26307,1946,"ide_methods.bas");if(r)goto S_37549;} +S_37550:; if ((-(*__LONG_MY<=(*__LONG_IDEWY+ 2 )))||new_error){ -if(qbevent){evnt(25066,1686,"ide_methods.bas");if(r)goto S_35277;} +if(qbevent){evnt(26307,1948,"ide_methods.bas");if(r)goto S_37550;} do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(25066,1687,"ide_methods.bas");}while(r); -S_35279:; +if(!qbevent)break;evnt(26307,1949,"ide_methods.bas");}while(r); +S_37552:; }else{ if (-(*__LONG_MY>=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 3 ))){ -if(qbevent){evnt(25066,1688,"ide_methods.bas");if(r)goto S_35279;} +if(qbevent){evnt(26307,1950,"ide_methods.bas");if(r)goto S_37552;} do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(25066,1689,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1951,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY; -if(!qbevent)break;evnt(25066,1691,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1953,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y-*__LONG_IDEWY- 3 + 0.5E+0 ; -if(!qbevent)break;evnt(25066,1692,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1954,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDESUBWINDOW- 3 - 3 ); -if(!qbevent)break;evnt(25066,1693,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1955,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_H)+( 1 )); -if(!qbevent)break;evnt(25066,1694,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1956,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,1695,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1957,"ide_methods.bas");}while(r); } } -S_35288:; +S_37561:; if ((-(*__LONG_HELP_CX< 1 ))||new_error){ -if(qbevent){evnt(25066,1698,"ide_methods.bas");if(r)goto S_35288;} +if(qbevent){evnt(26307,1960,"ide_methods.bas");if(r)goto S_37561;} do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,1698,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1960,"ide_methods.bas");}while(r); } -S_35291:; +S_37564:; if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ -if(qbevent){evnt(25066,1699,"ide_methods.bas");if(r)goto S_35291;} +if(qbevent){evnt(26307,1961,"ide_methods.bas");if(r)goto S_37564;} do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(25066,1699,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1961,"ide_methods.bas");}while(r); } -S_35294:; +S_37567:; if ((-(*__LONG_HELP_CY< 1 ))||new_error){ -if(qbevent){evnt(25066,1700,"ide_methods.bas");if(r)goto S_35294;} +if(qbevent){evnt(26307,1962,"ide_methods.bas");if(r)goto S_37567;} do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(25066,1700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1962,"ide_methods.bas");}while(r); } -S_35297:; +S_37570:; if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ -if(qbevent){evnt(25066,1701,"ide_methods.bas");if(r)goto S_35297;} +if(qbevent){evnt(26307,1963,"ide_methods.bas");if(r)goto S_37570;} do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(25066,1701,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1963,"ide_methods.bas");}while(r); } -S_35300:; +S_37573:; if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ -if(qbevent){evnt(25066,1703,"ide_methods.bas");if(r)goto S_35300;} +if(qbevent){evnt(26307,1965,"ide_methods.bas");if(r)goto S_37573;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,1703,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1965,"ide_methods.bas");}while(r); } -S_35303:; +S_37576:; if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ -if(qbevent){evnt(25066,1704,"ide_methods.bas");if(r)goto S_35303;} +if(qbevent){evnt(26307,1966,"ide_methods.bas");if(r)goto S_37576;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; -if(!qbevent)break;evnt(25066,1704,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1966,"ide_methods.bas");}while(r); } -S_35306:; +S_37579:; if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ -if(qbevent){evnt(25066,1705,"ide_methods.bas");if(r)goto S_35306;} +if(qbevent){evnt(26307,1967,"ide_methods.bas");if(r)goto S_37579;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,1705,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1967,"ide_methods.bas");}while(r); } -S_35309:; +S_37582:; if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ -if(qbevent){evnt(25066,1706,"ide_methods.bas");if(r)goto S_35309;} +if(qbevent){evnt(26307,1968,"ide_methods.bas");if(r)goto S_37582;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; -if(!qbevent)break;evnt(25066,1706,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1968,"ide_methods.bas");}while(r); } -S_35312:; +S_37585:; if ((-(*__LONG_HELP_SX< 1 ))||new_error){ -if(qbevent){evnt(25066,1708,"ide_methods.bas");if(r)goto S_35312;} +if(qbevent){evnt(26307,1970,"ide_methods.bas");if(r)goto S_37585;} do{ *__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(25066,1708,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1970,"ide_methods.bas");}while(r); } -S_35315:; +S_37588:; if ((-(*__LONG_HELP_SY< 1 ))||new_error){ -if(qbevent){evnt(25066,1709,"ide_methods.bas");if(r)goto S_35315;} +if(qbevent){evnt(26307,1971,"ide_methods.bas");if(r)goto S_37588;} do{ *__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(25066,1709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1971,"ide_methods.bas");}while(r); } } } } -S_35321:; +S_37594:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,1730,"ide_methods.bas");if(r)goto S_35321;} +if(qbevent){evnt(26307,1992,"ide_methods.bas");if(r)goto S_37594;} do{ *__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(25066,1730,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,1992,"ide_methods.bas");}while(r); } } } } -S_35327:; +S_37600:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,1741,"ide_methods.bas");if(r)goto S_35327;} -S_35328:; +if(qbevent){evnt(26307,2003,"ide_methods.bas");if(r)goto S_37600;} +S_37601:; if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ -if(qbevent){evnt(25066,1742,"ide_methods.bas");if(r)goto S_35328;} -S_35329:; +if(qbevent){evnt(26307,2004,"ide_methods.bas");if(r)goto S_37601;} +S_37602:; if ((-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 )))||new_error){ -if(qbevent){evnt(25066,1743,"ide_methods.bas");if(r)goto S_35329;} -S_35330:; +if(qbevent){evnt(26307,2005,"ide_methods.bas");if(r)goto S_37602;} +S_37603:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len== 0 )))||new_error){ -if(qbevent){evnt(25066,1744,"ide_methods.bas");if(r)goto S_35330;} +if(qbevent){evnt(26307,2006,"ide_methods.bas");if(r)goto S_37603;} do{ *__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(25066,1745,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2007,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1746,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2008,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; -if(!qbevent)break;evnt(25066,1746,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2008,"ide_methods.bas");}while(r); }else{ do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1748,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2010,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1749,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2011,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; -if(!qbevent)break;evnt(25066,1749,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2011,"ide_methods.bas");}while(r); } }else{ -S_35340:; +S_37613:; if ((-(*__LONG_MX==(*__LONG_IDEWX- 3 )))||new_error){ -if(qbevent){evnt(25066,1752,"ide_methods.bas");if(r)goto S_35340;} +if(qbevent){evnt(26307,2014,"ide_methods.bas");if(r)goto S_37613;} LABEL_SHOWRECENTLYSEARCHEDBOX:; -if(qbevent){evnt(25066,1753,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2015,"ide_methods.bas");r=0;} do{ sub_pcopy( 0 , 3 ); -if(!qbevent)break;evnt(25066,1754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2016,"ide_methods.bas");}while(r); do{ return_point[next_return_point++]=21; if (next_return_point>=return_points) more_return_points(); goto LABEL_UPDATESEARCHBAR; RETURN_21:; -if(!qbevent)break;evnt(25066,1755,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2017,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDESEARCHEDBOX()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1756,"ide_methods.bas");}while(r); -S_35344:; +if(!qbevent)break;evnt(26307,2018,"ide_methods.bas");}while(r); +S_37617:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ -if(qbevent){evnt(25066,1757,"ide_methods.bas");if(r)goto S_35344;} +if(qbevent){evnt(26307,2019,"ide_methods.bas");if(r)goto S_37617;} do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1757,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2019,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,1758,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2020,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,1758,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,1758,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,1758,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2020,"ide_methods.bas");}while(r); do{ *__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,1759,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2021,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,1760,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2022,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,1760,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2022,"ide_methods.bas");}while(r); do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,1760,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip3986; -makefit(tqbs); -qbs_print(tqbs,0); -skip3986: -qbs_free(tqbs); +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1760,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2022,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1761,"ide_methods.bas");}while(r); -S_35357:; +if(!qbevent)break;evnt(26307,2023,"ide_methods.bas");}while(r); +S_37627:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ -if(qbevent){evnt(25066,1762,"ide_methods.bas");if(r)goto S_35357;} +if(qbevent){evnt(26307,2024,"ide_methods.bas");if(r)goto S_37627;} do{ goto LABEL_IDEMF3; -if(!qbevent)break;evnt(25066,1762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2024,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,1763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2025,"ide_methods.bas");}while(r); }else{ -S_35362:; +S_37632:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,1765,"ide_methods.bas");if(r)goto S_35362;} -S_35363:; +if(qbevent){evnt(26307,2027,"ide_methods.bas");if(r)goto S_37632;} +S_37633:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1766,"ide_methods.bas");if(r)goto S_35363;} +if(qbevent){evnt(26307,2028,"ide_methods.bas");if(r)goto S_37633;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2028,"ide_methods.bas");}while(r); } -S_35366:; +S_37636:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len<= 20 )))||new_error){ -if(qbevent){evnt(25066,1768,"ide_methods.bas");if(r)goto S_35366;} +if(qbevent){evnt(26307,2030,"ide_methods.bas");if(r)goto S_37636;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); -if(!qbevent)break;evnt(25066,1769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2031,"ide_methods.bas");}while(r); }else{ -S_35369:; +S_37639:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ -if(qbevent){evnt(25066,1771,"ide_methods.bas");if(r)goto S_35369;} +if(qbevent){evnt(26307,2033,"ide_methods.bas");if(r)goto S_37639;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=(*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )))+(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 ); -if(!qbevent)break;evnt(25066,1772,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2034,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); -if(!qbevent)break;evnt(25066,1774,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2036,"ide_methods.bas");}while(r); } } }else{ do{ *__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(25066,1778,"ide_methods.bas");}while(r); -S_35377:; +if(!qbevent)break;evnt(26307,2040,"ide_methods.bas");}while(r); +S_37647:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ -if(qbevent){evnt(25066,1779,"ide_methods.bas");if(r)goto S_35377;} +if(qbevent){evnt(26307,2041,"ide_methods.bas");if(r)goto S_37647;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(25066,1779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2041,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(25066,1779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2041,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2041,"ide_methods.bas");}while(r); } } } } } } -S_35387:; +S_37657:; if ((-(*__LONG_KB== 16384 ))||new_error){ -if(qbevent){evnt(25066,1788,"ide_methods.bas");if(r)goto S_35387;} -S_35388:; +if(qbevent){evnt(26307,2050,"ide_methods.bas");if(r)goto S_37657;} +S_37658:; if ((-(*__LONG_IDEHELP== 1 ))||new_error){ -if(qbevent){evnt(25066,1789,"ide_methods.bas");if(r)goto S_35388;} -S_35389:; +if(qbevent){evnt(26307,2051,"ide_methods.bas");if(r)goto S_37658;} +S_37659:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1790,"ide_methods.bas");if(r)goto S_35389;} +if(qbevent){evnt(26307,2052,"ide_methods.bas");if(r)goto S_37659;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1791,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2053,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,1793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2055,"ide_methods.bas");}while(r); } } } -S_35396:; +S_37666:; if ((-(*__LONG_IDEHELP== 1 ))||new_error){ -if(qbevent){evnt(25066,1798,"ide_methods.bas");if(r)goto S_35396;} -S_35397:; +if(qbevent){evnt(26307,2060,"ide_methods.bas");if(r)goto S_37666;} +S_37667:; if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(25066,1799,"ide_methods.bas");if(r)goto S_35397;} -S_35398:; +if(qbevent){evnt(26307,2061,"ide_methods.bas");if(r)goto S_37667;} +S_37668:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1800,"ide_methods.bas");if(r)goto S_35398;} -S_35399:; +if(qbevent){evnt(26307,2062,"ide_methods.bas");if(r)goto S_37668;} +S_37669:; if (((-(*__LONG_MY>= 2 ))&(-(*__LONG_MY<*__LONG_IDEWY)))||new_error){ -if(qbevent){evnt(25066,1801,"ide_methods.bas");if(r)goto S_35399;} +if(qbevent){evnt(26307,2063,"ide_methods.bas");if(r)goto S_37669;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1802,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2064,"ide_methods.bas");}while(r); } }else{ -S_35403:; +S_37673:; if (((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ -if(qbevent){evnt(25066,1805,"ide_methods.bas");if(r)goto S_35403;} +if(qbevent){evnt(26307,2067,"ide_methods.bas");if(r)goto S_37673;} do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,1806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2068,"ide_methods.bas");}while(r); +} +} +S_37677:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26307,2072,"ide_methods.bas");if(r)goto S_37677;} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26307,2073,"ide_methods.bas");}while(r); } } } -} -S_35409:; +S_37682:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,1812,"ide_methods.bas");if(r)goto S_35409;} +if(qbevent){evnt(26307,2078,"ide_methods.bas");if(r)goto S_37682;} do{ *_FUNC_IDE2_LONG_Z= 0 ; -if(!qbevent)break;evnt(25066,1813,"ide_methods.bas");}while(r); -S_35411:; +if(!qbevent)break;evnt(26307,2079,"ide_methods.bas");}while(r); +S_37684:; if (((*__LONG_KALT&(-(*__LONG_KB== 18432 )))|(*__LONG_KALT&(-(*__LONG_KB== 20480 ))))||new_error){ -if(qbevent){evnt(25066,1814,"ide_methods.bas");if(r)goto S_35411;} +if(qbevent){evnt(26307,2080,"ide_methods.bas");if(r)goto S_37684;} do{ goto LABEL_SHOWRECENTLYSEARCHEDBOX; -if(!qbevent)break;evnt(25066,1814,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2080,"ide_methods.bas");}while(r); } -S_35414:; +S_37687:; if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(25066,1815,"ide_methods.bas");if(r)goto S_35414;} +if(qbevent){evnt(26307,2081,"ide_methods.bas");if(r)goto S_37687;} do{ *_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(25066,1815,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2081,"ide_methods.bas");}while(r); } -S_35417:; +S_37690:; if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(25066,1816,"ide_methods.bas");if(r)goto S_35417;} +if(qbevent){evnt(26307,2082,"ide_methods.bas");if(r)goto S_37690;} do{ *_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(25066,1816,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2082,"ide_methods.bas");}while(r); } -S_35420:; +S_37693:; if ((-(*__LONG_KB== 18688 ))||new_error){ -if(qbevent){evnt(25066,1817,"ide_methods.bas");if(r)goto S_35420;} +if(qbevent){evnt(26307,2083,"ide_methods.bas");if(r)goto S_37693;} do{ *_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(25066,1817,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2083,"ide_methods.bas");}while(r); } -S_35423:; +S_37696:; if ((-(*__LONG_KB== 20736 ))||new_error){ -if(qbevent){evnt(25066,1818,"ide_methods.bas");if(r)goto S_35423;} +if(qbevent){evnt(26307,2084,"ide_methods.bas");if(r)goto S_37696;} do{ *_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(25066,1818,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2084,"ide_methods.bas");}while(r); } -S_35426:; +S_37699:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,1819,"ide_methods.bas");if(r)goto S_35426;} +if(qbevent){evnt(26307,2085,"ide_methods.bas");if(r)goto S_37699;} do{ *_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(25066,1819,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2085,"ide_methods.bas");}while(r); } -S_35429:; +S_37702:; if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ -if(qbevent){evnt(25066,1820,"ide_methods.bas");if(r)goto S_35429;} +if(qbevent){evnt(26307,2086,"ide_methods.bas");if(r)goto S_37702;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1820,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2086,"ide_methods.bas");}while(r); } } -S_35433:; +S_37706:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,1823,"ide_methods.bas");if(r)goto S_35433;} +if(qbevent){evnt(26307,2089,"ide_methods.bas");if(r)goto S_37706;} do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1824,"ide_methods.bas");}while(r); -S_35435:; +if(!qbevent)break;evnt(26307,2090,"ide_methods.bas");}while(r); +S_37708:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))|(((-(*__LONG_KB== 20992 ))|(-(*__LONG_KB== 21248 ))))))||new_error){ +if(qbevent){evnt(26307,2091,"ide_methods.bas");if(r)goto S_37708;} +S_37709:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,1825,"ide_methods.bas");if(r)goto S_35435;} +if(qbevent){evnt(26307,2092,"ide_methods.bas");if(r)goto S_37709;} do{ *_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1826,"ide_methods.bas");}while(r); -S_35437:; +if(!qbevent)break;evnt(26307,2092,"ide_methods.bas");}while(r); +} +S_37712:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("V",1))))))||new_error){ -if(qbevent){evnt(25066,1827,"ide_methods.bas");if(r)goto S_35437;} +if(qbevent){evnt(26307,2093,"ide_methods.bas");if(r)goto S_37712;} +LABEL_PASTEINTOSEARCHFIELD:; +if(qbevent){evnt(26307,2094,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2095,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 13 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1829,"ide_methods.bas");}while(r); -S_35440:; +if(!qbevent)break;evnt(26307,2096,"ide_methods.bas");}while(r); +S_37715:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,1830,"ide_methods.bas");if(r)goto S_35440;} +if(qbevent){evnt(26307,2097,"ide_methods.bas");if(r)goto S_37715;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,*_FUNC_IDE2_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1830,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2097,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 10 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1831,"ide_methods.bas");}while(r); -S_35444:; +if(!qbevent)break;evnt(26307,2098,"ide_methods.bas");}while(r); +S_37719:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,1832,"ide_methods.bas");if(r)goto S_35444;} +if(qbevent){evnt(26307,2099,"ide_methods.bas");if(r)goto S_37719;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,*_FUNC_IDE2_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2099,"ide_methods.bas");}while(r); } -S_35447:; +S_37722:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(25066,1833,"ide_methods.bas");if(r)goto S_35447;} -S_35448:; +if(qbevent){evnt(26307,2100,"ide_methods.bas");if(r)goto S_37722;} +S_37723:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1834,"ide_methods.bas");if(r)goto S_35448;} +if(qbevent){evnt(26307,2101,"ide_methods.bas");if(r)goto S_37723;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,1835,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2102,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1835,"ide_methods.bas");}while(r); -S_35451:; +if(!qbevent)break;evnt(26307,2102,"ide_methods.bas");}while(r); +S_37726:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,1836,"ide_methods.bas");if(r)goto S_35451;} +if(qbevent){evnt(26307,2103,"ide_methods.bas");if(r)goto S_37726;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,1836,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2103,"ide_methods.bas");}while(r); } -S_35454:; +S_37729:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,1837,"ide_methods.bas");if(r)goto S_35454;} +if(qbevent){evnt(26307,2104,"ide_methods.bas");if(r)goto S_37729;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1838,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2105,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(25066,1839,"ide_methods.bas");}while(r); -S_35457:; +if(!qbevent)break;evnt(26307,2106,"ide_methods.bas");}while(r); +S_37732:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,1840,"ide_methods.bas");if(r)goto S_35457;} +if(qbevent){evnt(26307,2107,"ide_methods.bas");if(r)goto S_37732;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1+_FUNC_IDE2_STRING_CLIP->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1841,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2108,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1843,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2110,"ide_methods.bas");}while(r); } }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1846,"ide_methods.bas");}while(r); -S_35464:; +if(!qbevent)break;evnt(26307,2113,"ide_methods.bas");}while(r); +S_37739:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,1847,"ide_methods.bas");if(r)goto S_35464;} +if(qbevent){evnt(26307,2114,"ide_methods.bas");if(r)goto S_37739;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+_FUNC_IDE2_STRING_CLIP->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1847,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2114,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,1850,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2117,"ide_methods.bas");}while(r); } -S_35471:; +S_37746:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1))))))||new_error){ -if(qbevent){evnt(25066,1853,"ide_methods.bas");if(r)goto S_35471;} -S_35472:; +if(qbevent){evnt(26307,2120,"ide_methods.bas");if(r)goto S_37746;} +LABEL_SELECTALLINSEARCHFIELD:; +if(qbevent){evnt(26307,2121,"ide_methods.bas");r=0;} +S_37747:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 0 )))||new_error){ -if(qbevent){evnt(25066,1854,"ide_methods.bas");if(r)goto S_35472;} +if(qbevent){evnt(26307,2122,"ide_methods.bas");if(r)goto S_37747;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(25066,1855,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2123,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(25066,1856,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2124,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1857,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2125,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,1859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2127,"ide_methods.bas");}while(r); } -S_35479:; +S_37754:; if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))))))||new_error){ -if(qbevent){evnt(25066,1862,"ide_methods.bas");if(r)goto S_35479;} -S_35480:; +if(qbevent){evnt(26307,2130,"ide_methods.bas");if(r)goto S_37754;} +LABEL_COPYSEARCHTERM2CLIP:; +if(qbevent){evnt(26307,2131,"ide_methods.bas");r=0;} +S_37755:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1863,"ide_methods.bas");if(r)goto S_35480;} +if(qbevent){evnt(26307,2132,"ide_methods.bas");if(r)goto S_37755;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,1864,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2133,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1864,"ide_methods.bas");}while(r); -S_35483:; +if(!qbevent)break;evnt(26307,2133,"ide_methods.bas");}while(r); +S_37758:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,1865,"ide_methods.bas");if(r)goto S_35483;} +if(qbevent){evnt(26307,2134,"ide_methods.bas");if(r)goto S_37758;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,1865,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2134,"ide_methods.bas");}while(r); } -S_35486:; +S_37761:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,1866,"ide_methods.bas");if(r)goto S_35486;} +if(qbevent){evnt(26307,2135,"ide_methods.bas");if(r)goto S_37761;} do{ sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1866,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2135,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,1868,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2137,"ide_methods.bas");}while(r); } -S_35492:; +S_37767:; if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1)))))))||new_error){ -if(qbevent){evnt(25066,1871,"ide_methods.bas");if(r)goto S_35492;} -S_35493:; +if(qbevent){evnt(26307,2140,"ide_methods.bas");if(r)goto S_37767;} +LABEL_CUTTOCLIPBOARDSEARCHFIELD:; +if(qbevent){evnt(26307,2141,"ide_methods.bas");r=0;} +S_37768:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1872,"ide_methods.bas");if(r)goto S_35493;} +if(qbevent){evnt(26307,2142,"ide_methods.bas");if(r)goto S_37768;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,1873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2143,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1873,"ide_methods.bas");}while(r); -S_35496:; +if(!qbevent)break;evnt(26307,2143,"ide_methods.bas");}while(r); +S_37771:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,1874,"ide_methods.bas");if(r)goto S_35496;} +if(qbevent){evnt(26307,2144,"ide_methods.bas");if(r)goto S_37771;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,1874,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2144,"ide_methods.bas");}while(r); } -S_35499:; +S_37774:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,1875,"ide_methods.bas");if(r)goto S_35499;} +if(qbevent){evnt(26307,2145,"ide_methods.bas");if(r)goto S_37774;} do{ sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1876,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2146,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1878,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2148,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(25066,1879,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2149,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1880,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2150,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,1883,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2153,"ide_methods.bas");}while(r); } -S_35508:; +S_37783:; if ((-(*_FUNC_IDE2_LONG_K== 8 ))||new_error){ -if(qbevent){evnt(25066,1886,"ide_methods.bas");if(r)goto S_35508;} -S_35509:; +if(qbevent){evnt(26307,2156,"ide_methods.bas");if(r)goto S_37783;} +S_37784:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1887,"ide_methods.bas");if(r)goto S_35509;} +if(qbevent){evnt(26307,2157,"ide_methods.bas");if(r)goto S_37784;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,1888,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2158,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1888,"ide_methods.bas");}while(r); -S_35512:; +if(!qbevent)break;evnt(26307,2158,"ide_methods.bas");}while(r); +S_37787:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,1889,"ide_methods.bas");if(r)goto S_35512;} +if(qbevent){evnt(26307,2159,"ide_methods.bas");if(r)goto S_37787;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,1889,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2159,"ide_methods.bas");}while(r); } -S_35515:; +S_37790:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,1890,"ide_methods.bas");if(r)goto S_35515;} +if(qbevent){evnt(26307,2160,"ide_methods.bas");if(r)goto S_37790;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1892,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2162,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1893,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2163,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(25066,1894,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2164,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1895,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2165,"ide_methods.bas");}while(r); } -S_35521:; +S_37796:; }else{ if (-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 )){ -if(qbevent){evnt(25066,1897,"ide_methods.bas");if(r)goto S_35521;} +if(qbevent){evnt(26307,2167,"ide_methods.bas");if(r)goto S_37796;} do{ qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1898,"ide_methods.bas");}while(r); -S_35523:; +if(!qbevent)break;evnt(26307,2168,"ide_methods.bas");}while(r); +S_37798:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,1899,"ide_methods.bas");if(r)goto S_35523;} +if(qbevent){evnt(26307,2169,"ide_methods.bas");if(r)goto S_37798;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1899,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2169,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1899,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2169,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A1,_FUNC_IDE2_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1900,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2170,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 ; -if(!qbevent)break;evnt(25066,1900,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2170,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1901,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2171,"ide_methods.bas");}while(r); } } } -S_35533:; +S_37808:; if ((-(*_FUNC_IDE2_LONG_K== 27 ))||new_error){ -if(qbevent){evnt(25066,1904,"ide_methods.bas");if(r)goto S_35533;} +if(qbevent){evnt(26307,2174,"ide_methods.bas");if(r)goto S_37808;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1905,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2175,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1906,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2176,"ide_methods.bas");}while(r); } -S_35537:; +S_37812:; if ((-(*_FUNC_IDE2_LONG_K== 9 ))||new_error){ -if(qbevent){evnt(25066,1908,"ide_methods.bas");if(r)goto S_35537;} +if(qbevent){evnt(26307,2178,"ide_methods.bas");if(r)goto S_37812;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1909,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2179,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1910,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2180,"ide_methods.bas");}while(r); } -S_35541:; +S_37816:; if ((-(*_FUNC_IDE2_LONG_K== 13 ))||new_error){ -if(qbevent){evnt(25066,1912,"ide_methods.bas");if(r)goto S_35541;} -S_35542:; +if(qbevent){evnt(26307,2182,"ide_methods.bas");if(r)goto S_37816;} +S_37817:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ -if(qbevent){evnt(25066,1913,"ide_methods.bas");if(r)goto S_35542;} +if(qbevent){evnt(26307,2183,"ide_methods.bas");if(r)goto S_37817;} do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1914,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2184,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; -if(!qbevent)break;evnt(25066,1915,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2185,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1917,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2187,"ide_methods.bas");}while(r); } -S_35548:; +S_37823:; if (((-(*_FUNC_IDE2_LONG_K!= 8 ))&(-(*_FUNC_IDE2_LONG_K!= 9 ))&(-(*_FUNC_IDE2_LONG_K!= 0 ))&(-(*_FUNC_IDE2_LONG_K!= 10 ))&(-(*_FUNC_IDE2_LONG_K!= 13 ))&(-(*_FUNC_IDE2_LONG_K!= 26 ))&(-(*_FUNC_IDE2_LONG_K!= 255 )))||new_error){ -if(qbevent){evnt(25066,1919,"ide_methods.bas");if(r)goto S_35548;} -S_35549:; +if(qbevent){evnt(26307,2189,"ide_methods.bas");if(r)goto S_37823;} +S_37824:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1920,"ide_methods.bas");if(r)goto S_35549;} +if(qbevent){evnt(26307,2190,"ide_methods.bas");if(r)goto S_37824;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,1921,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2191,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1921,"ide_methods.bas");}while(r); -S_35552:; +if(!qbevent)break;evnt(26307,2191,"ide_methods.bas");}while(r); +S_37827:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,1922,"ide_methods.bas");if(r)goto S_35552;} +if(qbevent){evnt(26307,2192,"ide_methods.bas");if(r)goto S_37827;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,1922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2192,"ide_methods.bas");}while(r); } -S_35555:; +S_37830:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,1923,"ide_methods.bas");if(r)goto S_35555;} +if(qbevent){evnt(26307,2193,"ide_methods.bas");if(r)goto S_37830;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1925,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2195,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1926,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2196,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1927,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2197,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(25066,1928,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2198,"ide_methods.bas");}while(r); } } -S_35562:; +S_37837:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ -if(qbevent){evnt(25066,1931,"ide_methods.bas");if(r)goto S_35562;} +if(qbevent){evnt(26307,2201,"ide_methods.bas");if(r)goto S_37837;} do{ qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1931,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2201,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1931,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2201,"ide_methods.bas");}while(r); } -S_35567:; +S_37842:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,1932,"ide_methods.bas");if(r)goto S_35567;} +if(qbevent){evnt(26307,2202,"ide_methods.bas");if(r)goto S_37842;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1932,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2202,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1932,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2202,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A1,__STRING_K),_FUNC_IDE2_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1933,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2203,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+ 1 ; -if(!qbevent)break;evnt(25066,1933,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2203,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1935,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2205,"ide_methods.bas");}while(r); } -S_35577:; +S_37852:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ -if(qbevent){evnt(25066,1938,"ide_methods.bas");if(r)goto S_35577;} +if(qbevent){evnt(26307,2208,"ide_methods.bas");if(r)goto S_37852;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1939,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2209,"ide_methods.bas");}while(r); do{ goto LABEL_IDESUBSJMP; -if(!qbevent)break;evnt(25066,1940,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2210,"ide_methods.bas");}while(r); } -S_35581:; +S_37856:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))))))||new_error){ -if(qbevent){evnt(25066,1943,"ide_methods.bas");if(r)goto S_35581;} -S_35582:; +if(qbevent){evnt(26307,2213,"ide_methods.bas");if(r)goto S_37856;} +LABEL_DELETESELECTIONSEARCHFIELD:; +if(qbevent){evnt(26307,2214,"ide_methods.bas");r=0;} +S_37857:; if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(25066,1944,"ide_methods.bas");if(r)goto S_35582;} +if(qbevent){evnt(26307,2215,"ide_methods.bas");if(r)goto S_37857;} do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,1945,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2216,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,1945,"ide_methods.bas");}while(r); -S_35585:; +if(!qbevent)break;evnt(26307,2216,"ide_methods.bas");}while(r); +S_37860:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,1946,"ide_methods.bas");if(r)goto S_35585;} +if(qbevent){evnt(26307,2217,"ide_methods.bas");if(r)goto S_37860;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,1946,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2217,"ide_methods.bas");}while(r); } -S_35588:; +S_37863:; if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,1947,"ide_methods.bas");if(r)goto S_35588;} +if(qbevent){evnt(26307,2218,"ide_methods.bas");if(r)goto S_37863;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1949,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2220,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1950,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2221,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(25066,1951,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2222,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1952,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2223,"ide_methods.bas");}while(r); } }else{ -S_35595:; +S_37870:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ -if(qbevent){evnt(25066,1955,"ide_methods.bas");if(r)goto S_35595;} +if(qbevent){evnt(26307,2226,"ide_methods.bas");if(r)goto S_37870;} do{ qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1955,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2226,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1955,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2226,"ide_methods.bas");}while(r); } -S_35600:; +S_37875:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,1956,"ide_methods.bas");if(r)goto S_35600;} +if(qbevent){evnt(26307,2227,"ide_methods.bas");if(r)goto S_37875;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1956,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2227,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1956,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2227,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A1,_FUNC_IDE2_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1957,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2228,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1958,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2229,"ide_methods.bas");}while(r); } } -S_35609:; +S_37884:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("K",1))))))||new_error){ -if(qbevent){evnt(25066,1963,"ide_methods.bas");if(r)goto S_35609;} +if(qbevent){evnt(26307,2234,"ide_methods.bas");if(r)goto S_37884;} do{ return_point[next_return_point++]=22; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_22:; -if(!qbevent)break;evnt(25066,1963,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2234,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 ; -if(!qbevent)break;evnt(25066,1963,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2234,"ide_methods.bas");}while(r); } -S_35613:; +S_37888:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("M",1))))))||new_error){ -if(qbevent){evnt(25066,1964,"ide_methods.bas");if(r)goto S_35613;} +if(qbevent){evnt(26307,2235,"ide_methods.bas");if(r)goto S_37888;} do{ return_point[next_return_point++]=23; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_23:; -if(!qbevent)break;evnt(25066,1964,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2235,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+ 1 ; -if(!qbevent)break;evnt(25066,1964,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2235,"ide_methods.bas");}while(r); } -S_35617:; +S_37892:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("G",1))))))||new_error){ -if(qbevent){evnt(25066,1965,"ide_methods.bas");if(r)goto S_35617;} +if(qbevent){evnt(26307,2236,"ide_methods.bas");if(r)goto S_37892;} do{ return_point[next_return_point++]=24; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_24:; -if(!qbevent)break;evnt(25066,1965,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2236,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; -if(!qbevent)break;evnt(25066,1965,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2236,"ide_methods.bas");}while(r); } -S_35621:; +S_37896:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("O",1))))))||new_error){ -if(qbevent){evnt(25066,1966,"ide_methods.bas");if(r)goto S_35621;} +if(qbevent){evnt(26307,2237,"ide_methods.bas");if(r)goto S_37896;} do{ return_point[next_return_point++]=25; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_25:; -if(!qbevent)break;evnt(25066,1966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2237,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2237,"ide_methods.bas");}while(r); } -S_35625:; +S_37900:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1< 0 ))||new_error){ -if(qbevent){evnt(25066,1967,"ide_methods.bas");if(r)goto S_35625;} +if(qbevent){evnt(26307,2238,"ide_methods.bas");if(r)goto S_37900;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; -if(!qbevent)break;evnt(25066,1967,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2238,"ide_methods.bas");}while(r); } -S_35628:; +S_37903:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,1968,"ide_methods.bas");if(r)goto S_35628;} +if(qbevent){evnt(26307,2239,"ide_methods.bas");if(r)goto S_37903;} do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,1968,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2239,"ide_methods.bas");}while(r); } -S_35631:; +S_37906:; if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1==*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1))||new_error){ -if(qbevent){evnt(25066,1969,"ide_methods.bas");if(r)goto S_35631;} +if(qbevent){evnt(26307,2240,"ide_methods.bas");if(r)goto S_37906;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,1969,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2240,"ide_methods.bas");}while(r); } -S_35634:; +S_37909:; if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(25066,1971,"ide_methods.bas");if(r)goto S_35634;} -S_35635:; +if(qbevent){evnt(26307,2242,"ide_methods.bas");if(r)goto S_37909;} +S_37910:; if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,1972,"ide_methods.bas");if(r)goto S_35635;} +if(qbevent){evnt(26307,2243,"ide_methods.bas");if(r)goto S_37910;} do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1973,"ide_methods.bas");}while(r); -S_35637:; +if(!qbevent)break;evnt(26307,2244,"ide_methods.bas");}while(r); +S_37912:; if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(25066,1974,"ide_methods.bas");if(r)goto S_35637;} +if(qbevent){evnt(26307,2245,"ide_methods.bas");if(r)goto S_37912;} do{ goto LABEL_INVOKECONTEXTUALMENU; -if(!qbevent)break;evnt(25066,1974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2245,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,1974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2245,"ide_methods.bas");}while(r); +} +S_37917:; +}else{ +if ((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ +if(qbevent){evnt(26307,2246,"ide_methods.bas");if(r)goto S_37917;} +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26307,2247,"ide_methods.bas");}while(r); +S_37919:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26307,2248,"ide_methods.bas");if(r)goto S_37919;} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26307,2248,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,2248,"ide_methods.bas");}while(r); +} } } } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,1978,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2252,"ide_methods.bas");}while(r); } -S_35646:; +S_37928:; if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(25066,1981,"ide_methods.bas");if(r)goto S_35646;} -S_35647:; +if(qbevent){evnt(26307,2255,"ide_methods.bas");if(r)goto S_37928;} +S_37929:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ -if(qbevent){evnt(25066,1983,"ide_methods.bas");if(r)goto S_35647;} -S_35648:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_MY==*__LONG_IDEWY))&(-(*__LONG_MX==(*__LONG_IDEWX- 2 )))))|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ -if(qbevent){evnt(25066,1984,"ide_methods.bas");if(r)goto S_35648;} +if(qbevent){evnt(26307,2257,"ide_methods.bas");if(r)goto S_37929;} +S_37930:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_MY==*__LONG_IDEWY))&(((-(*__LONG_MX>=(*__LONG_IDEWX- 3 )))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))))))|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ +if(qbevent){evnt(26307,2258,"ide_methods.bas");if(r)goto S_37930;} +LABEL_CLOSEHELP:; +if(qbevent){evnt(26307,2259,"ide_methods.bas");r=0;} do{ *__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,1990,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2260,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 0 ; -if(!qbevent)break;evnt(25066,1991,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2261,"ide_methods.bas");}while(r); do{ *__LONG_IDESUBWINDOW= 0 ; -if(!qbevent)break;evnt(25066,1992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2262,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,1993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2263,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,1994,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2264,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,1995,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2265,"ide_methods.bas");}while(r); do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,1995,"ide_methods.bas");}while(r); +return_point[next_return_point++]=26; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_26:; +if(!qbevent)break;evnt(26307,2265,"ide_methods.bas");}while(r); } } -S_35658:; +S_37940:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,2001,"ide_methods.bas");if(r)goto S_35658;} -S_35659:; +if(qbevent){evnt(26307,2270,"ide_methods.bas");if(r)goto S_37940;} +S_37941:; +if ((((-(*__LONG_MY==*__LONG_IDEWY))&(((-(*__LONG_MX>=(*__LONG_IDEWX- 17 )))&(-(*__LONG_MX<=(*__LONG_IDEWX- 4 )))))))||new_error){ +if(qbevent){evnt(26307,2271,"ide_methods.bas");if(r)goto S_37941;} +LABEL_LAUNCHWIKI:; +if(qbevent){evnt(26307,2272,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(qbs_add(qbs_add(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("/index.php?title=",17)),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))),qbs_new_txt_len(" ",1),qbs_new_txt_len("%20",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2273,"ide_methods.bas");}while(r); +S_37943:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,2274,"ide_methods.bas");if(r)goto S_37943;} +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("$",1),qbs_new_txt_len("\\$",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2275,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("&",1),qbs_new_txt_len("\\&",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2276,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("(",1),qbs_new_txt_len("\\(",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2277,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len(")",1),qbs_new_txt_len("\\)",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2278,"ide_methods.bas");}while(r); +} +S_37949:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26307,2281,"ide_methods.bas");if(r)goto S_37949;} +do{ +sub_shell2(qbs_add(qbs_new_txt_len("start ",6),_FUNC_IDE2_STRING_URL),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2282,"ide_methods.bas");}while(r); +S_37951:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ +if(qbevent){evnt(26307,2283,"ide_methods.bas");if(r)goto S_37951;} +do{ +sub_shell2(qbs_add(qbs_new_txt_len("open ",5),_FUNC_IDE2_STRING_URL),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2284,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_add(qbs_new_txt_len("xdg-open ",9),_FUNC_IDE2_STRING_URL),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2286,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,2288,"ide_methods.bas");}while(r); +} +S_37958:; if ((-(*__LONG_MY==*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(25066,2002,"ide_methods.bas");if(r)goto S_35659;} +if(qbevent){evnt(26307,2291,"ide_methods.bas");if(r)goto S_37958;} do{ *_FUNC_IDE2_LONG_SX= 2 ; -if(!qbevent)break;evnt(25066,2004,"ide_methods.bas");}while(r); -S_35661:; -fornext_value4014=*_FUNC_IDE2_LONG_BACK_STR_POS; -fornext_finalvalue4014=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; -fornext_step4014= 1 ; -if (fornext_step4014<0) fornext_step_negative4014=1; else fornext_step_negative4014=0; -if (new_error) goto fornext_error4014; -goto fornext_entrylabel4014; +if(!qbevent)break;evnt(26307,2293,"ide_methods.bas");}while(r); +S_37960:; +fornext_value4140=*_FUNC_IDE2_LONG_BACK_STR_POS; +fornext_finalvalue4140=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; +fornext_step4140= 1 ; +if (fornext_step4140<0) fornext_step_negative4140=1; else fornext_step_negative4140=0; +if (new_error) goto fornext_error4140; +goto fornext_entrylabel4140; while(1){ -fornext_value4014=fornext_step4014+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4014: -*_FUNC_IDE2_LONG_X=fornext_value4014; -if (fornext_step_negative4014){ -if (fornext_value4014fornext_finalvalue4014) break; +if (fornext_value4140>fornext_finalvalue4140) break; } -fornext_error4014:; -if(qbevent){evnt(25066,2005,"ide_methods.bas");if(r)goto S_35661;} -S_35662:; +fornext_error4140:; +if(qbevent){evnt(26307,2294,"ide_methods.bas");if(r)goto S_37960;} +S_37961:; if ((-(*__LONG_MX==*_FUNC_IDE2_LONG_SX))||new_error){ -if(qbevent){evnt(25066,2006,"ide_methods.bas");if(r)goto S_35662;} +if(qbevent){evnt(26307,2295,"ide_methods.bas");if(r)goto S_37961;} do{ *_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2007,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2296,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2008,"ide_methods.bas");}while(r); -S_35665:; +if(!qbevent)break;evnt(26307,2297,"ide_methods.bas");}while(r); +S_37964:; if (((-(*_FUNC_IDE2_LONG_A!= 0 ))&(-(*_FUNC_IDE2_LONG_I!=*__LONG_HELP_BACK_POS)))||new_error){ -if(qbevent){evnt(25066,2009,"ide_methods.bas");if(r)goto S_35665;} +if(qbevent){evnt(26307,2298,"ide_methods.bas");if(r)goto S_37964;} do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(25066,2010,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2299,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(25066,2011,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2300,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2012,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2301,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2013,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2302,"ide_methods.bas");}while(r); do{ *__LONG_HELP_BACK_POS=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,2014,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2303,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(25066,2015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2304,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(25066,2015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2304,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(25066,2016,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2305,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(25066,2017,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2306,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(25066,2018,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2307,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(25066,2019,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2308,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2020,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2309,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2021,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2310,"ide_methods.bas");}while(r); do{ goto LABEL_NEWPAGEPARSED; -if(!qbevent)break;evnt(25066,2022,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2311,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_SX=*_FUNC_IDE2_LONG_SX+ 1 ; -if(!qbevent)break;evnt(25066,2025,"ide_methods.bas");}while(r); -fornext_continue_4013:; +if(!qbevent)break;evnt(26307,2314,"ide_methods.bas");}while(r); +fornext_continue_4139:; } -fornext_exit_4013:; +fornext_exit_4139:; } } -S_35686:; +S_37985:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))))||new_error){ -if(qbevent){evnt(25066,2047,"ide_methods.bas");if(r)goto S_35686;} -S_35687:; +if(qbevent){evnt(26307,2336,"ide_methods.bas");if(r)goto S_37985;} +LABEL_SELECTALLINHELP:; +if(qbevent){evnt(26307,2337,"ide_methods.bas");r=0;} +S_37986:; if ((*__LONG_HELP_H)||new_error){ -if(qbevent){evnt(25066,2048,"ide_methods.bas");if(r)goto S_35687;} +if(qbevent){evnt(26307,2338,"ide_methods.bas");if(r)goto S_37986;} do{ *__LONG_HELP_SELECT= 2 ; -if(!qbevent)break;evnt(25066,2049,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2339,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX1= 1 ; -if(!qbevent)break;evnt(25066,2050,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2340,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY1= 1 ; -if(!qbevent)break;evnt(25066,2051,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2341,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2= 10000000 ; -if(!qbevent)break;evnt(25066,2052,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2342,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_H; -if(!qbevent)break;evnt(25066,2053,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2343,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2344,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(25066,2054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2344,"ide_methods.bas");}while(r); do{ goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(25066,2055,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2345,"ide_methods.bas");}while(r); } } -S_35698:; +S_37997:; if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))))&(-(*__LONG_HELP_SELECT== 2 ))))||new_error){ -if(qbevent){evnt(25066,2059,"ide_methods.bas");if(r)goto S_35698;} +if(qbevent){evnt(26307,2349,"ide_methods.bas");if(r)goto S_37997;} +LABEL_COPYHELP2CLIP:; +if(qbevent){evnt(26307,2350,"ide_methods.bas");r=0;} +do{ +*__LONG_IDEERROR= -1 ; +if(!qbevent)break;evnt(26307,2351,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2060,"ide_methods.bas");}while(r); -S_35700:; -fornext_value4016=*__LONG_HELP_SELY1; -fornext_finalvalue4016=*__LONG_HELP_SELY2; -fornext_step4016= 1 ; -if (fornext_step4016<0) fornext_step_negative4016=1; else fornext_step_negative4016=0; -if (new_error) goto fornext_error4016; -goto fornext_entrylabel4016; +if(!qbevent)break;evnt(26307,2352,"ide_methods.bas");}while(r); +S_38000:; +fornext_value4142=*__LONG_HELP_SELY1; +fornext_finalvalue4142=*__LONG_HELP_SELY2; +fornext_step4142= 1 ; +if (fornext_step4142<0) fornext_step_negative4142=1; else fornext_step_negative4142=0; +if (new_error) goto fornext_error4142; +goto fornext_entrylabel4142; while(1){ -fornext_value4016=fornext_step4016+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4016: -*_FUNC_IDE2_LONG_Y=fornext_value4016; -if (fornext_step_negative4016){ -if (fornext_value4016fornext_finalvalue4016) break; +if (fornext_value4142>fornext_finalvalue4142) break; } -fornext_error4016:; -if(qbevent){evnt(25066,2061,"ide_methods.bas");if(r)goto S_35700;} -S_35701:; +fornext_error4142:; +if(qbevent){evnt(26307,2353,"ide_methods.bas");if(r)goto S_38000;} +S_38001:; if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_HELP_SELY1))||new_error){ -if(qbevent){evnt(25066,2062,"ide_methods.bas");if(r)goto S_35701;} +if(qbevent){evnt(26307,2354,"ide_methods.bas");if(r)goto S_38001;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,func_chr( 13 )),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2062,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2354,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2063,"ide_methods.bas");}while(r); -S_35705:; +if(!qbevent)break;evnt(26307,2355,"ide_methods.bas");}while(r); +S_38005:; if ((-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(25066,2064,"ide_methods.bas");if(r)goto S_35705;} +if(qbevent){evnt(26307,2356,"ide_methods.bas");if(r)goto S_38005;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_Y- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2065,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2357,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,2066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2358,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3= 1 ; -if(!qbevent)break;evnt(25066,2067,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2359,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2068,"ide_methods.bas");}while(r); -S_35710:; +if(!qbevent)break;evnt(26307,2360,"ide_methods.bas");}while(r); +S_38010:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ -if(qbevent){evnt(25066,2069,"ide_methods.bas");if(r)goto S_35710;} -S_35711:; +if(qbevent){evnt(26307,2361,"ide_methods.bas");if(r)goto S_38010;} +S_38011:; if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(25066,2070,"ide_methods.bas");if(r)goto S_35711;} -S_35712:; +if(qbevent){evnt(26307,2362,"ide_methods.bas");if(r)goto S_38011;} +S_38012:; if (((-(*_FUNC_IDE2_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(25066,2071,"ide_methods.bas");if(r)goto S_35712;} -S_35713:; +if(qbevent){evnt(26307,2363,"ide_methods.bas");if(r)goto S_38012;} +S_38013:; if (((-(*_FUNC_IDE2_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_FUNC_IDE2_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(25066,2072,"ide_methods.bas");if(r)goto S_35713;} +if(qbevent){evnt(26307,2364,"ide_methods.bas");if(r)goto S_38013;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr(*_FUNC_IDE2_LONG_C))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2365,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X3+ 1 ; -if(!qbevent)break;evnt(25066,2077,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2369,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(25066,2077,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2369,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2077,"ide_methods.bas");}while(r); -dl_continue_4017:; +if(!qbevent)break;evnt(26307,2369,"ide_methods.bas");}while(r); +dl_continue_4143:; } -dl_exit_4017:; +dl_exit_4143:; } do{ qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(_FUNC_IDE2_STRING_CLIP,_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2080,"ide_methods.bas");}while(r); -fornext_continue_4015:; +if(!qbevent)break;evnt(26307,2372,"ide_methods.bas");}while(r); +fornext_continue_4141:; } -fornext_exit_4015:; -S_35725:; +fornext_exit_4141:; +S_38025:; if (((-(*__LONG_HELP_SELY1==*__LONG_HELP_SELY2))&(-(*__LONG_HELP_CY>*__LONG_HELP_CY1)))||new_error){ -if(qbevent){evnt(25066,2082,"ide_methods.bas");if(r)goto S_35725;} +if(qbevent){evnt(26307,2374,"ide_methods.bas");if(r)goto S_38025;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,func_chr( 13 )),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2082,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2374,"ide_methods.bas");}while(r); } -S_35728:; +S_38028:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,2083,"ide_methods.bas");if(r)goto S_35728;} +if(qbevent){evnt(26307,2375,"ide_methods.bas");if(r)goto S_38028;} do{ sub__clipboard(_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2083,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2375,"ide_methods.bas");}while(r); } do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26307,2376,"ide_methods.bas");}while(r); +do{ goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(25066,2084,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2377,"ide_methods.bas");}while(r); } -S_35733:; +S_38034:; if (((-(*__LONG_MX>=*__LONG_HELP_WX1))&(-(*__LONG_MY>=*__LONG_HELP_WY1))&(-(*__LONG_MX<=*__LONG_HELP_WX2))&(-(*__LONG_MY<=*__LONG_HELP_WY2)))||new_error){ -if(qbevent){evnt(25066,2088,"ide_methods.bas");if(r)goto S_35733;} -S_35734:; +if(qbevent){evnt(26307,2381,"ide_methods.bas");if(r)goto S_38034;} +S_38035:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,2089,"ide_methods.bas");if(r)goto S_35734;} +if(qbevent){evnt(26307,2382,"ide_methods.bas");if(r)goto S_38035;} do{ *__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); -if(!qbevent)break;evnt(25066,2090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2383,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); -if(!qbevent)break;evnt(25066,2091,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2384,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELECT= 1 ; -if(!qbevent)break;evnt(25066,2092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2385,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 1 ; -if(!qbevent)break;evnt(25066,2093,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2386,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX1=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2094,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2387,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2094,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2387,"ide_methods.bas");}while(r); do{ goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(25066,2095,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2388,"ide_methods.bas");}while(r); } -S_35743:; +S_38044:; if (((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))||new_error){ -if(qbevent){evnt(25066,2097,"ide_methods.bas");if(r)goto S_35743;} +if(qbevent){evnt(26307,2390,"ide_methods.bas");if(r)goto S_38044;} do{ *__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); -if(!qbevent)break;evnt(25066,2098,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2391,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); -if(!qbevent)break;evnt(25066,2099,"ide_methods.bas");}while(r); -S_35746:; +if(!qbevent)break;evnt(26307,2392,"ide_methods.bas");}while(r); +S_38047:; if ((*__LONG_HELP_SELECT)||new_error){ -if(qbevent){evnt(25066,2100,"ide_methods.bas");if(r)goto S_35746;} +if(qbevent){evnt(26307,2393,"ide_methods.bas");if(r)goto S_38047;} do{ goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(25066,2100,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2393,"ide_methods.bas");}while(r); } } }else{ -S_35751:; +S_38052:; if ((((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))&(-(*__LONG_HELP_MSELECT== 1 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(25066,2104,"ide_methods.bas");if(r)goto S_35751;} -S_35752:; +if(qbevent){evnt(26307,2397,"ide_methods.bas");if(r)goto S_38052;} +S_38053:; if ((-(*__LONG_MX<*__LONG_HELP_WX1))||new_error){ -if(qbevent){evnt(25066,2105,"ide_methods.bas");if(r)goto S_35752;} +if(qbevent){evnt(26307,2398,"ide_methods.bas");if(r)goto S_38053;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; -if(!qbevent)break;evnt(25066,2105,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2398,"ide_methods.bas");}while(r); } -S_35755:; +S_38056:; if ((-(*__LONG_MX>*__LONG_HELP_WX2))||new_error){ -if(qbevent){evnt(25066,2106,"ide_methods.bas");if(r)goto S_35755;} +if(qbevent){evnt(26307,2399,"ide_methods.bas");if(r)goto S_38056;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; -if(!qbevent)break;evnt(25066,2106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2399,"ide_methods.bas");}while(r); } -S_35758:; +S_38059:; if ((-(*__LONG_MY<*__LONG_HELP_WY1))||new_error){ -if(qbevent){evnt(25066,2107,"ide_methods.bas");if(r)goto S_35758;} +if(qbevent){evnt(26307,2400,"ide_methods.bas");if(r)goto S_38059;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; -if(!qbevent)break;evnt(25066,2107,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2400,"ide_methods.bas");}while(r); } -S_35761:; +S_38062:; if ((-(*__LONG_MY>*__LONG_HELP_WY2))||new_error){ -if(qbevent){evnt(25066,2108,"ide_methods.bas");if(r)goto S_35761;} +if(qbevent){evnt(26307,2401,"ide_methods.bas");if(r)goto S_38062;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; -if(!qbevent)break;evnt(25066,2108,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2401,"ide_methods.bas");}while(r); } do{ goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(25066,2109,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2402,"ide_methods.bas");}while(r); } } -S_35767:; +S_38068:; if ((*__LONG_KSHIFT)||new_error){ -if(qbevent){evnt(25066,2113,"ide_methods.bas");if(r)goto S_35767;} -S_35768:; +if(qbevent){evnt(26307,2406,"ide_methods.bas");if(r)goto S_38068;} +S_38069:; if ((-(*__LONG_HELP_SELECT== 0 ))||new_error){ -if(qbevent){evnt(25066,2114,"ide_methods.bas");if(r)goto S_35768;} +if(qbevent){evnt(26307,2407,"ide_methods.bas");if(r)goto S_38069;} do{ *__LONG_HELP_SELECT= 1 ; -if(!qbevent)break;evnt(25066,2115,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2408,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(25066,2116,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2409,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX1=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2117,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2410,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2117,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2410,"ide_methods.bas");}while(r); } }else{ -S_35775:; +S_38076:; if (((((-(*__LONG_KB> 0 ))|(-(*__LONG_MWHEEL!= 0 ))))&(-(*__LONG_KSTATECHANGED== 0 )))||new_error){ -if(qbevent){evnt(25066,2120,"ide_methods.bas");if(r)goto S_35775;} +if(qbevent){evnt(26307,2413,"ide_methods.bas");if(r)goto S_38076;} do{ *__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(25066,2120,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2413,"ide_methods.bas");}while(r); } } LABEL_KEEP_SELECT:; -if(qbevent){evnt(25066,2122,"ide_methods.bas");r=0;} -S_35779:; -if ((-(*__LONG_KB== 21248 ))||new_error){ -if(qbevent){evnt(25066,2124,"ide_methods.bas");if(r)goto S_35779;} -S_35780:; +if(qbevent){evnt(26307,2415,"ide_methods.bas");r=0;} +S_38080:; +if ((-(*__LONG_KB== 9 ))||new_error){ +if(qbevent){evnt(26307,2417,"ide_methods.bas");if(r)goto S_38080;} +S_38081:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ -if(qbevent){evnt(25066,2125,"ide_methods.bas");if(r)goto S_35780;} +if(qbevent){evnt(26307,2418,"ide_methods.bas");if(r)goto S_38081;} do{ *_FUNC_IDE2_LONG_NOREP= 1 ; -if(!qbevent)break;evnt(25066,2125,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2418,"ide_methods.bas");}while(r); do{ goto LABEL_DELSRCHAGAIN; -if(!qbevent)break;evnt(25066,2125,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2418,"ide_methods.bas");}while(r); } } -S_35785:; +S_38086:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))&(-(*__LONG_KCONTROL== 0 ))))||new_error){ -if(qbevent){evnt(25066,2128,"ide_methods.bas");if(r)goto S_35785;} +if(qbevent){evnt(26307,2421,"ide_methods.bas");if(r)goto S_38086;} do{ *_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2129,"ide_methods.bas");}while(r); -S_35787:; +if(!qbevent)break;evnt(26307,2422,"ide_methods.bas");}while(r); +S_38088:; if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_K)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*_FUNC_IDE2_LONG_K== 36 ))|(-(*_FUNC_IDE2_LONG_K== 32 )))||new_error){ -if(qbevent){evnt(25066,2130,"ide_methods.bas");if(r)goto S_35787;} +if(qbevent){evnt(26307,2423,"ide_methods.bas");if(r)goto S_38088;} do{ *_FUNC_IDE2_LONG_NOREP= 0 ; -if(!qbevent)break;evnt(25066,2131,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2424,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_DOUBLE_T=func_timer( 0.001E+0 ,1); -if(!qbevent)break;evnt(25066,2132,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2425,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDK= 0 ; -if(!qbevent)break;evnt(25066,2133,"ide_methods.bas");}while(r); -S_35791:; +if(!qbevent)break;evnt(26307,2426,"ide_methods.bas");}while(r); +S_38092:; if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ -if(qbevent){evnt(25066,2133,"ide_methods.bas");if(r)goto S_35791;} +if(qbevent){evnt(26307,2426,"ide_methods.bas");if(r)goto S_38092;} do{ *_FUNC_IDE2_LONG_OLDK=qbs_asc(__STRING_HELP_SEARCH_STR,__STRING_HELP_SEARCH_STR->len); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2133,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2426,"ide_methods.bas");}while(r); } -S_35794:; +S_38095:; if ((qbs_cleanup(qbs_tmp_base,(-(((double)(*_FUNC_IDE2_DOUBLE_T))>((double)((*__DOUBLE_HELP_SEARCH_TIME+ 1 )))))|(-(((double)(*_FUNC_IDE2_DOUBLE_T))<((double)(*__DOUBLE_HELP_SEARCH_TIME))))|(((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))&(-(__STRING_HELP_SEARCH_STR->len== 1 ))))))||new_error){ -if(qbevent){evnt(25066,2134,"ide_methods.bas");if(r)goto S_35794;} -S_35795:; +if(qbevent){evnt(26307,2427,"ide_methods.bas");if(r)goto S_38095;} +S_38096:; if ((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))||new_error){ -if(qbevent){evnt(25066,2135,"ide_methods.bas");if(r)goto S_35795;} +if(qbevent){evnt(26307,2428,"ide_methods.bas");if(r)goto S_38096;} do{ *_FUNC_IDE2_LONG_NOREP= 1 ; -if(!qbevent)break;evnt(25066,2135,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2428,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_HELP_SEARCH_STR,__STRING_K); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2136,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2429,"ide_methods.bas");}while(r); }else{ do{ qbs_set(__STRING_HELP_SEARCH_STR,qbs_add(__STRING_HELP_SEARCH_STR,__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2138,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2431,"ide_methods.bas");}while(r); } do{ *__DOUBLE_HELP_SEARCH_TIME=*_FUNC_IDE2_DOUBLE_T; -if(!qbevent)break;evnt(25066,2140,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2433,"ide_methods.bas");}while(r); LABEL_DELSRCHAGAIN:; -if(qbevent){evnt(25066,2142,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2435,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_OX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2143,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2436,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OY=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2144,"ide_methods.bas");}while(r); -S_35805:; +if(!qbevent)break;evnt(26307,2437,"ide_methods.bas");}while(r); +S_38106:; if ((-(*_FUNC_IDE2_LONG_OY>*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(25066,2145,"ide_methods.bas");if(r)goto S_35805;} +if(qbevent){evnt(26307,2438,"ide_methods.bas");if(r)goto S_38106;} do{ *_FUNC_IDE2_LONG_OY= 1 ; -if(!qbevent)break;evnt(25066,2145,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2438,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_OY; -if(!qbevent)break;evnt(25066,2146,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2439,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_OX; -if(!qbevent)break;evnt(25066,2147,"ide_methods.bas");}while(r); -S_35810:; +if(!qbevent)break;evnt(26307,2440,"ide_methods.bas");}while(r); +S_38111:; if ((-(*_FUNC_IDE2_LONG_NOREP== 1 ))||new_error){ -if(qbevent){evnt(25066,2148,"ide_methods.bas");if(r)goto S_35810;} +if(qbevent){evnt(26307,2441,"ide_methods.bas");if(r)goto S_38111;} do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_CX+ 1 ; -if(!qbevent)break;evnt(25066,2148,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2441,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_LOOPED= 0 ; -if(!qbevent)break;evnt(25066,2149,"ide_methods.bas");}while(r); -S_35814:; +if(!qbevent)break;evnt(26307,2442,"ide_methods.bas");}while(r); +S_38115:; do{ -if(qbevent){evnt(25066,2150,"ide_methods.bas");if(r)goto S_35814;} +if(qbevent){evnt(26307,2443,"ide_methods.bas");if(r)goto S_38115;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2152,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2445,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,2153,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2446,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2154,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2447,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2155,"ide_methods.bas");}while(r); -S_35819:; +if(!qbevent)break;evnt(26307,2448,"ide_methods.bas");}while(r); +S_38120:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ -if(qbevent){evnt(25066,2156,"ide_methods.bas");if(r)goto S_35819;} +if(qbevent){evnt(26307,2449,"ide_methods.bas");if(r)goto S_38120;} do{ *_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2157,"ide_methods.bas");}while(r); -S_35821:; +if(!qbevent)break;evnt(26307,2450,"ide_methods.bas");}while(r); +S_38122:; if ((*_FUNC_IDE2_LONG_LNK)||new_error){ -if(qbevent){evnt(25066,2158,"ide_methods.bas");if(r)goto S_35821;} +if(qbevent){evnt(26307,2451,"ide_methods.bas");if(r)goto S_38122;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr(*_FUNC_IDE2_LONG_C))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2451,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2451,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(25066,2159,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2452,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2159,"ide_methods.bas");}while(r); -dl_continue_4024:; +if(!qbevent)break;evnt(26307,2452,"ide_methods.bas");}while(r); +dl_continue_4150:; } -dl_exit_4024:; +dl_exit_4150:; LABEL_HELPSCANROW:; -if(qbevent){evnt(25066,2162,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2455,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_PX=func_instr(*_FUNC_IDE2_LONG_CX,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_ucase(__STRING_HELP_SEARCH_STR),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2163,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2456,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PX2=func_instr(*_FUNC_IDE2_LONG_CX,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_ucase(qbs_add(qbs_new_txt_len("_",1),__STRING_HELP_SEARCH_STR)),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2164,"ide_methods.bas");}while(r); -S_35831:; +if(!qbevent)break;evnt(26307,2457,"ide_methods.bas");}while(r); +S_38132:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_PX2<*_FUNC_IDE2_LONG_PX))&(-(*_FUNC_IDE2_LONG_PX2!= 0 ))&(qbs_notequal(qbs_left(__STRING_HELP_SEARCH_STR, 1 ),qbs_new_txt_len("_",1)))))||new_error){ -if(qbevent){evnt(25066,2165,"ide_methods.bas");if(r)goto S_35831;} +if(qbevent){evnt(26307,2458,"ide_methods.bas");if(r)goto S_38132;} do{ *_FUNC_IDE2_LONG_PX=*_FUNC_IDE2_LONG_PX2; -if(!qbevent)break;evnt(25066,2165,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2458,"ide_methods.bas");}while(r); } -S_35834:; +S_38135:; if (((-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_CY==*_FUNC_IDE2_LONG_OY))&(-(*_FUNC_IDE2_LONG_PX== 0 )))||new_error){ -if(qbevent){evnt(25066,2167,"ide_methods.bas");if(r)goto S_35834;} +if(qbevent){evnt(26307,2460,"ide_methods.bas");if(r)goto S_38135;} do{ goto LABEL_STRNOTFOUND; -if(!qbevent)break;evnt(25066,2167,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2460,"ide_methods.bas");}while(r); } -S_35837:; +S_38138:; if ((*_FUNC_IDE2_LONG_PX)||new_error){ -if(qbevent){evnt(25066,2168,"ide_methods.bas");if(r)goto S_35837;} +if(qbevent){evnt(26307,2461,"ide_methods.bas");if(r)goto S_38138;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2170,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2463,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,2171,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2464,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2= 1 ; -if(!qbevent)break;evnt(25066,2172,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2465,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2173,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2466,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2467,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDLNK= 0 ; -if(!qbevent)break;evnt(25066,2175,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2468,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LNKX1= 0 ; -if(!qbevent)break;evnt(25066,2176,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2469,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LNKX2= 0 ; -if(!qbevent)break;evnt(25066,2176,"ide_methods.bas");}while(r); -S_35846:; +if(!qbevent)break;evnt(26307,2469,"ide_methods.bas");}while(r); +S_38147:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ -if(qbevent){evnt(25066,2177,"ide_methods.bas");if(r)goto S_35846;} +if(qbevent){evnt(26307,2470,"ide_methods.bas");if(r)goto S_38147;} do{ *_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2178,"ide_methods.bas");}while(r); -S_35848:; +if(!qbevent)break;evnt(26307,2471,"ide_methods.bas");}while(r); +S_38149:; if (((-(*_FUNC_IDE2_LONG_LNKX1== 0 ))&(-(*_FUNC_IDE2_LONG_LNK!= 0 ))&(-(*_FUNC_IDE2_LONG_OLDLNK== 0 ))&(-(*_FUNC_IDE2_LONG_PX==*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(25066,2179,"ide_methods.bas");if(r)goto S_35848;} +if(qbevent){evnt(26307,2472,"ide_methods.bas");if(r)goto S_38149;} do{ *_FUNC_IDE2_LONG_LNKX1=*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(25066,2179,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2472,"ide_methods.bas");}while(r); } -S_35851:; +S_38152:; if (((-(*_FUNC_IDE2_LONG_LNKX1!= 0 ))&(-(*_FUNC_IDE2_LONG_LNK== 0 ))&(-(*_FUNC_IDE2_LONG_LNKX2== 0 )))||new_error){ -if(qbevent){evnt(25066,2180,"ide_methods.bas");if(r)goto S_35851;} +if(qbevent){evnt(26307,2473,"ide_methods.bas");if(r)goto S_38152;} do{ *_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; -if(!qbevent)break;evnt(25066,2180,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2473,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(25066,2181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2474,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2474,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,2182,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2475,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDLNK=*_FUNC_IDE2_LONG_LNK; -if(!qbevent)break;evnt(25066,2183,"ide_methods.bas");}while(r); -dl_continue_4025:; +if(!qbevent)break;evnt(26307,2476,"ide_methods.bas");}while(r); +dl_continue_4151:; } -dl_exit_4025:; -S_35859:; +dl_exit_4151:; +S_38160:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])])),qbs_new_txt_len("Alphabetical",12)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])])),qbs_new_txt_len("By Usage",8)))))||new_error){ -if(qbevent){evnt(25066,2186,"ide_methods.bas");if(r)goto S_35859;} -S_35860:; +if(qbevent){evnt(26307,2479,"ide_methods.bas");if(r)goto S_38160;} +S_38161:; if ((-(*_FUNC_IDE2_LONG_LNKX1!= 3 ))||new_error){ -if(qbevent){evnt(25066,2187,"ide_methods.bas");if(r)goto S_35860;} +if(qbevent){evnt(26307,2480,"ide_methods.bas");if(r)goto S_38161;} do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; -if(!qbevent)break;evnt(25066,2188,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2481,"ide_methods.bas");}while(r); do{ goto LABEL_HELPSCANROW; -if(!qbevent)break;evnt(25066,2189,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2482,"ide_methods.bas");}while(r); } } -S_35865:; +S_38166:; if ((*_FUNC_IDE2_LONG_LNKX1)||new_error){ -if(qbevent){evnt(25066,2193,"ide_methods.bas");if(r)goto S_35865;} -S_35866:; +if(qbevent){evnt(26307,2486,"ide_methods.bas");if(r)goto S_38166;} +S_38167:; if ((-(*_FUNC_IDE2_LONG_LNKX2== 0 ))||new_error){ -if(qbevent){evnt(25066,2194,"ide_methods.bas");if(r)goto S_35866;} +if(qbevent){evnt(26307,2487,"ide_methods.bas");if(r)goto S_38167;} do{ *_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; -if(!qbevent)break;evnt(25066,2194,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2487,"ide_methods.bas");}while(r); } do{ *__LONG_HELP_SELECT= 2 ; -if(!qbevent)break;evnt(25066,2195,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2488,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX1=*_FUNC_IDE2_LONG_LNKX2+ 1 ; -if(!qbevent)break;evnt(25066,2196,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2489,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*_FUNC_IDE2_LONG_LNKX1; -if(!qbevent)break;evnt(25066,2197,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2490,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*_FUNC_IDE2_LONG_CY; -if(!qbevent)break;evnt(25066,2198,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2491,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY1=*_FUNC_IDE2_LONG_CY; -if(!qbevent)break;evnt(25066,2199,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2492,"ide_methods.bas");}while(r); do{ goto LABEL_FOUNDSSTR; -if(!qbevent)break;evnt(25066,2200,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2493,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; -if(!qbevent)break;evnt(25066,2203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2496,"ide_methods.bas");}while(r); do{ goto LABEL_HELPSCANROW; -if(!qbevent)break;evnt(25066,2204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2497,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_CX= 1 ; -if(!qbevent)break;evnt(25066,2206,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2499,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_CY+ 1 ; -if(!qbevent)break;evnt(25066,2207,"ide_methods.bas");}while(r); -S_35881:; +if(!qbevent)break;evnt(26307,2500,"ide_methods.bas");}while(r); +S_38182:; if ((-(*_FUNC_IDE2_LONG_CY>*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(25066,2208,"ide_methods.bas");if(r)goto S_35881;} +if(qbevent){evnt(26307,2501,"ide_methods.bas");if(r)goto S_38182;} do{ *_FUNC_IDE2_LONG_CY= 1 ; -if(!qbevent)break;evnt(25066,2208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2501,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(25066,2208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2501,"ide_methods.bas");}while(r); } -dl_continue_4023:; +dl_continue_4149:; }while(1); -dl_exit_4023:; +dl_exit_4149:; } } LABEL_FOUNDSSTR:; -if(qbevent){evnt(25066,2212,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2505,"ide_methods.bas");r=0;} LABEL_STRNOTFOUND:; -if(qbevent){evnt(25066,2213,"ide_methods.bas");r=0;} -S_35888:; +if(qbevent){evnt(26307,2506,"ide_methods.bas");r=0;} +S_38189:; if (((-(*__LONG_KB== 18176 ))&*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(25066,2215,"ide_methods.bas");if(r)goto S_35888;} +if(qbevent){evnt(26307,2508,"ide_methods.bas");if(r)goto S_38189;} do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2216,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2509,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(25066,2216,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2509,"ide_methods.bas");}while(r); } -S_35892:; +S_38193:; if (((-(*__LONG_KB== 20224 ))&*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(25066,2218,"ide_methods.bas");if(r)goto S_35892;} +if(qbevent){evnt(26307,2511,"ide_methods.bas");if(r)goto S_38193;} do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2512,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(25066,2219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2512,"ide_methods.bas");}while(r); } -S_35896:; +S_38197:; if (((-(*__LONG_KB== 18176 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(25066,2222,"ide_methods.bas");if(r)goto S_35896;} +if(qbevent){evnt(26307,2515,"ide_methods.bas");if(r)goto S_38197;} do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2222,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2515,"ide_methods.bas");}while(r); } -S_35899:; +S_38200:; if (((-(*__LONG_KB== 20224 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(25066,2223,"ide_methods.bas");if(r)goto S_35899;} +if(qbevent){evnt(26307,2516,"ide_methods.bas");if(r)goto S_38200;} do{ *__LONG_HELP_CX=((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[array_check((*__LONG_HELP_CY-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5])]+ 1 ; -if(!qbevent)break;evnt(25066,2224,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2517,"ide_methods.bas");}while(r); } -S_35902:; +S_38203:; if ((-(*__LONG_KB== 18688 ))||new_error){ -if(qbevent){evnt(25066,2227,"ide_methods.bas");if(r)goto S_35902;} +if(qbevent){evnt(26307,2520,"ide_methods.bas");if(r)goto S_38203;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY-(*__LONG_HELP_WH- 1 ); -if(!qbevent)break;evnt(25066,2228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2521,"ide_methods.bas");}while(r); } -S_35905:; +S_38206:; if ((-(*__LONG_KB== 20736 ))||new_error){ -if(qbevent){evnt(25066,2231,"ide_methods.bas");if(r)goto S_35905;} +if(qbevent){evnt(26307,2524,"ide_methods.bas");if(r)goto S_38206;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_HELP_WH- 1 ); -if(!qbevent)break;evnt(25066,2232,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2525,"ide_methods.bas");}while(r); } -S_35908:; +S_38209:; if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(25066,2235,"ide_methods.bas");if(r)goto S_35908;} +if(qbevent){evnt(26307,2528,"ide_methods.bas");if(r)goto S_38209;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; -if(!qbevent)break;evnt(25066,2235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2528,"ide_methods.bas");}while(r); } -S_35911:; +S_38212:; if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(25066,2236,"ide_methods.bas");if(r)goto S_35911;} +if(qbevent){evnt(26307,2529,"ide_methods.bas");if(r)goto S_38212;} do{ *__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; -if(!qbevent)break;evnt(25066,2236,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2529,"ide_methods.bas");}while(r); } -S_35914:; +S_38215:; if ((-(*__LONG_KB== 19200 ))||new_error){ -if(qbevent){evnt(25066,2237,"ide_methods.bas");if(r)goto S_35914;} +if(qbevent){evnt(26307,2530,"ide_methods.bas");if(r)goto S_38215;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; -if(!qbevent)break;evnt(25066,2237,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2530,"ide_methods.bas");}while(r); } -S_35917:; +S_38218:; if ((-(*__LONG_KB== 19712 ))||new_error){ -if(qbevent){evnt(25066,2238,"ide_methods.bas");if(r)goto S_35917;} +if(qbevent){evnt(26307,2531,"ide_methods.bas");if(r)goto S_38218;} do{ *__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; -if(!qbevent)break;evnt(25066,2238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2531,"ide_methods.bas");}while(r); } -S_35920:; +S_38221:; if ((-(*__LONG_MWHEEL< 0 ))||new_error){ -if(qbevent){evnt(25066,2241,"ide_methods.bas");if(r)goto S_35920;} +if(qbevent){evnt(26307,2534,"ide_methods.bas");if(r)goto S_38221;} do{ *__LONG_HELP_CY=*__LONG_HELP_SY; -if(!qbevent)break;evnt(25066,2241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2534,"ide_methods.bas");}while(r); } -S_35923:; +S_38224:; if ((-(*__LONG_MWHEEL> 0 ))||new_error){ -if(qbevent){evnt(25066,2242,"ide_methods.bas");if(r)goto S_35923;} +if(qbevent){evnt(26307,2535,"ide_methods.bas");if(r)goto S_38224;} do{ *__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_HELP_WH- 1 ); -if(!qbevent)break;evnt(25066,2242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2535,"ide_methods.bas");}while(r); } do{ *__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_MWHEEL* 3 ); -if(!qbevent)break;evnt(25066,2243,"ide_methods.bas");}while(r); -S_35927:; +if(!qbevent)break;evnt(26307,2536,"ide_methods.bas");}while(r); +S_38228:; if ((-(*__LONG_HELP_CX< 1 ))||new_error){ -if(qbevent){evnt(25066,2246,"ide_methods.bas");if(r)goto S_35927;} +if(qbevent){evnt(26307,2539,"ide_methods.bas");if(r)goto S_38228;} do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2246,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2539,"ide_methods.bas");}while(r); } -S_35930:; +S_38231:; if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ -if(qbevent){evnt(25066,2247,"ide_methods.bas");if(r)goto S_35930;} +if(qbevent){evnt(26307,2540,"ide_methods.bas");if(r)goto S_38231;} do{ *__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(25066,2247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2540,"ide_methods.bas");}while(r); } -S_35933:; +S_38234:; if ((-(*__LONG_HELP_CY< 1 ))||new_error){ -if(qbevent){evnt(25066,2248,"ide_methods.bas");if(r)goto S_35933;} +if(qbevent){evnt(26307,2541,"ide_methods.bas");if(r)goto S_38234;} do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(25066,2248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2541,"ide_methods.bas");}while(r); } -S_35936:; +S_38237:; if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ -if(qbevent){evnt(25066,2249,"ide_methods.bas");if(r)goto S_35936;} +if(qbevent){evnt(26307,2542,"ide_methods.bas");if(r)goto S_38237;} do{ *__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(25066,2249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2542,"ide_methods.bas");}while(r); } -S_35939:; +S_38240:; if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ -if(qbevent){evnt(25066,2252,"ide_methods.bas");if(r)goto S_35939;} +if(qbevent){evnt(26307,2545,"ide_methods.bas");if(r)goto S_38240;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2545,"ide_methods.bas");}while(r); } -S_35942:; +S_38243:; if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ -if(qbevent){evnt(25066,2253,"ide_methods.bas");if(r)goto S_35942;} +if(qbevent){evnt(26307,2546,"ide_methods.bas");if(r)goto S_38243;} do{ *__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; -if(!qbevent)break;evnt(25066,2253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2546,"ide_methods.bas");}while(r); } -S_35945:; +S_38246:; if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ -if(qbevent){evnt(25066,2255,"ide_methods.bas");if(r)goto S_35945;} +if(qbevent){evnt(26307,2548,"ide_methods.bas");if(r)goto S_38246;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2255,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2548,"ide_methods.bas");}while(r); } -S_35948:; +S_38249:; if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ -if(qbevent){evnt(25066,2256,"ide_methods.bas");if(r)goto S_35948;} +if(qbevent){evnt(26307,2549,"ide_methods.bas");if(r)goto S_38249;} do{ *__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; -if(!qbevent)break;evnt(25066,2256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2549,"ide_methods.bas");}while(r); } -S_35951:; +S_38252:; if ((-(*__LONG_HELP_SX< 1 ))||new_error){ -if(qbevent){evnt(25066,2259,"ide_methods.bas");if(r)goto S_35951;} +if(qbevent){evnt(26307,2552,"ide_methods.bas");if(r)goto S_38252;} do{ *__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(25066,2259,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2552,"ide_methods.bas");}while(r); } -S_35954:; +S_38255:; if ((-(*__LONG_HELP_SY< 1 ))||new_error){ -if(qbevent){evnt(25066,2260,"ide_methods.bas");if(r)goto S_35954;} +if(qbevent){evnt(26307,2553,"ide_methods.bas");if(r)goto S_38255;} do{ *__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(25066,2260,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2553,"ide_methods.bas");}while(r); } -S_35957:; +S_38258:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ -if(qbevent){evnt(25066,2262,"ide_methods.bas");if(r)goto S_35957;} -S_35958:; +if(qbevent){evnt(26307,2555,"ide_methods.bas");if(r)goto S_38258;} +S_38259:; if ((-(*__LONG_HELP_BACK_POS> 1 ))||new_error){ -if(qbevent){evnt(25066,2263,"ide_methods.bas");if(r)goto S_35958;} +if(qbevent){evnt(26307,2556,"ide_methods.bas");if(r)goto S_38259;} do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(25066,2264,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2557,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(25066,2265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2558,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2559,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2560,"ide_methods.bas");}while(r); do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; -if(!qbevent)break;evnt(25066,2268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2561,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(25066,2269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2562,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(25066,2269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2562,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(25066,2270,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2563,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(25066,2271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2564,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(25066,2272,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2565,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(25066,2273,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2566,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2274,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2567,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2275,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2568,"ide_methods.bas");}while(r); do{ goto LABEL_NEWPAGEPARSED; -if(!qbevent)break;evnt(25066,2276,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2569,"ide_methods.bas");}while(r); } } -S_35975:; +S_38276:; if (((-(*__LONG_HELP_CY>= 1 ))&(-(*__LONG_HELP_CY<=*__LONG_HELP_H)))||new_error){ -if(qbevent){evnt(25066,2280,"ide_methods.bas");if(r)goto S_35975;} +if(qbevent){evnt(26307,2573,"ide_methods.bas");if(r)goto S_38276;} do{ *_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*__LONG_HELP_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2281,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2574,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,2282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2575,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2= 1 ; -if(!qbevent)break;evnt(25066,2283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2576,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2284,"ide_methods.bas");}while(r); -S_35980:; +if(!qbevent)break;evnt(26307,2577,"ide_methods.bas");}while(r); +S_38281:; while((!(-(*_FUNC_IDE2_LONG_C== 13 )))||new_error){ -if(qbevent){evnt(25066,2285,"ide_methods.bas");if(r)goto S_35980;} -S_35981:; +if(qbevent){evnt(26307,2578,"ide_methods.bas");if(r)goto S_38281;} +S_38282:; if ((-(*_FUNC_IDE2_LONG_X2==*__LONG_HELP_CX))||new_error){ -if(qbevent){evnt(25066,2287,"ide_methods.bas");if(r)goto S_35981;} +if(qbevent){evnt(26307,2580,"ide_methods.bas");if(r)goto S_38282;} do{ *_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2288,"ide_methods.bas");}while(r); -S_35983:; +if(!qbevent)break;evnt(26307,2581,"ide_methods.bas");}while(r); +S_38284:; if ((*_FUNC_IDE2_LONG_LNK)||new_error){ -if(qbevent){evnt(25066,2289,"ide_methods.bas");if(r)goto S_35983;} +if(qbevent){evnt(26307,2582,"ide_methods.bas");if(r)goto S_38284;} do{ *_FUNC_IDE2_LONG_L1= 1 ; -if(!qbevent)break;evnt(25066,2291,"ide_methods.bas");}while(r); -S_35985:; -fornext_value4028= 1 ; -fornext_finalvalue4028=*_FUNC_IDE2_LONG_LNK- 1 ; -fornext_step4028= 1 ; -if (fornext_step4028<0) fornext_step_negative4028=1; else fornext_step_negative4028=0; -if (new_error) goto fornext_error4028; -goto fornext_entrylabel4028; +if(!qbevent)break;evnt(26307,2584,"ide_methods.bas");}while(r); +S_38286:; +fornext_value4154= 1 ; +fornext_finalvalue4154=*_FUNC_IDE2_LONG_LNK- 1 ; +fornext_step4154= 1 ; +if (fornext_step4154<0) fornext_step_negative4154=1; else fornext_step_negative4154=0; +if (new_error) goto fornext_error4154; +goto fornext_entrylabel4154; while(1){ -fornext_value4028=fornext_step4028+(*_FUNC_IDE2_LONG_LX); -fornext_entrylabel4028: -*_FUNC_IDE2_LONG_LX=fornext_value4028; -if (fornext_step_negative4028){ -if (fornext_value4028fornext_finalvalue4028) break; +if (fornext_value4154>fornext_finalvalue4154) break; } -fornext_error4028:; -if(qbevent){evnt(25066,2292,"ide_methods.bas");if(r)goto S_35985;} +fornext_error4154:; +if(qbevent){evnt(26307,2585,"ide_methods.bas");if(r)goto S_38286;} do{ *_FUNC_IDE2_LONG_L1=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2293,"ide_methods.bas");}while(r); -fornext_continue_4027:; +if(!qbevent)break;evnt(26307,2586,"ide_methods.bas");}while(r); +fornext_continue_4153:; } -fornext_exit_4027:; +fornext_exit_4153:; do{ *_FUNC_IDE2_LONG_L2=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2295,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2588,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_L,func_mid(__STRING_HELP_LINK,*_FUNC_IDE2_LONG_L1,*_FUNC_IDE2_LONG_L2-*_FUNC_IDE2_LONG_L1+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2589,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len- 5 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2298,"ide_methods.bas");}while(r); -S_35991:; +if(!qbevent)break;evnt(26307,2591,"ide_methods.bas");}while(r); +S_38292:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ -if(qbevent){evnt(25066,2300,"ide_methods.bas");if(r)goto S_35991;} +if(qbevent){evnt(26307,2593,"ide_methods.bas");if(r)goto S_38292;} do{ *__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(25066,2301,"ide_methods.bas");}while(r); -S_35993:; +if(!qbevent)break;evnt(26307,2594,"ide_methods.bas");}while(r); +S_38294:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_L)))||new_error){ -if(qbevent){evnt(25066,2303,"ide_methods.bas");if(r)goto S_35993;} +if(qbevent){evnt(26307,2596,"ide_methods.bas");if(r)goto S_38294;} do{ *__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(25066,2304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2597,"ide_methods.bas");}while(r); do{ *__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(25066,2304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2597,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(25066,2307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2600,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(25066,2308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2601,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2309,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2602,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2603,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2312,"ide_methods.bas");}while(r); -S_36001:; +if(!qbevent)break;evnt(26307,2605,"ide_methods.bas");}while(r); +S_38302:; if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ -if(qbevent){evnt(25066,2314,"ide_methods.bas");if(r)goto S_36001;} -S_36002:; +if(qbevent){evnt(26307,2607,"ide_methods.bas");if(r)goto S_38302;} +S_38303:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_L)))||new_error){ -if(qbevent){evnt(25066,2315,"ide_methods.bas");if(r)goto S_36002;} +if(qbevent){evnt(26307,2608,"ide_methods.bas");if(r)goto S_38303;} do{ goto LABEL_USENEXTENTRY; -if(!qbevent)break;evnt(25066,2316,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2609,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; -if(!qbevent)break;evnt(25066,2320,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2613,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_BACK[2]&2){ @@ -129231,7 +134322,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new( } } } -if(!qbevent)break;evnt(25066,2321,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2614,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ @@ -129271,7 +134362,7 @@ if (!__ARRAY_UDT_HELP_BACK[0]) error(257); } __ARRAY_UDT_HELP_BACK[2]|=1; } -if(!qbevent)break;evnt(25066,2322,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2615,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ @@ -129316,424 +134407,294 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs } } } -if(!qbevent)break;evnt(25066,2323,"ide_methods.bas");}while(r); -S_36010:; -fornext_value4031=*_FUNC_IDE2_LONG_TOP- 1 ; -fornext_finalvalue4031=*__LONG_HELP_BACK_POS+ 1 ; -fornext_step4031= -1 ; -if (fornext_step4031<0) fornext_step_negative4031=1; else fornext_step_negative4031=0; -if (new_error) goto fornext_error4031; -goto fornext_entrylabel4031; +if(!qbevent)break;evnt(26307,2616,"ide_methods.bas");}while(r); +S_38311:; +fornext_value4157=*_FUNC_IDE2_LONG_TOP- 1 ; +fornext_finalvalue4157=*__LONG_HELP_BACK_POS+ 1 ; +fornext_step4157= -1 ; +if (fornext_step4157<0) fornext_step_negative4157=1; else fornext_step_negative4157=0; +if (new_error) goto fornext_error4157; +goto fornext_entrylabel4157; while(1){ -fornext_value4031=fornext_step4031+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4031: -*_FUNC_IDE2_LONG_X=fornext_value4031; -if (fornext_step_negative4031){ -if (fornext_value4031fornext_finalvalue4031) break; +if (fornext_value4157>fornext_finalvalue4157) break; } -fornext_error4031:; -if(qbevent){evnt(25066,2325,"ide_methods.bas");if(r)goto S_36010;} +fornext_error4157:; +if(qbevent){evnt(26307,2618,"ide_methods.bas");if(r)goto S_38311;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2326,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2619,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2327,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2620,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(25066,2328,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2621,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(25066,2329,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2622,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(25066,2330,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2623,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(25066,2331,"ide_methods.bas");}while(r); -fornext_continue_4030:; +if(!qbevent)break;evnt(26307,2624,"ide_methods.bas");}while(r); +fornext_continue_4156:; } -fornext_exit_4030:; +fornext_exit_4156:; LABEL_USENEXTENTRY:; -if(qbevent){evnt(25066,2333,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2626,"ide_methods.bas");r=0;} do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; -if(!qbevent)break;evnt(25066,2334,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2627,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),_FUNC_IDE2_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2335,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2628,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(_FUNC_IDE2_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2336,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2629,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; -if(!qbevent)break;evnt(25066,2337,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2630,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; -if(!qbevent)break;evnt(25066,2338,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2631,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; -if(!qbevent)break;evnt(25066,2339,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2632,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; -if(!qbevent)break;evnt(25066,2340,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2633,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(25066,2341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2634,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(25066,2341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2634,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2634,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(25066,2341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2634,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(_FUNC_IDE2_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2635,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2343,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2636,"ide_methods.bas");}while(r); do{ goto LABEL_NEWPAGEPARSED; -if(!qbevent)break;evnt(25066,2344,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2637,"ide_methods.bas");}while(r); } } } } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(25066,2350,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2643,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2350,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2643,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,2351,"ide_methods.bas");}while(r); -dl_continue_4026:; +if(!qbevent)break;evnt(26307,2644,"ide_methods.bas");}while(r); +dl_continue_4152:; } -dl_exit_4026:; +dl_exit_4152:; } -S_36041:; +S_38342:; if ((*__LONG_HELP_SELECT)||new_error){ -if(qbevent){evnt(25066,2355,"ide_methods.bas");if(r)goto S_36041;} +if(qbevent){evnt(26307,2648,"ide_methods.bas");if(r)goto S_38342;} do{ *__LONG_HELP_SELECT= 1 ; -if(!qbevent)break;evnt(25066,2356,"ide_methods.bas");}while(r); -S_36043:; +if(!qbevent)break;evnt(26307,2649,"ide_methods.bas");}while(r); +S_38344:; if (((-(*__LONG_HELP_CX!=*__LONG_HELP_CX1))|(-(*__LONG_HELP_CY!=*__LONG_HELP_CY1)))||new_error){ -if(qbevent){evnt(25066,2357,"ide_methods.bas");if(r)goto S_36043;} +if(qbevent){evnt(26307,2650,"ide_methods.bas");if(r)goto S_38344;} do{ *__LONG_HELP_SELECT= 2 ; -if(!qbevent)break;evnt(25066,2357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2650,"ide_methods.bas");}while(r); } } -S_36047:; +S_38348:; if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(25066,2361,"ide_methods.bas");if(r)goto S_36047;} -S_36048:; +if(qbevent){evnt(26307,2654,"ide_methods.bas");if(r)goto S_38348;} +S_38349:; if ((-(*__LONG_HELP_CY==*__LONG_HELP_CY1))||new_error){ -if(qbevent){evnt(25066,2362,"ide_methods.bas");if(r)goto S_36048;} +if(qbevent){evnt(26307,2655,"ide_methods.bas");if(r)goto S_38349;} do{ *__LONG_HELP_SELY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2656,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2363,"ide_methods.bas");}while(r); -S_36051:; +if(!qbevent)break;evnt(26307,2656,"ide_methods.bas");}while(r); +S_38352:; if ((-(*__LONG_HELP_CX>*__LONG_HELP_CX1))||new_error){ -if(qbevent){evnt(25066,2364,"ide_methods.bas");if(r)goto S_36051;} +if(qbevent){evnt(26307,2657,"ide_methods.bas");if(r)goto S_38352;} do{ *__LONG_HELP_SELX1=*__LONG_HELP_CX1; -if(!qbevent)break;evnt(25066,2365,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2658,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2=*__LONG_HELP_CX- 1 ; -if(!qbevent)break;evnt(25066,2365,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2658,"ide_methods.bas");}while(r); }else{ do{ *__LONG_HELP_SELX1=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2367,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2660,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2=*__LONG_HELP_CX1- 1 ; -if(!qbevent)break;evnt(25066,2367,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2660,"ide_methods.bas");}while(r); } }else{ do{ *__LONG_HELP_SELX1= 1 ; -if(!qbevent)break;evnt(25066,2370,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2663,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELX2= 10000000 ; -if(!qbevent)break;evnt(25066,2370,"ide_methods.bas");}while(r); -S_36061:; +if(!qbevent)break;evnt(26307,2663,"ide_methods.bas");}while(r); +S_38362:; if ((-(*__LONG_HELP_CY>*__LONG_HELP_CY1))||new_error){ -if(qbevent){evnt(25066,2371,"ide_methods.bas");if(r)goto S_36061;} +if(qbevent){evnt(26307,2664,"ide_methods.bas");if(r)goto S_38362;} do{ *__LONG_HELP_SELY1=*__LONG_HELP_CY1; -if(!qbevent)break;evnt(25066,2372,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2665,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2372,"ide_methods.bas");}while(r); -S_36064:; +if(!qbevent)break;evnt(26307,2665,"ide_methods.bas");}while(r); +S_38365:; if ((-(*__LONG_HELP_CX== 1 ))||new_error){ -if(qbevent){evnt(25066,2373,"ide_methods.bas");if(r)goto S_36064;} +if(qbevent){evnt(26307,2666,"ide_methods.bas");if(r)goto S_38365;} do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY- 1 ; -if(!qbevent)break;evnt(25066,2373,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2666,"ide_methods.bas");}while(r); } }else{ do{ *__LONG_HELP_SELY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2668,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SELY2=*__LONG_HELP_CY1; -if(!qbevent)break;evnt(25066,2375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2668,"ide_methods.bas");}while(r); } } } LABEL_NEWPAGEPARSED:; -if(qbevent){evnt(25066,2380,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2673,"ide_methods.bas");r=0;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2381,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2674,"ide_methods.bas");}while(r); } -S_36075:; +S_38376:; if ((-(*__LONG_KB== 15104 ))||new_error){ -if(qbevent){evnt(25066,2386,"ide_methods.bas");if(r)goto S_36075;} +if(qbevent){evnt(26307,2679,"ide_methods.bas");if(r)goto S_38376;} LABEL_CONTEXTUALHELP:; -if(qbevent){evnt(25066,2387,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2680,"ide_methods.bas");r=0;} do{ *__BYTE_IDECONTEXTHELPSF= 0 ; -if(!qbevent)break;evnt(25066,2388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2681,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_set(_FUNC_IDE2_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2390,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,2391,"ide_methods.bas");}while(r); -S_36079:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDE2_STRING_A->len> 0 ))&(-(*_FUNC_IDE2_LONG_X==(_FUNC_IDE2_STRING_A->len+ 1 )))))||new_error){ -if(qbevent){evnt(25066,2392,"ide_methods.bas");if(r)goto S_36079;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X- 1 ; -if(!qbevent)break;evnt(25066,2392,"ide_methods.bas");}while(r); -} -S_36082:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,2393,"ide_methods.bas");if(r)goto S_36082;} -S_36083:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1),qbs_new_txt_len(" ",1)))|(qbs_equal(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1),qbs_new_txt_len("(",1)))))&(-(*_FUNC_IDE2_LONG_X> 1 ))))||new_error){ -if(qbevent){evnt(25066,2394,"ide_methods.bas");if(r)goto S_36083;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X- 1 ; -if(!qbevent)break;evnt(25066,2394,"ide_methods.bas");}while(r); -} -S_36086:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(25066,2395,"ide_methods.bas");if(r)goto S_36086;} -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,2396,"ide_methods.bas");}while(r); -S_36088:; -while((-(*_FUNC_IDE2_LONG_X1> 1 ))||new_error){ -if(qbevent){evnt(25066,2397,"ide_methods.bas");if(r)goto S_36088;} -S_36089:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X1- 1 )== 36 ))))||new_error){ -if(qbevent){evnt(25066,2398,"ide_methods.bas");if(r)goto S_36089;} -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X1- 1 ; -if(!qbevent)break;evnt(25066,2398,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_4035; -if(!qbevent)break;evnt(25066,2398,"ide_methods.bas");}while(r); -} -dl_continue_4035:; -} -dl_exit_4035:; -do{ -*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,2400,"ide_methods.bas");}while(r); -S_36096:; -while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X2<_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,2401,"ide_methods.bas");if(r)goto S_36096;} -S_36097:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X2+ 1 )== 36 ))))||new_error){ -if(qbevent){evnt(25066,2402,"ide_methods.bas");if(r)goto S_36097;} -do{ -*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,2402,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_4037; -if(!qbevent)break;evnt(25066,2402,"ide_methods.bas");}while(r); -} -dl_continue_4037:; -} -dl_exit_4037:; -do{ -qbs_set(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X1,*_FUNC_IDE2_LONG_X2-*_FUNC_IDE2_LONG_X1+ 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2404,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,func_chr(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2406,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_ucase(_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2408,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,2410,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2411,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2683,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LNKS= 0 ; -if(!qbevent)break;evnt(25066,2412,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2684,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_LNKS,func_chr( 0 )); +qbs_set(_FUNC_IDE2_STRING_LNKS,FUNC_FINDHELPTOPIC(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_LONG_LNKS,&(pass4158= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2412,"ide_methods.bas");}while(r); -S_36112:; -while((!(func_eof(*_FUNC_IDE2_LONG_FH)))||new_error){ -if(qbevent){evnt(25066,2413,"ide_methods.bas");if(r)goto S_36112;} -do{ -tmp_fileno=*_FUNC_IDE2_LONG_FH; -if (new_error) goto skip4039; -sub_file_line_input_string(tmp_fileno,_FUNC_IDE2_STRING_L); -if (new_error) goto skip4039; -skip4039: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2414,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=func_instr(NULL,_FUNC_IDE2_STRING_L,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2415,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L1,qbs_left(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_C- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2415,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L2,qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len-*_FUNC_IDE2_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2415,"ide_methods.bas");}while(r); -S_36117:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_ucase(_FUNC_IDE2_STRING_L1))))||new_error){ -if(qbevent){evnt(25066,2416,"ide_methods.bas");if(r)goto S_36117;} -S_36118:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDE2_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,2417,"ide_methods.bas");if(r)goto S_36118;} -do{ -*_FUNC_IDE2_LONG_LNKS=*_FUNC_IDE2_LONG_LNKS+ 1 ; -if(!qbevent)break;evnt(25066,2418,"ide_methods.bas");}while(r); -S_36120:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_L2,_FUNC_IDE2_STRING_L1)))||new_error){ -if(qbevent){evnt(25066,2419,"ide_methods.bas");if(r)goto S_36120;} -do{ -qbs_set(_FUNC_IDE2_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDE2_STRING_L2),_FUNC_IDE2_STRING_LNKS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2420,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_LNKS,qbs_add(qbs_add(_FUNC_IDE2_STRING_LNKS,_FUNC_IDE2_STRING_L2),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2422,"ide_methods.bas");}while(r); -} -} -} -dl_continue_4038:; -} -dl_exit_4038:; -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,2427,"ide_methods.bas");}while(r); -S_36129:; +if(!qbevent)break;evnt(26307,2685,"ide_methods.bas");}while(r); +S_38381:; if ((*_FUNC_IDE2_LONG_LNKS)||new_error){ -if(qbevent){evnt(25066,2429,"ide_methods.bas");if(r)goto S_36129;} +if(qbevent){evnt(26307,2687,"ide_methods.bas");if(r)goto S_38381;} do{ qbs_set(_FUNC_IDE2_STRING_LNKS,func_mid(_FUNC_IDE2_STRING_LNKS, 2 ,_FUNC_IDE2_STRING_LNKS->len- 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2430,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2688,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LNK,_FUNC_IDE2_STRING_LNKS); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2431,"ide_methods.bas");}while(r); -S_36132:; +if(!qbevent)break;evnt(26307,2689,"ide_methods.bas");}while(r); +S_38384:; if ((-(*_FUNC_IDE2_LONG_LNKS> 1 ))||new_error){ -if(qbevent){evnt(25066,2432,"ide_methods.bas");if(r)goto S_36132;} +if(qbevent){evnt(26307,2690,"ide_methods.bas");if(r)goto S_38384;} do{ qbs_set(_FUNC_IDE2_STRING_LNK,FUNC_IDEF1BOX(_FUNC_IDE2_STRING_LNKS,_FUNC_IDE2_LONG_LNKS)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2434,"ide_methods.bas");}while(r); -S_36134:; +if(!qbevent)break;evnt(26307,2692,"ide_methods.bas");}while(r); +S_38386:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,2435,"ide_methods.bas");if(r)goto S_36134;} +if(qbevent){evnt(26307,2693,"ide_methods.bas");if(r)goto S_38386;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,2435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2693,"ide_methods.bas");}while(r); } } +S_38390:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_LNK),qbs_new_txt_len("PARENTHESIS",11),0)))||new_error){ +if(qbevent){evnt(26307,2696,"ide_methods.bas");if(r)goto S_38390;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,2696,"ide_methods.bas");}while(r); +} LABEL_OPENHELPLNK:; -if(qbevent){evnt(25066,2439,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2698,"ide_methods.bas");r=0;} do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(25066,2442,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2701,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(25066,2443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2702,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(25066,2444,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2703,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(25066,2445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2704,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2447,"ide_methods.bas");}while(r); -S_36143:; +if(!qbevent)break;evnt(26307,2706,"ide_methods.bas");}while(r); +S_38398:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_LNK)))||new_error){ -if(qbevent){evnt(25066,2450,"ide_methods.bas");if(r)goto S_36143;} +if(qbevent){evnt(26307,2709,"ide_methods.bas");if(r)goto S_38398;} do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; -if(!qbevent)break;evnt(25066,2450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2709,"ide_methods.bas");}while(r); do{ goto LABEL_USENEXTENTRY2; -if(!qbevent)break;evnt(25066,2450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2709,"ide_methods.bas");}while(r); } -S_36147:; +S_38402:; if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ -if(qbevent){evnt(25066,2451,"ide_methods.bas");if(r)goto S_36147;} -S_36148:; +if(qbevent){evnt(26307,2710,"ide_methods.bas");if(r)goto S_38402;} +S_38403:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_LNK)))||new_error){ -if(qbevent){evnt(25066,2452,"ide_methods.bas");if(r)goto S_36148;} +if(qbevent){evnt(26307,2711,"ide_methods.bas");if(r)goto S_38403;} do{ goto LABEL_USENEXTENTRY2; -if(!qbevent)break;evnt(25066,2453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2712,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; -if(!qbevent)break;evnt(25066,2458,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2717,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_BACK[2]&2){ @@ -129778,7 +134739,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new( } } } -if(!qbevent)break;evnt(25066,2459,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2718,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ @@ -129818,7 +134779,7 @@ if (!__ARRAY_UDT_HELP_BACK[0]) error(257); } __ARRAY_UDT_HELP_BACK[2]|=1; } -if(!qbevent)break;evnt(25066,2460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2719,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ @@ -129863,551 +134824,522 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs } } } -if(!qbevent)break;evnt(25066,2461,"ide_methods.bas");}while(r); -S_36156:; -fornext_value4043=*_FUNC_IDE2_LONG_TOP- 1 ; -fornext_finalvalue4043=*__LONG_HELP_BACK_POS+ 1 ; -fornext_step4043= -1 ; -if (fornext_step4043<0) fornext_step_negative4043=1; else fornext_step_negative4043=0; -if (new_error) goto fornext_error4043; -goto fornext_entrylabel4043; +if(!qbevent)break;evnt(26307,2720,"ide_methods.bas");}while(r); +S_38411:; +fornext_value4161=*_FUNC_IDE2_LONG_TOP- 1 ; +fornext_finalvalue4161=*__LONG_HELP_BACK_POS+ 1 ; +fornext_step4161= -1 ; +if (fornext_step4161<0) fornext_step_negative4161=1; else fornext_step_negative4161=0; +if (new_error) goto fornext_error4161; +goto fornext_entrylabel4161; while(1){ -fornext_value4043=fornext_step4043+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4043: -*_FUNC_IDE2_LONG_X=fornext_value4043; -if (fornext_step_negative4043){ -if (fornext_value4043fornext_finalvalue4043) break; +if (fornext_value4161>fornext_finalvalue4161) break; } -fornext_error4043:; -if(qbevent){evnt(25066,2463,"ide_methods.bas");if(r)goto S_36156;} +fornext_error4161:; +if(qbevent){evnt(26307,2722,"ide_methods.bas");if(r)goto S_38411;} do{ tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2464,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2723,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2465,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2724,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(25066,2466,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2725,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(25066,2467,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2726,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(25066,2468,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2727,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(25066,2469,"ide_methods.bas");}while(r); -fornext_continue_4042:; +if(!qbevent)break;evnt(26307,2728,"ide_methods.bas");}while(r); +fornext_continue_4160:; } -fornext_exit_4042:; +fornext_exit_4160:; LABEL_USENEXTENTRY2:; -if(qbevent){evnt(25066,2471,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,2730,"ide_methods.bas");r=0;} do{ *__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; -if(!qbevent)break;evnt(25066,2472,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2731,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),_FUNC_IDE2_STRING_LNK); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2473,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2732,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(_FUNC_IDE2_STRING_LNK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2733,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; -if(!qbevent)break;evnt(25066,2475,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2734,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; -if(!qbevent)break;evnt(25066,2476,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2735,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; -if(!qbevent)break;evnt(25066,2477,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2736,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; -if(!qbevent)break;evnt(25066,2478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2737,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(25066,2479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2738,"ide_methods.bas");}while(r); do{ *__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(25066,2479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2738,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(25066,2479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2738,"ide_methods.bas");}while(r); do{ *__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(25066,2479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2738,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(_FUNC_IDE2_STRING_LNK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2481,"ide_methods.bas");}while(r); -S_36176:; +if(!qbevent)break;evnt(26307,2740,"ide_methods.bas");}while(r); +S_38431:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(25066,2483,"ide_methods.bas");if(r)goto S_36176;} -S_36177:; +if(qbevent){evnt(26307,2742,"ide_methods.bas");if(r)goto S_38431;} +S_38432:; if ((*__LONG_IDESUBWINDOW)||new_error){ -if(qbevent){evnt(25066,2484,"ide_methods.bas");if(r)goto S_36177;} +if(qbevent){evnt(26307,2743,"ide_methods.bas");if(r)goto S_38432;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2484,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2743,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,2484,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,2484,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,2484,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2743,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,2484,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2743,"ide_methods.bas");}while(r); } do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(25066,2485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2744,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,2485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2744,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(25066,2486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2745,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(25066,2486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2745,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(25066,2486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2745,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(25066,2486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2745,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(25066,2486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2745,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(25066,2486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2745,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2487,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2746,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(25066,2488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2747,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,2489,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2748,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,2490,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2749,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,2491,"ide_methods.bas");}while(r); -do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,2491,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,2750,"ide_methods.bas");}while(r); +}else{ do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2494,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2752,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,2495,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2753,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=27; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_27:; +if(!qbevent)break;evnt(26307,2756,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2496,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2757,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2500,"ide_methods.bas");}while(r); -S_36204:; +if(!qbevent)break;evnt(26307,2761,"ide_methods.bas");}while(r); +S_38458:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(25066,2501,"ide_methods.bas");if(r)goto S_36204;} -S_36205:; +if(qbevent){evnt(26307,2762,"ide_methods.bas");if(r)goto S_38458;} +S_38459:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDE2_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,2502,"ide_methods.bas");if(r)goto S_36205;} +if(qbevent){evnt(26307,2763,"ide_methods.bas");if(r)goto S_38459;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2503,"ide_methods.bas");}while(r); -S_36207:; +if(!qbevent)break;evnt(26307,2764,"ide_methods.bas");}while(r); +S_38461:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len== 0 )))||new_error){ -if(qbevent){evnt(25066,2504,"ide_methods.bas");if(r)goto S_36207;} +if(qbevent){evnt(26307,2765,"ide_methods.bas");if(r)goto S_38461;} do{ goto LABEL_NOKEYWORDFOUND; -if(!qbevent)break;evnt(25066,2504,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2765,"ide_methods.bas");}while(r); } -dl_continue_4045:; +dl_continue_4163:; } -dl_exit_4045:; -S_36211:; -fornext_value4049= 1 ; -fornext_finalvalue4049=*__LONG_IDEN; -fornext_step4049= 1 ; -if (fornext_step4049<0) fornext_step_negative4049=1; else fornext_step_negative4049=0; -if (new_error) goto fornext_error4049; -goto fornext_entrylabel4049; +dl_exit_4163:; +S_38465:; +fornext_value4167= 1 ; +fornext_finalvalue4167=*__LONG_IDEN; +fornext_step4167= 1 ; +if (fornext_step4167<0) fornext_step_negative4167=1; else fornext_step_negative4167=0; +if (new_error) goto fornext_error4167; +goto fornext_entrylabel4167; while(1){ -fornext_value4049=fornext_step4049+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4049: -*_FUNC_IDE2_LONG_Y=fornext_value4049; -if (fornext_step_negative4049){ -if (fornext_value4049fornext_finalvalue4049) break; +if (fornext_value4167>fornext_finalvalue4167) break; } -fornext_error4049:; -if(qbevent){evnt(25066,2507,"ide_methods.bas");if(r)goto S_36211;} +fornext_error4167:; +if(qbevent){evnt(26307,2768,"ide_methods.bas");if(r)goto S_38465;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2508,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2769,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2770,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SF= 0 ; -if(!qbevent)break;evnt(25066,2510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2771,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_NCA,qbs_ucase(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2511,"ide_methods.bas");}while(r); -S_36216:; +if(!qbevent)break;evnt(26307,2772,"ide_methods.bas");}while(r); +S_38470:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(25066,2512,"ide_methods.bas");if(r)goto S_36216;} +if(qbevent){evnt(26307,2773,"ide_methods.bas");if(r)goto S_38470;} do{ *_FUNC_IDE2_LONG_SF= 1 ; -if(!qbevent)break;evnt(25066,2512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2773,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SF,qbs_new_txt_len("SUB ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2773,"ide_methods.bas");}while(r); } -S_36220:; +S_38474:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(25066,2513,"ide_methods.bas");if(r)goto S_36220;} +if(qbevent){evnt(26307,2774,"ide_methods.bas");if(r)goto S_38474;} do{ *_FUNC_IDE2_LONG_SF= 2 ; -if(!qbevent)break;evnt(25066,2513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2774,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_SF,qbs_new_txt_len("FUNCTION ",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2774,"ide_methods.bas");}while(r); } -S_36224:; +S_38478:; if ((*_FUNC_IDE2_LONG_SF)||new_error){ -if(qbevent){evnt(25066,2514,"ide_methods.bas");if(r)goto S_36224;} -S_36225:; +if(qbevent){evnt(26307,2775,"ide_methods.bas");if(r)goto S_38478;} +S_38479:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(25066,2515,"ide_methods.bas");if(r)goto S_36225;} +if(qbevent){evnt(26307,2776,"ide_methods.bas");if(r)goto S_38479;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 7 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2516,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2777,"ide_methods.bas");}while(r); } -S_36228:; +S_38482:; if ((-(*_FUNC_IDE2_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(25066,2519,"ide_methods.bas");if(r)goto S_36228;} +if(qbevent){evnt(26307,2780,"ide_methods.bas");if(r)goto S_38482;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 4 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2520,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2781,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 9 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2522,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2783,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2785,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len("(",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2525,"ide_methods.bas");}while(r); -S_36235:; +if(!qbevent)break;evnt(26307,2786,"ide_methods.bas");}while(r); +S_38489:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,2526,"ide_methods.bas");if(r)goto S_36235;} +if(qbevent){evnt(26307,2787,"ide_methods.bas");if(r)goto S_38489;} do{ qbs_set(_FUNC_IDE2_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2527,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2788,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2528,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2789,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_ARGS,qbs_new_txt_len(")",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2790,"ide_methods.bas");}while(r); +S_38493:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26307,2790,"ide_methods.bas");if(r)goto S_38493;} +do{ +qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_left(_FUNC_IDE2_STRING_ARGS,*_FUNC_IDE2_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2790,"ide_methods.bas");}while(r); +} }else{ do{ qbs_set(_FUNC_IDE2_STRING_N,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2530,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2792,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2531,"ide_methods.bas");}while(r); -} -S_36242:; -fornext_value4055= 1 ; -fornext_finalvalue4055=_FUNC_IDE2_STRING_N->len; -fornext_step4055= 1 ; -if (fornext_step4055<0) fornext_step_negative4055=1; else fornext_step_negative4055=0; -if (new_error) goto fornext_error4055; -goto fornext_entrylabel4055; -while(1){ -fornext_value4055=fornext_step4055+(*_FUNC_IDE2_LONG_CLEANSEN); -fornext_entrylabel4055: -*_FUNC_IDE2_LONG_CLEANSEN=fornext_value4055; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4055){ -if (fornext_value4055fornext_finalvalue4055) break; -} -fornext_error4055:; -if(qbevent){evnt(25066,2535,"ide_methods.bas");if(r)goto S_36242;} -S_36243:; -qbs_set(sc_4057,func_mid(_FUNC_IDE2_STRING_N,*_FUNC_IDE2_LONG_CLEANSEN, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,2536,"ide_methods.bas");if(r)goto S_36243;} -S_36244:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4057,qbs_new_txt_len(" ",1))||qbs_equal(sc_4057,qbs_new_txt_len("'",1))||qbs_equal(sc_4057,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,2537,"ide_methods.bas");if(r)goto S_36244;} +if(!qbevent)break;evnt(26307,2793,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_N,qbs_left(_FUNC_IDE2_STRING_N,*_FUNC_IDE2_LONG_CLEANSEN- 1 )); +SUB_CLEANSUBNAME(_FUNC_IDE2_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2538,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4054; -if(!qbevent)break;evnt(25066,2539,"ide_methods.bas");}while(r); -goto sc_4057_end; +if(!qbevent)break;evnt(26307,2794,"ide_methods.bas");}while(r); } -sc_4057_end:; -fornext_continue_4054:; -} -fornext_exit_4054:; do{ qbs_set(_FUNC_IDE2_STRING_BACKUPN,_FUNC_IDE2_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2543,"ide_methods.bas");}while(r); -S_36250:; +if(!qbevent)break;evnt(26307,2797,"ide_methods.bas");}while(r); +S_38502:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDE2_STRING_N, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,2545,"ide_methods.bas");if(r)goto S_36250;} +if(qbevent){evnt(26307,2799,"ide_methods.bas");if(r)goto S_38502;} do{ qbs_set(_FUNC_IDE2_STRING_N,qbs_left(_FUNC_IDE2_STRING_N,_FUNC_IDE2_STRING_N->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2546,"ide_methods.bas");}while(r); -dl_continue_4058:; +if(!qbevent)break;evnt(26307,2800,"ide_methods.bas");}while(r); +dl_continue_4172:; } -dl_exit_4058:; -S_36253:; +dl_exit_4172:; +S_38505:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_IDE2_STRING_N),_FUNC_IDE2_STRING_A2)))||new_error){ -if(qbevent){evnt(25066,2549,"ide_methods.bas");if(r)goto S_36253;} +if(qbevent){evnt(26307,2803,"ide_methods.bas");if(r)goto S_38505;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("'''",3),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("''' is a symbol that is used in your program as follows:",56))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2550,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2804,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("{{PageSyntax}}",14)),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2551,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2805,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(": ",2)),_FUNC_IDE2_STRING_SF),qbs_new_txt_len("'''",3)),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("''' ",4)),_FUNC_IDE2_STRING_ARGS)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2552,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2806,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),qbs_new_txt_len("{{PageNavigation}}",18))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2553,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2807,"ide_methods.bas");}while(r); do{ *__BYTE_IDECONTEXTHELPSF= -1 ; -if(!qbevent)break;evnt(25066,2555,"ide_methods.bas");}while(r); -S_36259:; +if(!qbevent)break;evnt(26307,2809,"ide_methods.bas");}while(r); +S_38511:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(25066,2557,"ide_methods.bas");if(r)goto S_36259;} -S_36260:; +if(qbevent){evnt(26307,2811,"ide_methods.bas");if(r)goto S_38511;} +S_38512:; if ((*__LONG_IDESUBWINDOW)||new_error){ -if(qbevent){evnt(25066,2558,"ide_methods.bas");if(r)goto S_36260;} +if(qbevent){evnt(26307,2812,"ide_methods.bas");if(r)goto S_38512;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2812,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,2558,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,2558,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,2558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2812,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,2558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2812,"ide_methods.bas");}while(r); } do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(25066,2559,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2813,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,2559,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2813,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(25066,2560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2814,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(25066,2560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2814,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(25066,2560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2814,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(25066,2560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2814,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(25066,2560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2814,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(25066,2560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2814,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2561,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2815,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(25066,2562,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2816,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,2563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2817,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,2564,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2818,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,2565,"ide_methods.bas");}while(r); -do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,2565,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2819,"ide_methods.bas");}while(r); } do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2568,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2822,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,2569,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2823,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=28; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_28:; +if(!qbevent)break;evnt(26307,2824,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2570,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2825,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4048; -if(!qbevent)break;evnt(25066,2572,"ide_methods.bas");}while(r); +goto fornext_exit_4166; +if(!qbevent)break;evnt(26307,2827,"ide_methods.bas");}while(r); } } -fornext_continue_4048:; +fornext_continue_4166:; } -fornext_exit_4048:; +fornext_exit_4166:; } LABEL_NOKEYWORDFOUND:; -if(qbevent){evnt(25066,2577,"ide_methods.bas");r=0;} -} +if(qbevent){evnt(26307,2832,"ide_methods.bas");r=0;} } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2581,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2834,"ide_methods.bas");}while(r); } -S_36294:; +S_38543:; if ((*__LONG_KALT&(-(*__LONG_KB== 19200 )))||new_error){ -if(qbevent){evnt(25066,2586,"ide_methods.bas");if(r)goto S_36294;} +if(qbevent){evnt(26307,2839,"ide_methods.bas");if(r)goto S_38543;} do{ *_FUNC_IDE2_LONG_BMKREMOVED= 0 ; -if(!qbevent)break;evnt(25066,2587,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2840,"ide_methods.bas");}while(r); LABEL_BMKREMOVE:; -if(qbevent){evnt(25066,2588,"ide_methods.bas");r=0;} -S_36296:; -fornext_value4061= 1 ; -fornext_finalvalue4061=*__LONG_IDEBMKN; -fornext_step4061= 1 ; -if (fornext_step4061<0) fornext_step_negative4061=1; else fornext_step_negative4061=0; -if (new_error) goto fornext_error4061; -goto fornext_entrylabel4061; +if(qbevent){evnt(26307,2841,"ide_methods.bas");r=0;} +S_38545:; +fornext_value4175= 1 ; +fornext_finalvalue4175=*__LONG_IDEBMKN; +fornext_step4175= 1 ; +if (fornext_step4175<0) fornext_step_negative4175=1; else fornext_step_negative4175=0; +if (new_error) goto fornext_error4175; +goto fornext_entrylabel4175; while(1){ -fornext_value4061=fornext_step4061+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4061: -*_FUNC_IDE2_LONG_B=fornext_value4061; -if (fornext_step_negative4061){ -if (fornext_value4061fornext_finalvalue4061) break; +if (fornext_value4175>fornext_finalvalue4175) break; } -fornext_error4061:; -if(qbevent){evnt(25066,2589,"ide_methods.bas");if(r)goto S_36296;} -S_36297:; +fornext_error4175:; +if(qbevent){evnt(26307,2842,"ide_methods.bas");if(r)goto S_38545;} +S_38546:; if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,2590,"ide_methods.bas");if(r)goto S_36297;} -S_36298:; -fornext_value4063=*_FUNC_IDE2_LONG_B; -fornext_finalvalue4063=*__LONG_IDEBMKN- 1 ; -fornext_step4063= 1 ; -if (fornext_step4063<0) fornext_step_negative4063=1; else fornext_step_negative4063=0; -if (new_error) goto fornext_error4063; -goto fornext_entrylabel4063; +if(qbevent){evnt(26307,2843,"ide_methods.bas");if(r)goto S_38546;} +S_38547:; +fornext_value4177=*_FUNC_IDE2_LONG_B; +fornext_finalvalue4177=*__LONG_IDEBMKN- 1 ; +fornext_step4177= 1 ; +if (fornext_step4177<0) fornext_step_negative4177=1; else fornext_step_negative4177=0; +if (new_error) goto fornext_error4177; +goto fornext_entrylabel4177; while(1){ -fornext_value4063=fornext_step4063+(*_FUNC_IDE2_LONG_B2); -fornext_entrylabel4063: -*_FUNC_IDE2_LONG_B2=fornext_value4063; -if (fornext_step_negative4063){ -if (fornext_value4063fornext_finalvalue4063) break; +if (fornext_value4177>fornext_finalvalue4177) break; } -fornext_error4063:; -if(qbevent){evnt(25066,2591,"ide_methods.bas");if(r)goto S_36298;} +fornext_error4177:; +if(qbevent){evnt(26307,2844,"ide_methods.bas");if(r)goto S_38547;} do{ memcpy(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0,((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2+ 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0, 16); -if(!qbevent)break;evnt(25066,2592,"ide_methods.bas");}while(r); -fornext_continue_4062:; +if(!qbevent)break;evnt(26307,2845,"ide_methods.bas");}while(r); +fornext_continue_4176:; } -fornext_exit_4062:; +fornext_exit_4176:; do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; -if(!qbevent)break;evnt(25066,2594,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2847,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BMKREMOVED= 1 ; -if(!qbevent)break;evnt(25066,2595,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2848,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,2596,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2849,"ide_methods.bas");}while(r); do{ goto LABEL_BMKREMOVE; -if(!qbevent)break;evnt(25066,2597,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2850,"ide_methods.bas");}while(r); } -fornext_continue_4060:; +fornext_continue_4174:; } -fornext_exit_4060:; -S_36307:; +fornext_exit_4174:; +S_38556:; if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ -if(qbevent){evnt(25066,2600,"ide_methods.bas");if(r)goto S_36307;} +if(qbevent){evnt(26307,2853,"ide_methods.bas");if(r)goto S_38556;} do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; -if(!qbevent)break;evnt(25066,2601,"ide_methods.bas");}while(r); -S_36309:; +if(!qbevent)break;evnt(26307,2854,"ide_methods.bas");}while(r); +S_38558:; if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ -if(qbevent){evnt(25066,2602,"ide_methods.bas");if(r)goto S_36309;} +if(qbevent){evnt(26307,2855,"ide_methods.bas");if(r)goto S_38558;} do{ *_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; -if(!qbevent)break;evnt(25066,2602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2855,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -130447,1919 +135379,1844 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(25066,2602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2855,"ide_methods.bas");}while(r); } do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2603,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2856,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,2604,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2857,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8))= 0 ; -if(!qbevent)break;evnt(25066,2605,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2858,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))= 0 ; -if(!qbevent)break;evnt(25066,2605,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2858,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,2606,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2859,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2608,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2861,"ide_methods.bas");}while(r); } -S_36321:; +S_38570:; if ((*__LONG_KALT&((-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 18432 ))))||new_error){ -if(qbevent){evnt(25066,2611,"ide_methods.bas");if(r)goto S_36321;} -S_36322:; +if(qbevent){evnt(26307,2864,"ide_methods.bas");if(r)goto S_38570;} +S_38571:; if ((-(*__LONG_IDEBMKN== 0 ))||new_error){ -if(qbevent){evnt(25066,2612,"ide_methods.bas");if(r)goto S_36322;} +if(qbevent){evnt(26307,2865,"ide_methods.bas");if(r)goto S_38571;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54)); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2613,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2866,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,2614,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,2614,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,2614,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2867,"ide_methods.bas");}while(r); do{ *__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,2615,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2868,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,2616,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2869,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,2616,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2869,"ide_methods.bas");}while(r); do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2616,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4064; -makefit(tqbs); -qbs_print(tqbs,0); -skip4064: -qbs_free(tqbs); +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2616,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2869,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2617,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2870,"ide_methods.bas");}while(r); } -S_36334:; +S_38580:; if ((-(*__LONG_IDEBMKN== 1 ))||new_error){ -if(qbevent){evnt(25066,2619,"ide_methods.bas");if(r)goto S_36334;} -S_36335:; +if(qbevent){evnt(26307,2872,"ide_methods.bas");if(r)goto S_38580;} +S_38581:; if ((-(*__LONG_IDECY==*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check(( 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))))||new_error){ -if(qbevent){evnt(25066,2620,"ide_methods.bas");if(r)goto S_36335;} +if(qbevent){evnt(26307,2873,"ide_methods.bas");if(r)goto S_38581;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24)); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2621,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2874,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,2622,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,2622,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,2622,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2875,"ide_methods.bas");}while(r); do{ *__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,2623,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2876,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,2624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2877,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,2624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2877,"ide_methods.bas");}while(r); do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2624,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4065; -makefit(tqbs); -qbs_print(tqbs,0); -skip4065: -qbs_free(tqbs); +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2877,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2878,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_L=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2628,"ide_methods.bas");}while(r); -S_36349:; +if(!qbevent)break;evnt(26307,2881,"ide_methods.bas");}while(r); +S_38592:; do{ -if(qbevent){evnt(25066,2629,"ide_methods.bas");if(r)goto S_36349;} -S_36350:; +if(qbevent){evnt(26307,2882,"ide_methods.bas");if(r)goto S_38592;} +S_38593:; if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(25066,2630,"ide_methods.bas");if(r)goto S_36350;} +if(qbevent){evnt(26307,2883,"ide_methods.bas");if(r)goto S_38593;} do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; -if(!qbevent)break;evnt(25066,2630,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2883,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(25066,2630,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2883,"ide_methods.bas");}while(r); } -S_36355:; +S_38598:; if ((-(*_FUNC_IDE2_LONG_L< 1 ))||new_error){ -if(qbevent){evnt(25066,2631,"ide_methods.bas");if(r)goto S_36355;} +if(qbevent){evnt(26307,2884,"ide_methods.bas");if(r)goto S_38598;} do{ *_FUNC_IDE2_LONG_L=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2631,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2884,"ide_methods.bas");}while(r); } -S_36358:; +S_38601:; if ((-(*_FUNC_IDE2_LONG_L>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2632,"ide_methods.bas");if(r)goto S_36358;} +if(qbevent){evnt(26307,2885,"ide_methods.bas");if(r)goto S_38601;} do{ *_FUNC_IDE2_LONG_L= 1 ; -if(!qbevent)break;evnt(25066,2632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2885,"ide_methods.bas");}while(r); } -S_36361:; -fornext_value4068= 1 ; -fornext_finalvalue4068=*__LONG_IDEBMKN; -fornext_step4068= 1 ; -if (fornext_step4068<0) fornext_step_negative4068=1; else fornext_step_negative4068=0; -if (new_error) goto fornext_error4068; -goto fornext_entrylabel4068; +S_38604:; +fornext_value4180= 1 ; +fornext_finalvalue4180=*__LONG_IDEBMKN; +fornext_step4180= 1 ; +if (fornext_step4180<0) fornext_step_negative4180=1; else fornext_step_negative4180=0; +if (new_error) goto fornext_error4180; +goto fornext_entrylabel4180; while(1){ -fornext_value4068=fornext_step4068+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4068: -*_FUNC_IDE2_LONG_B=fornext_value4068; -if (fornext_step_negative4068){ -if (fornext_value4068fornext_finalvalue4068) break; +if (fornext_value4180>fornext_finalvalue4180) break; } -fornext_error4068:; -if(qbevent){evnt(25066,2633,"ide_methods.bas");if(r)goto S_36361;} -S_36362:; +fornext_error4180:; +if(qbevent){evnt(26307,2886,"ide_methods.bas");if(r)goto S_38604;} +S_38605:; if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*_FUNC_IDE2_LONG_L))||new_error){ -if(qbevent){evnt(25066,2634,"ide_methods.bas");if(r)goto S_36362;} +if(qbevent){evnt(26307,2887,"ide_methods.bas");if(r)goto S_38605;} do{ -goto dl_exit_4066; -if(!qbevent)break;evnt(25066,2634,"ide_methods.bas");}while(r); +goto dl_exit_4178; +if(!qbevent)break;evnt(26307,2887,"ide_methods.bas");}while(r); } -fornext_continue_4067:; +fornext_continue_4179:; } -fornext_exit_4067:; -dl_continue_4066:; +fornext_exit_4179:; +dl_continue_4178:; }while(1); -dl_exit_4066:; +dl_exit_4178:; do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,2637,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,2890,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,2638,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2891,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)); -if(!qbevent)break;evnt(25066,2639,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2892,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2893,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,2894,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2895,"ide_methods.bas");}while(r); } -S_36373:; +S_38617:; if ((*__LONG_KALT&(-(*__LONG_KB== 19712 )))||new_error){ -if(qbevent){evnt(25066,2644,"ide_methods.bas");if(r)goto S_36373;} +if(qbevent){evnt(26307,2898,"ide_methods.bas");if(r)goto S_38617;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2646,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2900,"ide_methods.bas");}while(r); } -S_36376:; +S_38620:; if ((*__LONG_KALT&(-(*__LONG_KB>= 48 ))&(-(*__LONG_KB<= 57 )))||new_error){ -if(qbevent){evnt(25066,2650,"ide_methods.bas");if(r)goto S_36376;} +if(qbevent){evnt(26307,2904,"ide_methods.bas");if(r)goto S_38620;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,2650,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2904,"ide_methods.bas");}while(r); } -S_36379:; +S_38623:; if (((-(*__LONG_IDESELECT== 1 ))&(-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT< 0 ))&(-(*__LONG_MY==*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY)))||new_error){ -if(qbevent){evnt(25066,2652,"ide_methods.bas");if(r)goto S_36379;} -S_36380:; +if(qbevent){evnt(26307,2906,"ide_methods.bas");if(r)goto S_38623;} +S_38624:; if ((-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -2 ))||new_error){ -if(qbevent){evnt(25066,2656,"ide_methods.bas");if(r)goto S_36380;} +if(qbevent){evnt(26307,2910,"ide_methods.bas");if(r)goto S_38624;} do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; -if(!qbevent)break;evnt(25066,2659,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2913,"ide_methods.bas");}while(r); do{ *__LONG_IDEMOUSESELECT= 0 ; -if(!qbevent)break;evnt(25066,2660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2914,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1; -if(!qbevent)break;evnt(25066,2661,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2915,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX; -if(!qbevent)break;evnt(25066,2662,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2916,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1; -if(!qbevent)break;evnt(25066,2663,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2917,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY; -if(!qbevent)break;evnt(25066,2664,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2918,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_NEWPOSITION=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2666,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2920,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2667,"ide_methods.bas");}while(r); -S_36390:; +if(!qbevent)break;evnt(26307,2921,"ide_methods.bas");}while(r); +S_38634:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_NEWPOSITION>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,2668,"ide_methods.bas");if(r)goto S_36390;} +if(qbevent){evnt(26307,2922,"ide_methods.bas");if(r)goto S_38634;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_NEWPOSITION; -if(!qbevent)break;evnt(25066,2668,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2922,"ide_methods.bas");}while(r); do{ goto LABEL_DONEWHOLEWORD; -if(!qbevent)break;evnt(25066,2668,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2922,"ide_methods.bas");}while(r); } -S_36394:; +S_38638:; if ((-(*_FUNC_IDE2_LONG_NEWPOSITION== 1 ))||new_error){ -if(qbevent){evnt(25066,2669,"ide_methods.bas");if(r)goto S_36394;} +if(qbevent){evnt(26307,2923,"ide_methods.bas");if(r)goto S_38638;} do{ *__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(25066,2669,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2923,"ide_methods.bas");}while(r); do{ goto LABEL_DONEWHOLEWORD; -if(!qbevent)break;evnt(25066,2669,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2923,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_NEWPOSITION, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2670,"ide_methods.bas");}while(r); -S_36399:; +if(!qbevent)break;evnt(26307,2924,"ide_methods.bas");}while(r); +S_38643:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 )))||new_error){ -if(qbevent){evnt(25066,2671,"ide_methods.bas");if(r)goto S_36399;} -S_36400:; +if(qbevent){evnt(26307,2925,"ide_methods.bas");if(r)goto S_38643;} +S_38644:; if ((-(*_FUNC_IDE2_LONG_NEWPOSITION<*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX))||new_error){ -if(qbevent){evnt(25066,2672,"ide_methods.bas");if(r)goto S_36400;} -S_36401:; -fornext_value4072=*_FUNC_IDE2_LONG_NEWPOSITION; -fornext_finalvalue4072= 1 ; -fornext_step4072= -1 ; -if (fornext_step4072<0) fornext_step_negative4072=1; else fornext_step_negative4072=0; -if (new_error) goto fornext_error4072; -goto fornext_entrylabel4072; +if(qbevent){evnt(26307,2926,"ide_methods.bas");if(r)goto S_38644;} +S_38645:; +fornext_value4184=*_FUNC_IDE2_LONG_NEWPOSITION; +fornext_finalvalue4184= 1 ; +fornext_step4184= -1 ; +if (fornext_step4184<0) fornext_step_negative4184=1; else fornext_step_negative4184=0; +if (new_error) goto fornext_error4184; +goto fornext_entrylabel4184; while(1){ -fornext_value4072=fornext_step4072+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4072: -*_FUNC_IDE2_LONG_I=fornext_value4072; -if (fornext_step_negative4072){ -if (fornext_value4072fornext_finalvalue4072) break; +if (fornext_value4184>fornext_finalvalue4184) break; } -fornext_error4072:; -if(qbevent){evnt(25066,2674,"ide_methods.bas");if(r)goto S_36401;} -S_36402:; +fornext_error4184:; +if(qbevent){evnt(26307,2928,"ide_methods.bas");if(r)goto S_38645;} +S_38646:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),0)))||new_error){ -if(qbevent){evnt(25066,2675,"ide_methods.bas");if(r)goto S_36402;} +if(qbevent){evnt(26307,2929,"ide_methods.bas");if(r)goto S_38646;} do{ -goto fornext_exit_4071; -if(!qbevent)break;evnt(25066,2675,"ide_methods.bas");}while(r); +goto fornext_exit_4183; +if(!qbevent)break;evnt(26307,2929,"ide_methods.bas");}while(r); } -fornext_continue_4071:; +fornext_continue_4183:; } -fornext_exit_4071:; +fornext_exit_4183:; do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,2677,"ide_methods.bas");}while(r); -S_36407:; +if(!qbevent)break;evnt(26307,2931,"ide_methods.bas");}while(r); +S_38651:; }else{ if (-(*_FUNC_IDE2_LONG_NEWPOSITION>*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1)){ -if(qbevent){evnt(25066,2678,"ide_methods.bas");if(r)goto S_36407;} -S_36408:; -fornext_value4074=*_FUNC_IDE2_LONG_NEWPOSITION; -fornext_finalvalue4074=_FUNC_IDE2_STRING_A->len; -fornext_step4074= 1 ; -if (fornext_step4074<0) fornext_step_negative4074=1; else fornext_step_negative4074=0; -if (new_error) goto fornext_error4074; -goto fornext_entrylabel4074; +if(qbevent){evnt(26307,2932,"ide_methods.bas");if(r)goto S_38651;} +S_38652:; +fornext_value4186=*_FUNC_IDE2_LONG_NEWPOSITION; +fornext_finalvalue4186=_FUNC_IDE2_STRING_A->len; +fornext_step4186= 1 ; +if (fornext_step4186<0) fornext_step_negative4186=1; else fornext_step_negative4186=0; +if (new_error) goto fornext_error4186; +goto fornext_entrylabel4186; while(1){ -fornext_value4074=fornext_step4074+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4074: -*_FUNC_IDE2_LONG_I=fornext_value4074; +fornext_value4186=fornext_step4186+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4186: +*_FUNC_IDE2_LONG_I=fornext_value4186; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4074){ -if (fornext_value4074fornext_finalvalue4074) break; +if (fornext_value4186>fornext_finalvalue4186) break; } -fornext_error4074:; -if(qbevent){evnt(25066,2680,"ide_methods.bas");if(r)goto S_36408;} -S_36409:; +fornext_error4186:; +if(qbevent){evnt(26307,2934,"ide_methods.bas");if(r)goto S_38652;} +S_38653:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),0)))||new_error){ -if(qbevent){evnt(25066,2681,"ide_methods.bas");if(r)goto S_36409;} +if(qbevent){evnt(26307,2935,"ide_methods.bas");if(r)goto S_38653;} do{ -goto fornext_exit_4073; -if(!qbevent)break;evnt(25066,2681,"ide_methods.bas");}while(r); +goto fornext_exit_4185; +if(!qbevent)break;evnt(26307,2935,"ide_methods.bas");}while(r); } -fornext_continue_4073:; +fornext_continue_4185:; } -fornext_exit_4073:; +fornext_exit_4185:; do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,2683,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2937,"ide_methods.bas");}while(r); } } } -S_36416:; +S_38660:; }else{ if ((-(*__LONG_IDESELECT== 1 ))&(-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -1 ))&(-(*__LONG_MY!=*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY))){ -if(qbevent){evnt(25066,2686,"ide_methods.bas");if(r)goto S_36416;} +if(qbevent){evnt(26307,2940,"ide_methods.bas");if(r)goto S_38660;} do{ *__LONG_IDEMOUSESELECT= 1 ; -if(!qbevent)break;evnt(25066,2687,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2941,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -2 ; -if(!qbevent)break;evnt(25066,2688,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2942,"ide_methods.bas");}while(r); } } -S_36420:; +S_38664:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,2691,"ide_methods.bas");if(r)goto S_36420;} -S_36421:; +if(qbevent){evnt(26307,2945,"ide_methods.bas");if(r)goto S_38664;} +S_38665:; if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,2692,"ide_methods.bas");if(r)goto S_36421;} -S_36422:; +if(qbevent){evnt(26307,2946,"ide_methods.bas");if(r)goto S_38665;} +S_38666:; if (((-(*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX==*__LONG_MX))&(-(*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY==*__LONG_MY)))||new_error){ -if(qbevent){evnt(25066,2693,"ide_methods.bas");if(r)goto S_36422;} -S_36423:; -if ((-(((float)((func_timer(NULL,0)-*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK)))>((float)(( 0.5E+0 )))))||new_error){ -if(qbevent){evnt(25066,2694,"ide_methods.bas");if(r)goto S_36423;} +if(qbevent){evnt(26307,2947,"ide_methods.bas");if(r)goto S_38666;} +S_38667:; +if ((-(((float)(FUNC_TIMEELAPSEDSINCE(&(pass4188=*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK))))>((float)( 0.5E+0 ))))||new_error){ +if(qbevent){evnt(26307,2948,"ide_methods.bas");if(r)goto S_38667;} do{ goto LABEL_REGULARTEXTBOX_CLICK; -if(!qbevent)break;evnt(25066,2694,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2948,"ide_methods.bas");}while(r); } do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2696,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2950,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2697,"ide_methods.bas");}while(r); -S_36428:; +if(!qbevent)break;evnt(26307,2951,"ide_methods.bas");}while(r); +S_38672:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2698,"ide_methods.bas");if(r)goto S_36428;} +if(qbevent){evnt(26307,2952,"ide_methods.bas");if(r)goto S_38672;} do{ goto LABEL_REGULARTEXTBOX_CLICK; -if(!qbevent)break;evnt(25066,2699,"ide_methods.bas");}while(r); -S_36430:; +if(!qbevent)break;evnt(26307,2953,"ide_methods.bas");}while(r); +S_38674:; }else{ if (-(*__LONG_ACTIVEINCLUDELINK> 0 )){ -if(qbevent){evnt(25066,2700,"ide_methods.bas");if(r)goto S_36430;} +if(qbevent){evnt(26307,2954,"ide_methods.bas");if(r)goto S_38674;} do{ qbs_set(_FUNC_IDE2_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2703,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2957,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_add(_FUNC_IDE2_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2704,"ide_methods.bas");}while(r); -S_36433:; +if(!qbevent)break;evnt(26307,2958,"ide_methods.bas");}while(r); +S_38677:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ +if(qbevent){evnt(26307,2959,"ide_methods.bas");if(r)goto S_38677;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,__STRING_ACTIVEINCLUDELINKFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2959,"ide_methods.bas");}while(r); +} +S_38680:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ -if(qbevent){evnt(25066,2705,"ide_methods.bas");if(r)goto S_36433;} +if(qbevent){evnt(26307,2960,"ide_methods.bas");if(r)goto S_38680;} do{ *_FUNC_IDE2_LONG_BACKUPINCLUDEFILE=func_freefile(); -if(!qbevent)break;evnt(25066,2706,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2961,"ide_methods.bas");}while(r); do{ sub_open(_FUNC_IDE2_STRING_F, 2 ,NULL,NULL,*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2707,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2962,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE1,func_space(func_lof(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2708,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2963,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE, 1 ,_FUNC_IDE2_STRING_TEMPINCLUDE1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2964,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); -if(!qbevent)break;evnt(25066,2709,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("FALSE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2711,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2712,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("25",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2713,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2965,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,2715,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2967,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4076; -makefit(tqbs); -qbs_print(tqbs,0); -skip4076: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4077; -makefit(tqbs); -qbs_print(tqbs,0); -skip4077: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4078; -makefit(tqbs); -qbs_print(tqbs,0); -skip4078: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2716,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2717,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass4189= 0 )); +if(!qbevent)break;evnt(26307,2968,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,2718,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2969,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Editing $INCLUDE file...",24)); -if (new_error) goto skip4079; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4079: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Editing $INCLUDE file...",24),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2719,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2970,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4080= 1 )); -if(!qbevent)break;evnt(25066,2720,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4190= 1 )); +if(!qbevent)break;evnt(26307,2971,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2721,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2972,"ide_methods.bas");}while(r); do{ sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,2723,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2974,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(FUNC_QUOTEDFILENAME(func_command( 0 ,1)),qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(_FUNC_IDE2_STRING_F))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2724,"ide_methods.bas");}while(r); -S_36456:; +if(!qbevent)break;evnt(26307,2975,"ide_methods.bas");}while(r); +S_38694:; if (((-(*__LONG_ERRORLINEININCLUDE> 0 ))&(-(*__LONG_IDEFOCUSLINE==*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(25066,2725,"ide_methods.bas");if(r)goto S_36456;} +if(qbevent){evnt(26307,2976,"ide_methods.bas");if(r)goto S_38694;} do{ qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(_FUNC_IDE2_STRING_P,qbs_new_txt_len(" -l:",4)),FUNC_STR2(__LONG_ERRORLINEININCLUDE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2726,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2977,"ide_methods.bas");}while(r); +S_38696:; +}else{ +if ((-(*__LONG_WARNINGININCLUDELINE> 0 ))&(-(*__LONG_WARNINGININCLUDE==*__LONG_IDECY))){ +if(qbevent){evnt(26307,2978,"ide_methods.bas");if(r)goto S_38696;} +do{ +qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(_FUNC_IDE2_STRING_P,qbs_new_txt_len(" -l:",4)),FUNC_STR2(__LONG_WARNINGININCLUDELINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2979,"ide_methods.bas");}while(r); +} } do{ sub_shell(_FUNC_IDE2_STRING_P,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2728,"ide_methods.bas");}while(r); -S_36460:; -if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(25066,2730,"ide_methods.bas");if(r)goto S_36460;} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2731,"ide_methods.bas");}while(r); -} -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2733,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2734,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2981,"ide_methods.bas");}while(r); do{ sub_open(_FUNC_IDE2_STRING_F, 2 ,NULL,NULL,*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2736,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2983,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE2,func_space(func_lof(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2737,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2984,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE, 1 ,_FUNC_IDE2_STRING_TEMPINCLUDE2,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,2985,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); -if(!qbevent)break;evnt(25066,2738,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2986,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4081= 0 )); -if(!qbevent)break;evnt(25066,2740,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4191= 0 )); +if(!qbevent)break;evnt(26307,2988,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4082; -makefit(tqbs); -qbs_print(tqbs,0); -skip4082: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4083; -makefit(tqbs); -qbs_print(tqbs,0); -skip4083: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4084; -makefit(tqbs); -qbs_print(tqbs,0); -skip4084: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2741,"ide_methods.bas");}while(r); -S_36476:; +SUB_CLEARSTATUSWINDOW(&(pass4192= 0 )); +if(!qbevent)break;evnt(26307,2989,"ide_methods.bas");}while(r); +S_38706:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_TEMPINCLUDE1,_FUNC_IDE2_STRING_TEMPINCLUDE2)))||new_error){ -if(qbevent){evnt(25066,2743,"ide_methods.bas");if(r)goto S_36476;} -S_36477:; +if(qbevent){evnt(26307,2991,"ide_methods.bas");if(r)goto S_38706;} +S_38707:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(25066,2744,"ide_methods.bas");if(r)goto S_36477;} -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,2745,"ide_methods.bas");}while(r); -S_36479:; +if(qbevent){evnt(26307,2992,"ide_methods.bas");if(r)goto S_38707;} +S_38708:; if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ -if(qbevent){evnt(25066,2746,"ide_methods.bas");if(r)goto S_36479;} +if(qbevent){evnt(26307,2993,"ide_methods.bas");if(r)goto S_38708;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("...",3)); -if (new_error) goto skip4085; -makefit(tqbs); -qbs_print(tqbs,0); -skip4085: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2747,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2994,"ide_methods.bas");}while(r); }else{ do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("OK",2)); -if (new_error) goto skip4086; -makefit(tqbs); -qbs_print(tqbs,0); -skip4086: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2749,"ide_methods.bas");}while(r); -S_36483:; +if(!qbevent)break;evnt(26307,2996,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 0 ; +if(!qbevent)break;evnt(26307,2997,"ide_methods.bas");}while(r); +S_38713:; if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(25066,2750,"ide_methods.bas");if(r)goto S_36483;} +if(qbevent){evnt(26307,2998,"ide_methods.bas");if(r)goto S_38713;} do{ qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,2751,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2999,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" (",2)); -if (new_error) goto skip4087; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS))),qbs_new_txt_len(" warning",8))); -if (new_error) goto skip4087; -makefit(tqbs); -qbs_print(tqbs,0); -skip4087: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2752,"ide_methods.bas");}while(r); -S_36486:; +if(!qbevent)break;evnt(26307,3000,"ide_methods.bas");}while(r); +S_38716:; if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ -if(qbevent){evnt(25066,2753,"ide_methods.bas");if(r)goto S_36486;} +if(qbevent){evnt(26307,3001,"ide_methods.bas");if(r)goto S_38716;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("s",1)); -if (new_error) goto skip4088; -makefit(tqbs); -qbs_print(tqbs,0); -skip4088: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2753,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3001,"ide_methods.bas");}while(r); } do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" - click here or Ctrl+W to view)",32)); -if (new_error) goto skip4089; -makefit(tqbs); -qbs_print(tqbs,0); -skip4089: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3002,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3003,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 4 ; +if(!qbevent)break;evnt(26307,3004,"ide_methods.bas");}while(r); +} +S_38723:; +if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ +if(qbevent){evnt(26307,3006,"ide_methods.bas");if(r)goto S_38723;} +do{ +return_point[next_return_point++]=29; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWVARLISTREADY; +RETURN_29:; +if(!qbevent)break;evnt(26307,3006,"ide_methods.bas");}while(r); } } } }else{ do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,2759,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3010,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3011,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3014,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2764,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3016,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2765,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3017,"ide_methods.bas");}while(r); } }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2768,"ide_methods.bas");}while(r); -S_36502:; +if(!qbevent)break;evnt(26307,3020,"ide_methods.bas");}while(r); +S_38738:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(25066,2769,"ide_methods.bas");if(r)goto S_36502;} +if(qbevent){evnt(26307,3021,"ide_methods.bas");if(r)goto S_38738;} do{ goto LABEL_REGULARTEXTBOX_CLICK; -if(!qbevent)break;evnt(25066,2769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3021,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2770,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3022,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,2771,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3023,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2772,"ide_methods.bas");}while(r); -S_36508:; +if(!qbevent)break;evnt(26307,3024,"ide_methods.bas");}while(r); +S_38744:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 ))&(qbs_notequal(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_chr( 32 )))))||new_error){ -if(qbevent){evnt(25066,2773,"ide_methods.bas");if(r)goto S_36508;} -S_36509:; -fornext_value4093=*__LONG_IDECX; -fornext_finalvalue4093= 1 ; -fornext_step4093= -1 ; -if (fornext_step4093<0) fornext_step_negative4093=1; else fornext_step_negative4093=0; -if (new_error) goto fornext_error4093; -goto fornext_entrylabel4093; +if(qbevent){evnt(26307,3025,"ide_methods.bas");if(r)goto S_38744;} +S_38745:; +fornext_value4196=*__LONG_IDECX; +fornext_finalvalue4196= 1 ; +fornext_step4196= -1 ; +if (fornext_step4196<0) fornext_step_negative4196=1; else fornext_step_negative4196=0; +if (new_error) goto fornext_error4196; +goto fornext_entrylabel4196; while(1){ -fornext_value4093=fornext_step4093+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4093: -*_FUNC_IDE2_LONG_I=fornext_value4093; -if (fornext_step_negative4093){ -if (fornext_value4093fornext_finalvalue4093) break; +if (fornext_value4196>fornext_finalvalue4196) break; } -fornext_error4093:; -if(qbevent){evnt(25066,2774,"ide_methods.bas");if(r)goto S_36509;} -S_36510:; +fornext_error4196:; +if(qbevent){evnt(26307,3026,"ide_methods.bas");if(r)goto S_38745;} +S_38746:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),0)))||new_error){ -if(qbevent){evnt(25066,2775,"ide_methods.bas");if(r)goto S_36510;} +if(qbevent){evnt(26307,3027,"ide_methods.bas");if(r)goto S_38746;} do{ -goto fornext_exit_4092; -if(!qbevent)break;evnt(25066,2775,"ide_methods.bas");}while(r); +goto fornext_exit_4195; +if(!qbevent)break;evnt(26307,3027,"ide_methods.bas");}while(r); } -fornext_continue_4092:; +fornext_continue_4195:; } -fornext_exit_4092:; +fornext_exit_4195:; do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,2777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3029,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,2778,"ide_methods.bas");}while(r); -S_36516:; -fornext_value4095=*__LONG_IDECX; -fornext_finalvalue4095=_FUNC_IDE2_STRING_A->len; -fornext_step4095= 1 ; -if (fornext_step4095<0) fornext_step_negative4095=1; else fornext_step_negative4095=0; -if (new_error) goto fornext_error4095; -goto fornext_entrylabel4095; +if(!qbevent)break;evnt(26307,3030,"ide_methods.bas");}while(r); +S_38752:; +fornext_value4198=*__LONG_IDECX; +fornext_finalvalue4198=_FUNC_IDE2_STRING_A->len; +fornext_step4198= 1 ; +if (fornext_step4198<0) fornext_step_negative4198=1; else fornext_step_negative4198=0; +if (new_error) goto fornext_error4198; +goto fornext_entrylabel4198; while(1){ -fornext_value4095=fornext_step4095+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4095: -*_FUNC_IDE2_LONG_I=fornext_value4095; +fornext_value4198=fornext_step4198+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4198: +*_FUNC_IDE2_LONG_I=fornext_value4198; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4095){ -if (fornext_value4095fornext_finalvalue4095) break; +if (fornext_value4198>fornext_finalvalue4198) break; } -fornext_error4095:; -if(qbevent){evnt(25066,2779,"ide_methods.bas");if(r)goto S_36516;} -S_36517:; +fornext_error4198:; +if(qbevent){evnt(26307,3031,"ide_methods.bas");if(r)goto S_38752;} +S_38753:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),0)))||new_error){ -if(qbevent){evnt(25066,2780,"ide_methods.bas");if(r)goto S_36517;} +if(qbevent){evnt(26307,3032,"ide_methods.bas");if(r)goto S_38753;} do{ -goto fornext_exit_4094; -if(!qbevent)break;evnt(25066,2780,"ide_methods.bas");}while(r); +goto fornext_exit_4197; +if(!qbevent)break;evnt(26307,3032,"ide_methods.bas");}while(r); } -fornext_continue_4094:; +fornext_continue_4197:; } -fornext_exit_4094:; +fornext_exit_4197:; do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,2782,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3034,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,2783,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3035,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; -if(!qbevent)break;evnt(25066,2784,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3036,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2785,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3037,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,2786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3038,"ide_methods.bas");}while(r); } } } }else{ LABEL_REGULARTEXTBOX_CLICK:; -if(qbevent){evnt(25066,2790,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3042,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX=*__LONG_MX; -if(!qbevent)break;evnt(25066,2791,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3043,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY=*__LONG_MY; -if(!qbevent)break;evnt(25066,2791,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3043,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(25066,2791,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3043,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,2792,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3044,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3045,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2794,"ide_methods.bas");}while(r); -S_36535:; +if(!qbevent)break;evnt(26307,3046,"ide_methods.bas");}while(r); +S_38771:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2795,"ide_methods.bas");if(r)goto S_36535;} +if(qbevent){evnt(26307,3047,"ide_methods.bas");if(r)goto S_38771;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3047,"ide_methods.bas");}while(r); } do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,2796,"ide_methods.bas");}while(r); -S_36539:; +if(!qbevent)break;evnt(26307,3048,"ide_methods.bas");}while(r); +S_38775:; if (((~(*__LONG_KSHIFT)))||new_error){ -if(qbevent){evnt(25066,2797,"ide_methods.bas");if(r)goto S_36539;} +if(qbevent){evnt(26307,3049,"ide_methods.bas");if(r)goto S_38775;} do{ *__LONG_IDESELECTX1=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,2797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3049,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3049,"ide_methods.bas");}while(r); } do{ *__LONG_IDEMOUSESELECT= 1 ; -if(!qbevent)break;evnt(25066,2798,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3050,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; -if(!qbevent)break;evnt(25066,2799,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3051,"ide_methods.bas");}while(r); +} +S_38782:; +}else{ +if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))){ +if(qbevent){evnt(26307,3054,"ide_methods.bas");if(r)goto S_38782;} +S_38783:; +if (((-(*__BYTE_AUTOADDDEBUGCOMMAND!= 0 ))|(-(*__LONG_VWATCHON!= 0 )))||new_error){ +if(qbevent){evnt(26307,3057,"ide_methods.bas");if(r)goto S_38783;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,3058,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECYTEMP=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26307,3059,"ide_methods.bas");}while(r); +S_38786:; +if ((-(*_FUNC_IDE2_LONG_IDECYTEMP<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,3060,"ide_methods.bas");if(r)goto S_38786;} +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_IDECYTEMP; +if(!qbevent)break;evnt(26307,3061,"ide_methods.bas");}while(r); +S_38788:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26307,3062,"ide_methods.bas");if(r)goto S_38788;} +do{ +goto LABEL_TOGGLESKIPLINE; +if(!qbevent)break;evnt(26307,3063,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_TOGGLEBREAKPOINT; +if(!qbevent)break;evnt(26307,3065,"ide_methods.bas");}while(r); +} } -S_36546:; }else{ -if ((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS){ -if(qbevent){evnt(25066,2801,"ide_methods.bas");if(r)goto S_36546;} do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,2803,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3069,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2804,"ide_methods.bas");}while(r); -S_36549:; +if(!qbevent)break;evnt(26307,3070,"ide_methods.bas");}while(r); +S_38797:; if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2805,"ide_methods.bas");if(r)goto S_36549;} -S_36550:; +if(qbevent){evnt(26307,3071,"ide_methods.bas");if(r)goto S_38797;} +S_38798:; if (((~(*__LONG_KSHIFT)))||new_error){ -if(qbevent){evnt(25066,2806,"ide_methods.bas");if(r)goto S_36550;} +if(qbevent){evnt(26307,3072,"ide_methods.bas");if(r)goto S_38798;} do{ *__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(25066,2806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3072,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3072,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(25066,2807,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3073,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,2808,"ide_methods.bas");}while(r); -S_36556:; +if(!qbevent)break;evnt(26307,3074,"ide_methods.bas");}while(r); +S_38804:; }else{ if (-(*__LONG_IDECY==*__LONG_IDEN)){ -if(qbevent){evnt(25066,2809,"ide_methods.bas");if(r)goto S_36556;} +if(qbevent){evnt(26307,3075,"ide_methods.bas");if(r)goto S_38804;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2810,"ide_methods.bas");}while(r); -S_36558:; +if(!qbevent)break;evnt(26307,3076,"ide_methods.bas");}while(r); +S_38806:; if (((~(*__LONG_KSHIFT)))||new_error){ -if(qbevent){evnt(25066,2811,"ide_methods.bas");if(r)goto S_36558;} +if(qbevent){evnt(26307,3077,"ide_methods.bas");if(r)goto S_38806;} do{ *__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(25066,2811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3077,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3077,"ide_methods.bas");}while(r); } do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2812,"ide_methods.bas");}while(r); -S_36563:; +if(!qbevent)break;evnt(26307,3078,"ide_methods.bas");}while(r); +S_38811:; }else{ if (-(*__LONG_IDECY>*__LONG_IDEN)){ -if(qbevent){evnt(25066,2813,"ide_methods.bas");if(r)goto S_36563;} +if(qbevent){evnt(26307,3079,"ide_methods.bas");if(r)goto S_38811;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2814,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3080,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2815,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3081,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,2816,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3082,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; -if(!qbevent)break;evnt(25066,2818,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3084,"ide_methods.bas");}while(r); do{ *__LONG_IDEMOUSESELECT= 0 ; -if(!qbevent)break;evnt(25066,2819,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3085,"ide_methods.bas");}while(r); +} } } } LABEL_DONEWHOLEWORD:; -if(qbevent){evnt(25066,2823,"ide_methods.bas");r=0;} -S_36572:; +if(qbevent){evnt(26307,3090,"ide_methods.bas");r=0;} +S_38821:; if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(25066,2825,"ide_methods.bas");if(r)goto S_36572;} +if(qbevent){evnt(26307,3092,"ide_methods.bas");if(r)goto S_38821;} LABEL_INVOKECONTEXTUALMENU:; -if(qbevent){evnt(25066,2826,"ide_methods.bas");r=0;} -S_36573:; +if(qbevent){evnt(26307,3093,"ide_methods.bas");r=0;} +S_38822:; if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,2827,"ide_methods.bas");if(r)goto S_36573;} -S_36574:; +if(qbevent){evnt(26307,3094,"ide_methods.bas");if(r)goto S_38822;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26307,3095,"ide_methods.bas");}while(r); +S_38824:; if ((-(*__LONG_IDESELECT== 0 ))||new_error){ -if(qbevent){evnt(25066,2828,"ide_methods.bas");if(r)goto S_36574;} +if(qbevent){evnt(26307,3096,"ide_methods.bas");if(r)goto S_38824;} do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2829,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3097,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2830,"ide_methods.bas");}while(r); -S_36577:; +if(!qbevent)break;evnt(26307,3098,"ide_methods.bas");}while(r); +S_38827:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2831,"ide_methods.bas");if(r)goto S_36577;} +if(qbevent){evnt(26307,3099,"ide_methods.bas");if(r)goto S_38827;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2831,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3099,"ide_methods.bas");}while(r); } }else{ -S_36581:; +S_38831:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,2833,"ide_methods.bas");if(r)goto S_36581;} +if(qbevent){evnt(26307,3101,"ide_methods.bas");if(r)goto S_38831;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2834,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3102,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2835,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3103,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,2836,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3104,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,2836,"ide_methods.bas");}while(r); -S_36586:; +if(!qbevent)break;evnt(26307,3104,"ide_methods.bas");}while(r); +S_38836:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,2837,"ide_methods.bas");if(r)goto S_36586;} +if(qbevent){evnt(26307,3105,"ide_methods.bas");if(r)goto S_38836;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,2837,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3105,"ide_methods.bas");}while(r); } -S_36589:; -fornext_value4099=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4099=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4099= 1 ; -if (fornext_step4099<0) fornext_step_negative4099=1; else fornext_step_negative4099=0; -if (new_error) goto fornext_error4099; -goto fornext_entrylabel4099; +S_38839:; +fornext_value4202=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4202=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4202= 1 ; +if (fornext_step4202<0) fornext_step_negative4202=1; else fornext_step_negative4202=0; +if (new_error) goto fornext_error4202; +goto fornext_entrylabel4202; while(1){ -fornext_value4099=fornext_step4099+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4099: -*_FUNC_IDE2_LONG_X=fornext_value4099; -if (fornext_step_negative4099){ -if (fornext_value4099fornext_finalvalue4099) break; +if (fornext_value4202>fornext_finalvalue4202) break; } -fornext_error4099:; -if(qbevent){evnt(25066,2838,"ide_methods.bas");if(r)goto S_36589;} -S_36590:; +fornext_error4202:; +if(qbevent){evnt(26307,3106,"ide_methods.bas");if(r)goto S_38839;} +S_38840:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,2839,"ide_methods.bas");if(r)goto S_36590;} +if(qbevent){evnt(26307,3107,"ide_methods.bas");if(r)goto S_38840;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3107,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3107,"ide_methods.bas");}while(r); } -fornext_continue_4098:; +fornext_continue_4201:; } -fornext_exit_4098:; -S_36596:; +fornext_exit_4201:; +S_38846:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,2841,"ide_methods.bas");if(r)goto S_36596;} +if(qbevent){evnt(26307,3109,"ide_methods.bas");if(r)goto S_38846;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2843,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3111,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3112,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2845,"ide_methods.bas");}while(r); -S_36600:; +if(!qbevent)break;evnt(26307,3113,"ide_methods.bas");}while(r); +S_38850:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2846,"ide_methods.bas");if(r)goto S_36600;} +if(qbevent){evnt(26307,3114,"ide_methods.bas");if(r)goto S_38850;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2846,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3114,"ide_methods.bas");}while(r); } }else{ -S_36604:; +S_38854:; if (((-(((*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH)<*_FUNC_IDE2_LONG_SX1))|(-(((*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH)>*_FUNC_IDE2_LONG_SX2)))||new_error){ -if(qbevent){evnt(25066,2849,"ide_methods.bas");if(r)goto S_36604;} +if(qbevent){evnt(26307,3117,"ide_methods.bas");if(r)goto S_38854;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2850,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3118,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3119,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2852,"ide_methods.bas");}while(r); -S_36608:; +if(!qbevent)break;evnt(26307,3120,"ide_methods.bas");}while(r); +S_38858:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2853,"ide_methods.bas");if(r)goto S_36608;} +if(qbevent){evnt(26307,3121,"ide_methods.bas");if(r)goto S_38858;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2853,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3121,"ide_methods.bas");}while(r); } -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,2854,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2855,"ide_methods.bas");}while(r); } -S_36614:; +S_38862:; if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*__LONG_IDECY))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(25066,2857,"ide_methods.bas");if(r)goto S_36614;} +if(qbevent){evnt(26307,3123,"ide_methods.bas");if(r)goto S_38862;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2858,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3124,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3125,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2860,"ide_methods.bas");}while(r); -S_36618:; +if(!qbevent)break;evnt(26307,3126,"ide_methods.bas");}while(r); +S_38866:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2861,"ide_methods.bas");if(r)goto S_36618;} +if(qbevent){evnt(26307,3127,"ide_methods.bas");if(r)goto S_38866;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2861,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3127,"ide_methods.bas");}while(r); } -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,2862,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2863,"ide_methods.bas");}while(r); } } }else{ do{ *_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,2868,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3132,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,2869,"ide_methods.bas");}while(r); -S_36628:; +if(!qbevent)break;evnt(26307,3133,"ide_methods.bas");}while(r); +S_38874:; if ((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))||new_error){ -if(qbevent){evnt(25066,2870,"ide_methods.bas");if(r)goto S_36628;} +if(qbevent){evnt(26307,3134,"ide_methods.bas");if(r)goto S_38874;} do{ swap_32(&*_FUNC_IDE2_LONG_SY1,&*_FUNC_IDE2_LONG_SY2); -if(!qbevent)break;evnt(25066,2870,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3134,"ide_methods.bas");}while(r); } -S_36631:; +S_38877:; if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*_FUNC_IDE2_LONG_SY1))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*_FUNC_IDE2_LONG_SY2)))||new_error){ -if(qbevent){evnt(25066,2871,"ide_methods.bas");if(r)goto S_36631;} +if(qbevent){evnt(26307,3135,"ide_methods.bas");if(r)goto S_38877;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2872,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3136,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3137,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2874,"ide_methods.bas");}while(r); -S_36635:; +if(!qbevent)break;evnt(26307,3138,"ide_methods.bas");}while(r); +S_38881:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2875,"ide_methods.bas");if(r)goto S_36635;} +if(qbevent){evnt(26307,3139,"ide_methods.bas");if(r)goto S_38881;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3139,"ide_methods.bas");}while(r); +} +} +} } do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,2876,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3143,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,2877,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; -if(!qbevent)break;evnt(25066,2881,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3144,"ide_methods.bas");}while(r); do{ SUB_IDEMAKECONTEXTUALMENU(); -if(!qbevent)break;evnt(25066,2882,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3145,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; +if(!qbevent)break;evnt(26307,3146,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,2883,"ide_methods.bas");}while(r); -} -} -S_36648:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,2887,"ide_methods.bas");if(r)goto S_36648;} -S_36649:; -if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,2888,"ide_methods.bas");if(r)goto S_36649;} -S_36650:; -if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(25066,2889,"ide_methods.bas");if(r)goto S_36650;} +if(!qbevent)break;evnt(26307,3147,"ide_methods.bas");}while(r); +S_38892:; +}else{ +if ((-(*__LONG_IDEHELP== 1 ))&(-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ +if(qbevent){evnt(26307,3148,"ide_methods.bas");if(r)goto S_38892;} do{ -*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4101= 3 ),&(pass4102=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(25066,2890,"ide_methods.bas");}while(r); -S_36652:; +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26307,3149,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,3150,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,3151,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKECONTEXTUALMENU(); +if(!qbevent)break;evnt(26307,3152,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; +if(!qbevent)break;evnt(26307,3153,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26307,3154,"ide_methods.bas");}while(r); +} +} +} +S_38901:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,3158,"ide_methods.bas");if(r)goto S_38901;} +S_38902:; +if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26307,3159,"ide_methods.bas");if(r)goto S_38902;} +S_38903:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26307,3160,"ide_methods.bas");if(r)goto S_38903;} +do{ +*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4204= 3 ),&(pass4205=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26307,3161,"ide_methods.bas");}while(r); +S_38905:; if ((-(*_FUNC_IDE2_LONG_Y==*__LONG_MY))||new_error){ -if(qbevent){evnt(25066,2891,"ide_methods.bas");if(r)goto S_36652;} +if(qbevent){evnt(26307,3162,"ide_methods.bas");if(r)goto S_38905;} do{ *__LONG_IDEMOUSESELECT= 2 ; -if(!qbevent)break;evnt(25066,2892,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3163,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2893,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3164,"ide_methods.bas");}while(r); } } } } -S_36659:; +S_38912:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,2899,"ide_methods.bas");if(r)goto S_36659;} -S_36660:; +if(qbevent){evnt(26307,3170,"ide_methods.bas");if(r)goto S_38912;} +S_38913:; if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ -if(qbevent){evnt(25066,2900,"ide_methods.bas");if(r)goto S_36660;} +if(qbevent){evnt(26307,3171,"ide_methods.bas");if(r)goto S_38913;} do{ -*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4103= 2 ),&(pass4104=*__LONG_IDEWY- 5 ),&(pass4105=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4106= 608 )); -if(!qbevent)break;evnt(25066,2901,"ide_methods.bas");}while(r); -S_36662:; +*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4206= 2 ),&(pass4207=*__LONG_IDEWY- 5 ),&(pass4208=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4209= 608 )); +if(!qbevent)break;evnt(26307,3172,"ide_methods.bas");}while(r); +S_38915:; if ((-(*_FUNC_IDE2_LONG_X==*__LONG_MX))||new_error){ -if(qbevent){evnt(25066,2902,"ide_methods.bas");if(r)goto S_36662;} +if(qbevent){evnt(26307,3173,"ide_methods.bas");if(r)goto S_38915;} do{ *__LONG_IDEMOUSESELECT= 3 ; -if(!qbevent)break;evnt(25066,2903,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3174,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2904,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3175,"ide_methods.bas");}while(r); } } } -S_36668:; +S_38921:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ -if(qbevent){evnt(25066,2909,"ide_methods.bas");if(r)goto S_36668;} -S_36669:; +if(qbevent){evnt(26307,3180,"ide_methods.bas");if(r)goto S_38921;} +S_38922:; if (((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,2910,"ide_methods.bas");if(r)goto S_36669;} +if(qbevent){evnt(26307,3181,"ide_methods.bas");if(r)goto S_38922;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2911,"ide_methods.bas");}while(r); -S_36671:; +if(!qbevent)break;evnt(26307,3182,"ide_methods.bas");}while(r); +S_38924:; if ((-(*__LONG_MY== 3 ))||new_error){ -if(qbevent){evnt(25066,2912,"ide_methods.bas");if(r)goto S_36671;} +if(qbevent){evnt(26307,3183,"ide_methods.bas");if(r)goto S_38924;} do{ *__LONG_KB= 18432 ; -if(!qbevent)break;evnt(25066,2912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3183,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3183,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3183,"ide_methods.bas");}while(r); } -S_36676:; +S_38929:; if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ -if(qbevent){evnt(25066,2913,"ide_methods.bas");if(r)goto S_36676;} +if(qbevent){evnt(26307,3184,"ide_methods.bas");if(r)goto S_38929;} do{ *__LONG_KB= 20480 ; -if(!qbevent)break;evnt(25066,2913,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3184,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2913,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3184,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2913,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3184,"ide_methods.bas");}while(r); } -S_36681:; +S_38934:; if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ -if(qbevent){evnt(25066,2914,"ide_methods.bas");if(r)goto S_36681;} -S_36682:; +if(qbevent){evnt(26307,3185,"ide_methods.bas");if(r)goto S_38934;} +S_38935:; if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(25066,2916,"ide_methods.bas");if(r)goto S_36682;} +if(qbevent){evnt(26307,3187,"ide_methods.bas");if(r)goto S_38935;} do{ -*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4107= 3 ),&(pass4108=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(25066,2917,"ide_methods.bas");}while(r); -S_36684:; +*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4210= 3 ),&(pass4211=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26307,3188,"ide_methods.bas");}while(r); +S_38937:; if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_MY))||new_error){ -if(qbevent){evnt(25066,2918,"ide_methods.bas");if(r)goto S_36684;} -S_36685:; +if(qbevent){evnt(26307,3189,"ide_methods.bas");if(r)goto S_38937;} +S_38938:; if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_Y))||new_error){ -if(qbevent){evnt(25066,2919,"ide_methods.bas");if(r)goto S_36685;} +if(qbevent){evnt(26307,3190,"ide_methods.bas");if(r)goto S_38938;} do{ *__LONG_KB= 18688 ; -if(!qbevent)break;evnt(25066,2920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3191,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3191,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3191,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KB= 20736 ; -if(!qbevent)break;evnt(25066,2922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3193,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3193,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3193,"ide_methods.bas");}while(r); } } } } } } -S_36699:; +S_38952:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ -if(qbevent){evnt(25066,2930,"ide_methods.bas");if(r)goto S_36699;} -S_36700:; +if(qbevent){evnt(26307,3201,"ide_methods.bas");if(r)goto S_38952;} +S_38953:; if (((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))&(-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(25066,2931,"ide_methods.bas");if(r)goto S_36700;} +if(qbevent){evnt(26307,3202,"ide_methods.bas");if(r)goto S_38953;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,2932,"ide_methods.bas");}while(r); -S_36702:; +if(!qbevent)break;evnt(26307,3203,"ide_methods.bas");}while(r); +S_38955:; if ((-(*__LONG_MX== 2 ))||new_error){ -if(qbevent){evnt(25066,2933,"ide_methods.bas");if(r)goto S_36702;} +if(qbevent){evnt(26307,3204,"ide_methods.bas");if(r)goto S_38955;} do{ *__LONG_KB= 19200 ; -if(!qbevent)break;evnt(25066,2933,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3204,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2933,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3204,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2933,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3204,"ide_methods.bas");}while(r); } -S_36707:; +S_38960:; if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(25066,2934,"ide_methods.bas");if(r)goto S_36707;} +if(qbevent){evnt(26307,3205,"ide_methods.bas");if(r)goto S_38960;} do{ *__LONG_KB= 19712 ; -if(!qbevent)break;evnt(25066,2934,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3205,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2934,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3205,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2934,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3205,"ide_methods.bas");}while(r); } -S_36712:; +S_38965:; if (((-(*__LONG_MX> 2 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ -if(qbevent){evnt(25066,2935,"ide_methods.bas");if(r)goto S_36712;} +if(qbevent){evnt(26307,3206,"ide_methods.bas");if(r)goto S_38965;} do{ -*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4109= 2 ),&(pass4110=*__LONG_IDEWY- 5 ),&(pass4111=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4112= 608 )); -if(!qbevent)break;evnt(25066,2937,"ide_methods.bas");}while(r); -S_36714:; +*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4212= 2 ),&(pass4213=*__LONG_IDEWY- 5 ),&(pass4214=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4215= 608 )); +if(!qbevent)break;evnt(26307,3208,"ide_methods.bas");}while(r); +S_38967:; if ((-(*_FUNC_IDE2_LONG_X!=*__LONG_MX))||new_error){ -if(qbevent){evnt(25066,2938,"ide_methods.bas");if(r)goto S_36714;} -S_36715:; +if(qbevent){evnt(26307,3209,"ide_methods.bas");if(r)goto S_38967;} +S_38968:; if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_X))||new_error){ -if(qbevent){evnt(25066,2939,"ide_methods.bas");if(r)goto S_36715;} +if(qbevent){evnt(26307,3210,"ide_methods.bas");if(r)goto S_38968;} do{ *__LONG_IDECX=*__LONG_IDECX- 8 ; -if(!qbevent)break;evnt(25066,2940,"ide_methods.bas");}while(r); -S_36717:; +if(!qbevent)break;evnt(26307,3211,"ide_methods.bas");}while(r); +S_38970:; if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(25066,2941,"ide_methods.bas");if(r)goto S_36717;} +if(qbevent){evnt(26307,3212,"ide_methods.bas");if(r)goto S_38970;} do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,2941,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3212,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2942,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3213,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2942,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3213,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDECX=*__LONG_IDECX+ 8 ; -if(!qbevent)break;evnt(25066,2944,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3215,"ide_methods.bas");}while(r); do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,2945,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3216,"ide_methods.bas");}while(r); do{ *__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(25066,2945,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3216,"ide_methods.bas");}while(r); } } } } } -S_36731:; +S_38984:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 2 )))||new_error){ -if(qbevent){evnt(25066,2953,"ide_methods.bas");if(r)goto S_36731;} -S_36732:; +if(qbevent){evnt(26307,3224,"ide_methods.bas");if(r)goto S_38984;} +S_38985:; if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(25066,2955,"ide_methods.bas");if(r)goto S_36732;} -S_36733:; +if(qbevent){evnt(26307,3226,"ide_methods.bas");if(r)goto S_38985;} +S_38986:; if ((-(*__LONG_MY<= 4 ))||new_error){ -if(qbevent){evnt(25066,2956,"ide_methods.bas");if(r)goto S_36733;} +if(qbevent){evnt(26307,3227,"ide_methods.bas");if(r)goto S_38986;} do{ *__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,2956,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3227,"ide_methods.bas");}while(r); } -S_36736:; +S_38989:; if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ -if(qbevent){evnt(25066,2957,"ide_methods.bas");if(r)goto S_36736;} +if(qbevent){evnt(26307,3228,"ide_methods.bas");if(r)goto S_38989;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2957,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3228,"ide_methods.bas");}while(r); } -S_36739:; +S_38992:; if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ -if(qbevent){evnt(25066,2958,"ide_methods.bas");if(r)goto S_36739;} +if(qbevent){evnt(26307,3229,"ide_methods.bas");if(r)goto S_38992;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_MY; -if(!qbevent)break;evnt(25066,2959,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3230,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y- 3 - 2 + 0.5E+0 ; -if(!qbevent)break;evnt(25066,2960,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3231,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); -if(!qbevent)break;evnt(25066,2961,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3232,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); -if(!qbevent)break;evnt(25066,2962,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3233,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,2963,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3234,"ide_methods.bas");}while(r); } } } -S_36748:; +S_39001:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 3 )))||new_error){ -if(qbevent){evnt(25066,2968,"ide_methods.bas");if(r)goto S_36748;} -S_36749:; +if(qbevent){evnt(26307,3239,"ide_methods.bas");if(r)goto S_39001;} +S_39002:; if ((-(*__LONG_MX<= 3 ))||new_error){ -if(qbevent){evnt(25066,2970,"ide_methods.bas");if(r)goto S_36749;} +if(qbevent){evnt(26307,3241,"ide_methods.bas");if(r)goto S_39002;} do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,2970,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3241,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(25066,2970,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3241,"ide_methods.bas");}while(r); } -S_36753:; +S_39006:; if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ -if(qbevent){evnt(25066,2971,"ide_methods.bas");if(r)goto S_36753;} +if(qbevent){evnt(26307,3242,"ide_methods.bas");if(r)goto S_39006;} do{ *__LONG_IDESX= 608 ; -if(!qbevent)break;evnt(25066,2971,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3242,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(25066,2971,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3242,"ide_methods.bas");}while(r); } -S_36757:; +S_39010:; if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ -if(qbevent){evnt(25066,2972,"ide_methods.bas");if(r)goto S_36757;} +if(qbevent){evnt(26307,3243,"ide_methods.bas");if(r)goto S_39010;} do{ *_FUNC_IDE2_LONG_X=*__LONG_MX; -if(!qbevent)break;evnt(25066,2973,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3244,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 2 - 2 + 0.5E+0 ; -if(!qbevent)break;evnt(25066,2974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3245,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); -if(!qbevent)break;evnt(25066,2975,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3246,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*( 608 - 1 ))+( 1 )); -if(!qbevent)break;evnt(25066,2976,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3247,"ide_methods.bas");}while(r); do{ *__LONG_IDESX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,2977,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3248,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(25066,2978,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3249,"ide_methods.bas");}while(r); } } -S_36766:; +S_39019:; if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT<= 1 )))||new_error){ -if(qbevent){evnt(25066,2982,"ide_methods.bas");if(r)goto S_36766;} -S_36767:; +if(qbevent){evnt(26307,3253,"ide_methods.bas");if(r)goto S_39019;} +S_39020:; if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,2983,"ide_methods.bas");if(r)goto S_36767;} -S_36768:; +if(qbevent){evnt(26307,3254,"ide_methods.bas");if(r)goto S_39020;} +S_39021:; if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,2984,"ide_methods.bas");if(r)goto S_36768;} +if(qbevent){evnt(26307,3255,"ide_methods.bas");if(r)goto S_39021;} do{ *__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(25066,2985,"ide_methods.bas");}while(r); -S_36770:; +if(!qbevent)break;evnt(26307,3256,"ide_methods.bas");}while(r); +S_39023:; if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(25066,2986,"ide_methods.bas");if(r)goto S_36770;} +if(qbevent){evnt(26307,3257,"ide_methods.bas");if(r)goto S_39023;} do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,2986,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3257,"ide_methods.bas");}while(r); } do{ *__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,2987,"ide_methods.bas");}while(r); -S_36774:; +if(!qbevent)break;evnt(26307,3258,"ide_methods.bas");}while(r); +S_39027:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2988,"ide_methods.bas");if(r)goto S_36774;} +if(qbevent){evnt(26307,3259,"ide_methods.bas");if(r)goto S_39027;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3259,"ide_methods.bas");}while(r); } } } } -S_36780:; +S_39033:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,2993,"ide_methods.bas");if(r)goto S_36780;} -S_36781:; +if(qbevent){evnt(26307,3264,"ide_methods.bas");if(r)goto S_39033;} +S_39034:; if ((((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))|(-(*__LONG_MX==*__LONG_IDEWX))|(-(*__LONG_MY<= 2 ))|(-(*__LONG_MY>=(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,2994,"ide_methods.bas");if(r)goto S_36781;} -S_36782:; +if(qbevent){evnt(26307,3265,"ide_methods.bas");if(r)goto S_39034;} +S_39035:; if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,2995,"ide_methods.bas");if(r)goto S_36782;} -S_36783:; +if(qbevent){evnt(26307,3266,"ide_methods.bas");if(r)goto S_39035;} +S_39036:; if ((-(*__LONG_MY>=(*__LONG_IDEWY- 5 )))||new_error){ -if(qbevent){evnt(25066,2998,"ide_methods.bas");if(r)goto S_36783;} +if(qbevent){evnt(26307,3269,"ide_methods.bas");if(r)goto S_39036;} do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(25066,2998,"ide_methods.bas");}while(r); -S_36785:; +if(!qbevent)break;evnt(26307,3269,"ide_methods.bas");}while(r); +S_39038:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,2998,"ide_methods.bas");if(r)goto S_36785;} +if(qbevent){evnt(26307,3269,"ide_methods.bas");if(r)goto S_39038;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,2998,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3269,"ide_methods.bas");}while(r); } } -S_36789:; +S_39042:; if ((-(*__LONG_MY<= 2 ))||new_error){ -if(qbevent){evnt(25066,2999,"ide_methods.bas");if(r)goto S_36789;} +if(qbevent){evnt(26307,3270,"ide_methods.bas");if(r)goto S_39042;} do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(25066,2999,"ide_methods.bas");}while(r); -S_36791:; +if(!qbevent)break;evnt(26307,3270,"ide_methods.bas");}while(r); +S_39044:; if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(25066,2999,"ide_methods.bas");if(r)goto S_36791;} +if(qbevent){evnt(26307,3270,"ide_methods.bas");if(r)goto S_39044;} do{ *__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,2999,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3270,"ide_methods.bas");}while(r); } } -S_36795:; +S_39048:; if (((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))||new_error){ -if(qbevent){evnt(25066,3000,"ide_methods.bas");if(r)goto S_36795;} +if(qbevent){evnt(26307,3271,"ide_methods.bas");if(r)goto S_39048;} do{ *__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,3000,"ide_methods.bas");}while(r); -S_36797:; +if(!qbevent)break;evnt(26307,3271,"ide_methods.bas");}while(r); +S_39050:; if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(25066,3000,"ide_methods.bas");if(r)goto S_36797;} +if(qbevent){evnt(26307,3271,"ide_methods.bas");if(r)goto S_39050;} do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3000,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3271,"ide_methods.bas");}while(r); } } -S_36801:; +S_39054:; if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,3001,"ide_methods.bas");if(r)goto S_36801;} +if(qbevent){evnt(26307,3272,"ide_methods.bas");if(r)goto S_39054;} do{ *__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(25066,3001,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3272,"ide_methods.bas");}while(r); } do{ SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,3002,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3273,"ide_methods.bas");}while(r); } } } -S_36808:; +S_39061:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))))||new_error){ -if(qbevent){evnt(25066,3013,"ide_methods.bas");if(r)goto S_36808;} +if(qbevent){evnt(26307,3284,"ide_methods.bas");if(r)goto S_39061;} LABEL_IDEMSELECTALL:; -if(qbevent){evnt(25066,3014,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3285,"ide_methods.bas");r=0;} do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,3015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3286,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(25066,3015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3286,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1= 1 ; -if(!qbevent)break;evnt(25066,3015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3286,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,3016,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3287,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3017,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3288,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3018,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3289,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3019,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3290,"ide_methods.bas");}while(r); } -S_36817:; +S_39070:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("G",1)))))||new_error){ -if(qbevent){evnt(25066,3022,"ide_methods.bas");if(r)goto S_36817;} -S_36818:; +if(qbevent){evnt(26307,3293,"ide_methods.bas");if(r)goto S_39070;} +S_39071:; if ((*__LONG_KSHIFT&(-(*__LONG_IDEFOCUSLINE> 0 )))||new_error){ -if(qbevent){evnt(25066,3023,"ide_methods.bas");if(r)goto S_36818;} +if(qbevent){evnt(26307,3294,"ide_methods.bas");if(r)goto S_39071;} do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3024,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3295,"ide_methods.bas");}while(r); do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,3025,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,3296,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEFOCUSLINE; -if(!qbevent)break;evnt(25066,3026,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3297,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3027,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3298,"ide_methods.bas");}while(r); }else{ do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEGOTOBOX(); -if(!qbevent)break;evnt(25066,3029,"ide_methods.bas");}while(r); +SUB_IDEGOTOBOX(); +if(!qbevent)break;evnt(26307,3300,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3031,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3302,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3031,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3031,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3031,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3302,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3033,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3304,"ide_methods.bas");}while(r); } -S_36832:; +S_39083:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1)))))||new_error){ -if(qbevent){evnt(25066,3036,"ide_methods.bas");if(r)goto S_36832;} +if(qbevent){evnt(26307,3307,"ide_methods.bas");if(r)goto S_39083;} do{ goto LABEL_CTRLNEW; -if(!qbevent)break;evnt(25066,3037,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3308,"ide_methods.bas");}while(r); } -S_36835:; +S_39086:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("O",1)))))||new_error){ -if(qbevent){evnt(25066,3040,"ide_methods.bas");if(r)goto S_36835;} +if(qbevent){evnt(26307,3311,"ide_methods.bas");if(r)goto S_39086;} do{ qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3041,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3312,"ide_methods.bas");}while(r); do{ goto LABEL_CTRLOPEN; -if(!qbevent)break;evnt(25066,3042,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3313,"ide_methods.bas");}while(r); } -S_36839:; +S_39090:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("P",1)))))||new_error){ +if(qbevent){evnt(26307,3316,"ide_methods.bas");if(r)goto S_39090;} +do{ +goto LABEL_TOGGLESKIPLINE; +if(!qbevent)break;evnt(26307,3317,"ide_methods.bas");}while(r); +} +S_39093:; if ((qbs_cleanup(qbs_tmp_base,((~(*__LONG_KSHIFT)))&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("R",1)))))||new_error){ -if(qbevent){evnt(25066,3045,"ide_methods.bas");if(r)goto S_36839;} +if(qbevent){evnt(26307,3320,"ide_methods.bas");if(r)goto S_39093;} do{ goto LABEL_CTRLADDCOMMENT; -if(!qbevent)break;evnt(25066,3046,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3321,"ide_methods.bas");}while(r); } -S_36842:; +S_39096:; if ((qbs_cleanup(qbs_tmp_base,((~(*__LONG_KSHIFT)))&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("T",1)))))||new_error){ -if(qbevent){evnt(25066,3049,"ide_methods.bas");if(r)goto S_36842;} +if(qbevent){evnt(26307,3324,"ide_methods.bas");if(r)goto S_39096;} do{ goto LABEL_CTRLTOGGLECOMMENT; -if(!qbevent)break;evnt(25066,3050,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3325,"ide_methods.bas");}while(r); } -S_36845:; +S_39099:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("R",1)))))||new_error){ -if(qbevent){evnt(25066,3053,"ide_methods.bas");if(r)goto S_36845;} +if(qbevent){evnt(26307,3328,"ide_methods.bas");if(r)goto S_39099;} do{ goto LABEL_CTRLREMOVECOMMENT; -if(!qbevent)break;evnt(25066,3054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3329,"ide_methods.bas");}while(r); } -S_36848:; +S_39102:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1)))))||new_error){ -if(qbevent){evnt(25066,3057,"ide_methods.bas");if(r)goto S_36848;} -S_36849:; +if(qbevent){evnt(26307,3332,"ide_methods.bas");if(r)goto S_39102;} +S_39103:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,3058,"ide_methods.bas");if(r)goto S_36849;} +if(qbevent){evnt(26307,3333,"ide_methods.bas");if(r)goto S_39103;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3059,"ide_methods.bas");}while(r); -S_36851:; +if(!qbevent)break;evnt(26307,3334,"ide_methods.bas");}while(r); +S_39105:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,3060,"ide_methods.bas");if(r)goto S_36851;} +if(qbevent){evnt(26307,3335,"ide_methods.bas");if(r)goto S_39105;} do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4217= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3061,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3336,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4218= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3063,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3338,"ide_methods.bas");}while(r); +} +S_39110:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,3340,"ide_methods.bas");if(r)goto S_39110;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,3340,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,3340,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,3340,"ide_methods.bas");}while(r); } }else{ do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3342,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3068,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3344,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3068,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3068,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3068,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3344,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,3068,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3344,"ide_methods.bas");}while(r); } -S_36865:; +S_39122:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ -if(qbevent){evnt(25066,3071,"ide_methods.bas");if(r)goto S_36865;} +if(qbevent){evnt(26307,3347,"ide_methods.bas");if(r)goto S_39122;} +S_39123:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26307,3348,"ide_methods.bas");if(r)goto S_39123;} +S_39124:; +if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ +if(qbevent){evnt(26307,3349,"ide_methods.bas");if(r)goto S_39124;} do{ -goto LABEL_IDESUBSJMP; -if(!qbevent)break;evnt(25066,3072,"ide_methods.bas");}while(r); +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,3350,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12)); +if(!qbevent)break;evnt(26307,3351,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8)); +if(!qbevent)break;evnt(26307,3352,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+4)); +if(!qbevent)break;evnt(26307,3353,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16)); +if(!qbevent)break;evnt(26307,3354,"ide_methods.bas");}while(r); +do{ +*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; +if(!qbevent)break;evnt(26307,3355,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,3356,"ide_methods.bas");}while(r); } -S_36868:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("W",1)))))||new_error){ -if(qbevent){evnt(25066,3075,"ide_methods.bas");if(r)goto S_36868;} -S_36869:; -if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(25066,3076,"ide_methods.bas");if(r)goto S_36869;} -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); -if(!qbevent)break;evnt(25066,3077,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3079,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3079,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3079,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3079,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3080,"ide_methods.bas");}while(r); }else{ do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Compilation status",18),qbs_new_txt_len("No warnings to display.",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3082,"ide_methods.bas");}while(r); +goto LABEL_IDESUBSJMP; +if(!qbevent)break;evnt(26307,3359,"ide_methods.bas");}while(r); +} +} +S_39137:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("W",1)))))||new_error){ +if(qbevent){evnt(26307,3363,"ide_methods.bas");if(r)goto S_39137;} +S_39138:; +if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ +if(qbevent){evnt(26307,3364,"ide_methods.bas");if(r)goto S_39138;} +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); +if(!qbevent)break;evnt(26307,3365,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3083,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3367,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3083,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3367,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3083,"ide_methods.bas");}while(r); +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3368,"ide_methods.bas");}while(r); +}else{ do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3083,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Compilation status",18),qbs_new_txt_len("No warnings to display.",23),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3370,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,3371,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,3371,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,3084,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3372,"ide_methods.bas");}while(r); } } -S_36885:; +S_39150:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ -if(qbevent){evnt(25066,3088,"ide_methods.bas");if(r)goto S_36885;} +if(qbevent){evnt(26307,3376,"ide_methods.bas");if(r)goto S_39150;} LABEL_IDEMUNDO:; -if(qbevent){evnt(25066,3089,"ide_methods.bas");r=0;} -S_36886:; +if(qbevent){evnt(26307,3377,"ide_methods.bas");r=0;} +S_39151:; if ((*__LONG_IDEUNDOPOS)||new_error){ -if(qbevent){evnt(25066,3090,"ide_methods.bas");if(r)goto S_36886;} +if(qbevent){evnt(26307,3378,"ide_methods.bas");if(r)goto S_39151;} do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3091,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3379,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3380,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3380,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3380,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3380,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3380,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U= 0 ; -if(!qbevent)break;evnt(25066,3095,"ide_methods.bas");}while(r); -S_36894:; +if(!qbevent)break;evnt(26307,3383,"ide_methods.bas");}while(r); +S_39159:; if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,3096,"ide_methods.bas");if(r)goto S_36894;} -S_36895:; +if(qbevent){evnt(26307,3384,"ide_methods.bas");if(r)goto S_39159;} +S_39160:; if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,3098,"ide_methods.bas");if(r)goto S_36895;} +if(qbevent){evnt(26307,3386,"ide_methods.bas");if(r)goto S_39160;} do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4114),1); -if(!qbevent)break;evnt(25066,3099,"ide_methods.bas");}while(r); +sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4219),1); +if(!qbevent)break;evnt(26307,3387,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; -if(!qbevent)break;evnt(25066,3100,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3388,"ide_methods.bas");}while(r); } }else{ -S_36900:; +S_39165:; if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,3104,"ide_methods.bas");if(r)goto S_36900;} +if(qbevent){evnt(26307,3392,"ide_methods.bas");if(r)goto S_39165;} do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4115),1); -if(!qbevent)break;evnt(25066,3105,"ide_methods.bas");}while(r); +sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4220),1); +if(!qbevent)break;evnt(26307,3393,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; -if(!qbevent)break;evnt(25066,3106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3394,"ide_methods.bas");}while(r); } -S_36904:; +S_39169:; if ((-(*__LONG_IDEUNDOPOS<=*_FUNC_IDE2_LONG_P2))||new_error){ -if(qbevent){evnt(25066,3108,"ide_methods.bas");if(r)goto S_36904;} -S_36905:; +if(qbevent){evnt(26307,3396,"ide_methods.bas");if(r)goto S_39169;} +S_39170:; if ((-(*__LONG_IDEUNDOPOS== 13 ))||new_error){ -if(qbevent){evnt(25066,3109,"ide_methods.bas");if(r)goto S_36905;} +if(qbevent){evnt(26307,3397,"ide_methods.bas");if(r)goto S_39170;} do{ *_FUNC_IDE2_LONG_U=*_FUNC_IDE2_LONG_PLAST; -if(!qbevent)break;evnt(25066,3110,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3398,"ide_methods.bas");}while(r); }else{ do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4116),1); -if(!qbevent)break;evnt(25066,3112,"ide_methods.bas");}while(r); +sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4221),1); +if(!qbevent)break;evnt(26307,3400,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; -if(!qbevent)break;evnt(25066,3113,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3401,"ide_methods.bas");}while(r); } } } -S_36913:; +S_39178:; if ((*_FUNC_IDE2_LONG_U)||new_error){ -if(qbevent){evnt(25066,3118,"ide_methods.bas");if(r)goto S_36913;} -S_36914:; +if(qbevent){evnt(26307,3406,"ide_methods.bas");if(r)goto S_39178;} +S_39179:; if ((-(*__LONG_IDEUNDOPOS==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(25066,3120,"ide_methods.bas");if(r)goto S_36914;} +if(qbevent){evnt(26307,3408,"ide_methods.bas");if(r)goto S_39179;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3123,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3411,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Undo",4),qbs_new_txt_len("Undo through previous program content?",38))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3124,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3412,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3125,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3413,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3125,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3125,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3125,"ide_methods.bas");}while(r); -S_36921:; +if(!qbevent)break;evnt(26307,3413,"ide_methods.bas");}while(r); +S_39184:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_WHAT,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,3126,"ide_methods.bas");if(r)goto S_36921;} +if(qbevent){evnt(26307,3414,"ide_methods.bas");if(r)goto S_39184;} do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,3127,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3415,"ide_methods.bas");}while(r); do{ goto LABEL_SKIPUNDO; -if(!qbevent)break;evnt(25066,3128,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3416,"ide_methods.bas");}while(r); } -S_36925:; +S_39188:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEUNSAVED== 1 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(25066,3130,"ide_methods.bas");if(r)goto S_36925;} +if(qbevent){evnt(26307,3418,"ide_methods.bas");if(r)goto S_39188;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3131,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3419,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3132,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3420,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3133,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3421,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3133,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3133,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3133,"ide_methods.bas");}while(r); -S_36932:; +if(!qbevent)break;evnt(26307,3421,"ide_methods.bas");}while(r); +S_39193:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,3134,"ide_methods.bas");if(r)goto S_36932;} +if(qbevent){evnt(26307,3422,"ide_methods.bas");if(r)goto S_39193;} do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,3134,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3422,"ide_methods.bas");}while(r); do{ goto LABEL_SKIPUNDO; -if(!qbevent)break;evnt(25066,3134,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3422,"ide_methods.bas");}while(r); } -S_36936:; +S_39197:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,3135,"ide_methods.bas");if(r)goto S_36936;} +if(qbevent){evnt(26307,3423,"ide_methods.bas");if(r)goto S_39197;} do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3136,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3424,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,3139,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3427,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3140,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3428,"ide_methods.bas");}while(r); do{ -sub__title(qbs_new_txt_len("QB64",4)); +sub__title(__STRING_WINDOWTITLE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3141,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3429,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(25066,3142,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3430,"ide_methods.bas");}while(r); } do{ *__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; -if(!qbevent)break;evnt(25066,3145,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3433,"ide_methods.bas");}while(r); do{ sub_seek( 150 ,*_FUNC_IDE2_LONG_U); -if(!qbevent)break;evnt(25066,3148,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3436,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4117),0); -if(!qbevent)break;evnt(25066,3149,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4222),0); +if(!qbevent)break;evnt(26307,3437,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4118),0); -if(!qbevent)break;evnt(25066,3150,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4223),0); +if(!qbevent)break;evnt(26307,3438,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4119),0); -if(!qbevent)break;evnt(25066,3150,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4224),0); +if(!qbevent)break;evnt(26307,3438,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4120),0); -if(!qbevent)break;evnt(25066,3151,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4225),0); +if(!qbevent)break;evnt(26307,3439,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4121),0); -if(!qbevent)break;evnt(25066,3151,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4226),0); +if(!qbevent)break;evnt(26307,3439,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4122),0); -if(!qbevent)break;evnt(25066,3152,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4227),0); +if(!qbevent)break;evnt(26307,3440,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4123),0); -if(!qbevent)break;evnt(25066,3152,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4228),0); +if(!qbevent)break;evnt(26307,3440,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4124),0); -if(!qbevent)break;evnt(25066,3152,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4229),0); +if(!qbevent)break;evnt(26307,3440,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4125),0); -if(!qbevent)break;evnt(25066,3153,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4230),0); +if(!qbevent)break;evnt(26307,3441,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4126),0); -if(!qbevent)break;evnt(25066,3154,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4231),0); +if(!qbevent)break;evnt(26307,3442,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4127),0); -if(!qbevent)break;evnt(25066,3155,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4232),0); +if(!qbevent)break;evnt(26307,3443,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4128),0); -if(!qbevent)break;evnt(25066,3157,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4233),0); +if(!qbevent)break;evnt(26307,3445,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -132385,186 +137242,189 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(25066,3157,"ide_methods.bas");}while(r); -S_36960:; -fornext_value4130= 1 ; -fornext_finalvalue4130=*__LONG_IDEBMKN; -fornext_step4130= 1 ; -if (fornext_step4130<0) fornext_step_negative4130=1; else fornext_step_negative4130=0; -if (new_error) goto fornext_error4130; -goto fornext_entrylabel4130; +if(!qbevent)break;evnt(26307,3445,"ide_methods.bas");}while(r); +S_39221:; +fornext_value4235= 1 ; +fornext_finalvalue4235=*__LONG_IDEBMKN; +fornext_step4235= 1 ; +if (fornext_step4235<0) fornext_step_negative4235=1; else fornext_step_negative4235=0; +if (new_error) goto fornext_error4235; +goto fornext_entrylabel4235; while(1){ -fornext_value4130=fornext_step4130+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel4130: -*_FUNC_IDE2_LONG_BI=fornext_value4130; -if (fornext_step_negative4130){ -if (fornext_value4130fornext_finalvalue4130) break; +if (fornext_value4235>fornext_finalvalue4235) break; } -fornext_error4130:; -if(qbevent){evnt(25066,3158,"ide_methods.bas");if(r)goto S_36960;} +fornext_error4235:; +if(qbevent){evnt(26307,3446,"ide_methods.bas");if(r)goto S_39221;} do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4131),0); -if(!qbevent)break;evnt(25066,3158,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4236),0); +if(!qbevent)break;evnt(26307,3446,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4132),0); -if(!qbevent)break;evnt(25066,3158,"ide_methods.bas");}while(r); -fornext_continue_4129:; +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4237),0); +if(!qbevent)break;evnt(26307,3446,"ide_methods.bas");}while(r); +fornext_continue_4234:; } -fornext_exit_4129:; +fornext_exit_4234:; do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4133),0); -if(!qbevent)break;evnt(25066,3159,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4238),0); +if(!qbevent)break;evnt(26307,3447,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3159,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3447,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,__STRING_IDET,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3159,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3447,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3161,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3449,"ide_methods.bas");}while(r); do{ *__LONG_IDENOUNDO= 1 ; -if(!qbevent)break;evnt(25066,3161,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3449,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3449,"ide_methods.bas");}while(r); } LABEL_SKIPUNDO:; -if(qbevent){evnt(25066,3165,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3453,"ide_methods.bas");r=0;} do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,3166,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3454,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3168,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3456,"ide_methods.bas");}while(r); } -S_36974:; +S_39236:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1)))))||new_error){ -if(qbevent){evnt(25066,3173,"ide_methods.bas");if(r)goto S_36974;} +if(qbevent){evnt(26307,3461,"ide_methods.bas");if(r)goto S_39236;} LABEL_IDEMREDO:; -if(qbevent){evnt(25066,3174,"ide_methods.bas");r=0;} -S_36975:; +if(qbevent){evnt(26307,3462,"ide_methods.bas");r=0;} +S_39237:; if ((*__LONG_IDEUNDOPOS)||new_error){ -if(qbevent){evnt(25066,3175,"ide_methods.bas");if(r)goto S_36975;} +if(qbevent){evnt(26307,3463,"ide_methods.bas");if(r)goto S_39237;} do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3176,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3464,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3177,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3465,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3177,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3465,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3177,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3465,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3177,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3465,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3177,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3465,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U= 0 ; -if(!qbevent)break;evnt(25066,3180,"ide_methods.bas");}while(r); -S_36983:; +if(!qbevent)break;evnt(26307,3468,"ide_methods.bas");}while(r); +S_39245:; if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,3181,"ide_methods.bas");if(r)goto S_36983;} -S_36984:; +if(qbevent){evnt(26307,3469,"ide_methods.bas");if(r)goto S_39245;} +S_39246:; if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ -if(qbevent){evnt(25066,3183,"ide_methods.bas");if(r)goto S_36984;} +if(qbevent){evnt(26307,3471,"ide_methods.bas");if(r)goto S_39246;} do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4134),1); -if(!qbevent)break;evnt(25066,3184,"ide_methods.bas");}while(r); +sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4239),1); +if(!qbevent)break;evnt(26307,3472,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; -if(!qbevent)break;evnt(25066,3185,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3473,"ide_methods.bas");}while(r); } }else{ -S_36989:; +S_39251:; if ((-(*__LONG_IDEUNDOPOS>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(25066,3189,"ide_methods.bas");if(r)goto S_36989;} -S_36990:; +if(qbevent){evnt(26307,3477,"ide_methods.bas");if(r)goto S_39251;} +S_39252:; if ((-(*__LONG_IDEUNDOPOS==*_FUNC_IDE2_LONG_PLAST))||new_error){ -if(qbevent){evnt(25066,3190,"ide_methods.bas");if(r)goto S_36990;} +if(qbevent){evnt(26307,3478,"ide_methods.bas");if(r)goto S_39252;} do{ *_FUNC_IDE2_LONG_U= 13 ; -if(!qbevent)break;evnt(25066,3191,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3479,"ide_methods.bas");}while(r); }else{ do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4135),1); -if(!qbevent)break;evnt(25066,3193,"ide_methods.bas");}while(r); +sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4240),1); +if(!qbevent)break;evnt(26307,3481,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; -if(!qbevent)break;evnt(25066,3194,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3482,"ide_methods.bas");}while(r); } }else{ -S_36997:; +S_39259:; if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ -if(qbevent){evnt(25066,3197,"ide_methods.bas");if(r)goto S_36997;} +if(qbevent){evnt(26307,3485,"ide_methods.bas");if(r)goto S_39259;} do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4136),1); -if(!qbevent)break;evnt(25066,3198,"ide_methods.bas");}while(r); +sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4241),1); +if(!qbevent)break;evnt(26307,3486,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; -if(!qbevent)break;evnt(25066,3199,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3487,"ide_methods.bas");}while(r); } } } -S_37003:; +S_39265:; if ((*_FUNC_IDE2_LONG_U)||new_error){ -if(qbevent){evnt(25066,3204,"ide_methods.bas");if(r)goto S_37003;} +if(qbevent){evnt(26307,3492,"ide_methods.bas");if(r)goto S_39265;} do{ *__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; -if(!qbevent)break;evnt(25066,3206,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3494,"ide_methods.bas");}while(r); do{ sub_seek( 150 ,*_FUNC_IDE2_LONG_U); -if(!qbevent)break;evnt(25066,3209,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3497,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4137),0); -if(!qbevent)break;evnt(25066,3210,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4242),0); +if(!qbevent)break;evnt(26307,3498,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4138),0); -if(!qbevent)break;evnt(25066,3211,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4243),0); +if(!qbevent)break;evnt(26307,3499,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4139),0); -if(!qbevent)break;evnt(25066,3211,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4244),0); +if(!qbevent)break;evnt(26307,3499,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4140),0); -if(!qbevent)break;evnt(25066,3212,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4245),0); +if(!qbevent)break;evnt(26307,3500,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4141),0); -if(!qbevent)break;evnt(25066,3212,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4246),0); +if(!qbevent)break;evnt(26307,3500,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4142),0); -if(!qbevent)break;evnt(25066,3213,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4247),0); +if(!qbevent)break;evnt(26307,3501,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4143),0); -if(!qbevent)break;evnt(25066,3213,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4248),0); +if(!qbevent)break;evnt(26307,3501,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4144),0); -if(!qbevent)break;evnt(25066,3213,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4249),0); +if(!qbevent)break;evnt(26307,3501,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4145),0); -if(!qbevent)break;evnt(25066,3214,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4250),0); +if(!qbevent)break;evnt(26307,3502,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4146),0); -if(!qbevent)break;evnt(25066,3215,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4251),0); +if(!qbevent)break;evnt(26307,3503,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4147),0); -if(!qbevent)break;evnt(25066,3216,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4252),0); +if(!qbevent)break;evnt(26307,3504,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4148),0); -if(!qbevent)break;evnt(25066,3218,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4253),0); +if(!qbevent)break;evnt(26307,3506,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -132590,491 +137450,310 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(25066,3218,"ide_methods.bas");}while(r); -S_37019:; -fornext_value4150= 1 ; -fornext_finalvalue4150=*__LONG_IDEBMKN; -fornext_step4150= 1 ; -if (fornext_step4150<0) fornext_step_negative4150=1; else fornext_step_negative4150=0; -if (new_error) goto fornext_error4150; -goto fornext_entrylabel4150; +if(!qbevent)break;evnt(26307,3506,"ide_methods.bas");}while(r); +S_39281:; +fornext_value4255= 1 ; +fornext_finalvalue4255=*__LONG_IDEBMKN; +fornext_step4255= 1 ; +if (fornext_step4255<0) fornext_step_negative4255=1; else fornext_step_negative4255=0; +if (new_error) goto fornext_error4255; +goto fornext_entrylabel4255; while(1){ -fornext_value4150=fornext_step4150+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel4150: -*_FUNC_IDE2_LONG_BI=fornext_value4150; -if (fornext_step_negative4150){ -if (fornext_value4150fornext_finalvalue4150) break; +if (fornext_value4255>fornext_finalvalue4255) break; } -fornext_error4150:; -if(qbevent){evnt(25066,3219,"ide_methods.bas");if(r)goto S_37019;} +fornext_error4255:; +if(qbevent){evnt(26307,3507,"ide_methods.bas");if(r)goto S_39281;} do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4151),0); -if(!qbevent)break;evnt(25066,3219,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4256),0); +if(!qbevent)break;evnt(26307,3507,"ide_methods.bas");}while(r); do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4152),0); -if(!qbevent)break;evnt(25066,3219,"ide_methods.bas");}while(r); -fornext_continue_4149:; +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4257),0); +if(!qbevent)break;evnt(26307,3507,"ide_methods.bas");}while(r); +fornext_continue_4254:; } -fornext_exit_4149:; +fornext_exit_4254:; do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4153),0); -if(!qbevent)break;evnt(25066,3220,"ide_methods.bas");}while(r); +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4258),0); +if(!qbevent)break;evnt(26307,3508,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3508,"ide_methods.bas");}while(r); do{ sub_get2( 150 ,NULL,__STRING_IDET,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3508,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3222,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3510,"ide_methods.bas");}while(r); do{ *__LONG_IDENOUNDO= 1 ; -if(!qbevent)break;evnt(25066,3222,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3510,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3510,"ide_methods.bas");}while(r); } do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,3226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3514,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3516,"ide_methods.bas");}while(r); } -S_37033:; +S_39296:; if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1))))))&(-(*__LONG_IDESELECT== 1 ))))||new_error){ -if(qbevent){evnt(25066,3232,"ide_methods.bas");if(r)goto S_37033;} +if(qbevent){evnt(26307,3520,"ide_methods.bas");if(r)goto S_39296;} LABEL_IDEMCUT:; -if(qbevent){evnt(25066,3233,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3521,"ide_methods.bas");r=0;} do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3234,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3522,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3523,"ide_methods.bas");}while(r); do{ goto LABEL_COPY2CLIP; -if(!qbevent)break;evnt(25066,3235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3524,"ide_methods.bas");}while(r); } -S_37037:; +S_39301:; if (((((-(*__LONG_KB== 21248 ))|(-(*__LONG_KB== 8 ))))&(-(*__LONG_IDESELECT== 1 )))||new_error){ -if(qbevent){evnt(25066,3238,"ide_methods.bas");if(r)goto S_37037;} -S_37038:; +if(qbevent){evnt(26307,3527,"ide_methods.bas");if(r)goto S_39301;} +S_39302:; if (((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))|(-(*__LONG_IDESELECTX1!=*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(25066,3239,"ide_methods.bas");if(r)goto S_37038;} +if(qbevent){evnt(26307,3528,"ide_methods.bas");if(r)goto S_39302;} do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3240,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3529,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=26; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DELSELECT; -RETURN_26:; -if(!qbevent)break;evnt(25066,3241,"ide_methods.bas");}while(r); +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3530,"ide_methods.bas");}while(r); +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26307,3531,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3532,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3244,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3534,"ide_methods.bas");}while(r); } } -S_37046:; +S_39311:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("V",1))))))||new_error){ -if(qbevent){evnt(25066,3249,"ide_methods.bas");if(r)goto S_37046;} +if(qbevent){evnt(26307,3539,"ide_methods.bas");if(r)goto S_39311;} LABEL_IDEMPASTE:; -if(qbevent){evnt(25066,3250,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3540,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3252,"ide_methods.bas");}while(r); -S_37048:; +if(!qbevent)break;evnt(26307,3542,"ide_methods.bas");}while(r); +S_39313:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(25066,3254,"ide_methods.bas");if(r)goto S_37048;} -S_37049:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,3255,"ide_methods.bas");if(r)goto S_37049;} -do{ -return_point[next_return_point++]=27; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DELSELECT; -RETURN_27:; -if(!qbevent)break;evnt(25066,3255,"ide_methods.bas");}while(r); -} -S_37052:; +if(qbevent){evnt(26307,3544,"ide_methods.bas");if(r)goto S_39313;} +S_39314:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 13 ),0)|func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 10 ),0)))||new_error){ -if(qbevent){evnt(25066,3256,"ide_methods.bas");if(r)goto S_37052;} +if(qbevent){evnt(26307,3545,"ide_methods.bas");if(r)goto S_39314;} +S_39315:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,3548,"ide_methods.bas");if(r)goto S_39315;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26307,3548,"ide_methods.bas");}while(r); +} do{ *__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(25066,3260,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3550,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3261,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3551,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3= 1 ; -if(!qbevent)break;evnt(25066,3262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3552,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,3263,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3553,"ide_methods.bas");}while(r); LABEL_FULLPASTENEXTLINE:; -if(qbevent){evnt(25066,3265,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3555,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 13 ),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3557,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X2=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 10 ),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3268,"ide_methods.bas");}while(r); -S_37059:; +if(!qbevent)break;evnt(26307,3558,"ide_methods.bas");}while(r); +S_39324:; if ((-(*_FUNC_IDE2_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(25066,3269,"ide_methods.bas");if(r)goto S_37059;} +if(qbevent){evnt(26307,3559,"ide_methods.bas");if(r)goto S_39324;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(25066,3269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3559,"ide_methods.bas");}while(r); } -S_37062:; +S_39327:; if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(25066,3270,"ide_methods.bas");if(r)goto S_37062;} +if(qbevent){evnt(26307,3560,"ide_methods.bas");if(r)goto S_39327;} do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,3270,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3560,"ide_methods.bas");}while(r); } -S_37065:; +S_39330:; if ((-(*_FUNC_IDE2_LONG_X2<*_FUNC_IDE2_LONG_X))||new_error){ -if(qbevent){evnt(25066,3271,"ide_methods.bas");if(r)goto S_37065;} +if(qbevent){evnt(26307,3561,"ide_methods.bas");if(r)goto S_39330;} do{ swap_32(&*_FUNC_IDE2_LONG_X,&*_FUNC_IDE2_LONG_X2); -if(!qbevent)break;evnt(25066,3271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3561,"ide_methods.bas");}while(r); } -S_37068:; +S_39333:; if ((-(*_FUNC_IDE2_LONG_X2>(*_FUNC_IDE2_LONG_X+ 1 )))||new_error){ -if(qbevent){evnt(25066,3272,"ide_methods.bas");if(r)goto S_37068;} +if(qbevent){evnt(26307,3562,"ide_methods.bas");if(r)goto S_39333;} do{ *_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,3272,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3562,"ide_methods.bas");}while(r); } -S_37071:; +S_39336:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,3275,"ide_methods.bas");if(r)goto S_37071;} +if(qbevent){evnt(26307,3565,"ide_methods.bas");if(r)goto S_39336;} do{ -SUB_IDEINSLINE(&(pass4155=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,*_FUNC_IDE2_LONG_X-*_FUNC_IDE2_LONG_X3,1))); +SUB_IDEINSLINE(&(pass4260=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,*_FUNC_IDE2_LONG_X-*_FUNC_IDE2_LONG_X3,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3276,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3566,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,3277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3567,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,3278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3568,"ide_methods.bas");}while(r); }else{ do{ -SUB_IDEINSLINE(&(pass4156=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X3+ 1 ,1))); +SUB_IDEINSLINE(&(pass4261=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X3+ 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3280,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3570,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,3281,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3571,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X3=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3572,"ide_methods.bas");}while(r); } -S_37080:; +S_39345:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X3<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3285,"ide_methods.bas");if(r)goto S_37080;} +if(qbevent){evnt(26307,3575,"ide_methods.bas");if(r)goto S_39345;} do{ goto LABEL_FULLPASTENEXTLINE; -if(!qbevent)break;evnt(25066,3285,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3575,"ide_methods.bas");}while(r); } -S_37083:; +S_39348:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,3287,"ide_methods.bas");if(r)goto S_37083;} +if(qbevent){evnt(26307,3577,"ide_methods.bas");if(r)goto S_39348;} do{ *__LONG_IDECY=*__LONG_IDECY+*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,3289,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3579,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=((int32)(FUNC_IDEGETLINE(__LONG_IDECY))->len)+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3290,"ide_methods.bas");}while(r); -S_37086:; +if(!qbevent)break;evnt(26307,3580,"ide_methods.bas");}while(r); +S_39351:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_CLIP, 1 ),func_chr( 10 ))))||new_error){ -if(qbevent){evnt(25066,3291,"ide_methods.bas");if(r)goto S_37086;} +if(qbevent){evnt(26307,3581,"ide_methods.bas");if(r)goto S_39351;} do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(25066,3292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3582,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3293,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3583,"ide_methods.bas");}while(r); } } }else{ do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3299,"ide_methods.bas");}while(r); -S_37093:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ -if(qbevent){evnt(25066,3300,"ide_methods.bas");if(r)goto S_37093;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX- 1 -_FUNC_IDE2_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3300,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3301,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,FUNC_CONVERTTABS(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3302,"ide_methods.bas");}while(r); -S_37098:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,3304,"ide_methods.bas");if(r)goto S_37098;} -do{ -*__LONG_IDECX=*__LONG_IDECX+_FUNC_IDE2_STRING_CLIP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3306,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,3588,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3591,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3592,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3594,"ide_methods.bas");}while(r); } -S_37106:; +S_39364:; if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))))&(-(*__LONG_IDESELECT== 1 ))))||new_error){ -if(qbevent){evnt(25066,3315,"ide_methods.bas");if(r)goto S_37106;} +if(qbevent){evnt(26307,3597,"ide_methods.bas");if(r)goto S_39364;} LABEL_COPY2CLIP:; -if(qbevent){evnt(25066,3316,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3598,"ide_methods.bas");r=0;} do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDE2_STRING_CLIP,FUNC_GETSELECTEDTEXT(&(pass4265= -1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3317,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,3318,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,3319,"ide_methods.bas");}while(r); -S_37110:; -if ((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))||new_error){ -if(qbevent){evnt(25066,3320,"ide_methods.bas");if(r)goto S_37110;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SY1,&*_FUNC_IDE2_LONG_SY2); -if(!qbevent)break;evnt(25066,3320,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,3321,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3322,"ide_methods.bas");}while(r); -S_37115:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,3323,"ide_methods.bas");if(r)goto S_37115;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,3323,"ide_methods.bas");}while(r); -} -S_37118:; -fornext_value4165=*_FUNC_IDE2_LONG_SY1; -fornext_finalvalue4165=*_FUNC_IDE2_LONG_SY2; -fornext_step4165= 1 ; -if (fornext_step4165<0) fornext_step_negative4165=1; else fornext_step_negative4165=0; -if (new_error) goto fornext_error4165; -goto fornext_entrylabel4165; -while(1){ -fornext_value4165=fornext_step4165+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4165: -*_FUNC_IDE2_LONG_Y=fornext_value4165; -if (fornext_step_negative4165){ -if (fornext_value4165fornext_finalvalue4165) break; -} -fornext_error4165:; -if(qbevent){evnt(25066,3324,"ide_methods.bas");if(r)goto S_37118;} -S_37119:; -if ((-(*_FUNC_IDE2_LONG_Y<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3325,"ide_methods.bas");if(r)goto S_37119;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3326,"ide_methods.bas");}while(r); -S_37121:; -if ((-(*_FUNC_IDE2_LONG_SY1==*_FUNC_IDE2_LONG_SY2))||new_error){ -if(qbevent){evnt(25066,3327,"ide_methods.bas");if(r)goto S_37121;} -S_37122:; -fornext_value4167=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4167=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4167= 1 ; -if (fornext_step4167<0) fornext_step_negative4167=1; else fornext_step_negative4167=0; -if (new_error) goto fornext_error4167; -goto fornext_entrylabel4167; -while(1){ -fornext_value4167=fornext_step4167+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4167: -*_FUNC_IDE2_LONG_X=fornext_value4167; -if (fornext_step_negative4167){ -if (fornext_value4167fornext_finalvalue4167) break; -} -fornext_error4167:; -if(qbevent){evnt(25066,3328,"ide_methods.bas");if(r)goto S_37122;} -S_37123:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3329,"ide_methods.bas");if(r)goto S_37123;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(_FUNC_IDE2_STRING_CLIP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3329,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3329,"ide_methods.bas");}while(r); -} -fornext_continue_4166:; -} -fornext_exit_4166:; -}else{ -S_37130:; -if (((-(*__LONG_IDECX== 1 ))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_SY2))&(-(*__LONG_IDECY>*_FUNC_IDE2_LONG_SY1)))||new_error){ -if(qbevent){evnt(25066,3332,"ide_methods.bas");if(r)goto S_37130;} -do{ -goto LABEL_NOFINALCOPY; -if(!qbevent)break;evnt(25066,3332,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,_FUNC_IDE2_STRING_A),func_chr( 13 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3333,"ide_methods.bas");}while(r); -LABEL_NOFINALCOPY:; -if(qbevent){evnt(25066,3334,"ide_methods.bas");r=0;} -S_37134:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_SY2))&(-(*__LONG_IDECX> 1 ))&(-(_FUNC_IDE2_STRING_A->len> 0 ))))||new_error){ -if(qbevent){evnt(25066,3335,"ide_methods.bas");if(r)goto S_37134;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,_FUNC_IDE2_STRING_CLIP->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3335,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_4164:; -} -fornext_exit_4164:; -S_37140:; +if(!qbevent)break;evnt(26307,3599,"ide_methods.bas");}while(r); +S_39366:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,3339,"ide_methods.bas");if(r)goto S_37140;} +if(qbevent){evnt(26307,3600,"ide_methods.bas");if(r)goto S_39366;} do{ sub__clipboard(_FUNC_IDE2_STRING_CLIP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3339,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3600,"ide_methods.bas");}while(r); } -S_37143:; +S_39369:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1)))))|(*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1))))))||new_error){ -if(qbevent){evnt(25066,3340,"ide_methods.bas");if(r)goto S_37143;} +if(qbevent){evnt(26307,3601,"ide_methods.bas");if(r)goto S_39369;} do{ -return_point[next_return_point++]=28; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DELSELECT; -RETURN_28:; -if(!qbevent)break;evnt(25066,3340,"ide_methods.bas");}while(r); +SUB_DELSELECT(); +if(!qbevent)break;evnt(26307,3601,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3341,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3602,"ide_methods.bas");}while(r); } -S_37148:; +S_39374:; if ((-(*__LONG_KB== 20992 ))||new_error){ -if(qbevent){evnt(25066,3344,"ide_methods.bas");if(r)goto S_37148;} +if(qbevent){evnt(26307,3605,"ide_methods.bas");if(r)goto S_39374;} do{ *__INTEGER_IDEINSERT=*__INTEGER_IDEINSERT+ 1 ; -if(!qbevent)break;evnt(25066,3345,"ide_methods.bas");}while(r); -S_37150:; +if(!qbevent)break;evnt(26307,3606,"ide_methods.bas");}while(r); +S_39376:; if ((-(*__INTEGER_IDEINSERT== 2 ))||new_error){ -if(qbevent){evnt(25066,3346,"ide_methods.bas");if(r)goto S_37150;} +if(qbevent){evnt(26307,3607,"ide_methods.bas");if(r)goto S_39376;} do{ *__INTEGER_IDEINSERT= 0 ; -if(!qbevent)break;evnt(25066,3346,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3607,"ide_methods.bas");}while(r); } } -S_37154:; +S_39380:; if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(25066,3349,"ide_methods.bas");if(r)goto S_37154;} -S_37155:; +if(qbevent){evnt(26307,3610,"ide_methods.bas");if(r)goto S_39380;} +S_39381:; if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(25066,3350,"ide_methods.bas");if(r)goto S_37155;} +if(qbevent){evnt(26307,3611,"ide_methods.bas");if(r)goto S_39381;} do{ *__LONG_IDESY=*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(25066,3351,"ide_methods.bas");}while(r); -S_37157:; +if(!qbevent)break;evnt(26307,3612,"ide_methods.bas");}while(r); +S_39383:; if ((-(*__LONG_IDESY< 1 ))||new_error){ -if(qbevent){evnt(25066,3352,"ide_methods.bas");if(r)goto S_37157;} +if(qbevent){evnt(26307,3613,"ide_methods.bas");if(r)goto S_39383;} do{ *__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(25066,3352,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3613,"ide_methods.bas");}while(r); } -S_37160:; +S_39386:; if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ -if(qbevent){evnt(25066,3353,"ide_methods.bas");if(r)goto S_37160;} +if(qbevent){evnt(26307,3614,"ide_methods.bas");if(r)goto S_39386;} do{ *__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(25066,3353,"ide_methods.bas");}while(r); -} -}else{ -do{ -return_point[next_return_point++]=29; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_29:; -if(!qbevent)break;evnt(25066,3355,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(25066,3356,"ide_methods.bas");}while(r); -S_37166:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(25066,3357,"ide_methods.bas");if(r)goto S_37166;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,3357,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3358,"ide_methods.bas");}while(r); -} -} -S_37172:; -if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(25066,3362,"ide_methods.bas");if(r)goto S_37172;} -S_37173:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(25066,3363,"ide_methods.bas");if(r)goto S_37173;} -do{ -*__LONG_IDESY=*__LONG_IDESY+ 1 ; -if(!qbevent)break;evnt(25066,3364,"ide_methods.bas");}while(r); -S_37175:; -if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3365,"ide_methods.bas");if(r)goto S_37175;} -do{ -*__LONG_IDESY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,3365,"ide_methods.bas");}while(r); -} -S_37178:; -if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ -if(qbevent){evnt(25066,3366,"ide_methods.bas");if(r)goto S_37178;} -do{ -*__LONG_IDECY=*__LONG_IDESY; -if(!qbevent)break;evnt(25066,3366,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3614,"ide_methods.bas");}while(r); } }else{ do{ @@ -133082,4987 +137761,5068 @@ return_point[next_return_point++]=30; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_30:; -if(!qbevent)break;evnt(25066,3368,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3616,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(25066,3369,"ide_methods.bas");}while(r); -S_37184:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3370,"ide_methods.bas");if(r)goto S_37184;} +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26307,3617,"ide_methods.bas");}while(r); +S_39392:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26307,3618,"ide_methods.bas");if(r)goto S_39392;} do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,3370,"ide_methods.bas");}while(r); +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,3618,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3371,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3619,"ide_methods.bas");}while(r); } } -S_37190:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,3375,"ide_methods.bas");if(r)goto S_37190;} +S_39398:; +if ((-(*__LONG_KB== 20480 ))||new_error){ +if(qbevent){evnt(26307,3623,"ide_methods.bas");if(r)goto S_39398;} +S_39399:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26307,3624,"ide_methods.bas");if(r)goto S_39399;} +do{ +*__LONG_IDESY=*__LONG_IDESY+ 1 ; +if(!qbevent)break;evnt(26307,3625,"ide_methods.bas");}while(r); +S_39401:; +if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,3626,"ide_methods.bas");if(r)goto S_39401;} +do{ +*__LONG_IDESY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,3626,"ide_methods.bas");}while(r); +} +S_39404:; +if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ +if(qbevent){evnt(26307,3627,"ide_methods.bas");if(r)goto S_39404;} +do{ +*__LONG_IDECY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,3627,"ide_methods.bas");}while(r); +} +}else{ do{ return_point[next_return_point++]=31; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_31:; -if(!qbevent)break;evnt(25066,3376,"ide_methods.bas");}while(r); -S_37192:; -if ((-(*__LONG_MWHEEL< 0 ))||new_error){ -if(qbevent){evnt(25066,3378,"ide_methods.bas");if(r)goto S_37192;} +if(!qbevent)break;evnt(26307,3629,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY=*__LONG_IDESY; -if(!qbevent)break;evnt(25066,3378,"ide_methods.bas");}while(r); -} -S_37195:; -if ((-(*__LONG_MWHEEL> 0 ))||new_error){ -if(qbevent){evnt(25066,3379,"ide_methods.bas");if(r)goto S_37195;} -do{ -*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(25066,3379,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_IDECY+(*__LONG_MWHEEL* 3 ); -if(!qbevent)break;evnt(25066,3380,"ide_methods.bas");}while(r); -S_37199:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(25066,3381,"ide_methods.bas");if(r)goto S_37199;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,3381,"ide_methods.bas");}while(r); -} -S_37202:; +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,3630,"ide_methods.bas");}while(r); +S_39410:; if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3382,"ide_methods.bas");if(r)goto S_37202;} +if(qbevent){evnt(26307,3631,"ide_methods.bas");if(r)goto S_39410;} do{ *__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,3382,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3631,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3383,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3632,"ide_methods.bas");}while(r); } -S_37207:; -if ((-(*__LONG_KB== 19200 ))||new_error){ -if(qbevent){evnt(25066,3386,"ide_methods.bas");if(r)goto S_37207;} +} +S_39416:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,3636,"ide_methods.bas");if(r)goto S_39416;} do{ return_point[next_return_point++]=32; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_32:; -if(!qbevent)break;evnt(25066,3387,"ide_methods.bas");}while(r); -S_37209:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(25066,3389,"ide_methods.bas");if(r)goto S_37209;} +if(!qbevent)break;evnt(26307,3637,"ide_methods.bas");}while(r); +S_39418:; +if ((-(*__LONG_MWHEEL< 0 ))||new_error){ +if(qbevent){evnt(26307,3639,"ide_methods.bas");if(r)goto S_39418;} do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3391,"ide_methods.bas");}while(r); -S_37211:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3392,"ide_methods.bas");if(r)goto S_37211;} +*__LONG_IDECY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,3639,"ide_methods.bas");}while(r); +} +S_39421:; +if ((-(*__LONG_MWHEEL> 0 ))||new_error){ +if(qbevent){evnt(26307,3640,"ide_methods.bas");if(r)goto S_39421;} do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3392,"ide_methods.bas");}while(r); +*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,3640,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDE2_LONG_SKIPPING= 1 ; -if(!qbevent)break;evnt(25066,3394,"ide_methods.bas");}while(r); -S_37215:; +*__LONG_IDECY=*__LONG_IDECY+(*__LONG_MWHEEL* 3 ); +if(!qbevent)break;evnt(26307,3641,"ide_methods.bas");}while(r); +S_39425:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26307,3642,"ide_methods.bas");if(r)goto S_39425;} do{ -if(qbevent){evnt(25066,3395,"ide_methods.bas");if(r)goto S_37215;} -do{ -*__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,3397,"ide_methods.bas");}while(r); -S_37217:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(25066,3399,"ide_methods.bas");if(r)goto S_37217;} -S_37218:; -do{ -if(qbevent){evnt(25066,3400,"ide_methods.bas");if(r)goto S_37218;} -S_37219:; -if ((-(*__LONG_IDECY== 1 ))||new_error){ -if(qbevent){evnt(25066,3401,"ide_methods.bas");if(r)goto S_37219;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3401,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3401,"ide_methods.bas");}while(r); +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,3642,"ide_methods.bas");}while(r); } +S_39428:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,3643,"ide_methods.bas");if(r)goto S_39428;} do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(25066,3402,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3403,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3404,"ide_methods.bas");}while(r); -S_37226:; -dl_continue_4174:; -}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); -dl_exit_4174:; -if(qbevent){evnt(25066,3405,"ide_methods.bas");if(r)goto S_37226;} -} -S_37228:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(25066,3408,"ide_methods.bas");if(r)goto S_37228;} -S_37229:; -if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(25066,3409,"ide_methods.bas");if(r)goto S_37229;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3409,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3410,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,3410,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(25066,3411,"ide_methods.bas");}while(r); -}else{ -S_37236:; -if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ -if(qbevent){evnt(25066,3413,"ide_methods.bas");if(r)goto S_37236;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,3413,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(25066,3413,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3413,"ide_methods.bas");}while(r); -} -} -dl_continue_4173:; -}while(1); -dl_exit_4173:; -}else{ -do{ -*__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,3419,"ide_methods.bas");}while(r); -S_37245:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(25066,3420,"ide_methods.bas");if(r)goto S_37245;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3420,"ide_methods.bas");}while(r); -} +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,3643,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3424,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3644,"ide_methods.bas");}while(r); } -S_37251:; -if ((-(*__LONG_KB== 19712 ))||new_error){ -if(qbevent){evnt(25066,3427,"ide_methods.bas");if(r)goto S_37251;} +S_39433:; +if ((-(*__LONG_KB== 19200 ))||new_error){ +if(qbevent){evnt(26307,3647,"ide_methods.bas");if(r)goto S_39433;} do{ return_point[next_return_point++]=33; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_33:; -if(!qbevent)break;evnt(25066,3428,"ide_methods.bas");}while(r); -S_37253:; +if(!qbevent)break;evnt(26307,3648,"ide_methods.bas");}while(r); +S_39435:; if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(25066,3430,"ide_methods.bas");if(r)goto S_37253;} +if(qbevent){evnt(26307,3650,"ide_methods.bas");if(r)goto S_39435;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3432,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(25066,3433,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FIRST= 1 ; -if(!qbevent)break;evnt(25066,3434,"ide_methods.bas");}while(r); -S_37257:; -do{ -if(qbevent){evnt(25066,3435,"ide_methods.bas");if(r)goto S_37257;} -S_37258:; -if ((-(*_FUNC_IDE2_LONG_FIRST== 0 ))||new_error){ -if(qbevent){evnt(25066,3437,"ide_methods.bas");if(r)goto S_37258;} -do{ -*__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(25066,3437,"ide_methods.bas");}while(r); -} -S_37261:; +if(!qbevent)break;evnt(26307,3652,"ide_methods.bas");}while(r); +S_39437:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3439,"ide_methods.bas");if(r)goto S_37261;} -S_37262:; +if(qbevent){evnt(26307,3653,"ide_methods.bas");if(r)goto S_39437;} do{ -if(qbevent){evnt(25066,3440,"ide_methods.bas");if(r)goto S_37262;} -S_37263:; -if ((-(*__LONG_IDECY==*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3441,"ide_methods.bas");if(r)goto S_37263;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3441,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(25066,3442,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3442,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3443,"ide_methods.bas");}while(r); -S_37269:; -dl_continue_4179:; -}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); -dl_exit_4179:; -if(qbevent){evnt(25066,3444,"ide_methods.bas");if(r)goto S_37269;} -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(25066,3445,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(25066,3446,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3653,"ide_methods.bas");}while(r); } -S_37273:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(25066,3449,"ide_methods.bas");if(r)goto S_37273;} -S_37274:; -if ((*_FUNC_IDE2_LONG_FIRST)||new_error){ -if(qbevent){evnt(25066,3450,"ide_methods.bas");if(r)goto S_37274;} do{ *_FUNC_IDE2_LONG_SKIPPING= 1 ; -if(!qbevent)break;evnt(25066,3451,"ide_methods.bas");}while(r); -}else{ -S_37277:; -if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ -if(qbevent){evnt(25066,3453,"ide_methods.bas");if(r)goto S_37277;} +if(!qbevent)break;evnt(26307,3655,"ide_methods.bas");}while(r); +S_39441:; +do{ +if(qbevent){evnt(26307,3656,"ide_methods.bas");if(r)goto S_39441;} +do{ +*__LONG_IDECX=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26307,3658,"ide_methods.bas");}while(r); +S_39443:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26307,3660,"ide_methods.bas");if(r)goto S_39443;} +S_39444:; +do{ +if(qbevent){evnt(26307,3661,"ide_methods.bas");if(r)goto S_39444;} +S_39445:; +if ((-(*__LONG_IDECY== 1 ))||new_error){ +if(qbevent){evnt(26307,3662,"ide_methods.bas");if(r)goto S_39445;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,3662,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3662,"ide_methods.bas");}while(r); } +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26307,3663,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3664,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3665,"ide_methods.bas");}while(r); +S_39452:; +dl_continue_4269:; +}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); +dl_exit_4269:; +if(qbevent){evnt(26307,3666,"ide_methods.bas");if(r)goto S_39452;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3667,"ide_methods.bas");}while(r); } -}else{ +S_39455:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(26307,3670,"ide_methods.bas");if(r)goto S_39455;} +S_39456:; +if ((-(*__LONG_IDECX== 1 ))||new_error){ +if(qbevent){evnt(26307,3671,"ide_methods.bas");if(r)goto S_39456;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3671,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,3672,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,3672,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(25066,3456,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,3673,"ide_methods.bas");}while(r); +}else{ +S_39463:; +if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ +if(qbevent){evnt(26307,3675,"ide_methods.bas");if(r)goto S_39463;} do{ -*_FUNC_IDE2_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(25066,3458,"ide_methods.bas");}while(r); -dl_continue_4177:; +*__LONG_IDECX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26307,3675,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26307,3675,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3675,"ide_methods.bas");}while(r); +} +} +dl_continue_4268:; }while(1); -dl_exit_4177:; +dl_exit_4268:; }else{ do{ -*__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(25066,3463,"ide_methods.bas");}while(r); +*__LONG_IDECX=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26307,3681,"ide_methods.bas");}while(r); +S_39472:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26307,3682,"ide_methods.bas");if(r)goto S_39472;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,3682,"ide_methods.bas");}while(r); +} } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3467,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3686,"ide_methods.bas");}while(r); } -S_37291:; -if ((*__LONG_KCONTROL&(-(*__LONG_KB== 18176 )))||new_error){ -if(qbevent){evnt(25066,3470,"ide_methods.bas");if(r)goto S_37291;} +S_39478:; +if ((-(*__LONG_KB== 19712 ))||new_error){ +if(qbevent){evnt(26307,3689,"ide_methods.bas");if(r)goto S_39478;} do{ return_point[next_return_point++]=34; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_34:; -if(!qbevent)break;evnt(25066,3471,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3690,"ide_methods.bas");}while(r); +S_39480:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26307,3692,"ide_methods.bas");if(r)goto S_39480;} do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3472,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3694,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,3473,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26307,3695,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FIRST= 1 ; +if(!qbevent)break;evnt(26307,3696,"ide_methods.bas");}while(r); +S_39484:; +do{ +if(qbevent){evnt(26307,3697,"ide_methods.bas");if(r)goto S_39484;} +S_39485:; +if ((-(*_FUNC_IDE2_LONG_FIRST== 0 ))||new_error){ +if(qbevent){evnt(26307,3699,"ide_methods.bas");if(r)goto S_39485;} +do{ +*__LONG_IDECX=*__LONG_IDECX+ 1 ; +if(!qbevent)break;evnt(26307,3699,"ide_methods.bas");}while(r); +} +S_39488:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_FIRST== 0 ))&(-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 1 )))))||new_error){ +if(qbevent){evnt(26307,3701,"ide_methods.bas");if(r)goto S_39488;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3701,"ide_methods.bas");}while(r); } -S_37297:; -if ((*__LONG_KCONTROL&(-(*__LONG_KB== 20224 )))||new_error){ -if(qbevent){evnt(25066,3477,"ide_methods.bas");if(r)goto S_37297;} +S_39491:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,3702,"ide_methods.bas");if(r)goto S_39491;} +S_39492:; +do{ +if(qbevent){evnt(26307,3703,"ide_methods.bas");if(r)goto S_39492;} +S_39493:; +if ((-(*__LONG_IDECY==*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,3704,"ide_methods.bas");if(r)goto S_39493;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3704,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,3705,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,3705,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3706,"ide_methods.bas");}while(r); +S_39499:; +dl_continue_4275:; +}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); +dl_exit_4275:; +if(qbevent){evnt(26307,3707,"ide_methods.bas");if(r)goto S_39499;} +do{ +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26307,3708,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FIRST= 0 ; +if(!qbevent)break;evnt(26307,3709,"ide_methods.bas");}while(r); +} +S_39503:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(26307,3712,"ide_methods.bas");if(r)goto S_39503;} +S_39504:; +if ((*_FUNC_IDE2_LONG_FIRST)||new_error){ +if(qbevent){evnt(26307,3713,"ide_methods.bas");if(r)goto S_39504;} +do{ +*_FUNC_IDE2_LONG_SKIPPING= 1 ; +if(!qbevent)break;evnt(26307,3714,"ide_methods.bas");}while(r); +}else{ +S_39507:; +if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ +if(qbevent){evnt(26307,3716,"ide_methods.bas");if(r)goto S_39507;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3716,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26307,3719,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_FIRST= 0 ; +if(!qbevent)break;evnt(26307,3721,"ide_methods.bas");}while(r); +dl_continue_4272:; +}while(1); +dl_exit_4272:; +}else{ +do{ +*__LONG_IDECX=*__LONG_IDECX+ 1 ; +if(!qbevent)break;evnt(26307,3726,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3730,"ide_methods.bas");}while(r); +} +S_39521:; +if ((*__LONG_KCONTROL&(-(*__LONG_KB== 18176 )))||new_error){ +if(qbevent){evnt(26307,3733,"ide_methods.bas");if(r)goto S_39521;} do{ return_point[next_return_point++]=35; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_35:; -if(!qbevent)break;evnt(25066,3478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3734,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,3479,"ide_methods.bas");}while(r); +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,3735,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3480,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3481,"ide_methods.bas");}while(r); +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,3736,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3737,"ide_methods.bas");}while(r); } -S_37304:; -if ((-(*__LONG_KB== 18176 ))||new_error){ -if(qbevent){evnt(25066,3485,"ide_methods.bas");if(r)goto S_37304;} +S_39527:; +if ((*__LONG_KCONTROL&(-(*__LONG_KB== 20224 )))||new_error){ +if(qbevent){evnt(26307,3740,"ide_methods.bas");if(r)goto S_39527;} do{ return_point[next_return_point++]=36; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_36:; -if(!qbevent)break;evnt(25066,3486,"ide_methods.bas");}while(r); -S_37306:; -if ((-(*__LONG_IDECX!= 1 ))||new_error){ -if(qbevent){evnt(25066,3487,"ide_methods.bas");if(r)goto S_37306;} +if(!qbevent)break;evnt(26307,3741,"ide_methods.bas");}while(r); do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3488,"ide_methods.bas");}while(r); -}else{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,3742,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3490,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3743,"ide_methods.bas");}while(r); do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3491,"ide_methods.bas");}while(r); -S_37311:; -fornext_value4183= 1 ; -fornext_finalvalue4183=_FUNC_IDE2_STRING_A->len; -fornext_step4183= 1 ; -if (fornext_step4183<0) fornext_step_negative4183=1; else fornext_step_negative4183=0; -if (new_error) goto fornext_error4183; -goto fornext_entrylabel4183; -while(1){ -fornext_value4183=fornext_step4183+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4183: -*_FUNC_IDE2_LONG_X=fornext_value4183; +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4183){ -if (fornext_value4183fornext_finalvalue4183) break; -} -fornext_error4183:; -if(qbevent){evnt(25066,3492,"ide_methods.bas");if(r)goto S_37311;} -S_37312:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X)!= 32 )))||new_error){ -if(qbevent){evnt(25066,3493,"ide_methods.bas");if(r)goto S_37312;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,3493,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4182; -if(!qbevent)break;evnt(25066,3493,"ide_methods.bas");}while(r); -} -fornext_continue_4182:; -} -fornext_exit_4182:; -} +if(!qbevent)break;evnt(26307,3744,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3496,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3745,"ide_methods.bas");}while(r); } -S_37320:; -if ((-(*__LONG_KB== 20224 ))||new_error){ -if(qbevent){evnt(25066,3499,"ide_methods.bas");if(r)goto S_37320;} +S_39534:; +if ((-(*__LONG_KB== 18176 ))||new_error){ +if(qbevent){evnt(26307,3748,"ide_methods.bas");if(r)goto S_39534;} do{ return_point[next_return_point++]=37; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_37:; -if(!qbevent)break;evnt(25066,3500,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3749,"ide_methods.bas");}while(r); +S_39536:; +if ((-(*__LONG_IDECX!= 1 ))||new_error){ +if(qbevent){evnt(26307,3750,"ide_methods.bas");if(r)goto S_39536;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,3751,"ide_methods.bas");}while(r); +}else{ do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3501,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3753,"ide_methods.bas");}while(r); do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,3754,"ide_methods.bas");}while(r); +S_39541:; +fornext_value4279= 1 ; +fornext_finalvalue4279=_FUNC_IDE2_STRING_A->len; +fornext_step4279= 1 ; +if (fornext_step4279<0) fornext_step_negative4279=1; else fornext_step_negative4279=0; +if (new_error) goto fornext_error4279; +goto fornext_entrylabel4279; +while(1){ +fornext_value4279=fornext_step4279+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4279: +*_FUNC_IDE2_LONG_X=fornext_value4279; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3502,"ide_methods.bas");}while(r); +if (fornext_step_negative4279){ +if (fornext_value4279fornext_finalvalue4279) break; +} +fornext_error4279:; +if(qbevent){evnt(26307,3755,"ide_methods.bas");if(r)goto S_39541;} +S_39542:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X)!= 32 )))||new_error){ +if(qbevent){evnt(26307,3756,"ide_methods.bas");if(r)goto S_39542;} +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26307,3756,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4278; +if(!qbevent)break;evnt(26307,3756,"ide_methods.bas");}while(r); +} +fornext_continue_4278:; +} +fornext_exit_4278:; +} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3759,"ide_methods.bas");}while(r); } -S_37326:; -if ((-(*__LONG_KB== 18688 ))||new_error){ -if(qbevent){evnt(25066,3506,"ide_methods.bas");if(r)goto S_37326;} +S_39550:; +if ((-(*__LONG_KB== 20224 ))||new_error){ +if(qbevent){evnt(26307,3762,"ide_methods.bas");if(r)goto S_39550;} do{ return_point[next_return_point++]=38; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_38:; -if(!qbevent)break;evnt(25066,3507,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3763,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(25066,3508,"ide_methods.bas");}while(r); -S_37329:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(25066,3509,"ide_methods.bas");if(r)goto S_37329;} +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3764,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,3509,"ide_methods.bas");}while(r); -} +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3765,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3766,"ide_methods.bas");}while(r); } -S_37334:; -if ((-(*__LONG_KB== 20736 ))||new_error){ -if(qbevent){evnt(25066,3513,"ide_methods.bas");if(r)goto S_37334;} +S_39556:; +if ((-(*__LONG_KB== 18688 ))||new_error){ +if(qbevent){evnt(26307,3769,"ide_methods.bas");if(r)goto S_39556;} do{ return_point[next_return_point++]=39; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; RETURN_39:; -if(!qbevent)break;evnt(25066,3514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3770,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(25066,3515,"ide_methods.bas");}while(r); -S_37337:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3516,"ide_methods.bas");if(r)goto S_37337;} +*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,3771,"ide_methods.bas");}while(r); +S_39559:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26307,3772,"ide_methods.bas");if(r)goto S_39559;} do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,3516,"ide_methods.bas");}while(r); +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,3772,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3773,"ide_methods.bas");}while(r); +} +S_39564:; +if ((-(*__LONG_KB== 20736 ))||new_error){ +if(qbevent){evnt(26307,3776,"ide_methods.bas");if(r)goto S_39564;} +do{ +return_point[next_return_point++]=40; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_40:; +if(!qbevent)break;evnt(26307,3777,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,3778,"ide_methods.bas");}while(r); +S_39567:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,3779,"ide_methods.bas");if(r)goto S_39567;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,3779,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3780,"ide_methods.bas");}while(r); } do{ goto LABEL_SKIPGOSUBS; -if(!qbevent)break;evnt(25066,3520,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3783,"ide_methods.bas");}while(r); LABEL_SELECTCHECK:; -if(qbevent){evnt(25066,3522,"ide_methods.bas");r=0;} -S_37343:; +if(qbevent){evnt(26307,3785,"ide_methods.bas");r=0;} +S_39573:; if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(25066,3523,"ide_methods.bas");if(r)goto S_37343;} -S_37344:; +if(qbevent){evnt(26307,3786,"ide_methods.bas");if(r)goto S_39573;} +S_39574:; if ((*__LONG_KSHIFT&(-(*__LONG_IDESELECT== 0 )))||new_error){ -if(qbevent){evnt(25066,3524,"ide_methods.bas");if(r)goto S_37344;} +if(qbevent){evnt(26307,3787,"ide_methods.bas");if(r)goto S_39574;} do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,3524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3787,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3787,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,3524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3787,"ide_methods.bas");}while(r); } -S_37349:; +S_39579:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(25066,3525,"ide_methods.bas");if(r)goto S_37349;} +if(qbevent){evnt(26307,3788,"ide_methods.bas");if(r)goto S_39579;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3525,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3788,"ide_methods.bas");}while(r); } -S_37352:; +S_39582:; }else{ if (-(*__LONG_IDESYSTEM== 2 )){ -if(qbevent){evnt(25066,3526,"ide_methods.bas");if(r)goto S_37352;} -S_37353:; +if(qbevent){evnt(26307,3789,"ide_methods.bas");if(r)goto S_39582;} +S_39583:; if ((*__LONG_KSHIFT&(-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 )))||new_error){ -if(qbevent){evnt(25066,3527,"ide_methods.bas");if(r)goto S_37353;} +if(qbevent){evnt(26307,3790,"ide_methods.bas");if(r)goto S_39583;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(25066,3527,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3790,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,3527,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3790,"ide_methods.bas");}while(r); } -S_37357:; +S_39587:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(25066,3528,"ide_methods.bas");if(r)goto S_37357;} +if(qbevent){evnt(26307,3791,"ide_methods.bas");if(r)goto S_39587;} do{ *_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(25066,3528,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3791,"ide_methods.bas");}while(r); } } } do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,3530,"ide_methods.bas");}while(r); -LABEL_DELSELECT:; -if(qbevent){evnt(25066,3532,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,3533,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,3534,"ide_methods.bas");}while(r); -S_37364:; -if ((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))||new_error){ -if(qbevent){evnt(25066,3535,"ide_methods.bas");if(r)goto S_37364;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SY1,&*_FUNC_IDE2_LONG_SY2); -if(!qbevent)break;evnt(25066,3535,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,3536,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3537,"ide_methods.bas");}while(r); -S_37369:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,3538,"ide_methods.bas");if(r)goto S_37369;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,3538,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_NOLASTLINEDEL= 0 ; -if(!qbevent)break;evnt(25066,3539,"ide_methods.bas");}while(r); -S_37373:; -if (((-(*_FUNC_IDE2_LONG_SY1!=*_FUNC_IDE2_LONG_SY2))&(-(*__LONG_IDECX== 1 ))&(-(*__LONG_IDECY>*_FUNC_IDE2_LONG_SY1)))||new_error){ -if(qbevent){evnt(25066,3540,"ide_methods.bas");if(r)goto S_37373;} -do{ -*_FUNC_IDE2_LONG_SY2=*_FUNC_IDE2_LONG_SY2- 1 ; -if(!qbevent)break;evnt(25066,3540,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_NOLASTLINEDEL= 1 ; -if(!qbevent)break;evnt(25066,3540,"ide_methods.bas");}while(r); -} -S_37377:; -fornext_value4187=*_FUNC_IDE2_LONG_SY2; -fornext_finalvalue4187=*_FUNC_IDE2_LONG_SY1; -fornext_step4187= -1 ; -if (fornext_step4187<0) fornext_step_negative4187=1; else fornext_step_negative4187=0; -if (new_error) goto fornext_error4187; -goto fornext_entrylabel4187; -while(1){ -fornext_value4187=fornext_step4187+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4187: -*_FUNC_IDE2_LONG_Y=fornext_value4187; -if (fornext_step_negative4187){ -if (fornext_value4187fornext_finalvalue4187) break; -} -fornext_error4187:; -if(qbevent){evnt(25066,3549,"ide_methods.bas");if(r)goto S_37377;} -S_37378:; -if (((-(*_FUNC_IDE2_LONG_SY1==*_FUNC_IDE2_LONG_SY2))&(-(*_FUNC_IDE2_LONG_NOLASTLINEDEL== 0 )))||new_error){ -if(qbevent){evnt(25066,3550,"ide_methods.bas");if(r)goto S_37378;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3551,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3552,"ide_methods.bas");}while(r); -S_37381:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_SX1<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3553,"ide_methods.bas");if(r)goto S_37381;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3553,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3553,"ide_methods.bas");}while(r); -} -S_37386:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_SX2<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3554,"ide_methods.bas");if(r)goto S_37386;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3554,"ide_methods.bas");}while(r); -} -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3555,"ide_methods.bas");}while(r); -}else{ -S_37391:; -if (((-(*__LONG_IDEN== 1 ))&(-(*_FUNC_IDE2_LONG_Y== 1 )))||new_error){ -if(qbevent){evnt(25066,3559,"ide_methods.bas");if(r)goto S_37391;} -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3559,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDEDELLINE(_FUNC_IDE2_LONG_Y); -if(!qbevent)break;evnt(25066,3559,"ide_methods.bas");}while(r); -} -} -fornext_continue_4186:; -} -fornext_exit_4186:; -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(25066,3566,"ide_methods.bas");}while(r); -S_37399:; -if (((-(*_FUNC_IDE2_LONG_SY1!=*_FUNC_IDE2_LONG_SY2))|(-(*_FUNC_IDE2_LONG_NOLASTLINEDEL== 1 )))||new_error){ -if(qbevent){evnt(25066,3566,"ide_methods.bas");if(r)goto S_37399;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3566,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_SY1; -if(!qbevent)break;evnt(25066,3567,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3568,"ide_methods.bas");}while(r); -do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,3569,"ide_methods.bas");}while(r); +#include "ret132.txt" +if(!qbevent)break;evnt(26307,3793,"ide_methods.bas");}while(r); LABEL_SKIPGOSUBS:; -if(qbevent){evnt(25066,3571,"ide_methods.bas");r=0;} -S_37405:; +if(qbevent){evnt(26307,3795,"ide_methods.bas");r=0;} +S_39592:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(25066,3573,"ide_methods.bas");if(r)goto S_37405;} -S_37406:; +if(qbevent){evnt(26307,3797,"ide_methods.bas");if(r)goto S_39592;} +S_39593:; if ((*__LONG_KSHIFT)||new_error){ -if(qbevent){evnt(25066,3574,"ide_methods.bas");if(r)goto S_37406;} -S_37407:; -if ((*__BYTE_ENTERINGRGB)||new_error){ -if(qbevent){evnt(25066,3575,"ide_methods.bas");if(r)goto S_37407;} +if(qbevent){evnt(26307,3798,"ide_methods.bas");if(r)goto S_39593;} do{ -*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(25066,3576,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,3577,"ide_methods.bas");}while(r); -do{ -SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(25066,3578,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(25066,3579,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDECOLORPICKER(&(pass4191= 0 ))); +qbs_set(_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3580,"ide_methods.bas");}while(r); -}else{ -S_37414:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,3582,"ide_methods.bas");if(r)goto S_37414;} -S_37415:; -if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,3583,"ide_methods.bas");if(r)goto S_37415;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3583,"ide_methods.bas");}while(r); -} -} +if(!qbevent)break;evnt(26307,3799,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3800,"ide_methods.bas");}while(r); +S_39596:; +if ((*__BYTE_ENTERINGRGB)||new_error){ +if(qbevent){evnt(26307,3801,"ide_methods.bas");if(r)goto S_39596;} +do{ +*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26307,3802,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26307,3803,"ide_methods.bas");}while(r); +do{ +SUB_HIDEBRACKETHIGHLIGHT(); +if(!qbevent)break;evnt(26307,3804,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26307,3805,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4282= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3806,"ide_methods.bas");}while(r); +}else{ +S_39603:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,3808,"ide_methods.bas");if(r)goto S_39603;} +S_39604:; +if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,3809,"ide_methods.bas");if(r)goto S_39604;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,3809,"ide_methods.bas");}while(r); +} +} do{ *_FUNC_IDE2_LONG_FOUND_RGB= 0 ; -if(!qbevent)break;evnt(25066,3587,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3812,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("_RGB(",5),0); +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGB(",4),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3588,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3813,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("_RGB32(",7),0); +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGB32(",6),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3589,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3814,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("_RGBA(",6),0); +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGBA(",5),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3590,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3815,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("_RGBA32(",8),0); +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGBA32(",7),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3591,"ide_methods.bas");}while(r); -S_37425:; +if(!qbevent)break;evnt(26307,3816,"ide_methods.bas");}while(r); +S_39613:; if ((*_FUNC_IDE2_LONG_FOUND_RGB)||new_error){ -if(qbevent){evnt(25066,3592,"ide_methods.bas");if(r)goto S_37425;} +if(qbevent){evnt(26307,3817,"ide_methods.bas");if(r)goto S_39613;} do{ *_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(25066,3593,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3818,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,3594,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3819,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(25066,3595,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3820,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(25066,3596,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3821,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDECOLORPICKER(&(pass4192= -1 ))); +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4283= -1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3597,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3822,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_REGULARENTER; +if(!qbevent)break;evnt(26307,3824,"ide_methods.bas");}while(r); +} +} +S_39623:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26307,3827,"ide_methods.bas");if(r)goto S_39623;} +S_39624:; +if ((*__BYTE_ENTERINGRGB)||new_error){ +if(qbevent){evnt(26307,3829,"ide_methods.bas");if(r)goto S_39624;} +do{ +SUB_INSERTATCURSOR(func_mid(_FUNC_IDE2_STRING_RETVAL,func_instr(NULL,_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("(",1),0)+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3830,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,3832,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3835,"ide_methods.bas");}while(r); }else{ do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3602,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; -if(!qbevent)break;evnt(25066,3603,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3604,"ide_methods.bas");}while(r); -do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3606,"ide_methods.bas");}while(r); -S_37439:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3607,"ide_methods.bas");if(r)goto S_37439;} +if(!qbevent)break;evnt(26307,3837,"ide_methods.bas");}while(r); +LABEL_REGULARENTER:; +if(qbevent){evnt(26307,3838,"ide_methods.bas");r=0;} do{ -SUB_IDEINSLINE(&(pass4194=*__LONG_IDECY+ 1 ),qbs_new_txt_len("",0)); +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,3839,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; +if(!qbevent)break;evnt(26307,3840,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,3841,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3842,"ide_methods.bas");}while(r); +S_39637:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,3843,"ide_methods.bas");if(r)goto S_39637;} +do{ +SUB_IDEINSLINE(&(pass4286=*__LONG_IDECY+ 1 ),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3608,"ide_methods.bas");}while(r); -S_37441:; +if(!qbevent)break;evnt(26307,3844,"ide_methods.bas");}while(r); +S_39639:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(25066,3609,"ide_methods.bas");if(r)goto S_37441;} +if(qbevent){evnt(26307,3845,"ide_methods.bas");if(r)goto S_39639;} do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3846,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A))->len)+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3612,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3848,"ide_methods.bas");}while(r); } }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3615,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3851,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3616,"ide_methods.bas");}while(r); -S_37449:; +if(!qbevent)break;evnt(26307,3852,"ide_methods.bas");}while(r); +S_39647:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A2))->len)> 0 )))||new_error){ -if(qbevent){evnt(25066,3617,"ide_methods.bas");if(r)goto S_37449;} -S_37450:; +if(qbevent){evnt(26307,3853,"ide_methods.bas");if(r)goto S_39647;} +S_39648:; if ((-(*__LONG_IDECX> 1 ))||new_error){ -if(qbevent){evnt(25066,3618,"ide_methods.bas");if(r)goto S_37450;} +if(qbevent){evnt(26307,3854,"ide_methods.bas");if(r)goto S_39648;} do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A))->len); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3618,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3854,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN= 0 ; -if(!qbevent)break;evnt(25066,3618,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3854,"ide_methods.bas");}while(r); } do{ -SUB_IDEINSLINE(&(pass4198=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +SUB_IDEINSLINE(&(pass4290=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3619,"ide_methods.bas");}while(r); -S_37456:; +if(!qbevent)break;evnt(26307,3855,"ide_methods.bas");}while(r); +S_39654:; if ((-(*_FUNC_IDE2_LONG_DESIREDCOLUMN== 0 ))||new_error){ -if(qbevent){evnt(25066,3620,"ide_methods.bas");if(r)goto S_37456;} +if(qbevent){evnt(26307,3856,"ide_methods.bas");if(r)goto S_39654;} do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; -if(!qbevent)break;evnt(25066,3620,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3856,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; -if(!qbevent)break;evnt(25066,3620,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3856,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3622,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3858,"ide_methods.bas");}while(r); do{ -SUB_IDEINSLINE(&(pass4200=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +SUB_IDEINSLINE(&(pass4292=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3623,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3859,"ide_methods.bas");}while(r); } } -S_37466:; +S_39664:; if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(25066,3627,"ide_methods.bas");if(r)goto S_37466;} -S_37467:; -fornext_value4203= 1 ; -fornext_finalvalue4203=*__LONG_IDEBMKN; -fornext_step4203= 1 ; -if (fornext_step4203<0) fornext_step_negative4203=1; else fornext_step_negative4203=0; -if (new_error) goto fornext_error4203; -goto fornext_entrylabel4203; +if(qbevent){evnt(26307,3863,"ide_methods.bas");if(r)goto S_39664;} +S_39665:; +fornext_value4295= 1 ; +fornext_finalvalue4295=*__LONG_IDEBMKN; +fornext_step4295= 1 ; +if (fornext_step4295<0) fornext_step_negative4295=1; else fornext_step_negative4295=0; +if (new_error) goto fornext_error4295; +goto fornext_entrylabel4295; while(1){ -fornext_value4203=fornext_step4203+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4203: -*_FUNC_IDE2_LONG_B=fornext_value4203; -if (fornext_step_negative4203){ -if (fornext_value4203fornext_finalvalue4203) break; +if (fornext_value4295>fornext_finalvalue4295) break; } -fornext_error4203:; -if(qbevent){evnt(25066,3628,"ide_methods.bas");if(r)goto S_37467;} -S_37468:; +fornext_error4295:; +if(qbevent){evnt(26307,3864,"ide_methods.bas");if(r)goto S_39665;} +S_39666:; if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,3629,"ide_methods.bas");if(r)goto S_37468;} +if(qbevent){evnt(26307,3865,"ide_methods.bas");if(r)goto S_39666;} do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; -if(!qbevent)break;evnt(25066,3629,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3865,"ide_methods.bas");}while(r); } -fornext_continue_4202:; +fornext_continue_4294:; } -fornext_exit_4202:; +fornext_exit_4294:; } do{ *__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(25066,3633,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3869,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN; -if(!qbevent)break;evnt(25066,3634,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3870,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3635,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3871,"ide_methods.bas");}while(r); } } -S_37478:; +S_39676:; if (((-(*__LONG_KB== 21248 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(25066,3639,"ide_methods.bas");if(r)goto S_37478;} +if(qbevent){evnt(26307,3875,"ide_methods.bas");if(r)goto S_39676;} do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3876,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3877,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3641,"ide_methods.bas");}while(r); -S_37481:; +if(!qbevent)break;evnt(26307,3878,"ide_methods.bas");}while(r); +S_39680:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3642,"ide_methods.bas");if(r)goto S_37481;} +if(qbevent){evnt(26307,3879,"ide_methods.bas");if(r)goto S_39680;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3643,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3880,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3644,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3881,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX-_FUNC_IDE2_STRING_A->len- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3646,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3883,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_ltrim(FUNC_IDEGETLINE(&(pass4207=*__LONG_IDECY+ 1 ))))); +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_ltrim(FUNC_IDEGETLINE(&(pass4299=*__LONG_IDECY+ 1 ))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3647,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3884,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3885,"ide_methods.bas");}while(r); do{ -SUB_IDEDELLINE(&(pass4208=*__LONG_IDECY+ 1 )); -if(!qbevent)break;evnt(25066,3649,"ide_methods.bas");}while(r); +SUB_IDEDELLINE(&(pass4300=*__LONG_IDECY+ 1 )); +if(!qbevent)break;evnt(26307,3886,"ide_methods.bas");}while(r); } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3651,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3888,"ide_methods.bas");}while(r); } -S_37492:; +S_39691:; if ((qbs_cleanup(qbs_tmp_base,((-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)> 0 ))&*__LONG_KCONTROL&(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 83 ))))))|((-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))&(qbs_equal(__STRING_K,func_chr( 8 )))&*__LONG_KCONTROL)))||new_error){ -if(qbevent){evnt(25066,3659,"ide_methods.bas");if(r)goto S_37492;} +if(qbevent){evnt(26307,3896,"ide_methods.bas");if(r)goto S_39691;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3897,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3661,"ide_methods.bas");}while(r); -S_37495:; +if(!qbevent)break;evnt(26307,3898,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3899,"ide_methods.bas");}while(r); +S_39695:; if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ -if(qbevent){evnt(25066,3664,"ide_methods.bas");if(r)goto S_37495;} +if(qbevent){evnt(26307,3902,"ide_methods.bas");if(r)goto S_39695;} do{ *__LONG_IDEUNDOCOMBO= 2 ; -if(!qbevent)break;evnt(25066,3665,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3903,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; -if(!qbevent)break;evnt(25066,3667,"ide_methods.bas");}while(r); -S_37499:; +if(!qbevent)break;evnt(26307,3905,"ide_methods.bas");}while(r); +S_39699:; if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ -if(qbevent){evnt(25066,3668,"ide_methods.bas");if(r)goto S_37499;} +if(qbevent){evnt(26307,3906,"ide_methods.bas");if(r)goto S_39699;} do{ *__LONG_IDEMERGEUNDO= 1 ; -if(!qbevent)break;evnt(25066,3668,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3906,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEUNDOCOMBOCHR= 8 ; -if(!qbevent)break;evnt(25066,3670,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3908,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3673,"ide_methods.bas");}while(r); -S_37505:; +if(!qbevent)break;evnt(26307,3911,"ide_methods.bas");}while(r); +S_39705:; if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(25066,3674,"ide_methods.bas");if(r)goto S_37505;} +if(qbevent){evnt(26307,3912,"ide_methods.bas");if(r)goto S_39705;} do{ goto LABEL_REGULARBACKSPACEIDECX1; -if(!qbevent)break;evnt(25066,3674,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3912,"ide_methods.bas");}while(r); } -S_37508:; +S_39708:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 2 ))))||new_error){ -if(qbevent){evnt(25066,3675,"ide_methods.bas");if(r)goto S_37508;} +if(qbevent){evnt(26307,3913,"ide_methods.bas");if(r)goto S_39708;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3914,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3677,"ide_methods.bas");}while(r); -S_37511:; +if(!qbevent)break;evnt(26307,3915,"ide_methods.bas");}while(r); +S_39711:; }else{ if (qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 2 )))){ -if(qbevent){evnt(25066,3678,"ide_methods.bas");if(r)goto S_37511;} +if(qbevent){evnt(26307,3916,"ide_methods.bas");if(r)goto S_39711;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3679,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3917,"ide_methods.bas");}while(r); } } -S_37514:; +S_39714:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,1)))->len)== 0 )))||new_error){ -if(qbevent){evnt(25066,3682,"ide_methods.bas");if(r)goto S_37514;} +if(qbevent){evnt(26307,3920,"ide_methods.bas");if(r)goto S_39714;} do{ qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3684,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3922,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3923,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3686,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3924,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3687,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3925,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3691,"ide_methods.bas");}while(r); -S_37521:; +if(!qbevent)break;evnt(26307,3929,"ide_methods.bas");}while(r); +S_39721:; do{ -if(qbevent){evnt(25066,3692,"ide_methods.bas");if(r)goto S_37521;} +if(qbevent){evnt(26307,3930,"ide_methods.bas");if(r)goto S_39721;} do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,3693,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3931,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_FIRSTCHAR,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3694,"ide_methods.bas");}while(r); -S_37524:; +if(!qbevent)break;evnt(26307,3932,"ide_methods.bas");}while(r); +S_39724:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_FIRSTCHAR,func_chr( 32 ))))||new_error){ -if(qbevent){evnt(25066,3695,"ide_methods.bas");if(r)goto S_37524;} +if(qbevent){evnt(26307,3933,"ide_methods.bas");if(r)goto S_39724;} do{ -goto dl_exit_4213; -if(!qbevent)break;evnt(25066,3695,"ide_methods.bas");}while(r); +goto dl_exit_4305; +if(!qbevent)break;evnt(26307,3933,"ide_methods.bas");}while(r); } -dl_continue_4213:; +dl_continue_4305:; }while(1); -dl_exit_4213:; -S_37528:; +dl_exit_4305:; +S_39728:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,_FUNC_IDE2_STRING_FIRSTCHAR,0)))||new_error){ -if(qbevent){evnt(25066,3697,"ide_methods.bas");if(r)goto S_37528;} -S_37529:; +if(qbevent){evnt(26307,3935,"ide_methods.bas");if(r)goto S_39728;} +S_39729:; do{ -if(qbevent){evnt(25066,3698,"ide_methods.bas");if(r)goto S_37529;} -S_37530:; +if(qbevent){evnt(26307,3936,"ide_methods.bas");if(r)goto S_39729;} +S_39730:; if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(25066,3699,"ide_methods.bas");if(r)goto S_37530;} +if(qbevent){evnt(26307,3937,"ide_methods.bas");if(r)goto S_39730;} do{ -goto dl_exit_4214; -if(!qbevent)break;evnt(25066,3699,"ide_methods.bas");}while(r); +goto dl_exit_4306; +if(!qbevent)break;evnt(26307,3937,"ide_methods.bas");}while(r); } -S_37533:; +S_39733:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),_FUNC_IDE2_STRING_FIRSTCHAR)))||new_error){ -if(qbevent){evnt(25066,3700,"ide_methods.bas");if(r)goto S_37533;} +if(qbevent){evnt(26307,3938,"ide_methods.bas");if(r)goto S_39733;} do{ -goto dl_exit_4214; -if(!qbevent)break;evnt(25066,3700,"ide_methods.bas");}while(r); +goto dl_exit_4306; +if(!qbevent)break;evnt(26307,3938,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,3701,"ide_methods.bas");}while(r); -dl_continue_4214:; +if(!qbevent)break;evnt(26307,3939,"ide_methods.bas");}while(r); +dl_continue_4306:; }while(1); -dl_exit_4214:; +dl_exit_4306:; }else{ -S_37539:; +S_39739:; do{ -if(qbevent){evnt(25066,3704,"ide_methods.bas");if(r)goto S_37539;} -S_37540:; +if(qbevent){evnt(26307,3942,"ide_methods.bas");if(r)goto S_39739;} +S_39740:; if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(25066,3705,"ide_methods.bas");if(r)goto S_37540;} +if(qbevent){evnt(26307,3943,"ide_methods.bas");if(r)goto S_39740;} do{ -goto dl_exit_4215; -if(!qbevent)break;evnt(25066,3705,"ide_methods.bas");}while(r); +goto dl_exit_4307; +if(!qbevent)break;evnt(26307,3943,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,3706,"ide_methods.bas");}while(r); -S_37544:; +if(!qbevent)break;evnt(26307,3944,"ide_methods.bas");}while(r); +S_39744:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,1),0)))||new_error){ -if(qbevent){evnt(25066,3707,"ide_methods.bas");if(r)goto S_37544;} +if(qbevent){evnt(26307,3945,"ide_methods.bas");if(r)goto S_39744;} do{ -goto dl_exit_4215; -if(!qbevent)break;evnt(25066,3707,"ide_methods.bas");}while(r); +goto dl_exit_4307; +if(!qbevent)break;evnt(26307,3945,"ide_methods.bas");}while(r); } -dl_continue_4215:; +dl_continue_4307:; }while(1); -dl_exit_4215:; +dl_exit_4307:; } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I),func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3710,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3948,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,3711,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3949,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3712,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3950,"ide_methods.bas");}while(r); do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3713,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3951,"ide_methods.bas");}while(r); } -S_37554:; +S_39754:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ -if(qbevent){evnt(25066,3716,"ide_methods.bas");if(r)goto S_37554;} +if(qbevent){evnt(26307,3954,"ide_methods.bas");if(r)goto S_39754;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,3717,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3955,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3718,"ide_methods.bas");}while(r); -S_37557:; +if(!qbevent)break;evnt(26307,3956,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,3957,"ide_methods.bas");}while(r); +S_39758:; if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ -if(qbevent){evnt(25066,3721,"ide_methods.bas");if(r)goto S_37557;} +if(qbevent){evnt(26307,3960,"ide_methods.bas");if(r)goto S_39758;} do{ *__LONG_IDEUNDOCOMBO= 2 ; -if(!qbevent)break;evnt(25066,3722,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3961,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; -if(!qbevent)break;evnt(25066,3724,"ide_methods.bas");}while(r); -S_37561:; +if(!qbevent)break;evnt(26307,3963,"ide_methods.bas");}while(r); +S_39762:; if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ -if(qbevent){evnt(25066,3725,"ide_methods.bas");if(r)goto S_37561;} +if(qbevent){evnt(26307,3964,"ide_methods.bas");if(r)goto S_39762;} do{ *__LONG_IDEMERGEUNDO= 1 ; -if(!qbevent)break;evnt(25066,3725,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3964,"ide_methods.bas");}while(r); } } do{ *__LONG_IDEUNDOCOMBOCHR= 8 ; -if(!qbevent)break;evnt(25066,3727,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3966,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3729,"ide_methods.bas");}while(r); -S_37567:; +if(!qbevent)break;evnt(26307,3968,"ide_methods.bas");}while(r); +S_39768:; if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(25066,3730,"ide_methods.bas");if(r)goto S_37567;} +if(qbevent){evnt(26307,3969,"ide_methods.bas");if(r)goto S_39768;} LABEL_REGULARBACKSPACEIDECX1:; -if(qbevent){evnt(25066,3731,"ide_methods.bas");r=0;} -S_37568:; +if(qbevent){evnt(26307,3970,"ide_methods.bas");r=0;} +S_39769:; if ((-(*__LONG_IDECY> 1 ))||new_error){ -if(qbevent){evnt(25066,3732,"ide_methods.bas");if(r)goto S_37568;} +if(qbevent){evnt(26307,3971,"ide_methods.bas");if(r)goto S_39769;} do{ -qbs_set(_FUNC_IDE2_STRING_A2,FUNC_IDEGETLINE(&(pass4216=*__LONG_IDECY- 1 ))); +qbs_set(_FUNC_IDE2_STRING_A2,FUNC_IDEGETLINE(&(pass4308=*__LONG_IDECY- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3733,"ide_methods.bas");}while(r); -S_37570:; +if(!qbevent)break;evnt(26307,3972,"ide_methods.bas");}while(r); +S_39771:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,3734,"ide_methods.bas");if(r)goto S_37570;} +if(qbevent){evnt(26307,3973,"ide_methods.bas");if(r)goto S_39771;} LABEL_REGULARBACKUPTOPREVLINE:; -if(qbevent){evnt(25066,3736,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,3975,"ide_methods.bas");r=0;} do{ -SUB_IDESETLINE(&(pass4218=*__LONG_IDECY- 1 ),qbs_add(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A)); +SUB_IDESETLINE(&(pass4310=*__LONG_IDECY- 1 ),qbs_add(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3737,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3976,"ide_methods.bas");}while(r); do{ SUB_IDEDELLINE(__LONG_IDECY); -if(!qbevent)break;evnt(25066,3738,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3977,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A2->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3739,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3978,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(25066,3740,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3979,"ide_methods.bas");}while(r); }else{ -S_37576:; +S_39777:; if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,3745,"ide_methods.bas");if(r)goto S_37576;} +if(qbevent){evnt(26307,3984,"ide_methods.bas");if(r)goto S_39777;} do{ -qbs_set(_FUNC_IDE2_STRING_A3,FUNC_IDEGETLINE(&(pass4220=*__LONG_IDECY+ 1 ))); +qbs_set(_FUNC_IDE2_STRING_A3,FUNC_IDEGETLINE(&(pass4312=*__LONG_IDECY+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3746,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3985,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A3->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A3))->len); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3747,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3986,"ide_methods.bas");}while(r); do{ -SUB_IDESETLINE(&(pass4222=*__LONG_IDECY- 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),_FUNC_IDE2_STRING_A)); +SUB_IDESETLINE(&(pass4314=*__LONG_IDECY- 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3748,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3987,"ide_methods.bas");}while(r); do{ SUB_IDEDELLINE(__LONG_IDECY); -if(!qbevent)break;evnt(25066,3749,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3988,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; -if(!qbevent)break;evnt(25066,3750,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3989,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(25066,3751,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3990,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_REGULARBACKUPTOPREVLINE; -if(!qbevent)break;evnt(25066,3753,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3992,"ide_methods.bas");}while(r); } } } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3757,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3996,"ide_methods.bas");}while(r); } -S_37590:; +S_39791:; if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 1 ))))||new_error){ -if(qbevent){evnt(25066,3759,"ide_methods.bas");if(r)goto S_37590;} +if(qbevent){evnt(26307,3998,"ide_methods.bas");if(r)goto S_39791;} do{ *__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3760,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3999,"ide_methods.bas");}while(r); }else{ LABEL_CHECKSPACESBEHIND:; -if(qbevent){evnt(25066,3762,"ide_methods.bas");r=0;} -S_37593:; +if(qbevent){evnt(26307,4001,"ide_methods.bas");r=0;} +S_39794:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,1)))->len)== 0 )))||new_error){ -if(qbevent){evnt(25066,3763,"ide_methods.bas");if(r)goto S_37593;} +if(qbevent){evnt(26307,4002,"ide_methods.bas");if(r)goto S_39794;} do{ *_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(25066,3765,"ide_methods.bas");}while(r); -S_37595:; +if(!qbevent)break;evnt(26307,4004,"ide_methods.bas");}while(r); +S_39796:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(25066,3766,"ide_methods.bas");if(r)goto S_37595;} +if(qbevent){evnt(26307,4005,"ide_methods.bas");if(r)goto S_39796;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(25066,3766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4005,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP=(*__LONG_IDECX- 1 )/ ((long double)(*_FUNC_IDE2_LONG_X)); -if(!qbevent)break;evnt(25066,3767,"ide_methods.bas");}while(r); -S_37599:; +if(!qbevent)break;evnt(26307,4006,"ide_methods.bas");}while(r); +S_39800:; if ((-(((float)(*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP))==((float)(func_fix_double(*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP)))))||new_error){ -if(qbevent){evnt(25066,3768,"ide_methods.bas");if(r)goto S_37599;} -S_37600:; +if(qbevent){evnt(26307,4007,"ide_methods.bas");if(r)goto S_39800;} +S_39801:; if ((-((*__LONG_IDECX-*_FUNC_IDE2_LONG_X)<( 1 )))||new_error){ -if(qbevent){evnt(25066,3769,"ide_methods.bas");if(r)goto S_37600;} +if(qbevent){evnt(26307,4008,"ide_methods.bas");if(r)goto S_39801;} do{ *_FUNC_IDE2_LONG_X=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,3769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4008,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX-(*_FUNC_IDE2_LONG_X+ 1 )),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3770,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4009,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3771,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4010,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,3772,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4011,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_ONEBACKSPACE; -if(!qbevent)break;evnt(25066,3774,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4013,"ide_methods.bas");}while(r); } }else{ LABEL_ONEBACKSPACE:; -if(qbevent){evnt(25066,3777,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,4016,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 2 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4017,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4018,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,3780,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4019,"ide_methods.bas");}while(r); } } do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3783,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4022,"ide_methods.bas");}while(r); } -S_37617:; +S_39818:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len!= 1 )))||new_error){ -if(qbevent){evnt(25066,3795,"ide_methods.bas");if(r)goto S_37617;} +if(qbevent){evnt(26307,4034,"ide_methods.bas");if(r)goto S_39818;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4034,"ide_methods.bas");}while(r); } -S_37620:; +S_39821:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 9 ))))||new_error){ -if(qbevent){evnt(25066,3796,"ide_methods.bas");if(r)goto S_37620;} +if(qbevent){evnt(26307,4035,"ide_methods.bas");if(r)goto S_39821;} do{ goto LABEL_IDEFORCEINPUT; -if(!qbevent)break;evnt(25066,3796,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4035,"ide_methods.bas");}while(r); } -S_37623:; +S_39824:; if ((qbs_cleanup(qbs_tmp_base,((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[array_check((qbs_asc(__STRING_K))-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5])]))||new_error){ -if(qbevent){evnt(25066,3797,"ide_methods.bas");if(r)goto S_37623;} +if(qbevent){evnt(26307,4036,"ide_methods.bas");if(r)goto S_39824;} do{ goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4036,"ide_methods.bas");}while(r); } LABEL_IDEFORCEINPUT:; -if(qbevent){evnt(25066,3798,"ide_methods.bas");r=0;} -S_37626:; +if(qbevent){evnt(26307,4037,"ide_methods.bas");r=0;} +S_39827:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 9 )))|(((qbs_equal(__STRING_K,func_chr( 25 )))&(-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))))))||new_error){ -if(qbevent){evnt(25066,3800,"ide_methods.bas");if(r)goto S_37626;} -S_37627:; +if(qbevent){evnt(26307,4039,"ide_methods.bas");if(r)goto S_39827;} +S_39828:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,3801,"ide_methods.bas");if(r)goto S_37627;} -S_37628:; +if(qbevent){evnt(26307,4040,"ide_methods.bas");if(r)goto S_39828;} +S_39829:; if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT|(qbs_equal(__STRING_K,func_chr( 25 )))))||new_error){ -if(qbevent){evnt(25066,3803,"ide_methods.bas");if(r)goto S_37628;} +if(qbevent){evnt(26307,4042,"ide_methods.bas");if(r)goto S_39829;} LABEL_IDEBLOCKDECREASEINDENT:; -if(qbevent){evnt(25066,3804,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,4043,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; -if(!qbevent)break;evnt(25066,3805,"ide_methods.bas");}while(r); -S_37630:; +if(!qbevent)break;evnt(26307,4044,"ide_methods.bas");}while(r); +S_39831:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(25066,3806,"ide_methods.bas");if(r)goto S_37630;} +if(qbevent){evnt(26307,4045,"ide_methods.bas");if(r)goto S_39831;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(25066,3806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4045,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,3807,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4046,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,3808,"ide_methods.bas");}while(r); -S_37635:; +if(!qbevent)break;evnt(26307,4047,"ide_methods.bas");}while(r); +S_39836:; if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,3810,"ide_methods.bas");if(r)goto S_37635;} +if(qbevent){evnt(26307,4049,"ide_methods.bas");if(r)goto S_39836;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4050,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4051,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,3813,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4052,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3813,"ide_methods.bas");}while(r); -S_37640:; +if(!qbevent)break;evnt(26307,4052,"ide_methods.bas");}while(r); +S_39841:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,3814,"ide_methods.bas");if(r)goto S_37640;} +if(qbevent){evnt(26307,4053,"ide_methods.bas");if(r)goto S_39841;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,3814,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4053,"ide_methods.bas");}while(r); } -S_37643:; -fornext_value4229=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4229=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4229= 1 ; -if (fornext_step4229<0) fornext_step_negative4229=1; else fornext_step_negative4229=0; -if (new_error) goto fornext_error4229; -goto fornext_entrylabel4229; +S_39844:; +fornext_value4321=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4321=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4321= 1 ; +if (fornext_step4321<0) fornext_step_negative4321=1; else fornext_step_negative4321=0; +if (new_error) goto fornext_error4321; +goto fornext_entrylabel4321; while(1){ -fornext_value4229=fornext_step4229+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4229: -*_FUNC_IDE2_LONG_X=fornext_value4229; -if (fornext_step_negative4229){ -if (fornext_value4229fornext_finalvalue4229) break; +if (fornext_value4321>fornext_finalvalue4321) break; } -fornext_error4229:; -if(qbevent){evnt(25066,3815,"ide_methods.bas");if(r)goto S_37643;} -S_37644:; +fornext_error4321:; +if(qbevent){evnt(26307,4054,"ide_methods.bas");if(r)goto S_39844;} +S_39845:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3816,"ide_methods.bas");if(r)goto S_37644;} +if(qbevent){evnt(26307,4055,"ide_methods.bas");if(r)goto S_39845;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3816,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4055,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3816,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4055,"ide_methods.bas");}while(r); } -fornext_continue_4228:; +fornext_continue_4320:; } -fornext_exit_4228:; -S_37650:; +fornext_exit_4320:; +S_39851:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,3818,"ide_methods.bas");if(r)goto S_37650;} +if(qbevent){evnt(26307,4057,"ide_methods.bas");if(r)goto S_39851;} do{ goto LABEL_SKIPBLOCKINDENT; -if(!qbevent)break;evnt(25066,3819,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4058,"ide_methods.bas");}while(r); } } -S_37654:; +S_39855:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,3823,"ide_methods.bas");if(r)goto S_37654;} +if(qbevent){evnt(26307,4062,"ide_methods.bas");if(r)goto S_39855;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(25066,3823,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4062,"ide_methods.bas");}while(r); } -S_37657:; +S_39858:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(25066,3824,"ide_methods.bas");if(r)goto S_37657;} +if(qbevent){evnt(26307,4063,"ide_methods.bas");if(r)goto S_39858;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(25066,3824,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4063,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(25066,3826,"ide_methods.bas");}while(r); -S_37661:; -fornext_value4232=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4232=*_FUNC_IDE2_LONG_Y2; -fornext_step4232= 1 ; -if (fornext_step4232<0) fornext_step_negative4232=1; else fornext_step_negative4232=0; -if (new_error) goto fornext_error4232; -goto fornext_entrylabel4232; +if(!qbevent)break;evnt(26307,4065,"ide_methods.bas");}while(r); +S_39862:; +fornext_value4324=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4324=*_FUNC_IDE2_LONG_Y2; +fornext_step4324= 1 ; +if (fornext_step4324<0) fornext_step_negative4324=1; else fornext_step_negative4324=0; +if (new_error) goto fornext_error4324; +goto fornext_entrylabel4324; while(1){ -fornext_value4232=fornext_step4232+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4232: -*_FUNC_IDE2_LONG_Y=fornext_value4232; -if (fornext_step_negative4232){ -if (fornext_value4232fornext_finalvalue4232) break; +if (fornext_value4324>fornext_finalvalue4324) break; } -fornext_error4232:; -if(qbevent){evnt(25066,3827,"ide_methods.bas");if(r)goto S_37661;} +fornext_error4324:; +if(qbevent){evnt(26307,4066,"ide_methods.bas");if(r)goto S_39862;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3828,"ide_methods.bas");}while(r); -S_37663:; +if(!qbevent)break;evnt(26307,4067,"ide_methods.bas");}while(r); +S_39864:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,3829,"ide_methods.bas");if(r)goto S_37663;} +if(qbevent){evnt(26307,4068,"ide_methods.bas");if(r)goto S_39864;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3830,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4069,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3831,"ide_methods.bas");}while(r); -S_37666:; +if(!qbevent)break;evnt(26307,4070,"ide_methods.bas");}while(r); +S_39867:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(25066,3832,"ide_methods.bas");if(r)goto S_37666;} +if(qbevent){evnt(26307,4071,"ide_methods.bas");if(r)goto S_39867;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(25066,3832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4071,"ide_methods.bas");}while(r); } } -fornext_continue_4231:; +fornext_continue_4323:; } -fornext_exit_4231:; -S_37671:; +fornext_exit_4323:; +S_39872:; if ((-(*_FUNC_IDE2_LONG_LHS> 0 ))||new_error){ -if(qbevent){evnt(25066,3837,"ide_methods.bas");if(r)goto S_37671;} -S_37672:; +if(qbevent){evnt(26307,4076,"ide_methods.bas");if(r)goto S_39872;} +S_39873:; if ((-(*_FUNC_IDE2_LONG_LHS<*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL))||new_error){ -if(qbevent){evnt(25066,3838,"ide_methods.bas");if(r)goto S_37672;} +if(qbevent){evnt(26307,4077,"ide_methods.bas");if(r)goto S_39873;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*_FUNC_IDE2_LONG_LHS; -if(!qbevent)break;evnt(25066,3838,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4077,"ide_methods.bas");}while(r); } -S_37675:; -fornext_value4237=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4237=*_FUNC_IDE2_LONG_Y2; -fornext_step4237= 1 ; -if (fornext_step4237<0) fornext_step_negative4237=1; else fornext_step_negative4237=0; -if (new_error) goto fornext_error4237; -goto fornext_entrylabel4237; +S_39876:; +fornext_value4329=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4329=*_FUNC_IDE2_LONG_Y2; +fornext_step4329= 1 ; +if (fornext_step4329<0) fornext_step_negative4329=1; else fornext_step_negative4329=0; +if (new_error) goto fornext_error4329; +goto fornext_entrylabel4329; while(1){ -fornext_value4237=fornext_step4237+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4237: -*_FUNC_IDE2_LONG_Y=fornext_value4237; -if (fornext_step_negative4237){ -if (fornext_value4237fornext_finalvalue4237) break; +if (fornext_value4329>fornext_finalvalue4329) break; } -fornext_error4237:; -if(qbevent){evnt(25066,3839,"ide_methods.bas");if(r)goto S_37675;} +fornext_error4329:; +if(qbevent){evnt(26307,4078,"ide_methods.bas");if(r)goto S_39876;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3840,"ide_methods.bas");}while(r); -S_37677:; +if(!qbevent)break;evnt(26307,4079,"ide_methods.bas");}while(r); +S_39878:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,3841,"ide_methods.bas");if(r)goto S_37677;} +if(qbevent){evnt(26307,4080,"ide_methods.bas");if(r)goto S_39878;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3842,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4081,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3843,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4082,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4083,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4084,"ide_methods.bas");}while(r); } -fornext_continue_4236:; +fornext_continue_4328:; } -fornext_exit_4236:; +fornext_exit_4328:; } -S_37684:; +S_39886:; if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(25066,3848,"ide_methods.bas");if(r)goto S_37684;} +if(qbevent){evnt(26307,4088,"ide_methods.bas");if(r)goto S_39886;} do{ *__LONG_IDESELECTX1=*__LONG_IDESELECTX1-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(25066,3849,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4089,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(25066,3850,"ide_methods.bas");}while(r); -S_37687:; +if(!qbevent)break;evnt(26307,4090,"ide_methods.bas");}while(r); +S_39889:; if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(25066,3851,"ide_methods.bas");if(r)goto S_37687;} +if(qbevent){evnt(26307,4091,"ide_methods.bas");if(r)goto S_39889;} do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,3851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4091,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4091,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3853,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4093,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3853,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3853,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3853,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4093,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,3854,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4094,"ide_methods.bas");}while(r); }else{ LABEL_IDEBLOCKINCREASEINDENT:; -if(qbevent){evnt(25066,3856,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,4096,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; -if(!qbevent)break;evnt(25066,3857,"ide_methods.bas");}while(r); -S_37699:; +if(!qbevent)break;evnt(26307,4097,"ide_methods.bas");}while(r); +S_39899:; if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(25066,3858,"ide_methods.bas");if(r)goto S_37699;} +if(qbevent){evnt(26307,4098,"ide_methods.bas");if(r)goto S_39899;} do{ *_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(25066,3858,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4098,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,3859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4099,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,3860,"ide_methods.bas");}while(r); -S_37704:; +if(!qbevent)break;evnt(26307,4100,"ide_methods.bas");}while(r); +S_39904:; if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,3862,"ide_methods.bas");if(r)goto S_37704;} +if(qbevent){evnt(26307,4102,"ide_methods.bas");if(r)goto S_39904;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3863,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4103,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3864,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4104,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,3865,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4105,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3865,"ide_methods.bas");}while(r); -S_37709:; +if(!qbevent)break;evnt(26307,4105,"ide_methods.bas");}while(r); +S_39909:; if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,3866,"ide_methods.bas");if(r)goto S_37709;} +if(qbevent){evnt(26307,4106,"ide_methods.bas");if(r)goto S_39909;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,3866,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4106,"ide_methods.bas");}while(r); } -S_37712:; -fornext_value4241=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4241=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4241= 1 ; -if (fornext_step4241<0) fornext_step_negative4241=1; else fornext_step_negative4241=0; -if (new_error) goto fornext_error4241; -goto fornext_entrylabel4241; -while(1){ -fornext_value4241=fornext_step4241+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4241: -*_FUNC_IDE2_LONG_X=fornext_value4241; -if (fornext_step_negative4241){ -if (fornext_value4241fornext_finalvalue4241) break; -} -fornext_error4241:; -if(qbevent){evnt(25066,3867,"ide_methods.bas");if(r)goto S_37712;} -S_37713:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,3868,"ide_methods.bas");if(r)goto S_37713;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3868,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3868,"ide_methods.bas");}while(r); -} -fornext_continue_4240:; -} -fornext_exit_4240:; -S_37719:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,3870,"ide_methods.bas");if(r)goto S_37719;} -do{ -goto LABEL_SKIPBLOCKINDENT; -if(!qbevent)break;evnt(25066,3871,"ide_methods.bas");}while(r); -} -} -S_37723:; -if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,3875,"ide_methods.bas");if(r)goto S_37723;} -do{ -swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(25066,3875,"ide_methods.bas");}while(r); -} -S_37726:; -if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(25066,3876,"ide_methods.bas");if(r)goto S_37726;} -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(25066,3876,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(25066,3878,"ide_methods.bas");}while(r); -S_37730:; -fornext_value4244=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4244=*_FUNC_IDE2_LONG_Y2; -fornext_step4244= 1 ; -if (fornext_step4244<0) fornext_step_negative4244=1; else fornext_step_negative4244=0; -if (new_error) goto fornext_error4244; -goto fornext_entrylabel4244; -while(1){ -fornext_value4244=fornext_step4244+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4244: -*_FUNC_IDE2_LONG_Y=fornext_value4244; -if (fornext_step_negative4244){ -if (fornext_value4244fornext_finalvalue4244) break; -} -fornext_error4244:; -if(qbevent){evnt(25066,3879,"ide_methods.bas");if(r)goto S_37730;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3880,"ide_methods.bas");}while(r); -S_37732:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,3881,"ide_methods.bas");if(r)goto S_37732;} -do{ -qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3882,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3883,"ide_methods.bas");}while(r); -S_37735:; -if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(25066,3884,"ide_methods.bas");if(r)goto S_37735;} -do{ -*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(25066,3884,"ide_methods.bas");}while(r); -} -} -fornext_continue_4243:; -} -fornext_exit_4243:; -S_37740:; -fornext_value4249=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4249=*_FUNC_IDE2_LONG_Y2; -fornext_step4249= 1 ; -if (fornext_step4249<0) fornext_step_negative4249=1; else fornext_step_negative4249=0; -if (new_error) goto fornext_error4249; -goto fornext_entrylabel4249; -while(1){ -fornext_value4249=fornext_step4249+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4249: -*_FUNC_IDE2_LONG_Y=fornext_value4249; -if (fornext_step_negative4249){ -if (fornext_value4249fornext_finalvalue4249) break; -} -fornext_error4249:; -if(qbevent){evnt(25066,3888,"ide_methods.bas");if(r)goto S_37740;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3889,"ide_methods.bas");}while(r); -S_37742:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,3890,"ide_methods.bas");if(r)goto S_37742;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),func_space(*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3891,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3892,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3893,"ide_methods.bas");}while(r); -} -fornext_continue_4248:; -} -fornext_exit_4248:; -S_37748:; -if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(25066,3896,"ide_methods.bas");if(r)goto S_37748;} -do{ -*__LONG_IDESELECTX1=*__LONG_IDESELECTX1+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(25066,3897,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(25066,3898,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,3900,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,3900,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,3900,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,3900,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,3901,"ide_methods.bas");}while(r); -} -}else{ -LABEL_SKIPBLOCKINDENT:; -if(qbevent){evnt(25066,3904,"ide_methods.bas");r=0;} -S_37759:; -if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(25066,3905,"ide_methods.bas");if(r)goto S_37759;} -do{ -*_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(25066,3906,"ide_methods.bas");}while(r); -S_37761:; -if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(25066,3907,"ide_methods.bas");if(r)goto S_37761;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(25066,3907,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_K,func_space(*_FUNC_IDE2_LONG_X-((*__LONG_IDECX- 1 )%*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3908,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3910,"ide_methods.bas");}while(r); -} -} -} -S_37770:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))&(~(*__BYTE_ALTSPECIAL))))||new_error){ -if(qbevent){evnt(25066,3915,"ide_methods.bas");if(r)goto S_37770;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3915,"ide_methods.bas");}while(r); -} -S_37773:; -if ((*__LONG_KCTRL&(~(*__LONG_KALT)))||new_error){ -if(qbevent){evnt(25066,3919,"ide_methods.bas");if(r)goto S_37773;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3919,"ide_methods.bas");}while(r); -} -S_37776:; -if ((*__LONG_KALT&(~(*__LONG_KCTRL))&(~(*__BYTE_ALTSPECIAL)))||new_error){ -if(qbevent){evnt(25066,3920,"ide_methods.bas");if(r)goto S_37776;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(25066,3920,"ide_methods.bas");}while(r); -} -S_37779:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,3923,"ide_methods.bas");if(r)goto S_37779;} -do{ -return_point[next_return_point++]=40; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DELSELECT; -RETURN_40:; -if(!qbevent)break;evnt(25066,3923,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,3924,"ide_methods.bas");}while(r); -S_37783:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,3927,"ide_methods.bas");if(r)goto S_37783;} -do{ -*_FUNC_IDE2_LONG_ASCK=qbs_asc(__STRING_K); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3928,"ide_methods.bas");}while(r); -S_37785:; -if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_ASCK)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*__LONG_IDEUNDOCOMBOCHR==*_FUNC_IDE2_LONG_ASCK)))||new_error){ -if(qbevent){evnt(25066,3929,"ide_methods.bas");if(r)goto S_37785;} -S_37786:; -if ((-(*__LONG_IDEUNDOCOMBOCHR== 8 ))||new_error){ -if(qbevent){evnt(25066,3930,"ide_methods.bas");if(r)goto S_37786;} -do{ -*__LONG_IDEUNDOCOMBO= 0 ; -if(!qbevent)break;evnt(25066,3930,"ide_methods.bas");}while(r); -} -S_37789:; -if ((-(*__LONG_IDEUNDOCOMBO== 0 ))||new_error){ -if(qbevent){evnt(25066,3931,"ide_methods.bas");if(r)goto S_37789;} -do{ -*__LONG_IDEUNDOCOMBO= 2 ; -if(!qbevent)break;evnt(25066,3932,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; -if(!qbevent)break;evnt(25066,3934,"ide_methods.bas");}while(r); -S_37793:; -if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ -if(qbevent){evnt(25066,3935,"ide_methods.bas");if(r)goto S_37793;} -do{ -*__LONG_IDEMERGEUNDO= 1 ; -if(!qbevent)break;evnt(25066,3935,"ide_methods.bas");}while(r); -} -} -} -do{ -*__LONG_IDEUNDOCOMBOCHR=*_FUNC_IDE2_LONG_ASCK; -if(!qbevent)break;evnt(25066,3938,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3941,"ide_methods.bas");}while(r); -S_37801:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ -if(qbevent){evnt(25066,3942,"ide_methods.bas");if(r)goto S_37801;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX- 1 -_FUNC_IDE2_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3942,"ide_methods.bas");}while(r); -} -S_37804:; -if ((*__INTEGER_IDEINSERT)||new_error){ -if(qbevent){evnt(25066,3944,"ide_methods.bas");if(r)goto S_37804;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3945,"ide_methods.bas");}while(r); -S_37806:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(25066,3946,"ide_methods.bas");if(r)goto S_37806;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3946,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3947,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3949,"ide_methods.bas");}while(r); -} -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3952,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+__STRING_K->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3953,"ide_methods.bas");}while(r); -LABEL_SPECIALCHAR:; -if(qbevent){evnt(25066,3954,"ide_methods.bas");r=0;} -S_37815:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_IDEINFO,qbs_new_txt_len("",0)))|(qbs_equal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))))||new_error){ -if(qbevent){evnt(25066,3957,"ide_methods.bas");if(r)goto S_37815;} -S_37816:; -if ((-(*__LONG_IDECY==*__LONG_IDESELECTY1))||new_error){ -if(qbevent){evnt(25066,3958,"ide_methods.bas");if(r)goto S_37816;} -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,3959,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,3959,"ide_methods.bas");}while(r); -S_37819:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,3960,"ide_methods.bas");if(r)goto S_37819;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,3960,"ide_methods.bas");}while(r); -} -S_37822:; -if (((-(*__LONG_IDESELECT== 1 ))&(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)> 0 )))||new_error){ -if(qbevent){evnt(25066,3961,"ide_methods.bas");if(r)goto S_37822;} -S_37823:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,3962,"ide_methods.bas");if(r)goto S_37823;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3963,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3964,"ide_methods.bas");}while(r); -S_37826:; -fornext_value4261= 1 ; -fornext_finalvalue4261=__STRING_IDECURRENTSINGLELINESELECTION->len; -fornext_step4261= 1 ; -if (fornext_step4261<0) fornext_step_negative4261=1; else fornext_step_negative4261=0; -if (new_error) goto fornext_error4261; -goto fornext_entrylabel4261; -while(1){ -fornext_value4261=fornext_step4261+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4261: -*_FUNC_IDE2_LONG_I=fornext_value4261; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4261){ -if (fornext_value4261fornext_finalvalue4261) break; -} -fornext_error4261:; -if(qbevent){evnt(25066,3965,"ide_methods.bas");if(r)goto S_37826;} -S_37827:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,1),0)> 0 )))||new_error){ -if(qbevent){evnt(25066,3966,"ide_methods.bas");if(r)goto S_37827;} -S_37828:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,1),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(25066,3968,"ide_methods.bas");if(r)goto S_37828;} -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3969,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4260; -if(!qbevent)break;evnt(25066,3970,"ide_methods.bas");}while(r); -} -} -fornext_continue_4260:; -} -fornext_exit_4260:; -} -do{ -qbs_set(__STRING_IDEINFO,qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4263=*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3975,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,3976,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3978,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3979,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,3980,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3983,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3984,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(25066,3985,"ide_methods.bas");}while(r); -} -} -S_37848:; -if ((*__BYTE_ALTSPECIAL)||new_error){ -if(qbevent){evnt(25066,3989,"ide_methods.bas");if(r)goto S_37848;} -do{ -*__BYTE_ALTSPECIAL= 0 ; -if(!qbevent)break;evnt(25066,3990,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEENTERMENU= 0 ; -if(!qbevent)break;evnt(25066,3991,"ide_methods.bas");}while(r); -do{ -*__LONG_KALT= 0 ; -if(!qbevent)break;evnt(25066,3992,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,3993,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,3993,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4264; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4264: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3993,"ide_methods.bas");}while(r); -} -dl_continue_3829:; -}while(1); -dl_exit_3829:; -LABEL_STARTMENU:; -if(qbevent){evnt(25066,3999,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(25066,4000,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(25066,4001,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(25066,4001,"ide_methods.bas");}while(r); -LABEL_STARTMENU2:; -if(qbevent){evnt(25066,4002,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(25066,4003,"ide_methods.bas");}while(r); -S_37861:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,4004,"ide_methods.bas");if(r)goto S_37861;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,4004,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=41; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_41:; -if(!qbevent)break;evnt(25066,4004,"ide_methods.bas");}while(r); -} -S_37865:; -do{ -if(qbevent){evnt(25066,4006,"ide_methods.bas");if(r)goto S_37865;} -do{ -qbg_sub_locate( 1 , 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4008,"ide_methods.bas");}while(r); -S_37867:; -fornext_value4267= 1 ; -fornext_finalvalue4267=*__INTEGER_MENUS; -fornext_step4267= 1 ; -if (fornext_step4267<0) fornext_step_negative4267=1; else fornext_step_negative4267=0; -if (new_error) goto fornext_error4267; -goto fornext_entrylabel4267; -while(1){ -fornext_value4267=fornext_step4267+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4267: -*_FUNC_IDE2_LONG_I=fornext_value4267; -if (fornext_step_negative4267){ -if (fornext_value4267fornext_finalvalue4267) break; -} -fornext_error4267:; -if(qbevent){evnt(25066,4009,"ide_methods.bas");if(r)goto S_37867;} -S_37868:; -if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4010,"ide_methods.bas");if(r)goto S_37868;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4010,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4010,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len(" ",1),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); -if (new_error) goto skip4268; -makefit(tqbs); -qbs_print(tqbs,0); -skip4268: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4011,"ide_methods.bas");}while(r); -S_37874:; -if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4012,"ide_methods.bas");if(r)goto S_37874;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4012,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4012,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ),qbs_new_txt_len(" ",1))); -if (new_error) goto skip4269; -makefit(tqbs); -qbs_print(tqbs,0); -skip4269: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4013,"ide_methods.bas");}while(r); -S_37880:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(25066,4014,"ide_methods.bas");if(r)goto S_37880;} -do{ -qbg_sub_locate( 1 ,*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ,NULL,NULL,NULL,3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4014,"ide_methods.bas");}while(r); -} -fornext_continue_4266:; -} -fornext_exit_4266:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4017,"ide_methods.bas");}while(r); -S_37885:; -do{ -if(qbevent){evnt(25066,4018,"ide_methods.bas");if(r)goto S_37885;} -do{ -*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; -if(!qbevent)break;evnt(25066,4020,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,4022,"ide_methods.bas");}while(r); -S_37888:; -if (((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))|(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY)))||new_error){ -if(qbevent){evnt(25066,4023,"ide_methods.bas");if(r)goto S_37888;} -S_37889:; -if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ -if(qbevent){evnt(25066,4024,"ide_methods.bas");if(r)goto S_37889;} -do{ -*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,4025,"ide_methods.bas");}while(r); -S_37891:; -fornext_value4274= 1 ; -fornext_finalvalue4274=*__INTEGER_MENUS; -fornext_step4274= 1 ; -if (fornext_step4274<0) fornext_step_negative4274=1; else fornext_step_negative4274=0; -if (new_error) goto fornext_error4274; -goto fornext_entrylabel4274; -while(1){ -fornext_value4274=fornext_step4274+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4274: -*_FUNC_IDE2_LONG_I=fornext_value4274; -if (fornext_step_negative4274){ -if (fornext_value4274fornext_finalvalue4274) break; -} -fornext_error4274:; -if(qbevent){evnt(25066,4026,"ide_methods.bas");if(r)goto S_37891;} -do{ -*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4027,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4028,"ide_methods.bas");}while(r); -S_37894:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(25066,4029,"ide_methods.bas");if(r)goto S_37894;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,4030,"ide_methods.bas");}while(r); -S_37896:; -if ((-(*_FUNC_IDE2_LONG_M!=*_FUNC_IDE2_LONG_LASTM))||new_error){ -if(qbevent){evnt(25066,4031,"ide_methods.bas");if(r)goto S_37896;} -do{ -goto dl_exit_4272; -if(!qbevent)break;evnt(25066,4031,"ide_methods.bas");}while(r); -} -} -fornext_continue_4273:; -} -fornext_exit_4273:; -} -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(25066,4035,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(25066,4035,"ide_methods.bas");}while(r); -} -S_37905:; -if ((-(*__LONG_ICHANGED== 0 ))||new_error){ -if(qbevent){evnt(25066,4037,"ide_methods.bas");if(r)goto S_37905;} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,4037,"ide_methods.bas");}while(r); -} -S_37908:; -if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(25066,4039,"ide_methods.bas");if(r)goto S_37908;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(25066,4039,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_ALTHELD= 0 ; -if(!qbevent)break;evnt(25066,4039,"ide_methods.bas");}while(r); -} -S_37913:; -if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ -if(qbevent){evnt(25066,4041,"ide_methods.bas");if(r)goto S_37913;} -S_37914:; -do{ -if(qbevent){evnt(25066,4042,"ide_methods.bas");if(r)goto S_37914;} -do{ -sub__limit( 1000 ); -if(!qbevent)break;evnt(25066,4043,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,4044,"ide_methods.bas");}while(r); -S_37917:; -if ((-(func__hasfocus()== 0 ))||new_error){ -if(qbevent){evnt(25066,4045,"ide_methods.bas");if(r)goto S_37917;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4046,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4046,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4277; -makefit(tqbs); -qbs_print(tqbs,0); -skip4277: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4046,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4047,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4047,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4048,"ide_methods.bas");}while(r); -} -S_37925:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,4051,"ide_methods.bas");if(r)goto S_37925;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(25066,4052,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,4052,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4052,"ide_methods.bas");}while(r); -} -S_37930:; -dl_continue_4276:; -}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); -dl_exit_4276:; -if(qbevent){evnt(25066,4054,"ide_methods.bas");if(r)goto S_37930;} -do{ -*__LONG_KB= 27 ; -if(!qbevent)break;evnt(25066,4055,"ide_methods.bas");}while(r); -} -S_37933:; -if ((-(func__hasfocus()== 0 ))||new_error){ -if(qbevent){evnt(25066,4058,"ide_methods.bas");if(r)goto S_37933;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4059,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4059,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4278; -makefit(tqbs); -qbs_print(tqbs,0); -skip4278: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4059,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4060,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4060,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4061,"ide_methods.bas");}while(r); -} -S_37941:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,4064,"ide_methods.bas");if(r)goto S_37941;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(25066,4065,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,4065,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4065,"ide_methods.bas");}while(r); -} -S_37946:; -if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(25066,4068,"ide_methods.bas");if(r)goto S_37946;} -S_37947:; -if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(25066,4069,"ide_methods.bas");if(r)goto S_37947;} -S_37948:; -fornext_value4280= 1 ; -fornext_finalvalue4280=*__INTEGER_MENUS; -fornext_step4280= 1 ; -if (fornext_step4280<0) fornext_step_negative4280=1; else fornext_step_negative4280=0; -if (new_error) goto fornext_error4280; -goto fornext_entrylabel4280; -while(1){ -fornext_value4280=fornext_step4280+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4280: -*_FUNC_IDE2_LONG_I=fornext_value4280; -if (fornext_step_negative4280){ -if (fornext_value4280fornext_finalvalue4280) break; -} -fornext_error4280:; -if(qbevent){evnt(25066,4070,"ide_methods.bas");if(r)goto S_37948;} -do{ -*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4071,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4072,"ide_methods.bas");}while(r); -S_37951:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(25066,4073,"ide_methods.bas");if(r)goto S_37951;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,4074,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4075,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4075,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4282; -makefit(tqbs); -qbs_print(tqbs,0); -skip4282: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4075,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4076,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,4077,"ide_methods.bas");}while(r); -} -fornext_continue_4279:; -} -fornext_exit_4279:; -} -do{ -*__LONG_KB= 27 ; -if(!qbevent)break;evnt(25066,4081,"ide_methods.bas");}while(r); -} -S_37963:; -if ((func__exit())||new_error){ -if(qbevent){evnt(25066,4084,"ide_methods.bas");if(r)goto S_37963;} -do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(25066,4084,"ide_methods.bas");}while(r); -do{ -*__LONG_KB= 27 ; -if(!qbevent)break;evnt(25066,4084,"ide_methods.bas");}while(r); -} -S_37967:; -dl_continue_4272:; -}while((!(*__LONG_KB))&&(!new_error)); -dl_exit_4272:; -if(qbevent){evnt(25066,4085,"ide_methods.bas");if(r)goto S_37967;} -do{ -qbs_set(__STRING_K,qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4087,"ide_methods.bas");}while(r); -S_37969:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&*__LONG_KCTRL))||new_error){ -if(qbevent){evnt(25066,4088,"ide_methods.bas");if(r)goto S_37969;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4090,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4090,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4284; -makefit(tqbs); -qbs_print(tqbs,0); -skip4284: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4090,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4091,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4091,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4092,"ide_methods.bas");}while(r); -} -S_37977:; -fornext_value4286= 1 ; -fornext_finalvalue4286=*__INTEGER_MENUS; -fornext_step4286= 1 ; -if (fornext_step4286<0) fornext_step_negative4286=1; else fornext_step_negative4286=0; -if (new_error) goto fornext_error4286; -goto fornext_entrylabel4286; -while(1){ -fornext_value4286=fornext_step4286+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4286: -*_FUNC_IDE2_LONG_I=fornext_value4286; -if (fornext_step_negative4286){ -if (fornext_value4286fornext_finalvalue4286) break; -} -fornext_error4286:; -if(qbevent){evnt(25066,4095,"ide_methods.bas");if(r)goto S_37977;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4096,"ide_methods.bas");}while(r); -S_37979:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A)))||new_error){ -if(qbevent){evnt(25066,4097,"ide_methods.bas");if(r)goto S_37979;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,4098,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4099,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4099,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4287; -makefit(tqbs); -qbs_print(tqbs,0); -skip4287: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4099,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4100,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,4101,"ide_methods.bas");}while(r); -} -fornext_continue_4285:; -} -fornext_exit_4285:; -S_37988:; -if ((-(*__LONG_KB== 19200 ))||new_error){ -if(qbevent){evnt(25066,4105,"ide_methods.bas");if(r)goto S_37988;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; -if(!qbevent)break;evnt(25066,4105,"ide_methods.bas");}while(r); -} -S_37991:; -if ((-(*__LONG_KB== 19712 ))||new_error){ -if(qbevent){evnt(25066,4106,"ide_methods.bas");if(r)goto S_37991;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,4106,"ide_methods.bas");}while(r); -} -S_37994:; -if ((-(*__LONG_KB== 27 ))||new_error){ -if(qbevent){evnt(25066,4107,"ide_methods.bas");if(r)goto S_37994;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4108,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4108,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4288; -makefit(tqbs); -qbs_print(tqbs,0); -skip4288: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4108,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4109,"ide_methods.bas");}while(r); -} -S_38000:; -if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ -if(qbevent){evnt(25066,4111,"ide_methods.bas");if(r)goto S_38000;} -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; -if(!qbevent)break;evnt(25066,4111,"ide_methods.bas");}while(r); -} -S_38003:; -if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(25066,4112,"ide_methods.bas");if(r)goto S_38003;} -do{ -*_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(25066,4112,"ide_methods.bas");}while(r); -} -S_38006:; -if (((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 13 )))||new_error){ -if(qbevent){evnt(25066,4113,"ide_methods.bas");if(r)goto S_38006;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4114,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4114,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4289; -makefit(tqbs); -qbs_print(tqbs,0); -skip4289: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4114,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4115,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,4116,"ide_methods.bas");}while(r); -} -S_38013:; -if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB<= 255 )))||new_error){ -if(qbevent){evnt(25066,4120,"ide_methods.bas");if(r)goto S_38013;} -S_38014:; -if ((-(*__LONG_KALT== 0 ))||new_error){ -if(qbevent){evnt(25066,4121,"ide_methods.bas");if(r)goto S_38014;} -do{ -*__LONG_ICHECKLATER= 1 ; -if(!qbevent)break;evnt(25066,4122,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4123,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4123,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4290; -makefit(tqbs); -qbs_print(tqbs,0); -skip4290: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4123,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4124,"ide_methods.bas");}while(r); -} -} -dl_continue_4265:; -}while(1); -dl_exit_4265:; -LABEL_SHOWMENU:; -if(qbevent){evnt(25066,4132,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(25066,4133,"ide_methods.bas");}while(r); -S_38024:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,4134,"ide_methods.bas");if(r)goto S_38024;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(25066,4134,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=42; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_42:; -if(!qbevent)break;evnt(25066,4134,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,4135,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4136,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENUR=*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(25066,4137,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4138,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_S= 0 ; -if(!qbevent)break;evnt(25066,4139,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(25066,4140,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_PARENTMENUSETUP= 0 ; -if(!qbevent)break;evnt(25066,4141,"ide_methods.bas");}while(r); -S_38035:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 ))||new_error){ -if(qbevent){evnt(25066,4142,"ide_methods.bas");if(r)goto S_38035;} -do{ -*_FUNC_IDE2_LONG_IDECTXMENUX=*__LONG_MX; -if(!qbevent)break;evnt(25066,4142,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECTXMENUY=*__LONG_MY; -if(!qbevent)break;evnt(25066,4142,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; -if(!qbevent)break;evnt(25066,4142,"ide_methods.bas");}while(r); -} -S_38040:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 2 ))||new_error){ -if(qbevent){evnt(25066,4143,"ide_methods.bas");if(r)goto S_38040;} -do{ -*_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; -if(!qbevent)break;evnt(25066,4143,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(25066,4143,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,4143,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID; -if(!qbevent)break;evnt(25066,4143,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEMAKEEDITMENU(); -if(!qbevent)break;evnt(25066,4144,"ide_methods.bas");}while(r); -S_38047:; -if ((-(*__LONG_TOTALWARNINGS== 0 ))||new_error){ -if(qbevent){evnt(25066,4146,"ide_methods.bas");if(r)goto S_38047;} -do{ -tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Compiler #Warnings... Ctrl+W",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4147,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4149,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(25066,4152,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(25066,4152,"ide_methods.bas");}while(r); -S_38054:; -do{ -if(qbevent){evnt(25066,4153,"ide_methods.bas");if(r)goto S_38054;} -do{ -sub_pcopy( 2 , 1 ); -if(!qbevent)break;evnt(25066,4154,"ide_methods.bas");}while(r); -S_38056:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 ))||new_error){ -if(qbevent){evnt(25066,4156,"ide_methods.bas");if(r)goto S_38056;} -do{ -*_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(25066,4158,"ide_methods.bas");}while(r); -S_38058:; -fornext_value4293= 1 ; -fornext_finalvalue4293=*_FUNC_IDE2_LONG_M- 1 ; -fornext_step4293= 1 ; -if (fornext_step4293<0) fornext_step_negative4293=1; else fornext_step_negative4293=0; -if (new_error) goto fornext_error4293; -goto fornext_entrylabel4293; -while(1){ -fornext_value4293=fornext_step4293+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4293: -*_FUNC_IDE2_LONG_I=fornext_value4293; -if (fornext_step_negative4293){ -if (fornext_value4293fornext_finalvalue4293) break; -} -fornext_error4293:; -if(qbevent){evnt(25066,4158,"ide_methods.bas");if(r)goto S_38058;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4158,"ide_methods.bas");}while(r); -S_38060:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(25066,4159,"ide_methods.bas");if(r)goto S_38060;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4159,"ide_methods.bas");}while(r); -} -fornext_continue_4292:; -} -fornext_exit_4292:; -do{ -*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,4160,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 1 ,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4161,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4161,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",1))); -if (new_error) goto skip4296; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4296: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4161,"ide_methods.bas");}while(r); -}else{ -S_38069:; -if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_BYTE_PARENTMENUSETUP== 0 )))||new_error){ -if(qbevent){evnt(25066,4163,"ide_methods.bas");if(r)goto S_38069;} -do{ -*_FUNC_IDE2_BYTE_PARENTMENUSETUP= -1 ; -if(!qbevent)break;evnt(25066,4164,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1=*_FUNC_IDE2_LONG_XX- 1 ; -if(!qbevent)break;evnt(25066,4165,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W; -if(!qbevent)break;evnt(25066,4166,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1= 3 ; -if(!qbevent)break;evnt(25066,4167,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_PARENTMENU)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -if(!qbevent)break;evnt(25066,4168,"ide_methods.bas");}while(r); -} -} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4171,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_W= 0 ; -if(!qbevent)break;evnt(25066,4173,"ide_methods.bas");}while(r); -S_38079:; -fornext_value4298= 1 ; -fornext_finalvalue4298=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -fornext_step4298= 1 ; -if (fornext_step4298<0) fornext_step_negative4298=1; else fornext_step_negative4298=0; -if (new_error) goto fornext_error4298; -goto fornext_entrylabel4298; -while(1){ -fornext_value4298=fornext_step4298+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4298: -*_FUNC_IDE2_LONG_I=fornext_value4298; -if (fornext_step_negative4298){ -if (fornext_value4298fornext_finalvalue4298) break; -} -fornext_error4298:; -if(qbevent){evnt(25066,4174,"ide_methods.bas");if(r)goto S_38079;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4175,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_M->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4176,"ide_methods.bas");}while(r); -S_38082:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0)))||new_error){ -if(qbevent){evnt(25066,4177,"ide_methods.bas");if(r)goto S_38082;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(25066,4177,"ide_methods.bas");}while(r); -} -S_38085:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(25066,4178,"ide_methods.bas");if(r)goto S_38085;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(25066,4178,"ide_methods.bas");}while(r); -} -S_38088:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ -if(qbevent){evnt(25066,4179,"ide_methods.bas");if(r)goto S_38088;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(25066,4179,"ide_methods.bas");}while(r); -} -S_38091:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0)))||new_error){ -if(qbevent){evnt(25066,4180,"ide_methods.bas");if(r)goto S_38091;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; -if(!qbevent)break;evnt(25066,4180,"ide_methods.bas");}while(r); -} -S_38094:; -if ((-(*_FUNC_IDE2_LONG_L>*_FUNC_IDE2_LONG_W))||new_error){ -if(qbevent){evnt(25066,4181,"ide_methods.bas");if(r)goto S_38094;} -do{ -*_FUNC_IDE2_LONG_W=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,4181,"ide_methods.bas");}while(r); -} -fornext_continue_4297:; -} -fornext_exit_4297:; -do{ -*_FUNC_IDE2_LONG_YY= 2 ; -if(!qbevent)break;evnt(25066,4183,"ide_methods.bas");}while(r); -S_38099:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 0 ))||new_error){ -if(qbevent){evnt(25066,4184,"ide_methods.bas");if(r)goto S_38099;} -do{ -*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY; -if(!qbevent)break;evnt(25066,4185,"ide_methods.bas");}while(r); -S_38101:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(25066,4186,"ide_methods.bas");if(r)goto S_38101;} -do{ -*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,4187,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_IDECTXMENUX; -if(!qbevent)break;evnt(25066,4189,"ide_methods.bas");}while(r); -S_38105:; -if ((-(*_FUNC_IDE2_LONG_XX< 3 ))||new_error){ -if(qbevent){evnt(25066,4190,"ide_methods.bas");if(r)goto S_38105;} -do{ -*_FUNC_IDE2_LONG_XX= 3 ; -if(!qbevent)break;evnt(25066,4190,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_IDECTXMENUY; -if(!qbevent)break;evnt(25066,4191,"ide_methods.bas");}while(r); -S_38109:; -if ((-((*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )>*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY))||new_error){ -if(qbevent){evnt(25066,4192,"ide_methods.bas");if(r)goto S_38109;} -do{ -*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY- 2 -((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -if(!qbevent)break;evnt(25066,4192,"ide_methods.bas");}while(r); -} -} -S_38113:; -if ((-(*_FUNC_IDE2_LONG_XX>(*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 )))||new_error){ -if(qbevent){evnt(25066,4194,"ide_methods.bas");if(r)goto S_38113;} -do{ -*_FUNC_IDE2_LONG_XX=*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 ; -if(!qbevent)break;evnt(25066,4194,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEBOXSHADOW(&(pass4300=*_FUNC_IDE2_LONG_XX- 2 ),_FUNC_IDE2_LONG_YY,&(pass4301=*_FUNC_IDE2_LONG_W+ 4 ),&(pass4302=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )); -if(!qbevent)break;evnt(25066,4196,"ide_methods.bas");}while(r); -S_38117:; -fornext_value4304= 1 ; -fornext_finalvalue4304=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -fornext_step4304= 1 ; -if (fornext_step4304<0) fornext_step_negative4304=1; else fornext_step_negative4304=0; -if (new_error) goto fornext_error4304; -goto fornext_entrylabel4304; -while(1){ -fornext_value4304=fornext_step4304+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4304: -*_FUNC_IDE2_LONG_I=fornext_value4304; -if (fornext_step_negative4304){ -if (fornext_value4304fornext_finalvalue4304) break; -} -fornext_error4304:; -if(qbevent){evnt(25066,4199,"ide_methods.bas");if(r)goto S_38117;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4200,"ide_methods.bas");}while(r); -S_38119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_M,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(25066,4201,"ide_methods.bas");if(r)goto S_38119;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4202,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4202,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 195 ),func_string(*_FUNC_IDE2_LONG_W+ 2 ,(func_chr( 196 )->chr[0]))),func_chr( 180 ))); -if (new_error) goto skip4305; -makefit(tqbs); -qbs_print(tqbs,0); -skip4305: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4202,"ide_methods.bas");}while(r); -S_38123:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1)))){ -if(qbevent){evnt(25066,4203,"ide_methods.bas");if(r)goto S_38123;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4204,"ide_methods.bas");}while(r); -S_38125:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4205,"ide_methods.bas");if(r)goto S_38125;} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4205,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4205,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*_FUNC_IDE2_LONG_W+ 2 )); -if (new_error) goto skip4307; -makefit(tqbs); -qbs_print(tqbs,0); -skip4307: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4205,"ide_methods.bas");}while(r); -} -S_38130:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ -if(qbevent){evnt(25066,4206,"ide_methods.bas");if(r)goto S_38130;} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4206,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4206,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_H= -1 ; -if(!qbevent)break;evnt(25066,4207,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4207,"ide_methods.bas");}while(r); -S_38137:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,4207,"ide_methods.bas");if(r)goto S_38137;} -do{ -*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,4207,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4207,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4208,"ide_methods.bas");}while(r); -S_38142:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,4208,"ide_methods.bas");if(r)goto S_38142;} -do{ -qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4208,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4208,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4208,"ide_methods.bas");}while(r); -} -S_38147:; -fornext_value4313= 1 ; -fornext_finalvalue4313=_FUNC_IDE2_STRING_M->len; -fornext_step4313= 1 ; -if (fornext_step4313<0) fornext_step_negative4313=1; else fornext_step_negative4313=0; -if (new_error) goto fornext_error4313; -goto fornext_entrylabel4313; -while(1){ -fornext_value4313=fornext_step4313+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4313: -*_FUNC_IDE2_LONG_X=fornext_value4313; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4313){ -if (fornext_value4313fornext_finalvalue4313) break; -} -fornext_error4313:; -if(qbevent){evnt(25066,4209,"ide_methods.bas");if(r)goto S_38147;} -S_38148:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4210,"ide_methods.bas");if(r)goto S_38148;} -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4210,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4210,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,1)); -if (new_error) goto skip4315; -makefit(tqbs); -qbs_print(tqbs,0); -skip4315: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4211,"ide_methods.bas");}while(r); -fornext_continue_4312:; -} -fornext_exit_4312:; -}else{ -S_38156:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4214,"ide_methods.bas");if(r)goto S_38156;} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4214,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4214,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*_FUNC_IDE2_LONG_W+ 2 )); -if (new_error) goto skip4316; -makefit(tqbs); -qbs_print(tqbs,0); -skip4316: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4214,"ide_methods.bas");}while(r); -} -S_38161:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ -if(qbevent){evnt(25066,4215,"ide_methods.bas");if(r)goto S_38161;} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4215,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4215,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_H= -1 ; -if(!qbevent)break;evnt(25066,4216,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4216,"ide_methods.bas");}while(r); -S_38168:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,4216,"ide_methods.bas");if(r)goto S_38168;} -do{ -*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,4216,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4216,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4217,"ide_methods.bas");}while(r); -S_38173:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,4217,"ide_methods.bas");if(r)goto S_38173;} -do{ -qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4217,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4217,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4217,"ide_methods.bas");}while(r); -} -S_38178:; -fornext_value4322= 1 ; -fornext_finalvalue4322=_FUNC_IDE2_STRING_M->len; -fornext_step4322= 1 ; -if (fornext_step4322<0) fornext_step_negative4322=1; else fornext_step_negative4322=0; -if (new_error) goto fornext_error4322; -goto fornext_entrylabel4322; -while(1){ -fornext_value4322=fornext_step4322+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4322: -*_FUNC_IDE2_LONG_X=fornext_value4322; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4322){ -if (fornext_value4322fornext_finalvalue4322) break; -} -fornext_error4322:; -if(qbevent){evnt(25066,4218,"ide_methods.bas");if(r)goto S_38178;} -S_38179:; -if ((-(*_FUNC_IDE2_LONG_X==*_FUNC_IDE2_LONG_H))||new_error){ -if(qbevent){evnt(25066,4219,"ide_methods.bas");if(r)goto S_38179;} -S_38180:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4220,"ide_methods.bas");if(r)goto S_38180;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4220,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4220,"ide_methods.bas");}while(r); -} -}else{ -S_38186:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(25066,4222,"ide_methods.bas");if(r)goto S_38186;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,4222,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4222,"ide_methods.bas");}while(r); -} -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,1)); -if (new_error) goto skip4324; -makefit(tqbs); -qbs_print(tqbs,0); -skip4324: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4224,"ide_methods.bas");}while(r); -fornext_continue_4321:; -} -fornext_exit_4321:; -} -} -fornext_continue_4303:; -} -fornext_exit_4303:; -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,4229,"ide_methods.bas");}while(r); -S_38197:; -if ((*_FUNC_IDE2_LONG_S)||new_error){ -if(qbevent){evnt(25066,4231,"ide_methods.bas");if(r)goto S_38197;} -do{ -goto LABEL_MENUCHOICEMADE; -if(!qbevent)break;evnt(25066,4231,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= 0 ; -if(!qbevent)break;evnt(25066,4233,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,4234,"ide_methods.bas");}while(r); -S_38202:; -do{ -if(qbevent){evnt(25066,4235,"ide_methods.bas");if(r)goto S_38202;} -do{ -*_FUNC_IDE2_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,4236,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,4236,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,4237,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; -if(!qbevent)break;evnt(25066,4238,"ide_methods.bas");}while(r); -S_38207:; -if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(25066,4238,"ide_methods.bas");if(r)goto S_38207;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(25066,4238,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_ALTHELD= 0 ; -if(!qbevent)break;evnt(25066,4238,"ide_methods.bas");}while(r); -} -S_38212:; -if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(25066,4239,"ide_methods.bas");if(r)goto S_38212;} -S_38213:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,4240,"ide_methods.bas");if(r)goto S_38213;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4240,"ide_methods.bas");}while(r); -} -S_38216:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,4241,"ide_methods.bas");if(r)goto S_38216;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4241,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,4241,"ide_methods.bas");}while(r); -} -S_38220:; -if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(25066,4242,"ide_methods.bas");if(r)goto S_38220;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4242,"ide_methods.bas");}while(r); -} -S_38223:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,4243,"ide_methods.bas");if(r)goto S_38223;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4243,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,4243,"ide_methods.bas");}while(r); -} -S_38227:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,4244,"ide_methods.bas");if(r)goto S_38227;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4244,"ide_methods.bas");}while(r); -} -S_38230:; -if ((*__LONG_MX)||new_error){ -if(qbevent){evnt(25066,4245,"ide_methods.bas");if(r)goto S_38230;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4245,"ide_methods.bas");}while(r); -} -S_38233:; -if ((*__LONG_MY)||new_error){ -if(qbevent){evnt(25066,4246,"ide_methods.bas");if(r)goto S_38233;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4246,"ide_methods.bas");}while(r); -} -} -S_38237:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,4248,"ide_methods.bas");if(r)goto S_38237;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,4248,"ide_methods.bas");}while(r); -} -S_38240:; -if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ -if(qbevent){evnt(25066,4250,"ide_methods.bas");if(r)goto S_38240;} -S_38241:; -do{ -if(qbevent){evnt(25066,4251,"ide_methods.bas");if(r)goto S_38241;} -do{ -sub__limit( 1000 ); -if(!qbevent)break;evnt(25066,4252,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,4253,"ide_methods.bas");}while(r); -S_38244:; -if ((-(func__hasfocus()== 0 ))||new_error){ -if(qbevent){evnt(25066,4254,"ide_methods.bas");if(r)goto S_38244;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4255,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4255,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4327; -makefit(tqbs); -qbs_print(tqbs,0); -skip4327: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4255,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4256,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4256,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4257,"ide_methods.bas");}while(r); -} -S_38252:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,4260,"ide_methods.bas");if(r)goto S_38252;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(25066,4261,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,4261,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4261,"ide_methods.bas");}while(r); -} -S_38257:; -dl_continue_4326:; -}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); -dl_exit_4326:; -if(qbevent){evnt(25066,4263,"ide_methods.bas");if(r)goto S_38257;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4264,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4264,"ide_methods.bas");}while(r); -do{ -goto LABEL_STARTMENU2; -if(!qbevent)break;evnt(25066,4265,"ide_methods.bas");}while(r); -} -S_38262:; -if ((func__exit())||new_error){ -if(qbevent){evnt(25066,4267,"ide_methods.bas");if(r)goto S_38262;} -do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(25066,4267,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4267,"ide_methods.bas");}while(r); -} -S_38266:; -if ((-(func__hasfocus()== 0 ))||new_error){ -if(qbevent){evnt(25066,4268,"ide_methods.bas");if(r)goto S_38266;} -do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,4269,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,4269,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4328; -makefit(tqbs); -qbs_print(tqbs,0); -skip4328: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4269,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4270,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4270,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4271,"ide_methods.bas");}while(r); -} -S_38274:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,4273,"ide_methods.bas");if(r)goto S_38274;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(25066,4274,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,4274,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4274,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,4276,"ide_methods.bas");}while(r); -S_38280:; -dl_continue_4325:; -}while((!(*_FUNC_IDE2_LONG_CHANGE))&&(!new_error)); -dl_exit_4325:; -if(qbevent){evnt(25066,4277,"ide_methods.bas");if(r)goto S_38280;} -do{ -*_FUNC_IDE2_LONG_S= 0 ; -if(!qbevent)break;evnt(25066,4279,"ide_methods.bas");}while(r); -S_38282:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,4281,"ide_methods.bas");if(r)goto S_38282;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4282,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4282,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4283,"ide_methods.bas");}while(r); -} -S_38287:; -if ((*__LONG_MCLICK2&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))||new_error){ -if(qbevent){evnt(25066,4286,"ide_methods.bas");if(r)goto S_38287;} -S_38288:; -if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(25066,4287,"ide_methods.bas");if(r)goto S_38288;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4288,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4288,"ide_methods.bas");}while(r); -do{ -goto LABEL_INVOKECONTEXTUALMENU; -if(!qbevent)break;evnt(25066,4289,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4291,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4291,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4292,"ide_methods.bas");}while(r); -} -} -S_38298:; -if ((*_FUNC_IDE2_LONG_MOUSEUP)||new_error){ -if(qbevent){evnt(25066,4297,"ide_methods.bas");if(r)goto S_38298;} -S_38299:; -if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ -if(qbevent){evnt(25066,4298,"ide_methods.bas");if(r)goto S_38299;} -S_38300:; -if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ -if(qbevent){evnt(25066,4299,"ide_methods.bas");if(r)goto S_38300;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; -if(!qbevent)break;evnt(25066,4300,"ide_methods.bas");}while(r); -S_38302:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1)))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ -if(qbevent){evnt(25066,4301,"ide_methods.bas");if(r)goto S_38302;} -do{ -*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(25066,4302,"ide_methods.bas");}while(r); -} -} -} -S_38307:; -if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ -if(qbevent){evnt(25066,4309,"ide_methods.bas");if(r)goto S_38307;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; -if(!qbevent)break;evnt(25066,4310,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; -if(!qbevent)break;evnt(25066,4311,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(25066,4312,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,4313,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(25066,4314,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4291; -if(!qbevent)break;evnt(25066,4315,"ide_methods.bas");}while(r); -} -S_38315:; -if (((-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 )))|(-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 )))|(-(*__LONG_MY>(*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 1 )))|(((-(*__LONG_MY<*_FUNC_IDE2_LONG_YY))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))))||new_error){ -if(qbevent){evnt(25066,4318,"ide_methods.bas");if(r)goto S_38315;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4319,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4319,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4320,"ide_methods.bas");}while(r); -} -} -S_38321:; -if (((~(*_FUNC_IDE2_LONG_MOUSEUP))&(~(*_FUNC_IDE2_LONG_MOUSEDOWN)))||new_error){ -if(qbevent){evnt(25066,4323,"ide_methods.bas");if(r)goto S_38321;} -S_38322:; -if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))&(-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ -if(qbevent){evnt(25066,4326,"ide_methods.bas");if(r)goto S_38322;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; -if(!qbevent)break;evnt(25066,4327,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; -if(!qbevent)break;evnt(25066,4328,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(25066,4329,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,4330,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(25066,4331,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4291; -if(!qbevent)break;evnt(25066,4332,"ide_methods.bas");}while(r); -} -S_38330:; -if ((-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))||new_error){ -if(qbevent){evnt(25066,4334,"ide_methods.bas");if(r)goto S_38330;} -S_38331:; -if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ -if(qbevent){evnt(25066,4335,"ide_methods.bas");if(r)goto S_38331;} -S_38332:; -if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ -if(qbevent){evnt(25066,4336,"ide_methods.bas");if(r)goto S_38332;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; -if(!qbevent)break;evnt(25066,4337,"ide_methods.bas");}while(r); -S_38334:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(25066,4338,"ide_methods.bas");if(r)goto S_38334;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(25066,4339,"ide_methods.bas");}while(r); -} -} -}else{ -S_38339:; -if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(25066,4343,"ide_methods.bas");if(r)goto S_38339;} -do{ -goto LABEL_CHECKMENUBARHOVER; -if(!qbevent)break;evnt(25066,4343,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(25066,4345,"ide_methods.bas");}while(r); -} -S_38345:; -if ((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))||new_error){ -if(qbevent){evnt(25066,4347,"ide_methods.bas");if(r)goto S_38345;} -LABEL_CHECKMENUBARHOVER:; -if(qbevent){evnt(25066,4348,"ide_methods.bas");r=0;} -S_38346:; -if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ -if(qbevent){evnt(25066,4349,"ide_methods.bas");if(r)goto S_38346;} -do{ -*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,4350,"ide_methods.bas");}while(r); -S_38348:; -fornext_value4330= 1 ; -fornext_finalvalue4330=*__INTEGER_MENUS; -fornext_step4330= 1 ; -if (fornext_step4330<0) fornext_step_negative4330=1; else fornext_step_negative4330=0; -if (new_error) goto fornext_error4330; -goto fornext_entrylabel4330; -while(1){ -fornext_value4330=fornext_step4330+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4330: -*_FUNC_IDE2_LONG_I=fornext_value4330; -if (fornext_step_negative4330){ -if (fornext_value4330fornext_finalvalue4330) break; -} -fornext_error4330:; -if(qbevent){evnt(25066,4351,"ide_methods.bas");if(r)goto S_38348;} -do{ -*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4352,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4353,"ide_methods.bas");}while(r); -S_38351:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(25066,4354,"ide_methods.bas");if(r)goto S_38351;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,4355,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4356,"ide_methods.bas");}while(r); -S_38354:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))||new_error){ -if(qbevent){evnt(25066,4357,"ide_methods.bas");if(r)goto S_38354;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,4357,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(25066,4357,"ide_methods.bas");}while(r); -} -do{ -goto fornext_exit_4329; -if(!qbevent)break;evnt(25066,4358,"ide_methods.bas");}while(r); -} -fornext_continue_4329:; -} -fornext_exit_4329:; -} -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(25066,4362,"ide_methods.bas");}while(r); -} -} -S_38365:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,4366,"ide_methods.bas");if(r)goto S_38365;} -S_38366:; -if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(25066,4369,"ide_methods.bas");if(r)goto S_38366;} -do{ -*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(25066,4370,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 3 ; -if(!qbevent)break;evnt(25066,4371,"ide_methods.bas");}while(r); -S_38369:; -fornext_value4333= 1 ; -fornext_finalvalue4333=*__INTEGER_MENUS; +S_39912:; +fornext_value4333=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4333=*_FUNC_IDE2_LONG_SX2- 1 ; fornext_step4333= 1 ; if (fornext_step4333<0) fornext_step_negative4333=1; else fornext_step_negative4333=0; if (new_error) goto fornext_error4333; goto fornext_entrylabel4333; while(1){ -fornext_value4333=fornext_step4333+(*_FUNC_IDE2_LONG_I); +fornext_value4333=fornext_step4333+(*_FUNC_IDE2_LONG_X); fornext_entrylabel4333: -*_FUNC_IDE2_LONG_I=fornext_value4333; +*_FUNC_IDE2_LONG_X=fornext_value4333; if (fornext_step_negative4333){ if (fornext_value4333fornext_finalvalue4333) break; } fornext_error4333:; -if(qbevent){evnt(25066,4372,"ide_methods.bas");if(r)goto S_38369;} +if(qbevent){evnt(26307,4107,"ide_methods.bas");if(r)goto S_39912;} +S_39913:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,4108,"ide_methods.bas");if(r)goto S_39913;} do{ -*_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4373,"ide_methods.bas");}while(r); -S_38371:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ -if(qbevent){evnt(25066,4374,"ide_methods.bas");if(r)goto S_38371;} +if(!qbevent)break;evnt(26307,4108,"ide_methods.bas");}while(r); +}else{ do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(25066,4375,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4376,"ide_methods.bas");}while(r); -S_38374:; -if (((-(*_FUNC_IDE2_LONG_LASTM==*_FUNC_IDE2_LONG_M))&(-(*_FUNC_IDE2_LONG_MOUSEDOWN== 1 )))||new_error){ -if(qbevent){evnt(25066,4377,"ide_methods.bas");if(r)goto S_38374;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4377,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4377,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4377,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4377,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,4378,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4332; -if(!qbevent)break;evnt(25066,4379,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(25066,4381,"ide_methods.bas");}while(r); -S_38384:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(25066,4382,"ide_methods.bas");if(r)goto S_38384;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4382,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4108,"ide_methods.bas");}while(r); } fornext_continue_4332:; } fornext_exit_4332:; -} -S_38389:; -if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ -if(qbevent){evnt(25066,4387,"ide_methods.bas");if(r)goto S_38389;} -S_38390:; -if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ -if(qbevent){evnt(25066,4388,"ide_methods.bas");if(r)goto S_38390;} +S_39919:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,4110,"ide_methods.bas");if(r)goto S_39919;} do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; -if(!qbevent)break;evnt(25066,4389,"ide_methods.bas");}while(r); -S_38392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(25066,4390,"ide_methods.bas");if(r)goto S_38392;} +goto LABEL_SKIPBLOCKINDENT; +if(!qbevent)break;evnt(26307,4111,"ide_methods.bas");}while(r); +} +} +S_39923:; +if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26307,4115,"ide_methods.bas");if(r)goto S_39923;} do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(25066,4390,"ide_methods.bas");}while(r); +swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); +if(!qbevent)break;evnt(26307,4115,"ide_methods.bas");}while(r); } -} -} -} -S_38398:; -if (((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(25066,4396,"ide_methods.bas");if(r)goto S_38398;} +S_39926:; +if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ +if(qbevent){evnt(26307,4116,"ide_methods.bas");if(r)goto S_39926;} do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; -if(!qbevent)break;evnt(25066,4397,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; +if(!qbevent)break;evnt(26307,4116,"ide_methods.bas");}while(r); +} do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4397,"ide_methods.bas");}while(r); -S_38401:; +*_FUNC_IDE2_LONG_LHS= 10000000 ; +if(!qbevent)break;evnt(26307,4118,"ide_methods.bas");}while(r); +S_39930:; +fornext_value4336=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4336=*_FUNC_IDE2_LONG_Y2; +fornext_step4336= 1 ; +if (fornext_step4336<0) fornext_step_negative4336=1; else fornext_step_negative4336=0; +if (new_error) goto fornext_error4336; +goto fornext_entrylabel4336; +while(1){ +fornext_value4336=fornext_step4336+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4336: +*_FUNC_IDE2_LONG_Y=fornext_value4336; +if (fornext_step_negative4336){ +if (fornext_value4336 1 ))){ -if(qbevent){evnt(25066,4398,"ide_methods.bas");if(r)goto S_38401;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,4399,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(25066,4400,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; -if(!qbevent)break;evnt(25066,4401,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; -if(!qbevent)break;evnt(25066,4402,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(25066,4403,"ide_methods.bas");}while(r); +if (fornext_value4336>fornext_finalvalue4336) break; } -} -S_38408:; -if (((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(25066,4405,"ide_methods.bas");if(r)goto S_38408;} -S_38409:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),func_chr( 16 ))))||new_error){ -if(qbevent){evnt(25066,4406,"ide_methods.bas");if(r)goto S_38409;} -S_38410:; -qbs_set(sc_4337,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 3 )); +fornext_error4336:; +if(qbevent){evnt(26307,4119,"ide_methods.bas");if(r)goto S_39930;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,4407,"ide_methods.bas");if(r)goto S_38410;} -S_38411:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4337,qbs_new_txt_len("#Line Numbers",13))))||new_error){ -if(qbevent){evnt(25066,4408,"ide_methods.bas");if(r)goto S_38411;} +if(!qbevent)break;evnt(26307,4120,"ide_methods.bas");}while(r); +S_39932:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26307,4121,"ide_methods.bas");if(r)goto S_39932;} do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; -if(!qbevent)break;evnt(25066,4409,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4122,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4123,"ide_methods.bas");}while(r); +S_39935:; +if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ +if(qbevent){evnt(26307,4124,"ide_methods.bas");if(r)goto S_39935;} +do{ +*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; +if(!qbevent)break;evnt(26307,4124,"ide_methods.bas");}while(r); +} +} +fornext_continue_4335:; +} +fornext_exit_4335:; +S_39940:; +fornext_value4341=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4341=*_FUNC_IDE2_LONG_Y2; +fornext_step4341= 1 ; +if (fornext_step4341<0) fornext_step_negative4341=1; else fornext_step_negative4341=0; +if (new_error) goto fornext_error4341; +goto fornext_entrylabel4341; +while(1){ +fornext_value4341=fornext_step4341+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4341: +*_FUNC_IDE2_LONG_Y=fornext_value4341; +if (fornext_step_negative4341){ +if (fornext_value4341fornext_finalvalue4341) break; +} +fornext_error4341:; +if(qbevent){evnt(26307,4128,"ide_methods.bas");if(r)goto S_39940;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4129,"ide_methods.bas");}while(r); +S_39942:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26307,4130,"ide_methods.bas");if(r)goto S_39942;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),func_space(*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4131,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4132,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,4133,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4134,"ide_methods.bas");}while(r); +} +fornext_continue_4340:; +} +fornext_exit_4340:; +S_39949:; +if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26307,4137,"ide_methods.bas");if(r)goto S_39949;} +do{ +*__LONG_IDESELECTX1=*__LONG_IDESELECTX1+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; +if(!qbevent)break;evnt(26307,4138,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; +if(!qbevent)break;evnt(26307,4139,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4141,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4141,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4142,"ide_methods.bas");}while(r); +} +}else{ +LABEL_SKIPBLOCKINDENT:; +if(qbevent){evnt(26307,4145,"ide_methods.bas");r=0;} +S_39958:; +if ((-(*__LONG_KSHIFT== 0 ))||new_error){ +if(qbevent){evnt(26307,4146,"ide_methods.bas");if(r)goto S_39958;} +do{ +*_FUNC_IDE2_LONG_X= 4 ; +if(!qbevent)break;evnt(26307,4147,"ide_methods.bas");}while(r); +S_39960:; +if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ +if(qbevent){evnt(26307,4148,"ide_methods.bas");if(r)goto S_39960;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; +if(!qbevent)break;evnt(26307,4148,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_K,func_space(*_FUNC_IDE2_LONG_X-((*__LONG_IDECX- 1 )%*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4149,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4151,"ide_methods.bas");}while(r); +} +} +} +S_39969:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))&(~(*__BYTE_ALTSPECIAL))))||new_error){ +if(qbevent){evnt(26307,4156,"ide_methods.bas");if(r)goto S_39969;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,4156,"ide_methods.bas");}while(r); +} +S_39972:; +if ((*__LONG_KCTRL&(~(*__LONG_KALT)))||new_error){ +if(qbevent){evnt(26307,4160,"ide_methods.bas");if(r)goto S_39972;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,4160,"ide_methods.bas");}while(r); +} +S_39975:; +if ((*__LONG_KALT&(~(*__LONG_KCTRL))&(~(*__BYTE_ALTSPECIAL)))||new_error){ +if(qbevent){evnt(26307,4161,"ide_methods.bas");if(r)goto S_39975;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,4161,"ide_methods.bas");}while(r); +} +S_39978:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,4164,"ide_methods.bas");if(r)goto S_39978;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26307,4164,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,4165,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4166,"ide_methods.bas");}while(r); +S_39983:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,4169,"ide_methods.bas");if(r)goto S_39983;} +do{ +*_FUNC_IDE2_LONG_ASCK=qbs_asc(__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4170,"ide_methods.bas");}while(r); +S_39985:; +if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_ASCK)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*__LONG_IDEUNDOCOMBOCHR==*_FUNC_IDE2_LONG_ASCK)))||new_error){ +if(qbevent){evnt(26307,4171,"ide_methods.bas");if(r)goto S_39985;} +S_39986:; +if ((-(*__LONG_IDEUNDOCOMBOCHR== 8 ))||new_error){ +if(qbevent){evnt(26307,4172,"ide_methods.bas");if(r)goto S_39986;} +do{ +*__LONG_IDEUNDOCOMBO= 0 ; +if(!qbevent)break;evnt(26307,4172,"ide_methods.bas");}while(r); +} +S_39989:; +if ((-(*__LONG_IDEUNDOCOMBO== 0 ))||new_error){ +if(qbevent){evnt(26307,4173,"ide_methods.bas");if(r)goto S_39989;} +do{ +*__LONG_IDEUNDOCOMBO= 2 ; +if(!qbevent)break;evnt(26307,4174,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; +if(!qbevent)break;evnt(26307,4176,"ide_methods.bas");}while(r); +S_39993:; +if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ +if(qbevent){evnt(26307,4177,"ide_methods.bas");if(r)goto S_39993;} +do{ +*__LONG_IDEMERGEUNDO= 1 ; +if(!qbevent)break;evnt(26307,4177,"ide_methods.bas");}while(r); +} +} +} +do{ +*__LONG_IDEUNDOCOMBOCHR=*_FUNC_IDE2_LONG_ASCK; +if(!qbevent)break;evnt(26307,4180,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4183,"ide_methods.bas");}while(r); +S_40001:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ +if(qbevent){evnt(26307,4184,"ide_methods.bas");if(r)goto S_40001;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX- 1 -_FUNC_IDE2_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4184,"ide_methods.bas");}while(r); +} +S_40004:; +if ((*__INTEGER_IDEINSERT)||new_error){ +if(qbevent){evnt(26307,4186,"ide_methods.bas");if(r)goto S_40004;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4187,"ide_methods.bas");}while(r); +S_40006:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26307,4188,"ide_methods.bas");if(r)goto S_40006;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4188,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4189,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4191,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX+__STRING_K->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4195,"ide_methods.bas");}while(r); +LABEL_SPECIALCHAR:; +if(qbevent){evnt(26307,4196,"ide_methods.bas");r=0;} +S_40015:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_IDEINFO,qbs_new_txt_len("",0)))|(qbs_equal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))))||new_error){ +if(qbevent){evnt(26307,4199,"ide_methods.bas");if(r)goto S_40015;} +S_40016:; +if ((-(*__LONG_IDECY==*__LONG_IDESELECTY1))||new_error){ +if(qbevent){evnt(26307,4200,"ide_methods.bas");if(r)goto S_40016;} +do{ +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,4201,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,4201,"ide_methods.bas");}while(r); +S_40019:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26307,4202,"ide_methods.bas");if(r)goto S_40019;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26307,4202,"ide_methods.bas");}while(r); +} +S_40022:; +if (((-(*__LONG_IDESELECT== 1 ))&(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)> 0 )))||new_error){ +if(qbevent){evnt(26307,4203,"ide_methods.bas");if(r)goto S_40022;} +S_40023:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26307,4204,"ide_methods.bas");if(r)goto S_40023;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4205,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4206,"ide_methods.bas");}while(r); +S_40026:; +fornext_value4353= 1 ; +fornext_finalvalue4353=__STRING_IDECURRENTSINGLELINESELECTION->len; +fornext_step4353= 1 ; +if (fornext_step4353<0) fornext_step_negative4353=1; else fornext_step_negative4353=0; +if (new_error) goto fornext_error4353; +goto fornext_entrylabel4353; +while(1){ +fornext_value4353=fornext_step4353+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4353: +*_FUNC_IDE2_LONG_I=fornext_value4353; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4353){ +if (fornext_value4353fornext_finalvalue4353) break; +} +fornext_error4353:; +if(qbevent){evnt(26307,4207,"ide_methods.bas");if(r)goto S_40026;} +S_40027:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,1),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,4208,"ide_methods.bas");if(r)goto S_40027;} +S_40028:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,1),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(26307,4210,"ide_methods.bas");if(r)goto S_40028;} +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4211,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4352; +if(!qbevent)break;evnt(26307,4212,"ide_methods.bas");}while(r); +} +} +fornext_continue_4352:; +} +fornext_exit_4352:; +} +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4355=*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1))),qbs_new_txt_len(" character",10)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 1 ))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4217,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,4218,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4220,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4221,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,4222,"ide_methods.bas");}while(r); +} +}else{ +S_40043:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,4225,"ide_methods.bas");if(r)goto S_40043;} +do{ +*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26307,4226,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,4227,"ide_methods.bas");}while(r); +S_40046:; +if (((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))|(-(*__LONG_IDECX> 1 )))||new_error){ +if(qbevent){evnt(26307,4228,"ide_methods.bas");if(r)goto S_40046;} +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4356=func_abs((int64)(*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))+ 1 ))),qbs_new_txt_len(" line",5)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((func_abs((int64)(*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))+ 1 )> 1 )))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4229,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4357=*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))),qbs_new_txt_len(" line",5)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1)>( 1 ))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4231,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4234,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4236,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,4237,"ide_methods.bas");}while(r); +} +} +S_40058:; +if ((*__BYTE_ALTSPECIAL)||new_error){ +if(qbevent){evnt(26307,4241,"ide_methods.bas");if(r)goto S_40058;} +do{ +*__BYTE_ALTSPECIAL= 0 ; +if(!qbevent)break;evnt(26307,4242,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEENTERMENU= 0 ; +if(!qbevent)break;evnt(26307,4243,"ide_methods.bas");}while(r); +do{ +*__LONG_KALT= 0 ; +if(!qbevent)break;evnt(26307,4244,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4245,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4245,"ide_methods.bas");}while(r); +} +dl_continue_3995:; +}while(1); +dl_exit_3995:; +LABEL_STARTMENU:; +if(qbevent){evnt(26307,4251,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_M= 1 ; +if(!qbevent)break;evnt(26307,4252,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26307,4253,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26307,4253,"ide_methods.bas");}while(r); +LABEL_STARTMENU2:; +if(qbevent){evnt(26307,4254,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26307,4255,"ide_methods.bas");}while(r); +S_40070:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26307,4256,"ide_methods.bas");if(r)goto S_40070;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26307,4256,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=41; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_41:; +if(!qbevent)break;evnt(26307,4256,"ide_methods.bas");}while(r); +} +S_40074:; +do{ +if(qbevent){evnt(26307,4258,"ide_methods.bas");if(r)goto S_40074;} +do{ +qbg_sub_locate( 1 , 3 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,4260,"ide_methods.bas");}while(r); +S_40076:; +fornext_value4360= 1 ; +fornext_finalvalue4360=*__INTEGER_MENUS; +fornext_step4360= 1 ; +if (fornext_step4360<0) fornext_step_negative4360=1; else fornext_step_negative4360=0; +if (new_error) goto fornext_error4360; +goto fornext_entrylabel4360; +while(1){ +fornext_value4360=fornext_step4360+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4360: +*_FUNC_IDE2_LONG_I=fornext_value4360; +if (fornext_step_negative4360){ +if (fornext_value4360fornext_finalvalue4360) break; +} +fornext_error4360:; +if(qbevent){evnt(26307,4261,"ide_methods.bas");if(r)goto S_40076;} +S_40077:; +if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4262,"ide_methods.bas");if(r)goto S_40077;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4262,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4262,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len(" ",1),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); +if (new_error) goto skip4361; +makefit(tqbs); +qbs_print(tqbs,0); +skip4361: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4263,"ide_methods.bas");}while(r); +S_40083:; +if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4264,"ide_methods.bas");if(r)goto S_40083;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4264,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4264,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ),qbs_new_txt_len(" ",1))); +if (new_error) goto skip4362; +makefit(tqbs); +qbs_print(tqbs,0); +skip4362: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4265,"ide_methods.bas");}while(r); +S_40089:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26307,4266,"ide_methods.bas");if(r)goto S_40089;} +do{ +qbg_sub_locate( 1 ,*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ,NULL,NULL,NULL,3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4266,"ide_methods.bas");}while(r); +} +fornext_continue_4359:; +} +fornext_exit_4359:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4269,"ide_methods.bas");}while(r); +S_40094:; +do{ +if(qbevent){evnt(26307,4270,"ide_methods.bas");if(r)goto S_40094;} +do{ +*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; +if(!qbevent)break;evnt(26307,4272,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,4274,"ide_methods.bas");}while(r); +S_40097:; +if (((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))|(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY)))||new_error){ +if(qbevent){evnt(26307,4275,"ide_methods.bas");if(r)goto S_40097;} +S_40098:; +if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ +if(qbevent){evnt(26307,4276,"ide_methods.bas");if(r)goto S_40098;} +do{ +*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26307,4277,"ide_methods.bas");}while(r); +S_40100:; +fornext_value4367= 1 ; +fornext_finalvalue4367=*__INTEGER_MENUS; +fornext_step4367= 1 ; +if (fornext_step4367<0) fornext_step_negative4367=1; else fornext_step_negative4367=0; +if (new_error) goto fornext_error4367; +goto fornext_entrylabel4367; +while(1){ +fornext_value4367=fornext_step4367+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4367: +*_FUNC_IDE2_LONG_I=fornext_value4367; +if (fornext_step_negative4367){ +if (fornext_value4367fornext_finalvalue4367) break; +} +fornext_error4367:; +if(qbevent){evnt(26307,4278,"ide_methods.bas");if(r)goto S_40100;} +do{ +*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4279,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4280,"ide_methods.bas");}while(r); +S_40103:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26307,4281,"ide_methods.bas");if(r)goto S_40103;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,4282,"ide_methods.bas");}while(r); +S_40105:; +if ((-(*_FUNC_IDE2_LONG_M!=*_FUNC_IDE2_LONG_LASTM))||new_error){ +if(qbevent){evnt(26307,4283,"ide_methods.bas");if(r)goto S_40105;} +do{ +goto dl_exit_4365; +if(!qbevent)break;evnt(26307,4283,"ide_methods.bas");}while(r); +} +} +fornext_continue_4366:; +} +fornext_exit_4366:; +} +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26307,4287,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26307,4287,"ide_methods.bas");}while(r); +} +S_40114:; +if ((-(*__LONG_ICHANGED== 0 ))||new_error){ +if(qbevent){evnt(26307,4289,"ide_methods.bas");if(r)goto S_40114;} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,4289,"ide_methods.bas");}while(r); +} +S_40117:; +if ((*__LONG_KALT)||new_error){ +if(qbevent){evnt(26307,4291,"ide_methods.bas");if(r)goto S_40117;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26307,4291,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_ALTHELD= 0 ; +if(!qbevent)break;evnt(26307,4291,"ide_methods.bas");}while(r); +} +S_40122:; +if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ +if(qbevent){evnt(26307,4293,"ide_methods.bas");if(r)goto S_40122;} +S_40123:; +do{ +if(qbevent){evnt(26307,4294,"ide_methods.bas");if(r)goto S_40123;} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,4295,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,4296,"ide_methods.bas");}while(r); +S_40126:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26307,4297,"ide_methods.bas");if(r)goto S_40126;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4298,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4298,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4299,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4299,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4300,"ide_methods.bas");}while(r); +} +S_40133:; +if ((func__resize())||new_error){ +if(qbevent){evnt(26307,4303,"ide_methods.bas");if(r)goto S_40133;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26307,4304,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,4304,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4304,"ide_methods.bas");}while(r); +} +S_40138:; +dl_continue_4369:; +}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); +dl_exit_4369:; +if(qbevent){evnt(26307,4306,"ide_methods.bas");if(r)goto S_40138;} +do{ +*__LONG_KB= 27 ; +if(!qbevent)break;evnt(26307,4307,"ide_methods.bas");}while(r); +} +S_40141:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26307,4310,"ide_methods.bas");if(r)goto S_40141;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4311,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4311,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4312,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4312,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4313,"ide_methods.bas");}while(r); +} +S_40148:; +if ((func__resize())||new_error){ +if(qbevent){evnt(26307,4316,"ide_methods.bas");if(r)goto S_40148;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26307,4317,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,4317,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4317,"ide_methods.bas");}while(r); +} +S_40153:; +if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26307,4320,"ide_methods.bas");if(r)goto S_40153;} +S_40154:; +if ((-(*__LONG_MY== 1 ))||new_error){ +if(qbevent){evnt(26307,4321,"ide_methods.bas");if(r)goto S_40154;} +S_40155:; +fornext_value4371= 1 ; +fornext_finalvalue4371=*__INTEGER_MENUS; +fornext_step4371= 1 ; +if (fornext_step4371<0) fornext_step_negative4371=1; else fornext_step_negative4371=0; +if (new_error) goto fornext_error4371; +goto fornext_entrylabel4371; +while(1){ +fornext_value4371=fornext_step4371+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4371: +*_FUNC_IDE2_LONG_I=fornext_value4371; +if (fornext_step_negative4371){ +if (fornext_value4371fornext_finalvalue4371) break; +} +fornext_error4371:; +if(qbevent){evnt(26307,4322,"ide_methods.bas");if(r)goto S_40155;} +do{ +*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4323,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4324,"ide_methods.bas");}while(r); +S_40158:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26307,4325,"ide_methods.bas");if(r)goto S_40158;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,4326,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4327,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4327,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4328,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,4410,"ide_methods.bas");}while(r); -goto sc_4337_end; +if(!qbevent)break;evnt(26307,4329,"ide_methods.bas");}while(r); } -sc_4337_end:; +fornext_continue_4370:; +} +fornext_exit_4370:; +} +do{ +*__LONG_KB= 27 ; +if(!qbevent)break;evnt(26307,4333,"ide_methods.bas");}while(r); +} +S_40169:; +if ((func__exit())||new_error){ +if(qbevent){evnt(26307,4336,"ide_methods.bas");if(r)goto S_40169;} +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26307,4336,"ide_methods.bas");}while(r); +do{ +*__LONG_KB= 27 ; +if(!qbevent)break;evnt(26307,4336,"ide_methods.bas");}while(r); +} +S_40173:; +dl_continue_4365:; +}while((!(*__LONG_KB))&&(!new_error)); +dl_exit_4365:; +if(qbevent){evnt(26307,4337,"ide_methods.bas");if(r)goto S_40173;} +do{ +qbs_set(__STRING_K,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4339,"ide_methods.bas");}while(r); +S_40175:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&*__LONG_KCTRL))||new_error){ +if(qbevent){evnt(26307,4340,"ide_methods.bas");if(r)goto S_40175;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4342,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4342,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4343,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4343,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4344,"ide_methods.bas");}while(r); +} +S_40182:; +fornext_value4375= 1 ; +fornext_finalvalue4375=*__INTEGER_MENUS; +fornext_step4375= 1 ; +if (fornext_step4375<0) fornext_step_negative4375=1; else fornext_step_negative4375=0; +if (new_error) goto fornext_error4375; +goto fornext_entrylabel4375; +while(1){ +fornext_value4375=fornext_step4375+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4375: +*_FUNC_IDE2_LONG_I=fornext_value4375; +if (fornext_step_negative4375){ +if (fornext_value4375fornext_finalvalue4375) break; +} +fornext_error4375:; +if(qbevent){evnt(26307,4347,"ide_methods.bas");if(r)goto S_40182;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4348,"ide_methods.bas");}while(r); +S_40184:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A)))||new_error){ +if(qbevent){evnt(26307,4349,"ide_methods.bas");if(r)goto S_40184;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,4350,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4351,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4351,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4352,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26307,4353,"ide_methods.bas");}while(r); +} +fornext_continue_4374:; +} +fornext_exit_4374:; +S_40192:; +if ((-(*__LONG_KB== 19200 ))||new_error){ +if(qbevent){evnt(26307,4357,"ide_methods.bas");if(r)goto S_40192;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; +if(!qbevent)break;evnt(26307,4357,"ide_methods.bas");}while(r); +} +S_40195:; +if ((-(*__LONG_KB== 19712 ))||new_error){ +if(qbevent){evnt(26307,4358,"ide_methods.bas");if(r)goto S_40195;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26307,4358,"ide_methods.bas");}while(r); +} +S_40198:; +if ((-(*__LONG_KB== 27 ))||new_error){ +if(qbevent){evnt(26307,4359,"ide_methods.bas");if(r)goto S_40198;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4360,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4360,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4361,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4362,"ide_methods.bas");}while(r); +} +S_40204:; +if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ +if(qbevent){evnt(26307,4364,"ide_methods.bas");if(r)goto S_40204;} +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; +if(!qbevent)break;evnt(26307,4364,"ide_methods.bas");}while(r); +} +S_40207:; +if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26307,4365,"ide_methods.bas");if(r)goto S_40207;} +do{ +*_FUNC_IDE2_LONG_M= 1 ; +if(!qbevent)break;evnt(26307,4365,"ide_methods.bas");}while(r); +} +S_40210:; +if (((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 13 )))||new_error){ +if(qbevent){evnt(26307,4366,"ide_methods.bas");if(r)goto S_40210;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4367,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4367,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4368,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26307,4369,"ide_methods.bas");}while(r); +} +S_40216:; +if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB<= 255 )))||new_error){ +if(qbevent){evnt(26307,4373,"ide_methods.bas");if(r)goto S_40216;} +S_40217:; +if ((-(*__LONG_KALT== 0 ))||new_error){ +if(qbevent){evnt(26307,4374,"ide_methods.bas");if(r)goto S_40217;} +do{ +*__LONG_ICHECKLATER= 1 ; +if(!qbevent)break;evnt(26307,4375,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4376,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4376,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4377,"ide_methods.bas");}while(r); +} +} +dl_continue_4358:; +}while(1); +dl_exit_4358:; +LABEL_SHOWMENU:; +if(qbevent){evnt(26307,4385,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26307,4386,"ide_methods.bas");}while(r); +S_40226:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26307,4387,"ide_methods.bas");if(r)goto S_40226;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26307,4387,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=42; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_42:; +if(!qbevent)break;evnt(26307,4387,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,4388,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4389,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR=*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26307,4390,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26307,4391,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_S= 0 ; +if(!qbevent)break;evnt(26307,4392,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26307,4393,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_PARENTMENUSETUP= 0 ; +if(!qbevent)break;evnt(26307,4394,"ide_methods.bas");}while(r); +S_40237:; +if(qbevent){evnt(26307,4395,"ide_methods.bas");if(r)goto S_40237;} +S_40238:; +if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 1 )))||new_error){ +if(qbevent){evnt(26307,4396,"ide_methods.bas");if(r)goto S_40238;} +do{ +*_FUNC_IDE2_LONG_IDECTXMENUX=*__LONG_MX; +if(!qbevent)break;evnt(26307,4398,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECTXMENUY=*__LONG_MY; +if(!qbevent)break;evnt(26307,4399,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; +if(!qbevent)break;evnt(26307,4400,"ide_methods.bas");}while(r); +sc_ec_184_end:; +goto sc_4376_end; +} +S_40242:; +if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 2 )))||new_error){ +if(qbevent){evnt(26307,4401,"ide_methods.bas");if(r)goto S_40242;} +do{ +*_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; +if(!qbevent)break;evnt(26307,4403,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26307,4404,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26307,4405,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID; +if(!qbevent)break;evnt(26307,4406,"ide_methods.bas");}while(r); +sc_ec_185_end:; +goto sc_4376_end; +} +sc_4376_end:; +do{ +SUB_IDEMAKEEDITMENU(); +if(!qbevent)break;evnt(26307,4409,"ide_methods.bas");}while(r); +S_40249:; +if ((-(*__LONG_TOTALWARNINGS== 0 ))||new_error){ +if(qbevent){evnt(26307,4411,"ide_methods.bas");if(r)goto S_40249;} +do{ +tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Compiler #Warnings... Ctrl+W",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4412,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4414,"ide_methods.bas");}while(r); +} +S_40254:; +if ((-(*__LONG_CALLSTACKLENGTH== 0 ))||new_error){ +if(qbevent){evnt(26307,4417,"ide_methods.bas");if(r)goto S_40254;} +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Call #Stack... F12",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4418,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call #Stack... F12",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4420,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26307,4423,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26307,4423,"ide_methods.bas");}while(r); +S_40261:; +do{ +if(qbevent){evnt(26307,4424,"ide_methods.bas");if(r)goto S_40261;} +do{ +sub_pcopy( 2 , 1 ); +if(!qbevent)break;evnt(26307,4425,"ide_methods.bas");}while(r); +S_40263:; +if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 ))||new_error){ +if(qbevent){evnt(26307,4427,"ide_methods.bas");if(r)goto S_40263;} +do{ +*_FUNC_IDE2_LONG_X= 4 ; +if(!qbevent)break;evnt(26307,4429,"ide_methods.bas");}while(r); +S_40265:; +fornext_value4379= 1 ; +fornext_finalvalue4379=*_FUNC_IDE2_LONG_M- 1 ; +fornext_step4379= 1 ; +if (fornext_step4379<0) fornext_step_negative4379=1; else fornext_step_negative4379=0; +if (new_error) goto fornext_error4379; +goto fornext_entrylabel4379; +while(1){ +fornext_value4379=fornext_step4379+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4379: +*_FUNC_IDE2_LONG_I=fornext_value4379; +if (fornext_step_negative4379){ +if (fornext_value4379fornext_finalvalue4379) break; +} +fornext_error4379:; +if(qbevent){evnt(26307,4429,"ide_methods.bas");if(r)goto S_40265;} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4429,"ide_methods.bas");}while(r); +S_40267:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26307,4430,"ide_methods.bas");if(r)goto S_40267;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4430,"ide_methods.bas");}while(r); +} +fornext_continue_4378:; +} +fornext_exit_4378:; +do{ +*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26307,4431,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4432,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 1 , 1 ,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4432,"ide_methods.bas");}while(r); +}else{ +S_40275:; +if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_BYTE_PARENTMENUSETUP== 0 )))||new_error){ +if(qbevent){evnt(26307,4434,"ide_methods.bas");if(r)goto S_40275;} +do{ +*_FUNC_IDE2_BYTE_PARENTMENUSETUP= -1 ; +if(!qbevent)break;evnt(26307,4435,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1=*_FUNC_IDE2_LONG_XX- 1 ; +if(!qbevent)break;evnt(26307,4436,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W; +if(!qbevent)break;evnt(26307,4437,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1= 3 ; +if(!qbevent)break;evnt(26307,4438,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_PARENTMENU)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +if(!qbevent)break;evnt(26307,4439,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_W= 0 ; +if(!qbevent)break;evnt(26307,4443,"ide_methods.bas");}while(r); +S_40284:; +fornext_value4383= 1 ; +fornext_finalvalue4383=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +fornext_step4383= 1 ; +if (fornext_step4383<0) fornext_step_negative4383=1; else fornext_step_negative4383=0; +if (new_error) goto fornext_error4383; +goto fornext_entrylabel4383; +while(1){ +fornext_value4383=fornext_step4383+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4383: +*_FUNC_IDE2_LONG_I=fornext_value4383; +if (fornext_step_negative4383){ +if (fornext_value4383fornext_finalvalue4383) break; +} +fornext_error4383:; +if(qbevent){evnt(26307,4444,"ide_methods.bas");if(r)goto S_40284;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4445,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_M->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4446,"ide_methods.bas");}while(r); +S_40287:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0)))||new_error){ +if(qbevent){evnt(26307,4447,"ide_methods.bas");if(r)goto S_40287;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26307,4447,"ide_methods.bas");}while(r); +} +S_40290:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26307,4448,"ide_methods.bas");if(r)goto S_40290;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26307,4448,"ide_methods.bas");}while(r); +} +S_40293:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26307,4449,"ide_methods.bas");if(r)goto S_40293;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26307,4449,"ide_methods.bas");}while(r); +} +S_40296:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0)))||new_error){ +if(qbevent){evnt(26307,4450,"ide_methods.bas");if(r)goto S_40296;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; +if(!qbevent)break;evnt(26307,4450,"ide_methods.bas");}while(r); +} +S_40299:; +if ((-(*_FUNC_IDE2_LONG_L>*_FUNC_IDE2_LONG_W))||new_error){ +if(qbevent){evnt(26307,4451,"ide_methods.bas");if(r)goto S_40299;} +do{ +*_FUNC_IDE2_LONG_W=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26307,4451,"ide_methods.bas");}while(r); +} +fornext_continue_4382:; +} +fornext_exit_4382:; +do{ +*_FUNC_IDE2_LONG_YY= 2 ; +if(!qbevent)break;evnt(26307,4453,"ide_methods.bas");}while(r); +S_40304:; +if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 0 ))||new_error){ +if(qbevent){evnt(26307,4454,"ide_methods.bas");if(r)goto S_40304;} +do{ +*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY; +if(!qbevent)break;evnt(26307,4455,"ide_methods.bas");}while(r); +S_40306:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26307,4456,"ide_methods.bas");if(r)goto S_40306;} +do{ +*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26307,4457,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_IDECTXMENUX; +if(!qbevent)break;evnt(26307,4459,"ide_methods.bas");}while(r); +S_40310:; +if ((-(*_FUNC_IDE2_LONG_XX< 3 ))||new_error){ +if(qbevent){evnt(26307,4460,"ide_methods.bas");if(r)goto S_40310;} +do{ +*_FUNC_IDE2_LONG_XX= 3 ; +if(!qbevent)break;evnt(26307,4460,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_IDECTXMENUY; +if(!qbevent)break;evnt(26307,4461,"ide_methods.bas");}while(r); +S_40314:; +if ((-((*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )>*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY))||new_error){ +if(qbevent){evnt(26307,4462,"ide_methods.bas");if(r)goto S_40314;} +do{ +*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY- 2 -((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +if(!qbevent)break;evnt(26307,4462,"ide_methods.bas");}while(r); +} +} +S_40318:; +if ((-(*_FUNC_IDE2_LONG_XX>(*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 )))||new_error){ +if(qbevent){evnt(26307,4464,"ide_methods.bas");if(r)goto S_40318;} +do{ +*_FUNC_IDE2_LONG_XX=*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 ; +if(!qbevent)break;evnt(26307,4464,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEMENUHELPLINE(((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4466,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4468,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOXSHADOW(&(pass4385=*_FUNC_IDE2_LONG_XX- 2 ),_FUNC_IDE2_LONG_YY,&(pass4386=*_FUNC_IDE2_LONG_W+ 4 ),&(pass4387=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )); +if(!qbevent)break;evnt(26307,4469,"ide_methods.bas");}while(r); +S_40324:; +fornext_value4389= 1 ; +fornext_finalvalue4389=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +fornext_step4389= 1 ; +if (fornext_step4389<0) fornext_step_negative4389=1; else fornext_step_negative4389=0; +if (new_error) goto fornext_error4389; +goto fornext_entrylabel4389; +while(1){ +fornext_value4389=fornext_step4389+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4389: +*_FUNC_IDE2_LONG_I=fornext_value4389; +if (fornext_step_negative4389){ +if (fornext_value4389fornext_finalvalue4389) break; +} +fornext_error4389:; +if(qbevent){evnt(26307,4472,"ide_methods.bas");if(r)goto S_40324;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4473,"ide_methods.bas");}while(r); +S_40326:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_M,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26307,4474,"ide_methods.bas");if(r)goto S_40326;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4475,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 2 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,qbs_add(qbs_add(func_chr( 195 ),func_string(*_FUNC_IDE2_LONG_W+ 2 ,(func_chr( 196 )->chr[0]))),func_chr( 180 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4475,"ide_methods.bas");}while(r); +S_40329:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1)))){ +if(qbevent){evnt(26307,4476,"ide_methods.bas");if(r)goto S_40329;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4477,"ide_methods.bas");}while(r); +S_40331:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4478,"ide_methods.bas");if(r)goto S_40331;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4478,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 1 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,func_space(*_FUNC_IDE2_LONG_W+ 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4478,"ide_methods.bas");}while(r); +} +S_40335:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26307,4479,"ide_methods.bas");if(r)goto S_40335;} +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,4479,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,4479,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_H= -1 ; +if(!qbevent)break;evnt(26307,4480,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4480,"ide_methods.bas");}while(r); +S_40342:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26307,4480,"ide_methods.bas");if(r)goto S_40342;} +do{ +*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26307,4480,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4480,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4481,"ide_methods.bas");}while(r); +S_40347:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26307,4481,"ide_methods.bas");if(r)goto S_40347;} +do{ +qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4481,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4481,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4481,"ide_methods.bas");}while(r); +} +S_40352:; +fornext_value4396= 1 ; +fornext_finalvalue4396=_FUNC_IDE2_STRING_M->len; +fornext_step4396= 1 ; +if (fornext_step4396<0) fornext_step_negative4396=1; else fornext_step_negative4396=0; +if (new_error) goto fornext_error4396; +goto fornext_entrylabel4396; +while(1){ +fornext_value4396=fornext_step4396+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4396: +*_FUNC_IDE2_LONG_X=fornext_value4396; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4396){ +if (fornext_value4396fornext_finalvalue4396) break; +} +fornext_error4396:; +if(qbevent){evnt(26307,4482,"ide_methods.bas");if(r)goto S_40352;} +S_40353:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4483,"ide_methods.bas");if(r)goto S_40353;} +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4483,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4483,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,1)); +if (new_error) goto skip4398; +makefit(tqbs); +qbs_print(tqbs,0); +skip4398: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4484,"ide_methods.bas");}while(r); +fornext_continue_4395:; +} +fornext_exit_4395:; +}else{ +S_40361:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4487,"ide_methods.bas");if(r)goto S_40361;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4487,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 1 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,func_space(*_FUNC_IDE2_LONG_W+ 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4487,"ide_methods.bas");}while(r); +} +S_40365:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26307,4488,"ide_methods.bas");if(r)goto S_40365;} +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,4488,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,4488,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_H= -1 ; +if(!qbevent)break;evnt(26307,4489,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4489,"ide_methods.bas");}while(r); +S_40372:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26307,4489,"ide_methods.bas");if(r)goto S_40372;} +do{ +*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26307,4489,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4489,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4490,"ide_methods.bas");}while(r); +S_40377:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26307,4490,"ide_methods.bas");if(r)goto S_40377;} +do{ +qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4490,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4490,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4490,"ide_methods.bas");}while(r); +} +S_40382:; +fornext_value4404= 1 ; +fornext_finalvalue4404=_FUNC_IDE2_STRING_M->len; +fornext_step4404= 1 ; +if (fornext_step4404<0) fornext_step_negative4404=1; else fornext_step_negative4404=0; +if (new_error) goto fornext_error4404; +goto fornext_entrylabel4404; +while(1){ +fornext_value4404=fornext_step4404+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4404: +*_FUNC_IDE2_LONG_X=fornext_value4404; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4404){ +if (fornext_value4404fornext_finalvalue4404) break; +} +fornext_error4404:; +if(qbevent){evnt(26307,4491,"ide_methods.bas");if(r)goto S_40382;} +S_40383:; +if ((-(*_FUNC_IDE2_LONG_X==*_FUNC_IDE2_LONG_H))||new_error){ +if(qbevent){evnt(26307,4492,"ide_methods.bas");if(r)goto S_40383;} +S_40384:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4493,"ide_methods.bas");if(r)goto S_40384;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4493,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4493,"ide_methods.bas");}while(r); +} +}else{ +S_40390:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26307,4495,"ide_methods.bas");if(r)goto S_40390;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,4495,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4495,"ide_methods.bas");}while(r); +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,1)); +if (new_error) goto skip4406; +makefit(tqbs); +qbs_print(tqbs,0); +skip4406: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4497,"ide_methods.bas");}while(r); +fornext_continue_4403:; +} +fornext_exit_4403:; +} +} +fornext_continue_4388:; +} +fornext_exit_4388:; +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,4502,"ide_methods.bas");}while(r); +S_40401:; +if ((*_FUNC_IDE2_LONG_S)||new_error){ +if(qbevent){evnt(26307,4504,"ide_methods.bas");if(r)goto S_40401;} +do{ +goto LABEL_MENUCHOICEMADE; +if(!qbevent)break;evnt(26307,4504,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= 0 ; +if(!qbevent)break;evnt(26307,4506,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,4507,"ide_methods.bas");}while(r); +S_40406:; +do{ +if(qbevent){evnt(26307,4508,"ide_methods.bas");if(r)goto S_40406;} +do{ +*_FUNC_IDE2_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,4509,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,4509,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,4510,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; +if(!qbevent)break;evnt(26307,4511,"ide_methods.bas");}while(r); +S_40411:; +if ((*__LONG_KALT)||new_error){ +if(qbevent){evnt(26307,4511,"ide_methods.bas");if(r)goto S_40411;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26307,4511,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_ALTHELD= 0 ; +if(!qbevent)break;evnt(26307,4511,"ide_methods.bas");}while(r); +} +S_40416:; +if ((*__LONG_ICHANGED)||new_error){ +if(qbevent){evnt(26307,4512,"ide_methods.bas");if(r)goto S_40416;} +S_40417:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,4513,"ide_methods.bas");if(r)goto S_40417;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4513,"ide_methods.bas");}while(r); +} +S_40420:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,4514,"ide_methods.bas");if(r)goto S_40420;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4514,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,4514,"ide_methods.bas");}while(r); +} +S_40424:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26307,4515,"ide_methods.bas");if(r)goto S_40424;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4515,"ide_methods.bas");}while(r); +} +S_40427:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,4516,"ide_methods.bas");if(r)goto S_40427;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4516,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,4516,"ide_methods.bas");}while(r); +} +S_40431:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,4517,"ide_methods.bas");if(r)goto S_40431;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4517,"ide_methods.bas");}while(r); +} +S_40434:; +if ((*__LONG_MX)||new_error){ +if(qbevent){evnt(26307,4518,"ide_methods.bas");if(r)goto S_40434;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4518,"ide_methods.bas");}while(r); +} +S_40437:; +if ((*__LONG_MY)||new_error){ +if(qbevent){evnt(26307,4519,"ide_methods.bas");if(r)goto S_40437;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4519,"ide_methods.bas");}while(r); +} +} +S_40441:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,4521,"ide_methods.bas");if(r)goto S_40441;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,4521,"ide_methods.bas");}while(r); +} +S_40444:; +if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ +if(qbevent){evnt(26307,4523,"ide_methods.bas");if(r)goto S_40444;} +S_40445:; +do{ +if(qbevent){evnt(26307,4524,"ide_methods.bas");if(r)goto S_40445;} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,4525,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,4526,"ide_methods.bas");}while(r); +S_40448:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26307,4527,"ide_methods.bas");if(r)goto S_40448;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4528,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4528,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4529,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4529,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4530,"ide_methods.bas");}while(r); +} +S_40455:; +if ((((-(func__resize()!= 0 )))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ +if(qbevent){evnt(26307,4533,"ide_methods.bas");if(r)goto S_40455;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26307,4534,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,4534,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4534,"ide_methods.bas");}while(r); +} +S_40460:; +dl_continue_4408:; +}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); +dl_exit_4408:; +if(qbevent){evnt(26307,4536,"ide_methods.bas");if(r)goto S_40460;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4537,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4537,"ide_methods.bas");}while(r); +do{ +goto LABEL_STARTMENU2; +if(!qbevent)break;evnt(26307,4538,"ide_methods.bas");}while(r); +} +S_40465:; +if ((func__exit())||new_error){ +if(qbevent){evnt(26307,4540,"ide_methods.bas");if(r)goto S_40465;} +S_40466:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,4541,"ide_methods.bas");if(r)goto S_40466;} +do{ +*__LONG_IDEDEBUGMODE= 9 ; +if(!qbevent)break;evnt(26307,4542,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,4542,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26307,4544,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4544,"ide_methods.bas");}while(r); +} +} +S_40474:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26307,4547,"ide_methods.bas");if(r)goto S_40474;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,4548,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4548,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4549,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4549,"ide_methods.bas");}while(r); +S_40479:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,4550,"ide_methods.bas");if(r)goto S_40479;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,4550,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4551,"ide_methods.bas");}while(r); +} +S_40484:; +if ((((-(func__resize()!= 0 )))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ +if(qbevent){evnt(26307,4553,"ide_methods.bas");if(r)goto S_40484;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26307,4554,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26307,4554,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4554,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,4556,"ide_methods.bas");}while(r); +S_40490:; +dl_continue_4407:; +}while((!(*_FUNC_IDE2_LONG_CHANGE))&&(!new_error)); +dl_exit_4407:; +if(qbevent){evnt(26307,4557,"ide_methods.bas");if(r)goto S_40490;} +do{ +*_FUNC_IDE2_LONG_S= 0 ; +if(!qbevent)break;evnt(26307,4559,"ide_methods.bas");}while(r); +S_40492:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,4561,"ide_methods.bas");if(r)goto S_40492;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4562,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4562,"ide_methods.bas");}while(r); +S_40495:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,4563,"ide_methods.bas");if(r)goto S_40495;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,4563,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4564,"ide_methods.bas");}while(r); +} +S_40500:; +if ((*__LONG_MCLICK2&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))||new_error){ +if(qbevent){evnt(26307,4567,"ide_methods.bas");if(r)goto S_40500;} +S_40501:; +if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))|((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))))||new_error){ +if(qbevent){evnt(26307,4569,"ide_methods.bas");if(r)goto S_40501;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4570,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4570,"ide_methods.bas");}while(r); +S_40504:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,4571,"ide_methods.bas");if(r)goto S_40504;} +do{ +*_FUNC_IDE2_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,4572,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26307,4573,"ide_methods.bas");}while(r); +S_40507:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,4574,"ide_methods.bas");if(r)goto S_40507;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,4574,"ide_methods.bas");}while(r); +} +S_40510:; +if ((-(*_FUNC_IDE2_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,4575,"ide_methods.bas");if(r)goto S_40510;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,4576,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4577,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26307,4579,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26307,4581,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4583,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4583,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4584,"ide_methods.bas");}while(r); +} +} +S_40523:; +if ((*_FUNC_IDE2_LONG_MOUSEUP)||new_error){ +if(qbevent){evnt(26307,4589,"ide_methods.bas");if(r)goto S_40523;} +S_40524:; +if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ +if(qbevent){evnt(26307,4590,"ide_methods.bas");if(r)goto S_40524;} +S_40525:; +if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ +if(qbevent){evnt(26307,4591,"ide_methods.bas");if(r)goto S_40525;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; +if(!qbevent)break;evnt(26307,4592,"ide_methods.bas");}while(r); +S_40527:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1)))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ +if(qbevent){evnt(26307,4593,"ide_methods.bas");if(r)goto S_40527;} +do{ +*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26307,4594,"ide_methods.bas");}while(r); +} +} +} +S_40532:; +if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ +if(qbevent){evnt(26307,4601,"ide_methods.bas");if(r)goto S_40532;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; +if(!qbevent)break;evnt(26307,4602,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; +if(!qbevent)break;evnt(26307,4603,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26307,4604,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; +if(!qbevent)break;evnt(26307,4605,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26307,4606,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26307,4607,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4377; +if(!qbevent)break;evnt(26307,4608,"ide_methods.bas");}while(r); +} +S_40541:; +if (((-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 )))|(-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 )))|(-(*__LONG_MY>(*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 1 )))|(((-(*__LONG_MY<*_FUNC_IDE2_LONG_YY))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))))||new_error){ +if(qbevent){evnt(26307,4611,"ide_methods.bas");if(r)goto S_40541;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4612,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4612,"ide_methods.bas");}while(r); +S_40544:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,4613,"ide_methods.bas");if(r)goto S_40544;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,4613,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4614,"ide_methods.bas");}while(r); +} +} +S_40550:; +if (((~(*_FUNC_IDE2_LONG_MOUSEUP))&(~(*_FUNC_IDE2_LONG_MOUSEDOWN)))||new_error){ +if(qbevent){evnt(26307,4618,"ide_methods.bas");if(r)goto S_40550;} +S_40551:; +if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))&(-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ +if(qbevent){evnt(26307,4621,"ide_methods.bas");if(r)goto S_40551;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; +if(!qbevent)break;evnt(26307,4622,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; +if(!qbevent)break;evnt(26307,4623,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26307,4624,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; +if(!qbevent)break;evnt(26307,4625,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26307,4626,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26307,4627,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4377; +if(!qbevent)break;evnt(26307,4628,"ide_methods.bas");}while(r); +} +S_40560:; +if ((-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26307,4630,"ide_methods.bas");if(r)goto S_40560;} +S_40561:; +if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ +if(qbevent){evnt(26307,4631,"ide_methods.bas");if(r)goto S_40561;} +S_40562:; +if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ +if(qbevent){evnt(26307,4632,"ide_methods.bas");if(r)goto S_40562;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; +if(!qbevent)break;evnt(26307,4633,"ide_methods.bas");}while(r); +S_40564:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26307,4634,"ide_methods.bas");if(r)goto S_40564;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26307,4635,"ide_methods.bas");}while(r); +} +} +}else{ +S_40569:; +if ((-(*__LONG_MY== 1 ))||new_error){ +if(qbevent){evnt(26307,4639,"ide_methods.bas");if(r)goto S_40569;} +do{ +goto LABEL_CHECKMENUBARHOVER; +if(!qbevent)break;evnt(26307,4639,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26307,4641,"ide_methods.bas");}while(r); +} +S_40575:; +if ((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26307,4643,"ide_methods.bas");if(r)goto S_40575;} +LABEL_CHECKMENUBARHOVER:; +if(qbevent){evnt(26307,4644,"ide_methods.bas");r=0;} +S_40576:; +if (((-(*__LONG_IDEDEBUGMODE!= 2 ))&(-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ +if(qbevent){evnt(26307,4645,"ide_methods.bas");if(r)goto S_40576;} +do{ +*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26307,4646,"ide_methods.bas");}while(r); +S_40578:; +fornext_value4410= 1 ; +fornext_finalvalue4410=*__INTEGER_MENUS; +fornext_step4410= 1 ; +if (fornext_step4410<0) fornext_step_negative4410=1; else fornext_step_negative4410=0; +if (new_error) goto fornext_error4410; +goto fornext_entrylabel4410; +while(1){ +fornext_value4410=fornext_step4410+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4410: +*_FUNC_IDE2_LONG_I=fornext_value4410; +if (fornext_step_negative4410){ +if (fornext_value4410fornext_finalvalue4410) break; +} +fornext_error4410:; +if(qbevent){evnt(26307,4647,"ide_methods.bas");if(r)goto S_40578;} +do{ +*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4648,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4649,"ide_methods.bas");}while(r); +S_40581:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26307,4650,"ide_methods.bas");if(r)goto S_40581;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,4651,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26307,4652,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; +if(!qbevent)break;evnt(26307,4653,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26307,4654,"ide_methods.bas");}while(r); +S_40586:; +if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))||new_error){ +if(qbevent){evnt(26307,4655,"ide_methods.bas");if(r)goto S_40586;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26307,4655,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26307,4655,"ide_methods.bas");}while(r); +} +do{ +goto fornext_exit_4409; +if(!qbevent)break;evnt(26307,4656,"ide_methods.bas");}while(r); +} +fornext_continue_4409:; +} +fornext_exit_4409:; +} +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26307,4660,"ide_methods.bas");}while(r); +} +} +S_40597:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,4664,"ide_methods.bas");if(r)goto S_40597;} +S_40598:; +if (((-(*__LONG_MY== 1 ))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ +if(qbevent){evnt(26307,4667,"ide_methods.bas");if(r)goto S_40598;} +do{ +*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26307,4668,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 3 ; +if(!qbevent)break;evnt(26307,4669,"ide_methods.bas");}while(r); +S_40601:; +fornext_value4413= 1 ; +fornext_finalvalue4413=*__INTEGER_MENUS; +fornext_step4413= 1 ; +if (fornext_step4413<0) fornext_step_negative4413=1; else fornext_step_negative4413=0; +if (new_error) goto fornext_error4413; +goto fornext_entrylabel4413; +while(1){ +fornext_value4413=fornext_step4413+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4413: +*_FUNC_IDE2_LONG_I=fornext_value4413; +if (fornext_step_negative4413){ +if (fornext_value4413fornext_finalvalue4413) break; +} +fornext_error4413:; +if(qbevent){evnt(26307,4670,"ide_methods.bas");if(r)goto S_40601;} +do{ +*_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4671,"ide_methods.bas");}while(r); +S_40603:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ +if(qbevent){evnt(26307,4672,"ide_methods.bas");if(r)goto S_40603;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26307,4673,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26307,4674,"ide_methods.bas");}while(r); +S_40606:; +if (((-(*_FUNC_IDE2_LONG_LASTM==*_FUNC_IDE2_LONG_M))&(-(*_FUNC_IDE2_LONG_MOUSEDOWN== 1 )))||new_error){ +if(qbevent){evnt(26307,4675,"ide_methods.bas");if(r)goto S_40606;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4675,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4675,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4675,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26307,4676,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4412; +if(!qbevent)break;evnt(26307,4677,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; +if(!qbevent)break;evnt(26307,4679,"ide_methods.bas");}while(r); +S_40615:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26307,4680,"ide_methods.bas");if(r)goto S_40615;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4680,"ide_methods.bas");}while(r); +} +fornext_continue_4412:; +} +fornext_exit_4412:; +} +S_40620:; +if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ +if(qbevent){evnt(26307,4685,"ide_methods.bas");if(r)goto S_40620;} +S_40621:; +if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ +if(qbevent){evnt(26307,4686,"ide_methods.bas");if(r)goto S_40621;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; +if(!qbevent)break;evnt(26307,4687,"ide_methods.bas");}while(r); +S_40623:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26307,4688,"ide_methods.bas");if(r)goto S_40623;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26307,4688,"ide_methods.bas");}while(r); +} +} +} +} +S_40629:; +if (((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26307,4694,"ide_methods.bas");if(r)goto S_40629;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; +if(!qbevent)break;evnt(26307,4695,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26307,4695,"ide_methods.bas");}while(r); +S_40632:; +}else{ +if ((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ +if(qbevent){evnt(26307,4696,"ide_methods.bas");if(r)goto S_40632;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26307,4697,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26307,4698,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; +if(!qbevent)break;evnt(26307,4699,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; +if(!qbevent)break;evnt(26307,4700,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26307,4701,"ide_methods.bas");}while(r); +} +} +S_40639:; +if (((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26307,4703,"ide_methods.bas");if(r)goto S_40639;} +S_40640:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),func_chr( 16 ))))||new_error){ +if(qbevent){evnt(26307,4704,"ide_methods.bas");if(r)goto S_40640;} +S_40641:; +qbs_set(sc_4417,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26307,4705,"ide_methods.bas");if(r)goto S_40641;} +S_40642:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4417,qbs_new_txt_len("#Line Numbers",13))))||new_error){ +if(qbevent){evnt(26307,4706,"ide_methods.bas");if(r)goto S_40642;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; +if(!qbevent)break;evnt(26307,4707,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26307,4708,"ide_methods.bas");}while(r); +sc_ec_186_end:; +goto sc_4417_end; +} +sc_4417_end:; }else{ do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,4413,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4711,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4413,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4711,"ide_methods.bas");}while(r); } -S_38419:; +S_40650:; }else{ if ((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ -if(qbevent){evnt(25066,4415,"ide_methods.bas");if(r)goto S_38419;} +if(qbevent){evnt(26307,4713,"ide_methods.bas");if(r)goto S_40650;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(25066,4416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4714,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(25066,4417,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4715,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU+ 1 ; -if(!qbevent)break;evnt(25066,4418,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4716,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4419,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4717,"ide_methods.bas");}while(r); } } -S_38425:; +S_40656:; if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ -if(qbevent){evnt(25066,4421,"ide_methods.bas");if(r)goto S_38425;} +if(qbevent){evnt(26307,4719,"ide_methods.bas");if(r)goto S_40656;} do{ *_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; -if(!qbevent)break;evnt(25066,4421,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4719,"ide_methods.bas");}while(r); } -S_38428:; +S_40659:; if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(25066,4422,"ide_methods.bas");if(r)goto S_38428;} +if(qbevent){evnt(26307,4720,"ide_methods.bas");if(r)goto S_40659;} do{ *_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(25066,4422,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4720,"ide_methods.bas");}while(r); } -S_38431:; +S_40662:; if ((-(*__LONG_KB== 27 ))||new_error){ -if(qbevent){evnt(25066,4423,"ide_methods.bas");if(r)goto S_38431;} +if(qbevent){evnt(26307,4721,"ide_methods.bas");if(r)goto S_40662;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4424,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4722,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4424,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4722,"ide_methods.bas");}while(r); +S_40665:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,4723,"ide_methods.bas");if(r)goto S_40665;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,4723,"ide_methods.bas");}while(r); +} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4425,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4724,"ide_methods.bas");}while(r); } -S_38436:; +S_40670:; if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(25066,4427,"ide_methods.bas");if(r)goto S_38436;} +if(qbevent){evnt(26307,4726,"ide_methods.bas");if(r)goto S_40670;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; -if(!qbevent)break;evnt(25066,4428,"ide_methods.bas");}while(r); -S_38438:; +if(!qbevent)break;evnt(26307,4727,"ide_methods.bas");}while(r); +S_40672:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(25066,4429,"ide_methods.bas");if(r)goto S_38438;} +if(qbevent){evnt(26307,4728,"ide_methods.bas");if(r)goto S_40672;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; -if(!qbevent)break;evnt(25066,4429,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4728,"ide_methods.bas");}while(r); } -S_38441:; +S_40675:; if ((-(*_FUNC_IDE2_LONG_R>((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]))||new_error){ -if(qbevent){evnt(25066,4430,"ide_methods.bas");if(r)goto S_38441;} +if(qbevent){evnt(26307,4729,"ide_methods.bas");if(r)goto S_40675;} do{ *_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(25066,4430,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4729,"ide_methods.bas");}while(r); } } -S_38445:; +S_40679:; if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(25066,4433,"ide_methods.bas");if(r)goto S_38445;} +if(qbevent){evnt(26307,4732,"ide_methods.bas");if(r)goto S_40679;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; -if(!qbevent)break;evnt(25066,4434,"ide_methods.bas");}while(r); -S_38447:; +if(!qbevent)break;evnt(26307,4733,"ide_methods.bas");}while(r); +S_40681:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(25066,4435,"ide_methods.bas");if(r)goto S_38447;} +if(qbevent){evnt(26307,4734,"ide_methods.bas");if(r)goto S_40681;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; -if(!qbevent)break;evnt(25066,4435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4734,"ide_methods.bas");}while(r); } -S_38450:; +S_40684:; if ((-(*_FUNC_IDE2_LONG_R< 1 ))||new_error){ -if(qbevent){evnt(25066,4436,"ide_methods.bas");if(r)goto S_38450;} +if(qbevent){evnt(26307,4735,"ide_methods.bas");if(r)goto S_40684;} do{ *_FUNC_IDE2_LONG_R=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -if(!qbevent)break;evnt(25066,4436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4735,"ide_methods.bas");}while(r); } } -S_38454:; +S_40688:; if ((-(*__LONG_KB== 13 ))||new_error){ -if(qbevent){evnt(25066,4442,"ide_methods.bas");if(r)goto S_38454;} -S_38455:; +if(qbevent){evnt(26307,4741,"ide_methods.bas");if(r)goto S_40688;} +S_40689:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(25066,4443,"ide_methods.bas");if(r)goto S_38455;} +if(qbevent){evnt(26307,4742,"ide_methods.bas");if(r)goto S_40689;} do{ *_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(25066,4443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4742,"ide_methods.bas");}while(r); } } do{ qbs_set(__STRING_K,qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4447,"ide_methods.bas");}while(r); -S_38460:; +if(!qbevent)break;evnt(26307,4746,"ide_methods.bas");}while(r); +S_40694:; if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&(~(*__LONG_KCTRL))))||new_error){ -if(qbevent){evnt(25066,4448,"ide_methods.bas");if(r)goto S_38460;} -S_38461:; -fornext_value4340= 1 ; -fornext_finalvalue4340=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -fornext_step4340= 1 ; -if (fornext_step4340<0) fornext_step_negative4340=1; else fornext_step_negative4340=0; -if (new_error) goto fornext_error4340; -goto fornext_entrylabel4340; +if(qbevent){evnt(26307,4747,"ide_methods.bas");if(r)goto S_40694;} +S_40695:; +fornext_value4420= 1 ; +fornext_finalvalue4420=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +fornext_step4420= 1 ; +if (fornext_step4420<0) fornext_step_negative4420=1; else fornext_step_negative4420=0; +if (new_error) goto fornext_error4420; +goto fornext_entrylabel4420; while(1){ -fornext_value4340=fornext_step4340+(*_FUNC_IDE2_LONG_R2); -fornext_entrylabel4340: -*_FUNC_IDE2_LONG_R2=fornext_value4340; -if (fornext_step_negative4340){ -if (fornext_value4340fornext_finalvalue4340) break; +if (fornext_value4420>fornext_finalvalue4420) break; } -fornext_error4340:; -if(qbevent){evnt(25066,4449,"ide_methods.bas");if(r)goto S_38461;} +fornext_error4420:; +if(qbevent){evnt(26307,4748,"ide_methods.bas");if(r)goto S_40695;} do{ *_FUNC_IDE2_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4450,"ide_methods.bas");}while(r); -S_38463:; +if(!qbevent)break;evnt(26307,4749,"ide_methods.bas");}while(r); +S_40697:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,4451,"ide_methods.bas");if(r)goto S_38463;} +if(qbevent){evnt(26307,4750,"ide_methods.bas");if(r)goto S_40697;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),*_FUNC_IDE2_LONG_X+ 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4452,"ide_methods.bas");}while(r); -S_38465:; +if(!qbevent)break;evnt(26307,4751,"ide_methods.bas");}while(r); +S_40699:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ -if(qbevent){evnt(25066,4453,"ide_methods.bas");if(r)goto S_38465;} +if(qbevent){evnt(26307,4752,"ide_methods.bas");if(r)goto S_40699;} do{ *_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R2; -if(!qbevent)break;evnt(25066,4454,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4753,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; -if(!qbevent)break;evnt(25066,4455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4754,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4339; -if(!qbevent)break;evnt(25066,4456,"ide_methods.bas");}while(r); -S_38469:; +goto fornext_exit_4419; +if(!qbevent)break;evnt(26307,4755,"ide_methods.bas");}while(r); +S_40703:; }else{ if (qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A))&(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))){ -if(qbevent){evnt(25066,4457,"ide_methods.bas");if(r)goto S_38469;} +if(qbevent){evnt(26307,4756,"ide_methods.bas");if(r)goto S_40703;} do{ *_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; -if(!qbevent)break;evnt(25066,4458,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4757,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4339; -if(!qbevent)break;evnt(25066,4459,"ide_methods.bas");}while(r); +goto fornext_exit_4419; +if(!qbevent)break;evnt(26307,4758,"ide_methods.bas");}while(r); } } } -fornext_continue_4339:; +fornext_continue_4419:; } -fornext_exit_4339:; -S_38475:; +fornext_exit_4419:; +S_40709:; if ((*_FUNC_IDE2_BYTE_UPDATEMENUPANEL)||new_error){ -if(qbevent){evnt(25066,4463,"ide_methods.bas");if(r)goto S_38475;} +if(qbevent){evnt(26307,4762,"ide_methods.bas");if(r)goto S_40709;} do{ *_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R2; -if(!qbevent)break;evnt(25066,4463,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4762,"ide_methods.bas");}while(r); do{ -goto dl_continue_4291; -if(!qbevent)break;evnt(25066,4463,"ide_methods.bas");}while(r); +goto dl_continue_4377; +if(!qbevent)break;evnt(26307,4762,"ide_methods.bas");}while(r); } } -S_38480:; +S_40714:; if ((*_FUNC_IDE2_LONG_S)||new_error){ -if(qbevent){evnt(25066,4466,"ide_methods.bas");if(r)goto S_38480;} +if(qbevent){evnt(26307,4765,"ide_methods.bas");if(r)goto S_40714;} LABEL_MENUCHOICEMADE:; -if(qbevent){evnt(25066,4467,"ide_methods.bas");r=0;} -S_38481:; +if(qbevent){evnt(26307,4766,"ide_methods.bas");r=0;} +S_40715:; if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(25066,4468,"ide_methods.bas");if(r)goto S_38481;} +if(qbevent){evnt(26307,4767,"ide_methods.bas");if(r)goto S_40715;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,4468,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4767,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,4468,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4767,"ide_methods.bas");}while(r); } -S_38486:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add Comment (') Ctrl+R",23))))||new_error){ -if(qbevent){evnt(25066,4470,"ide_methods.bas");if(r)goto S_38486;} +S_40720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24))))||new_error){ +if(qbevent){evnt(26307,4769,"ide_methods.bas");if(r)goto S_40720;} LABEL_CTRLADDCOMMENT:; -if(qbevent){evnt(25066,4471,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,4770,"ide_methods.bas");r=0;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4472,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4771,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; -if(!qbevent)break;evnt(25066,4472,"ide_methods.bas");}while(r); -S_38489:; +if(!qbevent)break;evnt(26307,4771,"ide_methods.bas");}while(r); +S_40723:; if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,4473,"ide_methods.bas");if(r)goto S_38489;} +if(qbevent){evnt(26307,4772,"ide_methods.bas");if(r)goto S_40723;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,4474,"ide_methods.bas");}while(r); -S_38491:; +if(!qbevent)break;evnt(26307,4773,"ide_methods.bas");}while(r); +S_40725:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(25066,4475,"ide_methods.bas");if(r)goto S_38491;} +if(qbevent){evnt(26307,4774,"ide_methods.bas");if(r)goto S_40725;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(25066,4475,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4774,"ide_methods.bas");}while(r); } -S_38494:; +S_40728:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,4476,"ide_methods.bas");if(r)goto S_38494;} +if(qbevent){evnt(26307,4775,"ide_methods.bas");if(r)goto S_40728;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(25066,4476,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4775,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(25066,4479,"ide_methods.bas");}while(r); -S_38499:; -fornext_value4342=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4342=*_FUNC_IDE2_LONG_Y2; -fornext_step4342= 1 ; -if (fornext_step4342<0) fornext_step_negative4342=1; else fornext_step_negative4342=0; -if (new_error) goto fornext_error4342; -goto fornext_entrylabel4342; +if(!qbevent)break;evnt(26307,4778,"ide_methods.bas");}while(r); +S_40733:; +fornext_value4422=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4422=*_FUNC_IDE2_LONG_Y2; +fornext_step4422= 1 ; +if (fornext_step4422<0) fornext_step_negative4422=1; else fornext_step_negative4422=0; +if (new_error) goto fornext_error4422; +goto fornext_entrylabel4422; while(1){ -fornext_value4342=fornext_step4342+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4342: -*_FUNC_IDE2_LONG_Y=fornext_value4342; -if (fornext_step_negative4342){ -if (fornext_value4342fornext_finalvalue4342) break; +if (fornext_value4422>fornext_finalvalue4422) break; } -fornext_error4342:; -if(qbevent){evnt(25066,4480,"ide_methods.bas");if(r)goto S_38499;} +fornext_error4422:; +if(qbevent){evnt(26307,4779,"ide_methods.bas");if(r)goto S_40733;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4481,"ide_methods.bas");}while(r); -S_38501:; +if(!qbevent)break;evnt(26307,4780,"ide_methods.bas");}while(r); +S_40735:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,4482,"ide_methods.bas");if(r)goto S_38501;} +if(qbevent){evnt(26307,4781,"ide_methods.bas");if(r)goto S_40735;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4483,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4782,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4484,"ide_methods.bas");}while(r); -S_38504:; +if(!qbevent)break;evnt(26307,4783,"ide_methods.bas");}while(r); +S_40738:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(25066,4485,"ide_methods.bas");if(r)goto S_38504;} +if(qbevent){evnt(26307,4784,"ide_methods.bas");if(r)goto S_40738;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(25066,4485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4784,"ide_methods.bas");}while(r); } } -fornext_continue_4341:; +fornext_continue_4421:; } -fornext_exit_4341:; -S_38509:; -fornext_value4347=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4347=*_FUNC_IDE2_LONG_Y2; -fornext_step4347= 1 ; -if (fornext_step4347<0) fornext_step_negative4347=1; else fornext_step_negative4347=0; -if (new_error) goto fornext_error4347; -goto fornext_entrylabel4347; +fornext_exit_4421:; +S_40743:; +fornext_value4427=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4427=*_FUNC_IDE2_LONG_Y2; +fornext_step4427= 1 ; +if (fornext_step4427<0) fornext_step_negative4427=1; else fornext_step_negative4427=0; +if (new_error) goto fornext_error4427; +goto fornext_entrylabel4427; while(1){ -fornext_value4347=fornext_step4347+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4347: -*_FUNC_IDE2_LONG_Y=fornext_value4347; -if (fornext_step_negative4347){ -if (fornext_value4347fornext_finalvalue4347) break; +if (fornext_value4427>fornext_finalvalue4427) break; } -fornext_error4347:; -if(qbevent){evnt(25066,4489,"ide_methods.bas");if(r)goto S_38509;} +fornext_error4427:; +if(qbevent){evnt(26307,4788,"ide_methods.bas");if(r)goto S_40743;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4490,"ide_methods.bas");}while(r); -S_38511:; +if(!qbevent)break;evnt(26307,4789,"ide_methods.bas");}while(r); +S_40745:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,4491,"ide_methods.bas");if(r)goto S_38511;} +if(qbevent){evnt(26307,4790,"ide_methods.bas");if(r)goto S_40745;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),qbs_new_txt_len("'",1)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4492,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4791,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4493,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4792,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,4494,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4793,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4794,"ide_methods.bas");}while(r); } -fornext_continue_4346:; +fornext_continue_4426:; } -fornext_exit_4346:; +fornext_exit_4426:; do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4497,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4797,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4497,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4497,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4497,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4797,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4498,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4798,"ide_methods.bas");}while(r); } -S_38523:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Remove Comment (') Ctrl+Shift+R",32))))||new_error){ -if(qbevent){evnt(25066,4501,"ide_methods.bas");if(r)goto S_38523;} +S_40756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33))))||new_error){ +if(qbevent){evnt(26307,4801,"ide_methods.bas");if(r)goto S_40756;} LABEL_CTRLREMOVECOMMENT:; -if(qbevent){evnt(25066,4502,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,4802,"ide_methods.bas");r=0;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4803,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4503,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4503,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4803,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4504,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4804,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; -if(!qbevent)break;evnt(25066,4504,"ide_methods.bas");}while(r); -S_38530:; +if(!qbevent)break;evnt(26307,4804,"ide_methods.bas");}while(r); +S_40761:; if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,4505,"ide_methods.bas");if(r)goto S_38530;} +if(qbevent){evnt(26307,4805,"ide_methods.bas");if(r)goto S_40761;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,4506,"ide_methods.bas");}while(r); -S_38532:; +if(!qbevent)break;evnt(26307,4806,"ide_methods.bas");}while(r); +S_40763:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(25066,4507,"ide_methods.bas");if(r)goto S_38532;} +if(qbevent){evnt(26307,4807,"ide_methods.bas");if(r)goto S_40763;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(25066,4507,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4807,"ide_methods.bas");}while(r); } -S_38535:; +S_40766:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,4508,"ide_methods.bas");if(r)goto S_38535;} +if(qbevent){evnt(26307,4808,"ide_methods.bas");if(r)goto S_40766;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(25066,4508,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4808,"ide_methods.bas");}while(r); } } -S_38539:; -fornext_value4351=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4351=*_FUNC_IDE2_LONG_Y2; -fornext_step4351= 1 ; -if (fornext_step4351<0) fornext_step_negative4351=1; else fornext_step_negative4351=0; -if (new_error) goto fornext_error4351; -goto fornext_entrylabel4351; +S_40770:; +fornext_value4431=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4431=*_FUNC_IDE2_LONG_Y2; +fornext_step4431= 1 ; +if (fornext_step4431<0) fornext_step_negative4431=1; else fornext_step_negative4431=0; +if (new_error) goto fornext_error4431; +goto fornext_entrylabel4431; while(1){ -fornext_value4351=fornext_step4351+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4351: -*_FUNC_IDE2_LONG_Y=fornext_value4351; -if (fornext_step_negative4351){ -if (fornext_value4351fornext_finalvalue4351) break; +if (fornext_value4431>fornext_finalvalue4431) break; } -fornext_error4351:; -if(qbevent){evnt(25066,4511,"ide_methods.bas");if(r)goto S_38539;} +fornext_error4431:; +if(qbevent){evnt(26307,4811,"ide_methods.bas");if(r)goto S_40770;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4512,"ide_methods.bas");}while(r); -S_38541:; +if(!qbevent)break;evnt(26307,4812,"ide_methods.bas");}while(r); +S_40772:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,4513,"ide_methods.bas");if(r)goto S_38541;} +if(qbevent){evnt(26307,4813,"ide_methods.bas");if(r)goto S_40772;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4514,"ide_methods.bas");}while(r); -S_38543:; +if(!qbevent)break;evnt(26307,4814,"ide_methods.bas");}while(r); +S_40774:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(25066,4515,"ide_methods.bas");if(r)goto S_38543;} -S_38544:; +if(qbevent){evnt(26307,4815,"ide_methods.bas");if(r)goto S_40774;} +S_40775:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ -if(qbevent){evnt(25066,4516,"ide_methods.bas");if(r)goto S_38544;} +if(qbevent){evnt(26307,4816,"ide_methods.bas");if(r)goto S_40775;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_space(_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_A2->len),qbs_right(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4817,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4518,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4818,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,4519,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4819,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4820,"ide_methods.bas");}while(r); } } } -fornext_continue_4350:; +fornext_continue_4430:; } -fornext_exit_4350:; +fornext_exit_4430:; do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4825,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4524,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4524,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4825,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4525,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4826,"ide_methods.bas");}while(r); } -S_38558:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle Comment Ctrl+T",22))))||new_error){ -if(qbevent){evnt(25066,4528,"ide_methods.bas");if(r)goto S_38558;} +S_40788:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23))))||new_error){ +if(qbevent){evnt(26307,4829,"ide_methods.bas");if(r)goto S_40788;} LABEL_CTRLTOGGLECOMMENT:; -if(qbevent){evnt(25066,4529,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,4830,"ide_methods.bas");r=0;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4530,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4831,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4530,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4530,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4530,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4831,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4531,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4832,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; -if(!qbevent)break;evnt(25066,4531,"ide_methods.bas");}while(r); -S_38565:; +if(!qbevent)break;evnt(26307,4832,"ide_methods.bas");}while(r); +S_40793:; if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,4532,"ide_methods.bas");if(r)goto S_38565;} +if(qbevent){evnt(26307,4833,"ide_methods.bas");if(r)goto S_40793;} do{ *_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,4533,"ide_methods.bas");}while(r); -S_38567:; +if(!qbevent)break;evnt(26307,4834,"ide_methods.bas");}while(r); +S_40795:; if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(25066,4534,"ide_methods.bas");if(r)goto S_38567;} +if(qbevent){evnt(26307,4835,"ide_methods.bas");if(r)goto S_40795;} do{ *_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(25066,4534,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4835,"ide_methods.bas");}while(r); } -S_38570:; +S_40798:; if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,4535,"ide_methods.bas");if(r)goto S_38570;} +if(qbevent){evnt(26307,4836,"ide_methods.bas");if(r)goto S_40798;} do{ swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(25066,4535,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4836,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(25066,4538,"ide_methods.bas");}while(r); -S_38575:; -fornext_value4358=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4358=*_FUNC_IDE2_LONG_Y2; -fornext_step4358= 1 ; -if (fornext_step4358<0) fornext_step_negative4358=1; else fornext_step_negative4358=0; -if (new_error) goto fornext_error4358; -goto fornext_entrylabel4358; +if(!qbevent)break;evnt(26307,4839,"ide_methods.bas");}while(r); +S_40803:; +fornext_value4438=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4438=*_FUNC_IDE2_LONG_Y2; +fornext_step4438= 1 ; +if (fornext_step4438<0) fornext_step_negative4438=1; else fornext_step_negative4438=0; +if (new_error) goto fornext_error4438; +goto fornext_entrylabel4438; while(1){ -fornext_value4358=fornext_step4358+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4358: -*_FUNC_IDE2_LONG_Y=fornext_value4358; -if (fornext_step_negative4358){ -if (fornext_value4358fornext_finalvalue4358) break; +if (fornext_value4438>fornext_finalvalue4438) break; } -fornext_error4358:; -if(qbevent){evnt(25066,4539,"ide_methods.bas");if(r)goto S_38575;} +fornext_error4438:; +if(qbevent){evnt(26307,4840,"ide_methods.bas");if(r)goto S_40803;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4540,"ide_methods.bas");}while(r); -S_38577:; +if(!qbevent)break;evnt(26307,4841,"ide_methods.bas");}while(r); +S_40805:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,4541,"ide_methods.bas");if(r)goto S_38577;} +if(qbevent){evnt(26307,4842,"ide_methods.bas");if(r)goto S_40805;} do{ qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4542,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4843,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4543,"ide_methods.bas");}while(r); -S_38580:; +if(!qbevent)break;evnt(26307,4844,"ide_methods.bas");}while(r); +S_40808:; if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(25066,4544,"ide_methods.bas");if(r)goto S_38580;} +if(qbevent){evnt(26307,4845,"ide_methods.bas");if(r)goto S_40808;} do{ *_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(25066,4544,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4845,"ide_methods.bas");}while(r); } } -fornext_continue_4357:; +fornext_continue_4437:; } -fornext_exit_4357:; -S_38585:; -fornext_value4363=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4363=*_FUNC_IDE2_LONG_Y2; -fornext_step4363= 1 ; -if (fornext_step4363<0) fornext_step_negative4363=1; else fornext_step_negative4363=0; -if (new_error) goto fornext_error4363; -goto fornext_entrylabel4363; +fornext_exit_4437:; +S_40813:; +fornext_value4443=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4443=*_FUNC_IDE2_LONG_Y2; +fornext_step4443= 1 ; +if (fornext_step4443<0) fornext_step_negative4443=1; else fornext_step_negative4443=0; +if (new_error) goto fornext_error4443; +goto fornext_entrylabel4443; while(1){ -fornext_value4363=fornext_step4363+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4363: -*_FUNC_IDE2_LONG_Y=fornext_value4363; -if (fornext_step_negative4363){ -if (fornext_value4363fornext_finalvalue4363) break; +if (fornext_value4443>fornext_finalvalue4443) break; } -fornext_error4363:; -if(qbevent){evnt(25066,4548,"ide_methods.bas");if(r)goto S_38585;} +fornext_error4443:; +if(qbevent){evnt(26307,4849,"ide_methods.bas");if(r)goto S_40813;} do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4549,"ide_methods.bas");}while(r); -S_38587:; +if(!qbevent)break;evnt(26307,4850,"ide_methods.bas");}while(r); +S_40815:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,4550,"ide_methods.bas");if(r)goto S_38587;} +if(qbevent){evnt(26307,4851,"ide_methods.bas");if(r)goto S_40815;} do{ qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4551,"ide_methods.bas");}while(r); -S_38589:; +if(!qbevent)break;evnt(26307,4852,"ide_methods.bas");}while(r); +S_40817:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(25066,4552,"ide_methods.bas");if(r)goto S_38589;} -S_38590:; +if(qbevent){evnt(26307,4853,"ide_methods.bas");if(r)goto S_40817;} +S_40818:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ -if(qbevent){evnt(25066,4553,"ide_methods.bas");if(r)goto S_38590;} +if(qbevent){evnt(26307,4854,"ide_methods.bas");if(r)goto S_40818;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_space(_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_A2->len),qbs_right(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4554,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4855,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4555,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4856,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,4556,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4857,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4858,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),qbs_new_txt_len("'",1)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4860,"ide_methods.bas");}while(r); do{ SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4559,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4861,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,4560,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4862,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,4863,"ide_methods.bas");}while(r); } } } -fornext_continue_4362:; +fornext_continue_4442:; } -fornext_exit_4362:; +fornext_exit_4442:; do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4565,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4868,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4565,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4565,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4565,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4868,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4566,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4869,"ide_methods.bas");}while(r); } -S_38608:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Increase Indent TAB",20))))||new_error){ -if(qbevent){evnt(25066,4569,"ide_methods.bas");if(r)goto S_38608;} -S_38609:; +S_40836:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Increase Indent TAB",21))))||new_error){ +if(qbevent){evnt(26307,4872,"ide_methods.bas");if(r)goto S_40836;} +S_40837:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,4570,"ide_methods.bas");if(r)goto S_38609;} +if(qbevent){evnt(26307,4873,"ide_methods.bas");if(r)goto S_40837;} do{ goto LABEL_IDEBLOCKINCREASEINDENT; -if(!qbevent)break;evnt(25066,4570,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4873,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4571,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4874,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4571,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4571,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4571,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4874,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4572,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4875,"ide_methods.bas");}while(r); } -S_38618:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Decrease Indent",15))))||new_error){ -if(qbevent){evnt(25066,4575,"ide_methods.bas");if(r)goto S_38618;} -S_38619:; +S_40844:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 16 ),qbs_new_txt_len("#Decrease Indent",16))))||new_error){ +if(qbevent){evnt(26307,4878,"ide_methods.bas");if(r)goto S_40844;} +S_40845:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,4576,"ide_methods.bas");if(r)goto S_38619;} +if(qbevent){evnt(26307,4879,"ide_methods.bas");if(r)goto S_40845;} do{ goto LABEL_IDEBLOCKDECREASEINDENT; -if(!qbevent)break;evnt(25066,4576,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4879,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4577,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4880,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4577,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4577,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4577,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4880,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4578,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4881,"ide_methods.bas");}while(r); } -S_38628:; +S_40852:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Language...",12))))||new_error){ -if(qbevent){evnt(25066,4581,"ide_methods.bas");if(r)goto S_38628;} +if(qbevent){evnt(26307,4884,"ide_methods.bas");if(r)goto S_40852;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4582,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4885,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDELANGUAGEBOX(); -if(!qbevent)break;evnt(25066,4583,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4886,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4584,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4887,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4584,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4584,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4584,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4887,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4585,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4888,"ide_methods.bas");}while(r); } -S_38637:; +S_40859:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Display...",11))))||new_error){ -if(qbevent){evnt(25066,4588,"ide_methods.bas");if(r)goto S_38637;} +if(qbevent){evnt(26307,4891,"ide_methods.bas");if(r)goto S_40859;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4589,"ide_methods.bas");}while(r); -S_38639:; +if(!qbevent)break;evnt(26307,4892,"ide_methods.bas");}while(r); +S_40861:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(25066,4590,"ide_methods.bas");if(r)goto S_38639;} +if(qbevent){evnt(26307,4893,"ide_methods.bas");if(r)goto S_40861;} do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEDISPLAYBOX(); -if(!qbevent)break;evnt(25066,4591,"ide_methods.bas");}while(r); -S_38641:; +if(!qbevent)break;evnt(26307,4894,"ide_methods.bas");}while(r); +S_40863:; if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ -if(qbevent){evnt(25066,4592,"ide_methods.bas");if(r)goto S_38641;} +if(qbevent){evnt(26307,4895,"ide_methods.bas");if(r)goto S_40863;} do{ -qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,3); -if(!qbevent)break;evnt(25066,4594,"ide_methods.bas");}while(r); -S_38643:; +qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,NULL,NULL,3); +if(!qbevent)break;evnt(26307,4897,"ide_methods.bas");}while(r); +S_40865:; if ((*__LONG_IDECUSTOMFONT)||new_error){ -if(qbevent){evnt(25066,4595,"ide_methods.bas");if(r)goto S_38643;} +if(qbevent){evnt(26307,4898,"ide_methods.bas");if(r)goto S_40865;} do{ sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); -if(!qbevent)break;evnt(25066,4596,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4899,"ide_methods.bas");}while(r); +}else{ +S_40868:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26307,4901,"ide_methods.bas");if(r)goto S_40868;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26307,4901,"ide_methods.bas");}while(r); }else{ do{ sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(25066,4598,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4901,"ide_methods.bas");}while(r); +} } do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,4600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4903,"ide_methods.bas");}while(r); do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,4601,"ide_methods.bas");}while(r); +return_point[next_return_point++]=43; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_43:; +if(!qbevent)break;evnt(26307,4904,"ide_methods.bas");}while(r); } } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4604,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4907,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4604,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4604,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4604,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4907,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4605,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4908,"ide_methods.bas");}while(r); } -S_38658:; +S_40882:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("IDE C#olors...",14))))||new_error){ -if(qbevent){evnt(25066,4608,"ide_methods.bas");if(r)goto S_38658;} +if(qbevent){evnt(26307,4911,"ide_methods.bas");if(r)goto S_40882;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4609,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4912,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(25066,4610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4913,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDECHOOSECOLORSBOX(); -if(!qbevent)break;evnt(25066,4611,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4914,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4612,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4915,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4612,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4612,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4612,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4915,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4613,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4916,"ide_methods.bas");}while(r); } -S_38668:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Open _RGB Color Mi#xer",22))))||new_error){ -if(qbevent){evnt(25066,4616,"ide_methods.bas");if(r)goto S_38668;} +S_40890:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#RGB Color Mixer...",19))))||new_error){ +if(qbevent){evnt(26307,4919,"ide_methods.bas");if(r)goto S_40890;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4617,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4920,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(25066,4618,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4921,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,4619,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4922,"ide_methods.bas");}while(r); do{ SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(25066,4620,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4923,"ide_methods.bas");}while(r); do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(25066,4621,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4924,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDECOLORPICKER(&(pass4370= -1 ))); +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4450= -1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4622,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4925,"ide_methods.bas");}while(r); +S_40897:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26307,4926,"ide_methods.bas");if(r)goto S_40897;} +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4926,"ide_methods.bas");}while(r); +} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4623,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4927,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4623,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4623,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4623,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4927,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4928,"ide_methods.bas");}while(r); } -S_38681:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Advanced...",12))))||new_error){ -if(qbevent){evnt(25066,4627,"ide_methods.bas");if(r)goto S_38681;} +S_40904:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Advanced (C++)...",18))))||new_error){ +if(qbevent){evnt(26307,4931,"ide_methods.bas");if(r)goto S_40904;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4628,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4932,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEADVANCEDBOX(); -if(!qbevent)break;evnt(25066,4629,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4933,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4631,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4935,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4631,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4631,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4631,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4935,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4936,"ide_methods.bas");}while(r); } -S_38690:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("#Swap Mouse Buttons",19))))||new_error){ -if(qbevent){evnt(25066,4636,"ide_methods.bas");if(r)goto S_38690;} +S_40911:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Purge C++ #Libraries",20))))||new_error){ +if(qbevent){evnt(26307,4939,"ide_methods.bas");if(r)goto S_40911;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4637,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4940,"ide_methods.bas");}while(r); +do{ +SUB_PURGEPRECOMPILEDCONTENT(); +if(!qbevent)break;evnt(26307,4941,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4942,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4942,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4943,"ide_methods.bas");}while(r); +} +S_40918:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("#Swap Mouse Buttons",19))))||new_error){ +if(qbevent){evnt(26307,4947,"ide_methods.bas");if(r)goto S_40918;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,4948,"ide_methods.bas");}while(r); do{ *__BYTE_MOUSEBUTTONSWAPPED=~(*__BYTE_MOUSEBUTTONSWAPPED); -if(!qbevent)break;evnt(25066,4638,"ide_methods.bas");}while(r); -S_38693:; +if(!qbevent)break;evnt(26307,4949,"ide_methods.bas");}while(r); +S_40921:; if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(25066,4639,"ide_methods.bas");if(r)goto S_38693;} +if(qbevent){evnt(26307,4950,"ide_methods.bas");if(r)goto S_40921;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4951,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Swap Mouse Buttons",19))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4952,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[MOUSE SETTINGS]",17),qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4643,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4954,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Swap Mouse Buttons",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4644,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4955,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4646,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4957,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4646,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4646,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4646,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4957,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4647,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4958,"ide_methods.bas");}while(r); } -S_38706:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Cursor After #Pasted Content",28))))||new_error){ -if(qbevent){evnt(25066,4650,"ide_methods.bas");if(r)goto S_38706;} +S_40932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("Syntax #Highlighter",19))))||new_error){ +if(qbevent){evnt(26307,4961,"ide_methods.bas");if(r)goto S_40932;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4651,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4962,"ide_methods.bas");}while(r); +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER=~(*__BYTE_DISABLESYNTAXHIGHLIGHTER); +if(!qbevent)break;evnt(26307,4963,"ide_methods.bas");}while(r); +S_40935:; +if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ +if(qbevent){evnt(26307,4964,"ide_methods.bas");if(r)goto S_40935;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4965,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4966,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4968,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax #Highlighter",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,4969,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,4971,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,4971,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,4972,"ide_methods.bas");}while(r); +} +S_40946:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("Cursor After #Paste",19))))||new_error){ +if(qbevent){evnt(26307,4975,"ide_methods.bas");if(r)goto S_40946;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,4976,"ide_methods.bas");}while(r); do{ *__BYTE_PASTECURSORATEND=~(*__BYTE_PASTECURSORATEND); -if(!qbevent)break;evnt(25066,4652,"ide_methods.bas");}while(r); -S_38709:; +if(!qbevent)break;evnt(26307,4977,"ide_methods.bas");}while(r); +S_40949:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,4653,"ide_methods.bas");if(r)goto S_38709;} +if(qbevent){evnt(26307,4978,"ide_methods.bas");if(r)goto S_40949;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4654,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4979,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Cursor After #Pasted Content",28))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Cursor After #Paste",19))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4655,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4980,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4657,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4982,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Pasted Content",28)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Paste",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4658,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4983,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4985,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4660,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4660,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4985,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4661,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4986,"ide_methods.bas");}while(r); } -S_38722:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 36 ),qbs_new_txt_len("Show Compilation #Errors Immediately",36))))||new_error){ -if(qbevent){evnt(25066,4664,"ide_methods.bas");if(r)goto S_38722;} +S_40960:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Syntax Ch#ecker",15))))||new_error){ +if(qbevent){evnt(26307,4989,"ide_methods.bas");if(r)goto S_40960;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4665,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4990,"ide_methods.bas");}while(r); do{ *__BYTE_IDESHOWERRORSIMMEDIATELY=~(*__BYTE_IDESHOWERRORSIMMEDIATELY); -if(!qbevent)break;evnt(25066,4666,"ide_methods.bas");}while(r); -S_38725:; +if(!qbevent)break;evnt(26307,4991,"ide_methods.bas");}while(r); +S_40963:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(25066,4667,"ide_methods.bas");if(r)goto S_38725;} +if(qbevent){evnt(26307,4992,"ide_methods.bas");if(r)goto S_40963;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4668,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4993,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Show Compilation #Errors Immediately",36))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax Ch#ecker",15))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4669,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4994,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4671,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4996,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Show Compilation #Errors Immediately",36)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax Ch#ecker",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4672,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4997,"ide_methods.bas");}while(r); } do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,4674,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4999,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,5000,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4675,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5001,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4675,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4675,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4675,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5001,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5002,"ide_methods.bas");}while(r); } -S_38739:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Output EXE to Source #Folder",28))))||new_error){ -if(qbevent){evnt(25066,4679,"ide_methods.bas");if(r)goto S_38739;} +S_40976:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 16 ),qbs_new_txt_len("Ignore #Warnings",16))))||new_error){ +if(qbevent){evnt(26307,5005,"ide_methods.bas");if(r)goto S_40976;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4680,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5006,"ide_methods.bas");}while(r); +S_40978:; +if ((-(*__BYTE_IGNOREWARNINGS== 0 ))||new_error){ +if(qbevent){evnt(26307,5007,"ide_methods.bas");if(r)goto S_40978;} +do{ +*__BYTE_IGNOREWARNINGS= -1 ; +if(!qbevent)break;evnt(26307,5008,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5009,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Ignore #Warnings",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5010,"ide_methods.bas");}while(r); +}else{ +do{ +*__BYTE_IGNOREWARNINGS= 0 ; +if(!qbevent)break;evnt(26307,5012,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5013,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ignore #Warnings",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5014,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,5016,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,5017,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5018,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5018,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5019,"ide_methods.bas");}while(r); +} +S_40993:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Output EXE to Source #Folder",28))))||new_error){ +if(qbevent){evnt(26307,5022,"ide_methods.bas");if(r)goto S_40993;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5023,"ide_methods.bas");}while(r); do{ *__BYTE_SAVEEXEWITHSOURCE=~(*__BYTE_SAVEEXEWITHSOURCE); -if(!qbevent)break;evnt(25066,4681,"ide_methods.bas");}while(r); -S_38742:; +if(!qbevent)break;evnt(26307,5024,"ide_methods.bas");}while(r); +S_40996:; if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(25066,4682,"ide_methods.bas");if(r)goto S_38742;} +if(qbevent){evnt(26307,5025,"ide_methods.bas");if(r)goto S_40996;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4683,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5026,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Output EXE to Source #Folder",28))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4684,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5027,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4686,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5029,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Output EXE to Source #Folder",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4687,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5030,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4689,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5032,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4689,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5032,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4689,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4689,"ide_methods.bas");}while(r); +*__LONG_IDECOMPILED= 0 ; +if(!qbevent)break;evnt(26307,5033,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4690,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5034,"ide_methods.bas");}while(r); } -S_38755:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 , 24 ,1),qbs_new_txt_len("Enable #Quick Navigation",24)))|(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 , 24 ,1),qbs_new_txt_len("Enable #Quick Navigation",24)))))||new_error){ -if(qbevent){evnt(25066,4693,"ide_methods.bas");if(r)goto S_38755;} +S_41008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 29 ),qbs_new_txt_len("#Output Watch List to Console",29))))||new_error){ +if(qbevent){evnt(26307,5037,"ide_methods.bas");if(r)goto S_41008;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4694,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5038,"ide_methods.bas");}while(r); +do{ +*__BYTE_WATCHLISTTOCONSOLE=~(*__BYTE_WATCHLISTTOCONSOLE); +if(!qbevent)break;evnt(26307,5039,"ide_methods.bas");}while(r); +S_41011:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26307,5040,"ide_methods.bas");if(r)goto S_41011;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5041,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Output Watch List to Console",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5042,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5044,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Output Watch List to Console",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5045,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5047,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5047,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5048,"ide_methods.bas");}while(r); +} +S_41022:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Auto-add $#Debug Metacommand",28))))||new_error){ +if(qbevent){evnt(26307,5051,"ide_methods.bas");if(r)goto S_41022;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5052,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND=~(*__BYTE_AUTOADDDEBUGCOMMAND); +if(!qbevent)break;evnt(26307,5053,"ide_methods.bas");}while(r); +S_41025:; +if ((*__BYTE_AUTOADDDEBUGCOMMAND)||new_error){ +if(qbevent){evnt(26307,5054,"ide_methods.bas");if(r)goto S_41025;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5055,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Auto-add $#Debug Metacommand",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5056,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5058,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5059,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5061,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5061,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5062,"ide_methods.bas");}while(r); +} +S_41036:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 , 17 ,1),qbs_new_txt_len("#Quick Navigation",17)))|(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 , 17 ,1),qbs_new_txt_len("#Quick Navigation",17)))))||new_error){ +if(qbevent){evnt(26307,5065,"ide_methods.bas");if(r)goto S_41036;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5066,"ide_methods.bas");}while(r); do{ *__BYTE_ENABLEQUICKNAV=~(*__BYTE_ENABLEQUICKNAV); -if(!qbevent)break;evnt(25066,4695,"ide_methods.bas");}while(r); -S_38758:; +if(!qbevent)break;evnt(26307,5067,"ide_methods.bas");}while(r); +S_41039:; if ((*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(25066,4696,"ide_methods.bas");if(r)goto S_38758;} +if(qbevent){evnt(26307,5068,"ide_methods.bas");if(r)goto S_41039;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4697,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5069,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Enable #Quick Navigation (Back Arrow)",37))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Quick Navigation",17))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4698,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5070,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5072,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Enable #Quick Navigation (Back Arrow)",37)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Quick Navigation",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4701,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5073,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4703,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5075,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4703,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4703,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4703,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5075,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4704,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5076,"ide_methods.bas");}while(r); } -S_38771:; +S_41050:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Code Layout...",15))))||new_error){ -if(qbevent){evnt(25066,4707,"ide_methods.bas");if(r)goto S_38771;} +if(qbevent){evnt(26307,5079,"ide_methods.bas");if(r)goto S_41050;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4708,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5080,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDELAYOUTBOX(); -if(!qbevent)break;evnt(25066,4709,"ide_methods.bas");}while(r); -S_38774:; +if(!qbevent)break;evnt(26307,5081,"ide_methods.bas");}while(r); +S_41053:; if ((*_FUNC_IDE2_LONG_RETVAL)||new_error){ -if(qbevent){evnt(25066,4710,"ide_methods.bas");if(r)goto S_38774;} +if(qbevent){evnt(26307,5082,"ide_methods.bas");if(r)goto S_41053;} do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,4710,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5082,"ide_methods.bas");}while(r); do{ *__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(25066,4710,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5082,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,5082,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4711,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5083,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4711,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4711,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4711,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5083,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4712,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5084,"ide_methods.bas");}while(r); } -S_38784:; +S_41062:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add/Remove #Bookmark Alt+Left",30))))||new_error){ -if(qbevent){evnt(25066,4715,"ide_methods.bas");if(r)goto S_38784;} +if(qbevent){evnt(26307,5087,"ide_methods.bas");if(r)goto S_41062;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4716,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5088,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BMKREMOVED= 0 ; -if(!qbevent)break;evnt(25066,4717,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5089,"ide_methods.bas");}while(r); LABEL_BMKREMOVEB:; -if(qbevent){evnt(25066,4718,"ide_methods.bas");r=0;} -S_38787:; -fornext_value4372= 1 ; -fornext_finalvalue4372=*__LONG_IDEBMKN; -fornext_step4372= 1 ; -if (fornext_step4372<0) fornext_step_negative4372=1; else fornext_step_negative4372=0; -if (new_error) goto fornext_error4372; -goto fornext_entrylabel4372; +if(qbevent){evnt(26307,5090,"ide_methods.bas");r=0;} +S_41065:; +fornext_value4453= 1 ; +fornext_finalvalue4453=*__LONG_IDEBMKN; +fornext_step4453= 1 ; +if (fornext_step4453<0) fornext_step_negative4453=1; else fornext_step_negative4453=0; +if (new_error) goto fornext_error4453; +goto fornext_entrylabel4453; while(1){ -fornext_value4372=fornext_step4372+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4372: -*_FUNC_IDE2_LONG_B=fornext_value4372; -if (fornext_step_negative4372){ -if (fornext_value4372fornext_finalvalue4372) break; +if (fornext_value4453>fornext_finalvalue4453) break; } -fornext_error4372:; -if(qbevent){evnt(25066,4719,"ide_methods.bas");if(r)goto S_38787;} -S_38788:; +fornext_error4453:; +if(qbevent){evnt(26307,5091,"ide_methods.bas");if(r)goto S_41065;} +S_41066:; if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,4720,"ide_methods.bas");if(r)goto S_38788;} -S_38789:; -fornext_value4374=*_FUNC_IDE2_LONG_B; -fornext_finalvalue4374=*__LONG_IDEBMKN- 1 ; -fornext_step4374= 1 ; -if (fornext_step4374<0) fornext_step_negative4374=1; else fornext_step_negative4374=0; -if (new_error) goto fornext_error4374; -goto fornext_entrylabel4374; +if(qbevent){evnt(26307,5092,"ide_methods.bas");if(r)goto S_41066;} +S_41067:; +fornext_value4455=*_FUNC_IDE2_LONG_B; +fornext_finalvalue4455=*__LONG_IDEBMKN- 1 ; +fornext_step4455= 1 ; +if (fornext_step4455<0) fornext_step_negative4455=1; else fornext_step_negative4455=0; +if (new_error) goto fornext_error4455; +goto fornext_entrylabel4455; while(1){ -fornext_value4374=fornext_step4374+(*_FUNC_IDE2_LONG_B2); -fornext_entrylabel4374: -*_FUNC_IDE2_LONG_B2=fornext_value4374; -if (fornext_step_negative4374){ -if (fornext_value4374fornext_finalvalue4374) break; +if (fornext_value4455>fornext_finalvalue4455) break; } -fornext_error4374:; -if(qbevent){evnt(25066,4721,"ide_methods.bas");if(r)goto S_38789;} +fornext_error4455:; +if(qbevent){evnt(26307,5093,"ide_methods.bas");if(r)goto S_41067;} do{ memcpy(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0,((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2+ 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0, 16); -if(!qbevent)break;evnt(25066,4722,"ide_methods.bas");}while(r); -fornext_continue_4373:; +if(!qbevent)break;evnt(26307,5094,"ide_methods.bas");}while(r); +fornext_continue_4454:; } -fornext_exit_4373:; +fornext_exit_4454:; do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; -if(!qbevent)break;evnt(25066,4724,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5096,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_BMKREMOVED= 1 ; -if(!qbevent)break;evnt(25066,4725,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5097,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,4726,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5098,"ide_methods.bas");}while(r); do{ goto LABEL_BMKREMOVEB; -if(!qbevent)break;evnt(25066,4727,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5099,"ide_methods.bas");}while(r); } -fornext_continue_4371:; +fornext_continue_4452:; } -fornext_exit_4371:; -S_38798:; +fornext_exit_4452:; +S_41076:; if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ -if(qbevent){evnt(25066,4730,"ide_methods.bas");if(r)goto S_38798;} +if(qbevent){evnt(26307,5102,"ide_methods.bas");if(r)goto S_41076;} do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; -if(!qbevent)break;evnt(25066,4731,"ide_methods.bas");}while(r); -S_38800:; +if(!qbevent)break;evnt(26307,5103,"ide_methods.bas");}while(r); +S_41078:; if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ -if(qbevent){evnt(25066,4732,"ide_methods.bas");if(r)goto S_38800;} +if(qbevent){evnt(26307,5104,"ide_methods.bas");if(r)goto S_41078;} do{ *_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; -if(!qbevent)break;evnt(25066,4732,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5104,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -138102,3270 +142862,4039 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(25066,4732,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5104,"ide_methods.bas");}while(r); } do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4733,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5105,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,4734,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5106,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(25066,4735,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5107,"ide_methods.bas");}while(r); } do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4737,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4737,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4737,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5109,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4738,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5110,"ide_methods.bas");}while(r); } -S_38813:; +S_41089:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Next Bookmark Alt+Down",24)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Previous Bookmark Alt+Up",26)))))||new_error){ -if(qbevent){evnt(25066,4741,"ide_methods.bas");if(r)goto S_38813;} +if(qbevent){evnt(26307,5113,"ide_methods.bas");if(r)goto S_41089;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4742,"ide_methods.bas");}while(r); -S_38815:; +if(!qbevent)break;evnt(26307,5114,"ide_methods.bas");}while(r); +S_41091:; if ((-(*__LONG_IDEBMKN== 0 ))||new_error){ -if(qbevent){evnt(25066,4743,"ide_methods.bas");if(r)goto S_38815;} +if(qbevent){evnt(26307,5115,"ide_methods.bas");if(r)goto S_41091;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54)); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4744,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5116,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4745,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5117,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4745,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4745,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4745,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5117,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4746,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5118,"ide_methods.bas");}while(r); } -S_38823:; +S_41097:; if ((-(*__LONG_IDEBMKN== 1 ))||new_error){ -if(qbevent){evnt(25066,4748,"ide_methods.bas");if(r)goto S_38823;} -S_38824:; +if(qbevent){evnt(26307,5120,"ide_methods.bas");if(r)goto S_41097;} +S_41098:; if ((-(*__LONG_IDECY==*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check(( 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))))||new_error){ -if(qbevent){evnt(25066,4749,"ide_methods.bas");if(r)goto S_38824;} +if(qbevent){evnt(26307,5121,"ide_methods.bas");if(r)goto S_41098;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24)); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4750,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5122,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4751,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5123,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4751,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4751,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4751,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5123,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4752,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5124,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_L=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4755,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5127,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Z= 0 ; -if(!qbevent)break;evnt(25066,4756,"ide_methods.bas");}while(r); -S_38835:; +if(!qbevent)break;evnt(26307,5128,"ide_methods.bas");}while(r); +S_41107:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Next Bookmark Alt+Down",24))))||new_error){ -if(qbevent){evnt(25066,4756,"ide_methods.bas");if(r)goto S_38835;} +if(qbevent){evnt(26307,5128,"ide_methods.bas");if(r)goto S_41107;} do{ *_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(25066,4756,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5128,"ide_methods.bas");}while(r); } -S_38838:; +S_41110:; do{ -if(qbevent){evnt(25066,4757,"ide_methods.bas");if(r)goto S_38838;} -S_38839:; +if(qbevent){evnt(26307,5129,"ide_methods.bas");if(r)goto S_41110;} +S_41111:; if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ -if(qbevent){evnt(25066,4758,"ide_methods.bas");if(r)goto S_38839;} +if(qbevent){evnt(26307,5130,"ide_methods.bas");if(r)goto S_41111;} do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; -if(!qbevent)break;evnt(25066,4758,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5130,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(25066,4758,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5130,"ide_methods.bas");}while(r); } -S_38844:; +S_41116:; if ((-(*_FUNC_IDE2_LONG_L< 1 ))||new_error){ -if(qbevent){evnt(25066,4759,"ide_methods.bas");if(r)goto S_38844;} +if(qbevent){evnt(26307,5131,"ide_methods.bas");if(r)goto S_41116;} do{ *_FUNC_IDE2_LONG_L=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,4759,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5131,"ide_methods.bas");}while(r); } -S_38847:; +S_41119:; if ((-(*_FUNC_IDE2_LONG_L>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,4760,"ide_methods.bas");if(r)goto S_38847;} +if(qbevent){evnt(26307,5132,"ide_methods.bas");if(r)goto S_41119;} do{ *_FUNC_IDE2_LONG_L= 1 ; -if(!qbevent)break;evnt(25066,4760,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5132,"ide_methods.bas");}while(r); } -S_38850:; -fornext_value4377= 1 ; -fornext_finalvalue4377=*__LONG_IDEBMKN; -fornext_step4377= 1 ; -if (fornext_step4377<0) fornext_step_negative4377=1; else fornext_step_negative4377=0; -if (new_error) goto fornext_error4377; -goto fornext_entrylabel4377; +S_41122:; +fornext_value4458= 1 ; +fornext_finalvalue4458=*__LONG_IDEBMKN; +fornext_step4458= 1 ; +if (fornext_step4458<0) fornext_step_negative4458=1; else fornext_step_negative4458=0; +if (new_error) goto fornext_error4458; +goto fornext_entrylabel4458; while(1){ -fornext_value4377=fornext_step4377+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4377: -*_FUNC_IDE2_LONG_B=fornext_value4377; -if (fornext_step_negative4377){ -if (fornext_value4377fornext_finalvalue4377) break; +if (fornext_value4458>fornext_finalvalue4458) break; } -fornext_error4377:; -if(qbevent){evnt(25066,4761,"ide_methods.bas");if(r)goto S_38850;} -S_38851:; +fornext_error4458:; +if(qbevent){evnt(26307,5133,"ide_methods.bas");if(r)goto S_41122;} +S_41123:; if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*_FUNC_IDE2_LONG_L))||new_error){ -if(qbevent){evnt(25066,4762,"ide_methods.bas");if(r)goto S_38851;} +if(qbevent){evnt(26307,5134,"ide_methods.bas");if(r)goto S_41123;} do{ -goto dl_exit_4375; -if(!qbevent)break;evnt(25066,4762,"ide_methods.bas");}while(r); +goto dl_exit_4456; +if(!qbevent)break;evnt(26307,5134,"ide_methods.bas");}while(r); } -fornext_continue_4376:; +fornext_continue_4457:; } -fornext_exit_4376:; -dl_continue_4375:; +fornext_exit_4457:; +dl_continue_4456:; }while(1); -dl_exit_4375:; +dl_exit_4456:; do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,4765,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,5137,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(25066,4766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5138,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)); -if(!qbevent)break;evnt(25066,4767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5139,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,4768,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5140,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4769,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4769,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5141,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4770,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5142,"ide_methods.bas");}while(r); } -S_38865:; +S_41135:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Go To Line... Ctrl+G",22))))||new_error){ -if(qbevent){evnt(25066,4778,"ide_methods.bas");if(r)goto S_38865;} +if(qbevent){evnt(26307,5150,"ide_methods.bas");if(r)goto S_41135;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5151,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEGOTOBOX(); -if(!qbevent)break;evnt(25066,4780,"ide_methods.bas");}while(r); +SUB_IDEGOTOBOX(); +if(!qbevent)break;evnt(26307,5152,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4782,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5153,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4782,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4782,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4782,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5153,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4783,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5154,"ide_methods.bas");}while(r); } -S_38874:; +S_41142:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Backup/Undo...",15))))||new_error){ -if(qbevent){evnt(25066,4786,"ide_methods.bas");if(r)goto S_38874;} +if(qbevent){evnt(26307,5157,"ide_methods.bas");if(r)goto S_41142;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4787,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5158,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEBACKUPBOX(); -if(!qbevent)break;evnt(25066,4788,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5159,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4790,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5161,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4790,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4790,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4790,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5161,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4791,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5162,"ide_methods.bas");}while(r); } -S_38883:; +S_41149:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#About...",9))))||new_error){ -if(qbevent){evnt(25066,4794,"ide_methods.bas");if(r)goto S_38883;} +if(qbevent){evnt(26307,5173,"ide_methods.bas");if(r)goto S_41149;} +LABEL_HELPABOUT:; +if(qbevent){evnt(26307,5174,"ide_methods.bas");r=0;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5175,"ide_methods.bas");}while(r); do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("About",5),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 Version ",13),__STRING_VERSION),func_chr( 10 )),qbs_new_txt_len("Revision ",9)),__STRING_BUILDNUM),func_chr( 10 )),__STRING_AUTOBUILDMSG)); +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 Version ",13),__STRING_VERSION),func_chr( 10 )),__STRING_DEVCHANNEL)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4796,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5176,"ide_methods.bas");}while(r); +S_41152:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ +if(qbevent){evnt(26307,5177,"ide_methods.bas");if(r)goto S_41152;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M,func_chr( 10 )),__STRING_AUTOBUILDMSG)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5177,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("About",5),_FUNC_IDE2_STRING_M,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5178,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5179,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4797,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4797,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5179,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4798,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5180,"ide_methods.bas");}while(r); } -S_38892:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("ASCII C#hart",12))))||new_error){ -if(qbevent){evnt(25066,4802,"ide_methods.bas");if(r)goto S_38892;} +S_41160:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#ASCII Chart...",15))))||new_error){ +if(qbevent){evnt(26307,5184,"ide_methods.bas");if(r)goto S_41160;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4803,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5185,"ide_methods.bas");}while(r); do{ -SUB_IDEASCIIBOX(); -if(!qbevent)break;evnt(25066,4804,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_RELAUNCH= 0 ; +if(!qbevent)break;evnt(26307,5186,"ide_methods.bas");}while(r); +S_41163:; +do{ +if(qbevent){evnt(26307,5187,"ide_methods.bas");if(r)goto S_41163;} +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEASCIIBOX(_FUNC_IDE2_LONG_RELAUNCH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5188,"ide_methods.bas");}while(r); +S_41165:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26307,5189,"ide_methods.bas");if(r)goto S_41165;} +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5189,"ide_methods.bas");}while(r); +} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4805,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5190,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4805,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5190,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4805,"ide_methods.bas");}while(r); +return_point[next_return_point++]=44; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_44:; +if(!qbevent)break;evnt(26307,5191,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4805,"ide_methods.bas");}while(r); +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,5192,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5193,"ide_methods.bas");}while(r); +S_41173:; +dl_continue_4460:; +}while((*_FUNC_IDE2_LONG_RELAUNCH)&&(!new_error)); +dl_exit_4460:; +if(qbevent){evnt(26307,5194,"ide_methods.bas");if(r)goto S_41173;} do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,4806,"ide_methods.bas");}while(r); -do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,4807,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5195,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4808,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5196,"ide_methods.bas");}while(r); } -S_38903:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Help On '",10))))||new_error){ -if(qbevent){evnt(25066,4811,"ide_methods.bas");if(r)goto S_38903;} +S_41177:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Insert Quick #Keycode Ctrl+K",29))))||new_error){ +if(qbevent){evnt(26307,5199,"ide_methods.bas");if(r)goto S_41177;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5200,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5200,"ide_methods.bas");}while(r); +LABEL_IDEQUICKKEYCODE:; +if(qbevent){evnt(26307,5201,"ide_methods.bas");r=0;} do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4812,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4462= 1 )); +if(!qbevent)break;evnt(26307,5202,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4812,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass4463= 0 )); +if(!qbevent)break;evnt(26307,5203,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,5204,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Press any key to insert its _KEYHIT/_KEYDOWN code...",52),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5205,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5206,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5208,"ide_methods.bas");}while(r); +S_41186:; +do{ +if(qbevent){evnt(26307,5210,"ide_methods.bas");if(r)goto S_41186;} +do{ +*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); +if(!qbevent)break;evnt(26307,5210,"ide_methods.bas");}while(r); +do{ +sub__limit( 30 ); +if(!qbevent)break;evnt(26307,5210,"ide_methods.bas");}while(r); +S_41189:; +dl_continue_4464:; +}while((!(-(*_FUNC_IDE2_LONG_TEMPK== 0 )))&&(!new_error)); +dl_exit_4464:; +if(qbevent){evnt(26307,5210,"ide_methods.bas");if(r)goto S_41189;} +S_41190:; +do{ +if(qbevent){evnt(26307,5211,"ide_methods.bas");if(r)goto S_41190;} +do{ +*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); +if(!qbevent)break;evnt(26307,5212,"ide_methods.bas");}while(r); +S_41192:; +if ((-(*_FUNC_IDE2_LONG_TEMPK> 0 ))||new_error){ +if(qbevent){evnt(26307,5213,"ide_methods.bas");if(r)goto S_41192;} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(*_FUNC_IDE2_LONG_TEMPK))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5213,"ide_methods.bas");}while(r); +} +S_41195:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,5215,"ide_methods.bas");if(r)goto S_41195;} +ww_continue_4466:; +} +ww_exit_4466:; +S_41197:; +if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ +if(qbevent){evnt(26307,5216,"ide_methods.bas");if(r)goto S_41197;} +do{ +goto LABEL_BYPASSCTRLK; +if(!qbevent)break;evnt(26307,5216,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 30 ); +if(!qbevent)break;evnt(26307,5218,"ide_methods.bas");}while(r); +S_41201:; +dl_continue_4465:; +}while((!(-(*_FUNC_IDE2_LONG_TEMPK> 0 )))&&(!new_error)); +dl_exit_4465:; +if(qbevent){evnt(26307,5219,"ide_methods.bas");if(r)goto S_41201;} +S_41202:; +if (((-(*_FUNC_IDE2_LONG_TEMPK== 100303 ))|(-(*_FUNC_IDE2_LONG_TEMPK== 100304 )))||new_error){ +if(qbevent){evnt(26307,5220,"ide_methods.bas");if(r)goto S_41202;} +S_41203:; +do{ +if(qbevent){evnt(26307,5221,"ide_methods.bas");if(r)goto S_41203;} +do{ +*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); +if(!qbevent)break;evnt(26307,5222,"ide_methods.bas");}while(r); +S_41205:; +if ((-(*_FUNC_IDE2_LONG_TEMPK!= 0 ))||new_error){ +if(qbevent){evnt(26307,5223,"ide_methods.bas");if(r)goto S_41205;} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(func_abs((int32)(*_FUNC_IDE2_LONG_TEMPK))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5223,"ide_methods.bas");}while(r); +} +S_41208:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,5225,"ide_methods.bas");if(r)goto S_41208;} +ww_continue_4468:; +} +ww_exit_4468:; +S_41210:; +if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ +if(qbevent){evnt(26307,5226,"ide_methods.bas");if(r)goto S_41210;} +do{ +goto LABEL_BYPASSCTRLK; +if(!qbevent)break;evnt(26307,5226,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 30 ); +if(!qbevent)break;evnt(26307,5228,"ide_methods.bas");}while(r); +S_41214:; +dl_continue_4467:; +}while((!(-(*_FUNC_IDE2_LONG_TEMPK!= 0 )))&&(!new_error)); +dl_exit_4467:; +if(qbevent){evnt(26307,5229,"ide_methods.bas");if(r)goto S_41214;} +} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_ltrim(_FUNC_IDE2_STRING_TEMPK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5231,"ide_methods.bas");}while(r); +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_TEMPK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5234,"ide_methods.bas");}while(r); +LABEL_BYPASSCTRLK:; +if(qbevent){evnt(26307,5236,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4469= 0 )); +if(!qbevent)break;evnt(26307,5237,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5238,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5238,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26307,5239,"ide_methods.bas");}while(r); +do{ +*__LONG_KCTRL= 0 ; +if(!qbevent)break;evnt(26307,5240,"ide_methods.bas");}while(r); +do{ +*__LONG_KCONTROL= 0 ; +if(!qbevent)break;evnt(26307,5240,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=45; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_45:; +if(!qbevent)break;evnt(26307,5241,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5242,"ide_methods.bas");}while(r); +} +S_41227:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Help On '",10))))||new_error){ +if(qbevent){evnt(26307,5245,"ide_methods.bas");if(r)goto S_41227;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5246,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5246,"ide_methods.bas");}while(r); do{ goto LABEL_CONTEXTUALHELP; -if(!qbevent)break;evnt(25066,4813,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5247,"ide_methods.bas");}while(r); } -S_38910:; +S_41232:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Go To SUB",10)))|(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("#Go To FUNCTION",15)))))||new_error){ -if(qbevent){evnt(25066,4816,"ide_methods.bas");if(r)goto S_38910;} +if(qbevent){evnt(26307,5250,"ide_methods.bas");if(r)goto S_41232;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4817,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5251,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4817,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5251,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4817,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4817,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,4818,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,5252,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check(( 1 )-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4819,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5253,"ide_methods.bas");}while(r); do{ *__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4820,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5254,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,4821,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5255,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,4822,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5256,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,4823,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5257,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4824,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5258,"ide_methods.bas");}while(r); } -S_38923:; +S_41243:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 12 ),qbs_new_txt_len("Go To #Label",12))))||new_error){ -if(qbevent){evnt(25066,4827,"ide_methods.bas");if(r)goto S_38923;} +if(qbevent){evnt(26307,5261,"ide_methods.bas");if(r)goto S_41243;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5262,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5262,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4828,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4828,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,4829,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,5263,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1))-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 1 , 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4830,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5264,"ide_methods.bas");}while(r); do{ *__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,4831,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5265,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,4832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5266,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,4833,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5267,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,4834,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5268,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4835,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5269,"ide_methods.bas");}while(r); } -S_38936:; +S_41254:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Contents Page",14))))||new_error){ -if(qbevent){evnt(25066,4838,"ide_methods.bas");if(r)goto S_38936;} +if(qbevent){evnt(26307,5272,"ide_methods.bas");if(r)goto S_41254;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5273,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4839,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4839,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5273,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("QB64 Help Menu",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4840,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5274,"ide_methods.bas");}while(r); do{ goto LABEL_OPENHELPLNK; -if(!qbevent)break;evnt(25066,4841,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5275,"ide_methods.bas");}while(r); } -S_38944:; +S_41260:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Keyword #Index",14))))||new_error){ -if(qbevent){evnt(25066,4843,"ide_methods.bas");if(r)goto S_38944;} +if(qbevent){evnt(26307,5277,"ide_methods.bas");if(r)goto S_41260;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5278,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4844,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4844,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5278,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Keyword Reference - Alphabetical",32)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4845,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5279,"ide_methods.bas");}while(r); do{ goto LABEL_OPENHELPLNK; -if(!qbevent)break;evnt(25066,4846,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5280,"ide_methods.bas");}while(r); } -S_38952:; +S_41266:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Keywords by Usage",18))))||new_error){ -if(qbevent){evnt(25066,4848,"ide_methods.bas");if(r)goto S_38952;} +if(qbevent){evnt(26307,5282,"ide_methods.bas");if(r)goto S_41266;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4849,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5283,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4849,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4849,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4849,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5283,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Keyword Reference - By usage",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4850,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5284,"ide_methods.bas");}while(r); do{ goto LABEL_OPENHELPLNK; -if(!qbevent)break;evnt(25066,4851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5285,"ide_methods.bas");}while(r); } -S_38960:; +S_41272:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#View Shift+F1",15))))||new_error){ -if(qbevent){evnt(25066,4854,"ide_methods.bas");if(r)goto S_38960;} -S_38961:; +if(qbevent){evnt(26307,5288,"ide_methods.bas");if(r)goto S_41272;} +S_41273:; if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(25066,4856,"ide_methods.bas");if(r)goto S_38961;} -S_38962:; +if(qbevent){evnt(26307,5290,"ide_methods.bas");if(r)goto S_41273;} +S_41274:; if ((*__LONG_IDESUBWINDOW)||new_error){ -if(qbevent){evnt(25066,4857,"ide_methods.bas");if(r)goto S_38962;} +if(qbevent){evnt(26307,5291,"ide_methods.bas");if(r)goto S_41274;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4857,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5291,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4857,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4857,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4857,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5291,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4857,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5291,"ide_methods.bas");}while(r); } do{ *__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(25066,4858,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5292,"ide_methods.bas");}while(r); do{ *__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,4858,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5292,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(25066,4859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5293,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(25066,4859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5293,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(25066,4859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5293,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(25066,4859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5293,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(25066,4859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5293,"ide_methods.bas");}while(r); do{ *__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(25066,4859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5293,"ide_methods.bas");}while(r); do{ *__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(25066,4860,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5294,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(25066,4861,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5295,"ide_methods.bas");}while(r); do{ *__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(25066,4862,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5296,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(25066,4863,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5297,"ide_methods.bas");}while(r); do{ -goto LABEL_REDRAWEVERYTHING2; -if(!qbevent)break;evnt(25066,4863,"ide_methods.bas");}while(r); +return_point[next_return_point++]=46; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_46:; +if(!qbevent)break;evnt(26307,5297,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4866,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5300,"ide_methods.bas");}while(r); } -S_38985:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Update Current Page",20))))||new_error){ -if(qbevent){evnt(25066,4869,"ide_methods.bas");if(r)goto S_38985;} +S_41295:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("View Current Page On #Wiki",26))))||new_error){ +if(qbevent){evnt(26307,5303,"ide_methods.bas");if(r)goto S_41295;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4870,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5304,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4870,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4870,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4870,"ide_methods.bas");}while(r); -S_38990:; +if(!qbevent)break;evnt(26307,5304,"ide_methods.bas");}while(r); +S_41298:; if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(25066,4871,"ide_methods.bas");if(r)goto S_38990;} +if(qbevent){evnt(26307,5305,"ide_methods.bas");if(r)goto S_41298;} +do{ +goto LABEL_LAUNCHWIKI; +if(!qbevent)break;evnt(26307,5305,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5306,"ide_methods.bas");}while(r); +} +S_41303:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Update Current Page",20))))||new_error){ +if(qbevent){evnt(26307,5309,"ide_methods.bas");if(r)goto S_41303;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5310,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5310,"ide_methods.bas");}while(r); +S_41306:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26307,5311,"ide_methods.bas");if(r)goto S_41306;} do{ *__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(25066,4872,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5312,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5313,"ide_methods.bas");}while(r); do{ *__LONG_HELP_IGNORECACHE= 0 ; -if(!qbevent)break;evnt(25066,4874,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5314,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5315,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4877,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5317,"ide_methods.bas");}while(r); } -S_38998:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Math",5))))||new_error){ -if(qbevent){evnt(25066,4881,"ide_methods.bas");if(r)goto S_38998;} +S_41314:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Math Evaluator...",18))))||new_error){ +if(qbevent){evnt(26307,5321,"ide_methods.bas");if(r)goto S_41314;} do{ -SUB_MATHBOX(); -if(!qbevent)break;evnt(25066,4882,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5322,"ide_methods.bas");}while(r); +S_41316:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,5324,"ide_methods.bas");if(r)goto S_41316;} +S_41317:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,5325,"ide_methods.bas");if(r)goto S_41317;} do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4883,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5326,"ide_methods.bas");}while(r); do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4883,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5327,"ide_methods.bas");}while(r); do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4884,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,5328,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,5328,"ide_methods.bas");}while(r); +S_41322:; +if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ +if(qbevent){evnt(26307,5329,"ide_methods.bas");if(r)goto S_41322;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26307,5329,"ide_methods.bas");}while(r); } -S_39004:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Update All #Pages",17))))||new_error){ -if(qbevent){evnt(25066,4887,"ide_methods.bas");if(r)goto S_39004;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4888,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("Update Help",11),qbs_new_txt_len("Redownload all cached help content? (~10 min)",45))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4889,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4890,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4890,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4890,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4890,"ide_methods.bas");}while(r); -S_39011:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,4891,"ide_methods.bas");if(r)goto S_39011;} -S_39012:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(25066,4893,"ide_methods.bas");if(r)goto S_39012;} -do{ -*_FUNC_IDE2_LONG_OLD_IDESUBWINDOW=*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,4894,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLD_IDEWY=*__LONG_IDEWY; -if(!qbevent)break;evnt(25066,4894,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(25066,4895,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,4895,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(25066,4896,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(25066,4896,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(25066,4896,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(25066,4896,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(25066,4896,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(25066,4896,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESUBWINDOW=*_FUNC_IDE2_LONG_OLD_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,4897,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*_FUNC_IDE2_LONG_OLD_IDEWY; -if(!qbevent)break;evnt(25066,4897,"ide_methods.bas");}while(r); -} -do{ -qbg_screen(NULL,NULL, 4 , 4 ,NULL,12); -if(!qbevent)break;evnt(25066,4900,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,4901,"ide_methods.bas");}while(r); -do{ -sub_cls(NULL,NULL,0); -if(!qbevent)break;evnt(25066,4902,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Generating list of cached content...",36)); -if (new_error) goto skip4378; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4378: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4904,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(func_chr( 0 ),FUNC_IDEZFILELIST(qbs_new_txt_len("internal/help",13),&(pass4379= 1 ))),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4907,"ide_methods.bas");}while(r); -S_39031:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_F->len== 2 )))||new_error){ -if(qbevent){evnt(25066,4908,"ide_methods.bas");if(r)goto S_39031;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4908,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("Keyword_Reference_-_By_usage.txt",32)),_FUNC_IDE2_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4911,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("QB64_Help_Menu.txt",18)),_FUNC_IDE2_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4912,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("QB64_FAQ.txt",12)),_FUNC_IDE2_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4913,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Adding core help pages added to list...",39)); -if (new_error) goto skip4381; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4381: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4914,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Regenerating keyword list...",28)); -if (new_error) goto skip4382; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4382: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4917,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_RECACHING= 1 ; -if(!qbevent)break;evnt(25066,4918,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(25066,4918,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4919,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_RECACHING= 0 ; -if(!qbevent)break;evnt(25066,4920,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 0 ; -if(!qbevent)break;evnt(25066,4920,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4921,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,4924,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4925,"ide_methods.bas");}while(r); -S_39047:; -while((!(func_eof(*_FUNC_IDE2_LONG_FH)))||new_error){ -if(qbevent){evnt(25066,4926,"ide_methods.bas");if(r)goto S_39047;} -do{ -tmp_fileno=*_FUNC_IDE2_LONG_FH; -if (new_error) goto skip4384; -sub_file_line_input_string(tmp_fileno,_FUNC_IDE2_STRING_L); -if (new_error) goto skip4384; -skip4384: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4927,"ide_methods.bas");}while(r); -S_39049:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_L->len))||new_error){ -if(qbevent){evnt(25066,4928,"ide_methods.bas");if(r)goto S_39049;} -do{ -*_FUNC_IDE2_LONG_C=func_instr(NULL,_FUNC_IDE2_STRING_L,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4929,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_PAGENAME2,qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len-*_FUNC_IDE2_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4929,"ide_methods.bas");}while(r); -S_39052:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(25066,4930,"ide_methods.bas");if(r)goto S_39052;} -do{ -tqbs=_FUNC_IDE2_STRING_PAGENAME2; if (!new_error){ -tmp_fileno=func_instr(NULL,_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0); if (!new_error){ -tmp_long= 95 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(25066,4931,"ide_methods.bas");}while(r); -dl_continue_4387:; -} -dl_exit_4387:; -S_39055:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len("&",1),0)))||new_error){ -if(qbevent){evnt(25066,4933,"ide_methods.bas");if(r)goto S_39055;} -do{ -*_FUNC_IDE2_LONG_I=func_instr(NULL,_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4934,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_PAGENAME2,*_FUNC_IDE2_LONG_I- 1 ),qbs_new_txt_len("%26",3)),qbs_right(_FUNC_IDE2_STRING_PAGENAME2,_FUNC_IDE2_STRING_PAGENAME2->len-*_FUNC_IDE2_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4935,"ide_methods.bas");}while(r); -dl_continue_4388:; -} -dl_exit_4388:; -S_39059:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len("/",1),0)))||new_error){ -if(qbevent){evnt(25066,4937,"ide_methods.bas");if(r)goto S_39059;} -do{ -*_FUNC_IDE2_LONG_I=func_instr(NULL,_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len("/",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4938,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_PAGENAME2,*_FUNC_IDE2_LONG_I- 1 ),qbs_new_txt_len("%2F",3)),qbs_right(_FUNC_IDE2_STRING_PAGENAME2,_FUNC_IDE2_STRING_PAGENAME2->len-*_FUNC_IDE2_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4939,"ide_methods.bas");}while(r); -dl_continue_4390:; -} -dl_exit_4390:; -do{ -qbs_set(_FUNC_IDE2_STRING_PAGENAME2,qbs_add(_FUNC_IDE2_STRING_PAGENAME2,qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4941,"ide_methods.bas");}while(r); -S_39064:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDE2_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,4942,"ide_methods.bas");if(r)goto S_39064;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(_FUNC_IDE2_STRING_F,_FUNC_IDE2_STRING_PAGENAME2),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4943,"ide_methods.bas");}while(r); -} -} -dl_continue_4383:; -} -dl_exit_4383:; -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,4947,"ide_methods.bas");}while(r); -S_39070:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_F,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(25066,4950,"ide_methods.bas");if(r)goto S_39070;} -do{ -*_FUNC_IDE2_LONG_C= 0 ; -if(!qbevent)break;evnt(25066,4951,"ide_methods.bas");}while(r); -S_39072:; -fornext_value4393= 2 ; -fornext_finalvalue4393=_FUNC_IDE2_STRING_F->len; -fornext_step4393= 1 ; -if (fornext_step4393<0) fornext_step_negative4393=1; else fornext_step_negative4393=0; -if (new_error) goto fornext_error4393; -goto fornext_entrylabel4393; +S_41325:; +fornext_value4471=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4471=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4471= 1 ; +if (fornext_step4471<0) fornext_step_negative4471=1; else fornext_step_negative4471=0; +if (new_error) goto fornext_error4471; +goto fornext_entrylabel4471; while(1){ -fornext_value4393=fornext_step4393+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4393: -*_FUNC_IDE2_LONG_X=fornext_value4393; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4393){ -if (fornext_value4393fornext_finalvalue4393) break; +if (fornext_value4471>fornext_finalvalue4471) break; } -fornext_error4393:; -if(qbevent){evnt(25066,4952,"ide_methods.bas");if(r)goto S_39072;} -S_39073:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_F,*_FUNC_IDE2_LONG_X)== 0 )))||new_error){ -if(qbevent){evnt(25066,4953,"ide_methods.bas");if(r)goto S_39073;} +fornext_error4471:; +if(qbevent){evnt(26307,5330,"ide_methods.bas");if(r)goto S_41325;} +S_41326:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,5331,"ide_methods.bas");if(r)goto S_41326;} do{ -*_FUNC_IDE2_LONG_C=*_FUNC_IDE2_LONG_C+ 1 ; -if(!qbevent)break;evnt(25066,4953,"ide_methods.bas");}while(r); -} -fornext_continue_4392:; -} -fornext_exit_4392:; -do{ -*_FUNC_IDE2_LONG_C=*_FUNC_IDE2_LONG_C- 1 ; -if(!qbevent)break;evnt(25066,4955,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Updating",8)); -if (new_error) goto skip4395; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*_FUNC_IDE2_LONG_C)),qbs_new_txt(" "))); -if (new_error) goto skip4395; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("help content files: (Press ESC to cancel)",41)); -if (new_error) goto skip4395; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4395: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4956,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5331,"ide_methods.bas");}while(r); +}else{ do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_F,_FUNC_IDE2_STRING_F->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4958,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_Z,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4959,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_N= 0 ; -if(!qbevent)break;evnt(25066,4960,"ide_methods.bas");}while(r); -S_39082:; -while((!(qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_F->len== 0 ))))||new_error){ -if(qbevent){evnt(25066,4961,"ide_methods.bas");if(r)goto S_39082;} -do{ -*_FUNC_IDE2_LONG_X2=func_instr(NULL,_FUNC_IDE2_STRING_F,_FUNC_IDE2_STRING_Z,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4962,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F2,qbs_left(_FUNC_IDE2_STRING_F,*_FUNC_IDE2_LONG_X2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4963,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_F,_FUNC_IDE2_STRING_F->len-*_FUNC_IDE2_LONG_X2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4963,"ide_methods.bas");}while(r); -S_39086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_F2, 4 ),qbs_new_txt_len(".txt",4))))||new_error){ -if(qbevent){evnt(25066,4965,"ide_methods.bas");if(r)goto S_39086;} -do{ -qbs_set(_FUNC_IDE2_STRING_F2,qbs_left(_FUNC_IDE2_STRING_F2,_FUNC_IDE2_STRING_F2->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4966,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_N=*_FUNC_IDE2_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,4967,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_STR2(_FUNC_IDE2_LONG_N)),qbs_new_txt_len("/",1)),FUNC_STR2(_FUNC_IDE2_LONG_C)),qbs_new_txt_len(") ",2)),_FUNC_IDE2_STRING_F2)); -if (new_error) goto skip4401; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4401: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4968,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(25066,4970,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_RECACHING= 1 ; -if(!qbevent)break;evnt(25066,4970,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_IGNORE,FUNC_WIKI(_FUNC_IDE2_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4970,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_RECACHING= 0 ; -if(!qbevent)break;evnt(25066,4970,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 0 ; -if(!qbevent)break;evnt(25066,4970,"ide_methods.bas");}while(r); +goto fornext_exit_4470; +if(!qbevent)break;evnt(26307,5331,"ide_methods.bas");}while(r); } -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,4973,"ide_methods.bas");}while(r); -S_39097:; -while((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(25066,4974,"ide_methods.bas");if(r)goto S_39097;} -S_39098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,4975,"ide_methods.bas");if(r)goto S_39098;} -do{ -goto LABEL_STOPRECACHE; -if(!qbevent)break;evnt(25066,4975,"ide_methods.bas");}while(r); +fornext_continue_4470:; } +fornext_exit_4470:; do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,4976,"ide_methods.bas");}while(r); -dl_continue_4402:; +qbs_set(_FUNC_IDE2_STRING_A2,qbs__trim(_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5333,"ide_methods.bas");}while(r); +S_41333:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26307,5334,"ide_methods.bas");if(r)goto S_41333;} +do{ +qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5334,"ide_methods.bas");}while(r); } -dl_exit_4402:; -dl_continue_4398:; } -dl_exit_4398:; } -LABEL_STOPRECACHE:; -if(qbevent){evnt(25066,4980,"ide_methods.bas");r=0;} +S_41338:; do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4981,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4981,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4981,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4981,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4983,"ide_methods.bas");}while(r); -} -S_39112:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 8 ),qbs_new_txt_len("New #SUB",8))))||new_error){ -if(qbevent){evnt(25066,4986,"ide_methods.bas");if(r)goto S_39112;} +if(qbevent){evnt(26307,5338,"ide_methods.bas");if(r)goto S_41338;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4987,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5339,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEINPUTBOX(qbs_new_txt_len("Math Evaluator",14),qbs_new_txt_len("#Enter expression",17),_FUNC_IDE2_STRING_MATHEVALEXPR,qbs_new_txt_len("",0),&(pass4475= 60 ),&(pass4476= 0 ),&(pass4477= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5340,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT= 0 ; +if(!qbevent)break;evnt(26307,5341,"ide_methods.bas");}while(r); +S_41342:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26307,5342,"ide_methods.bas");if(r)goto S_41342;} +do{ +qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5343,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_EV0,FUNC_EVALUATE_EXPRESSION(_FUNC_IDE2_STRING_RETVAL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5344,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_EV,_FUNC_IDE2_STRING_EV0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5345,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_MATHEVALERROR=-(func_instr(NULL,_FUNC_IDE2_STRING_EV,qbs_new_txt_len("ERROR",5),0)> 0 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5346,"ide_methods.bas");}while(r); +S_41347:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ +if(qbevent){evnt(26307,5347,"ide_methods.bas");if(r)goto S_41347;} +do{ +qbs_set(_FUNC_IDE2_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDE2_STRING_EV)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5347,"ide_methods.bas");}while(r); +} +S_41350:; +do{ +if(qbevent){evnt(26307,5348,"ide_methods.bas");if(r)goto S_41350;} +do{ +qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("#Insert;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5349,"ide_methods.bas");}while(r); +S_41352:; +if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ +if(qbevent){evnt(26307,5350,"ide_methods.bas");if(r)goto S_41352;} +do{ +qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#Decimal;",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5350,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#HEX$;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5350,"ide_methods.bas");}while(r); +} +S_41357:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALCOMMENT)||new_error){ +if(qbevent){evnt(26307,5351,"ide_methods.bas");if(r)goto S_41357;} +do{ +qbs_set(_FUNC_IDE2_STRING_MATHMSG,qbs_add(qbs_add(_FUNC_IDE2_STRING_EV,qbs_new_txt_len(" '",2)),_FUNC_IDE2_STRING_RETVAL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5352,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("#Uncomment;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5353,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_MATHMSG,_FUNC_IDE2_STRING_EV); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5355,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("Co#mment;",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5356,"ide_methods.bas");}while(r); +} +S_41364:; +if ((*_FUNC_IDE2_BYTE_MATHEVALERROR)||new_error){ +if(qbevent){evnt(26307,5358,"ide_methods.bas");if(r)goto S_41364;} +do{ +qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5358,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5358,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5358,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5359,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Math Evaluator - Result",23),_FUNC_IDE2_STRING_MATHMSG,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_B1,_FUNC_IDE2_STRING_B2),_FUNC_IDE2_STRING_B3),qbs_new_txt_len("#Redo;#Cancel",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5360,"ide_methods.bas");}while(r); +S_41371:; +if ((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))||new_error){ +if(qbevent){evnt(26307,5361,"ide_methods.bas");if(r)goto S_41371;} +S_41372:; +if(qbevent){evnt(26307,5362,"ide_methods.bas");if(r)goto S_41372;} +S_41373:; +if (((*_FUNC_IDE2_LONG_RESULT==( 1 ))||(*_FUNC_IDE2_LONG_RESULT==( 4 ))||(*_FUNC_IDE2_LONG_RESULT==( 5 )))||new_error){ +if(qbevent){evnt(26307,5363,"ide_methods.bas");if(r)goto S_41373;} +do{ +goto dl_exit_4479; +if(!qbevent)break;evnt(26307,5364,"ide_methods.bas");}while(r); +sc_ec_187_end:; +goto sc_4480_end; +} +S_41375:; +if (((*_FUNC_IDE2_LONG_RESULT==( 2 )))||new_error){ +if(qbevent){evnt(26307,5365,"ide_methods.bas");if(r)goto S_41375;} +do{ +*_FUNC_IDE2_BYTE_MATHEVALHEX=~(*_FUNC_IDE2_BYTE_MATHEVALHEX); +if(!qbevent)break;evnt(26307,5366,"ide_methods.bas");}while(r); +S_41377:; +if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ +if(qbevent){evnt(26307,5367,"ide_methods.bas");if(r)goto S_41377;} +do{ +qbs_set(_FUNC_IDE2_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDE2_STRING_EV)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5367,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_EV,_FUNC_IDE2_STRING_EV0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5367,"ide_methods.bas");}while(r); +} +sc_ec_188_end:; +goto sc_4480_end; +} +S_41382:; +if (((*_FUNC_IDE2_LONG_RESULT==( 3 )))||new_error){ +if(qbevent){evnt(26307,5368,"ide_methods.bas");if(r)goto S_41382;} +do{ +*_FUNC_IDE2_BYTE_MATHEVALCOMMENT=~(*_FUNC_IDE2_BYTE_MATHEVALCOMMENT); +if(!qbevent)break;evnt(26307,5369,"ide_methods.bas");}while(r); +sc_ec_189_end:; +goto sc_4480_end; +} +sc_4480_end:; +}else{ +do{ +goto dl_exit_4479; +if(!qbevent)break;evnt(26307,5372,"ide_methods.bas");}while(r); +} +dl_continue_4479:; +}while(1); +dl_exit_4479:; +S_41389:; +if ((*_FUNC_IDE2_BYTE_MATHEVALERROR&(-(*_FUNC_IDE2_LONG_RESULT== 2 )))||new_error){ +if(qbevent){evnt(26307,5375,"ide_methods.bas");if(r)goto S_41389;} +do{ +goto dl_exit_4474; +if(!qbevent)break;evnt(26307,5375,"ide_methods.bas");}while(r); +} +S_41392:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(((-(*_FUNC_IDE2_LONG_RESULT== 1 ))|(-(*_FUNC_IDE2_LONG_RESULT== 5 )))))||new_error){ +if(qbevent){evnt(26307,5376,"ide_methods.bas");if(r)goto S_41392;} +do{ +goto dl_exit_4474; +if(!qbevent)break;evnt(26307,5376,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_exit_4474; +if(!qbevent)break;evnt(26307,5378,"ide_methods.bas");}while(r); +} +dl_continue_4474:; +}while(1); +dl_exit_4474:; +S_41399:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(-(*_FUNC_IDE2_LONG_RESULT== 1 )))||new_error){ +if(qbevent){evnt(26307,5382,"ide_methods.bas");if(r)goto S_41399;} +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_MATHMSG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5383,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5385,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5385,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5386,"ide_methods.bas");}while(r); +} +S_41406:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Update All #Pages...",20))))||new_error){ +if(qbevent){evnt(26307,5389,"ide_methods.bas");if(r)goto S_41406;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5390,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("Update Help",11),qbs_new_txt_len("This can take up to 10 minutes.\\nRedownload all cached help content from the wiki?",82))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5391,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5392,"ide_methods.bas");}while(r); +S_41410:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26307,5393,"ide_methods.bas");if(r)goto S_41410;} +do{ +SUB_IDEUPDATEHELPBOX(); +if(!qbevent)break;evnt(26307,5393,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5394,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5394,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5395,"ide_methods.bas");}while(r); +} +S_41417:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 8 ),qbs_new_txt_len("New #SUB",8))))||new_error){ +if(qbevent){evnt(26307,5398,"ide_methods.bas");if(r)goto S_41417;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5399,"ide_methods.bas");}while(r); do{ SUB_IDENEWSF(qbs_new_txt_len("SUB",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5400,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,4989,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5401,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4990,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5402,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4990,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4990,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4990,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5402,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4991,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5403,"ide_methods.bas");}while(r); } -S_39122:; +S_41425:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 13 ),qbs_new_txt_len("New #FUNCTION",13))))||new_error){ -if(qbevent){evnt(25066,4993,"ide_methods.bas");if(r)goto S_39122;} +if(qbevent){evnt(26307,5405,"ide_methods.bas");if(r)goto S_41425;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,4994,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5406,"ide_methods.bas");}while(r); do{ SUB_IDENEWSF(qbs_new_txt_len("FUNCTION",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4995,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5407,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,4996,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5408,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,4997,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5409,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,4997,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,4997,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,4997,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5409,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,4998,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5410,"ide_methods.bas");}while(r); } -S_39132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#SUBs... F2",12))))||new_error){ -if(qbevent){evnt(25066,5001,"ide_methods.bas");if(r)goto S_39132;} +S_41433:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#SUBs... F2",12)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("SUBs... F2",11)))))||new_error){ +if(qbevent){evnt(26307,5413,"ide_methods.bas");if(r)goto S_41433;} +S_41434:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,5414,"ide_methods.bas");if(r)goto S_41434;} +do{ +*__LONG_IDEDEBUGMODE= 14 ; +if(!qbevent)break;evnt(26307,5415,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5416,"ide_methods.bas");}while(r); +}else{ do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5002,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5418,"ide_methods.bas");}while(r); LABEL_IDESUBSJMP:; -if(qbevent){evnt(25066,5003,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,5419,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESUBS()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5004,"ide_methods.bas");}while(r); -S_39135:; +if(!qbevent)break;evnt(26307,5420,"ide_methods.bas");}while(r); +S_41440:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5005,"ide_methods.bas");if(r)goto S_39135;} +if(qbevent){evnt(26307,5421,"ide_methods.bas");if(r)goto S_41440;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,5005,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5421,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5006,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5422,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5006,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5006,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5006,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5422,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5007,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5423,"ide_methods.bas");}while(r); } -S_39144:; +} +S_41448:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("#Line Numbers ",15),func_chr( 16 ))))))||new_error){ -if(qbevent){evnt(25066,5010,"ide_methods.bas");if(r)goto S_39144;} +if(qbevent){evnt(26307,5427,"ide_methods.bas");if(r)goto S_41448;} do{ *_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; -if(!qbevent)break;evnt(25066,5011,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5428,"ide_methods.bas");}while(r); do{ goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(25066,5012,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5429,"ide_methods.bas");}while(r); } -S_39148:; +S_41452:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Show Line Numbers",18))))||new_error){ -if(qbevent){evnt(25066,5015,"ide_methods.bas");if(r)goto S_39148;} +if(qbevent){evnt(26307,5432,"ide_methods.bas");if(r)goto S_41452;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5016,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5433,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERS= -1 ; -if(!qbevent)break;evnt(25066,5017,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5434,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5018,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5435,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hide Line Numbers",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5019,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5436,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5020,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5437,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5021,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5438,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5022,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5439,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5022,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5022,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5022,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5439,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5023,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5440,"ide_methods.bas");}while(r); } -S_39161:; +S_41463:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Hide Line Numbers",18))))||new_error){ -if(qbevent){evnt(25066,5026,"ide_methods.bas");if(r)goto S_39161;} +if(qbevent){evnt(26307,5443,"ide_methods.bas");if(r)goto S_41463;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5027,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5444,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERS= 0 ; -if(!qbevent)break;evnt(25066,5028,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5445,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5029,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5446,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Show Line Numbers",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5030,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5447,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5031,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5448,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5032,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5449,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5033,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5450,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5033,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5033,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5033,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5450,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5034,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5451,"ide_methods.bas");}while(r); } -S_39174:; +S_41474:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 17 ),qbs_new_txt_len("#Background Color",17))))||new_error){ -if(qbevent){evnt(25066,5037,"ide_methods.bas");if(r)goto S_39174;} -S_39175:; +if(qbevent){evnt(26307,5454,"ide_methods.bas");if(r)goto S_41474;} +S_41475:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(25066,5038,"ide_methods.bas");if(r)goto S_39175;} +if(qbevent){evnt(26307,5455,"ide_methods.bas");if(r)goto S_41475;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5456,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERSUSEBG=~(*__BYTE_SHOWLINENUMBERSUSEBG); -if(!qbevent)break;evnt(25066,5040,"ide_methods.bas");}while(r); -S_39178:; +if(!qbevent)break;evnt(26307,5457,"ide_methods.bas");}while(r); +S_41478:; if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ -if(qbevent){evnt(25066,5041,"ide_methods.bas");if(r)goto S_39178;} +if(qbevent){evnt(26307,5458,"ide_methods.bas");if(r)goto S_41478;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5042,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5459,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Background Color",17))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5043,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5460,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5045,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5462,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Background Color",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5046,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5463,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5048,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5465,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5048,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5048,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5048,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5465,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5049,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5466,"ide_methods.bas");}while(r); } } -S_39192:; +S_41490:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Sho#w Separator",15))))||new_error){ -if(qbevent){evnt(25066,5053,"ide_methods.bas");if(r)goto S_39192;} -S_39193:; +if(qbevent){evnt(26307,5470,"ide_methods.bas");if(r)goto S_41490;} +S_41491:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(25066,5054,"ide_methods.bas");if(r)goto S_39193;} +if(qbevent){evnt(26307,5471,"ide_methods.bas");if(r)goto S_41491;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5055,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5472,"ide_methods.bas");}while(r); do{ *__BYTE_SHOWLINENUMBERSSEPARATOR=~(*__BYTE_SHOWLINENUMBERSSEPARATOR); -if(!qbevent)break;evnt(25066,5056,"ide_methods.bas");}while(r); -S_39196:; +if(!qbevent)break;evnt(26307,5473,"ide_methods.bas");}while(r); +S_41494:; if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ -if(qbevent){evnt(25066,5057,"ide_methods.bas");if(r)goto S_39196;} +if(qbevent){evnt(26307,5474,"ide_methods.bas");if(r)goto S_41494;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5058,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5475,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Sho#w Separator",15))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5059,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5476,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5061,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5478,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Sho#w Separator",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5062,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5479,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5064,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5481,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5064,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5064,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5064,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5481,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5065,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5482,"ide_methods.bas");}while(r); } } -S_39210:; +S_41506:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29))))||new_error){ -if(qbevent){evnt(25066,5069,"ide_methods.bas");if(r)goto S_39210;} +if(qbevent){evnt(26307,5486,"ide_methods.bas");if(r)goto S_41506;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5070,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5487,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); -if(!qbevent)break;evnt(25066,5071,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5488,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5490,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5073,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5073,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5490,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5074,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5491,"ide_methods.bas");}while(r); } -S_39219:; +S_41513:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Find... Ctrl+F3",17))))||new_error){ -if(qbevent){evnt(25066,5077,"ide_methods.bas");if(r)goto S_39219;} +if(qbevent){evnt(26307,5494,"ide_methods.bas");if(r)goto S_41513;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5078,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5495,"ide_methods.bas");}while(r); LABEL_IDEFINDJMP:; -if(qbevent){evnt(25066,5079,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,5496,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFIND()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5080,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5497,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5081,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5498,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5081,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5081,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5081,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5498,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5083,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5500,"ide_methods.bas");}while(r); } -S_39228:; +S_41520:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 6 ),qbs_new_txt_len("Find '",6))))||new_error){ -if(qbevent){evnt(25066,5086,"ide_methods.bas");if(r)goto S_39228;} +if(qbevent){evnt(26307,5503,"ide_methods.bas");if(r)goto S_41520;} do{ qbs_set(__STRING_IDEFINDTEXT,__STRING_IDECONTEXTUALSEARCH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5087,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5504,"ide_methods.bas");}while(r); do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5088,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5505,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5089,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5506,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5089,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5089,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5089,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5506,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; -if(!qbevent)break;evnt(25066,5090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5507,"ide_methods.bas");}while(r); } -S_39237:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Change...",10))))||new_error){ -if(qbevent){evnt(25066,5093,"ide_methods.bas");if(r)goto S_39237;} +S_41527:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Change... Alt+F3",18))))||new_error){ +if(qbevent){evnt(26307,5510,"ide_methods.bas");if(r)goto S_41527;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5094,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5511,"ide_methods.bas");}while(r); +LABEL_IDEFINDCHANGEJMP:; +if(qbevent){evnt(26307,5512,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5095,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5513,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5096,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5514,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5096,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5514,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5096,"ide_methods.bas");}while(r); +*__LONG_IDEALTHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26307,5515,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5096,"ide_methods.bas");}while(r); -S_39244:; +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,5516,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,5516,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5516,"ide_methods.bas");}while(r); +S_41536:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1)))|(qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(25066,5097,"ide_methods.bas");if(r)goto S_39244;} +if(qbevent){evnt(26307,5517,"ide_methods.bas");if(r)goto S_41536;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5097,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5517,"ide_methods.bas");}while(r); } do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5099,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5519,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDCX=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,5101,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5521,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_OLDCY=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,5101,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5521,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUND= 0 ; -if(!qbevent)break;evnt(25066,5102,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5522,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 0 ; -if(!qbevent)break;evnt(25066,5102,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5522,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGED= 0 ; +if(!qbevent)break;evnt(26307,5523,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_S,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5104,"ide_methods.bas");}while(r); -S_39253:; +if(!qbevent)break;evnt(26307,5525,"ide_methods.bas");}while(r); +S_41546:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,5105,"ide_methods.bas");if(r)goto S_39253;} +if(qbevent){evnt(26307,5526,"ide_methods.bas");if(r)goto S_41546;} do{ qbs_set(_FUNC_IDE2_STRING_S,qbs_ucase(_FUNC_IDE2_STRING_S)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5105,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5526,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_START=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,5106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5527,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_START; -if(!qbevent)break;evnt(25066,5106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5527,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_STARTX=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,5107,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5528,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_STARTX; -if(!qbevent)break;evnt(25066,5107,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5528,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FIRST= 1 ; -if(!qbevent)break;evnt(25066,5108,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5529,"ide_methods.bas");}while(r); LABEL_IDEFINDNEXT2:; -if(qbevent){evnt(25066,5109,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,5530,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5111,"ide_methods.bas");}while(r); -S_39262:; +if(!qbevent)break;evnt(26307,5532,"ide_methods.bas");}while(r); +S_41555:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,5112,"ide_methods.bas");if(r)goto S_39262;} +if(qbevent){evnt(26307,5533,"ide_methods.bas");if(r)goto S_41555;} do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5112,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5533,"ide_methods.bas");}while(r); } -S_39265:; +S_41558:; if ((-(*_FUNC_IDE2_LONG_FIRST== 1 ))||new_error){ -if(qbevent){evnt(25066,5114,"ide_methods.bas");if(r)goto S_39265;} +if(qbevent){evnt(26307,5535,"ide_methods.bas");if(r)goto S_41558;} do{ *_FUNC_IDE2_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(25066,5115,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5536,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_X1= 1 ; -if(!qbevent)break;evnt(25066,5117,"ide_methods.bas");}while(r); -S_39269:; +if(!qbevent)break;evnt(26307,5538,"ide_methods.bas");}while(r); +S_41562:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,5118,"ide_methods.bas");if(r)goto S_39269;} +if(qbevent){evnt(26307,5539,"ide_methods.bas");if(r)goto S_41562;} do{ *_FUNC_IDE2_LONG_X1=_FUNC_IDE2_STRING_L->len-_FUNC_IDE2_STRING_S->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5119,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5540,"ide_methods.bas");}while(r); } } -S_39273:; +S_41566:; if ((-(*_FUNC_IDE2_LONG_X1< 0 ))||new_error){ -if(qbevent){evnt(25066,5122,"ide_methods.bas");if(r)goto S_39273;} +if(qbevent){evnt(26307,5543,"ide_methods.bas");if(r)goto S_41566;} do{ *_FUNC_IDE2_LONG_X1= 0 ; -if(!qbevent)break;evnt(25066,5122,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5543,"ide_methods.bas");}while(r); } LABEL_IDEFINDAGAIN2:; -if(qbevent){evnt(25066,5124,"ide_methods.bas");r=0;} -S_39276:; +if(qbevent){evnt(26307,5545,"ide_methods.bas");r=0;} +S_41569:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,5126,"ide_methods.bas");if(r)goto S_39276;} +if(qbevent){evnt(26307,5547,"ide_methods.bas");if(r)goto S_41569;} do{ *_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,5127,"ide_methods.bas");}while(r); -S_39278:; -fornext_value4406=*_FUNC_IDE2_LONG_X1; -fornext_finalvalue4406= 1 ; -fornext_step4406= -1 ; -if (fornext_step4406<0) fornext_step_negative4406=1; else fornext_step_negative4406=0; -if (new_error) goto fornext_error4406; -goto fornext_entrylabel4406; +if(!qbevent)break;evnt(26307,5548,"ide_methods.bas");}while(r); +S_41571:; +fornext_value4484=*_FUNC_IDE2_LONG_X1; +fornext_finalvalue4484= 1 ; +fornext_step4484= -1 ; +if (fornext_step4484<0) fornext_step_negative4484=1; else fornext_step_negative4484=0; +if (new_error) goto fornext_error4484; +goto fornext_entrylabel4484; while(1){ -fornext_value4406=fornext_step4406+(*_FUNC_IDE2_LONG_XX); -fornext_entrylabel4406: -*_FUNC_IDE2_LONG_XX=fornext_value4406; -if (fornext_step_negative4406){ -if (fornext_value4406fornext_finalvalue4406) break; +if (fornext_value4484>fornext_finalvalue4484) break; } -fornext_error4406:; -if(qbevent){evnt(25066,5128,"ide_methods.bas");if(r)goto S_39278;} -S_39279:; +fornext_error4484:; +if(qbevent){evnt(26307,5549,"ide_methods.bas");if(r)goto S_41571;} +S_41572:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_XX)==qbs_asc(_FUNC_IDE2_STRING_S))))||new_error){ -if(qbevent){evnt(25066,5129,"ide_methods.bas");if(r)goto S_39279;} +if(qbevent){evnt(26307,5550,"ide_methods.bas");if(r)goto S_41572;} do{ *_FUNC_IDE2_LONG_XXO=*_FUNC_IDE2_LONG_XX- 1 ; -if(!qbevent)break;evnt(25066,5130,"ide_methods.bas");}while(r); -S_39281:; -fornext_value4408=*_FUNC_IDE2_LONG_XX; -fornext_finalvalue4408=*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len- 1 ; -fornext_step4408= 1 ; -if (fornext_step4408<0) fornext_step_negative4408=1; else fornext_step_negative4408=0; -if (new_error) goto fornext_error4408; -goto fornext_entrylabel4408; +if(!qbevent)break;evnt(26307,5551,"ide_methods.bas");}while(r); +S_41574:; +fornext_value4486=*_FUNC_IDE2_LONG_XX; +fornext_finalvalue4486=*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len- 1 ; +fornext_step4486= 1 ; +if (fornext_step4486<0) fornext_step_negative4486=1; else fornext_step_negative4486=0; +if (new_error) goto fornext_error4486; +goto fornext_entrylabel4486; while(1){ -fornext_value4408=fornext_step4408+(*_FUNC_IDE2_LONG_XX2); -fornext_entrylabel4408: -*_FUNC_IDE2_LONG_XX2=fornext_value4408; +fornext_value4486=fornext_step4486+(*_FUNC_IDE2_LONG_XX2); +fornext_entrylabel4486: +*_FUNC_IDE2_LONG_XX2=fornext_value4486; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4408){ -if (fornext_value4408fornext_finalvalue4408) break; +if (fornext_value4486>fornext_finalvalue4486) break; } -fornext_error4408:; -if(qbevent){evnt(25066,5131,"ide_methods.bas");if(r)goto S_39281;} -S_39282:; +fornext_error4486:; +if(qbevent){evnt(26307,5552,"ide_methods.bas");if(r)goto S_41574;} +S_41575:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_XX2)!=qbs_asc(_FUNC_IDE2_STRING_S,*_FUNC_IDE2_LONG_XX2-*_FUNC_IDE2_LONG_XXO))))||new_error){ -if(qbevent){evnt(25066,5132,"ide_methods.bas");if(r)goto S_39282;} +if(qbevent){evnt(26307,5553,"ide_methods.bas");if(r)goto S_41575;} do{ -goto fornext_exit_4407; -if(!qbevent)break;evnt(25066,5132,"ide_methods.bas");}while(r); +goto fornext_exit_4485; +if(!qbevent)break;evnt(26307,5553,"ide_methods.bas");}while(r); } -fornext_continue_4407:; +fornext_continue_4485:; } -fornext_exit_4407:; -S_39286:; +fornext_exit_4485:; +S_41579:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_XX2==(*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len))))||new_error){ -if(qbevent){evnt(25066,5134,"ide_methods.bas");if(r)goto S_39286;} +if(qbevent){evnt(26307,5555,"ide_methods.bas");if(r)goto S_41579;} do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_XX; -if(!qbevent)break;evnt(25066,5136,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5557,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4405; -if(!qbevent)break;evnt(25066,5137,"ide_methods.bas");}while(r); +goto fornext_exit_4483; +if(!qbevent)break;evnt(26307,5558,"ide_methods.bas");}while(r); } } -fornext_continue_4405:; +fornext_continue_4483:; } -fornext_exit_4405:; -S_39292:; +fornext_exit_4483:; +S_41585:; if (((-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX)))||new_error){ -if(qbevent){evnt(25066,5141,"ide_methods.bas");if(r)goto S_39292;} +if(qbevent){evnt(26307,5562,"ide_methods.bas");if(r)goto S_41585;} do{ *_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,5141,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5562,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X1,_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_S,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5143,"ide_methods.bas");}while(r); -S_39297:; +if(!qbevent)break;evnt(26307,5564,"ide_methods.bas");}while(r); +S_41590:; if (((-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_X>=*_FUNC_IDE2_LONG_STARTX)))||new_error){ -if(qbevent){evnt(25066,5144,"ide_methods.bas");if(r)goto S_39297;} +if(qbevent){evnt(26307,5565,"ide_methods.bas");if(r)goto S_41590;} do{ *_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,5144,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5565,"ide_methods.bas");}while(r); } } -S_39301:; +S_41594:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,5147,"ide_methods.bas");if(r)goto S_39301;} -S_39302:; +if(qbevent){evnt(26307,5568,"ide_methods.bas");if(r)goto S_41594;} +S_41595:; if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(25066,5148,"ide_methods.bas");if(r)goto S_39302;} +if(qbevent){evnt(26307,5569,"ide_methods.bas");if(r)goto S_41595;} do{ *_FUNC_IDE2_LONG_WHOLE= 1 ; -if(!qbevent)break;evnt(25066,5149,"ide_methods.bas");}while(r); -S_39304:; +if(!qbevent)break;evnt(26307,5570,"ide_methods.bas");}while(r); +S_41597:; if ((-(*_FUNC_IDE2_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(25066,5150,"ide_methods.bas");if(r)goto S_39304;} +if(qbevent){evnt(26307,5571,"ide_methods.bas");if(r)goto S_41597;} do{ *_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X- 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5151,"ide_methods.bas");}while(r); -S_39306:; +if(!qbevent)break;evnt(26307,5572,"ide_methods.bas");}while(r); +S_41599:; if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(25066,5152,"ide_methods.bas");if(r)goto S_39306;} +if(qbevent){evnt(26307,5573,"ide_methods.bas");if(r)goto S_41599;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5152,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5573,"ide_methods.bas");}while(r); } -S_39309:; +S_41602:; if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(25066,5153,"ide_methods.bas");if(r)goto S_39309;} +if(qbevent){evnt(26307,5574,"ide_methods.bas");if(r)goto S_41602;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5153,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5574,"ide_methods.bas");}while(r); } } -S_39313:; +S_41606:; if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len)<=(_FUNC_IDE2_STRING_L->len))))||new_error){ -if(qbevent){evnt(25066,5155,"ide_methods.bas");if(r)goto S_39313;} +if(qbevent){evnt(26307,5576,"ide_methods.bas");if(r)goto S_41606;} do{ *_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5156,"ide_methods.bas");}while(r); -S_39315:; +if(!qbevent)break;evnt(26307,5577,"ide_methods.bas");}while(r); +S_41608:; if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(25066,5157,"ide_methods.bas");if(r)goto S_39315;} +if(qbevent){evnt(26307,5578,"ide_methods.bas");if(r)goto S_41608;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5157,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5578,"ide_methods.bas");}while(r); } -S_39318:; +S_41611:; if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(25066,5158,"ide_methods.bas");if(r)goto S_39318;} +if(qbevent){evnt(26307,5579,"ide_methods.bas");if(r)goto S_41611;} do{ *_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5579,"ide_methods.bas");}while(r); } } -S_39322:; +S_41615:; if ((-(*_FUNC_IDE2_LONG_WHOLE== 0 ))||new_error){ -if(qbevent){evnt(25066,5160,"ide_methods.bas");if(r)goto S_39322;} +if(qbevent){evnt(26307,5581,"ide_methods.bas");if(r)goto S_41615;} do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,5161,"ide_methods.bas");}while(r); -S_39324:; +if(!qbevent)break;evnt(26307,5582,"ide_methods.bas");}while(r); +S_41617:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,5161,"ide_methods.bas");if(r)goto S_39324;} +if(qbevent){evnt(26307,5582,"ide_methods.bas");if(r)goto S_41617;} do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; -if(!qbevent)break;evnt(25066,5161,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5582,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,5162,"ide_methods.bas");}while(r); -S_39328:; +if(!qbevent)break;evnt(26307,5583,"ide_methods.bas");}while(r); +S_41621:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_X1> 0 ))&(-(*_FUNC_IDE2_LONG_X1<=_FUNC_IDE2_STRING_L->len))))||new_error){ -if(qbevent){evnt(25066,5163,"ide_methods.bas");if(r)goto S_39328;} +if(qbevent){evnt(26307,5584,"ide_methods.bas");if(r)goto S_41621;} do{ goto LABEL_IDEFINDAGAIN2; -if(!qbevent)break;evnt(25066,5163,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5584,"ide_methods.bas");}while(r); } } } } -S_39334:; +do{ +if(!qbevent)break;evnt(26307,5589,"ide_methods.bas");}while(r); +S_41628:; if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(25066,5168,"ide_methods.bas");if(r)goto S_39334;} +if(qbevent){evnt(26307,5590,"ide_methods.bas");if(r)goto S_41628;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDE2_STRING_L,_FUNC_IDE2_LONG_X,_FUNC_IDE2_BYTE_COMMENT,_FUNC_IDE2_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5591,"ide_methods.bas");}while(r); +S_41630:; +if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDE2_BYTE_COMMENT)||new_error){ +if(qbevent){evnt(26307,5592,"ide_methods.bas");if(r)goto S_41630;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,5592,"ide_methods.bas");}while(r); +} +S_41633:; +if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDE2_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26307,5593,"ide_methods.bas");if(r)goto S_41633;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,5593,"ide_methods.bas");}while(r); +} +S_41636:; +if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDE2_BYTE_COMMENT== 0 )))||new_error){ +if(qbevent){evnt(26307,5594,"ide_methods.bas");if(r)goto S_41636;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,5594,"ide_methods.bas");}while(r); +} +S_41639:; +if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDE2_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26307,5595,"ide_methods.bas");if(r)goto S_41639;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,5595,"ide_methods.bas");}while(r); +} +} +S_41643:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26307,5598,"ide_methods.bas");if(r)goto S_41643;} do{ *__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,5169,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5599,"ide_methods.bas");}while(r); do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(25066,5170,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5600,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(25066,5170,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5600,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,5601,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5171,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5602,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(25066,5171,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5602,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUND= 1 ; -if(!qbevent)break;evnt(25066,5173,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5604,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,5174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5605,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5175,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5606,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,5175,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5606,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5175,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5606,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5176,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5607,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGEIT()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5177,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5608,"ide_methods.bas");}while(r); do{ SUB_IDEDELTXT(); -if(!qbevent)break;evnt(25066,5178,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5609,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5179,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5610,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5179,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5179,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5179,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5610,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,5180,"ide_methods.bas");}while(r); -S_39353:; +if(!qbevent)break;evnt(26307,5611,"ide_methods.bas");}while(r); +S_41661:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5181,"ide_methods.bas");if(r)goto S_39353;} +if(qbevent){evnt(26307,5612,"ide_methods.bas");if(r)goto S_41661;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; -if(!qbevent)break;evnt(25066,5181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5613,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; -if(!qbevent)break;evnt(25066,5181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5613,"ide_methods.bas");}while(r); +S_41664:; +if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ +if(qbevent){evnt(26307,5614,"ide_methods.bas");if(r)goto S_41664;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,5615,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5616,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,5616,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5616,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5617,"ide_methods.bas");}while(r); +do{ +SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); +if(!qbevent)break;evnt(26307,5618,"ide_methods.bas");}while(r); +} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5620,"ide_methods.bas");}while(r); } -S_39358:; +S_41674:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5182,"ide_methods.bas");if(r)goto S_39358;} +if(qbevent){evnt(26307,5622,"ide_methods.bas");if(r)goto S_41674;} do{ qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5183,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5623,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,5184,"ide_methods.bas");}while(r); -S_39361:; +if(!qbevent)break;evnt(26307,5624,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,5625,"ide_methods.bas");}while(r); +S_41678:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_L->len>=*__LONG_IDESELECTX1)))||new_error){ -if(qbevent){evnt(25066,5185,"ide_methods.bas");if(r)goto S_39361;} +if(qbevent){evnt(26307,5626,"ide_methods.bas");if(r)goto S_41678;} do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_L,*__LONG_IDECX- 1 ),__STRING_IDECHANGETO),qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len-*__LONG_IDESELECTX1+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5186,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5627,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_add(qbs_left(_FUNC_IDE2_STRING_L,*__LONG_IDECX- 1 ),__STRING_IDECHANGETO)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5188,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5629,"ide_methods.bas");}while(r); } do{ SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5190,"ide_methods.bas");}while(r); -S_39367:; +if(!qbevent)break;evnt(26307,5631,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGED=*_FUNC_IDE2_LONG_CHANGED+ 1 ; +if(!qbevent)break;evnt(26307,5632,"ide_methods.bas");}while(r); +S_41685:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,5191,"ide_methods.bas");if(r)goto S_39367;} +if(qbevent){evnt(26307,5633,"ide_methods.bas");if(r)goto S_41685;} do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5191,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5633,"ide_methods.bas");}while(r); } -S_39370:; +S_41688:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,5193,"ide_methods.bas");if(r)goto S_39370;} -S_39371:; +if(qbevent){evnt(26307,5635,"ide_methods.bas");if(r)goto S_41688;} +S_41689:; if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START)))||new_error){ -if(qbevent){evnt(25066,5194,"ide_methods.bas");if(r)goto S_39371;} +if(qbevent){evnt(26307,5636,"ide_methods.bas");if(r)goto S_41689;} do{ *_FUNC_IDE2_LONG_STARTX=*_FUNC_IDE2_LONG_STARTX-_FUNC_IDE2_STRING_S->len+__STRING_IDECHANGETO->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5194,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5636,"ide_methods.bas");}while(r); } }else{ -S_39375:; +S_41693:; if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(25066,5196,"ide_methods.bas");if(r)goto S_39375;} +if(qbevent){evnt(26307,5638,"ide_methods.bas");if(r)goto S_41693;} do{ *_FUNC_IDE2_LONG_STARTX=*_FUNC_IDE2_LONG_STARTX-_FUNC_IDE2_STRING_S->len+__STRING_IDECHANGETO->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5196,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5638,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+__STRING_IDECHANGETO->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5197,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5639,"ide_methods.bas");}while(r); } }else{ } -S_39382:; +S_41700:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,5203,"ide_methods.bas");if(r)goto S_39382;} +if(qbevent){evnt(26307,5645,"ide_methods.bas");if(r)goto S_41700;} do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; -if(!qbevent)break;evnt(25066,5203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5645,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,5203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5645,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDAGAIN2; -if(!qbevent)break;evnt(25066,5204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5646,"ide_methods.bas");}while(r); } -S_39389:; +S_41707:; if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,5207,"ide_methods.bas");if(r)goto S_39389;} +if(qbevent){evnt(26307,5649,"ide_methods.bas");if(r)goto S_41707;} do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y- 1 ; -if(!qbevent)break;evnt(25066,5208,"ide_methods.bas");}while(r); -S_39391:; +if(!qbevent)break;evnt(26307,5650,"ide_methods.bas");}while(r); +S_41709:; if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START- 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(25066,5209,"ide_methods.bas");if(r)goto S_39391;} +if(qbevent){evnt(26307,5651,"ide_methods.bas");if(r)goto S_41709;} do{ goto LABEL_FINISHEDCHANGE; -if(!qbevent)break;evnt(25066,5210,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5652,"ide_methods.bas");}while(r); } -S_39394:; +S_41712:; if ((-(*_FUNC_IDE2_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(25066,5212,"ide_methods.bas");if(r)goto S_39394;} +if(qbevent){evnt(26307,5654,"ide_methods.bas");if(r)goto S_41712;} do{ *_FUNC_IDE2_LONG_Y=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,5212,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5654,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(25066,5212,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5654,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(25066,5213,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5655,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,5215,"ide_methods.bas");}while(r); -S_39401:; +if(!qbevent)break;evnt(26307,5657,"ide_methods.bas");}while(r); +S_41719:; if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START+ 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(25066,5216,"ide_methods.bas");if(r)goto S_39401;} +if(qbevent){evnt(26307,5658,"ide_methods.bas");if(r)goto S_41719;} do{ goto LABEL_FINISHEDCHANGE; -if(!qbevent)break;evnt(25066,5217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5659,"ide_methods.bas");}while(r); } -S_39404:; +S_41722:; if ((-(*_FUNC_IDE2_LONG_Y>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,5219,"ide_methods.bas");if(r)goto S_39404;} +if(qbevent){evnt(26307,5661,"ide_methods.bas");if(r)goto S_41722;} do{ *_FUNC_IDE2_LONG_Y= 1 ; -if(!qbevent)break;evnt(25066,5219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5661,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(25066,5219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5661,"ide_methods.bas");}while(r); } do{ goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(25066,5220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5662,"ide_methods.bas");}while(r); } LABEL_FINISHEDCHANGE:; -if(qbevent){evnt(25066,5225,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,5667,"ide_methods.bas");r=0;} do{ *__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; -if(!qbevent)break;evnt(25066,5226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5668,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; -if(!qbevent)break;evnt(25066,5226,"ide_methods.bas");}while(r); -S_39412:; -if ((*_FUNC_IDE2_LONG_FOUND)||new_error){ -if(qbevent){evnt(25066,5227,"ide_methods.bas");if(r)goto S_39412;} +if(!qbevent)break;evnt(26307,5668,"ide_methods.bas");}while(r); +S_41730:; +if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ +if(qbevent){evnt(26307,5669,"ide_methods.bas");if(r)goto S_41730;} do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,5228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5670,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5671,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,5229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5671,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5671,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5672,"ide_methods.bas");}while(r); do{ -SUB_IDECHANGED(); -if(!qbevent)break;evnt(25066,5231,"ide_methods.bas");}while(r); +SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); +if(!qbevent)break;evnt(26307,5673,"ide_methods.bas");}while(r); +S_41737:; +}else{ +if (*_FUNC_IDE2_LONG_FOUND){ +if(qbevent){evnt(26307,5674,"ide_methods.bas");if(r)goto S_41737;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,5675,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5676,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,5676,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5676,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5677,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Search complete",15),qbs_new_txt_len("No changes made.",16),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5678,"ide_methods.bas");}while(r); }else{ do{ -SUB_IDENOMATCH(); -if(!qbevent)break;evnt(25066,5233,"ide_methods.bas");}while(r); +SUB_IDENOMATCH(&(pass4501= -1 )); +if(!qbevent)break;evnt(26307,5680,"ide_methods.bas");}while(r); +} } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5682,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5235,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5235,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5682,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5236,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5683,"ide_methods.bas");}while(r); } -S_39428:; +S_41751:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear Search #History...",24))))||new_error){ -if(qbevent){evnt(25066,5239,"ide_methods.bas");if(r)goto S_39428;} +if(qbevent){evnt(26307,5686,"ide_methods.bas");if(r)goto S_41751;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5240,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5687,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("SEARCH",6))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5241,"ide_methods.bas");}while(r); -S_39431:; +if(!qbevent)break;evnt(26307,5688,"ide_methods.bas");}while(r); +S_41754:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5242,"ide_methods.bas");if(r)goto S_39431;} +if(qbevent){evnt(26307,5689,"ide_methods.bas");if(r)goto S_41754;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5243,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5690,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5244,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5691,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5244,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5691,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5692,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5694,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5247,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5247,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5694,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5695,"ide_methods.bas");}while(r); } -S_39443:; +S_41764:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Repeat Last Find (Shift+) F3",30))))||new_error){ -if(qbevent){evnt(25066,5251,"ide_methods.bas");if(r)goto S_39443;} +if(qbevent){evnt(26307,5698,"ide_methods.bas");if(r)goto S_41764;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5699,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5252,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5252,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5699,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMF3; -if(!qbevent)break;evnt(25066,5253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5700,"ide_methods.bas");}while(r); } -S_39450:; +S_41769:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Cl#ear Del",11))))||new_error){ -if(qbevent){evnt(25066,5256,"ide_methods.bas");if(r)goto S_39450;} +if(qbevent){evnt(26307,5703,"ide_methods.bas");if(r)goto S_41769;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5257,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5704,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5257,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5257,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5257,"ide_methods.bas");}while(r); -S_39455:; -if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,5258,"ide_methods.bas");if(r)goto S_39455;} +if(!qbevent)break;evnt(26307,5704,"ide_methods.bas");}while(r); +S_41772:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26307,5705,"ide_methods.bas");if(r)goto S_41772;} do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,5259,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5706,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=43; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DELSELECT; -RETURN_43:; -if(!qbevent)break;evnt(25066,5260,"ide_methods.bas");}while(r); +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,5707,"ide_methods.bas");}while(r); +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26307,5708,"ide_methods.bas");}while(r); +S_41776:; +}else{ +if (-(*__LONG_IDESYSTEM== 2 )){ +if(qbevent){evnt(26307,5709,"ide_methods.bas");if(r)goto S_41776;} +do{ +goto LABEL_DELETESELECTIONSEARCHFIELD; +if(!qbevent)break;evnt(26307,5710,"ide_methods.bas");}while(r); +} } do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5712,"ide_methods.bas");}while(r); } -S_39461:; +S_41781:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27))))||new_error){ -if(qbevent){evnt(25066,5265,"ide_methods.bas");if(r)goto S_39461;} +if(qbevent){evnt(26307,5715,"ide_methods.bas");if(r)goto S_41781;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5716,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5266,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5266,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5716,"ide_methods.bas");}while(r); +S_41784:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26307,5717,"ide_methods.bas");if(r)goto S_41784;} do{ goto LABEL_IDEMPASTE; -if(!qbevent)break;evnt(25066,5267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5717,"ide_methods.bas");}while(r); } -S_39468:; +S_41787:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26307,5718,"ide_methods.bas");if(r)goto S_41787;} +do{ +goto LABEL_PASTEINTOSEARCHFIELD; +if(!qbevent)break;evnt(26307,5718,"ide_methods.bas");}while(r); +} +} +S_41791:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25))))||new_error){ -if(qbevent){evnt(25066,5270,"ide_methods.bas");if(r)goto S_39468;} +if(qbevent){evnt(26307,5721,"ide_methods.bas");if(r)goto S_41791;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5722,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5271,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5271,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5271,"ide_methods.bas");}while(r); -S_39473:; -if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,5272,"ide_methods.bas");if(r)goto S_39473;} +if(!qbevent)break;evnt(26307,5722,"ide_methods.bas");}while(r); +S_41794:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26307,5723,"ide_methods.bas");if(r)goto S_41794;} do{ goto LABEL_COPY2CLIP; -if(!qbevent)break;evnt(25066,5272,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5723,"ide_methods.bas");}while(r); +} +S_41797:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26307,5724,"ide_methods.bas");if(r)goto S_41797;} +do{ +goto LABEL_COPYSEARCHTERM2CLIP; +if(!qbevent)break;evnt(26307,5724,"ide_methods.bas");}while(r); +} +S_41800:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26307,5725,"ide_methods.bas");if(r)goto S_41800;} +do{ +goto LABEL_COPYHELP2CLIP; +if(!qbevent)break;evnt(26307,5725,"ide_methods.bas");}while(r); } do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5273,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5726,"ide_methods.bas");}while(r); } -S_39478:; +S_41805:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25))))||new_error){ -if(qbevent){evnt(25066,5276,"ide_methods.bas");if(r)goto S_39478;} +if(qbevent){evnt(26307,5729,"ide_methods.bas");if(r)goto S_41805;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5730,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5277,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5277,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5277,"ide_methods.bas");}while(r); -S_39483:; -if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(25066,5278,"ide_methods.bas");if(r)goto S_39483;} +if(!qbevent)break;evnt(26307,5730,"ide_methods.bas");}while(r); +S_41808:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26307,5731,"ide_methods.bas");if(r)goto S_41808;} do{ qbs_set(__STRING_K,qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5279,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5732,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMCUT; -if(!qbevent)break;evnt(25066,5280,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5733,"ide_methods.bas");}while(r); +S_41811:; +}else{ +if (-(*__LONG_IDESYSTEM== 2 )){ +if(qbevent){evnt(26307,5734,"ide_methods.bas");if(r)goto S_41811;} +do{ +goto LABEL_CUTTOCLIPBOARDSEARCHFIELD; +if(!qbevent)break;evnt(26307,5735,"ide_methods.bas");}while(r); +} } do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5737,"ide_methods.bas");}while(r); } -S_39489:; +S_41816:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Undo Ctrl+Z",13))))||new_error){ -if(qbevent){evnt(25066,5285,"ide_methods.bas");if(r)goto S_39489;} +if(qbevent){evnt(26307,5740,"ide_methods.bas");if(r)goto S_41816;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5286,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5741,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5286,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5286,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5286,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5741,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMUNDO; -if(!qbevent)break;evnt(25066,5287,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5742,"ide_methods.bas");}while(r); } -S_39496:; +S_41821:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Redo Ctrl+Y",13))))||new_error){ -if(qbevent){evnt(25066,5290,"ide_methods.bas");if(r)goto S_39496;} +if(qbevent){evnt(26307,5745,"ide_methods.bas");if(r)goto S_41821;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5746,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5291,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5291,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5746,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMREDO; -if(!qbevent)break;evnt(25066,5292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5747,"ide_methods.bas");}while(r); } -S_39503:; +S_41826:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Select #All Ctrl+A",19))))||new_error){ -if(qbevent){evnt(25066,5296,"ide_methods.bas");if(r)goto S_39503;} +if(qbevent){evnt(26307,5751,"ide_methods.bas");if(r)goto S_41826;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5297,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5752,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5297,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5297,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5297,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5752,"ide_methods.bas");}while(r); +S_41829:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26307,5753,"ide_methods.bas");if(r)goto S_41829;} do{ goto LABEL_IDEMSELECTALL; -if(!qbevent)break;evnt(25066,5298,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5753,"ide_methods.bas");}while(r); } -S_39510:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Start F5",10))))||new_error){ -if(qbevent){evnt(25066,5301,"ide_methods.bas");if(r)goto S_39510;} +S_41832:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26307,5754,"ide_methods.bas");if(r)goto S_41832;} +do{ +goto LABEL_SELECTALLINSEARCHFIELD; +if(!qbevent)break;evnt(26307,5754,"ide_methods.bas");}while(r); +} +S_41835:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26307,5755,"ide_methods.bas");if(r)goto S_41835;} +do{ +goto LABEL_SELECTALLINHELP; +if(!qbevent)break;evnt(26307,5755,"ide_methods.bas");}while(r); +} +} +S_41839:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clo#se Help ESC",16))))||new_error){ +if(qbevent){evnt(26307,5758,"ide_methods.bas");if(r)goto S_41839;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5302,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5759,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5302,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5759,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5302,"ide_methods.bas");}while(r); +goto LABEL_CLOSEHELP; +if(!qbevent)break;evnt(26307,5760,"ide_methods.bas");}while(r); +} +S_41844:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Start F5",10))))||new_error){ +if(qbevent){evnt(26307,5763,"ide_methods.bas");if(r)goto S_41844;} do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5302,"ide_methods.bas");}while(r); +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5764,"ide_methods.bas");}while(r); do{ -SUB_USEANDROID(&(pass4423= 0 )); -if(!qbevent)break;evnt(25066,5303,"ide_methods.bas");}while(r); +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5764,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= 0 ; +if(!qbevent)break;evnt(26307,5765,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMRUN; -if(!qbevent)break;evnt(25066,5304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5766,"ide_methods.bas");}while(r); } -S_39518:; +S_41850:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Modify #COMMAND$...",19))))||new_error){ -if(qbevent){evnt(25066,5307,"ide_methods.bas");if(r)goto S_39518;} +if(qbevent){evnt(26307,5769,"ide_methods.bas");if(r)goto S_41850;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5770,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEMODIFYCOMMANDBOX(); -if(!qbevent)break;evnt(25066,5309,"ide_methods.bas");}while(r); +qbs_set(__STRING_MODIFYCOMMAND,qbs_add(qbs_new_txt_len(" ",1),FUNC_IDEINPUTBOX(qbs_new_txt_len("Modify COMMAND$",15),qbs_new_txt_len("#Enter text for COMMAND$",24),qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0),&(pass4502= 60 ),&(pass4503= 0 ),&(pass4504= 0 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5771,"ide_methods.bas");}while(r); +S_41853:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,5772,"ide_methods.bas");if(r)goto S_41853;} +do{ +qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5772,"ide_methods.bas");}while(r); +} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5774,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5311,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5311,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5774,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5775,"ide_methods.bas");}while(r); } -S_39527:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make #Android Project",21))))||new_error){ -if(qbevent){evnt(25066,5315,"ide_methods.bas");if(r)goto S_39527;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5316,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5316,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5316,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5316,"ide_methods.bas");}while(r); -do{ -SUB_USEANDROID(&(pass4424= 1 )); -if(!qbevent)break;evnt(25066,5317,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMRUN; -if(!qbevent)break;evnt(25066,5318,"ide_methods.bas");}while(r); -} -S_39535:; +S_41860:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make E#XE Only F11",19)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make E#xecutable Only F11",26)))))||new_error){ -if(qbevent){evnt(25066,5327,"ide_methods.bas");if(r)goto S_39535;} +if(qbevent){evnt(26307,5778,"ide_methods.bas");if(r)goto S_41860;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5328,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5779,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5328,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5328,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5328,"ide_methods.bas");}while(r); -do{ -SUB_USEANDROID(&(pass4425= 0 )); -if(!qbevent)break;evnt(25066,5329,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5779,"ide_methods.bas");}while(r); do{ goto LABEL_IDEMEXE; -if(!qbevent)break;evnt(25066,5330,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5780,"ide_methods.bas");}while(r); } -S_39543:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("E#xit",5))))||new_error){ -if(qbevent){evnt(25066,5333,"ide_methods.bas");if(r)goto S_39543;} +S_41865:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Start #Paused F7 or F8",23))))||new_error){ +if(qbevent){evnt(26307,5783,"ide_methods.bas");if(r)goto S_41865;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5784,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5784,"ide_methods.bas");}while(r); +LABEL_STARTPAUSEDMENUHANDLER:; +if(qbevent){evnt(26307,5785,"ide_methods.bas");r=0;} +S_41868:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26307,5786,"ide_methods.bas");if(r)goto S_41868;} +S_41869:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26307,5787,"ide_methods.bas");if(r)goto S_41869;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5788,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4505= 2 )); +if(!qbevent)break;evnt(26307,5789,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,5790,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,5791,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26307,5792,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4506=*_FUNC_IDE2_LONG_X),&(pass4507=*_FUNC_IDE2_LONG_Y),&(pass4508=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to start paused.",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5793,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5794,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5795,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Start Paused",12),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5797,"ide_methods.bas");}while(r); +S_41880:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,5798,"ide_methods.bas");if(r)goto S_41880;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,5799,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4509= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5800,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,5801,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,5802,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= -1 ; +if(!qbevent)break;evnt(26307,5803,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= -1 ; +if(!qbevent)break;evnt(26307,5804,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26307,5805,"ide_methods.bas");}while(r); +S_41888:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26307,5806,"ide_methods.bas");if(r)goto S_41888;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5807,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26307,5808,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5809,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5810,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5812,"ide_methods.bas");}while(r); +}else{ +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,5814,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= -1 ; +if(!qbevent)break;evnt(26307,5815,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMRUN; +if(!qbevent)break;evnt(26307,5816,"ide_methods.bas");}while(r); +} +} +S_41901:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Watch List... F4",18))))||new_error){ +if(qbevent){evnt(26307,5820,"ide_methods.bas");if(r)goto S_41901;} +S_41902:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,5821,"ide_methods.bas");if(r)goto S_41902;} +do{ +*__LONG_IDEDEBUGMODE= 16 ; +if(!qbevent)break;evnt(26307,5822,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5823,"ide_methods.bas");}while(r); +}else{ do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5334,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5825,"ide_methods.bas");}while(r); +LABEL_SHOWWATCHLIST:; +if(qbevent){evnt(26307,5826,"ide_methods.bas");r=0;} +S_41907:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26307,5827,"ide_methods.bas");if(r)goto S_41907;} +S_41908:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26307,5828,"ide_methods.bas");if(r)goto S_41908;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5829,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4510= 2 )); +if(!qbevent)break;evnt(26307,5830,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,5831,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,5832,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26307,5833,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4511=*_FUNC_IDE2_LONG_X),&(pass4512=*_FUNC_IDE2_LONG_Y),&(pass4513=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required for Watch List functionality.",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5834,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5835,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5836,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Watch List",10),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5838,"ide_methods.bas");}while(r); +S_41919:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,5839,"ide_methods.bas");if(r)goto S_41919;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,5840,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4514= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5841,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,5842,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,5843,"ide_methods.bas");}while(r); +S_41924:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26307,5844,"ide_methods.bas");if(r)goto S_41924;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5845,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26307,5846,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5847,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5848,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5850,"ide_methods.bas");}while(r); +}else{ +S_41932:; +if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ +if(qbevent){evnt(26307,5852,"ide_methods.bas");if(r)goto S_41932;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5853,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,5854,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,5855,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26307,5856,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4515=*_FUNC_IDE2_LONG_X),&(pass4516=*_FUNC_IDE2_LONG_Y),&(pass4517=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("Variable List will be available after syntax checking is done...",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5857,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_WAITINGFORVARLIST= 1 ; +if(!qbevent)break;evnt(26307,5858,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5859,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5860,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass4518= 0 ),&(pass4519= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5862,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5863,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5863,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5864,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5867,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5867,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5868,"ide_methods.bas");}while(r); +} +} +S_41953:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Call #Stack... F12",19)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Call Stack... F12",18)))))||new_error){ +if(qbevent){evnt(26307,5872,"ide_methods.bas");if(r)goto S_41953;} +S_41954:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,5873,"ide_methods.bas");if(r)goto S_41954;} +do{ +*__LONG_IDEDEBUGMODE= 3 ; +if(!qbevent)break;evnt(26307,5874,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5875,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,5877,"ide_methods.bas");}while(r); +LABEL_SHOWCALLSTACKDIALOG:; +if(qbevent){evnt(26307,5878,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECALLSTACKBOX(); +if(!qbevent)break;evnt(26307,5879,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5881,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5881,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5882,"ide_methods.bas");}while(r); +} +} +S_41965:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Continue F5",13))))||new_error){ +if(qbevent){evnt(26307,5886,"ide_methods.bas");if(r)goto S_41965;} +do{ +*__LONG_IDEDEBUGMODE= 4 ; +if(!qbevent)break;evnt(26307,5887,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5888,"ide_methods.bas");}while(r); +} +S_41969:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Step O#ut F6",13))))||new_error){ +if(qbevent){evnt(26307,5891,"ide_methods.bas");if(r)goto S_41969;} +do{ +*__LONG_IDEDEBUGMODE= 5 ; +if(!qbevent)break;evnt(26307,5892,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5893,"ide_methods.bas");}while(r); +} +S_41973:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Ste#p Into F7",14))))||new_error){ +if(qbevent){evnt(26307,5896,"ide_methods.bas");if(r)goto S_41973;} +do{ +*__LONG_IDEDEBUGMODE= 7 ; +if(!qbevent)break;evnt(26307,5897,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5898,"ide_methods.bas");}while(r); +} +S_41977:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Step #Over F8",14))))||new_error){ +if(qbevent){evnt(26307,5901,"ide_methods.bas");if(r)goto S_41977;} +do{ +*__LONG_IDEDEBUGMODE= 6 ; +if(!qbevent)break;evnt(26307,5902,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5903,"ide_methods.bas");}while(r); +} +S_41981:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Run To This Line Ctrl+Shift+G",31))))||new_error){ +if(qbevent){evnt(26307,5906,"ide_methods.bas");if(r)goto S_41981;} +do{ +*__LONG_IDEDEBUGMODE= 8 ; +if(!qbevent)break;evnt(26307,5907,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5908,"ide_methods.bas");}while(r); +} +S_41985:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Exit $DEBUG mode ESC",22))))||new_error){ +if(qbevent){evnt(26307,5911,"ide_methods.bas");if(r)goto S_41985;} +do{ +*__LONG_IDEDEBUGMODE= 9 ; +if(!qbevent)break;evnt(26307,5912,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5913,"ide_methods.bas");}while(r); +} +S_41989:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle #Breakpoint F9",22))))||new_error){ +if(qbevent){evnt(26307,5916,"ide_methods.bas");if(r)goto S_41989;} +S_41990:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,5917,"ide_methods.bas");if(r)goto S_41990;} +do{ +*__LONG_IDEDEBUGMODE= 10 ; +if(!qbevent)break;evnt(26307,5918,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5919,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5921,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5921,"ide_methods.bas");}while(r); +LABEL_TOGGLEBREAKPOINT:; +if(qbevent){evnt(26307,5922,"ide_methods.bas");r=0;} +S_41996:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26307,5923,"ide_methods.bas");if(r)goto S_41996;} +S_41997:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26307,5924,"ide_methods.bas");if(r)goto S_41997;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5925,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4520= 2 )); +if(!qbevent)break;evnt(26307,5926,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,5927,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,5928,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26307,5929,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4521=*_FUNC_IDE2_LONG_X),&(pass4522=*_FUNC_IDE2_LONG_Y),&(pass4523=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to enable breakpoints.",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5930,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5931,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5932,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Toggle Breakpoint",17),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5934,"ide_methods.bas");}while(r); +S_42008:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,5935,"ide_methods.bas");if(r)goto S_42008;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,5936,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4524= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5937,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,5938,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,5939,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26307,5940,"ide_methods.bas");}while(r); +S_42014:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26307,5941,"ide_methods.bas");if(r)goto S_42014;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5942,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26307,5943,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5944,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5945,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26307,5948,"ide_methods.bas");}while(r); +} +S_42023:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26307,5950,"ide_methods.bas");if(r)goto S_42023;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,5950,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5951,"ide_methods.bas");}while(r); +} +} +S_42029:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Clear All Breakpoints F10",27)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear All Breakpoints F10",26)))))||new_error){ +if(qbevent){evnt(26307,5955,"ide_methods.bas");if(r)goto S_42029;} +S_42030:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,5956,"ide_methods.bas");if(r)goto S_42030;} +do{ +*__LONG_IDEDEBUGMODE= 11 ; +if(!qbevent)break;evnt(26307,5957,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5958,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5960,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5960,"ide_methods.bas");}while(r); +LABEL_CLEARALLBREAKPOINTS:; +if(qbevent){evnt(26307,5961,"ide_methods.bas");r=0;} +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(26307,5962,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5963,"ide_methods.bas");}while(r); +} +} +S_42040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25))))||new_error){ +if(qbevent){evnt(26307,5967,"ide_methods.bas");if(r)goto S_42040;} +S_42041:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,5968,"ide_methods.bas");if(r)goto S_42041;} +do{ +*__LONG_IDEDEBUGMODE= 12 ; +if(!qbevent)break;evnt(26307,5969,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,5970,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5972,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5972,"ide_methods.bas");}while(r); +LABEL_TOGGLESKIPLINE:; +if(qbevent){evnt(26307,5973,"ide_methods.bas");r=0;} +S_42047:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26307,5974,"ide_methods.bas");if(r)goto S_42047;} +S_42048:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26307,5975,"ide_methods.bas");if(r)goto S_42048;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,5976,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4525= 2 )); +if(!qbevent)break;evnt(26307,5977,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,5978,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,5979,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26307,5980,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4526=*_FUNC_IDE2_LONG_X),&(pass4527=*_FUNC_IDE2_LONG_Y),&(pass4528=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to enable line skipping.",55)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5981,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,5982,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,5983,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Toggle Skip Line",16),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5985,"ide_methods.bas");}while(r); +S_42059:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,5986,"ide_methods.bas");if(r)goto S_42059;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,5987,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4529= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5988,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,5989,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,5990,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26307,5991,"ide_methods.bas");}while(r); +S_42065:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26307,5992,"ide_methods.bas");if(r)goto S_42065;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5993,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26307,5994,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5995,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,5996,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26307,5999,"ide_methods.bas");}while(r); +} +S_42074:; +if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ +if(qbevent){evnt(26307,6001,"ide_methods.bas");if(r)goto S_42074;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,6001,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,6002,"ide_methods.bas");}while(r); +} +} +S_42080:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27))))||new_error){ +if(qbevent){evnt(26307,6006,"ide_methods.bas");if(r)goto S_42080;} +S_42081:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,6007,"ide_methods.bas");if(r)goto S_42081;} +do{ +*__LONG_IDEDEBUGMODE= 15 ; +if(!qbevent)break;evnt(26307,6008,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,6009,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,6011,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,6011,"ide_methods.bas");}while(r); +LABEL_UNSKIPALLLINES:; +if(qbevent){evnt(26307,6012,"ide_methods.bas");r=0;} +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,6013,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,6014,"ide_methods.bas");}while(r); +} +} +S_42091:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Set Base #TCP/IP Port Number...",31))))||new_error){ +if(qbevent){evnt(26307,6018,"ide_methods.bas");if(r)goto S_42091;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,6019,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDEBASETCPPORT=*__LONG_IDEBASETCPPORT; +if(!qbevent)break;evnt(26307,6020,"ide_methods.bas");}while(r); +do{ +SUB_IDESETTCPPORTBOX(); +if(!qbevent)break;evnt(26307,6021,"ide_methods.bas");}while(r); +S_42095:; +if ((-(*_FUNC_IDE2_LONG_BKPIDEBASETCPPORT!=*__LONG_IDEBASETCPPORT))||new_error){ +if(qbevent){evnt(26307,6022,"ide_methods.bas");if(r)goto S_42095;} +S_42096:; +if ((-(*__LONG_HOST!= 0 ))||new_error){ +if(qbevent){evnt(26307,6023,"ide_methods.bas");if(r)goto S_42096;} +do{ +sub_close(*__LONG_HOST,1); +if(!qbevent)break;evnt(26307,6023,"ide_methods.bas");}while(r); +do{ +*__LONG_HOST= 0 ; +if(!qbevent)break;evnt(26307,6023,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOHOST= 0 ; +if(!qbevent)break;evnt(26307,6024,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_CHANGINGTCPPORT= -1 ; +if(!qbevent)break;evnt(26307,6025,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,6026,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,6028,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,6028,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26307,6029,"ide_methods.bas");}while(r); +} +S_42108:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Set #Next Line Ctrl+G",22))))||new_error){ +if(qbevent){evnt(26307,6032,"ide_methods.bas");if(r)goto S_42108;} +do{ +*__LONG_IDEDEBUGMODE= 13 ; +if(!qbevent)break;evnt(26307,6033,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26307,6034,"ide_methods.bas");}while(r); +} +S_42112:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("E#xit",5))))||new_error){ +if(qbevent){evnt(26307,6037,"ide_methods.bas");if(r)goto S_42112;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,6038,"ide_methods.bas");}while(r); LABEL_QUICKEXIT:; -if(qbevent){evnt(25066,5335,"ide_methods.bas");r=0;} -S_39545:; +if(qbevent){evnt(26307,6039,"ide_methods.bas");r=0;} +S_42114:; if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ -if(qbevent){evnt(25066,5336,"ide_methods.bas");if(r)goto S_39545;} +if(qbevent){evnt(26307,6040,"ide_methods.bas");if(r)goto S_42114;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5337,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6041,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5338,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6042,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5338,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5338,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5338,"ide_methods.bas");}while(r); -S_39551:; +if(!qbevent)break;evnt(26307,6042,"ide_methods.bas");}while(r); +S_42118:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5339,"ide_methods.bas");if(r)goto S_39551;} +if(qbevent){evnt(26307,6043,"ide_methods.bas");if(r)goto S_42118;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5339,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6043,"ide_methods.bas");}while(r); } -S_39554:; +S_42121:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5340,"ide_methods.bas");if(r)goto S_39554;} -S_39555:; +if(qbevent){evnt(26307,6044,"ide_methods.bas");if(r)goto S_42121;} +S_42122:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5341,"ide_methods.bas");if(r)goto S_39555;} +if(qbevent){evnt(26307,6045,"ide_methods.bas");if(r)goto S_42122;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5342,"ide_methods.bas");}while(r); -S_39557:; +if(!qbevent)break;evnt(26307,6046,"ide_methods.bas");}while(r); +S_42124:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5343,"ide_methods.bas");if(r)goto S_39557;} +if(qbevent){evnt(26307,6047,"ide_methods.bas");if(r)goto S_42124;} do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVEAS(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4530= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5344,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6048,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVEAS(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4531= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5346,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6050,"ide_methods.bas");}while(r); } -S_39562:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5348,"ide_methods.bas");if(r)goto S_39562;} do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5349,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6052,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5349,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6052,"ide_methods.bas");}while(r); +S_42131:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,6053,"ide_methods.bas");if(r)goto S_42131;} do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5349,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5349,"ide_methods.bas");}while(r); +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,6053,"ide_methods.bas");}while(r); +} +S_42134:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26307,6054,"ide_methods.bas");if(r)goto S_42134;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5349,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6054,"ide_methods.bas");}while(r); } }else{ do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5352,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6056,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6061,"ide_methods.bas");}while(r); do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6061,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6061,"ide_methods.bas");}while(r); do{ if (sub_gl_called) error(271); close_program=1; end(); -if(!qbevent)break;evnt(25066,5358,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6062,"ide_methods.bas");}while(r); } -S_39579:; +S_42147:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#New Ctrl+N",12))))||new_error){ -if(qbevent){evnt(25066,5361,"ide_methods.bas");if(r)goto S_39579;} +if(qbevent){evnt(26307,6065,"ide_methods.bas");if(r)goto S_42147;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6066,"ide_methods.bas");}while(r); LABEL_CTRLNEW:; -if(qbevent){evnt(25066,5363,"ide_methods.bas");r=0;} -S_39581:; +if(qbevent){evnt(26307,6067,"ide_methods.bas");r=0;} +S_42149:; if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ -if(qbevent){evnt(25066,5364,"ide_methods.bas");if(r)goto S_39581;} +if(qbevent){evnt(26307,6068,"ide_methods.bas");if(r)goto S_42149;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5365,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6069,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5366,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6070,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5366,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5366,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5366,"ide_methods.bas");}while(r); -S_39587:; +if(!qbevent)break;evnt(26307,6070,"ide_methods.bas");}while(r); +S_42153:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5367,"ide_methods.bas");if(r)goto S_39587;} +if(qbevent){evnt(26307,6071,"ide_methods.bas");if(r)goto S_42153;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5367,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6071,"ide_methods.bas");}while(r); } -S_39590:; +S_42156:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5368,"ide_methods.bas");if(r)goto S_39590;} -S_39591:; +if(qbevent){evnt(26307,6072,"ide_methods.bas");if(r)goto S_42156;} +S_42157:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5369,"ide_methods.bas");if(r)goto S_39591;} +if(qbevent){evnt(26307,6073,"ide_methods.bas");if(r)goto S_42157;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5370,"ide_methods.bas");}while(r); -S_39593:; +if(!qbevent)break;evnt(26307,6074,"ide_methods.bas");}while(r); +S_42159:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5371,"ide_methods.bas");if(r)goto S_39593;} +if(qbevent){evnt(26307,6075,"ide_methods.bas");if(r)goto S_42159;} do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVEAS(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4532= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5372,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6076,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVEAS(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4533= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5374,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6078,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5376,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6080,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5376,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6080,"ide_methods.bas");}while(r); +S_42166:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,6081,"ide_methods.bas");if(r)goto S_42166;} do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5376,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5376,"ide_methods.bas");}while(r); -S_39602:; +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,6081,"ide_methods.bas");}while(r); +} +S_42169:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5377,"ide_methods.bas");if(r)goto S_39602;} +if(qbevent){evnt(26307,6082,"ide_methods.bas");if(r)goto S_42169;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5377,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6082,"ide_methods.bas");}while(r); } }else{ do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5379,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6084,"ide_methods.bas");}while(r); } } } do{ *__LONG_IDEUNSAVED= -1 ; -if(!qbevent)break;evnt(25066,5383,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6088,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=( 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(26307,6090,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=( 1 )-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,6091,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6092,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6093,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,6093,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6094,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6095,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6096,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26307,6096,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6097,"ide_methods.bas");}while(r); do{ *__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(25066,5385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6097,"ide_methods.bas");}while(r); do{ *__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(25066,5385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6097,"ide_methods.bas");}while(r); do{ *__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(25066,5385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6097,"ide_methods.bas");}while(r); do{ *__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(25066,5385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6097,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,5386,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6098,"ide_methods.bas");}while(r); do{ *__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(25066,5387,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6099,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,5388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6100,"ide_methods.bas");}while(r); do{ *__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,5389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6101,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,5390,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6102,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5391,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6103,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5392,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6104,"ide_methods.bas");}while(r); do{ *__LONG_QUICKNAVTOTAL= 0 ; -if(!qbevent)break;evnt(25066,5393,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6105,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5394,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6106,"ide_methods.bas");}while(r); do{ -sub__title(qbs_new_txt_len("QB64",4)); +sub__title(__STRING_WINDOWTITLE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5395,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6107,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,6108,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,5396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6109,"ide_methods.bas");}while(r); do{ *__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(25066,5397,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6110,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= 0 ; -if(!qbevent)break;evnt(25066,5398,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6111,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5399,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6112,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; -if(!qbevent)break;evnt(25066,5402,"ide_methods.bas");}while(r); -S_39632:; -fornext_value4427= 1 ; -fornext_finalvalue4427= 4 ; -fornext_step4427= 1 ; -if (fornext_step4427<0) fornext_step_negative4427=1; else fornext_step_negative4427=0; -if (new_error) goto fornext_error4427; -goto fornext_entrylabel4427; +if(!qbevent)break;evnt(26307,6115,"ide_methods.bas");}while(r); +S_42209:; +fornext_value4535= 1 ; +fornext_finalvalue4535=func_ubound(__ARRAY_STRING_IDERECENTLINK, 1 ,2); +fornext_step4535= 1 ; +if (fornext_step4535<0) fornext_step_negative4535=1; else fornext_step_negative4535=0; +if (new_error) goto fornext_error4535; +goto fornext_entrylabel4535; while(1){ -fornext_value4427=fornext_step4427+(*_FUNC_IDE2_LONG_ML); -fornext_entrylabel4427: -*_FUNC_IDE2_LONG_ML=fornext_value4427; -if (fornext_step_negative4427){ -if (fornext_value4427fornext_finalvalue4427) break; +if (fornext_value4535>fornext_finalvalue4535) break; } -fornext_error4427:; -if(qbevent){evnt(25066,5403,"ide_methods.bas");if(r)goto S_39632;} -S_39633:; +fornext_error4535:; +if(qbevent){evnt(26307,6116,"ide_methods.bas");if(r)goto S_42209;} +S_42210:; if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))->len))||new_error){ -if(qbevent){evnt(25066,5404,"ide_methods.bas");if(r)goto S_39633;} -S_39634:; +if(qbevent){evnt(26307,6117,"ide_methods.bas");if(r)goto S_42210;} +S_42211:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]])))))||new_error){ -if(qbevent){evnt(25066,5405,"ide_methods.bas");if(r)goto S_39634;} +if(qbevent){evnt(26307,6118,"ide_methods.bas");if(r)goto S_42211;} do{ qbs_set(__STRING_IDEOPENFILE,((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5406,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6119,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; -if(!qbevent)break;evnt(25066,5407,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6120,"ide_methods.bas");}while(r); do{ goto LABEL_DIRECTOPEN; -if(!qbevent)break;evnt(25066,5408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6121,"ide_methods.bas");}while(r); } } -fornext_continue_4426:; +fornext_continue_4534:; } -fornext_exit_4426:; -S_39641:; +fornext_exit_4534:; +S_42218:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Recent...",10))))||new_error){ -if(qbevent){evnt(25066,5414,"ide_methods.bas");if(r)goto S_39641;} +if(qbevent){evnt(26307,6127,"ide_methods.bas");if(r)goto S_42218;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5415,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6128,"ide_methods.bas");}while(r); LABEL_IDESHOWRECENTBOX:; -if(qbevent){evnt(25066,5416,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,6129,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDERECENTBOX()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5417,"ide_methods.bas");}while(r); -S_39644:; +if(!qbevent)break;evnt(26307,6130,"ide_methods.bas");}while(r); +S_42221:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3))))||new_error){ -if(qbevent){evnt(25066,5418,"ide_methods.bas");if(r)goto S_39644;} +if(qbevent){evnt(26307,6131,"ide_methods.bas");if(r)goto S_42221;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5419,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6132,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("FILES",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5420,"ide_methods.bas");}while(r); -S_39647:; +if(!qbevent)break;evnt(26307,6133,"ide_methods.bas");}while(r); +S_42224:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5421,"ide_methods.bas");if(r)goto S_39647;} +if(qbevent){evnt(26307,6134,"ide_methods.bas");if(r)goto S_42224;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5422,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6135,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5423,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6136,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5423,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6136,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(25066,5424,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6137,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5425,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6138,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5425,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5425,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5425,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6138,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5426,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6139,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_IDESHOWRECENTBOX; -if(!qbevent)break;evnt(25066,5428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6141,"ide_methods.bas");}while(r); } -S_39660:; +S_42235:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3)))){ -if(qbevent){evnt(25066,5430,"ide_methods.bas");if(r)goto S_39660;} +if(qbevent){evnt(26307,6143,"ide_methods.bas");if(r)goto S_42235;} do{ -return_point[next_return_point++]=44; +return_point[next_return_point++]=47; if (next_return_point>=return_points) more_return_points(); goto LABEL_CLEANUPRECENTLIST; -RETURN_44:; -if(!qbevent)break;evnt(25066,5431,"ide_methods.bas");}while(r); +RETURN_47:; +if(!qbevent)break;evnt(26307,6144,"ide_methods.bas");}while(r); do{ goto LABEL_IDESHOWRECENTBOX; -if(!qbevent)break;evnt(25066,5432,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6145,"ide_methods.bas");}while(r); } } -S_39664:; +S_42239:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ -if(qbevent){evnt(25066,5434,"ide_methods.bas");if(r)goto S_39664;} +if(qbevent){evnt(26307,6147,"ide_methods.bas");if(r)goto S_42239;} do{ qbs_set(__STRING_IDEOPENFILE,_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6148,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; -if(!qbevent)break;evnt(25066,5436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6149,"ide_methods.bas");}while(r); do{ goto LABEL_DIRECTOPEN; -if(!qbevent)break;evnt(25066,5437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6150,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6152,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5439,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5439,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6152,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5440,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6153,"ide_methods.bas");}while(r); } -S_39675:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear #Recent...",16))))||new_error){ -if(qbevent){evnt(25066,5443,"ide_methods.bas");if(r)goto S_39675;} +S_42248:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Clear Recent...",16))))||new_error){ +if(qbevent){evnt(26307,6156,"ide_methods.bas");if(r)goto S_42248;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5444,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6157,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("FILES",5))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5445,"ide_methods.bas");}while(r); -S_39678:; +if(!qbevent)break;evnt(26307,6158,"ide_methods.bas");}while(r); +S_42251:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5446,"ide_methods.bas");if(r)goto S_39678;} +if(qbevent){evnt(26307,6159,"ide_methods.bas");if(r)goto S_42251;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6160,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5448,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6161,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5448,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6161,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(25066,5449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6162,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6163,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5450,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5450,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6163,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6164,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6166,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5453,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5453,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6166,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5454,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6167,"ide_methods.bas");}while(r); } -S_39695:; +S_42264:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Open... Ctrl+O",16))))||new_error){ -if(qbevent){evnt(25066,5457,"ide_methods.bas");if(r)goto S_39695;} +if(qbevent){evnt(26307,6170,"ide_methods.bas");if(r)goto S_42264;} do{ qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5458,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6171,"ide_methods.bas");}while(r); LABEL_DIRECTOPEN:; -if(qbevent){evnt(25066,5459,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,6172,"ide_methods.bas");r=0;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6173,"ide_methods.bas");}while(r); LABEL_CTRLOPEN:; -if(qbevent){evnt(25066,5461,"ide_methods.bas");r=0;} -S_39698:; +if(qbevent){evnt(26307,6174,"ide_methods.bas");r=0;} +S_42267:; if ((*__LONG_IDEUNSAVED)||new_error){ -if(qbevent){evnt(25066,5462,"ide_methods.bas");if(r)goto S_39698;} +if(qbevent){evnt(26307,6175,"ide_methods.bas");if(r)goto S_42267;} do{ qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5463,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6176,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5464,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6177,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5464,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5464,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5464,"ide_methods.bas");}while(r); -S_39704:; +if(!qbevent)break;evnt(26307,6177,"ide_methods.bas");}while(r); +S_42271:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5465,"ide_methods.bas");if(r)goto S_39704;} +if(qbevent){evnt(26307,6178,"ide_methods.bas");if(r)goto S_42271;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5465,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6178,"ide_methods.bas");}while(r); } -S_39707:; +S_42274:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,5466,"ide_methods.bas");if(r)goto S_39707;} -S_39708:; +if(qbevent){evnt(26307,6179,"ide_methods.bas");if(r)goto S_42274;} +S_42275:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5467,"ide_methods.bas");if(r)goto S_39708;} +if(qbevent){evnt(26307,6180,"ide_methods.bas");if(r)goto S_42275;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5468,"ide_methods.bas");}while(r); -S_39710:; +if(!qbevent)break;evnt(26307,6181,"ide_methods.bas");}while(r); +S_42277:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5469,"ide_methods.bas");if(r)goto S_39710;} +if(qbevent){evnt(26307,6182,"ide_methods.bas");if(r)goto S_42277;} do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVEAS(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4538= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5470,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6183,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVEAS(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4539= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5472,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6185,"ide_methods.bas");}while(r); } -S_39715:; +S_42282:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,6187,"ide_methods.bas");if(r)goto S_42282;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,6187,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,6187,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,6187,"ide_methods.bas");}while(r); +} +S_42287:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5474,"ide_methods.bas");if(r)goto S_39715;} +if(qbevent){evnt(26307,6188,"ide_methods.bas");if(r)goto S_42287;} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6188,"ide_methods.bas");}while(r); } }else{ do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5476,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6190,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6192,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5478,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5478,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6192,"ide_methods.bas");}while(r); } } do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEOPEN()); +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_new_txt_len("",0),&(pass4540= 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5481,"ide_methods.bas");}while(r); -S_39728:; +if(!qbevent)break;evnt(26307,6195,"ide_methods.bas");}while(r); +S_42298:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,6196,"ide_methods.bas");if(r)goto S_42298;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,6196,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,6196,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,6196,"ide_methods.bas");}while(r); +} +S_42303:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,5482,"ide_methods.bas");if(r)goto S_39728;} +if(qbevent){evnt(26307,6197,"ide_methods.bas");if(r)goto S_42303;} do{ *__LONG_IDEUNSAVED= -1 ; -if(!qbevent)break;evnt(25066,5482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,5482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); do{ *__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(25066,5482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= 0 ; -if(!qbevent)break;evnt(25066,5482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); do{ *__LONG_QUICKNAVTOTAL= 0 ; -if(!qbevent)break;evnt(25066,5482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,6197,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5483,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6198,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5483,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6198,"ide_methods.bas");}while(r); do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5483,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5483,"ide_methods.bas");}while(r); +return_point[next_return_point++]=48; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_48:; +if(!qbevent)break;evnt(26307,6199,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5483,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6199,"ide_methods.bas");}while(r); } -S_39742:; +S_42318:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Save Ctrl+S",13))))||new_error){ -if(qbevent){evnt(25066,5486,"ide_methods.bas");if(r)goto S_39742;} +if(qbevent){evnt(26307,6202,"ide_methods.bas");if(r)goto S_42318;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5487,"ide_methods.bas");}while(r); -S_39744:; +if(!qbevent)break;evnt(26307,6203,"ide_methods.bas");}while(r); +S_42320:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5488,"ide_methods.bas");if(r)goto S_39744;} +if(qbevent){evnt(26307,6204,"ide_methods.bas");if(r)goto S_42320;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5489,"ide_methods.bas");}while(r); -S_39746:; +if(!qbevent)break;evnt(26307,6205,"ide_methods.bas");}while(r); +S_42322:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5490,"ide_methods.bas");if(r)goto S_39746;} +if(qbevent){evnt(26307,6206,"ide_methods.bas");if(r)goto S_42322;} do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4541= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5491,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6207,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4542= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5493,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6209,"ide_methods.bas");}while(r); +} +S_42327:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,6211,"ide_methods.bas");if(r)goto S_42327;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,6211,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,6211,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,6211,"ide_methods.bas");}while(r); } }else{ do{ SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5496,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6213,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5498,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6215,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5498,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5498,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5498,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6215,"ide_methods.bas");}while(r); do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5498,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6215,"ide_methods.bas");}while(r); } -S_39760:; +S_42339:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Save #As...",11))))||new_error){ -if(qbevent){evnt(25066,5502,"ide_methods.bas");if(r)goto S_39760;} +if(qbevent){evnt(26307,6219,"ide_methods.bas");if(r)goto S_42339;} do{ sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(25066,5503,"ide_methods.bas");}while(r); -S_39762:; +if(!qbevent)break;evnt(26307,6220,"ide_methods.bas");}while(r); +S_42341:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5504,"ide_methods.bas");if(r)goto S_39762;} +if(qbevent){evnt(26307,6221,"ide_methods.bas");if(r)goto S_42341;} do{ qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5505,"ide_methods.bas");}while(r); -S_39764:; +if(!qbevent)break;evnt(26307,6222,"ide_methods.bas");}while(r); +S_42343:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5506,"ide_methods.bas");if(r)goto S_39764;} +if(qbevent){evnt(26307,6223,"ide_methods.bas");if(r)goto S_42343;} do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4543= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5507,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6224,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)))); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4544= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6226,"ide_methods.bas");}while(r); } }else{ do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDESAVEAS(__STRING_IDEPROGNAME)); +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(__STRING_IDEPROGNAME,&(pass4545= 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6229,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,5514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6231,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6231,"ide_methods.bas");}while(r); +S_42353:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,6232,"ide_methods.bas");if(r)goto S_42353;} do{ -SUB_IDEWAIT4MOUS(); -if(!qbevent)break;evnt(25066,5514,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT4ALT(); -if(!qbevent)break;evnt(25066,5514,"ide_methods.bas");}while(r); +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26307,6232,"ide_methods.bas");}while(r); +} do{ goto LABEL_IDELOOP; -if(!qbevent)break;evnt(25066,5514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6233,"ide_methods.bas");}while(r); } -S_39778:; +S_42358:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(25066,5517,"ide_methods.bas");if(r)goto S_39778;} +if(qbevent){evnt(26307,6236,"ide_methods.bas");if(r)goto S_42358;} do{ -goto dl_continue_4291; -if(!qbevent)break;evnt(25066,5518,"ide_methods.bas");}while(r); +goto dl_continue_4377; +if(!qbevent)break;evnt(26307,6237,"ide_methods.bas");}while(r); } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5521,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6240,"ide_methods.bas");}while(r); do{ sub_cls(NULL,NULL,0); -if(!qbevent)break;evnt(25066,5522,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6241,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("MENU ITEM [",11),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len("] NOT IMPLEMENTED!",18))); -if (new_error) goto skip4430; +if (new_error) goto skip4546; makefit(tqbs); qbs_print(tqbs,0); qbs_print(nothingstring,1); -skip4430: +skip4546: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5522,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6241,"ide_methods.bas");}while(r); do{ sub_end(); -if(!qbevent)break;evnt(25066,5522,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6241,"ide_methods.bas");}while(r); } do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,5526,"ide_methods.bas");}while(r); -dl_continue_4291:; +if(!qbevent)break;evnt(26307,6245,"ide_methods.bas");}while(r); +dl_continue_4377:; }while(1); -dl_exit_4291:; +dl_exit_4377:; do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,5531,"ide_methods.bas");}while(r); -LABEL_UPDATETITLEOFMAINWINDOW:; -if(qbevent){evnt(25066,5532,"ide_methods.bas");r=0;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5533,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate( 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5533,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string(*__LONG_IDEWX- 2 ,(func_chr( 196 )->chr[0]))); -if (new_error) goto skip4431; -makefit(tqbs); -qbs_print(tqbs,0); -skip4431: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5533,"ide_methods.bas");}while(r); -S_39792:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(25066,5534,"ide_methods.bas");if(r)goto S_39792;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5534,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5534,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_new_txt_len(" ",1),_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5535,"ide_methods.bas");}while(r); -S_39798:; -if ((*__LONG_IDEUNSAVED)||new_error){ -if(qbevent){evnt(25066,5536,"ide_methods.bas");if(r)goto S_39798;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5536,"ide_methods.bas");}while(r); -} -S_39801:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_SFNAME->len> 0 )))||new_error){ -if(qbevent){evnt(25066,5537,"ide_methods.bas");if(r)goto S_39801;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(":",1)),_FUNC_IDE2_STRING_SFNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5537,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5538,"ide_methods.bas");}while(r); -S_39805:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)>(*__LONG_IDEWX- 5 ))))||new_error){ -if(qbevent){evnt(25066,5539,"ide_methods.bas");if(r)goto S_39805;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDEWX- 11 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5539,"ide_methods.bas");}while(r); -} -S_39808:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(25066,5540,"ide_methods.bas");if(r)goto S_39808;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,5540,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5540,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate( 2 ,qbr((((*__LONG_IDEWX/ ((long double)( 2 )))- 1 ))-((_FUNC_IDE2_STRING_A->len- 1 )/ 2 )),NULL,NULL,NULL,3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5541,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDE2_STRING_A); -if (new_error) goto skip4436; -makefit(tqbs); -qbs_print(tqbs,0); -skip4436: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5541,"ide_methods.bas");}while(r); -do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,5542,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6250,"ide_methods.bas");}while(r); LABEL_DRAWQUICKNAV:; -if(qbevent){evnt(25066,5544,"ide_methods.bas");r=0;} -S_39816:; +if(qbevent){evnt(26307,6251,"ide_methods.bas");r=0;} +S_42369:; if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 )))||new_error){ -if(qbevent){evnt(25066,5545,"ide_methods.bas");if(r)goto S_39816;} -do{ -qbg_sub_locate( 2 , 4 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5546,"ide_methods.bas");}while(r); +if(qbevent){evnt(26307,6252,"ide_methods.bas");if(r)goto S_42369;} do{ qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,5547,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6253,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1))); -if (new_error) goto skip4437; -makefit(tqbs); -qbs_print(tqbs,0); -skip4437: -qbs_free(tqbs); +sub__printstring( 4 , 2 ,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5548,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6254,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5550,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6256,"ide_methods.bas");}while(r); do{ -qbg_sub_locate( 2 , 4 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5551,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 3 , 196 )); -if (new_error) goto skip4438; -makefit(tqbs); -qbs_print(tqbs,0); -skip4438: -qbs_free(tqbs); +sub__printstring( 4 , 2 ,func_string( 3 , 196 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5552,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6257,"ide_methods.bas");}while(r); } do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,5554,"ide_methods.bas");}while(r); +#include "ret132.txt" +if(!qbevent)break;evnt(26307,6259,"ide_methods.bas");}while(r); LABEL_UPDATESEARCHBAR:; -if(qbevent){evnt(25066,5556,"ide_methods.bas");r=0;} -do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX-( 20 + 10 ),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5557,"ide_methods.bas");}while(r); +if(qbevent){evnt(26307,6261,"ide_methods.bas");r=0;} do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6262,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 180 )); -if (new_error) goto skip4439; -makefit(tqbs); -qbs_print(tqbs,0); -skip4439: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5558,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6262,"ide_methods.bas");}while(r); do{ qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5559,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6263,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Find",4)); -if (new_error) goto skip4440; -makefit(tqbs); -qbs_print(tqbs,0); -skip4440: -qbs_free(tqbs); +sub__printstring( 1 +*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find[",5),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5560,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("[",1),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1))); -if (new_error) goto skip4441; -makefit(tqbs); -qbs_print(tqbs,0); -skip4441: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5561,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6264,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5562,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6265,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 195 )); -if (new_error) goto skip4442; -makefit(tqbs); -qbs_print(tqbs,0); -skip4442: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX- 2 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5562,"ide_methods.bas");}while(r); -S_39834:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,5565,"ide_methods.bas");if(r)goto S_39834;} +if(!qbevent)break;evnt(26307,6265,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,6268,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_string( 14 , 196 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6269,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX-_FUNC_IDE2_STRING_A->len)/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6270,"ide_methods.bas");}while(r); +S_42386:; +if ((*__LONG_IDEDEBUGMODE)||new_error){ +if(qbevent){evnt(26307,6271,"ide_methods.bas");if(r)goto S_42386;} do{ qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,5565,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6272,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" $DEBUG MODE ",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6273,"ide_methods.bas");}while(r); +}else{ +S_42390:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26307,6275,"ide_methods.bas");if(r)goto S_42390;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,6275,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5565,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6275,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,qbr((*__LONG_IDEWX- 8 )/ ((long double)( 2 ))),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5566,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Status ",8)); -if (new_error) goto skip4443; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4443: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" Status ",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5566,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6276,"ide_methods.bas");}while(r); +} +do{ +sub__printstring((*__LONG_IDEWX-_FUNC_IDE2_STRING_A->len)/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6278,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5568,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6280,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_TX= 1 ; -if(!qbevent)break;evnt(25066,5569,"ide_methods.bas");}while(r); -S_39843:; +if(!qbevent)break;evnt(26307,6281,"ide_methods.bas");}while(r); +S_42400:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ -if(qbevent){evnt(25066,5570,"ide_methods.bas");if(r)goto S_39843;} -S_39844:; +if(qbevent){evnt(26307,6282,"ide_methods.bas");if(r)goto S_42400;} +S_42401:; if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(25066,5571,"ide_methods.bas");if(r)goto S_39844;} +if(qbevent){evnt(26307,6283,"ide_methods.bas");if(r)goto S_42401;} do{ *_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 + 1 ; -if(!qbevent)break;evnt(25066,5572,"ide_methods.bas");}while(r); -S_39846:; +if(!qbevent)break;evnt(26307,6284,"ide_methods.bas");}while(r); +S_42403:; if ((-(*_FUNC_IDE2_LONG_TX< 1 ))||new_error){ -if(qbevent){evnt(25066,5573,"ide_methods.bas");if(r)goto S_39846;} +if(qbevent){evnt(26307,6285,"ide_methods.bas");if(r)goto S_42403;} do{ *_FUNC_IDE2_LONG_TX= 1 ; -if(!qbevent)break;evnt(25066,5573,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6285,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_TX, 20 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5574,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6286,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_left(_FUNC_IDE2_STRING_A, 20 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5576,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6288,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(25066,5580,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6292,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(25066,5580,"ide_methods.bas");}while(r); -S_39856:; +if(!qbevent)break;evnt(26307,6292,"ide_methods.bas");}while(r); +S_42413:; if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,5581,"ide_methods.bas");if(r)goto S_39856;} +if(qbevent){evnt(26307,6293,"ide_methods.bas");if(r)goto S_42413;} do{ swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(25066,5581,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6293,"ide_methods.bas");}while(r); } do{ *_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 2 ; -if(!qbevent)break;evnt(25066,5583,"ide_methods.bas");}while(r); -S_39860:; +if(!qbevent)break;evnt(26307,6295,"ide_methods.bas");}while(r); +S_42417:; if (((-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 ))|(-(*__LONG_IDESYSTEM!= 2 )))||new_error){ -if(qbevent){evnt(25066,5585,"ide_methods.bas");if(r)goto S_39860;} +if(qbevent){evnt(26307,6297,"ide_methods.bas");if(r)goto S_42417;} do{ qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6298,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX-( 20 + 8 )+ 4 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5587,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDE2_STRING_A); -if (new_error) goto skip4445; -makefit(tqbs); -qbs_print(tqbs,0); -skip4445: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 ,*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5587,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6299,"ide_methods.bas");}while(r); }else{ -S_39865:; -fornext_value4447= 1 ; -fornext_finalvalue4447=_FUNC_IDE2_STRING_A->len; -fornext_step4447= 1 ; -if (fornext_step4447<0) fornext_step_negative4447=1; else fornext_step_negative4447=0; -if (new_error) goto fornext_error4447; -goto fornext_entrylabel4447; +S_42421:; +fornext_value4551= 1 ; +fornext_finalvalue4551=_FUNC_IDE2_STRING_A->len; +fornext_step4551= 1 ; +if (fornext_step4551<0) fornext_step_negative4551=1; else fornext_step_negative4551=0; +if (new_error) goto fornext_error4551; +goto fornext_entrylabel4551; while(1){ -fornext_value4447=fornext_step4447+(*_FUNC_IDE2_LONG_COLORCHAR); -fornext_entrylabel4447: -*_FUNC_IDE2_LONG_COLORCHAR=fornext_value4447; +fornext_value4551=fornext_step4551+(*_FUNC_IDE2_LONG_COLORCHAR); +fornext_entrylabel4551: +*_FUNC_IDE2_LONG_COLORCHAR=fornext_value4551; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4447){ -if (fornext_value4447fornext_finalvalue4447) break; +if (fornext_value4551>fornext_finalvalue4551) break; } -fornext_error4447:; -if(qbevent){evnt(25066,5589,"ide_methods.bas");if(r)goto S_39865;} -S_39866:; +fornext_error4551:; +if(qbevent){evnt(26307,6301,"ide_methods.bas");if(r)goto S_42421;} +S_42422:; if (((-((*_FUNC_IDE2_LONG_COLORCHAR+*_FUNC_IDE2_LONG_TX- 2 )>=*_FUNC_IDE2_LONG_SX1))&(-((*_FUNC_IDE2_LONG_COLORCHAR+*_FUNC_IDE2_LONG_TX- 2 )<*_FUNC_IDE2_LONG_SX2)))||new_error){ -if(qbevent){evnt(25066,5590,"ide_methods.bas");if(r)goto S_39866;} +if(qbevent){evnt(26307,6302,"ide_methods.bas");if(r)goto S_42422;} do{ qbg_sub_color( 1 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,5590,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6302,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5590,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6302,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX-( 20 + 8 )+ 4 - 1 +*_FUNC_IDE2_LONG_COLORCHAR,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5591,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_COLORCHAR, 1 ,1)); -if (new_error) goto skip4449; -makefit(tqbs); -qbs_print(tqbs,0); -skip4449: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 - 1 +*_FUNC_IDE2_LONG_COLORCHAR,*__LONG_IDEWY- 4 ,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_COLORCHAR, 1 ,1),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5592,"ide_methods.bas");}while(r); -fornext_continue_4446:; +if(!qbevent)break;evnt(26307,6303,"ide_methods.bas");}while(r); +fornext_continue_4550:; } -fornext_exit_4446:; +fornext_exit_4550:; } do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,5595,"ide_methods.bas");}while(r); +#include "ret132.txt" +if(!qbevent)break;evnt(26307,6306,"ide_methods.bas");}while(r); LABEL_CLEANUPRECENTLIST:; -if(qbevent){evnt(25066,5597,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,6308,"ide_methods.bas");r=0;} do{ qbs_set(_FUNC_IDE2_STRING_L,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5598,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6309,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_LN= 0 ; -if(!qbevent)break;evnt(25066,5598,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6309,"ide_methods.bas");}while(r); do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ @@ -141390,65 +146919,65 @@ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_lo while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(25066,5599,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6310,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6311,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6312,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,func_space(func_lof(*_FUNC_IDE2_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6312,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDE2_LONG_FH,NULL,_FUNC_IDE2_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6312,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6313,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5603,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6314,"ide_methods.bas");}while(r); do{ *_FUNC_IDE2_LONG_FOUNDBROKENLINK= 0 ; -if(!qbevent)break;evnt(25066,5604,"ide_methods.bas");}while(r); -S_39886:; +if(!qbevent)break;evnt(26307,6315,"ide_methods.bas");}while(r); +S_42441:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,5605,"ide_methods.bas");if(r)goto S_39886;} +if(qbevent){evnt(26307,6316,"ide_methods.bas");if(r)goto S_42441;} do{ *_FUNC_IDE2_LONG_AI=func_instr(NULL,_FUNC_IDE2_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5606,"ide_methods.bas");}while(r); -S_39888:; +if(!qbevent)break;evnt(26307,6317,"ide_methods.bas");}while(r); +S_42443:; if ((*_FUNC_IDE2_LONG_AI)||new_error){ -if(qbevent){evnt(25066,5607,"ide_methods.bas");if(r)goto S_39888;} +if(qbevent){evnt(26307,6318,"ide_methods.bas");if(r)goto S_42443;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5608,"ide_methods.bas");}while(r); -S_39890:; +if(!qbevent)break;evnt(26307,6319,"ide_methods.bas");}while(r); +S_42445:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_AI==(_FUNC_IDE2_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(25066,5608,"ide_methods.bas");if(r)goto S_39890;} +if(qbevent){evnt(26307,6319,"ide_methods.bas");if(r)goto S_42445;} do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5608,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6319,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5608,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6319,"ide_methods.bas");}while(r); } -S_39895:; +S_42450:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ -if(qbevent){evnt(25066,5609,"ide_methods.bas");if(r)goto S_39895;} +if(qbevent){evnt(26307,6320,"ide_methods.bas");if(r)goto S_42450;} do{ *_FUNC_IDE2_LONG_LN=*_FUNC_IDE2_LONG_LN+ 1 ; -if(!qbevent)break;evnt(25066,5610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6321,"ide_methods.bas");}while(r); do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ @@ -141493,86 +147022,86 @@ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_lo } } } -if(!qbevent)break;evnt(25066,5611,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6322,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4],_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long])),_FUNC_IDE2_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5612,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6323,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDE2_LONG_FOUNDBROKENLINK= -1 ; -if(!qbevent)break;evnt(25066,5614,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6325,"ide_methods.bas");}while(r); } } -dl_continue_4452:; +dl_continue_4555:; } -dl_exit_4452:; -S_39904:; +dl_exit_4555:; +S_42459:; if ((~(*_FUNC_IDE2_LONG_FOUNDBROKENLINK))||new_error){ -if(qbevent){evnt(25066,5619,"ide_methods.bas");if(r)goto S_39904;} +if(qbevent){evnt(26307,6330,"ide_methods.bas");if(r)goto S_42459;} do{ -SUB_IDEERRORMESSAGE(qbs_new_txt_len("All files in the list are accessible.",37)); +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Remove Broken Links",19),qbs_new_txt_len("All files in the list are accessible.",37),qbs_new_txt_len("#OK",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5620,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6331,"ide_methods.bas");}while(r); } -S_39907:; +S_42462:; if (((-(*_FUNC_IDE2_LONG_LN> 0 ))&*_FUNC_IDE2_LONG_FOUNDBROKENLINK)||new_error){ -if(qbevent){evnt(25066,5623,"ide_methods.bas");if(r)goto S_39907;} +if(qbevent){evnt(26307,6334,"ide_methods.bas");if(r)goto S_42462;} do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6335,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6336,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6336,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5626,"ide_methods.bas");}while(r); -S_39912:; -fornext_value4456= 1 ; -fornext_finalvalue4456=func_ubound(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST,1,1); -fornext_step4456= 1 ; -if (fornext_step4456<0) fornext_step_negative4456=1; else fornext_step_negative4456=0; -if (new_error) goto fornext_error4456; -goto fornext_entrylabel4456; +if(!qbevent)break;evnt(26307,6337,"ide_methods.bas");}while(r); +S_42467:; +fornext_value4559= 1 ; +fornext_finalvalue4559=func_ubound(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST,1,1); +fornext_step4559= 1 ; +if (fornext_step4559<0) fornext_step_negative4559=1; else fornext_step_negative4559=0; +if (new_error) goto fornext_error4559; +goto fornext_entrylabel4559; while(1){ -fornext_value4456=fornext_step4456+(*_FUNC_IDE2_LONG_LN); -fornext_entrylabel4456: -*_FUNC_IDE2_LONG_LN=fornext_value4456; +fornext_value4559=fornext_step4559+(*_FUNC_IDE2_LONG_LN); +fornext_entrylabel4559: +*_FUNC_IDE2_LONG_LN=fornext_value4559; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4456){ -if (fornext_value4456fornext_finalvalue4456) break; +if (fornext_value4559>fornext_finalvalue4559) break; } -fornext_error4456:; -if(qbevent){evnt(25066,5627,"ide_methods.bas");if(r)goto S_39912;} +fornext_error4559:; +if(qbevent){evnt(26307,6338,"ide_methods.bas");if(r)goto S_42467;} do{ qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_F,__STRING_CRLF),((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[array_check((*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4],_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5])]))),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5628,"ide_methods.bas");}while(r); -fornext_continue_4455:; +if(!qbevent)break;evnt(26307,6339,"ide_methods.bas");}while(r); +fornext_continue_4558:; } -fornext_exit_4455:; +fornext_exit_4558:; do{ *_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5630,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6341,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5631,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6342,"ide_methods.bas");}while(r); do{ -sub_put2(*_FUNC_IDE2_LONG_FH, 1 ,byte_element((uint64)_FUNC_IDE2_STRING_F->chr,_FUNC_IDE2_STRING_F->len,byte_element_4457),1); +sub_put2(*_FUNC_IDE2_LONG_FH, 1 ,byte_element((uint64)_FUNC_IDE2_STRING_F->chr,_FUNC_IDE2_STRING_F->len,byte_element_4560),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6343,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(25066,5633,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6344,"ide_methods.bas");}while(r); } do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ @@ -141594,349 +147123,13946 @@ _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=0; _FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]=(ptrszint)¬hingstring; } } -if(!qbevent)break;evnt(25066,5636,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6347,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(25066,5637,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6348,"ide_methods.bas");}while(r); do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,5638,"ide_methods.bas");}while(r); +#include "ret132.txt" +if(!qbevent)break;evnt(26307,6349,"ide_methods.bas");}while(r); LABEL_REDRAWITALL:; -if(qbevent){evnt(25066,5640,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,6351,"ide_methods.bas");r=0;} do{ qbs_set(__STRING_MENUBAR,qbs_new_txt_len(" ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6352,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5642,"ide_methods.bas");}while(r); -S_39925:; -fornext_value4459= 1 ; -fornext_finalvalue4459=*__INTEGER_MENUS- 1 ; -fornext_step4459= 1 ; -if (fornext_step4459<0) fornext_step_negative4459=1; else fornext_step_negative4459=0; -if (new_error) goto fornext_error4459; -goto fornext_entrylabel4459; +if(!qbevent)break;evnt(26307,6353,"ide_methods.bas");}while(r); +S_42480:; +fornext_value4562= 1 ; +fornext_finalvalue4562=*__INTEGER_MENUS- 1 ; +fornext_step4562= 1 ; +if (fornext_step4562<0) fornext_step_negative4562=1; else fornext_step_negative4562=0; +if (new_error) goto fornext_error4562; +goto fornext_entrylabel4562; while(1){ -fornext_value4459=fornext_step4459+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4459: -*_FUNC_IDE2_LONG_I=fornext_value4459; -if (fornext_step_negative4459){ -if (fornext_value4459fornext_finalvalue4459) break; +if (fornext_value4562>fornext_finalvalue4562) break; } -fornext_error4459:; -if(qbevent){evnt(25066,5643,"ide_methods.bas");if(r)goto S_39925;} +fornext_error4562:; +if(qbevent){evnt(26307,6354,"ide_methods.bas");if(r)goto S_42480;} do{ qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_add(_FUNC_IDE2_STRING_MENULOCATIONS,i2string(__STRING_MENUBAR->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5644,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6355,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_MENUBAR,qbs_add(qbs_add(__STRING_MENUBAR,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5645,"ide_methods.bas");}while(r); -fornext_continue_4458:; +if(!qbevent)break;evnt(26307,6356,"ide_methods.bas");}while(r); +fornext_continue_4561:; } -fornext_exit_4458:; +fornext_exit_4561:; do{ qbs_set(__STRING_MENUBAR,qbs_add(__STRING_MENUBAR,func_space(*__LONG_IDEWX-__STRING_MENUBAR->len-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5647,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6358,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_add(_FUNC_IDE2_STRING_MENULOCATIONS,i2string(__STRING_MENUBAR->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6359,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_MENUBAR,qbs_add(qbs_add(__STRING_MENUBAR,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5649,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6360,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5652,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6363,"ide_methods.bas");}while(r); do{ qbg_sub_view_print( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,1); -if(!qbevent)break;evnt(25066,5653,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6364,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(25066,5658,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6369,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,5661,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6372,"ide_methods.bas");}while(r); do{ -qbg_sub_locate( 1 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5661,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_MENUBAR); -if (new_error) goto skip4464; -makefit(tqbs); -qbs_print(tqbs,0); -skip4464: -qbs_free(tqbs); +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5661,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6372,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5662,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6373,"ide_methods.bas");}while(r); do{ -SUB_IDEBOX(&(pass4465= 1 ),&(pass4466= 2 ),__LONG_IDEWX,&(pass4467=*__LONG_IDEWY- 5 )); -if(!qbevent)break;evnt(25066,5662,"ide_methods.bas");}while(r); +SUB_IDEBOX(&(pass4567= 1 ),&(pass4568= 2 ),__LONG_IDEWX,&(pass4569=*__LONG_IDEWY- 5 )); +if(!qbevent)break;evnt(26307,6373,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5665,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6376,"ide_methods.bas");}while(r); do{ -SUB_IDEBOX(&(pass4468= 1 ),&(pass4469=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4470= 5 )); -if(!qbevent)break;evnt(25066,5665,"ide_methods.bas");}while(r); +SUB_IDEBOX(&(pass4570= 1 ),&(pass4571=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4572= 5 )); +if(!qbevent)break;evnt(26307,6376,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5667,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6378,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 4 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5667,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 195 )); -if (new_error) goto skip4471; -makefit(tqbs); -qbs_print(tqbs,0); -skip4471: -qbs_free(tqbs); +sub__printstring( 1 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5667,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6378,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5667,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 180 )); -if (new_error) goto skip4472; -makefit(tqbs); -qbs_print(tqbs,0); -skip4472: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5667,"ide_methods.bas");}while(r); -S_39947:; +if(!qbevent)break;evnt(26307,6378,"ide_methods.bas");}while(r); +S_42499:; if ((-(*__LONG_IDEHELP== 1 ))||new_error){ -if(qbevent){evnt(25066,5669,"ide_methods.bas");if(r)goto S_39947;} +if(qbevent){evnt(26307,6380,"ide_methods.bas");if(r)goto S_42499;} do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,5670,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6381,"ide_methods.bas");}while(r); do{ -SUB_IDEBOX(&(pass4473= 1 ),__LONG_IDEWY,__LONG_IDEWX,&(pass4474=*__LONG_IDESUBWINDOW+ 1 )); -if(!qbevent)break;evnt(25066,5670,"ide_methods.bas");}while(r); +SUB_IDEBOX(&(pass4573= 1 ),__LONG_IDEWY,__LONG_IDEWX,&(pass4574=*__LONG_IDESUBWINDOW+ 1 )); +if(!qbevent)break;evnt(26307,6381,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,5671,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6382,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY, 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5671,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 195 )); -if (new_error) goto skip4475; -makefit(tqbs); -qbs_print(tqbs,0); -skip4475: -qbs_free(tqbs); +sub__printstring( 1 ,*__LONG_IDEWY,func_chr( 195 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5671,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6382,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY,*__LONG_IDEWX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5671,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 180 )); -if (new_error) goto skip4476; -makefit(tqbs); -qbs_print(tqbs,0); -skip4476: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY,func_chr( 180 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5671,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6382,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,5672,"ide_methods.bas");}while(r); +qbg_sub_color( 15 , 4 ,NULL,3); +if(!qbevent)break;evnt(26307,6383,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY,*__LONG_IDEWX- 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5672,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 180 ),qbs_new_txt_len("X",1)),func_chr( 195 ))); -if (new_error) goto skip4477; -makefit(tqbs); -qbs_print(tqbs,0); -skip4477: -qbs_free(tqbs); +sub__printstring(*__LONG_IDEWX- 3 ,*__LONG_IDEWY,qbs_new_txt_len(" x ",3),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5672,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6383,"ide_methods.bas");}while(r); } do{ +return_point[next_return_point++]=49; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_49:; +if(!qbevent)break;evnt(26307,6386,"ide_methods.bas");}while(r); +do{ qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,5676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6389,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5676,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX)); -if (new_error) goto skip4478; -makefit(tqbs); -qbs_print(tqbs,0); -skip4478: -qbs_free(tqbs); +sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6389,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4479=*__LONG_IDEWY- 3 ),&(pass4480= 3 ),&(pass4481= 1 ),&(pass4482= 1 )); -if(!qbevent)break;evnt(25066,5677,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4575=*__LONG_IDEWY- 3 ),&(pass4576= 3 ),&(pass4577= 1 ),&(pass4578= 1 )); +if(!qbevent)break;evnt(26307,6390,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4483= 3 ),&(pass4484=*__LONG_IDEWY- 8 ),&(pass4485= 1 ),&(pass4486= 1 )); -if(!qbevent)break;evnt(25066,5678,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4579= 3 ),&(pass4580=*__LONG_IDEWY- 8 ),&(pass4581= 1 ),&(pass4582= 1 )); +if(!qbevent)break;evnt(26307,6391,"ide_methods.bas");}while(r); do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4487= 2 ),&(pass4488=*__LONG_IDEWY- 5 ),&(pass4489=*__LONG_IDEWX- 2 ),&(pass4490= 1 ),&(pass4491= 1 )); -if(!qbevent)break;evnt(25066,5679,"ide_methods.bas");}while(r); +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4583= 2 ),&(pass4584=*__LONG_IDEWY- 5 ),&(pass4585=*__LONG_IDEWX- 2 ),&(pass4586= 1 ),&(pass4587= 1 )); +if(!qbevent)break;evnt(26307,6392,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26307,6394,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,6396,"ide_methods.bas");}while(r); do{ sub_defseg( 0 ,1); -if(!qbevent)break;evnt(25066,5682,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6398,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,5683,"ide_methods.bas");}while(r); -S_39967:; +if(!qbevent)break;evnt(26307,6399,"ide_methods.bas");}while(r); +S_42518:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26307,6401,"ide_methods.bas");if(r)goto S_42518;} +do{ +SUB_HELP_SHOWTEXT(); +if(!qbevent)break;evnt(26307,6402,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4588= 2 ),&(pass4589=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4590=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4591=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26307,6404,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4592=*__LONG_IDEWY+ 1 ),&(pass4593=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4594=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26307,6405,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=50; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_HELPAREASHOWBACKLINKS; +RETURN_50:; +if(!qbevent)break;evnt(26307,6407,"ide_methods.bas");}while(r); +} +S_42524:; if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ -if(qbevent){evnt(25066,5685,"ide_methods.bas");if(r)goto S_39967;} +if(qbevent){evnt(26307,6410,"ide_methods.bas");if(r)goto S_42524;} do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4492; -makefit(tqbs); -qbs_print(tqbs,0); -skip4492: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4493; -makefit(tqbs); -qbs_print(tqbs,0); -skip4493: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip4494; -makefit(tqbs); -qbs_print(tqbs,0); -skip4494: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5686,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass4595= 0 )); +if(!qbevent)break;evnt(26307,6411,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5688,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5690,"ide_methods.bas");}while(r); -S_39977:; +if(!qbevent)break;evnt(26307,6413,"ide_methods.bas");}while(r); +S_42527:; if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ -if(qbevent){evnt(25066,5691,"ide_methods.bas");if(r)goto S_39977;} +if(qbevent){evnt(26307,6415,"ide_methods.bas");if(r)goto S_42527;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("...",3)); -if (new_error) goto skip4495; -makefit(tqbs); -qbs_print(tqbs,0); -skip4495: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5692,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6416,"ide_methods.bas");}while(r); +}else{ +S_42530:; +if ((*__LONG_IDEFOCUSLINE)||new_error){ +if(qbevent){evnt(26307,6418,"ide_methods.bas");if(r)goto S_42530;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6419,"ide_methods.bas");}while(r); }else{ do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("OK",2)); -if (new_error) goto skip4496; -makefit(tqbs); -qbs_print(tqbs,0); -skip4496: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5694,"ide_methods.bas");}while(r); -S_39981:; +if(!qbevent)break;evnt(26307,6421,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_STATUSAREALINK= 0 ; +if(!qbevent)break;evnt(26307,6423,"ide_methods.bas");}while(r); +S_42536:; if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(25066,5695,"ide_methods.bas");if(r)goto S_39981;} +if(qbevent){evnt(26307,6424,"ide_methods.bas");if(r)goto S_42536;} do{ qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,5696,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6425,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" (",2)); -if (new_error) goto skip4497; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS))),qbs_new_txt_len(" warning",8))); -if (new_error) goto skip4497; -makefit(tqbs); -qbs_print(tqbs,0); -skip4497: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5697,"ide_methods.bas");}while(r); -S_39984:; +if(!qbevent)break;evnt(26307,6426,"ide_methods.bas");}while(r); +S_42539:; if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ -if(qbevent){evnt(25066,5698,"ide_methods.bas");if(r)goto S_39984;} +if(qbevent){evnt(26307,6427,"ide_methods.bas");if(r)goto S_42539;} do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("s",1)); -if (new_error) goto skip4498; -makefit(tqbs); -qbs_print(tqbs,0); -skip4498: -qbs_free(tqbs); +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5698,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6427,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6428,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6429,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 4 ; +if(!qbevent)break;evnt(26307,6430,"ide_methods.bas");}while(r); +} +S_42546:; +if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ +if(qbevent){evnt(26307,6432,"ide_methods.bas");if(r)goto S_42546;} +do{ +return_point[next_return_point++]=51; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWVARLISTREADY; +RETURN_51:; +if(!qbevent)break;evnt(26307,6432,"ide_methods.bas");}while(r); +} +} +} +do{ +#include "ret132.txt" +if(!qbevent)break;evnt(26307,6435,"ide_methods.bas");}while(r); +LABEL_HELPAREASHOWBACKLINKS:; +if(qbevent){evnt(26307,6437,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6438,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6439,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6440,"ide_methods.bas");}while(r); +S_42555:; +fornext_value4597= 1 ; +fornext_finalvalue4597=*_FUNC_IDE2_LONG_TOP; +fornext_step4597= 1 ; +if (fornext_step4597<0) fornext_step_negative4597=1; else fornext_step_negative4597=0; +if (new_error) goto fornext_error4597; +goto fornext_entrylabel4597; +while(1){ +fornext_value4597=fornext_step4597+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4597: +*_FUNC_IDE2_LONG_X=fornext_value4597; +if (fornext_step_negative4597){ +if (fornext_value4597fornext_finalvalue4597) break; +} +fornext_error4597:; +if(qbevent){evnt(26307,6441,"ide_methods.bas");if(r)goto S_42555;} +do{ +qbs_set(_FUNC_IDE2_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6442,"ide_methods.bas");}while(r); +S_42557:; +if ((-(*_FUNC_IDE2_LONG_X==*__LONG_HELP_BACK_POS))||new_error){ +if(qbevent){evnt(26307,6443,"ide_methods.bas");if(r)goto S_42557;} +do{ +*_FUNC_IDE2_LONG_P=_FUNC_IDE2_STRING_BACK_STR->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6443,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6444,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6445,"ide_methods.bas");}while(r); +S_42562:; +fornext_value4600= 1 ; +fornext_finalvalue4600=_FUNC_IDE2_STRING_N->len; +fornext_step4600= 1 ; +if (fornext_step4600<0) fornext_step_negative4600=1; else fornext_step_negative4600=0; +if (new_error) goto fornext_error4600; +goto fornext_entrylabel4600; +while(1){ +fornext_value4600=fornext_step4600+(*_FUNC_IDE2_LONG_X2); +fornext_entrylabel4600: +*_FUNC_IDE2_LONG_X2=fornext_value4600; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4600){ +if (fornext_value4600fornext_finalvalue4600) break; +} +fornext_error4600:; +if(qbevent){evnt(26307,6446,"ide_methods.bas");if(r)goto S_42562;} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr(qbs_asc(_FUNC_IDE2_STRING_N,*_FUNC_IDE2_LONG_X2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6447,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6448,"ide_methods.bas");}while(r); +fornext_continue_4599:; +} +fornext_exit_4599:; +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6450,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6451,"ide_methods.bas");}while(r); +S_42568:; +if ((-(*_FUNC_IDE2_LONG_X!=*_FUNC_IDE2_LONG_TOP))||new_error){ +if(qbevent){evnt(26307,6453,"ide_methods.bas");if(r)goto S_42568;} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6454,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6455,"ide_methods.bas");}while(r); +} +fornext_continue_4596:; +} +fornext_exit_4596:; +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6458,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6459,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACK_STR_POS=*_FUNC_IDE2_LONG_P-(*__LONG_IDEWX/ 2 )+((((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))->len+ 2 )/ 2 )+( 3 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6460,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_IDEWY, 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,6463,"ide_methods.bas");}while(r); +S_42577:; +fornext_value4604=*_FUNC_IDE2_LONG_BACK_STR_POS; +fornext_finalvalue4604=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; +fornext_step4604= 1 ; +if (fornext_step4604<0) fornext_step_negative4604=1; else fornext_step_negative4604=0; +if (new_error) goto fornext_error4604; +goto fornext_entrylabel4604; +while(1){ +fornext_value4604=fornext_step4604+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4604: +*_FUNC_IDE2_LONG_X=fornext_value4604; +if (fornext_step_negative4604){ +if (fornext_value4604fornext_finalvalue4604) break; +} +fornext_error4604:; +if(qbevent){evnt(26307,6464,"ide_methods.bas");if(r)goto S_42577;} +do{ +*_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6465,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6466,"ide_methods.bas");}while(r); +S_42580:; +if ((*_FUNC_IDE2_LONG_A)||new_error){ +if(qbevent){evnt(26307,6467,"ide_methods.bas");if(r)goto S_42580;} +S_42581:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26307,6468,"ide_methods.bas");if(r)goto S_42581;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,6468,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,6468,"ide_methods.bas");}while(r); +} +S_42586:; +if ((-(*_FUNC_IDE2_LONG_I<*__LONG_HELP_BACK_POS))||new_error){ +if(qbevent){evnt(26307,6469,"ide_methods.bas");if(r)goto S_42586;} +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,6469,"ide_methods.bas");}while(r); +} +S_42589:; +if ((-(*_FUNC_IDE2_LONG_I>*__LONG_HELP_BACK_POS))||new_error){ +if(qbevent){evnt(26307,6470,"ide_methods.bas");if(r)goto S_42589;} +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,6470,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" - click here or Ctrl+W to view)",32)); -if (new_error) goto skip4499; +qbs_set(tqbs,func_chr(*_FUNC_IDE2_LONG_A)); +if (new_error) goto skip4605; makefit(tqbs); qbs_print(tqbs,0); -skip4499: +skip4605: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5699,"ide_methods.bas");}while(r); -} -} -} +if(!qbevent)break;evnt(26307,6471,"ide_methods.bas");}while(r); +}else{ do{ -#include "ret130.txt" -if(!qbevent)break;evnt(25066,5703,"ide_methods.bas");}while(r); +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,6473,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_chr( 196 )); +if (new_error) goto skip4606; +makefit(tqbs); +qbs_print(tqbs,0); +skip4606: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6474,"ide_methods.bas");}while(r); +} +fornext_continue_4603:; +} +fornext_exit_4603:; +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,6477,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 18 ,*__LONG_IDEWY,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6477,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,6478,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 17 ,*__LONG_IDEWY,qbs_new_txt_len(" View on Wiki ",14),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6478,"ide_methods.bas");}while(r); +do{ +#include "ret132.txt" +if(!qbevent)break;evnt(26307,6479,"ide_methods.bas");}while(r); +LABEL_SHOWVARLISTREADY:; +if(qbevent){evnt(26307,6481,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_BYTE_WAITINGFORVARLIST= 0 ; +if(!qbevent)break;evnt(26307,6482,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,6483,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 2 ,qbs_new_txt_len("Variable List is now available (F4 to see it)",45),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6484,"ide_methods.bas");}while(r); +do{ +#include "ret132.txt" +if(!qbevent)break;evnt(26307,6485,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free130.txt" +#include "free132.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDE2_LONG_IDE2; } +void SUB_UPDATETITLEOFMAINWINDOW(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data133.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME,FUNC_FINDCURRENTSF(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6489,"ide_methods.bas");}while(r); +do{ +SUB_CLEANSUBNAME(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6490,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,6491,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 , 2 ,func_string(*__LONG_IDEWX- 2 ,(func_chr( 196 )->chr[0])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6491,"ide_methods.bas");}while(r); +S_42611:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(26307,6492,"ide_methods.bas");if(r)goto S_42611;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6492,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6492,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_new_txt_len(" ",1),_SUB_UPDATETITLEOFMAINWINDOW_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6493,"ide_methods.bas");}while(r); +S_42617:; +if ((*__LONG_IDEUNSAVED)||new_error){ +if(qbevent){evnt(26307,6494,"ide_methods.bas");if(r)goto S_42617;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6494,"ide_methods.bas");}while(r); +} +S_42620:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME->len> 0 )))||new_error){ +if(qbevent){evnt(26307,6495,"ide_methods.bas");if(r)goto S_42620;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len(":",1)),_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6495,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6496,"ide_methods.bas");}while(r); +S_42624:; +if ((qbs_cleanup(qbs_tmp_base,-((_SUB_UPDATETITLEOFMAINWINDOW_STRING_A->len)>(*__LONG_IDEWX- 5 ))))||new_error){ +if(qbevent){evnt(26307,6497,"ide_methods.bas");if(r)goto S_42624;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,*__LONG_IDEWX- 11 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6497,"ide_methods.bas");}while(r); +} +S_42627:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26307,6498,"ide_methods.bas");if(r)goto S_42627;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,6498,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,6498,"ide_methods.bas");}while(r); +} +do{ +sub__printstring((((*__LONG_IDEWX/ ((long double)( 2 )))- 1 ))-((_SUB_UPDATETITLEOFMAINWINDOW_STRING_A->len- 1 )/ 2 ), 2 ,_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6499,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free133.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_DEBUGMODE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data134.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,6503,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,6504,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,6505,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,6506,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,6507,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TIMEOUT= 10 ; +if(!qbevent)break;evnt(26307,6513,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,6514,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,6516,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,6518,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,func_space(__STRING_MENUBAR->len),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6518,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_M,qbs_new_txt_len("$DEBUG MODE ACTIVE",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6519,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX-_SUB_DEBUGMODE_STRING_M->len)/ 2 , 1 ,_SUB_DEBUGMODE_STRING_M,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6520,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,6528,"ide_methods.bas");}while(r); +do{ + +if (_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[2]&2){ +error(10); +}else{ +if (_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[2]&1){ +if (!error_occurred) error(10); +}else{ +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4]= 1 ; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]=( 8 )-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4]+1; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[6]=1; +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]=(ptrszint)malloc(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]*128/8+1); +if (!_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]) error(257); +_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[2]|=1; +tmp_long=_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]; +while(tmp_long--){ +*(qbs**)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]+(128/8+1-1)*tmp_long+ 8)=qbs_new(0,0);} +} +} +if(!qbevent)break;evnt(26307,6534,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,6535,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6536,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6536,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6537,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6537,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6538,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6538,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6539,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6539,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6540,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6540,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6541,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6541,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6542,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6542,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,6543,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6543,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_Y=(*__LONG_IDEWY- 4 )+ 2 ; +if(!qbevent)break;evnt(26307,6544,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,6545,"ide_methods.bas");}while(r); +S_42666:; +fornext_value4614= 1 ; +fornext_finalvalue4614=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); +fornext_step4614= 1 ; +if (fornext_step4614<0) fornext_step_negative4614=1; else fornext_step_negative4614=0; +if (new_error) goto fornext_error4614; +goto fornext_entrylabel4614; +while(1){ +fornext_value4614=fornext_step4614+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4614: +*_SUB_DEBUGMODE_LONG_I=fornext_value4614; +if (fornext_step_negative4614){ +if (fornext_value4614fornext_finalvalue4614) break; +} +fornext_error4614:; +if(qbevent){evnt(26307,6546,"ide_methods.bas");if(r)goto S_42666;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26307,6547,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))=*_SUB_DEBUGMODE_LONG_Y; +if(!qbevent)break;evnt(26307,6548,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4))=(*(qbs**)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8)))->len; +if(!qbevent)break;evnt(26307,6549,"ide_methods.bas");}while(r); +S_42670:; +if ((-(*_SUB_DEBUGMODE_LONG_Ilen)>(*__LONG_IDEWX- 1 ))))||new_error){ +if(qbevent){evnt(26307,6552,"ide_methods.bas");if(r)goto S_42672;} +do{ +*_SUB_DEBUGMODE_LONG_Y=*_SUB_DEBUGMODE_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,6553,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_X= 2 ; +if(!qbevent)break;evnt(26307,6554,"ide_methods.bas");}while(r); +} +} +fornext_continue_4613:; +} +fornext_exit_4613:; +S_42678:; +sc_4615_var=0; +if(qbevent){evnt(26307,6559,"ide_methods.bas");if(r)goto S_42678;} +S_42679:; +if (((*__LONG_IDEDEBUGMODE==( 1 )))||new_error){ +if(qbevent){evnt(26307,6560,"ide_methods.bas");if(r)goto S_42679;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26307,6561,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26307,6562,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6563,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6564,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGCLIENT= 0 ; +if(!qbevent)break;evnt(26307,6565,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DEBUGGEEPID= 0 ; +if(!qbevent)break;evnt(26307,6566,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PANELACTIVE= -1 ; +if(!qbevent)break;evnt(26307,6568,"ide_methods.bas");}while(r); +do{ +SUB_SHOWVWATCHPANEL((void*)( ((char*)(_SUB_DEBUGMODE_UDT_VWATCHPANEL)) + (0) ),qbs_new_txt_len("",0),&(pass4616= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6569,"ide_methods.bas");}while(r); +S_42688:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VARIABLEWATCHLIST->len== 0 )))||new_error){ +if(qbevent){evnt(26307,6571,"ide_methods.bas");if(r)goto S_42688;} +do{ +*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES= 0 ; +if(!qbevent)break;evnt(26307,6572,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))= 5 ; +if(!qbevent)break;evnt(26307,6573,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass4618= -1 ),&(pass4619= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6578,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6581,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))= 40 ; +if(!qbevent)break;evnt(26307,6582,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 6 ; +if(!qbevent)break;evnt(26307,6583,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))= 4 ; +if(!qbevent)break;evnt(26307,6584,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26307,6585,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6587,"ide_methods.bas");}while(r); +S_42700:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26307,6588,"ide_methods.bas");if(r)goto S_42700;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26307,6588,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6590,"ide_methods.bas");}while(r); +S_42704:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26307,6591,"ide_methods.bas");if(r)goto S_42704;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26307,6591,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6593,"ide_methods.bas");}while(r); +S_42708:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26307,6594,"ide_methods.bas");if(r)goto S_42708;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26307,6594,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6596,"ide_methods.bas");}while(r); +S_42712:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26307,6597,"ide_methods.bas");if(r)goto S_42712;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26307,6597,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=52; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CHECKVWATCHPANELSIZE; +RETURN_52:; +if(!qbevent)break;evnt(26307,6599,"ide_methods.bas");}while(r); +sc_ec_190_end:; +sc_4615_var=-1; +} +S_42716:; +if (((*__LONG_IDEDEBUGMODE>( 1 )))||new_error){ +if(qbevent){evnt(26307,6600,"ide_methods.bas");if(r)goto S_42716;} +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=~(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE); +if(!qbevent)break;evnt(26307,6601,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=53; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESTATUSAREA; +RETURN_53:; +if(!qbevent)break;evnt(26307,6602,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4620= 1 )); +if(!qbevent)break;evnt(26307,6603,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4621= 1 ),qbs_new_txt_len("Paused.",7),&(pass4622= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6604,"ide_methods.bas");}while(r); +sc_ec_191_end:; +sc_4615_var=-1; +} +S_42721:; +if (((*__LONG_IDEDEBUGMODE==( 2 )))||new_error){ +if(qbevent){evnt(26307,6605,"ide_methods.bas");if(r)goto S_42721;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6605,"ide_methods.bas");}while(r); +do{ +goto LABEL_RETURNFROMCONTEXTMENU; +if(!qbevent)break;evnt(26307,6605,"ide_methods.bas");}while(r); +sc_ec_192_end:; +sc_4615_var=-1; +} +S_42724:; +if (((*__LONG_IDEDEBUGMODE==( 3 )))||new_error){ +if(qbevent){evnt(26307,6606,"ide_methods.bas");if(r)goto S_42724;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6606,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTCALLSTACK; +if(!qbevent)break;evnt(26307,6606,"ide_methods.bas");}while(r); +sc_ec_193_end:; +sc_4615_var=-1; +} +S_42727:; +if (((*__LONG_IDEDEBUGMODE==( 4 )))||new_error){ +if(qbevent){evnt(26307,6607,"ide_methods.bas");if(r)goto S_42727;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6607,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTCONTINUE; +if(!qbevent)break;evnt(26307,6607,"ide_methods.bas");}while(r); +sc_ec_194_end:; +sc_4615_var=-1; +} +S_42730:; +if (((*__LONG_IDEDEBUGMODE==( 5 )))||new_error){ +if(qbevent){evnt(26307,6608,"ide_methods.bas");if(r)goto S_42730;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6608,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSTEPOUT; +if(!qbevent)break;evnt(26307,6608,"ide_methods.bas");}while(r); +sc_ec_195_end:; +sc_4615_var=-1; +} +S_42733:; +if (((*__LONG_IDEDEBUGMODE==( 6 )))||new_error){ +if(qbevent){evnt(26307,6609,"ide_methods.bas");if(r)goto S_42733;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6609,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSTEPOVER; +if(!qbevent)break;evnt(26307,6609,"ide_methods.bas");}while(r); +sc_ec_196_end:; +sc_4615_var=-1; +} +S_42736:; +if (((*__LONG_IDEDEBUGMODE==( 7 )))||new_error){ +if(qbevent){evnt(26307,6610,"ide_methods.bas");if(r)goto S_42736;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6610,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSTEPINTO; +if(!qbevent)break;evnt(26307,6610,"ide_methods.bas");}while(r); +sc_ec_197_end:; +sc_4615_var=-1; +} +S_42739:; +if (((*__LONG_IDEDEBUGMODE==( 8 )))||new_error){ +if(qbevent){evnt(26307,6611,"ide_methods.bas");if(r)goto S_42739;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6612,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,6613,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTRUNTOTHISLINE; +if(!qbevent)break;evnt(26307,6614,"ide_methods.bas");}while(r); +sc_ec_198_end:; +sc_4615_var=-1; +} +S_42743:; +if (((*__LONG_IDEDEBUGMODE==( 9 )))||new_error){ +if(qbevent){evnt(26307,6615,"ide_methods.bas");if(r)goto S_42743;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6615,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTQUIT; +if(!qbevent)break;evnt(26307,6615,"ide_methods.bas");}while(r); +sc_ec_199_end:; +sc_4615_var=-1; +} +S_42746:; +if (((*__LONG_IDEDEBUGMODE==( 10 )))||new_error){ +if(qbevent){evnt(26307,6616,"ide_methods.bas");if(r)goto S_42746;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6616,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTTOGGLEBREAKPOINT; +if(!qbevent)break;evnt(26307,6616,"ide_methods.bas");}while(r); +sc_ec_200_end:; +sc_4615_var=-1; +} +S_42749:; +if (((*__LONG_IDEDEBUGMODE==( 11 )))||new_error){ +if(qbevent){evnt(26307,6617,"ide_methods.bas");if(r)goto S_42749;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6617,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTCLEARBREAKPOINTS; +if(!qbevent)break;evnt(26307,6617,"ide_methods.bas");}while(r); +sc_ec_201_end:; +sc_4615_var=-1; +} +S_42752:; +if (((*__LONG_IDEDEBUGMODE==( 12 )))||new_error){ +if(qbevent){evnt(26307,6618,"ide_methods.bas");if(r)goto S_42752;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6619,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,6620,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTTOGGLESKIPLINE; +if(!qbevent)break;evnt(26307,6621,"ide_methods.bas");}while(r); +sc_ec_202_end:; +sc_4615_var=-1; +} +S_42756:; +if (((*__LONG_IDEDEBUGMODE==( 13 )))||new_error){ +if(qbevent){evnt(26307,6622,"ide_methods.bas");if(r)goto S_42756;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6623,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,6624,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSETNEXTLINE; +if(!qbevent)break;evnt(26307,6625,"ide_methods.bas");}while(r); +sc_ec_203_end:; +sc_4615_var=-1; +} +S_42760:; +if (((*__LONG_IDEDEBUGMODE==( 14 )))||new_error){ +if(qbevent){evnt(26307,6626,"ide_methods.bas");if(r)goto S_42760;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6626,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSUBSDIALOG; +if(!qbevent)break;evnt(26307,6626,"ide_methods.bas");}while(r); +sc_ec_204_end:; +sc_4615_var=-1; +} +S_42763:; +if (((*__LONG_IDEDEBUGMODE==( 15 )))||new_error){ +if(qbevent){evnt(26307,6627,"ide_methods.bas");if(r)goto S_42763;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6627,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTUNSKIPALLLINES; +if(!qbevent)break;evnt(26307,6627,"ide_methods.bas");}while(r); +sc_ec_205_end:; +sc_4615_var=-1; +} +S_42766:; +if (((*__LONG_IDEDEBUGMODE==( 16 )))||new_error){ +if(qbevent){evnt(26307,6628,"ide_methods.bas");if(r)goto S_42766;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26307,6628,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26307,6628,"ide_methods.bas");}while(r); +sc_ec_206_end:; +} +sc_4615_end:; +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4623= 1 )); +if(!qbevent)break;evnt(26307,6631,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4624= 0 )); +if(!qbevent)break;evnt(26307,6632,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4625= 1 ),qbs_new_txt_len("Entering $DEBUG mode (ESC to abort)...",38),&(pass4626= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6633,"ide_methods.bas");}while(r); +S_42773:; +if ((-(*__LONG_HOST== 0 ))||new_error){ +if(qbevent){evnt(26307,6635,"ide_methods.bas");if(r)goto S_42773;} +do{ +*__LONG_HOST=func__openhost(qbs_add(qbs_new_txt_len("TCP/IP:",7),__STRING_HOSTPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6636,"ide_methods.bas");}while(r); +S_42775:; +if ((-(*__LONG_HOST== 0 ))||new_error){ +if(qbevent){evnt(26307,6637,"ide_methods.bas");if(r)goto S_42775;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4627= 0 )); +if(!qbevent)break;evnt(26307,6638,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4628= 1 )); +if(!qbevent)break;evnt(26307,6639,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4629= 1 ),qbs_new_txt_len("Failed to initiate debug session.",33),&(pass4630= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6640,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4631= 2 ),qbs_add(qbs_add(qbs_new_txt_len("Cannot receive connections on port",34),qbs_str((int32)(*__LONG_IDEBASETCPPORT))),qbs_new_txt_len(". Check your firewall permissions.",34)),&(pass4632= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6641,"ide_methods.bas");}while(r); +S_42780:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,6642,"ide_methods.bas");if(r)goto S_42780;} +ww_continue_4633:; +} +ww_exit_4633:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,6643,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,6648,"ide_methods.bas");}while(r); +S_42786:; +do{ +if(qbevent){evnt(26307,6649,"ide_methods.bas");if(r)goto S_42786;} +do{ +*__LONG_DEBUGCLIENT=func__openconnection(*__LONG_HOST); +if(!qbevent)break;evnt(26307,6650,"ide_methods.bas");}while(r); +S_42788:; +if ((*__LONG_DEBUGCLIENT)||new_error){ +if(qbevent){evnt(26307,6651,"ide_methods.bas");if(r)goto S_42788;} +do{ +goto dl_exit_4634; +if(!qbevent)break;evnt(26307,6651,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26307,6653,"ide_methods.bas");}while(r); +S_42792:; +if (((-(*_SUB_DEBUGMODE_LONG_K== 27 ))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))||new_error){ +if(qbevent){evnt(26307,6654,"ide_methods.bas");if(r)goto S_42792;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4635= 0 )); +if(!qbevent)break;evnt(26307,6655,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4636= 0 )); +if(!qbevent)break;evnt(26307,6656,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4637= 1 ),qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("Debug session aborted.",22)),&(pass4638= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6657,"ide_methods.bas");}while(r); +S_42796:; +if ((-(*_SUB_DEBUGMODE_LONG_K!= 27 ))||new_error){ +if(qbevent){evnt(26307,6658,"ide_methods.bas");if(r)goto S_42796;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4639= 2 ),qbs_new_txt_len("Connection timeout.",19),&(pass4640= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6659,"ide_methods.bas");}while(r); +} +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,6661,"ide_methods.bas");}while(r); +S_42800:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,6662,"ide_methods.bas");if(r)goto S_42800;} +ww_continue_4641:; +} +ww_exit_4641:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,6663,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,6666,"ide_methods.bas");}while(r); +dl_continue_4634:; +}while(1); +dl_exit_4634:; +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,6669,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4642= 1 )); +if(!qbevent)break;evnt(26307,6670,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4643= 1 ),qbs_new_txt_len("Handshaking...",14),&(pass4644= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6671,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,6673,"ide_methods.bas");}while(r); +S_42810:; +do{ +if(qbevent){evnt(26307,6674,"ide_methods.bas");if(r)goto S_42810;} +do{ +*_SUB_DEBUGMODE_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26307,6675,"ide_methods.bas");}while(r); +S_42812:; +if (((-(*_SUB_DEBUGMODE_LONG_K== 27 ))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))||new_error){ +if(qbevent){evnt(26307,6676,"ide_methods.bas");if(r)goto S_42812;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4646= 0 )); +if(!qbevent)break;evnt(26307,6677,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4647= 0 )); +if(!qbevent)break;evnt(26307,6678,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4648= 1 ),qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("Debug session aborted.",22)),&(pass4649= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6679,"ide_methods.bas");}while(r); +S_42816:; +if ((-(*_SUB_DEBUGMODE_LONG_K!= 27 ))||new_error){ +if(qbevent){evnt(26307,6680,"ide_methods.bas");if(r)goto S_42816;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4650= 2 ),qbs_new_txt_len("Connection timeout.",19),&(pass4651= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6681,"ide_methods.bas");}while(r); +} +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,6683,"ide_methods.bas");}while(r); +S_42820:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,6684,"ide_methods.bas");if(r)goto S_42820;} +ww_continue_4652:; +} +ww_exit_4652:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,6685,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=54; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_54:; +if(!qbevent)break;evnt(26307,6688,"ide_methods.bas");}while(r); +S_42825:; +if(qbevent){evnt(26307,6689,"ide_methods.bas");if(r)goto S_42825;} +S_42826:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("me",2))))||new_error){ +if(qbevent){evnt(26307,6690,"ide_methods.bas");if(r)goto S_42826;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_PROGRAM,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6691,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_EXPECTED,__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6692,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_P,FUNC_IDEZTAKEPATH(_SUB_DEBUGMODE_STRING_PROGRAM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6693,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_P,FUNC_IDEZTAKEPATH(_SUB_DEBUGMODE_STRING_EXPECTED)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6694,"ide_methods.bas");}while(r); +S_42831:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_DEBUGMODE_STRING_PROGRAM,_SUB_DEBUGMODE_STRING_EXPECTED)))||new_error){ +if(qbevent){evnt(26307,6696,"ide_methods.bas");if(r)goto S_42831;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4654= 0 )); +if(!qbevent)break;evnt(26307,6697,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4655= 1 )); +if(!qbevent)break;evnt(26307,6698,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4656= 1 ),qbs_new_txt_len("Failed to initiate debug session.",33),&(pass4657= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6699,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4658= 2 ),qbs_left(qbs_add(qbs_new_txt_len("Expected: ",10),_SUB_DEBUGMODE_STRING_EXPECTED),*__LONG_IDEWX- 2 ),&(pass4659= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6700,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4660= 3 ),qbs_left(qbs_add(qbs_new_txt_len("Received: ",10),_SUB_DEBUGMODE_STRING_PROGRAM),*__LONG_IDEWX- 2 ),&(pass4661= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6701,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("vwatch:file mismatch",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6702,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=55; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_55:; +if(!qbevent)break;evnt(26307,6703,"ide_methods.bas");}while(r); +do{ +sub_close(*__LONG_DEBUGCLIENT,1); +if(!qbevent)break;evnt(26307,6704,"ide_methods.bas");}while(r); +S_42840:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,6705,"ide_methods.bas");if(r)goto S_42840;} +ww_continue_4662:; +} +ww_exit_4662:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,6706,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_4645; +if(!qbevent)break;evnt(26307,6708,"ide_methods.bas");}while(r); +sc_ec_207_end:; +goto sc_4653_end; +} +sc_4653_end:; +dl_continue_4645:; +}while(1); +dl_exit_4645:; +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("vwatch:ok",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6712,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=56; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_56:; +if(!qbevent)break;evnt(26307,6713,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("hwnd:",5),o2string(func__handle()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6714,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=57; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_57:; +if(!qbevent)break;evnt(26307,6715,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("line count:",11),l2string(*__LONG_IDEN))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6716,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=58; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_58:; +if(!qbevent)break;evnt(26307,6717,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT= 0 ; +if(!qbevent)break;evnt(26307,6719,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6720,"ide_methods.bas");}while(r); +S_42855:; +fornext_value4664= 1 ; +fornext_finalvalue4664=func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1); +fornext_step4664= 1 ; +if (fornext_step4664<0) fornext_step_negative4664=1; else fornext_step_negative4664=0; +if (new_error) goto fornext_error4664; +goto fornext_entrylabel4664; +while(1){ +fornext_value4664=fornext_step4664+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4664: +*_SUB_DEBUGMODE_LONG_I=fornext_value4664; +if (fornext_step_negative4664){ +if (fornext_value4664fornext_finalvalue4664) break; +} +fornext_error4664:; +if(qbevent){evnt(26307,6721,"ide_methods.bas");if(r)goto S_42855;} +S_42856:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26307,6722,"ide_methods.bas");if(r)goto S_42856;} +do{ +*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT=*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT+ 1 ; +if(!qbevent)break;evnt(26307,6723,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,qbs_add(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,l2string(*_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6724,"ide_methods.bas");}while(r); +} +fornext_continue_4663:; +} +fornext_exit_4663:; +S_42861:; +if ((*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT)||new_error){ +if(qbevent){evnt(26307,6727,"ide_methods.bas");if(r)goto S_42861;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("breakpoint count:",17),l2string(*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6728,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=59; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_59:; +if(!qbevent)break;evnt(26307,6729,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("breakpoint list:",16),_SUB_DEBUGMODE_STRING_BREAKPOINTLIST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6730,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=60; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_60:; +if(!qbevent)break;evnt(26307,6731,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_SKIPCOUNT= 0 ; +if(!qbevent)break;evnt(26307,6734,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_SKIPLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6735,"ide_methods.bas");}while(r); +S_42869:; +fornext_value4666= 1 ; +fornext_finalvalue4666=func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1); +fornext_step4666= 1 ; +if (fornext_step4666<0) fornext_step_negative4666=1; else fornext_step_negative4666=0; +if (new_error) goto fornext_error4666; +goto fornext_entrylabel4666; +while(1){ +fornext_value4666=fornext_step4666+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4666: +*_SUB_DEBUGMODE_LONG_I=fornext_value4666; +if (fornext_step_negative4666){ +if (fornext_value4666fornext_finalvalue4666) break; +} +fornext_error4666:; +if(qbevent){evnt(26307,6736,"ide_methods.bas");if(r)goto S_42869;} +S_42870:; +if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ +if(qbevent){evnt(26307,6737,"ide_methods.bas");if(r)goto S_42870;} +do{ +*_SUB_DEBUGMODE_LONG_SKIPCOUNT=*_SUB_DEBUGMODE_LONG_SKIPCOUNT+ 1 ; +if(!qbevent)break;evnt(26307,6738,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_SKIPLIST,qbs_add(_SUB_DEBUGMODE_STRING_SKIPLIST,l2string(*_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6739,"ide_methods.bas");}while(r); +} +fornext_continue_4665:; +} +fornext_exit_4665:; +S_42875:; +if ((*_SUB_DEBUGMODE_LONG_SKIPCOUNT)||new_error){ +if(qbevent){evnt(26307,6742,"ide_methods.bas");if(r)goto S_42875;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("skip count:",11),l2string(*_SUB_DEBUGMODE_LONG_SKIPCOUNT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6743,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=61; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_61:; +if(!qbevent)break;evnt(26307,6744,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("skip list:",10),_SUB_DEBUGMODE_STRING_SKIPLIST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6745,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=62; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_62:; +if(!qbevent)break;evnt(26307,6746,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4667= 1 )); +if(!qbevent)break;evnt(26307,6749,"ide_methods.bas");}while(r); +S_42882:; +if ((*__LONG_STARTPAUSED)||new_error){ +if(qbevent){evnt(26307,6750,"ide_methods.bas");if(r)goto S_42882;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6751,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,6752,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4668= 1 ),qbs_new_txt_len("Paused.",7),&(pass4669= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6753,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("run",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6755,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26307,6756,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4670= 1 ),qbs_new_txt_len("Running...",10),&(pass4671= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6757,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=63; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_63:; +if(!qbevent)break;evnt(26307,6759,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4672= 2 )); +if(!qbevent)break;evnt(26307,6761,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4673= 2 ),qbs_new_txt_len("$DEBUG MODE: Set focus to the IDE to control execution",54),&(pass4674= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,6762,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= -1 ; +if(!qbevent)break;evnt(26307,6764,"ide_methods.bas");}while(r); +S_42895:; +do{ +if(qbevent){evnt(26307,6766,"ide_methods.bas");if(r)goto S_42895;} +S_42896:; +if ((func__exit())||new_error){ +if(qbevent){evnt(26307,6767,"ide_methods.bas");if(r)goto S_42896;} +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26307,6767,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTQUIT; +if(!qbevent)break;evnt(26307,6767,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,6769,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPPANELFIRSTVISIBLE=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8)); +if(!qbevent)break;evnt(26307,6770,"ide_methods.bas");}while(r); +S_42902:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,6771,"ide_methods.bas");if(r)goto S_42902;} +do{ +*__LONG_MX=qbr(func__mousex(NULL,0)); +if(!qbevent)break;evnt(26307,6772,"ide_methods.bas");}while(r); +do{ +*__LONG_MY=qbr(func__mousey(NULL,0)); +if(!qbevent)break;evnt(26307,6773,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(20))=*__LONG_MX; +if(!qbevent)break;evnt(26307,6774,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(22))=*__LONG_MY; +if(!qbevent)break;evnt(26307,6775,"ide_methods.bas");}while(r); +S_42907:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))))))))||new_error){ +if(qbevent){evnt(26307,6778,"ide_methods.bas");if(r)goto S_42907;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))+(func__mousewheel(NULL,0)* 3 ); +if(!qbevent)break;evnt(26307,6779,"ide_methods.bas");}while(r); +S_42909:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ +if(qbevent){evnt(26307,6780,"ide_methods.bas");if(r)goto S_42909;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26307,6780,"ide_methods.bas");}while(r); +} +S_42912:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ +if(qbevent){evnt(26307,6781,"ide_methods.bas");if(r)goto S_42912;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26307,6782,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDECY=*__LONG_IDECY+(func__mousewheel(NULL,0)* 3 ); +if(!qbevent)break;evnt(26307,6785,"ide_methods.bas");}while(r); +} +ww_continue_4676:; +} +ww_exit_4676:; +S_42919:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26307,6789,"ide_methods.bas");if(r)goto S_42919;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,6789,"ide_methods.bas");}while(r); +} +S_42922:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,6790,"ide_methods.bas");if(r)goto S_42922;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,6790,"ide_methods.bas");}while(r); +} +S_42925:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECY!=*_SUB_DEBUGMODE_LONG_BKPIDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPPANELFIRSTVISIBLE!=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))))|(((-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))))))))))||new_error){ +if(qbevent){evnt(26307,6794,"ide_methods.bas");if(r)goto S_42925;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,6795,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=64; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_64:; +if(!qbevent)break;evnt(26307,6795,"ide_methods.bas");}while(r); +} +do{ +*__LONG_MB=func__mousebutton( 1 ,NULL,0); +if(!qbevent)break;evnt(26307,6798,"ide_methods.bas");}while(r); +do{ +*__LONG_MB2=func__mousebutton( 2 ,NULL,0); +if(!qbevent)break;evnt(26307,6799,"ide_methods.bas");}while(r); +S_42931:; +if ((*__LONG_MB2)||new_error){ +if(qbevent){evnt(26307,6801,"ide_methods.bas");if(r)goto S_42931;} +S_42932:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWN2== 0 ))||new_error){ +if(qbevent){evnt(26307,6802,"ide_methods.bas");if(r)goto S_42932;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN2= -1 ; +if(!qbevent)break;evnt(26307,6803,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX2=*__LONG_MX; +if(!qbevent)break;evnt(26307,6804,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY2=*__LONG_MY; +if(!qbevent)break;evnt(26307,6805,"ide_methods.bas");}while(r); +}else{ +} +}else{ +S_42939:; +if ((*_SUB_DEBUGMODE_LONG_MOUSEDOWN2)||new_error){ +if(qbevent){evnt(26307,6809,"ide_methods.bas");if(r)goto S_42939;} +S_42940:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX2==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY2==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26307,6810,"ide_methods.bas");if(r)goto S_42940;} +S_42941:; +if ((qbs_cleanup(qbs_tmp_base,((-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))))))))||new_error){ +if(qbevent){evnt(26307,6814,"ide_methods.bas");if(r)goto S_42941;} +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26307,6815,"ide_methods.bas");}while(r); +} +S_42944:; +if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))))||new_error){ +if(qbevent){evnt(26307,6821,"ide_methods.bas");if(r)goto S_42944;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,6822,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26307,6823,"ide_methods.bas");}while(r); +S_42947:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,6824,"ide_methods.bas");if(r)goto S_42947;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,6824,"ide_methods.bas");}while(r); +} +S_42950:; +if ((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,6825,"ide_methods.bas");if(r)goto S_42950;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,6825,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=65; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_65:; +if(!qbevent)break;evnt(26307,6825,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEDEBUGMODE= 2 ; +if(!qbevent)break;evnt(26307,6826,"ide_methods.bas");}while(r); +S_42955:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26307,6827,"ide_methods.bas");if(r)goto S_42955;} +do{ +return_point[next_return_point++]=66; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REQUESTPAUSE; +RETURN_66:; +if(!qbevent)break;evnt(26307,6827,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4680= 0 )); +if(!qbevent)break;evnt(26307,6827,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,6828,"ide_methods.bas");}while(r); +LABEL_RETURNFROMCONTEXTMENU:; +if(qbevent){evnt(26307,6829,"ide_methods.bas");r=0;} +do{ +return_point[next_return_point++]=67; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_67:; +if(!qbevent)break;evnt(26307,6830,"ide_methods.bas");}while(r); +} +} +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN2= 0 ; +if(!qbevent)break;evnt(26307,6834,"ide_methods.bas");}while(r); +} +S_42966:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,6837,"ide_methods.bas");if(r)goto S_42966;} +S_42967:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWN== 0 ))||new_error){ +if(qbevent){evnt(26307,6838,"ide_methods.bas");if(r)goto S_42967;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= -1 ; +if(!qbevent)break;evnt(26307,6839,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26307,6840,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26307,6841,"ide_methods.bas");}while(r); +S_42971:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&((-(*__LONG_MX>=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 3 ))))&((-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2)))))))||new_error){ +if(qbevent){evnt(26307,6844,"ide_methods.bas");if(r)goto S_42971;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= -1 ; +if(!qbevent)break;evnt(26307,6845,"ide_methods.bas");}while(r); +S_42973:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))))))){ +if(qbevent){evnt(26307,6848,"ide_methods.bas");if(r)goto S_42973;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 1 ; +if(!qbevent)break;evnt(26307,6849,"ide_methods.bas");}while(r); +S_42975:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+ 1 )))))){ +if(qbevent){evnt(26307,6852,"ide_methods.bas");if(r)goto S_42975;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 2 ; +if(!qbevent)break;evnt(26307,6853,"ide_methods.bas");}while(r); +S_42977:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )))))){ +if(qbevent){evnt(26307,6856,"ide_methods.bas");if(r)goto S_42977;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 3 ; +if(!qbevent)break;evnt(26307,6857,"ide_methods.bas");}while(r); +S_42979:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14)))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26307,6860,"ide_methods.bas");if(r)goto S_42979;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 1 ; +if(!qbevent)break;evnt(26307,6861,"ide_methods.bas");}while(r); +S_42981:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0)))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26307,6864,"ide_methods.bas");if(r)goto S_42981;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 2 ; +if(!qbevent)break;evnt(26307,6865,"ide_methods.bas");}while(r); +S_42983:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 2 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26307,6868,"ide_methods.bas");if(r)goto S_42983;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 3 ; +if(!qbevent)break;evnt(26307,6869,"ide_methods.bas");}while(r); +S_42985:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26307,6872,"ide_methods.bas");if(r)goto S_42985;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= -1 ; +if(!qbevent)break;evnt(26307,6873,"ide_methods.bas");}while(r); +S_42987:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))))))){ +if(qbevent){evnt(26307,6876,"ide_methods.bas");if(r)goto S_42987;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= -1 ; +if(!qbevent)break;evnt(26307,6877,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 1 ; +if(!qbevent)break;evnt(26307,6878,"ide_methods.bas");}while(r); +S_42990:; +if ((-(((float)(FUNC_TIMEELAPSEDSINCE(_SUB_DEBUGMODE_SINGLE_LASTPANELCLICK)))<((float)( 0.3E+0 ))))||new_error){ +if(qbevent){evnt(26307,6879,"ide_methods.bas");if(r)goto S_42990;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26307,6881,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,6882,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26307,6883,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_SINGLE_LASTPANELCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,6885,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26307,6887,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; +if(!qbevent)break;evnt(26307,6888,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; +if(!qbevent)break;evnt(26307,6889,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; +if(!qbevent)break;evnt(26307,6890,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; +if(!qbevent)break;evnt(26307,6891,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; +if(!qbevent)break;evnt(26307,6892,"ide_methods.bas");}while(r); +} +} +} +} +} +} +} +} +} +S_43004:; +if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26307,6895,"ide_methods.bas");if(r)goto S_43004;} +S_43005:; +if ((-(*__LONG_MY==FUNC_IDEVBAR(__LONG_IDEWX,&(pass4690= 3 ),&(pass4691=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26307,6896,"ide_methods.bas");if(r)goto S_43005;} +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= -1 ; +if(!qbevent)break;evnt(26307,6897,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26307,6899,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26307,6902,"ide_methods.bas");}while(r); +} +S_43013:; +if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ +if(qbevent){evnt(26307,6905,"ide_methods.bas");if(r)goto S_43013;} +S_43014:; +if ((-(*__LONG_MX==FUNC_IDEHBAR(&(pass4692= 2 ),&(pass4693=*__LONG_IDEWY- 5 ),&(pass4694=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4695= 608 ))))||new_error){ +if(qbevent){evnt(26307,6906,"ide_methods.bas");if(r)goto S_43014;} +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= -1 ; +if(!qbevent)break;evnt(26307,6907,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26307,6909,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26307,6912,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,6915,"ide_methods.bas");}while(r); +S_43023:; +fornext_value4697= 1 ; +fornext_finalvalue4697=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); +fornext_step4697= 1 ; +if (fornext_step4697<0) fornext_step_negative4697=1; else fornext_step_negative4697=0; +if (new_error) goto fornext_error4697; +goto fornext_entrylabel4697; +while(1){ +fornext_value4697=fornext_step4697+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4697: +*_SUB_DEBUGMODE_LONG_I=fornext_value4697; +if (fornext_step_negative4697){ +if (fornext_value4697fornext_finalvalue4697) break; +} +fornext_error4697:; +if(qbevent){evnt(26307,6916,"ide_methods.bas");if(r)goto S_43023;} +S_43024:; +if (((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))))&(-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))+*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4)))))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))== 0 ))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))== 0 )))||new_error){ +if(qbevent){evnt(26307,6918,"ide_methods.bas");if(r)goto S_43024;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON=*_SUB_DEBUGMODE_LONG_I; +if(!qbevent)break;evnt(26307,6919,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4696; +if(!qbevent)break;evnt(26307,6920,"ide_methods.bas");}while(r); +} +fornext_continue_4696:; +} +fornext_exit_4696:; +}else{ +S_43030:; +if ((-(*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB== -1 ))||new_error){ +if(qbevent){evnt(26307,6925,"ide_methods.bas");if(r)goto S_43030;} +S_43031:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26307,6926,"ide_methods.bas");if(r)goto S_43031;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26307,6927,"ide_methods.bas");}while(r); +S_43033:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26307,6928,"ide_methods.bas");if(r)goto S_43033;} +S_43034:; +if ((-(*__LONG_MY<= 4 ))||new_error){ +if(qbevent){evnt(26307,6929,"ide_methods.bas");if(r)goto S_43034;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,6929,"ide_methods.bas");}while(r); +} +S_43037:; +if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ +if(qbevent){evnt(26307,6930,"ide_methods.bas");if(r)goto S_43037;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,6930,"ide_methods.bas");}while(r); +} +S_43040:; +if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ +if(qbevent){evnt(26307,6931,"ide_methods.bas");if(r)goto S_43040;} +do{ +*_SUB_DEBUGMODE_LONG_Y=*__LONG_MY; +if(!qbevent)break;evnt(26307,6932,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_LONG_Y- 3 - 2 + 0.5E+0 ; +if(!qbevent)break;evnt(26307,6933,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); +if(!qbevent)break;evnt(26307,6934,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=qbr((*_SUB_DEBUGMODE_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); +if(!qbevent)break;evnt(26307,6935,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_I; +if(!qbevent)break;evnt(26307,6936,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,6939,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=68; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_68:; +if(!qbevent)break;evnt(26307,6939,"ide_methods.bas");}while(r); +} +} +S_43052:; +if ((-(*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB== -1 ))||new_error){ +if(qbevent){evnt(26307,6943,"ide_methods.bas");if(r)goto S_43052;} +S_43053:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26307,6944,"ide_methods.bas");if(r)goto S_43053;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26307,6945,"ide_methods.bas");}while(r); +S_43055:; +if ((-(*__LONG_MX<= 3 ))||new_error){ +if(qbevent){evnt(26307,6946,"ide_methods.bas");if(r)goto S_43055;} +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26307,6946,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26307,6946,"ide_methods.bas");}while(r); +} +S_43059:; +if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ +if(qbevent){evnt(26307,6947,"ide_methods.bas");if(r)goto S_43059;} +do{ +*__LONG_IDESX= 608 ; +if(!qbevent)break;evnt(26307,6947,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26307,6947,"ide_methods.bas");}while(r); +} +S_43063:; +if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26307,6948,"ide_methods.bas");if(r)goto S_43063;} +do{ +*_SUB_DEBUGMODE_LONG_X=*__LONG_MX; +if(!qbevent)break;evnt(26307,6949,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_LONG_X- 2 - 2 + 0.5E+0 ; +if(!qbevent)break;evnt(26307,6950,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); +if(!qbevent)break;evnt(26307,6951,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=qbr((*_SUB_DEBUGMODE_SINGLE_P*( 608 - 1 ))+( 1 )); +if(!qbevent)break;evnt(26307,6952,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*_SUB_DEBUGMODE_LONG_I; +if(!qbevent)break;evnt(26307,6953,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26307,6954,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=69; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_69:; +if(!qbevent)break;evnt(26307,6956,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT=*__LONG_IDEWY- 6 ; +if(!qbevent)break;evnt(26307,6960,"ide_methods.bas");}while(r); +S_43075:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32)))||new_error){ +if(qbevent){evnt(26307,6961,"ide_methods.bas");if(r)goto S_43075;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX-*__LONG_MX); +if(!qbevent)break;evnt(26307,6962,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY-*__LONG_MY); +if(!qbevent)break;evnt(26307,6963,"ide_methods.bas");}while(r); +S_43078:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))< 2 ))||new_error){ +if(qbevent){evnt(26307,6965,"ide_methods.bas");if(r)goto S_43078;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))= 2 ; +if(!qbevent)break;evnt(26307,6965,"ide_methods.bas");}while(r); +} +S_43081:; +if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26307,6966,"ide_methods.bas");if(r)goto S_43081;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ; +if(!qbevent)break;evnt(26307,6966,"ide_methods.bas");}while(r); +} +S_43084:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))< 3 ))||new_error){ +if(qbevent){evnt(26307,6967,"ide_methods.bas");if(r)goto S_43084;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))= 3 ; +if(!qbevent)break;evnt(26307,6967,"ide_methods.bas");}while(r); +} +S_43087:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))>(*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 ))))||new_error){ +if(qbevent){evnt(26307,6968,"ide_methods.bas");if(r)goto S_43087;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 ); +if(!qbevent)break;evnt(26307,6968,"ide_methods.bas");}while(r); +} +S_43090:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26307,6970,"ide_methods.bas");if(r)goto S_43090;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; +if(!qbevent)break;evnt(26307,6970,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26307,6971,"ide_methods.bas");}while(r); +S_43094:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26307,6972,"ide_methods.bas");if(r)goto S_43094;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; +if(!qbevent)break;evnt(26307,6972,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26307,6973,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=70; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_70:; +if(!qbevent)break;evnt(26307,6974,"ide_methods.bas");}while(r); +S_43099:; +}else{ +if (*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))){ +if(qbevent){evnt(26307,6975,"ide_methods.bas");if(r)goto S_43099;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))+(*__LONG_MX-*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX); +if(!qbevent)break;evnt(26307,6976,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))+(*__LONG_MY-*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY); +if(!qbevent)break;evnt(26307,6977,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=71; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CHECKVWATCHPANELSIZE; +RETURN_71:; +if(!qbevent)break;evnt(26307,6979,"ide_methods.bas");}while(r); +S_43103:; +if (((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ))))||new_error){ +if(qbevent){evnt(26307,6981,"ide_methods.bas");if(r)goto S_43103;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26307,6982,"ide_methods.bas");}while(r); +} +S_43106:; +if (((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ))))||new_error){ +if(qbevent){evnt(26307,6984,"ide_methods.bas");if(r)goto S_43106;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; +if(!qbevent)break;evnt(26307,6985,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26307,6988,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26307,6989,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=72; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_72:; +if(!qbevent)break;evnt(26307,6990,"ide_methods.bas");}while(r); +S_43112:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 1 )){ +if(qbevent){evnt(26307,6991,"ide_methods.bas");if(r)goto S_43112;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=qbr_float_to_long(floor(FUNC_MAP(&(pass4698=*__LONG_MY),&(pass4699=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+ 2 ),&(pass4700=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 ),&(pass4701= 1 ),&(pass4702=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))); +if(!qbevent)break;evnt(26307,6992,"ide_methods.bas");}while(r); +S_43114:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ +if(qbevent){evnt(26307,6993,"ide_methods.bas");if(r)goto S_43114;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26307,6993,"ide_methods.bas");}while(r); +} +S_43117:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ +if(qbevent){evnt(26307,6994,"ide_methods.bas");if(r)goto S_43117;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26307,6995,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=73; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_73:; +if(!qbevent)break;evnt(26307,6997,"ide_methods.bas");}while(r); +S_43121:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 1 )){ +if(qbevent){evnt(26307,6998,"ide_methods.bas");if(r)goto S_43121;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=qbr_float_to_long(floor(FUNC_MAP(&(pass4703=*__LONG_MX),&(pass4704=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))),&(pass4705=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 2 ),&(pass4706= 1 ),&(pass4707=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))); +if(!qbevent)break;evnt(26307,6999,"ide_methods.bas");}while(r); +S_43123:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))< 1 ))||new_error){ +if(qbevent){evnt(26307,7000,"ide_methods.bas");if(r)goto S_43123;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))= 1 ; +if(!qbevent)break;evnt(26307,7000,"ide_methods.bas");}while(r); +} +S_43126:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))||new_error){ +if(qbevent){evnt(26307,7001,"ide_methods.bas");if(r)goto S_43126;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; +if(!qbevent)break;evnt(26307,7002,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=74; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_74:; +if(!qbevent)break;evnt(26307,7004,"ide_methods.bas");}while(r); +} +} +} +} +} +}else{ +S_43133:; +if ((-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))== 1 ))||new_error){ +if(qbevent){evnt(26307,7008,"ide_methods.bas");if(r)goto S_43133;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 2 ; +if(!qbevent)break;evnt(26307,7009,"ide_methods.bas");}while(r); +} +S_43136:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32)))||new_error){ +if(qbevent){evnt(26307,7013,"ide_methods.bas");if(r)goto S_43136;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26307,7014,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7014,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13),FUNC_STR2(&(pass4708=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7015,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13),FUNC_STR2(&(pass4709=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7016,"ide_methods.bas");}while(r); +} +S_43142:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33)))||new_error){ +if(qbevent){evnt(26307,7018,"ide_methods.bas");if(r)goto S_43142;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; +if(!qbevent)break;evnt(26307,7019,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7019,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13),FUNC_STR2(&(pass4710=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7020,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13),FUNC_STR2(&(pass4711=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7021,"ide_methods.bas");}while(r); +} +S_43148:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))&((-(*__LONG_MX==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX))&(-(*__LONG_MY==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY))))||new_error){ +if(qbevent){evnt(26307,7023,"ide_methods.bas");if(r)goto S_43148;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; +if(!qbevent)break;evnt(26307,7024,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7025,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PANELACTIVE= 0 ; +if(!qbevent)break;evnt(26307,7026,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_new_txt_len("Close Watch Panel",17),qbs_new_txt_len("#Keep Variables;#Clear List",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7027,"ide_methods.bas");}while(r); +S_43153:; +if ((-(*_SUB_DEBUGMODE_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26307,7028,"ide_methods.bas");if(r)goto S_43153;} +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7029,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7030,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,7030,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7031,"ide_methods.bas");}while(r); +S_43158:; +fornext_value4713= 1 ; +fornext_finalvalue4713=*__LONG_TOTALVARIABLESCREATED; +fornext_step4713= 1 ; +if (fornext_step4713<0) fornext_step_negative4713=1; else fornext_step_negative4713=0; +if (new_error) goto fornext_error4713; +goto fornext_entrylabel4713; +while(1){ +fornext_value4713=fornext_step4713+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4713: +*_SUB_DEBUGMODE_LONG_I=fornext_value4713; +if (fornext_step_negative4713){ +if (fornext_value4713fornext_finalvalue4713) break; +} +fornext_error4713:; +if(qbevent){evnt(26307,7032,"ide_methods.bas");if(r)goto S_43158;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,7033,"ide_methods.bas");}while(r); +fornext_continue_4712:; +} +fornext_exit_4712:; +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7037,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7038,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7039,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7040,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7042,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7042,"ide_methods.bas");}while(r); +S_43168:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7043,"ide_methods.bas");if(r)goto S_43168;} +ww_continue_4714:; +} +ww_exit_4714:; +do{ +return_point[next_return_point++]=75; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_75:; +if(!qbevent)break;evnt(26307,7045,"ide_methods.bas");}while(r); +} +S_43172:; +if ((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16)))||new_error){ +if(qbevent){evnt(26307,7047,"ide_methods.bas");if(r)goto S_43172;} +S_43173:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 2 ))||new_error){ +if(qbevent){evnt(26307,7048,"ide_methods.bas");if(r)goto S_43173;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))- 1 ; +if(!qbevent)break;evnt(26307,7049,"ide_methods.bas");}while(r); +S_43175:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ +if(qbevent){evnt(26307,7050,"ide_methods.bas");if(r)goto S_43175;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26307,7050,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=76; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_76:; +if(!qbevent)break;evnt(26307,7051,"ide_methods.bas");}while(r); +S_43179:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 3 )){ +if(qbevent){evnt(26307,7052,"ide_methods.bas");if(r)goto S_43179;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))+ 1 ; +if(!qbevent)break;evnt(26307,7053,"ide_methods.bas");}while(r); +S_43181:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ +if(qbevent){evnt(26307,7054,"ide_methods.bas");if(r)goto S_43181;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26307,7055,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=77; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_77:; +if(!qbevent)break;evnt(26307,7057,"ide_methods.bas");}while(r); +} +} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; +if(!qbevent)break;evnt(26307,7059,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7059,"ide_methods.bas");}while(r); +} +S_43189:; +if ((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18)))||new_error){ +if(qbevent){evnt(26307,7061,"ide_methods.bas");if(r)goto S_43189;} +S_43190:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 2 ))||new_error){ +if(qbevent){evnt(26307,7062,"ide_methods.bas");if(r)goto S_43190;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))- 1 ; +if(!qbevent)break;evnt(26307,7063,"ide_methods.bas");}while(r); +S_43192:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))< 1 ))||new_error){ +if(qbevent){evnt(26307,7064,"ide_methods.bas");if(r)goto S_43192;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))= 1 ; +if(!qbevent)break;evnt(26307,7064,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=78; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_78:; +if(!qbevent)break;evnt(26307,7065,"ide_methods.bas");}while(r); +S_43196:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 3 )){ +if(qbevent){evnt(26307,7066,"ide_methods.bas");if(r)goto S_43196;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))+ 1 ; +if(!qbevent)break;evnt(26307,7067,"ide_methods.bas");}while(r); +S_43198:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))||new_error){ +if(qbevent){evnt(26307,7068,"ide_methods.bas");if(r)goto S_43198;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; +if(!qbevent)break;evnt(26307,7069,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=79; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_79:; +if(!qbevent)break;evnt(26307,7071,"ide_methods.bas");}while(r); +} +} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; +if(!qbevent)break;evnt(26307,7073,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7073,"ide_methods.bas");}while(r); +} +S_43206:; +if ((*_SUB_DEBUGMODE_LONG_MOUSEDOWN)||new_error){ +if(qbevent){evnt(26307,7075,"ide_methods.bas");if(r)goto S_43206;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7076,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26307,7077,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26307,7078,"ide_methods.bas");}while(r); +S_43210:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON> 0 ))&(-(*__LONG_MX==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX))&(-(*__LONG_MY==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY)))||new_error){ +if(qbevent){evnt(26307,7080,"ide_methods.bas");if(r)goto S_43210;} +S_43211:; +if(qbevent){evnt(26307,7081,"ide_methods.bas");if(r)goto S_43211;} +S_43212:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 1 )))||new_error){ +if(qbevent){evnt(26307,7082,"ide_methods.bas");if(r)goto S_43212;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7082,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7082,"ide_methods.bas");}while(r); +do{ +goto LABEL_F4; +if(!qbevent)break;evnt(26307,7082,"ide_methods.bas");}while(r); +sc_ec_208_end:; +goto sc_4715_end; +} +S_43216:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 2 )))||new_error){ +if(qbevent){evnt(26307,7083,"ide_methods.bas");if(r)goto S_43216;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7083,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7083,"ide_methods.bas");}while(r); +do{ +goto LABEL_F5; +if(!qbevent)break;evnt(26307,7083,"ide_methods.bas");}while(r); +sc_ec_209_end:; +goto sc_4715_end; +} +S_43220:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 3 )))||new_error){ +if(qbevent){evnt(26307,7084,"ide_methods.bas");if(r)goto S_43220;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7084,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7084,"ide_methods.bas");}while(r); +do{ +goto LABEL_F6; +if(!qbevent)break;evnt(26307,7084,"ide_methods.bas");}while(r); +sc_ec_210_end:; +goto sc_4715_end; +} +S_43224:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 4 )))||new_error){ +if(qbevent){evnt(26307,7085,"ide_methods.bas");if(r)goto S_43224;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7085,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7085,"ide_methods.bas");}while(r); +do{ +goto LABEL_F7; +if(!qbevent)break;evnt(26307,7085,"ide_methods.bas");}while(r); +sc_ec_211_end:; +goto sc_4715_end; +} +S_43228:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 5 )))||new_error){ +if(qbevent){evnt(26307,7086,"ide_methods.bas");if(r)goto S_43228;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7086,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7086,"ide_methods.bas");}while(r); +do{ +goto LABEL_F8; +if(!qbevent)break;evnt(26307,7086,"ide_methods.bas");}while(r); +sc_ec_212_end:; +goto sc_4715_end; +} +S_43232:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 6 )))||new_error){ +if(qbevent){evnt(26307,7087,"ide_methods.bas");if(r)goto S_43232;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7087,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7087,"ide_methods.bas");}while(r); +do{ +goto LABEL_F9; +if(!qbevent)break;evnt(26307,7087,"ide_methods.bas");}while(r); +sc_ec_213_end:; +goto sc_4715_end; +} +S_43236:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 7 )))||new_error){ +if(qbevent){evnt(26307,7088,"ide_methods.bas");if(r)goto S_43236;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7088,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7088,"ide_methods.bas");}while(r); +do{ +goto LABEL_F10; +if(!qbevent)break;evnt(26307,7088,"ide_methods.bas");}while(r); +sc_ec_214_end:; +goto sc_4715_end; +} +S_43240:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 8 )))||new_error){ +if(qbevent){evnt(26307,7089,"ide_methods.bas");if(r)goto S_43240;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26307,7089,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7089,"ide_methods.bas");}while(r); +do{ +goto LABEL_F12; +if(!qbevent)break;evnt(26307,7089,"ide_methods.bas");}while(r); +sc_ec_215_end:; +goto sc_4715_end; +} +sc_4715_end:; +} +S_43246:; +if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 ))))||new_error){ +if(qbevent){evnt(26307,7094,"ide_methods.bas");if(r)goto S_43246;} +S_43247:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26307,7096,"ide_methods.bas");if(r)goto S_43247;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7097,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_IDECYTEMP=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26307,7098,"ide_methods.bas");}while(r); +S_43250:; +if ((-(*_SUB_DEBUGMODE_LONG_IDECYTEMP<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,7099,"ide_methods.bas");if(r)goto S_43250;} +S_43251:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26307,7100,"ide_methods.bas");if(r)goto S_43251;} +S_43252:; +if ((-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]== -1 ))||new_error){ +if(qbevent){evnt(26307,7101,"ide_methods.bas");if(r)goto S_43252;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,7102,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("clear skip line:",16),l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7103,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26307,7105,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,7106,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("set skip line:",14),l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7107,"ide_methods.bas");}while(r); +} +}else{ +S_43261:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26307,7110,"ide_methods.bas");if(r)goto S_43261;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,7111,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear breakpoint:",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7112,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26307,7114,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,7115,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set breakpoint:",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7116,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7118,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=80; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_80:; +if(!qbevent)break;evnt(26307,7120,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=81; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_81:; +if(!qbevent)break;evnt(26307,7121,"ide_methods.bas");}while(r); +} +} +S_43275:; +}else{ +if ((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))){ +if(qbevent){evnt(26307,7124,"ide_methods.bas");if(r)goto S_43275;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7126,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26307,7127,"ide_methods.bas");}while(r); +S_43278:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,7128,"ide_methods.bas");if(r)goto S_43278;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,7128,"ide_methods.bas");}while(r); +} +S_43281:; +if ((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,7129,"ide_methods.bas");if(r)goto S_43281;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7129,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=82; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_82:; +if(!qbevent)break;evnt(26307,7129,"ide_methods.bas");}while(r); +} +S_43285:; +}else{ +if ((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))){ +if(qbevent){evnt(26307,7130,"ide_methods.bas");if(r)goto S_43285;} +S_43286:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26307,7132,"ide_methods.bas");if(r)goto S_43286;} +S_43287:; +if ((-(*__LONG_MY== 3 ))||new_error){ +if(qbevent){evnt(26307,7133,"ide_methods.bas");if(r)goto S_43287;} +do{ +goto LABEL_KEYUP; +if(!qbevent)break;evnt(26307,7133,"ide_methods.bas");}while(r); +} +S_43290:; +if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ +if(qbevent){evnt(26307,7134,"ide_methods.bas");if(r)goto S_43290;} +do{ +goto LABEL_KEYDOWN; +if(!qbevent)break;evnt(26307,7134,"ide_methods.bas");}while(r); +} +S_43293:; +if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ +if(qbevent){evnt(26307,7135,"ide_methods.bas");if(r)goto S_43293;} +S_43294:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26307,7137,"ide_methods.bas");if(r)goto S_43294;} +do{ +*_SUB_DEBUGMODE_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4716= 3 ),&(pass4717=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26307,7138,"ide_methods.bas");}while(r); +S_43296:; +if ((-(*_SUB_DEBUGMODE_LONG_Y!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26307,7139,"ide_methods.bas");if(r)goto S_43296;} +S_43297:; +if ((-(*__LONG_MY<*_SUB_DEBUGMODE_LONG_Y))||new_error){ +if(qbevent){evnt(26307,7140,"ide_methods.bas");if(r)goto S_43297;} +do{ +goto LABEL_PAGEUP; +if(!qbevent)break;evnt(26307,7141,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_PAGEDOWN; +if(!qbevent)break;evnt(26307,7143,"ide_methods.bas");}while(r); +} +} +} +} +} +S_43306:; +}else{ +if ((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 )))){ +if(qbevent){evnt(26307,7149,"ide_methods.bas");if(r)goto S_43306;} +do{ +goto LABEL_FINDJMP; +if(!qbevent)break;evnt(26307,7151,"ide_methods.bas");}while(r); +} +} +} +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,7154,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26307,7155,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26307,7156,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26307,7157,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; +if(!qbevent)break;evnt(26307,7158,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; +if(!qbevent)break;evnt(26307,7159,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; +if(!qbevent)break;evnt(26307,7160,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; +if(!qbevent)break;evnt(26307,7161,"ide_methods.bas");}while(r); +} +} +LABEL_UPDATESTATUSAREA:; +if(qbevent){evnt(26307,7166,"ide_methods.bas");r=0;} +S_43320:; +if ((func__hasfocus())||new_error){ +if(qbevent){evnt(26307,7167,"ide_methods.bas");if(r)goto S_43320;} +S_43321:; +if ((*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE)||new_error){ +if(qbevent){evnt(26307,7168,"ide_methods.bas");if(r)goto S_43321;} +do{ +SUB_UPDATEMENUHELPLINE(qbs_new_txt_len("Right-click for options; ESC to abort.",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7169,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=83; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PRINTVERSION; +RETURN_83:; +if(!qbevent)break;evnt(26307,7170,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=84; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEBUTTONS; +RETURN_84:; +if(!qbevent)break;evnt(26307,7171,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= 0 ; +if(!qbevent)break;evnt(26307,7172,"ide_methods.bas");}while(r); +} +}else{ +S_43328:; +if ((-(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE== 0 ))||new_error){ +if(qbevent){evnt(26307,7175,"ide_methods.bas");if(r)goto S_43328;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4718= 2 )); +if(!qbevent)break;evnt(26307,7176,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4719= 3 )); +if(!qbevent)break;evnt(26307,7177,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4720= 2 ),qbs_new_txt_len("Set focus to the IDE to control execution",41),&(pass4721= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7178,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= -1 ; +if(!qbevent)break;evnt(26307,7179,"ide_methods.bas");}while(r); +} +} +S_43335:; +if ((-(*__LONG_IDEDEBUGMODE> 1 ))||new_error){ +if(qbevent){evnt(26307,7182,"ide_methods.bas");if(r)goto S_43335;} +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7182,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26307,7184,"ide_methods.bas");}while(r); +S_43339:; +if(qbevent){evnt(26307,7185,"ide_methods.bas");if(r)goto S_43339;} +S_43340:; +if (((*_SUB_DEBUGMODE_LONG_K==( 18432 )))||new_error){ +if(qbevent){evnt(26307,7186,"ide_methods.bas");if(r)goto S_43340;} +LABEL_KEYUP:; +if(qbevent){evnt(26307,7187,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7188,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7188,"ide_methods.bas");}while(r); +S_43343:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7189,"ide_methods.bas");if(r)goto S_43343;} +do{ +*__LONG_IDESY=*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26307,7190,"ide_methods.bas");}while(r); +S_43345:; +if ((-(*__LONG_IDESY< 1 ))||new_error){ +if(qbevent){evnt(26307,7191,"ide_methods.bas");if(r)goto S_43345;} +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26307,7191,"ide_methods.bas");}while(r); +} +S_43348:; +if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ +if(qbevent){evnt(26307,7192,"ide_methods.bas");if(r)goto S_43348;} +do{ +*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,7192,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26307,7194,"ide_methods.bas");}while(r); +S_43353:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26307,7195,"ide_methods.bas");if(r)goto S_43353;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,7195,"ide_methods.bas");}while(r); +} +} +S_43357:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7197,"ide_methods.bas");if(r)goto S_43357;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7197,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=85; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_85:; +if(!qbevent)break;evnt(26307,7197,"ide_methods.bas");}while(r); +} +sc_ec_216_end:; +goto sc_4722_end; +} +S_43361:; +if (((*_SUB_DEBUGMODE_LONG_K==( 20480 )))||new_error){ +if(qbevent){evnt(26307,7198,"ide_methods.bas");if(r)goto S_43361;} +LABEL_KEYDOWN:; +if(qbevent){evnt(26307,7199,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7200,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7200,"ide_methods.bas");}while(r); +S_43364:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7201,"ide_methods.bas");if(r)goto S_43364;} +do{ +*__LONG_IDESY=*__LONG_IDESY+ 1 ; +if(!qbevent)break;evnt(26307,7202,"ide_methods.bas");}while(r); +S_43366:; +if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,7203,"ide_methods.bas");if(r)goto S_43366;} +do{ +*__LONG_IDESY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,7203,"ide_methods.bas");}while(r); +} +S_43369:; +if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ +if(qbevent){evnt(26307,7204,"ide_methods.bas");if(r)goto S_43369;} +do{ +*__LONG_IDECY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7204,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26307,7206,"ide_methods.bas");}while(r); +S_43374:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,7207,"ide_methods.bas");if(r)goto S_43374;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,7207,"ide_methods.bas");}while(r); +} +} +S_43378:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7209,"ide_methods.bas");if(r)goto S_43378;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7209,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=86; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_86:; +if(!qbevent)break;evnt(26307,7209,"ide_methods.bas");}while(r); +} +sc_ec_217_end:; +goto sc_4722_end; +} +S_43382:; +if (((*_SUB_DEBUGMODE_LONG_K==( 18688 )))||new_error){ +if(qbevent){evnt(26307,7210,"ide_methods.bas");if(r)goto S_43382;} +LABEL_PAGEUP:; +if(qbevent){evnt(26307,7211,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7212,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7212,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,7213,"ide_methods.bas");}while(r); +S_43386:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26307,7214,"ide_methods.bas");if(r)goto S_43386;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,7214,"ide_methods.bas");}while(r); +} +S_43389:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7215,"ide_methods.bas");if(r)goto S_43389;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7215,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=87; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_87:; +if(!qbevent)break;evnt(26307,7215,"ide_methods.bas");}while(r); +} +sc_ec_218_end:; +goto sc_4722_end; +} +S_43393:; +if (((*_SUB_DEBUGMODE_LONG_K==( 20736 )))||new_error){ +if(qbevent){evnt(26307,7216,"ide_methods.bas");if(r)goto S_43393;} +LABEL_PAGEDOWN:; +if(qbevent){evnt(26307,7217,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7218,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7218,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,7219,"ide_methods.bas");}while(r); +S_43397:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,7220,"ide_methods.bas");if(r)goto S_43397;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,7220,"ide_methods.bas");}while(r); +} +S_43400:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7221,"ide_methods.bas");if(r)goto S_43400;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7221,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=88; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_88:; +if(!qbevent)break;evnt(26307,7221,"ide_methods.bas");}while(r); +} +sc_ec_219_end:; +goto sc_4722_end; +} +S_43404:; +if (((*_SUB_DEBUGMODE_LONG_K==( 18176 )))||new_error){ +if(qbevent){evnt(26307,7222,"ide_methods.bas");if(r)goto S_43404;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7223,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7223,"ide_methods.bas");}while(r); +S_43407:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7224,"ide_methods.bas");if(r)goto S_43407;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,7224,"ide_methods.bas");}while(r); +} +S_43410:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7225,"ide_methods.bas");if(r)goto S_43410;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7225,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=89; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_89:; +if(!qbevent)break;evnt(26307,7225,"ide_methods.bas");}while(r); +} +sc_ec_220_end:; +goto sc_4722_end; +} +S_43414:; +if (((*_SUB_DEBUGMODE_LONG_K==( 20224 )))||new_error){ +if(qbevent){evnt(26307,7226,"ide_methods.bas");if(r)goto S_43414;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7227,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7227,"ide_methods.bas");}while(r); +S_43417:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7228,"ide_methods.bas");if(r)goto S_43417;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,7228,"ide_methods.bas");}while(r); +} +S_43420:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7229,"ide_methods.bas");if(r)goto S_43420;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7229,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=90; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_90:; +if(!qbevent)break;evnt(26307,7229,"ide_methods.bas");}while(r); +} +sc_ec_221_end:; +goto sc_4722_end; +} +S_43424:; +if (((*_SUB_DEBUGMODE_LONG_K==( 27 )))||new_error){ +if(qbevent){evnt(26307,7230,"ide_methods.bas");if(r)goto S_43424;} +LABEL_REQUESTQUIT:; +if(qbevent){evnt(26307,7231,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("free",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7232,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=91; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_91:; +if(!qbevent)break;evnt(26307,7233,"ide_methods.bas");}while(r); +do{ +sub_close(*__LONG_DEBUGCLIENT,1); +if(!qbevent)break;evnt(26307,7234,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4723= 0 )); +if(!qbevent)break;evnt(26307,7235,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4724= 0 )); +if(!qbevent)break;evnt(26307,7236,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4725= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4726= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7237,"ide_methods.bas");}while(r); +S_43431:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7238,"ide_methods.bas");if(r)goto S_43431;} +ww_continue_4727:; +} +ww_exit_4727:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,7239,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,7240,"ide_methods.bas");}while(r); +sc_ec_222_end:; +goto sc_4722_end; +} +S_43435:; +if (((*_SUB_DEBUGMODE_LONG_K==( 15360 )))||new_error){ +if(qbevent){evnt(26307,7241,"ide_methods.bas");if(r)goto S_43435;} +LABEL_REQUESTSUBSDIALOG:; +if(qbevent){evnt(26307,7242,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,7243,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,7243,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_R,FUNC_IDESUBS()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7244,"ide_methods.bas");}while(r); +S_43439:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26307,7245,"ide_methods.bas");if(r)goto S_43439;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7245,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=92; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_92:; +if(!qbevent)break;evnt(26307,7245,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7246,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7246,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=93; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_93:; +if(!qbevent)break;evnt(26307,7247,"ide_methods.bas");}while(r); +S_43446:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7248,"ide_methods.bas");if(r)goto S_43446;} +ww_continue_4728:; +} +ww_exit_4728:; +sc_ec_223_end:; +goto sc_4722_end; +} +S_43448:; +if (((*_SUB_DEBUGMODE_LONG_K==( 102 ))||(*_SUB_DEBUGMODE_LONG_K==( 70 )))||new_error){ +if(qbevent){evnt(26307,7249,"ide_methods.bas");if(r)goto S_43448;} +S_43449:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7250,"ide_methods.bas");if(r)goto S_43449;} +do{ +goto LABEL_FINDJMP; +if(!qbevent)break;evnt(26307,7250,"ide_methods.bas");}while(r); +} +sc_ec_224_end:; +goto sc_4722_end; +} +S_43452:; +if (((*_SUB_DEBUGMODE_LONG_K==( 15616 )))||new_error){ +if(qbevent){evnt(26307,7251,"ide_methods.bas");if(r)goto S_43452;} +S_43453:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7252,"ide_methods.bas");if(r)goto S_43453;} +do{ +goto LABEL_FINDJMP; +if(!qbevent)break;evnt(26307,7252,"ide_methods.bas");}while(r); +} +S_43456:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,7253,"ide_methods.bas");if(r)goto S_43456;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,7256,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7256,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,7257,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find[",5),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7258,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_A,qbs_left(__STRING_IDEFINDTEXT, 20 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7259,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 ,*__LONG_IDEWY- 4 ,_SUB_DEBUGMODE_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7260,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,7261,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 2 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7261,"ide_methods.bas");}while(r); +S_43465:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26307,7263,"ide_methods.bas");if(r)goto S_43465;} +do{ +*__INTEGER_IDEFINDINVERT= 1 ; +if(!qbevent)break;evnt(26307,7263,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7264,"ide_methods.bas");}while(r); +do{ +SUB_IDEFINDAGAIN(&(pass4729= -1 )); +if(!qbevent)break;evnt(26307,7265,"ide_methods.bas");}while(r); +}else{ +LABEL_FINDJMP:; +if(qbevent){evnt(26307,7267,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_R,FUNC_IDEFIND()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7268,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7269,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7269,"ide_methods.bas");}while(r); +S_43474:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7270,"ide_methods.bas");if(r)goto S_43474;} +ww_continue_4730:; +} +ww_exit_4730:; +} +do{ +return_point[next_return_point++]=94; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_94:; +if(!qbevent)break;evnt(26307,7272,"ide_methods.bas");}while(r); +sc_ec_225_end:; +goto sc_4722_end; +} +S_43478:; +if (((*_SUB_DEBUGMODE_LONG_K==( 15872 )))||new_error){ +if(qbevent){evnt(26307,7273,"ide_methods.bas");if(r)goto S_43478;} +LABEL_F4:; +if(qbevent){evnt(26307,7274,"ide_methods.bas");r=0;} +S_43479:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26307,7275,"ide_methods.bas");if(r)goto S_43479;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7276,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,7277,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=95; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_95:; +if(!qbevent)break;evnt(26307,7278,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE= -1 ; +if(!qbevent)break;evnt(26307,7279,"ide_methods.bas");}while(r); +}else{ +LABEL_REQUESTVARIABLEWATCH:; +if(qbevent){evnt(26307,7281,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26307,7282,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=96; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_96:; +if(!qbevent)break;evnt(26307,7283,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_SELECTVAR= 1 ; +if(!qbevent)break;evnt(26307,7284,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_FILTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7285,"ide_methods.bas");}while(r); +S_43489:; +do{ +if(qbevent){evnt(26307,7286,"ide_methods.bas");if(r)goto S_43489;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(_SUB_DEBUGMODE_STRING_CURRENTSUB,_SUB_DEBUGMODE_STRING_FILTER,_SUB_DEBUGMODE_LONG_SELECTVAR,_SUB_DEBUGMODE_LONG_RETURNACTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7287,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4732= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7288,"ide_methods.bas");}while(r); +S_43492:; +if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 1 ))||new_error){ +if(qbevent){evnt(26307,7289,"ide_methods.bas");if(r)goto S_43492;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4733= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7291,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISARRAY=string2b(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4734= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7292,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4735= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7293,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4736= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7294,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4737= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7295,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7296,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4738= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7297,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISUDT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4739= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7298,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4740= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7299,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4741= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7300,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4742= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7301,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4743= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7302,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4744= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7303,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPSCOPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7304,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4745= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7305,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7306,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4746= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7307,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7308,"ide_methods.bas");}while(r); +S_43511:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ +if(qbevent){evnt(26307,7310,"ide_methods.bas");if(r)goto S_43511;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set global address:",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7311,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set local address:",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7313,"ide_methods.bas");}while(r); +} +LABEL_FINDVARSIZE:; +if(qbevent){evnt(26307,7316,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,_SUB_DEBUGMODE_STRING_VARTYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7317,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE= 0 ; +if(!qbevent)break;evnt(26307,7318,"ide_methods.bas");}while(r); +S_43518:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,7319,"ide_methods.bas");if(r)goto S_43518;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7320,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE=qbr(func_val(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func__instrrev(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("* ",2),0)+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7321,"ide_methods.bas");}while(r); +} +S_43522:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,7323,"ide_methods.bas");if(r)goto S_43522;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7323,"ide_methods.bas");}while(r); +} +S_43525:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)))&(-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 ))))||new_error){ +if(qbevent){evnt(26307,7324,"ide_methods.bas");if(r)goto S_43525;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BIT",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7325,"ide_methods.bas");}while(r); +} +S_43528:; +if(qbevent){evnt(26307,7327,"ide_methods.bas");if(r)goto S_43528;} +S_43529:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BIT",14))))||new_error){ +if(qbevent){evnt(26307,7328,"ide_methods.bas");if(r)goto S_43529;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,l2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7329,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26307,7330,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7331,"ide_methods.bas");}while(r); +sc_ec_226_end:; +goto sc_4747_end; +} +S_43533:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ +if(qbevent){evnt(26307,7332,"ide_methods.bas");if(r)goto S_43533;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,b2string(qbr_float_to_long(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7333,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=1; +if(!qbevent)break;evnt(26307,7334,"ide_methods.bas");}while(r); +S_43536:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,7335,"ide_methods.bas");if(r)goto S_43536;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint8)(string2ub(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7336,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int8)(string2b(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7338,"ide_methods.bas");}while(r); +} +sc_ec_227_end:; +goto sc_4747_end; +} +S_43541:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ +if(qbevent){evnt(26307,7340,"ide_methods.bas");if(r)goto S_43541;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,i2string(qbr_float_to_long(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7341,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=2; +if(!qbevent)break;evnt(26307,7342,"ide_methods.bas");}while(r); +S_43544:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,7343,"ide_methods.bas");if(r)goto S_43544;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint16)(string2ui(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7344,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int16)(string2i(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7346,"ide_methods.bas");}while(r); +} +sc_ec_228_end:; +goto sc_4747_end; +} +S_43549:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ +if(qbevent){evnt(26307,7348,"ide_methods.bas");if(r)goto S_43549;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,l2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7349,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26307,7350,"ide_methods.bas");}while(r); +S_43552:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,7351,"ide_methods.bas");if(r)goto S_43552;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint32)(string2ul(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7352,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7354,"ide_methods.bas");}while(r); +} +sc_ec_229_end:; +goto sc_4747_end; +} +S_43557:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ +if(qbevent){evnt(26307,7356,"ide_methods.bas");if(r)goto S_43557;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,i642string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7357,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26307,7358,"ide_methods.bas");}while(r); +S_43560:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,7359,"ide_methods.bas");if(r)goto S_43560;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint64)(string2ui64(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7360,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int64)(string2i64(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7362,"ide_methods.bas");}while(r); +} +sc_ec_230_end:; +goto sc_4747_end; +} +S_43565:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(26307,7364,"ide_methods.bas");if(r)goto S_43565;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,s2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7365,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26307,7366,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((float)(string2s(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7367,"ide_methods.bas");}while(r); +sc_ec_231_end:; +goto sc_4747_end; +} +S_43569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(26307,7368,"ide_methods.bas");if(r)goto S_43569;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,d2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7369,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26307,7370,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((double)(string2d(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7371,"ide_methods.bas");}while(r); +sc_ec_232_end:; +goto sc_4747_end; +} +S_43573:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ +if(qbevent){evnt(26307,7372,"ide_methods.bas");if(r)goto S_43573;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,f2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7373,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=32; +if(!qbevent)break;evnt(26307,7374,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((long double)(string2f(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7375,"ide_methods.bas");}while(r); +sc_ec_233_end:; +goto sc_4747_end; +} +S_43577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ +if(qbevent){evnt(26307,7376,"ide_methods.bas");if(r)goto S_43577;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,o2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7377,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26307,7378,"ide_methods.bas");}while(r); +S_43580:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,7379,"ide_methods.bas");if(r)goto S_43580;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint64)(string2uo(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7380,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int64)(string2o(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7382,"ide_methods.bas");}while(r); +} +sc_ec_234_end:; +goto sc_4747_end; +} +S_43585:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(26307,7384,"ide_methods.bas");if(r)goto S_43585;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=_SUB_DEBUGMODE_STRING_VALUE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7385,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7386,"ide_methods.bas");}while(r); +S_43588:; +if ((*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE)||new_error){ +if(qbevent){evnt(26307,7387,"ide_methods.bas");if(r)goto S_43588;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE; +if(!qbevent)break;evnt(26307,7388,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_left(_SUB_DEBUGMODE_STRING_RESULT,*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7389,"ide_methods.bas");}while(r); +} +sc_ec_235_end:; +goto sc_4747_end; +} +sc_4747_end:; +S_43593:; +if (((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))|(-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 3 )))||new_error){ +if(qbevent){evnt(26307,7393,"ide_methods.bas");if(r)goto S_43593;} +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7393,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7395,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7396,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7397,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7398,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7399,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7400,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPISUDT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7401,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7402,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7403,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7404,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7405,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMPSCOPE->len)),_SUB_DEBUGMODE_STRING_TEMPSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7406,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7407,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VALUE->len)),_SUB_DEBUGMODE_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7408,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=97; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_97:; +if(!qbevent)break;evnt(26307,7409,"ide_methods.bas");}while(r); +S_43611:; +if ((-(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE> 0 ))||new_error){ +if(qbevent){evnt(26307,7411,"ide_methods.bas");if(r)goto S_43611;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),_SUB_DEBUGMODE_STRING_RESULT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7412,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7415,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7415,"ide_methods.bas");}while(r); +S_43616:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7416,"ide_methods.bas");if(r)goto S_43616;} +ww_continue_4761:; +} +ww_exit_4761:; +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26307,7417,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=98; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_98:; +if(!qbevent)break;evnt(26307,7418,"ide_methods.bas");}while(r); +S_43620:; +}else{ +if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))|(-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 3 ))){ +if(qbevent){evnt(26307,7419,"ide_methods.bas");if(r)goto S_43620;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4762= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7421,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISARRAY=-(string2b(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4763= 1 )))!= 0 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7422,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4764= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7423,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4765= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7424,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4766= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7425,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7426,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4767= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7427,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISUDT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4768= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7428,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4769= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7429,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4770= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7430,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4771= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7431,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4772= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7432,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4773= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7433,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPSCOPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7434,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4774= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7435,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7436,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4775= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7437,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7438,"ide_methods.bas");}while(r); +S_43639:; +if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))||new_error){ +if(qbevent){evnt(26307,7440,"ide_methods.bas");if(r)goto S_43639;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("set ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7441,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("clear ",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7444,"ide_methods.bas");}while(r); +} +S_43644:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ +if(qbevent){evnt(26307,7447,"ide_methods.bas");if(r)goto S_43644;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("global watchpoint:",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7448,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("local watchpoint:",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7450,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7453,"ide_methods.bas");}while(r); +S_43650:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,7454,"ide_methods.bas");if(r)goto S_43650;} +do{ +return_point[next_return_point++]=99; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_FINDVARSIZE; +RETURN_99:; +if(!qbevent)break;evnt(26307,7455,"ide_methods.bas");}while(r); +}else{ +S_43653:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len(" * ",3),0)> 0 ))&(((-(*_SUB_DEBUGMODE_LONG_TEMPISUDT!= 0 ))|(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,7457,"ide_methods.bas");if(r)goto S_43653;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=qbr(func_val(qbs__trim(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)+ 8 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7458,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8+4; +if(!qbevent)break;evnt(26307,7460,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7464,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7465,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7466,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7467,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7468,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7469,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPISUDT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7470,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7471,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7472,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7473,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7474,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMPSCOPE->len)),_SUB_DEBUGMODE_STRING_TEMPSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7475,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7476,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMP->len)),_SUB_DEBUGMODE_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7477,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=100; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_100:; +if(!qbevent)break;evnt(26307,7478,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7480,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7480,"ide_methods.bas");}while(r); +S_43676:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7481,"ide_methods.bas");if(r)goto S_43676;} +ww_continue_4781:; +} +ww_exit_4781:; +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26307,7482,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=101; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_101:; +if(!qbevent)break;evnt(26307,7483,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4731; +if(!qbevent)break;evnt(26307,7484,"ide_methods.bas");}while(r); +S_43681:; +}else{ +if (-(*_SUB_DEBUGMODE_LONG_RETURNACTION== -1 )){ +if(qbevent){evnt(26307,7485,"ide_methods.bas");if(r)goto S_43681;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7486,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7486,"ide_methods.bas");}while(r); +S_43684:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7487,"ide_methods.bas");if(r)goto S_43684;} +ww_continue_4782:; +} +ww_exit_4782:; +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26307,7488,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=102; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_102:; +if(!qbevent)break;evnt(26307,7489,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4731; +if(!qbevent)break;evnt(26307,7490,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_4731; +if(!qbevent)break;evnt(26307,7492,"ide_methods.bas");}while(r); +} +} +} +dl_continue_4731:; +}while(1); +dl_exit_4731:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7495,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7495,"ide_methods.bas");}while(r); +S_43695:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7496,"ide_methods.bas");if(r)goto S_43695;} +ww_continue_4783:; +} +ww_exit_4783:; +do{ +return_point[next_return_point++]=103; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_103:; +if(!qbevent)break;evnt(26307,7497,"ide_methods.bas");}while(r); +S_43698:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VARIABLEWATCHLIST->len))||new_error){ +if(qbevent){evnt(26307,7498,"ide_methods.bas");if(r)goto S_43698;} +do{ +*_SUB_DEBUGMODE_BYTE_PANELACTIVE= -1 ; +if(!qbevent)break;evnt(26307,7499,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEVALUES; +if(!qbevent)break;evnt(26307,7500,"ide_methods.bas");}while(r); +} +} +sc_ec_236_end:; +goto sc_4722_end; +} +S_43703:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16128 )))||new_error){ +if(qbevent){evnt(26307,7503,"ide_methods.bas");if(r)goto S_43703;} +LABEL_F5:; +if(qbevent){evnt(26307,7504,"ide_methods.bas");r=0;} +LABEL_REQUESTCONTINUE:; +if(qbevent){evnt(26307,7505,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26307,7506,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26307,7507,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("run",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7508,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=104; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_104:; +if(!qbevent)break;evnt(26307,7509,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4785= 1 )); +if(!qbevent)break;evnt(26307,7510,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4786= 1 ),qbs_new_txt_len("Running...",10),&(pass4787= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7511,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=105; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_105:; +if(!qbevent)break;evnt(26307,7512,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4788= 1 )); +if(!qbevent)break;evnt(26307,7513,"ide_methods.bas");}while(r); +do{ +set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); +if(!qbevent)break;evnt(26307,7514,"ide_methods.bas");}while(r); +sc_ec_237_end:; +goto sc_4722_end; +} +S_43713:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16384 )))||new_error){ +if(qbevent){evnt(26307,7515,"ide_methods.bas");if(r)goto S_43713;} +LABEL_F6:; +if(qbevent){evnt(26307,7516,"ide_methods.bas");r=0;} +LABEL_REQUESTSTEPOUT:; +if(qbevent){evnt(26307,7517,"ide_methods.bas");r=0;} +S_43714:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26307,7518,"ide_methods.bas");if(r)goto S_43714;} +S_43715:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_DEBUGMODE_STRING_CURRENTSUB->len> 0 )))||new_error){ +if(qbevent){evnt(26307,7519,"ide_methods.bas");if(r)goto S_43715;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26307,7520,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step out",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7521,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=106; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_106:; +if(!qbevent)break;evnt(26307,7522,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4790= 1 )); +if(!qbevent)break;evnt(26307,7523,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4791= 1 ),qbs_new_txt_len("Running...",10),&(pass4792= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7524,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4793= 1 )); +if(!qbevent)break;evnt(26307,7525,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=107; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_107:; +if(!qbevent)break;evnt(26307,7526,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_CLEARSTATUSWINDOW(&(pass4794= 0 )); +if(!qbevent)break;evnt(26307,7528,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4795= 1 ),qbs_new_txt_len("Not inside a sub/function.",26),&(pass4796= 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7529,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=108; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_108:; +if(!qbevent)break;evnt(26307,7530,"ide_methods.bas");}while(r); +} +} +sc_ec_238_end:; +goto sc_4722_end; +} +S_43729:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16640 )))||new_error){ +if(qbevent){evnt(26307,7533,"ide_methods.bas");if(r)goto S_43729;} +LABEL_F7:; +if(qbevent){evnt(26307,7534,"ide_methods.bas");r=0;} +LABEL_REQUESTSTEPINTO:; +if(qbevent){evnt(26307,7535,"ide_methods.bas");r=0;} +S_43730:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26307,7536,"ide_methods.bas");if(r)goto S_43730;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7537,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,7538,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=109; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_109:; +if(!qbevent)break;evnt(26307,7539,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7541,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,7542,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=110; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_110:; +if(!qbevent)break;evnt(26307,7543,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4797= 1 )); +if(!qbevent)break;evnt(26307,7545,"ide_methods.bas");}while(r); +S_43740:; +if ((*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT)||new_error){ +if(qbevent){evnt(26307,7546,"ide_methods.bas");if(r)goto S_43740;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4798= 1 ),qbs_new_txt_len("Execution will be paused after SLEEP/INPUT/LINE INPUT finishes running...",73),&(pass4799= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7547,"ide_methods.bas");}while(r); +do{ +set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); +if(!qbevent)break;evnt(26307,7548,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_SETSTATUSMESSAGE(&(pass4800= 1 ),qbs_new_txt_len("Paused.",7),&(pass4801= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7550,"ide_methods.bas");}while(r); +} +S_43746:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,7552,"ide_methods.bas");if(r)goto S_43746;} +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7552,"ide_methods.bas");}while(r); +} +sc_ec_239_end:; +goto sc_4722_end; +} +S_43749:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16896 )))||new_error){ +if(qbevent){evnt(26307,7553,"ide_methods.bas");if(r)goto S_43749;} +LABEL_F8:; +if(qbevent){evnt(26307,7554,"ide_methods.bas");r=0;} +LABEL_REQUESTSTEPOVER:; +if(qbevent){evnt(26307,7555,"ide_methods.bas");r=0;} +S_43750:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26307,7556,"ide_methods.bas");if(r)goto S_43750;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step over",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7557,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26307,7558,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=111; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_111:; +if(!qbevent)break;evnt(26307,7559,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4802= 1 )); +if(!qbevent)break;evnt(26307,7560,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4803= 1 ),qbs_new_txt_len("Running...",10),&(pass4804= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7561,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4805= 1 )); +if(!qbevent)break;evnt(26307,7562,"ide_methods.bas");}while(r); +}else{ +LABEL_REQUESTPAUSE:; +if(qbevent){evnt(26307,7564,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7565,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,7566,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=112; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_112:; +if(!qbevent)break;evnt(26307,7567,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4806= 1 )); +if(!qbevent)break;evnt(26307,7568,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4807= 1 ),qbs_new_txt_len("Paused.",7),&(pass4808= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7569,"ide_methods.bas");}while(r); +S_43763:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,7570,"ide_methods.bas");if(r)goto S_43763;} +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7570,"ide_methods.bas");}while(r); +} +} +sc_ec_240_end:; +goto sc_4722_end; +} +S_43767:; +if (((*_SUB_DEBUGMODE_LONG_K==( 17152 )))||new_error){ +if(qbevent){evnt(26307,7572,"ide_methods.bas");if(r)goto S_43767;} +LABEL_F9:; +if(qbevent){evnt(26307,7573,"ide_methods.bas");r=0;} +LABEL_REQUESTTOGGLEBREAKPOINT:; +if(qbevent){evnt(26307,7574,"ide_methods.bas");r=0;} +S_43768:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26307,7575,"ide_methods.bas");if(r)goto S_43768;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26307,7576,"ide_methods.bas");}while(r); +S_43770:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26307,7577,"ide_methods.bas");if(r)goto S_43770;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,7578,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set breakpoint:",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7579,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear breakpoint:",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7581,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*__LONG_IDECY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7583,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=113; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_113:; +if(!qbevent)break;evnt(26307,7584,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=114; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_114:; +if(!qbevent)break;evnt(26307,7585,"ide_methods.bas");}while(r); +} +sc_ec_241_end:; +goto sc_4722_end; +} +S_43780:; +if (((*_SUB_DEBUGMODE_LONG_K==( 17408 )))||new_error){ +if(qbevent){evnt(26307,7587,"ide_methods.bas");if(r)goto S_43780;} +LABEL_F10:; +if(qbevent){evnt(26307,7588,"ide_methods.bas");r=0;} +S_43781:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7589,"ide_methods.bas");if(r)goto S_43781;} +LABEL_REQUESTUNSKIPALLLINES:; +if(qbevent){evnt(26307,7590,"ide_methods.bas");r=0;} +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,7591,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear all skips",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7592,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=115; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_115:; +if(!qbevent)break;evnt(26307,7593,"ide_methods.bas");}while(r); +}else{ +LABEL_REQUESTCLEARBREAKPOINTS:; +if(qbevent){evnt(26307,7595,"ide_methods.bas");r=0;} +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(26307,7596,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear all breakpoints",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7597,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=116; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_116:; +if(!qbevent)break;evnt(26307,7598,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=117; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_117:; +if(!qbevent)break;evnt(26307,7600,"ide_methods.bas");}while(r); +sc_ec_242_end:; +goto sc_4722_end; +} +S_43791:; +if (((*_SUB_DEBUGMODE_LONG_K==( 34304 )))||new_error){ +if(qbevent){evnt(26307,7601,"ide_methods.bas");if(r)goto S_43791;} +LABEL_F12:; +if(qbevent){evnt(26307,7602,"ide_methods.bas");r=0;} +S_43792:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26307,7603,"ide_methods.bas");if(r)goto S_43792;} +LABEL_REQUESTCALLSTACK:; +if(qbevent){evnt(26307,7604,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7605,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=118; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_118:; +if(!qbevent)break;evnt(26307,7606,"ide_methods.bas");}while(r); +S_43795:; +if ((*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK)||new_error){ +if(qbevent){evnt(26307,7608,"ide_methods.bas");if(r)goto S_43795;} +do{ +goto LABEL_SHOWCALLSTACK; +if(!qbevent)break;evnt(26307,7608,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4809= 0 )); +if(!qbevent)break;evnt(26307,7609,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4810= 0 )); +if(!qbevent)break;evnt(26307,7610,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4811= 1 ),qbs_new_txt_len("Requesting call stack...",24),&(pass4812= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7611,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,7613,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= -1 ; +if(!qbevent)break;evnt(26307,7614,"ide_methods.bas");}while(r); +S_43803:; +do{ +if(qbevent){evnt(26307,7615,"ide_methods.bas");if(r)goto S_43803;} +do{ +return_point[next_return_point++]=119; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_119:; +if(!qbevent)break;evnt(26307,7616,"ide_methods.bas");}while(r); +S_43805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack size",15))))||new_error){ +if(qbevent){evnt(26307,7617,"ide_methods.bas");if(r)goto S_43805;} +do{ +*__LONG_CALLSTACKLENGTH=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7618,"ide_methods.bas");}while(r); +S_43807:; +if ((-(*__LONG_CALLSTACKLENGTH== 0 ))||new_error){ +if(qbevent){evnt(26307,7619,"ide_methods.bas");if(r)goto S_43807;} +do{ +goto dl_exit_4813; +if(!qbevent)break;evnt(26307,7619,"ide_methods.bas");}while(r); +} +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,7621,"ide_methods.bas");}while(r); +S_43812:; +dl_continue_4813:; +}while((!(qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))))&&(!new_error)); +dl_exit_4813:; +if(qbevent){evnt(26307,7622,"ide_methods.bas");if(r)goto S_43812;} +S_43813:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10))))||new_error){ +if(qbevent){evnt(26307,7624,"ide_methods.bas");if(r)goto S_43813;} +do{ +qbs_set(__STRING_CALLSTACKLIST,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7626,"ide_methods.bas");}while(r); +LABEL_SHOWCALLSTACK:; +if(qbevent){evnt(26307,7627,"ide_methods.bas");r=0;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4814= 0 )); +if(!qbevent)break;evnt(26307,7628,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4815= 1 ),qbs_new_txt_len("Paused.",7),&(pass4816= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7629,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RETVAL=FUNC_IDECALLSTACKBOX(); +if(!qbevent)break;evnt(26307,7630,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7631,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=120; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_120:; +if(!qbevent)break;evnt(26307,7632,"ide_methods.bas");}while(r); +S_43820:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7633,"ide_methods.bas");if(r)goto S_43820;} +ww_continue_4817:; +} +ww_exit_4817:; +}else{ +S_43823:; +if ((-(*__LONG_CALLSTACKLENGTH== -1 ))||new_error){ +if(qbevent){evnt(26307,7635,"ide_methods.bas");if(r)goto S_43823;} +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26307,7636,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4818= 0 )); +if(!qbevent)break;evnt(26307,7637,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4819= 1 ),qbs_new_txt_len("Error retrieving call stack.",28),&(pass4820= 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7638,"ide_methods.bas");}while(r); +S_43827:; +}else{ +if (-(*__LONG_CALLSTACKLENGTH== 0 )){ +if(qbevent){evnt(26307,7639,"ide_methods.bas");if(r)goto S_43827;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4821= 0 )); +if(!qbevent)break;evnt(26307,7640,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4822= 1 ),qbs_new_txt_len("No call stack log available.",28),&(pass4823= 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7641,"ide_methods.bas");}while(r); +} +} +} +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=~(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE); +if(!qbevent)break;evnt(26307,7644,"ide_methods.bas");}while(r); +} +sc_ec_243_end:; +goto sc_4722_end; +} +S_43834:; +if (((*_SUB_DEBUGMODE_LONG_K==( 103 ))||(*_SUB_DEBUGMODE_LONG_K==( 71 )))||new_error){ +if(qbevent){evnt(26307,7646,"ide_methods.bas");if(r)goto S_43834;} +S_43835:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7647,"ide_methods.bas");if(r)goto S_43835;} +S_43836:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26307,7648,"ide_methods.bas");if(r)goto S_43836;} +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Run To Line",11),__LONG_IDECY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7649,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7650,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7650,"ide_methods.bas");}while(r); +S_43840:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7651,"ide_methods.bas");if(r)goto S_43840;} +ww_continue_4824:; +} +ww_exit_4824:; +LABEL_REQUESTRUNTOTHISLINE:; +if(qbevent){evnt(26307,7652,"ide_methods.bas");r=0;} +S_43842:; +if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26307,7653,"ide_methods.bas");if(r)goto S_43842;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26307,7654,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26307,7655,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("run to line:",12),l2string(*_SUB_DEBUGMODE_LONG_RESULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7656,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=121; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_121:; +if(!qbevent)break;evnt(26307,7657,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4825= 1 )); +if(!qbevent)break;evnt(26307,7658,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4826= 1 ),qbs_new_txt_len("Running...",10),&(pass4827= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7659,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=122; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_122:; +if(!qbevent)break;evnt(26307,7660,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4828= 1 )); +if(!qbevent)break;evnt(26307,7661,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Set Next Line",13),__LONG_IDECY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7664,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7665,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7665,"ide_methods.bas");}while(r); +S_43856:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7666,"ide_methods.bas");if(r)goto S_43856;} +ww_continue_4829:; +} +ww_exit_4829:; +LABEL_REQUESTSETNEXTLINE:; +if(qbevent){evnt(26307,7667,"ide_methods.bas");r=0;} +S_43858:; +if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26307,7668,"ide_methods.bas");if(r)goto S_43858;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("set next line:",14),l2string(*_SUB_DEBUGMODE_LONG_RESULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7669,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=123; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_123:; +if(!qbevent)break;evnt(26307,7670,"ide_methods.bas");}while(r); +} +} +} +sc_ec_244_end:; +goto sc_4722_end; +} +S_43864:; +if (((*_SUB_DEBUGMODE_LONG_K==( 112 ))||(*_SUB_DEBUGMODE_LONG_K==( 80 )))||new_error){ +if(qbevent){evnt(26307,7674,"ide_methods.bas");if(r)goto S_43864;} +S_43865:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26307,7675,"ide_methods.bas");if(r)goto S_43865;} +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Skip Line",9),__LONG_IDECY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7676,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7677,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7677,"ide_methods.bas");}while(r); +S_43869:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7678,"ide_methods.bas");if(r)goto S_43869;} +ww_continue_4830:; +} +ww_exit_4830:; +LABEL_REQUESTTOGGLESKIPLINE:; +if(qbevent){evnt(26307,7679,"ide_methods.bas");r=0;} +S_43871:; +if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26307,7680,"ide_methods.bas");if(r)goto S_43871;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26307,7681,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set skip line:",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7682,"ide_methods.bas");}while(r); +S_43874:; +if ((-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26307,7683,"ide_methods.bas");if(r)goto S_43874;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear skip line:",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7683,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_RESULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7684,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=124; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_124:; +if(!qbevent)break;evnt(26307,7685,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=125; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_125:; +if(!qbevent)break;evnt(26307,7686,"ide_methods.bas");}while(r); +} +} +sc_ec_245_end:; +goto sc_4722_end; +} +sc_4722_end:; +do{ +return_point[next_return_point++]=126; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_126:; +if(!qbevent)break;evnt(26307,7691,"ide_methods.bas");}while(r); +S_43884:; +if(qbevent){evnt(26307,7693,"ide_methods.bas");if(r)goto S_43884;} +S_43885:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("breakpoint",10))||qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("line number",11))||qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10))))||new_error){ +if(qbevent){evnt(26307,7694,"ide_methods.bas");if(r)goto S_43885;} +do{ +*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK= 0 ; +if(!qbevent)break;evnt(26307,7695,"ide_methods.bas");}while(r); +S_43887:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10))))||new_error){ +if(qbevent){evnt(26307,7696,"ide_methods.bas");if(r)goto S_43887;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4832= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7697,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4833= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7698,"ide_methods.bas");}while(r); +do{ +*__LONG_LATESTWATCHPOINTMET=*_SUB_DEBUGMODE_LONG_TEMPINDEX; +if(!qbevent)break;evnt(26307,7699,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4834= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7700,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4835=string2l(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7701,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4836= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7702,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4837= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7703,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(" ",1)),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7704,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Watchpoint condition met",24),_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("#OK;#Clear Watchpoint",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7705,"ide_methods.bas");}while(r); +S_43897:; +if ((-(*_SUB_DEBUGMODE_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26307,7706,"ide_methods.bas");if(r)goto S_43897;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_add(qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX),_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES),_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7708,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,7709,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=func_instr(*_SUB_DEBUGMODE_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7710,"ide_methods.bas");}while(r); +S_43901:; +while((*_SUB_DEBUGMODE_LONG_I)||new_error){ +if(qbevent){evnt(26307,7711,"ide_methods.bas");if(r)goto S_43901;} +S_43902:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+ 8 ,_SUB_DEBUGMODE_STRING_TEMP->len,1),_SUB_DEBUGMODE_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26307,7712,"ide_methods.bas");if(r)goto S_43902;} +do{ +goto dl_exit_4838; +if(!qbevent)break;evnt(26307,7712,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_I=func_instr(*_SUB_DEBUGMODE_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7713,"ide_methods.bas");}while(r); +dl_continue_4838:; +} +dl_exit_4838:; +S_43907:; +if ((-(*_SUB_DEBUGMODE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26307,7716,"ide_methods.bas");if(r)goto S_43907;} +do{ +*_SUB_DEBUGMODE_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+ 4 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7718,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_left(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I- 1 ),func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+*_SUB_DEBUGMODE_LONG_J+ 8 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7719,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear last watchpoint",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7722,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=127; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_127:; +if(!qbevent)break;evnt(26307,7723,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_right(_SUB_DEBUGMODE_STRING_VALUE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7725,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_LATESTWATCHPOINTMET= 0 ; +if(!qbevent)break;evnt(26307,7727,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7729,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,7729,"ide_methods.bas");}while(r); +S_43920:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7730,"ide_methods.bas");if(r)goto S_43920;} +ww_continue_4840:; +} +ww_exit_4840:; +do{ +*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7731,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26307,7732,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7733,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26307,7734,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26307,7735,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,7736,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4841= 1 )); +if(!qbevent)break;evnt(26307,7737,"ide_methods.bas");}while(r); +S_43929:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("breakpoint",10))))||new_error){ +if(qbevent){evnt(26307,7738,"ide_methods.bas");if(r)goto S_43929;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4842= 1 ),qbs_add(qbs_new_txt_len("Breakpoint reached on line",26),qbs_str((int32)(*_SUB_DEBUGMODE_LONG_L))),&(pass4843= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7739,"ide_methods.bas");}while(r); +S_43931:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10)))){ +if(qbevent){evnt(26307,7740,"ide_methods.bas");if(r)goto S_43931;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4844= 1 ),qbs_add(qbs_add(qbs_new_txt_len("Watchpoint condition met (",26),_SUB_DEBUGMODE_STRING_TEMP),qbs_new_txt_len(")",1)),&(pass4845= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7741,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_SETSTATUSMESSAGE(&(pass4846= 1 ),qbs_new_txt_len("Paused.",7),&(pass4847= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7743,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,7745,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=128; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_128:; +if(!qbevent)break;evnt(26307,7746,"ide_methods.bas");}while(r); +S_43938:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&*_SUB_DEBUGMODE_BYTE_PANELACTIVE))||new_error){ +if(qbevent){evnt(26307,7749,"ide_methods.bas");if(r)goto S_43938;} +LABEL_REQUESTVARIABLEVALUES:; +if(qbevent){evnt(26307,7750,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4849= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7751,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,func_mid(__STRING_VARIABLEWATCHLIST, 9 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7752,"ide_methods.bas");}while(r); +S_43941:; +do{ +if(qbevent){evnt(26307,7753,"ide_methods.bas");if(r)goto S_43941;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP2,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4851= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7754,"ide_methods.bas");}while(r); +S_43943:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_DEBUGMODE_STRING_TEMP2,l2string( -1 ))))||new_error){ +if(qbevent){evnt(26307,7755,"ide_methods.bas");if(r)goto S_43943;} +do{ +goto dl_exit_4850; +if(!qbevent)break;evnt(26307,7755,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4852= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7756,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4853= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7757,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2l(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7758,"ide_methods.bas");}while(r); +S_43949:; +if ((-(*_SUB_DEBUGMODE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26307,7759,"ide_methods.bas");if(r)goto S_43949;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7760,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4854= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7762,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4855= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7763,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4856= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7764,"ide_methods.bas");}while(r); +S_43955:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ +if(qbevent){evnt(26307,7765,"ide_methods.bas");if(r)goto S_43955;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("get global var:",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7766,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("get local var:",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7768,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=129; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETVARSIZE; +RETURN_129:; +if(!qbevent)break;evnt(26307,7770,"ide_methods.bas");}while(r); +S_43961:; +if ((*_SUB_DEBUGMODE_LONG_VARSIZE)||new_error){ +if(qbevent){evnt(26307,7771,"ide_methods.bas");if(r)goto S_43961;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7772,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7773,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7774,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7775,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7776,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7777,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7778,"ide_methods.bas");}while(r); +S_43969:; +if ((*_SUB_DEBUGMODE_LONG_TEMPELEMENT)||new_error){ +if(qbevent){evnt(26307,7779,"ide_methods.bas");if(r)goto S_43969;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_SUB_DEBUGMODE_LONG_TEMPELEMENT* 4 )-( 3 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7780,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET= 0 ; +if(!qbevent)break;evnt(26307,7782,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7784,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7785,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7786,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7787,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7788,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7789,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=130; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_130:; +if(!qbevent)break;evnt(26307,7790,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7792,"ide_methods.bas");}while(r); +} +dl_continue_4850:; +}while(1); +dl_exit_4850:; +} +sc_ec_246_end:; +goto sc_4831_end; +} +S_43986:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("hwnd",4))))||new_error){ +if(qbevent){evnt(26307,7796,"ide_methods.bas");if(r)goto S_43986;} +do{ +*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND=string2o(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7797,"ide_methods.bas");}while(r); +sc_ec_247_end:; +goto sc_4831_end; +} +S_43988:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("address read",12))))||new_error){ +if(qbevent){evnt(26307,7798,"ide_methods.bas");if(r)goto S_43988;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(qbs_left(_SUB_DEBUGMODE_STRING_VALUE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7799,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 5 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7800,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 9 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7801,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 13 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7802,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,func_mid(_SUB_DEBUGMODE_STRING_VALUE, 17 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7803,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=131; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETVARSIZE; +RETURN_131:; +if(!qbevent)break;evnt(26307,7804,"ide_methods.bas");}while(r); +S_43995:; +if(qbevent){evnt(26307,7805,"ide_methods.bas");if(r)goto S_43995;} +S_43996:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))))||new_error){ +if(qbevent){evnt(26307,7806,"ide_methods.bas");if(r)goto S_43996;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int8)(string2b(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7806,"ide_methods.bas");}while(r); +sc_ec_248_end:; +goto sc_4858_end; +} +S_43998:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ +if(qbevent){evnt(26307,7807,"ide_methods.bas");if(r)goto S_43998;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint8)(string2ub(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7807,"ide_methods.bas");}while(r); +sc_ec_249_end:; +goto sc_4858_end; +} +S_44000:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))))||new_error){ +if(qbevent){evnt(26307,7808,"ide_methods.bas");if(r)goto S_44000;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int16)(string2i(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7808,"ide_methods.bas");}while(r); +sc_ec_250_end:; +goto sc_4858_end; +} +S_44002:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ +if(qbevent){evnt(26307,7809,"ide_methods.bas");if(r)goto S_44002;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint16)(string2ui(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7809,"ide_methods.bas");}while(r); +sc_ec_251_end:; +goto sc_4858_end; +} +S_44004:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))))||new_error){ +if(qbevent){evnt(26307,7810,"ide_methods.bas");if(r)goto S_44004;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7810,"ide_methods.bas");}while(r); +sc_ec_252_end:; +goto sc_4858_end; +} +S_44006:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ +if(qbevent){evnt(26307,7811,"ide_methods.bas");if(r)goto S_44006;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint32)(string2ul(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7811,"ide_methods.bas");}while(r); +sc_ec_253_end:; +goto sc_4858_end; +} +S_44008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))))||new_error){ +if(qbevent){evnt(26307,7812,"ide_methods.bas");if(r)goto S_44008;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int64)(string2i64(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7812,"ide_methods.bas");}while(r); +sc_ec_254_end:; +goto sc_4858_end; +} +S_44010:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ +if(qbevent){evnt(26307,7813,"ide_methods.bas");if(r)goto S_44010;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint64)(string2ui64(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7813,"ide_methods.bas");}while(r); +sc_ec_255_end:; +goto sc_4858_end; +} +S_44012:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(26307,7814,"ide_methods.bas");if(r)goto S_44012;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((float)(string2s(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7814,"ide_methods.bas");}while(r); +sc_ec_256_end:; +goto sc_4858_end; +} +S_44014:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(26307,7815,"ide_methods.bas");if(r)goto S_44014;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((double)(string2d(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7815,"ide_methods.bas");}while(r); +sc_ec_257_end:; +goto sc_4858_end; +} +S_44016:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ +if(qbevent){evnt(26307,7816,"ide_methods.bas");if(r)goto S_44016;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((long double)(string2f(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7816,"ide_methods.bas");}while(r); +sc_ec_258_end:; +goto sc_4858_end; +} +S_44018:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))))||new_error){ +if(qbevent){evnt(26307,7817,"ide_methods.bas");if(r)goto S_44018;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int64)(string2o(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7817,"ide_methods.bas");}while(r); +sc_ec_259_end:; +goto sc_4858_end; +} +S_44020:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ +if(qbevent){evnt(26307,7818,"ide_methods.bas");if(r)goto S_44020;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint64)(string2uo(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7818,"ide_methods.bas");}while(r); +sc_ec_260_end:; +goto sc_4858_end; +} +sc_4858_end:; +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),_SUB_DEBUGMODE_STRING_RECVDATA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7821,"ide_methods.bas");}while(r); +S_44024:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26307,7822,"ide_methods.bas");if(r)goto S_44024;} +do{ +return_point[next_return_point++]=132; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_132:; +if(!qbevent)break;evnt(26307,7822,"ide_methods.bas");}while(r); +} +sc_ec_261_end:; +goto sc_4831_end; +} +S_44027:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("current sub",11))))||new_error){ +if(qbevent){evnt(26307,7823,"ide_methods.bas");if(r)goto S_44027;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CURRENTSUB,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7824,"ide_methods.bas");}while(r); +S_44029:; +if ((*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE)||new_error){ +if(qbevent){evnt(26307,7825,"ide_methods.bas");if(r)goto S_44029;} +do{ +*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE= 0 ; +if(!qbevent)break;evnt(26307,7826,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=133; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_133:; +if(!qbevent)break;evnt(26307,7827,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26307,7828,"ide_methods.bas");}while(r); +} +sc_ec_262_end:; +goto sc_4831_end; +} +S_44034:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("quit",4))))||new_error){ +if(qbevent){evnt(26307,7830,"ide_methods.bas");if(r)goto S_44034;} +do{ +sub_close(*__LONG_DEBUGCLIENT,1); +if(!qbevent)break;evnt(26307,7831,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4859= 0 )); +if(!qbevent)break;evnt(26307,7832,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4860= 0 )); +if(!qbevent)break;evnt(26307,7833,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4861= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4862= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7834,"ide_methods.bas");}while(r); +S_44039:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_DEBUGMODE_STRING_VALUE->len))||new_error){ +if(qbevent){evnt(26307,7835,"ide_methods.bas");if(r)goto S_44039;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4864= 2 ),_SUB_DEBUGMODE_STRING_VALUE,&(pass4865= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7836,"ide_methods.bas");}while(r); +} +S_44042:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7838,"ide_methods.bas");if(r)goto S_44042;} +ww_continue_4866:; +} +ww_exit_4866:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,7839,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,7840,"ide_methods.bas");}while(r); +sc_ec_263_end:; +goto sc_4831_end; +} +S_44046:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("error",5))))||new_error){ +if(qbevent){evnt(26307,7841,"ide_methods.bas");if(r)goto S_44046;} +do{ +*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7842,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26307,7843,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7844,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26307,7845,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=134; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_134:; +if(!qbevent)break;evnt(26307,7846,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4867= 1 )); +if(!qbevent)break;evnt(26307,7847,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL, 4 ,NULL,2); +if(!qbevent)break;evnt(26307,7848,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4868= 1 ),qbs_add(qbs_new_txt_len("Error occurred on line",22),qbs_str((int32)(*_SUB_DEBUGMODE_LONG_L))),&(pass4869= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7849,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK= -1 ; +if(!qbevent)break;evnt(26307,7850,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26307,7851,"ide_methods.bas");}while(r); +sc_ec_264_end:; +goto sc_4831_end; +} +S_44057:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("enter input",11))))||new_error){ +if(qbevent){evnt(26307,7852,"ide_methods.bas");if(r)goto S_44057;} +do{ +*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT= -1 ; +if(!qbevent)break;evnt(26307,7853,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7854,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26307,7855,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26307,7856,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,7857,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=135; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_135:; +if(!qbevent)break;evnt(26307,7858,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4870= 1 )); +if(!qbevent)break;evnt(26307,7859,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4871= 1 )); +if(!qbevent)break;evnt(26307,7860,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4872= 1 ),qbs_new_txt_len("SLEEP/INPUT/LINE INPUT active in your program...",48),&(pass4873= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7861,"ide_methods.bas");}while(r); +do{ +set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); +if(!qbevent)break;evnt(26307,7862,"ide_methods.bas");}while(r); +sc_ec_265_end:; +goto sc_4831_end; +} +S_44068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("leave input",11))))||new_error){ +if(qbevent){evnt(26307,7863,"ide_methods.bas");if(r)goto S_44068;} +do{ +*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT= 0 ; +if(!qbevent)break;evnt(26307,7864,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4874= 1 )); +if(!qbevent)break;evnt(26307,7865,"ide_methods.bas");}while(r); +S_44071:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26307,7866,"ide_methods.bas");if(r)goto S_44071;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4875= 1 ),qbs_new_txt_len("Paused.",7),&(pass4876= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7867,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4877= 0 )); +if(!qbevent)break;evnt(26307,7868,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_SETSTATUSMESSAGE(&(pass4878= 1 ),qbs_new_txt_len("Running...",10),&(pass4879= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7870,"ide_methods.bas");}while(r); +} +sc_ec_266_end:; +goto sc_4831_end; +} +S_44077:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack size",15))))||new_error){ +if(qbevent){evnt(26307,7872,"ide_methods.bas");if(r)goto S_44077;} +do{ +*__LONG_CALLSTACKLENGTH=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7876,"ide_methods.bas");}while(r); +S_44079:; +if ((*__LONG_CALLSTACKLENGTH)||new_error){ +if(qbevent){evnt(26307,7877,"ide_methods.bas");if(r)goto S_44079;} +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,7878,"ide_methods.bas");}while(r); +S_44081:; +do{ +if(qbevent){evnt(26307,7879,"ide_methods.bas");if(r)goto S_44081;} +do{ +return_point[next_return_point++]=136; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_136:; +if(!qbevent)break;evnt(26307,7880,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,7881,"ide_methods.bas");}while(r); +S_44084:; +dl_continue_4880:; +}while((!(qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))))&&(!new_error)); +dl_exit_4880:; +if(qbevent){evnt(26307,7882,"ide_methods.bas");if(r)goto S_44084;} +S_44085:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10))))||new_error){ +if(qbevent){evnt(26307,7884,"ide_methods.bas");if(r)goto S_44085;} +do{ +qbs_set(__STRING_CALLSTACKLIST,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7886,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7889,"ide_methods.bas");}while(r); +} +sc_ec_267_end:; +goto sc_4831_end; +} +sc_4831_end:; +S_44092:; +if ((func__hasfocus())||new_error){ +if(qbevent){evnt(26307,7893,"ide_methods.bas");if(r)goto S_44092;} +do{ +return_point[next_return_point++]=137; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEBUTTONS; +RETURN_137:; +if(!qbevent)break;evnt(26307,7893,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,7894,"ide_methods.bas");}while(r); +dl_continue_4675:; +}while(1); +dl_exit_4675:; +S_44097:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7897,"ide_methods.bas");if(r)goto S_44097;} +ww_continue_4881:; +} +ww_exit_4881:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,7898,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,7899,"ide_methods.bas");}while(r); +LABEL_GETCOMMAND:; +if(qbevent){evnt(26307,7901,"ide_methods.bas");r=0;} +do{ +sub_get2(*__LONG_DEBUGCLIENT,NULL,_SUB_DEBUGMODE_STRING_TEMP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7902,"ide_methods.bas");}while(r); +S_44102:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(-(func__connected(*__LONG_DEBUGCLIENT)== 0 ))))||new_error){ +if(qbevent){evnt(26307,7903,"ide_methods.bas");if(r)goto S_44102;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4882= 0 )); +if(!qbevent)break;evnt(26307,7904,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4883= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4884= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7905,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4885= 2 ),qbs_new_txt_len("Disconnected.",13),&(pass4886= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7906,"ide_methods.bas");}while(r); +S_44106:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7907,"ide_methods.bas");if(r)goto S_44106;} +ww_continue_4887:; +} +ww_exit_4887:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,7908,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,7909,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,qbs_add(_SUB_DEBUGMODE_STRING_BUFFER,_SUB_DEBUGMODE_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7911,"ide_methods.bas");}while(r); +S_44112:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_DEBUGMODE_STRING_BUFFER->len>= 4 )))||new_error){ +if(qbevent){evnt(26307,7913,"ide_methods.bas");if(r)goto S_44112;} +do{ +*_SUB_DEBUGMODE_LONG_CMDSIZE=string2l(qbs_left(_SUB_DEBUGMODE_STRING_BUFFER, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7913,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_CMDSIZE= 0 ; +if(!qbevent)break;evnt(26307,7913,"ide_methods.bas");}while(r); +} +S_44117:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_DEBUGMODE_LONG_CMDSIZE> 0 ))&(-(_SUB_DEBUGMODE_STRING_BUFFER->len>=*_SUB_DEBUGMODE_LONG_CMDSIZE))))||new_error){ +if(qbevent){evnt(26307,7914,"ide_methods.bas");if(r)goto S_44117;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,func_mid(_SUB_DEBUGMODE_STRING_BUFFER, 5 ,*_SUB_DEBUGMODE_LONG_CMDSIZE,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7915,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,func_mid(_SUB_DEBUGMODE_STRING_BUFFER, 5 +*_SUB_DEBUGMODE_LONG_CMDSIZE,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7916,"ide_methods.bas");}while(r); +S_44120:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)))||new_error){ +if(qbevent){evnt(26307,7918,"ide_methods.bas");if(r)goto S_44120;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,func_mid(_SUB_DEBUGMODE_STRING_CMD,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7919,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_left(_SUB_DEBUGMODE_STRING_CMD,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7920,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7922,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7925,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7925,"ide_methods.bas");}while(r); +} +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7927,"ide_methods.bas");}while(r); +LABEL_SENDCOMMAND:; +if(qbevent){evnt(26307,7929,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(l2string(_SUB_DEBUGMODE_STRING_CMD->len),_SUB_DEBUGMODE_STRING_CMD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7930,"ide_methods.bas");}while(r); +do{ +sub_put2(*__LONG_DEBUGCLIENT,NULL,byte_element((uint64)_SUB_DEBUGMODE_STRING_CMD->chr,_SUB_DEBUGMODE_STRING_CMD->len,byte_element_4891),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7931,"ide_methods.bas");}while(r); +S_44133:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(-(func__connected(*__LONG_DEBUGCLIENT)== 0 ))))||new_error){ +if(qbevent){evnt(26307,7932,"ide_methods.bas");if(r)goto S_44133;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4892= 0 )); +if(!qbevent)break;evnt(26307,7933,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4893= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4894= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7934,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4895= 2 ),qbs_new_txt_len("Disconnected.",13),&(pass4896= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7935,"ide_methods.bas");}while(r); +S_44137:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26307,7936,"ide_methods.bas");if(r)goto S_44137;} +ww_continue_4897:; +} +ww_exit_4897:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,7937,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,7938,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7940,"ide_methods.bas");}while(r); +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7941,"ide_methods.bas");}while(r); +LABEL_UPDATEDISPLAY:; +if(qbevent){evnt(26307,7943,"ide_methods.bas");r=0;} +S_44144:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26307,7944,"ide_methods.bas");if(r)goto S_44144;} +do{ +*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE= -1 ; +if(!qbevent)break;evnt(26307,7944,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,7945,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26307,7946,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=138; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PRINTVERSION; +RETURN_138:; +if(!qbevent)break;evnt(26307,7948,"ide_methods.bas");}while(r); +S_44150:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE!= 0 ))&(-(__STRING_VARIABLEWATCHLIST->len> 0 ))))||new_error){ +if(qbevent){evnt(26307,7950,"ide_methods.bas");if(r)goto S_44150;} +S_44151:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26307,7951,"ide_methods.bas");if(r)goto S_44151;} +do{ +sub__console( 1 ); +if(!qbevent)break;evnt(26307,7951,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES=string2l(func_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7952,"ide_methods.bas");}while(r); +S_44155:; +if (((-(*_SUB_DEBUGMODE_LONG_HIDEPANEL== 0 ))&(-(*_SUB_DEBUGMODE_BYTE_PANELACTIVE== -1 )))||new_error){ +if(qbevent){evnt(26307,7953,"ide_methods.bas");if(r)goto S_44155;} +do{ +SUB_SHOWVWATCHPANEL((void*)( ((char*)(_SUB_DEBUGMODE_UDT_VWATCHPANEL)) + (0) ),_SUB_DEBUGMODE_STRING_CURRENTSUB,&(pass4899= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7953,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= 0 ; +if(!qbevent)break;evnt(26307,7954,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7957,"ide_methods.bas");}while(r); +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7958,"ide_methods.bas");}while(r); +LABEL_UPDATEBUTTONS:; +if(qbevent){evnt(26307,7960,"ide_methods.bas");r=0;} +S_44162:; +fornext_value4901= 1 ; +fornext_finalvalue4901=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); +fornext_step4901= 1 ; +if (fornext_step4901<0) fornext_step_negative4901=1; else fornext_step_negative4901=0; +if (new_error) goto fornext_error4901; +goto fornext_entrylabel4901; +while(1){ +fornext_value4901=fornext_step4901+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4901: +*_SUB_DEBUGMODE_LONG_I=fornext_value4901; +if (fornext_step_negative4901){ +if (fornext_value4901fornext_finalvalue4901) break; +} +fornext_error4901:; +if(qbevent){evnt(26307,7961,"ide_methods.bas");if(r)goto S_44162;} +S_44163:; +if (((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))))&(-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))+*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4)))))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))== 0 ))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))== 0 )))||new_error){ +if(qbevent){evnt(26307,7963,"ide_methods.bas");if(r)goto S_44163;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,7964,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7965,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,7967,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7968,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16)),*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2)),qbs_add(*((qbs**)((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),_SUB_DEBUGMODE_STRING_TEMP),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7970,"ide_methods.bas");}while(r); +fornext_continue_4900:; +} +fornext_exit_4900:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,7972,"ide_methods.bas");}while(r); +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,7973,"ide_methods.bas");}while(r); +LABEL_GETVARSIZE:; +if(qbevent){evnt(26307,7975,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE= 0 ; +if(!qbevent)break;evnt(26307,7976,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7977,"ide_methods.bas");}while(r); +LABEL_CHECKVARTYPE:; +if(qbevent){evnt(26307,7978,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,_SUB_DEBUGMODE_STRING_VARTYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7979,"ide_methods.bas");}while(r); +S_44177:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,7980,"ide_methods.bas");if(r)goto S_44177;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7980,"ide_methods.bas");}while(r); +} +S_44180:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,7981,"ide_methods.bas");if(r)goto S_44180;} +S_44181:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(func_mid(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,func__instrrev(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0))> 32 )))||new_error){ +if(qbevent){evnt(26307,7982,"ide_methods.bas");if(r)goto S_44181;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7983,"ide_methods.bas");}while(r); +S_44183:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ +if(qbevent){evnt(26307,7984,"ide_methods.bas");if(r)goto S_44183;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7984,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7986,"ide_methods.bas");}while(r); +S_44188:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ +if(qbevent){evnt(26307,7987,"ide_methods.bas");if(r)goto S_44188;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7987,"ide_methods.bas");}while(r); +} +} +S_44192:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@",38),qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_DEBUGMODE_STRING_TEMPVARTYPE),qbs_new_txt_len("@",1)),0))){ +if(qbevent){evnt(26307,7989,"ide_methods.bas");if(r)goto S_44192;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7990,"ide_methods.bas");}while(r); +S_44194:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ +if(qbevent){evnt(26307,7991,"ide_methods.bas");if(r)goto S_44194;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,7991,"ide_methods.bas");}while(r); +} +} +} +S_44198:; +if(qbevent){evnt(26307,7993,"ide_methods.bas");if(r)goto S_44198;} +S_44199:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ +if(qbevent){evnt(26307,7994,"ide_methods.bas");if(r)goto S_44199;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=1; +if(!qbevent)break;evnt(26307,7994,"ide_methods.bas");}while(r); +sc_ec_268_end:; +goto sc_4902_end; +} +S_44201:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ +if(qbevent){evnt(26307,7995,"ide_methods.bas");if(r)goto S_44201;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=2; +if(!qbevent)break;evnt(26307,7995,"ide_methods.bas");}while(r); +sc_ec_269_end:; +goto sc_4902_end; +} +S_44203:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ +if(qbevent){evnt(26307,7996,"ide_methods.bas");if(r)goto S_44203;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26307,7996,"ide_methods.bas");}while(r); +sc_ec_270_end:; +goto sc_4902_end; +} +S_44205:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ +if(qbevent){evnt(26307,7997,"ide_methods.bas");if(r)goto S_44205;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26307,7997,"ide_methods.bas");}while(r); +sc_ec_271_end:; +goto sc_4902_end; +} +S_44207:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(26307,7998,"ide_methods.bas");if(r)goto S_44207;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26307,7998,"ide_methods.bas");}while(r); +sc_ec_272_end:; +goto sc_4902_end; +} +S_44209:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(26307,7999,"ide_methods.bas");if(r)goto S_44209;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26307,7999,"ide_methods.bas");}while(r); +sc_ec_273_end:; +goto sc_4902_end; +} +S_44211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ +if(qbevent){evnt(26307,8000,"ide_methods.bas");if(r)goto S_44211;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=32; +if(!qbevent)break;evnt(26307,8000,"ide_methods.bas");}while(r); +sc_ec_274_end:; +goto sc_4902_end; +} +S_44213:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ +if(qbevent){evnt(26307,8001,"ide_methods.bas");if(r)goto S_44213;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26307,8001,"ide_methods.bas");}while(r); +sc_ec_275_end:; +goto sc_4902_end; +} +S_44215:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(26307,8002,"ide_methods.bas");if(r)goto S_44215;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8+4; +if(!qbevent)break;evnt(26307,8002,"ide_methods.bas");}while(r); +sc_ec_276_end:; +goto sc_4902_end; +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETELEMENT(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),_SUB_DEBUGMODE_LONG_TEMPELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8004,"ide_methods.bas");}while(r); +S_44219:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,8005,"ide_methods.bas");if(r)goto S_44219;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=qbr(func_val(qbs__trim(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)+ 8 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8007,"ide_methods.bas");}while(r); +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,8008,"ide_methods.bas");}while(r); +} +S_44223:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_DEBUGMODE_STRING_VARTYPE->len))||new_error){ +if(qbevent){evnt(26307,8010,"ide_methods.bas");if(r)goto S_44223;} +do{ +goto LABEL_CHECKVARTYPE; +if(!qbevent)break;evnt(26307,8010,"ide_methods.bas");}while(r); +} +sc_4902_end:; +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,8012,"ide_methods.bas");}while(r); +LABEL_PRINTVERSION:; +if(qbevent){evnt(26307,8014,"ide_methods.bas");r=0;} +S_44228:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ +if(qbevent){evnt(26307,8016,"ide_methods.bas");if(r)goto S_44228;} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len(" v",2),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8017,"ide_methods.bas");}while(r); +S_44230:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ +if(qbevent){evnt(26307,8018,"ide_methods.bas");if(r)goto S_44230;} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,func_mid(__STRING_AUTOBUILDMSG,func__instrrev(NULL,__STRING_AUTOBUILDMSG,qbs_new_txt_len(" ",1),0),NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8018,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8019,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 2 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,8021,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8022,"ide_methods.bas");}while(r); +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,8023,"ide_methods.bas");}while(r); +LABEL_CHECKVWATCHPANELSIZE:; +if(qbevent){evnt(26307,8025,"ide_methods.bas");r=0;} +S_44238:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))< 40 ))||new_error){ +if(qbevent){evnt(26307,8026,"ide_methods.bas");if(r)goto S_44238;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))= 40 ; +if(!qbevent)break;evnt(26307,8026,"ide_methods.bas");}while(r); +} +S_44241:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))>(*__LONG_IDEWX- 12 )))||new_error){ +if(qbevent){evnt(26307,8027,"ide_methods.bas");if(r)goto S_44241;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*__LONG_IDEWX- 12 ; +if(!qbevent)break;evnt(26307,8027,"ide_methods.bas");}while(r); +} +S_44244:; +if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26307,8028,"ide_methods.bas");if(r)goto S_44244;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=(*__LONG_IDEWX- 1 )-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0)); +if(!qbevent)break;evnt(26307,8029,"ide_methods.bas");}while(r); +} +S_44247:; +if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))>*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT))||new_error){ +if(qbevent){evnt(26307,8031,"ide_methods.bas");if(r)goto S_44247;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))- 1 ); +if(!qbevent)break;evnt(26307,8032,"ide_methods.bas");}while(r); +} +S_44250:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))< 5 ))||new_error){ +if(qbevent){evnt(26307,8034,"ide_methods.bas");if(r)goto S_44250;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))= 5 ; +if(!qbevent)break;evnt(26307,8034,"ide_methods.bas");}while(r); +} +S_44253:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ +if(qbevent){evnt(26307,8035,"ide_methods.bas");if(r)goto S_44253;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*__LONG_IDEWY- 10 ; +if(!qbevent)break;evnt(26307,8035,"ide_methods.bas");}while(r); +} +do{ +#include "ret134.txt" +if(!qbevent)break;evnt(26307,8036,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free134.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +float FUNC_MAP(float*_FUNC_MAP_SINGLE_VALUE,float*_FUNC_MAP_SINGLE_MINRANGE,float*_FUNC_MAP_SINGLE_MAXRANGE,float*_FUNC_MAP_SINGLE_NEWMINRANGE,float*_FUNC_MAP_SINGLE_NEWMAXRANGE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data135.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_MAP_SINGLE_MAP=(((*_FUNC_MAP_SINGLE_VALUE-*_FUNC_MAP_SINGLE_MINRANGE)/ (*_FUNC_MAP_SINGLE_MAXRANGE-*_FUNC_MAP_SINGLE_MINRANGE))*(*_FUNC_MAP_SINGLE_NEWMAXRANGE-*_FUNC_MAP_SINGLE_NEWMINRANGE))+*_FUNC_MAP_SINGLE_NEWMINRANGE; +if(!qbevent)break;evnt(26307,8040,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free135.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_MAP_SINGLE_MAP; +} +void SUB_SHOWVWATCHPANEL(void*_SUB_SHOWVWATCHPANEL_UDT_THIS,qbs*_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE,int8*_SUB_SHOWVWATCHPANEL_BYTE_ACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data136.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,8044,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,8045,"ide_methods.bas");}while(r); +S_44260:; +if ((-(*_SUB_SHOWVWATCHPANEL_BYTE_ACTION== 1 ))||new_error){ +if(qbevent){evnt(26307,8047,"ide_methods.bas");if(r)goto S_44260;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8047,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,8047,"ide_methods.bas");}while(r); +} +S_44264:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,__STRING_VARIABLEWATCHLIST)))||new_error){ +if(qbevent){evnt(26307,8049,"ide_methods.bas");if(r)goto S_44264;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,__STRING_VARIABLEWATCHLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8051,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=string2l(qbs_left(__STRING_VARIABLEWATCHLIST, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8052,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES=string2l(func_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8053,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES+ 2 ; +if(!qbevent)break;evnt(26307,8054,"ide_methods.bas");}while(r); +S_44269:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ +if(qbevent){evnt(26307,8055,"ide_methods.bas");if(r)goto S_44269;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*__LONG_IDEWY- 10 ; +if(!qbevent)break;evnt(26307,8055,"ide_methods.bas");}while(r); +} +S_44272:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))< 5 ))||new_error){ +if(qbevent){evnt(26307,8056,"ide_methods.bas");if(r)goto S_44272;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))= 5 ; +if(!qbevent)break;evnt(26307,8056,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_FG= 0 ; +if(!qbevent)break;evnt(26307,8059,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_BG= 7 ; +if(!qbevent)break;evnt(26307,8059,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_new_txt_len("Watch List",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8061,"ide_methods.bas");}while(r); +S_44279:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE->len))||new_error){ +if(qbevent){evnt(26307,8062,"ide_methods.bas");if(r)goto S_44279;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_new_txt_len(" - ",3)),_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8062,"ide_methods.bas");}while(r); +} +S_44282:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))<(_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 4 ))))||new_error){ +if(qbevent){evnt(26307,8063,"ide_methods.bas");if(r)goto S_44282;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 4 ; +if(!qbevent)break;evnt(26307,8064,"ide_methods.bas");}while(r); +S_44284:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))+ 2 )>*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26307,8065,"ide_methods.bas");if(r)goto S_44284;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))=*__LONG_IDEWX-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))+ 2 ); +if(!qbevent)break;evnt(26307,8065,"ide_methods.bas");}while(r); +} +} +S_44288:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26307,8068,"ide_methods.bas");if(r)goto S_44288;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT=*__LONG_IDEWY- 6 ; +if(!qbevent)break;evnt(26307,8069,"ide_methods.bas");}while(r); +S_44290:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))< 2 ))||new_error){ +if(qbevent){evnt(26307,8071,"ide_methods.bas");if(r)goto S_44290;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))= 2 ; +if(!qbevent)break;evnt(26307,8071,"ide_methods.bas");}while(r); +} +S_44293:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26307,8072,"ide_methods.bas");if(r)goto S_44293;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ; +if(!qbevent)break;evnt(26307,8072,"ide_methods.bas");}while(r); +} +S_44296:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))< 3 ))||new_error){ +if(qbevent){evnt(26307,8073,"ide_methods.bas");if(r)goto S_44296;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))= 3 ; +if(!qbevent)break;evnt(26307,8073,"ide_methods.bas");}while(r); +} +S_44299:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))>(*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ))))||new_error){ +if(qbevent){evnt(26307,8074,"ide_methods.bas");if(r)goto S_44299;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))=*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ); +if(!qbevent)break;evnt(26307,8074,"ide_methods.bas");}while(r); +} +S_44302:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))< 40 ))||new_error){ +if(qbevent){evnt(26307,8076,"ide_methods.bas");if(r)goto S_44302;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))= 40 ; +if(!qbevent)break;evnt(26307,8076,"ide_methods.bas");}while(r); +} +S_44305:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))>(*__LONG_IDEWX- 12 )))||new_error){ +if(qbevent){evnt(26307,8077,"ide_methods.bas");if(r)goto S_44305;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=*__LONG_IDEWX- 12 ; +if(!qbevent)break;evnt(26307,8077,"ide_methods.bas");}while(r); +} +S_44308:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26307,8078,"ide_methods.bas");if(r)goto S_44308;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=(*__LONG_IDEWX- 1 )-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0)); +if(!qbevent)break;evnt(26307,8079,"ide_methods.bas");}while(r); +} +S_44311:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6)))>*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT))||new_error){ +if(qbevent){evnt(26307,8081,"ide_methods.bas");if(r)goto S_44311;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))- 1 ); +if(!qbevent)break;evnt(26307,8082,"ide_methods.bas");}while(r); +} +S_44314:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))< 5 ))||new_error){ +if(qbevent){evnt(26307,8084,"ide_methods.bas");if(r)goto S_44314;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))= 5 ; +if(!qbevent)break;evnt(26307,8084,"ide_methods.bas");}while(r); +} +S_44317:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ +if(qbevent){evnt(26307,8085,"ide_methods.bas");if(r)goto S_44317;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*__LONG_IDEWY- 10 ; +if(!qbevent)break;evnt(26307,8085,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26307,8087,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOXSHADOW(&(pass4921=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))),&(pass4922=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))),&(pass4923=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))),&(pass4924=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6)))); +if(!qbevent)break;evnt(26307,8088,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 ,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26307,8089,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ,func_chr( 254 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8090,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_X=_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8092,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26307,8093,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))/ 2 ))-((*_SUB_SHOWVWATCHPANEL_LONG_X- 1 )/ 2 ),*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2)),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_SHOWVWATCHPANEL_STRING_TITLE),qbs_new_txt_len(" ",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8094,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 4 ,NULL,3); +if(!qbevent)break;evnt(26307,8095,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 3 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2)),qbs_new_txt_len(" x ",3),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8096,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,2); +if(!qbevent)break;evnt(26307,8097,"ide_methods.bas");}while(r); +}else{ +do{ +sub__echo(qbs_add(qbs_new_txt_len("-------- ",9),_SUB_SHOWVWATCHPANEL_STRING_TITLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8099,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_Y= 0 ; +if(!qbevent)break;evnt(26307,8102,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,8103,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX= 0 ; +if(!qbevent)break;evnt(26307,8104,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY= 0 ; +if(!qbevent)break;evnt(26307,8105,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH= 0 ; +if(!qbevent)break;evnt(26307,8106,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))= 0 ; +if(!qbevent)break;evnt(26307,8107,"ide_methods.bas");}while(r); +S_44339:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))== 0 ))||new_error){ +if(qbevent){evnt(26307,8108,"ide_methods.bas");if(r)goto S_44339;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))= 1 ; +if(!qbevent)break;evnt(26307,8108,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4926= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8109,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP,func_mid(__STRING_VARIABLEWATCHLIST, 9 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8110,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME= 0 ; +if(!qbevent)break;evnt(26307,8111,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; +if(!qbevent)break;evnt(26307,8112,"ide_methods.bas");}while(r); +S_44346:; +do{ +if(qbevent){evnt(26307,8113,"ide_methods.bas");if(r)goto S_44346;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4928= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8114,"ide_methods.bas");}while(r); +S_44348:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,l2string( -1 ))))||new_error){ +if(qbevent){evnt(26307,8115,"ide_methods.bas");if(r)goto S_44348;} +do{ +goto dl_exit_4927; +if(!qbevent)break;evnt(26307,8115,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4929= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8116,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4930= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8117,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8118,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4931= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8119,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4932= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8120,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4933= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8121,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_I=*_SUB_SHOWVWATCHPANEL_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,8123,"ide_methods.bas");}while(r); +S_44358:; +if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))>*_SUB_SHOWVWATCHPANEL_LONG_I))&(-(*__BYTE_WATCHLISTTOCONSOLE== 0 )))||new_error){ +if(qbevent){evnt(26307,8124,"ide_methods.bas");if(r)goto S_44358;} +do{ +goto dl_continue_4927; +if(!qbevent)break;evnt(26307,8124,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_Y=*_SUB_SHOWVWATCHPANEL_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,8125,"ide_methods.bas");}while(r); +S_44362:; +if (((-(*_SUB_SHOWVWATCHPANEL_LONG_Y>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )))&(-(*__BYTE_WATCHLISTTOCONSOLE== 0 )))||new_error){ +if(qbevent){evnt(26307,8126,"ide_methods.bas");if(r)goto S_44362;} +do{ +goto dl_exit_4927; +if(!qbevent)break;evnt(26307,8126,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8128,"ide_methods.bas");}while(r); +S_44366:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26307,8129,"ide_methods.bas");if(r)goto S_44366;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_left(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8130,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES=*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES/ 4 ; +if(!qbevent)break;evnt(26307,8131,"ide_methods.bas");}while(r); +S_44369:; +fornext_value4936= 1 ; +fornext_finalvalue4936=*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES; +fornext_step4936= 1 ; +if (fornext_step4936<0) fornext_step_negative4936=1; else fornext_step_negative4936=0; +if (new_error) goto fornext_error4936; +goto fornext_entrylabel4936; +while(1){ +fornext_value4936=fornext_step4936+(*_SUB_SHOWVWATCHPANEL_LONG_J); +fornext_entrylabel4936: +*_SUB_SHOWVWATCHPANEL_LONG_J=fornext_value4936; +if (fornext_step_negative4936){ +if (fornext_value4936fornext_finalvalue4936) break; +} +fornext_error4936:; +if(qbevent){evnt(26307,8132,"ide_methods.bas");if(r)goto S_44369;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_ltrim(qbs_str((int32)(string2l(func_mid(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES,(*_SUB_SHOWVWATCHPANEL_LONG_J* 4 )-( 3 ), 4 ,1))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8133,"ide_methods.bas");}while(r); +S_44371:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_J<*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES))||new_error){ +if(qbevent){evnt(26307,8134,"ide_methods.bas");if(r)goto S_44371;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_new_txt_len(", ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8134,"ide_methods.bas");}while(r); +} +fornext_continue_4935:; +} +fornext_exit_4935:; +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8136,"ide_methods.bas");}while(r); +} +S_44377:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)||new_error){ +if(qbevent){evnt(26307,8138,"ide_methods.bas");if(r)goto S_44377;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8139,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,FUNC_GETELEMENT(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST,_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8140,"ide_methods.bas");}while(r); +} +S_44381:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len>*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME)))||new_error){ +if(qbevent){evnt(26307,8142,"ide_methods.bas");if(r)goto S_44381;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME=_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8142,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,func_space(*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME-_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len)),qbs_new_txt_len(" = ",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8143,"ide_methods.bas");}while(r); +S_44385:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26307,8144,"ide_methods.bas");if(r)goto S_44385;} +S_44386:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)||new_error){ +if(qbevent){evnt(26307,8145,"ide_methods.bas");if(r)goto S_44386;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,FUNC_GETELEMENT(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8146,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8148,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_THISISASTRING=((-(func_instr(NULL,_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING *",8),0)> 0 ))|(qbs_equal(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8150,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8151,"ide_methods.bas");}while(r); +S_44393:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26307,8152,"ide_methods.bas");if(r)goto S_44393;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,func_chr( 34 )),_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8153,"ide_methods.bas");}while(r); +S_44395:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON> 0 ))||new_error){ +if(qbevent){evnt(26307,8154,"ide_methods.bas");if(r)goto S_44395;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; +if(!qbevent)break;evnt(26307,8154,"ide_methods.bas");}while(r); +} +}else{ +S_44399:; +if (((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON== 0 ))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y))))||new_error){ +if(qbevent){evnt(26307,8156,"ide_methods.bas");if(r)goto S_44399;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON=_SUB_SHOWVWATCHPANEL_STRING_ITEM->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8156,"ide_methods.bas");}while(r); +} +S_44402:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26307,8157,"ide_methods.bas");if(r)goto S_44402;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; +if(!qbevent)break;evnt(26307,8157,"ide_methods.bas");}while(r); +} +S_44405:; +sc_4941=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26307,8159,"ide_methods.bas");if(r)goto S_44405;} +S_44406:; +if (((sc_4941==( 1 )))||new_error){ +if(qbevent){evnt(26307,8161,"ide_methods.bas");if(r)goto S_44406;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8161,"ide_methods.bas");}while(r); +sc_ec_277_end:; +goto sc_4941_end; +} +S_44408:; +if (((sc_4941==( 2 )))||new_error){ +if(qbevent){evnt(26307,8162,"ide_methods.bas");if(r)goto S_44408;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8162,"ide_methods.bas");}while(r); +sc_ec_278_end:; +goto sc_4941_end; +} +S_44410:; +if (((sc_4941==( 3 )))||new_error){ +if(qbevent){evnt(26307,8163,"ide_methods.bas");if(r)goto S_44410;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8163,"ide_methods.bas");}while(r); +sc_ec_279_end:; +goto sc_4941_end; +} +sc_4941_end:; +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8165,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,NULL,NULL,1); +if(!qbevent)break;evnt(26307,8167,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_new_txt_len("",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8169,"ide_methods.bas");}while(r); +S_44418:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26307,8170,"ide_methods.bas");if(r)goto S_44418;} +do{ +qbg_sub_color( 2 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,8170,"ide_methods.bas");}while(r); +} +} +S_44422:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_SHOWVWATCHPANEL_STRING_ITEM->len>*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24)))))||new_error){ +if(qbevent){evnt(26307,8172,"ide_methods.bas");if(r)goto S_44422;} +do{ +*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))=_SUB_SHOWVWATCHPANEL_STRING_ITEM->len; +if(!qbevent)break;evnt(26307,8172,"ide_methods.bas");}while(r); +} +S_44425:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26307,8173,"ide_methods.bas");if(r)goto S_44425;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,func_mid(_SUB_SHOWVWATCHPANEL_STRING_ITEM,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)),NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8174,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,qbs_left(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8175,"ide_methods.bas");}while(r); +S_44428:; +if ((qbs_cleanup(qbs_tmp_base,-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 +_SUB_SHOWVWATCHPANEL_STRING_TEMP2->len)>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 2 ))))||new_error){ +if(qbevent){evnt(26307,8176,"ide_methods.bas");if(r)goto S_44428;} +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 2 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,func_chr( 26 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8177,"ide_methods.bas");}while(r); +} +S_44431:; +if (((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON> 0 ))&(-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON>=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))))&(-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)))<(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )))&(-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)))>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 ))))||new_error){ +if(qbevent){evnt(26307,8183,"ide_methods.bas");if(r)goto S_44431;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,8184,"ide_methods.bas");}while(r); +S_44433:; +if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y)))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(20))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))))))||new_error){ +if(qbevent){evnt(26307,8185,"ide_methods.bas");if(r)goto S_44433;} +do{ +qbg_sub_color(NULL, 3 ,NULL,2); +if(!qbevent)break;evnt(26307,8186,"ide_methods.bas");}while(r); +S_44435:; +if ((-(*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))== 2 ))||new_error){ +if(qbevent){evnt(26307,8188,"ide_methods.bas");if(r)goto S_44435;} +do{ +*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))= 0 ; +if(!qbevent)break;evnt(26307,8189,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))+ 1 ; +if(!qbevent)break;evnt(26307,8190,"ide_methods.bas");}while(r); +S_44438:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))> 3 ))||new_error){ +if(qbevent){evnt(26307,8191,"ide_methods.bas");if(r)goto S_44438;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; +if(!qbevent)break;evnt(26307,8191,"ide_methods.bas");}while(r); +} +} +} +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)),*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22)),func_chr( 29 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8194,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26307,8195,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= -1 ; +if(!qbevent)break;evnt(26307,8196,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,qbs_add(qbs_add(qbs_add(l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX),l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES* 4 )),_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES),l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8200,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_J= 0 ; +if(!qbevent)break;evnt(26307,8201,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_J=func_instr(*_SUB_SHOWVWATCHPANEL_LONG_J+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8202,"ide_methods.bas");}while(r); +S_44450:; +while((*_SUB_SHOWVWATCHPANEL_LONG_J)||new_error){ +if(qbevent){evnt(26307,8203,"ide_methods.bas");if(r)goto S_44450;} +S_44451:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 8 ,_SUB_SHOWVWATCHPANEL_STRING_TEMP2->len,1),_SUB_SHOWVWATCHPANEL_STRING_TEMP2)))||new_error){ +if(qbevent){evnt(26307,8204,"ide_methods.bas");if(r)goto S_44451;} +do{ +goto dl_exit_4945; +if(!qbevent)break;evnt(26307,8204,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_J=func_instr(*_SUB_SHOWVWATCHPANEL_LONG_J+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8205,"ide_methods.bas");}while(r); +dl_continue_4945:; +} +dl_exit_4945:; +S_44456:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_J> 0 ))||new_error){ +if(qbevent){evnt(26307,8208,"ide_methods.bas");if(r)goto S_44456;} +S_44457:; +if ((-(*__LONG_LATESTWATCHPOINTMET==*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX))||new_error){ +if(qbevent){evnt(26307,8209,"ide_methods.bas");if(r)goto S_44457;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,8209,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 4 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,8209,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,func_chr( 7 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8210,"ide_methods.bas");}while(r); +S_44463:; +if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(20))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 )))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y))))||new_error){ +if(qbevent){evnt(26307,8211,"ide_methods.bas");if(r)goto S_44463;} +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,8212,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=string2l(func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 4 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8214,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP3,func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 8 ,*_SUB_SHOWVWATCHPANEL_LONG_K,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8215,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=string2i(qbs_right(_SUB_SHOWVWATCHPANEL_STRING_TEMP3, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8216,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" Watchpoint: ",13),_SUB_SHOWVWATCHPANEL_STRING_THISNAME),qbs_new_txt_len(" ",1)),func_mid(_SUB_SHOWVWATCHPANEL_STRING_TEMP3,_SUB_SHOWVWATCHPANEL_STRING_TEMP3->len-( 2 +*_SUB_SHOWVWATCHPANEL_LONG_K)+ 1 ,*_SUB_SHOWVWATCHPANEL_LONG_K,1)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8217,"ide_methods.bas");}while(r); +S_44469:; +if ((qbs_cleanup(qbs_tmp_base,-((_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len)>(*__LONG_IDEWX- 8 ))))||new_error){ +if(qbevent){evnt(26307,8219,"ide_methods.bas");if(r)goto S_44469;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,qbs_add(qbs_add(qbs_left(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,*__LONG_IDEWX- 13 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8220,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 ; +if(!qbevent)break;evnt(26307,8222,"ide_methods.bas");}while(r); +S_44473:; +if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_SHOWVWATCHPANEL_LONG_K+_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len)>*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26307,8223,"ide_methods.bas");if(r)goto S_44473;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=*__LONG_IDEWX-(_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len+ 2 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8223,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_SUB_SHOWVWATCHPANEL_LONG_K,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,_SUB_SHOWVWATCHPANEL_STRING_CONDITION,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8225,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX=*_SUB_SHOWVWATCHPANEL_LONG_K; +if(!qbevent)break;evnt(26307,8227,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,8228,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH=_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8229,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26307,8231,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub__echo(_SUB_SHOWVWATCHPANEL_STRING_ITEM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8234,"ide_methods.bas");}while(r); +} +dl_continue_4927:; +}while(1); +dl_exit_4927:; +do{ +*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME; +if(!qbevent)break;evnt(26307,8237,"ide_methods.bas");}while(r); +S_44488:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26307,8239,"ide_methods.bas");if(r)goto S_44488;} +S_44489:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH)||new_error){ +if(qbevent){evnt(26307,8240,"ide_methods.bas");if(r)goto S_44489;} +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,8242,"ide_methods.bas");}while(r); +S_44491:; +fornext_value4953=*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX+ 2 ; +fornext_finalvalue4953=*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX+*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH; +fornext_step4953= 1 ; +if (fornext_step4953<0) fornext_step_negative4953=1; else fornext_step_negative4953=0; +if (new_error) goto fornext_error4953; +goto fornext_entrylabel4953; +while(1){ +fornext_value4953=fornext_step4953+(*_SUB_SHOWVWATCHPANEL_LONG_X2); +fornext_entrylabel4953: +*_SUB_SHOWVWATCHPANEL_LONG_X2=fornext_value4953; +if (fornext_step_negative4953){ +if (fornext_value4953fornext_finalvalue4953) break; +} +fornext_error4953:; +if(qbevent){evnt(26307,8243,"ide_methods.bas");if(r)goto S_44491;} +do{ +sub__printstring(*_SUB_SHOWVWATCHPANEL_LONG_X2,*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY,func_chr(func_screen(*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY,*_SUB_SHOWVWATCHPANEL_LONG_X2,NULL,0)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8244,"ide_methods.bas");}while(r); +fornext_continue_4952:; +} +fornext_exit_4952:; +} +S_44495:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )))||new_error){ +if(qbevent){evnt(26307,8248,"ide_methods.bas");if(r)goto S_44495;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_Y=FUNC_IDEVBAR(&(pass4954=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ),&(pass4955=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+ 1 ),&(pass4956=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 ),&(pass4957=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))),&(pass4958=*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )+ 1 )); +if(!qbevent)break;evnt(26307,8249,"ide_methods.bas");}while(r); +S_44497:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(16))== 0 ))||new_error){ +if(qbevent){evnt(26307,8250,"ide_methods.bas");if(r)goto S_44497;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(12))=*_SUB_SHOWVWATCHPANEL_LONG_Y; +if(!qbevent)break;evnt(26307,8251,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(12))= 0 ; +if(!qbevent)break;evnt(26307,8254,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))= 1 ; +if(!qbevent)break;evnt(26307,8255,"ide_methods.bas");}while(r); +} +S_44504:; +if ((-(*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )))||new_error){ +if(qbevent){evnt(26307,8258,"ide_methods.bas");if(r)goto S_44504;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_X=FUNC_IDEHBAR(&(pass4959=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))),&(pass4960=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ),&(pass4961=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ),&(pass4962=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))),&(pass4963=*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )+ 1 )); +if(!qbevent)break;evnt(26307,8259,"ide_methods.bas");}while(r); +S_44506:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(18))== 0 ))||new_error){ +if(qbevent){evnt(26307,8260,"ide_methods.bas");if(r)goto S_44506;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(14))=*_SUB_SHOWVWATCHPANEL_LONG_X; +if(!qbevent)break;evnt(26307,8261,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(14))= 0 ; +if(!qbevent)break;evnt(26307,8264,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))= 1 ; +if(!qbevent)break;evnt(26307,8265,"ide_methods.bas");}while(r); +} +} +S_44514:; +if ((-(*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))== 2 ))||new_error){ +if(qbevent){evnt(26307,8268,"ide_methods.bas");if(r)goto S_44514;} +do{ +*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))= 0 ; +if(!qbevent)break;evnt(26307,8268,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free136.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_MULTISEARCH(qbs*_FUNC_MULTISEARCH_STRING___FULLTEXT,qbs*_FUNC_MULTISEARCH_STRING___SEARCHSTRING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data137.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_FULLTEXT,qbs__trim(qbs_ucase(_FUNC_MULTISEARCH_STRING___FULLTEXT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8277,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs__trim(qbs_ucase(_FUNC_MULTISEARCH_STRING___SEARCHSTRING))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8278,"ide_methods.bas");}while(r); +S_44519:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_MULTISEARCH_STRING_FULLTEXT->len== 0 )))||new_error){ +if(qbevent){evnt(26307,8279,"ide_methods.bas");if(r)goto S_44519;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,8279,"ide_methods.bas");}while(r); +} +S_44522:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_MULTISEARCH_STRING_SEARCHSTRING->len== 0 )))||new_error){ +if(qbevent){evnt(26307,8280,"ide_methods.bas");if(r)goto S_44522;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,8280,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_MULTISEARCH_LONG_MULTISEARCH= -1 ; +if(!qbevent)break;evnt(26307,8282,"ide_methods.bas");}while(r); +do{ +*_FUNC_MULTISEARCH_LONG_FINDPLUS=func_instr(NULL,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs_new_txt_len("+",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8283,"ide_methods.bas");}while(r); +S_44527:; +while((*_FUNC_MULTISEARCH_LONG_FINDPLUS)||new_error){ +if(qbevent){evnt(26307,8284,"ide_methods.bas");if(r)goto S_44527;} +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_THISTERM,qbs_left(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,*_FUNC_MULTISEARCH_LONG_FINDPLUS- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8285,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,func_mid(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,*_FUNC_MULTISEARCH_LONG_FINDPLUS+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8286,"ide_methods.bas");}while(r); +S_44530:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_MULTISEARCH_STRING_FULLTEXT,_FUNC_MULTISEARCH_STRING_THISTERM,0)== 0 )))||new_error){ +if(qbevent){evnt(26307,8287,"ide_methods.bas");if(r)goto S_44530;} +do{ +*_FUNC_MULTISEARCH_LONG_MULTISEARCH= 0 ; +if(!qbevent)break;evnt(26307,8287,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,8287,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_MULTISEARCH_LONG_FINDPLUS=func_instr(NULL,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs_new_txt_len("+",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8288,"ide_methods.bas");}while(r); +ww_continue_4968:; +} +ww_exit_4968:; +S_44536:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_MULTISEARCH_STRING_SEARCHSTRING->len))||new_error){ +if(qbevent){evnt(26307,8291,"ide_methods.bas");if(r)goto S_44536;} +S_44537:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_MULTISEARCH_STRING_FULLTEXT,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,0)== 0 )))||new_error){ +if(qbevent){evnt(26307,8292,"ide_methods.bas");if(r)goto S_44537;} +do{ +*_FUNC_MULTISEARCH_LONG_MULTISEARCH= 0 ; +if(!qbevent)break;evnt(26307,8292,"ide_methods.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free137.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_MULTISEARCH_LONG_MULTISEARCH; +} +qbs* FUNC_IDEVARIABLEWATCHBOX(qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE,qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data138.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,8299,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,8300,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,8301,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,8302,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,8303,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,8304,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,8305,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8306,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION= 0 ; +if(!qbevent)break;evnt(26307,8311,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE,qbs_new_txt_len("GLOBAL",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8312,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN=_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8313,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN=((int32)(qbs_new_txt_len("Type",4))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8314,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR= 3 ; +if(!qbevent)break;evnt(26307,8315,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR= 15 ; +if(!qbevent)break;evnt(26307,8316,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG= 2 ; +if(!qbevent)break;evnt(26307,8317,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST)[8])->id=(++mem_lock_id); +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&1){ +tmp_long=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25));} +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])); +}else{ +free((void*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])); +} +} +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4]= 1 ; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]=(*__LONG_TOTALVARIABLESCREATED)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4]+1; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[6]=1; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]=(ptrszint)malloc(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]*264/8+1); +if (!_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]) error(257); +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]|=1; +tmp_long=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +while(tmp_long--){ +*(qbs**)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,8325,"ide_methods.bas");}while(r); +S_44557:; +fornext_value4974= 1 ; +fornext_finalvalue4974=*__LONG_TOTALVARIABLESCREATED; +fornext_step4974= 1 ; +if (fornext_step4974<0) fornext_step_negative4974=1; else fornext_step_negative4974=0; +if (new_error) goto fornext_error4974; +goto fornext_entrylabel4974; +while(1){ +fornext_value4974=fornext_step4974+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel4974: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value4974; +if (fornext_step_negative4974){ +if (fornext_value4974fornext_finalvalue4974) break; +} +fornext_error4974:; +if(qbevent){evnt(26307,8328,"ide_methods.bas");if(r)goto S_44557;} +S_44558:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26307,8329,"ide_methods.bas");if(r)goto S_44558;} +do{ +goto fornext_continue_4973; +if(!qbevent)break;evnt(26307,8329,"ide_methods.bas");}while(r); +} +S_44561:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26307,8330,"ide_methods.bas");if(r)goto S_44561;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8331,"ide_methods.bas");}while(r); +} +S_44564:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN)))||new_error){ +if(qbevent){evnt(26307,8334,"ide_methods.bas");if(r)goto S_44564;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8334,"ide_methods.bas");}while(r); +} +fornext_continue_4973:; +} +fornext_exit_4973:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8337,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN= -1 ; +if(!qbevent)break;evnt(26307,8338,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=139; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_139:; +if(!qbevent)break;evnt(26307,8339,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN= 0 ; +if(!qbevent)break;evnt(26307,8340,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_TOTALMAINVARIABLESCREATED+ 7 ; +if(!qbevent)break;evnt(26307,8341,"ide_methods.bas");}while(r); +LABEL_LISTBUILT:; +if(qbevent){evnt(26307,8342,"ide_methods.bas");r=0;} +S_44573:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ +if(qbevent){evnt(26307,8343,"ide_methods.bas");if(r)goto S_44573;} +do{ +goto LABEL_GENERATEVARIABLEWATCHLIST; +if(!qbevent)break;evnt(26307,8343,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,8345,"ide_methods.bas");}while(r); +S_44577:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT<*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT))||new_error){ +if(qbevent){evnt(26307,8346,"ide_methods.bas");if(r)goto S_44577;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT; +if(!qbevent)break;evnt(26307,8346,"ide_methods.bas");}while(r); +} +S_44580:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26307,8347,"ide_methods.bas");if(r)goto S_44580;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26307,8348,"ide_methods.bas");}while(r); +} +S_44583:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT< 9 ))||new_error){ +if(qbevent){evnt(26307,8350,"ide_methods.bas");if(r)goto S_44583;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT= 9 ; +if(!qbevent)break;evnt(26307,8350,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH= 6 +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN+*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN+*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN; +if(!qbevent)break;evnt(26307,8352,"ide_methods.bas");}while(r); +S_44587:; +if ((-(*__LONG_IDEDEBUGMODE> 0 ))||new_error){ +if(qbevent){evnt(26307,8353,"ide_methods.bas");if(r)goto S_44587;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH+ 40 ; +if(!qbevent)break;evnt(26307,8353,"ide_methods.bas");}while(r); +} +S_44590:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH< 70 ))||new_error){ +if(qbevent){evnt(26307,8354,"ide_methods.bas");if(r)goto S_44590;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH= 70 ; +if(!qbevent)break;evnt(26307,8354,"ide_methods.bas");}while(r); +} +S_44593:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,8355,"ide_methods.bas");if(r)goto S_44593;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,8355,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH,_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Add Watch - Variable List",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8357,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,8359,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,8359,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26307,8360,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,8361,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,8362,"ide_methods.bas");}while(r); +S_44602:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+40))== 0 ))||new_error){ +if(qbevent){evnt(26307,8363,"ide_methods.bas");if(r)goto S_44602;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Filter (multiple+terms+accepted)",33)); +if(!qbevent)break;evnt(26307,8363,"ide_methods.bas");}while(r); +} +S_44605:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26307,8364,"ide_methods.bas");if(r)goto S_44605;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); +if(!qbevent)break;evnt(26307,8364,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,8366,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,8366,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,8367,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,8368,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,8369,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT- 7 ; +if(!qbevent)break;evnt(26307,8369,"ide_methods.bas");}while(r); +S_44614:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26307,8370,"ide_methods.bas");if(r)goto S_44614;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +if(!qbevent)break;evnt(26307,8370,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8370,"ide_methods.bas");}while(r); +} +S_44619:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== 0 ))||new_error){ +if(qbevent){evnt(26307,8371,"ide_methods.bas");if(r)goto S_44619;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR= 1 ; +if(!qbevent)break;evnt(26307,8371,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX; +if(!qbevent)break;evnt(26307,8371,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR; +if(!qbevent)break;evnt(26307,8372,"ide_methods.bas");}while(r); +S_44625:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26307,8374,"ide_methods.bas");if(r)goto S_44625;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(", filtered",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8374,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8374,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Add Watch - Variable List (",27),qbs_ltrim(qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8375,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,8377,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,8377,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,8378,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,8379,"ide_methods.bas");}while(r); +S_44635:; +if (((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 )))||new_error){ +if(qbevent){evnt(26307,8380,"ide_methods.bas");if(r)goto S_44635;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Send Value",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("Add #Watchpoint",15)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26307,8381,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26307,8383,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,8386,"ide_methods.bas");}while(r); +S_44641:; +fornext_value4977= 1 ; +fornext_finalvalue4977= 100 ; +fornext_step4977= 1 ; +if (fornext_step4977<0) fornext_step_negative4977=1; else fornext_step_negative4977=0; +if (new_error) goto fornext_error4977; +goto fornext_entrylabel4977; +while(1){ +fornext_value4977=fornext_step4977+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel4977: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value4977; +if (fornext_step_negative4977){ +if (fornext_value4977fornext_finalvalue4977) break; +} +fornext_error4977:; +if(qbevent){evnt(26307,8392,"ide_methods.bas");if(r)goto S_44641;} +do{ +memcpy(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,8392,"ide_methods.bas");}while(r); +fornext_continue_4976:; +} +fornext_exit_4976:; +S_44644:; +do{ +if(qbevent){evnt(26307,8395,"ide_methods.bas");if(r)goto S_44644;} +LABEL_DLGUPDATE:; +if(qbevent){evnt(26307,8398,"ide_methods.bas");r=0;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,8399,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,8400,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,8400,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,8400,"ide_methods.bas");}while(r); +S_44649:; +fornext_value4980= 1 ; +fornext_finalvalue4980= 100 ; +fornext_step4980= 1 ; +if (fornext_step4980<0) fornext_step_negative4980=1; else fornext_step_negative4980=0; +if (new_error) goto fornext_error4980; +goto fornext_entrylabel4980; +while(1){ +fornext_value4980=fornext_step4980+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel4980: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value4980; +if (fornext_step_negative4980){ +if (fornext_value4980fornext_finalvalue4980) break; +} +fornext_error4980:; +if(qbevent){evnt(26307,8401,"ide_methods.bas");if(r)goto S_44649;} +S_44650:; +if ((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,8402,"ide_methods.bas");if(r)goto S_44650;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS-*_FUNC_IDEVARIABLEWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26307,8404,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,8405,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,8405,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_F); +if(!qbevent)break;evnt(26307,8406,"ide_methods.bas");}while(r); +S_44655:; +if ((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,8407,"ide_methods.bas");if(r)goto S_44655;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,8407,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,8407,"ide_methods.bas");}while(r); +} +} +fornext_continue_4979:; +} +fornext_exit_4979:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,8410,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,8414,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 4 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,8415,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Double-click on an item to add it to the watch list:",52)); +if (new_error) goto skip4981; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip4981: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8416,"ide_methods.bas");}while(r); +S_44665:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD<*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ +if(qbevent){evnt(26307,8417,"ide_methods.bas");if(r)goto S_44665;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 5 ,func_chr( 194 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8418,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(12))- 1 ,func_chr( 193 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8419,"ide_methods.bas");}while(r); +S_44668:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX))&(-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 )))||new_error){ +if(qbevent){evnt(26307,8421,"ide_methods.bas");if(r)goto S_44668;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,8422,"ide_methods.bas");}while(r); +S_44670:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))!= 0 ))&(-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)== 0 ))&(qbs_notequal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))))||new_error){ +if(qbevent){evnt(26307,8425,"ide_methods.bas");if(r)goto S_44670;} +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,8426,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+68)); +if(!qbevent)break;evnt(26307,8427,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y,func_chr( 29 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8428,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FG,*_FUNC_IDEVARIABLEWATCHBOX_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26307,8429,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,8437,"ide_methods.bas");}while(r); +S_44679:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,8438,"ide_methods.bas");if(r)goto S_44679;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,8438,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY,*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,8438,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,8438,"ide_methods.bas");}while(r); +} +S_44684:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE)||new_error){ +if(qbevent){evnt(26307,8439,"ide_methods.bas");if(r)goto S_44684;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= 0 ; +if(!qbevent)break;evnt(26307,8439,"ide_methods.bas");}while(r); +do{ +#include "ret138.txt" +if(!qbevent)break;evnt(26307,8439,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,8442,"ide_methods.bas");}while(r); +S_44689:; +do{ +if(qbevent){evnt(26307,8443,"ide_methods.bas");if(r)goto S_44689;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,8444,"ide_methods.bas");}while(r); +S_44691:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,8445,"ide_methods.bas");if(r)goto S_44691;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,8445,"ide_methods.bas");}while(r); +} +S_44694:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,8446,"ide_methods.bas");if(r)goto S_44694;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,8446,"ide_methods.bas");}while(r); +} +S_44697:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,8447,"ide_methods.bas");if(r)goto S_44697;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,8447,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,8447,"ide_methods.bas");}while(r); +} +S_44701:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,8448,"ide_methods.bas");if(r)goto S_44701;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,8448,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,8448,"ide_methods.bas");}while(r); +} +S_44705:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,8449,"ide_methods.bas");if(r)goto S_44705;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,8449,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,8450,"ide_methods.bas");}while(r); +S_44709:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT!=*_FUNC_IDEVARIABLEWATCHBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,8450,"ide_methods.bas");if(r)goto S_44709;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,8450,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_OLDALT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,8451,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,8452,"ide_methods.bas");}while(r); +S_44714:; +dl_continue_4982:; +}while((!(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_4982:; +if(qbevent){evnt(26307,8453,"ide_methods.bas");if(r)goto S_44714;} +S_44715:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,8454,"ide_methods.bas");if(r)goto S_44715;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,8454,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,8454,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8456,"ide_methods.bas");}while(r); +S_44721:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,8457,"ide_methods.bas");if(r)goto S_44721;} +S_44722:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,8458,"ide_methods.bas");if(r)goto S_44722;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8459,"ide_methods.bas");}while(r); +S_44724:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,8460,"ide_methods.bas");if(r)goto S_44724;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8460,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,8463,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,8463,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,8463,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,8467,"ide_methods.bas");}while(r); +S_44733:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,8468,"ide_methods.bas");if(r)goto S_44733;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8468,"ide_methods.bas");}while(r); +} +S_44736:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,8469,"ide_methods.bas");if(r)goto S_44736;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,8469,"ide_methods.bas");}while(r); +} +S_44739:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,8470,"ide_methods.bas");if(r)goto S_44739;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,8470,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8470,"ide_methods.bas");}while(r); +} +S_44743:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,8471,"ide_methods.bas");if(r)goto S_44743;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,8471,"ide_methods.bas");}while(r); +} +S_44746:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,8472,"ide_methods.bas");if(r)goto S_44746;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,8472,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,8473,"ide_methods.bas");}while(r); +S_44750:; +fornext_value4985= 1 ; +fornext_finalvalue4985= 100 ; +fornext_step4985= 1 ; +if (fornext_step4985<0) fornext_step_negative4985=1; else fornext_step_negative4985=0; +if (new_error) goto fornext_error4985; +goto fornext_entrylabel4985; +while(1){ +fornext_value4985=fornext_step4985+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel4985: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value4985; +if (fornext_step_negative4985){ +if (fornext_value4985fornext_finalvalue4985) break; +} +fornext_error4985:; +if(qbevent){evnt(26307,8474,"ide_methods.bas");if(r)goto S_44750;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,8475,"ide_methods.bas");}while(r); +S_44752:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,8476,"ide_methods.bas");if(r)goto S_44752;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUSOFFSET=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS-*_FUNC_IDEVARIABLEWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26307,8477,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS,_FUNC_IDEVARIABLEWATCHBOX_LONG_F,_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN,_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8478,"ide_methods.bas");}while(r); +} +fornext_continue_4984:; +} +fornext_exit_4984:; +S_44757:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS!=*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26307,8482,"ide_methods.bas");if(r)goto S_44757;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26307,8484,"ide_methods.bas");}while(r); +S_44759:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))||new_error){ +if(qbevent){evnt(26307,8485,"ide_methods.bas");if(r)goto S_44759;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,8486,"ide_methods.bas");}while(r); +S_44761:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,8487,"ide_methods.bas");if(r)goto S_44761;} +do{ +*(int8*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,8487,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,8488,"ide_methods.bas");}while(r); +} +} +S_44767:; +if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26307,8492,"ide_methods.bas");if(r)goto S_44767;} +S_44768:; +fornext_value4988= 1 ; +fornext_finalvalue4988=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; +fornext_step4988= 1 ; +if (fornext_step4988<0) fornext_step_negative4988=1; else fornext_step_negative4988=0; +if (new_error) goto fornext_error4988; +goto fornext_entrylabel4988; +while(1){ +fornext_value4988=fornext_step4988+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); +fornext_entrylabel4988: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value4988; +if (fornext_step_negative4988){ +if (fornext_value4988fornext_finalvalue4988) break; +} +fornext_error4988:; +if(qbevent){evnt(26307,8493,"ide_methods.bas");if(r)goto S_44768;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8494,"ide_methods.bas");}while(r); +S_44770:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,8495,"ide_methods.bas");if(r)goto S_44770;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8495,"ide_methods.bas");}while(r); +} +S_44773:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,8496,"ide_methods.bas");if(r)goto S_44773;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8496,"ide_methods.bas");}while(r); +} +S_44776:; +if ((qbs_cleanup(qbs_tmp_base,((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len== 0 ))))|(-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,0)== 0 ))))||new_error){ +if(qbevent){evnt(26307,8498,"ide_methods.bas");if(r)goto S_44776;} +do{ +goto fornext_continue_4987; +if(!qbevent)break;evnt(26307,8498,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= -1 ; +if(!qbevent)break;evnt(26307,8499,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8500,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8501,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8502,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8503,"ide_methods.bas");}while(r); +fornext_continue_4987:; +} +fornext_exit_4987:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26307,8505,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8506,"ide_methods.bas");}while(r); +} +S_44788:; +if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26307,8509,"ide_methods.bas");if(r)goto S_44788;} +S_44789:; +fornext_value4990= 1 ; +fornext_finalvalue4990=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; +fornext_step4990= 1 ; +if (fornext_step4990<0) fornext_step_negative4990=1; else fornext_step_negative4990=0; +if (new_error) goto fornext_error4990; +goto fornext_entrylabel4990; +while(1){ +fornext_value4990=fornext_step4990+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); +fornext_entrylabel4990: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value4990; +if (fornext_step_negative4990){ +if (fornext_value4990fornext_finalvalue4990) break; +} +fornext_error4990:; +if(qbevent){evnt(26307,8510,"ide_methods.bas");if(r)goto S_44789;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,8511,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8512,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8513,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8514,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,8515,"ide_methods.bas");}while(r); +fornext_continue_4989:; +} +fornext_exit_4989:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26307,8517,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8518,"ide_methods.bas");}while(r); +} +S_44799:; +if ((((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 )))|((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26307,8522,"ide_methods.bas");if(r)goto S_44799;} +LABEL_SENDVALUE:; +if(qbevent){evnt(26307,8524,"ide_methods.bas");r=0;} +S_44800:; +if(qbevent){evnt(26307,8525,"ide_methods.bas");if(r)goto S_44800;} +S_44801:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==( 5 )))||new_error){ +if(qbevent){evnt(26307,8526,"ide_methods.bas");if(r)goto S_44801;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Change Value",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8527,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,qbs_new_txt_len("#Index to change",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8528,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,qbs_new_txt_len("#New value",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8529,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 1 ; +if(!qbevent)break;evnt(26307,8530,"ide_methods.bas");}while(r); +sc_ec_280_end:; +goto sc_4991_end; +} +S_44806:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==( 6 )))||new_error){ +if(qbevent){evnt(26307,8531,"ide_methods.bas");if(r)goto S_44806;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Add Watchpoint",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8532,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,qbs_new_txt_len("#Index to monitor",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8533,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,qbs_new_txt_len("#Condition",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8534,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 2 ; +if(!qbevent)break;evnt(26307,8535,"ide_methods.bas");}while(r); +sc_ec_281_end:; +goto sc_4991_end; +} +sc_4991_end:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,8538,"ide_methods.bas");}while(r); +S_44813:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y<=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))||new_error){ +if(qbevent){evnt(26307,8540,"ide_methods.bas");if(r)goto S_44813;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26307,8541,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= -1 ; +if(!qbevent)break;evnt(26307,8542,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=140; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DLGUPDATE; +RETURN_140:; +if(!qbevent)break;evnt(26307,8542,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)); +if(!qbevent)break;evnt(26307,8543,"ide_methods.bas");}while(r); +S_44818:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(((qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))))|(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))))||new_error){ +if(qbevent){evnt(26307,8544,"ide_methods.bas");if(r)goto S_44818;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPARRAYINDEX= 0 ; +if(!qbevent)break;evnt(26307,8546,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8547,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE= 0 ; +if(!qbevent)break;evnt(26307,8549,"ide_methods.bas");}while(r); +S_44822:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ +if(qbevent){evnt(26307,8550,"ide_methods.bas");if(r)goto S_44822;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8551,"ide_methods.bas");}while(r); +S_44824:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len> 4 ))){ +if(qbevent){evnt(26307,8552,"ide_methods.bas");if(r)goto S_44824;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 4 ; +if(!qbevent)break;evnt(26307,8553,"ide_methods.bas");}while(r); +S_44826:; +do{ +if(qbevent){evnt(26307,8554,"ide_methods.bas");if(r)goto S_44826;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8555,"ide_methods.bas");}while(r); +S_44828:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26307,8556,"ide_methods.bas");if(r)goto S_44828;} +do{ +goto dl_exit_4992; +if(!qbevent)break;evnt(26307,8556,"ide_methods.bas");}while(r); +} +S_44831:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)))||new_error){ +if(qbevent){evnt(26307,8557,"ide_methods.bas");if(r)goto S_44831;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE=string2l(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 16 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8559,"ide_methods.bas");}while(r); +do{ +goto dl_exit_4992; +if(!qbevent)break;evnt(26307,8560,"ide_methods.bas");}while(r); +} +dl_continue_4992:; +}while(1); +dl_exit_4992:; +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT= 0 ; +if(!qbevent)break;evnt(26307,8565,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET,l2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8566,"ide_methods.bas");}while(r); +S_44839:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26307,8567,"ide_methods.bas");if(r)goto S_44839;} +LABEL_SETARRAYRANGE3:; +if(qbevent){evnt(26307,8568,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("01234567890,",12),&(pass4995= 45 ),&(pass4996= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8569,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8570,"ide_methods.bas");}while(r); +S_44842:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26307,8571,"ide_methods.bas");if(r)goto S_44842;} +S_44843:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len> 0 )))||new_error){ +if(qbevent){evnt(26307,8572,"ide_methods.bas");if(r)goto S_44843;} +S_44844:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 ),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(26307,8573,"ide_methods.bas");if(r)goto S_44844;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8573,"ide_methods.bas");}while(r); +ww_continue_4998:; +} +ww_exit_4998:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_LINEFORMAT(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8574,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=FUNC_COUNTELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8575,"ide_methods.bas");}while(r); +S_44849:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I!=func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))||new_error){ +if(qbevent){evnt(26307,8576,"ide_methods.bas");if(r)goto S_44849;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_add(qbs_add(qbs_new_txt_len("Array has",9),qbs_str((int16)(func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))),qbs_new_txt_len(" dimension(s).",14)),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8577,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8578,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs__trim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8579,"ide_methods.bas");}while(r); +do{ +goto LABEL_SETARRAYRANGE3; +if(!qbevent)break;evnt(26307,8580,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8582,"ide_methods.bas");}while(r); +S_44856:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,8583,"ide_methods.bas");if(r)goto S_44856;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA=func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8584,"ide_methods.bas");}while(r); +S_44858:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA)||new_error){ +if(qbevent){evnt(26307,8585,"ide_methods.bas");if(r)goto S_44858;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8586,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8587,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8589,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string(qbr(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8591,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ; +if(!qbevent)break;evnt(26307,8592,"ide_methods.bas");}while(r); +ww_continue_5000:; +} +ww_exit_5000:; +}else{ +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8595,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8598,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8602,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8603,"ide_methods.bas");}while(r); +S_44876:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,8604,"ide_methods.bas");if(r)goto S_44876;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8604,"ide_methods.bas");}while(r); +} +S_44879:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,8605,"ide_methods.bas");if(r)goto S_44879;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8605,"ide_methods.bas");}while(r); +} +S_44882:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,0)== 0 )))||new_error){ +if(qbevent){evnt(26307,8606,"ide_methods.bas");if(r)goto S_44882;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT= -1 ; +if(!qbevent)break;evnt(26307,8608,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8609,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT= 0 ; +if(!qbevent)break;evnt(26307,8610,"ide_methods.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26307,8611,"ide_methods.bas");}while(r); +S_44887:; +fornext_value5002= 1 ; +fornext_finalvalue5002=*__LONG_LASTTYPE; +fornext_step5002= 1 ; +if (fornext_step5002<0) fornext_step_negative5002=1; else fornext_step_negative5002=0; +if (new_error) goto fornext_error5002; +goto fornext_entrylabel5002; +while(1){ +fornext_value5002=fornext_step5002+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5002: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5002; +if (fornext_step_negative5002){ +if (fornext_value5002fornext_finalvalue5002) break; +} +fornext_error5002:; +if(qbevent){evnt(26307,8612,"ide_methods.bas");if(r)goto S_44887;} +S_44888:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)))||new_error){ +if(qbevent){evnt(26307,8613,"ide_methods.bas");if(r)goto S_44888;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,8613,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5001; +if(!qbevent)break;evnt(26307,8613,"ide_methods.bas");}while(r); +} +fornext_continue_5001:; +} +fornext_exit_5001:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,8616,"ide_methods.bas");}while(r); +S_44894:; +do{ +if(qbevent){evnt(26307,8617,"ide_methods.bas");if(r)goto S_44894;} +S_44895:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26307,8618,"ide_methods.bas");if(r)goto S_44895;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26307,8618,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26307,8618,"ide_methods.bas");}while(r); +} +S_44900:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26307,8619,"ide_methods.bas");if(r)goto S_44900;} +do{ +goto dl_exit_5003; +if(!qbevent)break;evnt(26307,8619,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,l2string(*__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8620,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,8621,"ide_methods.bas");}while(r); +dl_continue_5003:; +}while(1); +dl_exit_5003:; +do{ +sub_pcopy( 0 , 4 ); +if(!qbevent)break;evnt(26307,8623,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(".",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,&(pass5004= 0 ),&(pass5005= -1 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8624,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8625,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,8626,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 1 ); +if(!qbevent)break;evnt(26307,8627,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,8628,"ide_methods.bas");}while(r); +S_44912:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK== -2 ))||new_error){ +if(qbevent){evnt(26307,8629,"ide_methods.bas");if(r)goto S_44912;} +do{ +SUB_GETID((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120) )); +if(!qbevent)break;evnt(26307,8630,"ide_methods.bas");}while(r); +S_44914:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(26307,8631,"ide_methods.bas");if(r)goto S_44914;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; +if(!qbevent)break;evnt(26307,8632,"ide_methods.bas");}while(r); +S_44916:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26307,8633,"ide_methods.bas");if(r)goto S_44916;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26307,8634,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(26307,8637,"ide_methods.bas");}while(r); +S_44920:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(26307,8638,"ide_methods.bas");if(r)goto S_44920;} +S_44921:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )||new_error){ +if(qbevent){evnt(26307,8639,"ide_methods.bas");if(r)goto S_44921;} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))+( 8 -(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )); +if(!qbevent)break;evnt(26307,8639,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))/ 8 ; +if(!qbevent)break;evnt(26307,8640,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; +if(!qbevent)break;evnt(26307,8643,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8646,"ide_methods.bas");}while(r); +S_44930:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_NUMELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)!= 1 )))||new_error){ +if(qbevent){evnt(26307,8647,"ide_methods.bas");if(r)goto S_44930;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Only one UDT element can be selected at a time",46),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8649,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8650,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8651,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5006= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8654,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_LINEFORMAT(qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8657,"ide_methods.bas");}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26307,8658,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,FUNC_UDTREFERENCE(qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8659,"ide_methods.bas");}while(r); +S_44939:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(26307,8660,"ide_methods.bas");if(r)goto S_44939;} +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26307,8662,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),__STRING_ERROR_MESSAGE,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8663,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8664,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8665,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISUDT; +if(!qbevent)break;evnt(26307,8667,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(26307,8668,"ide_methods.bas");}while(r); +S_44947:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26307,8669,"ide_methods.bas");if(r)goto S_44947;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26307,8669,"ide_methods.bas");}while(r); +} +S_44950:; +if(qbevent){evnt(26307,8670,"ide_methods.bas");if(r)goto S_44950;} +S_44951:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_BYTETYPE)))||new_error){ +if(qbevent){evnt(26307,8671,"ide_methods.bas");if(r)goto S_44951;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8672,"ide_methods.bas");}while(r); +sc_ec_282_end:; +goto sc_5007_end; +} +S_44953:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UBYTETYPE)))||new_error){ +if(qbevent){evnt(26307,8673,"ide_methods.bas");if(r)goto S_44953;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8674,"ide_methods.bas");}while(r); +sc_ec_283_end:; +goto sc_5007_end; +} +S_44955:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGERTYPE)))||new_error){ +if(qbevent){evnt(26307,8675,"ide_methods.bas");if(r)goto S_44955;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8676,"ide_methods.bas");}while(r); +sc_ec_284_end:; +goto sc_5007_end; +} +S_44957:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGERTYPE)))||new_error){ +if(qbevent){evnt(26307,8677,"ide_methods.bas");if(r)goto S_44957;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8678,"ide_methods.bas");}while(r); +sc_ec_285_end:; +goto sc_5007_end; +} +S_44959:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_LONGTYPE)))||new_error){ +if(qbevent){evnt(26307,8679,"ide_methods.bas");if(r)goto S_44959;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8680,"ide_methods.bas");}while(r); +sc_ec_286_end:; +goto sc_5007_end; +} +S_44961:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_ULONGTYPE)))||new_error){ +if(qbevent){evnt(26307,8681,"ide_methods.bas");if(r)goto S_44961;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8682,"ide_methods.bas");}while(r); +sc_ec_287_end:; +goto sc_5007_end; +} +S_44963:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26307,8683,"ide_methods.bas");if(r)goto S_44963;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8684,"ide_methods.bas");}while(r); +sc_ec_288_end:; +goto sc_5007_end; +} +S_44965:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26307,8685,"ide_methods.bas");if(r)goto S_44965;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8686,"ide_methods.bas");}while(r); +sc_ec_289_end:; +goto sc_5007_end; +} +S_44967:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_SINGLETYPE)))||new_error){ +if(qbevent){evnt(26307,8687,"ide_methods.bas");if(r)goto S_44967;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8688,"ide_methods.bas");}while(r); +sc_ec_290_end:; +goto sc_5007_end; +} +S_44969:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_DOUBLETYPE)))||new_error){ +if(qbevent){evnt(26307,8689,"ide_methods.bas");if(r)goto S_44969;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8690,"ide_methods.bas");}while(r); +sc_ec_291_end:; +goto sc_5007_end; +} +S_44971:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_FLOATTYPE)))||new_error){ +if(qbevent){evnt(26307,8691,"ide_methods.bas");if(r)goto S_44971;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_FLOAT",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8692,"ide_methods.bas");}while(r); +sc_ec_292_end:; +goto sc_5007_end; +} +S_44973:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_OFFSETTYPE)))||new_error){ +if(qbevent){evnt(26307,8693,"ide_methods.bas");if(r)goto S_44973;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8694,"ide_methods.bas");}while(r); +sc_ec_293_end:; +goto sc_5007_end; +} +S_44975:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UOFFSETTYPE)))||new_error){ +if(qbevent){evnt(26307,8695,"ide_methods.bas");if(r)goto S_44975;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8696,"ide_methods.bas");}while(r); +sc_ec_294_end:; +goto sc_5007_end; +} +S_44978:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(26307,8698,"ide_methods.bas");if(r)goto S_44978;} +S_44979:; +if ((-((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(26307,8699,"ide_methods.bas");if(r)goto S_44979;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8700,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_add(qbs_new_txt_len("STRING *",8),qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8703,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Cannot select full UDT",22),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8707,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8708,"ide_methods.bas");}while(r); +do{ +goto LABEL_DLGLOOP; +if(!qbevent)break;evnt(26307,8709,"ide_methods.bas");}while(r); +} +sc_5007_end:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET,l2string(qbr(func_val(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,func__instrrev(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,__STRING1_SP3,0)+ 1 ,NULL,0))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8712,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8716,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT= 0 ; +if(!qbevent)break;evnt(26307,8719,"ide_methods.bas");}while(r); +S_44997:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ +if(qbevent){evnt(26307,8720,"ide_methods.bas");if(r)goto S_44997;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8721,"ide_methods.bas");}while(r); +S_44999:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len> 4 ))){ +if(qbevent){evnt(26307,8722,"ide_methods.bas");if(r)goto S_44999;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 4 ; +if(!qbevent)break;evnt(26307,8723,"ide_methods.bas");}while(r); +S_45001:; +do{ +if(qbevent){evnt(26307,8724,"ide_methods.bas");if(r)goto S_45001;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8725,"ide_methods.bas");}while(r); +S_45003:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26307,8726,"ide_methods.bas");if(r)goto S_45003;} +do{ +goto dl_exit_5008; +if(!qbevent)break;evnt(26307,8726,"ide_methods.bas");}while(r); +} +S_45006:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)))||new_error){ +if(qbevent){evnt(26307,8727,"ide_methods.bas");if(r)goto S_45006;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 16 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8729,"ide_methods.bas");}while(r); +do{ +goto dl_exit_5008; +if(!qbevent)break;evnt(26307,8730,"ide_methods.bas");}while(r); +} +dl_continue_5008:; +}while(1); +dl_exit_5008:; +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8734,"ide_methods.bas");}while(r); +S_45013:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 )))||new_error){ +if(qbevent){evnt(26307,8735,"ide_methods.bas");if(r)goto S_45013;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8736,"ide_methods.bas");}while(r); +S_45015:; +}else{ +if (-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 )){ +if(qbevent){evnt(26307,8737,"ide_methods.bas");if(r)goto S_45015;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8739,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,8740,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8741,"ide_methods.bas");}while(r); +S_45019:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,8742,"ide_methods.bas");if(r)goto S_45019;} +S_45020:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26307,8743,"ide_methods.bas");if(r)goto S_45020;} +do{ +goto dl_exit_5011; +if(!qbevent)break;evnt(26307,8743,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8744,"ide_methods.bas");}while(r); +dl_continue_5011:; +} +dl_exit_5011:; +S_45025:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26307,8747,"ide_methods.bas");if(r)goto S_45025;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 4 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8748,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_J,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8749,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2i(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8750,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len-( 2 +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J)+ 1 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_J,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8751,"ide_methods.bas");}while(r); +} +} +} +S_45032:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)))||new_error){ +if(qbevent){evnt(26307,8754,"ide_methods.bas");if(r)goto S_45032;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH=*__LONG_IDEWX- 20 ; +if(!qbevent)break;evnt(26307,8755,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH= 45 ; +if(!qbevent)break;evnt(26307,8757,"ide_methods.bas");}while(r); +S_45036:; +sc_5014=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26307,8758,"ide_methods.bas");if(r)goto S_45036;} +S_45037:; +if (((sc_5014==( 1 )))||new_error){ +if(qbevent){evnt(26307,8759,"ide_methods.bas");if(r)goto S_45037;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8759,"ide_methods.bas");}while(r); +sc_ec_295_end:; +goto sc_5014_end; +} +S_45039:; +if (((sc_5014==( 2 )))||new_error){ +if(qbevent){evnt(26307,8760,"ide_methods.bas");if(r)goto S_45039;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8760,"ide_methods.bas");}while(r); +sc_ec_296_end:; +goto sc_5014_end; +} +S_45041:; +if (((sc_5014==( 3 )))||new_error){ +if(qbevent){evnt(26307,8761,"ide_methods.bas");if(r)goto S_45041;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8761,"ide_methods.bas");}while(r); +sc_ec_297_end:; +goto sc_5014_end; +} +sc_5014_end:; +} +LABEL_GETNEWVALUEINPUT:; +if(qbevent){evnt(26307,8764,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH,&(pass5015= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8765,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8766,"ide_methods.bas");}while(r); +S_45047:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26307,8767,"ide_methods.bas");if(r)goto S_45047;} +S_45048:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))||new_error){ +if(qbevent){evnt(26307,8768,"ide_methods.bas");if(r)goto S_45048;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_ltrim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8770,"ide_methods.bas");}while(r); +S_45050:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len< 2 )))||new_error){ +if(qbevent){evnt(26307,8771,"ide_methods.bas");if(r)goto S_45050;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Watchpoint cleared.",19),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8772,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8773,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8774,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 3 ; +if(!qbevent)break;evnt(26307,8775,"ide_methods.bas");}while(r); +}else{ +LABEL_STARTWATCHPOINTEVAL:; +if(qbevent){evnt(26307,8777,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8778,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 , 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8779,"ide_methods.bas");}while(r); +S_45058:; +if(qbevent){evnt(26307,8780,"ide_methods.bas");if(r)goto S_45058;} +S_45059:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(26307,8781,"ide_methods.bas");if(r)goto S_45059;} +S_45060:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("<",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))))||new_error){ +if(qbevent){evnt(26307,8782,"ide_methods.bas");if(r)goto S_45060;} +do{ +sub_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 , 2 ,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1)),1); +if(!qbevent)break;evnt(26307,8783,"ide_methods.bas");}while(r); +do{ +goto LABEL_STARTWATCHPOINTEVAL; +if(!qbevent)break;evnt(26307,8784,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len("=",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8786,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8787,"ide_methods.bas");}while(r); +sc_ec_298_end:; +goto sc_5017_end; +} +S_45066:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(26307,8788,"ide_methods.bas");if(r)goto S_45066;} +S_45067:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("<",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))))||new_error){ +if(qbevent){evnt(26307,8789,"ide_methods.bas");if(r)goto S_45067;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value",73),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8790,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8791,"ide_methods.bas");}while(r); +do{ +goto LABEL_GETNEWVALUEINPUT; +if(!qbevent)break;evnt(26307,8792,"ide_methods.bas");}while(r); +} +S_45072:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(26307,8794,"ide_methods.bas");if(r)goto S_45072;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8795,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8796,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8798,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8799,"ide_methods.bas");}while(r); +} +sc_ec_299_end:; +goto sc_5017_end; +} +S_45079:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(26307,8801,"ide_methods.bas");if(r)goto S_45079;} +S_45080:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1)))))||new_error){ +if(qbevent){evnt(26307,8802,"ide_methods.bas");if(r)goto S_45080;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_add(qbs_new_txt_len("<",1),_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8803,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8804,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8806,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8807,"ide_methods.bas");}while(r); +} +sc_ec_300_end:; +goto sc_5017_end; +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value",73),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8810,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8811,"ide_methods.bas");}while(r); +do{ +goto LABEL_GETNEWVALUEINPUT; +if(!qbevent)break;evnt(26307,8812,"ide_methods.bas");}while(r); +sc_5017_end:; +} +S_45093:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION!= 3 ))||new_error){ +if(qbevent){evnt(26307,8816,"ide_methods.bas");if(r)goto S_45093;} +S_45094:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,8817,"ide_methods.bas");if(r)goto S_45094;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8818,"ide_methods.bas");}while(r); +S_45096:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_ltrim(qbs_str((long double)(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)))))))))||new_error){ +if(qbevent){evnt(26307,8819,"ide_methods.bas");if(r)goto S_45096;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value\\n(scientific notation not allowed).",109),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8820,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8821,"ide_methods.bas");}while(r); +do{ +goto LABEL_GETNEWVALUEINPUT; +if(!qbevent)break;evnt(26307,8822,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(" ",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8826,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8830,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8831,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,b2string(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8832,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8833,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8834,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8835,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8836,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8837,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8838,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8839,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8840,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8841,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8842,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8843,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8844,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8845,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX,_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8846,"ide_methods.bas");}while(r); +S_45122:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 2 ))|(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 3 )))||new_error){ +if(qbevent){evnt(26307,8848,"ide_methods.bas");if(r)goto S_45122;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8850,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,8851,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8852,"ide_methods.bas");}while(r); +S_45126:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,8853,"ide_methods.bas");if(r)goto S_45126;} +S_45127:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26307,8854,"ide_methods.bas");if(r)goto S_45127;} +do{ +goto dl_exit_5020; +if(!qbevent)break;evnt(26307,8854,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8855,"ide_methods.bas");}while(r); +dl_continue_5020:; +} +dl_exit_5020:; +S_45132:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26307,8858,"ide_methods.bas");if(r)goto S_45132;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 4 , 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8860,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_left(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ),func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+*_FUNC_IDEVARIABLEWATCHBOX_LONG_J+ 8 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8861,"ide_methods.bas");}while(r); +} +} +S_45137:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 2 ))||new_error){ +if(qbevent){evnt(26307,8865,"ide_methods.bas");if(r)goto S_45137;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V),i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8867,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_add(qbs_add(__STRING_WATCHPOINTLIST,l2string( -1 )),l2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8868,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION; +if(!qbevent)break;evnt(26307,8871,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION= -1 ; +if(!qbevent)break;evnt(26307,8873,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26307,8875,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,8876,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Variable is out of scope.",25),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8878,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8879,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Select a variable first.",24),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8882,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,8883,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26307,8885,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,8886,"ide_methods.bas");}while(r); +} +S_45158:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*__LONG_IDEDEBUGMODE== 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))|(((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,8890,"ide_methods.bas");if(r)goto S_45158;} +LABEL_GENERATEVARIABLEWATCHLIST:; +if(qbevent){evnt(26307,8891,"ide_methods.bas");r=0;} +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8892,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8893,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,__STRING_TYPEDEFINITIONS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8894,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME= 0 ; +if(!qbevent)break;evnt(26307,8895,"ide_methods.bas");}while(r); +do{ +*__LONG_NEXTVWATCHDATASLOT= 0 ; +if(!qbevent)break;evnt(26307,8896,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES= 0 ; +if(!qbevent)break;evnt(26307,8897,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES= 0 ; +if(!qbevent)break;evnt(26307,8898,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8899,"ide_methods.bas");}while(r); +S_45167:; +fornext_value5025= 1 ; +fornext_finalvalue5025=*__LONG_TOTALVARIABLESCREATED; +fornext_step5025= 1 ; +if (fornext_step5025<0) fornext_step_negative5025=1; else fornext_step_negative5025=0; +if (new_error) goto fornext_error5025; +goto fornext_entrylabel5025; +while(1){ +fornext_value5025=fornext_step5025+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); +fornext_entrylabel5025: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5025; +if (fornext_step_negative5025){ +if (fornext_value5025fornext_finalvalue5025) break; +} +fornext_error5025:; +if(qbevent){evnt(26307,8900,"ide_methods.bas");if(r)goto S_45167;} +S_45168:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ +if(qbevent){evnt(26307,8901,"ide_methods.bas");if(r)goto S_45168;} +S_45169:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,8902,"ide_methods.bas");if(r)goto S_45169;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Analyzing Variable List...",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8903,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),&(pass5026= 60 ),&(pass5027= 1 ),_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8904,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,8907,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,8908,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_C=*__LONG_TOTALVARIABLESCREATED; +if(!qbevent)break;evnt(26307,8909,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_N=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26307,8910,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH= 52 ; +if(!qbevent)break;evnt(26307,8912,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C))* 100 )); +if(!qbevent)break;evnt(26307,8913,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C)))); +if(!qbevent)break;evnt(26307,8914,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8915,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8916,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,8918,"ide_methods.bas");}while(r); +} +S_45184:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26307,8921,"ide_methods.bas");if(r)goto S_45184;} +do{ +goto fornext_continue_5024; +if(!qbevent)break;evnt(26307,8921,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES+ 1 ; +if(!qbevent)break;evnt(26307,8923,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8924,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40)))->len)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8925,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8926,"ide_methods.bas");}while(r); +S_45191:; +while((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES>func_ubound(__ARRAY_UDT_BACKUPUSEDVARIABLELIST,1,1)))||new_error){ +if(qbevent){evnt(26307,8927,"ide_methods.bas");if(r)goto S_45191;} +do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +preserved_elements=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +} +else preserved_elements=0; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES+ 999 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +if (tmp_long2len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8934,"ide_methods.bas");}while(r); +S_45198:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26307,8935,"ide_methods.bas");if(r)goto S_45198;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8936,"ide_methods.bas");}while(r); +} +S_45201:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len))||new_error){ +if(qbevent){evnt(26307,8939,"ide_methods.bas");if(r)goto S_45201;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+string2l(qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8940,"ide_methods.bas");}while(r); +} +S_45204:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME))||new_error){ +if(qbevent){evnt(26307,8943,"ide_methods.bas");if(r)goto S_45204;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN; +if(!qbevent)break;evnt(26307,8944,"ide_methods.bas");}while(r); +S_45206:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,8945,"ide_methods.bas");if(r)goto S_45206;} +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,func_space( 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8945,"ide_methods.bas");}while(r); +} +do{ +sub_mid(__STRING_VARIABLEWATCHLIST, 1 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME),1); +if(!qbevent)break;evnt(26307,8946,"ide_methods.bas");}while(r); +} +S_45211:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ +if(qbevent){evnt(26307,8949,"ide_methods.bas");if(r)goto S_45211;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass5030= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8951,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_EXPANDARRAY(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8952,"ide_methods.bas");}while(r); +S_45214:; +do{ +if(qbevent){evnt(26307,8953,"ide_methods.bas");if(r)goto S_45214;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5032= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8954,"ide_methods.bas");}while(r); +S_45216:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2->len!= 4 )))||new_error){ +if(qbevent){evnt(26307,8955,"ide_methods.bas");if(r)goto S_45216;} +do{ +goto dl_exit_5031; +if(!qbevent)break;evnt(26307,8955,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH=string2l(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8956,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH),FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8957,"ide_methods.bas");}while(r); +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26307,8958,"ide_methods.bas");}while(r); +S_45222:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26307,8959,"ide_methods.bas");if(r)goto S_45222;} +do{ + +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +preserved_elements=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +} +else preserved_elements=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]= 1 ; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=(func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1)+ 999 )-__ARRAY_STRING_VWATCHRECEIVEDDATA[4]+1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +if (tmp_long2len> 0 )))){ +if(qbevent){evnt(26307,8967,"ide_methods.bas");if(r)goto S_45230;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass5035= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8969,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_EXPANDARRAY(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8970,"ide_methods.bas");}while(r); +S_45233:; +do{ +if(qbevent){evnt(26307,8971,"ide_methods.bas");if(r)goto S_45233;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5037= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8972,"ide_methods.bas");}while(r); +S_45235:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2->len!= 4 )))||new_error){ +if(qbevent){evnt(26307,8973,"ide_methods.bas");if(r)goto S_45235;} +do{ +goto dl_exit_5036; +if(!qbevent)break;evnt(26307,8973,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH=string2l(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8974,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH),FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8975,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8977,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8978,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,8979,"ide_methods.bas");}while(r); +S_45243:; +do{ +if(qbevent){evnt(26307,8980,"ide_methods.bas");if(r)goto S_45243;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,8981,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8982,"ide_methods.bas");}while(r); +S_45246:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,8983,"ide_methods.bas");if(r)goto S_45246;} +do{ +goto dl_exit_5039; +if(!qbevent)break;evnt(26307,8983,"ide_methods.bas");}while(r); +} +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26307,8985,"ide_methods.bas");}while(r); +S_45250:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26307,8986,"ide_methods.bas");if(r)goto S_45250;} +do{ + +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +preserved_elements=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +} +else preserved_elements=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]= 1 ; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=(func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1)+ 999 )-__ARRAY_STRING_VWATCHRECEIVEDDATA[4]+1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +if (tmp_long2len> 0 )))){ +if(qbevent){evnt(26307,8996,"ide_methods.bas");if(r)goto S_45260;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8998,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,8999,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,9000,"ide_methods.bas");}while(r); +S_45264:; +do{ +if(qbevent){evnt(26307,9001,"ide_methods.bas");if(r)goto S_45264;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,9002,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9003,"ide_methods.bas");}while(r); +S_45267:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,9004,"ide_methods.bas");if(r)goto S_45267;} +do{ +goto dl_exit_5041; +if(!qbevent)break;evnt(26307,9004,"ide_methods.bas");}while(r); +} +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26307,9006,"ide_methods.bas");}while(r); +S_45271:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26307,9007,"ide_methods.bas");if(r)goto S_45271;} +do{ + +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +preserved_elements=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +} +else preserved_elements=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]= 1 ; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=(func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1)+ 999 )-__ARRAY_STRING_VWATCHRECEIVEDDATA[4]+1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +if (tmp_long2len== 0 )))){ +if(qbevent){evnt(26307,9016,"ide_methods.bas");if(r)goto S_45280;} +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26307,9018,"ide_methods.bas");}while(r); +S_45282:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26307,9019,"ide_methods.bas");if(r)goto S_45282;} +do{ + +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +preserved_elements=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +} +else preserved_elements=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]= 1 ; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=(func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1)+ 999 )-__ARRAY_STRING_VWATCHRECEIVEDDATA[4]+1; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +if (tmp_long2len))||new_error){ +if(qbevent){evnt(26307,9028,"ide_methods.bas");if(r)goto S_45291;} +do{ +sub_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES),1); +if(!qbevent)break;evnt(26307,9028,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,9029,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9030,"ide_methods.bas");}while(r); +} +S_45297:; +if ((*__LONG_MCLICK&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 )))||new_error){ +if(qbevent){evnt(26307,9033,"ide_methods.bas");if(r)goto S_45297;} +S_45298:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEVARIABLEWATCHBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ +if(qbevent){evnt(26307,9034,"ide_methods.bas");if(r)goto S_45298;} +S_45299:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD)))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ +if(qbevent){evnt(26307,9035,"ide_methods.bas");if(r)goto S_45299;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 5 ; +if(!qbevent)break;evnt(26307,9036,"ide_methods.bas");}while(r); +do{ +goto LABEL_SENDVALUE; +if(!qbevent)break;evnt(26307,9037,"ide_methods.bas");}while(r); +S_45302:; +}else{ +if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 )))&(-(*__LONG_IDEDEBUGMODE> 0 ))))|(-(*__LONG_IDEDEBUGMODE== 0 ))){ +if(qbevent){evnt(26307,9039,"ide_methods.bas");if(r)goto S_45302;} +do{ +goto LABEL_TOGGLEWATCH; +if(!qbevent)break;evnt(26307,9040,"ide_methods.bas");}while(r); +} +} +S_45305:; +}else{ +if (-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))){ +if(qbevent){evnt(26307,9042,"ide_methods.bas");if(r)goto S_45305;} +S_45306:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX==(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 )))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ +if(qbevent){evnt(26307,9043,"ide_methods.bas");if(r)goto S_45306;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,9044,"ide_methods.bas");}while(r); +S_45308:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)== 0 ))&(qbs_notequal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))))||new_error){ +if(qbevent){evnt(26307,9045,"ide_methods.bas");if(r)goto S_45308;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))+ 1 ; +if(!qbevent)break;evnt(26307,9046,"ide_methods.bas");}while(r); +S_45310:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))> 3 ))||new_error){ +if(qbevent){evnt(26307,9047,"ide_methods.bas");if(r)goto S_45310;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; +if(!qbevent)break;evnt(26307,9048,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=141; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_141:; +if(!qbevent)break;evnt(26307,9050,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9051,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,9055,"ide_methods.bas");}while(r); +S_45319:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26307,9056,"ide_methods.bas");if(r)goto S_45319;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,9056,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,9057,"ide_methods.bas");}while(r); +} +S_45324:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 )))))||new_error){ +if(qbevent){evnt(26307,9060,"ide_methods.bas");if(r)goto S_45324;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9061,"ide_methods.bas");}while(r); +LABEL_TOGGLEWATCH:; +if(qbevent){evnt(26307,9062,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,9063,"ide_methods.bas");}while(r); +S_45327:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y<=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))||new_error){ +if(qbevent){evnt(26307,9065,"ide_methods.bas");if(r)goto S_45327;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26307,9066,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= -1 ; +if(!qbevent)break;evnt(26307,9067,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=142; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DLGUPDATE; +RETURN_142:; +if(!qbevent)break;evnt(26307,9067,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,9068,"ide_methods.bas");}while(r); +S_45332:; +if (((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))!= 0 ))&*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26307,9069,"ide_methods.bas");if(r)goto S_45332;} +do{ +goto LABEL_SETARRAYRANGE; +if(!qbevent)break;evnt(26307,9070,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))=~(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))); +if(!qbevent)break;evnt(26307,9072,"ide_methods.bas");}while(r); +S_45336:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26307,9073,"ide_methods.bas");if(r)goto S_45336;} +S_45337:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26307,9074,"ide_methods.bas");if(r)goto S_45337;} +LABEL_SETARRAYRANGE:; +if(qbevent){evnt(26307,9075,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9076,"ide_methods.bas");}while(r); +S_45339:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80)))->len))||new_error){ +if(qbevent){evnt(26307,9077,"ide_methods.bas");if(r)goto S_45339;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9078,"ide_methods.bas");}while(r); +} +LABEL_SETARRAYRANGE2:; +if(qbevent){evnt(26307,9080,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Watch Array",11),qbs_add(qbs_new_txt_len("#Indexes",8),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPPROMPT),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("01234567890,-; TOto",19),&(pass5045= 45 ),&(pass5046= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9081,"ide_methods.bas");}while(r); +S_45343:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26307,9082,"ide_methods.bas");if(r)goto S_45343;} +S_45344:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len> 0 )))||new_error){ +if(qbevent){evnt(26307,9083,"ide_methods.bas");if(r)goto S_45344;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9084,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_STRREPLACE(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(" TO ",4),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9085,"ide_methods.bas");}while(r); +S_45347:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 ),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(26307,9086,"ide_methods.bas");if(r)goto S_45347;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9086,"ide_methods.bas");}while(r); +ww_continue_5048:; +} +ww_exit_5048:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_LINEFORMAT(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9087,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=FUNC_COUNTELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9088,"ide_methods.bas");}while(r); +S_45352:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I!=func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))||new_error){ +if(qbevent){evnt(26307,9089,"ide_methods.bas");if(r)goto S_45352;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_add(qbs_add(qbs_new_txt_len("Array has",9),qbs_str((int16)(func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))),qbs_new_txt_len(" dimension(s).",14)),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9090,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs__trim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9091,"ide_methods.bas");}while(r); +do{ +goto LABEL_SETARRAYRANGE2; +if(!qbevent)break;evnt(26307,9092,"ide_methods.bas");}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9094,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9095,"ide_methods.bas");}while(r); +S_45359:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,9096,"ide_methods.bas");if(r)goto S_45359;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA=func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9097,"ide_methods.bas");}while(r); +S_45361:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA)||new_error){ +if(qbevent){evnt(26307,9098,"ide_methods.bas");if(r)goto S_45361;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9099,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9100,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9102,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_PARSERANGE(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9104,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),l2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9105,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_FORMATRANGE(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9106,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9107,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ; +if(!qbevent)break;evnt(26307,9108,"ide_methods.bas");}while(r); +S_45372:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,9109,"ide_methods.bas");if(r)goto S_45372;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9109,"ide_methods.bas");}while(r); +} +ww_continue_5050:; +} +ww_exit_5050:; +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,9112,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=143; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_143:; +if(!qbevent)break;evnt(26307,9113,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9114,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26307,9115,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=144; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_144:; +if(!qbevent)break;evnt(26307,9117,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9118,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,9120,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26307,9121,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9126,"ide_methods.bas");}while(r); +S_45390:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,9127,"ide_methods.bas");if(r)goto S_45390;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9127,"ide_methods.bas");}while(r); +} +S_45393:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,9128,"ide_methods.bas");if(r)goto S_45393;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9128,"ide_methods.bas");}while(r); +} +S_45396:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,0)== 0 )))||new_error){ +if(qbevent){evnt(26307,9129,"ide_methods.bas");if(r)goto S_45396;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9131,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT= 0 ; +if(!qbevent)break;evnt(26307,9132,"ide_methods.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26307,9133,"ide_methods.bas");}while(r); +S_45400:; +fornext_value5053= 1 ; +fornext_finalvalue5053=*__LONG_LASTTYPE; +fornext_step5053= 1 ; +if (fornext_step5053<0) fornext_step_negative5053=1; else fornext_step_negative5053=0; +if (new_error) goto fornext_error5053; +goto fornext_entrylabel5053; +while(1){ +fornext_value5053=fornext_step5053+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5053: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5053; +if (fornext_step_negative5053){ +if (fornext_value5053fornext_finalvalue5053) break; +} +fornext_error5053:; +if(qbevent){evnt(26307,9134,"ide_methods.bas");if(r)goto S_45400;} +S_45401:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)))||new_error){ +if(qbevent){evnt(26307,9135,"ide_methods.bas");if(r)goto S_45401;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,9135,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5052; +if(!qbevent)break;evnt(26307,9135,"ide_methods.bas");}while(r); +} +fornext_continue_5052:; +} +fornext_exit_5052:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,9138,"ide_methods.bas");}while(r); +S_45407:; +do{ +if(qbevent){evnt(26307,9139,"ide_methods.bas");if(r)goto S_45407;} +S_45408:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26307,9140,"ide_methods.bas");if(r)goto S_45408;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26307,9140,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26307,9140,"ide_methods.bas");}while(r); +} +S_45413:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26307,9141,"ide_methods.bas");if(r)goto S_45413;} +do{ +goto dl_exit_5054; +if(!qbevent)break;evnt(26307,9141,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,l2string(*__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9142,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,9143,"ide_methods.bas");}while(r); +dl_continue_5054:; +}while(1); +dl_exit_5054:; +do{ +sub_pcopy( 0 , 4 ); +if(!qbevent)break;evnt(26307,9145,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(".",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,&(pass5055= 0 ),&(pass5056= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9146,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,9147,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 1 ); +if(!qbevent)break;evnt(26307,9148,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,9149,"ide_methods.bas");}while(r); +S_45424:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26307,9150,"ide_methods.bas");if(r)goto S_45424;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME= 0 ; +if(!qbevent)break;evnt(26307,9151,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9152,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9153,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9154,"ide_methods.bas");}while(r); +do{ +SUB_GETID((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120) )); +if(!qbevent)break;evnt(26307,9155,"ide_methods.bas");}while(r); +S_45430:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(26307,9156,"ide_methods.bas");if(r)goto S_45430;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; +if(!qbevent)break;evnt(26307,9157,"ide_methods.bas");}while(r); +S_45432:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26307,9158,"ide_methods.bas");if(r)goto S_45432;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26307,9159,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(26307,9162,"ide_methods.bas");}while(r); +S_45436:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(26307,9163,"ide_methods.bas");if(r)goto S_45436;} +S_45437:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )||new_error){ +if(qbevent){evnt(26307,9164,"ide_methods.bas");if(r)goto S_45437;} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))+( 8 -(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )); +if(!qbevent)break;evnt(26307,9164,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))/ 8 ; +if(!qbevent)break;evnt(26307,9165,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; +if(!qbevent)break;evnt(26307,9168,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9171,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,9172,"ide_methods.bas");}while(r); +S_45447:; +do{ +if(qbevent){evnt(26307,9173,"ide_methods.bas");if(r)goto S_45447;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,9174,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9175,"ide_methods.bas");}while(r); +S_45450:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len== 0 )))||new_error){ +if(qbevent){evnt(26307,9176,"ide_methods.bas");if(r)goto S_45450;} +do{ +goto dl_exit_5057; +if(!qbevent)break;evnt(26307,9176,"ide_methods.bas");}while(r); +} +S_45453:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME)))||new_error){ +if(qbevent){evnt(26307,9179,"ide_methods.bas");if(r)goto S_45453;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME=_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9179,"ide_methods.bas");}while(r); +} +S_45456:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))||new_error){ +if(qbevent){evnt(26307,9180,"ide_methods.bas");if(r)goto S_45456;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9181,"ide_methods.bas");}while(r); +}else{ +do{ +sub_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 1 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME),1); +if(!qbevent)break;evnt(26307,9183,"ide_methods.bas");}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),_FUNC_IDEVARIABLEWATCHBOX_STRING_V),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9185,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_LINEFORMAT(qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9186,"ide_methods.bas");}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26307,9187,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,FUNC_UDTREFERENCE(qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9188,"ide_methods.bas");}while(r); +S_45465:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(26307,9189,"ide_methods.bas");if(r)goto S_45465;} +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26307,9191,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),__STRING_ERROR_MESSAGE,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9192,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,9193,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9194,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9195,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9196,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26307,9197,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISUDT; +if(!qbevent)break;evnt(26307,9199,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(26307,9200,"ide_methods.bas");}while(r); +S_45476:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26307,9201,"ide_methods.bas");if(r)goto S_45476;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26307,9201,"ide_methods.bas");}while(r); +} +S_45479:; +if(qbevent){evnt(26307,9202,"ide_methods.bas");if(r)goto S_45479;} +S_45480:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_BYTETYPE)))||new_error){ +if(qbevent){evnt(26307,9203,"ide_methods.bas");if(r)goto S_45480;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_BYTE",5)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9204,"ide_methods.bas");}while(r); +sc_ec_301_end:; +goto sc_5061_end; +} +S_45482:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UBYTETYPE)))||new_error){ +if(qbevent){evnt(26307,9205,"ide_methods.bas");if(r)goto S_45482;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _BYTE",15)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9206,"ide_methods.bas");}while(r); +sc_ec_302_end:; +goto sc_5061_end; +} +S_45484:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGERTYPE)))||new_error){ +if(qbevent){evnt(26307,9207,"ide_methods.bas");if(r)goto S_45484;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("INTEGER",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9208,"ide_methods.bas");}while(r); +sc_ec_303_end:; +goto sc_5061_end; +} +S_45486:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGERTYPE)))||new_error){ +if(qbevent){evnt(26307,9209,"ide_methods.bas");if(r)goto S_45486;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED INTEGER",17)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9210,"ide_methods.bas");}while(r); +sc_ec_304_end:; +goto sc_5061_end; +} +S_45488:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_LONGTYPE)))||new_error){ +if(qbevent){evnt(26307,9211,"ide_methods.bas");if(r)goto S_45488;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("LONG",4)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9212,"ide_methods.bas");}while(r); +sc_ec_305_end:; +goto sc_5061_end; +} +S_45490:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_ULONGTYPE)))||new_error){ +if(qbevent){evnt(26307,9213,"ide_methods.bas");if(r)goto S_45490;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED LONG",14)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9214,"ide_methods.bas");}while(r); +sc_ec_306_end:; +goto sc_5061_end; +} +S_45492:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26307,9215,"ide_methods.bas");if(r)goto S_45492;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_INTEGER64",10)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9216,"ide_methods.bas");}while(r); +sc_ec_307_end:; +goto sc_5061_end; +} +S_45494:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26307,9217,"ide_methods.bas");if(r)goto S_45494;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _INTEGER64",20)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9218,"ide_methods.bas");}while(r); +sc_ec_308_end:; +goto sc_5061_end; +} +S_45496:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_SINGLETYPE)))||new_error){ +if(qbevent){evnt(26307,9219,"ide_methods.bas");if(r)goto S_45496;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("SINGLE",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9220,"ide_methods.bas");}while(r); +sc_ec_309_end:; +goto sc_5061_end; +} +S_45498:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_DOUBLETYPE)))||new_error){ +if(qbevent){evnt(26307,9221,"ide_methods.bas");if(r)goto S_45498;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("DOUBLE",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9222,"ide_methods.bas");}while(r); +sc_ec_310_end:; +goto sc_5061_end; +} +S_45500:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_FLOATTYPE)))||new_error){ +if(qbevent){evnt(26307,9223,"ide_methods.bas");if(r)goto S_45500;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_FLOAT",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9224,"ide_methods.bas");}while(r); +sc_ec_311_end:; +goto sc_5061_end; +} +S_45502:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_OFFSETTYPE)))||new_error){ +if(qbevent){evnt(26307,9225,"ide_methods.bas");if(r)goto S_45502;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_OFFSET",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9226,"ide_methods.bas");}while(r); +sc_ec_312_end:; +goto sc_5061_end; +} +S_45504:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UOFFSETTYPE)))||new_error){ +if(qbevent){evnt(26307,9227,"ide_methods.bas");if(r)goto S_45504;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _OFFSET",17)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9228,"ide_methods.bas");}while(r); +sc_ec_313_end:; +goto sc_5061_end; +} +S_45507:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(26307,9230,"ide_methods.bas");if(r)goto S_45507;} +S_45508:; +if ((-((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(26307,9231,"ide_methods.bas");if(r)goto S_45508;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("STRING",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9232,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("STRING *",8)),qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9235,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,9239,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9240,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9241,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9242,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Cannot add full UDT to Watch List",33),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9243,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26307,9244,"ide_methods.bas");}while(r); +} +sc_5061_end:; +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),l2string(qbr(func_val(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,func__instrrev(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,__STRING1_SP3,0)+ 1 ,NULL,0)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9247,"ide_methods.bas");}while(r); +} +dl_continue_5057:; +}while(1); +dl_exit_5057:; +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9252,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96)))->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9253,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26307,9255,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26307,9256,"ide_methods.bas");}while(r); +} +} +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9260,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9261,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9262,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9263,"ide_methods.bas");}while(r); +}else{ +LABEL_UNWATCH:; +if(qbevent){evnt(26307,9265,"ide_methods.bas");r=0;} +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9266,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9267,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9268,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9269,"ide_methods.bas");}while(r); +} +} +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,9273,"ide_methods.bas");}while(r); +} +S_45545:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 ))&(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,9276,"ide_methods.bas");if(r)goto S_45545;} +do{ +return_point[next_return_point++]=145; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_COPYLIST; +RETURN_145:; +if(!qbevent)break;evnt(26307,9277,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,9278,"ide_methods.bas");}while(r); +} +S_45549:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX))&(((qbs_greaterorequal(__STRING_K,qbs_new_txt_len(" ",1)))&(qbs_lessorequal(__STRING_K,func_chr( 126 )))))))||new_error){ +if(qbevent){evnt(26307,9281,"ide_methods.bas");if(r)goto S_45549;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26307,9282,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26307,9283,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9284,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,9285,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+76))= 0 ; +if(!qbevent)break;evnt(26307,9286,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9287,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,9288,"ide_methods.bas");}while(r); +} +S_45558:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))&(((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 )))))||new_error){ +if(qbevent){evnt(26307,9291,"ide_methods.bas");if(r)goto S_45558;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX; +if(!qbevent)break;evnt(26307,9292,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4978; +if(!qbevent)break;evnt(26307,9293,"ide_methods.bas");}while(r); +} +S_45562:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM))))||new_error){ +if(qbevent){evnt(26307,9296,"ide_methods.bas");if(r)goto S_45562;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9297,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9298,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=146; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_146:; +if(!qbevent)break;evnt(26307,9300,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9301,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,9302,"ide_methods.bas");}while(r); +S_45568:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26307,9303,"ide_methods.bas");if(r)goto S_45568;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(", filtered",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9303,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9303,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Add Watch - Variable List (",27),qbs_ltrim(qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9304,"ide_methods.bas");}while(r); +} +LABEL_DLGLOOP:; +if(qbevent){evnt(26307,9307,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,9309,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,9310,"ide_methods.bas");}while(r); +dl_continue_4978:; +}while(1); +dl_exit_4978:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9313,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9314,"ide_methods.bas");}while(r); +LABEL_COPYLIST:; +if(qbevent){evnt(26307,9316,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9317,"ide_methods.bas");}while(r); +S_45581:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,9318,"ide_methods.bas");if(r)goto S_45581;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9319,"ide_methods.bas");}while(r); +S_45583:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,9320,"ide_methods.bas");if(r)goto S_45583;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: untitled",37),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9321,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: ",29),_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE),qbs_new_txt_len(".bas",4)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9323,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: ",29),__STRING_IDEPROGNAME),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9326,"ide_methods.bas");}while(r); +} +S_45591:; +fornext_value5065= 1 ; +fornext_finalvalue5065=*__LONG_TOTALVARIABLESCREATED; +fornext_step5065= 1 ; +if (fornext_step5065<0) fornext_step_negative5065=1; else fornext_step_negative5065=0; +if (new_error) goto fornext_error5065; +goto fornext_entrylabel5065; +while(1){ +fornext_value5065=fornext_step5065+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5065: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5065; +if (fornext_step_negative5065){ +if (fornext_value5065fornext_finalvalue5065) break; +} +fornext_error5065:; +if(qbevent){evnt(26307,9329,"ide_methods.bas");if(r)goto S_45591;} +S_45592:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26307,9330,"ide_methods.bas");if(r)goto S_45592;} +do{ +goto fornext_continue_5064; +if(!qbevent)break;evnt(26307,9330,"ide_methods.bas");}while(r); +} +S_45595:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26307,9332,"ide_methods.bas");if(r)goto S_45595;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9333,"ide_methods.bas");}while(r); +S_45597:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,9334,"ide_methods.bas");if(r)goto S_45597;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9334,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9335,"ide_methods.bas");}while(r); +S_45601:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_MULTISEARCH(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)== 0 )))||new_error){ +if(qbevent){evnt(26307,9336,"ide_methods.bas");if(r)goto S_45601;} +do{ +goto fornext_continue_5064; +if(!qbevent)break;evnt(26307,9337,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9341,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9342,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(" ",1)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9343,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,func_space( 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9345,"ide_methods.bas");}while(r); +S_45609:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len> 0 )))||new_error){ +if(qbevent){evnt(26307,9346,"ide_methods.bas");if(r)goto S_45609;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9347,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9349,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9352,"ide_methods.bas");}while(r); +fornext_continue_5064:; +} +fornext_exit_5064:; +do{ +sub__clipboard(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9354,"ide_methods.bas");}while(r); +do{ +#include "ret138.txt" +if(!qbevent)break;evnt(26307,9355,"ide_methods.bas");}while(r); +LABEL_BUILDLIST:; +if(qbevent){evnt(26307,9357,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN=((int32)(qbs_new_txt_len("Variable",8))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9358,"ide_methods.bas");}while(r); +S_45619:; +fornext_value5069= 1 ; +fornext_finalvalue5069=*__LONG_TOTALVARIABLESCREATED; +fornext_step5069= 1 ; +if (fornext_step5069<0) fornext_step_negative5069=1; else fornext_step_negative5069=0; +if (new_error) goto fornext_error5069; +goto fornext_entrylabel5069; +while(1){ +fornext_value5069=fornext_step5069+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5069: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5069; +if (fornext_step_negative5069){ +if (fornext_value5069fornext_finalvalue5069) break; +} +fornext_error5069:; +if(qbevent){evnt(26307,9359,"ide_methods.bas");if(r)goto S_45619;} +S_45620:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26307,9360,"ide_methods.bas");if(r)goto S_45620;} +do{ +goto fornext_continue_5068; +if(!qbevent)break;evnt(26307,9360,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len+ 3 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9361,"ide_methods.bas");}while(r); +S_45624:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len> 0 )))||new_error){ +if(qbevent){evnt(26307,9362,"ide_methods.bas");if(r)goto S_45624;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9363,"ide_methods.bas");}while(r); +} +S_45627:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN))||new_error){ +if(qbevent){evnt(26307,9365,"ide_methods.bas");if(r)goto S_45627;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN; +if(!qbevent)break;evnt(26307,9365,"ide_methods.bas");}while(r); +} +fornext_continue_5068:; +} +fornext_exit_5068:; +S_45631:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN)||new_error){ +if(qbevent){evnt(26307,9368,"ide_methods.bas");if(r)goto S_45631;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Building Variable List...",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9369,"ide_methods.bas");}while(r); +S_45633:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ +if(qbevent){evnt(26307,9370,"ide_methods.bas");if(r)goto S_45633;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Analyzing Variable List...",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9370,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),&(pass5070= 60 ),&(pass5071= 1 ),_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9371,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9374,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES= 0 ; +if(!qbevent)break;evnt(26307,9375,"ide_methods.bas");}while(r); +S_45640:; +fornext_value5073= 1 ; +fornext_finalvalue5073=*__LONG_TOTALVARIABLESCREATED; +fornext_step5073= 1 ; +if (fornext_step5073<0) fornext_step_negative5073=1; else fornext_step_negative5073=0; +if (new_error) goto fornext_error5073; +goto fornext_entrylabel5073; +while(1){ +fornext_value5073=fornext_step5073+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5073: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5073; +if (fornext_step_negative5073){ +if (fornext_value5073fornext_finalvalue5073) break; +} +fornext_error5073:; +if(qbevent){evnt(26307,9376,"ide_methods.bas");if(r)goto S_45640;} +S_45641:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN)||new_error){ +if(qbevent){evnt(26307,9378,"ide_methods.bas");if(r)goto S_45641;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,9379,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,9380,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_C=*__LONG_TOTALVARIABLESCREATED; +if(!qbevent)break;evnt(26307,9381,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_N=*_FUNC_IDEVARIABLEWATCHBOX_LONG_X; +if(!qbevent)break;evnt(26307,9382,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH= 52 ; +if(!qbevent)break;evnt(26307,9384,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C))* 100 )); +if(!qbevent)break;evnt(26307,9385,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C)))); +if(!qbevent)break;evnt(26307,9386,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9387,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9388,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,9390,"ide_methods.bas");}while(r); +} +S_45653:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26307,9393,"ide_methods.bas");if(r)goto S_45653;} +do{ +goto fornext_continue_5072; +if(!qbevent)break;evnt(26307,9393,"ide_methods.bas");}while(r); +} +S_45656:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26307,9395,"ide_methods.bas");if(r)goto S_45656;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9396,"ide_methods.bas");}while(r); +S_45658:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,9397,"ide_methods.bas");if(r)goto S_45658;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9397,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9398,"ide_methods.bas");}while(r); +S_45662:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 ))))||new_error){ +if(qbevent){evnt(26307,9399,"ide_methods.bas");if(r)goto S_45662;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))))-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9401,"ide_methods.bas");}while(r); +} +S_45665:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_MULTISEARCH(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)== 0 )))||new_error){ +if(qbevent){evnt(26307,9403,"ide_methods.bas");if(r)goto S_45665;} +do{ +goto fornext_continue_5072; +if(!qbevent)break;evnt(26307,9404,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; +if(!qbevent)break;evnt(26307,9408,"ide_methods.bas");}while(r); +S_45670:; +while((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES>func_ubound(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST,1,1)))||new_error){ +if(qbevent){evnt(26307,9409,"ide_methods.bas");if(r)goto S_45670;} +do{ + +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&1){ +preserved_elements=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +} +else preserved_elements=0; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4]= 1 ; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]=(*__LONG_TOTALVARIABLESCREATED+ 100 )-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4]+1; +_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +if (tmp_long2len+ 1 ; +if(!qbevent)break;evnt(26307,9414,"ide_methods.bas");}while(r); +S_45675:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26307,9415,"ide_methods.bas");if(r)goto S_45675;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9416,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9418,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9421,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_X; +if(!qbevent)break;evnt(26307,9422,"ide_methods.bas");}while(r); +S_45682:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X==*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT)))||new_error){ +if(qbevent){evnt(26307,9423,"ide_methods.bas");if(r)goto S_45682;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT= 0 ; +if(!qbevent)break;evnt(26307,9423,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; +if(!qbevent)break;evnt(26307,9423,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26307,9424,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 2 ; +if(!qbevent)break;evnt(26307,9425,"ide_methods.bas");}while(r); +S_45688:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26307,9426,"ide_methods.bas");if(r)goto S_45688;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR)),qbs_new_txt_len("+",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9427,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 16 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9429,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9432,"ide_methods.bas");}while(r); +S_45694:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len))||new_error){ +if(qbevent){evnt(26307,9433,"ide_methods.bas");if(r)goto S_45694;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME->len- 1 ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9434,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9438,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,9439,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9440,"ide_methods.bas");}while(r); +S_45700:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,9441,"ide_methods.bas");if(r)goto S_45700;} +S_45701:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26307,9442,"ide_methods.bas");if(r)goto S_45701;} +do{ +goto dl_exit_5081; +if(!qbevent)break;evnt(26307,9442,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9443,"ide_methods.bas");}while(r); +dl_continue_5081:; +} +dl_exit_5081:; +S_45706:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26307,9446,"ide_methods.bas");if(r)goto S_45706;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 )),func_chr( 4 )),func_chr( 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9447,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 )),func_chr( 16 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9449,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9452,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT->len+ 1 ; +if(!qbevent)break;evnt(26307,9453,"ide_methods.bas");}while(r); +S_45713:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26307,9454,"ide_methods.bas");if(r)goto S_45713;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9455,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_chr( 2 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9457,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9459,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_new_txt_len(" ",1)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9460,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,func_space( 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9462,"ide_methods.bas");}while(r); +S_45721:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len> 0 )))||new_error){ +if(qbevent){evnt(26307,9463,"ide_methods.bas");if(r)goto S_45721;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len)),func_chr( 16 )),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9464,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len)),func_chr( 16 )),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9466,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT),_FUNC_IDEVARIABLEWATCHBOX_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9469,"ide_methods.bas");}while(r); +S_45727:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X== 1 ))||new_error){ +if(qbevent){evnt(26307,9470,"ide_methods.bas");if(r)goto S_45727;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len- 3 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9470,"ide_methods.bas");}while(r); +} +S_45730:; +if ((-(*__LONG_IDEDEBUGMODE> 0 ))||new_error){ +if(qbevent){evnt(26307,9472,"ide_methods.bas");if(r)goto S_45730;} +S_45731:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26307,9473,"ide_methods.bas");if(r)goto S_45731;} +S_45732:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26307,9474,"ide_methods.bas");if(r)goto S_45732;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING=((-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)> 0 ))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9475,"ide_methods.bas");}while(r); +S_45734:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ +if(qbevent){evnt(26307,9476,"ide_methods.bas");if(r)goto S_45734;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9478,"ide_methods.bas");}while(r); +S_45736:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26307,9479,"ide_methods.bas");if(r)goto S_45736;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR)),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9479,"ide_methods.bas");}while(r); +} +S_45739:; +while((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26307,9480,"ide_methods.bas");if(r)goto S_45739;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9481,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9482,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9483,"ide_methods.bas");}while(r); +S_45743:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26307,9484,"ide_methods.bas");if(r)goto S_45743;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9485,"ide_methods.bas");}while(r); +}else{ +S_45746:; +sc_5091=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26307,9487,"ide_methods.bas");if(r)goto S_45746;} +S_45747:; +if (((sc_5091==( 1 )))||new_error){ +if(qbevent){evnt(26307,9489,"ide_methods.bas");if(r)goto S_45747;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9489,"ide_methods.bas");}while(r); +sc_ec_314_end:; +goto sc_5091_end; +} +S_45749:; +if (((sc_5091==( 2 )))||new_error){ +if(qbevent){evnt(26307,9490,"ide_methods.bas");if(r)goto S_45749;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9490,"ide_methods.bas");}while(r); +sc_ec_315_end:; +goto sc_5091_end; +} +S_45751:; +if (((sc_5091==( 3 )))||new_error){ +if(qbevent){evnt(26307,9491,"ide_methods.bas");if(r)goto S_45751;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9491,"ide_methods.bas");}while(r); +sc_ec_316_end:; +goto sc_5091_end; +} +sc_5091_end:; +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9494,"ide_methods.bas");}while(r); +S_45756:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26307,9495,"ide_methods.bas");if(r)goto S_45756;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9495,"ide_methods.bas");}while(r); +} +S_45759:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26307,9496,"ide_methods.bas");if(r)goto S_45759;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9496,"ide_methods.bas");}while(r); +} +dl_continue_5090:; +} +dl_exit_5090:; +S_45763:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len))||new_error){ +if(qbevent){evnt(26307,9498,"ide_methods.bas");if(r)goto S_45763;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9498,"ide_methods.bas");}while(r); +} +S_45766:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))){ +if(qbevent){evnt(26307,9499,"ide_methods.bas");if(r)goto S_45766;} +S_45767:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ +if(qbevent){evnt(26307,9501,"ide_methods.bas");if(r)goto S_45767;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9502,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9503,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9504,"ide_methods.bas");}while(r); +S_45771:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26307,9505,"ide_methods.bas");if(r)goto S_45771;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9506,"ide_methods.bas");}while(r); +}else{ +S_45774:; +sc_5093=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26307,9508,"ide_methods.bas");if(r)goto S_45774;} +S_45775:; +if (((sc_5093==( 1 )))||new_error){ +if(qbevent){evnt(26307,9510,"ide_methods.bas");if(r)goto S_45775;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9510,"ide_methods.bas");}while(r); +sc_ec_317_end:; +goto sc_5093_end; +} +S_45777:; +if (((sc_5093==( 2 )))||new_error){ +if(qbevent){evnt(26307,9511,"ide_methods.bas");if(r)goto S_45777;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9511,"ide_methods.bas");}while(r); +sc_ec_318_end:; +goto sc_5093_end; +} +S_45779:; +if (((sc_5093==( 3 )))||new_error){ +if(qbevent){evnt(26307,9512,"ide_methods.bas");if(r)goto S_45779;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9512,"ide_methods.bas");}while(r); +sc_ec_319_end:; +goto sc_5093_end; +} +sc_5093_end:; +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9515,"ide_methods.bas");}while(r); +S_45784:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26307,9516,"ide_methods.bas");if(r)goto S_45784;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9516,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9519,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9520,"ide_methods.bas");}while(r); +} +} +} +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" ",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9524,"ide_methods.bas");}while(r); +} +} +S_45797:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X<*__LONG_TOTALVARIABLESCREATED))||new_error){ +if(qbevent){evnt(26307,9527,"ide_methods.bas");if(r)goto S_45797;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9527,"ide_methods.bas");}while(r); +} +fornext_continue_5072:; +} +fornext_exit_5072:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT= 0 ; +if(!qbevent)break;evnt(26307,9529,"ide_methods.bas");}while(r); +do{ +#include "ret138.txt" +if(!qbevent)break;evnt(26307,9530,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free138.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX);return _FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX; +} +qbs* FUNC_IDEELEMENTWATCHBOX(qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_OK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data139.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 4 , 0 ); +if(!qbevent)break;evnt(26307,9536,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,9537,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,9538,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,9539,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,9540,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,9541,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,9542,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9543,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,9548,"ide_methods.bas");}while(r); +S_45812:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL== 0 ))||new_error){ +if(qbevent){evnt(26307,9549,"ide_methods.bas");if(r)goto S_45812;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9549,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= 0 ; +if(!qbevent)break;evnt(26307,9551,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR= 3 ; +if(!qbevent)break;evnt(26307,9552,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR= 15 ; +if(!qbevent)break;evnt(26307,9553,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG= 2 ; +if(!qbevent)break;evnt(26307,9554,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS=_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->len/ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9556,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST)[8])->id=(++mem_lock_id); +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&1){ +tmp_long=_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25));} +if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])); +}else{ +free((void*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])); +} +} +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4]= 1 ; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]=(*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4]+1; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[6]=1; +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]=(ptrszint)malloc(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]*264/8+1); +if (!_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]) error(257); +_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]|=1; +tmp_long=_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; +while(tmp_long--){ +*(qbs**)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,9557,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS+ 4 ; +if(!qbevent)break;evnt(26307,9558,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,9559,"ide_methods.bas");}while(r); +S_45823:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26307,9560,"ide_methods.bas");if(r)goto S_45823;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26307,9561,"ide_methods.bas");}while(r); +} +S_45826:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT< 5 ))||new_error){ +if(qbevent){evnt(26307,9563,"ide_methods.bas");if(r)goto S_45826;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT= 5 ; +if(!qbevent)break;evnt(26307,9563,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=147; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_147:; +if(!qbevent)break;evnt(26307,9566,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH= 6 +*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME+*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN; +if(!qbevent)break;evnt(26307,9567,"ide_methods.bas");}while(r); +S_45831:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH< 40 ))||new_error){ +if(qbevent){evnt(26307,9568,"ide_methods.bas");if(r)goto S_45831;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH= 40 ; +if(!qbevent)break;evnt(26307,9568,"ide_methods.bas");}while(r); +} +S_45834:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,9569,"ide_methods.bas");if(r)goto S_45834;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,9569,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE,qbs_new_txt_len("Add UDT Elements",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9571,"ide_methods.bas");}while(r); +S_45838:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9572,"ide_methods.bas");if(r)goto S_45838;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE,qbs_new_txt_len("Choose UDT Element",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9572,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_UDT_P)) + (0) ),_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH,_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT,_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9573,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,9575,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,9575,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,9576,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,9577,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,9578,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT- 4 ; +if(!qbevent)break;evnt(26307,9578,"ide_methods.bas");}while(r); +S_45848:; +if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26307,9579,"ide_methods.bas");if(r)goto S_45848;} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEELEMENTWATCHBOX_STRING_L); +if(!qbevent)break;evnt(26307,9579,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEELEMENTWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9579,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,9581,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,9581,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,9582,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,9583,"ide_methods.bas");}while(r); +S_45857:; +if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26307,9584,"ide_methods.bas");if(r)goto S_45857;} +S_45858:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9585,"ide_methods.bas");if(r)goto S_45858;} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Up One Level",13))); +if(!qbevent)break;evnt(26307,9586,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26307,9588,"ide_methods.bas");}while(r); +} +} +S_45864:; +fornext_value5098= 1 ; +fornext_finalvalue5098= 100 ; +fornext_step5098= 1 ; +if (fornext_step5098<0) fornext_step_negative5098=1; else fornext_step_negative5098=0; +if (new_error) goto fornext_error5098; +goto fornext_entrylabel5098; +while(1){ +fornext_value5098=fornext_step5098+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5098: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5098; +if (fornext_step_negative5098){ +if (fornext_value5098fornext_finalvalue5098) break; +} +fornext_error5098:; +if(qbevent){evnt(26307,9595,"ide_methods.bas");if(r)goto S_45864;} +do{ +memcpy(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,9595,"ide_methods.bas");}while(r); +fornext_continue_5097:; +} +fornext_exit_5097:; +S_45867:; +do{ +if(qbevent){evnt(26307,9598,"ide_methods.bas");if(r)goto S_45867;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,9601,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,9602,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,9602,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,9602,"ide_methods.bas");}while(r); +S_45872:; +fornext_value5101= 1 ; +fornext_finalvalue5101= 100 ; +fornext_step5101= 1 ; +if (fornext_step5101<0) fornext_step_negative5101=1; else fornext_step_negative5101=0; +if (new_error) goto fornext_error5101; +goto fornext_entrylabel5101; +while(1){ +fornext_value5101=fornext_step5101+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5101: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5101; +if (fornext_step_negative5101){ +if (fornext_value5101fornext_finalvalue5101) break; +} +fornext_error5101:; +if(qbevent){evnt(26307,9603,"ide_methods.bas");if(r)goto S_45872;} +S_45873:; +if ((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,9604,"ide_methods.bas");if(r)goto S_45873;} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS-*_FUNC_IDEELEMENTWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26307,9606,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,9607,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,9607,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEELEMENTWATCHBOX_LONG_F); +if(!qbevent)break;evnt(26307,9608,"ide_methods.bas");}while(r); +S_45878:; +if ((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,9609,"ide_methods.bas");if(r)goto S_45878;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,9609,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,9609,"ide_methods.bas");}while(r); +} +} +fornext_continue_5100:; +} +fornext_exit_5100:; +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,9612,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,9616,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9617,"ide_methods.bas");}while(r); +S_45887:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP->len)>(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(8))- 4 ))))||new_error){ +if(qbevent){evnt(26307,9618,"ide_methods.bas");if(r)goto S_45887;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(8))- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9618,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9619,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,9624,"ide_methods.bas");}while(r); +S_45892:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,9625,"ide_methods.bas");if(r)goto S_45892;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,9625,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEELEMENTWATCHBOX_LONG_CY,*_FUNC_IDEELEMENTWATCHBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,9625,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,9625,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,9628,"ide_methods.bas");}while(r); +S_45898:; +do{ +if(qbevent){evnt(26307,9629,"ide_methods.bas");if(r)goto S_45898;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,9630,"ide_methods.bas");}while(r); +S_45900:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,9631,"ide_methods.bas");if(r)goto S_45900;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,9631,"ide_methods.bas");}while(r); +} +S_45903:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,9632,"ide_methods.bas");if(r)goto S_45903;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,9632,"ide_methods.bas");}while(r); +} +S_45906:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,9633,"ide_methods.bas");if(r)goto S_45906;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,9633,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,9633,"ide_methods.bas");}while(r); +} +S_45910:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,9634,"ide_methods.bas");if(r)goto S_45910;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,9634,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,9634,"ide_methods.bas");}while(r); +} +S_45914:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,9635,"ide_methods.bas");if(r)goto S_45914;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,9635,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,9636,"ide_methods.bas");}while(r); +S_45918:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT!=*_FUNC_IDEELEMENTWATCHBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,9636,"ide_methods.bas");if(r)goto S_45918;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,9636,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OLDALT=*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,9637,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,9638,"ide_methods.bas");}while(r); +S_45923:; +dl_continue_5103:; +}while((!(*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5103:; +if(qbevent){evnt(26307,9639,"ide_methods.bas");if(r)goto S_45923;} +S_45924:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,9640,"ide_methods.bas");if(r)goto S_45924;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,9640,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,9640,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9642,"ide_methods.bas");}while(r); +S_45930:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,9643,"ide_methods.bas");if(r)goto S_45930;} +S_45931:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,9644,"ide_methods.bas");if(r)goto S_45931;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9645,"ide_methods.bas");}while(r); +S_45933:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,9646,"ide_methods.bas");if(r)goto S_45933;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEELEMENTWATCHBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9646,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,9649,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,9649,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,9649,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,9653,"ide_methods.bas");}while(r); +S_45942:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,9654,"ide_methods.bas");if(r)goto S_45942;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9654,"ide_methods.bas");}while(r); +} +S_45945:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,9655,"ide_methods.bas");if(r)goto S_45945;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,9655,"ide_methods.bas");}while(r); +} +S_45948:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,9656,"ide_methods.bas");if(r)goto S_45948;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,9656,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9656,"ide_methods.bas");}while(r); +} +S_45952:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,9657,"ide_methods.bas");if(r)goto S_45952;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,9657,"ide_methods.bas");}while(r); +} +S_45955:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS>*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,9658,"ide_methods.bas");if(r)goto S_45955;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,9658,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,9659,"ide_methods.bas");}while(r); +S_45959:; +fornext_value5106= 1 ; +fornext_finalvalue5106= 100 ; +fornext_step5106= 1 ; +if (fornext_step5106<0) fornext_step_negative5106=1; else fornext_step_negative5106=0; +if (new_error) goto fornext_error5106; +goto fornext_entrylabel5106; +while(1){ +fornext_value5106=fornext_step5106+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5106: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5106; +if (fornext_step_negative5106){ +if (fornext_value5106fornext_finalvalue5106) break; +} +fornext_error5106:; +if(qbevent){evnt(26307,9660,"ide_methods.bas");if(r)goto S_45959;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,9661,"ide_methods.bas");}while(r); +S_45961:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,9662,"ide_methods.bas");if(r)goto S_45961;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUSOFFSET=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS-*_FUNC_IDEELEMENTWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26307,9663,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS,_FUNC_IDEELEMENTWATCHBOX_LONG_F,_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN,_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEELEMENTWATCHBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9664,"ide_methods.bas");}while(r); +} +fornext_continue_5105:; +} +fornext_exit_5105:; +S_45966:; +if ((((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26307,9668,"ide_methods.bas");if(r)goto S_45966;} +S_45967:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9669,"ide_methods.bas");if(r)goto S_45967;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,9671,"ide_methods.bas");}while(r); +S_45969:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ +if(qbevent){evnt(26307,9672,"ide_methods.bas");if(r)goto S_45969;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= -1 ; +if(!qbevent)break;evnt(26307,9673,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=148; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_TOGGLEWATCH; +RETURN_148:; +if(!qbevent)break;evnt(26307,9673,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= 0 ; +if(!qbevent)break;evnt(26307,9673,"ide_methods.bas");}while(r); +do{ +goto LABEL_BUILDLISTTORETURN; +if(!qbevent)break;evnt(26307,9674,"ide_methods.bas");}while(r); +} +}else{ +S_45976:; +fornext_value5108= 1 ; +fornext_finalvalue5108=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5108= 1 ; +if (fornext_step5108<0) fornext_step_negative5108=1; else fornext_step_negative5108=0; +if (new_error) goto fornext_error5108; +goto fornext_entrylabel5108; +while(1){ +fornext_value5108=fornext_step5108+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); +fornext_entrylabel5108: +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5108; +if (fornext_step_negative5108){ +if (fornext_value5108fornext_finalvalue5108) break; +} +fornext_error5108:; +if(qbevent){evnt(26307,9678,"ide_methods.bas");if(r)goto S_45976;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9679,"ide_methods.bas");}while(r); +S_45978:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,9680,"ide_methods.bas");if(r)goto S_45978;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9680,"ide_methods.bas");}while(r); +} +S_45981:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,9681,"ide_methods.bas");if(r)goto S_45981;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9681,"ide_methods.bas");}while(r); +} +S_45984:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)> 0 )))||new_error){ +if(qbevent){evnt(26307,9682,"ide_methods.bas");if(r)goto S_45984;} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= -1 ; +if(!qbevent)break;evnt(26307,9683,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9684,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9685,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9686,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9687,"ide_methods.bas");}while(r); +} +fornext_continue_5107:; +} +fornext_exit_5107:; +} +do{ +goto dl_continue_5099; +if(!qbevent)break;evnt(26307,9691,"ide_methods.bas");}while(r); +} +S_45995:; +if ((((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26307,9694,"ide_methods.bas");if(r)goto S_45995;} +S_45996:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9695,"ide_methods.bas");if(r)goto S_45996;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -3 ; +if(!qbevent)break;evnt(26307,9697,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9698,"ide_methods.bas");}while(r); +}else{ +S_46000:; +fornext_value5110= 1 ; +fornext_finalvalue5110=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5110= 1 ; +if (fornext_step5110<0) fornext_step_negative5110=1; else fornext_step_negative5110=0; +if (new_error) goto fornext_error5110; +goto fornext_entrylabel5110; +while(1){ +fornext_value5110=fornext_step5110+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); +fornext_entrylabel5110: +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5110; +if (fornext_step_negative5110){ +if (fornext_value5110fornext_finalvalue5110) break; +} +fornext_error5110:; +if(qbevent){evnt(26307,9701,"ide_methods.bas");if(r)goto S_46000;} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26307,9702,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9703,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9704,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9705,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9706,"ide_methods.bas");}while(r); +fornext_continue_5109:; +} +fornext_exit_5109:; +} +do{ +goto dl_continue_5099; +if(!qbevent)break;evnt(26307,9709,"ide_methods.bas");}while(r); +} +S_46010:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,9712,"ide_methods.bas");if(r)goto S_46010;} +S_46011:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9713,"ide_methods.bas");if(r)goto S_46011;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -4 ; +if(!qbevent)break;evnt(26307,9714,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9715,"ide_methods.bas");}while(r); +}else{ +LABEL_BUILDLISTTORETURN:; +if(qbevent){evnt(26307,9718,"ide_methods.bas");r=0;} +S_46015:; +fornext_value5112= 1 ; +fornext_finalvalue5112=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5112= 1 ; +if (fornext_step5112<0) fornext_step_negative5112=1; else fornext_step_negative5112=0; +if (new_error) goto fornext_error5112; +goto fornext_entrylabel5112; +while(1){ +fornext_value5112=fornext_step5112+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); +fornext_entrylabel5112: +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5112; +if (fornext_step_negative5112){ +if (fornext_value5112fornext_finalvalue5112) break; +} +fornext_error5112:; +if(qbevent){evnt(26307,9719,"ide_methods.bas");if(r)goto S_46015;} +S_46016:; +if ((*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24)))||new_error){ +if(qbevent){evnt(26307,9720,"ide_methods.bas");if(r)goto S_46016;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9721,"ide_methods.bas");}while(r); +S_46018:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,9722,"ide_methods.bas");if(r)goto S_46018;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9722,"ide_methods.bas");}while(r); +} +S_46021:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,9723,"ide_methods.bas");if(r)goto S_46021;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9723,"ide_methods.bas");}while(r); +} +S_46024:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)> 0 )))||new_error){ +if(qbevent){evnt(26307,9724,"ide_methods.bas");if(r)goto S_46024;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9726,"ide_methods.bas");}while(r); +S_46026:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len))||new_error){ +if(qbevent){evnt(26307,9727,"ide_methods.bas");if(r)goto S_46026;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9727,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH),_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9728,"ide_methods.bas");}while(r); +} +} +fornext_continue_5111:; +} +fornext_exit_5111:; +S_46033:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9733,"ide_methods.bas");if(r)goto S_46033;} +S_46034:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len> 0 )))||new_error){ +if(qbevent){evnt(26307,9734,"ide_methods.bas");if(r)goto S_46034;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -2 ; +if(!qbevent)break;evnt(26307,9735,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= 0 ; +if(!qbevent)break;evnt(26307,9737,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK=-(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len> 0 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9740,"ide_methods.bas");}while(r); +} +S_46042:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL== 0 ))||new_error){ +if(qbevent){evnt(26307,9742,"ide_methods.bas");if(r)goto S_46042;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,FUNC_STRREPLACE(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs_new_txt_len(".",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9742,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX,_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9743,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,9746,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9747,"ide_methods.bas");}while(r); +} +S_46050:; +if ((*__LONG_MCLICK&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 1 )))||new_error){ +if(qbevent){evnt(26307,9750,"ide_methods.bas");if(r)goto S_46050;} +S_46051:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEELEMENTWATCHBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ +if(qbevent){evnt(26307,9751,"ide_methods.bas");if(r)goto S_46051;} +S_46052:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION== 0 ))||new_error){ +if(qbevent){evnt(26307,9752,"ide_methods.bas");if(r)goto S_46052;} +do{ +goto LABEL_TOGGLEWATCH; +if(!qbevent)break;evnt(26307,9753,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,9755,"ide_methods.bas");}while(r); +S_46056:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ +if(qbevent){evnt(26307,9756,"ide_methods.bas");if(r)goto S_46056;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= -1 ; +if(!qbevent)break;evnt(26307,9757,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=149; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_TOGGLEWATCH; +RETURN_149:; +if(!qbevent)break;evnt(26307,9757,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= 0 ; +if(!qbevent)break;evnt(26307,9757,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,9758,"ide_methods.bas");}while(r); +do{ +goto LABEL_BUILDLISTTORETURN; +if(!qbevent)break;evnt(26307,9759,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,9763,"ide_methods.bas");}while(r); +S_46066:; +if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26307,9764,"ide_methods.bas");if(r)goto S_46066;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,9764,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5099; +if(!qbevent)break;evnt(26307,9765,"ide_methods.bas");}while(r); +} +S_46071:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 1 )))))||new_error){ +if(qbevent){evnt(26307,9768,"ide_methods.bas");if(r)goto S_46071;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9769,"ide_methods.bas");}while(r); +LABEL_TOGGLEWATCH:; +if(qbevent){evnt(26307,9770,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,9771,"ide_methods.bas");}while(r); +S_46074:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ +if(qbevent){evnt(26307,9773,"ide_methods.bas");if(r)goto S_46074;} +S_46075:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9774,"ide_methods.bas");if(r)goto S_46075;} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= -1 ; +if(!qbevent)break;evnt(26307,9775,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))=~(*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))); +if(!qbevent)break;evnt(26307,9777,"ide_methods.bas");}while(r); +} +S_46080:; +if ((*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24)))||new_error){ +if(qbevent){evnt(26307,9779,"ide_methods.bas");if(r)goto S_46080;} +S_46081:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26307,9780,"ide_methods.bas");if(r)goto S_46081;} +S_46082:; +fornext_value5117= 1 ; +fornext_finalvalue5117=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5117= 1 ; +if (fornext_step5117<0) fornext_step_negative5117=1; else fornext_step_negative5117=0; +if (new_error) goto fornext_error5117; +goto fornext_entrylabel5117; +while(1){ +fornext_value5117=fornext_step5117+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5117: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5117; +if (fornext_step_negative5117){ +if (fornext_value5117fornext_finalvalue5117) break; +} +fornext_error5117:; +if(qbevent){evnt(26307,9781,"ide_methods.bas");if(r)goto S_46082;} +S_46083:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_I==*_FUNC_IDEELEMENTWATCHBOX_LONG_Y))||new_error){ +if(qbevent){evnt(26307,9782,"ide_methods.bas");if(r)goto S_46083;} +do{ +goto fornext_continue_5116; +if(!qbevent)break;evnt(26307,9782,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26307,9783,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9784,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9785,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9786,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9787,"ide_methods.bas");}while(r); +fornext_continue_5116:; +} +fornext_exit_5116:; +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9791,"ide_methods.bas");}while(r); +S_46094:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26307,9792,"ide_methods.bas");if(r)goto S_46094;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9792,"ide_methods.bas");}while(r); +} +S_46097:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26307,9793,"ide_methods.bas");if(r)goto S_46097;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9793,"ide_methods.bas");}while(r); +} +S_46100:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)== 0 )))||new_error){ +if(qbevent){evnt(26307,9794,"ide_methods.bas");if(r)goto S_46100;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9796,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT= 0 ; +if(!qbevent)break;evnt(26307,9797,"ide_methods.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26307,9798,"ide_methods.bas");}while(r); +S_46104:; +fornext_value5119= 1 ; +fornext_finalvalue5119=*__LONG_LASTTYPE; +fornext_step5119= 1 ; +if (fornext_step5119<0) fornext_step_negative5119=1; else fornext_step_negative5119=0; +if (new_error) goto fornext_error5119; +goto fornext_entrylabel5119; +while(1){ +fornext_value5119=fornext_step5119+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5119: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5119; +if (fornext_step_negative5119){ +if (fornext_value5119fornext_finalvalue5119) break; +} +fornext_error5119:; +if(qbevent){evnt(26307,9799,"ide_methods.bas");if(r)goto S_46104;} +S_46105:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE)))||new_error){ +if(qbevent){evnt(26307,9800,"ide_methods.bas");if(r)goto S_46105;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26307,9800,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5118; +if(!qbevent)break;evnt(26307,9800,"ide_methods.bas");}while(r); +} +fornext_continue_5118:; +} +fornext_exit_5118:; +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,9803,"ide_methods.bas");}while(r); +S_46111:; +do{ +if(qbevent){evnt(26307,9804,"ide_methods.bas");if(r)goto S_46111;} +S_46112:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26307,9805,"ide_methods.bas");if(r)goto S_46112;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26307,9805,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26307,9805,"ide_methods.bas");}while(r); +} +S_46117:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26307,9806,"ide_methods.bas");if(r)goto S_46117;} +do{ +goto dl_exit_5120; +if(!qbevent)break;evnt(26307,9806,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,l2string(*__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9807,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,9808,"ide_methods.bas");}while(r); +dl_continue_5120:; +}while(1); +dl_exit_5120:; +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))),qbs_new_txt_len(".",1)),_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,&(pass5121=*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL+ 1 ),_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,_FUNC_IDEELEMENTWATCHBOX_LONG_OK2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9810,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK=*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2; +if(!qbevent)break;evnt(26307,9811,"ide_methods.bas");}while(r); +S_46125:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -2 ))||new_error){ +if(qbevent){evnt(26307,9812,"ide_methods.bas");if(r)goto S_46125;} +do{ +goto LABEL_BUILDLISTTORETURN; +if(!qbevent)break;evnt(26307,9814,"ide_methods.bas");}while(r); +S_46127:; +}else{ +if (-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -3 )){ +if(qbevent){evnt(26307,9815,"ide_methods.bas");if(r)goto S_46127;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9817,"ide_methods.bas");}while(r); +S_46129:; +}else{ +if (-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -4 )){ +if(qbevent){evnt(26307,9818,"ide_methods.bas");if(r)goto S_46129;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26307,9819,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26307,9820,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9821,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9822,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9823,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9824,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5099; +if(!qbevent)break;evnt(26307,9825,"ide_methods.bas");}while(r); +} +} +} +} +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9829,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9830,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9831,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9832,"ide_methods.bas");}while(r); +}else{ +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9834,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9835,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9836,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,9837,"ide_methods.bas");}while(r); +} +} +S_46150:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN)||new_error){ +if(qbevent){evnt(26307,9840,"ide_methods.bas");if(r)goto S_46150;} +do{ +#include "ret139.txt" +if(!qbevent)break;evnt(26307,9840,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5099; +if(!qbevent)break;evnt(26307,9841,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,9845,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,9846,"ide_methods.bas");}while(r); +dl_continue_5099:; +}while(1); +dl_exit_5099:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9849,"ide_methods.bas");}while(r); +LABEL_BUILDLIST:; +if(qbevent){evnt(26307,9851,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN= 0 ; +if(!qbevent)break;evnt(26307,9852,"ide_methods.bas");}while(r); +S_46160:; +fornext_value5123= 1 ; +fornext_finalvalue5123=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5123= 1 ; +if (fornext_step5123<0) fornext_step_negative5123=1; else fornext_step_negative5123=0; +if (new_error) goto fornext_error5123; +goto fornext_entrylabel5123; +while(1){ +fornext_value5123=fornext_step5123+(*_FUNC_IDEELEMENTWATCHBOX_LONG_X); +fornext_entrylabel5123: +*_FUNC_IDEELEMENTWATCHBOX_LONG_X=fornext_value5123; +if (fornext_step_negative5123){ +if (fornext_value5123fornext_finalvalue5123) break; +} +fornext_error5123:; +if(qbevent){evnt(26307,9853,"ide_methods.bas");if(r)goto S_46160;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE=string2l(func_mid(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,(*_FUNC_IDEELEMENTWATCHBOX_LONG_X* 4 )-( 3 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9854,"ide_methods.bas");}while(r); +S_46162:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)))->len)>*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME)))||new_error){ +if(qbevent){evnt(26307,9855,"ide_methods.bas");if(r)goto S_46162;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME=((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9855,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33))=*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE; +if(!qbevent)break;evnt(26307,9856,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26307,9857,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(26307,9858,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(540))=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; +if(!qbevent)break;evnt(26307,9859,"ide_methods.bas");}while(r); +S_46169:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(26307,9861,"ide_methods.bas");if(r)goto S_46169;} +do{ +*(int32*)(((char*)__UDT_ID)+(540))=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]; +if(!qbevent)break;evnt(26307,9862,"ide_methods.bas");}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25))),FUNC_ID2FULLTYPENAME()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9865,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9866,"ide_methods.bas");}while(r); +S_46174:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN>*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN))||new_error){ +if(qbevent){evnt(26307,9867,"ide_methods.bas");if(r)goto S_46174;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN=*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN; +if(!qbevent)break;evnt(26307,9867,"ide_methods.bas");}while(r); +} +fornext_continue_5122:; +} +fornext_exit_5122:; +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9870,"ide_methods.bas");}while(r); +S_46179:; +fornext_value5125= 1 ; +fornext_finalvalue5125=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5125= 1 ; +if (fornext_step5125<0) fornext_step_negative5125=1; else fornext_step_negative5125=0; +if (new_error) goto fornext_error5125; +goto fornext_entrylabel5125; +while(1){ +fornext_value5125=fornext_step5125+(*_FUNC_IDEELEMENTWATCHBOX_LONG_X); +fornext_entrylabel5125: +*_FUNC_IDEELEMENTWATCHBOX_LONG_X=fornext_value5125; +if (fornext_step_negative5125){ +if (fornext_value5125fornext_finalvalue5125) break; +} +fornext_error5125:; +if(qbevent){evnt(26307,9871,"ide_methods.bas");if(r)goto S_46179;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISELEMENT=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)); +if(!qbevent)break;evnt(26307,9872,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9873,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26307,9874,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9875,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9877,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26307,9878,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 2 ; +if(!qbevent)break;evnt(26307,9879,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 16 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9880,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISELEMENT)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9882,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9883,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT->len+ 1 ; +if(!qbevent)break;evnt(26307,9884,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,func_chr( 2 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9885,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,func_space(*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME-_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9886,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_new_txt_len(" ",1)),*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))),func_space(*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9887,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9889,"ide_methods.bas");}while(r); +S_46195:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_X<*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS))||new_error){ +if(qbevent){evnt(26307,9890,"ide_methods.bas");if(r)goto S_46195;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9890,"ide_methods.bas");}while(r); +} +fornext_continue_5124:; +} +fornext_exit_5124:; +do{ +#include "ret139.txt" +if(!qbevent)break;evnt(26307,9892,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free139.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX);return _FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX; +} +qbs* FUNC_FORMATRANGE(qbs*_FUNC_FORMATRANGE_STRING___TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data140.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_TEMP,_FUNC_FORMATRANGE_STRING___TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9897,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V1= -1 ; +if(!qbevent)break;evnt(26307,9898,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V2= -1 ; +if(!qbevent)break;evnt(26307,9899,"ide_methods.bas");}while(r); +S_46203:; +fornext_value5134= 1 ; +fornext_finalvalue5134=_FUNC_FORMATRANGE_STRING_TEMP->len/ 4 ; +fornext_step5134= 1 ; +if (fornext_step5134<0) fornext_step_negative5134=1; else fornext_step_negative5134=0; +if (new_error) goto fornext_error5134; +goto fornext_entrylabel5134; +while(1){ +fornext_value5134=fornext_step5134+(*_FUNC_FORMATRANGE_LONG_I); +fornext_entrylabel5134: +*_FUNC_FORMATRANGE_LONG_I=fornext_value5134; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5134){ +if (fornext_value5134fornext_finalvalue5134) break; +} +fornext_error5134:; +if(qbevent){evnt(26307,9900,"ide_methods.bas");if(r)goto S_46203;} +do{ +*_FUNC_FORMATRANGE_LONG_V=string2l(func_mid(_FUNC_FORMATRANGE_STRING_TEMP,(*_FUNC_FORMATRANGE_LONG_I* 4 )-( 3 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9901,"ide_methods.bas");}while(r); +S_46205:; +if ((-(*_FUNC_FORMATRANGE_LONG_V1== -1 ))||new_error){ +if(qbevent){evnt(26307,9902,"ide_methods.bas");if(r)goto S_46205;} +do{ +*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26307,9903,"ide_methods.bas");}while(r); +}else{ +S_46208:; +if (((-(*_FUNC_FORMATRANGE_LONG_V==(*_FUNC_FORMATRANGE_LONG_V1+ 1 )))|(-(*_FUNC_FORMATRANGE_LONG_V==(*_FUNC_FORMATRANGE_LONG_V2+ 1 ))))||new_error){ +if(qbevent){evnt(26307,9905,"ide_methods.bas");if(r)goto S_46208;} +do{ +*_FUNC_FORMATRANGE_LONG_V2=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26307,9906,"ide_methods.bas");}while(r); +}else{ +S_46211:; +if ((-(*_FUNC_FORMATRANGE_LONG_V2== -1 ))||new_error){ +if(qbevent){evnt(26307,9908,"ide_methods.bas");if(r)goto S_46211;} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9909,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26307,9910,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len("-",1)),qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V2)))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9912,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26307,9913,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V2= -1 ; +if(!qbevent)break;evnt(26307,9914,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_5133:; +} +fornext_exit_5133:; +S_46222:; +if (((-(*_FUNC_FORMATRANGE_LONG_V1!= -1 ))&(-(*_FUNC_FORMATRANGE_LONG_V2== -1 )))||new_error){ +if(qbevent){evnt(26307,9919,"ide_methods.bas");if(r)goto S_46222;} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9919,"ide_methods.bas");}while(r); +} +S_46225:; +if (((-(*_FUNC_FORMATRANGE_LONG_V1!= -1 ))&(-(*_FUNC_FORMATRANGE_LONG_V2!= -1 )))||new_error){ +if(qbevent){evnt(26307,9920,"ide_methods.bas");if(r)goto S_46225;} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len("-",1)),qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V2))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9920,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_FORMATRANGE,_FUNC_FORMATRANGE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9921,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free140.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FORMATRANGE_STRING_FORMATRANGE);return _FUNC_FORMATRANGE_STRING_FORMATRANGE; +} +qbs* FUNC_EXPANDARRAY(qbs*_FUNC_EXPANDARRAY_STRING___INDEXES,qbs*_FUNC_EXPANDARRAY_STRING___PATH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data141.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,9925,"ide_methods.bas");}while(r); +S_46230:; +if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||new_error){ +if(qbevent){evnt(26307,9927,"ide_methods.bas");if(r)goto S_46230;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9928,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL+ 1 ; +if(!qbevent)break;evnt(26307,9931,"ide_methods.bas");}while(r); +do{ +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=string2l(qbs_left(_FUNC_EXPANDARRAY_STRING___INDEXES, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9933,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_INDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 ,*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9934,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9935,"ide_methods.bas");}while(r); +do{ +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES/ 4 ; +if(!qbevent)break;evnt(26307,9936,"ide_methods.bas");}while(r); +S_46238:; +fornext_value5139= 1 ; +fornext_finalvalue5139=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES; +fornext_step5139= 1 ; +if (fornext_step5139<0) fornext_step_negative5139=1; else fornext_step_negative5139=0; +if (new_error) goto fornext_error5139; +goto fornext_entrylabel5139; +while(1){ +fornext_value5139=fornext_step5139+(*_FUNC_EXPANDARRAY_LONG_I); +fornext_entrylabel5139: +*_FUNC_EXPANDARRAY_LONG_I=fornext_value5139; +if (fornext_step_negative5139){ +if (fornext_value5139fornext_finalvalue5139) break; +} +fornext_error5139:; +if(qbevent){evnt(26307,9938,"ide_methods.bas");if(r)goto S_46238;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,qbs_add(_FUNC_EXPANDARRAY_STRING___PATH,func_mid(_FUNC_EXPANDARRAY_STRING_INDEXES,(*_FUNC_EXPANDARRAY_LONG_I* 4 )-( 3 ), 4 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9939,"ide_methods.bas");}while(r); +S_46240:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES->len))||new_error){ +if(qbevent){evnt(26307,9940,"ide_methods.bas");if(r)goto S_46240;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,FUNC_EXPANDARRAY(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,_FUNC_EXPANDARRAY_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9941,"ide_methods.bas");}while(r); +} +S_46243:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26307,9943,"ide_methods.bas");if(r)goto S_46243;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_add(qbs_add(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,l2string(_FUNC_EXPANDARRAY_STRING_TEMP->len)),_FUNC_EXPANDARRAY_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9944,"ide_methods.bas");}while(r); +} +fornext_continue_5138:; +} +fornext_exit_5138:; +do{ +*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL- 1 ; +if(!qbevent)break;evnt(26307,9948,"ide_methods.bas");}while(r); +S_46248:; +if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||new_error){ +if(qbevent){evnt(26307,9950,"ide_methods.bas");if(r)goto S_46248;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY,_FUNC_EXPANDARRAY_STRING_RETURNVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9951,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free141.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY);return _FUNC_EXPANDARRAY_STRING_EXPANDARRAY; +} +qbs* FUNC_PARSERANGE(qbs*_FUNC_PARSERANGE_STRING___TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data142.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_46251:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__trim(_FUNC_PARSERANGE_STRING___TEXT))->len)== 0 )))||new_error){ +if(qbevent){evnt(26307,9961,"ide_methods.bas");if(r)goto S_46251;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9961,"ide_methods.bas");}while(r); +} +do{ +if(!qbevent)break;evnt(26307,9963,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_PARSERANGE_STRING_FILTER,qbs__trim(_FUNC_PARSERANGE_STRING___TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9965,"ide_methods.bas");}while(r); +do{ +*_FUNC_PARSERANGE_LONG_J=func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len("-",1),0)+func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len(";",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9966,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_PARSERANGE_STRING_TEMP,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9967,"ide_methods.bas");}while(r); +S_46258:; +if ((-(*_FUNC_PARSERANGE_LONG_J== 0 ))||new_error){ +if(qbevent){evnt(26307,9969,"ide_methods.bas");if(r)goto S_46258;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,l2string(qbr(func_val(_FUNC_PARSERANGE_STRING_FILTER)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9970,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,9971,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_PARSERANGE_LONG_READING= 1 ; +if(!qbevent)break;evnt(26307,9974,"ide_methods.bas");}while(r); +S_46263:; +fornext_value5145= 1 ; +fornext_finalvalue5145=_FUNC_PARSERANGE_STRING_FILTER->len; +fornext_step5145= 1 ; +if (fornext_step5145<0) fornext_step_negative5145=1; else fornext_step_negative5145=0; +if (new_error) goto fornext_error5145; +goto fornext_entrylabel5145; +while(1){ +fornext_value5145=fornext_step5145+(*_FUNC_PARSERANGE_LONG_J); +fornext_entrylabel5145: +*_FUNC_PARSERANGE_LONG_J=fornext_value5145; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5145){ +if (fornext_value5145fornext_finalvalue5145) break; +} +fornext_error5145:; +if(qbevent){evnt(26307,9975,"ide_methods.bas");if(r)goto S_46263;} +do{ +*_FUNC_PARSERANGE_LONG_V=qbs_asc(_FUNC_PARSERANGE_STRING_FILTER,*_FUNC_PARSERANGE_LONG_J); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9976,"ide_methods.bas");}while(r); +S_46265:; +if(qbevent){evnt(26307,9977,"ide_methods.bas");if(r)goto S_46265;} +S_46266:; +if (((*_FUNC_PARSERANGE_LONG_V==( 59 )))||new_error){ +if(qbevent){evnt(26307,9978,"ide_methods.bas");if(r)goto S_46266;} +do{ +*_FUNC_PARSERANGE_LONG_READING= 1 ; +if(!qbevent)break;evnt(26307,9979,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=150; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PARSEIT; +RETURN_150:; +if(!qbevent)break;evnt(26307,9980,"ide_methods.bas");}while(r); +sc_ec_320_end:; +goto sc_5147_end; +} +S_46269:; +if (((*_FUNC_PARSERANGE_LONG_V==( 45 )))||new_error){ +if(qbevent){evnt(26307,9981,"ide_methods.bas");if(r)goto S_46269;} +S_46270:; +if ((-(*_FUNC_PARSERANGE_LONG_PREVCHAR!= 45 ))||new_error){ +if(qbevent){evnt(26307,9982,"ide_methods.bas");if(r)goto S_46270;} +do{ +*_FUNC_PARSERANGE_LONG_READING=*_FUNC_PARSERANGE_LONG_READING+ 1 ; +if(!qbevent)break;evnt(26307,9983,"ide_methods.bas");}while(r); +S_46272:; +if ((-(*_FUNC_PARSERANGE_LONG_READING== 2 ))||new_error){ +if(qbevent){evnt(26307,9984,"ide_methods.bas");if(r)goto S_46272;} +S_46273:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||new_error){ +if(qbevent){evnt(26307,9985,"ide_methods.bas");if(r)goto S_46273;} +do{ +return_point[next_return_point++]=151; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PARSEIT; +RETURN_151:; +if(!qbevent)break;evnt(26307,9985,"ide_methods.bas");}while(r); +} +} +} +sc_ec_321_end:; +goto sc_5147_end; +} +S_46278:; +if ((((*_FUNC_PARSERANGE_LONG_V>=( 48 ))&&(*_FUNC_PARSERANGE_LONG_V<=( 57 ))))||new_error){ +if(qbevent){evnt(26307,9988,"ide_methods.bas");if(r)goto S_46278;} +S_46279:; +if ((-(*_FUNC_PARSERANGE_LONG_READING== 1 ))||new_error){ +if(qbevent){evnt(26307,9989,"ide_methods.bas");if(r)goto S_46279;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_add(_FUNC_PARSERANGE_STRING_V1,func_chr(*_FUNC_PARSERANGE_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9990,"ide_methods.bas");}while(r); +S_46281:; +}else{ +if (-(*_FUNC_PARSERANGE_LONG_READING== 2 )){ +if(qbevent){evnt(26307,9991,"ide_methods.bas");if(r)goto S_46281;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_add(_FUNC_PARSERANGE_STRING_V2,func_chr(*_FUNC_PARSERANGE_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9992,"ide_methods.bas");}while(r); +} +} +S_46284:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||new_error){ +if(qbevent){evnt(26307,9994,"ide_methods.bas");if(r)goto S_46284;} +do{ +return_point[next_return_point++]=152; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PARSEIT; +RETURN_152:; +if(!qbevent)break;evnt(26307,9994,"ide_methods.bas");}while(r); +} +sc_ec_322_end:; +goto sc_5147_end; +} +sc_5147_end:; +do{ +*_FUNC_PARSERANGE_LONG_PREVCHAR=*_FUNC_PARSERANGE_LONG_V; +if(!qbevent)break;evnt(26307,9996,"ide_methods.bas");}while(r); +fornext_continue_5144:; +} +fornext_exit_5144:; +do{ +qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,9999,"ide_methods.bas");}while(r); +S_46291:; +if ((*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED)||new_error){ +if(qbevent){evnt(26307,10000,"ide_methods.bas");if(r)goto S_46291;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10000,"ide_methods.bas");}while(r); +} +S_46294:; +fornext_value5151= 1 ; +fornext_finalvalue5151=_FUNC_PARSERANGE_STRING_TEMP->len; +fornext_step5151= 1 ; +if (fornext_step5151<0) fornext_step_negative5151=1; else fornext_step_negative5151=0; +if (new_error) goto fornext_error5151; +goto fornext_entrylabel5151; +while(1){ +fornext_value5151=fornext_step5151+(*_FUNC_PARSERANGE_LONG_I); +fornext_entrylabel5151: +*_FUNC_PARSERANGE_LONG_I=fornext_value5151; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5151){ +if (fornext_value5151fornext_finalvalue5151) break; +} +fornext_error5151:; +if(qbevent){evnt(26307,10001,"ide_methods.bas");if(r)goto S_46294;} +S_46295:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_PARSERANGE_STRING_TEMP,*_FUNC_PARSERANGE_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(26307,10002,"ide_methods.bas");if(r)goto S_46295;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_add(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string(*_FUNC_PARSERANGE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10002,"ide_methods.bas");}while(r); +} +fornext_continue_5150:; +} +fornext_exit_5150:; +do{ +qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,_FUNC_PARSERANGE_STRING_RETURNVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10004,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,10006,"ide_methods.bas");}while(r); +LABEL_PARSEIT:; +if(qbevent){evnt(26307,10007,"ide_methods.bas");r=0;} +do{ +*_FUNC_PARSERANGE_LONG_V1=qbr(func_val(_FUNC_PARSERANGE_STRING_V1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10008,"ide_methods.bas");}while(r); +do{ +*_FUNC_PARSERANGE_LONG_V2=qbr(func_val(_FUNC_PARSERANGE_STRING_V2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10009,"ide_methods.bas");}while(r); +S_46303:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V2->len> 0 )))||new_error){ +if(qbevent){evnt(26307,10010,"ide_methods.bas");if(r)goto S_46303;} +S_46304:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V1->len> 0 )))||new_error){ +if(qbevent){evnt(26307,10011,"ide_methods.bas");if(r)goto S_46304;} +S_46305:; +if ((-(*_FUNC_PARSERANGE_LONG_V1>*_FUNC_PARSERANGE_LONG_V2))||new_error){ +if(qbevent){evnt(26307,10012,"ide_methods.bas");if(r)goto S_46305;} +do{ +swap_32(&*_FUNC_PARSERANGE_LONG_V1,&*_FUNC_PARSERANGE_LONG_V2); +if(!qbevent)break;evnt(26307,10012,"ide_methods.bas");}while(r); +} +S_46308:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V2>_FUNC_PARSERANGE_STRING_TEMP->len)))||new_error){ +if(qbevent){evnt(26307,10013,"ide_methods.bas");if(r)goto S_46308;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V2-_FUNC_PARSERANGE_STRING_TEMP->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10013,"ide_methods.bas");}while(r); +} +S_46311:; +if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||new_error){ +if(qbevent){evnt(26307,10014,"ide_methods.bas");if(r)goto S_46311;} +do{ +*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ; +if(!qbevent)break;evnt(26307,10014,"ide_methods.bas");}while(r); +do{ +*_FUNC_PARSERANGE_LONG_V1= 1 ; +if(!qbevent)break;evnt(26307,10014,"ide_methods.bas");}while(r); +} +S_46315:; +fornext_value5158=*_FUNC_PARSERANGE_LONG_V1; +fornext_finalvalue5158=*_FUNC_PARSERANGE_LONG_V2; +fornext_step5158= 1 ; +if (fornext_step5158<0) fornext_step_negative5158=1; else fornext_step_negative5158=0; +if (new_error) goto fornext_error5158; +goto fornext_entrylabel5158; +while(1){ +fornext_value5158=fornext_step5158+(*_FUNC_PARSERANGE_LONG_I); +fornext_entrylabel5158: +*_FUNC_PARSERANGE_LONG_I=fornext_value5158; +if (fornext_step_negative5158){ +if (fornext_value5158fornext_finalvalue5158) break; +} +fornext_error5158:; +if(qbevent){evnt(26307,10015,"ide_methods.bas");if(r)goto S_46315;} +do{ +tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!new_error){ +tmp_fileno=*_FUNC_PARSERANGE_LONG_I; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,10016,"ide_methods.bas");}while(r); +fornext_continue_5157:; +} +fornext_exit_5157:; +} +}else{ +S_46320:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V1>_FUNC_PARSERANGE_STRING_TEMP->len)))||new_error){ +if(qbevent){evnt(26307,10020,"ide_methods.bas");if(r)goto S_46320;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V1-_FUNC_PARSERANGE_STRING_TEMP->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10020,"ide_methods.bas");}while(r); +} +S_46323:; +if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||new_error){ +if(qbevent){evnt(26307,10021,"ide_methods.bas");if(r)goto S_46323;} +do{ +*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ; +if(!qbevent)break;evnt(26307,10022,"ide_methods.bas");}while(r); +}else{ +do{ +tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!new_error){ +tmp_fileno=*_FUNC_PARSERANGE_LONG_V1; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,10024,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10027,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10028,"ide_methods.bas");}while(r); +do{ +#include "ret142.txt" +if(!qbevent)break;evnt(26307,10029,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free142.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_PARSERANGE_STRING_PARSERANGE);return _FUNC_PARSERANGE_STRING_PARSERANGE; +} +int32 FUNC_IDECALLSTACKBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data143.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,10035,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,10036,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10037,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,10038,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,10039,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]),0,_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,10040,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,10041,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10042,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_CALLSTACKLENGTH+ 4 ; +if(!qbevent)break;evnt(26307,10047,"ide_methods.bas");}while(r); +S_46341:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26307,10048,"ide_methods.bas");if(r)goto S_46341;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26307,10049,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH= 52 ; +if(!qbevent)break;evnt(26307,10052,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,__STRING_CALLSTACKLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10053,"ide_methods.bas");}while(r); +S_46346:; +do{ +if(qbevent){evnt(26307,10054,"ide_methods.bas");if(r)goto S_46346;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I=func_instr(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,_FUNC_IDECALLSTACKBOX_STRING1_SEP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10055,"ide_methods.bas");}while(r); +S_46348:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_I)||new_error){ +if(qbevent){evnt(26307,10056,"ide_methods.bas");if(r)goto S_46348;} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP2,qbs_left(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10057,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10058,"ide_methods.bas");}while(r); +S_46351:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26307,10059,"ide_methods.bas");if(r)goto S_46351;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10059,"ide_methods.bas");}while(r); +} +}else{ +S_46355:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26307,10061,"ide_methods.bas");if(r)goto S_46355;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10061,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_5161; +if(!qbevent)break;evnt(26307,10062,"ide_methods.bas");}while(r); +} +dl_continue_5161:; +}while(1); +dl_exit_5161:; +S_46361:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,10066,"ide_methods.bas");if(r)goto S_46361;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,10066,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) ),_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH,_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("$DEBUG MODE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10068,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,10070,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,10071,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,10072,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,10073,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,10074,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT- 4 ; +if(!qbevent)break;evnt(26307,10074,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_CALLSTACKLIST); +if(!qbevent)break;evnt(26307,10075,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_CALLSTACKLENGTH; +if(!qbevent)break;evnt(26307,10076,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Call Stack",10)); +if(!qbevent)break;evnt(26307,10077,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,10079,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,10080,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,10081,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Go To Line",11),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("#Close",6)),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("Co#py",5))); +if(!qbevent)break;evnt(26307,10082,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,10083,"ide_methods.bas");}while(r); +S_46379:; +fornext_value5167= 1 ; +fornext_finalvalue5167= 100 ; +fornext_step5167= 1 ; +if (fornext_step5167<0) fornext_step_negative5167=1; else fornext_step_negative5167=0; +if (new_error) goto fornext_error5167; +goto fornext_entrylabel5167; +while(1){ +fornext_value5167=fornext_step5167+(*_FUNC_IDECALLSTACKBOX_LONG_I); +fornext_entrylabel5167: +*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5167; +if (fornext_step_negative5167){ +if (fornext_value5167fornext_finalvalue5167) break; +} +fornext_error5167:; +if(qbevent){evnt(26307,10089,"ide_methods.bas");if(r)goto S_46379;} +do{ +memcpy(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,10089,"ide_methods.bas");}while(r); +fornext_continue_5166:; +} +fornext_exit_5166:; +S_46382:; +do{ +if(qbevent){evnt(26307,10092,"ide_methods.bas");if(r)goto S_46382;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,10095,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,10096,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,10096,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,10096,"ide_methods.bas");}while(r); +S_46387:; +fornext_value5170= 1 ; +fornext_finalvalue5170= 100 ; +fornext_step5170= 1 ; +if (fornext_step5170<0) fornext_step_negative5170=1; else fornext_step_negative5170=0; +if (new_error) goto fornext_error5170; +goto fornext_entrylabel5170; +while(1){ +fornext_value5170=fornext_step5170+(*_FUNC_IDECALLSTACKBOX_LONG_I); +fornext_entrylabel5170: +*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5170; +if (fornext_step_negative5170){ +if (fornext_value5170fornext_finalvalue5170) break; +} +fornext_error5170:; +if(qbevent){evnt(26307,10097,"ide_methods.bas");if(r)goto S_46387;} +S_46388:; +if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,10098,"ide_methods.bas");if(r)goto S_46388;} +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F; +if(!qbevent)break;evnt(26307,10100,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,10101,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,10101,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECALLSTACKBOX_LONG_F); +if(!qbevent)break;evnt(26307,10102,"ide_methods.bas");}while(r); +S_46393:; +if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,10103,"ide_methods.bas");if(r)goto S_46393;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,10103,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,10103,"ide_methods.bas");}while(r); +} +} +fornext_continue_5169:; +} +fornext_exit_5169:; +do{ +*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS=*_FUNC_IDECALLSTACKBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,10106,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,10110,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Most recent sub/function calls in your program:",47),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10110,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,10115,"ide_methods.bas");}while(r); +S_46403:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,10116,"ide_methods.bas");if(r)goto S_46403;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10116,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDECALLSTACKBOX_LONG_CY,*_FUNC_IDECALLSTACKBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,10116,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10116,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,10119,"ide_methods.bas");}while(r); +S_46409:; +do{ +if(qbevent){evnt(26307,10120,"ide_methods.bas");if(r)goto S_46409;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,10121,"ide_methods.bas");}while(r); +S_46411:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,10122,"ide_methods.bas");if(r)goto S_46411;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,10122,"ide_methods.bas");}while(r); +} +S_46414:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,10123,"ide_methods.bas");if(r)goto S_46414;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,10123,"ide_methods.bas");}while(r); +} +S_46417:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,10124,"ide_methods.bas");if(r)goto S_46417;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,10124,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,10124,"ide_methods.bas");}while(r); +} +S_46421:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,10125,"ide_methods.bas");if(r)goto S_46421;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,10125,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,10125,"ide_methods.bas");}while(r); +} +S_46425:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,10126,"ide_methods.bas");if(r)goto S_46425;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,10126,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,10127,"ide_methods.bas");}while(r); +S_46429:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_ALT!=*_FUNC_IDECALLSTACKBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,10127,"ide_methods.bas");if(r)goto S_46429;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,10127,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_OLDALT=*_FUNC_IDECALLSTACKBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,10128,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,10129,"ide_methods.bas");}while(r); +S_46434:; +dl_continue_5171:; +}while((!(*_FUNC_IDECALLSTACKBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5171:; +if(qbevent){evnt(26307,10130,"ide_methods.bas");if(r)goto S_46434;} +S_46435:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,10131,"ide_methods.bas");if(r)goto S_46435;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,10131,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,10131,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10133,"ide_methods.bas");}while(r); +S_46441:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,10134,"ide_methods.bas");if(r)goto S_46441;} +S_46442:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,10135,"ide_methods.bas");if(r)goto S_46442;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10136,"ide_methods.bas");}while(r); +S_46444:; +if (((-(*_FUNC_IDECALLSTACKBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,10137,"ide_methods.bas");if(r)goto S_46444;} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECALLSTACKBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10137,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10140,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,10140,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10140,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,10144,"ide_methods.bas");}while(r); +S_46453:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,10145,"ide_methods.bas");if(r)goto S_46453;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10145,"ide_methods.bas");}while(r); +} +S_46456:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,10146,"ide_methods.bas");if(r)goto S_46456;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,10146,"ide_methods.bas");}while(r); +} +S_46459:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,10147,"ide_methods.bas");if(r)goto S_46459;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,10147,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10147,"ide_methods.bas");}while(r); +} +S_46463:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,10148,"ide_methods.bas");if(r)goto S_46463;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,10148,"ide_methods.bas");}while(r); +} +S_46466:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS>*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,10149,"ide_methods.bas");if(r)goto S_46466;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,10149,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,10150,"ide_methods.bas");}while(r); +S_46470:; +fornext_value5174= 1 ; +fornext_finalvalue5174= 100 ; +fornext_step5174= 1 ; +if (fornext_step5174<0) fornext_step_negative5174=1; else fornext_step_negative5174=0; +if (new_error) goto fornext_error5174; +goto fornext_entrylabel5174; +while(1){ +fornext_value5174=fornext_step5174+(*_FUNC_IDECALLSTACKBOX_LONG_I); +fornext_entrylabel5174: +*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5174; +if (fornext_step_negative5174){ +if (fornext_value5174fornext_finalvalue5174) break; +} +fornext_error5174:; +if(qbevent){evnt(26307,10151,"ide_methods.bas");if(r)goto S_46470;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,10152,"ide_methods.bas");}while(r); +S_46472:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,10153,"ide_methods.bas");if(r)goto S_46472;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F; +if(!qbevent)break;evnt(26307,10154,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECALLSTACKBOX_LONG_FOCUS,_FUNC_IDECALLSTACKBOX_LONG_F,_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN,_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECALLSTACKBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10155,"ide_methods.bas");}while(r); +} +fornext_continue_5173:; +} +fornext_exit_5173:; +S_46477:; +if ((*__LONG_MCLICK&(-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 )))||new_error){ +if(qbevent){evnt(26307,10160,"ide_methods.bas");if(r)goto S_46477;} +S_46478:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDECALLSTACKBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ +if(qbevent){evnt(26307,10161,"ide_methods.bas");if(r)goto S_46478;} +do{ +goto LABEL_SETIDECY; +if(!qbevent)break;evnt(26307,10162,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,10164,"ide_methods.bas");}while(r); +S_46482:; +if ((-(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26307,10165,"ide_methods.bas");if(r)goto S_46482;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10165,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5168; +if(!qbevent)break;evnt(26307,10166,"ide_methods.bas");}while(r); +} +S_46487:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26307,10169,"ide_methods.bas");if(r)goto S_46487;} +LABEL_SETIDECY:; +if(qbevent){evnt(26307,10170,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,10171,"ide_methods.bas");}while(r); +S_46489:; +if (((-(*_FUNC_IDECALLSTACKBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_Y<=*__LONG_CALLSTACKLENGTH)))||new_error){ +if(qbevent){evnt(26307,10172,"ide_methods.bas");if(r)goto S_46489;} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10173,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEGOTOBOX_LASTLINENUM=qbr(func_val(func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func__instrrev(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10174,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; +if(!qbevent)break;evnt(26307,10175,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,10176,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,10177,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,10178,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,10179,"ide_methods.bas");}while(r); +} +} +S_46499:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,10183,"ide_methods.bas");if(r)goto S_46499;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,10184,"ide_methods.bas");}while(r); +} +S_46502:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,10187,"ide_methods.bas");if(r)goto S_46502;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,10188,"ide_methods.bas");}while(r); +} +S_46505:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))|(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,10191,"ide_methods.bas");if(r)goto S_46505;} +do{ +sub__clipboard(FUNC_STRREPLACE(__STRING_CALLSTACKLIST,_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10192,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,10196,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,10197,"ide_methods.bas");}while(r); +dl_continue_5168:; +}while(1); +dl_exit_5168:; +do{ +*_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX= 0 ; +if(!qbevent)break;evnt(26307,10200,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free143.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX; +} void SUB_IDEBOX(int32*_SUB_IDEBOX_LONG_X,int32*_SUB_IDEBOX_LONG_Y,int32*_SUB_IDEBOX_LONG_W,int32*_SUB_IDEBOX_LONG_H){ qbs *tqbs; ptrszint tmp_long; @@ -141944,75 +161070,48 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data131.txt" +#include "data144.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbg_sub_locate(*_SUB_IDEBOX_LONG_Y,*_SUB_IDEBOX_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5707,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 218 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 191 ))); -if (new_error) goto skip4500; -makefit(tqbs); -qbs_print(tqbs,0); -skip4500: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y,qbs_add(qbs_add(func_chr( 218 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 191 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5707,"ide_methods.bas");}while(r); -S_39994:; -fornext_value4502=*_SUB_IDEBOX_LONG_Y+ 1 ; -fornext_finalvalue4502=*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 2 ; -fornext_step4502= 1 ; -if (fornext_step4502<0) fornext_step_negative4502=1; else fornext_step_negative4502=0; -if (new_error) goto fornext_error4502; -goto fornext_entrylabel4502; +if(!qbevent)break;evnt(26307,10205,"ide_methods.bas");}while(r); +S_46513:; +fornext_value5176=*_SUB_IDEBOX_LONG_Y+ 1 ; +fornext_finalvalue5176=*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 2 ; +fornext_step5176= 1 ; +if (fornext_step5176<0) fornext_step_negative5176=1; else fornext_step_negative5176=0; +if (new_error) goto fornext_error5176; +goto fornext_entrylabel5176; while(1){ -fornext_value4502=fornext_step4502+(*_SUB_IDEBOX_LONG_Y2); -fornext_entrylabel4502: -*_SUB_IDEBOX_LONG_Y2=fornext_value4502; -if (fornext_step_negative4502){ -if (fornext_value4502fornext_finalvalue4502) break; +if (fornext_value5176>fornext_finalvalue5176) break; } -fornext_error4502:; -if(qbevent){evnt(25066,5708,"ide_methods.bas");if(r)goto S_39994;} +fornext_error5176:; +if(qbevent){evnt(26307,10206,"ide_methods.bas");if(r)goto S_46513;} do{ -qbg_sub_locate(*_SUB_IDEBOX_LONG_Y2,*_SUB_IDEBOX_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5709,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 179 ),func_space(*_SUB_IDEBOX_LONG_W- 2 )),func_chr( 179 ))); -if (new_error) goto skip4503; -makefit(tqbs); -qbs_print(tqbs,0); -skip4503: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y2,qbs_add(qbs_add(func_chr( 179 ),func_space(*_SUB_IDEBOX_LONG_W- 2 )),func_chr( 179 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5709,"ide_methods.bas");}while(r); -fornext_continue_4501:; +if(!qbevent)break;evnt(26307,10207,"ide_methods.bas");}while(r); +fornext_continue_5175:; } -fornext_exit_4501:; +fornext_exit_5175:; do{ -qbg_sub_locate(*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 1 ,*_SUB_IDEBOX_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5711,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 192 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 217 ))); -if (new_error) goto skip4504; -makefit(tqbs); -qbs_print(tqbs,0); -skip4504: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 1 ,qbs_add(qbs_add(func_chr( 192 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 217 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5711,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10209,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free131.txt" +#include "free144.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -142023,182 +161122,107 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data132.txt" +#include "data145.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbg_sub_locate(*_SUB_IDEBOXSHADOW_LONG_Y,*_SUB_IDEBOXSHADOW_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5716,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 218 ),func_string(*_SUB_IDEBOXSHADOW_LONG_W- 2 , 196 )),func_chr( 191 ))); -if (new_error) goto skip4505; -makefit(tqbs); -qbs_print(tqbs,0); -skip4505: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5716,"ide_methods.bas");}while(r); -S_40002:; -fornext_value4507=*_SUB_IDEBOXSHADOW_LONG_Y+ 1 ; -fornext_finalvalue4507=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 2 ; -fornext_step4507= 1 ; -if (fornext_step4507<0) fornext_step_negative4507=1; else fornext_step_negative4507=0; -if (new_error) goto fornext_error4507; -goto fornext_entrylabel4507; -while(1){ -fornext_value4507=fornext_step4507+(*_SUB_IDEBOXSHADOW_LONG_Y2); -fornext_entrylabel4507: -*_SUB_IDEBOXSHADOW_LONG_Y2=fornext_value4507; -if (fornext_step_negative4507){ -if (fornext_value4507fornext_finalvalue4507) break; -} -fornext_error4507:; -if(qbevent){evnt(25066,5717,"ide_methods.bas");if(r)goto S_40002;} -do{ -qbg_sub_locate(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5718,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 179 ),func_space(*_SUB_IDEBOXSHADOW_LONG_W- 2 )),func_chr( 179 ))); -if (new_error) goto skip4508; -makefit(tqbs); -qbs_print(tqbs,0); -skip4508: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5718,"ide_methods.bas");}while(r); -fornext_continue_4506:; -} -fornext_exit_4506:; -do{ -qbg_sub_locate(*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 1 ,*_SUB_IDEBOXSHADOW_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5720,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(func_chr( 192 ),func_string(*_SUB_IDEBOXSHADOW_LONG_W- 2 , 196 )),func_chr( 217 ))); -if (new_error) goto skip4509; -makefit(tqbs); -qbs_print(tqbs,0); -skip4509: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5720,"ide_methods.bas");}while(r); +SUB_IDEBOX(_SUB_IDEBOXSHADOW_LONG_X,_SUB_IDEBOXSHADOW_LONG_Y,_SUB_IDEBOXSHADOW_LONG_W,_SUB_IDEBOXSHADOW_LONG_H); +if(!qbevent)break;evnt(26307,10214,"ide_methods.bas");}while(r); do{ qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,5722,"ide_methods.bas");}while(r); -S_40009:; -fornext_value4511=*_SUB_IDEBOXSHADOW_LONG_Y+ 1 ; -fornext_finalvalue4511=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 1 ; -fornext_step4511= 1 ; -if (fornext_step4511<0) fornext_step_negative4511=1; else fornext_step_negative4511=0; -if (new_error) goto fornext_error4511; -goto fornext_entrylabel4511; +if(!qbevent)break;evnt(26307,10217,"ide_methods.bas");}while(r); +S_46519:; +fornext_value5178=*_SUB_IDEBOXSHADOW_LONG_Y+ 1 ; +fornext_finalvalue5178=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 1 ; +fornext_step5178= 1 ; +if (fornext_step5178<0) fornext_step_negative5178=1; else fornext_step_negative5178=0; +if (new_error) goto fornext_error5178; +goto fornext_entrylabel5178; while(1){ -fornext_value4511=fornext_step4511+(*_SUB_IDEBOXSHADOW_LONG_Y2); -fornext_entrylabel4511: -*_SUB_IDEBOXSHADOW_LONG_Y2=fornext_value4511; -if (fornext_step_negative4511){ -if (fornext_value4511fornext_finalvalue4511) break; +if (fornext_value5178>fornext_finalvalue5178) break; } -fornext_error4511:; -if(qbevent){evnt(25066,5723,"ide_methods.bas");if(r)goto S_40009;} -S_40010:; -fornext_value4513=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W; -fornext_finalvalue4513=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; -fornext_step4513= 1 ; -if (fornext_step4513<0) fornext_step_negative4513=1; else fornext_step_negative4513=0; -if (new_error) goto fornext_error4513; -goto fornext_entrylabel4513; +fornext_error5178:; +if(qbevent){evnt(26307,10218,"ide_methods.bas");if(r)goto S_46519;} +S_46520:; +fornext_value5180=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W; +fornext_finalvalue5180=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; +fornext_step5180= 1 ; +if (fornext_step5180<0) fornext_step_negative5180=1; else fornext_step_negative5180=0; +if (new_error) goto fornext_error5180; +goto fornext_entrylabel5180; while(1){ -fornext_value4513=fornext_step4513+(*_SUB_IDEBOXSHADOW_LONG_X2); -fornext_entrylabel4513: -*_SUB_IDEBOXSHADOW_LONG_X2=fornext_value4513; -if (fornext_step_negative4513){ -if (fornext_value4513fornext_finalvalue4513) break; +if (fornext_value5180>fornext_finalvalue5180) break; } -fornext_error4513:; -if(qbevent){evnt(25066,5724,"ide_methods.bas");if(r)goto S_40010;} -S_40011:; -if (((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))&(-(*_SUB_IDEBOXSHADOW_LONG_Y2<=*__LONG_IDEWY)))||new_error){ -if(qbevent){evnt(25066,5725,"ide_methods.bas");if(r)goto S_40011;} +fornext_error5180:; +if(qbevent){evnt(26307,10219,"ide_methods.bas");if(r)goto S_46520;} +S_46521:; +if (((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))&(-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ +if(qbevent){evnt(26307,10220,"ide_methods.bas");if(r)goto S_46521;} do{ -qbg_sub_locate(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5726,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0))); -if (new_error) goto skip4514; -makefit(tqbs); -qbs_print(tqbs,0); -skip4514: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEBOXSHADOW_LONG_X2,*_SUB_IDEBOXSHADOW_LONG_Y2,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5726,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10221,"ide_methods.bas");}while(r); } -fornext_continue_4512:; +fornext_continue_5179:; } -fornext_exit_4512:; -fornext_continue_4510:; +fornext_exit_5179:; +fornext_continue_5177:; } -fornext_exit_4510:; +fornext_exit_5177:; do{ *_SUB_IDEBOXSHADOW_LONG_Y2=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H; -if(!qbevent)break;evnt(25066,5731,"ide_methods.bas");}while(r); -S_40018:; -if ((-(*_SUB_IDEBOXSHADOW_LONG_Y2<=*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(25066,5732,"ide_methods.bas");if(r)goto S_40018;} -S_40019:; -fornext_value4516=*_SUB_IDEBOXSHADOW_LONG_X+ 2 ; -fornext_finalvalue4516=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; -fornext_step4516= 1 ; -if (fornext_step4516<0) fornext_step_negative4516=1; else fornext_step_negative4516=0; -if (new_error) goto fornext_error4516; -goto fornext_entrylabel4516; +if(!qbevent)break;evnt(26307,10226,"ide_methods.bas");}while(r); +S_46527:; +if ((-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))||new_error){ +if(qbevent){evnt(26307,10227,"ide_methods.bas");if(r)goto S_46527;} +S_46528:; +fornext_value5182=*_SUB_IDEBOXSHADOW_LONG_X+ 2 ; +fornext_finalvalue5182=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; +fornext_step5182= 1 ; +if (fornext_step5182<0) fornext_step_negative5182=1; else fornext_step_negative5182=0; +if (new_error) goto fornext_error5182; +goto fornext_entrylabel5182; while(1){ -fornext_value4516=fornext_step4516+(*_SUB_IDEBOXSHADOW_LONG_X2); -fornext_entrylabel4516: -*_SUB_IDEBOXSHADOW_LONG_X2=fornext_value4516; -if (fornext_step_negative4516){ -if (fornext_value4516fornext_finalvalue4516) break; +if (fornext_value5182>fornext_finalvalue5182) break; } -fornext_error4516:; -if(qbevent){evnt(25066,5733,"ide_methods.bas");if(r)goto S_40019;} -S_40020:; +fornext_error5182:; +if(qbevent){evnt(26307,10228,"ide_methods.bas");if(r)goto S_46528;} +S_46529:; if ((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,5734,"ide_methods.bas");if(r)goto S_40020;} +if(qbevent){evnt(26307,10229,"ide_methods.bas");if(r)goto S_46529;} do{ -qbg_sub_locate(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,5735,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0))); -if (new_error) goto skip4517; -makefit(tqbs); -qbs_print(tqbs,0); -skip4517: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEBOXSHADOW_LONG_X2,*_SUB_IDEBOXSHADOW_LONG_Y2,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5735,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10230,"ide_methods.bas");}while(r); } -fornext_continue_4515:; +fornext_continue_5181:; } -fornext_exit_4515:; +fornext_exit_5181:; } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free132.txt" +#include "free145.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -142209,7 +161233,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data133.txt" +#include "data146.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -142239,175 +161263,175 @@ while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(25066,5744,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10239,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,5747,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10242,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,5748,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10243,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5749,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10244,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,5750,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10245,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,5751,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10246,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDECHANGE_ARRAY_UDT_O[4]= 1 ; _FUNC_IDECHANGE_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4]+1; _FUNC_IDECHANGE_ARRAY_UDT_O[6]=1; if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&4){ -_FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHANGE_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0]),0,_FUNC_IDECHANGE_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHANGE_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0]),0,_FUNC_IDECHANGE_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHANGE_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDECHANGE_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHANGE_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDECHANGE_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHANGE_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,5752,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10247,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,5753,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10248,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5754,"ide_methods.bas");}while(r); -S_40035:; +if(!qbevent)break;evnt(26307,10249,"ide_methods.bas");}while(r); +S_46543:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,5760,"ide_methods.bas");if(r)goto S_40035;} -S_40036:; +if(qbevent){evnt(26307,10255,"ide_methods.bas");if(r)goto S_46543;} +S_46544:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,5761,"ide_methods.bas");if(r)goto S_40036;} +if(qbevent){evnt(26307,10256,"ide_methods.bas");if(r)goto S_46544;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10257,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10258,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,5764,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10259,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,5764,"ide_methods.bas");}while(r); -S_40041:; +if(!qbevent)break;evnt(26307,10259,"ide_methods.bas");}while(r); +S_46549:; if ((-(*_FUNC_IDECHANGE_LONG_SX2<*_FUNC_IDECHANGE_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,5765,"ide_methods.bas");if(r)goto S_40041;} +if(qbevent){evnt(26307,10260,"ide_methods.bas");if(r)goto S_46549;} do{ swap_32(&*_FUNC_IDECHANGE_LONG_SX1,&*_FUNC_IDECHANGE_LONG_SX2); -if(!qbevent)break;evnt(25066,5765,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10260,"ide_methods.bas");}while(r); } -S_40044:; -fornext_value4519=*_FUNC_IDECHANGE_LONG_SX1; -fornext_finalvalue4519=*_FUNC_IDECHANGE_LONG_SX2- 1 ; -fornext_step4519= 1 ; -if (fornext_step4519<0) fornext_step_negative4519=1; else fornext_step_negative4519=0; -if (new_error) goto fornext_error4519; -goto fornext_entrylabel4519; +S_46552:; +fornext_value5184=*_FUNC_IDECHANGE_LONG_SX1; +fornext_finalvalue5184=*_FUNC_IDECHANGE_LONG_SX2- 1 ; +fornext_step5184= 1 ; +if (fornext_step5184<0) fornext_step_negative5184=1; else fornext_step_negative5184=0; +if (new_error) goto fornext_error5184; +goto fornext_entrylabel5184; while(1){ -fornext_value4519=fornext_step4519+(*_FUNC_IDECHANGE_LONG_X); -fornext_entrylabel4519: -*_FUNC_IDECHANGE_LONG_X=fornext_value4519; -if (fornext_step_negative4519){ -if (fornext_value4519fornext_finalvalue4519) break; +if (fornext_value5184>fornext_finalvalue5184) break; } -fornext_error4519:; -if(qbevent){evnt(25066,5766,"ide_methods.bas");if(r)goto S_40044;} -S_40045:; +fornext_error5184:; +if(qbevent){evnt(26307,10261,"ide_methods.bas");if(r)goto S_46552;} +S_46553:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X<=_FUNC_IDECHANGE_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,5767,"ide_methods.bas");if(r)goto S_40045;} +if(qbevent){evnt(26307,10262,"ide_methods.bas");if(r)goto S_46553;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,func_mid(_FUNC_IDECHANGE_STRING_A,*_FUNC_IDECHANGE_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10262,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10262,"ide_methods.bas");}while(r); } -fornext_continue_4518:; +fornext_continue_5183:; } -fornext_exit_4518:; +fornext_exit_5183:; } } -S_40053:; +S_46561:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5771,"ide_methods.bas");if(r)goto S_40053;} +if(qbevent){evnt(26307,10266,"ide_methods.bas");if(r)goto S_46561;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A2,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5772,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10267,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_LN= 0 ; -if(!qbevent)break;evnt(25066,5776,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10271,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,5777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10272,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_FUNC_IDECHANGE_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10273,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_A,func_space(func_lof(*_FUNC_IDECHANGE_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10273,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDECHANGE_LONG_FH,NULL,_FUNC_IDECHANGE_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10273,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDECHANGE_LONG_FH,1); -if(!qbevent)break;evnt(25066,5779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10274,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_A,qbs_right(_FUNC_IDECHANGE_STRING_A,_FUNC_IDECHANGE_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5780,"ide_methods.bas");}while(r); -S_40063:; +if(!qbevent)break;evnt(26307,10275,"ide_methods.bas");}while(r); +S_46571:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDECHANGE_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,5781,"ide_methods.bas");if(r)goto S_40063;} +if(qbevent){evnt(26307,10276,"ide_methods.bas");if(r)goto S_46571;} do{ *_FUNC_IDECHANGE_LONG_AI=func_instr(NULL,_FUNC_IDECHANGE_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5782,"ide_methods.bas");}while(r); -S_40065:; +if(!qbevent)break;evnt(26307,10277,"ide_methods.bas");}while(r); +S_46573:; if ((*_FUNC_IDECHANGE_LONG_AI)||new_error){ -if(qbevent){evnt(25066,5783,"ide_methods.bas");if(r)goto S_40065;} +if(qbevent){evnt(26307,10278,"ide_methods.bas");if(r)goto S_46573;} do{ qbs_set(_FUNC_IDECHANGE_STRING_F,qbs_left(_FUNC_IDECHANGE_STRING_A,*_FUNC_IDECHANGE_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5784,"ide_methods.bas");}while(r); -S_40067:; +if(!qbevent)break;evnt(26307,10279,"ide_methods.bas");}while(r); +S_46575:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_AI==(_FUNC_IDECHANGE_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(25066,5784,"ide_methods.bas");if(r)goto S_40067;} +if(qbevent){evnt(26307,10279,"ide_methods.bas");if(r)goto S_46575;} do{ qbs_set(_FUNC_IDECHANGE_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5784,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10279,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDECHANGE_STRING_A,qbs_right(_FUNC_IDECHANGE_STRING_A,_FUNC_IDECHANGE_STRING_A->len-*_FUNC_IDECHANGE_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5784,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10279,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_LN=*_FUNC_IDECHANGE_LONG_LN+ 1 ; -if(!qbevent)break;evnt(25066,5785,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10280,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&2){ @@ -142452,1244 +161476,1189 @@ while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp } } } -if(!qbevent)break;evnt(25066,5786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10281,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDECHANGE_LONG_LN)-_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long])),_FUNC_IDECHANGE_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5787,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10282,"ide_methods.bas");}while(r); } -dl_continue_4523:; +dl_continue_5188:; } -dl_exit_4523:; +dl_exit_5188:; do{ *_FUNC_IDECHANGE_LONG_LN= 0 ; -if(!qbevent)break;evnt(25066,5790,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10285,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,5792,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10287,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) ),&(pass4526= 60 ),&(pass4527= 12 ),qbs_new_txt_len("Change",6)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) ),&(pass5191= 60 ),&(pass5192= 14 ),qbs_new_txt_len("Change",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10288,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,5794,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10289,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,5795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10290,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,5796,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,10291,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,5797,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,10292,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); -if(!qbevent)break;evnt(25066,5798,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); +if(!qbevent)break;evnt(26307,10293,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHANGE_STRING_A2); -if(!qbevent)break;evnt(25066,5799,"ide_methods.bas");}while(r); -S_40086:; +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHANGE_STRING_A2); +if(!qbevent)break;evnt(26307,10294,"ide_methods.bas");}while(r); +S_46594:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHANGE_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,5800,"ide_methods.bas");if(r)goto S_40086;} +if(qbevent){evnt(26307,10295,"ide_methods.bas");if(r)goto S_46594;} do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,5801,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,10296,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,5802,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,10297,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECHANGE_STRING_A2->len; -if(!qbevent)break;evnt(25066,5804,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHANGE_STRING_A2->len; +if(!qbevent)break;evnt(26307,10299,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,5806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10301,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,5807,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,10302,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,5808,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,10303,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Change #To",10)); -if(!qbevent)break;evnt(25066,5809,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Change #To",10)); +if(!qbevent)break;evnt(26307,10304,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(__STRING_IDECHANGETO); -if(!qbevent)break;evnt(25066,5810,"ide_methods.bas");}while(r); -S_40096:; +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_IDECHANGETO); +if(!qbevent)break;evnt(26307,10305,"ide_methods.bas");}while(r); +S_46604:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDECHANGETO->len> 0 )))||new_error){ -if(qbevent){evnt(25066,5811,"ide_methods.bas");if(r)goto S_40096;} +if(qbevent){evnt(26307,10306,"ide_methods.bas");if(r)goto S_46604;} do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,5812,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,10307,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,5813,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,10308,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+77))=__STRING_IDECHANGETO->len; -if(!qbevent)break;evnt(25066,5815,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=__STRING_IDECHANGETO->len; +if(!qbevent)break;evnt(26307,10310,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,5817,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10312,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,5818,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10313,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+24))= 8 ; -if(!qbevent)break;evnt(25066,5819,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26307,10314,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); -if(!qbevent)break;evnt(25066,5820,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); +if(!qbevent)break;evnt(26307,10315,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))=*__INTEGER_IDEFINDCASESENS; -if(!qbevent)break;evnt(25066,5821,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDCASESENS; +if(!qbevent)break;evnt(26307,10316,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,5822,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10317,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,5823,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10318,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+24))= 9 ; -if(!qbevent)break;evnt(25066,5824,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26307,10319,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); -if(!qbevent)break;evnt(25066,5825,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); +if(!qbevent)break;evnt(26307,10320,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))=*__INTEGER_IDEFINDWHOLEWORD; -if(!qbevent)break;evnt(25066,5826,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDWHOLEWORD; +if(!qbevent)break;evnt(26307,10321,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,5827,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10322,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,5828,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10323,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+24))= 10 ; -if(!qbevent)break;evnt(25066,5829,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 10 ; +if(!qbevent)break;evnt(26307,10324,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); -if(!qbevent)break;evnt(25066,5830,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); +if(!qbevent)break;evnt(26307,10325,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64))=*__INTEGER_IDEFINDBACKWARDS; -if(!qbevent)break;evnt(25066,5831,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDBACKWARDS; +if(!qbevent)break;evnt(26307,10326,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,5833,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10328,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,5834,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10329,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+24))= 12 ; -if(!qbevent)break;evnt(25066,5835,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26307,10330,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Cancel",6))); -if(!qbevent)break;evnt(25066,5836,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); +if(!qbevent)break;evnt(26307,10331,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,5837,"ide_methods.bas");}while(r); -S_40121:; -fornext_value4533= 1 ; -fornext_finalvalue4533= 100 ; -fornext_step4533= 1 ; -if (fornext_step4533<0) fornext_step_negative4533=1; else fornext_step_negative4533=0; -if (new_error) goto fornext_error4533; -goto fornext_entrylabel4533; +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOCOMMENTS; +if(!qbevent)break;evnt(26307,10332,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,10334,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10335,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26307,10336,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26307,10337,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); +if(!qbevent)break;evnt(26307,10338,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYCOMMENTS; +if(!qbevent)break;evnt(26307,10339,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,10341,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10342,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 12 ; +if(!qbevent)break;evnt(26307,10343,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Ignore ",7),func_chr( 34 )),qbs_new_txt_len("#strings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26307,10344,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOSTRINGS; +if(!qbevent)break;evnt(26307,10345,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,10347,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,10348,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26307,10349,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 12 ; +if(!qbevent)break;evnt(26307,10350,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Look only in ",13),func_chr( 34 )),qbs_new_txt_len("st#rings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26307,10351,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYSTRINGS; +if(!qbevent)break;evnt(26307,10352,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,10354,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_BUTTONSID=*_FUNC_IDECHANGE_LONG_I; +if(!qbevent)break;evnt(26307,10355,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,10356,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 14 ; +if(!qbevent)break;evnt(26307,10357,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Cancel",6))); +if(!qbevent)break;evnt(26307,10358,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,10359,"ide_methods.bas");}while(r); +S_46652:; +fornext_value5198= 1 ; +fornext_finalvalue5198= 100 ; +fornext_step5198= 1 ; +if (fornext_step5198<0) fornext_step_negative5198=1; else fornext_step_negative5198=0; +if (new_error) goto fornext_error5198; +goto fornext_entrylabel5198; while(1){ -fornext_value4533=fornext_step4533+(*_FUNC_IDECHANGE_LONG_I); -fornext_entrylabel4533: -*_FUNC_IDECHANGE_LONG_I=fornext_value4533; -if (fornext_step_negative4533){ -if (fornext_value4533fornext_finalvalue4533) break; +if (fornext_value5198>fornext_finalvalue5198) break; } -fornext_error4533:; -if(qbevent){evnt(25066,5841,"ide_methods.bas");if(r)goto S_40121;} +fornext_error5198:; +if(qbevent){evnt(26307,10363,"ide_methods.bas");if(r)goto S_46652;} do{ -memcpy(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDECHANGE_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,5841,"ide_methods.bas");}while(r); -fornext_continue_4532:; +memcpy(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHANGE_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,10363,"ide_methods.bas");}while(r); +fornext_continue_5197:; } -fornext_exit_4532:; -S_40124:; +fornext_exit_5197:; +S_46655:; do{ -if(qbevent){evnt(25066,5844,"ide_methods.bas");if(r)goto S_40124;} +if(qbevent){evnt(26307,10366,"ide_methods.bas");if(r)goto S_46655;} do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,5848,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,5849,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,5849,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,5849,"ide_methods.bas");}while(r); -S_40129:; -fornext_value4536= 1 ; -fornext_finalvalue4536= 100 ; -fornext_step4536= 1 ; -if (fornext_step4536<0) fornext_step_negative4536=1; else fornext_step_negative4536=0; -if (new_error) goto fornext_error4536; -goto fornext_entrylabel4536; -while(1){ -fornext_value4536=fornext_step4536+(*_FUNC_IDECHANGE_LONG_I); -fornext_entrylabel4536: -*_FUNC_IDECHANGE_LONG_I=fornext_value4536; -if (fornext_step_negative4536){ -if (fornext_value4536fornext_finalvalue4536) break; -} -fornext_error4536:; -if(qbevent){evnt(25066,5850,"ide_methods.bas");if(r)goto S_40129;} -S_40130:; -if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,5852,"ide_methods.bas");if(r)goto S_40130;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; -if(!qbevent)break;evnt(25066,5855,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,5857,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,5857,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECHANGE_LONG_F); -if(!qbevent)break;evnt(25066,5859,"ide_methods.bas");}while(r); -S_40135:; -if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,5861,"ide_methods.bas");if(r)goto S_40135;} -do{ -*_FUNC_IDECHANGE_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,5861,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,5861,"ide_methods.bas");}while(r); -} -} -fornext_continue_4535:; -} -fornext_exit_4535:; +return_point[next_return_point++]=153; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DISPLAYDIALOG; +RETURN_153:; +if(!qbevent)break;evnt(26307,10369,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_LASTFOCUS=*_FUNC_IDECHANGE_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,5865,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10370,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,5872,"ide_methods.bas");}while(r); -S_40143:; +if(!qbevent)break;evnt(26307,10377,"ide_methods.bas");}while(r); +S_46659:; if ((*_FUNC_IDECHANGE_LONG_CX)||new_error){ -if(qbevent){evnt(25066,5873,"ide_methods.bas");if(r)goto S_40143;} +if(qbevent){evnt(26307,10378,"ide_methods.bas");if(r)goto S_46659;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10378,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDECHANGE_LONG_CY,*_FUNC_IDECHANGE_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,5873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10378,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10378,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,5876,"ide_methods.bas");}while(r); -S_40149:; +if(!qbevent)break;evnt(26307,10381,"ide_methods.bas");}while(r); +S_46665:; do{ -if(qbevent){evnt(25066,5877,"ide_methods.bas");if(r)goto S_40149;} +if(qbevent){evnt(26307,10382,"ide_methods.bas");if(r)goto S_46665;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,5878,"ide_methods.bas");}while(r); -S_40151:; +if(!qbevent)break;evnt(26307,10383,"ide_methods.bas");}while(r); +S_46667:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,5879,"ide_methods.bas");if(r)goto S_40151;} +if(qbevent){evnt(26307,10384,"ide_methods.bas");if(r)goto S_46667;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,5879,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10384,"ide_methods.bas");}while(r); } -S_40154:; +S_46670:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,5880,"ide_methods.bas");if(r)goto S_40154;} +if(qbevent){evnt(26307,10385,"ide_methods.bas");if(r)goto S_46670;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,5880,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10385,"ide_methods.bas");}while(r); } -S_40157:; +S_46673:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,5881,"ide_methods.bas");if(r)goto S_40157;} +if(qbevent){evnt(26307,10386,"ide_methods.bas");if(r)goto S_46673;} do{ *_FUNC_IDECHANGE_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,5881,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10386,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,5881,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10386,"ide_methods.bas");}while(r); } -S_40161:; +S_46677:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,5882,"ide_methods.bas");if(r)goto S_40161;} +if(qbevent){evnt(26307,10387,"ide_methods.bas");if(r)goto S_46677;} do{ *_FUNC_IDECHANGE_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,5882,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10387,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,5882,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10387,"ide_methods.bas");}while(r); } -S_40165:; +S_46681:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,5883,"ide_methods.bas");if(r)goto S_40165;} +if(qbevent){evnt(26307,10388,"ide_methods.bas");if(r)goto S_46681;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,5883,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10388,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,5884,"ide_methods.bas");}while(r); -S_40169:; +if(!qbevent)break;evnt(26307,10389,"ide_methods.bas");}while(r); +S_46685:; if ((-(*_FUNC_IDECHANGE_LONG_ALT!=*_FUNC_IDECHANGE_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,5884,"ide_methods.bas");if(r)goto S_40169;} +if(qbevent){evnt(26307,10389,"ide_methods.bas");if(r)goto S_46685;} do{ *_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,5884,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10389,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_OLDALT=*_FUNC_IDECHANGE_LONG_ALT; -if(!qbevent)break;evnt(25066,5885,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10390,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,5886,"ide_methods.bas");}while(r); -S_40174:; -dl_continue_4537:; +if(!qbevent)break;evnt(26307,10391,"ide_methods.bas");}while(r); +S_46690:; +dl_continue_5200:; }while((!(*_FUNC_IDECHANGE_LONG_CHANGE))&&(!new_error)); -dl_exit_4537:; -if(qbevent){evnt(25066,5887,"ide_methods.bas");if(r)goto S_40174;} -S_40175:; +dl_exit_5200:; +if(qbevent){evnt(26307,10392,"ide_methods.bas");if(r)goto S_46690;} +S_46691:; if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,5888,"ide_methods.bas");if(r)goto S_40175;} +if(qbevent){evnt(26307,10393,"ide_methods.bas");if(r)goto S_46691;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,5888,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10393,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,5888,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10393,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5890,"ide_methods.bas");}while(r); -S_40181:; +if(!qbevent)break;evnt(26307,10395,"ide_methods.bas");}while(r); +S_46697:; if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,5891,"ide_methods.bas");if(r)goto S_40181;} -S_40182:; +if(qbevent){evnt(26307,10396,"ide_methods.bas");if(r)goto S_46697;} +S_46698:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,5892,"ide_methods.bas");if(r)goto S_40182;} +if(qbevent){evnt(26307,10397,"ide_methods.bas");if(r)goto S_46698;} do{ *_FUNC_IDECHANGE_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5893,"ide_methods.bas");}while(r); -S_40184:; +if(!qbevent)break;evnt(26307,10398,"ide_methods.bas");}while(r); +S_46700:; if (((-(*_FUNC_IDECHANGE_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,5894,"ide_methods.bas");if(r)goto S_40184;} +if(qbevent){evnt(26307,10399,"ide_methods.bas");if(r)goto S_46700;} do{ qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGE_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5894,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10399,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10402,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,5897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10402,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,5897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10402,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,5901,"ide_methods.bas");}while(r); -S_40193:; +if(!qbevent)break;evnt(26307,10406,"ide_methods.bas");}while(r); +S_46709:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,5902,"ide_methods.bas");if(r)goto S_40193;} +if(qbevent){evnt(26307,10407,"ide_methods.bas");if(r)goto S_46709;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5902,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10407,"ide_methods.bas");}while(r); } -S_40196:; +S_46712:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,5903,"ide_methods.bas");if(r)goto S_40196;} +if(qbevent){evnt(26307,10408,"ide_methods.bas");if(r)goto S_46712;} do{ *_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,5903,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10408,"ide_methods.bas");}while(r); } -S_40199:; +S_46715:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,5904,"ide_methods.bas");if(r)goto S_40199;} +if(qbevent){evnt(26307,10409,"ide_methods.bas");if(r)goto S_46715;} do{ *_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,5904,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10409,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5904,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10409,"ide_methods.bas");}while(r); } -S_40203:; +S_46719:; if ((-(*_FUNC_IDECHANGE_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,5905,"ide_methods.bas");if(r)goto S_40203;} +if(qbevent){evnt(26307,10410,"ide_methods.bas");if(r)goto S_46719;} do{ *_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,5905,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10410,"ide_methods.bas");}while(r); } -S_40206:; +S_46722:; if ((-(*_FUNC_IDECHANGE_LONG_FOCUS>*_FUNC_IDECHANGE_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,5906,"ide_methods.bas");if(r)goto S_40206;} +if(qbevent){evnt(26307,10411,"ide_methods.bas");if(r)goto S_46722;} do{ *_FUNC_IDECHANGE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,5906,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10411,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,5907,"ide_methods.bas");}while(r); -S_40210:; -fornext_value4540= 1 ; -fornext_finalvalue4540= 100 ; -fornext_step4540= 1 ; -if (fornext_step4540<0) fornext_step_negative4540=1; else fornext_step_negative4540=0; -if (new_error) goto fornext_error4540; -goto fornext_entrylabel4540; +if(!qbevent)break;evnt(26307,10412,"ide_methods.bas");}while(r); +S_46726:; +fornext_value5203= 1 ; +fornext_finalvalue5203= 100 ; +fornext_step5203= 1 ; +if (fornext_step5203<0) fornext_step_negative5203=1; else fornext_step_negative5203=0; +if (new_error) goto fornext_error5203; +goto fornext_entrylabel5203; while(1){ -fornext_value4540=fornext_step4540+(*_FUNC_IDECHANGE_LONG_I); -fornext_entrylabel4540: -*_FUNC_IDECHANGE_LONG_I=fornext_value4540; -if (fornext_step_negative4540){ -if (fornext_value4540fornext_finalvalue4540) break; +if (fornext_value5203>fornext_finalvalue5203) break; } -fornext_error4540:; -if(qbevent){evnt(25066,5908,"ide_methods.bas");if(r)goto S_40210;} +fornext_error5203:; +if(qbevent){evnt(26307,10413,"ide_methods.bas");if(r)goto S_46726;} do{ -*_FUNC_IDECHANGE_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,5909,"ide_methods.bas");}while(r); -S_40212:; +*_FUNC_IDECHANGE_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,10414,"ide_methods.bas");}while(r); +S_46728:; if ((*_FUNC_IDECHANGE_LONG_T)||new_error){ -if(qbevent){evnt(25066,5910,"ide_methods.bas");if(r)goto S_40212;} +if(qbevent){evnt(26307,10415,"ide_methods.bas");if(r)goto S_46728;} do{ *_FUNC_IDECHANGE_LONG_FOCUSOFFSET=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; -if(!qbevent)break;evnt(25066,5911,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10416,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECHANGE_LONG_FOCUS,_FUNC_IDECHANGE_LONG_F,_FUNC_IDECHANGE_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGE_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGE_LONG_MOUSEDOWN,_FUNC_IDECHANGE_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGE_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGE_LONG_FOCUS,_FUNC_IDECHANGE_LONG_F,_FUNC_IDECHANGE_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGE_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGE_LONG_MOUSEDOWN,_FUNC_IDECHANGE_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGE_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10417,"ide_methods.bas");}while(r); } -fornext_continue_4539:; +fornext_continue_5202:; } -fornext_exit_4539:; -S_40217:; +fornext_exit_5202:; +S_46733:; if ((-(*_FUNC_IDECHANGE_LONG_FOCUS!=*_FUNC_IDECHANGE_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,5918,"ide_methods.bas");if(r)goto S_40217;} +if(qbevent){evnt(26307,10423,"ide_methods.bas");if(r)goto S_46733;} do{ *_FUNC_IDECHANGE_LONG_PREVFOCUS=*_FUNC_IDECHANGE_LONG_FOCUS; -if(!qbevent)break;evnt(25066,5920,"ide_methods.bas");}while(r); -S_40219:; +if(!qbevent)break;evnt(26307,10425,"ide_methods.bas");}while(r); +S_46735:; if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))|(-(*_FUNC_IDECHANGE_LONG_FOCUS== 2 )))||new_error){ -if(qbevent){evnt(25066,5921,"ide_methods.bas");if(r)goto S_40219;} +if(qbevent){evnt(26307,10426,"ide_methods.bas");if(r)goto S_46735;} do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,5922,"ide_methods.bas");}while(r); -S_40221:; -if ((-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,5923,"ide_methods.bas");if(r)goto S_40221;} +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,10427,"ide_methods.bas");}while(r); +S_46737:; +if ((-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,10428,"ide_methods.bas");if(r)goto S_46737;} do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,5923,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,10428,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,5924,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,10429,"ide_methods.bas");}while(r); } } -S_40227:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 8 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,5928,"ide_methods.bas");if(r)goto S_40227;} +S_46743:; +if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 6 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26307,10434,"ide_methods.bas");if(r)goto S_46743;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10435,"ide_methods.bas");}while(r); +S_46745:; +}else{ +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 7 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26307,10436,"ide_methods.bas");if(r)goto S_46745;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10437,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10438,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10439,"ide_methods.bas");}while(r); +S_46749:; +}else{ +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 8 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26307,10440,"ide_methods.bas");if(r)goto S_46749;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10441,"ide_methods.bas");}while(r); +S_46751:; +}else{ +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 9 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26307,10442,"ide_methods.bas");if(r)goto S_46751;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10443,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10444,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,10445,"ide_methods.bas");}while(r); +} +} +} +} +S_46756:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 12 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,10448,"ide_methods.bas");if(r)goto S_46756;} do{ qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5929,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10449,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,5930,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10450,"ide_methods.bas");}while(r); } -S_40231:; +S_46760:; if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ -if(qbevent){evnt(25066,5933,"ide_methods.bas");if(r)goto S_40231;} -S_40232:; +if(qbevent){evnt(26307,10453,"ide_methods.bas");if(r)goto S_46760;} +S_46761:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(25066,5934,"ide_methods.bas");if(r)goto S_40232;} -S_40233:; +if(qbevent){evnt(26307,10454,"ide_methods.bas");if(r)goto S_46761;} +S_46762:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_LNlen; -if(!qbevent)break;evnt(25066,5939,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,10459,"ide_methods.bas");}while(r); } -S_40241:; +S_46770:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(25066,5942,"ide_methods.bas");if(r)goto S_40241;} -S_40242:; +if(qbevent){evnt(26307,10462,"ide_methods.bas");if(r)goto S_46770;} +S_46771:; if ((-(*_FUNC_IDECHANGE_LONG_LN> 1 ))||new_error){ -if(qbevent){evnt(25066,5943,"ide_methods.bas");if(r)goto S_40242;} +if(qbevent){evnt(26307,10463,"ide_methods.bas");if(r)goto S_46771;} do{ *_FUNC_IDECHANGE_LONG_LN=*_FUNC_IDECHANGE_LONG_LN- 1 ; -if(!qbevent)break;evnt(25066,5944,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10464,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHANGE_LONG_LN= 1 ; -if(!qbevent)break;evnt(25066,5946,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10466,"ide_methods.bas");}while(r); } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDECHANGE_LONG_LN)-_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5948,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10468,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,5949,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,10469,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,5949,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,10469,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,5949,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,10469,"ide_methods.bas");}while(r); } } -S_40253:; -if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 7 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 )))||new_error){ -if(qbevent){evnt(25066,5953,"ide_methods.bas");if(r)goto S_40253;} +S_46782:; +if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 11 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 )))||new_error){ +if(qbevent){evnt(26307,10473,"ide_methods.bas");if(r)goto S_46782;} do{ -*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,5954,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10474,"ide_methods.bas");}while(r); do{ -*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,5955,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10475,"ide_methods.bas");}while(r); do{ -*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,5956,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10476,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHANGE_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10477,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10478,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10479,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10480,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5958,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10482,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDECHANGE_STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5959,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10483,"ide_methods.bas");}while(r); do{ -qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5960,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10484,"ide_methods.bas");}while(r); do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5961,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10485,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_CHANGED= 0 ; -if(!qbevent)break;evnt(25066,5963,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10487,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_S,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5965,"ide_methods.bas");}while(r); -S_40263:; +if(!qbevent)break;evnt(26307,10489,"ide_methods.bas");}while(r); +S_46796:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,5966,"ide_methods.bas");if(r)goto S_40263;} +if(qbevent){evnt(26307,10490,"ide_methods.bas");if(r)goto S_46796;} do{ qbs_set(_FUNC_IDECHANGE_STRING_S,qbs_ucase(_FUNC_IDECHANGE_STRING_S)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10490,"ide_methods.bas");}while(r); } -S_40266:; -fornext_value4545= 1 ; -fornext_finalvalue4545=*__LONG_IDEN; -fornext_step4545= 1 ; -if (fornext_step4545<0) fornext_step_negative4545=1; else fornext_step_negative4545=0; -if (new_error) goto fornext_error4545; -goto fornext_entrylabel4545; +S_46799:; +fornext_value5208= 1 ; +fornext_finalvalue5208=*__LONG_IDEN; +fornext_step5208= 1 ; +if (fornext_step5208<0) fornext_step_negative5208=1; else fornext_step_negative5208=0; +if (new_error) goto fornext_error5208; +goto fornext_entrylabel5208; while(1){ -fornext_value4545=fornext_step4545+(*_FUNC_IDECHANGE_LONG_Y); -fornext_entrylabel4545: -*_FUNC_IDECHANGE_LONG_Y=fornext_value4545; -if (fornext_step_negative4545){ -if (fornext_value4545fornext_finalvalue4545) break; +if (fornext_value5208>fornext_finalvalue5208) break; } -fornext_error4545:; -if(qbevent){evnt(25066,5968,"ide_methods.bas");if(r)goto S_40266;} +fornext_error5208:; +if(qbevent){evnt(26307,10492,"ide_methods.bas");if(r)goto S_46799;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,10493,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH=*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(8))- 4 ; +if(!qbevent)break;evnt(26307,10494,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDECHANGE_LONG_Y/ ((long double)(*__LONG_IDEN))* 100 )); +if(!qbevent)break;evnt(26307,10495,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH**_FUNC_IDECHANGE_LONG_Y/ ((long double)(*__LONG_IDEN)))); +if(!qbevent)break;evnt(26307,10496,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_PERCENTAGEMSG,qbs_add(func_string(*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH-*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS, 176 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10497,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(4))+ 7 ,_FUNC_IDECHANGE_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10498,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,10499,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_L,FUNC_IDEGETLINE(_FUNC_IDECHANGE_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5969,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10501,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5970,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10502,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_X1= 1 ; -if(!qbevent)break;evnt(25066,5972,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10504,"ide_methods.bas");}while(r); LABEL_IDECHANGEALL:; -if(qbevent){evnt(25066,5973,"ide_methods.bas");r=0;} -S_40270:; +if(qbevent){evnt(26307,10505,"ide_methods.bas");r=0;} +S_46810:; if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,5974,"ide_methods.bas");if(r)goto S_40270;} +if(qbevent){evnt(26307,10506,"ide_methods.bas");if(r)goto S_46810;} do{ qbs_set(_FUNC_IDECHANGE_STRING_L3,qbs_ucase(_FUNC_IDECHANGE_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10506,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10506,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_X=func_instr(*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_S,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5975,"ide_methods.bas");}while(r); -S_40276:; +if(!qbevent)break;evnt(26307,10507,"ide_methods.bas");}while(r); +S_46816:; if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ -if(qbevent){evnt(25066,5977,"ide_methods.bas");if(r)goto S_40276;} -S_40277:; +if(qbevent){evnt(26307,10509,"ide_methods.bas");if(r)goto S_46816;} +S_46817:; if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(25066,5978,"ide_methods.bas");if(r)goto S_40277;} +if(qbevent){evnt(26307,10510,"ide_methods.bas");if(r)goto S_46817;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 1 ; -if(!qbevent)break;evnt(25066,5979,"ide_methods.bas");}while(r); -S_40279:; +if(!qbevent)break;evnt(26307,10511,"ide_methods.bas");}while(r); +S_46819:; if ((-(*_FUNC_IDECHANGE_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(25066,5980,"ide_methods.bas");if(r)goto S_40279;} +if(qbevent){evnt(26307,10512,"ide_methods.bas");if(r)goto S_46819;} do{ *_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X- 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5981,"ide_methods.bas");}while(r); -S_40281:; +if(!qbevent)break;evnt(26307,10513,"ide_methods.bas");}while(r); +S_46821:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(25066,5982,"ide_methods.bas");if(r)goto S_40281;} +if(qbevent){evnt(26307,10514,"ide_methods.bas");if(r)goto S_46821;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5982,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10514,"ide_methods.bas");}while(r); } -S_40284:; +S_46824:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(25066,5983,"ide_methods.bas");if(r)goto S_40284;} +if(qbevent){evnt(26307,10515,"ide_methods.bas");if(r)goto S_46824;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5983,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10515,"ide_methods.bas");}while(r); } } -S_40288:; +S_46828:; if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len)<=(_FUNC_IDECHANGE_STRING_L->len))))||new_error){ -if(qbevent){evnt(25066,5985,"ide_methods.bas");if(r)goto S_40288;} +if(qbevent){evnt(26307,10517,"ide_methods.bas");if(r)goto S_46828;} do{ *_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5986,"ide_methods.bas");}while(r); -S_40290:; +if(!qbevent)break;evnt(26307,10518,"ide_methods.bas");}while(r); +S_46830:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(25066,5987,"ide_methods.bas");if(r)goto S_40290;} +if(qbevent){evnt(26307,10519,"ide_methods.bas");if(r)goto S_46830;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5987,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10519,"ide_methods.bas");}while(r); } -S_40293:; +S_46833:; if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(25066,5988,"ide_methods.bas");if(r)goto S_40293;} +if(qbevent){evnt(26307,10520,"ide_methods.bas");if(r)goto S_46833;} do{ *_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,5988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10520,"ide_methods.bas");}while(r); } } -S_40297:; +S_46837:; if ((-(*_FUNC_IDECHANGE_LONG_WHOLE== 0 ))||new_error){ -if(qbevent){evnt(25066,5990,"ide_methods.bas");if(r)goto S_40297;} -S_40298:; +if(qbevent){evnt(26307,10522,"ide_methods.bas");if(r)goto S_46837;} +S_46838:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ -if(qbevent){evnt(25066,5991,"ide_methods.bas");if(r)goto S_40298;} +if(qbevent){evnt(26307,10523,"ide_methods.bas");if(r)goto S_46838;} do{ qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,*_FUNC_IDECHANGE_LONG_X-*_FUNC_IDECHANGE_LONG_X1+ 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10524,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,5993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10525,"ide_methods.bas");}while(r); do{ goto LABEL_IDECHANGEALL; -if(!qbevent)break;evnt(25066,5994,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10526,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,5996,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10528,"ide_methods.bas");}while(r); } } } -S_40307:; +do{ +if(!qbevent)break;evnt(26307,10533,"ide_methods.bas");}while(r); +S_46848:; if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ -if(qbevent){evnt(25066,6001,"ide_methods.bas");if(r)goto S_40307;} +if(qbevent){evnt(26307,10534,"ide_methods.bas");if(r)goto S_46848;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDECHANGE_STRING_L,_FUNC_IDECHANGE_LONG_X,_FUNC_IDECHANGE_BYTE_COMMENT,_FUNC_IDECHANGE_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10535,"ide_methods.bas");}while(r); +S_46850:; +if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDECHANGE_BYTE_COMMENT)||new_error){ +if(qbevent){evnt(26307,10536,"ide_methods.bas");if(r)goto S_46850;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,10536,"ide_methods.bas");}while(r); +} +S_46853:; +if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDECHANGE_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26307,10537,"ide_methods.bas");if(r)goto S_46853;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,10537,"ide_methods.bas");}while(r); +} +S_46856:; +if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_COMMENT== 0 )))||new_error){ +if(qbevent){evnt(26307,10538,"ide_methods.bas");if(r)goto S_46856;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,10538,"ide_methods.bas");}while(r); +} +S_46859:; +if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26307,10539,"ide_methods.bas");if(r)goto S_46859;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,10539,"ide_methods.bas");}while(r); +} +} +S_46863:; +if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ +if(qbevent){evnt(26307,10542,"ide_methods.bas");if(r)goto S_46863;} do{ qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,*_FUNC_IDECHANGE_LONG_X-*_FUNC_IDECHANGE_LONG_X1,1)),__STRING_IDECHANGETO)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6002,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10543,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CHANGED=*_FUNC_IDECHANGE_LONG_CHANGED+ 1 ; +if(!qbevent)break;evnt(26307,10544,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6003,"ide_methods.bas");}while(r); -S_40310:; +if(!qbevent)break;evnt(26307,10545,"ide_methods.bas");}while(r); +S_46867:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ -if(qbevent){evnt(25066,6004,"ide_methods.bas");if(r)goto S_40310;} +if(qbevent){evnt(26307,10546,"ide_methods.bas");if(r)goto S_46867;} do{ goto LABEL_IDECHANGEALL; -if(!qbevent)break;evnt(25066,6004,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10546,"ide_methods.bas");}while(r); } } do{ qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L->len-*_FUNC_IDECHANGE_LONG_X1+ 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6007,"ide_methods.bas");}while(r); -S_40315:; +if(!qbevent)break;evnt(26307,10549,"ide_methods.bas");}while(r); +S_46872:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHANGE_STRING_L2,_FUNC_IDECHANGE_STRING_L)))||new_error){ -if(qbevent){evnt(25066,6009,"ide_methods.bas");if(r)goto S_40315;} +if(qbevent){evnt(26307,10551,"ide_methods.bas");if(r)goto S_46872;} do{ SUB_IDESETLINE(_FUNC_IDECHANGE_LONG_Y,_FUNC_IDECHANGE_STRING_L2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6009,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10551,"ide_methods.bas");}while(r); +} +fornext_continue_5207:; +} +fornext_exit_5207:; do{ -*_FUNC_IDECHANGE_LONG_CHANGED= 1 ; -if(!qbevent)break;evnt(25066,6009,"ide_methods.bas");}while(r); -} -fornext_continue_4544:; -} -fornext_exit_4544:; -S_40320:; +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10555,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass5216= 0 )); +if(!qbevent)break;evnt(26307,10556,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26307,10557,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26307,10558,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,10559,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,10560,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,10561,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,10562,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=154; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DISPLAYDIALOG; +RETURN_154:; +if(!qbevent)break;evnt(26307,10563,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,10564,"ide_methods.bas");}while(r); +S_46886:; if ((-(*_FUNC_IDECHANGE_LONG_CHANGED== 0 ))||new_error){ -if(qbevent){evnt(25066,6013,"ide_methods.bas");if(r)goto S_40320;} +if(qbevent){evnt(26307,10566,"ide_methods.bas");if(r)goto S_46886;} do{ -SUB_IDENOMATCH(); -if(!qbevent)break;evnt(25066,6013,"ide_methods.bas");}while(r); +SUB_IDENOMATCH(&(pass5217= 0 )); +if(!qbevent)break;evnt(26307,10567,"ide_methods.bas");}while(r); }else{ do{ -SUB_IDECHANGED(); -if(!qbevent)break;evnt(25066,6013,"ide_methods.bas");}while(r); +SUB_IDECHANGED(_FUNC_IDECHANGE_LONG_CHANGED); +if(!qbevent)break;evnt(26307,10569,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,6013,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10569,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,10569,"ide_methods.bas");}while(r); } do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6014,"ide_methods.bas");}while(r); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_BUTTONSID)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Close",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10572,"ide_methods.bas");}while(r); } -S_40328:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 6 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ -if(qbevent){evnt(25066,6019,"ide_methods.bas");if(r)goto S_40328;} +S_46895:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 10 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ +if(qbevent){evnt(26307,10576,"ide_methods.bas");if(r)goto S_46895;} do{ -*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,6020,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10577,"ide_methods.bas");}while(r); do{ -*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,6021,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10578,"ide_methods.bas");}while(r); do{ -*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,6022,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10579,"ide_methods.bas");}while(r); do{ -qbs_set(__STRING_IDEFINDTEXT,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10580,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10581,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10582,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,10583,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6023,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10584,"ide_methods.bas");}while(r); do{ -qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6024,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10585,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("V",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6025,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10586,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,6026,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10587,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,6034,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10595,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGE_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,6035,"ide_methods.bas");}while(r); -dl_continue_4534:; +if(!qbevent)break;evnt(26307,10596,"ide_methods.bas");}while(r); +dl_continue_5199:; }while(1); -dl_exit_4534:; +dl_exit_5199:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,10598,"ide_methods.bas");}while(r); +LABEL_DISPLAYDIALOG:; +if(qbevent){evnt(26307,10599,"ide_methods.bas");r=0;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,10600,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,10601,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,10601,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,10601,"ide_methods.bas");}while(r); +S_46916:; +fornext_value5219= 1 ; +fornext_finalvalue5219= 100 ; +fornext_step5219= 1 ; +if (fornext_step5219<0) fornext_step_negative5219=1; else fornext_step_negative5219=0; +if (new_error) goto fornext_error5219; +goto fornext_entrylabel5219; +while(1){ +fornext_value5219=fornext_step5219+(*_FUNC_IDECHANGE_LONG_I); +fornext_entrylabel5219: +*_FUNC_IDECHANGE_LONG_I=fornext_value5219; +if (fornext_step_negative5219){ +if (fornext_value5219fornext_finalvalue5219) break; +} +fornext_error5219:; +if(qbevent){evnt(26307,10602,"ide_methods.bas");if(r)goto S_46916;} +S_46917:; +if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,10604,"ide_methods.bas");if(r)goto S_46917;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; +if(!qbevent)break;evnt(26307,10607,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,10609,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,10609,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGE_LONG_F); +if(!qbevent)break;evnt(26307,10611,"ide_methods.bas");}while(r); +S_46922:; +if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,10613,"ide_methods.bas");if(r)goto S_46922;} +do{ +*_FUNC_IDECHANGE_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,10613,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,10613,"ide_methods.bas");}while(r); +} +} +fornext_continue_5218:; +} +fornext_exit_5218:; +do{ +#include "ret146.txt" +if(!qbevent)break;evnt(26307,10617,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free133.txt" +#include "free146.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDECHANGE_STRING_IDECHANGE);return _FUNC_IDECHANGE_STRING_IDECHANGE; } -void SUB_IDECHANGED(){ +void SUB_FINDQUOTECOMMENT(qbs*_SUB_FINDQUOTECOMMENT_STRING_TEXT,int32*_SUB_FINDQUOTECOMMENT_LONG___CURSOR,int8*_SUB_FINDQUOTECOMMENT_BYTE_C,int8*_SUB_FINDQUOTECOMMENT_BYTE_Q){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data134.txt" +#include "data147.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,6044,"ide_methods.bas");}while(r); +*_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ; +if(!qbevent)break;evnt(26307,10621,"ide_methods.bas");}while(r); do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,6045,"ide_methods.bas");}while(r); +*_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ; +if(!qbevent)break;evnt(26307,10621,"ide_methods.bas");}while(r); do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,6046,"ide_methods.bas");}while(r); +*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR; +if(!qbevent)break;evnt(26307,10622,"ide_methods.bas");}while(r); +S_46932:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||new_error){ +if(qbevent){evnt(26307,10623,"ide_methods.bas");if(r)goto S_46932;} do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6047,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6048,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,6049,"ide_methods.bas");}while(r); -do{ - -if (_SUB_IDECHANGED_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_SUB_IDECHANGED_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_SUB_IDECHANGED_ARRAY_UDT_O[4]= 1 ; -_SUB_IDECHANGED_ARRAY_UDT_O[5]=( 100 )-_SUB_IDECHANGED_ARRAY_UDT_O[4]+1; -_SUB_IDECHANGED_ARRAY_UDT_O[6]=1; -if (_SUB_IDECHANGED_ARRAY_UDT_O[2]&4){ -_SUB_IDECHANGED_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDECHANGED_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_SUB_IDECHANGED_ARRAY_UDT_O[0]),0,_SUB_IDECHANGED_ARRAY_UDT_O[5]*680/8+1); -}else{ -_SUB_IDECHANGED_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDECHANGED_ARRAY_UDT_O[5]*680/8+1,1); -if (!_SUB_IDECHANGED_ARRAY_UDT_O[0]) error(257); -} -_SUB_IDECHANGED_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,6050,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,6051,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDECHANGED_STRING1_SEP,func_chr( 0 )); +*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6052,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,6056,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_IDECHANGED_UDT_P)) + (0) ),&(pass4553= 19 ),&(pass4554= 4 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6057,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_I=*_SUB_IDECHANGED_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6058,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,6059,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,6060,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,6061,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,6062,"ide_methods.bas");}while(r); -S_40356:; -fornext_value4556= 1 ; -fornext_finalvalue4556= 100 ; -fornext_step4556= 1 ; -if (fornext_step4556<0) fornext_step_negative4556=1; else fornext_step_negative4556=0; -if (new_error) goto fornext_error4556; -goto fornext_entrylabel4556; +if(!qbevent)break;evnt(26307,10623,"ide_methods.bas");}while(r); +} +S_46935:; +fornext_value5224= 1 ; +fornext_finalvalue5224=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR; +fornext_step5224= 1 ; +if (fornext_step5224<0) fornext_step_negative5224=1; else fornext_step_negative5224=0; +if (new_error) goto fornext_error5224; +goto fornext_entrylabel5224; while(1){ -fornext_value4556=fornext_step4556+(*_SUB_IDECHANGED_LONG_I); -fornext_entrylabel4556: -*_SUB_IDECHANGED_LONG_I=fornext_value4556; -if (fornext_step_negative4556){ -if (fornext_value4556fornext_finalvalue4556) break; +if (fornext_value5224>fornext_finalvalue5224) break; } -fornext_error4556:; -if(qbevent){evnt(25066,6066,"ide_methods.bas");if(r)goto S_40356;} -do{ -memcpy(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_IDECHANGED_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,6066,"ide_methods.bas");}while(r); -fornext_continue_4555:; -} -fornext_exit_4555:; -S_40359:; -do{ -if(qbevent){evnt(25066,6069,"ide_methods.bas");if(r)goto S_40359;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDECHANGED_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,6072,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6073,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,6073,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,6073,"ide_methods.bas");}while(r); -S_40364:; -fornext_value4559= 1 ; -fornext_finalvalue4559= 100 ; -fornext_step4559= 1 ; -if (fornext_step4559<0) fornext_step_negative4559=1; else fornext_step_negative4559=0; -if (new_error) goto fornext_error4559; -goto fornext_entrylabel4559; -while(1){ -fornext_value4559=fornext_step4559+(*_SUB_IDECHANGED_LONG_I); -fornext_entrylabel4559: -*_SUB_IDECHANGED_LONG_I=fornext_value4559; -if (fornext_step_negative4559){ -if (fornext_value4559fornext_finalvalue4559) break; -} -fornext_error4559:; -if(qbevent){evnt(25066,6074,"ide_methods.bas");if(r)goto S_40364;} -S_40365:; -if ((*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,6075,"ide_methods.bas");if(r)goto S_40365;} -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+60))=*_SUB_IDECHANGED_LONG_FOCUS-*_SUB_IDECHANGED_LONG_F; -if(!qbevent)break;evnt(25066,6077,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,6078,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,6078,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDECHANGED_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85) ),_SUB_IDECHANGED_LONG_F); -if(!qbevent)break;evnt(25066,6079,"ide_methods.bas");}while(r); -S_40370:; -if ((*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,6080,"ide_methods.bas");if(r)goto S_40370;} -do{ -*_SUB_IDECHANGED_LONG_CX=*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,6080,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_CY=*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,6080,"ide_methods.bas");}while(r); -} -} -fornext_continue_4558:; -} -fornext_exit_4558:; -do{ -*_SUB_IDECHANGED_LONG_LASTFOCUS=*_SUB_IDECHANGED_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,6083,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6087,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDECHANGED_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_SUB_IDECHANGED_UDT_P)+(0))+ 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6087,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Change Complete",15)); -if (new_error) goto skip4560; -makefit(tqbs); -qbs_print(tqbs,0); -skip4560: -qbs_free(tqbs); +fornext_error5224:; +if(qbevent){evnt(26307,10624,"ide_methods.bas");if(r)goto S_46935;} +S_46936:; +qbs_set(sc_5225,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6087,"ide_methods.bas");}while(r); +if(qbevent){evnt(26307,10625,"ide_methods.bas");if(r)goto S_46936;} +S_46937:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5225,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26307,10626,"ide_methods.bas");if(r)goto S_46937;} do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,6091,"ide_methods.bas");}while(r); -S_40381:; -if ((*_SUB_IDECHANGED_LONG_CX)||new_error){ -if(qbevent){evnt(25066,6092,"ide_methods.bas");if(r)goto S_40381;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6092,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDECHANGED_LONG_CY,*_SUB_IDECHANGED_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,6092,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6092,"ide_methods.bas");}while(r); +*_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q); +if(!qbevent)break;evnt(26307,10626,"ide_methods.bas");}while(r); +sc_ec_323_end:; +goto sc_5225_end; } +S_46939:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5225,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(26307,10627,"ide_methods.bas");if(r)goto S_46939;} +S_46940:; +if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ +if(qbevent){evnt(26307,10627,"ide_methods.bas");if(r)goto S_46940;} do{ -*_SUB_IDECHANGED_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,6095,"ide_methods.bas");}while(r); -S_40387:; +*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; +if(!qbevent)break;evnt(26307,10627,"ide_methods.bas");}while(r); do{ -if(qbevent){evnt(25066,6096,"ide_methods.bas");if(r)goto S_40387;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,6097,"ide_methods.bas");}while(r); -S_40389:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,6098,"ide_methods.bas");if(r)goto S_40389;} -do{ -*_SUB_IDECHANGED_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6098,"ide_methods.bas");}while(r); +goto fornext_exit_5223; +if(!qbevent)break;evnt(26307,10627,"ide_methods.bas");}while(r); } -S_40392:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,6099,"ide_methods.bas");if(r)goto S_40392;} -do{ -*_SUB_IDECHANGED_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6099,"ide_methods.bas");}while(r); +sc_ec_324_end:; +goto sc_5225_end; } -S_40395:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,6100,"ide_methods.bas");if(r)goto S_40395;} +S_46944:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5225,qbs_new_txt_len("R",1))||qbs_equal(sc_5225,qbs_new_txt_len("r",1))))||new_error){ +if(qbevent){evnt(26307,10628,"ide_methods.bas");if(r)goto S_46944;} +S_46945:; +if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ +if(qbevent){evnt(26307,10629,"ide_methods.bas");if(r)goto S_46945;} +S_46946:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,1)),qbs_new_txt_len(" REM ",5)))|(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,1)),qbs_new_txt_len(":REM ",5)))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,1)),qbs_new_txt_len(" REM",4)))))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,1)),qbs_new_txt_len(":REM",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(qbs_left(_SUB_FINDQUOTECOMMENT_STRING_TEXT, 4 )),qbs_new_txt_len("REM ",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(_SUB_FINDQUOTECOMMENT_STRING_TEXT),qbs_new_txt_len("REM",3)))))))||new_error){ +if(qbevent){evnt(26307,10635,"ide_methods.bas");if(r)goto S_46946;} do{ -*_SUB_IDECHANGED_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,6100,"ide_methods.bas");}while(r); +*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; +if(!qbevent)break;evnt(26307,10636,"ide_methods.bas");}while(r); do{ -*_SUB_IDECHANGED_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6100,"ide_methods.bas");}while(r); -} -S_40399:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,6101,"ide_methods.bas");if(r)goto S_40399;} -do{ -*_SUB_IDECHANGED_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,6101,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6101,"ide_methods.bas");}while(r); -} -S_40403:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,6102,"ide_methods.bas");if(r)goto S_40403;} -do{ -*_SUB_IDECHANGED_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6102,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDECHANGED_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,6103,"ide_methods.bas");}while(r); -S_40407:; -if ((-(*_SUB_IDECHANGED_LONG_ALT!=*_SUB_IDECHANGED_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,6103,"ide_methods.bas");if(r)goto S_40407;} -do{ -*_SUB_IDECHANGED_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6103,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDECHANGED_LONG_OLDALT=*_SUB_IDECHANGED_LONG_ALT; -if(!qbevent)break;evnt(25066,6104,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,6105,"ide_methods.bas");}while(r); -S_40412:; -dl_continue_4561:; -}while((!(*_SUB_IDECHANGED_LONG_CHANGE))&&(!new_error)); -dl_exit_4561:; -if(qbevent){evnt(25066,6106,"ide_methods.bas");if(r)goto S_40412;} -S_40413:; -if ((*_SUB_IDECHANGED_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6107,"ide_methods.bas");if(r)goto S_40413;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,6107,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,6107,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDECHANGED_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6109,"ide_methods.bas");}while(r); -S_40419:; -if ((*_SUB_IDECHANGED_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6110,"ide_methods.bas");if(r)goto S_40419;} -S_40420:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,6111,"ide_methods.bas");if(r)goto S_40420;} -do{ -*_SUB_IDECHANGED_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6112,"ide_methods.bas");}while(r); -S_40422:; -if (((-(*_SUB_IDECHANGED_LONG_K>= 65 ))&(-(*_SUB_IDECHANGED_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,6113,"ide_methods.bas");if(r)goto S_40422;} -do{ -qbs_set(_SUB_IDECHANGED_STRING_ALTLETTER,func_chr(*_SUB_IDECHANGED_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6113,"ide_methods.bas");}while(r); +goto fornext_exit_5223; +if(!qbevent)break;evnt(26307,10636,"ide_methods.bas");}while(r); } } +sc_ec_325_end:; +goto sc_5225_end; } -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6116,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,6116,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6116,"ide_methods.bas");}while(r); -S_40430:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,6119,"ide_methods.bas");if(r)goto S_40430;} -do{ -qbs_set(_SUB_IDECHANGED_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6119,"ide_methods.bas");}while(r); +sc_5225_end:; +fornext_continue_5223:; } -S_40433:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,6120,"ide_methods.bas");if(r)goto S_40433;} -do{ -qbs_set(_SUB_IDECHANGED_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6120,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDECHANGED_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,6123,"ide_methods.bas");}while(r); -S_40437:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,6124,"ide_methods.bas");if(r)goto S_40437;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6124,"ide_methods.bas");}while(r); -} -S_40440:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,6125,"ide_methods.bas");if(r)goto S_40440;} -do{ -*_SUB_IDECHANGED_LONG_FOCUS=*_SUB_IDECHANGED_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,6125,"ide_methods.bas");}while(r); -} -S_40443:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,6126,"ide_methods.bas");if(r)goto S_40443;} -do{ -*_SUB_IDECHANGED_LONG_FOCUS=*_SUB_IDECHANGED_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,6126,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6126,"ide_methods.bas");}while(r); -} -S_40447:; -if ((-(*_SUB_IDECHANGED_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,6127,"ide_methods.bas");if(r)goto S_40447;} -do{ -*_SUB_IDECHANGED_LONG_FOCUS=*_SUB_IDECHANGED_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,6127,"ide_methods.bas");}while(r); -} -S_40450:; -if ((-(*_SUB_IDECHANGED_LONG_FOCUS>*_SUB_IDECHANGED_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,6128,"ide_methods.bas");if(r)goto S_40450;} -do{ -*_SUB_IDECHANGED_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6128,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDECHANGED_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6129,"ide_methods.bas");}while(r); -S_40454:; -fornext_value4564= 1 ; -fornext_finalvalue4564= 100 ; -fornext_step4564= 1 ; -if (fornext_step4564<0) fornext_step_negative4564=1; else fornext_step_negative4564=0; -if (new_error) goto fornext_error4564; -goto fornext_entrylabel4564; -while(1){ -fornext_value4564=fornext_step4564+(*_SUB_IDECHANGED_LONG_I); -fornext_entrylabel4564: -*_SUB_IDECHANGED_LONG_I=fornext_value4564; -if (fornext_step_negative4564){ -if (fornext_value4564fornext_finalvalue4564) break; -} -fornext_error4564:; -if(qbevent){evnt(25066,6130,"ide_methods.bas");if(r)goto S_40454;} -do{ -*_SUB_IDECHANGED_LONG_T=*(int32*)(((char*)_SUB_IDECHANGED_ARRAY_UDT_O[0])+((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,6131,"ide_methods.bas");}while(r); -S_40456:; -if ((*_SUB_IDECHANGED_LONG_T)||new_error){ -if(qbevent){evnt(25066,6132,"ide_methods.bas");if(r)goto S_40456;} -do{ -*_SUB_IDECHANGED_LONG_FOCUSOFFSET=*_SUB_IDECHANGED_LONG_FOCUS-*_SUB_IDECHANGED_LONG_F; -if(!qbevent)break;evnt(25066,6133,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDECHANGED_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDECHANGED_LONG_I)-_SUB_IDECHANGED_ARRAY_UDT_O[4],_SUB_IDECHANGED_ARRAY_UDT_O[5]))*85) ),_SUB_IDECHANGED_LONG_FOCUS,_SUB_IDECHANGED_LONG_F,_SUB_IDECHANGED_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDECHANGED_STRING_ALTLETTER,__LONG_MB,_SUB_IDECHANGED_LONG_MOUSEDOWN,_SUB_IDECHANGED_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDECHANGED_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6134,"ide_methods.bas");}while(r); -} -fornext_continue_4563:; -} -fornext_exit_4563:; -S_40461:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,6139,"ide_methods.bas");if(r)goto S_40461;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6140,"ide_methods.bas");}while(r); -} -S_40464:; -if ((*_SUB_IDECHANGED_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,6143,"ide_methods.bas");if(r)goto S_40464;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6144,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDECHANGED_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,6149,"ide_methods.bas");}while(r); -do{ -*_SUB_IDECHANGED_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,6150,"ide_methods.bas");}while(r); -dl_continue_4557:; -}while(1); -dl_exit_4557:; +fornext_exit_5223:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free134.txt" +#include "free147.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDECHANGED(int32*_SUB_IDECHANGED_LONG_TOTALCHANGES){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data148.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_46953:; +if ((-(*_SUB_IDECHANGED_LONG_TOTALCHANGES> 1 ))||new_error){ +if(qbevent){evnt(26307,10644,"ide_methods.bas");if(r)goto S_46953;} +do{ +qbs_set(_SUB_IDECHANGED_STRING_PL,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10644,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDECHANGED_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Change Complete",15),qbs_add(qbs_add(qbs_add(qbs_ltrim(qbs_str((int32)(*_SUB_IDECHANGED_LONG_TOTALCHANGES))),qbs_new_txt_len(" substitution",13)),_SUB_IDECHANGED_STRING_PL),qbs_new_txt_len(".",1)),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10645,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free148.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -143700,7 +162669,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data135.txt" +#include "data149.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -143708,456 +162677,456 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,6158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10651,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,6159,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10652,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,6160,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10653,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6161,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10654,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6162,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10655,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,6163,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10656,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDECHANGEIT_ARRAY_UDT_O[4]= 1 ; _FUNC_IDECHANGEIT_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4]+1; _FUNC_IDECHANGEIT_ARRAY_UDT_O[6]=1; if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&4){ -_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]),0,_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]),0,_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHANGEIT_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,6164,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10657,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,6165,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10658,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHANGEIT_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6166,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10659,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,6170,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10663,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_W= 45 ; -if(!qbevent)break;evnt(25066,6171,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10664,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(0))=( 40 )-(*_FUNC_IDECHANGEIT_LONG_W/ 2 ); -if(!qbevent)break;evnt(25066,6172,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10665,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(4))=*__LONG_IDEWY- 4 ; -if(!qbevent)break;evnt(25066,6173,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10666,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(8))=*_FUNC_IDECHANGEIT_LONG_W; -if(!qbevent)break;evnt(25066,6174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10667,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(12))= 2 ; -if(!qbevent)break;evnt(25066,6175,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10668,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(16))=FUNC_IDENEWTXT(qbs_new_txt_len("Change",6)); -if(!qbevent)break;evnt(25066,6176,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10669,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_I=*_FUNC_IDECHANGEIT_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6178,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10671,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,6179,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,10672,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,6180,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,10673,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Change",7),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("#Skip",5)),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("Cancel",6))); -if(!qbevent)break;evnt(25066,6181,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Change",7),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("#Skip",5)),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("Cancel",6))); +if(!qbevent)break;evnt(26307,10674,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,6182,"ide_methods.bas");}while(r); -S_40491:; -fornext_value4566= 1 ; -fornext_finalvalue4566= 100 ; -fornext_step4566= 1 ; -if (fornext_step4566<0) fornext_step_negative4566=1; else fornext_step_negative4566=0; -if (new_error) goto fornext_error4566; -goto fornext_entrylabel4566; +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,10675,"ide_methods.bas");}while(r); +S_46978:; +fornext_value5229= 1 ; +fornext_finalvalue5229= 100 ; +fornext_step5229= 1 ; +if (fornext_step5229<0) fornext_step_negative5229=1; else fornext_step_negative5229=0; +if (new_error) goto fornext_error5229; +goto fornext_entrylabel5229; while(1){ -fornext_value4566=fornext_step4566+(*_FUNC_IDECHANGEIT_LONG_I); -fornext_entrylabel4566: -*_FUNC_IDECHANGEIT_LONG_I=fornext_value4566; -if (fornext_step_negative4566){ -if (fornext_value4566fornext_finalvalue4566) break; +if (fornext_value5229>fornext_finalvalue5229) break; } -fornext_error4566:; -if(qbevent){evnt(25066,6186,"ide_methods.bas");if(r)goto S_40491;} +fornext_error5229:; +if(qbevent){evnt(26307,10679,"ide_methods.bas");if(r)goto S_46978;} do{ -memcpy(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDECHANGEIT_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,6186,"ide_methods.bas");}while(r); -fornext_continue_4565:; +memcpy(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHANGEIT_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,10679,"ide_methods.bas");}while(r); +fornext_continue_5228:; } -fornext_exit_4565:; -S_40494:; +fornext_exit_5228:; +S_46981:; do{ -if(qbevent){evnt(25066,6189,"ide_methods.bas");if(r)goto S_40494;} +if(qbevent){evnt(26307,10682,"ide_methods.bas");if(r)goto S_46981;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGEIT_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,6192,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10685,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10686,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,6193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10686,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,6193,"ide_methods.bas");}while(r); -S_40499:; -fornext_value4569= 1 ; -fornext_finalvalue4569= 100 ; -fornext_step4569= 1 ; -if (fornext_step4569<0) fornext_step_negative4569=1; else fornext_step_negative4569=0; -if (new_error) goto fornext_error4569; -goto fornext_entrylabel4569; +if(!qbevent)break;evnt(26307,10686,"ide_methods.bas");}while(r); +S_46986:; +fornext_value5232= 1 ; +fornext_finalvalue5232= 100 ; +fornext_step5232= 1 ; +if (fornext_step5232<0) fornext_step_negative5232=1; else fornext_step_negative5232=0; +if (new_error) goto fornext_error5232; +goto fornext_entrylabel5232; while(1){ -fornext_value4569=fornext_step4569+(*_FUNC_IDECHANGEIT_LONG_I); -fornext_entrylabel4569: -*_FUNC_IDECHANGEIT_LONG_I=fornext_value4569; -if (fornext_step_negative4569){ -if (fornext_value4569fornext_finalvalue4569) break; +if (fornext_value5232>fornext_finalvalue5232) break; } -fornext_error4569:; -if(qbevent){evnt(25066,6194,"ide_methods.bas");if(r)goto S_40499;} -S_40500:; -if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,6195,"ide_methods.bas");if(r)goto S_40500;} +fornext_error5232:; +if(qbevent){evnt(26307,10687,"ide_methods.bas");if(r)goto S_46986;} +S_46987:; +if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,10688,"ide_methods.bas");if(r)goto S_46987;} do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; -if(!qbevent)break;evnt(25066,6197,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; +if(!qbevent)break;evnt(26307,10690,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,6198,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,10691,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,6198,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,10691,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECHANGEIT_LONG_F); -if(!qbevent)break;evnt(25066,6199,"ide_methods.bas");}while(r); -S_40505:; -if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,6200,"ide_methods.bas");if(r)goto S_40505;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGEIT_LONG_F); +if(!qbevent)break;evnt(26307,10692,"ide_methods.bas");}while(r); +S_46992:; +if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,10693,"ide_methods.bas");if(r)goto S_46992;} do{ -*_FUNC_IDECHANGEIT_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,6200,"ide_methods.bas");}while(r); +*_FUNC_IDECHANGEIT_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,10693,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHANGEIT_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,6200,"ide_methods.bas");}while(r); +*_FUNC_IDECHANGEIT_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,10693,"ide_methods.bas");}while(r); } } -fornext_continue_4568:; +fornext_continue_5231:; } -fornext_exit_4568:; +fornext_exit_5231:; do{ *_FUNC_IDECHANGEIT_LONG_LASTFOCUS=*_FUNC_IDECHANGEIT_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,6203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10696,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,6210,"ide_methods.bas");}while(r); -S_40513:; +if(!qbevent)break;evnt(26307,10703,"ide_methods.bas");}while(r); +S_47000:; if ((*_FUNC_IDECHANGEIT_LONG_CX)||new_error){ -if(qbevent){evnt(25066,6211,"ide_methods.bas");if(r)goto S_40513;} +if(qbevent){evnt(26307,10704,"ide_methods.bas");if(r)goto S_47000;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6211,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10704,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDECHANGEIT_LONG_CY,*_FUNC_IDECHANGEIT_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,6211,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10704,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6211,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10704,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,6214,"ide_methods.bas");}while(r); -S_40519:; +if(!qbevent)break;evnt(26307,10707,"ide_methods.bas");}while(r); +S_47006:; do{ -if(qbevent){evnt(25066,6215,"ide_methods.bas");if(r)goto S_40519;} +if(qbevent){evnt(26307,10708,"ide_methods.bas");if(r)goto S_47006;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,6216,"ide_methods.bas");}while(r); -S_40521:; +if(!qbevent)break;evnt(26307,10709,"ide_methods.bas");}while(r); +S_47008:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,6217,"ide_methods.bas");if(r)goto S_40521;} +if(qbevent){evnt(26307,10710,"ide_methods.bas");if(r)goto S_47008;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10710,"ide_methods.bas");}while(r); } -S_40524:; +S_47011:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,6218,"ide_methods.bas");if(r)goto S_40524;} +if(qbevent){evnt(26307,10711,"ide_methods.bas");if(r)goto S_47011;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6218,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10711,"ide_methods.bas");}while(r); } -S_40527:; +S_47014:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,6219,"ide_methods.bas");if(r)goto S_40527;} +if(qbevent){evnt(26307,10712,"ide_methods.bas");if(r)goto S_47014;} do{ *_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,6219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10712,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6219,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10712,"ide_methods.bas");}while(r); } -S_40531:; +S_47018:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,6220,"ide_methods.bas");if(r)goto S_40531;} +if(qbevent){evnt(26307,10713,"ide_methods.bas");if(r)goto S_47018;} do{ *_FUNC_IDECHANGEIT_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,6220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10713,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10713,"ide_methods.bas");}while(r); } -S_40535:; +S_47022:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,6221,"ide_methods.bas");if(r)goto S_40535;} +if(qbevent){evnt(26307,10714,"ide_methods.bas");if(r)goto S_47022;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6221,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10714,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,6222,"ide_methods.bas");}while(r); -S_40539:; +if(!qbevent)break;evnt(26307,10715,"ide_methods.bas");}while(r); +S_47026:; if ((-(*_FUNC_IDECHANGEIT_LONG_ALT!=*_FUNC_IDECHANGEIT_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,6222,"ide_methods.bas");if(r)goto S_40539;} +if(qbevent){evnt(26307,10715,"ide_methods.bas");if(r)goto S_47026;} do{ *_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6222,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10715,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_OLDALT=*_FUNC_IDECHANGEIT_LONG_ALT; -if(!qbevent)break;evnt(25066,6223,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10716,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,6224,"ide_methods.bas");}while(r); -S_40544:; -dl_continue_4570:; +if(!qbevent)break;evnt(26307,10717,"ide_methods.bas");}while(r); +S_47031:; +dl_continue_5233:; }while((!(*_FUNC_IDECHANGEIT_LONG_CHANGE))&&(!new_error)); -dl_exit_4570:; -if(qbevent){evnt(25066,6225,"ide_methods.bas");if(r)goto S_40544;} -S_40545:; +dl_exit_5233:; +if(qbevent){evnt(26307,10718,"ide_methods.bas");if(r)goto S_47031;} +S_47032:; if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6226,"ide_methods.bas");if(r)goto S_40545;} +if(qbevent){evnt(26307,10719,"ide_methods.bas");if(r)goto S_47032;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,6226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10719,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,6226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10719,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6228,"ide_methods.bas");}while(r); -S_40551:; +if(!qbevent)break;evnt(26307,10721,"ide_methods.bas");}while(r); +S_47038:; if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6229,"ide_methods.bas");if(r)goto S_40551;} -S_40552:; +if(qbevent){evnt(26307,10722,"ide_methods.bas");if(r)goto S_47038;} +S_47039:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,6230,"ide_methods.bas");if(r)goto S_40552;} +if(qbevent){evnt(26307,10723,"ide_methods.bas");if(r)goto S_47039;} do{ *_FUNC_IDECHANGEIT_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6231,"ide_methods.bas");}while(r); -S_40554:; +if(!qbevent)break;evnt(26307,10724,"ide_methods.bas");}while(r); +S_47041:; if (((-(*_FUNC_IDECHANGEIT_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGEIT_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,6232,"ide_methods.bas");if(r)goto S_40554;} +if(qbevent){evnt(26307,10725,"ide_methods.bas");if(r)goto S_47041;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGEIT_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6232,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10725,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10728,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,6235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10728,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6235,"ide_methods.bas");}while(r); -S_40562:; +if(!qbevent)break;evnt(26307,10728,"ide_methods.bas");}while(r); +S_47049:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,6238,"ide_methods.bas");if(r)goto S_40562;} +if(qbevent){evnt(26307,10731,"ide_methods.bas");if(r)goto S_47049;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10731,"ide_methods.bas");}while(r); } -S_40565:; +S_47052:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1))))||new_error){ -if(qbevent){evnt(25066,6239,"ide_methods.bas");if(r)goto S_40565;} +if(qbevent){evnt(26307,10732,"ide_methods.bas");if(r)goto S_47052;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("S",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10732,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,6242,"ide_methods.bas");}while(r); -S_40569:; +if(!qbevent)break;evnt(26307,10735,"ide_methods.bas");}while(r); +S_47056:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,6243,"ide_methods.bas");if(r)goto S_40569;} +if(qbevent){evnt(26307,10736,"ide_methods.bas");if(r)goto S_47056;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6243,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10736,"ide_methods.bas");}while(r); } -S_40572:; +S_47059:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,6244,"ide_methods.bas");if(r)goto S_40572;} +if(qbevent){evnt(26307,10737,"ide_methods.bas");if(r)goto S_47059;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,6244,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10737,"ide_methods.bas");}while(r); } -S_40575:; +S_47062:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,6245,"ide_methods.bas");if(r)goto S_40575;} +if(qbevent){evnt(26307,10738,"ide_methods.bas");if(r)goto S_47062;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,6245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10738,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10738,"ide_methods.bas");}while(r); } -S_40579:; +S_47066:; if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,6246,"ide_methods.bas");if(r)goto S_40579;} +if(qbevent){evnt(26307,10739,"ide_methods.bas");if(r)goto S_47066;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,6246,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10739,"ide_methods.bas");}while(r); } -S_40582:; +S_47069:; if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS>*_FUNC_IDECHANGEIT_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,6247,"ide_methods.bas");if(r)goto S_40582;} +if(qbevent){evnt(26307,10740,"ide_methods.bas");if(r)goto S_47069;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10740,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6248,"ide_methods.bas");}while(r); -S_40586:; -fornext_value4573= 1 ; -fornext_finalvalue4573= 100 ; -fornext_step4573= 1 ; -if (fornext_step4573<0) fornext_step_negative4573=1; else fornext_step_negative4573=0; -if (new_error) goto fornext_error4573; -goto fornext_entrylabel4573; +if(!qbevent)break;evnt(26307,10741,"ide_methods.bas");}while(r); +S_47073:; +fornext_value5236= 1 ; +fornext_finalvalue5236= 100 ; +fornext_step5236= 1 ; +if (fornext_step5236<0) fornext_step_negative5236=1; else fornext_step_negative5236=0; +if (new_error) goto fornext_error5236; +goto fornext_entrylabel5236; while(1){ -fornext_value4573=fornext_step4573+(*_FUNC_IDECHANGEIT_LONG_I); -fornext_entrylabel4573: -*_FUNC_IDECHANGEIT_LONG_I=fornext_value4573; -if (fornext_step_negative4573){ -if (fornext_value4573fornext_finalvalue4573) break; +if (fornext_value5236>fornext_finalvalue5236) break; } -fornext_error4573:; -if(qbevent){evnt(25066,6249,"ide_methods.bas");if(r)goto S_40586;} +fornext_error5236:; +if(qbevent){evnt(26307,10742,"ide_methods.bas");if(r)goto S_47073;} do{ -*_FUNC_IDECHANGEIT_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,6250,"ide_methods.bas");}while(r); -S_40588:; +*_FUNC_IDECHANGEIT_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,10743,"ide_methods.bas");}while(r); +S_47075:; if ((*_FUNC_IDECHANGEIT_LONG_T)||new_error){ -if(qbevent){evnt(25066,6251,"ide_methods.bas");if(r)goto S_40588;} +if(qbevent){evnt(26307,10744,"ide_methods.bas");if(r)goto S_47075;} do{ *_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; -if(!qbevent)break;evnt(25066,6252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10745,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECHANGEIT_LONG_FOCUS,_FUNC_IDECHANGEIT_LONG_F,_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGEIT_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGEIT_LONG_MOUSEDOWN,_FUNC_IDECHANGEIT_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGEIT_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGEIT_LONG_FOCUS,_FUNC_IDECHANGEIT_LONG_F,_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGEIT_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGEIT_LONG_MOUSEDOWN,_FUNC_IDECHANGEIT_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGEIT_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10746,"ide_methods.bas");}while(r); } -fornext_continue_4572:; +fornext_continue_5235:; } -fornext_exit_4572:; -S_40593:; +fornext_exit_5235:; +S_47080:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,6258,"ide_methods.bas");if(r)goto S_40593;} +if(qbevent){evnt(26307,10751,"ide_methods.bas");if(r)goto S_47080;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6259,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10752,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,6260,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10753,"ide_methods.bas");}while(r); } -S_40597:; +S_47084:; if ((*_FUNC_IDECHANGEIT_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,6263,"ide_methods.bas");if(r)goto S_40597;} -S_40598:; +if(qbevent){evnt(26307,10756,"ide_methods.bas");if(r)goto S_47084;} +S_47085:; if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,6264,"ide_methods.bas");if(r)goto S_40598;} +if(qbevent){evnt(26307,10757,"ide_methods.bas");if(r)goto S_47085;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6264,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10757,"ide_methods.bas");}while(r); } -S_40601:; +S_47088:; if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 2 ))||new_error){ -if(qbevent){evnt(25066,6265,"ide_methods.bas");if(r)goto S_40601;} +if(qbevent){evnt(26307,10758,"ide_methods.bas");if(r)goto S_47088;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("N",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10758,"ide_methods.bas");}while(r); } -S_40604:; +S_47091:; if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 3 ))||new_error){ -if(qbevent){evnt(25066,6266,"ide_methods.bas");if(r)goto S_40604;} +if(qbevent){evnt(26307,10759,"ide_methods.bas");if(r)goto S_47091;} do{ qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10759,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,6267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10760,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,6271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10764,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHANGEIT_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,6272,"ide_methods.bas");}while(r); -dl_continue_4567:; +if(!qbevent)break;evnt(26307,10765,"ide_methods.bas");}while(r); +dl_continue_5230:; }while(1); -dl_exit_4567:; +dl_exit_5230:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free135.txt" +#include "free149.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT);return _FUNC_IDECHANGEIT_STRING_IDECHANGEIT; @@ -144169,74 +163138,290 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data136.txt" +#include "data150.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_40612:; -fornext_value4575= 1 ; -fornext_finalvalue4575=*__LONG_IDEBMKN; -fornext_step4575= 1 ; -if (fornext_step4575<0) fornext_step_negative4575=1; else fornext_step_negative4575=0; -if (new_error) goto fornext_error4575; -goto fornext_entrylabel4575; +S_47099:; +fornext_value5238= 1 ; +fornext_finalvalue5238=*__LONG_IDEBMKN; +fornext_step5238= 1 ; +if (fornext_step5238<0) fornext_step_negative5238=1; else fornext_step_negative5238=0; +if (new_error) goto fornext_error5238; +goto fornext_entrylabel5238; while(1){ -fornext_value4575=fornext_step4575+(*_SUB_IDEDELLINE_LONG_B); -fornext_entrylabel4575: -*_SUB_IDEDELLINE_LONG_B=fornext_value4575; -if (fornext_step_negative4575){ -if (fornext_value4575fornext_finalvalue4575) break; +if (fornext_value5238>fornext_finalvalue5238) break; } -fornext_error4575:; -if(qbevent){evnt(25066,6280,"ide_methods.bas");if(r)goto S_40612;} -S_40613:; +fornext_error5238:; +if(qbevent){evnt(26307,10773,"ide_methods.bas");if(r)goto S_47099;} +S_47100:; if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEDELLINE_LONG_I))||new_error){ -if(qbevent){evnt(25066,6281,"ide_methods.bas");if(r)goto S_40613;} +if(qbevent){evnt(26307,10774,"ide_methods.bas");if(r)goto S_47100;} do{ *_SUB_IDEDELLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))- 1 ; -if(!qbevent)break;evnt(25066,6282,"ide_methods.bas");}while(r); -S_40615:; +if(!qbevent)break;evnt(26307,10775,"ide_methods.bas");}while(r); +S_47102:; if ((-(*_SUB_IDEDELLINE_LONG_Y== 0 ))||new_error){ -if(qbevent){evnt(25066,6282,"ide_methods.bas");if(r)goto S_40615;} +if(qbevent){evnt(26307,10775,"ide_methods.bas");if(r)goto S_47102;} do{ *_SUB_IDEDELLINE_LONG_Y= 1 ; -if(!qbevent)break;evnt(25066,6282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10775,"ide_methods.bas");}while(r); } do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEDELLINE_LONG_Y; -if(!qbevent)break;evnt(25066,6283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10776,"ide_methods.bas");}while(r); } -fornext_continue_4574:; +fornext_continue_5237:; +} +fornext_exit_5237:; +S_47108:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26307,10780,"ide_methods.bas");if(r)goto S_47108;} +S_47109:; +if (((-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))|(-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1))))||new_error){ +if(qbevent){evnt(26307,10781,"ide_methods.bas");if(r)goto S_47109;} +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +preserved_elements=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +tmp_long=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +preserved_elements=__ARRAY_BYTE_IDESKIPLINES[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDESKIPLINES[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +tmp_long=__ARRAY_BYTE_IDESKIPLINES[5]; +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementsfornext_finalvalue5240) break; +} +fornext_error5240:; +if(qbevent){evnt(26307,10786,"ide_methods.bas");if(r)goto S_47113;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B+ 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26307,10787,"ide_methods.bas");}while(r); +fornext_continue_5239:; +} +fornext_exit_5239:; +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +preserved_elements=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN- 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +tmp_long=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementsfornext_finalvalue5242) break; +} +fornext_error5242:; +if(qbevent){evnt(26307,10791,"ide_methods.bas");if(r)goto S_47117;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26307,10792,"ide_methods.bas");}while(r); +fornext_continue_5241:; +} +fornext_exit_5241:; +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +preserved_elements=__ARRAY_BYTE_IDESKIPLINES[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN- 1 )-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDESKIPLINES[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +tmp_long=__ARRAY_BYTE_IDESKIPLINES[5]; +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementslen-*__LONG_IDELI+ 1 - 8 -*_SUB_IDEDELLINE_LONG_TEXTLEN))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6289,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10799,"ide_methods.bas");}while(r); do{ *__LONG_IDEN=*__LONG_IDEN- 1 ; -if(!qbevent)break;evnt(25066,6290,"ide_methods.bas");}while(r); -S_40625:; +if(!qbevent)break;evnt(26307,10800,"ide_methods.bas");}while(r); +S_47126:; if ((-(*_SUB_IDEDELLINE_LONG_I>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,6292,"ide_methods.bas");if(r)goto S_40625;} +if(qbevent){evnt(26307,10802,"ide_methods.bas");if(r)goto S_47126;} do{ SUB_IDEGOTOLINE(__LONG_IDEN); -if(!qbevent)break;evnt(25066,6292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10802,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free136.txt" +#include "free150.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -144247,7 +163432,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data137.txt" +#include "data151.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -144255,10 +163440,10 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *__INTEGER_IDETXTLAST= 0 ; -if(!qbevent)break;evnt(25066,6297,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10807,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free137.txt" +#include "free151.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -144269,815 +163454,1048 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data138.txt" +#include "data152.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,6301,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10811,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6302,"ide_methods.bas");}while(r); -S_40631:; +if(!qbevent)break;evnt(26307,10812,"ide_methods.bas");}while(r); +S_47132:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 1 ))||new_error){ -if(qbevent){evnt(25066,6305,"ide_methods.bas");if(r)goto S_40631;} -S_40632:; +if(qbevent){evnt(26307,10815,"ide_methods.bas");if(r)goto S_47132;} +S_47133:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(25066,6306,"ide_methods.bas");if(r)goto S_40632;} +if(qbevent){evnt(26307,10816,"ide_methods.bas");if(r)goto S_47133;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(25066,6306,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10816,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,6307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10817,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,6307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10817,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6308,"ide_methods.bas");}while(r); -S_40638:; +if(!qbevent)break;evnt(26307,10818,"ide_methods.bas");}while(r); +S_47139:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,6309,"ide_methods.bas");if(r)goto S_40638;} +if(qbevent){evnt(26307,10819,"ide_methods.bas");if(r)goto S_47139;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10820,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10821,"ide_methods.bas");}while(r); do{ SUB_IDEHPRINT(qbs_add(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len(":",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6311,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10821,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A)+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10822,"ide_methods.bas");}while(r); } -S_40644:; +S_47145:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ -if(qbevent){evnt(25066,6314,"ide_methods.bas");if(r)goto S_40644;} +if(qbevent){evnt(26307,10824,"ide_methods.bas");if(r)goto S_47145;} do{ *_SUB_IDEDRAWOBJ_LONG_X2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 1 ; -if(!qbevent)break;evnt(25066,6314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10824,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*_SUB_IDEDRAWOBJ_LONG_X2-*_SUB_IDEDRAWOBJ_LONG_X- 3 ; -if(!qbevent)break;evnt(25066,6314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10824,"ide_methods.bas");}while(r); } do{ -SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,&(pass4577=*_SUB_IDEDRAWOBJ_LONG_Y- 1 ),&(pass4578=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 4 ),&(pass4579= 3 )); -if(!qbevent)break;evnt(25066,6315,"ide_methods.bas");}while(r); -S_40649:; +SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,&(pass5244=*_SUB_IDEDRAWOBJ_LONG_Y- 1 ),&(pass5245=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 4 ),&(pass5246= 3 )); +if(!qbevent)break;evnt(26307,10825,"ide_methods.bas");}while(r); +S_47150:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ -if(qbevent){evnt(25066,6316,"ide_methods.bas");if(r)goto S_40649;} +if(qbevent){evnt(26307,10826,"ide_methods.bas");if(r)goto S_47150;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); -if(!qbevent)break;evnt(25066,6316,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10826,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6317,"ide_methods.bas");}while(r); -S_40653:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))>_SUB_IDEDRAWOBJ_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,6318,"ide_methods.bas");if(r)goto S_40653;} +if(!qbevent)break;evnt(26307,10827,"ide_methods.bas");}while(r); +S_47154:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))>_SUB_IDEDRAWOBJ_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,10828,"ide_methods.bas");if(r)goto S_47154;} do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))=_SUB_IDEDRAWOBJ_STRING_A->len; -if(!qbevent)break;evnt(25066,6318,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=_SUB_IDEDRAWOBJ_STRING_A->len; +if(!qbevent)break;evnt(26307,10828,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEDRAWOBJ_LONG_CX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,6319,"ide_methods.bas");}while(r); +*_SUB_IDEDRAWOBJ_LONG_CX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,10829,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_TX= 1 ; -if(!qbevent)break;evnt(25066,6321,"ide_methods.bas");}while(r); -S_40658:; +if(!qbevent)break;evnt(26307,10831,"ide_methods.bas");}while(r); +S_47159:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ -if(qbevent){evnt(25066,6322,"ide_methods.bas");if(r)goto S_40658;} -S_40659:; +if(qbevent){evnt(26307,10832,"ide_methods.bas");if(r)goto S_47159;} +S_47160:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ -if(qbevent){evnt(25066,6323,"ide_methods.bas");if(r)goto S_40659;} +if(qbevent){evnt(26307,10833,"ide_methods.bas");if(r)goto S_47160;} do{ -*_SUB_IDEDRAWOBJ_LONG_TX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ; -if(!qbevent)break;evnt(25066,6324,"ide_methods.bas");}while(r); -S_40661:; +*_SUB_IDEDRAWOBJ_LONG_TX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ; +if(!qbevent)break;evnt(26307,10834,"ide_methods.bas");}while(r); +S_47162:; if ((-(*_SUB_IDEDRAWOBJ_LONG_TX< 1 ))||new_error){ -if(qbevent){evnt(25066,6325,"ide_methods.bas");if(r)goto S_40661;} +if(qbevent){evnt(26307,10835,"ide_methods.bas");if(r)goto S_47162;} do{ *_SUB_IDEDRAWOBJ_LONG_TX= 1 ; -if(!qbevent)break;evnt(25066,6325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10835,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_TX,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)),1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6326,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10836,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_CX=*_SUB_IDEDRAWOBJ_LONG_CX-*_SUB_IDEDRAWOBJ_LONG_TX+ 1 ; -if(!qbevent)break;evnt(25066,6327,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10837,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,qbs_left(_SUB_IDEDRAWOBJ_STRING_A,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6329,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10839,"ide_methods.bas");}while(r); } } do{ -*_SUB_IDEDRAWOBJ_LONG_SX1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,6333,"ide_methods.bas");}while(r); +*_SUB_IDEDRAWOBJ_LONG_SX1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,10843,"ide_methods.bas");}while(r); do{ -*_SUB_IDEDRAWOBJ_LONG_SX2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,6333,"ide_methods.bas");}while(r); -S_40672:; +*_SUB_IDEDRAWOBJ_LONG_SX2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,10843,"ide_methods.bas");}while(r); +S_47173:; if ((-(*_SUB_IDEDRAWOBJ_LONG_SX1>*_SUB_IDEDRAWOBJ_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,6334,"ide_methods.bas");if(r)goto S_40672;} +if(qbevent){evnt(26307,10844,"ide_methods.bas");if(r)goto S_47173;} do{ swap_32(&*_SUB_IDEDRAWOBJ_LONG_SX1,&*_SUB_IDEDRAWOBJ_LONG_SX2); -if(!qbevent)break;evnt(25066,6334,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10844,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; -if(!qbevent)break;evnt(25066,6336,"ide_methods.bas");}while(r); -S_40676:; -if (((-(*(int8*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))== 0 ))|(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 )))||new_error){ -if(qbevent){evnt(25066,6338,"ide_methods.bas");if(r)goto S_40676;} +if(!qbevent)break;evnt(26307,10846,"ide_methods.bas");}while(r); +S_47177:; +if (((-(*(int8*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(76))== 0 ))|(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 )))||new_error){ +if(qbevent){evnt(26307,10848,"ide_methods.bas");if(r)goto S_47177;} do{ -qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6339,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDEDRAWOBJ_STRING_A); -if (new_error) goto skip4583; -makefit(tqbs); -qbs_print(tqbs,0); -skip4583: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEDRAWOBJ_LONG_X,*_SUB_IDEDRAWOBJ_LONG_Y,_SUB_IDEDRAWOBJ_STRING_A,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6339,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10849,"ide_methods.bas");}while(r); }else{ -S_40680:; -fornext_value4585= 1 ; -fornext_finalvalue4585=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step4585= 1 ; -if (fornext_step4585<0) fornext_step_negative4585=1; else fornext_step_negative4585=0; -if (new_error) goto fornext_error4585; -goto fornext_entrylabel4585; +S_47180:; +fornext_value5251= 1 ; +fornext_finalvalue5251=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5251= 1 ; +if (fornext_step5251<0) fornext_step_negative5251=1; else fornext_step_negative5251=0; +if (new_error) goto fornext_error5251; +goto fornext_entrylabel5251; while(1){ -fornext_value4585=fornext_step4585+(*_SUB_IDEDRAWOBJ_LONG_COLORCHAR); -fornext_entrylabel4585: -*_SUB_IDEDRAWOBJ_LONG_COLORCHAR=fornext_value4585; +fornext_value5251=fornext_step5251+(*_SUB_IDEDRAWOBJ_LONG_COLORCHAR); +fornext_entrylabel5251: +*_SUB_IDEDRAWOBJ_LONG_COLORCHAR=fornext_value5251; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4585){ -if (fornext_value4585fornext_finalvalue4585) break; +if (fornext_value5251>fornext_finalvalue5251) break; } -fornext_error4585:; -if(qbevent){evnt(25066,6341,"ide_methods.bas");if(r)goto S_40680;} -S_40681:; +fornext_error5251:; +if(qbevent){evnt(26307,10851,"ide_methods.bas");if(r)goto S_47180;} +S_47181:; if (((-((*_SUB_IDEDRAWOBJ_LONG_COLORCHAR+*_SUB_IDEDRAWOBJ_LONG_TX- 2 )>=*_SUB_IDEDRAWOBJ_LONG_SX1))&(-((*_SUB_IDEDRAWOBJ_LONG_COLORCHAR+*_SUB_IDEDRAWOBJ_LONG_TX- 2 )<*_SUB_IDEDRAWOBJ_LONG_SX2)))||new_error){ -if(qbevent){evnt(25066,6342,"ide_methods.bas");if(r)goto S_40681;} +if(qbevent){evnt(26307,10852,"ide_methods.bas");if(r)goto S_47181;} do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,6342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10852,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10852,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X- 1 +*_SUB_IDEDRAWOBJ_LONG_COLORCHAR,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6343,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_COLORCHAR, 1 ,1)); -if (new_error) goto skip4587; -makefit(tqbs); -qbs_print(tqbs,0); -skip4587: -qbs_free(tqbs); +sub__printstring(*_SUB_IDEDRAWOBJ_LONG_X- 1 +*_SUB_IDEDRAWOBJ_LONG_COLORCHAR,*_SUB_IDEDRAWOBJ_LONG_Y,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_COLORCHAR, 1 ,1),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6344,"ide_methods.bas");}while(r); -fornext_continue_4584:; +if(!qbevent)break;evnt(26307,10853,"ide_methods.bas");}while(r); +fornext_continue_5250:; } -fornext_exit_4584:; +fornext_exit_5250:; } -S_40690:; +S_47189:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ -if(qbevent){evnt(25066,6348,"ide_methods.bas");if(r)goto S_40690;} +if(qbevent){evnt(26307,10857,"ide_methods.bas");if(r)goto S_47189;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_CX; -if(!qbevent)break;evnt(25066,6348,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10857,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(25066,6348,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10857,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; -if(!qbevent)break;evnt(25066,6349,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10858,"ide_methods.bas");}while(r); } -S_40696:; +S_47195:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 2 ))||new_error){ -if(qbevent){evnt(25066,6353,"ide_methods.bas");if(r)goto S_40696;} -S_40697:; +if(qbevent){evnt(26307,10862,"ide_methods.bas");if(r)goto S_47195;} +S_47196:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(25066,6354,"ide_methods.bas");if(r)goto S_40697;} +if(qbevent){evnt(26307,10863,"ide_methods.bas");if(r)goto S_47196;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(25066,6354,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10863,"ide_methods.bas");}while(r); } -S_40700:; +S_47199:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ -if(qbevent){evnt(25066,6355,"ide_methods.bas");if(r)goto S_40700;} +if(qbevent){evnt(26307,10864,"ide_methods.bas");if(r)goto S_47199;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 2 -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,6355,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10864,"ide_methods.bas");}while(r); } -S_40703:; +S_47202:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))== 0 ))||new_error){ -if(qbevent){evnt(25066,6356,"ide_methods.bas");if(r)goto S_40703;} +if(qbevent){evnt(26307,10865,"ide_methods.bas");if(r)goto S_47202;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(12))- 1 -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,6356,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10865,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,6357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10866,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,6357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10866,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6358,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10867,"ide_methods.bas");}while(r); do{ -SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,_SUB_IDEDRAWOBJ_LONG_Y,&(pass4588=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ),&(pass4589=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 2 )); -if(!qbevent)break;evnt(25066,6359,"ide_methods.bas");}while(r); -S_40710:; +SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,_SUB_IDEDRAWOBJ_LONG_Y,&(pass5253=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ),&(pass5254=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 2 )); +if(!qbevent)break;evnt(26307,10868,"ide_methods.bas");}while(r); +S_47209:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,6360,"ide_methods.bas");if(r)goto S_40710;} +if(qbevent){evnt(26307,10869,"ide_methods.bas");if(r)goto S_47209;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10870,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ; -if(!qbevent)break;evnt(25066,6362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10871,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_W/ 2 ; -if(!qbevent)break;evnt(25066,6363,"ide_methods.bas");}while(r); -S_40714:; +if(!qbevent)break;evnt(26307,10872,"ide_methods.bas");}while(r); +S_47213:; if ((*_SUB_IDEDRAWOBJ_LONG_W& 1 )||new_error){ -if(qbevent){evnt(25066,6363,"ide_methods.bas");if(r)goto S_40714;} +if(qbevent){evnt(26307,10872,"ide_methods.bas");if(r)goto S_47213;} do{ *_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_M+ 1 ; -if(!qbevent)break;evnt(25066,6363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10872,"ide_methods.bas");}while(r); } do{ qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_M-( 1 )-(((FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A)+ 2 )- 1 )/ 2 ),NULL,NULL,NULL,3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6364,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10873,"ide_methods.bas");}while(r); do{ SUB_IDEHPRINT(qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_IDEDRAWOBJ_STRING_A),qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6364,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10873,"ide_methods.bas");}while(r); } -S_40720:; +S_47219:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))== 0 ))||new_error){ -if(qbevent){evnt(25066,6367,"ide_methods.bas");if(r)goto S_40720;} +if(qbevent){evnt(26307,10876,"ide_methods.bas");if(r)goto S_47219;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))= -1 ; -if(!qbevent)break;evnt(25066,6367,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10876,"ide_methods.bas");}while(r); } -S_40723:; +S_47222:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ -if(qbevent){evnt(25066,6368,"ide_methods.bas");if(r)goto S_40723;} +if(qbevent){evnt(26307,10877,"ide_methods.bas");if(r)goto S_47222;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); -if(!qbevent)break;evnt(25066,6368,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10877,"ide_methods.bas");}while(r); } -S_40726:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))== 0 ))||new_error){ -if(qbevent){evnt(25066,6369,"ide_methods.bas");if(r)goto S_40726;} +S_47225:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))== 0 ))||new_error){ +if(qbevent){evnt(26307,10878,"ide_methods.bas");if(r)goto S_47225;} do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); -if(!qbevent)break;evnt(25066,6369,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); +if(!qbevent)break;evnt(26307,10878,"ide_methods.bas");}while(r); } -S_40729:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))== 0 ))||new_error){ -if(qbevent){evnt(25066,6370,"ide_methods.bas");if(r)goto S_40729;} +S_47228:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))== 0 ))||new_error){ +if(qbevent){evnt(26307,10879,"ide_methods.bas");if(r)goto S_47228;} do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))= 1 ; -if(!qbevent)break;evnt(25066,6370,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))= 1 ; +if(!qbevent)break;evnt(26307,10879,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_S=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); -if(!qbevent)break;evnt(25066,6371,"ide_methods.bas");}while(r); -S_40733:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_S>=(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32)))))||new_error){ -if(qbevent){evnt(25066,6372,"ide_methods.bas");if(r)goto S_40733;} +if(!qbevent)break;evnt(26307,10880,"ide_methods.bas");}while(r); +S_47232:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_S>=(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32)))))||new_error){ +if(qbevent){evnt(26307,10881,"ide_methods.bas");if(r)goto S_47232;} do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))=*_SUB_IDEDRAWOBJ_LONG_S-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(25066,6372,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_S-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26307,10881,"ide_methods.bas");}while(r); } -S_40736:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_S<*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))))||new_error){ -if(qbevent){evnt(25066,6373,"ide_methods.bas");if(r)goto S_40736;} +S_47235:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_S<*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))))||new_error){ +if(qbevent){evnt(26307,10882,"ide_methods.bas");if(r)goto S_47235;} do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77))=*_SUB_IDEDRAWOBJ_LONG_S; -if(!qbevent)break;evnt(25066,6373,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_S; +if(!qbevent)break;evnt(26307,10882,"ide_methods.bas");}while(r); } -S_40739:; +S_47238:; if (((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 ))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))> 0 )))||new_error){ -if(qbevent){evnt(25066,6374,"ide_methods.bas");if(r)goto S_40739;} +if(qbevent){evnt(26307,10883,"ide_methods.bas");if(r)goto S_47238;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))); -if(!qbevent)break;evnt(25066,6374,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10883,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10884,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_N= 1 ; -if(!qbevent)break;evnt(25066,6376,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10885,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_Y= 1 ; -if(!qbevent)break;evnt(25066,6377,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10886,"ide_methods.bas");}while(r); do{ -*_SUB_IDEDRAWOBJ_LONG_V1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,6378,"ide_methods.bas");}while(r); +*_SUB_IDEDRAWOBJ_LONG_V1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,10887,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6379,"ide_methods.bas");}while(r); -S_40747:; -fornext_value4591= 1 ; -fornext_finalvalue4591=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step4591= 1 ; -if (fornext_step4591<0) fornext_step_negative4591=1; else fornext_step_negative4591=0; -if (new_error) goto fornext_error4591; -goto fornext_entrylabel4591; +if(!qbevent)break;evnt(26307,10888,"ide_methods.bas");}while(r); +S_47246:; +fornext_value5256= 1 ; +fornext_finalvalue5256=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5256= 1 ; +if (fornext_step5256<0) fornext_step_negative5256=1; else fornext_step_negative5256=0; +if (new_error) goto fornext_error5256; +goto fornext_entrylabel5256; while(1){ -fornext_value4591=fornext_step4591+(*_SUB_IDEDRAWOBJ_LONG_I2); -fornext_entrylabel4591: -*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value4591; +fornext_value5256=fornext_step5256+(*_SUB_IDEDRAWOBJ_LONG_I2); +fornext_entrylabel5256: +*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5256; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4591){ -if (fornext_value4591fornext_finalvalue4591) break; +if (fornext_value5256>fornext_finalvalue5256) break; } -fornext_error4591:; -if(qbevent){evnt(25066,6380,"ide_methods.bas");if(r)goto S_40747;} +fornext_error5256:; +if(qbevent){evnt(26307,10889,"ide_methods.bas");if(r)goto S_47246;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6381,"ide_methods.bas");}while(r); -S_40749:; +if(!qbevent)break;evnt(26307,10890,"ide_methods.bas");}while(r); +S_47248:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP)))||new_error){ -if(qbevent){evnt(25066,6382,"ide_methods.bas");if(r)goto S_40749;} +if(qbevent){evnt(26307,10891,"ide_methods.bas");if(r)goto S_47248;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,_SUB_IDEDRAWOBJ_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6382,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10891,"ide_methods.bas");}while(r); } -S_40752:; +S_47251:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP))|(-(*_SUB_IDEDRAWOBJ_LONG_I2==_SUB_IDEDRAWOBJ_STRING_A->len))))||new_error){ -if(qbevent){evnt(25066,6383,"ide_methods.bas");if(r)goto S_40752;} -S_40753:; +if(qbevent){evnt(26307,10892,"ide_methods.bas");if(r)goto S_47251;} +S_47252:; if ((-(*_SUB_IDEDRAWOBJ_LONG_N<*_SUB_IDEDRAWOBJ_LONG_V1))||new_error){ -if(qbevent){evnt(25066,6384,"ide_methods.bas");if(r)goto S_40753;} +if(qbevent){evnt(26307,10893,"ide_methods.bas");if(r)goto S_47252;} }else{ -S_40755:; +S_47254:; if ((-(*_SUB_IDEDRAWOBJ_LONG_Y<=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))))||new_error){ -if(qbevent){evnt(25066,6387,"ide_methods.bas");if(r)goto S_40755;} -S_40756:; +if(qbevent){evnt(26307,10896,"ide_methods.bas");if(r)goto S_47254;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(qbs_new_txt_len(" ",1),qbs_rtrim(_SUB_IDEDRAWOBJ_STRING_A3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10897,"ide_methods.bas");}while(r); +S_47256:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(25066,6388,"ide_methods.bas");if(r)goto S_40756;} +if(qbevent){evnt(26307,10898,"ide_methods.bas");if(r)goto S_47256;} do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,6388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10899,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y; +if(!qbevent)break;evnt(26307,10900,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10902,"ide_methods.bas");}while(r); } -S_40761:; +S_47262:; if (((((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))|(-((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))))==*_SUB_IDEDRAWOBJ_LONG_N))))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 )))||new_error){ -if(qbevent){evnt(25066,6389,"ide_methods.bas");if(r)goto S_40761;} +if(qbevent){evnt(26307,10904,"ide_methods.bas");if(r)goto S_47262;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 2 ; -if(!qbevent)break;evnt(25066,6389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10905,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(25066,6389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10905,"ide_methods.bas");}while(r); +S_47265:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 )))))))||new_error){ +if(qbevent){evnt(26307,10906,"ide_methods.bas");if(r)goto S_47265;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))+ 2 ; +if(!qbevent)break;evnt(26307,10907,"ide_methods.bas");}while(r); +} } do{ qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6390,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10911,"ide_methods.bas");}while(r); +S_47270:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,func_chr( 16 ),0)))||new_error){ +if(qbevent){evnt(26307,10912,"ide_methods.bas");if(r)goto S_47270;} do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_IDEDRAWOBJ_STRING_A3),func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))))); +*_SUB_IDEDRAWOBJ_LONG_CHARACTER= 0 ; +if(!qbevent)break;evnt(26307,10917,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT=func_pos( 1 )+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))- 1 ; +if(!qbevent)break;evnt(26307,10918,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CF=func_pos( 1 ); +if(!qbevent)break;evnt(26307,10919,"ide_methods.bas");}while(r); +S_47274:; +do{ +if(qbevent){evnt(26307,10920,"ide_methods.bas");if(r)goto S_47274;} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26307,10921,"ide_methods.bas");}while(r); +S_47276:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER>_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ +if(qbevent){evnt(26307,10922,"ide_methods.bas");if(r)goto S_47276;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))-(func_pos( 1 )-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))))+ 1 )); +if (new_error) goto skip5261; +makefit(tqbs); +qbs_print(tqbs,0); +skip5261: +qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6391,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10923,"ide_methods.bas");}while(r); +do{ +goto dl_exit_5259; +if(!qbevent)break;evnt(26307,10924,"ide_methods.bas");}while(r); +} +S_47280:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER)== 16 ))&(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len))))||new_error){ +if(qbevent){evnt(26307,10926,"ide_methods.bas");if(r)goto S_47280;} +S_47281:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )>= 0 ))&(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )<= 15 ))))||new_error){ +if(qbevent){evnt(26307,10927,"ide_methods.bas");if(r)goto S_47281;} +do{ +qbg_sub_color(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ),NULL,NULL,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10928,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26307,10929,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5259; +if(!qbevent)break;evnt(26307,10930,"ide_methods.bas");}while(r); +S_47285:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 16 ))){ +if(qbevent){evnt(26307,10931,"ide_methods.bas");if(r)goto S_47285;} +S_47286:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26307,10932,"ide_methods.bas");if(r)goto S_47286;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,10932,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,10932,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26307,10933,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5259; +if(!qbevent)break;evnt(26307,10934,"ide_methods.bas");}while(r); +} +} +S_47294:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER)== 17 ))&(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len)))){ +if(qbevent){evnt(26307,10936,"ide_methods.bas");if(r)goto S_47294;} +S_47295:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )>= 0 ))&(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )<= 15 ))))||new_error){ +if(qbevent){evnt(26307,10937,"ide_methods.bas");if(r)goto S_47295;} +S_47296:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))!=*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26307,10938,"ide_methods.bas");if(r)goto S_47296;} +do{ +qbg_sub_color(NULL,qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ),NULL,2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10938,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26307,10939,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5259; +if(!qbevent)break;evnt(26307,10940,"ide_methods.bas");}while(r); +S_47301:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 17 ))){ +if(qbevent){evnt(26307,10941,"ide_methods.bas");if(r)goto S_47301;} +S_47302:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26307,10942,"ide_methods.bas");if(r)goto S_47302;} +do{ +qbg_sub_color(NULL, 0 ,NULL,2); +if(!qbevent)break;evnt(26307,10942,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color(NULL, 7 ,NULL,2); +if(!qbevent)break;evnt(26307,10942,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26307,10943,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5259; +if(!qbevent)break;evnt(26307,10944,"ide_methods.bas");}while(r); +} +} +S_47310:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER== 1 ))&(((qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 ))))))))){ +if(qbevent){evnt(26307,10946,"ide_methods.bas");if(r)goto S_47310;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,10947,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 3 )); +if (new_error) goto skip5264; +makefit(tqbs); +qbs_print(tqbs,0); +skip5264: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10948,"ide_methods.bas");}while(r); +S_47313:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26307,10949,"ide_methods.bas");if(r)goto S_47313;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,10949,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,10949,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER= 3 ; +if(!qbevent)break;evnt(26307,10950,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CF=*_SUB_IDEDRAWOBJ_LONG_CF+ 3 ; +if(!qbevent)break;evnt(26307,10951,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5259; +if(!qbevent)break;evnt(26307,10952,"ide_methods.bas");}while(r); +} +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER, 1 ,1)); +if (new_error) goto skip5265; +makefit(tqbs); +qbs_print(tqbs,0); +skip5265: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10954,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CF=*_SUB_IDEDRAWOBJ_LONG_CF+ 1 ; +if(!qbevent)break;evnt(26307,10955,"ide_methods.bas");}while(r); +S_47324:; +dl_continue_5259:; +}while((!(-(*_SUB_IDEDRAWOBJ_LONG_CF>*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT)))&&(!new_error)); +dl_exit_5259:; +if(qbevent){evnt(26307,10956,"ide_methods.bas");if(r)goto S_47324;} +S_47325:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ +if(qbevent){evnt(26307,10957,"ide_methods.bas");if(r)goto S_47325;} +do{ +sub__printstring(*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT,func_csrlin(),func_chr( 26 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10957,"ide_methods.bas");}while(r); +} +S_47328:; +if ((-(func_pos( 1 )<*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT))||new_error){ +if(qbevent){evnt(26307,10958,"ide_methods.bas");if(r)goto S_47328;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT-func_pos( 1 ))); +if (new_error) goto skip5267; +makefit(tqbs); +qbs_print(tqbs,0); +skip5267: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10959,"ide_methods.bas");}while(r); +} +}else{ +S_47332:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A3->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ +if(qbevent){evnt(26307,10962,"ide_methods.bas");if(r)goto S_47332;} +do{ +sub_mid(_SUB_IDEDRAWOBJ_STRING_A3,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)), 1 ,func_chr( 26 ),1); +if(!qbevent)break;evnt(26307,10962,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10963,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6392,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10964,"ide_methods.bas");}while(r); +S_47337:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 )))))))||new_error){ +if(qbevent){evnt(26307,10966,"ide_methods.bas");if(r)goto S_47337;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,10967,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 3 )); +if (new_error) goto skip5269; +makefit(tqbs); +qbs_print(tqbs,0); +skip5269: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10968,"ide_methods.bas");}while(r); +S_47340:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26307,10969,"ide_methods.bas");if(r)goto S_47340;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,10969,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,10969,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A3, 4 ,NULL,0)); +if (new_error) goto skip5270; +makefit(tqbs); +qbs_print(tqbs,0); +skip5270: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,10970,"ide_methods.bas");}while(r); +}else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,_SUB_IDEDRAWOBJ_STRING_A3); -if (new_error) goto skip4594; +if (new_error) goto skip5271; makefit(tqbs); qbs_print(tqbs,0); -skip4594: +skip5271: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6393,"ide_methods.bas");}while(r); -S_40769:; +if(!qbevent)break;evnt(26307,10972,"ide_methods.bas");}while(r); +} +} +S_47350:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(func_chr( 196 ),qbs_new_txt_len("*",1)),0)> 0 )))||new_error){ -if(qbevent){evnt(25066,6395,"ide_methods.bas");if(r)goto S_40769;} -S_40770:; +if(qbevent){evnt(26307,10976,"ide_methods.bas");if(r)goto S_47350;} +S_47351:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(25066,6396,"ide_methods.bas");if(r)goto S_40770;} +if(qbevent){evnt(26307,10977,"ide_methods.bas");if(r)goto S_47351;} do{ qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,6396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10977,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10977,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 4 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6397,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("*",1)); -if (new_error) goto skip4595; -makefit(tqbs); -qbs_print(tqbs,0); -skip4595: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 4 ,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,qbs_new_txt_len("*",1),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6398,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10978,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_Y=*_SUB_IDEDRAWOBJ_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,6400,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10980,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,6403,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10983,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6404,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10984,"ide_methods.bas");}while(r); } -fornext_continue_4590:; +fornext_continue_5255:; } -fornext_exit_4590:; +fornext_exit_5255:; do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_N- 1 ; -if(!qbevent)break;evnt(25066,6407,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(85))=*_SUB_IDEDRAWOBJ_LONG_N- 1 ; +if(!qbevent)break;evnt(26307,10987,"ide_methods.bas");}while(r); do{ -*_SUB_IDEDRAWOBJ_LONG_TNUM=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,6409,"ide_methods.bas");}while(r); +*_SUB_IDEDRAWOBJ_LONG_TNUM=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(85)); +if(!qbevent)break;evnt(26307,10989,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); -if(!qbevent)break;evnt(25066,6410,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10990,"ide_methods.bas");}while(r); do{ -*_SUB_IDEDRAWOBJ_LONG_Q=FUNC_IDEVBAR(&(pass4596=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ),&(pass4597=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWOBJ_UDT_O)) + (32) ),_SUB_IDEDRAWOBJ_LONG_TSEL,_SUB_IDEDRAWOBJ_LONG_TNUM); -if(!qbevent)break;evnt(25066,6412,"ide_methods.bas");}while(r); +*_SUB_IDEDRAWOBJ_LONG_Q=FUNC_IDEVBAR(&(pass5272=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ),&(pass5273=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWOBJ_UDT_O)) + (32) ),_SUB_IDEDRAWOBJ_LONG_TSEL,_SUB_IDEDRAWOBJ_LONG_TNUM); +if(!qbevent)break;evnt(26307,10992,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; -if(!qbevent)break;evnt(25066,6414,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10994,"ide_methods.bas");}while(r); } -S_40791:; +S_47371:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 3 ))||new_error){ -if(qbevent){evnt(25066,6418,"ide_methods.bas");if(r)goto S_40791;} -S_40792:; +if(qbevent){evnt(26307,10998,"ide_methods.bas");if(r)goto S_47371;} +S_47372:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(25066,6419,"ide_methods.bas");if(r)goto S_40792;} +if(qbevent){evnt(26307,10999,"ide_methods.bas");if(r)goto S_47372;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(25066,6419,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10999,"ide_methods.bas");}while(r); } -S_40795:; +S_47375:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ -if(qbevent){evnt(25066,6420,"ide_methods.bas");if(r)goto S_40795;} +if(qbevent){evnt(26307,11000,"ide_methods.bas");if(r)goto S_47375;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,6420,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11000,"ide_methods.bas");}while(r); } -S_40798:; +S_47378:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ -if(qbevent){evnt(25066,6421,"ide_methods.bas");if(r)goto S_40798;} +if(qbevent){evnt(26307,11001,"ide_methods.bas");if(r)goto S_47378;} do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,6421,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); +if(!qbevent)break;evnt(26307,11001,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6422,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11002,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_N= 1 ; -if(!qbevent)break;evnt(25066,6423,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11003,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_C= 0 ; -if(!qbevent)break;evnt(25066,6424,"ide_methods.bas");}while(r); -S_40804:; -fornext_value4599= 1 ; -fornext_finalvalue4599=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step4599= 1 ; -if (fornext_step4599<0) fornext_step_negative4599=1; else fornext_step_negative4599=0; -if (new_error) goto fornext_error4599; -goto fornext_entrylabel4599; +if(!qbevent)break;evnt(26307,11004,"ide_methods.bas");}while(r); +S_47384:; +fornext_value5275= 1 ; +fornext_finalvalue5275=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5275= 1 ; +if (fornext_step5275<0) fornext_step_negative5275=1; else fornext_step_negative5275=0; +if (new_error) goto fornext_error5275; +goto fornext_entrylabel5275; while(1){ -fornext_value4599=fornext_step4599+(*_SUB_IDEDRAWOBJ_LONG_I2); -fornext_entrylabel4599: -*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value4599; +fornext_value5275=fornext_step5275+(*_SUB_IDEDRAWOBJ_LONG_I2); +fornext_entrylabel5275: +*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5275; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4599){ -if (fornext_value4599fornext_finalvalue4599) break; +if (fornext_value5275>fornext_finalvalue5275) break; } -fornext_error4599:; -if(qbevent){evnt(25066,6425,"ide_methods.bas");if(r)goto S_40804;} +fornext_error5275:; +if(qbevent){evnt(26307,11005,"ide_methods.bas");if(r)goto S_47384;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6426,"ide_methods.bas");}while(r); -S_40806:; +if(!qbevent)break;evnt(26307,11006,"ide_methods.bas");}while(r); +S_47386:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(25066,6427,"ide_methods.bas");if(r)goto S_40806;} +if(qbevent){evnt(26307,11007,"ide_methods.bas");if(r)goto S_47386;} do{ *_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,6428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11008,"ide_methods.bas");}while(r); }else{ -S_40809:; +S_47389:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(25066,6430,"ide_methods.bas");if(r)goto S_40809;} +if(qbevent){evnt(26307,11010,"ide_methods.bas");if(r)goto S_47389;} do{ *_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+ 1 ; -if(!qbevent)break;evnt(25066,6430,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11010,"ide_methods.bas");}while(r); } } -fornext_continue_4598:; +fornext_continue_5274:; } -fornext_exit_4598:; +fornext_exit_5274:; do{ *_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)); -if(!qbevent)break;evnt(25066,6433,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11013,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+(*_SUB_IDEDRAWOBJ_LONG_N* 4 ); -if(!qbevent)break;evnt(25066,6434,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11014,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_WHITESPACE=*_SUB_IDEDRAWOBJ_LONG_W-*_SUB_IDEDRAWOBJ_LONG_C; -if(!qbevent)break;evnt(25066,6435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11015,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_SPACING=*_SUB_IDEDRAWOBJ_LONG_WHITESPACE/ (*_SUB_IDEDRAWOBJ_LONG_N+ 1 ); -if(!qbevent)break;evnt(25066,6436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11016,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 ; -if(!qbevent)break;evnt(25066,6437,"ide_methods.bas");}while(r); -S_40819:; +if(!qbevent)break;evnt(26307,11017,"ide_methods.bas");}while(r); +S_47399:; if (((-(*_SUB_IDEDRAWOBJ_LONG_F2< 1 ))|(-(*_SUB_IDEDRAWOBJ_LONG_F2>*_SUB_IDEDRAWOBJ_LONG_N)))||new_error){ -if(qbevent){evnt(25066,6438,"ide_methods.bas");if(r)goto S_40819;} -S_40820:; +if(qbevent){evnt(26307,11018,"ide_methods.bas");if(r)goto S_47399;} +S_47400:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)))||new_error){ -if(qbevent){evnt(25066,6439,"ide_methods.bas");if(r)goto S_40820;} +if(qbevent){evnt(26307,11019,"ide_methods.bas");if(r)goto S_47400;} do{ *_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)); -if(!qbevent)break;evnt(25066,6439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11019,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEDRAWOBJ_LONG_N2= 1 ; -if(!qbevent)break;evnt(25066,6441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11021,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6442,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11022,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)),*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11023,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,6444,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11024,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6445,"ide_methods.bas");}while(r); -S_40829:; -fornext_value4602= 1 ; -fornext_finalvalue4602=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step4602= 1 ; -if (fornext_step4602<0) fornext_step_negative4602=1; else fornext_step_negative4602=0; -if (new_error) goto fornext_error4602; -goto fornext_entrylabel4602; +if(!qbevent)break;evnt(26307,11025,"ide_methods.bas");}while(r); +S_47409:; +fornext_value5278= 1 ; +fornext_finalvalue5278=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5278= 1 ; +if (fornext_step5278<0) fornext_step_negative5278=1; else fornext_step_negative5278=0; +if (new_error) goto fornext_error5278; +goto fornext_entrylabel5278; while(1){ -fornext_value4602=fornext_step4602+(*_SUB_IDEDRAWOBJ_LONG_I2); -fornext_entrylabel4602: -*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value4602; +fornext_value5278=fornext_step5278+(*_SUB_IDEDRAWOBJ_LONG_I2); +fornext_entrylabel5278: +*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5278; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4602){ -if (fornext_value4602fornext_finalvalue4602) break; +if (fornext_value5278>fornext_finalvalue5278) break; } -fornext_error4602:; -if(qbevent){evnt(25066,6446,"ide_methods.bas");if(r)goto S_40829;} +fornext_error5278:; +if(qbevent){evnt(26307,11026,"ide_methods.bas");if(r)goto S_47409;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6447,"ide_methods.bas");}while(r); -S_40831:; +if(!qbevent)break;evnt(26307,11027,"ide_methods.bas");}while(r); +S_47411:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(25066,6448,"ide_methods.bas");if(r)goto S_40831;} +if(qbevent){evnt(26307,11028,"ide_methods.bas");if(r)goto S_47411;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,_SUB_IDEDRAWOBJ_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6448,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11028,"ide_methods.bas");}while(r); } -S_40834:; +S_47414:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 )))|(-(*_SUB_IDEDRAWOBJ_LONG_I2==_SUB_IDEDRAWOBJ_STRING_A->len))))||new_error){ -if(qbevent){evnt(25066,6449,"ide_methods.bas");if(r)goto S_40834;} +if(qbevent){evnt(26307,11029,"ide_methods.bas");if(r)goto S_47414;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_SPACING)); -if (new_error) goto skip4605; +if (new_error) goto skip5281; makefit(tqbs); qbs_print(tqbs,0); -skip4605: +skip5281: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11030,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_SPACING; -if(!qbevent)break;evnt(25066,6451,"ide_methods.bas");}while(r); -S_40837:; +if(!qbevent)break;evnt(26307,11031,"ide_methods.bas");}while(r); +S_47417:; if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ -if(qbevent){evnt(25066,6452,"ide_methods.bas");if(r)goto S_40837;} +if(qbevent){evnt(26307,11032,"ide_methods.bas");if(r)goto S_47417;} do{ qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11032,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11032,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("< ",2)); -if (new_error) goto skip4606; +if (new_error) goto skip5282; makefit(tqbs); qbs_print(tqbs,0); -skip4606: +skip5282: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11033,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6454,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11034,"ide_methods.bas");}while(r); do{ SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A3); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6454,"ide_methods.bas");}while(r); -S_40845:; +if(!qbevent)break;evnt(26307,11034,"ide_methods.bas");}while(r); +S_47425:; if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ -if(qbevent){evnt(25066,6455,"ide_methods.bas");if(r)goto S_40845;} +if(qbevent){evnt(26307,11035,"ide_methods.bas");if(r)goto S_47425;} do{ qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11035,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6455,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11035,"ide_methods.bas");}while(r); } -S_40850:; +S_47430:; if ((-(*_SUB_IDEDRAWOBJ_LONG_N2==(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 )))||new_error){ -if(qbevent){evnt(25066,6456,"ide_methods.bas");if(r)goto S_40850;} +if(qbevent){evnt(26307,11036,"ide_methods.bas");if(r)goto S_47430;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; -if(!qbevent)break;evnt(25066,6457,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11037,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,6457,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11037,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" >",2)); -if (new_error) goto skip4607; +if (new_error) goto skip5283; makefit(tqbs); qbs_print(tqbs,0); -skip4607: +skip5283: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6459,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11039,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11040,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A3)+ 4 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6461,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11041,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6462,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11042,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_N2=*_SUB_IDEDRAWOBJ_LONG_N2+ 1 ; -if(!qbevent)break;evnt(25066,6463,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11043,"ide_methods.bas");}while(r); } -fornext_continue_4601:; +fornext_continue_5277:; } -fornext_exit_4601:; +fornext_exit_5277:; do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+*_SUB_IDEDRAWOBJ_LONG_N; -if(!qbevent)break;evnt(25066,6466,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11046,"ide_methods.bas");}while(r); } -S_40863:; +S_47443:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 4 ))||new_error){ -if(qbevent){evnt(25066,6470,"ide_methods.bas");if(r)goto S_40863;} -S_40864:; +if(qbevent){evnt(26307,11050,"ide_methods.bas");if(r)goto S_47443;} +S_47444:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(25066,6471,"ide_methods.bas");if(r)goto S_40864;} +if(qbevent){evnt(26307,11051,"ide_methods.bas");if(r)goto S_47444;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(25066,6471,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11051,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,6472,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11052,"ide_methods.bas");}while(r); do{ *_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,6472,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11052,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6473,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11053,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6474,"ide_methods.bas");}while(r); -S_40871:; +if(!qbevent)break;evnt(26307,11054,"ide_methods.bas");}while(r); +S_47451:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))||new_error){ -if(qbevent){evnt(25066,6475,"ide_methods.bas");if(r)goto S_40871;} +if(qbevent){evnt(26307,11055,"ide_methods.bas");if(r)goto S_47451;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("[X] ",4)); -if (new_error) goto skip4608; +if (new_error) goto skip5284; makefit(tqbs); qbs_print(tqbs,0); -skip4608: +skip5284: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6476,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11056,"ide_methods.bas");}while(r); }else{ do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("[ ] ",4)); -if (new_error) goto skip4609; +if (new_error) goto skip5285; makefit(tqbs); qbs_print(tqbs,0); -skip4609: +skip5285: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6478,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11058,"ide_methods.bas");}while(r); } -S_40876:; +S_47456:; if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,6480,"ide_methods.bas");if(r)goto S_40876;} +if(qbevent){evnt(26307,11060,"ide_methods.bas");if(r)goto S_47456;} do{ qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6481,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11061,"ide_methods.bas");}while(r); do{ SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11062,"ide_methods.bas");}while(r); } -S_40880:; +S_47460:; if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ -if(qbevent){evnt(25066,6484,"ide_methods.bas");if(r)goto S_40880;} +if(qbevent){evnt(26307,11064,"ide_methods.bas");if(r)goto S_47460;} do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,6484,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11064,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(25066,6484,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11064,"ide_methods.bas");}while(r); } do{ *_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; -if(!qbevent)break;evnt(25066,6485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11065,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free138.txt" +#include "free152.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -145088,7 +164506,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data139.txt" +#include "data153.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -145096,938 +164514,92 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6491,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11071,"ide_methods.bas");}while(r); do{ -SUB_IDEBOXSHADOW((int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (0) ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (4) ),&(pass4610=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))+ 2 ),&(pass4611=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(12))+ 2 )); -if(!qbevent)break;evnt(25066,6491,"ide_methods.bas");}while(r); -S_40888:; +SUB_IDEBOXSHADOW((int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (0) ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (4) ),&(pass5286=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))+ 2 ),&(pass5287=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(12))+ 2 )); +if(!qbevent)break;evnt(26307,11071,"ide_methods.bas");}while(r); +S_47468:; if ((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))||new_error){ -if(qbevent){evnt(25066,6492,"ide_methods.bas");if(r)goto S_40888;} +if(qbevent){evnt(26307,11072,"ide_methods.bas");if(r)goto S_47468;} do{ *_SUB_IDEDRAWPAR_LONG_X=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6493,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11073,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6494,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11074,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(4)),*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))/ 2 ))-((*_SUB_IDEDRAWPAR_LONG_X- 1 )/ 2 ),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6494,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(" ",1))); -if (new_error) goto skip4613; -makefit(tqbs); -qbs_print(tqbs,0); -skip4613: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))/ 2 ))-((*_SUB_IDEDRAWPAR_LONG_X- 1 )/ 2 ),*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(4)),qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(" ",1)),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6494,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11074,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free139.txt" +#include "free153.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_IDEERRORMESSAGE(qbs*_SUB_IDEERRORMESSAGE_STRING_MESS){ +qbs* FUNC_IDEFILEEXISTS(qbs*_FUNC_IDEFILEEXISTS_STRING_F){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data140.txt" +#include "data154.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,6502,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,6503,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,6504,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6505,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6506,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,6507,"ide_methods.bas");}while(r); -do{ - -if (_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4]= 1 ; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]=( 100 )-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4]+1; -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[6]=1; -if (_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]&4){ -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0]),0,_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]*680/8+1); -}else{ -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]*680/8+1,1); -if (!_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0]) error(257); -} -_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,6508,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,6509,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEERRORMESSAGE_STRING1_SEP,func_chr( 0 )); +*_FUNC_IDEFILEEXISTS_LONG_L=_FUNC_IDEFILEEXISTS_STRING_F->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11079,"ide_methods.bas");}while(r); +S_47474:; do{ -*_SUB_IDEERRORMESSAGE_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,6514,"ide_methods.bas");}while(r); +if(qbevent){evnt(26307,11080,"ide_methods.bas");if(r)goto S_47474;} +S_47475:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFILEEXISTS_LONG_L<_FUNC_IDEFILEEXISTS_STRING_F->len)))||new_error){ +if(qbevent){evnt(26307,11081,"ide_methods.bas");if(r)goto S_47475;} do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_IDEERRORMESSAGE_UDT_P)) + (0) ),&(pass4616=_SUB_IDEERRORMESSAGE_STRING_MESS->len+ 4 ),&(pass4617= 4 ),qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDEFILEEXISTS_STRING_M,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("File ",5),func_chr( 34 )),func_string( 3 , 250 )),qbs_right(_FUNC_IDEFILEEXISTS_STRING_F,*_FUNC_IDEFILEEXISTS_LONG_L)),func_chr( 34 )),qbs_new_txt_len(" already exists. Overwrite?",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6515,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_I=*_SUB_IDEERRORMESSAGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6516,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,6517,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,6518,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,6519,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,6520,"ide_methods.bas");}while(r); -S_40910:; -fornext_value4619= 1 ; -fornext_finalvalue4619= 100 ; -fornext_step4619= 1 ; -if (fornext_step4619<0) fornext_step_negative4619=1; else fornext_step_negative4619=0; -if (new_error) goto fornext_error4619; -goto fornext_entrylabel4619; -while(1){ -fornext_value4619=fornext_step4619+(*_SUB_IDEERRORMESSAGE_LONG_I); -fornext_entrylabel4619: -*_SUB_IDEERRORMESSAGE_LONG_I=fornext_value4619; -if (fornext_step_negative4619){ -if (fornext_value4619fornext_finalvalue4619) break; -} -fornext_error4619:; -if(qbevent){evnt(25066,6524,"ide_methods.bas");if(r)goto S_40910;} -do{ -memcpy(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_IDEERRORMESSAGE_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,6524,"ide_methods.bas");}while(r); -fornext_continue_4618:; -} -fornext_exit_4618:; -S_40913:; -do{ -if(qbevent){evnt(25066,6527,"ide_methods.bas");if(r)goto S_40913;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDEERRORMESSAGE_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,6530,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6531,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,6531,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,6531,"ide_methods.bas");}while(r); -S_40918:; -fornext_value4622= 1 ; -fornext_finalvalue4622= 100 ; -fornext_step4622= 1 ; -if (fornext_step4622<0) fornext_step_negative4622=1; else fornext_step_negative4622=0; -if (new_error) goto fornext_error4622; -goto fornext_entrylabel4622; -while(1){ -fornext_value4622=fornext_step4622+(*_SUB_IDEERRORMESSAGE_LONG_I); -fornext_entrylabel4622: -*_SUB_IDEERRORMESSAGE_LONG_I=fornext_value4622; -if (fornext_step_negative4622){ -if (fornext_value4622fornext_finalvalue4622) break; -} -fornext_error4622:; -if(qbevent){evnt(25066,6532,"ide_methods.bas");if(r)goto S_40918;} -S_40919:; -if ((*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,6533,"ide_methods.bas");if(r)goto S_40919;} -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+60))=*_SUB_IDEERRORMESSAGE_LONG_FOCUS-*_SUB_IDEERRORMESSAGE_LONG_F; -if(!qbevent)break;evnt(25066,6535,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,6536,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,6536,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85) ),_SUB_IDEERRORMESSAGE_LONG_F); -if(!qbevent)break;evnt(25066,6537,"ide_methods.bas");}while(r); -S_40924:; -if ((*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,6538,"ide_methods.bas");if(r)goto S_40924;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_CX=*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,6538,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_CY=*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,6538,"ide_methods.bas");}while(r); -} -} -fornext_continue_4621:; -} -fornext_exit_4621:; -do{ -*_SUB_IDEERRORMESSAGE_LONG_LASTFOCUS=*_SUB_IDEERRORMESSAGE_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,6541,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6545,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDEERRORMESSAGE_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_SUB_IDEERRORMESSAGE_UDT_P)+(0))+ 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6545,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDEERRORMESSAGE_STRING_MESS); -if (new_error) goto skip4623; -makefit(tqbs); -qbs_print(tqbs,0); -skip4623: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6545,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,6549,"ide_methods.bas");}while(r); -S_40935:; -if ((*_SUB_IDEERRORMESSAGE_LONG_CX)||new_error){ -if(qbevent){evnt(25066,6550,"ide_methods.bas");if(r)goto S_40935;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6550,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDEERRORMESSAGE_LONG_CY,*_SUB_IDEERRORMESSAGE_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,6550,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6550,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,6553,"ide_methods.bas");}while(r); -S_40941:; -do{ -if(qbevent){evnt(25066,6554,"ide_methods.bas");if(r)goto S_40941;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,6555,"ide_methods.bas");}while(r); -S_40943:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,6556,"ide_methods.bas");if(r)goto S_40943;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6556,"ide_methods.bas");}while(r); -} -S_40946:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,6557,"ide_methods.bas");if(r)goto S_40946;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6557,"ide_methods.bas");}while(r); -} -S_40949:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,6558,"ide_methods.bas");if(r)goto S_40949;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,6558,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6558,"ide_methods.bas");}while(r); -} -S_40953:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,6559,"ide_methods.bas");if(r)goto S_40953;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,6559,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6559,"ide_methods.bas");}while(r); -} -S_40957:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,6560,"ide_methods.bas");if(r)goto S_40957;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6560,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEERRORMESSAGE_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,6561,"ide_methods.bas");}while(r); -S_40961:; -if ((-(*_SUB_IDEERRORMESSAGE_LONG_ALT!=*_SUB_IDEERRORMESSAGE_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,6561,"ide_methods.bas");if(r)goto S_40961;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6561,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEERRORMESSAGE_LONG_OLDALT=*_SUB_IDEERRORMESSAGE_LONG_ALT; -if(!qbevent)break;evnt(25066,6562,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,6563,"ide_methods.bas");}while(r); -S_40966:; -dl_continue_4624:; -}while((!(*_SUB_IDEERRORMESSAGE_LONG_CHANGE))&&(!new_error)); -dl_exit_4624:; -if(qbevent){evnt(25066,6564,"ide_methods.bas");if(r)goto S_40966;} -S_40967:; -if ((*_SUB_IDEERRORMESSAGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6565,"ide_methods.bas");if(r)goto S_40967;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,6565,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11082,"ide_methods.bas");}while(r); }else{ do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,6565,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEERRORMESSAGE_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDEFILEEXISTS_STRING_M,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("File ",5),func_chr( 34 )),_FUNC_IDEFILEEXISTS_STRING_F),func_chr( 34 )),qbs_new_txt_len(" already exists. Overwrite?",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6567,"ide_methods.bas");}while(r); -S_40973:; -if ((*_SUB_IDEERRORMESSAGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6568,"ide_methods.bas");if(r)goto S_40973;} -S_40974:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,6569,"ide_methods.bas");if(r)goto S_40974;} +if(!qbevent)break;evnt(26307,11084,"ide_methods.bas");}while(r); +} do{ -*_SUB_IDEERRORMESSAGE_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +*_FUNC_IDEFILEEXISTS_LONG_L=*_FUNC_IDEFILEEXISTS_LONG_L- 1 ; +if(!qbevent)break;evnt(26307,11086,"ide_methods.bas");}while(r); +S_47481:; +dl_continue_5291:; +}while((!(qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEEXISTS_STRING_M->len+ 4 )<((*__LONG_IDEWX- 6 ))))))&&(!new_error)); +dl_exit_5291:; +if(qbevent){evnt(26307,11087,"ide_methods.bas");if(r)goto S_47481;} +do{ +*_FUNC_IDEFILEEXISTS_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Save",4),_FUNC_IDEFILEEXISTS_STRING_M,qbs_new_txt_len("#Yes;#No",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6570,"ide_methods.bas");}while(r); -S_40976:; -if (((-(*_SUB_IDEERRORMESSAGE_LONG_K>= 65 ))&(-(*_SUB_IDEERRORMESSAGE_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,6571,"ide_methods.bas");if(r)goto S_40976;} -do{ -qbs_set(_SUB_IDEERRORMESSAGE_STRING_ALTLETTER,func_chr(*_SUB_IDEERRORMESSAGE_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6571,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6574,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,6574,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6574,"ide_methods.bas");}while(r); -S_40984:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,6577,"ide_methods.bas");if(r)goto S_40984;} -do{ -qbs_set(_SUB_IDEERRORMESSAGE_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6577,"ide_methods.bas");}while(r); -} -S_40987:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,6578,"ide_methods.bas");if(r)goto S_40987;} -do{ -qbs_set(_SUB_IDEERRORMESSAGE_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6578,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEERRORMESSAGE_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,6581,"ide_methods.bas");}while(r); -S_40991:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,6582,"ide_methods.bas");if(r)goto S_40991;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6582,"ide_methods.bas");}while(r); -} -S_40994:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,6583,"ide_methods.bas");if(r)goto S_40994;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_FOCUS=*_SUB_IDEERRORMESSAGE_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,6583,"ide_methods.bas");}while(r); -} -S_40997:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,6584,"ide_methods.bas");if(r)goto S_40997;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_FOCUS=*_SUB_IDEERRORMESSAGE_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,6584,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6584,"ide_methods.bas");}while(r); -} -S_41001:; -if ((-(*_SUB_IDEERRORMESSAGE_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,6585,"ide_methods.bas");if(r)goto S_41001;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_FOCUS=*_SUB_IDEERRORMESSAGE_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,6585,"ide_methods.bas");}while(r); -} -S_41004:; -if ((-(*_SUB_IDEERRORMESSAGE_LONG_FOCUS>*_SUB_IDEERRORMESSAGE_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,6586,"ide_methods.bas");if(r)goto S_41004;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6586,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEERRORMESSAGE_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6587,"ide_methods.bas");}while(r); -S_41008:; -fornext_value4627= 1 ; -fornext_finalvalue4627= 100 ; -fornext_step4627= 1 ; -if (fornext_step4627<0) fornext_step_negative4627=1; else fornext_step_negative4627=0; -if (new_error) goto fornext_error4627; -goto fornext_entrylabel4627; -while(1){ -fornext_value4627=fornext_step4627+(*_SUB_IDEERRORMESSAGE_LONG_I); -fornext_entrylabel4627: -*_SUB_IDEERRORMESSAGE_LONG_I=fornext_value4627; -if (fornext_step_negative4627){ -if (fornext_value4627fornext_finalvalue4627) break; -} -fornext_error4627:; -if(qbevent){evnt(25066,6588,"ide_methods.bas");if(r)goto S_41008;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_T=*(int32*)(((char*)_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,6589,"ide_methods.bas");}while(r); -S_41010:; -if ((*_SUB_IDEERRORMESSAGE_LONG_T)||new_error){ -if(qbevent){evnt(25066,6590,"ide_methods.bas");if(r)goto S_41010;} -do{ -*_SUB_IDEERRORMESSAGE_LONG_FOCUSOFFSET=*_SUB_IDEERRORMESSAGE_LONG_FOCUS-*_SUB_IDEERRORMESSAGE_LONG_F; -if(!qbevent)break;evnt(25066,6591,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEERRORMESSAGE_LONG_I)-_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[4],_SUB_IDEERRORMESSAGE_ARRAY_UDT_O[5]))*85) ),_SUB_IDEERRORMESSAGE_LONG_FOCUS,_SUB_IDEERRORMESSAGE_LONG_F,_SUB_IDEERRORMESSAGE_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDEERRORMESSAGE_STRING_ALTLETTER,__LONG_MB,_SUB_IDEERRORMESSAGE_LONG_MOUSEDOWN,_SUB_IDEERRORMESSAGE_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDEERRORMESSAGE_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6592,"ide_methods.bas");}while(r); -} -fornext_continue_4626:; -} -fornext_exit_4626:; -S_41015:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,6597,"ide_methods.bas");if(r)goto S_41015;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6598,"ide_methods.bas");}while(r); -} -S_41018:; -if ((*_SUB_IDEERRORMESSAGE_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,6601,"ide_methods.bas");if(r)goto S_41018;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6602,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEERRORMESSAGE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,6607,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEERRORMESSAGE_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,6608,"ide_methods.bas");}while(r); -dl_continue_4620:; -}while(1); -dl_exit_4620:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free140.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEFILEEXISTS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data141.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,6616,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,6617,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,6618,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6619,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6620,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,6621,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4]+1; -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[6]=1; -if (_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]&4){ -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0]),0,_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,6622,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,6623,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6624,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,6628,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEEXISTS_UDT_P)) + (0) ),&(pass4628= 35 ),&(pass4629= 4 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6630,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_I=*_FUNC_IDEFILEEXISTS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6631,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,6632,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,6633,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Yes",4),_FUNC_IDEFILEEXISTS_STRING1_SEP),qbs_new_txt_len("#No",3))); -if(!qbevent)break;evnt(25066,6634,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,6635,"ide_methods.bas");}while(r); -S_41040:; -fornext_value4631= 1 ; -fornext_finalvalue4631= 100 ; -fornext_step4631= 1 ; -if (fornext_step4631<0) fornext_step_negative4631=1; else fornext_step_negative4631=0; -if (new_error) goto fornext_error4631; -goto fornext_entrylabel4631; -while(1){ -fornext_value4631=fornext_step4631+(*_FUNC_IDEFILEEXISTS_LONG_I); -fornext_entrylabel4631: -*_FUNC_IDEFILEEXISTS_LONG_I=fornext_value4631; -if (fornext_step_negative4631){ -if (fornext_value4631fornext_finalvalue4631) break; -} -fornext_error4631:; -if(qbevent){evnt(25066,6639,"ide_methods.bas");if(r)goto S_41040;} -do{ -memcpy(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEFILEEXISTS_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,6639,"ide_methods.bas");}while(r); -fornext_continue_4630:; -} -fornext_exit_4630:; -S_41043:; -do{ -if(qbevent){evnt(25066,6642,"ide_methods.bas");if(r)goto S_41043;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFILEEXISTS_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,6645,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6646,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,6646,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,6646,"ide_methods.bas");}while(r); -S_41048:; -fornext_value4634= 1 ; -fornext_finalvalue4634= 100 ; -fornext_step4634= 1 ; -if (fornext_step4634<0) fornext_step_negative4634=1; else fornext_step_negative4634=0; -if (new_error) goto fornext_error4634; -goto fornext_entrylabel4634; -while(1){ -fornext_value4634=fornext_step4634+(*_FUNC_IDEFILEEXISTS_LONG_I); -fornext_entrylabel4634: -*_FUNC_IDEFILEEXISTS_LONG_I=fornext_value4634; -if (fornext_step_negative4634){ -if (fornext_value4634fornext_finalvalue4634) break; -} -fornext_error4634:; -if(qbevent){evnt(25066,6647,"ide_methods.bas");if(r)goto S_41048;} -S_41049:; -if ((*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,6648,"ide_methods.bas");if(r)goto S_41049;} -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEFILEEXISTS_LONG_FOCUS-*_FUNC_IDEFILEEXISTS_LONG_F; -if(!qbevent)break;evnt(25066,6650,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,6651,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,6651,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEFILEEXISTS_LONG_F); -if(!qbevent)break;evnt(25066,6652,"ide_methods.bas");}while(r); -S_41054:; -if ((*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,6653,"ide_methods.bas");if(r)goto S_41054;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_CX=*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,6653,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_CY=*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,6653,"ide_methods.bas");}while(r); -} -} -fornext_continue_4633:; -} -fornext_exit_4633:; -do{ -*_FUNC_IDEFILEEXISTS_LONG_LASTFOCUS=*_FUNC_IDEFILEEXISTS_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,6656,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,6660,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEFILEEXISTS_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDEFILEEXISTS_UDT_P)+(0))+ 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,6660,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("File already exists. Overwrite?",31)); -if (new_error) goto skip4635; -makefit(tqbs); -qbs_print(tqbs,0); -skip4635: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6660,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,6664,"ide_methods.bas");}while(r); -S_41065:; -if ((*_FUNC_IDEFILEEXISTS_LONG_CX)||new_error){ -if(qbevent){evnt(25066,6665,"ide_methods.bas");if(r)goto S_41065;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6665,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEFILEEXISTS_LONG_CY,*_FUNC_IDEFILEEXISTS_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,6665,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6665,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,6668,"ide_methods.bas");}while(r); -S_41071:; -do{ -if(qbevent){evnt(25066,6669,"ide_methods.bas");if(r)goto S_41071;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,6670,"ide_methods.bas");}while(r); -S_41073:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,6671,"ide_methods.bas");if(r)goto S_41073;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6671,"ide_methods.bas");}while(r); -} -S_41076:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,6672,"ide_methods.bas");if(r)goto S_41076;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6672,"ide_methods.bas");}while(r); -} -S_41079:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,6673,"ide_methods.bas");if(r)goto S_41079;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,6673,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6673,"ide_methods.bas");}while(r); -} -S_41083:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,6674,"ide_methods.bas");if(r)goto S_41083;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,6674,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6674,"ide_methods.bas");}while(r); -} -S_41087:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,6675,"ide_methods.bas");if(r)goto S_41087;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6675,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,6676,"ide_methods.bas");}while(r); -S_41091:; -if ((-(*_FUNC_IDEFILEEXISTS_LONG_ALT!=*_FUNC_IDEFILEEXISTS_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,6676,"ide_methods.bas");if(r)goto S_41091;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6676,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_OLDALT=*_FUNC_IDEFILEEXISTS_LONG_ALT; -if(!qbevent)break;evnt(25066,6677,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,6678,"ide_methods.bas");}while(r); -S_41096:; -dl_continue_4636:; -}while((!(*_FUNC_IDEFILEEXISTS_LONG_CHANGE))&&(!new_error)); -dl_exit_4636:; -if(qbevent){evnt(25066,6679,"ide_methods.bas");if(r)goto S_41096;} -S_41097:; -if ((*_FUNC_IDEFILEEXISTS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6680,"ide_methods.bas");if(r)goto S_41097;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,6680,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,6680,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6682,"ide_methods.bas");}while(r); -S_41103:; -if ((*_FUNC_IDEFILEEXISTS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6683,"ide_methods.bas");if(r)goto S_41103;} -S_41104:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,6684,"ide_methods.bas");if(r)goto S_41104;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6685,"ide_methods.bas");}while(r); -S_41106:; -if (((-(*_FUNC_IDEFILEEXISTS_LONG_K>= 65 ))&(-(*_FUNC_IDEFILEEXISTS_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,6686,"ide_methods.bas");if(r)goto S_41106;} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_ALTLETTER,func_chr(*_FUNC_IDEFILEEXISTS_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6686,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6689,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,6689,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6689,"ide_methods.bas");}while(r); -S_41114:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,6692,"ide_methods.bas");if(r)goto S_41114;} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6692,"ide_methods.bas");}while(r); -} -S_41117:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,6693,"ide_methods.bas");if(r)goto S_41117;} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6693,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,6696,"ide_methods.bas");}while(r); -S_41121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,6697,"ide_methods.bas");if(r)goto S_41121;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6697,"ide_methods.bas");}while(r); -} -S_41124:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,6698,"ide_methods.bas");if(r)goto S_41124;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_FOCUS=*_FUNC_IDEFILEEXISTS_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,6698,"ide_methods.bas");}while(r); -} -S_41127:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,6699,"ide_methods.bas");if(r)goto S_41127;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_FOCUS=*_FUNC_IDEFILEEXISTS_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,6699,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6699,"ide_methods.bas");}while(r); -} -S_41131:; -if ((-(*_FUNC_IDEFILEEXISTS_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,6700,"ide_methods.bas");if(r)goto S_41131;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_FOCUS=*_FUNC_IDEFILEEXISTS_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,6700,"ide_methods.bas");}while(r); -} -S_41134:; -if ((-(*_FUNC_IDEFILEEXISTS_LONG_FOCUS>*_FUNC_IDEFILEEXISTS_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,6701,"ide_methods.bas");if(r)goto S_41134;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6701,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6702,"ide_methods.bas");}while(r); -S_41138:; -fornext_value4639= 1 ; -fornext_finalvalue4639= 100 ; -fornext_step4639= 1 ; -if (fornext_step4639<0) fornext_step_negative4639=1; else fornext_step_negative4639=0; -if (new_error) goto fornext_error4639; -goto fornext_entrylabel4639; -while(1){ -fornext_value4639=fornext_step4639+(*_FUNC_IDEFILEEXISTS_LONG_I); -fornext_entrylabel4639: -*_FUNC_IDEFILEEXISTS_LONG_I=fornext_value4639; -if (fornext_step_negative4639){ -if (fornext_value4639fornext_finalvalue4639) break; -} -fornext_error4639:; -if(qbevent){evnt(25066,6703,"ide_methods.bas");if(r)goto S_41138;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_T=*(int32*)(((char*)_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,6704,"ide_methods.bas");}while(r); -S_41140:; -if ((*_FUNC_IDEFILEEXISTS_LONG_T)||new_error){ -if(qbevent){evnt(25066,6705,"ide_methods.bas");if(r)goto S_41140;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_FOCUSOFFSET=*_FUNC_IDEFILEEXISTS_LONG_FOCUS-*_FUNC_IDEFILEEXISTS_LONG_F; -if(!qbevent)break;evnt(25066,6706,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEEXISTS_LONG_I)-_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[4],_FUNC_IDEFILEEXISTS_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEFILEEXISTS_LONG_FOCUS,_FUNC_IDEFILEEXISTS_LONG_F,_FUNC_IDEFILEEXISTS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFILEEXISTS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFILEEXISTS_LONG_MOUSEDOWN,_FUNC_IDEFILEEXISTS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFILEEXISTS_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6707,"ide_methods.bas");}while(r); -} -fornext_continue_4638:; -} -fornext_exit_4638:; -S_41145:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,6712,"ide_methods.bas");if(r)goto S_41145;} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6713,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6714,"ide_methods.bas");}while(r); -} -S_41149:; -if ((*_FUNC_IDEFILEEXISTS_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,6717,"ide_methods.bas");if(r)goto S_41149;} -S_41150:; -if ((-(*_FUNC_IDEFILEEXISTS_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,6718,"ide_methods.bas");if(r)goto S_41150;} +if(!qbevent)break;evnt(26307,11089,"ide_methods.bas");}while(r); +S_47483:; +if ((-(*_FUNC_IDEFILEEXISTS_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,11090,"ide_methods.bas");if(r)goto S_47483;} do{ qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6718,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11090,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("N",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6718,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11090,"ide_methods.bas");}while(r); } -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,6719,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,6723,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEEXISTS_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,6724,"ide_methods.bas");}while(r); -dl_continue_4632:; -}while(1); -dl_exit_4632:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free141.txt" +#include "free154.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS);return _FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS; @@ -146039,7 +164611,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data142.txt" +#include "data155.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -146069,175 +164641,175 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_l while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(25066,6735,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11095,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,6737,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11097,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,6738,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11098,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6739,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11099,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6740,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11100,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,6741,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11101,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDEFIND_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEFIND_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEFIND_ARRAY_UDT_O[4]+1; _FUNC_IDEFIND_ARRAY_UDT_O[6]=1; if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&4){ -_FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEFIND_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEFIND_ARRAY_UDT_O[0]),0,_FUNC_IDEFIND_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEFIND_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEFIND_ARRAY_UDT_O[0]),0,_FUNC_IDEFIND_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEFIND_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDEFIND_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEFIND_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDEFIND_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEFIND_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,6742,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11102,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,6743,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11103,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFIND_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6744,"ide_methods.bas");}while(r); -S_41169:; +if(!qbevent)break;evnt(26307,11104,"ide_methods.bas");}while(r); +S_47497:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,6750,"ide_methods.bas");if(r)goto S_41169;} -S_41170:; +if(qbevent){evnt(26307,11110,"ide_methods.bas");if(r)goto S_47497;} +S_47498:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,6751,"ide_methods.bas");if(r)goto S_41170;} +if(qbevent){evnt(26307,11111,"ide_methods.bas");if(r)goto S_47498;} do{ qbs_set(_FUNC_IDEFIND_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6752,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11112,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6753,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11113,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,6754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11114,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,6754,"ide_methods.bas");}while(r); -S_41175:; +if(!qbevent)break;evnt(26307,11114,"ide_methods.bas");}while(r); +S_47503:; if ((-(*_FUNC_IDEFIND_LONG_SX2<*_FUNC_IDEFIND_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,6755,"ide_methods.bas");if(r)goto S_41175;} +if(qbevent){evnt(26307,11115,"ide_methods.bas");if(r)goto S_47503;} do{ swap_32(&*_FUNC_IDEFIND_LONG_SX1,&*_FUNC_IDEFIND_LONG_SX2); -if(!qbevent)break;evnt(25066,6755,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11115,"ide_methods.bas");}while(r); } -S_41178:; -fornext_value4641=*_FUNC_IDEFIND_LONG_SX1; -fornext_finalvalue4641=*_FUNC_IDEFIND_LONG_SX2- 1 ; -fornext_step4641= 1 ; -if (fornext_step4641<0) fornext_step_negative4641=1; else fornext_step_negative4641=0; -if (new_error) goto fornext_error4641; -goto fornext_entrylabel4641; +S_47506:; +fornext_value5295=*_FUNC_IDEFIND_LONG_SX1; +fornext_finalvalue5295=*_FUNC_IDEFIND_LONG_SX2- 1 ; +fornext_step5295= 1 ; +if (fornext_step5295<0) fornext_step_negative5295=1; else fornext_step_negative5295=0; +if (new_error) goto fornext_error5295; +goto fornext_entrylabel5295; while(1){ -fornext_value4641=fornext_step4641+(*_FUNC_IDEFIND_LONG_X); -fornext_entrylabel4641: -*_FUNC_IDEFIND_LONG_X=fornext_value4641; -if (fornext_step_negative4641){ -if (fornext_value4641fornext_finalvalue4641) break; +if (fornext_value5295>fornext_finalvalue5295) break; } -fornext_error4641:; -if(qbevent){evnt(25066,6756,"ide_methods.bas");if(r)goto S_41178;} -S_41179:; +fornext_error5295:; +if(qbevent){evnt(26307,11116,"ide_methods.bas");if(r)goto S_47506;} +S_47507:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_X<=_FUNC_IDEFIND_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,6757,"ide_methods.bas");if(r)goto S_41179;} +if(qbevent){evnt(26307,11117,"ide_methods.bas");if(r)goto S_47507;} do{ qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,func_mid(_FUNC_IDEFIND_STRING_A,*_FUNC_IDEFIND_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6757,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11117,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6757,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11117,"ide_methods.bas");}while(r); } -fornext_continue_4640:; +fornext_continue_5294:; } -fornext_exit_4640:; +fornext_exit_5294:; } } -S_41187:; +S_47515:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,6761,"ide_methods.bas");if(r)goto S_41187;} +if(qbevent){evnt(26307,11121,"ide_methods.bas");if(r)goto S_47515;} do{ qbs_set(_FUNC_IDEFIND_STRING_A2,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11122,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_LN= 0 ; -if(!qbevent)break;evnt(25066,6766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11126,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,6767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11127,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_FUNC_IDEFIND_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6768,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11128,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFIND_STRING_A,func_space(func_lof(*_FUNC_IDEFIND_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6768,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11128,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDEFIND_LONG_FH,NULL,_FUNC_IDEFIND_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6768,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11128,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_IDEFIND_LONG_FH,1); -if(!qbevent)break;evnt(25066,6769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11129,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEFIND_STRING_A,qbs_right(_FUNC_IDEFIND_STRING_A,_FUNC_IDEFIND_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6770,"ide_methods.bas");}while(r); -S_41197:; +if(!qbevent)break;evnt(26307,11130,"ide_methods.bas");}while(r); +S_47525:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDEFIND_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,6771,"ide_methods.bas");if(r)goto S_41197;} +if(qbevent){evnt(26307,11131,"ide_methods.bas");if(r)goto S_47525;} do{ *_FUNC_IDEFIND_LONG_AI=func_instr(NULL,_FUNC_IDEFIND_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6772,"ide_methods.bas");}while(r); -S_41199:; +if(!qbevent)break;evnt(26307,11132,"ide_methods.bas");}while(r); +S_47527:; if ((*_FUNC_IDEFIND_LONG_AI)||new_error){ -if(qbevent){evnt(25066,6773,"ide_methods.bas");if(r)goto S_41199;} +if(qbevent){evnt(26307,11133,"ide_methods.bas");if(r)goto S_47527;} do{ qbs_set(_FUNC_IDEFIND_STRING_F,qbs_left(_FUNC_IDEFIND_STRING_A,*_FUNC_IDEFIND_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6774,"ide_methods.bas");}while(r); -S_41201:; +if(!qbevent)break;evnt(26307,11134,"ide_methods.bas");}while(r); +S_47529:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_AI==(_FUNC_IDEFIND_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(25066,6774,"ide_methods.bas");if(r)goto S_41201;} +if(qbevent){evnt(26307,11134,"ide_methods.bas");if(r)goto S_47529;} do{ qbs_set(_FUNC_IDEFIND_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6774,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11134,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEFIND_STRING_A,qbs_right(_FUNC_IDEFIND_STRING_A,_FUNC_IDEFIND_STRING_A->len-*_FUNC_IDEFIND_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6774,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11134,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_LN=*_FUNC_IDEFIND_LONG_LN+ 1 ; -if(!qbevent)break;evnt(25066,6775,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11135,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&2){ @@ -146282,4163 +164854,680 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_l } } } -if(!qbevent)break;evnt(25066,6776,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11136,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEFIND_LONG_LN)-_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long])),_FUNC_IDEFIND_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11137,"ide_methods.bas");}while(r); } -dl_continue_4645:; +dl_continue_5299:; } -dl_exit_4645:; +dl_exit_5299:; do{ *_FUNC_IDEFIND_LONG_LN= 0 ; -if(!qbevent)break;evnt(25066,6780,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11140,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,6782,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11142,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) ),&(pass4648= 60 ),&(pass4649= 9 ),qbs_new_txt_len("Find",4)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) ),&(pass5302= 60 ),&(pass5303= 11 ),qbs_new_txt_len("Find",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6783,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11143,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6784,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11144,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,6785,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11145,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,6786,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,11146,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,6787,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,11147,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); -if(!qbevent)break;evnt(25066,6788,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); +if(!qbevent)break;evnt(26307,11148,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEFIND_STRING_A2); -if(!qbevent)break;evnt(25066,6789,"ide_methods.bas");}while(r); -S_41220:; +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFIND_STRING_A2); +if(!qbevent)break;evnt(26307,11149,"ide_methods.bas");}while(r); +S_47548:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFIND_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,6790,"ide_methods.bas");if(r)goto S_41220;} +if(qbevent){evnt(26307,11150,"ide_methods.bas");if(r)goto S_47548;} do{ -*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,6791,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,11151,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,6792,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,11152,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEFIND_STRING_A2->len; -if(!qbevent)break;evnt(25066,6794,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEFIND_STRING_A2->len; +if(!qbevent)break;evnt(26307,11154,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6798,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11158,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,6799,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11159,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,6800,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,11160,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); -if(!qbevent)break;evnt(25066,6801,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); +if(!qbevent)break;evnt(26307,11161,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))=*__INTEGER_IDEFINDCASESENS; -if(!qbevent)break;evnt(25066,6802,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDCASESENS; +if(!qbevent)break;evnt(26307,11162,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6804,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11164,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,6805,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11165,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+24))= 6 ; -if(!qbevent)break;evnt(25066,6806,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 6 ; +if(!qbevent)break;evnt(26307,11166,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); -if(!qbevent)break;evnt(25066,6807,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); +if(!qbevent)break;evnt(26307,11167,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))=*__INTEGER_IDEFINDWHOLEWORD; -if(!qbevent)break;evnt(25066,6808,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDWHOLEWORD; +if(!qbevent)break;evnt(26307,11168,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6810,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11170,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,6811,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11171,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+24))= 7 ; -if(!qbevent)break;evnt(25066,6812,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 7 ; +if(!qbevent)break;evnt(26307,11172,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); -if(!qbevent)break;evnt(25066,6813,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); +if(!qbevent)break;evnt(26307,11173,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64))=*__INTEGER_IDEFINDBACKWARDS; -if(!qbevent)break;evnt(25066,6814,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDBACKWARDS; +if(!qbevent)break;evnt(26307,11174,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,6816,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11176,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,6817,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11177,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+24))= 9 ; -if(!qbevent)break;evnt(25066,6818,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26307,11178,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDEFIND_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,6819,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); +if(!qbevent)break;evnt(26307,11179,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,6820,"ide_methods.bas");}while(r); -S_41245:; -fornext_value4653= 1 ; -fornext_finalvalue4653= 100 ; -fornext_step4653= 1 ; -if (fornext_step4653<0) fornext_step_negative4653=1; else fornext_step_negative4653=0; -if (new_error) goto fornext_error4653; -goto fornext_entrylabel4653; +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOCOMMENTS; +if(!qbevent)break;evnt(26307,11180,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11182,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11183,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26307,11184,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26307,11185,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); +if(!qbevent)break;evnt(26307,11186,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYCOMMENTS; +if(!qbevent)break;evnt(26307,11187,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11189,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11190,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26307,11191,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Ignore ",7),func_chr( 34 )),qbs_new_txt_len("s#trings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26307,11192,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOSTRINGS; +if(!qbevent)break;evnt(26307,11193,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11195,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11196,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26307,11197,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26307,11198,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Look only in ",13),func_chr( 34 )),qbs_new_txt_len("st#rings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26307,11199,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYSTRINGS; +if(!qbevent)break;evnt(26307,11200,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11202,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,11203,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26307,11204,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEFIND_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,11205,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,11206,"ide_methods.bas");}while(r); +S_47595:; +fornext_value5307= 1 ; +fornext_finalvalue5307= 100 ; +fornext_step5307= 1 ; +if (fornext_step5307<0) fornext_step_negative5307=1; else fornext_step_negative5307=0; +if (new_error) goto fornext_error5307; +goto fornext_entrylabel5307; while(1){ -fornext_value4653=fornext_step4653+(*_FUNC_IDEFIND_LONG_I); -fornext_entrylabel4653: -*_FUNC_IDEFIND_LONG_I=fornext_value4653; -if (fornext_step_negative4653){ -if (fornext_value4653fornext_finalvalue4653) break; +if (fornext_value5307>fornext_finalvalue5307) break; } -fornext_error4653:; -if(qbevent){evnt(25066,6824,"ide_methods.bas");if(r)goto S_41245;} +fornext_error5307:; +if(qbevent){evnt(26307,11210,"ide_methods.bas");if(r)goto S_47595;} do{ -memcpy(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEFIND_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,6824,"ide_methods.bas");}while(r); -fornext_continue_4652:; +memcpy(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEFIND_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,11210,"ide_methods.bas");}while(r); +fornext_continue_5306:; } -fornext_exit_4652:; -S_41248:; +fornext_exit_5306:; +S_47598:; do{ -if(qbevent){evnt(25066,6827,"ide_methods.bas");if(r)goto S_41248;} +if(qbevent){evnt(26307,11213,"ide_methods.bas");if(r)goto S_47598;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,6831,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11217,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11218,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,6832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11218,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,6832,"ide_methods.bas");}while(r); -S_41253:; -fornext_value4656= 1 ; -fornext_finalvalue4656= 100 ; -fornext_step4656= 1 ; -if (fornext_step4656<0) fornext_step_negative4656=1; else fornext_step_negative4656=0; -if (new_error) goto fornext_error4656; -goto fornext_entrylabel4656; +if(!qbevent)break;evnt(26307,11218,"ide_methods.bas");}while(r); +S_47603:; +fornext_value5310= 1 ; +fornext_finalvalue5310= 100 ; +fornext_step5310= 1 ; +if (fornext_step5310<0) fornext_step_negative5310=1; else fornext_step_negative5310=0; +if (new_error) goto fornext_error5310; +goto fornext_entrylabel5310; while(1){ -fornext_value4656=fornext_step4656+(*_FUNC_IDEFIND_LONG_I); -fornext_entrylabel4656: -*_FUNC_IDEFIND_LONG_I=fornext_value4656; -if (fornext_step_negative4656){ -if (fornext_value4656fornext_finalvalue4656) break; +if (fornext_value5310>fornext_finalvalue5310) break; } -fornext_error4656:; -if(qbevent){evnt(25066,6833,"ide_methods.bas");if(r)goto S_41253;} -S_41254:; -if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,6834,"ide_methods.bas");if(r)goto S_41254;} +fornext_error5310:; +if(qbevent){evnt(26307,11219,"ide_methods.bas");if(r)goto S_47603;} +S_47604:; +if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,11220,"ide_methods.bas");if(r)goto S_47604;} do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; -if(!qbevent)break;evnt(25066,6837,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; +if(!qbevent)break;evnt(26307,11223,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,6838,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,11224,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,6838,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,11224,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEFIND_LONG_F); -if(!qbevent)break;evnt(25066,6839,"ide_methods.bas");}while(r); -S_41259:; -if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,6840,"ide_methods.bas");if(r)goto S_41259;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFIND_LONG_F); +if(!qbevent)break;evnt(26307,11225,"ide_methods.bas");}while(r); +S_47609:; +if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,11226,"ide_methods.bas");if(r)goto S_47609;} do{ -*_FUNC_IDEFIND_LONG_CX=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,6840,"ide_methods.bas");}while(r); +*_FUNC_IDEFIND_LONG_CX=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,11226,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEFIND_LONG_CY=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,6840,"ide_methods.bas");}while(r); +*_FUNC_IDEFIND_LONG_CY=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,11226,"ide_methods.bas");}while(r); } } -fornext_continue_4655:; +fornext_continue_5309:; } -fornext_exit_4655:; +fornext_exit_5309:; do{ *_FUNC_IDEFIND_LONG_LASTFOCUS=*_FUNC_IDEFIND_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,6843,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11229,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,6850,"ide_methods.bas");}while(r); -S_41267:; +if(!qbevent)break;evnt(26307,11236,"ide_methods.bas");}while(r); +S_47617:; if ((*_FUNC_IDEFIND_LONG_CX)||new_error){ -if(qbevent){evnt(25066,6851,"ide_methods.bas");if(r)goto S_41267;} +if(qbevent){evnt(26307,11237,"ide_methods.bas");if(r)goto S_47617;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11237,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDEFIND_LONG_CY,*_FUNC_IDEFIND_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,6851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11237,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6851,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11237,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,6854,"ide_methods.bas");}while(r); -S_41273:; +if(!qbevent)break;evnt(26307,11240,"ide_methods.bas");}while(r); +S_47623:; do{ -if(qbevent){evnt(25066,6855,"ide_methods.bas");if(r)goto S_41273;} +if(qbevent){evnt(26307,11241,"ide_methods.bas");if(r)goto S_47623;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,6856,"ide_methods.bas");}while(r); -S_41275:; +if(!qbevent)break;evnt(26307,11242,"ide_methods.bas");}while(r); +S_47625:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,6857,"ide_methods.bas");if(r)goto S_41275;} +if(qbevent){evnt(26307,11243,"ide_methods.bas");if(r)goto S_47625;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6857,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11243,"ide_methods.bas");}while(r); } -S_41278:; +S_47628:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,6858,"ide_methods.bas");if(r)goto S_41278;} +if(qbevent){evnt(26307,11244,"ide_methods.bas");if(r)goto S_47628;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6858,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11244,"ide_methods.bas");}while(r); } -S_41281:; +S_47631:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,6859,"ide_methods.bas");if(r)goto S_41281;} +if(qbevent){evnt(26307,11245,"ide_methods.bas");if(r)goto S_47631;} do{ *_FUNC_IDEFIND_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,6859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11245,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11245,"ide_methods.bas");}while(r); } -S_41285:; +S_47635:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,6860,"ide_methods.bas");if(r)goto S_41285;} +if(qbevent){evnt(26307,11246,"ide_methods.bas");if(r)goto S_47635;} do{ *_FUNC_IDEFIND_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,6860,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11246,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6860,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11246,"ide_methods.bas");}while(r); } -S_41289:; +S_47639:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,6861,"ide_methods.bas");if(r)goto S_41289;} +if(qbevent){evnt(26307,11247,"ide_methods.bas");if(r)goto S_47639;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6861,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11247,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,6862,"ide_methods.bas");}while(r); -S_41293:; +if(!qbevent)break;evnt(26307,11248,"ide_methods.bas");}while(r); +S_47643:; if ((-(*_FUNC_IDEFIND_LONG_ALT!=*_FUNC_IDEFIND_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,6862,"ide_methods.bas");if(r)goto S_41293;} +if(qbevent){evnt(26307,11248,"ide_methods.bas");if(r)goto S_47643;} do{ *_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,6862,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11248,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_OLDALT=*_FUNC_IDEFIND_LONG_ALT; -if(!qbevent)break;evnt(25066,6863,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11249,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,6864,"ide_methods.bas");}while(r); -S_41298:; -dl_continue_4657:; +if(!qbevent)break;evnt(26307,11250,"ide_methods.bas");}while(r); +S_47648:; +dl_continue_5311:; }while((!(*_FUNC_IDEFIND_LONG_CHANGE))&&(!new_error)); -dl_exit_4657:; -if(qbevent){evnt(25066,6865,"ide_methods.bas");if(r)goto S_41298;} -S_41299:; +dl_exit_5311:; +if(qbevent){evnt(26307,11251,"ide_methods.bas");if(r)goto S_47648;} +S_47649:; if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6866,"ide_methods.bas");if(r)goto S_41299;} +if(qbevent){evnt(26307,11252,"ide_methods.bas");if(r)goto S_47649;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,6866,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11252,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,6866,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11252,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6868,"ide_methods.bas");}while(r); -S_41305:; +if(!qbevent)break;evnt(26307,11254,"ide_methods.bas");}while(r); +S_47655:; if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,6869,"ide_methods.bas");if(r)goto S_41305;} -S_41306:; +if(qbevent){evnt(26307,11255,"ide_methods.bas");if(r)goto S_47655;} +S_47656:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,6870,"ide_methods.bas");if(r)goto S_41306;} +if(qbevent){evnt(26307,11256,"ide_methods.bas");if(r)goto S_47656;} do{ *_FUNC_IDEFIND_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6871,"ide_methods.bas");}while(r); -S_41308:; +if(!qbevent)break;evnt(26307,11257,"ide_methods.bas");}while(r); +S_47658:; if (((-(*_FUNC_IDEFIND_LONG_K>= 65 ))&(-(*_FUNC_IDEFIND_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,6872,"ide_methods.bas");if(r)goto S_41308;} +if(qbevent){evnt(26307,11258,"ide_methods.bas");if(r)goto S_47658;} do{ qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,func_chr(*_FUNC_IDEFIND_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6872,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11258,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11261,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,6875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11261,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,6875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11261,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,6879,"ide_methods.bas");}while(r); -S_41317:; +if(!qbevent)break;evnt(26307,11265,"ide_methods.bas");}while(r); +S_47667:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,6880,"ide_methods.bas");if(r)goto S_41317;} +if(qbevent){evnt(26307,11266,"ide_methods.bas");if(r)goto S_47667;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6880,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11266,"ide_methods.bas");}while(r); } -S_41320:; +S_47670:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,6881,"ide_methods.bas");if(r)goto S_41320;} +if(qbevent){evnt(26307,11267,"ide_methods.bas");if(r)goto S_47670;} do{ *_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,6881,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11267,"ide_methods.bas");}while(r); } -S_41323:; +S_47673:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,6882,"ide_methods.bas");if(r)goto S_41323;} +if(qbevent){evnt(26307,11268,"ide_methods.bas");if(r)goto S_47673;} do{ *_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,6882,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11268,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6882,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11268,"ide_methods.bas");}while(r); } -S_41327:; +S_47677:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,6883,"ide_methods.bas");if(r)goto S_41327;} +if(qbevent){evnt(26307,11269,"ide_methods.bas");if(r)goto S_47677;} do{ *_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,6883,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11269,"ide_methods.bas");}while(r); } -S_41330:; +S_47680:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS>*_FUNC_IDEFIND_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,6884,"ide_methods.bas");if(r)goto S_41330;} +if(qbevent){evnt(26307,11270,"ide_methods.bas");if(r)goto S_47680;} do{ *_FUNC_IDEFIND_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,6884,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11270,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEFIND_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,6885,"ide_methods.bas");}while(r); -S_41334:; -fornext_value4660= 1 ; -fornext_finalvalue4660= 100 ; -fornext_step4660= 1 ; -if (fornext_step4660<0) fornext_step_negative4660=1; else fornext_step_negative4660=0; -if (new_error) goto fornext_error4660; -goto fornext_entrylabel4660; +if(!qbevent)break;evnt(26307,11271,"ide_methods.bas");}while(r); +S_47684:; +fornext_value5314= 1 ; +fornext_finalvalue5314= 100 ; +fornext_step5314= 1 ; +if (fornext_step5314<0) fornext_step_negative5314=1; else fornext_step_negative5314=0; +if (new_error) goto fornext_error5314; +goto fornext_entrylabel5314; while(1){ -fornext_value4660=fornext_step4660+(*_FUNC_IDEFIND_LONG_I); -fornext_entrylabel4660: -*_FUNC_IDEFIND_LONG_I=fornext_value4660; -if (fornext_step_negative4660){ -if (fornext_value4660fornext_finalvalue4660) break; +if (fornext_value5314>fornext_finalvalue5314) break; } -fornext_error4660:; -if(qbevent){evnt(25066,6886,"ide_methods.bas");if(r)goto S_41334;} +fornext_error5314:; +if(qbevent){evnt(26307,11272,"ide_methods.bas");if(r)goto S_47684;} do{ -*_FUNC_IDEFIND_LONG_T=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,6887,"ide_methods.bas");}while(r); -S_41336:; +*_FUNC_IDEFIND_LONG_T=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,11273,"ide_methods.bas");}while(r); +S_47686:; if ((*_FUNC_IDEFIND_LONG_T)||new_error){ -if(qbevent){evnt(25066,6888,"ide_methods.bas");if(r)goto S_41336;} +if(qbevent){evnt(26307,11274,"ide_methods.bas");if(r)goto S_47686;} do{ *_FUNC_IDEFIND_LONG_FOCUSOFFSET=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; -if(!qbevent)break;evnt(25066,6889,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11275,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEFIND_LONG_FOCUS,_FUNC_IDEFIND_LONG_F,_FUNC_IDEFIND_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFIND_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFIND_LONG_MOUSEDOWN,_FUNC_IDEFIND_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFIND_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFIND_LONG_FOCUS,_FUNC_IDEFIND_LONG_F,_FUNC_IDEFIND_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFIND_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFIND_LONG_MOUSEDOWN,_FUNC_IDEFIND_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFIND_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6890,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11276,"ide_methods.bas");}while(r); } -fornext_continue_4659:; +fornext_continue_5313:; } -fornext_exit_4659:; -S_41341:; +fornext_exit_5313:; +S_47691:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS!=*_FUNC_IDEFIND_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,6896,"ide_methods.bas");if(r)goto S_41341;} +if(qbevent){evnt(26307,11282,"ide_methods.bas");if(r)goto S_47691;} do{ *_FUNC_IDEFIND_LONG_PREVFOCUS=*_FUNC_IDEFIND_LONG_FOCUS; -if(!qbevent)break;evnt(25066,6898,"ide_methods.bas");}while(r); -S_41343:; +if(!qbevent)break;evnt(26307,11284,"ide_methods.bas");}while(r); +S_47693:; if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,6899,"ide_methods.bas");if(r)goto S_41343;} +if(qbevent){evnt(26307,11285,"ide_methods.bas");if(r)goto S_47693;} do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,6900,"ide_methods.bas");}while(r); -S_41345:; -if ((-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,6901,"ide_methods.bas");if(r)goto S_41345;} +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,11286,"ide_methods.bas");}while(r); +S_47695:; +if ((-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,11287,"ide_methods.bas");if(r)goto S_47695;} do{ -*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,6901,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,11287,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,6902,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,11288,"ide_methods.bas");}while(r); } } -S_41351:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,6906,"ide_methods.bas");if(r)goto S_41351;} +S_47701:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 10 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,11292,"ide_methods.bas");if(r)goto S_47701;} do{ qbs_set(_FUNC_IDEFIND_STRING_IDEFIND,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6907,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11293,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,6908,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11294,"ide_methods.bas");}while(r); } -S_41355:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,6911,"ide_methods.bas");if(r)goto S_41355;} +S_47705:; +if (((-(*_FUNC_IDEFIND_LONG_FOCUS== 5 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26307,11298,"ide_methods.bas");if(r)goto S_47705;} do{ -*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,6912,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11299,"ide_methods.bas");}while(r); +S_47707:; +}else{ +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 6 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26307,11300,"ide_methods.bas");if(r)goto S_47707;} do{ -*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,6913,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11301,"ide_methods.bas");}while(r); do{ -*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,6914,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11302,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEFIND_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11303,"ide_methods.bas");}while(r); +S_47711:; +}else{ +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 7 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26307,11304,"ide_methods.bas");if(r)goto S_47711;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11305,"ide_methods.bas");}while(r); +S_47713:; +}else{ +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 8 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26307,11306,"ide_methods.bas");if(r)goto S_47713;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11307,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11308,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11309,"ide_methods.bas");}while(r); +} +} +} +} +S_47718:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 9 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,11312,"ide_methods.bas");if(r)goto S_47718;} +do{ +*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11313,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11314,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11315,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11316,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11317,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11318,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11319,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFIND_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6915,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11320,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDEFIND_STRING_S); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6916,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11321,"ide_methods.bas");}while(r); do{ SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6917,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11322,"ide_methods.bas");}while(r); do{ -SUB_IDEFINDAGAIN(); -if(!qbevent)break;evnt(25066,6918,"ide_methods.bas");}while(r); +SUB_IDEFINDAGAIN(&(pass5316= 0 )); +if(!qbevent)break;evnt(26307,11323,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,6919,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11324,"ide_methods.bas");}while(r); } -S_41365:; +S_47732:; if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ -if(qbevent){evnt(25066,6922,"ide_methods.bas");if(r)goto S_41365;} -S_41366:; +if(qbevent){evnt(26307,11327,"ide_methods.bas");if(r)goto S_47732;} +S_47733:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(25066,6923,"ide_methods.bas");if(r)goto S_41366;} -S_41367:; +if(qbevent){evnt(26307,11328,"ide_methods.bas");if(r)goto S_47733;} +S_47734:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_LNlen; -if(!qbevent)break;evnt(25066,6928,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,11333,"ide_methods.bas");}while(r); } -S_41375:; +S_47742:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(25066,6931,"ide_methods.bas");if(r)goto S_41375;} -S_41376:; +if(qbevent){evnt(26307,11336,"ide_methods.bas");if(r)goto S_47742;} +S_47743:; if ((-(*_FUNC_IDEFIND_LONG_LN> 1 ))||new_error){ -if(qbevent){evnt(25066,6932,"ide_methods.bas");if(r)goto S_41376;} +if(qbevent){evnt(26307,11337,"ide_methods.bas");if(r)goto S_47743;} do{ *_FUNC_IDEFIND_LONG_LN=*_FUNC_IDEFIND_LONG_LN- 1 ; -if(!qbevent)break;evnt(25066,6933,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11338,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEFIND_LONG_LN= 1 ; -if(!qbevent)break;evnt(25066,6935,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11340,"ide_methods.bas");}while(r); } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDEFIND_LONG_LN)-_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6937,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11342,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,6938,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,11343,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,6938,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,11343,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,6938,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,11343,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEFIND_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,6945,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11350,"ide_methods.bas");}while(r); do{ *_FUNC_IDEFIND_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,6946,"ide_methods.bas");}while(r); -dl_continue_4654:; +if(!qbevent)break;evnt(26307,11351,"ide_methods.bas");}while(r); +dl_continue_5308:; }while(1); -dl_exit_4654:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free142.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEFIND_STRING_IDEFIND);return _FUNC_IDEFIND_STRING_IDEFIND; -} -void SUB_IDEFINDAGAIN(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data143.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_41390:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(25066,6952,"ide_methods.bas");if(r)goto S_41390;} -S_41391:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(25066,6953,"ide_methods.bas");if(r)goto S_41391;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(25066,6953,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(25066,6953,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_S,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6956,"ide_methods.bas");}while(r); -S_41398:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,6957,"ide_methods.bas");if(r)goto S_41398;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_S,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6957,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEFINDAGAIN_LONG_START=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,6958,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_START; -if(!qbevent)break;evnt(25066,6959,"ide_methods.bas");}while(r); -LABEL_IDEFINDNEXT2:; -if(qbevent){evnt(25066,6961,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,FUNC_IDEGETLINE(_SUB_IDEFINDAGAIN_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6962,"ide_methods.bas");}while(r); -S_41404:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(25066,6963,"ide_methods.bas");if(r)goto S_41404;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6963,"ide_methods.bas");}while(r); -} -S_41407:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_Y==*_SUB_IDEFINDAGAIN_LONG_START))||new_error){ -if(qbevent){evnt(25066,6965,"ide_methods.bas");if(r)goto S_41407;} -S_41408:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 ))||new_error){ -if(qbevent){evnt(25066,6967,"ide_methods.bas");if(r)goto S_41408;} -S_41409:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,6968,"ide_methods.bas");if(r)goto S_41409;} -S_41410:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(25066,6969,"ide_methods.bas");if(r)goto S_41410;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6969,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6969,"ide_methods.bas");}while(r); -} -}else{ -S_41416:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(25066,6971,"ide_methods.bas");if(r)goto S_41416;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6971,"ide_methods.bas");}while(r); -} -} -}else{ -S_41421:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,6974,"ide_methods.bas");if(r)goto S_41421;} -S_41422:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(25066,6975,"ide_methods.bas");if(r)goto S_41422;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX- 1 +(_SUB_IDEFINDAGAIN_STRING_S->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6975,"ide_methods.bas");}while(r); -} -}else{ -S_41426:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(25066,6977,"ide_methods.bas");if(r)goto S_41426;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6977,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6977,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1= 1 ; -if(!qbevent)break;evnt(25066,6982,"ide_methods.bas");}while(r); -S_41435:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,6983,"ide_methods.bas");if(r)goto S_41435;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1=_SUB_IDEFINDAGAIN_STRING_L->len-_SUB_IDEFINDAGAIN_STRING_S->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6984,"ide_methods.bas");}while(r); -S_41437:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_X1< 0 ))||new_error){ -if(qbevent){evnt(25066,6985,"ide_methods.bas");if(r)goto S_41437;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1= 0 ; -if(!qbevent)break;evnt(25066,6985,"ide_methods.bas");}while(r); -} -} -LABEL_IDEFINDAGAIN2:; -if(qbevent){evnt(25066,6988,"ide_methods.bas");r=0;} -S_41441:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,6990,"ide_methods.bas");if(r)goto S_41441;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,6991,"ide_methods.bas");}while(r); -S_41443:; -fornext_value4674=*_SUB_IDEFINDAGAIN_LONG_X1; -fornext_finalvalue4674= 1 ; -fornext_step4674= -1 ; -if (fornext_step4674<0) fornext_step_negative4674=1; else fornext_step_negative4674=0; -if (new_error) goto fornext_error4674; -goto fornext_entrylabel4674; -while(1){ -fornext_value4674=fornext_step4674+(*_SUB_IDEFINDAGAIN_LONG_XX); -fornext_entrylabel4674: -*_SUB_IDEFINDAGAIN_LONG_XX=fornext_value4674; -if (fornext_step_negative4674){ -if (fornext_value4674fornext_finalvalue4674) break; -} -fornext_error4674:; -if(qbevent){evnt(25066,6992,"ide_methods.bas");if(r)goto S_41443;} -S_41444:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX)==qbs_asc(_SUB_IDEFINDAGAIN_STRING_S))))||new_error){ -if(qbevent){evnt(25066,6993,"ide_methods.bas");if(r)goto S_41444;} -do{ -*_SUB_IDEFINDAGAIN_LONG_XXO=*_SUB_IDEFINDAGAIN_LONG_XX- 1 ; -if(!qbevent)break;evnt(25066,6994,"ide_methods.bas");}while(r); -S_41446:; -fornext_value4676=*_SUB_IDEFINDAGAIN_LONG_XX; -fornext_finalvalue4676=*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len- 1 ; -fornext_step4676= 1 ; -if (fornext_step4676<0) fornext_step_negative4676=1; else fornext_step_negative4676=0; -if (new_error) goto fornext_error4676; -goto fornext_entrylabel4676; -while(1){ -fornext_value4676=fornext_step4676+(*_SUB_IDEFINDAGAIN_LONG_XX2); -fornext_entrylabel4676: -*_SUB_IDEFINDAGAIN_LONG_XX2=fornext_value4676; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4676){ -if (fornext_value4676fornext_finalvalue4676) break; -} -fornext_error4676:; -if(qbevent){evnt(25066,6995,"ide_methods.bas");if(r)goto S_41446;} -S_41447:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX2)!=qbs_asc(_SUB_IDEFINDAGAIN_STRING_S,*_SUB_IDEFINDAGAIN_LONG_XX2-*_SUB_IDEFINDAGAIN_LONG_XXO))))||new_error){ -if(qbevent){evnt(25066,6996,"ide_methods.bas");if(r)goto S_41447;} -do{ -goto fornext_exit_4675; -if(!qbevent)break;evnt(25066,6996,"ide_methods.bas");}while(r); -} -fornext_continue_4675:; -} -fornext_exit_4675:; -S_41451:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEFINDAGAIN_LONG_XX2==(*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len))))||new_error){ -if(qbevent){evnt(25066,6998,"ide_methods.bas");if(r)goto S_41451;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X=*_SUB_IDEFINDAGAIN_LONG_XX; -if(!qbevent)break;evnt(25066,7000,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4673; -if(!qbevent)break;evnt(25066,7001,"ide_methods.bas");}while(r); -} -} -fornext_continue_4673:; -} -fornext_exit_4673:; -}else{ -do{ -*_SUB_IDEFINDAGAIN_LONG_X=func_instr(*_SUB_IDEFINDAGAIN_LONG_X1,_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_S,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7006,"ide_methods.bas");}while(r); -} -S_41460:; -if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ -if(qbevent){evnt(25066,7010,"ide_methods.bas");if(r)goto S_41460;} -S_41461:; -if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(25066,7011,"ide_methods.bas");if(r)goto S_41461;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 1 ; -if(!qbevent)break;evnt(25066,7012,"ide_methods.bas");}while(r); -S_41463:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(25066,7013,"ide_methods.bas");if(r)goto S_41463;} -do{ -*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X- 1 , 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7014,"ide_methods.bas");}while(r); -S_41465:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(25066,7015,"ide_methods.bas");if(r)goto S_41465;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,7015,"ide_methods.bas");}while(r); -} -S_41468:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(25066,7016,"ide_methods.bas");if(r)goto S_41468;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,7016,"ide_methods.bas");}while(r); -} -} -S_41472:; -if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len)<=(_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ -if(qbevent){evnt(25066,7018,"ide_methods.bas");if(r)goto S_41472;} -do{ -*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7019,"ide_methods.bas");}while(r); -S_41474:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(25066,7020,"ide_methods.bas");if(r)goto S_41474;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,7020,"ide_methods.bas");}while(r); -} -S_41477:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(25066,7021,"ide_methods.bas");if(r)goto S_41477;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(25066,7021,"ide_methods.bas");}while(r); -} -} -S_41481:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_WHOLE== 0 ))||new_error){ -if(qbevent){evnt(25066,7023,"ide_methods.bas");if(r)goto S_41481;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,7024,"ide_methods.bas");}while(r); -S_41483:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,7024,"ide_methods.bas");if(r)goto S_41483;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X- 1 ; -if(!qbevent)break;evnt(25066,7024,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,7025,"ide_methods.bas");}while(r); -S_41487:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEFINDAGAIN_LONG_X1> 0 ))&(-(*_SUB_IDEFINDAGAIN_LONG_X1<=_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ -if(qbevent){evnt(25066,7026,"ide_methods.bas");if(r)goto S_41487;} -do{ -goto LABEL_IDEFINDAGAIN2; -if(!qbevent)break;evnt(25066,7026,"ide_methods.bas");}while(r); -} -} -} -} -S_41493:; -if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ -if(qbevent){evnt(25066,7031,"ide_methods.bas");if(r)goto S_41493;} -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,7032,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_SUB_IDEFINDAGAIN_LONG_X; -if(!qbevent)break;evnt(25066,7033,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_IDEFINDAGAIN_LONG_Y; -if(!qbevent)break;evnt(25066,7033,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7034,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*_SUB_IDEFINDAGAIN_LONG_Y; -if(!qbevent)break;evnt(25066,7034,"ide_methods.bas");}while(r); -S_41499:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(25066,7036,"ide_methods.bas");if(r)goto S_41499;} -S_41500:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(25066,7037,"ide_methods.bas");if(r)goto S_41500;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(25066,7037,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(25066,7037,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDEFINDINVERT= 0 ; -if(!qbevent)break;evnt(25066,7038,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7040,"ide_methods.bas");}while(r); -} -S_41509:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(25066,7043,"ide_methods.bas");if(r)goto S_41509;} -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y- 1 ; -if(!qbevent)break;evnt(25066,7044,"ide_methods.bas");}while(r); -S_41511:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START- 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(25066,7045,"ide_methods.bas");if(r)goto S_41511;} -do{ -SUB_IDENOMATCH(); -if(!qbevent)break;evnt(25066,7046,"ide_methods.bas");}while(r); -S_41513:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(25066,7047,"ide_methods.bas");if(r)goto S_41513;} -S_41514:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(25066,7048,"ide_methods.bas");if(r)goto S_41514;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(25066,7048,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(25066,7048,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDEFINDINVERT= 0 ; -if(!qbevent)break;evnt(25066,7049,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7051,"ide_methods.bas");}while(r); -} -S_41523:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(25066,7053,"ide_methods.bas");if(r)goto S_41523;} -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,7053,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(25066,7053,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(25066,7054,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,7056,"ide_methods.bas");}while(r); -S_41530:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START+ 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(25066,7057,"ide_methods.bas");if(r)goto S_41530;} -do{ -SUB_IDENOMATCH(); -if(!qbevent)break;evnt(25066,7058,"ide_methods.bas");}while(r); -S_41532:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(25066,7059,"ide_methods.bas");if(r)goto S_41532;} -S_41533:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(25066,7060,"ide_methods.bas");if(r)goto S_41533;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(25066,7060,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(25066,7060,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDEFINDINVERT= 0 ; -if(!qbevent)break;evnt(25066,7061,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7063,"ide_methods.bas");}while(r); -} -S_41542:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_Y>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,7065,"ide_methods.bas");if(r)goto S_41542;} -do{ -*_SUB_IDEFINDAGAIN_LONG_Y= 1 ; -if(!qbevent)break;evnt(25066,7065,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(25066,7065,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(25066,7066,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free143.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEGETLINE(int32*_FUNC_IDEGETLINE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data144.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_41548:; -if ((-(*_FUNC_IDEGETLINE_LONG_I!= -1 ))||new_error){ -if(qbevent){evnt(25066,7072,"ide_methods.bas");if(r)goto S_41548;} -do{ -SUB_IDEGOTOLINE(_FUNC_IDEGETLINE_LONG_I); -if(!qbevent)break;evnt(25066,7072,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEGETLINE_STRING_IDEGETLINE,func_mid(__STRING_IDET,*__LONG_IDELI+ 4 ,string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1)),1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7073,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free144.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEGETLINE_STRING_IDEGETLINE);return _FUNC_IDEGETLINE_STRING_IDEGETLINE; -} -void SUB_IDEGOTOLINE(int32*_SUB_IDEGOTOLINE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data145.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_41552:; -if ((-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I))||new_error){ -if(qbevent){evnt(25066,7077,"ide_methods.bas");if(r)goto S_41552;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7077,"ide_methods.bas");}while(r); -} -S_41555:; -if ((-(*_SUB_IDEGOTOLINE_LONG_I< 1 ))||new_error){ -if(qbevent){evnt(25066,7078,"ide_methods.bas");if(r)goto S_41555;} -do{ -error( 5 ); -if(!qbevent)break;evnt(25066,7078,"ide_methods.bas");}while(r); -} -S_41558:; -if ((-(*_SUB_IDEGOTOLINE_LONG_I<*__LONG_IDEL))||new_error){ -if(qbevent){evnt(25066,7080,"ide_methods.bas");if(r)goto S_41558;} -S_41559:; -do{ -if(qbevent){evnt(25066,7081,"ide_methods.bas");if(r)goto S_41559;} -do{ -*__LONG_IDEL=*__LONG_IDEL- 1 ; -if(!qbevent)break;evnt(25066,7082,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI=*__LONG_IDELI-string2l(func_mid(__STRING_IDET,*__LONG_IDELI- 4 , 4 ,1))- 8 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7083,"ide_methods.bas");}while(r); -S_41562:; -dl_continue_4684:; -}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); -dl_exit_4684:; -if(qbevent){evnt(25066,7084,"ide_methods.bas");if(r)goto S_41562;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7085,"ide_methods.bas");}while(r); -} -S_41565:; -do{ -if(qbevent){evnt(25066,7088,"ide_methods.bas");if(r)goto S_41565;} -S_41566:; -if ((-(*__LONG_IDEL==*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,7089,"ide_methods.bas");if(r)goto S_41566;} -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(__STRING_IDET,l2string( 0 )),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7089,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*__LONG_IDEN+ 1 ; -if(!qbevent)break;evnt(25066,7089,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEL=*__LONG_IDEL+ 1 ; -if(!qbevent)break;evnt(25066,7090,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI=*__LONG_IDELI+string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1))+ 8 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7091,"ide_methods.bas");}while(r); -S_41572:; -dl_continue_4685:; -}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); -dl_exit_4685:; -if(qbevent){evnt(25066,7092,"ide_methods.bas");if(r)goto S_41572;} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free145.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDEHBAR(int32*_FUNC_IDEHBAR_LONG_X,int32*_FUNC_IDEHBAR_LONG_Y,int32*_FUNC_IDEHBAR_LONG_H,int32*_FUNC_IDEHBAR_LONG_I2,int32*_FUNC_IDEHBAR_LONG_N2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data146.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_I2; -if(!qbevent)break;evnt(25066,7096,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2; -if(!qbevent)break;evnt(25066,7096,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7114,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7115,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 27 )); -if (new_error) goto skip4686; -makefit(tqbs); -qbs_print(tqbs,0); -skip4686: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7115,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7116,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 26 )); -if (new_error) goto skip4687; -makefit(tqbs); -qbs_print(tqbs,0); -skip4687: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7116,"ide_methods.bas");}while(r); -S_41580:; -fornext_value4689=*_FUNC_IDEHBAR_LONG_X+ 1 ; -fornext_finalvalue4689=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; -fornext_step4689= 1 ; -if (fornext_step4689<0) fornext_step_negative4689=1; else fornext_step_negative4689=0; -if (new_error) goto fornext_error4689; -goto fornext_entrylabel4689; -while(1){ -fornext_value4689=fornext_step4689+(*_FUNC_IDEHBAR_LONG_X2); -fornext_entrylabel4689: -*_FUNC_IDEHBAR_LONG_X2=fornext_value4689; -if (fornext_step_negative4689){ -if (fornext_value4689fornext_finalvalue4689) break; -} -fornext_error4689:; -if(qbevent){evnt(25066,7117,"ide_methods.bas");if(r)goto S_41580;} -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7118,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 176 )); -if (new_error) goto skip4690; -makefit(tqbs); -qbs_print(tqbs,0); -skip4690: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7118,"ide_methods.bas");}while(r); -fornext_continue_4688:; -} -fornext_exit_4688:; -S_41584:; -if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||new_error){ -if(qbevent){evnt(25066,7123,"ide_methods.bas");if(r)goto S_41584;} -do{ -*_FUNC_IDEHBAR_LONG_N= 1 ; -if(!qbevent)break;evnt(25066,7123,"ide_methods.bas");}while(r); -} -S_41587:; -if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||new_error){ -if(qbevent){evnt(25066,7124,"ide_methods.bas");if(r)goto S_41587;} -do{ -*_FUNC_IDEHBAR_LONG_I= 1 ; -if(!qbevent)break;evnt(25066,7124,"ide_methods.bas");}while(r); -} -S_41590:; -if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||new_error){ -if(qbevent){evnt(25066,7125,"ide_methods.bas");if(r)goto S_41590;} -do{ -*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N; -if(!qbevent)break;evnt(25066,7125,"ide_methods.bas");}while(r); -} -S_41593:; -if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||new_error){ -if(qbevent){evnt(25066,7127,"ide_methods.bas");if(r)goto S_41593;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X; -if(!qbevent)break;evnt(25066,7128,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7129,"ide_methods.bas");}while(r); -} -S_41597:; -if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||new_error){ -if(qbevent){evnt(25066,7132,"ide_methods.bas");if(r)goto S_41597;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,7133,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7135,"ide_methods.bas");}while(r); -} -S_41601:; -if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||new_error){ -if(qbevent){evnt(25066,7138,"ide_methods.bas");if(r)goto S_41601;} -S_41602:; -if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(25066,7139,"ide_methods.bas");if(r)goto S_41602;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,7140,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7142,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(25066,7145,"ide_methods.bas");}while(r); -S_41607:; -if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ -if(qbevent){evnt(25066,7146,"ide_methods.bas");if(r)goto S_41607;} -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,7146,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ; -if(!qbevent)break;evnt(25066,7146,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7147,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip4691; -makefit(tqbs); -qbs_print(tqbs,0); -skip4691: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7147,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(25066,7148,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7149,"ide_methods.bas");}while(r); -} -} -S_41618:; -if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||new_error){ -if(qbevent){evnt(25066,7153,"ide_methods.bas");if(r)goto S_41618;} -S_41619:; -if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(25066,7154,"ide_methods.bas");if(r)goto S_41619;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/ 4 ); -if(!qbevent)break;evnt(25066,7155,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7157,"ide_methods.bas");}while(r); -} -S_41623:; -if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(25066,7159,"ide_methods.bas");if(r)goto S_41623;} -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,7160,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7161,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip4692; -makefit(tqbs); -qbs_print(tqbs,0); -skip4692: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7161,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(25066,7162,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7163,"ide_methods.bas");}while(r); -} -S_41630:; -if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||new_error){ -if(qbevent){evnt(25066,7165,"ide_methods.bas");if(r)goto S_41630;} -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; -if(!qbevent)break;evnt(25066,7166,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7167,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip4693; -makefit(tqbs); -qbs_print(tqbs,0); -skip4693: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7167,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(25066,7168,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7169,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(25066,7172,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 ); -if(!qbevent)break;evnt(25066,7173,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_X2=qbr(*_FUNC_IDEHBAR_LONG_X+ 2 +floor(*_FUNC_IDEHBAR_SINGLE_P)); -if(!qbevent)break;evnt(25066,7174,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEHBAR_LONG_Y,*_FUNC_IDEHBAR_LONG_X2,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7175,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip4694; -makefit(tqbs); -qbs_print(tqbs,0); -skip4694: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7175,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(25066,7176,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7177,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free146.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEHBAR_LONG_IDEHBAR; -} -int32 FUNC_IDEHLEN(qbs*_FUNC_IDEHLEN_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data147.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_41645:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEHLEN_STRING_A,qbs_new_txt_len("#",1),0)))||new_error){ -if(qbevent){evnt(25066,7184,"ide_methods.bas");if(r)goto S_41645;} -do{ -*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7184,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7184,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free147.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEHLEN_LONG_IDEHLEN; -} -void SUB_IDEHPRINT(qbs*_SUB_IDEHPRINT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data148.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7188,"ide_methods.bas");}while(r); -S_41651:; -fornext_value4700= 1 ; -fornext_finalvalue4700=_SUB_IDEHPRINT_STRING_A->len; -fornext_step4700= 1 ; -if (fornext_step4700<0) fornext_step_negative4700=1; else fornext_step_negative4700=0; -if (new_error) goto fornext_error4700; -goto fornext_entrylabel4700; -while(1){ -fornext_value4700=fornext_step4700+(*_SUB_IDEHPRINT_LONG_I); -fornext_entrylabel4700: -*_SUB_IDEHPRINT_LONG_I=fornext_value4700; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4700){ -if (fornext_value4700fornext_finalvalue4700) break; -} -fornext_error4700:; -if(qbevent){evnt(25066,7189,"ide_methods.bas");if(r)goto S_41651;} -do{ -qbs_set(_SUB_IDEHPRINT_STRING_C,func_mid(_SUB_IDEHPRINT_STRING_A,*_SUB_IDEHPRINT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7190,"ide_methods.bas");}while(r); -S_41653:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEHPRINT_STRING_C,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(25066,7191,"ide_methods.bas");if(r)goto S_41653;} -S_41654:; -if ((*__LONG_IDEHL)||new_error){ -if(qbevent){evnt(25066,7192,"ide_methods.bas");if(r)goto S_41654;} -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7192,"ide_methods.bas");}while(r); -} -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDEHPRINT_STRING_C); -if (new_error) goto skip4702; -makefit(tqbs); -qbs_print(tqbs,0); -skip4702: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7194,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7194,"ide_methods.bas");}while(r); -} -fornext_continue_4699:; -} -fornext_exit_4699:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free148.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEINSLINE(int32*_SUB_IDEINSLINE_LONG_I,qbs*_SUB_IDEINSLINE_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data149.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_41662:; -fornext_value4705= 1 ; -fornext_finalvalue4705=*__LONG_IDEBMKN; -fornext_step4705= 1 ; -if (fornext_step4705<0) fornext_step_negative4705=1; else fornext_step_negative4705=0; -if (new_error) goto fornext_error4705; -goto fornext_entrylabel4705; -while(1){ -fornext_value4705=fornext_step4705+(*_SUB_IDEINSLINE_LONG_B); -fornext_entrylabel4705: -*_SUB_IDEINSLINE_LONG_B=fornext_value4705; -if (fornext_step_negative4705){ -if (fornext_value4705fornext_finalvalue4705) break; -} -fornext_error4705:; -if(qbevent){evnt(25066,7202,"ide_methods.bas");if(r)goto S_41662;} -S_41663:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEINSLINE_LONG_I))||new_error){ -if(qbevent){evnt(25066,7203,"ide_methods.bas");if(r)goto S_41663;} -do{ -*_SUB_IDEINSLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; -if(!qbevent)break;evnt(25066,7204,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEINSLINE_LONG_Y; -if(!qbevent)break;evnt(25066,7205,"ide_methods.bas");}while(r); -} -fornext_continue_4704:; -} -fornext_exit_4704:; -do{ -qbs_set(_SUB_IDEINSLINE_STRING_TEXT,qbs_rtrim(_SUB_IDEINSLINE_STRING_TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7209,"ide_methods.bas");}while(r); -S_41669:; -if ((-(*_SUB_IDEINSLINE_LONG_I== -1 ))||new_error){ -if(qbevent){evnt(25066,7211,"ide_methods.bas");if(r)goto S_41669;} -do{ -*_SUB_IDEINSLINE_LONG_I=*__LONG_IDEL; -if(!qbevent)break;evnt(25066,7211,"ide_methods.bas");}while(r); -} -S_41672:; -if ((-(*_SUB_IDEINSLINE_LONG_I>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,7213,"ide_methods.bas");if(r)goto S_41672;} -do{ -SUB_IDESETLINE(_SUB_IDEINSLINE_LONG_I,_SUB_IDEINSLINE_STRING_TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7214,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7215,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEGOTOLINE(_SUB_IDEINSLINE_LONG_I); -if(!qbevent)break;evnt(25066,7217,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEINSLINE_LONG_TEXTLEN=_SUB_IDEINSLINE_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7219,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),_SUB_IDEINSLINE_STRING_TEXT),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7220,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*__LONG_IDEN+ 1 ; -if(!qbevent)break;evnt(25066,7221,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free149.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDENEWSF(qbs*_SUB_IDENEWSF_STRING_SF){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data150.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,7228,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,7229,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7230,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7231,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7232,"ide_methods.bas");}while(r); -do{ - -if (_SUB_IDENEWSF_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_SUB_IDENEWSF_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_SUB_IDENEWSF_ARRAY_UDT_O[4]= 1 ; -_SUB_IDENEWSF_ARRAY_UDT_O[5]=( 100 )-_SUB_IDENEWSF_ARRAY_UDT_O[4]+1; -_SUB_IDENEWSF_ARRAY_UDT_O[6]=1; -if (_SUB_IDENEWSF_ARRAY_UDT_O[2]&4){ -_SUB_IDENEWSF_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDENEWSF_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_SUB_IDENEWSF_ARRAY_UDT_O[0]),0,_SUB_IDENEWSF_ARRAY_UDT_O[5]*680/8+1); -}else{ -_SUB_IDENEWSF_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDENEWSF_ARRAY_UDT_O[5]*680/8+1,1); -if (!_SUB_IDENEWSF_ARRAY_UDT_O[0]) error(257); -} -_SUB_IDENEWSF_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,7233,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7234,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDENEWSF_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7235,"ide_methods.bas");}while(r); -S_41688:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,7241,"ide_methods.bas");if(r)goto S_41688;} -S_41689:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,7242,"ide_methods.bas");if(r)goto S_41689;} -do{ -qbs_set(_SUB_IDENEWSF_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7243,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7244,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,7245,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,7245,"ide_methods.bas");}while(r); -S_41694:; -if ((-(*_SUB_IDENEWSF_LONG_SX2<*_SUB_IDENEWSF_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,7246,"ide_methods.bas");if(r)goto S_41694;} -do{ -swap_32(&*_SUB_IDENEWSF_LONG_SX1,&*_SUB_IDENEWSF_LONG_SX2); -if(!qbevent)break;evnt(25066,7246,"ide_methods.bas");}while(r); -} -S_41697:; -fornext_value4710=*_SUB_IDENEWSF_LONG_SX1; -fornext_finalvalue4710=*_SUB_IDENEWSF_LONG_SX2- 1 ; -fornext_step4710= 1 ; -if (fornext_step4710<0) fornext_step_negative4710=1; else fornext_step_negative4710=0; -if (new_error) goto fornext_error4710; -goto fornext_entrylabel4710; -while(1){ -fornext_value4710=fornext_step4710+(*_SUB_IDENEWSF_LONG_X); -fornext_entrylabel4710: -*_SUB_IDENEWSF_LONG_X=fornext_value4710; -if (fornext_step_negative4710){ -if (fornext_value4710fornext_finalvalue4710) break; -} -fornext_error4710:; -if(qbevent){evnt(25066,7247,"ide_methods.bas");if(r)goto S_41697;} -S_41698:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDENEWSF_LONG_X<=_SUB_IDENEWSF_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,7248,"ide_methods.bas");if(r)goto S_41698;} -do{ -qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,func_mid(_SUB_IDENEWSF_STRING_A,*_SUB_IDENEWSF_LONG_X, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7248,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7248,"ide_methods.bas");}while(r); -} -fornext_continue_4709:; -} -fornext_exit_4709:; -} -} -do{ -*_SUB_IDENEWSF_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,7253,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_IDENEWSF_UDT_P)) + (0) ),&(pass4712= 60 ),&(pass4713= 5 ),qbs_add(qbs_new_txt_len("New ",4),_SUB_IDENEWSF_STRING_SF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7255,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_I=*_SUB_IDENEWSF_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7257,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,7258,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,7259,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,7260,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Name",5)); -if(!qbevent)break;evnt(25066,7261,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_SUB_IDENEWSF_STRING_A2); -if(!qbevent)break;evnt(25066,7262,"ide_methods.bas");}while(r); -S_41714:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDENEWSF_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,7263,"ide_methods.bas");if(r)goto S_41714;} -do{ -*(int8*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,7263,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,7264,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+77))=_SUB_IDENEWSF_STRING_A2->len; -if(!qbevent)break;evnt(25066,7265,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_I=*_SUB_IDENEWSF_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7267,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,7268,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,7269,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_SUB_IDENEWSF_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,7270,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,7271,"ide_methods.bas");}while(r); -S_41724:; -fornext_value4717= 1 ; -fornext_finalvalue4717= 100 ; -fornext_step4717= 1 ; -if (fornext_step4717<0) fornext_step_negative4717=1; else fornext_step_negative4717=0; -if (new_error) goto fornext_error4717; -goto fornext_entrylabel4717; -while(1){ -fornext_value4717=fornext_step4717+(*_SUB_IDENEWSF_LONG_I); -fornext_entrylabel4717: -*_SUB_IDENEWSF_LONG_I=fornext_value4717; -if (fornext_step_negative4717){ -if (fornext_value4717fornext_finalvalue4717) break; -} -fornext_error4717:; -if(qbevent){evnt(25066,7275,"ide_methods.bas");if(r)goto S_41724;} -do{ -memcpy(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_IDENEWSF_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,7275,"ide_methods.bas");}while(r); -fornext_continue_4716:; -} -fornext_exit_4716:; -S_41727:; -do{ -if(qbevent){evnt(25066,7278,"ide_methods.bas");if(r)goto S_41727;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDENEWSF_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,7282,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7283,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,7283,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,7283,"ide_methods.bas");}while(r); -S_41732:; -fornext_value4720= 1 ; -fornext_finalvalue4720= 100 ; -fornext_step4720= 1 ; -if (fornext_step4720<0) fornext_step_negative4720=1; else fornext_step_negative4720=0; -if (new_error) goto fornext_error4720; -goto fornext_entrylabel4720; -while(1){ -fornext_value4720=fornext_step4720+(*_SUB_IDENEWSF_LONG_I); -fornext_entrylabel4720: -*_SUB_IDENEWSF_LONG_I=fornext_value4720; -if (fornext_step_negative4720){ -if (fornext_value4720fornext_finalvalue4720) break; -} -fornext_error4720:; -if(qbevent){evnt(25066,7284,"ide_methods.bas");if(r)goto S_41732;} -S_41733:; -if ((*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,7285,"ide_methods.bas");if(r)goto S_41733;} -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+60))=*_SUB_IDENEWSF_LONG_FOCUS-*_SUB_IDENEWSF_LONG_F; -if(!qbevent)break;evnt(25066,7288,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,7289,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,7289,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDENEWSF_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85) ),_SUB_IDENEWSF_LONG_F); -if(!qbevent)break;evnt(25066,7290,"ide_methods.bas");}while(r); -S_41738:; -if ((*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,7291,"ide_methods.bas");if(r)goto S_41738;} -do{ -*_SUB_IDENEWSF_LONG_CX=*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,7291,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_CY=*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,7291,"ide_methods.bas");}while(r); -} -} -fornext_continue_4719:; -} -fornext_exit_4719:; -do{ -*_SUB_IDENEWSF_LONG_LASTFOCUS=*_SUB_IDENEWSF_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,7294,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,7301,"ide_methods.bas");}while(r); -S_41746:; -if ((*_SUB_IDENEWSF_LONG_CX)||new_error){ -if(qbevent){evnt(25066,7302,"ide_methods.bas");if(r)goto S_41746;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7302,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDENEWSF_LONG_CY,*_SUB_IDENEWSF_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,7302,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7302,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,7305,"ide_methods.bas");}while(r); -S_41752:; -do{ -if(qbevent){evnt(25066,7306,"ide_methods.bas");if(r)goto S_41752;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,7307,"ide_methods.bas");}while(r); -S_41754:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,7308,"ide_methods.bas");if(r)goto S_41754;} -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7308,"ide_methods.bas");}while(r); -} -S_41757:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,7309,"ide_methods.bas");if(r)goto S_41757;} -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7309,"ide_methods.bas");}while(r); -} -S_41760:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,7310,"ide_methods.bas");if(r)goto S_41760;} -do{ -*_SUB_IDENEWSF_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,7310,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7310,"ide_methods.bas");}while(r); -} -S_41764:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,7311,"ide_methods.bas");if(r)goto S_41764;} -do{ -*_SUB_IDENEWSF_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,7311,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7311,"ide_methods.bas");}while(r); -} -S_41768:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,7312,"ide_methods.bas");if(r)goto S_41768;} -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7312,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENEWSF_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,7313,"ide_methods.bas");}while(r); -S_41772:; -if ((-(*_SUB_IDENEWSF_LONG_ALT!=*_SUB_IDENEWSF_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,7313,"ide_methods.bas");if(r)goto S_41772;} -do{ -*_SUB_IDENEWSF_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7313,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENEWSF_LONG_OLDALT=*_SUB_IDENEWSF_LONG_ALT; -if(!qbevent)break;evnt(25066,7314,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,7315,"ide_methods.bas");}while(r); -S_41777:; -dl_continue_4721:; -}while((!(*_SUB_IDENEWSF_LONG_CHANGE))&&(!new_error)); -dl_exit_4721:; -if(qbevent){evnt(25066,7316,"ide_methods.bas");if(r)goto S_41777;} -S_41778:; -if ((*_SUB_IDENEWSF_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7317,"ide_methods.bas");if(r)goto S_41778;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,7317,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,7317,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDENEWSF_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7319,"ide_methods.bas");}while(r); -S_41784:; -if ((*_SUB_IDENEWSF_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7320,"ide_methods.bas");if(r)goto S_41784;} -S_41785:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,7321,"ide_methods.bas");if(r)goto S_41785;} -do{ -*_SUB_IDENEWSF_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7322,"ide_methods.bas");}while(r); -S_41787:; -if (((-(*_SUB_IDENEWSF_LONG_K>= 65 ))&(-(*_SUB_IDENEWSF_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,7323,"ide_methods.bas");if(r)goto S_41787;} -do{ -qbs_set(_SUB_IDENEWSF_STRING_ALTLETTER,func_chr(*_SUB_IDENEWSF_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7323,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7326,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,7326,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7326,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,7330,"ide_methods.bas");}while(r); -S_41796:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,7331,"ide_methods.bas");if(r)goto S_41796;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7331,"ide_methods.bas");}while(r); -} -S_41799:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,7332,"ide_methods.bas");if(r)goto S_41799;} -do{ -*_SUB_IDENEWSF_LONG_FOCUS=*_SUB_IDENEWSF_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,7332,"ide_methods.bas");}while(r); -} -S_41802:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,7333,"ide_methods.bas");if(r)goto S_41802;} -do{ -*_SUB_IDENEWSF_LONG_FOCUS=*_SUB_IDENEWSF_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,7333,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7333,"ide_methods.bas");}while(r); -} -S_41806:; -if ((-(*_SUB_IDENEWSF_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,7334,"ide_methods.bas");if(r)goto S_41806;} -do{ -*_SUB_IDENEWSF_LONG_FOCUS=*_SUB_IDENEWSF_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,7334,"ide_methods.bas");}while(r); -} -S_41809:; -if ((-(*_SUB_IDENEWSF_LONG_FOCUS>*_SUB_IDENEWSF_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,7335,"ide_methods.bas");if(r)goto S_41809;} -do{ -*_SUB_IDENEWSF_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7335,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENEWSF_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7336,"ide_methods.bas");}while(r); -S_41813:; -fornext_value4724= 1 ; -fornext_finalvalue4724= 100 ; -fornext_step4724= 1 ; -if (fornext_step4724<0) fornext_step_negative4724=1; else fornext_step_negative4724=0; -if (new_error) goto fornext_error4724; -goto fornext_entrylabel4724; -while(1){ -fornext_value4724=fornext_step4724+(*_SUB_IDENEWSF_LONG_I); -fornext_entrylabel4724: -*_SUB_IDENEWSF_LONG_I=fornext_value4724; -if (fornext_step_negative4724){ -if (fornext_value4724fornext_finalvalue4724) break; -} -fornext_error4724:; -if(qbevent){evnt(25066,7337,"ide_methods.bas");if(r)goto S_41813;} -do{ -*_SUB_IDENEWSF_LONG_T=*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,7338,"ide_methods.bas");}while(r); -S_41815:; -if ((*_SUB_IDENEWSF_LONG_T)||new_error){ -if(qbevent){evnt(25066,7339,"ide_methods.bas");if(r)goto S_41815;} -do{ -*_SUB_IDENEWSF_LONG_FOCUSOFFSET=*_SUB_IDENEWSF_LONG_FOCUS-*_SUB_IDENEWSF_LONG_F; -if(!qbevent)break;evnt(25066,7340,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDENEWSF_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDENEWSF_LONG_I)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85) ),_SUB_IDENEWSF_LONG_FOCUS,_SUB_IDENEWSF_LONG_F,_SUB_IDENEWSF_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDENEWSF_STRING_ALTLETTER,__LONG_MB,_SUB_IDENEWSF_LONG_MOUSEDOWN,_SUB_IDENEWSF_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDENEWSF_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7341,"ide_methods.bas");}while(r); -} -fornext_continue_4723:; -} -fornext_exit_4723:; -S_41820:; -if ((-(*_SUB_IDENEWSF_LONG_FOCUS!=*_SUB_IDENEWSF_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,7347,"ide_methods.bas");if(r)goto S_41820;} -do{ -*_SUB_IDENEWSF_LONG_PREVFOCUS=*_SUB_IDENEWSF_LONG_FOCUS; -if(!qbevent)break;evnt(25066,7349,"ide_methods.bas");}while(r); -S_41822:; -if ((-(*_SUB_IDENEWSF_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,7350,"ide_methods.bas");if(r)goto S_41822;} -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_FOCUS)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_FOCUS)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,7351,"ide_methods.bas");}while(r); -S_41824:; -if ((-(*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_FOCUS)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,7352,"ide_methods.bas");if(r)goto S_41824;} -do{ -*(int8*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_FOCUS)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,7352,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENEWSF_LONG_FOCUS)-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,7353,"ide_methods.bas");}while(r); -} -} -S_41830:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_SUB_IDENEWSF_LONG_FOCUS== 3 ))&(-(*_SUB_IDENEWSF_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,7357,"ide_methods.bas");if(r)goto S_41830;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7358,"ide_methods.bas");}while(r); -} -S_41833:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_SUB_IDENEWSF_LONG_FOCUS== 2 ))&(-(*_SUB_IDENEWSF_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,7361,"ide_methods.bas");if(r)goto S_41833;} -do{ -*_SUB_IDENEWSF_LONG_Y=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,7362,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,7363,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7363,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,7364,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_add(_SUB_IDENEWSF_STRING_SF,qbs_new_txt_len(" ",1)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDENEWSF_ARRAY_UDT_O[0])+((array_check(( 1 )-_SUB_IDENEWSF_ARRAY_UDT_O[4],_SUB_IDENEWSF_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7364,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY=*_SUB_IDENEWSF_LONG_Y; -if(!qbevent)break;evnt(25066,7365,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,7366,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7366,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_IDENEWSF_LONG_Y; -if(!qbevent)break;evnt(25066,7367,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,7368,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_new_txt_len("END ",4),_SUB_IDENEWSF_STRING_SF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7368,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,7369,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,7369,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,7370,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7371,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENEWSF_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,7376,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,7377,"ide_methods.bas");}while(r); -dl_continue_4718:; -}while(1); -dl_exit_4718:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free150.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDENEWTXT(qbs*_FUNC_IDENEWTXT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data151.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__INTEGER_IDETXTLAST=*__INTEGER_IDETXTLAST+ 1 ; -if(!qbevent)break;evnt(25066,7385,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_IDETXTLAST)-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDENEWTXT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7386,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDENEWTXT_LONG_IDENEWTXT=*__INTEGER_IDETXTLAST; -if(!qbevent)break;evnt(25066,7387,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free151.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDENEWTXT_LONG_IDENEWTXT; -} -void SUB_IDENOMATCH(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data152.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,7393,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,7394,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,7395,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7396,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7397,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7398,"ide_methods.bas");}while(r); -do{ - -if (_SUB_IDENOMATCH_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_SUB_IDENOMATCH_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_SUB_IDENOMATCH_ARRAY_UDT_O[4]= 1 ; -_SUB_IDENOMATCH_ARRAY_UDT_O[5]=( 100 )-_SUB_IDENOMATCH_ARRAY_UDT_O[4]+1; -_SUB_IDENOMATCH_ARRAY_UDT_O[6]=1; -if (_SUB_IDENOMATCH_ARRAY_UDT_O[2]&4){ -_SUB_IDENOMATCH_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDENOMATCH_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_SUB_IDENOMATCH_ARRAY_UDT_O[0]),0,_SUB_IDENOMATCH_ARRAY_UDT_O[5]*680/8+1); -}else{ -_SUB_IDENOMATCH_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDENOMATCH_ARRAY_UDT_O[5]*680/8+1,1); -if (!_SUB_IDENOMATCH_ARRAY_UDT_O[0]) error(257); -} -_SUB_IDENOMATCH_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,7399,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7400,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDENOMATCH_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7401,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,7405,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_IDENOMATCH_UDT_P)) + (0) ),&(pass4727= 19 ),&(pass4728= 4 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7406,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_I=*_SUB_IDENOMATCH_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7407,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,7408,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,7409,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,7410,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,7411,"ide_methods.bas");}while(r); -S_41872:; -fornext_value4730= 1 ; -fornext_finalvalue4730= 100 ; -fornext_step4730= 1 ; -if (fornext_step4730<0) fornext_step_negative4730=1; else fornext_step_negative4730=0; -if (new_error) goto fornext_error4730; -goto fornext_entrylabel4730; -while(1){ -fornext_value4730=fornext_step4730+(*_SUB_IDENOMATCH_LONG_I); -fornext_entrylabel4730: -*_SUB_IDENOMATCH_LONG_I=fornext_value4730; -if (fornext_step_negative4730){ -if (fornext_value4730fornext_finalvalue4730) break; -} -fornext_error4730:; -if(qbevent){evnt(25066,7415,"ide_methods.bas");if(r)goto S_41872;} -do{ -memcpy(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_IDENOMATCH_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,7415,"ide_methods.bas");}while(r); -fornext_continue_4729:; -} -fornext_exit_4729:; -S_41875:; -do{ -if(qbevent){evnt(25066,7418,"ide_methods.bas");if(r)goto S_41875;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDENOMATCH_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,7421,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7422,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,7422,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,7422,"ide_methods.bas");}while(r); -S_41880:; -fornext_value4733= 1 ; -fornext_finalvalue4733= 100 ; -fornext_step4733= 1 ; -if (fornext_step4733<0) fornext_step_negative4733=1; else fornext_step_negative4733=0; -if (new_error) goto fornext_error4733; -goto fornext_entrylabel4733; -while(1){ -fornext_value4733=fornext_step4733+(*_SUB_IDENOMATCH_LONG_I); -fornext_entrylabel4733: -*_SUB_IDENOMATCH_LONG_I=fornext_value4733; -if (fornext_step_negative4733){ -if (fornext_value4733fornext_finalvalue4733) break; -} -fornext_error4733:; -if(qbevent){evnt(25066,7423,"ide_methods.bas");if(r)goto S_41880;} -S_41881:; -if ((*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,7424,"ide_methods.bas");if(r)goto S_41881;} -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+60))=*_SUB_IDENOMATCH_LONG_FOCUS-*_SUB_IDENOMATCH_LONG_F; -if(!qbevent)break;evnt(25066,7426,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,7427,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,7427,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDENOMATCH_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85) ),_SUB_IDENOMATCH_LONG_F); -if(!qbevent)break;evnt(25066,7428,"ide_methods.bas");}while(r); -S_41886:; -if ((*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,7429,"ide_methods.bas");if(r)goto S_41886;} -do{ -*_SUB_IDENOMATCH_LONG_CX=*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,7429,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_CY=*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,7429,"ide_methods.bas");}while(r); -} -} -fornext_continue_4732:; -} -fornext_exit_4732:; -do{ -*_SUB_IDENOMATCH_LONG_LASTFOCUS=*_SUB_IDENOMATCH_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,7432,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7436,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDENOMATCH_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_SUB_IDENOMATCH_UDT_P)+(0))+ 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7436,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Match not found",15)); -if (new_error) goto skip4734; -makefit(tqbs); -qbs_print(tqbs,0); -skip4734: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7436,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,7440,"ide_methods.bas");}while(r); -S_41897:; -if ((*_SUB_IDENOMATCH_LONG_CX)||new_error){ -if(qbevent){evnt(25066,7441,"ide_methods.bas");if(r)goto S_41897;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7441,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDENOMATCH_LONG_CY,*_SUB_IDENOMATCH_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,7441,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7441,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,7444,"ide_methods.bas");}while(r); -S_41903:; -do{ -if(qbevent){evnt(25066,7445,"ide_methods.bas");if(r)goto S_41903;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,7446,"ide_methods.bas");}while(r); -S_41905:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,7447,"ide_methods.bas");if(r)goto S_41905;} -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7447,"ide_methods.bas");}while(r); -} -S_41908:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,7448,"ide_methods.bas");if(r)goto S_41908;} -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7448,"ide_methods.bas");}while(r); -} -S_41911:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,7449,"ide_methods.bas");if(r)goto S_41911;} -do{ -*_SUB_IDENOMATCH_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,7449,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7449,"ide_methods.bas");}while(r); -} -S_41915:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,7450,"ide_methods.bas");if(r)goto S_41915;} -do{ -*_SUB_IDENOMATCH_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,7450,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7450,"ide_methods.bas");}while(r); -} -S_41919:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,7451,"ide_methods.bas");if(r)goto S_41919;} -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7451,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENOMATCH_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,7452,"ide_methods.bas");}while(r); -S_41923:; -if ((-(*_SUB_IDENOMATCH_LONG_ALT!=*_SUB_IDENOMATCH_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,7452,"ide_methods.bas");if(r)goto S_41923;} -do{ -*_SUB_IDENOMATCH_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7452,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENOMATCH_LONG_OLDALT=*_SUB_IDENOMATCH_LONG_ALT; -if(!qbevent)break;evnt(25066,7453,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,7454,"ide_methods.bas");}while(r); -S_41928:; -dl_continue_4735:; -}while((!(*_SUB_IDENOMATCH_LONG_CHANGE))&&(!new_error)); -dl_exit_4735:; -if(qbevent){evnt(25066,7455,"ide_methods.bas");if(r)goto S_41928;} -S_41929:; -if ((*_SUB_IDENOMATCH_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7456,"ide_methods.bas");if(r)goto S_41929;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,7456,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,7456,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7458,"ide_methods.bas");}while(r); -S_41935:; -if ((*_SUB_IDENOMATCH_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7459,"ide_methods.bas");if(r)goto S_41935;} -S_41936:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,7460,"ide_methods.bas");if(r)goto S_41936;} -do{ -*_SUB_IDENOMATCH_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7461,"ide_methods.bas");}while(r); -S_41938:; -if (((-(*_SUB_IDENOMATCH_LONG_K>= 65 ))&(-(*_SUB_IDENOMATCH_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,7462,"ide_methods.bas");if(r)goto S_41938;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_ALTLETTER,func_chr(*_SUB_IDENOMATCH_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7462,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7465,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,7465,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7465,"ide_methods.bas");}while(r); -S_41946:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,7468,"ide_methods.bas");if(r)goto S_41946;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7468,"ide_methods.bas");}while(r); -} -S_41949:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,7469,"ide_methods.bas");if(r)goto S_41949;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7469,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENOMATCH_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,7472,"ide_methods.bas");}while(r); -S_41953:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,7473,"ide_methods.bas");if(r)goto S_41953;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7473,"ide_methods.bas");}while(r); -} -S_41956:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,7474,"ide_methods.bas");if(r)goto S_41956;} -do{ -*_SUB_IDENOMATCH_LONG_FOCUS=*_SUB_IDENOMATCH_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,7474,"ide_methods.bas");}while(r); -} -S_41959:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,7475,"ide_methods.bas");if(r)goto S_41959;} -do{ -*_SUB_IDENOMATCH_LONG_FOCUS=*_SUB_IDENOMATCH_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,7475,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7475,"ide_methods.bas");}while(r); -} -S_41963:; -if ((-(*_SUB_IDENOMATCH_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,7476,"ide_methods.bas");if(r)goto S_41963;} -do{ -*_SUB_IDENOMATCH_LONG_FOCUS=*_SUB_IDENOMATCH_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,7476,"ide_methods.bas");}while(r); -} -S_41966:; -if ((-(*_SUB_IDENOMATCH_LONG_FOCUS>*_SUB_IDENOMATCH_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,7477,"ide_methods.bas");if(r)goto S_41966;} -do{ -*_SUB_IDENOMATCH_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7477,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENOMATCH_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7478,"ide_methods.bas");}while(r); -S_41970:; -fornext_value4738= 1 ; -fornext_finalvalue4738= 100 ; -fornext_step4738= 1 ; -if (fornext_step4738<0) fornext_step_negative4738=1; else fornext_step_negative4738=0; -if (new_error) goto fornext_error4738; -goto fornext_entrylabel4738; -while(1){ -fornext_value4738=fornext_step4738+(*_SUB_IDENOMATCH_LONG_I); -fornext_entrylabel4738: -*_SUB_IDENOMATCH_LONG_I=fornext_value4738; -if (fornext_step_negative4738){ -if (fornext_value4738fornext_finalvalue4738) break; -} -fornext_error4738:; -if(qbevent){evnt(25066,7479,"ide_methods.bas");if(r)goto S_41970;} -do{ -*_SUB_IDENOMATCH_LONG_T=*(int32*)(((char*)_SUB_IDENOMATCH_ARRAY_UDT_O[0])+((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,7480,"ide_methods.bas");}while(r); -S_41972:; -if ((*_SUB_IDENOMATCH_LONG_T)||new_error){ -if(qbevent){evnt(25066,7481,"ide_methods.bas");if(r)goto S_41972;} -do{ -*_SUB_IDENOMATCH_LONG_FOCUSOFFSET=*_SUB_IDENOMATCH_LONG_FOCUS-*_SUB_IDENOMATCH_LONG_F; -if(!qbevent)break;evnt(25066,7482,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDENOMATCH_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDENOMATCH_LONG_I)-_SUB_IDENOMATCH_ARRAY_UDT_O[4],_SUB_IDENOMATCH_ARRAY_UDT_O[5]))*85) ),_SUB_IDENOMATCH_LONG_FOCUS,_SUB_IDENOMATCH_LONG_F,_SUB_IDENOMATCH_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDENOMATCH_STRING_ALTLETTER,__LONG_MB,_SUB_IDENOMATCH_LONG_MOUSEDOWN,_SUB_IDENOMATCH_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDENOMATCH_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7483,"ide_methods.bas");}while(r); -} -fornext_continue_4737:; -} -fornext_exit_4737:; -S_41977:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,7488,"ide_methods.bas");if(r)goto S_41977;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7489,"ide_methods.bas");}while(r); -} -S_41980:; -if ((*_SUB_IDENOMATCH_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,7492,"ide_methods.bas");if(r)goto S_41980;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7493,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDENOMATCH_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,7498,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,7499,"ide_methods.bas");}while(r); -dl_continue_4731:; -}while(1); -dl_exit_4731:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free152.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEOPEN(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data153.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(25066,7505,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,7508,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,7509,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7510,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7511,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7512,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDEOPEN_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDEOPEN_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDEOPEN_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDEOPEN_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4]+1; -_FUNC_IDEOPEN_ARRAY_UDT_O[6]=1; -if (_FUNC_IDEOPEN_ARRAY_UDT_O[2]&4){ -_FUNC_IDEOPEN_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEOPEN_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEOPEN_ARRAY_UDT_O[0]),0,_FUNC_IDEOPEN_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDEOPEN_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEOPEN_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDEOPEN_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDEOPEN_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,7513,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7514,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7515,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_PATH,__STRING_IDEPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7519,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_FILELIST,FUNC_IDEZFILELIST(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_LONG_ALLFILES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7520,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_PATHLIST,FUNC_IDEZPATHLIST(_FUNC_IDEOPEN_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7521,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,7523,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEOPEN_UDT_P)) + (0) ),&(pass4739= 70 ),&(pass4740=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Open",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7524,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I=*_FUNC_IDEOPEN_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7525,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,7526,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,7527,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,7528,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); -if(!qbevent)break;evnt(25066,7529,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I=*_FUNC_IDEOPEN_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7530,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,7531,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,7532,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+28))= 32 ; -if(!qbevent)break;evnt(25066,7533,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 14 ; -if(!qbevent)break;evnt(25066,7533,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Files",6)); -if(!qbevent)break;evnt(25066,7534,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEOPEN_STRING_FILELIST); -if(!qbevent)break;evnt(25066,7535,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_FILELIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7535,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I=*_FUNC_IDEOPEN_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7536,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,7537,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+20))= 37 ; -if(!qbevent)break;evnt(25066,7538,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,7538,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+28))= 31 ; -if(!qbevent)break;evnt(25066,7539,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 16 ; -if(!qbevent)break;evnt(25066,7539,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Paths",6)); -if(!qbevent)break;evnt(25066,7540,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEOPEN_STRING_PATHLIST); -if(!qbevent)break;evnt(25066,7541,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_PATHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7541,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I=*_FUNC_IDEOPEN_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7542,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,7543,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+20))= 37 ; -if(!qbevent)break;evnt(25066,7544,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(25066,7545,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len(".BAS Only",9)); -if(!qbevent)break;evnt(25066,7546,"ide_methods.bas");}while(r); -S_42027:; -if ((*_FUNC_IDEOPEN_LONG_ALLFILES)||new_error){ -if(qbevent){evnt(25066,7547,"ide_methods.bas");if(r)goto S_42027;} -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= 0 ; -if(!qbevent)break;evnt(25066,7547,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,7547,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEOPEN_LONG_I=*_FUNC_IDEOPEN_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7548,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,7549,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ; -if(!qbevent)break;evnt(25066,7550,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDEOPEN_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,7551,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,7552,"ide_methods.bas");}while(r); -S_42037:; -fornext_value4742= 1 ; -fornext_finalvalue4742= 100 ; -fornext_step4742= 1 ; -if (fornext_step4742<0) fornext_step_negative4742=1; else fornext_step_negative4742=0; -if (new_error) goto fornext_error4742; -goto fornext_entrylabel4742; -while(1){ -fornext_value4742=fornext_step4742+(*_FUNC_IDEOPEN_LONG_I); -fornext_entrylabel4742: -*_FUNC_IDEOPEN_LONG_I=fornext_value4742; -if (fornext_step_negative4742){ -if (fornext_value4742fornext_finalvalue4742) break; -} -fornext_error4742:; -if(qbevent){evnt(25066,7556,"ide_methods.bas");if(r)goto S_42037;} -do{ -memcpy(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEOPEN_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,7556,"ide_methods.bas");}while(r); -fornext_continue_4741:; -} -fornext_exit_4741:; -S_42040:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEOPENFILE->len))||new_error){ -if(qbevent){evnt(25066,7559,"ide_methods.bas");if(r)goto S_42040;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_F,__STRING_IDEOPENFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7559,"ide_methods.bas");}while(r); -do{ -goto LABEL_DIRECTLOAD; -if(!qbevent)break;evnt(25066,7559,"ide_methods.bas");}while(r); -} -S_42044:; -do{ -if(qbevent){evnt(25066,7561,"ide_methods.bas");if(r)goto S_42044;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEOPEN_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,7564,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7565,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,7565,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,7565,"ide_methods.bas");}while(r); -S_42049:; -fornext_value4746= 1 ; -fornext_finalvalue4746= 100 ; -fornext_step4746= 1 ; -if (fornext_step4746<0) fornext_step_negative4746=1; else fornext_step_negative4746=0; -if (new_error) goto fornext_error4746; -goto fornext_entrylabel4746; -while(1){ -fornext_value4746=fornext_step4746+(*_FUNC_IDEOPEN_LONG_I); -fornext_entrylabel4746: -*_FUNC_IDEOPEN_LONG_I=fornext_value4746; -if (fornext_step_negative4746){ -if (fornext_value4746fornext_finalvalue4746) break; -} -fornext_error4746:; -if(qbevent){evnt(25066,7566,"ide_methods.bas");if(r)goto S_42049;} -S_42050:; -if ((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,7567,"ide_methods.bas");if(r)goto S_42050;} -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEOPEN_LONG_FOCUS-*_FUNC_IDEOPEN_LONG_F; -if(!qbevent)break;evnt(25066,7569,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,7570,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,7570,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEOPEN_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEOPEN_LONG_F); -if(!qbevent)break;evnt(25066,7571,"ide_methods.bas");}while(r); -S_42055:; -if ((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,7572,"ide_methods.bas");if(r)goto S_42055;} -do{ -*_FUNC_IDEOPEN_LONG_CX=*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,7572,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_CY=*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,7572,"ide_methods.bas");}while(r); -} -} -fornext_continue_4745:; -} -fornext_exit_4745:; -do{ -*_FUNC_IDEOPEN_LONG_LASTFOCUS=*_FUNC_IDEOPEN_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,7575,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7579,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEOPEN_UDT_P)+(4))+ 4 ,*(int32*)(((char*)_FUNC_IDEOPEN_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7579,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Path: ",6)); -if (new_error) goto skip4747; -makefit(tqbs); -qbs_print(tqbs,0); -skip4747: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7579,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,_FUNC_IDEOPEN_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7580,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_W=*(int32*)(((char*)_FUNC_IDEOPEN_UDT_P)+(8))- 8 ; -if(!qbevent)break;evnt(25066,7581,"ide_methods.bas");}while(r); -S_42067:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEOPEN_STRING_A->len)>(*_FUNC_IDEOPEN_LONG_W- 3 ))))||new_error){ -if(qbevent){evnt(25066,7582,"ide_methods.bas");if(r)goto S_42067;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_W- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7582,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDEOPEN_STRING_A); -if (new_error) goto skip4749; -makefit(tqbs); -qbs_print(tqbs,0); -skip4749: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7583,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,7588,"ide_methods.bas");}while(r); -S_42072:; -if ((*_FUNC_IDEOPEN_LONG_CX)||new_error){ -if(qbevent){evnt(25066,7589,"ide_methods.bas");if(r)goto S_42072;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7589,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEOPEN_LONG_CY,*_FUNC_IDEOPEN_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,7589,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7589,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,7592,"ide_methods.bas");}while(r); -S_42078:; -do{ -if(qbevent){evnt(25066,7593,"ide_methods.bas");if(r)goto S_42078;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,7594,"ide_methods.bas");}while(r); -S_42080:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,7595,"ide_methods.bas");if(r)goto S_42080;} -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7595,"ide_methods.bas");}while(r); -} -S_42083:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,7596,"ide_methods.bas");if(r)goto S_42083;} -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7596,"ide_methods.bas");}while(r); -} -S_42086:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,7597,"ide_methods.bas");if(r)goto S_42086;} -do{ -*_FUNC_IDEOPEN_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,7597,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7597,"ide_methods.bas");}while(r); -} -S_42090:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,7598,"ide_methods.bas");if(r)goto S_42090;} -do{ -*_FUNC_IDEOPEN_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,7598,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7598,"ide_methods.bas");}while(r); -} -S_42094:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,7599,"ide_methods.bas");if(r)goto S_42094;} -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7599,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEOPEN_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,7600,"ide_methods.bas");}while(r); -S_42098:; -if ((-(*_FUNC_IDEOPEN_LONG_ALT!=*_FUNC_IDEOPEN_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,7600,"ide_methods.bas");if(r)goto S_42098;} -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7600,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEOPEN_LONG_OLDALT=*_FUNC_IDEOPEN_LONG_ALT; -if(!qbevent)break;evnt(25066,7601,"ide_methods.bas");}while(r); -S_42102:; -if ((-(func__totaldroppedfiles()> 0 ))||new_error){ -if(qbevent){evnt(25066,7603,"ide_methods.bas");if(r)goto S_42102;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),func__droppedfile( 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7604,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,7605,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7606,"ide_methods.bas");}while(r); -do{ -sub__finishdrop(); -if(!qbevent)break;evnt(25066,7607,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7608,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,7611,"ide_methods.bas");}while(r); -S_42110:; -dl_continue_4750:; -}while((!(*_FUNC_IDEOPEN_LONG_CHANGE))&&(!new_error)); -dl_exit_4750:; -if(qbevent){evnt(25066,7612,"ide_methods.bas");if(r)goto S_42110;} -S_42111:; -if ((*_FUNC_IDEOPEN_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7613,"ide_methods.bas");if(r)goto S_42111;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,7613,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,7613,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7615,"ide_methods.bas");}while(r); -S_42117:; -if ((*_FUNC_IDEOPEN_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7616,"ide_methods.bas");if(r)goto S_42117;} -S_42118:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,7617,"ide_methods.bas");if(r)goto S_42118;} -do{ -*_FUNC_IDEOPEN_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7618,"ide_methods.bas");}while(r); -S_42120:; -if (((-(*_FUNC_IDEOPEN_LONG_K>= 65 ))&(-(*_FUNC_IDEOPEN_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,7619,"ide_methods.bas");if(r)goto S_42120;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_ALTLETTER,func_chr(*_FUNC_IDEOPEN_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7619,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7622,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,7622,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7622,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,7626,"ide_methods.bas");}while(r); -S_42129:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,7627,"ide_methods.bas");if(r)goto S_42129;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7627,"ide_methods.bas");}while(r); -} -S_42132:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,7628,"ide_methods.bas");if(r)goto S_42132;} -do{ -*_FUNC_IDEOPEN_LONG_FOCUS=*_FUNC_IDEOPEN_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,7628,"ide_methods.bas");}while(r); -} -S_42135:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,7629,"ide_methods.bas");if(r)goto S_42135;} -do{ -*_FUNC_IDEOPEN_LONG_FOCUS=*_FUNC_IDEOPEN_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,7629,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7629,"ide_methods.bas");}while(r); -} -S_42139:; -if ((-(*_FUNC_IDEOPEN_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,7630,"ide_methods.bas");if(r)goto S_42139;} -do{ -*_FUNC_IDEOPEN_LONG_FOCUS=*_FUNC_IDEOPEN_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,7630,"ide_methods.bas");}while(r); -} -S_42142:; -if ((-(*_FUNC_IDEOPEN_LONG_FOCUS>*_FUNC_IDEOPEN_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,7631,"ide_methods.bas");if(r)goto S_42142;} -do{ -*_FUNC_IDEOPEN_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7631,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEOPEN_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7632,"ide_methods.bas");}while(r); -S_42146:; -fornext_value4754= 1 ; -fornext_finalvalue4754= 100 ; -fornext_step4754= 1 ; -if (fornext_step4754<0) fornext_step_negative4754=1; else fornext_step_negative4754=0; -if (new_error) goto fornext_error4754; -goto fornext_entrylabel4754; -while(1){ -fornext_value4754=fornext_step4754+(*_FUNC_IDEOPEN_LONG_I); -fornext_entrylabel4754: -*_FUNC_IDEOPEN_LONG_I=fornext_value4754; -if (fornext_step_negative4754){ -if (fornext_value4754fornext_finalvalue4754) break; -} -fornext_error4754:; -if(qbevent){evnt(25066,7633,"ide_methods.bas");if(r)goto S_42146;} -do{ -*_FUNC_IDEOPEN_LONG_T=*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,7634,"ide_methods.bas");}while(r); -S_42148:; -if ((*_FUNC_IDEOPEN_LONG_T)||new_error){ -if(qbevent){evnt(25066,7635,"ide_methods.bas");if(r)goto S_42148;} -do{ -*_FUNC_IDEOPEN_LONG_FOCUSOFFSET=*_FUNC_IDEOPEN_LONG_FOCUS-*_FUNC_IDEOPEN_LONG_F; -if(!qbevent)break;evnt(25066,7636,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEOPEN_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEOPEN_LONG_I)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEOPEN_LONG_FOCUS,_FUNC_IDEOPEN_LONG_F,_FUNC_IDEOPEN_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEOPEN_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEOPEN_LONG_MOUSEDOWN,_FUNC_IDEOPEN_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEOPEN_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7637,"ide_methods.bas");}while(r); -} -fornext_continue_4753:; -} -fornext_exit_4753:; -S_42153:; -if ((-(*_FUNC_IDEOPEN_LONG_FOCUS!=*_FUNC_IDEOPEN_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,7652,"ide_methods.bas");if(r)goto S_42153;} -do{ -*_FUNC_IDEOPEN_LONG_PREVFOCUS=*_FUNC_IDEOPEN_LONG_FOCUS; -if(!qbevent)break;evnt(25066,7654,"ide_methods.bas");}while(r); -S_42155:; -if ((-(*_FUNC_IDEOPEN_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,7655,"ide_methods.bas");if(r)goto S_42155;} -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_FOCUS)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_FOCUS)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,7656,"ide_methods.bas");}while(r); -S_42157:; -if ((-(*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_FOCUS)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,7657,"ide_methods.bas");if(r)goto S_42157;} -do{ -*(int8*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_FOCUS)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,7657,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEOPEN_LONG_FOCUS)-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,7658,"ide_methods.bas");}while(r); -} -} -S_42163:; -if (((-(*_FUNC_IDEOPEN_LONG_ALLFILES== 1 ))&(-(*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))!= 0 )))||new_error){ -if(qbevent){evnt(25066,7662,"ide_methods.bas");if(r)goto S_42163;} -do{ -*_FUNC_IDEOPEN_LONG_ALLFILES= 0 ; -if(!qbevent)break;evnt(25066,7663,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_LONG_ALLFILES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7664,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,7665,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(25066,7666,"ide_methods.bas");}while(r); -} -S_42169:; -if (((-(*_FUNC_IDEOPEN_LONG_ALLFILES== 0 ))&(-(*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))== 0 )))||new_error){ -if(qbevent){evnt(25066,7668,"ide_methods.bas");if(r)goto S_42169;} -do{ -*_FUNC_IDEOPEN_LONG_ALLFILES= 1 ; -if(!qbevent)break;evnt(25066,7669,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_LONG_ALLFILES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7670,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,7671,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(25066,7672,"ide_methods.bas");}while(r); -} -S_42175:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEOPEN_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEOPEN_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,7675,"ide_methods.bas");if(r)goto S_42175;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_IDEOPEN,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7676,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7677,"ide_methods.bas");}while(r); -} -S_42179:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,7680,"ide_methods.bas");if(r)goto S_42179;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7681,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,7682,"ide_methods.bas");}while(r); -} -S_42183:; -if ((-(*_FUNC_IDEOPEN_LONG_FOCUS== 3 ))||new_error){ -if(qbevent){evnt(25066,7685,"ide_methods.bas");if(r)goto S_42183;} -S_42184:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEOPEN_LONG_INFO== 1 ))))||new_error){ -if(qbevent){evnt(25066,7686,"ide_methods.bas");if(r)goto S_42184;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_PATH,FUNC_IDEZCHANGEPATH(_FUNC_IDEOPEN_STRING_PATH,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7688,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_LONG_ALLFILES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7689,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEOPEN_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7690,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,7692,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,7693,"ide_methods.bas");}while(r); -S_42190:; -if ((-(*_FUNC_IDEOPEN_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,7694,"ide_methods.bas");if(r)goto S_42190;} -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,7694,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(25066,7695,"ide_methods.bas");}while(r); -} -} -S_42196:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEOPEN_LONG_INFO== 1 ))&(-(*_FUNC_IDEOPEN_LONG_FOCUS== 2 ))))|(((-(*_FUNC_IDEOPEN_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEOPEN_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,7700,"ide_methods.bas");if(r)goto S_42196;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7701,"ide_methods.bas");}while(r); -S_42198:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEOPEN_STRING_F,qbs_new_txt_len("..",2)))|(qbs_equal(_FUNC_IDEOPEN_STRING_F,qbs_new_txt_len(".",1)))))||new_error){ -if(qbevent){evnt(25066,7704,"ide_methods.bas");if(r)goto S_42198;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_F,qbs_add(_FUNC_IDEOPEN_STRING_F,__STRING1_IDEPATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7704,"ide_methods.bas");}while(r); -} -S_42201:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEOPEN_STRING_F, 1 ),__STRING1_IDEPATHSEP)))||new_error){ -if(qbevent){evnt(25066,7705,"ide_methods.bas");if(r)goto S_42201;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7706,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7707,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_LONG_ALLFILES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7708,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,7709,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEOPEN_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7710,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEOPEN_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEOPEN_ARRAY_UDT_O[4],_FUNC_IDEOPEN_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,7711,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(25066,7712,"ide_methods.bas");}while(r); -} -S_42210:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEOPEN_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_IDEOPEN_LONG_ALLFILES== 0 ))))||new_error){ -if(qbevent){evnt(25066,7716,"ide_methods.bas");if(r)goto S_42210;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_F,qbs_add(_FUNC_IDEOPEN_STRING_F,qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7716,"ide_methods.bas");}while(r); -} -LABEL_DIRECTLOAD:; -if(qbevent){evnt(25066,7718,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDEOPEN_STRING_PATH,_FUNC_IDEOPEN_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7721,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 2 ; -if(!qbevent)break;evnt(25066,7723,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(qbs_add(_FUNC_IDEOPEN_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEOPEN_STRING_F), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7724,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,7724,"ide_methods.bas");}while(r); -S_42217:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDEOPEN_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDEOPEN_STRING_F)> 0 )))||new_error){ -if(qbevent){evnt(25066,7726,"ide_methods.bas");if(r)goto S_42217;} -S_42218:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEOPENFILE->len))||new_error){ -if(qbevent){evnt(25066,7727,"ide_methods.bas");if(r)goto S_42218;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_IDEOPEN,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7728,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7729,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEOPEN_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,7731,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(25066,7731,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(25066,7736,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7737,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(25066,7737,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(25066,7737,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(25066,7737,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(25066,7737,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,7738,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(25066,7739,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,7740,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(25066,7741,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,7742,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(25066,7743,"ide_methods.bas");}while(r); -do{ -SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDEOPEN_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEOPEN_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7744,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7745,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I2= 1 ; -if(!qbevent)break;evnt(25066,7746,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_N= 0 ; -if(!qbevent)break;evnt(25066,7747,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHRTAB,func_chr( 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7748,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_SPACE1,qbs_new_txt_len(" ",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7749,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_SPACE2,qbs_new_txt_len(" ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7749,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_SPACE3,qbs_new_txt_len(" ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7749,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_SPACE4,qbs_new_txt_len(" ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7749,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR7,func_chr( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR11,func_chr( 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR12,func_chr( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR28,func_chr( 28 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR29,func_chr( 29 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR30,func_chr( 30 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEOPEN_STRING_CHR31,func_chr( 31 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7750,"ide_methods.bas");}while(r); -S_42254:; -do{ -if(qbevent){evnt(25066,7751,"ide_methods.bas");if(r)goto S_42254;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7752,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_L=_FUNC_IDEOPEN_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7753,"ide_methods.bas");}while(r); -S_42257:; -if ((*_FUNC_IDEOPEN_LONG_L)||new_error){ -if(qbevent){evnt(25066,7754,"ide_methods.bas");if(r)goto S_42257;} -do{ -*_FUNC_IDEOPEN_LONG_ASCA=qbs_asc(_FUNC_IDEOPEN_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7754,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEOPEN_LONG_ASCA= -1 ; -if(!qbevent)break;evnt(25066,7754,"ide_methods.bas");}while(r); -} -S_42262:; -if ((-(*_FUNC_IDEOPEN_LONG_ASCA!= 13 ))||new_error){ -if(qbevent){evnt(25066,7755,"ide_methods.bas");if(r)goto S_42262;} -S_42263:; -if ((-(*_FUNC_IDEOPEN_LONG_ASCA!= -1 ))||new_error){ -if(qbevent){evnt(25066,7756,"ide_methods.bas");if(r)goto S_42263;} -LABEL_IDEOPENFIXTABS:; -if(qbevent){evnt(25066,7758,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEOPEN_LONG_X=func_instr(NULL,_FUNC_IDEOPEN_STRING_A,_FUNC_IDEOPEN_STRING_CHRTAB,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7759,"ide_methods.bas");}while(r); -S_42265:; -if ((*_FUNC_IDEOPEN_LONG_X)||new_error){ -if(qbevent){evnt(25066,7760,"ide_methods.bas");if(r)goto S_42265;} -do{ -*_FUNC_IDEOPEN_LONG_X2=(*_FUNC_IDEOPEN_LONG_X- 1 )% 4 ; -if(!qbevent)break;evnt(25066,7761,"ide_methods.bas");}while(r); -S_42267:; -if ((-(*_FUNC_IDEOPEN_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(25066,7762,"ide_methods.bas");if(r)goto S_42267;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_X- 1 ),_FUNC_IDEOPEN_STRING_SPACE4),qbs_right(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_L-*_FUNC_IDEOPEN_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7762,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_L=*_FUNC_IDEOPEN_LONG_L+ 3 ; -if(!qbevent)break;evnt(25066,7762,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(25066,7762,"ide_methods.bas");}while(r); -} -S_42272:; -if ((-(*_FUNC_IDEOPEN_LONG_X2== 1 ))||new_error){ -if(qbevent){evnt(25066,7763,"ide_methods.bas");if(r)goto S_42272;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_X- 1 ),_FUNC_IDEOPEN_STRING_SPACE3),qbs_right(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_L-*_FUNC_IDEOPEN_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7763,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_L=*_FUNC_IDEOPEN_LONG_L+ 2 ; -if(!qbevent)break;evnt(25066,7763,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(25066,7763,"ide_methods.bas");}while(r); -} -S_42277:; -if ((-(*_FUNC_IDEOPEN_LONG_X2== 2 ))||new_error){ -if(qbevent){evnt(25066,7764,"ide_methods.bas");if(r)goto S_42277;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_X- 1 ),_FUNC_IDEOPEN_STRING_SPACE2),qbs_right(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_L-*_FUNC_IDEOPEN_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7764,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_L=*_FUNC_IDEOPEN_LONG_L+ 1 ; -if(!qbevent)break;evnt(25066,7764,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(25066,7764,"ide_methods.bas");}while(r); -} -S_42282:; -if ((-(*_FUNC_IDEOPEN_LONG_X2== 3 ))||new_error){ -if(qbevent){evnt(25066,7765,"ide_methods.bas");if(r)goto S_42282;} -do{ -qbs_set(_FUNC_IDEOPEN_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_X- 1 ),_FUNC_IDEOPEN_STRING_SPACE1),qbs_right(_FUNC_IDEOPEN_STRING_A,*_FUNC_IDEOPEN_LONG_L-*_FUNC_IDEOPEN_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7765,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(25066,7765,"ide_methods.bas");}while(r); -} -} -} -do{ -sub_mid(__STRING_IDET,*_FUNC_IDEOPEN_LONG_I2,*_FUNC_IDEOPEN_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDEOPEN_LONG_L),_FUNC_IDEOPEN_STRING_A),l2string(*_FUNC_IDEOPEN_LONG_L)),1); -if(!qbevent)break;evnt(25066,7768,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_I2=*_FUNC_IDEOPEN_LONG_I2+*_FUNC_IDEOPEN_LONG_L+ 8 ; -if(!qbevent)break;evnt(25066,7768,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_N=*_FUNC_IDEOPEN_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,7768,"ide_methods.bas");}while(r); -} -S_42292:; -dl_continue_4759:; -}while((!(-(*_FUNC_IDEOPEN_LONG_ASCA== 13 )))&&(!new_error)); -dl_exit_4759:; -if(qbevent){evnt(25066,7770,"ide_methods.bas");if(r)goto S_42292;} -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7771,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*_FUNC_IDEOPEN_LONG_N; -if(!qbevent)break;evnt(25066,7772,"ide_methods.bas");}while(r); -S_42295:; -if ((-(*_FUNC_IDEOPEN_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(25066,7772,"ide_methods.bas");if(r)goto S_42295;} -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7772,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(25066,7772,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDEOPEN_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7772,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(25066,7773,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEOPEN_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7774,"ide_methods.bas");}while(r); -do{ -sub__title(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - QB64",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7774,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7775,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,_FUNC_IDEOPEN_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7776,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7777,"ide_methods.bas");}while(r); -do{ -SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7778,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7779,"ide_methods.bas");}while(r); -} -LABEL_IDEOPENLOOP:; -if(qbevent){evnt(25066,7782,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEOPEN_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,7785,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEOPEN_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,7786,"ide_methods.bas");}while(r); -dl_continue_4744:; -}while(1); -dl_exit_4744:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free153.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEOPEN_STRING_IDEOPEN);return _FUNC_IDEOPEN_STRING_IDEOPEN; -} -void SUB_IDEPAR(void*_SUB_IDEPAR_UDT_PAR,int32*_SUB_IDEPAR_LONG_W,int32*_SUB_IDEPAR_LONG_H,qbs*_SUB_IDEPAR_STRING_TITLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data154.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(0))=((*__LONG_IDEWX/ 2 ))-(*_SUB_IDEPAR_LONG_W/ 2 ); -if(!qbevent)break;evnt(25066,7791,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(4))=(((*__LONG_IDEWY+*__LONG_IDESUBWINDOW)/ 2 ))-(*_SUB_IDEPAR_LONG_H/ 2 ); -if(!qbevent)break;evnt(25066,7792,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(8))=*_SUB_IDEPAR_LONG_W; -if(!qbevent)break;evnt(25066,7793,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(12))=*_SUB_IDEPAR_LONG_H; -if(!qbevent)break;evnt(25066,7794,"ide_methods.bas");}while(r); -S_42317:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEPAR_STRING_TITLE->len))||new_error){ -if(qbevent){evnt(25066,7795,"ide_methods.bas");if(r)goto S_42317;} -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(16))=FUNC_IDENEWTXT(_SUB_IDEPAR_STRING_TITLE); -if(!qbevent)break;evnt(25066,7795,"ide_methods.bas");}while(r); -} -do{ -sub__resize( 2 ,NULL); -if(!qbevent)break;evnt(25066,7796,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free154.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDERESTORE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data155.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,7802,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,7803,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,7804,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7805,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7806,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7807,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDERESTORE_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDERESTORE_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDERESTORE_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDERESTORE_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDERESTORE_ARRAY_UDT_O[4]+1; -_FUNC_IDERESTORE_ARRAY_UDT_O[6]=1; -if (_FUNC_IDERESTORE_ARRAY_UDT_O[2]&4){ -_FUNC_IDERESTORE_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDERESTORE_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDERESTORE_ARRAY_UDT_O[0]),0,_FUNC_IDERESTORE_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDERESTORE_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDERESTORE_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDERESTORE_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDERESTORE_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,7808,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7809,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERESTORE_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7810,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,7814,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERESTORE_UDT_P)) + (0) ),&(pass4763= 43 ),&(pass4764= 4 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7816,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_I=*_FUNC_IDERESTORE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7817,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,7818,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,7819,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Yes",4),_FUNC_IDERESTORE_STRING1_SEP),qbs_new_txt_len("#No",3))); -if(!qbevent)break;evnt(25066,7820,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,7821,"ide_methods.bas");}while(r); -S_42337:; -fornext_value4766= 1 ; -fornext_finalvalue4766= 100 ; -fornext_step4766= 1 ; -if (fornext_step4766<0) fornext_step_negative4766=1; else fornext_step_negative4766=0; -if (new_error) goto fornext_error4766; -goto fornext_entrylabel4766; -while(1){ -fornext_value4766=fornext_step4766+(*_FUNC_IDERESTORE_LONG_I); -fornext_entrylabel4766: -*_FUNC_IDERESTORE_LONG_I=fornext_value4766; -if (fornext_step_negative4766){ -if (fornext_value4766fornext_finalvalue4766) break; -} -fornext_error4766:; -if(qbevent){evnt(25066,7825,"ide_methods.bas");if(r)goto S_42337;} -do{ -memcpy(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDERESTORE_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,7825,"ide_methods.bas");}while(r); -fornext_continue_4765:; -} -fornext_exit_4765:; -S_42340:; -do{ -if(qbevent){evnt(25066,7828,"ide_methods.bas");if(r)goto S_42340;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERESTORE_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,7831,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7832,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,7832,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,7832,"ide_methods.bas");}while(r); -S_42345:; -fornext_value4769= 1 ; -fornext_finalvalue4769= 100 ; -fornext_step4769= 1 ; -if (fornext_step4769<0) fornext_step_negative4769=1; else fornext_step_negative4769=0; -if (new_error) goto fornext_error4769; -goto fornext_entrylabel4769; -while(1){ -fornext_value4769=fornext_step4769+(*_FUNC_IDERESTORE_LONG_I); -fornext_entrylabel4769: -*_FUNC_IDERESTORE_LONG_I=fornext_value4769; -if (fornext_step_negative4769){ -if (fornext_value4769fornext_finalvalue4769) break; -} -fornext_error4769:; -if(qbevent){evnt(25066,7833,"ide_methods.bas");if(r)goto S_42345;} -S_42346:; -if ((*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,7834,"ide_methods.bas");if(r)goto S_42346;} -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDERESTORE_LONG_FOCUS-*_FUNC_IDERESTORE_LONG_F; -if(!qbevent)break;evnt(25066,7836,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,7837,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,7837,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERESTORE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85) ),_FUNC_IDERESTORE_LONG_F); -if(!qbevent)break;evnt(25066,7838,"ide_methods.bas");}while(r); -S_42351:; -if ((*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,7839,"ide_methods.bas");if(r)goto S_42351;} -do{ -*_FUNC_IDERESTORE_LONG_CX=*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,7839,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_CY=*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,7839,"ide_methods.bas");}while(r); -} -} -fornext_continue_4768:; -} -fornext_exit_4768:; -do{ -*_FUNC_IDERESTORE_LONG_LASTFOCUS=*_FUNC_IDERESTORE_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,7842,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7846,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERESTORE_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDERESTORE_UDT_P)+(0))+ 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7846,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Recover program from auto-saved backup?",39)); -if (new_error) goto skip4770; -makefit(tqbs); -qbs_print(tqbs,0); -skip4770: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7846,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,7850,"ide_methods.bas");}while(r); -S_42362:; -if ((*_FUNC_IDERESTORE_LONG_CX)||new_error){ -if(qbevent){evnt(25066,7851,"ide_methods.bas");if(r)goto S_42362;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7851,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDERESTORE_LONG_CY,*_FUNC_IDERESTORE_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,7851,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7851,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,7854,"ide_methods.bas");}while(r); -S_42368:; -do{ -if(qbevent){evnt(25066,7855,"ide_methods.bas");if(r)goto S_42368;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,7856,"ide_methods.bas");}while(r); -S_42370:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,7857,"ide_methods.bas");if(r)goto S_42370;} -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7857,"ide_methods.bas");}while(r); -} -S_42373:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,7858,"ide_methods.bas");if(r)goto S_42373;} -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7858,"ide_methods.bas");}while(r); -} -S_42376:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,7859,"ide_methods.bas");if(r)goto S_42376;} -do{ -*_FUNC_IDERESTORE_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,7859,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7859,"ide_methods.bas");}while(r); -} -S_42380:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,7860,"ide_methods.bas");if(r)goto S_42380;} -do{ -*_FUNC_IDERESTORE_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,7860,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7860,"ide_methods.bas");}while(r); -} -S_42384:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,7861,"ide_methods.bas");if(r)goto S_42384;} -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7861,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERESTORE_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,7862,"ide_methods.bas");}while(r); -S_42388:; -if ((-(*_FUNC_IDERESTORE_LONG_ALT!=*_FUNC_IDERESTORE_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,7862,"ide_methods.bas");if(r)goto S_42388;} -do{ -*_FUNC_IDERESTORE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7862,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERESTORE_LONG_OLDALT=*_FUNC_IDERESTORE_LONG_ALT; -if(!qbevent)break;evnt(25066,7863,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,7864,"ide_methods.bas");}while(r); -S_42393:; -dl_continue_4771:; -}while((!(*_FUNC_IDERESTORE_LONG_CHANGE))&&(!new_error)); -dl_exit_4771:; -if(qbevent){evnt(25066,7865,"ide_methods.bas");if(r)goto S_42393;} -S_42394:; -if ((*_FUNC_IDERESTORE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7866,"ide_methods.bas");if(r)goto S_42394;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,7866,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,7866,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDERESTORE_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7868,"ide_methods.bas");}while(r); -S_42400:; -if ((*_FUNC_IDERESTORE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7869,"ide_methods.bas");if(r)goto S_42400;} -S_42401:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,7870,"ide_methods.bas");if(r)goto S_42401;} -do{ -*_FUNC_IDERESTORE_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7871,"ide_methods.bas");}while(r); -S_42403:; -if (((-(*_FUNC_IDERESTORE_LONG_K>= 65 ))&(-(*_FUNC_IDERESTORE_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,7872,"ide_methods.bas");if(r)goto S_42403;} -do{ -qbs_set(_FUNC_IDERESTORE_STRING_ALTLETTER,func_chr(*_FUNC_IDERESTORE_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7872,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7875,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,7875,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7875,"ide_methods.bas");}while(r); -S_42411:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,7878,"ide_methods.bas");if(r)goto S_42411;} -do{ -qbs_set(_FUNC_IDERESTORE_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7878,"ide_methods.bas");}while(r); -} -S_42414:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,7879,"ide_methods.bas");if(r)goto S_42414;} -do{ -qbs_set(_FUNC_IDERESTORE_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7879,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERESTORE_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,7882,"ide_methods.bas");}while(r); -S_42418:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,7883,"ide_methods.bas");if(r)goto S_42418;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7883,"ide_methods.bas");}while(r); -} -S_42421:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,7884,"ide_methods.bas");if(r)goto S_42421;} -do{ -*_FUNC_IDERESTORE_LONG_FOCUS=*_FUNC_IDERESTORE_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,7884,"ide_methods.bas");}while(r); -} -S_42424:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,7885,"ide_methods.bas");if(r)goto S_42424;} -do{ -*_FUNC_IDERESTORE_LONG_FOCUS=*_FUNC_IDERESTORE_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,7885,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7885,"ide_methods.bas");}while(r); -} -S_42428:; -if ((-(*_FUNC_IDERESTORE_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,7886,"ide_methods.bas");if(r)goto S_42428;} -do{ -*_FUNC_IDERESTORE_LONG_FOCUS=*_FUNC_IDERESTORE_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,7886,"ide_methods.bas");}while(r); -} -S_42431:; -if ((-(*_FUNC_IDERESTORE_LONG_FOCUS>*_FUNC_IDERESTORE_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,7887,"ide_methods.bas");if(r)goto S_42431;} -do{ -*_FUNC_IDERESTORE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7887,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERESTORE_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7888,"ide_methods.bas");}while(r); -S_42435:; -fornext_value4774= 1 ; -fornext_finalvalue4774= 100 ; -fornext_step4774= 1 ; -if (fornext_step4774<0) fornext_step_negative4774=1; else fornext_step_negative4774=0; -if (new_error) goto fornext_error4774; -goto fornext_entrylabel4774; -while(1){ -fornext_value4774=fornext_step4774+(*_FUNC_IDERESTORE_LONG_I); -fornext_entrylabel4774: -*_FUNC_IDERESTORE_LONG_I=fornext_value4774; -if (fornext_step_negative4774){ -if (fornext_value4774fornext_finalvalue4774) break; -} -fornext_error4774:; -if(qbevent){evnt(25066,7889,"ide_methods.bas");if(r)goto S_42435;} -do{ -*_FUNC_IDERESTORE_LONG_T=*(int32*)(((char*)_FUNC_IDERESTORE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,7890,"ide_methods.bas");}while(r); -S_42437:; -if ((*_FUNC_IDERESTORE_LONG_T)||new_error){ -if(qbevent){evnt(25066,7891,"ide_methods.bas");if(r)goto S_42437;} -do{ -*_FUNC_IDERESTORE_LONG_FOCUSOFFSET=*_FUNC_IDERESTORE_LONG_FOCUS-*_FUNC_IDERESTORE_LONG_F; -if(!qbevent)break;evnt(25066,7892,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERESTORE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERESTORE_LONG_I)-_FUNC_IDERESTORE_ARRAY_UDT_O[4],_FUNC_IDERESTORE_ARRAY_UDT_O[5]))*85) ),_FUNC_IDERESTORE_LONG_FOCUS,_FUNC_IDERESTORE_LONG_F,_FUNC_IDERESTORE_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERESTORE_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERESTORE_LONG_MOUSEDOWN,_FUNC_IDERESTORE_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERESTORE_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7893,"ide_methods.bas");}while(r); -} -fornext_continue_4773:; -} -fornext_exit_4773:; -S_42442:; -if ((*_FUNC_IDERESTORE_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,7898,"ide_methods.bas");if(r)goto S_42442;} -S_42443:; -if ((-(*_FUNC_IDERESTORE_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,7899,"ide_methods.bas");if(r)goto S_42443;} -do{ -qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7899,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7899,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,7900,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERESTORE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,7904,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,7905,"ide_methods.bas");}while(r); -dl_continue_4767:; -}while(1); -dl_exit_4767:; +dl_exit_5308:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free155.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDERESTORE_STRING_IDERESTORE);return _FUNC_IDERESTORE_STRING_IDERESTORE; +qbs_maketmp(_FUNC_IDEFIND_STRING_IDEFIND);return _FUNC_IDEFIND_STRING_IDEFIND; } -qbs* FUNC_IDECLEARHISTORY(qbs*_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY){ +void SUB_IDEFINDAGAIN(int8*_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -150452,491 +165541,476 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,7913,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11356,"ide_methods.bas");}while(r); +S_47758:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26307,11358,"ide_methods.bas");if(r)goto S_47758;} +S_47759:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26307,11359,"ide_methods.bas");if(r)goto S_47759;} do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,7914,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,7915,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7916,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,7917,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,7918,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]&2){ -error(10); +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26307,11359,"ide_methods.bas");}while(r); }else{ -if (_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4]+1; -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[6]=1; -if (_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]&4){ -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0]),0,_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[2]|=1; +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26307,11359,"ide_methods.bas");}while(r); } } -if(!qbevent)break;evnt(25066,7919,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,7920,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING1_SEP,func_chr( 0 )); +qbs_set(_SUB_IDEFINDAGAIN_STRING_S,__STRING_IDEFINDTEXT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7921,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11362,"ide_methods.bas");}while(r); +S_47766:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26307,11363,"ide_methods.bas");if(r)goto S_47766;} do{ -*_FUNC_IDECLEARHISTORY_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,7925,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECLEARHISTORY_UDT_P)) + (0) ),&(pass4776= 48 ),&(pass4777= 4 ),qbs_new_txt_len("",0)); +qbs_set(_SUB_IDEFINDAGAIN_STRING_S,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_S)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7927,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11363,"ide_methods.bas");}while(r); +} do{ -*_FUNC_IDECLEARHISTORY_LONG_I=*_FUNC_IDECLEARHISTORY_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,7928,"ide_methods.bas");}while(r); +*_SUB_IDEFINDAGAIN_LONG_START=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,11364,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,7929,"ide_methods.bas");}while(r); +*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_START; +if(!qbevent)break;evnt(26307,11365,"ide_methods.bas");}while(r); +LABEL_IDEFINDNEXT2:; +if(qbevent){evnt(26307,11367,"ide_methods.bas");r=0;} do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,7930,"ide_methods.bas");}while(r); +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,FUNC_IDEGETLINE(_SUB_IDEFINDAGAIN_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11368,"ide_methods.bas");}while(r); +S_47772:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26307,11369,"ide_methods.bas");if(r)goto S_47772;} do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Yes",4),_FUNC_IDECLEARHISTORY_STRING1_SEP),qbs_new_txt_len("#No",3))); -if(!qbevent)break;evnt(25066,7931,"ide_methods.bas");}while(r); +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11369,"ide_methods.bas");}while(r); +} +S_47775:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_Y==*_SUB_IDEFINDAGAIN_LONG_START))||new_error){ +if(qbevent){evnt(26307,11371,"ide_methods.bas");if(r)goto S_47775;} +S_47776:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 ))||new_error){ +if(qbevent){evnt(26307,11373,"ide_methods.bas");if(r)goto S_47776;} +S_47777:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26307,11374,"ide_methods.bas");if(r)goto S_47777;} +S_47778:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26307,11375,"ide_methods.bas");if(r)goto S_47778;} do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,7932,"ide_methods.bas");}while(r); -S_42469:; -fornext_value4779= 1 ; -fornext_finalvalue4779= 100 ; -fornext_step4779= 1 ; -if (fornext_step4779<0) fornext_step_negative4779=1; else fornext_step_negative4779=0; -if (new_error) goto fornext_error4779; -goto fornext_entrylabel4779; +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11375,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11375,"ide_methods.bas");}while(r); +} +}else{ +S_47784:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26307,11377,"ide_methods.bas");if(r)goto S_47784;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11377,"ide_methods.bas");}while(r); +} +} +}else{ +S_47789:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26307,11380,"ide_methods.bas");if(r)goto S_47789;} +S_47790:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26307,11381,"ide_methods.bas");if(r)goto S_47790;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX- 1 +(_SUB_IDEFINDAGAIN_STRING_S->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11381,"ide_methods.bas");}while(r); +} +}else{ +S_47794:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26307,11383,"ide_methods.bas");if(r)goto S_47794;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11383,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11383,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1= 1 ; +if(!qbevent)break;evnt(26307,11388,"ide_methods.bas");}while(r); +S_47803:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26307,11389,"ide_methods.bas");if(r)goto S_47803;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1=_SUB_IDEFINDAGAIN_STRING_L->len-_SUB_IDEFINDAGAIN_STRING_S->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11390,"ide_methods.bas");}while(r); +S_47805:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_X1< 0 ))||new_error){ +if(qbevent){evnt(26307,11391,"ide_methods.bas");if(r)goto S_47805;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1= 0 ; +if(!qbevent)break;evnt(26307,11391,"ide_methods.bas");}while(r); +} +} +LABEL_IDEFINDAGAIN2:; +if(qbevent){evnt(26307,11394,"ide_methods.bas");r=0;} +S_47809:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26307,11396,"ide_methods.bas");if(r)goto S_47809;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,11397,"ide_methods.bas");}while(r); +S_47811:; +fornext_value5329=*_SUB_IDEFINDAGAIN_LONG_X1; +fornext_finalvalue5329= 1 ; +fornext_step5329= -1 ; +if (fornext_step5329<0) fornext_step_negative5329=1; else fornext_step_negative5329=0; +if (new_error) goto fornext_error5329; +goto fornext_entrylabel5329; while(1){ -fornext_value4779=fornext_step4779+(*_FUNC_IDECLEARHISTORY_LONG_I); -fornext_entrylabel4779: -*_FUNC_IDECLEARHISTORY_LONG_I=fornext_value4779; -if (fornext_step_negative4779){ -if (fornext_value4779fornext_finalvalue4779) break; +if (fornext_value5329>fornext_finalvalue5329) break; } -fornext_error4779:; -if(qbevent){evnt(25066,7936,"ide_methods.bas");if(r)goto S_42469;} +fornext_error5329:; +if(qbevent){evnt(26307,11398,"ide_methods.bas");if(r)goto S_47811;} +S_47812:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX)==qbs_asc(_SUB_IDEFINDAGAIN_STRING_S))))||new_error){ +if(qbevent){evnt(26307,11399,"ide_methods.bas");if(r)goto S_47812;} do{ -memcpy(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDECLEARHISTORY_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,7936,"ide_methods.bas");}while(r); -fornext_continue_4778:; -} -fornext_exit_4778:; -S_42472:; -do{ -if(qbevent){evnt(25066,7939,"ide_methods.bas");if(r)goto S_42472;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECLEARHISTORY_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,7942,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,7943,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,7943,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,7943,"ide_methods.bas");}while(r); -S_42477:; -fornext_value4782= 1 ; -fornext_finalvalue4782= 100 ; -fornext_step4782= 1 ; -if (fornext_step4782<0) fornext_step_negative4782=1; else fornext_step_negative4782=0; -if (new_error) goto fornext_error4782; -goto fornext_entrylabel4782; +*_SUB_IDEFINDAGAIN_LONG_XXO=*_SUB_IDEFINDAGAIN_LONG_XX- 1 ; +if(!qbevent)break;evnt(26307,11400,"ide_methods.bas");}while(r); +S_47814:; +fornext_value5331=*_SUB_IDEFINDAGAIN_LONG_XX; +fornext_finalvalue5331=*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len- 1 ; +fornext_step5331= 1 ; +if (fornext_step5331<0) fornext_step_negative5331=1; else fornext_step_negative5331=0; +if (new_error) goto fornext_error5331; +goto fornext_entrylabel5331; while(1){ -fornext_value4782=fornext_step4782+(*_FUNC_IDECLEARHISTORY_LONG_I); -fornext_entrylabel4782: -*_FUNC_IDECLEARHISTORY_LONG_I=fornext_value4782; -if (fornext_step_negative4782){ -if (fornext_value4782fornext_finalvalue4782) break; +if (fornext_value5331>fornext_finalvalue5331) break; } -fornext_error4782:; -if(qbevent){evnt(25066,7944,"ide_methods.bas");if(r)goto S_42477;} -S_42478:; -if ((*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,7945,"ide_methods.bas");if(r)goto S_42478;} +fornext_error5331:; +if(qbevent){evnt(26307,11401,"ide_methods.bas");if(r)goto S_47814;} +S_47815:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX2)!=qbs_asc(_SUB_IDEFINDAGAIN_STRING_S,*_SUB_IDEFINDAGAIN_LONG_XX2-*_SUB_IDEFINDAGAIN_LONG_XXO))))||new_error){ +if(qbevent){evnt(26307,11402,"ide_methods.bas");if(r)goto S_47815;} do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDECLEARHISTORY_LONG_FOCUS-*_FUNC_IDECLEARHISTORY_LONG_F; -if(!qbevent)break;evnt(25066,7947,"ide_methods.bas");}while(r); +goto fornext_exit_5330; +if(!qbevent)break;evnt(26307,11402,"ide_methods.bas");}while(r); +} +fornext_continue_5330:; +} +fornext_exit_5330:; +S_47819:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEFINDAGAIN_LONG_XX2==(*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len))))||new_error){ +if(qbevent){evnt(26307,11404,"ide_methods.bas");if(r)goto S_47819;} do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,7948,"ide_methods.bas");}while(r); +*_SUB_IDEFINDAGAIN_LONG_X=*_SUB_IDEFINDAGAIN_LONG_XX; +if(!qbevent)break;evnt(26307,11406,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,7948,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECLEARHISTORY_LONG_F); -if(!qbevent)break;evnt(25066,7949,"ide_methods.bas");}while(r); -S_42483:; -if ((*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,7950,"ide_methods.bas");if(r)goto S_42483;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_CX=*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,7950,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_CY=*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,7950,"ide_methods.bas");}while(r); +goto fornext_exit_5328; +if(!qbevent)break;evnt(26307,11407,"ide_methods.bas");}while(r); } } -fornext_continue_4781:; +fornext_continue_5328:; } -fornext_exit_4781:; -do{ -*_FUNC_IDECLEARHISTORY_LONG_LASTFOCUS=*_FUNC_IDECLEARHISTORY_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,7953,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,7957,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECLEARHISTORY_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECLEARHISTORY_UDT_P)+(0))+ 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,7957,"ide_methods.bas");}while(r); -S_42492:; -if(qbevent){evnt(25066,7958,"ide_methods.bas");if(r)goto S_42492;} -S_42493:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("SEARCH",6))))||new_error){ -if(qbevent){evnt(25066,7959,"ide_methods.bas");if(r)goto S_42493;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("This cannot be undone. Clear search history?",44)); -if (new_error) goto skip4784; -makefit(tqbs); -qbs_print(tqbs,0); -skip4784: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7959,"ide_methods.bas");}while(r); -goto sc_4783_end; -} -S_42495:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("FILES",5))))||new_error){ -if(qbevent){evnt(25066,7960,"ide_methods.bas");if(r)goto S_42495;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" This cannot be undone. Clear recent files?",43)); -if (new_error) goto skip4785; -makefit(tqbs); -qbs_print(tqbs,0); -skip4785: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7960,"ide_methods.bas");}while(r); -goto sc_4783_end; -} -S_42497:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("INVALID",7))))||new_error){ -if(qbevent){evnt(25066,7961,"ide_methods.bas");if(r)goto S_42497;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Remove broken links from recent files?",40)); -if (new_error) goto skip4786; -makefit(tqbs); -qbs_print(tqbs,0); -skip4786: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7961,"ide_methods.bas");}while(r); -goto sc_4783_end; -} -sc_4783_end:; -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,7966,"ide_methods.bas");}while(r); -S_42501:; -if ((*_FUNC_IDECLEARHISTORY_LONG_CX)||new_error){ -if(qbevent){evnt(25066,7967,"ide_methods.bas");if(r)goto S_42501;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7967,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDECLEARHISTORY_LONG_CY,*_FUNC_IDECLEARHISTORY_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,7967,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7967,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,7970,"ide_methods.bas");}while(r); -S_42507:; -do{ -if(qbevent){evnt(25066,7971,"ide_methods.bas");if(r)goto S_42507;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,7972,"ide_methods.bas");}while(r); -S_42509:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,7973,"ide_methods.bas");if(r)goto S_42509;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7973,"ide_methods.bas");}while(r); -} -S_42512:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,7974,"ide_methods.bas");if(r)goto S_42512;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7974,"ide_methods.bas");}while(r); -} -S_42515:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,7975,"ide_methods.bas");if(r)goto S_42515;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,7975,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7975,"ide_methods.bas");}while(r); -} -S_42519:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,7976,"ide_methods.bas");if(r)goto S_42519;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,7976,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7976,"ide_methods.bas");}while(r); -} -S_42523:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,7977,"ide_methods.bas");if(r)goto S_42523;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7977,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECLEARHISTORY_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,7978,"ide_methods.bas");}while(r); -S_42527:; -if ((-(*_FUNC_IDECLEARHISTORY_LONG_ALT!=*_FUNC_IDECLEARHISTORY_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,7978,"ide_methods.bas");if(r)goto S_42527;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,7978,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECLEARHISTORY_LONG_OLDALT=*_FUNC_IDECLEARHISTORY_LONG_ALT; -if(!qbevent)break;evnt(25066,7979,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,7980,"ide_methods.bas");}while(r); -S_42532:; -dl_continue_4787:; -}while((!(*_FUNC_IDECLEARHISTORY_LONG_CHANGE))&&(!new_error)); -dl_exit_4787:; -if(qbevent){evnt(25066,7981,"ide_methods.bas");if(r)goto S_42532;} -S_42533:; -if ((*_FUNC_IDECLEARHISTORY_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7982,"ide_methods.bas");if(r)goto S_42533;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,7982,"ide_methods.bas");}while(r); +fornext_exit_5328:; }else{ do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,7982,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_ALTLETTER,qbs_new_txt_len("",0)); +*_SUB_IDEFINDAGAIN_LONG_X=func_instr(*_SUB_IDEFINDAGAIN_LONG_X1,_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_S,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7984,"ide_methods.bas");}while(r); -S_42539:; -if ((*_FUNC_IDECLEARHISTORY_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,7985,"ide_methods.bas");if(r)goto S_42539;} -S_42540:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,7986,"ide_methods.bas");if(r)goto S_42540;} +if(!qbevent)break;evnt(26307,11412,"ide_methods.bas");}while(r); +} +S_47828:; +if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ +if(qbevent){evnt(26307,11416,"ide_methods.bas");if(r)goto S_47828;} +S_47829:; +if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ +if(qbevent){evnt(26307,11417,"ide_methods.bas");if(r)goto S_47829;} do{ -*_FUNC_IDECLEARHISTORY_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 1 ; +if(!qbevent)break;evnt(26307,11418,"ide_methods.bas");}while(r); +S_47831:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_X> 1 ))||new_error){ +if(qbevent){evnt(26307,11419,"ide_methods.bas");if(r)goto S_47831;} +do{ +*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X- 1 , 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7987,"ide_methods.bas");}while(r); -S_42542:; -if (((-(*_FUNC_IDECLEARHISTORY_LONG_K>= 65 ))&(-(*_FUNC_IDECLEARHISTORY_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,7988,"ide_methods.bas");if(r)goto S_42542;} +if(!qbevent)break;evnt(26307,11420,"ide_methods.bas");}while(r); +S_47833:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26307,11421,"ide_methods.bas");if(r)goto S_47833;} do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_ALTLETTER,func_chr(*_FUNC_IDECLEARHISTORY_LONG_K)); +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26307,11421,"ide_methods.bas");}while(r); +} +S_47836:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26307,11422,"ide_methods.bas");if(r)goto S_47836;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26307,11422,"ide_methods.bas");}while(r); +} +} +S_47840:; +if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len)<=(_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ +if(qbevent){evnt(26307,11424,"ide_methods.bas");if(r)goto S_47840;} +do{ +*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11425,"ide_methods.bas");}while(r); +S_47842:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26307,11426,"ide_methods.bas");if(r)goto S_47842;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26307,11426,"ide_methods.bas");}while(r); +} +S_47845:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26307,11427,"ide_methods.bas");if(r)goto S_47845;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26307,11427,"ide_methods.bas");}while(r); +} +} +S_47849:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_WHOLE== 0 ))||new_error){ +if(qbevent){evnt(26307,11429,"ide_methods.bas");if(r)goto S_47849;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,11430,"ide_methods.bas");}while(r); +S_47851:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26307,11430,"ide_methods.bas");if(r)goto S_47851;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X- 1 ; +if(!qbevent)break;evnt(26307,11430,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,11431,"ide_methods.bas");}while(r); +S_47855:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEFINDAGAIN_LONG_X1> 0 ))&(-(*_SUB_IDEFINDAGAIN_LONG_X1<=_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ +if(qbevent){evnt(26307,11432,"ide_methods.bas");if(r)goto S_47855;} +do{ +goto LABEL_IDEFINDAGAIN2; +if(!qbevent)break;evnt(26307,11432,"ide_methods.bas");}while(r); } } } +} +S_47861:; +if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ +if(qbevent){evnt(26307,11437,"ide_methods.bas");if(r)goto S_47861;} do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7991,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,7991,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,7991,"ide_methods.bas");}while(r); -S_42550:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,7994,"ide_methods.bas");if(r)goto S_42550;} -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); +SUB_FINDQUOTECOMMENT(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_LONG_X,_SUB_IDEFINDAGAIN_BYTE_COMMENT,_SUB_IDEFINDAGAIN_BYTE_QUOTE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7994,"ide_methods.bas");}while(r); -} -S_42553:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,7995,"ide_methods.bas");if(r)goto S_42553;} +if(!qbevent)break;evnt(26307,11438,"ide_methods.bas");}while(r); +S_47863:; +if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_COMMENT)||new_error){ +if(qbevent){evnt(26307,11439,"ide_methods.bas");if(r)goto S_47863;} do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_ALTLETTER,qbs_new_txt_len("N",1)); +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,11439,"ide_methods.bas");}while(r); +} +S_47866:; +if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26307,11440,"ide_methods.bas");if(r)goto S_47866;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,11440,"ide_methods.bas");}while(r); +} +S_47869:; +if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_COMMENT== 0 )))||new_error){ +if(qbevent){evnt(26307,11441,"ide_methods.bas");if(r)goto S_47869;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,11441,"ide_methods.bas");}while(r); +} +S_47872:; +if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26307,11442,"ide_methods.bas");if(r)goto S_47872;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,11442,"ide_methods.bas");}while(r); +} +} +S_47876:; +if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ +if(qbevent){evnt(26307,11445,"ide_methods.bas");if(r)goto S_47876;} +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26307,11446,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_SUB_IDEFINDAGAIN_LONG_X; +if(!qbevent)break;evnt(26307,11447,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_IDEFINDAGAIN_LONG_Y; +if(!qbevent)break;evnt(26307,11447,"ide_methods.bas");}while(r); +do{ +*__LONG_SEARCHSTRINGFOUNDON=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,11448,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7995,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,11449,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECLEARHISTORY_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,7998,"ide_methods.bas");}while(r); -S_42557:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,7999,"ide_methods.bas");if(r)goto S_42557;} +*__LONG_IDESELECTY1=*_SUB_IDEFINDAGAIN_LONG_Y; +if(!qbevent)break;evnt(26307,11449,"ide_methods.bas");}while(r); +S_47883:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26307,11451,"ide_methods.bas");if(r)goto S_47883;} +S_47884:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26307,11452,"ide_methods.bas");if(r)goto S_47884;} do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,7999,"ide_methods.bas");}while(r); -} -S_42560:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,8000,"ide_methods.bas");if(r)goto S_42560;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_FOCUS=*_FUNC_IDECLEARHISTORY_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,8000,"ide_methods.bas");}while(r); -} -S_42563:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,8001,"ide_methods.bas");if(r)goto S_42563;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_FOCUS=*_FUNC_IDECLEARHISTORY_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,8001,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8001,"ide_methods.bas");}while(r); -} -S_42567:; -if ((-(*_FUNC_IDECLEARHISTORY_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,8002,"ide_methods.bas");if(r)goto S_42567;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_FOCUS=*_FUNC_IDECLEARHISTORY_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,8002,"ide_methods.bas");}while(r); -} -S_42570:; -if ((-(*_FUNC_IDECLEARHISTORY_LONG_FOCUS>*_FUNC_IDECLEARHISTORY_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,8003,"ide_methods.bas");if(r)goto S_42570;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,8003,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECLEARHISTORY_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,8004,"ide_methods.bas");}while(r); -S_42574:; -fornext_value4790= 1 ; -fornext_finalvalue4790= 100 ; -fornext_step4790= 1 ; -if (fornext_step4790<0) fornext_step_negative4790=1; else fornext_step_negative4790=0; -if (new_error) goto fornext_error4790; -goto fornext_entrylabel4790; -while(1){ -fornext_value4790=fornext_step4790+(*_FUNC_IDECLEARHISTORY_LONG_I); -fornext_entrylabel4790: -*_FUNC_IDECLEARHISTORY_LONG_I=fornext_value4790; -if (fornext_step_negative4790){ -if (fornext_value4790fornext_finalvalue4790) break; -} -fornext_error4790:; -if(qbevent){evnt(25066,8005,"ide_methods.bas");if(r)goto S_42574;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_T=*(int32*)(((char*)_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,8006,"ide_methods.bas");}while(r); -S_42576:; -if ((*_FUNC_IDECLEARHISTORY_LONG_T)||new_error){ -if(qbevent){evnt(25066,8007,"ide_methods.bas");if(r)goto S_42576;} -do{ -*_FUNC_IDECLEARHISTORY_LONG_FOCUSOFFSET=*_FUNC_IDECLEARHISTORY_LONG_FOCUS-*_FUNC_IDECLEARHISTORY_LONG_F; -if(!qbevent)break;evnt(25066,8008,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECLEARHISTORY_LONG_I)-_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[4],_FUNC_IDECLEARHISTORY_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECLEARHISTORY_LONG_FOCUS,_FUNC_IDECLEARHISTORY_LONG_F,_FUNC_IDECLEARHISTORY_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECLEARHISTORY_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECLEARHISTORY_LONG_MOUSEDOWN,_FUNC_IDECLEARHISTORY_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECLEARHISTORY_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8009,"ide_methods.bas");}while(r); -} -fornext_continue_4789:; -} -fornext_exit_4789:; -S_42581:; -if ((*_FUNC_IDECLEARHISTORY_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,8014,"ide_methods.bas");if(r)goto S_42581;} -S_42582:; -if ((-(*_FUNC_IDECLEARHISTORY_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,8015,"ide_methods.bas");if(r)goto S_42582;} -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8015,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26307,11452,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8015,"ide_methods.bas");}while(r); +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26307,11452,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDEFINDINVERT= 0 ; +if(!qbevent)break;evnt(26307,11453,"ide_methods.bas");}while(r); +} +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,11455,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11456,"ide_methods.bas");}while(r); +} +S_47894:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26307,11459,"ide_methods.bas");if(r)goto S_47894;} +do{ +*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y- 1 ; +if(!qbevent)break;evnt(26307,11460,"ide_methods.bas");}while(r); +S_47896:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START- 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26307,11461,"ide_methods.bas");if(r)goto S_47896;} +do{ +SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); +if(!qbevent)break;evnt(26307,11462,"ide_methods.bas");}while(r); +S_47898:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26307,11463,"ide_methods.bas");if(r)goto S_47898;} +S_47899:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26307,11464,"ide_methods.bas");if(r)goto S_47899;} +do{ +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26307,11464,"ide_methods.bas");}while(r); +}else{ +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26307,11464,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDEFINDINVERT= 0 ; +if(!qbevent)break;evnt(26307,11465,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,8016,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11467,"ide_methods.bas");}while(r); } -S_42589:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,8019,"ide_methods.bas");if(r)goto S_42589;} +S_47908:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_Y< 1 ))||new_error){ +if(qbevent){evnt(26307,11469,"ide_methods.bas");if(r)goto S_47908;} do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8020,"ide_methods.bas");}while(r); +*_SUB_IDEFINDAGAIN_LONG_Y=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,11469,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26307,11469,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDNEXT2; +if(!qbevent)break;evnt(26307,11470,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,11472,"ide_methods.bas");}while(r); +S_47915:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START+ 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26307,11473,"ide_methods.bas");if(r)goto S_47915;} +do{ +SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); +if(!qbevent)break;evnt(26307,11474,"ide_methods.bas");}while(r); +S_47917:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26307,11475,"ide_methods.bas");if(r)goto S_47917;} +S_47918:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26307,11476,"ide_methods.bas");if(r)goto S_47918;} +do{ +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26307,11476,"ide_methods.bas");}while(r); +}else{ +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26307,11476,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDEFINDINVERT= 0 ; +if(!qbevent)break;evnt(26307,11477,"ide_methods.bas");}while(r); +} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,8021,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11479,"ide_methods.bas");}while(r); +} +S_47927:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_Y>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,11481,"ide_methods.bas");if(r)goto S_47927;} +do{ +*_SUB_IDEFINDAGAIN_LONG_Y= 1 ; +if(!qbevent)break;evnt(26307,11481,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26307,11481,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECLEARHISTORY_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,8025,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECLEARHISTORY_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,8026,"ide_methods.bas");}while(r); -dl_continue_4780:; -}while(1); -dl_exit_4780:; +goto LABEL_IDEFINDNEXT2; +if(!qbevent)break;evnt(26307,11482,"ide_methods.bas");}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free156.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY);return _FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY; } -void SUB_IDESAVE(qbs*_SUB_IDESAVE_STRING_F){ +qbs* FUNC_IDEGETLINE(int32*_FUNC_IDEGETLINE_LONG_I){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -150949,62 +166023,25 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_47933:; +if ((-(*_FUNC_IDEGETLINE_LONG_I!= -1 ))||new_error){ +if(qbevent){evnt(26307,11487,"ide_methods.bas");if(r)goto S_47933;} do{ -sub_open(_SUB_IDESAVE_STRING_F, 4 ,NULL,NULL, 151 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8032,"ide_methods.bas");}while(r); -S_42597:; -fornext_value4793= 1 ; -fornext_finalvalue4793=*__LONG_IDEN; -fornext_step4793= 1 ; -if (fornext_step4793<0) fornext_step_negative4793=1; else fornext_step_negative4793=0; -if (new_error) goto fornext_error4793; -goto fornext_entrylabel4793; -while(1){ -fornext_value4793=fornext_step4793+(*_SUB_IDESAVE_LONG_I); -fornext_entrylabel4793: -*_SUB_IDESAVE_LONG_I=fornext_value4793; -if (fornext_step_negative4793){ -if (fornext_value4793fornext_finalvalue4793) break; +SUB_IDEGOTOLINE(_FUNC_IDEGETLINE_LONG_I); +if(!qbevent)break;evnt(26307,11487,"ide_methods.bas");}while(r); } -fornext_error4793:; -if(qbevent){evnt(25066,8033,"ide_methods.bas");if(r)goto S_42597;} do{ -qbs_set(_SUB_IDESAVE_STRING_A,FUNC_IDEGETLINE(_SUB_IDESAVE_LONG_I)); +qbs_set(_FUNC_IDEGETLINE_STRING_IDEGETLINE,func_mid(__STRING_IDET,*__LONG_IDELI+ 4 ,string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1)),1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8034,"ide_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 151 ; -if (new_error) goto skip4794; -sub_file_print(tmp_fileno,_SUB_IDESAVE_STRING_A, 0 , 0 , 1 ); -if (new_error) goto skip4794; -skip4794: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25066,8035,"ide_methods.bas");}while(r); -fornext_continue_4792:; -} -fornext_exit_4792:; -do{ -sub_close( 151 ,1); -if(!qbevent)break;evnt(25066,8037,"ide_methods.bas");}while(r); -do{ -SUB_IDESAVEBOOKMARKS(_SUB_IDESAVE_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8038,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= 0 ; -if(!qbevent)break;evnt(25066,8039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11488,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free157.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEGETLINE_STRING_IDEGETLINE);return _FUNC_IDEGETLINE_STRING_IDEGETLINE; } -qbs* FUNC_IDESAVEAS(qbs*_FUNC_IDESAVEAS_STRING_PROGRAMNAME){ +void SUB_IDECENTERCURRENTLINE(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -151017,668 +166054,30 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,8044,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,8045,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8046,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,8047,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,8048,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDESAVEAS_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDESAVEAS_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDESAVEAS_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDESAVEAS_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4]+1; -_FUNC_IDESAVEAS_ARRAY_UDT_O[6]=1; -if (_FUNC_IDESAVEAS_ARRAY_UDT_O[2]&4){ -_FUNC_IDESAVEAS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESAVEAS_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDESAVEAS_ARRAY_UDT_O[0]),0,_FUNC_IDESAVEAS_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDESAVEAS_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESAVEAS_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDESAVEAS_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDESAVEAS_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,8049,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,8050,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVEAS_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8051,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_PATH,__STRING_IDEPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8055,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_PATHLIST,FUNC_IDEZPATHLIST(_FUNC_IDESAVEAS_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8056,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,8058,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESAVEAS_UDT_P)) + (0) ),&(pass4796= 48 ),&(pass4797=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Save As",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8059,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_I=*_FUNC_IDESAVEAS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,8061,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,8062,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,8063,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,8064,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); -if(!qbevent)break;evnt(25066,8065,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESAVEAS_STRING_PROGRAMNAME); -if(!qbevent)break;evnt(25066,8066,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,8067,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,8068,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDESAVEAS_STRING_PROGRAMNAME->len; -if(!qbevent)break;evnt(25066,8069,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_I=*_FUNC_IDESAVEAS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,8078,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,8079,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,8081,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+28))= 44 ; -if(!qbevent)break;evnt(25066,8082,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 14 ; -if(!qbevent)break;evnt(25066,8082,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Paths",6)); -if(!qbevent)break;evnt(25066,8083,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESAVEAS_STRING_PATHLIST); -if(!qbevent)break;evnt(25066,8084,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_PATHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8084,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_I=*_FUNC_IDESAVEAS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,8086,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,8087,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ; -if(!qbevent)break;evnt(25066,8088,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDESAVEAS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,8089,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,8090,"ide_methods.bas");}while(r); -S_42638:; -fornext_value4800= 1 ; -fornext_finalvalue4800= 100 ; -fornext_step4800= 1 ; -if (fornext_step4800<0) fornext_step_negative4800=1; else fornext_step_negative4800=0; -if (new_error) goto fornext_error4800; -goto fornext_entrylabel4800; -while(1){ -fornext_value4800=fornext_step4800+(*_FUNC_IDESAVEAS_LONG_I); -fornext_entrylabel4800: -*_FUNC_IDESAVEAS_LONG_I=fornext_value4800; -if (fornext_step_negative4800){ -if (fornext_value4800fornext_finalvalue4800) break; -} -fornext_error4800:; -if(qbevent){evnt(25066,8094,"ide_methods.bas");if(r)goto S_42638;} -do{ -memcpy(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDESAVEAS_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,8094,"ide_methods.bas");}while(r); -fornext_continue_4799:; -} -fornext_exit_4799:; -S_42641:; -do{ -if(qbevent){evnt(25066,8097,"ide_methods.bas");if(r)goto S_42641;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESAVEAS_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,8100,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,8101,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,8101,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,8101,"ide_methods.bas");}while(r); -S_42646:; -fornext_value4803= 1 ; -fornext_finalvalue4803= 100 ; -fornext_step4803= 1 ; -if (fornext_step4803<0) fornext_step_negative4803=1; else fornext_step_negative4803=0; -if (new_error) goto fornext_error4803; -goto fornext_entrylabel4803; -while(1){ -fornext_value4803=fornext_step4803+(*_FUNC_IDESAVEAS_LONG_I); -fornext_entrylabel4803: -*_FUNC_IDESAVEAS_LONG_I=fornext_value4803; -if (fornext_step_negative4803){ -if (fornext_value4803fornext_finalvalue4803) break; -} -fornext_error4803:; -if(qbevent){evnt(25066,8102,"ide_methods.bas");if(r)goto S_42646;} -S_42647:; -if ((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,8103,"ide_methods.bas");if(r)goto S_42647;} -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDESAVEAS_LONG_FOCUS-*_FUNC_IDESAVEAS_LONG_F; -if(!qbevent)break;evnt(25066,8105,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,8106,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,8106,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESAVEAS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESAVEAS_LONG_F); -if(!qbevent)break;evnt(25066,8107,"ide_methods.bas");}while(r); -S_42652:; -if ((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,8108,"ide_methods.bas");if(r)goto S_42652;} -do{ -*_FUNC_IDESAVEAS_LONG_CX=*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,8108,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_CY=*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,8108,"ide_methods.bas");}while(r); -} -} -fornext_continue_4802:; -} -fornext_exit_4802:; -do{ -*_FUNC_IDESAVEAS_LONG_LASTFOCUS=*_FUNC_IDESAVEAS_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,8111,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,8115,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDESAVEAS_UDT_P)+(4))+ 4 ,*(int32*)(((char*)_FUNC_IDESAVEAS_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8115,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Path: ",6)); -if (new_error) goto skip4804; -makefit(tqbs); -qbs_print(tqbs,0); -skip4804: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8115,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_A,_FUNC_IDESAVEAS_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8116,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_W=*(int32*)(((char*)_FUNC_IDESAVEAS_UDT_P)+(8))- 8 ; -if(!qbevent)break;evnt(25066,8117,"ide_methods.bas");}while(r); -S_42664:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDESAVEAS_STRING_A->len)>(*_FUNC_IDESAVEAS_LONG_W- 3 ))))||new_error){ -if(qbevent){evnt(25066,8118,"ide_methods.bas");if(r)goto S_42664;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDESAVEAS_STRING_A,*_FUNC_IDESAVEAS_LONG_W- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8118,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDESAVEAS_STRING_A); -if (new_error) goto skip4806; -makefit(tqbs); -qbs_print(tqbs,0); -skip4806: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8119,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,8123,"ide_methods.bas");}while(r); -S_42669:; -if ((*_FUNC_IDESAVEAS_LONG_CX)||new_error){ -if(qbevent){evnt(25066,8124,"ide_methods.bas");if(r)goto S_42669;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8124,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDESAVEAS_LONG_CY,*_FUNC_IDESAVEAS_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,8124,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8124,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,8127,"ide_methods.bas");}while(r); -S_42675:; -do{ -if(qbevent){evnt(25066,8128,"ide_methods.bas");if(r)goto S_42675;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,8129,"ide_methods.bas");}while(r); -S_42677:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,8130,"ide_methods.bas");if(r)goto S_42677;} -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8130,"ide_methods.bas");}while(r); -} -S_42680:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,8131,"ide_methods.bas");if(r)goto S_42680;} -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8131,"ide_methods.bas");}while(r); -} -S_42683:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,8132,"ide_methods.bas");if(r)goto S_42683;} -do{ -*_FUNC_IDESAVEAS_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,8132,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8132,"ide_methods.bas");}while(r); -} -S_42687:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,8133,"ide_methods.bas");if(r)goto S_42687;} -do{ -*_FUNC_IDESAVEAS_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,8133,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8133,"ide_methods.bas");}while(r); -} -S_42691:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,8134,"ide_methods.bas");if(r)goto S_42691;} -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8134,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVEAS_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,8135,"ide_methods.bas");}while(r); -S_42695:; -if ((-(*_FUNC_IDESAVEAS_LONG_ALT!=*_FUNC_IDESAVEAS_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,8135,"ide_methods.bas");if(r)goto S_42695;} -do{ -*_FUNC_IDESAVEAS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8135,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVEAS_LONG_OLDALT=*_FUNC_IDESAVEAS_LONG_ALT; -if(!qbevent)break;evnt(25066,8136,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,8137,"ide_methods.bas");}while(r); -S_42700:; -dl_continue_4807:; -}while((!(*_FUNC_IDESAVEAS_LONG_CHANGE))&&(!new_error)); -dl_exit_4807:; -if(qbevent){evnt(25066,8138,"ide_methods.bas");if(r)goto S_42700;} -S_42701:; -if ((*_FUNC_IDESAVEAS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,8139,"ide_methods.bas");if(r)goto S_42701;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,8139,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,8139,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8141,"ide_methods.bas");}while(r); -S_42707:; -if ((*_FUNC_IDESAVEAS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,8142,"ide_methods.bas");if(r)goto S_42707;} -S_42708:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,8143,"ide_methods.bas");if(r)goto S_42708;} -do{ -*_FUNC_IDESAVEAS_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8144,"ide_methods.bas");}while(r); -S_42710:; -if (((-(*_FUNC_IDESAVEAS_LONG_K>= 65 ))&(-(*_FUNC_IDESAVEAS_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,8145,"ide_methods.bas");if(r)goto S_42710;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_ALTLETTER,func_chr(*_FUNC_IDESAVEAS_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8145,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8148,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,8148,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8148,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,8152,"ide_methods.bas");}while(r); -S_42719:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,8153,"ide_methods.bas");if(r)goto S_42719;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8153,"ide_methods.bas");}while(r); -} -S_42722:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,8154,"ide_methods.bas");if(r)goto S_42722;} -do{ -*_FUNC_IDESAVEAS_LONG_FOCUS=*_FUNC_IDESAVEAS_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,8154,"ide_methods.bas");}while(r); -} -S_42725:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,8155,"ide_methods.bas");if(r)goto S_42725;} -do{ -*_FUNC_IDESAVEAS_LONG_FOCUS=*_FUNC_IDESAVEAS_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,8155,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8155,"ide_methods.bas");}while(r); -} -S_42729:; -if ((-(*_FUNC_IDESAVEAS_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,8156,"ide_methods.bas");if(r)goto S_42729;} -do{ -*_FUNC_IDESAVEAS_LONG_FOCUS=*_FUNC_IDESAVEAS_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,8156,"ide_methods.bas");}while(r); -} -S_42732:; -if ((-(*_FUNC_IDESAVEAS_LONG_FOCUS>*_FUNC_IDESAVEAS_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,8157,"ide_methods.bas");if(r)goto S_42732;} -do{ -*_FUNC_IDESAVEAS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,8157,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVEAS_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,8158,"ide_methods.bas");}while(r); -S_42736:; -fornext_value4810= 1 ; -fornext_finalvalue4810= 100 ; -fornext_step4810= 1 ; -if (fornext_step4810<0) fornext_step_negative4810=1; else fornext_step_negative4810=0; -if (new_error) goto fornext_error4810; -goto fornext_entrylabel4810; -while(1){ -fornext_value4810=fornext_step4810+(*_FUNC_IDESAVEAS_LONG_I); -fornext_entrylabel4810: -*_FUNC_IDESAVEAS_LONG_I=fornext_value4810; -if (fornext_step_negative4810){ -if (fornext_value4810fornext_finalvalue4810) break; -} -fornext_error4810:; -if(qbevent){evnt(25066,8159,"ide_methods.bas");if(r)goto S_42736;} -do{ -*_FUNC_IDESAVEAS_LONG_T=*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,8160,"ide_methods.bas");}while(r); -S_42738:; -if ((*_FUNC_IDESAVEAS_LONG_T)||new_error){ -if(qbevent){evnt(25066,8161,"ide_methods.bas");if(r)goto S_42738;} -do{ -*_FUNC_IDESAVEAS_LONG_FOCUSOFFSET=*_FUNC_IDESAVEAS_LONG_FOCUS-*_FUNC_IDESAVEAS_LONG_F; -if(!qbevent)break;evnt(25066,8162,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESAVEAS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESAVEAS_LONG_I)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESAVEAS_LONG_FOCUS,_FUNC_IDESAVEAS_LONG_F,_FUNC_IDESAVEAS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESAVEAS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESAVEAS_LONG_MOUSEDOWN,_FUNC_IDESAVEAS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESAVEAS_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8163,"ide_methods.bas");}while(r); -} -fornext_continue_4809:; -} -fornext_exit_4809:; -S_42743:; -if ((-(*_FUNC_IDESAVEAS_LONG_FOCUS!=*_FUNC_IDESAVEAS_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,8168,"ide_methods.bas");if(r)goto S_42743;} -do{ -*_FUNC_IDESAVEAS_LONG_PREVFOCUS=*_FUNC_IDESAVEAS_LONG_FOCUS; -if(!qbevent)break;evnt(25066,8170,"ide_methods.bas");}while(r); -S_42745:; -if ((-(*_FUNC_IDESAVEAS_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,8171,"ide_methods.bas");if(r)goto S_42745;} -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_FOCUS)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_FOCUS)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,8172,"ide_methods.bas");}while(r); -S_42747:; -if ((-(*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_FOCUS)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,8173,"ide_methods.bas");if(r)goto S_42747;} -do{ -*(int8*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_FOCUS)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,8173,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVEAS_LONG_FOCUS)-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,8174,"ide_methods.bas");}while(r); -} -} -S_42753:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESAVEAS_LONG_FOCUS== 4 ))&(-(*_FUNC_IDESAVEAS_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,8178,"ide_methods.bas");if(r)goto S_42753;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_IDESAVEAS,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8179,"ide_methods.bas");}while(r); +S_47937:; +if ((-(*__LONG_IDEN<=(*__LONG_IDEWY- 8 )))||new_error){ +if(qbevent){evnt(26307,11492,"ide_methods.bas");if(r)goto S_47937;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,8180,"ide_methods.bas");}while(r); -} -S_42757:; -if ((-(*_FUNC_IDESAVEAS_LONG_FOCUS== 2 ))||new_error){ -if(qbevent){evnt(25066,8183,"ide_methods.bas");if(r)goto S_42757;} -S_42758:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDESAVEAS_LONG_INFO== 1 ))))||new_error){ -if(qbevent){evnt(25066,8184,"ide_methods.bas");if(r)goto S_42758;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_PATH,FUNC_IDEZCHANGEPATH(_FUNC_IDESAVEAS_STRING_PATH,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8185,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDESAVEAS_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8186,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,8187,"ide_methods.bas");}while(r); -S_42762:; -if ((-(*_FUNC_IDESAVEAS_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,8188,"ide_methods.bas");if(r)goto S_42762;} -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,8188,"ide_methods.bas");}while(r); -} -} -} -S_42767:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDESAVEAS_LONG_FOCUS!= 2 )))|((-(*_FUNC_IDESAVEAS_LONG_FOCUS== 3 ))&(-(*_FUNC_IDESAVEAS_LONG_INFO!= 0 )))))||new_error){ -if(qbevent){evnt(25066,8192,"ide_methods.bas");if(r)goto S_42767;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8193,"ide_methods.bas");}while(r); -S_42769:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDESAVEAS_STRING_F,qbs_new_txt_len("..",2)))|(qbs_equal(_FUNC_IDESAVEAS_STRING_F,qbs_new_txt_len(".",1)))))||new_error){ -if(qbevent){evnt(25066,8196,"ide_methods.bas");if(r)goto S_42769;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_F,qbs_add(_FUNC_IDESAVEAS_STRING_F,__STRING1_IDEPATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8196,"ide_methods.bas");}while(r); -} -S_42772:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDESAVEAS_STRING_F, 1 ),__STRING1_IDEPATHSEP)))||new_error){ -if(qbevent){evnt(25066,8197,"ide_methods.bas");if(r)goto S_42772;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDESAVEAS_STRING_PATH,_FUNC_IDESAVEAS_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8198,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8199,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDESAVEAS_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8200,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVEAS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESAVEAS_ARRAY_UDT_O[4],_FUNC_IDESAVEAS_ARRAY_UDT_O[5]))*85+64))= -1 ; -if(!qbevent)break;evnt(25066,8201,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDESAVEASLOOP; -if(!qbevent)break;evnt(25066,8202,"ide_methods.bas");}while(r); -} -S_42779:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDESAVEAS_STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(25066,8205,"ide_methods.bas");if(r)goto S_42779;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_F,qbs_add(_FUNC_IDESAVEAS_STRING_F,qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8205,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11492,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDESAVEAS_STRING_PATH,FUNC_IDEZGETFILEPATH(_FUNC_IDESAVEAS_STRING_PATH,_FUNC_IDESAVEAS_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8207,"ide_methods.bas");}while(r); +*__LONG_IDESY=*__LONG_IDECY-((*__LONG_IDEWY- 8 )/ 2 ); +if(!qbevent)break;evnt(26307,11493,"ide_methods.bas");}while(r); +S_47941:; +if ((-(*__LONG_IDESY< 1 ))||new_error){ +if(qbevent){evnt(26307,11494,"ide_methods.bas");if(r)goto S_47941;} do{ -*__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(25066,8208,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(qbs_add(_FUNC_IDESAVEAS_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDESAVEAS_STRING_F), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8209,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(25066,8210,"ide_methods.bas");}while(r); -S_42786:; -if ((func_lof( 150 ))||new_error){ -if(qbevent){evnt(25066,8211,"ide_methods.bas");if(r)goto S_42786;} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,8212,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_A,FUNC_IDEFILEEXISTS()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8213,"ide_methods.bas");}while(r); -S_42789:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESAVEAS_STRING_A,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,8214,"ide_methods.bas");if(r)goto S_42789;} -do{ -qbs_set(_FUNC_IDESAVEAS_STRING_IDESAVEAS,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8215,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,8216,"ide_methods.bas");}while(r); +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26307,11494,"ide_methods.bas");}while(r); } -}else{ -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,8219,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDEPROGNAME,_FUNC_IDESAVEAS_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8221,"ide_methods.bas");}while(r); -do{ -sub__title(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - QB64",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8221,"ide_methods.bas");}while(r); -do{ -SUB_IDESAVE(qbs_add(qbs_add(_FUNC_IDESAVEAS_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDESAVEAS_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8222,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,_FUNC_IDESAVEAS_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8223,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8224,"ide_methods.bas");}while(r); -do{ -SUB_IDESAVEBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8225,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,8226,"ide_methods.bas");}while(r); -} -LABEL_IDESAVEASLOOP:; -if(qbevent){evnt(25066,8229,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDESAVEAS_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,8232,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVEAS_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,8233,"ide_methods.bas");}while(r); -dl_continue_4801:; -}while(1); -dl_exit_4801:; exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free158.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDESAVEAS_STRING_IDESAVEAS);return _FUNC_IDESAVEAS_STRING_IDESAVEAS; } -qbs* FUNC_IDESAVENOW(){ +void SUB_IDEGOTOLINE(int32*_SUB_IDEGOTOLINE_LONG_I){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -151691,473 +166090,75 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,8241,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,8242,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,8243,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8244,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,8245,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,8246,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDESAVENOW_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDESAVENOW_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDESAVENOW_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDESAVENOW_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDESAVENOW_ARRAY_UDT_O[4]+1; -_FUNC_IDESAVENOW_ARRAY_UDT_O[6]=1; -if (_FUNC_IDESAVENOW_ARRAY_UDT_O[2]&4){ -_FUNC_IDESAVENOW_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESAVENOW_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDESAVENOW_ARRAY_UDT_O[0]),0,_FUNC_IDESAVENOW_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDESAVENOW_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESAVENOW_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDESAVENOW_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDESAVENOW_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,8247,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,8248,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESAVENOW_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8249,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,8253,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESAVENOW_UDT_P)) + (0) ),&(pass4812= 40 ),&(pass4813= 4 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8254,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_I=*_FUNC_IDESAVENOW_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,8255,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,8256,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,8257,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Yes",4),_FUNC_IDESAVENOW_STRING1_SEP),qbs_new_txt_len("#No",3)),_FUNC_IDESAVENOW_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,8258,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,8259,"ide_methods.bas");}while(r); -S_42823:; -fornext_value4815= 1 ; -fornext_finalvalue4815= 100 ; -fornext_step4815= 1 ; -if (fornext_step4815<0) fornext_step_negative4815=1; else fornext_step_negative4815=0; -if (new_error) goto fornext_error4815; -goto fornext_entrylabel4815; -while(1){ -fornext_value4815=fornext_step4815+(*_FUNC_IDESAVENOW_LONG_I); -fornext_entrylabel4815: -*_FUNC_IDESAVENOW_LONG_I=fornext_value4815; -if (fornext_step_negative4815){ -if (fornext_value4815fornext_finalvalue4815) break; -} -fornext_error4815:; -if(qbevent){evnt(25066,8263,"ide_methods.bas");if(r)goto S_42823;} -do{ -memcpy(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDESAVENOW_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,8263,"ide_methods.bas");}while(r); -fornext_continue_4814:; -} -fornext_exit_4814:; -S_42826:; -do{ -if(qbevent){evnt(25066,8266,"ide_methods.bas");if(r)goto S_42826;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESAVENOW_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,8269,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,8270,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,8270,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,8270,"ide_methods.bas");}while(r); -S_42831:; -fornext_value4818= 1 ; -fornext_finalvalue4818= 100 ; -fornext_step4818= 1 ; -if (fornext_step4818<0) fornext_step_negative4818=1; else fornext_step_negative4818=0; -if (new_error) goto fornext_error4818; -goto fornext_entrylabel4818; -while(1){ -fornext_value4818=fornext_step4818+(*_FUNC_IDESAVENOW_LONG_I); -fornext_entrylabel4818: -*_FUNC_IDESAVENOW_LONG_I=fornext_value4818; -if (fornext_step_negative4818){ -if (fornext_value4818fornext_finalvalue4818) break; -} -fornext_error4818:; -if(qbevent){evnt(25066,8271,"ide_methods.bas");if(r)goto S_42831;} -S_42832:; -if ((*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,8272,"ide_methods.bas");if(r)goto S_42832;} -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDESAVENOW_LONG_FOCUS-*_FUNC_IDESAVENOW_LONG_F; -if(!qbevent)break;evnt(25066,8274,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,8275,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,8275,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESAVENOW_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESAVENOW_LONG_F); -if(!qbevent)break;evnt(25066,8276,"ide_methods.bas");}while(r); -S_42837:; -if ((*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,8277,"ide_methods.bas");if(r)goto S_42837;} -do{ -*_FUNC_IDESAVENOW_LONG_CX=*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,8277,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_CY=*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,8277,"ide_methods.bas");}while(r); -} -} -fornext_continue_4817:; -} -fornext_exit_4817:; -do{ -*_FUNC_IDESAVENOW_LONG_LASTFOCUS=*_FUNC_IDESAVENOW_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,8280,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,8284,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDESAVENOW_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDESAVENOW_UDT_P)+(0))+ 4 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8284,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Program is not saved. Save it now?",34)); -if (new_error) goto skip4819; -makefit(tqbs); -qbs_print(tqbs,0); -skip4819: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8284,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,8288,"ide_methods.bas");}while(r); -S_42848:; -if ((*_FUNC_IDESAVENOW_LONG_CX)||new_error){ -if(qbevent){evnt(25066,8289,"ide_methods.bas");if(r)goto S_42848;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8289,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDESAVENOW_LONG_CY,*_FUNC_IDESAVENOW_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,8289,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8289,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,8293,"ide_methods.bas");}while(r); -S_42854:; -do{ -if(qbevent){evnt(25066,8294,"ide_methods.bas");if(r)goto S_42854;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,8295,"ide_methods.bas");}while(r); -S_42856:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,8296,"ide_methods.bas");if(r)goto S_42856;} -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8296,"ide_methods.bas");}while(r); -} -S_42859:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,8297,"ide_methods.bas");if(r)goto S_42859;} -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8297,"ide_methods.bas");}while(r); -} -S_42862:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,8298,"ide_methods.bas");if(r)goto S_42862;} -do{ -*_FUNC_IDESAVENOW_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,8298,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8298,"ide_methods.bas");}while(r); -} -S_42866:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,8299,"ide_methods.bas");if(r)goto S_42866;} -do{ -*_FUNC_IDESAVENOW_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,8299,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8299,"ide_methods.bas");}while(r); -} -S_42870:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,8300,"ide_methods.bas");if(r)goto S_42870;} -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8300,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVENOW_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,8301,"ide_methods.bas");}while(r); -S_42874:; -if ((-(*_FUNC_IDESAVENOW_LONG_ALT!=*_FUNC_IDESAVENOW_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,8301,"ide_methods.bas");if(r)goto S_42874;} -do{ -*_FUNC_IDESAVENOW_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,8301,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVENOW_LONG_OLDALT=*_FUNC_IDESAVENOW_LONG_ALT; -if(!qbevent)break;evnt(25066,8302,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,8303,"ide_methods.bas");}while(r); -S_42879:; -dl_continue_4820:; -}while((!(*_FUNC_IDESAVENOW_LONG_CHANGE))&&(!new_error)); -dl_exit_4820:; -if(qbevent){evnt(25066,8304,"ide_methods.bas");if(r)goto S_42879;} -S_42880:; -if ((*_FUNC_IDESAVENOW_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,8305,"ide_methods.bas");if(r)goto S_42880;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,8305,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,8305,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8307,"ide_methods.bas");}while(r); -S_42886:; -if ((*_FUNC_IDESAVENOW_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,8308,"ide_methods.bas");if(r)goto S_42886;} -S_42887:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,8309,"ide_methods.bas");if(r)goto S_42887;} -do{ -*_FUNC_IDESAVENOW_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8310,"ide_methods.bas");}while(r); -S_42889:; -if (((-(*_FUNC_IDESAVENOW_LONG_K>= 65 ))&(-(*_FUNC_IDESAVENOW_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,8311,"ide_methods.bas");if(r)goto S_42889;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_ALTLETTER,func_chr(*_FUNC_IDESAVENOW_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8311,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8314,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,8314,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8314,"ide_methods.bas");}while(r); -S_42897:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,8317,"ide_methods.bas");if(r)goto S_42897;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8317,"ide_methods.bas");}while(r); -} -S_42900:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,8318,"ide_methods.bas");if(r)goto S_42900;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8318,"ide_methods.bas");}while(r); -} -S_42903:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(25066,8319,"ide_methods.bas");if(r)goto S_42903;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_ALTLETTER,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8319,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVENOW_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,8322,"ide_methods.bas");}while(r); -S_42907:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,8323,"ide_methods.bas");if(r)goto S_42907;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8323,"ide_methods.bas");}while(r); -} -S_42910:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,8324,"ide_methods.bas");if(r)goto S_42910;} -do{ -*_FUNC_IDESAVENOW_LONG_FOCUS=*_FUNC_IDESAVENOW_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,8324,"ide_methods.bas");}while(r); -} -S_42913:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,8325,"ide_methods.bas");if(r)goto S_42913;} -do{ -*_FUNC_IDESAVENOW_LONG_FOCUS=*_FUNC_IDESAVENOW_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,8325,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8325,"ide_methods.bas");}while(r); -} -S_42917:; -if ((-(*_FUNC_IDESAVENOW_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,8326,"ide_methods.bas");if(r)goto S_42917;} -do{ -*_FUNC_IDESAVENOW_LONG_FOCUS=*_FUNC_IDESAVENOW_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,8326,"ide_methods.bas");}while(r); -} -S_42920:; -if ((-(*_FUNC_IDESAVENOW_LONG_FOCUS>*_FUNC_IDESAVENOW_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,8327,"ide_methods.bas");if(r)goto S_42920;} -do{ -*_FUNC_IDESAVENOW_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,8327,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESAVENOW_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,8328,"ide_methods.bas");}while(r); -S_42924:; -fornext_value4823= 1 ; -fornext_finalvalue4823= 100 ; -fornext_step4823= 1 ; -if (fornext_step4823<0) fornext_step_negative4823=1; else fornext_step_negative4823=0; -if (new_error) goto fornext_error4823; -goto fornext_entrylabel4823; -while(1){ -fornext_value4823=fornext_step4823+(*_FUNC_IDESAVENOW_LONG_I); -fornext_entrylabel4823: -*_FUNC_IDESAVENOW_LONG_I=fornext_value4823; -if (fornext_step_negative4823){ -if (fornext_value4823fornext_finalvalue4823) break; -} -fornext_error4823:; -if(qbevent){evnt(25066,8329,"ide_methods.bas");if(r)goto S_42924;} -do{ -*_FUNC_IDESAVENOW_LONG_T=*(int32*)(((char*)_FUNC_IDESAVENOW_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,8330,"ide_methods.bas");}while(r); -S_42926:; -if ((*_FUNC_IDESAVENOW_LONG_T)||new_error){ -if(qbevent){evnt(25066,8331,"ide_methods.bas");if(r)goto S_42926;} -do{ -*_FUNC_IDESAVENOW_LONG_FOCUSOFFSET=*_FUNC_IDESAVENOW_LONG_FOCUS-*_FUNC_IDESAVENOW_LONG_F; -if(!qbevent)break;evnt(25066,8332,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESAVENOW_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESAVENOW_LONG_I)-_FUNC_IDESAVENOW_ARRAY_UDT_O[4],_FUNC_IDESAVENOW_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESAVENOW_LONG_FOCUS,_FUNC_IDESAVENOW_LONG_F,_FUNC_IDESAVENOW_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESAVENOW_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESAVENOW_LONG_MOUSEDOWN,_FUNC_IDESAVENOW_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESAVENOW_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8333,"ide_methods.bas");}while(r); -} -fornext_continue_4822:; -} -fornext_exit_4822:; -S_42931:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,8338,"ide_methods.bas");if(r)goto S_42931;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8339,"ide_methods.bas");}while(r); +S_47944:; +if ((-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I))||new_error){ +if(qbevent){evnt(26307,11498,"ide_methods.bas");if(r)goto S_47944;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,8340,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11498,"ide_methods.bas");}while(r); } -S_42935:; -if ((*_FUNC_IDESAVENOW_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,8343,"ide_methods.bas");if(r)goto S_42935;} -S_42936:; -if ((-(*_FUNC_IDESAVENOW_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,8344,"ide_methods.bas");if(r)goto S_42936;} +S_47947:; +if ((-(*_SUB_IDEGOTOLINE_LONG_I< 1 ))||new_error){ +if(qbevent){evnt(26307,11499,"ide_methods.bas");if(r)goto S_47947;} do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8344,"ide_methods.bas");}while(r); +*_SUB_IDEGOTOLINE_LONG_I= 1 ; +if(!qbevent)break;evnt(26307,11499,"ide_methods.bas");}while(r); } -S_42939:; -if ((-(*_FUNC_IDESAVENOW_LONG_INFO== 2 ))||new_error){ -if(qbevent){evnt(25066,8345,"ide_methods.bas");if(r)goto S_42939;} +S_47950:; +if ((-(*_SUB_IDEGOTOLINE_LONG_I<*__LONG_IDEL))||new_error){ +if(qbevent){evnt(26307,11501,"ide_methods.bas");if(r)goto S_47950;} +S_47951:; do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8345,"ide_methods.bas");}while(r); -} -S_42942:; -if ((-(*_FUNC_IDESAVENOW_LONG_INFO== 3 ))||new_error){ -if(qbevent){evnt(25066,8346,"ide_methods.bas");if(r)goto S_42942;} +if(qbevent){evnt(26307,11502,"ide_methods.bas");if(r)goto S_47951;} do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("C",1)); +*__LONG_IDEL=*__LONG_IDEL- 1 ; +if(!qbevent)break;evnt(26307,11503,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI=*__LONG_IDELI-string2l(func_mid(__STRING_IDET,*__LONG_IDELI- 4 , 4 ,1))- 8 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8346,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,11504,"ide_methods.bas");}while(r); +S_47954:; +dl_continue_5339:; +}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); +dl_exit_5339:; +if(qbevent){evnt(26307,11505,"ide_methods.bas");if(r)goto S_47954;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,8347,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11506,"ide_methods.bas");}while(r); +} +S_47957:; +do{ +if(qbevent){evnt(26307,11509,"ide_methods.bas");if(r)goto S_47957;} +S_47958:; +if ((-(*__LONG_IDEL==*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,11510,"ide_methods.bas");if(r)goto S_47958;} +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_add(__STRING_IDET,l2string( 0 )),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11510,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*__LONG_IDEN+ 1 ; +if(!qbevent)break;evnt(26307,11510,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDESAVENOW_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,8351,"ide_methods.bas");}while(r); +*__LONG_IDEL=*__LONG_IDEL+ 1 ; +if(!qbevent)break;evnt(26307,11511,"ide_methods.bas");}while(r); do{ -*_FUNC_IDESAVENOW_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,8352,"ide_methods.bas");}while(r); -dl_continue_4816:; -}while(1); -dl_exit_4816:; +*__LONG_IDELI=*__LONG_IDELI+string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1))+ 8 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11512,"ide_methods.bas");}while(r); +S_47964:; +dl_continue_5340:; +}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); +dl_exit_5340:; +if(qbevent){evnt(26307,11513,"ide_methods.bas");if(r)goto S_47964;} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free159.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDESAVENOW_STRING_IDESAVENOW);return _FUNC_IDESAVENOW_STRING_IDESAVENOW; } -void SUB_IDESETLINE(int32*_SUB_IDESETLINE_LONG_I,qbs*_SUB_IDESETLINE_STRING_TEXT){ +int32 FUNC_IDEHBAR(int32*_FUNC_IDEHBAR_LONG_X,int32*_FUNC_IDEHBAR_LONG_Y,int32*_FUNC_IDEHBAR_LONG_H,int32*_FUNC_IDEHBAR_LONG_I2,int32*_FUNC_IDEHBAR_LONG_N2){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -152171,31 +166172,202 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_IDESETLINE_STRING_TEXT,qbs_rtrim(_SUB_IDESETLINE_STRING_TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8359,"ide_methods.bas");}while(r); -S_42951:; -if ((-(*_SUB_IDESETLINE_LONG_I!= -1 ))||new_error){ -if(qbevent){evnt(25066,8361,"ide_methods.bas");if(r)goto S_42951;} +*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_I2; +if(!qbevent)break;evnt(26307,11517,"ide_methods.bas");}while(r); do{ -SUB_IDEGOTOLINE(_SUB_IDESETLINE_LONG_I); -if(!qbevent)break;evnt(25066,8361,"ide_methods.bas");}while(r); +*_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2; +if(!qbevent)break;evnt(26307,11517,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,11535,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X,*_FUNC_IDEHBAR_LONG_Y,func_chr( 27 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11536,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 1 ,*_FUNC_IDEHBAR_LONG_Y,func_chr( 26 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11537,"ide_methods.bas");}while(r); +S_47970:; +fornext_value5342=*_FUNC_IDEHBAR_LONG_X+ 1 ; +fornext_finalvalue5342=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; +fornext_step5342= 1 ; +if (fornext_step5342<0) fornext_step_negative5342=1; else fornext_step_negative5342=0; +if (new_error) goto fornext_error5342; +goto fornext_entrylabel5342; +while(1){ +fornext_value5342=fornext_step5342+(*_FUNC_IDEHBAR_LONG_X2); +fornext_entrylabel5342: +*_FUNC_IDEHBAR_LONG_X2=fornext_value5342; +if (fornext_step_negative5342){ +if (fornext_value5342fornext_finalvalue5342) break; +} +fornext_error5342:; +if(qbevent){evnt(26307,11538,"ide_methods.bas");if(r)goto S_47970;} +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 176 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11539,"ide_methods.bas");}while(r); +fornext_continue_5341:; +} +fornext_exit_5341:; +S_47973:; +if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||new_error){ +if(qbevent){evnt(26307,11544,"ide_methods.bas");if(r)goto S_47973;} +do{ +*_FUNC_IDEHBAR_LONG_N= 1 ; +if(!qbevent)break;evnt(26307,11544,"ide_methods.bas");}while(r); +} +S_47976:; +if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||new_error){ +if(qbevent){evnt(26307,11545,"ide_methods.bas");if(r)goto S_47976;} +do{ +*_FUNC_IDEHBAR_LONG_I= 1 ; +if(!qbevent)break;evnt(26307,11545,"ide_methods.bas");}while(r); +} +S_47979:; +if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||new_error){ +if(qbevent){evnt(26307,11546,"ide_methods.bas");if(r)goto S_47979;} +do{ +*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N; +if(!qbevent)break;evnt(26307,11546,"ide_methods.bas");}while(r); +} +S_47982:; +if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||new_error){ +if(qbevent){evnt(26307,11548,"ide_methods.bas");if(r)goto S_47982;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X; +if(!qbevent)break;evnt(26307,11549,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11550,"ide_methods.bas");}while(r); +} +S_47986:; +if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||new_error){ +if(qbevent){evnt(26307,11553,"ide_methods.bas");if(r)goto S_47986;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,11554,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11556,"ide_methods.bas");}while(r); +} +S_47990:; +if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||new_error){ +if(qbevent){evnt(26307,11559,"ide_methods.bas");if(r)goto S_47990;} +S_47991:; +if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(26307,11560,"ide_methods.bas");if(r)goto S_47991;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,11561,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11563,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); +if(!qbevent)break;evnt(26307,11566,"ide_methods.bas");}while(r); +S_47996:; +if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ +if(qbevent){evnt(26307,11567,"ide_methods.bas");if(r)goto S_47996;} +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,11567,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ; +if(!qbevent)break;evnt(26307,11567,"ide_methods.bas");}while(r); } do{ -*_SUB_IDESETLINE_LONG_TEXTLEN=_SUB_IDESETLINE_STRING_TEXT->len; +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11568,"ide_methods.bas");}while(r); do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),_SUB_IDESETLINE_STRING_TEXT),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 -string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1))- 8 ))); +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26307,11569,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11570,"ide_methods.bas");}while(r); +} +} +S_48006:; +if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||new_error){ +if(qbevent){evnt(26307,11574,"ide_methods.bas");if(r)goto S_48006;} +S_48007:; +if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(26307,11575,"ide_methods.bas");if(r)goto S_48007;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/ 4 ); +if(!qbevent)break;evnt(26307,11576,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11578,"ide_methods.bas");}while(r); +} +S_48011:; +if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26307,11580,"ide_methods.bas");if(r)goto S_48011;} +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,11581,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11582,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26307,11583,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11584,"ide_methods.bas");}while(r); +} +S_48017:; +if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||new_error){ +if(qbevent){evnt(26307,11586,"ide_methods.bas");if(r)goto S_48017;} +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; +if(!qbevent)break;evnt(26307,11587,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11588,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26307,11589,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11590,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); +if(!qbevent)break;evnt(26307,11593,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 ); +if(!qbevent)break;evnt(26307,11594,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_X2=qbr(*_FUNC_IDEHBAR_LONG_X+ 2 +floor(*_FUNC_IDEHBAR_SINGLE_P)); +if(!qbevent)break;evnt(26307,11595,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11596,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26307,11597,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11598,"ide_methods.bas");}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free160.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEHBAR_LONG_IDEHBAR; } -void SUB_IDESHOWTEXT(){ +int32 FUNC_IDEHLEN(qbs*_FUNC_IDEHLEN_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -152208,2193 +166380,27 @@ new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; +S_48030:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEHLEN_STRING_A,qbs_new_txt_len("#",1),0)))||new_error){ +if(qbevent){evnt(26307,11605,"ide_methods.bas");if(r)goto S_48030;} do{ -sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8369,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); -if(!qbevent)break;evnt(25066,8370,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8371,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(25066,8372,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8373,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8374,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8375,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8376,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8377,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,8378,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*()'",16))); +*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8380,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,8382,"ide_methods.bas");}while(r); -S_42968:; -if ((-(*__LONG_IDEFOCUSLINE!= 0 ))||new_error){ -if(qbevent){evnt(25066,8384,"ide_methods.bas");if(r)goto S_42968;} -S_42969:; -if ((*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(25066,8388,"ide_methods.bas");if(r)goto S_42969;} -do{ -*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; -if(!qbevent)break;evnt(25066,8388,"ide_methods.bas");}while(r); -} -S_42972:; -if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ -if(qbevent){evnt(25066,8389,"ide_methods.bas");if(r)goto S_42972;} -do{ -*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= -1 ; -if(!qbevent)break;evnt(25066,8390,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8391,"ide_methods.bas");}while(r); -S_42975:; -fornext_value4828= 1 ; -fornext_finalvalue4828=*__LONG_IDEN; -fornext_step4828= 1 ; -if (fornext_step4828<0) fornext_step_negative4828=1; else fornext_step_negative4828=0; -if (new_error) goto fornext_error4828; -goto fornext_entrylabel4828; -while(1){ -fornext_value4828=fornext_step4828+(*_SUB_IDESHOWTEXT_LONG_Y); -fornext_entrylabel4828: -*_SUB_IDESHOWTEXT_LONG_Y=fornext_value4828; -if (fornext_step_negative4828){ -if (fornext_value4828fornext_finalvalue4828) break; -} -fornext_error4828:; -if(qbevent){evnt(25066,8392,"ide_methods.bas");if(r)goto S_42975;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ucase(qbs_ltrim(qbs_rtrim(FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_Y))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8393,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_SF= 0 ; -if(!qbevent)break;evnt(25066,8394,"ide_methods.bas");}while(r); -S_42978:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(25066,8395,"ide_methods.bas");if(r)goto S_42978;} -do{ -*_SUB_IDESHOWTEXT_LONG_SF= 1 ; -if(!qbevent)break;evnt(25066,8395,"ide_methods.bas");}while(r); -} -S_42981:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(25066,8396,"ide_methods.bas");if(r)goto S_42981;} -do{ -*_SUB_IDESHOWTEXT_LONG_SF= 2 ; -if(!qbevent)break;evnt(25066,8396,"ide_methods.bas");}while(r); -} -S_42984:; -if ((*_SUB_IDESHOWTEXT_LONG_SF)||new_error){ -if(qbevent){evnt(25066,8397,"ide_methods.bas");if(r)goto S_42984;} -S_42985:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(25066,8398,"ide_methods.bas");if(r)goto S_42985;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,_SUB_IDESHOWTEXT_STRING_A->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8399,"ide_methods.bas");}while(r); -} -S_42988:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(25066,8402,"ide_methods.bas");if(r)goto S_42988;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8403,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11605,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 10 ,NULL,0)); +*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11605,"ide_methods.bas");}while(r); } -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDESHOWTEXT_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8408,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8409,"ide_methods.bas");}while(r); -S_42995:; -if ((*_SUB_IDESHOWTEXT_LONG_X)||new_error){ -if(qbevent){evnt(25066,8410,"ide_methods.bas");if(r)goto S_42995;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8411,"ide_methods.bas");}while(r); -} -S_42998:; -fornext_value4831= 1 ; -fornext_finalvalue4831=_SUB_IDESHOWTEXT_STRING_A->len; -fornext_step4831= 1 ; -if (fornext_step4831<0) fornext_step_negative4831=1; else fornext_step_negative4831=0; -if (new_error) goto fornext_error4831; -goto fornext_entrylabel4831; -while(1){ -fornext_value4831=fornext_step4831+(*_SUB_IDESHOWTEXT_LONG_CLEANSEN); -fornext_entrylabel4831: -*_SUB_IDESHOWTEXT_LONG_CLEANSEN=fornext_value4831; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4831){ -if (fornext_value4831fornext_finalvalue4831) break; -} -fornext_error4831:; -if(qbevent){evnt(25066,8415,"ide_methods.bas");if(r)goto S_42998;} -S_42999:; -qbs_set(sc_4833,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_CLEANSEN, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8416,"ide_methods.bas");if(r)goto S_42999;} -S_43000:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4833,qbs_new_txt_len(" ",1))||qbs_equal(sc_4833,qbs_new_txt_len("'",1))||qbs_equal(sc_4833,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,8417,"ide_methods.bas");if(r)goto S_43000;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_left(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_CLEANSEN- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8418,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4830; -if(!qbevent)break;evnt(25066,8419,"ide_methods.bas");}while(r); -goto sc_4833_end; -} -sc_4833_end:; -fornext_continue_4830:; -} -fornext_exit_4830:; -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_A)),qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8422,"ide_methods.bas");}while(r); -} -fornext_continue_4827:; -} -fornext_exit_4827:; -} -}else{ -do{ -*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; -if(!qbevent)break;evnt(25066,8427,"ide_methods.bas");}while(r); -} -S_43012:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS)))||new_error){ -if(qbevent){evnt(25066,8430,"ide_methods.bas");if(r)goto S_43012;} -S_43013:; -if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ -if(qbevent){evnt(25066,8431,"ide_methods.bas");if(r)goto S_43013;} -S_43014:; -do{ -if(qbevent){evnt(25066,8432,"ide_methods.bas");if(r)goto S_43014;} -do{ -*_SUB_IDESHOWTEXT_LONG_ATSIGN=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8433,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_NEXTAT=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8434,"ide_methods.bas");}while(r); -S_43017:; -if ((-(*_SUB_IDESHOWTEXT_LONG_NEXTAT== 0 ))||new_error){ -if(qbevent){evnt(25066,8435,"ide_methods.bas");if(r)goto S_43017;} -do{ -goto dl_exit_4834; -if(!qbevent)break;evnt(25066,8435,"ide_methods.bas");}while(r); -} -S_43020:; -if ((-(*_SUB_IDESHOWTEXT_LONG_ATSIGN>*__LONG_CUSTOMKEYWORDSLENGTH))||new_error){ -if(qbevent){evnt(25066,8436,"ide_methods.bas");if(r)goto S_43020;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,FUNC_REMOVESYMBOL2(func_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8437,"ide_methods.bas");}while(r); -S_43022:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len))||new_error){ -if(qbevent){evnt(25066,8438,"ide_methods.bas");if(r)goto S_43022;} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; -if(!qbevent)break;evnt(25066,8439,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 128 ; -if(!qbevent)break;evnt(25066,8440,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES1=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8441,"ide_methods.bas");}while(r); -S_43026:; -if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES1!= 0 ))||new_error){ -if(qbevent){evnt(25066,8442,"ide_methods.bas");if(r)goto S_43026;} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES1= 1 ; -if(!qbevent)break;evnt(25066,8442,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; -if(!qbevent)break;evnt(25066,8443,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 64 ; -if(!qbevent)break;evnt(25066,8444,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES2=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8445,"ide_methods.bas");}while(r); -S_43032:; -if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES2!= 0 ))||new_error){ -if(qbevent){evnt(25066,8446,"ide_methods.bas");if(r)goto S_43032;} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES2= 1 ; -if(!qbevent)break;evnt(25066,8446,"ide_methods.bas");}while(r); -} -S_43035:; -if ((-((*_SUB_IDESHOWTEXT_LONG_HASHRES1+*_SUB_IDESHOWTEXT_LONG_HASHRES2)==( 0 )))||new_error){ -if(qbevent){evnt(25066,8447,"ide_methods.bas");if(r)goto S_43035;} -do{ -sub_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,func_string(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len,(qbs_new_txt_len("@",1)->chr[0])),1); -if(!qbevent)break;evnt(25066,8449,"ide_methods.bas");}while(r); -} -} -} -dl_continue_4834:; -}while(1); -dl_exit_4834:; -} -S_43042:; -fornext_value4838= 1 ; -fornext_finalvalue4838=__STRING_LISTOFCUSTOMKEYWORDS->len; -fornext_step4838= 1 ; -if (fornext_step4838<0) fornext_step_negative4838=1; else fornext_step_negative4838=0; -if (new_error) goto fornext_error4838; -goto fornext_entrylabel4838; -while(1){ -fornext_value4838=fornext_step4838+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel4838: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value4838; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4838){ -if (fornext_value4838fornext_finalvalue4838) break; -} -fornext_error4838:; -if(qbevent){evnt(25066,8456,"ide_methods.bas");if(r)goto S_43042;} -do{ -*_SUB_IDESHOWTEXT_LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8457,"ide_methods.bas");}while(r); -S_43044:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR== 64 ))||new_error){ -if(qbevent){evnt(25066,8458,"ide_methods.bas");if(r)goto S_43044;} -S_43045:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ -if(qbevent){evnt(25066,8459,"ide_methods.bas");if(r)goto S_43045;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8459,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,func_chr(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8461,"ide_methods.bas");}while(r); -} -fornext_continue_4837:; -} -fornext_exit_4837:; -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,_SUB_IDESHOWTEXT_STRING_TEMPLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8464,"ide_methods.bas");}while(r); -S_43053:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(25066,8466,"ide_methods.bas");if(r)goto S_43053;} -do{ -*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8467,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_LISTOFCUSTOMKEYWORDS->len-*_SUB_IDESHOWTEXT_LONG_X+ 1 -__STRING_FIX046->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8468,"ide_methods.bas");}while(r); -dl_continue_4840:; -} -dl_exit_4840:; -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8471,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_CC= -1 ; -if(!qbevent)break;evnt(25066,8474,"ide_methods.bas");}while(r); -S_43060:; -if ((-(*__LONG_IDECX<*__LONG_IDESX))||new_error){ -if(qbevent){evnt(25066,8476,"ide_methods.bas");if(r)goto S_43060;} -do{ -*__LONG_IDESX=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,8476,"ide_methods.bas");}while(r); -} -S_43063:; -if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ -if(qbevent){evnt(25066,8477,"ide_methods.bas");if(r)goto S_43063;} -do{ -*__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,8477,"ide_methods.bas");}while(r); -} -S_43066:; -if ((-(((*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-*__LONG_IDESX)>=((*__LONG_IDEWX- 2 ))))||new_error){ -if(qbevent){evnt(25066,8478,"ide_methods.bas");if(r)goto S_43066;} -do{ -*__LONG_IDESX=(*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-(*__LONG_IDEWX- 3 ); -if(!qbevent)break;evnt(25066,8478,"ide_methods.bas");}while(r); -} -S_43069:; -if ((-((*__LONG_IDECY-*__LONG_IDESY)>=((*__LONG_IDEWY- 8 ))))||new_error){ -if(qbevent){evnt(25066,8479,"ide_methods.bas");if(r)goto S_43069;} -do{ -*__LONG_IDESY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(25066,8479,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,8481,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,8482,"ide_methods.bas");}while(r); -S_43074:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SY1>*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(25066,8483,"ide_methods.bas");if(r)goto S_43074;} -do{ -swap_32(&*_SUB_IDESHOWTEXT_LONG_SY1,&*_SUB_IDESHOWTEXT_LONG_SY2); -if(!qbevent)break;evnt(25066,8483,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,8484,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,8485,"ide_methods.bas");}while(r); -S_43079:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SX1>*_SUB_IDESHOWTEXT_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,8486,"ide_methods.bas");if(r)goto S_43079;} -do{ -swap_32(&*_SUB_IDESHOWTEXT_LONG_SX1,&*_SUB_IDESHOWTEXT_LONG_SX2); -if(!qbevent)break;evnt(25066,8486,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; -if(!qbevent)break;evnt(25066,8488,"ide_methods.bas");}while(r); -do{ -*__BYTE_ENTERINGRGB= 0 ; -if(!qbevent)break;evnt(25066,8489,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 0 ; -if(!qbevent)break;evnt(25066,8491,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND= 0 ; -if(!qbevent)break;evnt(25066,8492,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8493,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,_SUB_IDESHOWTEXT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8494,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=45; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDQUOTECOMMENT; -RETURN_45:; -if(!qbevent)break;evnt(25066,8494,"ide_methods.bas");}while(r); -S_43089:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ -if(qbevent){evnt(25066,8495,"ide_methods.bas");if(r)goto S_43089;} -S_43090:; -fornext_value4844=*__LONG_IDECY- 1 ; -fornext_finalvalue4844= 1 ; -fornext_step4844= -1 ; -if (fornext_step4844<0) fornext_step_negative4844=1; else fornext_step_negative4844=0; -if (new_error) goto fornext_error4844; -goto fornext_entrylabel4844; -while(1){ -fornext_value4844=fornext_step4844+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); -fornext_entrylabel4844: -*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value4844; -if (fornext_step_negative4844){ -if (fornext_value4844fornext_finalvalue4844) break; -} -fornext_error4844:; -if(qbevent){evnt(25066,8497,"ide_methods.bas");if(r)goto S_43090;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8498,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,_SUB_IDESHOWTEXT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8499,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=46; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDQUOTECOMMENT; -RETURN_46:; -if(!qbevent)break;evnt(25066,8499,"ide_methods.bas");}while(r); -S_43094:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ -if(qbevent){evnt(25066,8500,"ide_methods.bas");if(r)goto S_43094;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; -if(!qbevent)break;evnt(25066,8500,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4843; -if(!qbevent)break;evnt(25066,8500,"ide_methods.bas");}while(r); -} -fornext_continue_4843:; -} -fornext_exit_4843:; -S_43099:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ -if(qbevent){evnt(25066,8502,"ide_methods.bas");if(r)goto S_43099;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; -if(!qbevent)break;evnt(25066,8502,"ide_methods.bas");}while(r); -} -S_43102:; -fornext_value4846=*__LONG_IDECY+ 1 ; -fornext_finalvalue4846=*__LONG_IDEN; -fornext_step4846= 1 ; -if (fornext_step4846<0) fornext_step_negative4846=1; else fornext_step_negative4846=0; -if (new_error) goto fornext_error4846; -goto fornext_entrylabel4846; -while(1){ -fornext_value4846=fornext_step4846+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); -fornext_entrylabel4846: -*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value4846; -if (fornext_step_negative4846){ -if (fornext_value4846fornext_finalvalue4846) break; -} -fornext_error4846:; -if(qbevent){evnt(25066,8505,"ide_methods.bas");if(r)goto S_43102;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8506,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,_SUB_IDESHOWTEXT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8507,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=47; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDQUOTECOMMENT; -RETURN_47:; -if(!qbevent)break;evnt(25066,8507,"ide_methods.bas");}while(r); -S_43106:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ -if(qbevent){evnt(25066,8508,"ide_methods.bas");if(r)goto S_43106;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*_SUB_IDESHOWTEXT_LONG_IDECY_I; -if(!qbevent)break;evnt(25066,8508,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4845; -if(!qbevent)break;evnt(25066,8508,"ide_methods.bas");}while(r); -} -fornext_continue_4845:; -} -fornext_exit_4845:; -S_43111:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND== 0 ))||new_error){ -if(qbevent){evnt(25066,8510,"ide_methods.bas");if(r)goto S_43111;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,8510,"ide_methods.bas");}while(r); -} -}else{ -S_43115:; -if ((-(*__LONG_IDECY> 1 ))||new_error){ -if(qbevent){evnt(25066,8512,"ide_methods.bas");if(r)goto S_43115;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass4847=*__LONG_IDECY- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8512,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8512,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,_SUB_IDESHOWTEXT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8513,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=48; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDQUOTECOMMENT; -RETURN_48:; -if(!qbevent)break;evnt(25066,8513,"ide_methods.bas");}while(r); -S_43122:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ -if(qbevent){evnt(25066,8514,"ide_methods.bas");if(r)goto S_43122;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,8515,"ide_methods.bas");}while(r); -S_43124:; -fornext_value4849=*__LONG_IDECY- 1 ; -fornext_finalvalue4849= 1 ; -fornext_step4849= -1 ; -if (fornext_step4849<0) fornext_step_negative4849=1; else fornext_step_negative4849=0; -if (new_error) goto fornext_error4849; -goto fornext_entrylabel4849; -while(1){ -fornext_value4849=fornext_step4849+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); -fornext_entrylabel4849: -*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value4849; -if (fornext_step_negative4849){ -if (fornext_value4849fornext_finalvalue4849) break; -} -fornext_error4849:; -if(qbevent){evnt(25066,8518,"ide_methods.bas");if(r)goto S_43124;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8519,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,_SUB_IDESHOWTEXT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8520,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=49; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDQUOTECOMMENT; -RETURN_49:; -if(!qbevent)break;evnt(25066,8520,"ide_methods.bas");}while(r); -S_43128:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ -if(qbevent){evnt(25066,8521,"ide_methods.bas");if(r)goto S_43128;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; -if(!qbevent)break;evnt(25066,8521,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4848; -if(!qbevent)break;evnt(25066,8521,"ide_methods.bas");}while(r); -} -fornext_continue_4848:; -} -fornext_exit_4848:; -S_43133:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ -if(qbevent){evnt(25066,8523,"ide_methods.bas");if(r)goto S_43133;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; -if(!qbevent)break;evnt(25066,8523,"ide_methods.bas");}while(r); -} -} -} -S_43138:; -if ((-(*__LONG_IDECY> 1 ))||new_error){ -if(qbevent){evnt(25066,8527,"ide_methods.bas");if(r)goto S_43138;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass4850=*__LONG_IDECY- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8527,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8527,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ACTIVEINCLUDELINK= 0 ; -if(!qbevent)break;evnt(25066,8529,"ide_methods.bas");}while(r); -S_43144:; -fornext_value4852= 0 ; -fornext_finalvalue4852=(*__LONG_IDEWY- 9 ); -fornext_step4852= 1 ; -if (fornext_step4852<0) fornext_step_negative4852=1; else fornext_step_negative4852=0; -if (new_error) goto fornext_error4852; -goto fornext_entrylabel4852; -while(1){ -fornext_value4852=fornext_step4852+(*_SUB_IDESHOWTEXT_LONG_Y); -fornext_entrylabel4852: -*_SUB_IDESHOWTEXT_LONG_Y=fornext_value4852; -if (fornext_step_negative4852){ -if (fornext_value4852fornext_finalvalue4852) break; -} -fornext_error4852:; -if(qbevent){evnt(25066,8531,"ide_methods.bas");if(r)goto S_43144;} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8532,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,8533,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 179 )); -if (new_error) goto skip4853; -makefit(tqbs); -qbs_print(tqbs,0); -skip4853: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8534,"ide_methods.bas");}while(r); -S_43148:; -if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(25066,8536,"ide_methods.bas");if(r)goto S_43148;} -S_43149:; -if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ -if(qbevent){evnt(25066,8537,"ide_methods.bas");if(r)goto S_43149;} -do{ -qbg_sub_color(NULL, 6 ,NULL,2); -if(!qbevent)break;evnt(25066,8537,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_MAXLINENUMBERLENGTH)); -if (new_error) goto skip4854; -makefit(tqbs); -qbs_print(tqbs,0); -skip4854: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8538,"ide_methods.bas");}while(r); -S_43153:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,8539,"ide_methods.bas");if(r)goto S_43153;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_L2,qbs_str((int32)(*_SUB_IDESHOWTEXT_LONG_L))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8540,"ide_methods.bas");}while(r); -S_43155:; -if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 1 )-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ))>=( 2 ))))||new_error){ -if(qbevent){evnt(25066,8541,"ide_methods.bas");if(r)goto S_43155;} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_pos( 1 )-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ),NULL,NULL,NULL,3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8542,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDESHOWTEXT_STRING_L2); -if (new_error) goto skip4857; -makefit(tqbs); -qbs_print(tqbs,0); -skip4857: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8543,"ide_methods.bas");}while(r); -} -} -S_43160:; -if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ -if(qbevent){evnt(25066,8546,"ide_methods.bas");if(r)goto S_43160;} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 1 +*__LONG_MAXLINENUMBERLENGTH,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8546,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 179 )); -if (new_error) goto skip4858; -makefit(tqbs); -qbs_print(tqbs,0); -skip4858: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8546,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color(NULL, 1 ,NULL,2); -if(!qbevent)break;evnt(25066,8547,"ide_methods.bas");}while(r); -} -S_43166:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ -if(qbevent){evnt(25066,8550,"ide_methods.bas");if(r)goto S_43166;} -do{ -qbg_sub_color( 7 , 4 ,NULL,3); -if(!qbevent)break;evnt(25066,8551,"ide_methods.bas");}while(r); -S_43168:; -}else{ -if ((-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))|(((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND))))){ -if(qbevent){evnt(25066,8552,"ide_methods.bas");if(r)goto S_43168;} -S_43169:; -if ((-(*__BYTE_HIDECURRENTLINEHIGHLIGHT== 0 ))||new_error){ -if(qbevent){evnt(25066,8553,"ide_methods.bas");if(r)goto S_43169;} -do{ -qbg_sub_color( 7 , 6 ,NULL,3); -if(!qbevent)break;evnt(25066,8553,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,8555,"ide_methods.bas");}while(r); -} -} -S_43175:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,8558,"ide_methods.bas");if(r)goto S_43175;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8567,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_LINK_IDECX= 0 ; -if(!qbevent)break;evnt(25066,8568,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_RGB_IDECX= 0 ; -if(!qbevent)break;evnt(25066,8569,"ide_methods.bas");}while(r); -S_43179:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,8570,"ide_methods.bas");if(r)goto S_43179;} -S_43180:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX<=_SUB_IDESHOWTEXT_STRING_A->len))&(-(*__LONG_IDECX>= 1 ))))||new_error){ -if(qbevent){evnt(25066,8571,"ide_methods.bas");if(r)goto S_43180;} -do{ -*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8572,"ide_methods.bas");}while(r); -S_43182:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ -if(qbevent){evnt(25066,8573,"ide_methods.bas");if(r)goto S_43182;} -S_43183:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,8574,"ide_methods.bas");if(r)goto S_43183;} -do{ -*_SUB_IDESHOWTEXT_LONG_CC= -1 ; -if(!qbevent)break;evnt(25066,8574,"ide_methods.bas");}while(r); -} -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8580,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=50; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDQUOTECOMMENT; -RETURN_50:; -if(!qbevent)break;evnt(25066,8580,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT=*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT; -if(!qbevent)break;evnt(25066,8581,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE=*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_QUOTE; -if(!qbevent)break;evnt(25066,8582,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 0 ; -if(!qbevent)break;evnt(25066,8585,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1= 0 ; -if(!qbevent)break;evnt(25066,8586,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2= 0 ; -if(!qbevent)break;evnt(25066,8587,"ide_methods.bas");}while(r); -S_43195:; -if (((-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))&(-(*__INTEGER_BRACKETHIGHLIGHT== -1 )))||new_error){ -if(qbevent){evnt(25066,8588,"ide_methods.bas");if(r)goto S_43195;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; -if(!qbevent)break;evnt(25066,8589,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; -if(!qbevent)break;evnt(25066,8590,"ide_methods.bas");}while(r); -S_43198:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(25066,8591,"ide_methods.bas");if(r)goto S_43198;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(25066,8592,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,8593,"ide_methods.bas");}while(r); -LABEL_SCANBRACKET2:; -if(qbevent){evnt(25066,8594,"ide_methods.bas");r=0;} -S_43201:; -fornext_value4861=*_SUB_IDESHOWTEXT_LONG_BRACKET1+ 1 ; -fornext_finalvalue4861=_SUB_IDESHOWTEXT_STRING_A->len; -fornext_step4861= 1 ; -if (fornext_step4861<0) fornext_step_negative4861=1; else fornext_step_negative4861=0; -if (new_error) goto fornext_error4861; -goto fornext_entrylabel4861; -while(1){ -fornext_value4861=fornext_step4861+(*_SUB_IDESHOWTEXT_LONG_K); -fornext_entrylabel4861: -*_SUB_IDESHOWTEXT_LONG_K=fornext_value4861; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4861){ -if (fornext_value4861fornext_finalvalue4861) break; -} -fornext_error4861:; -if(qbevent){evnt(25066,8595,"ide_methods.bas");if(r)goto S_43201;} -S_43202:; -qbs_set(sc_4863,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8596,"ide_methods.bas");if(r)goto S_43202;} -S_43203:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4863,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(25066,8597,"ide_methods.bas");if(r)goto S_43203;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(25066,8598,"ide_methods.bas");}while(r); -goto sc_4863_end; -} -S_43205:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4863,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(25066,8599,"ide_methods.bas");if(r)goto S_43205;} -S_43206:; -if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ -if(qbevent){evnt(25066,8600,"ide_methods.bas");if(r)goto S_43206;} -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; -if(!qbevent)break;evnt(25066,8600,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4860; -if(!qbevent)break;evnt(25066,8600,"ide_methods.bas");}while(r); -} -goto sc_4863_end; -} -sc_4863_end:; -S_43211:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ -if(qbevent){evnt(25066,8602,"ide_methods.bas");if(r)goto S_43211;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; -if(!qbevent)break;evnt(25066,8603,"ide_methods.bas");}while(r); -S_43213:; -if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ -if(qbevent){evnt(25066,8604,"ide_methods.bas");if(r)goto S_43213;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2=*_SUB_IDESHOWTEXT_LONG_K; -if(!qbevent)break;evnt(25066,8604,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4860; -if(!qbevent)break;evnt(25066,8604,"ide_methods.bas");}while(r); -} -S_43217:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ -if(qbevent){evnt(25066,8605,"ide_methods.bas");if(r)goto S_43217;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; -if(!qbevent)break;evnt(25066,8606,"ide_methods.bas");}while(r); -} -} -fornext_continue_4860:; -} -fornext_exit_4860:; -S_43221:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,1),qbs_new_txt_len("(",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),func_chr( 34 ))))){ -if(qbevent){evnt(25066,8609,"ide_methods.bas");if(r)goto S_43221;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(25066,8610,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,8611,"ide_methods.bas");}while(r); -do{ -goto LABEL_SCANBRACKET2; -if(!qbevent)break;evnt(25066,8612,"ide_methods.bas");}while(r); -S_43225:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),qbs_new_txt_len(")",1)))){ -if(qbevent){evnt(25066,8613,"ide_methods.bas");if(r)goto S_43225;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(25066,8614,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,8615,"ide_methods.bas");}while(r); -LABEL_SCANBRACKET1:; -if(qbevent){evnt(25066,8616,"ide_methods.bas");r=0;} -S_43228:; -fornext_value4865=*_SUB_IDESHOWTEXT_LONG_BRACKET2- 1 ; -fornext_finalvalue4865= 1 ; -fornext_step4865= -1 ; -if (fornext_step4865<0) fornext_step_negative4865=1; else fornext_step_negative4865=0; -if (new_error) goto fornext_error4865; -goto fornext_entrylabel4865; -while(1){ -fornext_value4865=fornext_step4865+(*_SUB_IDESHOWTEXT_LONG_K); -fornext_entrylabel4865: -*_SUB_IDESHOWTEXT_LONG_K=fornext_value4865; -if (fornext_step_negative4865){ -if (fornext_value4865fornext_finalvalue4865) break; -} -fornext_error4865:; -if(qbevent){evnt(25066,8617,"ide_methods.bas");if(r)goto S_43228;} -S_43229:; -qbs_set(sc_4866,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8618,"ide_methods.bas");if(r)goto S_43229;} -S_43230:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4866,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(25066,8619,"ide_methods.bas");if(r)goto S_43230;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(25066,8620,"ide_methods.bas");}while(r); -goto sc_4866_end; -} -sc_4866_end:; -S_43233:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ -if(qbevent){evnt(25066,8622,"ide_methods.bas");if(r)goto S_43233;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; -if(!qbevent)break;evnt(25066,8623,"ide_methods.bas");}while(r); -S_43235:; -if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ -if(qbevent){evnt(25066,8624,"ide_methods.bas");if(r)goto S_43235;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*_SUB_IDESHOWTEXT_LONG_K; -if(!qbevent)break;evnt(25066,8624,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4864; -if(!qbevent)break;evnt(25066,8624,"ide_methods.bas");}while(r); -} -S_43239:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ -if(qbevent){evnt(25066,8625,"ide_methods.bas");if(r)goto S_43239;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; -if(!qbevent)break;evnt(25066,8626,"ide_methods.bas");}while(r); -} -} -fornext_continue_4864:; -} -fornext_exit_4864:; -S_43243:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,1),qbs_new_txt_len(")",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),func_chr( 34 ))))){ -if(qbevent){evnt(25066,8629,"ide_methods.bas");if(r)goto S_43243;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(25066,8630,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(25066,8631,"ide_methods.bas");}while(r); -do{ -goto LABEL_SCANBRACKET1; -if(!qbevent)break;evnt(25066,8632,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(25066,8637,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ORPHANBRACKET= 0 ; -if(!qbevent)break;evnt(25066,8638,"ide_methods.bas");}while(r); -S_43250:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>=(_SUB_IDESHOWTEXT_STRING_A->len+ 1 ))))||new_error){ -if(qbevent){evnt(25066,8639,"ide_methods.bas");if(r)goto S_43250;} -S_43251:; -fornext_value4869=*__LONG_IDECX- 1 ; -fornext_finalvalue4869= 1 ; -fornext_step4869= -1 ; -if (fornext_step4869<0) fornext_step_negative4869=1; else fornext_step_negative4869=0; -if (new_error) goto fornext_error4869; -goto fornext_entrylabel4869; -while(1){ -fornext_value4869=fornext_step4869+(*_SUB_IDESHOWTEXT_LONG_K); -fornext_entrylabel4869: -*_SUB_IDESHOWTEXT_LONG_K=fornext_value4869; -if (fornext_step_negative4869){ -if (fornext_value4869fornext_finalvalue4869) break; -} -fornext_error4869:; -if(qbevent){evnt(25066,8640,"ide_methods.bas");if(r)goto S_43251;} -S_43252:; -qbs_set(sc_4870,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8641,"ide_methods.bas");if(r)goto S_43252;} -S_43253:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4870,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(25066,8642,"ide_methods.bas");if(r)goto S_43253;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(25066,8643,"ide_methods.bas");}while(r); -goto sc_4870_end; -} -sc_4870_end:; -S_43256:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ -if(qbevent){evnt(25066,8645,"ide_methods.bas");if(r)goto S_43256;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; -if(!qbevent)break;evnt(25066,8646,"ide_methods.bas");}while(r); -S_43258:; -if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ -if(qbevent){evnt(25066,8647,"ide_methods.bas");if(r)goto S_43258;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*_SUB_IDESHOWTEXT_LONG_K; -if(!qbevent)break;evnt(25066,8647,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ORPHANBRACKET= -1 ; -if(!qbevent)break;evnt(25066,8647,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4868; -if(!qbevent)break;evnt(25066,8647,"ide_methods.bas");}while(r); -} -S_43263:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ -if(qbevent){evnt(25066,8648,"ide_methods.bas");if(r)goto S_43263;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; -if(!qbevent)break;evnt(25066,8649,"ide_methods.bas");}while(r); -} -} -fornext_continue_4868:; -} -fornext_exit_4868:; -} -} -} -} -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8659,"ide_methods.bas");}while(r); -S_43271:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX==(_SUB_IDESHOWTEXT_STRING_A->len+ 1 )))&(-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))))||new_error){ -if(qbevent){evnt(25066,8660,"ide_methods.bas");if(r)goto S_43271;} -S_43272:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 8 ),qbs_new_txt_len("_RGBA32(",8)))))||new_error){ -if(qbevent){evnt(25066,8664,"ide_methods.bas");if(r)goto S_43272;} -do{ -*_SUB_IDESHOWTEXT_LONG_RGB_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8665,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Hit Shift+ENTER to open the RGB mixer",42))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8666,"ide_methods.bas");}while(r); -do{ -*__BYTE_ENTERINGRGB= -1 ; -if(!qbevent)break;evnt(25066,8667,"ide_methods.bas");}while(r); -} -S_43277:; -}else{ -if (-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 ))){ -if(qbevent){evnt(25066,8669,"ide_methods.bas");if(r)goto S_43277;} -S_43278:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,1),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,1),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,1),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 8 , 8 ,1),qbs_new_txt_len("_RGBA32(",8)))))||new_error){ -if(qbevent){evnt(25066,8673,"ide_methods.bas");if(r)goto S_43278;} -S_43279:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX, 1 ,1),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,8674,"ide_methods.bas");if(r)goto S_43279;} -do{ -*__BYTE_ENTERINGRGB= -1 ; -if(!qbevent)break;evnt(25066,8674,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE=func_instr(NULL,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("$INCLUDE",8),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8678,"ide_methods.bas");}while(r); -S_43285:; -if ((-(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE> 0 ))||new_error){ -if(qbevent){evnt(25066,8679,"ide_methods.bas");if(r)goto S_43285;} -do{ -*_SUB_IDESHOWTEXT_LONG_LINK_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8680,"ide_methods.bas");}while(r); -do{ -*__LONG_ACTIVEINCLUDELINK=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,8681,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE+ 8 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8682,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8683,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_ACTIVEINCLUDELINKFILE,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2-*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1- 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8684,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8685,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_F,qbs_add(_SUB_IDESHOWTEXT_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8686,"ide_methods.bas");}while(r); -S_43293:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_IDESHOWTEXT_STRING_F)))||new_error){ -if(qbevent){evnt(25066,8687,"ide_methods.bas");if(r)goto S_43293;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Double-click to open",25))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8687,"ide_methods.bas");}while(r); -} -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8691,"ide_methods.bas");}while(r); -do{ -sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); -if(!qbevent)break;evnt(25066,8692,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8694,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; -if(!qbevent)break;evnt(25066,8698,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; -if(!qbevent)break;evnt(25066,8699,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; -if(!qbevent)break;evnt(25066,8700,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 0 ; -if(!qbevent)break;evnt(25066,8701,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8701,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; -if(!qbevent)break;evnt(25066,8702,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH= 0 ; -if(!qbevent)break;evnt(25066,8703,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_INTEGER_PREVBG=func__backgroundcolor(NULL,0); -if(!qbevent)break;evnt(25066,8704,"ide_methods.bas");}while(r); -S_43311:; -fornext_value4875= 1 ; -fornext_finalvalue4875=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step4875= 1 ; -if (fornext_step4875<0) fornext_step_negative4875=1; else fornext_step_negative4875=0; -if (new_error) goto fornext_error4875; -goto fornext_entrylabel4875; -while(1){ -fornext_value4875=fornext_step4875+(*_SUB_IDESHOWTEXT_LONG_M); -fornext_entrylabel4875: -*_SUB_IDESHOWTEXT_LONG_M=fornext_value4875; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4875){ -if (fornext_value4875fornext_finalvalue4875) break; -} -fornext_error4875:; -if(qbevent){evnt(25066,8706,"ide_methods.bas");if(r)goto S_43311;} -S_43312:; -if ((-(*_SUB_IDESHOWTEXT_LONG_M>(*__LONG_IDESX+*__LONG_IDEWX- 2 )))||new_error){ -if(qbevent){evnt(25066,8707,"ide_methods.bas");if(r)goto S_43312;} -do{ -goto fornext_exit_4874; -if(!qbevent)break;evnt(25066,8707,"ide_methods.bas");}while(r); -} -S_43315:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESELECT== 1 ))&(-(__STRING_IDECURRENTSINGLELINESELECTION->len> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH== 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))))||new_error){ -if(qbevent){evnt(25066,8708,"ide_methods.bas");if(r)goto S_43315;} -S_43316:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M,__STRING_IDECURRENTSINGLELINESELECTION->len,1)),qbs_lcase(__STRING_IDECURRENTSINGLELINESELECTION))))||new_error){ -if(qbevent){evnt(25066,8710,"ide_methods.bas");if(r)goto S_43316;} -S_43317:; -if ((-(*_SUB_IDESHOWTEXT_LONG_M> 1 ))||new_error){ -if(qbevent){evnt(25066,8711,"ide_methods.bas");if(r)goto S_43317;} -S_43318:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M- 1 , 1 ,1),0)> 0 )))||new_error){ -if(qbevent){evnt(25066,8712,"ide_methods.bas");if(r)goto S_43318;} -S_43319:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),qbs_new_txt_len(".",1)))))))||new_error){ -if(qbevent){evnt(25066,8715,"ide_methods.bas");if(r)goto S_43319;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8716,"ide_methods.bas");}while(r); -S_43321:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ -if(qbevent){evnt(25066,8717,"ide_methods.bas");if(r)goto S_43321;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8718,"ide_methods.bas");}while(r); -} -} -} -}else{ -S_43326:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),qbs_new_txt_len(".",1)))))))||new_error){ -if(qbevent){evnt(25066,8724,"ide_methods.bas");if(r)goto S_43326;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8725,"ide_methods.bas");}while(r); -S_43328:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ -if(qbevent){evnt(25066,8726,"ide_methods.bas");if(r)goto S_43328;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8727,"ide_methods.bas");}while(r); -} -} -} -} -} -S_43334:; -if ((-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))||new_error){ -if(qbevent){evnt(25066,8733,"ide_methods.bas");if(r)goto S_43334;} -S_43335:; -qbs_set(sc_4895,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8734,"ide_methods.bas");if(r)goto S_43335;} -S_43336:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4895,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(25066,8735,"ide_methods.bas");if(r)goto S_43336;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(25066,8735,"ide_methods.bas");}while(r); -goto sc_4895_end; -} -S_43338:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4895,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(25066,8736,"ide_methods.bas");if(r)goto S_43338;} -S_43339:; -if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ -if(qbevent){evnt(25066,8736,"ide_methods.bas");if(r)goto S_43339;} -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; -if(!qbevent)break;evnt(25066,8736,"ide_methods.bas");}while(r); -} -goto sc_4895_end; -} -sc_4895_end:; -} -do{ -qbg_sub_color( 13 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8740,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8742,"ide_methods.bas");}while(r); -S_43346:; -if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDESHOWTEXT_STRING_OLDCHAR->len> 0 ))|(-(*_SUB_IDESHOWTEXT_LONG_M== 1 ))))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))))||new_error){ -if(qbevent){evnt(25066,8743,"ide_methods.bas");if(r)goto S_43346;} -S_43347:; -if ((qbs_cleanup(qbs_tmp_base,(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))&(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)== 0 ))))||new_error){ -if(qbevent){evnt(25066,8744,"ide_methods.bas");if(r)goto S_43347;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8746,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8747,"ide_methods.bas");}while(r); -S_43350:; -fornext_value4898=*_SUB_IDESHOWTEXT_LONG_M; -fornext_finalvalue4898=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step4898= 1 ; -if (fornext_step4898<0) fornext_step_negative4898=1; else fornext_step_negative4898=0; -if (new_error) goto fornext_error4898; -goto fornext_entrylabel4898; -while(1){ -fornext_value4898=fornext_step4898+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel4898: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value4898; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4898){ -if (fornext_value4898fornext_finalvalue4898) break; -} -fornext_error4898:; -if(qbevent){evnt(25066,8748,"ide_methods.bas");if(r)goto S_43350;} -S_43351:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1),0)> 0 )))||new_error){ -if(qbevent){evnt(25066,8749,"ide_methods.bas");if(r)goto S_43351;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8749,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4897; -if(!qbevent)break;evnt(25066,8749,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8750,"ide_methods.bas");}while(r); -fornext_continue_4897:; -} -fornext_exit_4897:; -S_43357:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))&(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("?",1)))))||new_error){ -if(qbevent){evnt(25066,8752,"ide_methods.bas");if(r)goto S_43357;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 1 ; -if(!qbevent)break;evnt(25066,8752,"ide_methods.bas");}while(r); -do{ -goto LABEL_SETOLDCHAR; -if(!qbevent)break;evnt(25066,8752,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8753,"ide_methods.bas");}while(r); -S_43362:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 )))||new_error){ -if(qbevent){evnt(25066,8754,"ide_methods.bas");if(r)goto S_43362;} -S_43363:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END",4))))||new_error){ -if(qbevent){evnt(25066,8755,"ide_methods.bas");if(r)goto S_43363;} -S_43364:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 7 ,1)),qbs_new_txt_len("$END IF",7))))||new_error){ -if(qbevent){evnt(25066,8756,"ide_methods.bas");if(r)goto S_43364;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END IF",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8756,"ide_methods.bas");}while(r); -} -S_43367:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("THEN",4)))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ -if(qbevent){evnt(25066,8759,"ide_methods.bas");if(r)goto S_43367;} -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; -if(!qbevent)break;evnt(25066,8760,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8762,"ide_methods.bas");}while(r); -S_43371:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),qbs_new_txt_len("@",1)),0)> 0 ))){ -if(qbevent){evnt(25066,8763,"ide_methods.bas");if(r)goto S_43371;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; -if(!qbevent)break;evnt(25066,8764,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8765,"ide_methods.bas");}while(r); -}else{ -LABEL_READFULLNUMBER:; -if(qbevent){evnt(25066,8768,"ide_methods.bas");r=0;} -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; -if(!qbevent)break;evnt(25066,8769,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_EXTRACHARS= 0 ; -if(!qbevent)break;evnt(25066,8770,"ide_methods.bas");}while(r); -S_43377:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len(".",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len("-",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len(".",1)))))||new_error){ -if(qbevent){evnt(25066,8773,"ide_methods.bas");if(r)goto S_43377;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8774,"ide_methods.bas");}while(r); -S_43379:; -fornext_value4903=*_SUB_IDESHOWTEXT_LONG_I+ 1 ; -fornext_finalvalue4903=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step4903= 1 ; -if (fornext_step4903<0) fornext_step_negative4903=1; else fornext_step_negative4903=0; -if (new_error) goto fornext_error4903; -goto fornext_entrylabel4903; -while(1){ -fornext_value4903=fornext_step4903+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel4903: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value4903; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4903){ -if (fornext_value4903fornext_finalvalue4903) break; -} -fornext_error4903:; -if(qbevent){evnt(25066,8775,"ide_methods.bas");if(r)goto S_43379;} -S_43380:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1),0)))||new_error){ -if(qbevent){evnt(25066,8776,"ide_methods.bas");if(r)goto S_43380;} -S_43381:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1),qbs_new_txt_len(".",1)))&(qbs_equal(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len(".",1)))))||new_error){ -if(qbevent){evnt(25066,8777,"ide_methods.bas");if(r)goto S_43381;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8780,"ide_methods.bas");}while(r); -} -do{ -goto fornext_exit_4902; -if(!qbevent)break;evnt(25066,8782,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8784,"ide_methods.bas");}while(r); -fornext_continue_4902:; -} -fornext_exit_4902:; -} -S_43389:; -qbs_set(sc_4905,qbs_right(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8789,"ide_methods.bas");if(r)goto S_43389;} -S_43390:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4905,qbs_new_txt_len("`",1))||qbs_equal(sc_4905,qbs_new_txt_len("%",1))||qbs_equal(sc_4905,qbs_new_txt_len("&",1))||qbs_equal(sc_4905,qbs_new_txt_len("!",1))||qbs_equal(sc_4905,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(25066,8790,"ide_methods.bas");if(r)goto S_43390;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8791,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_EXTRACHARS= 1 ; -if(!qbevent)break;evnt(25066,8792,"ide_methods.bas");}while(r); -goto sc_4905_end; -} -sc_4905_end:; -S_43394:; -qbs_set(sc_4907,qbs_right(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8795,"ide_methods.bas");if(r)goto S_43394;} -S_43395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4907,qbs_new_txt_len("~",1))||qbs_equal(sc_4907,qbs_new_txt_len("%",1))||qbs_equal(sc_4907,qbs_new_txt_len("&",1))||qbs_equal(sc_4907,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(25066,8796,"ide_methods.bas");if(r)goto S_43395;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8797,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_EXTRACHARS=*_SUB_IDESHOWTEXT_LONG_EXTRACHARS+ 1 ; -if(!qbevent)break;evnt(25066,8798,"ide_methods.bas");}while(r); -goto sc_4907_end; -} -sc_4907_end:; -S_43399:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(25066,8801,"ide_methods.bas");if(r)goto S_43399;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8802,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_EXTRACHARS=*_SUB_IDESHOWTEXT_LONG_EXTRACHARS+ 1 ; -if(!qbevent)break;evnt(25066,8803,"ide_methods.bas");}while(r); -} -S_43403:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISNUMBER(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)))||new_error){ -if(qbevent){evnt(25066,8806,"ide_methods.bas");if(r)goto S_43403;} -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= -1 ; -if(!qbevent)break;evnt(25066,8807,"ide_methods.bas");}while(r); -S_43405:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 2 ),qbs_new_txt_len("&H",2)))|(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 2 ),qbs_new_txt_len("&O",2)))|(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 2 ),qbs_new_txt_len("&B",2))))){ -if(qbevent){evnt(25066,8810,"ide_methods.bas");if(r)goto S_43405;} -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= -1 ; -if(!qbevent)break;evnt(25066,8811,"ide_methods.bas");}while(r); -} -} -S_43408:; -if ((*_SUB_IDESHOWTEXT_LONG_IS_NUMBER)||new_error){ -if(qbevent){evnt(25066,8813,"ide_methods.bas");if(r)goto S_43408;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len+*_SUB_IDESHOWTEXT_LONG_EXTRACHARS; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8813,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8813,"ide_methods.bas");}while(r); -} -} -} -}else{ -S_43415:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len("-",1)))&(-(_SUB_IDESHOWTEXT_STRING_OLDCHAR->len> 0 ))&(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))))||new_error){ -if(qbevent){evnt(25066,8817,"ide_methods.bas");if(r)goto S_43415;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_NEXTCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+ 1 , 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8818,"ide_methods.bas");}while(r); -LABEL_CHECKNEGNUMBER:; -if(qbevent){evnt(25066,8819,"ide_methods.bas");r=0;} -S_43417:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDESHOWTEXT_STRING_NEXTCHAR->len))||new_error){ -if(qbevent){evnt(25066,8820,"ide_methods.bas");if(r)goto S_43417;} -S_43418:; -if ((qbs_cleanup(qbs_tmp_base,((-(qbs_asc(_SUB_IDESHOWTEXT_STRING_NEXTCHAR)>= 48 ))&(-(qbs_asc(_SUB_IDESHOWTEXT_STRING_NEXTCHAR)<= 57 )))))||new_error){ -if(qbevent){evnt(25066,8821,"ide_methods.bas");if(r)goto S_43418;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8823,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8824,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_I=*_SUB_IDESHOWTEXT_LONG_M; -if(!qbevent)break;evnt(25066,8825,"ide_methods.bas");}while(r); -do{ -goto LABEL_READFULLNUMBER; -if(!qbevent)break;evnt(25066,8826,"ide_methods.bas");}while(r); -S_43423:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDESHOWTEXT_STRING_NEXTCHAR)== 46 ))){ -if(qbevent){evnt(25066,8827,"ide_methods.bas");if(r)goto S_43423;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_NEXTCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+ 2 , 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8828,"ide_methods.bas");}while(r); -S_43425:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDESHOWTEXT_STRING_NEXTCHAR->len> 0 )))||new_error){ -if(qbevent){evnt(25066,8829,"ide_methods.bas");if(r)goto S_43425;} -S_43426:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDESHOWTEXT_STRING_NEXTCHAR)!= 46 )))||new_error){ -if(qbevent){evnt(25066,8830,"ide_methods.bas");if(r)goto S_43426;} -do{ -goto LABEL_CHECKNEGNUMBER; -if(!qbevent)break;evnt(25066,8830,"ide_methods.bas");}while(r); -} -} -} -} -} -} -} -} -LABEL_SETOLDCHAR:; -if(qbevent){evnt(25066,8837,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8838,"ide_methods.bas");}while(r); -S_43436:; -if (((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))&*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,8840,"ide_methods.bas");if(r)goto S_43436;} -S_43437:; -if ((*_SUB_IDESHOWTEXT_LONG_IS_NUMBER)||new_error){ -if(qbevent){evnt(25066,8841,"ide_methods.bas");if(r)goto S_43437;} -do{ -qbg_sub_color( 8 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8842,"ide_methods.bas");}while(r); -S_43439:; -}else{ -if (*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD){ -if(qbevent){evnt(25066,8843,"ide_methods.bas");if(r)goto S_43439;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8844,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 12 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8846,"ide_methods.bas");}while(r); -} -} -S_43444:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(25066,8848,"ide_methods.bas");if(r)goto S_43444;} -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; -if(!qbevent)break;evnt(25066,8848,"ide_methods.bas");}while(r); -} -} -S_43448:; -if ((*_SUB_IDESHOWTEXT_LONG_COMMENT)||new_error){ -if(qbevent){evnt(25066,8851,"ide_methods.bas");if(r)goto S_43448;} -do{ -qbg_sub_color( 11 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8852,"ide_methods.bas");}while(r); -S_43450:; -if ((qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_METACOMMAND&((qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$INCLUDE",8)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$DYNAMIC",8)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$STATIC",7))))))||new_error){ -if(qbevent){evnt(25066,8854,"ide_methods.bas");if(r)goto S_43450;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8854,"ide_methods.bas");}while(r); -} -S_43453:; -}else{ -if (*_SUB_IDESHOWTEXT_LONG_METACOMMAND){ -if(qbevent){evnt(25066,8855,"ide_methods.bas");if(r)goto S_43453;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8856,"ide_methods.bas");}while(r); -S_43455:; -}else{ -if (qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_INQUOTE|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,1),func_chr( 34 ))))){ -if(qbevent){evnt(25066,8857,"ide_methods.bas");if(r)goto S_43455;} -do{ -qbg_sub_color( 14 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8858,"ide_methods.bas");}while(r); -} -} -} -S_43458:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET1))|(-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET2)))))||new_error){ -if(qbevent){evnt(25066,8861,"ide_methods.bas");if(r)goto S_43458;} -do{ -qbg_sub_color(NULL, 5 ,NULL,2); -if(!qbevent)break;evnt(25066,8862,"ide_methods.bas");}while(r); -S_43460:; -if ((*_SUB_IDESHOWTEXT_LONG_ORPHANBRACKET)||new_error){ -if(qbevent){evnt(25066,8863,"ide_methods.bas");if(r)goto S_43460;} -do{ -qbg_sub_color(NULL, 4 ,NULL,2); -if(!qbevent)break;evnt(25066,8863,"ide_methods.bas");}while(r); -} -S_43463:; -}else{ -if ((-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH> 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))){ -if(qbevent){evnt(25066,8864,"ide_methods.bas");if(r)goto S_43463;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH- 1 ; -if(!qbevent)break;evnt(25066,8865,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(NULL, 5 ,NULL,2); -if(!qbevent)break;evnt(25066,8866,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color(NULL,*_SUB_IDESHOWTEXT_INTEGER_PREVBG,NULL,2); -if(!qbevent)break;evnt(25066,8868,"ide_methods.bas");}while(r); -} -} -S_43469:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&((((-(*_SUB_IDESHOWTEXT_LONG_LINK_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_LINK_IDECX)))|((-(*_SUB_IDESHOWTEXT_LONG_RGB_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_RGB_IDECX))))))||new_error){ -if(qbevent){evnt(25066,8872,"ide_methods.bas");if(r)goto S_43469;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,8872,"ide_methods.bas");}while(r); -} -S_43472:; -while((!(-(*_SUB_IDESHOWTEXT_LONG_Lid=(++mem_lock_id); -static int32 preserved_elements; -if (__ARRAY_BIT1_INVALIDLINE[2]&1){ -preserved_elements=__ARRAY_BIT1_INVALIDLINE[5]; -} -else preserved_elements=0; -__ARRAY_BIT1_INVALIDLINE[4]= 0 ; -__ARRAY_BIT1_INVALIDLINE[5]=(func_ubound(__ARRAY_BIT1_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BIT1_INVALIDLINE[4]+1; -__ARRAY_BIT1_INVALIDLINE[6]=1; -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ -if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BIT1_INVALIDLINE[0]),preserved_elements*1/8+1); -cmem_dynamic_free((uint8*)(__ARRAY_BIT1_INVALIDLINE[0])); -tmp_long=__ARRAY_BIT1_INVALIDLINE[5]; -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1/8+1); -memcpy((void*)(__ARRAY_BIT1_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1/8+1); -if (preserved_elements=( 2 +*__LONG_MAXLINENUMBERLENGTH)))&(-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)<*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(25066,8880,"ide_methods.bas");if(r)goto S_43479;} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8881,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDESHOWTEXT_STRING_THISCHAR); -if (new_error) goto skip4915; -makefit(tqbs); -qbs_print(tqbs,0); -skip4915: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8882,"ide_methods.bas");}while(r); -} -}else{ -S_43484:; -if (((-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)>=( 2 )))&(-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)<*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(25066,8885,"ide_methods.bas");if(r)goto S_43484;} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8886,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDESHOWTEXT_STRING_THISCHAR); -if (new_error) goto skip4916; -makefit(tqbs); -qbs_print(tqbs,0); -skip4916: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8887,"ide_methods.bas");}while(r); -} -} -S_43489:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,8892,"ide_methods.bas");if(r)goto S_43489;} -do{ -qbg_sub_color(NULL, 6 ,NULL,2); -if(!qbevent)break;evnt(25066,8892,"ide_methods.bas");}while(r); -} -S_43492:; -if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))||new_error){ -if(qbevent){evnt(25066,8893,"ide_methods.bas");if(r)goto S_43492;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=*_SUB_IDESHOWTEXT_LONG_ISKEYWORD- 1 ; -if(!qbevent)break;evnt(25066,8893,"ide_methods.bas");}while(r); -} -S_43495:; -if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))||new_error){ -if(qbevent){evnt(25066,8894,"ide_methods.bas");if(r)goto S_43495;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8894,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; -if(!qbevent)break;evnt(25066,8894,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; -if(!qbevent)break;evnt(25066,8894,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; -if(!qbevent)break;evnt(25066,8894,"ide_methods.bas");}while(r); -} -fornext_continue_4874:; -} -fornext_exit_4874:; -S_43502:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,8898,"ide_methods.bas");if(r)goto S_43502;} -S_43503:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ -if(qbevent){evnt(25066,8899,"ide_methods.bas");if(r)goto S_43503;} -S_43504:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(25066,8900,"ide_methods.bas");if(r)goto S_43504;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,8901,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; -if(!qbevent)break;evnt(25066,8902,"ide_methods.bas");}while(r); -S_43507:; -fornext_value4918= 2 +*__LONG_MAXLINENUMBERLENGTH; -fornext_finalvalue4918=(*__LONG_IDEWX- 2 ); -fornext_step4918= 1 ; -if (fornext_step4918<0) fornext_step_negative4918=1; else fornext_step_negative4918=0; -if (new_error) goto fornext_error4918; -goto fornext_entrylabel4918; -while(1){ -fornext_value4918=fornext_step4918+(*_SUB_IDESHOWTEXT_LONG_X); -fornext_entrylabel4918: -*_SUB_IDESHOWTEXT_LONG_X=fornext_value4918; -if (fornext_step_negative4918){ -if (fornext_value4918fornext_finalvalue4918) break; -} -fornext_error4918:; -if(qbevent){evnt(25066,8903,"ide_methods.bas");if(r)goto S_43507;} -S_43508:; -if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ -if(qbevent){evnt(25066,8904,"ide_methods.bas");if(r)goto S_43508;} -do{ -*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); -if(!qbevent)break;evnt(25066,8905,"ide_methods.bas");}while(r); -S_43510:; -if ((-(*_SUB_IDESHOWTEXT_LONG_A== 63 ))||new_error){ -if(qbevent){evnt(25066,8907,"ide_methods.bas");if(r)goto S_43510;} -do{ -*_SUB_IDESHOWTEXT_LONG_C=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X, 1 ,1); -if(!qbevent)break;evnt(25066,8908,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDESHOWTEXT_LONG_C= 1 ; -if(!qbevent)break;evnt(25066,8910,"ide_methods.bas");}while(r); -} -S_43515:; -if ((-((*_SUB_IDESHOWTEXT_LONG_C& 15 )== 0 ))||new_error){ -if(qbevent){evnt(25066,8912,"ide_methods.bas");if(r)goto S_43515;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,8913,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8914,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("?",1)); -if (new_error) goto skip4919; -makefit(tqbs); -qbs_print(tqbs,0); -skip4919: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8914,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,8915,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8917,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(*_SUB_IDESHOWTEXT_LONG_A)); -if (new_error) goto skip4920; -makefit(tqbs); -qbs_print(tqbs,0); -skip4920: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8917,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,8922,"ide_methods.bas");}while(r); -fornext_continue_4917:; -} -fornext_exit_4917:; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,8924,"ide_methods.bas");}while(r); -}else{ -S_43529:; -if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ -if(qbevent){evnt(25066,8926,"ide_methods.bas");if(r)goto S_43529;} -do{ -goto LABEL_NOFINALSELECT; -if(!qbevent)break;evnt(25066,8926,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 2 +*__LONG_MAXLINENUMBERLENGTH,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8927,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,8928,"ide_methods.bas");}while(r); -S_43534:; -fornext_value4922=*__LONG_IDESX; -fornext_finalvalue4922=*__LONG_IDESX+*__LONG_IDEWX-( 2 +*__LONG_MAXLINENUMBERLENGTH); -fornext_step4922= 1 ; -if (fornext_step4922<0) fornext_step_negative4922=1; else fornext_step_negative4922=0; -if (new_error) goto fornext_error4922; -goto fornext_entrylabel4922; -while(1){ -fornext_value4922=fornext_step4922+(*_SUB_IDESHOWTEXT_LONG_X); -fornext_entrylabel4922: -*_SUB_IDESHOWTEXT_LONG_X=fornext_value4922; -if (fornext_step_negative4922){ -if (fornext_value4922fornext_finalvalue4922) break; -} -fornext_error4922:; -if(qbevent){evnt(25066,8930,"ide_methods.bas");if(r)goto S_43534;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_X, 1 ,1)); -if (new_error) goto skip4923; -makefit(tqbs); -qbs_print(tqbs,0); -skip4923: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8931,"ide_methods.bas");}while(r); -fornext_continue_4921:; -} -fornext_exit_4921:; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,8934,"ide_methods.bas");}while(r); -LABEL_NOFINALSELECT:; -if(qbevent){evnt(25066,8935,"ide_methods.bas");r=0;} -} -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; -if(!qbevent)break;evnt(25066,8940,"ide_methods.bas");}while(r); -fornext_continue_4851:; -} -fornext_exit_4851:; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,8943,"ide_methods.bas");}while(r); -S_43544:; -fornext_value4925= 1 ; -fornext_finalvalue4925=*__LONG_IDEBMKN; -fornext_step4925= 1 ; -if (fornext_step4925<0) fornext_step_negative4925=1; else fornext_step_negative4925=0; -if (new_error) goto fornext_error4925; -goto fornext_entrylabel4925; -while(1){ -fornext_value4925=fornext_step4925+(*_SUB_IDESHOWTEXT_LONG_B); -fornext_entrylabel4925: -*_SUB_IDESHOWTEXT_LONG_B=fornext_value4925; -if (fornext_step_negative4925){ -if (fornext_value4925fornext_finalvalue4925) break; -} -fornext_error4925:; -if(qbevent){evnt(25066,8944,"ide_methods.bas");if(r)goto S_43544;} -do{ -*_SUB_IDESHOWTEXT_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESHOWTEXT_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)); -if(!qbevent)break;evnt(25066,8945,"ide_methods.bas");}while(r); -S_43546:; -if (((-(*_SUB_IDESHOWTEXT_LONG_Y>=*__LONG_IDESY))&(-(*_SUB_IDESHOWTEXT_LONG_Y<=(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ -if(qbevent){evnt(25066,8946,"ide_methods.bas");if(r)goto S_43546;} -do{ -qbg_sub_locate( 3 +*_SUB_IDESHOWTEXT_LONG_Y-*__LONG_IDESY, 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8948,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 197 )); -if (new_error) goto skip4926; -makefit(tqbs); -qbs_print(tqbs,0); -skip4926: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8948,"ide_methods.bas");}while(r); -} -fornext_continue_4924:; -} -fornext_exit_4924:; -do{ -*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4927= 3 ),&(pass4928=(*__LONG_IDEWY- 8 )),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(25066,8953,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEHBAR(&(pass4929= 2 ),&(pass4930=(*__LONG_IDEWY- 5 )),&(pass4931=(*__LONG_IDEWX- 2 )),__LONG_IDESX,&(pass4932= 608 )); -if(!qbevent)break;evnt(25066,8954,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,8957,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW,*__LONG_IDEWX- 20 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8958,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" : ",21)); -if (new_error) goto skip4933; -makefit(tqbs); -qbs_print(tqbs,0); -skip4933: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8958,"ide_methods.bas");}while(r); -S_43556:; -if ((-(*__LONG_IDECX< 100000 ))||new_error){ -if(qbevent){evnt(25066,8959,"ide_methods.bas");if(r)goto S_43556;} -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW,*__LONG_IDEWX- 9 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8960,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_str((int32)(*__LONG_IDECX)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8961,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDESHOWTEXT_STRING_A); -if (new_error) goto skip4934; -makefit(tqbs); -qbs_print(tqbs,0); -skip4934: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8962,"ide_methods.bas");}while(r); -S_43560:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CC!= -1 ))||new_error){ -if(qbevent){evnt(25066,8963,"ide_methods.bas");if(r)goto S_43560;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_STR2(_SUB_IDESHOWTEXT_LONG_CC)),qbs_new_txt_len(")",1))); -if (new_error) goto skip4935; -makefit(tqbs); -qbs_print(tqbs,0); -skip4935: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8963,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_str((int32)(*__LONG_IDECY)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8965,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW,(*__LONG_IDEWX- 10 )-_SUB_IDESHOWTEXT_STRING_A->len,NULL,NULL,NULL,3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8966,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDESHOWTEXT_STRING_A); -if (new_error) goto skip4937; -makefit(tqbs); -qbs_print(tqbs,0); -skip4937: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8967,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8969,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDECY-*__LONG_IDESY+ 3 ,*__LONG_MAXLINENUMBERLENGTH+*__LONG_IDECX-*__LONG_IDESX+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,8969,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8969,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,8971,"ide_methods.bas");}while(r); -LABEL_FINDQUOTECOMMENT:; -if(qbevent){evnt(25066,8972,"ide_methods.bas");r=0;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT= 0 ; -if(!qbevent)break;evnt(25066,8973,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_QUOTE= 0 ; -if(!qbevent)break;evnt(25066,8973,"ide_methods.bas");}while(r); -S_43573:; -fornext_value4939= 1 ; -fornext_finalvalue4939=_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT->len; -fornext_step4939= 1 ; -if (fornext_step4939<0) fornext_step_negative4939=1; else fornext_step_negative4939=0; -if (new_error) goto fornext_error4939; -goto fornext_entrylabel4939; -while(1){ -fornext_value4939=fornext_step4939+(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_K); -fornext_entrylabel4939: -*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_K=fornext_value4939; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4939){ -if (fornext_value4939fornext_finalvalue4939) break; -} -fornext_error4939:; -if(qbevent){evnt(25066,8974,"ide_methods.bas");if(r)goto S_43573;} -S_43574:; -qbs_set(sc_4941,func_mid(_SUB_IDESHOWTEXT_STRING_FINDQUOTECOMMENT,*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_K, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,8975,"ide_methods.bas");if(r)goto S_43574;} -S_43575:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4941,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(25066,8976,"ide_methods.bas");if(r)goto S_43575;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_QUOTE=~(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_QUOTE); -if(!qbevent)break;evnt(25066,8976,"ide_methods.bas");}while(r); -goto sc_4941_end; -} -S_43577:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4941,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(25066,8977,"ide_methods.bas");if(r)goto S_43577;} -S_43578:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_QUOTE== 0 ))||new_error){ -if(qbevent){evnt(25066,8977,"ide_methods.bas");if(r)goto S_43578;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDESHOWTEXT_COMMENT= -1 ; -if(!qbevent)break;evnt(25066,8977,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4938; -if(!qbevent)break;evnt(25066,8977,"ide_methods.bas");}while(r); -} -goto sc_4941_end; -} -sc_4941_end:; -fornext_continue_4938:; -} -fornext_exit_4938:; -do{ -#include "ret161.txt" -if(!qbevent)break;evnt(25066,8980,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); #include "free161.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEHLEN_LONG_IDEHLEN; } -qbs* FUNC_IDESUBS(){ +void SUB_IDEHPRINT(qbs*_SUB_IDEHPRINT_STRING_A){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; @@ -154408,418 +166414,6352 @@ sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,11609,"ide_methods.bas");}while(r); +S_48036:; +fornext_value5348= 1 ; +fornext_finalvalue5348=_SUB_IDEHPRINT_STRING_A->len; +fornext_step5348= 1 ; +if (fornext_step5348<0) fornext_step_negative5348=1; else fornext_step_negative5348=0; +if (new_error) goto fornext_error5348; +goto fornext_entrylabel5348; +while(1){ +fornext_value5348=fornext_step5348+(*_SUB_IDEHPRINT_LONG_I); +fornext_entrylabel5348: +*_SUB_IDEHPRINT_LONG_I=fornext_value5348; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5348){ +if (fornext_value5348fornext_finalvalue5348) break; +} +fornext_error5348:; +if(qbevent){evnt(26307,11610,"ide_methods.bas");if(r)goto S_48036;} +do{ +qbs_set(_SUB_IDEHPRINT_STRING_C,func_mid(_SUB_IDEHPRINT_STRING_A,*_SUB_IDEHPRINT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11611,"ide_methods.bas");}while(r); +S_48038:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEHPRINT_STRING_C,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26307,11612,"ide_methods.bas");if(r)goto S_48038;} +S_48039:; +if ((*__LONG_IDEHL)||new_error){ +if(qbevent){evnt(26307,11613,"ide_methods.bas");if(r)goto S_48039;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,11613,"ide_methods.bas");}while(r); +} +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_IDEHPRINT_STRING_C); +if (new_error) goto skip5350; +makefit(tqbs); +qbs_print(tqbs,0); +skip5350: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11615,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,11615,"ide_methods.bas");}while(r); +} +fornext_continue_5347:; +} +fornext_exit_5347:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free162.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEINSLINE(int32*_SUB_IDEINSLINE_LONG_I,qbs*_SUB_IDEINSLINE_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data163.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48047:; +fornext_value5353= 1 ; +fornext_finalvalue5353=*__LONG_IDEBMKN; +fornext_step5353= 1 ; +if (fornext_step5353<0) fornext_step_negative5353=1; else fornext_step_negative5353=0; +if (new_error) goto fornext_error5353; +goto fornext_entrylabel5353; +while(1){ +fornext_value5353=fornext_step5353+(*_SUB_IDEINSLINE_LONG_B); +fornext_entrylabel5353: +*_SUB_IDEINSLINE_LONG_B=fornext_value5353; +if (fornext_step_negative5353){ +if (fornext_value5353fornext_finalvalue5353) break; +} +fornext_error5353:; +if(qbevent){evnt(26307,11623,"ide_methods.bas");if(r)goto S_48047;} +S_48048:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEINSLINE_LONG_I))||new_error){ +if(qbevent){evnt(26307,11624,"ide_methods.bas");if(r)goto S_48048;} +do{ +*_SUB_IDEINSLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; +if(!qbevent)break;evnt(26307,11625,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEINSLINE_LONG_Y; +if(!qbevent)break;evnt(26307,11626,"ide_methods.bas");}while(r); +} +fornext_continue_5352:; +} +fornext_exit_5352:; +S_48053:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26307,11630,"ide_methods.bas");if(r)goto S_48053;} +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +preserved_elements=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN+ 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +tmp_long=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementsfornext_finalvalue5355) break; +} +fornext_error5355:; +if(qbevent){evnt(26307,11632,"ide_methods.bas");if(r)goto S_48055;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEINSLINE_LONG_B- 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26307,11633,"ide_methods.bas");}while(r); +fornext_continue_5354:; +} +fornext_exit_5354:; +do{ +tmp_long=array_check((*_SUB_IDEINSLINE_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,11635,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +preserved_elements=__ARRAY_BYTE_IDESKIPLINES[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN+ 1 )-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDESKIPLINES[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +tmp_long=__ARRAY_BYTE_IDESKIPLINES[5]; +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementsfornext_finalvalue5357) break; +} +fornext_error5357:; +if(qbevent){evnt(26307,11638,"ide_methods.bas");if(r)goto S_48060;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEINSLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26307,11639,"ide_methods.bas");}while(r); +fornext_continue_5356:; +} +fornext_exit_5356:; +do{ +tmp_long=array_check((*_SUB_IDEINSLINE_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26307,11641,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEINSLINE_STRING_TEXT,qbs_rtrim(_SUB_IDEINSLINE_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11644,"ide_methods.bas");}while(r); +S_48066:; +if ((-(*_SUB_IDEINSLINE_LONG_I== -1 ))||new_error){ +if(qbevent){evnt(26307,11646,"ide_methods.bas");if(r)goto S_48066;} +do{ +*_SUB_IDEINSLINE_LONG_I=*__LONG_IDEL; +if(!qbevent)break;evnt(26307,11646,"ide_methods.bas");}while(r); +} +S_48069:; +if ((-(*_SUB_IDEINSLINE_LONG_I>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,11648,"ide_methods.bas");if(r)goto S_48069;} +do{ +SUB_IDESETLINE(_SUB_IDEINSLINE_LONG_I,_SUB_IDEINSLINE_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11649,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11650,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEGOTOLINE(_SUB_IDEINSLINE_LONG_I); +if(!qbevent)break;evnt(26307,11652,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEINSLINE_LONG_TEXTLEN=_SUB_IDEINSLINE_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11654,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),_SUB_IDEINSLINE_STRING_TEXT),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11655,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*__LONG_IDEN+ 1 ; +if(!qbevent)break;evnt(26307,11656,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free163.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEINPUTBOX(qbs*_FUNC_IDEINPUTBOX_STRING_TITLE,qbs*_FUNC_IDEINPUTBOX_STRING_CAPTION,qbs*_FUNC_IDEINPUTBOX_STRING_INITIALVALUE,qbs*_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,int32*_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,int32*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH,int32*_FUNC_IDEINPUTBOX_LONG_OK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data164.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,8986,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11663,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,8987,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11664,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,8988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,11665,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,11666,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,11667,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,11668,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,11669,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11670,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,11675,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_OK= 0 ; +if(!qbevent)break;evnt(26307,11676,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) ),_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,&(pass5364= 5 ),_FUNC_IDEINPUTBOX_STRING_TITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11678,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11680,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26307,11681,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,11682,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,11683,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_CAPTION); +if(!qbevent)break;evnt(26307,11684,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE); +if(!qbevent)break;evnt(26307,11685,"ide_methods.bas");}while(r); +S_48094:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len> 0 )))||new_error){ +if(qbevent){evnt(26307,11686,"ide_methods.bas");if(r)goto S_48094;} +do{ +*(int8*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,11686,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,11687,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len; +if(!qbevent)break;evnt(26307,11688,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11690,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,11691,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,11692,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEINPUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,11693,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,11694,"ide_methods.bas");}while(r); +S_48104:; +fornext_value5368= 1 ; +fornext_finalvalue5368= 100 ; +fornext_step5368= 1 ; +if (fornext_step5368<0) fornext_step_negative5368=1; else fornext_step_negative5368=0; +if (new_error) goto fornext_error5368; +goto fornext_entrylabel5368; +while(1){ +fornext_value5368=fornext_step5368+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5368: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5368; +if (fornext_step_negative5368){ +if (fornext_value5368fornext_finalvalue5368) break; +} +fornext_error5368:; +if(qbevent){evnt(26307,11698,"ide_methods.bas");if(r)goto S_48104;} +do{ +memcpy(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEINPUTBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,11698,"ide_methods.bas");}while(r); +fornext_continue_5367:; +} +fornext_exit_5367:; +S_48107:; +do{ +if(qbevent){evnt(26307,11701,"ide_methods.bas");if(r)goto S_48107;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,11705,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,11706,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,11706,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,11706,"ide_methods.bas");}while(r); +S_48112:; +fornext_value5371= 1 ; +fornext_finalvalue5371= 100 ; +fornext_step5371= 1 ; +if (fornext_step5371<0) fornext_step_negative5371=1; else fornext_step_negative5371=0; +if (new_error) goto fornext_error5371; +goto fornext_entrylabel5371; +while(1){ +fornext_value5371=fornext_step5371+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5371: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5371; +if (fornext_step_negative5371){ +if (fornext_value5371fornext_finalvalue5371) break; +} +fornext_error5371:; +if(qbevent){evnt(26307,11707,"ide_methods.bas");if(r)goto S_48112;} +S_48113:; +if ((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,11708,"ide_methods.bas");if(r)goto S_48113;} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; +if(!qbevent)break;evnt(26307,11711,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,11712,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,11712,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEINPUTBOX_LONG_F); +if(!qbevent)break;evnt(26307,11713,"ide_methods.bas");}while(r); +S_48118:; +if ((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,11714,"ide_methods.bas");if(r)goto S_48118;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,11714,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,11714,"ide_methods.bas");}while(r); +} +} +fornext_continue_5370:; +} +fornext_exit_5370:; +do{ +*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS=*_FUNC_IDEINPUTBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,11717,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,11724,"ide_methods.bas");}while(r); +S_48126:; +if ((*_FUNC_IDEINPUTBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,11725,"ide_methods.bas");if(r)goto S_48126;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11725,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEINPUTBOX_LONG_CY,*_FUNC_IDEINPUTBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,11725,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11725,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,11728,"ide_methods.bas");}while(r); +S_48132:; +do{ +if(qbevent){evnt(26307,11729,"ide_methods.bas");if(r)goto S_48132;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,11730,"ide_methods.bas");}while(r); +S_48134:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,11731,"ide_methods.bas");if(r)goto S_48134;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11731,"ide_methods.bas");}while(r); +} +S_48137:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,11732,"ide_methods.bas");if(r)goto S_48137;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11732,"ide_methods.bas");}while(r); +} +S_48140:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,11733,"ide_methods.bas");if(r)goto S_48140;} +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,11733,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11733,"ide_methods.bas");}while(r); +} +S_48144:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,11734,"ide_methods.bas");if(r)goto S_48144;} +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,11734,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11734,"ide_methods.bas");}while(r); +} +S_48148:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,11735,"ide_methods.bas");if(r)goto S_48148;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11735,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,11736,"ide_methods.bas");}while(r); +S_48152:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_ALT!=*_FUNC_IDEINPUTBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,11736,"ide_methods.bas");if(r)goto S_48152;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11736,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_OLDALT=*_FUNC_IDEINPUTBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,11737,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,11738,"ide_methods.bas");}while(r); +S_48157:; +dl_continue_5372:; +}while((!(*_FUNC_IDEINPUTBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5372:; +if(qbevent){evnt(26307,11739,"ide_methods.bas");if(r)goto S_48157;} +S_48158:; +if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,11740,"ide_methods.bas");if(r)goto S_48158;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,11740,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,11740,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11742,"ide_methods.bas");}while(r); +S_48164:; +if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,11743,"ide_methods.bas");if(r)goto S_48164;} +S_48165:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,11744,"ide_methods.bas");if(r)goto S_48165;} +do{ +*_FUNC_IDEINPUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11745,"ide_methods.bas");}while(r); +S_48167:; +if (((-(*_FUNC_IDEINPUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEINPUTBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,11746,"ide_methods.bas");if(r)goto S_48167;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEINPUTBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11746,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11749,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,11749,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11749,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,11753,"ide_methods.bas");}while(r); +S_48176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,11754,"ide_methods.bas");if(r)goto S_48176;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11754,"ide_methods.bas");}while(r); +} +S_48179:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,11755,"ide_methods.bas");if(r)goto S_48179;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,11755,"ide_methods.bas");}while(r); +} +S_48182:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,11756,"ide_methods.bas");if(r)goto S_48182;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,11756,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11756,"ide_methods.bas");}while(r); +} +S_48186:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,11757,"ide_methods.bas");if(r)goto S_48186;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,11757,"ide_methods.bas");}while(r); +} +S_48189:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS>*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,11758,"ide_methods.bas");if(r)goto S_48189;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,11758,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,11759,"ide_methods.bas");}while(r); +S_48193:; +fornext_value5375= 1 ; +fornext_finalvalue5375= 100 ; +fornext_step5375= 1 ; +if (fornext_step5375<0) fornext_step_negative5375=1; else fornext_step_negative5375=0; +if (new_error) goto fornext_error5375; +goto fornext_entrylabel5375; +while(1){ +fornext_value5375=fornext_step5375+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5375: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5375; +if (fornext_step_negative5375){ +if (fornext_value5375fornext_finalvalue5375) break; +} +fornext_error5375:; +if(qbevent){evnt(26307,11760,"ide_methods.bas");if(r)goto S_48193;} +do{ +*_FUNC_IDEINPUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,11761,"ide_methods.bas");}while(r); +S_48195:; +if ((*_FUNC_IDEINPUTBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,11762,"ide_methods.bas");if(r)goto S_48195;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; +if(!qbevent)break;evnt(26307,11763,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEINPUTBOX_LONG_FOCUS,_FUNC_IDEINPUTBOX_LONG_F,_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEINPUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN,_FUNC_IDEINPUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEINPUTBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11764,"ide_methods.bas");}while(r); +} +fornext_continue_5374:; +} +fornext_exit_5374:; +S_48200:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS!=*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26307,11770,"ide_methods.bas");if(r)goto S_48200;} +do{ +*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26307,11772,"ide_methods.bas");}while(r); +S_48202:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26307,11773,"ide_methods.bas");if(r)goto S_48202;} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,11774,"ide_methods.bas");}while(r); +S_48204:; +if ((-(*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,11775,"ide_methods.bas");if(r)goto S_48204;} +do{ +*(int8*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,11775,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,11776,"ide_methods.bas");}while(r); +} +} +S_48210:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->len))||new_error){ +if(qbevent){evnt(26307,11780,"ide_methods.bas");if(r)goto S_48210;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11781,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11782,"ide_methods.bas");}while(r); +S_48213:; +fornext_value5379= 1 ; +fornext_finalvalue5379=_FUNC_IDEINPUTBOX_STRING_A->len; +fornext_step5379= 1 ; +if (fornext_step5379<0) fornext_step_negative5379=1; else fornext_step_negative5379=0; +if (new_error) goto fornext_error5379; +goto fornext_entrylabel5379; +while(1){ +fornext_value5379=fornext_step5379+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5379: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5379; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5379){ +if (fornext_value5379fornext_finalvalue5379) break; +} +fornext_error5379:; +if(qbevent){evnt(26307,11783,"ide_methods.bas");if(r)goto S_48213;} +S_48214:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,1),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,11784,"ide_methods.bas");if(r)goto S_48214;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_add(_FUNC_IDEINPUTBOX_STRING_TEMPA,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11785,"ide_methods.bas");}while(r); +} +fornext_continue_5378:; +} +fornext_exit_5378:; +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEINPUTBOX_STRING_TEMPA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11788,"ide_methods.bas");}while(r); +} +S_48220:; +if ((*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)||new_error){ +if(qbevent){evnt(26307,11791,"ide_methods.bas");if(r)goto S_48220;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11792,"ide_methods.bas");}while(r); +} +S_48223:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEINPUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,11795,"ide_methods.bas");if(r)goto S_48223;} +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,11796,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11797,"ide_methods.bas");}while(r); +} +S_48227:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEINPUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,11800,"ide_methods.bas");if(r)goto S_48227;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11801,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_OK= -1 ; +if(!qbevent)break;evnt(26307,11802,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,11803,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26307,11804,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11805,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,11809,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,11810,"ide_methods.bas");}while(r); +dl_continue_5369:; +}while(1); +dl_exit_5369:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free164.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX);return _FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX; +} +void SUB_IDENEWSF(qbs*_SUB_IDENEWSF_STRING_SF){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data165.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48237:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,11817,"ide_methods.bas");if(r)goto S_48237;} +S_48238:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,11818,"ide_methods.bas");if(r)goto S_48238;} +do{ +qbs_set(_SUB_IDENEWSF_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11819,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11820,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,11821,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,11821,"ide_methods.bas");}while(r); +S_48243:; +if ((-(*_SUB_IDENEWSF_LONG_SX2<*_SUB_IDENEWSF_LONG_SX1))||new_error){ +if(qbevent){evnt(26307,11822,"ide_methods.bas");if(r)goto S_48243;} +do{ +swap_32(&*_SUB_IDENEWSF_LONG_SX1,&*_SUB_IDENEWSF_LONG_SX2); +if(!qbevent)break;evnt(26307,11822,"ide_methods.bas");}while(r); +} +S_48246:; +fornext_value5383=*_SUB_IDENEWSF_LONG_SX1; +fornext_finalvalue5383=*_SUB_IDENEWSF_LONG_SX2- 1 ; +fornext_step5383= 1 ; +if (fornext_step5383<0) fornext_step_negative5383=1; else fornext_step_negative5383=0; +if (new_error) goto fornext_error5383; +goto fornext_entrylabel5383; +while(1){ +fornext_value5383=fornext_step5383+(*_SUB_IDENEWSF_LONG_X); +fornext_entrylabel5383: +*_SUB_IDENEWSF_LONG_X=fornext_value5383; +if (fornext_step_negative5383){ +if (fornext_value5383fornext_finalvalue5383) break; +} +fornext_error5383:; +if(qbevent){evnt(26307,11823,"ide_methods.bas");if(r)goto S_48246;} +S_48247:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDENEWSF_LONG_X<=_SUB_IDENEWSF_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,11824,"ide_methods.bas");if(r)goto S_48247;} +do{ +qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,func_mid(_SUB_IDENEWSF_STRING_A,*_SUB_IDENEWSF_LONG_X, 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11824,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11824,"ide_methods.bas");}while(r); +} +fornext_continue_5382:; +} +fornext_exit_5382:; +} +} +do{ +qbs_set(_SUB_IDENEWSF_STRING_NEWSF,FUNC_IDEINPUTBOX(qbs_add(qbs_new_txt_len("New ",4),_SUB_IDENEWSF_STRING_SF),qbs_new_txt_len("#Name",5),_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0),&(pass5385= 60 ),&(pass5386= 40 ),&(pass5387= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11829,"ide_methods.bas");}while(r); +S_48256:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDENEWSF_STRING_NEWSF->len))||new_error){ +if(qbevent){evnt(26307,11831,"ide_methods.bas");if(r)goto S_48256;} +do{ +*_SUB_IDENEWSF_LONG_Y=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,11832,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,11833,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11833,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,11834,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_add(_SUB_IDENEWSF_STRING_SF,qbs_new_txt_len(" ",1)),_SUB_IDENEWSF_STRING_NEWSF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11834,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY=*_SUB_IDENEWSF_LONG_Y; +if(!qbevent)break;evnt(26307,11835,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,11836,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11836,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_IDENEWSF_LONG_Y; +if(!qbevent)break;evnt(26307,11837,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,11838,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_new_txt_len("END ",4),_SUB_IDENEWSF_STRING_SF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11838,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,11839,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26307,11839,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,11840,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,11841,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free165.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDENEWFOLDER(qbs*_FUNC_IDENEWFOLDER_STRING_THISPATH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data166.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDENEWFOLDER_STRING_NEWFOLDER,FUNC_IDEINPUTBOX(qbs_new_txt_len("New Folder",10),qbs_new_txt_len("#Name",5),qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass5390= 60 ),&(pass5391= 0 ),&(pass5392= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11846,"ide_methods.bas");}while(r); +S_48274:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER->len))||new_error){ +if(qbevent){evnt(26307,11848,"ide_methods.bas");if(r)goto S_48274;} +S_48275:; +if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDENEWFOLDER_STRING_THISPATH,__STRING1_IDEPATHSEP),_FUNC_IDENEWFOLDER_STRING_NEWFOLDER))))||new_error){ +if(qbevent){evnt(26307,11849,"ide_methods.bas");if(r)goto S_48275;} +do{ +qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11850,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,11851,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 5 ; +if(!qbevent)break;evnt(26307,11853,"ide_methods.bas");}while(r); +do{ +sub_mkdir(qbs_add(qbs_add(_FUNC_IDENEWFOLDER_STRING_THISPATH,__STRING1_IDEPATHSEP),_FUNC_IDENEWFOLDER_STRING_NEWFOLDER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11854,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26307,11855,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11856,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free166.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER);return _FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER; +} +int32 FUNC_IDENEWTXT(qbs*_FUNC_IDENEWTXT_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data167.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__INTEGER_IDETXTLAST=*__INTEGER_IDETXTLAST+ 1 ; +if(!qbevent)break;evnt(26307,11862,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_IDETXTLAST)-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDENEWTXT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11863,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDENEWTXT_LONG_IDENEWTXT=*__INTEGER_IDETXTLAST; +if(!qbevent)break;evnt(26307,11864,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free167.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDENEWTXT_LONG_IDENEWTXT; +} +void SUB_IDENOMATCH(int8*_SUB_IDENOMATCH_BYTE_SHOWFLAGS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data168.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("Match not found.",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11868,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDENOMATCH_STRING_C,qbs_new_txt_len(", ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11869,"ide_methods.bas");}while(r); +S_48289:; +if ((*_SUB_IDENOMATCH_BYTE_SHOWFLAGS)||new_error){ +if(qbevent){evnt(26307,11870,"ide_methods.bas");if(r)goto S_48289;} +S_48290:; +if ((*__INTEGER_IDEFINDCASESENS)||new_error){ +if(qbevent){evnt(26307,11871,"ide_methods.bas");if(r)goto S_48290;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_new_txt_len("match case",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11871,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26307,11871,"ide_methods.bas");}while(r); +} +S_48294:; +if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ +if(qbevent){evnt(26307,11872,"ide_methods.bas");if(r)goto S_48294;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("whole word",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11872,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26307,11872,"ide_methods.bas");}while(r); +} +S_48298:; +if ((*__INTEGER_IDEFINDNOCOMMENTS)||new_error){ +if(qbevent){evnt(26307,11873,"ide_methods.bas");if(r)goto S_48298;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("no comments",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11873,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26307,11873,"ide_methods.bas");}while(r); +} +S_48302:; +if ((*__INTEGER_IDEFINDONLYCOMMENTS)||new_error){ +if(qbevent){evnt(26307,11874,"ide_methods.bas");if(r)goto S_48302;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("only comments",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11874,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26307,11874,"ide_methods.bas");}while(r); +} +S_48306:; +if ((*__INTEGER_IDEFINDNOSTRINGS)||new_error){ +if(qbevent){evnt(26307,11875,"ide_methods.bas");if(r)goto S_48306;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("no strings",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11875,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26307,11875,"ide_methods.bas");}while(r); +} +S_48310:; +if ((*__INTEGER_IDEFINDONLYSTRINGS)||new_error){ +if(qbevent){evnt(26307,11876,"ide_methods.bas");if(r)goto S_48310;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("only strings",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11876,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26307,11876,"ide_methods.bas");}while(r); +} +S_48314:; +if ((-(*_SUB_IDENOMATCH_LONG_FLAGSET> 1 ))||new_error){ +if(qbevent){evnt(26307,11877,"ide_methods.bas");if(r)goto S_48314;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_PL,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11877,"ide_methods.bas");}while(r); +} +S_48317:; +if ((*_SUB_IDENOMATCH_LONG_FLAGSET)||new_error){ +if(qbevent){evnt(26307,11878,"ide_methods.bas");if(r)goto S_48317;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_MSG,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("\\n(Flag",7)),_SUB_IDENOMATCH_STRING_PL),qbs_new_txt_len(": ",2)),_SUB_IDENOMATCH_STRING_FLAGS),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11878,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDENOMATCH_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Search complete",15),_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11880,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free168.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEFILEDIALOG(qbs*_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME,int8*_FUNC_IDEFILEDIALOG_BYTE_MODE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data169.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,11884,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,11887,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,11888,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11889,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,11890,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,11891,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4]+1; +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&4){ +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]),0,_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,11892,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,11893,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11894,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING_IDEPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11898,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_FILELIST,FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11899,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATHLIST,FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11900,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,11902,"ide_methods.bas");}while(r); +S_48335:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ +if(qbevent){evnt(26307,11903,"ide_methods.bas");if(r)goto S_48335;} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass5396= 70 ),&(pass5397=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11904,"ide_methods.bas");}while(r); +S_48337:; +}else{ +if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ +if(qbevent){evnt(26307,11905,"ide_methods.bas");if(r)goto S_48337;} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass5398= 70 ),&(pass5399=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Save As",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11906,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11908,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26307,11909,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,11910,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,11911,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); +if(!qbevent)break;evnt(26307,11912,"ide_methods.bas");}while(r); +S_48345:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 ))||new_error){ +if(qbevent){evnt(26307,11913,"ide_methods.bas");if(r)goto S_48345;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME); +if(!qbevent)break;evnt(26307,11914,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,11915,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,11916,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->len; +if(!qbevent)break;evnt(26307,11917,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11920,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,11921,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,11922,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+28))= 32 ; +if(!qbevent)break;evnt(26307,11923,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 14 ; +if(!qbevent)break;evnt(26307,11923,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Files",6)); +if(!qbevent)break;evnt(26307,11924,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_FILELIST); +if(!qbevent)break;evnt(26307,11925,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_FILELIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11925,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11926,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,11927,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 37 ; +if(!qbevent)break;evnt(26307,11928,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,11928,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+28))= 31 ; +if(!qbevent)break;evnt(26307,11929,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 16 ; +if(!qbevent)break;evnt(26307,11929,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Paths",6)); +if(!qbevent)break;evnt(26307,11930,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PATHLIST); +if(!qbevent)break;evnt(26307,11931,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11931,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11932,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,11933,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 37 ; +if(!qbevent)break;evnt(26307,11934,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; +if(!qbevent)break;evnt(26307,11935,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len(".#BAS Only",10)); +if(!qbevent)break;evnt(26307,11936,"ide_methods.bas");}while(r); +S_48373:; +if ((*_FUNC_IDEFILEDIALOG_LONG_ALLFILES)||new_error){ +if(qbevent){evnt(26307,11937,"ide_methods.bas");if(r)goto S_48373;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,11937,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,11937,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,11938,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11939,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,11940,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 56 ; +if(!qbevent)break;evnt(26307,11941,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; +if(!qbevent)break;evnt(26307,11942,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("Ne#w Folder",11)); +if(!qbevent)break;evnt(26307,11943,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,11944,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,11945,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ; +if(!qbevent)break;evnt(26307,11946,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEFILEDIALOG_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,11947,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,11948,"ide_methods.bas");}while(r); +S_48389:; +fornext_value5402= 1 ; +fornext_finalvalue5402= 100 ; +fornext_step5402= 1 ; +if (fornext_step5402<0) fornext_step_negative5402=1; else fornext_step_negative5402=0; +if (new_error) goto fornext_error5402; +goto fornext_entrylabel5402; +while(1){ +fornext_value5402=fornext_step5402+(*_FUNC_IDEFILEDIALOG_LONG_I); +fornext_entrylabel5402: +*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5402; +if (fornext_step_negative5402){ +if (fornext_value5402fornext_finalvalue5402) break; +} +fornext_error5402:; +if(qbevent){evnt(26307,11952,"ide_methods.bas");if(r)goto S_48389;} +do{ +memcpy(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,11952,"ide_methods.bas");}while(r); +fornext_continue_5401:; +} +fornext_exit_5401:; +S_48392:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))&(-(__STRING_IDEOPENFILE->len> 0 ))))||new_error){ +if(qbevent){evnt(26307,11955,"ide_methods.bas");if(r)goto S_48392;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,__STRING_IDEOPENFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11955,"ide_methods.bas");}while(r); +do{ +goto LABEL_DIRECTLOAD; +if(!qbevent)break;evnt(26307,11955,"ide_methods.bas");}while(r); +} +S_48396:; +do{ +if(qbevent){evnt(26307,11957,"ide_methods.bas");if(r)goto S_48396;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,11960,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,11961,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,11961,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,11961,"ide_methods.bas");}while(r); +S_48401:; +fornext_value5406= 1 ; +fornext_finalvalue5406= 100 ; +fornext_step5406= 1 ; +if (fornext_step5406<0) fornext_step_negative5406=1; else fornext_step_negative5406=0; +if (new_error) goto fornext_error5406; +goto fornext_entrylabel5406; +while(1){ +fornext_value5406=fornext_step5406+(*_FUNC_IDEFILEDIALOG_LONG_I); +fornext_entrylabel5406: +*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5406; +if (fornext_step_negative5406){ +if (fornext_value5406fornext_finalvalue5406) break; +} +fornext_error5406:; +if(qbevent){evnt(26307,11962,"ide_methods.bas");if(r)goto S_48401;} +S_48402:; +if ((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,11963,"ide_methods.bas");if(r)goto S_48402;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; +if(!qbevent)break;evnt(26307,11965,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,11966,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,11966,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFILEDIALOG_LONG_F); +if(!qbevent)break;evnt(26307,11967,"ide_methods.bas");}while(r); +S_48407:; +if ((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,11968,"ide_methods.bas");if(r)goto S_48407;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CX=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,11968,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,11968,"ide_methods.bas");}while(r); +} +} +fornext_continue_5405:; +} +fornext_exit_5405:; +do{ +*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS=*_FUNC_IDEFILEDIALOG_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,11971,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,11975,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(4))+ 4 ,qbs_new_txt_len("Path: ",6),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11975,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,_FUNC_IDEFILEDIALOG_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11976,"ide_methods.bas");}while(r); +S_48417:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEFILEDIALOG_STRING_A->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEFILEDIALOG_STRING_A, 1 ),qbs_new_txt_len(":",1)))))||new_error){ +if(qbevent){evnt(26307,11977,"ide_methods.bas");if(r)goto S_48417;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(_FUNC_IDEFILEDIALOG_STRING_A,qbs_new_txt_len("\\",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11977,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_W=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(8))- 8 ; +if(!qbevent)break;evnt(26307,11978,"ide_methods.bas");}while(r); +S_48421:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEDIALOG_STRING_A->len)>(*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))))||new_error){ +if(qbevent){evnt(26307,11979,"ide_methods.bas");if(r)goto S_48421;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11979,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0))+ 2 + 6 ,*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(4))+ 4 ,_FUNC_IDEFILEDIALOG_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,11980,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,11985,"ide_methods.bas");}while(r); +S_48426:; +if ((*_FUNC_IDEFILEDIALOG_LONG_CX)||new_error){ +if(qbevent){evnt(26307,11986,"ide_methods.bas");if(r)goto S_48426;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11986,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEFILEDIALOG_LONG_CY,*_FUNC_IDEFILEDIALOG_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,11986,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,11986,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,11989,"ide_methods.bas");}while(r); +S_48432:; +do{ +if(qbevent){evnt(26307,11990,"ide_methods.bas");if(r)goto S_48432;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,11991,"ide_methods.bas");}while(r); +S_48434:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,11992,"ide_methods.bas");if(r)goto S_48434;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11992,"ide_methods.bas");}while(r); +} +S_48437:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,11993,"ide_methods.bas");if(r)goto S_48437;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11993,"ide_methods.bas");}while(r); +} +S_48440:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,11994,"ide_methods.bas");if(r)goto S_48440;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,11994,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11994,"ide_methods.bas");}while(r); +} +S_48444:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,11995,"ide_methods.bas");if(r)goto S_48444;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,11995,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11995,"ide_methods.bas");}while(r); +} +S_48448:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,11996,"ide_methods.bas");if(r)goto S_48448;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11996,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,11997,"ide_methods.bas");}while(r); +S_48452:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_ALT!=*_FUNC_IDEFILEDIALOG_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,11997,"ide_methods.bas");if(r)goto S_48452;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,11997,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_OLDALT=*_FUNC_IDEFILEDIALOG_LONG_ALT; +if(!qbevent)break;evnt(26307,11998,"ide_methods.bas");}while(r); +S_48456:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ +if(qbevent){evnt(26307,12000,"ide_methods.bas");if(r)goto S_48456;} +S_48457:; +if ((-(func__totaldroppedfiles()> 0 ))||new_error){ +if(qbevent){evnt(26307,12001,"ide_methods.bas");if(r)goto S_48457;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),func__droppedfile( 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12002,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,12003,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,12004,"ide_methods.bas");}while(r); +do{ +sub__finishdrop(); +if(!qbevent)break;evnt(26307,12005,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,12006,"ide_methods.bas");}while(r); +} +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,12010,"ide_methods.bas");}while(r); +S_48466:; +dl_continue_5409:; +}while((!(*_FUNC_IDEFILEDIALOG_LONG_CHANGE))&&(!new_error)); +dl_exit_5409:; +if(qbevent){evnt(26307,12011,"ide_methods.bas");if(r)goto S_48466;} +S_48467:; +if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,12012,"ide_methods.bas");if(r)goto S_48467;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,12012,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,12012,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12014,"ide_methods.bas");}while(r); +S_48473:; +if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,12015,"ide_methods.bas");if(r)goto S_48473;} +S_48474:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,12016,"ide_methods.bas");if(r)goto S_48474;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12017,"ide_methods.bas");}while(r); +S_48476:; +if (((-(*_FUNC_IDEFILEDIALOG_LONG_K>= 65 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,12018,"ide_methods.bas");if(r)goto S_48476;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,func_chr(*_FUNC_IDEFILEDIALOG_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12018,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,12021,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,12021,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,12021,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,12025,"ide_methods.bas");}while(r); +S_48485:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,12026,"ide_methods.bas");if(r)goto S_48485;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12026,"ide_methods.bas");}while(r); +} +S_48488:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,12027,"ide_methods.bas");if(r)goto S_48488;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,12027,"ide_methods.bas");}while(r); +} +S_48491:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,12028,"ide_methods.bas");if(r)goto S_48491;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,12028,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12028,"ide_methods.bas");}while(r); +} +S_48495:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,12029,"ide_methods.bas");if(r)goto S_48495;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,12029,"ide_methods.bas");}while(r); +} +S_48498:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS>*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,12030,"ide_methods.bas");if(r)goto S_48498;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,12030,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,12031,"ide_methods.bas");}while(r); +S_48502:; +fornext_value5413= 1 ; +fornext_finalvalue5413= 100 ; +fornext_step5413= 1 ; +if (fornext_step5413<0) fornext_step_negative5413=1; else fornext_step_negative5413=0; +if (new_error) goto fornext_error5413; +goto fornext_entrylabel5413; +while(1){ +fornext_value5413=fornext_step5413+(*_FUNC_IDEFILEDIALOG_LONG_I); +fornext_entrylabel5413: +*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5413; +if (fornext_step_negative5413){ +if (fornext_value5413fornext_finalvalue5413) break; +} +fornext_error5413:; +if(qbevent){evnt(26307,12032,"ide_methods.bas");if(r)goto S_48502;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_T=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,12033,"ide_methods.bas");}while(r); +S_48504:; +if ((*_FUNC_IDEFILEDIALOG_LONG_T)||new_error){ +if(qbevent){evnt(26307,12034,"ide_methods.bas");if(r)goto S_48504;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; +if(!qbevent)break;evnt(26307,12035,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFILEDIALOG_LONG_FOCUS,_FUNC_IDEFILEDIALOG_LONG_F,_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN,_FUNC_IDEFILEDIALOG_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFILEDIALOG_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12036,"ide_methods.bas");}while(r); +} +fornext_continue_5412:; +} +fornext_exit_5412:; +S_48509:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS!=*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26307,12051,"ide_methods.bas");if(r)goto S_48509;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS; +if(!qbevent)break;evnt(26307,12053,"ide_methods.bas");}while(r); +S_48511:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26307,12054,"ide_methods.bas");if(r)goto S_48511;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,12055,"ide_methods.bas");}while(r); +S_48513:; +if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,12056,"ide_methods.bas");if(r)goto S_48513;} +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,12056,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,12057,"ide_methods.bas");}while(r); +} +} +S_48519:; +if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY))||new_error){ +if(qbevent){evnt(26307,12061,"ide_methods.bas");if(r)goto S_48519;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,12062,"ide_methods.bas");}while(r); +S_48521:; +if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26307,12063,"ide_methods.bas");if(r)goto S_48521;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 1 ; +if(!qbevent)break;evnt(26307,12063,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; +if(!qbevent)break;evnt(26307,12063,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12064,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12065,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12066,"ide_methods.bas");}while(r); +} +S_48530:; +if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))||new_error){ +if(qbevent){evnt(26307,12069,"ide_methods.bas");if(r)goto S_48530;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_IDENEWFOLDER(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12071,"ide_methods.bas");}while(r); +S_48532:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len))||new_error){ +if(qbevent){evnt(26307,12072,"ide_methods.bas");if(r)goto S_48532;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,FUNC_REMOVEDOUBLESLASHES(_FUNC_IDEFILEDIALOG_STRING_NEWPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12073,"ide_methods.bas");}while(r); +do{ +goto LABEL_CHANGEPATH; +if(!qbevent)break;evnt(26307,12074,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12076,"ide_methods.bas");}while(r); +} +} +S_48539:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,12080,"ide_methods.bas");if(r)goto S_48539;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12081,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12082,"ide_methods.bas");}while(r); +} +S_48543:; +if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 2 ))&(-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVFILEBOXSEL)))||new_error){ +if(qbevent){evnt(26307,12085,"ide_methods.bas");if(r)goto S_48543;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVFILEBOXSEL=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,12086,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12087,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= 0 ; +if(!qbevent)break;evnt(26307,12088,"ide_methods.bas");}while(r); +} +S_48548:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 3 ))||new_error){ +if(qbevent){evnt(26307,12091,"ide_methods.bas");if(r)goto S_48548;} +S_48549:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))))&(-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))>= 1 ))))||new_error){ +if(qbevent){evnt(26307,12092,"ide_methods.bas");if(r)goto S_48549;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_REMOVEDOUBLESLASHES(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12093,"ide_methods.bas");}while(r); +S_48551:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,12094,"ide_methods.bas");if(r)goto S_48551;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("..",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12095,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,_FUNC_IDEFILEDIALOG_STRING_NEWPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12096,"ide_methods.bas");}while(r); +do{ +goto LABEL_CHANGEPATH; +if(!qbevent)break;evnt(26307,12097,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZCHANGEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_NEWPATH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12099,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12100,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12101,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12103,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,12104,"ide_methods.bas");}while(r); +S_48561:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))||new_error){ +if(qbevent){evnt(26307,12105,"ide_methods.bas");if(r)goto S_48561;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12105,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12106,"ide_methods.bas");}while(r); +} +} +} +S_48568:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 2 ))))|(((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,12112,"ide_methods.bas");if(r)goto S_48568;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12113,"ide_methods.bas");}while(r); +S_48570:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDEFILEDIALOG_STRING_F)))||new_error){ +if(qbevent){evnt(26307,12115,"ide_methods.bas");if(r)goto S_48570;} +do{ +goto LABEL_DIRECTLOAD; +if(!qbevent)break;evnt(26307,12115,"ide_methods.bas");}while(r); +} +S_48573:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("",0)))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ +if(qbevent){evnt(26307,12117,"ide_methods.bas");if(r)goto S_48573;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12119,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12120,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12121,"ide_methods.bas");}while(r); +S_48577:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("",0)))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))){ +if(qbevent){evnt(26307,12122,"ide_methods.bas");if(r)goto S_48577;} +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12123,"ide_methods.bas");}while(r); +} +} +LABEL_CHANGEPATH:; +if(qbevent){evnt(26307,12127,"ide_methods.bas");r=0;} +S_48580:; +if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))))||new_error){ +if(qbevent){evnt(26307,12128,"ide_methods.bas");if(r)goto S_48580;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,__STRING1_IDEPATHSEP)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12130,"ide_methods.bas");}while(r); +S_48582:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,12131,"ide_methods.bas");if(r)goto S_48582;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12131,"ide_methods.bas");}while(r); +} +S_48585:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len== 0 )))||new_error){ +if(qbevent){evnt(26307,12133,"ide_methods.bas");if(r)goto S_48585;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12134,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,12135,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12137,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12139,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12140,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12141,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12142,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12143,"ide_methods.bas");}while(r); +} +S_48597:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("?",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("*",1),0)> 0 ))))||new_error){ +if(qbevent){evnt(26307,12147,"ide_methods.bas");if(r)goto S_48597;} +S_48598:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("/",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("\\",1),0)> 0 ))))||new_error){ +if(qbevent){evnt(26307,12148,"ide_methods.bas");if(r)goto S_48598;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12150,"ide_methods.bas");}while(r); +S_48600:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,12151,"ide_methods.bas");if(r)goto S_48600;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12151,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12152,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12153,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEFILEDIALOG_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12155,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,&(pass5417= 2 ),_FUNC_IDEFILEDIALOG_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12156,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26307,12157,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,12158,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,12159,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,12160,"ide_methods.bas");}while(r); +S_48612:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEFILEDIALOG_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))||new_error){ +if(qbevent){evnt(26307,12161,"ide_methods.bas");if(r)goto S_48612;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; +if(!qbevent)break;evnt(26307,12162,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,12163,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,12164,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12166,"ide_methods.bas");}while(r); +} +LABEL_DIRECTLOAD:; +if(qbevent){evnt(26307,12169,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12170,"ide_methods.bas");}while(r); +S_48620:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26307,12171,"ide_methods.bas");if(r)goto S_48620;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12171,"ide_methods.bas");}while(r); +} +S_48623:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ +if(qbevent){evnt(26307,12173,"ide_methods.bas");if(r)goto S_48623;} +S_48624:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26307,12174,"ide_methods.bas");if(r)goto S_48624;} +S_48625:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEFILEDIALOG_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_IDEFILEDIALOG_LONG_ALLFILES== 0 ))))||new_error){ +if(qbevent){evnt(26307,12176,"ide_methods.bas");if(r)goto S_48625;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len(".bas",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12176,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEERROR= 2 ; +if(!qbevent)break;evnt(26307,12180,"ide_methods.bas");}while(r); +S_48630:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26307,12181,"ide_methods.bas");if(r)goto S_48630;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12181,"ide_methods.bas");}while(r); +} +S_48633:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDEFILEDIALOG_STRING_F)> 0 )))||new_error){ +if(qbevent){evnt(26307,12183,"ide_methods.bas");if(r)goto S_48633;} +S_48634:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEOPENFILE->len))||new_error){ +if(qbevent){evnt(26307,12184,"ide_methods.bas");if(r)goto S_48634;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12185,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12186,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,12188,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26307,12188,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEERROR= 3 ; +if(!qbevent)break;evnt(26307,12193,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEL= 1 ; +if(!qbevent)break;evnt(26307,12194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI= 1 ; +if(!qbevent)break;evnt(26307,12194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26307,12194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26307,12194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26307,12195,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26307,12196,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,12197,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26307,12198,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,12199,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26307,12200,"ide_methods.bas");}while(r); +do{ +SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12201,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12202,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I2= 1 ; +if(!qbevent)break;evnt(26307,12203,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_N= 0 ; +if(!qbevent)break;evnt(26307,12204,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHRTAB,func_chr( 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12205,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE1,qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12206,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE2,qbs_new_txt_len(" ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12206,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE3,qbs_new_txt_len(" ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12206,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE4,qbs_new_txt_len(" ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12206,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR7,func_chr( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR11,func_chr( 11 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR12,func_chr( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR28,func_chr( 28 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR29,func_chr( 29 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR30,func_chr( 30 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR31,func_chr( 31 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12207,"ide_methods.bas");}while(r); +S_48670:; +do{ +if(qbevent){evnt(26307,12208,"ide_methods.bas");if(r)goto S_48670;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12209,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=_FUNC_IDEFILEDIALOG_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12210,"ide_methods.bas");}while(r); +S_48673:; +if ((*_FUNC_IDEFILEDIALOG_LONG_L)||new_error){ +if(qbevent){evnt(26307,12211,"ide_methods.bas");if(r)goto S_48673;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ASCA=qbs_asc(_FUNC_IDEFILEDIALOG_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12211,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFILEDIALOG_LONG_ASCA= -1 ; +if(!qbevent)break;evnt(26307,12211,"ide_methods.bas");}while(r); +} +S_48678:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= 13 ))||new_error){ +if(qbevent){evnt(26307,12212,"ide_methods.bas");if(r)goto S_48678;} +S_48679:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= -1 ))||new_error){ +if(qbevent){evnt(26307,12213,"ide_methods.bas");if(r)goto S_48679;} +LABEL_IDEOPENFIXTABS:; +if(qbevent){evnt(26307,12215,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_X=func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_A,_FUNC_IDEFILEDIALOG_STRING_CHRTAB,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12216,"ide_methods.bas");}while(r); +S_48681:; +if ((*_FUNC_IDEFILEDIALOG_LONG_X)||new_error){ +if(qbevent){evnt(26307,12217,"ide_methods.bas");if(r)goto S_48681;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_X2=(*_FUNC_IDEFILEDIALOG_LONG_X- 1 )% 4 ; +if(!qbevent)break;evnt(26307,12218,"ide_methods.bas");}while(r); +S_48683:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 0 ))||new_error){ +if(qbevent){evnt(26307,12219,"ide_methods.bas");if(r)goto S_48683;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE4),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12219,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 3 ; +if(!qbevent)break;evnt(26307,12219,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26307,12219,"ide_methods.bas");}while(r); +} +S_48688:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 1 ))||new_error){ +if(qbevent){evnt(26307,12220,"ide_methods.bas");if(r)goto S_48688;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE3),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12220,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 2 ; +if(!qbevent)break;evnt(26307,12220,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26307,12220,"ide_methods.bas");}while(r); +} +S_48693:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 2 ))||new_error){ +if(qbevent){evnt(26307,12221,"ide_methods.bas");if(r)goto S_48693;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE2),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12221,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 1 ; +if(!qbevent)break;evnt(26307,12221,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26307,12221,"ide_methods.bas");}while(r); +} +S_48698:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 3 ))||new_error){ +if(qbevent){evnt(26307,12222,"ide_methods.bas");if(r)goto S_48698;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE1),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12222,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26307,12222,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_mid(__STRING_IDET,*_FUNC_IDEFILEDIALOG_LONG_I2,*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDEFILEDIALOG_LONG_L),_FUNC_IDEFILEDIALOG_STRING_A),l2string(*_FUNC_IDEFILEDIALOG_LONG_L)),1); +if(!qbevent)break;evnt(26307,12225,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I2=*_FUNC_IDEFILEDIALOG_LONG_I2+*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ; +if(!qbevent)break;evnt(26307,12225,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_N=*_FUNC_IDEFILEDIALOG_LONG_N+ 1 ; +if(!qbevent)break;evnt(26307,12225,"ide_methods.bas");}while(r); +} +S_48708:; +dl_continue_5421:; +}while((!(-(*_FUNC_IDEFILEDIALOG_LONG_ASCA== 13 )))&&(!new_error)); +dl_exit_5421:; +if(qbevent){evnt(26307,12227,"ide_methods.bas");if(r)goto S_48708;} +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12228,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*_FUNC_IDEFILEDIALOG_LONG_N; +if(!qbevent)break;evnt(26307,12229,"ide_methods.bas");}while(r); +S_48711:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(26307,12229,"ide_methods.bas");if(r)goto S_48711;} +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12229,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26307,12229,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDEFILEDIALOG_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12229,"ide_methods.bas");}while(r); +} +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),0,__ARRAY_BYTE_IDEBREAKPOINTS[5]*1); +}else{ +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1,1); +if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); +} +__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; +} +if(!qbevent)break;evnt(26307,12230,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(*__LONG_IDEN)-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(__ARRAY_BYTE_IDESKIPLINES[5]*1); +memset((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),0,__ARRAY_BYTE_IDESKIPLINES[5]*1); +}else{ +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc(__ARRAY_BYTE_IDESKIPLINES[5]*1,1); +if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); +} +__ARRAY_BYTE_IDESKIPLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,12231,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12232,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12233,"ide_methods.bas");}while(r); +do{ + +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8])->id=(++mem_lock_id); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +}else{ +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +} +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]= 0 ; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=( 1000 )-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]+1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=1; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)malloc(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]*960/8+1); +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]) error(257); +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]|=1; +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--){ +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); +*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} +} +if(!qbevent)break;evnt(26307,12233,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12234,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12235,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26307,12235,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26307,12237,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEFILEDIALOG_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12238,"ide_methods.bas");}while(r); +do{ +sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12238,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12239,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPATH,_FUNC_IDEFILEDIALOG_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12240,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12241,"ide_methods.bas");}while(r); +do{ +SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12242,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12243,"ide_methods.bas");}while(r); +S_48733:; +}else{ +if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ +if(qbevent){evnt(26307,12244,"ide_methods.bas");if(r)goto S_48733;} +S_48734:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDEFILEDIALOG_STRING_F)== 0 )))||new_error){ +if(qbevent){evnt(26307,12245,"ide_methods.bas");if(r)goto S_48734;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len(".bas",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12245,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 3 ; +if(!qbevent)break;evnt(26307,12247,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12248,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26307,12249,"ide_methods.bas");}while(r); +S_48740:; +if ((func_lof( 150 ))||new_error){ +if(qbevent){evnt(26307,12250,"ide_methods.bas");if(r)goto S_48740;} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26307,12251,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,FUNC_IDEFILEEXISTS(_FUNC_IDEFILEDIALOG_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12252,"ide_methods.bas");}while(r); +S_48743:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFILEDIALOG_STRING_A,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(26307,12253,"ide_methods.bas");if(r)goto S_48743;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12254,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12255,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26307,12258,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEFILEDIALOG_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12260,"ide_methods.bas");}while(r); +do{ +sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12260,"ide_methods.bas");}while(r); +do{ +SUB_IDESAVE(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12261,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPATH,_FUNC_IDEFILEDIALOG_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12262,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12263,"ide_methods.bas");}while(r); +do{ +SUB_IDESAVEBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12264,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12265,"ide_methods.bas");}while(r); +} +} +} +LABEL_IDEOPENLOOP:; +if(qbevent){evnt(26307,12269,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,12272,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,12273,"ide_methods.bas");}while(r); +dl_continue_5404:; +}while(1); +dl_exit_5404:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free169.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG);return _FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG; +} +void SUB_IDEPAR(void*_SUB_IDEPAR_UDT_PAR,int32*_SUB_IDEPAR_LONG_W,int32*_SUB_IDEPAR_LONG_H,qbs*_SUB_IDEPAR_STRING_TITLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data170.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(0))=((*__LONG_IDEWX/ 2 ))-(*_SUB_IDEPAR_LONG_W/ 2 ); +if(!qbevent)break;evnt(26307,12278,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(4))=(((*__LONG_IDEWY+*__LONG_IDESUBWINDOW)/ 2 ))-(*_SUB_IDEPAR_LONG_H/ 2 ); +if(!qbevent)break;evnt(26307,12279,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(8))=*_SUB_IDEPAR_LONG_W; +if(!qbevent)break;evnt(26307,12280,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(12))=*_SUB_IDEPAR_LONG_H; +if(!qbevent)break;evnt(26307,12281,"ide_methods.bas");}while(r); +S_48766:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEPAR_STRING_TITLE->len))||new_error){ +if(qbevent){evnt(26307,12282,"ide_methods.bas");if(r)goto S_48766;} +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(16))=FUNC_IDENEWTXT(_SUB_IDEPAR_STRING_TITLE); +if(!qbevent)break;evnt(26307,12282,"ide_methods.bas");}while(r); +} +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26307,12283,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free170.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDERESTORE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data171.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,12287,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,12288,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,12289,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,12290,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERESTORE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Backup found",12),qbs_new_txt_len("Recover program from auto-saved backup?",39),qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12291,"ide_methods.bas");}while(r); +S_48775:; +if ((-(*_FUNC_IDERESTORE_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,12292,"ide_methods.bas");if(r)goto S_48775;} +do{ +qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12292,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12292,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free171.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDERESTORE_STRING_IDERESTORE);return _FUNC_IDERESTORE_STRING_IDERESTORE; +} +qbs* FUNC_IDECLEARHISTORY(qbs*_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data172.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48780:; +if(qbevent){evnt(26307,12296,"ide_methods.bas");if(r)goto S_48780;} +S_48781:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("SEARCH",6))))||new_error){ +if(qbevent){evnt(26307,12297,"ide_methods.bas");if(r)goto S_48781;} +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_T,qbs_new_txt_len("Clear search history",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12297,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("This cannot be undone. Proceed?",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12297,"ide_methods.bas");}while(r); +sc_ec_326_end:; +goto sc_5426_end; +} +S_48784:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("FILES",5))))||new_error){ +if(qbevent){evnt(26307,12298,"ide_methods.bas");if(r)goto S_48784;} +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_T,qbs_new_txt_len("Clear recent files",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12298,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("This cannot be undone. Proceed?",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12298,"ide_methods.bas");}while(r); +sc_ec_327_end:; +goto sc_5426_end; +} +sc_5426_end:; +do{ +*_FUNC_IDECLEARHISTORY_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDECLEARHISTORY_STRING_T,_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12300,"ide_methods.bas");}while(r); +S_48789:; +if ((-(*_FUNC_IDECLEARHISTORY_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,12301,"ide_methods.bas");if(r)goto S_48789;} +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12301,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12301,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free172.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY);return _FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY; +} +void SUB_IDESAVE(qbs*_SUB_IDESAVE_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data173.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_IDEERROR= 6 ; +if(!qbevent)break;evnt(26307,12305,"ide_methods.bas");}while(r); +do{ +sub_open(_SUB_IDESAVE_STRING_F, 4 ,NULL,NULL, 151 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12306,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26307,12307,"ide_methods.bas");}while(r); +S_48797:; +fornext_value5429= 1 ; +fornext_finalvalue5429=*__LONG_IDEN; +fornext_step5429= 1 ; +if (fornext_step5429<0) fornext_step_negative5429=1; else fornext_step_negative5429=0; +if (new_error) goto fornext_error5429; +goto fornext_entrylabel5429; +while(1){ +fornext_value5429=fornext_step5429+(*_SUB_IDESAVE_LONG_I); +fornext_entrylabel5429: +*_SUB_IDESAVE_LONG_I=fornext_value5429; +if (fornext_step_negative5429){ +if (fornext_value5429fornext_finalvalue5429) break; +} +fornext_error5429:; +if(qbevent){evnt(26307,12308,"ide_methods.bas");if(r)goto S_48797;} +do{ +qbs_set(_SUB_IDESAVE_STRING_A,FUNC_IDEGETLINE(_SUB_IDESAVE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12309,"ide_methods.bas");}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 151 ; +if (new_error) goto skip5430; +sub_file_print(tmp_fileno,_SUB_IDESAVE_STRING_A, 0 , 0 , 1 ); +if (new_error) goto skip5430; +skip5430: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26307,12310,"ide_methods.bas");}while(r); +fornext_continue_5428:; +} +fornext_exit_5428:; +do{ +sub_close( 151 ,1); +if(!qbevent)break;evnt(26307,12312,"ide_methods.bas");}while(r); +do{ +SUB_IDESAVEBOOKMARKS(_SUB_IDESAVE_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12313,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= 0 ; +if(!qbevent)break;evnt(26307,12314,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free173.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDESAVENOW(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data174.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_M,qbs_new_txt_len("Program is not saved. Save it now?",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12318,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESAVENOW_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("",0),_FUNC_IDESAVENOW_STRING_M,qbs_new_txt_len("#Yes;#No;#Cancel",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12319,"ide_methods.bas");}while(r); +S_48806:; +if(qbevent){evnt(26307,12320,"ide_methods.bas");if(r)goto S_48806;} +S_48807:; +if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 1 )))||new_error){ +if(qbevent){evnt(26307,12321,"ide_methods.bas");if(r)goto S_48807;} +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12321,"ide_methods.bas");}while(r); +sc_ec_328_end:; +goto sc_5431_end; +} +S_48809:; +if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 2 )))||new_error){ +if(qbevent){evnt(26307,12322,"ide_methods.bas");if(r)goto S_48809;} +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12322,"ide_methods.bas");}while(r); +sc_ec_329_end:; +goto sc_5431_end; +} +S_48811:; +if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 0 ))||(*_FUNC_IDESAVENOW_LONG_RESULT==( 3 )))||new_error){ +if(qbevent){evnt(26307,12323,"ide_methods.bas");if(r)goto S_48811;} +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12323,"ide_methods.bas");}while(r); +sc_ec_330_end:; +goto sc_5431_end; +} +sc_5431_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free174.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDESAVENOW_STRING_IDESAVENOW);return _FUNC_IDESAVENOW_STRING_IDESAVENOW; +} +void SUB_IDESETLINE(int32*_SUB_IDESETLINE_LONG_I,qbs*_SUB_IDESETLINE_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data175.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDESETLINE_STRING_TEXT,qbs_rtrim(_SUB_IDESETLINE_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12329,"ide_methods.bas");}while(r); +S_48815:; +if ((-(*_SUB_IDESETLINE_LONG_I!= -1 ))||new_error){ +if(qbevent){evnt(26307,12331,"ide_methods.bas");if(r)goto S_48815;} +do{ +SUB_IDEGOTOLINE(_SUB_IDESETLINE_LONG_I); +if(!qbevent)break;evnt(26307,12331,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESETLINE_LONG_TEXTLEN=_SUB_IDESETLINE_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12332,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),_SUB_IDESETLINE_STRING_TEXT),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 -string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,1))- 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12333,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free175.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +float FUNC_TIMEELAPSEDSINCE(float*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data176.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48820:; +if ((-(((float)(*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME))>((float)(func_timer(NULL,0)))))||new_error){ +if(qbevent){evnt(26307,12338,"ide_methods.bas");if(r)goto S_48820;} +do{ +*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME=*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME- 86400 ; +if(!qbevent)break;evnt(26307,12338,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE=func_timer(NULL,0)-*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME; +if(!qbevent)break;evnt(26307,12339,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free176.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE; +} +void SUB_IDESHOWTEXT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data177.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48824:; +if ((-(*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE== 0 ))||new_error){ +if(qbevent){evnt(26307,12344,"ide_methods.bas");if(r)goto S_48824;} +do{ +sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12345,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); +if(!qbevent)break;evnt(26307,12346,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12347,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26307,12348,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12349,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12350,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12351,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12352,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12353,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12354,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,12355,"ide_methods.bas");}while(r); +} +do{ +*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE= 0 ; +if(!qbevent)break;evnt(26307,12357,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*()'",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12359,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR,qbs_new_txt_len("0123456789-.&",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12360,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR,qbs_new_txt_len("0123456789EDed+-.`%&!#~HBOhboACFacf",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12361,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,12363,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,12365,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,12366,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_SINGLE_STARTTIME=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,12368,"ide_methods.bas");}while(r); +S_48845:; +if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ +if(qbevent){evnt(26307,12370,"ide_methods.bas");if(r)goto S_48845;} +S_48846:; +if ((-(*__LONG_IDEFOCUSLINE!= 0 ))||new_error){ +if(qbevent){evnt(26307,12371,"ide_methods.bas");if(r)goto S_48846;} +S_48847:; +if ((*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26307,12375,"ide_methods.bas");if(r)goto S_48847;} +do{ +*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; +if(!qbevent)break;evnt(26307,12375,"ide_methods.bas");}while(r); +} +S_48850:; +if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ +if(qbevent){evnt(26307,12376,"ide_methods.bas");if(r)goto S_48850;} +do{ +*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= -1 ; +if(!qbevent)break;evnt(26307,12377,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12378,"ide_methods.bas");}while(r); +S_48853:; +fornext_value5436= 1 ; +fornext_finalvalue5436=*__LONG_IDEN; +fornext_step5436= 1 ; +if (fornext_step5436<0) fornext_step_negative5436=1; else fornext_step_negative5436=0; +if (new_error) goto fornext_error5436; +goto fornext_entrylabel5436; +while(1){ +fornext_value5436=fornext_step5436+(*_SUB_IDESHOWTEXT_LONG_Y); +fornext_entrylabel5436: +*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5436; +if (fornext_step_negative5436){ +if (fornext_value5436fornext_finalvalue5436) break; +} +fornext_error5436:; +if(qbevent){evnt(26307,12379,"ide_methods.bas");if(r)goto S_48853;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ucase(qbs__trim(FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_Y)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12380,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SF= 0 ; +if(!qbevent)break;evnt(26307,12381,"ide_methods.bas");}while(r); +S_48856:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ +if(qbevent){evnt(26307,12382,"ide_methods.bas");if(r)goto S_48856;} +do{ +*_SUB_IDESHOWTEXT_LONG_SF= 1 ; +if(!qbevent)break;evnt(26307,12382,"ide_methods.bas");}while(r); +} +S_48859:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ +if(qbevent){evnt(26307,12383,"ide_methods.bas");if(r)goto S_48859;} +do{ +*_SUB_IDESHOWTEXT_LONG_SF= 2 ; +if(!qbevent)break;evnt(26307,12383,"ide_methods.bas");}while(r); +} +S_48862:; +if ((*_SUB_IDESHOWTEXT_LONG_SF)||new_error){ +if(qbevent){evnt(26307,12384,"ide_methods.bas");if(r)goto S_48862;} +S_48863:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ +if(qbevent){evnt(26307,12385,"ide_methods.bas");if(r)goto S_48863;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,_SUB_IDESHOWTEXT_STRING_A->len- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12386,"ide_methods.bas");}while(r); +} +S_48866:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(26307,12389,"ide_methods.bas");if(r)goto S_48866;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12390,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 10 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12392,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDESHOWTEXT_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12395,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12396,"ide_methods.bas");}while(r); +S_48873:; +if ((*_SUB_IDESHOWTEXT_LONG_X)||new_error){ +if(qbevent){evnt(26307,12397,"ide_methods.bas");if(r)goto S_48873;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12398,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_CLEANSUBNAME(_SUB_IDESHOWTEXT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12400,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_A)),qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12402,"ide_methods.bas");}while(r); +} +fornext_continue_5435:; +} +fornext_exit_5435:; +} +}else{ +do{ +*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; +if(!qbevent)break;evnt(26307,12407,"ide_methods.bas");}while(r); +} +S_48885:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS)))||new_error){ +if(qbevent){evnt(26307,12410,"ide_methods.bas");if(r)goto S_48885;} +S_48886:; +if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ +if(qbevent){evnt(26307,12411,"ide_methods.bas");if(r)goto S_48886;} +S_48887:; +do{ +if(qbevent){evnt(26307,12412,"ide_methods.bas");if(r)goto S_48887;} +do{ +*_SUB_IDESHOWTEXT_LONG_ATSIGN=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12413,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_NEXTAT=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12414,"ide_methods.bas");}while(r); +S_48890:; +if ((-(*_SUB_IDESHOWTEXT_LONG_NEXTAT== 0 ))||new_error){ +if(qbevent){evnt(26307,12415,"ide_methods.bas");if(r)goto S_48890;} +do{ +goto dl_exit_5438; +if(!qbevent)break;evnt(26307,12415,"ide_methods.bas");}while(r); +} +S_48893:; +if ((-(*_SUB_IDESHOWTEXT_LONG_ATSIGN>*__LONG_CUSTOMKEYWORDSLENGTH))||new_error){ +if(qbevent){evnt(26307,12416,"ide_methods.bas");if(r)goto S_48893;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,FUNC_REMOVESYMBOL2(func_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12417,"ide_methods.bas");}while(r); +S_48895:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len))||new_error){ +if(qbevent){evnt(26307,12418,"ide_methods.bas");if(r)goto S_48895;} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; +if(!qbevent)break;evnt(26307,12419,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 128 ; +if(!qbevent)break;evnt(26307,12420,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES1=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12421,"ide_methods.bas");}while(r); +S_48899:; +if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES1!= 0 ))||new_error){ +if(qbevent){evnt(26307,12422,"ide_methods.bas");if(r)goto S_48899;} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES1= 1 ; +if(!qbevent)break;evnt(26307,12422,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; +if(!qbevent)break;evnt(26307,12423,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 64 ; +if(!qbevent)break;evnt(26307,12424,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES2=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12425,"ide_methods.bas");}while(r); +S_48905:; +if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES2!= 0 ))||new_error){ +if(qbevent){evnt(26307,12426,"ide_methods.bas");if(r)goto S_48905;} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES2= 1 ; +if(!qbevent)break;evnt(26307,12426,"ide_methods.bas");}while(r); +} +S_48908:; +if ((-((*_SUB_IDESHOWTEXT_LONG_HASHRES1+*_SUB_IDESHOWTEXT_LONG_HASHRES2)==( 0 )))||new_error){ +if(qbevent){evnt(26307,12427,"ide_methods.bas");if(r)goto S_48908;} +do{ +sub_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,func_string(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len,(qbs_new_txt_len("@",1)->chr[0])),1); +if(!qbevent)break;evnt(26307,12429,"ide_methods.bas");}while(r); +} +} +} +dl_continue_5438:; +}while(1); +dl_exit_5438:; +} +S_48915:; +fornext_value5442= 1 ; +fornext_finalvalue5442=__STRING_LISTOFCUSTOMKEYWORDS->len; +fornext_step5442= 1 ; +if (fornext_step5442<0) fornext_step_negative5442=1; else fornext_step_negative5442=0; +if (new_error) goto fornext_error5442; +goto fornext_entrylabel5442; +while(1){ +fornext_value5442=fornext_step5442+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5442: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5442; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5442){ +if (fornext_value5442fornext_finalvalue5442) break; +} +fornext_error5442:; +if(qbevent){evnt(26307,12436,"ide_methods.bas");if(r)goto S_48915;} +do{ +*_SUB_IDESHOWTEXT_LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12437,"ide_methods.bas");}while(r); +S_48917:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR== 64 ))||new_error){ +if(qbevent){evnt(26307,12438,"ide_methods.bas");if(r)goto S_48917;} +S_48918:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ +if(qbevent){evnt(26307,12439,"ide_methods.bas");if(r)goto S_48918;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12439,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,func_chr(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12441,"ide_methods.bas");}while(r); +} +fornext_continue_5441:; +} +fornext_exit_5441:; +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,_SUB_IDESHOWTEXT_STRING_TEMPLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12444,"ide_methods.bas");}while(r); +S_48926:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0)))||new_error){ +if(qbevent){evnt(26307,12446,"ide_methods.bas");if(r)goto S_48926;} +do{ +*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12447,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_LISTOFCUSTOMKEYWORDS->len-*_SUB_IDESHOWTEXT_LONG_X+ 1 -__STRING_FIX046->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12448,"ide_methods.bas");}while(r); +dl_continue_5444:; +} +dl_exit_5444:; +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12451,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_CC= -1 ; +if(!qbevent)break;evnt(26307,12456,"ide_methods.bas");}while(r); +S_48934:; +if ((-(*__LONG_IDECX<*__LONG_IDESX))||new_error){ +if(qbevent){evnt(26307,12458,"ide_methods.bas");if(r)goto S_48934;} +do{ +*__LONG_IDESX=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,12458,"ide_methods.bas");}while(r); +} +S_48937:; +if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ +if(qbevent){evnt(26307,12459,"ide_methods.bas");if(r)goto S_48937;} +do{ +*__LONG_IDESY=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,12459,"ide_methods.bas");}while(r); +} +S_48940:; +if ((-(((*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-*__LONG_IDESX)>=((*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26307,12460,"ide_methods.bas");if(r)goto S_48940;} +do{ +*__LONG_IDESX=(*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-(*__LONG_IDEWX- 3 ); +if(!qbevent)break;evnt(26307,12460,"ide_methods.bas");}while(r); +} +S_48943:; +if ((-((*__LONG_IDECY-*__LONG_IDESY)>=((*__LONG_IDEWY- 8 ))))||new_error){ +if(qbevent){evnt(26307,12461,"ide_methods.bas");if(r)goto S_48943;} +do{ +*__LONG_IDESY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26307,12461,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26307,12463,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,12464,"ide_methods.bas");}while(r); +S_48948:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SY1>*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26307,12465,"ide_methods.bas");if(r)goto S_48948;} +do{ +swap_32(&*_SUB_IDESHOWTEXT_LONG_SY1,&*_SUB_IDESHOWTEXT_LONG_SY2); +if(!qbevent)break;evnt(26307,12465,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,12466,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,12467,"ide_methods.bas");}while(r); +S_48953:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SX1>*_SUB_IDESHOWTEXT_LONG_SX2))||new_error){ +if(qbevent){evnt(26307,12468,"ide_methods.bas");if(r)goto S_48953;} +do{ +swap_32(&*_SUB_IDESHOWTEXT_LONG_SX1,&*_SUB_IDESHOWTEXT_LONG_SX2); +if(!qbevent)break;evnt(26307,12468,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,12470,"ide_methods.bas");}while(r); +do{ +*__BYTE_ENTERINGRGB= 0 ; +if(!qbevent)break;evnt(26307,12471,"ide_methods.bas");}while(r); +S_48958:; +if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ +if(qbevent){evnt(26307,12473,"ide_methods.bas");if(r)goto S_48958;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 0 ; +if(!qbevent)break;evnt(26307,12474,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND= 0 ; +if(!qbevent)break;evnt(26307,12475,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12476,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,&(pass5448=_SUB_IDESHOWTEXT_STRING_A->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12477,"ide_methods.bas");}while(r); +S_48963:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ +if(qbevent){evnt(26307,12478,"ide_methods.bas");if(r)goto S_48963;} +S_48964:; +fornext_value5450=*__LONG_IDECY- 1 ; +fornext_finalvalue5450= 1 ; +fornext_step5450= -1 ; +if (fornext_step5450<0) fornext_step_negative5450=1; else fornext_step_negative5450=0; +if (new_error) goto fornext_error5450; +goto fornext_entrylabel5450; +while(1){ +fornext_value5450=fornext_step5450+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); +fornext_entrylabel5450: +*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5450; +if (fornext_step_negative5450){ +if (fornext_value5450fornext_finalvalue5450) break; +} +fornext_error5450:; +if(qbevent){evnt(26307,12480,"ide_methods.bas");if(r)goto S_48964;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12481,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5452=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12482,"ide_methods.bas");}while(r); +S_48967:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ +if(qbevent){evnt(26307,12483,"ide_methods.bas");if(r)goto S_48967;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; +if(!qbevent)break;evnt(26307,12483,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5449; +if(!qbevent)break;evnt(26307,12483,"ide_methods.bas");}while(r); +} +fornext_continue_5449:; +} +fornext_exit_5449:; +S_48972:; +if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ +if(qbevent){evnt(26307,12485,"ide_methods.bas");if(r)goto S_48972;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; +if(!qbevent)break;evnt(26307,12485,"ide_methods.bas");}while(r); +} +S_48975:; +fornext_value5454=*__LONG_IDECY+ 1 ; +fornext_finalvalue5454=*__LONG_IDEN; +fornext_step5454= 1 ; +if (fornext_step5454<0) fornext_step_negative5454=1; else fornext_step_negative5454=0; +if (new_error) goto fornext_error5454; +goto fornext_entrylabel5454; +while(1){ +fornext_value5454=fornext_step5454+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); +fornext_entrylabel5454: +*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5454; +if (fornext_step_negative5454){ +if (fornext_value5454fornext_finalvalue5454) break; +} +fornext_error5454:; +if(qbevent){evnt(26307,12488,"ide_methods.bas");if(r)goto S_48975;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12489,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5456=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12490,"ide_methods.bas");}while(r); +S_48978:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ +if(qbevent){evnt(26307,12491,"ide_methods.bas");if(r)goto S_48978;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*_SUB_IDESHOWTEXT_LONG_IDECY_I; +if(!qbevent)break;evnt(26307,12491,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5453; +if(!qbevent)break;evnt(26307,12491,"ide_methods.bas");}while(r); +} +fornext_continue_5453:; +} +fornext_exit_5453:; +S_48983:; +if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND== 0 ))||new_error){ +if(qbevent){evnt(26307,12493,"ide_methods.bas");if(r)goto S_48983;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,12493,"ide_methods.bas");}while(r); +} +}else{ +S_48987:; +if ((-(*__LONG_IDECY> 1 ))||new_error){ +if(qbevent){evnt(26307,12495,"ide_methods.bas");if(r)goto S_48987;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass5457=*__LONG_IDECY- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12495,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12495,"ide_methods.bas");}while(r); +} +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5459=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12496,"ide_methods.bas");}while(r); +S_48993:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ +if(qbevent){evnt(26307,12497,"ide_methods.bas");if(r)goto S_48993;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,12498,"ide_methods.bas");}while(r); +S_48995:; +fornext_value5461=*__LONG_IDECY- 1 ; +fornext_finalvalue5461= 1 ; +fornext_step5461= -1 ; +if (fornext_step5461<0) fornext_step_negative5461=1; else fornext_step_negative5461=0; +if (new_error) goto fornext_error5461; +goto fornext_entrylabel5461; +while(1){ +fornext_value5461=fornext_step5461+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); +fornext_entrylabel5461: +*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5461; +if (fornext_step_negative5461){ +if (fornext_value5461fornext_finalvalue5461) break; +} +fornext_error5461:; +if(qbevent){evnt(26307,12501,"ide_methods.bas");if(r)goto S_48995;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12502,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5463=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12503,"ide_methods.bas");}while(r); +S_48998:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ +if(qbevent){evnt(26307,12504,"ide_methods.bas");if(r)goto S_48998;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; +if(!qbevent)break;evnt(26307,12504,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5460; +if(!qbevent)break;evnt(26307,12504,"ide_methods.bas");}while(r); +} +fornext_continue_5460:; +} +fornext_exit_5460:; +S_49003:; +if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ +if(qbevent){evnt(26307,12506,"ide_methods.bas");if(r)goto S_49003;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; +if(!qbevent)break;evnt(26307,12506,"ide_methods.bas");}while(r); +} +} +} +S_49008:; +if ((-(*__LONG_IDECY> 1 ))||new_error){ +if(qbevent){evnt(26307,12510,"ide_methods.bas");if(r)goto S_49008;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass5464=*__LONG_IDECY- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12510,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12510,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ACTIVEINCLUDELINK= 0 ; +if(!qbevent)break;evnt(26307,12512,"ide_methods.bas");}while(r); +S_49014:; +fornext_value5466= 0 ; +fornext_finalvalue5466=(*__LONG_IDEWY- 9 ); +fornext_step5466= 1 ; +if (fornext_step5466<0) fornext_step_negative5466=1; else fornext_step_negative5466=0; +if (new_error) goto fornext_error5466; +goto fornext_entrylabel5466; +while(1){ +fornext_value5466=fornext_step5466+(*_SUB_IDESHOWTEXT_LONG_Y); +fornext_entrylabel5466: +*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5466; +if (fornext_step_negative5466){ +if (fornext_value5466fornext_finalvalue5466) break; +} +fornext_error5466:; +if(qbevent){evnt(26307,12514,"ide_methods.bas");if(r)goto S_49014;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12515,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12516,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=155; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWLINENUMBER; +RETURN_155:; +if(!qbevent)break;evnt(26307,12518,"ide_methods.bas");}while(r); +S_49018:; +if ((((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L))&(-(*__LONG_IDEDEBUGMODE== 0 )))|((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))&(-(*__LONG_IDEDEBUGMODE!= 0 ))))||new_error){ +if(qbevent){evnt(26307,12520,"ide_methods.bas");if(r)goto S_49018;} +do{ +qbg_sub_color( 7 , 4 ,NULL,3); +if(!qbevent)break;evnt(26307,12521,"ide_methods.bas");}while(r); +S_49020:; +}else{ +if ((-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))|(((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND))))){ +if(qbevent){evnt(26307,12522,"ide_methods.bas");if(r)goto S_49020;} +S_49021:; +if (((-(*__BYTE_HIDECURRENTLINEHIGHLIGHT== 0 ))&(-(*__LONG_IDESYSTEM== 1 )))||new_error){ +if(qbevent){evnt(26307,12523,"ide_methods.bas");if(r)goto S_49021;} +do{ +qbg_sub_color( 7 , 6 ,NULL,3); +if(!qbevent)break;evnt(26307,12523,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12525,"ide_methods.bas");}while(r); +} +} +S_49027:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,12528,"ide_methods.bas");if(r)goto S_49027;} +S_49028:; +while((!(-(*_SUB_IDESHOWTEXT_LONG_Lid=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_INVALIDLINE[2]&1){ +preserved_elements=__ARRAY_BYTE_INVALIDLINE[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_INVALIDLINE[4]= 0 ; +__ARRAY_BYTE_INVALIDLINE[5]=(func_ubound(__ARRAY_BYTE_INVALIDLINE,1,1)+ 1000 )-__ARRAY_BYTE_INVALIDLINE[4]+1; +__ARRAY_BYTE_INVALIDLINE[6]=1; +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_INVALIDLINE[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); +tmp_long=__ARRAY_BYTE_INVALIDLINE[5]; +__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_INVALIDLINE[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementslen))&(-(*__LONG_IDECX>= 1 ))))||new_error){ +if(qbevent){evnt(26307,12537,"ide_methods.bas");if(r)goto S_49035;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12538,"ide_methods.bas");}while(r); +S_49037:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ +if(qbevent){evnt(26307,12539,"ide_methods.bas");if(r)goto S_49037;} +S_49038:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,12540,"ide_methods.bas");if(r)goto S_49038;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC= -1 ; +if(!qbevent)break;evnt(26307,12540,"ide_methods.bas");}while(r); +} +} +} +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,__LONG_IDECX,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12546,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT; +if(!qbevent)break;evnt(26307,12547,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE; +if(!qbevent)break;evnt(26307,12548,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 0 ; +if(!qbevent)break;evnt(26307,12551,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1= 0 ; +if(!qbevent)break;evnt(26307,12552,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2= 0 ; +if(!qbevent)break;evnt(26307,12553,"ide_methods.bas");}while(r); +S_49049:; +if (((-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))&(-(*__INTEGER_BRACKETHIGHLIGHT== -1 )))||new_error){ +if(qbevent){evnt(26307,12554,"ide_methods.bas");if(r)goto S_49049;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; +if(!qbevent)break;evnt(26307,12555,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; +if(!qbevent)break;evnt(26307,12556,"ide_methods.bas");}while(r); +S_49052:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(26307,12557,"ide_methods.bas");if(r)goto S_49052;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26307,12558,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,12559,"ide_methods.bas");}while(r); +LABEL_SCANBRACKET2:; +if(qbevent){evnt(26307,12560,"ide_methods.bas");r=0;} +S_49055:; +fornext_value5470=*_SUB_IDESHOWTEXT_LONG_BRACKET1+ 1 ; +fornext_finalvalue5470=_SUB_IDESHOWTEXT_STRING_A->len; +fornext_step5470= 1 ; +if (fornext_step5470<0) fornext_step_negative5470=1; else fornext_step_negative5470=0; +if (new_error) goto fornext_error5470; +goto fornext_entrylabel5470; +while(1){ +fornext_value5470=fornext_step5470+(*_SUB_IDESHOWTEXT_LONG_K); +fornext_entrylabel5470: +*_SUB_IDESHOWTEXT_LONG_K=fornext_value5470; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5470){ +if (fornext_value5470fornext_finalvalue5470) break; +} +fornext_error5470:; +if(qbevent){evnt(26307,12561,"ide_methods.bas");if(r)goto S_49055;} +S_49056:; +qbs_set(sc_5472,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26307,12562,"ide_methods.bas");if(r)goto S_49056;} +S_49057:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5472,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26307,12563,"ide_methods.bas");if(r)goto S_49057;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); +if(!qbevent)break;evnt(26307,12564,"ide_methods.bas");}while(r); +sc_ec_331_end:; +goto sc_5472_end; +} +S_49059:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5472,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(26307,12565,"ide_methods.bas");if(r)goto S_49059;} +S_49060:; +if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ +if(qbevent){evnt(26307,12566,"ide_methods.bas");if(r)goto S_49060;} +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; +if(!qbevent)break;evnt(26307,12566,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5469; +if(!qbevent)break;evnt(26307,12566,"ide_methods.bas");}while(r); +} +sc_ec_332_end:; +goto sc_5472_end; +} +sc_5472_end:; +S_49065:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ +if(qbevent){evnt(26307,12568,"ide_methods.bas");if(r)goto S_49065;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; +if(!qbevent)break;evnt(26307,12569,"ide_methods.bas");}while(r); +S_49067:; +if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ +if(qbevent){evnt(26307,12570,"ide_methods.bas");if(r)goto S_49067;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2=*_SUB_IDESHOWTEXT_LONG_K; +if(!qbevent)break;evnt(26307,12570,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5469; +if(!qbevent)break;evnt(26307,12570,"ide_methods.bas");}while(r); +} +S_49071:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ +if(qbevent){evnt(26307,12571,"ide_methods.bas");if(r)goto S_49071;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; +if(!qbevent)break;evnt(26307,12572,"ide_methods.bas");}while(r); +} +} +fornext_continue_5469:; +} +fornext_exit_5469:; +S_49075:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,1),qbs_new_txt_len("(",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),func_chr( 34 ))))){ +if(qbevent){evnt(26307,12575,"ide_methods.bas");if(r)goto S_49075;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26307,12576,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26307,12577,"ide_methods.bas");}while(r); +do{ +goto LABEL_SCANBRACKET2; +if(!qbevent)break;evnt(26307,12578,"ide_methods.bas");}while(r); +S_49079:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),qbs_new_txt_len(")",1)))){ +if(qbevent){evnt(26307,12579,"ide_methods.bas");if(r)goto S_49079;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26307,12580,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,12581,"ide_methods.bas");}while(r); +LABEL_SCANBRACKET1:; +if(qbevent){evnt(26307,12582,"ide_methods.bas");r=0;} +S_49082:; +fornext_value5474=*_SUB_IDESHOWTEXT_LONG_BRACKET2- 1 ; +fornext_finalvalue5474= 1 ; +fornext_step5474= -1 ; +if (fornext_step5474<0) fornext_step_negative5474=1; else fornext_step_negative5474=0; +if (new_error) goto fornext_error5474; +goto fornext_entrylabel5474; +while(1){ +fornext_value5474=fornext_step5474+(*_SUB_IDESHOWTEXT_LONG_K); +fornext_entrylabel5474: +*_SUB_IDESHOWTEXT_LONG_K=fornext_value5474; +if (fornext_step_negative5474){ +if (fornext_value5474fornext_finalvalue5474) break; +} +fornext_error5474:; +if(qbevent){evnt(26307,12583,"ide_methods.bas");if(r)goto S_49082;} +S_49083:; +qbs_set(sc_5475,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26307,12584,"ide_methods.bas");if(r)goto S_49083;} +S_49084:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5475,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26307,12585,"ide_methods.bas");if(r)goto S_49084;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); +if(!qbevent)break;evnt(26307,12586,"ide_methods.bas");}while(r); +sc_ec_333_end:; +goto sc_5475_end; +} +sc_5475_end:; +S_49087:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ +if(qbevent){evnt(26307,12588,"ide_methods.bas");if(r)goto S_49087;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; +if(!qbevent)break;evnt(26307,12589,"ide_methods.bas");}while(r); +S_49089:; +if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ +if(qbevent){evnt(26307,12590,"ide_methods.bas");if(r)goto S_49089;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1=*_SUB_IDESHOWTEXT_LONG_K; +if(!qbevent)break;evnt(26307,12590,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5473; +if(!qbevent)break;evnt(26307,12590,"ide_methods.bas");}while(r); +} +S_49093:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ +if(qbevent){evnt(26307,12591,"ide_methods.bas");if(r)goto S_49093;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; +if(!qbevent)break;evnt(26307,12592,"ide_methods.bas");}while(r); +} +} +fornext_continue_5473:; +} +fornext_exit_5473:; +S_49097:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,1),qbs_new_txt_len(")",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,1),func_chr( 34 ))))){ +if(qbevent){evnt(26307,12595,"ide_methods.bas");if(r)goto S_49097;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26307,12596,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26307,12597,"ide_methods.bas");}while(r); +do{ +goto LABEL_SCANBRACKET1; +if(!qbevent)break;evnt(26307,12598,"ide_methods.bas");}while(r); +} +} +} +} +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12605,"ide_methods.bas");}while(r); +S_49104:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX==(_SUB_IDESHOWTEXT_STRING_A->len+ 1 )))&(-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))))||new_error){ +if(qbevent){evnt(26307,12607,"ide_methods.bas");if(r)goto S_49104;} +S_49105:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 8 ),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 4 ),qbs_new_txt_len("RGB(",4)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ +if(qbevent){evnt(26307,12615,"ide_methods.bas");if(r)goto S_49105;} +do{ +*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12616,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Shift+ENTER to open the RGB mixer",38))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12617,"ide_methods.bas");}while(r); +do{ +*__BYTE_ENTERINGRGB= -1 ; +if(!qbevent)break;evnt(26307,12618,"ide_methods.bas");}while(r); +} +S_49110:; +}else{ +if (-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 ))){ +if(qbevent){evnt(26307,12620,"ide_methods.bas");if(r)goto S_49110;} +S_49111:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,1),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,1),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,1),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 8 , 8 ,1),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 4 , 4 ,1),qbs_new_txt_len("RGB(",4)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,1),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,1),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,1),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ +if(qbevent){evnt(26307,12628,"ide_methods.bas");if(r)goto S_49111;} +S_49112:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX, 1 ,1),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,12629,"ide_methods.bas");if(r)goto S_49112;} +do{ +*__BYTE_ENTERINGRGB= -1 ; +if(!qbevent)break;evnt(26307,12629,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE=func__instrrev(NULL,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("$INCLUDE",8),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12633,"ide_methods.bas");}while(r); +S_49118:; +if ((-(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE> 0 ))||new_error){ +if(qbevent){evnt(26307,12634,"ide_methods.bas");if(r)goto S_49118;} +do{ +*_SUB_IDESHOWTEXT_LONG_LINK_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12635,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE+ 8 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12636,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12637,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_ACTIVEINCLUDELINKFILE,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2-*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1- 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12638,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12639,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_F,qbs_add(_SUB_IDESHOWTEXT_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12640,"ide_methods.bas");}while(r); +S_49125:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_IDESHOWTEXT_STRING_F)|func__fileexists(__STRING_ACTIVEINCLUDELINKFILE)))||new_error){ +if(qbevent){evnt(26307,12641,"ide_methods.bas");if(r)goto S_49125;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Double-click to open",25))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12642,"ide_methods.bas");}while(r); +do{ +*__LONG_ACTIVEINCLUDELINK=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,12642,"ide_methods.bas");}while(r); +} +} +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12647,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); +if(!qbevent)break;evnt(26307,12648,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12650,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; +if(!qbevent)break;evnt(26307,12654,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; +if(!qbevent)break;evnt(26307,12655,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; +if(!qbevent)break;evnt(26307,12656,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 0 ; +if(!qbevent)break;evnt(26307,12657,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12657,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; +if(!qbevent)break;evnt(26307,12658,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH= 0 ; +if(!qbevent)break;evnt(26307,12659,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_INTEGER_PREVBG=func__backgroundcolor(NULL,0); +if(!qbevent)break;evnt(26307,12660,"ide_methods.bas");}while(r); +S_49144:; +fornext_value5480= 1 ; +fornext_finalvalue5480=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5480= 1 ; +if (fornext_step5480<0) fornext_step_negative5480=1; else fornext_step_negative5480=0; +if (new_error) goto fornext_error5480; +goto fornext_entrylabel5480; +while(1){ +fornext_value5480=fornext_step5480+(*_SUB_IDESHOWTEXT_LONG_M); +fornext_entrylabel5480: +*_SUB_IDESHOWTEXT_LONG_M=fornext_value5480; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5480){ +if (fornext_value5480fornext_finalvalue5480) break; +} +fornext_error5480:; +if(qbevent){evnt(26307,12662,"ide_methods.bas");if(r)goto S_49144;} +S_49145:; +if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDESHOWTEXT_SINGLE_STARTTIME)> 1 ))||new_error){ +if(qbevent){evnt(26307,12663,"ide_methods.bas");if(r)goto S_49145;} +do{ +*_SUB_IDESHOWTEXT_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Syntax Highlighter Disabled",27),qbs_new_txt_len("Syntax Highlighter has been disabled to avoid slowing down the IDE.\\nYou can reenable the Highlighter in the 'Options' menu.",124),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12664,"ide_methods.bas");}while(r); +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; +if(!qbevent)break;evnt(26307,12665,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12666,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12667,"ide_methods.bas");}while(r); +do{ +goto LABEL_NOSYNTAXHIGHLIGHTING; +if(!qbevent)break;evnt(26307,12668,"ide_methods.bas");}while(r); +} +S_49152:; +if ((-(*_SUB_IDESHOWTEXT_LONG_M>(*__LONG_IDESX+*__LONG_IDEWX- 2 )))||new_error){ +if(qbevent){evnt(26307,12670,"ide_methods.bas");if(r)goto S_49152;} +do{ +goto fornext_exit_5479; +if(!qbevent)break;evnt(26307,12670,"ide_methods.bas");}while(r); +} +S_49155:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESELECT== 1 ))&(-(__STRING_IDECURRENTSINGLELINESELECTION->len> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH== 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))))||new_error){ +if(qbevent){evnt(26307,12671,"ide_methods.bas");if(r)goto S_49155;} +S_49156:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M,__STRING_IDECURRENTSINGLELINESELECTION->len,1)),qbs_lcase(__STRING_IDECURRENTSINGLELINESELECTION))))||new_error){ +if(qbevent){evnt(26307,12672,"ide_methods.bas");if(r)goto S_49156;} +S_49157:; +if ((-(*_SUB_IDESHOWTEXT_LONG_M> 1 ))||new_error){ +if(qbevent){evnt(26307,12674,"ide_methods.bas");if(r)goto S_49157;} +S_49158:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M- 1 , 1 ,1),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,12675,"ide_methods.bas");if(r)goto S_49158;} +S_49159:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),qbs_new_txt_len(".",1)))))))||new_error){ +if(qbevent){evnt(26307,12678,"ide_methods.bas");if(r)goto S_49159;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12679,"ide_methods.bas");}while(r); +S_49161:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ +if(qbevent){evnt(26307,12680,"ide_methods.bas");if(r)goto S_49161;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12681,"ide_methods.bas");}while(r); +} +} +} +}else{ +S_49166:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,1),qbs_new_txt_len(".",1)))))))||new_error){ +if(qbevent){evnt(26307,12687,"ide_methods.bas");if(r)goto S_49166;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12688,"ide_methods.bas");}while(r); +S_49168:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ +if(qbevent){evnt(26307,12689,"ide_methods.bas");if(r)goto S_49168;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12690,"ide_methods.bas");}while(r); +} +} +} +} +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12696,"ide_methods.bas");}while(r); +S_49175:; +if ((-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))||new_error){ +if(qbevent){evnt(26307,12698,"ide_methods.bas");if(r)goto S_49175;} +S_49176:; +if(qbevent){evnt(26307,12699,"ide_methods.bas");if(r)goto S_49176;} +S_49177:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26307,12700,"ide_methods.bas");if(r)goto S_49177;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); +if(!qbevent)break;evnt(26307,12700,"ide_methods.bas");}while(r); +sc_ec_334_end:; +goto sc_5500_end; +} +S_49179:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(26307,12701,"ide_methods.bas");if(r)goto S_49179;} +S_49180:; +if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ +if(qbevent){evnt(26307,12701,"ide_methods.bas");if(r)goto S_49180;} +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; +if(!qbevent)break;evnt(26307,12701,"ide_methods.bas");}while(r); +} +sc_ec_335_end:; +goto sc_5500_end; +} +sc_5500_end:; +} +do{ +qbg_sub_color( 13 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12705,"ide_methods.bas");}while(r); +S_49186:; +if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ +if(qbevent){evnt(26307,12707,"ide_methods.bas");if(r)goto S_49186;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12707,"ide_methods.bas");}while(r); +do{ +goto LABEL_SKIPSYNTAXHIGHLIGHTER; +if(!qbevent)break;evnt(26307,12707,"ide_methods.bas");}while(r); +} +S_49190:; +if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDESHOWTEXT_STRING_OLDCHAR->len> 0 ))|(-(*_SUB_IDESHOWTEXT_LONG_M== 1 ))))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))))||new_error){ +if(qbevent){evnt(26307,12709,"ide_methods.bas");if(r)goto S_49190;} +S_49191:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)> 0 ))&(qbs_notequal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len(")",1)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))))||new_error){ +if(qbevent){evnt(26307,12710,"ide_methods.bas");if(r)goto S_49191;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12712,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; +if(!qbevent)break;evnt(26307,12713,"ide_methods.bas");}while(r); +S_49194:; +fornext_value5503=*_SUB_IDESHOWTEXT_LONG_M; +fornext_finalvalue5503=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5503= 1 ; +if (fornext_step5503<0) fornext_step_negative5503=1; else fornext_step_negative5503=0; +if (new_error) goto fornext_error5503; +goto fornext_entrylabel5503; +while(1){ +fornext_value5503=fornext_step5503+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5503: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5503; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5503){ +if (fornext_value5503fornext_finalvalue5503) break; +} +fornext_error5503:; +if(qbevent){evnt(26307,12715,"ide_methods.bas");if(r)goto S_49194;} +S_49195:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,12716,"ide_methods.bas");if(r)goto S_49195;} +do{ +goto fornext_exit_5502; +if(!qbevent)break;evnt(26307,12716,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12717,"ide_methods.bas");}while(r); +fornext_continue_5502:; +} +fornext_exit_5502:; +S_49200:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("-",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len(".",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("&",1)))))||new_error){ +if(qbevent){evnt(26307,12720,"ide_methods.bas");if(r)goto S_49200;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12721,"ide_methods.bas");}while(r); +}else{ +S_49203:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISNUMBER(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)))||new_error){ +if(qbevent){evnt(26307,12723,"ide_methods.bas");if(r)goto S_49203;} +do{ +*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= -1 ; +if(!qbevent)break;evnt(26307,12724,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12725,"ide_methods.bas");}while(r); +S_49206:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),0)> 0 ))){ +if(qbevent){evnt(26307,12726,"ide_methods.bas");if(r)goto S_49206;} +S_49207:; +fornext_value5507=*_SUB_IDESHOWTEXT_LONG_I; +fornext_finalvalue5507=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5507= 1 ; +if (fornext_step5507<0) fornext_step_negative5507=1; else fornext_step_negative5507=0; +if (new_error) goto fornext_error5507; +goto fornext_entrylabel5507; +while(1){ +fornext_value5507=fornext_step5507+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5507: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5507; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5507){ +if (fornext_value5507fornext_finalvalue5507) break; +} +fornext_error5507:; +if(qbevent){evnt(26307,12728,"ide_methods.bas");if(r)goto S_49207;} +S_49208:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,12729,"ide_methods.bas");if(r)goto S_49208;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12729,"ide_methods.bas");}while(r); +do{ +goto LABEL_KEYWORDACQUIRED; +if(!qbevent)break;evnt(26307,12729,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12730,"ide_methods.bas");}while(r); +fornext_continue_5506:; +} +fornext_exit_5506:; +do{ +goto LABEL_KEYWORDACQUIRED; +if(!qbevent)break;evnt(26307,12732,"ide_methods.bas");}while(r); +} +} +} +do{ +goto LABEL_SETOLDCHAR; +if(!qbevent)break;evnt(26307,12735,"ide_methods.bas");}while(r); +} +S_49219:; +if ((qbs_cleanup(qbs_tmp_base,(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))&(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)== 0 ))))||new_error){ +if(qbevent){evnt(26307,12738,"ide_methods.bas");if(r)goto S_49219;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12740,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12741,"ide_methods.bas");}while(r); +S_49222:; +fornext_value5510=*_SUB_IDESHOWTEXT_LONG_M; +fornext_finalvalue5510=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5510= 1 ; +if (fornext_step5510<0) fornext_step_negative5510=1; else fornext_step_negative5510=0; +if (new_error) goto fornext_error5510; +goto fornext_entrylabel5510; +while(1){ +fornext_value5510=fornext_step5510+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5510: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5510; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5510){ +if (fornext_value5510fornext_finalvalue5510) break; +} +fornext_error5510:; +if(qbevent){evnt(26307,12742,"ide_methods.bas");if(r)goto S_49222;} +S_49223:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1),0)> 0 )))||new_error){ +if(qbevent){evnt(26307,12743,"ide_methods.bas");if(r)goto S_49223;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12743,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5509; +if(!qbevent)break;evnt(26307,12743,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12744,"ide_methods.bas");}while(r); +fornext_continue_5509:; +} +fornext_exit_5509:; +S_49229:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))&(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("?",1)))))||new_error){ +if(qbevent){evnt(26307,12746,"ide_methods.bas");if(r)goto S_49229;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 1 ; +if(!qbevent)break;evnt(26307,12746,"ide_methods.bas");}while(r); +do{ +goto LABEL_SETOLDCHAR; +if(!qbevent)break;evnt(26307,12746,"ide_methods.bas");}while(r); +} +LABEL_KEYWORDACQUIRED:; +if(qbevent){evnt(26307,12747,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12748,"ide_methods.bas");}while(r); +S_49234:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))))))||new_error){ +if(qbevent){evnt(26307,12750,"ide_methods.bas");if(r)goto S_49234;} +S_49235:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END",4))))||new_error){ +if(qbevent){evnt(26307,12752,"ide_methods.bas");if(r)goto S_49235;} +S_49236:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 7 ,1)),qbs_new_txt_len("$END IF",7))))||new_error){ +if(qbevent){evnt(26307,12753,"ide_methods.bas");if(r)goto S_49236;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END IF",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12753,"ide_methods.bas");}while(r); +} +S_49239:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("THEN",4)))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ +if(qbevent){evnt(26307,12756,"ide_methods.bas");if(r)goto S_49239;} +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; +if(!qbevent)break;evnt(26307,12757,"ide_methods.bas");}while(r); +S_49241:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS",8)))){ +if(qbevent){evnt(26307,12758,"ide_methods.bas");if(r)goto S_49241;} +S_49242:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs__trim(_SUB_IDESHOWTEXT_STRING_A2)),qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||new_error){ +if(qbevent){evnt(26307,12759,"ide_methods.bas");if(r)goto S_49242;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS:CONSOLE",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12760,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12763,"ide_methods.bas");}while(r); +S_49247:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),qbs_new_txt_len("@",1)),0)> 0 ))){ +if(qbevent){evnt(26307,12764,"ide_methods.bas");if(r)goto S_49247;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; +if(!qbevent)break;evnt(26307,12765,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12766,"ide_methods.bas");}while(r); +S_49250:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ +if(qbevent){evnt(26307,12769,"ide_methods.bas");if(r)goto S_49250;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; +if(!qbevent)break;evnt(26307,12770,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12771,"ide_methods.bas");}while(r); +} +} +} +} +} +LABEL_SETOLDCHAR:; +if(qbevent){evnt(26307,12775,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12776,"ide_methods.bas");}while(r); +S_49257:; +if (((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))&*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ +if(qbevent){evnt(26307,12778,"ide_methods.bas");if(r)goto S_49257;} +S_49258:; +if ((*_SUB_IDESHOWTEXT_LONG_IS_NUMBER)||new_error){ +if(qbevent){evnt(26307,12779,"ide_methods.bas");if(r)goto S_49258;} +do{ +qbg_sub_color( 8 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12780,"ide_methods.bas");}while(r); +S_49260:; +}else{ +if (*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD){ +if(qbevent){evnt(26307,12781,"ide_methods.bas");if(r)goto S_49260;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12782,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 12 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12784,"ide_methods.bas");}while(r); +} +} +S_49265:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(26307,12786,"ide_methods.bas");if(r)goto S_49265;} +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; +if(!qbevent)break;evnt(26307,12786,"ide_methods.bas");}while(r); +} +} +S_49269:; +if ((*_SUB_IDESHOWTEXT_LONG_COMMENT)||new_error){ +if(qbevent){evnt(26307,12789,"ide_methods.bas");if(r)goto S_49269;} +do{ +qbg_sub_color( 11 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12790,"ide_methods.bas");}while(r); +S_49271:; +if ((*_SUB_IDESHOWTEXT_LONG_METACOMMAND)||new_error){ +if(qbevent){evnt(26307,12791,"ide_methods.bas");if(r)goto S_49271;} +S_49272:; +if(qbevent){evnt(26307,12792,"ide_methods.bas");if(r)goto S_49272;} +S_49273:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$INCLUDE",8))))||new_error){ +if(qbevent){evnt(26307,12793,"ide_methods.bas");if(r)goto S_49273;} +S_49274:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,1)== 0 )))||new_error){ +if(qbevent){evnt(26307,12794,"ide_methods.bas");if(r)goto S_49274;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12794,"ide_methods.bas");}while(r); +} +sc_ec_336_end:; +goto sc_5515_end; +} +S_49277:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$DYNAMIC",8))||qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$STATIC",7))))||new_error){ +if(qbevent){evnt(26307,12795,"ide_methods.bas");if(r)goto S_49277;} +S_49278:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),qbs_new_txt_len("$DYNAMIC",8),1)== 0 ))&(-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),qbs_new_txt_len("$STATIC",7),1)== 0 ))))||new_error){ +if(qbevent){evnt(26307,12796,"ide_methods.bas");if(r)goto S_49278;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12796,"ide_methods.bas");}while(r); +} +sc_ec_337_end:; +goto sc_5515_end; +} +sc_5515_end:; +} +S_49283:; +}else{ +if (*_SUB_IDESHOWTEXT_LONG_METACOMMAND){ +if(qbevent){evnt(26307,12799,"ide_methods.bas");if(r)goto S_49283;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12800,"ide_methods.bas");}while(r); +S_49285:; +}else{ +if (qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_INQUOTE|(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))){ +if(qbevent){evnt(26307,12801,"ide_methods.bas");if(r)goto S_49285;} +do{ +qbg_sub_color( 14 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12802,"ide_methods.bas");}while(r); +} +} +} +LABEL_SKIPSYNTAXHIGHLIGHTER:; +if(qbevent){evnt(26307,12805,"ide_methods.bas");r=0;} +S_49288:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_LINK_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_LINK_IDECX)))))||new_error){ +if(qbevent){evnt(26307,12807,"ide_methods.bas");if(r)goto S_49288;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12807,"ide_methods.bas");}while(r); +} +S_49291:; +if ((((-(*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX))))||new_error){ +if(qbevent){evnt(26307,12808,"ide_methods.bas");if(r)goto S_49291;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12808,"ide_methods.bas");}while(r); +} +S_49294:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET1))|(-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET2)))))||new_error){ +if(qbevent){evnt(26307,12810,"ide_methods.bas");if(r)goto S_49294;} +do{ +qbg_sub_color(NULL, 5 ,NULL,2); +if(!qbevent)break;evnt(26307,12811,"ide_methods.bas");}while(r); +S_49296:; +}else{ +if ((-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH> 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))){ +if(qbevent){evnt(26307,12812,"ide_methods.bas");if(r)goto S_49296;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH- 1 ; +if(!qbevent)break;evnt(26307,12813,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL, 5 ,NULL,2); +if(!qbevent)break;evnt(26307,12814,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color(NULL,*_SUB_IDESHOWTEXT_INTEGER_PREVBG,NULL,2); +if(!qbevent)break;evnt(26307,12816,"ide_methods.bas");}while(r); +} +} +S_49302:; +if ((*__BYTE_SHOWLINENUMBERS)||new_error){ +if(qbevent){evnt(26307,12819,"ide_methods.bas");if(r)goto S_49302;} +S_49303:; +if (((-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)>=( 2 +*__LONG_MAXLINENUMBERLENGTH)))&(-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)<*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26307,12820,"ide_methods.bas");if(r)goto S_49303;} +do{ +sub__printstring(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_THISCHAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12821,"ide_methods.bas");}while(r); +} +}else{ +S_49307:; +if (((-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)>=( 2 )))&(-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)<*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26307,12824,"ide_methods.bas");if(r)goto S_49307;} +do{ +sub__printstring( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_THISCHAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12825,"ide_methods.bas");}while(r); +} +} +S_49311:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,12830,"ide_methods.bas");if(r)goto S_49311;} +do{ +qbg_sub_color(NULL, 6 ,NULL,2); +if(!qbevent)break;evnt(26307,12830,"ide_methods.bas");}while(r); +} +S_49314:; +if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))||new_error){ +if(qbevent){evnt(26307,12831,"ide_methods.bas");if(r)goto S_49314;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=*_SUB_IDESHOWTEXT_LONG_ISKEYWORD- 1 ; +if(!qbevent)break;evnt(26307,12831,"ide_methods.bas");}while(r); +} +S_49317:; +if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))||new_error){ +if(qbevent){evnt(26307,12832,"ide_methods.bas");if(r)goto S_49317;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12832,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; +if(!qbevent)break;evnt(26307,12832,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; +if(!qbevent)break;evnt(26307,12832,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; +if(!qbevent)break;evnt(26307,12832,"ide_methods.bas");}while(r); +} +fornext_continue_5479:; +} +fornext_exit_5479:; +S_49324:; +if (((((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 ))))&(-(*__LONG_IDESELECT!= 0 )))||new_error){ +if(qbevent){evnt(26307,12836,"ide_methods.bas");if(r)goto S_49324;} +S_49325:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ +if(qbevent){evnt(26307,12837,"ide_methods.bas");if(r)goto S_49325;} +S_49326:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26307,12838,"ide_methods.bas");if(r)goto S_49326;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,12839,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; +if(!qbevent)break;evnt(26307,12840,"ide_methods.bas");}while(r); +S_49329:; +fornext_value5517= 2 +*__LONG_MAXLINENUMBERLENGTH; +fornext_finalvalue5517=(*__LONG_IDEWX- 1 ); +fornext_step5517= 1 ; +if (fornext_step5517<0) fornext_step_negative5517=1; else fornext_step_negative5517=0; +if (new_error) goto fornext_error5517; +goto fornext_entrylabel5517; +while(1){ +fornext_value5517=fornext_step5517+(*_SUB_IDESHOWTEXT_LONG_X); +fornext_entrylabel5517: +*_SUB_IDESHOWTEXT_LONG_X=fornext_value5517; +if (fornext_step_negative5517){ +if (fornext_value5517fornext_finalvalue5517) break; +} +fornext_error5517:; +if(qbevent){evnt(26307,12841,"ide_methods.bas");if(r)goto S_49329;} +S_49330:; +if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ +if(qbevent){evnt(26307,12842,"ide_methods.bas");if(r)goto S_49330;} +do{ +*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); +if(!qbevent)break;evnt(26307,12843,"ide_methods.bas");}while(r); +S_49332:; +if ((-(*_SUB_IDESHOWTEXT_LONG_A== 63 ))||new_error){ +if(qbevent){evnt(26307,12845,"ide_methods.bas");if(r)goto S_49332;} +do{ +*_SUB_IDESHOWTEXT_LONG_C=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X, 1 ,1); +if(!qbevent)break;evnt(26307,12846,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_IDESHOWTEXT_LONG_C= 1 ; +if(!qbevent)break;evnt(26307,12848,"ide_methods.bas");}while(r); +} +S_49337:; +if ((-((*_SUB_IDESHOWTEXT_LONG_C& 15 )== 0 ))||new_error){ +if(qbevent){evnt(26307,12850,"ide_methods.bas");if(r)goto S_49337;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,12851,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("?",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12852,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,12853,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr(*_SUB_IDESHOWTEXT_LONG_A),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12855,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26307,12860,"ide_methods.bas");}while(r); +fornext_continue_5516:; +} +fornext_exit_5516:; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12862,"ide_methods.bas");}while(r); +}else{ +S_49349:; +if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26307,12864,"ide_methods.bas");if(r)goto S_49349;} +do{ +goto LABEL_NOFINALSELECT; +if(!qbevent)break;evnt(26307,12864,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 2 +*__LONG_MAXLINENUMBERLENGTH,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,12865,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,12866,"ide_methods.bas");}while(r); +S_49354:; +fornext_value5519=*__LONG_IDESX; +fornext_finalvalue5519=*__LONG_IDESX+*__LONG_IDEWX-( 2 +*__LONG_MAXLINENUMBERLENGTH); +fornext_step5519= 1 ; +if (fornext_step5519<0) fornext_step_negative5519=1; else fornext_step_negative5519=0; +if (new_error) goto fornext_error5519; +goto fornext_entrylabel5519; +while(1){ +fornext_value5519=fornext_step5519+(*_SUB_IDESHOWTEXT_LONG_X); +fornext_entrylabel5519: +*_SUB_IDESHOWTEXT_LONG_X=fornext_value5519; +if (fornext_step_negative5519){ +if (fornext_value5519fornext_finalvalue5519) break; +} +fornext_error5519:; +if(qbevent){evnt(26307,12868,"ide_methods.bas");if(r)goto S_49354;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_X, 1 ,1)); +if (new_error) goto skip5520; +makefit(tqbs); +qbs_print(tqbs,0); +skip5520: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12869,"ide_methods.bas");}while(r); +fornext_continue_5518:; +} +fornext_exit_5518:; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12872,"ide_methods.bas");}while(r); +LABEL_NOFINALSELECT:; +if(qbevent){evnt(26307,12873,"ide_methods.bas");r=0;} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; +if(!qbevent)break;evnt(26307,12878,"ide_methods.bas");}while(r); +fornext_continue_5465:; +} +fornext_exit_5465:; +}else{ +LABEL_NOSYNTAXHIGHLIGHTING:; +if(qbevent){evnt(26307,12881,"ide_methods.bas");r=0;} +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12883,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; +if(!qbevent)break;evnt(26307,12884,"ide_methods.bas");}while(r); +S_49366:; +fornext_value5522= 0 ; +fornext_finalvalue5522=(*__LONG_IDEWY- 9 ); +fornext_step5522= 1 ; +if (fornext_step5522<0) fornext_step_negative5522=1; else fornext_step_negative5522=0; +if (new_error) goto fornext_error5522; +goto fornext_entrylabel5522; +while(1){ +fornext_value5522=fornext_step5522+(*_SUB_IDESHOWTEXT_LONG_Y); +fornext_entrylabel5522: +*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5522; +if (fornext_step_negative5522){ +if (fornext_value5522fornext_finalvalue5522) break; +} +fornext_error5522:; +if(qbevent){evnt(26307,12885,"ide_methods.bas");if(r)goto S_49366;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12886,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12887,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=156; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWLINENUMBER; +RETURN_156:; +if(!qbevent)break;evnt(26307,12889,"ide_methods.bas");}while(r); +S_49370:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ +if(qbevent){evnt(26307,12891,"ide_methods.bas");if(r)goto S_49370;} +do{ +qbg_sub_color( 13 , 4 ,NULL,3); +if(!qbevent)break;evnt(26307,12891,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12891,"ide_methods.bas");}while(r); +} +S_49375:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,12893,"ide_methods.bas");if(r)goto S_49375;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12894,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 )-*__LONG_MAXLINENUMBERLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12895,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); +if(!qbevent)break;evnt(26307,12896,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_right(_SUB_IDESHOWTEXT_STRING_A2,(*__LONG_IDEWX- 2 )-*__LONG_MAXLINENUMBERLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12897,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 )-*__LONG_MAXLINENUMBERLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12899,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_A2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12901,"ide_methods.bas");}while(r); +S_49384:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,12903,"ide_methods.bas");if(r)goto S_49384;} +S_49385:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX<=_SUB_IDESHOWTEXT_STRING_A->len))&(-(*__LONG_IDECX>= 1 ))))||new_error){ +if(qbevent){evnt(26307,12904,"ide_methods.bas");if(r)goto S_49385;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12905,"ide_methods.bas");}while(r); +S_49387:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ +if(qbevent){evnt(26307,12906,"ide_methods.bas");if(r)goto S_49387;} +S_49388:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,12907,"ide_methods.bas");if(r)goto S_49388;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC= -1 ; +if(!qbevent)break;evnt(26307,12907,"ide_methods.bas");}while(r); +} +} +} +} +S_49394:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,12913,"ide_methods.bas");if(r)goto S_49394;} +S_49395:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ +if(qbevent){evnt(26307,12914,"ide_methods.bas");if(r)goto S_49395;} +S_49396:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26307,12915,"ide_methods.bas");if(r)goto S_49396;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,12916,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; +if(!qbevent)break;evnt(26307,12917,"ide_methods.bas");}while(r); +S_49399:; +fornext_value5525= 2 +*__LONG_MAXLINENUMBERLENGTH; +fornext_finalvalue5525=(*__LONG_IDEWX- 1 ); +fornext_step5525= 1 ; +if (fornext_step5525<0) fornext_step_negative5525=1; else fornext_step_negative5525=0; +if (new_error) goto fornext_error5525; +goto fornext_entrylabel5525; +while(1){ +fornext_value5525=fornext_step5525+(*_SUB_IDESHOWTEXT_LONG_X); +fornext_entrylabel5525: +*_SUB_IDESHOWTEXT_LONG_X=fornext_value5525; +if (fornext_step_negative5525){ +if (fornext_value5525fornext_finalvalue5525) break; +} +fornext_error5525:; +if(qbevent){evnt(26307,12918,"ide_methods.bas");if(r)goto S_49399;} +S_49400:; +if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ +if(qbevent){evnt(26307,12919,"ide_methods.bas");if(r)goto S_49400;} +do{ +*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); +if(!qbevent)break;evnt(26307,12920,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr(*_SUB_IDESHOWTEXT_LONG_A),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12920,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26307,12922,"ide_methods.bas");}while(r); +fornext_continue_5524:; +} +fornext_exit_5524:; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12924,"ide_methods.bas");}while(r); +}else{ +S_49408:; +if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26307,12926,"ide_methods.bas");if(r)goto S_49408;} +do{ +goto LABEL_NOFINALSELECT0; +if(!qbevent)break;evnt(26307,12926,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,12927,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_A2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12927,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12928,"ide_methods.bas");}while(r); +LABEL_NOFINALSELECT0:; +if(qbevent){evnt(26307,12929,"ide_methods.bas");r=0;} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; +if(!qbevent)break;evnt(26307,12934,"ide_methods.bas");}while(r); +fornext_continue_5521:; +} +fornext_exit_5521:; +} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,12938,"ide_methods.bas");}while(r); +S_49421:; +fornext_value5527= 1 ; +fornext_finalvalue5527=*__LONG_IDEBMKN; +fornext_step5527= 1 ; +if (fornext_step5527<0) fornext_step_negative5527=1; else fornext_step_negative5527=0; +if (new_error) goto fornext_error5527; +goto fornext_entrylabel5527; +while(1){ +fornext_value5527=fornext_step5527+(*_SUB_IDESHOWTEXT_LONG_B); +fornext_entrylabel5527: +*_SUB_IDESHOWTEXT_LONG_B=fornext_value5527; +if (fornext_step_negative5527){ +if (fornext_value5527fornext_finalvalue5527) break; +} +fornext_error5527:; +if(qbevent){evnt(26307,12939,"ide_methods.bas");if(r)goto S_49421;} +do{ +*_SUB_IDESHOWTEXT_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESHOWTEXT_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)); +if(!qbevent)break;evnt(26307,12940,"ide_methods.bas");}while(r); +S_49423:; +if (((-(*_SUB_IDESHOWTEXT_LONG_Y>=*__LONG_IDESY))&(-(*_SUB_IDESHOWTEXT_LONG_Y<=(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ +if(qbevent){evnt(26307,12941,"ide_methods.bas");if(r)goto S_49423;} +do{ +sub__printstring( 1 , 3 +*_SUB_IDESHOWTEXT_LONG_Y-*__LONG_IDESY,func_chr( 197 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12942,"ide_methods.bas");}while(r); +} +fornext_continue_5526:; +} +fornext_exit_5526:; +do{ +*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass5528= 3 ),&(pass5529=(*__LONG_IDEWY- 8 )),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26307,12946,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEHBAR(&(pass5530= 2 ),&(pass5531=(*__LONG_IDEWY- 5 )),&(pass5532=(*__LONG_IDEWX- 2 )),__LONG_IDESX,&(pass5533= 608 )); +if(!qbevent)break;evnt(26307,12947,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,12950,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_space( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12951,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12952,"ide_methods.bas");}while(r); +do{ +sub_rset(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_str((int32)(*__LONG_IDECY)))); +if(!qbevent)break;evnt(26307,12953,"ide_methods.bas");}while(r); +S_49433:; +if ((-(*__LONG_IDECX< 100000 ))||new_error){ +if(qbevent){evnt(26307,12954,"ide_methods.bas");if(r)goto S_49433;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,func_space( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12955,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_C,qbs_ltrim(qbs_str((int32)(*__LONG_IDECX)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12956,"ide_methods.bas");}while(r); +S_49436:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CC!= -1 ))||new_error){ +if(qbevent){evnt(26307,12957,"ide_methods.bas");if(r)goto S_49436;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_C,qbs_add(qbs_add(qbs_add(_SUB_IDESHOWTEXT_STRING_C,qbs_new_txt_len("(",1)),FUNC_STR2(_SUB_IDESHOWTEXT_LONG_CC)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12957,"ide_methods.bas");}while(r); +} +do{ +sub_lset(_SUB_IDESHOWTEXT_STRING_B,_SUB_IDESHOWTEXT_STRING_C); +if(!qbevent)break;evnt(26307,12958,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_LINENUMBERSTATUS,qbs_add(qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(":",1)),_SUB_IDESHOWTEXT_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12960,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12962,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,12964,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_IDECY-*__LONG_IDESY+ 3 ,*__LONG_MAXLINENUMBERLENGTH+*__LONG_IDECX-*__LONG_IDESX+ 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,12964,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,12964,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,12966,"ide_methods.bas");}while(r); +LABEL_SHOWLINENUMBER:; +if(qbevent){evnt(26307,12967,"ide_methods.bas");r=0;} +S_49447:; +while((-(*_SUB_IDESHOWTEXT_LONG_L>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))||new_error){ +if(qbevent){evnt(26307,12968,"ide_methods.bas");if(r)goto S_49447;} +do{ + +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +preserved_elements=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDEBREAKPOINTS[4]= 0 ; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=(func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)+ 100 )-__ARRAY_BYTE_IDEBREAKPOINTS[4]+1; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=1; +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +tmp_long=__ARRAY_BYTE_IDEBREAKPOINTS[5]; +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elementsfunc_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)))||new_error){ +if(qbevent){evnt(26307,12972,"ide_methods.bas");if(r)goto S_49450;} +do{ + +if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +preserved_elements=__ARRAY_BYTE_IDESKIPLINES[5]; +} +else preserved_elements=0; +__ARRAY_BYTE_IDESKIPLINES[4]= 0 ; +__ARRAY_BYTE_IDESKIPLINES[5]=(func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)+ 100 )-__ARRAY_BYTE_IDESKIPLINES[4]+1; +__ARRAY_BYTE_IDESKIPLINES[6]=1; +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_BYTE_IDESKIPLINES[0]),preserved_elements*1); +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +tmp_long=__ARRAY_BYTE_IDESKIPLINES[5]; +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*1); +memcpy((void*)(__ARRAY_BYTE_IDESKIPLINES[0]),redim_preserve_cmem_buffer,preserved_elements*1); +if (preserved_elements 0 ))&(-(*__LONG_SEARCHSTRINGFOUNDON==*_SUB_IDESHOWTEXT_LONG_L)))|((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))&(-(*__LONG_VWATCHON== 1 ))))||new_error){ +if(qbevent){evnt(26307,12978,"ide_methods.bas");if(r)goto S_49457;} +do{ +qbg_sub_color( 13 , 5 ,NULL,3); +if(!qbevent)break;evnt(26307,12979,"ide_methods.bas");}while(r); +S_49459:; +if (((-(*__LONG_SEARCHSTRINGFOUNDON> 0 ))&(-(*__LONG_SEARCHSTRINGFOUNDON==*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ +if(qbevent){evnt(26307,12980,"ide_methods.bas");if(r)goto S_49459;} +do{ +*__LONG_SEARCHSTRINGFOUNDON= 0 ; +if(!qbevent)break;evnt(26307,12980,"ide_methods.bas");}while(r); +} +} +S_49463:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 )))||new_error){ +if(qbevent){evnt(26307,12982,"ide_methods.bas");if(r)goto S_49463;} +do{ +qbg_sub_color(NULL, 4 ,NULL,2); +if(!qbevent)break;evnt(26307,12982,"ide_methods.bas");}while(r); +} +S_49466:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )))||new_error){ +if(qbevent){evnt(26307,12983,"ide_methods.bas");if(r)goto S_49466;} +do{ +qbg_sub_color( 14 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,12983,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_space(*__LONG_MAXLINENUMBERLENGTH),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12984,"ide_methods.bas");}while(r); +S_49470:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,12985,"ide_methods.bas");if(r)goto S_49470;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_L2,qbs_str((int32)(*_SUB_IDESHOWTEXT_LONG_L))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12986,"ide_methods.bas");}while(r); +S_49472:; +if ((qbs_cleanup(qbs_tmp_base,-(( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ))>=( 2 ))))||new_error){ +if(qbevent){evnt(26307,12987,"ide_methods.bas");if(r)goto S_49472;} +do{ +sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ),*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_L2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12988,"ide_methods.bas");}while(r); +S_49474:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26307,12989,"ide_methods.bas");if(r)goto S_49474;} +S_49475:; +if ((-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 ))||new_error){ +if(qbevent){evnt(26307,12990,"ide_methods.bas");if(r)goto S_49475;} +do{ +sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 7 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12991,"ide_methods.bas");}while(r); +S_49477:; +}else{ +if (-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )){ +if(qbevent){evnt(26307,12992,"ide_methods.bas");if(r)goto S_49477;} +do{ +sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("!",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,12993,"ide_methods.bas");}while(r); +} +} +} +} +} +S_49483:; +if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ +if(qbevent){evnt(26307,12998,"ide_methods.bas");if(r)goto S_49483;} +S_49484:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ +if(qbevent){evnt(26307,12999,"ide_methods.bas");if(r)goto S_49484;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,13000,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13001,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13003,"ide_methods.bas");}while(r); +} +}else{ +S_49491:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ +if(qbevent){evnt(26307,13006,"ide_methods.bas");if(r)goto S_49491;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,13007,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13008,"ide_methods.bas");}while(r); +} +} +do{ +qbg_sub_color(NULL, 1 ,NULL,2); +if(!qbevent)break;evnt(26307,13011,"ide_methods.bas");}while(r); +}else{ +S_49498:; +if (((-(*__LONG_VWATCHON== 1 ))&(((-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 ))|(-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )))))||new_error){ +if(qbevent){evnt(26307,13013,"ide_methods.bas");if(r)goto S_49498;} +do{ +qbg_sub_color( 7 , 4 ,NULL,3); +if(!qbevent)break;evnt(26307,13014,"ide_methods.bas");}while(r); +S_49500:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ +if(qbevent){evnt(26307,13015,"ide_methods.bas");if(r)goto S_49500;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,13016,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13017,"ide_methods.bas");}while(r); +S_49503:; +}else{ +if (-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )){ +if(qbevent){evnt(26307,13018,"ide_methods.bas");if(r)goto S_49503;} +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,13019,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("!",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13020,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 7 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13022,"ide_methods.bas");}while(r); +} +} +S_49509:; +}else{ +if ((-(*__LONG_VWATCHON== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))){ +if(qbevent){evnt(26307,13024,"ide_methods.bas");if(r)goto S_49509;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,13025,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13026,"ide_methods.bas");}while(r); +} +} +} +do{ +#include "ret177.txt" +if(!qbevent)break;evnt(26307,13029,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free177.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDESUBS(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data178.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,13036,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,13037,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,13038,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,8989,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13039,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,8990,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13040,"ide_methods.bas");}while(r); do{ if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDESUBS_ARRAY_UDT_O[4]= 1 ; _FUNC_IDESUBS_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDESUBS_ARRAY_UDT_O[4]+1; _FUNC_IDESUBS_ARRAY_UDT_O[6]=1; if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&4){ -_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0]),0,_FUNC_IDESUBS_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0]),0,_FUNC_IDESUBS_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257); } _FUNC_IDESUBS_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,8991,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13041,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,8992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13042,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13043,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,8997,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_X=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,8998,"ide_methods.bas");}while(r); -S_43595:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_X<=_FUNC_IDESUBS_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,8999,"ide_methods.bas");if(r)goto S_43595;} -S_43596:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(25066,9000,"ide_methods.bas");if(r)goto S_43596;} -do{ -*_FUNC_IDESUBS_LONG_X1=*_FUNC_IDESUBS_LONG_X; -if(!qbevent)break;evnt(25066,9001,"ide_methods.bas");}while(r); -S_43598:; -while((-(*_FUNC_IDESUBS_LONG_X1> 1 ))||new_error){ -if(qbevent){evnt(25066,9002,"ide_methods.bas");if(r)goto S_43598;} -S_43599:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X1- 1 )== 36 ))))||new_error){ -if(qbevent){evnt(25066,9003,"ide_methods.bas");if(r)goto S_43599;} -do{ -*_FUNC_IDESUBS_LONG_X1=*_FUNC_IDESUBS_LONG_X1- 1 ; -if(!qbevent)break;evnt(25066,9003,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_4943; -if(!qbevent)break;evnt(25066,9003,"ide_methods.bas");}while(r); -} -dl_continue_4943:; -} -dl_exit_4943:; -do{ -*_FUNC_IDESUBS_LONG_X2=*_FUNC_IDESUBS_LONG_X; -if(!qbevent)break;evnt(25066,9005,"ide_methods.bas");}while(r); -S_43606:; -while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_X2<_FUNC_IDESUBS_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,9006,"ide_methods.bas");if(r)goto S_43606;} -S_43607:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X2+ 1 )== 36 ))))||new_error){ -if(qbevent){evnt(25066,9007,"ide_methods.bas");if(r)goto S_43607;} -do{ -*_FUNC_IDESUBS_LONG_X2=*_FUNC_IDESUBS_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,9007,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_4945; -if(!qbevent)break;evnt(25066,9007,"ide_methods.bas");}while(r); -} -dl_continue_4945:; -} -dl_exit_4945:; -do{ -qbs_set(_FUNC_IDESUBS_STRING_A2,func_mid(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X1,*_FUNC_IDESUBS_LONG_X2-*_FUNC_IDESUBS_LONG_X1+ 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9009,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_A2,func_chr(qbs_asc(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9011,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9013,"ide_methods.bas");}while(r); -S_43618:; +if(!qbevent)break;evnt(26307,13047,"ide_methods.bas");}while(r); +S_49524:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||new_error){ -if(qbevent){evnt(25066,9014,"ide_methods.bas");if(r)goto S_43618;} -S_43619:; +if(qbevent){evnt(26307,13048,"ide_methods.bas");if(r)goto S_49524;} +S_49525:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,9015,"ide_methods.bas");if(r)goto S_43619;} +if(qbevent){evnt(26307,13049,"ide_methods.bas");if(r)goto S_49525;} do{ qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_left(_FUNC_IDESUBS_STRING_A2,_FUNC_IDESUBS_STRING_A2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9016,"ide_methods.bas");}while(r); -dl_continue_4947:; +if(!qbevent)break;evnt(26307,13050,"ide_methods.bas");}while(r); +S_49527:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len== 0 )))||new_error){ +if(qbevent){evnt(26307,13051,"ide_methods.bas");if(r)goto S_49527;} +do{ +goto dl_exit_5539; +if(!qbevent)break;evnt(26307,13051,"ide_methods.bas");}while(r); } -dl_exit_4947:; +dl_continue_5539:; +} +dl_exit_5539:; +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13057,"ide_methods.bas");}while(r); +S_49533:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,13058,"ide_methods.bas");if(r)goto S_49533;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13058,"ide_methods.bas");}while(r); +} +S_49536:; +if ((-(*__LONG_IDEWX< 100 ))||new_error){ +if(qbevent){evnt(26307,13060,"ide_methods.bas");if(r)goto S_49536;} +do{ +*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 20 ; +if(!qbevent)break;evnt(26307,13061,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 42 ; +if(!qbevent)break;evnt(26307,13063,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_L->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13066,"ide_methods.bas");}while(r); +S_49542:; +if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>(*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT+ 2 )))||new_error){ +if(qbevent){evnt(26307,13067,"ide_methods.bas");if(r)goto S_49542;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT- 1 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13068,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT; +if(!qbevent)break;evnt(26307,13069,"ide_methods.bas");}while(r); +S_49545:; +}else{ +if (-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN< 10 )){ +if(qbevent){evnt(26307,13070,"ide_methods.bas");if(r)goto S_49545;} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN= 10 ; +if(!qbevent)break;evnt(26307,13071,"ide_methods.bas");}while(r); } } do{ qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9023,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13074,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,_FUNC_IDESUBS_STRING_LY); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9024,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13075,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ; -if(!qbevent)break;evnt(25066,9025,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13076,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ; -if(!qbevent)break;evnt(25066,9026,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13077,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(25066,9027,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13078,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(25066,9028,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13079,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9029,"ide_methods.bas");}while(r); -S_43631:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,9030,"ide_methods.bas");if(r)goto S_43631;} +*_FUNC_IDESUBS_LONG_MAXLINECOUNT= 0 ; +if(!qbevent)break;evnt(26307,13080,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9030,"ide_methods.bas");}while(r); + +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){ +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); } +} +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]= 1 ; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=( 100 )-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]+1; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=1; +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){ +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]*998); +memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]*998); +}else{ +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]*998,1); +if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257); +} +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1; +} +if(!qbevent)break;evnt(26307,13082,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9031,"ide_methods.bas");}while(r); + +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){ +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); +} +} +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]= 1 ; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=( 100 )-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]+1; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=1; +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){ +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]*998); +memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]*998); +}else{ +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]*998,1); +if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257); +} +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1; +} +if(!qbevent)break;evnt(26307,13083,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){ +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); +} +} +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=( 100 )-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]+1; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=1; +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]*4); +memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]*4); +}else{ +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]*4,1); +if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257); +} +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,13084,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){ +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]); +free((void*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0])); +} +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=( 100 )-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=1; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]*8); +if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257); +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1; +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){ +while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,13085,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){ +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0])); +}else{ +free((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0])); +} +} +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=( 100 )-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]+1; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=1; +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){ +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]*4); +memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]*4); +}else{ +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]*4,1); +if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257); +} +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1; +} +if(!qbevent)break;evnt(26307,13086,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){ +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]); +free((void*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0])); +} +_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=( 100 )-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=1; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc(_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]*8); +if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257); +_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1; +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){ +while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,13087,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id); +if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){ +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]); +free((void*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0])); +} +_FUNC_IDESUBS_ARRAY_STRING_SF[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_SF[5]=( 100 )-_FUNC_IDESUBS_ARRAY_STRING_SF[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_SF[6]=1; +_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc(_FUNC_IDESUBS_ARRAY_STRING_SF[5]*8); +if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257); +_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1; +tmp_long=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){ +while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,13088,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ; -if(!qbevent)break;evnt(25066,9033,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13090,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; +if(!qbevent)break;evnt(26307,13091,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; -if(!qbevent)break;evnt(25066,9034,"ide_methods.bas");}while(r); -S_43637:; -fornext_value4950= 1 ; -fornext_finalvalue4950=*__LONG_IDEN; -fornext_step4950= 1 ; -if (fornext_step4950<0) fornext_step_negative4950=1; else fornext_step_negative4950=0; -if (new_error) goto fornext_error4950; -goto fornext_entrylabel4950; +if(!qbevent)break;evnt(26307,13092,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; +if(!qbevent)break;evnt(26307,13093,"ide_methods.bas");}while(r); +S_49566:; +fornext_value5544= 1 ; +fornext_finalvalue5544=*__LONG_IDEN; +fornext_step5544= 1 ; +if (fornext_step5544<0) fornext_step_negative5544=1; else fornext_step_negative5544=0; +if (new_error) goto fornext_error5544; +goto fornext_entrylabel5544; while(1){ -fornext_value4950=fornext_step4950+(*_FUNC_IDESUBS_LONG_Y); -fornext_entrylabel4950: -*_FUNC_IDESUBS_LONG_Y=fornext_value4950; -if (fornext_step_negative4950){ -if (fornext_value4950fornext_finalvalue4950) break; +if (fornext_value5544>fornext_finalvalue5544) break; } -fornext_error4950:; -if(qbevent){evnt(25066,9036,"ide_methods.bas");if(r)goto S_43637;} +fornext_error5544:; +if(qbevent){evnt(26307,13095,"ide_methods.bas");if(r)goto S_49566;} do{ qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9037,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13096,"ide_methods.bas");}while(r); +S_49568:; +if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ +if(qbevent){evnt(26307,13097,"ide_methods.bas");if(r)goto S_49568;} +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; +if(!qbevent)break;evnt(26307,13097,"ide_methods.bas");}while(r); +} do{ qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9038,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13098,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SF= 0 ; -if(!qbevent)break;evnt(25066,9039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13099,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_ucase(_FUNC_IDESUBS_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9040,"ide_methods.bas");}while(r); -S_43642:; +if(!qbevent)break;evnt(26307,13100,"ide_methods.bas");}while(r); +S_49574:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(25066,9041,"ide_methods.bas");if(r)goto S_43642;} +if(qbevent){evnt(26307,13101,"ide_methods.bas");if(r)goto S_49574;} do{ *_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(25066,9041,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13101,"ide_methods.bas");}while(r); } -S_43645:; +S_49577:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(25066,9042,"ide_methods.bas");if(r)goto S_43645;} +if(qbevent){evnt(26307,13102,"ide_methods.bas");if(r)goto S_49577;} do{ *_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(25066,9042,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13102,"ide_methods.bas");}while(r); } -S_43648:; +S_49580:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(25066,9043,"ide_methods.bas");if(r)goto S_43648;} +if(qbevent){evnt(26307,13103,"ide_methods.bas");if(r)goto S_49580;} do{ *_FUNC_IDESUBS_LONG_SF= 1 ; -if(!qbevent)break;evnt(25066,9043,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13103,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB ",5)); +qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB ",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9043,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13103,"ide_methods.bas");}while(r); } -S_43652:; +S_49584:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(25066,9044,"ide_methods.bas");if(r)goto S_43652;} +if(qbevent){evnt(26307,13104,"ide_methods.bas");if(r)goto S_49584;} do{ *_FUNC_IDESUBS_LONG_SF= 2 ; -if(!qbevent)break;evnt(25066,9044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13104,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC ",5)); +qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC ",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13104,"ide_methods.bas");}while(r); } -S_43656:; +S_49588:; if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ -if(qbevent){evnt(25066,9045,"ide_methods.bas");if(r)goto S_43656;} -S_43657:; +if(qbevent){evnt(26307,13105,"ide_methods.bas");if(r)goto S_49588;} +do{ +*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ; +if(!qbevent)break;evnt(26307,13107,"ide_methods.bas");}while(r); +S_49590:; +if ((~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE))||new_error){ +if(qbevent){evnt(26307,13108,"ide_methods.bas");if(r)goto S_49590;} +do{ +*_FUNC_IDESUBS_LONG_LASTOPENSUB=*_FUNC_IDESUBS_LONG_TOTALSUBS; +if(!qbevent)break;evnt(26307,13108,"ide_methods.bas");}while(r); +} +S_49593:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_TOTALSUBS>func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1))))||new_error){ +if(qbevent){evnt(26307,13109,"ide_methods.bas");if(r)goto S_49593;} +do{ + +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]= 1 ; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]+1; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=1; +if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),preserved_elements*998); +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0])); +tmp_long=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]; +_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*998); +memcpy((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),redim_preserve_cmem_buffer,preserved_elements*998); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]= 1 ; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]+1; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=1; +if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),preserved_elements*998); +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0])); +tmp_long=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]; +_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*998); +memcpy((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),redim_preserve_cmem_buffer,preserved_elements*998); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]+1; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=1; +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); +tmp_long=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]+1; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=1; +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0])); +tmp_long=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING_SF[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_SF[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-_FUNC_IDESUBS_ARRAY_STRING_SF[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_SF[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +if (tmp_long2len- 7 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9047,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13120,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDESUBS_STRING_LY,qbs_add(_FUNC_IDESUBS_STRING_LY,l2string(*_FUNC_IDESUBS_LONG_Y))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9049,"ide_methods.bas");}while(r); -S_43661:; +if(!qbevent)break;evnt(26307,13124,"ide_methods.bas");}while(r); +S_49606:; if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||new_error){ -if(qbevent){evnt(25066,9053,"ide_methods.bas");if(r)goto S_43661;} +if(qbevent){evnt(26307,13128,"ide_methods.bas");if(r)goto S_49606;} do{ *_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13129,"ide_methods.bas");}while(r); } -S_43664:; +S_49609:; if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(25066,9058,"ide_methods.bas");if(r)goto S_43664;} +if(qbevent){evnt(26307,13133,"ide_methods.bas");if(r)goto S_49609;} do{ qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 4 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9059,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13134,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 9 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9061,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13136,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9063,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13138,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_A,qbs_new_txt_len("(",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9064,"ide_methods.bas");}while(r); -S_43671:; +if(!qbevent)break;evnt(26307,13139,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,13140,"ide_methods.bas");}while(r); +S_49617:; if ((*_FUNC_IDESUBS_LONG_X)||new_error){ -if(qbevent){evnt(25066,9065,"ide_methods.bas");if(r)goto S_43671;} +if(qbevent){evnt(26307,13141,"ide_methods.bas");if(r)goto S_49617;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_LONG_X,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13141,"ide_methods.bas");}while(r); +} +S_49620:; +if (((-(*_FUNC_IDESUBS_LONG_X> 0 ))&(-(*_FUNC_IDESUBS_BYTE_COMMENT== 0 ))&(-(*_FUNC_IDESUBS_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26307,13142,"ide_methods.bas");if(r)goto S_49620;} do{ qbs_set(_FUNC_IDESUBS_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13143,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len-*_FUNC_IDESUBS_LONG_X+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9067,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13144,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_X= 1 ; +if(!qbevent)break;evnt(26307,13145,"ide_methods.bas");}while(r); +S_49624:; +fornext_value5551= 2 ; +fornext_finalvalue5551=_FUNC_IDESUBS_STRING_ARGS->len; +fornext_step5551= 1 ; +if (fornext_step5551<0) fornext_step_negative5551=1; else fornext_step_negative5551=0; +if (new_error) goto fornext_error5551; +goto fornext_entrylabel5551; +while(1){ +fornext_value5551=fornext_step5551+(*_FUNC_IDESUBS_LONG_I); +fornext_entrylabel5551: +*_FUNC_IDESUBS_LONG_I=fornext_value5551; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5551){ +if (fornext_value5551fornext_finalvalue5551) break; +} +fornext_error5551:; +if(qbevent){evnt(26307,13146,"ide_methods.bas");if(r)goto S_49624;} +S_49625:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 40 )))||new_error){ +if(qbevent){evnt(26307,13147,"ide_methods.bas");if(r)goto S_49625;} +do{ +*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,13147,"ide_methods.bas");}while(r); +} +S_49628:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 41 )))||new_error){ +if(qbevent){evnt(26307,13148,"ide_methods.bas");if(r)goto S_49628;} +do{ +*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X- 1 ; +if(!qbevent)break;evnt(26307,13148,"ide_methods.bas");}while(r); +} +S_49631:; +if ((-(*_FUNC_IDESUBS_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(26307,13149,"ide_methods.bas");if(r)goto S_49631;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13149,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5550; +if(!qbevent)break;evnt(26307,13149,"ide_methods.bas");}while(r); +} +fornext_continue_5550:; +} +fornext_exit_5550:; }else{ do{ qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9069,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13152,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("()",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9070,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13153,"ide_methods.bas");}while(r); } -S_43678:; -fornext_value4957= 1 ; -fornext_finalvalue4957=_FUNC_IDESUBS_STRING_N->len; -fornext_step4957= 1 ; -if (fornext_step4957<0) fornext_step_negative4957=1; else fornext_step_negative4957=0; -if (new_error) goto fornext_error4957; -goto fornext_entrylabel4957; -while(1){ -fornext_value4957=fornext_step4957+(*_FUNC_IDESUBS_LONG_CLEANSEN); -fornext_entrylabel4957: -*_FUNC_IDESUBS_LONG_CLEANSEN=fornext_value4957; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4957){ -if (fornext_value4957fornext_finalvalue4957) break; -} -fornext_error4957:; -if(qbevent){evnt(25066,9074,"ide_methods.bas");if(r)goto S_43678;} -S_43679:; -qbs_set(sc_4959,func_mid(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_CLEANSEN, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,9075,"ide_methods.bas");if(r)goto S_43679;} -S_43680:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4959,qbs_new_txt_len(" ",1))||qbs_equal(sc_4959,qbs_new_txt_len("'",1))||qbs_equal(sc_4959,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,9076,"ide_methods.bas");if(r)goto S_43680;} do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_CLEANSEN- 1 )); +SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9077,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13155,"ide_methods.bas");}while(r); +S_49641:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26307,13156,"ide_methods.bas");if(r)goto S_49641;} do{ -goto fornext_exit_4956; -if(!qbevent)break;evnt(25066,9078,"ide_methods.bas");}while(r); -goto sc_4959_end; +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_N->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13156,"ide_methods.bas");}while(r); } -sc_4959_end:; -fornext_continue_4956:; +S_49644:; +if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT))||new_error){ +if(qbevent){evnt(26307,13157,"ide_methods.bas");if(r)goto S_49644;} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT; +if(!qbevent)break;evnt(26307,13157,"ide_methods.bas");}while(r); } -fornext_exit_4956:; do{ qbs_set(_FUNC_IDESUBS_STRING_N2,_FUNC_IDESUBS_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9084,"ide_methods.bas");}while(r); -S_43686:; +if(!qbevent)break;evnt(26307,13161,"ide_methods.bas");}while(r); +S_49648:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||new_error){ -if(qbevent){evnt(25066,9085,"ide_methods.bas");if(r)goto S_43686;} -S_43687:; +if(qbevent){evnt(26307,13162,"ide_methods.bas");if(r)goto S_49648;} +S_49649:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,9086,"ide_methods.bas");if(r)goto S_43687;} +if(qbevent){evnt(26307,13163,"ide_methods.bas");if(r)goto S_49649;} do{ qbs_set(_FUNC_IDESUBS_STRING_N2,qbs_left(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_N2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9087,"ide_methods.bas");}while(r); -dl_continue_4961:; +if(!qbevent)break;evnt(26307,13164,"ide_methods.bas");}while(r); +dl_continue_5556:; } -dl_exit_4961:; +dl_exit_5556:; } -S_43691:; +S_49653:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||new_error){ -if(qbevent){evnt(25066,9090,"ide_methods.bas");if(r)goto S_43691;} +if(qbevent){evnt(26307,13167,"ide_methods.bas");if(r)goto S_49653;} do{ *_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13167,"ide_methods.bas");}while(r); } -S_43694:; +S_49656:; if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||new_error){ -if(qbevent){evnt(25066,9092,"ide_methods.bas");if(r)goto S_43694;} +if(qbevent){evnt(26307,13169,"ide_methods.bas");if(r)goto S_49656;} do{ qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_new_txt_len("*",1),_FUNC_IDESUBS_STRING_N)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13170,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ; -if(!qbevent)break;evnt(25066,9092,"ide_methods.bas");}while(r); -} -S_43698:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len<= 20 )))||new_error){ -if(qbevent){evnt(25066,9094,"ide_methods.bas");if(r)goto S_43698;} +if(!qbevent)break;evnt(26307,13171,"ide_methods.bas");}while(r); +}else{ +S_49660:; +if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ +if(qbevent){evnt(26307,13173,"ide_methods.bas");if(r)goto S_49660;} do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space( 20 -_FUNC_IDESUBS_STRING_N->len))); +*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; +if(!qbevent)break;evnt(26307,13173,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=157; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDLINECOUNT; +RETURN_157:; +if(!qbevent)break;evnt(26307,13173,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; +if(!qbevent)break;evnt(26307,13174,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; +if(!qbevent)break;evnt(26307,13175,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long])),_FUNC_IDESUBS_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9095,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13179,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]); +if (!new_error) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_Y; +if(!qbevent)break;evnt(26307,13180,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long])),_FUNC_IDESUBS_STRING_ARGS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13181,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long])),_FUNC_IDESUBS_STRING_SF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13182,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N, 17 ),func_string( 3 , 250 ))); +*_FUNC_IDESUBS_LONG_I=func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" ",2),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9097,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13185,"ide_methods.bas");}while(r); +S_49673:; +while((-(*_FUNC_IDESUBS_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26307,13186,"ide_methods.bas");if(r)goto S_49673;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I),func_mid(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13187,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_I=func_instr(*_FUNC_IDESUBS_LONG_I,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" ",2),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13188,"ide_methods.bas");}while(r); +dl_continue_5559:; } -S_43703:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||new_error){ -if(qbevent){evnt(25066,9099,"ide_methods.bas");if(r)goto S_43703;} +dl_exit_5559:; do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9100,"ide_methods.bas");}while(r); -}else{ +*_FUNC_IDESUBS_LONG_CURSOR= 0 ; +if(!qbevent)break;evnt(26307,13191,"ide_methods.bas");}while(r); +LABEL_LOOKFORENDSUB:; +if(qbevent){evnt(26307,13192,"ide_methods.bas");r=0;} do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 ))); +*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END SUB",7),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9102,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13193,"ide_methods.bas");}while(r); +S_49679:; +if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||new_error){ +if(qbevent){evnt(26307,13194,"ide_methods.bas");if(r)goto S_49679;} +do{ +*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13194,"ide_methods.bas");}while(r); +} +S_49682:; +if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ +if(qbevent){evnt(26307,13196,"ide_methods.bas");if(r)goto S_49682;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_NCA,_FUNC_IDESUBS_LONG_SF,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13197,"ide_methods.bas");}while(r); +S_49684:; +if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26307,13198,"ide_methods.bas");if(r)goto S_49684;} +do{ +*_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF; +if(!qbevent)break;evnt(26307,13198,"ide_methods.bas");}while(r); +do{ +goto LABEL_LOOKFORENDSUB; +if(!qbevent)break;evnt(26307,13198,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_L,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",1)),_FUNC_IDESUBS_STRING_SF),_FUNC_IDESUBS_STRING_ARGS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9104,"ide_methods.bas");}while(r); +return_point[next_return_point++]=158; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDLINECOUNT; +RETURN_158:; +if(!qbevent)break;evnt(26307,13199,"ide_methods.bas");}while(r); +} +} +fornext_continue_5543:; +} +fornext_exit_5543:; +S_49692:; +if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ +if(qbevent){evnt(26307,13204,"ide_methods.bas");if(r)goto S_49692;} do{ -*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ; -if(!qbevent)break;evnt(25066,9107,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=((int32)(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len(" ",1)),_FUNC_IDESUBS_STRING_SF),_FUNC_IDESUBS_STRING_ARGS))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9108,"ide_methods.bas");}while(r); +return_point[next_return_point++]=159; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDLINECOUNT; +RETURN_159:; +if(!qbevent)break;evnt(26307,13204,"ide_methods.bas");}while(r); +} +S_49695:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))&(-(*_FUNC_IDESUBS_LONG_TOTALSUBSlen; -fornext_finalvalue4969= 1 ; -fornext_step4969= -1 ; -if (fornext_step4969<0) fornext_step_negative4969=1; else fornext_step_negative4969=0; -if (new_error) goto fornext_error4969; -goto fornext_entrylabel4969; -while(1){ -fornext_value4969=fornext_step4969+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel4969: -*_FUNC_IDESUBS_LONG_X=fornext_value4969; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4969){ -if (fornext_value4969fornext_finalvalue4969) break; +((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]; } -fornext_error4969:; -if(qbevent){evnt(25066,9118,"ide_methods.bas");if(r)goto S_43719;} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]+1; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=1; +if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0])); +tmp_long=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]; +_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]= 0 ; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]+1; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=1; +if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),preserved_elements*4); +cmem_dynamic_free((uint8*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0])); +tmp_long=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]; +_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); +memcpy((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),redim_preserve_cmem_buffer,preserved_elements*4); +if (preserved_elementsid=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){ +preserved_elements=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +} +else preserved_elements=0; +_FUNC_IDESUBS_ARRAY_STRING_SF[4]= 0 ; +_FUNC_IDESUBS_ARRAY_STRING_SF[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4]+1; +_FUNC_IDESUBS_ARRAY_STRING_SF[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDESUBS_ARRAY_STRING_SF[5]; +if (tmp_long2 0 ))||new_error){ +if(qbevent){evnt(26307,13218,"ide_methods.bas");if(r)goto S_49704;} +S_49705:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_str((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT))))->len)<= 10 )))||new_error){ +if(qbevent){evnt(26307,13219,"ide_methods.bas");if(r)goto S_49705;} +do{ +*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 10 ; +if(!qbevent)break;evnt(26307,13220,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Line count",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9119,"ide_methods.bas");}while(r); -S_43721:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A,func_chr( 195 ))))||new_error){ -if(qbevent){evnt(25066,9120,"ide_methods.bas");if(r)goto S_43721;} +if(!qbevent)break;evnt(26307,13221,"ide_methods.bas");}while(r); do{ -sub_mid(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_X, 1 ,func_chr( 192 ),1); -if(!qbevent)break;evnt(25066,9120,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,qbs_new_txt_len("external",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13222,"ide_methods.bas");}while(r); +} +S_49710:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_str((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT))))->len)<= 5 )))||new_error){ +if(qbevent){evnt(26307,13224,"ide_methods.bas");if(r)goto S_49710;} do{ -goto fornext_exit_4968; -if(!qbevent)break;evnt(25066,9120,"ide_methods.bas");}while(r); +*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 5 ; +if(!qbevent)break;evnt(26307,13225,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Lines",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13226,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,func_chr( 196 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13227,"ide_methods.bas");}while(r); } -fornext_continue_4968:; +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space((*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+ 2 )-_FUNC_IDESUBS_STRING_L->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13230,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13231,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13232,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len(" Type Arguments",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13233,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13234,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13235,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len(" Type Arguments",17)),_FUNC_IDESUBS_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13236,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len(" Type Arguments",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13237,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13239,"ide_methods.bas");}while(r); +S_49725:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,13240,"ide_methods.bas");if(r)goto S_49725;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13240,"ide_methods.bas");}while(r); } -fornext_exit_4968:; -S_43726:; +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13241,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_DIALOGWIDTH= 50 ; +if(!qbevent)break;evnt(26307,13245,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_ARGSLENGTH= 2 ; +if(!qbevent)break;evnt(26307,13246,"ide_methods.bas");}while(r); +S_49732:; +fornext_value5562= 1 ; +fornext_finalvalue5562=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5562= 1 ; +if (fornext_step5562<0) fornext_step_negative5562=1; else fornext_step_negative5562=0; +if (new_error) goto fornext_error5562; +goto fornext_entrylabel5562; +while(1){ +fornext_value5562=fornext_step5562+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5562: +*_FUNC_IDESUBS_LONG_X=fornext_value5562; +if (fornext_step_negative5562){ +if (fornext_value5562fornext_finalvalue5562) break; +} +fornext_error5562:; +if(qbevent){evnt(26307,13247,"ide_methods.bas");if(r)goto S_49732;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13248,"ide_methods.bas");}while(r); +S_49734:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26307,13249,"ide_methods.bas");if(r)goto S_49734;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN- 3 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13250,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN-_FUNC_IDESUBS_STRING_N->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13252,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13255,"ide_methods.bas");}while(r); +S_49740:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len>*_FUNC_IDESUBS_LONG_ARGSLENGTH)))||new_error){ +if(qbevent){evnt(26307,13256,"ide_methods.bas");if(r)goto S_49740;} +do{ +*_FUNC_IDESUBS_LONG_ARGSLENGTH=_FUNC_IDESUBS_STRING_ARGS->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13256,"ide_methods.bas");}while(r); +} +S_49743:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||new_error){ +if(qbevent){evnt(26307,13257,"ide_methods.bas");if(r)goto S_49743;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13258,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13260,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_SF,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13263,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_L,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13266,"ide_methods.bas");}while(r); +S_49750:; +if ((-(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26307,13268,"ide_methods.bas");if(r)goto S_49750;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13268,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13268,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS),_FUNC_IDESUBS_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13271,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LISTITEM,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len(" ",2)),func_chr( 1 )),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13273,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=_FUNC_IDESUBS_STRING_LISTITEM->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13274,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[tmp_long*998],998,1),qbs_ucase(_FUNC_IDESUBS_STRING_LISTITEM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13275,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[tmp_long*998],998,1),_FUNC_IDESUBS_STRING_LISTITEM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13276,"ide_methods.bas");}while(r); +do{ +sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1); +if(!qbevent)break;evnt(26307,13277,"ide_methods.bas");}while(r); +do{ +sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1); +if(!qbevent)break;evnt(26307,13278,"ide_methods.bas");}while(r); +fornext_continue_5561:; +} +fornext_exit_5561:; +do{ +sub_mid(_FUNC_IDESUBS_STRING_L,func__instrrev(NULL,_FUNC_IDESUBS_STRING_L,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26307,13281,"ide_methods.bas");}while(r); +do{ +sub_mid(_FUNC_IDESUBS_STRING_LSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26307,13282,"ide_methods.bas");}while(r); +S_49765:; if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ -if(qbevent){evnt(25066,9123,"ide_methods.bas");if(r)goto S_43726;} +if(qbevent){evnt(26307,13284,"ide_methods.bas");if(r)goto S_49765;} do{ SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9124,"ide_methods.bas");}while(r); -S_43728:; -fornext_value4972= 1 ; -fornext_finalvalue4972=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step4972= 1 ; -if (fornext_step4972<0) fornext_step_negative4972=1; else fornext_step_negative4972=0; -if (new_error) goto fornext_error4972; -goto fornext_entrylabel4972; +if(!qbevent)break;evnt(26307,13285,"ide_methods.bas");}while(r); +S_49767:; +fornext_value5572= 1 ; +fornext_finalvalue5572=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5572= 1 ; +if (fornext_step5572<0) fornext_step_negative5572=1; else fornext_step_negative5572=0; +if (new_error) goto fornext_error5572; +goto fornext_entrylabel5572; while(1){ -fornext_value4972=fornext_step4972+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel4972: -*_FUNC_IDESUBS_LONG_X=fornext_value4972; -if (fornext_step_negative4972){ -if (fornext_value4972fornext_finalvalue4972) break; +if (fornext_value5572>fornext_finalvalue5572) break; } -fornext_error4972:; -if(qbevent){evnt(25066,9125,"ide_methods.bas");if(r)goto S_43728;} +fornext_error5572:; +if(qbevent){evnt(26307,13287,"ide_methods.bas");if(r)goto S_49767;} do{ *_FUNC_IDESUBS_LONG_LISTITEMLENGTH=string2i(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9126,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13288,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,qbs_add(_FUNC_IDESUBS_STRING_LYSORTED,func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9127,"ide_methods.bas");}while(r); -S_43731:; -fornext_value4976= 1 ; -fornext_finalvalue4976=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step4976= 1 ; -if (fornext_step4976<0) fornext_step_negative4976=1; else fornext_step_negative4976=0; -if (new_error) goto fornext_error4976; -goto fornext_entrylabel4976; +if(!qbevent)break;evnt(26307,13289,"ide_methods.bas");}while(r); +S_49770:; +fornext_value5576= 1 ; +fornext_finalvalue5576=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5576= 1 ; +if (fornext_step5576<0) fornext_step_negative5576=1; else fornext_step_negative5576=0; +if (new_error) goto fornext_error5576; +goto fornext_entrylabel5576; while(1){ -fornext_value4976=fornext_step4976+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP); -fornext_entrylabel4976: -*_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value4976; -if (fornext_step_negative4976){ -if (fornext_value4976fornext_finalvalue4976) break; +if (fornext_value5576>fornext_finalvalue5576) break; } -fornext_error4976:; -if(qbevent){evnt(25066,9128,"ide_methods.bas");if(r)goto S_43731;} -S_43732:; +fornext_error5576:; +if(qbevent){evnt(26307,13290,"ide_methods.bas");if(r)goto S_49770;} +S_49771:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),998- 6 , 4 ,1))))||new_error){ -if(qbevent){evnt(25066,9129,"ide_methods.bas");if(r)goto S_43732;} +if(qbevent){evnt(26307,13291,"ide_methods.bas");if(r)goto S_49771;} do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),qbs_left(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),*_FUNC_IDESUBS_LONG_LISTITEMLENGTH))); +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9130,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13292,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4975; -if(!qbevent)break;evnt(25066,9131,"ide_methods.bas");}while(r); -} -fornext_continue_4975:; -} -fornext_exit_4975:; -fornext_continue_4971:; -} -fornext_exit_4971:; -S_43738:; -fornext_value4980=_FUNC_IDESUBS_STRING_LSORTED->len; -fornext_finalvalue4980= 1 ; -fornext_step4980= -1 ; -if (fornext_step4980<0) fornext_step_negative4980=1; else fornext_step_negative4980=0; -if (new_error) goto fornext_error4980; -goto fornext_entrylabel4980; -while(1){ -fornext_value4980=fornext_step4980+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel4980: -*_FUNC_IDESUBS_LONG_X=fornext_value4980; +qbs_set(_FUNC_IDESUBS_STRING_TEMP,qbs_left(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)); qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4980){ -if (fornext_value4980fornext_finalvalue4980) break; -} -fornext_error4980:; -if(qbevent){evnt(25066,9136,"ide_methods.bas");if(r)goto S_43738;} +if(!qbevent)break;evnt(26307,13293,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDESUBS_STRING_A,func_mid(_FUNC_IDESUBS_STRING_LSORTED,*_FUNC_IDESUBS_LONG_X, 1 ,1)); +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9137,"ide_methods.bas");}while(r); -S_43740:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A,func_chr( 195 ))))||new_error){ -if(qbevent){evnt(25066,9138,"ide_methods.bas");if(r)goto S_43740;} +if(!qbevent)break;evnt(26307,13295,"ide_methods.bas");}while(r); do{ -sub_mid(_FUNC_IDESUBS_STRING_LSORTED,*_FUNC_IDESUBS_LONG_X, 1 ,func_chr( 192 ),1); -if(!qbevent)break;evnt(25066,9138,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13297,"ide_methods.bas");}while(r); +S_49776:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_TEMP, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26307,13298,"ide_methods.bas");if(r)goto S_49776;} do{ -goto fornext_exit_4979; -if(!qbevent)break;evnt(25066,9138,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13298,"ide_methods.bas");}while(r); } -fornext_continue_4979:; +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13299,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13302,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5575; +if(!qbevent)break;evnt(26307,13303,"ide_methods.bas");}while(r); } -fornext_exit_4979:; +fornext_continue_5575:; +} +fornext_exit_5575:; +fornext_continue_5571:; +} +fornext_exit_5571:; +do{ +sub_mid(_FUNC_IDESUBS_STRING_LSORTED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26307,13308,"ide_methods.bas");}while(r); +do{ +sub_mid(_FUNC_IDESUBS_STRING_LSORTEDSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTEDSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26307,13309,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; -if(!qbevent)break;evnt(25066,9140,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13310,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ; -if(!qbevent)break;evnt(25066,9142,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13312,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,9146,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13316,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) ),&(pass4982=*__LONG_IDEWX- 8 ),&(pass4983=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ),qbs_new_txt_len("SUBs",4)); +*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 4 ; +if(!qbevent)break;evnt(26307,13317,"ide_methods.bas");}while(r); +S_49793:; +if ((-(*_FUNC_IDESUBS_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26307,13318,"ide_methods.bas");if(r)goto S_49793;} +do{ +*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26307,13319,"ide_methods.bas");}while(r); +} +S_49796:; +if ((-((*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 )>*_FUNC_IDESUBS_LONG_DIALOGWIDTH))||new_error){ +if(qbevent){evnt(26307,13322,"ide_methods.bas");if(r)goto S_49796;} +do{ +*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 ; +if(!qbevent)break;evnt(26307,13322,"ide_methods.bas");}while(r); +} +S_49799:; +if ((-(*_FUNC_IDESUBS_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,13323,"ide_methods.bas");if(r)goto S_49799;} +do{ +*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,13323,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) ),_FUNC_IDESUBS_LONG_DIALOGWIDTH,_FUNC_IDESUBS_LONG_DIALOGHEIGHT,qbs_new_txt_len("SUBs",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9147,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13325,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9149,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13327,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,9150,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,13328,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+24))= 1 ; -if(!qbevent)break;evnt(25066,9151,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))= 1 ; +if(!qbevent)break;evnt(26307,13329,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+28))=*__LONG_IDEWX- 12 ; -if(!qbevent)break;evnt(25066,9153,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,13331,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(25066,9153,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L); -if(!qbevent)break;evnt(25066,9154,"ide_methods.bas");}while(r); -S_43757:; +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT- 3 ; +if(!qbevent)break;evnt(26307,13331,"ide_methods.bas");}while(r); +S_49808:; if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ -if(qbevent){evnt(25066,9155,"ide_methods.bas");if(r)goto S_43757;} -S_43758:; -if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ -if(qbevent){evnt(25066,9156,"ide_methods.bas");if(r)goto S_43758;} +if(qbevent){evnt(26307,13332,"ide_methods.bas");if(r)goto S_49808;} +S_49809:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26307,13333,"ide_methods.bas");if(r)goto S_49809;} do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC; -if(!qbevent)break;evnt(25066,9157,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSIZED); +if(!qbevent)break;evnt(26307,13334,"ide_methods.bas");}while(r); }else{ do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC; -if(!qbevent)break;evnt(25066,9159,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L); +if(!qbevent)break;evnt(26307,13336,"ide_methods.bas");}while(r); +} +S_49814:; +if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ +if(qbevent){evnt(26307,13339,"ide_methods.bas");if(r)goto S_49814;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC; +if(!qbevent)break;evnt(26307,13340,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC; +if(!qbevent)break;evnt(26307,13342,"ide_methods.bas");}while(r); } }else{ do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9162,"ide_methods.bas");}while(r); -S_43765:; +if(!qbevent)break;evnt(26307,13345,"ide_methods.bas");}while(r); +S_49821:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26307,13346,"ide_methods.bas");if(r)goto S_49821;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTEDSIZED); +if(!qbevent)break;evnt(26307,13347,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTED); +if(!qbevent)break;evnt(26307,13349,"ide_methods.bas");}while(r); +} +S_49826:; if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ -if(qbevent){evnt(25066,9163,"ide_methods.bas");if(r)goto S_43765;} -S_43766:; -fornext_value4985= 1 ; -fornext_finalvalue4985=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step4985= 1 ; -if (fornext_step4985<0) fornext_step_negative4985=1; else fornext_step_negative4985=0; -if (new_error) goto fornext_error4985; -goto fornext_entrylabel4985; +if(qbevent){evnt(26307,13351,"ide_methods.bas");if(r)goto S_49826;} +S_49827:; +fornext_value5581= 1 ; +fornext_finalvalue5581=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5581= 1 ; +if (fornext_step5581<0) fornext_step_negative5581=1; else fornext_step_negative5581=0; +if (new_error) goto fornext_error5581; +goto fornext_entrylabel5581; while(1){ -fornext_value4985=fornext_step4985+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel4985: -*_FUNC_IDESUBS_LONG_X=fornext_value4985; -if (fornext_step_negative4985){ -if (fornext_value4985fornext_finalvalue4985) break; +if (fornext_value5581>fornext_finalvalue5581) break; } -fornext_error4985:; -if(qbevent){evnt(25066,9164,"ide_methods.bas");if(r)goto S_43766;} -S_43767:; +fornext_error5581:; +if(qbevent){evnt(26307,13352,"ide_methods.bas");if(r)goto S_49827;} +S_49828:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC* 4 )-( 3 ), 4 ,1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,1))))||new_error){ -if(qbevent){evnt(25066,9165,"ide_methods.bas");if(r)goto S_43767;} +if(qbevent){evnt(26307,13353,"ide_methods.bas");if(r)goto S_49828;} do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,9166,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,13354,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4984; -if(!qbevent)break;evnt(25066,9167,"ide_methods.bas");}while(r); +goto fornext_exit_5580; +if(!qbevent)break;evnt(26307,13355,"ide_methods.bas");}while(r); } -fornext_continue_4984:; +fornext_continue_5580:; } -fornext_exit_4984:; +fornext_exit_5580:; }else{ -S_43773:; -fornext_value4988= 1 ; -fornext_finalvalue4988=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step4988= 1 ; -if (fornext_step4988<0) fornext_step_negative4988=1; else fornext_step_negative4988=0; -if (new_error) goto fornext_error4988; -goto fornext_entrylabel4988; +S_49834:; +fornext_value5584= 1 ; +fornext_finalvalue5584=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5584= 1 ; +if (fornext_step5584<0) fornext_step_negative5584=1; else fornext_step_negative5584=0; +if (new_error) goto fornext_error5584; +goto fornext_entrylabel5584; while(1){ -fornext_value4988=fornext_step4988+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel4988: -*_FUNC_IDESUBS_LONG_X=fornext_value4988; -if (fornext_step_negative4988){ -if (fornext_value4988fornext_finalvalue4988) break; +if (fornext_value5584>fornext_finalvalue5584) break; } -fornext_error4988:; -if(qbevent){evnt(25066,9171,"ide_methods.bas");if(r)goto S_43773;} -S_43774:; +fornext_error5584:; +if(qbevent){evnt(26307,13359,"ide_methods.bas");if(r)goto S_49834;} +S_49835:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC* 4 )-( 3 ), 4 ,1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,1))))||new_error){ -if(qbevent){evnt(25066,9172,"ide_methods.bas");if(r)goto S_43774;} +if(qbevent){evnt(26307,13360,"ide_methods.bas");if(r)goto S_49835;} do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,9173,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,13361,"ide_methods.bas");}while(r); do{ -goto fornext_exit_4987; -if(!qbevent)break;evnt(25066,9174,"ide_methods.bas");}while(r); +goto fornext_exit_5583; +if(!qbevent)break;evnt(26307,13362,"ide_methods.bas");}while(r); } -fornext_continue_4987:; +fornext_continue_5583:; } -fornext_exit_4987:; +fornext_exit_5583:; } } do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13)); -if(!qbevent)break;evnt(25066,9179,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13)); +if(!qbevent)break;evnt(26307,13367,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9182,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13369,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,9183,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,13370,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(25066,9184,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26307,13371,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Edit",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,9185,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,13372,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,9186,"ide_methods.bas");}while(r); -S_43787:; -if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ -if(qbevent){evnt(25066,9188,"ide_methods.bas");if(r)goto S_43787;} +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Line Count",11)); +if(!qbevent)break;evnt(26307,13373,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDESUBSLENGTH; +if(!qbevent)break;evnt(26307,13374,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9189,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13376,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,9190,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,13377,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+20))=*__LONG_IDEWX- 22 ; -if(!qbevent)break;evnt(25066,9191,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))= 18 ; +if(!qbevent)break;evnt(26307,13378,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(25066,9192,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,13379,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sorted A-Z",11)); -if(!qbevent)break;evnt(25066,9193,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sort",5)); +if(!qbevent)break;evnt(26307,13380,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; -if(!qbevent)break;evnt(25066,9194,"ide_methods.bas");}while(r); -} -S_43795:; -fornext_value4991= 1 ; -fornext_finalvalue4991= 100 ; -fornext_step4991= 1 ; -if (fornext_step4991<0) fornext_step_negative4991=1; else fornext_step_negative4991=0; -if (new_error) goto fornext_error4991; -goto fornext_entrylabel4991; -while(1){ -fornext_value4991=fornext_step4991+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel4991: -*_FUNC_IDESUBS_LONG_I=fornext_value4991; -if (fornext_step_negative4991){ -if (fornext_value4991fornext_finalvalue4991) break; -} -fornext_error4991:; -if(qbevent){evnt(25066,9201,"ide_methods.bas");if(r)goto S_43795;} do{ -memcpy(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDESUBS_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,9201,"ide_methods.bas");}while(r); -fornext_continue_4990:; +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#View",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,13391,"ide_methods.bas");}while(r); } -fornext_exit_4990:; -S_43798:; do{ -if(qbevent){evnt(25066,9204,"ide_methods.bas");if(r)goto S_43798;} +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,13393,"ide_methods.bas");}while(r); +S_49866:; +fornext_value5587= 1 ; +fornext_finalvalue5587= 100 ; +fornext_step5587= 1 ; +if (fornext_step5587<0) fornext_step_negative5587=1; else fornext_step_negative5587=0; +if (new_error) goto fornext_error5587; +goto fornext_entrylabel5587; +while(1){ +fornext_value5587=fornext_step5587+(*_FUNC_IDESUBS_LONG_I); +fornext_entrylabel5587: +*_FUNC_IDESUBS_LONG_I=fornext_value5587; +if (fornext_step_negative5587){ +if (fornext_value5587fornext_finalvalue5587) break; +} +fornext_error5587:; +if(qbevent){evnt(26307,13399,"ide_methods.bas");if(r)goto S_49866;} +do{ +memcpy(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDESUBS_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,13399,"ide_methods.bas");}while(r); +fornext_continue_5586:; +} +fornext_exit_5586:; +S_49869:; +do{ +if(qbevent){evnt(26307,13402,"ide_methods.bas");if(r)goto S_49869;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,9207,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13405,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,9208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13406,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,9208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13406,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,9208,"ide_methods.bas");}while(r); -S_43803:; -fornext_value4994= 1 ; -fornext_finalvalue4994= 100 ; -fornext_step4994= 1 ; -if (fornext_step4994<0) fornext_step_negative4994=1; else fornext_step_negative4994=0; -if (new_error) goto fornext_error4994; -goto fornext_entrylabel4994; +if(!qbevent)break;evnt(26307,13406,"ide_methods.bas");}while(r); +S_49874:; +fornext_value5590= 1 ; +fornext_finalvalue5590= 100 ; +fornext_step5590= 1 ; +if (fornext_step5590<0) fornext_step_negative5590=1; else fornext_step_negative5590=0; +if (new_error) goto fornext_error5590; +goto fornext_entrylabel5590; while(1){ -fornext_value4994=fornext_step4994+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel4994: -*_FUNC_IDESUBS_LONG_I=fornext_value4994; -if (fornext_step_negative4994){ -if (fornext_value4994fornext_finalvalue4994) break; +if (fornext_value5590>fornext_finalvalue5590) break; } -fornext_error4994:; -if(qbevent){evnt(25066,9209,"ide_methods.bas");if(r)goto S_43803;} -S_43804:; -if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,9210,"ide_methods.bas");if(r)goto S_43804;} +fornext_error5590:; +if(qbevent){evnt(26307,13407,"ide_methods.bas");if(r)goto S_49874;} +S_49875:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,13408,"ide_methods.bas");if(r)goto S_49875;} do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; -if(!qbevent)break;evnt(25066,9213,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; +if(!qbevent)break;evnt(26307,13411,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,9214,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,13412,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,9214,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,13412,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESUBS_LONG_F); -if(!qbevent)break;evnt(25066,9215,"ide_methods.bas");}while(r); -S_43809:; -if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,9216,"ide_methods.bas");if(r)goto S_43809;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESUBS_LONG_F); +if(!qbevent)break;evnt(26307,13413,"ide_methods.bas");}while(r); +S_49880:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,13414,"ide_methods.bas");if(r)goto S_49880;} do{ -*_FUNC_IDESUBS_LONG_CX=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,9216,"ide_methods.bas");}while(r); +*_FUNC_IDESUBS_LONG_CX=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,13414,"ide_methods.bas");}while(r); do{ -*_FUNC_IDESUBS_LONG_CY=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,9216,"ide_methods.bas");}while(r); +*_FUNC_IDESUBS_LONG_CY=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,13414,"ide_methods.bas");}while(r); } } -fornext_continue_4993:; +fornext_continue_5589:; } -fornext_exit_4993:; +fornext_exit_5589:; do{ *_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,9219,"ide_methods.bas");}while(r); -S_43816:; -if ((-(*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC== -1 ))||new_error){ -if(qbevent){evnt(25066,9223,"ide_methods.bas");if(r)goto S_43816;} +if(!qbevent)break;evnt(26307,13417,"ide_methods.bas");}while(r); +S_49887:; +if ((*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC)||new_error){ +if(qbevent){evnt(26307,13421,"ide_methods.bas");if(r)goto S_49887;} do{ qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,9224,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13422,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 3 ,*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,9224,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("* external",10)); -if (new_error) goto skip4995; -makefit(tqbs); -qbs_print(tqbs,0); -skip4995: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(8))- 32 ,*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(12)),qbs_new_txt_len("* external",10),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9224,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13423,"ide_methods.bas");}while(r); } do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,9229,"ide_methods.bas");}while(r); -S_43822:; +if(!qbevent)break;evnt(26307,13428,"ide_methods.bas");}while(r); +S_49892:; if ((*_FUNC_IDESUBS_LONG_CX)||new_error){ -if(qbevent){evnt(25066,9230,"ide_methods.bas");if(r)goto S_43822;} +if(qbevent){evnt(26307,13429,"ide_methods.bas");if(r)goto S_49892;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13429,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDESUBS_LONG_CY,*_FUNC_IDESUBS_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,9230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13429,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13429,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,9233,"ide_methods.bas");}while(r); -S_43828:; +if(!qbevent)break;evnt(26307,13432,"ide_methods.bas");}while(r); +S_49898:; do{ -if(qbevent){evnt(25066,9234,"ide_methods.bas");if(r)goto S_43828;} +if(qbevent){evnt(26307,13433,"ide_methods.bas");if(r)goto S_49898;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,9235,"ide_methods.bas");}while(r); -S_43830:; +if(!qbevent)break;evnt(26307,13434,"ide_methods.bas");}while(r); +S_49900:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,9236,"ide_methods.bas");if(r)goto S_43830;} +if(qbevent){evnt(26307,13435,"ide_methods.bas");if(r)goto S_49900;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9236,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13435,"ide_methods.bas");}while(r); } -S_43833:; +S_49903:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,9237,"ide_methods.bas");if(r)goto S_43833;} +if(qbevent){evnt(26307,13436,"ide_methods.bas");if(r)goto S_49903;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9237,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13436,"ide_methods.bas");}while(r); } -S_43836:; +S_49906:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,9238,"ide_methods.bas");if(r)goto S_43836;} +if(qbevent){evnt(26307,13437,"ide_methods.bas");if(r)goto S_49906;} do{ *_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,9238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13437,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9238,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13437,"ide_methods.bas");}while(r); } -S_43840:; +S_49910:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,9239,"ide_methods.bas");if(r)goto S_43840;} +if(qbevent){evnt(26307,13438,"ide_methods.bas");if(r)goto S_49910;} do{ *_FUNC_IDESUBS_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,9239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13438,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13438,"ide_methods.bas");}while(r); } -S_43844:; +S_49914:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,9240,"ide_methods.bas");if(r)goto S_43844;} +if(qbevent){evnt(26307,13439,"ide_methods.bas");if(r)goto S_49914;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9240,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13439,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,9241,"ide_methods.bas");}while(r); -S_43848:; +if(!qbevent)break;evnt(26307,13440,"ide_methods.bas");}while(r); +S_49918:; if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,9241,"ide_methods.bas");if(r)goto S_43848;} +if(qbevent){evnt(26307,13440,"ide_methods.bas");if(r)goto S_49918;} do{ *_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13440,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT; -if(!qbevent)break;evnt(25066,9242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13441,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,9243,"ide_methods.bas");}while(r); -S_43853:; -dl_continue_4996:; +if(!qbevent)break;evnt(26307,13442,"ide_methods.bas");}while(r); +S_49923:; +dl_continue_5591:; }while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!new_error)); -dl_exit_4996:; -if(qbevent){evnt(25066,9244,"ide_methods.bas");if(r)goto S_43853;} -S_43854:; +dl_exit_5591:; +if(qbevent){evnt(26307,13443,"ide_methods.bas");if(r)goto S_49923;} +S_49924:; if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,9245,"ide_methods.bas");if(r)goto S_43854;} +if(qbevent){evnt(26307,13444,"ide_methods.bas");if(r)goto S_49924;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,9245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13444,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,9245,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13444,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9247,"ide_methods.bas");}while(r); -S_43860:; +if(!qbevent)break;evnt(26307,13446,"ide_methods.bas");}while(r); +S_49930:; if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,9248,"ide_methods.bas");if(r)goto S_43860;} -S_43861:; +if(qbevent){evnt(26307,13447,"ide_methods.bas");if(r)goto S_49930;} +S_49931:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,9249,"ide_methods.bas");if(r)goto S_43861;} +if(qbevent){evnt(26307,13448,"ide_methods.bas");if(r)goto S_49931;} do{ *_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9250,"ide_methods.bas");}while(r); -S_43863:; +if(!qbevent)break;evnt(26307,13449,"ide_methods.bas");}while(r); +S_49933:; if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,9251,"ide_methods.bas");if(r)goto S_43863;} +if(qbevent){evnt(26307,13450,"ide_methods.bas");if(r)goto S_49933;} do{ qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9251,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13450,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13453,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,9254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13453,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13453,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,9258,"ide_methods.bas");}while(r); -S_43872:; +if(!qbevent)break;evnt(26307,13457,"ide_methods.bas");}while(r); +S_49942:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,9259,"ide_methods.bas");if(r)goto S_43872;} +if(qbevent){evnt(26307,13458,"ide_methods.bas");if(r)goto S_49942;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9259,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13458,"ide_methods.bas");}while(r); } -S_43875:; +S_49945:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,9260,"ide_methods.bas");if(r)goto S_43875;} +if(qbevent){evnt(26307,13459,"ide_methods.bas");if(r)goto S_49945;} do{ *_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,9260,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13459,"ide_methods.bas");}while(r); } -S_43878:; +S_49948:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,9261,"ide_methods.bas");if(r)goto S_43878;} +if(qbevent){evnt(26307,13460,"ide_methods.bas");if(r)goto S_49948;} do{ *_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,9261,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13460,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9261,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13460,"ide_methods.bas");}while(r); } -S_43882:; +S_49952:; if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,9262,"ide_methods.bas");if(r)goto S_43882;} +if(qbevent){evnt(26307,13461,"ide_methods.bas");if(r)goto S_49952;} do{ *_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,9262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13461,"ide_methods.bas");}while(r); } -S_43885:; +S_49955:; if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,9263,"ide_methods.bas");if(r)goto S_43885;} +if(qbevent){evnt(26307,13462,"ide_methods.bas");if(r)goto S_49955;} do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9263,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13462,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESUBS_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,9264,"ide_methods.bas");}while(r); -S_43889:; -fornext_value4999= 1 ; -fornext_finalvalue4999= 100 ; -fornext_step4999= 1 ; -if (fornext_step4999<0) fornext_step_negative4999=1; else fornext_step_negative4999=0; -if (new_error) goto fornext_error4999; -goto fornext_entrylabel4999; +if(!qbevent)break;evnt(26307,13463,"ide_methods.bas");}while(r); +S_49959:; +fornext_value5594= 1 ; +fornext_finalvalue5594= 100 ; +fornext_step5594= 1 ; +if (fornext_step5594<0) fornext_step_negative5594=1; else fornext_step_negative5594=0; +if (new_error) goto fornext_error5594; +goto fornext_entrylabel5594; while(1){ -fornext_value4999=fornext_step4999+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel4999: -*_FUNC_IDESUBS_LONG_I=fornext_value4999; -if (fornext_step_negative4999){ -if (fornext_value4999fornext_finalvalue4999) break; +if (fornext_value5594>fornext_finalvalue5594) break; } -fornext_error4999:; -if(qbevent){evnt(25066,9265,"ide_methods.bas");if(r)goto S_43889;} +fornext_error5594:; +if(qbevent){evnt(26307,13464,"ide_methods.bas");if(r)goto S_49959;} do{ -*_FUNC_IDESUBS_LONG_T=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,9266,"ide_methods.bas");}while(r); -S_43891:; +*_FUNC_IDESUBS_LONG_T=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,13465,"ide_methods.bas");}while(r); +S_49961:; if ((*_FUNC_IDESUBS_LONG_T)||new_error){ -if(qbevent){evnt(25066,9267,"ide_methods.bas");if(r)goto S_43891;} +if(qbevent){evnt(26307,13466,"ide_methods.bas");if(r)goto S_49961;} do{ *_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; -if(!qbevent)break;evnt(25066,9268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13467,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESUBS_LONG_FOCUS,_FUNC_IDESUBS_LONG_F,_FUNC_IDESUBS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESUBS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESUBS_LONG_MOUSEDOWN,_FUNC_IDESUBS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESUBS_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESUBS_LONG_FOCUS,_FUNC_IDESUBS_LONG_F,_FUNC_IDESUBS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESUBS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESUBS_LONG_MOUSEDOWN,_FUNC_IDESUBS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESUBS_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13468,"ide_methods.bas");}while(r); } -fornext_continue_4998:; +fornext_continue_5593:; } -fornext_exit_4998:; -S_43896:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 3 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,9274,"ide_methods.bas");if(r)goto S_43896;} +fornext_exit_5593:; +S_49966:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 5 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,13473,"ide_methods.bas");if(r)goto S_49966;} do{ qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9275,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13474,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=51; +return_point[next_return_point++]=160; if (next_return_point>=return_points) more_return_points(); goto LABEL_SAVESORTSETTINGS; -RETURN_51:; -if(!qbevent)break;evnt(25066,9276,"ide_methods.bas");}while(r); +RETURN_160:; +if(!qbevent)break;evnt(26307,13475,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,13476,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9277,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13477,"ide_methods.bas");}while(r); } -S_43901:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 2 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDESUBS_LONG_INFO== 1 ))&(-(*_FUNC_IDESUBS_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(25066,9280,"ide_methods.bas");if(r)goto S_43901;} +S_49972:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 4 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDESUBS_LONG_INFO== 1 ))&(-(*_FUNC_IDESUBS_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26307,13480,"ide_methods.bas");if(r)goto S_49972;} do{ -*_FUNC_IDESUBS_LONG_Y=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,9281,"ide_methods.bas");}while(r); -S_43903:; +*_FUNC_IDESUBS_LONG_Y=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,13481,"ide_methods.bas");}while(r); +S_49974:; if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(25066,9282,"ide_methods.bas");if(r)goto S_43903;} +if(qbevent){evnt(26307,13482,"ide_methods.bas");if(r)goto S_49974;} do{ *_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y); -if(!qbevent)break;evnt(25066,9282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13482,"ide_methods.bas");}while(r); } do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,9283,"ide_methods.bas");}while(r); -S_43907:; +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,13483,"ide_methods.bas");}while(r); +S_49978:; if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ -if(qbevent){evnt(25066,9284,"ide_methods.bas");if(r)goto S_43907;} +if(qbevent){evnt(26307,13484,"ide_methods.bas");if(r)goto S_49978;} do{ *__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9285,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13485,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9287,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13487,"ide_methods.bas");}while(r); } do{ *__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,9289,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13489,"ide_methods.bas");}while(r); do{ *__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(25066,9290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13490,"ide_methods.bas");}while(r); do{ *__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(25066,9291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13491,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=52; +return_point[next_return_point++]=161; if (next_return_point>=return_points) more_return_points(); goto LABEL_SAVESORTSETTINGS; -RETURN_52:; -if(!qbevent)break;evnt(25066,9293,"ide_methods.bas");}while(r); +RETURN_161:; +if(!qbevent)break;evnt(26307,13493,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,13494,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9294,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13495,"ide_methods.bas");}while(r); } -S_43918:; -if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ -if(qbevent){evnt(25066,9297,"ide_methods.bas");if(r)goto S_43918;} -S_43919:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||new_error){ -if(qbevent){evnt(25066,9298,"ide_methods.bas");if(r)goto S_43919;} +S_49990:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))!=*__BYTE_IDESUBSLENGTH))||new_error){ +if(qbevent){evnt(26307,13498,"ide_methods.bas");if(r)goto S_49990;} do{ -*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,9299,"ide_methods.bas");}while(r); -S_43921:; -if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ -if(qbevent){evnt(25066,9301,"ide_methods.bas");if(r)goto S_43921;} +*__BYTE_IDESUBSLENGTH=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,13499,"ide_methods.bas");}while(r); +S_49992:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26307,13500,"ide_methods.bas");if(r)goto S_49992;} +S_49993:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26307,13501,"ide_methods.bas");if(r)goto S_49993;} do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; -if(!qbevent)break;evnt(25066,9303,"ide_methods.bas");}while(r); -S_43923:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))> 0 ))||new_error){ -if(qbevent){evnt(25066,9304,"ide_methods.bas");if(r)goto S_43923;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))* 4 )-( 3 ), 4 ,1)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9305,"ide_methods.bas");}while(r); -S_43925:; -fornext_value5001= 1 ; -fornext_finalvalue5001=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5001= 1 ; -if (fornext_step5001<0) fornext_step_negative5001=1; else fornext_step_negative5001=0; -if (new_error) goto fornext_error5001; -goto fornext_entrylabel5001; -while(1){ -fornext_value5001=fornext_step5001+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5001: -*_FUNC_IDESUBS_LONG_X=fornext_value5001; -if (fornext_step_negative5001){ -if (fornext_value5001fornext_finalvalue5001) break; -} -fornext_error5001:; -if(qbevent){evnt(25066,9306,"ide_methods.bas");if(r)goto S_43925;} -S_43926:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ -if(qbevent){evnt(25066,9307,"ide_methods.bas");if(r)goto S_43926;} -do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; -if(!qbevent)break;evnt(25066,9308,"ide_methods.bas");}while(r); -} -fornext_continue_5000:; -} -fornext_exit_5000:; -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9313,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; -if(!qbevent)break;evnt(25066,9314,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13502,"ide_methods.bas");}while(r); }else{ do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; -if(!qbevent)break;evnt(25066,9318,"ide_methods.bas");}while(r); -S_43936:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))> 0 ))||new_error){ -if(qbevent){evnt(25066,9319,"ide_methods.bas");if(r)goto S_43936;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LY,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))* 4 )-( 3 ), 4 ,1)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9320,"ide_methods.bas");}while(r); -S_43938:; -fornext_value5003= 1 ; -fornext_finalvalue5003=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5003= 1 ; -if (fornext_step5003<0) fornext_step_negative5003=1; else fornext_step_negative5003=0; -if (new_error) goto fornext_error5003; -goto fornext_entrylabel5003; -while(1){ -fornext_value5003=fornext_step5003+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5003: -*_FUNC_IDESUBS_LONG_X=fornext_value5003; -if (fornext_step_negative5003){ -if (fornext_value5003fornext_finalvalue5003) break; -} -fornext_error5003:; -if(qbevent){evnt(25066,9321,"ide_methods.bas");if(r)goto S_43938;} -S_43939:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ -if(qbevent){evnt(25066,9322,"ide_methods.bas");if(r)goto S_43939;} +S_49999:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26307,13507,"ide_methods.bas");if(r)goto S_49999;} do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; -if(!qbevent)break;evnt(25066,9323,"ide_methods.bas");}while(r); -} -fornext_continue_5002:; -} -fornext_exit_5002:; -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9328,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13508,"ide_methods.bas");}while(r); +}else{ do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*85+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; -if(!qbevent)break;evnt(25066,9329,"ide_methods.bas");}while(r); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13510,"ide_methods.bas");}while(r); +} +} do{ *_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9330,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13513,"ide_methods.bas");}while(r); +} +S_50007:; +if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ +if(qbevent){evnt(26307,13516,"ide_methods.bas");if(r)goto S_50007;} +S_50008:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||new_error){ +if(qbevent){evnt(26307,13517,"ide_methods.bas");if(r)goto S_50008;} +do{ +*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,13518,"ide_methods.bas");}while(r); +S_50010:; +if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ +if(qbevent){evnt(26307,13520,"ide_methods.bas");if(r)goto S_50010;} +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; +if(!qbevent)break;evnt(26307,13522,"ide_methods.bas");}while(r); +S_50012:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26307,13523,"ide_methods.bas");if(r)goto S_50012;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))* 4 )-( 3 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13524,"ide_methods.bas");}while(r); +S_50014:; +fornext_value5596= 1 ; +fornext_finalvalue5596=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5596= 1 ; +if (fornext_step5596<0) fornext_step_negative5596=1; else fornext_step_negative5596=0; +if (new_error) goto fornext_error5596; +goto fornext_entrylabel5596; +while(1){ +fornext_value5596=fornext_step5596+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5596: +*_FUNC_IDESUBS_LONG_X=fornext_value5596; +if (fornext_step_negative5596){ +if (fornext_value5596fornext_finalvalue5596) break; +} +fornext_error5596:; +if(qbevent){evnt(26307,13525,"ide_methods.bas");if(r)goto S_50014;} +S_50015:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ +if(qbevent){evnt(26307,13526,"ide_methods.bas");if(r)goto S_50015;} +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; +if(!qbevent)break;evnt(26307,13527,"ide_methods.bas");}while(r); +} +fornext_continue_5595:; +} +fornext_exit_5595:; +} +S_50020:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26307,13532,"ide_methods.bas");if(r)goto S_50020;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13533,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13535,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; +if(!qbevent)break;evnt(26307,13537,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,13538,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; +if(!qbevent)break;evnt(26307,13541,"ide_methods.bas");}while(r); +S_50029:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26307,13542,"ide_methods.bas");if(r)goto S_50029;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LY,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))* 4 )-( 3 ), 4 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13543,"ide_methods.bas");}while(r); +S_50031:; +fornext_value5598= 1 ; +fornext_finalvalue5598=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5598= 1 ; +if (fornext_step5598<0) fornext_step_negative5598=1; else fornext_step_negative5598=0; +if (new_error) goto fornext_error5598; +goto fornext_entrylabel5598; +while(1){ +fornext_value5598=fornext_step5598+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5598: +*_FUNC_IDESUBS_LONG_X=fornext_value5598; +if (fornext_step_negative5598){ +if (fornext_value5598fornext_finalvalue5598) break; +} +fornext_error5598:; +if(qbevent){evnt(26307,13544,"ide_methods.bas");if(r)goto S_50031;} +S_50032:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ +if(qbevent){evnt(26307,13545,"ide_methods.bas");if(r)goto S_50032;} +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; +if(!qbevent)break;evnt(26307,13546,"ide_methods.bas");}while(r); +} +fornext_continue_5597:; +} +fornext_exit_5597:; +} +S_50037:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26307,13551,"ide_methods.bas");if(r)goto S_50037;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13552,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13554,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; +if(!qbevent)break;evnt(26307,13556,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,13557,"ide_methods.bas");}while(r); } } } do{ *_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,9336,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13563,"ide_methods.bas");}while(r); do{ *_FUNC_IDESUBS_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,9337,"ide_methods.bas");}while(r); -dl_continue_4992:; +if(!qbevent)break;evnt(26307,13564,"ide_methods.bas");}while(r); +dl_continue_5588:; }while(1); -dl_exit_4992:; +dl_exit_5588:; do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9340,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13567,"ide_methods.bas");}while(r); LABEL_SAVESORTSETTINGS:; -if(qbevent){evnt(25066,9341,"ide_methods.bas");r=0;} -S_43954:; -if (((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))&(-(*__BYTE_IDESORTSUBS!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG)))||new_error){ -if(qbevent){evnt(25066,9342,"ide_methods.bas");if(r)goto S_43954;} +if(qbevent){evnt(26307,13568,"ide_methods.bas");r=0;} do{ *__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; -if(!qbevent)break;evnt(25066,9343,"ide_methods.bas");}while(r); -S_43956:; +if(!qbevent)break;evnt(26307,13569,"ide_methods.bas");}while(r); +S_50052:; if ((*__BYTE_IDESORTSUBS)||new_error){ -if(qbevent){evnt(25066,9344,"ide_methods.bas");if(r)goto S_43956;} +if(qbevent){evnt(26307,13570,"ide_methods.bas");if(r)goto S_50052;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9345,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13571,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9347,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13573,"ide_methods.bas");}while(r); } +S_50057:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26307,13576,"ide_methods.bas");if(r)goto S_50057;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13577,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13579,"ide_methods.bas");}while(r); } do{ -#include "ret162.txt" -if(!qbevent)break;evnt(25066,9350,"ide_methods.bas");}while(r); +#include "ret178.txt" +if(!qbevent)break;evnt(26307,13581,"ide_methods.bas");}while(r); +LABEL_ADDLINECOUNT:; +if(qbevent){evnt(26307,13583,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; +if(!qbevent)break;evnt(26307,13584,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_LASTOPENSUB)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]); +if (!new_error) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_MODULESIZE; +if(!qbevent)break;evnt(26307,13585,"ide_methods.bas");}while(r); +S_50065:; +if ((-(*_FUNC_IDESUBS_LONG_MODULESIZE>*_FUNC_IDESUBS_LONG_MAXLINECOUNT))||new_error){ +if(qbevent){evnt(26307,13586,"ide_methods.bas");if(r)goto S_50065;} +do{ +*_FUNC_IDESUBS_LONG_MAXLINECOUNT=*_FUNC_IDESUBS_LONG_MODULESIZE; +if(!qbevent)break;evnt(26307,13586,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_SUBCLOSED= -1 ; +if(!qbevent)break;evnt(26307,13587,"ide_methods.bas");}while(r); +do{ +#include "ret178.txt" +if(!qbevent)break;evnt(26307,13588,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free162.txt" +#include "free178.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDESUBS_STRING_IDESUBS);return _FUNC_IDESUBS_STRING_IDESUBS; @@ -155774,7 +174243,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data163.txt" +#include "data179.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -155782,531 +174251,567 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,9358,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13595,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,9359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13596,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9360,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13597,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13598,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,9362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13599,"ide_methods.bas");}while(r); do{ if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4]+1; _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]),0,_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]),0,_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,9363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13600,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,9364,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13601,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9365,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13602,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9371,"ide_methods.bas");}while(r); -S_43972:; -fornext_value5005= 2 ; -fornext_finalvalue5005= 27 ; -fornext_step5005= 1 ; -if (fornext_step5005<0) fornext_step_negative5005=1; else fornext_step_negative5005=0; -if (new_error) goto fornext_error5005; -goto fornext_entrylabel5005; +if(!qbevent)break;evnt(26307,13608,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=_FUNC_IDELANGUAGEBOX_STRING_L->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13609,"ide_methods.bas");}while(r); +S_50080:; +fornext_value5601= 2 ; +fornext_finalvalue5601= 27 ; +fornext_step5601= 1 ; +if (fornext_step5601<0) fornext_step_negative5601=1; else fornext_step_negative5601=0; +if (new_error) goto fornext_error5601; +goto fornext_entrylabel5601; while(1){ -fornext_value5005=fornext_step5005+(*_FUNC_IDELANGUAGEBOX_LONG_X); -fornext_entrylabel5005: -*_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value5005; -if (fornext_step_negative5005){ -if (fornext_value5005fornext_finalvalue5005) break; +if (fornext_value5601>fornext_finalvalue5601) break; } -fornext_error5005:; -if(qbevent){evnt(25066,9372,"ide_methods.bas");if(r)goto S_43972;} +fornext_error5601:; +if(qbevent){evnt(26307,13610,"ide_methods.bas");if(r)goto S_50080;} do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDELANGUAGEBOX_STRING_L,_FUNC_IDELANGUAGEBOX_STRING1_SEP),((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9373,"ide_methods.bas");}while(r); -fornext_continue_5004:; +if(!qbevent)break;evnt(26307,13611,"ide_methods.bas");}while(r); +S_50082:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))->len>*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26307,13612,"ide_methods.bas");if(r)goto S_50082;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13612,"ide_methods.bas");}while(r); } -fornext_exit_5004:; +fornext_continue_5600:; +} +fornext_exit_5600:; do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_ucase(_FUNC_IDELANGUAGEBOX_STRING_L)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13614,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,9377,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13616,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) ),&(pass5006=*__LONG_IDEWX- 8 ),&(pass5007=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ),qbs_new_txt_len("Language",8)); +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT= 27 + 5 ; +if(!qbevent)break;evnt(26307,13617,"ide_methods.bas");}while(r); +S_50089:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26307,13618,"ide_methods.bas");if(r)goto S_50089;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26307,13619,"ide_methods.bas");}while(r); +} +S_50092:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH< 60 ))||new_error){ +if(qbevent){evnt(26307,13621,"ide_methods.bas");if(r)goto S_50092;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH= 60 ; +if(!qbevent)break;evnt(26307,13621,"ide_methods.bas");}while(r); +} +S_50095:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,13622,"ide_methods.bas");if(r)goto S_50095;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,13622,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) ),_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH,_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Language",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9378,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13624,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9380,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13626,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,9381,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,13627,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,9382,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; +if(!qbevent)break;evnt(26307,13628,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+28))=*__LONG_IDEWX- 12 ; -if(!qbevent)break;evnt(25066,9383,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,13629,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 10 ; -if(!qbevent)break;evnt(25066,9383,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT- 5 ; +if(!qbevent)break;evnt(26307,13629,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDELANGUAGEBOX_STRING_L); -if(!qbevent)break;evnt(25066,9384,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDELANGUAGEBOX_STRING_L); +if(!qbevent)break;evnt(26307,13630,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,9385,"ide_methods.bas");}while(r); -S_43985:; +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,13631,"ide_methods.bas");}while(r); +S_50106:; if ((*__LONG_IDECPINDEX)||new_error){ -if(qbevent){evnt(25066,9385,"ide_methods.bas");if(r)goto S_43985;} +if(qbevent){evnt(26307,13631,"ide_methods.bas");if(r)goto S_50106;} do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDECPINDEX; -if(!qbevent)break;evnt(25066,9385,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDECPINDEX; +if(!qbevent)break;evnt(26307,13631,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Code Pages",10)); -if(!qbevent)break;evnt(25066,9386,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Code Pages",10)); +if(!qbevent)break;evnt(26307,13632,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13634,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,9389,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,13635,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(25066,9390,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,13636,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELANGUAGEBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,9391,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELANGUAGEBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,13637,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,9392,"ide_methods.bas");}while(r); -S_43994:; -fornext_value5009= 1 ; -fornext_finalvalue5009= 100 ; -fornext_step5009= 1 ; -if (fornext_step5009<0) fornext_step_negative5009=1; else fornext_step_negative5009=0; -if (new_error) goto fornext_error5009; -goto fornext_entrylabel5009; +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,13638,"ide_methods.bas");}while(r); +S_50115:; +fornext_value5605= 1 ; +fornext_finalvalue5605= 100 ; +fornext_step5605= 1 ; +if (fornext_step5605<0) fornext_step_negative5605=1; else fornext_step_negative5605=0; +if (new_error) goto fornext_error5605; +goto fornext_entrylabel5605; while(1){ -fornext_value5009=fornext_step5009+(*_FUNC_IDELANGUAGEBOX_LONG_I); -fornext_entrylabel5009: -*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5009; -if (fornext_step_negative5009){ -if (fornext_value5009fornext_finalvalue5009) break; +if (fornext_value5605>fornext_finalvalue5605) break; } -fornext_error5009:; -if(qbevent){evnt(25066,9401,"ide_methods.bas");if(r)goto S_43994;} +fornext_error5605:; +if(qbevent){evnt(26307,13647,"ide_methods.bas");if(r)goto S_50115;} do{ -memcpy(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,9401,"ide_methods.bas");}while(r); -fornext_continue_5008:; +memcpy(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,13647,"ide_methods.bas");}while(r); +fornext_continue_5604:; } -fornext_exit_5008:; -S_43997:; +fornext_exit_5604:; +S_50118:; do{ -if(qbevent){evnt(25066,9404,"ide_methods.bas");if(r)goto S_43997;} +if(qbevent){evnt(26307,13650,"ide_methods.bas");if(r)goto S_50118;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,9407,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13653,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,9408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13654,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,9408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13654,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,9408,"ide_methods.bas");}while(r); -S_44002:; -fornext_value5012= 1 ; -fornext_finalvalue5012= 100 ; -fornext_step5012= 1 ; -if (fornext_step5012<0) fornext_step_negative5012=1; else fornext_step_negative5012=0; -if (new_error) goto fornext_error5012; -goto fornext_entrylabel5012; +if(!qbevent)break;evnt(26307,13654,"ide_methods.bas");}while(r); +S_50123:; +fornext_value5608= 1 ; +fornext_finalvalue5608= 100 ; +fornext_step5608= 1 ; +if (fornext_step5608<0) fornext_step_negative5608=1; else fornext_step_negative5608=0; +if (new_error) goto fornext_error5608; +goto fornext_entrylabel5608; while(1){ -fornext_value5012=fornext_step5012+(*_FUNC_IDELANGUAGEBOX_LONG_I); -fornext_entrylabel5012: -*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5012; -if (fornext_step_negative5012){ -if (fornext_value5012fornext_finalvalue5012) break; +if (fornext_value5608>fornext_finalvalue5608) break; } -fornext_error5012:; -if(qbevent){evnt(25066,9409,"ide_methods.bas");if(r)goto S_44002;} -S_44003:; -if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,9410,"ide_methods.bas");if(r)goto S_44003;} +fornext_error5608:; +if(qbevent){evnt(26307,13655,"ide_methods.bas");if(r)goto S_50123;} +S_50124:; +if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,13656,"ide_methods.bas");if(r)goto S_50124;} do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; -if(!qbevent)break;evnt(25066,9412,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; +if(!qbevent)break;evnt(26307,13658,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,9413,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,13659,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,9413,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,13659,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDELANGUAGEBOX_LONG_F); -if(!qbevent)break;evnt(25066,9414,"ide_methods.bas");}while(r); -S_44008:; -if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,9415,"ide_methods.bas");if(r)goto S_44008;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELANGUAGEBOX_LONG_F); +if(!qbevent)break;evnt(26307,13660,"ide_methods.bas");}while(r); +S_50129:; +if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,13661,"ide_methods.bas");if(r)goto S_50129;} do{ -*_FUNC_IDELANGUAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,9415,"ide_methods.bas");}while(r); +*_FUNC_IDELANGUAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,13661,"ide_methods.bas");}while(r); do{ -*_FUNC_IDELANGUAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,9415,"ide_methods.bas");}while(r); +*_FUNC_IDELANGUAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,13661,"ide_methods.bas");}while(r); } } -fornext_continue_5011:; +fornext_continue_5607:; } -fornext_exit_5011:; +fornext_exit_5607:; do{ *_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS=*_FUNC_IDELANGUAGEBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,9418,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13664,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,9422,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13668,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 1 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,9422,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Code-page for ASCII-UNICODE mapping: (Default: CP437)",53)); -if (new_error) goto skip5013; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip5013: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Code-page for ASCII-UNICODE mapping (Default = CP437):",54),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9422,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13669,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,13670,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 2 ,qbs_new_txt_len("(affects the display of TTF fonts set in Options-Display)",57),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13671,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,9427,"ide_methods.bas");}while(r); -S_44019:; +if(!qbevent)break;evnt(26307,13676,"ide_methods.bas");}while(r); +S_50141:; if ((*_FUNC_IDELANGUAGEBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,9428,"ide_methods.bas");if(r)goto S_44019;} +if(qbevent){evnt(26307,13677,"ide_methods.bas");if(r)goto S_50141;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13677,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDELANGUAGEBOX_LONG_CY,*_FUNC_IDELANGUAGEBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,9428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13677,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13677,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,9431,"ide_methods.bas");}while(r); -S_44025:; +if(!qbevent)break;evnt(26307,13680,"ide_methods.bas");}while(r); +S_50147:; do{ -if(qbevent){evnt(25066,9432,"ide_methods.bas");if(r)goto S_44025;} +if(qbevent){evnt(26307,13681,"ide_methods.bas");if(r)goto S_50147;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,9433,"ide_methods.bas");}while(r); -S_44027:; +if(!qbevent)break;evnt(26307,13682,"ide_methods.bas");}while(r); +S_50149:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,9434,"ide_methods.bas");if(r)goto S_44027;} +if(qbevent){evnt(26307,13683,"ide_methods.bas");if(r)goto S_50149;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9434,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13683,"ide_methods.bas");}while(r); } -S_44030:; +S_50152:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,9435,"ide_methods.bas");if(r)goto S_44030;} +if(qbevent){evnt(26307,13684,"ide_methods.bas");if(r)goto S_50152;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13684,"ide_methods.bas");}while(r); } -S_44033:; +S_50155:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,9436,"ide_methods.bas");if(r)goto S_44033;} +if(qbevent){evnt(26307,13685,"ide_methods.bas");if(r)goto S_50155;} do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,9436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13685,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13685,"ide_methods.bas");}while(r); } -S_44037:; +S_50159:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,9437,"ide_methods.bas");if(r)goto S_44037;} +if(qbevent){evnt(26307,13686,"ide_methods.bas");if(r)goto S_50159;} do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,9437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13686,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13686,"ide_methods.bas");}while(r); } -S_44041:; +S_50163:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,9438,"ide_methods.bas");if(r)goto S_44041;} +if(qbevent){evnt(26307,13687,"ide_methods.bas");if(r)goto S_50163;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9438,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13687,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,9439,"ide_methods.bas");}while(r); -S_44045:; +if(!qbevent)break;evnt(26307,13688,"ide_methods.bas");}while(r); +S_50167:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_ALT!=*_FUNC_IDELANGUAGEBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,9439,"ide_methods.bas");if(r)goto S_44045;} +if(qbevent){evnt(26307,13688,"ide_methods.bas");if(r)goto S_50167;} do{ *_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13688,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_OLDALT=*_FUNC_IDELANGUAGEBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,9440,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13689,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,9441,"ide_methods.bas");}while(r); -S_44050:; -dl_continue_5014:; +if(!qbevent)break;evnt(26307,13690,"ide_methods.bas");}while(r); +S_50172:; +dl_continue_5609:; }while((!(*_FUNC_IDELANGUAGEBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5014:; -if(qbevent){evnt(25066,9442,"ide_methods.bas");if(r)goto S_44050;} -S_44051:; +dl_exit_5609:; +if(qbevent){evnt(26307,13691,"ide_methods.bas");if(r)goto S_50172;} +S_50173:; if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,9443,"ide_methods.bas");if(r)goto S_44051;} +if(qbevent){evnt(26307,13692,"ide_methods.bas");if(r)goto S_50173;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,9443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13692,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,9443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13692,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9445,"ide_methods.bas");}while(r); -S_44057:; +if(!qbevent)break;evnt(26307,13694,"ide_methods.bas");}while(r); +S_50179:; if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,9446,"ide_methods.bas");if(r)goto S_44057;} -S_44058:; +if(qbevent){evnt(26307,13695,"ide_methods.bas");if(r)goto S_50179;} +S_50180:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,9447,"ide_methods.bas");if(r)goto S_44058;} +if(qbevent){evnt(26307,13696,"ide_methods.bas");if(r)goto S_50180;} do{ *_FUNC_IDELANGUAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9448,"ide_methods.bas");}while(r); -S_44060:; +if(!qbevent)break;evnt(26307,13697,"ide_methods.bas");}while(r); +S_50182:; if (((-(*_FUNC_IDELANGUAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,9449,"ide_methods.bas");if(r)goto S_44060;} +if(qbevent){evnt(26307,13698,"ide_methods.bas");if(r)goto S_50182;} do{ qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELANGUAGEBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13698,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13701,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,9452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13701,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13701,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,9456,"ide_methods.bas");}while(r); -S_44069:; +if(!qbevent)break;evnt(26307,13705,"ide_methods.bas");}while(r); +S_50191:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,9457,"ide_methods.bas");if(r)goto S_44069;} +if(qbevent){evnt(26307,13706,"ide_methods.bas");if(r)goto S_50191;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9457,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13706,"ide_methods.bas");}while(r); } -S_44072:; +S_50194:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,9458,"ide_methods.bas");if(r)goto S_44072;} +if(qbevent){evnt(26307,13707,"ide_methods.bas");if(r)goto S_50194;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,9458,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13707,"ide_methods.bas");}while(r); } -S_44075:; +S_50197:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,9459,"ide_methods.bas");if(r)goto S_44075;} +if(qbevent){evnt(26307,13708,"ide_methods.bas");if(r)goto S_50197;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,9459,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13708,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9459,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13708,"ide_methods.bas");}while(r); } -S_44079:; +S_50201:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,9460,"ide_methods.bas");if(r)goto S_44079;} +if(qbevent){evnt(26307,13709,"ide_methods.bas");if(r)goto S_50201;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,9460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13709,"ide_methods.bas");}while(r); } -S_44082:; +S_50204:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS>*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,9461,"ide_methods.bas");if(r)goto S_44082;} +if(qbevent){evnt(26307,13710,"ide_methods.bas");if(r)goto S_50204;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9461,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13710,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,9462,"ide_methods.bas");}while(r); -S_44086:; -fornext_value5017= 1 ; -fornext_finalvalue5017= 100 ; -fornext_step5017= 1 ; -if (fornext_step5017<0) fornext_step_negative5017=1; else fornext_step_negative5017=0; -if (new_error) goto fornext_error5017; -goto fornext_entrylabel5017; +if(!qbevent)break;evnt(26307,13711,"ide_methods.bas");}while(r); +S_50208:; +fornext_value5612= 1 ; +fornext_finalvalue5612= 100 ; +fornext_step5612= 1 ; +if (fornext_step5612<0) fornext_step_negative5612=1; else fornext_step_negative5612=0; +if (new_error) goto fornext_error5612; +goto fornext_entrylabel5612; while(1){ -fornext_value5017=fornext_step5017+(*_FUNC_IDELANGUAGEBOX_LONG_I); -fornext_entrylabel5017: -*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5017; -if (fornext_step_negative5017){ -if (fornext_value5017fornext_finalvalue5017) break; +if (fornext_value5612>fornext_finalvalue5612) break; } -fornext_error5017:; -if(qbevent){evnt(25066,9463,"ide_methods.bas");if(r)goto S_44086;} +fornext_error5612:; +if(qbevent){evnt(26307,13712,"ide_methods.bas");if(r)goto S_50208;} do{ -*_FUNC_IDELANGUAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,9464,"ide_methods.bas");}while(r); -S_44088:; +*_FUNC_IDELANGUAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,13713,"ide_methods.bas");}while(r); +S_50210:; if ((*_FUNC_IDELANGUAGEBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,9465,"ide_methods.bas");if(r)goto S_44088;} +if(qbevent){evnt(26307,13714,"ide_methods.bas");if(r)goto S_50210;} do{ *_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; -if(!qbevent)break;evnt(25066,9466,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13715,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDELANGUAGEBOX_LONG_FOCUS,_FUNC_IDELANGUAGEBOX_LONG_F,_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN,_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELANGUAGEBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELANGUAGEBOX_LONG_FOCUS,_FUNC_IDELANGUAGEBOX_LONG_F,_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN,_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELANGUAGEBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9467,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13716,"ide_methods.bas");}while(r); } -fornext_continue_5016:; +fornext_continue_5611:; } -fornext_exit_5016:; -S_44093:; +fornext_exit_5611:; +S_50215:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,9472,"ide_methods.bas");if(r)goto S_44093;} +if(qbevent){evnt(26307,13721,"ide_methods.bas");if(r)goto S_50215;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9474,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13723,"ide_methods.bas");}while(r); } -S_44096:; +S_50218:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(25066,9477,"ide_methods.bas");if(r)goto S_44096;} +if(qbevent){evnt(26307,13726,"ide_methods.bas");if(r)goto S_50218;} do{ -*_FUNC_IDELANGUAGEBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,9478,"ide_methods.bas");}while(r); -S_44098:; +*_FUNC_IDELANGUAGEBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,13727,"ide_methods.bas");}while(r); +S_50220:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(25066,9479,"ide_methods.bas");if(r)goto S_44098;} +if(qbevent){evnt(26307,13728,"ide_methods.bas");if(r)goto S_50220;} do{ *_FUNC_IDELANGUAGEBOX_LONG_Y=-(*_FUNC_IDELANGUAGEBOX_LONG_Y); -if(!qbevent)break;evnt(25066,9479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13728,"ide_methods.bas");}while(r); } -S_44101:; -fornext_value5019= 128 ; -fornext_finalvalue5019= 255 ; -fornext_step5019= 1 ; -if (fornext_step5019<0) fornext_step_negative5019=1; else fornext_step_negative5019=0; -if (new_error) goto fornext_error5019; -goto fornext_entrylabel5019; +S_50223:; +fornext_value5614= 128 ; +fornext_finalvalue5614= 255 ; +fornext_step5614= 1 ; +if (fornext_step5614<0) fornext_step_negative5614=1; else fornext_step_negative5614=0; +if (new_error) goto fornext_error5614; +goto fornext_entrylabel5614; while(1){ -fornext_value5019=fornext_step5019+(*_FUNC_IDELANGUAGEBOX_LONG_X); -fornext_entrylabel5019: -*_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value5019; -if (fornext_step_negative5019){ -if (fornext_value5019fornext_finalvalue5019) break; +if (fornext_value5614>fornext_finalvalue5614) break; } -fornext_error5019:; -if(qbevent){evnt(25066,9481,"ide_methods.bas");if(r)goto S_44101;} +fornext_error5614:; +if(qbevent){evnt(26307,13730,"ide_methods.bas");if(r)goto S_50223;} do{ *_FUNC_IDELANGUAGEBOX_LONG_U=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_Y)-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5])])),(*_FUNC_IDELANGUAGEBOX_LONG_X* 8 )+( 1 ), 8 ,1)),qbs_new_txt_len("&",1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9482,"ide_methods.bas");}while(r); -S_44103:; +if(!qbevent)break;evnt(26307,13731,"ide_methods.bas");}while(r); +S_50225:; if ((-(*_FUNC_IDELANGUAGEBOX_LONG_U== 0 ))||new_error){ -if(qbevent){evnt(25066,9483,"ide_methods.bas");if(r)goto S_44103;} +if(qbevent){evnt(26307,13732,"ide_methods.bas");if(r)goto S_50225;} do{ *_FUNC_IDELANGUAGEBOX_LONG_U= 9744 ; -if(!qbevent)break;evnt(25066,9483,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13732,"ide_methods.bas");}while(r); } do{ sub__mapunicode(*_FUNC_IDELANGUAGEBOX_LONG_U,*_FUNC_IDELANGUAGEBOX_LONG_X); -if(!qbevent)break;evnt(25066,9484,"ide_methods.bas");}while(r); -fornext_continue_5018:; +if(!qbevent)break;evnt(26307,13733,"ide_methods.bas");}while(r); +fornext_continue_5613:; } -fornext_exit_5018:; +fornext_exit_5613:; do{ *_FUNC_IDELANGUAGEBOX_INTEGER_V=*_FUNC_IDELANGUAGEBOX_LONG_Y; -if(!qbevent)break;evnt(25066,9488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13737,"ide_methods.bas");}while(r); do{ *__LONG_IDECPINDEX=*_FUNC_IDELANGUAGEBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,9488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13737,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CodePage",12),qbs_str((int32)(*__LONG_IDECPINDEX))); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),qbs_str((int32)(*__LONG_IDECPINDEX))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9489,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13738,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9490,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13739,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,9495,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13744,"ide_methods.bas");}while(r); do{ *_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,9496,"ide_methods.bas");}while(r); -dl_continue_5010:; +if(!qbevent)break;evnt(26307,13745,"ide_methods.bas");}while(r); +dl_continue_5606:; }while(1); -dl_exit_5010:; +dl_exit_5606:; +do{ +*_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX= 0 ; +if(!qbevent)break;evnt(26307,13748,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free163.txt" +#include "free179.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX; @@ -156318,7 +174823,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data164.txt" +#include "data180.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -156326,577 +174831,658 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,9506,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13755,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,9507,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13756,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9508,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13757,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13758,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,9510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13759,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,9511,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13760,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,9512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13761,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13762,"ide_methods.bas");}while(r); +S_50247:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(26307,13767,"ide_methods.bas");if(r)goto S_50247;} do{ - -if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&2){ -error(10); -}else{ -if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&1){ -error(10); -}else{ -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4]= 1 ; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]=(*__LONG_WARNINGLISTITEMS)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4]+1; -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[6]=1; -if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&4){ -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]*4); -memset((void*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]),0,_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]*4); -}else{ -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]=(ptrszint)calloc(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]*4,1); -if (!_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]) error(257); -} -_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]|=1; -} -} -if(!qbevent)break;evnt(25066,9518,"ide_methods.bas");}while(r); -S_44125:; -fornext_value5021= 1 ; -fornext_finalvalue5021=*__LONG_WARNINGLISTITEMS; -fornext_step5021= 1 ; -if (fornext_step5021<0) fornext_step_negative5021=1; else fornext_step_negative5021=0; -if (new_error) goto fornext_error5021; -goto fornext_entrylabel5021; -while(1){ -fornext_value5021=fornext_step5021+(*_FUNC_IDEWARNINGBOX_LONG_X); -fornext_entrylabel5021: -*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5021; -if (fornext_step_negative5021){ -if (fornext_value5021fornext_finalvalue5021) break; -} -fornext_error5021:; -if(qbevent){evnt(25066,9520,"ide_methods.bas");if(r)goto S_44125;} -do{ -tmp_long=array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]); -if (!new_error) ((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[tmp_long]=string2l(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 4 )); -if(!qbevent)break;evnt(25066,9521,"ide_methods.bas");}while(r); -S_44127:; -if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ -if(qbevent){evnt(25066,9522,"ide_methods.bas");if(r)goto S_44127;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 5 ,NULL,0))); +qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,__STRING_IDEPROGNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9523,"ide_methods.bas");}while(r); -S_44129:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(25066,9524,"ide_methods.bas");if(r)goto S_44129;} +if(!qbevent)break;evnt(26307,13767,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13767,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=_FUNC_IDEWARNINGBOX_STRING_THISPROG->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13768,"ide_methods.bas");}while(r); +S_50253:; +fornext_value5618= 1 ; +fornext_finalvalue5618=*__LONG_WARNINGLISTITEMS; +fornext_step5618= 1 ; +if (fornext_step5618<0) fornext_step_negative5618=1; else fornext_step_negative5618=0; +if (new_error) goto fornext_error5618; +goto fornext_entrylabel5618; +while(1){ +fornext_value5618=fornext_step5618+(*_FUNC_IDEWARNINGBOX_LONG_X); +fornext_entrylabel5618: +*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5618; +if (fornext_step_negative5618){ +if (fornext_value5618fornext_finalvalue5618) break; +} +fornext_error5618:; +if(qbevent){evnt(26307,13771,"ide_methods.bas");if(r)goto S_50253;} +S_50254:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26307,13772,"ide_methods.bas");if(r)goto S_50254;} +do{ +goto fornext_continue_5617; +if(!qbevent)break;evnt(26307,13772,"ide_methods.bas");}while(r); +} +S_50257:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26307,13774,"ide_methods.bas");if(r)goto S_50257;} +S_50258:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len>*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26307,13775,"ide_methods.bas");if(r)goto S_50258;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13776,"ide_methods.bas");}while(r); +} +} +fornext_continue_5617:; +} +fornext_exit_5617:; +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH= 60 ; +if(!qbevent)break;evnt(26307,13782,"ide_methods.bas");}while(r); +S_50264:; +fornext_value5622= 1 ; +fornext_finalvalue5622=*__LONG_WARNINGLISTITEMS; +fornext_step5622= 1 ; +if (fornext_step5622<0) fornext_step_negative5622=1; else fornext_step_negative5622=0; +if (new_error) goto fornext_error5622; +goto fornext_entrylabel5622; +while(1){ +fornext_value5622=fornext_step5622+(*_FUNC_IDEWARNINGBOX_LONG_X); +fornext_entrylabel5622: +*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5622; +if (fornext_step_negative5622){ +if (fornext_value5622fornext_finalvalue5622) break; +} +fornext_error5622:; +if(qbevent){evnt(26307,13783,"ide_methods.bas");if(r)goto S_50264;} +S_50265:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26307,13784,"ide_methods.bas");if(r)goto S_50265;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13785,"ide_methods.bas");}while(r); +S_50267:; +if (((-(*_FUNC_IDEWARNINGBOX_LONG_X> 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION> 0 )))||new_error){ +if(qbevent){evnt(26307,13786,"ide_methods.bas");if(r)goto S_50267;} do{ tqbs=_FUNC_IDEWARNINGBOX_STRING_L; if (!new_error){ tmp_fileno=*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION; if (!new_error){ tmp_long= 192 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,9524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13786,"ide_methods.bas");}while(r); } }else{ do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L2,qbs_add(qbs_new_txt_len("line",4),qbs_str((int32)(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])])))); +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(func_chr( 16 ),func_chr( 2 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9526,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13788,"ide_methods.bas");}while(r); +S_50272:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26307,13789,"ide_methods.bas");if(r)goto S_50272;} do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,func_space(*__LONG_MAXLINENUMBERLENGTH+ 4 )); +qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(((int32)(qbs_str((int32)(*__LONG_MAXLINENUMBER)))->len)+ 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9527,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13790,"ide_methods.bas");}while(r); do{ -sub_rset(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_L2); -if(!qbevent)break;evnt(25066,9528,"ide_methods.bas");}while(r); +sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])])))); +if(!qbevent)break;evnt(26307,13791,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len)),qbs_new_txt_len(":",1)),func_chr( 16 )),func_chr( 16 )),_FUNC_IDEWARNINGBOX_STRING_NUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13792,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(((int32)(qbs_str((int32)(*__LONG_MAXLINENUMBER)))->len)+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13794,"ide_methods.bas");}while(r); +do{ +sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])])))); +if(!qbevent)break;evnt(26307,13795,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_THISPROG),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEWARNINGBOX_STRING_THISPROG->len)),qbs_new_txt_len(":",1)),func_chr( 16 )),func_chr( 16 )),_FUNC_IDEWARNINGBOX_STRING_NUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13796,"ide_methods.bas");}while(r); +} do{ *_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION=_FUNC_IDEWARNINGBOX_STRING_L->len+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9529,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13798,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3),qbs_new_txt_len(": ",2)),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])), 5 ,NULL,0))); +qbs_set(_FUNC_IDEWARNINGBOX_STRING_TEXT,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9530,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13799,"ide_methods.bas");}while(r); +S_50283:; +if ((qbs_cleanup(qbs_tmp_base,-((((int32)(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_TEXT))->len)+ 6 )>*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26307,13800,"ide_methods.bas");if(r)goto S_50283;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH=((int32)(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_TEXT))->len)+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13800,"ide_methods.bas");}while(r); } -S_44139:; +S_50286:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEWARNINGBOX_STRING_TEXT->len))||new_error){ +if(qbevent){evnt(26307,13801,"ide_methods.bas");if(r)goto S_50286;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3),qbs_new_txt_len(": ",2)),_FUNC_IDEWARNINGBOX_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13802,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,13804,"ide_methods.bas");}while(r); +} +} +S_50292:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_X<*__LONG_WARNINGLISTITEMS))||new_error){ -if(qbevent){evnt(25066,9532,"ide_methods.bas");if(r)goto S_44139;} +if(qbevent){evnt(26307,13807,"ide_methods.bas");if(r)goto S_50292;} do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,_FUNC_IDEWARNINGBOX_STRING1_SEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9532,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13807,"ide_methods.bas");}while(r); } -fornext_continue_5020:; +fornext_continue_5621:; } -fornext_exit_5020:; -S_44143:; -if ((-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*__LONG_WARNINGLISTITEMS)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]> 0 ))||new_error){ -if(qbevent){evnt(25066,9535,"ide_methods.bas");if(r)goto S_44143;} +fornext_exit_5621:; +S_50296:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26307,13810,"ide_methods.bas");if(r)goto S_50296;} do{ tqbs=_FUNC_IDEWARNINGBOX_STRING_L; if (!new_error){ tmp_fileno=*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION; if (!new_error){ tmp_long= 192 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,9536,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13811,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,9539,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13814,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_WARNINGLISTITEMS+ 4 ; -if(!qbevent)break;evnt(25066,9540,"ide_methods.bas");}while(r); -S_44148:; +if(!qbevent)break;evnt(26307,13815,"ide_methods.bas");}while(r); +S_50301:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(25066,9541,"ide_methods.bas");if(r)goto S_44148;} +if(qbevent){evnt(26307,13816,"ide_methods.bas");if(r)goto S_50301;} do{ *_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(25066,9542,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13817,"ide_methods.bas");}while(r); +} +S_50304:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,13820,"ide_methods.bas");if(r)goto S_50304;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,13820,"ide_methods.bas");}while(r); } do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) ),&(pass5023=*__LONG_IDEWX- 8 ),_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Compilation status",18)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) ),_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH,_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Compilation status",18)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9545,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13822,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9547,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13824,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,9548,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,13825,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,9549,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,13826,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+28))=*__LONG_IDEWX- 12 ; -if(!qbevent)break;evnt(25066,9550,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,13827,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+32))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT- 4 ; -if(!qbevent)break;evnt(25066,9550,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT- 4 ; +if(!qbevent)break;evnt(26307,13827,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEWARNINGBOX_STRING_L); -if(!qbevent)break;evnt(25066,9551,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEWARNINGBOX_STRING_L); +if(!qbevent)break;evnt(26307,13828,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,9552,"ide_methods.bas");}while(r); -S_44159:; -if ((*__LONG_IDECPINDEX)||new_error){ -if(qbevent){evnt(25066,9552,"ide_methods.bas");if(r)goto S_44159;} +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,13829,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDECPINDEX; -if(!qbevent)break;evnt(25066,9552,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("Warnings (",10),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(")",1))); -if(!qbevent)break;evnt(25066,9553,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("Warnings (",10),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(")",1))); +if(!qbevent)break;evnt(26307,13830,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,9555,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13832,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,9556,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,13833,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+24))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(25066,9557,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,13834,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Go to",6),_FUNC_IDEWARNINGBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); -if(!qbevent)break;evnt(25066,9558,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Go to",6),_FUNC_IDEWARNINGBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26307,13835,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,9559,"ide_methods.bas");}while(r); -S_44168:; -fornext_value5025= 1 ; -fornext_finalvalue5025= 100 ; -fornext_step5025= 1 ; -if (fornext_step5025<0) fornext_step_negative5025=1; else fornext_step_negative5025=0; -if (new_error) goto fornext_error5025; -goto fornext_entrylabel5025; +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,13836,"ide_methods.bas");}while(r); +S_50321:; +fornext_value5628= 1 ; +fornext_finalvalue5628= 100 ; +fornext_step5628= 1 ; +if (fornext_step5628<0) fornext_step_negative5628=1; else fornext_step_negative5628=0; +if (new_error) goto fornext_error5628; +goto fornext_entrylabel5628; while(1){ -fornext_value5025=fornext_step5025+(*_FUNC_IDEWARNINGBOX_LONG_I); -fornext_entrylabel5025: -*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5025; -if (fornext_step_negative5025){ -if (fornext_value5025fornext_finalvalue5025) break; +if (fornext_value5628>fornext_finalvalue5628) break; } -fornext_error5025:; -if(qbevent){evnt(25066,9568,"ide_methods.bas");if(r)goto S_44168;} +fornext_error5628:; +if(qbevent){evnt(26307,13845,"ide_methods.bas");if(r)goto S_50321;} do{ -memcpy(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,9568,"ide_methods.bas");}while(r); -fornext_continue_5024:; +memcpy(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,13845,"ide_methods.bas");}while(r); +fornext_continue_5627:; } -fornext_exit_5024:; -S_44171:; +fornext_exit_5627:; +S_50324:; do{ -if(qbevent){evnt(25066,9571,"ide_methods.bas");if(r)goto S_44171;} +if(qbevent){evnt(26307,13848,"ide_methods.bas");if(r)goto S_50324;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,9574,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13851,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,9575,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13852,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,9575,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13852,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,9575,"ide_methods.bas");}while(r); -S_44176:; -fornext_value5028= 1 ; -fornext_finalvalue5028= 100 ; -fornext_step5028= 1 ; -if (fornext_step5028<0) fornext_step_negative5028=1; else fornext_step_negative5028=0; -if (new_error) goto fornext_error5028; -goto fornext_entrylabel5028; +if(!qbevent)break;evnt(26307,13852,"ide_methods.bas");}while(r); +S_50329:; +fornext_value5631= 1 ; +fornext_finalvalue5631= 100 ; +fornext_step5631= 1 ; +if (fornext_step5631<0) fornext_step_negative5631=1; else fornext_step_negative5631=0; +if (new_error) goto fornext_error5631; +goto fornext_entrylabel5631; while(1){ -fornext_value5028=fornext_step5028+(*_FUNC_IDEWARNINGBOX_LONG_I); -fornext_entrylabel5028: -*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5028; -if (fornext_step_negative5028){ -if (fornext_value5028fornext_finalvalue5028) break; +if (fornext_value5631>fornext_finalvalue5631) break; } -fornext_error5028:; -if(qbevent){evnt(25066,9576,"ide_methods.bas");if(r)goto S_44176;} -S_44177:; -if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,9577,"ide_methods.bas");if(r)goto S_44177;} +fornext_error5631:; +if(qbevent){evnt(26307,13853,"ide_methods.bas");if(r)goto S_50329;} +S_50330:; +if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,13854,"ide_methods.bas");if(r)goto S_50330;} do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; -if(!qbevent)break;evnt(25066,9579,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; +if(!qbevent)break;evnt(26307,13856,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,9580,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,13857,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,9580,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,13857,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEWARNINGBOX_LONG_F); -if(!qbevent)break;evnt(25066,9581,"ide_methods.bas");}while(r); -S_44182:; -if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,9582,"ide_methods.bas");if(r)goto S_44182;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEWARNINGBOX_LONG_F); +if(!qbevent)break;evnt(26307,13858,"ide_methods.bas");}while(r); +S_50335:; +if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,13859,"ide_methods.bas");if(r)goto S_50335;} do{ -*_FUNC_IDEWARNINGBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,9582,"ide_methods.bas");}while(r); +*_FUNC_IDEWARNINGBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,13859,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEWARNINGBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,9582,"ide_methods.bas");}while(r); +*_FUNC_IDEWARNINGBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,13859,"ide_methods.bas");}while(r); } } -fornext_continue_5027:; +fornext_continue_5630:; } -fornext_exit_5027:; +fornext_exit_5630:; do{ *_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS=*_FUNC_IDEWARNINGBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,9585,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13862,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,9589,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13866,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(4))+ 1 ,*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,9589,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Double-click on an item to jump to the line indicated",53)); -if (new_error) goto skip5029; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip5029: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Double-click on an item to jump to the line indicated",53),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9589,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13866,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,9594,"ide_methods.bas");}while(r); -S_44193:; +if(!qbevent)break;evnt(26307,13871,"ide_methods.bas");}while(r); +S_50345:; if ((*_FUNC_IDEWARNINGBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,9595,"ide_methods.bas");if(r)goto S_44193;} +if(qbevent){evnt(26307,13872,"ide_methods.bas");if(r)goto S_50345;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9595,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13872,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDEWARNINGBOX_LONG_CY,*_FUNC_IDEWARNINGBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,9595,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13872,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9595,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13872,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,9598,"ide_methods.bas");}while(r); -S_44199:; +if(!qbevent)break;evnt(26307,13875,"ide_methods.bas");}while(r); +S_50351:; do{ -if(qbevent){evnt(25066,9599,"ide_methods.bas");if(r)goto S_44199;} +if(qbevent){evnt(26307,13876,"ide_methods.bas");if(r)goto S_50351;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,9600,"ide_methods.bas");}while(r); -S_44201:; +if(!qbevent)break;evnt(26307,13877,"ide_methods.bas");}while(r); +S_50353:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,9601,"ide_methods.bas");if(r)goto S_44201;} +if(qbevent){evnt(26307,13878,"ide_methods.bas");if(r)goto S_50353;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13878,"ide_methods.bas");}while(r); } -S_44204:; +S_50356:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,9602,"ide_methods.bas");if(r)goto S_44204;} +if(qbevent){evnt(26307,13879,"ide_methods.bas");if(r)goto S_50356;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9602,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13879,"ide_methods.bas");}while(r); } -S_44207:; +S_50359:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,9603,"ide_methods.bas");if(r)goto S_44207;} +if(qbevent){evnt(26307,13880,"ide_methods.bas");if(r)goto S_50359;} do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,9603,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13880,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9603,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13880,"ide_methods.bas");}while(r); } -S_44211:; +S_50363:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,9604,"ide_methods.bas");if(r)goto S_44211;} +if(qbevent){evnt(26307,13881,"ide_methods.bas");if(r)goto S_50363;} do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,9604,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13881,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9604,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13881,"ide_methods.bas");}while(r); } -S_44215:; +S_50367:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,9605,"ide_methods.bas");if(r)goto S_44215;} +if(qbevent){evnt(26307,13882,"ide_methods.bas");if(r)goto S_50367;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9605,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13882,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,9606,"ide_methods.bas");}while(r); -S_44219:; +if(!qbevent)break;evnt(26307,13883,"ide_methods.bas");}while(r); +S_50371:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_ALT!=*_FUNC_IDEWARNINGBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,9606,"ide_methods.bas");if(r)goto S_44219;} +if(qbevent){evnt(26307,13883,"ide_methods.bas");if(r)goto S_50371;} do{ *_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,9606,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13883,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_OLDALT=*_FUNC_IDEWARNINGBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,9607,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13884,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,9608,"ide_methods.bas");}while(r); -S_44224:; -dl_continue_5030:; +if(!qbevent)break;evnt(26307,13885,"ide_methods.bas");}while(r); +S_50376:; +dl_continue_5632:; }while((!(*_FUNC_IDEWARNINGBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5030:; -if(qbevent){evnt(25066,9609,"ide_methods.bas");if(r)goto S_44224;} -S_44225:; +dl_exit_5632:; +if(qbevent){evnt(26307,13886,"ide_methods.bas");if(r)goto S_50376;} +S_50377:; if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,9610,"ide_methods.bas");if(r)goto S_44225;} +if(qbevent){evnt(26307,13887,"ide_methods.bas");if(r)goto S_50377;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,9610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13887,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,9610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13887,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9612,"ide_methods.bas");}while(r); -S_44231:; +if(!qbevent)break;evnt(26307,13889,"ide_methods.bas");}while(r); +S_50383:; if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,9613,"ide_methods.bas");if(r)goto S_44231;} -S_44232:; +if(qbevent){evnt(26307,13890,"ide_methods.bas");if(r)goto S_50383;} +S_50384:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,9614,"ide_methods.bas");if(r)goto S_44232;} +if(qbevent){evnt(26307,13891,"ide_methods.bas");if(r)goto S_50384;} do{ *_FUNC_IDEWARNINGBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9615,"ide_methods.bas");}while(r); -S_44234:; +if(!qbevent)break;evnt(26307,13892,"ide_methods.bas");}while(r); +S_50386:; if (((-(*_FUNC_IDEWARNINGBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,9616,"ide_methods.bas");if(r)goto S_44234;} +if(qbevent){evnt(26307,13893,"ide_methods.bas");if(r)goto S_50386;} do{ qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEWARNINGBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9616,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13893,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9619,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13896,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,9619,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13896,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,9619,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13896,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,9623,"ide_methods.bas");}while(r); -S_44243:; +if(!qbevent)break;evnt(26307,13900,"ide_methods.bas");}while(r); +S_50395:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,9624,"ide_methods.bas");if(r)goto S_44243;} +if(qbevent){evnt(26307,13901,"ide_methods.bas");if(r)goto S_50395;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13901,"ide_methods.bas");}while(r); } -S_44246:; +S_50398:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,9625,"ide_methods.bas");if(r)goto S_44246;} +if(qbevent){evnt(26307,13902,"ide_methods.bas");if(r)goto S_50398;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,9625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13902,"ide_methods.bas");}while(r); } -S_44249:; +S_50401:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,9626,"ide_methods.bas");if(r)goto S_44249;} +if(qbevent){evnt(26307,13903,"ide_methods.bas");if(r)goto S_50401;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,9626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13903,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13903,"ide_methods.bas");}while(r); } -S_44253:; +S_50405:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,9627,"ide_methods.bas");if(r)goto S_44253;} +if(qbevent){evnt(26307,13904,"ide_methods.bas");if(r)goto S_50405;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,9627,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13904,"ide_methods.bas");}while(r); } -S_44256:; +S_50408:; if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS>*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,9628,"ide_methods.bas");if(r)goto S_44256;} +if(qbevent){evnt(26307,13905,"ide_methods.bas");if(r)goto S_50408;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,9628,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13905,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEWARNINGBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,9629,"ide_methods.bas");}while(r); -S_44260:; -fornext_value5033= 1 ; -fornext_finalvalue5033= 100 ; -fornext_step5033= 1 ; -if (fornext_step5033<0) fornext_step_negative5033=1; else fornext_step_negative5033=0; -if (new_error) goto fornext_error5033; -goto fornext_entrylabel5033; +if(!qbevent)break;evnt(26307,13906,"ide_methods.bas");}while(r); +S_50412:; +fornext_value5635= 1 ; +fornext_finalvalue5635= 100 ; +fornext_step5635= 1 ; +if (fornext_step5635<0) fornext_step_negative5635=1; else fornext_step_negative5635=0; +if (new_error) goto fornext_error5635; +goto fornext_entrylabel5635; while(1){ -fornext_value5033=fornext_step5033+(*_FUNC_IDEWARNINGBOX_LONG_I); -fornext_entrylabel5033: -*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5033; -if (fornext_step_negative5033){ -if (fornext_value5033fornext_finalvalue5033) break; +if (fornext_value5635>fornext_finalvalue5635) break; } -fornext_error5033:; -if(qbevent){evnt(25066,9630,"ide_methods.bas");if(r)goto S_44260;} +fornext_error5635:; +if(qbevent){evnt(26307,13907,"ide_methods.bas");if(r)goto S_50412;} do{ -*_FUNC_IDEWARNINGBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,9631,"ide_methods.bas");}while(r); -S_44262:; +*_FUNC_IDEWARNINGBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,13908,"ide_methods.bas");}while(r); +S_50414:; if ((*_FUNC_IDEWARNINGBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,9632,"ide_methods.bas");if(r)goto S_44262;} +if(qbevent){evnt(26307,13909,"ide_methods.bas");if(r)goto S_50414;} do{ *_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; -if(!qbevent)break;evnt(25066,9633,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13910,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEWARNINGBOX_LONG_FOCUS,_FUNC_IDEWARNINGBOX_LONG_F,_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN,_FUNC_IDEWARNINGBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEWARNINGBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEWARNINGBOX_LONG_FOCUS,_FUNC_IDEWARNINGBOX_LONG_F,_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN,_FUNC_IDEWARNINGBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEWARNINGBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9634,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13911,"ide_methods.bas");}while(r); } -fornext_continue_5032:; +fornext_continue_5634:; } -fornext_exit_5032:; -S_44267:; +fornext_exit_5634:; +S_50419:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,9639,"ide_methods.bas");if(r)goto S_44267;} +if(qbevent){evnt(26307,13916,"ide_methods.bas");if(r)goto S_50419;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13917,"ide_methods.bas");}while(r); } -S_44270:; +S_50422:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEWARNINGBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(25066,9643,"ide_methods.bas");if(r)goto S_44270;} +if(qbevent){evnt(26307,13920,"ide_methods.bas");if(r)goto S_50422;} do{ -*_FUNC_IDEWARNINGBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*85+64)))); -if(!qbevent)break;evnt(25066,9644,"ide_methods.bas");}while(r); -S_44272:; -if (((-(*_FUNC_IDEWARNINGBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_Y<=*__LONG_WARNINGLISTITEMS))&(-(((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]> 0 )))||new_error){ -if(qbevent){evnt(25066,9645,"ide_methods.bas");if(r)goto S_44272;} +*_FUNC_IDEWARNINGBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26307,13921,"ide_methods.bas");}while(r); +S_50424:; +if (((-(*_FUNC_IDEWARNINGBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_Y<=*__LONG_WARNINGLISTITEMS))&(-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]> 0 )))||new_error){ +if(qbevent){evnt(26307,13922,"ide_methods.bas");if(r)goto S_50424;} do{ -*__LONG_IDEGOTOBOX_LASTLINENUM=((int32*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4],_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5])]; -if(!qbevent)break;evnt(25066,9646,"ide_methods.bas");}while(r); +*__LONG_IDEGOTOBOX_LASTLINENUM=((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]; +if(!qbevent)break;evnt(26307,13923,"ide_methods.bas");}while(r); do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,9647,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,13924,"ide_methods.bas");}while(r); do{ *__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; -if(!qbevent)break;evnt(25066,9648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13925,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,13926,"ide_methods.bas");}while(r); +S_50429:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26307,13927,"ide_methods.bas");if(r)goto S_50429;} +do{ +*__LONG_WARNINGININCLUDE=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,13928,"ide_methods.bas");}while(r); +do{ +*__LONG_WARNINGININCLUDELINE=((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]; +if(!qbevent)break;evnt(26307,13929,"ide_methods.bas");}while(r); +} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,9649,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13931,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,9650,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13932,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,9655,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13937,"ide_methods.bas");}while(r); do{ *_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,9656,"ide_methods.bas");}while(r); -dl_continue_5026:; +if(!qbevent)break;evnt(26307,13938,"ide_methods.bas");}while(r); +dl_continue_5629:; }while(1); -dl_exit_5026:; +dl_exit_5629:; +do{ +*_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX= 0 ; +if(!qbevent)break;evnt(26307,13941,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free164.txt" +#include "free180.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX; @@ -156908,98 +175494,101 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data165.txt" +#include "data181.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,9662,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13945,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,9663,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13946,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9664,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13947,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_T=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(36)); -if(!qbevent)break;evnt(25066,9666,"ide_methods.bas");}while(r); -S_44287:; +if(!qbevent)break;evnt(26307,13949,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_MOUSEUP=*_SUB_IDEOBJUPDATE_LONG_MOUSEUP; +if(!qbevent)break;evnt(26307,13950,"ide_methods.bas");}while(r); +S_50446:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 1 ))||new_error){ -if(qbevent){evnt(25066,9668,"ide_methods.bas");if(r)goto S_44287;} -S_44288:; +if(qbevent){evnt(26307,13951,"ide_methods.bas");if(r)goto S_50446;} +S_50447:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(25066,9669,"ide_methods.bas");if(r)goto S_44288;} +if(qbevent){evnt(26307,13952,"ide_methods.bas");if(r)goto S_50447;} do{ *_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,9670,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13953,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,9670,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13953,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1; -if(!qbevent)break;evnt(25066,9671,"ide_methods.bas");}while(r); -S_44292:; +if(!qbevent)break;evnt(26307,13954,"ide_methods.bas");}while(r); +S_50451:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,9672,"ide_methods.bas");if(r)goto S_44292;} +if(qbevent){evnt(26307,13955,"ide_methods.bas");if(r)goto S_50451;} do{ *_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X2+FUNC_IDEHLEN(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9673,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13956,"ide_methods.bas");}while(r); } -S_44295:; +S_50454:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MY>=(*_SUB_IDEOBJUPDATE_LONG_Y- 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=(*_SUB_IDEOBJUPDATE_LONG_Y+ 1 ))))||new_error){ -if(qbevent){evnt(25066,9675,"ide_methods.bas");if(r)goto S_44295;} -S_44296:; +if(qbevent){evnt(26307,13958,"ide_methods.bas");if(r)goto S_50454;} +S_50455:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=(*_SUB_IDEOBJUPDATE_LONG_X2+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 3 ))))||new_error){ -if(qbevent){evnt(25066,9676,"ide_methods.bas");if(r)goto S_44296;} +if(qbevent){evnt(26307,13959,"ide_methods.bas");if(r)goto S_50455;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(25066,9677,"ide_methods.bas");}while(r); -S_44298:; +if(!qbevent)break;evnt(26307,13960,"ide_methods.bas");}while(r); +S_50457:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ -if(qbevent){evnt(25066,9679,"ide_methods.bas");if(r)goto S_44298;} -S_44299:; +if(qbevent){evnt(26307,13962,"ide_methods.bas");if(r)goto S_50457;} +S_50458:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>(*_SUB_IDEOBJUPDATE_LONG_X2+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<(*_SUB_IDEOBJUPDATE_LONG_X2+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 2 ))))||new_error){ -if(qbevent){evnt(25066,9680,"ide_methods.bas");if(r)goto S_44299;} +if(qbevent){evnt(26307,13963,"ide_methods.bas");if(r)goto S_50458;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9681,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13964,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_MX-*_SUB_IDEOBJUPDATE_LONG_X2- 2 ; -if(!qbevent)break;evnt(25066,9682,"ide_methods.bas");}while(r); -S_44302:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEOBJUPDATE_LONG_X==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))&(-(*_SUB_IDEOBJUPDATE_LONG_X!=_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ -if(qbevent){evnt(25066,9683,"ide_methods.bas");if(r)goto S_44302;} +if(!qbevent)break;evnt(26307,13965,"ide_methods.bas");}while(r); +S_50461:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEOBJUPDATE_LONG_X==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))&(-(*_SUB_IDEOBJUPDATE_LONG_X!=_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ +if(qbevent){evnt(26307,13966,"ide_methods.bas");if(r)goto S_50461;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9684,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13967,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13968,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; -if(!qbevent)break;evnt(25066,9686,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; +if(!qbevent)break;evnt(26307,13969,"ide_methods.bas");}while(r); }else{ -S_44307:; +S_50466:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_X<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,9688,"ide_methods.bas");if(r)goto S_44307;} +if(qbevent){evnt(26307,13971,"ide_methods.bas");if(r)goto S_50466;} do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_X; -if(!qbevent)break;evnt(25066,9688,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_X; +if(!qbevent)break;evnt(26307,13971,"ide_methods.bas");}while(r); }else{ do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(25066,9688,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26307,13971,"ide_methods.bas");}while(r); } do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9689,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,13972,"ide_methods.bas");}while(r); } } } @@ -157009,855 +175598,558 @@ if(!qbevent)break;evnt(25066,9689,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9697,"ide_methods.bas");}while(r); -S_44320:; +if(!qbevent)break;evnt(26307,13980,"ide_methods.bas");}while(r); +S_50479:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(25066,9698,"ide_methods.bas");if(r)goto S_44320;} -S_44321:; +if(qbevent){evnt(26307,13981,"ide_methods.bas");if(r)goto S_50479;} +S_50480:; +if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 ))|(-(*__LONG_KB!= 0 ))))||new_error){ +if(qbevent){evnt(26307,13982,"ide_methods.bas");if(r)goto S_50480;} +S_50481:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ -if(qbevent){evnt(25066,9699,"ide_methods.bas");if(r)goto S_44321;} +if(qbevent){evnt(26307,13983,"ide_methods.bas");if(r)goto S_50481;} do{ *_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(_SUB_IDEOBJUPDATE_STRING_KK); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9700,"ide_methods.bas");}while(r); -S_44323:; +if(!qbevent)break;evnt(26307,13983,"ide_methods.bas");}while(r); +} +S_50484:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("V",1))))))||new_error){ -if(qbevent){evnt(25066,9701,"ide_methods.bas");if(r)goto S_44323;} +if(qbevent){evnt(26307,13984,"ide_methods.bas");if(r)goto S_50484;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9702,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13985,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,_SUB_IDEOBJUPDATE_STRING_CLIP,func_chr( 13 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9703,"ide_methods.bas");}while(r); -S_44326:; +if(!qbevent)break;evnt(26307,13986,"ide_methods.bas");}while(r); +S_50487:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(25066,9704,"ide_methods.bas");if(r)goto S_44326;} +if(qbevent){evnt(26307,13987,"ide_methods.bas");if(r)goto S_50487;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,qbs_left(_SUB_IDEOBJUPDATE_STRING_CLIP,*_SUB_IDEOBJUPDATE_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9704,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13987,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,_SUB_IDEOBJUPDATE_STRING_CLIP,func_chr( 10 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9705,"ide_methods.bas");}while(r); -S_44330:; +if(!qbevent)break;evnt(26307,13988,"ide_methods.bas");}while(r); +S_50491:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(25066,9706,"ide_methods.bas");if(r)goto S_44330;} +if(qbevent){evnt(26307,13989,"ide_methods.bas");if(r)goto S_50491;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,qbs_left(_SUB_IDEOBJUPDATE_STRING_CLIP,*_SUB_IDEOBJUPDATE_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9706,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13989,"ide_methods.bas");}while(r); } -S_44333:; +S_50494:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(25066,9707,"ide_methods.bas");if(r)goto S_44333;} -S_44334:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ -if(qbevent){evnt(25066,9708,"ide_methods.bas");if(r)goto S_44334;} +if(qbevent){evnt(26307,13990,"ide_methods.bas");if(r)goto S_50494;} +S_50495:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26307,13991,"ide_methods.bas");if(r)goto S_50495;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9709,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,13992,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9709,"ide_methods.bas");}while(r); -S_44337:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,13992,"ide_methods.bas");}while(r); +S_50498:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9710,"ide_methods.bas");if(r)goto S_44337;} +if(qbevent){evnt(26307,13993,"ide_methods.bas");if(r)goto S_50498;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9710,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13993,"ide_methods.bas");}while(r); } -S_44340:; +S_50501:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9711,"ide_methods.bas");if(r)goto S_44340;} +if(qbevent){evnt(26307,13994,"ide_methods.bas");if(r)goto S_50501;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9712,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,13995,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(25066,9713,"ide_methods.bas");}while(r); -S_44343:; +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26307,13996,"ide_methods.bas");}while(r); +S_50504:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,9714,"ide_methods.bas");if(r)goto S_44343;} +if(qbevent){evnt(26307,13997,"ide_methods.bas");if(r)goto S_50504;} do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1+_SUB_IDEOBJUPDATE_STRING_CLIP->len; -if(!qbevent)break;evnt(25066,9714,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1+_SUB_IDEOBJUPDATE_STRING_CLIP->len; +if(!qbevent)break;evnt(26307,13997,"ide_methods.bas");}while(r); } do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9715,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,13998,"ide_methods.bas");}while(r); } }else{ do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9718,"ide_methods.bas");}while(r); -S_44350:; +if(!qbevent)break;evnt(26307,14001,"ide_methods.bas");}while(r); +S_50511:; if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(25066,9719,"ide_methods.bas");if(r)goto S_44350;} +if(qbevent){evnt(26307,14002,"ide_methods.bas");if(r)goto S_50511;} do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+_SUB_IDEOBJUPDATE_STRING_CLIP->len; -if(!qbevent)break;evnt(25066,9719,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+_SUB_IDEOBJUPDATE_STRING_CLIP->len; +if(!qbevent)break;evnt(26307,14002,"ide_methods.bas");}while(r); } } } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,9722,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14005,"ide_methods.bas");}while(r); } -S_44357:; +S_50518:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("A",1))))))||new_error){ -if(qbevent){evnt(25066,9725,"ide_methods.bas");if(r)goto S_44357;} -S_44358:; +if(qbevent){evnt(26307,14008,"ide_methods.bas");if(r)goto S_50518;} +S_50519:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ -if(qbevent){evnt(25066,9726,"ide_methods.bas");if(r)goto S_44358;} +if(qbevent){evnt(26307,14009,"ide_methods.bas");if(r)goto S_50519;} do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= -1 ; -if(!qbevent)break;evnt(25066,9727,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= -1 ; +if(!qbevent)break;evnt(26307,14010,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73))= 0 ; -if(!qbevent)break;evnt(25066,9728,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; +if(!qbevent)break;evnt(26307,14011,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(25066,9729,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26307,14012,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,9731,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14014,"ide_methods.bas");}while(r); } -S_44365:; +S_50526:; if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("C",1)))))))||new_error){ -if(qbevent){evnt(25066,9734,"ide_methods.bas");if(r)goto S_44365;} -S_44366:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ -if(qbevent){evnt(25066,9735,"ide_methods.bas");if(r)goto S_44366;} +if(qbevent){evnt(26307,14017,"ide_methods.bas");if(r)goto S_50526;} +S_50527:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26307,14018,"ide_methods.bas");if(r)goto S_50527;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9736,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,14019,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9736,"ide_methods.bas");}while(r); -S_44369:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14019,"ide_methods.bas");}while(r); +S_50530:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9737,"ide_methods.bas");if(r)goto S_44369;} +if(qbevent){evnt(26307,14020,"ide_methods.bas");if(r)goto S_50530;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9737,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14020,"ide_methods.bas");}while(r); } -S_44372:; +S_50533:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9738,"ide_methods.bas");if(r)goto S_44372;} +if(qbevent){evnt(26307,14021,"ide_methods.bas");if(r)goto S_50533;} do{ sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9738,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14021,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,9740,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14023,"ide_methods.bas");}while(r); } -S_44378:; +S_50539:; if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("X",1)))))))||new_error){ -if(qbevent){evnt(25066,9743,"ide_methods.bas");if(r)goto S_44378;} -S_44379:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ -if(qbevent){evnt(25066,9744,"ide_methods.bas");if(r)goto S_44379;} +if(qbevent){evnt(26307,14026,"ide_methods.bas");if(r)goto S_50539;} +S_50540:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26307,14027,"ide_methods.bas");if(r)goto S_50540;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9745,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,14028,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9745,"ide_methods.bas");}while(r); -S_44382:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14028,"ide_methods.bas");}while(r); +S_50543:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9746,"ide_methods.bas");if(r)goto S_44382;} +if(qbevent){evnt(26307,14029,"ide_methods.bas");if(r)goto S_50543;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9746,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14029,"ide_methods.bas");}while(r); } -S_44385:; +S_50546:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9747,"ide_methods.bas");if(r)goto S_44385;} +if(qbevent){evnt(26307,14030,"ide_methods.bas");if(r)goto S_50546;} do{ sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9748,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14031,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9750,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14033,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(25066,9751,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26307,14034,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9752,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14035,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,9755,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14038,"ide_methods.bas");}while(r); } -S_44394:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))> 0 )))||new_error){ -if(qbevent){evnt(25066,9758,"ide_methods.bas");if(r)goto S_44394;} -S_44395:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ -if(qbevent){evnt(25066,9759,"ide_methods.bas");if(r)goto S_44395;} +S_50555:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 )))||new_error){ +if(qbevent){evnt(26307,14041,"ide_methods.bas");if(r)goto S_50555;} +S_50556:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26307,14042,"ide_methods.bas");if(r)goto S_50556;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9760,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,14043,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9760,"ide_methods.bas");}while(r); -S_44398:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14043,"ide_methods.bas");}while(r); +S_50559:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9761,"ide_methods.bas");if(r)goto S_44398;} +if(qbevent){evnt(26307,14044,"ide_methods.bas");if(r)goto S_50559;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9761,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14044,"ide_methods.bas");}while(r); } -S_44401:; +S_50562:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9762,"ide_methods.bas");if(r)goto S_44401;} +if(qbevent){evnt(26307,14045,"ide_methods.bas");if(r)goto S_50562;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9764,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14047,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9765,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14048,"ide_methods.bas");}while(r); } }else{ do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 )); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9768,"ide_methods.bas");}while(r); -S_44407:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,9769,"ide_methods.bas");if(r)goto S_44407;} +if(!qbevent)break;evnt(26307,14051,"ide_methods.bas");}while(r); +S_50568:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,14052,"ide_methods.bas");if(r)goto S_50568;} do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14052,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14052,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9770,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14053,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 ; -if(!qbevent)break;evnt(25066,9770,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 ; +if(!qbevent)break;evnt(26307,14053,"ide_methods.bas");}while(r); } -S_44415:; +S_50576:; }else{ -if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))){ -if(qbevent){evnt(25066,9772,"ide_methods.bas");if(r)goto S_44415;} +if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))){ +if(qbevent){evnt(26307,14055,"ide_methods.bas");if(r)goto S_50576;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9773,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,14056,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9773,"ide_methods.bas");}while(r); -S_44418:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14056,"ide_methods.bas");}while(r); +S_50579:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9774,"ide_methods.bas");if(r)goto S_44418;} +if(qbevent){evnt(26307,14057,"ide_methods.bas");if(r)goto S_50579;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9774,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14057,"ide_methods.bas");}while(r); } -S_44421:; +S_50582:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9775,"ide_methods.bas");if(r)goto S_44421;} +if(qbevent){evnt(26307,14058,"ide_methods.bas");if(r)goto S_50582;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14060,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9778,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14061,"ide_methods.bas");}while(r); } } } -S_44426:; +S_50587:; if (((-(*_SUB_IDEOBJUPDATE_LONG_K!= 8 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 9 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 10 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 13 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 26 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 255 ))&((((-(*__LONG_KALT== 0 ))&(-(*__LONG_KCTRL== 0 )))|((-(*__LONG_KALT== -1 ))&(-(*__LONG_KCTRL== -1 ))))))||new_error){ -if(qbevent){evnt(25066,9781,"ide_methods.bas");if(r)goto S_44426;} -S_44427:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ -if(qbevent){evnt(25066,9782,"ide_methods.bas");if(r)goto S_44427;} +if(qbevent){evnt(26307,14064,"ide_methods.bas");if(r)goto S_50587;} +S_50588:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26307,14065,"ide_methods.bas");if(r)goto S_50588;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9783,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,14066,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9783,"ide_methods.bas");}while(r); -S_44430:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14066,"ide_methods.bas");}while(r); +S_50591:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9784,"ide_methods.bas");if(r)goto S_44430;} +if(qbevent){evnt(26307,14067,"ide_methods.bas");if(r)goto S_50591;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9784,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14067,"ide_methods.bas");}while(r); } -S_44433:; +S_50594:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9785,"ide_methods.bas");if(r)goto S_44433;} +if(qbevent){evnt(26307,14068,"ide_methods.bas");if(r)goto S_50594;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9787,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14070,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9788,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14071,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9789,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14072,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(25066,9790,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26307,14073,"ide_methods.bas");}while(r); } } -S_44440:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))> 0 ))||new_error){ -if(qbevent){evnt(25066,9793,"ide_methods.bas");if(r)goto S_44440;} +S_50601:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 ))||new_error){ +if(qbevent){evnt(26307,14076,"ide_methods.bas");if(r)goto S_50601;} do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14076,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14076,"ide_methods.bas");}while(r); } -S_44445:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,9794,"ide_methods.bas");if(r)goto S_44445;} +S_50606:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,14077,"ide_methods.bas");if(r)goto S_50606;} do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9794,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14077,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9794,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14077,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_KK),_SUB_IDEOBJUPDATE_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14078,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+ 1 ; -if(!qbevent)break;evnt(25066,9795,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+ 1 ; +if(!qbevent)break;evnt(26307,14078,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14080,"ide_methods.bas");}while(r); } -S_44455:; +S_50616:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))))))||new_error){ -if(qbevent){evnt(25066,9799,"ide_methods.bas");if(r)goto S_44455;} -S_44456:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))||new_error){ -if(qbevent){evnt(25066,9800,"ide_methods.bas");if(r)goto S_44456;} +if(qbevent){evnt(26307,14082,"ide_methods.bas");if(r)goto S_50616;} +S_50617:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26307,14083,"ide_methods.bas");if(r)goto S_50617;} do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73)); -if(!qbevent)break;evnt(25066,9801,"ide_methods.bas");}while(r); +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26307,14084,"ide_methods.bas");}while(r); do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9801,"ide_methods.bas");}while(r); -S_44459:; +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14084,"ide_methods.bas");}while(r); +S_50620:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,9802,"ide_methods.bas");if(r)goto S_44459;} +if(qbevent){evnt(26307,14085,"ide_methods.bas");if(r)goto S_50620;} do{ swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(25066,9802,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14085,"ide_methods.bas");}while(r); } -S_44462:; +S_50623:; if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(25066,9803,"ide_methods.bas");if(r)goto S_44462;} +if(qbevent){evnt(26307,14086,"ide_methods.bas");if(r)goto S_50623;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9805,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14088,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14089,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(25066,9807,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26307,14090,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9808,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14091,"ide_methods.bas");}while(r); } }else{ -S_44469:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))> 0 ))||new_error){ -if(qbevent){evnt(25066,9811,"ide_methods.bas");if(r)goto S_44469;} +S_50630:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 ))||new_error){ +if(qbevent){evnt(26307,14094,"ide_methods.bas");if(r)goto S_50630;} do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)))); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14094,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14094,"ide_methods.bas");}while(r); } -S_44474:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))<_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,9812,"ide_methods.bas");if(r)goto S_44474;} +S_50635:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,14095,"ide_methods.bas");if(r)goto S_50635;} do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 )); +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14095,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14095,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9813,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14096,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9814,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14097,"ide_methods.bas");}while(r); } } -S_44483:; +S_50644:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("K",1))))))||new_error){ -if(qbevent){evnt(25066,9819,"ide_methods.bas");if(r)goto S_44483;} +if(qbevent){evnt(26307,14102,"ide_methods.bas");if(r)goto S_50644;} do{ -return_point[next_return_point++]=53; +return_point[next_return_point++]=162; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; -RETURN_53:; -if(!qbevent)break;evnt(25066,9819,"ide_methods.bas");}while(r); +RETURN_162:; +if(!qbevent)break;evnt(26307,14102,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))- 1 ; -if(!qbevent)break;evnt(25066,9819,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 ; +if(!qbevent)break;evnt(26307,14102,"ide_methods.bas");}while(r); } -S_44487:; +S_50648:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("M",1))))))||new_error){ -if(qbevent){evnt(25066,9820,"ide_methods.bas");if(r)goto S_44487;} +if(qbevent){evnt(26307,14103,"ide_methods.bas");if(r)goto S_50648;} do{ -return_point[next_return_point++]=54; +return_point[next_return_point++]=163; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; -RETURN_54:; -if(!qbevent)break;evnt(25066,9820,"ide_methods.bas");}while(r); +RETURN_163:; +if(!qbevent)break;evnt(26307,14103,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+ 1 ; -if(!qbevent)break;evnt(25066,9820,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+ 1 ; +if(!qbevent)break;evnt(26307,14103,"ide_methods.bas");}while(r); } -S_44491:; +S_50652:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("G",1))))))||new_error){ -if(qbevent){evnt(25066,9821,"ide_methods.bas");if(r)goto S_44491;} +if(qbevent){evnt(26307,14104,"ide_methods.bas");if(r)goto S_50652;} do{ -return_point[next_return_point++]=55; +return_point[next_return_point++]=164; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; -RETURN_55:; -if(!qbevent)break;evnt(25066,9821,"ide_methods.bas");}while(r); +RETURN_164:; +if(!qbevent)break;evnt(26307,14104,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; -if(!qbevent)break;evnt(25066,9821,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; +if(!qbevent)break;evnt(26307,14104,"ide_methods.bas");}while(r); } -S_44495:; +S_50656:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("O",1))))))||new_error){ -if(qbevent){evnt(25066,9822,"ide_methods.bas");if(r)goto S_44495;} +if(qbevent){evnt(26307,14105,"ide_methods.bas");if(r)goto S_50656;} do{ -return_point[next_return_point++]=56; +return_point[next_return_point++]=165; if (next_return_point>=return_points) more_return_points(); goto LABEL_SELECTCHECK; -RETURN_56:; -if(!qbevent)break;evnt(25066,9822,"ide_methods.bas");}while(r); +RETURN_165:; +if(!qbevent)break;evnt(26307,14105,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(25066,9822,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26307,14105,"ide_methods.bas");}while(r); } -S_44499:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))< 0 ))||new_error){ -if(qbevent){evnt(25066,9823,"ide_methods.bas");if(r)goto S_44499;} +S_50660:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))< 0 ))||new_error){ +if(qbevent){evnt(26307,14106,"ide_methods.bas");if(r)goto S_50660;} do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; -if(!qbevent)break;evnt(25066,9823,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; +if(!qbevent)break;evnt(26307,14106,"ide_methods.bas");}while(r); } -S_44502:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))>_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,9824,"ide_methods.bas");if(r)goto S_44502;} +S_50663:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))>_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,14107,"ide_methods.bas");if(r)goto S_50663;} do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(25066,9824,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26307,14107,"ide_methods.bas");}while(r); } -S_44505:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73))))||new_error){ -if(qbevent){evnt(25066,9825,"ide_methods.bas");if(r)goto S_44505;} +S_50666:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))||new_error){ +if(qbevent){evnt(26307,14108,"ide_methods.bas");if(r)goto S_50666;} do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,9825,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14108,"ide_methods.bas");}while(r); } } -S_44509:; +S_50670:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ -if(qbevent){evnt(25066,9828,"ide_methods.bas");if(r)goto S_44509;} -S_44510:; +if(qbevent){evnt(26307,14111,"ide_methods.bas");if(r)goto S_50670;} +S_50671:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,9829,"ide_methods.bas");if(r)goto S_44510;} +if(qbevent){evnt(26307,14112,"ide_methods.bas");if(r)goto S_50671;} do{ *_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9830,"ide_methods.bas");}while(r); -S_44512:; +if(!qbevent)break;evnt(26307,14113,"ide_methods.bas");}while(r); +S_50673:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(25066,9831,"ide_methods.bas");if(r)goto S_44512;} -S_44513:; +if(qbevent){evnt(26307,14114,"ide_methods.bas");if(r)goto S_50673;} +S_50674:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(25066,9832,"ide_methods.bas");if(r)goto S_44513;} +if(qbevent){evnt(26307,14115,"ide_methods.bas");if(r)goto S_50674;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(25066,9832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14115,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; -if(!qbevent)break;evnt(25066,9836,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14119,"ide_methods.bas");}while(r); } -S_44521:; +S_50682:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 2 ))||new_error){ -if(qbevent){evnt(25066,9839,"ide_methods.bas");if(r)goto S_44521;} +if(qbevent){evnt(26307,14122,"ide_methods.bas");if(r)goto S_50682;} do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9840,"ide_methods.bas");}while(r); -S_44523:; -if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(25066,9842,"ide_methods.bas");if(r)goto S_44523;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,9843,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,9843,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; -if(!qbevent)break;evnt(25066,9844,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(25066,9844,"ide_methods.bas");}while(r); -S_44528:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ -if(qbevent){evnt(25066,9845,"ide_methods.bas");if(r)goto S_44528;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(25066,9846,"ide_methods.bas");}while(r); -S_44530:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ -if(qbevent){evnt(25066,9847,"ide_methods.bas");if(r)goto S_44530;} -do{ -*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_MY-*_SUB_IDEOBJUPDATE_LONG_Y1- 1 ; -if(!qbevent)break;evnt(25066,9848,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_Y+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9849,"ide_methods.bas");}while(r); -S_44533:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ -if(qbevent){evnt(25066,9850,"ide_methods.bas");if(r)goto S_44533;} -do{ -*_SUB_IDEOBJUPDATE_LONG_INFO= 1 ; -if(!qbevent)break;evnt(25066,9850,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_Y; -if(!qbevent)break;evnt(25066,9851,"ide_methods.bas");}while(r); -S_44537:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ -if(qbevent){evnt(25066,9852,"ide_methods.bas");if(r)goto S_44537;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,9852,"ide_methods.bas");}while(r); -} -} -} -} -S_44543:; -if ((*_SUB_IDEOBJUPDATE_LONG_MB)||new_error){ -if(qbevent){evnt(25066,9858,"ide_methods.bas");if(r)goto S_44543;} -S_44544:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(25066,9859,"ide_methods.bas");if(r)goto S_44544;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,9861,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,9861,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; -if(!qbevent)break;evnt(25066,9862,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(25066,9862,"ide_methods.bas");}while(r); -S_44549:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ -if(qbevent){evnt(25066,9863,"ide_methods.bas");if(r)goto S_44549;} -S_44550:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ -if(qbevent){evnt(25066,9865,"ide_methods.bas");if(r)goto S_44550;} -do{ -*_SUB_IDEOBJUPDATE_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); -if(!qbevent)break;evnt(25066,9867,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_TNUM=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,9868,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Q=FUNC_IDEVBAR(_SUB_IDEOBJUPDATE_LONG_X2,&(pass5062=*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEOBJUPDATE_UDT_O)) + (32) ),_SUB_IDEOBJUPDATE_LONG_TSEL,_SUB_IDEOBJUPDATE_LONG_TNUM); -if(!qbevent)break;evnt(25066,9869,"ide_methods.bas");}while(r); -S_44554:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ -if(qbevent){evnt(25066,9871,"ide_methods.bas");if(r)goto S_44554;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 73 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9872,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,9873,"ide_methods.bas");}while(r); -} -S_44558:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ -if(qbevent){evnt(25066,9875,"ide_methods.bas");if(r)goto S_44558;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 81 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9876,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,9877,"ide_methods.bas");}while(r); -} -} -S_44563:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ))))||new_error){ -if(qbevent){evnt(25066,9881,"ide_methods.bas");if(r)goto S_44563;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 72 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9882,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,9883,"ide_methods.bas");}while(r); -} -S_44567:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ -if(qbevent){evnt(25066,9885,"ide_methods.bas");if(r)goto S_44567;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 80 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9886,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(25066,9887,"ide_methods.bas");}while(r); -} -} -} -} -S_44574:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(25066,9895,"ide_methods.bas");if(r)goto S_44574;} -S_44575:; -if ((*_SUB_IDEOBJUPDATE_LONG_MW)||new_error){ -if(qbevent){evnt(25066,9896,"ide_methods.bas");if(r)goto S_44575;} -S_44576:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MW< 0 ))||new_error){ -if(qbevent){evnt(25066,9898,"ide_methods.bas");if(r)goto S_44576;} -S_44577:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))||new_error){ -if(qbevent){evnt(25066,9899,"ide_methods.bas");if(r)goto S_44577;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,9899,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; -if(!qbevent)break;evnt(25066,9901,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+(*_SUB_IDEOBJUPDATE_LONG_MW* 3 ); -if(!qbevent)break;evnt(25066,9903,"ide_methods.bas");}while(r); -S_44584:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ -if(qbevent){evnt(25066,9904,"ide_methods.bas");if(r)goto S_44584;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(25066,9904,"ide_methods.bas");}while(r); -} -S_44587:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ -if(qbevent){evnt(25066,9905,"ide_methods.bas");if(r)goto S_44587;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,9905,"ide_methods.bas");}while(r); -} -} -S_44591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 72 ))))))||new_error){ -if(qbevent){evnt(25066,9908,"ide_methods.bas");if(r)goto S_44591;} -S_44592:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(25066,9909,"ide_methods.bas");if(r)goto S_44592;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(25066,9910,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))- 1 ; -if(!qbevent)break;evnt(25066,9912,"ide_methods.bas");}while(r); -S_44596:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ -if(qbevent){evnt(25066,9913,"ide_methods.bas");if(r)goto S_44596;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(25066,9913,"ide_methods.bas");}while(r); -} -} -} -S_44601:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 80 ))))))||new_error){ -if(qbevent){evnt(25066,9917,"ide_methods.bas");if(r)goto S_44601;} -S_44602:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(25066,9918,"ide_methods.bas");if(r)goto S_44602;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(25066,9919,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; -if(!qbevent)break;evnt(25066,9921,"ide_methods.bas");}while(r); -S_44606:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ -if(qbevent){evnt(25066,9922,"ide_methods.bas");if(r)goto S_44606;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,9922,"ide_methods.bas");}while(r); -} -} -} -S_44611:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 73 ))))))||new_error){ -if(qbevent){evnt(25066,9926,"ide_methods.bas");if(r)goto S_44611;} -S_44612:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(25066,9927,"ide_methods.bas");if(r)goto S_44612;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(25066,9928,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(25066,9930,"ide_methods.bas");}while(r); -S_44616:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ -if(qbevent){evnt(25066,9931,"ide_methods.bas");if(r)goto S_44616;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(25066,9931,"ide_methods.bas");}while(r); -} -} -S_44620:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 81 ))))))||new_error){ -if(qbevent){evnt(25066,9934,"ide_methods.bas");if(r)goto S_44620;} -S_44621:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(25066,9935,"ide_methods.bas");if(r)goto S_44621;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(25066,9936,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; -if(!qbevent)break;evnt(25066,9938,"ide_methods.bas");}while(r); -S_44625:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ -if(qbevent){evnt(25066,9939,"ide_methods.bas");if(r)goto S_44625;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,9939,"ide_methods.bas");}while(r); -} -} -S_44629:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("w",1))))))||new_error){ -if(qbevent){evnt(25066,9942,"ide_methods.bas");if(r)goto S_44629;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(25066,9943,"ide_methods.bas");}while(r); -} -S_44632:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("u",1))))))||new_error){ -if(qbevent){evnt(25066,9946,"ide_methods.bas");if(r)goto S_44632;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(25066,9947,"ide_methods.bas");}while(r); -} -S_44635:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ -if(qbevent){evnt(25066,9950,"ide_methods.bas");if(r)goto S_44635;} -do{ -*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= 0 ; -if(!qbevent)break;evnt(25066,9951,"ide_methods.bas");}while(r); -S_44637:; -if ((-((func_timer(NULL,0)-*_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT)>( 1 )))||new_error){ -if(qbevent){evnt(25066,9952,"ide_methods.bas");if(r)goto S_44637;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9952,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; -if(!qbevent)break;evnt(25066,9952,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=func_timer(NULL,0); -if(!qbevent)break;evnt(25066,9953,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9954,"ide_methods.bas");}while(r); -S_44643:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_K< 32 ))|(-(*_SUB_IDEOBJUPDATE_LONG_K> 126 )))||new_error){ -if(qbevent){evnt(25066,9954,"ide_methods.bas");if(r)goto S_44643;} -do{ -*_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(25066,9954,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,14123,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9957,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14126,"ide_methods.bas");}while(r); do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ @@ -157882,29 +176174,57 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(25066,9958,"ide_methods.bas");}while(r); -S_44648:; +if(!qbevent)break;evnt(26307,14127,"ide_methods.bas");}while(r); +do{ + +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS)[8])->id=(++mem_lock_id); +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&1){ +tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]); +free((void*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0])); +} +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]= 0 ; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]=( 0 )-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[6]=1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]=(ptrszint)malloc(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]*8); +if (!_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]) error(257); +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]|=1; +tmp_long=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&4){ +while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,14128,"ide_methods.bas");}while(r); +S_50687:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ -if(qbevent){evnt(25066,9959,"ide_methods.bas");if(r)goto S_44648;} +if(qbevent){evnt(26307,14129,"ide_methods.bas");if(r)goto S_50687;} do{ *_SUB_IDEOBJUPDATE_LONG_N= 0 ; -if(!qbevent)break;evnt(25066,9960,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14130,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,9960,"ide_methods.bas");}while(r); -S_44651:; +if(!qbevent)break;evnt(26307,14130,"ide_methods.bas");}while(r); +S_50690:; do{ -if(qbevent){evnt(25066,9961,"ide_methods.bas");if(r)goto S_44651;} +if(qbevent){evnt(26307,14131,"ide_methods.bas");if(r)goto S_50690;} do{ *_SUB_IDEOBJUPDATE_LONG_X2=func_instr(*_SUB_IDEOBJUPDATE_LONG_X,_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING1_SEP,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9962,"ide_methods.bas");}while(r); -S_44653:; +if(!qbevent)break;evnt(26307,14132,"ide_methods.bas");}while(r); +S_50692:; if ((-(*_SUB_IDEOBJUPDATE_LONG_X2> 0 ))||new_error){ -if(qbevent){evnt(25066,9963,"ide_methods.bas");if(r)goto S_44653;} +if(qbevent){evnt(26307,14133,"ide_methods.bas");if(r)goto S_50692;} do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,9964,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14134,"ide_methods.bas");}while(r); +S_50694:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_N>func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS,1,1))))||new_error){ +if(qbevent){evnt(26307,14135,"ide_methods.bas");if(r)goto S_50694;} do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ @@ -157917,7 +176237,7 @@ preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; } else preserved_elements=0; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]= 1 ; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N+ 999 )-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=1; if (preserved_elements){ static ptrszint tmp_long2; @@ -157949,16 +176269,92 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm } } } -if(!qbevent)break;evnt(25066,9965,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14136,"ide_methods.bas");}while(r); +do{ + +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&1){ +preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +} +else preserved_elements=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]= 1 ; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N+ 999 )-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +if (tmp_long2len))||new_error){ +if(qbevent){evnt(26307,14141,"ide_methods.bas");if(r)goto S_50700;} +S_50701:; +while((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))< 32 ))|(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))> 126 ))))||new_error){ +if(qbevent){evnt(26307,14142,"ide_methods.bas");if(r)goto S_50701;} +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14143,"ide_methods.bas");}while(r); +S_50703:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len== 0 )))||new_error){ +if(qbevent){evnt(26307,14144,"ide_methods.bas");if(r)goto S_50703;} +do{ +goto dl_exit_5668; +if(!qbevent)break;evnt(26307,14144,"ide_methods.bas");}while(r); +} +dl_continue_5668:; +} +dl_exit_5668:; +} }else{ do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,9968,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14148,"ide_methods.bas");}while(r); +S_50710:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_N>func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS,1,1))))||new_error){ +if(qbevent){evnt(26307,14149,"ide_methods.bas");if(r)goto S_50710;} do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ @@ -157971,7 +176367,7 @@ preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; } else preserved_elements=0; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]= 1 ; -_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N+ 999 )-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; _SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=1; if (preserved_elements){ static ptrszint tmp_long2; @@ -158003,571 +176399,984 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm } } } -if(!qbevent)break;evnt(25066,9969,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14150,"ide_methods.bas");}while(r); +do{ + +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&1){ +preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +} +else preserved_elements=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]= 1 ; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N+ 999 )-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +if (tmp_long2len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 )); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),qbs__trim(qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9970,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14153,"ide_methods.bas");}while(r); do{ -goto dl_exit_5065; -if(!qbevent)break;evnt(25066,9971,"ide_methods.bas");}while(r); +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long])),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14154,"ide_methods.bas");}while(r); +S_50716:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len))||new_error){ +if(qbevent){evnt(26307,14155,"ide_methods.bas");if(r)goto S_50716;} +S_50717:; +while((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))< 32 ))|(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))> 126 ))))||new_error){ +if(qbevent){evnt(26307,14156,"ide_methods.bas");if(r)goto S_50717;} +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14157,"ide_methods.bas");}while(r); +S_50719:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len== 0 )))||new_error){ +if(qbevent){evnt(26307,14158,"ide_methods.bas");if(r)goto S_50719;} +do{ +goto dl_exit_5673; +if(!qbevent)break;evnt(26307,14158,"ide_methods.bas");}while(r); +} +dl_continue_5673:; +} +dl_exit_5673:; +} +do{ +goto dl_exit_5666; +if(!qbevent)break;evnt(26307,14161,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,9973,"ide_methods.bas");}while(r); -dl_continue_5065:; +if(!qbevent)break;evnt(26307,14163,"ide_methods.bas");}while(r); +dl_continue_5666:; }while(1); -dl_exit_5065:; -} -S_44666:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 255 ))||new_error){ -if(qbevent){evnt(25066,9977,"ide_methods.bas");if(r)goto S_44666;} -S_44667:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 0 ))||new_error){ -if(qbevent){evnt(25066,9978,"ide_methods.bas");if(r)goto S_44667;} +dl_exit_5666:; do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))); + +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&1){ +preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; +} +else preserved_elements=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]= 1 ; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]; +if (tmp_long2id=(++mem_lock_id); +static int32 preserved_elements; +if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&1){ +preserved_elements=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +} +else preserved_elements=0; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]= 1 ; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]=(*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4]+1; +_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]; +if (tmp_long2=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ +if(qbevent){evnt(26307,14172,"ide_methods.bas");if(r)goto S_50736;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26307,14173,"ide_methods.bas");}while(r); +S_50738:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ +if(qbevent){evnt(26307,14174,"ide_methods.bas");if(r)goto S_50738;} +do{ +*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_MY-*_SUB_IDEOBJUPDATE_LONG_Y1- 1 ; +if(!qbevent)break;evnt(26307,14175,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_Y+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14176,"ide_methods.bas");}while(r); +S_50741:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ +if(qbevent){evnt(26307,14177,"ide_methods.bas");if(r)goto S_50741;} +do{ +*_SUB_IDEOBJUPDATE_LONG_INFO= 1 ; +if(!qbevent)break;evnt(26307,14177,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_Y; +if(!qbevent)break;evnt(26307,14178,"ide_methods.bas");}while(r); +S_50745:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26307,14179,"ide_methods.bas");if(r)goto S_50745;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))); +if(!qbevent)break;evnt(26307,14179,"ide_methods.bas");}while(r); +} +} +} +} +S_50751:; +if ((*_SUB_IDEOBJUPDATE_LONG_MB)||new_error){ +if(qbevent){evnt(26307,14185,"ide_methods.bas");if(r)goto S_50751;} +S_50752:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ +if(qbevent){evnt(26307,14186,"ide_methods.bas");if(r)goto S_50752;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); +if(!qbevent)break;evnt(26307,14188,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); +if(!qbevent)break;evnt(26307,14188,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; +if(!qbevent)break;evnt(26307,14189,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26307,14189,"ide_methods.bas");}while(r); +S_50757:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ +if(qbevent){evnt(26307,14190,"ide_methods.bas");if(r)goto S_50757;} +S_50758:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ +if(qbevent){evnt(26307,14192,"ide_methods.bas");if(r)goto S_50758;} +do{ +*_SUB_IDEOBJUPDATE_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); +if(!qbevent)break;evnt(26307,14194,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_TNUM=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26307,14195,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Q=FUNC_IDEVBAR(_SUB_IDEOBJUPDATE_LONG_X2,&(pass5675=*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEOBJUPDATE_UDT_O)) + (32) ),_SUB_IDEOBJUPDATE_LONG_TSEL,_SUB_IDEOBJUPDATE_LONG_TNUM); +if(!qbevent)break;evnt(26307,14196,"ide_methods.bas");}while(r); +S_50762:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ +if(qbevent){evnt(26307,14198,"ide_methods.bas");if(r)goto S_50762;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 73 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9978,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,14199,"ide_methods.bas");}while(r); do{ -goto LABEL_SELECTED; -if(!qbevent)break;evnt(25066,9979,"ide_methods.bas");}while(r); +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26307,14200,"ide_methods.bas");}while(r); +} +S_50766:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ +if(qbevent){evnt(26307,14202,"ide_methods.bas");if(r)goto S_50766;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 81 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14203,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26307,14204,"ide_methods.bas");}while(r); +} +} +S_50771:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ))))||new_error){ +if(qbevent){evnt(26307,14208,"ide_methods.bas");if(r)goto S_50771;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 72 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14209,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26307,14210,"ide_methods.bas");}while(r); +} +S_50775:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ +if(qbevent){evnt(26307,14212,"ide_methods.bas");if(r)goto S_50775;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 80 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14213,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26307,14214,"ide_methods.bas");}while(r); +} +} +} +} +S_50782:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ +if(qbevent){evnt(26307,14222,"ide_methods.bas");if(r)goto S_50782;} +S_50783:; +if ((*_SUB_IDEOBJUPDATE_LONG_MW)||new_error){ +if(qbevent){evnt(26307,14223,"ide_methods.bas");if(r)goto S_50783;} +S_50784:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MW< 0 ))||new_error){ +if(qbevent){evnt(26307,14225,"ide_methods.bas");if(r)goto S_50784;} +S_50785:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ +if(qbevent){evnt(26307,14226,"ide_methods.bas");if(r)goto S_50785;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14226,"ide_methods.bas");}while(r); +} }else{ do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_add(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9981,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; +if(!qbevent)break;evnt(26307,14228,"ide_methods.bas");}while(r); } -S_44674:; -if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM->len== 2 ))&(qbs_equal(qbs_left(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM, 1 ),qbs_right(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM, 1 )))))||new_error){ -if(qbevent){evnt(25066,9984,"ide_methods.bas");if(r)goto S_44674;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+(*_SUB_IDEOBJUPDATE_LONG_MW* 3 ); +if(!qbevent)break;evnt(26307,14230,"ide_methods.bas");}while(r); +S_50792:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ +if(qbevent){evnt(26307,14231,"ide_methods.bas");if(r)goto S_50792;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26307,14231,"ide_methods.bas");}while(r); +} +S_50795:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26307,14232,"ide_methods.bas");if(r)goto S_50795;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26307,14232,"ide_methods.bas");}while(r); +} +} +S_50799:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 72 ))))))||new_error){ +if(qbevent){evnt(26307,14235,"ide_methods.bas");if(r)goto S_50799;} +S_50800:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26307,14236,"ide_methods.bas");if(r)goto S_50800;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26307,14237,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))- 1 ; +if(!qbevent)break;evnt(26307,14239,"ide_methods.bas");}while(r); +S_50804:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ +if(qbevent){evnt(26307,14240,"ide_methods.bas");if(r)goto S_50804;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26307,14240,"ide_methods.bas");}while(r); +} +} +} +S_50809:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 80 ))))))||new_error){ +if(qbevent){evnt(26307,14244,"ide_methods.bas");if(r)goto S_50809;} +S_50810:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26307,14245,"ide_methods.bas");if(r)goto S_50810;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26307,14246,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; +if(!qbevent)break;evnt(26307,14248,"ide_methods.bas");}while(r); +S_50814:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26307,14249,"ide_methods.bas");if(r)goto S_50814;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26307,14249,"ide_methods.bas");}while(r); +} +} +} +S_50819:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 73 ))))))||new_error){ +if(qbevent){evnt(26307,14253,"ide_methods.bas");if(r)goto S_50819;} +S_50820:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26307,14254,"ide_methods.bas");if(r)goto S_50820;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26307,14255,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26307,14257,"ide_methods.bas");}while(r); +S_50824:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ +if(qbevent){evnt(26307,14258,"ide_methods.bas");if(r)goto S_50824;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26307,14258,"ide_methods.bas");}while(r); +} +} +S_50828:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 81 ))))))||new_error){ +if(qbevent){evnt(26307,14261,"ide_methods.bas");if(r)goto S_50828;} +S_50829:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26307,14262,"ide_methods.bas");if(r)goto S_50829;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26307,14263,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; +if(!qbevent)break;evnt(26307,14265,"ide_methods.bas");}while(r); +S_50833:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26307,14266,"ide_methods.bas");if(r)goto S_50833;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26307,14266,"ide_methods.bas");}while(r); +} +} +S_50837:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("w",1))))))||new_error){ +if(qbevent){evnt(26307,14269,"ide_methods.bas");if(r)goto S_50837;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26307,14270,"ide_methods.bas");}while(r); +} +S_50840:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("u",1))))))||new_error){ +if(qbevent){evnt(26307,14273,"ide_methods.bas");if(r)goto S_50840;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26307,14274,"ide_methods.bas");}while(r); +} +S_50843:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ +if(qbevent){evnt(26307,14277,"ide_methods.bas");if(r)goto S_50843;} +do{ +*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= 0 ; +if(!qbevent)break;evnt(26307,14278,"ide_methods.bas");}while(r); +S_50845:; +if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT)> 1 ))||new_error){ +if(qbevent){evnt(26307,14279,"ide_methods.bas");if(r)goto S_50845;} +do{ +qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14279,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; -if(!qbevent)break;evnt(25066,9987,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14279,"ide_methods.bas");}while(r); +} do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); +*_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,14280,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14281,"ide_methods.bas");}while(r); +S_50851:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_K< 32 ))|(-(*_SUB_IDEOBJUPDATE_LONG_K> 126 )))||new_error){ +if(qbevent){evnt(26307,14282,"ide_methods.bas");if(r)goto S_50851;} +do{ +goto LABEL_SELECTED; +if(!qbevent)break;evnt(26307,14283,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_add(__STRING_FILEDLGSEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14286,"ide_methods.bas");}while(r); +S_50855:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_FILEDLGSEARCHTERM->len== 2 ))&(qbs_equal(qbs_left(__STRING_FILEDLGSEARCHTERM, 1 ),qbs_right(__STRING_FILEDLGSEARCHTERM, 1 )))))||new_error){ +if(qbevent){evnt(26307,14288,"ide_methods.bas");if(r)goto S_50855;} +do{ +*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; +if(!qbevent)break;evnt(26307,14291,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14292,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_SEARCHPASS= 1 ; -if(!qbevent)break;evnt(25066,9991,"ide_methods.bas");}while(r); -S_44679:; +if(!qbevent)break;evnt(26307,14295,"ide_methods.bas");}while(r); +S_50860:; if ((~(*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER))||new_error){ -if(qbevent){evnt(25066,9992,"ide_methods.bas");if(r)goto S_44679;} +if(qbevent){evnt(26307,14296,"ide_methods.bas");if(r)goto S_50860;} do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); -if(!qbevent)break;evnt(25066,9992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14296,"ide_methods.bas");}while(r); }else{ do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))))+ 1 ; -if(!qbevent)break;evnt(25066,9992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14296,"ide_methods.bas");}while(r); } -S_44684:; +S_50865:; if (((-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH< 1 ))|(-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH>*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ -if(qbevent){evnt(25066,9993,"ide_methods.bas");if(r)goto S_44684;} +if(qbevent){evnt(26307,14297,"ide_methods.bas");if(r)goto S_50865;} do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; -if(!qbevent)break;evnt(25066,9993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14297,"ide_methods.bas");}while(r); } LABEL_RETRYFIND:; -if(qbevent){evnt(25066,9994,"ide_methods.bas");r=0;} -S_44687:; +if(qbevent){evnt(26307,14298,"ide_methods.bas");r=0;} +S_50868:; if ((-(*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS> 2 ))||new_error){ -if(qbevent){evnt(25066,9995,"ide_methods.bas");if(r)goto S_44687;} +if(qbevent){evnt(26307,14299,"ide_methods.bas");if(r)goto S_50868;} do{ goto LABEL_SELECTED; -if(!qbevent)break;evnt(25066,9995,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14299,"ide_methods.bas");}while(r); } -S_44690:; -fornext_value5069=*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH; -fornext_finalvalue5069=*_SUB_IDEOBJUPDATE_LONG_N; -fornext_step5069= 1 ; -if (fornext_step5069<0) fornext_step_negative5069=1; else fornext_step_negative5069=0; -if (new_error) goto fornext_error5069; -goto fornext_entrylabel5069; +S_50871:; +fornext_value5679=*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH; +fornext_finalvalue5679=*_SUB_IDEOBJUPDATE_LONG_N; +fornext_step5679= 1 ; +if (fornext_step5679<0) fornext_step_negative5679=1; else fornext_step_negative5679=0; +if (new_error) goto fornext_error5679; +goto fornext_entrylabel5679; while(1){ -fornext_value5069=fornext_step5069+(*_SUB_IDEOBJUPDATE_LONG_FINDMATCH); -fornext_entrylabel5069: -*_SUB_IDEOBJUPDATE_LONG_FINDMATCH=fornext_value5069; -if (fornext_step_negative5069){ -if (fornext_value5069fornext_finalvalue5069) break; +if (fornext_value5679>fornext_finalvalue5679) break; } -fornext_error5069:; -if(qbevent){evnt(25066,9996,"ide_methods.bas");if(r)goto S_44690;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9997,"ide_methods.bas");}while(r); -S_44692:; -fornext_value5071= 1 ; -fornext_finalvalue5071=((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len; -fornext_step5071= 1 ; -if (fornext_step5071<0) fornext_step_negative5071=1; else fornext_step_negative5071=0; -if (new_error) goto fornext_error5071; -goto fornext_entrylabel5071; -while(1){ -fornext_value5071=fornext_step5071+(*_SUB_IDEOBJUPDATE_LONG_AI); -fornext_entrylabel5071: -*_SUB_IDEOBJUPDATE_LONG_AI=fornext_value5071; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5071){ -if (fornext_value5071fornext_finalvalue5071) break; -} -fornext_error5071:; -if(qbevent){evnt(25066,9998,"ide_methods.bas");if(r)goto S_44692;} -do{ -*_SUB_IDEOBJUPDATE_LONG_AA=qbs_asc(qbs_ucase(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))),*_SUB_IDEOBJUPDATE_LONG_AI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,9999,"ide_methods.bas");}while(r); -S_44694:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_AA> 126 ))|(((-(*_SUB_IDEOBJUPDATE_LONG_K!= 95 ))&(-(*_SUB_IDEOBJUPDATE_LONG_AA== 95 ))))|(((-(*_SUB_IDEOBJUPDATE_LONG_K!= 42 ))&(-(*_SUB_IDEOBJUPDATE_LONG_AA== 42 )))))||new_error){ -if(qbevent){evnt(25066,10000,"ide_methods.bas");if(r)goto S_44694;} -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,qbs_add(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,func_chr(*_SUB_IDEOBJUPDATE_LONG_AA))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10003,"ide_methods.bas");}while(r); -} -fornext_continue_5070:; -} -fornext_exit_5070:; -S_44699:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FINDMATCH==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))))||new_error){ -if(qbevent){evnt(25066,10006,"ide_methods.bas");if(r)goto S_44699;} -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10006,"ide_methods.bas");}while(r); -} -S_44702:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEOBJUPDATE_STRING_VALIDCHARS,_SUB_IDEOBJUPDATE_STRING_SEARCHTERM->len),_SUB_IDEOBJUPDATE_STRING_SEARCHTERM)))||new_error){ -if(qbevent){evnt(25066,10007,"ide_methods.bas");if(r)goto S_44702;} +fornext_error5679:; +if(qbevent){evnt(26307,14300,"ide_methods.bas");if(r)goto S_50871;} +S_50872:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])),__STRING_FILEDLGSEARCHTERM->len)),qbs_ucase(__STRING_FILEDLGSEARCHTERM))))||new_error){ +if(qbevent){evnt(26307,14301,"ide_methods.bas");if(r)goto S_50872;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_FINDMATCH; -if(!qbevent)break;evnt(25066,10008,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14302,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14303,"ide_methods.bas");}while(r); do{ goto LABEL_SELECTED; -if(!qbevent)break;evnt(25066,10009,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14304,"ide_methods.bas");}while(r); } -fornext_continue_5068:; +fornext_continue_5678:; } -fornext_exit_5068:; +fornext_exit_5678:; do{ *_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; -if(!qbevent)break;evnt(25066,10013,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14308,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SEARCHPASS=*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS+ 1 ; -if(!qbevent)break;evnt(25066,10014,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14309,"ide_methods.bas");}while(r); do{ goto LABEL_RETRYFIND; -if(!qbevent)break;evnt(25066,10015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14310,"ide_methods.bas");}while(r); LABEL_SELECTED:; -if(qbevent){evnt(25066,10016,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,14311,"ide_methods.bas");r=0;} } } -S_44712:; +S_50883:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 0 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))<=func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS,1,1)))))||new_error){ +if(qbevent){evnt(26307,14314,"ide_methods.bas");if(r)goto S_50883;} +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14314,"ide_methods.bas");}while(r); +} +S_50886:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ -if(qbevent){evnt(25066,10022,"ide_methods.bas");if(r)goto S_44712;} -S_44713:; +if(qbevent){evnt(26307,14317,"ide_methods.bas");if(r)goto S_50886;} +S_50887:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,10023,"ide_methods.bas");if(r)goto S_44713;} +if(qbevent){evnt(26307,14318,"ide_methods.bas");if(r)goto S_50887;} do{ *_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10024,"ide_methods.bas");}while(r); -S_44715:; +if(!qbevent)break;evnt(26307,14319,"ide_methods.bas");}while(r); +S_50889:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(25066,10025,"ide_methods.bas");if(r)goto S_44715;} -S_44716:; +if(qbevent){evnt(26307,14320,"ide_methods.bas");if(r)goto S_50889;} +S_50890:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(25066,10026,"ide_methods.bas");if(r)goto S_44716;} +if(qbevent){evnt(26307,14321,"ide_methods.bas");if(r)goto S_50890;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(25066,10026,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14321,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; -if(!qbevent)break;evnt(25066,10030,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14325,"ide_methods.bas");}while(r); } -S_44724:; +S_50898:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 3 ))||new_error){ -if(qbevent){evnt(25066,10033,"ide_methods.bas");if(r)goto S_44724;} +if(qbevent){evnt(26307,14328,"ide_methods.bas");if(r)goto S_50898;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10036,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14331,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N= 1 ; -if(!qbevent)break;evnt(25066,10037,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14332,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,10038,"ide_methods.bas");}while(r); -S_44728:; -fornext_value5076= 1 ; -fornext_finalvalue5076=_SUB_IDEOBJUPDATE_STRING_A->len; -fornext_step5076= 1 ; -if (fornext_step5076<0) fornext_step_negative5076=1; else fornext_step_negative5076=0; -if (new_error) goto fornext_error5076; -goto fornext_entrylabel5076; +if(!qbevent)break;evnt(26307,14333,"ide_methods.bas");}while(r); +S_50902:; +fornext_value5683= 1 ; +fornext_finalvalue5683=_SUB_IDEOBJUPDATE_STRING_A->len; +fornext_step5683= 1 ; +if (fornext_step5683<0) fornext_step_negative5683=1; else fornext_step_negative5683=0; +if (new_error) goto fornext_error5683; +goto fornext_entrylabel5683; while(1){ -fornext_value5076=fornext_step5076+(*_SUB_IDEOBJUPDATE_LONG_I2); -fornext_entrylabel5076: -*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5076; +fornext_value5683=fornext_step5683+(*_SUB_IDEOBJUPDATE_LONG_I2); +fornext_entrylabel5683: +*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5683; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5076){ -if (fornext_value5076fornext_finalvalue5076) break; +if (fornext_value5683>fornext_finalvalue5683) break; } -fornext_error5076:; -if(qbevent){evnt(25066,10039,"ide_methods.bas");if(r)goto S_44728;} +fornext_error5683:; +if(qbevent){evnt(26307,14334,"ide_methods.bas");if(r)goto S_50902;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10040,"ide_methods.bas");}while(r); -S_44730:; +if(!qbevent)break;evnt(26307,14335,"ide_methods.bas");}while(r); +S_50904:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(25066,10041,"ide_methods.bas");if(r)goto S_44730;} +if(qbevent){evnt(26307,14336,"ide_methods.bas");if(r)goto S_50904;} do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,10041,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14336,"ide_methods.bas");}while(r); } -S_44733:; +S_50907:; if ((-(*_SUB_IDEOBJUPDATE_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(25066,10042,"ide_methods.bas");if(r)goto S_44733;} -S_44734:; +if(qbevent){evnt(26307,14337,"ide_methods.bas");if(r)goto S_50907;} +S_50908:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_A2),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(25066,10043,"ide_methods.bas");if(r)goto S_44734;} +if(qbevent){evnt(26307,14338,"ide_methods.bas");if(r)goto S_50908;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N- 1 ; -if(!qbevent)break;evnt(25066,10044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14339,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N; -if(!qbevent)break;evnt(25066,10045,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14340,"ide_methods.bas");}while(r); } } -S_44739:; +S_50913:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(25066,10048,"ide_methods.bas");if(r)goto S_44739;} +if(qbevent){evnt(26307,14343,"ide_methods.bas");if(r)goto S_50913;} do{ *_SUB_IDEOBJUPDATE_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,10048,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14343,"ide_methods.bas");}while(r); }else{ do{ *_SUB_IDEOBJUPDATE_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,10048,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14343,"ide_methods.bas");}while(r); } -fornext_continue_5075:; +fornext_continue_5682:; } -fornext_exit_5075:; -S_44745:; +fornext_exit_5682:; +S_50919:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(25066,10052,"ide_methods.bas");if(r)goto S_44745;} -S_44746:; +if(qbevent){evnt(26307,14347,"ide_methods.bas");if(r)goto S_50919;} +S_50920:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)))))||new_error){ -if(qbevent){evnt(25066,10053,"ide_methods.bas");if(r)goto S_44746;} +if(qbevent){evnt(26307,14348,"ide_methods.bas");if(r)goto S_50920;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14349,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N= 1 ; -if(!qbevent)break;evnt(25066,10055,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14350,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_C= 0 ; -if(!qbevent)break;evnt(25066,10056,"ide_methods.bas");}while(r); -S_44750:; -fornext_value5079= 1 ; -fornext_finalvalue5079=_SUB_IDEOBJUPDATE_STRING_A->len; -fornext_step5079= 1 ; -if (fornext_step5079<0) fornext_step_negative5079=1; else fornext_step_negative5079=0; -if (new_error) goto fornext_error5079; -goto fornext_entrylabel5079; +if(!qbevent)break;evnt(26307,14351,"ide_methods.bas");}while(r); +S_50924:; +fornext_value5686= 1 ; +fornext_finalvalue5686=_SUB_IDEOBJUPDATE_STRING_A->len; +fornext_step5686= 1 ; +if (fornext_step5686<0) fornext_step_negative5686=1; else fornext_step_negative5686=0; +if (new_error) goto fornext_error5686; +goto fornext_entrylabel5686; while(1){ -fornext_value5079=fornext_step5079+(*_SUB_IDEOBJUPDATE_LONG_I2); -fornext_entrylabel5079: -*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5079; +fornext_value5686=fornext_step5686+(*_SUB_IDEOBJUPDATE_LONG_I2); +fornext_entrylabel5686: +*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5686; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5079){ -if (fornext_value5079fornext_finalvalue5079) break; +if (fornext_value5686>fornext_finalvalue5686) break; } -fornext_error5079:; -if(qbevent){evnt(25066,10057,"ide_methods.bas");if(r)goto S_44750;} +fornext_error5686:; +if(qbevent){evnt(26307,14352,"ide_methods.bas");if(r)goto S_50924;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10058,"ide_methods.bas");}while(r); -S_44752:; +if(!qbevent)break;evnt(26307,14353,"ide_methods.bas");}while(r); +S_50926:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(25066,10059,"ide_methods.bas");if(r)goto S_44752;} +if(qbevent){evnt(26307,14354,"ide_methods.bas");if(r)goto S_50926;} do{ *_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(25066,10060,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14355,"ide_methods.bas");}while(r); }else{ -S_44755:; +S_50929:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(25066,10062,"ide_methods.bas");if(r)goto S_44755;} +if(qbevent){evnt(26307,14357,"ide_methods.bas");if(r)goto S_50929;} do{ *_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+ 1 ; -if(!qbevent)break;evnt(25066,10062,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14357,"ide_methods.bas");}while(r); } } -fornext_continue_5078:; +fornext_continue_5685:; } -fornext_exit_5078:; +fornext_exit_5685:; do{ *_SUB_IDEOBJUPDATE_LONG_W=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28)); -if(!qbevent)break;evnt(25066,10065,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14360,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+(*_SUB_IDEOBJUPDATE_LONG_N* 4 ); -if(!qbevent)break;evnt(25066,10066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14361,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_WHITESPACE=*_SUB_IDEOBJUPDATE_LONG_W-*_SUB_IDEOBJUPDATE_LONG_C; -if(!qbevent)break;evnt(25066,10067,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14362,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_SPACING=*_SUB_IDEOBJUPDATE_LONG_WHITESPACE/ (*_SUB_IDEOBJUPDATE_LONG_N+ 1 ); -if(!qbevent)break;evnt(25066,10068,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14363,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N2= 1 ; -if(!qbevent)break;evnt(25066,10073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14368,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10074,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14369,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,10076,"ide_methods.bas");}while(r); -S_44767:; -fornext_value5082= 1 ; -fornext_finalvalue5082=_SUB_IDEOBJUPDATE_STRING_A->len; -fornext_step5082= 1 ; -if (fornext_step5082<0) fornext_step_negative5082=1; else fornext_step_negative5082=0; -if (new_error) goto fornext_error5082; -goto fornext_entrylabel5082; +if(!qbevent)break;evnt(26307,14371,"ide_methods.bas");}while(r); +S_50941:; +fornext_value5689= 1 ; +fornext_finalvalue5689=_SUB_IDEOBJUPDATE_STRING_A->len; +fornext_step5689= 1 ; +if (fornext_step5689<0) fornext_step_negative5689=1; else fornext_step_negative5689=0; +if (new_error) goto fornext_error5689; +goto fornext_entrylabel5689; while(1){ -fornext_value5082=fornext_step5082+(*_SUB_IDEOBJUPDATE_LONG_I2); -fornext_entrylabel5082: -*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5082; +fornext_value5689=fornext_step5689+(*_SUB_IDEOBJUPDATE_LONG_I2); +fornext_entrylabel5689: +*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5689; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5082){ -if (fornext_value5082fornext_finalvalue5082) break; +if (fornext_value5689>fornext_finalvalue5689) break; } -fornext_error5082:; -if(qbevent){evnt(25066,10078,"ide_methods.bas");if(r)goto S_44767;} +fornext_error5689:; +if(qbevent){evnt(26307,14373,"ide_methods.bas");if(r)goto S_50941;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10079,"ide_methods.bas");}while(r); -S_44769:; +if(!qbevent)break;evnt(26307,14374,"ide_methods.bas");}while(r); +S_50943:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(25066,10080,"ide_methods.bas");if(r)goto S_44769;} +if(qbevent){evnt(26307,14375,"ide_methods.bas");if(r)goto S_50943;} do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_add(_SUB_IDEOBJUPDATE_STRING_A3,_SUB_IDEOBJUPDATE_STRING_A2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10080,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14375,"ide_methods.bas");}while(r); } -S_44772:; +S_50946:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 )))|(-(*_SUB_IDEOBJUPDATE_LONG_I2==_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ -if(qbevent){evnt(25066,10081,"ide_methods.bas");if(r)goto S_44772;} +if(qbevent){evnt(26307,14376,"ide_methods.bas");if(r)goto S_50946;} do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_SPACING; -if(!qbevent)break;evnt(25066,10083,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14378,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X2=FUNC_IDEHLEN(_SUB_IDEOBJUPDATE_STRING_A3)+ 4 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10093,"ide_methods.bas");}while(r); -S_44775:; +if(!qbevent)break;evnt(26307,14388,"ide_methods.bas");}while(r); +S_50949:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<(*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2))))||new_error){ -if(qbevent){evnt(25066,10094,"ide_methods.bas");if(r)goto S_44775;} +if(qbevent){evnt(26307,14389,"ide_methods.bas");if(r)goto S_50949;} do{ *_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N2; -if(!qbevent)break;evnt(25066,10094,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14389,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N2- 1 ; -if(!qbevent)break;evnt(25066,10094,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14389,"ide_methods.bas");}while(r); } do{ *_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2; -if(!qbevent)break;evnt(25066,10097,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14392,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10098,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14393,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_N2=*_SUB_IDEOBJUPDATE_LONG_N2+ 1 ; -if(!qbevent)break;evnt(25066,10099,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14394,"ide_methods.bas");}while(r); } -fornext_continue_5081:; +fornext_continue_5688:; } -fornext_exit_5081:; +fornext_exit_5688:; } } -S_44786:; +S_50960:; if (((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET>= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET<*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ -if(qbevent){evnt(25066,10106,"ide_methods.bas");if(r)goto S_44786;} +if(qbevent){evnt(26307,14401,"ide_methods.bas");if(r)goto S_50960;} do{ *_SUB_IDEOBJUPDATE_LONG_F2=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET; -if(!qbevent)break;evnt(25066,10107,"ide_methods.bas");}while(r); -S_44788:; +if(!qbevent)break;evnt(26307,14402,"ide_methods.bas");}while(r); +S_50962:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,func_chr( 13 )))|(qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1)))))||new_error){ -if(qbevent){evnt(25066,10108,"ide_methods.bas");if(r)goto S_44788;} +if(qbevent){evnt(26307,14403,"ide_methods.bas");if(r)goto S_50962;} do{ *_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET+ 1 ; -if(!qbevent)break;evnt(25066,10109,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14404,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N; -if(!qbevent)break;evnt(25066,10113,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14408,"ide_methods.bas");}while(r); } -S_44794:; +S_50968:; if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 4 ))||new_error){ -if(qbevent){evnt(25066,10116,"ide_methods.bas");if(r)goto S_44794;} -S_44795:; +if(qbevent){evnt(26307,14411,"ide_methods.bas");if(r)goto S_50968;} +S_50969:; if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(25066,10118,"ide_methods.bas");if(r)goto S_44795;} +if(qbevent){evnt(26307,14413,"ide_methods.bas");if(r)goto S_50969;} do{ *_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(25066,10119,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14414,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(25066,10120,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14415,"ide_methods.bas");}while(r); do{ *_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+ 2 ; -if(!qbevent)break;evnt(25066,10120,"ide_methods.bas");}while(r); -S_44799:; +if(!qbevent)break;evnt(26307,14415,"ide_methods.bas");}while(r); +S_50973:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,10121,"ide_methods.bas");if(r)goto S_44799;} +if(qbevent){evnt(26307,14416,"ide_methods.bas");if(r)goto S_50973;} do{ *_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 +FUNC_IDEHLEN(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10122,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14417,"ide_methods.bas");}while(r); } -S_44802:; +S_50976:; if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ -if(qbevent){evnt(25066,10124,"ide_methods.bas");if(r)goto S_44802;} -S_44803:; +if(qbevent){evnt(26307,14419,"ide_methods.bas");if(r)goto S_50976;} +S_50977:; if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2)))||new_error){ -if(qbevent){evnt(25066,10125,"ide_methods.bas");if(r)goto S_44803;} +if(qbevent){evnt(26307,14420,"ide_methods.bas");if(r)goto S_50977;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(25066,10126,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14421,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; -if(!qbevent)break;evnt(25066,10127,"ide_methods.bas");}while(r); -S_44806:; +if(!qbevent)break;evnt(26307,14422,"ide_methods.bas");}while(r); +S_50980:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ -if(qbevent){evnt(25066,10127,"ide_methods.bas");if(r)goto S_44806;} +if(qbevent){evnt(26307,14422,"ide_methods.bas");if(r)goto S_50980;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; -if(!qbevent)break;evnt(25066,10127,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14422,"ide_methods.bas");}while(r); } } } } -S_44812:; +S_50986:; if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(25066,10131,"ide_methods.bas");if(r)goto S_44812;} -S_44813:; +if(qbevent){evnt(26307,14426,"ide_methods.bas");if(r)goto S_50986;} +S_50987:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("H",1))))))||new_error){ -if(qbevent){evnt(25066,10162,"ide_methods.bas");if(r)goto S_44813;} +if(qbevent){evnt(26307,14457,"ide_methods.bas");if(r)goto S_50987;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(25066,10162,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14457,"ide_methods.bas");}while(r); } -S_44816:; +S_50990:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("P",1))))))||new_error){ -if(qbevent){evnt(25066,10163,"ide_methods.bas");if(r)goto S_44816;} +if(qbevent){evnt(26307,14458,"ide_methods.bas");if(r)goto S_50990;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; -if(!qbevent)break;evnt(25066,10163,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14458,"ide_methods.bas");}while(r); } -S_44819:; +S_50993:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(25066,10164,"ide_methods.bas");if(r)goto S_44819;} +if(qbevent){evnt(26307,14459,"ide_methods.bas");if(r)goto S_50993;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; -if(!qbevent)break;evnt(25066,10165,"ide_methods.bas");}while(r); -S_44821:; +if(!qbevent)break;evnt(26307,14460,"ide_methods.bas");}while(r); +S_50995:; if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ -if(qbevent){evnt(25066,10165,"ide_methods.bas");if(r)goto S_44821;} +if(qbevent){evnt(26307,14460,"ide_methods.bas");if(r)goto S_50995;} do{ *(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; -if(!qbevent)break;evnt(25066,10165,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14460,"ide_methods.bas");}while(r); } } } -S_44826:; +S_51000:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ -if(qbevent){evnt(25066,10170,"ide_methods.bas");if(r)goto S_44826;} -S_44827:; +if(qbevent){evnt(26307,14465,"ide_methods.bas");if(r)goto S_51000;} +S_51001:; if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(25066,10171,"ide_methods.bas");if(r)goto S_44827;} +if(qbevent){evnt(26307,14466,"ide_methods.bas");if(r)goto S_51001;} do{ *_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10172,"ide_methods.bas");}while(r); -S_44829:; +if(!qbevent)break;evnt(26307,14467,"ide_methods.bas");}while(r); +S_51003:; if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(25066,10173,"ide_methods.bas");if(r)goto S_44829;} -S_44830:; +if(qbevent){evnt(26307,14468,"ide_methods.bas");if(r)goto S_51003;} +S_51004:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(25066,10174,"ide_methods.bas");if(r)goto S_44830;} +if(qbevent){evnt(26307,14469,"ide_methods.bas");if(r)goto S_51004;} do{ *_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(25066,10174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14469,"ide_methods.bas");}while(r); } } } } do{ *_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; -if(!qbevent)break;evnt(25066,10178,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14473,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14476,"ide_methods.bas");}while(r); LABEL_SELECTCHECK:; -if(qbevent){evnt(25066,10182,"ide_methods.bas");r=0;} -S_44839:; -if ((*__LONG_KSHIFT&(-(*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))== 0 )))||new_error){ -if(qbevent){evnt(25066,10183,"ide_methods.bas");if(r)goto S_44839;} +if(qbevent){evnt(26307,14477,"ide_methods.bas");r=0;} +S_51013:; +if ((*__LONG_KSHIFT&(-(*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))== 0 )))||new_error){ +if(qbevent){evnt(26307,14478,"ide_methods.bas");if(r)goto S_51013;} do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= -1 ; -if(!qbevent)break;evnt(25066,10183,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= -1 ; +if(!qbevent)break;evnt(26307,14478,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(73))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(25066,10183,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26307,14478,"ide_methods.bas");}while(r); } -S_44843:; +S_51017:; if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(25066,10184,"ide_methods.bas");if(r)goto S_44843;} +if(qbevent){evnt(26307,14479,"ide_methods.bas");if(r)goto S_51017;} do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72))= 0 ; -if(!qbevent)break;evnt(25066,10184,"ide_methods.bas");}while(r); +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26307,14479,"ide_methods.bas");}while(r); } do{ -#include "ret165.txt" -if(!qbevent)break;evnt(25066,10185,"ide_methods.bas");}while(r); +#include "ret181.txt" +if(!qbevent)break;evnt(26307,14480,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free165.txt" +#include "free181.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -158578,7 +177387,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data166.txt" +#include "data182.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -158586,259 +177395,196 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_I2; -if(!qbevent)break;evnt(25066,10189,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14484,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_N=*_FUNC_IDEVBAR_LONG_N2; -if(!qbevent)break;evnt(25066,10189,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14484,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,10194,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14489,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10195,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 24 )); -if (new_error) goto skip5086; -makefit(tqbs); -qbs_print(tqbs,0); -skip5086: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y,func_chr( 24 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10195,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14490,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 1 ,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10196,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 25 )); -if (new_error) goto skip5087; -makefit(tqbs); -qbs_print(tqbs,0); -skip5087: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 1 ,func_chr( 25 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10196,"ide_methods.bas");}while(r); -S_44854:; -fornext_value5089=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -fornext_finalvalue5089=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; -fornext_step5089= 1 ; -if (fornext_step5089<0) fornext_step_negative5089=1; else fornext_step_negative5089=0; -if (new_error) goto fornext_error5089; -goto fornext_entrylabel5089; +if(!qbevent)break;evnt(26307,14491,"ide_methods.bas");}while(r); +S_51026:; +fornext_value5694=*_FUNC_IDEVBAR_LONG_Y+ 1 ; +fornext_finalvalue5694=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; +fornext_step5694= 1 ; +if (fornext_step5694<0) fornext_step_negative5694=1; else fornext_step_negative5694=0; +if (new_error) goto fornext_error5694; +goto fornext_entrylabel5694; while(1){ -fornext_value5089=fornext_step5089+(*_FUNC_IDEVBAR_LONG_Y2); -fornext_entrylabel5089: -*_FUNC_IDEVBAR_LONG_Y2=fornext_value5089; -if (fornext_step_negative5089){ -if (fornext_value5089fornext_finalvalue5089) break; +if (fornext_value5694>fornext_finalvalue5694) break; } -fornext_error5089:; -if(qbevent){evnt(25066,10197,"ide_methods.bas");if(r)goto S_44854;} +fornext_error5694:; +if(qbevent){evnt(26307,14492,"ide_methods.bas");if(r)goto S_51026;} do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y2,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10198,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 176 )); -if (new_error) goto skip5090; -makefit(tqbs); -qbs_print(tqbs,0); -skip5090: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 176 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10198,"ide_methods.bas");}while(r); -fornext_continue_5088:; +if(!qbevent)break;evnt(26307,14493,"ide_methods.bas");}while(r); +fornext_continue_5693:; } -fornext_exit_5088:; -S_44858:; +fornext_exit_5693:; +S_51029:; if ((-(*_FUNC_IDEVBAR_LONG_N< 1 ))||new_error){ -if(qbevent){evnt(25066,10203,"ide_methods.bas");if(r)goto S_44858;} +if(qbevent){evnt(26307,14498,"ide_methods.bas");if(r)goto S_51029;} do{ *_FUNC_IDEVBAR_LONG_N= 1 ; -if(!qbevent)break;evnt(25066,10203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14498,"ide_methods.bas");}while(r); } -S_44861:; +S_51032:; if ((-(*_FUNC_IDEVBAR_LONG_I< 1 ))||new_error){ -if(qbevent){evnt(25066,10204,"ide_methods.bas");if(r)goto S_44861;} +if(qbevent){evnt(26307,14499,"ide_methods.bas");if(r)goto S_51032;} do{ *_FUNC_IDEVBAR_LONG_I= 1 ; -if(!qbevent)break;evnt(25066,10204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14499,"ide_methods.bas");}while(r); } -S_44864:; +S_51035:; if ((-(*_FUNC_IDEVBAR_LONG_I>*_FUNC_IDEVBAR_LONG_N))||new_error){ -if(qbevent){evnt(25066,10205,"ide_methods.bas");if(r)goto S_44864;} +if(qbevent){evnt(26307,14500,"ide_methods.bas");if(r)goto S_51035;} do{ *_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_N; -if(!qbevent)break;evnt(25066,10205,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14500,"ide_methods.bas");}while(r); } -S_44867:; +S_51038:; if ((-(*_FUNC_IDEVBAR_LONG_H== 2 ))||new_error){ -if(qbevent){evnt(25066,10207,"ide_methods.bas");if(r)goto S_44867;} +if(qbevent){evnt(26307,14502,"ide_methods.bas");if(r)goto S_51038;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y; -if(!qbevent)break;evnt(25066,10208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14503,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10209,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14504,"ide_methods.bas");}while(r); } -S_44871:; +S_51042:; if ((-(*_FUNC_IDEVBAR_LONG_H== 3 ))||new_error){ -if(qbevent){evnt(25066,10212,"ide_methods.bas");if(r)goto S_44871;} +if(qbevent){evnt(26307,14507,"ide_methods.bas");if(r)goto S_51042;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,10213,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14508,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10215,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14510,"ide_methods.bas");}while(r); } -S_44875:; +S_51046:; if ((-(*_FUNC_IDEVBAR_LONG_H== 4 ))||new_error){ -if(qbevent){evnt(25066,10218,"ide_methods.bas");if(r)goto S_44875;} -S_44876:; +if(qbevent){evnt(26307,14513,"ide_methods.bas");if(r)goto S_51046;} +S_51047:; if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(25066,10219,"ide_methods.bas");if(r)goto S_44876;} +if(qbevent){evnt(26307,14514,"ide_methods.bas");if(r)goto S_51047;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,10220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14515,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10222,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14517,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(25066,10225,"ide_methods.bas");}while(r); -S_44881:; +if(!qbevent)break;evnt(26307,14520,"ide_methods.bas");}while(r); +S_51052:; if ((-(((float)(*_FUNC_IDEVBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ -if(qbevent){evnt(25066,10226,"ide_methods.bas");if(r)goto S_44881;} +if(qbevent){evnt(26307,14521,"ide_methods.bas");if(r)goto S_51052;} do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,10226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14521,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 2 ; -if(!qbevent)break;evnt(25066,10226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14521,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y2,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10227,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip5091; -makefit(tqbs); -qbs_print(tqbs,0); -skip5091: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10227,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14522,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(25066,10228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14523,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14524,"ide_methods.bas");}while(r); } } -S_44892:; +S_51062:; if ((-(*_FUNC_IDEVBAR_LONG_H> 4 ))||new_error){ -if(qbevent){evnt(25066,10233,"ide_methods.bas");if(r)goto S_44892;} -S_44893:; +if(qbevent){evnt(26307,14528,"ide_methods.bas");if(r)goto S_51062;} +S_51063:; if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(25066,10234,"ide_methods.bas");if(r)goto S_44893;} +if(qbevent){evnt(26307,14529,"ide_methods.bas");if(r)goto S_51063;} do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+(*_FUNC_IDEVBAR_LONG_H/ 4 ); -if(!qbevent)break;evnt(25066,10235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14530,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10237,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14532,"ide_methods.bas");}while(r); } -S_44897:; +S_51067:; if ((-(*_FUNC_IDEVBAR_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(25066,10239,"ide_methods.bas");if(r)goto S_44897;} +if(qbevent){evnt(26307,14534,"ide_methods.bas");if(r)goto S_51067;} do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,10240,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14535,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y2,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10241,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip5092; -makefit(tqbs); -qbs_print(tqbs,0); -skip5092: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10241,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14536,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(25066,10242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14537,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10243,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14538,"ide_methods.bas");}while(r); } -S_44904:; +S_51073:; if ((-(*_FUNC_IDEVBAR_LONG_I==*_FUNC_IDEVBAR_LONG_N))||new_error){ -if(qbevent){evnt(25066,10245,"ide_methods.bas");if(r)goto S_44904;} +if(qbevent){evnt(26307,14540,"ide_methods.bas");if(r)goto S_51073;} do{ *_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; -if(!qbevent)break;evnt(25066,10246,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14541,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y2,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10247,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip5093; -makefit(tqbs); -qbs_print(tqbs,0); -skip5093: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14542,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(25066,10248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14543,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14544,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(25066,10252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14547,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_SINGLE_P=*_FUNC_IDEVBAR_SINGLE_P*(*_FUNC_IDEVBAR_LONG_H- 4 ); -if(!qbevent)break;evnt(25066,10253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14548,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_Y2=qbr(*_FUNC_IDEVBAR_LONG_Y+ 2 +floor(*_FUNC_IDEVBAR_SINGLE_P)); -if(!qbevent)break;evnt(25066,10254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14549,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDEVBAR_LONG_Y2,*_FUNC_IDEVBAR_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,10255,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 219 )); -if (new_error) goto skip5094; -makefit(tqbs); -qbs_print(tqbs,0); -skip5094: -qbs_free(tqbs); +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10255,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14550,"ide_methods.bas");}while(r); do{ *_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(25066,10256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14551,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10257,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14552,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free166.txt" +#include "free182.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDEVBAR_LONG_IDEVBAR; @@ -158850,7 +177596,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data167.txt" +#include "data183.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -158858,48 +177604,10 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub__delay( 0.1E+0 ); -if(!qbevent)break;evnt(25066,10262,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14557,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free167.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEWAIT4ALT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data168.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free168.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEWAIT4MOUS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data169.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free169.txt" +#include "free183.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -158910,7 +177618,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data170.txt" +#include "data184.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -158919,403 +177627,440 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_PATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10275,"ide_methods.bas");}while(r); -S_44921:; +if(!qbevent)break;evnt(26307,14562,"ide_methods.bas");}while(r); +S_51088:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10277,"ide_methods.bas");if(r)goto S_44921;} -S_44922:; +if(qbevent){evnt(26307,14564,"ide_methods.bas");if(r)goto S_51088;} +S_51089:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ -if(qbevent){evnt(25066,10279,"ide_methods.bas");if(r)goto S_44922;} -S_44923:; -fornext_value5098=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; -fornext_finalvalue5098= 1 ; -fornext_step5098= -1 ; -if (fornext_step5098<0) fornext_step_negative5098=1; else fornext_step_negative5098=0; -if (new_error) goto fornext_error5098; -goto fornext_entrylabel5098; +if(qbevent){evnt(26307,14566,"ide_methods.bas");if(r)goto S_51089;} +S_51090:; +fornext_value5698=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; +fornext_finalvalue5698= 1 ; +fornext_step5698= -1 ; +if (fornext_step5698<0) fornext_step_negative5698=1; else fornext_step_negative5698=0; +if (new_error) goto fornext_error5698; +goto fornext_entrylabel5698; while(1){ -fornext_value5098=fornext_step5098+(*_FUNC_IDEZCHANGEPATH_LONG_X); -fornext_entrylabel5098: -*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5098; +fornext_value5698=fornext_step5698+(*_FUNC_IDEZCHANGEPATH_LONG_X); +fornext_entrylabel5698: +*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5698; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5098){ -if (fornext_value5098fornext_finalvalue5098) break; +if (fornext_value5698>fornext_finalvalue5698) break; } -fornext_error5098:; -if(qbevent){evnt(25066,10280,"ide_methods.bas");if(r)goto S_44923;} +fornext_error5698:; +if(qbevent){evnt(26307,14567,"ide_methods.bas");if(r)goto S_51090;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10281,"ide_methods.bas");}while(r); -S_44925:; +if(!qbevent)break;evnt(26307,14568,"ide_methods.bas");}while(r); +S_51092:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(25066,10282,"ide_methods.bas");if(r)goto S_44925;} +if(qbevent){evnt(26307,14569,"ide_methods.bas");if(r)goto S_51092;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14570,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5097; -if(!qbevent)break;evnt(25066,10284,"ide_methods.bas");}while(r); +goto fornext_exit_5697; +if(!qbevent)break;evnt(26307,14571,"ide_methods.bas");}while(r); } -fornext_continue_5097:; +fornext_continue_5697:; } -fornext_exit_5097:; +fornext_exit_5697:; do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10287,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14574,"ide_methods.bas");}while(r); } -S_44932:; +S_51099:; if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH, 1 ),qbs_new_txt_len(":",1)))))||new_error){ -if(qbevent){evnt(25066,10290,"ide_methods.bas");if(r)goto S_44932;} +if(qbevent){evnt(26307,14577,"ide_methods.bas");if(r)goto S_51099;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14578,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14579,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("\\",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10294,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14581,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10295,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14582,"ide_methods.bas");}while(r); } -S_44939:; +S_51106:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,10298,"ide_methods.bas");if(r)goto S_44939;} -S_44940:; +if(qbevent){evnt(26307,14585,"ide_methods.bas");if(r)goto S_51106;} +S_51107:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ -if(qbevent){evnt(25066,10301,"ide_methods.bas");if(r)goto S_44940;} -S_44941:; -fornext_value5102=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; -fornext_finalvalue5102= 1 ; -fornext_step5102= -1 ; -if (fornext_step5102<0) fornext_step_negative5102=1; else fornext_step_negative5102=0; -if (new_error) goto fornext_error5102; -goto fornext_entrylabel5102; +if(qbevent){evnt(26307,14588,"ide_methods.bas");if(r)goto S_51107;} +S_51108:; +fornext_value5702=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; +fornext_finalvalue5702= 1 ; +fornext_step5702= -1 ; +if (fornext_step5702<0) fornext_step_negative5702=1; else fornext_step_negative5702=0; +if (new_error) goto fornext_error5702; +goto fornext_entrylabel5702; while(1){ -fornext_value5102=fornext_step5102+(*_FUNC_IDEZCHANGEPATH_LONG_X); -fornext_entrylabel5102: -*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5102; +fornext_value5702=fornext_step5702+(*_FUNC_IDEZCHANGEPATH_LONG_X); +fornext_entrylabel5702: +*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5702; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5102){ -if (fornext_value5102fornext_finalvalue5102) break; +if (fornext_value5702>fornext_finalvalue5702) break; } -fornext_error5102:; -if(qbevent){evnt(25066,10302,"ide_methods.bas");if(r)goto S_44941;} +fornext_error5702:; +if(qbevent){evnt(26307,14589,"ide_methods.bas");if(r)goto S_51108;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10303,"ide_methods.bas");}while(r); -S_44943:; +if(!qbevent)break;evnt(26307,14590,"ide_methods.bas");}while(r); +S_51110:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(25066,10304,"ide_methods.bas");if(r)goto S_44943;} +if(qbevent){evnt(26307,14591,"ide_methods.bas");if(r)goto S_51110;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10305,"ide_methods.bas");}while(r); -S_44945:; +if(!qbevent)break;evnt(26307,14592,"ide_methods.bas");}while(r); +S_51112:; if ((-(*_FUNC_IDEZCHANGEPATH_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(25066,10306,"ide_methods.bas");if(r)goto S_44945;} +if(qbevent){evnt(26307,14593,"ide_methods.bas");if(r)goto S_51112;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_new_txt_len("/",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10306,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14593,"ide_methods.bas");}while(r); } do{ -goto fornext_exit_5101; -if(!qbevent)break;evnt(25066,10307,"ide_methods.bas");}while(r); +goto fornext_exit_5701; +if(!qbevent)break;evnt(26307,14594,"ide_methods.bas");}while(r); } -fornext_continue_5101:; +fornext_continue_5701:; } -fornext_exit_5101:; +fornext_exit_5701:; do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10310,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14597,"ide_methods.bas");}while(r); } -S_44953:; +S_51120:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(25066,10312,"ide_methods.bas");if(r)goto S_44953;} +if(qbevent){evnt(26307,14599,"ide_methods.bas");if(r)goto S_51120;} do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_new_txt_len("/",1),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14599,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10312,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14599,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10313,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14600,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free170.txt" +#include "free184.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH);return _FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH; } -qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD){ +qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD,qbs*_FUNC_IDEZFILELIST_STRING_MASK){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data171.txt" +#include "data185.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,10319,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14606,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZFILELIST_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10320,"ide_methods.bas");}while(r); -S_44962:; +if(!qbevent)break;evnt(26307,14607,"ide_methods.bas");}while(r); +S_51129:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10322,"ide_methods.bas");if(r)goto S_44962;} +if(qbevent){evnt(26307,14609,"ide_methods.bas");if(r)goto S_51129;} do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10323,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14610,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10323,"ide_methods.bas");}while(r); -S_44965:; +if(!qbevent)break;evnt(26307,14610,"ide_methods.bas");}while(r); +S_51132:; if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(25066,10324,"ide_methods.bas");if(r)goto S_44965;} +if(qbevent){evnt(26307,14611,"ide_methods.bas");if(r)goto S_51132;} do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.bas >.\\internal\\temp\\files.txt",33)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10324,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14611,"ide_methods.bas");}while(r); } -S_44968:; +S_51135:; if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(25066,10325,"ide_methods.bas");if(r)goto S_44968;} +if(qbevent){evnt(26307,14612,"ide_methods.bas");if(r)goto S_51135;} do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.* >.\\internal\\temp\\files.txt",31)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14612,"ide_methods.bas");}while(r); +} +S_51138:; +if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 ))||new_error){ +if(qbevent){evnt(26307,14613,"ide_methods.bas");if(r)goto S_51138;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\",1)),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_MASK)),qbs_new_txt_len(" >.\\internal\\temp\\files.txt",27)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14613,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10326,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14614,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10327,"ide_methods.bas");}while(r); -S_44973:; +if(!qbevent)break;evnt(26307,14615,"ide_methods.bas");}while(r); +S_51143:; while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(25066,10328,"ide_methods.bas");if(r)goto S_44973;} +if(qbevent){evnt(26307,14616,"ide_methods.bas");if(r)goto S_51143;} do{ tmp_fileno= 150 ; -if (new_error) goto skip5106; +if (new_error) goto skip5707; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); -if (new_error) goto skip5106; -skip5106: +if (new_error) goto skip5707; +skip5707: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10329,"ide_methods.bas");}while(r); -S_44975:; +if(!qbevent)break;evnt(26307,14617,"ide_methods.bas");}while(r); +S_51145:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZFILELIST_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,10330,"ide_methods.bas");if(r)goto S_44975;} -S_44976:; +if(qbevent){evnt(26307,14618,"ide_methods.bas");if(r)goto S_51145;} +S_51146:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10331,"ide_methods.bas");if(r)goto S_44976;} +if(qbevent){evnt(26307,14619,"ide_methods.bas");if(r)goto S_51146;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14619,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14619,"ide_methods.bas");}while(r); } } -dl_continue_5105:; +dl_continue_5706:; } -dl_exit_5105:; +dl_exit_5706:; do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10334,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14622,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10335,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14623,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10336,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14624,"ide_methods.bas");}while(r); } -S_44987:; +S_51157:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,10339,"ide_methods.bas");if(r)goto S_44987;} +if(qbevent){evnt(26307,14627,"ide_methods.bas");if(r)goto S_51157;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10340,"ide_methods.bas");}while(r); -S_44989:; -fornext_value5109= 1 ; -fornext_finalvalue5109= 2 -*_FUNC_IDEZFILELIST_LONG_METHOD; -fornext_step5109= 1 ; -if (fornext_step5109<0) fornext_step_negative5109=1; else fornext_step_negative5109=0; -if (new_error) goto fornext_error5109; -goto fornext_entrylabel5109; +if(!qbevent)break;evnt(26307,14628,"ide_methods.bas");}while(r); +S_51159:; +if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(26307,14629,"ide_methods.bas");if(r)goto S_51159;} +S_51160:; +fornext_value5710= 1 ; +fornext_finalvalue5710= 2 ; +fornext_step5710= 1 ; +if (fornext_step5710<0) fornext_step_negative5710=1; else fornext_step_negative5710=0; +if (new_error) goto fornext_error5710; +goto fornext_entrylabel5710; while(1){ -fornext_value5109=fornext_step5109+(*_FUNC_IDEZFILELIST_LONG_I); -fornext_entrylabel5109: -*_FUNC_IDEZFILELIST_LONG_I=fornext_value5109; -if (fornext_step_negative5109){ -if (fornext_value5109fornext_finalvalue5109) break; +if (fornext_value5710>fornext_finalvalue5710) break; } -fornext_error5109:; -if(qbevent){evnt(25066,10341,"ide_methods.bas");if(r)goto S_44989;} +fornext_error5710:; +if(qbevent){evnt(26307,14630,"ide_methods.bas");if(r)goto S_51160;} do{ sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10342,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14631,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10342,"ide_methods.bas");}while(r); -S_44992:; -if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(25066,10343,"ide_methods.bas");if(r)goto S_44992;} -S_44993:; +if(!qbevent)break;evnt(26307,14631,"ide_methods.bas");}while(r); +S_51163:; if ((-(*_FUNC_IDEZFILELIST_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(25066,10344,"ide_methods.bas");if(r)goto S_44993;} +if(qbevent){evnt(26307,14632,"ide_methods.bas");if(r)goto S_51163;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.bas",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10344,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14632,"ide_methods.bas");}while(r); } -S_44996:; +S_51166:; if ((-(*_FUNC_IDEZFILELIST_LONG_I== 2 ))||new_error){ -if(qbevent){evnt(25066,10345,"ide_methods.bas");if(r)goto S_44996;} +if(qbevent){evnt(26307,14633,"ide_methods.bas");if(r)goto S_51166;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.BAS",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10345,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14633,"ide_methods.bas");}while(r); } +do{ +return_point[next_return_point++]=166; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDTOLIST; +RETURN_166:; +if(!qbevent)break;evnt(26307,14634,"ide_methods.bas");}while(r); +fornext_continue_5709:; } -S_45000:; -if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(25066,10347,"ide_methods.bas");if(r)goto S_45000;} -S_45001:; -if ((-(*_FUNC_IDEZFILELIST_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(25066,10348,"ide_methods.bas");if(r)goto S_45001;} +fornext_exit_5709:; +S_51171:; +}else{ +if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 )){ +if(qbevent){evnt(26307,14636,"ide_methods.bas");if(r)goto S_51171;} do{ sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*",1)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10348,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14637,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=167; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDTOLIST; +RETURN_167:; +if(!qbevent)break;evnt(26307,14638,"ide_methods.bas");}while(r); +S_51174:; +}else{ +if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 )){ +if(qbevent){evnt(26307,14639,"ide_methods.bas");if(r)goto S_51174;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),_FUNC_IDEZFILELIST_STRING_MASK),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14640,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=168; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDTOLIST; +RETURN_168:; +if(!qbevent)break;evnt(26307,14641,"ide_methods.bas");}while(r); } } +} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,14643,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,14644,"ide_methods.bas");}while(r); +LABEL_ADDTOLIST:; +if(qbevent){evnt(26307,14646,"ide_methods.bas");r=0;} do{ sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10350,"ide_methods.bas");}while(r); -S_45006:; +if(!qbevent)break;evnt(26307,14647,"ide_methods.bas");}while(r); +S_51181:; while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(25066,10351,"ide_methods.bas");if(r)goto S_45006;} +if(qbevent){evnt(26307,14648,"ide_methods.bas");if(r)goto S_51181;} do{ tmp_fileno= 150 ; -if (new_error) goto skip5111; +if (new_error) goto skip5712; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); -if (new_error) goto skip5111; -skip5111: +if (new_error) goto skip5712; +skip5712: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10352,"ide_methods.bas");}while(r); -S_45008:; +if(!qbevent)break;evnt(26307,14649,"ide_methods.bas");}while(r); +S_51183:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZFILELIST_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(25066,10353,"ide_methods.bas");if(r)goto S_45008;} +if(qbevent){evnt(26307,14650,"ide_methods.bas");if(r)goto S_51183;} do{ -goto dl_exit_5110; -if(!qbevent)break;evnt(25066,10353,"ide_methods.bas");}while(r); +goto dl_exit_5711; +if(!qbevent)break;evnt(26307,14650,"ide_methods.bas");}while(r); } -S_45011:; -fornext_value5114=_FUNC_IDEZFILELIST_STRING_A->len; -fornext_finalvalue5114= 1 ; -fornext_step5114= -1 ; -if (fornext_step5114<0) fornext_step_negative5114=1; else fornext_step_negative5114=0; -if (new_error) goto fornext_error5114; -goto fornext_entrylabel5114; +S_51186:; +fornext_value5715=_FUNC_IDEZFILELIST_STRING_A->len; +fornext_finalvalue5715= 1 ; +fornext_step5715= -1 ; +if (fornext_step5715<0) fornext_step_negative5715=1; else fornext_step_negative5715=0; +if (new_error) goto fornext_error5715; +goto fornext_entrylabel5715; while(1){ -fornext_value5114=fornext_step5114+(*_FUNC_IDEZFILELIST_LONG_X); -fornext_entrylabel5114: -*_FUNC_IDEZFILELIST_LONG_X=fornext_value5114; +fornext_value5715=fornext_step5715+(*_FUNC_IDEZFILELIST_LONG_X); +fornext_entrylabel5715: +*_FUNC_IDEZFILELIST_LONG_X=fornext_value5715; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5114){ -if (fornext_value5114fornext_finalvalue5114) break; +if (fornext_value5715>fornext_finalvalue5715) break; } -fornext_error5114:; -if(qbevent){evnt(25066,10354,"ide_methods.bas");if(r)goto S_45011;} +fornext_error5715:; +if(qbevent){evnt(26307,14651,"ide_methods.bas");if(r)goto S_51186;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_A2,func_mid(_FUNC_IDEZFILELIST_STRING_A,*_FUNC_IDEZFILELIST_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10355,"ide_methods.bas");}while(r); -S_45013:; +if(!qbevent)break;evnt(26307,14652,"ide_methods.bas");}while(r); +S_51188:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(25066,10356,"ide_methods.bas");if(r)goto S_45013;} +if(qbevent){evnt(26307,14653,"ide_methods.bas");if(r)goto S_51188;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_right(_FUNC_IDEZFILELIST_STRING_A,_FUNC_IDEZFILELIST_STRING_A->len-*_FUNC_IDEZFILELIST_LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14654,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5113; -if(!qbevent)break;evnt(25066,10358,"ide_methods.bas");}while(r); +goto fornext_exit_5714; +if(!qbevent)break;evnt(26307,14655,"ide_methods.bas");}while(r); } -fornext_continue_5113:; +fornext_continue_5714:; } -fornext_exit_5113:; -S_45018:; +fornext_exit_5714:; +S_51193:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10361,"ide_methods.bas");if(r)goto S_45018;} +if(qbevent){evnt(26307,14658,"ide_methods.bas");if(r)goto S_51193;} do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14658,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14658,"ide_methods.bas");}while(r); } -dl_continue_5110:; +dl_continue_5711:; } -dl_exit_5110:; +dl_exit_5711:; do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10363,"ide_methods.bas");}while(r); -fornext_continue_5108:; -} -fornext_exit_5108:; +if(!qbevent)break;evnt(26307,14660,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10365,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,10366,"ide_methods.bas");}while(r); +#include "ret185.txt" +if(!qbevent)break;evnt(26307,14661,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free171.txt" +#include "free185.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST);return _FUNC_IDEZFILELIST_STRING_IDEZFILELIST; @@ -159327,75 +178072,72 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data172.txt" +#include "data186.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_45029:; +S_51202:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10374,"ide_methods.bas");if(r)goto S_45029;} +if(qbevent){evnt(26307,14669,"ide_methods.bas");if(r)goto S_51202;} do{ sub_shell2(qbs_new_txt_len("cd >.\\internal\\temp\\root.txt",28),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14670,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\root.txt",24), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10376,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14671,"ide_methods.bas");}while(r); do{ tmp_fileno= 150 ; -if (new_error) goto skip5117; +if (new_error) goto skip5718; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); -if (new_error) goto skip5117; -skip5117: +if (new_error) goto skip5718; +skip5718: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10377,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14672,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT,_FUNC_IDEZGETROOT_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10378,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14673,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10379,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14674,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10380,"ide_methods.bas");}while(r); -} -S_45037:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,10383,"ide_methods.bas");if(r)goto S_45037;} +if(!qbevent)break;evnt(26307,14675,"ide_methods.bas");}while(r); +}else{ do{ sub_shell2(qbs_new_txt_len("pwd >./internal/temp/root.txt",29),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10384,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14677,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("./internal/temp/root.txt",24), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10385,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14678,"ide_methods.bas");}while(r); do{ tmp_fileno= 150 ; -if (new_error) goto skip5118; +if (new_error) goto skip5719; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); -if (new_error) goto skip5118; -skip5118: +if (new_error) goto skip5719; +skip5719: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10386,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14679,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT,_FUNC_IDEZGETROOT_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10387,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14680,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14681,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14682,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free172.txt" +#include "free186.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT);return _FUNC_IDEZGETROOT_STRING_IDEZGETROOT; @@ -159407,304 +178149,311 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data173.txt" +#include "data187.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,10395,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14688,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZPATHLIST_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10396,"ide_methods.bas");}while(r); -S_45047:; +if(!qbevent)break;evnt(26307,14689,"ide_methods.bas");}while(r); +S_51219:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10398,"ide_methods.bas");if(r)goto S_45047;} +if(qbevent){evnt(26307,14691,"ide_methods.bas");if(r)goto S_51219;} do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10399,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14692,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10399,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14692,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10400,"ide_methods.bas");}while(r); -S_45051:; +if(!qbevent)break;evnt(26307,14693,"ide_methods.bas");}while(r); +S_51223:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATH, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,10400,"ide_methods.bas");if(r)goto S_45051;} +if(qbevent){evnt(26307,14693,"ide_methods.bas");if(r)goto S_51223;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("\\",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10400,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14693,"ide_methods.bas");}while(r); } do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /AD ",15),FUNC_QUOTEDFILENAME(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATH,_FUNC_IDEZPATHLIST_STRING_A))),qbs_new_txt_len(" >.\\internal\\temp\\paths.txt",27)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10401,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14694,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10402,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14695,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10403,"ide_methods.bas");}while(r); -S_45057:; +if(!qbevent)break;evnt(26307,14696,"ide_methods.bas");}while(r); +S_51229:; while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(25066,10404,"ide_methods.bas");if(r)goto S_45057;} +if(qbevent){evnt(26307,14697,"ide_methods.bas");if(r)goto S_51229;} do{ tmp_fileno= 150 ; -if (new_error) goto skip5121; +if (new_error) goto skip5722; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); -if (new_error) goto skip5121; -skip5121: +if (new_error) goto skip5722; +skip5722: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10405,"ide_methods.bas");}while(r); -S_45059:; +if(!qbevent)break;evnt(26307,14698,"ide_methods.bas");}while(r); +S_51231:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10406,"ide_methods.bas");if(r)goto S_45059;} +if(qbevent){evnt(26307,14699,"ide_methods.bas");if(r)goto S_51231;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10406,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14699,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10406,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14699,"ide_methods.bas");}while(r); } -dl_continue_5120:; +dl_continue_5721:; } -dl_exit_5120:; +dl_exit_5721:; do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14701,"ide_methods.bas");}while(r); do{ *_FUNC_IDEZPATHLIST_LONG_C= 0 ; -if(!qbevent)break;evnt(25066,10410,"ide_methods.bas");}while(r); -S_45067:; -fornext_value5123= 1 ; -fornext_finalvalue5123=_FUNC_IDEZPATHLIST_STRING_PATH->len; -fornext_step5123= 1 ; -if (fornext_step5123<0) fornext_step_negative5123=1; else fornext_step_negative5123=0; -if (new_error) goto fornext_error5123; -goto fornext_entrylabel5123; +if(!qbevent)break;evnt(26307,14703,"ide_methods.bas");}while(r); +S_51239:; +fornext_value5724= 1 ; +fornext_finalvalue5724=_FUNC_IDEZPATHLIST_STRING_PATH->len; +fornext_step5724= 1 ; +if (fornext_step5724<0) fornext_step_negative5724=1; else fornext_step_negative5724=0; +if (new_error) goto fornext_error5724; +goto fornext_entrylabel5724; while(1){ -fornext_value5123=fornext_step5123+(*_FUNC_IDEZPATHLIST_LONG_X); -fornext_entrylabel5123: -*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5123; +fornext_value5724=fornext_step5724+(*_FUNC_IDEZPATHLIST_LONG_X); +fornext_entrylabel5724: +*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5724; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5123){ -if (fornext_value5123fornext_finalvalue5123) break; +if (fornext_value5724>fornext_finalvalue5724) break; } -fornext_error5123:; -if(qbevent){evnt(25066,10411,"ide_methods.bas");if(r)goto S_45067;} +fornext_error5724:; +if(qbevent){evnt(26307,14704,"ide_methods.bas");if(r)goto S_51239;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_B,func_mid(_FUNC_IDEZPATHLIST_STRING_PATH,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10412,"ide_methods.bas");}while(r); -S_45069:; +if(!qbevent)break;evnt(26307,14705,"ide_methods.bas");}while(r); +S_51241:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_B,__STRING1_IDEPATHSEP)))||new_error){ -if(qbevent){evnt(25066,10413,"ide_methods.bas");if(r)goto S_45069;} +if(qbevent){evnt(26307,14706,"ide_methods.bas");if(r)goto S_51241;} do{ *_FUNC_IDEZPATHLIST_LONG_C=*_FUNC_IDEZPATHLIST_LONG_C+ 1 ; -if(!qbevent)break;evnt(25066,10413,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14706,"ide_methods.bas");}while(r); } -fornext_continue_5122:; +fornext_continue_5723:; } -fornext_exit_5122:; -S_45073:; +fornext_exit_5723:; +S_51245:; if ((-(*_FUNC_IDEZPATHLIST_LONG_C>= 1 ))||new_error){ -if(qbevent){evnt(25066,10415,"ide_methods.bas");if(r)goto S_45073;} -S_45074:; +if(qbevent){evnt(26307,14708,"ide_methods.bas");if(r)goto S_51245;} +S_51246:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZPATHLIST_STRING_PATHLIST->len))||new_error){ -if(qbevent){evnt(25066,10416,"ide_methods.bas");if(r)goto S_45074;} +if(qbevent){evnt(26307,14709,"ide_methods.bas");if(r)goto S_51246;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(qbs_new_txt_len("..",2),_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14709,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("..",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14709,"ide_methods.bas");}while(r); } } -S_45080:; -fornext_value5127= 0 ; -fornext_finalvalue5127= 25 ; -fornext_step5127= 1 ; -if (fornext_step5127<0) fornext_step_negative5127=1; else fornext_step_negative5127=0; -if (new_error) goto fornext_error5127; -goto fornext_entrylabel5127; +do{ +*_FUNC_IDEZPATHLIST_LONG_D=( int32 )logical_drives(); +if(!qbevent)break;evnt(26307,14717,"ide_methods.bas");}while(r); +S_51253:; +fornext_value5728= 0 ; +fornext_finalvalue5728= 25 ; +fornext_step5728= 1 ; +if (fornext_step5728<0) fornext_step_negative5728=1; else fornext_step_negative5728=0; +if (new_error) goto fornext_error5728; +goto fornext_entrylabel5728; while(1){ -fornext_value5127=fornext_step5127+(*_FUNC_IDEZPATHLIST_LONG_I); -fornext_entrylabel5127: -*_FUNC_IDEZPATHLIST_LONG_I=fornext_value5127; -if (fornext_step_negative5127){ -if (fornext_value5127fornext_finalvalue5127) break; +if (fornext_value5728>fornext_finalvalue5728) break; } -fornext_error5127:; -if(qbevent){evnt(25066,10419,"ide_methods.bas");if(r)goto S_45080;} -S_45081:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZPATHLIST_STRING_PATHLIST->len))||new_error){ -if(qbevent){evnt(25066,10420,"ide_methods.bas");if(r)goto S_45081;} +fornext_error5728:; +if(qbevent){evnt(26307,14718,"ide_methods.bas");if(r)goto S_51253;} +S_51254:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATHLIST, 1 ),_FUNC_IDEZPATHLIST_STRING1_SEP))&(-(_FUNC_IDEZPATHLIST_STRING_PATHLIST->len> 0 ))))||new_error){ +if(qbevent){evnt(26307,14719,"ide_methods.bas");if(r)goto S_51254;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10420,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14719,"ide_methods.bas");}while(r); } +S_51257:; +if ((func__readbit(*_FUNC_IDEZPATHLIST_LONG_D,*_FUNC_IDEZPATHLIST_LONG_I))||new_error){ +if(qbevent){evnt(26307,14720,"ide_methods.bas");if(r)goto S_51257;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,func_chr( 65 +*_FUNC_IDEZPATHLIST_LONG_I)),qbs_new_txt_len(":",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10421,"ide_methods.bas");}while(r); -fornext_continue_5126:; +if(!qbevent)break;evnt(26307,14721,"ide_methods.bas");}while(r); } -fornext_exit_5126:; +fornext_continue_5727:; +} +fornext_exit_5727:; do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10423,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14725,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10424,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14726,"ide_methods.bas");}while(r); } -S_45089:; +S_51264:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,10427,"ide_methods.bas");if(r)goto S_45089;} +if(qbevent){evnt(26307,14729,"ide_methods.bas");if(r)goto S_51264;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14730,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10429,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14731,"ide_methods.bas");}while(r); do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10429,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14731,"ide_methods.bas");}while(r); do{ sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZPATHLIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -mindepth 1 -type d >./internal/temp/paths.txt",59)),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10430,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14732,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10431,"ide_methods.bas");}while(r); -S_45095:; +if(!qbevent)break;evnt(26307,14733,"ide_methods.bas");}while(r); +S_51270:; while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(25066,10432,"ide_methods.bas");if(r)goto S_45095;} +if(qbevent){evnt(26307,14734,"ide_methods.bas");if(r)goto S_51270;} do{ tmp_fileno= 150 ; -if (new_error) goto skip5130; +if (new_error) goto skip5731; sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); -if (new_error) goto skip5130; -skip5130: +if (new_error) goto skip5731; +skip5731: qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10433,"ide_methods.bas");}while(r); -S_45097:; +if(!qbevent)break;evnt(26307,14735,"ide_methods.bas");}while(r); +S_51272:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZPATHLIST_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(25066,10434,"ide_methods.bas");if(r)goto S_45097;} +if(qbevent){evnt(26307,14736,"ide_methods.bas");if(r)goto S_51272;} do{ -goto dl_exit_5129; -if(!qbevent)break;evnt(25066,10434,"ide_methods.bas");}while(r); +goto dl_exit_5730; +if(!qbevent)break;evnt(26307,14736,"ide_methods.bas");}while(r); } -S_45100:; -fornext_value5133=_FUNC_IDEZPATHLIST_STRING_A->len; -fornext_finalvalue5133= 1 ; -fornext_step5133= -1 ; -if (fornext_step5133<0) fornext_step_negative5133=1; else fornext_step_negative5133=0; -if (new_error) goto fornext_error5133; -goto fornext_entrylabel5133; +S_51275:; +fornext_value5734=_FUNC_IDEZPATHLIST_STRING_A->len; +fornext_finalvalue5734= 1 ; +fornext_step5734= -1 ; +if (fornext_step5734<0) fornext_step_negative5734=1; else fornext_step_negative5734=0; +if (new_error) goto fornext_error5734; +goto fornext_entrylabel5734; while(1){ -fornext_value5133=fornext_step5133+(*_FUNC_IDEZPATHLIST_LONG_X); -fornext_entrylabel5133: -*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5133; +fornext_value5734=fornext_step5734+(*_FUNC_IDEZPATHLIST_LONG_X); +fornext_entrylabel5734: +*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5734; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5133){ -if (fornext_value5133fornext_finalvalue5133) break; +if (fornext_value5734>fornext_finalvalue5734) break; } -fornext_error5133:; -if(qbevent){evnt(25066,10435,"ide_methods.bas");if(r)goto S_45100;} +fornext_error5734:; +if(qbevent){evnt(26307,14737,"ide_methods.bas");if(r)goto S_51275;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A2,func_mid(_FUNC_IDEZPATHLIST_STRING_A,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10436,"ide_methods.bas");}while(r); -S_45102:; +if(!qbevent)break;evnt(26307,14738,"ide_methods.bas");}while(r); +S_51277:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(25066,10437,"ide_methods.bas");if(r)goto S_45102;} +if(qbevent){evnt(26307,14739,"ide_methods.bas");if(r)goto S_51277;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_right(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING_A->len-*_FUNC_IDEZPATHLIST_LONG_X)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10438,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14740,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5132; -if(!qbevent)break;evnt(25066,10439,"ide_methods.bas");}while(r); +goto fornext_exit_5733; +if(!qbevent)break;evnt(26307,14741,"ide_methods.bas");}while(r); } -fornext_continue_5132:; +fornext_continue_5733:; } -fornext_exit_5132:; -S_45107:; +fornext_exit_5733:; +S_51282:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10442,"ide_methods.bas");if(r)goto S_45107;} +if(qbevent){evnt(26307,14744,"ide_methods.bas");if(r)goto S_51282;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10442,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14744,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10442,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14744,"ide_methods.bas");}while(r); } -dl_continue_5129:; +dl_continue_5730:; } -dl_exit_5129:; +dl_exit_5730:; do{ sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10444,"ide_methods.bas");}while(r); -S_45114:; +if(!qbevent)break;evnt(26307,14746,"ide_methods.bas");}while(r); +S_51289:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEZPATHLIST_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(25066,10446,"ide_methods.bas");if(r)goto S_45114;} +if(qbevent){evnt(26307,14748,"ide_methods.bas");if(r)goto S_51289;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("..",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10447,"ide_methods.bas");}while(r); -S_45116:; +if(!qbevent)break;evnt(26307,14749,"ide_methods.bas");}while(r); +S_51291:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10449,"ide_methods.bas");if(r)goto S_45116;} +if(qbevent){evnt(26307,14751,"ide_methods.bas");if(r)goto S_51291;} do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14751,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14751,"ide_methods.bas");}while(r); } } do{ qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14754,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14755,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free173.txt" +#include "free187.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST);return _FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST; @@ -159716,7 +178465,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data174.txt" +#include "data188.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -159725,114 +178474,58 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10459,"ide_methods.bas");}while(r); -S_45126:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10461,"ide_methods.bas");if(r)goto S_45126;} -S_45127:; -fornext_value5138=_FUNC_IDEZTAKEPATH_STRING_F->len; -fornext_finalvalue5138= 1 ; -fornext_step5138= -1 ; -if (fornext_step5138<0) fornext_step_negative5138=1; else fornext_step_negative5138=0; -if (new_error) goto fornext_error5138; -goto fornext_entrylabel5138; +if(!qbevent)break;evnt(26307,14761,"ide_methods.bas");}while(r); +S_51301:; +fornext_value5739=_FUNC_IDEZTAKEPATH_STRING_F->len; +fornext_finalvalue5739= 1 ; +fornext_step5739= -1 ; +if (fornext_step5739<0) fornext_step_negative5739=1; else fornext_step_negative5739=0; +if (new_error) goto fornext_error5739; +goto fornext_entrylabel5739; while(1){ -fornext_value5138=fornext_step5138+(*_FUNC_IDEZTAKEPATH_LONG_I); -fornext_entrylabel5138: -*_FUNC_IDEZTAKEPATH_LONG_I=fornext_value5138; +fornext_value5739=fornext_step5739+(*_FUNC_IDEZTAKEPATH_LONG_I); +fornext_entrylabel5739: +*_FUNC_IDEZTAKEPATH_LONG_I=fornext_value5739; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5138){ -if (fornext_value5138fornext_finalvalue5138) break; +if (fornext_value5739>fornext_finalvalue5739) break; } -fornext_error5138:; -if(qbevent){evnt(25066,10462,"ide_methods.bas");if(r)goto S_45127;} +fornext_error5739:; +if(qbevent){evnt(26307,14763,"ide_methods.bas");if(r)goto S_51301;} do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_A,func_mid(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10463,"ide_methods.bas");}while(r); -S_45129:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(25066,10464,"ide_methods.bas");if(r)goto S_45129;} +if(!qbevent)break;evnt(26307,14764,"ide_methods.bas");}while(r); +S_51303:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("\\",1)))|(qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("/",1)))))||new_error){ +if(qbevent){evnt(26307,14765,"ide_methods.bas");if(r)goto S_51303;} do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_left(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10465,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14766,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_F,qbs_right(_FUNC_IDEZTAKEPATH_STRING_F,_FUNC_IDEZTAKEPATH_STRING_F->len-*_FUNC_IDEZTAKEPATH_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10466,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14767,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5137; -if(!qbevent)break;evnt(25066,10467,"ide_methods.bas");}while(r); +goto fornext_exit_5738; +if(!qbevent)break;evnt(26307,14768,"ide_methods.bas");}while(r); } -fornext_continue_5137:; +fornext_continue_5738:; } -fornext_exit_5137:; +fornext_exit_5738:; do{ qbs_set(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH,_FUNC_IDEZTAKEPATH_STRING_P); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10470,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14771,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10471,"ide_methods.bas");}while(r); -} -S_45138:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,10474,"ide_methods.bas");if(r)goto S_45138;} -S_45139:; -fornext_value5142=_FUNC_IDEZTAKEPATH_STRING_F->len; -fornext_finalvalue5142= 1 ; -fornext_step5142= -1 ; -if (fornext_step5142<0) fornext_step_negative5142=1; else fornext_step_negative5142=0; -if (new_error) goto fornext_error5142; -goto fornext_entrylabel5142; -while(1){ -fornext_value5142=fornext_step5142+(*_FUNC_IDEZTAKEPATH_LONG_I); -fornext_entrylabel5142: -*_FUNC_IDEZTAKEPATH_LONG_I=fornext_value5142; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5142){ -if (fornext_value5142fornext_finalvalue5142) break; -} -fornext_error5142:; -if(qbevent){evnt(25066,10475,"ide_methods.bas");if(r)goto S_45139;} -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_A,func_mid(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10476,"ide_methods.bas");}while(r); -S_45141:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(25066,10477,"ide_methods.bas");if(r)goto S_45141;} -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_left(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10478,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_F,qbs_right(_FUNC_IDEZTAKEPATH_STRING_F,_FUNC_IDEZTAKEPATH_STRING_F->len-*_FUNC_IDEZTAKEPATH_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10479,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5141; -if(!qbevent)break;evnt(25066,10480,"ide_methods.bas");}while(r); -} -fornext_continue_5141:; -} -fornext_exit_5141:; -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH,_FUNC_IDEZTAKEPATH_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10483,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,10484,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,14772,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free174.txt" +#include "free188.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH);return _FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH; @@ -159844,7 +178537,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data175.txt" +#include "data189.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -159853,140 +178546,75 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,FUNC_IDEZTAKEPATH(_FUNC_IDEZGETFILEPATH_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10495,"ide_methods.bas");}while(r); -S_45151:; +if(!qbevent)break;evnt(26307,14781,"ide_methods.bas");}while(r); +S_51312:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZGETFILEPATH_STRING_P->len== 0 )))||new_error){ -if(qbevent){evnt(25066,10497,"ide_methods.bas");if(r)goto S_45151;} +if(qbevent){evnt(26307,14784,"ide_methods.bas");if(r)goto S_51312;} do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,_FUNC_IDEZGETFILEPATH_STRING_ROOT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10497,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14784,"ide_methods.bas");}while(r); } -S_45154:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDEZGETFILEPATH_STRING_P, 1 ),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(25066,10499,"ide_methods.bas");if(r)goto S_45154;} +S_51315:; +if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDEZGETFILEPATH_STRING_ROOT,__STRING1_IDEPATHSEP),_FUNC_IDEZGETFILEPATH_STRING_P))))||new_error){ +if(qbevent){evnt(26307,14787,"ide_methods.bas");if(r)goto S_51315;} do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,qbs_add(qbs_add(_FUNC_IDEZGETFILEPATH_STRING_ROOT,__STRING1_IDEPATHSEP),_FUNC_IDEZGETFILEPATH_STRING_P)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10499,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14787,"ide_methods.bas");}while(r); } do{ *__LONG_IDEERROR= 4 ; -if(!qbevent)break;evnt(25066,10502,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14791,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P2,_FUNC_IDEZGETFILEPATH_STRING_P); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10503,"ide_methods.bas");}while(r); -S_45159:; +if(!qbevent)break;evnt(26307,14792,"ide_methods.bas");}while(r); +S_51320:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10504,"ide_methods.bas");if(r)goto S_45159;} -S_45160:; +if(qbevent){evnt(26307,14793,"ide_methods.bas");if(r)goto S_51320;} +S_51321:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZGETFILEPATH_STRING_P2, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,10505,"ide_methods.bas");if(r)goto S_45160;} +if(qbevent){evnt(26307,14794,"ide_methods.bas");if(r)goto S_51321;} do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P2,qbs_add(_FUNC_IDEZGETFILEPATH_STRING_P2,qbs_new_txt_len("\\",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10505,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14794,"ide_methods.bas");}while(r); } } +S_51325:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_FUNC_IDEZGETFILEPATH_STRING_P2)== 0 )))||new_error){ +if(qbevent){evnt(26307,14796,"ide_methods.bas");if(r)goto S_51325;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,14796,"ide_methods.bas");}while(r); +} do{ sub_chdir(_FUNC_IDEZGETFILEPATH_STRING_P2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10507,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14798,"ide_methods.bas");}while(r); do{ *__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(25066,10508,"ide_methods.bas");}while(r); -S_45166:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,10510,"ide_methods.bas");if(r)goto S_45166;} +if(!qbevent)break;evnt(26307,14799,"ide_methods.bas");}while(r); do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cd >",4),FUNC_QUOTEDFILENAME(__STRING_IDEROOT)),qbs_new_txt_len("\\internal\\temp\\root.txt",23)),2); +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,func__cwd()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10511,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(__STRING_IDEROOT,qbs_new_txt_len("\\internal\\temp\\root.txt",23)), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10512,"ide_methods.bas");}while(r); -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5148; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETFILEPATH_STRING_P); -if (new_error) goto skip5148; -skip5148: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10513,"ide_methods.bas");}while(r); -S_45170:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZGETFILEPATH_STRING_P, 1 ),qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(25066,10514,"ide_methods.bas");if(r)goto S_45170;} -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,qbs_left(_FUNC_IDEZGETFILEPATH_STRING_P,_FUNC_IDEZGETFILEPATH_STRING_P->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10514,"ide_methods.bas");}while(r); -} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10515,"ide_methods.bas");}while(r); -} -S_45175:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,10517,"ide_methods.bas");if(r)goto S_45175;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("pwd >",5),FUNC_QUOTEDFILENAME(__STRING_IDEROOT)),qbs_new_txt_len("/internal/temp/root.txt",23)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10518,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(__STRING_IDEROOT,qbs_new_txt_len("/internal/temp/root.txt",23)), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10519,"ide_methods.bas");}while(r); -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5150; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETFILEPATH_STRING_P); -if (new_error) goto skip5150; -skip5150: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10520,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(25066,10521,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,14801,"ide_methods.bas");}while(r); do{ sub_chdir(__STRING_IDEROOT); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10524,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14803,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH,_FUNC_IDEZGETFILEPATH_STRING_P); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10526,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14805,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free175.txt" +#include "free189.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH);return _FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH; } -void SUB_INITMOUSE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data176.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub__mouseshow(NULL,0); -if(!qbevent)break;evnt(25066,10530,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free176.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} int32 FUNC_IDELAYOUTBOX(){ qbs *tqbs; ptrszint tmp_long; @@ -159994,7 +178622,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data177.txt" +#include "data190.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -160002,710 +178630,810 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,10541,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14811,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,10542,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14812,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10543,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14813,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,10544,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14814,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,10545,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14815,"ide_methods.bas");}while(r); do{ if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]+1; _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,10546,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14816,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,10547,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14817,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10548,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14818,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,10552,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14822,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) ),&(pass5151= 60 ),&(pass5152= 8 ),qbs_new_txt_len("Code Layout",11)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) ),&(pass5745= 60 ),&(pass5746= 9 ),qbs_new_txt_len("Code Layout",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10553,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14823,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10555,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14825,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,10556,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26307,14826,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,10557,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,14827,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Auto Spacing & Upper/Lowercase Formatting",42)); -if(!qbevent)break;evnt(25066,10558,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,14828,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDEAUTOLAYOUT; -if(!qbevent)break;evnt(25066,10559,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Auto Spacing & Upper/Lowercase Formatting",42)); +if(!qbevent)break;evnt(26307,14829,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEAUTOLAYOUT; +if(!qbevent)break;evnt(26307,14830,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10561,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14832,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,10562,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26307,14833,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,10563,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,14834,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Auto #Indent -",14)); -if(!qbevent)break;evnt(25066,10564,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; +if(!qbevent)break;evnt(26307,14835,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDEAUTOINDENT; -if(!qbevent)break;evnt(25066,10565,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 6 ; +if(!qbevent)break;evnt(26307,14836,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Keywords in CAPITALS",21)); +if(!qbevent)break;evnt(26307,14837,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDEAUTOLAYOUTKWCAPITALS; +if(!qbevent)break;evnt(26307,14838,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,14840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26307,14841,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,14842,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,14843,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Auto #Indent -",14)); +if(!qbevent)break;evnt(26307,14844,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEAUTOINDENT; +if(!qbevent)break;evnt(26307,14845,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A2,FUNC_STR2(__LONG_IDEAUTOINDENTSIZE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10567,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14847,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10568,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14848,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,10569,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26307,14849,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+20))= 20 ; -if(!qbevent)break;evnt(25066,10570,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,14850,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,10571,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 20 ; +if(!qbevent)break;evnt(26307,14851,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Spacing",8)); -if(!qbevent)break;evnt(25066,10572,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,14852,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDELAYOUTBOX_STRING_A2); -if(!qbevent)break;evnt(25066,10573,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Spacing",8)); +if(!qbevent)break;evnt(26307,14853,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDELAYOUTBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,10574,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDELAYOUTBOX_STRING_A2); +if(!qbevent)break;evnt(26307,14854,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDELAYOUTBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,14855,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10576,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14857,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,10577,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26307,14858,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+24))= 6 ; -if(!qbevent)break;evnt(25066,10578,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,14859,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Indent #SUBs and FUNCTIONs",26)); -if(!qbevent)break;evnt(25066,10579,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 6 ; +if(!qbevent)break;evnt(26307,14860,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDEINDENTSUBS; -if(!qbevent)break;evnt(25066,10580,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 7 ; +if(!qbevent)break;evnt(26307,14861,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Indent SUBs and #FUNCTIONs",26)); +if(!qbevent)break;evnt(26307,14862,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEINDENTSUBS; +if(!qbevent)break;evnt(26307,14863,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10582,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14865,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,10583,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26307,14866,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+24))= 8 ; -if(!qbevent)break;evnt(25066,10584,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,14867,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDELAYOUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,10585,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26307,14868,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,10586,"ide_methods.bas");}while(r); -S_45222:; -fornext_value5155= 1 ; -fornext_finalvalue5155= 100 ; -fornext_step5155= 1 ; -if (fornext_step5155<0) fornext_step_negative5155=1; else fornext_step_negative5155=0; -if (new_error) goto fornext_error5155; -goto fornext_entrylabel5155; +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELAYOUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,14869,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,14870,"ide_methods.bas");}while(r); +S_51384:; +fornext_value5749= 1 ; +fornext_finalvalue5749= 100 ; +fornext_step5749= 1 ; +if (fornext_step5749<0) fornext_step_negative5749=1; else fornext_step_negative5749=0; +if (new_error) goto fornext_error5749; +goto fornext_entrylabel5749; while(1){ -fornext_value5155=fornext_step5155+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5155: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5155; -if (fornext_step_negative5155){ -if (fornext_value5155fornext_finalvalue5155) break; +if (fornext_value5749>fornext_finalvalue5749) break; } -fornext_error5155:; -if(qbevent){evnt(25066,10590,"ide_methods.bas");if(r)goto S_45222;} +fornext_error5749:; +if(qbevent){evnt(26307,14874,"ide_methods.bas");if(r)goto S_51384;} do{ -memcpy(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDELAYOUTBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,10590,"ide_methods.bas");}while(r); -fornext_continue_5154:; +memcpy(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDELAYOUTBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,14874,"ide_methods.bas");}while(r); +fornext_continue_5748:; } -fornext_exit_5154:; -S_45225:; +fornext_exit_5748:; +S_51387:; do{ -if(qbevent){evnt(25066,10593,"ide_methods.bas");if(r)goto S_45225;} +if(qbevent){evnt(26307,14877,"ide_methods.bas");if(r)goto S_51387;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,10597,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14881,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,10598,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14882,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,10598,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14882,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,10598,"ide_methods.bas");}while(r); -S_45230:; -fornext_value5158= 1 ; -fornext_finalvalue5158= 100 ; -fornext_step5158= 1 ; -if (fornext_step5158<0) fornext_step_negative5158=1; else fornext_step_negative5158=0; -if (new_error) goto fornext_error5158; -goto fornext_entrylabel5158; +if(!qbevent)break;evnt(26307,14882,"ide_methods.bas");}while(r); +S_51392:; +fornext_value5752= 1 ; +fornext_finalvalue5752= 100 ; +fornext_step5752= 1 ; +if (fornext_step5752<0) fornext_step_negative5752=1; else fornext_step_negative5752=0; +if (new_error) goto fornext_error5752; +goto fornext_entrylabel5752; while(1){ -fornext_value5158=fornext_step5158+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5158: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5158; -if (fornext_step_negative5158){ -if (fornext_value5158fornext_finalvalue5158) break; +if (fornext_value5752>fornext_finalvalue5752) break; } -fornext_error5158:; -if(qbevent){evnt(25066,10599,"ide_methods.bas");if(r)goto S_45230;} -S_45231:; -if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,10600,"ide_methods.bas");if(r)goto S_45231;} +fornext_error5752:; +if(qbevent){evnt(26307,14883,"ide_methods.bas");if(r)goto S_51392;} +S_51393:; +if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,14884,"ide_methods.bas");if(r)goto S_51393;} do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; -if(!qbevent)break;evnt(25066,10603,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; +if(!qbevent)break;evnt(26307,14887,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,10604,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,14888,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,10604,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,14888,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDELAYOUTBOX_LONG_F); -if(!qbevent)break;evnt(25066,10605,"ide_methods.bas");}while(r); -S_45236:; -if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,10606,"ide_methods.bas");if(r)goto S_45236;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELAYOUTBOX_LONG_F); +if(!qbevent)break;evnt(26307,14889,"ide_methods.bas");}while(r); +S_51398:; +if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,14890,"ide_methods.bas");if(r)goto S_51398;} do{ -*_FUNC_IDELAYOUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,10606,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,14890,"ide_methods.bas");}while(r); do{ -*_FUNC_IDELAYOUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,10606,"ide_methods.bas");}while(r); +*_FUNC_IDELAYOUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,14890,"ide_methods.bas");}while(r); } } -fornext_continue_5157:; +fornext_continue_5751:; } -fornext_exit_5157:; +fornext_exit_5751:; do{ *_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=*_FUNC_IDELAYOUTBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,10609,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14893,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,10616,"ide_methods.bas");}while(r); -S_45244:; +if(!qbevent)break;evnt(26307,14900,"ide_methods.bas");}while(r); +S_51406:; if ((*_FUNC_IDELAYOUTBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,10617,"ide_methods.bas");if(r)goto S_45244;} +if(qbevent){evnt(26307,14901,"ide_methods.bas");if(r)goto S_51406;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10617,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14901,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDELAYOUTBOX_LONG_CY,*_FUNC_IDELAYOUTBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,10617,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14901,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10617,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14901,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,10620,"ide_methods.bas");}while(r); -S_45250:; +if(!qbevent)break;evnt(26307,14904,"ide_methods.bas");}while(r); +S_51412:; do{ -if(qbevent){evnt(25066,10621,"ide_methods.bas");if(r)goto S_45250;} +if(qbevent){evnt(26307,14905,"ide_methods.bas");if(r)goto S_51412;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,10622,"ide_methods.bas");}while(r); -S_45252:; +if(!qbevent)break;evnt(26307,14906,"ide_methods.bas");}while(r); +S_51414:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,10623,"ide_methods.bas");if(r)goto S_45252;} +if(qbevent){evnt(26307,14907,"ide_methods.bas");if(r)goto S_51414;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10623,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14907,"ide_methods.bas");}while(r); } -S_45255:; +S_51417:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,10624,"ide_methods.bas");if(r)goto S_45255;} +if(qbevent){evnt(26307,14908,"ide_methods.bas");if(r)goto S_51417;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14908,"ide_methods.bas");}while(r); } -S_45258:; +S_51420:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,10625,"ide_methods.bas");if(r)goto S_45258;} +if(qbevent){evnt(26307,14909,"ide_methods.bas");if(r)goto S_51420;} do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,10625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14909,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14909,"ide_methods.bas");}while(r); } -S_45262:; +S_51424:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,10626,"ide_methods.bas");if(r)goto S_45262;} +if(qbevent){evnt(26307,14910,"ide_methods.bas");if(r)goto S_51424;} do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,10626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14910,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14910,"ide_methods.bas");}while(r); } -S_45266:; +S_51428:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,10627,"ide_methods.bas");if(r)goto S_45266;} +if(qbevent){evnt(26307,14911,"ide_methods.bas");if(r)goto S_51428;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10627,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14911,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,10628,"ide_methods.bas");}while(r); -S_45270:; +if(!qbevent)break;evnt(26307,14912,"ide_methods.bas");}while(r); +S_51432:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_ALT!=*_FUNC_IDELAYOUTBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,10628,"ide_methods.bas");if(r)goto S_45270;} +if(qbevent){evnt(26307,14912,"ide_methods.bas");if(r)goto S_51432;} do{ *_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10628,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14912,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_OLDALT=*_FUNC_IDELAYOUTBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,10629,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14913,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,10630,"ide_methods.bas");}while(r); -S_45275:; -dl_continue_5159:; +if(!qbevent)break;evnt(26307,14914,"ide_methods.bas");}while(r); +S_51437:; +dl_continue_5753:; }while((!(*_FUNC_IDELAYOUTBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5159:; -if(qbevent){evnt(25066,10631,"ide_methods.bas");if(r)goto S_45275;} -S_45276:; +dl_exit_5753:; +if(qbevent){evnt(26307,14915,"ide_methods.bas");if(r)goto S_51437;} +S_51438:; if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,10632,"ide_methods.bas");if(r)goto S_45276;} +if(qbevent){evnt(26307,14916,"ide_methods.bas");if(r)goto S_51438;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,10632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14916,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,10632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14916,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10634,"ide_methods.bas");}while(r); -S_45282:; +if(!qbevent)break;evnt(26307,14918,"ide_methods.bas");}while(r); +S_51444:; if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,10635,"ide_methods.bas");if(r)goto S_45282;} -S_45283:; +if(qbevent){evnt(26307,14919,"ide_methods.bas");if(r)goto S_51444;} +S_51445:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,10636,"ide_methods.bas");if(r)goto S_45283;} +if(qbevent){evnt(26307,14920,"ide_methods.bas");if(r)goto S_51445;} do{ *_FUNC_IDELAYOUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10637,"ide_methods.bas");}while(r); -S_45285:; +if(!qbevent)break;evnt(26307,14921,"ide_methods.bas");}while(r); +S_51447:; if (((-(*_FUNC_IDELAYOUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,10638,"ide_methods.bas");if(r)goto S_45285;} +if(qbevent){evnt(26307,14922,"ide_methods.bas");if(r)goto S_51447;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELAYOUTBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10638,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14922,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14925,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,10641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14925,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14925,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,10645,"ide_methods.bas");}while(r); -S_45294:; +if(!qbevent)break;evnt(26307,14929,"ide_methods.bas");}while(r); +S_51456:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10646,"ide_methods.bas");if(r)goto S_45294;} +if(qbevent){evnt(26307,14930,"ide_methods.bas");if(r)goto S_51456;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10646,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14930,"ide_methods.bas");}while(r); } -S_45297:; +S_51459:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,10647,"ide_methods.bas");if(r)goto S_45297;} +if(qbevent){evnt(26307,14931,"ide_methods.bas");if(r)goto S_51459;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,10647,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14931,"ide_methods.bas");}while(r); } -S_45300:; +S_51462:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,10648,"ide_methods.bas");if(r)goto S_45300;} +if(qbevent){evnt(26307,14932,"ide_methods.bas");if(r)goto S_51462;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,10648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14932,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14932,"ide_methods.bas");}while(r); } -S_45304:; +S_51466:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,10649,"ide_methods.bas");if(r)goto S_45304;} +if(qbevent){evnt(26307,14933,"ide_methods.bas");if(r)goto S_51466;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,10649,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14933,"ide_methods.bas");}while(r); } -S_45307:; +S_51469:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS>*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,10650,"ide_methods.bas");if(r)goto S_45307;} +if(qbevent){evnt(26307,14934,"ide_methods.bas");if(r)goto S_51469;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,10650,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14934,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,10651,"ide_methods.bas");}while(r); -S_45311:; -fornext_value5162= 1 ; -fornext_finalvalue5162= 100 ; -fornext_step5162= 1 ; -if (fornext_step5162<0) fornext_step_negative5162=1; else fornext_step_negative5162=0; -if (new_error) goto fornext_error5162; -goto fornext_entrylabel5162; +if(!qbevent)break;evnt(26307,14935,"ide_methods.bas");}while(r); +S_51473:; +fornext_value5756= 1 ; +fornext_finalvalue5756= 100 ; +fornext_step5756= 1 ; +if (fornext_step5756<0) fornext_step_negative5756=1; else fornext_step_negative5756=0; +if (new_error) goto fornext_error5756; +goto fornext_entrylabel5756; while(1){ -fornext_value5162=fornext_step5162+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5162: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5162; -if (fornext_step_negative5162){ -if (fornext_value5162fornext_finalvalue5162) break; +if (fornext_value5756>fornext_finalvalue5756) break; } -fornext_error5162:; -if(qbevent){evnt(25066,10652,"ide_methods.bas");if(r)goto S_45311;} +fornext_error5756:; +if(qbevent){evnt(26307,14936,"ide_methods.bas");if(r)goto S_51473;} do{ -*_FUNC_IDELAYOUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,10653,"ide_methods.bas");}while(r); -S_45313:; +*_FUNC_IDELAYOUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,14937,"ide_methods.bas");}while(r); +S_51475:; if ((*_FUNC_IDELAYOUTBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,10654,"ide_methods.bas");if(r)goto S_45313;} +if(qbevent){evnt(26307,14938,"ide_methods.bas");if(r)goto S_51475;} do{ *_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; -if(!qbevent)break;evnt(25066,10655,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14939,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDELAYOUTBOX_LONG_FOCUS,_FUNC_IDELAYOUTBOX_LONG_F,_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN,_FUNC_IDELAYOUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELAYOUTBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELAYOUTBOX_LONG_FOCUS,_FUNC_IDELAYOUTBOX_LONG_F,_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN,_FUNC_IDELAYOUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELAYOUTBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10656,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14940,"ide_methods.bas");}while(r); } -fornext_continue_5161:; +fornext_continue_5755:; } -fornext_exit_5161:; -S_45318:; +fornext_exit_5755:; +S_51480:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS!=*_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,10662,"ide_methods.bas");if(r)goto S_45318;} +if(qbevent){evnt(26307,14946,"ide_methods.bas");if(r)goto S_51480;} do{ *_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,10664,"ide_methods.bas");}while(r); -S_45320:; -if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS== 3 ))||new_error){ -if(qbevent){evnt(25066,10665,"ide_methods.bas");if(r)goto S_45320;} +if(!qbevent)break;evnt(26307,14948,"ide_methods.bas");}while(r); +S_51482:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))== 1 ))||new_error){ +if(qbevent){evnt(26307,14949,"ide_methods.bas");if(r)goto S_51482;} do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,10666,"ide_methods.bas");}while(r); -S_45322:; -if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,10667,"ide_methods.bas");if(r)goto S_45322;} +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,14950,"ide_methods.bas");}while(r); +S_51484:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,14951,"ide_methods.bas");if(r)goto S_51484;} do{ -*(int8*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,10667,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,14951,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,10668,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,14952,"ide_methods.bas");}while(r); } } do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10672,"ide_methods.bas");}while(r); -S_45329:; +if(!qbevent)break;evnt(26307,14956,"ide_methods.bas");}while(r); +S_51491:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDELAYOUTBOX_STRING_A->len> 2 )))||new_error){ -if(qbevent){evnt(25066,10673,"ide_methods.bas");if(r)goto S_45329;} +if(qbevent){evnt(26307,14957,"ide_methods.bas");if(r)goto S_51491;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_left(_FUNC_IDELAYOUTBOX_STRING_A, 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10673,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14957,"ide_methods.bas");}while(r); } -S_45332:; -fornext_value5166= 1 ; -fornext_finalvalue5166=_FUNC_IDELAYOUTBOX_STRING_A->len; -fornext_step5166= 1 ; -if (fornext_step5166<0) fornext_step_negative5166=1; else fornext_step_negative5166=0; -if (new_error) goto fornext_error5166; -goto fornext_entrylabel5166; +S_51494:; +fornext_value5760= 1 ; +fornext_finalvalue5760=_FUNC_IDELAYOUTBOX_STRING_A->len; +fornext_step5760= 1 ; +if (fornext_step5760<0) fornext_step_negative5760=1; else fornext_step_negative5760=0; +if (new_error) goto fornext_error5760; +goto fornext_entrylabel5760; while(1){ -fornext_value5166=fornext_step5166+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5166: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5166; +fornext_value5760=fornext_step5760+(*_FUNC_IDELAYOUTBOX_LONG_I); +fornext_entrylabel5760: +*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5760; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5166){ -if (fornext_value5166fornext_finalvalue5166) break; +if (fornext_value5760>fornext_finalvalue5760) break; } -fornext_error5166:; -if(qbevent){evnt(25066,10674,"ide_methods.bas");if(r)goto S_45332;} +fornext_error5760:; +if(qbevent){evnt(26307,14958,"ide_methods.bas");if(r)goto S_51494;} do{ *_FUNC_IDELAYOUTBOX_LONG_A=qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A,*_FUNC_IDELAYOUTBOX_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10675,"ide_methods.bas");}while(r); -S_45334:; +if(!qbevent)break;evnt(26307,14959,"ide_methods.bas");}while(r); +S_51496:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDELAYOUTBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,10676,"ide_methods.bas");if(r)goto S_45334;} +if(qbevent){evnt(26307,14960,"ide_methods.bas");if(r)goto S_51496;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14960,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5165; -if(!qbevent)break;evnt(25066,10676,"ide_methods.bas");}while(r); +goto fornext_exit_5759; +if(!qbevent)break;evnt(26307,14960,"ide_methods.bas");}while(r); } -S_45338:; +S_51500:; if (((-(*_FUNC_IDELAYOUTBOX_LONG_A< 48 ))|(-(*_FUNC_IDELAYOUTBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,10677,"ide_methods.bas");if(r)goto S_45338;} +if(qbevent){evnt(26307,14961,"ide_methods.bas");if(r)goto S_51500;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10677,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14961,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5165; -if(!qbevent)break;evnt(25066,10677,"ide_methods.bas");}while(r); +goto fornext_exit_5759; +if(!qbevent)break;evnt(26307,14961,"ide_methods.bas");}while(r); } -fornext_continue_5165:; +fornext_continue_5759:; } -fornext_exit_5165:; -S_45343:; +fornext_exit_5759:; +S_51505:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDELAYOUTBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,10679,"ide_methods.bas");if(r)goto S_45343;} +if(qbevent){evnt(26307,14963,"ide_methods.bas");if(r)goto S_51505;} do{ *_FUNC_IDELAYOUTBOX_LONG_A=qbr(func_val(_FUNC_IDELAYOUTBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10680,"ide_methods.bas");}while(r); -S_45345:; +if(!qbevent)break;evnt(26307,14964,"ide_methods.bas");}while(r); +S_51507:; if ((-(*_FUNC_IDELAYOUTBOX_LONG_A> 64 ))||new_error){ -if(qbevent){evnt(25066,10681,"ide_methods.bas");if(r)goto S_45345;} +if(qbevent){evnt(26307,14965,"ide_methods.bas");if(r)goto S_51507;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("64",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10681,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14965,"ide_methods.bas");}while(r); } } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDELAYOUTBOX_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10683,"ide_methods.bas");}while(r); -S_45350:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS== 6 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,10685,"ide_methods.bas");if(r)goto S_45350;} +if(!qbevent)break;evnt(26307,14967,"ide_methods.bas");}while(r); +S_51512:; +if (((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID))&(-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26307,14969,"ide_methods.bas");if(r)goto S_51512;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,14970,"ide_methods.bas");}while(r); +} +S_51515:; +if (((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID))&(-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26307,14973,"ide_methods.bas");if(r)goto S_51515;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,14974,"ide_methods.bas");}while(r); +} +S_51518:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26307,14977,"ide_methods.bas");if(r)goto S_51518;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,14977,"ide_methods.bas");}while(r); +} +S_51521:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26307,14978,"ide_methods.bas");if(r)goto S_51521;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,14978,"ide_methods.bas");}while(r); +} +S_51524:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==(*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID+ 1 )))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,14980,"ide_methods.bas");if(r)goto S_51524;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14980,"ide_methods.bas");}while(r); } -S_45353:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,10686,"ide_methods.bas");if(r)goto S_45353;} +S_51527:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,14981,"ide_methods.bas");if(r)goto S_51527;} do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,10688,"ide_methods.bas");}while(r); -S_45355:; +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,14983,"ide_methods.bas");}while(r); +S_51529:; if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,10688,"ide_methods.bas");if(r)goto S_45355;} +if(qbevent){evnt(26307,14983,"ide_methods.bas");if(r)goto S_51529;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(25066,10688,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14983,"ide_methods.bas");}while(r); } -S_45358:; +S_51532:; if ((-(*__LONG_IDEAUTOLAYOUT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(25066,10690,"ide_methods.bas");if(r)goto S_45358;} +if(qbevent){evnt(26307,14984,"ide_methods.bas");if(r)goto S_51532;} do{ *__LONG_IDEAUTOLAYOUT=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,10690,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14984,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(25066,10690,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14984,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,10691,"ide_methods.bas");}while(r); -S_45363:; +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,14986,"ide_methods.bas");}while(r); +S_51537:; if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,10691,"ide_methods.bas");if(r)goto S_45363;} +if(qbevent){evnt(26307,14986,"ide_methods.bas");if(r)goto S_51537;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(25066,10691,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14986,"ide_methods.bas");}while(r); } -S_45366:; -if ((-(*__LONG_IDEAUTOINDENT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(25066,10693,"ide_methods.bas");if(r)goto S_45366;} +S_51540:; +if ((-(*__BYTE_IDEAUTOLAYOUTKWCAPITALS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26307,14987,"ide_methods.bas");if(r)goto S_51540;} do{ -*__LONG_IDEAUTOINDENT=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,10693,"ide_methods.bas");}while(r); +*__BYTE_IDEAUTOLAYOUTKWCAPITALS=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26307,14987,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(25066,10693,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14987,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,14989,"ide_methods.bas");}while(r); +S_51545:; +if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26307,14989,"ide_methods.bas");if(r)goto S_51545;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; +if(!qbevent)break;evnt(26307,14989,"ide_methods.bas");}while(r); +} +S_51548:; +if ((-(*__LONG_IDEAUTOINDENT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26307,14990,"ide_methods.bas");if(r)goto S_51548;} +do{ +*__LONG_IDEAUTOINDENT=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26307,14990,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; +if(!qbevent)break;evnt(26307,14990,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10694,"ide_methods.bas");}while(r); -S_45371:; +if(!qbevent)break;evnt(26307,14992,"ide_methods.bas");}while(r); +S_51553:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10695,"ide_methods.bas");if(r)goto S_45371;} +if(qbevent){evnt(26307,14993,"ide_methods.bas");if(r)goto S_51553;} do{ qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("4",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10695,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14993,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDELAYOUTBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10696,"ide_methods.bas");}while(r); -S_45375:; +if(!qbevent)break;evnt(26307,14994,"ide_methods.bas");}while(r); +S_51557:; if (((-(*_FUNC_IDELAYOUTBOX_INTEGER_V< 0 ))|(-(*_FUNC_IDELAYOUTBOX_INTEGER_V> 64 )))||new_error){ -if(qbevent){evnt(25066,10697,"ide_methods.bas");if(r)goto S_45375;} +if(qbevent){evnt(26307,14995,"ide_methods.bas");if(r)goto S_51557;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 4 ; -if(!qbevent)break;evnt(25066,10697,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14995,"ide_methods.bas");}while(r); } -S_45378:; +S_51560:; if ((-(*__LONG_IDEAUTOINDENTSIZE!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(25066,10698,"ide_methods.bas");if(r)goto S_45378;} +if(qbevent){evnt(26307,14996,"ide_methods.bas");if(r)goto S_51560;} do{ *__LONG_IDEAUTOINDENTSIZE=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,10699,"ide_methods.bas");}while(r); -S_45380:; +if(!qbevent)break;evnt(26307,14997,"ide_methods.bas");}while(r); +S_51562:; if ((-(*__LONG_IDEAUTOINDENT!= 0 ))||new_error){ -if(qbevent){evnt(25066,10700,"ide_methods.bas");if(r)goto S_45380;} +if(qbevent){evnt(26307,14998,"ide_methods.bas");if(r)goto S_51562;} do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(25066,10700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,14998,"ide_methods.bas");}while(r); } } do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,10703,"ide_methods.bas");}while(r); -S_45385:; +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,15001,"ide_methods.bas");}while(r); +S_51567:; if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,10703,"ide_methods.bas");if(r)goto S_45385;} +if(qbevent){evnt(26307,15001,"ide_methods.bas");if(r)goto S_51567;} do{ *_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(25066,10703,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15001,"ide_methods.bas");}while(r); } -S_45388:; +S_51570:; if ((-(*__LONG_IDEINDENTSUBS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(25066,10704,"ide_methods.bas");if(r)goto S_45388;} +if(qbevent){evnt(26307,15002,"ide_methods.bas");if(r)goto S_51570;} do{ *__LONG_IDEINDENTSUBS=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,10704,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15002,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(25066,10704,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15002,"ide_methods.bas");}while(r); } -S_45392:; +S_51574:; if ((*__LONG_IDEAUTOLAYOUT)||new_error){ -if(qbevent){evnt(25066,10706,"ide_methods.bas");if(r)goto S_45392;} +if(qbevent){evnt(26307,15004,"ide_methods.bas");if(r)goto S_51574;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10707,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15005,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15007,"ide_methods.bas");}while(r); } -S_45397:; +S_51579:; +if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ +if(qbevent){evnt(26307,15009,"ide_methods.bas");if(r)goto S_51579;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15010,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15012,"ide_methods.bas");}while(r); +} +S_51584:; if ((*__LONG_IDEAUTOINDENT)||new_error){ -if(qbevent){evnt(25066,10711,"ide_methods.bas");if(r)goto S_45397;} +if(qbevent){evnt(26307,15014,"ide_methods.bas");if(r)goto S_51584;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10712,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15015,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10714,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15017,"ide_methods.bas");}while(r); } do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSize",14),qbs_str((int32)(*__LONG_IDEAUTOINDENTSIZE))); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),qbs_str((int32)(*__LONG_IDEAUTOINDENTSIZE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10716,"ide_methods.bas");}while(r); -S_45403:; +if(!qbevent)break;evnt(26307,15019,"ide_methods.bas");}while(r); +S_51590:; if ((*__LONG_IDEINDENTSUBS)||new_error){ -if(qbevent){evnt(25066,10717,"ide_methods.bas");if(r)goto S_45403;} +if(qbevent){evnt(26307,15020,"ide_methods.bas");if(r)goto S_51590;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10718,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15021,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10720,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15023,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10722,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15025,"ide_methods.bas");}while(r); } do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,10727,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15030,"ide_methods.bas");}while(r); do{ *_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,10728,"ide_methods.bas");}while(r); -dl_continue_5156:; +if(!qbevent)break;evnt(26307,15031,"ide_methods.bas");}while(r); +dl_continue_5750:; }while(1); -dl_exit_5156:; +dl_exit_5750:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free177.txt" +#include "free190.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX; @@ -160717,1681 +179445,267 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data178.txt" +#include "data191.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,10740,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,10741,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10742,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,10743,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,10744,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4]+1; -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[6]=1; -if (_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,10745,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,10746,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10747,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,10751,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEBACKUPBOX_UDT_P)) + (0) ),&(pass5169= 50 ),&(pass5170= 5 ),qbs_new_txt_len("Backup/Undo",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10752,"ide_methods.bas");}while(r); -do{ qbs_set(_FUNC_IDEBACKUPBOX_STRING_A2,FUNC_STR2(__LONG_IDEBACKUPSIZE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15041,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEBACKUPBOX_LONG_I=*_FUNC_IDEBACKUPBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10755,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,10756,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,10757,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,10758,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Undo buffer limit (10-2000MB)",30)); -if(!qbevent)break;evnt(25066,10759,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEBACKUPBOX_STRING_A2); -if(!qbevent)break;evnt(25066,10760,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEBACKUPBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,10761,"ide_methods.bas");}while(r); -S_45431:; -if ((-(*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,10762,"ide_methods.bas");if(r)goto S_45431;} -do{ -*(int8*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,10763,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,10764,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_I=*_FUNC_IDEBACKUPBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10767,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,10768,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,10769,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDEBACKUPBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,10770,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,10771,"ide_methods.bas");}while(r); -S_45440:; -fornext_value5173= 1 ; -fornext_finalvalue5173= 100 ; -fornext_step5173= 1 ; -if (fornext_step5173<0) fornext_step_negative5173=1; else fornext_step_negative5173=0; -if (new_error) goto fornext_error5173; -goto fornext_entrylabel5173; -while(1){ -fornext_value5173=fornext_step5173+(*_FUNC_IDEBACKUPBOX_LONG_I); -fornext_entrylabel5173: -*_FUNC_IDEBACKUPBOX_LONG_I=fornext_value5173; -if (fornext_step_negative5173){ -if (fornext_value5173fornext_finalvalue5173) break; -} -fornext_error5173:; -if(qbevent){evnt(25066,10775,"ide_methods.bas");if(r)goto S_45440;} -do{ -memcpy(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEBACKUPBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,10775,"ide_methods.bas");}while(r); -fornext_continue_5172:; -} -fornext_exit_5172:; -S_45443:; -do{ -if(qbevent){evnt(25066,10778,"ide_methods.bas");if(r)goto S_45443;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEBACKUPBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,10782,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,10783,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,10783,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,10783,"ide_methods.bas");}while(r); -S_45448:; -fornext_value5176= 1 ; -fornext_finalvalue5176= 100 ; -fornext_step5176= 1 ; -if (fornext_step5176<0) fornext_step_negative5176=1; else fornext_step_negative5176=0; -if (new_error) goto fornext_error5176; -goto fornext_entrylabel5176; -while(1){ -fornext_value5176=fornext_step5176+(*_FUNC_IDEBACKUPBOX_LONG_I); -fornext_entrylabel5176: -*_FUNC_IDEBACKUPBOX_LONG_I=fornext_value5176; -if (fornext_step_negative5176){ -if (fornext_value5176fornext_finalvalue5176) break; -} -fornext_error5176:; -if(qbevent){evnt(25066,10784,"ide_methods.bas");if(r)goto S_45448;} -S_45449:; -if ((*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,10785,"ide_methods.bas");if(r)goto S_45449;} -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEBACKUPBOX_LONG_FOCUS-*_FUNC_IDEBACKUPBOX_LONG_F; -if(!qbevent)break;evnt(25066,10788,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,10789,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,10789,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEBACKUPBOX_LONG_F); -if(!qbevent)break;evnt(25066,10790,"ide_methods.bas");}while(r); -S_45454:; -if ((*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,10791,"ide_methods.bas");if(r)goto S_45454;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,10791,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,10791,"ide_methods.bas");}while(r); -} -} -fornext_continue_5175:; -} -fornext_exit_5175:; -do{ -*_FUNC_IDEBACKUPBOX_LONG_LASTFOCUS=*_FUNC_IDEBACKUPBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,10794,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,10801,"ide_methods.bas");}while(r); -S_45462:; -if ((*_FUNC_IDEBACKUPBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,10802,"ide_methods.bas");if(r)goto S_45462;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10802,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEBACKUPBOX_LONG_CY,*_FUNC_IDEBACKUPBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,10802,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10802,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,10805,"ide_methods.bas");}while(r); -S_45468:; -do{ -if(qbevent){evnt(25066,10806,"ide_methods.bas");if(r)goto S_45468;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,10807,"ide_methods.bas");}while(r); -S_45470:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,10808,"ide_methods.bas");if(r)goto S_45470;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10808,"ide_methods.bas");}while(r); -} -S_45473:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,10809,"ide_methods.bas");if(r)goto S_45473;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10809,"ide_methods.bas");}while(r); -} -S_45476:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,10810,"ide_methods.bas");if(r)goto S_45476;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,10810,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10810,"ide_methods.bas");}while(r); -} -S_45480:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,10811,"ide_methods.bas");if(r)goto S_45480;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,10811,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10811,"ide_methods.bas");}while(r); -} -S_45484:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,10812,"ide_methods.bas");if(r)goto S_45484;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10812,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,10813,"ide_methods.bas");}while(r); -S_45488:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_ALT!=*_FUNC_IDEBACKUPBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,10813,"ide_methods.bas");if(r)goto S_45488;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10813,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_OLDALT=*_FUNC_IDEBACKUPBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,10814,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,10815,"ide_methods.bas");}while(r); -S_45493:; -dl_continue_5177:; -}while((!(*_FUNC_IDEBACKUPBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5177:; -if(qbevent){evnt(25066,10816,"ide_methods.bas");if(r)goto S_45493;} -S_45494:; -if ((*_FUNC_IDEBACKUPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,10817,"ide_methods.bas");if(r)goto S_45494;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,10817,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,10817,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDEBACKUPBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Backup/Undo",11),qbs_new_txt_len("#Undo buffer limit (10-2000MB)",30),_FUNC_IDEBACKUPBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5763= 50 ),&(pass5764= 4 ),&(pass5765= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10819,"ide_methods.bas");}while(r); -S_45500:; -if ((*_FUNC_IDEBACKUPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,10820,"ide_methods.bas");if(r)goto S_45500;} -S_45501:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,10821,"ide_methods.bas");if(r)goto S_45501;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10822,"ide_methods.bas");}while(r); -S_45503:; -if (((-(*_FUNC_IDEBACKUPBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEBACKUPBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,10823,"ide_methods.bas");if(r)goto S_45503;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEBACKUPBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10823,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10826,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,10826,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10826,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,10830,"ide_methods.bas");}while(r); -S_45512:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10831,"ide_methods.bas");if(r)goto S_45512;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10831,"ide_methods.bas");}while(r); -} -S_45515:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,10832,"ide_methods.bas");if(r)goto S_45515;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_FOCUS=*_FUNC_IDEBACKUPBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,10832,"ide_methods.bas");}while(r); -} -S_45518:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,10833,"ide_methods.bas");if(r)goto S_45518;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_FOCUS=*_FUNC_IDEBACKUPBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,10833,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10833,"ide_methods.bas");}while(r); -} -S_45522:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,10834,"ide_methods.bas");if(r)goto S_45522;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_FOCUS=*_FUNC_IDEBACKUPBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,10834,"ide_methods.bas");}while(r); -} -S_45525:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS>*_FUNC_IDEBACKUPBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,10835,"ide_methods.bas");if(r)goto S_45525;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,10835,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,10836,"ide_methods.bas");}while(r); -S_45529:; -fornext_value5180= 1 ; -fornext_finalvalue5180= 100 ; -fornext_step5180= 1 ; -if (fornext_step5180<0) fornext_step_negative5180=1; else fornext_step_negative5180=0; -if (new_error) goto fornext_error5180; -goto fornext_entrylabel5180; -while(1){ -fornext_value5180=fornext_step5180+(*_FUNC_IDEBACKUPBOX_LONG_I); -fornext_entrylabel5180: -*_FUNC_IDEBACKUPBOX_LONG_I=fornext_value5180; -if (fornext_step_negative5180){ -if (fornext_value5180fornext_finalvalue5180) break; -} -fornext_error5180:; -if(qbevent){evnt(25066,10837,"ide_methods.bas");if(r)goto S_45529;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,10838,"ide_methods.bas");}while(r); -S_45531:; -if ((*_FUNC_IDEBACKUPBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,10839,"ide_methods.bas");if(r)goto S_45531;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_FOCUSOFFSET=*_FUNC_IDEBACKUPBOX_LONG_FOCUS-*_FUNC_IDEBACKUPBOX_LONG_F; -if(!qbevent)break;evnt(25066,10840,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEBACKUPBOX_LONG_I)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEBACKUPBOX_LONG_FOCUS,_FUNC_IDEBACKUPBOX_LONG_F,_FUNC_IDEBACKUPBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEBACKUPBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEBACKUPBOX_LONG_MOUSEDOWN,_FUNC_IDEBACKUPBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEBACKUPBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10841,"ide_methods.bas");}while(r); -} -fornext_continue_5179:; -} -fornext_exit_5179:; -S_45536:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS!=*_FUNC_IDEBACKUPBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,10847,"ide_methods.bas");if(r)goto S_45536;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_PREVFOCUS=*_FUNC_IDEBACKUPBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,10849,"ide_methods.bas");}while(r); -S_45538:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,10850,"ide_methods.bas");if(r)goto S_45538;} -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_FOCUS)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_FOCUS)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,10851,"ide_methods.bas");}while(r); -S_45540:; -if ((-(*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_FOCUS)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,10852,"ide_methods.bas");if(r)goto S_45540;} -do{ -*(int8*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_FOCUS)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,10852,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEBACKUPBOX_LONG_FOCUS)-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,10853,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10857,"ide_methods.bas");}while(r); -S_45547:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEBACKUPBOX_STRING_A->len> 4 )))||new_error){ -if(qbevent){evnt(25066,10858,"ide_methods.bas");if(r)goto S_45547;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A,qbs_left(_FUNC_IDEBACKUPBOX_STRING_A, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10858,"ide_methods.bas");}while(r); -} -S_45550:; -fornext_value5184= 1 ; -fornext_finalvalue5184=_FUNC_IDEBACKUPBOX_STRING_A->len; -fornext_step5184= 1 ; -if (fornext_step5184<0) fornext_step_negative5184=1; else fornext_step_negative5184=0; -if (new_error) goto fornext_error5184; -goto fornext_entrylabel5184; -while(1){ -fornext_value5184=fornext_step5184+(*_FUNC_IDEBACKUPBOX_LONG_I); -fornext_entrylabel5184: -*_FUNC_IDEBACKUPBOX_LONG_I=fornext_value5184; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5184){ -if (fornext_value5184fornext_finalvalue5184) break; -} -fornext_error5184:; -if(qbevent){evnt(25066,10859,"ide_methods.bas");if(r)goto S_45550;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_A=qbs_asc(_FUNC_IDEBACKUPBOX_STRING_A,*_FUNC_IDEBACKUPBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10860,"ide_methods.bas");}while(r); -S_45552:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEBACKUPBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEBACKUPBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,10861,"ide_methods.bas");if(r)goto S_45552;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10861,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5183; -if(!qbevent)break;evnt(25066,10861,"ide_methods.bas");}while(r); -} -S_45556:; -if (((-(*_FUNC_IDEBACKUPBOX_LONG_A< 48 ))|(-(*_FUNC_IDEBACKUPBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,10862,"ide_methods.bas");if(r)goto S_45556;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A,qbs_left(_FUNC_IDEBACKUPBOX_STRING_A,*_FUNC_IDEBACKUPBOX_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10862,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5183; -if(!qbevent)break;evnt(25066,10862,"ide_methods.bas");}while(r); -} -fornext_continue_5183:; -} -fornext_exit_5183:; -S_45561:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS!= 1 ))||new_error){ -if(qbevent){evnt(25066,10864,"ide_methods.bas");if(r)goto S_45561;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_A=qbr(func_val(_FUNC_IDEBACKUPBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10865,"ide_methods.bas");}while(r); -S_45563:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_A< 10 ))||new_error){ -if(qbevent){evnt(25066,10866,"ide_methods.bas");if(r)goto S_45563;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A,qbs_new_txt_len("10",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10866,"ide_methods.bas");}while(r); -} -S_45566:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_A> 2000 ))||new_error){ -if(qbevent){evnt(25066,10867,"ide_methods.bas");if(r)goto S_45566;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A,qbs_new_txt_len("2000",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10867,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEBACKUPBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10869,"ide_methods.bas");}while(r); -S_45571:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEBACKUPBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,10873,"ide_methods.bas");if(r)goto S_45571;} +if(!qbevent)break;evnt(26307,15042,"ide_methods.bas");}while(r); +S_51602:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEBACKUPBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15043,"ide_methods.bas");if(r)goto S_51602;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,10873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15043,"ide_methods.bas");}while(r); } -S_45574:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEBACKUPBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEBACKUPBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,10875,"ide_methods.bas");if(r)goto S_45574;} -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[4],_FUNC_IDEBACKUPBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10877,"ide_methods.bas");}while(r); do{ *_FUNC_IDEBACKUPBOX_LONG_V=qbr(func_val(_FUNC_IDEBACKUPBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10878,"ide_methods.bas");}while(r); -S_45577:; +if(!qbevent)break;evnt(26307,15046,"ide_methods.bas");}while(r); +S_51606:; if ((-(*_FUNC_IDEBACKUPBOX_LONG_V< 10 ))||new_error){ -if(qbevent){evnt(25066,10879,"ide_methods.bas");if(r)goto S_45577;} +if(qbevent){evnt(26307,15047,"ide_methods.bas");if(r)goto S_51606;} do{ *_FUNC_IDEBACKUPBOX_LONG_V= 10 ; -if(!qbevent)break;evnt(25066,10879,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15047,"ide_methods.bas");}while(r); } -S_45580:; +S_51609:; if ((-(*_FUNC_IDEBACKUPBOX_LONG_V> 2000 ))||new_error){ -if(qbevent){evnt(25066,10880,"ide_methods.bas");if(r)goto S_45580;} +if(qbevent){evnt(26307,15048,"ide_methods.bas");if(r)goto S_51609;} do{ *_FUNC_IDEBACKUPBOX_LONG_V= 2000 ; -if(!qbevent)break;evnt(25066,10880,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15048,"ide_methods.bas");}while(r); } -S_45583:; +S_51612:; if ((-(*_FUNC_IDEBACKUPBOX_LONG_V<*__LONG_IDEBACKUPSIZE))||new_error){ -if(qbevent){evnt(25066,10882,"ide_methods.bas");if(r)goto S_45583;} +if(qbevent){evnt(26307,15050,"ide_methods.bas");if(r)goto S_51612;} do{ sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 4 ,NULL,NULL, 151 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10883,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15051,"ide_methods.bas");}while(r); do{ sub_close( 151 ,1); -if(!qbevent)break;evnt(25066,10883,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15051,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOBASE= 0 ; -if(!qbevent)break;evnt(25066,10884,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15052,"ide_methods.bas");}while(r); do{ *__LONG_IDEUNDOPOS= 0 ; -if(!qbevent)break;evnt(25066,10885,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15053,"ide_methods.bas");}while(r); } do{ *__LONG_IDEBACKUPSIZE=*_FUNC_IDEBACKUPBOX_LONG_V; -if(!qbevent)break;evnt(25066,10888,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15056,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BackupSize",10),qbs_add(qbs_str((int32)(*_FUNC_IDEBACKUPBOX_LONG_V)),qbs_new_txt_len(" 'in MB",7))); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),qbs_add(qbs_str((int32)(*_FUNC_IDEBACKUPBOX_LONG_V)),qbs_new_txt_len(" 'in MB",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10889,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15057,"ide_methods.bas");}while(r); do{ *_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX= 1 ; -if(!qbevent)break;evnt(25066,10890,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,10891,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,10896,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,10897,"ide_methods.bas");}while(r); -dl_continue_5174:; -}while(1); -dl_exit_5174:; +if(!qbevent)break;evnt(26307,15058,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free178.txt" +#include "free191.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX; } -int32 FUNC_IDEMODIFYCOMMANDBOX(){ +void SUB_IDEGOTOBOX(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data179.txt" +#include "data192.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,10906,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,10907,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10908,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,10909,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,10910,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4]+1; -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[6]=1; -if (_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,10911,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,10912,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10913,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,10917,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEMODIFYCOMMANDBOX_UDT_P)) + (0) ),&(pass5186= 65 ),&(pass5187= 5 ),qbs_new_txt_len("Modify COMMAND$",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10918,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2,__STRING_MODIFYCOMMAND); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10920,"ide_methods.bas");}while(r); -S_45608:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,10921,"ide_methods.bas");if(r)goto S_45608;} -do{ -qbs_set(_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2,func_mid(_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10921,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10922,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,10923,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,10924,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,10925,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Enter text for COMMAND$",24)); -if(!qbevent)break;evnt(25066,10926,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2); -if(!qbevent)break;evnt(25066,10927,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEMODIFYCOMMANDBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,10928,"ide_methods.bas");}while(r); -S_45618:; -if ((-(*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,10929,"ide_methods.bas");if(r)goto S_45618;} -do{ -*(int8*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,10930,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,10931,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,10934,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,10935,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,10936,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDEMODIFYCOMMANDBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,10937,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,10938,"ide_methods.bas");}while(r); -S_45627:; -fornext_value5191= 1 ; -fornext_finalvalue5191= 100 ; -fornext_step5191= 1 ; -if (fornext_step5191<0) fornext_step_negative5191=1; else fornext_step_negative5191=0; -if (new_error) goto fornext_error5191; -goto fornext_entrylabel5191; -while(1){ -fornext_value5191=fornext_step5191+(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I); -fornext_entrylabel5191: -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=fornext_value5191; -if (fornext_step_negative5191){ -if (fornext_value5191fornext_finalvalue5191) break; -} -fornext_error5191:; -if(qbevent){evnt(25066,10942,"ide_methods.bas");if(r)goto S_45627;} -do{ -memcpy(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEMODIFYCOMMANDBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,10942,"ide_methods.bas");}while(r); -fornext_continue_5190:; -} -fornext_exit_5190:; -S_45630:; -do{ -if(qbevent){evnt(25066,10945,"ide_methods.bas");if(r)goto S_45630;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEMODIFYCOMMANDBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,10949,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,10950,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,10950,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,10950,"ide_methods.bas");}while(r); -S_45635:; -fornext_value5194= 1 ; -fornext_finalvalue5194= 100 ; -fornext_step5194= 1 ; -if (fornext_step5194<0) fornext_step_negative5194=1; else fornext_step_negative5194=0; -if (new_error) goto fornext_error5194; -goto fornext_entrylabel5194; -while(1){ -fornext_value5194=fornext_step5194+(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I); -fornext_entrylabel5194: -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=fornext_value5194; -if (fornext_step_negative5194){ -if (fornext_value5194fornext_finalvalue5194) break; -} -fornext_error5194:; -if(qbevent){evnt(25066,10951,"ide_methods.bas");if(r)goto S_45635;} -S_45636:; -if ((*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,10952,"ide_methods.bas");if(r)goto S_45636;} -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS-*_FUNC_IDEMODIFYCOMMANDBOX_LONG_F; -if(!qbevent)break;evnt(25066,10955,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,10956,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,10956,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEMODIFYCOMMANDBOX_LONG_F); -if(!qbevent)break;evnt(25066,10957,"ide_methods.bas");}while(r); -S_45641:; -if ((*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,10958,"ide_methods.bas");if(r)goto S_45641;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,10958,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,10958,"ide_methods.bas");}while(r); -} -} -fornext_continue_5193:; -} -fornext_exit_5193:; -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_LASTFOCUS=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,10961,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,10968,"ide_methods.bas");}while(r); -S_45649:; -if ((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,10969,"ide_methods.bas");if(r)goto S_45649;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10969,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CY,*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,10969,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10969,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,10972,"ide_methods.bas");}while(r); -S_45655:; -do{ -if(qbevent){evnt(25066,10973,"ide_methods.bas");if(r)goto S_45655;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,10974,"ide_methods.bas");}while(r); -S_45657:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,10975,"ide_methods.bas");if(r)goto S_45657;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10975,"ide_methods.bas");}while(r); -} -S_45660:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,10976,"ide_methods.bas");if(r)goto S_45660;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10976,"ide_methods.bas");}while(r); -} -S_45663:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,10977,"ide_methods.bas");if(r)goto S_45663;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,10977,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10977,"ide_methods.bas");}while(r); -} -S_45667:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,10978,"ide_methods.bas");if(r)goto S_45667;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,10978,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10978,"ide_methods.bas");}while(r); -} -S_45671:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,10979,"ide_methods.bas");if(r)goto S_45671;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10979,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,10980,"ide_methods.bas");}while(r); -S_45675:; -if ((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_ALT!=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,10980,"ide_methods.bas");if(r)goto S_45675;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,10980,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_OLDALT=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,10981,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,10982,"ide_methods.bas");}while(r); -S_45680:; -dl_continue_5195:; -}while((!(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5195:; -if(qbevent){evnt(25066,10983,"ide_methods.bas");if(r)goto S_45680;} -S_45681:; -if ((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,10984,"ide_methods.bas");if(r)goto S_45681;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,10984,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,10984,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEMODIFYCOMMANDBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10986,"ide_methods.bas");}while(r); -S_45687:; -if ((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,10987,"ide_methods.bas");if(r)goto S_45687;} -S_45688:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,10988,"ide_methods.bas");if(r)goto S_45688;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10989,"ide_methods.bas");}while(r); -S_45690:; -if (((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,10990,"ide_methods.bas");if(r)goto S_45690;} -do{ -qbs_set(_FUNC_IDEMODIFYCOMMANDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10990,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10993,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,10993,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,10993,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,10997,"ide_methods.bas");}while(r); -S_45699:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,10998,"ide_methods.bas");if(r)goto S_45699;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,10998,"ide_methods.bas");}while(r); -} -S_45702:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,10999,"ide_methods.bas");if(r)goto S_45702;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,10999,"ide_methods.bas");}while(r); -} -S_45705:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,11000,"ide_methods.bas");if(r)goto S_45705;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,11000,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11000,"ide_methods.bas");}while(r); -} -S_45709:; -if ((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,11001,"ide_methods.bas");if(r)goto S_45709;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,11001,"ide_methods.bas");}while(r); -} -S_45712:; -if ((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS>*_FUNC_IDEMODIFYCOMMANDBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,11002,"ide_methods.bas");if(r)goto S_45712;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11002,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11003,"ide_methods.bas");}while(r); -S_45716:; -fornext_value5198= 1 ; -fornext_finalvalue5198= 100 ; -fornext_step5198= 1 ; -if (fornext_step5198<0) fornext_step_negative5198=1; else fornext_step_negative5198=0; -if (new_error) goto fornext_error5198; -goto fornext_entrylabel5198; -while(1){ -fornext_value5198=fornext_step5198+(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I); -fornext_entrylabel5198: -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I=fornext_value5198; -if (fornext_step_negative5198){ -if (fornext_value5198fornext_finalvalue5198) break; -} -fornext_error5198:; -if(qbevent){evnt(25066,11004,"ide_methods.bas");if(r)goto S_45716;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,11005,"ide_methods.bas");}while(r); -S_45718:; -if ((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,11006,"ide_methods.bas");if(r)goto S_45718;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUSOFFSET=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS-*_FUNC_IDEMODIFYCOMMANDBOX_LONG_F; -if(!qbevent)break;evnt(25066,11007,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_I)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS,_FUNC_IDEMODIFYCOMMANDBOX_LONG_F,_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEMODIFYCOMMANDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEMODIFYCOMMANDBOX_LONG_MOUSEDOWN,_FUNC_IDEMODIFYCOMMANDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEMODIFYCOMMANDBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11008,"ide_methods.bas");}while(r); -} -fornext_continue_5197:; -} -fornext_exit_5197:; -S_45723:; -if ((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS!=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,11014,"ide_methods.bas");if(r)goto S_45723;} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_PREVFOCUS=*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,11016,"ide_methods.bas");}while(r); -S_45725:; -if ((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,11017,"ide_methods.bas");if(r)goto S_45725;} -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,11018,"ide_methods.bas");}while(r); -S_45727:; -if ((-(*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,11019,"ide_methods.bas");if(r)goto S_45727;} -do{ -*(int8*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,11019,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS)-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,11020,"ide_methods.bas");}while(r); -} -} -S_45733:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11024,"ide_methods.bas");if(r)goto S_45733;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,11024,"ide_methods.bas");}while(r); -} -S_45736:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEMODIFYCOMMANDBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11026,"ide_methods.bas");if(r)goto S_45736;} -do{ -qbs_set(__STRING_MODIFYCOMMAND,qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[4],_FUNC_IDEMODIFYCOMMANDBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11027,"ide_methods.bas");}while(r); -S_45738:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_MODIFYCOMMAND)),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11028,"ide_methods.bas");if(r)goto S_45738;} -do{ -qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11028,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,11029,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,11034,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMODIFYCOMMANDBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,11035,"ide_methods.bas");}while(r); -dl_continue_5192:; -}while(1); -dl_exit_5192:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free179.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEMODIFYCOMMANDBOX_LONG_IDEMODIFYCOMMANDBOX; -} -int32 FUNC_IDEGOTOBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data180.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,11041,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,11042,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11043,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11044,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,11045,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4]+1; -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[6]=1; -if (_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDEGOTOBOX_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,11046,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,11047,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11048,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,11052,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEGOTOBOX_UDT_P)) + (0) ),&(pass5200= 30 ),&(pass5201= 5 ),qbs_new_txt_len("Go To Line",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11053,"ide_methods.bas");}while(r); -S_45756:; +S_51621:; if ((-(*__LONG_IDEGOTOBOX_LASTLINENUM> 0 ))||new_error){ -if(qbevent){evnt(25066,11055,"ide_methods.bas");if(r)goto S_45756;} +if(qbevent){evnt(26307,15062,"ide_methods.bas");if(r)goto S_51621;} do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A2,FUNC_STR2(__LONG_IDEGOTOBOX_LASTLINENUM)); +qbs_set(_SUB_IDEGOTOBOX_STRING_A2,FUNC_STR2(__LONG_IDEGOTOBOX_LASTLINENUM)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11055,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15062,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("",0)); +qbs_set(_SUB_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11055,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15062,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDEGOTOBOX_LONG_I=*_FUNC_IDEGOTOBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11056,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,11057,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,11058,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,11059,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Line",5)); -if(!qbevent)break;evnt(25066,11060,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEGOTOBOX_STRING_A2); -if(!qbevent)break;evnt(25066,11061,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEGOTOBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,11062,"ide_methods.bas");}while(r); -S_45768:; -if ((-(*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,11063,"ide_methods.bas");if(r)goto S_45768;} -do{ -*(int8*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,11064,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,11065,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGOTOBOX_LONG_I=*_FUNC_IDEGOTOBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11068,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,11069,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,11070,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDEGOTOBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,11071,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,11072,"ide_methods.bas");}while(r); -S_45777:; -fornext_value5204= 1 ; -fornext_finalvalue5204= 100 ; -fornext_step5204= 1 ; -if (fornext_step5204<0) fornext_step_negative5204=1; else fornext_step_negative5204=0; -if (new_error) goto fornext_error5204; -goto fornext_entrylabel5204; -while(1){ -fornext_value5204=fornext_step5204+(*_FUNC_IDEGOTOBOX_LONG_I); -fornext_entrylabel5204: -*_FUNC_IDEGOTOBOX_LONG_I=fornext_value5204; -if (fornext_step_negative5204){ -if (fornext_value5204fornext_finalvalue5204) break; -} -fornext_error5204:; -if(qbevent){evnt(25066,11076,"ide_methods.bas");if(r)goto S_45777;} -do{ -memcpy(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEGOTOBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,11076,"ide_methods.bas");}while(r); -fornext_continue_5203:; -} -fornext_exit_5203:; -S_45780:; -do{ -if(qbevent){evnt(25066,11079,"ide_methods.bas");if(r)goto S_45780;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEGOTOBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,11083,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11084,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,11084,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,11084,"ide_methods.bas");}while(r); -S_45785:; -fornext_value5207= 1 ; -fornext_finalvalue5207= 100 ; -fornext_step5207= 1 ; -if (fornext_step5207<0) fornext_step_negative5207=1; else fornext_step_negative5207=0; -if (new_error) goto fornext_error5207; -goto fornext_entrylabel5207; -while(1){ -fornext_value5207=fornext_step5207+(*_FUNC_IDEGOTOBOX_LONG_I); -fornext_entrylabel5207: -*_FUNC_IDEGOTOBOX_LONG_I=fornext_value5207; -if (fornext_step_negative5207){ -if (fornext_value5207fornext_finalvalue5207) break; -} -fornext_error5207:; -if(qbevent){evnt(25066,11085,"ide_methods.bas");if(r)goto S_45785;} -S_45786:; -if ((*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,11086,"ide_methods.bas");if(r)goto S_45786;} -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEGOTOBOX_LONG_FOCUS-*_FUNC_IDEGOTOBOX_LONG_F; -if(!qbevent)break;evnt(25066,11089,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,11090,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,11090,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEGOTOBOX_LONG_F); -if(!qbevent)break;evnt(25066,11091,"ide_methods.bas");}while(r); -S_45791:; -if ((*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,11092,"ide_methods.bas");if(r)goto S_45791;} -do{ -*_FUNC_IDEGOTOBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,11092,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,11092,"ide_methods.bas");}while(r); -} -} -fornext_continue_5206:; -} -fornext_exit_5206:; -do{ -*_FUNC_IDEGOTOBOX_LONG_LASTFOCUS=*_FUNC_IDEGOTOBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,11095,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,11102,"ide_methods.bas");}while(r); -S_45799:; -if ((*_FUNC_IDEGOTOBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,11103,"ide_methods.bas");if(r)goto S_45799;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11103,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEGOTOBOX_LONG_CY,*_FUNC_IDEGOTOBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,11103,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11103,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,11106,"ide_methods.bas");}while(r); -S_45805:; -do{ -if(qbevent){evnt(25066,11107,"ide_methods.bas");if(r)goto S_45805;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,11108,"ide_methods.bas");}while(r); -S_45807:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,11109,"ide_methods.bas");if(r)goto S_45807;} -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11109,"ide_methods.bas");}while(r); -} -S_45810:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,11110,"ide_methods.bas");if(r)goto S_45810;} -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11110,"ide_methods.bas");}while(r); -} -S_45813:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,11111,"ide_methods.bas");if(r)goto S_45813;} -do{ -*_FUNC_IDEGOTOBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,11111,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11111,"ide_methods.bas");}while(r); -} -S_45817:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,11112,"ide_methods.bas");if(r)goto S_45817;} -do{ -*_FUNC_IDEGOTOBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,11112,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11112,"ide_methods.bas");}while(r); -} -S_45821:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,11113,"ide_methods.bas");if(r)goto S_45821;} -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11113,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGOTOBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,11114,"ide_methods.bas");}while(r); -S_45825:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_ALT!=*_FUNC_IDEGOTOBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,11114,"ide_methods.bas");if(r)goto S_45825;} -do{ -*_FUNC_IDEGOTOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11114,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGOTOBOX_LONG_OLDALT=*_FUNC_IDEGOTOBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,11115,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,11116,"ide_methods.bas");}while(r); -S_45830:; -dl_continue_5208:; -}while((!(*_FUNC_IDEGOTOBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5208:; -if(qbevent){evnt(25066,11117,"ide_methods.bas");if(r)goto S_45830;} -S_45831:; -if ((*_FUNC_IDEGOTOBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11118,"ide_methods.bas");if(r)goto S_45831;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,11118,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,11118,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_set(_SUB_IDEGOTOBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Go To Line",10),qbs_new_txt_len("#Line",5),_SUB_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5766= 30 ),&(pass5767= 8 ),&(pass5768= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11120,"ide_methods.bas");}while(r); -S_45837:; -if ((*_FUNC_IDEGOTOBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11121,"ide_methods.bas");if(r)goto S_45837;} -S_45838:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,11122,"ide_methods.bas");if(r)goto S_45838;} -do{ -*_FUNC_IDEGOTOBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11123,"ide_methods.bas");}while(r); -S_45840:; -if (((-(*_FUNC_IDEGOTOBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEGOTOBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,11124,"ide_methods.bas");if(r)goto S_45840;} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEGOTOBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11124,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11127,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,11127,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11127,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,11131,"ide_methods.bas");}while(r); -S_45849:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11132,"ide_methods.bas");if(r)goto S_45849;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11132,"ide_methods.bas");}while(r); -} -S_45852:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,11133,"ide_methods.bas");if(r)goto S_45852;} -do{ -*_FUNC_IDEGOTOBOX_LONG_FOCUS=*_FUNC_IDEGOTOBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,11133,"ide_methods.bas");}while(r); -} -S_45855:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,11134,"ide_methods.bas");if(r)goto S_45855;} -do{ -*_FUNC_IDEGOTOBOX_LONG_FOCUS=*_FUNC_IDEGOTOBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,11134,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11134,"ide_methods.bas");}while(r); -} -S_45859:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,11135,"ide_methods.bas");if(r)goto S_45859;} -do{ -*_FUNC_IDEGOTOBOX_LONG_FOCUS=*_FUNC_IDEGOTOBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,11135,"ide_methods.bas");}while(r); -} -S_45862:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS>*_FUNC_IDEGOTOBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,11136,"ide_methods.bas");if(r)goto S_45862;} -do{ -*_FUNC_IDEGOTOBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11136,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGOTOBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11137,"ide_methods.bas");}while(r); -S_45866:; -fornext_value5211= 1 ; -fornext_finalvalue5211= 100 ; -fornext_step5211= 1 ; -if (fornext_step5211<0) fornext_step_negative5211=1; else fornext_step_negative5211=0; -if (new_error) goto fornext_error5211; -goto fornext_entrylabel5211; -while(1){ -fornext_value5211=fornext_step5211+(*_FUNC_IDEGOTOBOX_LONG_I); -fornext_entrylabel5211: -*_FUNC_IDEGOTOBOX_LONG_I=fornext_value5211; -if (fornext_step_negative5211){ -if (fornext_value5211fornext_finalvalue5211) break; -} -fornext_error5211:; -if(qbevent){evnt(25066,11138,"ide_methods.bas");if(r)goto S_45866;} -do{ -*_FUNC_IDEGOTOBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,11139,"ide_methods.bas");}while(r); -S_45868:; -if ((*_FUNC_IDEGOTOBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,11140,"ide_methods.bas");if(r)goto S_45868;} -do{ -*_FUNC_IDEGOTOBOX_LONG_FOCUSOFFSET=*_FUNC_IDEGOTOBOX_LONG_FOCUS-*_FUNC_IDEGOTOBOX_LONG_F; -if(!qbevent)break;evnt(25066,11141,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEGOTOBOX_LONG_I)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEGOTOBOX_LONG_FOCUS,_FUNC_IDEGOTOBOX_LONG_F,_FUNC_IDEGOTOBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEGOTOBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEGOTOBOX_LONG_MOUSEDOWN,_FUNC_IDEGOTOBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEGOTOBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11142,"ide_methods.bas");}while(r); -} -fornext_continue_5210:; -} -fornext_exit_5210:; -S_45873:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS!=*_FUNC_IDEGOTOBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,11148,"ide_methods.bas");if(r)goto S_45873;} -do{ -*_FUNC_IDEGOTOBOX_LONG_PREVFOCUS=*_FUNC_IDEGOTOBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,11150,"ide_methods.bas");}while(r); -S_45875:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(25066,11151,"ide_methods.bas");if(r)goto S_45875;} -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_FOCUS)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_FOCUS)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,11152,"ide_methods.bas");}while(r); -S_45877:; -if ((-(*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_FOCUS)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,11153,"ide_methods.bas");if(r)goto S_45877;} -do{ -*(int8*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_FOCUS)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,11153,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEGOTOBOX_LONG_FOCUS)-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,11154,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11158,"ide_methods.bas");}while(r); -S_45884:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEGOTOBOX_STRING_A->len> 8 )))||new_error){ -if(qbevent){evnt(25066,11159,"ide_methods.bas");if(r)goto S_45884;} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A,qbs_left(_FUNC_IDEGOTOBOX_STRING_A, 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11159,"ide_methods.bas");}while(r); -} -S_45887:; -fornext_value5215= 1 ; -fornext_finalvalue5215=_FUNC_IDEGOTOBOX_STRING_A->len; -fornext_step5215= 1 ; -if (fornext_step5215<0) fornext_step_negative5215=1; else fornext_step_negative5215=0; -if (new_error) goto fornext_error5215; -goto fornext_entrylabel5215; -while(1){ -fornext_value5215=fornext_step5215+(*_FUNC_IDEGOTOBOX_LONG_I); -fornext_entrylabel5215: -*_FUNC_IDEGOTOBOX_LONG_I=fornext_value5215; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5215){ -if (fornext_value5215fornext_finalvalue5215) break; -} -fornext_error5215:; -if(qbevent){evnt(25066,11160,"ide_methods.bas");if(r)goto S_45887;} -do{ -*_FUNC_IDEGOTOBOX_LONG_A=qbs_asc(_FUNC_IDEGOTOBOX_STRING_A,*_FUNC_IDEGOTOBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11161,"ide_methods.bas");}while(r); -S_45889:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEGOTOBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEGOTOBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,11162,"ide_methods.bas");if(r)goto S_45889;} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11162,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5214; -if(!qbevent)break;evnt(25066,11162,"ide_methods.bas");}while(r); -} -S_45893:; -if (((-(*_FUNC_IDEGOTOBOX_LONG_A< 48 ))|(-(*_FUNC_IDEGOTOBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,11163,"ide_methods.bas");if(r)goto S_45893;} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A,qbs_left(_FUNC_IDEGOTOBOX_STRING_A,*_FUNC_IDEGOTOBOX_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11163,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5214; -if(!qbevent)break;evnt(25066,11163,"ide_methods.bas");}while(r); -} -fornext_continue_5214:; -} -fornext_exit_5214:; -S_45898:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS!= 1 ))||new_error){ -if(qbevent){evnt(25066,11165,"ide_methods.bas");if(r)goto S_45898;} -do{ -*_FUNC_IDEGOTOBOX_LONG_A=qbr(func_val(_FUNC_IDEGOTOBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11166,"ide_methods.bas");}while(r); -S_45900:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_A< 1 ))||new_error){ -if(qbevent){evnt(25066,11167,"ide_methods.bas");if(r)goto S_45900;} -do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_A,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11167,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEGOTOBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11169,"ide_methods.bas");}while(r); -S_45905:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEGOTOBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11171,"ide_methods.bas");if(r)goto S_45905;} +if(!qbevent)break;evnt(26307,15063,"ide_methods.bas");}while(r); +S_51627:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEGOTOBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15064,"ide_methods.bas");if(r)goto S_51627;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,11171,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15064,"ide_methods.bas");}while(r); } -S_45908:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEGOTOBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEGOTOBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11173,"ide_methods.bas");if(r)goto S_45908;} do{ -qbs_set(_FUNC_IDEGOTOBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEGOTOBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEGOTOBOX_ARRAY_UDT_O[4],_FUNC_IDEGOTOBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +*_SUB_IDEGOTOBOX_LONG_V=qbr(func_val(_SUB_IDEGOTOBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15066,"ide_methods.bas");}while(r); +S_51631:; +if ((-(*_SUB_IDEGOTOBOX_LONG_V< 1 ))||new_error){ +if(qbevent){evnt(26307,15067,"ide_methods.bas");if(r)goto S_51631;} do{ -*_FUNC_IDEGOTOBOX_LONG_V=qbr(func_val(_FUNC_IDEGOTOBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11175,"ide_methods.bas");}while(r); -S_45911:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_V< 1 ))||new_error){ -if(qbevent){evnt(25066,11176,"ide_methods.bas");if(r)goto S_45911;} -do{ -*_FUNC_IDEGOTOBOX_LONG_V= 1 ; -if(!qbevent)break;evnt(25066,11176,"ide_methods.bas");}while(r); +*_SUB_IDEGOTOBOX_LONG_V= 1 ; +if(!qbevent)break;evnt(26307,15067,"ide_methods.bas");}while(r); } -S_45914:; -if ((-(*_FUNC_IDEGOTOBOX_LONG_V>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,11177,"ide_methods.bas");if(r)goto S_45914;} +S_51634:; +if ((-(*_SUB_IDEGOTOBOX_LONG_V>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,15068,"ide_methods.bas");if(r)goto S_51634;} do{ -*_FUNC_IDEGOTOBOX_LONG_V=*__LONG_IDEN; -if(!qbevent)break;evnt(25066,11177,"ide_methods.bas");}while(r); +*_SUB_IDEGOTOBOX_LONG_V=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,15068,"ide_methods.bas");}while(r); } do{ -*__LONG_IDEGOTOBOX_LASTLINENUM=*_FUNC_IDEGOTOBOX_LONG_V; -if(!qbevent)break;evnt(25066,11178,"ide_methods.bas");}while(r); +*__LONG_IDEGOTOBOX_LASTLINENUM=*_SUB_IDEGOTOBOX_LONG_V; +if(!qbevent)break;evnt(26307,15069,"ide_methods.bas");}while(r); do{ -SUB_ADDQUICKNAVHISTORY(__LONG_IDECY); -if(!qbevent)break;evnt(25066,11179,"ide_methods.bas");}while(r); +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26307,15070,"ide_methods.bas");}while(r); do{ -*__LONG_IDECY=*_FUNC_IDEGOTOBOX_LONG_V; -if(!qbevent)break;evnt(25066,11180,"ide_methods.bas");}while(r); +*__LONG_IDECY=*_SUB_IDEGOTOBOX_LONG_V; +if(!qbevent)break;evnt(26307,15071,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26307,15072,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,11181,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,11182,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGOTOBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,11187,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEGOTOBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,11188,"ide_methods.bas");}while(r); -dl_continue_5205:; -}while(1); -dl_exit_5205:; +if(!qbevent)break;evnt(26307,15073,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free180.txt" +#include "free192.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEGOTOBOX_LONG_IDEGOTOBOX; +} +void SUB_IDESETTCPPORTBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data193.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDESETTCPPORTBOX_STRING_A2,FUNC_STR2(__LONG_IDEBASETCPPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15077,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESETTCPPORTBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Base TCP/IP Port Number",23),qbs_new_txt_len("#Port number for $DEBUG mode",28),_SUB_IDESETTCPPORTBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5769= 45 ),&(pass5770= 5 ),&(pass5771= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15078,"ide_methods.bas");}while(r); +S_51644:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESETTCPPORTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15079,"ide_methods.bas");if(r)goto S_51644;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,15079,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEBASETCPPORT=qbr(func_val(_SUB_IDESETTCPPORTBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15081,"ide_methods.bas");}while(r); +S_51648:; +if ((-(*__LONG_IDEBASETCPPORT== 0 ))||new_error){ +if(qbevent){evnt(26307,15082,"ide_methods.bas");if(r)goto S_51648;} +do{ +*__LONG_IDEBASETCPPORT= 9000 ; +if(!qbevent)break;evnt(26307,15082,"ide_methods.bas");}while(r); +} +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),FUNC_STR2(__LONG_IDEBASETCPPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15083,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free193.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDEGETLINENUMBERBOX(qbs*_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,int32*_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data194.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,FUNC_STR2(_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15087,"ide_methods.bas");}while(r); +S_51653:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(26307,15088,"ide_methods.bas");if(r)goto S_51653;} +do{ +qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15088,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,qbs_new_txt_len("#Line",5),_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5773= 30 ),&(pass5774= 8 ),&(pass5775= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15089,"ide_methods.bas");}while(r); +S_51657:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEGETLINENUMBERBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15090,"ide_methods.bas");if(r)goto S_51657;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,15090,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_V=qbr(func_val(_FUNC_IDEGETLINENUMBERBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15092,"ide_methods.bas");}while(r); +S_51661:; +if ((-(*_FUNC_IDEGETLINENUMBERBOX_LONG_V< 1 ))||new_error){ +if(qbevent){evnt(26307,15093,"ide_methods.bas");if(r)goto S_51661;} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_V= 1 ; +if(!qbevent)break;evnt(26307,15093,"ide_methods.bas");}while(r); +} +S_51664:; +if ((-(*_FUNC_IDEGETLINENUMBERBOX_LONG_V>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,15094,"ide_methods.bas");if(r)goto S_51664;} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_V=*__LONG_IDEN; +if(!qbevent)break;evnt(26307,15094,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX=*_FUNC_IDEGETLINENUMBERBOX_LONG_V; +if(!qbevent)break;evnt(26307,15096,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free194.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX; } int32 FUNC_IDEADVANCEDBOX(){ qbs *tqbs; @@ -162400,7 +179714,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data181.txt" +#include "data195.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -162408,53 +179722,53 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,11199,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15104,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,11200,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15105,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11201,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15106,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11202,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15107,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15108,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,11204,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15109,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11205,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15110,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEADVANCEDBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11206,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15111,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&2){ error(10); }else{ if (_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]= 0 ; _FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]=( 100 )-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]+1; @@ -162470,556 +179784,522 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[ } } } -if(!qbevent)break;evnt(25066,11210,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15115,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,11212,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15117,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_I=*_FUNC_IDEADVANCEDBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11214,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15119,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,11215,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,15120,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEADVANCEDBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,11217,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEADVANCEDBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,15122,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,11218,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,15123,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y= 2 ; -if(!qbevent)break;evnt(25066,11220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15125,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_I=*_FUNC_IDEADVANCEDBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11222,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15127,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,11223,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,15128,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+24))=*_FUNC_IDEADVANCEDBOX_LONG_Y; -if(!qbevent)break;evnt(25066,11224,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEADVANCEDBOX_LONG_Y; +if(!qbevent)break;evnt(26307,15129,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Embed C++ debug information into executable",43)); -if(!qbevent)break;evnt(25066,11225,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Embed C++ debug information into executable",43)); +if(!qbevent)break;evnt(26307,15130,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(25066,11226,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(26307,15131,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,11227,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15132,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Investigate crashes/freezes at C++ (not QB64) code level",57))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" This setting is not required for $DEBUG mode",45))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11227,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15132,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,11228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15133,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Use it to investigate crashes/freezes at C++ (not QB64) code level",67))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15133,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,15134,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Use internal/temp/debug batch file to debug your executable",60))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15134,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,11229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15135,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Increases executable size",26))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15135,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,11230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15136,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" Makes public the names of variables in your program's code",59))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15136,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,11231,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15137,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" QB64 libraries will be purged then rebuilt",43))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11231,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15137,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,11232,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15138,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",5),func_chr( 254 )),qbs_new_txt_len(" This setting also affects command line compilation",51))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11232,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15138,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_Y=*_FUNC_IDEADVANCEDBOX_LONG_Y+ 2 ; -if(!qbevent)break;evnt(25066,11234,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15140,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+24))=*_FUNC_IDEADVANCEDBOX_LONG_Y; -if(!qbevent)break;evnt(25066,11236,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEADVANCEDBOX_LONG_Y; +if(!qbevent)break;evnt(26307,15142,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_UDT_P)) + (0) ),&(pass5217= 75 ),_FUNC_IDEADVANCEDBOX_LONG_Y,qbs_new_txt_len("Advanced Options",16)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_UDT_P)) + (0) ),&(pass5776= 75 ),_FUNC_IDEADVANCEDBOX_LONG_Y,qbs_new_txt_len("Advanced Options",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11240,"ide_methods.bas");}while(r); -S_45961:; -fornext_value5219= 1 ; -fornext_finalvalue5219= 100 ; -fornext_step5219= 1 ; -if (fornext_step5219<0) fornext_step_negative5219=1; else fornext_step_negative5219=0; -if (new_error) goto fornext_error5219; -goto fornext_entrylabel5219; +if(!qbevent)break;evnt(26307,15146,"ide_methods.bas");}while(r); +S_51705:; +fornext_value5778= 1 ; +fornext_finalvalue5778= 100 ; +fornext_step5778= 1 ; +if (fornext_step5778<0) fornext_step_negative5778=1; else fornext_step_negative5778=0; +if (new_error) goto fornext_error5778; +goto fornext_entrylabel5778; while(1){ -fornext_value5219=fornext_step5219+(*_FUNC_IDEADVANCEDBOX_LONG_I); -fornext_entrylabel5219: -*_FUNC_IDEADVANCEDBOX_LONG_I=fornext_value5219; -if (fornext_step_negative5219){ -if (fornext_value5219fornext_finalvalue5219) break; +if (fornext_value5778>fornext_finalvalue5778) break; } -fornext_error5219:; -if(qbevent){evnt(25066,11243,"ide_methods.bas");if(r)goto S_45961;} +fornext_error5778:; +if(qbevent){evnt(26307,15149,"ide_methods.bas");if(r)goto S_51705;} do{ -memcpy(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,11243,"ide_methods.bas");}while(r); -fornext_continue_5218:; +memcpy(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,15149,"ide_methods.bas");}while(r); +fornext_continue_5777:; } -fornext_exit_5218:; -S_45964:; +fornext_exit_5777:; +S_51708:; do{ -if(qbevent){evnt(25066,11246,"ide_methods.bas");if(r)goto S_45964;} +if(qbevent){evnt(26307,15152,"ide_methods.bas");if(r)goto S_51708;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,11250,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15156,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11251,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15157,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,11251,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15157,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,11251,"ide_methods.bas");}while(r); -S_45969:; -fornext_value5222= 1 ; -fornext_finalvalue5222= 100 ; -fornext_step5222= 1 ; -if (fornext_step5222<0) fornext_step_negative5222=1; else fornext_step_negative5222=0; -if (new_error) goto fornext_error5222; -goto fornext_entrylabel5222; +if(!qbevent)break;evnt(26307,15157,"ide_methods.bas");}while(r); +S_51713:; +fornext_value5781= 1 ; +fornext_finalvalue5781= 100 ; +fornext_step5781= 1 ; +if (fornext_step5781<0) fornext_step_negative5781=1; else fornext_step_negative5781=0; +if (new_error) goto fornext_error5781; +goto fornext_entrylabel5781; while(1){ -fornext_value5222=fornext_step5222+(*_FUNC_IDEADVANCEDBOX_LONG_I); -fornext_entrylabel5222: -*_FUNC_IDEADVANCEDBOX_LONG_I=fornext_value5222; -if (fornext_step_negative5222){ -if (fornext_value5222fornext_finalvalue5222) break; +if (fornext_value5781>fornext_finalvalue5781) break; } -fornext_error5222:; -if(qbevent){evnt(25066,11252,"ide_methods.bas");if(r)goto S_45969;} -S_45970:; -if ((*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,11253,"ide_methods.bas");if(r)goto S_45970;} +fornext_error5781:; +if(qbevent){evnt(26307,15158,"ide_methods.bas");if(r)goto S_51713;} +S_51714:; +if ((*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,15159,"ide_methods.bas");if(r)goto S_51714;} do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS-*_FUNC_IDEADVANCEDBOX_LONG_F; -if(!qbevent)break;evnt(25066,11256,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS-*_FUNC_IDEADVANCEDBOX_LONG_F; +if(!qbevent)break;evnt(26307,15162,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,11257,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,15163,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,11257,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,15163,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEADVANCEDBOX_LONG_F); -if(!qbevent)break;evnt(25066,11258,"ide_methods.bas");}while(r); -S_45975:; -if ((*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,11259,"ide_methods.bas");if(r)goto S_45975;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEADVANCEDBOX_LONG_F); +if(!qbevent)break;evnt(26307,15164,"ide_methods.bas");}while(r); +S_51719:; +if ((*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,15165,"ide_methods.bas");if(r)goto S_51719;} do{ -*_FUNC_IDEADVANCEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,11259,"ide_methods.bas");}while(r); +*_FUNC_IDEADVANCEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,15165,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEADVANCEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,11259,"ide_methods.bas");}while(r); +*_FUNC_IDEADVANCEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,15165,"ide_methods.bas");}while(r); } } -fornext_continue_5221:; +fornext_continue_5780:; } -fornext_exit_5221:; +fornext_exit_5780:; do{ *_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS=*_FUNC_IDEADVANCEDBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,11262,"ide_methods.bas");}while(r); -S_45982:; -fornext_value5224= 1 ; -fornext_finalvalue5224= 100 ; -fornext_step5224= 1 ; -if (fornext_step5224<0) fornext_step_negative5224=1; else fornext_step_negative5224=0; -if (new_error) goto fornext_error5224; -goto fornext_entrylabel5224; +if(!qbevent)break;evnt(26307,15168,"ide_methods.bas");}while(r); +S_51726:; +fornext_value5783= 1 ; +fornext_finalvalue5783= 100 ; +fornext_step5783= 1 ; +if (fornext_step5783<0) fornext_step_negative5783=1; else fornext_step_negative5783=0; +if (new_error) goto fornext_error5783; +goto fornext_entrylabel5783; while(1){ -fornext_value5224=fornext_step5224+(*_FUNC_IDEADVANCEDBOX_LONG_Y); -fornext_entrylabel5224: -*_FUNC_IDEADVANCEDBOX_LONG_Y=fornext_value5224; -if (fornext_step_negative5224){ -if (fornext_value5224fornext_finalvalue5224) break; +if (fornext_value5783>fornext_finalvalue5783) break; } -fornext_error5224:; -if(qbevent){evnt(25066,11266,"ide_methods.bas");if(r)goto S_45982;} -S_45983:; +fornext_error5783:; +if(qbevent){evnt(26307,15172,"ide_methods.bas");if(r)goto S_51726;} +S_51727:; if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5])]))->len))||new_error){ -if(qbevent){evnt(25066,11267,"ide_methods.bas");if(r)goto S_45983;} +if(qbevent){evnt(26307,15173,"ide_methods.bas");if(r)goto S_51727;} do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,11268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15174,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(4))+*_FUNC_IDEADVANCEDBOX_LONG_Y,*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(0))+ 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,11268,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5])]))); -if (new_error) goto skip5226; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip5226: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(0))+ 1 ,*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_UDT_P)+(4))+*_FUNC_IDEADVANCEDBOX_LONG_Y,((qbs*)(((uint64*)(_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]))[array_check((*_FUNC_IDEADVANCEDBOX_LONG_Y)-_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4],_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5])])),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15174,"ide_methods.bas");}while(r); } -fornext_continue_5223:; +fornext_continue_5782:; } -fornext_exit_5223:; +fornext_exit_5782:; do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,11274,"ide_methods.bas");}while(r); -S_45990:; +if(!qbevent)break;evnt(26307,15180,"ide_methods.bas");}while(r); +S_51733:; if ((*_FUNC_IDEADVANCEDBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,11275,"ide_methods.bas");if(r)goto S_45990;} +if(qbevent){evnt(26307,15181,"ide_methods.bas");if(r)goto S_51733;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11275,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15181,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDEADVANCEDBOX_LONG_CY,*_FUNC_IDEADVANCEDBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,11275,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15181,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11275,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15181,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,11278,"ide_methods.bas");}while(r); -S_45996:; +if(!qbevent)break;evnt(26307,15184,"ide_methods.bas");}while(r); +S_51739:; do{ -if(qbevent){evnt(25066,11279,"ide_methods.bas");if(r)goto S_45996;} +if(qbevent){evnt(26307,15185,"ide_methods.bas");if(r)goto S_51739;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,11280,"ide_methods.bas");}while(r); -S_45998:; +if(!qbevent)break;evnt(26307,15186,"ide_methods.bas");}while(r); +S_51741:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,11281,"ide_methods.bas");if(r)goto S_45998;} +if(qbevent){evnt(26307,15187,"ide_methods.bas");if(r)goto S_51741;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11281,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15187,"ide_methods.bas");}while(r); } -S_46001:; +S_51744:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,11282,"ide_methods.bas");if(r)goto S_46001;} +if(qbevent){evnt(26307,15188,"ide_methods.bas");if(r)goto S_51744;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11282,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15188,"ide_methods.bas");}while(r); } -S_46004:; +S_51747:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,11283,"ide_methods.bas");if(r)goto S_46004;} +if(qbevent){evnt(26307,15189,"ide_methods.bas");if(r)goto S_51747;} do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,11283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15189,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15189,"ide_methods.bas");}while(r); } -S_46008:; +S_51751:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,11284,"ide_methods.bas");if(r)goto S_46008;} +if(qbevent){evnt(26307,15190,"ide_methods.bas");if(r)goto S_51751;} do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,11284,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15190,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11284,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15190,"ide_methods.bas");}while(r); } -S_46012:; +S_51755:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,11285,"ide_methods.bas");if(r)goto S_46012;} +if(qbevent){evnt(26307,15191,"ide_methods.bas");if(r)goto S_51755;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11285,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15191,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,11286,"ide_methods.bas");}while(r); -S_46016:; +if(!qbevent)break;evnt(26307,15192,"ide_methods.bas");}while(r); +S_51759:; if ((-(*_FUNC_IDEADVANCEDBOX_LONG_ALT!=*_FUNC_IDEADVANCEDBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,11286,"ide_methods.bas");if(r)goto S_46016;} +if(qbevent){evnt(26307,15192,"ide_methods.bas");if(r)goto S_51759;} do{ *_FUNC_IDEADVANCEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11286,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15192,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_OLDALT=*_FUNC_IDEADVANCEDBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,11287,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15193,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,11288,"ide_methods.bas");}while(r); -S_46021:; -dl_continue_5227:; +if(!qbevent)break;evnt(26307,15194,"ide_methods.bas");}while(r); +S_51764:; +dl_continue_5785:; }while((!(*_FUNC_IDEADVANCEDBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5227:; -if(qbevent){evnt(25066,11289,"ide_methods.bas");if(r)goto S_46021;} -S_46022:; +dl_exit_5785:; +if(qbevent){evnt(26307,15195,"ide_methods.bas");if(r)goto S_51764;} +S_51765:; if ((*_FUNC_IDEADVANCEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11290,"ide_methods.bas");if(r)goto S_46022;} +if(qbevent){evnt(26307,15196,"ide_methods.bas");if(r)goto S_51765;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,11290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15196,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,11290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15196,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11292,"ide_methods.bas");}while(r); -S_46028:; +if(!qbevent)break;evnt(26307,15198,"ide_methods.bas");}while(r); +S_51771:; if ((*_FUNC_IDEADVANCEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11293,"ide_methods.bas");if(r)goto S_46028;} -S_46029:; +if(qbevent){evnt(26307,15199,"ide_methods.bas");if(r)goto S_51771;} +S_51772:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,11294,"ide_methods.bas");if(r)goto S_46029;} +if(qbevent){evnt(26307,15200,"ide_methods.bas");if(r)goto S_51772;} do{ *_FUNC_IDEADVANCEDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11295,"ide_methods.bas");}while(r); -S_46031:; +if(!qbevent)break;evnt(26307,15201,"ide_methods.bas");}while(r); +S_51774:; if (((-(*_FUNC_IDEADVANCEDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEADVANCEDBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,11296,"ide_methods.bas");if(r)goto S_46031;} +if(qbevent){evnt(26307,15202,"ide_methods.bas");if(r)goto S_51774;} do{ qbs_set(_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEADVANCEDBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15202,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11299,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15205,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,11299,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15205,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11299,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15205,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,11303,"ide_methods.bas");}while(r); -S_46040:; +if(!qbevent)break;evnt(26307,15209,"ide_methods.bas");}while(r); +S_51783:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11304,"ide_methods.bas");if(r)goto S_46040;} +if(qbevent){evnt(26307,15210,"ide_methods.bas");if(r)goto S_51783;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15210,"ide_methods.bas");}while(r); } -S_46043:; +S_51786:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,11305,"ide_methods.bas");if(r)goto S_46043;} +if(qbevent){evnt(26307,15211,"ide_methods.bas");if(r)goto S_51786;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,11305,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15211,"ide_methods.bas");}while(r); } -S_46046:; +S_51789:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,11306,"ide_methods.bas");if(r)goto S_46046;} +if(qbevent){evnt(26307,15212,"ide_methods.bas");if(r)goto S_51789;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,11306,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15212,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11306,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15212,"ide_methods.bas");}while(r); } -S_46050:; +S_51793:; if ((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,11307,"ide_methods.bas");if(r)goto S_46050;} +if(qbevent){evnt(26307,15213,"ide_methods.bas");if(r)goto S_51793;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=*_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,11307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15213,"ide_methods.bas");}while(r); } -S_46053:; +S_51796:; if ((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS>*_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,11308,"ide_methods.bas");if(r)goto S_46053;} +if(qbevent){evnt(26307,15214,"ide_methods.bas");if(r)goto S_51796;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15214,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11309,"ide_methods.bas");}while(r); -S_46057:; -fornext_value5230= 1 ; -fornext_finalvalue5230= 100 ; -fornext_step5230= 1 ; -if (fornext_step5230<0) fornext_step_negative5230=1; else fornext_step_negative5230=0; -if (new_error) goto fornext_error5230; -goto fornext_entrylabel5230; +if(!qbevent)break;evnt(26307,15215,"ide_methods.bas");}while(r); +S_51800:; +fornext_value5788= 1 ; +fornext_finalvalue5788= 100 ; +fornext_step5788= 1 ; +if (fornext_step5788<0) fornext_step_negative5788=1; else fornext_step_negative5788=0; +if (new_error) goto fornext_error5788; +goto fornext_entrylabel5788; while(1){ -fornext_value5230=fornext_step5230+(*_FUNC_IDEADVANCEDBOX_LONG_I); -fornext_entrylabel5230: -*_FUNC_IDEADVANCEDBOX_LONG_I=fornext_value5230; -if (fornext_step_negative5230){ -if (fornext_value5230fornext_finalvalue5230) break; +if (fornext_value5788>fornext_finalvalue5788) break; } -fornext_error5230:; -if(qbevent){evnt(25066,11310,"ide_methods.bas");if(r)goto S_46057;} +fornext_error5788:; +if(qbevent){evnt(26307,15216,"ide_methods.bas");if(r)goto S_51800;} do{ -*_FUNC_IDEADVANCEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,11311,"ide_methods.bas");}while(r); -S_46059:; +*_FUNC_IDEADVANCEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,15217,"ide_methods.bas");}while(r); +S_51802:; if ((*_FUNC_IDEADVANCEDBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,11312,"ide_methods.bas");if(r)goto S_46059;} +if(qbevent){evnt(26307,15218,"ide_methods.bas");if(r)goto S_51802;} do{ *_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET=*_FUNC_IDEADVANCEDBOX_LONG_FOCUS-*_FUNC_IDEADVANCEDBOX_LONG_F; -if(!qbevent)break;evnt(25066,11313,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15219,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEADVANCEDBOX_LONG_FOCUS,_FUNC_IDEADVANCEDBOX_LONG_F,_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN,_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEADVANCEDBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEADVANCEDBOX_LONG_I)-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEADVANCEDBOX_LONG_FOCUS,_FUNC_IDEADVANCEDBOX_LONG_F,_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN,_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEADVANCEDBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15220,"ide_methods.bas");}while(r); } -fornext_continue_5229:; +fornext_continue_5787:; } -fornext_exit_5229:; -S_46064:; +fornext_exit_5787:; +S_51807:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEADVANCEDBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11321,"ide_methods.bas");if(r)goto S_46064;} +if(qbevent){evnt(26307,15227,"ide_methods.bas");if(r)goto S_51807;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,11321,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15227,"ide_methods.bas");}while(r); } -S_46067:; +S_51810:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEADVANCEDBOX_LONG_FOCUS== 1 ))&(-(*_FUNC_IDEADVANCEDBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11323,"ide_methods.bas");if(r)goto S_46067;} +if(qbevent){evnt(26307,15229,"ide_methods.bas");if(r)goto S_51810;} do{ -*_FUNC_IDEADVANCEDBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,11327,"ide_methods.bas");}while(r); -S_46069:; +*_FUNC_IDEADVANCEDBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4],_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,15233,"ide_methods.bas");}while(r); +S_51812:; if ((-(*_FUNC_IDEADVANCEDBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,11327,"ide_methods.bas");if(r)goto S_46069;} +if(qbevent){evnt(26307,15233,"ide_methods.bas");if(r)goto S_51812;} do{ *_FUNC_IDEADVANCEDBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(25066,11327,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15233,"ide_methods.bas");}while(r); } -S_46072:; +S_51815:; if ((-(*_FUNC_IDEADVANCEDBOX_INTEGER_V!=*__LONG_IDEDEBUGINFO))||new_error){ -if(qbevent){evnt(25066,11328,"ide_methods.bas");if(r)goto S_46072;} +if(qbevent){evnt(26307,15234,"ide_methods.bas");if(r)goto S_51815;} do{ *__LONG_IDEDEBUGINFO=*_FUNC_IDEADVANCEDBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,11329,"ide_methods.bas");}while(r); -S_46074:; +if(!qbevent)break;evnt(26307,15235,"ide_methods.bas");}while(r); +S_51817:; if ((*__LONG_IDEDEBUGINFO)||new_error){ -if(qbevent){evnt(25066,11330,"ide_methods.bas");if(r)goto S_46074;} +if(qbevent){evnt(26307,15236,"ide_methods.bas");if(r)goto S_51817;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("TRUE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",58)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("True",4),__STRING_DEBUGINFOINIWARNING)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15237,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!",59)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("False",5),__STRING_DEBUGINFOINIWARNING)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11333,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15239,"ide_methods.bas");}while(r); } do{ *__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(25066,11335,"ide_methods.bas");}while(r); -S_46080:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25066,11336,"ide_methods.bas");if(r)goto S_46080;} +if(!qbevent)break;evnt(26307,15241,"ide_methods.bas");}while(r); do{ -sub_chdir(qbs_new_txt_len("internal\\c",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11337,"ide_methods.bas");}while(r); -do{ -sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11338,"ide_methods.bas");}while(r); -do{ -sub_chdir(qbs_new_txt_len("..\\..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11339,"ide_methods.bas");}while(r); -} -S_46085:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25066,11341,"ide_methods.bas");if(r)goto S_46085;} -do{ -sub_chdir(qbs_new_txt_len("./internal/c",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11342,"ide_methods.bas");}while(r); -S_46087:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(25066,11344,"ide_methods.bas");if(r)goto S_46087;} -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11345,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11347,"ide_methods.bas");}while(r); -} -do{ -sub_chdir(qbs_new_txt_len("../..",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11349,"ide_methods.bas");}while(r); -} +SUB_PURGEPRECOMPILEDCONTENT(); +if(!qbevent)break;evnt(26307,15242,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,11351,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15243,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,15244,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,11357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15247,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,11374,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15252,"ide_methods.bas");}while(r); do{ *_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,11375,"ide_methods.bas");}while(r); -dl_continue_5220:; +if(!qbevent)break;evnt(26307,15253,"ide_methods.bas");}while(r); +dl_continue_5779:; }while(1); -dl_exit_5220:; +dl_exit_5779:; +do{ +*_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX= 0 ; +if(!qbevent)break;evnt(26307,15256,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free181.txt" +#include "free195.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX; } -void SUB_IDEMESSAGEBOX(qbs*_SUB_IDEMESSAGEBOX_STRING_TITLESTR,qbs*_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR){ +int32 FUNC_IDEMESSAGEBOX(qbs*_FUNC_IDEMESSAGEBOX_STRING_TITLESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_BUTTONS){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data182.txt" +#include "data196.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -163027,531 +180307,614 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,11388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15268,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,11389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15269,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11390,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15270,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11391,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,15271,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11392,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15272,"ide_methods.bas");}while(r); do{ -if (_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]&2){ +if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ -if (_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); }else{ -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4]= 1 ; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]=( 100 )-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4]+1; -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[6]=1; -if (_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]&4){ -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0]),0,_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]*680/8+1,1); -if (!_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0]) error(257); +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]) error(257); } -_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[2]|=1; +_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,11393,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15273,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11394,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15274,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEMESSAGEBOX_STRING1_SEP,func_chr( 0 )); +qbs_set(_FUNC_IDEMESSAGEBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11395,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15275,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES= 1 ; -if(!qbevent)break;evnt(25066,11399,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs_new_txt_len("\\n",2),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15279,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES= 1 ; +if(!qbevent)break;evnt(26307,15280,"ide_methods.bas");}while(r); do{ -if (_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ +if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); }else{ -if (_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ -error(10); +if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +if (!error_occurred) error(10); }else{ -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]= 1 ; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]=( 4 )-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]+1; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[6]=1; -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)malloc(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]*8); -if (!_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]) error(257); -_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]|=1; -tmp_long=_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]; -if (_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&4){ -while(tmp_long--) ((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]= 1 ; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]=( 8 )-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4]+1; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[6]=1; +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)malloc(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]*8); +if (!_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]) error(257); +_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]|=1; +tmp_long=_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]; +if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&4){ +while(tmp_long--) ((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); }else{ -while(tmp_long--) ((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); +while(tmp_long--) ((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } } -if(!qbevent)break;evnt(25066,11400,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15281,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_PREVSCAN= 1 ; -if(!qbevent)break;evnt(25066,11401,"ide_methods.bas");}while(r); -S_46112:; +*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN= 1 ; +if(!qbevent)break;evnt(26307,15282,"ide_methods.bas");}while(r); +S_51845:; do{ -if(qbevent){evnt(25066,11402,"ide_methods.bas");if(r)goto S_46112;} +if(qbevent){evnt(26307,15283,"ide_methods.bas");if(r)goto S_51845;} do{ -*_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN=func_instr(*_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ,_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR,func_chr( 10 ),1); +*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,func_chr( 10 ),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11403,"ide_methods.bas");}while(r); -S_46114:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN> 0 ))||new_error){ -if(qbevent){evnt(25066,11404,"ide_methods.bas");if(r)goto S_46114;} +if(!qbevent)break;evnt(26307,15284,"ide_methods.bas");}while(r); +S_51847:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN> 0 ))||new_error){ +if(qbevent){evnt(26307,15285,"ide_methods.bas");if(r)goto S_51847;} do{ -tmp_long=array_check((*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES)-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR,*_SUB_IDEMESSAGEBOX_LONG_PREVSCAN,*_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN-*_SUB_IDEMESSAGEBOX_LONG_PREVSCAN,1)); +tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN-*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15286,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES)-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +*_FUNC_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11406,"ide_methods.bas");}while(r); -S_46117:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_TW>*_SUB_IDEMESSAGEBOX_LONG_W))||new_error){ -if(qbevent){evnt(25066,11407,"ide_methods.bas");if(r)goto S_46117;} +if(!qbevent)break;evnt(26307,15287,"ide_methods.bas");}while(r); +S_51850:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ +if(qbevent){evnt(26307,15288,"ide_methods.bas");if(r)goto S_51850;} do{ -*_SUB_IDEMESSAGEBOX_LONG_W=*_SUB_IDEMESSAGEBOX_LONG_TW; -if(!qbevent)break;evnt(25066,11407,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; +if(!qbevent)break;evnt(26307,15288,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEMESSAGEBOX_LONG_PREVSCAN=*_SUB_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ; -if(!qbevent)break;evnt(25066,11408,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ; +if(!qbevent)break;evnt(26307,15289,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES=*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES+ 1 ; -if(!qbevent)break;evnt(25066,11409,"ide_methods.bas");}while(r); -S_46122:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES>func_ubound(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ -if(qbevent){evnt(25066,11410,"ide_methods.bas");if(r)goto S_46122;} +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES+ 1 ; +if(!qbevent)break;evnt(26307,15290,"ide_methods.bas");}while(r); +S_51855:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ +if(qbevent){evnt(26307,15291,"ide_methods.bas");if(r)goto S_51855;} do{ -goto dl_exit_5233; -if(!qbevent)break;evnt(25066,11410,"ide_methods.bas");}while(r); +goto dl_exit_5792; +if(!qbevent)break;evnt(26307,15291,"ide_methods.bas");}while(r); } }else{ do{ -tmp_long=array_check((*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES)-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR,*_SUB_IDEMESSAGEBOX_LONG_PREVSCAN,NULL,0)); +tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11412,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15293,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES)-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +*_FUNC_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11413,"ide_methods.bas");}while(r); -S_46128:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_TW>*_SUB_IDEMESSAGEBOX_LONG_W))||new_error){ -if(qbevent){evnt(25066,11414,"ide_methods.bas");if(r)goto S_46128;} +if(!qbevent)break;evnt(26307,15294,"ide_methods.bas");}while(r); +S_51861:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ +if(qbevent){evnt(26307,15295,"ide_methods.bas");if(r)goto S_51861;} do{ -*_SUB_IDEMESSAGEBOX_LONG_W=*_SUB_IDEMESSAGEBOX_LONG_TW; -if(!qbevent)break;evnt(25066,11414,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; +if(!qbevent)break;evnt(26307,15295,"ide_methods.bas");}while(r); } do{ -goto dl_exit_5233; -if(!qbevent)break;evnt(25066,11415,"ide_methods.bas");}while(r); +goto dl_exit_5792; +if(!qbevent)break;evnt(26307,15296,"ide_methods.bas");}while(r); } -dl_continue_5233:; +dl_continue_5792:; }while(1); -dl_exit_5233:; +dl_exit_5792:; +S_51867:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15300,"ide_methods.bas");if(r)goto S_51867;} do{ -*_SUB_IDEMESSAGEBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,11419,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMESSAGEBOX_LONG_W2=_SUB_IDEMESSAGEBOX_STRING_TITLESTR->len+ 4 ; +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11420,"ide_methods.bas");}while(r); -S_46136:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_W<*_SUB_IDEMESSAGEBOX_LONG_W2))||new_error){ -if(qbevent){evnt(25066,11421,"ide_methods.bas");if(r)goto S_46136;} -do{ -*_SUB_IDEMESSAGEBOX_LONG_W=*_SUB_IDEMESSAGEBOX_LONG_W2; -if(!qbevent)break;evnt(25066,11421,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15300,"ide_methods.bas");}while(r); } do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_IDEMESSAGEBOX_UDT_P)) + (0) ),_SUB_IDEMESSAGEBOX_LONG_W,&(pass5237= 3 +*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES),_SUB_IDEMESSAGEBOX_STRING_TITLESTR); +*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS= 1 ; +if(!qbevent)break;evnt(26307,15301,"ide_methods.bas");}while(r); +S_51871:; +fornext_value5796= 1 ; +fornext_finalvalue5796=_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len; +fornext_step5796= 1 ; +if (fornext_step5796<0) fornext_step_negative5796=1; else fornext_step_negative5796=0; +if (new_error) goto fornext_error5796; +goto fornext_entrylabel5796; +while(1){ +fornext_value5796=fornext_step5796+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5796: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5796; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11422,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMESSAGEBOX_LONG_I=*_SUB_IDEMESSAGEBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11424,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,11425,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+24))= 3 +*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES; -if(!qbevent)break;evnt(25066,11426,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,11427,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,11428,"ide_methods.bas");}while(r); -S_46145:; -fornext_value5239= 1 ; -fornext_finalvalue5239= 100 ; -fornext_step5239= 1 ; -if (fornext_step5239<0) fornext_step_negative5239=1; else fornext_step_negative5239=0; -if (new_error) goto fornext_error5239; -goto fornext_entrylabel5239; -while(1){ -fornext_value5239=fornext_step5239+(*_SUB_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5239: -*_SUB_IDEMESSAGEBOX_LONG_I=fornext_value5239; -if (fornext_step_negative5239){ -if (fornext_value5239fornext_finalvalue5239) break; +if (fornext_value5796>fornext_finalvalue5796) break; } -fornext_error5239:; -if(qbevent){evnt(25066,11432,"ide_methods.bas");if(r)goto S_46145;} +fornext_error5796:; +if(qbevent){evnt(26307,15302,"ide_methods.bas");if(r)goto S_51871;} +S_51872:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,*_FUNC_IDEMESSAGEBOX_LONG_I)== 59 )))||new_error){ +if(qbevent){evnt(26307,15303,"ide_methods.bas");if(r)goto S_51872;} do{ -memcpy(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_IDEMESSAGEBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,11432,"ide_methods.bas");}while(r); -fornext_continue_5238:; +*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS=*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS+ 1 ; +if(!qbevent)break;evnt(26307,15303,"ide_methods.bas");}while(r); } -fornext_exit_5238:; -S_46148:; +fornext_continue_5795:; +} +fornext_exit_5795:; do{ -if(qbevent){evnt(25066,11435,"ide_methods.bas");if(r)goto S_46148;} +*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN=(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len)+(*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS* 6 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15305,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDEMESSAGEBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,11439,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,15307,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11440,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_W2=_FUNC_IDEMESSAGEBOX_STRING_TITLESTR->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15308,"ide_methods.bas");}while(r); +S_51879:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_W2))||new_error){ +if(qbevent){evnt(26307,15309,"ide_methods.bas");if(r)goto S_51879;} do{ -*_SUB_IDEMESSAGEBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,11440,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_W2; +if(!qbevent)break;evnt(26307,15309,"ide_methods.bas");}while(r); +} +S_51882:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN))||new_error){ +if(qbevent){evnt(26307,15310,"ide_methods.bas");if(r)goto S_51882;} do{ -*_SUB_IDEMESSAGEBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,11440,"ide_methods.bas");}while(r); -S_46153:; -fornext_value5242= 1 ; -fornext_finalvalue5242= 100 ; -fornext_step5242= 1 ; -if (fornext_step5242<0) fornext_step_negative5242=1; else fornext_step_negative5242=0; -if (new_error) goto fornext_error5242; -goto fornext_entrylabel5242; +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN; +if(!qbevent)break;evnt(26307,15310,"ide_methods.bas");}while(r); +} +S_51885:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ +if(qbevent){evnt(26307,15311,"ide_methods.bas");if(r)goto S_51885;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W=*__LONG_IDEWX- 4 ; +if(!qbevent)break;evnt(26307,15311,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) ),_FUNC_IDEMESSAGEBOX_LONG_W,&(pass5800= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES),_FUNC_IDEMESSAGEBOX_STRING_TITLESTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15312,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_I=*_FUNC_IDEMESSAGEBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,15314,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,15315,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+24))= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; +if(!qbevent)break;evnt(26307,15316,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEMESSAGEBOX_STRING1_SEP)); +if(!qbevent)break;evnt(26307,15317,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,15318,"ide_methods.bas");}while(r); +S_51894:; +fornext_value5802= 1 ; +fornext_finalvalue5802= 100 ; +fornext_step5802= 1 ; +if (fornext_step5802<0) fornext_step_negative5802=1; else fornext_step_negative5802=0; +if (new_error) goto fornext_error5802; +goto fornext_entrylabel5802; while(1){ -fornext_value5242=fornext_step5242+(*_SUB_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5242: -*_SUB_IDEMESSAGEBOX_LONG_I=fornext_value5242; -if (fornext_step_negative5242){ -if (fornext_value5242fornext_finalvalue5242) break; +if (fornext_value5802>fornext_finalvalue5802) break; } -fornext_error5242:; -if(qbevent){evnt(25066,11441,"ide_methods.bas");if(r)goto S_46153;} -S_46154:; -if ((*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,11442,"ide_methods.bas");if(r)goto S_46154;} +fornext_error5802:; +if(qbevent){evnt(26307,15322,"ide_methods.bas");if(r)goto S_51894;} do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+60))=*_SUB_IDEMESSAGEBOX_LONG_FOCUS-*_SUB_IDEMESSAGEBOX_LONG_F; -if(!qbevent)break;evnt(25066,11445,"ide_methods.bas");}while(r); +memcpy(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,15322,"ide_methods.bas");}while(r); +fornext_continue_5801:; +} +fornext_exit_5801:; +S_51897:; do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,11446,"ide_methods.bas");}while(r); +if(qbevent){evnt(26307,15325,"ide_methods.bas");if(r)goto S_51897;} do{ -*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,11446,"ide_methods.bas");}while(r); +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,15329,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85) ),_SUB_IDEMESSAGEBOX_LONG_F); -if(!qbevent)break;evnt(25066,11447,"ide_methods.bas");}while(r); -S_46159:; -if ((*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,11448,"ide_methods.bas");if(r)goto S_46159;} +*_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,15330,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_CX=*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,11448,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,15330,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_CY=*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,11448,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,15330,"ide_methods.bas");}while(r); +S_51902:; +fornext_value5805= 1 ; +fornext_finalvalue5805= 100 ; +fornext_step5805= 1 ; +if (fornext_step5805<0) fornext_step_negative5805=1; else fornext_step_negative5805=0; +if (new_error) goto fornext_error5805; +goto fornext_entrylabel5805; +while(1){ +fornext_value5805=fornext_step5805+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5805: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5805; +if (fornext_step_negative5805){ +if (fornext_value5805fornext_finalvalue5805) break; +} +fornext_error5805:; +if(qbevent){evnt(26307,15331,"ide_methods.bas");if(r)goto S_51902;} +S_51903:; +if ((*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,15332,"ide_methods.bas");if(r)goto S_51903;} +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; +if(!qbevent)break;evnt(26307,15335,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,15336,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,15336,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEMESSAGEBOX_LONG_F); +if(!qbevent)break;evnt(26307,15337,"ide_methods.bas");}while(r); +S_51908:; +if ((*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,15338,"ide_methods.bas");if(r)goto S_51908;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,15338,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,15338,"ide_methods.bas");}while(r); } } -fornext_continue_5241:; +fornext_continue_5804:; } -fornext_exit_5241:; +fornext_exit_5804:; do{ -*_SUB_IDEMESSAGEBOX_LONG_LASTFOCUS=*_SUB_IDEMESSAGEBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,11451,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS=*_FUNC_IDEMESSAGEBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,15341,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,11455,"ide_methods.bas");}while(r); -S_46167:; -fornext_value5244= 1 ; -fornext_finalvalue5244=*_SUB_IDEMESSAGEBOX_LONG_MESSAGELINES; -fornext_step5244= 1 ; -if (fornext_step5244<0) fornext_step_negative5244=1; else fornext_step_negative5244=0; -if (new_error) goto fornext_error5244; -goto fornext_entrylabel5244; +if(!qbevent)break;evnt(26307,15345,"ide_methods.bas");}while(r); +S_51916:; +fornext_value5807= 1 ; +fornext_finalvalue5807=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; +fornext_step5807= 1 ; +if (fornext_step5807<0) fornext_step_negative5807=1; else fornext_step_negative5807=0; +if (new_error) goto fornext_error5807; +goto fornext_entrylabel5807; while(1){ -fornext_value5244=fornext_step5244+(*_SUB_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5244: -*_SUB_IDEMESSAGEBOX_LONG_I=fornext_value5244; -if (fornext_step_negative5244){ -if (fornext_value5244fornext_finalvalue5244) break; +if (fornext_value5807>fornext_finalvalue5807) break; } -fornext_error5244:; -if(qbevent){evnt(25066,11456,"ide_methods.bas");if(r)goto S_46167;} +fornext_error5807:; +if(qbevent){evnt(26307,15346,"ide_methods.bas");if(r)goto S_51916;} +S_51917:; +if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(8))- 2 ))))||new_error){ +if(qbevent){evnt(26307,15347,"ide_methods.bas");if(r)goto S_51917;} do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDEMESSAGEBOX_UDT_P)+(4))+ 1 +*_SUB_IDEMESSAGEBOX_LONG_I,*(int32*)(((char*)_SUB_IDEMESSAGEBOX_UDT_P)+(0))+((*_SUB_IDEMESSAGEBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,NULL,NULL,NULL,3); +tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11457,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,((qbs*)(((uint64*)(_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))); -if (new_error) goto skip5246; -makefit(tqbs); -qbs_print(tqbs,0); -skip5246: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11458,"ide_methods.bas");}while(r); -fornext_continue_5243:; +if(!qbevent)break;evnt(26307,15348,"ide_methods.bas");}while(r); } -fornext_exit_5243:; +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0))+((*_FUNC_IDEMESSAGEBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEMESSAGEBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15350,"ide_methods.bas");}while(r); +fornext_continue_5806:; +} +fornext_exit_5806:; do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,11463,"ide_methods.bas");}while(r); -S_46172:; -if ((*_SUB_IDEMESSAGEBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,11464,"ide_methods.bas");if(r)goto S_46172;} +if(!qbevent)break;evnt(26307,15355,"ide_methods.bas");}while(r); +S_51923:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,15356,"ide_methods.bas");if(r)goto S_51923;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11464,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15356,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_SUB_IDEMESSAGEBOX_LONG_CY,*_SUB_IDEMESSAGEBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,11464,"ide_methods.bas");}while(r); +qbg_sub_locate(*_FUNC_IDEMESSAGEBOX_LONG_CY,*_FUNC_IDEMESSAGEBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,15356,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11464,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15356,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,11467,"ide_methods.bas");}while(r); -S_46178:; +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,15359,"ide_methods.bas");}while(r); +S_51929:; do{ -if(qbevent){evnt(25066,11468,"ide_methods.bas");if(r)goto S_46178;} +if(qbevent){evnt(26307,15360,"ide_methods.bas");if(r)goto S_51929;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,11469,"ide_methods.bas");}while(r); -S_46180:; +if(!qbevent)break;evnt(26307,15361,"ide_methods.bas");}while(r); +S_51931:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,11470,"ide_methods.bas");if(r)goto S_46180;} +if(qbevent){evnt(26307,15362,"ide_methods.bas");if(r)goto S_51931;} do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11470,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15362,"ide_methods.bas");}while(r); } -S_46183:; +S_51934:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,11471,"ide_methods.bas");if(r)goto S_46183;} +if(qbevent){evnt(26307,15363,"ide_methods.bas");if(r)goto S_51934;} do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11471,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15363,"ide_methods.bas");}while(r); } -S_46186:; +S_51937:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,11472,"ide_methods.bas");if(r)goto S_46186;} +if(qbevent){evnt(26307,15364,"ide_methods.bas");if(r)goto S_51937;} do{ -*_SUB_IDEMESSAGEBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,11472,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,15364,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11472,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15364,"ide_methods.bas");}while(r); } -S_46190:; +S_51941:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,11473,"ide_methods.bas");if(r)goto S_46190;} +if(qbevent){evnt(26307,15365,"ide_methods.bas");if(r)goto S_51941;} do{ -*_SUB_IDEMESSAGEBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,11473,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,15365,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11473,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15365,"ide_methods.bas");}while(r); } -S_46194:; +S_51945:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,11474,"ide_methods.bas");if(r)goto S_46194;} +if(qbevent){evnt(26307,15366,"ide_methods.bas");if(r)goto S_51945;} do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11474,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15366,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEMESSAGEBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,11475,"ide_methods.bas");}while(r); -S_46198:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_ALT!=*_SUB_IDEMESSAGEBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,11475,"ide_methods.bas");if(r)goto S_46198;} +*_FUNC_IDEMESSAGEBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,15367,"ide_methods.bas");}while(r); +S_51949:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_ALT!=*_FUNC_IDEMESSAGEBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,15367,"ide_methods.bas");if(r)goto S_51949;} do{ -*_SUB_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11475,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15367,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEMESSAGEBOX_LONG_OLDALT=*_SUB_IDEMESSAGEBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,11476,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_OLDALT=*_FUNC_IDEMESSAGEBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,15368,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,11477,"ide_methods.bas");}while(r); -S_46203:; -dl_continue_5247:; -}while((!(*_SUB_IDEMESSAGEBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5247:; -if(qbevent){evnt(25066,11478,"ide_methods.bas");if(r)goto S_46203;} -S_46204:; -if ((*_SUB_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11479,"ide_methods.bas");if(r)goto S_46204;} +if(!qbevent)break;evnt(26307,15369,"ide_methods.bas");}while(r); +S_51954:; +dl_continue_5810:; +}while((!(*_FUNC_IDEMESSAGEBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5810:; +if(qbevent){evnt(26307,15370,"ide_methods.bas");if(r)goto S_51954;} +S_51955:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,15371,"ide_methods.bas");if(r)goto S_51955;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,11479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15371,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,11479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15371,"ide_methods.bas");}while(r); } do{ -qbs_set(_SUB_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11481,"ide_methods.bas");}while(r); -S_46210:; -if ((*_SUB_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11482,"ide_methods.bas");if(r)goto S_46210;} -S_46211:; +if(!qbevent)break;evnt(26307,15373,"ide_methods.bas");}while(r); +S_51961:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,15374,"ide_methods.bas");if(r)goto S_51961;} +S_51962:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,11483,"ide_methods.bas");if(r)goto S_46211;} +if(qbevent){evnt(26307,15375,"ide_methods.bas");if(r)goto S_51962;} do{ -*_SUB_IDEMESSAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +*_FUNC_IDEMESSAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11484,"ide_methods.bas");}while(r); -S_46213:; -if (((-(*_SUB_IDEMESSAGEBOX_LONG_K>= 65 ))&(-(*_SUB_IDEMESSAGEBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,11485,"ide_methods.bas");if(r)goto S_46213;} +if(!qbevent)break;evnt(26307,15376,"ide_methods.bas");}while(r); +S_51964:; +if (((-(*_FUNC_IDEMESSAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEMESSAGEBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,15377,"ide_methods.bas");if(r)goto S_51964;} do{ -qbs_set(_SUB_IDEMESSAGEBOX_STRING_ALTLETTER,func_chr(*_SUB_IDEMESSAGEBOX_LONG_K)); +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEMESSAGEBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15377,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15380,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,11488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15380,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15380,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,11492,"ide_methods.bas");}while(r); -S_46222:; +*_FUNC_IDEMESSAGEBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,15384,"ide_methods.bas");}while(r); +S_51973:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))&(qbs_lessorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ +if(qbevent){evnt(26307,15386,"ide_methods.bas");if(r)goto S_51973;} +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15386,"ide_methods.bas");}while(r); +} +S_51976:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11493,"ide_methods.bas");if(r)goto S_46222;} +if(qbevent){evnt(26307,15388,"ide_methods.bas");if(r)goto S_51976;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11493,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15388,"ide_methods.bas");}while(r); } -S_46225:; +S_51979:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,11494,"ide_methods.bas");if(r)goto S_46225;} +if(qbevent){evnt(26307,15389,"ide_methods.bas");if(r)goto S_51979;} do{ -*_SUB_IDEMESSAGEBOX_LONG_FOCUS=*_SUB_IDEMESSAGEBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,11494,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,15389,"ide_methods.bas");}while(r); } -S_46228:; +S_51982:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,11495,"ide_methods.bas");if(r)goto S_46228;} +if(qbevent){evnt(26307,15390,"ide_methods.bas");if(r)goto S_51982;} do{ -*_SUB_IDEMESSAGEBOX_LONG_FOCUS=*_SUB_IDEMESSAGEBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,11495,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,15390,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11495,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15390,"ide_methods.bas");}while(r); } -S_46232:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,11496,"ide_methods.bas");if(r)goto S_46232;} +S_51986:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,15391,"ide_methods.bas");if(r)goto S_51986;} do{ -*_SUB_IDEMESSAGEBOX_LONG_FOCUS=*_SUB_IDEMESSAGEBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,11496,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,15391,"ide_methods.bas");}while(r); } -S_46235:; -if ((-(*_SUB_IDEMESSAGEBOX_LONG_FOCUS>*_SUB_IDEMESSAGEBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,11497,"ide_methods.bas");if(r)goto S_46235;} +S_51989:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS>*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,15392,"ide_methods.bas");if(r)goto S_51989;} do{ -*_SUB_IDEMESSAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11497,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,15392,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEMESSAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11498,"ide_methods.bas");}while(r); -S_46239:; -fornext_value5250= 1 ; -fornext_finalvalue5250= 100 ; -fornext_step5250= 1 ; -if (fornext_step5250<0) fornext_step_negative5250=1; else fornext_step_negative5250=0; -if (new_error) goto fornext_error5250; -goto fornext_entrylabel5250; +*_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,15393,"ide_methods.bas");}while(r); +S_51993:; +fornext_value5813= 1 ; +fornext_finalvalue5813= 100 ; +fornext_step5813= 1 ; +if (fornext_step5813<0) fornext_step_negative5813=1; else fornext_step_negative5813=0; +if (new_error) goto fornext_error5813; +goto fornext_entrylabel5813; while(1){ -fornext_value5250=fornext_step5250+(*_SUB_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5250: -*_SUB_IDEMESSAGEBOX_LONG_I=fornext_value5250; -if (fornext_step_negative5250){ -if (fornext_value5250fornext_finalvalue5250) break; +if (fornext_value5813>fornext_finalvalue5813) break; } -fornext_error5250:; -if(qbevent){evnt(25066,11499,"ide_methods.bas");if(r)goto S_46239;} +fornext_error5813:; +if(qbevent){evnt(26307,15394,"ide_methods.bas");if(r)goto S_51993;} do{ -*_SUB_IDEMESSAGEBOX_LONG_T=*(int32*)(((char*)_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,11500,"ide_methods.bas");}while(r); -S_46241:; -if ((*_SUB_IDEMESSAGEBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,11501,"ide_methods.bas");if(r)goto S_46241;} +*_FUNC_IDEMESSAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,15395,"ide_methods.bas");}while(r); +S_51995:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,15396,"ide_methods.bas");if(r)goto S_51995;} do{ -*_SUB_IDEMESSAGEBOX_LONG_FOCUSOFFSET=*_SUB_IDEMESSAGEBOX_LONG_FOCUS-*_SUB_IDEMESSAGEBOX_LONG_F; -if(!qbevent)break;evnt(25066,11502,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; +if(!qbevent)break;evnt(26307,15397,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEMESSAGEBOX_LONG_I)-_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[4],_SUB_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*85) ),_SUB_IDEMESSAGEBOX_LONG_FOCUS,_SUB_IDEMESSAGEBOX_LONG_F,_SUB_IDEMESSAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDEMESSAGEBOX_STRING_ALTLETTER,__LONG_MB,_SUB_IDEMESSAGEBOX_LONG_MOUSEDOWN,_SUB_IDEMESSAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDEMESSAGEBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEMESSAGEBOX_LONG_FOCUS,_FUNC_IDEMESSAGEBOX_LONG_F,_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN,_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEMESSAGEBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15398,"ide_methods.bas");}while(r); } -fornext_continue_5249:; +fornext_continue_5812:; } -fornext_exit_5249:; -S_46246:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_SUB_IDEMESSAGEBOX_LONG_FOCUS== 1 ))&(-(*_SUB_IDEMESSAGEBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11509,"ide_methods.bas");if(r)goto S_46246;} +fornext_exit_5812:; +S_52000:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26307,15404,"ide_methods.bas");if(r)goto S_52000;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,11509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15404,"ide_methods.bas");}while(r); +} +S_52003:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEMESSAGEBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26307,15406,"ide_methods.bas");if(r)goto S_52003;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26307,15407,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,15408,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,15409,"ide_methods.bas");}while(r); } do{ -*_SUB_IDEMESSAGEBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,11512,"ide_methods.bas");}while(r); +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,15413,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMESSAGEBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,11513,"ide_methods.bas");}while(r); -dl_continue_5240:; +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,15414,"ide_methods.bas");}while(r); +dl_continue_5803:; }while(1); -dl_exit_5240:; +dl_exit_5803:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free182.txt" +#include "free196.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX; } qbs* FUNC_IDEYESNOBOX(qbs*_FUNC_IDEYESNOBOX_STRING_TITLESTR,qbs*_FUNC_IDEYESNOBOX_STRING_MESSAGESTR){ qbs *tqbs; @@ -163560,474 +180923,672 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data183.txt" +#include "data197.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,11521,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,11522,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,11523,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11524,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11525,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,11526,"ide_methods.bas");}while(r); -do{ - -if (_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4]+1; -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[6]=1; -if (_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]*680/8+1); -}else{ -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0]) error(257); -} -_FUNC_IDEYESNOBOX_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,11527,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,11528,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING1_SEP,func_chr( 0 )); +*_FUNC_IDEYESNOBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEYESNOBOX_STRING_TITLESTR,_FUNC_IDEYESNOBOX_STRING_MESSAGESTR,qbs_new_txt_len("#Yes;#No",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11529,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,11533,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_W=_FUNC_IDEYESNOBOX_STRING_MESSAGESTR->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11534,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_W2=_FUNC_IDEYESNOBOX_STRING_TITLESTR->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11535,"ide_methods.bas");}while(r); -S_46264:; -if ((-(*_FUNC_IDEYESNOBOX_LONG_W<*_FUNC_IDEYESNOBOX_LONG_W2))||new_error){ -if(qbevent){evnt(25066,11536,"ide_methods.bas");if(r)goto S_46264;} -do{ -*_FUNC_IDEYESNOBOX_LONG_W=*_FUNC_IDEYESNOBOX_LONG_W2; -if(!qbevent)break;evnt(25066,11536,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEYESNOBOX_UDT_P)) + (0) ),_FUNC_IDEYESNOBOX_LONG_W,&(pass5255= 4 ),_FUNC_IDEYESNOBOX_STRING_TITLESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11537,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_I=*_FUNC_IDEYESNOBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11539,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,11540,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,11541,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Yes",4),_FUNC_IDEYESNOBOX_STRING1_SEP),qbs_new_txt_len("#No",3))); -if(!qbevent)break;evnt(25066,11542,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,11543,"ide_methods.bas");}while(r); -S_46273:; -fornext_value5257= 1 ; -fornext_finalvalue5257= 100 ; -fornext_step5257= 1 ; -if (fornext_step5257<0) fornext_step_negative5257=1; else fornext_step_negative5257=0; -if (new_error) goto fornext_error5257; -goto fornext_entrylabel5257; -while(1){ -fornext_value5257=fornext_step5257+(*_FUNC_IDEYESNOBOX_LONG_I); -fornext_entrylabel5257: -*_FUNC_IDEYESNOBOX_LONG_I=fornext_value5257; -if (fornext_step_negative5257){ -if (fornext_value5257fornext_finalvalue5257) break; -} -fornext_error5257:; -if(qbevent){evnt(25066,11547,"ide_methods.bas");if(r)goto S_46273;} -do{ -memcpy(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEYESNOBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,11547,"ide_methods.bas");}while(r); -fornext_continue_5256:; -} -fornext_exit_5256:; -S_46276:; -do{ -if(qbevent){evnt(25066,11550,"ide_methods.bas");if(r)goto S_46276;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEYESNOBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,11553,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11554,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,11554,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,11554,"ide_methods.bas");}while(r); -S_46281:; -fornext_value5260= 1 ; -fornext_finalvalue5260= 100 ; -fornext_step5260= 1 ; -if (fornext_step5260<0) fornext_step_negative5260=1; else fornext_step_negative5260=0; -if (new_error) goto fornext_error5260; -goto fornext_entrylabel5260; -while(1){ -fornext_value5260=fornext_step5260+(*_FUNC_IDEYESNOBOX_LONG_I); -fornext_entrylabel5260: -*_FUNC_IDEYESNOBOX_LONG_I=fornext_value5260; -if (fornext_step_negative5260){ -if (fornext_value5260fornext_finalvalue5260) break; -} -fornext_error5260:; -if(qbevent){evnt(25066,11555,"ide_methods.bas");if(r)goto S_46281;} -S_46282:; -if ((*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,11556,"ide_methods.bas");if(r)goto S_46282;} -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEYESNOBOX_LONG_FOCUS-*_FUNC_IDEYESNOBOX_LONG_F; -if(!qbevent)break;evnt(25066,11558,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,11559,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,11559,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEYESNOBOX_LONG_F); -if(!qbevent)break;evnt(25066,11560,"ide_methods.bas");}while(r); -S_46287:; -if ((*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,11561,"ide_methods.bas");if(r)goto S_46287;} -do{ -*_FUNC_IDEYESNOBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,11561,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,11561,"ide_methods.bas");}while(r); -} -} -fornext_continue_5259:; -} -fornext_exit_5259:; -do{ -*_FUNC_IDEYESNOBOX_LONG_LASTFOCUS=*_FUNC_IDEYESNOBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,11564,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,11568,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEYESNOBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDEYESNOBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,11568,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDEYESNOBOX_STRING_MESSAGESTR); -if (new_error) goto skip5261; -makefit(tqbs); -qbs_print(tqbs,0); -skip5261: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11568,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,11572,"ide_methods.bas");}while(r); -S_46298:; -if ((*_FUNC_IDEYESNOBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,11574,"ide_methods.bas");if(r)goto S_46298;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11574,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEYESNOBOX_LONG_CY,*_FUNC_IDEYESNOBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,11574,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11574,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,11577,"ide_methods.bas");}while(r); -S_46304:; -do{ -if(qbevent){evnt(25066,11578,"ide_methods.bas");if(r)goto S_46304;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,11579,"ide_methods.bas");}while(r); -S_46306:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,11580,"ide_methods.bas");if(r)goto S_46306;} -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11580,"ide_methods.bas");}while(r); -} -S_46309:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,11581,"ide_methods.bas");if(r)goto S_46309;} -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11581,"ide_methods.bas");}while(r); -} -S_46312:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,11582,"ide_methods.bas");if(r)goto S_46312;} -do{ -*_FUNC_IDEYESNOBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,11582,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11582,"ide_methods.bas");}while(r); -} -S_46316:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,11583,"ide_methods.bas");if(r)goto S_46316;} -do{ -*_FUNC_IDEYESNOBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,11583,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11583,"ide_methods.bas");}while(r); -} -S_46320:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,11584,"ide_methods.bas");if(r)goto S_46320;} -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11584,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEYESNOBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,11585,"ide_methods.bas");}while(r); -S_46324:; -if ((-(*_FUNC_IDEYESNOBOX_LONG_ALT!=*_FUNC_IDEYESNOBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,11585,"ide_methods.bas");if(r)goto S_46324;} -do{ -*_FUNC_IDEYESNOBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11585,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEYESNOBOX_LONG_OLDALT=*_FUNC_IDEYESNOBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,11586,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,11587,"ide_methods.bas");}while(r); -S_46329:; -dl_continue_5262:; -}while((!(*_FUNC_IDEYESNOBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5262:; -if(qbevent){evnt(25066,11588,"ide_methods.bas");if(r)goto S_46329;} -S_46330:; -if ((*_FUNC_IDEYESNOBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11589,"ide_methods.bas");if(r)goto S_46330;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,11589,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,11589,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11591,"ide_methods.bas");}while(r); -S_46336:; -if ((*_FUNC_IDEYESNOBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11592,"ide_methods.bas");if(r)goto S_46336;} -S_46337:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,11593,"ide_methods.bas");if(r)goto S_46337;} -do{ -*_FUNC_IDEYESNOBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11594,"ide_methods.bas");}while(r); -S_46339:; -if (((-(*_FUNC_IDEYESNOBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEYESNOBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,11595,"ide_methods.bas");if(r)goto S_46339;} -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEYESNOBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11595,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11598,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,11598,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11598,"ide_methods.bas");}while(r); -S_46347:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,11601,"ide_methods.bas");if(r)goto S_46347;} -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_ALTLETTER,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11601,"ide_methods.bas");}while(r); -} -S_46350:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(25066,11602,"ide_methods.bas");if(r)goto S_46350;} -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_ALTLETTER,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11602,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEYESNOBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,11605,"ide_methods.bas");}while(r); -S_46354:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11606,"ide_methods.bas");if(r)goto S_46354;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11606,"ide_methods.bas");}while(r); -} -S_46357:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,11607,"ide_methods.bas");if(r)goto S_46357;} -do{ -*_FUNC_IDEYESNOBOX_LONG_FOCUS=*_FUNC_IDEYESNOBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,11607,"ide_methods.bas");}while(r); -} -S_46360:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,11608,"ide_methods.bas");if(r)goto S_46360;} -do{ -*_FUNC_IDEYESNOBOX_LONG_FOCUS=*_FUNC_IDEYESNOBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,11608,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11608,"ide_methods.bas");}while(r); -} -S_46364:; -if ((-(*_FUNC_IDEYESNOBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,11609,"ide_methods.bas");if(r)goto S_46364;} -do{ -*_FUNC_IDEYESNOBOX_LONG_FOCUS=*_FUNC_IDEYESNOBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,11609,"ide_methods.bas");}while(r); -} -S_46367:; -if ((-(*_FUNC_IDEYESNOBOX_LONG_FOCUS>*_FUNC_IDEYESNOBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,11610,"ide_methods.bas");if(r)goto S_46367;} -do{ -*_FUNC_IDEYESNOBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11610,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEYESNOBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11611,"ide_methods.bas");}while(r); -S_46371:; -fornext_value5265= 1 ; -fornext_finalvalue5265= 100 ; -fornext_step5265= 1 ; -if (fornext_step5265<0) fornext_step_negative5265=1; else fornext_step_negative5265=0; -if (new_error) goto fornext_error5265; -goto fornext_entrylabel5265; -while(1){ -fornext_value5265=fornext_step5265+(*_FUNC_IDEYESNOBOX_LONG_I); -fornext_entrylabel5265: -*_FUNC_IDEYESNOBOX_LONG_I=fornext_value5265; -if (fornext_step_negative5265){ -if (fornext_value5265fornext_finalvalue5265) break; -} -fornext_error5265:; -if(qbevent){evnt(25066,11612,"ide_methods.bas");if(r)goto S_46371;} -do{ -*_FUNC_IDEYESNOBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,11613,"ide_methods.bas");}while(r); -S_46373:; -if ((*_FUNC_IDEYESNOBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,11614,"ide_methods.bas");if(r)goto S_46373;} -do{ -*_FUNC_IDEYESNOBOX_LONG_FOCUSOFFSET=*_FUNC_IDEYESNOBOX_LONG_FOCUS-*_FUNC_IDEYESNOBOX_LONG_F; -if(!qbevent)break;evnt(25066,11615,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEYESNOBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEYESNOBOX_LONG_I)-_FUNC_IDEYESNOBOX_ARRAY_UDT_O[4],_FUNC_IDEYESNOBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEYESNOBOX_LONG_FOCUS,_FUNC_IDEYESNOBOX_LONG_F,_FUNC_IDEYESNOBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEYESNOBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEYESNOBOX_LONG_MOUSEDOWN,_FUNC_IDEYESNOBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEYESNOBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11616,"ide_methods.bas");}while(r); -} -fornext_continue_5264:; -} -fornext_exit_5264:; -S_46378:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,11621,"ide_methods.bas");if(r)goto S_46378;} -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11622,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,11623,"ide_methods.bas");}while(r); -} -S_46382:; -if ((*_FUNC_IDEYESNOBOX_LONG_INFO)||new_error){ -if(qbevent){evnt(25066,11626,"ide_methods.bas");if(r)goto S_46382;} -S_46383:; -if ((-(*_FUNC_IDEYESNOBOX_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(25066,11627,"ide_methods.bas");if(r)goto S_46383;} +if(!qbevent)break;evnt(26307,15421,"ide_methods.bas");}while(r); +S_52012:; +if ((-(*_FUNC_IDEYESNOBOX_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26307,15422,"ide_methods.bas");if(r)goto S_52012;} do{ qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11627,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15422,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("N",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11627,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15422,"ide_methods.bas");}while(r); } -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,11628,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEYESNOBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,11632,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEYESNOBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,11633,"ide_methods.bas");}while(r); -dl_continue_5258:; -}while(1); -dl_exit_5258:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free183.txt" +#include "free197.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX);return _FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX; } +qbs* FUNC_IDEACTIVITYBOX(qbs*_FUNC_IDEACTIVITYBOX_STRING_ACTION,qbs*_FUNC_IDEACTIVITYBOX_STRING_TITLESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_BUTTONS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data198.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_52017:; +qbs_set(sc_5820,qbs_lcase(_FUNC_IDEACTIVITYBOX_STRING_ACTION)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26307,15577,"ide_methods.bas");if(r)goto S_52017;} +S_52018:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5820,qbs_new_txt_len("setup",5))))||new_error){ +if(qbevent){evnt(26307,15578,"ide_methods.bas");if(r)goto S_52018;} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,15580,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,15581,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,15582,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,15583,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,15584,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O)[8])->id=(++mem_lock_id); +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])); +} +} +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]|=1; +} +if(!qbevent)break;evnt(26307,15585,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,15586,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15587,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,FUNC_STRREPLACE(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs_new_txt_len("\\n",2),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15591,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES= 1 ; +if(!qbevent)break;evnt(26307,15592,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE)[8])->id=(++mem_lock_id); +if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +tmp_long=_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]); +free((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0])); +} +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4]= 1 ; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]=( 8 )-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4]+1; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[6]=1; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)malloc(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]*8); +if (!_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]) error(257); +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]|=1; +tmp_long=_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]; +if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&4){ +while(tmp_long--) ((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,15593,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN= 1 ; +if(!qbevent)break;evnt(26307,15594,"ide_methods.bas");}while(r); +S_52031:; +do{ +if(qbevent){evnt(26307,15595,"ide_methods.bas");if(r)goto S_52031;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,func_chr( 10 ),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15596,"ide_methods.bas");}while(r); +S_52033:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN> 0 ))||new_error){ +if(qbevent){evnt(26307,15597,"ide_methods.bas");if(r)goto S_52033;} +do{ +tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN-*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15598,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15599,"ide_methods.bas");}while(r); +S_52036:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_TW>*_FUNC_IDEACTIVITYBOX_LONG_W))||new_error){ +if(qbevent){evnt(26307,15600,"ide_methods.bas");if(r)goto S_52036;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_TW; +if(!qbevent)break;evnt(26307,15600,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN+ 1 ; +if(!qbevent)break;evnt(26307,15601,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES+ 1 ; +if(!qbevent)break;evnt(26307,15602,"ide_methods.bas");}while(r); +S_52041:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ +if(qbevent){evnt(26307,15603,"ide_methods.bas");if(r)goto S_52041;} +do{ +goto dl_exit_5821; +if(!qbevent)break;evnt(26307,15603,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15605,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15606,"ide_methods.bas");}while(r); +S_52047:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_TW>*_FUNC_IDEACTIVITYBOX_LONG_W))||new_error){ +if(qbevent){evnt(26307,15607,"ide_methods.bas");if(r)goto S_52047;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_TW; +if(!qbevent)break;evnt(26307,15607,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_5821; +if(!qbevent)break;evnt(26307,15608,"ide_methods.bas");}while(r); +} +dl_continue_5821:; +}while(1); +dl_exit_5821:; +S_52053:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15612,"ide_methods.bas");if(r)goto S_52053;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15612,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS= 1 ; +if(!qbevent)break;evnt(26307,15613,"ide_methods.bas");}while(r); +S_52057:; +fornext_value5825= 1 ; +fornext_finalvalue5825=_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->len; +fornext_step5825= 1 ; +if (fornext_step5825<0) fornext_step_negative5825=1; else fornext_step_negative5825=0; +if (new_error) goto fornext_error5825; +goto fornext_entrylabel5825; +while(1){ +fornext_value5825=fornext_step5825+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5825: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5825; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5825){ +if (fornext_value5825fornext_finalvalue5825) break; +} +fornext_error5825:; +if(qbevent){evnt(26307,15614,"ide_methods.bas");if(r)goto S_52057;} +S_52058:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,*_FUNC_IDEACTIVITYBOX_LONG_I)== 59 )))||new_error){ +if(qbevent){evnt(26307,15615,"ide_methods.bas");if(r)goto S_52058;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS+ 1 ; +if(!qbevent)break;evnt(26307,15615,"ide_methods.bas");}while(r); +} +fornext_continue_5824:; +} +fornext_exit_5824:; +do{ +*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->len)+(*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS* 6 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15617,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,15619,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W2=_FUNC_IDEACTIVITYBOX_STRING_TITLESTR->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15620,"ide_methods.bas");}while(r); +S_52065:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W<*_FUNC_IDEACTIVITYBOX_LONG_W2))||new_error){ +if(qbevent){evnt(26307,15621,"ide_methods.bas");if(r)goto S_52065;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_W2; +if(!qbevent)break;evnt(26307,15621,"ide_methods.bas");}while(r); +} +S_52068:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W<*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN))||new_error){ +if(qbevent){evnt(26307,15622,"ide_methods.bas");if(r)goto S_52068;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN; +if(!qbevent)break;evnt(26307,15622,"ide_methods.bas");}while(r); +} +S_52071:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ +if(qbevent){evnt(26307,15623,"ide_methods.bas");if(r)goto S_52071;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*__LONG_IDEWX- 4 ; +if(!qbevent)break;evnt(26307,15623,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_UDT_P)) + (0) ),_FUNC_IDEACTIVITYBOX_LONG_W,&(pass5829= 3 +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES),_FUNC_IDEACTIVITYBOX_STRING_TITLESTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15624,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_I=*_FUNC_IDEACTIVITYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,15626,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,15627,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+24))= 3 +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES; +if(!qbevent)break;evnt(26307,15628,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEACTIVITYBOX_STRING1_SEP)); +if(!qbevent)break;evnt(26307,15629,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,15630,"ide_methods.bas");}while(r); +S_52080:; +fornext_value5831= 1 ; +fornext_finalvalue5831= 100 ; +fornext_step5831= 1 ; +if (fornext_step5831<0) fornext_step_negative5831=1; else fornext_step_negative5831=0; +if (new_error) goto fornext_error5831; +goto fornext_entrylabel5831; +while(1){ +fornext_value5831=fornext_step5831+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5831: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5831; +if (fornext_step_negative5831){ +if (fornext_value5831fornext_finalvalue5831) break; +} +fornext_error5831:; +if(qbevent){evnt(26307,15634,"ide_methods.bas");if(r)goto S_52080;} +do{ +memcpy(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,15634,"ide_methods.bas");}while(r); +fornext_continue_5830:; +} +fornext_exit_5830:; +sc_ec_338_end:; +goto sc_5820_end; +} +S_52083:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5820,qbs_new_txt_len("update",6))))||new_error){ +if(qbevent){evnt(26307,15636,"ide_methods.bas");if(r)goto S_52083;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,15638,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,15639,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,15639,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,15639,"ide_methods.bas");}while(r); +S_52088:; +fornext_value5833= 1 ; +fornext_finalvalue5833= 100 ; +fornext_step5833= 1 ; +if (fornext_step5833<0) fornext_step_negative5833=1; else fornext_step_negative5833=0; +if (new_error) goto fornext_error5833; +goto fornext_entrylabel5833; +while(1){ +fornext_value5833=fornext_step5833+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5833: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5833; +if (fornext_step_negative5833){ +if (fornext_value5833fornext_finalvalue5833) break; +} +fornext_error5833:; +if(qbevent){evnt(26307,15640,"ide_methods.bas");if(r)goto S_52088;} +S_52089:; +if ((*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,15641,"ide_methods.bas");if(r)goto S_52089;} +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS-*_FUNC_IDEACTIVITYBOX_LONG_F; +if(!qbevent)break;evnt(26307,15644,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,15645,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,15645,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEACTIVITYBOX_LONG_F); +if(!qbevent)break;evnt(26307,15646,"ide_methods.bas");}while(r); +S_52094:; +if ((*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,15647,"ide_methods.bas");if(r)goto S_52094;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,15647,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,15647,"ide_methods.bas");}while(r); +} +} +fornext_continue_5832:; +} +fornext_exit_5832:; +do{ +*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=*_FUNC_IDEACTIVITYBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,15650,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,15654,"ide_methods.bas");}while(r); +S_52102:; +fornext_value5835= 1 ; +fornext_finalvalue5835=*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES; +fornext_step5835= 1 ; +if (fornext_step5835<0) fornext_step_negative5835=1; else fornext_step_negative5835=0; +if (new_error) goto fornext_error5835; +goto fornext_entrylabel5835; +while(1){ +fornext_value5835=fornext_step5835+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5835: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5835; +if (fornext_step_negative5835){ +if (fornext_value5835fornext_finalvalue5835) break; +} +fornext_error5835:; +if(qbevent){evnt(26307,15655,"ide_methods.bas");if(r)goto S_52102;} +S_52103:; +if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(8))- 2 ))))||new_error){ +if(qbevent){evnt(26307,15656,"ide_methods.bas");if(r)goto S_52103;} +do{ +tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15657,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(0))+((*_FUNC_IDEACTIVITYBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEACTIVITYBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15659,"ide_methods.bas");}while(r); +fornext_continue_5834:; +} +fornext_exit_5834:; +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,15664,"ide_methods.bas");}while(r); +S_52109:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,15665,"ide_methods.bas");if(r)goto S_52109;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,15665,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEACTIVITYBOX_LONG_CY,*_FUNC_IDEACTIVITYBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,15665,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,15665,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,15668,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,15669,"ide_methods.bas");}while(r); +S_52116:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,15670,"ide_methods.bas");if(r)goto S_52116;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15670,"ide_methods.bas");}while(r); +} +S_52119:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,15671,"ide_methods.bas");if(r)goto S_52119;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15671,"ide_methods.bas");}while(r); +} +S_52122:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,15672,"ide_methods.bas");if(r)goto S_52122;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,15672,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15672,"ide_methods.bas");}while(r); +} +S_52126:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,15673,"ide_methods.bas");if(r)goto S_52126;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,15673,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15673,"ide_methods.bas");}while(r); +} +S_52130:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,15674,"ide_methods.bas");if(r)goto S_52130;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15674,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,15675,"ide_methods.bas");}while(r); +S_52134:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_ALT!=*_FUNC_IDEACTIVITYBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,15675,"ide_methods.bas");if(r)goto S_52134;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,15675,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_OLDALT=*_FUNC_IDEACTIVITYBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,15676,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,15677,"ide_methods.bas");}while(r); +S_52139:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_CHANGE)||new_error){ +if(qbevent){evnt(26307,15679,"ide_methods.bas");if(r)goto S_52139;} +S_52140:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,15680,"ide_methods.bas");if(r)goto S_52140;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,15680,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,15680,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15682,"ide_methods.bas");}while(r); +S_52146:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,15683,"ide_methods.bas");if(r)goto S_52146;} +S_52147:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,15684,"ide_methods.bas");if(r)goto S_52147;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15685,"ide_methods.bas");}while(r); +S_52149:; +if (((-(*_FUNC_IDEACTIVITYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEACTIVITYBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,15686,"ide_methods.bas");if(r)goto S_52149;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEACTIVITYBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15686,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,15689,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,15689,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,15689,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,15693,"ide_methods.bas");}while(r); +S_52158:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))&(qbs_lessorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ +if(qbevent){evnt(26307,15695,"ide_methods.bas");if(r)goto S_52158;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15695,"ide_methods.bas");}while(r); +} +S_52161:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,15697,"ide_methods.bas");if(r)goto S_52161;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15697,"ide_methods.bas");}while(r); +} +S_52164:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,15698,"ide_methods.bas");if(r)goto S_52164;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,15698,"ide_methods.bas");}while(r); +} +S_52167:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,15699,"ide_methods.bas");if(r)goto S_52167;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,15699,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15699,"ide_methods.bas");}while(r); +} +S_52171:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,15700,"ide_methods.bas");if(r)goto S_52171;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,15700,"ide_methods.bas");}while(r); +} +S_52174:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS>*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,15701,"ide_methods.bas");if(r)goto S_52174;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,15701,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,15702,"ide_methods.bas");}while(r); +S_52178:; +fornext_value5840= 1 ; +fornext_finalvalue5840= 100 ; +fornext_step5840= 1 ; +if (fornext_step5840<0) fornext_step_negative5840=1; else fornext_step_negative5840=0; +if (new_error) goto fornext_error5840; +goto fornext_entrylabel5840; +while(1){ +fornext_value5840=fornext_step5840+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5840: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5840; +if (fornext_step_negative5840){ +if (fornext_value5840fornext_finalvalue5840) break; +} +fornext_error5840:; +if(qbevent){evnt(26307,15703,"ide_methods.bas");if(r)goto S_52178;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,15704,"ide_methods.bas");}while(r); +S_52180:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,15705,"ide_methods.bas");if(r)goto S_52180;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS-*_FUNC_IDEACTIVITYBOX_LONG_F; +if(!qbevent)break;evnt(26307,15706,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEACTIVITYBOX_LONG_FOCUS,_FUNC_IDEACTIVITYBOX_LONG_F,_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN,_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEACTIVITYBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15707,"ide_methods.bas");}while(r); +} +fornext_continue_5839:; +} +fornext_exit_5839:; +S_52185:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26307,15713,"ide_methods.bas");if(r)goto S_52185;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX,i2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15713,"ide_methods.bas");}while(r); +} +S_52188:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEACTIVITYBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26307,15715,"ide_methods.bas");if(r)goto S_52188;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX,qbs_add(i2string( 1 ),l2string(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15716,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26307,15717,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,15721,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,15722,"ide_methods.bas");}while(r); +} +sc_ec_339_end:; +goto sc_5820_end; +} +sc_5820_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free198.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX);return _FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX; +} int32 FUNC_IDEDISPLAYBOX(){ qbs *tqbs; ptrszint tmp_long; @@ -164035,7 +181596,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data184.txt" +#include "data199.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -164043,1205 +181604,1640 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,11643,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15731,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,11644,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15732,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11645,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15733,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11646,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15734,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11647,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15735,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4]+1; _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,11648,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15736,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11649,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15737,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11650,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15738,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,11654,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))=(( 80 / 2 ))-( 60 / 2 ); -if(!qbevent)break;evnt(25066,11658,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))=(( 25 / 2 ))-( 16 / 2 ); -if(!qbevent)break;evnt(25066,11659,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15742,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))= 60 ; -if(!qbevent)break;evnt(25066,11660,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15745,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))= 18 ; -if(!qbevent)break;evnt(25066,11661,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15746,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))=(( 80 / 2 ))-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))/ 2 ); +if(!qbevent)break;evnt(26307,15747,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))=(( 25 / 2 ))-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))/ 2 ); +if(!qbevent)break;evnt(26307,15748,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(16))=FUNC_IDENEWTXT(qbs_new_txt_len("Display",7)); -if(!qbevent)break;evnt(25066,11662,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15749,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(__LONG_IDEWX)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11664,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15751,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11665,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15752,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,11666,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15753,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,11667,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,15754,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+20))= 16 ; -if(!qbevent)break;evnt(25066,11668,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 3 ; +if(!qbevent)break;evnt(26307,15755,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,11669,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,15756,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Width",6)); -if(!qbevent)break;evnt(25066,11670,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+28))= 10 ; +if(!qbevent)break;evnt(26307,15757,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(25066,11671,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Window #width",13)); +if(!qbevent)break;evnt(26307,15758,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,11672,"ide_methods.bas");}while(r); -S_46416:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,11673,"ide_methods.bas");if(r)goto S_46416;} +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26307,15759,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,11674,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,15760,"ide_methods.bas");}while(r); +S_52220:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,15761,"ide_methods.bas");if(r)goto S_52220;} do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,11675,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,15762,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,15763,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(&(pass5267=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(&(pass5842=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11678,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15766,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11679,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15767,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,11680,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,15768,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+20))= 15 ; -if(!qbevent)break;evnt(25066,11681,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26307,15769,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,11682,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,15770,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Height",7)); -if(!qbevent)break;evnt(25066,11683,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+28))= 10 ; +if(!qbevent)break;evnt(26307,15771,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(25066,11684,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Window #height",14)); +if(!qbevent)break;evnt(26307,15772,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,11685,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26307,15773,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,15774,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11687,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15776,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,11688,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,15777,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 8 ; -if(!qbevent)break;evnt(25066,11689,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 7 ; +if(!qbevent)break;evnt(26307,15778,"ide_methods.bas");}while(r); +S_52236:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)> 0 ))|(-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))))||new_error){ +if(qbevent){evnt(26307,15779,"ide_methods.bas");if(r)goto S_52236;} do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Restore window #position at startup",35)); -if(!qbevent)break;evnt(25066,11690,"ide_methods.bas");}while(r); -S_46432:; +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Remember position + size",25)); +if(!qbevent)break;evnt(26307,15780,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Remember size",14)); +if(!qbevent)break;evnt(26307,15782,"ide_methods.bas");}while(r); +} +S_52241:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(25066,11691,"ide_methods.bas");if(r)goto S_46432;} +if(qbevent){evnt(26307,15784,"ide_methods.bas");if(r)goto S_52241;} do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,11691,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,15784,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11693,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15786,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,11694,"ide_methods.bas");}while(r); +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=*__LONG_IDENORMALCURSORSTART; +if(!qbevent)break;evnt(26307,15787,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 10 ; -if(!qbevent)break;evnt(25066,11695,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,15788,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Custom #Font:",13)); -if(!qbevent)break;evnt(25066,11696,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 33 ; +if(!qbevent)break;evnt(26307,15789,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))=*__LONG_IDECUSTOMFONT; -if(!qbevent)break;evnt(25066,11697,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,15790,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Cursor #start",13)); +if(!qbevent)break;evnt(26307,15791,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2(__LONG_IDENORMALCURSORSTART)); +if(!qbevent)break;evnt(26307,15792,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,15793,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,15795,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=*__LONG_IDENORMALCURSOREND; +if(!qbevent)break;evnt(26307,15796,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,15797,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 35 ; +if(!qbevent)break;evnt(26307,15798,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,15799,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Cursor #end",11)); +if(!qbevent)break;evnt(26307,15800,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2(__LONG_IDENORMALCURSOREND)); +if(!qbevent)break;evnt(26307,15801,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,15802,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,15804,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,15805,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26307,15806,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Use _FONT 8",12)); +if(!qbevent)break;evnt(26307,15807,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDE_USEFONT8; +if(!qbevent)break;evnt(26307,15808,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,15809,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,15811,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,15812,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 10 ; +if(!qbevent)break;evnt(26307,15813,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Use monospace #TTF font:",24)); +if(!qbevent)break;evnt(26307,15814,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDECUSTOMFONT; +if(!qbevent)break;evnt(26307,15815,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,15816,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,__STRING_IDECUSTOMFONTFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11699,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15818,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15819,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15820,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,11701,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,15821,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+20))= 10 ; -if(!qbevent)break;evnt(25066,11702,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 10 ; +if(!qbevent)break;evnt(26307,15822,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 12 ; -if(!qbevent)break;evnt(25066,11703,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 12 ; +if(!qbevent)break;evnt(26307,15823,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); -if(!qbevent)break;evnt(25066,11704,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Font file",10)); +if(!qbevent)break;evnt(26307,15824,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(25066,11705,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26307,15825,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,11706,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,15826,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(__LONG_IDECUSTOMFONTHEIGHT)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11708,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15828,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE,_FUNC_IDEDISPLAYBOX_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15829,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15830,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,11710,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,15831,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+20))= 10 ; -if(!qbevent)break;evnt(25066,11711,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 10 ; +if(!qbevent)break;evnt(26307,15832,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 15 ; -if(!qbevent)break;evnt(25066,11712,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 15 ; +if(!qbevent)break;evnt(26307,15833,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Row Height (Pixels)",20)); -if(!qbevent)break;evnt(25066,11713,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Font size in #pixels",20)); +if(!qbevent)break;evnt(26307,15834,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(25066,11714,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26307,15835,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,11715,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,15836,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11717,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15838,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,11718,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,15839,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+24))= 18 ; -if(!qbevent)break;evnt(25066,11719,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12)); +if(!qbevent)break;evnt(26307,15840,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("OK",2),_FUNC_IDEDISPLAYBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,11720,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEDISPLAYBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,15841,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,11721,"ide_methods.bas");}while(r); -S_46461:; -fornext_value5272= 1 ; -fornext_finalvalue5272= 100 ; -fornext_step5272= 1 ; -if (fornext_step5272<0) fornext_step_negative5272=1; else fornext_step_negative5272=0; -if (new_error) goto fornext_error5272; -goto fornext_entrylabel5272; +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,15842,"ide_methods.bas");}while(r); +S_52295:; +fornext_value5849= 1 ; +fornext_finalvalue5849= 100 ; +fornext_step5849= 1 ; +if (fornext_step5849<0) fornext_step_negative5849=1; else fornext_step_negative5849=0; +if (new_error) goto fornext_error5849; +goto fornext_entrylabel5849; while(1){ -fornext_value5272=fornext_step5272+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5272: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5272; -if (fornext_step_negative5272){ -if (fornext_value5272fornext_finalvalue5272) break; +if (fornext_value5849>fornext_finalvalue5849) break; } -fornext_error5272:; -if(qbevent){evnt(25066,11725,"ide_methods.bas");if(r)goto S_46461;} +fornext_error5849:; +if(qbevent){evnt(26307,15846,"ide_methods.bas");if(r)goto S_52295;} do{ -memcpy(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,11725,"ide_methods.bas");}while(r); -fornext_continue_5271:; +memcpy(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,15846,"ide_methods.bas");}while(r); +fornext_continue_5848:; } -fornext_exit_5271:; -S_46464:; +fornext_exit_5848:; +S_52298:; do{ -if(qbevent){evnt(25066,11728,"ide_methods.bas");if(r)goto S_46464;} +if(qbevent){evnt(26307,15849,"ide_methods.bas");if(r)goto S_52298;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,11732,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15853,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11733,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15854,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,11733,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15854,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,11733,"ide_methods.bas");}while(r); -S_46469:; -fornext_value5275= 1 ; -fornext_finalvalue5275= 100 ; -fornext_step5275= 1 ; -if (fornext_step5275<0) fornext_step_negative5275=1; else fornext_step_negative5275=0; -if (new_error) goto fornext_error5275; -goto fornext_entrylabel5275; +if(!qbevent)break;evnt(26307,15854,"ide_methods.bas");}while(r); +S_52303:; +fornext_value5852= 1 ; +fornext_finalvalue5852= 100 ; +fornext_step5852= 1 ; +if (fornext_step5852<0) fornext_step_negative5852=1; else fornext_step_negative5852=0; +if (new_error) goto fornext_error5852; +goto fornext_entrylabel5852; while(1){ -fornext_value5275=fornext_step5275+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5275: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5275; -if (fornext_step_negative5275){ -if (fornext_value5275fornext_finalvalue5275) break; +if (fornext_value5852>fornext_finalvalue5852) break; } -fornext_error5275:; -if(qbevent){evnt(25066,11734,"ide_methods.bas");if(r)goto S_46469;} -S_46470:; -if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,11735,"ide_methods.bas");if(r)goto S_46470;} +fornext_error5852:; +if(qbevent){evnt(26307,15855,"ide_methods.bas");if(r)goto S_52303;} +S_52304:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,15856,"ide_methods.bas");if(r)goto S_52304;} do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; -if(!qbevent)break;evnt(25066,11738,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; +if(!qbevent)break;evnt(26307,15859,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,11739,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,15860,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,11739,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,15860,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEDISPLAYBOX_LONG_F); -if(!qbevent)break;evnt(25066,11740,"ide_methods.bas");}while(r); -S_46475:; -if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,11741,"ide_methods.bas");if(r)goto S_46475;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEDISPLAYBOX_LONG_F); +if(!qbevent)break;evnt(26307,15861,"ide_methods.bas");}while(r); +S_52309:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,15862,"ide_methods.bas");if(r)goto S_52309;} do{ -*_FUNC_IDEDISPLAYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,11741,"ide_methods.bas");}while(r); +*_FUNC_IDEDISPLAYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,15862,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEDISPLAYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,11741,"ide_methods.bas");}while(r); +*_FUNC_IDEDISPLAYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,15862,"ide_methods.bas");}while(r); } } -fornext_continue_5274:; +fornext_continue_5851:; } -fornext_exit_5274:; +fornext_exit_5851:; do{ *_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,11744,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15865,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,11748,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,11748,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Window Size -",13)); -if (new_error) goto skip5276; -makefit(tqbs); -qbs_print(tqbs,0); -skip5276: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11748,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,11749,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))+ 10 ,*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))+ 29 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,11749,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Monospace TTF Font ",20)); -if (new_error) goto skip5277; -makefit(tqbs); -qbs_print(tqbs,0); -skip5277: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11749,"ide_methods.bas");}while(r); +qbg_sub_locate(NULL,NULL,NULL,*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART,*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND,24); +if(!qbevent)break;evnt(26307,15869,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,11753,"ide_methods.bas");}while(r); -S_46489:; +if(!qbevent)break;evnt(26307,15873,"ide_methods.bas");}while(r); +S_52318:; if ((*_FUNC_IDEDISPLAYBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,11754,"ide_methods.bas");if(r)goto S_46489;} +if(qbevent){evnt(26307,15874,"ide_methods.bas");if(r)goto S_52318;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15874,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDEDISPLAYBOX_LONG_CY,*_FUNC_IDEDISPLAYBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,11754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15874,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11754,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15874,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,11757,"ide_methods.bas");}while(r); -S_46495:; +if(!qbevent)break;evnt(26307,15877,"ide_methods.bas");}while(r); +S_52324:; do{ -if(qbevent){evnt(25066,11758,"ide_methods.bas");if(r)goto S_46495;} +if(qbevent){evnt(26307,15878,"ide_methods.bas");if(r)goto S_52324;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,11759,"ide_methods.bas");}while(r); -S_46497:; +if(!qbevent)break;evnt(26307,15879,"ide_methods.bas");}while(r); +S_52326:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,11760,"ide_methods.bas");if(r)goto S_46497;} +if(qbevent){evnt(26307,15880,"ide_methods.bas");if(r)goto S_52326;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11760,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15880,"ide_methods.bas");}while(r); } -S_46500:; +S_52329:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,11761,"ide_methods.bas");if(r)goto S_46500;} +if(qbevent){evnt(26307,15881,"ide_methods.bas");if(r)goto S_52329;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11761,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15881,"ide_methods.bas");}while(r); } -S_46503:; +S_52332:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,11762,"ide_methods.bas");if(r)goto S_46503;} +if(qbevent){evnt(26307,15882,"ide_methods.bas");if(r)goto S_52332;} do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,11762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15882,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15882,"ide_methods.bas");}while(r); } -S_46507:; +S_52336:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,11763,"ide_methods.bas");if(r)goto S_46507;} +if(qbevent){evnt(26307,15883,"ide_methods.bas");if(r)goto S_52336;} do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,11763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15883,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15883,"ide_methods.bas");}while(r); } -S_46511:; +S_52340:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,11764,"ide_methods.bas");if(r)goto S_46511;} +if(qbevent){evnt(26307,15884,"ide_methods.bas");if(r)goto S_52340;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11764,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15884,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,11765,"ide_methods.bas");}while(r); -S_46515:; +if(!qbevent)break;evnt(26307,15885,"ide_methods.bas");}while(r); +S_52344:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_ALT!=*_FUNC_IDEDISPLAYBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,11765,"ide_methods.bas");if(r)goto S_46515;} +if(qbevent){evnt(26307,15885,"ide_methods.bas");if(r)goto S_52344;} do{ *_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,11765,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15885,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_OLDALT=*_FUNC_IDEDISPLAYBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,11766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15886,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,11767,"ide_methods.bas");}while(r); -S_46520:; -dl_continue_5278:; +if(!qbevent)break;evnt(26307,15887,"ide_methods.bas");}while(r); +S_52349:; +dl_continue_5853:; }while((!(*_FUNC_IDEDISPLAYBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5278:; -if(qbevent){evnt(25066,11768,"ide_methods.bas");if(r)goto S_46520;} -S_46521:; +dl_exit_5853:; +if(qbevent){evnt(26307,15888,"ide_methods.bas");if(r)goto S_52349;} +S_52350:; if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11769,"ide_methods.bas");if(r)goto S_46521;} +if(qbevent){evnt(26307,15889,"ide_methods.bas");if(r)goto S_52350;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,11769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15889,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,11769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15889,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11771,"ide_methods.bas");}while(r); -S_46527:; +if(!qbevent)break;evnt(26307,15891,"ide_methods.bas");}while(r); +S_52356:; if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,11772,"ide_methods.bas");if(r)goto S_46527;} -S_46528:; +if(qbevent){evnt(26307,15892,"ide_methods.bas");if(r)goto S_52356;} +S_52357:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,11773,"ide_methods.bas");if(r)goto S_46528;} +if(qbevent){evnt(26307,15893,"ide_methods.bas");if(r)goto S_52357;} do{ *_FUNC_IDEDISPLAYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11774,"ide_methods.bas");}while(r); -S_46530:; +if(!qbevent)break;evnt(26307,15894,"ide_methods.bas");}while(r); +S_52359:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,11775,"ide_methods.bas");if(r)goto S_46530;} +if(qbevent){evnt(26307,15895,"ide_methods.bas");if(r)goto S_52359;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEDISPLAYBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11775,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15895,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15898,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,11778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15898,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15898,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,11782,"ide_methods.bas");}while(r); -S_46539:; +if(!qbevent)break;evnt(26307,15902,"ide_methods.bas");}while(r); +S_52368:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11783,"ide_methods.bas");if(r)goto S_46539;} +if(qbevent){evnt(26307,15903,"ide_methods.bas");if(r)goto S_52368;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11783,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15903,"ide_methods.bas");}while(r); } -S_46542:; +S_52371:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,11784,"ide_methods.bas");if(r)goto S_46542;} +if(qbevent){evnt(26307,15904,"ide_methods.bas");if(r)goto S_52371;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,11784,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15904,"ide_methods.bas");}while(r); } -S_46545:; +S_52374:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,11785,"ide_methods.bas");if(r)goto S_46545;} +if(qbevent){evnt(26307,15905,"ide_methods.bas");if(r)goto S_52374;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,11785,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15905,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11785,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15905,"ide_methods.bas");}while(r); } -S_46549:; +S_52378:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,11786,"ide_methods.bas");if(r)goto S_46549;} +if(qbevent){evnt(26307,15906,"ide_methods.bas");if(r)goto S_52378;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,11786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15906,"ide_methods.bas");}while(r); } -S_46552:; +S_52381:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS>*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,11787,"ide_methods.bas");if(r)goto S_46552;} +if(qbevent){evnt(26307,15907,"ide_methods.bas");if(r)goto S_52381;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11787,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15907,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,11788,"ide_methods.bas");}while(r); -S_46556:; -fornext_value5281= 1 ; -fornext_finalvalue5281= 100 ; -fornext_step5281= 1 ; -if (fornext_step5281<0) fornext_step_negative5281=1; else fornext_step_negative5281=0; -if (new_error) goto fornext_error5281; -goto fornext_entrylabel5281; +if(!qbevent)break;evnt(26307,15908,"ide_methods.bas");}while(r); +S_52385:; +fornext_value5856= 1 ; +fornext_finalvalue5856= 100 ; +fornext_step5856= 1 ; +if (fornext_step5856<0) fornext_step_negative5856=1; else fornext_step_negative5856=0; +if (new_error) goto fornext_error5856; +goto fornext_entrylabel5856; while(1){ -fornext_value5281=fornext_step5281+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5281: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5281; -if (fornext_step_negative5281){ -if (fornext_value5281fornext_finalvalue5281) break; +if (fornext_value5856>fornext_finalvalue5856) break; } -fornext_error5281:; -if(qbevent){evnt(25066,11789,"ide_methods.bas");if(r)goto S_46556;} +fornext_error5856:; +if(qbevent){evnt(26307,15909,"ide_methods.bas");if(r)goto S_52385;} do{ -*_FUNC_IDEDISPLAYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,11790,"ide_methods.bas");}while(r); -S_46558:; +*_FUNC_IDEDISPLAYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,15910,"ide_methods.bas");}while(r); +S_52387:; if ((*_FUNC_IDEDISPLAYBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,11791,"ide_methods.bas");if(r)goto S_46558;} +if(qbevent){evnt(26307,15911,"ide_methods.bas");if(r)goto S_52387;} do{ *_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; -if(!qbevent)break;evnt(25066,11792,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15912,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEDISPLAYBOX_LONG_FOCUS,_FUNC_IDEDISPLAYBOX_LONG_F,_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN,_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEDISPLAYBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEDISPLAYBOX_LONG_FOCUS,_FUNC_IDEDISPLAYBOX_LONG_F,_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN,_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEDISPLAYBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15913,"ide_methods.bas");}while(r); } -fornext_continue_5280:; +fornext_continue_5855:; } -fornext_exit_5280:; -S_46563:; +fornext_exit_5855:; +S_52392:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!=*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,11800,"ide_methods.bas");if(r)goto S_46563;} +if(qbevent){evnt(26307,15920,"ide_methods.bas");if(r)goto S_52392;} do{ *_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,11802,"ide_methods.bas");}while(r); -S_46565:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 1 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 5 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 6 )))||new_error){ -if(qbevent){evnt(25066,11803,"ide_methods.bas");if(r)goto S_46565;} +if(!qbevent)break;evnt(26307,15922,"ide_methods.bas");}while(r); +S_52394:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))== 1 ))||new_error){ +if(qbevent){evnt(26307,15923,"ide_methods.bas");if(r)goto S_52394;} do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,11804,"ide_methods.bas");}while(r); -S_46567:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,11805,"ide_methods.bas");if(r)goto S_46567;} +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,15924,"ide_methods.bas");}while(r); +S_52396:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,15925,"ide_methods.bas");if(r)goto S_52396;} do{ -*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,11805,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,15925,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,11806,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,15926,"ide_methods.bas");}while(r); } } do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11810,"ide_methods.bas");}while(r); -S_46574:; +if(!qbevent)break;evnt(26307,15931,"ide_methods.bas");}while(r); +S_52403:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(25066,11811,"ide_methods.bas");if(r)goto S_46574;} +if(qbevent){evnt(26307,15932,"ide_methods.bas");if(r)goto S_52403;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15932,"ide_methods.bas");}while(r); } -S_46577:; -fornext_value5285= 1 ; -fornext_finalvalue5285=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5285= 1 ; -if (fornext_step5285<0) fornext_step_negative5285=1; else fornext_step_negative5285=0; -if (new_error) goto fornext_error5285; -goto fornext_entrylabel5285; +S_52406:; +fornext_value5860= 1 ; +fornext_finalvalue5860=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5860= 1 ; +if (fornext_step5860<0) fornext_step_negative5860=1; else fornext_step_negative5860=0; +if (new_error) goto fornext_error5860; +goto fornext_entrylabel5860; while(1){ -fornext_value5285=fornext_step5285+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5285: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5285; +fornext_value5860=fornext_step5860+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5860: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5860; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5285){ -if (fornext_value5285fornext_finalvalue5285) break; +if (fornext_value5860>fornext_finalvalue5860) break; } -fornext_error5285:; -if(qbevent){evnt(25066,11812,"ide_methods.bas");if(r)goto S_46577;} +fornext_error5860:; +if(qbevent){evnt(26307,15933,"ide_methods.bas");if(r)goto S_52406;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11813,"ide_methods.bas");}while(r); -S_46579:; +if(!qbevent)break;evnt(26307,15934,"ide_methods.bas");}while(r); +S_52408:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,11814,"ide_methods.bas");if(r)goto S_46579;} +if(qbevent){evnt(26307,15935,"ide_methods.bas");if(r)goto S_52408;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11814,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15935,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5284; -if(!qbevent)break;evnt(25066,11814,"ide_methods.bas");}while(r); +goto fornext_exit_5859; +if(!qbevent)break;evnt(26307,15935,"ide_methods.bas");}while(r); } -S_46583:; +S_52412:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,11815,"ide_methods.bas");if(r)goto S_46583;} +if(qbevent){evnt(26307,15936,"ide_methods.bas");if(r)goto S_52412;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11815,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15936,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5284; -if(!qbevent)break;evnt(25066,11815,"ide_methods.bas");}while(r); +goto fornext_exit_5859; +if(!qbevent)break;evnt(26307,15936,"ide_methods.bas");}while(r); } -fornext_continue_5284:; +fornext_continue_5859:; } -fornext_exit_5284:; -S_46588:; +fornext_exit_5859:; +S_52417:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 1 ))||new_error){ -if(qbevent){evnt(25066,11817,"ide_methods.bas");if(r)goto S_46588;} -S_46589:; +if(qbevent){evnt(26307,15938,"ide_methods.bas");if(r)goto S_52417;} +S_52418:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,11818,"ide_methods.bas");if(r)goto S_46589;} +if(qbevent){evnt(26307,15939,"ide_methods.bas");if(r)goto S_52418;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11818,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15939,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(25066,11818,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15939,"ide_methods.bas");}while(r); } -S_46594:; +S_52423:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 80 ))||new_error){ -if(qbevent){evnt(25066,11819,"ide_methods.bas");if(r)goto S_46594;} +if(qbevent){evnt(26307,15940,"ide_methods.bas");if(r)goto S_52423;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("80",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11819,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15940,"ide_methods.bas");}while(r); } } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11821,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15942,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11823,"ide_methods.bas");}while(r); -S_46600:; +if(!qbevent)break;evnt(26307,15945,"ide_methods.bas");}while(r); +S_52429:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(25066,11824,"ide_methods.bas");if(r)goto S_46600;} +if(qbevent){evnt(26307,15946,"ide_methods.bas");if(r)goto S_52429;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11824,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15946,"ide_methods.bas");}while(r); } -S_46603:; -fornext_value5290= 1 ; -fornext_finalvalue5290=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5290= 1 ; -if (fornext_step5290<0) fornext_step_negative5290=1; else fornext_step_negative5290=0; -if (new_error) goto fornext_error5290; -goto fornext_entrylabel5290; +S_52432:; +fornext_value5865= 1 ; +fornext_finalvalue5865=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5865= 1 ; +if (fornext_step5865<0) fornext_step_negative5865=1; else fornext_step_negative5865=0; +if (new_error) goto fornext_error5865; +goto fornext_entrylabel5865; while(1){ -fornext_value5290=fornext_step5290+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5290: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5290; +fornext_value5865=fornext_step5865+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5865: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5865; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5290){ -if (fornext_value5290fornext_finalvalue5290) break; +if (fornext_value5865>fornext_finalvalue5865) break; } -fornext_error5290:; -if(qbevent){evnt(25066,11825,"ide_methods.bas");if(r)goto S_46603;} +fornext_error5865:; +if(qbevent){evnt(26307,15947,"ide_methods.bas");if(r)goto S_52432;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11826,"ide_methods.bas");}while(r); -S_46605:; +if(!qbevent)break;evnt(26307,15948,"ide_methods.bas");}while(r); +S_52434:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,11827,"ide_methods.bas");if(r)goto S_46605;} +if(qbevent){evnt(26307,15949,"ide_methods.bas");if(r)goto S_52434;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11827,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15949,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5289; -if(!qbevent)break;evnt(25066,11827,"ide_methods.bas");}while(r); +goto fornext_exit_5864; +if(!qbevent)break;evnt(26307,15949,"ide_methods.bas");}while(r); } -S_46609:; +S_52438:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,11828,"ide_methods.bas");if(r)goto S_46609;} +if(qbevent){evnt(26307,15950,"ide_methods.bas");if(r)goto S_52438;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15950,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5289; -if(!qbevent)break;evnt(25066,11828,"ide_methods.bas");}while(r); +goto fornext_exit_5864; +if(!qbevent)break;evnt(26307,15950,"ide_methods.bas");}while(r); } -fornext_continue_5289:; +fornext_continue_5864:; } -fornext_exit_5289:; -S_46614:; +fornext_exit_5864:; +S_52443:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 2 ))||new_error){ -if(qbevent){evnt(25066,11830,"ide_methods.bas");if(r)goto S_46614;} -S_46615:; +if(qbevent){evnt(26307,15952,"ide_methods.bas");if(r)goto S_52443;} +S_52444:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,11831,"ide_methods.bas");if(r)goto S_46615;} +if(qbevent){evnt(26307,15953,"ide_methods.bas");if(r)goto S_52444;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11831,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15953,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(25066,11831,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15953,"ide_methods.bas");}while(r); } -S_46620:; +S_52449:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 25 ))||new_error){ -if(qbevent){evnt(25066,11832,"ide_methods.bas");if(r)goto S_46620;} +if(qbevent){evnt(26307,15954,"ide_methods.bas");if(r)goto S_52449;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("25",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15954,"ide_methods.bas");}while(r); } } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11834,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15956,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11836,"ide_methods.bas");}while(r); -S_46626:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 1024 )))||new_error){ -if(qbevent){evnt(25066,11837,"ide_methods.bas");if(r)goto S_46626;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 1024 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11837,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11838,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11840,"ide_methods.bas");}while(r); -S_46631:; +if(!qbevent)break;evnt(26307,15959,"ide_methods.bas");}while(r); +S_52455:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ -if(qbevent){evnt(25066,11841,"ide_methods.bas");if(r)goto S_46631;} +if(qbevent){evnt(26307,15960,"ide_methods.bas");if(r)goto S_52455;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11841,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15960,"ide_methods.bas");}while(r); } -S_46634:; -fornext_value5296= 1 ; -fornext_finalvalue5296=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5296= 1 ; -if (fornext_step5296<0) fornext_step_negative5296=1; else fornext_step_negative5296=0; -if (new_error) goto fornext_error5296; -goto fornext_entrylabel5296; +S_52458:; +fornext_value5870= 1 ; +fornext_finalvalue5870=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5870= 1 ; +if (fornext_step5870<0) fornext_step_negative5870=1; else fornext_step_negative5870=0; +if (new_error) goto fornext_error5870; +goto fornext_entrylabel5870; while(1){ -fornext_value5296=fornext_step5296+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5296: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5296; +fornext_value5870=fornext_step5870+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5870: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5870; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5296){ -if (fornext_value5296fornext_finalvalue5296) break; +if (fornext_value5870>fornext_finalvalue5870) break; } -fornext_error5296:; -if(qbevent){evnt(25066,11842,"ide_methods.bas");if(r)goto S_46634;} +fornext_error5870:; +if(qbevent){evnt(26307,15961,"ide_methods.bas");if(r)goto S_52458;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11843,"ide_methods.bas");}while(r); -S_46636:; +if(!qbevent)break;evnt(26307,15962,"ide_methods.bas");}while(r); +S_52460:; if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,11844,"ide_methods.bas");if(r)goto S_46636;} +if(qbevent){evnt(26307,15963,"ide_methods.bas");if(r)goto S_52460;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15963,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5295; -if(!qbevent)break;evnt(25066,11844,"ide_methods.bas");}while(r); +goto fornext_exit_5869; +if(!qbevent)break;evnt(26307,15963,"ide_methods.bas");}while(r); } -S_46640:; +S_52464:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,11845,"ide_methods.bas");if(r)goto S_46640;} +if(qbevent){evnt(26307,15964,"ide_methods.bas");if(r)goto S_52464;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11845,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15964,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5295; -if(!qbevent)break;evnt(25066,11845,"ide_methods.bas");}while(r); +goto fornext_exit_5869; +if(!qbevent)break;evnt(26307,15964,"ide_methods.bas");}while(r); } -fornext_continue_5295:; +fornext_continue_5869:; } -fornext_exit_5295:; -S_46645:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 6 ))||new_error){ -if(qbevent){evnt(25066,11847,"ide_methods.bas");if(r)goto S_46645;} -S_46646:; +fornext_exit_5869:; +S_52469:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,11848,"ide_methods.bas");if(r)goto S_46646;} +if(qbevent){evnt(26307,15966,"ide_methods.bas");if(r)goto S_52469;} do{ *_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11848,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15966,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(25066,11848,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,15966,"ide_methods.bas");}while(r); } -S_46651:; +S_52474:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 4 ))||new_error){ +if(qbevent){evnt(26307,15967,"ide_methods.bas");if(r)goto S_52474;} +S_52475:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26307,15968,"ide_methods.bas");if(r)goto S_52475;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15968,"ide_methods.bas");}while(r); +} +S_52478:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26307,15969,"ide_methods.bas");if(r)goto S_52478;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("31",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15969,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15970,"ide_methods.bas");}while(r); +}else{ +S_52483:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26307,15972,"ide_methods.bas");if(r)goto S_52483;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26307,15972,"ide_methods.bas");}while(r); +} +S_52486:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26307,15973,"ide_methods.bas");if(r)goto S_52486;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 31 ; +if(!qbevent)break;evnt(26307,15973,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=*_FUNC_IDEDISPLAYBOX_LONG_A; +if(!qbevent)break;evnt(26307,15974,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15976,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15979,"ide_methods.bas");}while(r); +S_52493:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ +if(qbevent){evnt(26307,15980,"ide_methods.bas");if(r)goto S_52493;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15980,"ide_methods.bas");}while(r); +} +S_52496:; +fornext_value5875= 1 ; +fornext_finalvalue5875=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5875= 1 ; +if (fornext_step5875<0) fornext_step_negative5875=1; else fornext_step_negative5875=0; +if (new_error) goto fornext_error5875; +goto fornext_entrylabel5875; +while(1){ +fornext_value5875=fornext_step5875+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5875: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5875; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5875){ +if (fornext_value5875fornext_finalvalue5875) break; +} +fornext_error5875:; +if(qbevent){evnt(26307,15981,"ide_methods.bas");if(r)goto S_52496;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15982,"ide_methods.bas");}while(r); +S_52498:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26307,15983,"ide_methods.bas");if(r)goto S_52498;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15983,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5874; +if(!qbevent)break;evnt(26307,15983,"ide_methods.bas");}while(r); +} +S_52502:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26307,15984,"ide_methods.bas");if(r)goto S_52502;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15984,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5874; +if(!qbevent)break;evnt(26307,15984,"ide_methods.bas");}while(r); +} +fornext_continue_5874:; +} +fornext_exit_5874:; +S_52507:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26307,15986,"ide_methods.bas");if(r)goto S_52507;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15986,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26307,15986,"ide_methods.bas");}while(r); +} +S_52512:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 5 ))||new_error){ +if(qbevent){evnt(26307,15987,"ide_methods.bas");if(r)goto S_52512;} +S_52513:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26307,15988,"ide_methods.bas");if(r)goto S_52513;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15988,"ide_methods.bas");}while(r); +} +S_52516:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26307,15989,"ide_methods.bas");if(r)goto S_52516;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("31",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15989,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15990,"ide_methods.bas");}while(r); +}else{ +S_52521:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26307,15992,"ide_methods.bas");if(r)goto S_52521;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26307,15992,"ide_methods.bas");}while(r); +} +S_52524:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26307,15993,"ide_methods.bas");if(r)goto S_52524;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 31 ; +if(!qbevent)break;evnt(26307,15993,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=*_FUNC_IDEDISPLAYBOX_LONG_A; +if(!qbevent)break;evnt(26307,15994,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,15996,"ide_methods.bas");}while(r); +S_52530:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))))||new_error){ +if(qbevent){evnt(26307,15998,"ide_methods.bas");if(r)goto S_52530;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,15999,"ide_methods.bas");}while(r); +S_52532:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26307,16000,"ide_methods.bas");if(r)goto S_52532;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,16000,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 0 ; +if(!qbevent)break;evnt(26307,16000,"ide_methods.bas");}while(r); +} +} +S_52537:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))))||new_error){ +if(qbevent){evnt(26307,16003,"ide_methods.bas");if(r)goto S_52537;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16004,"ide_methods.bas");}while(r); +S_52539:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26307,16005,"ide_methods.bas");if(r)goto S_52539;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,16005,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; +if(!qbevent)break;evnt(26307,16005,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16008,"ide_methods.bas");}while(r); +S_52545:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 1024 )))||new_error){ +if(qbevent){evnt(26307,16009,"ide_methods.bas");if(r)goto S_52545;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 1024 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16009,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16010,"ide_methods.bas");}while(r); +S_52549:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_A,_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE)))||new_error){ +if(qbevent){evnt(26307,16011,"ide_methods.bas");if(r)goto S_52549;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16012,"ide_methods.bas");}while(r); +S_52551:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26307,16013,"ide_methods.bas");if(r)goto S_52551;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,16014,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; +if(!qbevent)break;evnt(26307,16014,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,16015,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 1 ; +if(!qbevent)break;evnt(26307,16015,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16019,"ide_methods.bas");}while(r); +S_52559:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ +if(qbevent){evnt(26307,16020,"ide_methods.bas");if(r)goto S_52559;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16020,"ide_methods.bas");}while(r); +} +S_52562:; +fornext_value5881= 1 ; +fornext_finalvalue5881=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5881= 1 ; +if (fornext_step5881<0) fornext_step_negative5881=1; else fornext_step_negative5881=0; +if (new_error) goto fornext_error5881; +goto fornext_entrylabel5881; +while(1){ +fornext_value5881=fornext_step5881+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5881: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5881; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5881){ +if (fornext_value5881fornext_finalvalue5881) break; +} +fornext_error5881:; +if(qbevent){evnt(26307,16021,"ide_methods.bas");if(r)goto S_52562;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16022,"ide_methods.bas");}while(r); +S_52564:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26307,16023,"ide_methods.bas");if(r)goto S_52564;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16023,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5880; +if(!qbevent)break;evnt(26307,16023,"ide_methods.bas");}while(r); +} +S_52568:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26307,16024,"ide_methods.bas");if(r)goto S_52568;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16024,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5880; +if(!qbevent)break;evnt(26307,16024,"ide_methods.bas");}while(r); +} +fornext_continue_5880:; +} +fornext_exit_5880:; +S_52573:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 9 ))||new_error){ +if(qbevent){evnt(26307,16026,"ide_methods.bas");if(r)goto S_52573;} +S_52574:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26307,16027,"ide_methods.bas");if(r)goto S_52574;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16027,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26307,16027,"ide_methods.bas");}while(r); +} +S_52579:; if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 8 ))||new_error){ -if(qbevent){evnt(25066,11849,"ide_methods.bas");if(r)goto S_46651;} +if(qbevent){evnt(26307,16028,"ide_methods.bas");if(r)goto S_52579;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("8",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11849,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16028,"ide_methods.bas");}while(r); } } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11851,"ide_methods.bas");}while(r); -S_46656:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 8 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11855,"ide_methods.bas");if(r)goto S_46656;} +if(!qbevent)break;evnt(26307,16030,"ide_methods.bas");}while(r); +S_52584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_A,_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE)))||new_error){ +if(qbevent){evnt(26307,16031,"ide_methods.bas");if(r)goto S_52584;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE,_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16032,"ide_methods.bas");}while(r); +S_52586:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26307,16033,"ide_methods.bas");if(r)goto S_52586;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,16034,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; +if(!qbevent)break;evnt(26307,16034,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,16035,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 1 ; +if(!qbevent)break;evnt(26307,16035,"ide_methods.bas");}while(r); +} +} +S_52593:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 11 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,16040,"ide_methods.bas");if(r)goto S_52593;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,11855,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16040,"ide_methods.bas");}while(r); } -S_46659:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,11856,"ide_methods.bas");if(r)goto S_46659;} +S_52596:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 10 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,16041,"ide_methods.bas");if(r)goto S_52596;} do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,11858,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16043,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11861,"ide_methods.bas");}while(r); -S_46662:; +if(!qbevent)break;evnt(26307,16046,"ide_methods.bas");}while(r); +S_52599:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11861,"ide_methods.bas");if(r)goto S_46662;} +if(qbevent){evnt(26307,16046,"ide_methods.bas");if(r)goto S_52599;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11861,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16046,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11862,"ide_methods.bas");}while(r); -S_46666:; +if(!qbevent)break;evnt(26307,16047,"ide_methods.bas");}while(r); +S_52603:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ -if(qbevent){evnt(25066,11863,"ide_methods.bas");if(r)goto S_46666;} +if(qbevent){evnt(26307,16048,"ide_methods.bas");if(r)goto S_52603;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; -if(!qbevent)break;evnt(25066,11863,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16048,"ide_methods.bas");}while(r); } -S_46669:; +S_52606:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ -if(qbevent){evnt(25066,11864,"ide_methods.bas");if(r)goto S_46669;} +if(qbevent){evnt(26307,16049,"ide_methods.bas");if(r)goto S_52606;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; -if(!qbevent)break;evnt(25066,11864,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16049,"ide_methods.bas");}while(r); } -S_46672:; +S_52609:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDECUSTOMFONTHEIGHT))||new_error){ -if(qbevent){evnt(25066,11865,"ide_methods.bas");if(r)goto S_46672;} +if(qbevent){evnt(26307,16050,"ide_methods.bas");if(r)goto S_52609;} do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,11865,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16050,"ide_methods.bas");}while(r); } -S_46675:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))!=*__LONG_IDECUSTOMFONT))||new_error){ -if(qbevent){evnt(25066,11867,"ide_methods.bas");if(r)goto S_46675;} -S_46676:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))== 0 ))||new_error){ -if(qbevent){evnt(25066,11868,"ide_methods.bas");if(r)goto S_46676;} +S_52612:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))!=*__BYTE_IDE_USEFONT8))||new_error){ +if(qbevent){evnt(26307,16052,"ide_methods.bas");if(r)goto S_52612;} +do{ +*__BYTE_IDE_USEFONT8=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16053,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; +if(!qbevent)break;evnt(26307,16054,"ide_methods.bas");}while(r); +} +S_52616:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))!=*__LONG_IDECUSTOMFONT))||new_error){ +if(qbevent){evnt(26307,16057,"ide_methods.bas");if(r)goto S_52616;} +S_52617:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26307,16058,"ide_methods.bas");if(r)goto S_52617;} +S_52618:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26307,16059,"ide_methods.bas");if(r)goto S_52618;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26307,16059,"ide_methods.bas");}while(r); +}else{ do{ sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(25066,11869,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16059,"ide_methods.bas");}while(r); +} do{ sub__freefont(*__LONG_IDECUSTOMFONTHANDLE); -if(!qbevent)break;evnt(25066,11870,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16060,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,11872,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16062,"ide_methods.bas");}while(r); } } do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11877,"ide_methods.bas");}while(r); -S_46684:; +if(!qbevent)break;evnt(26307,16067,"ide_methods.bas");}while(r); +S_52629:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_V,__STRING_IDECUSTOMFONTFILE)))||new_error){ -if(qbevent){evnt(25066,11877,"ide_methods.bas");if(r)goto S_46684;} +if(qbevent){evnt(26307,16067,"ide_methods.bas");if(r)goto S_52629;} do{ *_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,11877,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16067,"ide_methods.bas");}while(r); } -S_46687:; -if (((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))== 1 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_X== 1 )))||new_error){ -if(qbevent){evnt(25066,11879,"ide_methods.bas");if(r)goto S_46687;} +S_52632:; +if (((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 1 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_X== 1 )))||new_error){ +if(qbevent){evnt(26307,16069,"ide_methods.bas");if(r)goto S_52632;} do{ *_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE=*__LONG_IDECUSTOMFONTHANDLE; -if(!qbevent)break;evnt(25066,11880,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16070,"ide_methods.bas");}while(r); do{ *__LONG_IDECUSTOMFONTHANDLE=func__loadfont(_FUNC_IDEDISPLAYBOX_STRING_V,*_FUNC_IDEDISPLAYBOX_INTEGER_V,qbs_new_txt_len("MONOSPACE",9),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11881,"ide_methods.bas");}while(r); -S_46690:; +if(!qbevent)break;evnt(26307,16071,"ide_methods.bas");}while(r); +S_52635:; if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ -if(qbevent){evnt(25066,11882,"ide_methods.bas");if(r)goto S_46690;} +if(qbevent){evnt(26307,16072,"ide_methods.bas");if(r)goto S_52635;} do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64))= 0 ; -if(!qbevent)break;evnt(25066,11884,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26307,16074,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("c:\\windows\\fonts\\lucon.ttf",26)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11884,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16074,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("21",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11884,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16074,"ide_methods.bas");}while(r); +S_52639:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26307,16074,"ide_methods.bas");if(r)goto S_52639;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26307,16074,"ide_methods.bas");}while(r); +}else{ do{ sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(25066,11884,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16074,"ide_methods.bas");}while(r); +} }else{ do{ sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); -if(!qbevent)break;evnt(25066,11886,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16076,"ide_methods.bas");}while(r); } -S_46698:; +S_52647:; if ((-(*__LONG_IDECUSTOMFONT== 1 ))||new_error){ -if(qbevent){evnt(25066,11888,"ide_methods.bas");if(r)goto S_46698;} +if(qbevent){evnt(26307,16078,"ide_methods.bas");if(r)goto S_52647;} do{ sub__freefont(*_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE); -if(!qbevent)break;evnt(25066,11888,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16078,"ide_methods.bas");}while(r); } } do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11892,"ide_methods.bas");}while(r); -S_46703:; +if(!qbevent)break;evnt(26307,16082,"ide_methods.bas");}while(r); +S_52652:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11892,"ide_methods.bas");if(r)goto S_46703;} +if(qbevent){evnt(26307,16082,"ide_methods.bas");if(r)goto S_52652;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11892,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16082,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11893,"ide_methods.bas");}while(r); -S_46707:; +if(!qbevent)break;evnt(26307,16083,"ide_methods.bas");}while(r); +S_52656:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 80 ))||new_error){ -if(qbevent){evnt(25066,11894,"ide_methods.bas");if(r)goto S_46707;} +if(qbevent){evnt(26307,16084,"ide_methods.bas");if(r)goto S_52656;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 80 ; -if(!qbevent)break;evnt(25066,11894,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16084,"ide_methods.bas");}while(r); } -S_46710:; +S_52659:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ -if(qbevent){evnt(25066,11895,"ide_methods.bas");if(r)goto S_46710;} +if(qbevent){evnt(26307,16085,"ide_methods.bas");if(r)goto S_52659;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; -if(!qbevent)break;evnt(25066,11895,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16085,"ide_methods.bas");}while(r); } -S_46713:; +S_52662:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(25066,11896,"ide_methods.bas");if(r)goto S_46713;} +if(qbevent){evnt(26307,16086,"ide_methods.bas");if(r)goto S_52662;} do{ *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; -if(!qbevent)break;evnt(25066,11896,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16086,"ide_methods.bas");}while(r); } do{ *__LONG_IDEWX=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,11897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16087,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11900,"ide_methods.bas");}while(r); -S_46718:; +if(!qbevent)break;evnt(26307,16090,"ide_methods.bas");}while(r); +S_52667:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11900,"ide_methods.bas");if(r)goto S_46718;} +if(qbevent){evnt(26307,16090,"ide_methods.bas");if(r)goto S_52667;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11900,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16090,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11901,"ide_methods.bas");}while(r); -S_46722:; +if(!qbevent)break;evnt(26307,16091,"ide_methods.bas");}while(r); +S_52671:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 25 ))||new_error){ -if(qbevent){evnt(25066,11902,"ide_methods.bas");if(r)goto S_46722;} +if(qbevent){evnt(26307,16092,"ide_methods.bas");if(r)goto S_52671;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 25 ; -if(!qbevent)break;evnt(25066,11902,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16092,"ide_methods.bas");}while(r); } -S_46725:; +S_52674:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ -if(qbevent){evnt(25066,11903,"ide_methods.bas");if(r)goto S_46725;} +if(qbevent){evnt(26307,16093,"ide_methods.bas");if(r)goto S_52674;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; -if(!qbevent)break;evnt(25066,11903,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16093,"ide_methods.bas");}while(r); } -S_46728:; +S_52677:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(25066,11904,"ide_methods.bas");if(r)goto S_46728;} +if(qbevent){evnt(26307,16094,"ide_methods.bas");if(r)goto S_52677;} do{ *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; -if(!qbevent)break;evnt(25066,11904,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16094,"ide_methods.bas");}while(r); } do{ *__LONG_IDEWY=*_FUNC_IDEDISPLAYBOX_INTEGER_V-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(25066,11905,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16095,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,11907,"ide_methods.bas");}while(r); -S_46733:; +*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16097,"ide_methods.bas");}while(r); +S_52682:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,11908,"ide_methods.bas");if(r)goto S_46733;} +if(qbevent){evnt(26307,16098,"ide_methods.bas");if(r)goto S_52682;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(25066,11908,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16098,"ide_methods.bas");}while(r); } do{ *__BYTE_IDE_AUTOPOSITION=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,11909,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16099,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,11911,"ide_methods.bas");}while(r); -S_46738:; +*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16101,"ide_methods.bas");}while(r); +S_52687:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,11912,"ide_methods.bas");if(r)goto S_46738;} +if(qbevent){evnt(26307,16102,"ide_methods.bas");if(r)goto S_52687;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(25066,11912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16102,"ide_methods.bas");}while(r); } do{ *__LONG_IDECUSTOMFONT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,11913,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16103,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11915,"ide_methods.bas");}while(r); -S_46743:; +if(!qbevent)break;evnt(26307,16105,"ide_methods.bas");}while(r); +S_52692:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_V->len> 1024 )))||new_error){ -if(qbevent){evnt(25066,11916,"ide_methods.bas");if(r)goto S_46743;} +if(qbevent){evnt(26307,16106,"ide_methods.bas");if(r)goto S_52692;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_V, 1024 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11916,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16106,"ide_methods.bas");}while(r); } do{ qbs_set(__STRING_IDECUSTOMFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_V); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11917,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16107,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_add(_FUNC_IDEDISPLAYBOX_STRING_V,func_space( 1024 -_FUNC_IDEDISPLAYBOX_STRING_V->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11918,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16108,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11920,"ide_methods.bas");}while(r); -S_46749:; +if(!qbevent)break;evnt(26307,16110,"ide_methods.bas");}while(r); +S_52698:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,11920,"ide_methods.bas");if(r)goto S_46749;} +if(qbevent){evnt(26307,16110,"ide_methods.bas");if(r)goto S_52698;} do{ qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16110,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11921,"ide_methods.bas");}while(r); -S_46753:; +if(!qbevent)break;evnt(26307,16111,"ide_methods.bas");}while(r); +S_52702:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ -if(qbevent){evnt(25066,11922,"ide_methods.bas");if(r)goto S_46753;} +if(qbevent){evnt(26307,16112,"ide_methods.bas");if(r)goto S_52702;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; -if(!qbevent)break;evnt(25066,11922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16112,"ide_methods.bas");}while(r); } -S_46756:; +S_52705:; if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ -if(qbevent){evnt(25066,11923,"ide_methods.bas");if(r)goto S_46756;} +if(qbevent){evnt(26307,16113,"ide_methods.bas");if(r)goto S_52705;} do{ *_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; -if(!qbevent)break;evnt(25066,11923,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16113,"ide_methods.bas");}while(r); } do{ *__LONG_IDECUSTOMFONTHEIGHT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,11924,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16114,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11927,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16117,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11928,"ide_methods.bas");}while(r); -S_46762:; +if(!qbevent)break;evnt(26307,16118,"ide_methods.bas");}while(r); +S_52711:; if ((*__LONG_IDECUSTOMFONT)||new_error){ -if(qbevent){evnt(25066,11929,"ide_methods.bas");if(r)goto S_46762;} +if(qbevent){evnt(26307,16119,"ide_methods.bas");if(r)goto S_52711;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11930,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16120,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11932,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16122,"ide_methods.bas");}while(r); } -S_46767:; +S_52716:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26307,16124,"ide_methods.bas");if(r)goto S_52716;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16125,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16127,"ide_methods.bas");}while(r); +} +S_52721:; if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(25066,11934,"ide_methods.bas");if(r)goto S_46767;} +if(qbevent){evnt(26307,16129,"ide_methods.bas");if(r)goto S_52721;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11935,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16130,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11937,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16132,"ide_methods.bas");}while(r); } do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11939,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16134,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE DISPLAY SETTINGS]",23),qbs_new_txt_len("IDE_CustomFontSize",18),qbs_str((int32)(*__LONG_IDECUSTOMFONTHEIGHT))); +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),qbs_str((int32)(*__LONG_IDECUSTOMFONTHEIGHT))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11940,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16135,"ide_methods.bas");}while(r); +do{ +*__LONG_IDENORMALCURSORSTART=*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART; +if(!qbevent)break;evnt(26307,16137,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),FUNC_STR2(__LONG_IDENORMALCURSORSTART)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16138,"ide_methods.bas");}while(r); +do{ +*__LONG_IDENORMALCURSOREND=*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND; +if(!qbevent)break;evnt(26307,16140,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),FUNC_STR2(__LONG_IDENORMALCURSOREND)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16141,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,11943,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16142,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,11948,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16147,"ide_methods.bas");}while(r); do{ *_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,11949,"ide_methods.bas");}while(r); -dl_continue_5273:; +if(!qbevent)break;evnt(26307,16148,"ide_methods.bas");}while(r); +dl_continue_5850:; }while(1); -dl_exit_5273:; +dl_exit_5850:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free184.txt" +#include "free199.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX; @@ -165253,32 +183249,32 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data185.txt" +#include "data200.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,11954,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16153,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11955,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16154,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11956,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16155,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11957,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16156,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11958,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16157,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS= 9 ; -if(!qbevent)break;evnt(25066,11960,"ide_methods.bas");}while(r); +*_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS= 10 ; +if(!qbevent)break;evnt(26307,16159,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&2){ error(10); }else{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4]= 1 ; _FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]=(*_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4]+1; @@ -165294,1157 +183290,1108 @@ while(tmp_long--) ((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDI } } } -if(!qbevent)break;evnt(25066,11961,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16160,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(25066,11962,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16161,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(25066,11963,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16162,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(25066,11964,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16163,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(25066,11965,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16164,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(25066,11966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16165,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(25066,11967,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16166,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(25066,11968,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16167,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(25066,11969,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16168,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(25066,11970,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16169,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECHROMACOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26307,16170,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,11973,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16173,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,11974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16174,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,11975,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16175,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,11976,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16176,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11977,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16177,"ide_methods.bas");}while(r); do{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4]+1; _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]),0,_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]),0,_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,11978,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16178,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,11979,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16179,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11980,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16180,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(25066,11984,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16184,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 , -16734208 , 0 ,1); -if(!qbevent)break;evnt(25066,11985,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16185,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,11987,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16187,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) ),&(pass5301= 73 ),&(pass5302= 19 ),qbs_new_txt_len("IDE Colors",10)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) ),&(pass5886= 73 ),&(pass5887= 20 ),qbs_new_txt_len("IDE Colors",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11988,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16188,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(func_chr( 16 ),qbs_new_txt_len("Normal Text",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11990,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16190,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Keywords",9))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11991,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16191,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Numbers",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16192,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Strings",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16193,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Metacommand/custom keywords",28))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11994,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16194,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Comments",9))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11995,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16195,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Background",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11996,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16196,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Current line background",24))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11997,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16197,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Bracket/selection highlight",28))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11998,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16198,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Menus and dialogs",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16199,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,11999,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16200,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,12000,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,16201,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,12001,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 4 ; +if(!qbevent)break;evnt(26307,16202,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+28))= 30 ; -if(!qbevent)break;evnt(25066,12002,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+28))= 30 ; +if(!qbevent)break;evnt(26307,16203,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+32))= 9 ; -if(!qbevent)break;evnt(25066,12002,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+32))= 10 ; +if(!qbevent)break;evnt(26307,16203,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_L); -if(!qbevent)break;evnt(25066,12003,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_L); +if(!qbevent)break;evnt(26307,16204,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,12004,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,16205,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM= 1 ; -if(!qbevent)break;evnt(25066,12005,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16206,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(25066,12006,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16207,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Item:",6)); -if(!qbevent)break;evnt(25066,12007,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Item:",6)); +if(!qbevent)break;evnt(26307,16208,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5303=func__red32(*__ULONG_IDETEXTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5888=func__red32(*__ULONG_IDETEXTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12009,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16210,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12010,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16211,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12011,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16212,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+20))= 66 ; -if(!qbevent)break;evnt(25066,12012,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; +if(!qbevent)break;evnt(26307,16213,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,12013,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,16214,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(25066,12014,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26307,16215,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,12015,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,16216,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12016,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16217,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12017,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16218,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5305=func__green32(*__ULONG_IDETEXTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5890=func__green32(*__ULONG_IDETEXTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12019,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16220,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12020,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16221,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12021,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16222,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+20))= 66 ; -if(!qbevent)break;evnt(25066,12022,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; +if(!qbevent)break;evnt(26307,16223,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 8 ; -if(!qbevent)break;evnt(25066,12023,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26307,16224,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(25066,12024,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26307,16225,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,12025,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,16226,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12026,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16227,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12027,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16228,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5307=func__blue32(*__ULONG_IDETEXTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5892=func__blue32(*__ULONG_IDETEXTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12029,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16230,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12030,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16231,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12031,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16232,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+20))= 66 ; -if(!qbevent)break;evnt(25066,12032,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; +if(!qbevent)break;evnt(26307,16233,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 11 ; -if(!qbevent)break;evnt(25066,12033,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26307,16234,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(25066,12034,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26307,16235,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,12035,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,16236,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12036,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16237,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12037,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16238,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16240,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,12040,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,16241,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 15 ; -if(!qbevent)break;evnt(25066,12041,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 16 ; +if(!qbevent)break;evnt(26307,16242,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Highlight brackets",19)); -if(!qbevent)break;evnt(25066,12042,"ide_methods.bas");}while(r); -S_46857:; +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Highlight brackets",19)); +if(!qbevent)break;evnt(26307,16243,"ide_methods.bas");}while(r); +S_52817:; if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,12043,"ide_methods.bas");if(r)goto S_46857;} +if(qbevent){evnt(26307,16244,"ide_methods.bas");if(r)goto S_52817;} do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,12043,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,16244,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12045,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16246,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,12046,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,16247,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 16 ; -if(!qbevent)break;evnt(25066,12047,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 17 ; +if(!qbevent)break;evnt(26307,16248,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Multi-highlight (selection)",28)); -if(!qbevent)break;evnt(25066,12048,"ide_methods.bas");}while(r); -S_46864:; +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Multi-highlight (selection)",28)); +if(!qbevent)break;evnt(26307,16249,"ide_methods.bas");}while(r); +S_52824:; if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,12049,"ide_methods.bas");if(r)goto S_46864;} +if(qbevent){evnt(26307,16250,"ide_methods.bas");if(r)goto S_52824;} do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,12049,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,16250,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12051,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16252,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 4 ; -if(!qbevent)break;evnt(25066,12052,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26307,16253,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 17 ; -if(!qbevent)break;evnt(25066,12053,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 18 ; +if(!qbevent)break;evnt(26307,16254,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Keyword highlight",18)); -if(!qbevent)break;evnt(25066,12054,"ide_methods.bas");}while(r); -S_46871:; +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Highlight #keywords and numbers",31)); +if(!qbevent)break;evnt(26307,16255,"ide_methods.bas");}while(r); +S_52831:; if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,12055,"ide_methods.bas");if(r)goto S_46871;} +if(qbevent){evnt(26307,16256,"ide_methods.bas");if(r)goto S_52831;} do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,12055,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,16256,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12057,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16258,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,12058,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,16259,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 19 ; -if(!qbevent)break;evnt(25066,12059,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 20 ; +if(!qbevent)break;evnt(26307,16260,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("Restore #defaults",17)),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,12060,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("Restore #Defaults",17)),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,16261,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,12061,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,16262,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(qbs_new_txt_len("SchemeID",8),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); +*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12063,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16264,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12064,"ide_methods.bas");}while(r); -S_46881:; +if(!qbevent)break;evnt(26307,16265,"ide_methods.bas");}while(r); +S_52841:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(25066,12065,"ide_methods.bas");if(r)goto S_46881;} +if(qbevent){evnt(26307,16266,"ide_methods.bas");if(r)goto S_52841;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(25066,12065,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16266,"ide_methods.bas");}while(r); } -S_46884:; +S_52844:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(25066,12067,"ide_methods.bas");if(r)goto S_46884;} +if(qbevent){evnt(26307,16268,"ide_methods.bas");if(r)goto S_52844;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12068,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16269,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12071,"ide_methods.bas");}while(r); -S_46888:; +if(!qbevent)break;evnt(26307,16272,"ide_methods.bas");}while(r); +S_52848:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(25066,12072,"ide_methods.bas");if(r)goto S_46888;} -S_46889:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 81 )))||new_error){ -if(qbevent){evnt(25066,12073,"ide_methods.bas");if(r)goto S_46889;} +if(qbevent){evnt(26307,16273,"ide_methods.bas");if(r)goto S_52848;} +S_52849:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 )))||new_error){ +if(qbevent){evnt(26307,16274,"ide_methods.bas");if(r)goto S_52849;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12074,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16275,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(25066,12076,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16277,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12077,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16278,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(25066,12080,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16281,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12081,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16282,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12084,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16285,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12085,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16286,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+20))= 9 ; -if(!qbevent)break;evnt(25066,12086,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 9 ; +if(!qbevent)break;evnt(26307,16287,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,12087,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,16288,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+28))= 38 ; -if(!qbevent)break;evnt(25066,12088,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+28))= 38 ; +if(!qbevent)break;evnt(26307,16289,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Scheme",7)); -if(!qbevent)break;evnt(25066,12089,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Scheme",7)); +if(!qbevent)break;evnt(26307,16290,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(25066,12090,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26307,16291,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(25066,12091,"ide_methods.bas");}while(r); -S_46908:; -fornext_value5311= 1 ; -fornext_finalvalue5311= 100 ; -fornext_step5311= 1 ; -if (fornext_step5311<0) fornext_step_negative5311=1; else fornext_step_negative5311=0; -if (new_error) goto fornext_error5311; -goto fornext_entrylabel5311; +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26307,16292,"ide_methods.bas");}while(r); +S_52868:; +fornext_value5896= 1 ; +fornext_finalvalue5896= 100 ; +fornext_step5896= 1 ; +if (fornext_step5896<0) fornext_step_negative5896=1; else fornext_step_negative5896=0; +if (new_error) goto fornext_error5896; +goto fornext_entrylabel5896; while(1){ -fornext_value5311=fornext_step5311+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5311: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5311; -if (fornext_step_negative5311){ -if (fornext_value5311fornext_finalvalue5311) break; +if (fornext_value5896>fornext_finalvalue5896) break; } -fornext_error5311:; -if(qbevent){evnt(25066,12096,"ide_methods.bas");if(r)goto S_46908;} +fornext_error5896:; +if(qbevent){evnt(26307,16297,"ide_methods.bas");if(r)goto S_52868;} do{ -memcpy(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,12096,"ide_methods.bas");}while(r); -fornext_continue_5310:; +memcpy(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,16297,"ide_methods.bas");}while(r); +fornext_continue_5895:; } -fornext_exit_5310:; -S_46911:; +fornext_exit_5895:; +S_52871:; do{ -if(qbevent){evnt(25066,12099,"ide_methods.bas");if(r)goto S_46911;} +if(qbevent){evnt(26307,16300,"ide_methods.bas");if(r)goto S_52871;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,12102,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16303,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,12103,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16304,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,12103,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16304,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,12103,"ide_methods.bas");}while(r); -S_46916:; -fornext_value5314= 1 ; -fornext_finalvalue5314= 100 ; -fornext_step5314= 1 ; -if (fornext_step5314<0) fornext_step_negative5314=1; else fornext_step_negative5314=0; -if (new_error) goto fornext_error5314; -goto fornext_entrylabel5314; +if(!qbevent)break;evnt(26307,16304,"ide_methods.bas");}while(r); +S_52876:; +fornext_value5899= 1 ; +fornext_finalvalue5899= 100 ; +fornext_step5899= 1 ; +if (fornext_step5899<0) fornext_step_negative5899=1; else fornext_step_negative5899=0; +if (new_error) goto fornext_error5899; +goto fornext_entrylabel5899; while(1){ -fornext_value5314=fornext_step5314+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5314: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5314; -if (fornext_step_negative5314){ -if (fornext_value5314fornext_finalvalue5314) break; +if (fornext_value5899>fornext_finalvalue5899) break; } -fornext_error5314:; -if(qbevent){evnt(25066,12104,"ide_methods.bas");if(r)goto S_46916;} -S_46917:; -if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,12105,"ide_methods.bas");if(r)goto S_46917;} +fornext_error5899:; +if(qbevent){evnt(26307,16305,"ide_methods.bas");if(r)goto S_52876;} +S_52877:; +if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,16306,"ide_methods.bas");if(r)goto S_52877;} do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; -if(!qbevent)break;evnt(25066,12108,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; +if(!qbevent)break;evnt(26307,16309,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,12109,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,16310,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,12109,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,16310,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECHOOSECOLORSBOX_LONG_F); -if(!qbevent)break;evnt(25066,12110,"ide_methods.bas");}while(r); -S_46922:; -if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,12111,"ide_methods.bas");if(r)goto S_46922;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHOOSECOLORSBOX_LONG_F); +if(!qbevent)break;evnt(26307,16311,"ide_methods.bas");}while(r); +S_52882:; +if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,16312,"ide_methods.bas");if(r)goto S_52882;} do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,12111,"ide_methods.bas");}while(r); +*_FUNC_IDECHOOSECOLORSBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,16312,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,12111,"ide_methods.bas");}while(r); +*_FUNC_IDECHOOSECOLORSBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,16312,"ide_methods.bas");}while(r); } } -fornext_continue_5313:; +fornext_continue_5898:; } -fornext_exit_5313:; +fornext_exit_5898:; do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,12114,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16315,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12119,"ide_methods.bas");}while(r); -S_46930:; +if(!qbevent)break;evnt(26307,16320,"ide_methods.bas");}while(r); +S_52890:; if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))||new_error){ -if(qbevent){evnt(25066,12120,"ide_methods.bas");if(r)goto S_46930;} +if(qbevent){evnt(26307,16321,"ide_methods.bas");if(r)goto S_52890;} do{ qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,12120,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16321,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12120,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16321,"ide_methods.bas");}while(r); } -S_46935:; +S_52895:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<= 1 ))||new_error){ -if(qbevent){evnt(25066,12121,"ide_methods.bas");if(r)goto S_46935;} +if(qbevent){evnt(26307,16322,"ide_methods.bas");if(r)goto S_52895;} do{ qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12121,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16322,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1))); -if (new_error) goto skip5315; +if (new_error) goto skip5900; makefit(tqbs); qbs_print(tqbs,0); -skip5315: +skip5900: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12122,"ide_methods.bas");}while(r); -S_46939:; +if(!qbevent)break;evnt(26307,16323,"ide_methods.bas");}while(r); +S_52899:; if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))||new_error){ -if(qbevent){evnt(25066,12123,"ide_methods.bas");if(r)goto S_46939;} +if(qbevent){evnt(26307,16324,"ide_methods.bas");if(r)goto S_52899;} do{ qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,12123,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16324,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12123,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16324,"ide_methods.bas");}while(r); } -S_46944:; +S_52904:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID==*__INTEGER_LASTVALIDCOLORSCHEME))||new_error){ -if(qbevent){evnt(25066,12124,"ide_methods.bas");if(r)goto S_46944;} +if(qbevent){evnt(26307,16325,"ide_methods.bas");if(r)goto S_52904;} do{ qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12124,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16325,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 16 )),qbs_new_txt_len(" ",1))); -if (new_error) goto skip5316; +if (new_error) goto skip5901; makefit(tqbs); qbs_print(tqbs,0); -skip5316: +skip5901: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12125,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16326,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12128,"ide_methods.bas");}while(r); -S_46949:; +if(!qbevent)break;evnt(26307,16329,"ide_methods.bas");}while(r); +S_52909:; if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 65 ))))||new_error){ -if(qbevent){evnt(25066,12129,"ide_methods.bas");if(r)goto S_46949;} +if(qbevent){evnt(26307,16330,"ide_methods.bas");if(r)goto S_52909;} do{ qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,12129,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16330,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12129,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16330,"ide_methods.bas");}while(r); } -S_46954:; +S_52914:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ -if(qbevent){evnt(25066,12130,"ide_methods.bas");if(r)goto S_46954;} +if(qbevent){evnt(26307,16331,"ide_methods.bas");if(r)goto S_52914;} do{ qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12130,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16331,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" Save ",6)); -if (new_error) goto skip5317; +if (new_error) goto skip5902; makefit(tqbs); qbs_print(tqbs,0); -skip5317: +skip5902: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12131,"ide_methods.bas");}while(r); -S_46958:; +if(!qbevent)break;evnt(26307,16332,"ide_methods.bas");}while(r); +S_52918:; if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 66 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 72 ))))||new_error){ -if(qbevent){evnt(25066,12132,"ide_methods.bas");if(r)goto S_46958;} +if(qbevent){evnt(26307,16333,"ide_methods.bas");if(r)goto S_52918;} do{ qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,12132,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16333,"ide_methods.bas");}while(r); }else{ do{ qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12132,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16333,"ide_methods.bas");}while(r); } -S_46963:; +S_52923:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES))||new_error){ -if(qbevent){evnt(25066,12133,"ide_methods.bas");if(r)goto S_46963;} +if(qbevent){evnt(26307,16334,"ide_methods.bas");if(r)goto S_52923;} do{ qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(25066,12133,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16334,"ide_methods.bas");}while(r); } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" Erase ",7)); -if (new_error) goto skip5318; +if (new_error) goto skip5903; makefit(tqbs); qbs_print(tqbs,0); -skip5318: +skip5903: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12134,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16335,"ide_methods.bas");}while(r); do{ qbg_sub_color(NULL, 7 ,NULL,2); -if(!qbevent)break;evnt(25066,12136,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16337,"ide_methods.bas");}while(r); do{ sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12138,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16339,"ide_methods.bas");}while(r); do{ sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); -if(!qbevent)break;evnt(25066,12139,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16340,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(25066,12140,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16341,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,16342,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12141,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16343,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12142,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16344,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12143,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16345,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12144,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16346,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12145,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16347,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12146,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16348,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12148,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16350,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12148,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16350,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("R: ",3)); -if (new_error) goto skip5319; +if (new_error) goto skip5904; makefit(tqbs); qbs_print(tqbs,0); -skip5319: +skip5904: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12148,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16350,"ide_methods.bas");}while(r); do{ qbg_sub_color( 4 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12149,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16351,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 26 , 196 )); -if (new_error) goto skip5320; +if (new_error) goto skip5905; makefit(tqbs); qbs_print(tqbs,0); -skip5320: +skip5905: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12149,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16351,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12150,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16352,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12151,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16353,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); -if(!qbevent)break;evnt(25066,12151,"ide_methods.bas");}while(r); -S_46985:; +if(!qbevent)break;evnt(26307,16353,"ide_methods.bas");}while(r); +S_52946:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(25066,12152,"ide_methods.bas");if(r)goto S_46985;} +if(qbevent){evnt(26307,16354,"ide_methods.bas");if(r)goto S_52946;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12152,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16354,"ide_methods.bas");}while(r); } -S_46988:; +S_52949:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(25066,12153,"ide_methods.bas");if(r)goto S_46988;} +if(qbevent){evnt(26307,16355,"ide_methods.bas");if(r)goto S_52949;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12153,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16355,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12154,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER); -if (new_error) goto skip5321; -makefit(tqbs); -qbs_print(tqbs,0); -skip5321: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12154,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16356,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12156,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16358,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12156,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16358,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("G: ",3)); -if (new_error) goto skip5322; +if (new_error) goto skip5906; makefit(tqbs); qbs_print(tqbs,0); -skip5322: +skip5906: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12156,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16358,"ide_methods.bas");}while(r); do{ qbg_sub_color( 5 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12157,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16359,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 26 , 196 )); -if (new_error) goto skip5323; +if (new_error) goto skip5907; makefit(tqbs); qbs_print(tqbs,0); -skip5323: +skip5907: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12157,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16359,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16360,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12159,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16361,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); -if(!qbevent)break;evnt(25066,12159,"ide_methods.bas");}while(r); -S_47001:; +if(!qbevent)break;evnt(26307,16361,"ide_methods.bas");}while(r); +S_52961:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(25066,12160,"ide_methods.bas");if(r)goto S_47001;} +if(qbevent){evnt(26307,16362,"ide_methods.bas");if(r)goto S_52961;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12160,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16362,"ide_methods.bas");}while(r); } -S_47004:; +S_52964:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(25066,12161,"ide_methods.bas");if(r)goto S_47004;} +if(qbevent){evnt(26307,16363,"ide_methods.bas");if(r)goto S_52964;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12161,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16363,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12162,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER); -if (new_error) goto skip5324; -makefit(tqbs); -qbs_print(tqbs,0); -skip5324: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12162,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16364,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12164,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16366,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12164,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16366,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("B: ",3)); -if (new_error) goto skip5325; +if (new_error) goto skip5908; makefit(tqbs); qbs_print(tqbs,0); -skip5325: +skip5908: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12164,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16366,"ide_methods.bas");}while(r); do{ qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12165,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16367,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 26 , 196 )); -if (new_error) goto skip5326; +if (new_error) goto skip5909; makefit(tqbs); qbs_print(tqbs,0); -skip5326: +skip5909: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12165,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16367,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12166,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16368,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12167,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16369,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); -if(!qbevent)break;evnt(25066,12167,"ide_methods.bas");}while(r); -S_47017:; +if(!qbevent)break;evnt(26307,16369,"ide_methods.bas");}while(r); +S_52976:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(25066,12168,"ide_methods.bas");if(r)goto S_47017;} +if(qbevent){evnt(26307,16370,"ide_methods.bas");if(r)goto S_52976;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12168,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16370,"ide_methods.bas");}while(r); } -S_47020:; +S_52979:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(25066,12169,"ide_methods.bas");if(r)goto S_47020;} +if(qbevent){evnt(26307,16371,"ide_methods.bas");if(r)goto S_52979;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12169,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16371,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12170,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER); -if (new_error) goto skip5327; -makefit(tqbs); -qbs_print(tqbs,0); -skip5327: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12170,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16372,"ide_methods.bas");}while(r); +S_52983:; +sc_5910_var=0; +if(qbevent){evnt(26307,16374,"ide_methods.bas");if(r)goto S_52983;} +S_52984:; +if ((((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM>=( 1 ))&&(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM<=( 9 ))))||new_error){ +if(qbevent){evnt(26307,16375,"ide_methods.bas");if(r)goto S_52984;} do{ qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12172,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16376,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12173,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 218 )); -if (new_error) goto skip5328; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,func_string( 25 , 196 )); -if (new_error) goto skip5328; -makefit(tqbs); -qbs_print(tqbs,0); -skip5328: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,qbs_add(func_chr( 218 ),func_string( 25 , 196 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12173,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16377,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12174,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 179 )); -if (new_error) goto skip5329; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,func_space( 25 )); -if (new_error) goto skip5329; -makefit(tqbs); -qbs_print(tqbs,0); -skip5329: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_add(func_chr( 179 ),func_space( 25 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12174,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16378,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12175,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 179 )); -if (new_error) goto skip5330; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,func_space( 25 )); -if (new_error) goto skip5330; -makefit(tqbs); -qbs_print(tqbs,0); -skip5330: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,qbs_add(func_chr( 179 ),func_space( 25 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12175,"ide_methods.bas");}while(r); -S_47032:; -sc_5331_var=0; -if(qbevent){evnt(25066,12177,"ide_methods.bas");if(r)goto S_47032;} -S_47033:; +if(!qbevent)break;evnt(26307,16379,"ide_methods.bas");}while(r); +sc_ec_340_end:; +sc_5910_var=-1; +} +S_52989:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ -if(qbevent){evnt(25066,12178,"ide_methods.bas");if(r)goto S_47033;} +if(qbevent){evnt(26307,16380,"ide_methods.bas");if(r)goto S_52989;} do{ qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12178,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16380,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("myVar% = ",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12178,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16380,"ide_methods.bas");}while(r); +sc_ec_341_end:; +sc_5910_var=-1; } -S_47036:; +S_52992:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ -if(qbevent){evnt(25066,12179,"ide_methods.bas");if(r)goto S_47036;} +if(qbevent){evnt(26307,16381,"ide_methods.bas");if(r)goto S_52992;} do{ qbg_sub_color( 12 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12179,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16381,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("CLS: PRINT",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12179,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16381,"ide_methods.bas");}while(r); +sc_ec_342_end:; +sc_5910_var=-1; } -S_47039:; +S_52995:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ -if(qbevent){evnt(25066,12180,"ide_methods.bas");if(r)goto S_47039;} +if(qbevent){evnt(26307,16382,"ide_methods.bas");if(r)goto S_52995;} do{ qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12180,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16382,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("myVar% = ",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12180,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16382,"ide_methods.bas");}while(r); +sc_ec_343_end:; +sc_5910_var=-1; } -S_47042:; +S_52998:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ -if(qbevent){evnt(25066,12181,"ide_methods.bas");if(r)goto S_47042;} +if(qbevent){evnt(26307,16383,"ide_methods.bas");if(r)goto S_52998;} do{ qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12181,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16383,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_add(qbs_add(qbs_add(func_space( 6 ),func_chr( 34 )),qbs_new_txt_len("Hello, world!",13)),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12181,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16383,"ide_methods.bas");}while(r); +sc_ec_344_end:; +sc_5910_var=-1; } -S_47045:; +S_53001:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ -if(qbevent){evnt(25066,12182,"ide_methods.bas");if(r)goto S_47045;} +if(qbevent){evnt(26307,16384,"ide_methods.bas");if(r)goto S_53001;} do{ qbg_sub_color( 10 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12182,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16384,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("'$DYNAMIC",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12182,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16384,"ide_methods.bas");}while(r); +sc_ec_345_end:; +sc_5910_var=-1; } -S_47048:; +S_53004:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ -if(qbevent){evnt(25066,12183,"ide_methods.bas");if(r)goto S_47048;} +if(qbevent){evnt(26307,16385,"ide_methods.bas");if(r)goto S_53004;} do{ qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12183,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16385,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("'TODO: review this block",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12183,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16385,"ide_methods.bas");}while(r); +sc_ec_346_end:; +sc_5910_var=-1; } -S_47051:; +S_53007:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ -if(qbevent){evnt(25066,12184,"ide_methods.bas");if(r)goto S_47051;} +if(qbevent){evnt(26307,16386,"ide_methods.bas");if(r)goto S_53007;} do{ qbg_sub_color( 1 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12184,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16386,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12184,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16386,"ide_methods.bas");}while(r); +sc_ec_347_end:; +sc_5910_var=-1; } -S_47054:; +S_53010:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ -if(qbevent){evnt(25066,12185,"ide_methods.bas");if(r)goto S_47054;} +if(qbevent){evnt(26307,16387,"ide_methods.bas");if(r)goto S_53010;} do{ qbg_sub_color( 6 , 6 ,NULL,3); -if(!qbevent)break;evnt(25066,12185,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16387,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,func_space( 25 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12185,"ide_methods.bas");}while(r); -sc_5331_var=-1; +if(!qbevent)break;evnt(26307,16387,"ide_methods.bas");}while(r); +sc_ec_348_end:; +sc_5910_var=-1; } -S_47057:; +S_53013:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ -if(qbevent){evnt(25066,12186,"ide_methods.bas");if(r)goto S_47057;} +if(qbevent){evnt(26307,16388,"ide_methods.bas");if(r)goto S_53013;} do{ qbg_sub_color( 6 , 6 ,NULL,3); -if(!qbevent)break;evnt(25066,12187,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16389,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12187,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16389,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12188,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16390,"ide_methods.bas");}while(r); +sc_ec_349_end:; +sc_5910_var=-1; } -sc_5331_end:; +S_53017:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ +if(qbevent){evnt(26307,16391,"ide_methods.bas");if(r)goto S_53017;} do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12191,"ide_methods.bas");}while(r); +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,16392,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT); -if (new_error) goto skip5332; -makefit(tqbs); -qbs_print(tqbs,0); -skip5332: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,qbs_add(qbs_add(func_chr( 218 ),func_string( 24 , 196 )),func_chr( 191 )),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12191,"ide_methods.bas");}while(r); -S_47064:; +if(!qbevent)break;evnt(26307,16393,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_add(qbs_add(func_chr( 179 ),func_space( 24 )),func_chr( 179 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16394,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,qbs_add(qbs_add(func_chr( 192 ),func_string( 24 , 196 )),func_chr( 217 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16395,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len(" Open... Ctrl+O ",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16396,"ide_methods.bas");}while(r); +sc_ec_350_end:; +} +sc_5910_end:; +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16399,"ide_methods.bas");}while(r); +S_53025:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 1 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 3 )))||new_error){ -if(qbevent){evnt(25066,12192,"ide_methods.bas");if(r)goto S_47064;} +if(qbevent){evnt(26307,16400,"ide_methods.bas");if(r)goto S_53025;} do{ qbg_sub_color( 8 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16401,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 49 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12194,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("5",1)); -if (new_error) goto skip5333; -makefit(tqbs); -qbs_print(tqbs,0); -skip5333: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 49 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("5",1),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12194,"ide_methods.bas");}while(r); -S_47068:; +if(!qbevent)break;evnt(26307,16402,"ide_methods.bas");}while(r); +S_53028:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 2 )){ -if(qbevent){evnt(25066,12195,"ide_methods.bas");if(r)goto S_47068;} +if(qbevent){evnt(26307,16403,"ide_methods.bas");if(r)goto S_53028;} do{ qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12196,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16404,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 51 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12197,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("myVar%",6)); -if (new_error) goto skip5334; -makefit(tqbs); -qbs_print(tqbs,0); -skip5334: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 51 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("myVar%",6),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12197,"ide_methods.bas");}while(r); -S_47072:; +if(!qbevent)break;evnt(26307,16405,"ide_methods.bas");}while(r); +S_53031:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 4 )){ -if(qbevent){evnt(25066,12198,"ide_methods.bas");if(r)goto S_47072;} +if(qbevent){evnt(26307,16406,"ide_methods.bas");if(r)goto S_53031;} do{ qbg_sub_color( 12 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12199,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16407,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12200,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("PRINT",5)); -if (new_error) goto skip5335; -makefit(tqbs); -qbs_print(tqbs,0); -skip5335: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("PRINT",5),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12200,"ide_methods.bas");}while(r); -S_47076:; +if(!qbevent)break;evnt(26307,16408,"ide_methods.bas");}while(r); +S_53034:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 5 )){ -if(qbevent){evnt(25066,12201,"ide_methods.bas");if(r)goto S_47076;} +if(qbevent){evnt(26307,16409,"ide_methods.bas");if(r)goto S_53034;} do{ qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12202,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16410,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12203,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("'",1)); -if (new_error) goto skip5336; -makefit(tqbs); -qbs_print(tqbs,0); -skip5336: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("'",1),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12203,"ide_methods.bas");}while(r); -S_47080:; +if(!qbevent)break;evnt(26307,16411,"ide_methods.bas");}while(r); +S_53037:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 9 )){ -if(qbevent){evnt(25066,12204,"ide_methods.bas");if(r)goto S_47080;} +if(qbevent){evnt(26307,16412,"ide_methods.bas");if(r)goto S_53037;} do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12205,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16413,"ide_methods.bas");}while(r); do{ qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,12206,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16414,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("myVar% = ",9)); -if (new_error) goto skip5337; +if (new_error) goto skip5911; makefit(tqbs); qbs_print(tqbs,0); -skip5337: +skip5911: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12206,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16414,"ide_methods.bas");}while(r); do{ qbg_sub_color( 12 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12207,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16415,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("INT RND",7)); -if (new_error) goto skip5338; +if (new_error) goto skip5912; makefit(tqbs); qbs_print(tqbs,0); -skip5338: +skip5912: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12207,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16415,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 52 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12208,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16416,"ide_methods.bas");}while(r); do{ qbg_sub_color( 13 , 6 ,NULL,3); -if(!qbevent)break;evnt(25066,12209,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16417,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("(",1)); -if (new_error) goto skip5339; +if (new_error) goto skip5913; makefit(tqbs); qbs_print(tqbs,0); -skip5339: +skip5913: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12209,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16417,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 56 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12210,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16418,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(")",1)); -if (new_error) goto skip5340; +if (new_error) goto skip5914; makefit(tqbs); qbs_print(tqbs,0); -skip5340: +skip5914: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12211,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16419,"ide_methods.bas");}while(r); +S_53048:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 10 )){ +if(qbevent){evnt(26307,16420,"ide_methods.bas");if(r)goto S_53048;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,16421,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 41 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("O",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16422,"ide_methods.bas");}while(r); +} } } } @@ -166452,698 +184399,734 @@ if(!qbevent)break;evnt(25066,12211,"ide_methods.bas");}while(r); } do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,12216,"ide_methods.bas");}while(r); -S_47093:; +if(!qbevent)break;evnt(26307,16427,"ide_methods.bas");}while(r); +S_53053:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,12217,"ide_methods.bas");if(r)goto S_47093;} +if(qbevent){evnt(26307,16428,"ide_methods.bas");if(r)goto S_53053;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16428,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDECHOOSECOLORSBOX_LONG_CY,*_FUNC_IDECHOOSECOLORSBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,12217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16428,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16428,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,12220,"ide_methods.bas");}while(r); -S_47099:; +if(!qbevent)break;evnt(26307,16431,"ide_methods.bas");}while(r); +S_53059:; do{ -if(qbevent){evnt(25066,12221,"ide_methods.bas");if(r)goto S_47099;} +if(qbevent){evnt(26307,16432,"ide_methods.bas");if(r)goto S_53059;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,12222,"ide_methods.bas");}while(r); -S_47101:; +if(!qbevent)break;evnt(26307,16433,"ide_methods.bas");}while(r); +S_53061:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,12223,"ide_methods.bas");if(r)goto S_47101;} +if(qbevent){evnt(26307,16434,"ide_methods.bas");if(r)goto S_53061;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12223,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16434,"ide_methods.bas");}while(r); } -S_47104:; +S_53064:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,12224,"ide_methods.bas");if(r)goto S_47104;} +if(qbevent){evnt(26307,16435,"ide_methods.bas");if(r)goto S_53064;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12224,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16435,"ide_methods.bas");}while(r); } -S_47107:; +S_53067:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,12225,"ide_methods.bas");if(r)goto S_47107;} +if(qbevent){evnt(26307,16436,"ide_methods.bas");if(r)goto S_53067;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,12225,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16436,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12225,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16436,"ide_methods.bas");}while(r); } -S_47111:; +S_53071:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,12226,"ide_methods.bas");if(r)goto S_47111;} +if(qbevent){evnt(26307,16437,"ide_methods.bas");if(r)goto S_53071;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,12226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16437,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12226,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16437,"ide_methods.bas");}while(r); } -S_47115:; +S_53075:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,12227,"ide_methods.bas");if(r)goto S_47115;} +if(qbevent){evnt(26307,16438,"ide_methods.bas");if(r)goto S_53075;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12227,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16438,"ide_methods.bas");}while(r); } -S_47118:; +S_53078:; if (((-(*__LONG_MX!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX))|(-(*__LONG_MY!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY)))||new_error){ -if(qbevent){evnt(25066,12228,"ide_methods.bas");if(r)goto S_47118;} +if(qbevent){evnt(26307,16439,"ide_methods.bas");if(r)goto S_53078;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16439,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; -if(!qbevent)break;evnt(25066,12228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16439,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; -if(!qbevent)break;evnt(25066,12228,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16439,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,12229,"ide_methods.bas");}while(r); -S_47124:; +if(!qbevent)break;evnt(26307,16440,"ide_methods.bas");}while(r); +S_53084:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT!=*_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,12229,"ide_methods.bas");if(r)goto S_47124;} +if(qbevent){evnt(26307,16440,"ide_methods.bas");if(r)goto S_53084;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12229,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16440,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT=*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,12230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16441,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,12231,"ide_methods.bas");}while(r); -S_47129:; -dl_continue_5341:; +if(!qbevent)break;evnt(26307,16442,"ide_methods.bas");}while(r); +S_53089:; +dl_continue_5915:; }while((!(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5341:; -if(qbevent){evnt(25066,12232,"ide_methods.bas");if(r)goto S_47129;} -S_47130:; +dl_exit_5915:; +if(qbevent){evnt(26307,16443,"ide_methods.bas");if(r)goto S_53089;} +S_53090:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,12233,"ide_methods.bas");if(r)goto S_47130;} +if(qbevent){evnt(26307,16444,"ide_methods.bas");if(r)goto S_53090;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,12233,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16444,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,12233,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16444,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12235,"ide_methods.bas");}while(r); -S_47136:; +if(!qbevent)break;evnt(26307,16446,"ide_methods.bas");}while(r); +S_53096:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,12236,"ide_methods.bas");if(r)goto S_47136;} -S_47137:; +if(qbevent){evnt(26307,16447,"ide_methods.bas");if(r)goto S_53096;} +S_53097:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,12237,"ide_methods.bas");if(r)goto S_47137;} +if(qbevent){evnt(26307,16448,"ide_methods.bas");if(r)goto S_53097;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12238,"ide_methods.bas");}while(r); -S_47139:; +if(!qbevent)break;evnt(26307,16449,"ide_methods.bas");}while(r); +S_53099:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,12239,"ide_methods.bas");if(r)goto S_47139;} +if(qbevent){evnt(26307,16450,"ide_methods.bas");if(r)goto S_53099;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECHOOSECOLORSBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16450,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16453,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,12242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16453,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16453,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,12246,"ide_methods.bas");}while(r); -S_47148:; +if(!qbevent)break;evnt(26307,16457,"ide_methods.bas");}while(r); +S_53108:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,12247,"ide_methods.bas");if(r)goto S_47148;} +if(qbevent){evnt(26307,16458,"ide_methods.bas");if(r)goto S_53108;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16458,"ide_methods.bas");}while(r); } -S_47151:; +S_53111:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,12248,"ide_methods.bas");if(r)goto S_47151;} +if(qbevent){evnt(26307,16459,"ide_methods.bas");if(r)goto S_53111;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,12248,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16459,"ide_methods.bas");}while(r); } -S_47154:; +S_53114:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,12249,"ide_methods.bas");if(r)goto S_47154;} +if(qbevent){evnt(26307,16460,"ide_methods.bas");if(r)goto S_53114;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,12249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16460,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12249,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16460,"ide_methods.bas");}while(r); } -S_47158:; +S_53118:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,12250,"ide_methods.bas");if(r)goto S_47158;} +if(qbevent){evnt(26307,16461,"ide_methods.bas");if(r)goto S_53118;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,12250,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16461,"ide_methods.bas");}while(r); } -S_47161:; +S_53121:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,12251,"ide_methods.bas");if(r)goto S_47161;} +if(qbevent){evnt(26307,16462,"ide_methods.bas");if(r)goto S_53121;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,12251,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16462,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,12252,"ide_methods.bas");}while(r); -S_47165:; -fornext_value5344= 1 ; -fornext_finalvalue5344= 100 ; -fornext_step5344= 1 ; -if (fornext_step5344<0) fornext_step_negative5344=1; else fornext_step_negative5344=0; -if (new_error) goto fornext_error5344; -goto fornext_entrylabel5344; +if(!qbevent)break;evnt(26307,16463,"ide_methods.bas");}while(r); +S_53125:; +fornext_value5918= 1 ; +fornext_finalvalue5918= 100 ; +fornext_step5918= 1 ; +if (fornext_step5918<0) fornext_step_negative5918=1; else fornext_step_negative5918=0; +if (new_error) goto fornext_error5918; +goto fornext_entrylabel5918; while(1){ -fornext_value5344=fornext_step5344+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5344: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5344; -if (fornext_step_negative5344){ -if (fornext_value5344fornext_finalvalue5344) break; +if (fornext_value5918>fornext_finalvalue5918) break; } -fornext_error5344:; -if(qbevent){evnt(25066,12253,"ide_methods.bas");if(r)goto S_47165;} +fornext_error5918:; +if(qbevent){evnt(26307,16464,"ide_methods.bas");if(r)goto S_53125;} do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,12254,"ide_methods.bas");}while(r); -S_47167:; +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,16465,"ide_methods.bas");}while(r); +S_53127:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,12255,"ide_methods.bas");if(r)goto S_47167;} +if(qbevent){evnt(26307,16466,"ide_methods.bas");if(r)goto S_53127;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; -if(!qbevent)break;evnt(25066,12256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16467,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS,_FUNC_IDECHOOSECOLORSBOX_LONG_F,_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHOOSECOLORSBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS,_FUNC_IDECHOOSECOLORSBOX_LONG_F,_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHOOSECOLORSBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12257,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16468,"ide_methods.bas");}while(r); } -fornext_continue_5343:; +fornext_continue_5917:; } -fornext_exit_5343:; -S_47172:; +fornext_exit_5917:; +S_53132:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,12263,"ide_methods.bas");if(r)goto S_47172;} +if(qbevent){evnt(26307,16474,"ide_methods.bas");if(r)goto S_53132;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,12265,"ide_methods.bas");}while(r); -S_47174:; +if(!qbevent)break;evnt(26307,16476,"ide_methods.bas");}while(r); +S_53134:; if (((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 )))||new_error){ -if(qbevent){evnt(25066,12266,"ide_methods.bas");if(r)goto S_47174;} -S_47175:; +if(qbevent){evnt(26307,16477,"ide_methods.bas");if(r)goto S_53134;} +S_53135:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))||new_error){ -if(qbevent){evnt(25066,12267,"ide_methods.bas");if(r)goto S_47175;} +if(qbevent){evnt(26307,16478,"ide_methods.bas");if(r)goto S_53135;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS= 9 ; -if(!qbevent)break;evnt(25066,12267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16478,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; -if(!qbevent)break;evnt(25066,12267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16478,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12268,"ide_methods.bas");}while(r); -S_47181:; -if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,12269,"ide_methods.bas");if(r)goto S_47181;} +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16479,"ide_methods.bas");}while(r); +S_53141:; +if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,16480,"ide_methods.bas");if(r)goto S_53141;} do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12269,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16480,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12270,"ide_methods.bas");}while(r); -S_47185:; +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16481,"ide_methods.bas");}while(r); +S_53145:; if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS<= 4 ))))||new_error){ -if(qbevent){evnt(25066,12271,"ide_methods.bas");if(r)goto S_47185;} +if(qbevent){evnt(26307,16482,"ide_methods.bas");if(r)goto S_53145;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12271,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16482,"ide_methods.bas");}while(r); } } -S_47189:; +S_53149:; }else{ if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS==*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS)){ -if(qbevent){evnt(25066,12273,"ide_methods.bas");if(r)goto S_47189;} -S_47190:; +if(qbevent){evnt(26307,16484,"ide_methods.bas");if(r)goto S_53149;} +S_53150:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 )))||new_error){ -if(qbevent){evnt(25066,12275,"ide_methods.bas");if(r)goto S_47190;} -S_47191:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))||new_error){ -if(qbevent){evnt(25066,12276,"ide_methods.bas");if(r)goto S_47191;} +if(qbevent){evnt(26307,16486,"ide_methods.bas");if(r)goto S_53150;} +S_53151:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))||new_error){ +if(qbevent){evnt(26307,16487,"ide_methods.bas");if(r)goto S_53151;} do{ -return_point[next_return_point++]=57; +return_point[next_return_point++]=169; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; -RETURN_57:; -if(!qbevent)break;evnt(25066,12277,"ide_methods.bas");}while(r); +RETURN_169:; +if(!qbevent)break;evnt(26307,16488,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12278,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16489,"ide_methods.bas");}while(r); } } } } -S_47197:; -if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES)))&*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,12284,"ide_methods.bas");if(r)goto S_47197;} -S_47198:; +S_53157:; +if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES)))&*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,16495,"ide_methods.bas");if(r)goto S_53157;} +S_53158:; if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 65 ))))||new_error){ -if(qbevent){evnt(25066,12285,"ide_methods.bas");if(r)goto S_47198;} -S_47199:; +if(qbevent){evnt(26307,16496,"ide_methods.bas");if(r)goto S_53158;} +S_53159:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(25066,12287,"ide_methods.bas");if(r)goto S_47199;} +if(qbevent){evnt(26307,16498,"ide_methods.bas");if(r)goto S_53159;} LABEL_SAVENEW:; -if(qbevent){evnt(25066,12288,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,16499,"ide_methods.bas");r=0;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12289,"ide_methods.bas");}while(r); -S_47201:; +if(!qbevent)break;evnt(26307,16500,"ide_methods.bas");}while(r); +S_53161:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING->len== 0 )))||new_error){ -if(qbevent){evnt(25066,12290,"ide_methods.bas");if(r)goto S_47201;} +if(qbevent){evnt(26307,16501,"ide_methods.bas");if(r)goto S_53161;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16501,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,12292,"ide_methods.bas");}while(r); -S_47205:; +if(!qbevent)break;evnt(26307,16503,"ide_methods.bas");}while(r); +S_53165:; do{ -if(qbevent){evnt(25066,12293,"ide_methods.bas");if(r)goto S_47205;} +if(qbevent){evnt(26307,16504,"ide_methods.bas");if(r)goto S_53165;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12294,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16505,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); +*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12295,"ide_methods.bas");}while(r); -S_47208:; +if(!qbevent)break;evnt(26307,16506,"ide_methods.bas");}while(r); +S_53168:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE,qbs_new_txt_len("",0)))|(qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(25066,12296,"ide_methods.bas");if(r)goto S_47208;} +if(qbevent){evnt(26307,16507,"ide_methods.bas");if(r)goto S_53168;} do{ -goto dl_exit_5347; -if(!qbevent)break;evnt(25066,12296,"ide_methods.bas");}while(r); +goto dl_exit_5921; +if(!qbevent)break;evnt(26307,16507,"ide_methods.bas");}while(r); } -dl_continue_5347:; +dl_continue_5921:; }while(1); -dl_exit_5347:; +dl_exit_5921:; do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("|",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12300,"ide_methods.bas");}while(r); -S_47213:; -fornext_value5349= 1 ; -fornext_finalvalue5349= 9 ; -fornext_step5349= 1 ; -if (fornext_step5349<0) fornext_step_negative5349=1; else fornext_step_negative5349=0; -if (new_error) goto fornext_error5349; -goto fornext_entrylabel5349; +if(!qbevent)break;evnt(26307,16511,"ide_methods.bas");}while(r); +S_53173:; +fornext_value5923= 1 ; +fornext_finalvalue5923= 10 ; +fornext_step5923= 1 ; +if (fornext_step5923<0) fornext_step_negative5923=1; else fornext_step_negative5923=0; +if (new_error) goto fornext_error5923; +goto fornext_entrylabel5923; while(1){ -fornext_value5349=fornext_step5349+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); -fornext_entrylabel5349: -*_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5349; -if (fornext_step_negative5349){ -if (fornext_value5349fornext_finalvalue5349) break; +if (fornext_value5923>fornext_finalvalue5923) break; } -fornext_error5349:; -if(qbevent){evnt(25066,12301,"ide_methods.bas");if(r)goto S_47213;} -S_47214:; -if(qbevent){evnt(25066,12302,"ide_methods.bas");if(r)goto S_47214;} -S_47215:; +fornext_error5923:; +if(qbevent){evnt(26307,16512,"ide_methods.bas");if(r)goto S_53173;} +S_53174:; +if(qbevent){evnt(26307,16513,"ide_methods.bas");if(r)goto S_53174;} +S_53175:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 1 )))||new_error){ -if(qbevent){evnt(25066,12303,"ide_methods.bas");if(r)goto S_47215;} +if(qbevent){evnt(26307,16514,"ide_methods.bas");if(r)goto S_53175;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(25066,12303,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16514,"ide_methods.bas");}while(r); +sc_ec_351_end:; +goto sc_5924_end; } -S_47217:; +S_53177:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 2 )))||new_error){ -if(qbevent){evnt(25066,12304,"ide_methods.bas");if(r)goto S_47217;} +if(qbevent){evnt(26307,16515,"ide_methods.bas");if(r)goto S_53177;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(25066,12304,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16515,"ide_methods.bas");}while(r); +sc_ec_352_end:; +goto sc_5924_end; } -S_47219:; +S_53179:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 3 )))||new_error){ -if(qbevent){evnt(25066,12305,"ide_methods.bas");if(r)goto S_47219;} +if(qbevent){evnt(26307,16516,"ide_methods.bas");if(r)goto S_53179;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(25066,12305,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16516,"ide_methods.bas");}while(r); +sc_ec_353_end:; +goto sc_5924_end; } -S_47221:; +S_53181:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 4 )))||new_error){ -if(qbevent){evnt(25066,12306,"ide_methods.bas");if(r)goto S_47221;} +if(qbevent){evnt(26307,16517,"ide_methods.bas");if(r)goto S_53181;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(25066,12306,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16517,"ide_methods.bas");}while(r); +sc_ec_354_end:; +goto sc_5924_end; } -S_47223:; +S_53183:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 5 )))||new_error){ -if(qbevent){evnt(25066,12307,"ide_methods.bas");if(r)goto S_47223;} +if(qbevent){evnt(26307,16518,"ide_methods.bas");if(r)goto S_53183;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(25066,12307,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16518,"ide_methods.bas");}while(r); +sc_ec_355_end:; +goto sc_5924_end; } -S_47225:; +S_53185:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 6 )))||new_error){ -if(qbevent){evnt(25066,12308,"ide_methods.bas");if(r)goto S_47225;} +if(qbevent){evnt(26307,16519,"ide_methods.bas");if(r)goto S_53185;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(25066,12308,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16519,"ide_methods.bas");}while(r); +sc_ec_356_end:; +goto sc_5924_end; } -S_47227:; +S_53187:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 7 )))||new_error){ -if(qbevent){evnt(25066,12309,"ide_methods.bas");if(r)goto S_47227;} +if(qbevent){evnt(26307,16520,"ide_methods.bas");if(r)goto S_53187;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(25066,12309,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16520,"ide_methods.bas");}while(r); +sc_ec_357_end:; +goto sc_5924_end; } -S_47229:; +S_53189:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 8 )))||new_error){ -if(qbevent){evnt(25066,12310,"ide_methods.bas");if(r)goto S_47229;} +if(qbevent){evnt(26307,16521,"ide_methods.bas");if(r)goto S_53189;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(25066,12310,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16521,"ide_methods.bas");}while(r); +sc_ec_358_end:; +goto sc_5924_end; } -S_47231:; +S_53191:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 9 )))||new_error){ -if(qbevent){evnt(25066,12311,"ide_methods.bas");if(r)goto S_47231;} +if(qbevent){evnt(26307,16522,"ide_methods.bas");if(r)goto S_53191;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(25066,12311,"ide_methods.bas");}while(r); -goto sc_5350_end; +if(!qbevent)break;evnt(26307,16522,"ide_methods.bas");}while(r); +sc_ec_359_end:; +goto sc_5924_end; } -sc_5350_end:; +S_53193:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 10 )))||new_error){ +if(qbevent){evnt(26307,16523,"ide_methods.bas");if(r)goto S_53193;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5351=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26307,16523,"ide_methods.bas");}while(r); +sc_ec_360_end:; +goto sc_5924_end; +} +sc_5924_end:; +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5925=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16526,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_R->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12314,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16526,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5353=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5927=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16527,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_G->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_G)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16527,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5355=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5929=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12316,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16528,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_B->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12316,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16528,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,_FUNC_IDECHOOSECOLORSBOX_STRING_R),_FUNC_IDECHOOSECOLORSBOX_STRING_G),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12317,"ide_methods.bas");}while(r); -fornext_continue_5348:; +if(!qbevent)break;evnt(26307,16529,"ide_methods.bas");}while(r); +fornext_continue_5922:; } -fornext_exit_5348:; +fornext_exit_5922:; do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12321,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16533,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(25066,12322,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16534,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; -if(!qbevent)break;evnt(25066,12323,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16535,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12324,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16536,"ide_methods.bas");}while(r); do{ goto LABEL_APPLYSCHEME; -if(!qbevent)break;evnt(25066,12325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16537,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12327,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16539,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12328,"ide_methods.bas");}while(r); -S_47250:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ -if(qbevent){evnt(25066,12330,"ide_methods.bas");if(r)goto S_47250;} +if(!qbevent)break;evnt(26307,16540,"ide_methods.bas");}while(r); +S_53212:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26307,16542,"ide_methods.bas");if(r)goto S_53212;} do{ goto LABEL_SAVENEW; -if(!qbevent)break;evnt(25066,12332,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16544,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; -if(!qbevent)break;evnt(25066,12335,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16547,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("|",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12336,"ide_methods.bas");}while(r); -S_47255:; -fornext_value5358= 1 ; -fornext_finalvalue5358= 9 ; -fornext_step5358= 1 ; -if (fornext_step5358<0) fornext_step_negative5358=1; else fornext_step_negative5358=0; -if (new_error) goto fornext_error5358; -goto fornext_entrylabel5358; +if(!qbevent)break;evnt(26307,16548,"ide_methods.bas");}while(r); +S_53217:; +fornext_value5932= 1 ; +fornext_finalvalue5932= 10 ; +fornext_step5932= 1 ; +if (fornext_step5932<0) fornext_step_negative5932=1; else fornext_step_negative5932=0; +if (new_error) goto fornext_error5932; +goto fornext_entrylabel5932; while(1){ -fornext_value5358=fornext_step5358+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); -fornext_entrylabel5358: -*_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5358; -if (fornext_step_negative5358){ -if (fornext_value5358fornext_finalvalue5358) break; +if (fornext_value5932>fornext_finalvalue5932) break; } -fornext_error5358:; -if(qbevent){evnt(25066,12339,"ide_methods.bas");if(r)goto S_47255;} -S_47256:; -if(qbevent){evnt(25066,12340,"ide_methods.bas");if(r)goto S_47256;} -S_47257:; +fornext_error5932:; +if(qbevent){evnt(26307,16551,"ide_methods.bas");if(r)goto S_53217;} +S_53218:; +if(qbevent){evnt(26307,16552,"ide_methods.bas");if(r)goto S_53218;} +S_53219:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 1 )))||new_error){ -if(qbevent){evnt(25066,12341,"ide_methods.bas");if(r)goto S_47257;} +if(qbevent){evnt(26307,16553,"ide_methods.bas");if(r)goto S_53219;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(25066,12341,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16553,"ide_methods.bas");}while(r); +sc_ec_361_end:; +goto sc_5933_end; } -S_47259:; +S_53221:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 2 )))||new_error){ -if(qbevent){evnt(25066,12342,"ide_methods.bas");if(r)goto S_47259;} +if(qbevent){evnt(26307,16554,"ide_methods.bas");if(r)goto S_53221;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(25066,12342,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16554,"ide_methods.bas");}while(r); +sc_ec_362_end:; +goto sc_5933_end; } -S_47261:; +S_53223:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 3 )))||new_error){ -if(qbevent){evnt(25066,12343,"ide_methods.bas");if(r)goto S_47261;} +if(qbevent){evnt(26307,16555,"ide_methods.bas");if(r)goto S_53223;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(25066,12343,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16555,"ide_methods.bas");}while(r); +sc_ec_363_end:; +goto sc_5933_end; } -S_47263:; +S_53225:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 4 )))||new_error){ -if(qbevent){evnt(25066,12344,"ide_methods.bas");if(r)goto S_47263;} +if(qbevent){evnt(26307,16556,"ide_methods.bas");if(r)goto S_53225;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(25066,12344,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16556,"ide_methods.bas");}while(r); +sc_ec_364_end:; +goto sc_5933_end; } -S_47265:; +S_53227:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 5 )))||new_error){ -if(qbevent){evnt(25066,12345,"ide_methods.bas");if(r)goto S_47265;} +if(qbevent){evnt(26307,16557,"ide_methods.bas");if(r)goto S_53227;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(25066,12345,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16557,"ide_methods.bas");}while(r); +sc_ec_365_end:; +goto sc_5933_end; } -S_47267:; +S_53229:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 6 )))||new_error){ -if(qbevent){evnt(25066,12346,"ide_methods.bas");if(r)goto S_47267;} +if(qbevent){evnt(26307,16558,"ide_methods.bas");if(r)goto S_53229;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(25066,12346,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16558,"ide_methods.bas");}while(r); +sc_ec_366_end:; +goto sc_5933_end; } -S_47269:; +S_53231:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 7 )))||new_error){ -if(qbevent){evnt(25066,12347,"ide_methods.bas");if(r)goto S_47269;} +if(qbevent){evnt(26307,16559,"ide_methods.bas");if(r)goto S_53231;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(25066,12347,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16559,"ide_methods.bas");}while(r); +sc_ec_367_end:; +goto sc_5933_end; } -S_47271:; +S_53233:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 8 )))||new_error){ -if(qbevent){evnt(25066,12348,"ide_methods.bas");if(r)goto S_47271;} +if(qbevent){evnt(26307,16560,"ide_methods.bas");if(r)goto S_53233;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(25066,12348,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16560,"ide_methods.bas");}while(r); +sc_ec_368_end:; +goto sc_5933_end; } -S_47273:; +S_53235:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 9 )))||new_error){ -if(qbevent){evnt(25066,12349,"ide_methods.bas");if(r)goto S_47273;} +if(qbevent){evnt(26307,16561,"ide_methods.bas");if(r)goto S_53235;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(25066,12349,"ide_methods.bas");}while(r); -goto sc_5359_end; +if(!qbevent)break;evnt(26307,16561,"ide_methods.bas");}while(r); +sc_ec_369_end:; +goto sc_5933_end; } -sc_5359_end:; +S_53237:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_J==( 10 )))||new_error){ +if(qbevent){evnt(26307,16562,"ide_methods.bas");if(r)goto S_53237;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5360=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26307,16562,"ide_methods.bas");}while(r); +sc_ec_370_end:; +goto sc_5933_end; +} +sc_5933_end:; +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5934=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12352,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16565,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_R->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12352,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16565,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5362=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5936=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12353,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16566,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_G->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_G)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12353,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16566,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5364=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5938=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12354,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16567,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_B->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12354,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16567,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,_FUNC_IDECHOOSECOLORSBOX_STRING_R),_FUNC_IDECHOOSECOLORSBOX_STRING_G),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12355,"ide_methods.bas");}while(r); -fornext_continue_5357:; +if(!qbevent)break;evnt(26307,16568,"ide_methods.bas");}while(r); +fornext_continue_5931:; } -fornext_exit_5357:; +fornext_exit_5931:; do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16572,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(25066,12360,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16573,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; -if(!qbevent)break;evnt(25066,12361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16574,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16575,"ide_methods.bas");}while(r); do{ goto LABEL_APPLYSCHEME; -if(!qbevent)break;evnt(25066,12363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16576,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12365,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16578,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12366,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16579,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12367,"ide_methods.bas");}while(r); -S_47293:; +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16580,"ide_methods.bas");}while(r); +S_53257:; }else{ if ((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 66 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 72 )))){ -if(qbevent){evnt(25066,12368,"ide_methods.bas");if(r)goto S_47293;} -S_47294:; +if(qbevent){evnt(26307,16581,"ide_methods.bas");if(r)goto S_53257;} +S_53258:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES))||new_error){ -if(qbevent){evnt(25066,12370,"ide_methods.bas");if(r)goto S_47294;} +if(qbevent){evnt(26307,16583,"ide_methods.bas");if(r)goto S_53258;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Erase color scheme",18),qbs_new_txt_len("This cannot be undone. Erase scheme?",36))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12371,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16584,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12372,"ide_methods.bas");}while(r); -S_47297:; +if(!qbevent)break;evnt(26307,16585,"ide_methods.bas");}while(r); +S_53261:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,12373,"ide_methods.bas");if(r)goto S_47297;} +if(qbevent){evnt(26307,16586,"ide_methods.bas");if(r)goto S_53261;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; -if(!qbevent)break;evnt(25066,12374,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16587,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),qbs_new_txt_len("0",1)); +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16588,"ide_methods.bas");}while(r); do{ SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(25066,12376,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16589,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; -if(!qbevent)break;evnt(25066,12377,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16590,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12378,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16591,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(25066,12379,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16592,"ide_methods.bas");}while(r); do{ goto LABEL_VALIDATESCHEME; -if(!qbevent)break;evnt(25066,12380,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16593,"ide_methods.bas");}while(r); } } } @@ -167151,1369 +185134,1490 @@ if(!qbevent)break;evnt(25066,12380,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= 0 ; -if(!qbevent)break;evnt(25066,12387,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16600,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 0 ; -if(!qbevent)break;evnt(25066,12388,"ide_methods.bas");}while(r); -S_47311:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 75 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(25066,12390,"ide_methods.bas");if(r)goto S_47311;} +if(!qbevent)break;evnt(26307,16601,"ide_methods.bas");}while(r); +S_53275:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_MCLICK&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 75 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26307,16603,"ide_methods.bas");if(r)goto S_53275;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(25066,12391,"ide_methods.bas");}while(r); -S_47313:; +if(!qbevent)break;evnt(26307,16604,"ide_methods.bas");}while(r); +S_53277:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(25066,12392,"ide_methods.bas");if(r)goto S_47313;} +if(qbevent){evnt(26307,16605,"ide_methods.bas");if(r)goto S_53277;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12393,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16606,"ide_methods.bas");}while(r); do{ goto LABEL_LOADDEFAULTSCHEME; -if(!qbevent)break;evnt(25066,12394,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16607,"ide_methods.bas");}while(r); }else{ -S_47317:; +S_53281:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 1 ))||new_error){ -if(qbevent){evnt(25066,12396,"ide_methods.bas");if(r)goto S_47317;} +if(qbevent){evnt(26307,16609,"ide_methods.bas");if(r)goto S_53281;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; -if(!qbevent)break;evnt(25066,12396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16609,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16609,"ide_methods.bas");}while(r); } } -S_47322:; +S_53286:; }else{ -if (qbs_cleanup(qbs_tmp_base,(*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 77 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 )))))){ -if(qbevent){evnt(25066,12399,"ide_methods.bas");if(r)goto S_47322;} +if (qbs_cleanup(qbs_tmp_base,(*__LONG_MCLICK&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 77 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 )))))){ +if(qbevent){evnt(26307,16612,"ide_methods.bas");if(r)goto S_53286;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; -if(!qbevent)break;evnt(25066,12400,"ide_methods.bas");}while(r); -S_47324:; +if(!qbevent)break;evnt(26307,16613,"ide_methods.bas");}while(r); +S_53288:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(25066,12401,"ide_methods.bas");if(r)goto S_47324;} +if(qbevent){evnt(26307,16614,"ide_methods.bas");if(r)goto S_53288;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12402,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16615,"ide_methods.bas");}while(r); do{ goto LABEL_LOADDEFAULTSCHEME; -if(!qbevent)break;evnt(25066,12403,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16616,"ide_methods.bas");}while(r); }else{ -S_47328:; +S_53292:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(25066,12405,"ide_methods.bas");if(r)goto S_47328;} +if(qbevent){evnt(26307,16618,"ide_methods.bas");if(r)goto S_53292;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+ 1 ; -if(!qbevent)break;evnt(25066,12405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16618,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(25066,12405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16618,"ide_methods.bas");}while(r); } } } } -S_47334:; +S_53298:; if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ -if(qbevent){evnt(25066,12409,"ide_methods.bas");if(r)goto S_47334;} -S_47335:; +if(qbevent){evnt(26307,16622,"ide_methods.bas");if(r)goto S_53298;} +S_53299:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW== 0 ))||new_error){ -if(qbevent){evnt(25066,12411,"ide_methods.bas");if(r)goto S_47335;} +if(qbevent){evnt(26307,16624,"ide_methods.bas");if(r)goto S_53299;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; -if(!qbevent)break;evnt(25066,12411,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16624,"ide_methods.bas");}while(r); } LABEL_VALIDATESCHEME:; -if(qbevent){evnt(25066,12412,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,16625,"ide_methods.bas");r=0;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12413,"ide_methods.bas");}while(r); -S_47339:; +if(!qbevent)break;evnt(26307,16626,"ide_methods.bas");}while(r); +S_53303:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(25066,12414,"ide_methods.bas");if(r)goto S_47339;} -S_47340:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 81 )))||new_error){ -if(qbevent){evnt(25066,12415,"ide_methods.bas");if(r)goto S_47340;} +if(qbevent){evnt(26307,16627,"ide_methods.bas");if(r)goto S_53303;} +S_53304:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 )))||new_error){ +if(qbevent){evnt(26307,16628,"ide_methods.bas");if(r)goto S_53304;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12416,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16629,"ide_methods.bas");}while(r); }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; -if(!qbevent)break;evnt(25066,12418,"ide_methods.bas");}while(r); -S_47344:; +if(!qbevent)break;evnt(26307,16631,"ide_methods.bas");}while(r); +S_53308:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(25066,12419,"ide_methods.bas");if(r)goto S_47344;} +if(qbevent){evnt(26307,16632,"ide_methods.bas");if(r)goto S_53308;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(25066,12419,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16632,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(25066,12419,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16632,"ide_methods.bas");}while(r); } -S_47348:; +S_53312:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ -if(qbevent){evnt(25066,12420,"ide_methods.bas");if(r)goto S_47348;} +if(qbevent){evnt(26307,16633,"ide_methods.bas");if(r)goto S_53312;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; -if(!qbevent)break;evnt(25066,12420,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16633,"ide_methods.bas");}while(r); } do{ goto LABEL_VALIDATESCHEME; -if(!qbevent)break;evnt(25066,12421,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16634,"ide_methods.bas");}while(r); } }else{ do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; -if(!qbevent)break;evnt(25066,12424,"ide_methods.bas");}while(r); -S_47355:; +if(!qbevent)break;evnt(26307,16637,"ide_methods.bas");}while(r); +S_53319:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(25066,12425,"ide_methods.bas");if(r)goto S_47355;} +if(qbevent){evnt(26307,16638,"ide_methods.bas");if(r)goto S_53319;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(25066,12425,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16638,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(25066,12425,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16638,"ide_methods.bas");}while(r); } -S_47359:; +S_53323:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ -if(qbevent){evnt(25066,12426,"ide_methods.bas");if(r)goto S_47359;} +if(qbevent){evnt(26307,16639,"ide_methods.bas");if(r)goto S_53323;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; -if(!qbevent)break;evnt(25066,12426,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16639,"ide_methods.bas");}while(r); } do{ goto LABEL_VALIDATESCHEME; -if(!qbevent)break;evnt(25066,12427,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16640,"ide_methods.bas");}while(r); } LABEL_APPLYSCHEME:; -if(qbevent){evnt(25066,12429,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,16642,"ide_methods.bas");r=0;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12430,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16643,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12431,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16644,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12432,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16645,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12433,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16646,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12434,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16647,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])), 81 )); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])), 90 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16648,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 1 ; -if(!qbevent)break;evnt(25066,12436,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16649,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16650,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16650,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16650,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16650,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16650,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12437,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16650,"ide_methods.bas");}while(r); do{ *__ULONG_IDETEXTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12438,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16651,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16652,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16652,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16652,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16652,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16652,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12439,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16652,"ide_methods.bas");}while(r); do{ *__ULONG_IDEKEYWORDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12440,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16653,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16654,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16654,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16654,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16654,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16654,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12441,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16654,"ide_methods.bas");}while(r); do{ *__ULONG_IDENUMBERSCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12442,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16655,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16656,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16656,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16656,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16656,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16656,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12443,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16656,"ide_methods.bas");}while(r); do{ *__ULONG_IDEQUOTECOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12444,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16657,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16658,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16658,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16658,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16658,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16658,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12445,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16658,"ide_methods.bas");}while(r); do{ *__ULONG_IDEMETACOMMANDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12446,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16659,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16660,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16660,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16660,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16660,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16660,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12447,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16660,"ide_methods.bas");}while(r); do{ *__ULONG_IDECOMMENTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12448,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16661,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16662,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16662,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16662,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16662,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16662,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12449,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16662,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBACKGROUNDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12450,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16663,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16664,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16664,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16664,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16664,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16664,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12451,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16664,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12452,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16665,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16666,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16666,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16666,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16666,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16666,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,12453,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16666,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12454,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16667,"ide_methods.bas");}while(r); do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,12455,"ide_methods.bas");}while(r); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16668,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26307,16668,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16668,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26307,16668,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16668,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26307,16668,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDECHROMACOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16669,"ide_methods.bas");}while(r); do{ goto LABEL_CHANGETEXTBOXES; -if(!qbevent)break;evnt(25066,12456,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16670,"ide_methods.bas");}while(r); } -S_47437:; +S_53407:; if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ -if(qbevent){evnt(25066,12459,"ide_methods.bas");if(r)goto S_47437;} +if(qbevent){evnt(26307,16673,"ide_methods.bas");if(r)goto S_53407;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); -if(!qbevent)break;evnt(25066,12460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16674,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12461,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16675,"ide_methods.bas");}while(r); +S_53410:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26307,16676,"ide_methods.bas");if(r)goto S_53410;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16677,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16678,"ide_methods.bas");}while(r); +} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 2 ; -if(!qbevent)break;evnt(25066,12462,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16680,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12463,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16681,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12464,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16682,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12465,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16683,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=58; +return_point[next_return_point++]=170; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; -RETURN_58:; -if(!qbevent)break;evnt(25066,12466,"ide_methods.bas");}while(r); +RETURN_170:; +if(!qbevent)break;evnt(26307,16684,"ide_methods.bas");}while(r); } -S_47446:; +S_53420:; if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ -if(qbevent){evnt(25066,12469,"ide_methods.bas");if(r)goto S_47446;} +if(qbevent){evnt(26307,16687,"ide_methods.bas");if(r)goto S_53420;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); -if(!qbevent)break;evnt(25066,12470,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16688,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12471,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16689,"ide_methods.bas");}while(r); +S_53423:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26307,16690,"ide_methods.bas");if(r)goto S_53423;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16691,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16692,"ide_methods.bas");}while(r); +} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 3 ; -if(!qbevent)break;evnt(25066,12472,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16694,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12473,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16695,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12474,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16696,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12475,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16697,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=59; +return_point[next_return_point++]=171; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; -RETURN_59:; -if(!qbevent)break;evnt(25066,12476,"ide_methods.bas");}while(r); +RETURN_171:; +if(!qbevent)break;evnt(26307,16698,"ide_methods.bas");}while(r); } -S_47455:; +S_53433:; if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ -if(qbevent){evnt(25066,12479,"ide_methods.bas");if(r)goto S_47455;} +if(qbevent){evnt(26307,16701,"ide_methods.bas");if(r)goto S_53433;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); -if(!qbevent)break;evnt(25066,12480,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16702,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12481,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16703,"ide_methods.bas");}while(r); +S_53436:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26307,16704,"ide_methods.bas");if(r)goto S_53436;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16705,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16706,"ide_methods.bas");}while(r); +} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 4 ; -if(!qbevent)break;evnt(25066,12482,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16708,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12483,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16709,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12484,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16710,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12485,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16711,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=60; +return_point[next_return_point++]=172; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; -RETURN_60:; -if(!qbevent)break;evnt(25066,12486,"ide_methods.bas");}while(r); +RETURN_172:; +if(!qbevent)break;evnt(26307,16712,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= 0 ; -if(!qbevent)break;evnt(25066,12489,"ide_methods.bas");}while(r); -S_47465:; +if(!qbevent)break;evnt(26307,16715,"ide_methods.bas");}while(r); +S_53447:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))))))||new_error){ -if(qbevent){evnt(25066,12490,"ide_methods.bas");if(r)goto S_47465;} +if(qbevent){evnt(26307,16716,"ide_methods.bas");if(r)goto S_53447;} do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5371=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5945=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12491,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16717,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12492,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16718,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12492,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16718,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12492,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16718,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(25066,12493,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16719,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=61; +return_point[next_return_point++]=173; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; -RETURN_61:; -if(!qbevent)break;evnt(25066,12494,"ide_methods.bas");}while(r); +RETURN_173:; +if(!qbevent)break;evnt(26307,16720,"ide_methods.bas");}while(r); } -S_47473:; +S_53455:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))))))||new_error){ -if(qbevent){evnt(25066,12497,"ide_methods.bas");if(r)goto S_47473;} +if(qbevent){evnt(26307,16723,"ide_methods.bas");if(r)goto S_53455;} do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5373=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5947=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12498,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16724,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12499,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16725,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12499,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16725,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12499,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,16725,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(25066,12500,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16726,"ide_methods.bas");}while(r); do{ -return_point[next_return_point++]=62; +return_point[next_return_point++]=174; if (next_return_point>=return_points) more_return_points(); goto LABEL_NEWUSERSCHEME; -RETURN_62:; -if(!qbevent)break;evnt(25066,12501,"ide_methods.bas");}while(r); +RETURN_174:; +if(!qbevent)break;evnt(26307,16727,"ide_methods.bas");}while(r); } -S_47481:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM!=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))))&(-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64))> 0 )))||new_error){ -if(qbevent){evnt(25066,12504,"ide_methods.bas");if(r)goto S_47481;} +S_53463:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM!=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))))&(-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))> 0 )))||new_error){ +if(qbevent){evnt(26307,16730,"ide_methods.bas");if(r)goto S_53463;} do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,12505,"ide_methods.bas");}while(r); -S_47483:; -fornext_value5376= 1 ; -fornext_finalvalue5376= 9 ; -fornext_step5376= 1 ; -if (fornext_step5376<0) fornext_step_negative5376=1; else fornext_step_negative5376=0; -if (new_error) goto fornext_error5376; -goto fornext_entrylabel5376; +*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16731,"ide_methods.bas");}while(r); +S_53465:; +fornext_value5950= 1 ; +fornext_finalvalue5950= 10 ; +fornext_step5950= 1 ; +if (fornext_step5950<0) fornext_step_negative5950=1; else fornext_step_negative5950=0; +if (new_error) goto fornext_error5950; +goto fornext_entrylabel5950; while(1){ -fornext_value5376=fornext_step5376+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5376: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5376; -if (fornext_step_negative5376){ -if (fornext_value5376fornext_finalvalue5376) break; +if (fornext_value5950>fornext_finalvalue5950) break; } -fornext_error5376:; -if(qbevent){evnt(25066,12506,"ide_methods.bas");if(r)goto S_47483;} +fornext_error5950:; +if(qbevent){evnt(26307,16732,"ide_methods.bas");if(r)goto S_53465;} do{ tmp_long=array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long])),qbs_new_txt_len(" ",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12506,"ide_methods.bas");}while(r); -fornext_continue_5375:; +if(!qbevent)break;evnt(26307,16732,"ide_methods.bas");}while(r); +fornext_continue_5949:; } -fornext_exit_5375:; +fornext_exit_5949:; do{ tmp_long=array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long])),func_chr( 16 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12507,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16733,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,12509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16735,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16736,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])])),qbs_new_txt_len("Normal Text",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16736,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12511,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16737,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Keywords",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12511,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16737,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16738,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Numbers",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16738,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16739,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Strings",7))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12513,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16739,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16740,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Metacommand/custom keywords",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12514,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16740,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12515,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16741,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Comments",8))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12515,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16741,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12516,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16742,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Background",10))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12516,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16742,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16743,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Current line background",23))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16743,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12518,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16744,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Bracket/selection highlight",27))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12518,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16744,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,16745,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Menus and dialogs",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16745,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12519,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16746,"ide_methods.bas");}while(r); LABEL_CHANGETEXTBOXES:; -if(qbevent){evnt(25066,12521,"ide_methods.bas");r=0;} -S_47507:; -if(qbevent){evnt(25066,12522,"ide_methods.bas");if(r)goto S_47507;} -S_47508:; +if(qbevent){evnt(26307,16748,"ide_methods.bas");r=0;} +S_53491:; +if(qbevent){evnt(26307,16749,"ide_methods.bas");if(r)goto S_53491;} +S_53492:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ -if(qbevent){evnt(25066,12523,"ide_methods.bas");if(r)goto S_47508;} +if(qbevent){evnt(26307,16750,"ide_methods.bas");if(r)goto S_53492;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(25066,12523,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16750,"ide_methods.bas");}while(r); +sc_ec_371_end:; +goto sc_5951_end; } -S_47510:; +S_53494:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ -if(qbevent){evnt(25066,12524,"ide_methods.bas");if(r)goto S_47510;} +if(qbevent){evnt(26307,16751,"ide_methods.bas");if(r)goto S_53494;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(25066,12524,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16751,"ide_methods.bas");}while(r); +sc_ec_372_end:; +goto sc_5951_end; } -S_47512:; +S_53496:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ -if(qbevent){evnt(25066,12525,"ide_methods.bas");if(r)goto S_47512;} +if(qbevent){evnt(26307,16752,"ide_methods.bas");if(r)goto S_53496;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(25066,12525,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16752,"ide_methods.bas");}while(r); +sc_ec_373_end:; +goto sc_5951_end; } -S_47514:; +S_53498:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ -if(qbevent){evnt(25066,12526,"ide_methods.bas");if(r)goto S_47514;} +if(qbevent){evnt(26307,16753,"ide_methods.bas");if(r)goto S_53498;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(25066,12526,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16753,"ide_methods.bas");}while(r); +sc_ec_374_end:; +goto sc_5951_end; } -S_47516:; +S_53500:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ -if(qbevent){evnt(25066,12527,"ide_methods.bas");if(r)goto S_47516;} +if(qbevent){evnt(26307,16754,"ide_methods.bas");if(r)goto S_53500;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(25066,12527,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16754,"ide_methods.bas");}while(r); +sc_ec_375_end:; +goto sc_5951_end; } -S_47518:; +S_53502:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ -if(qbevent){evnt(25066,12528,"ide_methods.bas");if(r)goto S_47518;} +if(qbevent){evnt(26307,16755,"ide_methods.bas");if(r)goto S_53502;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(25066,12528,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16755,"ide_methods.bas");}while(r); +sc_ec_376_end:; +goto sc_5951_end; } -S_47520:; +S_53504:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ -if(qbevent){evnt(25066,12529,"ide_methods.bas");if(r)goto S_47520;} +if(qbevent){evnt(26307,16756,"ide_methods.bas");if(r)goto S_53504;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(25066,12529,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16756,"ide_methods.bas");}while(r); +sc_ec_377_end:; +goto sc_5951_end; } -S_47522:; +S_53506:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ -if(qbevent){evnt(25066,12530,"ide_methods.bas");if(r)goto S_47522;} +if(qbevent){evnt(26307,16757,"ide_methods.bas");if(r)goto S_53506;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(25066,12530,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16757,"ide_methods.bas");}while(r); +sc_ec_378_end:; +goto sc_5951_end; } -S_47524:; +S_53508:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ -if(qbevent){evnt(25066,12531,"ide_methods.bas");if(r)goto S_47524;} +if(qbevent){evnt(26307,16758,"ide_methods.bas");if(r)goto S_53508;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(25066,12531,"ide_methods.bas");}while(r); -goto sc_5377_end; +if(!qbevent)break;evnt(26307,16758,"ide_methods.bas");}while(r); +sc_ec_379_end:; +goto sc_5951_end; } -sc_5377_end:; +S_53510:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ +if(qbevent){evnt(26307,16759,"ide_methods.bas");if(r)goto S_53510;} do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5378=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12533,"ide_methods.bas");}while(r); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26307,16759,"ide_methods.bas");}while(r); +sc_ec_380_end:; +goto sc_5951_end; +} +sc_5951_end:; do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5379=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5952=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12534,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16761,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5380=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5953=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12535,"ide_methods.bas");}while(r); -S_47530:; +if(!qbevent)break;evnt(26307,16762,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5954=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16763,"ide_methods.bas");}while(r); +S_53516:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))&*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ -if(qbevent){evnt(25066,12536,"ide_methods.bas");if(r)goto S_47530;} +if(qbevent){evnt(26307,16764,"ide_methods.bas");if(r)goto S_53516;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12537,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16765,"ide_methods.bas");}while(r); } } -S_47534:; -fornext_value5382= 2 ; -fornext_finalvalue5382= 4 ; -fornext_step5382= 1 ; -if (fornext_step5382<0) fornext_step_negative5382=1; else fornext_step_negative5382=0; -if (new_error) goto fornext_error5382; -goto fornext_entrylabel5382; +S_53520:; +fornext_value5956= 2 ; +fornext_finalvalue5956= 4 ; +fornext_step5956= 1 ; +if (fornext_step5956<0) fornext_step_negative5956=1; else fornext_step_negative5956=0; +if (new_error) goto fornext_error5956; +goto fornext_entrylabel5956; while(1){ -fornext_value5382=fornext_step5382+(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB); -fornext_entrylabel5382: -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB=fornext_value5382; -if (fornext_step_negative5382){ -if (fornext_value5382fornext_finalvalue5382) break; +if (fornext_value5956>fornext_finalvalue5956) break; } -fornext_error5382:; -if(qbevent){evnt(25066,12542,"ide_methods.bas");if(r)goto S_47534;} +fornext_error5956:; +if(qbevent){evnt(26307,16770,"ide_methods.bas");if(r)goto S_53520;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12543,"ide_methods.bas");}while(r); -S_47536:; +if(!qbevent)break;evnt(26307,16771,"ide_methods.bas");}while(r); +S_53522:; if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(25066,12544,"ide_methods.bas");if(r)goto S_47536;} +if(qbevent){evnt(26307,16772,"ide_methods.bas");if(r)goto S_53522;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_left(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12544,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16772,"ide_methods.bas");}while(r); } -S_47539:; -fornext_value5385= 1 ; -fornext_finalvalue5385=_FUNC_IDECHOOSECOLORSBOX_STRING_A->len; -fornext_step5385= 1 ; -if (fornext_step5385<0) fornext_step_negative5385=1; else fornext_step_negative5385=0; -if (new_error) goto fornext_error5385; -goto fornext_entrylabel5385; +S_53525:; +fornext_value5959= 1 ; +fornext_finalvalue5959=_FUNC_IDECHOOSECOLORSBOX_STRING_A->len; +fornext_step5959= 1 ; +if (fornext_step5959<0) fornext_step_negative5959=1; else fornext_step_negative5959=0; +if (new_error) goto fornext_error5959; +goto fornext_entrylabel5959; while(1){ -fornext_value5385=fornext_step5385+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5385: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5385; +fornext_value5959=fornext_step5959+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel5959: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5959; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5385){ -if (fornext_value5385fornext_finalvalue5385) break; +if (fornext_value5959>fornext_finalvalue5959) break; } -fornext_error5385:; -if(qbevent){evnt(25066,12545,"ide_methods.bas");if(r)goto S_47539;} +fornext_error5959:; +if(qbevent){evnt(26307,16773,"ide_methods.bas");if(r)goto S_53525;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A,*_FUNC_IDECHOOSECOLORSBOX_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12546,"ide_methods.bas");}while(r); -S_47541:; +if(!qbevent)break;evnt(26307,16774,"ide_methods.bas");}while(r); +S_53527:; if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,12547,"ide_methods.bas");if(r)goto S_47541;} +if(qbevent){evnt(26307,16775,"ide_methods.bas");if(r)goto S_53527;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12547,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16775,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5384; -if(!qbevent)break;evnt(25066,12547,"ide_methods.bas");}while(r); +goto fornext_exit_5958; +if(!qbevent)break;evnt(26307,16775,"ide_methods.bas");}while(r); } -S_47545:; +S_53531:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 48 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,12548,"ide_methods.bas");if(r)goto S_47545;} +if(qbevent){evnt(26307,16776,"ide_methods.bas");if(r)goto S_53531;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12548,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16776,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5384; -if(!qbevent)break;evnt(25066,12548,"ide_methods.bas");}while(r); +goto fornext_exit_5958; +if(!qbevent)break;evnt(26307,16776,"ide_methods.bas");}while(r); } -fornext_continue_5384:; +fornext_continue_5958:; } -fornext_exit_5384:; -S_47550:; +fornext_exit_5958:; +S_53536:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDECHOOSECOLORSBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,12550,"ide_methods.bas");if(r)goto S_47550;} +if(qbevent){evnt(26307,16778,"ide_methods.bas");if(r)goto S_53536;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12551,"ide_methods.bas");}while(r); -S_47552:; +if(!qbevent)break;evnt(26307,16779,"ide_methods.bas");}while(r); +S_53538:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 255 ))||new_error){ -if(qbevent){evnt(25066,12552,"ide_methods.bas");if(r)goto S_47552;} +if(qbevent){evnt(26307,16780,"ide_methods.bas");if(r)goto S_53538;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("255",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12552,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16780,"ide_methods.bas");}while(r); } -S_47555:; +S_53541:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(25066,12553,"ide_methods.bas");if(r)goto S_47555;} +if(qbevent){evnt(26307,16781,"ide_methods.bas");if(r)goto S_53541;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12553,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16781,"ide_methods.bas");}while(r); } }else{ -S_47559:; +S_53545:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ -if(qbevent){evnt(25066,12555,"ide_methods.bas");if(r)goto S_47559;} +if(qbevent){evnt(26307,16783,"ide_methods.bas");if(r)goto S_53545;} do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12555,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16783,"ide_methods.bas");}while(r); } } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12557,"ide_methods.bas");}while(r); -fornext_continue_5381:; +if(!qbevent)break;evnt(26307,16785,"ide_methods.bas");}while(r); +fornext_continue_5955:; } -fornext_exit_5381:; +fornext_exit_5955:; do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("|",1),0); +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12561,"ide_methods.bas");}while(r); -S_47566:; +if(!qbevent)break;evnt(26307,16789,"ide_methods.bas");}while(r); +S_53552:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(25066,12562,"ide_methods.bas");if(r)goto S_47566;} +if(qbevent){evnt(26307,16790,"ide_methods.bas");if(r)goto S_53552;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_add(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_add(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16791,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12564,"ide_methods.bas");}while(r); -S_47569:; -if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))>=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE))||new_error){ -if(qbevent){evnt(25066,12565,"ide_methods.bas");if(r)goto S_47569;} +if(!qbevent)break;evnt(26307,16792,"ide_methods.bas");}while(r); +S_53555:; +if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))>=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE))||new_error){ +if(qbevent){evnt(26307,16793,"ide_methods.bas");if(r)goto S_53555;} do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+77))- 1 ; -if(!qbevent)break;evnt(25066,12565,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))- 1 ; +if(!qbevent)break;evnt(26307,16793,"ide_methods.bas");}while(r); } } -S_47573:; +S_53559:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))||new_error){ -if(qbevent){evnt(25066,12568,"ide_methods.bas");if(r)goto S_47573;} +if(qbevent){evnt(26307,16796,"ide_methods.bas");if(r)goto S_53559;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12569,"ide_methods.bas");}while(r); -S_47575:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ))))||new_error){ -if(qbevent){evnt(25066,12570,"ide_methods.bas");if(r)goto S_47575;} +if(!qbevent)break;evnt(26307,16797,"ide_methods.bas");}while(r); +S_53561:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ))))||new_error){ +if(qbevent){evnt(26307,16798,"ide_methods.bas");if(r)goto S_53561;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(25066,12572,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16800,"ide_methods.bas");}while(r); } } do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12576,"ide_methods.bas");}while(r); -S_47580:; -if(qbevent){evnt(25066,12577,"ide_methods.bas");if(r)goto S_47580;} -S_47581:; +if(!qbevent)break;evnt(26307,16804,"ide_methods.bas");}while(r); +S_53566:; +if(qbevent){evnt(26307,16805,"ide_methods.bas");if(r)goto S_53566;} +S_53567:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ -if(qbevent){evnt(25066,12578,"ide_methods.bas");if(r)goto S_47581;} +if(qbevent){evnt(26307,16806,"ide_methods.bas");if(r)goto S_53567;} do{ *__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12578,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16806,"ide_methods.bas");}while(r); +sc_ec_381_end:; +goto sc_5962_end; } -S_47583:; +S_53569:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ -if(qbevent){evnt(25066,12579,"ide_methods.bas");if(r)goto S_47583;} +if(qbevent){evnt(26307,16807,"ide_methods.bas");if(r)goto S_53569;} do{ *__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12579,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16807,"ide_methods.bas");}while(r); +sc_ec_382_end:; +goto sc_5962_end; } -S_47585:; +S_53571:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ -if(qbevent){evnt(25066,12580,"ide_methods.bas");if(r)goto S_47585;} +if(qbevent){evnt(26307,16808,"ide_methods.bas");if(r)goto S_53571;} do{ *__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12580,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16808,"ide_methods.bas");}while(r); +sc_ec_383_end:; +goto sc_5962_end; } -S_47587:; +S_53573:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ -if(qbevent){evnt(25066,12581,"ide_methods.bas");if(r)goto S_47587;} +if(qbevent){evnt(26307,16809,"ide_methods.bas");if(r)goto S_53573;} do{ *__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12581,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16809,"ide_methods.bas");}while(r); +sc_ec_384_end:; +goto sc_5962_end; } -S_47589:; +S_53575:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ -if(qbevent){evnt(25066,12582,"ide_methods.bas");if(r)goto S_47589;} +if(qbevent){evnt(26307,16810,"ide_methods.bas");if(r)goto S_53575;} do{ *__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12582,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16810,"ide_methods.bas");}while(r); +sc_ec_385_end:; +goto sc_5962_end; } -S_47591:; +S_53577:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ -if(qbevent){evnt(25066,12583,"ide_methods.bas");if(r)goto S_47591;} +if(qbevent){evnt(26307,16811,"ide_methods.bas");if(r)goto S_53577;} do{ *__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12583,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16811,"ide_methods.bas");}while(r); +sc_ec_386_end:; +goto sc_5962_end; } -S_47593:; +S_53579:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ -if(qbevent){evnt(25066,12584,"ide_methods.bas");if(r)goto S_47593;} +if(qbevent){evnt(26307,16812,"ide_methods.bas");if(r)goto S_53579;} do{ *__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12584,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16812,"ide_methods.bas");}while(r); +sc_ec_387_end:; +goto sc_5962_end; } -S_47595:; +S_53581:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ -if(qbevent){evnt(25066,12585,"ide_methods.bas");if(r)goto S_47595;} +if(qbevent){evnt(26307,16813,"ide_methods.bas");if(r)goto S_53581;} do{ *__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12585,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16813,"ide_methods.bas");}while(r); +sc_ec_388_end:; +goto sc_5962_end; } -S_47597:; +S_53583:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ -if(qbevent){evnt(25066,12586,"ide_methods.bas");if(r)goto S_47597;} +if(qbevent){evnt(26307,16814,"ide_methods.bas");if(r)goto S_53583;} do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(25066,12586,"ide_methods.bas");}while(r); -goto sc_5388_end; +if(!qbevent)break;evnt(26307,16814,"ide_methods.bas");}while(r); +sc_ec_389_end:; +goto sc_5962_end; } -sc_5388_end:; -S_47600:; +S_53585:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ +if(qbevent){evnt(26307,16815,"ide_methods.bas");if(r)goto S_53585;} +do{ +*__ULONG_IDECHROMACOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26307,16815,"ide_methods.bas");}while(r); +sc_ec_390_end:; +goto sc_5962_end; +} +sc_5962_end:; +S_53588:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 10 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,12589,"ide_methods.bas");if(r)goto S_47600;} +if(qbevent){evnt(26307,16818,"ide_methods.bas");if(r)goto S_53588;} do{ *__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR; -if(!qbevent)break;evnt(25066,12590,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16819,"ide_methods.bas");}while(r); do{ *__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(25066,12591,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16820,"ide_methods.bas");}while(r); do{ *__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR; -if(!qbevent)break;evnt(25066,12592,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16821,"ide_methods.bas");}while(r); do{ *__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR; -if(!qbevent)break;evnt(25066,12593,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16822,"ide_methods.bas");}while(r); do{ *__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR; -if(!qbevent)break;evnt(25066,12594,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16823,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR; +if(!qbevent)break;evnt(26307,16824,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(25066,12595,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16825,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(25066,12596,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16826,"ide_methods.bas");}while(r); do{ *__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(25066,12597,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16827,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDECHROMACOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECHROMACOLOR; +if(!qbevent)break;evnt(26307,16828,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,12598,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16829,"ide_methods.bas");}while(r); } -S_47611:; +S_53601:; if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 9 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(25066,12601,"ide_methods.bas");if(r)goto S_47611;} +if(qbevent){evnt(26307,16832,"ide_methods.bas");if(r)goto S_53601;} LABEL_LOADDEFAULTSCHEME:; -if(qbevent){evnt(25066,12602,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,16833,"ide_methods.bas");r=0;} do{ -*__ULONG_IDECOMMENTCOLOR=func__rgb32( 85 , 255 , 255 ); -if(!qbevent)break;evnt(25066,12603,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32( 85 , 255 , 85 ); -if(!qbevent)break;evnt(25066,12604,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEQUOTECOLOR=func__rgb32( 255 , 255 , 85 ); -if(!qbevent)break;evnt(25066,12605,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDETEXTCOLOR=func__rgb32( 226 , 226 , 226 ); -if(!qbevent)break;evnt(25066,12606,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEKEYWORDCOLOR=func__rgb32( 147 , 196 , 235 ); -if(!qbevent)break;evnt(25066,12607,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDENUMBERSCOLOR=func__rgb32( 245 , 128 , 177 ); -if(!qbevent)break;evnt(25066,12608,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32( 0 , 0 , 170 ); -if(!qbevent)break;evnt(25066,12609,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32( 0 , 108 , 177 ); -if(!qbevent)break;evnt(25066,12610,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32( 0 , 147 , 177 ); -if(!qbevent)break;evnt(25066,12611,"ide_methods.bas");}while(r); +return_point[next_return_point++]=175; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ENABLEHIGHLIGHTER; +RETURN_175:; +if(!qbevent)break;evnt(26307,16834,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; -if(!qbevent)break;evnt(25066,12612,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16835,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12613,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16836,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12614,"ide_methods.bas");}while(r); -S_47624:; -if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ -if(qbevent){evnt(25066,12615,"ide_methods.bas");if(r)goto S_47624;} -do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,12615,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,16837,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,12616,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16838,"ide_methods.bas");}while(r); do{ -goto LABEL_CHANGETEXTBOXES; -if(!qbevent)break;evnt(25066,12617,"ide_methods.bas");}while(r); +goto LABEL_APPLYSCHEME; +if(!qbevent)break;evnt(26307,16839,"ide_methods.bas");}while(r); } -S_47630:; +S_53609:; if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 8 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 5 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 6 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 7 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ -if(qbevent){evnt(25066,12628,"ide_methods.bas");if(r)goto S_47630;} +if(qbevent){evnt(26307,16850,"ide_methods.bas");if(r)goto S_53609;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),qbs_new_txt_len("SchemeID",8),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)); +return_point[next_return_point++]=176; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ENABLEHIGHLIGHTER; +RETURN_176:; +if(!qbevent)break;evnt(26307,16852,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12630,"ide_methods.bas");}while(r); -S_47632:; -fornext_value5390= 1 ; -fornext_finalvalue5390= 9 ; -fornext_step5390= 1 ; -if (fornext_step5390<0) fornext_step_negative5390=1; else fornext_step_negative5390=0; -if (new_error) goto fornext_error5390; -goto fornext_entrylabel5390; +if(!qbevent)break;evnt(26307,16854,"ide_methods.bas");}while(r); +S_53612:; +fornext_value5964= 1 ; +fornext_finalvalue5964= 10 ; +fornext_step5964= 1 ; +if (fornext_step5964<0) fornext_step_negative5964=1; else fornext_step_negative5964=0; +if (new_error) goto fornext_error5964; +goto fornext_entrylabel5964; while(1){ -fornext_value5390=fornext_step5390+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5390: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5390; -if (fornext_step_negative5390){ -if (fornext_value5390fornext_finalvalue5390) break; +if (fornext_value5964>fornext_finalvalue5964) break; } -fornext_error5390:; -if(qbevent){evnt(25066,12631,"ide_methods.bas");if(r)goto S_47632;} -S_47633:; -if(qbevent){evnt(25066,12632,"ide_methods.bas");if(r)goto S_47633;} -S_47634:; +fornext_error5964:; +if(qbevent){evnt(26307,16855,"ide_methods.bas");if(r)goto S_53612;} +S_53613:; +if(qbevent){evnt(26307,16856,"ide_methods.bas");if(r)goto S_53613;} +S_53614:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 1 )))||new_error){ -if(qbevent){evnt(25066,12633,"ide_methods.bas");if(r)goto S_47634;} +if(qbevent){evnt(26307,16857,"ide_methods.bas");if(r)goto S_53614;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(25066,12633,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16857,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("TextColor",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12633,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16857,"ide_methods.bas");}while(r); +sc_ec_391_end:; +goto sc_5965_end; } -S_47637:; +S_53617:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 2 )))||new_error){ -if(qbevent){evnt(25066,12634,"ide_methods.bas");if(r)goto S_47637;} +if(qbevent){evnt(26307,16858,"ide_methods.bas");if(r)goto S_53617;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(25066,12634,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16858,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("KeywordColor",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12634,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16858,"ide_methods.bas");}while(r); +sc_ec_392_end:; +goto sc_5965_end; } -S_47640:; +S_53620:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 3 )))||new_error){ -if(qbevent){evnt(25066,12635,"ide_methods.bas");if(r)goto S_47640;} +if(qbevent){evnt(26307,16859,"ide_methods.bas");if(r)goto S_53620;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(25066,12635,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16859,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("NumbersColor",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12635,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16859,"ide_methods.bas");}while(r); +sc_ec_393_end:; +goto sc_5965_end; } -S_47643:; +S_53623:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 4 )))||new_error){ -if(qbevent){evnt(25066,12636,"ide_methods.bas");if(r)goto S_47643;} +if(qbevent){evnt(26307,16860,"ide_methods.bas");if(r)goto S_53623;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(25066,12636,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16860,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("QuoteColor",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12636,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16860,"ide_methods.bas");}while(r); +sc_ec_394_end:; +goto sc_5965_end; } -S_47646:; +S_53626:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 5 )))||new_error){ -if(qbevent){evnt(25066,12637,"ide_methods.bas");if(r)goto S_47646;} +if(qbevent){evnt(26307,16861,"ide_methods.bas");if(r)goto S_53626;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(25066,12637,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16861,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("MetaCommandColor",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12637,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16861,"ide_methods.bas");}while(r); +sc_ec_395_end:; +goto sc_5965_end; } -S_47649:; +S_53629:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 6 )))||new_error){ -if(qbevent){evnt(25066,12638,"ide_methods.bas");if(r)goto S_47649;} +if(qbevent){evnt(26307,16862,"ide_methods.bas");if(r)goto S_53629;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(25066,12638,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16862,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("CommentColor",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12638,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16862,"ide_methods.bas");}while(r); +sc_ec_396_end:; +goto sc_5965_end; } -S_47652:; +S_53632:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 7 )))||new_error){ -if(qbevent){evnt(25066,12639,"ide_methods.bas");if(r)goto S_47652;} +if(qbevent){evnt(26307,16863,"ide_methods.bas");if(r)goto S_53632;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(25066,12639,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16863,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12639,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16863,"ide_methods.bas");}while(r); +sc_ec_397_end:; +goto sc_5965_end; } -S_47655:; +S_53635:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 8 )))||new_error){ -if(qbevent){evnt(25066,12640,"ide_methods.bas");if(r)goto S_47655;} +if(qbevent){evnt(26307,16864,"ide_methods.bas");if(r)goto S_53635;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(25066,12640,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16864,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor2",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12640,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16864,"ide_methods.bas");}while(r); +sc_ec_398_end:; +goto sc_5965_end; } -S_47658:; +S_53638:; if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 9 )))||new_error){ -if(qbevent){evnt(25066,12641,"ide_methods.bas");if(r)goto S_47658;} +if(qbevent){evnt(26307,16865,"ide_methods.bas");if(r)goto S_53638;} do{ *_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(25066,12641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16865,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("HighlightColor",14)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12641,"ide_methods.bas");}while(r); -goto sc_5391_end; +if(!qbevent)break;evnt(26307,16865,"ide_methods.bas");}while(r); +sc_ec_399_end:; +goto sc_5965_end; } -sc_5391_end:; +S_53641:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 10 )))||new_error){ +if(qbevent){evnt(26307,16866,"ide_methods.bas");if(r)goto S_53641;} do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5392=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12643,"ide_methods.bas");}while(r); +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26307,16866,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5393=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("ChromaColor",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12644,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5394=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12645,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_RGBSTRING,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),_FUNC_IDECHOOSECOLORSBOX_STRING_R),qbs_new_txt_len(",",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_G),qbs_new_txt_len(",",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_B),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12647,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SETTINGS]",21),_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,_FUNC_IDECHOOSECOLORSBOX_STRING_RGBSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12648,"ide_methods.bas");}while(r); -fornext_continue_5389:; +if(!qbevent)break;evnt(26307,16866,"ide_methods.bas");}while(r); +sc_ec_400_end:; +goto sc_5965_end; } -fornext_exit_5389:; +sc_5965_end:; do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,12651,"ide_methods.bas");}while(r); -S_47669:; +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,FUNC_RGBS(_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16868,"ide_methods.bas");}while(r); +fornext_continue_5963:; +} +fornext_exit_5963:; +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16871,"ide_methods.bas");}while(r); +S_53648:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,12652,"ide_methods.bas");if(r)goto S_47669;} +if(qbevent){evnt(26307,16872,"ide_methods.bas");if(r)goto S_53648;} do{ *_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(25066,12652,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16872,"ide_methods.bas");}while(r); } do{ *__INTEGER_BRACKETHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,12653,"ide_methods.bas");}while(r); -S_47673:; +if(!qbevent)break;evnt(26307,16873,"ide_methods.bas");}while(r); +S_53652:; if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,12655,"ide_methods.bas");if(r)goto S_47673;} +if(qbevent){evnt(26307,16875,"ide_methods.bas");if(r)goto S_53652;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12656,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16876,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12658,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16878,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,12661,"ide_methods.bas");}while(r); -S_47679:; +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16881,"ide_methods.bas");}while(r); +S_53658:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,12662,"ide_methods.bas");if(r)goto S_47679;} +if(qbevent){evnt(26307,16882,"ide_methods.bas");if(r)goto S_53658;} do{ *_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(25066,12662,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16882,"ide_methods.bas");}while(r); } do{ *__INTEGER_MULTIHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,12663,"ide_methods.bas");}while(r); -S_47683:; +if(!qbevent)break;evnt(26307,16883,"ide_methods.bas");}while(r); +S_53662:; if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,12665,"ide_methods.bas");if(r)goto S_47683;} +if(qbevent){evnt(26307,16885,"ide_methods.bas");if(r)goto S_53662;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12666,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16886,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12668,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16888,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+64)); -if(!qbevent)break;evnt(25066,12671,"ide_methods.bas");}while(r); -S_47689:; +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26307,16891,"ide_methods.bas");}while(r); +S_53668:; if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(25066,12672,"ide_methods.bas");if(r)goto S_47689;} +if(qbevent){evnt(26307,16892,"ide_methods.bas");if(r)goto S_53668;} do{ *_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(25066,12672,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16892,"ide_methods.bas");}while(r); } do{ *__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; -if(!qbevent)break;evnt(25066,12673,"ide_methods.bas");}while(r); -S_47693:; +if(!qbevent)break;evnt(26307,16893,"ide_methods.bas");}while(r); +S_53672:; if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ -if(qbevent){evnt(25066,12675,"ide_methods.bas");if(r)goto S_47693;} +if(qbevent){evnt(26307,16895,"ide_methods.bas");if(r)goto S_53672;} do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("TRUE",4)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("True",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12676,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16896,"ide_methods.bas");}while(r); }else{ do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[GENERAL SETTINGS]",19),qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("FALSE",5)); +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("False",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12678,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16898,"ide_methods.bas");}while(r); } do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,12681,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16901,"ide_methods.bas");}while(r); } do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,12686,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16906,"ide_methods.bas");}while(r); do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,12687,"ide_methods.bas");}while(r); -dl_continue_5312:; +if(!qbevent)break;evnt(26307,16907,"ide_methods.bas");}while(r); +dl_continue_5897:; }while(1); -dl_exit_5312:; +dl_exit_5897:; +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX= 0 ; +if(!qbevent)break;evnt(26307,16910,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,12689,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16912,"ide_methods.bas");}while(r); LABEL_NEWUSERSCHEME:; -if(qbevent){evnt(25066,12690,"ide_methods.bas");r=0;} -S_47704:; +if(qbevent){evnt(26307,16913,"ide_methods.bas");r=0;} +S_53684:; if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ -if(qbevent){evnt(25066,12691,"ide_methods.bas");if(r)goto S_47704;} +if(qbevent){evnt(26307,16914,"ide_methods.bas");if(r)goto S_53684;} do{ *_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(25066,12695,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16918,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("User-defined",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12696,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16919,"ide_methods.bas");}while(r); } do{ -#include "ret185.txt" -if(!qbevent)break;evnt(25066,12698,"ide_methods.bas");}while(r); +#include "ret200.txt" +if(!qbevent)break;evnt(26307,16921,"ide_methods.bas");}while(r); +LABEL_ENABLEHIGHLIGHTER:; +if(qbevent){evnt(26307,16923,"ide_methods.bas");r=0;} +S_53689:; +if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ +if(qbevent){evnt(26307,16924,"ide_methods.bas");if(r)goto S_53689;} +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; +if(!qbevent)break;evnt(26307,16925,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16926,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax #Highlighter",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,16927,"ide_methods.bas");}while(r); +} +do{ +#include "ret200.txt" +if(!qbevent)break;evnt(26307,16929,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free185.txt" +#include "free200.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX; } -qbs* FUNC_IDECOLORPICKER(int32*_FUNC_IDECOLORPICKER_LONG_EDITING){ +qbs* FUNC_IDERGBMIXER(int32*_FUNC_IDERGBMIXER_LONG_EDITING){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data186.txt" +#include "data201.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -168521,1698 +186625,1877 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,12704,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16935,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,12705,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16936,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12706,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16937,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,12707,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,16938,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,12708,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16939,"ide_methods.bas");}while(r); do{ -if (_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]&2){ +if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&2){ error(10); }else{ -if (_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]&1){ -error(10); +if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); }else{ -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4]= 1 ; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4]+1; -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[6]=1; -if (_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]&4){ -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0]),0,_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDERGBMIXER_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4]+1; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[6]=1; +if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&4){ +_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]),0,_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]*680/8+1,1); -if (!_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0]) error(257); +_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]) error(257); } -_FUNC_IDECOLORPICKER_ARRAY_UDT_O[2]|=1; +_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,12709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16940,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,12710,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16941,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING1_SEP,func_chr( 0 )); +qbs_set(_FUNC_IDERGBMIXER_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12711,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16942,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,12715,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,16946,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECOLORPICKER_UDT_P)) + (0) ),&(pass5395= 70 ),&(pass5396= 11 ),qbs_new_txt_len("RGB Color Mixer",15)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) ),&(pass5966= 70 ),&(pass5967= 11 ),qbs_new_txt_len("RGB Color Mixer",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12717,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16948,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,qbs_new_txt_len("127",3)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12719,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16950,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_I=*_FUNC_IDECOLORPICKER_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12720,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,16951,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12721,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16952,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+20))= 63 ; -if(!qbevent)break;evnt(25066,12722,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; +if(!qbevent)break;evnt(26307,16953,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+24))= 2 ; -if(!qbevent)break;evnt(25066,12723,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26307,16954,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECOLORPICKER_STRING_A2); -if(!qbevent)break;evnt(25066,12724,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); +if(!qbevent)break;evnt(26307,16955,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECOLORPICKER_STRING_A2->len; -if(!qbevent)break;evnt(25066,12725,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; +if(!qbevent)break;evnt(26307,16956,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12726,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16957,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12727,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16958,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,qbs_new_txt_len("127",3)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12729,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16960,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_I=*_FUNC_IDECOLORPICKER_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12730,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,16961,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12731,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16962,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+20))= 63 ; -if(!qbevent)break;evnt(25066,12732,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; +if(!qbevent)break;evnt(26307,16963,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+24))= 5 ; -if(!qbevent)break;evnt(25066,12733,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26307,16964,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECOLORPICKER_STRING_A2); -if(!qbevent)break;evnt(25066,12734,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); +if(!qbevent)break;evnt(26307,16965,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECOLORPICKER_STRING_A2->len; -if(!qbevent)break;evnt(25066,12735,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; +if(!qbevent)break;evnt(26307,16966,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12736,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16967,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12737,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16968,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,qbs_new_txt_len("127",3)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12739,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16970,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_I=*_FUNC_IDECOLORPICKER_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12740,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,16971,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+36))= 1 ; -if(!qbevent)break;evnt(25066,12741,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,16972,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+20))= 63 ; -if(!qbevent)break;evnt(25066,12742,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; +if(!qbevent)break;evnt(26307,16973,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+24))= 8 ; -if(!qbevent)break;evnt(25066,12743,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26307,16974,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDECOLORPICKER_STRING_A2); -if(!qbevent)break;evnt(25066,12744,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); +if(!qbevent)break;evnt(26307,16975,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=_FUNC_IDECOLORPICKER_STRING_A2->len; -if(!qbevent)break;evnt(25066,12745,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; +if(!qbevent)break;evnt(26307,16976,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12746,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,16977,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12747,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,16978,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_I=*_FUNC_IDECOLORPICKER_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,12749,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,16980,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,12750,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,16981,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+24))= 11 ; -if(!qbevent)break;evnt(25066,12751,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26307,16982,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert",7),_FUNC_IDECOLORPICKER_STRING1_SEP),qbs_new_txt_len("C#opy",5)),_FUNC_IDECOLORPICKER_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(25066,12752,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert",7),_FUNC_IDERGBMIXER_STRING1_SEP),qbs_new_txt_len("C#opy",5)),_FUNC_IDERGBMIXER_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26307,16983,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,12753,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,16984,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT=*__LONG_IDESELECT; -if(!qbevent)break;evnt(25066,12755,"ide_methods.bas");}while(r); -S_47752:; -if ((*_FUNC_IDECOLORPICKER_LONG_EDITING)||new_error){ -if(qbevent){evnt(25066,12757,"ide_methods.bas");if(r)goto S_47752;} +*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT=*__LONG_IDESELECT; +if(!qbevent)break;evnt(26307,16986,"ide_methods.bas");}while(r); +S_53738:; +if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ +if(qbevent){evnt(26307,16988,"ide_methods.bas");if(r)goto S_53738;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12759,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16990,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12760,"ide_methods.bas");}while(r); -S_47755:; +if(!qbevent)break;evnt(26307,16991,"ide_methods.bas");}while(r); +S_53741:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,12761,"ide_methods.bas");if(r)goto S_47755;} -S_47756:; +if(qbevent){evnt(26307,16992,"ide_methods.bas");if(r)goto S_53741;} +S_53742:; if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,12762,"ide_methods.bas");if(r)goto S_47756;} +if(qbevent){evnt(26307,16993,"ide_methods.bas");if(r)goto S_53742;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16994,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,12764,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,16995,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,12764,"ide_methods.bas");}while(r); -S_47760:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_SX2<*_FUNC_IDECOLORPICKER_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,12765,"ide_methods.bas");if(r)goto S_47760;} +*_FUNC_IDERGBMIXER_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,16995,"ide_methods.bas");}while(r); +S_53746:; +if ((-(*_FUNC_IDERGBMIXER_LONG_SX2<*_FUNC_IDERGBMIXER_LONG_SX1))||new_error){ +if(qbevent){evnt(26307,16996,"ide_methods.bas");if(r)goto S_53746;} do{ -swap_32(&*_FUNC_IDECOLORPICKER_LONG_SX1,&*_FUNC_IDECOLORPICKER_LONG_SX2); -if(!qbevent)break;evnt(25066,12765,"ide_methods.bas");}while(r); +swap_32(&*_FUNC_IDERGBMIXER_LONG_SX1,&*_FUNC_IDERGBMIXER_LONG_SX2); +if(!qbevent)break;evnt(26307,16996,"ide_methods.bas");}while(r); } -S_47763:; -fornext_value5401=*_FUNC_IDECOLORPICKER_LONG_SX1; -fornext_finalvalue5401=*_FUNC_IDECOLORPICKER_LONG_SX2- 1 ; -fornext_step5401= 1 ; -if (fornext_step5401<0) fornext_step_negative5401=1; else fornext_step_negative5401=0; -if (new_error) goto fornext_error5401; -goto fornext_entrylabel5401; +S_53749:; +fornext_value5972=*_FUNC_IDERGBMIXER_LONG_SX1; +fornext_finalvalue5972=*_FUNC_IDERGBMIXER_LONG_SX2- 1 ; +fornext_step5972= 1 ; +if (fornext_step5972<0) fornext_step_negative5972=1; else fornext_step_negative5972=0; +if (new_error) goto fornext_error5972; +goto fornext_entrylabel5972; while(1){ -fornext_value5401=fornext_step5401+(*_FUNC_IDECOLORPICKER_LONG_X); -fornext_entrylabel5401: -*_FUNC_IDECOLORPICKER_LONG_X=fornext_value5401; -if (fornext_step_negative5401){ -if (fornext_value5401fornext_finalvalue5401) break; +if (fornext_value5972>fornext_finalvalue5972) break; } -fornext_error5401:; -if(qbevent){evnt(25066,12766,"ide_methods.bas");if(r)goto S_47763;} -S_47764:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECOLORPICKER_LONG_X<=_FUNC_IDECOLORPICKER_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,12767,"ide_methods.bas");if(r)goto S_47764;} +fornext_error5972:; +if(qbevent){evnt(26307,16997,"ide_methods.bas");if(r)goto S_53749;} +S_53750:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_X<=_FUNC_IDERGBMIXER_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,16998,"ide_methods.bas");if(r)goto S_53750;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,qbs_add(_FUNC_IDECOLORPICKER_STRING_A2,func_mid(_FUNC_IDECOLORPICKER_STRING_A,*_FUNC_IDECOLORPICKER_LONG_X, 1 ,1))); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_add(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,16998,"ide_methods.bas");}while(r); }else{ do{ -goto fornext_exit_5400; -if(!qbevent)break;evnt(25066,12767,"ide_methods.bas");}while(r); +goto fornext_exit_5971; +if(!qbevent)break;evnt(26307,16998,"ide_methods.bas");}while(r); } -fornext_continue_5400:; +fornext_continue_5971:; } -fornext_exit_5400:; +fornext_exit_5971:; } } do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,qbs_ucase(qbs_ltrim(qbs_rtrim(_FUNC_IDECOLORPICKER_STRING_A2)))); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_ucase(qbs_ltrim(qbs_rtrim(_FUNC_IDERGBMIXER_STRING_A2)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12771,"ide_methods.bas");}while(r); -S_47773:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECOLORPICKER_STRING_A2->len== 0 )))||new_error){ -if(qbevent){evnt(25066,12773,"ide_methods.bas");if(r)goto S_47773;} +if(!qbevent)break;evnt(26307,17002,"ide_methods.bas");}while(r); +S_53759:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A2->len== 0 )))||new_error){ +if(qbevent){evnt(26307,17004,"ide_methods.bas");if(r)goto S_53759;} LABEL_RGB_LOOKUP:; -if(qbevent){evnt(25066,12774,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,17005,"ide_methods.bas");r=0;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_ALL_RGB,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_ALL_RGB,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12776,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17007,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17008,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_ucase(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_ucase(_FUNC_IDERGBMIXER_STRING_CURRENTLINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17009,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_FOUND_RGB= 0 ; -if(!qbevent)break;evnt(25066,12782,"ide_methods.bas");}while(r); -S_47778:; +*_FUNC_IDERGBMIXER_LONG_FOUND_RGB= 0 ; +if(!qbevent)break;evnt(26307,17013,"ide_methods.bas");}while(r); +S_53764:; do{ -if(qbevent){evnt(25066,12783,"ide_methods.bas");if(r)goto S_47778;} +if(qbevent){evnt(26307,17014,"ide_methods.bas");if(r)goto S_53764;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOUND_RGB=func_instr(*_FUNC_IDECOLORPICKER_LONG_FOUND_RGB+ 1 ,_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("_RGB",4),1); +*_FUNC_IDERGBMIXER_LONG_FOUND_RGB=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB+ 1 ,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("RGB",3),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12784,"ide_methods.bas");}while(r); -S_47780:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FOUND_RGB== 0 ))||new_error){ -if(qbevent){evnt(25066,12785,"ide_methods.bas");if(r)goto S_47780;} +if(!qbevent)break;evnt(26307,17015,"ide_methods.bas");}while(r); +S_53766:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB== 0 ))||new_error){ +if(qbevent){evnt(26307,17016,"ide_methods.bas");if(r)goto S_53766;} do{ -goto dl_exit_5404; -if(!qbevent)break;evnt(25066,12785,"ide_methods.bas");}while(r); +goto dl_exit_5975; +if(!qbevent)break;evnt(26307,17016,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDECOLORPICKER_LONG_FOUND_RGB,_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("(",1),1); +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17017,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1,_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len(")",1),1); +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12787,"ide_methods.bas");}while(r); -S_47785:; -if (((-(*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1> 0 ))&(-(*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2> 0 )))||new_error){ -if(qbevent){evnt(25066,12788,"ide_methods.bas");if(r)goto S_47785;} +if(!qbevent)break;evnt(26307,17018,"ide_methods.bas");}while(r); +S_53771:; +if (((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1> 0 ))&(-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2> 0 )))||new_error){ +if(qbevent){evnt(26307,17019,"ide_methods.bas");if(r)goto S_53771;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_RGBARGS,func_mid(_FUNC_IDECOLORPICKER_STRING_A,*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1+ 1 ,*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2-*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1- 1 ,1)); +qbs_set(_FUNC_IDERGBMIXER_STRING_ALL_RGB,qbs_add(_FUNC_IDERGBMIXER_STRING_ALL_RGB,i2string(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12791,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_TOTALCOMMAS=FUNC_COUNTITEMS(_FUNC_IDECOLORPICKER_STRING_RGBARGS,qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12792,"ide_methods.bas");}while(r); -S_47788:; -if (((-(*_FUNC_IDECOLORPICKER_LONG_TOTALCOMMAS== 2 ))|(-(*_FUNC_IDECOLORPICKER_LONG_TOTALCOMMAS== 3 )))||new_error){ -if(qbevent){evnt(25066,12793,"ide_methods.bas");if(r)goto S_47788;} -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_ALL_RGB,qbs_add(_FUNC_IDECOLORPICKER_STRING_ALL_RGB,i2string(*_FUNC_IDECOLORPICKER_LONG_FOUND_RGB))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17020,"ide_methods.bas");}while(r); } -} -dl_continue_5404:; +dl_continue_5975:; }while(1); -dl_exit_5404:; -S_47793:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECOLORPICKER_STRING_ALL_RGB->len== 0 )))||new_error){ -if(qbevent){evnt(25066,12797,"ide_methods.bas");if(r)goto S_47793;} +dl_exit_5975:; +S_53775:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 0 )))||new_error){ +if(qbevent){evnt(26307,17024,"ide_methods.bas");if(r)goto S_53775;} do{ goto LABEL_NORGBFOUND; -if(!qbevent)break;evnt(25066,12797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17024,"ide_methods.bas");}while(r); } -S_47796:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECOLORPICKER_STRING_ALL_RGB->len== 2 )))||new_error){ -if(qbevent){evnt(25066,12799,"ide_methods.bas");if(r)goto S_47796;} +S_53778:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 2 )))||new_error){ +if(qbevent){evnt(26307,17026,"ide_methods.bas");if(r)goto S_53778;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,func_mid(_FUNC_IDECOLORPICKER_STRING_A,string2i(_FUNC_IDECOLORPICKER_STRING_ALL_RGB),NULL,0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,string2i(_FUNC_IDERGBMIXER_STRING_ALL_RGB),NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12801,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17028,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_INSERTRGBAT=string2i(_FUNC_IDECOLORPICKER_STRING_ALL_RGB); +*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=string2i(_FUNC_IDERGBMIXER_STRING_ALL_RGB); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12802,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17029,"ide_methods.bas");}while(r); }else{ do{ -*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB= 1 ; -if(!qbevent)break;evnt(25066,12804,"ide_methods.bas");}while(r); -S_47801:; +*_FUNC_IDERGBMIXER_LONG_CHECK_RGB= 1 ; +if(!qbevent)break;evnt(26307,17031,"ide_methods.bas");}while(r); +S_53783:; do{ -if(qbevent){evnt(25066,12805,"ide_methods.bas");if(r)goto S_47801;} -S_47802:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>=string2i(func_mid(_FUNC_IDECOLORPICKER_STRING_ALL_RGB,((*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB+ 1 )* 2 )-( 1 ), 2 ,1)))))||new_error){ -if(qbevent){evnt(25066,12806,"ide_methods.bas");if(r)goto S_47802;} +if(qbevent){evnt(26307,17032,"ide_methods.bas");if(r)goto S_53783;} +S_53784:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>=string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,((*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 )* 2 )-( 1 ), 2 ,1)))))||new_error){ +if(qbevent){evnt(26307,17033,"ide_methods.bas");if(r)goto S_53784;} do{ -*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB=*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB+ 1 ; -if(!qbevent)break;evnt(25066,12807,"ide_methods.bas");}while(r); -S_47804:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB==(_FUNC_IDECOLORPICKER_STRING_ALL_RGB->len/ 2 ))))||new_error){ -if(qbevent){evnt(25066,12808,"ide_methods.bas");if(r)goto S_47804;} +*_FUNC_IDERGBMIXER_LONG_CHECK_RGB=*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 ; +if(!qbevent)break;evnt(26307,17034,"ide_methods.bas");}while(r); +S_53786:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB==(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len/ 2 ))))||new_error){ +if(qbevent){evnt(26307,17035,"ide_methods.bas");if(r)goto S_53786;} do{ -goto dl_exit_5407; -if(!qbevent)break;evnt(25066,12808,"ide_methods.bas");}while(r); +goto dl_exit_5978; +if(!qbevent)break;evnt(26307,17035,"ide_methods.bas");}while(r); } }else{ do{ -goto dl_exit_5407; -if(!qbevent)break;evnt(25066,12810,"ide_methods.bas");}while(r); +goto dl_exit_5978; +if(!qbevent)break;evnt(26307,17037,"ide_methods.bas");}while(r); } -dl_continue_5407:; +dl_continue_5978:; }while(1); -dl_exit_5407:; +dl_exit_5978:; do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A2,func_mid(_FUNC_IDECOLORPICKER_STRING_A,string2i(func_mid(_FUNC_IDECOLORPICKER_STRING_ALL_RGB,(*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,1)),NULL,0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,1)),NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12813,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17040,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_INSERTRGBAT=string2i(func_mid(_FUNC_IDECOLORPICKER_STRING_ALL_RGB,(*_FUNC_IDECOLORPICKER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,1)); +*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12814,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17041,"ide_methods.bas");}while(r); } } -S_47815:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDECOLORPICKER_STRING_A2, 5 ),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(qbs_left(_FUNC_IDECOLORPICKER_STRING_A2, 7 ),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(qbs_left(_FUNC_IDECOLORPICKER_STRING_A2, 6 ),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(qbs_left(_FUNC_IDECOLORPICKER_STRING_A2, 8 ),qbs_new_txt_len("_RGBA32(",8)))))||new_error){ -if(qbevent){evnt(25066,12822,"ide_methods.bas");if(r)goto S_47815;} -S_47816:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_INSERTRGBAT== 0 ))||new_error){ -if(qbevent){evnt(25066,12823,"ide_methods.bas");if(r)goto S_47816;} do{ -*_FUNC_IDECOLORPICKER_LONG_INSERTRGBAT=*_FUNC_IDECOLORPICKER_LONG_SX1; -if(!qbevent)break;evnt(25066,12823,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17046,"ide_methods.bas");}while(r); +S_53798:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 4 ),qbs_new_txt_len("RGB(",4)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 5 ),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 7 ),qbs_new_txt_len("RGBA32(",7)))))||new_error){ +if(qbevent){evnt(26307,17050,"ide_methods.bas");if(r)goto S_53798;} +S_53799:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6))))||new_error){ +if(qbevent){evnt(26307,17051,"ide_methods.bas");if(r)goto S_53799;} +do{ +*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX= -1 ; +if(!qbevent)break;evnt(26307,17051,"ide_methods.bas");}while(r); +} +S_53802:; +if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT== 0 ))||new_error){ +if(qbevent){evnt(26307,17052,"ide_methods.bas");if(r)goto S_53802;} +do{ +*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=*_FUNC_IDERGBMIXER_LONG_SX1; +if(!qbevent)break;evnt(26307,17052,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDECOLORPICKER_STRING_A2,qbs_new_txt_len(",",1),0); +*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12824,"ide_methods.bas");}while(r); -S_47820:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA1> 0 ))||new_error){ -if(qbevent){evnt(25066,12825,"ide_methods.bas");if(r)goto S_47820;} +if(!qbevent)break;evnt(26307,17053,"ide_methods.bas");}while(r); +S_53806:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1> 0 ))||new_error){ +if(qbevent){evnt(26307,17054,"ide_methods.bas");if(r)goto S_53806;} do{ -*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA2=func_instr(*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA1+ 1 ,_FUNC_IDECOLORPICKER_STRING_A2,qbs_new_txt_len(",",1),1); +*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12826,"ide_methods.bas");}while(r); -S_47822:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA2> 0 ))||new_error){ -if(qbevent){evnt(25066,12827,"ide_methods.bas");if(r)goto S_47822;} +if(!qbevent)break;evnt(26307,17055,"ide_methods.bas");}while(r); +S_53808:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2> 0 ))||new_error){ +if(qbevent){evnt(26307,17056,"ide_methods.bas");if(r)goto S_53808;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_R,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17057,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_G,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17057,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_B,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12828,"ide_methods.bas");}while(r); -S_47826:; -fornext_value5410=*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA1- 1 ; -fornext_finalvalue5410= 1 ; -fornext_step5410= -1 ; -if (fornext_step5410<0) fornext_step_negative5410=1; else fornext_step_negative5410=0; -if (new_error) goto fornext_error5410; -goto fornext_entrylabel5410; +if(!qbevent)break;evnt(26307,17057,"ide_methods.bas");}while(r); +S_53812:; +fornext_value5981=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; +fornext_finalvalue5981= 1 ; +fornext_step5981= -1 ; +if (fornext_step5981<0) fornext_step_negative5981=1; else fornext_step_negative5981=0; +if (new_error) goto fornext_error5981; +goto fornext_entrylabel5981; while(1){ -fornext_value5410=fornext_step5410+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5410: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5410; -if (fornext_step_negative5410){ -if (fornext_value5410fornext_finalvalue5410) break; +if (fornext_value5981>fornext_finalvalue5981) break; } -fornext_error5410:; -if(qbevent){evnt(25066,12829,"ide_methods.bas");if(r)goto S_47826;} -S_47827:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)<= 57 ))))||new_error){ -if(qbevent){evnt(25066,12830,"ide_methods.bas");if(r)goto S_47827;} +fornext_error5981:; +if(qbevent){evnt(26307,17058,"ide_methods.bas");if(r)goto S_53812;} +S_53813:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ +if(qbevent){evnt(26307,17059,"ide_methods.bas");if(r)goto S_53813;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_R,qbs_add(func_mid(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I, 1 ,1),_FUNC_IDECOLORPICKER_STRING_R)); +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1),_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12831,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17060,"ide_methods.bas");}while(r); }else{ do{ -goto fornext_exit_5409; -if(!qbevent)break;evnt(25066,12833,"ide_methods.bas");}while(r); +goto fornext_exit_5980; +if(!qbevent)break;evnt(26307,17062,"ide_methods.bas");}while(r); } -fornext_continue_5409:; +fornext_continue_5980:; } -fornext_exit_5409:; -S_47833:; -fornext_value5412=*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA1+ 1 ; -fornext_finalvalue5412=*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA2- 1 ; -fornext_step5412= 1 ; -if (fornext_step5412<0) fornext_step_negative5412=1; else fornext_step_negative5412=0; -if (new_error) goto fornext_error5412; -goto fornext_entrylabel5412; +fornext_exit_5980:; +S_53819:; +fornext_value5983=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ; +fornext_finalvalue5983=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2- 1 ; +fornext_step5983= 1 ; +if (fornext_step5983<0) fornext_step_negative5983=1; else fornext_step_negative5983=0; +if (new_error) goto fornext_error5983; +goto fornext_entrylabel5983; while(1){ -fornext_value5412=fornext_step5412+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5412: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5412; -if (fornext_step_negative5412){ -if (fornext_value5412fornext_finalvalue5412) break; +if (fornext_value5983>fornext_finalvalue5983) break; } -fornext_error5412:; -if(qbevent){evnt(25066,12837,"ide_methods.bas");if(r)goto S_47833;} -S_47834:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)<= 57 ))))))||new_error){ -if(qbevent){evnt(25066,12838,"ide_methods.bas");if(r)goto S_47834;} +fornext_error5983:; +if(qbevent){evnt(26307,17066,"ide_methods.bas");if(r)goto S_53819;} +S_53820:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))))||new_error){ +if(qbevent){evnt(26307,17067,"ide_methods.bas");if(r)goto S_53820;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_G,qbs_add(_FUNC_IDECOLORPICKER_STRING_G,func_mid(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I, 1 ,1))); +qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_add(_FUNC_IDERGBMIXER_STRING_G,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17068,"ide_methods.bas");}while(r); }else{ do{ -goto fornext_exit_5411; -if(!qbevent)break;evnt(25066,12841,"ide_methods.bas");}while(r); +goto fornext_exit_5982; +if(!qbevent)break;evnt(26307,17070,"ide_methods.bas");}while(r); } -fornext_continue_5411:; +fornext_continue_5982:; } -fornext_exit_5411:; -S_47840:; -fornext_value5414=*_FUNC_IDECOLORPICKER_LONG_FINDCOMMA2+ 1 ; -fornext_finalvalue5414=_FUNC_IDECOLORPICKER_STRING_A2->len; -fornext_step5414= 1 ; -if (fornext_step5414<0) fornext_step_negative5414=1; else fornext_step_negative5414=0; -if (new_error) goto fornext_error5414; -goto fornext_entrylabel5414; +fornext_exit_5982:; +S_53826:; +fornext_value5985=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2+ 1 ; +fornext_finalvalue5985=_FUNC_IDERGBMIXER_STRING_A2->len; +fornext_step5985= 1 ; +if (fornext_step5985<0) fornext_step_negative5985=1; else fornext_step_negative5985=0; +if (new_error) goto fornext_error5985; +goto fornext_entrylabel5985; while(1){ -fornext_value5414=fornext_step5414+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5414: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5414; +fornext_value5985=fornext_step5985+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel5985: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value5985; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5414){ -if (fornext_value5414fornext_finalvalue5414) break; +if (fornext_value5985>fornext_finalvalue5985) break; } -fornext_error5414:; -if(qbevent){evnt(25066,12845,"ide_methods.bas");if(r)goto S_47840;} -S_47841:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I)<= 57 ))))))||new_error){ -if(qbevent){evnt(25066,12846,"ide_methods.bas");if(r)goto S_47841;} +fornext_error5985:; +if(qbevent){evnt(26307,17074,"ide_methods.bas");if(r)goto S_53826;} +S_53827:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))))||new_error){ +if(qbevent){evnt(26307,17075,"ide_methods.bas");if(r)goto S_53827;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_B,qbs_add(_FUNC_IDECOLORPICKER_STRING_B,func_mid(_FUNC_IDECOLORPICKER_STRING_A2,*_FUNC_IDECOLORPICKER_LONG_I, 1 ,1))); +qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_add(_FUNC_IDERGBMIXER_STRING_B,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12847,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17076,"ide_methods.bas");}while(r); }else{ do{ -goto fornext_exit_5413; -if(!qbevent)break;evnt(25066,12849,"ide_methods.bas");}while(r); +goto fornext_exit_5984; +if(!qbevent)break;evnt(26307,17078,"ide_methods.bas");}while(r); } -fornext_continue_5413:; +fornext_continue_5984:; } -fornext_exit_5413:; +fornext_exit_5984:; do{ -*_FUNC_IDECOLORPICKER_LONG_R=qbr(func_val(_FUNC_IDECOLORPICKER_STRING_R)); +*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12853,"ide_methods.bas");}while(r); -S_47848:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_R< 0 ))||new_error){ -if(qbevent){evnt(25066,12853,"ide_methods.bas");if(r)goto S_47848;} +if(!qbevent)break;evnt(26307,17082,"ide_methods.bas");}while(r); +S_53834:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ +if(qbevent){evnt(26307,17082,"ide_methods.bas");if(r)goto S_53834;} do{ -*_FUNC_IDECOLORPICKER_LONG_R= 0 ; -if(!qbevent)break;evnt(25066,12853,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_R= 0 ; +if(!qbevent)break;evnt(26307,17082,"ide_methods.bas");}while(r); } -S_47851:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_R> 255 ))||new_error){ -if(qbevent){evnt(25066,12854,"ide_methods.bas");if(r)goto S_47851;} +S_53837:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ +if(qbevent){evnt(26307,17083,"ide_methods.bas");if(r)goto S_53837;} do{ -*_FUNC_IDECOLORPICKER_LONG_R= 255 ; -if(!qbevent)break;evnt(25066,12854,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_R= 255 ; +if(!qbevent)break;evnt(26307,17083,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_G=qbr(func_val(_FUNC_IDECOLORPICKER_STRING_G)); +*_FUNC_IDERGBMIXER_LONG_G=qbr(func_val(_FUNC_IDERGBMIXER_STRING_G)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12855,"ide_methods.bas");}while(r); -S_47855:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_G< 0 ))||new_error){ -if(qbevent){evnt(25066,12855,"ide_methods.bas");if(r)goto S_47855;} +if(!qbevent)break;evnt(26307,17084,"ide_methods.bas");}while(r); +S_53841:; +if ((-(*_FUNC_IDERGBMIXER_LONG_G< 0 ))||new_error){ +if(qbevent){evnt(26307,17084,"ide_methods.bas");if(r)goto S_53841;} do{ -*_FUNC_IDECOLORPICKER_LONG_G= 0 ; -if(!qbevent)break;evnt(25066,12855,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_G= 0 ; +if(!qbevent)break;evnt(26307,17084,"ide_methods.bas");}while(r); } -S_47858:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_G> 255 ))||new_error){ -if(qbevent){evnt(25066,12856,"ide_methods.bas");if(r)goto S_47858;} +S_53844:; +if ((-(*_FUNC_IDERGBMIXER_LONG_G> 255 ))||new_error){ +if(qbevent){evnt(26307,17085,"ide_methods.bas");if(r)goto S_53844;} do{ -*_FUNC_IDECOLORPICKER_LONG_G= 255 ; -if(!qbevent)break;evnt(25066,12856,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_G= 255 ; +if(!qbevent)break;evnt(26307,17085,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_B=qbr(func_val(_FUNC_IDECOLORPICKER_STRING_B)); +*_FUNC_IDERGBMIXER_LONG_B=qbr(func_val(_FUNC_IDERGBMIXER_STRING_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12857,"ide_methods.bas");}while(r); -S_47862:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_B< 0 ))||new_error){ -if(qbevent){evnt(25066,12857,"ide_methods.bas");if(r)goto S_47862;} +if(!qbevent)break;evnt(26307,17086,"ide_methods.bas");}while(r); +S_53848:; +if ((-(*_FUNC_IDERGBMIXER_LONG_B< 0 ))||new_error){ +if(qbevent){evnt(26307,17086,"ide_methods.bas");if(r)goto S_53848;} do{ -*_FUNC_IDECOLORPICKER_LONG_B= 0 ; -if(!qbevent)break;evnt(25066,12857,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_B= 0 ; +if(!qbevent)break;evnt(26307,17086,"ide_methods.bas");}while(r); } -S_47865:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_B> 255 ))||new_error){ -if(qbevent){evnt(25066,12858,"ide_methods.bas");if(r)goto S_47865;} +S_53851:; +if ((-(*_FUNC_IDERGBMIXER_LONG_B> 255 ))||new_error){ +if(qbevent){evnt(26307,17087,"ide_methods.bas");if(r)goto S_53851;} do{ -*_FUNC_IDECOLORPICKER_LONG_B= 255 ; -if(!qbevent)break;evnt(25066,12858,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_B= 255 ; +if(!qbevent)break;evnt(26307,17087,"ide_methods.bas");}while(r); } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECOLORPICKER_LONG_R)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12860,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17089,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECOLORPICKER_LONG_G)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12861,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17090,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECOLORPICKER_LONG_B)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12862,"ide_methods.bas");}while(r); -S_47871:; -fornext_value5417= 1 ; -fornext_finalvalue5417= 3 ; -fornext_step5417= 1 ; -if (fornext_step5417<0) fornext_step_negative5417=1; else fornext_step_negative5417=0; -if (new_error) goto fornext_error5417; -goto fornext_entrylabel5417; +if(!qbevent)break;evnt(26307,17091,"ide_methods.bas");}while(r); +S_53857:; +fornext_value5988= 1 ; +fornext_finalvalue5988= 3 ; +fornext_step5988= 1 ; +if (fornext_step5988<0) fornext_step_negative5988=1; else fornext_step_negative5988=0; +if (new_error) goto fornext_error5988; +goto fornext_entrylabel5988; while(1){ -fornext_value5417=fornext_step5417+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5417: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5417; -if (fornext_step_negative5417){ -if (fornext_value5417fornext_finalvalue5417) break; +if (fornext_value5988>fornext_finalvalue5988) break; } -fornext_error5417:; -if(qbevent){evnt(25066,12864,"ide_methods.bas");if(r)goto S_47871;} +fornext_error5988:; +if(qbevent){evnt(26307,17093,"ide_methods.bas");if(r)goto S_53857;} do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12865,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17094,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12866,"ide_methods.bas");}while(r); -S_47874:; -if ((-(*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,12867,"ide_methods.bas");if(r)goto S_47874;} +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17095,"ide_methods.bas");}while(r); +S_53860:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,17096,"ide_methods.bas");if(r)goto S_53860;} do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12867,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17096,"ide_methods.bas");}while(r); } -fornext_continue_5416:; +fornext_continue_5987:; +} +fornext_exit_5987:; +S_53864:; +}else{ +if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ +if(qbevent){evnt(26307,17098,"ide_methods.bas");if(r)goto S_53864;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17099,"ide_methods.bas");}while(r); +S_53866:; +fornext_value5991=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; +fornext_finalvalue5991= 1 ; +fornext_step5991= -1 ; +if (fornext_step5991<0) fornext_step_negative5991=1; else fornext_step_negative5991=0; +if (new_error) goto fornext_error5991; +goto fornext_entrylabel5991; +while(1){ +fornext_value5991=fornext_step5991+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel5991: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value5991; +if (fornext_step_negative5991){ +if (fornext_value5991fornext_finalvalue5991) break; +} +fornext_error5991:; +if(qbevent){evnt(26307,17100,"ide_methods.bas");if(r)goto S_53866;} +S_53867:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ +if(qbevent){evnt(26307,17101,"ide_methods.bas");if(r)goto S_53867;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1),_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17102,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_5990; +if(!qbevent)break;evnt(26307,17104,"ide_methods.bas");}while(r); +} +fornext_continue_5990:; +} +fornext_exit_5990:; +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17108,"ide_methods.bas");}while(r); +S_53874:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ +if(qbevent){evnt(26307,17108,"ide_methods.bas");if(r)goto S_53874;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 0 ; +if(!qbevent)break;evnt(26307,17108,"ide_methods.bas");}while(r); +} +S_53877:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ +if(qbevent){evnt(26307,17109,"ide_methods.bas");if(r)goto S_53877;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 255 ; +if(!qbevent)break;evnt(26307,17109,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26307,17110,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26307,17111,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17113,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17114,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17115,"ide_methods.bas");}while(r); +S_53885:; +fornext_value5993= 1 ; +fornext_finalvalue5993= 3 ; +fornext_step5993= 1 ; +if (fornext_step5993<0) fornext_step_negative5993=1; else fornext_step_negative5993=0; +if (new_error) goto fornext_error5993; +goto fornext_entrylabel5993; +while(1){ +fornext_value5993=fornext_step5993+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel5993: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value5993; +if (fornext_step_negative5993){ +if (fornext_value5993fornext_finalvalue5993) break; +} +fornext_error5993:; +if(qbevent){evnt(26307,17117,"ide_methods.bas");if(r)goto S_53885;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17118,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17119,"ide_methods.bas");}while(r); +S_53888:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,17120,"ide_methods.bas");if(r)goto S_53888;} +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17120,"ide_methods.bas");}while(r); +} +fornext_continue_5992:; +} +fornext_exit_5992:; +} +} +S_53893:; +}else{ +if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ +if(qbevent){evnt(26307,17123,"ide_methods.bas");if(r)goto S_53893;} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(")",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17125,"ide_methods.bas");}while(r); +S_53895:; +if ((*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1)||new_error){ +if(qbevent){evnt(26307,17126,"ide_methods.bas");if(r)goto S_53895;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17127,"ide_methods.bas");}while(r); +S_53897:; +fornext_value5996=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; +fornext_finalvalue5996= 1 ; +fornext_step5996= -1 ; +if (fornext_step5996<0) fornext_step_negative5996=1; else fornext_step_negative5996=0; +if (new_error) goto fornext_error5996; +goto fornext_entrylabel5996; +while(1){ +fornext_value5996=fornext_step5996+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel5996: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value5996; +if (fornext_step_negative5996){ +if (fornext_value5996fornext_finalvalue5996) break; +} +fornext_error5996:; +if(qbevent){evnt(26307,17128,"ide_methods.bas");if(r)goto S_53897;} +S_53898:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ +if(qbevent){evnt(26307,17129,"ide_methods.bas");if(r)goto S_53898;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,1),_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17130,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_5995; +if(!qbevent)break;evnt(26307,17132,"ide_methods.bas");}while(r); +} +fornext_continue_5995:; +} +fornext_exit_5995:; +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17136,"ide_methods.bas");}while(r); +S_53905:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ +if(qbevent){evnt(26307,17136,"ide_methods.bas");if(r)goto S_53905;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 0 ; +if(!qbevent)break;evnt(26307,17136,"ide_methods.bas");}while(r); +} +S_53908:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ +if(qbevent){evnt(26307,17137,"ide_methods.bas");if(r)goto S_53908;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 255 ; +if(!qbevent)break;evnt(26307,17137,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26307,17138,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26307,17139,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17141,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17142,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17143,"ide_methods.bas");}while(r); +S_53916:; +fornext_value5998= 1 ; +fornext_finalvalue5998= 3 ; +fornext_step5998= 1 ; +if (fornext_step5998<0) fornext_step_negative5998=1; else fornext_step_negative5998=0; +if (new_error) goto fornext_error5998; +goto fornext_entrylabel5998; +while(1){ +fornext_value5998=fornext_step5998+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel5998: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value5998; +if (fornext_step_negative5998){ +if (fornext_value5998fornext_finalvalue5998) break; +} +fornext_error5998:; +if(qbevent){evnt(26307,17145,"ide_methods.bas");if(r)goto S_53916;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17146,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17147,"ide_methods.bas");}while(r); +S_53919:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,17148,"ide_methods.bas");if(r)goto S_53919;} +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17148,"ide_methods.bas");}while(r); +} +fornext_continue_5997:; +} +fornext_exit_5997:; } -fornext_exit_5416:; } } }else{ -S_47881:; +S_53926:; if ((*__LONG_IDESELECT&(-(*__LONG_IDESELECTY1==*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(25066,12874,"ide_methods.bas");if(r)goto S_47881;} +if(qbevent){evnt(26307,17155,"ide_methods.bas");if(r)goto S_53926;} do{ *__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,12875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17156,"ide_methods.bas");}while(r); do{ goto LABEL_RGB_LOOKUP; -if(!qbevent)break;evnt(25066,12876,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17157,"ide_methods.bas");}while(r); } } } LABEL_NORGBFOUND:; -if(qbevent){evnt(25066,12880,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,17161,"ide_methods.bas");r=0;} do{ -*_FUNC_IDECOLORPICKER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12881,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17162,"ide_methods.bas");}while(r); do{ -sub__palettecolor( 12 ,*_FUNC_IDECOLORPICKER_ULONG_CURRENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,12882,"ide_methods.bas");}while(r); +sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,17163,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 , -16734208 , 0 ,1); -if(!qbevent)break;evnt(25066,12883,"ide_methods.bas");}while(r); -S_47890:; -fornext_value5420= 1 ; -fornext_finalvalue5420= 100 ; -fornext_step5420= 1 ; -if (fornext_step5420<0) fornext_step_negative5420=1; else fornext_step_negative5420=0; -if (new_error) goto fornext_error5420; -goto fornext_entrylabel5420; +if(!qbevent)break;evnt(26307,17164,"ide_methods.bas");}while(r); +S_53935:; +fornext_value6001= 1 ; +fornext_finalvalue6001= 100 ; +fornext_step6001= 1 ; +if (fornext_step6001<0) fornext_step_negative6001=1; else fornext_step_negative6001=0; +if (new_error) goto fornext_error6001; +goto fornext_entrylabel6001; while(1){ -fornext_value5420=fornext_step5420+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5420: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5420; -if (fornext_step_negative5420){ -if (fornext_value5420fornext_finalvalue5420) break; +if (fornext_value6001>fornext_finalvalue6001) break; } -fornext_error5420:; -if(qbevent){evnt(25066,12887,"ide_methods.bas");if(r)goto S_47890;} +fornext_error6001:; +if(qbevent){evnt(26307,17168,"ide_methods.bas");if(r)goto S_53935;} do{ -memcpy(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,12887,"ide_methods.bas");}while(r); -fornext_continue_5419:; +memcpy(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDERGBMIXER_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,17168,"ide_methods.bas");}while(r); +fornext_continue_6000:; } -fornext_exit_5419:; -S_47893:; +fornext_exit_6000:; +S_53938:; do{ -if(qbevent){evnt(25066,12890,"ide_methods.bas");if(r)goto S_47893;} +if(qbevent){evnt(26307,17171,"ide_methods.bas");if(r)goto S_53938;} do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECOLORPICKER_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,12893,"ide_methods.bas");}while(r); +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,17174,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,12894,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,17175,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,12894,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,17175,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,12894,"ide_methods.bas");}while(r); -S_47898:; -fornext_value5423= 1 ; -fornext_finalvalue5423= 100 ; -fornext_step5423= 1 ; -if (fornext_step5423<0) fornext_step_negative5423=1; else fornext_step_negative5423=0; -if (new_error) goto fornext_error5423; -goto fornext_entrylabel5423; +*_FUNC_IDERGBMIXER_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,17175,"ide_methods.bas");}while(r); +S_53943:; +fornext_value6004= 1 ; +fornext_finalvalue6004= 100 ; +fornext_step6004= 1 ; +if (fornext_step6004<0) fornext_step_negative6004=1; else fornext_step_negative6004=0; +if (new_error) goto fornext_error6004; +goto fornext_entrylabel6004; while(1){ -fornext_value5423=fornext_step5423+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5423: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5423; -if (fornext_step_negative5423){ -if (fornext_value5423fornext_finalvalue5423) break; +if (fornext_value6004>fornext_finalvalue6004) break; } -fornext_error5423:; -if(qbevent){evnt(25066,12895,"ide_methods.bas");if(r)goto S_47898;} -S_47899:; -if ((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,12896,"ide_methods.bas");if(r)goto S_47899;} +fornext_error6004:; +if(qbevent){evnt(26307,17176,"ide_methods.bas");if(r)goto S_53943;} +S_53944:; +if ((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,17177,"ide_methods.bas");if(r)goto S_53944;} do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDECOLORPICKER_LONG_FOCUS-*_FUNC_IDECOLORPICKER_LONG_F; -if(!qbevent)break;evnt(25066,12899,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; +if(!qbevent)break;evnt(26307,17180,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,12900,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,17181,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,12900,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,17181,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECOLORPICKER_LONG_F); -if(!qbevent)break;evnt(25066,12901,"ide_methods.bas");}while(r); -S_47904:; -if ((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,12902,"ide_methods.bas");if(r)goto S_47904;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERGBMIXER_LONG_F); +if(!qbevent)break;evnt(26307,17182,"ide_methods.bas");}while(r); +S_53949:; +if ((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,17183,"ide_methods.bas");if(r)goto S_53949;} do{ -*_FUNC_IDECOLORPICKER_LONG_CX=*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,12902,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CX=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,17183,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_CY=*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,12902,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CY=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,17183,"ide_methods.bas");}while(r); } } -fornext_continue_5422:; +fornext_continue_6003:; } -fornext_exit_5422:; +fornext_exit_6003:; do{ -*_FUNC_IDECOLORPICKER_LONG_LASTFOCUS=*_FUNC_IDECOLORPICKER_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,12905,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_LASTFOCUS=*_FUNC_IDERGBMIXER_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,17186,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12909,"ide_methods.bas");}while(r); +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,17190,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("R: ",3)); -if (new_error) goto skip5424; +if (new_error) goto skip6005; makefit(tqbs); qbs_print(tqbs,0); -skip5424: +skip6005: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12909,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17190,"ide_methods.bas");}while(r); do{ qbg_sub_color( 4 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12910,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17191,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 46 , 196 )); -if (new_error) goto skip5425; +if (new_error) goto skip6006; makefit(tqbs); qbs_print(tqbs,0); -skip5425: +skip6006: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12910,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17191,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 197 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12911,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17192,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17193,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_R=qbr(((*_FUNC_IDECOLORPICKER_LONG_T/ ((long double)( 255 )))* 46 )); -if(!qbevent)break;evnt(25066,12912,"ide_methods.bas");}while(r); -S_47918:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(25066,12913,"ide_methods.bas");if(r)goto S_47918;} +*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); +if(!qbevent)break;evnt(26307,17193,"ide_methods.bas");}while(r); +S_53963:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26307,17194,"ide_methods.bas");if(r)goto S_53963;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 195 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12913,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17194,"ide_methods.bas");}while(r); } -S_47921:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(25066,12914,"ide_methods.bas");if(r)goto S_47921;} +S_53966:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26307,17195,"ide_methods.bas");if(r)goto S_53966;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 180 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12914,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17195,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 +*_FUNC_IDECOLORPICKER_LONG_R,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12915,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECOLORPICKER_STRING_SLIDER); -if (new_error) goto skip5426; -makefit(tqbs); -qbs_print(tqbs,0); -skip5426: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12915,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17196,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12917,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17198,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12917,"ide_methods.bas");}while(r); +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,17198,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("G: ",3)); -if (new_error) goto skip5427; +if (new_error) goto skip6007; makefit(tqbs); qbs_print(tqbs,0); -skip5427: +skip6007: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12917,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17198,"ide_methods.bas");}while(r); do{ qbg_sub_color( 5 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12918,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17199,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 46 , 196 )); -if (new_error) goto skip5428; +if (new_error) goto skip6008; makefit(tqbs); qbs_print(tqbs,0); -skip5428: +skip6008: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12918,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17199,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 197 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12919,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17200,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17201,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_R=qbr(((*_FUNC_IDECOLORPICKER_LONG_T/ ((long double)( 255 )))* 46 )); -if(!qbevent)break;evnt(25066,12920,"ide_methods.bas");}while(r); -S_47934:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(25066,12921,"ide_methods.bas");if(r)goto S_47934;} +*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); +if(!qbevent)break;evnt(26307,17201,"ide_methods.bas");}while(r); +S_53978:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26307,17202,"ide_methods.bas");if(r)goto S_53978;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 195 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12921,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17202,"ide_methods.bas");}while(r); } -S_47937:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(25066,12922,"ide_methods.bas");if(r)goto S_47937;} +S_53981:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26307,17203,"ide_methods.bas");if(r)goto S_53981;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 180 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17203,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 +*_FUNC_IDECOLORPICKER_LONG_R,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12923,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECOLORPICKER_STRING_SLIDER); -if (new_error) goto skip5429; -makefit(tqbs); -qbs_print(tqbs,0); -skip5429: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12923,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17204,"ide_methods.bas");}while(r); do{ qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12925,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17206,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12925,"ide_methods.bas");}while(r); +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,17206,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len("B: ",3)); -if (new_error) goto skip5430; +if (new_error) goto skip6009; makefit(tqbs); qbs_print(tqbs,0); -skip5430: +skip6009: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12925,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17206,"ide_methods.bas");}while(r); do{ qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12926,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17207,"ide_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_string( 46 , 196 )); -if (new_error) goto skip5431; +if (new_error) goto skip6010; makefit(tqbs); qbs_print(tqbs,0); -skip5431: +skip6010: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12926,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17207,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 197 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12927,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17208,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12928,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17209,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_R=qbr(((*_FUNC_IDECOLORPICKER_LONG_T/ ((long double)( 255 )))* 46 )); -if(!qbevent)break;evnt(25066,12928,"ide_methods.bas");}while(r); -S_47950:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(25066,12929,"ide_methods.bas");if(r)goto S_47950;} +*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); +if(!qbevent)break;evnt(26307,17209,"ide_methods.bas");}while(r); +S_53993:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26307,17210,"ide_methods.bas");if(r)goto S_53993;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 195 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12929,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17210,"ide_methods.bas");}while(r); } -S_47953:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(25066,12930,"ide_methods.bas");if(r)goto S_47953;} +S_53996:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26307,17211,"ide_methods.bas");if(r)goto S_53996;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_SLIDER,func_chr( 180 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12930,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17211,"ide_methods.bas");}while(r); } do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 +*_FUNC_IDECOLORPICKER_LONG_R,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12931,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_IDECOLORPICKER_STRING_SLIDER); -if (new_error) goto skip5432; -makefit(tqbs); -qbs_print(tqbs,0); -skip5432: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12931,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17212,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,17214,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 19 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 9 ,qbs_new_txt_len("Hold CTRL to drag all sliders at once.",38),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17214,"ide_methods.bas");}while(r); do{ qbg_sub_color( 12 ,NULL,NULL,1); -if(!qbevent)break;evnt(25066,12933,"ide_methods.bas");}while(r); -S_47959:; -fornext_value5434= 2 ; -fornext_finalvalue5434= 8 ; -fornext_step5434= 1 ; -if (fornext_step5434<0) fornext_step_negative5434=1; else fornext_step_negative5434=0; -if (new_error) goto fornext_error5434; -goto fornext_entrylabel5434; +if(!qbevent)break;evnt(26307,17216,"ide_methods.bas");}while(r); +S_54003:; +fornext_value6012= 2 ; +fornext_finalvalue6012= 8 ; +fornext_step6012= 1 ; +if (fornext_step6012<0) fornext_step_negative6012=1; else fornext_step_negative6012=0; +if (new_error) goto fornext_error6012; +goto fornext_entrylabel6012; while(1){ -fornext_value5434=fornext_step5434+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5434: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5434; -if (fornext_step_negative5434){ -if (fornext_value5434fornext_finalvalue5434) break; +if (fornext_value6012>fornext_finalvalue6012) break; } -fornext_error5434:; -if(qbevent){evnt(25066,12934,"ide_methods.bas");if(r)goto S_47959;} +fornext_error6012:; +if(qbevent){evnt(26307,17217,"ide_methods.bas");if(r)goto S_54003;} do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+*_FUNC_IDECOLORPICKER_LONG_I,*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,12935,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 10 , 219 )); -if (new_error) goto skip5435; -makefit(tqbs); -qbs_print(tqbs,0); -skip5435: -qbs_free(tqbs); +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+*_FUNC_IDERGBMIXER_LONG_I,func_string( 10 , 219 ),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12936,"ide_methods.bas");}while(r); -fornext_continue_5433:; +if(!qbevent)break;evnt(26307,17218,"ide_methods.bas");}while(r); +fornext_continue_6011:; } -fornext_exit_5433:; +fornext_exit_6011:; do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,12941,"ide_methods.bas");}while(r); -S_47964:; -if ((*_FUNC_IDECOLORPICKER_LONG_CX)||new_error){ -if(qbevent){evnt(25066,12942,"ide_methods.bas");if(r)goto S_47964;} +if(!qbevent)break;evnt(26307,17223,"ide_methods.bas");}while(r); +S_54007:; +if ((*_FUNC_IDERGBMIXER_LONG_CX)||new_error){ +if(qbevent){evnt(26307,17224,"ide_methods.bas");if(r)goto S_54007;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12942,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17224,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*_FUNC_IDECOLORPICKER_LONG_CY,*_FUNC_IDECOLORPICKER_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,12942,"ide_methods.bas");}while(r); +qbg_sub_locate(*_FUNC_IDERGBMIXER_LONG_CY,*_FUNC_IDERGBMIXER_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,17224,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12942,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17224,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,12945,"ide_methods.bas");}while(r); -S_47970:; +*_FUNC_IDERGBMIXER_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,17227,"ide_methods.bas");}while(r); +S_54013:; do{ -if(qbevent){evnt(25066,12946,"ide_methods.bas");if(r)goto S_47970;} +if(qbevent){evnt(26307,17228,"ide_methods.bas");if(r)goto S_54013;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,12947,"ide_methods.bas");}while(r); -S_47972:; +if(!qbevent)break;evnt(26307,17229,"ide_methods.bas");}while(r); +S_54015:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,12948,"ide_methods.bas");if(r)goto S_47972;} +if(qbevent){evnt(26307,17230,"ide_methods.bas");if(r)goto S_54015;} do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12948,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,17230,"ide_methods.bas");}while(r); } -S_47975:; +S_54018:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,12949,"ide_methods.bas");if(r)goto S_47975;} +if(qbevent){evnt(26307,17231,"ide_methods.bas");if(r)goto S_54018;} do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12949,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,17231,"ide_methods.bas");}while(r); } -S_47978:; +S_54021:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,12950,"ide_methods.bas");if(r)goto S_47978;} +if(qbevent){evnt(26307,17232,"ide_methods.bas");if(r)goto S_54021;} do{ -*_FUNC_IDECOLORPICKER_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,12950,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,17232,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12950,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,17232,"ide_methods.bas");}while(r); } -S_47982:; +S_54025:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,12951,"ide_methods.bas");if(r)goto S_47982;} +if(qbevent){evnt(26307,17233,"ide_methods.bas");if(r)goto S_54025;} do{ -*_FUNC_IDECOLORPICKER_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,12951,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,17233,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12951,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,17233,"ide_methods.bas");}while(r); } -S_47986:; +S_54029:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,12952,"ide_methods.bas");if(r)goto S_47986;} +if(qbevent){evnt(26307,17234,"ide_methods.bas");if(r)goto S_54029;} do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12952,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,17234,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,12953,"ide_methods.bas");}while(r); -S_47990:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_ALT!=*_FUNC_IDECOLORPICKER_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,12953,"ide_methods.bas");if(r)goto S_47990;} +*_FUNC_IDERGBMIXER_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,17235,"ide_methods.bas");}while(r); +S_54033:; +if ((-(*_FUNC_IDERGBMIXER_LONG_ALT!=*_FUNC_IDERGBMIXER_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,17235,"ide_methods.bas");if(r)goto S_54033;} do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,12953,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,17235,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_OLDALT=*_FUNC_IDECOLORPICKER_LONG_ALT; -if(!qbevent)break;evnt(25066,12954,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_OLDALT=*_FUNC_IDERGBMIXER_LONG_ALT; +if(!qbevent)break;evnt(26307,17236,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,12955,"ide_methods.bas");}while(r); -S_47995:; -dl_continue_5436:; -}while((!(*_FUNC_IDECOLORPICKER_LONG_CHANGE))&&(!new_error)); -dl_exit_5436:; -if(qbevent){evnt(25066,12956,"ide_methods.bas");if(r)goto S_47995;} -S_47996:; -if ((*_FUNC_IDECOLORPICKER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,12957,"ide_methods.bas");if(r)goto S_47996;} +if(!qbevent)break;evnt(26307,17237,"ide_methods.bas");}while(r); +S_54038:; +dl_continue_6013:; +}while((!(*_FUNC_IDERGBMIXER_LONG_CHANGE))&&(!new_error)); +dl_exit_6013:; +if(qbevent){evnt(26307,17238,"ide_methods.bas");if(r)goto S_54038;} +S_54039:; +if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,17239,"ide_methods.bas");if(r)goto S_54039;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,12957,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17239,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,12957,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17239,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12959,"ide_methods.bas");}while(r); -S_48002:; -if ((*_FUNC_IDECOLORPICKER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,12960,"ide_methods.bas");if(r)goto S_48002;} -S_48003:; +if(!qbevent)break;evnt(26307,17241,"ide_methods.bas");}while(r); +S_54045:; +if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,17242,"ide_methods.bas");if(r)goto S_54045;} +S_54046:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,12961,"ide_methods.bas");if(r)goto S_48003;} +if(qbevent){evnt(26307,17243,"ide_methods.bas");if(r)goto S_54046;} do{ -*_FUNC_IDECOLORPICKER_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +*_FUNC_IDERGBMIXER_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12962,"ide_methods.bas");}while(r); -S_48005:; -if (((-(*_FUNC_IDECOLORPICKER_LONG_K>= 65 ))&(-(*_FUNC_IDECOLORPICKER_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,12963,"ide_methods.bas");if(r)goto S_48005;} +if(!qbevent)break;evnt(26307,17244,"ide_methods.bas");}while(r); +S_54048:; +if (((-(*_FUNC_IDERGBMIXER_LONG_K>= 65 ))&(-(*_FUNC_IDERGBMIXER_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,17245,"ide_methods.bas");if(r)goto S_54048;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_ALTLETTER,func_chr(*_FUNC_IDECOLORPICKER_LONG_K)); +qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,func_chr(*_FUNC_IDERGBMIXER_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12963,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17245,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17248,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,12966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17248,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,12966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17248,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,12970,"ide_methods.bas");}while(r); -S_48014:; +*_FUNC_IDERGBMIXER_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,17252,"ide_methods.bas");}while(r); +S_54057:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,12971,"ide_methods.bas");if(r)goto S_48014;} +if(qbevent){evnt(26307,17253,"ide_methods.bas");if(r)goto S_54057;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12971,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17253,"ide_methods.bas");}while(r); } -S_48017:; +S_54060:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,12972,"ide_methods.bas");if(r)goto S_48017;} +if(qbevent){evnt(26307,17254,"ide_methods.bas");if(r)goto S_54060;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS=*_FUNC_IDECOLORPICKER_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,12972,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,17254,"ide_methods.bas");}while(r); } -S_48020:; +S_54063:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,12973,"ide_methods.bas");if(r)goto S_48020;} +if(qbevent){evnt(26307,17255,"ide_methods.bas");if(r)goto S_54063;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS=*_FUNC_IDECOLORPICKER_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,12973,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,17255,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12973,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17255,"ide_methods.bas");}while(r); } -S_48024:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,12974,"ide_methods.bas");if(r)goto S_48024;} +S_54067:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,17256,"ide_methods.bas");if(r)goto S_54067;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS=*_FUNC_IDECOLORPICKER_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,12974,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,17256,"ide_methods.bas");}while(r); } -S_48027:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS>*_FUNC_IDECOLORPICKER_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,12975,"ide_methods.bas");if(r)goto S_48027;} +S_54070:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>*_FUNC_IDERGBMIXER_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,17257,"ide_methods.bas");if(r)goto S_54070;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,12975,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,17257,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,12976,"ide_methods.bas");}while(r); -S_48031:; -fornext_value5439= 1 ; -fornext_finalvalue5439= 100 ; -fornext_step5439= 1 ; -if (fornext_step5439<0) fornext_step_negative5439=1; else fornext_step_negative5439=0; -if (new_error) goto fornext_error5439; -goto fornext_entrylabel5439; +*_FUNC_IDERGBMIXER_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,17258,"ide_methods.bas");}while(r); +S_54074:; +fornext_value6016= 1 ; +fornext_finalvalue6016= 100 ; +fornext_step6016= 1 ; +if (fornext_step6016<0) fornext_step_negative6016=1; else fornext_step_negative6016=0; +if (new_error) goto fornext_error6016; +goto fornext_entrylabel6016; while(1){ -fornext_value5439=fornext_step5439+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5439: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5439; -if (fornext_step_negative5439){ -if (fornext_value5439fornext_finalvalue5439) break; +if (fornext_value6016>fornext_finalvalue6016) break; } -fornext_error5439:; -if(qbevent){evnt(25066,12977,"ide_methods.bas");if(r)goto S_48031;} +fornext_error6016:; +if(qbevent){evnt(26307,17259,"ide_methods.bas");if(r)goto S_54074;} do{ -*_FUNC_IDECOLORPICKER_LONG_T=*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,12978,"ide_methods.bas");}while(r); -S_48033:; -if ((*_FUNC_IDECOLORPICKER_LONG_T)||new_error){ -if(qbevent){evnt(25066,12979,"ide_methods.bas");if(r)goto S_48033;} +*_FUNC_IDERGBMIXER_LONG_T=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,17260,"ide_methods.bas");}while(r); +S_54076:; +if ((*_FUNC_IDERGBMIXER_LONG_T)||new_error){ +if(qbevent){evnt(26307,17261,"ide_methods.bas");if(r)goto S_54076;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUSOFFSET=*_FUNC_IDECOLORPICKER_LONG_FOCUS-*_FUNC_IDECOLORPICKER_LONG_F; -if(!qbevent)break;evnt(25066,12980,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; +if(!qbevent)break;evnt(26307,17262,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECOLORPICKER_LONG_I)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85) ),_FUNC_IDECOLORPICKER_LONG_FOCUS,_FUNC_IDECOLORPICKER_LONG_F,_FUNC_IDECOLORPICKER_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECOLORPICKER_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECOLORPICKER_LONG_MOUSEDOWN,_FUNC_IDECOLORPICKER_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECOLORPICKER_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERGBMIXER_LONG_FOCUS,_FUNC_IDERGBMIXER_LONG_F,_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERGBMIXER_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERGBMIXER_LONG_MOUSEDOWN,_FUNC_IDERGBMIXER_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERGBMIXER_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12981,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17263,"ide_methods.bas");}while(r); } -fornext_continue_5438:; +fornext_continue_6015:; } -fornext_exit_5438:; -S_48038:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS!=*_FUNC_IDECOLORPICKER_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(25066,12987,"ide_methods.bas");if(r)goto S_48038;} +fornext_exit_6015:; +S_54081:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS!=*_FUNC_IDERGBMIXER_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26307,17269,"ide_methods.bas");if(r)goto S_54081;} do{ -*_FUNC_IDECOLORPICKER_LONG_PREVFOCUS=*_FUNC_IDECOLORPICKER_LONG_FOCUS; -if(!qbevent)break;evnt(25066,12989,"ide_methods.bas");}while(r); -S_48040:; -if (((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS>= 1 ))&(-(*_FUNC_IDECOLORPICKER_LONG_FOCUS<= 3 )))||new_error){ -if(qbevent){evnt(25066,12990,"ide_methods.bas");if(r)goto S_48040;} +*_FUNC_IDERGBMIXER_LONG_PREVFOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS; +if(!qbevent)break;evnt(26307,17271,"ide_methods.bas");}while(r); +S_54083:; +if (((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>= 1 ))&(-(*_FUNC_IDERGBMIXER_LONG_FOCUS<= 3 )))||new_error){ +if(qbevent){evnt(26307,17272,"ide_methods.bas");if(r)goto S_54083;} do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,12991,"ide_methods.bas");}while(r); -S_48042:; -if ((-(*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))> 0 ))||new_error){ -if(qbevent){evnt(25066,12992,"ide_methods.bas");if(r)goto S_48042;} +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17273,"ide_methods.bas");}while(r); +S_54085:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26307,17274,"ide_methods.bas");if(r)goto S_54085;} do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,12992,"ide_methods.bas");}while(r); +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17274,"ide_methods.bas");}while(r); } do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,12993,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17275,"ide_methods.bas");}while(r); } } -S_48048:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ -if(qbevent){evnt(25066,12997,"ide_methods.bas");if(r)goto S_48048;} +S_54091:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ +if(qbevent){evnt(26307,17279,"ide_methods.bas");if(r)goto S_54091;} do{ -*_FUNC_IDECOLORPICKER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); -if(!qbevent)break;evnt(25066,12998,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); +if(!qbevent)break;evnt(26307,17280,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECOLORPICKER_LONG_NEWVALUE)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12999,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17281,"ide_methods.bas");}while(r); +S_54094:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26307,17282,"ide_methods.bas");if(r)goto S_54094;} do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,13000,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,13001,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,13002,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,13003,"ide_methods.bas");}while(r); -} -S_48056:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ -if(qbevent){evnt(25066,13006,"ide_methods.bas");if(r)goto S_48056;} -do{ -*_FUNC_IDECOLORPICKER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); -if(!qbevent)break;evnt(25066,13007,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECOLORPICKER_LONG_NEWVALUE)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13008,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17283,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS= 2 ; -if(!qbevent)break;evnt(25066,13009,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,13010,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,13011,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,13012,"ide_methods.bas");}while(r); -} -S_48064:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ -if(qbevent){evnt(25066,13015,"ide_methods.bas");if(r)goto S_48064;} -do{ -*_FUNC_IDECOLORPICKER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECOLORPICKER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); -if(!qbevent)break;evnt(25066,13016,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECOLORPICKER_LONG_NEWVALUE)); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13017,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_FOCUS= 3 ; -if(!qbevent)break;evnt(25066,13018,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,13019,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,13020,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,13021,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17284,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGEDWITHKEYS= 0 ; -if(!qbevent)break;evnt(25066,13024,"ide_methods.bas");}while(r); -S_48073:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 3 ))))))||new_error){ -if(qbevent){evnt(25066,13025,"ide_methods.bas");if(r)goto S_48073;} +*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,17286,"ide_methods.bas");}while(r); do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5444=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17287,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17288,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17289,"ide_methods.bas");}while(r); +} +S_54103:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ +if(qbevent){evnt(26307,17292,"ide_methods.bas");if(r)goto S_54103;} +do{ +*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); +if(!qbevent)break;evnt(26307,17293,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13026,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17294,"ide_methods.bas");}while(r); +S_54106:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26307,17295,"ide_methods.bas");if(r)goto S_54106;} do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,13027,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,13027,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,13027,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(25066,13028,"ide_methods.bas");}while(r); -} -S_48080:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 3 ))))))||new_error){ -if(qbevent){evnt(25066,13031,"ide_methods.bas");if(r)goto S_48080;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass5446=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13032,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17296,"ide_methods.bas");}while(r); do{ -*(int8*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+72))= -1 ; -if(!qbevent)break;evnt(25066,13033,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+73))= 0 ; -if(!qbevent)break;evnt(25066,13033,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+77))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_FOCUS)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(25066,13033,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(25066,13034,"ide_methods.bas");}while(r); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17297,"ide_methods.bas");}while(r); } -S_48087:; -fornext_value5449= 1 ; -fornext_finalvalue5449= 3 ; -fornext_step5449= 1 ; -if (fornext_step5449<0) fornext_step_negative5449=1; else fornext_step_negative5449=0; -if (new_error) goto fornext_error5449; -goto fornext_entrylabel5449; +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 2 ; +if(!qbevent)break;evnt(26307,17299,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17300,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17301,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17302,"ide_methods.bas");}while(r); +} +S_54115:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ +if(qbevent){evnt(26307,17305,"ide_methods.bas");if(r)goto S_54115;} +do{ +*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); +if(!qbevent)break;evnt(26307,17306,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17307,"ide_methods.bas");}while(r); +S_54118:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26307,17308,"ide_methods.bas");if(r)goto S_54118;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17309,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17310,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 3 ; +if(!qbevent)break;evnt(26307,17312,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17313,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17314,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17315,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= 0 ; +if(!qbevent)break;evnt(26307,17318,"ide_methods.bas");}while(r); +S_54128:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))))))||new_error){ +if(qbevent){evnt(26307,17319,"ide_methods.bas");if(r)goto S_54128;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6021=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17320,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17321,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17321,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17321,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; +if(!qbevent)break;evnt(26307,17322,"ide_methods.bas");}while(r); +} +S_54135:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))))))||new_error){ +if(qbevent){evnt(26307,17325,"ide_methods.bas");if(r)goto S_54135;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6023=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17326,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26307,17327,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26307,17327,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26307,17327,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; +if(!qbevent)break;evnt(26307,17328,"ide_methods.bas");}while(r); +} +S_54142:; +fornext_value6026= 1 ; +fornext_finalvalue6026= 3 ; +fornext_step6026= 1 ; +if (fornext_step6026<0) fornext_step_negative6026=1; else fornext_step_negative6026=0; +if (new_error) goto fornext_error6026; +goto fornext_entrylabel6026; while(1){ -fornext_value5449=fornext_step5449+(*_FUNC_IDECOLORPICKER_LONG_CHECKRGB); -fornext_entrylabel5449: -*_FUNC_IDECOLORPICKER_LONG_CHECKRGB=fornext_value5449; -if (fornext_step_negative5449){ -if (fornext_value5449fornext_finalvalue5449) break; +if (fornext_value6026>fornext_finalvalue6026) break; } -fornext_error5449:; -if(qbevent){evnt(25066,13038,"ide_methods.bas");if(r)goto S_48087;} +fornext_error6026:; +if(qbevent){evnt(26307,17332,"ide_methods.bas");if(r)goto S_54142;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_CHECKRGB)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_CHECKRGB)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13039,"ide_methods.bas");}while(r); -S_48089:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECOLORPICKER_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(25066,13040,"ide_methods.bas");if(r)goto S_48089;} +if(!qbevent)break;evnt(26307,17333,"ide_methods.bas");}while(r); +S_54144:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A->len> 3 )))||new_error){ +if(qbevent){evnt(26307,17334,"ide_methods.bas");if(r)goto S_54144;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_left(_FUNC_IDECOLORPICKER_STRING_A, 3 )); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_left(_FUNC_IDERGBMIXER_STRING_A, 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13040,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17334,"ide_methods.bas");}while(r); } -S_48092:; -fornext_value5452= 1 ; -fornext_finalvalue5452=_FUNC_IDECOLORPICKER_STRING_A->len; -fornext_step5452= 1 ; -if (fornext_step5452<0) fornext_step_negative5452=1; else fornext_step_negative5452=0; -if (new_error) goto fornext_error5452; -goto fornext_entrylabel5452; +S_54147:; +fornext_value6029= 1 ; +fornext_finalvalue6029=_FUNC_IDERGBMIXER_STRING_A->len; +fornext_step6029= 1 ; +if (fornext_step6029<0) fornext_step_negative6029=1; else fornext_step_negative6029=0; +if (new_error) goto fornext_error6029; +goto fornext_entrylabel6029; while(1){ -fornext_value5452=fornext_step5452+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5452: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5452; +fornext_value6029=fornext_step6029+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6029: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6029; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5452){ -if (fornext_value5452fornext_finalvalue5452) break; +if (fornext_value6029>fornext_finalvalue6029) break; } -fornext_error5452:; -if(qbevent){evnt(25066,13041,"ide_methods.bas");if(r)goto S_48092;} +fornext_error6029:; +if(qbevent){evnt(26307,17335,"ide_methods.bas");if(r)goto S_54147;} do{ -*_FUNC_IDECOLORPICKER_LONG_A=qbs_asc(_FUNC_IDECOLORPICKER_STRING_A,*_FUNC_IDECOLORPICKER_LONG_I); +*_FUNC_IDERGBMIXER_LONG_A=qbs_asc(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13042,"ide_methods.bas");}while(r); -S_48094:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDECOLORPICKER_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(25066,13043,"ide_methods.bas");if(r)goto S_48094;} +if(!qbevent)break;evnt(26307,17336,"ide_methods.bas");}while(r); +S_54149:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDERGBMIXER_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26307,17337,"ide_methods.bas");if(r)goto S_54149;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("0",1)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13043,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17337,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5451; -if(!qbevent)break;evnt(25066,13043,"ide_methods.bas");}while(r); +goto fornext_exit_6028; +if(!qbevent)break;evnt(26307,17337,"ide_methods.bas");}while(r); } -S_48098:; -if (((-(*_FUNC_IDECOLORPICKER_LONG_A< 48 ))|(-(*_FUNC_IDECOLORPICKER_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(25066,13044,"ide_methods.bas");if(r)goto S_48098;} +S_54153:; +if (((-(*_FUNC_IDERGBMIXER_LONG_A< 48 ))|(-(*_FUNC_IDERGBMIXER_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26307,17338,"ide_methods.bas");if(r)goto S_54153;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("",0)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17338,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5451; -if(!qbevent)break;evnt(25066,13044,"ide_methods.bas");}while(r); +goto fornext_exit_6028; +if(!qbevent)break;evnt(26307,17338,"ide_methods.bas");}while(r); } -fornext_continue_5451:; +fornext_continue_6028:; } -fornext_exit_5451:; -S_48103:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDECOLORPICKER_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,13046,"ide_methods.bas");if(r)goto S_48103;} +fornext_exit_6028:; +S_54158:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_A->len))||new_error){ +if(qbevent){evnt(26307,17340,"ide_methods.bas");if(r)goto S_54158;} do{ -*_FUNC_IDECOLORPICKER_LONG_A=qbr(func_val(_FUNC_IDECOLORPICKER_STRING_A)); +*_FUNC_IDERGBMIXER_LONG_A=qbr(func_val(_FUNC_IDERGBMIXER_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13047,"ide_methods.bas");}while(r); -S_48105:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_A> 255 ))||new_error){ -if(qbevent){evnt(25066,13048,"ide_methods.bas");if(r)goto S_48105;} +if(!qbevent)break;evnt(26307,17341,"ide_methods.bas");}while(r); +S_54160:; +if ((-(*_FUNC_IDERGBMIXER_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26307,17342,"ide_methods.bas");if(r)goto S_54160;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("255",3)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("255",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13048,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17342,"ide_methods.bas");}while(r); } -S_48108:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(25066,13049,"ide_methods.bas");if(r)goto S_48108;} +S_54163:; +if ((-(*_FUNC_IDERGBMIXER_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26307,17343,"ide_methods.bas");if(r)goto S_54163;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("0",1)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13049,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17343,"ide_methods.bas");}while(r); } }else{ -S_48112:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ -if(qbevent){evnt(25066,13051,"ide_methods.bas");if(r)goto S_48112;} +S_54167:; +if ((-(*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ +if(qbevent){evnt(26307,17345,"ide_methods.bas");if(r)goto S_54167;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_A,qbs_new_txt_len("0",1)); +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13051,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17345,"ide_methods.bas");}while(r); } } do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOLORPICKER_LONG_CHECKRGB)-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECOLORPICKER_STRING_A); +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_CHECKRGB)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDERGBMIXER_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13053,"ide_methods.bas");}while(r); -fornext_continue_5448:; +if(!qbevent)break;evnt(26307,17347,"ide_methods.bas");}while(r); +fornext_continue_6025:; } -fornext_exit_5448:; +fornext_exit_6025:; do{ -*_FUNC_IDECOLORPICKER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13056,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17350,"ide_methods.bas");}while(r); +S_54174:; +if ((qbs_cleanup(qbs_tmp_base,*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX&((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26307,17351,"ide_methods.bas");if(r)goto S_54174;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOLORPICKER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECOLORPICKER_ARRAY_UDT_O[4],_FUNC_IDECOLORPICKER_ARRAY_UDT_O[5]))*85+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13057,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17352,"ide_methods.bas");}while(r); +}else{ do{ -sub__palettecolor( 12 ,*_FUNC_IDECOLORPICKER_ULONG_CURRENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,13058,"ide_methods.bas");}while(r); -S_48121:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 6 ))&(-(*_FUNC_IDECOLORPICKER_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,13060,"ide_methods.bas");if(r)goto S_48121;} +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17354,"ide_methods.bas");}while(r); +} do{ -*__LONG_IDESELECT=*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT; -if(!qbevent)break;evnt(25066,13061,"ide_methods.bas");}while(r); +sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,17356,"ide_methods.bas");}while(r); +S_54180:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 6 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,17358,"ide_methods.bas");if(r)goto S_54180;} +do{ +*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; +if(!qbevent)break;evnt(26307,17359,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13062,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17360,"ide_methods.bas");}while(r); } -S_48125:; -if ((((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 5 ))&(-(*_FUNC_IDECOLORPICKER_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(25066,13065,"ide_methods.bas");if(r)goto S_48125;} +S_54184:; +if ((((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26307,17363,"ide_methods.bas");if(r)goto S_54184;} +S_54185:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26307,17365,"ide_methods.bas");if(r)goto S_54185;} do{ -sub__clipboard(_FUNC_IDECOLORPICKER_STRING_CURRENTRGB); +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13066,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17366,"ide_methods.bas");}while(r); +}else{ do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_IDECOLORPICKER,_FUNC_IDECOLORPICKER_STRING_CURRENTRGB); +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13067,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17368,"ide_methods.bas");}while(r); +} do{ -*__LONG_IDESELECT=*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT; -if(!qbevent)break;evnt(25066,13068,"ide_methods.bas");}while(r); +sub__clipboard(_FUNC_IDERGBMIXER_STRING_CURRENTRGB); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17371,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; +if(!qbevent)break;evnt(26307,17372,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13069,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17373,"ide_methods.bas");}while(r); } -S_48131:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 4 ))&(-(*_FUNC_IDECOLORPICKER_LONG_INFO!= 0 )))|((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECOLORPICKER_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ -if(qbevent){evnt(25066,13076,"ide_methods.bas");if(r)goto S_48131;} -S_48132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,13077,"ide_methods.bas");if(r)goto S_48132;} +S_54194:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 4 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 )))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ +if(qbevent){evnt(26307,17380,"ide_methods.bas");if(r)goto S_54194;} +S_54195:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,17381,"ide_methods.bas");if(r)goto S_54195;} do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13077,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17381,"ide_methods.bas");}while(r); } -S_48135:; -if ((*_FUNC_IDECOLORPICKER_LONG_EDITING)||new_error){ -if(qbevent){evnt(25066,13078,"ide_methods.bas");if(r)goto S_48135;} -S_48136:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_INSERTRGBAT> 0 ))||new_error){ -if(qbevent){evnt(25066,13080,"ide_methods.bas");if(r)goto S_48136;} +S_54198:; +if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ +if(qbevent){evnt(26307,17382,"ide_methods.bas");if(r)goto S_54198;} +S_54199:; +if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT> 0 ))||new_error){ +if(qbevent){evnt(26307,17384,"ide_methods.bas");if(r)goto S_54199;} do{ -*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDECOLORPICKER_LONG_INSERTRGBAT,_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,qbs_new_txt_len("(",1),1); +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("(",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13081,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17385,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1,_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,qbs_new_txt_len(")",1),1); +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len(")",1),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13082,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17386,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_OLDRGB,func_mid(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1,*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2-*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1+ 1 ,1)); +qbs_set(_FUNC_IDERGBMIXER_STRING_OLDRGB,func_mid(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2-*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13083,"ide_methods.bas");}while(r); -S_48140:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_COUNTITEMS(_FUNC_IDECOLORPICKER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 3 )))||new_error){ -if(qbevent){evnt(25066,13084,"ide_methods.bas");if(r)goto S_48140;} -S_48141:; -fornext_value5456=*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2; -fornext_finalvalue5456=*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1; -fornext_step5456= -1 ; -if (fornext_step5456<0) fornext_step_negative5456=1; else fornext_step_negative5456=0; -if (new_error) goto fornext_error5456; -goto fornext_entrylabel5456; +if(!qbevent)break;evnt(26307,17387,"ide_methods.bas");}while(r); +S_54203:; +if ((qbs_cleanup(qbs_tmp_base,((*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX&(-(FUNC_COUNTITEMS(_FUNC_IDERGBMIXER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 1 ))))|(-(FUNC_COUNTITEMS(_FUNC_IDERGBMIXER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 3 ))))||new_error){ +if(qbevent){evnt(26307,17388,"ide_methods.bas");if(r)goto S_54203;} +S_54204:; +fornext_value6033=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2; +fornext_finalvalue6033=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; +fornext_step6033= -1 ; +if (fornext_step6033<0) fornext_step_negative6033=1; else fornext_step_negative6033=0; +if (new_error) goto fornext_error6033; +goto fornext_entrylabel6033; while(1){ -fornext_value5456=fornext_step5456+(*_FUNC_IDECOLORPICKER_LONG_I); -fornext_entrylabel5456: -*_FUNC_IDECOLORPICKER_LONG_I=fornext_value5456; -if (fornext_step_negative5456){ -if (fornext_value5456fornext_finalvalue5456) break; +if (fornext_value6033>fornext_finalvalue6033) break; } -fornext_error5456:; -if(qbevent){evnt(25066,13085,"ide_methods.bas");if(r)goto S_48141;} -S_48142:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*_FUNC_IDECOLORPICKER_LONG_I)== 44 )))||new_error){ -if(qbevent){evnt(25066,13086,"ide_methods.bas");if(r)goto S_48142;} +fornext_error6033:; +if(qbevent){evnt(26307,17389,"ide_methods.bas");if(r)goto S_54204;} +S_54205:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_I)== 44 )))||new_error){ +if(qbevent){evnt(26307,17390,"ide_methods.bas");if(r)goto S_54205;} do{ -*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2=*_FUNC_IDECOLORPICKER_LONG_I; -if(!qbevent)break;evnt(25066,13086,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_I; +if(!qbevent)break;evnt(26307,17390,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5455; -if(!qbevent)break;evnt(25066,13086,"ide_methods.bas");}while(r); +goto fornext_exit_6032; +if(!qbevent)break;evnt(26307,17390,"ide_methods.bas");}while(r); } -fornext_continue_5455:; +fornext_continue_6032:; } -fornext_exit_5455:; +fornext_exit_6032:; } do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_left(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1)); +qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_left(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13089,"ide_methods.bas");}while(r); -S_48149:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2== 0 ))||new_error){ -if(qbevent){evnt(25066,13090,"ide_methods.bas");if(r)goto S_48149;} +if(!qbevent)break;evnt(26307,17393,"ide_methods.bas");}while(r); +S_54212:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2== 0 ))||new_error){ +if(qbevent){evnt(26307,17394,"ide_methods.bas");if(r)goto S_54212;} do{ -*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2=*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1; -if(!qbevent)break;evnt(25066,13090,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; +if(!qbevent)break;evnt(26307,17394,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_add(_FUNC_IDECOLORPICKER_STRING_NEWLINE,_FUNC_IDECOLORPICKER_STRING_CURRENTRGB)); +qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_add(_FUNC_IDERGBMIXER_STRING_NEWLINE,_FUNC_IDERGBMIXER_STRING_CURRENTRGB)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13091,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17395,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_add(_FUNC_IDECOLORPICKER_STRING_NEWLINE,func_mid(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET2,NULL,0))); +qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_add(_FUNC_IDERGBMIXER_STRING_NEWLINE,func_mid(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17396,"ide_methods.bas");}while(r); do{ *__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,13093,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17397,"ide_methods.bas");}while(r); do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDECOLORPICKER_STRING_NEWLINE); +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,17398,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDERGBMIXER_STRING_NEWLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13094,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17399,"ide_methods.bas");}while(r); do{ -*__LONG_IDESELECTX1=*_FUNC_IDECOLORPICKER_LONG_FINDBRACKET1+ 1 ; -if(!qbevent)break;evnt(25066,13097,"ide_methods.bas");}while(r); +*__LONG_IDESELECTX1=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ; +if(!qbevent)break;evnt(26307,17402,"ide_methods.bas");}while(r); do{ -*__LONG_IDECX=*__LONG_IDESELECTX1+_FUNC_IDECOLORPICKER_STRING_CURRENTRGB->len; +*__LONG_IDECX=*__LONG_IDESELECTX1+_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13098,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17403,"ide_methods.bas");}while(r); do{ *__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,13099,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17404,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,13100,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT= 1 ; +if(!qbevent)break;evnt(26307,17405,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17406,"ide_methods.bas");}while(r); +} +} +S_54227:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len))||new_error){ +if(qbevent){evnt(26307,17410,"ide_methods.bas");if(r)goto S_54227;} +S_54228:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26307,17412,"ide_methods.bas");if(r)goto S_54228;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17413,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_DETAIL,qbs_new_txt_len("no _RGB statement found",23)); +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13102,"ide_methods.bas");}while(r); -S_48162:; -if ((*__LONG_IDESELECT&(-(*__LONG_IDESELECTY1!=*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(25066,13103,"ide_methods.bas");if(r)goto S_48162;} -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_DETAIL,qbs_new_txt_len("can't insert - multiple lines",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13104,"ide_methods.bas");}while(r); -} -do{ -sub__clipboard(_FUNC_IDECOLORPICKER_STRING_CURRENTRGB); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13106,"ide_methods.bas");}while(r); -do{ -SUB_IDEERRORMESSAGE(qbs_add(qbs_add(qbs_new_txt_len("Copied to the clipboard (",25),_FUNC_IDECOLORPICKER_STRING_DETAIL),qbs_new_txt_len(").",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13107,"ide_methods.bas");}while(r); -} -}else{ -S_48169:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,13110,"ide_methods.bas");if(r)goto S_48169;} -S_48170:; -if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,13111,"ide_methods.bas");if(r)goto S_48170;} -do{ -sub__clipboard(_FUNC_IDECOLORPICKER_STRING_CURRENTRGB); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13112,"ide_methods.bas");}while(r); -do{ -SUB_IDEERRORMESSAGE(qbs_new_txt_len("Copied to the clipboard (can't insert - multiple lines).",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13113,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECOLORPICKER_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,13116,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,13116,"ide_methods.bas");}while(r); -S_48176:; -if ((-(*_FUNC_IDECOLORPICKER_LONG_SX1>*_FUNC_IDECOLORPICKER_LONG_SX2))||new_error){ -if(qbevent){evnt(25066,13117,"ide_methods.bas");if(r)goto S_48176;} -do{ -swap_32(&*_FUNC_IDECOLORPICKER_LONG_SX1,&*_FUNC_IDECOLORPICKER_LONG_SX2); -if(!qbevent)break;evnt(25066,13117,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_left(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*_FUNC_IDECOLORPICKER_LONG_SX1- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13118,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_add(_FUNC_IDECOLORPICKER_STRING_NEWLINE,_FUNC_IDECOLORPICKER_STRING_CURRENTRGB)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13119,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_add(_FUNC_IDECOLORPICKER_STRING_NEWLINE,func_mid(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*_FUNC_IDECOLORPICKER_LONG_SX2,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13120,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,13121,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDECOLORPICKER_STRING_NEWLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13122,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*_FUNC_IDECOLORPICKER_LONG_SX1; -if(!qbevent)break;evnt(25066,13125,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESELECTX1+_FUNC_IDECOLORPICKER_STRING_CURRENTRGB->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13126,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,13127,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT= 1 ; -if(!qbevent)break;evnt(25066,13128,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_left(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*__LONG_IDECX- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13132,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_add(_FUNC_IDECOLORPICKER_STRING_NEWLINE,_FUNC_IDECOLORPICKER_STRING_CURRENTRGB)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13133,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_NEWLINE,qbs_add(_FUNC_IDECOLORPICKER_STRING_NEWLINE,func_mid(_FUNC_IDECOLORPICKER_STRING_CURRENTLINE,*__LONG_IDECX,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13134,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(25066,13135,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDECOLORPICKER_STRING_NEWLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13136,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+_FUNC_IDECOLORPICKER_STRING_CURRENTRGB->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13138,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT= 0 ; -if(!qbevent)break;evnt(25066,13139,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17415,"ide_methods.bas");}while(r); } } do{ -qbs_set(_FUNC_IDECOLORPICKER_STRING_IDECOLORPICKER,_FUNC_IDECOLORPICKER_STRING_CURRENTRGB); +qbs_set(_FUNC_IDERGBMIXER_STRING_IDERGBMIXER,_FUNC_IDERGBMIXER_STRING_CURRENTRGB); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13143,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17419,"ide_methods.bas");}while(r); do{ -*__LONG_IDESELECT=*_FUNC_IDECOLORPICKER_LONG_PREV__ASCII_CHR_046__IDESELECT; -if(!qbevent)break;evnt(25066,13144,"ide_methods.bas");}while(r); +*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; +if(!qbevent)break;evnt(26307,17420,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13145,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17421,"ide_methods.bas");}while(r); } do{ -*_FUNC_IDECOLORPICKER_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,13150,"ide_methods.bas");}while(r); +*_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,17426,"ide_methods.bas");}while(r); do{ -*_FUNC_IDECOLORPICKER_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,13151,"ide_methods.bas");}while(r); -dl_continue_5421:; +*_FUNC_IDERGBMIXER_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,17427,"ide_methods.bas");}while(r); +dl_continue_6002:; }while(1); -dl_exit_5421:; +dl_exit_6002:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free186.txt" +#include "free201.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDECOLORPICKER_STRING_IDECOLORPICKER);return _FUNC_IDECOLORPICKER_STRING_IDECOLORPICKER; +qbs_maketmp(_FUNC_IDERGBMIXER_STRING_IDERGBMIXER);return _FUNC_IDERGBMIXER_STRING_IDERGBMIXER; } int32 FUNC_COUNTITEMS(qbs*_FUNC_COUNTITEMS_STRING_SEARCHSTRING,qbs*_FUNC_COUNTITEMS_STRING_ITEM){ qbs *tqbs; @@ -170221,38 +188504,38 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data187.txt" +#include "data202.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_48206:; +S_54241:; do{ -if(qbevent){evnt(25066,13156,"ide_methods.bas");if(r)goto S_48206;} +if(qbevent){evnt(26307,17432,"ide_methods.bas");if(r)goto S_54241;} do{ *_FUNC_COUNTITEMS_LONG_FOUND=func_instr(*_FUNC_COUNTITEMS_LONG_FOUND+ 1 ,_FUNC_COUNTITEMS_STRING_SEARCHSTRING,_FUNC_COUNTITEMS_STRING_ITEM,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13157,"ide_methods.bas");}while(r); -S_48208:; +if(!qbevent)break;evnt(26307,17433,"ide_methods.bas");}while(r); +S_54243:; if ((-(*_FUNC_COUNTITEMS_LONG_FOUND== 0 ))||new_error){ -if(qbevent){evnt(25066,13158,"ide_methods.bas");if(r)goto S_48208;} +if(qbevent){evnt(26307,17434,"ide_methods.bas");if(r)goto S_54243;} do{ -goto dl_exit_5462; -if(!qbevent)break;evnt(25066,13158,"ide_methods.bas");}while(r); +goto dl_exit_6038; +if(!qbevent)break;evnt(26307,17434,"ide_methods.bas");}while(r); } do{ *_FUNC_COUNTITEMS_LONG_TOTAL=*_FUNC_COUNTITEMS_LONG_TOTAL+ 1 ; -if(!qbevent)break;evnt(25066,13159,"ide_methods.bas");}while(r); -dl_continue_5462:; +if(!qbevent)break;evnt(26307,17435,"ide_methods.bas");}while(r); +dl_continue_6038:; }while(1); -dl_exit_5462:; +dl_exit_6038:; do{ *_FUNC_COUNTITEMS_LONG_COUNTITEMS=*_FUNC_COUNTITEMS_LONG_TOTAL; -if(!qbevent)break;evnt(25066,13161,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17437,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free187.txt" +#include "free202.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_COUNTITEMS_LONG_COUNTITEMS; @@ -170264,7 +188547,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data188.txt" +#include "data203.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -170272,31 +188555,31 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_IDERESTRICT417_LONG_X= 0 ; -if(!qbevent)break;evnt(25066,13166,"ide_methods.bas");}while(r); -S_48215:; +if(!qbevent)break;evnt(26307,17442,"ide_methods.bas");}while(r); +S_54250:; if ((*_SUB_IDERESTRICT417_LONG_P417& 4 )||new_error){ -if(qbevent){evnt(25066,13167,"ide_methods.bas");if(r)goto S_48215;} +if(qbevent){evnt(26307,17443,"ide_methods.bas");if(r)goto S_54250;} do{ *_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,13167,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17443,"ide_methods.bas");}while(r); } -S_48218:; +S_54253:; if ((*_SUB_IDERESTRICT417_LONG_P417& 8 )||new_error){ -if(qbevent){evnt(25066,13168,"ide_methods.bas");if(r)goto S_48218;} +if(qbevent){evnt(26307,17444,"ide_methods.bas");if(r)goto S_54253;} do{ *_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,13168,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17444,"ide_methods.bas");}while(r); } -S_48221:; +S_54256:; if ((-(*_SUB_IDERESTRICT417_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(25066,13169,"ide_methods.bas");if(r)goto S_48221;} +if(qbevent){evnt(26307,17445,"ide_methods.bas");if(r)goto S_54256;} do{ *_SUB_IDERESTRICT417_LONG_P417=*_SUB_IDERESTRICT417_LONG_P417& 243 ; -if(!qbevent)break;evnt(25066,13169,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17445,"ide_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free188.txt" +#include "free203.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -170307,33 +188590,33 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data189.txt" +#include "data204.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_48224:; +S_54259:; if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(25066,13182,"ide_methods.bas");if(r)goto S_48224;} -S_48225:; +if(qbevent){evnt(26307,17458,"ide_methods.bas");if(r)goto S_54259;} +S_54260:; if ((func__keydown( 100309 ))||new_error){ -if(qbevent){evnt(25066,13183,"ide_methods.bas");if(r)goto S_48225;} +if(qbevent){evnt(26307,17459,"ide_methods.bas");if(r)goto S_54260;} do{ *_FUNC_CTRL2_LONG_CTRL2= 1 ; -if(!qbevent)break;evnt(25066,13183,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17459,"ide_methods.bas");}while(r); } -S_48228:; +S_54263:; if ((func__keydown( 100310 ))||new_error){ -if(qbevent){evnt(25066,13184,"ide_methods.bas");if(r)goto S_48228;} +if(qbevent){evnt(26307,17460,"ide_methods.bas");if(r)goto S_54263;} do{ *_FUNC_CTRL2_LONG_CTRL2= 1 ; -if(!qbevent)break;evnt(25066,13184,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17460,"ide_methods.bas");}while(r); } } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free189.txt" +#include "free204.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_CTRL2_LONG_CTRL2; @@ -170345,343 +188628,386 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data190.txt" +#include "data205.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,13191,"ide_methods.bas");}while(r); -S_48233:; +if(!qbevent)break;evnt(26307,17467,"ide_methods.bas");}while(r); +S_54268:; if ((*__LONG_ICHECKLATER)||new_error){ -if(qbevent){evnt(25066,13193,"ide_methods.bas");if(r)goto S_48233;} +if(qbevent){evnt(26307,17469,"ide_methods.bas");if(r)goto S_54268;} do{ *__LONG_ICHECKLATER= 0 ; -if(!qbevent)break;evnt(25066,13193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17469,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13193,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17469,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= 0 ; -if(!qbevent)break;evnt(25066,13195,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17471,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= 0 ; -if(!qbevent)break;evnt(25066,13196,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17472,"ide_methods.bas");}while(r); do{ *__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(25066,13197,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17473,"ide_methods.bas");}while(r); do{ *__LONG_MCLICK2= 0 ; -if(!qbevent)break;evnt(25066,13197,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17473,"ide_methods.bas");}while(r); do{ *__LONG_MRELEASE= 0 ; -if(!qbevent)break;evnt(25066,13197,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17473,"ide_methods.bas");}while(r); do{ *__LONG_MRELEASE2= 0 ; -if(!qbevent)break;evnt(25066,13197,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17473,"ide_methods.bas");}while(r); do{ *__LONG_MWHEEL= 0 ; -if(!qbevent)break;evnt(25066,13198,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17474,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13199,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17475,"ide_methods.bas");}while(r); do{ *__LONG_KB= 0 ; -if(!qbevent)break;evnt(25066,13199,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17475,"ide_methods.bas");}while(r); do{ *__LONG_MOB=*__LONG_MB; -if(!qbevent)break;evnt(25066,13200,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17476,"ide_methods.bas");}while(r); do{ *__LONG_MOB2=*__LONG_MB2; -if(!qbevent)break;evnt(25066,13200,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17476,"ide_methods.bas");}while(r); do{ *__LONG_KOALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,13201,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17477,"ide_methods.bas");}while(r); do{ *__LONG_KALTPRESS= 0 ; -if(!qbevent)break;evnt(25066,13201,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17477,"ide_methods.bas");}while(r); do{ *__LONG_KALTRELEASE= 0 ; -if(!qbevent)break;evnt(25066,13201,"ide_methods.bas");}while(r); -S_48251:; +if(!qbevent)break;evnt(26307,17477,"ide_methods.bas");}while(r); +S_54286:; do{ -if(qbevent){evnt(25066,13203,"ide_methods.bas");if(r)goto S_48251;} -S_48252:; -dl_continue_5463:; +if(qbevent){evnt(26307,17479,"ide_methods.bas");if(r)goto S_54286;} +S_54287:; +dl_continue_6039:; }while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); -dl_exit_5463:; -if(qbevent){evnt(25066,13203,"ide_methods.bas");if(r)goto S_48252;} +dl_exit_6039:; +if(qbevent){evnt(26307,17479,"ide_methods.bas");if(r)goto S_54287;} do{ *_SUB_GETINPUT_LONG_K=func__keyhit(); -if(!qbevent)break;evnt(25066,13205,"ide_methods.bas");}while(r); -S_48254:; +if(!qbevent)break;evnt(26307,17481,"ide_methods.bas");}while(r); +S_54289:; if (((func__keydown( 100307 )|func__keydown( 100308 ))&((-(*_SUB_GETINPUT_LONG_K>= -57 ))&(-(*_SUB_GETINPUT_LONG_K<= -48 ))))||new_error){ -if(qbevent){evnt(25066,13208,"ide_methods.bas");if(r)goto S_48254;} +if(qbevent){evnt(26307,17484,"ide_methods.bas");if(r)goto S_54289;} do{ qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_add(_SUB_GETINPUT_STRING_ASCVALUE,func_chr(-(*_SUB_GETINPUT_LONG_K)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13209,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17485,"ide_methods.bas");}while(r); } -S_48257:; +S_54292:; if (((~(func__keydown( 100307 )))&(~(func__keydown( 100308 ))))||new_error){ -if(qbevent){evnt(25066,13211,"ide_methods.bas");if(r)goto S_48257;} -S_48258:; +if(qbevent){evnt(26307,17487,"ide_methods.bas");if(r)goto S_54292;} +S_54293:; if ((qbs_cleanup(qbs_tmp_base,_SUB_GETINPUT_STRING_ASCVALUE->len))||new_error){ -if(qbevent){evnt(25066,13212,"ide_methods.bas");if(r)goto S_48258;} +if(qbevent){evnt(26307,17488,"ide_methods.bas");if(r)goto S_54293;} do{ *__LONG_KB=qbr(func_val(qbs_right(_SUB_GETINPUT_STRING_ASCVALUE, 3 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13213,"ide_methods.bas");}while(r); -S_48260:; +if(!qbevent)break;evnt(26307,17489,"ide_methods.bas");}while(r); +S_54295:; if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB< 256 )))||new_error){ -if(qbevent){evnt(25066,13214,"ide_methods.bas");if(r)goto S_48260;} +if(qbevent){evnt(26307,17490,"ide_methods.bas");if(r)goto S_54295;} do{ qbs_set(__STRING_K,func_chr(*__LONG_KB)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13215,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17491,"ide_methods.bas");}while(r); do{ *_SUB_GETINPUT_LONG_K=*__LONG_KB; -if(!qbevent)break;evnt(25066,13216,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17492,"ide_methods.bas");}while(r); do{ *__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(25066,13217,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17493,"ide_methods.bas");}while(r); do{ *__BYTE_ALTSPECIAL= -1 ; -if(!qbevent)break;evnt(25066,13218,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17494,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13220,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17496,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13221,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17497,"ide_methods.bas");}while(r); } } -S_48270:; +S_54305:; if ((*_SUB_GETINPUT_LONG_K)||new_error){ -if(qbevent){evnt(25066,13226,"ide_methods.bas");if(r)goto S_48270;} -S_48271:; +if(qbevent){evnt(26307,17502,"ide_methods.bas");if(r)goto S_54305;} +S_54306:; if ((-(*_SUB_GETINPUT_LONG_K< 0 ))||new_error){ -if(qbevent){evnt(25066,13227,"ide_methods.bas");if(r)goto S_48271;} +if(qbevent){evnt(26307,17503,"ide_methods.bas");if(r)goto S_54306;} do{ *_SUB_GETINPUT_LONG_K=-(*_SUB_GETINPUT_LONG_K); -if(!qbevent)break;evnt(25066,13227,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17503,"ide_methods.bas");}while(r); do{ *_SUB_GETINPUT_LONG_RELEASE= 1 ; -if(!qbevent)break;evnt(25066,13227,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17503,"ide_methods.bas");}while(r); } -S_48275:; +S_54310:; if (((-(*_SUB_GETINPUT_LONG_K== 100304 ))|(-(*_SUB_GETINPUT_LONG_K== 100303 )))||new_error){ -if(qbevent){evnt(25066,13229,"ide_methods.bas");if(r)goto S_48275;} -S_48276:; +if(qbevent){evnt(26307,17505,"ide_methods.bas");if(r)goto S_54310;} +S_54311:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(25066,13230,"ide_methods.bas");if(r)goto S_48276;} +if(qbevent){evnt(26307,17506,"ide_methods.bas");if(r)goto S_54311;} do{ *__LONG_KSHIFT= 0 ; -if(!qbevent)break;evnt(25066,13230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17506,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KSHIFT= -1 ; -if(!qbevent)break;evnt(25066,13230,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17506,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(25066,13231,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17507,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(25066,13231,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17507,"ide_methods.bas");}while(r); } -S_48284:; +S_54319:; if (((-(*_SUB_GETINPUT_LONG_K== 100308 ))|(-(*_SUB_GETINPUT_LONG_K== 100307 )))||new_error){ -if(qbevent){evnt(25066,13233,"ide_methods.bas");if(r)goto S_48284;} -S_48285:; +if(qbevent){evnt(26307,17509,"ide_methods.bas");if(r)goto S_54319;} +S_54320:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(25066,13234,"ide_methods.bas");if(r)goto S_48285;} +if(qbevent){evnt(26307,17510,"ide_methods.bas");if(r)goto S_54320;} do{ *__LONG_KALT= 0 ; -if(!qbevent)break;evnt(25066,13235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17511,"ide_methods.bas");}while(r); do{ *__LONG_KALTRELEASE= -1 ; -if(!qbevent)break;evnt(25066,13235,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17511,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KALT= -1 ; -if(!qbevent)break;evnt(25066,13237,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17513,"ide_methods.bas");}while(r); do{ *__LONG_KALTPRESS= -1 ; -if(!qbevent)break;evnt(25066,13237,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17513,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(25066,13239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17515,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(25066,13239,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17515,"ide_methods.bas");}while(r); } -S_48295:; +S_54330:; if (((-(*_SUB_GETINPUT_LONG_K== 100306 ))|(-(*_SUB_GETINPUT_LONG_K== 100305 )))||new_error){ -if(qbevent){evnt(25066,13241,"ide_methods.bas");if(r)goto S_48295;} -S_48296:; +if(qbevent){evnt(26307,17517,"ide_methods.bas");if(r)goto S_54330;} +S_54331:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(25066,13242,"ide_methods.bas");if(r)goto S_48296;} +if(qbevent){evnt(26307,17518,"ide_methods.bas");if(r)goto S_54331;} do{ *__LONG_KCTRL= 0 ; -if(!qbevent)break;evnt(25066,13242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17518,"ide_methods.bas");}while(r); do{ *__LONG_KCONTROL= 0 ; -if(!qbevent)break;evnt(25066,13242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17518,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KCTRL= -1 ; -if(!qbevent)break;evnt(25066,13242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17518,"ide_methods.bas");}while(r); do{ *__LONG_KCONTROL= -1 ; -if(!qbevent)break;evnt(25066,13242,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17518,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(25066,13243,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17519,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(25066,13243,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17519,"ide_methods.bas");}while(r); } -S_48306:; +S_54341:; if (((-(*_SUB_GETINPUT_LONG_K== 100310 ))|(-(*_SUB_GETINPUT_LONG_K== 100309 )))||new_error){ -if(qbevent){evnt(25066,13245,"ide_methods.bas");if(r)goto S_48306;} -S_48307:; +if(qbevent){evnt(26307,17521,"ide_methods.bas");if(r)goto S_54341;} +S_54342:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(25066,13246,"ide_methods.bas");if(r)goto S_48307;} +if(qbevent){evnt(26307,17522,"ide_methods.bas");if(r)goto S_54342;} do{ *__LONG_KCONTROL= 0 ; -if(!qbevent)break;evnt(25066,13246,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17522,"ide_methods.bas");}while(r); }else{ do{ *__LONG_KCONTROL= -1 ; -if(!qbevent)break;evnt(25066,13246,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17522,"ide_methods.bas");}while(r); } do{ *__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(25066,13247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17523,"ide_methods.bas");}while(r); do{ *__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(25066,13247,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17523,"ide_methods.bas");}while(r); } -S_48315:; +S_54350:; if ((-(*_SUB_GETINPUT_LONG_RELEASE== 0 ))||new_error){ -if(qbevent){evnt(25066,13250,"ide_methods.bas");if(r)goto S_48315;} +if(qbevent){evnt(26307,17526,"ide_methods.bas");if(r)goto S_54350;} do{ *__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(25066,13251,"ide_methods.bas");}while(r); -S_48317:; +if(!qbevent)break;evnt(26307,17527,"ide_methods.bas");}while(r); +S_54352:; if ((-(*_SUB_GETINPUT_LONG_K<= 255 ))||new_error){ -if(qbevent){evnt(25066,13252,"ide_methods.bas");if(r)goto S_48317;} +if(qbevent){evnt(26307,17528,"ide_methods.bas");if(r)goto S_54352;} do{ qbs_set(__STRING_K,func_chr(*_SUB_GETINPUT_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13252,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17528,"ide_methods.bas");}while(r); } -S_48320:; +S_54355:; if (((-(*_SUB_GETINPUT_LONG_K>= 256 ))&(-(*_SUB_GETINPUT_LONG_K<= 65535 ))&((-((*_SUB_GETINPUT_LONG_K& 255 )== 0 ))))||new_error){ -if(qbevent){evnt(25066,13253,"ide_methods.bas");if(r)goto S_48320;} +if(qbevent){evnt(26307,17529,"ide_methods.bas");if(r)goto S_54355;} do{ qbs_set(__STRING_K,qbs_add(func_chr( 0 ),func_chr(*_SUB_GETINPUT_LONG_K/ 256 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13253,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17529,"ide_methods.bas");}while(r); } do{ *__LONG_KB=*_SUB_GETINPUT_LONG_K; -if(!qbevent)break;evnt(25066,13254,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17530,"ide_methods.bas");}while(r); } -S_48325:; +S_54360:; if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(25066,13256,"ide_methods.bas");if(r)goto S_48325;} +if(qbevent){evnt(26307,17532,"ide_methods.bas");if(r)goto S_54360;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13256,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17532,"ide_methods.bas");}while(r); } } -S_48329:; +S_54364:; while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(25066,13258,"ide_methods.bas");if(r)goto S_48329;} +if(qbevent){evnt(26307,17534,"ide_methods.bas");if(r)goto S_54364;} do{ *__LONG_ICHANGED= 1 ; -if(!qbevent)break;evnt(25066,13259,"ide_methods.bas");}while(r); -S_48331:; +if(!qbevent)break;evnt(26307,17535,"ide_methods.bas");}while(r); +S_54366:; if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(25066,13260,"ide_methods.bas");if(r)goto S_48331;} +if(qbevent){evnt(26307,17536,"ide_methods.bas");if(r)goto S_54366;} do{ *__LONG_MB=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(25066,13261,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17537,"ide_methods.bas");}while(r); do{ *__LONG_MB2=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(25066,13261,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17537,"ide_methods.bas");}while(r); }else{ do{ *__LONG_MB=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(25066,13263,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17539,"ide_methods.bas");}while(r); do{ *__LONG_MB2=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(25066,13263,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17539,"ide_methods.bas");}while(r); } do{ *__LONG_MWHEEL=*__LONG_MWHEEL+func__mousewheel(NULL,0); -if(!qbevent)break;evnt(25066,13265,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17541,"ide_methods.bas");}while(r); do{ *__LONG_MX=qbr(func__mousex(NULL,0)); -if(!qbevent)break;evnt(25066,13266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17542,"ide_methods.bas");}while(r); do{ *__LONG_MY=qbr(func__mousey(NULL,0)); -if(!qbevent)break;evnt(25066,13266,"ide_methods.bas");}while(r); -S_48341:; +if(!qbevent)break;evnt(26307,17542,"ide_methods.bas");}while(r); +S_54376:; if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_MOB== 0 )))||new_error){ -if(qbevent){evnt(25066,13267,"ide_methods.bas");if(r)goto S_48341;} +if(qbevent){evnt(26307,17543,"ide_methods.bas");if(r)goto S_54376;} do{ *__LONG_MCLICK= -1 ; -if(!qbevent)break;evnt(25066,13267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17543,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13267,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17543,"ide_methods.bas");}while(r); } -S_48345:; +S_54380:; if (((-(*__LONG_MB2!= 0 ))&(-(*__LONG_MOB2== 0 )))||new_error){ -if(qbevent){evnt(25066,13268,"ide_methods.bas");if(r)goto S_48345;} +if(qbevent){evnt(26307,17544,"ide_methods.bas");if(r)goto S_54380;} do{ *__LONG_MCLICK2= -1 ; -if(!qbevent)break;evnt(25066,13268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17544,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13268,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17544,"ide_methods.bas");}while(r); } -S_48349:; +S_54384:; if (((-(*__LONG_MB== 0 ))&(-(*__LONG_MOB!= 0 )))||new_error){ -if(qbevent){evnt(25066,13269,"ide_methods.bas");if(r)goto S_48349;} +if(qbevent){evnt(26307,17545,"ide_methods.bas");if(r)goto S_54384;} do{ *__LONG_MRELEASE= -1 ; -if(!qbevent)break;evnt(25066,13269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17545,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13269,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17545,"ide_methods.bas");}while(r); } -S_48353:; +S_54388:; if (((-(*__LONG_MB2== 0 ))&(-(*__LONG_MOB2!= 0 )))||new_error){ -if(qbevent){evnt(25066,13270,"ide_methods.bas");if(r)goto S_48353;} +if(qbevent){evnt(26307,17546,"ide_methods.bas");if(r)goto S_54388;} do{ *__LONG_MRELEASE2= -1 ; -if(!qbevent)break;evnt(25066,13270,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17546,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13270,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17546,"ide_methods.bas");}while(r); } -dl_continue_5465:; +dl_continue_6041:; } -dl_exit_5465:; +dl_exit_6041:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free190.txt" +#include "free205.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLEARMOUSE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data206.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_ICHANGED= 0 ; +if(!qbevent)break;evnt(26307,17551,"ide_methods.bas");}while(r); +do{ +*__LONG_MB= 0 ; +if(!qbevent)break;evnt(26307,17552,"ide_methods.bas");}while(r); +do{ +*__LONG_MB2= 0 ; +if(!qbevent)break;evnt(26307,17553,"ide_methods.bas");}while(r); +do{ +*__LONG_MCLICK= 0 ; +if(!qbevent)break;evnt(26307,17554,"ide_methods.bas");}while(r); +do{ +*__LONG_MRELEASE= 0 ; +if(!qbevent)break;evnt(26307,17555,"ide_methods.bas");}while(r); +S_54398:; +while((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ +if(qbevent){evnt(26307,17556,"ide_methods.bas");if(r)goto S_54398;} +do{ +*_SUB_CLEARMOUSE_LONG_I=func__mouseinput(NULL,0); +if(!qbevent)break;evnt(26307,17557,"ide_methods.bas");}while(r); +dl_continue_6042:; +} +dl_exit_6042:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free206.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -170692,31 +189018,31 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data191.txt" +#include "data207.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,13279,"ide_methods.bas");}while(r); -S_48359:; +if(!qbevent)break;evnt(26307,17564,"ide_methods.bas");}while(r); +S_54402:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_HELP_SHOWTEXT_LONG_SETUP== 0 ))&(-(func_ubound(__ARRAY_STRING_BACK,1,1)== 1 ))))||new_error){ -if(qbevent){evnt(25066,13280,"ide_methods.bas");if(r)goto S_48359;} +if(qbevent){evnt(26307,17565,"ide_methods.bas");if(r)goto S_54402;} do{ *_SUB_HELP_SHOWTEXT_LONG_SETUP= 1 ; -if(!qbevent)break;evnt(25066,13281,"ide_methods.bas");}while(r); -S_48361:; +if(!qbevent)break;evnt(26307,17566,"ide_methods.bas");}while(r); +S_54404:; if ((-(*__BYTE_IDECONTEXTHELPSF== 0 ))||new_error){ -if(qbevent){evnt(25066,13282,"ide_methods.bas");if(r)goto S_48361;} +if(qbevent){evnt(26307,17567,"ide_methods.bas");if(r)goto S_54404;} do{ qbs_set(_SUB_HELP_SHOWTEXT_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13283,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17568,"ide_methods.bas");}while(r); do{ SUB_WIKIPARSE(_SUB_HELP_SHOWTEXT_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13284,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17569,"ide_methods.bas");}while(r); } } do{ @@ -170744,256 +189070,256 @@ if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257); } __ARRAY_LONG_HELP_LINELEN[2]|=1; } -if(!qbevent)break;evnt(25066,13288,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17573,"ide_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,13290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17575,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_SY=*__LONG_HELP_WY1; -if(!qbevent)break;evnt(25066,13299,"ide_methods.bas");}while(r); -S_48369:; -fornext_value5467=*__LONG_HELP_SY; -fornext_finalvalue5467=*__LONG_HELP_SY+*__LONG_HELP_WH- 1 ; -fornext_step5467= 1 ; -if (fornext_step5467<0) fornext_step_negative5467=1; else fornext_step_negative5467=0; -if (new_error) goto fornext_error5467; -goto fornext_entrylabel5467; +if(!qbevent)break;evnt(26307,17584,"ide_methods.bas");}while(r); +S_54412:; +fornext_value6044=*__LONG_HELP_SY; +fornext_finalvalue6044=*__LONG_HELP_SY+*__LONG_HELP_WH- 1 ; +fornext_step6044= 1 ; +if (fornext_step6044<0) fornext_step_negative6044=1; else fornext_step_negative6044=0; +if (new_error) goto fornext_error6044; +goto fornext_entrylabel6044; while(1){ -fornext_value5467=fornext_step5467+(*_SUB_HELP_SHOWTEXT_LONG_Y); -fornext_entrylabel5467: -*_SUB_HELP_SHOWTEXT_LONG_Y=fornext_value5467; -if (fornext_step_negative5467){ -if (fornext_value5467fornext_finalvalue5467) break; +if (fornext_value6044>fornext_finalvalue6044) break; } -fornext_error5467:; -if(qbevent){evnt(25066,13300,"ide_methods.bas");if(r)goto S_48369;} -S_48370:; +fornext_error6044:; +if(qbevent){evnt(26307,17585,"ide_methods.bas");if(r)goto S_54412;} +S_54413:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(25066,13301,"ide_methods.bas");if(r)goto S_48370;} +if(qbevent){evnt(26307,17586,"ide_methods.bas");if(r)goto S_54413;} do{ *_SUB_HELP_SHOWTEXT_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_HELP_SHOWTEXT_LONG_Y- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13303,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17588,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_L; -if(!qbevent)break;evnt(25066,13304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17589,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3= 1 ; -if(!qbevent)break;evnt(25066,13305,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17590,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; -if(!qbevent)break;evnt(25066,13307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17592,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17593,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13308,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17593,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,13309,"ide_methods.bas");}while(r); -S_48378:; +if(!qbevent)break;evnt(26307,17594,"ide_methods.bas");}while(r); +S_54421:; while((!(-(*_SUB_HELP_SHOWTEXT_LONG_C== 13 )))||new_error){ -if(qbevent){evnt(25066,13310,"ide_methods.bas");if(r)goto S_48378;} +if(qbevent){evnt(26307,17595,"ide_methods.bas");if(r)goto S_54421;} do{ qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,*_SUB_HELP_SHOWTEXT_LONG_COL/ 16 ,NULL,3); -if(!qbevent)break;evnt(25066,13311,"ide_methods.bas");}while(r); -S_48380:; -if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(25066,13312,"ide_methods.bas");if(r)goto S_48380;} -S_48381:; +if(!qbevent)break;evnt(26307,17596,"ide_methods.bas");}while(r); +S_54423:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26307,17597,"ide_methods.bas");if(r)goto S_54423;} +S_54424:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(25066,13313,"ide_methods.bas");if(r)goto S_48381;} -S_48382:; +if(qbevent){evnt(26307,17598,"ide_methods.bas");if(r)goto S_54424;} +S_54425:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(25066,13314,"ide_methods.bas");if(r)goto S_48382;} +if(qbevent){evnt(26307,17599,"ide_methods.bas");if(r)goto S_54425;} do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,13315,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17600,"ide_methods.bas");}while(r); } } } -S_48387:; +S_54430:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SX))||new_error){ -if(qbevent){evnt(25066,13319,"ide_methods.bas");if(r)goto S_48387;} -S_48388:; +if(qbevent){evnt(26307,17604,"ide_methods.bas");if(r)goto S_54430;} +S_54431:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_SX<=*__LONG_HELP_WX2))||new_error){ -if(qbevent){evnt(25066,13320,"ide_methods.bas");if(r)goto S_48388;} +if(qbevent){evnt(26307,17605,"ide_methods.bas");if(r)goto S_54431;} do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr(*_SUB_HELP_SHOWTEXT_LONG_C)); -if (new_error) goto skip5469; +if (new_error) goto skip6046; makefit(tqbs); qbs_print(tqbs,0); -skip5469: +skip6046: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13321,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17606,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_SX=*_SUB_HELP_SHOWTEXT_LONG_SX+ 1 ; -if(!qbevent)break;evnt(25066,13322,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17607,"ide_methods.bas");}while(r); } } do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; -if(!qbevent)break;evnt(25066,13325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17610,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_X+ 4 ; -if(!qbevent)break;evnt(25066,13325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17610,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13325,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17610,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13325,"ide_methods.bas");}while(r); -dl_continue_5468:; +if(!qbevent)break;evnt(26307,17610,"ide_methods.bas");}while(r); +dl_continue_6045:; } -dl_exit_5468:; +dl_exit_6045:; do{ tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]); if (!new_error) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]=*_SUB_HELP_SHOWTEXT_LONG_X3- 1 ; -if(!qbevent)break;evnt(25066,13328,"ide_methods.bas");}while(r); -S_48399:; -fornext_value5471= 1 ; -fornext_finalvalue5471=*__LONG_HELP_WX2-func_pos( 0 )+ 1 ; -fornext_step5471= 1 ; -if (fornext_step5471<0) fornext_step_negative5471=1; else fornext_step_negative5471=0; -if (new_error) goto fornext_error5471; -goto fornext_entrylabel5471; +if(!qbevent)break;evnt(26307,17613,"ide_methods.bas");}while(r); +S_54442:; +fornext_value6048= 1 ; +fornext_finalvalue6048=*__LONG_HELP_WX2-func_pos( 0 )+ 1 ; +fornext_step6048= 1 ; +if (fornext_step6048<0) fornext_step_negative6048=1; else fornext_step_negative6048=0; +if (new_error) goto fornext_error6048; +goto fornext_entrylabel6048; while(1){ -fornext_value5471=fornext_step5471+(*_SUB_HELP_SHOWTEXT_LONG_X4); -fornext_entrylabel5471: -*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value5471; -if (fornext_step_negative5471){ -if (fornext_value5471fornext_finalvalue5471) break; +if (fornext_value6048>fornext_finalvalue6048) break; } -fornext_error5471:; -if(qbevent){evnt(25066,13330,"ide_methods.bas");if(r)goto S_48399;} -S_48400:; +fornext_error6048:; +if(qbevent){evnt(26307,17615,"ide_methods.bas");if(r)goto S_54442;} +S_54443:; if ((-(*_SUB_HELP_SHOWTEXT_LONG_COL== 0 ))||new_error){ -if(qbevent){evnt(25066,13331,"ide_methods.bas");if(r)goto S_48400;} +if(qbevent){evnt(26307,17616,"ide_methods.bas");if(r)goto S_54443;} do{ *_SUB_HELP_SHOWTEXT_LONG_COL= 7 ; -if(!qbevent)break;evnt(25066,13331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17616,"ide_methods.bas");}while(r); } do{ qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,*_SUB_HELP_SHOWTEXT_LONG_COL/ 16 ,NULL,3); -if(!qbevent)break;evnt(25066,13332,"ide_methods.bas");}while(r); -S_48404:; -if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(25066,13333,"ide_methods.bas");if(r)goto S_48404;} -S_48405:; +if(!qbevent)break;evnt(26307,17617,"ide_methods.bas");}while(r); +S_54447:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26307,17618,"ide_methods.bas");if(r)goto S_54447;} +S_54448:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(25066,13334,"ide_methods.bas");if(r)goto S_48405;} -S_48406:; +if(qbevent){evnt(26307,17619,"ide_methods.bas");if(r)goto S_54448;} +S_54449:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(25066,13335,"ide_methods.bas");if(r)goto S_48406;} +if(qbevent){evnt(26307,17620,"ide_methods.bas");if(r)goto S_54449;} do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,13336,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17621,"ide_methods.bas");}while(r); } } } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" ",1)); -if (new_error) goto skip5472; +if (new_error) goto skip6049; makefit(tqbs); qbs_print(tqbs,0); -skip5472: +skip6049: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13340,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17625,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; -if(!qbevent)break;evnt(25066,13341,"ide_methods.bas");}while(r); -fornext_continue_5470:; +if(!qbevent)break;evnt(26307,17626,"ide_methods.bas");}while(r); +fornext_continue_6047:; } -fornext_exit_5470:; +fornext_exit_6047:; }else{ do{ *_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; -if(!qbevent)break;evnt(25066,13346,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17631,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,13347,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17632,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*__LONG_HELP_SX; -if(!qbevent)break;evnt(25066,13348,"ide_methods.bas");}while(r); -S_48418:; -fornext_value5474= 1 ; -fornext_finalvalue5474=*__LONG_HELP_WW; -fornext_step5474= 1 ; -if (fornext_step5474<0) fornext_step_negative5474=1; else fornext_step_negative5474=0; -if (new_error) goto fornext_error5474; -goto fornext_entrylabel5474; +if(!qbevent)break;evnt(26307,17633,"ide_methods.bas");}while(r); +S_54461:; +fornext_value6051= 1 ; +fornext_finalvalue6051=*__LONG_HELP_WW; +fornext_step6051= 1 ; +if (fornext_step6051<0) fornext_step_negative6051=1; else fornext_step_negative6051=0; +if (new_error) goto fornext_error6051; +goto fornext_entrylabel6051; while(1){ -fornext_value5474=fornext_step5474+(*_SUB_HELP_SHOWTEXT_LONG_X4); -fornext_entrylabel5474: -*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value5474; -if (fornext_step_negative5474){ -if (fornext_value5474fornext_finalvalue5474) break; +if (fornext_value6051>fornext_finalvalue6051) break; } -fornext_error5474:; -if(qbevent){evnt(25066,13349,"ide_methods.bas");if(r)goto S_48418;} +fornext_error6051:; +if(qbevent){evnt(26307,17634,"ide_methods.bas");if(r)goto S_54461;} do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,13350,"ide_methods.bas");}while(r); -S_48420:; -if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(25066,13351,"ide_methods.bas");if(r)goto S_48420;} -S_48421:; +if(!qbevent)break;evnt(26307,17635,"ide_methods.bas");}while(r); +S_54463:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26307,17636,"ide_methods.bas");if(r)goto S_54463;} +S_54464:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(25066,13352,"ide_methods.bas");if(r)goto S_48421;} -S_48422:; +if(qbevent){evnt(26307,17637,"ide_methods.bas");if(r)goto S_54464;} +S_54465:; if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(25066,13353,"ide_methods.bas");if(r)goto S_48422;} +if(qbevent){evnt(26307,17638,"ide_methods.bas");if(r)goto S_54465;} do{ qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,13354,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17639,"ide_methods.bas");}while(r); } } } do{ tqbs=qbs_new(0,0); qbs_set(tqbs,qbs_new_txt_len(" ",1)); -if (new_error) goto skip5475; +if (new_error) goto skip6052; makefit(tqbs); qbs_print(tqbs,0); -skip5475: +skip6052: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13358,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17643,"ide_methods.bas");}while(r); do{ *_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; -if(!qbevent)break;evnt(25066,13359,"ide_methods.bas");}while(r); -fornext_continue_5473:; +if(!qbevent)break;evnt(26307,17644,"ide_methods.bas");}while(r); +fornext_continue_6050:; } -fornext_exit_5473:; +fornext_exit_6050:; do{ tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]); if (!new_error) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(25066,13361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17646,"ide_methods.bas");}while(r); } do{ *_SUB_HELP_SHOWTEXT_LONG_SY=*_SUB_HELP_SHOWTEXT_LONG_SY+ 1 ; -if(!qbevent)break;evnt(25066,13364,"ide_methods.bas");}while(r); -fornext_continue_5466:; +if(!qbevent)break;evnt(26307,17649,"ide_methods.bas");}while(r); +fornext_continue_6043:; } -fornext_exit_5466:; +fornext_exit_6043:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free191.txt" +#include "free207.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -171004,7 +189330,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data192.txt" +#include "data208.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -171012,560 +189338,573 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,13388,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17674,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,13389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17675,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13390,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17676,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,13391,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17677,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,13392,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17678,"ide_methods.bas");}while(r); do{ if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4]+1; _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]),0,_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,13393,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17679,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,13394,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17680,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13395,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17681,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_LN= 0 ; -if(!qbevent)break;evnt(25066,13405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17691,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13406,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17692,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13407,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17693,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_FUNC_IDESEARCHEDBOX_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17694,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,func_space(func_lof(*_FUNC_IDESEARCHEDBOX_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17694,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDESEARCHEDBOX_LONG_FH,NULL,_FUNC_IDESEARCHEDBOX_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13408,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17694,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,qbs_right(_FUNC_IDESEARCHEDBOX_STRING_A,_FUNC_IDESEARCHEDBOX_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13409,"ide_methods.bas");}while(r); -S_48449:; +if(!qbevent)break;evnt(26307,17695,"ide_methods.bas");}while(r); +S_54492:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDESEARCHEDBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,13410,"ide_methods.bas");if(r)goto S_48449;} +if(qbevent){evnt(26307,17696,"ide_methods.bas");if(r)goto S_54492;} do{ *_FUNC_IDESEARCHEDBOX_LONG_AI=func_instr(NULL,_FUNC_IDESEARCHEDBOX_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13411,"ide_methods.bas");}while(r); -S_48451:; +if(!qbevent)break;evnt(26307,17697,"ide_methods.bas");}while(r); +S_54494:; if ((*_FUNC_IDESEARCHEDBOX_LONG_AI)||new_error){ -if(qbevent){evnt(25066,13412,"ide_methods.bas");if(r)goto S_48451;} +if(qbevent){evnt(26307,17698,"ide_methods.bas");if(r)goto S_54494;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,qbs_left(_FUNC_IDESEARCHEDBOX_STRING_A,*_FUNC_IDESEARCHEDBOX_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13413,"ide_methods.bas");}while(r); -S_48453:; +if(!qbevent)break;evnt(26307,17699,"ide_methods.bas");}while(r); +S_54496:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESEARCHEDBOX_LONG_AI==(_FUNC_IDESEARCHEDBOX_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(25066,13413,"ide_methods.bas");if(r)goto S_48453;} +if(qbevent){evnt(26307,17699,"ide_methods.bas");if(r)goto S_54496;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13413,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17699,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_A,qbs_right(_FUNC_IDESEARCHEDBOX_STRING_A,_FUNC_IDESEARCHEDBOX_STRING_A->len-*_FUNC_IDESEARCHEDBOX_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13413,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17699,"ide_methods.bas");}while(r); } -S_48458:; +S_54501:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDESEARCHEDBOX_STRING_L->len))||new_error){ -if(qbevent){evnt(25066,13414,"ide_methods.bas");if(r)goto S_48458;} +if(qbevent){evnt(26307,17700,"ide_methods.bas");if(r)goto S_54501;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDESEARCHEDBOX_STRING_L,_FUNC_IDESEARCHEDBOX_STRING1_SEP),_FUNC_IDESEARCHEDBOX_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13414,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17700,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,_FUNC_IDESEARCHEDBOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13414,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17700,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_LN=*_FUNC_IDESEARCHEDBOX_LONG_LN+ 1 ; -if(!qbevent)break;evnt(25066,13415,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17701,"ide_methods.bas");}while(r); } -dl_continue_5478:; +dl_continue_6055:; } -dl_exit_5478:; +dl_exit_6055:; do{ sub_close(*_FUNC_IDESEARCHEDBOX_LONG_FH,1); -if(!qbevent)break;evnt(25066,13418,"ide_methods.bas");}while(r); -S_48467:; +if(!qbevent)break;evnt(26307,17704,"ide_methods.bas");}while(r); +S_54510:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_LN== 0 ))||new_error){ -if(qbevent){evnt(25066,13420,"ide_methods.bas");if(r)goto S_48467;} +if(qbevent){evnt(26307,17706,"ide_methods.bas");if(r)goto S_54510;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,_FUNC_IDESEARCHEDBOX_STRING1_SEP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13421,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17707,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_H=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(25066,13426,"ide_methods.bas");}while(r); -S_48471:; +if(!qbevent)break;evnt(26307,17712,"ide_methods.bas");}while(r); +S_54514:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_LN<*_FUNC_IDESEARCHEDBOX_LONG_H))||new_error){ -if(qbevent){evnt(25066,13427,"ide_methods.bas");if(r)goto S_48471;} +if(qbevent){evnt(26307,17713,"ide_methods.bas");if(r)goto S_54514;} do{ *_FUNC_IDESEARCHEDBOX_LONG_H=*_FUNC_IDESEARCHEDBOX_LONG_LN; -if(!qbevent)break;evnt(25066,13427,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17713,"ide_methods.bas");}while(r); } -S_48474:; +S_54517:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_H< 3 ))||new_error){ -if(qbevent){evnt(25066,13428,"ide_methods.bas");if(r)goto S_48474;} +if(qbevent){evnt(26307,17714,"ide_methods.bas");if(r)goto S_54517;} do{ *_FUNC_IDESEARCHEDBOX_LONG_H= 3 ; -if(!qbevent)break;evnt(25066,13428,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17714,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,13430,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17716,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) ),&(pass5482= 20 ),_FUNC_IDESEARCHEDBOX_LONG_H,qbs_new_txt_len("",0)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) ),&(pass6059= 20 ),_FUNC_IDESEARCHEDBOX_LONG_H,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13431,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17717,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))=*__LONG_IDEWX- 24 ; -if(!qbevent)break;evnt(25066,13432,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17718,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))=*__LONG_IDEWY- 6 -*_FUNC_IDESEARCHEDBOX_LONG_H; -if(!qbevent)break;evnt(25066,13433,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17719,"ide_methods.bas");}while(r); +S_54524:; +if ((-(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))< 3 ))||new_error){ +if(qbevent){evnt(26307,17720,"ide_methods.bas");if(r)goto S_54524;} +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))-func_abs((int64)( 3 -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4)))); +if(!qbevent)break;evnt(26307,17721,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_H=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12)); +if(!qbevent)break;evnt(26307,17722,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))= 3 ; +if(!qbevent)break;evnt(26307,17723,"ide_methods.bas");}while(r); +} do{ *_FUNC_IDESEARCHEDBOX_LONG_I=*_FUNC_IDESEARCHEDBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13435,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17726,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,13436,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,17727,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+20))= -1 ; -if(!qbevent)break;evnt(25066,13437,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+20))= -1 ; +if(!qbevent)break;evnt(26307,17728,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+24))= 0 ; -if(!qbevent)break;evnt(25066,13437,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+24))= 0 ; +if(!qbevent)break;evnt(26307,17728,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+28))= 22 ; -if(!qbevent)break;evnt(25066,13439,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+28))= 22 ; +if(!qbevent)break;evnt(26307,17730,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+32))=*_FUNC_IDESEARCHEDBOX_LONG_H; -if(!qbevent)break;evnt(25066,13439,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDESEARCHEDBOX_LONG_H; +if(!qbevent)break;evnt(26307,17730,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDESEARCHEDBOX_STRING_L); -if(!qbevent)break;evnt(25066,13440,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESEARCHEDBOX_STRING_L); +if(!qbevent)break;evnt(26307,17731,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,13441,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,17732,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Find",4)); -if(!qbevent)break;evnt(25066,13442,"ide_methods.bas");}while(r); -S_48490:; -fornext_value5484= 1 ; -fornext_finalvalue5484= 100 ; -fornext_step5484= 1 ; -if (fornext_step5484<0) fornext_step_negative5484=1; else fornext_step_negative5484=0; -if (new_error) goto fornext_error5484; -goto fornext_entrylabel5484; +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Find",4)); +if(!qbevent)break;evnt(26307,17733,"ide_methods.bas");}while(r); +S_54538:; +fornext_value6061= 1 ; +fornext_finalvalue6061= 100 ; +fornext_step6061= 1 ; +if (fornext_step6061<0) fornext_step_negative6061=1; else fornext_step_negative6061=0; +if (new_error) goto fornext_error6061; +goto fornext_entrylabel6061; while(1){ -fornext_value5484=fornext_step5484+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel5484: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value5484; -if (fornext_step_negative5484){ -if (fornext_value5484fornext_finalvalue5484) break; +if (fornext_value6061>fornext_finalvalue6061) break; } -fornext_error5484:; -if(qbevent){evnt(25066,13453,"ide_methods.bas");if(r)goto S_48490;} +fornext_error6061:; +if(qbevent){evnt(26307,17744,"ide_methods.bas");if(r)goto S_54538;} do{ -memcpy(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,13453,"ide_methods.bas");}while(r); -fornext_continue_5483:; +memcpy(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,17744,"ide_methods.bas");}while(r); +fornext_continue_6060:; } -fornext_exit_5483:; -S_48493:; +fornext_exit_6060:; +S_54541:; do{ -if(qbevent){evnt(25066,13456,"ide_methods.bas");if(r)goto S_48493;} +if(qbevent){evnt(26307,17747,"ide_methods.bas");if(r)goto S_54541;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,13459,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17750,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,13460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17751,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,13460,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17751,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,13460,"ide_methods.bas");}while(r); -S_48498:; -fornext_value5487= 1 ; -fornext_finalvalue5487= 100 ; -fornext_step5487= 1 ; -if (fornext_step5487<0) fornext_step_negative5487=1; else fornext_step_negative5487=0; -if (new_error) goto fornext_error5487; -goto fornext_entrylabel5487; +if(!qbevent)break;evnt(26307,17751,"ide_methods.bas");}while(r); +S_54546:; +fornext_value6064= 1 ; +fornext_finalvalue6064= 100 ; +fornext_step6064= 1 ; +if (fornext_step6064<0) fornext_step_negative6064=1; else fornext_step_negative6064=0; +if (new_error) goto fornext_error6064; +goto fornext_entrylabel6064; while(1){ -fornext_value5487=fornext_step5487+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel5487: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value5487; -if (fornext_step_negative5487){ -if (fornext_value5487fornext_finalvalue5487) break; +if (fornext_value6064>fornext_finalvalue6064) break; } -fornext_error5487:; -if(qbevent){evnt(25066,13461,"ide_methods.bas");if(r)goto S_48498;} -S_48499:; -if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,13462,"ide_methods.bas");if(r)goto S_48499;} +fornext_error6064:; +if(qbevent){evnt(26307,17752,"ide_methods.bas");if(r)goto S_54546;} +S_54547:; +if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,17753,"ide_methods.bas");if(r)goto S_54547;} do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; -if(!qbevent)break;evnt(25066,13465,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; +if(!qbevent)break;evnt(26307,17756,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,13466,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,17757,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,13466,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,17757,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESEARCHEDBOX_LONG_F); -if(!qbevent)break;evnt(25066,13467,"ide_methods.bas");}while(r); -S_48504:; -if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,13468,"ide_methods.bas");if(r)goto S_48504;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESEARCHEDBOX_LONG_F); +if(!qbevent)break;evnt(26307,17758,"ide_methods.bas");}while(r); +S_54552:; +if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,17759,"ide_methods.bas");if(r)goto S_54552;} do{ -*_FUNC_IDESEARCHEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,13468,"ide_methods.bas");}while(r); +*_FUNC_IDESEARCHEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,17759,"ide_methods.bas");}while(r); do{ -*_FUNC_IDESEARCHEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,13468,"ide_methods.bas");}while(r); +*_FUNC_IDESEARCHEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,17759,"ide_methods.bas");}while(r); } } -fornext_continue_5486:; +fornext_continue_6063:; } -fornext_exit_5486:; +fornext_exit_6063:; do{ *_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS=*_FUNC_IDESEARCHEDBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,13471,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17762,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,13478,"ide_methods.bas");}while(r); -S_48512:; +if(!qbevent)break;evnt(26307,17769,"ide_methods.bas");}while(r); +S_54560:; if ((*_FUNC_IDESEARCHEDBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,13479,"ide_methods.bas");if(r)goto S_48512;} +if(qbevent){evnt(26307,17770,"ide_methods.bas");if(r)goto S_54560;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17770,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDESEARCHEDBOX_LONG_CY,*_FUNC_IDESEARCHEDBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,13479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17770,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13479,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17770,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,13482,"ide_methods.bas");}while(r); -S_48518:; +if(!qbevent)break;evnt(26307,17773,"ide_methods.bas");}while(r); +S_54566:; do{ -if(qbevent){evnt(25066,13483,"ide_methods.bas");if(r)goto S_48518;} +if(qbevent){evnt(26307,17774,"ide_methods.bas");if(r)goto S_54566;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,13484,"ide_methods.bas");}while(r); -S_48520:; +if(!qbevent)break;evnt(26307,17775,"ide_methods.bas");}while(r); +S_54568:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,13485,"ide_methods.bas");if(r)goto S_48520;} +if(qbevent){evnt(26307,17776,"ide_methods.bas");if(r)goto S_54568;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13485,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17776,"ide_methods.bas");}while(r); } -S_48523:; +S_54571:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,13486,"ide_methods.bas");if(r)goto S_48523;} +if(qbevent){evnt(26307,17777,"ide_methods.bas");if(r)goto S_54571;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13486,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17777,"ide_methods.bas");}while(r); } -S_48526:; +S_54574:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,13487,"ide_methods.bas");if(r)goto S_48526;} +if(qbevent){evnt(26307,17778,"ide_methods.bas");if(r)goto S_54574;} do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,13487,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17778,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13487,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17778,"ide_methods.bas");}while(r); } -S_48530:; +S_54578:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,13488,"ide_methods.bas");if(r)goto S_48530;} +if(qbevent){evnt(26307,17779,"ide_methods.bas");if(r)goto S_54578;} do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,13488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17779,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13488,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17779,"ide_methods.bas");}while(r); } -S_48534:; +S_54582:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,13489,"ide_methods.bas");if(r)goto S_48534;} +if(qbevent){evnt(26307,17780,"ide_methods.bas");if(r)goto S_54582;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13489,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17780,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,13490,"ide_methods.bas");}while(r); -S_48538:; +if(!qbevent)break;evnt(26307,17781,"ide_methods.bas");}while(r); +S_54586:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_ALT!=*_FUNC_IDESEARCHEDBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,13490,"ide_methods.bas");if(r)goto S_48538;} +if(qbevent){evnt(26307,17781,"ide_methods.bas");if(r)goto S_54586;} do{ *_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13490,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17781,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_OLDALT=*_FUNC_IDESEARCHEDBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,13491,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17782,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,13492,"ide_methods.bas");}while(r); -S_48543:; -dl_continue_5488:; +if(!qbevent)break;evnt(26307,17783,"ide_methods.bas");}while(r); +S_54591:; +dl_continue_6065:; }while((!(*_FUNC_IDESEARCHEDBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5488:; -if(qbevent){evnt(25066,13493,"ide_methods.bas");if(r)goto S_48543;} -S_48544:; +dl_exit_6065:; +if(qbevent){evnt(26307,17784,"ide_methods.bas");if(r)goto S_54591;} +S_54592:; if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,13494,"ide_methods.bas");if(r)goto S_48544;} +if(qbevent){evnt(26307,17785,"ide_methods.bas");if(r)goto S_54592;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,13494,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17785,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,13494,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17785,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13496,"ide_methods.bas");}while(r); -S_48550:; +if(!qbevent)break;evnt(26307,17787,"ide_methods.bas");}while(r); +S_54598:; if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,13497,"ide_methods.bas");if(r)goto S_48550;} -S_48551:; +if(qbevent){evnt(26307,17788,"ide_methods.bas");if(r)goto S_54598;} +S_54599:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,13498,"ide_methods.bas");if(r)goto S_48551;} +if(qbevent){evnt(26307,17789,"ide_methods.bas");if(r)goto S_54599;} do{ *_FUNC_IDESEARCHEDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13499,"ide_methods.bas");}while(r); -S_48553:; +if(!qbevent)break;evnt(26307,17790,"ide_methods.bas");}while(r); +S_54601:; if (((-(*_FUNC_IDESEARCHEDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,13500,"ide_methods.bas");if(r)goto S_48553;} +if(qbevent){evnt(26307,17791,"ide_methods.bas");if(r)goto S_54601;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDESEARCHEDBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13500,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17791,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17794,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,13503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17794,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13503,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17794,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,13507,"ide_methods.bas");}while(r); -S_48562:; +if(!qbevent)break;evnt(26307,17798,"ide_methods.bas");}while(r); +S_54610:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,13508,"ide_methods.bas");if(r)goto S_48562;} +if(qbevent){evnt(26307,17799,"ide_methods.bas");if(r)goto S_54610;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13508,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17799,"ide_methods.bas");}while(r); } -S_48565:; +S_54613:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,13509,"ide_methods.bas");if(r)goto S_48565;} +if(qbevent){evnt(26307,17800,"ide_methods.bas");if(r)goto S_54613;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,13509,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17800,"ide_methods.bas");}while(r); } -S_48568:; +S_54616:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,13510,"ide_methods.bas");if(r)goto S_48568;} +if(qbevent){evnt(26307,17801,"ide_methods.bas");if(r)goto S_54616;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,13510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17801,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13510,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17801,"ide_methods.bas");}while(r); } -S_48572:; +S_54620:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,13511,"ide_methods.bas");if(r)goto S_48572;} +if(qbevent){evnt(26307,17802,"ide_methods.bas");if(r)goto S_54620;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,13511,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17802,"ide_methods.bas");}while(r); } -S_48575:; +S_54623:; if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS>*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,13512,"ide_methods.bas");if(r)goto S_48575;} +if(qbevent){evnt(26307,17803,"ide_methods.bas");if(r)goto S_54623;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,13512,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17803,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,13513,"ide_methods.bas");}while(r); -S_48579:; -fornext_value5491= 1 ; -fornext_finalvalue5491= 100 ; -fornext_step5491= 1 ; -if (fornext_step5491<0) fornext_step_negative5491=1; else fornext_step_negative5491=0; -if (new_error) goto fornext_error5491; -goto fornext_entrylabel5491; +if(!qbevent)break;evnt(26307,17804,"ide_methods.bas");}while(r); +S_54627:; +fornext_value6068= 1 ; +fornext_finalvalue6068= 100 ; +fornext_step6068= 1 ; +if (fornext_step6068<0) fornext_step_negative6068=1; else fornext_step_negative6068=0; +if (new_error) goto fornext_error6068; +goto fornext_entrylabel6068; while(1){ -fornext_value5491=fornext_step5491+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel5491: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value5491; -if (fornext_step_negative5491){ -if (fornext_value5491fornext_finalvalue5491) break; +if (fornext_value6068>fornext_finalvalue6068) break; } -fornext_error5491:; -if(qbevent){evnt(25066,13514,"ide_methods.bas");if(r)goto S_48579;} +fornext_error6068:; +if(qbevent){evnt(26307,17805,"ide_methods.bas");if(r)goto S_54627;} do{ -*_FUNC_IDESEARCHEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,13515,"ide_methods.bas");}while(r); -S_48581:; +*_FUNC_IDESEARCHEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,17806,"ide_methods.bas");}while(r); +S_54629:; if ((*_FUNC_IDESEARCHEDBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,13516,"ide_methods.bas");if(r)goto S_48581;} +if(qbevent){evnt(26307,17807,"ide_methods.bas");if(r)goto S_54629;} do{ *_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; -if(!qbevent)break;evnt(25066,13517,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17808,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDESEARCHEDBOX_LONG_FOCUS,_FUNC_IDESEARCHEDBOX_LONG_F,_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN,_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESEARCHEDBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESEARCHEDBOX_LONG_FOCUS,_FUNC_IDESEARCHEDBOX_LONG_F,_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN,_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESEARCHEDBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13518,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17809,"ide_methods.bas");}while(r); } -fornext_continue_5490:; +fornext_continue_6067:; } -fornext_exit_5490:; -S_48586:; +fornext_exit_6067:; +S_54634:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,13524,"ide_methods.bas");if(r)goto S_48586;} -S_48587:; +if(qbevent){evnt(26307,17815,"ide_methods.bas");if(r)goto S_54634;} +S_54635:; if (((-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))- 1 )))|(-(*__LONG_MY<*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))))|(-(*__LONG_MX>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(8))+ 2 )))|(-(*__LONG_MY>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))+ 1 ))))||new_error){ -if(qbevent){evnt(25066,13525,"ide_methods.bas");if(r)goto S_48587;} +if(qbevent){evnt(26307,17816,"ide_methods.bas");if(r)goto S_54635;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13526,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17817,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13527,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17818,"ide_methods.bas");}while(r); } } -S_48592:; +S_54640:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,13531,"ide_methods.bas");if(r)goto S_48592;} +if(qbevent){evnt(26307,17822,"ide_methods.bas");if(r)goto S_54640;} do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13532,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17823,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13533,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17824,"ide_methods.bas");}while(r); } -S_48596:; +S_54644:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,13536,"ide_methods.bas");if(r)goto S_48596;} -S_48597:; +if(qbevent){evnt(26307,17827,"ide_methods.bas");if(r)goto S_54644;} +S_54645:; if (((-(*__LONG_MX>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))- 1 )))&(-(*__LONG_MY>*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(8))+ 2 )))&(-(*__LONG_MY<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))+ 1 ))))||new_error){ -if(qbevent){evnt(25066,13537,"ide_methods.bas");if(r)goto S_48597;} +if(qbevent){evnt(26307,17828,"ide_methods.bas");if(r)goto S_54645;} do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13538,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17829,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,_FUNC_IDESEARCHEDBOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13539,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17830,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13540,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17831,"ide_methods.bas");}while(r); } } -S_48603:; +S_54651:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESEARCHEDBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(25066,13544,"ide_methods.bas");if(r)goto S_48603;} +if(qbevent){evnt(26307,17835,"ide_methods.bas");if(r)goto S_54651;} do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13545,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17836,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,_FUNC_IDESEARCHEDBOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13546,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17837,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13547,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17838,"ide_methods.bas");}while(r); } do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,13551,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17842,"ide_methods.bas");}while(r); do{ *_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,13552,"ide_methods.bas");}while(r); -dl_continue_5485:; +if(!qbevent)break;evnt(26307,17843,"ide_methods.bas");}while(r); +dl_continue_6062:; }while(1); -dl_exit_5485:; +dl_exit_6062:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free192.txt" +#include "free208.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX);return _FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX; @@ -171577,7 +189916,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data193.txt" +#include "data209.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -171585,89 +189924,89 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(25066,13561,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17852,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEIMPORTBOOKMARKS_STRING_F2),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13562,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17853,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17854,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17854,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_A,func_space(func_lof(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17854,"ide_methods.bas");}while(r); do{ sub_get2(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,NULL,_SUB_IDEIMPORTBOOKMARKS_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17854,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(25066,13563,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17854,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEIMPORTBOOKMARKS_STRING_A),qbs_ucase(_SUB_IDEIMPORTBOOKMARKS_STRING_F),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13564,"ide_methods.bas");}while(r); -S_48619:; +if(!qbevent)break;evnt(26307,17855,"ide_methods.bas");}while(r); +S_54667:; if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ -if(qbevent){evnt(25066,13565,"ide_methods.bas");if(r)goto S_48619;} +if(qbevent){evnt(26307,17856,"ide_methods.bas");if(r)goto S_54667;} do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len, 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13566,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17857,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_X1=*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len+ 4 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13567,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17858,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_D,func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X1,*_SUB_IDEIMPORTBOOKMARKS_LONG_L,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13568,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17859,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_N=*_SUB_IDEIMPORTBOOKMARKS_LONG_L/ 16 ; -if(!qbevent)break;evnt(25066,13569,"ide_methods.bas");}while(r); -S_48624:; -fornext_value5496= 1 ; -fornext_finalvalue5496=*_SUB_IDEIMPORTBOOKMARKS_LONG_N; -fornext_step5496= 1 ; -if (fornext_step5496<0) fornext_step_negative5496=1; else fornext_step_negative5496=0; -if (new_error) goto fornext_error5496; -goto fornext_entrylabel5496; +if(!qbevent)break;evnt(26307,17860,"ide_methods.bas");}while(r); +S_54672:; +fornext_value6073= 1 ; +fornext_finalvalue6073=*_SUB_IDEIMPORTBOOKMARKS_LONG_N; +fornext_step6073= 1 ; +if (fornext_step6073<0) fornext_step_negative6073=1; else fornext_step_negative6073=0; +if (new_error) goto fornext_error6073; +goto fornext_entrylabel6073; while(1){ -fornext_value5496=fornext_step5496+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); -fornext_entrylabel5496: -*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value5496; -if (fornext_step_negative5496){ -if (fornext_value5496fornext_finalvalue5496) break; +if (fornext_value6073>fornext_finalvalue6073) break; } -fornext_error5496:; -if(qbevent){evnt(25066,13570,"ide_methods.bas");if(r)goto S_48624;} +fornext_error6073:; +if(qbevent){evnt(26307,17861,"ide_methods.bas");if(r)goto S_54672;} do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_BY=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13571,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17862,"ide_methods.bas");}while(r); do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_BX=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 )+( 4 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13572,"ide_methods.bas");}while(r); -S_48627:; +if(!qbevent)break;evnt(26307,17863,"ide_methods.bas");}while(r); +S_54675:; if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_BY<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(25066,13573,"ide_methods.bas");if(r)goto S_48627;} +if(qbevent){evnt(26307,17864,"ide_methods.bas");if(r)goto S_54675;} do{ *__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; -if(!qbevent)break;evnt(25066,13574,"ide_methods.bas");}while(r); -S_48629:; +if(!qbevent)break;evnt(26307,17865,"ide_methods.bas");}while(r); +S_54677:; if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ -if(qbevent){evnt(25066,13575,"ide_methods.bas");if(r)goto S_48629;} +if(qbevent){evnt(26307,17866,"ide_methods.bas");if(r)goto S_54677;} do{ *_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; -if(!qbevent)break;evnt(25066,13575,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17866,"ide_methods.bas");}while(r); do{ if (__ARRAY_UDT_IDEBMK[2]&2){ @@ -171707,28 +190046,116 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; } -if(!qbevent)break;evnt(25066,13575,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17866,"ide_methods.bas");}while(r); } do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEIMPORTBOOKMARKS_LONG_BY; -if(!qbevent)break;evnt(25066,13576,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17867,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*_SUB_IDEIMPORTBOOKMARKS_LONG_BX; -if(!qbevent)break;evnt(25066,13577,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17868,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8))= 0 ; -if(!qbevent)break;evnt(25066,13578,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17869,"ide_methods.bas");}while(r); do{ *(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))= 0 ; -if(!qbevent)break;evnt(25066,13578,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17869,"ide_methods.bas");}while(r); } -fornext_continue_5495:; +fornext_continue_6072:; } -fornext_exit_5495:; +fornext_exit_6072:; +} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17875,"ide_methods.bas");}while(r); +S_54689:; +if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ +if(qbevent){evnt(26307,17876,"ide_methods.bas");if(r)goto S_54689;} +S_54690:; +fornext_value6075= 1 ; +fornext_finalvalue6075=*_SUB_IDEIMPORTBOOKMARKS_LONG_X; +fornext_step6075= 1 ; +if (fornext_step6075<0) fornext_step_negative6075=1; else fornext_step_negative6075=0; +if (new_error) goto fornext_error6075; +goto fornext_entrylabel6075; +while(1){ +fornext_value6075=fornext_step6075+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); +fornext_entrylabel6075: +*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6075; +if (fornext_step_negative6075){ +if (fornext_value6075fornext_finalvalue6075) break; +} +fornext_error6075:; +if(qbevent){evnt(26307,17877,"ide_methods.bas");if(r)goto S_54690;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_J=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("breakpoint",10),qbs_str((int32)(*_SUB_IDEIMPORTBOOKMARKS_LONG_I)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17878,"ide_methods.bas");}while(r); +S_54692:; +if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_J>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))||new_error){ +if(qbevent){evnt(26307,17879,"ide_methods.bas");if(r)goto S_54692;} +do{ +goto fornext_exit_6074; +if(!qbevent)break;evnt(26307,17879,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEIMPORTBOOKMARKS_LONG_J)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26307,17880,"ide_methods.bas");}while(r); +fornext_continue_6074:; +} +fornext_exit_6074:; +} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17884,"ide_methods.bas");}while(r); +S_54699:; +if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ +if(qbevent){evnt(26307,17885,"ide_methods.bas");if(r)goto S_54699;} +S_54700:; +fornext_value6077= 1 ; +fornext_finalvalue6077=*_SUB_IDEIMPORTBOOKMARKS_LONG_X; +fornext_step6077= 1 ; +if (fornext_step6077<0) fornext_step_negative6077=1; else fornext_step_negative6077=0; +if (new_error) goto fornext_error6077; +goto fornext_entrylabel6077; +while(1){ +fornext_value6077=fornext_step6077+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); +fornext_entrylabel6077: +*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6077; +if (fornext_step_negative6077){ +if (fornext_value6077fornext_finalvalue6077) break; +} +fornext_error6077:; +if(qbevent){evnt(26307,17886,"ide_methods.bas");if(r)goto S_54700;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_J=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("skip",4),qbs_str((int32)(*_SUB_IDEIMPORTBOOKMARKS_LONG_I)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17887,"ide_methods.bas");}while(r); +S_54702:; +if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_J>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)))||new_error){ +if(qbevent){evnt(26307,17888,"ide_methods.bas");if(r)goto S_54702;} +do{ +goto fornext_exit_6076; +if(!qbevent)break;evnt(26307,17888,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEIMPORTBOOKMARKS_LONG_J)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26307,17889,"ide_methods.bas");}while(r); +fornext_continue_6076:; +} +fornext_exit_6076:; } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free193.txt" +#include "free209.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -171739,7 +190166,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data194.txt" +#include "data210.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -171748,105 +190175,195 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDESAVEBOOKMARKS_STRING_F2),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13585,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17895,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17896,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17896,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,func_space(func_lof(*_SUB_IDESAVEBOOKMARKS_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17896,"ide_methods.bas");}while(r); do{ sub_get2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,_SUB_IDESAVEBOOKMARKS_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17896,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(25066,13586,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17896,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDESAVEBOOKMARKS_STRING_A),qbs_ucase(_SUB_IDESAVEBOOKMARKS_STRING_F),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13587,"ide_methods.bas");}while(r); -S_48647:; +if(!qbevent)break;evnt(26307,17897,"ide_methods.bas");}while(r); +S_54715:; if ((*_SUB_IDESAVEBOOKMARKS_LONG_X)||new_error){ -if(qbevent){evnt(25066,13588,"ide_methods.bas");if(r)goto S_48647;} +if(qbevent){evnt(26307,17898,"ide_methods.bas");if(r)goto S_54715;} do{ *_SUB_IDESAVEBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len, 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13589,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17899,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_X2=*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len+ 4 +*_SUB_IDESAVEBOOKMARKS_LONG_L- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13590,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17900,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,qbs_add(qbs_left(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X- 1 ),qbs_right(_SUB_IDESAVEBOOKMARKS_STRING_A,_SUB_IDESAVEBOOKMARKS_STRING_A->len-*_SUB_IDESAVEBOOKMARKS_LONG_X2))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13591,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17901,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_D,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13595,"ide_methods.bas");}while(r); -S_48653:; -fornext_value5502= 1 ; -fornext_finalvalue5502=*__LONG_IDEBMKN; -fornext_step5502= 1 ; -if (fornext_step5502<0) fornext_step_negative5502=1; else fornext_step_negative5502=0; -if (new_error) goto fornext_error5502; -goto fornext_entrylabel5502; +if(!qbevent)break;evnt(26307,17905,"ide_methods.bas");}while(r); +S_54721:; +fornext_value6083= 1 ; +fornext_finalvalue6083=*__LONG_IDEBMKN; +fornext_step6083= 1 ; +if (fornext_step6083<0) fornext_step_negative6083=1; else fornext_step_negative6083=0; +if (new_error) goto fornext_error6083; +goto fornext_entrylabel6083; while(1){ -fornext_value5502=fornext_step5502+(*_SUB_IDESAVEBOOKMARKS_LONG_I); -fornext_entrylabel5502: -*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value5502; -if (fornext_step_negative5502){ -if (fornext_value5502fornext_finalvalue5502) break; +if (fornext_value6083>fornext_finalvalue6083) break; } -fornext_error5502:; -if(qbevent){evnt(25066,13596,"ide_methods.bas");if(r)goto S_48653;} +fornext_error6083:; +if(qbevent){evnt(26307,17906,"ide_methods.bas");if(r)goto S_54721;} do{ qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_D,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_IDESAVEBOOKMARKS_STRING_D,l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13597,"ide_methods.bas");}while(r); -fornext_continue_5501:; +if(!qbevent)break;evnt(26307,17907,"ide_methods.bas");}while(r); +fornext_continue_6082:; } -fornext_exit_5501:; +fornext_exit_6082:; do{ qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,qbs_add(qbs_add(qbs_add(_SUB_IDESAVEBOOKMARKS_STRING_F,l2string(_SUB_IDESAVEBOOKMARKS_STRING_D->len)),_SUB_IDESAVEBOOKMARKS_STRING_D),_SUB_IDESAVEBOOKMARKS_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13599,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17909,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17910,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 4 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17910,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(25066,13600,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17910,"ide_methods.bas");}while(r); do{ *_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17911,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17911,"ide_methods.bas");}while(r); do{ -sub_put2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,byte_element((uint64)_SUB_IDESAVEBOOKMARKS_STRING_A->chr,_SUB_IDESAVEBOOKMARKS_STRING_A->len,byte_element_5504),0); +sub_put2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,byte_element((uint64)_SUB_IDESAVEBOOKMARKS_STRING_A->chr,_SUB_IDESAVEBOOKMARKS_STRING_A->len,byte_element_6085),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17911,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(25066,13601,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17911,"ide_methods.bas");}while(r); +S_54732:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26307,17914,"ide_methods.bas");if(r)goto S_54732;} +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17915,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17916,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,17918,"ide_methods.bas");}while(r); +S_54736:; +fornext_value6087= 1 ; +fornext_finalvalue6087=func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1); +fornext_step6087= 1 ; +if (fornext_step6087<0) fornext_step_negative6087=1; else fornext_step_negative6087=0; +if (new_error) goto fornext_error6087; +goto fornext_entrylabel6087; +while(1){ +fornext_value6087=fornext_step6087+(*_SUB_IDESAVEBOOKMARKS_LONG_I); +fornext_entrylabel6087: +*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6087; +if (fornext_step_negative6087){ +if (fornext_value6087fornext_finalvalue6087) break; +} +fornext_error6087:; +if(qbevent){evnt(26307,17919,"ide_methods.bas");if(r)goto S_54736;} +S_54737:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26307,17920,"ide_methods.bas");if(r)goto S_54737;} +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X=*_SUB_IDESAVEBOOKMARKS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,17921,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("breakpoint",10),qbs_str((int32)(*_SUB_IDESAVEBOOKMARKS_LONG_X))),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17922,"ide_methods.bas");}while(r); +} +fornext_continue_6086:; +} +fornext_exit_6086:; +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17925,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X= 0 ; +if(!qbevent)break;evnt(26307,17927,"ide_methods.bas");}while(r); +S_54744:; +fornext_value6089= 1 ; +fornext_finalvalue6089=func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1); +fornext_step6089= 1 ; +if (fornext_step6089<0) fornext_step_negative6089=1; else fornext_step_negative6089=0; +if (new_error) goto fornext_error6089; +goto fornext_entrylabel6089; +while(1){ +fornext_value6089=fornext_step6089+(*_SUB_IDESAVEBOOKMARKS_LONG_I); +fornext_entrylabel6089: +*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6089; +if (fornext_step_negative6089){ +if (fornext_value6089fornext_finalvalue6089) break; +} +fornext_error6089:; +if(qbevent){evnt(26307,17928,"ide_methods.bas");if(r)goto S_54744;} +S_54745:; +if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ +if(qbevent){evnt(26307,17929,"ide_methods.bas");if(r)goto S_54745;} +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X=*_SUB_IDESAVEBOOKMARKS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26307,17930,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("skip",4),qbs_str((int32)(*_SUB_IDESAVEBOOKMARKS_LONG_X))),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17931,"ide_methods.bas");}while(r); +} +fornext_continue_6088:; +} +fornext_exit_6088:; +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17934,"ide_methods.bas");}while(r); +} exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free194.txt" +#include "free210.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -171857,7 +190374,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data195.txt" +#include "data211.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -171865,523 +190382,636 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,13607,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17941,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,13608,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17942,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13609,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17943,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,13610,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17944,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,13611,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17945,"ide_methods.bas");}while(r); do{ if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDERECENTBOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDERECENTBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4]+1; _FUNC_IDERECENTBOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]),0,_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDERECENTBOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,13612,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17946,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,13613,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17947,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDERECENTBOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13614,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17948,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDERECENTBOX_STRING_L,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13624,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17958,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH= 72 ; +if(!qbevent)break;evnt(26307,17959,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_TOTALRECENT= 0 ; +if(!qbevent)break;evnt(26307,17960,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13625,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17961,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDERECENTBOX_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17962,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDERECENTBOX_STRING_A,func_space(func_lof(*_FUNC_IDERECENTBOX_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17962,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_IDERECENTBOX_LONG_FH,NULL,_FUNC_IDERECENTBOX_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13626,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17962,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_right(_FUNC_IDERECENTBOX_STRING_A,_FUNC_IDERECENTBOX_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13627,"ide_methods.bas");}while(r); -S_48678:; +if(!qbevent)break;evnt(26307,17963,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST)[8])->id=(++mem_lock_id); +if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&1){ +tmp_long=_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long]); +free((void*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0])); +} +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4]= 0 ; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]=( 100 )-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4]+1; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[6]=1; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]=(ptrszint)malloc(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]*8); +if (!_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]) error(257); +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]|=1; +tmp_long=_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]; +if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&4){ +while(tmp_long--) ((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,17964,"ide_methods.bas");}while(r); +S_54769:; while((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(25066,13628,"ide_methods.bas");if(r)goto S_48678;} +if(qbevent){evnt(26307,17965,"ide_methods.bas");if(r)goto S_54769;} do{ *_FUNC_IDERECENTBOX_LONG_AI=func_instr(NULL,_FUNC_IDERECENTBOX_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13629,"ide_methods.bas");}while(r); -S_48680:; +if(!qbevent)break;evnt(26307,17966,"ide_methods.bas");}while(r); +S_54771:; if ((*_FUNC_IDERECENTBOX_LONG_AI)||new_error){ -if(qbevent){evnt(25066,13630,"ide_methods.bas");if(r)goto S_48680;} +if(qbevent){evnt(26307,17967,"ide_methods.bas");if(r)goto S_54771;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_F,qbs_left(_FUNC_IDERECENTBOX_STRING_A,*_FUNC_IDERECENTBOX_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13631,"ide_methods.bas");}while(r); -S_48682:; +if(!qbevent)break;evnt(26307,17968,"ide_methods.bas");}while(r); +S_54773:; if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_AI==(_FUNC_IDERECENTBOX_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(25066,13631,"ide_methods.bas");if(r)goto S_48682;} +if(qbevent){evnt(26307,17968,"ide_methods.bas");if(r)goto S_54773;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13631,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17968,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_right(_FUNC_IDERECENTBOX_STRING_A,_FUNC_IDERECENTBOX_STRING_A->len-*_FUNC_IDERECENTBOX_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13631,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17968,"ide_methods.bas");}while(r); } -S_48687:; +S_54778:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDERECENTBOX_STRING_F->len+ 6 )>*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26307,17969,"ide_methods.bas");if(r)goto S_54778;} +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=_FUNC_IDERECENTBOX_STRING_F->len+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,17969,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_TOTALRECENT=*_FUNC_IDERECENTBOX_LONG_TOTALRECENT+ 1 ; +if(!qbevent)break;evnt(26307,17970,"ide_methods.bas");}while(r); +S_54782:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_TOTALRECENT>func_ubound(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST,1,1))))||new_error){ +if(qbevent){evnt(26307,17971,"ide_methods.bas");if(r)goto S_54782;} +do{ + +if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&1){ +preserved_elements=_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]; +} +else preserved_elements=0; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4]= 0 ; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]=(func_ubound(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST,1,1)+ 100 )-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4]+1; +_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]; +if (tmp_long2len))||new_error){ -if(qbevent){evnt(25066,13632,"ide_methods.bas");if(r)goto S_48687;} +if(qbevent){evnt(26307,17975,"ide_methods.bas");if(r)goto S_54786;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDERECENTBOX_STRING_L,_FUNC_IDERECENTBOX_STRING1_SEP),_FUNC_IDERECENTBOX_STRING_F)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17975,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_IDERECENTBOX_STRING_L,_FUNC_IDERECENTBOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13632,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17975,"ide_methods.bas");}while(r); } } -dl_continue_5507:; +dl_continue_6092:; } -dl_exit_5507:; +dl_exit_6092:; do{ sub_close(*_FUNC_IDERECENTBOX_LONG_FH,1); -if(!qbevent)break;evnt(25066,13635,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17978,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,13638,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17981,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) ),&(pass5511=*__LONG_IDEWX- 8 ),&(pass5512=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ),qbs_new_txt_len("Open",4)); +*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT=*_FUNC_IDERECENTBOX_LONG_TOTALRECENT+ 3 ; +if(!qbevent)break;evnt(26307,17982,"ide_methods.bas");}while(r); +S_54796:; +if ((-(*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26307,17983,"ide_methods.bas");if(r)goto S_54796;} +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26307,17984,"ide_methods.bas");}while(r); +} +S_54799:; +if ((-(*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26307,17987,"ide_methods.bas");if(r)goto S_54799;} +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26307,17987,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) ),_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH,_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Open",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13639,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17988,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13641,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17990,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,13642,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,17991,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+24))= 1 ; -if(!qbevent)break;evnt(25066,13643,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+24))= 1 ; +if(!qbevent)break;evnt(26307,17992,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+28))=*__LONG_IDEWX- 12 ; -if(!qbevent)break;evnt(25066,13645,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26307,17994,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(25066,13645,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT- 3 ; +if(!qbevent)break;evnt(26307,17994,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDERECENTBOX_STRING_L); -if(!qbevent)break;evnt(25066,13646,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERECENTBOX_STRING_L); +if(!qbevent)break;evnt(26307,17995,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,13647,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,17996,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Recent Programs",15)); -if(!qbevent)break;evnt(25066,13648,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Recent Programs",15)); +if(!qbevent)break;evnt(26307,17997,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13650,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17999,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,13651,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,18000,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(25066,13652,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26307,18001,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("Clea#r list",11)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Remove broken links",20))); -if(!qbevent)break;evnt(25066,13653,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Open",5),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("Clear #list",11)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Remove broken links",20))); +if(!qbevent)break;evnt(26307,18002,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,13654,"ide_methods.bas");}while(r); -S_48710:; -fornext_value5514= 1 ; -fornext_finalvalue5514= 100 ; -fornext_step5514= 1 ; -if (fornext_step5514<0) fornext_step_negative5514=1; else fornext_step_negative5514=0; -if (new_error) goto fornext_error5514; -goto fornext_entrylabel5514; +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,18003,"ide_methods.bas");}while(r); +S_54816:; +fornext_value6099= 1 ; +fornext_finalvalue6099= 100 ; +fornext_step6099= 1 ; +if (fornext_step6099<0) fornext_step_negative6099=1; else fornext_step_negative6099=0; +if (new_error) goto fornext_error6099; +goto fornext_entrylabel6099; while(1){ -fornext_value5514=fornext_step5514+(*_FUNC_IDERECENTBOX_LONG_I); -fornext_entrylabel5514: -*_FUNC_IDERECENTBOX_LONG_I=fornext_value5514; -if (fornext_step_negative5514){ -if (fornext_value5514fornext_finalvalue5514) break; +if (fornext_value6099>fornext_finalvalue6099) break; } -fornext_error5514:; -if(qbevent){evnt(25066,13659,"ide_methods.bas");if(r)goto S_48710;} +fornext_error6099:; +if(qbevent){evnt(26307,18008,"ide_methods.bas");if(r)goto S_54816;} do{ -memcpy(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDERECENTBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,13659,"ide_methods.bas");}while(r); -fornext_continue_5513:; +memcpy(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDERECENTBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,18008,"ide_methods.bas");}while(r); +fornext_continue_6098:; } -fornext_exit_5513:; -S_48713:; +fornext_exit_6098:; +S_54819:; do{ -if(qbevent){evnt(25066,13662,"ide_methods.bas");if(r)goto S_48713;} +if(qbevent){evnt(26307,18011,"ide_methods.bas");if(r)goto S_54819;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,13665,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18014,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,13666,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18015,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,13666,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18015,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,13666,"ide_methods.bas");}while(r); -S_48718:; -fornext_value5517= 1 ; -fornext_finalvalue5517= 100 ; -fornext_step5517= 1 ; -if (fornext_step5517<0) fornext_step_negative5517=1; else fornext_step_negative5517=0; -if (new_error) goto fornext_error5517; -goto fornext_entrylabel5517; +if(!qbevent)break;evnt(26307,18015,"ide_methods.bas");}while(r); +S_54824:; +fornext_value6102= 1 ; +fornext_finalvalue6102= 100 ; +fornext_step6102= 1 ; +if (fornext_step6102<0) fornext_step_negative6102=1; else fornext_step_negative6102=0; +if (new_error) goto fornext_error6102; +goto fornext_entrylabel6102; while(1){ -fornext_value5517=fornext_step5517+(*_FUNC_IDERECENTBOX_LONG_I); -fornext_entrylabel5517: -*_FUNC_IDERECENTBOX_LONG_I=fornext_value5517; -if (fornext_step_negative5517){ -if (fornext_value5517fornext_finalvalue5517) break; +if (fornext_value6102>fornext_finalvalue6102) break; } -fornext_error5517:; -if(qbevent){evnt(25066,13667,"ide_methods.bas");if(r)goto S_48718;} -S_48719:; -if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,13668,"ide_methods.bas");if(r)goto S_48719;} +fornext_error6102:; +if(qbevent){evnt(26307,18016,"ide_methods.bas");if(r)goto S_54824;} +S_54825:; +if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,18017,"ide_methods.bas");if(r)goto S_54825;} do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; -if(!qbevent)break;evnt(25066,13671,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; +if(!qbevent)break;evnt(26307,18020,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,13672,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,18021,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,13672,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,18021,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDERECENTBOX_LONG_F); -if(!qbevent)break;evnt(25066,13673,"ide_methods.bas");}while(r); -S_48724:; -if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,13674,"ide_methods.bas");if(r)goto S_48724;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERECENTBOX_LONG_F); +if(!qbevent)break;evnt(26307,18022,"ide_methods.bas");}while(r); +S_54830:; +if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,18023,"ide_methods.bas");if(r)goto S_54830;} do{ -*_FUNC_IDERECENTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,13674,"ide_methods.bas");}while(r); +*_FUNC_IDERECENTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,18023,"ide_methods.bas");}while(r); do{ -*_FUNC_IDERECENTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,13674,"ide_methods.bas");}while(r); +*_FUNC_IDERECENTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,18023,"ide_methods.bas");}while(r); } } -fornext_continue_5516:; +fornext_continue_6101:; } -fornext_exit_5516:; +fornext_exit_6101:; do{ *_FUNC_IDERECENTBOX_LONG_LASTFOCUS=*_FUNC_IDERECENTBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,13677,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18026,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,13684,"ide_methods.bas");}while(r); -S_48732:; +if(!qbevent)break;evnt(26307,18033,"ide_methods.bas");}while(r); +S_54838:; if ((*_FUNC_IDERECENTBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,13685,"ide_methods.bas");if(r)goto S_48732;} +if(qbevent){evnt(26307,18034,"ide_methods.bas");if(r)goto S_54838;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18034,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDERECENTBOX_LONG_CY,*_FUNC_IDERECENTBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,13685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18034,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18034,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,13688,"ide_methods.bas");}while(r); -S_48738:; +if(!qbevent)break;evnt(26307,18037,"ide_methods.bas");}while(r); +S_54844:; do{ -if(qbevent){evnt(25066,13689,"ide_methods.bas");if(r)goto S_48738;} +if(qbevent){evnt(26307,18038,"ide_methods.bas");if(r)goto S_54844;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,13690,"ide_methods.bas");}while(r); -S_48740:; +if(!qbevent)break;evnt(26307,18039,"ide_methods.bas");}while(r); +S_54846:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,13691,"ide_methods.bas");if(r)goto S_48740;} +if(qbevent){evnt(26307,18040,"ide_methods.bas");if(r)goto S_54846;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13691,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18040,"ide_methods.bas");}while(r); } -S_48743:; +S_54849:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,13692,"ide_methods.bas");if(r)goto S_48743;} +if(qbevent){evnt(26307,18041,"ide_methods.bas");if(r)goto S_54849;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13692,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18041,"ide_methods.bas");}while(r); } -S_48746:; +S_54852:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,13693,"ide_methods.bas");if(r)goto S_48746;} +if(qbevent){evnt(26307,18042,"ide_methods.bas");if(r)goto S_54852;} do{ *_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,13693,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18042,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13693,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18042,"ide_methods.bas");}while(r); } -S_48750:; +S_54856:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,13694,"ide_methods.bas");if(r)goto S_48750;} +if(qbevent){evnt(26307,18043,"ide_methods.bas");if(r)goto S_54856;} do{ *_FUNC_IDERECENTBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,13694,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18043,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13694,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18043,"ide_methods.bas");}while(r); } -S_48754:; +S_54860:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,13695,"ide_methods.bas");if(r)goto S_48754;} +if(qbevent){evnt(26307,18044,"ide_methods.bas");if(r)goto S_54860;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13695,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18044,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,13696,"ide_methods.bas");}while(r); -S_48758:; +if(!qbevent)break;evnt(26307,18045,"ide_methods.bas");}while(r); +S_54864:; if ((-(*_FUNC_IDERECENTBOX_LONG_ALT!=*_FUNC_IDERECENTBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,13696,"ide_methods.bas");if(r)goto S_48758;} +if(qbevent){evnt(26307,18045,"ide_methods.bas");if(r)goto S_54864;} do{ *_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,13696,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18045,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_OLDALT=*_FUNC_IDERECENTBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,13697,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18046,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,13698,"ide_methods.bas");}while(r); -S_48763:; -dl_continue_5518:; +if(!qbevent)break;evnt(26307,18047,"ide_methods.bas");}while(r); +S_54869:; +dl_continue_6103:; }while((!(*_FUNC_IDERECENTBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5518:; -if(qbevent){evnt(25066,13699,"ide_methods.bas");if(r)goto S_48763;} -S_48764:; +dl_exit_6103:; +if(qbevent){evnt(26307,18048,"ide_methods.bas");if(r)goto S_54869;} +S_54870:; if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,13700,"ide_methods.bas");if(r)goto S_48764;} +if(qbevent){evnt(26307,18049,"ide_methods.bas");if(r)goto S_54870;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,13700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18049,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,13700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18049,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13702,"ide_methods.bas");}while(r); -S_48770:; +if(!qbevent)break;evnt(26307,18051,"ide_methods.bas");}while(r); +S_54876:; if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,13703,"ide_methods.bas");if(r)goto S_48770;} -S_48771:; +if(qbevent){evnt(26307,18052,"ide_methods.bas");if(r)goto S_54876;} +S_54877:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,13704,"ide_methods.bas");if(r)goto S_48771;} +if(qbevent){evnt(26307,18053,"ide_methods.bas");if(r)goto S_54877;} do{ *_FUNC_IDERECENTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13705,"ide_methods.bas");}while(r); -S_48773:; +if(!qbevent)break;evnt(26307,18054,"ide_methods.bas");}while(r); +S_54879:; if (((-(*_FUNC_IDERECENTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDERECENTBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,13706,"ide_methods.bas");if(r)goto S_48773;} +if(qbevent){evnt(26307,18055,"ide_methods.bas");if(r)goto S_54879;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDERECENTBOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13706,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18055,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18058,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,13709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18058,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,13709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18058,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,13713,"ide_methods.bas");}while(r); -S_48782:; +if(!qbevent)break;evnt(26307,18062,"ide_methods.bas");}while(r); +S_54888:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,13714,"ide_methods.bas");if(r)goto S_48782;} +if(qbevent){evnt(26307,18063,"ide_methods.bas");if(r)goto S_54888;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13714,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18063,"ide_methods.bas");}while(r); } -S_48785:; +S_54891:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,13715,"ide_methods.bas");if(r)goto S_48785;} +if(qbevent){evnt(26307,18064,"ide_methods.bas");if(r)goto S_54891;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,13715,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18064,"ide_methods.bas");}while(r); } -S_48788:; +S_54894:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,13716,"ide_methods.bas");if(r)goto S_48788;} +if(qbevent){evnt(26307,18065,"ide_methods.bas");if(r)goto S_54894;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,13716,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18065,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13716,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18065,"ide_methods.bas");}while(r); } -S_48792:; +S_54898:; if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,13717,"ide_methods.bas");if(r)goto S_48792;} +if(qbevent){evnt(26307,18066,"ide_methods.bas");if(r)goto S_54898;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,13717,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18066,"ide_methods.bas");}while(r); } -S_48795:; +S_54901:; if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS>*_FUNC_IDERECENTBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,13718,"ide_methods.bas");if(r)goto S_48795;} +if(qbevent){evnt(26307,18067,"ide_methods.bas");if(r)goto S_54901;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,13718,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18067,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,13719,"ide_methods.bas");}while(r); -S_48799:; -fornext_value5521= 1 ; -fornext_finalvalue5521= 100 ; -fornext_step5521= 1 ; -if (fornext_step5521<0) fornext_step_negative5521=1; else fornext_step_negative5521=0; -if (new_error) goto fornext_error5521; -goto fornext_entrylabel5521; +if(!qbevent)break;evnt(26307,18068,"ide_methods.bas");}while(r); +S_54905:; +fornext_value6106= 1 ; +fornext_finalvalue6106= 100 ; +fornext_step6106= 1 ; +if (fornext_step6106<0) fornext_step_negative6106=1; else fornext_step_negative6106=0; +if (new_error) goto fornext_error6106; +goto fornext_entrylabel6106; while(1){ -fornext_value5521=fornext_step5521+(*_FUNC_IDERECENTBOX_LONG_I); -fornext_entrylabel5521: -*_FUNC_IDERECENTBOX_LONG_I=fornext_value5521; -if (fornext_step_negative5521){ -if (fornext_value5521fornext_finalvalue5521) break; +if (fornext_value6106>fornext_finalvalue6106) break; } -fornext_error5521:; -if(qbevent){evnt(25066,13720,"ide_methods.bas");if(r)goto S_48799;} +fornext_error6106:; +if(qbevent){evnt(26307,18069,"ide_methods.bas");if(r)goto S_54905;} do{ -*_FUNC_IDERECENTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,13721,"ide_methods.bas");}while(r); -S_48801:; +*_FUNC_IDERECENTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,18070,"ide_methods.bas");}while(r); +S_54907:; if ((*_FUNC_IDERECENTBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,13722,"ide_methods.bas");if(r)goto S_48801;} +if(qbevent){evnt(26307,18071,"ide_methods.bas");if(r)goto S_54907;} do{ *_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; -if(!qbevent)break;evnt(25066,13723,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18072,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDERECENTBOX_LONG_FOCUS,_FUNC_IDERECENTBOX_LONG_F,_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERECENTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERECENTBOX_LONG_MOUSEDOWN,_FUNC_IDERECENTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERECENTBOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERECENTBOX_LONG_FOCUS,_FUNC_IDERECENTBOX_LONG_F,_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERECENTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERECENTBOX_LONG_MOUSEDOWN,_FUNC_IDERECENTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERECENTBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13724,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18073,"ide_methods.bas");}while(r); } -fornext_continue_5520:; +fornext_continue_6105:; } -fornext_exit_5520:; -S_48806:; +fornext_exit_6105:; +S_54912:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,13729,"ide_methods.bas");if(r)goto S_48806;} +if(qbevent){evnt(26307,18078,"ide_methods.bas");if(r)goto S_54912;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13730,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18079,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13731,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18080,"ide_methods.bas");}while(r); } -S_48810:; +S_54916:; if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 1 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 1 )))))||new_error){ -if(qbevent){evnt(25066,13734,"ide_methods.bas");if(r)goto S_48810;} +if(qbevent){evnt(26307,18083,"ide_methods.bas");if(r)goto S_54916;} do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDERECENTBOX_STRING_F,((qbs*)(((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[array_check((func_abs((int32)(*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+64)))))-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4],_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13735,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18084,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,_FUNC_IDERECENTBOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13736,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18085,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13737,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18086,"ide_methods.bas");}while(r); } -S_48815:; +S_54921:; if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 )))))||new_error){ -if(qbevent){evnt(25066,13740,"ide_methods.bas");if(r)goto S_48815;} +if(qbevent){evnt(26307,18089,"ide_methods.bas");if(r)goto S_54921;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13741,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18090,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13742,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18091,"ide_methods.bas");}while(r); } -S_48819:; +S_54925:; if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 )))))||new_error){ -if(qbevent){evnt(25066,13745,"ide_methods.bas");if(r)goto S_48819;} +if(qbevent){evnt(26307,18094,"ide_methods.bas");if(r)goto S_54925;} do{ qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13746,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18095,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,13747,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18096,"ide_methods.bas");}while(r); } do{ *_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,13751,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18100,"ide_methods.bas");}while(r); do{ *_FUNC_IDERECENTBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,13752,"ide_methods.bas");}while(r); -dl_continue_5515:; +if(!qbevent)break;evnt(26307,18101,"ide_methods.bas");}while(r); +dl_continue_6100:; }while(1); -dl_exit_5515:; +dl_exit_6100:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free195.txt" +#include "free211.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX);return _FUNC_IDERECENTBOX_STRING_IDERECENTBOX; @@ -172393,7 +191023,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data196.txt" +#include "data212.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -172401,216 +191031,288 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_IDEMAKEFILEMENU_LONG_M= 1 ; -if(!qbevent)break;evnt(25066,13762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18111,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,13762,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18111,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("File",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18112,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13763,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18112,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#New Ctrl+N",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13764,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18113,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13764,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18113,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Closes current program and starts a blank one",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18114,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Open... Ctrl+O",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13765,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18115,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13765,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18115,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Loads a program into memory",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18116,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Save Ctrl+S",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18117,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13766,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18117,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Writes current program to a file on disk",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18118,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Save #As...",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18119,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18119,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Saves current program with specified name",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18120,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13768,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18121,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_SUB_IDEMAKEFILEMENU_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18122,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,func_space(func_lof(*_SUB_IDEMAKEFILEMENU_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18122,"ide_methods.bas");}while(r); do{ sub_get2(*_SUB_IDEMAKEFILEMENU_LONG_FH,NULL,_SUB_IDEMAKEFILEMENU_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18122,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_right(_SUB_IDEMAKEFILEMENU_STRING_A,_SUB_IDEMAKEFILEMENU_STRING_A->len- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13770,"ide_methods.bas");}while(r); -S_48843:; -fornext_value5524= 1 ; -fornext_finalvalue5524= 5 ; -fornext_step5524= 1 ; -if (fornext_step5524<0) fornext_step_negative5524=1; else fornext_step_negative5524=0; -if (new_error) goto fornext_error5524; -goto fornext_entrylabel5524; +if(!qbevent)break;evnt(26307,18123,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU=func_ubound(__ARRAY_STRING_IDERECENTLINK, 1 ,2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18124,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES= 35 ; +if(!qbevent)break;evnt(26307,18125,"ide_methods.bas");}while(r); +S_54955:; +fornext_value6109= 1 ; +fornext_finalvalue6109=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU+ 1 ; +fornext_step6109= 1 ; +if (fornext_step6109<0) fornext_step_negative6109=1; else fornext_step_negative6109=0; +if (new_error) goto fornext_error6109; +goto fornext_entrylabel6109; while(1){ -fornext_value5524=fornext_step5524+(*_SUB_IDEMAKEFILEMENU_LONG_R); -fornext_entrylabel5524: -*_SUB_IDEMAKEFILEMENU_LONG_R=fornext_value5524; -if (fornext_step_negative5524){ -if (fornext_value5524fornext_finalvalue5524) break; +if (fornext_value6109>fornext_finalvalue6109) break; } -fornext_error5524:; -if(qbevent){evnt(25066,13771,"ide_methods.bas");if(r)goto S_48843;} -S_48844:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<= 4 ))||new_error){ -if(qbevent){evnt(25066,13772,"ide_methods.bas");if(r)goto S_48844;} +fornext_error6109:; +if(qbevent){evnt(26307,18126,"ide_methods.bas");if(r)goto S_54955;} +S_54956:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ +if(qbevent){evnt(26307,18127,"ide_methods.bas");if(r)goto S_54956;} do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13772,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18127,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEFILEMENU_LONG_AI=func_instr(NULL,_SUB_IDEMAKEFILEMENU_STRING_A,__STRING_CRLF,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13773,"ide_methods.bas");}while(r); -S_48848:; +if(!qbevent)break;evnt(26307,18128,"ide_methods.bas");}while(r); +S_54960:; if ((*_SUB_IDEMAKEFILEMENU_LONG_AI)||new_error){ -if(qbevent){evnt(25066,13774,"ide_methods.bas");if(r)goto S_48848;} -S_48849:; +if(qbevent){evnt(26307,18129,"ide_methods.bas");if(r)goto S_54960;} +S_54961:; if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R== 1 ))||new_error){ -if(qbevent){evnt(25066,13775,"ide_methods.bas");if(r)goto S_48849;} +if(qbevent){evnt(26307,18130,"ide_methods.bas");if(r)goto S_54961;} do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13775,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18130,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13775,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18130,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_left(_SUB_IDEMAKEFILEMENU_STRING_A,*_SUB_IDEMAKEFILEMENU_LONG_AI- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13776,"ide_methods.bas");}while(r); -S_48854:; +if(!qbevent)break;evnt(26307,18131,"ide_methods.bas");}while(r); +S_54966:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEFILEMENU_LONG_AI==(_SUB_IDEMAKEFILEMENU_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(25066,13776,"ide_methods.bas");if(r)goto S_48854;} +if(qbevent){evnt(26307,18131,"ide_methods.bas");if(r)goto S_54966;} do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13776,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18131,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_right(_SUB_IDEMAKEFILEMENU_STRING_A,_SUB_IDEMAKEFILEMENU_STRING_A->len-*_SUB_IDEMAKEFILEMENU_LONG_AI- 3 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13776,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18131,"ide_methods.bas");}while(r); } -S_48859:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<= 4 ))||new_error){ -if(qbevent){evnt(25066,13777,"ide_methods.bas");if(r)goto S_48859;} +S_54971:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ +if(qbevent){evnt(26307,18132,"ide_methods.bas");if(r)goto S_54971;} do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18132,"ide_methods.bas");}while(r); } -S_48862:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R== 5 ))||new_error){ -if(qbevent){evnt(25066,13778,"ide_methods.bas");if(r)goto S_48862;} +S_54974:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKEFILEMENU_STRING_F->len>*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES)))||new_error){ +if(qbevent){evnt(26307,18134,"ide_methods.bas");if(r)goto S_54974;} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(func_string( 3 , 250 ),qbs_right(_SUB_IDEMAKEFILEMENU_STRING_F,*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18134,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#",1),FUNC_STR2(_SUB_IDEMAKEFILEMENU_LONG_R)),qbs_new_txt_len(" ",1)),_SUB_IDEMAKEFILEMENU_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18135,"ide_methods.bas");}while(r); +S_54978:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R==(*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU+ 1 )))||new_error){ +if(qbevent){evnt(26307,18136,"ide_methods.bas");if(r)goto S_54978;} do{ qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_new_txt_len("#Recent...",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13778,"ide_methods.bas");}while(r); -} -S_48865:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKEFILEMENU_STRING_F->len> 25 )))||new_error){ -if(qbevent){evnt(25066,13779,"ide_methods.bas");if(r)goto S_48865;} -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(func_string( 3 , 250 ),qbs_right(_SUB_IDEMAKEFILEMENU_STRING_F, 22 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13779,"ide_methods.bas");}while(r); -} -S_48868:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<= 4 ))||new_error){ -if(qbevent){evnt(25066,13780,"ide_methods.bas");if(r)goto S_48868;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13780,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18136,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13781,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18137,"ide_methods.bas");}while(r); +S_54982:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ +if(qbevent){evnt(26307,18138,"ide_methods.bas");if(r)goto S_54982;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18139,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_new_txt_len("Open '",6),((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18140,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_AI= 3 ; +if(!qbevent)break;evnt(26307,18141,"ide_methods.bas");}while(r); +S_54986:; +while((!(qbs_cleanup(qbs_tmp_base,-((_SUB_IDEMAKEFILEMENU_STRING_F->len)<=(*__LONG_IDEWX- 2 )))))||new_error){ +if(qbevent){evnt(26307,18142,"ide_methods.bas");if(r)goto S_54986;} +do{ +*_SUB_IDEMAKEFILEMENU_LONG_AI=*_SUB_IDEMAKEFILEMENU_LONG_AI+ 1 ; +if(!qbevent)break;evnt(26307,18143,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Open '",6),func_string( 3 , 250 )),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]])),*_SUB_IDEMAKEFILEMENU_LONG_AI,NULL,0)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18144,"ide_methods.bas");}while(r); +dl_continue_6114:; +} +dl_exit_6114:; +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18146,"ide_methods.bas");}while(r); +} do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13781,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18148,"ide_methods.bas");}while(r); } -fornext_continue_5523:; +fornext_continue_6108:; } -fornext_exit_5523:; +fornext_exit_6108:; do{ sub_close(*_SUB_IDEMAKEFILEMENU_LONG_FH,1); -if(!qbevent)break;evnt(25066,13784,"ide_methods.bas");}while(r); -S_48876:; +if(!qbevent)break;evnt(26307,18151,"ide_methods.bas");}while(r); +S_54996:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Recent...",10)))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Save #As...",11)))))||new_error){ -if(qbevent){evnt(25066,13785,"ide_methods.bas");if(r)goto S_48876;} +if(qbevent){evnt(26307,18152,"ide_methods.bas");if(r)goto S_54996;} do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clear #Recent...",16)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Clear Recent...",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18153,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18153,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Clears list of recently loaded files",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18154,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a complete list of recently loaded files",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18156,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13788,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18158,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13788,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18158,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("E#xit",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13789,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18159,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13789,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18159,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Exits QB64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18160,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKEFILEMENU_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,13790,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18161,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free196.txt" +#include "free212.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -172621,7 +191323,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data197.txt" +#include "data213.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -172651,281 +191353,409 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(25066,13794,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18165,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,13795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18166,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; -if(!qbevent)break;evnt(25066,13797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18168,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,13797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18168,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Contextual",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13798,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18169,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13798,"ide_methods.bas");}while(r); -S_48891:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,13801,"ide_methods.bas");if(r)goto S_48891;} -S_48892:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,13802,"ide_methods.bas");if(r)goto S_48892;} +if(!qbevent)break;evnt(26307,18169,"ide_methods.bas");}while(r); +S_55015:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26307,18171,"ide_methods.bas");if(r)goto S_55015;} do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Continue F5",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13803,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18172,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0)); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18172,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the end of the current procedure is reached",54)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13804,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18173,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,13805,"ide_methods.bas");}while(r); +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Step O#ut F6",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18174,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,13805,"ide_methods.bas");}while(r); -S_48897:; -if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2<*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,13806,"ide_methods.bas");if(r)goto S_48897;} +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18174,"ide_methods.bas");}while(r); do{ -swap_32(&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1,&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2); -if(!qbevent)break;evnt(25066,13806,"ide_methods.bas");}while(r); -} -S_48900:; -fornext_value5529=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1; -fornext_finalvalue5529=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2- 1 ; -fornext_step5529= 1 ; -if (fornext_step5529<0) fornext_step_negative5529=1; else fornext_step_negative5529=0; -if (new_error) goto fornext_error5529; -goto fornext_entrylabel5529; -while(1){ -fornext_value5529=fornext_step5529+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X); -fornext_entrylabel5529: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=fornext_value5529; -if (fornext_step_negative5529){ -if (fornext_value5529fornext_finalvalue5529) break; -} -fornext_error5529:; -if(qbevent){evnt(25066,13807,"ide_methods.bas");if(r)goto S_48900;} -S_48901:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X<=_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,13808,"ide_methods.bas");if(r)goto S_48901;} +S_55067:; +if (((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ +if(qbevent){evnt(26307,18205,"ide_methods.bas");if(r)goto S_55067;} do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X, 1 ,1))); +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,FUNC_GETSELECTEDTEXT(&(pass6115= 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13808,"ide_methods.bas");}while(r); -}else{ +if(!qbevent)break;evnt(26307,18207,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13808,"ide_methods.bas");}while(r); -} -fornext_continue_5528:; -} -fornext_exit_5528:; -} -S_48908:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,13811,"ide_methods.bas");if(r)goto S_48908;} +if(!qbevent)break;evnt(26307,18208,"ide_methods.bas");}while(r); +S_55070:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 )))||new_error){ +if(qbevent){evnt(26307,18209,"ide_methods.bas");if(r)goto S_55070;} do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2)); +qbs_set(__STRING_IDECONTEXTUALSEARCH,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18210,"ide_methods.bas");}while(r); +S_55072:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2->len> 22 )))||new_error){ +if(qbevent){evnt(26307,18211,"ide_methods.bas");if(r)goto S_55072;} do{ -qbs_set(__STRING_IDECONTEXTUALSEARCH,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2, 19 ),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13813,"ide_methods.bas");}while(r); -S_48911:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len> 22 )))||new_error){ -if(qbevent){evnt(25066,13814,"ide_methods.bas");if(r)goto S_48911;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2, 19 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13815,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18212,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("Find '",6),_SUB_IDEMAKECONTEXTUALMENU_STRING_A2),qbs_new_txt_len("'",1))); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("Find '",6),_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13817,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18214,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13817,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18214,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Searches for the text currently selected",40)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13818,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,18215,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF= 0 ; -if(!qbevent)break;evnt(25066,13822,"ide_methods.bas");}while(r); -S_48920:; -fornext_value5534= 1 ; -fornext_finalvalue5534=*__LONG_IDEN; -fornext_step5534= 1 ; -if (fornext_step5534<0) fornext_step_negative5534=1; else fornext_step_negative5534=0; -if (new_error) goto fornext_error5534; -goto fornext_entrylabel5534; +if(!qbevent)break;evnt(26307,18219,"ide_methods.bas");}while(r); +S_55080:; +fornext_value6119= 1 ; +fornext_finalvalue6119=*__LONG_IDEN; +fornext_step6119= 1 ; +if (fornext_step6119<0) fornext_step_negative6119=1; else fornext_step_negative6119=0; +if (new_error) goto fornext_error6119; +goto fornext_entrylabel6119; while(1){ -fornext_value5534=fornext_step5534+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y); -fornext_entrylabel5534: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y=fornext_value5534; -if (fornext_step_negative5534){ -if (fornext_value5534fornext_finalvalue5534) break; +if (fornext_value6119>fornext_finalvalue6119) break; } -fornext_error5534:; -if(qbevent){evnt(25066,13823,"ide_methods.bas");if(r)goto S_48920;} +fornext_error6119:; +if(qbevent){evnt(26307,18220,"ide_methods.bas");if(r)goto S_55080;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(_SUB_IDEMAKECONTEXTUALMENU_LONG_Y)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13824,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18221,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13825,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18222,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 0 ; -if(!qbevent)break;evnt(25066,13826,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18223,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13827,"ide_methods.bas");}while(r); -S_48925:; +if(!qbevent)break;evnt(26307,18224,"ide_methods.bas");}while(r); +S_55085:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(25066,13828,"ide_methods.bas");if(r)goto S_48925;} +if(qbevent){evnt(26307,18225,"ide_methods.bas");if(r)goto S_55085;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 1 ; -if(!qbevent)break;evnt(25066,13828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18225,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF,qbs_new_txt_len("SUB ",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18225,"ide_methods.bas");}while(r); } -S_48929:; +S_55089:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(25066,13829,"ide_methods.bas");if(r)goto S_48929;} +if(qbevent){evnt(26307,18226,"ide_methods.bas");if(r)goto S_55089;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 2 ; -if(!qbevent)break;evnt(25066,13829,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18226,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF,qbs_new_txt_len("FUNC ",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13829,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18226,"ide_methods.bas");}while(r); } -S_48933:; +S_55093:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)||new_error){ -if(qbevent){evnt(25066,13830,"ide_methods.bas");if(r)goto S_48933;} -S_48934:; +if(qbevent){evnt(26307,18227,"ide_methods.bas");if(r)goto S_55093;} +S_55094:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(25066,13831,"ide_methods.bas");if(r)goto S_48934;} +if(qbevent){evnt(26307,18228,"ide_methods.bas");if(r)goto S_55094;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_rtrim(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 7 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13832,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18229,"ide_methods.bas");}while(r); } -S_48937:; +S_55097:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(25066,13835,"ide_methods.bas");if(r)goto S_48937;} +if(qbevent){evnt(26307,18232,"ide_methods.bas");if(r)goto S_55097;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 4 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13836,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18233,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 9 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13838,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18235,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_A))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13841,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18238,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_X=func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_new_txt_len("(",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13842,"ide_methods.bas");}while(r); -S_48944:; +if(!qbevent)break;evnt(26307,18239,"ide_methods.bas");}while(r); +S_55104:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_X)||new_error){ -if(qbevent){evnt(25066,13843,"ide_methods.bas");if(r)goto S_48944;} +if(qbevent){evnt(26307,18240,"ide_methods.bas");if(r)goto S_55104;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,qbs_rtrim(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18241,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,_SUB_IDEMAKECONTEXTUALMENU_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13846,"ide_methods.bas");}while(r); -} -S_48949:; -fornext_value5539= 1 ; -fornext_finalvalue5539=_SUB_IDEMAKECONTEXTUALMENU_STRING_N->len; -fornext_step5539= 1 ; -if (fornext_step5539<0) fornext_step_negative5539=1; else fornext_step_negative5539=0; -if (new_error) goto fornext_error5539; -goto fornext_entrylabel5539; -while(1){ -fornext_value5539=fornext_step5539+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_CLEANSEN); -fornext_entrylabel5539: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_CLEANSEN=fornext_value5539; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5539){ -if (fornext_value5539fornext_finalvalue5539) break; -} -fornext_error5539:; -if(qbevent){evnt(25066,13850,"ide_methods.bas");if(r)goto S_48949;} -S_48950:; -qbs_set(sc_5541,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,*_SUB_IDEMAKECONTEXTUALMENU_LONG_CLEANSEN, 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25066,13851,"ide_methods.bas");if(r)goto S_48950;} -S_48951:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5541,qbs_new_txt_len(" ",1))||qbs_equal(sc_5541,qbs_new_txt_len("'",1))||qbs_equal(sc_5541,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(25066,13852,"ide_methods.bas");if(r)goto S_48951;} +if(!qbevent)break;evnt(26307,18243,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,*_SUB_IDEMAKECONTEXTUALMENU_LONG_CLEANSEN- 1 )); +SUB_CLEANSUBNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13853,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5538; -if(!qbevent)break;evnt(25066,13854,"ide_methods.bas");}while(r); -goto sc_5541_end; +if(!qbevent)break;evnt(26307,18244,"ide_methods.bas");}while(r); } -sc_5541_end:; -fornext_continue_5538:; -} -fornext_exit_5538:; do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2,_SUB_IDEMAKECONTEXTUALMENU_STRING_N); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13858,"ide_methods.bas");}while(r); -S_48957:; +if(!qbevent)break;evnt(26307,18247,"ide_methods.bas");}while(r); +S_55111:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len> 1 )))||new_error){ -if(qbevent){evnt(25066,13859,"ide_methods.bas");if(r)goto S_48957;} -S_48958:; +if(qbevent){evnt(26307,18248,"ide_methods.bas");if(r)goto S_55111;} +S_55112:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,13860,"ide_methods.bas");if(r)goto S_48958;} +if(qbevent){evnt(26307,18249,"ide_methods.bas");if(r)goto S_55112;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13861,"ide_methods.bas");}while(r); -dl_continue_5543:; +if(!qbevent)break;evnt(26307,18250,"ide_methods.bas");}while(r); +dl_continue_6124:; } -dl_exit_5543:; +dl_exit_6124:; } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF+ 1 ; -if(!qbevent)break;evnt(25066,13866,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18255,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ @@ -172970,277 +191800,219 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q } } } -if(!qbevent)break;evnt(25066,13867,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18256,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),qbs_add(qbs_add(l2string(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y),func_chr(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)),_SUB_IDEMAKECONTEXTUALMENU_STRING_N2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13868,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18257,"ide_methods.bas");}while(r); } -fornext_continue_5533:; +fornext_continue_6118:; } -fornext_exit_5533:; +fornext_exit_6118:; do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13874,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13875,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,13876,"ide_methods.bas");}while(r); -S_48970:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X<=_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X>= 1 ))))||new_error){ -if(qbevent){evnt(25066,13877,"ide_methods.bas");if(r)goto S_48970;} -S_48971:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(25066,13878,"ide_methods.bas");if(r)goto S_48971;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1=*_SUB_IDEMAKECONTEXTUALMENU_LONG_X; -if(!qbevent)break;evnt(25066,13879,"ide_methods.bas");}while(r); -S_48973:; -while((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1> 1 ))||new_error){ -if(qbevent){evnt(25066,13880,"ide_methods.bas");if(r)goto S_48973;} -S_48974:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1- 1 )== 36 ))))||new_error){ -if(qbevent){evnt(25066,13881,"ide_methods.bas");if(r)goto S_48974;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1=*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1- 1 ; -if(!qbevent)break;evnt(25066,13881,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_5546; -if(!qbevent)break;evnt(25066,13881,"ide_methods.bas");}while(r); -} -dl_continue_5546:; -} -dl_exit_5546:; -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2=*_SUB_IDEMAKECONTEXTUALMENU_LONG_X; -if(!qbevent)break;evnt(25066,13883,"ide_methods.bas");}while(r); -S_48981:; -while((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2<_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,13884,"ide_methods.bas");if(r)goto S_48981;} -S_48982:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2+ 1 )== 36 ))))||new_error){ -if(qbevent){evnt(25066,13885,"ide_methods.bas");if(r)goto S_48982;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2=*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,13885,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_5548; -if(!qbevent)break;evnt(25066,13885,"ide_methods.bas");}while(r); -} -dl_continue_5548:; -} -dl_exit_5548:; -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X2-*_SUB_IDEMAKECONTEXTUALMENU_LONG_X1+ 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13887,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_chr(qbs_asc(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13889,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13891,"ide_methods.bas");}while(r); -} -S_48994:; +if(!qbevent)break;evnt(26307,18262,"ide_methods.bas");}while(r); +S_55122:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION)))->len)> 0 )))||new_error){ -if(qbevent){evnt(25066,13895,"ide_methods.bas");if(r)goto S_48994;} -S_48995:; +if(qbevent){evnt(26307,18265,"ide_methods.bas");if(r)goto S_55122;} +S_55123:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,13896,"ide_methods.bas");if(r)goto S_48995;} +if(qbevent){evnt(26307,18266,"ide_methods.bas");if(r)goto S_55123;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13897,"ide_methods.bas");}while(r); -S_48997:; +if(!qbevent)break;evnt(26307,18267,"ide_methods.bas");}while(r); +S_55125:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len== 0 )))||new_error){ -if(qbevent){evnt(25066,13898,"ide_methods.bas");if(r)goto S_48997;} +if(qbevent){evnt(26307,18268,"ide_methods.bas");if(r)goto S_55125;} do{ -goto dl_exit_5549; -if(!qbevent)break;evnt(25066,13898,"ide_methods.bas");}while(r); +goto dl_exit_6126; +if(!qbevent)break;evnt(26307,18268,"ide_methods.bas");}while(r); } -dl_continue_5549:; +dl_continue_6126:; } -dl_exit_5549:; +dl_exit_6126:; do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13900,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18270,"ide_methods.bas");}while(r); } -S_49003:; +S_55131:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(25066,13903,"ide_methods.bas");if(r)goto S_49003;} +if(qbevent){evnt(26307,18273,"ide_methods.bas");if(r)goto S_55131;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13903,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18273,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13903,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18273,"ide_methods.bas");}while(r); } -S_49008:; +S_55136:; if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3->len> 0 ))|(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 ))))||new_error){ -if(qbevent){evnt(25066,13905,"ide_methods.bas");if(r)goto S_49008;} -S_49009:; -fornext_value5556= 1 ; -fornext_finalvalue5556=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF; -fornext_step5556= 1 ; -if (fornext_step5556<0) fornext_step_negative5556=1; else fornext_step_negative5556=0; -if (new_error) goto fornext_error5556; -goto fornext_entrylabel5556; +if(qbevent){evnt(26307,18275,"ide_methods.bas");if(r)goto S_55136;} +S_55137:; +fornext_value6133= 1 ; +fornext_finalvalue6133=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF; +fornext_step6133= 1 ; +if (fornext_step6133<0) fornext_step_negative6133=1; else fornext_step_negative6133=0; +if (new_error) goto fornext_error6133; +goto fornext_entrylabel6133; while(1){ -fornext_value5556=fornext_step5556+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF); -fornext_entrylabel5556: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF=fornext_value5556; -if (fornext_step_negative5556){ -if (fornext_value5556fornext_finalvalue5556) break; +if (fornext_value6133>fornext_finalvalue6133) break; } -fornext_error5556:; -if(qbevent){evnt(25066,13907,"ide_methods.bas");if(r)goto S_49009;} -S_49010:; +fornext_error6133:; +if(qbevent){evnt(26307,18277,"ide_methods.bas");if(r)goto S_55137;} +S_55138:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))))|(qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION),qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))))))||new_error){ -if(qbevent){evnt(25066,13908,"ide_methods.bas");if(r)goto S_49010;} +if(qbevent){evnt(26307,18278,"ide_methods.bas");if(r)goto S_55138;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13909,"ide_methods.bas");}while(r); -S_49012:; +if(!qbevent)break;evnt(26307,18279,"ide_methods.bas");}while(r); +S_55140:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ -if(qbevent){evnt(25066,13910,"ide_methods.bas");if(r)goto S_49012;} +if(qbevent){evnt(26307,18280,"ide_methods.bas");if(r)goto S_55140;} do{ goto LABEL_SKIPCHECKCURRSF; -if(!qbevent)break;evnt(25066,13910,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18280,"ide_methods.bas");}while(r); } -S_49015:; +S_55143:; while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(25066,13912,"ide_methods.bas");if(r)goto S_49015;} +if(qbevent){evnt(26307,18282,"ide_methods.bas");if(r)goto S_55143;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13913,"ide_methods.bas");}while(r); -S_49017:; +if(!qbevent)break;evnt(26307,18283,"ide_methods.bas");}while(r); +S_55145:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ -if(qbevent){evnt(25066,13914,"ide_methods.bas");if(r)goto S_49017;} +if(qbevent){evnt(26307,18284,"ide_methods.bas");if(r)goto S_55145;} do{ -goto dl_exit_5558; -if(!qbevent)break;evnt(25066,13914,"ide_methods.bas");}while(r); +goto dl_exit_6135; +if(!qbevent)break;evnt(26307,18284,"ide_methods.bas");}while(r); } -dl_continue_5558:; +dl_continue_6135:; } -dl_exit_5558:; +dl_exit_6135:; do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13916,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18286,"ide_methods.bas");}while(r); LABEL_SKIPCHECKCURRSF:; -if(qbevent){evnt(25066,13918,"ide_methods.bas");r=0;} -S_49022:; +if(qbevent){evnt(26307,18288,"ide_methods.bas");r=0;} +S_55150:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 5 )== 1 )))||new_error){ -if(qbevent){evnt(25066,13919,"ide_methods.bas");if(r)goto S_49022;} +if(qbevent){evnt(26307,18289,"ide_methods.bas");if(r)goto S_55150;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("SUB ",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13920,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18290,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("FUNCTION ",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13922,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18292,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13924,"ide_methods.bas");}while(r); -S_49028:; +if(!qbevent)break;evnt(26307,18294,"ide_methods.bas");}while(r); +S_55156:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)))||new_error){ -if(qbevent){evnt(25066,13926,"ide_methods.bas");if(r)goto S_49028;} +if(qbevent){evnt(26307,18296,"ide_methods.bas");if(r)goto S_55156;} do{ -goto fornext_exit_5555; -if(!qbevent)break;evnt(25066,13927,"ide_methods.bas");}while(r); +goto fornext_exit_6132; +if(!qbevent)break;evnt(26307,18297,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Go To ",7),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13929,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18299,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13929,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18299,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to procedure definition",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18300,"ide_methods.bas");}while(r); do{ tmp_long=array_check(( 1 )-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13930,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18301,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5555; -if(!qbevent)break;evnt(25066,13931,"ide_methods.bas");}while(r); +goto fornext_exit_6132; +if(!qbevent)break;evnt(26307,18302,"ide_methods.bas");}while(r); } } -fornext_continue_5555:; +fornext_continue_6132:; } -fornext_exit_5555:; +fornext_exit_6132:; do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_V= 0 ; -if(!qbevent)break;evnt(25066,13936,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18307,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13937,"ide_methods.bas");}while(r); -S_49040:; -if ((~(*__LONG_ERROR_HAPPENED))||new_error){ -if(qbevent){evnt(25066,13938,"ide_methods.bas");if(r)goto S_49040;} +if(!qbevent)break;evnt(26307,18308,"ide_methods.bas");}while(r); +S_55169:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2)))||new_error){ +if(qbevent){evnt(26307,18309,"ide_methods.bas");if(r)goto S_55169;} do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFIND(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,&(pass5561= 2 ),_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFIND(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,&(pass6138= 2 ),_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13938,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18309,"ide_methods.bas");}while(r); } LABEL_CHECKTHISLABEL:; -if(qbevent){evnt(25066,13939,"ide_methods.bas");r=0;} -S_49043:; +if(qbevent){evnt(26307,18310,"ide_methods.bas");r=0;} +S_55172:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_V)||new_error){ -if(qbevent){evnt(25066,13940,"ide_methods.bas");if(r)goto S_49043;} +if(qbevent){evnt(26307,18311,"ide_methods.bas");if(r)goto S_55172;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)); -if(!qbevent)break;evnt(25066,13941,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18312,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE,FUNC_FINDCURRENTSF(_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13942,"ide_methods.bas");}while(r); -S_49046:; +if(!qbevent)break;evnt(26307,18313,"ide_methods.bas");}while(r); +S_55175:; if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE,_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_V== 2 ))))||new_error){ -if(qbevent){evnt(25066,13943,"ide_methods.bas");if(r)goto S_49046;} +if(qbevent){evnt(26307,18314,"ide_methods.bas");if(r)goto S_55175;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFINDCONT(_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); -if(!qbevent)break;evnt(25066,13944,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18315,"ide_methods.bas");}while(r); do{ goto LABEL_CHECKTHISLABEL; -if(!qbevent)break;evnt(25066,13945,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18316,"ide_methods.bas");}while(r); } -S_49050:; +S_55179:; if (((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER> 0 ))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER!=*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(25066,13947,"ide_methods.bas");if(r)goto S_49050;} +if(qbevent){evnt(26307,18318,"ide_methods.bas");if(r)goto S_55179;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Go To #Label ",13),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13948,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18319,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13948,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18319,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to label",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18320,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ @@ -173285,432 +192057,610 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q } } } -if(!qbevent)break;evnt(25066,13949,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18321,"ide_methods.bas");}while(r); do{ tmp_long=array_check((func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1))-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),l2string(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13950,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18322,"ide_methods.bas");}while(r); } } } -S_49058:; +S_55188:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(25066,13955,"ide_methods.bas");if(r)goto S_49058;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,13957,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13958,"ide_methods.bas");}while(r); +if(qbevent){evnt(26307,18327,"ide_methods.bas");if(r)goto S_55188;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS= 0 ; -if(!qbevent)break;evnt(25066,13959,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18329,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_LNKS,func_chr( 0 )); +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,FUNC_FINDHELPTOPIC(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS,&(pass6140= -1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13959,"ide_methods.bas");}while(r); -S_49063:; -while((!(func_eof(*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH)))||new_error){ -if(qbevent){evnt(25066,13960,"ide_methods.bas");if(r)goto S_49063;} -do{ -tmp_fileno=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH; -if (new_error) goto skip5564; -sub_file_line_input_string(tmp_fileno,_SUB_IDEMAKECONTEXTUALMENU_STRING_L); -if (new_error) goto skip5564; -skip5564: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13961,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_C=func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_L,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13962,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_L,*_SUB_IDEMAKECONTEXTUALMENU_LONG_C- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13962,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_L,_SUB_IDEMAKECONTEXTUALMENU_STRING_L->len-*_SUB_IDEMAKECONTEXTUALMENU_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13962,"ide_methods.bas");}while(r); -S_49068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_L1))))||new_error){ -if(qbevent){evnt(25066,13963,"ide_methods.bas");if(r)goto S_49068;} -S_49069:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_SUB_IDEMAKECONTEXTUALMENU_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,13964,"ide_methods.bas");if(r)goto S_49069;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS=*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS+ 1 ; -if(!qbevent)break;evnt(25066,13965,"ide_methods.bas");}while(r); -do{ -goto dl_exit_5563; -if(!qbevent)break;evnt(25066,13966,"ide_methods.bas");}while(r); -} -} -dl_continue_5563:; -} -dl_exit_5563:; -do{ -sub_close(*_SUB_IDEMAKECONTEXTUALMENU_LONG_FH,1); -if(!qbevent)break;evnt(25066,13970,"ide_methods.bas");}while(r); -S_49076:; +if(!qbevent)break;evnt(26307,18330,"ide_methods.bas");}while(r); +S_55191:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS)||new_error){ -if(qbevent){evnt(25066,13972,"ide_methods.bas");if(r)goto S_49076;} -S_49077:; +if(qbevent){evnt(26307,18332,"ide_methods.bas");if(r)goto S_55191;} +S_55192:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2->len> 15 )))||new_error){ -if(qbevent){evnt(25066,13973,"ide_methods.bas");if(r)goto S_49077;} +if(qbevent){evnt(26307,18333,"ide_methods.bas");if(r)goto S_55192;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2, 12 ),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13974,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18334,"ide_methods.bas");}while(r); } -S_49080:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_new_txt_len("Parenthesis",11),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,13976,"ide_methods.bas");if(r)goto S_49080;} +S_55195:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_new_txt_len("PARENTHESIS",11),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,18336,"ide_methods.bas");if(r)goto S_55195;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("#Help On '",10),_SUB_IDEMAKECONTEXTUALMENU_STRING_L2),qbs_new_txt_len("'",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13977,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18337,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13977,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18337,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Opens help article on the selected term",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18338,"ide_methods.bas");}while(r); } } } -S_49086:; +S_55202:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_I> 1 ))||new_error){ -if(qbevent){evnt(25066,13982,"ide_methods.bas");if(r)goto S_49086;} +if(qbevent){evnt(26307,18343,"ide_methods.bas");if(r)goto S_55202;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13983,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18344,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13983,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18344,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13987,"ide_methods.bas");}while(r); -S_49091:; +if(!qbevent)break;evnt(26307,18348,"ide_methods.bas");}while(r); +S_55207:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,13988,"ide_methods.bas");if(r)goto S_49091;} -S_49092:; +if(qbevent){evnt(26307,18349,"ide_methods.bas");if(r)goto S_55207;} +S_55208:; if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(25066,13989,"ide_methods.bas");if(r)goto S_49092;} +if(qbevent){evnt(26307,18350,"ide_methods.bas");if(r)goto S_55208;} do{ goto LABEL_NORGBFOUND; -if(!qbevent)break;evnt(25066,13989,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18350,"ide_methods.bas");}while(r); } } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB= 0 ; -if(!qbevent)break;evnt(25066,13992,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18353,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("_RGB(",5),0); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGB(",4),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18354,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("_RGB32(",7),0); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGB32(",6),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13994,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18355,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("_RGBA(",6),0); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGBA(",5),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13995,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18356,"ide_methods.bas");}while(r); do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("_RGBA32(",8),0); +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGBA32(",7),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13996,"ide_methods.bas");}while(r); -S_49101:; +if(!qbevent)break;evnt(26307,18357,"ide_methods.bas");}while(r); +S_55217:; if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB)||new_error){ -if(qbevent){evnt(25066,13997,"ide_methods.bas");if(r)goto S_49101;} +if(qbevent){evnt(26307,18358,"ide_methods.bas");if(r)goto S_55217;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Open _RGB Color Mi#xer",22)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#RGB Color Mixer...",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13998,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18359,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13998,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18359,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Allows mixing colors to edit/insert _RGB statements",51)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18360,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,13999,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18361,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,13999,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18361,"ide_methods.bas");}while(r); } LABEL_NORGBFOUND:; -if(qbevent){evnt(25066,14001,"ide_methods.bas");r=0;} -S_49107:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14004,"ide_methods.bas");if(r)goto S_49107;} +if(qbevent){evnt(26307,18363,"ide_methods.bas");r=0;} +S_55224:; +if (((-(*__LONG_IDESELECT!= 0 )))||new_error){ +if(qbevent){evnt(26307,18366,"ide_methods.bas");if(r)goto S_55224;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14004,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18367,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14004,"ide_methods.bas");}while(r); -} -S_49111:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14005,"ide_methods.bas");if(r)goto S_49111;} +if(!qbevent)break;evnt(26307,18367,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18368,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14005,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18369,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14005,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18369,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18370,"ide_methods.bas");}while(r); } do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14007,"ide_methods.bas");}while(r); -S_49116:; +if(!qbevent)break;evnt(26307,18373,"ide_methods.bas");}while(r); +S_55233:; if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(25066,14008,"ide_methods.bas");if(r)goto S_49116;} +if(qbevent){evnt(26307,18374,"ide_methods.bas");if(r)goto S_55233;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14008,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18375,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14008,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18375,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18376,"ide_methods.bas");}while(r); } -S_49120:; +S_55238:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14010,"ide_methods.bas");if(r)goto S_49120;} +if(qbevent){evnt(26307,18379,"ide_methods.bas");if(r)goto S_55238;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cl#ear Del",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14010,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18380,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14010,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18380,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18381,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14011,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18383,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14011,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18383,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current program",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18384,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14012,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18385,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14012,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18385,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle Comment Ctrl+T",22)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14013,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18386,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14013,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18386,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18387,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Comment (') Ctrl+R",23)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14014,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18388,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14014,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18388,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18389,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comment (') Ctrl+Shift+R",32)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14015,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18390,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14015,"ide_methods.bas");}while(r); -S_49134:; +if(!qbevent)break;evnt(26307,18390,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18391,"ide_methods.bas");}while(r); +S_55257:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14016,"ide_methods.bas");if(r)goto S_49134;} +if(qbevent){evnt(26307,18392,"ide_methods.bas");if(r)goto S_55257;} do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,14017,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18393,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,14018,"ide_methods.bas");}while(r); -S_49137:; +if(!qbevent)break;evnt(26307,18394,"ide_methods.bas");}while(r); +S_55260:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1==*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,14019,"ide_methods.bas");if(r)goto S_49137;} +if(qbevent){evnt(26307,18395,"ide_methods.bas");if(r)goto S_55260;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14020,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18396,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14021,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18397,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,14022,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18398,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,14022,"ide_methods.bas");}while(r); -S_49142:; +if(!qbevent)break;evnt(26307,18398,"ide_methods.bas");}while(r); +S_55265:; if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2<*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,14023,"ide_methods.bas");if(r)goto S_49142;} +if(qbevent){evnt(26307,18399,"ide_methods.bas");if(r)goto S_55265;} do{ swap_32(&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1,&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2); -if(!qbevent)break;evnt(25066,14023,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18399,"ide_methods.bas");}while(r); } -S_49145:; -fornext_value5569=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1; -fornext_finalvalue5569=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2- 1 ; -fornext_step5569= 1 ; -if (fornext_step5569<0) fornext_step_negative5569=1; else fornext_step_negative5569=0; -if (new_error) goto fornext_error5569; -goto fornext_entrylabel5569; +S_55268:; +fornext_value6144=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1; +fornext_finalvalue6144=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2- 1 ; +fornext_step6144= 1 ; +if (fornext_step6144<0) fornext_step_negative6144=1; else fornext_step_negative6144=0; +if (new_error) goto fornext_error6144; +goto fornext_entrylabel6144; while(1){ -fornext_value5569=fornext_step5569+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X); -fornext_entrylabel5569: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=fornext_value5569; -if (fornext_step_negative5569){ -if (fornext_value5569fornext_finalvalue5569) break; +if (fornext_value6144>fornext_finalvalue6144) break; } -fornext_error5569:; -if(qbevent){evnt(25066,14024,"ide_methods.bas");if(r)goto S_49145;} -S_49146:; +fornext_error6144:; +if(qbevent){evnt(26307,18400,"ide_methods.bas");if(r)goto S_55268;} +S_55269:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X<=_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,14025,"ide_methods.bas");if(r)goto S_49146;} +if(qbevent){evnt(26307,18401,"ide_methods.bas");if(r)goto S_55269;} do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14025,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18401,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14025,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18401,"ide_methods.bas");}while(r); } -fornext_continue_5568:; +fornext_continue_6143:; } -fornext_exit_5568:; -S_49152:; +fornext_exit_6143:; +S_55275:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,14027,"ide_methods.bas");if(r)goto S_49152;} +if(qbevent){evnt(26307,18403,"ide_methods.bas");if(r)goto S_55275;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Increase Indent TAB",20)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14028,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18404,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14028,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18404,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18405,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Decrease Indent",15)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14029,"ide_methods.bas");}while(r); -S_49156:; +if(!qbevent)break;evnt(26307,18406,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18407,"ide_methods.bas");}while(r); +S_55281:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(25066,14030,"ide_methods.bas");if(r)goto S_49156;} +if(qbevent){evnt(26307,18408,"ide_methods.bas");if(r)goto S_55281;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14030,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18408,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14031,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18409,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14032,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18410,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14032,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18410,"ide_methods.bas");}while(r); } }else{ do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Increase Indent TAB",20)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14035,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18413,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14035,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18413,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18414,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Decrease Indent",15)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14036,"ide_methods.bas");}while(r); -S_49167:; +if(!qbevent)break;evnt(26307,18415,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18416,"ide_methods.bas");}while(r); +S_55294:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(25066,14037,"ide_methods.bas");if(r)goto S_49167;} +if(qbevent){evnt(26307,18417,"ide_methods.bas");if(r)goto S_55294;} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14037,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18417,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14038,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18418,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18419,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14039,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18419,"ide_methods.bas");}while(r); } }else{ do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14042,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18422,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14042,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18422,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #SUB...",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18424,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14044,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18424,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18425,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #FUNCTION...",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14045,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18426,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14045,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18426,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18427,"ide_methods.bas");}while(r); +S_55311:; +}else{ +if (-(*__LONG_IDESYSTEM== 3 )){ +if(qbevent){evnt(26307,18428,"ide_methods.bas");if(r)goto S_55311;} +S_55312:; +if (((-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26307,18429,"ide_methods.bas");if(r)goto S_55312;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18430,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18430,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18431,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18433,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18433,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current article",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18434,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18435,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18435,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Contents Page",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18436,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18436,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help contents page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18437,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Keyword #Index",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18438,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18438,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keyword index page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18439,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Keywords by Usage",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18440,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18440,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keywords index by usage",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18441,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18442,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18442,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Update Current Page",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18443,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18443,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of this article from the wiki",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18444,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18445,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18445,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of all articles from the wiki",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18446,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View Current Page On #Wiki",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18447,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18447,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Launches the default browser and navigates to the current article on the wiki",77)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18448,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18449,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18449,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clo#se Help ESC",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18450,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18450,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Closes help window",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18451,"ide_methods.bas");}while(r); +} +} +} do{ tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,14046,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18454,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free197.txt" +#include "free213.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -173721,7 +192671,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data198.txt" +#include "data214.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -173729,372 +192679,675 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_IDEMAKEEDITMENU_LONG_M=*__INTEGER_IDEEDITMENUID; -if(!qbevent)break;evnt(25066,14050,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18458,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,14050,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18458,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Edit",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14051,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18459,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14051,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18459,"ide_methods.bas");}while(r); +S_55354:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26307,18461,"ide_methods.bas");if(r)goto S_55354;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Undo Ctrl+Z",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14053,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18462,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14053,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18462,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Restores program state before last edit",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18463,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Redo Ctrl+Y",13)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18464,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14054,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18464,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Redoes latest undo action",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18465,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Undo Ctrl+Z",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18467,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18467,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Restores program state before last edit",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18468,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Redo Ctrl+Y",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18469,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18469,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Redoes latest undo action",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18470,"ide_methods.bas");}while(r); +} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14055,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18472,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14055,"ide_methods.bas");}while(r); -S_49193:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14057,"ide_methods.bas");if(r)goto S_49193;} +if(!qbevent)break;evnt(26307,18472,"ide_methods.bas");}while(r); +S_55371:; +if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ +if(qbevent){evnt(26307,18474,"ide_methods.bas");if(r)goto S_55371;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14058,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18475,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14058,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18475,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18476,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14059,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18477,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14059,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18477,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18478,"ide_methods.bas");}while(r); +S_55378:; +}else{ +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))){ +if(qbevent){evnt(26307,18479,"ide_methods.bas");if(r)goto S_55378;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cu#t Shift+Del or Ctrl+X",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18480,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18480,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18481,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18482,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18482,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18483,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cu#t Shift+Del or Ctrl+X",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14061,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18485,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14061,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18485,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18486,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Copy Ctrl+Ins or Ctrl+C",26)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14062,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18487,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14062,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18487,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18488,"ide_methods.bas");}while(r); +} } do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_CLIP,func__clipboard()); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14065,"ide_methods.bas");}while(r); -S_49205:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEMAKEEDITMENU_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(25066,14066,"ide_methods.bas");if(r)goto S_49205;} +if(!qbevent)break;evnt(26307,18491,"ide_methods.bas");}while(r); +S_55394:; +if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDEMAKEEDITMENU_STRING_CLIP->len> 0 ))&(-(*__LONG_IDESYSTEM== 1 ))))|(-(*__LONG_IDESYSTEM== 2 ))))||new_error){ +if(qbevent){evnt(26307,18492,"ide_methods.bas");if(r)goto S_55394;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14067,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18493,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14067,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18493,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18494,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Paste Shift+Ins or Ctrl+V",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14069,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18496,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14069,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18496,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18497,"ide_methods.bas");}while(r); } -S_49212:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14072,"ide_methods.bas");if(r)goto S_49212;} +S_55403:; +if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ +if(qbevent){evnt(26307,18500,"ide_methods.bas");if(r)goto S_55403;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cl#ear Del",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18501,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14073,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18501,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18502,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cl#ear Del",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14075,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18504,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14075,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18504,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18505,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14078,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18508,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14078,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18508,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current program",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18509,"ide_methods.bas");}while(r); +S_55415:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26307,18511,"ide_methods.bas");if(r)goto S_55415;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14079,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18512,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14079,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18512,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle Comment Ctrl+T",22)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14080,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18513,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14080,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18513,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18514,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Comment (') Ctrl+R",23)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14081,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18515,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14081,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18515,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18516,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comment (') Ctrl+Shift+R",32)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14082,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18517,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14082,"ide_methods.bas");}while(r); -S_49229:; +if(!qbevent)break;evnt(26307,18517,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18518,"ide_methods.bas");}while(r); +S_55427:; if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(25066,14083,"ide_methods.bas");if(r)goto S_49229;} +if(qbevent){evnt(26307,18519,"ide_methods.bas");if(r)goto S_55427;} do{ *_SUB_IDEMAKEEDITMENU_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,14084,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18520,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(25066,14085,"ide_methods.bas");}while(r); -S_49232:; +if(!qbevent)break;evnt(26307,18521,"ide_methods.bas");}while(r); +S_55430:; if ((-(*_SUB_IDEMAKEEDITMENU_LONG_Y1==*_SUB_IDEMAKEEDITMENU_LONG_Y2))||new_error){ -if(qbevent){evnt(25066,14086,"ide_methods.bas");if(r)goto S_49232;} +if(qbevent){evnt(26307,18522,"ide_methods.bas");if(r)goto S_55430;} do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14087,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18523,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14088,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18524,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(25066,14089,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18525,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(25066,14089,"ide_methods.bas");}while(r); -S_49237:; +if(!qbevent)break;evnt(26307,18525,"ide_methods.bas");}while(r); +S_55435:; if ((-(*_SUB_IDEMAKEEDITMENU_LONG_SX2<*_SUB_IDEMAKEEDITMENU_LONG_SX1))||new_error){ -if(qbevent){evnt(25066,14090,"ide_methods.bas");if(r)goto S_49237;} +if(qbevent){evnt(26307,18526,"ide_methods.bas");if(r)goto S_55435;} do{ swap_32(&*_SUB_IDEMAKEEDITMENU_LONG_SX1,&*_SUB_IDEMAKEEDITMENU_LONG_SX2); -if(!qbevent)break;evnt(25066,14090,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18526,"ide_methods.bas");}while(r); } -S_49240:; -fornext_value5573=*_SUB_IDEMAKEEDITMENU_LONG_SX1; -fornext_finalvalue5573=*_SUB_IDEMAKEEDITMENU_LONG_SX2- 1 ; -fornext_step5573= 1 ; -if (fornext_step5573<0) fornext_step_negative5573=1; else fornext_step_negative5573=0; -if (new_error) goto fornext_error5573; -goto fornext_entrylabel5573; +S_55438:; +fornext_value6148=*_SUB_IDEMAKEEDITMENU_LONG_SX1; +fornext_finalvalue6148=*_SUB_IDEMAKEEDITMENU_LONG_SX2- 1 ; +fornext_step6148= 1 ; +if (fornext_step6148<0) fornext_step_negative6148=1; else fornext_step_negative6148=0; +if (new_error) goto fornext_error6148; +goto fornext_entrylabel6148; while(1){ -fornext_value5573=fornext_step5573+(*_SUB_IDEMAKEEDITMENU_LONG_X); -fornext_entrylabel5573: -*_SUB_IDEMAKEEDITMENU_LONG_X=fornext_value5573; -if (fornext_step_negative5573){ -if (fornext_value5573fornext_finalvalue5573) break; +if (fornext_value6148>fornext_finalvalue6148) break; } -fornext_error5573:; -if(qbevent){evnt(25066,14091,"ide_methods.bas");if(r)goto S_49240;} -S_49241:; +fornext_error6148:; +if(qbevent){evnt(26307,18527,"ide_methods.bas");if(r)goto S_55438;} +S_55439:; if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEEDITMENU_LONG_X<=_SUB_IDEMAKEEDITMENU_STRING_A->len)))||new_error){ -if(qbevent){evnt(25066,14092,"ide_methods.bas");if(r)goto S_49241;} +if(qbevent){evnt(26307,18528,"ide_methods.bas");if(r)goto S_55439;} do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,func_mid(_SUB_IDEMAKEEDITMENU_STRING_A,*_SUB_IDEMAKEEDITMENU_LONG_X, 1 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18528,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len(" ",1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14092,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18528,"ide_methods.bas");}while(r); } -fornext_continue_5572:; +fornext_continue_6147:; } -fornext_exit_5572:; -S_49247:; +fornext_exit_6147:; +S_55445:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,14094,"ide_methods.bas");if(r)goto S_49247;} +if(qbevent){evnt(26307,18530,"ide_methods.bas");if(r)goto S_55445;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Increase Indent TAB",21)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14095,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18531,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14095,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18531,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18532,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Decrease Indent",16)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14096,"ide_methods.bas");}while(r); -S_49251:; +if(!qbevent)break;evnt(26307,18533,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18534,"ide_methods.bas");}while(r); +S_55451:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(25066,14097,"ide_methods.bas");if(r)goto S_49251;} +if(qbevent){evnt(26307,18535,"ide_methods.bas");if(r)goto S_55451;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14097,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18535,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14098,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18536,"ide_methods.bas");}while(r); }else{ do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Increase Indent TAB",20)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14100,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18538,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14100,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18538,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18539,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Decrease Indent",15)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14101,"ide_methods.bas");}while(r); -S_49259:; +if(!qbevent)break;evnt(26307,18540,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18541,"ide_methods.bas");}while(r); +S_55461:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(25066,14102,"ide_methods.bas");if(r)goto S_49259;} +if(qbevent){evnt(26307,18542,"ide_methods.bas");if(r)goto S_55461;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14102,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18542,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14103,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18543,"ide_methods.bas");}while(r); } }else{ do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Increase Indent TAB",20)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18546,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14106,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18546,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18547,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Decrease Indent",15)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14107,"ide_methods.bas");}while(r); -S_49268:; +if(!qbevent)break;evnt(26307,18548,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18549,"ide_methods.bas");}while(r); +S_55472:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(25066,14108,"ide_methods.bas");if(r)goto S_49268;} +if(qbevent){evnt(26307,18550,"ide_methods.bas");if(r)goto S_55472;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14108,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18550,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14109,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18551,"ide_methods.bas");}while(r); } }else{ do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Increase Indent TAB",21)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14112,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18554,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14112,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18554,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18555,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Decrease Indent",16)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14113,"ide_methods.bas");}while(r); -S_49277:; +if(!qbevent)break;evnt(26307,18556,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18557,"ide_methods.bas");}while(r); +S_55483:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(25066,14114,"ide_methods.bas");if(r)goto S_49277;} +if(qbevent){evnt(26307,18558,"ide_methods.bas");if(r)goto S_55483;} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14114,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18558,"ide_methods.bas");}while(r); } do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14115,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18559,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14117,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18561,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14117,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18561,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #SUB...",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14118,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18562,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14118,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18562,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18563,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #FUNCTION...",16)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14119,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18564,"ide_methods.bas");}while(r); do{ *_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14119,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18564,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18565,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18567,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18567,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~To#ggle Comment Ctrl+T",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18568,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18568,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18569,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Add Co#mment (') Ctrl+R",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18570,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18570,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18571,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Remove Comme#nt (') Ctrl+Shift+R",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18572,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18572,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18573,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18574,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18574,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18575,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18576,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18577,"ide_methods.bas");}while(r); +S_55513:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26307,18578,"ide_methods.bas");if(r)goto S_55513;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18578,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18579,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18580,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18580,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~New #SUB...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18581,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18581,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18582,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~New #FUNCTION...",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18583,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18583,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18584,"ide_methods.bas");}while(r); +} do{ tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKEEDITMENU_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,14120,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18586,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free198.txt" +#include "free214.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -174105,64 +193358,132 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data199.txt" +#include "data215.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -qbs_set(_SUB_IDEADDRECENT_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDRECENT_STRING_F2),__STRING_CRLF)); +qbs_set(_SUB_IDEADDRECENT_STRING_F,_SUB_IDEADDRECENT_STRING_F2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14124,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18590,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_F,FUNC_REMOVEDOUBLESLASHES(_SUB_IDEADDRECENT_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18592,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDRECENT_STRING_F),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18594,"ide_methods.bas");}while(r); do{ *_SUB_IDEADDRECENT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,14125,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18595,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_SUB_IDEADDRECENT_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14126,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18596,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEADDRECENT_STRING_A,func_space(func_lof(*_SUB_IDEADDRECENT_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14126,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18596,"ide_methods.bas");}while(r); do{ sub_get2(*_SUB_IDEADDRECENT_LONG_FH,NULL,_SUB_IDEADDRECENT_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14126,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18596,"ide_methods.bas");}while(r); do{ *_SUB_IDEADDRECENT_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEADDRECENT_STRING_A),qbs_ucase(_SUB_IDEADDRECENT_STRING_F),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14127,"ide_methods.bas");}while(r); -S_49295:; +if(!qbevent)break;evnt(26307,18597,"ide_methods.bas");}while(r); +S_55535:; if ((*_SUB_IDEADDRECENT_LONG_X)||new_error){ -if(qbevent){evnt(25066,14128,"ide_methods.bas");if(r)goto S_49295;} +if(qbevent){evnt(26307,18598,"ide_methods.bas");if(r)goto S_55535;} do{ qbs_set(_SUB_IDEADDRECENT_STRING_A,qbs_add(qbs_add(_SUB_IDEADDRECENT_STRING_F,qbs_left(_SUB_IDEADDRECENT_STRING_A,*_SUB_IDEADDRECENT_LONG_X- 1 )),qbs_right(_SUB_IDEADDRECENT_STRING_A,_SUB_IDEADDRECENT_STRING_A->len-(*_SUB_IDEADDRECENT_LONG_X+_SUB_IDEADDRECENT_STRING_F->len- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14129,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18599,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEADDRECENT_STRING_A,qbs_add(_SUB_IDEADDRECENT_STRING_F,_SUB_IDEADDRECENT_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14131,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18601,"ide_methods.bas");}while(r); } do{ -sub_put2(*_SUB_IDEADDRECENT_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDRECENT_STRING_A->chr,_SUB_IDEADDRECENT_STRING_A->len,byte_element_5578),1); +sub_put2(*_SUB_IDEADDRECENT_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDRECENT_STRING_A->chr,_SUB_IDEADDRECENT_STRING_A->len,byte_element_6153),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14133,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18603,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDEADDRECENT_LONG_FH,1); -if(!qbevent)break;evnt(25066,14134,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18604,"ide_methods.bas");}while(r); do{ SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(25066,14135,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18605,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free199.txt" +#include "free215.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } +qbs* FUNC_REMOVEDOUBLESLASHES(qbs*_FUNC_REMOVEDOUBLESLASHES_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data216.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("//",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18609,"ide_methods.bas");}while(r); +S_55544:; +while((*_FUNC_REMOVEDOUBLESLASHES_LONG_X)||new_error){ +if(qbevent){evnt(26307,18610,"ide_methods.bas");if(r)goto S_55544;} +do{ +qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_add(qbs_left(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X- 1 ),func_mid(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18611,"ide_methods.bas");}while(r); +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("//",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18612,"ide_methods.bas");}while(r); +dl_continue_6155:; +} +dl_exit_6155:; +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("\\\\",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18615,"ide_methods.bas");}while(r); +S_55549:; +while((*_FUNC_REMOVEDOUBLESLASHES_LONG_X)||new_error){ +if(qbevent){evnt(26307,18616,"ide_methods.bas");if(r)goto S_55549;} +do{ +qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_add(qbs_left(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X- 1 ),func_mid(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18617,"ide_methods.bas");}while(r); +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("\\\\",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18618,"ide_methods.bas");}while(r); +dl_continue_6156:; +} +dl_exit_6156:; +do{ +qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES,_FUNC_REMOVEDOUBLESLASHES_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18621,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free216.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES);return _FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES; +} void SUB_IDEADDSEARCHED(qbs*_SUB_IDEADDSEARCHED_STRING_S2){ qbs *tqbs; ptrszint tmp_long; @@ -174170,7 +193491,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data200.txt" +#include "data217.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -174179,645 +193500,1913 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_SUB_IDEADDSEARCHED_STRING_S,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDSEARCHED_STRING_S2),__STRING_CRLF)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14139,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18625,"ide_methods.bas");}while(r); do{ *_SUB_IDEADDSEARCHED_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,14140,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18626,"ide_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_SUB_IDEADDSEARCHED_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14141,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18627,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_IDEADDSEARCHED_STRING_A,func_space(func_lof(*_SUB_IDEADDSEARCHED_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14141,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18627,"ide_methods.bas");}while(r); do{ sub_get2(*_SUB_IDEADDSEARCHED_LONG_FH,NULL,_SUB_IDEADDSEARCHED_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14141,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18627,"ide_methods.bas");}while(r); do{ *_SUB_IDEADDSEARCHED_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEADDSEARCHED_STRING_A),qbs_ucase(_SUB_IDEADDSEARCHED_STRING_S),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14142,"ide_methods.bas");}while(r); -S_49309:; +if(!qbevent)break;evnt(26307,18628,"ide_methods.bas");}while(r); +S_55560:; if ((*_SUB_IDEADDSEARCHED_LONG_X)||new_error){ -if(qbevent){evnt(25066,14143,"ide_methods.bas");if(r)goto S_49309;} +if(qbevent){evnt(26307,18629,"ide_methods.bas");if(r)goto S_55560;} do{ qbs_set(_SUB_IDEADDSEARCHED_STRING_A,qbs_add(qbs_add(_SUB_IDEADDSEARCHED_STRING_S,qbs_left(_SUB_IDEADDSEARCHED_STRING_A,*_SUB_IDEADDSEARCHED_LONG_X- 1 )),qbs_right(_SUB_IDEADDSEARCHED_STRING_A,_SUB_IDEADDSEARCHED_STRING_A->len-(*_SUB_IDEADDSEARCHED_LONG_X+_SUB_IDEADDSEARCHED_STRING_S->len- 1 )))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14144,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18630,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_SUB_IDEADDSEARCHED_STRING_A,qbs_add(_SUB_IDEADDSEARCHED_STRING_S,_SUB_IDEADDSEARCHED_STRING_A)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14146,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18632,"ide_methods.bas");}while(r); } do{ -sub_put2(*_SUB_IDEADDSEARCHED_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDSEARCHED_STRING_A->chr,_SUB_IDEADDSEARCHED_STRING_A->len,byte_element_5582),1); +sub_put2(*_SUB_IDEADDSEARCHED_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDSEARCHED_STRING_A->chr,_SUB_IDEADDSEARCHED_STRING_A->len,byte_element_6160),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14148,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18634,"ide_methods.bas");}while(r); do{ sub_close(*_SUB_IDEADDSEARCHED_LONG_FH,1); -if(!qbevent)break;evnt(25066,14149,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18635,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free200.txt" +#include "free217.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_IDEASCIIBOX(){ +void SUB_IDEUPDATEHELPBOX(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data201.txt" +#include "data218.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -*_SUB_IDEASCIIBOX_LONG_W=func__width(NULL,0); -if(!qbevent)break;evnt(25066,14155,"ide_methods.bas");}while(r); +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,18640,"ide_methods.bas");}while(r); do{ -*_SUB_IDEASCIIBOX_LONG_H=func__height(NULL,0); -if(!qbevent)break;evnt(25066,14155,"ide_methods.bas");}while(r); +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,18641,"ide_methods.bas");}while(r); do{ -*_SUB_IDEASCIIBOX_LONG_FONT=func__font(NULL,0); -if(!qbevent)break;evnt(25066,14156,"ide_methods.bas");}while(r); +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,18642,"ide_methods.bas");}while(r); do{ -*_SUB_IDEASCIIBOX_LONG_TEMP=func__newimage( 640 , 480 , 32 ,1); -if(!qbevent)break;evnt(25066,14157,"ide_methods.bas");}while(r); +*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,18643,"ide_methods.bas");}while(r); do{ -*_SUB_IDEASCIIBOX_LONG_TEMP1=func__newimage( 640 , 480 , 32 ,1); -if(!qbevent)break;evnt(25066,14158,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18644,"ide_methods.bas");}while(r); do{ -*_SUB_IDEASCIIBOX_LONG_WS=func__newimage( 640 , 480 , 32 ,1); -if(!qbevent)break;evnt(25066,14159,"ide_methods.bas");}while(r); + +if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4]= 1 ; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]=( 100 )-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4]+1; +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[6]=1; +if (_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&4){ +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]),0,_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]) error(257); +} +_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,18645,"ide_methods.bas");}while(r); do{ -qbg_screen(*_SUB_IDEASCIIBOX_LONG_TEMP,NULL,NULL,NULL,NULL,1); -if(!qbevent)break;evnt(25066,14160,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18646,"ide_methods.bas");}while(r); do{ -sub_cls(NULL,func__rgb( 0 , 0 , 170 ,NULL,0),2); -if(!qbevent)break;evnt(25066,14161,"ide_methods.bas");}while(r); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18647,"ide_methods.bas");}while(r); +S_55575:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26307,18651,"ide_methods.bas");if(r)goto S_55575;} do{ -qbg_sub_color(NULL,func__rgb( 0 , 0 , 170 ,NULL,0),NULL,2); -if(!qbevent)break;evnt(25066,14162,"ide_methods.bas");}while(r); -S_49325:; -fornext_value5584= 1 ; -fornext_finalvalue5584= 16 ; -fornext_step5584= 1 ; -if (fornext_step5584<0) fornext_step_negative5584=1; else fornext_step_negative5584=0; -if (new_error) goto fornext_error5584; -goto fornext_entrylabel5584; +*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26307,18652,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=*__LONG_IDEWY; +if(!qbevent)break;evnt(26307,18652,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26307,18653,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26307,18653,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26307,18654,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26307,18654,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26307,18654,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26307,18654,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26307,18654,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26307,18654,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW=*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW; +if(!qbevent)break;evnt(26307,18655,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*_SUB_IDEUPDATEHELPBOX_LONG_OLD_IDEWY; +if(!qbevent)break;evnt(26307,18655,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES= 2 ; +if(!qbevent)break;evnt(26307,18658,"ide_methods.bas");}while(r); +do{ + +if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ +error(10); +}else{ +if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +if (!error_occurred) error(10); +}else{ +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4]= 1 ; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]=( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4]+1; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[6]=1; +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)malloc(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]*8); +if (!_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]) error(257); +_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]|=1; +tmp_long=_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]; +if (_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&4){ +while(tmp_long--) ((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +} +if(!qbevent)break;evnt(26307,18659,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP= 1 ; +if(!qbevent)break;evnt(26307,18660,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,18662,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_W2=_SUB_IDEUPDATEHELPBOX_STRING_TITLESTR->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18663,"ide_methods.bas");}while(r); +S_55594:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_W<*_SUB_IDEUPDATEHELPBOX_LONG_W2))||new_error){ +if(qbevent){evnt(26307,18664,"ide_methods.bas");if(r)goto S_55594;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_W=*_SUB_IDEUPDATEHELPBOX_LONG_W2; +if(!qbevent)break;evnt(26307,18664,"ide_methods.bas");}while(r); +} +S_55597:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ +if(qbevent){evnt(26307,18665,"ide_methods.bas");if(r)goto S_55597;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_W=*__LONG_IDEWX- 4 ; +if(!qbevent)break;evnt(26307,18665,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_UDT_P)) + (0) ),&(pass6162= 60 ),&(pass6163= 6 ),qbs_new_txt_len("Update Help",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18666,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_I=*_SUB_IDEUPDATEHELPBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18668,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_BUTTONID=*_SUB_IDEUPDATEHELPBOX_LONG_I; +if(!qbevent)break;evnt(26307,18669,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,18670,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+24))= 6 ; +if(!qbevent)break;evnt(26307,18671,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#Cancel",7)); +if(!qbevent)break;evnt(26307,18672,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,18673,"ide_methods.bas");}while(r); +S_55607:; +fornext_value6165= 1 ; +fornext_finalvalue6165= 100 ; +fornext_step6165= 1 ; +if (fornext_step6165<0) fornext_step_negative6165=1; else fornext_step_negative6165=0; +if (new_error) goto fornext_error6165; +goto fornext_entrylabel6165; while(1){ -fornext_value5584=fornext_step5584+(*_SUB_IDEASCIIBOX_LONG_Y); -fornext_entrylabel5584: -*_SUB_IDEASCIIBOX_LONG_Y=fornext_value5584; -if (fornext_step_negative5584){ -if (fornext_value5584fornext_finalvalue5584) break; +if (fornext_value6165>fornext_finalvalue6165) break; } -fornext_error5584:; -if(qbevent){evnt(25066,14163,"ide_methods.bas");if(r)goto S_49325;} -S_49326:; -fornext_value5586= 1 ; -fornext_finalvalue5586= 16 ; -fornext_step5586= 1 ; -if (fornext_step5586<0) fornext_step_negative5586=1; else fornext_step_negative5586=0; -if (new_error) goto fornext_error5586; -goto fornext_entrylabel5586; +fornext_error6165:; +if(qbevent){evnt(26307,18677,"ide_methods.bas");if(r)goto S_55607;} +do{ +memcpy(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,18677,"ide_methods.bas");}while(r); +fornext_continue_6164:; +} +fornext_exit_6164:; +S_55610:; +do{ +if(qbevent){evnt(26307,18680,"ide_methods.bas");if(r)goto S_55610;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,18684,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,18685,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,18685,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,18685,"ide_methods.bas");}while(r); +S_55615:; +fornext_value6168= 1 ; +fornext_finalvalue6168= 100 ; +fornext_step6168= 1 ; +if (fornext_step6168<0) fornext_step_negative6168=1; else fornext_step_negative6168=0; +if (new_error) goto fornext_error6168; +goto fornext_entrylabel6168; while(1){ -fornext_value5586=fornext_step5586+(*_SUB_IDEASCIIBOX_LONG_X); -fornext_entrylabel5586: -*_SUB_IDEASCIIBOX_LONG_X=fornext_value5586; -if (fornext_step_negative5586){ -if (fornext_value5586fornext_finalvalue5586) break; +if (fornext_value6168>fornext_finalvalue6168) break; } -fornext_error5586:; -if(qbevent){evnt(25066,14164,"ide_methods.bas");if(r)goto S_49326;} +fornext_error6168:; +if(qbevent){evnt(26307,18686,"ide_methods.bas");if(r)goto S_55615;} +S_55616:; +if ((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,18687,"ide_methods.bas");if(r)goto S_55616;} do{ -sub_line(*_SUB_IDEASCIIBOX_LONG_X* 40 , 0 ,*_SUB_IDEASCIIBOX_LONG_X* 40 , 480 ,func__rgb32( 255 , 255 , 0 ),NULL,NULL,9); -if(!qbevent)break;evnt(25066,14165,"ide_methods.bas");}while(r); +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+60))=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS-*_SUB_IDEUPDATEHELPBOX_LONG_F; +if(!qbevent)break;evnt(26307,18690,"ide_methods.bas");}while(r); do{ -sub_line( 0 ,*_SUB_IDEASCIIBOX_LONG_Y* 30 , 640 ,*_SUB_IDEASCIIBOX_LONG_Y* 30 ,func__rgb32( 255 , 255 , 0 ),NULL,NULL,9); -if(!qbevent)break;evnt(25066,14166,"ide_methods.bas");}while(r); -S_49329:; -if ((*_SUB_IDEASCIIBOX_LONG_COUNTER)||new_error){ -if(qbevent){evnt(25066,14167,"ide_methods.bas");if(r)goto S_49329;} +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,18691,"ide_methods.bas");}while(r); do{ -sub__printstring((*_SUB_IDEASCIIBOX_LONG_X* 40 )-( 28 ),(*_SUB_IDEASCIIBOX_LONG_Y* 30 )-( 23 ),func_chr(*_SUB_IDEASCIIBOX_LONG_COUNTER),NULL,0); +*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,18691,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89) ),_SUB_IDEUPDATEHELPBOX_LONG_F); +if(!qbevent)break;evnt(26307,18692,"ide_methods.bas");}while(r); +S_55621:; +if ((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,18693,"ide_methods.bas");if(r)goto S_55621;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_CX=*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,18693,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_CY=*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,18693,"ide_methods.bas");}while(r); +} +} +fornext_continue_6167:; +} +fornext_exit_6167:; +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_LASTFOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,18696,"ide_methods.bas");}while(r); +S_55628:; +if(qbevent){evnt(26307,18701,"ide_methods.bas");if(r)goto S_55628;} +S_55629:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ +if(qbevent){evnt(26307,18702,"ide_methods.bas");if(r)goto S_55629;} +do{ +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Generating list of cached content...",36)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14167,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18703,"ide_methods.bas");}while(r); +sc_ec_401_end:; +goto sc_6169_end; } +S_55631:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ +if(qbevent){evnt(26307,18704,"ide_methods.bas");if(r)goto S_55631;} do{ -*_SUB_IDEASCIIBOX_LONG_COUNTER=*_SUB_IDEASCIIBOX_LONG_COUNTER+ 1 ; -if(!qbevent)break;evnt(25066,14168,"ide_methods.bas");}while(r); -fornext_continue_5585:; +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Adding core help pages to list...",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18705,"ide_methods.bas");}while(r); +sc_ec_402_end:; +goto sc_6169_end; } -fornext_exit_5585:; -fornext_continue_5583:; +S_55633:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ +if(qbevent){evnt(26307,18706,"ide_methods.bas");if(r)goto S_55633;} +do{ +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Regenerating keyword list...",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18707,"ide_methods.bas");}while(r); +sc_ec_403_end:; +goto sc_6169_end; } -fornext_exit_5583:; +S_55635:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ +if(qbevent){evnt(26307,18708,"ide_methods.bas");if(r)goto S_55635;} do{ -sub__dest(*_SUB_IDEASCIIBOX_LONG_TEMP1); -if(!qbevent)break;evnt(25066,14172,"ide_methods.bas");}while(r); +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Building download queue...",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18709,"ide_methods.bas");}while(r); +sc_ec_404_end:; +goto sc_6169_end; +} +S_55637:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ +if(qbevent){evnt(26307,18710,"ide_methods.bas");if(r)goto S_55637;} do{ -sub_cls(NULL,func__rgb( 0 , 0 , 170 ,NULL,0),2); -if(!qbevent)break;evnt(25066,14173,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(NULL,func__rgb( 0 , 0 , 170 ,NULL,0),NULL,2); -if(!qbevent)break;evnt(25066,14174,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_COUNTER= 0 ; -if(!qbevent)break;evnt(25066,14175,"ide_methods.bas");}while(r); -S_49339:; -fornext_value5588= 1 ; -fornext_finalvalue5588= 16 ; -fornext_step5588= 1 ; -if (fornext_step5588<0) fornext_step_negative5588=1; else fornext_step_negative5588=0; -if (new_error) goto fornext_error5588; -goto fornext_entrylabel5588; +tmp_long=array_check(( 1 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Updating help content file ",27),FUNC_STR2(_SUB_IDEUPDATEHELPBOX_LONG_N)),qbs_new_txt_len("/",1)),FUNC_STR2(_SUB_IDEUPDATEHELPBOX_LONG_C)),qbs_new_txt_len("...",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18711,"ide_methods.bas");}while(r); +sc_ec_405_end:; +goto sc_6169_end; +} +sc_6169_end:; +S_55640:; +fornext_value6171= 1 ; +fornext_finalvalue6171=*_SUB_IDEUPDATEHELPBOX_LONG_MESSAGELINES; +fornext_step6171= 1 ; +if (fornext_step6171<0) fornext_step_negative6171=1; else fornext_step_negative6171=0; +if (new_error) goto fornext_error6171; +goto fornext_entrylabel6171; while(1){ -fornext_value5588=fornext_step5588+(*_SUB_IDEASCIIBOX_LONG_Y); -fornext_entrylabel5588: -*_SUB_IDEASCIIBOX_LONG_Y=fornext_value5588; -if (fornext_step_negative5588){ -if (fornext_value5588fornext_finalvalue5588) break; +if (fornext_value6171>fornext_finalvalue6171) break; } -fornext_error5588:; -if(qbevent){evnt(25066,14176,"ide_methods.bas");if(r)goto S_49339;} -S_49340:; -fornext_value5590= 1 ; -fornext_finalvalue5590= 16 ; -fornext_step5590= 1 ; -if (fornext_step5590<0) fornext_step_negative5590=1; else fornext_step_negative5590=0; -if (new_error) goto fornext_error5590; -goto fornext_entrylabel5590; +fornext_error6171:; +if(qbevent){evnt(26307,18714,"ide_methods.bas");if(r)goto S_55640;} +S_55641:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26307,18715,"ide_methods.bas");if(r)goto S_55641;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,18715,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,18715,"ide_methods.bas");}while(r); +} +S_55646:; +if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))- 2 ))))||new_error){ +if(qbevent){evnt(26307,18716,"ide_methods.bas");if(r)goto S_55646;} +do{ +tmp_long=array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18717,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(4))+ 1 +*_SUB_IDEUPDATEHELPBOX_LONG_I,((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18719,"ide_methods.bas");}while(r); +fornext_continue_6170:; +} +fornext_exit_6170:; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,18722,"ide_methods.bas");}while(r); +S_55652:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 5 ))||new_error){ +if(qbevent){evnt(26307,18723,"ide_methods.bas");if(r)goto S_55652;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH= 52 ; +if(!qbevent)break;evnt(26307,18724,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGE=qbr(floor(*_SUB_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_SUB_IDEUPDATEHELPBOX_LONG_C))* 100 )); +if(!qbevent)break;evnt(26307,18725,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS=qbr(floor(*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH**_SUB_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_SUB_IDEUPDATEHELPBOX_LONG_C)))); +if(!qbevent)break;evnt(26307,18726,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH-*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_SUB_IDEUPDATEHELPBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18728,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18729,"ide_methods.bas");}while(r); +S_55658:; +}else{ +if (-(*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 6 )){ +if(qbevent){evnt(26307,18730,"ide_methods.bas");if(r)goto S_55658;} +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(func_string(*_SUB_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18731,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_SUB_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18732,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,18737,"ide_methods.bas");}while(r); +S_55663:; +if ((*_SUB_IDEUPDATEHELPBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,18738,"ide_methods.bas");if(r)goto S_55663;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,18738,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_IDEUPDATEHELPBOX_LONG_CY,*_SUB_IDEUPDATEHELPBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,18738,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,18738,"ide_methods.bas");}while(r); +} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,18741,"ide_methods.bas");}while(r); +S_55669:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,18742,"ide_methods.bas");if(r)goto S_55669;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,18742,"ide_methods.bas");}while(r); +} +S_55672:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,18743,"ide_methods.bas");if(r)goto S_55672;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,18743,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,18744,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_OLDALT=*_SUB_IDEUPDATEHELPBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,18745,"ide_methods.bas");}while(r); +S_55677:; +if ((*_SUB_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,18747,"ide_methods.bas");if(r)goto S_55677;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,18747,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,18747,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18749,"ide_methods.bas");}while(r); +S_55683:; +if ((*_SUB_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,18750,"ide_methods.bas");if(r)goto S_55683;} +S_55684:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,18751,"ide_methods.bas");if(r)goto S_55684;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18752,"ide_methods.bas");}while(r); +S_55686:; +if (((-(*_SUB_IDEUPDATEHELPBOX_LONG_K>= 65 ))&(-(*_SUB_IDEUPDATEHELPBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,18753,"ide_methods.bas");if(r)goto S_55686;} +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,func_chr(*_SUB_IDEUPDATEHELPBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18753,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,18756,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,18756,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,18756,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,18760,"ide_methods.bas");}while(r); +S_55695:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26307,18762,"ide_methods.bas");if(r)goto S_55695;} +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18762,"ide_methods.bas");}while(r); +} +S_55698:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,18764,"ide_methods.bas");if(r)goto S_55698;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18764,"ide_methods.bas");}while(r); +} +S_55701:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,18765,"ide_methods.bas");if(r)goto S_55701;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,18765,"ide_methods.bas");}while(r); +} +S_55704:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,18766,"ide_methods.bas");if(r)goto S_55704;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,18766,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18766,"ide_methods.bas");}while(r); +} +S_55708:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,18767,"ide_methods.bas");if(r)goto S_55708;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS=*_SUB_IDEUPDATEHELPBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,18767,"ide_methods.bas");}while(r); +} +S_55711:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS>*_SUB_IDEUPDATEHELPBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,18768,"ide_methods.bas");if(r)goto S_55711;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,18768,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,18769,"ide_methods.bas");}while(r); +S_55715:; +fornext_value6178= 1 ; +fornext_finalvalue6178= 100 ; +fornext_step6178= 1 ; +if (fornext_step6178<0) fornext_step_negative6178=1; else fornext_step_negative6178=0; +if (new_error) goto fornext_error6178; +goto fornext_entrylabel6178; while(1){ -fornext_value5590=fornext_step5590+(*_SUB_IDEASCIIBOX_LONG_X); -fornext_entrylabel5590: -*_SUB_IDEASCIIBOX_LONG_X=fornext_value5590; -if (fornext_step_negative5590){ -if (fornext_value5590fornext_finalvalue5590) break; +if (fornext_value6178>fornext_finalvalue6178) break; } -fornext_error5590:; -if(qbevent){evnt(25066,14177,"ide_methods.bas");if(r)goto S_49340;} +fornext_error6178:; +if(qbevent){evnt(26307,18770,"ide_methods.bas");if(r)goto S_55715;} do{ -sub_line(*_SUB_IDEASCIIBOX_LONG_X* 40 , 0 ,*_SUB_IDEASCIIBOX_LONG_X* 40 , 480 ,func__rgb32( 255 , 255 , 0 ),NULL,NULL,9); -if(!qbevent)break;evnt(25066,14178,"ide_methods.bas");}while(r); +*_SUB_IDEUPDATEHELPBOX_LONG_T=*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,18771,"ide_methods.bas");}while(r); +S_55717:; +if ((*_SUB_IDEUPDATEHELPBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,18772,"ide_methods.bas");if(r)goto S_55717;} do{ -sub_line( 0 ,*_SUB_IDEASCIIBOX_LONG_Y* 30 , 640 ,*_SUB_IDEASCIIBOX_LONG_Y* 30 ,func__rgb32( 255 , 255 , 0 ),NULL,NULL,9); -if(!qbevent)break;evnt(25066,14179,"ide_methods.bas");}while(r); +*_SUB_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET=*_SUB_IDEUPDATEHELPBOX_LONG_FOCUS-*_SUB_IDEUPDATEHELPBOX_LONG_F; +if(!qbevent)break;evnt(26307,18773,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_TEXT,qbs_ltrim(qbs_str((int32)(*_SUB_IDEASCIIBOX_LONG_COUNTER)))); +SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_I)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89) ),_SUB_IDEUPDATEHELPBOX_LONG_FOCUS,_SUB_IDEUPDATEHELPBOX_LONG_F,_SUB_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET,__STRING_K,_SUB_IDEUPDATEHELPBOX_STRING_ALTLETTER,__LONG_MB,_SUB_IDEUPDATEHELPBOX_LONG_MOUSEDOWN,_SUB_IDEUPDATEHELPBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_IDEUPDATEHELPBOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14180,"ide_methods.bas");}while(r); -S_49344:; -if ((*_SUB_IDEASCIIBOX_LONG_COUNTER)||new_error){ -if(qbevent){evnt(25066,14181,"ide_methods.bas");if(r)goto S_49344;} +if(!qbevent)break;evnt(26307,18774,"ide_methods.bas");}while(r); +} +fornext_continue_6177:; +} +fornext_exit_6177:; +S_55722:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_SUB_IDEUPDATEHELPBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26307,18780,"ide_methods.bas");if(r)goto S_55722;} +S_55723:; +if ((-(*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP< 6 ))||new_error){ +if(qbevent){evnt(26307,18781,"ide_methods.bas");if(r)goto S_55723;} do{ -sub__printstring((*_SUB_IDEASCIIBOX_LONG_X* 40 )-( 24 )-((_SUB_IDEASCIIBOX_STRING_TEXT->len)* 4 ),(*_SUB_IDEASCIIBOX_LONG_Y* 30 )-( 23 ),_SUB_IDEASCIIBOX_STRING_TEXT,NULL,0); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("",0),qbs_new_txt_len("Cancel download?",16))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14181,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEASCIIBOX_LONG_COUNTER=*_SUB_IDEASCIIBOX_LONG_COUNTER+ 1 ; -if(!qbevent)break;evnt(25066,14182,"ide_methods.bas");}while(r); -fornext_continue_5589:; -} -fornext_exit_5589:; -fornext_continue_5587:; -} -fornext_exit_5587:; -do{ -sub__dest(*_SUB_IDEASCIIBOX_LONG_TEMP); -if(!qbevent)break;evnt(25066,14185,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,14187,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_Y= 1 ; -if(!qbevent)break;evnt(25066,14187,"ide_methods.bas");}while(r); -do{ -sub__putimage(NULL,NULL,NULL,NULL,*_SUB_IDEASCIIBOX_LONG_TEMP,*_SUB_IDEASCIIBOX_LONG_WS,NULL,NULL,NULL,NULL,40); -if(!qbevent)break;evnt(25066,14188,"ide_methods.bas");}while(r); -S_49354:; -do{ -if(qbevent){evnt(25066,14189,"ide_methods.bas");if(r)goto S_49354;} -S_49355:; -dl_continue_5592:; -}while((func__mouseinput(NULL,0))&&(!new_error)); -dl_exit_5592:; -if(qbevent){evnt(25066,14189,"ide_methods.bas");if(r)goto S_49355;} -do{ -*_SUB_IDEASCIIBOX_LONG_OLDMOUSEX=qbr(func__mousex(NULL,0)); -if(!qbevent)break;evnt(25066,14190,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_OLDMOUSEY=qbr(func__mousey(NULL,0)); -if(!qbevent)break;evnt(25066,14190,"ide_methods.bas");}while(r); -S_49358:; -do{ -if(qbevent){evnt(25066,14192,"ide_methods.bas");if(r)goto S_49358;} -do{ -sub__limit( 60 ); -if(!qbevent)break;evnt(25066,14193,"ide_methods.bas");}while(r); -S_49360:; -do{ -if(qbevent){evnt(25066,14194,"ide_methods.bas");if(r)goto S_49360;} -S_49361:; -dl_continue_5594:; -}while((func__mouseinput(NULL,0))&&(!new_error)); -dl_exit_5594:; -if(qbevent){evnt(25066,14194,"ide_methods.bas");if(r)goto S_49361;} -S_49362:; -if (((-(*_SUB_IDEASCIIBOX_LONG_OLDX!=func__mousex(NULL,0)))&(-(*_SUB_IDEASCIIBOX_LONG_OLDY!=func__mousey(NULL,0))))||new_error){ -if(qbevent){evnt(25066,14195,"ide_methods.bas");if(r)goto S_49362;} -do{ -*_SUB_IDEASCIIBOX_LONG_X=(qbr(func__mousex(NULL,0))/ 40 )+( 1 ); -if(!qbevent)break;evnt(25066,14196,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_Y=(qbr(func__mousey(NULL,0))/ 30 )+( 1 ); -if(!qbevent)break;evnt(25066,14197,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEASCIIBOX_LONG_OLDX=qbr(func__mousex(NULL,0)); -if(!qbevent)break;evnt(25066,14199,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_OLDY=qbr(func__mousey(NULL,0)); -if(!qbevent)break;evnt(25066,14199,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_NUM=((*_SUB_IDEASCIIBOX_LONG_Y- 1 )* 16 )+*_SUB_IDEASCIIBOX_LONG_X-( 1 ); -if(!qbevent)break;evnt(25066,14201,"ide_methods.bas");}while(r); -S_49369:; -if ((-(*_SUB_IDEASCIIBOX_LONG_NUM== 0 ))||new_error){ -if(qbevent){evnt(25066,14202,"ide_methods.bas");if(r)goto S_49369;} -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_TEXT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14203,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18781,"ide_methods.bas");}while(r); }else{ do{ -*_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER=*_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER+ 1 ; -if(!qbevent)break;evnt(25066,14205,"ide_methods.bas");}while(r); -S_49373:; -if ((-(*_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER> 30 ))||new_error){ -if(qbevent){evnt(25066,14206,"ide_methods.bas");if(r)goto S_49373;} -do{ -qbg_sub_color(func__rgb32( 255 , 255 , 255 ),func__rgb( 0 , 0 , 170 ,NULL,0),NULL,3); -if(!qbevent)break;evnt(25066,14207,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_TEXT,func_chr(*_SUB_IDEASCIIBOX_LONG_NUM)); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14208,"ide_methods.bas");}while(r); -S_49376:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEASCIIBOX_STRING_TEXT->len== 1 )))||new_error){ -if(qbevent){evnt(25066,14209,"ide_methods.bas");if(r)goto S_49376;} -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_TEXT,qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_IDEASCIIBOX_STRING_TEXT),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14209,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbg_sub_color(func__rgb32( 255 , 255 , 255 ),func__rgb( 0 , 0 , 170 ,NULL,0),NULL,3); -if(!qbevent)break;evnt(25066,14211,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_TEXT,qbs_rtrim(qbs_ltrim(qbs_str((int32)(*_SUB_IDEASCIIBOX_LONG_NUM))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14212,"ide_methods.bas");}while(r); -} -} -S_49384:; -if ((-(*_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER== 60 ))||new_error){ -if(qbevent){evnt(25066,14215,"ide_methods.bas");if(r)goto S_49384;} -do{ -*_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER= 1 ; -if(!qbevent)break;evnt(25066,14215,"ide_methods.bas");}while(r); -} -do{ -sub_cls(NULL,NULL,0); -if(!qbevent)break;evnt(25066,14216,"ide_methods.bas");}while(r); -S_49388:; -if ((*_SUB_IDEASCIIBOX_LONG_TOGGLE)||new_error){ -if(qbevent){evnt(25066,14217,"ide_methods.bas");if(r)goto S_49388;} -do{ -sub__putimage(NULL,NULL,NULL,NULL,*_SUB_IDEASCIIBOX_LONG_TEMP1,*_SUB_IDEASCIIBOX_LONG_TEMP,NULL,NULL,NULL,NULL,40); -if(!qbevent)break;evnt(25066,14217,"ide_methods.bas");}while(r); -}else{ -do{ -sub__putimage(NULL,NULL,NULL,NULL,*_SUB_IDEASCIIBOX_LONG_WS,*_SUB_IDEASCIIBOX_LONG_TEMP,NULL,NULL,NULL,NULL,40); -if(!qbevent)break;evnt(25066,14217,"ide_methods.bas");}while(r); -} -do{ -sub__printstring((*_SUB_IDEASCIIBOX_LONG_X* 40 )-( 24 )-((_SUB_IDEASCIIBOX_STRING_TEXT->len)* 4 ),(*_SUB_IDEASCIIBOX_LONG_Y* 30 )-( 23 ),_SUB_IDEASCIIBOX_STRING_TEXT,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14218,"ide_methods.bas");}while(r); -do{ -sub_line((*_SUB_IDEASCIIBOX_LONG_X* 40 )-( 40 ),(*_SUB_IDEASCIIBOX_LONG_Y* 30 )-( 30 ),*_SUB_IDEASCIIBOX_LONG_X* 40 ,*_SUB_IDEASCIIBOX_LONG_Y* 30 ,func__rgba32( 255 , 255 , 255 , 150 ), 2 ,NULL,9); -if(!qbevent)break;evnt(25066,14219,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_K1=func__keyhit(); -if(!qbevent)break;evnt(25066,14221,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_MOUSECLICK= 0 ; -if(!qbevent)break;evnt(25066,14222,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_MOUSEEXIT= 0 ; -if(!qbevent)break;evnt(25066,14222,"ide_methods.bas");}while(r); -S_49398:; -if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(25066,14223,"ide_methods.bas");if(r)goto S_49398;} -do{ -*_SUB_IDEASCIIBOX_LONG_MOUSECLICK=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(25066,14224,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_MOUSEEXIT=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(25066,14224,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDEASCIIBOX_LONG_MOUSECLICK=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(25066,14226,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_MOUSEEXIT=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(25066,14226,"ide_methods.bas");}while(r); -} -S_49405:; -if(qbevent){evnt(25066,14228,"ide_methods.bas");if(r)goto S_49405;} -S_49406:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 13 )))||new_error){ -if(qbevent){evnt(25066,14229,"ide_methods.bas");if(r)goto S_49406;} -do{ -goto dl_exit_5593; -if(!qbevent)break;evnt(25066,14229,"ide_methods.bas");}while(r); -goto sc_5597_end; -} -S_49408:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 27 )))||new_error){ -if(qbevent){evnt(25066,14230,"ide_methods.bas");if(r)goto S_49408;} -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(25066,14231,"ide_methods.bas");}while(r); -do{ -qbg_screen( 0 ,NULL,NULL,NULL,NULL,1); -if(!qbevent)break;evnt(25066,14232,"ide_methods.bas");}while(r); -do{ -qbsub_width(NULL,*_SUB_IDEASCIIBOX_LONG_W,*_SUB_IDEASCIIBOX_LONG_H,3); -if(!qbevent)break;evnt(25066,14232,"ide_methods.bas");}while(r); -do{ -sub__font(*_SUB_IDEASCIIBOX_LONG_FONT,NULL,0); -if(!qbevent)break;evnt(25066,14232,"ide_methods.bas");}while(r); -do{ -sub__dest( 0 ); -if(!qbevent)break;evnt(25066,14232,"ide_methods.bas");}while(r); -do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,14232,"ide_methods.bas");}while(r); -S_49415:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,14233,"ide_methods.bas");if(r)goto S_49415;} -do{ -*_SUB_IDEASCIIBOX_LONG_DONOTHING=*_SUB_IDEASCIIBOX_LONG_ATALL; -if(!qbevent)break;evnt(25066,14233,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18781,"ide_methods.bas");}while(r); } +S_55728:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26307,18782,"ide_methods.bas");if(r)goto S_55728;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,14234,"ide_methods.bas");}while(r); -goto sc_5597_end; +if(!qbevent)break;evnt(26307,18782,"ide_methods.bas");}while(r); } -S_49419:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 32 )))||new_error){ -if(qbevent){evnt(25066,14235,"ide_methods.bas");if(r)goto S_49419;} -do{ -*_SUB_IDEASCIIBOX_LONG_TOGGLE=~(*_SUB_IDEASCIIBOX_LONG_TOGGLE); -if(!qbevent)break;evnt(25066,14235,"ide_methods.bas");}while(r); -goto sc_5597_end; } -S_49421:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 18432 )))||new_error){ -if(qbevent){evnt(25066,14236,"ide_methods.bas");if(r)goto S_49421;} +S_55732:; +if(qbevent){evnt(26307,18787,"ide_methods.bas");if(r)goto S_55732;} +S_55733:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ +if(qbevent){evnt(26307,18788,"ide_methods.bas");if(r)goto S_55733;} do{ -*_SUB_IDEASCIIBOX_LONG_Y=*_SUB_IDEASCIIBOX_LONG_Y- 1 ; -if(!qbevent)break;evnt(25066,14236,"ide_methods.bas");}while(r); -goto sc_5597_end; -} -S_49423:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 19200 )))||new_error){ -if(qbevent){evnt(25066,14237,"ide_methods.bas");if(r)goto S_49423;} -do{ -*_SUB_IDEASCIIBOX_LONG_X=*_SUB_IDEASCIIBOX_LONG_X- 1 ; -if(!qbevent)break;evnt(25066,14237,"ide_methods.bas");}while(r); -goto sc_5597_end; -} -S_49425:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 20480 )))||new_error){ -if(qbevent){evnt(25066,14238,"ide_methods.bas");if(r)goto S_49425;} -do{ -*_SUB_IDEASCIIBOX_LONG_Y=*_SUB_IDEASCIIBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(25066,14238,"ide_methods.bas");}while(r); -goto sc_5597_end; -} -S_49427:; -if (((*_SUB_IDEASCIIBOX_LONG_K1==( 19712 )))||new_error){ -if(qbevent){evnt(25066,14239,"ide_methods.bas");if(r)goto S_49427;} -do{ -*_SUB_IDEASCIIBOX_LONG_X=*_SUB_IDEASCIIBOX_LONG_X+ 1 ; -if(!qbevent)break;evnt(25066,14239,"ide_methods.bas");}while(r); -goto sc_5597_end; -} -sc_5597_end:; -S_49430:; -if ((-(*_SUB_IDEASCIIBOX_LONG_X< 1 ))||new_error){ -if(qbevent){evnt(25066,14242,"ide_methods.bas");if(r)goto S_49430;} -do{ -*_SUB_IDEASCIIBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(25066,14242,"ide_methods.bas");}while(r); -} -S_49433:; -if ((-(*_SUB_IDEASCIIBOX_LONG_X> 16 ))||new_error){ -if(qbevent){evnt(25066,14243,"ide_methods.bas");if(r)goto S_49433;} -do{ -*_SUB_IDEASCIIBOX_LONG_X= 16 ; -if(!qbevent)break;evnt(25066,14243,"ide_methods.bas");}while(r); -} -S_49436:; -if ((-(*_SUB_IDEASCIIBOX_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(25066,14244,"ide_methods.bas");if(r)goto S_49436;} -do{ -*_SUB_IDEASCIIBOX_LONG_Y= 1 ; -if(!qbevent)break;evnt(25066,14244,"ide_methods.bas");}while(r); -} -S_49439:; -if ((-(*_SUB_IDEASCIIBOX_LONG_Y> 16 ))||new_error){ -if(qbevent){evnt(25066,14245,"ide_methods.bas");if(r)goto S_49439;} -do{ -*_SUB_IDEASCIIBOX_LONG_Y= 16 ; -if(!qbevent)break;evnt(25066,14245,"ide_methods.bas");}while(r); -} -do{ -sub__display(); -if(!qbevent)break;evnt(25066,14246,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_EX=func__exit(); -if(!qbevent)break;evnt(25066,14247,"ide_methods.bas");}while(r); -S_49444:; -if ((*_SUB_IDEASCIIBOX_LONG_EX)||new_error){ -if(qbevent){evnt(25066,14248,"ide_methods.bas");if(r)goto S_49444;} -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(25066,14249,"ide_methods.bas");}while(r); -do{ -qbg_screen( 0 ,NULL,NULL,NULL,NULL,1); -if(!qbevent)break;evnt(25066,14250,"ide_methods.bas");}while(r); -do{ -qbsub_width(NULL,*_SUB_IDEASCIIBOX_LONG_W,*_SUB_IDEASCIIBOX_LONG_H,3); -if(!qbevent)break;evnt(25066,14250,"ide_methods.bas");}while(r); -do{ -sub__font(*_SUB_IDEASCIIBOX_LONG_FONT,NULL,0); -if(!qbevent)break;evnt(25066,14250,"ide_methods.bas");}while(r); -do{ -sub__dest( 0 ); -if(!qbevent)break;evnt(25066,14250,"ide_methods.bas");}while(r); -do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,14250,"ide_methods.bas");}while(r); -S_49451:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,14251,"ide_methods.bas");if(r)goto S_49451;} -do{ -*_SUB_IDEASCIIBOX_LONG_DONOTHING=*_SUB_IDEASCIIBOX_LONG_ATALL; -if(!qbevent)break;evnt(25066,14251,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,14252,"ide_methods.bas");}while(r); -} -S_49456:; -if ((*_SUB_IDEASCIIBOX_LONG_MOUSEEXIT)||new_error){ -if(qbevent){evnt(25066,14254,"ide_methods.bas");if(r)goto S_49456;} -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(25066,14255,"ide_methods.bas");}while(r); -do{ -qbg_screen( 0 ,NULL,NULL,NULL,NULL,1); -if(!qbevent)break;evnt(25066,14256,"ide_methods.bas");}while(r); -do{ -qbsub_width(NULL,*_SUB_IDEASCIIBOX_LONG_W,*_SUB_IDEASCIIBOX_LONG_H,3); -if(!qbevent)break;evnt(25066,14256,"ide_methods.bas");}while(r); -do{ -sub__font(*_SUB_IDEASCIIBOX_LONG_FONT,NULL,0); -if(!qbevent)break;evnt(25066,14256,"ide_methods.bas");}while(r); -do{ -sub__dest( 0 ); -if(!qbevent)break;evnt(25066,14256,"ide_methods.bas");}while(r); -do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,14256,"ide_methods.bas");}while(r); -S_49463:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,14257,"ide_methods.bas");if(r)goto S_49463;} -do{ -*_SUB_IDEASCIIBOX_LONG_DONOTHING=*_SUB_IDEASCIIBOX_LONG_ATALL; -if(!qbevent)break;evnt(25066,14257,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,14258,"ide_methods.bas");}while(r); -} -S_49468:; -dl_continue_5593:; -}while((!(*_SUB_IDEASCIIBOX_LONG_MOUSECLICK))&&(!new_error)); -dl_exit_5593:; -if(qbevent){evnt(25066,14261,"ide_methods.bas");if(r)goto S_49468;} -do{ -*_SUB_IDEASCIIBOX_INTEGER_RET=((*_SUB_IDEASCIIBOX_LONG_Y- 1 )* 16 )+*_SUB_IDEASCIIBOX_LONG_X-( 1 ); -if(!qbevent)break;evnt(25066,14263,"ide_methods.bas");}while(r); -S_49470:; -if (((-(*_SUB_IDEASCIIBOX_INTEGER_RET> 0 ))&(-(*_SUB_IDEASCIIBOX_INTEGER_RET< 255 )))||new_error){ -if(qbevent){evnt(25066,14264,"ide_methods.bas");if(r)goto S_49470;} -do{ -*_SUB_IDEASCIIBOX_LONG_L=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,14265,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_A,FUNC_IDEGETLINE(_SUB_IDEASCIIBOX_LONG_L)); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),FUNC_IDEZFILELIST(qbs_new_txt_len("internal/help",13),&(pass6180= 1 ),qbs_new_txt_len("",0))),func_chr( 0 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14266,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18790,"ide_methods.bas");}while(r); +S_55735:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEUPDATEHELPBOX_STRING_F->len== 2 )))||new_error){ +if(qbevent){evnt(26307,18791,"ide_methods.bas");if(r)goto S_55735;} do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_L,qbs_left(_SUB_IDEASCIIBOX_STRING_A,*__LONG_IDECX- 1 )); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14267,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_R,qbs_right(_SUB_IDEASCIIBOX_STRING_A,_SUB_IDEASCIIBOX_STRING_A->len-*__LONG_IDECX+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14267,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_TEXT,qbs_add(qbs_add(_SUB_IDEASCIIBOX_STRING_L,func_chr(*_SUB_IDEASCIIBOX_INTEGER_RET)),_SUB_IDEASCIIBOX_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14268,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEASCIIBOX_LONG_TEXTLEN=_SUB_IDEASCIIBOX_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14269,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_L,qbs_left(__STRING_IDET,*__LONG_IDELI- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14270,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_M,qbs_add(qbs_add(l2string(*_SUB_IDEASCIIBOX_LONG_TEXTLEN),_SUB_IDEASCIIBOX_STRING_TEXT),l2string(*_SUB_IDEASCIIBOX_LONG_TEXTLEN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14271,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEASCIIBOX_STRING_R,qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI-_SUB_IDEASCIIBOX_STRING_A->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14272,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(_SUB_IDEASCIIBOX_STRING_L,_SUB_IDEASCIIBOX_STRING_M),_SUB_IDEASCIIBOX_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14273,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(25066,14274,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,18791,"ide_methods.bas");}while(r); } do{ -sub__autodisplay(); -if(!qbevent)break;evnt(25066,14277,"ide_methods.bas");}while(r); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("Keyword_Reference_-_By_usage.txt",32)),_SUB_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18794,"ide_methods.bas");}while(r); do{ -qbg_screen( 0 ,NULL,NULL,NULL,NULL,1); -if(!qbevent)break;evnt(25066,14279,"ide_methods.bas");}while(r); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("QB64_Help_Menu.txt",18)),_SUB_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18795,"ide_methods.bas");}while(r); do{ -qbsub_width(NULL,*_SUB_IDEASCIIBOX_LONG_W,*_SUB_IDEASCIIBOX_LONG_H,3); -if(!qbevent)break;evnt(25066,14279,"ide_methods.bas");}while(r); +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),qbs_new_txt_len("QB64_FAQ.txt",12)),_SUB_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18796,"ide_methods.bas");}while(r); do{ -sub__font(*_SUB_IDEASCIIBOX_LONG_FONT,NULL,0); -if(!qbevent)break;evnt(25066,14280,"ide_methods.bas");}while(r); -do{ -sub__dest( 0 ); -if(!qbevent)break;evnt(25066,14281,"ide_methods.bas");}while(r); -do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(25066,14281,"ide_methods.bas");}while(r); -S_49489:; -if ((func__resize())||new_error){ -if(qbevent){evnt(25066,14282,"ide_methods.bas");if(r)goto S_49489;} -do{ -*_SUB_IDEASCIIBOX_LONG_DONOTHING=*_SUB_IDEASCIIBOX_LONG_ATALL; -if(!qbevent)break;evnt(25066,14282,"ide_methods.bas");}while(r); +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26307,18797,"ide_methods.bas");}while(r); +sc_ec_406_end:; +goto sc_6179_end; } +S_55742:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ +if(qbevent){evnt(26307,18798,"ide_methods.bas");if(r)goto S_55742;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26307,18799,"ide_methods.bas");}while(r); +sc_ec_407_end:; +goto sc_6179_end; +} +S_55744:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ +if(qbevent){evnt(26307,18800,"ide_methods.bas");if(r)goto S_55744;} +do{ +tmp_long=array_check(( 1 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Regenerating keyword list...",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18802,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_RECACHING= 1 ; +if(!qbevent)break;evnt(26307,18803,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 1 ; +if(!qbevent)break;evnt(26307,18803,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18804,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_RECACHING= 0 ; +if(!qbevent)break;evnt(26307,18805,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 0 ; +if(!qbevent)break;evnt(26307,18805,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_SUB_IDEUPDATEHELPBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18806,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26307,18807,"ide_methods.bas");}while(r); +sc_ec_408_end:; +goto sc_6179_end; +} +S_55753:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ +if(qbevent){evnt(26307,18808,"ide_methods.bas");if(r)goto S_55753;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26307,18810,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_SUB_IDEUPDATEHELPBOX_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18811,"ide_methods.bas");}while(r); +S_55756:; +while((!(func_eof(*_SUB_IDEUPDATEHELPBOX_LONG_FH)))||new_error){ +if(qbevent){evnt(26307,18812,"ide_methods.bas");if(r)goto S_55756;} +do{ +tmp_fileno=*_SUB_IDEUPDATEHELPBOX_LONG_FH; +if (new_error) goto skip6183; +sub_file_line_input_string(tmp_fileno,_SUB_IDEUPDATEHELPBOX_STRING_L); +if (new_error) goto skip6183; +skip6183: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18813,"ide_methods.bas");}while(r); +S_55758:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEUPDATEHELPBOX_STRING_L->len))||new_error){ +if(qbevent){evnt(26307,18814,"ide_methods.bas");if(r)goto S_55758;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_C=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_L,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18815,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_L,_SUB_IDEUPDATEHELPBOX_STRING_L->len-*_SUB_IDEUPDATEHELPBOX_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18815,"ide_methods.bas");}while(r); +S_55761:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0)))||new_error){ +if(qbevent){evnt(26307,18816,"ide_methods.bas");if(r)goto S_55761;} +do{ +tqbs=_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2; if (!new_error){ +tmp_fileno=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0); if (!new_error){ +tmp_long= 95 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26307,18817,"ide_methods.bas");}while(r); +dl_continue_6186:; +} +dl_exit_6186:; +S_55764:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("&",1),0)))||new_error){ +if(qbevent){evnt(26307,18819,"ide_methods.bas");if(r)goto S_55764;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_I=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18820,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,*_SUB_IDEUPDATEHELPBOX_LONG_I- 1 ),qbs_new_txt_len("%26",3)),qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2->len-*_SUB_IDEUPDATEHELPBOX_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18821,"ide_methods.bas");}while(r); +dl_continue_6187:; +} +dl_exit_6187:; +S_55768:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("/",1),0)))||new_error){ +if(qbevent){evnt(26307,18823,"ide_methods.bas");if(r)goto S_55768;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_I=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("/",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18824,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,*_SUB_IDEUPDATEHELPBOX_LONG_I- 1 ),qbs_new_txt_len("%2F",3)),qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2->len-*_SUB_IDEUPDATEHELPBOX_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18825,"ide_methods.bas");}while(r); +dl_continue_6189:; +} +dl_exit_6189:; +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18827,"ide_methods.bas");}while(r); +S_55773:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,18828,"ide_methods.bas");if(r)goto S_55773;} +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18829,"ide_methods.bas");}while(r); +} +} +dl_continue_6182:; +} +dl_exit_6182:; +do{ +sub_close(*_SUB_IDEUPDATEHELPBOX_LONG_FH,1); +if(!qbevent)break;evnt(26307,18833,"ide_methods.bas");}while(r); +S_55779:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(26307,18836,"ide_methods.bas");if(r)goto S_55779;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_C= 0 ; +if(!qbevent)break;evnt(26307,18837,"ide_methods.bas");}while(r); +S_55781:; +fornext_value6192= 2 ; +fornext_finalvalue6192=_SUB_IDEUPDATEHELPBOX_STRING_F->len; +fornext_step6192= 1 ; +if (fornext_step6192<0) fornext_step_negative6192=1; else fornext_step_negative6192=0; +if (new_error) goto fornext_error6192; +goto fornext_entrylabel6192; +while(1){ +fornext_value6192=fornext_step6192+(*_SUB_IDEUPDATEHELPBOX_LONG_X); +fornext_entrylabel6192: +*_SUB_IDEUPDATEHELPBOX_LONG_X=fornext_value6192; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6192){ +if (fornext_value6192fornext_finalvalue6192) break; +} +fornext_error6192:; +if(qbevent){evnt(26307,18838,"ide_methods.bas");if(r)goto S_55781;} +S_55782:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEUPDATEHELPBOX_STRING_F,*_SUB_IDEUPDATEHELPBOX_LONG_X)== 0 )))||new_error){ +if(qbevent){evnt(26307,18839,"ide_methods.bas");if(r)goto S_55782;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_C=*_SUB_IDEUPDATEHELPBOX_LONG_C+ 1 ; +if(!qbevent)break;evnt(26307,18839,"ide_methods.bas");}while(r); +} +fornext_continue_6191:; +} +fornext_exit_6191:; +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_C=*_SUB_IDEUPDATEHELPBOX_LONG_C- 1 ; +if(!qbevent)break;evnt(26307,18841,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_F->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18843,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_Z,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18844,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_N= 0 ; +if(!qbevent)break;evnt(26307,18845,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_STOPRECACHE; +if(!qbevent)break;evnt(26307,18847,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18849,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26307,18850,"ide_methods.bas");}while(r); +sc_ec_409_end:; +goto sc_6179_end; +} +S_55795:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ +if(qbevent){evnt(26307,18851,"ide_methods.bas");if(r)goto S_55795;} +S_55796:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEUPDATEHELPBOX_STRING_F->len> 0 )))||new_error){ +if(qbevent){evnt(26307,18852,"ide_methods.bas");if(r)goto S_55796;} +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_X2=func_instr(NULL,_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_Z,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18853,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_F,*_SUB_IDEUPDATEHELPBOX_LONG_X2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18854,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F,qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_F,_SUB_IDEUPDATEHELPBOX_STRING_F->len-*_SUB_IDEUPDATEHELPBOX_LONG_X2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18854,"ide_methods.bas");}while(r); +S_55800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEUPDATEHELPBOX_STRING_F2, 4 ),qbs_new_txt_len(".txt",4))))||new_error){ +if(qbevent){evnt(26307,18856,"ide_methods.bas");if(r)goto S_55800;} +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_SUB_IDEUPDATEHELPBOX_STRING_F2,_SUB_IDEUPDATEHELPBOX_STRING_F2->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18857,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_N=*_SUB_IDEUPDATEHELPBOX_LONG_N+ 1 ; +if(!qbevent)break;evnt(26307,18858,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Page title: ",12),_SUB_IDEUPDATEHELPBOX_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18859,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 1 ; +if(!qbevent)break;evnt(26307,18860,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_RECACHING= 1 ; +if(!qbevent)break;evnt(26307,18860,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEUPDATEHELPBOX_STRING_IGNORE,FUNC_WIKI(_SUB_IDEUPDATEHELPBOX_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18860,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_RECACHING= 0 ; +if(!qbevent)break;evnt(26307,18860,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 0 ; +if(!qbevent)break;evnt(26307,18860,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26307,18863,"ide_methods.bas");}while(r); +} +sc_ec_410_end:; +goto sc_6179_end; +} +S_55813:; +if (((*_SUB_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 6 )))||new_error){ +if(qbevent){evnt(26307,18865,"ide_methods.bas");if(r)goto S_55813;} +LABEL_STOPRECACHE:; +if(qbevent){evnt(26307,18866,"ide_methods.bas");r=0;} +do{ +tmp_long=array_check(( 1 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("All pages updated.",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18867,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18868,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_IDEUPDATEHELPBOX_LONG_BUTTONID)-_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_SUB_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("#Close",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18869,"ide_methods.bas");}while(r); +do{ +sub__limit( 20 ); +if(!qbevent)break;evnt(26307,18870,"ide_methods.bas");}while(r); +sc_ec_411_end:; +goto sc_6179_end; +} +sc_6179_end:; +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,18874,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEUPDATEHELPBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,18875,"ide_methods.bas");}while(r); +dl_continue_6166:; +}while(1); +dl_exit_6166:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free201.txt" +#include "free218.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } +qbs* FUNC_IDEASCIIBOX(int32*_FUNC_IDEASCIIBOX_LONG_RELAUNCH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data219.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26307,18882,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26307,18883,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,18884,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,18885,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,18886,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&2){ +error(10); +}else{ +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4]= 1 ; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4]+1; +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[6]=1; +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&4){ +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]),0,_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]*712/8+1); +}else{ +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]*712/8+1,1); +if (!_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]) error(257); +} +_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]|=1; +} +} +if(!qbevent)break;evnt(26307,18887,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,18888,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18889,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,18893,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_RELAUNCH= 0 ; +if(!qbevent)break;evnt(26307,18894,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26307,18896,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) ),&(pass6198= 56 ),&(pass6199= 21 ),qbs_new_txt_len("ASCII Chart",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18897,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18899,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26307,18900,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; +if(!qbevent)break;evnt(26307,18901,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+20))= 5 ; +if(!qbevent)break;evnt(26307,18902,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+28))= 5 ; +if(!qbevent)break;evnt(26307,18903,"ide_methods.bas");}while(r); +do{ + +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]&2){ +error(10); +}else{ +if (_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]&1){ +if (!error_occurred) error(10); +}else{ +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4]= 1 ; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]=( 255 )-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4]+1; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[6]=1; +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]=(ptrszint)malloc(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]*96/8+1); +if (!_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]) error(257); +_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]|=1; +tmp_long=_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]; +while(tmp_long--){ +*(qbs**)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]+(96/8+1-1)*tmp_long+ 4)=qbs_new(0,0);} +} +} +if(!qbevent)break;evnt(26307,18910,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26307,18912,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_X= 5 ; +if(!qbevent)break;evnt(26307,18913,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_Y= 2 ; +if(!qbevent)break;evnt(26307,18914,"ide_methods.bas");}while(r); +S_55843:; +fornext_value6201= 0 ; +fornext_finalvalue6201= 15 ; +fornext_step6201= 1 ; +if (fornext_step6201<0) fornext_step_negative6201=1; else fornext_step_negative6201=0; +if (new_error) goto fornext_error6201; +goto fornext_entrylabel6201; +while(1){ +fornext_value6201=fornext_step6201+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6201: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6201; +if (fornext_step_negative6201){ +if (fornext_value6201fornext_finalvalue6201) break; +} +fornext_error6201:; +if(qbevent){evnt(26307,18915,"ide_methods.bas");if(r)goto S_55843;} +S_55844:; +fornext_value6203= 0 ; +fornext_finalvalue6203= 15 ; +fornext_step6203= 1 ; +if (fornext_step6203<0) fornext_step_negative6203=1; else fornext_step_negative6203=0; +if (new_error) goto fornext_error6203; +goto fornext_entrylabel6203; +while(1){ +fornext_value6203=fornext_step6203+(*_FUNC_IDEASCIIBOX_LONG_J); +fornext_entrylabel6203: +*_FUNC_IDEASCIIBOX_LONG_J=fornext_value6203; +if (fornext_step_negative6203){ +if (fornext_value6203fornext_finalvalue6203) break; +} +fornext_error6203:; +if(qbevent){evnt(26307,18916,"ide_methods.bas");if(r)goto S_55844;} +do{ +*_FUNC_IDEASCIIBOX_LONG_A=*_FUNC_IDEASCIIBOX_LONG_A+ 1 ; +if(!qbevent)break;evnt(26307,18917,"ide_methods.bas");}while(r); +S_55846:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26307,18918,"ide_methods.bas");if(r)goto S_55846;} +do{ +goto fornext_exit_6202; +if(!qbevent)break;evnt(26307,18918,"ide_methods.bas");}while(r); +} +do{ +*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+*_FUNC_IDEASCIIBOX_LONG_X; +if(!qbevent)break;evnt(26307,18919,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2))=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+*_FUNC_IDEASCIIBOX_LONG_Y; +if(!qbevent)break;evnt(26307,18920,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+4))),qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr(*_FUNC_IDEASCIIBOX_LONG_A)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18921,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_X=*_FUNC_IDEASCIIBOX_LONG_X+ 3 ; +if(!qbevent)break;evnt(26307,18922,"ide_methods.bas");}while(r); +fornext_continue_6202:; +} +fornext_exit_6202:; +S_55854:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26307,18924,"ide_methods.bas");if(r)goto S_55854;} +do{ +goto fornext_exit_6200; +if(!qbevent)break;evnt(26307,18924,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_X= 5 ; +if(!qbevent)break;evnt(26307,18925,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_Y=*_FUNC_IDEASCIIBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26307,18926,"ide_methods.bas");}while(r); +fornext_continue_6200:; +} +fornext_exit_6200:; +do{ +*_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,18929,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,18930,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+24))= 21 ; +if(!qbevent)break;evnt(26307,18931,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert character",17),_FUNC_IDEASCIIBOX_STRING1_SEP),qbs_new_txt_len("Insert C#HR$",12)),_FUNC_IDEASCIIBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26307,18932,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,18933,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26307,18935,"ide_methods.bas");}while(r); +S_55866:; +fornext_value6205= 1 ; +fornext_finalvalue6205= 100 ; +fornext_step6205= 1 ; +if (fornext_step6205<0) fornext_step_negative6205=1; else fornext_step_negative6205=0; +if (new_error) goto fornext_error6205; +goto fornext_entrylabel6205; +while(1){ +fornext_value6205=fornext_step6205+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6205: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6205; +if (fornext_step_negative6205){ +if (fornext_value6205fornext_finalvalue6205) break; +} +fornext_error6205:; +if(qbevent){evnt(26307,18940,"ide_methods.bas");if(r)goto S_55866;} +do{ +memcpy(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,18940,"ide_methods.bas");}while(r); +fornext_continue_6204:; +} +fornext_exit_6204:; +S_55869:; +do{ +if(qbevent){evnt(26307,18943,"ide_methods.bas");if(r)goto S_55869;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26307,18945,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,18946,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26307,18946,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26307,18946,"ide_methods.bas");}while(r); +S_55874:; +fornext_value6208= 1 ; +fornext_finalvalue6208= 100 ; +fornext_step6208= 1 ; +if (fornext_step6208<0) fornext_step_negative6208=1; else fornext_step_negative6208=0; +if (new_error) goto fornext_error6208; +goto fornext_entrylabel6208; +while(1){ +fornext_value6208=fornext_step6208+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6208: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6208; +if (fornext_step_negative6208){ +if (fornext_value6208fornext_finalvalue6208) break; +} +fornext_error6208:; +if(qbevent){evnt(26307,18947,"ide_methods.bas");if(r)goto S_55874;} +S_55875:; +if ((*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,18948,"ide_methods.bas");if(r)goto S_55875;} +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; +if(!qbevent)break;evnt(26307,18950,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,18951,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,18951,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEASCIIBOX_LONG_F); +if(!qbevent)break;evnt(26307,18952,"ide_methods.bas");}while(r); +S_55880:; +if ((*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,18953,"ide_methods.bas");if(r)goto S_55880;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,18953,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,18953,"ide_methods.bas");}while(r); +} +} +fornext_continue_6207:; +} +fornext_exit_6207:; +do{ +*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=*_FUNC_IDEASCIIBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26307,18956,"ide_methods.bas");}while(r); +S_55887:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26307,18960,"ide_methods.bas");if(r)goto S_55887;} +do{ +SUB_IDEBOX(&(pass6209=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 4 ),&(pass6210=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 1 ),&(pass6211= 50 ),&(pass6212= 18 )); +if(!qbevent)break;evnt(26307,18961,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_HOVER= 0 ; +if(!qbevent)break;evnt(26307,18964,"ide_methods.bas");}while(r); +S_55891:; +fornext_value6214= 1 ; +fornext_finalvalue6214= 255 ; +fornext_step6214= 1 ; +if (fornext_step6214<0) fornext_step_negative6214=1; else fornext_step_negative6214=0; +if (new_error) goto fornext_error6214; +goto fornext_entrylabel6214; +while(1){ +fornext_value6214=fornext_step6214+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6214: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6214; +if (fornext_step_negative6214){ +if (fornext_value6214fornext_finalvalue6214) break; +} +fornext_error6214:; +if(qbevent){evnt(26307,18965,"ide_methods.bas");if(r)goto S_55891;} +S_55892:; +if (((-(*__LONG_MX>=*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))))&(-(*__LONG_MX<=(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))+ 2 )))&(-(*__LONG_MY==*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)))))||new_error){ +if(qbevent){evnt(26307,18966,"ide_methods.bas");if(r)goto S_55892;} +S_55893:; +if ((*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED)||new_error){ +if(qbevent){evnt(26307,18967,"ide_methods.bas");if(r)goto S_55893;} +do{ +*_FUNC_IDEASCIIBOX_LONG_HOVER=*_FUNC_IDEASCIIBOX_LONG_I; +if(!qbevent)break;evnt(26307,18967,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,18967,"ide_methods.bas");}while(r); +} +S_55897:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,18968,"ide_methods.bas");if(r)goto S_55897;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_I; +if(!qbevent)break;evnt(26307,18969,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,18970,"ide_methods.bas");}while(r); +S_55900:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK)))<=((float)( 0.3E+0 ))))&(-(*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON==*_FUNC_IDEASCIIBOX_LONG_I)))||new_error){ +if(qbevent){evnt(26307,18971,"ide_methods.bas");if(r)goto S_55900;} +do{ +*_FUNC_IDEASCIIBOX_LONG_RELAUNCH= -1 ; +if(!qbevent)break;evnt(26307,18973,"ide_methods.bas");}while(r); +do{ +goto LABEL_INSERTCHAR; +if(!qbevent)break;evnt(26307,18974,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26307,18976,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=*_FUNC_IDEASCIIBOX_LONG_I; +if(!qbevent)break;evnt(26307,18977,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,18980,"ide_methods.bas");}while(r); +} +S_55910:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED==*_FUNC_IDEASCIIBOX_LONG_I))||new_error){ +if(qbevent){evnt(26307,18982,"ide_methods.bas");if(r)goto S_55910;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26307,18982,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12)),*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)),*((qbs**)((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+4))),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18983,"ide_methods.bas");}while(r); +fornext_continue_6213:; +} +fornext_exit_6213:; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,18986,"ide_methods.bas");}while(r); +S_55916:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 ))||new_error){ +if(qbevent){evnt(26307,18987,"ide_methods.bas");if(r)goto S_55916;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 5 ,*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 19 ,qbs_add(qbs_new_txt_len("Selected:",9),qbs_str((int32)(*_FUNC_IDEASCIIBOX_LONG_SELECTED))),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18988,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26307,18991,"ide_methods.bas");}while(r); +S_55920:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER> 0 ))&(-(*_FUNC_IDEASCIIBOX_LONG_HOVER!=*_FUNC_IDEASCIIBOX_LONG_SELECTED)))||new_error){ +if(qbevent){evnt(26307,18992,"ide_methods.bas");if(r)goto S_55920;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 5 ,*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 20 ,qbs_add(qbs_new_txt_len("Hovered: ",9),qbs_str((int32)(*_FUNC_IDEASCIIBOX_LONG_HOVER))),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,18993,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26307,18999,"ide_methods.bas");}while(r); +S_55924:; +if ((*_FUNC_IDEASCIIBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26307,19000,"ide_methods.bas");if(r)goto S_55924;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,19001,"ide_methods.bas");}while(r); +S_55926:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26307,19002,"ide_methods.bas");if(r)goto S_55926;} +S_55927:; +if ((*_FUNC_IDEASCIIBOX_LONG_SELECTED)||new_error){ +if(qbevent){evnt(26307,19003,"ide_methods.bas");if(r)goto S_55927;} +do{ +qbg_sub_locate(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_SELECTED)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)),*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_SELECTED)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))+ 1 , 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,19004,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbg_sub_locate(*_FUNC_IDEASCIIBOX_LONG_CY,*_FUNC_IDEASCIIBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26307,19007,"ide_methods.bas");}while(r); +} +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,19009,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26307,19013,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= 0 ; +if(!qbevent)break;evnt(26307,19014,"ide_methods.bas");}while(r); +S_55937:; +do{ +if(qbevent){evnt(26307,19015,"ide_methods.bas");if(r)goto S_55937;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26307,19016,"ide_methods.bas");}while(r); +S_55939:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26307,19017,"ide_methods.bas");if(r)goto S_55939;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19017,"ide_methods.bas");}while(r); +} +S_55942:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26307,19018,"ide_methods.bas");if(r)goto S_55942;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19018,"ide_methods.bas");}while(r); +} +S_55945:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,19019,"ide_methods.bas");if(r)goto S_55945;} +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26307,19019,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19019,"ide_methods.bas");}while(r); +} +S_55949:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26307,19020,"ide_methods.bas");if(r)goto S_55949;} +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26307,19020,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19020,"ide_methods.bas");}while(r); +} +S_55953:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26307,19021,"ide_methods.bas");if(r)goto S_55953;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19021,"ide_methods.bas");}while(r); +} +S_55956:; +if (((-(*__LONG_MX!=*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX))|(-(*__LONG_MY!=*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY)))||new_error){ +if(qbevent){evnt(26307,19022,"ide_methods.bas");if(r)goto S_55956;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19022,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; +if(!qbevent)break;evnt(26307,19022,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; +if(!qbevent)break;evnt(26307,19022,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= -1 ; +if(!qbevent)break;evnt(26307,19022,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26307,19023,"ide_methods.bas");}while(r); +S_55963:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_ALT!=*_FUNC_IDEASCIIBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26307,19023,"ide_methods.bas");if(r)goto S_55963;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26307,19023,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_OLDALT=*_FUNC_IDEASCIIBOX_LONG_ALT; +if(!qbevent)break;evnt(26307,19024,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26307,19025,"ide_methods.bas");}while(r); +S_55968:; +dl_continue_6215:; +}while((!(*_FUNC_IDEASCIIBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_6215:; +if(qbevent){evnt(26307,19026,"ide_methods.bas");if(r)goto S_55968;} +S_55969:; +if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,19027,"ide_methods.bas");if(r)goto S_55969;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26307,19027,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26307,19027,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19029,"ide_methods.bas");}while(r); +S_55975:; +if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26307,19030,"ide_methods.bas");if(r)goto S_55975;} +S_55976:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26307,19031,"ide_methods.bas");if(r)goto S_55976;} +do{ +*_FUNC_IDEASCIIBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19032,"ide_methods.bas");}while(r); +S_55978:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEASCIIBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26307,19033,"ide_methods.bas");if(r)goto S_55978;} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEASCIIBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19033,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,19036,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26307,19036,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,19036,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26307,19040,"ide_methods.bas");}while(r); +S_55987:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26307,19041,"ide_methods.bas");if(r)goto S_55987;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19041,"ide_methods.bas");}while(r); +} +S_55990:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26307,19042,"ide_methods.bas");if(r)goto S_55990;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26307,19042,"ide_methods.bas");}while(r); +} +S_55993:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26307,19043,"ide_methods.bas");if(r)goto S_55993;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26307,19043,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19043,"ide_methods.bas");}while(r); +} +S_55997:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26307,19044,"ide_methods.bas");if(r)goto S_55997;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26307,19044,"ide_methods.bas");}while(r); +} +S_56000:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS>*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26307,19045,"ide_methods.bas");if(r)goto S_56000;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,19045,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26307,19046,"ide_methods.bas");}while(r); +S_56004:; +fornext_value6218= 1 ; +fornext_finalvalue6218= 100 ; +fornext_step6218= 1 ; +if (fornext_step6218<0) fornext_step_negative6218=1; else fornext_step_negative6218=0; +if (new_error) goto fornext_error6218; +goto fornext_entrylabel6218; +while(1){ +fornext_value6218=fornext_step6218+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6218: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6218; +if (fornext_step_negative6218){ +if (fornext_value6218fornext_finalvalue6218) break; +} +fornext_error6218:; +if(qbevent){evnt(26307,19047,"ide_methods.bas");if(r)goto S_56004;} +do{ +*_FUNC_IDEASCIIBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,19048,"ide_methods.bas");}while(r); +S_56006:; +if ((*_FUNC_IDEASCIIBOX_LONG_T)||new_error){ +if(qbevent){evnt(26307,19049,"ide_methods.bas");if(r)goto S_56006;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; +if(!qbevent)break;evnt(26307,19050,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEASCIIBOX_LONG_FOCUS,_FUNC_IDEASCIIBOX_LONG_F,_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEASCIIBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN,_FUNC_IDEASCIIBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEASCIIBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19051,"ide_methods.bas");}while(r); +} +fornext_continue_6217:; +} +fornext_exit_6217:; +S_56011:; +if (((-(*__LONG_MY>*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))))&(-(*__LONG_MY<(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(12)))))&(-(*__LONG_MX>*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(8))))))||new_error){ +if(qbevent){evnt(26307,19056,"ide_methods.bas");if(r)goto S_56011;} +S_56012:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER== 0 ))&*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26307,19057,"ide_methods.bas");if(r)goto S_56012;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26307,19057,"ide_methods.bas");}while(r); +} +} +S_56016:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 )))))||new_error){ +if(qbevent){evnt(26307,19060,"ide_methods.bas");if(r)goto S_56016;} +do{ +goto LABEL_INSERTCHAR; +if(!qbevent)break;evnt(26307,19061,"ide_methods.bas");}while(r); +} +S_56019:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 2 ))&(((qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26307,19064,"ide_methods.bas");if(r)goto S_56019;} +LABEL_INSERTCHAR:; +if(qbevent){evnt(26307,19065,"ide_methods.bas");r=0;} +S_56020:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 32 ))&(-(*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN== 0 )))||new_error){ +if(qbevent){evnt(26307,19066,"ide_methods.bas");if(r)goto S_56020;} +do{ +*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN= -1 ; +if(!qbevent)break;evnt(26307,19067,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Control Characters",18),qbs_new_txt_len("Inserting ASCII control characters (1-32) may cause\\nunexpected IDE behavior. Consider inserting CHR$ instead.\\nProceed anyway?",127),qbs_new_txt_len("#Yes;#No;#Cancel",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19068,"ide_methods.bas");}while(r); +S_56023:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26307,19069,"ide_methods.bas");if(r)goto S_56023;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19069,"ide_methods.bas");}while(r); +} +S_56026:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 3 ))||new_error){ +if(qbevent){evnt(26307,19070,"ide_methods.bas");if(r)goto S_56026;} +do{ +goto LABEL_DLGLOOP; +if(!qbevent)break;evnt(26307,19070,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX,func_chr(*_FUNC_IDEASCIIBOX_LONG_SELECTED)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19072,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19073,"ide_methods.bas");}while(r); +} +S_56033:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 3 ))&(((-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))|(qbs_equal(__STRING_K,func_chr( 13 ))))))))||new_error){ +if(qbevent){evnt(26307,19076,"ide_methods.bas");if(r)goto S_56033;} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX,qbs_add(qbs_add(qbs_new_txt_len("CHR$(",5),FUNC_STR2(_FUNC_IDEASCIIBOX_LONG_SELECTED)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19077,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19078,"ide_methods.bas");}while(r); +} +S_56037:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))|(qbs_equal(__STRING_K,func_chr( 13 )))))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 4 ))))||new_error){ +if(qbevent){evnt(26307,19082,"ide_methods.bas");if(r)goto S_56037;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19082,"ide_methods.bas");}while(r); +} +S_56040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26307,19084,"ide_methods.bas");if(r)goto S_56040;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19084,"ide_methods.bas");}while(r); +} +S_56043:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26307,19086,"ide_methods.bas");if(r)goto S_56043;} +do{ +*__LONG_KCTRL=func__keydown( 100305 )|func__keydown( 100306 ); +if(!qbevent)break;evnt(26307,19087,"ide_methods.bas");}while(r); +S_56045:; +if(qbevent){evnt(26307,19088,"ide_methods.bas");if(r)goto S_56045;} +S_56046:; +if (((*__LONG_KB==( 18176 )))||new_error){ +if(qbevent){evnt(26307,19089,"ide_methods.bas");if(r)goto S_56046;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26307,19089,"ide_methods.bas");}while(r); +sc_ec_412_end:; +goto sc_6219_end; +} +S_56048:; +if (((*__LONG_KB==( 20224 )))||new_error){ +if(qbevent){evnt(26307,19090,"ide_methods.bas");if(r)goto S_56048;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26307,19090,"ide_methods.bas");}while(r); +sc_ec_413_end:; +goto sc_6219_end; +} +S_56050:; +if (((*__LONG_KB==( 19712 )))||new_error){ +if(qbevent){evnt(26307,19091,"ide_methods.bas");if(r)goto S_56050;} +S_56051:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26307,19092,"ide_methods.bas");if(r)goto S_56051;} +S_56052:; +while((!((-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 0 )))|(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 255 ))))||new_error){ +if(qbevent){evnt(26307,19093,"ide_methods.bas");if(r)goto S_56052;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; +if(!qbevent)break;evnt(26307,19094,"ide_methods.bas");}while(r); +dl_continue_6220:; +} +dl_exit_6220:; +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; +if(!qbevent)break;evnt(26307,19097,"ide_methods.bas");}while(r); +} +S_56058:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ +if(qbevent){evnt(26307,19099,"ide_methods.bas");if(r)goto S_56058;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26307,19099,"ide_methods.bas");}while(r); +} +sc_ec_414_end:; +goto sc_6219_end; +} +S_56061:; +if (((*__LONG_KB==( 19200 )))||new_error){ +if(qbevent){evnt(26307,19100,"ide_methods.bas");if(r)goto S_56061;} +S_56062:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26307,19101,"ide_methods.bas");if(r)goto S_56062;} +S_56063:; +while((!(-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 1 ))))||new_error){ +if(qbevent){evnt(26307,19102,"ide_methods.bas");if(r)goto S_56063;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; +if(!qbevent)break;evnt(26307,19103,"ide_methods.bas");}while(r); +dl_continue_6221:; +} +dl_exit_6221:; +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; +if(!qbevent)break;evnt(26307,19106,"ide_methods.bas");}while(r); +} +S_56069:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ +if(qbevent){evnt(26307,19108,"ide_methods.bas");if(r)goto S_56069;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26307,19108,"ide_methods.bas");}while(r); +} +sc_ec_415_end:; +goto sc_6219_end; +} +S_56072:; +if (((*__LONG_KB==( 20480 )))||new_error){ +if(qbevent){evnt(26307,19109,"ide_methods.bas");if(r)goto S_56072;} +S_56073:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26307,19110,"ide_methods.bas");if(r)goto S_56073;} +S_56074:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ +if(qbevent){evnt(26307,19111,"ide_methods.bas");if(r)goto S_56074;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26307,19112,"ide_methods.bas");}while(r); +}else{ +S_56077:; +while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED>= 240 )))||new_error){ +if(qbevent){evnt(26307,19114,"ide_methods.bas");if(r)goto S_56077;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; +if(!qbevent)break;evnt(26307,19115,"ide_methods.bas");}while(r); +dl_continue_6222:; +} +dl_exit_6222:; +} +S_56081:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ +if(qbevent){evnt(26307,19118,"ide_methods.bas");if(r)goto S_56081;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26307,19118,"ide_methods.bas");}while(r); +} +}else{ +S_56085:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ +if(qbevent){evnt(26307,19120,"ide_methods.bas");if(r)goto S_56085;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26307,19122,"ide_methods.bas");}while(r); +S_56087:; +}else{ +if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 )<=( 255 ))){ +if(qbevent){evnt(26307,19123,"ide_methods.bas");if(r)goto S_56087;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; +if(!qbevent)break;evnt(26307,19124,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 - 256 ; +if(!qbevent)break;evnt(26307,19126,"ide_methods.bas");}while(r); +} +} +} +sc_ec_416_end:; +goto sc_6219_end; +} +S_56093:; +if (((*__LONG_KB==( 18432 )))||new_error){ +if(qbevent){evnt(26307,19129,"ide_methods.bas");if(r)goto S_56093;} +S_56094:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26307,19130,"ide_methods.bas");if(r)goto S_56094;} +S_56095:; +while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED<= 16 )))||new_error){ +if(qbevent){evnt(26307,19131,"ide_methods.bas");if(r)goto S_56095;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; +if(!qbevent)break;evnt(26307,19132,"ide_methods.bas");}while(r); +dl_continue_6223:; +} +dl_exit_6223:; +S_56098:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ +if(qbevent){evnt(26307,19134,"ide_methods.bas");if(r)goto S_56098;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26307,19134,"ide_methods.bas");}while(r); +} +}else{ +S_56102:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 16 ))||new_error){ +if(qbevent){evnt(26307,19136,"ide_methods.bas");if(r)goto S_56102;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 240 ; +if(!qbevent)break;evnt(26307,19138,"ide_methods.bas");}while(r); +S_56104:; +}else{ +if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 )>=( 1 ))){ +if(qbevent){evnt(26307,19139,"ide_methods.bas");if(r)goto S_56104;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; +if(!qbevent)break;evnt(26307,19140,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 + 256 ; +if(!qbevent)break;evnt(26307,19142,"ide_methods.bas");}while(r); +} +} +} +sc_ec_417_end:; +goto sc_6219_end; +} +sc_6219_end:; +} +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26307,19149,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26307,19150,"ide_methods.bas");}while(r); +LABEL_DLGLOOP:; +if(qbevent){evnt(26307,19152,"ide_methods.bas");r=0;} +dl_continue_6206:; +}while(1); +dl_exit_6206:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free219.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX);return _FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX; +} qbs* FUNC_IDEF1BOX(qbs*_FUNC_IDEF1BOX_STRING_LNKS,int32*_FUNC_IDEF1BOX_LONG_LNKS){ qbs *tqbs; ptrszint tmp_long; @@ -174825,7 +195414,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data202.txt" +#include "data220.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -174833,1393 +195422,436 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,14290,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19161,"ide_methods.bas");}while(r); do{ sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,14291,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19162,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14292,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19163,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,14293,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19164,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,14294,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19165,"ide_methods.bas");}while(r); do{ if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&2){ error(10); }else{ if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _FUNC_IDEF1BOX_ARRAY_UDT_O[4]= 1 ; _FUNC_IDEF1BOX_ARRAY_UDT_O[5]=( 100 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4]+1; _FUNC_IDEF1BOX_ARRAY_UDT_O[6]=1; if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&4){ -_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0]),0,_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*680/8+1); +_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*712/8+1); +memset((void*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0]),0,_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*712/8+1); }else{ -_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*680/8+1,1); +_FUNC_IDEF1BOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEF1BOX_ARRAY_UDT_O[5]*712/8+1,1); if (!_FUNC_IDEF1BOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEF1BOX_ARRAY_UDT_O[2]|=1; } } -if(!qbevent)break;evnt(25066,14295,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19166,"ide_methods.bas");}while(r); do{ -if(!qbevent)break;evnt(25066,14296,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19167,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEF1BOX_STRING1_SEP,func_chr( 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14297,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19168,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,14304,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19175,"ide_methods.bas");}while(r); do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) ),&(pass5603= 40 ),&(pass5604=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ),qbs_new_txt_len("F1",2)); +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) ),&(pass6225= 40 ),&(pass6226=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ),qbs_new_txt_len("Contextual help",15)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14305,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19176,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14307,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19178,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+36))= 2 ; -if(!qbevent)break;evnt(25066,14308,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26307,19179,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+24))= 1 ; -if(!qbevent)break;evnt(25066,14309,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+24))= 1 ; +if(!qbevent)break;evnt(26307,19180,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+28))= 36 ; -if(!qbevent)break;evnt(25066,14311,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+28))= 36 ; +if(!qbevent)break;evnt(26307,19182,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+32))=*_FUNC_IDEF1BOX_LONG_LNKS; -if(!qbevent)break;evnt(25066,14311,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEF1BOX_LONG_LNKS; +if(!qbevent)break;evnt(26307,19182,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(_FUNC_IDEF1BOX_STRING_LNKS); -if(!qbevent)break;evnt(25066,14312,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEF1BOX_STRING_LNKS); +if(!qbevent)break;evnt(26307,19183,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+64))= 1 ; -if(!qbevent)break;evnt(25066,14313,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26307,19184,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Which?",6)); -if(!qbevent)break;evnt(25066,14314,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Which?",6)); +if(!qbevent)break;evnt(26307,19185,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14316,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19187,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,14317,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26307,19188,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+24))=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ; -if(!qbevent)break;evnt(25066,14318,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ; +if(!qbevent)break;evnt(26307,19189,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); -if(!qbevent)break;evnt(25066,14319,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); +if(!qbevent)break;evnt(26307,19190,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,14320,"ide_methods.bas");}while(r); -S_49515:; -fornext_value5606= 1 ; -fornext_finalvalue5606= 100 ; -fornext_step5606= 1 ; -if (fornext_step5606<0) fornext_step_negative5606=1; else fornext_step_negative5606=0; -if (new_error) goto fornext_error5606; -goto fornext_entrylabel5606; +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26307,19191,"ide_methods.bas");}while(r); +S_56138:; +fornext_value6228= 1 ; +fornext_finalvalue6228= 100 ; +fornext_step6228= 1 ; +if (fornext_step6228<0) fornext_step_negative6228=1; else fornext_step_negative6228=0; +if (new_error) goto fornext_error6228; +goto fornext_entrylabel6228; while(1){ -fornext_value5606=fornext_step5606+(*_FUNC_IDEF1BOX_LONG_I); -fornext_entrylabel5606: -*_FUNC_IDEF1BOX_LONG_I=fornext_value5606; -if (fornext_step_negative5606){ -if (fornext_value5606fornext_finalvalue5606) break; +if (fornext_value6228>fornext_finalvalue6228) break; } -fornext_error5606:; -if(qbevent){evnt(25066,14325,"ide_methods.bas");if(r)goto S_49515;} +fornext_error6228:; +if(qbevent){evnt(26307,19196,"ide_methods.bas");if(r)goto S_56138;} do{ -memcpy(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_FUNC_IDEF1BOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,14325,"ide_methods.bas");}while(r); -fornext_continue_5605:; +memcpy(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEF1BOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26307,19196,"ide_methods.bas");}while(r); +fornext_continue_6227:; } -fornext_exit_5605:; -S_49518:; +fornext_exit_6227:; +S_56141:; do{ -if(qbevent){evnt(25066,14328,"ide_methods.bas");if(r)goto S_49518;} +if(qbevent){evnt(26307,19199,"ide_methods.bas");if(r)goto S_56141;} do{ SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,14331,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19202,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,14332,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19203,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,14332,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19203,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,14332,"ide_methods.bas");}while(r); -S_49523:; -fornext_value5609= 1 ; -fornext_finalvalue5609= 100 ; -fornext_step5609= 1 ; -if (fornext_step5609<0) fornext_step_negative5609=1; else fornext_step_negative5609=0; -if (new_error) goto fornext_error5609; -goto fornext_entrylabel5609; +if(!qbevent)break;evnt(26307,19203,"ide_methods.bas");}while(r); +S_56146:; +fornext_value6231= 1 ; +fornext_finalvalue6231= 100 ; +fornext_step6231= 1 ; +if (fornext_step6231<0) fornext_step_negative6231=1; else fornext_step_negative6231=0; +if (new_error) goto fornext_error6231; +goto fornext_entrylabel6231; while(1){ -fornext_value5609=fornext_step5609+(*_FUNC_IDEF1BOX_LONG_I); -fornext_entrylabel5609: -*_FUNC_IDEF1BOX_LONG_I=fornext_value5609; -if (fornext_step_negative5609){ -if (fornext_value5609fornext_finalvalue5609) break; +if (fornext_value6231>fornext_finalvalue6231) break; } -fornext_error5609:; -if(qbevent){evnt(25066,14333,"ide_methods.bas");if(r)goto S_49523;} -S_49524:; -if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,14334,"ide_methods.bas");if(r)goto S_49524;} +fornext_error6231:; +if(qbevent){evnt(26307,19204,"ide_methods.bas");if(r)goto S_56146;} +S_56147:; +if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26307,19205,"ide_methods.bas");if(r)goto S_56147;} do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+60))=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; -if(!qbevent)break;evnt(25066,14337,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; +if(!qbevent)break;evnt(26307,19208,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,14338,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26307,19209,"ide_methods.bas");}while(r); do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,14338,"ide_methods.bas");}while(r); +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26307,19209,"ide_methods.bas");}while(r); do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEF1BOX_LONG_F); -if(!qbevent)break;evnt(25066,14339,"ide_methods.bas");}while(r); -S_49529:; -if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,14340,"ide_methods.bas");if(r)goto S_49529;} +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEF1BOX_LONG_F); +if(!qbevent)break;evnt(26307,19210,"ide_methods.bas");}while(r); +S_56152:; +if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26307,19211,"ide_methods.bas");if(r)goto S_56152;} do{ -*_FUNC_IDEF1BOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,14340,"ide_methods.bas");}while(r); +*_FUNC_IDEF1BOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26307,19211,"ide_methods.bas");}while(r); do{ -*_FUNC_IDEF1BOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,14340,"ide_methods.bas");}while(r); +*_FUNC_IDEF1BOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26307,19211,"ide_methods.bas");}while(r); } } -fornext_continue_5608:; +fornext_continue_6230:; } -fornext_exit_5608:; +fornext_exit_6230:; do{ *_FUNC_IDEF1BOX_LONG_LASTFOCUS=*_FUNC_IDEF1BOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,14343,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19214,"ide_methods.bas");}while(r); do{ sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,14350,"ide_methods.bas");}while(r); -S_49537:; +if(!qbevent)break;evnt(26307,19221,"ide_methods.bas");}while(r); +S_56160:; if ((*_FUNC_IDEF1BOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,14351,"ide_methods.bas");if(r)goto S_49537;} +if(qbevent){evnt(26307,19222,"ide_methods.bas");if(r)goto S_56160;} do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14351,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19222,"ide_methods.bas");}while(r); do{ qbg_sub_locate(*_FUNC_IDEF1BOX_LONG_CY,*_FUNC_IDEF1BOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,14351,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19222,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14351,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19222,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,14354,"ide_methods.bas");}while(r); -S_49543:; +if(!qbevent)break;evnt(26307,19225,"ide_methods.bas");}while(r); +S_56166:; do{ -if(qbevent){evnt(25066,14355,"ide_methods.bas");if(r)goto S_49543;} +if(qbevent){evnt(26307,19226,"ide_methods.bas");if(r)goto S_56166;} do{ SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,14356,"ide_methods.bas");}while(r); -S_49545:; +if(!qbevent)break;evnt(26307,19227,"ide_methods.bas");}while(r); +S_56168:; if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,14357,"ide_methods.bas");if(r)goto S_49545;} +if(qbevent){evnt(26307,19228,"ide_methods.bas");if(r)goto S_56168;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14357,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19228,"ide_methods.bas");}while(r); } -S_49548:; +S_56171:; if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,14358,"ide_methods.bas");if(r)goto S_49548;} +if(qbevent){evnt(26307,19229,"ide_methods.bas");if(r)goto S_56171;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14358,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19229,"ide_methods.bas");}while(r); } -S_49551:; +S_56174:; if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,14359,"ide_methods.bas");if(r)goto S_49551;} +if(qbevent){evnt(26307,19230,"ide_methods.bas");if(r)goto S_56174;} do{ *_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,14359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19230,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14359,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19230,"ide_methods.bas");}while(r); } -S_49555:; +S_56178:; if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,14360,"ide_methods.bas");if(r)goto S_49555;} +if(qbevent){evnt(26307,19231,"ide_methods.bas");if(r)goto S_56178;} do{ *_FUNC_IDEF1BOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,14360,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19231,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14360,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19231,"ide_methods.bas");}while(r); } -S_49559:; +S_56182:; if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,14361,"ide_methods.bas");if(r)goto S_49559;} +if(qbevent){evnt(26307,19232,"ide_methods.bas");if(r)goto S_56182;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14361,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19232,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,14362,"ide_methods.bas");}while(r); -S_49563:; +if(!qbevent)break;evnt(26307,19233,"ide_methods.bas");}while(r); +S_56186:; if ((-(*_FUNC_IDEF1BOX_LONG_ALT!=*_FUNC_IDEF1BOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,14362,"ide_methods.bas");if(r)goto S_49563;} +if(qbevent){evnt(26307,19233,"ide_methods.bas");if(r)goto S_56186;} do{ *_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14362,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19233,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_OLDALT=*_FUNC_IDEF1BOX_LONG_ALT; -if(!qbevent)break;evnt(25066,14363,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19234,"ide_methods.bas");}while(r); do{ sub__limit( 100 ); -if(!qbevent)break;evnt(25066,14364,"ide_methods.bas");}while(r); -S_49568:; -dl_continue_5610:; +if(!qbevent)break;evnt(26307,19235,"ide_methods.bas");}while(r); +S_56191:; +dl_continue_6232:; }while((!(*_FUNC_IDEF1BOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5610:; -if(qbevent){evnt(25066,14365,"ide_methods.bas");if(r)goto S_49568;} -S_49569:; +dl_exit_6232:; +if(qbevent){evnt(26307,19236,"ide_methods.bas");if(r)goto S_56191;} +S_56192:; if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,14366,"ide_methods.bas");if(r)goto S_49569;} +if(qbevent){evnt(26307,19237,"ide_methods.bas");if(r)goto S_56192;} do{ *__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,14366,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19237,"ide_methods.bas");}while(r); }else{ do{ *__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,14366,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19237,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14368,"ide_methods.bas");}while(r); -S_49575:; +if(!qbevent)break;evnt(26307,19239,"ide_methods.bas");}while(r); +S_56198:; if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,14369,"ide_methods.bas");if(r)goto S_49575;} -S_49576:; +if(qbevent){evnt(26307,19240,"ide_methods.bas");if(r)goto S_56198;} +S_56199:; if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,14370,"ide_methods.bas");if(r)goto S_49576;} +if(qbevent){evnt(26307,19241,"ide_methods.bas");if(r)goto S_56199;} do{ *_FUNC_IDEF1BOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14371,"ide_methods.bas");}while(r); -S_49578:; +if(!qbevent)break;evnt(26307,19242,"ide_methods.bas");}while(r); +S_56201:; if (((-(*_FUNC_IDEF1BOX_LONG_K>= 65 ))&(-(*_FUNC_IDEF1BOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,14372,"ide_methods.bas");if(r)goto S_49578;} +if(qbevent){evnt(26307,19243,"ide_methods.bas");if(r)goto S_56201;} do{ qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEF1BOX_LONG_K)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14372,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19243,"ide_methods.bas");}while(r); } } } do{ qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19246,"ide_methods.bas");}while(r); do{ qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,14375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19246,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14375,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19246,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,14379,"ide_methods.bas");}while(r); -S_49587:; +if(!qbevent)break;evnt(26307,19250,"ide_methods.bas");}while(r); +S_56210:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,14380,"ide_methods.bas");if(r)goto S_49587;} +if(qbevent){evnt(26307,19251,"ide_methods.bas");if(r)goto S_56210;} do{ qbs_set(__STRING_K,func_chr( 255 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14380,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19251,"ide_methods.bas");}while(r); } -S_49590:; +S_56213:; if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,14381,"ide_methods.bas");if(r)goto S_49590;} +if(qbevent){evnt(26307,19252,"ide_methods.bas");if(r)goto S_56213;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,14381,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19252,"ide_methods.bas");}while(r); } -S_49593:; +S_56216:; if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,14382,"ide_methods.bas");if(r)goto S_49593;} +if(qbevent){evnt(26307,19253,"ide_methods.bas");if(r)goto S_56216;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,14382,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19253,"ide_methods.bas");}while(r); do{ qbs_set(__STRING_K,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14382,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19253,"ide_methods.bas");}while(r); } -S_49597:; +S_56220:; if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,14383,"ide_methods.bas");if(r)goto S_49597;} +if(qbevent){evnt(26307,19254,"ide_methods.bas");if(r)goto S_56220;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,14383,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19254,"ide_methods.bas");}while(r); } -S_49600:; +S_56223:; if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS>*_FUNC_IDEF1BOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,14384,"ide_methods.bas");if(r)goto S_49600;} +if(qbevent){evnt(26307,19255,"ide_methods.bas");if(r)goto S_56223;} do{ *_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,14384,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19255,"ide_methods.bas");}while(r); } do{ *_FUNC_IDEF1BOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,14385,"ide_methods.bas");}while(r); -S_49604:; -fornext_value5613= 1 ; -fornext_finalvalue5613= 100 ; -fornext_step5613= 1 ; -if (fornext_step5613<0) fornext_step_negative5613=1; else fornext_step_negative5613=0; -if (new_error) goto fornext_error5613; -goto fornext_entrylabel5613; +if(!qbevent)break;evnt(26307,19256,"ide_methods.bas");}while(r); +S_56227:; +fornext_value6235= 1 ; +fornext_finalvalue6235= 100 ; +fornext_step6235= 1 ; +if (fornext_step6235<0) fornext_step_negative6235=1; else fornext_step_negative6235=0; +if (new_error) goto fornext_error6235; +goto fornext_entrylabel6235; while(1){ -fornext_value5613=fornext_step5613+(*_FUNC_IDEF1BOX_LONG_I); -fornext_entrylabel5613: -*_FUNC_IDEF1BOX_LONG_I=fornext_value5613; -if (fornext_step_negative5613){ -if (fornext_value5613fornext_finalvalue5613) break; +if (fornext_value6235>fornext_finalvalue6235) break; } -fornext_error5613:; -if(qbevent){evnt(25066,14386,"ide_methods.bas");if(r)goto S_49604;} +fornext_error6235:; +if(qbevent){evnt(26307,19257,"ide_methods.bas");if(r)goto S_56227;} do{ -*_FUNC_IDEF1BOX_LONG_T=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,14387,"ide_methods.bas");}while(r); -S_49606:; +*_FUNC_IDEF1BOX_LONG_T=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26307,19258,"ide_methods.bas");}while(r); +S_56229:; if ((*_FUNC_IDEF1BOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,14388,"ide_methods.bas");if(r)goto S_49606;} +if(qbevent){evnt(26307,19259,"ide_methods.bas");if(r)goto S_56229;} do{ *_FUNC_IDEF1BOX_LONG_FOCUSOFFSET=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; -if(!qbevent)break;evnt(25066,14389,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19260,"ide_methods.bas");}while(r); do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85) ),_FUNC_IDEF1BOX_LONG_FOCUS,_FUNC_IDEF1BOX_LONG_F,_FUNC_IDEF1BOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEF1BOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEF1BOX_LONG_MOUSEDOWN,_FUNC_IDEF1BOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEF1BOX_LONG_INFO,__LONG_MWHEEL); +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEF1BOX_LONG_FOCUS,_FUNC_IDEF1BOX_LONG_F,_FUNC_IDEF1BOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEF1BOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEF1BOX_LONG_MOUSEDOWN,_FUNC_IDEF1BOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEF1BOX_LONG_INFO,__LONG_MWHEEL); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14390,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19261,"ide_methods.bas");}while(r); } -fornext_continue_5612:; +fornext_continue_6234:; } -fornext_exit_5612:; -S_49611:; +fornext_exit_6234:; +S_56234:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEF1BOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEF1BOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEF1BOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEF1BOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(25066,14395,"ide_methods.bas");if(r)goto S_49611;} +if(qbevent){evnt(26307,19266,"ide_methods.bas");if(r)goto S_56234;} do{ -qbs_set(_FUNC_IDEF1BOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*85+68)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_set(_FUNC_IDEF1BOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14396,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19267,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,_FUNC_IDEF1BOX_STRING_F); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14397,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19268,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,14398,"ide_methods.bas");}while(r); -S_49615:; +if(!qbevent)break;evnt(26307,19269,"ide_methods.bas");}while(r); +S_56238:; }else{ if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 )))){ -if(qbevent){evnt(25066,14399,"ide_methods.bas");if(r)goto S_49615;} +if(qbevent){evnt(26307,19270,"ide_methods.bas");if(r)goto S_56238;} do{ qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,qbs_new_txt_len("C",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14400,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19271,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,14401,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19272,"ide_methods.bas");}while(r); } } do{ *_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,14405,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19276,"ide_methods.bas");}while(r); do{ *_FUNC_IDEF1BOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,14406,"ide_methods.bas");}while(r); -dl_continue_5607:; +if(!qbevent)break;evnt(26307,19277,"ide_methods.bas");}while(r); +dl_continue_6229:; }while(1); -dl_exit_5607:; +dl_exit_6229:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free202.txt" +#include "free220.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_IDEF1BOX_STRING_IDEF1BOX);return _FUNC_IDEF1BOX_STRING_IDEF1BOX; } -void SUB_MATHBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data203.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(25066,14417,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(25066,14418,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14419,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,14420,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,14421,"ide_methods.bas");}while(r); -do{ - -if (_SUB_MATHBOX_ARRAY_UDT_O[2]&2){ -error(10); -}else{ -if (_SUB_MATHBOX_ARRAY_UDT_O[2]&1){ -error(10); -}else{ -_SUB_MATHBOX_ARRAY_UDT_O[4]= 1 ; -_SUB_MATHBOX_ARRAY_UDT_O[5]=( 100 )-_SUB_MATHBOX_ARRAY_UDT_O[4]+1; -_SUB_MATHBOX_ARRAY_UDT_O[6]=1; -if (_SUB_MATHBOX_ARRAY_UDT_O[2]&4){ -_SUB_MATHBOX_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc(_SUB_MATHBOX_ARRAY_UDT_O[5]*680/8+1); -memset((void*)(_SUB_MATHBOX_ARRAY_UDT_O[0]),0,_SUB_MATHBOX_ARRAY_UDT_O[5]*680/8+1); -}else{ -_SUB_MATHBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_SUB_MATHBOX_ARRAY_UDT_O[5]*680/8+1,1); -if (!_SUB_MATHBOX_ARRAY_UDT_O[0]) error(257); -} -_SUB_MATHBOX_ARRAY_UDT_O[2]|=1; -} -} -if(!qbevent)break;evnt(25066,14422,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(25066,14423,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14424,"ide_methods.bas");}while(r); -LABEL_DOANOTHER:; -if(qbevent){evnt(25066,14427,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_MATHBOX_STRING_TITLESTR,qbs_new_txt_len(" Give me a Math Equation ",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14428,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_MESSAGESTR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14429,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,14432,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_W=_SUB_MATHBOX_STRING_MESSAGESTR->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14433,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_W2=_SUB_MATHBOX_STRING_TITLESTR->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14434,"ide_methods.bas");}while(r); -S_49635:; -if ((-(*_SUB_MATHBOX_LONG_W<*_SUB_MATHBOX_LONG_W2))||new_error){ -if(qbevent){evnt(25066,14435,"ide_methods.bas");if(r)goto S_49635;} -do{ -*_SUB_MATHBOX_LONG_W=*_SUB_MATHBOX_LONG_W2; -if(!qbevent)break;evnt(25066,14435,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_MATHBOX_UDT_P)) + (0) ),_SUB_MATHBOX_LONG_W,&(pass5616= 4 ),_SUB_MATHBOX_STRING_TITLESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14436,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_I=*_SUB_MATHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14438,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,14439,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,14440,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,14441,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,14442,"ide_methods.bas");}while(r); -S_49644:; -fornext_value5618= 1 ; -fornext_finalvalue5618= 100 ; -fornext_step5618= 1 ; -if (fornext_step5618<0) fornext_step_negative5618=1; else fornext_step_negative5618=0; -if (new_error) goto fornext_error5618; -goto fornext_entrylabel5618; -while(1){ -fornext_value5618=fornext_step5618+(*_SUB_MATHBOX_LONG_I); -fornext_entrylabel5618: -*_SUB_MATHBOX_LONG_I=fornext_value5618; -if (fornext_step_negative5618){ -if (fornext_value5618fornext_finalvalue5618) break; -} -fornext_error5618:; -if(qbevent){evnt(25066,14446,"ide_methods.bas");if(r)goto S_49644;} -do{ -memcpy(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_MATHBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,14446,"ide_methods.bas");}while(r); -fornext_continue_5617:; -} -fornext_exit_5617:; -S_49647:; -do{ -if(qbevent){evnt(25066,14449,"ide_methods.bas");if(r)goto S_49647;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_MATHBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,14453,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,14454,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,14454,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,14454,"ide_methods.bas");}while(r); -S_49652:; -fornext_value5621= 1 ; -fornext_finalvalue5621= 100 ; -fornext_step5621= 1 ; -if (fornext_step5621<0) fornext_step_negative5621=1; else fornext_step_negative5621=0; -if (new_error) goto fornext_error5621; -goto fornext_entrylabel5621; -while(1){ -fornext_value5621=fornext_step5621+(*_SUB_MATHBOX_LONG_I); -fornext_entrylabel5621: -*_SUB_MATHBOX_LONG_I=fornext_value5621; -if (fornext_step_negative5621){ -if (fornext_value5621fornext_finalvalue5621) break; -} -fornext_error5621:; -if(qbevent){evnt(25066,14455,"ide_methods.bas");if(r)goto S_49652;} -S_49653:; -if ((*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,14456,"ide_methods.bas");if(r)goto S_49653;} -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+60))=*_SUB_MATHBOX_LONG_FOCUS-*_SUB_MATHBOX_LONG_F; -if(!qbevent)break;evnt(25066,14459,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,14460,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,14460,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_MATHBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85) ),_SUB_MATHBOX_LONG_F); -if(!qbevent)break;evnt(25066,14461,"ide_methods.bas");}while(r); -S_49658:; -if ((*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,14462,"ide_methods.bas");if(r)goto S_49658;} -do{ -*_SUB_MATHBOX_LONG_CX=*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,14462,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CY=*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,14462,"ide_methods.bas");}while(r); -} -} -fornext_continue_5620:; -} -fornext_exit_5620:; -do{ -*_SUB_MATHBOX_LONG_LASTFOCUS=*_SUB_MATHBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,14465,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,14469,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_MATHBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_SUB_MATHBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14469,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_MATHBOX_STRING_MESSAGESTR); -if (new_error) goto skip5622; -makefit(tqbs); -qbs_print(tqbs,0); -skip5622: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14469,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,14473,"ide_methods.bas");}while(r); -S_49669:; -if ((*_SUB_MATHBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,14474,"ide_methods.bas");if(r)goto S_49669;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14474,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_MATHBOX_LONG_CY,*_SUB_MATHBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,14474,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14474,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,14477,"ide_methods.bas");}while(r); -S_49675:; -do{ -if(qbevent){evnt(25066,14478,"ide_methods.bas");if(r)goto S_49675;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,14479,"ide_methods.bas");}while(r); -S_49677:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,14480,"ide_methods.bas");if(r)goto S_49677;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14480,"ide_methods.bas");}while(r); -} -S_49680:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,14481,"ide_methods.bas");if(r)goto S_49680;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14481,"ide_methods.bas");}while(r); -} -S_49683:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,14482,"ide_methods.bas");if(r)goto S_49683;} -do{ -*_SUB_MATHBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,14482,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14482,"ide_methods.bas");}while(r); -} -S_49687:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,14483,"ide_methods.bas");if(r)goto S_49687;} -do{ -*_SUB_MATHBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,14483,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14483,"ide_methods.bas");}while(r); -} -S_49691:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,14484,"ide_methods.bas");if(r)goto S_49691;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14484,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,14485,"ide_methods.bas");}while(r); -S_49695:; -if ((-(*_SUB_MATHBOX_LONG_ALT!=*_SUB_MATHBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,14485,"ide_methods.bas");if(r)goto S_49695;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14485,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_OLDALT=*_SUB_MATHBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,14486,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,14487,"ide_methods.bas");}while(r); -S_49700:; -dl_continue_5623:; -}while((!(*_SUB_MATHBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5623:; -if(qbevent){evnt(25066,14488,"ide_methods.bas");if(r)goto S_49700;} -S_49701:; -if ((*_SUB_MATHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,14489,"ide_methods.bas");if(r)goto S_49701;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,14489,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,14489,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_MATHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14491,"ide_methods.bas");}while(r); -S_49707:; -if ((*_SUB_MATHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,14492,"ide_methods.bas");if(r)goto S_49707;} -S_49708:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,14493,"ide_methods.bas");if(r)goto S_49708;} -do{ -*_SUB_MATHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14494,"ide_methods.bas");}while(r); -S_49710:; -if (((-(*_SUB_MATHBOX_LONG_K>= 65 ))&(-(*_SUB_MATHBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,14495,"ide_methods.bas");if(r)goto S_49710;} -do{ -qbs_set(_SUB_MATHBOX_STRING_ALTLETTER,func_chr(*_SUB_MATHBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14495,"ide_methods.bas");}while(r); -} -S_49713:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,14496,"ide_methods.bas");if(r)goto S_49713;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,14496,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14499,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,14499,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14499,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,14503,"ide_methods.bas");}while(r); -S_49722:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,14504,"ide_methods.bas");if(r)goto S_49722;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14504,"ide_methods.bas");}while(r); -} -S_49725:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,14505,"ide_methods.bas");if(r)goto S_49725;} -do{ -*_SUB_MATHBOX_LONG_FOCUS=*_SUB_MATHBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,14505,"ide_methods.bas");}while(r); -} -S_49728:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,14506,"ide_methods.bas");if(r)goto S_49728;} -do{ -*_SUB_MATHBOX_LONG_FOCUS=*_SUB_MATHBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,14506,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14506,"ide_methods.bas");}while(r); -} -S_49732:; -if ((-(*_SUB_MATHBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,14507,"ide_methods.bas");if(r)goto S_49732;} -do{ -*_SUB_MATHBOX_LONG_FOCUS=*_SUB_MATHBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,14507,"ide_methods.bas");}while(r); -} -S_49735:; -if ((-(*_SUB_MATHBOX_LONG_FOCUS>*_SUB_MATHBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,14508,"ide_methods.bas");if(r)goto S_49735;} -do{ -*_SUB_MATHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,14508,"ide_methods.bas");}while(r); -} -S_49738:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterthan(__STRING_K,func_chr( 31 )))&(qbs_lessthan(__STRING_K,func_chr( 123 )))))||new_error){ -if(qbevent){evnt(25066,14509,"ide_methods.bas");if(r)goto S_49738;} -do{ -qbs_set(_SUB_MATHBOX_STRING_MESSAGESTR,qbs_add(_SUB_MATHBOX_STRING_MESSAGESTR,__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14509,"ide_methods.bas");}while(r); -} -S_49741:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ -if(qbevent){evnt(25066,14510,"ide_methods.bas");if(r)goto S_49741;} -do{ -qbs_set(_SUB_MATHBOX_STRING_MESSAGESTR,qbs_left(_SUB_MATHBOX_STRING_MESSAGESTR,_SUB_MATHBOX_STRING_MESSAGESTR->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14510,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,14511,"ide_methods.bas");}while(r); -S_49745:; -fornext_value5627= 1 ; -fornext_finalvalue5627= 100 ; -fornext_step5627= 1 ; -if (fornext_step5627<0) fornext_step_negative5627=1; else fornext_step_negative5627=0; -if (new_error) goto fornext_error5627; -goto fornext_entrylabel5627; -while(1){ -fornext_value5627=fornext_step5627+(*_SUB_MATHBOX_LONG_I); -fornext_entrylabel5627: -*_SUB_MATHBOX_LONG_I=fornext_value5627; -if (fornext_step_negative5627){ -if (fornext_value5627fornext_finalvalue5627) break; -} -fornext_error5627:; -if(qbevent){evnt(25066,14512,"ide_methods.bas");if(r)goto S_49745;} -do{ -*_SUB_MATHBOX_LONG_T=*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,14513,"ide_methods.bas");}while(r); -S_49747:; -if ((*_SUB_MATHBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,14514,"ide_methods.bas");if(r)goto S_49747;} -do{ -*_SUB_MATHBOX_LONG_FOCUSOFFSET=*_SUB_MATHBOX_LONG_FOCUS-*_SUB_MATHBOX_LONG_F; -if(!qbevent)break;evnt(25066,14515,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_MATHBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85) ),_SUB_MATHBOX_LONG_FOCUS,_SUB_MATHBOX_LONG_F,_SUB_MATHBOX_LONG_FOCUSOFFSET,__STRING_K,_SUB_MATHBOX_STRING_ALTLETTER,__LONG_MB,_SUB_MATHBOX_LONG_MOUSEDOWN,_SUB_MATHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_MATHBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14516,"ide_methods.bas");}while(r); -} -fornext_continue_5626:; -} -fornext_exit_5626:; -S_49752:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_SUB_MATHBOX_LONG_FOCUS== 1 ))&(-(*_SUB_MATHBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,14522,"ide_methods.bas");if(r)goto S_49752;} -do{ -goto dl_exit_5619; -if(!qbevent)break;evnt(25066,14522,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,14525,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,14526,"ide_methods.bas");}while(r); -dl_continue_5619:; -}while(1); -dl_exit_5619:; -do{ -qbs_set(_SUB_MATHBOX_STRING_TEMP,_SUB_MATHBOX_STRING_MESSAGESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14530,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_TITLESTR,qbs_new_txt_len("(H)ex/(D)ec (U)n(C)omment (ESC)ape/(R)edo",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14531,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_EV,FUNC_EVALUATE_EXPRESSION(_SUB_MATHBOX_STRING_MESSAGESTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14532,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_MESSAGESTR,_SUB_MATHBOX_STRING_EV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14533,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,14536,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_W=_SUB_MATHBOX_STRING_MESSAGESTR->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14537,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_W2=_SUB_MATHBOX_STRING_TITLESTR->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14538,"ide_methods.bas");}while(r); -S_49765:; -if ((-(*_SUB_MATHBOX_LONG_W<*_SUB_MATHBOX_LONG_W2))||new_error){ -if(qbevent){evnt(25066,14539,"ide_methods.bas");if(r)goto S_49765;} -do{ -*_SUB_MATHBOX_LONG_W=*_SUB_MATHBOX_LONG_W2; -if(!qbevent)break;evnt(25066,14539,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_SUB_MATHBOX_UDT_P)) + (0) ),_SUB_MATHBOX_LONG_W,&(pass5630= 4 ),_SUB_MATHBOX_STRING_TITLESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14540,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_I=*_SUB_MATHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14542,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+36))= 3 ; -if(!qbevent)break;evnt(25066,14543,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+24))= 4 ; -if(!qbevent)break;evnt(25066,14544,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+44))=FUNC_IDENEWTXT(qbs_new_txt_len("OK",2)); -if(!qbevent)break;evnt(25066,14545,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+48))= 1 ; -if(!qbevent)break;evnt(25066,14546,"ide_methods.bas");}while(r); -S_49774:; -fornext_value5632= 1 ; -fornext_finalvalue5632= 100 ; -fornext_step5632= 1 ; -if (fornext_step5632<0) fornext_step_negative5632=1; else fornext_step_negative5632=0; -if (new_error) goto fornext_error5632; -goto fornext_entrylabel5632; -while(1){ -fornext_value5632=fornext_step5632+(*_SUB_MATHBOX_LONG_I); -fornext_entrylabel5632: -*_SUB_MATHBOX_LONG_I=fornext_value5632; -if (fornext_step_negative5632){ -if (fornext_value5632fornext_finalvalue5632) break; -} -fornext_error5632:; -if(qbevent){evnt(25066,14550,"ide_methods.bas");if(r)goto S_49774;} -do{ -memcpy(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85)+ 0,((char*)_SUB_MATHBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(25066,14550,"ide_methods.bas");}while(r); -fornext_continue_5631:; -} -fornext_exit_5631:; -S_49777:; -do{ -if(qbevent){evnt(25066,14556,"ide_methods.bas");if(r)goto S_49777;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_SUB_MATHBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(25066,14560,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,14561,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(25066,14561,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(25066,14561,"ide_methods.bas");}while(r); -S_49782:; -fornext_value5635= 1 ; -fornext_finalvalue5635= 100 ; -fornext_step5635= 1 ; -if (fornext_step5635<0) fornext_step_negative5635=1; else fornext_step_negative5635=0; -if (new_error) goto fornext_error5635; -goto fornext_entrylabel5635; -while(1){ -fornext_value5635=fornext_step5635+(*_SUB_MATHBOX_LONG_I); -fornext_entrylabel5635: -*_SUB_MATHBOX_LONG_I=fornext_value5635; -if (fornext_step_negative5635){ -if (fornext_value5635fornext_finalvalue5635) break; -} -fornext_error5635:; -if(qbevent){evnt(25066,14562,"ide_methods.bas");if(r)goto S_49782;} -S_49783:; -if ((*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+36)))||new_error){ -if(qbevent){evnt(25066,14563,"ide_methods.bas");if(r)goto S_49783;} -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+60))=*_SUB_MATHBOX_LONG_FOCUS-*_SUB_MATHBOX_LONG_F; -if(!qbevent)break;evnt(25066,14566,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+52))= 0 ; -if(!qbevent)break;evnt(25066,14567,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+56))= 0 ; -if(!qbevent)break;evnt(25066,14567,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_SUB_MATHBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85) ),_SUB_MATHBOX_LONG_F); -if(!qbevent)break;evnt(25066,14568,"ide_methods.bas");}while(r); -S_49788:; -if ((*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+52)))||new_error){ -if(qbevent){evnt(25066,14569,"ide_methods.bas");if(r)goto S_49788;} -do{ -*_SUB_MATHBOX_LONG_CX=*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+52)); -if(!qbevent)break;evnt(25066,14569,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CY=*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+56)); -if(!qbevent)break;evnt(25066,14569,"ide_methods.bas");}while(r); -} -} -fornext_continue_5634:; -} -fornext_exit_5634:; -do{ -*_SUB_MATHBOX_LONG_LASTFOCUS=*_SUB_MATHBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(25066,14572,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(25066,14576,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_MATHBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_SUB_MATHBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14576,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_MATHBOX_STRING_MESSAGESTR); -if (new_error) goto skip5636; -makefit(tqbs); -qbs_print(tqbs,0); -skip5636: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14576,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(25066,14580,"ide_methods.bas");}while(r); -S_49799:; -if ((*_SUB_MATHBOX_LONG_CX)||new_error){ -if(qbevent){evnt(25066,14581,"ide_methods.bas");if(r)goto S_49799;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14581,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_MATHBOX_LONG_CY,*_SUB_MATHBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(25066,14581,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14581,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(25066,14584,"ide_methods.bas");}while(r); -S_49805:; -do{ -if(qbevent){evnt(25066,14585,"ide_methods.bas");if(r)goto S_49805;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(25066,14586,"ide_methods.bas");}while(r); -S_49807:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(25066,14587,"ide_methods.bas");if(r)goto S_49807;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14587,"ide_methods.bas");}while(r); -} -S_49810:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(25066,14588,"ide_methods.bas");if(r)goto S_49810;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14588,"ide_methods.bas");}while(r); -} -S_49813:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(25066,14589,"ide_methods.bas");if(r)goto S_49813;} -do{ -*_SUB_MATHBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(25066,14589,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14589,"ide_methods.bas");}while(r); -} -S_49817:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(25066,14590,"ide_methods.bas");if(r)goto S_49817;} -do{ -*_SUB_MATHBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(25066,14590,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14590,"ide_methods.bas");}while(r); -} -S_49821:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(25066,14591,"ide_methods.bas");if(r)goto S_49821;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14591,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(25066,14592,"ide_methods.bas");}while(r); -S_49825:; -if ((-(*_SUB_MATHBOX_LONG_ALT!=*_SUB_MATHBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(25066,14592,"ide_methods.bas");if(r)goto S_49825;} -do{ -*_SUB_MATHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(25066,14592,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_OLDALT=*_SUB_MATHBOX_LONG_ALT; -if(!qbevent)break;evnt(25066,14593,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(25066,14594,"ide_methods.bas");}while(r); -S_49830:; -dl_continue_5637:; -}while((!(*_SUB_MATHBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5637:; -if(qbevent){evnt(25066,14595,"ide_methods.bas");if(r)goto S_49830;} -S_49831:; -if ((*_SUB_MATHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,14596,"ide_methods.bas");if(r)goto S_49831;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(25066,14596,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(25066,14596,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_MATHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14598,"ide_methods.bas");}while(r); -S_49837:; -if ((*_SUB_MATHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(25066,14599,"ide_methods.bas");if(r)goto S_49837;} -S_49838:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(25066,14600,"ide_methods.bas");if(r)goto S_49838;} -do{ -*_SUB_MATHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14601,"ide_methods.bas");}while(r); -S_49840:; -if (((-(*_SUB_MATHBOX_LONG_K>= 65 ))&(-(*_SUB_MATHBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(25066,14602,"ide_methods.bas");if(r)goto S_49840;} -do{ -qbs_set(_SUB_MATHBOX_STRING_ALTLETTER,func_chr(*_SUB_MATHBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14602,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14605,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,14605,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14605,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(25066,14609,"ide_methods.bas");}while(r); -S_49849:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25066,14610,"ide_methods.bas");if(r)goto S_49849;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14610,"ide_methods.bas");}while(r); -} -S_49852:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(25066,14611,"ide_methods.bas");if(r)goto S_49852;} -do{ -*_SUB_MATHBOX_LONG_FOCUS=*_SUB_MATHBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(25066,14611,"ide_methods.bas");}while(r); -} -S_49855:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(25066,14612,"ide_methods.bas");if(r)goto S_49855;} -do{ -*_SUB_MATHBOX_LONG_FOCUS=*_SUB_MATHBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(25066,14612,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14612,"ide_methods.bas");}while(r); -} -S_49859:; -if ((-(*_SUB_MATHBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(25066,14613,"ide_methods.bas");if(r)goto S_49859;} -do{ -*_SUB_MATHBOX_LONG_FOCUS=*_SUB_MATHBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(25066,14613,"ide_methods.bas");}while(r); -} -S_49862:; -if ((-(*_SUB_MATHBOX_LONG_FOCUS>*_SUB_MATHBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(25066,14614,"ide_methods.bas");if(r)goto S_49862;} -do{ -*_SUB_MATHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(25066,14614,"ide_methods.bas");}while(r); -} -S_49865:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,qbs_new_txt_len("H",1)))|(qbs_equal(__STRING_K,qbs_new_txt_len("h",1)))))||new_error){ -if(qbevent){evnt(25066,14615,"ide_methods.bas");if(r)goto S_49865;} -do{ -qbs_set(_SUB_MATHBOX_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_SUB_MATHBOX_STRING_EV)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14615,"ide_methods.bas");}while(r); -} -S_49868:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,qbs_new_txt_len("D",1)))|(qbs_equal(__STRING_K,qbs_new_txt_len("d",1)))))||new_error){ -if(qbevent){evnt(25066,14616,"ide_methods.bas");if(r)goto S_49868;} -do{ -qbs_set(_SUB_MATHBOX_STRING_EV,qbs_str((long double)(func_val(_SUB_MATHBOX_STRING_EV)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14616,"ide_methods.bas");}while(r); -} -S_49871:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,qbs_new_txt_len("U",1)))|(qbs_equal(__STRING_K,qbs_new_txt_len("u",1)))))||new_error){ -if(qbevent){evnt(25066,14617,"ide_methods.bas");if(r)goto S_49871;} -do{ -*_SUB_MATHBOX_LONG_COMMENT= 0 ; -if(!qbevent)break;evnt(25066,14617,"ide_methods.bas");}while(r); -} -S_49874:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,qbs_new_txt_len("C",1)))|(qbs_equal(__STRING_K,qbs_new_txt_len("c",1)))))||new_error){ -if(qbevent){evnt(25066,14618,"ide_methods.bas");if(r)goto S_49874;} -do{ -*_SUB_MATHBOX_LONG_COMMENT= -1 ; -if(!qbevent)break;evnt(25066,14618,"ide_methods.bas");}while(r); -} -S_49877:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,qbs_new_txt_len("R",1)))|(qbs_equal(__STRING_K,qbs_new_txt_len("r",1)))))||new_error){ -if(qbevent){evnt(25066,14619,"ide_methods.bas");if(r)goto S_49877;} -do{ -goto LABEL_DOANOTHER; -if(!qbevent)break;evnt(25066,14619,"ide_methods.bas");}while(r); -} -S_49880:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(25066,14620,"ide_methods.bas");if(r)goto S_49880;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,14620,"ide_methods.bas");}while(r); -} -S_49883:; -if ((*_SUB_MATHBOX_LONG_COMMENT)||new_error){ -if(qbevent){evnt(25066,14621,"ide_methods.bas");if(r)goto S_49883;} -do{ -qbs_set(_SUB_MATHBOX_STRING_MESSAGESTR,qbs_add(qbs_add(_SUB_MATHBOX_STRING_EV,qbs_new_txt_len(" ' ",3)),_SUB_MATHBOX_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14621,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_MATHBOX_STRING_MESSAGESTR,_SUB_MATHBOX_STRING_EV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14621,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(25066,14623,"ide_methods.bas");}while(r); -S_49889:; -fornext_value5640= 1 ; -fornext_finalvalue5640= 100 ; -fornext_step5640= 1 ; -if (fornext_step5640<0) fornext_step_negative5640=1; else fornext_step_negative5640=0; -if (new_error) goto fornext_error5640; -goto fornext_entrylabel5640; -while(1){ -fornext_value5640=fornext_step5640+(*_SUB_MATHBOX_LONG_I); -fornext_entrylabel5640: -*_SUB_MATHBOX_LONG_I=fornext_value5640; -if (fornext_step_negative5640){ -if (fornext_value5640fornext_finalvalue5640) break; -} -fornext_error5640:; -if(qbevent){evnt(25066,14624,"ide_methods.bas");if(r)goto S_49889;} -do{ -*_SUB_MATHBOX_LONG_T=*(int32*)(((char*)_SUB_MATHBOX_ARRAY_UDT_O[0])+((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85+36)); -if(!qbevent)break;evnt(25066,14625,"ide_methods.bas");}while(r); -S_49891:; -if ((*_SUB_MATHBOX_LONG_T)||new_error){ -if(qbevent){evnt(25066,14626,"ide_methods.bas");if(r)goto S_49891;} -do{ -*_SUB_MATHBOX_LONG_FOCUSOFFSET=*_SUB_MATHBOX_LONG_FOCUS-*_SUB_MATHBOX_LONG_F; -if(!qbevent)break;evnt(25066,14627,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_SUB_MATHBOX_ARRAY_UDT_O[0])) + ((array_check((*_SUB_MATHBOX_LONG_I)-_SUB_MATHBOX_ARRAY_UDT_O[4],_SUB_MATHBOX_ARRAY_UDT_O[5]))*85) ),_SUB_MATHBOX_LONG_FOCUS,_SUB_MATHBOX_LONG_F,_SUB_MATHBOX_LONG_FOCUSOFFSET,__STRING_K,_SUB_MATHBOX_STRING_ALTLETTER,__LONG_MB,_SUB_MATHBOX_LONG_MOUSEDOWN,_SUB_MATHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_SUB_MATHBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14628,"ide_methods.bas");}while(r); -} -fornext_continue_5639:; -} -fornext_exit_5639:; -S_49896:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_SUB_MATHBOX_LONG_FOCUS== 1 ))&(-(*_SUB_MATHBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(25066,14634,"ide_methods.bas");if(r)goto S_49896;} -do{ -goto dl_exit_5633; -if(!qbevent)break;evnt(25066,14634,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(25066,14637,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(25066,14638,"ide_methods.bas");}while(r); -dl_continue_5633:; -}while(1); -dl_exit_5633:; -S_49902:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_MATHBOX_STRING_MESSAGESTR,qbs_new_txt_len(" LINES INSERTED",15),0)))||new_error){ -if(qbevent){evnt(25066,14641,"ide_methods.bas");if(r)goto S_49902;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,14641,"ide_methods.bas");}while(r); -} -do{ -*_SUB_MATHBOX_LONG_L=*__LONG_IDECY; -if(!qbevent)break;evnt(25066,14643,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_A,FUNC_IDEGETLINE(_SUB_MATHBOX_LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14644,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_L,qbs_left(_SUB_MATHBOX_STRING_A,*__LONG_IDECX- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14645,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_R,qbs_right(_SUB_MATHBOX_STRING_A,_SUB_MATHBOX_STRING_A->len-*__LONG_IDECX+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14645,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_TEXT,qbs_add(qbs_add(_SUB_MATHBOX_STRING_L,_SUB_MATHBOX_STRING_MESSAGESTR),_SUB_MATHBOX_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14646,"ide_methods.bas");}while(r); -do{ -*_SUB_MATHBOX_LONG_TEXTLEN=_SUB_MATHBOX_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14647,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_L,qbs_left(__STRING_IDET,*__LONG_IDELI- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14648,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_M,qbs_add(qbs_add(l2string(*_SUB_MATHBOX_LONG_TEXTLEN),_SUB_MATHBOX_STRING_TEXT),l2string(*_SUB_MATHBOX_LONG_TEXTLEN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14649,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_MATHBOX_STRING_R,qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI-_SUB_MATHBOX_STRING_A->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14650,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(_SUB_MATHBOX_STRING_L,_SUB_MATHBOX_STRING_M),_SUB_MATHBOX_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14651,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+_SUB_MATHBOX_STRING_MESSAGESTR->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14652,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free203.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} void SUB_SORT(ptrszint*_SUB_SORT_ARRAY_STRING998_ARR){ qbs *tqbs; ptrszint tmp_long; @@ -176227,70 +195859,70 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data204.txt" +#include "data221.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_49916:; -fornext_value5647=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1)+ 1 ; -fornext_finalvalue5647=func_ubound(_SUB_SORT_ARRAY_STRING998_ARR,1,1); -fornext_step5647= 1 ; -if (fornext_step5647<0) fornext_step_negative5647=1; else fornext_step_negative5647=0; -if (new_error) goto fornext_error5647; -goto fornext_entrylabel5647; +S_56245:; +fornext_value6237=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1)+ 1 ; +fornext_finalvalue6237=func_ubound(_SUB_SORT_ARRAY_STRING998_ARR,1,1); +fornext_step6237= 1 ; +if (fornext_step6237<0) fornext_step_negative6237=1; else fornext_step_negative6237=0; +if (new_error) goto fornext_error6237; +goto fornext_entrylabel6237; while(1){ -fornext_value5647=fornext_step5647+(*_SUB_SORT_LONG_I); -fornext_entrylabel5647: -*_SUB_SORT_LONG_I=fornext_value5647; +fornext_value6237=fornext_step6237+(*_SUB_SORT_LONG_I); +fornext_entrylabel6237: +*_SUB_SORT_LONG_I=fornext_value6237; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5647){ -if (fornext_value5647fornext_finalvalue5647) break; +if (fornext_value6237>fornext_finalvalue6237) break; } -fornext_error5647:; -if(qbevent){evnt(25066,14657,"ide_methods.bas");if(r)goto S_49916;} +fornext_error6237:; +if(qbevent){evnt(26307,19286,"ide_methods.bas");if(r)goto S_56245;} do{ qbs_set(_SUB_SORT_STRING_X,qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_I)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14658,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19287,"ide_methods.bas");}while(r); do{ *_SUB_SORT_LONG_J=*_SUB_SORT_LONG_I- 1 ; -if(!qbevent)break;evnt(25066,14659,"ide_methods.bas");}while(r); -S_49919:; +if(!qbevent)break;evnt(26307,19288,"ide_methods.bas");}while(r); +S_56248:; while((qbs_cleanup(qbs_tmp_base,-(*_SUB_SORT_LONG_J>=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1))))||new_error){ -if(qbevent){evnt(25066,14660,"ide_methods.bas");if(r)goto S_49919;} -S_49920:; +if(qbevent){evnt(26307,19289,"ide_methods.bas");if(r)goto S_56248;} +S_56249:; if ((qbs_cleanup(qbs_tmp_base,qbs_lessorequal(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_J)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1),_SUB_SORT_STRING_X)))||new_error){ -if(qbevent){evnt(25066,14661,"ide_methods.bas");if(r)goto S_49920;} +if(qbevent){evnt(26307,19290,"ide_methods.bas");if(r)goto S_56249;} do{ -goto ww_exit_5648; -if(!qbevent)break;evnt(25066,14661,"ide_methods.bas");}while(r); +goto ww_exit_6238; +if(!qbevent)break;evnt(26307,19290,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*_SUB_SORT_LONG_J+ 1 )-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[tmp_long*998],998,1),qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_J)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14662,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19291,"ide_methods.bas");}while(r); do{ *_SUB_SORT_LONG_J=*_SUB_SORT_LONG_J- 1 ; -if(!qbevent)break;evnt(25066,14663,"ide_methods.bas");}while(r); -ww_continue_5648:; +if(!qbevent)break;evnt(26307,19292,"ide_methods.bas");}while(r); +ww_continue_6238:; } -ww_exit_5648:; +ww_exit_6238:; do{ tmp_long=array_check((*_SUB_SORT_LONG_J+ 1 )-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]); if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[tmp_long*998],998,1),_SUB_SORT_STRING_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14665,"ide_methods.bas");}while(r); -fornext_continue_5646:; +if(!qbevent)break;evnt(26307,19294,"ide_methods.bas");}while(r); +fornext_continue_6236:; } -fornext_exit_5646:; +fornext_exit_6236:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free204.txt" +#include "free221.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -176301,144 +195933,119 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data205.txt" +#include "data222.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_49928:; -fornext_value5650= 1 ; -fornext_finalvalue5650=*__LONG_IDEN; -fornext_step5650= 1 ; -if (fornext_step5650<0) fornext_step_negative5650=1; else fornext_step_negative5650=0; -if (new_error) goto fornext_error5650; -goto fornext_entrylabel5650; -while(1){ -fornext_value5650=fornext_step5650+(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_TITLE); -fornext_entrylabel5650: -*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_TITLE=fornext_value5650; -if (fornext_step_negative5650){ -if (fornext_value5650fornext_finalvalue5650) break; -} -fornext_error5650:; -if(qbevent){evnt(25066,14673,"ide_methods.bas");if(r)goto S_49928;} do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDPROPOSEDTITLE_LONG_FIND_TITLE)); +if(!qbevent)break;evnt(26307,19302,"ide_methods.bas");}while(r); +S_56258:; +fornext_value6240= 1 ; +fornext_finalvalue6240=*__LONG_IDEN; +fornext_step6240= 1 ; +if (fornext_step6240<0) fornext_step_negative6240=1; else fornext_step_negative6240=0; +if (new_error) goto fornext_error6240; +goto fornext_entrylabel6240; +while(1){ +fornext_value6240=fornext_step6240+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); +fornext_entrylabel6240: +*_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value6240; +if (fornext_step_negative6240){ +if (fornext_value6240fornext_finalvalue6240) break; +} +fornext_error6240:; +if(qbevent){evnt(26307,19303,"ide_methods.bas");if(r)goto S_56258;} +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDPROPOSEDTITLE_LONG_I)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14674,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19304,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14675,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19305,"ide_methods.bas");}while(r); do{ *_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE=func_instr(NULL,qbs_ucase(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE),qbs_add(qbs_new_txt_len("_TITLE ",7),func_chr( 34 )),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14676,"ide_methods.bas");}while(r); -S_49932:; +if(!qbevent)break;evnt(26307,19306,"ide_methods.bas");}while(r); +S_56262:; if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE> 0 ))||new_error){ -if(qbevent){evnt(25066,14677,"ide_methods.bas");if(r)goto S_49932;} +if(qbevent){evnt(26307,19307,"ide_methods.bas");if(r)goto S_56262;} do{ -*_FUNC_FINDPROPOSEDTITLE_BYTE_INQUOTE= 0 ; -if(!qbevent)break;evnt(25066,14678,"ide_methods.bas");}while(r); -S_49934:; -fornext_value5652= 1 ; -fornext_finalvalue5652=*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE; -fornext_step5652= 1 ; -if (fornext_step5652<0) fornext_step_negative5652=1; else fornext_step_negative5652=0; -if (new_error) goto fornext_error5652; -goto fornext_entrylabel5652; -while(1){ -fornext_value5652=fornext_step5652+(*_FUNC_FINDPROPOSEDTITLE_LONG_CHECK_QUOTES); -fornext_entrylabel5652: -*_FUNC_FINDPROPOSEDTITLE_LONG_CHECK_QUOTES=fornext_value5652; -if (fornext_step_negative5652){ -if (fornext_value5652fornext_finalvalue5652) break; -} -fornext_error5652:; -if(qbevent){evnt(25066,14679,"ide_methods.bas");if(r)goto S_49934;} -S_49935:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,*_FUNC_FINDPROPOSEDTITLE_LONG_CHECK_QUOTES, 1 ,1),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(25066,14680,"ide_methods.bas");if(r)goto S_49935;} -do{ -*_FUNC_FINDPROPOSEDTITLE_BYTE_INQUOTE=~(*_FUNC_FINDPROPOSEDTITLE_BYTE_INQUOTE); -if(!qbevent)break;evnt(25066,14680,"ide_methods.bas");}while(r); -} -fornext_continue_5651:; -} -fornext_exit_5651:; -S_49939:; -if ((~(*_FUNC_FINDPROPOSEDTITLE_BYTE_INQUOTE))||new_error){ -if(qbevent){evnt(25066,14682,"ide_methods.bas");if(r)goto S_49939;} +SUB_FINDQUOTECOMMENT(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE,_FUNC_FINDPROPOSEDTITLE_BYTE_C,_FUNC_FINDPROPOSEDTITLE_BYTE_Q); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19308,"ide_methods.bas");}while(r); +S_56264:; +if ((~(*_FUNC_FINDPROPOSEDTITLE_BYTE_Q))||new_error){ +if(qbevent){evnt(26307,19309,"ide_methods.bas");if(r)goto S_56264;} do{ *_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE=func_instr(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,func_chr( 34 ),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14683,"ide_methods.bas");}while(r); -S_49941:; +if(!qbevent)break;evnt(26307,19310,"ide_methods.bas");}while(r); +S_56266:; if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE> 0 ))||new_error){ -if(qbevent){evnt(25066,14684,"ide_methods.bas");if(r)goto S_49941;} +if(qbevent){evnt(26307,19311,"ide_methods.bas");if(r)goto S_56266;} do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE-*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE)- 8 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14685,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19312,"ide_methods.bas");}while(r); } do{ -goto fornext_exit_5649; -if(!qbevent)break;evnt(25066,14687,"ide_methods.bas");}while(r); +goto fornext_exit_6239; +if(!qbevent)break;evnt(26307,19314,"ide_methods.bas");}while(r); } } -fornext_continue_5649:; +fornext_continue_6239:; } -fornext_exit_5649:; +fornext_exit_6239:; do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,qbs_add(qbs_new_txt_len(":/\\?*><|",8),func_chr( 34 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14692,"ide_methods.bas");}while(r); -S_49949:; -fornext_value5654= 1 ; -fornext_finalvalue5654=_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE->len; -fornext_step5654= 1 ; -if (fornext_step5654<0) fornext_step_negative5654=1; else fornext_step_negative5654=0; -if (new_error) goto fornext_error5654; -goto fornext_entrylabel5654; +if(!qbevent)break;evnt(26307,19319,"ide_methods.bas");}while(r); +S_56274:; +fornext_value6242= 1 ; +fornext_finalvalue6242=_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE->len; +fornext_step6242= 1 ; +if (fornext_step6242<0) fornext_step_negative6242=1; else fornext_step_negative6242=0; +if (new_error) goto fornext_error6242; +goto fornext_entrylabel6242; while(1){ -fornext_value5654=fornext_step5654+(*_FUNC_FINDPROPOSEDTITLE_LONG_WIPE_INVALID); -fornext_entrylabel5654: -*_FUNC_FINDPROPOSEDTITLE_LONG_WIPE_INVALID=fornext_value5654; +fornext_value6242=fornext_step6242+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); +fornext_entrylabel6242: +*_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value6242; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5654){ -if (fornext_value5654fornext_finalvalue5654) break; +if (fornext_value6242>fornext_finalvalue6242) break; } -fornext_error5654:; -if(qbevent){evnt(25066,14693,"ide_methods.bas");if(r)goto S_49949;} +fornext_error6242:; +if(qbevent){evnt(26307,19320,"ide_methods.bas");if(r)goto S_56274;} do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,*_FUNC_FINDPROPOSEDTITLE_LONG_WIPE_INVALID, 1 ,1)); +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,*_FUNC_FINDPROPOSEDTITLE_LONG_I, 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14694,"ide_methods.bas");}while(r); -S_49951:; +if(!qbevent)break;evnt(26307,19321,"ide_methods.bas");}while(r); +S_56276:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,0)== 0 )))||new_error){ -if(qbevent){evnt(25066,14695,"ide_methods.bas");if(r)goto S_49951;} +if(qbevent){evnt(26307,19322,"ide_methods.bas");if(r)goto S_56276;} do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE,qbs_add(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14696,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19323,"ide_methods.bas");}while(r); } -fornext_continue_5653:; +fornext_continue_6241:; } -fornext_exit_5653:; +fornext_exit_6241:; do{ qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE,qbs_ltrim(qbs_rtrim(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14700,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19327,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free205.txt" +#include "free222.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE);return _FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE; @@ -176450,7 +196057,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data206.txt" +#include "data223.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -176459,243 +196066,392 @@ if (new_error) goto exit_subfunc; do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14706,"ide_methods.bas");}while(r); -S_49957:; +if(!qbevent)break;evnt(26307,19335,"ide_methods.bas");}while(r); +S_56282:; if ((-(*_FUNC_FINDCURRENTSF_LONG_WHICHLINE> 0 ))||new_error){ -if(qbevent){evnt(25066,14707,"ide_methods.bas");if(r)goto S_49957;} -S_49958:; -fornext_value5657=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; -fornext_finalvalue5657= 1 ; -fornext_step5657= -1 ; -if (fornext_step5657<0) fornext_step_negative5657=1; else fornext_step_negative5657=0; -if (new_error) goto fornext_error5657; -goto fornext_entrylabel5657; +if(qbevent){evnt(26307,19336,"ide_methods.bas");if(r)goto S_56282;} +S_56283:; +fornext_value6245=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; +fornext_finalvalue6245= 1 ; +fornext_step6245= -1 ; +if (fornext_step6245<0) fornext_step_negative6245=1; else fornext_step_negative6245=0; +if (new_error) goto fornext_error6245; +goto fornext_entrylabel6245; while(1){ -fornext_value5657=fornext_step5657+(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK); -fornext_entrylabel5657: -*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK=fornext_value5657; -if (fornext_step_negative5657){ -if (fornext_value5657fornext_finalvalue5657) break; +if (fornext_value6245>fornext_finalvalue6245) break; } -fornext_error5657:; -if(qbevent){evnt(25066,14708,"ide_methods.bas");if(r)goto S_49958;} +fornext_error6245:; +if(qbevent){evnt(26307,19337,"ide_methods.bas");if(r)goto S_56283;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14709,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19338,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14710,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19339,"ide_methods.bas");}while(r); do{ *_FUNC_FINDCURRENTSF_LONG_ISSF= 0 ; -if(!qbevent)break;evnt(25066,14711,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19340,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14712,"ide_methods.bas");}while(r); -S_49963:; +if(!qbevent)break;evnt(26307,19341,"ide_methods.bas");}while(r); +S_56288:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(25066,14713,"ide_methods.bas");if(r)goto S_49963;} +if(qbevent){evnt(26307,19342,"ide_methods.bas");if(r)goto S_56288;} do{ *_FUNC_FINDCURRENTSF_LONG_ISSF= 1 ; -if(!qbevent)break;evnt(25066,14713,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19342,"ide_methods.bas");}while(r); } -S_49966:; +S_56291:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(25066,14714,"ide_methods.bas");if(r)goto S_49966;} +if(qbevent){evnt(26307,19343,"ide_methods.bas");if(r)goto S_56291;} do{ *_FUNC_FINDCURRENTSF_LONG_ISSF= 2 ; -if(!qbevent)break;evnt(25066,14714,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19343,"ide_methods.bas");}while(r); } -S_49969:; -if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF> 0 ))||new_error){ -if(qbevent){evnt(25066,14715,"ide_methods.bas");if(r)goto S_49969;} -S_49970:; +S_56294:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26307,19344,"ide_methods.bas");if(r)goto S_56294;} +do{ +goto fornext_exit_6244; +if(!qbevent)break;evnt(26307,19344,"ide_methods.bas");}while(r); +} +S_56297:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26307,19345,"ide_methods.bas");if(r)goto S_56297;} +do{ +goto fornext_exit_6244; +if(!qbevent)break;evnt(26307,19345,"ide_methods.bas");}while(r); +} +S_56300:; +if ((*_FUNC_FINDCURRENTSF_LONG_ISSF)||new_error){ +if(qbevent){evnt(26307,19346,"ide_methods.bas");if(r)goto S_56300;} +S_56301:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(25066,14716,"ide_methods.bas");if(r)goto S_49970;} +if(qbevent){evnt(26307,19347,"ide_methods.bas");if(r)goto S_56301;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 7 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14717,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19348,"ide_methods.bas");}while(r); +} +S_56304:; +if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF== 1 ))||new_error){ +if(qbevent){evnt(26307,19351,"ide_methods.bas");if(r)goto S_56304;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19352,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19354,"ide_methods.bas");}while(r); } do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_rtrim(qbs_ltrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14720,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19356,"ide_methods.bas");}while(r); do{ *_FUNC_FINDCURRENTSF_LONG_CHECKARGS=func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_new_txt_len("(",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14721,"ide_methods.bas");}while(r); -S_49975:; -if ((-(*_FUNC_FINDCURRENTSF_LONG_CHECKARGS> 0 ))||new_error){ -if(qbevent){evnt(25066,14722,"ide_methods.bas");if(r)goto S_49975;} +if(!qbevent)break;evnt(26307,19357,"ide_methods.bas");}while(r); +S_56311:; +if ((*_FUNC_FINDCURRENTSF_LONG_CHECKARGS)||new_error){ +if(qbevent){evnt(26307,19358,"ide_methods.bas");if(r)goto S_56311;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,*_FUNC_FINDCURRENTSF_LONG_CHECKARGS- 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14723,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19359,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,_FUNC_FINDCURRENTSF_STRING_THISLINE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14725,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19361,"ide_methods.bas");}while(r); } do{ *_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(25066,14730,"ide_methods.bas");}while(r); -S_49981:; -fornext_value5660=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK; -fornext_finalvalue5660= 1 ; -fornext_step5660= -1 ; -if (fornext_step5660<0) fornext_step_negative5660=1; else fornext_step_negative5660=0; -if (new_error) goto fornext_error5660; -goto fornext_entrylabel5660; +if(!qbevent)break;evnt(26307,19366,"ide_methods.bas");}while(r); +S_56317:; +fornext_value6250=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK; +fornext_finalvalue6250= 1 ; +fornext_step6250= -1 ; +if (fornext_step6250<0) fornext_step_negative6250=1; else fornext_step_negative6250=0; +if (new_error) goto fornext_error6250; +goto fornext_entrylabel6250; while(1){ -fornext_value5660=fornext_step5660+(*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK); -fornext_entrylabel5660: -*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK=fornext_value5660; -if (fornext_step_negative5660){ -if (fornext_value5660fornext_finalvalue5660) break; +if (fornext_value6250>fornext_finalvalue6250) break; } -fornext_error5660:; -if(qbevent){evnt(25066,14731,"ide_methods.bas");if(r)goto S_49981;} +fornext_error6250:; +if(qbevent){evnt(26307,19367,"ide_methods.bas");if(r)goto S_56317;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14732,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19368,"ide_methods.bas");}while(r); do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_rtrim(qbs_ltrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14733,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19369,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14734,"ide_methods.bas");}while(r); -S_49985:; +if(!qbevent)break;evnt(26307,19370,"ide_methods.bas");}while(r); +S_56321:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(25066,14735,"ide_methods.bas");if(r)goto S_49985;} +if(qbevent){evnt(26307,19371,"ide_methods.bas");if(r)goto S_56321;} do{ *_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(25066,14735,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19371,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5659; -if(!qbevent)break;evnt(25066,14735,"ide_methods.bas");}while(r); +goto fornext_exit_6249; +if(!qbevent)break;evnt(26307,19371,"ide_methods.bas");}while(r); } -S_49989:; +S_56325:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(25066,14736,"ide_methods.bas");if(r)goto S_49989;} +if(qbevent){evnt(26307,19372,"ide_methods.bas");if(r)goto S_56325;} do{ -goto fornext_exit_5659; -if(!qbevent)break;evnt(25066,14736,"ide_methods.bas");}while(r); +goto fornext_exit_6249; +if(!qbevent)break;evnt(26307,19372,"ide_methods.bas");}while(r); } -fornext_continue_5659:; +fornext_continue_6249:; } -fornext_exit_5659:; -S_49993:; +fornext_exit_6249:; +S_56329:; if ((-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== -1 ))||new_error){ -if(qbevent){evnt(25066,14739,"ide_methods.bas");if(r)goto S_49993;} +if(qbevent){evnt(26307,19375,"ide_methods.bas");if(r)goto S_56329;} do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14740,"ide_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,19376,"ide_methods.bas");}while(r); +}else{ do{ -goto fornext_exit_5656; -if(!qbevent)break;evnt(25066,14742,"ide_methods.bas");}while(r); +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 0 ; +if(!qbevent)break;evnt(26307,19382,"ide_methods.bas");}while(r); +S_56333:; +fornext_value6252=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; +fornext_finalvalue6252=*__LONG_IDEN; +fornext_step6252= 1 ; +if (fornext_step6252<0) fornext_step_negative6252=1; else fornext_step_negative6252=0; +if (new_error) goto fornext_error6252; +goto fornext_entrylabel6252; +while(1){ +fornext_value6252=fornext_step6252+(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK); +fornext_entrylabel6252: +*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK=fornext_value6252; +if (fornext_step_negative6252){ +if (fornext_value6252fornext_finalvalue6252) break; } -fornext_continue_5656:; +fornext_error6252:; +if(qbevent){evnt(26307,19383,"ide_methods.bas");if(r)goto S_56333;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19384,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19385,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19386,"ide_methods.bas");}while(r); +S_56337:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7))))||new_error){ +if(qbevent){evnt(26307,19387,"ide_methods.bas");if(r)goto S_56337;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; +if(!qbevent)break;evnt(26307,19387,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6251; +if(!qbevent)break;evnt(26307,19387,"ide_methods.bas");}while(r); } -fornext_exit_5656:; +S_56341:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12))))||new_error){ +if(qbevent){evnt(26307,19388,"ide_methods.bas");if(r)goto S_56341;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; +if(!qbevent)break;evnt(26307,19388,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6251; +if(!qbevent)break;evnt(26307,19388,"ide_methods.bas");}while(r); +} +S_56345:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26307,19389,"ide_methods.bas");if(r)goto S_56345;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; +if(!qbevent)break;evnt(26307,19389,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6251; +if(!qbevent)break;evnt(26307,19389,"ide_methods.bas");}while(r); +} +S_56349:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26307,19390,"ide_methods.bas");if(r)goto S_56349;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; +if(!qbevent)break;evnt(26307,19390,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6251; +if(!qbevent)break;evnt(26307,19390,"ide_methods.bas");}while(r); +} +S_56353:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||new_error){ +if(qbevent){evnt(26307,19391,"ide_methods.bas");if(r)goto S_56353;} +do{ +goto fornext_exit_6251; +if(!qbevent)break;evnt(26307,19391,"ide_methods.bas");}while(r); +} +S_56356:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||new_error){ +if(qbevent){evnt(26307,19392,"ide_methods.bas");if(r)goto S_56356;} +do{ +goto fornext_exit_6251; +if(!qbevent)break;evnt(26307,19392,"ide_methods.bas");}while(r); +} +S_56359:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ +if(qbevent){evnt(26307,19393,"ide_methods.bas");if(r)goto S_56359;} +do{ +*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; +if(!qbevent)break;evnt(26307,19393,"ide_methods.bas");}while(r); +} +S_56362:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ +if(qbevent){evnt(26307,19394,"ide_methods.bas");if(r)goto S_56362;} +do{ +*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; +if(!qbevent)break;evnt(26307,19394,"ide_methods.bas");}while(r); +} +fornext_continue_6251:; +} +fornext_exit_6251:; +S_56366:; +if ((-(*_FUNC_FINDCURRENTSF_LONG_ENDEDSF== 0 ))||new_error){ +if(qbevent){evnt(26307,19396,"ide_methods.bas");if(r)goto S_56366;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19396,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6244; +if(!qbevent)break;evnt(26307,19396,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_6244:; +} +fornext_exit_6244:; } do{ qbs_set(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF,_FUNC_FINDCURRENTSF_STRING_SFNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14747,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19402,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free206.txt" +#include "free223.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF);return _FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF; } -void SUB_ADDQUICKNAVHISTORY(int32*_SUB_ADDQUICKNAVHISTORY_LONG_LINENUMBER){ +void SUB_ADDQUICKNAVHISTORY(){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data207.txt" +#include "data224.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_50001:; +S_56376:; if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ -if(qbevent){evnt(25066,14752,"ide_methods.bas");if(r)goto S_50001;} -S_50002:; -if ((-(((int32*)(__ARRAY_LONG_QUICKNAVHISTORY[0]))[array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4],__ARRAY_LONG_QUICKNAVHISTORY[5])]==*_SUB_ADDQUICKNAVHISTORY_LONG_LINENUMBER))||new_error){ -if(qbevent){evnt(25066,14753,"ide_methods.bas");if(r)goto S_50002;} +if(qbevent){evnt(26307,19407,"ide_methods.bas");if(r)goto S_56376;} +S_56377:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26307,19408,"ide_methods.bas");if(r)goto S_56377;} do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,14753,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19408,"ide_methods.bas");}while(r); } } do{ *__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL+ 1 ; -if(!qbevent)break;evnt(25066,14756,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19411,"ide_methods.bas");}while(r); do{ -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&2){ +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){ error(10); }else{ -((mem_lock*)((ptrszint*)__ARRAY_LONG_QUICKNAVHISTORY)[8])->id=(++mem_lock_id); +((mem_lock*)((ptrszint*)__ARRAY_UDT_QUICKNAVHISTORY)[8])->id=(++mem_lock_id); static int32 preserved_elements; -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&1){ -preserved_elements=__ARRAY_LONG_QUICKNAVHISTORY[5]; +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&1){ +preserved_elements=__ARRAY_UDT_QUICKNAVHISTORY[5]; } else preserved_elements=0; -__ARRAY_LONG_QUICKNAVHISTORY[4]= 1 ; -__ARRAY_LONG_QUICKNAVHISTORY[5]=(*__LONG_QUICKNAVTOTAL)-__ARRAY_LONG_QUICKNAVHISTORY[4]+1; -__ARRAY_LONG_QUICKNAVHISTORY[6]=1; -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&4){ +__ARRAY_UDT_QUICKNAVHISTORY[4]= 1 ; +__ARRAY_UDT_QUICKNAVHISTORY[5]=(*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4]+1; +__ARRAY_UDT_QUICKNAVHISTORY[6]=1; +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&4){ if (preserved_elements){ -memcpy(redim_preserve_cmem_buffer,(void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),preserved_elements*4); -cmem_dynamic_free((uint8*)(__ARRAY_LONG_QUICKNAVHISTORY[0])); -tmp_long=__ARRAY_LONG_QUICKNAVHISTORY[5]; -__ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4); -memcpy((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0]),redim_preserve_cmem_buffer,preserved_elements*4); -if (preserved_elements=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -176706,86 +196462,133 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data208.txt" +#include "data225.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_50009:; +S_56387:; if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEINFO->len))||new_error){ -if(qbevent){evnt(25066,14764,"ide_methods.bas");if(r)goto S_50009;} -S_50010:; +if(qbevent){evnt(26307,19422,"ide_methods.bas");if(r)goto S_56387;} +S_56388:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_IDEINFO, 1 )== 0 )))||new_error){ -if(qbevent){evnt(25066,14765,"ide_methods.bas");if(r)goto S_50010;} +if(qbevent){evnt(26307,19423,"ide_methods.bas");if(r)goto S_56388;} do{ qbs_set(__STRING_IDEINFO,func_mid(__STRING_IDEINFO, 2 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14767,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19425,"ide_methods.bas");}while(r); do{ *_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE=qbr_float_to_long(func_val(func_mid(__STRING_IDEINFO, 1 , 3 ,1))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14768,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19426,"ide_methods.bas");}while(r); do{ qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14769,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19427,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14770,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string(qbr(((*__LONG_IDEWX- 2 )**_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE)/ ((long double)( 100 ))),(qbs_new_txt_len("_",1)->chr[0]))); -if (new_error) goto skip5662; -makefit(tqbs); -qbs_print(tqbs,0); -skip5662: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 1 ,func_string(qbr(((*__LONG_IDEWX- 2 )**_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE)/ ((long double)( 100 ))),(qbs_new_txt_len("_",1)->chr[0])),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14771,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19428,"ide_methods.bas");}while(r); } } do{ qbs_set(_SUB_UPDATEIDEINFO_STRING_A,__STRING_IDEINFO); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14774,"ide_methods.bas");}while(r); -S_50019:; +if(!qbevent)break;evnt(26307,19431,"ide_methods.bas");}while(r); +S_56396:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len>(*__LONG_IDEWX- 20 ))))||new_error){ -if(qbevent){evnt(25066,14775,"ide_methods.bas");if(r)goto S_50019;} +if(qbevent){evnt(26307,19432,"ide_methods.bas");if(r)goto S_56396;} do{ qbs_set(_SUB_UPDATEIDEINFO_STRING_A,qbs_add(qbs_left(_SUB_UPDATEIDEINFO_STRING_A,(*__LONG_IDEWX- 23 )),func_string( 3 , 250 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14775,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19432,"ide_methods.bas");}while(r); } -S_50022:; +S_56399:; if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len<(*__LONG_IDEWX- 20 ))))||new_error){ -if(qbevent){evnt(25066,14776,"ide_methods.bas");if(r)goto S_50022;} +if(qbevent){evnt(26307,19433,"ide_methods.bas");if(r)goto S_56399;} do{ qbs_set(_SUB_UPDATEIDEINFO_STRING_A,qbs_add(_SUB_UPDATEIDEINFO_STRING_A,func_space((*__LONG_IDEWX- 20 )-_SUB_UPDATEIDEINFO_STRING_A->len))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14776,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19433,"ide_methods.bas");}while(r); } do{ qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,14777,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19434,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14777,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_UPDATEIDEINFO_STRING_A); -if (new_error) goto skip5666; -makefit(tqbs); -qbs_print(tqbs,0); -skip5666: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,_SUB_UPDATEIDEINFO_STRING_A,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14778,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19435,"ide_methods.bas");}while(r); +S_56404:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ +if(qbevent){evnt(26307,19437,"ide_methods.bas");if(r)goto S_56404;} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len(" v",2),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19438,"ide_methods.bas");}while(r); +S_56406:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_AUTOBUILDMSG->len))||new_error){ +if(qbevent){evnt(26307,19439,"ide_methods.bas");if(r)goto S_56406;} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,func_mid(__STRING_AUTOBUILDMSG,func__instrrev(NULL,__STRING_AUTOBUILDMSG,qbs_new_txt_len(" ",1),0),NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19439,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19440,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 2 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,19443,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19444,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,14779,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19446,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free208.txt" +#include "free225.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_UPDATEMENUHELPLINE(qbs*_SUB_UPDATEMENUHELPLINE_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data226.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_56414:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEMENUHELPLINE_STRING_A->len>(*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26307,19450,"ide_methods.bas");if(r)goto S_56414;} +do{ +qbs_set(_SUB_UPDATEMENUHELPLINE_STRING_A,qbs_add(qbs_left(_SUB_UPDATEMENUHELPLINE_STRING_A,(*__LONG_IDEWX- 4 )),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19450,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,19451,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19452,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,_SUB_UPDATEMENUHELPLINE_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19453,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free226.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -176796,98 +196599,110 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data209.txt" +#include "data227.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_50029:; +S_56420:; if ((-(*_FUNC_DARKENFGBG_BYTE_ACTION== 1 ))||new_error){ -if(qbevent){evnt(25066,14785,"ide_methods.bas");if(r)goto S_50029;} +if(qbevent){evnt(26307,19459,"ide_methods.bas");if(r)goto S_56420;} do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14786,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19460,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14787,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19461,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14788,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19462,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14789,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19463,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14790,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19464,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14791,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19465,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERIDECHROMACOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26307,19466,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14792,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19467,"ide_methods.bas");}while(r); do{ *_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(25066,14793,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19468,"ide_methods.bas");}while(r); do{ sub__palettecolor( 1 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14794,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19469,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14795,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19470,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14796,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19471,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERIDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,19472,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14797,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19473,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14798,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19474,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14799,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19475,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14800,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19476,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14801,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19477,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14802,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19478,"ide_methods.bas");}while(r); }else{ do{ sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14804,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19480,"ide_methods.bas");}while(r); do{ sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14805,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19481,"ide_methods.bas");}while(r); do{ sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(25066,14806,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19482,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26307,19483,"ide_methods.bas");}while(r); do{ sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14807,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19484,"ide_methods.bas");}while(r); do{ sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14808,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19485,"ide_methods.bas");}while(r); do{ sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14809,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19486,"ide_methods.bas");}while(r); do{ sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14810,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19487,"ide_methods.bas");}while(r); do{ sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14811,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19488,"ide_methods.bas");}while(r); do{ sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(25066,14812,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19489,"ide_methods.bas");}while(r); } +do{ +*_FUNC_DARKENFGBG_LONG_DARKENFGBG= 0 ; +if(!qbevent)break;evnt(26307,19492,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free209.txt" +#include "free227.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_DARKENFGBG_LONG_DARKENFGBG; @@ -176899,7 +196714,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data210.txt" +#include "data228.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -176907,37 +196722,46 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING=*__INTEGER_BRACKETHIGHLIGHT; -if(!qbevent)break;evnt(25066,14820,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19499,"ide_methods.bas");}while(r); do{ *_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=*__INTEGER_MULTIHIGHLIGHT; -if(!qbevent)break;evnt(25066,14821,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19500,"ide_methods.bas");}while(r); +do{ +*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDSHOWLINENUMBERSUSEBG=*__BYTE_SHOWLINENUMBERSUSEBG; +if(!qbevent)break;evnt(26307,19501,"ide_methods.bas");}while(r); do{ *__INTEGER_BRACKETHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,14822,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19502,"ide_methods.bas");}while(r); do{ *__INTEGER_MULTIHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,14823,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19503,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; +if(!qbevent)break;evnt(26307,19504,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(25066,14824,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19505,"ide_methods.bas");}while(r); do{ *__BYTE_HIDECURRENTLINEHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(25066,14825,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19506,"ide_methods.bas");}while(r); do{ SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(25066,14826,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19507,"ide_methods.bas");}while(r); do{ *__BYTE_HIDECURRENTLINEHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(25066,14827,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19508,"ide_methods.bas");}while(r); do{ *__INTEGER_BRACKETHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING; -if(!qbevent)break;evnt(25066,14828,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19509,"ide_methods.bas");}while(r); do{ *__INTEGER_MULTIHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING; -if(!qbevent)break;evnt(25066,14829,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19510,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERSUSEBG=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDSHOWLINENUMBERSUSEBG; +if(!qbevent)break;evnt(26307,19511,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free210.txt" +#include "free228.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -176948,17 +196772,17 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data211.txt" +#include "data229.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,14833,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19515,"ide_methods.bas");}while(r); do{ -*__INTEGER_PRESETCOLORSCHEMES= 9 ; -if(!qbevent)break;evnt(25066,14835,"ide_methods.bas");}while(r); +*__INTEGER_PRESETCOLORSCHEMES= 10 ; +if(!qbevent)break;evnt(26307,19517,"ide_methods.bas");}while(r); do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ @@ -176983,110 +196807,118 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64) while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -if(!qbevent)break;evnt(25066,14836,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19518,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,14836,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19518,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14837,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19519,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("QB64 Default|226226226147196235245128177255255085085255085085255255000000170000108177000147177",94)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108170170170",106)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14837,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19519,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14838,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19520,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177",95)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177170170170",100)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14838,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19520,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19521,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177",91)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177170170170",104)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14839,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19521,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14840,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19522,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088",89)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177170170170",104)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14840,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19522,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14841,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19523,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177",91)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088170170170",98)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14841,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19523,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14842,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19524,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177",92)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177170170170",100)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14842,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19524,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14843,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19525,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177",86)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177170170170",101)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14843,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19525,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19526,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177",93)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177170170170",95)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14844,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19526,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14845,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19527,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177",91)); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177170170170",102)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14845,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19527,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26307,19528,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177170170170",100)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19528,"ide_methods.bas");}while(r); do{ *__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_PRESETCOLORSCHEMES; -if(!qbevent)break;evnt(25066,14846,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19529,"ide_methods.bas");}while(r); do{ *__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(25066,14847,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19530,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; -if(!qbevent)break;evnt(25066,14850,"ide_methods.bas");}while(r); -S_50093:; +if(!qbevent)break;evnt(26307,19533,"ide_methods.bas");}while(r); +S_56493:; do{ -if(qbevent){evnt(25066,14851,"ide_methods.bas");if(r)goto S_50093;} +if(qbevent){evnt(26307,19534,"ide_methods.bas");if(r)goto S_56493;} do{ *_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,14852,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19535,"ide_methods.bas");}while(r); do{ -*_SUB_LOADCOLORSCHEMES_LONG_RESULT=FUNC_READCONFIGSETTING(qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +*_SUB_LOADCOLORSCHEMES_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14853,"ide_methods.bas");}while(r); -S_50096:; +if(!qbevent)break;evnt(26307,19536,"ide_methods.bas");}while(r); +S_56496:; if ((*_SUB_LOADCOLORSCHEMES_LONG_RESULT)||new_error){ -if(qbevent){evnt(25066,14854,"ide_methods.bas");if(r)goto S_50096;} +if(qbevent){evnt(26307,19537,"ide_methods.bas");if(r)goto S_56496;} do{ *__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_TOTALCOLORSCHEMES+ 1 ; -if(!qbevent)break;evnt(25066,14855,"ide_methods.bas");}while(r); -S_50098:; +if(!qbevent)break;evnt(26307,19538,"ide_methods.bas");}while(r); +S_56498:; if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_TOTALCOLORSCHEMES>func_ubound(__ARRAY_STRING_COLORSCHEMES,1,1))))||new_error){ -if(qbevent){evnt(25066,14856,"ide_methods.bas");if(r)goto S_50098;} +if(qbevent){evnt(26307,19539,"ide_methods.bas");if(r)goto S_56498;} do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ @@ -177131,80 +196963,101 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64) } } } -if(!qbevent)break;evnt(25066,14857,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19540,"ide_methods.bas");}while(r); } do{ tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_VALUE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14859,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19542,"ide_methods.bas");}while(r); do{ *_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE=func_instr(NULL,_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14860,"ide_methods.bas");}while(r); -S_50103:; +if(!qbevent)break;evnt(26307,19543,"ide_methods.bas");}while(r); +S_56503:; if ((-(*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(25066,14861,"ide_methods.bas");if(r)goto S_50103;} -S_50104:; +if(qbevent){evnt(26307,19544,"ide_methods.bas");if(r)goto S_56503;} +S_56504:; if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 81 )))||new_error){ -if(qbevent){evnt(25066,14862,"ide_methods.bas");if(r)goto S_50104;} +if(qbevent){evnt(26307,19545,"ide_methods.bas");if(r)goto S_56504;} do{ *__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(25066,14864,"ide_methods.bas");}while(r); -S_50106:; +if(!qbevent)break;evnt(26307,19547,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_add(_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_new_txt_len("170170170",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19548,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19549,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19550,"ide_methods.bas");}while(r); +S_56509:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 ))){ +if(qbevent){evnt(26307,19551,"ide_methods.bas");if(r)goto S_56509;} +do{ +*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26307,19553,"ide_methods.bas");}while(r); +S_56511:; }else{ if (qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 54 ))){ -if(qbevent){evnt(25066,14865,"ide_methods.bas");if(r)goto S_50106;} +if(qbevent){evnt(26307,19554,"ide_methods.bas");if(r)goto S_56511;} do{ qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_left(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14868,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19557,"ide_methods.bas");}while(r); do{ qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 , 9 ,1)),qbs_new_txt_len("069147216245128177",18))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14869,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19558,"ide_methods.bas");}while(r); do{ -qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 10 ,NULL,0)),qbs_new_txt_len("000147177",9))); +qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 10 ,NULL,0)),qbs_new_txt_len("000147177170170170",18))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14870,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19559,"ide_methods.bas");}while(r); do{ tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_TEMP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14871,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19560,"ide_methods.bas");}while(r); do{ -SUB_WRITECONFIGSETTING(qbs_new_txt_len("'[IDE COLOR SCHEMES]",20),qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_TEMP); +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_TEMP); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14872,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19561,"ide_methods.bas");}while(r); do{ *__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(25066,14873,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19562,"ide_methods.bas");}while(r); }else{ do{ goto LABEL_DISCARDINVALID; -if(!qbevent)break;evnt(25066,14875,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19564,"ide_methods.bas");}while(r); +} } } }else{ LABEL_DISCARDINVALID:; -if(qbevent){evnt(25066,14878,"ide_methods.bas");r=0;} +if(qbevent){evnt(26307,19567,"ide_methods.bas");r=0;} do{ tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("0",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14879,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19568,"ide_methods.bas");}while(r); } }else{ do{ -goto dl_exit_5667; -if(!qbevent)break;evnt(25066,14883,"ide_methods.bas");}while(r); +goto dl_exit_6262; +if(!qbevent)break;evnt(26307,19572,"ide_methods.bas");}while(r); } -dl_continue_5667:; +dl_continue_6262:; }while(1); -dl_exit_5667:; +dl_exit_6262:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free211.txt" +#include "free229.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -177215,7 +197068,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data212.txt" +#include "data230.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -177224,478 +197077,314 @@ if (new_error) goto exit_subfunc; do{ qbs_set(__STRING_FILE,qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK),_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14891,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19580,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,14893,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19582,"ide_methods.bas");}while(r); do{ sub_open(__STRING_FILE, 2 ,NULL,NULL,*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14894,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19583,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,func_space(func_lof(*_FUNC_BINARYFORMATCHECK_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14895,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19584,"ide_methods.bas");}while(r); do{ sub_get2(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,_FUNC_BINARYFORMATCHECK_STRING_A,1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14896,"ide_methods.bas");}while(r); -S_50128:; +if(!qbevent)break;evnt(26307,19585,"ide_methods.bas");}while(r); +S_56533:; if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_BINARYFORMATCHECK_STRING_A,func_chr( 0 ),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,14897,"ide_methods.bas");if(r)goto S_50128;} +if(qbevent){evnt(26307,19586,"ide_methods.bas");if(r)goto S_56533;} do{ sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); -if(!qbevent)break;evnt(25066,14897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19586,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,14897,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19586,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14898,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19587,"ide_methods.bas");}while(r); do{ -sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT,2,byte_element_5671),1); -if(!qbevent)break;evnt(25066,14899,"ide_methods.bas");}while(r); +sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT,2,byte_element_6266),1); +if(!qbevent)break;evnt(26307,19588,"ide_methods.bas");}while(r); do{ -sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_VERSION,2,byte_element_5672),0); -if(!qbevent)break;evnt(25066,14900,"ide_methods.bas");}while(r); +sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_VERSION,2,byte_element_6267),0); +if(!qbevent)break;evnt(26307,19589,"ide_methods.bas");}while(r); do{ sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); -if(!qbevent)break;evnt(25066,14901,"ide_methods.bas");}while(r); -S_50136:; -if(qbevent){evnt(25066,14903,"ide_methods.bas");if(r)goto S_50136;} -S_50137:; +if(!qbevent)break;evnt(26307,19590,"ide_methods.bas");}while(r); +S_56541:; +if(qbevent){evnt(26307,19592,"ide_methods.bas");if(r)goto S_56541;} +S_56542:; if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 2300 )))||new_error){ -if(qbevent){evnt(25066,14904,"ide_methods.bas");if(r)goto S_50137;} +if(qbevent){evnt(26307,19593,"ide_methods.bas");if(r)goto S_56542;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("VBDOS binary format not supported.",34)); +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("VBDOS binary format not supported.",34),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14905,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19594,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(25066,14906,"ide_methods.bas");}while(r); -goto sc_5673_end; +if(!qbevent)break;evnt(26307,19595,"ide_methods.bas");}while(r); +sc_ec_418_end:; +goto sc_6268_end; } -S_50140:; +S_56545:; if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 764 )))||new_error){ -if(qbevent){evnt(25066,14907,"ide_methods.bas");if(r)goto S_50140;} +if(qbevent){evnt(26307,19596,"ide_methods.bas");if(r)goto S_56545;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("QBX 7.1 binary format not supported.",36)); +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("QBX 7.1 binary format not supported.",36),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14908,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19597,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(25066,14909,"ide_methods.bas");}while(r); -goto sc_5673_end; +if(!qbevent)break;evnt(26307,19598,"ide_methods.bas");}while(r); +sc_ec_419_end:; +goto sc_6268_end; } -S_50143:; +S_56548:; if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 252 )))||new_error){ -if(qbevent){evnt(25066,14910,"ide_methods.bas");if(r)goto S_50143;} -S_50144:; +if(qbevent){evnt(26307,19599,"ide_methods.bas");if(r)goto S_56548;} +S_56549:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(25066,14911,"ide_methods.bas");if(r)goto S_50144;} +if(qbevent){evnt(26307,19600,"ide_methods.bas");if(r)goto S_56549;} do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("internal\\utilities\\QB45BIN.exe",30)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14912,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19601,"ide_methods.bas");}while(r); }else{ do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("internal/utilities/QB45BIN",26)); +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("./internal/utilities/QB45BIN",28)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14914,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19603,"ide_methods.bas");}while(r); } -S_50149:; +S_56554:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ -if(qbevent){evnt(25066,14916,"ide_methods.bas");if(r)goto S_50149;} +if(qbevent){evnt(26307,19605,"ide_methods.bas");if(r)goto S_56554;} do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14917,"ide_methods.bas");}while(r); -S_50151:; +if(!qbevent)break;evnt(26307,19606,"ide_methods.bas");}while(r); +S_56556:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,14918,"ide_methods.bas");if(r)goto S_50151;} +if(qbevent){evnt(26307,19607,"ide_methods.bas");if(r)goto S_56556;} LABEL_CONVERTIT:; -if(qbevent){evnt(25066,14919,"ide_methods.bas");r=0;} -S_50152:; +if(qbevent){evnt(26307,19608,"ide_methods.bas");r=0;} +S_56557:; if ((qbs_cleanup(qbs_tmp_base,FUNC_FILEHASEXTENSION(__STRING_FILE)))||new_error){ -if(qbevent){evnt(25066,14920,"ide_methods.bas");if(r)goto S_50152;} -S_50153:; -fornext_value5675=__STRING_FILE->len; -fornext_finalvalue5675= 1 ; -fornext_step5675= -1 ; -if (fornext_step5675<0) fornext_step_negative5675=1; else fornext_step_negative5675=0; -if (new_error) goto fornext_error5675; -goto fornext_entrylabel5675; +if(qbevent){evnt(26307,19609,"ide_methods.bas");if(r)goto S_56557;} +S_56558:; +fornext_value6270=__STRING_FILE->len; +fornext_finalvalue6270= 1 ; +fornext_step6270= -1 ; +if (fornext_step6270<0) fornext_step_negative6270=1; else fornext_step_negative6270=0; +if (new_error) goto fornext_error6270; +goto fornext_entrylabel6270; while(1){ -fornext_value5675=fornext_step5675+(*_FUNC_BINARYFORMATCHECK_LONG_I); -fornext_entrylabel5675: -*_FUNC_BINARYFORMATCHECK_LONG_I=fornext_value5675; +fornext_value6270=fornext_step6270+(*_FUNC_BINARYFORMATCHECK_LONG_I); +fornext_entrylabel6270: +*_FUNC_BINARYFORMATCHECK_LONG_I=fornext_value6270; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5675){ -if (fornext_value5675fornext_finalvalue5675) break; +if (fornext_value6270>fornext_finalvalue6270) break; } -fornext_error5675:; -if(qbevent){evnt(25066,14921,"ide_methods.bas");if(r)goto S_50153;} -S_50154:; +fornext_error6270:; +if(qbevent){evnt(26307,19610,"ide_methods.bas");if(r)goto S_56558;} +S_56559:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I)== 46 )))||new_error){ -if(qbevent){evnt(25066,14922,"ide_methods.bas");if(r)goto S_50154;} +if(qbevent){evnt(26307,19611,"ide_methods.bas");if(r)goto S_56559;} do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(qbs_add(qbs_left(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I- 1 ),qbs_new_txt_len(" (converted)",12)),func_mid(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I,NULL,0))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14924,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19613,"ide_methods.bas");}while(r); do{ -goto fornext_exit_5674; -if(!qbevent)break;evnt(25066,14925,"ide_methods.bas");}while(r); +goto fornext_exit_6269; +if(!qbevent)break;evnt(26307,19614,"ide_methods.bas");}while(r); } -fornext_continue_5674:; +fornext_continue_6269:; } -fornext_exit_5674:; +fornext_exit_6269:; }else{ do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(__STRING_FILE,qbs_new_txt_len(" (converted).bas",16))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14929,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19618,"ide_methods.bas");}while(r); } do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14932,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19621,"ide_methods.bas");}while(r); do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5677= 1 )); -if(!qbevent)break;evnt(25066,14933,"ide_methods.bas");}while(r); +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6272= 1 )); +if(!qbevent)break;evnt(26307,19622,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5678; -makefit(tqbs); -qbs_print(tqbs,0); -skip5678: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5679; -makefit(tqbs); -qbs_print(tqbs,0); -skip5679: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5680; -makefit(tqbs); -qbs_print(tqbs,0); -skip5680: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14934,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14935,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass6273= 0 )); +if(!qbevent)break;evnt(26307,19623,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14936,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19624,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Converting... ",23)); -if (new_error) goto skip5681; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip5681: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Converting... ",23),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14937,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19625,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,14938,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19626,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(__STRING_FILE)),qbs_new_txt_len(" -o ",4)),FUNC_QUOTEDFILENAME(_FUNC_BINARYFORMATCHECK_STRING_OFILE))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14940,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19628,"ide_methods.bas");}while(r); do{ sub_shell2(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14941,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19629,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass6274= 0 )); +if(!qbevent)break;evnt(26307,19631,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5682; -makefit(tqbs); -qbs_print(tqbs,0); -skip5682: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5683; -makefit(tqbs); -qbs_print(tqbs,0); -skip5683: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5684; -makefit(tqbs); -qbs_print(tqbs,0); -skip5684: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14943,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5685= 0 )); -if(!qbevent)break;evnt(25066,14944,"ide_methods.bas");}while(r); +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6275= 0 )); +if(!qbevent)break;evnt(26307,19632,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,14945,"ide_methods.bas");}while(r); -S_50186:; +if(!qbevent)break;evnt(26307,19633,"ide_methods.bas");}while(r); +S_56578:; if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_OFILE)== 0 )))||new_error){ -if(qbevent){evnt(25066,14947,"ide_methods.bas");if(r)goto S_50186;} +if(qbevent){evnt(26307,19635,"ide_methods.bas");if(r)goto S_56578;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion failed.",18)); +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion failed.",18),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14948,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19636,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 2 ; -if(!qbevent)break;evnt(25066,14949,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19637,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,FUNC_GETFILEPATH(_FUNC_BINARYFORMATCHECK_STRING_OFILE)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14951,"ide_methods.bas");}while(r); -S_50191:; +if(!qbevent)break;evnt(26307,19639,"ide_methods.bas");}while(r); +S_56583:; if ((qbs_cleanup(qbs_tmp_base,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len))||new_error){ -if(qbevent){evnt(25066,14952,"ide_methods.bas");if(r)goto S_50191;} +if(qbevent){evnt(26307,19640,"ide_methods.bas");if(r)goto S_56583;} do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,func_mid(_FUNC_BINARYFORMATCHECK_STRING_OFILE,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len+ 1 ,NULL,0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14953,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19641,"ide_methods.bas");}while(r); do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs_left(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14954,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19642,"ide_methods.bas");}while(r); }else{ do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,_FUNC_BINARYFORMATCHECK_STRING_OFILE); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14956,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19644,"ide_methods.bas");}while(r); } } }else{ do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(25066,14960,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19648,"ide_methods.bas");}while(r); } }else{ -S_50202:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_new_txt_len("source/utilities/QB45BIN.bas",28))== 0 )))||new_error){ -if(qbevent){evnt(25066,14963,"ide_methods.bas");if(r)goto S_50202;} +S_56594:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_new_txt_len("internal/support/converter/QB45BIN.bas",38))== 0 )))||new_error){ +if(qbevent){evnt(26307,19651,"ide_methods.bas");if(r)goto S_56594;} do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion utility not found. Cannot open QuickBASIC 4.5 binary format.",71)); +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion utility not found. Cannot open QuickBASIC 4.5 binary format.",71),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14964,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19652,"ide_methods.bas");}while(r); do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(25066,14965,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19653,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,14966,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19654,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14968,"ide_methods.bas");}while(r); -S_50208:; +if(!qbevent)break;evnt(26307,19656,"ide_methods.bas");}while(r); +S_56600:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(25066,14969,"ide_methods.bas");if(r)goto S_50208;} -S_50209:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal/utilities",18))== 0 )))||new_error){ -if(qbevent){evnt(25066,14971,"ide_methods.bas");if(r)goto S_50209;} +if(qbevent){evnt(26307,19657,"ide_methods.bas");if(r)goto S_56600;} +S_56601:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("./internal/utilities",20))== 0 )))||new_error){ +if(qbevent){evnt(26307,19659,"ide_methods.bas");if(r)goto S_56601;} do{ -sub_mkdir(qbs_new_txt_len("internal/utilities",18)); +sub_mkdir(qbs_new_txt_len("./internal/utilities",20)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14971,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19659,"ide_methods.bas");}while(r); } do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,14972,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19660,"ide_methods.bas");}while(r); do{ qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(25066,14973,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19661,"ide_methods.bas");}while(r); do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5689= 1 )); -if(!qbevent)break;evnt(25066,14974,"ide_methods.bas");}while(r); +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6279= 1 )); +if(!qbevent)break;evnt(26307,19662,"ide_methods.bas");}while(r); do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5690; -makefit(tqbs); -qbs_print(tqbs,0); -skip5690: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5691; -makefit(tqbs); -qbs_print(tqbs,0); -skip5691: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5692; -makefit(tqbs); -qbs_print(tqbs,0); -skip5692: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14975,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14976,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass6280= 0 )); +if(!qbevent)break;evnt(26307,19663,"ide_methods.bas");}while(r); do{ qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14977,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19664,"ide_methods.bas");}while(r); do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Preparing to convert...",23)); -if (new_error) goto skip5693; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip5693: -qbs_free(tqbs); +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Preparing to convert...",23),NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14978,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19665,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,14979,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19666,"ide_methods.bas");}while(r); +S_56611:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26307,19667,"ide_methods.bas");if(r)goto S_56611;} do{ -sub_shell2(qbs_new_txt_len("qb64 -x source/utilities/QB45BIN.bas -o internal/utilities/QB45BIN",66),2); +sub_shell2(qbs_new_txt_len("qb64 -x internal/support/converter/QB45BIN.bas -o internal/utilities/QB45BIN",76),2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14980,"ide_methods.bas");}while(r); -S_50227:; +if(!qbevent)break;evnt(26307,19668,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("./qb64 -x ./internal/support/converter/QB45BIN.bas -o ./internal/utilities/QB45BIN",82),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19670,"ide_methods.bas");}while(r); +} +S_56616:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ -if(qbevent){evnt(25066,14981,"ide_methods.bas");if(r)goto S_50227;} +if(qbevent){evnt(26307,19672,"ide_methods.bas");if(r)goto S_56616;} do{ goto LABEL_CONVERTIT; -if(!qbevent)break;evnt(25066,14981,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19672,"ide_methods.bas");}while(r); } do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); +SUB_CLEARSTATUSWINDOW(&(pass6281= 0 )); +if(!qbevent)break;evnt(26307,19673,"ide_methods.bas");}while(r); do{ -qbg_sub_locate(*__LONG_IDEWY- 3 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5694; -makefit(tqbs); -qbs_print(tqbs,0); -skip5694: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 2 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5695; -makefit(tqbs); -qbs_print(tqbs,0); -skip5695: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY- 1 , 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*__LONG_IDEWX- 2 )); -if (new_error) goto skip5696; -makefit(tqbs); -qbs_print(tqbs,0); -skip5696: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14982,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass5697= 0 )); -if(!qbevent)break;evnt(25066,14983,"ide_methods.bas");}while(r); +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6282= 0 )); +if(!qbevent)break;evnt(26307,19674,"ide_methods.bas");}while(r); do{ sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,14984,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19675,"ide_methods.bas");}while(r); do{ -SUB_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Error launching conversion utility.",35)); +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Error launching conversion utility.",35),qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14985,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19676,"ide_methods.bas");}while(r); } do{ *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(25066,14987,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19678,"ide_methods.bas");}while(r); } -goto sc_5673_end; +sc_ec_420_end:; +goto sc_6268_end; } -sc_5673_end:; +sc_6268_end:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free212.txt" +#include "free230.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK; @@ -177707,7 +197396,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data213.txt" +#include "data231.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -177716,111 +197405,1244 @@ if (new_error) goto exit_subfunc; do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("~",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14993,"ide_methods.bas");}while(r); -S_50245:; +if(!qbevent)break;evnt(26307,19684,"ide_methods.bas");}while(r); +S_56628:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14993,"ide_methods.bas");if(r)goto S_50245;} +if(qbevent){evnt(26307,19684,"ide_methods.bas");if(r)goto S_56628;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14993,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19684,"ide_methods.bas");}while(r); } do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("`",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14994,"ide_methods.bas");}while(r); -S_50249:; +if(!qbevent)break;evnt(26307,19685,"ide_methods.bas");}while(r); +S_56632:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14994,"ide_methods.bas");if(r)goto S_50249;} +if(qbevent){evnt(26307,19685,"ide_methods.bas");if(r)goto S_56632;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14994,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19685,"ide_methods.bas");}while(r); } do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("%",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14995,"ide_methods.bas");}while(r); -S_50253:; +if(!qbevent)break;evnt(26307,19686,"ide_methods.bas");}while(r); +S_56636:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14995,"ide_methods.bas");if(r)goto S_50253;} +if(qbevent){evnt(26307,19686,"ide_methods.bas");if(r)goto S_56636;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14995,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19686,"ide_methods.bas");}while(r); } do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("&",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14996,"ide_methods.bas");}while(r); -S_50257:; +if(!qbevent)break;evnt(26307,19687,"ide_methods.bas");}while(r); +S_56640:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14996,"ide_methods.bas");if(r)goto S_50257;} +if(qbevent){evnt(26307,19687,"ide_methods.bas");if(r)goto S_56640;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14996,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19687,"ide_methods.bas");}while(r); } do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("!",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14997,"ide_methods.bas");}while(r); -S_50261:; +if(!qbevent)break;evnt(26307,19688,"ide_methods.bas");}while(r); +S_56644:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14997,"ide_methods.bas");if(r)goto S_50261;} +if(qbevent){evnt(26307,19688,"ide_methods.bas");if(r)goto S_56644;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14997,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19688,"ide_methods.bas");}while(r); } do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("#",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14998,"ide_methods.bas");}while(r); -S_50265:; +if(!qbevent)break;evnt(26307,19689,"ide_methods.bas");}while(r); +S_56648:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14998,"ide_methods.bas");if(r)goto S_50265;} +if(qbevent){evnt(26307,19689,"ide_methods.bas");if(r)goto S_56648;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14998,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19689,"ide_methods.bas");}while(r); } do{ *_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("$",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,14999,"ide_methods.bas");}while(r); -S_50269:; +if(!qbevent)break;evnt(26307,19690,"ide_methods.bas");}while(r); +S_56652:; if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(25066,14999,"ide_methods.bas");if(r)goto S_50269;} +if(qbevent){evnt(26307,19690,"ide_methods.bas");if(r)goto S_56652;} do{ goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(25066,14999,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19690,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,15000,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19691,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,15001,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19692,"ide_methods.bas");}while(r); LABEL_FOUNDSYMBOL:; -if(qbevent){evnt(25066,15002,"ide_methods.bas");r=0;} -S_50274:; +if(qbevent){evnt(26307,19693,"ide_methods.bas");r=0;} +S_56657:; if ((-(*_FUNC_REMOVESYMBOL2_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(25066,15003,"ide_methods.bas");if(r)goto S_50274;} +if(qbevent){evnt(26307,19694,"ide_methods.bas");if(r)goto S_56657;} do{ qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,15003,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19694,"ide_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,15003,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19694,"ide_methods.bas");}while(r); } do{ qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,qbs_left(_FUNC_REMOVESYMBOL2_STRING_VARNAME,*_FUNC_REMOVESYMBOL2_LONG_I- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,15004,"ide_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,19695,"ide_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free213.txt" +#include "free231.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2);return _FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2; } +void SUB_CLEANSUBNAME(qbs*_SUB_CLEANSUBNAME_STRING_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data232.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len("'",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19699,"ide_methods.bas");}while(r); +S_56663:; +if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ +if(qbevent){evnt(26307,19699,"ide_methods.bas");if(r)goto S_56663;} +do{ +qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19699,"ide_methods.bas");}while(r); +} +do{ +*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len(":",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19700,"ide_methods.bas");}while(r); +S_56667:; +if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ +if(qbevent){evnt(26307,19700,"ide_methods.bas");if(r)goto S_56667;} +do{ +qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19700,"ide_methods.bas");}while(r); +} +do{ +*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19701,"ide_methods.bas");}while(r); +S_56671:; +if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ +if(qbevent){evnt(26307,19701,"ide_methods.bas");if(r)goto S_56671;} +do{ +qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19701,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free232.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLEARSTATUSWINDOW(int32*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data233.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,19705,"ide_methods.bas");}while(r); +S_56675:; +if ((-(*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE== 0 ))||new_error){ +if(qbevent){evnt(26307,19706,"ide_methods.bas");if(r)goto S_56675;} +S_56676:; +fornext_value6286= 1 ; +fornext_finalvalue6286= 3 ; +fornext_step6286= 1 ; +if (fornext_step6286<0) fornext_step_negative6286=1; else fornext_step_negative6286=0; +if (new_error) goto fornext_error6286; +goto fornext_entrylabel6286; +while(1){ +fornext_value6286=fornext_step6286+(*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE); +fornext_entrylabel6286: +*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE=fornext_value6286; +if (fornext_step_negative6286){ +if (fornext_value6286fornext_finalvalue6286) break; +} +fornext_error6286:; +if(qbevent){evnt(26307,19707,"ide_methods.bas");if(r)goto S_56676;} +do{ +sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE,func_space(*__LONG_IDEWX- 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19708,"ide_methods.bas");}while(r); +fornext_continue_6285:; +} +fornext_exit_6285:; +}else{ +do{ +sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE,func_space(*__LONG_IDEWX- 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19711,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free233.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_SETSTATUSMESSAGE(int32*_SUB_SETSTATUSMESSAGE_LONG_ROW,qbs*_SUB_SETSTATUSMESSAGE_STRING_TEXT,int32*_SUB_SETSTATUSMESSAGE_LONG_FG){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data234.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbg_sub_color(*_SUB_SETSTATUSMESSAGE_LONG_FG,NULL,NULL,1); +if(!qbevent)break;evnt(26307,19716,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_SETSTATUSMESSAGE_LONG_ROW,_SUB_SETSTATUSMESSAGE_STRING_TEXT,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19717,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,19718,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free234.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_GETWORDATCURSOR(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data235.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19722,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETWORDATCURSOR_LONG_X=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,19723,"ide_methods.bas");}while(r); +S_56687:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X<=_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,19724,"ide_methods.bas");if(r)goto S_56687;} +S_56688:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)== 32 ))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 ))))||new_error){ +if(qbevent){evnt(26307,19725,"ide_methods.bas");if(r)goto S_56688;} +S_56689:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||new_error){ +if(qbevent){evnt(26307,19726,"ide_methods.bas");if(r)goto S_56689;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ; +if(!qbevent)break;evnt(26307,19726,"ide_methods.bas");}while(r); +} +} +LABEL_TRY:; +if(qbevent){evnt(26307,19728,"ide_methods.bas");r=0;} +S_56693:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(26307,19729,"ide_methods.bas");if(r)goto S_56693;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26307,19730,"ide_methods.bas");}while(r); +S_56695:; +while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ +if(qbevent){evnt(26307,19731,"ide_methods.bas");if(r)goto S_56695;} +S_56696:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 )== 36 ))))||new_error){ +if(qbevent){evnt(26307,19732,"ide_methods.bas");if(r)goto S_56696;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; +if(!qbevent)break;evnt(26307,19732,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6289; +if(!qbevent)break;evnt(26307,19732,"ide_methods.bas");}while(r); +} +dl_continue_6289:; +} +dl_exit_6289:; +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26307,19734,"ide_methods.bas");}while(r); +S_56703:; +while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,19735,"ide_methods.bas");if(r)goto S_56703;} +S_56704:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 )== 36 ))))||new_error){ +if(qbevent){evnt(26307,19736,"ide_methods.bas");if(r)goto S_56704;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26307,19736,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6291; +if(!qbevent)break;evnt(26307,19736,"ide_methods.bas");}while(r); +} +dl_continue_6291:; +} +dl_exit_6291:; +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19738,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19740,"ide_methods.bas");}while(r); +S_56713:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr( 32 ))))||new_error){ +if(qbevent){evnt(26307,19741,"ide_methods.bas");if(r)goto S_56713;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19741,"ide_methods.bas");}while(r); +} +S_56716:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26307,19742,"ide_methods.bas");if(r)goto S_56716;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("~",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19742,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19742,"ide_methods.bas");}while(r); +} +S_56720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(26307,19743,"ide_methods.bas");if(r)goto S_56720;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("`",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19743,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19743,"ide_methods.bas");}while(r); +} +S_56724:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("%",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X+ 1 ,NULL,0),qbs_new_txt_len("&",1)))))||new_error){ +if(qbevent){evnt(26307,19744,"ide_methods.bas");if(r)goto S_56724;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19744,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19744,"ide_methods.bas");}while(r); +} +S_56728:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("&",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 ,NULL,0),qbs_new_txt_len("%",1)))))||new_error){ +if(qbevent){evnt(26307,19745,"ide_methods.bas");if(r)goto S_56728;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19745,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19745,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26307,19746,"ide_methods.bas");}while(r); +S_56733:; +while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ +if(qbevent){evnt(26307,19747,"ide_methods.bas");if(r)goto S_56733;} +S_56734:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 , 1 ,1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||new_error){ +if(qbevent){evnt(26307,19748,"ide_methods.bas");if(r)goto S_56734;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; +if(!qbevent)break;evnt(26307,19748,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6292; +if(!qbevent)break;evnt(26307,19748,"ide_methods.bas");}while(r); +} +dl_continue_6292:; +} +dl_exit_6292:; +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26307,19750,"ide_methods.bas");}while(r); +S_56741:; +while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,19751,"ide_methods.bas");if(r)goto S_56741;} +S_56742:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 , 1 ,1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||new_error){ +if(qbevent){evnt(26307,19752,"ide_methods.bas");if(r)goto S_56742;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26307,19752,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6294; +if(!qbevent)break;evnt(26307,19752,"ide_methods.bas");}while(r); +} +dl_continue_6294:; +} +dl_exit_6294:; +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19754,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,_FUNC_GETWORDATCURSOR_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19756,"ide_methods.bas");}while(r); +S_56751:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETWORDATCURSOR_LONG_X==(_FUNC_GETWORDATCURSOR_STRING_A->len+ 1 )))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 )))){ +if(qbevent){evnt(26307,19757,"ide_methods.bas");if(r)goto S_56751;} +S_56752:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||new_error){ +if(qbevent){evnt(26307,19758,"ide_methods.bas");if(r)goto S_56752;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ; +if(!qbevent)break;evnt(26307,19758,"ide_methods.bas");}while(r); +do{ +goto LABEL_TRY; +if(!qbevent)break;evnt(26307,19758,"ide_methods.bas");}while(r); +} +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free235.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR);return _FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR; +} +qbs* FUNC_GETSELECTEDTEXT(int8*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data236.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_56757:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,19763,"ide_methods.bas");if(r)goto S_56757;} +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26307,19764,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,19765,"ide_methods.bas");}while(r); +S_56760:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1>*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26307,19766,"ide_methods.bas");if(r)goto S_56760;} +do{ +swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SY1,&*_FUNC_GETSELECTEDTEXT_LONG_SY2); +if(!qbevent)break;evnt(26307,19766,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,19767,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,19768,"ide_methods.bas");}while(r); +S_56765:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SX1>*_FUNC_GETSELECTEDTEXT_LONG_SX2))||new_error){ +if(qbevent){evnt(26307,19769,"ide_methods.bas");if(r)goto S_56765;} +do{ +swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SX1,&*_FUNC_GETSELECTEDTEXT_LONG_SX2); +if(!qbevent)break;evnt(26307,19769,"ide_methods.bas");}while(r); +} +S_56768:; +fornext_value6297=*_FUNC_GETSELECTEDTEXT_LONG_SY1; +fornext_finalvalue6297=*_FUNC_GETSELECTEDTEXT_LONG_SY2; +fornext_step6297= 1 ; +if (fornext_step6297<0) fornext_step_negative6297=1; else fornext_step_negative6297=0; +if (new_error) goto fornext_error6297; +goto fornext_entrylabel6297; +while(1){ +fornext_value6297=fornext_step6297+(*_FUNC_GETSELECTEDTEXT_LONG_Y); +fornext_entrylabel6297: +*_FUNC_GETSELECTEDTEXT_LONG_Y=fornext_value6297; +if (fornext_step_negative6297){ +if (fornext_value6297fornext_finalvalue6297) break; +} +fornext_error6297:; +if(qbevent){evnt(26307,19770,"ide_methods.bas");if(r)goto S_56768;} +S_56769:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_Y<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26307,19771,"ide_methods.bas");if(r)goto S_56769;} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_A,FUNC_IDEGETLINE(_FUNC_GETSELECTEDTEXT_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19772,"ide_methods.bas");}while(r); +S_56771:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1==*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26307,19773,"ide_methods.bas");if(r)goto S_56771;} +S_56772:; +fornext_value6299=*_FUNC_GETSELECTEDTEXT_LONG_SX1; +fornext_finalvalue6299=*_FUNC_GETSELECTEDTEXT_LONG_SX2- 1 ; +fornext_step6299= 1 ; +if (fornext_step6299<0) fornext_step_negative6299=1; else fornext_step_negative6299=0; +if (new_error) goto fornext_error6299; +goto fornext_entrylabel6299; +while(1){ +fornext_value6299=fornext_step6299+(*_FUNC_GETSELECTEDTEXT_LONG_X); +fornext_entrylabel6299: +*_FUNC_GETSELECTEDTEXT_LONG_X=fornext_value6299; +if (fornext_step_negative6299){ +if (fornext_value6299fornext_finalvalue6299) break; +} +fornext_error6299:; +if(qbevent){evnt(26307,19774,"ide_methods.bas");if(r)goto S_56772;} +S_56773:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETSELECTEDTEXT_LONG_X<=_FUNC_GETSELECTEDTEXT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,19775,"ide_methods.bas");if(r)goto S_56773;} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,func_mid(_FUNC_GETSELECTEDTEXT_STRING_A,*_FUNC_GETSELECTEDTEXT_LONG_X, 1 ,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19775,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19775,"ide_methods.bas");}while(r); +} +fornext_continue_6298:; +} +fornext_exit_6298:; +}else{ +S_56780:; +if ((~(*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE))||new_error){ +if(qbevent){evnt(26307,19778,"ide_methods.bas");if(r)goto S_56780;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19778,"ide_methods.bas");}while(r); +} +S_56783:; +if (((-(*__LONG_IDECX== 1 ))&(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_FUNC_GETSELECTEDTEXT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26307,19779,"ide_methods.bas");if(r)goto S_56783;} +do{ +goto LABEL_NOFINALCOPY; +if(!qbevent)break;evnt(26307,19779,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(qbs_add(qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,_FUNC_GETSELECTEDTEXT_STRING_A),func_chr( 13 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19780,"ide_methods.bas");}while(r); +LABEL_NOFINALCOPY:; +if(qbevent){evnt(26307,19781,"ide_methods.bas");r=0;} +S_56787:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECX> 1 ))&(-(_FUNC_GETSELECTEDTEXT_STRING_A->len> 0 ))))||new_error){ +if(qbevent){evnt(26307,19782,"ide_methods.bas");if(r)goto S_56787;} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_left(_FUNC_GETSELECTEDTEXT_STRING_CLIP,_FUNC_GETSELECTEDTEXT_STRING_CLIP->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19782,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_6296:; +} +fornext_exit_6296:; +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT,_FUNC_GETSELECTEDTEXT_STRING_CLIP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19786,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free236.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT);return _FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT; +} +void SUB_DELSELECT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data237.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_DELSELECT_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26307,19791,"ide_methods.bas");}while(r); +do{ +*_SUB_DELSELECT_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26307,19792,"ide_methods.bas");}while(r); +S_56797:; +if ((-(*_SUB_DELSELECT_LONG_SY1>*_SUB_DELSELECT_LONG_SY2))||new_error){ +if(qbevent){evnt(26307,19793,"ide_methods.bas");if(r)goto S_56797;} +do{ +swap_32(&*_SUB_DELSELECT_LONG_SY1,&*_SUB_DELSELECT_LONG_SY2); +if(!qbevent)break;evnt(26307,19793,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DELSELECT_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26307,19794,"ide_methods.bas");}while(r); +do{ +*_SUB_DELSELECT_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26307,19795,"ide_methods.bas");}while(r); +S_56802:; +if ((-(*_SUB_DELSELECT_LONG_SX1>*_SUB_DELSELECT_LONG_SX2))||new_error){ +if(qbevent){evnt(26307,19796,"ide_methods.bas");if(r)goto S_56802;} +do{ +swap_32(&*_SUB_DELSELECT_LONG_SX1,&*_SUB_DELSELECT_LONG_SX2); +if(!qbevent)break;evnt(26307,19796,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 0 ; +if(!qbevent)break;evnt(26307,19797,"ide_methods.bas");}while(r); +S_56806:; +if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))&(-(*__LONG_IDECX== 1 ))&(-(*__LONG_IDECY>*_SUB_DELSELECT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26307,19798,"ide_methods.bas");if(r)goto S_56806;} +do{ +*_SUB_DELSELECT_LONG_SY2=*_SUB_DELSELECT_LONG_SY2- 1 ; +if(!qbevent)break;evnt(26307,19798,"ide_methods.bas");}while(r); +do{ +*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 1 ; +if(!qbevent)break;evnt(26307,19798,"ide_methods.bas");}while(r); +} +S_56810:; +fornext_value6304=*_SUB_DELSELECT_LONG_SY2; +fornext_finalvalue6304=*_SUB_DELSELECT_LONG_SY1; +fornext_step6304= -1 ; +if (fornext_step6304<0) fornext_step_negative6304=1; else fornext_step_negative6304=0; +if (new_error) goto fornext_error6304; +goto fornext_entrylabel6304; +while(1){ +fornext_value6304=fornext_step6304+(*_SUB_DELSELECT_LONG_Y); +fornext_entrylabel6304: +*_SUB_DELSELECT_LONG_Y=fornext_value6304; +if (fornext_step_negative6304){ +if (fornext_value6304fornext_finalvalue6304) break; +} +fornext_error6304:; +if(qbevent){evnt(26307,19801,"ide_methods.bas");if(r)goto S_56810;} +S_56811:; +if (((-(*_SUB_DELSELECT_LONG_SY1==*_SUB_DELSELECT_LONG_SY2))&(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 0 )))||new_error){ +if(qbevent){evnt(26307,19802,"ide_methods.bas");if(r)goto S_56811;} +do{ +qbs_set(_SUB_DELSELECT_STRING_A,FUNC_IDEGETLINE(_SUB_DELSELECT_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19803,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19804,"ide_methods.bas");}while(r); +S_56814:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX1<=_SUB_DELSELECT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,19805,"ide_methods.bas");if(r)goto S_56814;} +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,qbs_left(_SUB_DELSELECT_STRING_A,*_SUB_DELSELECT_LONG_SX1- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19805,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,_SUB_DELSELECT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19805,"ide_methods.bas");}while(r); +} +S_56819:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX2<=_SUB_DELSELECT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,19806,"ide_methods.bas");if(r)goto S_56819;} +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,qbs_add(_SUB_DELSELECT_STRING_A2,qbs_right(_SUB_DELSELECT_STRING_A,_SUB_DELSELECT_STRING_A->len-*_SUB_DELSELECT_LONG_SX2+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19806,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,_SUB_DELSELECT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19807,"ide_methods.bas");}while(r); +}else{ +S_56824:; +if (((-(*__LONG_IDEN== 1 ))&(-(*_SUB_DELSELECT_LONG_Y== 1 )))||new_error){ +if(qbevent){evnt(26307,19809,"ide_methods.bas");if(r)goto S_56824;} +do{ +SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19809,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDEDELLINE(_SUB_DELSELECT_LONG_Y); +if(!qbevent)break;evnt(26307,19809,"ide_methods.bas");}while(r); +} +} +fornext_continue_6303:; +} +fornext_exit_6303:; +do{ +*__LONG_IDECX=*_SUB_DELSELECT_LONG_SX1; +if(!qbevent)break;evnt(26307,19813,"ide_methods.bas");}while(r); +S_56832:; +if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))|(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 1 )))||new_error){ +if(qbevent){evnt(26307,19813,"ide_methods.bas");if(r)goto S_56832;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26307,19813,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*_SUB_DELSELECT_LONG_SY1; +if(!qbevent)break;evnt(26307,19814,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26307,19815,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free237.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INSERTATCURSOR(qbs*_SUB_INSERTATCURSOR_STRING_TEMPK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data238.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_56837:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26307,19820,"ide_methods.bas");if(r)goto S_56837;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26307,19820,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19821,"ide_methods.bas");}while(r); +S_56841:; +if ((qbs_cleanup(qbs_tmp_base,-((_SUB_INSERTATCURSOR_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ +if(qbevent){evnt(26307,19822,"ide_methods.bas");if(r)goto S_56841;} +do{ +qbs_set(_SUB_INSERTATCURSOR_STRING_A,qbs_add(_SUB_INSERTATCURSOR_STRING_A,func_space(*__LONG_IDECX- 1 -_SUB_INSERTATCURSOR_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19822,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTATCURSOR_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_INSERTATCURSOR_STRING_A,*__LONG_IDECX- 1 ),_SUB_INSERTATCURSOR_STRING_TEMPK),qbs_right(_SUB_INSERTATCURSOR_STRING_A,_SUB_INSERTATCURSOR_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19823,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,FUNC_CONVERTTABS(_SUB_INSERTATCURSOR_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19824,"ide_methods.bas");}while(r); +S_56846:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26307,19826,"ide_methods.bas");if(r)goto S_56846;} +do{ +*__LONG_IDECX=*__LONG_IDECX+_SUB_INSERTATCURSOR_STRING_TEMPK->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19828,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26307,19831,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26307,19832,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free238.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_FINDHELPTOPIC(qbs*_FUNC_FINDHELPTOPIC_STRING_TOPIC,int32*_FUNC_FINDHELPTOPIC_LONG_LNKS,int8*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data239.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_A2,qbs_ucase(_FUNC_FINDHELPTOPIC_STRING_TOPIC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19839,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26307,19840,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 2 ,NULL,NULL,*_FUNC_FINDHELPTOPIC_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19841,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_LNKS= 0 ; +if(!qbevent)break;evnt(26307,19842,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19842,"ide_methods.bas");}while(r); +S_56856:; +while((!(func_eof(*_FUNC_FINDHELPTOPIC_LONG_FH)))||new_error){ +if(qbevent){evnt(26307,19843,"ide_methods.bas");if(r)goto S_56856;} +do{ +tmp_fileno=*_FUNC_FINDHELPTOPIC_LONG_FH; +if (new_error) goto skip6315; +sub_file_line_input_string(tmp_fileno,_FUNC_FINDHELPTOPIC_STRING_L); +if (new_error) goto skip6315; +skip6315: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19844,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_C=func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_L,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19845,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_L1,qbs_left(_FUNC_FINDHELPTOPIC_STRING_L,*_FUNC_FINDHELPTOPIC_LONG_C- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19845,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_L2,qbs_right(_FUNC_FINDHELPTOPIC_STRING_L,_FUNC_FINDHELPTOPIC_STRING_L->len-*_FUNC_FINDHELPTOPIC_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19845,"ide_methods.bas");}while(r); +S_56861:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDHELPTOPIC_STRING_A2,qbs_ucase(_FUNC_FINDHELPTOPIC_STRING_L1)))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_FINDHELPTOPIC_STRING_L1, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(_FUNC_FINDHELPTOPIC_STRING_A2,func_mid(_FUNC_FINDHELPTOPIC_STRING_L1, 2 ,NULL,0)))))))||new_error){ +if(qbevent){evnt(26307,19846,"ide_methods.bas");if(r)goto S_56861;} +S_56862:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_FINDHELPTOPIC_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26307,19847,"ide_methods.bas");if(r)goto S_56862;} +do{ +*_FUNC_FINDHELPTOPIC_LONG_LNKS=*_FUNC_FINDHELPTOPIC_LONG_LNKS+ 1 ; +if(!qbevent)break;evnt(26307,19848,"ide_methods.bas");}while(r); +S_56864:; +if ((*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY)||new_error){ +if(qbevent){evnt(26307,19849,"ide_methods.bas");if(r)goto S_56864;} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC,_FUNC_FINDHELPTOPIC_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19849,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); +if(!qbevent)break;evnt(26307,19849,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19849,"ide_methods.bas");}while(r); +} +S_56869:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDHELPTOPIC_STRING_L2,_FUNC_FINDHELPTOPIC_STRING_L1)))||new_error){ +if(qbevent){evnt(26307,19850,"ide_methods.bas");if(r)goto S_56869;} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_FINDHELPTOPIC_STRING_L2),_FUNC_FINDHELPTOPIC_STRING_LNKS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19851,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(_FUNC_FINDHELPTOPIC_STRING_LNKS,_FUNC_FINDHELPTOPIC_STRING_L2),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19853,"ide_methods.bas");}while(r); +} +} +} +dl_continue_6314:; +} +dl_exit_6314:; +do{ +sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); +if(!qbevent)break;evnt(26307,19858,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC,_FUNC_FINDHELPTOPIC_STRING_LNKS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19859,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free239.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC);return _FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC; +} +int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING___A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data240.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_ucase(_FUNC_ISNUMBER_STRING___A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19863,"ide_methods.bas");}while(r); +S_56880:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26307,19864,"ide_methods.bas");if(r)goto S_56880;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19864,"ide_methods.bas");}while(r); +} +S_56883:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@&H@&O@&B@",10),qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_left(_FUNC_ISNUMBER_STRING_A, 2 )),qbs_new_txt_len("@",1)),0)))||new_error){ +if(qbevent){evnt(26307,19866,"ide_methods.bas");if(r)goto S_56883;} +do{ +*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; +if(!qbevent)break;evnt(26307,19866,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19866,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19868,"ide_methods.bas");}while(r); +S_56888:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19868,"ide_methods.bas");if(r)goto S_56888;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19868,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19869,"ide_methods.bas");}while(r); +S_56892:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19869,"ide_methods.bas");if(r)goto S_56892;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19869,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19870,"ide_methods.bas");}while(r); +S_56896:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19870,"ide_methods.bas");if(r)goto S_56896;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19870,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19871,"ide_methods.bas");}while(r); +S_56900:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19871,"ide_methods.bas");if(r)goto S_56900;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19871,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19872,"ide_methods.bas");}while(r); +S_56904:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19872,"ide_methods.bas");if(r)goto S_56904;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19872,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19873,"ide_methods.bas");}while(r); +S_56908:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19873,"ide_methods.bas");if(r)goto S_56908;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19873,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19874,"ide_methods.bas");}while(r); +S_56912:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26307,19874,"ide_methods.bas");if(r)goto S_56912;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26307,19874,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_PROCEEDWITHOUTSYMBOL; +if(!qbevent)break;evnt(26307,19875,"ide_methods.bas");}while(r); +LABEL_FOUNDSYMBOL:; +if(qbevent){evnt(26307,19876,"ide_methods.bas");r=0;} +S_56916:; +if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26307,19877,"ide_methods.bas");if(r)goto S_56916;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19877,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_ISNUMBER_STRING_SYMBOL,qbs_right(_FUNC_ISNUMBER_STRING_A,_FUNC_ISNUMBER_STRING_A->len-*_FUNC_ISNUMBER_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19878,"ide_methods.bas");}while(r); +S_56920:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||new_error){ +if(qbevent){evnt(26307,19879,"ide_methods.bas");if(r)goto S_56920;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19879,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_left(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19880,"ide_methods.bas");}while(r); +LABEL_PROCEEDWITHOUTSYMBOL:; +if(qbevent){evnt(26307,19882,"ide_methods.bas");r=0;} +do{ +*_FUNC_ISNUMBER_LONG_FF= 0 ; +if(!qbevent)break;evnt(26307,19883,"ide_methods.bas");}while(r); +do{ +*_FUNC_ISNUMBER_LONG_EE= 0 ; +if(!qbevent)break;evnt(26307,19884,"ide_methods.bas");}while(r); +do{ +*_FUNC_ISNUMBER_LONG_DD= 0 ; +if(!qbevent)break;evnt(26307,19885,"ide_methods.bas");}while(r); +do{ +*_FUNC_ISNUMBER_LONG_NEG= 0 ; +if(!qbevent)break;evnt(26307,19886,"ide_methods.bas");}while(r); +S_56928:; +fornext_value6321= 1 ; +fornext_finalvalue6321=_FUNC_ISNUMBER_STRING_A->len; +fornext_step6321= 1 ; +if (fornext_step6321<0) fornext_step_negative6321=1; else fornext_step_negative6321=0; +if (new_error) goto fornext_error6321; +goto fornext_entrylabel6321; +while(1){ +fornext_value6321=fornext_step6321+(*_FUNC_ISNUMBER_LONG_I); +fornext_entrylabel6321: +*_FUNC_ISNUMBER_LONG_I=fornext_value6321; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6321){ +if (fornext_value6321fornext_finalvalue6321) break; +} +fornext_error6321:; +if(qbevent){evnt(26307,19887,"ide_methods.bas");if(r)goto S_56928;} +do{ +*_FUNC_ISNUMBER_LONG_A=qbs_asc(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19888,"ide_methods.bas");}while(r); +S_56930:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||new_error){ +if(qbevent){evnt(26307,19889,"ide_methods.bas");if(r)goto S_56930;} +S_56931:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_ISNUMBER_LONG_I== 1 ))&(-(_FUNC_ISNUMBER_STRING_A->len> 1 )))|((-(*_FUNC_ISNUMBER_LONG_I> 1 ))&((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))))))||new_error){ +if(qbevent){evnt(26307,19890,"ide_methods.bas");if(r)goto S_56931;} +do{ +*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 )); +if(!qbevent)break;evnt(26307,19890,"ide_methods.bas");}while(r); +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19890,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19891,"ide_methods.bas");}while(r); +} +S_56937:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(26307,19893,"ide_methods.bas");if(r)goto S_56937;} +S_56938:; +if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||new_error){ +if(qbevent){evnt(26307,19894,"ide_methods.bas");if(r)goto S_56938;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19894,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_DP= 1 ; +if(!qbevent)break;evnt(26307,19895,"ide_methods.bas");}while(r); +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19896,"ide_methods.bas");}while(r); +} +S_56944:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||new_error){ +if(qbevent){evnt(26307,19898,"ide_methods.bas");if(r)goto S_56944;} +S_56945:; +if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ +if(qbevent){evnt(26307,19899,"ide_methods.bas");if(r)goto S_56945;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19899,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I; +if(!qbevent)break;evnt(26307,19900,"ide_methods.bas");}while(r); +S_56949:; +if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||new_error){ +if(qbevent){evnt(26307,19901,"ide_methods.bas");if(r)goto S_56949;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19901,"ide_methods.bas");}while(r); +} +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19902,"ide_methods.bas");}while(r); +} +S_56954:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||new_error){ +if(qbevent){evnt(26307,19904,"ide_methods.bas");if(r)goto S_56954;} +S_56955:; +if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ +if(qbevent){evnt(26307,19905,"ide_methods.bas");if(r)goto S_56955;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19905,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I; +if(!qbevent)break;evnt(26307,19906,"ide_methods.bas");}while(r); +S_56959:; +if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||new_error){ +if(qbevent){evnt(26307,19907,"ide_methods.bas");if(r)goto S_56959;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19907,"ide_methods.bas");}while(r); +} +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19908,"ide_methods.bas");}while(r); +} +S_56964:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||new_error){ +if(qbevent){evnt(26307,19910,"ide_methods.bas");if(r)goto S_56964;} +S_56965:; +if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ +if(qbevent){evnt(26307,19911,"ide_methods.bas");if(r)goto S_56965;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19911,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I; +if(!qbevent)break;evnt(26307,19912,"ide_methods.bas");}while(r); +S_56969:; +if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||new_error){ +if(qbevent){evnt(26307,19913,"ide_methods.bas");if(r)goto S_56969;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19913,"ide_methods.bas");}while(r); +} +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19914,"ide_methods.bas");}while(r); +} +S_56974:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||new_error){ +if(qbevent){evnt(26307,19916,"ide_methods.bas");if(r)goto S_56974;} +S_56975:; +if ((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))||new_error){ +if(qbevent){evnt(26307,19917,"ide_methods.bas");if(r)goto S_56975;} +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19917,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19918,"ide_methods.bas");}while(r); +} +S_56980:; +if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||new_error){ +if(qbevent){evnt(26307,19921,"ide_methods.bas");if(r)goto S_56980;} +do{ +goto fornext_continue_6320; +if(!qbevent)break;evnt(26307,19921,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19922,"ide_methods.bas");}while(r); +fornext_continue_6320:; +} +fornext_exit_6320:; +do{ +*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; +if(!qbevent)break;evnt(26307,19924,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free240.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISNUMBER_LONG_ISNUMBER; +} qbs* FUNC_BACK2BACKNAME(qbs*_FUNC_BACK2BACKNAME_STRING_A){ qbs *tqbs; ptrszint tmp_long; @@ -177828,63 +198650,63 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data214.txt" +#include "data241.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_50279:; +S_56986:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ -if(qbevent){evnt(25066,2,"wiki_methods.bas");if(r)goto S_50279;} +if(qbevent){evnt(26307,2,"wiki_methods.bas");if(r)goto S_56986;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Alphabetical",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,2,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,2,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,2,"wiki_methods.bas");}while(r); } -S_50283:; +S_56990:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keyword Reference - By usage",28))))||new_error){ -if(qbevent){evnt(25066,3,"wiki_methods.bas");if(r)goto S_50283;} +if(qbevent){evnt(26307,3,"wiki_methods.bas");if(r)goto S_56990;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("By Usage",8)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,3,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,3,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,3,"wiki_methods.bas");}while(r); } -S_50287:; +S_56994:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 Help Menu",14))))||new_error){ -if(qbevent){evnt(25066,4,"wiki_methods.bas");if(r)goto S_50287;} +if(qbevent){evnt(26307,4,"wiki_methods.bas");if(r)goto S_56994;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Help",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,4,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,4,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,4,"wiki_methods.bas");}while(r); } -S_50291:; +S_56998:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 FAQ",8))))||new_error){ -if(qbevent){evnt(25066,5,"wiki_methods.bas");if(r)goto S_50291;} +if(qbevent){evnt(26307,5,"wiki_methods.bas");if(r)goto S_56998;} do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("FAQ",3)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,5,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,5,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,5,"wiki_methods.bas");}while(r); } do{ qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,_FUNC_BACK2BACKNAME_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,6,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,6,"wiki_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free214.txt" +#include "free241.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME);return _FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME; @@ -177896,396 +198718,295 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data215.txt" +#include "data242.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ -if(!qbevent)break;evnt(25066,10,"wiki_methods.bas");}while(r); -do{ qbs_set(__STRING_HELP_PAGELOADED,_FUNC_WIKI_STRING_PAGENAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,11,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,10,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_PAGENAME2,_FUNC_WIKI_STRING_PAGENAME); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,12,"wiki_methods.bas");}while(r); -S_50299:; +if(!qbevent)break;evnt(26307,11,"wiki_methods.bas");}while(r); +S_57005:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(25066,14,"wiki_methods.bas");if(r)goto S_50299;} +if(qbevent){evnt(26307,13,"wiki_methods.bas");if(r)goto S_57005;} do{ tqbs=_FUNC_WIKI_STRING_PAGENAME2; if (!new_error){ tmp_fileno=func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len(" ",1),0); if (!new_error){ tmp_long= 95 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,15,"wiki_methods.bas");}while(r); -dl_continue_5701:; +if(!qbevent)break;evnt(26307,14,"wiki_methods.bas");}while(r); +dl_continue_6326:; } -dl_exit_5701:; -S_50302:; +dl_exit_6326:; +S_57008:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("&",1),0)))||new_error){ -if(qbevent){evnt(25066,17,"wiki_methods.bas");if(r)goto S_50302;} +if(qbevent){evnt(26307,16,"wiki_methods.bas");if(r)goto S_57008;} do{ *_FUNC_WIKI_LONG_I=func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("&",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,18,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,17,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_FUNC_WIKI_STRING_PAGENAME2,*_FUNC_WIKI_LONG_I- 1 ),qbs_new_txt_len("%26",3)),qbs_right(_FUNC_WIKI_STRING_PAGENAME2,_FUNC_WIKI_STRING_PAGENAME2->len-*_FUNC_WIKI_LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,19,"wiki_methods.bas");}while(r); -dl_continue_5702:; +if(!qbevent)break;evnt(26307,18,"wiki_methods.bas");}while(r); +dl_continue_6327:; } -dl_exit_5702:; -S_50306:; +dl_exit_6327:; +S_57012:; while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("/",1),0)))||new_error){ -if(qbevent){evnt(25066,21,"wiki_methods.bas");if(r)goto S_50306;} +if(qbevent){evnt(26307,20,"wiki_methods.bas");if(r)goto S_57012;} do{ *_FUNC_WIKI_LONG_I=func_instr(NULL,_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("/",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,22,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,21,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(qbs_add(qbs_left(_FUNC_WIKI_STRING_PAGENAME2,*_FUNC_WIKI_LONG_I- 1 ),qbs_new_txt_len("%2F",3)),qbs_right(_FUNC_WIKI_STRING_PAGENAME2,_FUNC_WIKI_STRING_PAGENAME2->len-*_FUNC_WIKI_LONG_I))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,23,"wiki_methods.bas");}while(r); -dl_continue_5704:; +if(!qbevent)break;evnt(26307,22,"wiki_methods.bas");}while(r); +dl_continue_6329:; } -dl_exit_5704:; -S_50310:; +dl_exit_6329:; +S_57016:; if ((-(*__LONG_HELP_IGNORECACHE== 0 ))||new_error){ -if(qbevent){evnt(25066,27,"wiki_methods.bas");if(r)goto S_50310;} -S_50311:; +if(qbevent){evnt(26307,26,"wiki_methods.bas");if(r)goto S_57016;} +S_57017:; if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len(".txt",4)))))||new_error){ -if(qbevent){evnt(25066,28,"wiki_methods.bas");if(r)goto S_50311;} +if(qbevent){evnt(26307,27,"wiki_methods.bas");if(r)goto S_57017;} do{ *_FUNC_WIKI_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,29,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,28,"wiki_methods.bas");}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,30,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,29,"wiki_methods.bas");}while(r); do{ qbs_set(_FUNC_WIKI_STRING_A,func_space(func_lof(*_FUNC_WIKI_LONG_FH))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,31,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,30,"wiki_methods.bas");}while(r); do{ sub_get2(*_FUNC_WIKI_LONG_FH,NULL,_FUNC_WIKI_STRING_A,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,32,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,31,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); -if(!qbevent)break;evnt(25066,33,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,32,"wiki_methods.bas");}while(r); do{ -qbs_set(_FUNC_WIKI_STRING_WIKI,_FUNC_WIKI_STRING_A); +*_FUNC_WIKI_LONG_CHR13=func_instr(NULL,_FUNC_WIKI_STRING_A,func_chr( 13 ),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,34,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,33,"wiki_methods.bas");}while(r); do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,35,"wiki_methods.bas");}while(r); +*_FUNC_WIKI_LONG_REMOVEDCHR13= 0 ; +if(!qbevent)break;evnt(26307,34,"wiki_methods.bas");}while(r); +S_57025:; +while((-(*_FUNC_WIKI_LONG_CHR13> 0 ))||new_error){ +if(qbevent){evnt(26307,35,"wiki_methods.bas");if(r)goto S_57025;} +do{ +*_FUNC_WIKI_LONG_REMOVEDCHR13= -1 ; +if(!qbevent)break;evnt(26307,36,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_CHR13- 1 ),func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_CHR13+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,37,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_CHR13=func_instr(NULL,_FUNC_WIKI_STRING_A,func_chr( 13 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,38,"wiki_methods.bas");}while(r); +dl_continue_6331:; } -} -S_50321:; -if ((-(*__LONG_HELP_RECACHING== 0 ))||new_error){ -if(qbevent){evnt(25066,39,"wiki_methods.bas");if(r)goto S_50321;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Downloading '",13),_FUNC_WIKI_STRING_PAGENAME),qbs_new_txt_len("' page...",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,40,"wiki_methods.bas");}while(r); -S_50323:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len> 60 )))||new_error){ -if(qbevent){evnt(25066,41,"wiki_methods.bas");if(r)goto S_50323;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A, 57 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,41,"wiki_methods.bas");}while(r); -} -S_50326:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len< 60 )))||new_error){ -if(qbevent){evnt(25066,42,"wiki_methods.bas");if(r)goto S_50326;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_space( 60 -_FUNC_WIKI_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,42,"wiki_methods.bas");}while(r); -} -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,44,"wiki_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,44,"wiki_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_WIKI_STRING_A); -if (new_error) goto skip5709; -makefit(tqbs); -qbs_print(tqbs,0); -skip5709: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,45,"wiki_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,47,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_URL,qbs_add(qbs_add(qbs_new_txt_len("www.qb64.org/wiki/index.php?title=",34),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len("&action=edit",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,50,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_S1,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("name=",5),func_chr( 34 )),qbs_new_txt_len("wpTextbox1",10)),func_chr( 34 )),qbs_new_txt_len(">",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,52,"wiki_methods.bas");}while(r); -LABEL_TRY:; -if(qbevent){evnt(25066,53,"wiki_methods.bas");r=0;} -S_50336:; -if ((*_FUNC_WIKI_BYTE_ALTERNATIVESERVER)||new_error){ -if(qbevent){evnt(25066,54,"wiki_methods.bas");if(r)goto S_50336;} -do{ -qbs_set(_FUNC_WIKI_STRING_URL,qbs_add(qbs_add(qbs_new_txt_len("www.qb64.net/wiki/index.php?title=",34),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len("&action=edit",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,55,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_S1,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("readonly=",9),func_chr( 34 )),qbs_new_txt_len("readonly",8)),func_chr( 34 )),qbs_new_txt_len(">",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,56,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_URL2,_FUNC_WIKI_STRING_URL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,58,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKI_LONG_X=func_instr(NULL,_FUNC_WIKI_STRING_URL2,qbs_new_txt_len("/",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,59,"wiki_methods.bas");}while(r); -S_50342:; -if ((*_FUNC_WIKI_LONG_X)||new_error){ -if(qbevent){evnt(25066,60,"wiki_methods.bas");if(r)goto S_50342;} -do{ -qbs_set(_FUNC_WIKI_STRING_URL2,qbs_left(_FUNC_WIKI_STRING_URL,*_FUNC_WIKI_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,60,"wiki_methods.bas");}while(r); -} -do{ -*_FUNC_WIKI_LONG_C=func__openclient(qbs_add(qbs_new_txt_len("TCP/IP:80:",10),_FUNC_WIKI_STRING_URL2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,61,"wiki_methods.bas");}while(r); -S_50346:; -if ((-(*_FUNC_WIKI_LONG_C== 0 ))||new_error){ -if(qbevent){evnt(25066,62,"wiki_methods.bas");if(r)goto S_50346;} -S_50347:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_WIKI_STRING_URL,qbs_new_txt_len(".net",4),0)== 0 )))||new_error){ -if(qbevent){evnt(25066,63,"wiki_methods.bas");if(r)goto S_50347;} -do{ -*_FUNC_WIKI_BYTE_ALTERNATIVESERVER= -1 ; -if(!qbevent)break;evnt(25066,64,"wiki_methods.bas");}while(r); -S_50349:; -if ((-(*__LONG_HELP_RECACHING== 0 ))||new_error){ -if(qbevent){evnt(25066,65,"wiki_methods.bas");if(r)goto S_50349;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Downloading '",13),_FUNC_WIKI_STRING_PAGENAME),qbs_new_txt_len("' page from alternative server...",33))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,66,"wiki_methods.bas");}while(r); -S_50351:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len> 60 )))||new_error){ -if(qbevent){evnt(25066,67,"wiki_methods.bas");if(r)goto S_50351;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A, 57 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,67,"wiki_methods.bas");}while(r); -} -S_50354:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len< 60 )))||new_error){ -if(qbevent){evnt(25066,68,"wiki_methods.bas");if(r)goto S_50354;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_space( 60 -_FUNC_WIKI_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,68,"wiki_methods.bas");}while(r); -} -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(25066,70,"wiki_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(25066,70,"wiki_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_WIKI_STRING_A); -if (new_error) goto skip5713; -makefit(tqbs); -qbs_print(tqbs,0); -skip5713: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,71,"wiki_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(25066,73,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_TRY; -if(!qbevent)break;evnt(25066,75,"wiki_methods.bas");}while(r); -}else{ -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,77,"wiki_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_WIKI_STRING_E,qbs_add(func_chr( 13 ),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,80,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_URL3,qbs_right(_FUNC_WIKI_STRING_URL,_FUNC_WIKI_STRING_URL->len-*_FUNC_WIKI_LONG_X+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,81,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_X,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("GET ",4),_FUNC_WIKI_STRING_URL3),qbs_new_txt_len(" HTTP/1.1",9)),_FUNC_WIKI_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,82,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_X,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_WIKI_STRING_X,qbs_new_txt_len("Host: ",6)),_FUNC_WIKI_STRING_URL2),_FUNC_WIKI_STRING_E),_FUNC_WIKI_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,83,"wiki_methods.bas");}while(r); -do{ -sub_put2(*_FUNC_WIKI_LONG_C,NULL,byte_element((uint64)_FUNC_WIKI_STRING_X->chr,_FUNC_WIKI_STRING_X->len,byte_element_5715),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,84,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKI_SINGLE_T=func_timer(NULL,0); -if(!qbevent)break;evnt(25066,85,"wiki_methods.bas");}while(r); -S_50373:; -do{ -if(qbevent){evnt(25066,87,"wiki_methods.bas");if(r)goto S_50373;} -do{ -sub__delay( 0.1E+0 ); -if(!qbevent)break;evnt(25066,88,"wiki_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_WIKI_LONG_C,NULL,_FUNC_WIKI_STRING_A2,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,89,"wiki_methods.bas");}while(r); -S_50376:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_WIKI_STRING_A2->len))||new_error){ -if(qbevent){evnt(25066,90,"wiki_methods.bas");if(r)goto S_50376;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,91,"wiki_methods.bas");}while(r); -S_50378:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_WIKI_STRING_A,qbs_new_txt_len("",7),0)))||new_error){ -if(qbevent){evnt(25066,92,"wiki_methods.bas");if(r)goto S_50378;} -do{ -sub_close(*_FUNC_WIKI_LONG_C,1); -if(!qbevent)break;evnt(25066,93,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_S2,qbs_new_txt_len("",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,94,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKI_LONG_S1=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S1,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,95,"wiki_methods.bas");}while(r); -S_50382:; -if ((-(*_FUNC_WIKI_LONG_S1== 0 ))||new_error){ -if(qbevent){evnt(25066,95,"wiki_methods.bas");if(r)goto S_50382;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,95,"wiki_methods.bas");}while(r); -} -do{ -*_FUNC_WIKI_LONG_S1=*_FUNC_WIKI_LONG_S1+_FUNC_WIKI_STRING_S1->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,96,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKI_LONG_S2=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S2,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,97,"wiki_methods.bas");}while(r); -S_50387:; -if ((-(*_FUNC_WIKI_LONG_S2== 0 ))||new_error){ -if(qbevent){evnt(25066,97,"wiki_methods.bas");if(r)goto S_50387;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,97,"wiki_methods.bas");}while(r); -} -do{ -*_FUNC_WIKI_LONG_S2=*_FUNC_WIKI_LONG_S2- 1 ; -if(!qbevent)break;evnt(25066,98,"wiki_methods.bas");}while(r); -S_50391:; -if ((-(*_FUNC_WIKI_LONG_S1>*_FUNC_WIKI_LONG_S2))||new_error){ -if(qbevent){evnt(25066,99,"wiki_methods.bas");if(r)goto S_50391;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25066,99,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S1,*_FUNC_WIKI_LONG_S2-*_FUNC_WIKI_LONG_S1+ 1 ,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,100,"wiki_methods.bas");}while(r); +dl_exit_6331:; +S_57030:; +if ((*_FUNC_WIKI_LONG_REMOVEDCHR13)||new_error){ +if(qbevent){evnt(26307,40,"wiki_methods.bas");if(r)goto S_57030;} do{ *_FUNC_WIKI_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,101,"wiki_methods.bas");}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(25066,102,"wiki_methods.bas");}while(r); -do{ -error_goto_line=13; -if(!qbevent)break;evnt(25066,103,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,41,"wiki_methods.bas");}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,104,"wiki_methods.bas");}while(r); -do{ -error_goto_line=14; -if(!qbevent)break;evnt(25066,105,"wiki_methods.bas");}while(r); -S_50400:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(25066,106,"wiki_methods.bas");if(r)goto S_50400;} +if(!qbevent)break;evnt(26307,42,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); -if(!qbevent)break;evnt(25066,107,"wiki_methods.bas");}while(r); -do{ -error_goto_line=15; -if(!qbevent)break;evnt(25066,108,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,42,"wiki_methods.bas");}while(r); do{ sub_open(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,109,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,43,"wiki_methods.bas");}while(r); do{ -error_goto_line=16; -if(!qbevent)break;evnt(25066,110,"wiki_methods.bas");}while(r); -S_50405:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(25066,111,"wiki_methods.bas");if(r)goto S_50405;} -do{ -sub_put2(*_FUNC_WIKI_LONG_FH,NULL,byte_element((uint64)_FUNC_WIKI_STRING_A->chr,_FUNC_WIKI_STRING_A->len,byte_element_5719),0); +sub_put2(*_FUNC_WIKI_LONG_FH, 1 ,byte_element((uint64)_FUNC_WIKI_STRING_A->chr,_FUNC_WIKI_STRING_A->len,byte_element_6332),1); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,112,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,44,"wiki_methods.bas");}while(r); do{ sub_close(*_FUNC_WIKI_LONG_FH,1); -if(!qbevent)break;evnt(25066,113,"wiki_methods.bas");}while(r); -} +if(!qbevent)break;evnt(26307,45,"wiki_methods.bas");}while(r); } do{ qbs_set(_FUNC_WIKI_STRING_WIKI,_FUNC_WIKI_STRING_A); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,116,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,47,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,117,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,48,"wiki_methods.bas");}while(r); } } -S_50414:; -dl_continue_5716:; -}while((!(-(func_abs((float)(func_timer(NULL,0)-*_FUNC_WIKI_SINGLE_T))> 20 )))&&(!new_error)); -dl_exit_5716:; -if(qbevent){evnt(25066,120,"wiki_methods.bas");if(r)goto S_50414;} +S_57042:; +if ((qbs_cleanup(qbs_tmp_base,-(func__shellhide(qbs_new_txt_len("curl --version",14))!= 0 )))||new_error){ +if(qbevent){evnt(26307,52,"wiki_methods.bas");if(r)goto S_57042;} do{ -sub_close(*_FUNC_WIKI_LONG_C,1); -if(!qbevent)break;evnt(25066,121,"wiki_methods.bas");}while(r); +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26307,53,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("QB64",4),qbs_new_txt_len("Cannot find 'curl'.",19),qbs_new_txt_len("#Abort",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,54,"wiki_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,55,"wiki_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26307,55,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,56,"wiki_methods.bas");}while(r); +} +S_57049:; +if ((-(*__LONG_HELP_RECACHING== 0 ))||new_error){ +if(qbevent){evnt(26307,59,"wiki_methods.bas");if(r)goto S_57049;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Downloading '",13),_FUNC_WIKI_STRING_PAGENAME),qbs_new_txt_len("' page...",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,60,"wiki_methods.bas");}while(r); +S_57051:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len> 60 )))||new_error){ +if(qbevent){evnt(26307,61,"wiki_methods.bas");if(r)goto S_57051;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A, 57 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,61,"wiki_methods.bas");}while(r); +} +S_57054:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len< 60 )))||new_error){ +if(qbevent){evnt(26307,62,"wiki_methods.bas");if(r)goto S_57054;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_space( 60 -_FUNC_WIKI_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,62,"wiki_methods.bas");}while(r); +} +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26307,64,"wiki_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,64,"wiki_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_FUNC_WIKI_STRING_A); +if (new_error) goto skip6336; +makefit(tqbs); +qbs_print(tqbs,0); +skip6336: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,65,"wiki_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26307,67,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKI_STRING_URL,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),__STRING_WIKIBASEADDRESS),qbs_new_txt_len("/index.php?title=",17)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len("&action=edit",12)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,70,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_OUTPUTFILE,qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,71,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_S1,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("name=",5),func_chr( 34 )),qbs_new_txt_len("wpTextbox1",10)),func_chr( 34 )),qbs_new_txt_len(">",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,74,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_S2,qbs_new_txt_len("",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,75,"wiki_methods.bas");}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("curl -o ",8),func_chr( 34 )),_FUNC_WIKI_STRING_OUTPUTFILE),func_chr( 34 )),qbs_new_txt_len(" ",1)),_FUNC_WIKI_STRING_URL),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,77,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26307,78,"wiki_methods.bas");}while(r); +do{ +sub_open(_FUNC_WIKI_STRING_OUTPUTFILE, 2 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,79,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,func_space(func_lof(*_FUNC_WIKI_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,80,"wiki_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_WIKI_LONG_FH, 1 ,_FUNC_WIKI_STRING_A,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,81,"wiki_methods.bas");}while(r); +do{ +sub_close(*_FUNC_WIKI_LONG_FH,1); +if(!qbevent)break;evnt(26307,82,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_S1=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S1,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,84,"wiki_methods.bas");}while(r); +S_57073:; +if ((-(*_FUNC_WIKI_LONG_S1> 0 ))||new_error){ +if(qbevent){evnt(26307,85,"wiki_methods.bas");if(r)goto S_57073;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S1+_FUNC_WIKI_STRING_S1->len,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,87,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_S2=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S2,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,88,"wiki_methods.bas");}while(r); +S_57076:; +if ((-(*_FUNC_WIKI_LONG_S2> 0 ))||new_error){ +if(qbevent){evnt(26307,89,"wiki_methods.bas");if(r)goto S_57076;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_left(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,90,"wiki_methods.bas");}while(r); +} +do{ +sub_open(_FUNC_WIKI_STRING_OUTPUTFILE, 4 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,93,"wiki_methods.bas");}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_FUNC_WIKI_LONG_FH; +if (new_error) goto skip6338; +sub_file_print(tmp_fileno,_FUNC_WIKI_STRING_A, 0 , 0 , 1 ); +if (new_error) goto skip6338; +skip6338: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26307,94,"wiki_methods.bas");}while(r); +do{ +sub_close(*_FUNC_WIKI_LONG_FH,1); +if(!qbevent)break;evnt(26307,95,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKI_STRING_WIKI,_FUNC_WIKI_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,98,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,99,"wiki_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free215.txt" +#include "free242.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; qbs_maketmp(_FUNC_WIKI_STRING_WIKI);return _FUNC_WIKI_STRING_WIKI; @@ -178297,196 +199018,196 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data216.txt" +#include "data243.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_50416:; +S_57085:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_HELP_ADDTXT_STRING_T,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(25066,126,"wiki_methods.bas");if(r)goto S_50416;} +if(qbevent){evnt(26307,104,"wiki_methods.bas");if(r)goto S_57085;} do{ SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(25066,126,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,104,"wiki_methods.bas");}while(r); do{ goto exit_subfunc; -if(!qbevent)break;evnt(25066,126,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,104,"wiki_methods.bas");}while(r); } -S_50420:; -fornext_value5722= 1 ; -fornext_finalvalue5722=_SUB_HELP_ADDTXT_STRING_T->len; -fornext_step5722= 1 ; -if (fornext_step5722<0) fornext_step_negative5722=1; else fornext_step_negative5722=0; -if (new_error) goto fornext_error5722; -goto fornext_entrylabel5722; +S_57089:; +fornext_value6341= 1 ; +fornext_finalvalue6341=_SUB_HELP_ADDTXT_STRING_T->len; +fornext_step6341= 1 ; +if (fornext_step6341<0) fornext_step_negative6341=1; else fornext_step_negative6341=0; +if (new_error) goto fornext_error6341; +goto fornext_entrylabel6341; while(1){ -fornext_value5722=fornext_step5722+(*_SUB_HELP_ADDTXT_LONG_I); -fornext_entrylabel5722: -*_SUB_HELP_ADDTXT_LONG_I=fornext_value5722; +fornext_value6341=fornext_step6341+(*_SUB_HELP_ADDTXT_LONG_I); +fornext_entrylabel6341: +*_SUB_HELP_ADDTXT_LONG_I=fornext_value6341; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5722){ -if (fornext_value5722fornext_finalvalue5722) break; +if (fornext_value6341>fornext_finalvalue6341) break; } -fornext_error5722:; -if(qbevent){evnt(25066,128,"wiki_methods.bas");if(r)goto S_50420;} +fornext_error6341:; +if(qbevent){evnt(26307,106,"wiki_methods.bas");if(r)goto S_57089;} do{ *_SUB_HELP_ADDTXT_LONG_C=qbs_asc(_SUB_HELP_ADDTXT_STRING_T,*_SUB_HELP_ADDTXT_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,130,"wiki_methods.bas");}while(r); -S_50422:; +if(!qbevent)break;evnt(26307,108,"wiki_methods.bas");}while(r); +S_57091:; if (((-(*__LONG_HELP_BG_COL== 0 ))&(-(*__LONG_HELP_LOCKWRAP== 0 )))||new_error){ -if(qbevent){evnt(25066,133,"wiki_methods.bas");if(r)goto S_50422;} -S_50423:; +if(qbevent){evnt(26307,111,"wiki_methods.bas");if(r)goto S_57091;} +S_57092:; if ((-(*_SUB_HELP_ADDTXT_LONG_C== 32 ))||new_error){ -if(qbevent){evnt(25066,136,"wiki_methods.bas");if(r)goto S_50423;} -S_50424:; +if(qbevent){evnt(26307,114,"wiki_methods.bas");if(r)goto S_57092;} +S_57093:; if ((-(*__LONG_HELP_POS==*__LONG_HELP_WW))||new_error){ -if(qbevent){evnt(25066,138,"wiki_methods.bas");if(r)goto S_50424;} +if(qbevent){evnt(26307,116,"wiki_methods.bas");if(r)goto S_57093;} do{ SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(25066,138,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,116,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,138,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,116,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,140,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,118,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long= 32 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,140,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,118,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,141,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,119,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,141,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,119,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,142,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,120,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK& 255 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,142,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,120,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,143,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,121,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK/ 256 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,143,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,121,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS=*__LONG_HELP_TXT_LEN; -if(!qbevent)break;evnt(25066,145,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,123,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; -if(!qbevent)break;evnt(25066,146,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,124,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,147,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,125,"wiki_methods.bas");}while(r); } -S_50440:; +S_57109:; if ((-(*__LONG_HELP_POS>*__LONG_HELP_WW))||new_error){ -if(qbevent){evnt(25066,150,"wiki_methods.bas");if(r)goto S_50440;} -S_50441:; +if(qbevent){evnt(26307,128,"wiki_methods.bas");if(r)goto S_57109;} +S_57110:; if ((*__LONG_HELP_WRAP_POS)||new_error){ -if(qbevent){evnt(25066,151,"wiki_methods.bas");if(r)goto S_50441;} +if(qbevent){evnt(26307,129,"wiki_methods.bas");if(r)goto S_57110;} do{ qbs_set(_SUB_HELP_ADDTXT_STRING_B,func_mid(__STRING_HELP_TXT,*__LONG_HELP_WRAP_POS+ 1 ,*__LONG_HELP_TXT_LEN-*__LONG_HELP_WRAP_POS,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,154,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,132,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_WRAP_POS; -if(!qbevent)break;evnt(25066,156,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,134,"wiki_methods.bas");}while(r); do{ SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(25066,158,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,136,"wiki_methods.bas");}while(r); do{ sub_mid(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN+ 1 ,_SUB_HELP_ADDTXT_STRING_B->len,_SUB_HELP_ADDTXT_STRING_B,1); -if(!qbevent)break;evnt(25066,160,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,138,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+_SUB_HELP_ADDTXT_STRING_B->len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,160,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,138,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS=*__LONG_HELP_POS+(_SUB_HELP_ADDTXT_STRING_B->len/ 4 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,162,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,140,"wiki_methods.bas");}while(r); } } } do{ *_SUB_HELP_ADDTXT_LONG_C=qbs_asc(_SUB_HELP_ADDTXT_STRING_T,*_SUB_HELP_ADDTXT_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,168,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,146,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,169,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,147,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_C; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,169,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,147,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,170,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,148,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,170,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,148,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,171,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,149,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK& 255 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,171,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,149,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,172,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,150,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK/ 256 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,172,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,150,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; -if(!qbevent)break;evnt(25066,174,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,152,"wiki_methods.bas");}while(r); LABEL_SPECIAL:; -if(qbevent){evnt(25066,175,"wiki_methods.bas");r=0;} -fornext_continue_5721:; +if(qbevent){evnt(26307,153,"wiki_methods.bas");r=0;} +fornext_continue_6340:; } -fornext_exit_5721:; +fornext_exit_6340:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free216.txt" +#include "free243.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -178497,103 +199218,103 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data217.txt" +#include "data244.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; sf_mem_lock->type=3; if (new_error) goto exit_subfunc; -S_50462:; +S_57131:; if ((-(*__LONG_HELP_POS>*__LONG_HELP_W))||new_error){ -if(qbevent){evnt(25066,181,"wiki_methods.bas");if(r)goto S_50462;} +if(qbevent){evnt(26307,159,"wiki_methods.bas");if(r)goto S_57131;} do{ *__LONG_HELP_W=*__LONG_HELP_POS; -if(!qbevent)break;evnt(25066,181,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,159,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,183,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,161,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long= 13 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,183,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,161,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,184,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,162,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_NEWLINE_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ +tmp_long=*__LONG_HELP_BG_COL* 16 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,184,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,162,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,185,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,163,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long= 0 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,185,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,163,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(25066,186,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,164,"wiki_methods.bas");}while(r); do{ tqbs=__STRING_HELP_TXT; if (!new_error){ tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ tmp_long= 0 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,186,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,164,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_H=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(25066,188,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,166,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINE,qbs_add(__STRING_HELP_LINE,l2string(*__LONG_HELP_TXT_LEN+ 1 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,189,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,167,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS= 0 ; -if(!qbevent)break;evnt(25066,190,"wiki_methods.bas");}while(r); -S_50476:; +if(!qbevent)break;evnt(26307,168,"wiki_methods.bas");}while(r); +S_57145:; if ((*__LONG_HELP_UNDERLINE)||new_error){ -if(qbevent){evnt(25066,192,"wiki_methods.bas");if(r)goto S_50476;} +if(qbevent){evnt(26307,170,"wiki_methods.bas");if(r)goto S_57145;} do{ *__LONG_HELP_UNDERLINE= 0 ; -if(!qbevent)break;evnt(25066,193,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,171,"wiki_methods.bas");}while(r); do{ *_SUB_HELP_NEWLINE_LONG_W=*__LONG_HELP_POS; -if(!qbevent)break;evnt(25066,194,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,172,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS= 1 ; -if(!qbevent)break;evnt(25066,195,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,173,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 196 ),&(pass5727=FUNC_HELP_COL()),&(pass5728= 0 )); +SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 196 ),&(pass6346=FUNC_HELP_COL()),&(pass6347= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,196,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,174,"wiki_methods.bas");}while(r); do{ SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(25066,197,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,175,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_POS= 1 ; -if(!qbevent)break;evnt(25066,199,"wiki_methods.bas");}while(r); -S_50484:; +if(!qbevent)break;evnt(26307,177,"wiki_methods.bas");}while(r); +S_57153:; if ((*__LONG_HELP_NEWLINEINDENT)||new_error){ -if(qbevent){evnt(25066,201,"wiki_methods.bas");if(r)goto S_50484;} +if(qbevent){evnt(26307,179,"wiki_methods.bas");if(r)goto S_57153;} do{ -SUB_HELP_ADDTXT(func_space(*__LONG_HELP_NEWLINEINDENT),&(pass5729=FUNC_HELP_COL()),&(pass5730= 0 )); +SUB_HELP_ADDTXT(func_space(*__LONG_HELP_NEWLINEINDENT),&(pass6348=FUNC_HELP_COL()),&(pass6349= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,202,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,180,"wiki_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free217.txt" +#include "free244.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -178604,7 +199325,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data218.txt" +#include "data245.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -178613,144 +199334,144 @@ if (new_error) goto exit_subfunc; do{ sub_open(qbs_new_txt_len("help_preview.txt",16), 4 ,NULL,NULL, 1 ,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,210,"wiki_methods.bas");}while(r); -S_50488:; -fornext_value5732= 1 ; -fornext_finalvalue5732=__STRING_HELP_TXT->len; -fornext_step5732= 4 ; -if (fornext_step5732<0) fornext_step_negative5732=1; else fornext_step_negative5732=0; -if (new_error) goto fornext_error5732; -goto fornext_entrylabel5732; +if(!qbevent)break;evnt(26307,188,"wiki_methods.bas");}while(r); +S_57157:; +fornext_value6351= 1 ; +fornext_finalvalue6351=__STRING_HELP_TXT->len; +fornext_step6351= 4 ; +if (fornext_step6351<0) fornext_step_negative6351=1; else fornext_step_negative6351=0; +if (new_error) goto fornext_error6351; +goto fornext_entrylabel6351; while(1){ -fornext_value5732=fornext_step5732+(*_SUB_HELP_PREVIEW_LONG_I); -fornext_entrylabel5732: -*_SUB_HELP_PREVIEW_LONG_I=fornext_value5732; +fornext_value6351=fornext_step6351+(*_SUB_HELP_PREVIEW_LONG_I); +fornext_entrylabel6351: +*_SUB_HELP_PREVIEW_LONG_I=fornext_value6351; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5732){ -if (fornext_value5732fornext_finalvalue5732) break; +if (fornext_value6351>fornext_finalvalue6351) break; } -fornext_error5732:; -if(qbevent){evnt(25066,211,"wiki_methods.bas");if(r)goto S_50488;} +fornext_error6351:; +if(qbevent){evnt(26307,189,"wiki_methods.bas");if(r)goto S_57157;} do{ *_SUB_HELP_PREVIEW_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_PREVIEW_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,212,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,190,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_HELP_PREVIEW_STRING_C,func_chr(*_SUB_HELP_PREVIEW_LONG_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,213,"wiki_methods.bas");}while(r); -S_50491:; +if(!qbevent)break;evnt(26307,191,"wiki_methods.bas");}while(r); +S_57160:; if ((-(*_SUB_HELP_PREVIEW_LONG_C== 13 ))||new_error){ -if(qbevent){evnt(25066,214,"wiki_methods.bas");if(r)goto S_50491;} +if(qbevent){evnt(26307,192,"wiki_methods.bas");if(r)goto S_57160;} do{ qbs_set(_SUB_HELP_PREVIEW_STRING_C,qbs_add(func_chr( 13 ),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,214,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,192,"wiki_methods.bas");}while(r); } do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno= 1 ; -if (new_error) goto skip5734; +if (new_error) goto skip6353; sub_file_print(tmp_fileno,_SUB_HELP_PREVIEW_STRING_C, 0 , 0 , 0 ); -if (new_error) goto skip5734; -skip5734: +if (new_error) goto skip6353; +skip6353: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25066,215,"wiki_methods.bas");}while(r); -fornext_continue_5731:; +if(!qbevent)break;evnt(26307,193,"wiki_methods.bas");}while(r); +fornext_continue_6350:; } -fornext_exit_5731:; +fornext_exit_6350:; do{ sub_close( 1 ,1); -if(!qbevent)break;evnt(25066,217,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,195,"wiki_methods.bas");}while(r); do{ sub_cls(NULL,NULL,0); -if(!qbevent)break;evnt(25066,219,"wiki_methods.bas");}while(r); -S_50498:; -fornext_value5736= 1 ; -fornext_finalvalue5736=__STRING_HELP_TXT->len; -fornext_step5736= 4 ; -if (fornext_step5736<0) fornext_step_negative5736=1; else fornext_step_negative5736=0; -if (new_error) goto fornext_error5736; -goto fornext_entrylabel5736; +if(!qbevent)break;evnt(26307,197,"wiki_methods.bas");}while(r); +S_57167:; +fornext_value6355= 1 ; +fornext_finalvalue6355=__STRING_HELP_TXT->len; +fornext_step6355= 4 ; +if (fornext_step6355<0) fornext_step_negative6355=1; else fornext_step_negative6355=0; +if (new_error) goto fornext_error6355; +goto fornext_entrylabel6355; while(1){ -fornext_value5736=fornext_step5736+(*_SUB_HELP_PREVIEW_LONG_I); -fornext_entrylabel5736: -*_SUB_HELP_PREVIEW_LONG_I=fornext_value5736; +fornext_value6355=fornext_step6355+(*_SUB_HELP_PREVIEW_LONG_I); +fornext_entrylabel6355: +*_SUB_HELP_PREVIEW_LONG_I=fornext_value6355; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5736){ -if (fornext_value5736fornext_finalvalue5736) break; +if (fornext_value6355>fornext_finalvalue6355) break; } -fornext_error5736:; -if(qbevent){evnt(25066,220,"wiki_methods.bas");if(r)goto S_50498;} +fornext_error6355:; +if(qbevent){evnt(26307,198,"wiki_methods.bas");if(r)goto S_57167;} do{ *_SUB_HELP_PREVIEW_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_PREVIEW_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,221,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,199,"wiki_methods.bas");}while(r); do{ *_SUB_HELP_PREVIEW_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_PREVIEW_LONG_I+ 1 ); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,222,"wiki_methods.bas");}while(r); -S_50501:; +if(!qbevent)break;evnt(26307,200,"wiki_methods.bas");}while(r); +S_57170:; if ((-(*_SUB_HELP_PREVIEW_LONG_C== 13 ))||new_error){ -if(qbevent){evnt(25066,223,"wiki_methods.bas");if(r)goto S_50501;} +if(qbevent){evnt(26307,201,"wiki_methods.bas");if(r)goto S_57170;} do{ qbg_sub_color(*_SUB_HELP_PREVIEW_LONG_COL& 15 ,*_SUB_HELP_PREVIEW_LONG_COL/ 16 ,NULL,3); -if(!qbevent)break;evnt(25066,224,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,202,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space(*__LONG_HELP_W-func_pos( 0 ))); -if (new_error) goto skip5738; +if (new_error) goto skip6357; makefit(tqbs); qbs_print(tqbs,0); -skip5738: +skip6357: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,225,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,203,"wiki_methods.bas");}while(r); do{ qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(25066,226,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,204,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_space(func__width(NULL,0)-func_pos( 0 )+ 1 )); -if (new_error) goto skip5739; +if (new_error) goto skip6358; makefit(tqbs); qbs_print(tqbs,0); -skip5739: +skip6358: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,227,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,205,"wiki_methods.bas");}while(r); do{ qbg_sub_color(*_SUB_HELP_PREVIEW_LONG_COL& 15 ,*_SUB_HELP_PREVIEW_LONG_COL/ 16 ,NULL,3); -if(!qbevent)break;evnt(25066,228,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,206,"wiki_methods.bas");}while(r); do{ sub_sleep(NULL,0); -if(!qbevent)break;evnt(25066,229,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,207,"wiki_methods.bas");}while(r); }else{ do{ qbg_sub_color(*_SUB_HELP_PREVIEW_LONG_COL& 15 ,*_SUB_HELP_PREVIEW_LONG_COL/ 16 ,NULL,3); -if(!qbevent)break;evnt(25066,231,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,209,"wiki_methods.bas");}while(r); do{ tqbs=qbs_new(0,0); qbs_set(tqbs,func_chr(*_SUB_HELP_PREVIEW_LONG_C)); -if (new_error) goto skip5740; +if (new_error) goto skip6359; makefit(tqbs); qbs_print(tqbs,0); -skip5740: +skip6359: qbs_free(tqbs); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,232,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,210,"wiki_methods.bas");}while(r); } -fornext_continue_5735:; +fornext_continue_6354:; } -fornext_exit_5735:; +fornext_exit_6354:; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free218.txt" +#include "free245.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } @@ -178761,7 +199482,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data219.txt" +#include "data246.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -178769,27 +199490,27 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_NORMAL; -if(!qbevent)break;evnt(25066,239,"wiki_methods.bas");}while(r); -S_50514:; +if(!qbevent)break;evnt(26307,217,"wiki_methods.bas");}while(r); +S_57183:; if ((*__LONG_HELP_ITALIC)||new_error){ -if(qbevent){evnt(25066,240,"wiki_methods.bas");if(r)goto S_50514;} +if(qbevent){evnt(26307,218,"wiki_methods.bas");if(r)goto S_57183;} do{ *_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_ITALIC; -if(!qbevent)break;evnt(25066,240,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,218,"wiki_methods.bas");}while(r); } -S_50517:; +S_57186:; if ((*__LONG_HELP_BOLD)||new_error){ -if(qbevent){evnt(25066,241,"wiki_methods.bas");if(r)goto S_50517;} +if(qbevent){evnt(26307,219,"wiki_methods.bas");if(r)goto S_57186;} do{ *_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_BOLD; -if(!qbevent)break;evnt(25066,241,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,219,"wiki_methods.bas");}while(r); } do{ *_FUNC_HELP_COL_LONG_HELP_COL=*_FUNC_HELP_COL_LONG_COL; -if(!qbevent)break;evnt(25066,242,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,220,"wiki_methods.bas");}while(r); exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free219.txt" +#include "free246.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; return *_FUNC_HELP_COL_LONG_HELP_COL; @@ -178801,7 +199522,7 @@ int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data220.txt" +#include "data247.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -178809,75 +199530,75 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; do{ *__LONG_HELP_H= 0 ; -if(!qbevent)break;evnt(25066,253,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,231,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_W= 0 ; -if(!qbevent)break;evnt(25066,253,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,231,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINE,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,253,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,231,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,253,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,231,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LINKN= 0 ; -if(!qbevent)break;evnt(25066,253,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,231,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_TXT,func_space( 1000000 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,254,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,232,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_TXT_LEN= 0 ; -if(!qbevent)break;evnt(25066,255,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,233,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_POS= 1 ; -if(!qbevent)break;evnt(25066,257,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,235,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS= 0 ; -if(!qbevent)break;evnt(25066,257,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,235,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINE,l2string( 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,258,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,236,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LOCKWRAP= 0 ; -if(!qbevent)break;evnt(25066,259,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,237,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(25066,260,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,238,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(25066,260,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,238,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 0 ; -if(!qbevent)break;evnt(25066,261,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,239,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(25066,262,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,240,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 0 ; -if(!qbevent)break;evnt(25066,264,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,242,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_ELINK= 0 ; -if(!qbevent)break;evnt(25066,264,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,242,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_CB= 0 ; -if(!qbevent)break;evnt(25066,264,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,242,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(25066,266,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,244,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_PREFETCH= 16 ; -if(!qbevent)break;evnt(25066,286,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,265,"wiki_methods.bas");}while(r); do{ if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&2){ error(10); }else{ if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&1){ -error(10); +if (!error_occurred) error(10); }else{ _SUB_WIKIPARSE_ARRAY_STRING_C[4]= 0 ; _SUB_WIKIPARSE_ARRAY_STRING_C[5]=(*_SUB_WIKIPARSE_LONG_PREFETCH)-_SUB_WIKIPARSE_ARRAY_STRING_C[4]+1; @@ -178893,100 +199614,118 @@ while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]=(uint6 } } } -if(!qbevent)break;evnt(25066,287,"wiki_methods.bas");}while(r); -S_50542:; -fornext_value5743= 1 ; -fornext_finalvalue5743=*_SUB_WIKIPARSE_LONG_PREFETCH; -fornext_step5743= 1 ; -if (fornext_step5743<0) fornext_step_negative5743=1; else fornext_step_negative5743=0; -if (new_error) goto fornext_error5743; -goto fornext_entrylabel5743; +if(!qbevent)break;evnt(26307,266,"wiki_methods.bas");}while(r); +S_57211:; +fornext_value6362= 1 ; +fornext_finalvalue6362=*_SUB_WIKIPARSE_LONG_PREFETCH; +fornext_step6362= 1 ; +if (fornext_step6362<0) fornext_step_negative6362=1; else fornext_step_negative6362=0; +if (new_error) goto fornext_error6362; +goto fornext_entrylabel6362; while(1){ -fornext_value5743=fornext_step5743+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5743: -*_SUB_WIKIPARSE_LONG_II=fornext_value5743; -if (fornext_step_negative5743){ -if (fornext_value5743fornext_finalvalue5743) break; +if (fornext_value6362>fornext_finalvalue6362) break; } -fornext_error5743:; -if(qbevent){evnt(25066,288,"wiki_methods.bas");if(r)goto S_50542;} +fornext_error6362:; +if(qbevent){evnt(26307,267,"wiki_methods.bas");if(r)goto S_57211;} do{ tmp_long=array_check((*_SUB_WIKIPARSE_LONG_II)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5]); if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long])),func_space(*_SUB_WIKIPARSE_LONG_II)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,289,"wiki_methods.bas");}while(r); -fornext_continue_5742:; +if(!qbevent)break;evnt(26307,268,"wiki_methods.bas");}while(r); +fornext_continue_6361:; } -fornext_exit_5742:; +fornext_exit_6361:; +do{ +*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("",1),1)+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,273,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("len; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,292,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,277,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I= 1 ; -if(!qbevent)break;evnt(25066,293,"wiki_methods.bas");}while(r); -S_50547:; +if(!qbevent)break;evnt(26307,278,"wiki_methods.bas");}while(r); +S_57221:; while((-(*_SUB_WIKIPARSE_LONG_I<=*_SUB_WIKIPARSE_LONG_N))||new_error){ -if(qbevent){evnt(25066,294,"wiki_methods.bas");if(r)goto S_50547;} +if(qbevent){evnt(26307,279,"wiki_methods.bas");if(r)goto S_57221;} do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,296,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,281,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr(*_SUB_WIKIPARSE_LONG_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,296,"wiki_methods.bas");}while(r); -S_50550:; -fornext_value5747= 1 ; -fornext_finalvalue5747=*_SUB_WIKIPARSE_LONG_PREFETCH; -fornext_step5747= 1 ; -if (fornext_step5747<0) fornext_step_negative5747=1; else fornext_step_negative5747=0; -if (new_error) goto fornext_error5747; -goto fornext_entrylabel5747; +if(!qbevent)break;evnt(26307,281,"wiki_methods.bas");}while(r); +S_57224:; +fornext_value6367= 1 ; +fornext_finalvalue6367=*_SUB_WIKIPARSE_LONG_PREFETCH; +fornext_step6367= 1 ; +if (fornext_step6367<0) fornext_step_negative6367=1; else fornext_step_negative6367=0; +if (new_error) goto fornext_error6367; +goto fornext_entrylabel6367; while(1){ -fornext_value5747=fornext_step5747+(*_SUB_WIKIPARSE_LONG_I1); -fornext_entrylabel5747: -*_SUB_WIKIPARSE_LONG_I1=fornext_value5747; -if (fornext_step_negative5747){ -if (fornext_value5747fornext_finalvalue5747) break; +if (fornext_value6367>fornext_finalvalue6367) break; } -fornext_error5747:; -if(qbevent){evnt(25066,297,"wiki_methods.bas");if(r)goto S_50550;} +fornext_error6367:; +if(qbevent){evnt(26307,282,"wiki_methods.bas");if(r)goto S_57224;} do{ *_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_I; -if(!qbevent)break;evnt(25066,298,"wiki_methods.bas");}while(r); -S_50552:; -fornext_value5749= 1 ; -fornext_finalvalue5749=*_SUB_WIKIPARSE_LONG_I1; -fornext_step5749= 1 ; -if (fornext_step5749<0) fornext_step_negative5749=1; else fornext_step_negative5749=0; -if (new_error) goto fornext_error5749; -goto fornext_entrylabel5749; +if(!qbevent)break;evnt(26307,283,"wiki_methods.bas");}while(r); +S_57226:; +fornext_value6369= 1 ; +fornext_finalvalue6369=*_SUB_WIKIPARSE_LONG_I1; +fornext_step6369= 1 ; +if (fornext_step6369<0) fornext_step_negative6369=1; else fornext_step_negative6369=0; +if (new_error) goto fornext_error6369; +goto fornext_entrylabel6369; while(1){ -fornext_value5749=fornext_step5749+(*_SUB_WIKIPARSE_LONG_I2); -fornext_entrylabel5749: -*_SUB_WIKIPARSE_LONG_I2=fornext_value5749; -if (fornext_step_negative5749){ -if (fornext_value5749fornext_finalvalue5749) break; +if (fornext_value6369>fornext_finalvalue6369) break; } -fornext_error5749:; -if(qbevent){evnt(25066,299,"wiki_methods.bas");if(r)goto S_50552;} -S_50553:; +fornext_error6369:; +if(qbevent){evnt(26307,284,"wiki_methods.bas");if(r)goto S_57226;} +S_57227:; if ((-(*_SUB_WIKIPARSE_LONG_II<=*_SUB_WIKIPARSE_LONG_N))||new_error){ -if(qbevent){evnt(25066,300,"wiki_methods.bas");if(r)goto S_50553;} +if(qbevent){evnt(26307,285,"wiki_methods.bas");if(r)goto S_57227;} do{ tqbs=((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_I1)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])); if (!new_error){ tmp_fileno=*_SUB_WIKIPARSE_LONG_I2; if (!new_error){ tmp_long=qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II); if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,301,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,286,"wiki_methods.bas");}while(r); }else{ do{ tqbs=((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_I1)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])); if (!new_error){ @@ -178994,1609 +199733,2488 @@ tmp_fileno=*_SUB_WIKIPARSE_LONG_I2; if (!new_error){ tmp_long= 32 ; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,303,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,288,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_II+ 1 ; -if(!qbevent)break;evnt(25066,305,"wiki_methods.bas");}while(r); -fornext_continue_5748:; +if(!qbevent)break;evnt(26307,290,"wiki_methods.bas");}while(r); +fornext_continue_6368:; } -fornext_exit_5748:; -fornext_continue_5746:; +fornext_exit_6368:; +fornext_continue_6366:; } -fornext_exit_5746:; -S_50561:; +fornext_exit_6366:; +S_57235:; if ((-(*_SUB_WIKIPARSE_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(25066,309,"wiki_methods.bas");if(r)goto S_50561;} +if(qbevent){evnt(26307,294,"wiki_methods.bas");if(r)goto S_57235;} do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len(""",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,310,"wiki_methods.bas");}while(r); -S_50563:; +if(!qbevent)break;evnt(26307,295,"wiki_methods.bas");}while(r); +S_57237:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,311,"wiki_methods.bas");if(r)goto S_50563;} +if(qbevent){evnt(26307,296,"wiki_methods.bas");if(r)goto S_57237;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,312,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,297,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 34 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,313,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,298,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,313,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,298,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; -if(!qbevent)break;evnt(25066,314,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,299,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("&",5)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,317,"wiki_methods.bas");}while(r); -S_50570:; +if(!qbevent)break;evnt(26307,302,"wiki_methods.bas");}while(r); +S_57244:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,318,"wiki_methods.bas");if(r)goto S_50570;} +if(qbevent){evnt(26307,303,"wiki_methods.bas");if(r)goto S_57244;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,319,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,304,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("&",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,320,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,305,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,320,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,305,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; -if(!qbevent)break;evnt(25066,321,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,306,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len(">",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,324,"wiki_methods.bas");}while(r); -S_50577:; +if(!qbevent)break;evnt(26307,309,"wiki_methods.bas");}while(r); +S_57251:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,325,"wiki_methods.bas");if(r)goto S_50577;} +if(qbevent){evnt(26307,310,"wiki_methods.bas");if(r)goto S_57251;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,326,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,311,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(">",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,327,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,312,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,327,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,312,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; -if(!qbevent)break;evnt(25066,328,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,313,"wiki_methods.bas");}while(r); } -S_50583:; +S_57257:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(func_chr( 194 ),func_chr( 160 ))))))||new_error){ -if(qbevent){evnt(25066,331,"wiki_methods.bas");if(r)goto S_50583;} +if(qbevent){evnt(26307,316,"wiki_methods.bas");if(r)goto S_57257;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,332,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,317,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,333,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,318,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<code>",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,336,"wiki_methods.bas");}while(r); -S_50588:; +if(!qbevent)break;evnt(26307,321,"wiki_methods.bas");}while(r); +S_57262:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,336,"wiki_methods.bas");if(r)goto S_50588;} +if(qbevent){evnt(26307,321,"wiki_methods.bas");if(r)goto S_57262;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,336,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,321,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,336,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,321,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</code>",10)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,337,"wiki_methods.bas");}while(r); -S_50593:; +if(!qbevent)break;evnt(26307,322,"wiki_methods.bas");}while(r); +S_57267:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,337,"wiki_methods.bas");if(r)goto S_50593;} +if(qbevent){evnt(26307,322,"wiki_methods.bas");if(r)goto S_57267;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,337,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,322,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,337,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,322,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<center>",11)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,339,"wiki_methods.bas");}while(r); -S_50598:; +if(!qbevent)break;evnt(26307,324,"wiki_methods.bas");}while(r); +S_57272:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,340,"wiki_methods.bas");if(r)goto S_50598;} +if(qbevent){evnt(26307,325,"wiki_methods.bas");if(r)goto S_57272;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,341,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,326,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,342,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,327,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</center>",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,345,"wiki_methods.bas");}while(r); -S_50603:; +if(!qbevent)break;evnt(26307,330,"wiki_methods.bas");}while(r); +S_57277:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,346,"wiki_methods.bas");if(r)goto S_50603;} +if(qbevent){evnt(26307,331,"wiki_methods.bas");if(r)goto S_57277;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,347,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,332,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,348,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,333,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<nowiki>",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,336,"wiki_methods.bas");}while(r); +S_57282:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26307,337,"wiki_methods.bas");if(r)goto S_57282;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,338,"wiki_methods.bas");}while(r); +do{ +goto LABEL_SPECIAL; +if(!qbevent)break;evnt(26307,339,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</nowiki>",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,342,"wiki_methods.bas");}while(r); +S_57287:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26307,343,"wiki_methods.bas");if(r)goto S_57287;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,344,"wiki_methods.bas");}while(r); +do{ +goto LABEL_SPECIAL; +if(!qbevent)break;evnt(26307,345,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<p style=",12)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,351,"wiki_methods.bas");}while(r); -S_50608:; +if(!qbevent)break;evnt(26307,349,"wiki_methods.bas");}while(r); +S_57292:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,352,"wiki_methods.bas");if(r)goto S_50608;} +if(qbevent){evnt(26307,350,"wiki_methods.bas");if(r)goto S_57292;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,353,"wiki_methods.bas");}while(r); -S_50610:; -fornext_value5767=*_SUB_WIKIPARSE_LONG_I; -fornext_finalvalue5767=_SUB_WIKIPARSE_STRING_A->len- 1 ; -fornext_step5767= 1 ; -if (fornext_step5767<0) fornext_step_negative5767=1; else fornext_step_negative5767=0; -if (new_error) goto fornext_error5767; -goto fornext_entrylabel5767; +if(!qbevent)break;evnt(26307,351,"wiki_methods.bas");}while(r); +S_57294:; +fornext_value6391=*_SUB_WIKIPARSE_LONG_I; +fornext_finalvalue6391=_SUB_WIKIPARSE_STRING_A->len- 1 ; +fornext_step6391= 1 ; +if (fornext_step6391<0) fornext_step_negative6391=1; else fornext_step_negative6391=0; +if (new_error) goto fornext_error6391; +goto fornext_entrylabel6391; while(1){ -fornext_value5767=fornext_step5767+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5767: -*_SUB_WIKIPARSE_LONG_II=fornext_value5767; +fornext_value6391=fornext_step6391+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6391: +*_SUB_WIKIPARSE_LONG_II=fornext_value6391; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5767){ -if (fornext_value5767fornext_finalvalue5767) break; +if (fornext_value6391>fornext_finalvalue6391) break; } -fornext_error5767:; -if(qbevent){evnt(25066,354,"wiki_methods.bas");if(r)goto S_50610;} -S_50611:; +fornext_error6391:; +if(qbevent){evnt(26307,352,"wiki_methods.bas");if(r)goto S_57294;} +S_57295:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,1),qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(25066,355,"wiki_methods.bas");if(r)goto S_50611;} +if(qbevent){evnt(26307,353,"wiki_methods.bas");if(r)goto S_57295;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(25066,355,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,353,"wiki_methods.bas");}while(r); do{ -goto fornext_exit_5766; -if(!qbevent)break;evnt(25066,355,"wiki_methods.bas");}while(r); +goto fornext_exit_6390; +if(!qbevent)break;evnt(26307,353,"wiki_methods.bas");}while(r); } -fornext_continue_5766:; +fornext_continue_6390:; } -fornext_exit_5766:; +fornext_exit_6390:; do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,357,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,355,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("</p",6)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,360,"wiki_methods.bas");}while(r); -S_50619:; +if(!qbevent)break;evnt(26307,358,"wiki_methods.bas");}while(r); +S_57303:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,361,"wiki_methods.bas");if(r)goto S_50619;} +if(qbevent){evnt(26307,359,"wiki_methods.bas");if(r)goto S_57303;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,362,"wiki_methods.bas");}while(r); -S_50621:; -fornext_value5772=*_SUB_WIKIPARSE_LONG_I; -fornext_finalvalue5772=_SUB_WIKIPARSE_STRING_A->len- 1 ; -fornext_step5772= 1 ; -if (fornext_step5772<0) fornext_step_negative5772=1; else fornext_step_negative5772=0; -if (new_error) goto fornext_error5772; -goto fornext_entrylabel5772; +if(!qbevent)break;evnt(26307,360,"wiki_methods.bas");}while(r); +S_57305:; +fornext_value6396=*_SUB_WIKIPARSE_LONG_I; +fornext_finalvalue6396=_SUB_WIKIPARSE_STRING_A->len- 1 ; +fornext_step6396= 1 ; +if (fornext_step6396<0) fornext_step_negative6396=1; else fornext_step_negative6396=0; +if (new_error) goto fornext_error6396; +goto fornext_entrylabel6396; while(1){ -fornext_value5772=fornext_step5772+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5772: -*_SUB_WIKIPARSE_LONG_II=fornext_value5772; +fornext_value6396=fornext_step6396+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6396: +*_SUB_WIKIPARSE_LONG_II=fornext_value6396; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5772){ -if (fornext_value5772fornext_finalvalue5772) break; +if (fornext_value6396>fornext_finalvalue6396) break; } -fornext_error5772:; -if(qbevent){evnt(25066,363,"wiki_methods.bas");if(r)goto S_50621;} -S_50622:; +fornext_error6396:; +if(qbevent){evnt(26307,361,"wiki_methods.bas");if(r)goto S_57305;} +S_57306:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,1),qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(25066,364,"wiki_methods.bas");if(r)goto S_50622;} +if(qbevent){evnt(26307,362,"wiki_methods.bas");if(r)goto S_57306;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(25066,364,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,362,"wiki_methods.bas");}while(r); do{ -goto fornext_exit_5771; -if(!qbevent)break;evnt(25066,364,"wiki_methods.bas");}while(r); +goto fornext_exit_6395; +if(!qbevent)break;evnt(26307,362,"wiki_methods.bas");}while(r); } -fornext_continue_5771:; +fornext_continue_6395:; } -fornext_exit_5771:; +fornext_exit_6395:; do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,366,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,364,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<div",7)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,369,"wiki_methods.bas");}while(r); -S_50630:; +if(!qbevent)break;evnt(26307,367,"wiki_methods.bas");}while(r); +S_57314:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,370,"wiki_methods.bas");if(r)goto S_50630;} +if(qbevent){evnt(26307,368,"wiki_methods.bas");if(r)goto S_57314;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,371,"wiki_methods.bas");}while(r); -S_50632:; -fornext_value5777=*_SUB_WIKIPARSE_LONG_I; -fornext_finalvalue5777=_SUB_WIKIPARSE_STRING_A->len- 1 ; -fornext_step5777= 1 ; -if (fornext_step5777<0) fornext_step_negative5777=1; else fornext_step_negative5777=0; -if (new_error) goto fornext_error5777; -goto fornext_entrylabel5777; +if(!qbevent)break;evnt(26307,369,"wiki_methods.bas");}while(r); +S_57316:; +fornext_value6401=*_SUB_WIKIPARSE_LONG_I; +fornext_finalvalue6401=_SUB_WIKIPARSE_STRING_A->len- 1 ; +fornext_step6401= 1 ; +if (fornext_step6401<0) fornext_step_negative6401=1; else fornext_step_negative6401=0; +if (new_error) goto fornext_error6401; +goto fornext_entrylabel6401; while(1){ -fornext_value5777=fornext_step5777+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5777: -*_SUB_WIKIPARSE_LONG_II=fornext_value5777; +fornext_value6401=fornext_step6401+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6401: +*_SUB_WIKIPARSE_LONG_II=fornext_value6401; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5777){ -if (fornext_value5777fornext_finalvalue5777) break; +if (fornext_value6401>fornext_finalvalue6401) break; } -fornext_error5777:; -if(qbevent){evnt(25066,372,"wiki_methods.bas");if(r)goto S_50632;} -S_50633:; +fornext_error6401:; +if(qbevent){evnt(26307,370,"wiki_methods.bas");if(r)goto S_57316;} +S_57317:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 9 ,1),qbs_new_txt_len("</div>",9))))||new_error){ -if(qbevent){evnt(25066,373,"wiki_methods.bas");if(r)goto S_50633;} +if(qbevent){evnt(26307,371,"wiki_methods.bas");if(r)goto S_57317;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 8 ; -if(!qbevent)break;evnt(25066,373,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,371,"wiki_methods.bas");}while(r); do{ -goto fornext_exit_5776; -if(!qbevent)break;evnt(25066,373,"wiki_methods.bas");}while(r); +goto fornext_exit_6400; +if(!qbevent)break;evnt(26307,371,"wiki_methods.bas");}while(r); } -fornext_continue_5776:; +fornext_continue_6400:; } -fornext_exit_5776:; +fornext_exit_6400:; do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,375,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,373,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("<",4)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,378,"wiki_methods.bas");}while(r); -S_50641:; +if(!qbevent)break;evnt(26307,376,"wiki_methods.bas");}while(r); +S_57325:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,379,"wiki_methods.bas");if(r)goto S_50641;} +if(qbevent){evnt(26307,377,"wiki_methods.bas");if(r)goto S_57325;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,380,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,378,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("<",1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,381,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,379,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_C); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,381,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,379,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIALCHR; -if(!qbevent)break;evnt(25066,382,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,380,"wiki_methods.bas");}while(r); } LABEL_SPECIALCHR:; -if(qbevent){evnt(25066,384,"wiki_methods.bas");r=0;} +if(qbevent){evnt(26307,382,"wiki_methods.bas");r=0;} } -S_50648:; +S_57332:; if ((-(*_SUB_WIKIPARSE_LONG_C== 91 ))||new_error){ -if(qbevent){evnt(25066,388,"wiki_methods.bas");if(r)goto S_50648;} -S_50649:; +if(qbevent){evnt(26307,386,"wiki_methods.bas");if(r)goto S_57332;} +S_57333:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("[[",2)))&(-(*_SUB_WIKIPARSE_LONG_LINK== 0 ))))||new_error){ -if(qbevent){evnt(25066,389,"wiki_methods.bas");if(r)goto S_50649;} +if(qbevent){evnt(26307,387,"wiki_methods.bas");if(r)goto S_57333;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,390,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,388,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 1 ; -if(!qbevent)break;evnt(25066,391,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,389,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,392,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,390,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,393,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,391,"wiki_methods.bas");}while(r); } } -S_50656:; +S_57340:; if ((-(*_SUB_WIKIPARSE_LONG_LINK== 1 ))||new_error){ -if(qbevent){evnt(25066,396,"wiki_methods.bas");if(r)goto S_50656;} -S_50657:; +if(qbevent){evnt(26307,394,"wiki_methods.bas");if(r)goto S_57340;} +S_57341:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("]]",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))))||new_error){ -if(qbevent){evnt(25066,397,"wiki_methods.bas");if(r)goto S_50657;} +if(qbevent){evnt(26307,395,"wiki_methods.bas");if(r)goto S_57341;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,398,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,396,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 0 ; -if(!qbevent)break;evnt(25066,399,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,397,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_TEXT,_SUB_WIKIPARSE_STRING_LINK); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,400,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,398,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("|",1),0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,401,"wiki_methods.bas");}while(r); -S_50662:; +if(!qbevent)break;evnt(26307,399,"wiki_methods.bas");}while(r); +S_57346:; if ((*_SUB_WIKIPARSE_LONG_I2)||new_error){ -if(qbevent){evnt(25066,402,"wiki_methods.bas");if(r)goto S_50662;} +if(qbevent){evnt(26307,400,"wiki_methods.bas");if(r)goto S_57346;} do{ qbs_set(_SUB_WIKIPARSE_STRING_TEXT,qbs_right(_SUB_WIKIPARSE_STRING_LINK,_SUB_WIKIPARSE_STRING_LINK->len-*_SUB_WIKIPARSE_LONG_I2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,403,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,401,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_left(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,404,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,402,"wiki_methods.bas");}while(r); } -S_50666:; +S_57350:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("#",1),0)))||new_error){ -if(qbevent){evnt(25066,407,"wiki_methods.bas");if(r)goto S_50666;} +if(qbevent){evnt(26307,405,"wiki_methods.bas");if(r)goto S_57350;} do{ -SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,&(pass5782= 8 ),&(pass5783= 0 )); +SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,&(pass6406= 8 ),&(pass6407= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,408,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,406,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,409,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,407,"wiki_methods.bas");}while(r); } do{ *__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; -if(!qbevent)break;evnt(25066,412,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,410,"wiki_methods.bas");}while(r); do{ qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("PAGE:",5)),_SUB_WIKIPARSE_STRING_LINK),__STRING_HELP_LINK_SEP)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,413,"wiki_methods.bas");}while(r); -S_50672:; +if(!qbevent)break;evnt(26307,411,"wiki_methods.bas");}while(r); +S_57356:; if ((-(*__LONG_HELP_BG_COL== 0 ))||new_error){ -if(qbevent){evnt(25066,415,"wiki_methods.bas");if(r)goto S_50672;} +if(qbevent){evnt(26307,413,"wiki_methods.bas");if(r)goto S_57356;} do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,__LONG_HELP_COL_LINK,__LONG_HELP_LINKN); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,416,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,414,"wiki_methods.bas");}while(r); }else{ do{ SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TEXT,__LONG_HELP_COL_BOLD,__LONG_HELP_LINKN); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,418,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,416,"wiki_methods.bas");}while(r); } do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,420,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,418,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_add(_SUB_WIKIPARSE_STRING_LINK,_SUB_WIKIPARSE_STRING_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,422,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,420,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,423,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,421,"wiki_methods.bas");}while(r); } -S_50682:; +S_57366:; if ((-(*_SUB_WIKIPARSE_LONG_C== 91 ))||new_error){ -if(qbevent){evnt(25066,428,"wiki_methods.bas");if(r)goto S_50682;} -S_50683:; +if(qbevent){evnt(26307,426,"wiki_methods.bas");if(r)goto S_57366;} +S_57367:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("[http:",6)))&(-(*_SUB_WIKIPARSE_LONG_ELINK== 0 ))))||new_error){ -if(qbevent){evnt(25066,429,"wiki_methods.bas");if(r)goto S_50683;} +if(qbevent){evnt(26307,427,"wiki_methods.bas");if(r)goto S_57367;} do{ *_SUB_WIKIPARSE_LONG_ELINK= 2 ; -if(!qbevent)break;evnt(25066,430,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,428,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,431,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,429,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,432,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,430,"wiki_methods.bas");}while(r); } } -S_50689:; +S_57373:; if ((-(*_SUB_WIKIPARSE_LONG_ELINK== 2 ))||new_error){ -if(qbevent){evnt(25066,435,"wiki_methods.bas");if(r)goto S_50689;} -S_50690:; +if(qbevent){evnt(26307,433,"wiki_methods.bas");if(r)goto S_57373;} +S_57374:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(25066,436,"wiki_methods.bas");if(r)goto S_50690;} +if(qbevent){evnt(26307,434,"wiki_methods.bas");if(r)goto S_57374;} do{ *_SUB_WIKIPARSE_LONG_ELINK= 1 ; -if(!qbevent)break;evnt(25066,437,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,435,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,438,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,436,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_add(_SUB_WIKIPARSE_STRING_ELINK,_SUB_WIKIPARSE_STRING_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,440,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,438,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,441,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,439,"wiki_methods.bas");}while(r); } -S_50697:; +S_57381:; if ((-(*_SUB_WIKIPARSE_LONG_ELINK>= 1 ))||new_error){ -if(qbevent){evnt(25066,443,"wiki_methods.bas");if(r)goto S_50697;} -S_50698:; +if(qbevent){evnt(26307,441,"wiki_methods.bas");if(r)goto S_57381;} +S_57382:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(25066,444,"wiki_methods.bas");if(r)goto S_50698;} +if(qbevent){evnt(26307,442,"wiki_methods.bas");if(r)goto S_57382;} do{ *_SUB_WIKIPARSE_LONG_ELINK= 0 ; -if(!qbevent)break;evnt(25066,445,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,443,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_add(qbs_new_txt_len(" ",1),_SUB_WIKIPARSE_STRING_ELINK)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,446,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,444,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LOCKWRAP= 1 ; -if(!qbevent)break;evnt(25066,447,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,445,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_WRAP_POS= 0 ; -if(!qbevent)break;evnt(25066,447,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,445,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_ELINK,&(pass5784= 8 ),&(pass5785= 0 )); +SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_ELINK,&(pass6408= 8 ),&(pass6409= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,448,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,446,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_LOCKWRAP= 0 ; -if(!qbevent)break;evnt(25066,449,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,447,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,450,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,448,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,451,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,449,"wiki_methods.bas");}while(r); } } -S_50709:; +S_57393:; if ((-(*_SUB_WIKIPARSE_LONG_C== 123 ))||new_error){ -if(qbevent){evnt(25066,455,"wiki_methods.bas");if(r)goto S_50709;} -S_50710:; +if(qbevent){evnt(26307,453,"wiki_methods.bas");if(r)goto S_57393;} +S_57394:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{KW|",5))))||new_error){ -if(qbevent){evnt(25066,456,"wiki_methods.bas");if(r)goto S_50710;} +if(qbevent){evnt(26307,454,"wiki_methods.bas");if(r)goto S_57394;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 4 ; -if(!qbevent)break;evnt(25066,457,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,455,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 1 ; -if(!qbevent)break;evnt(25066,458,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,456,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,459,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,457,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,460,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,458,"wiki_methods.bas");}while(r); } -S_50716:; +S_57400:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cl|",5))))||new_error){ -if(qbevent){evnt(25066,462,"wiki_methods.bas");if(r)goto S_50716;} +if(qbevent){evnt(26307,460,"wiki_methods.bas");if(r)goto S_57400;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 4 ; -if(!qbevent)break;evnt(25066,463,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,461,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LINK= 1 ; -if(!qbevent)break;evnt(25066,464,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,462,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,465,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,463,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,466,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,464,"wiki_methods.bas");}while(r); } -S_50722:; +S_57406:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{",2))))||new_error){ -if(qbevent){evnt(25066,468,"wiki_methods.bas");if(r)goto S_50722;} +if(qbevent){evnt(26307,466,"wiki_methods.bas");if(r)goto S_57406;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,469,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,467,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_CB= 1 ; -if(!qbevent)break;evnt(25066,470,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,468,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("",0)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,471,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,469,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,472,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,470,"wiki_methods.bas");}while(r); } } -S_50729:; +S_57413:; if ((-(*_SUB_WIKIPARSE_LONG_CB== 1 ))||new_error){ -if(qbevent){evnt(25066,476,"wiki_methods.bas");if(r)goto S_50729;} -S_50730:; +if(qbevent){evnt(26307,474,"wiki_methods.bas");if(r)goto S_57413;} +S_57414:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))))||new_error){ -if(qbevent){evnt(25066,477,"wiki_methods.bas");if(r)goto S_50730;} -S_50731:; +if(qbevent){evnt(26307,475,"wiki_methods.bas");if(r)goto S_57414;} +S_57415:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2))))||new_error){ -if(qbevent){evnt(25066,478,"wiki_methods.bas");if(r)goto S_50731;} +if(qbevent){evnt(26307,476,"wiki_methods.bas");if(r)goto S_57415;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,478,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,476,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_CB= 0 ; -if(!qbevent)break;evnt(25066,479,"wiki_methods.bas");}while(r); -S_50735:; +if(!qbevent)break;evnt(26307,477,"wiki_methods.bas");}while(r); +S_57419:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSyntax",10))))||new_error){ -if(qbevent){evnt(25066,481,"wiki_methods.bas");if(r)goto S_50735;} +if(qbevent){evnt(26307,479,"wiki_methods.bas");if(r)goto S_57419;} do{ -SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Syntax:",7),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5786= 0 )); +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Syntax:",7),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6410= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,481,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,479,"wiki_methods.bas");}while(r); } -S_50738:; +S_57422:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageParameters",14))))||new_error){ +if(qbevent){evnt(26307,480,"wiki_methods.bas");if(r)goto S_57422;} +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Parameters:",11),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6411= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,480,"wiki_methods.bas");}while(r); +} +S_57425:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageDescription",15))))||new_error){ -if(qbevent){evnt(25066,482,"wiki_methods.bas");if(r)goto S_50738;} +if(qbevent){evnt(26307,481,"wiki_methods.bas");if(r)goto S_57425;} do{ -SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Description:",12),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5787= 0 )); +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Description:",12),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6412= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,482,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,481,"wiki_methods.bas");}while(r); } -S_50741:; +S_57428:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageAvailability",16))))||new_error){ +if(qbevent){evnt(26307,482,"wiki_methods.bas");if(r)goto S_57428;} +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Availability:",13),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6413= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,482,"wiki_methods.bas");}while(r); +} +S_57431:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageExamples",12))))||new_error){ -if(qbevent){evnt(25066,483,"wiki_methods.bas");if(r)goto S_50741;} +if(qbevent){evnt(26307,483,"wiki_methods.bas");if(r)goto S_57431;} do{ -SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Code Examples:",14),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5788= 0 )); +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Code Examples:",14),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6414= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,483,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,483,"wiki_methods.bas");}while(r); } -S_50744:; +S_57434:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSeeAlso",11))))||new_error){ -if(qbevent){evnt(25066,484,"wiki_methods.bas");if(r)goto S_50744;} +if(qbevent){evnt(26307,484,"wiki_methods.bas");if(r)goto S_57434;} do{ -SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("See also:",9),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass5789= 0 )); +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("See also:",9),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6415= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,484,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,484,"wiki_methods.bas");}while(r); } -S_50747:; +S_57437:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageLegacySupport",17))))||new_error){ +if(qbevent){evnt(26307,485,"wiki_methods.bas");if(r)goto S_57437;} +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("Legacy support",14),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6416= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,485,"wiki_methods.bas");}while(r); +} +S_57440:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageQBasic",10))))||new_error){ +if(qbevent){evnt(26307,486,"wiki_methods.bas");if(r)goto S_57440;} +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len("QBasic/QuickBASIC",17),func_chr( 13 )),__LONG_HELP_COL_SECTION,&(pass6417= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,486,"wiki_methods.bas");}while(r); +} +S_57443:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeStart",9))))||new_error){ -if(qbevent){evnt(25066,486,"wiki_methods.bas");if(r)goto S_50747;} +if(qbevent){evnt(26307,488,"wiki_methods.bas");if(r)goto S_57443;} do{ SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(25066,487,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,489,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 1 ; -if(!qbevent)break;evnt(25066,488,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,490,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_WS= 1 ; -if(!qbevent)break;evnt(25066,490,"wiki_methods.bas");}while(r); -S_50751:; -fornext_value5791=*_SUB_WIKIPARSE_LONG_I+ 1 ; -fornext_finalvalue5791=_SUB_WIKIPARSE_STRING_A->len; -fornext_step5791= 1 ; -if (fornext_step5791<0) fornext_step_negative5791=1; else fornext_step_negative5791=0; -if (new_error) goto fornext_error5791; -goto fornext_entrylabel5791; +if(!qbevent)break;evnt(26307,492,"wiki_methods.bas");}while(r); +S_57447:; +fornext_value6419=*_SUB_WIKIPARSE_LONG_I+ 1 ; +fornext_finalvalue6419=_SUB_WIKIPARSE_STRING_A->len; +fornext_step6419= 1 ; +if (fornext_step6419<0) fornext_step_negative6419=1; else fornext_step_negative6419=0; +if (new_error) goto fornext_error6419; +goto fornext_entrylabel6419; while(1){ -fornext_value5791=fornext_step5791+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5791: -*_SUB_WIKIPARSE_LONG_II=fornext_value5791; +fornext_value6419=fornext_step6419+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6419: +*_SUB_WIKIPARSE_LONG_II=fornext_value6419; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5791){ -if (fornext_value5791fornext_finalvalue5791) break; +if (fornext_value6419>fornext_finalvalue6419) break; } -fornext_error5791:; -if(qbevent){evnt(25066,491,"wiki_methods.bas");if(r)goto S_50751;} -S_50752:; +fornext_error6419:; +if(qbevent){evnt(26307,493,"wiki_methods.bas");if(r)goto S_57447;} +S_57448:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)== 10 )))||new_error){ -if(qbevent){evnt(25066,492,"wiki_methods.bas");if(r)goto S_50752;} +if(qbevent){evnt(26307,494,"wiki_methods.bas");if(r)goto S_57448;} do{ -goto fornext_exit_5790; -if(!qbevent)break;evnt(25066,492,"wiki_methods.bas");}while(r); +goto fornext_exit_6418; +if(!qbevent)break;evnt(26307,494,"wiki_methods.bas");}while(r); } -S_50755:; +S_57451:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 32 ))&(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 39 ))))||new_error){ -if(qbevent){evnt(25066,493,"wiki_methods.bas");if(r)goto S_50755;} +if(qbevent){evnt(26307,495,"wiki_methods.bas");if(r)goto S_57451;} do{ *_SUB_WIKIPARSE_LONG_WS= 0 ; -if(!qbevent)break;evnt(25066,493,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,495,"wiki_methods.bas");}while(r); } -fornext_continue_5790:; +fornext_continue_6418:; } -fornext_exit_5790:; -S_50759:; +fornext_exit_6418:; +S_57455:; if ((*_SUB_WIKIPARSE_LONG_WS)||new_error){ -if(qbevent){evnt(25066,495,"wiki_methods.bas");if(r)goto S_50759;} +if(qbevent){evnt(26307,497,"wiki_methods.bas");if(r)goto S_57455;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(25066,495,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,497,"wiki_methods.bas");}while(r); } } -S_50763:; +S_57459:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeEnd",7))))||new_error){ -if(qbevent){evnt(25066,497,"wiki_methods.bas");if(r)goto S_50763;} +if(qbevent){evnt(26307,499,"wiki_methods.bas");if(r)goto S_57459;} do{ *__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(25066,497,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,499,"wiki_methods.bas");}while(r); } -S_50766:; +S_57462:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("OutputStart",11))))||new_error){ -if(qbevent){evnt(25066,498,"wiki_methods.bas");if(r)goto S_50766;} +if(qbevent){evnt(26307,500,"wiki_methods.bas");if(r)goto S_57462;} do{ SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(25066,499,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,501,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_BG_COL= 2 ; -if(!qbevent)break;evnt(25066,500,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,502,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_WS= 1 ; -if(!qbevent)break;evnt(25066,502,"wiki_methods.bas");}while(r); -S_50770:; -fornext_value5794=*_SUB_WIKIPARSE_LONG_I+ 1 ; -fornext_finalvalue5794=_SUB_WIKIPARSE_STRING_A->len; -fornext_step5794= 1 ; -if (fornext_step5794<0) fornext_step_negative5794=1; else fornext_step_negative5794=0; -if (new_error) goto fornext_error5794; -goto fornext_entrylabel5794; +if(!qbevent)break;evnt(26307,504,"wiki_methods.bas");}while(r); +S_57466:; +fornext_value6422=*_SUB_WIKIPARSE_LONG_I+ 1 ; +fornext_finalvalue6422=_SUB_WIKIPARSE_STRING_A->len; +fornext_step6422= 1 ; +if (fornext_step6422<0) fornext_step_negative6422=1; else fornext_step_negative6422=0; +if (new_error) goto fornext_error6422; +goto fornext_entrylabel6422; while(1){ -fornext_value5794=fornext_step5794+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5794: -*_SUB_WIKIPARSE_LONG_II=fornext_value5794; +fornext_value6422=fornext_step6422+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6422: +*_SUB_WIKIPARSE_LONG_II=fornext_value6422; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5794){ -if (fornext_value5794fornext_finalvalue5794) break; +if (fornext_value6422>fornext_finalvalue6422) break; } -fornext_error5794:; -if(qbevent){evnt(25066,503,"wiki_methods.bas");if(r)goto S_50770;} -S_50771:; +fornext_error6422:; +if(qbevent){evnt(26307,505,"wiki_methods.bas");if(r)goto S_57466;} +S_57467:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)== 10 )))||new_error){ -if(qbevent){evnt(25066,504,"wiki_methods.bas");if(r)goto S_50771;} +if(qbevent){evnt(26307,506,"wiki_methods.bas");if(r)goto S_57467;} do{ -goto fornext_exit_5793; -if(!qbevent)break;evnt(25066,504,"wiki_methods.bas");}while(r); +goto fornext_exit_6421; +if(!qbevent)break;evnt(26307,506,"wiki_methods.bas");}while(r); } -S_50774:; +S_57470:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 32 ))&(-(qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II)!= 39 ))))||new_error){ -if(qbevent){evnt(25066,505,"wiki_methods.bas");if(r)goto S_50774;} +if(qbevent){evnt(26307,507,"wiki_methods.bas");if(r)goto S_57470;} do{ *_SUB_WIKIPARSE_LONG_WS= 0 ; -if(!qbevent)break;evnt(25066,505,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,507,"wiki_methods.bas");}while(r); } -fornext_continue_5793:; +fornext_continue_6421:; } -fornext_exit_5793:; -S_50778:; +fornext_exit_6421:; +S_57474:; if ((*_SUB_WIKIPARSE_LONG_WS)||new_error){ -if(qbevent){evnt(25066,507,"wiki_methods.bas");if(r)goto S_50778;} +if(qbevent){evnt(26307,509,"wiki_methods.bas");if(r)goto S_57474;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(25066,507,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,509,"wiki_methods.bas");}while(r); } } -S_50782:; +S_57478:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("OutputEnd",9))))||new_error){ -if(qbevent){evnt(25066,509,"wiki_methods.bas");if(r)goto S_50782;} +if(qbevent){evnt(26307,511,"wiki_methods.bas");if(r)goto S_57478;} do{ *__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(25066,509,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,511,"wiki_methods.bas");}while(r); } do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,511,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,513,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,_SUB_WIKIPARSE_STRING_C)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,515,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,517,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,516,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,518,"wiki_methods.bas");}while(r); } -S_50790:; +S_57486:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2))))||new_error){ -if(qbevent){evnt(25066,519,"wiki_methods.bas");if(r)goto S_50790;} +if(qbevent){evnt(26307,521,"wiki_methods.bas");if(r)goto S_57486;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,520,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,522,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,521,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,523,"wiki_methods.bas");}while(r); } -S_50794:; +S_57490:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" == ",4))))||new_error){ -if(qbevent){evnt(25066,526,"wiki_methods.bas");if(r)goto S_50794;} +if(qbevent){evnt(26307,528,"wiki_methods.bas");if(r)goto S_57490;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,527,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,529,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 1 ; -if(!qbevent)break;evnt(25066,528,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,530,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,529,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,531,"wiki_methods.bas");}while(r); } -S_50799:; +S_57495:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("== ",3))))||new_error){ -if(qbevent){evnt(25066,531,"wiki_methods.bas");if(r)goto S_50799;} +if(qbevent){evnt(26307,533,"wiki_methods.bas");if(r)goto S_57495;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(25066,532,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,534,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 1 ; -if(!qbevent)break;evnt(25066,533,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,535,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,534,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,536,"wiki_methods.bas");}while(r); } -S_50804:; +S_57500:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ==",3))))||new_error){ -if(qbevent){evnt(25066,536,"wiki_methods.bas");if(r)goto S_50804;} +if(qbevent){evnt(26307,538,"wiki_methods.bas");if(r)goto S_57500;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(25066,537,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,539,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,538,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,540,"wiki_methods.bas");}while(r); } -S_50808:; +S_57504:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==",2))))||new_error){ -if(qbevent){evnt(25066,540,"wiki_methods.bas");if(r)goto S_50808;} +if(qbevent){evnt(26307,542,"wiki_methods.bas");if(r)goto S_57504;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,541,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,543,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_UNDERLINE= 1 ; -if(!qbevent)break;evnt(25066,542,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,544,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,543,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,545,"wiki_methods.bas");}while(r); } -S_50813:; +S_57509:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("'''",3))))||new_error){ -if(qbevent){evnt(25066,547,"wiki_methods.bas");if(r)goto S_50813;} +if(qbevent){evnt(26307,549,"wiki_methods.bas");if(r)goto S_57509;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(25066,548,"wiki_methods.bas");}while(r); -S_50815:; +if(!qbevent)break;evnt(26307,550,"wiki_methods.bas");}while(r); +S_57511:; if ((-(*__LONG_HELP_BOLD== 0 ))||new_error){ -if(qbevent){evnt(25066,549,"wiki_methods.bas");if(r)goto S_50815;} +if(qbevent){evnt(26307,551,"wiki_methods.bas");if(r)goto S_57511;} do{ *__LONG_HELP_BOLD= 1 ; -if(!qbevent)break;evnt(25066,549,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,551,"wiki_methods.bas");}while(r); }else{ do{ *__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(25066,549,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,551,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(25066,550,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,552,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,551,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,553,"wiki_methods.bas");}while(r); } -S_50823:; +S_57519:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("''",2))))||new_error){ -if(qbevent){evnt(25066,554,"wiki_methods.bas");if(r)goto S_50823;} +if(qbevent){evnt(26307,556,"wiki_methods.bas");if(r)goto S_57519;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,555,"wiki_methods.bas");}while(r); -S_50825:; +if(!qbevent)break;evnt(26307,557,"wiki_methods.bas");}while(r); +S_57521:; if ((-(*__LONG_HELP_ITALIC== 0 ))||new_error){ -if(qbevent){evnt(25066,556,"wiki_methods.bas");if(r)goto S_50825;} +if(qbevent){evnt(26307,558,"wiki_methods.bas");if(r)goto S_57521;} do{ *__LONG_HELP_ITALIC= 1 ; -if(!qbevent)break;evnt(25066,556,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"wiki_methods.bas");}while(r); }else{ do{ *__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(25066,556,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,558,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(25066,557,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,559,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,558,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,560,"wiki_methods.bas");}while(r); } -S_50833:; +S_57529:; if ((-(*_SUB_WIKIPARSE_LONG_NL== 1 ))||new_error){ -if(qbevent){evnt(25066,561,"wiki_methods.bas");if(r)goto S_50833;} -S_50834:; +if(qbevent){evnt(26307,563,"wiki_methods.bas");if(r)goto S_57529;} +S_57530:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("** ",3))))||new_error){ -if(qbevent){evnt(25066,563,"wiki_methods.bas");if(r)goto S_50834;} +if(qbevent){evnt(26307,565,"wiki_methods.bas");if(r)goto S_57530;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(25066,564,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,566,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",4),func_chr( 254 )),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5796= 0 )); +SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",4),func_chr( 254 )),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass6424= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,565,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,567,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 6 ; -if(!qbevent)break;evnt(25066,566,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,568,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,567,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,569,"wiki_methods.bas");}while(r); } -S_50840:; +S_57536:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("* ",2))))||new_error){ -if(qbevent){evnt(25066,569,"wiki_methods.bas");if(r)goto S_50840;} +if(qbevent){evnt(26307,571,"wiki_methods.bas");if(r)goto S_57536;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,570,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,572,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(qbs_add(func_chr( 254 ),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5797= 0 )); +SUB_HELP_ADDTXT(qbs_add(func_chr( 254 ),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass6425= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,571,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,573,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 2 ; -if(!qbevent)break;evnt(25066,572,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,574,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,573,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,575,"wiki_methods.bas");}while(r); } -S_50846:; +S_57542:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("**",2))))||new_error){ -if(qbevent){evnt(25066,575,"wiki_methods.bas");if(r)goto S_50846;} +if(qbevent){evnt(26307,577,"wiki_methods.bas");if(r)goto S_57542;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,576,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,578,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",4),func_chr( 254 )),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5798= 0 )); +SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",4),func_chr( 254 )),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass6426= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,577,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,579,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 6 ; -if(!qbevent)break;evnt(25066,578,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,580,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,579,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,581,"wiki_methods.bas");}while(r); } -S_50852:; +S_57548:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(25066,581,"wiki_methods.bas");if(r)goto S_50852;} +if(qbevent){evnt(26307,583,"wiki_methods.bas");if(r)goto S_57548;} do{ -SUB_HELP_ADDTXT(qbs_add(func_chr( 254 ),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass5799= 0 )); +SUB_HELP_ADDTXT(qbs_add(func_chr( 254 ),qbs_new_txt_len(" ",1)),_SUB_WIKIPARSE_LONG_COL,&(pass6427= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,582,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,584,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 2 ; -if(!qbevent)break;evnt(25066,583,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,585,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,584,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,586,"wiki_methods.bas");}while(r); } } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("{|",2)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,589,"wiki_methods.bas");}while(r); -S_50859:; +if(!qbevent)break;evnt(26307,591,"wiki_methods.bas");}while(r); +S_57555:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,590,"wiki_methods.bas");if(r)goto S_50859;} +if(qbevent){evnt(26307,592,"wiki_methods.bas");if(r)goto S_57555;} +S_57556:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I, 20 ,1)),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{| class=",9),func_chr( 34 )),qbs_new_txt_len("wikitable",9)),func_chr( 34 ))))))||new_error){ +if(qbevent){evnt(26307,593,"wiki_methods.bas");if(r)goto S_57556;} +do{ + +if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW)[8])->id=(++mem_lock_id); +if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&1){ +tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]); +free((void*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0])); +} +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]= 1 ; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]=( 100 )-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]+1; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[6]=1; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]=(ptrszint)malloc(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]*8); +if (!_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]) error(257); +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]|=1; +tmp_long=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; +if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&4){ +while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0); +}else{ +while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long]=(uint64)qbs_new(0,0); +} +} +if(!qbevent)break;evnt(26307,594,"wiki_methods.bas");}while(r); +do{ + +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL)[8])->id=(++mem_lock_id); +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&1){ +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ +cmem_dynamic_free((uint8*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); +}else{ +free((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); +} +} +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]= 1 ; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]=( 100 )-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]+1; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[6]=1; +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)cmem_dynamic_malloc(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]*2); +memset((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]),0,_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]*2); +}else{ +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)calloc(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]*2,1); +if (!_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]) error(257); +} +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]|=1; +} +if(!qbevent)break;evnt(26307,595,"wiki_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,596,"wiki_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,597,"wiki_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,598,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_INTEGER_TOTALCOLS= 0 ; +if(!qbevent)break;evnt(26307,599,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_INTEGER_TOTALROWS= 0 ; +if(!qbevent)break;evnt(26307,599,"wiki_methods.bas");}while(r); +S_57564:; +do{ +if(qbevent){evnt(26307,600,"wiki_methods.bas");if(r)goto S_57564;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_L,FUNC_WIKIGETLINE(_SUB_WIKIPARSE_STRING_A,_SUB_WIKIPARSE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,601,"wiki_methods.bas");}while(r); +S_57566:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_L,qbs_new_txt_len("|}",2)))|(-(*_SUB_WIKIPARSE_LONG_I>=_SUB_WIKIPARSE_STRING_A->len))))||new_error){ +if(qbevent){evnt(26307,602,"wiki_methods.bas");if(r)goto S_57566;} +do{ +goto dl_exit_6429; +if(!qbevent)break;evnt(26307,602,"wiki_methods.bas");}while(r); +} +S_57569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_L,qbs_new_txt_len("|-",2))))||new_error){ +if(qbevent){evnt(26307,603,"wiki_methods.bas");if(r)goto S_57569;} +do{ +goto dl_continue_6429; +if(!qbevent)break;evnt(26307,603,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_M,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,605,"wiki_methods.bas");}while(r); +S_57573:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_L, 2 ),qbs_new_txt_len("! ",2))))||new_error){ +if(qbevent){evnt(26307,606,"wiki_methods.bas");if(r)goto S_57573;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_M,qbs_new_txt_len("!!",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,606,"wiki_methods.bas");}while(r); +} +S_57576:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_L, 2 ),qbs_new_txt_len("| ",2))))||new_error){ +if(qbevent){evnt(26307,607,"wiki_methods.bas");if(r)goto S_57576;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_M,qbs_new_txt_len("||",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,607,"wiki_methods.bas");}while(r); +} +S_57579:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_WIKIPARSE_STRING_M->len))||new_error){ +if(qbevent){evnt(26307,609,"wiki_methods.bas");if(r)goto S_57579;} +do{ +*_SUB_WIKIPARSE_INTEGER_TOTALROWS=*_SUB_WIKIPARSE_INTEGER_TOTALROWS+ 1 ; +if(!qbevent)break;evnt(26307,611,"wiki_methods.bas");}while(r); +S_57581:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_WIKIPARSE_INTEGER_TOTALROWS>func_ubound(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW,1,1))))||new_error){ +if(qbevent){evnt(26307,612,"wiki_methods.bas");if(r)goto S_57581;} +do{ + +if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[2]&1){ +preserved_elements=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; +} +else preserved_elements=0; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]= 1 ; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]=(func_ubound(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW,1,1)+ 99 )-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4]+1; +_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[6]=1; +if (preserved_elements){ +static ptrszint tmp_long2; +tmp_long2=_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]; +if (tmp_long2len)))||new_error){ +if(qbevent){evnt(26307,622,"wiki_methods.bas");if(r)goto S_57589;} +do{ +*_SUB_WIKIPARSE_INTEGER_THISCOL=*_SUB_WIKIPARSE_INTEGER_THISCOL+ 1 ; +if(!qbevent)break;evnt(26307,623,"wiki_methods.bas");}while(r); +S_57591:; +if ((-(*_SUB_WIKIPARSE_INTEGER_TOTALCOLS<*_SUB_WIKIPARSE_INTEGER_THISCOL))||new_error){ +if(qbevent){evnt(26307,624,"wiki_methods.bas");if(r)goto S_57591;} +do{ +*_SUB_WIKIPARSE_INTEGER_TOTALCOLS=*_SUB_WIKIPARSE_INTEGER_THISCOL; +if(!qbevent)break;evnt(26307,624,"wiki_methods.bas");}while(r); +} +S_57594:; +if ((-(*_SUB_WIKIPARSE_INTEGER_THISCOL>func_ubound(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL,1,1)))||new_error){ +if(qbevent){evnt(26307,625,"wiki_methods.bas");if(r)goto S_57594;} +do{ + +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&2){ +error(10); +}else{ +((mem_lock*)((ptrszint*)_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL)[8])->id=(++mem_lock_id); +static int32 preserved_elements; +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&1){ +preserved_elements=_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]; +} +else preserved_elements=0; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]= 1 ; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]=(func_ubound(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL,1,1)+ 99 )-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4]+1; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[6]=1; +if (_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[2]&4){ +if (preserved_elements){ +memcpy(redim_preserve_cmem_buffer,(void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]),preserved_elements*2); +cmem_dynamic_free((uint8*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0])); +tmp_long=_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]; +_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*2); +memcpy((void*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]),redim_preserve_cmem_buffer,preserved_elements*2); +if (preserved_elementslen)+ 2 ))))||new_error){ +if(qbevent){evnt(26307,628,"wiki_methods.bas");if(r)goto S_57597;} +do{ +tmp_long=array_check((*_SUB_WIKIPARSE_INTEGER_THISCOL)-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4],_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5]); +if (!new_error) ((int16*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]))[tmp_long]=((int32)(qbs__trim(_SUB_WIKIPARSE_STRING_P))->len)+ 2 ; +if(!qbevent)break;evnt(26307,628,"wiki_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_WIKIPARSE_INTEGER_TOTALROWS)-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4],_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[tmp_long])),qbs_add(qbs_add(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[array_check((*_SUB_WIKIPARSE_INTEGER_TOTALROWS)-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4],_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5])])),qbs__trim(_SUB_WIKIPARSE_STRING_P)),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,629,"wiki_methods.bas");}while(r); +} +S_57602:; +dl_continue_6432:; +}while((qbs_cleanup(qbs_tmp_base,-(*_SUB_WIKIPARSE_LONG_J<_SUB_WIKIPARSE_STRING_L->len)))&&(!new_error)); +dl_exit_6432:; +if(qbevent){evnt(26307,631,"wiki_methods.bas");if(r)goto S_57602;} +} +dl_continue_6429:; +}while(1); +dl_exit_6429:; +do{ +*_SUB_WIKIPARSE_LONG_BACKUPHELP_BG_COL=*__LONG_HELP_BG_COL; +if(!qbevent)break;evnt(26307,634,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_BACKUPBOLD=*__LONG_HELP_BOLD; +if(!qbevent)break;evnt(26307,635,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 2 ; +if(!qbevent)break;evnt(26307,636,"wiki_methods.bas");}while(r); +S_57608:; +fornext_value6435= 1 ; +fornext_finalvalue6435=*_SUB_WIKIPARSE_INTEGER_TOTALROWS; +fornext_step6435= 1 ; +if (fornext_step6435<0) fornext_step_negative6435=1; else fornext_step_negative6435=0; +if (new_error) goto fornext_error6435; +goto fornext_entrylabel6435; +while(1){ +fornext_value6435=fornext_step6435+(*_SUB_WIKIPARSE_LONG_PRINTTABLE); +fornext_entrylabel6435: +*_SUB_WIKIPARSE_LONG_PRINTTABLE=fornext_value6435; +if (fornext_step_negative6435){ +if (fornext_value6435fornext_finalvalue6435) break; +} +fornext_error6435:; +if(qbevent){evnt(26307,637,"wiki_methods.bas");if(r)goto S_57608;} +S_57609:; +if ((-(*_SUB_WIKIPARSE_LONG_PRINTTABLE== 1 ))||new_error){ +if(qbevent){evnt(26307,638,"wiki_methods.bas");if(r)goto S_57609;} +do{ +*__LONG_HELP_BOLD= 1 ; +if(!qbevent)break;evnt(26307,639,"wiki_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26307,641,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26307,643,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_J= 1 ; +if(!qbevent)break;evnt(26307,645,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,646,"wiki_methods.bas");}while(r); +S_57617:; +fornext_value6437= 1 ; +fornext_finalvalue6437=*_SUB_WIKIPARSE_INTEGER_TOTALCOLS; +fornext_step6437= 1 ; +if (fornext_step6437<0) fornext_step_negative6437=1; else fornext_step_negative6437=0; +if (new_error) goto fornext_error6437; +goto fornext_entrylabel6437; +while(1){ +fornext_value6437=fornext_step6437+(*_SUB_WIKIPARSE_LONG_CHECKCOL); +fornext_entrylabel6437: +*_SUB_WIKIPARSE_LONG_CHECKCOL=fornext_value6437; +if (fornext_step_negative6437){ +if (fornext_value6437fornext_finalvalue6437) break; +} +fornext_error6437:; +if(qbevent){evnt(26307,647,"wiki_methods.bas");if(r)goto S_57617;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_WIKIGETUNTIL(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[0]))[array_check((*_SUB_WIKIPARSE_LONG_PRINTTABLE)-_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[4],_SUB_WIKIPARSE_ARRAY_STRING_TABLEROW[5])])),_SUB_WIKIPARSE_LONG_J,func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,648,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("<",4),qbs_new_txt_len("<",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,649,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len(">",4),qbs_new_txt_len(">",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,650,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_add(func_chr( 194 ),func_chr( 160 )),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,651,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("&",5),qbs_new_txt_len("&",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,652,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_add(qbs_add(func_chr( 226 ),func_chr( 136 )),func_chr( 146 )),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,653,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("",8),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,654,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("",9),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,655,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("
    ",8),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,656,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("
    ",9),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,657,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_P,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_P,qbs_new_txt_len("
    ",7),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,658,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_THISCOL,func_space(((int16*)(_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[0]))[array_check((*_SUB_WIKIPARSE_LONG_CHECKCOL)-_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[4],_SUB_WIKIPARSE_ARRAY_INTEGER_TABLECOL[5])])); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,660,"wiki_methods.bas");}while(r); +do{ +sub_mid(_SUB_WIKIPARSE_STRING_THISCOL, 2 ,0,_SUB_WIKIPARSE_STRING_P,0); +if(!qbevent)break;evnt(26307,661,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,qbs_add(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,_SUB_WIKIPARSE_STRING_THISCOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,662,"wiki_methods.bas");}while(r); +fornext_continue_6436:; +} +fornext_exit_6436:; +do{ +SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_TABLEOUTPUT,_SUB_WIKIPARSE_LONG_COL,&(pass6438= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,664,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass6439= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,665,"wiki_methods.bas");}while(r); +fornext_continue_6434:; +} +fornext_exit_6434:; +do{ +*__LONG_HELP_BG_COL=*_SUB_WIKIPARSE_LONG_BACKUPHELP_BG_COL; +if(!qbevent)break;evnt(26307,667,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD=*_SUB_WIKIPARSE_LONG_BACKUPBOLD; +if(!qbevent)break;evnt(26307,668,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass6440= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,669,"wiki_methods.bas");}while(r); +}else{ do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,591,"wiki_methods.bas");}while(r); -S_50861:; -fornext_value5802=*_SUB_WIKIPARSE_LONG_I; -fornext_finalvalue5802=_SUB_WIKIPARSE_STRING_A->len- 1 ; -fornext_step5802= 1 ; -if (fornext_step5802<0) fornext_step_negative5802=1; else fornext_step_negative5802=0; -if (new_error) goto fornext_error5802; -goto fornext_entrylabel5802; +if(!qbevent)break;evnt(26307,671,"wiki_methods.bas");}while(r); +S_57641:; +fornext_value6442=*_SUB_WIKIPARSE_LONG_I; +fornext_finalvalue6442=_SUB_WIKIPARSE_STRING_A->len- 1 ; +fornext_step6442= 1 ; +if (fornext_step6442<0) fornext_step_negative6442=1; else fornext_step_negative6442=0; +if (new_error) goto fornext_error6442; +goto fornext_entrylabel6442; while(1){ -fornext_value5802=fornext_step5802+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel5802: -*_SUB_WIKIPARSE_LONG_II=fornext_value5802; +fornext_value6442=fornext_step6442+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6442: +*_SUB_WIKIPARSE_LONG_II=fornext_value6442; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5802){ -if (fornext_value5802fornext_finalvalue5802) break; +if (fornext_value6442>fornext_finalvalue6442) break; } -fornext_error5802:; -if(qbevent){evnt(25066,592,"wiki_methods.bas");if(r)goto S_50861;} -S_50862:; +fornext_error6442:; +if(qbevent){evnt(26307,672,"wiki_methods.bas");if(r)goto S_57641;} +S_57642:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 2 ,1),qbs_new_txt_len("|}",2))))||new_error){ -if(qbevent){evnt(25066,593,"wiki_methods.bas");if(r)goto S_50862;} +if(qbevent){evnt(26307,673,"wiki_methods.bas");if(r)goto S_57642;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 1 ; -if(!qbevent)break;evnt(25066,593,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,673,"wiki_methods.bas");}while(r); do{ -goto fornext_exit_5801; -if(!qbevent)break;evnt(25066,593,"wiki_methods.bas");}while(r); +goto fornext_exit_6441; +if(!qbevent)break;evnt(26307,673,"wiki_methods.bas");}while(r); } -fornext_continue_5801:; +fornext_continue_6441:; +} +fornext_exit_6441:; } -fornext_exit_5801:; do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,595,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,676,"wiki_methods.bas");}while(r); } -S_50869:; +S_57650:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_add(func_chr( 226 ),func_chr( 128 )),func_chr( 166 ))))))||new_error){ -if(qbevent){evnt(25066,598,"wiki_methods.bas");if(r)goto S_50869;} +if(qbevent){evnt(26307,679,"wiki_methods.bas");if(r)goto S_57650;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(25066,599,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,680,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("...",3),_SUB_WIKIPARSE_LONG_COL,&(pass5804= 0 )); +SUB_HELP_ADDTXT(qbs_new_txt_len("...",3),_SUB_WIKIPARSE_LONG_COL,&(pass6444= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,600,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,681,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,601,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,682,"wiki_methods.bas");}while(r); } -S_50874:; +S_57655:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,func_chr( 226 ))))||new_error){ -if(qbevent){evnt(25066,604,"wiki_methods.bas");if(r)goto S_50874;} +if(qbevent){evnt(26307,685,"wiki_methods.bas");if(r)goto S_57655;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(25066,605,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,686,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,606,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,687,"wiki_methods.bas");}while(r); } -S_50878:; +S_57659:; if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(":",1)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(25066,609,"wiki_methods.bas");if(r)goto S_50878;} +if(qbevent){evnt(26307,690,"wiki_methods.bas");if(r)goto S_57659;} do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" ",4),_SUB_WIKIPARSE_LONG_COL,&(pass5805= 0 )); +SUB_HELP_ADDTXT(qbs_new_txt_len(" ",4),_SUB_WIKIPARSE_LONG_COL,&(pass6445= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,610,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,691,"wiki_methods.bas");}while(r); do{ *__LONG_HELP_NEWLINEINDENT=*__LONG_HELP_NEWLINEINDENT+ 4 ; -if(!qbevent)break;evnt(25066,611,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,692,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,612,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,693,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL2; -if(!qbevent)break;evnt(25066,612,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,693,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__NOTOC__",9),func_chr( 10 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,615,"wiki_methods.bas");}while(r); -S_50885:; +if(!qbevent)break;evnt(26307,696,"wiki_methods.bas");}while(r); +S_57666:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,616,"wiki_methods.bas");if(r)goto S_50885;} +if(qbevent){evnt(26307,697,"wiki_methods.bas");if(r)goto S_57666;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,617,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,698,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,618,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,699,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__NOTOC__",9)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,620,"wiki_methods.bas");}while(r); -S_50890:; +if(!qbevent)break;evnt(26307,701,"wiki_methods.bas");}while(r); +S_57671:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(25066,621,"wiki_methods.bas");if(r)goto S_50890;} +if(qbevent){evnt(26307,702,"wiki_methods.bas");if(r)goto S_57671;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,622,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,703,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,623,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,704,"wiki_methods.bas");}while(r); } -S_50894:; +S_57675:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("----",4))))||new_error){ -if(qbevent){evnt(25066,626,"wiki_methods.bas");if(r)goto S_50894;} +if(qbevent){evnt(26307,707,"wiki_methods.bas");if(r)goto S_57675;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; -if(!qbevent)break;evnt(25066,627,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,708,"wiki_methods.bas");}while(r); do{ -SUB_HELP_ADDTXT(func_string( 100 , 196 ),&(pass5810= 8 ),&(pass5811= 0 )); +SUB_HELP_ADDTXT(func_string( 100 , 196 ),&(pass6450= 8 ),&(pass6451= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,628,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,709,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL; -if(!qbevent)break;evnt(25066,629,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,710,"wiki_methods.bas");}while(r); } -S_50899:; +S_57680:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,func_chr( 10 ))))||new_error){ -if(qbevent){evnt(25066,634,"wiki_methods.bas");if(r)goto S_50899;} +if(qbevent){evnt(26307,715,"wiki_methods.bas");if(r)goto S_57680;} do{ *__LONG_HELP_NEWLINEINDENT= 0 ; -if(!qbevent)break;evnt(25066,635,"wiki_methods.bas");}while(r); -S_50901:; +if(!qbevent)break;evnt(26307,716,"wiki_methods.bas");}while(r); +S_57682:; if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ -if(qbevent){evnt(25066,637,"wiki_methods.bas");if(r)goto S_50901;} -S_50902:; +if(qbevent){evnt(26307,718,"wiki_methods.bas");if(r)goto S_57682;} +S_57683:; if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 3 )== 13 ))&(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 7 )== 13 ))))||new_error){ -if(qbevent){evnt(25066,638,"wiki_methods.bas");if(r)goto S_50902;} +if(qbevent){evnt(26307,719,"wiki_methods.bas");if(r)goto S_57683;} do{ goto LABEL_SKIPDOUBLEBLANKS; -if(!qbevent)break;evnt(25066,638,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,719,"wiki_methods.bas");}while(r); } } do{ -SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass5812= 0 )); +SUB_HELP_ADDTXT(func_chr( 13 ),_SUB_WIKIPARSE_LONG_COL,&(pass6452= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,641,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,722,"wiki_methods.bas");}while(r); LABEL_SKIPDOUBLEBLANKS:; -if(qbevent){evnt(25066,643,"wiki_methods.bas");r=0;} +if(qbevent){evnt(26307,724,"wiki_methods.bas");r=0;} do{ *_SUB_WIKIPARSE_LONG_NL= 1 ; -if(!qbevent)break;evnt(25066,644,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,725,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,645,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,726,"wiki_methods.bas");}while(r); do{ goto LABEL_SPECIAL2; -if(!qbevent)break;evnt(25066,645,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,726,"wiki_methods.bas");}while(r); } do{ -SUB_HELP_ADDTXT(func_chr(*_SUB_WIKIPARSE_LONG_C),_SUB_WIKIPARSE_LONG_COL,&(pass5813= 0 )); +SUB_HELP_ADDTXT(func_chr(*_SUB_WIKIPARSE_LONG_C),_SUB_WIKIPARSE_LONG_COL,&(pass6453= 0 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,648,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,729,"wiki_methods.bas");}while(r); LABEL_SPECIAL:; -if(qbevent){evnt(25066,650,"wiki_methods.bas");r=0;} +if(qbevent){evnt(26307,731,"wiki_methods.bas");r=0;} do{ *_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(25066,651,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,732,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_NL= 0 ; -if(!qbevent)break;evnt(25066,652,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,733,"wiki_methods.bas");}while(r); LABEL_SPECIAL2:; -if(qbevent){evnt(25066,653,"wiki_methods.bas");r=0;} -dl_continue_5745:; +if(qbevent){evnt(26307,734,"wiki_methods.bas");r=0;} +dl_continue_6365:; } -dl_exit_5745:; +dl_exit_6365:; do{ qbs_set(__STRING_HELP_TXT,qbs_add(qbs_left(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN),func_chr( 13 ))); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,657,"wiki_methods.bas");}while(r); -S_50916:; +if(!qbevent)break;evnt(26307,738,"wiki_methods.bas");}while(r); +S_57697:; if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HELP_PAGELOADED,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ -if(qbevent){evnt(25066,672,"wiki_methods.bas");if(r)goto S_50916;} +if(qbevent){evnt(26307,753,"wiki_methods.bas");if(r)goto S_57697;} do{ *_SUB_WIKIPARSE_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25066,674,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,755,"wiki_methods.bas");}while(r); do{ sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 4 ,NULL,NULL,*_SUB_WIKIPARSE_LONG_FH,NULL,0); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,675,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,756,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_A,func_space( 1000 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,676,"wiki_methods.bas");}while(r); -S_50920:; -fornext_value5815= 1 ; -fornext_finalvalue5815=*__LONG_HELP_H; -fornext_step5815= 1 ; -if (fornext_step5815<0) fornext_step_negative5815=1; else fornext_step_negative5815=0; -if (new_error) goto fornext_error5815; -goto fornext_entrylabel5815; +if(!qbevent)break;evnt(26307,757,"wiki_methods.bas");}while(r); +S_57701:; +fornext_value6455= 1 ; +fornext_finalvalue6455=*__LONG_HELP_H; +fornext_step6455= 1 ; +if (fornext_step6455<0) fornext_step_negative6455=1; else fornext_step_negative6455=0; +if (new_error) goto fornext_error6455; +goto fornext_entrylabel6455; while(1){ -fornext_value5815=fornext_step5815+(*_SUB_WIKIPARSE_LONG_CY); -fornext_entrylabel5815: -*_SUB_WIKIPARSE_LONG_CY=fornext_value5815; -if (fornext_step_negative5815){ -if (fornext_value5815fornext_finalvalue5815) break; +if (fornext_value6455>fornext_finalvalue6455) break; } -fornext_error5815:; -if(qbevent){evnt(25066,677,"wiki_methods.bas");if(r)goto S_50920;} +fornext_error6455:; +if(qbevent){evnt(26307,758,"wiki_methods.bas");if(r)goto S_57701;} do{ *_SUB_WIKIPARSE_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_WIKIPARSE_LONG_CY- 1 )* 4 )+( 1 ), 4 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,679,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,760,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_L; -if(!qbevent)break;evnt(25066,680,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,761,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_X2= 1 ; -if(!qbevent)break;evnt(25066,681,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,762,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,682,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,763,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_OLDLNK= 0 ; -if(!qbevent)break;evnt(25066,683,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,764,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNKX1= 0 ; -if(!qbevent)break;evnt(25066,684,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,765,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNKX2= 0 ; -if(!qbevent)break;evnt(25066,684,"wiki_methods.bas");}while(r); -S_50928:; +if(!qbevent)break;evnt(26307,765,"wiki_methods.bas");}while(r); +S_57709:; while((!(-(*_SUB_WIKIPARSE_LONG_C== 13 )))||new_error){ -if(qbevent){evnt(25066,685,"wiki_methods.bas");if(r)goto S_50928;} +if(qbevent){evnt(26307,766,"wiki_methods.bas");if(r)goto S_57709;} do{ tqbs=_SUB_WIKIPARSE_STRING_A; if (!new_error){ tmp_fileno=*_SUB_WIKIPARSE_LONG_X2; if (!new_error){ tmp_long=*_SUB_WIKIPARSE_LONG_C; if (!new_error){ if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} }}} -if(!qbevent)break;evnt(25066,686,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,767,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 2 , 2 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,687,"wiki_methods.bas");}while(r); -S_50931:; +if(!qbevent)break;evnt(26307,768,"wiki_methods.bas");}while(r); +S_57712:; if (((-(*_SUB_WIKIPARSE_LONG_OLDLNK== 0 ))&(-(*_SUB_WIKIPARSE_LONG_LNK!= 0 )))||new_error){ -if(qbevent){evnt(25066,688,"wiki_methods.bas");if(r)goto S_50931;} +if(qbevent){evnt(26307,769,"wiki_methods.bas");if(r)goto S_57712;} do{ *_SUB_WIKIPARSE_LONG_LNKX1=*_SUB_WIKIPARSE_LONG_X2; -if(!qbevent)break;evnt(25066,688,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,769,"wiki_methods.bas");}while(r); } -S_50934:; +S_57715:; if ((qbs_cleanup(qbs_tmp_base,(((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))|(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 4 )== 13 ))))&(-(*_SUB_WIKIPARSE_LONG_LNKX1!= 0 ))))||new_error){ -if(qbevent){evnt(25066,689,"wiki_methods.bas");if(r)goto S_50934;} +if(qbevent){evnt(26307,770,"wiki_methods.bas");if(r)goto S_57715;} do{ *_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_X2; -if(!qbevent)break;evnt(25066,690,"wiki_methods.bas");}while(r); -S_50936:; +if(!qbevent)break;evnt(26307,771,"wiki_methods.bas");}while(r); +S_57717:; if ((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))||new_error){ -if(qbevent){evnt(25066,690,"wiki_methods.bas");if(r)goto S_50936;} +if(qbevent){evnt(26307,771,"wiki_methods.bas");if(r)goto S_57717;} do{ *_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_LNKX2- 1 ; -if(!qbevent)break;evnt(25066,690,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,771,"wiki_methods.bas");}while(r); } -S_50939:; +S_57720:; if ((-(*_SUB_WIKIPARSE_LONG_LNKX1!= 3 ))||new_error){ -if(qbevent){evnt(25066,692,"wiki_methods.bas");if(r)goto S_50939;} +if(qbevent){evnt(26307,773,"wiki_methods.bas");if(r)goto S_57720;} do{ goto LABEL_IGNORELINK; -if(!qbevent)break;evnt(25066,692,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,773,"wiki_methods.bas");}while(r); } -S_50942:; +S_57723:; if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A, 1 )!= 254 )))||new_error){ -if(qbevent){evnt(25066,693,"wiki_methods.bas");if(r)goto S_50942;} +if(qbevent){evnt(26307,774,"wiki_methods.bas");if(r)goto S_57723;} do{ goto LABEL_IGNORELINK; -if(!qbevent)break;evnt(25066,693,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,774,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_LNK; -if(!qbevent)break;evnt(25066,696,"wiki_methods.bas");}while(r); -S_50946:; +if(!qbevent)break;evnt(26307,777,"wiki_methods.bas");}while(r); +S_57727:; if ((-(*_SUB_WIKIPARSE_LONG_LNK2== 0 ))||new_error){ -if(qbevent){evnt(25066,696,"wiki_methods.bas");if(r)goto S_50946;} +if(qbevent){evnt(26307,777,"wiki_methods.bas");if(r)goto S_57727;} do{ *_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_OLDLNK; -if(!qbevent)break;evnt(25066,696,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,777,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_L1= 1 ; -if(!qbevent)break;evnt(25066,697,"wiki_methods.bas");}while(r); -S_50950:; -fornext_value5818= 1 ; -fornext_finalvalue5818=*_SUB_WIKIPARSE_LONG_LNK2- 1 ; -fornext_step5818= 1 ; -if (fornext_step5818<0) fornext_step_negative5818=1; else fornext_step_negative5818=0; -if (new_error) goto fornext_error5818; -goto fornext_entrylabel5818; +if(!qbevent)break;evnt(26307,778,"wiki_methods.bas");}while(r); +S_57731:; +fornext_value6458= 1 ; +fornext_finalvalue6458=*_SUB_WIKIPARSE_LONG_LNK2- 1 ; +fornext_step6458= 1 ; +if (fornext_step6458<0) fornext_step_negative6458=1; else fornext_step_negative6458=0; +if (new_error) goto fornext_error6458; +goto fornext_entrylabel6458; while(1){ -fornext_value5818=fornext_step5818+(*_SUB_WIKIPARSE_LONG_LX); -fornext_entrylabel5818: -*_SUB_WIKIPARSE_LONG_LX=fornext_value5818; -if (fornext_step_negative5818){ -if (fornext_value5818fornext_finalvalue5818) break; +if (fornext_value6458>fornext_finalvalue6458) break; } -fornext_error5818:; -if(qbevent){evnt(25066,698,"wiki_methods.bas");if(r)goto S_50950;} +fornext_error6458:; +if(qbevent){evnt(26307,779,"wiki_methods.bas");if(r)goto S_57731;} do{ *_SUB_WIKIPARSE_LONG_L1=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)+ 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,699,"wiki_methods.bas");}while(r); -fornext_continue_5817:; +if(!qbevent)break;evnt(26307,780,"wiki_methods.bas");}while(r); +fornext_continue_6457:; } -fornext_exit_5817:; +fornext_exit_6457:; do{ *_SUB_WIKIPARSE_LONG_L2=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,1)- 1 ; qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,701,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,782,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_L,func_mid(__STRING_HELP_LINK,*_SUB_WIKIPARSE_LONG_L1,*_SUB_WIKIPARSE_LONG_L2-*_SUB_WIKIPARSE_LONG_L1+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,702,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,783,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_L,qbs_right(_SUB_WIKIPARSE_STRING_L,_SUB_WIKIPARSE_STRING_L->len- 5 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,704,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,785,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_LNKX1,*_SUB_WIKIPARSE_LONG_LNKX2-*_SUB_WIKIPARSE_LONG_LNKX1+ 1 ,1)); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,706,"wiki_methods.bas");}while(r); -S_50957:; +if(!qbevent)break;evnt(26307,787,"wiki_methods.bas");}while(r); +S_57738:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ -if(qbevent){evnt(25066,708,"wiki_methods.bas");if(r)goto S_50957;} +if(qbevent){evnt(26307,789,"wiki_methods.bas");if(r)goto S_57738;} do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,708,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,789,"wiki_methods.bas");}while(r); } -S_50960:; +S_57741:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(25066,709,"wiki_methods.bas");if(r)goto S_50960;} +if(qbevent){evnt(26307,790,"wiki_methods.bas");if(r)goto S_57741;} do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,709,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,790,"wiki_methods.bas");}while(r); } -S_50963:; +S_57744:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ -if(qbevent){evnt(25066,710,"wiki_methods.bas");if(r)goto S_50963;} +if(qbevent){evnt(26307,791,"wiki_methods.bas");if(r)goto S_57744;} do{ qbs_set(_SUB_WIKIPARSE_STRING_A3,qbs_right(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_A2->len-func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,711,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,792,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(25066,713,"wiki_methods.bas");}while(r); -S_50966:; +if(!qbevent)break;evnt(26307,794,"wiki_methods.bas");}while(r); +S_57747:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A3, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(25066,715,"wiki_methods.bas");if(r)goto S_50966;} -S_50967:; -fornext_value5822= 1 ; -fornext_finalvalue5822=_SUB_WIKIPARSE_STRING_A3->len; -fornext_step5822= 1 ; -if (fornext_step5822<0) fornext_step_negative5822=1; else fornext_step_negative5822=0; -if (new_error) goto fornext_error5822; -goto fornext_entrylabel5822; +if(qbevent){evnt(26307,796,"wiki_methods.bas");if(r)goto S_57747;} +S_57748:; +fornext_value6462= 1 ; +fornext_finalvalue6462=_SUB_WIKIPARSE_STRING_A3->len; +fornext_step6462= 1 ; +if (fornext_step6462<0) fornext_step_negative6462=1; else fornext_step_negative6462=0; +if (new_error) goto fornext_error6462; +goto fornext_entrylabel6462; while(1){ -fornext_value5822=fornext_step5822+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel5822: -*_SUB_WIKIPARSE_LONG_CI=fornext_value5822; +fornext_value6462=fornext_step6462+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6462: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6462; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5822){ -if (fornext_value5822fornext_finalvalue5822) break; +if (fornext_value6462>fornext_finalvalue6462) break; } -fornext_error5822:; -if(qbevent){evnt(25066,716,"wiki_methods.bas");if(r)goto S_50967;} +fornext_error6462:; +if(qbevent){evnt(26307,797,"wiki_methods.bas");if(r)goto S_57748;} do{ *_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A3,*_SUB_WIKIPARSE_LONG_CI); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,717,"wiki_methods.bas");}while(r); -S_50969:; +if(!qbevent)break;evnt(26307,798,"wiki_methods.bas");}while(r); +S_57750:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(25066,718,"wiki_methods.bas");if(r)goto S_50969;} +if(qbevent){evnt(26307,799,"wiki_methods.bas");if(r)goto S_57750;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,718,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,799,"wiki_methods.bas");}while(r); } -S_50972:; +S_57753:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(25066,719,"wiki_methods.bas");if(r)goto S_50972;} +if(qbevent){evnt(26307,800,"wiki_methods.bas");if(r)goto S_57753;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,719,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,800,"wiki_methods.bas");}while(r); } -fornext_continue_5821:; +fornext_continue_6461:; } -fornext_exit_5821:; +fornext_exit_6461:; } -S_50977:; +S_57758:; if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(25066,723,"wiki_methods.bas");if(r)goto S_50977;} +if(qbevent){evnt(26307,804,"wiki_methods.bas");if(r)goto S_57758;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip5824; +if (new_error) goto skip6464; sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A3,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0 , 0 , 1 ); -if (new_error) goto skip5824; -skip5824: +if (new_error) goto skip6464; +skip6464: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25066,723,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,804,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,725,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,806,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(25066,729,"wiki_methods.bas");}while(r); -S_50983:; +if(!qbevent)break;evnt(26307,810,"wiki_methods.bas");}while(r); +S_57764:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A2, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(25066,730,"wiki_methods.bas");if(r)goto S_50983;} -S_50984:; -fornext_value5826= 1 ; -fornext_finalvalue5826=_SUB_WIKIPARSE_STRING_A2->len; -fornext_step5826= 1 ; -if (fornext_step5826<0) fornext_step_negative5826=1; else fornext_step_negative5826=0; -if (new_error) goto fornext_error5826; -goto fornext_entrylabel5826; +if(qbevent){evnt(26307,811,"wiki_methods.bas");if(r)goto S_57764;} +S_57765:; +fornext_value6466= 1 ; +fornext_finalvalue6466=_SUB_WIKIPARSE_STRING_A2->len; +fornext_step6466= 1 ; +if (fornext_step6466<0) fornext_step_negative6466=1; else fornext_step_negative6466=0; +if (new_error) goto fornext_error6466; +goto fornext_entrylabel6466; while(1){ -fornext_value5826=fornext_step5826+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel5826: -*_SUB_WIKIPARSE_LONG_CI=fornext_value5826; +fornext_value6466=fornext_step6466+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6466: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6466; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5826){ -if (fornext_value5826fornext_finalvalue5826) break; +if (fornext_value6466>fornext_finalvalue6466) break; } -fornext_error5826:; -if(qbevent){evnt(25066,731,"wiki_methods.bas");if(r)goto S_50984;} +fornext_error6466:; +if(qbevent){evnt(26307,812,"wiki_methods.bas");if(r)goto S_57765;} do{ *_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A2,*_SUB_WIKIPARSE_LONG_CI); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,732,"wiki_methods.bas");}while(r); -S_50986:; +if(!qbevent)break;evnt(26307,813,"wiki_methods.bas");}while(r); +S_57767:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(25066,733,"wiki_methods.bas");if(r)goto S_50986;} +if(qbevent){evnt(26307,814,"wiki_methods.bas");if(r)goto S_57767;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,733,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,814,"wiki_methods.bas");}while(r); } -S_50989:; +S_57770:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(25066,734,"wiki_methods.bas");if(r)goto S_50989;} +if(qbevent){evnt(26307,815,"wiki_methods.bas");if(r)goto S_57770;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,734,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,815,"wiki_methods.bas");}while(r); } -fornext_continue_5825:; +fornext_continue_6465:; } -fornext_exit_5825:; +fornext_exit_6465:; } -S_50994:; +S_57775:; if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(25066,737,"wiki_methods.bas");if(r)goto S_50994;} +if(qbevent){evnt(26307,818,"wiki_methods.bas");if(r)goto S_57775;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip5828; +if (new_error) goto skip6468; sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0 , 0 , 1 ); -if (new_error) goto skip5828; -skip5828: +if (new_error) goto skip6468; +skip6468: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25066,737,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,818,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_OA2,_SUB_WIKIPARSE_STRING_A2); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,738,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,819,"wiki_methods.bas");}while(r); do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_L); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,740,"wiki_methods.bas");}while(r); -S_50999:; +if(!qbevent)break;evnt(26307,821,"wiki_methods.bas");}while(r); +S_57780:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ -if(qbevent){evnt(25066,741,"wiki_methods.bas");if(r)goto S_50999;} +if(qbevent){evnt(26307,822,"wiki_methods.bas");if(r)goto S_57780;} do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,741,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,822,"wiki_methods.bas");}while(r); } -S_51002:; +S_57783:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(25066,742,"wiki_methods.bas");if(r)goto S_51002;} +if(qbevent){evnt(26307,823,"wiki_methods.bas");if(r)goto S_57783;} do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,742,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,823,"wiki_methods.bas");}while(r); } -S_51005:; +S_57786:; if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ -if(qbevent){evnt(25066,743,"wiki_methods.bas");if(r)goto S_51005;} +if(qbevent){evnt(26307,824,"wiki_methods.bas");if(r)goto S_57786;} do{ qbs_set(_SUB_WIKIPARSE_STRING_A3,qbs_right(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_A2->len-func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 2 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,744,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,825,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(25066,746,"wiki_methods.bas");}while(r); -S_51008:; +if(!qbevent)break;evnt(26307,827,"wiki_methods.bas");}while(r); +S_57789:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A3, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(25066,747,"wiki_methods.bas");if(r)goto S_51008;} -S_51009:; -fornext_value5831= 1 ; -fornext_finalvalue5831=_SUB_WIKIPARSE_STRING_A3->len; -fornext_step5831= 1 ; -if (fornext_step5831<0) fornext_step_negative5831=1; else fornext_step_negative5831=0; -if (new_error) goto fornext_error5831; -goto fornext_entrylabel5831; +if(qbevent){evnt(26307,828,"wiki_methods.bas");if(r)goto S_57789;} +S_57790:; +fornext_value6471= 1 ; +fornext_finalvalue6471=_SUB_WIKIPARSE_STRING_A3->len; +fornext_step6471= 1 ; +if (fornext_step6471<0) fornext_step_negative6471=1; else fornext_step_negative6471=0; +if (new_error) goto fornext_error6471; +goto fornext_entrylabel6471; while(1){ -fornext_value5831=fornext_step5831+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel5831: -*_SUB_WIKIPARSE_LONG_CI=fornext_value5831; +fornext_value6471=fornext_step6471+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6471: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6471; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5831){ -if (fornext_value5831fornext_finalvalue5831) break; +if (fornext_value6471>fornext_finalvalue6471) break; } -fornext_error5831:; -if(qbevent){evnt(25066,748,"wiki_methods.bas");if(r)goto S_51009;} +fornext_error6471:; +if(qbevent){evnt(26307,829,"wiki_methods.bas");if(r)goto S_57790;} do{ *_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A3,*_SUB_WIKIPARSE_LONG_CI); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,749,"wiki_methods.bas");}while(r); -S_51011:; +if(!qbevent)break;evnt(26307,830,"wiki_methods.bas");}while(r); +S_57792:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(25066,750,"wiki_methods.bas");if(r)goto S_51011;} +if(qbevent){evnt(26307,831,"wiki_methods.bas");if(r)goto S_57792;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,750,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,831,"wiki_methods.bas");}while(r); } -S_51014:; +S_57795:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(25066,751,"wiki_methods.bas");if(r)goto S_51014;} +if(qbevent){evnt(26307,832,"wiki_methods.bas");if(r)goto S_57795;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,751,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,832,"wiki_methods.bas");}while(r); } -fornext_continue_5830:; +fornext_continue_6470:; } -fornext_exit_5830:; +fornext_exit_6470:; } -S_51019:; +S_57800:; if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(25066,754,"wiki_methods.bas");if(r)goto S_51019;} +if(qbevent){evnt(26307,835,"wiki_methods.bas");if(r)goto S_57800;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip5833; +if (new_error) goto skip6473; sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A3,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0 , 0 , 1 ); -if (new_error) goto skip5833; -skip5833: +if (new_error) goto skip6473; +skip6473: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25066,754,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,835,"wiki_methods.bas");}while(r); } do{ qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 1 )); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,756,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,837,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(25066,759,"wiki_methods.bas");}while(r); -S_51025:; +if(!qbevent)break;evnt(26307,840,"wiki_methods.bas");}while(r); +S_57806:; if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A2, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(25066,760,"wiki_methods.bas");if(r)goto S_51025;} -S_51026:; -fornext_value5835= 1 ; -fornext_finalvalue5835=_SUB_WIKIPARSE_STRING_A2->len; -fornext_step5835= 1 ; -if (fornext_step5835<0) fornext_step_negative5835=1; else fornext_step_negative5835=0; -if (new_error) goto fornext_error5835; -goto fornext_entrylabel5835; +if(qbevent){evnt(26307,841,"wiki_methods.bas");if(r)goto S_57806;} +S_57807:; +fornext_value6475= 1 ; +fornext_finalvalue6475=_SUB_WIKIPARSE_STRING_A2->len; +fornext_step6475= 1 ; +if (fornext_step6475<0) fornext_step_negative6475=1; else fornext_step_negative6475=0; +if (new_error) goto fornext_error6475; +goto fornext_entrylabel6475; while(1){ -fornext_value5835=fornext_step5835+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel5835: -*_SUB_WIKIPARSE_LONG_CI=fornext_value5835; +fornext_value6475=fornext_step6475+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6475: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6475; qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5835){ -if (fornext_value5835fornext_finalvalue5835) break; +if (fornext_value6475>fornext_finalvalue6475) break; } -fornext_error5835:; -if(qbevent){evnt(25066,761,"wiki_methods.bas");if(r)goto S_51026;} +fornext_error6475:; +if(qbevent){evnt(26307,842,"wiki_methods.bas");if(r)goto S_57807;} do{ *_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A2,*_SUB_WIKIPARSE_LONG_CI); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,762,"wiki_methods.bas");}while(r); -S_51028:; +if(!qbevent)break;evnt(26307,843,"wiki_methods.bas");}while(r); +S_57809:; if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(25066,763,"wiki_methods.bas");if(r)goto S_51028;} +if(qbevent){evnt(26307,844,"wiki_methods.bas");if(r)goto S_57809;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,763,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,844,"wiki_methods.bas");}while(r); } -S_51031:; +S_57812:; if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(25066,764,"wiki_methods.bas");if(r)goto S_51031;} +if(qbevent){evnt(26307,845,"wiki_methods.bas");if(r)goto S_57812;} do{ *_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(25066,764,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,845,"wiki_methods.bas");}while(r); } -fornext_continue_5834:; +fornext_continue_6474:; } -fornext_exit_5834:; +fornext_exit_6474:; } -S_51036:; +S_57817:; if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))&(qbs_notequal(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_OA2))))||new_error){ -if(qbevent){evnt(25066,767,"wiki_methods.bas");if(r)goto S_51036;} +if(qbevent){evnt(26307,848,"wiki_methods.bas");if(r)goto S_57817;} do{ tab_spc_cr_size=2; tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip5837; +if (new_error) goto skip6477; sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0 , 0 , 1 ); -if (new_error) goto skip5837; -skip5837: +if (new_error) goto skip6477; +skip6477: qbs_cleanup(qbs_tmp_base,0); tab_spc_cr_size=1; -if(!qbevent)break;evnt(25066,767,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,848,"wiki_methods.bas");}while(r); } LABEL_IGNORELINK:; -if(qbevent){evnt(25066,769,"wiki_methods.bas");r=0;} +if(qbevent){evnt(26307,850,"wiki_methods.bas");r=0;} do{ *_SUB_WIKIPARSE_LONG_LNKX1= 0 ; -if(!qbevent)break;evnt(25066,771,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,852,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_LNKX2= 0 ; -if(!qbevent)break;evnt(25066,771,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,852,"wiki_methods.bas");}while(r); } do{ *_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_X+ 4 ; -if(!qbevent)break;evnt(25066,773,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,854,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X); qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066,773,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,854,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_X2=*_SUB_WIKIPARSE_LONG_X2+ 1 ; -if(!qbevent)break;evnt(25066,774,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,855,"wiki_methods.bas");}while(r); do{ *_SUB_WIKIPARSE_LONG_OLDLNK=*_SUB_WIKIPARSE_LONG_LNK; -if(!qbevent)break;evnt(25066,775,"wiki_methods.bas");}while(r); -dl_continue_5816:; +if(!qbevent)break;evnt(26307,856,"wiki_methods.bas");}while(r); +dl_continue_6456:; } -dl_exit_5816:; -fornext_continue_5814:; +dl_exit_6456:; +fornext_continue_6454:; } -fornext_exit_5814:; +fornext_exit_6454:; do{ sub_close(*_SUB_WIKIPARSE_LONG_FH,1); -if(!qbevent)break;evnt(25066,778,"wiki_methods.bas");}while(r); +if(!qbevent)break;evnt(26307,859,"wiki_methods.bas");}while(r); } exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free220.txt" +#include "free247.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } -void SUB_VKUPDATE(){ +qbs* FUNC_WIKIGETLINE(qbs*_FUNC_WIKIGETLINE_STRING_A,int32*_FUNC_WIKIGETLINE_LONG_I){ qbs *tqbs; ptrszint tmp_long; int32 tmp_fileno; uint32 qbs_tmp_base=qbs_tmp_list_nexti; uint8 *tmp_mem_static_pointer=mem_static_pointer; uint32 tmp_cmem_sp=cmem_sp; -#include "data221.txt" +#include "data248.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_WIKIGETLINE_STRING_WIKIGETLINE,FUNC_WIKIGETUNTIL(_FUNC_WIKIGETLINE_STRING_A,_FUNC_WIKIGETLINE_LONG_I,func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,870,"wiki_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free248.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKIGETLINE_STRING_WIKIGETLINE);return _FUNC_WIKIGETLINE_STRING_WIKIGETLINE; +} +qbs* FUNC_WIKIGETUNTIL(qbs*_FUNC_WIKIGETUNTIL_STRING_A,int32*_FUNC_WIKIGETUNTIL_LONG_I,qbs*_FUNC_WIKIGETUNTIL_STRING_SEPARATOR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data249.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57832:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_WIKIGETUNTIL_LONG_I>=_FUNC_WIKIGETUNTIL_STRING_A->len)))||new_error){ +if(qbevent){evnt(26307,874,"wiki_methods.bas");if(r)goto S_57832;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,874,"wiki_methods.bas");}while(r); +} +do{ +*_FUNC_WIKIGETUNTIL_LONG_J=func_instr(*_FUNC_WIKIGETUNTIL_LONG_I,_FUNC_WIKIGETUNTIL_STRING_A,_FUNC_WIKIGETUNTIL_STRING_SEPARATOR,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,875,"wiki_methods.bas");}while(r); +S_57836:; +if ((-(*_FUNC_WIKIGETUNTIL_LONG_J== 0 ))||new_error){ +if(qbevent){evnt(26307,876,"wiki_methods.bas");if(r)goto S_57836;} +do{ +qbs_set(_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL,func_mid(_FUNC_WIKIGETUNTIL_STRING_A,*_FUNC_WIKIGETUNTIL_LONG_I,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,877,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIGETUNTIL_LONG_I=_FUNC_WIKIGETUNTIL_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,878,"wiki_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL,func_mid(_FUNC_WIKIGETUNTIL_STRING_A,*_FUNC_WIKIGETUNTIL_LONG_I,*_FUNC_WIKIGETUNTIL_LONG_J-*_FUNC_WIKIGETUNTIL_LONG_I,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,880,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIGETUNTIL_LONG_I=*_FUNC_WIKIGETUNTIL_LONG_J+ 1 ; +if(!qbevent)break;evnt(26307,881,"wiki_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free249.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL);return _FUNC_WIKIGETUNTIL_STRING_WIKIGETUNTIL; +} +void SUB_PURGEPRECOMPILEDCONTENT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data250.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57843:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26307,19930,"ide_methods.bas");if(r)goto S_57843;} +do{ +sub_chdir(qbs_new_txt_len("internal\\c",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19931,"ide_methods.bas");}while(r); +do{ +sub_shell2(qbs_new_txt_len("cmd /c purge_all_precompiled_content_win.bat",44),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19932,"ide_methods.bas");}while(r); +do{ +sub_chdir(qbs_new_txt_len("..\\..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19933,"ide_methods.bas");}while(r); +} +S_57848:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26307,19935,"ide_methods.bas");if(r)goto S_57848;} +do{ +sub_chdir(qbs_new_txt_len("./internal/c",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19936,"ide_methods.bas");}while(r); +S_57850:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(26307,19938,"ide_methods.bas");if(r)goto S_57850;} +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_osx.command",43),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19939,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("./purge_all_precompiled_content_lnx.sh",38),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19941,"ide_methods.bas");}while(r); +} +do{ +sub_chdir(qbs_new_txt_len("../..",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19943,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free250.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_PRINTWRAPSTATUS(int16*_SUB_PRINTWRAPSTATUS_INTEGER_X,int16*_SUB_PRINTWRAPSTATUS_INTEGER_Y,int16*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,qbs*_SUB_PRINTWRAPSTATUS_STRING___TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data251.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,19948,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26307,19949,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,_SUB_PRINTWRAPSTATUS_STRING___TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19950,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_PRINTWRAPSTATUS_INTEGER_Y,*_SUB_PRINTWRAPSTATUS_INTEGER_X,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,19952,"ide_methods.bas");}while(r); +S_57861:; +while((qbs_cleanup(qbs_tmp_base,((int32)(qbs__trim(_SUB_PRINTWRAPSTATUS_STRING_TEXT))->len)))||new_error){ +if(qbevent){evnt(26307,19953,"ide_methods.bas");if(r)goto S_57861;} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_TEXT,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19954,"ide_methods.bas");}while(r); +S_57863:; +if ((*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)||new_error){ +if(qbevent){evnt(26307,19955,"ide_methods.bas");if(r)goto S_57863;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_left(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19956,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=_SUB_PRINTWRAPSTATUS_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19958,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,_SUB_PRINTWRAPSTATUS_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19959,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,func_mid(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19961,"ide_methods.bas");}while(r); +S_57870:; +if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD->len)>(func__width(NULL,0)))))||new_error){ +if(qbevent){evnt(26307,19962,"ide_methods.bas");if(r)goto S_57870;} +S_57871:; +if ((-((func_csrlin()+ 1 )<=((*__LONG_IDEWY- 4 )+ 3 )))||new_error){ +if(qbevent){evnt(26307,19963,"ide_methods.bas");if(r)goto S_57871;} +do{ +qbg_sub_locate(func_csrlin()+ 1 ,*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26307,19964,"ide_methods.bas");}while(r); +}else{ +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19967,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR= 0 ; +if(!qbevent)break;evnt(26307,19971,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER= 0 ; +if(!qbevent)break;evnt(26307,19972,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= 0 ; +if(!qbevent)break;evnt(26307,19973,"ide_methods.bas");}while(r); +S_57880:; +fornext_value6488= 0 ; +fornext_finalvalue6488= 2 ; +fornext_step6488= 1 ; +if (fornext_step6488<0) fornext_step_negative6488=1; else fornext_step_negative6488=0; +if (new_error) goto fornext_error6488; +goto fornext_entrylabel6488; +while(1){ +fornext_value6488=fornext_step6488+(*_SUB_PRINTWRAPSTATUS_INTEGER_I); +fornext_entrylabel6488: +*_SUB_PRINTWRAPSTATUS_INTEGER_I=fornext_value6488; +if (fornext_step_negative6488){ +if (fornext_value6488fornext_finalvalue6488) break; +} +fornext_error6488:; +if(qbevent){evnt(26307,19974,"ide_methods.bas");if(r)goto S_57880;} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_chr(*_SUB_PRINTWRAPSTATUS_INTEGER_I),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19975,"ide_methods.bas");}while(r); +S_57882:; +if ((-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER== 1 ))||new_error){ +if(qbevent){evnt(26307,19976,"ide_methods.bas");if(r)goto S_57882;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19977,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ; +if(!qbevent)break;evnt(26307,19978,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=177; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_APPLYCOLORCHANGE; +RETURN_177:; +if(!qbevent)break;evnt(26307,19979,"ide_methods.bas");}while(r); +S_57886:; +}else{ +if (-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER> 0 )){ +if(qbevent){evnt(26307,19980,"ide_methods.bas");if(r)goto S_57886;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_add(qbs_left(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER- 1 ),func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19981,"ide_methods.bas");}while(r); +S_57888:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 1 ),qbs_new_txt_len(" ",1))))||new_error){ +if(qbevent){evnt(26307,19982,"ide_methods.bas");if(r)goto S_57888;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_rtrim(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19983,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= -1 ; +if(!qbevent)break;evnt(26307,19984,"ide_methods.bas");}while(r); +} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ; +if(!qbevent)break;evnt(26307,19986,"ide_methods.bas");}while(r); +} +} +fornext_continue_6487:; +} +fornext_exit_6487:; +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD); +if (new_error) goto skip6489; +makefit(tqbs); +qbs_print(tqbs,0); +skip6489: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,19990,"ide_methods.bas");}while(r); +S_57896:; +if ((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER)||new_error){ +if(qbevent){evnt(26307,19992,"ide_methods.bas");if(r)goto S_57896;} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER; +if(!qbevent)break;evnt(26307,19993,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=178; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_APPLYCOLORCHANGE; +RETURN_178:; +if(!qbevent)break;evnt(26307,19994,"ide_methods.bas");}while(r); +S_57899:; +if ((*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE)||new_error){ +if(qbevent){evnt(26307,19995,"ide_methods.bas");if(r)goto S_57899;} +do{ +qbg_sub_locate(NULL,func_pos( 0 )+ 1 ,NULL,NULL,NULL,2); +if(!qbevent)break;evnt(26307,19995,"ide_methods.bas");}while(r); +} +} +dl_continue_6484:; +} +dl_exit_6484:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,19998,"ide_methods.bas");}while(r); +LABEL_APPLYCOLORCHANGE:; +if(qbevent){evnt(26307,20000,"ide_methods.bas");r=0;} +S_57905:; +sc_6490_var=0; +if(qbevent){evnt(26307,20001,"ide_methods.bas");if(r)goto S_57905;} +S_57906:; +if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 1 )))||new_error){ +if(qbevent){evnt(26307,20002,"ide_methods.bas");if(r)goto S_57906;} +S_57907:; +if ((-(func__defaultcolor(NULL,0)!= 11 ))||new_error){ +if(qbevent){evnt(26307,20003,"ide_methods.bas");if(r)goto S_57907;} +do{ +qbg_sub_color( 11 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,20003,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26307,20003,"ide_methods.bas");}while(r); +} +sc_ec_421_end:; +sc_6490_var=-1; +} +S_57912:; +if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 2 )))||new_error){ +if(qbevent){evnt(26307,20004,"ide_methods.bas");if(r)goto S_57912;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26307,20005,"ide_methods.bas");}while(r); +sc_ec_422_end:; +sc_6490_var=-1; +} +S_57914:; +if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 3 )))||new_error){ +if(qbevent){evnt(26307,20006,"ide_methods.bas");if(r)goto S_57914;} +do{ +qbg_sub_color( 12 , 6 ,NULL,3); +if(!qbevent)break;evnt(26307,20007,"ide_methods.bas");}while(r); +sc_ec_423_end:; +} +sc_6490_end:; +do{ +#include "ret251.txt" +if(!qbevent)break;evnt(26307,20009,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free251.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_GETBYTES(qbs*_FUNC_GETBYTES_STRING___VALUE,int32*_FUNC_GETBYTES_LONG_NUMBEROFBYTES){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data252.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26307,20013,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GETBYTES_STRING_VALUE,_FUNC_GETBYTES_STRING___VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,20015,"ide_methods.bas");}while(r); +S_57920:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_GETBYTES_STRING_VALUE,_FUNC_GETBYTES_STRING_PREVIOUSVALUE)))||new_error){ +if(qbevent){evnt(26307,20016,"ide_methods.bas");if(r)goto S_57920;} +do{ +qbs_set(_FUNC_GETBYTES_STRING_PREVIOUSVALUE,_FUNC_GETBYTES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,20017,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETBYTES_LONG_GETBYTESPOSITION= 1 ; +if(!qbevent)break;evnt(26307,20018,"ide_methods.bas");}while(r); +} +S_57924:; +if ((-(*_FUNC_GETBYTES_LONG_NUMBEROFBYTES== 0 ))||new_error){ +if(qbevent){evnt(26307,20021,"ide_methods.bas");if(r)goto S_57924;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26307,20021,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GETBYTES_STRING_GETBYTES,func_mid(_FUNC_GETBYTES_STRING_VALUE,*_FUNC_GETBYTES_LONG_GETBYTESPOSITION,*_FUNC_GETBYTES_LONG_NUMBEROFBYTES,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26307,20023,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETBYTES_LONG_GETBYTESPOSITION=*_FUNC_GETBYTES_LONG_GETBYTESPOSITION+*_FUNC_GETBYTES_LONG_NUMBEROFBYTES; +if(!qbevent)break;evnt(26307,20024,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free252.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETBYTES_STRING_GETBYTES);return _FUNC_GETBYTES_STRING_GETBYTES; +} +void SUB_VWATCH(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data253.txt" mem_lock *sf_mem_lock; new_mem_lock(); sf_mem_lock=mem_lock_tmp; @@ -180604,7 +202222,7 @@ sf_mem_lock->type=3; if (new_error) goto exit_subfunc; exit_subfunc:; free_mem_lock(sf_mem_lock); -#include "free221.txt" +#include "free253.txt" if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; cmem_sp=tmp_cmem_sp; } diff --git a/internal/source/maindata.txt b/internal/source/maindata.txt index 93994613b..74d0b4618 100644 --- a/internal/source/maindata.txt +++ b/internal/source/maindata.txt @@ -1,5 +1,5 @@ if (!__STRING_VERSION)__STRING_VERSION=qbs_new(0,0); -if (!__STRING_BUILDNUM)__STRING_BUILDNUM=qbs_new(0,0); +if (!__STRING_DEVCHANNEL)__STRING_DEVCHANNEL=qbs_new(0,0); if (!__STRING_AUTOBUILDMSG)__STRING_AUTOBUILDMSG=qbs_new(0,0); if(__LONG_VERSIONFILE==NULL){ __LONG_VERSIONFILE=(int32*)mem_static_malloc(4); @@ -78,71 +78,40 @@ if(__LONG_GL_KIT==NULL){ __LONG_GL_KIT=(int32*)mem_static_malloc(4); *__LONG_GL_KIT=0; } -if (!__ARRAY_STRING_INSTALLFILES){ -__ARRAY_STRING_INSTALLFILES=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING_INSTALLFILES)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_INSTALLFILES[2]=0; -__ARRAY_STRING_INSTALLFILES[4]=2147483647; -__ARRAY_STRING_INSTALLFILES[5]=0; -__ARRAY_STRING_INSTALLFILES[6]=0; -__ARRAY_STRING_INSTALLFILES[0]=(ptrszint)¬hingstring; +if (!__STRING_CURRENTINIFILENAME)__STRING_CURRENTINIFILENAME=qbs_new(0,0); +if(__ULONG_CURRENTINIFILELOF==NULL){ +__ULONG_CURRENTINIFILELOF=(uint32*)mem_static_malloc(4); +*__ULONG_CURRENTINIFILELOF=0; } -if (!__ARRAY_STRING_INSTALLFILESSOURCELOCATION){ -__ARRAY_STRING_INSTALLFILESSOURCELOCATION=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING_INSTALLFILESSOURCELOCATION)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]=0; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[4]=2147483647; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]=0; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[6]=0; -__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]=(ptrszint)¬hingstring; +if (!__STRING_INIWHOLEFILE)__STRING_INIWHOLEFILE=qbs_new(0,0); +if (!__STRING_INISECTIONDATA)__STRING_INISECTIONDATA=qbs_new(0,0); +if(__ULONG_INIPOSITION==NULL){ +__ULONG_INIPOSITION=(uint32*)mem_static_malloc(4); +*__ULONG_INIPOSITION=0; } -if (!__ARRAY_STRING_INSTALLFILESIN){ -__ARRAY_STRING_INSTALLFILESIN=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING_INSTALLFILESIN)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_INSTALLFILESIN[2]=0; -__ARRAY_STRING_INSTALLFILESIN[4]=2147483647; -__ARRAY_STRING_INSTALLFILESIN[5]=0; -__ARRAY_STRING_INSTALLFILESIN[6]=0; -__ARRAY_STRING_INSTALLFILESIN[0]=(ptrszint)¬hingstring; +if (!__STRING_ININEWFILE)__STRING_ININEWFILE=qbs_new(0,0); +if (!__STRING_INILASTSECTION)__STRING_INILASTSECTION=qbs_new(0,0); +if (!__STRING_INILASTKEY)__STRING_INILASTKEY=qbs_new(0,0); +if (!__STRING_INILF)__STRING_INILF=qbs_new(0,0); +if(__LONG_INIDISABLEAUTOCOMMIT==NULL){ +__LONG_INIDISABLEAUTOCOMMIT=(int32*)mem_static_malloc(4); +*__LONG_INIDISABLEAUTOCOMMIT=0; } -if (!__ARRAY_STRING_INSTALLFOLDER){ -__ARRAY_STRING_INSTALLFOLDER=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING_INSTALLFOLDER)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_INSTALLFOLDER[2]=0; -__ARRAY_STRING_INSTALLFOLDER[4]=2147483647; -__ARRAY_STRING_INSTALLFOLDER[5]=0; -__ARRAY_STRING_INSTALLFOLDER[6]=0; -__ARRAY_STRING_INSTALLFOLDER[0]=(ptrszint)¬hingstring; +if(__LONG_INICODE==NULL){ +__LONG_INICODE=(int32*)mem_static_malloc(4); +*__LONG_INICODE=0; } -if (!__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION){ -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]=0; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[4]=2147483647; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]=0; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[6]=0; -__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]=(ptrszint)¬hingstring; +if(__LONG_INIALLOWBASICCOMMENTS==NULL){ +__LONG_INIALLOWBASICCOMMENTS=(int32*)mem_static_malloc(4); +*__LONG_INIALLOWBASICCOMMENTS=0; } -if (!__ARRAY_STRING_INSTALLFOLDERIN){ -__ARRAY_STRING_INSTALLFOLDERIN=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING_INSTALLFOLDERIN)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_INSTALLFOLDERIN[2]=0; -__ARRAY_STRING_INSTALLFOLDERIN[4]=2147483647; -__ARRAY_STRING_INSTALLFOLDERIN[5]=0; -__ARRAY_STRING_INSTALLFOLDERIN[6]=0; -__ARRAY_STRING_INSTALLFOLDERIN[0]=(ptrszint)¬hingstring; +if(__LONG_INIFORCERELOAD==NULL){ +__LONG_INIFORCERELOAD=(int32*)mem_static_malloc(4); +*__LONG_INIFORCERELOAD=0; +} +if(__LONG_INIDISABLEADDQUOTES==NULL){ +__LONG_INIDISABLEADDQUOTES=(int32*)mem_static_malloc(4); +*__LONG_INIDISABLEADDQUOTES=0; } if (!__STRING_CACHE_FOLDER)__STRING_CACHE_FOLDER=qbs_new(0,0); if(__LONG_HELP_SX==NULL){ @@ -364,10 +333,54 @@ if(__BYTE_IDECONTEXTHELPSF==NULL){ __BYTE_IDECONTEXTHELPSF=(int8*)mem_static_malloc(1); *__BYTE_IDECONTEXTHELPSF=0; } +if(__LONG_HOST==NULL){ +__LONG_HOST=(int32*)mem_static_malloc(4); +*__LONG_HOST=0; +} +if(__LONG_DEBUGCLIENT==NULL){ +__LONG_DEBUGCLIENT=(int32*)mem_static_malloc(4); +*__LONG_DEBUGCLIENT=0; +} +if (!__STRING_HOSTPORT)__STRING_HOSTPORT=qbs_new(0,0); +if (!__STRING_VARIABLEWATCHLIST)__STRING_VARIABLEWATCHLIST=qbs_new(0,0); +if (!__STRING_BACKUPVARIABLEWATCHLIST)__STRING_BACKUPVARIABLEWATCHLIST=qbs_new(0,0); +if (!__STRING_WATCHPOINTLIST)__STRING_WATCHPOINTLIST=qbs_new(0,0); +if (!__ARRAY_STRING_VWATCHRECEIVEDDATA){ +__ARRAY_STRING_VWATCHRECEIVEDDATA=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING_VWATCHRECEIVEDDATA[2]=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[4]=2147483647; +__ARRAY_STRING_VWATCHRECEIVEDDATA[5]=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[6]=0; +__ARRAY_STRING_VWATCHRECEIVEDDATA[0]=(ptrszint)¬hingstring; +} +if(__LONG_NEXTVWATCHDATASLOT==NULL){ +__LONG_NEXTVWATCHDATASLOT=(int32*)mem_static_malloc(4); +*__LONG_NEXTVWATCHDATASLOT=0; +} +if(__LONG_LATESTWATCHPOINTMET==NULL){ +__LONG_LATESTWATCHPOINTMET=(int32*)mem_static_malloc(4); +*__LONG_LATESTWATCHPOINTMET=0; +} +if(__BYTE_STARTPAUSEDPENDING==NULL){ +__BYTE_STARTPAUSEDPENDING=(int8*)mem_static_malloc(1); +*__BYTE_STARTPAUSEDPENDING=0; +} if(__LONG_IDESYSTEM==NULL){ __LONG_IDESYSTEM=(int32*)mem_static_malloc(4); *__LONG_IDESYSTEM=0; } +if(__LONG_IDEDEBUGMODE==NULL){ +__LONG_IDEDEBUGMODE=(int32*)mem_static_malloc(4); +*__LONG_IDEDEBUGMODE=0; +} +if(__LONG_CALLSTACKLENGTH==NULL){ +__LONG_CALLSTACKLENGTH=(int32*)mem_static_malloc(4); +*__LONG_CALLSTACKLENGTH=0; +} +if (!__STRING_CALLSTACKLIST)__STRING_CALLSTACKLIST=qbs_new(0,0); if (!__ARRAY_STRING_IDERECENTLINK){ __ARRAY_STRING_IDERECENTLINK=(ptrszint*)mem_static_malloc(13*ptrsz); new_mem_lock(); @@ -383,6 +396,7 @@ __ARRAY_STRING_IDERECENTLINK[10]=0; __ARRAY_STRING_IDERECENTLINK[0]=(ptrszint)¬hingstring; } if (!__STRING_IDEOPENFILE)__STRING_IDEOPENFILE=qbs_new(0,0); +if (!__STRING_FILEDLGSEARCHTERM)__STRING_FILEDLGSEARCHTERM=qbs_new(0,0); if (!__ARRAY_UDT_IDEBMK){ __ARRAY_UDT_IDEBMK=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); @@ -398,6 +412,43 @@ if(__LONG_IDEBMKN==NULL){ __LONG_IDEBMKN=(int32*)mem_static_malloc(4); *__LONG_IDEBMKN=0; } +if(__LONG_QUICKNAVTOTAL==NULL){ +__LONG_QUICKNAVTOTAL=(int32*)mem_static_malloc(4); +*__LONG_QUICKNAVTOTAL=0; +} +if (!__ARRAY_UDT_QUICKNAVHISTORY){ +__ARRAY_UDT_QUICKNAVHISTORY=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_UDT_QUICKNAVHISTORY)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_UDT_QUICKNAVHISTORY[2]=0; +__ARRAY_UDT_QUICKNAVHISTORY[4]=2147483647; +__ARRAY_UDT_QUICKNAVHISTORY[5]=0; +__ARRAY_UDT_QUICKNAVHISTORY[6]=0; +__ARRAY_UDT_QUICKNAVHISTORY[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_BYTE_IDEBREAKPOINTS){ +__ARRAY_BYTE_IDEBREAKPOINTS=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_BYTE_IDEBREAKPOINTS[2]=0; +__ARRAY_BYTE_IDEBREAKPOINTS[4]=2147483647; +__ARRAY_BYTE_IDEBREAKPOINTS[5]=0; +__ARRAY_BYTE_IDEBREAKPOINTS[6]=0; +__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_BYTE_IDESKIPLINES){ +__ARRAY_BYTE_IDESKIPLINES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_BYTE_IDESKIPLINES[2]=0; +__ARRAY_BYTE_IDESKIPLINES[4]=2147483647; +__ARRAY_BYTE_IDESKIPLINES[5]=0; +__ARRAY_BYTE_IDESKIPLINES[6]=0; +__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)nothingvalue; +} if(__LONG_ICHECKLATER==NULL){ __LONG_ICHECKLATER=(int32*)mem_static_malloc(4); *__LONG_ICHECKLATER=0; @@ -547,6 +598,10 @@ if(__LONG_IDEHELP==NULL){ __LONG_IDEHELP=(int32*)mem_static_malloc(4); *__LONG_IDEHELP=0; } +if(__INTEGER_STATUSAREALINK==NULL){ +__INTEGER_STATUSAREALINK=(int16*)mem_static_malloc(2); +*__INTEGER_STATUSAREALINK=0; +} if(__LONG_IDEEXIT==NULL){ __LONG_IDEEXIT=(int32*)mem_static_malloc(4); *__LONG_IDEEXIT=0; @@ -605,6 +660,10 @@ if(__LONG_IDECY==NULL){ __LONG_IDECY=(int32*)mem_static_malloc(4); *__LONG_IDECY=0; } +if(__LONG_DEBUGNEXTLINE==NULL){ +__LONG_DEBUGNEXTLINE=(int32*)mem_static_malloc(4); +*__LONG_DEBUGNEXTLINE=0; +} if(__LONG_IDESELECT==NULL){ __LONG_IDESELECT=(int32*)mem_static_malloc(4); *__LONG_IDESELECT=0; @@ -650,17 +709,6 @@ if(__LONG_IDEHL==NULL){ __LONG_IDEHL=(int32*)mem_static_malloc(4); *__LONG_IDEHL=0; } -if (!__ARRAY_INTEGER_IDEALTCODE){ -__ARRAY_INTEGER_IDEALTCODE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_INTEGER_IDEALTCODE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_INTEGER_IDEALTCODE[2]=0; -__ARRAY_INTEGER_IDEALTCODE[4]=2147483647; -__ARRAY_INTEGER_IDEALTCODE[5]=0; -__ARRAY_INTEGER_IDEALTCODE[6]=0; -__ARRAY_INTEGER_IDEALTCODE[0]=(ptrszint)nothingvalue; -} if (!__STRING_IDEPROGNAME)__STRING_IDEPROGNAME=qbs_new(0,0); if (!__STRING_IDEPATH)__STRING_IDEPATH=qbs_new(0,0); if (!__STRING_IDEFINDTEXT)__STRING_IDEFINDTEXT=qbs_new(0,0); @@ -676,6 +724,22 @@ if(__INTEGER_IDEFINDBACKWARDS==NULL){ __INTEGER_IDEFINDBACKWARDS=(int16*)mem_static_malloc(2); *__INTEGER_IDEFINDBACKWARDS=0; } +if(__INTEGER_IDEFINDNOCOMMENTS==NULL){ +__INTEGER_IDEFINDNOCOMMENTS=(int16*)mem_static_malloc(2); +*__INTEGER_IDEFINDNOCOMMENTS=0; +} +if(__INTEGER_IDEFINDNOSTRINGS==NULL){ +__INTEGER_IDEFINDNOSTRINGS=(int16*)mem_static_malloc(2); +*__INTEGER_IDEFINDNOSTRINGS=0; +} +if(__INTEGER_IDEFINDONLYCOMMENTS==NULL){ +__INTEGER_IDEFINDONLYCOMMENTS=(int16*)mem_static_malloc(2); +*__INTEGER_IDEFINDONLYCOMMENTS=0; +} +if(__INTEGER_IDEFINDONLYSTRINGS==NULL){ +__INTEGER_IDEFINDONLYSTRINGS=(int16*)mem_static_malloc(2); +*__INTEGER_IDEFINDONLYSTRINGS=0; +} if(__INTEGER_IDEFINDINVERT==NULL){ __INTEGER_IDEFINDINVERT=(int16*)mem_static_malloc(2); *__INTEGER_IDEFINDINVERT=0; @@ -704,21 +768,6 @@ __ARRAY_STRING_SUBFUNCLIST[5]=0; __ARRAY_STRING_SUBFUNCLIST[6]=0; __ARRAY_STRING_SUBFUNCLIST[0]=(ptrszint)¬hingstring; } -if(__LONG_QUICKNAVTOTAL==NULL){ -__LONG_QUICKNAVTOTAL=(int32*)mem_static_malloc(4); -*__LONG_QUICKNAVTOTAL=0; -} -if (!__ARRAY_LONG_QUICKNAVHISTORY){ -__ARRAY_LONG_QUICKNAVHISTORY=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_QUICKNAVHISTORY)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_QUICKNAVHISTORY[2]=0; -__ARRAY_LONG_QUICKNAVHISTORY[4]=2147483647; -__ARRAY_LONG_QUICKNAVHISTORY[5]=0; -__ARRAY_LONG_QUICKNAVHISTORY[6]=0; -__ARRAY_LONG_QUICKNAVHISTORY[0]=(ptrszint)nothingvalue; -} if (!__STRING_MODIFYCOMMAND)__STRING_MODIFYCOMMAND=qbs_new(0,0); if(__BYTE_ENTERINGRGB==NULL){ __BYTE_ENTERINGRGB=(int8*)mem_static_malloc(1); @@ -741,6 +790,10 @@ if(__INTEGER_SEARCHMENUENABLEQUICKNAV==NULL){ __INTEGER_SEARCHMENUENABLEQUICKNAV=(int16*)mem_static_malloc(2); *__INTEGER_SEARCHMENUENABLEQUICKNAV=0; } +if(__LONG_SEARCHSTRINGFOUNDON==NULL){ +__LONG_SEARCHSTRINGFOUNDON=(int32*)mem_static_malloc(4); +*__LONG_SEARCHSTRINGFOUNDON=0; +} if(__LONG_IDEGOTOBOX_LASTLINENUM==NULL){ __LONG_IDEGOTOBOX_LASTLINENUM=(int32*)mem_static_malloc(4); *__LONG_IDEGOTOBOX_LASTLINENUM=0; @@ -749,6 +802,12 @@ if(__LONG_MAXLINENUMBERLENGTH==NULL){ __LONG_MAXLINENUMBERLENGTH=(int32*)mem_static_malloc(4); *__LONG_MAXLINENUMBERLENGTH=0; } +if (!__STRING_VERSIONSTRINGSTATUS)__STRING_VERSIONSTRINGSTATUS=qbs_new(0,0); +if (!__STRING_LINENUMBERSTATUS)__STRING_LINENUMBERSTATUS=qbs_new(0,0); +if(__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE==NULL){ +__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE=(int8*)mem_static_malloc(1); +*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE=0; +} if(__LONG_IDEFOCUSLINE==NULL){ __LONG_IDEFOCUSLINE=(int32*)mem_static_malloc(4); *__LONG_IDEFOCUSLINE=0; @@ -757,6 +816,10 @@ if(__LONG_IDEAUTORUN==NULL){ __LONG_IDEAUTORUN=(int32*)mem_static_malloc(4); *__LONG_IDEAUTORUN=0; } +if(__LONG_STARTPAUSED==NULL){ +__LONG_STARTPAUSED=(int32*)mem_static_malloc(4); +*__LONG_STARTPAUSED=0; +} if (!__ARRAY_STRING_MENU){ __ARRAY_STRING_MENU=(ptrszint*)mem_static_malloc(13*ptrsz); new_mem_lock(); @@ -771,6 +834,20 @@ __ARRAY_STRING_MENU[9]=0; __ARRAY_STRING_MENU[10]=0; __ARRAY_STRING_MENU[0]=(ptrszint)¬hingstring; } +if (!__ARRAY_STRING_MENUDESC){ +__ARRAY_STRING_MENUDESC=(ptrszint*)mem_static_malloc(13*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING_MENUDESC)[12]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING_MENUDESC[2]=0; +__ARRAY_STRING_MENUDESC[4]=2147483647; +__ARRAY_STRING_MENUDESC[5]=0; +__ARRAY_STRING_MENUDESC[6]=0; +__ARRAY_STRING_MENUDESC[8]=2147483647; +__ARRAY_STRING_MENUDESC[9]=0; +__ARRAY_STRING_MENUDESC[10]=0; +__ARRAY_STRING_MENUDESC[0]=(ptrszint)¬hingstring; +} if (!__ARRAY_LONG_MENUSIZE){ __ARRAY_LONG_MENUSIZE=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); @@ -814,6 +891,14 @@ if(__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY==NULL){ __INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=(int16*)mem_static_malloc(2); *__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=0; } +if(__INTEGER_OPTIONSMENUIGNOREWARNINGS==NULL){ +__INTEGER_OPTIONSMENUIGNOREWARNINGS=(int16*)mem_static_malloc(2); +*__INTEGER_OPTIONSMENUIGNOREWARNINGS=0; +} +if(__INTEGER_OPTIONSMENUDISABLESYNTAX==NULL){ +__INTEGER_OPTIONSMENUDISABLESYNTAX=(int16*)mem_static_malloc(2); +*__INTEGER_OPTIONSMENUDISABLESYNTAX=0; +} if(__INTEGER_VIEWMENUID==NULL){ __INTEGER_VIEWMENUID=(int16*)mem_static_malloc(2); *__INTEGER_VIEWMENUID=0; @@ -846,6 +931,22 @@ if(__INTEGER_BRACKETHIGHLIGHT==NULL){ __INTEGER_BRACKETHIGHLIGHT=(int16*)mem_static_malloc(2); *__INTEGER_BRACKETHIGHLIGHT=0; } +if(__INTEGER_DEBUGMENUID==NULL){ +__INTEGER_DEBUGMENUID=(int16*)mem_static_malloc(2); +*__INTEGER_DEBUGMENUID=0; +} +if(__INTEGER_DEBUGMENUCALLSTACK==NULL){ +__INTEGER_DEBUGMENUCALLSTACK=(int16*)mem_static_malloc(2); +*__INTEGER_DEBUGMENUCALLSTACK=0; +} +if(__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE==NULL){ +__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=(int16*)mem_static_malloc(2); +*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=0; +} +if(__INTEGER_DEBUGMENUAUTOADDCOMMAND==NULL){ +__INTEGER_DEBUGMENUAUTOADDCOMMAND=(int16*)mem_static_malloc(2); +*__INTEGER_DEBUGMENUAUTOADDCOMMAND=0; +} if(__INTEGER_MULTIHIGHLIGHT==NULL){ __INTEGER_MULTIHIGHLIGHT=(int16*)mem_static_malloc(2); *__INTEGER_MULTIHIGHLIGHT=0; @@ -948,6 +1049,10 @@ if(__LONG_IDERUNMODE==NULL){ __LONG_IDERUNMODE=(int32*)mem_static_malloc(4); *__LONG_IDERUNMODE=0; } +if(__BYTE_IDE_USEFONT8==NULL){ +__BYTE_IDE_USEFONT8=(int8*)mem_static_malloc(1); +*__BYTE_IDE_USEFONT8=0; +} if (!__ARRAY_STRING_ONAME){ __ARRAY_STRING_ONAME=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); @@ -970,25 +1075,67 @@ __ARRAY_INTEGER_PL[5]=0; __ARRAY_INTEGER_PL[6]=0; __ARRAY_INTEGER_PL[0]=(ptrszint)nothingvalue; } -if(__INTEGER_QUICKRETURN==NULL){ -__INTEGER_QUICKRETURN=(int16*)mem_static_malloc(2); -*__INTEGER_QUICKRETURN=0; +if (!__ARRAY_STRING_PP_TYPEMOD){ +__ARRAY_STRING_PP_TYPEMOD=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING_PP_TYPEMOD[2]=0; +__ARRAY_STRING_PP_TYPEMOD[4]=2147483647; +__ARRAY_STRING_PP_TYPEMOD[5]=0; +__ARRAY_STRING_PP_TYPEMOD[6]=0; +__ARRAY_STRING_PP_TYPEMOD[0]=(ptrszint)¬hingstring; } -if(__LONG_MAKEANDROID==NULL){ -__LONG_MAKEANDROID=(int32*)mem_static_malloc(4); -*__LONG_MAKEANDROID=0; +if (!__ARRAY_STRING_PP_CONVERTEDMOD){ +__ARRAY_STRING_PP_CONVERTEDMOD=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING_PP_CONVERTEDMOD)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING_PP_CONVERTEDMOD[2]=0; +__ARRAY_STRING_PP_CONVERTEDMOD[4]=2147483647; +__ARRAY_STRING_PP_CONVERTEDMOD[5]=0; +__ARRAY_STRING_PP_CONVERTEDMOD[6]=0; +__ARRAY_STRING_PP_CONVERTEDMOD[0]=(ptrszint)¬hingstring; } -if(__LONG_VIRTUALKEYBOARDSTATE==NULL){ -__LONG_VIRTUALKEYBOARDSTATE=(int32*)mem_static_malloc(4); -*__LONG_VIRTUALKEYBOARDSTATE=0; +if(__LONG_VWATCHON==NULL){ +__LONG_VWATCHON=(int32*)mem_static_malloc(4); +*__LONG_VWATCHON=0; } -if(__LONG_DESIREDVIRTUALKEYBOARDSTATE==NULL){ -__LONG_DESIREDVIRTUALKEYBOARDSTATE=(int32*)mem_static_malloc(4); -*__LONG_DESIREDVIRTUALKEYBOARDSTATE=0; +if(__LONG_VWATCHRECOMPILEATTEMPTS==NULL){ +__LONG_VWATCHRECOMPILEATTEMPTS=(int32*)mem_static_malloc(4); +*__LONG_VWATCHRECOMPILEATTEMPTS=0; } -if(__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE==NULL){ -__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=(int32*)mem_static_malloc(4); -*__LONG_RECOMPILEATTEMPTSFORVIRTUALKEYBOARDSTATE=0; +if(__LONG_VWATCHDESIREDSTATE==NULL){ +__LONG_VWATCHDESIREDSTATE=(int32*)mem_static_malloc(4); +*__LONG_VWATCHDESIREDSTATE=0; +} +if (!__STRING_VWATCHERRORCALL)__STRING_VWATCHERRORCALL=qbs_new(0,0); +if (!__STRING_VWATCHNEWVARIABLE)__STRING_VWATCHNEWVARIABLE=qbs_new(0,0); +if (!__STRING_VWATCHVARIABLEEXCLUSIONS)__STRING_VWATCHVARIABLEEXCLUSIONS=qbs_new(0,0); +if (!__STRING_NATIVEDATATYPES)__STRING_NATIVEDATATYPES=qbs_new(0,0); +if(__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS==NULL){ +__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=(int32*)mem_static_malloc(4); +*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=0; +} +if(__LONG_QB64PREFIX_SET_DESIREDSTATE==NULL){ +__LONG_QB64PREFIX_SET_DESIREDSTATE=(int32*)mem_static_malloc(4); +*__LONG_QB64PREFIX_SET_DESIREDSTATE=0; +} +if(__LONG_OPEX_RECOMPILEATTEMPTS==NULL){ +__LONG_OPEX_RECOMPILEATTEMPTS=(int32*)mem_static_malloc(4); +*__LONG_OPEX_RECOMPILEATTEMPTS=0; +} +if(__LONG_OPEX_DESIREDSTATE==NULL){ +__LONG_OPEX_DESIREDSTATE=(int32*)mem_static_malloc(4); +*__LONG_OPEX_DESIREDSTATE=0; +} +if(__LONG_OPEXARRAY_RECOMPILEATTEMPTS==NULL){ +__LONG_OPEXARRAY_RECOMPILEATTEMPTS=(int32*)mem_static_malloc(4); +*__LONG_OPEXARRAY_RECOMPILEATTEMPTS=0; +} +if(__LONG_OPEXARRAY_DESIREDSTATE==NULL){ +__LONG_OPEXARRAY_DESIREDSTATE=(int32*)mem_static_malloc(4); +*__LONG_OPEXARRAY_DESIREDSTATE=0; } if (!__ARRAY_LONG_EVERYCASESET){ __ARRAY_LONG_EVERYCASESET=(ptrszint*)mem_static_malloc(9*ptrsz); @@ -1005,6 +1152,17 @@ if(__ULONG_SELECTCASECOUNTER==NULL){ __ULONG_SELECTCASECOUNTER=(uint32*)mem_static_malloc(4); *__ULONG_SELECTCASECOUNTER=0; } +if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK){ +__ARRAY_LONG_SELECTCASEHASCASEBLOCK=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]=0; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]=2147483647; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=0; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=0; +__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)nothingvalue; +} if (!__ARRAY_LONG_EXECLEVEL){ __ARRAY_LONG_EXECLEVEL=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); @@ -1034,16 +1192,16 @@ __ARRAY_STRING_USERDEFINE[9]=0; __ARRAY_STRING_USERDEFINE[10]=0; __ARRAY_STRING_USERDEFINE[0]=(ptrszint)¬hingstring; } -if (!__ARRAY_BIT1_INVALIDLINE){ -__ARRAY_BIT1_INVALIDLINE=(ptrszint*)mem_static_malloc(9*ptrsz); +if (!__ARRAY_BYTE_INVALIDLINE){ +__ARRAY_BYTE_INVALIDLINE=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_BIT1_INVALIDLINE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_BIT1_INVALIDLINE[2]=0; -__ARRAY_BIT1_INVALIDLINE[4]=2147483647; -__ARRAY_BIT1_INVALIDLINE[5]=0; -__ARRAY_BIT1_INVALIDLINE[6]=0; -__ARRAY_BIT1_INVALIDLINE[0]=(ptrszint)nothingvalue; +((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_BYTE_INVALIDLINE[2]=0; +__ARRAY_BYTE_INVALIDLINE[4]=2147483647; +__ARRAY_BYTE_INVALIDLINE[5]=0; +__ARRAY_BYTE_INVALIDLINE[6]=0; +__ARRAY_BYTE_INVALIDLINE[0]=(ptrszint)nothingvalue; } if (!__ARRAY_BYTE_DEFINEELSE){ __ARRAY_BYTE_DEFINEELSE=(ptrszint*)mem_static_malloc(9*ptrsz); @@ -1060,11 +1218,10 @@ if(__INTEGER_USERDEFINECOUNT==NULL){ __INTEGER_USERDEFINECOUNT=(int16*)mem_static_malloc(2); *__INTEGER_USERDEFINECOUNT=0; } -if (!__STRING_REFACTOR_SOURCE)__STRING_REFACTOR_SOURCE=qbs_new(0,0); -if (!__STRING_REFACTOR_DEST)__STRING_REFACTOR_DEST=qbs_new(0,0); -if(__LONG_FH==NULL){ -__LONG_FH=(int32*)mem_static_malloc(4); -*__LONG_FH=0; +if (!__STRING_USERDEFINELIST)__STRING_USERDEFINELIST=qbs_new(0,0); +if(__SINGLE_QB64_UPTIME==NULL){ +__SINGLE_QB64_UPTIME=(float*)mem_static_malloc(4); +*__SINGLE_QB64_UPTIME=0; } if(__LONG_INCLUDE_GDB_DEBUGGING_INFO==NULL){ __LONG_INCLUDE_GDB_DEBUGGING_INFO=(int32*)mem_static_malloc(4); @@ -1093,6 +1250,7 @@ if(__LONG_OS_BITS==NULL){ __LONG_OS_BITS=(int32*)mem_static_malloc(4); *__LONG_OS_BITS=0; } +if (!__STRING_WINDOWTITLE)__STRING_WINDOWTITLE=qbs_new(0,0); if(__LONG_CONSOLEMODE==NULL){ __LONG_CONSOLEMODE=(int32*)mem_static_malloc(4); *__LONG_CONSOLEMODE=0; @@ -1101,24 +1259,44 @@ if(__LONG_NO_C_COMPILE_MODE==NULL){ __LONG_NO_C_COMPILE_MODE=(int32*)mem_static_malloc(4); *__LONG_NO_C_COMPILE_MODE=0; } -if(__LONG_CLOUD==NULL){ -__LONG_CLOUD=(int32*)mem_static_malloc(4); -*__LONG_CLOUD=0; -} if(__LONG_NOIDEMODE==NULL){ __LONG_NOIDEMODE=(int32*)mem_static_malloc(4); *__LONG_NOIDEMODE=0; } -if(__BYTE_VERBOSEMODE==NULL){ -__BYTE_VERBOSEMODE=(int8*)mem_static_malloc(1); -*__BYTE_VERBOSEMODE=0; +if(__BYTE_SHOWWARNINGS==NULL){ +__BYTE_SHOWWARNINGS=(int8*)mem_static_malloc(1); +*__BYTE_SHOWWARNINGS=0; +} +if(__BYTE_QUIETMODE==NULL){ +__BYTE_QUIETMODE=(int8*)mem_static_malloc(1); +*__BYTE_QUIETMODE=0; } if (!__STRING_CMDLINEFILE)__STRING_CMDLINEFILE=qbs_new(0,0); -if(__LONG_TOTALUNUSEDVARIABLES==NULL){ -__LONG_TOTALUNUSEDVARIABLES=(int32*)mem_static_malloc(4); -*__LONG_TOTALUNUSEDVARIABLES=0; +if(__BYTE_MONOCHROMELOGGINGMODE==NULL){ +__BYTE_MONOCHROMELOGGINGMODE=(int8*)mem_static_malloc(1); +*__BYTE_MONOCHROMELOGGINGMODE=0; +} +if (!__ARRAY_UDT_BACKUPUSEDVARIABLELIST){ +__ARRAY_UDT_BACKUPUSEDVARIABLELIST=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]=0; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4]=2147483647; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]=0; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[6]=0; +__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]=(ptrszint)nothingvalue; +} +if (!__STRING_TYPEDEFINITIONS)__STRING_TYPEDEFINITIONS=qbs_new(0,0); +if (!__STRING_BACKUPTYPEDEFINITIONS)__STRING_BACKUPTYPEDEFINITIONS=qbs_new(0,0); +if(__LONG_TOTALVARIABLESCREATED==NULL){ +__LONG_TOTALVARIABLESCREATED=(int32*)mem_static_malloc(4); +*__LONG_TOTALVARIABLESCREATED=0; +} +if(__LONG_TOTALMAINVARIABLESCREATED==NULL){ +__LONG_TOTALMAINVARIABLESCREATED=(int32*)mem_static_malloc(4); +*__LONG_TOTALMAINVARIABLESCREATED=0; } -if (!__STRING_USEDVARIABLELIST)__STRING_USEDVARIABLELIST=qbs_new(0,0); if(__BYTE_BYPASSNEXTVARIABLE==NULL){ __BYTE_BYPASSNEXTVARIABLE=(int8*)mem_static_malloc(1); *__BYTE_BYPASSNEXTVARIABLE=0; @@ -1136,10 +1314,27 @@ if(__BYTE_DUPLICATECONSTWARNING==NULL){ __BYTE_DUPLICATECONSTWARNING=(int8*)mem_static_malloc(1); *__BYTE_DUPLICATECONSTWARNING=0; } +if(__BYTE_WARNINGSISSUED==NULL){ +__BYTE_WARNINGSISSUED=(int8*)mem_static_malloc(1); +*__BYTE_WARNINGSISSUED=0; +} +if(__BYTE_EMPTYSCWARNING==NULL){ +__BYTE_EMPTYSCWARNING=(int8*)mem_static_malloc(1); +*__BYTE_EMPTYSCWARNING=0; +} +if(__LONG_MAXLINENUMBER==NULL){ +__LONG_MAXLINENUMBER=(int32*)mem_static_malloc(4); +*__LONG_MAXLINENUMBER=0; +} if(__LONG_EXEICONSET==NULL){ __LONG_EXEICONSET=(int32*)mem_static_malloc(4); *__LONG_EXEICONSET=0; } +if (!__STRING_QB64PREFIX)__STRING_QB64PREFIX=qbs_new(0,0); +if(__LONG_QB64PREFIX_SET==NULL){ +__LONG_QB64PREFIX_SET=(int32*)mem_static_malloc(4); +*__LONG_QB64PREFIX_SET=0; +} if(__BYTE_VERSIONINFOSET==NULL){ __BYTE_VERSIONINFOSET=(int8*)mem_static_malloc(1); *__BYTE_VERSIONINFOSET=0; @@ -1169,6 +1364,10 @@ if(__LONG_SCREENHIDE==NULL){ __LONG_SCREENHIDE=(int32*)mem_static_malloc(4); *__LONG_SCREENHIDE=0; } +if(__LONG_ASSERTS==NULL){ +__LONG_ASSERTS=(int32*)mem_static_malloc(4); +*__LONG_ASSERTS=0; +} if(__LONG_OPTMAX==NULL){ __LONG_OPTMAX=(int32*)mem_static_malloc(4); *__LONG_OPTMAX=0; @@ -1404,10 +1603,10 @@ if(__LONG_I==NULL){ __LONG_I=(int32*)mem_static_malloc(4); *__LONG_I=0; } -static int64 fornext_value11; -static int64 fornext_finalvalue11; -static int64 fornext_step11; -static uint8 fornext_step_negative11; +static int64 fornext_value9; +static int64 fornext_finalvalue9; +static int64 fornext_step9; +static uint8 fornext_step_negative9; if (!__STRING_EXTENSION)__STRING_EXTENSION=qbs_new(0,0); if (!__STRING_PATH__ASCII_CHR_046__EXE)__STRING_PATH__ASCII_CHR_046__EXE=qbs_new(0,0); if (!__STRING_PATH__ASCII_CHR_046__SOURCE)__STRING_PATH__ASCII_CHR_046__SOURCE=qbs_new(0,0); @@ -1426,59 +1625,63 @@ if(__LONG_TEMPFOLDERINDEX==NULL){ __LONG_TEMPFOLDERINDEX=(int32*)mem_static_malloc(4); *__LONG_TEMPFOLDERINDEX=0; } -byte_element_struct *byte_element_12=NULL; -if (!byte_element_12){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)__ARRAY_STRING_CNAME)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING_CNAME[2]=0; -__ARRAY_STRING_CNAME[4]=2147483647; -__ARRAY_STRING_CNAME[5]=0; -__ARRAY_STRING_CNAME[6]=0; -__ARRAY_STRING_CNAME[0]=(ptrszint)¬hingstring; -} if(__ULONG_IDECOMMENTCOLOR==NULL){ __ULONG_IDECOMMENTCOLOR=(uint32*)mem_static_malloc(4); *__ULONG_IDECOMMENTCOLOR=0; @@ -1579,6 +1783,10 @@ if(__ULONG_IDEBACKGROUNDCOLOR==NULL){ __ULONG_IDEBACKGROUNDCOLOR=(uint32*)mem_static_malloc(4); *__ULONG_IDEBACKGROUNDCOLOR=0; } +if(__ULONG_IDECHROMACOLOR==NULL){ +__ULONG_IDECHROMACOLOR=(uint32*)mem_static_malloc(4); +*__ULONG_IDECHROMACOLOR=0; +} if(__ULONG_IDEBACKGROUNDCOLOR2==NULL){ __ULONG_IDEBACKGROUNDCOLOR2=(uint32*)mem_static_malloc(4); *__ULONG_IDEBACKGROUNDCOLOR2=0; @@ -1615,6 +1823,10 @@ if(__BYTE_IDESORTSUBS==NULL){ __BYTE_IDESORTSUBS=(int8*)mem_static_malloc(1); *__BYTE_IDESORTSUBS=0; } +if(__BYTE_IDESUBSLENGTH==NULL){ +__BYTE_IDESUBSLENGTH=(int8*)mem_static_malloc(1); +*__BYTE_IDESUBSLENGTH=0; +} if(__LONG_IDENORMALCURSORSTART==NULL){ __LONG_IDENORMALCURSORSTART=(int32*)mem_static_malloc(4); *__LONG_IDENORMALCURSORSTART=0; @@ -1623,11 +1835,6 @@ if(__LONG_IDENORMALCURSOREND==NULL){ __LONG_IDENORMALCURSOREND=(int32*)mem_static_malloc(4); *__LONG_IDENORMALCURSOREND=0; } -if (!__STRING_IDE_INDEX)__STRING_IDE_INDEX=qbs_new(0,0); -if(__INTEGER_LOADEDIDESETTINGS==NULL){ -__INTEGER_LOADEDIDESETTINGS=(int16*)mem_static_malloc(2); -*__INTEGER_LOADEDIDESETTINGS=0; -} if(__BYTE_MOUSEBUTTONSWAPPED==NULL){ __BYTE_MOUSEBUTTONSWAPPED=(int8*)mem_static_malloc(1); *__BYTE_MOUSEBUTTONSWAPPED=0; @@ -1656,56 +1863,84 @@ if(__BYTE_SHOWLINENUMBERSUSEBG==NULL){ __BYTE_SHOWLINENUMBERSUSEBG=(int8*)mem_static_malloc(1); *__BYTE_SHOWLINENUMBERSUSEBG=0; } +if(__BYTE_IGNOREWARNINGS==NULL){ +__BYTE_IGNOREWARNINGS=(int8*)mem_static_malloc(1); +*__BYTE_IGNOREWARNINGS=0; +} +if(__BYTE_QB64VERSIONPRINTED==NULL){ +__BYTE_QB64VERSIONPRINTED=(int8*)mem_static_malloc(1); +*__BYTE_QB64VERSIONPRINTED=0; +} +if(__BYTE_DISABLESYNTAXHIGHLIGHTER==NULL){ +__BYTE_DISABLESYNTAXHIGHLIGHTER=(int8*)mem_static_malloc(1); +*__BYTE_DISABLESYNTAXHIGHLIGHTER=0; +} +if(__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG==NULL){ +__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG=(int8*)mem_static_malloc(1); +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG=0; +} +if(__BYTE_WHITELISTQB64FIRSTTIMEMSG==NULL){ +__BYTE_WHITELISTQB64FIRSTTIMEMSG=(int8*)mem_static_malloc(1); +*__BYTE_WHITELISTQB64FIRSTTIMEMSG=0; +} +if(__BYTE_IDEAUTOLAYOUTKWCAPITALS==NULL){ +__BYTE_IDEAUTOLAYOUTKWCAPITALS=(int8*)mem_static_malloc(1); +*__BYTE_IDEAUTOLAYOUTKWCAPITALS=0; +} +if(__BYTE_WATCHLISTTOCONSOLE==NULL){ +__BYTE_WATCHLISTTOCONSOLE=(int8*)mem_static_malloc(1); +*__BYTE_WATCHLISTTOCONSOLE=0; +} +if (!__STRING_WINDOWSETTINGSSECTION)__STRING_WINDOWSETTINGSSECTION=qbs_new(0,0); +if (!__STRING_COLORSETTINGSSECTION)__STRING_COLORSETTINGSSECTION=qbs_new(0,0); +if (!__STRING_CUSTOMDICTIONARYSECTION)__STRING_CUSTOMDICTIONARYSECTION=qbs_new(0,0); +if (!__STRING_MOUSESETTINGSSECTION)__STRING_MOUSESETTINGSSECTION=qbs_new(0,0); +if (!__STRING_GENERALSETTINGSSECTION)__STRING_GENERALSETTINGSSECTION=qbs_new(0,0); +if (!__STRING_DISPLAYSETTINGSSECTION)__STRING_DISPLAYSETTINGSSECTION=qbs_new(0,0); +if (!__STRING_COLORSCHEMESSECTION)__STRING_COLORSCHEMESSECTION=qbs_new(0,0); +if (!__STRING_DEBUGSETTINGSSECTION)__STRING_DEBUGSETTINGSSECTION=qbs_new(0,0); +if (!__STRING_INIFOLDERINDEX)__STRING_INIFOLDERINDEX=qbs_new(0,0); +if (!__STRING_DEBUGINFOINIWARNING)__STRING_DEBUGINFOINIWARNING=qbs_new(0,0); if (!__STRING_CONFIGFILE)__STRING_CONFIGFILE=qbs_new(0,0); -if (!__STRING_CONFIGBAK)__STRING_CONFIGBAK=qbs_new(0,0); +if(__LONG_IDEBASETCPPORT==NULL){ +__LONG_IDEBASETCPPORT=(int32*)mem_static_malloc(4); +*__LONG_IDEBASETCPPORT=0; +} +if(__BYTE_AUTOADDDEBUGCOMMAND==NULL){ +__BYTE_AUTOADDDEBUGCOMMAND=(int8*)mem_static_malloc(1); +*__BYTE_AUTOADDDEBUGCOMMAND=0; +} +if (!__STRING_WIKIBASEADDRESS)__STRING_WIKIBASEADDRESS=qbs_new(0,0); +int8 pass26; +int8 pass27; +int8 pass28; +int8 pass29; if(__LONG_RESULT==NULL){ __LONG_RESULT=(int32*)mem_static_malloc(4); *__LONG_RESULT=0; } if (!__STRING_VALUE)__STRING_VALUE=qbs_new(0,0); -if(__LONG_CONFIGFILEVERSION==NULL){ -__LONG_CONFIGFILEVERSION=(int32*)mem_static_malloc(4); -*__LONG_CONFIGFILEVERSION=0; -} -uint32 pass28; if (!__STRING_TEMPLIST)__STRING_TEMPLIST=qbs_new(0,0); -static int64 fornext_value30; -static int64 fornext_finalvalue30; -static int64 fornext_step30; -static uint8 fornext_step_negative30; -byte_element_struct *byte_element_31=NULL; -if (!byte_element_31){ -if ((mem_static_pointer+=12)type=4; -((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING256_UDTXNAME[2]=0; -__ARRAY_STRING256_UDTXNAME[4]=2147483647; -__ARRAY_STRING256_UDTXNAME[5]=0; -__ARRAY_STRING256_UDTXNAME[6]=0; -__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_STRING256_UDTXCNAME){ -__ARRAY_STRING256_UDTXCNAME=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING256_UDTXCNAME[2]=0; -__ARRAY_STRING256_UDTXCNAME[4]=2147483647; -__ARRAY_STRING256_UDTXCNAME[5]=0; -__ARRAY_STRING256_UDTXCNAME[6]=0; -__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTXSIZE){ -__ARRAY_LONG_UDTXSIZE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTXSIZE[2]=0; -__ARRAY_LONG_UDTXSIZE[4]=2147483647; -__ARRAY_LONG_UDTXSIZE[5]=0; -__ARRAY_LONG_UDTXSIZE[6]=0; -__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_INTEGER_UDTXBYTEALIGN){ -__ARRAY_INTEGER_UDTXBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_INTEGER_UDTXBYTEALIGN[2]=0; -__ARRAY_INTEGER_UDTXBYTEALIGN[4]=2147483647; -__ARRAY_INTEGER_UDTXBYTEALIGN[5]=0; -__ARRAY_INTEGER_UDTXBYTEALIGN[6]=0; -__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTXNEXT){ -__ARRAY_LONG_UDTXNEXT=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTXNEXT[2]=0; -__ARRAY_LONG_UDTXNEXT[4]=2147483647; -__ARRAY_LONG_UDTXNEXT[5]=0; -__ARRAY_LONG_UDTXNEXT[6]=0; -__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_INTEGER_UDTXVARIABLE){ -__ARRAY_INTEGER_UDTXVARIABLE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_INTEGER_UDTXVARIABLE[2]=0; -__ARRAY_INTEGER_UDTXVARIABLE[4]=2147483647; -__ARRAY_INTEGER_UDTXVARIABLE[5]=0; -__ARRAY_INTEGER_UDTXVARIABLE[6]=0; -__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue; -} if(__LONG_LASTTYPEELEMENT==NULL){ __LONG_LASTTYPEELEMENT=(int32*)mem_static_malloc(4); *__LONG_LASTTYPEELEMENT=0; } -if (!__ARRAY_STRING256_UDTENAME){ -__ARRAY_STRING256_UDTENAME=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING256_UDTENAME)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING256_UDTENAME[2]=0; -__ARRAY_STRING256_UDTENAME[4]=2147483647; -__ARRAY_STRING256_UDTENAME[5]=0; -__ARRAY_STRING256_UDTENAME[6]=0; -__ARRAY_STRING256_UDTENAME[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_STRING256_UDTECNAME){ -__ARRAY_STRING256_UDTECNAME=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_STRING256_UDTECNAME[2]=0; -__ARRAY_STRING256_UDTECNAME[4]=2147483647; -__ARRAY_STRING256_UDTECNAME[5]=0; -__ARRAY_STRING256_UDTECNAME[6]=0; -__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_INTEGER_UDTEBYTEALIGN){ -__ARRAY_INTEGER_UDTEBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_INTEGER_UDTEBYTEALIGN[2]=0; -__ARRAY_INTEGER_UDTEBYTEALIGN[4]=2147483647; -__ARRAY_INTEGER_UDTEBYTEALIGN[5]=0; -__ARRAY_INTEGER_UDTEBYTEALIGN[6]=0; -__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTESIZE){ -__ARRAY_LONG_UDTESIZE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTESIZE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTESIZE[2]=0; -__ARRAY_LONG_UDTESIZE[4]=2147483647; -__ARRAY_LONG_UDTESIZE[5]=0; -__ARRAY_LONG_UDTESIZE[6]=0; -__ARRAY_LONG_UDTESIZE[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTETYPE){ -__ARRAY_LONG_UDTETYPE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTETYPE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTETYPE[2]=0; -__ARRAY_LONG_UDTETYPE[4]=2147483647; -__ARRAY_LONG_UDTETYPE[5]=0; -__ARRAY_LONG_UDTETYPE[6]=0; -__ARRAY_LONG_UDTETYPE[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTETYPESIZE){ -__ARRAY_LONG_UDTETYPESIZE=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTETYPESIZE[2]=0; -__ARRAY_LONG_UDTETYPESIZE[4]=2147483647; -__ARRAY_LONG_UDTETYPESIZE[5]=0; -__ARRAY_LONG_UDTETYPESIZE[6]=0; -__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTEARRAYELEMENTS){ -__ARRAY_LONG_UDTEARRAYELEMENTS=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTEARRAYELEMENTS[2]=0; -__ARRAY_LONG_UDTEARRAYELEMENTS[4]=2147483647; -__ARRAY_LONG_UDTEARRAYELEMENTS[5]=0; -__ARRAY_LONG_UDTEARRAYELEMENTS[6]=0; -__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)nothingvalue; -} -if (!__ARRAY_LONG_UDTENEXT){ -__ARRAY_LONG_UDTENEXT=(ptrszint*)mem_static_malloc(9*ptrsz); -new_mem_lock(); -mem_lock_tmp->type=4; -((ptrszint*)__ARRAY_LONG_UDTENEXT)[8]=(ptrszint)mem_lock_tmp; -__ARRAY_LONG_UDTENEXT[2]=0; -__ARRAY_LONG_UDTENEXT[4]=2147483647; -__ARRAY_LONG_UDTENEXT[5]=0; -__ARRAY_LONG_UDTENEXT[6]=0; -__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue; -} if(__UDT_ID==NULL){ -__UDT_ID=(void*)mem_static_malloc(2863); -memset(__UDT_ID,0,2863); +__UDT_ID=(void*)mem_static_malloc(2869); +memset(__UDT_ID,0,2869); +*(qbs**)(((char*)__UDT_ID)+ 2861) = qbs_new(0,0); } if(__LONG_IDN==NULL){ __LONG_IDN=(int32*)mem_static_malloc(4); @@ -2373,8 +2455,9 @@ __ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=0; __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue; } if(__UDT_CLEARIDDATA==NULL){ -__UDT_CLEARIDDATA=(void*)mem_static_malloc(2863); -memset(__UDT_CLEARIDDATA,0,2863); +__UDT_CLEARIDDATA=(void*)mem_static_malloc(2869); +memset(__UDT_CLEARIDDATA,0,2869); +*(qbs**)(((char*)__UDT_CLEARIDDATA)+ 2861) = qbs_new(0,0); } if(__LONG_ISSTRING==NULL){ __LONG_ISSTRING=(int32*)mem_static_malloc(4); @@ -2543,7 +2626,29 @@ if(__LONG_LINENUMBER==NULL){ __LONG_LINENUMBER=(int32*)mem_static_malloc(4); *__LONG_LINENUMBER=0; } +if(__LONG_REALLINENUMBER==NULL){ +__LONG_REALLINENUMBER=(int32*)mem_static_malloc(4); +*__LONG_REALLINENUMBER=0; +} +if(__LONG_TOTALLINENUMBER==NULL){ +__LONG_TOTALLINENUMBER=(int32*)mem_static_malloc(4); +*__LONG_TOTALLINENUMBER=0; +} +if(__LONG_DEFININGTYPEERROR==NULL){ +__LONG_DEFININGTYPEERROR=(int32*)mem_static_malloc(4); +*__LONG_DEFININGTYPEERROR=0; +} if (!__STRING_WHOLELINE)__STRING_WHOLELINE=qbs_new(0,0); +if(__LONG_FIRSTLINENUMBERLABELVWATCH==NULL){ +__LONG_FIRSTLINENUMBERLABELVWATCH=(int32*)mem_static_malloc(4); +*__LONG_FIRSTLINENUMBERLABELVWATCH=0; +} +if(__LONG_LASTLINENUMBERLABELVWATCH==NULL){ +__LONG_LASTLINENUMBERLABELVWATCH=(int32*)mem_static_malloc(4); +*__LONG_LASTLINENUMBERLABELVWATCH=0; +} +if (!__STRING_VWATCHUSEDLABELS)__STRING_VWATCHUSEDLABELS=qbs_new(0,0); +if (!__STRING_VWATCHUSEDSKIPLABELS)__STRING_VWATCHUSEDSKIPLABELS=qbs_new(0,0); if (!__STRING_LINEFRAGMENT)__STRING_LINEFRAGMENT=qbs_new(0,0); if(__INTEGER_ARRAYPROCESSINGHAPPENED==NULL){ __INTEGER_ARRAYPROCESSINGHAPPENED=(int16*)mem_static_malloc(2); @@ -2554,6 +2659,10 @@ __INTEGER_STRINGPROCESSINGHAPPENED=(int16*)mem_static_malloc(2); *__INTEGER_STRINGPROCESSINGHAPPENED=0; } if (!__STRING_CLEANUPSTRINGPROCESSINGCALL)__STRING_CLEANUPSTRINGPROCESSINGCALL=qbs_new(0,0); +if(__BYTE_INPUTFUNCTIONCALLED==NULL){ +__BYTE_INPUTFUNCTIONCALLED=(int8*)mem_static_malloc(1); +*__BYTE_INPUTFUNCTIONCALLED=0; +} if(__INTEGER_RECOMPILE==NULL){ __INTEGER_RECOMPILE=(int16*)mem_static_malloc(2); *__INTEGER_RECOMPILE=0; @@ -2581,6 +2690,10 @@ if(__LONG_SUBFUNCN==NULL){ __LONG_SUBFUNCN=(int32*)mem_static_malloc(4); *__LONG_SUBFUNCN=0; } +if(__BYTE_CLOSEDSUBFUNC==NULL){ +__BYTE_CLOSEDSUBFUNC=(int8*)mem_static_malloc(1); +*__BYTE_CLOSEDSUBFUNC=0; +} if(__LONG_SUBFUNCID==NULL){ __LONG_SUBFUNCID=(int32*)mem_static_malloc(4); *__LONG_SUBFUNCID=0; @@ -2665,6 +2778,10 @@ if(__LONG_STATEMENTN==NULL){ __LONG_STATEMENTN=(int32*)mem_static_malloc(4); *__LONG_STATEMENTN=0; } +if(__LONG_EVERYCASENEWCASE==NULL){ +__LONG_EVERYCASENEWCASE=(int32*)mem_static_malloc(4); +*__LONG_EVERYCASENEWCASE=0; +} if(__INTEGER_CONTROLLEVEL==NULL){ __INTEGER_CONTROLLEVEL=(int16*)mem_static_malloc(2); *__INTEGER_CONTROLLEVEL=0; @@ -2732,13 +2849,14 @@ if(__INTEGER64_I==NULL){ __INTEGER64_I=(int64*)mem_static_malloc(8); *__INTEGER64_I=0; } -static int64 fornext_value61; -static int64 fornext_finalvalue61; -static int64 fornext_step61; -static uint8 fornext_step_negative61; +static int64 fornext_value57; +static int64 fornext_finalvalue57; +static int64 fornext_step57; +static uint8 fornext_step_negative57; if(__UDT_ID2==NULL){ -__UDT_ID2=(void*)mem_static_malloc(2863); -memset(__UDT_ID2,0,2863); +__UDT_ID2=(void*)mem_static_malloc(2869); +memset(__UDT_ID2,0,2869); +*(qbs**)(((char*)__UDT_ID2)+ 2861) = qbs_new(0,0); } if (!__ARRAY_LONG_SFIDLIST){ __ARRAY_LONG_SFIDLIST=(ptrszint*)mem_static_malloc(9*ptrsz); @@ -2782,7 +2900,7 @@ if(__LONG_C==NULL){ __LONG_C=(int32*)mem_static_malloc(4); *__LONG_C=0; } -int32 pass62; +int32 pass58; if (!__STRING_C)__STRING_C=qbs_new(0,0); if(__LONG_IDEPASS==NULL){ __LONG_IDEPASS=(int32*)mem_static_malloc(4); @@ -2806,68 +2924,69 @@ __LONG_FIRSTLINE=(int32*)mem_static_malloc(4); *__LONG_FIRSTLINE=0; } if (!__STRING_F)__STRING_F=qbs_new(0,0); -byte_element_struct *byte_element_63=NULL; -if (!byte_element_63){ -if ((mem_static_pointer+=12)type=4; +((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING256_UDTXNAME[2]=0; +__ARRAY_STRING256_UDTXNAME[4]=2147483647; +__ARRAY_STRING256_UDTXNAME[5]=0; +__ARRAY_STRING256_UDTXNAME[6]=0; +__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_STRING256_UDTXCNAME){ +__ARRAY_STRING256_UDTXCNAME=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING256_UDTXCNAME[2]=0; +__ARRAY_STRING256_UDTXCNAME[4]=2147483647; +__ARRAY_STRING256_UDTXCNAME[5]=0; +__ARRAY_STRING256_UDTXCNAME[6]=0; +__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTXSIZE){ +__ARRAY_LONG_UDTXSIZE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTXSIZE[2]=0; +__ARRAY_LONG_UDTXSIZE[4]=2147483647; +__ARRAY_LONG_UDTXSIZE[5]=0; +__ARRAY_LONG_UDTXSIZE[6]=0; +__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_INTEGER_UDTXBYTEALIGN){ +__ARRAY_INTEGER_UDTXBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_INTEGER_UDTXBYTEALIGN[2]=0; +__ARRAY_INTEGER_UDTXBYTEALIGN[4]=2147483647; +__ARRAY_INTEGER_UDTXBYTEALIGN[5]=0; +__ARRAY_INTEGER_UDTXBYTEALIGN[6]=0; +__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTXNEXT){ +__ARRAY_LONG_UDTXNEXT=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTXNEXT[2]=0; +__ARRAY_LONG_UDTXNEXT[4]=2147483647; +__ARRAY_LONG_UDTXNEXT[5]=0; +__ARRAY_LONG_UDTXNEXT[6]=0; +__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_INTEGER_UDTXVARIABLE){ +__ARRAY_INTEGER_UDTXVARIABLE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_INTEGER_UDTXVARIABLE[2]=0; +__ARRAY_INTEGER_UDTXVARIABLE[4]=2147483647; +__ARRAY_INTEGER_UDTXVARIABLE[5]=0; +__ARRAY_INTEGER_UDTXVARIABLE[6]=0; +__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_STRING256_UDTENAME){ +__ARRAY_STRING256_UDTENAME=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING256_UDTENAME)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING256_UDTENAME[2]=0; +__ARRAY_STRING256_UDTENAME[4]=2147483647; +__ARRAY_STRING256_UDTENAME[5]=0; +__ARRAY_STRING256_UDTENAME[6]=0; +__ARRAY_STRING256_UDTENAME[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_STRING256_UDTECNAME){ +__ARRAY_STRING256_UDTECNAME=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING256_UDTECNAME[2]=0; +__ARRAY_STRING256_UDTECNAME[4]=2147483647; +__ARRAY_STRING256_UDTECNAME[5]=0; +__ARRAY_STRING256_UDTECNAME[6]=0; +__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_INTEGER_UDTEBYTEALIGN){ +__ARRAY_INTEGER_UDTEBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_INTEGER_UDTEBYTEALIGN[2]=0; +__ARRAY_INTEGER_UDTEBYTEALIGN[4]=2147483647; +__ARRAY_INTEGER_UDTEBYTEALIGN[5]=0; +__ARRAY_INTEGER_UDTEBYTEALIGN[6]=0; +__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTESIZE){ +__ARRAY_LONG_UDTESIZE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTESIZE)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTESIZE[2]=0; +__ARRAY_LONG_UDTESIZE[4]=2147483647; +__ARRAY_LONG_UDTESIZE[5]=0; +__ARRAY_LONG_UDTESIZE[6]=0; +__ARRAY_LONG_UDTESIZE[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTETYPE){ +__ARRAY_LONG_UDTETYPE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTETYPE)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTETYPE[2]=0; +__ARRAY_LONG_UDTETYPE[4]=2147483647; +__ARRAY_LONG_UDTETYPE[5]=0; +__ARRAY_LONG_UDTETYPE[6]=0; +__ARRAY_LONG_UDTETYPE[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTETYPESIZE){ +__ARRAY_LONG_UDTETYPESIZE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTETYPESIZE[2]=0; +__ARRAY_LONG_UDTETYPESIZE[4]=2147483647; +__ARRAY_LONG_UDTETYPESIZE[5]=0; +__ARRAY_LONG_UDTETYPESIZE[6]=0; +__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTEARRAYELEMENTS){ +__ARRAY_LONG_UDTEARRAYELEMENTS=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTEARRAYELEMENTS[2]=0; +__ARRAY_LONG_UDTEARRAYELEMENTS[4]=2147483647; +__ARRAY_LONG_UDTEARRAYELEMENTS[5]=0; +__ARRAY_LONG_UDTEARRAYELEMENTS[6]=0; +__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_UDTENEXT){ +__ARRAY_LONG_UDTENEXT=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_UDTENEXT)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_UDTENEXT[2]=0; +__ARRAY_LONG_UDTENEXT[4]=2147483647; +__ARRAY_LONG_UDTENEXT[5]=0; +__ARRAY_LONG_UDTENEXT[6]=0; +__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue; +} if(__LONG_DEFININGTYPE==NULL){ __LONG_DEFININGTYPE=(int32*)mem_static_malloc(4); *__LONG_DEFININGTYPE=0; } -static int64 fornext_value210; -static int64 fornext_finalvalue210; -static int64 fornext_step210; -static uint8 fornext_step_negative210; +static int64 fornext_value202; +static int64 fornext_finalvalue202; +static int64 fornext_step202; +static uint8 fornext_step_negative202; +if (!__ARRAY_UDT_USEDVARIABLELIST){ +__ARRAY_UDT_USEDVARIABLELIST=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_UDT_USEDVARIABLELIST[2]=0; +__ARRAY_UDT_USEDVARIABLELIST[4]=2147483647; +__ARRAY_UDT_USEDVARIABLELIST[5]=0; +__ARRAY_UDT_USEDVARIABLELIST[6]=0; +__ARRAY_UDT_USEDVARIABLELIST[0]=(ptrszint)nothingvalue; +} if (!__ARRAY_STRING_WARNING){ __ARRAY_STRING_WARNING=(ptrszint*)mem_static_malloc(9*ptrsz); new_mem_lock(); @@ -3038,6 +3326,39 @@ __ARRAY_STRING_WARNING[5]=0; __ARRAY_STRING_WARNING[6]=0; __ARRAY_STRING_WARNING[0]=(ptrszint)¬hingstring; } +if (!__ARRAY_LONG_WARNINGLINES){ +__ARRAY_LONG_WARNINGLINES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_WARNINGLINES[2]=0; +__ARRAY_LONG_WARNINGLINES[4]=2147483647; +__ARRAY_LONG_WARNINGLINES[5]=0; +__ARRAY_LONG_WARNINGLINES[6]=0; +__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_LONG_WARNINGINCLINES){ +__ARRAY_LONG_WARNINGINCLINES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_LONG_WARNINGINCLINES[2]=0; +__ARRAY_LONG_WARNINGINCLINES[4]=2147483647; +__ARRAY_LONG_WARNINGINCLINES[5]=0; +__ARRAY_LONG_WARNINGINCLINES[6]=0; +__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)nothingvalue; +} +if (!__ARRAY_STRING_WARNINGINCFILES){ +__ARRAY_STRING_WARNINGINCFILES=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8]=(ptrszint)mem_lock_tmp; +__ARRAY_STRING_WARNINGINCFILES[2]=0; +__ARRAY_STRING_WARNINGINCFILES[4]=2147483647; +__ARRAY_STRING_WARNINGINCFILES[5]=0; +__ARRAY_STRING_WARNINGINCFILES[6]=0; +__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)¬hingstring; +} if(__LONG_PTRSZ==NULL){ __LONG_PTRSZ=(int32*)mem_static_malloc(4); *__LONG_PTRSZ=0; @@ -3050,25 +3371,41 @@ if(__LONG_I3==NULL){ __LONG_I3=(int32*)mem_static_malloc(4); *__LONG_I3=0; } -static int64 fornext_value212; -static int64 fornext_finalvalue212; -static int64 fornext_step212; -static uint8 fornext_step_negative212; +static int64 fornext_value204; +static int64 fornext_finalvalue204; +static int64 fornext_step204; +static uint8 fornext_step_negative204; if(__LONG_FF==NULL){ __LONG_FF=(int32*)mem_static_malloc(4); *__LONG_FF=0; } +int32 pass207; +int32 pass208; +int32 pass209; +int32 pass210; +int32 pass211; +int32 pass212; +int32 pass213; if(__LONG_IDERECOMPILE==NULL){ __LONG_IDERECOMPILE=(int32*)mem_static_malloc(4); *__LONG_IDERECOMPILE=0; } if (!__STRING_LINEBACKUP)__STRING_LINEBACKUP=qbs_new(0,0); if (!__STRING_FORCEINCLUDEFROMROOT)__STRING_FORCEINCLUDEFROMROOT=qbs_new(0,0); +if(__LONG_ADDINGVWATCH==NULL){ +__LONG_ADDINGVWATCH=(int32*)mem_static_malloc(4); +*__LONG_ADDINGVWATCH=0; +} +byte_element_struct *byte_element_217=NULL; +if (!byte_element_217){ +if ((mem_static_pointer+=12)type=4; +((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4]=2147483647; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[6]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue; +} +if(_FUNC_IDEACTIVITYBOX_STRING1_SEP==NULL){ +_FUNC_IDEACTIVITYBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0); +memset(_FUNC_IDEACTIVITYBOX_STRING1_SEP->chr,0,1); +} +if(_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=0; +} +if (!_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE){ +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE=(ptrszint*)mem_static_malloc(9*ptrsz); +new_mem_lock(); +mem_lock_tmp->type=4; +((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE)[8]=(ptrszint)mem_lock_tmp; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4]=2147483647; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[6]=0; +_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]=(ptrszint)¬hingstring; +} +if(_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_TW==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_TW=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_TW=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_W==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_W=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_W=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_I==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_I=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_I=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_W2==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_W2=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_W2=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_F==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_F=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_F=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_CX==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_CX=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_CX=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_CY==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_CY=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_CY=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_CHANGE==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_CHANGE=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_ALT==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_ALT=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_ALT=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_OLDALT==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_OLDALT=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_OLDALT=0; +} +if (!_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER)_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER=qbs_new(0,0); +if(_FUNC_IDEACTIVITYBOX_LONG_K==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_K=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_K=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_INFO==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_INFO=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_INFO=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_T==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_T=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_T=0; +} +if(_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET==NULL){ +_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=(int32*)mem_static_malloc(4); +*_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=0; +} if (!_SUB_GETINPUT_STRING_ASCVALUE)_SUB_GETINPUT_STRING_ASCVALUE=qbs_new(0,0); if(_SUB_HELP_SHOWTEXT_LONG_SETUP==NULL){ _SUB_HELP_SHOWTEXT_LONG_SETUP=(int32*)mem_static_malloc(4); *_SUB_HELP_SHOWTEXT_LONG_SETUP=0; } -if(_FUNC_WIKI_BYTE_ALTERNATIVESERVER==NULL){ -_FUNC_WIKI_BYTE_ALTERNATIVESERVER=(int8*)mem_static_malloc(1); -*_FUNC_WIKI_BYTE_ALTERNATIVESERVER=0; +if(_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN==NULL){ +_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN=(int32*)mem_static_malloc(4); +*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN=0; +} +if (!_FUNC_GETBYTES_STRING_PREVIOUSVALUE)_FUNC_GETBYTES_STRING_PREVIOUSVALUE=qbs_new(0,0); +if(_FUNC_GETBYTES_LONG_GETBYTESPOSITION==NULL){ +_FUNC_GETBYTES_LONG_GETBYTESPOSITION=(int32*)mem_static_malloc(4); +*_FUNC_GETBYTES_LONG_GETBYTESPOSITION=0; } diff --git a/internal/source/mainerr.txt b/internal/source/mainerr.txt index e7a062631..d85f5c315 100644 --- a/internal/source/mainerr.txt +++ b/internal/source/mainerr.txt @@ -11,9 +11,5 @@ if (error_goto_line==9){error_handling=1; goto LABEL_QBERROR_TEST;} if (error_goto_line==10){error_handling=1; goto LABEL_QBERROR;} if (error_goto_line==11){error_handling=1; goto LABEL_QBERROR_TEST;} if (error_goto_line==12){error_handling=1; goto LABEL_QBERROR;} -if (error_goto_line==13){error_handling=1; goto LABEL_QBERROR_TEST;} -if (error_goto_line==14){error_handling=1; goto LABEL_QBERROR;} -if (error_goto_line==15){error_handling=1; goto LABEL_QBERROR_TEST;} -if (error_goto_line==16){error_handling=1; goto LABEL_QBERROR;} exit(99); } diff --git a/internal/source/mainfree.txt b/internal/source/mainfree.txt index 058ab85ed..156df4c72 100644 --- a/internal/source/mainfree.txt +++ b/internal/source/mainfree.txt @@ -1,5 +1,5 @@ qbs_free(__STRING_VERSION); -qbs_free(__STRING_BUILDNUM); +qbs_free(__STRING_DEVCHANNEL); qbs_free(__STRING_AUTOBUILDMSG); qbs_free(__STRING1_SP); qbs_free(__STRING1_SP2); @@ -30,42 +30,13 @@ free((void*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER64_GL_DEFINES_VALUE)[8] ); -if (__ARRAY_STRING_INSTALLFILES[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILES[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILES[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILES[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILES)[8] ); -if (__ARRAY_STRING_INSTALLFILESSOURCELOCATION[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILESSOURCELOCATION[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILESSOURCELOCATION[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILESSOURCELOCATION)[8] ); -if (__ARRAY_STRING_INSTALLFILESIN[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFILESIN[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFILESIN[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFILESIN[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFILESIN)[8] ); -if (__ARRAY_STRING_INSTALLFOLDER[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDER[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDER[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDER[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDER)[8] ); -if (__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDERSOURCELOCATION)[8] ); -if (__ARRAY_STRING_INSTALLFOLDERIN[2]&1){ -tmp_long=__ARRAY_STRING_INSTALLFOLDERIN[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_INSTALLFOLDERIN[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_INSTALLFOLDERIN[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_INSTALLFOLDERIN)[8] ); +qbs_free(__STRING_CURRENTINIFILENAME); +qbs_free(__STRING_INIWHOLEFILE); +qbs_free(__STRING_INISECTIONDATA); +qbs_free(__STRING_ININEWFILE); +qbs_free(__STRING_INILASTSECTION); +qbs_free(__STRING_INILASTKEY); +qbs_free(__STRING_INILF); qbs_free(__STRING_CACHE_FOLDER); qbs_free(__STRING_HELP_TXT); qbs_free(__STRING_HELP_LINE); @@ -102,6 +73,17 @@ free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_HELP_BACK)[8] ); qbs_free(__STRING_HELP_SEARCH_STR); qbs_free(__STRING_HELP_PAGELOADED); qbs_free(__STRING_IDEINFO); +qbs_free(__STRING_HOSTPORT); +qbs_free(__STRING_VARIABLEWATCHLIST); +qbs_free(__STRING_BACKUPVARIABLEWATCHLIST); +qbs_free(__STRING_WATCHPOINTLIST); +if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&1){ +tmp_long=__ARRAY_STRING_VWATCHRECEIVEDDATA[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_VWATCHRECEIVEDDATA)[8] ); +qbs_free(__STRING_CALLSTACKLIST); if (__ARRAY_STRING_IDERECENTLINK[2]&1){ tmp_long=__ARRAY_STRING_IDERECENTLINK[5]*__ARRAY_STRING_IDERECENTLINK[9]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]); @@ -109,6 +91,7 @@ free((void*)(__ARRAY_STRING_IDERECENTLINK[0])); } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_IDERECENTLINK)[12] ); qbs_free(__STRING_IDEOPENFILE); +qbs_free(__STRING_FILEDLGSEARCHTERM); if (__ARRAY_UDT_IDEBMK[2]&1){ if (__ARRAY_UDT_IDEBMK[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDEBMK[0])); @@ -117,6 +100,30 @@ free((void*)(__ARRAY_UDT_IDEBMK[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_IDEBMK)[8] ); +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&1){ +if (__ARRAY_UDT_QUICKNAVHISTORY[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_UDT_QUICKNAVHISTORY[0])); +}else{ +free((void*)(__ARRAY_UDT_QUICKNAVHISTORY[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_QUICKNAVHISTORY)[8] ); +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){ +if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_BYTE_IDEBREAKPOINTS)[8] ); +if (__ARRAY_BYTE_IDESKIPLINES[2]&1){ +if (__ARRAY_BYTE_IDESKIPLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_IDESKIPLINES[0])); +}else{ +free((void*)(__ARRAY_BYTE_IDESKIPLINES[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_BYTE_IDESKIPLINES)[8] ); qbs_free(__STRING_K); if (__ARRAY_INTEGER_BLOCK_CHR[2]&1){ if (__ARRAY_INTEGER_BLOCK_CHR[2]&4){ @@ -151,14 +158,6 @@ while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long] free((void*)(__ARRAY_STRING_IDETXT[0])); } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_IDETXT)[8] ); -if (__ARRAY_INTEGER_IDEALTCODE[2]&1){ -if (__ARRAY_INTEGER_IDEALTCODE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_IDEALTCODE[0])); -}else{ -free((void*)(__ARRAY_INTEGER_IDEALTCODE[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_IDEALTCODE)[8] ); qbs_free(__STRING_IDEPROGNAME); qbs_free(__STRING_IDEPATH); qbs_free(__STRING_IDEFINDTEXT); @@ -170,22 +169,22 @@ while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_ free((void*)(__ARRAY_STRING_SUBFUNCLIST[0])); } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_SUBFUNCLIST)[8] ); -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&1){ -if (__ARRAY_LONG_QUICKNAVHISTORY[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_QUICKNAVHISTORY[0])); -}else{ -free((void*)(__ARRAY_LONG_QUICKNAVHISTORY[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_QUICKNAVHISTORY)[8] ); qbs_free(__STRING_MODIFYCOMMAND); qbs_free(__STRING_ACTIVEINCLUDELINKFILE); +qbs_free(__STRING_VERSIONSTRINGSTATUS); +qbs_free(__STRING_LINENUMBERSTATUS); if (__ARRAY_STRING_MENU[2]&1){ tmp_long=__ARRAY_STRING_MENU[5]*__ARRAY_STRING_MENU[9]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]); free((void*)(__ARRAY_STRING_MENU[0])); } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_MENU)[12] ); +if (__ARRAY_STRING_MENUDESC[2]&1){ +tmp_long=__ARRAY_STRING_MENUDESC[5]*__ARRAY_STRING_MENUDESC[9]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_MENUDESC[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_MENUDESC)[12] ); if (__ARRAY_LONG_MENUSIZE[2]&1){ if (__ARRAY_LONG_MENUSIZE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_MENUSIZE[0])); @@ -217,6 +216,22 @@ free((void*)(__ARRAY_INTEGER_PL[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_PL)[8] ); +if (__ARRAY_STRING_PP_TYPEMOD[2]&1){ +tmp_long=__ARRAY_STRING_PP_TYPEMOD[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_PP_TYPEMOD[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_PP_TYPEMOD)[8] ); +if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&1){ +tmp_long=__ARRAY_STRING_PP_CONVERTEDMOD[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_PP_CONVERTEDMOD[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_PP_CONVERTEDMOD)[8] ); +qbs_free(__STRING_VWATCHERRORCALL); +qbs_free(__STRING_VWATCHNEWVARIABLE); +qbs_free(__STRING_VWATCHVARIABLEEXCLUSIONS); +qbs_free(__STRING_NATIVEDATATYPES); if (__ARRAY_LONG_EVERYCASESET[2]&1){ if (__ARRAY_LONG_EVERYCASESET[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_EVERYCASESET[0])); @@ -225,6 +240,14 @@ free((void*)(__ARRAY_LONG_EVERYCASESET[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8] ); +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){ +if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +}else{ +free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8] ); if (__ARRAY_LONG_EXECLEVEL[2]&1){ if (__ARRAY_LONG_EXECLEVEL[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_EXECLEVEL[0])); @@ -239,14 +262,14 @@ while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_l free((void*)(__ARRAY_STRING_USERDEFINE[0])); } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_USERDEFINE)[12] ); -if (__ARRAY_BIT1_INVALIDLINE[2]&1){ -if (__ARRAY_BIT1_INVALIDLINE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_BIT1_INVALIDLINE[0])); +if (__ARRAY_BYTE_INVALIDLINE[2]&1){ +if (__ARRAY_BYTE_INVALIDLINE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_BYTE_INVALIDLINE[0])); }else{ -free((void*)(__ARRAY_BIT1_INVALIDLINE[0])); +free((void*)(__ARRAY_BYTE_INVALIDLINE[0])); } } -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_BIT1_INVALIDLINE)[8] ); +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_BYTE_INVALIDLINE)[8] ); if (__ARRAY_BYTE_DEFINEELSE[2]&1){ if (__ARRAY_BYTE_DEFINEELSE[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_BYTE_DEFINEELSE[0])); @@ -255,8 +278,7 @@ free((void*)(__ARRAY_BYTE_DEFINEELSE[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_BYTE_DEFINEELSE)[8] ); -qbs_free(__STRING_REFACTOR_SOURCE); -qbs_free(__STRING_REFACTOR_DEST); +qbs_free(__STRING_USERDEFINELIST); if (__ARRAY_LONG_DEPENDENCY[2]&1){ if (__ARRAY_LONG_DEPENDENCY[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_LONG_DEPENDENCY[0])); @@ -265,9 +287,30 @@ free((void*)(__ARRAY_LONG_DEPENDENCY[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_DEPENDENCY)[8] ); +qbs_free(__STRING_WINDOWTITLE); qbs_free(__STRING_CMDLINEFILE); -qbs_free(__STRING_USEDVARIABLELIST); +if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +free((void*)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST)[8] ); +qbs_free(__STRING_TYPEDEFINITIONS); +qbs_free(__STRING_BACKUPTYPEDEFINITIONS); qbs_free(__STRING_LASTWARNINGHEADER); +qbs_free(__STRING_QB64PREFIX); qbs_free(__STRING_VIFILEVERSIONNUM); qbs_free(__STRING_VIPRODUCTVERSIONNUM); qbs_free(__STRING_VICOMPANYNAME); @@ -431,18 +474,20 @@ qbs_free(__STRING_IDERETURN); qbs_free(__STRING_IDEMESSAGE); qbs_free(__STRING_OUTPUTFILE_CMD); qbs_free(__STRING_COMPILELOG); -if (__ARRAY_STRING_CNAME[2]&1){ -tmp_long=__ARRAY_STRING_CNAME[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_CNAME[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_CNAME[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_CNAME)[8] ); -qbs_free(__STRING_IDE_INDEX); +qbs_free(__STRING_WINDOWSETTINGSSECTION); +qbs_free(__STRING_COLORSETTINGSSECTION); +qbs_free(__STRING_CUSTOMDICTIONARYSECTION); +qbs_free(__STRING_MOUSESETTINGSSECTION); +qbs_free(__STRING_GENERALSETTINGSSECTION); +qbs_free(__STRING_DISPLAYSETTINGSSECTION); +qbs_free(__STRING_COLORSCHEMESSECTION); +qbs_free(__STRING_DEBUGSETTINGSSECTION); +qbs_free(__STRING_INIFOLDERINDEX); +qbs_free(__STRING_DEBUGINFOINIWARNING); qbs_free(__STRING_CONFIGFILE); -qbs_free(__STRING_CONFIGBAK); +qbs_free(__STRING_WIKIBASEADDRESS); qbs_free(__STRING_VALUE); qbs_free(__STRING_TEMPLIST); -qbs_free(__STRING_TEMP); qbs_free(__STRING_HASHFIND_NAME); if (__ARRAY_INTEGER_HASH1CHAR[2]&1){ if (__ARRAY_INTEGER_HASH1CHAR[2]&4){ @@ -637,6 +682,152 @@ free((void*)(__ARRAY_LONG_CONSTDEFINED[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8] ); +qbs_free(*((qbs**)(((char*)__UDT_ID)+ 2861))); +if (__ARRAY_UDT_IDS[2]&1){ +tmp_long=__ARRAY_UDT_IDS[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(__ARRAY_UDT_IDS[0]+(22952/8+1-1)*tmp_long+ 2861));} +free((void*)(__ARRAY_UDT_IDS[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8] ); +if (__ARRAY_INTEGER_CMEMLIST[2]&1){ +if (__ARRAY_INTEGER_CMEMLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_CMEMLIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_CMEMLIST)[8] ); +if (__ARRAY_STRING100_SFCMEMARGS[2]&1){ +if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0])); +}else{ +free((void*)(__ARRAY_STRING100_SFCMEMARGS[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING100_SFCMEMARGS)[8] ); +if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){ +if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8] ); +qbs_free(*((qbs**)(((char*)__UDT_CLEARIDDATA)+ 2861))); +qbs_free(__STRING_SOURCEFILE); +qbs_free(__STRING_FILE); +qbs_free(__STRING_FINDIDSECONDARG); +qbs_free(__STRING_WHOLELINE); +qbs_free(__STRING_VWATCHUSEDLABELS); +qbs_free(__STRING_VWATCHUSEDSKIPLABELS); +qbs_free(__STRING_LINEFRAGMENT); +qbs_free(__STRING_CLEANUPSTRINGPROCESSINGCALL); +qbs_free(__STRING_ADDMETAINCLUDE); +qbs_free(__STRING_MODULE); +qbs_free(__STRING_SUBFUNC); +if (__ARRAY_INTEGER64_BITMASK[2]&1){ +if (__ARRAY_INTEGER64_BITMASK[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASK[0])); +}else{ +free((void*)(__ARRAY_INTEGER64_BITMASK[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER64_BITMASK)[8] ); +if (__ARRAY_INTEGER64_BITMASKINV[2]&1){ +if (__ARRAY_INTEGER64_BITMASKINV[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASKINV[0])); +}else{ +free((void*)(__ARRAY_INTEGER64_BITMASKINV[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER64_BITMASKINV)[8] ); +if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){ +tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_DEFINEEXTAZ[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_DEFINEEXTAZ)[8] ); +if (__ARRAY_STRING_DEFINEAZ[2]&1){ +tmp_long=__ARRAY_STRING_DEFINEAZ[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_DEFINEAZ[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_DEFINEAZ)[8] ); +if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){ +if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLTYPE[0])); +}else{ +free((void*)(__ARRAY_INTEGER_CONTROLTYPE[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_CONTROLTYPE)[8] ); +if (__ARRAY_LONG_CONTROLID[2]&1){ +if (__ARRAY_LONG_CONTROLID[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLID[0])); +}else{ +free((void*)(__ARRAY_LONG_CONTROLID[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLID)[8] ); +if (__ARRAY_LONG_CONTROLVALUE[2]&1){ +if (__ARRAY_LONG_CONTROLVALUE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLVALUE[0])); +}else{ +free((void*)(__ARRAY_LONG_CONTROLVALUE[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLVALUE)[8] ); +if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){ +if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLSTATE[0])); +}else{ +free((void*)(__ARRAY_INTEGER_CONTROLSTATE[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_CONTROLSTATE)[8] ); +if (__ARRAY_LONG_CONTROLREF[2]&1){ +if (__ARRAY_LONG_CONTROLREF[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLREF[0])); +}else{ +free((void*)(__ARRAY_LONG_CONTROLREF[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLREF)[8] ); +qbs_free(*((qbs**)(((char*)__UDT_ID2)+ 2861))); +if (__ARRAY_LONG_SFIDLIST[2]&1){ +if (__ARRAY_LONG_SFIDLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0])); +}else{ +free((void*)(__ARRAY_LONG_SFIDLIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_SFIDLIST)[8] ); +if (__ARRAY_INTEGER_SFARGLIST[2]&1){ +if (__ARRAY_INTEGER_SFARGLIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFARGLIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_SFARGLIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFARGLIST)[8] ); +if (__ARRAY_INTEGER_SFELELIST[2]&1){ +if (__ARRAY_INTEGER_SFELELIST[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFELELIST[0])); +}else{ +free((void*)(__ARRAY_INTEGER_SFELELIST[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFELELIST)[8] ); +qbs_free(__STRING_SENDC); +qbs_free(__STRING_C); +qbs_free(__STRING_A3); +qbs_free(__STRING_F); +qbs_free(__STRING_TERRMSG); +qbs_free(__STRING_CURRENTDIR); +qbs_free(__STRING_MYLIB); +qbs_free(__STRING_MYLIBOPT); if (__ARRAY_STRING256_UDTXNAME[2]&1){ if (__ARRAY_STRING256_UDTXNAME[2]&4){ cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0])); @@ -749,158 +940,58 @@ free((void*)(__ARRAY_LONG_UDTENEXT[0])); } } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8] ); -if (__ARRAY_UDT_IDS[2]&1){ -if (__ARRAY_UDT_IDS[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); -}else{ -free((void*)(__ARRAY_UDT_IDS[0])); +if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){ +tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5]; +while(tmp_long--) { + +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 32)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 40)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 48)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 56)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 64)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 72)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 80)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 88)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)); +qbs_free(*(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112));} +free((void*)(__ARRAY_UDT_USEDVARIABLELIST[0])); } -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8] ); -if (__ARRAY_INTEGER_CMEMLIST[2]&1){ -if (__ARRAY_INTEGER_CMEMLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CMEMLIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_CMEMLIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_CMEMLIST)[8] ); -if (__ARRAY_STRING100_SFCMEMARGS[2]&1){ -if (__ARRAY_STRING100_SFCMEMARGS[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0])); -}else{ -free((void*)(__ARRAY_STRING100_SFCMEMARGS[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING100_SFCMEMARGS)[8] ); -if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&1){ -if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8] ); -qbs_free(__STRING_SOURCEFILE); -qbs_free(__STRING_FILE); -qbs_free(__STRING_FINDIDSECONDARG); -qbs_free(__STRING_WHOLELINE); -qbs_free(__STRING_LINEFRAGMENT); -qbs_free(__STRING_CLEANUPSTRINGPROCESSINGCALL); -qbs_free(__STRING_ADDMETAINCLUDE); -qbs_free(__STRING_MODULE); -qbs_free(__STRING_SUBFUNC); -if (__ARRAY_INTEGER64_BITMASK[2]&1){ -if (__ARRAY_INTEGER64_BITMASK[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASK[0])); -}else{ -free((void*)(__ARRAY_INTEGER64_BITMASK[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER64_BITMASK)[8] ); -if (__ARRAY_INTEGER64_BITMASKINV[2]&1){ -if (__ARRAY_INTEGER64_BITMASKINV[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER64_BITMASKINV[0])); -}else{ -free((void*)(__ARRAY_INTEGER64_BITMASKINV[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER64_BITMASKINV)[8] ); -if (__ARRAY_STRING_DEFINEEXTAZ[2]&1){ -tmp_long=__ARRAY_STRING_DEFINEEXTAZ[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_DEFINEEXTAZ[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_DEFINEEXTAZ)[8] ); -if (__ARRAY_STRING_DEFINEAZ[2]&1){ -tmp_long=__ARRAY_STRING_DEFINEAZ[5]; -while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]); -free((void*)(__ARRAY_STRING_DEFINEAZ[0])); -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_DEFINEAZ)[8] ); -if (__ARRAY_INTEGER_CONTROLTYPE[2]&1){ -if (__ARRAY_INTEGER_CONTROLTYPE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLTYPE[0])); -}else{ -free((void*)(__ARRAY_INTEGER_CONTROLTYPE[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_CONTROLTYPE)[8] ); -if (__ARRAY_LONG_CONTROLID[2]&1){ -if (__ARRAY_LONG_CONTROLID[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLID[0])); -}else{ -free((void*)(__ARRAY_LONG_CONTROLID[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLID)[8] ); -if (__ARRAY_LONG_CONTROLVALUE[2]&1){ -if (__ARRAY_LONG_CONTROLVALUE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLVALUE[0])); -}else{ -free((void*)(__ARRAY_LONG_CONTROLVALUE[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLVALUE)[8] ); -if (__ARRAY_INTEGER_CONTROLSTATE[2]&1){ -if (__ARRAY_INTEGER_CONTROLSTATE[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_CONTROLSTATE[0])); -}else{ -free((void*)(__ARRAY_INTEGER_CONTROLSTATE[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_CONTROLSTATE)[8] ); -if (__ARRAY_LONG_CONTROLREF[2]&1){ -if (__ARRAY_LONG_CONTROLREF[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_CONTROLREF[0])); -}else{ -free((void*)(__ARRAY_LONG_CONTROLREF[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLREF)[8] ); -if (__ARRAY_LONG_SFIDLIST[2]&1){ -if (__ARRAY_LONG_SFIDLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0])); -}else{ -free((void*)(__ARRAY_LONG_SFIDLIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_SFIDLIST)[8] ); -if (__ARRAY_INTEGER_SFARGLIST[2]&1){ -if (__ARRAY_INTEGER_SFARGLIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFARGLIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_SFARGLIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFARGLIST)[8] ); -if (__ARRAY_INTEGER_SFELELIST[2]&1){ -if (__ARRAY_INTEGER_SFELELIST[2]&4){ -cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_SFELELIST[0])); -}else{ -free((void*)(__ARRAY_INTEGER_SFELELIST[0])); -} -} -free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_SFELELIST)[8] ); -qbs_free(__STRING_SENDC); -qbs_free(__STRING_C); -qbs_free(__STRING_A3); -qbs_free(__STRING_F); -qbs_free(__STRING_CURRENTDIR); -qbs_free(__STRING_MYLIB); -qbs_free(__STRING_MYLIBOPT); +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_USEDVARIABLELIST)[8] ); if (__ARRAY_STRING_WARNING[2]&1){ tmp_long=__ARRAY_STRING_WARNING[5]; while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]); free((void*)(__ARRAY_STRING_WARNING[0])); } free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8] ); +if (__ARRAY_LONG_WARNINGLINES[2]&1){ +if (__ARRAY_LONG_WARNINGLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0])); +}else{ +free((void*)(__ARRAY_LONG_WARNINGLINES[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8] ); +if (__ARRAY_LONG_WARNINGINCLINES[2]&1){ +if (__ARRAY_LONG_WARNINGINCLINES[2]&4){ +cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0])); +}else{ +free((void*)(__ARRAY_LONG_WARNINGINCLINES[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8] ); +if (__ARRAY_STRING_WARNINGINCFILES[2]&1){ +tmp_long=__ARRAY_STRING_WARNINGINCFILES[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]); +free((void*)(__ARRAY_STRING_WARNINGINCFILES[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8] ); qbs_free(__STRING_LINEBACKUP); qbs_free(__STRING_FORCEINCLUDEFROMROOT); qbs_free(__STRING_WHOLESTV); +qbs_free(__STRING_TEMP); qbs_free(__STRING_L); qbs_free(__STRING_R); -qbs_free(__STRING_L1); qbs_free(__STRING_R1); qbs_free(__STRING_CWHOLELINE); qbs_free(__STRING_E); @@ -913,14 +1004,15 @@ qbs_free(__STRING_SIZ); qbs_free(__STRING_N); qbs_free(__STRING_T); qbs_free(__STRING_HASHNAME); -qbs_free(__STRING_RED); -qbs_free(__STRING_GREEN); -qbs_free(__STRING_BLUE); -qbs_free(__STRING_ALPHA); -qbs_free(__STRING_VAL); -qbs_free(__STRING_TEMP1); +qbs_free(__STRING_PREVIOUSELEMENT); +qbs_free(__STRING_LASTELEMENT); +qbs_free(__STRING_CN); qbs_free(__STRING_S); +qbs_free(__STRING_READABLE_E); qbs_free(__STRING_E2); +qbs_free(__STRING_E3); +qbs_free(__STRING_TEMP1); +qbs_free(__STRING_THISCONSTVAL); qbs_free(__STRING_SYMBOL); qbs_free(__STRING_ALIASNAME); qbs_free(__STRING_PARAMS); @@ -936,14 +1028,7 @@ qbs_free(__STRING_P); qbs_free(__STRING_X); qbs_free(__STRING_LAYOUTORIGINAL); qbs_free(__STRING_A3U); -qbs_free(__STRING_METACOMMAND); -qbs_free(__STRING_METACOMMANDHINT); -qbs_free(__STRING_SOURCECONTENT); -qbs_free(__STRING_DESTLOCATION); -qbs_free(__STRING_A4); -qbs_free(__STRING_A3STRING); -qbs_free(__STRING_A3QUOTEDSTRING); -qbs_free(__STRING_SOURCELOCATION); +qbs_free(__STRING_TEMPOP); qbs_free(__STRING_VERSIONINFOKEY); qbs_free(__STRING_VERSIONINFOVALUE); qbs_free(__STRING_EXEICONFILE); @@ -955,6 +1040,8 @@ qbs_free(__STRING_INCLINENUMP); qbs_free(__STRING_THISINCNAME); qbs_free(__STRING_E1); qbs_free(__STRING_AA); +qbs_free(__STRING_NEXTELEMENT); +qbs_free(__STRING_THISELEMENT); qbs_free(__STRING_LIBNAME); qbs_free(__STRING_HEADERNAME); qbs_free(__STRING_AUTOFORMAT_X); @@ -966,6 +1053,7 @@ qbs_free(__STRING_INLINELIBNAME); qbs_free(__STRING_X2); qbs_free(__STRING_DLLNAME); qbs_free(__STRING_EE); +qbs_free(__STRING_SUBFUNCORIGINALNAME); qbs_free(__STRING_SUBFUNCRET); qbs_free(__STRING_T3); qbs_free(__STRING_CALLNAME); @@ -978,7 +1066,6 @@ qbs_free(__STRING_TC); qbs_free(__STRING_F12); qbs_free(__STRING_EL); qbs_free(__STRING_ER); -qbs_free(__STRING_E3); qbs_free(__STRING_O); qbs_free(__STRING_O2); qbs_free(__STRING_SIZEE); @@ -989,6 +1076,7 @@ qbs_free(__STRING_CT); qbs_free(__STRING_L2); qbs_free(__STRING_TS); qbs_free(__STRING_OLDSUBFUNC); +qbs_free(__STRING_L3); qbs_free(__STRING_STRINGVARIABLE); qbs_free(__STRING_POSITION); qbs_free(__STRING_EXPRESSION); @@ -1015,7 +1103,6 @@ qbs_free(__STRING_VARSIZE); qbs_free(__STRING_VAROFFS); qbs_free(__STRING_ST); qbs_free(__STRING_BYTES); -qbs_free(__STRING_CN); qbs_free(__STRING_NEXTCHAR); qbs_free(__STRING_TEXTVALUE); qbs_free(__STRING_DEST); @@ -1032,7 +1119,7 @@ qbs_free(__STRING_LAYOUTCOMMENT_BACKUP); qbs_free(__STRING_LAYOUT_BACKUP); qbs_free(__STRING_PUREVARNAME); qbs_free(__STRING_X1); -qbs_free(__STRING_INTERNALVARNAME); +qbs_free(__STRING_HEADER); qbs_free(__STRING_PATH__ASCII_CHR_046__OUT); qbs_free(__STRING_T__ASCII_CHR_046__PATH__ASCII_CHR_046__EXE); qbs_free(__STRING_DEFINES); @@ -1047,7 +1134,31 @@ qbs_free(__STRING_D3); qbs_free(__STRING_DEPSTR); qbs_free(__STRING_LIBQB); qbs_free(__STRING_B); +qbs_free(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST); +qbs_free(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST); qbs_free(_FUNC_IDE2_STRING_MENULOCATIONS); +qbs_free(_FUNC_IDE2_STRING_MATHEVALEXPR); +qbs_free(_SUB_DEBUGMODE_STRING_BUFFER); +qbs_free(_SUB_DEBUGMODE_STRING_CURRENTSUB); +qbs_free(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST); +qbs_free(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST); +qbs_free(_FUNC_EXPANDARRAY_STRING_RETURNVALUE); qbs_free(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS); -qbs_free(_SUB_IDEOBJUPDATE_STRING_SEARCHTERM); +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&1){ +if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&4){ +cmem_dynamic_free((uint8*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])); +}else{ +free((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])); +} +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O)[8] ); +qbs_free(_FUNC_IDEACTIVITYBOX_STRING1_SEP); +if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&1){ +tmp_long=_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]; +while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]); +free((void*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0])); +} +free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE)[8] ); +qbs_free(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER); qbs_free(_SUB_GETINPUT_STRING_ASCVALUE); +qbs_free(_FUNC_GETBYTES_STRING_PREVIOUSVALUE); diff --git a/internal/source/regsf.txt b/internal/source/regsf.txt index cb28ca9cf..1d1844e55 100644 --- a/internal/source/regsf.txt +++ b/internal/source/regsf.txt @@ -6,6 +6,8 @@ int32 FUNC_ALLOCARRAY(qbs*_FUNC_ALLOCARRAY_STRING_N2,qbs*_FUNC_ALLOCARRAY_STRING qbs* FUNC_ARRAYREFERENCE(qbs*_FUNC_ARRAYREFERENCE_STRING_INDEXES,int32*_FUNC_ARRAYREFERENCE_LONG_TYP); void SUB_ASSIGN(qbs*_SUB_ASSIGN_STRING_A,int32*_SUB_ASSIGN_LONG_N); void SUB_CLEARID(); +void SUB_VWATCHVARIABLE(qbs*_SUB_VWATCHVARIABLE_STRING_THIS,int8*_SUB_VWATCHVARIABLE_BYTE_ACTION); +void SUB_VWATCHADDLABEL(int32*_SUB_VWATCHADDLABEL_LONG_THIS,int8*_SUB_VWATCHADDLABEL_BYTE_LASTLINE); void SUB_CLOSEMAIN(); int32 FUNC_COUNTELEMENTS(qbs*_FUNC_COUNTELEMENTS_STRING_A); int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS); @@ -22,7 +24,6 @@ qbs* FUNC_GETELEMENT(qbs*_FUNC_GETELEMENT_STRING_A,int32*_FUNC_GETELEMENT_LONG_E qbs* FUNC_GETELEMENTS(qbs*_FUNC_GETELEMENTS_STRING_A,int32*_FUNC_GETELEMENTS_LONG_I1,int32*_FUNC_GETELEMENTS_LONG_I2); void SUB_GETID(int32*_SUB_GETID_LONG_I); void SUB_INSERTELEMENTS(qbs*_SUB_INSERTELEMENTS_STRING_A,int32*_SUB_INSERTELEMENTS_LONG_I,qbs*_SUB_INSERTELEMENTS_STRING_ELEMENTS); -int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING_A); int32 FUNC_ISOPERATOR(qbs*_FUNC_ISOPERATOR_STRING_A2); int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I); int32 FUNC_ISVALIDVARIABLE(qbs*_FUNC_ISVALIDVARIABLE_STRING_A); @@ -69,7 +70,6 @@ void SUB_SETDEPENDENCY(int32*_SUB_SETDEPENDENCY_LONG_REQUIREMENT); void SUB_BUILD(qbs*_SUB_BUILD_STRING_PATH); qbs* FUNC_GDB_FIX(qbs*_FUNC_GDB_FIX_STRING_G_COMMAND); void SUB_PATH_SLASH_CORRECT(qbs*_SUB_PATH_SLASH_CORRECT_STRING_A); -void SUB_USEANDROID(int32*_SUB_USEANDROID_LONG_YES); qbs* FUNC_EVALUATE_EXPRESSION(qbs*_FUNC_EVALUATE_EXPRESSION_STRING_E); void SUB_PARSEEXPRESSION(qbs*_SUB_PARSEEXPRESSION_STRING_EXP); void SUB_SET_ORDEROFOPERATIONS(); @@ -93,71 +93,87 @@ qbs* FUNC_NEWBYTEELEMENT(); int32 FUNC_VALIDNAME(qbs*_FUNC_VALIDNAME_STRING_A); qbs* FUNC_STR_NTH(int32*_FUNC_STR_NTH_LONG_X); void SUB_GIVE_ERROR(qbs*_SUB_GIVE_ERROR_STRING_A); -void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_HEADING,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_TVALUE); -int32 FUNC_READCONFIGSETTING(qbs*_FUNC_READCONFIGSETTING_STRING_ITEM,qbs*_FUNC_READCONFIGSETTING_STRING_VALUE); -int32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR); +void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_SECTION,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_VALUE); +int32 FUNC_READCONFIGSETTING(qbs*_FUNC_READCONFIGSETTING_STRING_SECTION,qbs*_FUNC_READCONFIGSETTING_STRING_ITEM,qbs*_FUNC_READCONFIGSETTING_STRING_VALUE); +uint32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR); +qbs* FUNC_RGBS(uint32*_FUNC_RGBS_ULONG_C); int32 FUNC_EVALPREIF(qbs*_FUNC_EVALPREIF_STRING_TEXT,qbs*_FUNC_EVALPREIF_STRING_ERR); int32 FUNC_VERIFYNUMBER(qbs*_FUNC_VERIFYNUMBER_STRING_TEXT); void SUB_INITIALISE_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_FILE,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET); void SUB_FREE_UDT_VARSTRINGS(qbs*_SUB_FREE_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_FILE,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET); +void SUB_CLEAR_UDT_WITH_VARSTRINGS(qbs*_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_FILE,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET); void SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); void SUB_FREE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); void SUB_COPY_FULL_UDT(qbs*_SUB_COPY_FULL_UDT_STRING_DST,qbs*_SUB_COPY_FULL_UDT_STRING_SRC,int32*_SUB_COPY_FULL_UDT_LONG_FILE,int32*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET,int32*_SUB_COPY_FULL_UDT_LONG_UDT); void SUB_DUMP_UDTS(); -void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,int8*_SUB_MANAGEVARIABLELIST_BYTE_ACTION); -void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_LINENUMBER,qbs*_SUB_ADDWARNING_STRING_TEXT); +void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING___NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,int32*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX,int8*_SUB_MANAGEVARIABLELIST_BYTE_ACTION); +void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_WHICHLINENUMBER,int32*_SUB_ADDWARNING_LONG_INCLUDELEVEL,int32*_SUB_ADDWARNING_LONG_INCLINENUMBER,qbs*_SUB_ADDWARNING_STRING_INCFILENAME,qbs*_SUB_ADDWARNING_STRING_HEADER,qbs*_SUB_ADDWARNING_STRING_TEXT); +qbs* FUNC_SCASE(qbs*_FUNC_SCASE_STRING_T); +qbs* FUNC_SCASE2(qbs*_FUNC_SCASE2_STRING_T); +void SUB_INCREASEUDTARRAYS(); qbs* FUNC_STRREMOVE(qbs*_FUNC_STRREMOVE_STRING_MYSTRING,qbs*_FUNC_STRREMOVE_STRING_WHATTOREMOVE); qbs* FUNC_STRREPLACE(qbs*_FUNC_STRREPLACE_STRING_MYSTRING,qbs*_FUNC_STRREPLACE_STRING_FIND,qbs*_FUNC_STRREPLACE_STRING_REPLACEWITH); qbs* FUNC_GL2QB_TYPE_CONVERT(qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,int32*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP); qbs* FUNC_READCHUNK(qbs*_FUNC_READCHUNK_STRING_A,qbs*_FUNC_READCHUNK_STRING_LAST_CHARACTER); void SUB_GL_SCAN_HEADER(); void SUB_GL_INCLUDE_CONTENT(); -void SUB_ARYADDSTR(ptrszint*_SUB_ARYADDSTR_ARRAY_STRING_ARY,qbs*_SUB_ARYADDSTR_STRING_VALUE); -int32 FUNC_ARYLASTSTR(ptrszint*_FUNC_ARYLASTSTR_ARRAY_STRING_ARY); -void SUB_CREATEANDROIDPROJECT_REPLACEINFILE(qbs*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_THISFILE,qbs*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_FIND,qbs*_SUB_CREATEANDROIDPROJECT_REPLACEINFILE_STRING_REPLACEWITH); -qbs* FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME(qbs*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_STRING_A,int32*_FUNC_CREATEANDROIDPROJECT_ESCAPEFILENAME_LONG_METHOD); -qbs* FUNC_CREATEANDROIDPROJECT_FINDFILE(qbs*_FUNC_CREATEANDROIDPROJECT_FINDFILE_STRING_THISFILE); -qbs* FUNC_CREATEANDROIDPROJECT_GETNDKPATH(); -qbs* FUNC_CREATEANDROIDPROJECT_GETSDKPATH(); -qbs* FUNC_CREATEANDROIDPROJECT_GETGRADLEPATH(); -void SUB_CREATEANDROIDPROJECT_MESSAGE(qbs*_SUB_CREATEANDROIDPROJECT_MESSAGE_STRING_MESSAGE); -void SUB_CREATEANDROIDPROJECT_RESTOREFILE(qbs*_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_FILE,qbs*_SUB_CREATEANDROIDPROJECT_RESTOREFILE_STRING_PROJECTFOLDER); -qbs* FUNC_CREATEANDROIDPROJECT_PATHREFERENCE(qbs*_FUNC_CREATEANDROIDPROJECT_PATHREFERENCE_STRING_PATH); -void SUB_CREATEANDROIDPROJECT_ADDDIR(qbs*_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_CODE,qbs*_SUB_CREATEANDROIDPROJECT_ADDDIR_STRING_DIR); -void SUB_CREATEANDROIDPROJECT_ADDFILE(qbs*_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_CODE,qbs*_SUB_CREATEANDROIDPROJECT_ADDFILE_STRING_FILE); -void SUB_CREATEANDROIDPROJECT(qbs*_SUB_CREATEANDROIDPROJECT_STRING_PROJECTNAME2); +void SUB_INICOMMIT(); +qbs* FUNC_INIGETSECTION(qbs*_FUNC_INIGETSECTION_STRING___SECTION); +qbs* FUNC_INIFORMATSECTION(qbs*_FUNC_INIFORMATSECTION_STRING___SECTION); +qbs* FUNC_READSETTING(qbs*_FUNC_READSETTING_STRING_FILE,qbs*_FUNC_READSETTING_STRING___SECTION,qbs*_FUNC_READSETTING_STRING___KEY); +qbs* FUNC_INICURRENTSECTION(); +void SUB_WRITESETTING(qbs*_SUB_WRITESETTING_STRING_FILE,qbs*_SUB_WRITESETTING_STRING___SECTION,qbs*_SUB_WRITESETTING_STRING___KEY,qbs*_SUB_WRITESETTING_STRING___VALUE); +void SUB_INISETADDQUOTES(int8*_SUB_INISETADDQUOTES_BYTE_STATE); +void SUB_INISETFORCERELOAD(int8*_SUB_INISETFORCERELOAD_BYTE_STATE); +void SUB_INISETALLOWBASICCOMMENTS(int8*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE); +void SUB_INISETAUTOCOMMIT(int8*_SUB_INISETAUTOCOMMIT_BYTE_STATE); +void SUB_INILOAD(qbs*_SUB_INILOAD_STRING_FILE); int32 FUNC_IDE(int32*_FUNC_IDE_LONG_IGNORE); int32 FUNC_IDE2(int32*_FUNC_IDE2_LONG_IGNORE); +void SUB_UPDATETITLEOFMAINWINDOW(); +void SUB_DEBUGMODE(); +float FUNC_MAP(float*_FUNC_MAP_SINGLE_VALUE,float*_FUNC_MAP_SINGLE_MINRANGE,float*_FUNC_MAP_SINGLE_MAXRANGE,float*_FUNC_MAP_SINGLE_NEWMINRANGE,float*_FUNC_MAP_SINGLE_NEWMAXRANGE); +void SUB_SHOWVWATCHPANEL(void*_SUB_SHOWVWATCHPANEL_UDT_THIS,qbs*_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE,int8*_SUB_SHOWVWATCHPANEL_BYTE_ACTION); +int32 FUNC_MULTISEARCH(qbs*_FUNC_MULTISEARCH_STRING___FULLTEXT,qbs*_FUNC_MULTISEARCH_STRING___SEARCHSTRING); +qbs* FUNC_IDEVARIABLEWATCHBOX(qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE,qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION); +qbs* FUNC_IDEELEMENTWATCHBOX(qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_OK); +qbs* FUNC_FORMATRANGE(qbs*_FUNC_FORMATRANGE_STRING___TEXT); +qbs* FUNC_EXPANDARRAY(qbs*_FUNC_EXPANDARRAY_STRING___INDEXES,qbs*_FUNC_EXPANDARRAY_STRING___PATH); +qbs* FUNC_PARSERANGE(qbs*_FUNC_PARSERANGE_STRING___TEXT); +int32 FUNC_IDECALLSTACKBOX(); void SUB_IDEBOX(int32*_SUB_IDEBOX_LONG_X,int32*_SUB_IDEBOX_LONG_Y,int32*_SUB_IDEBOX_LONG_W,int32*_SUB_IDEBOX_LONG_H); void SUB_IDEBOXSHADOW(int32*_SUB_IDEBOXSHADOW_LONG_X,int32*_SUB_IDEBOXSHADOW_LONG_Y,int32*_SUB_IDEBOXSHADOW_LONG_W,int32*_SUB_IDEBOXSHADOW_LONG_H); qbs* FUNC_IDECHANGE(); -void SUB_IDECHANGED(); +void SUB_FINDQUOTECOMMENT(qbs*_SUB_FINDQUOTECOMMENT_STRING_TEXT,int32*_SUB_FINDQUOTECOMMENT_LONG___CURSOR,int8*_SUB_FINDQUOTECOMMENT_BYTE_C,int8*_SUB_FINDQUOTECOMMENT_BYTE_Q); +void SUB_IDECHANGED(int32*_SUB_IDECHANGED_LONG_TOTALCHANGES); qbs* FUNC_IDECHANGEIT(); void SUB_IDEDELLINE(int32*_SUB_IDEDELLINE_LONG_I); void SUB_IDEDELTXT(); void SUB_IDEDRAWOBJ(void*_SUB_IDEDRAWOBJ_UDT_O,int32*_SUB_IDEDRAWOBJ_LONG_F); void SUB_IDEDRAWPAR(void*_SUB_IDEDRAWPAR_UDT_P); -void SUB_IDEERRORMESSAGE(qbs*_SUB_IDEERRORMESSAGE_STRING_MESS); -qbs* FUNC_IDEFILEEXISTS(); +qbs* FUNC_IDEFILEEXISTS(qbs*_FUNC_IDEFILEEXISTS_STRING_F); qbs* FUNC_IDEFIND(); -void SUB_IDEFINDAGAIN(); +void SUB_IDEFINDAGAIN(int8*_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); qbs* FUNC_IDEGETLINE(int32*_FUNC_IDEGETLINE_LONG_I); +void SUB_IDECENTERCURRENTLINE(); void SUB_IDEGOTOLINE(int32*_SUB_IDEGOTOLINE_LONG_I); int32 FUNC_IDEHBAR(int32*_FUNC_IDEHBAR_LONG_X,int32*_FUNC_IDEHBAR_LONG_Y,int32*_FUNC_IDEHBAR_LONG_H,int32*_FUNC_IDEHBAR_LONG_I2,int32*_FUNC_IDEHBAR_LONG_N2); int32 FUNC_IDEHLEN(qbs*_FUNC_IDEHLEN_STRING_A); void SUB_IDEHPRINT(qbs*_SUB_IDEHPRINT_STRING_A); void SUB_IDEINSLINE(int32*_SUB_IDEINSLINE_LONG_I,qbs*_SUB_IDEINSLINE_STRING_TEXT); +qbs* FUNC_IDEINPUTBOX(qbs*_FUNC_IDEINPUTBOX_STRING_TITLE,qbs*_FUNC_IDEINPUTBOX_STRING_CAPTION,qbs*_FUNC_IDEINPUTBOX_STRING_INITIALVALUE,qbs*_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,int32*_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,int32*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH,int32*_FUNC_IDEINPUTBOX_LONG_OK); void SUB_IDENEWSF(qbs*_SUB_IDENEWSF_STRING_SF); +qbs* FUNC_IDENEWFOLDER(qbs*_FUNC_IDENEWFOLDER_STRING_THISPATH); int32 FUNC_IDENEWTXT(qbs*_FUNC_IDENEWTXT_STRING_A); -void SUB_IDENOMATCH(); -qbs* FUNC_IDEOPEN(); +void SUB_IDENOMATCH(int8*_SUB_IDENOMATCH_BYTE_SHOWFLAGS); +qbs* FUNC_IDEFILEDIALOG(qbs*_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME,int8*_FUNC_IDEFILEDIALOG_BYTE_MODE); void SUB_IDEPAR(void*_SUB_IDEPAR_UDT_PAR,int32*_SUB_IDEPAR_LONG_W,int32*_SUB_IDEPAR_LONG_H,qbs*_SUB_IDEPAR_STRING_TITLE); qbs* FUNC_IDERESTORE(); qbs* FUNC_IDECLEARHISTORY(qbs*_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY); void SUB_IDESAVE(qbs*_SUB_IDESAVE_STRING_F); -qbs* FUNC_IDESAVEAS(qbs*_FUNC_IDESAVEAS_STRING_PROGRAMNAME); qbs* FUNC_IDESAVENOW(); void SUB_IDESETLINE(int32*_SUB_IDESETLINE_LONG_I,qbs*_SUB_IDESETLINE_STRING_TEXT); +float FUNC_TIMEELAPSEDSINCE(float*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME); void SUB_IDESHOWTEXT(); qbs* FUNC_IDESUBS(); int32 FUNC_IDELANGUAGEBOX(); @@ -165,29 +181,29 @@ int32 FUNC_IDEWARNINGBOX(); void SUB_IDEOBJUPDATE(void*_SUB_IDEOBJUPDATE_UDT_O,int32*_SUB_IDEOBJUPDATE_LONG_FOCUS,int32*_SUB_IDEOBJUPDATE_LONG_F,int32*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET,qbs*_SUB_IDEOBJUPDATE_STRING_KK,qbs*_SUB_IDEOBJUPDATE_STRING_ALTLETTER,int32*_SUB_IDEOBJUPDATE_LONG_MB,int32*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN,int32*_SUB_IDEOBJUPDATE_LONG_MOUSEUP,int32*_SUB_IDEOBJUPDATE_LONG_MX,int32*_SUB_IDEOBJUPDATE_LONG_MY,int32*_SUB_IDEOBJUPDATE_LONG_INFO,int32*_SUB_IDEOBJUPDATE_LONG_MW); int32 FUNC_IDEVBAR(int32*_FUNC_IDEVBAR_LONG_X,int32*_FUNC_IDEVBAR_LONG_Y,int32*_FUNC_IDEVBAR_LONG_H,int32*_FUNC_IDEVBAR_LONG_I2,int32*_FUNC_IDEVBAR_LONG_N2); void SUB_IDEWAIT(); -void SUB_IDEWAIT4ALT(); -void SUB_IDEWAIT4MOUS(); qbs* FUNC_IDEZCHANGEPATH(qbs*_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs*_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); -qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD); +qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD,qbs*_FUNC_IDEZFILELIST_STRING_MASK); qbs* FUNC_IDEZGETROOT(); qbs* FUNC_IDEZPATHLIST(qbs*_FUNC_IDEZPATHLIST_STRING_PATH); qbs* FUNC_IDEZTAKEPATH(qbs*_FUNC_IDEZTAKEPATH_STRING_F); qbs* FUNC_IDEZGETFILEPATH(qbs*_FUNC_IDEZGETFILEPATH_STRING_ROOT,qbs*_FUNC_IDEZGETFILEPATH_STRING_F); -void SUB_INITMOUSE(); int32 FUNC_IDELAYOUTBOX(); int32 FUNC_IDEBACKUPBOX(); -int32 FUNC_IDEMODIFYCOMMANDBOX(); -int32 FUNC_IDEGOTOBOX(); +void SUB_IDEGOTOBOX(); +void SUB_IDESETTCPPORTBOX(); +int32 FUNC_IDEGETLINENUMBERBOX(qbs*_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,int32*_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE); int32 FUNC_IDEADVANCEDBOX(); -void SUB_IDEMESSAGEBOX(qbs*_SUB_IDEMESSAGEBOX_STRING_TITLESTR,qbs*_SUB_IDEMESSAGEBOX_STRING_MESSAGESTR); +int32 FUNC_IDEMESSAGEBOX(qbs*_FUNC_IDEMESSAGEBOX_STRING_TITLESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_BUTTONS); qbs* FUNC_IDEYESNOBOX(qbs*_FUNC_IDEYESNOBOX_STRING_TITLESTR,qbs*_FUNC_IDEYESNOBOX_STRING_MESSAGESTR); +qbs* FUNC_IDEACTIVITYBOX(qbs*_FUNC_IDEACTIVITYBOX_STRING_ACTION,qbs*_FUNC_IDEACTIVITYBOX_STRING_TITLESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_BUTTONS); int32 FUNC_IDEDISPLAYBOX(); int32 FUNC_IDECHOOSECOLORSBOX(); -qbs* FUNC_IDECOLORPICKER(int32*_FUNC_IDECOLORPICKER_LONG_EDITING); +qbs* FUNC_IDERGBMIXER(int32*_FUNC_IDERGBMIXER_LONG_EDITING); int32 FUNC_COUNTITEMS(qbs*_FUNC_COUNTITEMS_STRING_SEARCHSTRING,qbs*_FUNC_COUNTITEMS_STRING_ITEM); void SUB_IDERESTRICT417(int32*_SUB_IDERESTRICT417_LONG_P417); int32 FUNC_CTRL2(); void SUB_GETINPUT(); +void SUB_CLEARMOUSE(); void SUB_HELP_SHOWTEXT(); qbs* FUNC_IDESEARCHEDBOX(); void SUB_IDEIMPORTBOOKMARKS(qbs*_SUB_IDEIMPORTBOOKMARKS_STRING_F2); @@ -197,20 +213,31 @@ void SUB_IDEMAKEFILEMENU(); void SUB_IDEMAKECONTEXTUALMENU(); void SUB_IDEMAKEEDITMENU(); void SUB_IDEADDRECENT(qbs*_SUB_IDEADDRECENT_STRING_F2); +qbs* FUNC_REMOVEDOUBLESLASHES(qbs*_FUNC_REMOVEDOUBLESLASHES_STRING_F); void SUB_IDEADDSEARCHED(qbs*_SUB_IDEADDSEARCHED_STRING_S2); -void SUB_IDEASCIIBOX(); +void SUB_IDEUPDATEHELPBOX(); +qbs* FUNC_IDEASCIIBOX(int32*_FUNC_IDEASCIIBOX_LONG_RELAUNCH); qbs* FUNC_IDEF1BOX(qbs*_FUNC_IDEF1BOX_STRING_LNKS,int32*_FUNC_IDEF1BOX_LONG_LNKS); -void SUB_MATHBOX(); void SUB_SORT(ptrszint*_SUB_SORT_ARRAY_STRING998_ARR); qbs* FUNC_FINDPROPOSEDTITLE(); qbs* FUNC_FINDCURRENTSF(int32*_FUNC_FINDCURRENTSF_LONG_WHICHLINE); -void SUB_ADDQUICKNAVHISTORY(int32*_SUB_ADDQUICKNAVHISTORY_LONG_LINENUMBER); +void SUB_ADDQUICKNAVHISTORY(); void SUB_UPDATEIDEINFO(); +void SUB_UPDATEMENUHELPLINE(qbs*_SUB_UPDATEMENUHELPLINE_STRING_A); int32 FUNC_DARKENFGBG(int8*_FUNC_DARKENFGBG_BYTE_ACTION); void SUB_HIDEBRACKETHIGHLIGHT(); void SUB_LOADCOLORSCHEMES(); int16 FUNC_BINARYFORMATCHECK(qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK); qbs* FUNC_REMOVESYMBOL2(qbs*_FUNC_REMOVESYMBOL2_STRING_VARNAME); +void SUB_CLEANSUBNAME(qbs*_SUB_CLEANSUBNAME_STRING_N); +void SUB_CLEARSTATUSWINDOW(int32*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE); +void SUB_SETSTATUSMESSAGE(int32*_SUB_SETSTATUSMESSAGE_LONG_ROW,qbs*_SUB_SETSTATUSMESSAGE_STRING_TEXT,int32*_SUB_SETSTATUSMESSAGE_LONG_FG); +qbs* FUNC_GETWORDATCURSOR(); +qbs* FUNC_GETSELECTEDTEXT(int8*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE); +void SUB_DELSELECT(); +void SUB_INSERTATCURSOR(qbs*_SUB_INSERTATCURSOR_STRING_TEMPK); +qbs* FUNC_FINDHELPTOPIC(qbs*_FUNC_FINDHELPTOPIC_STRING_TOPIC,int32*_FUNC_FINDHELPTOPIC_LONG_LNKS,int8*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY); +int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING___A); qbs* FUNC_BACK2BACKNAME(qbs*_FUNC_BACK2BACKNAME_STRING_A); qbs* FUNC_WIKI(qbs*_FUNC_WIKI_STRING_PAGENAME); void SUB_HELP_ADDTXT(qbs*_SUB_HELP_ADDTXT_STRING_T,int32*_SUB_HELP_ADDTXT_LONG_COL,int32*_SUB_HELP_ADDTXT_LONG_LINK); @@ -218,4 +245,9 @@ void SUB_HELP_NEWLINE(); void SUB_HELP_PREVIEW(); int32 FUNC_HELP_COL(); void SUB_WIKIPARSE(qbs*_SUB_WIKIPARSE_STRING_A); -void SUB_VKUPDATE(); +qbs* FUNC_WIKIGETLINE(qbs*_FUNC_WIKIGETLINE_STRING_A,int32*_FUNC_WIKIGETLINE_LONG_I); +qbs* FUNC_WIKIGETUNTIL(qbs*_FUNC_WIKIGETUNTIL_STRING_A,int32*_FUNC_WIKIGETUNTIL_LONG_I,qbs*_FUNC_WIKIGETUNTIL_STRING_SEPARATOR); +void SUB_PURGEPRECOMPILEDCONTENT(); +void SUB_PRINTWRAPSTATUS(int16*_SUB_PRINTWRAPSTATUS_INTEGER_X,int16*_SUB_PRINTWRAPSTATUS_INTEGER_Y,int16*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,qbs*_SUB_PRINTWRAPSTATUS_STRING___TEXT); +qbs* FUNC_GETBYTES(qbs*_FUNC_GETBYTES_STRING___VALUE,int32*_FUNC_GETBYTES_LONG_NUMBEROFBYTES); +void SUB_VWATCH(); diff --git a/internal/source/regsf_ignore.txt b/internal/source/regsf_ignore.txt index 962a65191..6e79c3758 100644 --- a/internal/source/regsf_ignore.txt +++ b/internal/source/regsf_ignore.txt @@ -1 +1 @@ -int32 getpid(); +int32 logical_drives(); diff --git a/internal/source/ret0.txt b/internal/source/ret0.txt index a66a77b72..56782b093 100644 --- a/internal/source/ret0.txt +++ b/internal/source/ret0.txt @@ -16,6 +16,9 @@ break; case 4: goto RETURN_4; break; +case 5: +goto RETURN_5; +break; } } error(3); diff --git a/internal/source/ret110.txt b/internal/source/ret110.txt index fc576ac80..6ea8f337f 100644 --- a/internal/source/ret110.txt +++ b/internal/source/ret110.txt @@ -4,6 +4,12 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 6: +goto RETURN_6; +break; +case 7: +goto RETURN_7; +break; } } error(3); diff --git a/internal/source/ret130.txt b/internal/source/ret130.txt index f39e495ac..fc576ac80 100644 --- a/internal/source/ret130.txt +++ b/internal/source/ret130.txt @@ -4,126 +4,6 @@ switch(return_point[next_return_point]){ case 0: error(3); break; -case 5: -goto RETURN_5; -break; -case 6: -goto RETURN_6; -break; -case 7: -goto RETURN_7; -break; -case 8: -goto RETURN_8; -break; -case 9: -goto RETURN_9; -break; -case 10: -goto RETURN_10; -break; -case 11: -goto RETURN_11; -break; -case 12: -goto RETURN_12; -break; -case 13: -goto RETURN_13; -break; -case 14: -goto RETURN_14; -break; -case 15: -goto RETURN_15; -break; -case 16: -goto RETURN_16; -break; -case 17: -goto RETURN_17; -break; -case 18: -goto RETURN_18; -break; -case 19: -goto RETURN_19; -break; -case 20: -goto RETURN_20; -break; -case 21: -goto RETURN_21; -break; -case 22: -goto RETURN_22; -break; -case 23: -goto RETURN_23; -break; -case 24: -goto RETURN_24; -break; -case 25: -goto RETURN_25; -break; -case 26: -goto RETURN_26; -break; -case 27: -goto RETURN_27; -break; -case 28: -goto RETURN_28; -break; -case 29: -goto RETURN_29; -break; -case 30: -goto RETURN_30; -break; -case 31: -goto RETURN_31; -break; -case 32: -goto RETURN_32; -break; -case 33: -goto RETURN_33; -break; -case 34: -goto RETURN_34; -break; -case 35: -goto RETURN_35; -break; -case 36: -goto RETURN_36; -break; -case 37: -goto RETURN_37; -break; -case 38: -goto RETURN_38; -break; -case 39: -goto RETURN_39; -break; -case 40: -goto RETURN_40; -break; -case 41: -goto RETURN_41; -break; -case 42: -goto RETURN_42; -break; -case 43: -goto RETURN_43; -break; -case 44: -goto RETURN_44; -break; } } error(3); diff --git a/internal/source/ret132.txt b/internal/source/ret132.txt index fc576ac80..09214375e 100644 --- a/internal/source/ret132.txt +++ b/internal/source/ret132.txt @@ -4,6 +4,138 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 8: +goto RETURN_8; +break; +case 9: +goto RETURN_9; +break; +case 10: +goto RETURN_10; +break; +case 11: +goto RETURN_11; +break; +case 12: +goto RETURN_12; +break; +case 13: +goto RETURN_13; +break; +case 14: +goto RETURN_14; +break; +case 15: +goto RETURN_15; +break; +case 16: +goto RETURN_16; +break; +case 17: +goto RETURN_17; +break; +case 18: +goto RETURN_18; +break; +case 19: +goto RETURN_19; +break; +case 20: +goto RETURN_20; +break; +case 21: +goto RETURN_21; +break; +case 22: +goto RETURN_22; +break; +case 23: +goto RETURN_23; +break; +case 24: +goto RETURN_24; +break; +case 25: +goto RETURN_25; +break; +case 26: +goto RETURN_26; +break; +case 27: +goto RETURN_27; +break; +case 28: +goto RETURN_28; +break; +case 29: +goto RETURN_29; +break; +case 30: +goto RETURN_30; +break; +case 31: +goto RETURN_31; +break; +case 32: +goto RETURN_32; +break; +case 33: +goto RETURN_33; +break; +case 34: +goto RETURN_34; +break; +case 35: +goto RETURN_35; +break; +case 36: +goto RETURN_36; +break; +case 37: +goto RETURN_37; +break; +case 38: +goto RETURN_38; +break; +case 39: +goto RETURN_39; +break; +case 40: +goto RETURN_40; +break; +case 41: +goto RETURN_41; +break; +case 42: +goto RETURN_42; +break; +case 43: +goto RETURN_43; +break; +case 44: +goto RETURN_44; +break; +case 45: +goto RETURN_45; +break; +case 46: +goto RETURN_46; +break; +case 47: +goto RETURN_47; +break; +case 48: +goto RETURN_48; +break; +case 49: +goto RETURN_49; +break; +case 50: +goto RETURN_50; +break; +case 51: +goto RETURN_51; +break; } } error(3); diff --git a/internal/source/ret134.txt b/internal/source/ret134.txt index fc576ac80..d7adf75e8 100644 --- a/internal/source/ret134.txt +++ b/internal/source/ret134.txt @@ -4,6 +4,267 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 52: +goto RETURN_52; +break; +case 53: +goto RETURN_53; +break; +case 54: +goto RETURN_54; +break; +case 55: +goto RETURN_55; +break; +case 56: +goto RETURN_56; +break; +case 57: +goto RETURN_57; +break; +case 58: +goto RETURN_58; +break; +case 59: +goto RETURN_59; +break; +case 60: +goto RETURN_60; +break; +case 61: +goto RETURN_61; +break; +case 62: +goto RETURN_62; +break; +case 63: +goto RETURN_63; +break; +case 64: +goto RETURN_64; +break; +case 65: +goto RETURN_65; +break; +case 66: +goto RETURN_66; +break; +case 67: +goto RETURN_67; +break; +case 68: +goto RETURN_68; +break; +case 69: +goto RETURN_69; +break; +case 70: +goto RETURN_70; +break; +case 71: +goto RETURN_71; +break; +case 72: +goto RETURN_72; +break; +case 73: +goto RETURN_73; +break; +case 74: +goto RETURN_74; +break; +case 75: +goto RETURN_75; +break; +case 76: +goto RETURN_76; +break; +case 77: +goto RETURN_77; +break; +case 78: +goto RETURN_78; +break; +case 79: +goto RETURN_79; +break; +case 80: +goto RETURN_80; +break; +case 81: +goto RETURN_81; +break; +case 82: +goto RETURN_82; +break; +case 83: +goto RETURN_83; +break; +case 84: +goto RETURN_84; +break; +case 85: +goto RETURN_85; +break; +case 86: +goto RETURN_86; +break; +case 87: +goto RETURN_87; +break; +case 88: +goto RETURN_88; +break; +case 89: +goto RETURN_89; +break; +case 90: +goto RETURN_90; +break; +case 91: +goto RETURN_91; +break; +case 92: +goto RETURN_92; +break; +case 93: +goto RETURN_93; +break; +case 94: +goto RETURN_94; +break; +case 95: +goto RETURN_95; +break; +case 96: +goto RETURN_96; +break; +case 97: +goto RETURN_97; +break; +case 98: +goto RETURN_98; +break; +case 99: +goto RETURN_99; +break; +case 100: +goto RETURN_100; +break; +case 101: +goto RETURN_101; +break; +case 102: +goto RETURN_102; +break; +case 103: +goto RETURN_103; +break; +case 104: +goto RETURN_104; +break; +case 105: +goto RETURN_105; +break; +case 106: +goto RETURN_106; +break; +case 107: +goto RETURN_107; +break; +case 108: +goto RETURN_108; +break; +case 109: +goto RETURN_109; +break; +case 110: +goto RETURN_110; +break; +case 111: +goto RETURN_111; +break; +case 112: +goto RETURN_112; +break; +case 113: +goto RETURN_113; +break; +case 114: +goto RETURN_114; +break; +case 115: +goto RETURN_115; +break; +case 116: +goto RETURN_116; +break; +case 117: +goto RETURN_117; +break; +case 118: +goto RETURN_118; +break; +case 119: +goto RETURN_119; +break; +case 120: +goto RETURN_120; +break; +case 121: +goto RETURN_121; +break; +case 122: +goto RETURN_122; +break; +case 123: +goto RETURN_123; +break; +case 124: +goto RETURN_124; +break; +case 125: +goto RETURN_125; +break; +case 126: +goto RETURN_126; +break; +case 127: +goto RETURN_127; +break; +case 128: +goto RETURN_128; +break; +case 129: +goto RETURN_129; +break; +case 130: +goto RETURN_130; +break; +case 131: +goto RETURN_131; +break; +case 132: +goto RETURN_132; +break; +case 133: +goto RETURN_133; +break; +case 134: +goto RETURN_134; +break; +case 135: +goto RETURN_135; +break; +case 136: +goto RETURN_136; +break; +case 137: +goto RETURN_137; +break; +case 138: +goto RETURN_138; +break; } } error(3); diff --git a/internal/source/ret138.txt b/internal/source/ret138.txt index fc576ac80..73cb5286c 100644 --- a/internal/source/ret138.txt +++ b/internal/source/ret138.txt @@ -4,6 +4,30 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 139: +goto RETURN_139; +break; +case 140: +goto RETURN_140; +break; +case 141: +goto RETURN_141; +break; +case 142: +goto RETURN_142; +break; +case 143: +goto RETURN_143; +break; +case 144: +goto RETURN_144; +break; +case 145: +goto RETURN_145; +break; +case 146: +goto RETURN_146; +break; } } error(3); diff --git a/internal/source/ret139.txt b/internal/source/ret139.txt index fc576ac80..238d554ce 100644 --- a/internal/source/ret139.txt +++ b/internal/source/ret139.txt @@ -4,6 +4,15 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 147: +goto RETURN_147; +break; +case 148: +goto RETURN_148; +break; +case 149: +goto RETURN_149; +break; } } error(3); diff --git a/internal/source/ret142.txt b/internal/source/ret142.txt index fc576ac80..6d861f94a 100644 --- a/internal/source/ret142.txt +++ b/internal/source/ret142.txt @@ -4,6 +4,15 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 150: +goto RETURN_150; +break; +case 151: +goto RETURN_151; +break; +case 152: +goto RETURN_152; +break; } } error(3); diff --git a/internal/source/ret146.txt b/internal/source/ret146.txt index fc576ac80..4ff63d1fb 100644 --- a/internal/source/ret146.txt +++ b/internal/source/ret146.txt @@ -4,6 +4,12 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 153: +goto RETURN_153; +break; +case 154: +goto RETURN_154; +break; } } error(3); diff --git a/internal/source/ret161.txt b/internal/source/ret161.txt index fb79f9178..fc576ac80 100644 --- a/internal/source/ret161.txt +++ b/internal/source/ret161.txt @@ -4,24 +4,6 @@ switch(return_point[next_return_point]){ case 0: error(3); break; -case 45: -goto RETURN_45; -break; -case 46: -goto RETURN_46; -break; -case 47: -goto RETURN_47; -break; -case 48: -goto RETURN_48; -break; -case 49: -goto RETURN_49; -break; -case 50: -goto RETURN_50; -break; } } error(3); diff --git a/internal/source/ret162.txt b/internal/source/ret162.txt index 9602a534f..fc576ac80 100644 --- a/internal/source/ret162.txt +++ b/internal/source/ret162.txt @@ -4,12 +4,6 @@ switch(return_point[next_return_point]){ case 0: error(3); break; -case 51: -goto RETURN_51; -break; -case 52: -goto RETURN_52; -break; } } error(3); diff --git a/internal/source/ret165.txt b/internal/source/ret165.txt index 7e3538243..fc576ac80 100644 --- a/internal/source/ret165.txt +++ b/internal/source/ret165.txt @@ -4,18 +4,6 @@ switch(return_point[next_return_point]){ case 0: error(3); break; -case 53: -goto RETURN_53; -break; -case 54: -goto RETURN_54; -break; -case 55: -goto RETURN_55; -break; -case 56: -goto RETURN_56; -break; } } error(3); diff --git a/internal/source/ret177.txt b/internal/source/ret177.txt index fc576ac80..ca83dbae6 100644 --- a/internal/source/ret177.txt +++ b/internal/source/ret177.txt @@ -4,6 +4,12 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 155: +goto RETURN_155; +break; +case 156: +goto RETURN_156; +break; } } error(3); diff --git a/internal/source/ret178.txt b/internal/source/ret178.txt index fc576ac80..44e8f1bec 100644 --- a/internal/source/ret178.txt +++ b/internal/source/ret178.txt @@ -4,6 +4,21 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 157: +goto RETURN_157; +break; +case 158: +goto RETURN_158; +break; +case 159: +goto RETURN_159; +break; +case 160: +goto RETURN_160; +break; +case 161: +goto RETURN_161; +break; } } error(3); diff --git a/internal/source/ret181.txt b/internal/source/ret181.txt index fc576ac80..652c11e8c 100644 --- a/internal/source/ret181.txt +++ b/internal/source/ret181.txt @@ -4,6 +4,18 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 162: +goto RETURN_162; +break; +case 163: +goto RETURN_163; +break; +case 164: +goto RETURN_164; +break; +case 165: +goto RETURN_165; +break; } } error(3); diff --git a/internal/source/ret185.txt b/internal/source/ret185.txt index ceeaa20d6..703bfbd10 100644 --- a/internal/source/ret185.txt +++ b/internal/source/ret185.txt @@ -4,23 +4,14 @@ switch(return_point[next_return_point]){ case 0: error(3); break; -case 57: -goto RETURN_57; +case 166: +goto RETURN_166; break; -case 58: -goto RETURN_58; +case 167: +goto RETURN_167; break; -case 59: -goto RETURN_59; -break; -case 60: -goto RETURN_60; -break; -case 61: -goto RETURN_61; -break; -case 62: -goto RETURN_62; +case 168: +goto RETURN_168; break; } } diff --git a/internal/source/ret200.txt b/internal/source/ret200.txt index fc576ac80..71e073e38 100644 --- a/internal/source/ret200.txt +++ b/internal/source/ret200.txt @@ -4,6 +4,30 @@ switch(return_point[next_return_point]){ case 0: error(3); break; +case 169: +goto RETURN_169; +break; +case 170: +goto RETURN_170; +break; +case 171: +goto RETURN_171; +break; +case 172: +goto RETURN_172; +break; +case 173: +goto RETURN_173; +break; +case 174: +goto RETURN_174; +break; +case 175: +goto RETURN_175; +break; +case 176: +goto RETURN_176; +break; } } error(3); diff --git a/internal/source/ret222.txt b/internal/source/ret222.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret222.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret223.txt b/internal/source/ret223.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret223.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret224.txt b/internal/source/ret224.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret224.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret225.txt b/internal/source/ret225.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret225.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret226.txt b/internal/source/ret226.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret226.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret227.txt b/internal/source/ret227.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret227.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret228.txt b/internal/source/ret228.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret228.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret229.txt b/internal/source/ret229.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret229.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret230.txt b/internal/source/ret230.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret230.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret231.txt b/internal/source/ret231.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret231.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret232.txt b/internal/source/ret232.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret232.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret233.txt b/internal/source/ret233.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret233.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret234.txt b/internal/source/ret234.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret234.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret235.txt b/internal/source/ret235.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret235.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret236.txt b/internal/source/ret236.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret236.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret237.txt b/internal/source/ret237.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret237.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret238.txt b/internal/source/ret238.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret238.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret239.txt b/internal/source/ret239.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret239.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret240.txt b/internal/source/ret240.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret240.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret241.txt b/internal/source/ret241.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret241.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret242.txt b/internal/source/ret242.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret242.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret243.txt b/internal/source/ret243.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret243.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret244.txt b/internal/source/ret244.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret244.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret245.txt b/internal/source/ret245.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret245.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret246.txt b/internal/source/ret246.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret246.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret247.txt b/internal/source/ret247.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret247.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret248.txt b/internal/source/ret248.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret248.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret249.txt b/internal/source/ret249.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret249.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret250.txt b/internal/source/ret250.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret250.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret251.txt b/internal/source/ret251.txt new file mode 100644 index 000000000..8b548a1da --- /dev/null +++ b/internal/source/ret251.txt @@ -0,0 +1,15 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +case 177: +goto RETURN_177; +break; +case 178: +goto RETURN_178; +break; +} +} +error(3); diff --git a/internal/source/ret252.txt b/internal/source/ret252.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret252.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret253.txt b/internal/source/ret253.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret253.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret254.txt b/internal/source/ret254.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret254.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/source/ret255.txt b/internal/source/ret255.txt new file mode 100644 index 000000000..fc576ac80 --- /dev/null +++ b/internal/source/ret255.txt @@ -0,0 +1,9 @@ +if (next_return_point){ +next_return_point--; +switch(return_point[next_return_point]){ +case 0: +error(3); +break; +} +} +error(3); diff --git a/internal/support/color/color0.bi b/internal/support/color/color0.bi new file mode 100644 index 000000000..d57de4ee5 --- /dev/null +++ b/internal/support/color/color0.bi @@ -0,0 +1,20 @@ +'$COLOR:0 +'Color constants for text mode. +CONST Black~%% = 0 +CONST Blue~%% = 1 +CONST Green~%% = 2 +CONST Cyan~%% = 3 +CONST Red~%% = 4 +CONST Magenta~%% = 5 +CONST Brown~%% = 6 +CONST White~%% = 7 +CONST Gray~%% = 8 +CONST LightBlue~%% = 9 +CONST LightGreen~%% = 10 +CONST LightCyan~%% = 11 +CONST LightRed~%% = 12 +CONST LightMagenta~%% = 13 +CONST Yellow~%% = 14 +CONST BrightWhite~%% = 15 +CONST Blink~%% = 16 + diff --git a/internal/support/color/color0_noprefix.bi b/internal/support/color/color0_noprefix.bi new file mode 100644 index 000000000..eabbd181e --- /dev/null +++ b/internal/support/color/color0_noprefix.bi @@ -0,0 +1,19 @@ +'$COLOR:0 +'Color constants for text mode, when using $NOPREFIX +CONST C_Black~%% = 0 +CONST C_Blue~%% = 1 +CONST C_Green~%% = 2 +CONST C_Cyan~%% = 3 +CONST C_Red~%% = 4 +CONST C_Magenta~%% = 5 +CONST C_Brown~%% = 6 +CONST C_White~%% = 7 +CONST C_Gray~%% = 8 +CONST C_LightBlue~%% = 9 +CONST C_LightGreen~%% = 10 +CONST C_LightCyan~%% = 11 +CONST C_LightRed~%% = 12 +CONST C_LightMagenta~%% = 13 +CONST C_Yellow~%% = 14 +CONST C_BrightWhite~%% = 15 +CONST C_Blink~%% = 16 diff --git a/internal/support/color/color32.bi b/internal/support/color/color32.bi new file mode 100644 index 000000000..024c3aeba --- /dev/null +++ b/internal/support/color/color32.bi @@ -0,0 +1,272 @@ +'$COLOR:32 +'Color constants for 32bit mode, based on HTML color names. +CONST AliceBlue~& = 4293982463 +CONST Almond~& = 4293910221 +CONST AntiqueBrass~& = 4291663221 +CONST AntiqueWhite~& = 4294634455 +CONST Apricot~& = 4294826421 +CONST Aqua~& = 4278255615 +CONST Aquamarine~& = 4286578644 +CONST Asparagus~& = 4287080811 +CONST AtomicTangerine~& = 4294943860 +CONST Azure~& = 4293984255 +CONST BananaMania~& = 4294633397 +CONST Beaver~& = 4288643440 +CONST Beige~& = 4294309340 +CONST Bisque~& = 4294960324 +CONST Bittersweet~& = 4294802542 +CONST Black~& = 4278190080 +CONST BlanchedAlmond~& = 4294962125 +CONST BlizzardBlue~& = 4289521134 +CONST Blue~& = 4278190335 +CONST BlueBell~& = 4288848592 +CONST BlueGray~& = 4284914124 +CONST BlueGreen~& = 4279081146 +CONST BlueViolet~& = 4287245282 +CONST Blush~& = 4292763011 +CONST BrickRed~& = 4291510612 +CONST Brown~& = 4289014314 +CONST BurlyWood~& = 4292786311 +CONST BurntOrange~& = 4294934345 +CONST BurntSienna~& = 4293557853 +CONST CadetBlue~& = 4284456608 +CONST Canary~& = 4294967193 +CONST CaribbeanGreen~& = 4280079266 +CONST CarnationPink~& = 4294945484 +CONST Cerise~& = 4292691090 +CONST Cerulean~& = 4280134870 +CONST ChartReuse~& = 4286578432 +CONST Chestnut~& = 4290534744 +CONST Chocolate~& = 4291979550 +CONST Copper~& = 4292711541 +CONST Coral~& = 4294934352 +CONST Cornflower~& = 4288335595 +CONST CornflowerBlue~& = 4284782061 +CONST Cornsilk~& = 4294965468 +CONST CottonCandy~& = 4294950105 +CONST CrayolaAquamarine~& = 4286110690 +CONST CrayolaBlue~& = 4280251902 +CONST CrayolaBlueViolet~& = 4285753021 +CONST CrayolaBrown~& = 4290013005 +CONST CrayolaCadetBlue~& = 4289771462 +CONST CrayolaForestGreen~& = 4285378177 +CONST CrayolaGold~& = 4293379735 +CONST CrayolaGoldenrod~& = 4294760821 +CONST CrayolaGray~& = 4287992204 +CONST CrayolaGreen~& = 4280069240 +CONST CrayolaGreenYellow~& = 4293978257 +CONST CrayolaIndigo~& = 4284315339 +CONST CrayolaLavender~& = 4294751445 +CONST CrayolaMagenta~& = 4294337711 +CONST CrayolaMaroon~& = 4291311706 +CONST CrayolaMidnightBlue~& = 4279912566 +CONST CrayolaOrange~& = 4294931768 +CONST CrayolaOrangeRed~& = 4294912811 +CONST CrayolaOrchid~& = 4293306583 +CONST CrayolaPlum~& = 4287513989 +CONST CrayolaRed~& = 4293795917 +CONST CrayolaSalmon~& = 4294941610 +CONST CrayolaSeaGreen~& = 4288668351 +CONST CrayolaSilver~& = 4291675586 +CONST CrayolaSkyBlue~& = 4286634731 +CONST CrayolaSpringGreen~& = 4293716670 +CONST CrayolaTann~& = 4294616940 +CONST CrayolaThistle~& = 4293642207 +CONST CrayolaViolet~& = 4287786670 +CONST CrayolaYellow~& = 4294764675 +CONST CrayolaYellowGreen~& = 4291158916 +CONST Crimson~& = 4292613180 +CONST Cyan~& = 4278255615 +CONST Dandelion~& = 4294826861 +CONST DarkBlue~& = 4278190219 +CONST DarkCyan~& = 4278225803 +CONST DarkGoldenRod~& = 4290283019 +CONST DarkGray~& = 4289309097 +CONST DarkGreen~& = 4278215680 +CONST DarkKhaki~& = 4290623339 +CONST DarkMagenta~& = 4287299723 +CONST DarkOliveGreen~& = 4283788079 +CONST DarkOrange~& = 4294937600 +CONST DarkOrchid~& = 4288230092 +CONST DarkRed~& = 4287299584 +CONST DarkSalmon~& = 4293498490 +CONST DarkSeaGreen~& = 4287609999 +CONST DarkSlateBlue~& = 4282924427 +CONST DarkSlateGray~& = 4281290575 +CONST DarkTurquoise~& = 4278243025 +CONST DarkViolet~& = 4287889619 +CONST DeepPink~& = 4294907027 +CONST DeepSkyBlue~& = 4278239231 +CONST Denim~& = 4281035972 +CONST DesertSand~& = 4293905848 +CONST DimGray~& = 4285098345 +CONST DodgerBlue~& = 4280193279 +CONST Eggplant~& = 4285419872 +CONST ElectricLime~& = 4291755805 +CONST Fern~& = 4285643896 +CONST FireBrick~& = 4289864226 +CONST Floralwhite~& = 4294966000 +CONST ForestGreen~& = 4280453922 +CONST Fuchsia~& = 4290995397 +CONST FuzzyWuzzy~& = 4291585638 +CONST Gainsboro~& = 4292664540 +CONST GhostWhite~& = 4294506751 +CONST Gold~& = 4294956800 +CONST GoldenRod~& = 4292519200 +CONST GrannySmithApple~& = 4289258656 +CONST Gray~& = 4286611584 +CONST Green~& = 4278222848 +CONST GreenBlue~& = 4279329972 +CONST GreenYellow~& = 4289593135 +CONST HoneyDew~& = 4293984240 +CONST HotMagenta~& = 4294909390 +CONST HotPink~& = 4294928820 +CONST Inchworm~& = 4289915997 +CONST IndianRed~& = 4291648604 +CONST Indigo~& = 4283105410 +CONST Ivory~& = 4294967280 +CONST JazzberryJam~& = 4291442535 +CONST JungleGreen~& = 4282101903 +CONST Khaki~& = 4293977740 +CONST LaserLemon~& = 4294901282 +CONST Lavender~& = 4293322490 +CONST LavenderBlush~& = 4294963445 +CONST LawnGreen~& = 4286381056 +CONST LemonChiffon~& = 4294965965 +CONST LemonYellow~& = 4294964303 +CONST LightBlue~& = 4289583334 +CONST LightCoral~& = 4293951616 +CONST LightCyan~& = 4292935679 +CONST LightGoldenRodYellow~& = 4294638290 +CONST LightGray~& = 4292072403 +CONST LightGreen~& = 4287688336 +CONST LightPink~& = 4294948545 +CONST LightSalmon~& = 4294942842 +CONST LightSeaGreen~& = 4280332970 +CONST LightSkyBlue~& = 4287090426 +CONST LightSlateGray~& = 4286023833 +CONST LightSteelBlue~& = 4289774814 +CONST LightYellow~& = 4294967264 +CONST Lime~& = 4278255360 +CONST LimeGreen~& = 4281519410 +CONST Linen~& = 4294635750 +CONST MacaroniAndCheese~& = 4294950280 +CONST Magenta~& = 4294902015 +CONST MagicMint~& = 4289392849 +CONST Mahogany~& = 4291643980 +CONST Maize~& = 4293775772 +CONST Manatee~& = 4288125610 +CONST MangoTango~& = 4294935107 +CONST Maroon~& = 4286578688 +CONST Mauvelous~& = 4293892266 +CONST MediumAquamarine~& = 4284927402 +CONST MediumBlue~& = 4278190285 +CONST MediumOrchid~& = 4290401747 +CONST MediumPurple~& = 4287852763 +CONST MediumSeaGreen~& = 4282168177 +CONST MediumSlateBlue~& = 4286277870 +CONST MediumSpringGreen~& = 4278254234 +CONST MediumTurquoise~& = 4282962380 +CONST MediumVioletRed~& = 4291237253 +CONST Melon~& = 4294818996 +CONST MidnightBlue~& = 4279834992 +CONST MintCream~& = 4294311930 +CONST MistyRose~& = 4294960353 +CONST Moccasin~& = 4294960309 +CONST MountainMeadow~& = 4281383567 +CONST Mulberry~& = 4291120012 +CONST NavajoWhite~& = 4294958765 +CONST Navy~& = 4278190208 +CONST NavyBlue~& = 4279858386 +CONST NeonCarrot~& = 4294943555 +CONST OldLace~& = 4294833638 +CONST Olive~& = 4286611456 +CONST OliveDrab~& = 4285238819 +CONST OliveGreen~& = 4290426988 +CONST Orange~& = 4294944000 +CONST OrangeRed~& = 4294919424 +CONST OrangeYellow~& = 4294497640 +CONST Orchid~& = 4292505814 +CONST OuterSpace~& = 4282468940 +CONST OutrageousOrange~& = 4294929994 +CONST PacificBlue~& = 4280068553 +CONST PaleGoldenRod~& = 4293847210 +CONST PaleGreen~& = 4288215960 +CONST PaleTurquoise~& = 4289720046 +CONST PaleVioletRed~& = 4292571283 +CONST PapayaWhip~& = 4294963157 +CONST Peach~& = 4294954923 +CONST PeachPuff~& = 4294957753 +CONST Periwinkle~& = 4291154150 +CONST Peru~& = 4291659071 +CONST PiggyPink~& = 4294827494 +CONST PineGreen~& = 4279599224 +CONST Pink~& = 4294951115 +CONST PinkFlamingo~& = 4294735101 +CONST PinkSherbet~& = 4294414247 +CONST Plum~& = 4292714717 +CONST PowderBlue~& = 4289781990 +CONST Purple~& = 4286578816 +CONST PurpleHeart~& = 4285809352 +CONST PurpleMountainsMajesty~& = 4288512442 +CONST PurplePizzazz~& = 4294856410 +CONST RadicalRed~& = 4294920556 +CONST RawSienna~& = 4292250201 +CONST RawUmber~& = 4285614883 +CONST RazzleDazzleRose~& = 4294920400 +CONST Razzmatazz~& = 4293076331 +CONST Red~& = 4294901760 +CONST RedOrange~& = 4294923081 +CONST RedViolet~& = 4290790543 +CONST RobinsEggBlue~& = 4280274635 +CONST RosyBrown~& = 4290547599 +CONST RoyalBlue~& = 4282477025 +CONST RoyalPurple~& = 4286075305 +CONST SaddleBrown~& = 4287317267 +CONST Salmon~& = 4294606962 +CONST SandyBrown~& = 4294222944 +CONST Scarlet~& = 4294715463 +CONST ScreaminGreen~& = 4285988730 +CONST SeaGreen~& = 4281240407 +CONST SeaShell~& = 4294964718 +CONST Sepia~& = 4289030479 +CONST Shadow~& = 4287265117 +CONST Shamrock~& = 4282764962 +CONST ShockingPink~& = 4294672125 +CONST Sienna~& = 4288696877 +CONST Silver~& = 4290822336 +CONST SkyBlue~& = 4287090411 +CONST SlateBlue~& = 4285160141 +CONST SlateGray~& = 4285563024 +CONST Snow~& = 4294966010 +CONST SpringGreen~& = 4278255487 +CONST SteelBlue~& = 4282811060 +CONST Sunglow~& = 4294954824 +CONST SunsetOrange~& = 4294794835 +CONST Tann~& = 4291998860 +CONST Teal~& = 4278222976 +CONST TealBlue~& = 4279805877 +CONST Thistle~& = 4292394968 +CONST TickleMePink~& = 4294740396 +CONST Timberwolf~& = 4292597714 +CONST Tomato~& = 4294927175 +CONST TropicalRainForest~& = 4279730285 +CONST Tumbleweed~& = 4292782728 +CONST Turquoise~& = 4282441936 +CONST TurquoiseBlue~& = 4286045671 +CONST UnmellowYellow~& = 4294967142 +CONST Violet~& = 4293821166 +CONST VioletBlue~& = 4281486002 +CONST VioletRed~& = 4294398868 +CONST VividTangerine~& = 4294942857 +CONST VividViolet~& = 4287582365 +CONST Wheat~& = 4294303411 +CONST White~& = 4294967295 +CONST Whitesmoke~& = 4294309365 +CONST WildBlueYonder~& = 4288851408 +CONST WildStrawberry~& = 4294919076 +CONST WildWatermelon~& = 4294732933 +CONST Wisteria~& = 4291667166 +CONST Yellow~& = 4294967040 +CONST YellowGreen~& = 4288335154 +CONST YellowOrange~& = 4294946370 diff --git a/internal/support/color/color32_noprefix.bi b/internal/support/color/color32_noprefix.bi new file mode 100644 index 000000000..071e224ad --- /dev/null +++ b/internal/support/color/color32_noprefix.bi @@ -0,0 +1,272 @@ +'$COLOR:32 +'Color constants for 32bit mode, based on HTML color names, when using $NOPREFIX +CONST C_AliceBlue~& = 4293982463 +CONST C_Almond~& = 4293910221 +CONST C_AntiqueBrass~& = 4291663221 +CONST C_AntiqueWhite~& = 4294634455 +CONST C_Apricot~& = 4294826421 +CONST C_Aqua~& = 4278255615 +CONST C_Aquamarine~& = 4286578644 +CONST C_Asparagus~& = 4287080811 +CONST C_AtomicTangerine~& = 4294943860 +CONST C_Azure~& = 4293984255 +CONST C_BananaMania~& = 4294633397 +CONST C_Beaver~& = 4288643440 +CONST C_Beige~& = 4294309340 +CONST C_Bisque~& = 4294960324 +CONST C_Bittersweet~& = 4294802542 +CONST C_Black~& = 4278190080 +CONST C_BlanchedAlmond~& = 4294962125 +CONST C_BlizzardBlue~& = 4289521134 +CONST C_Blue~& = 4278190335 +CONST C_BlueBell~& = 4288848592 +CONST C_BlueGray~& = 4284914124 +CONST C_BlueGreen~& = 4279081146 +CONST C_BlueViolet~& = 4287245282 +CONST C_Blush~& = 4292763011 +CONST C_BrickRed~& = 4291510612 +CONST C_Brown~& = 4289014314 +CONST C_BurlyWood~& = 4292786311 +CONST C_BurntOrange~& = 4294934345 +CONST C_BurntSienna~& = 4293557853 +CONST C_CadetBlue~& = 4284456608 +CONST C_Canary~& = 4294967193 +CONST C_CaribbeanGreen~& = 4280079266 +CONST C_CarnationPink~& = 4294945484 +CONST C_Cerise~& = 4292691090 +CONST C_Cerulean~& = 4280134870 +CONST C_ChartReuse~& = 4286578432 +CONST C_Chestnut~& = 4290534744 +CONST C_Chocolate~& = 4291979550 +CONST C_Copper~& = 4292711541 +CONST C_Coral~& = 4294934352 +CONST C_Cornflower~& = 4288335595 +CONST C_CornflowerBlue~& = 4284782061 +CONST C_Cornsilk~& = 4294965468 +CONST C_CottonCandy~& = 4294950105 +CONST C_CrayolaAquamarine~& = 4286110690 +CONST C_CrayolaBlue~& = 4280251902 +CONST C_CrayolaBlueViolet~& = 4285753021 +CONST C_CrayolaBrown~& = 4290013005 +CONST C_CrayolaCadetBlue~& = 4289771462 +CONST C_CrayolaForestGreen~& = 4285378177 +CONST C_CrayolaGold~& = 4293379735 +CONST C_CrayolaGoldenrod~& = 4294760821 +CONST C_CrayolaGray~& = 4287992204 +CONST C_CrayolaGreen~& = 4280069240 +CONST C_CrayolaGreenYellow~& = 4293978257 +CONST C_CrayolaIndigo~& = 4284315339 +CONST C_CrayolaLavender~& = 4294751445 +CONST C_CrayolaMagenta~& = 4294337711 +CONST C_CrayolaMaroon~& = 4291311706 +CONST C_CrayolaMidnightBlue~& = 4279912566 +CONST C_CrayolaOrange~& = 4294931768 +CONST C_CrayolaOrangeRed~& = 4294912811 +CONST C_CrayolaOrchid~& = 4293306583 +CONST C_CrayolaPlum~& = 4287513989 +CONST C_CrayolaRed~& = 4293795917 +CONST C_CrayolaSalmon~& = 4294941610 +CONST C_CrayolaSeaGreen~& = 4288668351 +CONST C_CrayolaSilver~& = 4291675586 +CONST C_CrayolaSkyBlue~& = 4286634731 +CONST C_CrayolaSpringGreen~& = 4293716670 +CONST C_CrayolaTann~& = 4294616940 +CONST C_CrayolaThistle~& = 4293642207 +CONST C_CrayolaViolet~& = 4287786670 +CONST C_CrayolaYellow~& = 4294764675 +CONST C_CrayolaYellowGreen~& = 4291158916 +CONST C_Crimson~& = 4292613180 +CONST C_Cyan~& = 4278255615 +CONST C_Dandelion~& = 4294826861 +CONST C_DarkBlue~& = 4278190219 +CONST C_DarkCyan~& = 4278225803 +CONST C_DarkGoldenRod~& = 4290283019 +CONST C_DarkGray~& = 4289309097 +CONST C_DarkGreen~& = 4278215680 +CONST C_DarkKhaki~& = 4290623339 +CONST C_DarkMagenta~& = 4287299723 +CONST C_DarkOliveGreen~& = 4283788079 +CONST C_DarkOrange~& = 4294937600 +CONST C_DarkOrchid~& = 4288230092 +CONST C_DarkRed~& = 4287299584 +CONST C_DarkSalmon~& = 4293498490 +CONST C_DarkSeaGreen~& = 4287609999 +CONST C_DarkSlateBlue~& = 4282924427 +CONST C_DarkSlateGray~& = 4281290575 +CONST C_DarkTurquoise~& = 4278243025 +CONST C_DarkViolet~& = 4287889619 +CONST C_DeepPink~& = 4294907027 +CONST C_DeepSkyBlue~& = 4278239231 +CONST C_Denim~& = 4281035972 +CONST C_DesertSand~& = 4293905848 +CONST C_DimGray~& = 4285098345 +CONST C_DodgerBlue~& = 4280193279 +CONST C_Eggplant~& = 4285419872 +CONST C_ElectricLime~& = 4291755805 +CONST C_Fern~& = 4285643896 +CONST C_FireBrick~& = 4289864226 +CONST C_Floralwhite~& = 4294966000 +CONST C_ForestGreen~& = 4280453922 +CONST C_Fuchsia~& = 4290995397 +CONST C_FuzzyWuzzy~& = 4291585638 +CONST C_Gainsboro~& = 4292664540 +CONST C_GhostWhite~& = 4294506751 +CONST C_Gold~& = 4294956800 +CONST C_GoldenRod~& = 4292519200 +CONST C_GrannySmithApple~& = 4289258656 +CONST C_Gray~& = 4286611584 +CONST C_Green~& = 4278222848 +CONST C_GreenBlue~& = 4279329972 +CONST C_GreenYellow~& = 4289593135 +CONST C_HoneyDew~& = 4293984240 +CONST C_HotMagenta~& = 4294909390 +CONST C_HotPink~& = 4294928820 +CONST C_Inchworm~& = 4289915997 +CONST C_IndianRed~& = 4291648604 +CONST C_Indigo~& = 4283105410 +CONST C_Ivory~& = 4294967280 +CONST C_JazzberryJam~& = 4291442535 +CONST C_JungleGreen~& = 4282101903 +CONST C_Khaki~& = 4293977740 +CONST C_LaserLemon~& = 4294901282 +CONST C_Lavender~& = 4293322490 +CONST C_LavenderBlush~& = 4294963445 +CONST C_LawnGreen~& = 4286381056 +CONST C_LemonChiffon~& = 4294965965 +CONST C_LemonYellow~& = 4294964303 +CONST C_LightBlue~& = 4289583334 +CONST C_LightCoral~& = 4293951616 +CONST C_LightCyan~& = 4292935679 +CONST C_LightGoldenRodYellow~& = 4294638290 +CONST C_LightGray~& = 4292072403 +CONST C_LightGreen~& = 4287688336 +CONST C_LightPink~& = 4294948545 +CONST C_LightSalmon~& = 4294942842 +CONST C_LightSeaGreen~& = 4280332970 +CONST C_LightSkyBlue~& = 4287090426 +CONST C_LightSlateGray~& = 4286023833 +CONST C_LightSteelBlue~& = 4289774814 +CONST C_LightYellow~& = 4294967264 +CONST C_Lime~& = 4278255360 +CONST C_LimeGreen~& = 4281519410 +CONST C_Linen~& = 4294635750 +CONST C_MacaroniAndCheese~& = 4294950280 +CONST C_Magenta~& = 4294902015 +CONST C_MagicMint~& = 4289392849 +CONST C_Mahogany~& = 4291643980 +CONST C_Maize~& = 4293775772 +CONST C_Manatee~& = 4288125610 +CONST C_MangoTango~& = 4294935107 +CONST C_Maroon~& = 4286578688 +CONST C_Mauvelous~& = 4293892266 +CONST C_MediumAquamarine~& = 4284927402 +CONST C_MediumBlue~& = 4278190285 +CONST C_MediumOrchid~& = 4290401747 +CONST C_MediumPurple~& = 4287852763 +CONST C_MediumSeaGreen~& = 4282168177 +CONST C_MediumSlateBlue~& = 4286277870 +CONST C_MediumSpringGreen~& = 4278254234 +CONST C_MediumTurquoise~& = 4282962380 +CONST C_MediumVioletRed~& = 4291237253 +CONST C_Melon~& = 4294818996 +CONST C_MidnightBlue~& = 4279834992 +CONST C_MintCream~& = 4294311930 +CONST C_MistyRose~& = 4294960353 +CONST C_Moccasin~& = 4294960309 +CONST C_MountainMeadow~& = 4281383567 +CONST C_Mulberry~& = 4291120012 +CONST C_NavajoWhite~& = 4294958765 +CONST C_Navy~& = 4278190208 +CONST C_NavyBlue~& = 4279858386 +CONST C_NeonCarrot~& = 4294943555 +CONST C_OldLace~& = 4294833638 +CONST C_Olive~& = 4286611456 +CONST C_OliveDrab~& = 4285238819 +CONST C_OliveGreen~& = 4290426988 +CONST C_Orange~& = 4294944000 +CONST C_OrangeRed~& = 4294919424 +CONST C_OrangeYellow~& = 4294497640 +CONST C_Orchid~& = 4292505814 +CONST C_OuterSpace~& = 4282468940 +CONST C_OutrageousOrange~& = 4294929994 +CONST C_PacificBlue~& = 4280068553 +CONST C_PaleGoldenRod~& = 4293847210 +CONST C_PaleGreen~& = 4288215960 +CONST C_PaleTurquoise~& = 4289720046 +CONST C_PaleVioletRed~& = 4292571283 +CONST C_PapayaWhip~& = 4294963157 +CONST C_Peach~& = 4294954923 +CONST C_PeachPuff~& = 4294957753 +CONST C_Periwinkle~& = 4291154150 +CONST C_Peru~& = 4291659071 +CONST C_PiggyPink~& = 4294827494 +CONST C_PineGreen~& = 4279599224 +CONST C_Pink~& = 4294951115 +CONST C_PinkFlamingo~& = 4294735101 +CONST C_PinkSherbet~& = 4294414247 +CONST C_Plum~& = 4292714717 +CONST C_PowderBlue~& = 4289781990 +CONST C_Purple~& = 4286578816 +CONST C_PurpleHeart~& = 4285809352 +CONST C_PurpleMountainsMajesty~& = 4288512442 +CONST C_PurplePizzazz~& = 4294856410 +CONST C_RadicalRed~& = 4294920556 +CONST C_RawSienna~& = 4292250201 +CONST C_RawUmber~& = 4285614883 +CONST C_RazzleDazzleRose~& = 4294920400 +CONST C_Razzmatazz~& = 4293076331 +CONST C_Red~& = 4294901760 +CONST C_RedOrange~& = 4294923081 +CONST C_RedViolet~& = 4290790543 +CONST C_RobinsEggBlue~& = 4280274635 +CONST C_RosyBrown~& = 4290547599 +CONST C_RoyalBlue~& = 4282477025 +CONST C_RoyalPurple~& = 4286075305 +CONST C_SaddleBrown~& = 4287317267 +CONST C_Salmon~& = 4294606962 +CONST C_SandyBrown~& = 4294222944 +CONST C_Scarlet~& = 4294715463 +CONST C_ScreaminGreen~& = 4285988730 +CONST C_SeaGreen~& = 4281240407 +CONST C_SeaShell~& = 4294964718 +CONST C_Sepia~& = 4289030479 +CONST C_Shadow~& = 4287265117 +CONST C_Shamrock~& = 4282764962 +CONST C_ShockingPink~& = 4294672125 +CONST C_Sienna~& = 4288696877 +CONST C_Silver~& = 4290822336 +CONST C_SkyBlue~& = 4287090411 +CONST C_SlateBlue~& = 4285160141 +CONST C_SlateGray~& = 4285563024 +CONST C_Snow~& = 4294966010 +CONST C_SpringGreen~& = 4278255487 +CONST C_SteelBlue~& = 4282811060 +CONST C_Sunglow~& = 4294954824 +CONST C_SunsetOrange~& = 4294794835 +CONST C_Tann~& = 4291998860 +CONST C_Teal~& = 4278222976 +CONST C_TealBlue~& = 4279805877 +CONST C_Thistle~& = 4292394968 +CONST C_TickleMePink~& = 4294740396 +CONST C_Timberwolf~& = 4292597714 +CONST C_Tomato~& = 4294927175 +CONST C_TropicalRainForest~& = 4279730285 +CONST C_Tumbleweed~& = 4292782728 +CONST C_Turquoise~& = 4282441936 +CONST C_TurquoiseBlue~& = 4286045671 +CONST C_UnmellowYellow~& = 4294967142 +CONST C_Violet~& = 4293821166 +CONST C_VioletBlue~& = 4281486002 +CONST C_VioletRed~& = 4294398868 +CONST C_VividTangerine~& = 4294942857 +CONST C_VividViolet~& = 4287582365 +CONST C_Wheat~& = 4294303411 +CONST C_White~& = 4294967295 +CONST C_Whitesmoke~& = 4294309365 +CONST C_WildBlueYonder~& = 4288851408 +CONST C_WildStrawberry~& = 4294919076 +CONST C_WildWatermelon~& = 4294732933 +CONST C_Wisteria~& = 4291667166 +CONST C_Yellow~& = 4294967040 +CONST C_YellowGreen~& = 4288335154 +CONST C_YellowOrange~& = 4294946370 diff --git a/source/utilities/QB45BIN.bas b/internal/support/converter/QB45BIN.bas similarity index 99% rename from source/utilities/QB45BIN.bas rename to internal/support/converter/QB45BIN.bas index 6bbf6a53d..a20c9daee 100644 --- a/source/utilities/QB45BIN.bas +++ b/internal/support/converter/QB45BIN.bas @@ -435,7 +435,7 @@ DATA 0x045,*,"deffn::={#procdecl:2}" DATA 0x046,"DO" DATA 0x047,"DO UNTIL {0}" DATA 0x048,2,"DO WHILE {0}" -DATA 0x049,2,"{newline:0}ELSE| ELSE " +DATA 0x049,2,"{newline:0}ELSE | ELSE " ' 0x04a = implicit GOTO linenumber used in 0x04c ELSE DATA 0x04a,2,"{#id}" @@ -570,7 +570,7 @@ DATA 0x09f,"CIRCLE {##circle-args}" DATA 0x0a0,"CIRCLE {##circle-args}" DATA 0x0a1,2,"CLEAR{##varargs}" DATA 0x0a2,2,"CLOSE{##varargs}" -DATA 0x0a3,"CLS {expr:0}|CLS" +DATA 0x0a3,"CLS {expr:0}|CLS " DATA 0x0a4,2,"COLOR{##varargs}" DATA 0x0a5,4,"decl::=COMMON {declmod:0}{#blockname:2}" @@ -944,7 +944,7 @@ FUNCTION DelimitParseRule$ (ParseRule AS STRING, DefaultRuleID AS STRING) RuleEnd = LEN(ParseRule) + 1 DO - + BraceOffset = INSTR(RuleOffset, ParseRule, "{") IF BraceOffset = 0 THEN BraceOffset = RuleEnd @@ -1376,10 +1376,10 @@ FUNCTION FindRuleDelimiter% (ParseRule AS STRING) RuleEnd = LEN(ParseRule) + 1 DO WHILE RuleOffset < RuleEnd - + BraceOffset = INSTR(RuleOffset, ParseRule, "{") PipeOffset = INSTR(RuleOffset, ParseRule, "|") - + IF BraceOffset = 0 OR PipeOffset <= BraceOffset THEN EXIT DO RuleOffset = INSTR(BraceOffset + 1, ParseRule, "}") @@ -1421,7 +1421,7 @@ FUNCTION GetHashedSymbol (ParseRuleSymbol AS STRING) GetHashedSymbol% = SymbolID% EXIT FUNCTION END IF - + Hash = HashPJW(SymbolID$) LookupSymbol = "[" + SymbolID$ + "]" @@ -1492,9 +1492,9 @@ FUNCTION GetID$ (SymTblOffset AS INTEGER) SymbolFlags = PEEK(Symbol& + 2) IF SymbolFlags AND 2 THEN - + ' Short line numbers are stored as integers. - + NumericID& = PEEK(Symbol& + 4) OR PEEK(Symbol& + 5) * &H100& GetID$ = LTRIM$(STR$(NumericID&)) ELSE @@ -1599,7 +1599,7 @@ FUNCTION GetTaggedItem$ (TagTxt AS STRING, DP AS INTEGER) CASE "int": SubstTxt = FetchLiteralINT(DP, 10) CASE "int&h": SubstTxt = FetchLiteralINT(DP, 16) CASE "int&o": SubstTxt = FetchLiteralINT(DP, 8) - CASE "label": SubstTxt = FetchID(DP): IF NOT IsLineNumber(SubstTxt) THEN SubstTxt = SubstTxt + ":" + CASE "label": SubstTxt = FetchID(DP): IF IsLineNumber(SubstTxt) THEN SubstTxt = SubstTxt + " " ELSE SubstTxt = SubstTxt + ":" CASE "lng": SubstTxt = FetchLiteralLNG(DP, 10) CASE "lng&h": SubstTxt = FetchLiteralLNG(DP, 16) @@ -2307,7 +2307,7 @@ SUB ProcessProcDefType IP = IP - 1 EXIT DO END IF - + IF NOT ReadToken THEN EXIT DO UnwantedReturnValue$ = SubstTagDEFxxx(ProcDefType()) @@ -2682,7 +2682,7 @@ FUNCTION ReadToken '---------------------------------------------------------------------------- IF PCODE < LBOUND(ParseRules) OR PCODE > UBOUND(ParseRules) THEN IP = IP + 1 - PRINT "Bad token found.": SYSTEM 1 'ERROR QBErrBadToken + 'PRINT "Bad token found.": SYSTEM 1 'ERROR QBErrBadToken PCODE = 0: HPARAM = 0: TOKEN = MKI$(0) EXIT FUNCTION END IF diff --git a/internal/support/vwatch/vwatch.bi b/internal/support/vwatch/vwatch.bi new file mode 100644 index 000000000..ed2cff4bd --- /dev/null +++ b/internal/support/vwatch/vwatch.bi @@ -0,0 +1,17 @@ +$CHECKING:OFF +DIM SHARED AS LONG vwatch_linenumber, vwatch_sublevel, vwatch_goto +DIM SHARED AS STRING vwatch_subname, vwatch_internalsubname, vwatch_callstack +REDIM SHARED vwatch_breakpoints(0) AS _BYTE +REDIM SHARED vwatch_skiplines(0) AS _BYTE +REDIM SHARED vwatch_stack(1000) AS STRING +'next lines are just to avoid "unused variable" warnings: +vwatch_linenumber = 0 +vwatch_sublevel = 0 +vwatch_goto = 0 +vwatch_breakpoints(0) = 0 +vwatch_skiplines(0) = 0 +vwatch_stack(0) = "" +vwatch_subname = "" +vwatch_internalsubname = "" +vwatch_callstack = "" +$CHECKING:ON diff --git a/internal/support/vwatch/vwatch.bm b/internal/support/vwatch/vwatch.bm new file mode 100644 index 000000000..81fe279e9 --- /dev/null +++ b/internal/support/vwatch/vwatch.bm @@ -0,0 +1,881 @@ +$CHECKING:OFF + +SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET) + STATIC AS LONG vw_ideHost, vw_breakpointCount, vw_skipCount, vw_timeout, vw_startLevel, vw_lastLine + STATIC AS LONG vw_runToLine, vw_originalVarLineNumber + STATIC AS _BYTE vw_pauseMode, vw_stepOver, vw_bypass, vw_setNextLine, vw_hwndSent + STATIC AS _OFFSET vw_ideHwnd + STATIC vw_buffer$, vw_globalWatchpoints$, vw_localWatchpoints$, vw_lastWatchpoint$ + DIM AS LONG vw_i, vw_j, vw_tempIndex, vw_localIndex, vw_varSize, vw_cmdSize + DIM AS LONG vw_arrayElementSize, vw_element, vw_elementOffset, vw_storage, vw_blockSize + DIM AS LONG vw_arrayDimension, vw_arrayTotalDimensions, vw_arrayIndex, vw_realArrayIndex + DIM AS LONG vw_wpi, vw_wpj + DIM AS _INTEGER64 vw_tempBitValue + DIM AS _OFFSET vw_address, vw_lBound, vw_uBound + DIM AS _MEM vw_m, vw_m2 + DIM AS _BYTE vw_isArray, vw_isUDT, vw_checkingWatchpoints + DIM vw_start!, vw_temp$, vw_cmd$, vw_value$, vw_k&, vw_buf$, vw_scope$, vw_varType$ + DIM vw_getBytes&, vw_getBytesPosition&, vw_valueBytes$, vw_dummy%&, vw_dummy## + DIM vw_arrayIndexes$, vw_wpExpression$, vw_wpTemp$, vw_v1$, vw_v2$, vw_op$ + + DECLARE LIBRARY + SUB vwatch_stoptimers ALIAS stop_timers + SUB vwatch_starttimers ALIAS start_timers + SUB unlockvWatchHandle + SUB set_qbs_size (target AS _OFFSET, BYVAL length&) + SUB call_setbits (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET, BYVAL value AS _INTEGER64) + SUB set_fg ALIAS set_foreground_window (BYVAL hwnd AS _OFFSET) + FUNCTION stop_program_state& + FUNCTION check_lbound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG) + FUNCTION check_ubound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG) + FUNCTION call_getubits~&& (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET) + FUNCTION call_getbits&& (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET) + END DECLARE + + IF vw_bypass THEN EXIT SUB + + vwatch_goto = 0 + + IF vw_ideHost = 0 THEN + vw_timeout = 10 + + 'initial setup + GOSUB Connect + + 'send this binary's path/exe name + vw_cmd$ = "me:" + COMMAND$(0) + GOSUB SendCommand + IF _WINDOWHANDLE THEN + vw_hwndSent = -1 + vw_cmd$ = "hwnd:" + _MK$(_OFFSET, _WINDOWHANDLE) + GOSUB SendCommand + END IF + + DO + GOSUB GetCommand + SELECT CASE vw_cmd$ + CASE "vwatch" + IF vw_value$ <> "ok" THEN + unlockvWatchHandle: CLOSE #vw_ideHost + vw_bypass = -1 + EXIT SUB + END IF + CASE "line count" + REDIM vwatch_breakpoints(CVL(vw_value$)) AS _BYTE + REDIM vwatch_skiplines(CVL(vw_value$)) AS _BYTE + CASE "breakpoint count" + vw_breakpointCount = CVL(vw_value$) + CASE "breakpoint list" + IF LEN(vw_value$) \ 4 <> vw_breakpointCount THEN + vw_cmd$ = "quit:Communication error." + GOSUB SendCommand + unlockvWatchHandle: CLOSE #vw_ideHost + vw_bypass = -1 + EXIT SUB + END IF + FOR vw_i = 1 TO vw_breakpointCount + vw_temp$ = MID$(vw_value$, vw_i * 4 - 3, 4) + vwatch_breakpoints(CVL(vw_temp$)) = -1 + NEXT + CASE "hwnd" + vw_ideHwnd = _CV(_OFFSET, vw_value$) + CASE "skip count" + vw_skipCount = CVL(vw_value$) + CASE "skip list" + IF LEN(vw_value$) \ 4 <> vw_skipCount THEN + vw_cmd$ = "quit:Communication error." + GOSUB SendCommand + unlockvWatchHandle: CLOSE #vw_ideHost + vw_bypass = -1 + EXIT SUB + END IF + FOR vw_i = 1 TO vw_skipCount + vw_temp$ = MID$(vw_value$, vw_i * 4 - 3, 4) + vwatch_skiplines(CVL(vw_temp$)) = -1 + NEXT + CASE "run" + IF vwatch_breakpoints(vwatch_linenumber) THEN EXIT DO + vw_pauseMode = 0 + EXIT SUB + CASE "break" + vw_pauseMode = -1 + EXIT DO + END SELECT + LOOP + END IF + + IF vw_hwndSent = 0 THEN + IF _WINDOWHANDLE > 0 THEN + vw_hwndSent = -1 + vw_cmd$ = "hwnd:" + _MK$(_OFFSET, _WINDOWHANDLE) + GOSUB SendCommand + END IF + END IF + + IF vwatch_linenumber = 0 THEN + GOSUB SendCallStack + vw_cmd$ = "quit:Program ended." + GOSUB SendCommand + unlockvWatchHandle: CLOSE #vw_ideHost + vw_bypass = -1 + vw_ideHost = 0 + EXIT SUB + ELSEIF vwatch_linenumber = -1 THEN + 'report an error in the most recent line + GOSUB SendCallStack + vw_cmd$ = "error:" + MKL$(vw_lastLine) + GOSUB SendCommand + set_fg vw_ideHwnd + EXIT SUB + ELSEIF vwatch_linenumber = -2 THEN + 'report a new sub/function has been "entered" + IF vwatch_sublevel > UBOUND(vwatch_stack) THEN + REDIM _PRESERVE vwatch_stack(UBOUND(vwatch_stack) + 1000) AS STRING + END IF + vwatch_stack(vwatch_sublevel) = vwatch_internalsubname$ + "," + vwatch_subname$ + ", line" + STR$(vw_lastLine) + EXIT SUB + ELSEIF vwatch_linenumber = -3 THEN + 'handle STOP - instead of quitting, pause execution + vw_pauseMode = -1 + vw_stepOver = 0 + EXIT SUB + ELSEIF vwatch_linenumber = -4 THEN + 'handle INPUT/LINE INPUT - tell the IDE we'll be hanging for a while + vw_cmd$ = "enter input:" + MKL$(vw_lastLine) + GOSUB SendCommand + EXIT SUB + ELSEIF vwatch_linenumber = -5 THEN + 'handle end of INPUT/LINE INPUT - tell the IDE we're moving on + vw_cmd$ = "leave input" + GOSUB SendCommand + EXIT SUB + END IF + + IF vwatch_linenumber = vw_lastLine AND vw_setNextLine = 0 THEN EXIT SUB + vw_setNextLine = 0 + vw_lastLine = vwatch_linenumber + + GOSUB GetCommand + SELECT CASE vw_cmd$ + CASE "break" + vw_pauseMode = -1 + vw_stepOver = 0 + vw_runToLine = 0 + vw_cmd$ = "" + CASE "set breakpoint" + vwatch_breakpoints(CVL(vw_value$)) = -1 + vwatch_skiplines(CVL(vw_value$)) = 0 + CASE "clear breakpoint" + vwatch_breakpoints(CVL(vw_value$)) = 0 + CASE "set skip line" + vwatch_skiplines(CVL(vw_value$)) = -1 + vwatch_breakpoints(CVL(vw_value$)) = 0 + CASE "clear skip line" + vwatch_skiplines(CVL(vw_value$)) = 0 + CASE "clear all breakpoints" + REDIM vwatch_breakpoints(UBOUND(vwatch_breakpoints)) AS _BYTE + CASE "clear all skips" + REDIM vwatch_skiplines(UBOUND(vwatch_skiplines)) AS _BYTE + END SELECT + + IF LEN(vw_globalWatchpoints$) > 0 OR LEN(vw_localWatchpoints$) > 0 THEN + vw_checkingWatchpoints = -1 + GOSUB CheckWatchpoints + IF vw_checkingWatchpoints = 2 THEN + vw_checkingWatchpoints = 0 + vw_pauseMode = -1 + vw_stepOver = 0 + vw_runToLine = 0 + vw_cmd$ = "watchpoint:" + MKL$(vw_tempIndex) + MKL$(LEN(vw_arrayIndexes$)) + vw_arrayIndexes$ + MKL$(vw_elementOffset) + MKI$(LEN(vw_wpExpression$)) + vw_wpExpression$ + GOTO breakReached + END IF + END IF + vw_checkingWatchpoints = 0 + + IF vwatch_skiplines(vwatch_linenumber) THEN vwatch_goto = -vwatch_linenumber: EXIT SUB + + IF vw_stepOver = -1 AND vwatch_sublevel > vw_startLevel AND vwatch_breakpoints(vwatch_linenumber) = 0 THEN + EXIT SUB + ELSEIF vw_stepOver = -1 AND vwatch_sublevel = vw_startLevel THEN + vw_stepOver = 0 + vw_pauseMode = -1 + END IF + + IF vw_runToLine > 0 AND vw_runToLine <> vwatch_linenumber THEN + EXIT SUB + ELSEIF vw_runToLine > 0 AND vw_runToLine = vwatch_linenumber THEN + vw_pauseMode = -1 + vw_runToLine = 0 + END IF + + IF vwatch_breakpoints(vwatch_linenumber) = 0 AND vw_pauseMode = 0 THEN + EXIT SUB + END IF + + vw_cmd$ = "line number:" + IF vwatch_breakpoints(vwatch_linenumber) THEN vw_cmd$ = "breakpoint:" + breakReached: + vwatch_stoptimers + vw_cmd$ = vw_cmd$ + MKL$(vwatch_linenumber) + GOSUB SendCommand + vw_cmd$ = "current sub:" + LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1) + GOSUB SendCommand + + set_fg vw_ideHwnd + + DO 'main loop + IF stop_program_state& THEN vw_bypass = -1: EXIT DO + SELECT CASE vw_cmd$ + CASE "run" + vw_pauseMode = 0 + vw_stepOver = 0 + _KEYCLEAR: vwatch_starttimers + EXIT SUB + CASE "run to line" + vw_pauseMode = 0 + vw_stepOver = 0 + vw_runToLine = CVL(vw_value$) + _KEYCLEAR: vwatch_starttimers + EXIT SUB + CASE "step" + vw_pauseMode = -1 + vw_stepOver = 0 + EXIT SUB + CASE "step over" + vw_pauseMode = -1 + vw_stepOver = -1 + vw_startLevel = vwatch_sublevel + _KEYCLEAR: vwatch_starttimers + EXIT SUB + CASE "step out" + vw_pauseMode = -1 + vw_stepOver = -1 + vw_startLevel = vwatch_sublevel - 1 + _KEYCLEAR: vwatch_starttimers + EXIT SUB + CASE "free" + unlockvWatchHandle: CLOSE #vw_ideHost + vw_ideHost = 0 + vw_bypass = -1 + _KEYCLEAR: vwatch_starttimers + EXIT SUB + CASE "set breakpoint" + vwatch_breakpoints(CVL(vw_value$)) = -1 + vwatch_skiplines(CVL(vw_value$)) = 0 + CASE "clear breakpoint" + vwatch_breakpoints(CVL(vw_value$)) = 0 + CASE "clear all breakpoints" + REDIM vwatch_breakpoints(UBOUND(vwatch_breakpoints)) AS _BYTE + CASE "clear all skips" + REDIM vwatch_skiplines(UBOUND(vwatch_skiplines)) AS _BYTE + CASE "call stack" + 'send call stack history + GOSUB SendCallStack + CASE "get global var", "get local var" + getGlobalLocal: + vw_getBytes& = 4: GOSUB GetBytes: vw_tempIndex = CVL(vw_valueBytes$) + vw_getBytes& = 1: GOSUB GetBytes: vw_isArray = _CV(_BYTE, vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_originalVarLineNumber = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_localIndex = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_arrayTotalDimensions = CVL(vw_valueBytes$) + vw_getBytes& = vw_arrayTotalDimensions: GOSUB GetBytes: vw_arrayIndexes$ = vw_valueBytes$ + vw_arrayTotalDimensions = vw_arrayTotalDimensions \ 4 + vw_getBytes& = 4: GOSUB GetBytes: vw_arrayElementSize = CVL(vw_valueBytes$) + IF vw_checkingWatchpoints THEN + vw_getBytes& = 4: GOSUB GetBytes: vw_isUDT = (CVL(vw_valueBytes$) <> 0) + ELSE + vw_isUDT = 0 + END IF + vw_getBytes& = 4: GOSUB GetBytes: vw_element = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_elementOffset = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_varSize = CVL(vw_valueBytes$) + IF vw_varSize = 0 THEN + IF vw_checkingWatchpoints THEN RETURN + GOTO cmdProcessingDone + END IF + vw_getBytes& = 4: GOSUB GetBytes: vw_storage = CVL(vw_valueBytes$) + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + IF vw_i THEN + vw_getBytes& = vw_i: GOSUB GetBytes: vw_scope$ = vw_valueBytes$ + END IF + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + vw_getBytes& = vw_i: GOSUB GetBytes: vw_varType$ = vw_valueBytes$ + + IF vw_cmd$ = "get global var" THEN + vw_address = _OFFSET(globalVariables) + LEN(vw_address) * vw_localIndex + ELSE + IF vw_scope$ = LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1) THEN + vw_address = _OFFSET(localVariables) + LEN(vw_address) * vw_localIndex + ELSE + IF vw_checkingWatchpoints THEN vw_varType$ = "": RETURN + GOTO cmdProcessingDone + END IF + END IF + + vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'first resolve pass + vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'second resolve pass + + IF vw_isArray THEN + IF vw_originalVarLineNumber > 0 THEN + 'prevent fetching array data before DIM line + IF vwatch_linenumber <= vw_originalVarLineNumber THEN + IF vw_checkingWatchpoints THEN vw_varType$ = "": RETURN + GOTO cmdProcessingDone + END IF + END IF + + vw_realArrayIndex = 0 + vw_blockSize = 1 + + FOR vw_arrayDimension = 1 TO vw_arrayTotalDimensions + vw_lBound = check_lbound%&(vw_address, vw_arrayDimension, vw_arrayTotalDimensions) + vw_uBound = check_ubound%&(vw_address, vw_arrayDimension, vw_arrayTotalDimensions) + vw_arrayIndex = CVL(MID$(vw_arrayIndexes$, vw_arrayDimension * 4 - 3, 4)) + IF vw_arrayIndex < vw_lBound OR vw_arrayIndex > vw_uBound THEN + IF vw_checkingWatchpoints THEN vw_varType$ = "": RETURN + GOTO cmdProcessingDone + END IF + + vw_arrayIndex = (vw_arrayIndex - VAL(STR$(vw_lBound))) * vw_blockSize + vw_realArrayIndex = vw_realArrayIndex + vw_arrayIndex + vw_blockSize = vw_blockSize * VAL(STR$(vw_uBound - vw_lBound + 1)) + NEXT + + 'get the address of where this array's data is stored + vw_buf$ = SPACE$(LEN(vw_dummy%&)) + vw_m = _MEM(vw_address, LEN(vw_dummy%&)) + vw_m2 = _MEM(_OFFSET(vw_buf$), LEN(vw_dummy%&)) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + + IF LEN(vw_dummy%&) = 8 THEN + vw_address = _CV(_INTEGER64, vw_buf$) 'Pointer to data + ELSE + vw_address = _CV(LONG, vw_buf$) 'Pointer to data + END IF + 'vw_address now points to the actual data + + 'find the required element for this array + IF INSTR(vw_varType$, "STRING *") THEN + vw_varSize = VAL(MID$(vw_varType$, _INSTRREV(vw_varType$, " ") + 1)) + ELSEIF vw_varType$ = "STRING" THEN + vw_varSize = LEN(vw_dummy%&) + ELSEIF INSTR(vw_varType$, "FLOAT") > 0 THEN + vw_varSize = 16 'long double... + END IF + + IF INSTR(vw_varType$, "BIT") THEN + vw_i = INSTR(vw_varType$, "*") + IF vw_i > 0 THEN + vw_i = VAL(MID$(vw_varType$, vw_i + 1)) + ELSE + vw_i = 1 + END IF + IF INSTR(vw_varType$, "UNSIGNED") THEN + vw_buf$ = _MK$(_UNSIGNED _INTEGER64, call_getubits~&&(vw_i, vw_address, vw_realArrayIndex)) + ELSE + vw_buf$ = _MK$(_INTEGER64, call_getbits&&(vw_i, vw_address, vw_realArrayIndex)) + END IF + + IF vw_checkingWatchpoints THEN RETURN + vw_cmd$ = "address read:" + MKL$(vw_tempIndex) + MKL$(vw_arrayIndex) + MKL$(vw_element) + MKL$(vw_storage) + vw_buf$ + GOSUB SendCommand + GOTO cmdProcessingDone + ELSE + 'this is where we calculate the actual array index position in memory + IF vw_arrayElementSize = 0 THEN + vw_address = vw_address + (vw_realArrayIndex * vw_varSize) + ELSE + vw_address = vw_address + (vw_realArrayIndex * vw_arrayElementSize) + END IF + END IF + END IF + + 'vw_address now points to the actual data + vw_address = vw_address + vw_elementOffset + vw_buf$ = SPACE$(vw_varSize) + vw_m = _MEM(vw_address, vw_varSize) + vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + + IF INSTR(vw_varType$, "STRING *") > 0 AND (vw_isArray <> 0 OR vw_element > 0 OR vw_isUDT <> 0) THEN + 'actual data already fetched; nothing else to do + ELSEIF INSTR(vw_varType$, "STRING") > 0 THEN + IF vw_isArray <> 0 OR vw_element > 0 OR vw_isUDT <> 0 THEN + 'First pass + vw_varSize = LEN(vw_dummy%&) + vw_buf$ = SPACE$(vw_varSize) + vw_m = _MEM(vw_address, vw_varSize) + vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + + IF LEN(vw_dummy%&) = 8 THEN + vw_address = _CV(_INTEGER64, vw_buf$) 'Pointer to data + ELSE + vw_address = _CV(LONG, vw_buf$) 'Pointer to data + END IF + + 'Second pass + vw_varSize = LEN(vw_dummy%&) + LEN(vw_varSize) + vw_buf$ = SPACE$(vw_varSize) + vw_m = _MEM(vw_address, vw_varSize) + vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + END IF + + 'vw_buf$ now contains a pointer to the string data + 'as well as the number of bytes we have to read + IF LEN(vw_dummy%&) = 8 THEN + vw_address = _CV(_INTEGER64, LEFT$(vw_buf$, 8)) 'Pointer to data + vw_varSize = CVL(MID$(vw_buf$, 9)) + ELSE + vw_address = _CV(LONG, LEFT$(vw_buf$, 4)) 'Pointer to data + vw_varSize = CVL(MID$(vw_buf$, 5)) + END IF + + vw_buf$ = SPACE$(vw_varSize) + vw_m = _MEM(vw_address, vw_varSize) + vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + ELSEIF INSTR(vw_varType$, "FLOAT") > 0 THEN + vw_buf$ = vw_buf$ + STRING$(16, 0) 'pad with zeroes... + END IF + + IF vw_checkingWatchpoints THEN RETURN + + vw_cmd$ = "address read:" + MKL$(vw_tempIndex) + MKL$(vw_arrayIndex) + MKL$(vw_element) + MKL$(vw_storage) + vw_buf$ + GOSUB SendCommand + CASE "set global address", "set local address" + vw_getBytes& = 4: GOSUB GetBytes: vw_tempIndex = CVL(vw_valueBytes$) + vw_getBytes& = 1: GOSUB GetBytes: vw_isArray = _CV(_BYTE, vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_originalVarLineNumber = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_localIndex = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_arrayTotalDimensions = CVL(vw_valueBytes$) + vw_getBytes& = vw_arrayTotalDimensions: GOSUB GetBytes: vw_arrayIndexes$ = vw_valueBytes$ + vw_arrayTotalDimensions = vw_arrayTotalDimensions \ 4 + vw_getBytes& = 4: GOSUB GetBytes: vw_arrayElementSize = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_isUDT = (CVL(vw_valueBytes$) <> 0) + vw_getBytes& = 4: GOSUB GetBytes: vw_element = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_elementOffset = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_varSize = CVL(vw_valueBytes$) + IF vw_varSize = 0 THEN GOTO cmdProcessingDone + vw_getBytes& = 4: GOSUB GetBytes: vw_storage = CVL(vw_valueBytes$) + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + IF vw_i THEN + vw_getBytes& = vw_i: GOSUB GetBytes: vw_scope$ = vw_valueBytes$ + END IF + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + vw_getBytes& = vw_i: GOSUB GetBytes: vw_varType$ = vw_valueBytes$ + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + vw_getBytes& = vw_i: GOSUB GetBytes: vw_value$ = vw_valueBytes$ + + IF vw_cmd$ = "set global address" THEN + vw_address = _OFFSET(globalVariables) + LEN(vw_address) * vw_localIndex + ELSE + vw_address = _OFFSET(localVariables) + LEN(vw_address) * vw_localIndex + END IF + vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'first resolve pass + vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'second resolve pass + + '-------- + IF vw_isArray THEN + + vw_realArrayIndex = 0 + vw_blockSize = 1 + + FOR vw_arrayDimension = 1 TO vw_arrayTotalDimensions + vw_lBound = check_lbound%&(vw_address, vw_arrayDimension, vw_arrayTotalDimensions) + vw_uBound = check_ubound%&(vw_address, vw_arrayDimension, vw_arrayTotalDimensions) + + vw_arrayIndex = CVL(MID$(vw_arrayIndexes$, vw_arrayDimension * 4 - 3, 4)) + + IF vw_arrayIndex < vw_lBound OR vw_arrayIndex > vw_uBound THEN + GOTO cmdProcessingDone + END IF + + vw_arrayIndex = (vw_arrayIndex - VAL(STR$(vw_lBound))) * vw_blockSize + vw_realArrayIndex = vw_realArrayIndex + vw_arrayIndex + vw_blockSize = vw_blockSize * VAL(STR$(vw_uBound - vw_lBound + 1)) + NEXT + + 'get the address of where this array's data is stored + vw_buf$ = SPACE$(LEN(vw_dummy%&)) + vw_m = _MEM(vw_address, LEN(vw_dummy%&)) + vw_m2 = _MEM(_OFFSET(vw_buf$), LEN(vw_dummy%&)) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + + IF LEN(vw_dummy%&) = 8 THEN + vw_address = _CV(_INTEGER64, vw_buf$) 'Pointer to data + ELSE + vw_address = _CV(LONG, vw_buf$) 'Pointer to data + END IF + 'vw_address now points to the actual data + + 'find the required element for this array + IF INSTR(vw_varType$, "STRING *") THEN + vw_varSize = VAL(MID$(vw_varType$, _INSTRREV(vw_varType$, " ") + 1)) + ELSEIF vw_varType$ = "STRING" THEN + vw_varSize = LEN(vw_dummy%&) + ELSEIF INSTR(vw_varType$, "FLOAT") > 0 THEN + vw_varSize = 16 'long double... + vw_value$ = LEFT$(vw_value$, vw_varSize) + END IF + + IF INSTR(vw_varType$, "BIT") THEN + vw_i = INSTR(vw_varType$, "*") + IF vw_i > 0 THEN + vw_i = VAL(MID$(vw_varType$, vw_i + 1)) + ELSE + vw_i = 1 + END IF + vw_buf$ = vw_value$ + STRING$(4, 0) 'pad with zeroes in case a LONG was sent + GOSUB GetV2 + vw_tempBitValue = VAL(vw_v2$) + call_setbits vw_i, vw_address, vw_realArrayIndex, vw_tempBitValue + GOTO cmdProcessingDone + ELSE + 'this is where we calculate the actual array index position in memory + IF vw_arrayElementSize = 0 THEN + vw_address = vw_address + (vw_realArrayIndex * vw_varSize) + ELSE + vw_address = vw_address + (vw_realArrayIndex * vw_arrayElementSize) + END IF + END IF + ELSE + IF vw_isUDT = 0 THEN + IF INSTR(vw_varType$, "STRING") = 0 THEN + 'numeric variables need no further dereferencing + GOTO setAddress + ELSE + setString: + 'vw_address now points to the qbs struct + set_qbs_size vw_address, LEN(vw_value$) + + vw_varSize = LEN(vw_address) + LEN(vw_varSize) + vw_buf$ = SPACE$(vw_varSize) + vw_m = _MEM(vw_address, vw_varSize) + vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + + vw_address = _CV(_OFFSET, LEFT$(vw_buf$, LEN(vw_address))) 'pointer to actual data + vw_varSize = CVL(MID$(vw_buf$, LEN(vw_address) + 1)) + IF vw_varSize < LEN(vw_value$) THEN + vw_value$ = LEFT$(vw_value$, vw_varSize) + END IF + GOTO setAddress + END IF + END IF + END IF + + 'if it's a UDT, move the pointer to this element's offset + vw_address = vw_address + vw_elementOffset + + IF INSTR(vw_varType$, "STRING *") > 0 AND (vw_isArray <> 0 OR vw_isUDT <> 0) THEN + vw_value$ = LEFT$(vw_value$ + SPACE$(vw_varSize), vw_varSize) + ELSEIF INSTR(vw_varType$, "STRING") > 0 THEN + IF vw_isArray <> 0 OR vw_isUDT <> 0 THEN + 'First pass + vw_varSize = LEN(vw_dummy%&) + vw_buf$ = SPACE$(vw_varSize) + vw_m = _MEM(vw_address, vw_varSize) + vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize) + _MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET + + vw_address = _CV(_OFFSET, vw_buf$) 'Pointer to data + GOTO setString + END IF + END IF + '-------- + + setAddress: + 'vw_address now points to the actual data + vw_m = _MEM(vw_address, vw_varSize) + _MEMPUT vw_m, vw_m.OFFSET, vw_value$ + CASE "clear last watchpoint" + IF LEFT$(vw_lastWatchpoint$, 1) = "g" THEN + vw_cmd$ = "clear global watchpoint" + ELSE + vw_cmd$ = "clear local watchpoint" + END IF + vw_value$ = MID$(vw_lastWatchpoint$, 2) + vw_getBytesPosition& = 1 + GOTO WatchpointCommands + CASE "set global watchpoint", "set local watchpoint", "clear global watchpoint", "clear local watchpoint" + WatchpointCommands: + vw_getBytes& = 4: GOSUB GetBytes: vw_tempIndex = CVL(vw_valueBytes$) + vw_getBytes& = 1: GOSUB GetBytes: vw_isArray = _CV(_BYTE, vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_originalVarLineNumber = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_localIndex = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_arrayTotalDimensions = CVL(vw_valueBytes$) + vw_getBytes& = vw_arrayTotalDimensions: GOSUB GetBytes: vw_arrayIndexes$ = vw_valueBytes$ + + vw_temp$ = LEFT$(vw_value$, vw_arrayTotalDimensions + 33) + + vw_arrayTotalDimensions = vw_arrayTotalDimensions \ 4 + vw_getBytes& = 4: GOSUB GetBytes: vw_arrayElementSize = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_isUDT = (CVL(vw_valueBytes$) <> 0) + vw_getBytes& = 4: GOSUB GetBytes: vw_element = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_elementOffset = CVL(vw_valueBytes$) + vw_getBytes& = 4: GOSUB GetBytes: vw_varSize = CVL(vw_valueBytes$) + IF vw_varSize = 0 THEN GOTO cmdProcessingDone + vw_getBytes& = 4: GOSUB GetBytes: vw_storage = CVL(vw_valueBytes$) + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + IF vw_i THEN + vw_getBytes& = vw_i: GOSUB GetBytes: vw_scope$ = vw_valueBytes$ + END IF + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + vw_getBytes& = vw_i: GOSUB GetBytes: vw_varType$ = vw_valueBytes$ + vw_getBytes& = 2: GOSUB GetBytes: vw_i = CVI(vw_valueBytes$) + vw_getBytes& = vw_i: GOSUB GetBytes: vw_wpExpression$ = vw_valueBytes$ + + IF INSTR(vw_cmd$, " global ") THEN + vw_buf$ = vw_globalWatchpoints$ + ELSE + vw_buf$ = vw_localWatchpoints$ + END IF + + vw_i = 0 + vw_i = INSTR(vw_i + 1, vw_buf$, MKL$(-1)) + DO WHILE vw_i + IF MID$(vw_buf$, vw_i + 8, LEN(vw_temp$)) = vw_temp$ THEN EXIT DO + vw_i = INSTR(vw_i + 1, vw_buf$, MKL$(-1)) + LOOP + + IF vw_i > 0 THEN + 'remove existing watchpoint for the same variable/index/element + vw_j = CVL(MID$(vw_buf$, vw_i + 4, 4)) + vw_buf$ = LEFT$(vw_buf$, vw_i - 1) + MID$(vw_buf$, vw_i + vw_j + 8) + END IF + + IF LEFT$(vw_cmd$, 4) = "set " THEN + vw_value$ = vw_value$ + MKL$(LEN(vw_wpExpression$)) + vw_buf$ = vw_buf$ + MKL$(-1) + MKL$(LEN(vw_value$)) + vw_value$ + END IF + + IF INSTR(vw_cmd$, " global ") THEN + vw_globalWatchpoints$ = vw_buf$ + ELSE + vw_localWatchpoints$ = vw_buf$ + END IF + CASE "current sub" + vw_cmd$ = "current sub:" + LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1) + GOSUB SendCommand + CASE "set next line" + vw_pauseMode = -1 + vw_stepOver = 0 + vw_setNextLine = -1 + vwatch_goto = CVL(vw_value$) + EXIT SUB + CASE "set skip line" + vwatch_skiplines(CVL(vw_value$)) = -1 + vwatch_breakpoints(CVL(vw_value$)) = 0 + CASE "clear skip line" + vwatch_skiplines(CVL(vw_value$)) = 0 + END SELECT + + cmdProcessingDone: + GOSUB GetCommand + _LIMIT 100 + LOOP + + _KEYCLEAR + vwatch_starttimers + EXIT SUB + + Connect: + DIM vw_ideport$ + vw_ideport$ = ENVIRON$("QB64DEBUGPORT") + IF vw_ideport$ = "" THEN vw_bypass = -1: EXIT SUB + + vw_start! = TIMER + DO + vw_k& = _KEYHIT + vw_ideHost = _OPENCLIENT("QB64IDE:" + vw_ideport$ + ":localhost") + _LIMIT 30 + LOOP UNTIL vw_k& = 27 OR vw_ideHost <> 0 OR TIMER - vw_start! > vw_timeout + IF vw_ideHost = 0 THEN vw_bypass = -1: EXIT SUB + RETURN + + GetCommand: + GET #vw_ideHost, , vw_temp$ + vw_buffer$ = vw_buffer$ + vw_temp$ + + IF LEN(vw_buffer$) >= 4 THEN vw_cmdSize = CVL(LEFT$(vw_buffer$, 4)) ELSE vw_cmdSize = 0 + IF vw_cmdSize > 0 AND LEN(vw_buffer$) >= vw_cmdSize THEN + vw_cmd$ = MID$(vw_buffer$, 5, vw_cmdSize) + vw_buffer$ = MID$(vw_buffer$, 5 + vw_cmdSize) + + IF INSTR(vw_cmd$, ":") THEN + vw_value$ = MID$(vw_cmd$, INSTR(vw_cmd$, ":") + 1) + vw_cmd$ = LEFT$(vw_cmd$, INSTR(vw_cmd$, ":") - 1) + ELSE + vw_value$ = "" + END IF + ELSE + vw_cmd$ = "": vw_value$ = "" + END IF + vw_getBytesPosition& = 1 + RETURN + + SendCallStack: + IF vwatch_sublevel - 1 > 0 THEN + vwatch_callstack = MID$(vwatch_stack(2), INSTR(vwatch_stack(2), ",") + 1) + FOR vw_i = 3 TO vwatch_sublevel + vwatch_callstack = vwatch_callstack + CHR$(0) + MID$(vwatch_stack(vw_i), INSTR(vwatch_stack(vw_i), ",") + 1) + NEXT + ELSE + vwatch_callstack = "" + END IF + vw_cmd$ = "call stack size:" + MKL$(vwatch_sublevel - 1) + GOSUB SendCommand + vw_cmd$ = "call stack:" + vwatch_callstack + GOSUB SendCommand + RETURN + + SendCommand: + vw_cmd$ = MKL$(LEN(vw_cmd$)) + vw_cmd$ + PUT #vw_ideHost, , vw_cmd$ + vw_cmd$ = "" + RETURN + + GetBytes: + IF vw_getBytes& = 0 THEN vw_valueBytes$ = "": RETURN + vw_valueBytes$ = MID$(vw_value$, vw_getBytesPosition&, vw_getBytes&) + vw_getBytesPosition& = vw_getBytesPosition& + vw_getBytes& + RETURN + + CheckWatchpoints: + FOR vw_wpi = 1 TO 2 + IF vw_wpi = 1 AND LEN(vw_globalWatchpoints$) > 0 THEN + vw_wpTemp$ = MID$(vw_globalWatchpoints$, 5) + ELSEIF vw_wpi = 2 AND LEN(vw_localWatchpoints$) > 0 THEN + vw_wpTemp$ = MID$(vw_localWatchpoints$, 5) + ELSE + _CONTINUE + END IF + + DO WHILE LEN(vw_wpTemp$) + vw_wpj = CVL(LEFT$(vw_wpTemp$, 4)) + vw_value$ = MID$(vw_wpTemp$, 5, vw_wpj) + vw_wpTemp$ = MID$(vw_wpTemp$, 9 + vw_wpj) + IF vw_wpi = 1 THEN vw_cmd$ = "get global var" ELSE vw_cmd$ = "get local var" + + vw_i = CVL(RIGHT$(vw_value$, 4)) + vw_wpExpression$ = MID$(vw_value$, LEN(vw_value$) - (4 + vw_i) + 1, vw_i) + + vw_getBytesPosition& = 1 + GOSUB getGlobalLocal + IF vw_varType$ = "" THEN _CONTINUE + + IF INSTR(vw_varType$, "STRING") THEN + IF LEFT$(vw_wpExpression$, 1) = "=" THEN + vw_op$ = "=" + vw_v1$ = _TRIM$(MID$(vw_wpExpression$, 2)) + ELSEIF INSTR("@<=@>=@<>@", "@" + LEFT$(vw_wpExpression$, 2) + "@") > 0 THEN + vw_op$ = LEFT$(vw_wpExpression$, 2) + vw_v1$ = _TRIM$(MID$(vw_wpExpression$, 3)) + ELSEIF INSTR("<>", LEFT$(vw_wpExpression$, 1)) > 0 THEN + vw_op$ = LEFT$(vw_wpExpression$, 1) + vw_v1$ = _TRIM$(MID$(vw_wpExpression$, 2)) + END IF + + IF LEFT$(vw_v1$, 1) = CHR$(34) AND RIGHT$(vw_v1$, 1) = CHR$(34) THEN + vw_v1$ = MID$(vw_v1$, 2, LEN(vw_v1$) - 2) 'remove quotes + vw_v2$ = vw_buf$ + ELSE + vw_v1$ = _TRIM$(vw_v1$) + vw_v2$ = _TRIM$(vw_buf$) + END IF + + IF vw_op$ = "=" THEN + IF vw_v1$ = vw_v2$ THEN GOTO WatchPointBreak + ELSEIF vw_op$ = "<=" THEN + IF vw_v1$ <= vw_v2$ THEN GOTO WatchPointBreak + ELSEIF vw_op$ = ">=" THEN + IF vw_v1$ >= vw_v2$ THEN GOTO WatchPointBreak + ELSEIF vw_op$ = "<>" THEN + IF vw_v1$ <> vw_v2$ THEN GOTO WatchPointBreak + ELSEIF vw_op$ = "<" THEN + IF vw_v1$ < vw_v2$ THEN GOTO WatchPointBreak + ELSEIF vw_op$ = ">" THEN + IF vw_v1$ > vw_v2$ THEN GOTO WatchPointBreak + END IF + ELSE + IF LEFT$(vw_wpExpression$, 1) = "=" THEN + vw_v1$ = _TRIM$(MID$(vw_wpExpression$, 2)) + ELSEIF LEFT$(vw_wpExpression$, 2) = "<=" OR LEFT$(vw_wpExpression$, 2) = ">=" OR LEFT$(vw_wpExpression$, 2) = "<>" THEN + vw_v1$ = _TRIM$(MID$(vw_wpExpression$, 3)) + ELSEIF LEFT$(vw_wpExpression$, 1) = "<" OR LEFT$(vw_wpExpression$, 1) = ">" THEN + vw_v1$ = _TRIM$(MID$(vw_wpExpression$, 2)) + END IF + + GOSUB GetV2 + + IF LEFT$(vw_wpExpression$, 1) = "=" THEN + IF VAL(vw_v2$) = VAL(vw_v1$) THEN GOTO WatchPointBreak + ELSEIF LEFT$(vw_wpExpression$, 2) = "<=" THEN + IF VAL(vw_v2$) <= VAL(vw_v1$) THEN GOTO WatchPointBreak + ELSEIF LEFT$(vw_wpExpression$, 2) = ">=" THEN + IF VAL(vw_v2$) >= VAL(vw_v1$) THEN GOTO WatchPointBreak + ELSEIF LEFT$(vw_wpExpression$, 2) = "<>" THEN + IF VAL(vw_v2$) <> VAL(vw_v1$) THEN GOTO WatchPointBreak + ELSEIF LEFT$(vw_wpExpression$, 1) = "<" THEN + IF VAL(vw_v2$) < VAL(vw_v1$) THEN GOTO WatchPointBreak + ELSEIF LEFT$(vw_wpExpression$, 1) = ">" THEN + IF VAL(vw_v2$) > VAL(vw_v1$) THEN GOTO WatchPointBreak + END IF + END IF + LOOP + NEXT + RETURN + + WatchPointBreak: + 'send watchpoint info and pause + IF INSTR(vw_cmd$, "global") THEN + vw_lastWatchpoint$ = "g" + vw_value$ + ELSE + vw_lastWatchpoint$ = "l" + vw_value$ + END IF + vw_checkingWatchpoints = 2 + RETURN + + GetV2: + IF INSTR(vw_varType$, "BIT *") THEN + IF VAL(MID$(vw_varType$, _INSTRREV(vw_varType$, " ") + 1)) > 32 THEN + IF INSTR(vw_varType$, "UNSIGNED") THEN + vw_v2$ = STR$(_CV(_UNSIGNED _INTEGER64, vw_buf$)) + ELSE + vw_v2$ = STR$(_CV(_INTEGER64, vw_buf$)) + END IF + ELSE + IF INSTR(vw_varType$, "UNSIGNED") THEN + vw_v2$ = STR$(_CV(_UNSIGNED LONG, vw_buf$)) + ELSE + vw_v2$ = STR$(_CV(LONG, vw_buf$)) + END IF + END IF + RETURN + ELSEIF INSTR("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@", "@" + vw_varType$ + "@") THEN + IF INSTR(vw_varType$, "UNSIGNED") THEN + vw_v2$ = STR$(_CV(_UNSIGNED LONG, vw_buf$)) + ELSE + vw_v2$ = STR$(_CV(LONG, vw_buf$)) + END IF + RETURN + END IF + SELECT CASE vw_varType$ + CASE "_BYTE", "BYTE": vw_v2$ = STR$(_CV(_BYTE, vw_buf$)) + CASE "_UNSIGNED _BYTE", "UNSIGNED BYTE": vw_v2$ = STR$(_CV(_UNSIGNED _BYTE, vw_buf$)) + CASE "INTEGER": vw_v2$ = STR$(_CV(INTEGER, vw_buf$)) + CASE "_UNSIGNED INTEGER", "UNSIGNED INTEGER": vw_v2$ = STR$(_CV(_UNSIGNED INTEGER, vw_buf$)) + CASE "LONG": vw_v2$ = STR$(_CV(LONG, vw_buf$)) + CASE "_UNSIGNED LONG", "UNSIGNED LONG": vw_v2$ = STR$(_CV(_UNSIGNED LONG, vw_buf$)) + CASE "_INTEGER64", "INTEGER64": vw_v2$ = STR$(_CV(_INTEGER64, vw_buf$)) + CASE "_UNSIGNED _INTEGER64", "UNSIGNED INTEGER64": vw_v2$ = STR$(_CV(_UNSIGNED _INTEGER64, vw_buf$)) + CASE "SINGLE": vw_v2$ = STR$(CVS(vw_buf$)) + CASE "DOUBLE": vw_v2$ = STR$(CVD(vw_buf$)) + CASE "_FLOAT", "FLOAT": vw_v2$ = STR$(_CV(_FLOAT, vw_buf$)) + CASE "_OFFSET", "OFFSET": vw_v2$ = STR$(_CV(_OFFSET, vw_buf$)) + CASE "_UNSIGNED _OFFSET", "UNSIGNED OFFSET": vw_v2$ = STR$(_CV(_UNSIGNED _OFFSET, vw_buf$)) + END SELECT + RETURN +END SUB diff --git a/internal/support/vwatch/vwatch_stub.bm b/internal/support/vwatch/vwatch_stub.bm new file mode 100644 index 000000000..f78094759 --- /dev/null +++ b/internal/support/vwatch/vwatch_stub.bm @@ -0,0 +1,2 @@ +SUB vwatch () +END SUB diff --git a/LICENSE/COPYING.TXT b/licenses/COPYING.TXT similarity index 79% rename from LICENSE/COPYING.TXT rename to licenses/COPYING.TXT index 1b2463b71..5b3f231e3 100644 --- a/LICENSE/COPYING.TXT +++ b/licenses/COPYING.TXT @@ -4,7 +4,7 @@ Other components are licensed under various permissive licences. When sound components are included (thus the LGPL is in effect), the easiest way to meet terms of the LGPL is to make your program's source code (.BAS) available. If you are not using sound components, you do not need to release the program's source. If you are using fonts, you are bound by the terms of FreeType's license. Somewhere in your software package should include a notice that your program includes the FreeType library (see licence_freetype_ftl.txt for details) -In all cases, you should distribute the LICENSE folder with your program. +In all cases, you should distribute the licenses folder with your program. It should be noted that providing source code is not the only way to meet the conditions of the LGPL (eg dynamic linking) but it is by far the easiest from a technical point of view at this current time. ===================================================== @@ -12,10 +12,18 @@ It should be noted that providing source code is not the only way to meet the co The license requirements for components of QB64 are as follows: Software/Library Name: QB64 (inclusive of all parts of this distribution not covered by separate licence below) -Website(s): http://www.qb64.net, http://code.google.com/p/qb64/ -License: LGPL with static linking of code required for generated programs to run permitted -License Website: http://www.gnu.org/licenses/licenses.html#LGPL -License File: license/lgpl_2_1.txt +Website(s): https://qb64.org +License: MIT +License Website: https://opensource.org/licenses/MIT +License: +Copyright 2007-2020 Galleon & The QB64 Team + +Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + Software/Library Name: MinGW 64 Website: http://mingw-w64.sourceforge.net/ diff --git a/LICENSE/license_freeglut.txt b/licenses/license_freeglut.txt similarity index 100% rename from LICENSE/license_freeglut.txt rename to licenses/license_freeglut.txt diff --git a/LICENSE/license_freetype_ftl.txt b/licenses/license_freetype_ftl.txt similarity index 100% rename from LICENSE/license_freetype_ftl.txt rename to licenses/license_freetype_ftl.txt diff --git a/LICENSE/license_gnu_gpl_2.txt b/licenses/license_gnu_gpl_2.txt similarity index 100% rename from LICENSE/license_gnu_gpl_2.txt rename to licenses/license_gnu_gpl_2.txt diff --git a/LICENSE/license_gnu_gpl_3.txt b/licenses/license_gnu_gpl_3.txt similarity index 100% rename from LICENSE/license_gnu_gpl_3.txt rename to licenses/license_gnu_gpl_3.txt diff --git a/LICENSE/license_gnu_lgpl_2.txt b/licenses/license_gnu_lgpl_2.txt similarity index 100% rename from LICENSE/license_gnu_lgpl_2.txt rename to licenses/license_gnu_lgpl_2.txt diff --git a/LICENSE/license_gnu_lgpl_2_1.txt b/licenses/license_gnu_lgpl_2_1.txt similarity index 100% rename from LICENSE/license_gnu_lgpl_2_1.txt rename to licenses/license_gnu_lgpl_2_1.txt diff --git a/LICENSE/license_lodepng.txt b/licenses/license_lodepng.txt similarity index 100% rename from LICENSE/license_lodepng.txt rename to licenses/license_lodepng.txt diff --git a/LICENSE/license_nanojpeg.txt b/licenses/license_nanojpeg.txt similarity index 100% rename from LICENSE/license_nanojpeg.txt rename to licenses/license_nanojpeg.txt diff --git a/LICENSE/license_opus.txt b/licenses/license_opus.txt similarity index 100% rename from LICENSE/license_opus.txt rename to licenses/license_opus.txt diff --git a/LICENSE/license_stbvorbis.txt b/licenses/license_stbvorbis.txt similarity index 100% rename from LICENSE/license_stbvorbis.txt rename to licenses/license_stbvorbis.txt diff --git a/licenses/license_zlib.txt b/licenses/license_zlib.txt new file mode 100644 index 000000000..77fc3ff0d --- /dev/null +++ b/licenses/license_zlib.txt @@ -0,0 +1,25 @@ +* zlib.h -- interface of the 'zlib' general purpose compression library + version 1.2.11, January 15th, 2017 + + Copyright (C) 1995-2017 Jean-loup Gailly and Mark Adler + + This software is provided 'as-is', without any express or implied + warranty. In no event will the authors be held liable for any damages + arising from the use of this software. + + Permission is granted to anyone to use this software for any purpose, + including commercial applications, and to alter it and redistribute it + freely, subject to the following restrictions: + + 1. The origin of this software must not be misrepresented; you must not + claim that you wrote the original software. If you use this software + in a product, an acknowledgment in the product documentation would be + appreciated but is not required. + 2. Altered source versions must be plainly marked as such, and must not be + misrepresented as being the original software. + 3. This notice may not be removed or altered from any source distribution. + + Jean-loup Gailly Mark Adler + jloup@gzip.org madler@alumni.caltech.edu + +*/ \ No newline at end of file diff --git a/programs/android/template/located_files.txt b/programs/android/template/located_files.txt deleted file mode 100644 index 346a6abe1..000000000 --- a/programs/android/template/located_files.txt +++ /dev/null @@ -1,4 +0,0 @@ -c:\ndk\ndk-build -c:\Program Files\Android\Android Studio\gradle\gradle-2.2.1\bin\gradle.bat -c:\Users\Robert\AppData\Local\Android\sdk1\AVD Manager.exe -c:\Program Files\Android\Android Studio\gradle\gradle-2.4\bin\gradle.bat diff --git a/programs/android/template/notes.txt b/programs/android/template/notes.txt deleted file mode 100644 index 9d80f19a9..000000000 --- a/programs/android/template/notes.txt +++ /dev/null @@ -1,178 +0,0 @@ -This is a template for creating an Android NDK project for Android Studio - -The following steps are performed on this template: - --Copy/Rename 'untitled' folder to new location - -[root] - local.properties: - -replace path references to SDK & NDK - untitled.iml - -rename file - (no other changes for root) - - [.idea] - modules.xml - -untitled - gradle.xml - -path to gradle "gradleHome" - .name - -replace content with new program name - (no other changes for .idea) - - [scopes] - (no changes required) - - [copyright] - (no changes required) - - [gradle] - (no changes required) - - [app] - app.iml - -untitled - build.gradle - -com.example.untitled - -commandLine 'c:\\ndk\\ndk-build.cmd','-C', file('src/main').absolutePath - (no other changes required) - - [src/main] - AndroidManifest.xml - -com.example.untitled - (no other changes required) - - [assets] - (no other changes required) - - [res/values] - strings.xml - -untitled - (no other changes required) - - [jni] - [temp] - -replace with a copy of everything in the temp folder - [c] - -replace with a copy of everything from the c folder - (with selective restrictions) - FILTER: - *.h - *.c - *.cpp - *.mm - EXCLUDE: - [c_compiler/*] - [*/os/*] - Application.mk - -# - #Flags for image dependency - APP_CFLAGS += -D DEPENDENCY_IMAGE_CODEC - #Flags for font dependency - APP_CFLAGS += -D DEPENDENCY_LOADFONT - #Flags for audio dependency - APP_CFLAGS += -D DEPENDENCY_AUDIO_OUT - APP_CFLAGS += -D DEPENDENCY_AUDIO_CONVERSION - APP_CFLAGS += -D DEPENDENCY_AUDIO_DECODE - - Android.mk - -# - ------------------------------------------------------------------------------------------------------------------ -include $(CLEAR_VARS) - -OPENAL_DIR := c/parts/audio/out/android/OpenAL - -AL_SOURCES := \ - $(OPENAL_DIR)/Alc/android.c \ - $(OPENAL_DIR)/OpenAL32/alAuxEffectSlot.c \ - $(OPENAL_DIR)/OpenAL32/alBuffer.c \ - $(OPENAL_DIR)/OpenAL32/alDatabuffer.c \ - $(OPENAL_DIR)/OpenAL32/alEffect.c \ - $(OPENAL_DIR)/OpenAL32/alError.c \ - $(OPENAL_DIR)/OpenAL32/alExtension.c \ - $(OPENAL_DIR)/OpenAL32/alFilter.c \ - $(OPENAL_DIR)/OpenAL32/alListener.c \ - $(OPENAL_DIR)/OpenAL32/alSource.c \ - $(OPENAL_DIR)/OpenAL32/alState.c \ - $(OPENAL_DIR)/OpenAL32/alThunk.c \ - $(OPENAL_DIR)/Alc/ALc.c \ - $(OPENAL_DIR)/Alc/alcConfig.c \ - $(OPENAL_DIR)/Alc/alcEcho.c \ - $(OPENAL_DIR)/Alc/alcModulator.c \ - $(OPENAL_DIR)/Alc/alcReverb.c \ - $(OPENAL_DIR)/Alc/alcRing.c \ - $(OPENAL_DIR)/Alc/alcThread.c \ - $(OPENAL_DIR)/Alc/ALu.c \ - $(OPENAL_DIR)/Alc/bs2b.c \ - $(OPENAL_DIR)/Alc/null.c \ - $(OPENAL_DIR)/Alc/panning.c \ - $(OPENAL_DIR)/Alc/mixer.c \ - $(OPENAL_DIR)/Alc/audiotrack.c \ - $(OPENAL_DIR)/Alc/opensles.c - - -LOCAL_MODULE := parts_audio_out -LOCAL_SRC_FILES := $(AL_SOURCES) - -LOCAL_C_INCLUDES := \ - $(HOME)/src/openal-soft/jni/OpenAL \ - $(HOME)/src/openal-soft/jni/OpenAL/include \ - $(HOME)/src/openal-soft/jni/OpenAL/OpenAL32/Include \ - c/parts/audio/out/android/OpenAL/OpenAL32/Include - -LOCAL_CFLAGS += \ - -DAL_ALEXT_PROTOTYPES \ - -MAX_SOURCES_LOW ?= 4 -MAX_SOURCES_START ?= 8 -MAX_SOURCES_HIGH ?= 64 - -LOCAL_CFLAGS += -DMAX_SOURCES_LOW=$(MAX_SOURCES_LOW) -DMAX_SOURCES_START=$(MAX_SOURCES_START) -DMAX_SOURCES_HIGH=$(MAX_SOURCES_HIGH) -LOCAL_CFLAGS += -DPOST_FROYO - -include $(BUILD_STATIC_LIBRARY) - - - - - -# PARTS/AUDIO/CONVERSION -include $(CLEAR_VARS) -LOCAL_MODULE := parts_audio_conversion -LOCAL_SRC_FILES := c/parts/audio/conversion/src/samplerate.c -LOCAL_SRC_FILES += c/parts/audio/conversion/src/src_linear.c -LOCAL_SRC_FILES += c/parts/audio/conversion/src/src_sinc.c -LOCAL_SRC_FILES += c/parts/audio/conversion/src/src_zoh.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) - -# PARTS/AUDIO/CONVERSION -include $(CLEAR_VARS) -LOCAL_MODULE := parts_audio_decode_mp3 -LOCAL_SRC_FILES := c/parts/audio/decode/mp3_mini/src/minimp3.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) - - -# PARTS/VIDEO/FONT/TTF -include $(CLEAR_VARS) -LOCAL_MODULE := parts_video_font_ttf -LOCAL_SRC_FILES := c/parts/video/font/ttf/src/freetypeamalgam.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) ------------------------------------------------------------------------------------------------------------------ - - -# - LOCAL_STATIC_LIBRARIES += parts_video_font_ttf - LOCAL_STATIC_LIBRARIES += parts_audio_out - LOCAL_STATIC_LIBRARIES += parts_audio_conversion - LOCAL_STATIC_LIBRARIES += parts_audio_decode_mp3 - - (no other changes required) diff --git a/programs/android/template/untitled/.idea/.name b/programs/android/template/untitled/.idea/.name deleted file mode 100644 index 64f7f1b5b..000000000 --- a/programs/android/template/untitled/.idea/.name +++ /dev/null @@ -1 +0,0 @@ -untitled \ No newline at end of file diff --git a/programs/android/template/untitled/.idea/compiler.xml b/programs/android/template/untitled/.idea/compiler.xml deleted file mode 100644 index 217af471a..000000000 --- a/programs/android/template/untitled/.idea/compiler.xml +++ /dev/null @@ -1,23 +0,0 @@ - - - - - - diff --git a/programs/android/template/untitled/.idea/copyright/profiles_settings.xml b/programs/android/template/untitled/.idea/copyright/profiles_settings.xml deleted file mode 100644 index e7bedf337..000000000 --- a/programs/android/template/untitled/.idea/copyright/profiles_settings.xml +++ /dev/null @@ -1,3 +0,0 @@ - - - \ No newline at end of file diff --git a/programs/android/template/untitled/.idea/encodings.xml b/programs/android/template/untitled/.idea/encodings.xml deleted file mode 100644 index e206d70d8..000000000 --- a/programs/android/template/untitled/.idea/encodings.xml +++ /dev/null @@ -1,5 +0,0 @@ - - - - - diff --git a/programs/android/template/untitled/.idea/gradle.xml b/programs/android/template/untitled/.idea/gradle.xml deleted file mode 100644 index dffab7afd..000000000 --- a/programs/android/template/untitled/.idea/gradle.xml +++ /dev/null @@ -1,19 +0,0 @@ - - - - - - - diff --git a/programs/android/template/untitled/.idea/misc.xml b/programs/android/template/untitled/.idea/misc.xml deleted file mode 100644 index 9076de565..000000000 --- a/programs/android/template/untitled/.idea/misc.xml +++ /dev/null @@ -1,10 +0,0 @@ - - - - - - - - - - diff --git a/programs/android/template/untitled/.idea/modules.xml b/programs/android/template/untitled/.idea/modules.xml deleted file mode 100644 index e7542c636..000000000 --- a/programs/android/template/untitled/.idea/modules.xml +++ /dev/null @@ -1,10 +0,0 @@ - - - - - - - - - - diff --git a/programs/android/template/untitled/.idea/scopes/scope_settings.xml b/programs/android/template/untitled/.idea/scopes/scope_settings.xml deleted file mode 100644 index 922003b84..000000000 --- a/programs/android/template/untitled/.idea/scopes/scope_settings.xml +++ /dev/null @@ -1,5 +0,0 @@ - - - - \ No newline at end of file diff --git a/programs/android/template/untitled/.idea/vcs.xml b/programs/android/template/untitled/.idea/vcs.xml deleted file mode 100644 index def6a6a18..000000000 --- a/programs/android/template/untitled/.idea/vcs.xml +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/programs/android/template/untitled/app/app.iml b/programs/android/template/untitled/app/app.iml deleted file mode 100644 index d82d1de57..000000000 --- a/programs/android/template/untitled/app/app.iml +++ /dev/null @@ -1,89 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/programs/android/template/untitled/app/build.gradle b/programs/android/template/untitled/app/build.gradle deleted file mode 100644 index 4c7d72451..000000000 --- a/programs/android/template/untitled/app/build.gradle +++ /dev/null @@ -1,40 +0,0 @@ -apply plugin: 'com.android.application' - -android { - compileSdkVersion 21 - buildToolsVersion "21.1.2" - - - sourceSets.main { - jni.srcDirs = [] - jniLibs.srcDir 'src/main/libs' - } - - defaultConfig { - applicationId "com.example.untitled" - minSdkVersion 11 - targetSdkVersion 11 - - ndk { - //moduleName "native-activity" - stl "stlport_static" - } - } - - buildTypes { - release { - minifyEnabled false - proguardFiles getDefaultProguardFile('proguard-android.txt'), 'proguard-rules.txt' - } - } - - // call regular ndk-build(.cmd) script from app directory - task ndkBuild(type: Exec) { - commandLine '$QB64_NDK_BUILD_CMD_FILE$','-C', file('src/main').absolutePath - } - - tasks.withType(JavaCompile) { - compileTask -> compileTask.dependsOn ndkBuild - } - -} diff --git a/programs/android/template/untitled/app/src/main/AndroidManifest.xml b/programs/android/template/untitled/app/src/main/AndroidManifest.xml deleted file mode 100644 index cbce140ac..000000000 --- a/programs/android/template/untitled/app/src/main/AndroidManifest.xml +++ /dev/null @@ -1,34 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/programs/android/template/untitled/app/src/main/Thumbs.db b/programs/android/template/untitled/app/src/main/Thumbs.db deleted file mode 100644 index 73bb945d0..000000000 Binary files a/programs/android/template/untitled/app/src/main/Thumbs.db and /dev/null differ diff --git a/programs/android/template/untitled/app/src/main/assets/Thumbs.db b/programs/android/template/untitled/app/src/main/assets/Thumbs.db deleted file mode 100644 index 5766945bd..000000000 Binary files a/programs/android/template/untitled/app/src/main/assets/Thumbs.db and /dev/null differ diff --git a/programs/android/template/untitled/app/src/main/jni/Android.mk b/programs/android/template/untitled/app/src/main/jni/Android.mk deleted file mode 100644 index 1d47fb236..000000000 --- a/programs/android/template/untitled/app/src/main/jni/Android.mk +++ /dev/null @@ -1,199 +0,0 @@ -# Copyright (C) 2010 The Android Open Source Project -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. -# -LOCAL_PATH := $(call my-dir) - - -# - - -include $(CLEAR_VARS) - -OPENAL_DIR := c/parts/audio/out/android/OpenAL - -AL_SOURCES := \ - $(OPENAL_DIR)/Alc/android.c \ - $(OPENAL_DIR)/OpenAL32/alAuxEffectSlot.c \ - $(OPENAL_DIR)/OpenAL32/alBuffer.c \ - $(OPENAL_DIR)/OpenAL32/alDatabuffer.c \ - $(OPENAL_DIR)/OpenAL32/alEffect.c \ - $(OPENAL_DIR)/OpenAL32/alError.c \ - $(OPENAL_DIR)/OpenAL32/alExtension.c \ - $(OPENAL_DIR)/OpenAL32/alFilter.c \ - $(OPENAL_DIR)/OpenAL32/alListener.c \ - $(OPENAL_DIR)/OpenAL32/alSource.c \ - $(OPENAL_DIR)/OpenAL32/alState.c \ - $(OPENAL_DIR)/OpenAL32/alThunk.c \ - $(OPENAL_DIR)/Alc/ALc.c \ - $(OPENAL_DIR)/Alc/alcConfig.c \ - $(OPENAL_DIR)/Alc/alcEcho.c \ - $(OPENAL_DIR)/Alc/alcModulator.c \ - $(OPENAL_DIR)/Alc/alcReverb.c \ - $(OPENAL_DIR)/Alc/alcRing.c \ - $(OPENAL_DIR)/Alc/alcThread.c \ - $(OPENAL_DIR)/Alc/ALu.c \ - $(OPENAL_DIR)/Alc/bs2b.c \ - $(OPENAL_DIR)/Alc/null.c \ - $(OPENAL_DIR)/Alc/panning.c \ - $(OPENAL_DIR)/Alc/mixer.c \ - $(OPENAL_DIR)/Alc/audiotrack.c \ - $(OPENAL_DIR)/Alc/opensles.c - - -LOCAL_MODULE := parts_audio_out -LOCAL_SRC_FILES := $(AL_SOURCES) - -LOCAL_C_INCLUDES := \ - $(HOME)/src/openal-soft/jni/OpenAL \ - $(HOME)/src/openal-soft/jni/OpenAL/include \ - $(HOME)/src/openal-soft/jni/OpenAL/OpenAL32/Include \ - c/parts/audio/out/android/OpenAL/OpenAL32/Include - -LOCAL_CFLAGS += \ - -DAL_ALEXT_PROTOTYPES \ - -MAX_SOURCES_LOW ?= 4 -MAX_SOURCES_START ?= 8 -MAX_SOURCES_HIGH ?= 64 - -LOCAL_CFLAGS += -DMAX_SOURCES_LOW=$(MAX_SOURCES_LOW) -DMAX_SOURCES_START=$(MAX_SOURCES_START) -DMAX_SOURCES_HIGH=$(MAX_SOURCES_HIGH) -LOCAL_CFLAGS += -DPOST_FROYO - -include $(BUILD_STATIC_LIBRARY) - -# PARTS/AUDIO/CONVERSION -include $(CLEAR_VARS) -LOCAL_MODULE := parts_audio_conversion -LOCAL_SRC_FILES := c/parts/audio/conversion/src/resample.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) - -# PARTS/AUDIO/DECODE/MP3 -include $(CLEAR_VARS) -LOCAL_MODULE := parts_audio_decode_mp3 -LOCAL_SRC_FILES := c/parts/audio/decode/mp3_mini/src/minimp3.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) - -# PARTS/AUDIO/DECODE/OGG -include $(CLEAR_VARS) -LOCAL_MODULE := parts_audio_decode_ogg -LOCAL_SRC_FILES := c/parts/audio/decode/ogg/src/stb_vorbis.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) - -# PARTS/VIDEO/FONT/TTF -include $(CLEAR_VARS) -LOCAL_MODULE := parts_video_font_ttf -LOCAL_SRC_FILES := c/parts/video/font/ttf/src/freetypeamalgam.c -#LOCAL_CFLAGS := -#LOCAL_C_INCLUDES := -include $(BUILD_STATIC_LIBRARY) -#include $(PREBUILT_STATIC_LIBRARY) - - -include $(CLEAR_VARS) - - - -LOCAL_MODULE := native-activity - -LOCAL_SRC_FILES := main.cpp c/qbx.cpp -#LOCAL_SRC_FILES := main.c GL/glew.c tut.cpp - -#GLU ES -LOCAL_C_INCLUDES += $(LOCAL_PATH)/c/parts/core/glues/src -LOCAL_SRC_FILES += c/parts/core/glues/src/glues_error.c -LOCAL_SRC_FILES += c/parts/core/glues/src/glues_mipmap.c -LOCAL_SRC_FILES += c/parts/core/glues/src/glues_project.c -LOCAL_SRC_FILES += c/parts/core/glues/src/glues_quad.c -LOCAL_SRC_FILES += c/parts/core/glues/src/glues_registry.c -#(libtess folder not added, probably not required) - -#FreeGlut -LOCAL_C_INCLUDES += $(LOCAL_PATH)/c/parts/core/android_core/include -LOCAL_C_INCLUDES += $(LOCAL_PATH)/c/parts/core/android_core/src - -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_callbacks.c -#LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_cursor.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_display.c -#LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_ext.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_font_data.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_gamemode.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_init.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_internal.h -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_input_devices.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_joystick.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_main.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_misc.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_overlay.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_spaceball.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_state.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_stroke_mono_roman.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_stroke_roman.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_structure.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_videoresize.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_window.c - -#LOCAL_SRC_FILES += c/parts/core/android_core/src/fg_menu.c - -LOCAL_SRC_FILES += c/parts/core/android_core/src/util/xparsegeometry_repl.c - - -#===ANDROID SPECIFIC FILES (also required) -LOCAL_SRC_FILES += c/parts/core/android_core/src/egl/fg_internal_egl.h -LOCAL_SRC_FILES += c/parts/core/android_core/src/egl/fg_display_egl.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/egl/fg_init_egl.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/egl/fg_structure_egl.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/egl/fg_window_egl.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/native_app_glue/android_native_app_glue.h -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_runtime_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_gamemode_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_input_devices_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_joystick_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_main_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_spaceball_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_state_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_window_android.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/opengles_stubs.c -LOCAL_SRC_FILES += c/parts/core/android_core/src/android/fg_internal_android.h - - - -LOCAL_LDLIBS := -llog -landroid -lEGL -lGLESv1_CM -lOpenSLES - - -#LOCAL_LDLIBS := -llog -landroid -lEGL -lGLESv2 - - - -LOCAL_STATIC_LIBRARIES := android_native_app_glue -LOCAL_CFLAGS := -w - -# -LOCAL_STATIC_LIBRARIES += parts_video_font_ttf -LOCAL_STATIC_LIBRARIES += parts_audio_out -LOCAL_STATIC_LIBRARIES += parts_audio_conversion -LOCAL_STATIC_LIBRARIES += parts_audio_decode_mp3 -LOCAL_STATIC_LIBRARIES += parts_audio_decode_ogg -include $(BUILD_SHARED_LIBRARY) - -$(call import-module,android/native_app_glue) diff --git a/programs/android/template/untitled/app/src/main/jni/Application.mk b/programs/android/template/untitled/app/src/main/jni/Application.mk deleted file mode 100644 index b35c97cf3..000000000 --- a/programs/android/template/untitled/app/src/main/jni/Application.mk +++ /dev/null @@ -1,38 +0,0 @@ -APP_PLATFORM := android-10 -#APP_PLATFORM := android-9 - -#APP_ABI := armeabi -# Android 4+ (Ice Cream Sandwich) requires an ARMv7 processor. (Some custom versions of Android 4+ have been made for ARMv6) -# Therefore, there isn't much point producing armeabi binaries - -APP_ABI := armeabi-v7a -APP_ABI += x86 - -APP_STL := gnustl_static - -APP_CFLAGS := -DANDROID -APP_CFLAGS += -DHAVE_STDBOOL_H -APP_CFLAGS += -DNEED_XPARSEGEOMETRY_IMPL -APP_CFLAGS += -DHAVE_XPARSEGEOMETRY -APP_CFLAGS += -DEGL_VERSION_1_0 -APP_CFLAGS += -D GL_GLEXT_PROTOTYPES - - -APP_CFLAGS += -DVERSION_MAJOR=3 -APP_CFLAGS += -DVERSION_MINOR=0 -APP_CFLAGS += -DVERSION_PATCH=0 - - -# - -#Flags for image dependency -APP_CFLAGS += -D DEPENDENCY_IMAGE_CODEC - -#Flags for font dependency -APP_CFLAGS += -D DEPENDENCY_LOADFONT - -#Flags for audio dependency -APP_CFLAGS += -D DEPENDENCY_AUDIO_OUT -APP_CFLAGS += -D DEPENDENCY_AUDIO_CONVERSION -APP_CFLAGS += -D DEPENDENCY_AUDIO_DECODE - diff --git a/programs/android/template/untitled/app/src/main/jni/main.cpp b/programs/android/template/untitled/app/src/main/jni/main.cpp deleted file mode 100644 index 32d79ea15..000000000 --- a/programs/android/template/untitled/app/src/main/jni/main.cpp +++ /dev/null @@ -1,19 +0,0 @@ -#include -#include - -#include -#include - -#include -#include - - -#define LOGI(...) ((void)__android_log_print(ANDROID_LOG_INFO, "FreeGLUT", __VA_ARGS__)) - -/* -#include -#include -#include -*/ -#include "c/libqb.cpp" - \ No newline at end of file diff --git a/programs/android/template/untitled/app/src/main/res/values/strings.xml b/programs/android/template/untitled/app/src/main/res/values/strings.xml deleted file mode 100644 index cdeb37251..000000000 --- a/programs/android/template/untitled/app/src/main/res/values/strings.xml +++ /dev/null @@ -1,4 +0,0 @@ - - - untitled - diff --git a/programs/android/template/untitled/build.gradle b/programs/android/template/untitled/build.gradle deleted file mode 100644 index 6a5c233c5..000000000 --- a/programs/android/template/untitled/build.gradle +++ /dev/null @@ -1,15 +0,0 @@ -// Top-level build file where you can add configuration options common to all sub-projects/modules. -buildscript { - repositories { - jcenter() - } - dependencies { - classpath 'com.android.tools.build:gradle:1.3.0' - } -} - -allprojects { - repositories { - jcenter() - } -} diff --git a/programs/android/template/untitled/gradle.properties b/programs/android/template/untitled/gradle.properties deleted file mode 100644 index d72861d28..000000000 --- a/programs/android/template/untitled/gradle.properties +++ /dev/null @@ -1 +0,0 @@ -android.useDeprecatedNdk=true \ No newline at end of file diff --git a/programs/android/template/untitled/gradle/wrapper/gradle-wrapper.jar b/programs/android/template/untitled/gradle/wrapper/gradle-wrapper.jar deleted file mode 100644 index 8c0fb64a8..000000000 Binary files a/programs/android/template/untitled/gradle/wrapper/gradle-wrapper.jar and /dev/null differ diff --git a/programs/android/template/untitled/gradle/wrapper/gradle-wrapper.properties b/programs/android/template/untitled/gradle/wrapper/gradle-wrapper.properties deleted file mode 100644 index 0c71e760d..000000000 --- a/programs/android/template/untitled/gradle/wrapper/gradle-wrapper.properties +++ /dev/null @@ -1,6 +0,0 @@ -#Wed Apr 10 15:27:10 PDT 2013 -distributionBase=GRADLE_USER_HOME -distributionPath=wrapper/dists -zipStoreBase=GRADLE_USER_HOME -zipStorePath=wrapper/dists -distributionUrl=https\://services.gradle.org/distributions/gradle-2.2.1-all.zip diff --git a/programs/android/template/untitled/gradlew b/programs/android/template/untitled/gradlew deleted file mode 100644 index 91a7e269e..000000000 --- a/programs/android/template/untitled/gradlew +++ /dev/null @@ -1,164 +0,0 @@ -#!/usr/bin/env bash - -############################################################################## -## -## Gradle start up script for UN*X -## -############################################################################## - -# Add default JVM options here. You can also use JAVA_OPTS and GRADLE_OPTS to pass JVM options to this script. -DEFAULT_JVM_OPTS="" - -APP_NAME="Gradle" -APP_BASE_NAME=`basename "$0"` - -# Use the maximum available, or set MAX_FD != -1 to use that value. -MAX_FD="maximum" - -warn ( ) { - echo "$*" -} - -die ( ) { - echo - echo "$*" - echo - exit 1 -} - -# OS specific support (must be 'true' or 'false'). -cygwin=false -msys=false -darwin=false -case "`uname`" in - CYGWIN* ) - cygwin=true - ;; - Darwin* ) - darwin=true - ;; - MINGW* ) - msys=true - ;; -esac - -# For Cygwin, ensure paths are in UNIX format before anything is touched. -if $cygwin ; then - [ -n "$JAVA_HOME" ] && JAVA_HOME=`cygpath --unix "$JAVA_HOME"` -fi - -# Attempt to set APP_HOME -# Resolve links: $0 may be a link -PRG="$0" -# Need this for relative symlinks. -while [ -h "$PRG" ] ; do - ls=`ls -ld "$PRG"` - link=`expr "$ls" : '.*-> \(.*\)$'` - if expr "$link" : '/.*' > /dev/null; then - PRG="$link" - else - PRG=`dirname "$PRG"`"/$link" - fi -done -SAVED="`pwd`" -cd "`dirname \"$PRG\"`/" >&- -APP_HOME="`pwd -P`" -cd "$SAVED" >&- - -CLASSPATH=$APP_HOME/gradle/wrapper/gradle-wrapper.jar - -# Determine the Java command to use to start the JVM. -if [ -n "$JAVA_HOME" ] ; then - if [ -x "$JAVA_HOME/jre/sh/java" ] ; then - # IBM's JDK on AIX uses strange locations for the executables - JAVACMD="$JAVA_HOME/jre/sh/java" - else - JAVACMD="$JAVA_HOME/bin/java" - fi - if [ ! -x "$JAVACMD" ] ; then - die "ERROR: JAVA_HOME is set to an invalid directory: $JAVA_HOME - -Please set the JAVA_HOME variable in your environment to match the -location of your Java installation." - fi -else - JAVACMD="java" - which java >/dev/null 2>&1 || die "ERROR: JAVA_HOME is not set and no 'java' command could be found in your PATH. - -Please set the JAVA_HOME variable in your environment to match the -location of your Java installation." -fi - -# Increase the maximum file descriptors if we can. -if [ "$cygwin" = "false" -a "$darwin" = "false" ] ; then - MAX_FD_LIMIT=`ulimit -H -n` - if [ $? -eq 0 ] ; then - if [ "$MAX_FD" = "maximum" -o "$MAX_FD" = "max" ] ; then - MAX_FD="$MAX_FD_LIMIT" - fi - ulimit -n $MAX_FD - if [ $? -ne 0 ] ; then - warn "Could not set maximum file descriptor limit: $MAX_FD" - fi - else - warn "Could not query maximum file descriptor limit: $MAX_FD_LIMIT" - fi -fi - -# For Darwin, add options to specify how the application appears in the dock -if $darwin; then - GRADLE_OPTS="$GRADLE_OPTS \"-Xdock:name=$APP_NAME\" \"-Xdock:icon=$APP_HOME/media/gradle.icns\"" -fi - -# For Cygwin, switch paths to Windows format before running java -if $cygwin ; then - APP_HOME=`cygpath --path --mixed "$APP_HOME"` - CLASSPATH=`cygpath --path --mixed "$CLASSPATH"` - - # We build the pattern for arguments to be converted via cygpath - ROOTDIRSRAW=`find -L / -maxdepth 1 -mindepth 1 -type d 2>/dev/null` - SEP="" - for dir in $ROOTDIRSRAW ; do - ROOTDIRS="$ROOTDIRS$SEP$dir" - SEP="|" - done - OURCYGPATTERN="(^($ROOTDIRS))" - # Add a user-defined pattern to the cygpath arguments - if [ "$GRADLE_CYGPATTERN" != "" ] ; then - OURCYGPATTERN="$OURCYGPATTERN|($GRADLE_CYGPATTERN)" - fi - # Now convert the arguments - kludge to limit ourselves to /bin/sh - i=0 - for arg in "$@" ; do - CHECK=`echo "$arg"|egrep -c "$OURCYGPATTERN" -` - CHECK2=`echo "$arg"|egrep -c "^-"` ### Determine if an option - - if [ $CHECK -ne 0 ] && [ $CHECK2 -eq 0 ] ; then ### Added a condition - eval `echo args$i`=`cygpath --path --ignore --mixed "$arg"` - else - eval `echo args$i`="\"$arg\"" - fi - i=$((i+1)) - done - case $i in - (0) set -- ;; - (1) set -- "$args0" ;; - (2) set -- "$args0" "$args1" ;; - (3) set -- "$args0" "$args1" "$args2" ;; - (4) set -- "$args0" "$args1" "$args2" "$args3" ;; - (5) set -- "$args0" "$args1" "$args2" "$args3" "$args4" ;; - (6) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" ;; - (7) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" "$args6" ;; - (8) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" "$args6" "$args7" ;; - (9) set -- "$args0" "$args1" "$args2" "$args3" "$args4" "$args5" "$args6" "$args7" "$args8" ;; - esac -fi - -# Split up the JVM_OPTS And GRADLE_OPTS values into an array, following the shell quoting and substitution rules -function splitJvmOpts() { - JVM_OPTS=("$@") -} -eval splitJvmOpts $DEFAULT_JVM_OPTS $JAVA_OPTS $GRADLE_OPTS -JVM_OPTS[${#JVM_OPTS[*]}]="-Dorg.gradle.appname=$APP_BASE_NAME" - -exec "$JAVACMD" "${JVM_OPTS[@]}" -classpath "$CLASSPATH" org.gradle.wrapper.GradleWrapperMain "$@" diff --git a/programs/android/template/untitled/gradlew.bat b/programs/android/template/untitled/gradlew.bat deleted file mode 100644 index 8a0b282aa..000000000 --- a/programs/android/template/untitled/gradlew.bat +++ /dev/null @@ -1,90 +0,0 @@ -@if "%DEBUG%" == "" @echo off -@rem ########################################################################## -@rem -@rem Gradle startup script for Windows -@rem -@rem ########################################################################## - -@rem Set local scope for the variables with windows NT shell -if "%OS%"=="Windows_NT" setlocal - -@rem Add default JVM options here. You can also use JAVA_OPTS and GRADLE_OPTS to pass JVM options to this script. -set DEFAULT_JVM_OPTS= - -set DIRNAME=%~dp0 -if "%DIRNAME%" == "" set DIRNAME=. -set APP_BASE_NAME=%~n0 -set APP_HOME=%DIRNAME% - -@rem Find java.exe -if defined JAVA_HOME goto findJavaFromJavaHome - -set JAVA_EXE=java.exe -%JAVA_EXE% -version >NUL 2>&1 -if "%ERRORLEVEL%" == "0" goto init - -echo. -echo ERROR: JAVA_HOME is not set and no 'java' command could be found in your PATH. -echo. -echo Please set the JAVA_HOME variable in your environment to match the -echo location of your Java installation. - -goto fail - -:findJavaFromJavaHome -set JAVA_HOME=%JAVA_HOME:"=% -set JAVA_EXE=%JAVA_HOME%/bin/java.exe - -if exist "%JAVA_EXE%" goto init - -echo. -echo ERROR: JAVA_HOME is set to an invalid directory: %JAVA_HOME% -echo. -echo Please set the JAVA_HOME variable in your environment to match the -echo location of your Java installation. - -goto fail - -:init -@rem Get command-line arguments, handling Windowz variants - -if not "%OS%" == "Windows_NT" goto win9xME_args -if "%@eval[2+2]" == "4" goto 4NT_args - -:win9xME_args -@rem Slurp the command line arguments. -set CMD_LINE_ARGS= -set _SKIP=2 - -:win9xME_args_slurp -if "x%~1" == "x" goto execute - -set CMD_LINE_ARGS=%* -goto execute - -:4NT_args -@rem Get arguments from the 4NT Shell from JP Software -set CMD_LINE_ARGS=%$ - -:execute -@rem Setup the command line - -set CLASSPATH=%APP_HOME%\gradle\wrapper\gradle-wrapper.jar - -@rem Execute Gradle -"%JAVA_EXE%" %DEFAULT_JVM_OPTS% %JAVA_OPTS% %GRADLE_OPTS% "-Dorg.gradle.appname=%APP_BASE_NAME%" -classpath "%CLASSPATH%" org.gradle.wrapper.GradleWrapperMain %CMD_LINE_ARGS% - -:end -@rem End local scope for the variables with windows NT shell -if "%ERRORLEVEL%"=="0" goto mainEnd - -:fail -rem Set variable GRADLE_EXIT_CONSOLE if you need the _script_ return code instead of -rem the _cmd.exe /c_ return code! -if not "" == "%GRADLE_EXIT_CONSOLE%" exit 1 -exit /b 1 - -:mainEnd -if "%OS%"=="Windows_NT" endlocal - -:omega diff --git a/programs/android/template/untitled/local.properties b/programs/android/template/untitled/local.properties deleted file mode 100644 index f2e7798e8..000000000 --- a/programs/android/template/untitled/local.properties +++ /dev/null @@ -1,8 +0,0 @@ -## This file must *NOT* be checked into Version Control Systems, -# as it contains information specific to your local configuration. -# -# Location of the SDK. This is only used by Gradle. -# -#Sun Apr 05 17:45:27 AEST 2015 -sdk.dir=C\:\\Users\\Robert\\AppData\\Local\\Android\\sdk1 -ndk.dir=C\:\\ndk \ No newline at end of file diff --git a/programs/android/template/untitled/settings.gradle b/programs/android/template/untitled/settings.gradle deleted file mode 100644 index e7b4def49..000000000 --- a/programs/android/template/untitled/settings.gradle +++ /dev/null @@ -1 +0,0 @@ -include ':app' diff --git a/programs/android/template/untitled/untitled.iml b/programs/android/template/untitled/untitled.iml deleted file mode 100644 index 0bb6048ae..000000000 --- a/programs/android/template/untitled/untitled.iml +++ /dev/null @@ -1,19 +0,0 @@ - - - - - - - - - - - - - - - - - - diff --git a/programs/samples/misc/3dballs.bas b/programs/samples/misc/3dballs.bas deleted file mode 100644 index ac372477f..000000000 --- a/programs/samples/misc/3dballs.bas +++ /dev/null @@ -1,15 +0,0 @@ -'balls by Antoni Gual agual@eic.ictnet.es -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ -1 IF p% >= 16 THEN 3 ELSE IF p% = 0 THEN SCREEN 12 ELSE PALETTE p% - 1, b& -2 READ p%, b& -3 IF p% < 16 THEN GOTO 9 ELSE a$ = MKI$(RND * 640 + 1) + MKI$(RND * 480) + MKS$((RND * 60) + 20) + MKI$(INT(RND * 4) * 4) + MKS$(RND * 3.141592) + MKS$(RND * 3.141592 / 1.5) -4 FOR i% = -INT(CVS(MID$(a$, 5))) TO INT(CVS(MID$(a$, 5))) - 5 FOR j% = -INT(SQR(CVS(MID$(a$, 5)) ^ 2 - i% ^ 2)) TO INT(SQR(CVS(MID$(a$, 5)) ^ 2 - i% ^ 2)) -6 c! = 3 * (COS(CVS(MID$(a$, 11))) * SIN(CVS(MID$(a$, 15))) * i% / CVS(MID$(a$, 5)) + SIN(CVS(MID$(a$, 11))) * SIN(CVS(MID$(a$, 15))) * j% / CVS(MID$(a$, 5)) + COS(CVS(MID$(a$, 15))) * SQR(1.11 - (i% / CVS(MID$(a$, 5))) ^ 2 - (j% / CVS(MID$(a$, 5) _ -)) ^ 2)) - 7 PSET (CVI(MID$(a$, 1)) + i%, CVI(MID$(a$, 3)) + j%), 1 + CVI(MID$(a$, 9)) + INT(c!) + (RND > (c! - INT(c!))) -8 NEXT j%, i% -9 IF LEN(INKEY$) = 0 THEN GOTO 1 ELSE DATA 1,&h5,2,&h10,3,&h20,4,&h30,5,&h500,6,&h1000,7,&h2000,8,&h3000,9,&h50000,10,&h100000,11,&h200000,12,&h300000,13,&h50505,14,&h101010,15,&h202020,16,&h303030,17,0 - - diff --git a/programs/samples/misc/3dexp2.bas b/programs/samples/misc/3dexp2.bas deleted file mode 100644 index 10f7d4b11..000000000 --- a/programs/samples/misc/3dexp2.bas +++ /dev/null @@ -1,435 +0,0 @@ -'3DEXP2.BAS By Rich Geldreich June 2nd, 1992 -'A fast, QuickBASIC 4.5 3-D wireframe animation program. -'Compile it for maximum speed! -'If you have any questions or ideas, please write/call: - -'Rich Geldreich -'410 Market St. -'Gloucester City, NJ 08030 -'(609)-742-8752 - -'The following program is in the public domain! Have fun! -'Also look at VECT.ASM -DEFINT A-Z -TYPE LineType - X AS INTEGER - Y AS INTEGER - Z AS INTEGER - X1 AS INTEGER - Y1 AS INTEGER - Z1 AS INTEGER -END TYPE -DIM Points(100) AS LineType -DIM Xn(100), Yn(100), Zn(100) -DIM Xs1(100), Ys1(100), Xe1(100), Ye1(100) -DIM X(100), Y(100), Z(100), Pointers1(100), Pointers2(100), Sp(100), Zp(100) -DIM R(100), B(63), B1(63) -DIM Cosine&(360), Sine&(360) -CLS -PRINT "3-D Craft v1a" -PRINT "By Rich Geldreich June 2nd, 1992" -PRINT -PRINT "Keys to use: (Turn NUMLOCK on!)" -PRINT "Q...............Quits" -PRINT "Numeric keypad..Controls your position(press 5 on the keypad" -PRINT " to completly stop yourself) " -PRINT "-...............Forward exceleration" -PRINT "+...............Backward exceleration" -PRINT "Arrow keys......Controls the rotation of the craft" -PRINT "F...............Excelerates the craft (Forward)" -PRINT "B...............Slows the craft (Backward)" -PRINT "S...............Stops the craft" -PRINT "A...............Toggles Auto Center, use this when you lose"; -PRINT " the craft" -PRINT "C...............Stops the craft's rotation" -PRINT "V...............Resets the craft to starting position" -PRINT -PRINT "Wait a sec..." - -'The following for/next loop makes a sine & cosine table. -'Each sine & cosine is multiplied by 1024 and stored as long integers. -'This is done so that we don't have to use any slow floating point -'math at run time. -A = 0 -FOR A! = 0 TO 359 / 57.29577951# STEP 1 / 57.29577951# - Cosine&(A) = INT(.5 + COS(A!) * 1024) - Sine&(A) = INT(.5 + SIN(A!) * 1024): A = A + 1 -NEXT -'Next we read in all of the lines that are in the object... -FOR A = 0 TO 44 - READ Points(A).X, Points(A).Y, Points(A).Z - READ Points(A).X1, Points(A).Y1, Points(A).Z1 -NEXT -'Here comes the hard part... Consider this scenario: - -'We have two connected lines, like this: - -' 1--------2 and 3 -' | -' | -' | -' | -' 4 -'Where 1,2, 3, & 4 are the starting and ending points of each line. -'The first line consists of points 1 & 2 and the second line -'is made of points 3 & 4. -'So, you ask, what's wrong? Nothing, really, but don't you see that -'points 2 and 3 are really at the sample place? Why rotate them twice, -'that would be a total waste of time? The following code eliminates such -'occurrences from the line table. (great explanation, huh?) - -NumberLines = 45 -'take all of the starting & ending points and put them in one big -'array... -Np = 0 -FOR A = 0 TO NumberLines - 1 - X(Np) = Points(A).X - Y(Np) = Points(A).Y - Z(Np) = Points(A).Z - Np = Np + 1 - X(Np) = Points(A).X1 - Y(Np) = Points(A).Y1 - Z(Np) = Points(A).Z1 - Np = Np + 1 -NEXT -'Now set up two sets of pointers that point to each point that a line -'is made of... (in other words, scan for the first occurrence of each -'starting and ending point in the point array we just built...) -FOR A = 0 TO NumberLines - 1 - Xs = Points(A).X - Ys = Points(A).Y - Zs = Points(A).Z 'get the 3 coordinates of the start point - FOR B = 0 TO Np - 1 'scan the point array - IF X(B) = Xs AND Y(B) = Ys AND Z(B) = Zs THEN - Pointers1(A) = B 'set the pointer to point to the - EXIT FOR 'point we have just found - END IF - NEXT - Xs = Points(A).X1 'do the same thing that we did above - Ys = Points(A).Y1 'except scan for the ending point - Zs = Points(A).Z1 'of each line - FOR B = 0 TO Np - 1 - IF X(B) = Xs AND Y(B) = Ys AND Z(B) = Zs THEN - Pointers2(A) = B - EXIT FOR - END IF - NEXT -NEXT -'Okay, were almost done! All we have to do now is to build a table -'that tells us which points to actually rotate... -Nr = 0 -FOR A = 0 TO NumberLines - 1 - F1 = Pointers1(A) 'get staring & ending point number - S1 = Pointers2(A) - IF Nr = 0 THEN 'if this is the first point then it of course - 'has to be rotated - R(Nr) = F1: Nr = Nr + 1 - ELSE - Found = 0 'scan to see if this point already exists... - FOR B = 0 TO Nr - 1 - IF R(B) = F1 THEN - Found = -1: EXIT FOR 'shoot, it's already here! - END IF - NEXT - IF NOT Found THEN R(Nr) = F1: Nr = Nr + 1 'point the point - 'in the array it we - END IF 'can't find it... - - Found = 0 'now look for the ending point - FOR B = 0 TO Nr - 1 - IF R(B) = S1 THEN - Found = -1: EXIT FOR - END IF - NEXT - IF NOT Found THEN R(Nr) = S1: Nr = Nr + 1 -NEXT -FOR A = 0 TO 63 - B(A) = (4 * A) \ 8 - B1(A) = A - B(A) -NEXT -PRINT "Press any key to begin..." -A$ = INPUT$(1) - -Deg1 = 0: Deg2 = 0: D1 = 0: D2 = 0 - -Spos = -200: Mypos = 0 - -Mx = 0: My = 0: Mz = 0: Ox = 0: Oy = 0: Oz = -260 - -NumberOfFrames = 0 -DEF SEG = &H40 -StartTime = PEEK(&H6C) - -SCREEN 13 -FOR A = 0 TO 63 - OUT &H3C7, A: OUT &H3C8, A: OUT &H3C9, A: OUT &H3C9, 0: OUT &H3C9, 0 -NEXT - -DO - - - - Deg1 = (Deg1 + D1) MOD 360 - Deg2 = (Deg2 + D2) MOD 360 - IF Deg1 < 0 THEN Deg1 = Deg1 + 360 - IF Deg2 < 0 THEN Deg2 = Deg2 + 360 - - C1& = Cosine&(Deg1): S1& = Sine&(Deg1) - C2& = Cosine&(Deg2): S2& = Sine&(Deg2) - C3& = Cosine&(Deg3): S3& = Sine&(Deg3) - 'Deg3 = (Deg3 + 5) MOD 360 - - X = Speed: Y = 0: Z = 0 - - X1 = (X * C1&) \ 1024: Y1 = (X * S1&) \ 1024 - X2 = (X1 * C2&) \ 1024: Zn = (X1 * S2&) \ 1024 - - Y3 = (Y1 * C3& - Zn * S3&) \ 1024 - Z3 = (Y1 * S3& + Zn * C3&) \ 1024 - - Ox = Ox + X2: Oy = Oy + Y3: Oz = Oz + Z3 - IF Oz > 32000 THEN Oz = 32000 - IF Oz < -32000 THEN Oz = -32000 - IF Ox > 32000 THEN Ox = 32000 - IF Ox < -32000 THEN Ox = -32000 - IF Oy > 32000 THEN Oy = 32000 - IF Oy < -32000 THEN Oy = -32000 - - - IF AtLoc THEN - Mx = Mx + (Ox - Mx) \ 4 - My = My + (Oy - My) \ 4 - Mz = Mz + ((Oz + 200) - Mz) \ 4 - ELSE - 'adjust the users position based on how much he is moving... - Mz = Mz + Mzm: Mx = Mx + Mxm: My = My + Mym - IF Mz > 32000 THEN Mz = 32000 - IF Mz < -32000 THEN Mz = -32000 - IF Mx > 32000 THEN Mx = 32000 - IF Mx < -32000 THEN Mx = -32000 - IF My > 32000 THEN My = 32000 - IF My < -32000 THEN My = -32000 - END IF - - LOCATE 1, 1: PRINT A$ - - MaxZ = -32768 - LowZ = 32767 - FOR A = 0 TO Nr - 1 - R = R(A) - Xo = X(R): Yo = Y(R): Zo = Z(R) - - X1 = (Xo * C1& - Yo * S1&) \ 1024 - Y1 = (Xo * S1& + Yo * C1&) \ 1024 - - X2& = (X1 * C2& - Zo * S2&) \ 1024 - Mx + Ox - Z2 = (X1 * S2& + Zo * C2&) \ 1024 - - Y3& = (Y1 * C3& - Z2 * S3&) \ 1024 - My + Oy - Z4 = (Y1 * S3& + Z2 * C3&) \ 1024 - - Z3 = Z4 - Mz + Oz - - - Zn(R) = Z4 - IF Z4 > MaxZ THEN MaxZ = Z4 - IF Z4 < LowZ THEN LowZ = Z4 - - 'X2&,Y3&,Z3 - - 'if the point is too close(or behind) the viewer then - 'don't draw it... - IF (Mypos - Z3) < 15 THEN - Xn(R) = -1000: Yn(R) = 0: Zn = 0 - ELSE - V = (1330& * (Spos - Z3)) \ (Mypos - Z3) - Xn(R) = 160 + X2& + (-X2& * V) \ 1330 - Yn(R) = 100 + (8 * (Y3& + (-Y3& * V) \ 1330)) \ 10 - END IF - NEXT - - MaxZ = MaxZ - LowZ - - - Nl = 0 - FOR A = 0 TO NumberLines - 1 - F1 = Pointers1(A): S1 = Pointers2(A) - IF Xn(F1) <> -1000 AND Xn(S1) <> -1000 THEN - Sp(Nl) = A - Zp(A) = (Zn(F1) + Zn(S1)) \ 2 - Nl = Nl + 1 - END IF - NEXT - Nl = Nl - 1 - 'sort lines according to their Z coordinates - IF Nl > -1 THEN - Mid = Nl \ 2 - DO - FOR A = 0 TO Nl - Mid - IF Zp(Sp(A)) > Zp(Sp(A + Mid)) THEN - SWAP Sp(A), Sp(A + Mid) - CL = A - Mid - CH = A - DO WHILE CL >= 0 - IF Zp(Sp(CL)) > Zp(Sp(CH)) THEN - SWAP Sp(CL), Sp(CH) - CH = CL - CL = CL - Mid - ELSE - EXIT DO - END IF - LOOP - END IF - NEXT - Mid = Mid \ 2 - LOOP WHILE Mid > 0 - END IF - 'wait for vertical retrace - WAIT &H3DA, 8 - 'erase old points - FOR A = Ln - 1 TO 0 STEP -1 - LINE (Xs1(A), Ys1(A))-(Xe1(A), Ye1(A)), 0 - NEXT - - Ln = 0 - FOR A1 = 0 TO Nl - A = Sp(A1) - - Z = Zp(A) - F1 = Pointers1(Sp(A1)): S1 = Pointers2(Sp(A1)) - - Xn = Xn(F1): Yn = Yn(F1) - - IF Xn <> -1000 THEN - X1 = Xn(S1) - IF X1 <> -1000 THEN - Y1 = Yn(S1) - Z1 = (Z - Mz + Oz) - - IF Z1 > -1500 THEN - 'calculate color - T = 63 - ((Z1 * -63&) \ 1500) - C = B1(T) + (B(T) * (Z - LowZ)) \ MaxZ - 'draw line - LINE (X1, Y1)-(Xn, Yn), C - 'store for later - Xs1(Ln) = X1: Ys1(Ln) = Y1 - Xe1(Ln) = Xn: Ye1(Ln) = Yn - Ln = Ln + 1 - END IF - END IF - END IF - NEXT - 'process keystroke - K$ = UCASE$(INKEY$) - 'Process the keystroke(if any)... - IF K$ <> "" THEN - SELECT CASE K$ - CASE "A" - AtLoc = NOT AtLoc - CASE "+" - Mzm = Mzm + 2 - CASE "-" - Mzm = Mzm - 2 - CASE "5" - Mxm = 0: Mym = 0: Mzm = 0 - CASE "4" - Mxm = Mxm - 2 - CASE "6" - Mxm = Mxm + 2 - CASE "8" - Mym = Mym - 2 - CASE "2" - Mym = Mym + 2 - CASE "F" - Speed = Speed + 5 - CASE "B" - Speed = Speed - 5 - CASE "C" - D1 = 0: D2 = 0 - CASE "S" - Speed = 0 - CASE CHR$(0) + CHR$(72) - D1 = D1 + 1 - CASE CHR$(0) + CHR$(80) - D1 = D1 - 1 - CASE CHR$(0) + CHR$(75) - D2 = D2 - 1 - CASE CHR$(0) + CHR$(77) - D2 = D2 + 1 - CASE "Q", CHR$(27) - SCREEN 0, , 0, 0: WIDTH 80 - CLS - PRINT "By Rich Geldreich June 2nd, 1992" - PRINT "See ya later!" - END - CASE "V" - D1 = 0: D2 = 0: Deg1 = 0: Deg2 = 0: Speed = 0 - END SELECT - END IF - 'NumberOfFrames = NumberOfFrames + 1 - 'see if 20 frames have passed; if so then see - 'how long it took... - 'IF NumberOfFrames = 20 THEN - ' TotalTime = PEEK(&H6C) - StartTime - ' IF TotalTime < 0 THEN TotalTime = TotalTime + 256 - ' FramesPerSecX100 = 36400 \ TotalTime - ' High = FramesPerSecX100 \ 100 - ' Low = FramesPerSecX100 - High - ' 'A$ has the string that is printed at the upper left - ' 'corner of the screen - ' A$ = MID$(STR$(High), 2) + "." - ' A$ = A$ + RIGHT$("0" + MID$(STR$(Low), 2), 2) + " " - ' NumberOfFrames = 0 - ' StartTime = PEEK(&H6C) - 'END IF -LOOP -'The following data is the shuttle craft... -'stored as Start X,Y,Z & End X,Y,Z -DATA -157,22,39,-157,-18,39 -DATA -157,-18,39,-127,-38,39 -DATA -127,-38,39,113,-38,39 -DATA 113,-38,39,193,12,39 -DATA 33,42,39,33,42,-56 -DATA 33,42,-56,-127,42,-56 -DATA -127,42,-56,-157,22,-56 -DATA -157,22,-56,-157,22,39 -DATA -157,22,-56,-157,-18,-56 -DATA -157,-18,-56,-157,-18,39 -DATA -157,-18,-56,-127,-38,-56 -DATA -127,-38,-56,-127,-38,39 -DATA -127,-38,-56,113,-38,-56 -DATA 113,-38,-56,113,-38,39 -DATA 113,-38,-56,193,12,-56 -DATA 193,12,-56,193,12,39 -DATA -157,22,-56,193,12,-56 -DATA 193,12,39,-157,22,39 -DATA -56,-13,41,-56,-3,41 -DATA -56,-3,41,-26,-3,41 -DATA -26,-3,41,-26,7,41 -DATA -51,7,41,-31,-13,41 -DATA -11,-13,41,-11,-3,41 -DATA -11,-3,41,-1,7,41 -DATA 9,7,41,9,-8,41 -DATA 9,-8,41,24,-8,41 -DATA 34,16,41,34,-38,41 -DATA 33,-39,41,33,-39,-53 -DATA 33,-39,-53,33,15,-53 -DATA -42,-38,19,-72,-38,19 -DATA -72,-38,19,-72,-38,-41 -DATA -72,-38,-41,-42,-38,-41 -DATA -42,-38,-41,-42,-38,19 -DATA 33,42,39,34,16,41 -DATA 33,42,-56,33,15,-53 -DATA -157,22,39,-127,42,39 -DATA -127,42,-56,-127,42,39 -DATA -127,42,39,33,42,39 -DATA 159,-8,-56,159,-8,40 -DATA 143,-18,-56,143,-18,39 -DATA 193,12,39,193,32,30 -DATA 33,42,39,193,32,30 -DATA 193,32,30,193,32,-47 -DATA 33,42,-56,193,32,-47 -DATA 193,12,-56,193,32,-47 - - diff --git a/programs/samples/misc/acalc.bas b/programs/samples/misc/acalc.bas deleted file mode 100644 index 17d764b92..000000000 --- a/programs/samples/misc/acalc.bas +++ /dev/null @@ -1,158 +0,0 @@ -DECLARE SUB DrawInner (delta!) -DECLARE SUB DrawCursor (angle!, delta!) -DECLARE SUB DrawOuter () -SCREEN 12 -DIM SHARED PI -DIM SHARED dialsize -DIM SHARED OldAngle, OldX, OldY, OldDelta -PI = 3.141592654# -dialsize = 200 'This is the coolist part change the size of the clock! -DIM SHARED H(10 TO 99, 4)' History -DIM SHARED HH(6 TO 90, 4) -DIM dD AS SINGLE, dC AS INTEGER: dD = .01: dC = 2 -DrawInner .02: DrawCursor .02, .02: CLS -LOCATE 1, 1: PRINT "Log: "; -LOCATE 2, 1: PRINT "D: " -LOCATE 3, 1: PRINT "C: "; -LOCATE 4, 1: PRINT "Sin: "; -LOCATE 5, 1: PRINT "Cos: "; -DO -LOCATE 1, 7: PRINT (angle / (2 * PI)) - INT(angle / (2 * PI)) -LOCATE 2, 7: PRINT EXP(((angle / (2 * PI)) - INT(angle / (2 * PI))) * LOG(10)) -LOCATE 3, 7: PRINT EXP((((angle - delta) / (2 * PI)) - INT((angle - delta) / (2 * PI))) * LOG(10)); -ang = EXP((((angle - delta) / (2 * PI)) - INT((angle - delta) / (2 * PI)) - 1) * LOG(10)) -ang2 = 2 * ATN(ang / (1 + SQR(1 - ang * ang))) * 180 / PI -LOCATE 4, 7: PRINT ang2; -ang3 = 90 - ang2 -LOCATE 5, 7: PRINT ang3; -DrawOuter -DrawInner delta -DrawCursor angle, delta -WHILE INKEY$ <> "": WEND: DO: k$ = UCASE$(INKEY$): LOOP WHILE k$ = "" -SELECT CASE k$ -CASE CHR$(27): SYSTEM -CASE "F", "S": GOSUB AdjustSpeed -CASE CHR$(0) + CHR$(80): delta = delta + dD -CASE CHR$(0) + CHR$(72): delta = delta - dD -CASE CHR$(0) + CHR$(77): angle = angle + dD -CASE CHR$(0) + CHR$(75): angle = angle - dD -END SELECT -LOOP -AdjustSpeed: -SELECT CASE dC -CASE 1: IF k$ = "F" THEN dD = .01: dC = 2 -CASE 2: IF k$ = "F" THEN dD = .1: dC = 3 ELSE dD = .001: dC = 1 -CASE 3: IF k$ = "F" THEN dD = 1: dC = 4 ELSE dD = .01: dC = 2 -CASE ELSE: IF k$ = "S" THEN dD = .1: dC = 3 -END SELECT -w$ = "----": MID$(w$, dC, 1) = "o" -LOCATE 6, 1: PRINT w$ -RETURN - -SUB DrawCursor (angle, delta) -IF OldAngle = angle THEN -LINE (320, 240)-(OldX, OldY), 4 -EXIT SUB -END IF -OldAngle = angle -cursorX = COS(angle) * dialsize * 1.18 -cursorY = SIN(angle) * dialsize * 1.18 -LINE (320, 240)-(OldX, OldY), 0 -OldX = 320 + cursorX -OldY = 240 + cursorY -LINE (320, 240)-(OldX, OldY), 4 -DrawOuter -DrawInner delta -LINE (320, 240)-(OldX, OldY), 4 -END SUB - -SUB DrawInner (delta) -innersize = dialsize * .8 -sinesize = dialsize * .6 -IF delta = OldDelta THEN -FOR T = 10 TO 99 -COLOR 7: LINE (H(T, 1), H(T, 2))-(H(T, 3), H(T, 4)) -NEXT T -FOR T = 6 TO 90 -COLOR 7: LINE (HH(T, 1), HH(T, 2))-(HH(T, 3), HH(T, 4)) -NEXT -CIRCLE (320, 240), innersize, 7 -CIRCLE (320, 240), sinesize, 7 -EXIT SUB -END IF -OldDelta = delta -FOR T = 10 TO 99 -cool = LOG(T / 10) / LOG(10) * PI * 2 + delta -coolx = COS(cool) * innersize -cooly = SIN(cool) * innersize -IF T MOD 10 = 0 THEN -hatchsize = 1.15 -ELSEIF T MOD 10 = 5 THEN -hatchsize = 1.08 -ELSE -hatchsize = 1.05 -END IF -cool2y = SIN(cool) * (innersize / hatchsize) -cool2x = COS(cool) * (innersize / hatchsize) -COLOR 0: LINE (H(T, 1), H(T, 2))-(H(T, 3), H(T, 4)) -H(T, 1) = coolx + 320: H(T, 2) = cooly + 240 -H(T, 3) = cool2x + 320: H(T, 4) = cool2y + 240 -COLOR 7: LINE (H(T, 1), H(T, 2))-(H(T, 3), H(T, 4)) -NEXT T -FOR T = 6 TO 90 -sine = LOG(SIN(T * PI / 180)) / LOG(10) * PI * 2 + delta -sinex = COS(sine) * sinesize -siney = SIN(sine) * sinesize -IF T MOD 10 = 0 THEN -hatchsize = 1.15 -ELSEIF T MOD 10 = 5 THEN -hatchsize = 1.08 -ELSE -hatchsize = 1.05 -END IF -sine2x = COS(sine) * (sinesize / hatchsize) -sine2y = SIN(sine) * (sinesize / hatchsize) -COLOR 0: LINE (HH(T, 1), HH(T, 2))-(HH(T, 3), HH(T, 4)) -HH(T, 1) = sinex + 320: HH(T, 2) = siney + 240 -HH(T, 3) = sine2x + 320: HH(T, 4) = sine2y + 240 -COLOR 7: LINE (HH(T, 1), HH(T, 2))-(HH(T, 3), HH(T, 4)) -NEXT -CIRCLE (320, 240), innersize, 7 -CIRCLE (320, 240), sinesize, 7 -END SUB - -SUB DrawOuter -asdfsize = dialsize * 1.18 -FOR T = 1 TO 100 -asdf = (T / 100) * PI * 2 -asdfx = COS(asdf) * asdfsize -asdfy = SIN(asdf) * asdfsize -IF T MOD 10 = 0 THEN -hatchsize = 1.15 -ELSEIF T MOD 10 = 5 THEN -hatchsize = 1.08 -ELSE -hatchsize = 1.05 -END IF -asdf2y = SIN(asdf) * (asdfsize / hatchsize) -asdf2x = COS(asdf) * (asdfsize / hatchsize) -LINE (asdfx + 320, asdfy + 240)-(asdf2x + 320, asdf2y + 240) -NEXT -FOR T = 10 TO 99 -dial = LOG(T / 10) / LOG(10) * PI * 2 -dialx = COS(dial) * dialsize -dialy = SIN(dial) * dialsize -IF T MOD 10 = 0 THEN -hatchsize = 1.15 -ELSEIF T MOD 10 = 5 THEN -hatchsize = 1.08 -ELSE -hatchsize = 1.05 -END IF -dial2y = SIN(dial) * (dialsize / hatchsize) -dial2x = COS(dial) * (dialsize / hatchsize) -LINE (dialx + 320, dialy + 240)-(dial2x + 320, dial2y + 240) -NEXT T -CIRCLE (320, 240), asdfsize, 7 -CIRCLE (320, 240), dialsize, 7 -END SUB \ No newline at end of file diff --git a/programs/samples/misc/aklabeth.bas b/programs/samples/misc/aklabeth.bas deleted file mode 100644 index db6a5c8e0..000000000 --- a/programs/samples/misc/aklabeth.bas +++ /dev/null @@ -1,820 +0,0 @@ - - -0 ON ERROR GOTO 4 - -1 SCREEN 1: VIEW PRINT: CLS : q$ = "": DIM pw(5): DIM c(5): DIM m$(10), ml%(10, 1), mz%(10, 1): DIM w$(5) - -4 REM PR# 0: IN# 0 - -5 REM HIMEM: 49151 - -'7 CLEAR : GOSUB 60000 -7 -IF restart% = 1 THEN END -restart% = 1 -GOSUB 60000 - -8 RANDOMIZE ln - -9 le = 0 - -10 SCREEN 1: VIEW PRINT: CLS : PRINT TAB(12); : PRINT " WELCOME TO AKALABETH, WORLD OF DOOM!" - -20 DIM dn%(10, 10), te%(20, 20), xx%(10), yy%(10), pe%(10, 3), ld%(10, 5), cd%(10, 3), ft%(10, 5), la%(10, 3) - -30 FOR x = 0 TO 20: te%(x, 0) = 1: te%(0, x) = 1: te%(x, 20) = 1: te%(20, x) = 1: NEXT - -35 LOCATE 23, 1: PRINT " (PLEASE WAIT)"; - -40 FOR x = 1 TO 19: FOR y = 1 TO 19: te%(x, y) = INT(RND(1) ^ 5 * 4.5) - -41 IF te%(x, y) = 3 AND RND(1) > .5 THEN te%(x, y) = 0 - -42 NEXT: PRINT "."; : NEXT: SLEEP 2 - -50 te%(INT(RND(1) * 19 + 1), INT(RND(1) * 19 + 1)) = 5: tx = INT(RND(1) * 19 + 1): ty = INT(RND(1) * 19 + 1): te%(tx, ty) = 3 - -51 xx%(0) = 139: yy%(0) = 79 - -52 FOR x = 2 TO 20 STEP 2: xx%(x / 2) = INT(ATN(1 / x) / ATN(1) * 140 + .5): yy%(x / 2) = INT(xx%(x / 2) * 4 / 7) - -53 pe%(x / 2, 0) = 139 - xx%(x / 2): pe%(x / 2, 1) = 139 + xx%(x / 2): pe%(x / 2, 2) = 79 - yy%(x / 2): pe%(x / 2, 3) = 79 + yy%(x / 2): NEXT - -54 pe%(0, 0) = 0: pe%(0, 1) = 279: pe%(0, 2) = 0: pe%(0, 3) = 159 - -55 FOR x = 1 TO 10: cd%(x, 0) = 139 - xx%(x) / 3: cd%(x, 1) = 139 + xx%(x) / 3: cd%(x, 2) = 79 - yy%(x) * .7: cd%(x, 3) = 79 + yy%(x): NEXT: PRINT "."; - -56 FOR x = 0 TO 9: ld%(x, 0) = (pe%(x, 0) * 2 + pe%(x + 1, 0)) / 3: ld%(x, 1) = (pe%(x, 0) + 2 * pe%(x + 1, 0)) / 3: w = ld%(x, 0) - pe%(x, 0) - -57 ld%(x, 2) = pe%(x, 2) + w * 4 / 7: ld%(x, 3) = pe%(x, 2) + 2 * w * 4 / 7: ld%(x, 4) = (pe%(x, 3) * 2 + pe%(x + 1, 3)) / 3: ld%(x, 5) = (pe%(x, 3) + 2 * pe%(x + 1, 3)) / 3 - -58 ld%(x, 2) = ld%(x, 4) - (ld%(x, 4) - ld%(x, 2)) * .8: ld%(x, 3) = ld%(x, 5) - (ld%(x, 5) - ld%(x, 3)) * .8: IF ld%(x, 3) = ld%(x, 4) THEN ld%(x, 3) = ld%(x, 3) - 1 - -59 NEXT - -60 FOR x = 0 TO 9: ft%(x, 0) = 139 - xx%(x) / 3: ft%(x, 1) = 139 + xx%(x) / 3: ft%(x, 2) = 139 - xx%(x + 1) / 3: ft%(x, 3) = 139 + xx%(x + 1) / 3 - -61 ft%(x, 4) = 79 + (yy%(x) * 2 + yy%(x + 1)) / 3: ft%(x, 5) = 79 + (yy%(x) + 2 * yy%(x + 1)) / 3: NEXT - -62 FOR x = 0 TO 9: la%(x, 0) = (ft%(x, 0) * 2 + ft%(x, 1)) / 3: la%(x, 1) = (ft%(x, 0) + 2 * ft%(x, 1)) / 3: la%(x, 3) = ft%(x, 4): la%(x, 2) = 159 - la%(x, 3): NEXT - -68 LOCATE 1, 1 - -69 LOCATE 1, 1 - -70 GOSUB 100: GOTO 1000 - -90 FOR x = 0 TO 9: FOR y = 0 TO 5: PRINT ld%(x, y); " "; : NEXT: PRINT : NEXT: DO: q$ = INKEY$: LOOP WHILE q$ = "" - -100 SCREEN 1: VIEW PRINT 1 TO 21: CLS 2: VIEW PRINT 22 TO 25: WINDOW SCREEN (0, 0)-(279, 199): FOR y = -1 TO 1: FOR x = -1 TO 1 - -105 LINE (138, 75)-(142, 75): LINE (140, 73)-(140, 77) - -110 zz = te%(tx + x, ty + y): x1 = 65 + (x + 1) * 50: y1 = (y + 1) * 50 - -120 IF zz = 2 THEN LINE (x1 + 20, y1 + 20)-(x1 + 30, y1 + 20): LINE -(x1 + 30, y1 + 30): LINE -(x1 + 20, y1 + 30): LINE -(x1 + 20, y1 + 20) - -130 IF zz = 3 THEN - LINE (x1 + 10, y1 + 10)-(x1 + 20, y1 + 10): LINE -(x1 + 20, y1 + 40): LINE -(x1 + 10, y1 + 40) - LINE -(x1 + 10, y1 + 30): LINE -(x1 + 40, y1 + 30): LINE -(x1 + 40, y1 + 40): LINE -(x1 + 30, y1 + 40): LINE -(x1 + 30, y1 + 10): LINE -(x1 + 40, y1 + 10) - LINE -(x1 + 40, y1 + 20): LINE -(x1 + 10, y1 + 20): LINE -(x1 + 10, y1 + 10) - END IF - -140 IF zz = 4 THEN LINE (x1 + 20, y1 + 20)-(x1 + 30, y1 + 30): LINE (x1 + 20, y1 + 30)-(x1 + 30, y1 + 20) - -150 IF zz = 5 THEN - LINE (x1, y1)-(x1 + 50, y1): LINE -(x1 + 50, y1 + 50): LINE -(x1, y1 + 50): LINE -(x1, y1) - LINE (x1 + 10, y1 + 10)-(x1 + 10, y1 + 40): LINE -(x1 + 40, y1 + 40) - LINE -(x1 + 40, y1 + 10): LINE -(x1 + 10, y1 + 10): LINE -(x1 + 40, y1 + 40): LINE (x1 + 10, y1 + 40)-(x1 + 40, y1 + 10) - END IF - -160 IF zz = 1 THEN - LINE (x1 + 10, y1 + 50)-(x1 + 10, y1 + 40): LINE -(x1 + 20, y1 + 30): LINE -(x1 + 40, y1 + 30) - LINE -(x1 + 40, y1 + 50): LINE (x1, y1 + 10)-(x1 + 10, y1 + 10): LINE (x1 + 50, y1 + 10)-(x1 + 40, y1 + 10) - LINE (x1, y1 + 40)-(x1 + 10, y1 + 40): LINE (x1 + 40, y1 + 40)-(x1 + 50, y1 + 40) - END IF - -170 IF zz = 1 THEN LINE (x1 + 10, y1)-(x1 + 10, y1 + 20): LINE -(x1 + 20, y1 + 20): LINE -(x1 + 20, y1 + 30): LINE -(x1 + 30, y1 + 30): LINE -(x1 + 30, y1 + 10): LINE -(x1 + 40, y1 + 10): LINE -(x1 + 40, y1) - -190 NEXT: NEXT: WINDOW: RETURN - -200 SCREEN 1: VIEW PRINT 1 TO 21: CLS 2: VIEW PRINT 22 TO 25: WINDOW SCREEN (0, 0)-(279, 199): di = 0: tb = 2 - -202 ce = dn%(px + dx * di, py + dy * di): le = dn%(px + dx * di + dy, py + dy * di - dx): ri = dn%(px + dx * di - dy, py + dy * di + dx) - -204 l1 = pe%(di, 0): r1 = pe%(di, 1): t1 = pe%(di, 2): b1 = pe%(di, 3): l2 = pe%(di + 1, 0): r2 = pe%(di + 1, 1): t2 = pe%(di + 1, 2): b2 = pe%(di + 1, 3) - -205 ce = INT(ce): le = INT(le): ri = INT(ri) - -206 mc = INT(ce / 10): ce = ce - mc * 10: le = INT((le / 10 - INT(le / 10)) * 10 + .1): ri = INT((ri / 10 - INT(ri / 10)) * 10 + .1) - -208 IF di = 0 THEN 216 - -210 IF ce = 1 OR ce = 3 OR ce = 4 THEN LINE (l1, t1)-(r1, t1): LINE -(r1, b1): LINE -(l1, b1): LINE -(l1, t1) - -212 IF ce = 1 OR ce = 3 THEN en = 1: GOTO 260 - -214 IF ce = 4 THEN LINE (cd%(di, 0), cd%(di, 3))-(cd%(di, 0), cd%(di, 2)): LINE -(cd%(di, 1), cd%(di, 2)): LINE -(cd%(di, 1), cd%(di, 3)): en = 1: GOTO 260 - -216 IF le = 1 OR le = 3 OR le = 4 THEN LINE (l1, t1)-(l2, t2): LINE (l1, b1)-(l2, b2) - -218 IF ri = 1 OR ri = 3 OR ri = 4 THEN LINE (r1, t1)-(r2, t2): LINE (r1, b1)-(r2, b2) - -220 IF le = 4 AND di > 0 THEN LINE (ld%(di, 0), ld%(di, 4))-(ld%(di, 0), ld%(di, 2)): LINE -(ld%(di, 1), ld%(di, 3)): LINE -(ld%(di, 1), ld%(di, 5)) - -222 IF le = 4 AND di = 0 THEN LINE (0, ld%(di, 2) - 3)-(ld%(di, 1), ld%(di, 3)): LINE -(ld%(di, 1), ld%(di, 5)) - -224 IF ri = 4 AND di > 0 THEN LINE (279 - ld%(di, 0), ld%(di, 4))-(279 - ld%(di, 0), ld%(di, 2)): LINE -(279 - ld%(di, 1), ld%(di, 3)): LINE -(279 - ld%(di, 1), ld%(di, 5)) - -226 IF ri = 4 AND di = 0 THEN LINE (279, ld%(di, 2) - 3)-(279 - ld%(di, 1), ld%(di, 3)): LINE -(279 - ld%(di, 1), ld%(di, 5)) - -228 IF le = 3 OR le = 1 OR le = 4 THEN 234 - -230 IF di <> 0 THEN LINE (l1, t1)-(l1, b1) - -232 LINE (l1, t2)-(l2, t2): LINE -(l2, b2): LINE -(l1, b2) - -234 IF ri = 3 OR ri = 1 OR ri = 4 THEN 240 - -236 IF di <> 0 THEN LINE (r1, t1)-(r1, b1) - -238 LINE (r1, t2)-(r2, t2): LINE -(r2, b2): LINE -(r1, b2) - -240 IF ce = 7 OR ce = 9 THEN LINE (ft%(di, 0), ft%(di, 4))-(ft%(di, 2), ft%(di, 5)): LINE -(ft%(di, 3), ft%(di, 5)): LINE -(ft%(di, 1), ft%(di, 4)): LINE -(ft%(di, 0), ft%(di, 4)) - -242 IF ce = 8 THEN LINE (ft%(di, 0), 158 - ft%(di, 4))-(ft%(di, 2), 158 - ft%(di, 5)): LINE -(ft%(di, 3), 158 - ft%(di, 5)): LINE -(ft%(di, 1), 158 - ft%(di, 4)): LINE -(ft%(di, 0), 158 - ft%(di, 4)) - -244 IF ce = 7 OR ce = 8 THEN ba = la%(di, 3): TP = la%(di, 2): LX = la%(di, 0): RX = la%(di, 1): LINE (LX, ba)-(LX, TP): LINE (RX, TP)-(RX, ba) - -246 IF ce = 7 OR ce = 8 THEN y1 = (ba * 4 + TP) / 5: Y2 = (ba * 3 + TP * 2) / 5: Y3 = (ba * 2 + TP * 3) / 5: Y4 = (ba + TP * 4) / 5: LINE (LX, y1)-(RX, y1): LINE (LX, Y2)-(RX, Y2): LINE (LX, Y3)-(RX, Y3): LINE (LX, Y4)-(RX, Y4) - -248 IF di > 0 AND ce = 5 THEN LINE (139 - 10 / di, pe%(di, 3))-(139 - 10 / di, pe%(di, 3) - 10 / di): LINE -(139 + 10 / di, pe%(di, 3) - 10 / di): LINE -(139 + 10 / di, pe%(di, 3)): LINE -(139 - 10 / di, pe%(di, 3)) - -249 IF ce = 5 AND di > 0 THEN VIEW PRINT: LOCATE 1, tb: PRINT "CHEST! "; : tb = tb + 8 - -250 IF di > 0 AND ce = 5 THEN LINE (139 - 10 / di, pe%(di, 3) - 10 / di)-(139 - 5 / di, pe%(di, 3) - 15 / di): LINE -(139 + 15 / di, pe%(di, 3) - 15 / di): LINE -(139 + 15 / di, pe%(di, 3) - 5 / di): LINE -(139 + 10 / di, pe%(di, 3)) - -252 IF di > 0 AND ce = 5 THEN LINE (139 + 10 / di, pe%(di, 3) - 10 / di)-(139 + 15 / di, pe%(di, 3) - 15 / di) - -260 IF mc < 1 THEN 490 - -265 b = 79 + yy%(di): c = 139 - -266 IF mc = 8 THEN VIEW PRINT: LOCATE 1, tb: PRINT "CHEST! "; : tb = tb + 8: PRINT : GOTO 269: REM call - -267 VIEW PRINT: LOCATE 1, tb: PRINT m$(mc); : tb = tb + LEN(m$(mc)) + 2: PRINT : REM call - -269 IF di = 0 THEN 490 - -270 ON mc GOTO 300, 310, 320, 330, 340, 350, 360, 370, 380, 390 - -280 GOTO 490 - -300 LINE (c - 23 / di, b)-(c - 15 / di, b): LINE -(c - 15 / di, b - 15 / di): LINE -(c - 8 / di, b - 30 / di): LINE -(c + 8 / di, b - 30 / di): LINE -(c + 15 / di, b - 15 / di): LINE -(c + 15 / di, b): LINE -(c + 23 / di, b) - -301 LINE (c, b - 26 / di)-(c, b - 65 / di): LINE (c - 2 / di + .499, b - 38 / di)-(c + 2 / di + .499, b - 38 / di) - LINE (c - 3 / di + .499, b - 45 / di)-(c + 3 / di + .499, b - 45 / di): LINE (c - 5 / di + .499, b - 53 / di)-(c + 5 / di + .499, b - 53 / di) - -302 LINE (c - 23 / di, b - 56 / di)-(c - 30 / di, b - 53 / di): LINE -(c - 23 / di, b - 45 / di): LINE -(c - 23 / di, b - 53 / di): LINE -(c - 8 / di, b - 38 / di) - -303 LINE (c - 15 / di, b - 45 / di)-(c - 8 / di, b - 60 / di): LINE -(c + 8 / di, b - 60 / di): LINE -(c + 15 / di, b - 45 / di) - LINE -(c + 15 / di, b - 42 / di): LINE -(c + 15 / di, b - 57 / di): LINE (c + 12 / di, b - 45 / di)-(c + 20 / di, b - 45 / di) - -304 LINE (c, b - 75 / di)-(c - 5 / di + .499, b - 80 / di): LINE -(c - 8 / di, b - 75 / di): LINE -(c - 5 / di + .499, b - 65 / di) - LINE -(c + 5 / di + .499, b - 65 / di): LINE -(c + 5 / di + .499, b - 68 / di): LINE -(c - 5 / di + .499, b - 68 / di): LINE -(c - 5 / di + .499, b - 65 / di) - -305 LINE -(c + 5 / di + .499, b - 65 / di): LINE -(c + 8 / di, b - 75 / di): LINE -(c + 5 / di + .499, b - 80 / di): LINE -(c - 5 / di + .499, b - 80 / di): PSET (c - 5 / di + .499, b - 72 / di): PSET (c + 5 / di + .499, b - 72 / di) - -309 GOTO 490 - -310 LINE (c, b - 56 / di)-(c, b - 8 / di): LINE -(c + 10 / di, b): LINE -(c + 30 / di, b): LINE -(c + 30 / di, b - 45 / di): LINE -(c + 10 / di, b - 64 / di): LINE -(c, b - 56 / di) - -311 LINE -(c - 10 / di, b - 64 / di): LINE -(c - 30 / di, b - 45 / di): LINE -(c - 30 / di, b): LINE -(c - 10 / di, b): LINE -(c, b - 8 / di) - -312 LINE (c - 10 / di, b - 64 / di)-(c - 10 / di, b - 75 / di): LINE -(c, b - 83 / di) - LINE -(c + 10 / di, b - 75 / di): LINE -(c, b - 79 / di): LINE -(c - 10 / di, b - 75 / di): LINE -(c, b - 60 / di) - LINE -(c + 10 / di, b - 75 / di): LINE -(c + 10 / di, b - 64 / di) - -319 GOTO 490 - -320 LINE (c + 5 / di, b - 30 / di)-(c, b - 25 / di): LINE -(c - 5 / di, b - 30 / di): LINE -(c - 15 / di, b - 5 / di): LINE -(c - 10 / di, b): LINE -(c + 10 / di, b): LINE -(c + 15 / di, b - 5 / di) - -321 LINE -(c + 20 / di, b - 5 / di): LINE -(c + 10 / di, b): LINE -(c + 15 / di, b - 5 / di) - LINE -(c + 5 / di, b - 30 / di): LINE -(c + 10 / di, b - 40 / di): LINE -(c + 3 / di + .499, b - 35 / di) - LINE -(c - 3 / di + .499, b - 35 / di): LINE -(c - 10 / di, b - 40 / di): LINE -(c - 5 / di, b - 30 / di) - -322 LINE (c - 5 / di, b - 33 / di)-(c - 3 / di + .499, b - 30 / di): LINE (c + 5 / di, b - 33 / di)-(c + 3 / di + .499, b - 30 / di): LINE (c - 5 / di, b - 20 / di)-(c - 5 / di, b - 15 / di) - -323 LINE (c + 5 / di, b - 20 / di)-(c + 5 / di, b - 15 / di): LINE (c - 7 / di, b - 20 / di)-(c - 7 / di, b - 15 / di): LINE (c + 7 / di, b - 20 / di)-(c + 7 / di, b - 15 / di) - -329 GOTO 490 - -330 LINE (c, b)-(c - 15 / di, b): LINE -(c - 8 / di, b - 8 / di): LINE -(c - 8 / di, b - 15 / di): LINE -(c - 15 / di, b - 23 / di): LINE -(c - 15 / di, b - 15 / di): LINE -(c - 23 / di, b - 23 / di) - -331 LINE -(c - 23 / di, b - 45 / di): LINE -(c - 15 / di, b - 53 / di): LINE -(c - 8 / di, b - 53 / di): LINE -(c - 15 / di, b - 68 / di): LINE -(c - 8 / di, b - 75 / di): LINE -(c, b - 75 / di) - -332 LINE (c, b)-(c + 15 / di, b): LINE -(c + 8 / di, b - 8 / di): LINE -(c + 8 / di, b - 15 / di): LINE -(c + 15 / di, b - 23 / di): LINE -(c + 15 / di, b - 15 / di): LINE -(c + 23 / di, b - 23 / di) - -333 LINE -(c + 23 / di, b - 45 / di): LINE -(c + 15 / di, b - 53 / di): LINE -(c + 8 / di, b - 53 / di): LINE -(c + 15 / di, b - 68 / di): LINE -(c + 8 / di, b - 75 / di): LINE -(c, b - 75 / di) - -334 LINE (c - 15 / di, b - 68 / di)-(c + 15 / di, b - 68 / di): LINE (c - 8 / di, b - 53 / di)-(c + 8 / di, b - 53 / di): LINE (c - 23 / di, b - 15 / di)-(c + 8 / di, b - 45 / di) - -335 LINE (c - 8 / di, b - 68 / di)-(c, b - 60 / di): LINE -(c + 8 / di, b - 68 / di): LINE -(c + 8 / di, b - 60 / di): LINE -(c - 8 / di, b - 60 / di): LINE -(c - 8 / di, b - 68 / di) - -336 LINE (c, b - 38 / di)-(c - 8 / di, b - 38 / di): LINE -(c + 8 / di, b - 53 / di): LINE -(c + 8 / di, b - 45 / di): LINE -(c + 15 / di, b - 45 / di): LINE -(c, b - 30 / di): LINE -(c, b - 38 / di) - -339 GOTO 490 - -340 LINE (c - 10 / di, b - 15 / di)-(c - 10 / di, b - 30 / di): LINE -(c - 15 / di, b - 20 / di): LINE -(c - 15 / di, b - 15 / di): LINE -(c - 15 / di, b): LINE -(c + 15 / di, b): LINE -(c + 15 / di, b - 15 / di): LINE -(c - 15 / di, b - 15 / di) - -341 LINE (c - 15 / di, b - 10 / di)-(c + 15 / di, b - 10 / di): LINE (c - 15 / di, b - 5 / di)-(c + 15 / di, b - 5 / di) - -342 LINE (c, b - 15 / di)-(c - 5 / di, b - 20 / di): LINE -(c - 5 / di, b - 35 / di): LINE -(c + 5 / di, b - 35 / di): LINE -(c + 5 / di, b - 20 / di): LINE -(c + 10 / di, b - 15 / di) - -343 LINE (c - 5 / di, b - 20 / di)-(c + 5 / di, b - 20 / di): LINE (c - 5 / di, b - 25 / di)-(c + 5 / di, b - 25 / di): LINE (c - 5 / di, b - 30 / di)-(c + 5 / di, b - 30 / di) - -344 LINE (c - 10 / di, b - 35 / di)-(c - 10 / di, b - 40 / di): LINE -(c - 5 / di, b - 45 / di): LINE -(c + 5 / di, b - 45 / di): LINE -(c + 10 / di, b - 40 / di): LINE -(c + 10 / di, b - 35 / di) - -345 LINE (c - 10 / di, b - 40 / di)-(c, b - 45 / di): LINE -(c + 10 / di, b - 40 / di) - -346 LINE (c - 5 / di, b - 40 / di)-(c + 5 / di, b - 40 / di): LINE -(c + 15 / di, b - 30 / di): LINE -(c, b - 40 / di): LINE -(c - 15 / di, b - 30 / di): LINE -(c - 5 / di + .499, b - 40 / di) - -349 GOTO 490 - -350 LINE (c - 20 / di, 79 - yy%(di))-(c - 20 / di, b - 88 / di): LINE -(c - 10 / di, b - 83 / di): LINE -(c + 10 / di, b - 83 / di): LINE -(c + 20 / di, b - 88 / di): LINE -(c + 20 / di, 79 - yy%(di)): LINE -(c - 20 / di, 79 - yy%(di)) - -351 LINE (c - 20 / di, b - 88 / di)-(c - 30 / di, b - 83 / di): LINE -(c - 30 / di, b - 78 / di): LINE (c + 20 / di, b - 88 / di)-(c + 30 / di, b - 83 / di): LINE -(c + 40 / di, b - 83 / di) - -352 LINE (c - 15 / di, b - 86 / di)-(c - 20 / di, b - 83 / di): LINE -(c - 20 / di, b - 78 / di): LINE -(c - 30 / di, b - 73 / di): LINE -(c - 30 / di, b - 68 / di): LINE -(c - 20 / di, b - 63 / di) - -353 LINE (c - 10 / di, b - 83 / di)-(c - 10 / di, b - 58 / di): LINE -(c, b - 50 / di): LINE (c + 10 / di, b - 83 / di)-(c + 10 / di, b - 78 / di): LINE -(c + 20 / di, b - 73 / di): LINE -(c + 20 / di, b - 40 / di) - -354 LINE (c + 15 / di, b - 85 / di)-(c + 20 / di, b - 78 / di): LINE -(c + 30 / di, b - 76 / di): LINE -(c + 30 / di, b - 60 / di) - -355 LINE (c, b - 83 / di)-(c, b - 73 / di): LINE -(c + 10 / di, b - 68 / di): LINE -(c + 10 / di, b - 63 / di): LINE -(c, b - 58 / di) - -359 GOTO 490 - -360 LINE (c + 5 / di + .499, b - 10 / di)-(c - 5 / di + .499, b - 10 / di): LINE -(c, b - 15 / di): LINE -(c + 10 / di, b - 20 / di): LINE -(c + 5 / di + .499, b - 15 / di): LINE -(c + 5 / di + .499, b - 10 / di) - -361 LINE -(c + 7 / di + .499, b - 6 / di): LINE -(c + 5 / di + .499, b - 3 / di): LINE -(c - 5 / di + .499, b - 3 / di): LINE -(c - 7 / di + .499, b - 6 / di): LINE -(c - 5 / di + .499, b - 10 / di) - -362 LINE (c + 2 / di + .499, b - 3 / di)-(c + 5 / di + .499, b): LINE -(c + 8 / di, b) - LINE (c - 2 / di + .499, b - 3 / di)-(c - 5 / di + .499, b): LINE -(c - 8 / di, b): PSET (c + 3 / di + .499, b - 8 / di) - PSET (c - 3 / di + .499, b - 8 / di): LINE (c + 3 / di + .499, b - 5 / di)-(c - 3 / di + .499, b - 5 / di) - -363 GOTO 490 - -370 LINE (139 - 10 / di, pe%(di, 3))-(139 - 10 / di, pe%(di, 3) - 10 / di): LINE -(139 + 10 / di, pe%(di, 3) - 10 / di): LINE -(139 + 10 / di, pe%(di, 3)): LINE -(139 - 10 / di, pe%(di, 3)) - -371 LINE (139 - 10 / di, pe%(di, 3) - 10 / di)-(139 - 5 / di, pe%(di, 3) - 15 / di): LINE -(139 + 15 / di, pe%(di, 3) - 15 / di): LINE -(139 + 15 / di, pe%(di, 3) - 5 / di): LINE -(139 + 10 / di, pe%(di, 3)) - -372 LINE (139 + 10 / di, pe%(di, 3) - 10 / di)-(139 + 15 / di, pe%(di, 3) - 15 / di) - -373 GOTO 490 - -380 LINE (c - 14 / di, b - 46 / di)-(c - 12 / di, b - 37 / di): LINE -(c - 20 / di, b - 32 / di): LINE -(c - 30 / di, b - 32 / di) - LINE -(c - 22 / di, b - 24 / di): LINE -(c - 40 / di, b - 17 / di): LINE -(c - 40 / di, b - 7 / di): LINE -(c - 38 / di, b - 5 / di) - LINE -(c - 40 / di, b - 3 / di): LINE -(c - 40 / di, b) - -381 LINE -(c - 36 / di, b): LINE -(c - 34 / di, b - 2 / di): LINE -(c - 32 / di, b): LINE -(c - 28 / di, b) - LINE -(c - 28 / di, b - 3 / di): LINE -(c - 30 / di, b - 5 / di): LINE -(c - 28 / di, b - 7 / di) - LINE -(c - 28 / di, b - 15 / di): LINE -(c, b - 27 / di) - -382 LINE (c + 14 / di, b - 46 / di)-(c + 12 / di, b - 37 / di): LINE -(c + 20 / di, b - 32 / di) - LINE -(c + 30 / di, b - 32 / di): LINE -(c + 22 / di, b - 24 / di): LINE -(c + 40 / di, b - 17 / di) - LINE -(c + 40 / di, b - 7 / di): LINE -(c + 38 / di, b - 5 / di): LINE -(c + 40 / di, b - 3 / di): LINE -(c + 40 / di, b) - -383 LINE -(c + 36 / di, b): LINE -(c + 34 / di, b - 2 / di): LINE -(c + 32 / di, b): LINE -(c + 28 / di, b) - LINE -(c + 28 / di, b - 3 / di): LINE -(c + 30 / di, b - 5 / di): LINE -(c + 28 / di, b - 7 / di) - LINE -(c + 28 / di, b - 15 / di): LINE -(c, b - 27 / di) - -384 LINE (c + 6 / di, b - 48 / di)-(c + 38 / di, b - 41 / di): LINE -(c + 40 / di, b - 42 / di): LINE -(c + 18 / di, b - 56 / di) - LINE -(c + 12 / di, b - 56 / di): LINE -(c + 10 / di, b - 57 / di): LINE -(c + 8 / di, b - 56 / di): LINE -(c - 8 / di, b - 56 / di) - LINE -(c - 10 / di, b - 58 / di): LINE -(c + 14 / di, b - 58 / di): LINE -(c + 16 / di, b - 59 / di) - -385 LINE -(c + 8 / di, b - 63 / di): LINE -(c + 6 / di, b - 63 / di): LINE -(c + 2 / di + .499, b - 70 / di) - LINE -(c + 2 / di + .499, b - 63 / di): LINE -(c - 2 / di + .499, b - 63 / di): LINE -(c - 2 / di + .499, b - 70 / di) - LINE -(c - 6 / di, b - 63 / di): LINE -(c - 8 / di, b - 63 / di): LINE -(c - 16 / di, b - 59 / di): LINE -(c - 14 / di, b - 58 / di) - -386 LINE -(c - 10 / di, b - 57 / di): LINE -(c - 12 / di, b - 56 / di): LINE -(c - 18 / di, b - 56 / di): LINE -(c - 36 / di, b - 47 / di) - LINE -(c - 36 / di, b - 39 / di): LINE -(c - 28 / di, b - 41 / di): LINE -(c - 28 / di, b - 46 / di): LINE -(c - 20 / di, b - 50 / di) - LINE -(c - 18 / di, b - 50 / di): LINE -(c - 14 / di, b - 46 / di) - -387 GOTO 3087 - -390 LINE (c + 6 / di, b - 60 / di)-(c + 30 / di, b - 90 / di): LINE -(c + 60 / di, b - 30 / di): LINE -(c + 60 / di, b - 10 / di): LINE -(c + 30 / di, b - 40 / di): LINE -(c + 15 / di, b - 40 / di) - -391 LINE (c - 6 / di, b - 60 / di)-(c - 30 / di, b - 90 / di): LINE -(c - 60 / di, b - 30 / di): LINE -(c - 60 / di, b - 10 / di): LINE -(c - 30 / di, b - 40 / di): LINE -(c - 15 / di, b - 40 / di) - -392 LINE (c, b - 25 / di)-(c + 6 / di, b - 25 / di): LINE -(c + 10 / di, b - 20 / di): LINE -(c + 12 / di, b - 10 / di): LINE -(c + 10 / di, b - 6 / di) - LINE -(c + 10 / di, b): LINE -(c + 14 / di, b): LINE -(c + 15 / di, b - 5 / di): LINE -(c + 16 / di, b): LINE -(c + 20 / di, b) - -393 LINE -(c + 20 / di, b - 6 / di): LINE -(c + 18 / di, b - 10 / di): LINE -(c + 18 / di, b - 20 / di): LINE -(c + 15 / di, b - 30 / di): LINE -(c + 15 / di, b - 45 / di): LINE -(c + 40 / di, b - 60 / di): LINE -(c + 40 / di, b - 70 / di) - -394 LINE -(c + 10 / di, b - 55 / di): LINE -(c + 6 / di, b - 60 / di): LINE -(c + 10 / di, b - 74 / di): LINE -(c + 6 / di, b - 80 / di) - LINE -(c + 4 / di + .499, b - 80 / di): LINE -(c + 3 / di + .499, b - 82 / di): LINE -(c + 2 / di + .499, b - 80 / di): LINE -(c, b - 80 / di) - -395 LINE (c, b - 25 / di)-(c - 6 / di, b - 25 / di): LINE -(c - 10 / di, b - 20 / di): LINE -(c - 12 / di, b - 10 / di): LINE -(c - 10 / di, b - 6 / di) - LINE -(c - 10 / di, b): LINE -(c - 14 / di, b): LINE -(c - 15 / di, b - 5 / di): LINE -(c - 16 / di, b): LINE -(c - 20 / di, b) - -396 LINE -(c - 20 / di, b - 6 / di): LINE -(c - 18 / di, b - 10 / di): LINE -(c - 18 / di, b - 20 / di): LINE -(c - 15 / di, b - 30 / di): LINE -(c - 15 / di, b - 45 / di): LINE -(c - 40 / di, b - 60 / di): LINE -(c - 40 / di, b - 70 / di) - -397 LINE -(c - 10 / di, b - 55 / di): LINE -(c - 6 / di, b - 60 / di): LINE -(c - 10 / di, b - 74 / di): LINE -(c - 6 / di, b - 80 / di) - LINE -(c - 4 / di + .499, b - 80 / di): LINE -(c - 3 / di + .499, b - 82 / di): LINE -(c - 2 / di + .499, b - 80 / di): LINE -(c, b - 80 / di) - -398 LINE (c - 6 / di, b - 25 / di)-(c, b - 6 / di): LINE -(c + 10 / di, b): LINE -(c + 4 / di + .499, b - 8 / di): LINE -(c + 6 / di, b - 25 / di) - LINE (c - 40 / di, b - 64 / di)-(c - 40 / di, b - 90 / di): LINE -(c - 52 / di, b - 80 / di): LINE -(c - 52 / di, b - 40 / di) - -399 LINE (c + 40 / di, b - 86 / di)-(c + 38 / di, b - 92 / di): LINE -(c + 42 / di, b - 92 / di): LINE -(c + 40 / di, b - 86 / di): LINE -(c + 40 / di, b - 50 / di) - -400 LINE (c + 4 / di + .499, b - 70 / di)-(c + 6 / di, b - 74 / di): LINE (c - 4 / di + .499, b - 70 / di)-(c - 6 / di, b - 74 / di): LINE (c, b - 64 / di)-(c, b - 60 / di): GOTO 490 - -490 IF en = 1 THEN en = 0: WINDOW: RETURN - -491 di = di + 1: GOTO 202 - -500 RANDOMIZE -ABS(ln) - tx * 10 - ty * 1000 + in * 31.4 - -501 FOR x = 1 TO 9: FOR y = 1 TO 9: dn%(x, y) = 0: NEXT: NEXT - -510 FOR x = 0 TO 10: dn%(x, 0) = 1: dn%(x, 10) = 1: dn%(0, x) = 1: dn%(10, x) = 1: NEXT - -520 FOR x = 2 TO 8 STEP 2: FOR y = 1 TO 9: dn%(x, y) = 1: NEXT: NEXT - -530 FOR x = 2 TO 8 STEP 2: FOR y = 1 TO 9 STEP 2 - -540 IF RND(1) > .95 THEN dn%(x, y) = 2 - -541 IF RND(1) > .95 THEN dn%(y, x) = 2 - -542 IF RND(1) > .6 THEN dn%(y, x) = 3 - -543 IF RND(1) > .6 THEN dn%(x, y) = 3 - -544 IF RND(1) > .6 THEN dn%(x, y) = 4 - -545 IF RND(1) > .6 THEN dn%(y, x) = 4 - -546 IF RND(1) > .97 THEN dn%(y, x) = 9 - -547 IF RND(1) > .97 THEN dn%(x, y) = 9 - -548 IF RND(1) > .94 THEN dn%(x, y) = 5 - -549 IF RND(1) > .94 THEN dn%(y, x) = 5 - -568 NEXT: NEXT - -569 dn%(2, 1) = 0: IF in / 2 = INT(in / 2) THEN dn%(7, 3) = 7: dn%(3, 7) = 8 - -570 IF in / 2 <> INT(in / 2) THEN dn%(7, 3) = 8: dn%(3, 7) = 7 - -580 IF in = 1 THEN dn%(1, 1) = 8: dn%(7, 3) = 0 - -585 GOSUB 2000 - -590 RETURN - -1000 DO: LOOP UNTIL INKEY$ = "": VIEW PRINT 22 TO 25: LOCATE 25, 1: PRINT "COMMAND? "; : LOCATE CSRLIN, 10 - -1001 x$ = INKEY$: IF x$ = "" THEN 1001 - -1002 IF ASC(x$) = 0 THEN xq = ASC(MID$(x$, 2)) ELSE xq = 0 - -1010 REM poke -16368, 0 - -1030 IF xq = 72 THEN ON SGN(in) + 1 GOTO 1100, 1150 - -1040 IF xq = 77 THEN ON SGN(in) + 1 GOTO 1200, 1250 - -1050 IF xq = 75 THEN ON SGN(in) + 1 GOTO 1300, 1350 - -1060 IF xq = 80 THEN ON SGN(in) + 1 GOTO 1400, 1450 - -1070 IF x$ = "g" OR x$ = CHR$(13) OR x$ = "e" OR x$ = "k" OR x$ = "d" THEN ON SGN(in) + 1 GOTO 1500, 1550 - -1080 IF x$ = "a" OR x$ = "u" OR x$ = "c" THEN ON SGN(in) + 1 GOTO 1600, 1650 - -1081 IF x$ = " " THEN PRINT "PASS": GOTO 1090 - -1085 IF x$ = "i" OR x$ = "z" OR x$ = "y" THEN 1700 - -1086 IF x$ = "p" THEN IF pa = 1 THEN pa = 0: PRINT "PAUSE OFF": GOTO 1000 - -1087 IF x$ = "p" THEN IF pa = 0 THEN pa = 1: PRINT "PAUSE ON": GOTO 1000 - -1089 PRINT "HUH?": GOTO 1000 - -1090 pw(0) = pw(0) - 1 + SGN(in) * .9: IF pw(0) < 0 THEN c(0) = 0: PRINT : PRINT "YOU HAVE STARVED!!!!!": GOTO 1093 - -1091 FOR jj = 0 TO 2: LOCATE 22 + jj, 30: PRINT " "; : NEXT - LOCATE 22, 30: PRINT "FOOD="; LTRIM$(STR$(pw(0))); : LOCATE 23, 30: PRINT "H.P.="; LTRIM$(STR$(c(0))); - LOCATE 24, 30: PRINT "GOLD="; LTRIM$(STR$(c(5))); : LOCATE 24, 1: REM call -868 - -1092 pw(0) = INT(pw(0) * 10) / 10 - -1093 IF c(0) <= 0 THEN SLEEP 3: GOTO 6000 - -1095 IF in > 0 THEN GOSUB 4000: IF c(0) <= 0 THEN 1093 - -1096 FOR jj = 0 TO 3: LOCATE 22 + jj, 30: PRINT " "; : NEXT: LOCATE 22, 30: PRINT "FOOD="; LTRIM$(STR$(pw(0))); : LOCATE 23, 30: PRINT "H.P.="; LTRIM$(STR$(c(0))); : LOCATE 24, 30: PRINT "GOLD="; LTRIM$(STR$(c(5))); : LOCATE 24, 1 - -1097 IF in = 0 THEN GOSUB 100: GOTO 1000 - -1098 IF in > 0 THEN GOSUB 200: GOTO 1000 - -1100 PRINT "NORTH": IF te%(tx, ty - 1) = 1 THEN PRINT "YOU CAN'T PASS THE MOUNTAINS": GOTO 1090 - -1110 ty = ty - 1: GOTO 1090 - -1150 IF dn%(px + dx, py + dy) <> 1 AND dn%(px + dx, py + dy) < 10 THEN px = px + dx: py = py + dy - -1155 PRINT "FORWARD" - -1160 IF dn%(px, py) = 2 THEN PRINT "AAARRRGGGHHH!!! A TRAP!": c(0) = c(0) - INT(RND(1) * in + 3): MR = 1: in = in + 1: PRINT "FALLING TO LEVEL "; in: SLEEP 2: GOSUB 500: GOTO 1090 - -1165 z = 0 - -1170 IF dn%(px, py) = 5 THEN dn%(px, py) = 0: PRINT "GOLD!!!!!": z = INT(RND(1) * 5 * in + in): PRINT z; "-PIECES OF EIGHT": c(5) = c(5) + z - -1175 IF z > 0 THEN z = INT(RND(1) * 6): PRINT "AND A "; w$(z): pw(z) = pw(z) + 1: SLEEP 1: GOTO 1090 - -1190 GOTO 1090 - -1200 PRINT "EAST": IF te%(tx + 1, ty) = 1 THEN PRINT "YOU CAN'T PASS THE MOUNTAINS": GOTO 1090 - -1210 tx = tx + 1: GOTO 1090 - -1250 PRINT "TURN RIGHT" - -1255 IF dx <> 0 THEN dy = dx: dx = 0: GOTO 1090 - -1260 dx = -dy: dy = 0: GOTO 1090 - -1300 PRINT "WEST": IF te%(tx - 1, ty) = 1 THEN PRINT "YOU CAN'T PASS THE MOUNTAINS": GOTO 1090 - -1310 tx = tx - 1: GOTO 1090 - -1350 PRINT "TURN LEFT" - -1355 IF dx <> 0 THEN dy = -dx: dx = 0: GOTO 1090 - -1360 dx = dy: dy = 0: GOTO 1090 - -1400 PRINT "SOUTH": IF te%(tx, ty + 1) = 1 THEN PRINT "YOU CAN'T PASS THE MOUNTAINS": GOTO 1090 - -1410 ty = ty + 1: GOTO 1090 - -1450 PRINT "TURN AROUND": dx = -dx: dy = -dy: GOTO 1090 - -1500 IF te%(tx, ty) = 3 THEN GOSUB 60080: GOSUB 60200: CLS : GOTO 1090 - -1510 IF te%(tx, ty) = 4 AND in = 0 THEN PRINT "GO DUNGEON": PRINT "PLEASE WAIT ": SLEEP 1: in = 1: GOSUB 500: dx = 1: dy = 0: px = 1: py = 1: CLS : GOTO 1090 - -1515 IF te%(tx, ty) = 5 THEN 7000 - -1520 PRINT "HUH?": GOTO 1000 - -1550 IF dn%(px, py) <> 7 AND dn%(px, py) <> 9 THEN 1580 - -1555 PRINT "GO DOWN TO LEVEL "; in + 1 - -1560 in = in + 1: GOSUB 500: MR = 1: GOTO 1090 - -1580 IF dn%(px, py) <> 8 THEN PRINT "HUH?": GOTO 1090 - -1581 IF in = 1 THEN PRINT "LEAVE DUNGEON": in = 0: GOTO 1586 - -1584 PRINT "GO UP TO LEVEL "; in - 1 - -1585 in = in - 1: GOSUB 500: MR = 1 - -1586 IF in = 0 THEN PRINT "THOU HAST GAINED": PRINT lk; " HIT POINTS": SLEEP 2: c(0) = c(0) + lk: lk = 0 - -1587 CLS : GOTO 1090 - -1600 GOTO 1090 - -1650 mn = 0: da = 0: PRINT "ATTACK ": PRINT "WHICH WEAPON "; : DO: q$ = INKEY$: LOOP WHILE q$ = "" - -1651 IF q$ = "r" THEN da = 10: PRINT "RAPIER": IF pw(1) < 1 THEN PRINT "NOT OWNED": GOTO 1650 - -1652 IF q$ = "a" THEN da = 5: PRINT "AXE": IF pw(2) < 1 THEN PRINT "NOT OWNED": GOTO 1650 - -1653 IF q$ = "s" THEN da = 1: PRINT "SHIELD": IF pw(3) < 1 THEN PRINT "NOT OWNED": GOTO 1650 - -1654 IF q$ = "b" THEN da = 4: PRINT "BOW": IF pw(4) < 1 THEN PRINT "NOT OWNED": GOTO 1650 - -1655 IF q$ = "m" THEN PRINT "MAGIC AMULET": GOTO 1680 - -1656 IF q$ = "b" AND pt$ = "m" THEN PRINT "MAGES CAN'T USE BOWS!": GOTO 1650 - -1657 IF q$ = "r" AND pt$ = "m" THEN PRINT "MAGES CAN'T USE RAPIERS!": GOTO 1650 - -1659 IF da = 0 THEN PRINT "HANDS" - -1660 IF da = 5 OR da = 4 THEN 1670 - -1661 mn = dn%(px + dx, py + dy) / 10: mn = INT(mn) - -1662 IF mn < 1 OR c(2) - RND(1) * 25 < mn + in THEN PRINT " YOU MISSED": GOTO 1668 - -1663 PRINT "HIT!!! ": da = (RND(1) * da + c(1) / 5): mz%(mn, 1) = INT(mz%(mn, 1) - da) - -1664 PRINT m$(mn); "'S HIT POINTS="; mz%(mn, 1) - -1665 IF mz%(mn, 1) < 1 THEN PRINT "THOU HAST KILLED A "; m$(mn): PRINT "THOU SHALT RECEIVE": da = INT(mn + in): PRINT da; " PIECES OF EIGHT" - -1666 IF mz%(mn, 1) < 1 THEN c(5) = INT(c(5) + da): dn%(ml%(mn, 0), ml%(mn, 1)) = dn%(ml%(mn, 0), ml%(mn, 1)) - 10 * mn: mz%(mn, 0) = 0 - -1667 lk = lk + INT(mn * in / 2): IF mn = ta THEN ta = -ta - -1668 IF pa = 1 THEN PRINT "-CR- TO CONT. "; : INPUT q$ - -1669 SLEEP 1: GOTO 1090 - -1670 IF da = 5 THEN PRINT "TO THROW OR SWING:"; : DO: q$ = INKEY$: LOOP WHILE q$ = "": IF q$ <> "t" THEN PRINT "SWING": GOTO 1661 - -1671 IF da = 5 THEN PRINT "THROW": pw(2) = pw(2) - 1 - -1672 FOR y = 1 TO 5: IF px + dx * y < 1 OR px + dx * y > 9 OR py + dy * y > 9 OR py + dy * y < 0 THEN 1662 - -1673 mn = dn%(px + dx * y, py + dy * y): mn = INT(mn / 10): IF mn > 0 THEN 1662 - -1674 NEXT: GOTO 1662 - -1680 IF pw(5) < 1 THEN PRINT "NONE OWNED": GOTO 1650 - -1681 IF pt$ = "f" THEN q = INT(RND(1) * 4 + 1): GOTO 1685 - -1682 PRINT "1-LADDER-UP", "2-LADDER-DN": PRINT "3-KILL", "4-BAD??": PRINT "CHOICE "; : DO: q$ = INKEY$: LOOP WHILE q$ = "": q = VAL(q$): PRINT q: IF q < 1 OR q > 4 THEN 1682 - -1683 IF RND(1) > .75 THEN PRINT "LAST CHARGE ON THIS AMULET!": pw(5) = pw(5) - 1 - -1685 ON q GOTO 1686, 1690, 1691, 1692 - -1686 PRINT "LADDER UP": dn%(px, py) = 8: SLEEP 1: GOTO 1090 - -1690 PRINT "LADDER DOWN": dn%(px, py) = 7: SLEEP 1: GOTO 1090 - -1691 PRINT "MAGIC ATTACK": da = 10 + in: GOTO 1672 - -1692 ON INT(RND(1) * 3 + 1) GOTO 1693, 1695, 1697 - -1693 PRINT "YOU HAVE BEEN TURNED": PRINT "INTO A TOAD!" - -1694 FOR z2 = 1 TO 4: c(z2) = 3: NEXT z2: SLEEP 3: GOTO 1090 - -1695 PRINT "YOU HAVE BEEN TURNED": PRINT "INTO A LIZARD MAN": FOR y = 0 TO 4: c(y) = INT(c(y) * 2.5): NEXT: SLEEP 3: GOTO 1090 - -1697 PRINT "BACKFIRE": c(0) = c(0) / 2: SLEEP 2: GOTO 1090 - -1700 GOSUB 60080: LOCATE 1, 1: PRINT "PRESS -CR- TO CONTINUE"; : INPUT q$: SCREEN 1: CLS : GOTO 1090 - -2000 nm = 0: FOR x = 1 TO 10 - -2005 mz%(x, 0) = 0: mz%(x, 1) = x + 3 + in - -2010 IF x - 2 > in OR RND(1) > .4 THEN 2090 - -2020 ml%(x, 0) = INT(RND(1) * 9 + 1): ml%(x, 1) = INT(RND(1) * 9 + 1) - -2030 IF dn%(ml%(x, 0), ml%(x, 1)) <> 0 THEN 2020 - -2040 IF ml%(x, 0) = px AND ml%(x, 1) = py THEN 2020 - -2050 dn%(ml%(x, 0), ml%(x, 1)) = x * 10 - -2051 mz%(x, 0) = 1 - -2052 nm = nm + 1 - -2055 mz%(x, 1) = x * 2 + in * 2 * lp - -2090 NEXT: RETURN - -3087 LINE (c - 28 / di, b - 41 / di)-(c + 30 / di, b - 55 / di): LINE (c + 28 / di, b - 58 / di)-(c + 22 / di, b - 56 / di): LINE -(c + 22 / di, b - 53 / di) - LINE -(c + 28 / di, b - 52 / di): LINE -(c + 34 / di, b - 54 / di): LINE (c + 20 / di, b - 50 / di)-(c + 26 / di, b - 47 / di) - -3088 LINE (c + 10 / di, b - 58 / di)-(c + 10 / di, b - 61 / di): LINE -(c + 4 / di, b - 58 / di): LINE (c - 10 / di, b - 58 / di)-(c - 10 / di, b - 61 / di) - LINE -(c - 4 / di, b - 58 / di): LINE (c + 40 / di, b - 9 / di)-(c + 50 / di, b - 12 / di): LINE -(c + 40 / di, b - 7 / di) - -3089 LINE (c - 8 / di, b - 25 / di)-(c + 6 / di, b - 7 / di): LINE -(c + 28 / di, b - 7 / di): LINE -(c + 28 / di, b - 9 / di): LINE -(c + 20 / di, b - 9 / di): LINE -(c + 6 / di, b - 25 / di): GOTO 490 - -4000 FOR mm = 1 TO 10: IF mz%(mm, 0) = 0 THEN 4999 - -4010 ra = SQR((px - ml%(mm, 0)) ^ 2 + (py - ml%(mm, 1)) ^ 2) - -4011 IF mz%(mm, 1) < in * lp THEN 4030 - -4020 IF ra < 1.3 THEN 4500 - -4025 IF mm = 8 AND ra < 3 THEN 4999 - -4030 x1 = SGN(px - ml%(mm, 0)): y1 = SGN(py - ml%(mm, 1)) - -4031 IF mz%(mm, 1) < in * lp THEN x1 = -x1: y1 = -y1 - -4035 IF y1 = 0 THEN 4045 - -4040 d = dn%(ml%(mm, 0), (ml%(mm, 1) + y1 + .499)): IF d = 1 OR d > 9 OR d = 2 THEN 4045 - -4042 x1 = 0: GOTO 4050 - -4045 y1 = 0: IF x1 = 0 THEN 4050 - -4046 d = dn%((ml%(mm, 0) + x1 + .499), ml%(mm, 1)): IF d = 1 OR d > 9 OR d = 2 THEN x1 = 0: GOTO 4081 - -4050 dn%(ml%(mm, 0), ml%(mm, 1)) = dn%(ml%(mm, 0), ml%(mm, 1)) - 10 * mm - -4055 IF ml%(mm, 0) + x1 = px AND ml%(mm, 1) + y1 = py THEN 4999 - -4060 ml%(mm, 0) = ml%(mm, 0) + x1: ml%(mm, 1) = ml%(mm, 1) + y1 - -4080 dn%(ml%(mm, 0), ml%(mm, 1)) = (dn%(ml%(mm, 0), ml%(mm, 1)) + 10 * mm + .499) - -4081 IF x1 <> 0 OR y1 <> 0 THEN 4999 - -4082 IF mz%(mm, 1) < in * lp AND ra < 1.3 THEN 4500 - -4083 IF mz%(mm, 1) < in * lp THEN mz%(mm, 1) = mz%(mm, 1) + mm + in - -4499 GOTO 4999 - -4500 IF mm = 2 OR mm = 7 THEN 4600 - -4509 PRINT "YOU ARE BEING ATTACKED": PRINT "BY A "; m$(mm) - -4510 IF RND(1) * 20 - SGN(pw(3)) - c(3) + mm + in < 0 THEN PRINT "MISSED": GOTO 4525 - -4520 PRINT "HIT": c(0) = c(0) - INT(RND(1) * mm + in) - -4525 IF pa = 1 THEN PRINT "-CR- TO CONT. "; : INPUT q$ - -4530 GOTO 4999 - -4600 IF RND(1) < .5 THEN 4509 - -4610 IF mm = 7 THEN pw(0) = INT(pw(0) / 2): PRINT "A GREMLIN STOLE SOME FOOD": GOTO 4525 - -4620 zz = INT(RND(1) * 6): IF pw(zz) < 1 THEN 4620 - -4630 PRINT "A THIEF STOLE A "; w$(zz): pw(zz) = pw(zz) - 1: GOTO 4525 - -4999 NEXT: RETURN - -6000 VIEW PRINT: CLS : PRINT : PRINT : PRINT " WE MOURN THE PASSING OF" - -6005 IF LEN(pn$) > 22 THEN pn$ = "" - -6010 IF pn$ = "" THEN pn$ = "THE PEASANT" - -6020 pn$ = pn$ + " AND HIS COMPUTER" - -6030 PRINT TAB(20 - INT(LEN(pn$) / 2)); : PRINT pn$ - -6035 PRINT " TO INVOKE A MIRACLE OF RESSURECTION" - -6040 PRINT " "; - -6050 DO: LOOP UNTIL INKEY$ = CHR$(27) - -6060 GOTO 1 - -7000 SCREEN 1: VIEW PRINT: CLS - -7001 REM - -7010 IF pn$ <> "" THEN 7500 - -7020 PRINT : PRINT : PRINT " WELCOME PEASANT INTO THE HALLS OF": PRINT "THE MIGHTY LORD BRITISH. HEREIN THOU MAYCHOOSE TO DARE BATTLE WITH THE EVIL": PRINT "CREATURES OF THE DEPTHS, FOR GREAT": PRINT "REWARD!" - -7030 PRINT : PRINT "WHAT IS THY NAME PEASANT "; : INPUT pn$: pn$ = UCASE$(pn$) - -7040 PRINT "DOEST THOU WISH FOR GRAND ADVENTURE ? "; : DO: q$ = INKEY$: LOOP WHILE q$ = "" - IF q$ <> "y" THEN PRINT : PRINT "THEN LEAVE AND BEGONE!": pn$ = "": PRINT : PRINT " PRESS -SPACE- TO CONT."; : DO: q$ = INKEY$: LOOP UNTIL q$ = " ": CLS : GOTO 1090 - -7045 PRINT - -7050 PRINT : PRINT "GOOD! THOU SHALT TRY TO BECOME A ": PRINT "KNIGHT!!!": PRINT : PRINT "THY FIRST TASK IS TO GO INTO THE": PRINT "DUNGEONS AND TO RETURN ONLY AFTER": PRINT "KILLING A(N) "; : ta = INT(c(4) / 3): PRINT m$(ta) - -7060 PRINT : PRINT " GO NOW UPON THIS QUEST, AND MAY": PRINT "LADY LUCK BE FAIR UNTO YOU.....": PRINT ".....ALSO I, BRITISH, HAVE INCREASED": PRINT "EACH OF THY ATTRIBUTES BY ONE!" - -7070 PRINT : PRINT " PRESS -SPACE- TO CONT."; : DO: q$ = INKEY$: LOOP WHILE q$ = "": FOR x = 0 TO 5: c(x) = c(x) + 1: NEXT: CLS : GOTO 1090 - -7500 IF ta > 0 THEN PRINT : PRINT : PRINT pn$; " WHY HAST THOU RETURNED?": PRINT "THOU MUST KILL A(N) "; m$(ta) - PRINT "GO NOW AND COMPLETE THY QUEST!": PRINT : PRINT " PRESS -SPACE- TO CONT."; : DO: q$ = INKEY$: LOOP WHILE q$ = "": CLS : GOTO 1090 - -7510 PRINT : PRINT : PRINT : PRINT "AAHH!!....."; pn$: PRINT : PRINT "THOU HAST ACOMPLISHED THY QUEST!": IF ABS(ta) = 10 THEN 7900 - -7520 PRINT "UNFORTUNATELY, THIS IS NOT ENOUGH TO": PRINT "BECOME A KNIGHT.": ta = ABS(ta) + 1: PRINT : PRINT "NOW THOU MUST KILL A(N) "; m$(ta) - -7530 GOTO 7060 - -7900 SCREEN 1: VIEW PRINT: CLS : PRINT : PRINT : PRINT : pn$ = "LORD " + pn$: PRINT " "; pn$; "," - -7910 PRINT " THOU HAST PROVED THYSELF WORTHY": PRINT "OF KNIGHTHOOD, CONTINUE PLAY IF THOU": PRINT "DOTH WISH, BUT THOU HAST ACOMPLISHED": PRINT "THE MAIN OBJECTIVE OF THIS GAME..." - -7920 IF lp = 10 THEN 7950 - -7930 PRINT : PRINT " NOW MAYBE THOU ART FOOLHEARTY": PRINT "ENOUGH TOTRY DIFFICULTY LEVEL "; lp + 1 - -7940 GOTO 7070 - -7950 PRINT : PRINT "...CALL CALIFORNIA PACIFIC COMPUTER": PRINT "AT (415)-569-9126 TO REPORT THIS": PRINT "AMAZING FEAT!" - -7990 GOTO 7070 - -60000 SCREEN 1: VIEW PRINT: CLS : LOCATE 5, 1: INPUT "TYPE THY LUCKY NUMBER....."; q$: ln = VAL(q$) - -60005 LOCATE 7, 1: INPUT "LEVEL OF PLAY (1-10)......"; q$: lp = INT(VAL(q$)) - -60006 IF lp < 1 OR lp > 10 THEN 60005 - -60010 RANDOMIZE ln - -60020 DATA "HIT POINTS.....","STRENGTH.......","DEXTERITY......","STAMINA........","WISDOM.........","GOLD..........." - -60025 REM - -60030 DIM c$(5): FOR x = 0 TO 5: READ c$(x): NEXT - -60040 REM - -60041 REM - -60042 DATA "SKELETON","THIEF","GIANT RAT","ORC","VIPER","CARRION CRAWLER","GREMLIN","MIMIC","DAEMON","BALROG" - -60043 FOR x = 1 TO 10: READ m$(x): NEXT - -60050 FOR x = 0 TO 5: c(x) = INT(SQR(RND(1)) * 21 + 4): NEXT x - -60060 CLS : LOCATE 8, 1: FOR x = 0 TO 5: PRINT c$(x); c(x): NEXT: PRINT : PRINT "SHALT THOU PLAY WITH THESE QUALITIES?": PRINT TAB(20); : DO: q$ = INKEY$: LOOP WHILE q$ = "": IF q$ <> "y" THEN 60050 - -60061 LOCATE 15, 1: PRINT : PRINT "AND SHALT THOU BE A FIGHTER OR A MAGE?": PRINT TAB(20); : DO: pt$ = INKEY$: LOOP WHILE pt$ = "" - -60062 IF pt$ = "m" OR pt$ = "f" THEN 60070 - -60063 GOTO 60061 - -60070 DATA "FOOD","RAPIER","AXE","SHIELD","BOW AND ARROWS","MAGIC AMULET": FOR x = 0 TO 5: READ w$(x): NEXT - -60075 GOSUB 60080: GOSUB 60200: RETURN - -60080 SCREEN 1: VIEW PRINT: CLS : PRINT : PRINT : PRINT " STAT'S WEAPONS": PRINT : FOR x = 0 TO 5: PRINT c$(x); c(x); TAB(24); "0-"; w$(x): NEXT: LOCATE 1, 1 - -60081 LOCATE 11, 18: PRINT "Q-QUIT" - -60082 REM IF pw(0) > 0 THEN REM CALL 62450 - -60085 FOR z = 0 TO 5: LOCATE 5 + z, 25 - LEN(STR$(pw(z))): PRINT STR$(pw(z)); : NEXT - -60090 LOCATE 17, 5: PRINT "PRICE"; : PRINT TAB(15); : PRINT "DAMAGE"; : PRINT TAB(25); : PRINT "ITEM" - -60100 FOR x = 0 TO 5: LOCATE 19 + x, 25: PRINT w$(x); : NEXT - -60110 LOCATE 19, 5: PRINT "1 FOR 10"; : PRINT TAB(15); : PRINT "N/A": LOCATE 20, 5: PRINT "8"; : PRINT TAB(15); : PRINT "1-10": LOCATE 21, 5: PRINT "5"; : PRINT TAB(15); : PRINT "1-5" - -60120 LOCATE 22, 5: PRINT "6"; : PRINT TAB(15); : PRINT "1": LOCATE 23, 5: PRINT "3"; : PRINT TAB(15); : PRINT "1-4"; : LOCATE 24, 5: PRINT "15"; : PRINT TAB(15); : PRINT "?????"; : LOCATE 1, 1 - -60130 RETURN - -60200 LOCATE 1, 1: PRINT "WELCOME TO THE ADVENTURE SHOP" - -60210 LOCATE 13, 1: FOR jj = 0 TO 1: PRINT " ": NEXT - LOCATE 12, 1: PRINT "WHICH ITEM SHALT THOU BUY "; : LOCATE 12, 27: DO: q$ = INKEY$: LOOP WHILE q$ = "" - IF q$ = "q" THEN PRINT : PRINT : PRINT "BYE": SLEEP 1: SCREEN 1: CLS : RETURN - -60215 z = -1 - -60220 IF q$ = "f" THEN PRINT "FOOD": z = 0: p = 1 - -60221 IF q$ = "r" THEN PRINT "RAPIER": z = 1: p = 8 - -60222 IF q$ = "a" THEN PRINT "AXE": z = 2: p = 5 - -60223 IF q$ = "s" THEN PRINT "SHIELD": z = 3: p = 6 - -60224 IF q$ = "b" THEN PRINT "BOW": z = 4: p = 3 - -60225 IF q$ = "m" THEN PRINT "AMULET": z = 5: p = 15 - -60226 IF z = -1 THEN PRINT UCASE$(q$): PRINT "I'M SORRY WE DON'T HAVE THAT.": SLEEP 2: GOTO 60210 - -60227 IF q$ = "r" AND pt$ = "m" THEN PRINT "I'M SORRY MAGES": PRINT "CAN'T USE THAT!": SLEEP 2: GOTO 60210 - -60228 IF q$ = "b" AND pt$ = "m" THEN PRINT "I'M SORRY MAGES": PRINT "CAN'T USE THAT!": SLEEP 2: GOTO 60210 - -60230 IF c(5) - p < 0 THEN PRINT "M'LORD THOU CAN NOT AFFORD THAT ITEM.": SLEEP 2: GOTO 60210 - -60235 IF z = 0 THEN pw(z) = pw(z) + 9 - -60236 pw(z) = pw(z) + 1: c(5) = c(5) - p - -60237 LOCATE 10, 16: PRINT c(5); " " - -60240 LOCATE 5 + z, 25 - LEN(STR$(pw(z))): PRINT pw(z); : LOCATE 14, 1: PRINT - -60250 GOTO 60210 - diff --git a/programs/samples/misc/ascipong.bas b/programs/samples/misc/ascipong.bas deleted file mode 100644 index bd5e39162..000000000 --- a/programs/samples/misc/ascipong.bas +++ /dev/null @@ -1,58 +0,0 @@ -' This work has been released into the public domain by the copyright -' holder. This applies worldwide. -' -' In case this is not legally possible: -' The copyright holder grants any entity the right to use this work for any -' purpose, without any conditions, unless such conditions are required by -' law. - -DEFINT A-Z -DIM SCORE AS LONG, DELAY AS SINGLE, T AS SINGLE -SCREEN 12 ' This is just to make it full screen -SCREEN 0 ' Screen 0 rules -WIDTH 40 -CLS -X = 50: Y = 50: X2 = 130: Y2 = 150 -PSPEED = 5: XADJ = 1: YADJ = 1: DELAY = .05 -DO -CLS -PRESS$ = INKEY$ -LOCATE Y \ 8 + 1, X \ 8 + 1 -PRINT "o" -LOCATE Y2 \ 8 + 1, X2 \ 8 + 1 -PRINT STRING$(4, 219) -LOCATE 1, 1 -PRINT SCORE -IF Y <= 20 THEN YADJ = 1 -IF Y >= 180 THEN YADJ = -1 -IF X >= 300 THEN XADJ = -1 -IF X <= 20 THEN XADJ = 1 -SELECT CASE PRESS$ -CASE CHR$(0) + CHR$(75) -IF X2 > 1 THEN X2 = X2 - PSPEED -CASE CHR$(0) + CHR$(77) -IF X2 < 290 THEN X2 = X2 + PSPEED -CASE CHR$(27) -END -CASE CHR$(0) + CHR$(72) -DELAY = DELAY - .002 -CASE CHR$(0) + CHR$(80) -DELAY = DELAY + .002 -END SELECT -X = X + XADJ -Y = Y + YADJ -IF Y < Y2 + 8 AND Y > Y2 - 8 AND X < X2 + 32 AND X > X2 THEN -YADJ = -1: SCORE = SCORE + 1 -END IF -IF Y > Y2 + 10 THEN -PRESS$="" -DO WHILE PRESS$ <> "" -PRESS$ = INKEY$ -COLOR INT(RND(1) * 16) -PRINT "GAME OVER", -LOOP -END -END IF -T = TIMER + DELAY -WHILE T > TIMER: WEND -LOOP \ No newline at end of file diff --git a/programs/samples/misc/audio.bas b/programs/samples/misc/audio.bas deleted file mode 100644 index 344833966..000000000 --- a/programs/samples/misc/audio.bas +++ /dev/null @@ -1,127 +0,0 @@ -DEFLNG A-Z -WIDTH 80, 50 -COLOR 15 -CLS -PRINT "QB64 AUDIO (ESC=QUIT, H=SELECT HANDLE)" -PRINT "Basics: O=OPEN C=CLOSE ENTER=PLAY S=STOP L=LOOP" -PRINT "Extras: V=VOL B=BAL SPACE=PAUSE A=SETPOS Z=COPY" -PRINT "Info: Q=PLAYING&GETPOS W=LEN P=PAUSED" -PRINT "Macros: F=PLAYFILE X=PLAYCOPY" -PRINT STRING$(80, "_") -VIEW PRINT 8 TO 50 -LOCATE , , 1 - -DO - -SLEEP 'lowers CPU usage -k$ = UCASE$(INKEY$) - -IF k$ = CHR$(27) THEN END - -IF k$ = "H" THEN -h2 = h -INPUT "handle=", h -IF h = 0 THEN PRINT "Invalid handle": h = h2 -END IF - -IF k$ = "O" THEN -PRINT "handle=_SNDOPEN(filename$,[requirements$])" -INPUT ; "handle=_SNDOPEN(", f$, r$ -PRINT ")" -h2 = h -h=_SNDOPEN(f$, r$) -IF h=0 THEN -IF h2 THEN h = h2 -PRINT "Failed" -ELSE -PRINT "handle="; h -END IF -END IF - -IF k$ = "C" THEN -PRINT "_SNDCLOSE"; h -_SNDCLOSE h -END IF - -IF k$ = CHR$(13) THEN -PRINT "_SNDPLAY"; h -_SNDPLAY h -END IF - -IF k$ = "S" THEN -PRINT "_SNDSTOP"; h -_SNDSTOP h -END IF - -IF k$ = "L" THEN -PRINT "_SNDLOOP"; h -_SNDLOOP h -END IF - -IF k$ = "V" THEN -PRINT "_SNDVOL handle&,volume!{0-1}" -PRINT "_SNDVOL"; h; ","; -INPUT "", volume! -_SNDVOL h, volume! -END IF - -IF k$ = "B" THEN -PRINT "_SNDBAL handle&,[x!],[y!],[z!]" -PRINT "_SNDBAL"; h; ","; -INPUT "", x!, y!, z! -_SNDBAL h, x!, y!, z! -END IF - -IF k$ = " " THEN -PRINT "_SNDPAUSE"; h -_SNDPAUSE h -END IF - -IF k$ = "A" THEN -PRINT "_SNDSETPOS handle&,offsetinseconds!" -PRINT "_SNDSETPOS"; h; ","; -INPUT "", offset! -_SNDSETPOS h, offset! -END IF - -IF k$ = "Z" THEN -PRINT "handle=_SNDCOPY("; h; ")" -h2 = _SNDCOPY(h) -if h2 then -h = h2 -PRINT "handle="; h -ELSE -PRINT "Failed" -END IF -END IF - -IF k$ = "Q" THEN -PRINT "PRINT _PLAYING("; h; ")" -PRINT _SNDPLAYING(h) -PRINT "PRINT _GETPOS("; h; ")" -PRINT _SNDGETPOS(h) -END IF - -IF k$ = "W" THEN -PRINT "PRINT _SNDLEN("; h; ")" -PRINT _SNDLEN(h) -END IF - -IF k$ = "P" THEN -PRINT "PRINT _SNDPAUSED("; h; ")" -PRINT _SNDPAUSED(h) -END IF - -IF k$ = "F" THEN -PRINT "_SNDPLAYFILE filename$,sync%{0/1},volume!{0-1}" -INPUT "_SNDPLAYFILE ", filename$, sync%, volume! -_SNDPLAYFILE filename$, sync%, volume! -END IF - -IF k$ = "X" THEN -PRINT "_SNDPLAYCOPY"; h -_SNDPLAYCOPY h -END IF - -LOOP - diff --git a/programs/samples/misc/boom1.raw b/programs/samples/misc/boom1.raw deleted file mode 100644 index 88197e5e0..000000000 --- a/programs/samples/misc/boom1.raw +++ /dev/null @@ -1 +0,0 @@ -þþþþþþþþþþþþþþþþþþþþþþp**þþþp¸pp)pppþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþpp)*********)))**))*)pppþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþp*++++++DD+*)*)*+**++**))þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ*++D+++D*)*+++DD++DD+**þþþþþþþþþþþþþþþþþþþþþþþþþþþþþDD+D+**+DD++DD+*þþþþþþþþþþþþþþþþþþþþþþþþþþþþ*)++D+DD+++++++DD+++DD+**þþþþþþþþþþþþþþþþþþþþþþþþþ)++++++++++D+++DD+DDDD+++++)*+*þþþþþþþþþþþþþþþþþþþþþþþ)*++DD+++++D++DD++++)****þþþþþþþþþþþþþþþþþþþ**)***+DD+DD++D++**++)þþþþþþþþþþþþþþþþþ****D+++DDD++++D+*))++)þþþþþþþþþþþþþþþp*+++D++*DDDDDDD+DDDDDD+***D+*þþþþþþþþþþþþþþ)*++DDD++DDDDDDDDDDDDD+*+)+*þþþþþþþþþþþþþ**+++++++DDDD+D+*)++*þþþþþþþþþþþþþ)**++++DDDDDD+D+*+*þþþþþþþþþþþþþ***++++DDDDD+D++++*þþþþþþþþþþþþþ***++DDDDDDD+++++*)þþþþþþþþþþþþþ)+++DDDDDDD++DDDDD+)þþþþþþþþþþþþ*++D+DDDDDDDD*DDD+*þþþþþþþþþþþ+++DDDDDDDDD+DDDDD++þþþþþþþþþþþ+++DDDDDDDDD+DD+++*)þþþþþþþþþ++DDDDDDDDDDDD*+++)þþþþþþþ)**+DDDDDDDDD++DD+)þþþþþþ))++DDDDDDDD+D+*)þþþþþþ*+DDDDDD+*þþþþþþþ)+++DD+DDDDDD+++++**þþþþþþþ**+DDDDDDD++++*+)þþþþþþþ))+*+DDDDDD++++++*þþþþþþ*****+DDD+D++++++*þþþþþþ**++++DD+DDDDD+++D+*++*þþþþ*+++D+DDD++++D+*++*pþþþp)*+++D+DDD+D++++D*+**þþp)*++++++DDD+++D+)*+*þþþp**++*++DDDD++D++***þþþp)*++*+DDDDDD+D++***þþþ**+*++DDDDD+++*+D)þþ***+**+D+DDDD++**)þþþp)**+**++DDDDDDDD++++*+þþþþþ**++*+++DDDDDDDD+++*++*þþþþ*++**++++DDDDDDDD++**+**)pþþþ)****++DDDD+D+**+***þþþ)*+**+++DDDDD++*+**þþþ*+*)*++D+DDDDDD+*++*)pþþþ)*)*++D++DDDD++*++**pþþ**)+D+++DDD++++++*)pþþ)+*D++++D+DDD+D+++*)pþþþp)***+D++++DDD+D+++*þþþþ*)*)+D+++DDDDD+DD++++**þþþþþþ)*+++++D+DDD+*****þþþþþþ*++++++DDDDDD+*+))þþþþþþþ)+*++++DDDDDDD+**þþþþþþþ**+++++DDDDDD+DD+++)þþþþþþþ*+DDDDDDDDDD+*þþþþþþ))++DDDDDDDD+D+*)þþþþþþþ)**+DDDDDDDDD++DD+)þþþþþþþþ++DDDDDDDDDDDD*+++)þþþþþþþþþ+++DDDDDDDDD+DD+++*)þþþþþþþþþþ+++DDDDDDDDD+DDDDD++þþþþþþþþþþþ*++D+DDDDDDDD*DDD+*þþþþþþþþþþþþ)+++DDDDDDD++DDDDD+)þþþþþþþþþþþþþ***++DDDDDDD+++++*)þþþþþþþþþþþþþþ***++++DDDDD+D++++*þþþþþþþþþþþþþþ)**++++DDDDDD+D+*+*þþþþþþþþþþþþþ**+++++++DDDD+D+*)++*þþþþþþþþþþþþþþ)*++DDD++DDDDDDDDDDDDD+*+)+*þþþþþþþþþþþþþþp*+++D++*DDDDDDD+DDDDDD+***D+*þþþþþþþþþþþþþþþ****D+++DDD++++D+*))++)þþþþþþþþþþþþþþþþþ**)***+DD+DD++D++**++)þþþþþþþþþþþþþþþþþþþþ)*++DD+++++D++DD++++)****þþþþþþþþþþþþþþþþþþþþþþ)++++++++++D+++DD+DDDD+++++)*+*þþþþþþþþþþþþþþþþþþþþþþþþþþ*)++D+DD+++++++DD+++DD+**þþþþþþþþþþþþþþþþþþþþþþþþþþþþDD+D+**+DD++DD+*þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ*++D+++D*)*+++DD++DD+**þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþp*++++++DD+*)*)*+**++**))þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþpp)*********)))**))*)pppþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþp**þþþp¸pp)pppþþþþþþþþþþþþþþþþ \ No newline at end of file diff --git a/programs/samples/misc/cabsmous.bas b/programs/samples/misc/cabsmous.bas deleted file mode 100644 index 4417e5ad2..000000000 --- a/programs/samples/misc/cabsmous.bas +++ /dev/null @@ -1,393 +0,0 @@ -'Mouse utilities for text mode. Written by TFM 9/11/94 -'Uses INT 33 to use a Microsoft Compatable mouse driver -'Written in basic calling an assembly language routine. -'Works in normal basic - -DECLARE FUNCTION inbox! (boxx1!, boxx2!, boxy1!, boxy2!) 'if pointer is in box return 1 else return 0 -DECLARE FUNCTION inboxpress1! (boxx1!, boxx2!, boxy1!, boxy2!) 'if last press was in box return 1 else return 0 -DECLARE FUNCTION inboxpress2! (boxx1!, boxx2!, boxy1!, boxy2!) 'if last press was in box return 1 else return 0 -DECLARE FUNCTION inboxrelease1! (boxx1!, boxx2!, boxy1!, boxy2!) 'if last release was in box return 1 else return 0 -DECLARE FUNCTION inboxrelease2! (boxx1!, boxx2!, boxy1!, boxy2!) 'if last release was in box return 1 else return 0 -DECLARE SUB releasemouse (button!) 'mouse x & y = last place botton 1 pressed -DECLARE SUB pressmouse (button!) 'mouse x & y = last place botton 1 released -DECLARE SUB hidemouse () 'hide mose -DECLARE SUB mouseinterupt (ax!, bx!, cx!, dx!) 'int 33 with register values -DECLARE SUB initmouse () 'sets up mouse & if found mouse passed = 1 -DECLARE SUB showmouse () 'show the mouse -DECLARE SUB getxymouse () 'get position of mouse in mouse x & y and mouse buttons in mousebutton 1 & 2 -DECLARE SUB verticalmouse (miny!, maxy!) 'Set vertical mouse limmits -DECLARE SUB horizontalmouse (miny!, maxy!) 'Set horizontal mouse limmits - -DIM SHARED ax AS INTEGER -DIM SHARED bx AS INTEGER -DIM SHARED cx AS INTEGER -DIM SHARED dx AS INTEGER -DIM SHARED mousex AS INTEGER -DIM SHARED mousey AS INTEGER -DIM SHARED mousebutton1 AS INTEGER -DIM SHARED mousebutton2 AS INTEGER -DIM SHARED mousevisible AS INTEGER -DIM SHARED mousepassed AS INTEGER - -CLS - -CALL initmouse -CALL showmouse -CALL horizontalmouse(10, 70) 'Set mouse position (min and max) -CALL verticalmouse(10, 15) 'Set mouse position - -DO - CALL pressmouse(1) 'Wait for button 1 to be pressed - - CALL getxymouse 'Store current positon in globals - 'This isn't needed coz pressmouse(1) - 'Already does it, but it is an example - - 'Display position, stored in global variables - LOCATE 24, 1 - PRINT "X - "; mousex, " Y - "; mousey, " Button1 - "; mousebutton1; " Button2 - "; mousebutton2; - - IF inboxpress1(10, 70, 10, 12) THEN - LOCATE 24, 70 - PRINT "*"; - ELSE - LOCATE 24, 70 - PRINT " "; - END IF - IF mousebutton1 = 1 THEN CALL hidemouse - IF mousebutton2 = 1 THEN CALL showmouse -LOOP - -SUB getxymouse - - -IF mousepassed = 1 THEN - - CALL mouseinterupt(&H3, 0, 0, 0) - - mousex = (cx / 8) + 1 - mousey = (dx / 8) + 1 - button = bx - - - IF button = 0 THEN - mousebutton1 = 0: mousebutton2 = 0 - ELSEIF button = 1 THEN - mousebutton1 = 1: mousebutton2 = 0 - ELSEIF button = 2 THEN - mousebutton1 = 0: mousebutton2 = 1 - ELSEIF button = 3 THEN - mousebutton1 = 1: mousebutton2 = 1 - END IF - - DEF SEG - - - LOCATE 24, 1 - PRINT "X - "; mousex, " Y - "; mousey, " Button1 - "; mousebutton1; " Button2 - "; mousebutton2; -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF -END SUB - -SUB hidemouse - -IF mousepassed = 1 THEN - IF mousevisible = 1 THEN - CALL mouseinterupt(2, 0, 0, 0) - mousevisible = 0 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END SUB - -SUB horizontalmouse (minx, maxx) - -IF mousepassed = 1 THEN - IF minx < 0 THEN maxx = 0 - IF maxx > 80 THEN maxx = 80 - IF maxx < minx THEN maxx = minx - CALL mouseinterupt(7, 0, (minx - 1) * 8, (maxx - 1) * 8) -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END SUB - -FUNCTION inbox (boxx1, boxx2, boxy1, boxy2) - -IF mousepassed = 1 THEN - CALL getxymouse - IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN - inbox = 1 - ELSE - inbox = 0 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - - -END FUNCTION - -FUNCTION inboxpress1 (boxx1, boxx2, boxy1, boxy2) - -IF mousepassed = 1 THEN - CALL pressmouse(1) - IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN - inboxpress1 = 1 - ELSE - inboxpress1 = 0 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END FUNCTION - -FUNCTION inboxpress2 (boxx1, boxx2, boxy1, boxy2) - -IF mousepassed = 1 THEN - CALL pressmouse(2) - IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN - inboxpress2 = 1 - ELSE - inboxpress2 = 0 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END FUNCTION - -FUNCTION inboxrelease1 (boxx1, boxx2, boxy1, boxy2) - -IF mousepassed = 1 THEN - CALL releasemouse(1) - IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN - inboxrelease1 = 1 - ELSE - inboxrelease1 = 0 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - - -END FUNCTION - -FUNCTION inboxrelease2 (boxx1, boxx2, boxy1, boxy2) - -IF mousepassed = 1 THEN - CALL releasemouse(2) - IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN - inboxrelease2 = 1 - ELSE - inboxrelease2 = 0 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - - -END FUNCTION - -SUB initmouse - - -CALL mouseinterupt(0, 0, 0, 0) - -IF ax = 2 THEN - mousepassed = 1 -ELSE - mousepassed = 0 -END IF - -END SUB - - -SUB mouseinterupt (m1, m2, m3, m4) - -n1 = 0: n2 = 0: n3 = 0: n4 = 0 - -DO WHILE m1 > 255 - m1 = m1 - 255 - n1 = n1 + 1 -LOOP -DO WHILE m2 > 255 - m2 = m2 - 255 - n2 = n2 + 1 -LOOP -DO WHILE m3 > 255 - m3 = m3 - 255 - n3 = n3 + 1 -LOOP -DO WHILE m4 > 255 - m4 = m4 - 255 - n4 = n4 + 1 -LOOP - - DIM b%(47) - DEF SEG = VARSEG(b%(0)) - - POKE VARPTR(b%(0)) + 0, &H50 'push AX - POKE VARPTR(b%(0)) + 1, &H53 'push BX - POKE VARPTR(b%(0)) + 2, &H51 'push CX - POKE VARPTR(b%(0)) + 3, &H52 'push DX - POKE VARPTR(b%(0)) + 4, &H1E 'push DS - - POKE VARPTR(b%(0)) + 5, &HB8 - POKE VARPTR(b%(0)) + 6, m1 'set AX - POKE VARPTR(b%(0)) + 7, n1 - - POKE VARPTR(b%(0)) + 8, &HBB - POKE VARPTR(b%(0)) + 9, m2 'set BX - POKE VARPTR(b%(0)) + 10, n2 - - POKE VARPTR(b%(0)) + 11, &HB9 - POKE VARPTR(b%(0)) + 12, m3 'set CX - POKE VARPTR(b%(0)) + 13, n3 - - POKE VARPTR(b%(0)) + 14, &HBA - POKE VARPTR(b%(0)) + 15, m4 'set DX - POKE VARPTR(b%(0)) + 16, n4 - - POKE VARPTR(b%(0)) + 17, &HCD 'INT 33 - POKE VARPTR(b%(0)) + 18, &H33 - - POKE VARPTR(b%(0)) + 19, &H50 'push AX - - POKE VARPTR(b%(0)) + 20, &HB8 'AX = B800 - POKE VARPTR(b%(0)) + 21, &H0 - POKE VARPTR(b%(0)) + 22, &HB8 - - POKE VARPTR(b%(0)) + 23, &H8E 'DS = AX - POKE VARPTR(b%(0)) + 24, &HD8 - - POKE VARPTR(b%(0)) + 25, &H58 'pop AX - - POKE VARPTR(b%(0)) + 26, &H89 - POKE VARPTR(b%(0)) + 27, &H1E '[0001] = AX - POKE VARPTR(b%(0)) + 28, &HA1 - POKE VARPTR(b%(0)) + 29, &HF - - POKE VARPTR(b%(0)) + 30, &H89 - POKE VARPTR(b%(0)) + 31, &H1E '[0003] = BX - - POKE VARPTR(b%(0)) + 32, &HA3 - POKE VARPTR(b%(0)) + 33, &HF - - POKE VARPTR(b%(0)) + 34, &H89 - POKE VARPTR(b%(0)) + 35, &HE '[0005] = CX - POKE VARPTR(b%(0)) + 36, &HA5 - POKE VARPTR(b%(0)) + 37, &HF - - POKE VARPTR(b%(0)) + 38, &H89 - POKE VARPTR(b%(0)) + 39, &H16 '[0007] = DX - POKE VARPTR(b%(0)) + 40, &HA7 - POKE VARPTR(b%(0)) + 41, &HF - - - POKE VARPTR(b%(0)) + 42, &H1F 'pop DS - POKE VARPTR(b%(0)) + 43, &H5A 'pop DX - POKE VARPTR(b%(0)) + 44, &H59 'pop CX - POKE VARPTR(b%(0)) + 45, &H5B 'pop BX - POKE VARPTR(b%(0)) + 46, &H58 'pop AX - - POKE VARPTR(b%(0)) + 47, &HCB 'RETF - - - CALL ABSOLUTE(VARPTR(b%(0))) - - DEF SEG = &HB800 - ax = PEEK(&HFA1) + 256 * PEEK(&HFA2) - bx = PEEK(&HFA3) + 256 * PEEK(&HFA4) - cx = PEEK(&HFA5) + 256 * PEEK(&HFA6) - dx = PEEK(&HFA7) + 256 * PEEK(&HFA8) - - -END SUB - -SUB movemouse (newx, newy) - -IF mousepassed = 1 THEN - IF newx < 26 AND newx > 0 AND newy < 81 AND newy > 0 THEN - CALL mouseinterupt(4, 0, (newx - 1) * 8, (newy - 1) * 8) - mousex = newx - mousey = newy - ELSE - PRINT - PRINT "Illegal mouse position!!!"; - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END SUB - -SUB pressmouse (button) - -IF mousepassed = 1 THEN - CALL mouseinterupt(5, button - 1, 0, 0) - mousex = (cx / 8) + 1 - mousey = (dx / 8) + 1 - - -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF -END SUB - -SUB releasemouse (button) - -IF mousepassed = 1 THEN - CALL mouseinterupt(5, button - 1, 0, 0) - mousex = (cx / 8) + 1 - mousey = (dx / 8) + 1 -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END SUB - -SUB showmouse - -IF mousepassed = 1 THEN - IF mousevisible = 0 THEN - CALL mouseinterupt(1, 0, 0, 0) - mousevisible = 1 - END IF -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - -END SUB - -SUB verticalmouse (miny, maxy) - -IF mousepassed = 1 THEN - IF miny < 0 THEN maxy = 0 - IF maxy > 25 THEN maxy = 25 - IF maxy < miny THEN maxy = miny - CALL mouseinterupt(8, 0, (miny - 1) * 8, (maxy - 1) * 8) -ELSE - LOCATE 24, 1 - PRINT "Sorry no mouse found" -END IF - - -END SUB \ No newline at end of file diff --git a/programs/samples/misc/carols.bas b/programs/samples/misc/carols.bas deleted file mode 100644 index 2ec0f3c35..000000000 --- a/programs/samples/misc/carols.bas +++ /dev/null @@ -1,1328 +0,0 @@ -10 REM *** CAROLS.BAS A selection of Christmas Carols by Greg Rismoen 12/09/84 -20 REM -30 REM Merry Christmas! This was programmed on my own time at home on an IBM-XT. -40 REM Donated to the public domain. All rights reserved. Not for commercial use. -'50 KEY OFF -'60 KEY (1) ON -'70 ON KEY (1) GOSUB 250 -80 CLS: INPUT "Are you using a Color Monitor (enter Y or N) ? ", C$ -90 IF C$ = "Y" OR C$ = "y" OR C$ = "N" OR C$ = "n" THEN 100 ELSE GOTO 80 -100 IF C$ = "N" OR C$ = "n" THEN CC = 0 ELSE CC = 1 -110 SCREEN 0: COLOR 7, CC: CLS -120 LOCATE 5, 20 -130 PRINT CHR$(201); STRING$(40, 205); CHR$(187) -140 FOR X = 6 TO 17 - 150 LOCATE X, 20 - 160 PRINT CHR$(186); - 170 LOCATE X, 61 - 180 PRINT CHR$(186) -190 NEXT X -200 LOCATE X, 20: PRINT CHR$(200); STRING$(40, 205); CHR$(188) -210 LOCATE 10, 33: PRINT "CHRISTMAS CAROLS" -220 LOCATE 13, 33: PRINT " presented by" -230 LOCATE 15, 33: PRINT " Greg Rismoen" -240 GOTO 12910 -'250 RETURN 260 -260 RESTORE -270 CLS -280 PLAY "MN" -290 LOCATE 1, 2 -300 PRINT CHR$(201); STRING$(76, 205); CHR$(187) -310 FOR X = 2 TO 22 - 320 LOCATE X, 2 - 330 PRINT CHR$(186); - 340 LOCATE X, 79 - 350 PRINT CHR$(186) -360 NEXT X -370 LOCATE X, 2: PRINT CHR$(200); STRING$(76, 205); CHR$(188) -380 LOCATE 3, 2: PRINT CHR$(204); STRING$(76, 205); CHR$(185) -390 LOCATE 3, 41: PRINT CHR$(203) -400 LOCATE 23, 41: PRINT CHR$(202) -410 FOR X = 4 TO 22: LOCATE X, 41: PRINT CHR$(186): NEXT X -420 LOCATE 2, 20: PRINT "CHRISTMAS CAROLS presented by: Greg Rismoen" -430 LOCATE 4, 5: PRINT "1) THE TWELVE DAYS OF CHRISTMAS" -440 LOCATE 5, 5: PRINT "2) JOY TO THE WORLD" -450 LOCATE 6, 5: PRINT "3) O LITTLE TOWN OF BETHLEHEM" -460 LOCATE 7, 5: PRINT "4) SILENT NIGHT" -470 LOCATE 8, 5: PRINT "5) I HEARD THE BELLS ON XMAS DAY" -480 LOCATE 9, 5: PRINT "6) O COME ALL YE FAITHFUL" -490 LOCATE 10, 5: PRINT "7) GOOD KING WENCESLAS" -500 LOCATE 11, 5: PRINT "8) WE THREE KINGS" -510 LOCATE 12, 5: PRINT "9) GO TELL IT ON THE MOUNTAIN" -520 LOCATE 13, 4: PRINT "10) AWAY IN A MANGER" -530 LOCATE 14, 4: PRINT "11) WHAT CHILD IS THIS?" -540 LOCATE 15, 4: PRINT "12) O COME, LITTLE CHILDREN" -550 LOCATE 16, 4: PRINT "13) O HOLY NIGHT" -560 LOCATE 17, 4: PRINT "14) IT CAME UPON THE MIDNIGHT CLEAR" -570 LOCATE 18, 4: PRINT "15) THE FIRST NOEL" -580 LOCATE 19, 4: PRINT "16) GOD REST YOU MERRY GENTLEMEN" -590 LOCATE 20, 4: PRINT "17) DECK THE HALLS W/BOUGHS OF HOLLY" -600 LOCATE 21, 4: PRINT "18) HARK THE HERALD ANGELS SING" -610 LOCATE 4, 43: PRINT "19) ANGELS WE HAVE HEARD ON HIGH" -620 LOCATE 5, 43: PRINT "20) SHEPHERDS WATCHED THEIR FLOCKS" -630 LOCATE 6, 43: PRINT "21) IT'S BEGINNING TO LOOK LIKE XMAS" -640 LOCATE 7, 43: PRINT "22) WE WISH YOU A MERRY CHRISTMAS" -650 LOCATE 8, 43: PRINT "23) LET IT SNOW! LET IT SNOW!" -660 LOCATE 9, 43: PRINT "24) I'LL BE HOME FOR CHRISTMAS" -670 LOCATE 10, 43: PRINT "25) HOME FOR THE HOLIDAYS" -680 LOCATE 11, 43: PRINT "26) SILVER BELLS" -690 LOCATE 12, 43: PRINT "27) JOLLY OLD SAINT NICHOLAS" -700 LOCATE 13, 43: PRINT "28) JINGLE BELLS" -710 LOCATE 14, 43: PRINT "29) FROSTY THE SNOWMAN" -720 LOCATE 15, 43: PRINT "30) RUDOLPH THE RED-NOSED REINDEER" -730 LOCATE 16, 43: PRINT "31) SLEIGH RIDE" -740 LOCATE 17, 43: PRINT "32) O CHRISTMAS TREE" -750 LOCATE 18, 43: PRINT "33) SANTA CLAUS IS COMING TO TOWN" -760 LOCATE 19, 43: PRINT "34) HERE COMES SANTA CLAUS" -770 LOCATE 20, 43: PRINT "35) HAVE YOURSELF A MERRY CHRISTMAS" -780 LOCATE 21, 43: PRINT "36) TWAS THE NIGHT BEFORE CHRISTMAS" -790 LOCATE 22, 43: PRINT "99) EXIT TO DOS" -800 LOCATE 22, 13: INPUT "SELECT BY NUMBER: ", A$ -810 IF A$ = "1" THEN GOTO 1270 -820 IF A$ = "2" THEN GOTO 2200 -830 IF A$ = "3" THEN GOTO 2540 -840 IF A$ = "4" THEN GOTO 2800 -850 IF A$ = "5" THEN GOTO 3660 -860 IF A$ = "6" THEN GOTO 4790 -870 IF A$ = "7" THEN GOTO 5050 -880 IF A$ = "8" THEN GOTO 5430 -890 IF A$ = "9" THEN GOTO 5690 -900 IF A$ = "10" THEN GOTO 5990 -910 IF A$ = "11" THEN GOTO 6260 -920 IF A$ = "12" THEN GOTO 6440 -930 IF A$ = "13" THEN GOTO 6700 -940 IF A$ = "14" THEN GOTO 6920 -950 IF A$ = "15" THEN GOTO 7140 -960 IF A$ = "16" THEN GOTO 7420 -970 IF A$ = "17" THEN GOTO 7670 -980 IF A$ = "18" THEN GOTO 7890 -990 IF A$ = "19" THEN GOTO 8130 -1000 IF A$ = "20" THEN GOTO 8290 -1010 IF A$ = "21" THEN GOTO 8470 -1020 IF A$ = "22" THEN GOTO 8710 -1030 IF A$ = "23" THEN GOTO 8850 -1040 IF A$ = "24" THEN GOTO 9080 -1050 IF A$ = "25" THEN GOTO 9310 -1060 IF A$ = "26" THEN GOTO 9620 -1070 IF A$ = "27" THEN GOTO 9920 -1080 IF A$ = "28" THEN GOTO 10120 -1090 IF A$ = "29" THEN GOTO 10420 -1100 IF A$ = "30" THEN GOTO 10770 -1110 IF A$ = "31" THEN GOTO 11190 -1120 IF A$ = "32" THEN GOTO 11470 -1130 IF A$ = "33" THEN GOTO 11680 -1140 IF A$ = "34" THEN GOTO 11980 -1150 IF A$ = "35" THEN GOTO 12270 -1160 IF A$ = "36" THEN GOTO 12530 -1170 IF A$ = "99" THEN GOTO 13010 -1180 CLS -1190 LOCATE 10, 20 -1200 COLOR CC, 7 -1210 PRINT "YOU HAVE SELECTED AN OPTION THAT DOES NOT APPEAR ON THE MENU" -1220 FOR X = 1 TO 3000: NEXT -1230 COLOR 7, CC -1240 GOTO 260 -1250 REM ********************************************************************** -1260 REM -1270 CLS: PRINT "THE TWELVE DAYS OF CHRISTMAS": PRINT: PRINT -1280 'music programmed by Lynn Long, lyrics programmed by Greg Rismoen -1290 PRINT "On the first day of Christmas my true love sent to me" -1300 PLAY "T125 O2p4C8C8C4F8F8F4E8F8G8A8B-8G8A4." -1310 PRINT "A partridge in a pear tree." -1320 PLAY "B-8O3C4D8O2B-8A8F8G4F2." -1330 FOR X = 1 TO 4 - 1340 IF X = 1 THEN PRINT "On the second day of Christmas my true love sent to me" - 1350 IF X = 2 THEN PRINT "On the third day of Christmas my true love sent to me" - 1360 IF X = 3 THEN PRINT "On the fourth day of Christmas my true love sent to me" - 1370 IF X = 4 THEN PRINT "On the fifth day of Christmas my true love sent to me" - 1380 PLAY "O2C8C8C4F8F8F4E8F8G8A8B-8G8A4." - 1390 GOSUB 1410 -1400 NEXT -1410 FOR A = 1 TO X - 1420 IF X = 4 THEN 1540 - 1430 IF X = 3 AND A = 1 THEN 2100 - 1440 IF X = 3 AND A = 2 THEN 2090 - 1450 IF X = 3 AND A = 3 THEN 2080 - 1460 IF X = 2 AND A = 1 THEN 2090 - 1470 IF X = 2 AND A = 2 THEN 2080 - 1480 IF X = 1 THEN GOTO 2080 - 1490 PLAY "O3C4O2G8A8B-4" -1500 NEXT -1510 PRINT "And a partridge in a pear tree." -1520 PLAY "A8B-8O3C4D8O2B-8A8F8G4F2." -1530 RETURN -1540 PRINT "Five go-ld rings!" -1550 PLAY "O3C2D2O2B2.O3C1" -1560 PRINT "Four calling birds, three French hens, two turtle doves, " -1570 PRINT "And a partridge in a pear tree." -1580 PLAY "C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2." -1590 FOR X = 1 TO 7 - 1600 IF X = 1 THEN PRINT "On the sixth day of Christmas my true love sent to me" - 1610 IF X = 2 THEN PRINT "On the seventh day of Christmas my true love sent to me" - 1620 IF X = 3 THEN PRINT "On the eighth day of Christmas my true love sent to me" - 1630 IF X = 4 THEN PRINT "On the ninth day of Christmas my true love sent to me" - 1640 IF X = 5 THEN PRINT "On the tenth day of Christmas my true love sent to me" - 1650 IF X = 6 THEN PRINT "On the eleventh day of Christmas my true love sent to me" - 1660 IF X = 7 THEN PRINT "On the twelfth day of Christmas my true love sent to me" - 1670 PLAY "O2C8C8C8C8F8F8F4E8F8G8A8B-8G8A2" - 1680 FOR A = 1 TO X - 1690 IF X = 1 THEN GOTO 2110 - 1700 IF X = 2 AND A = 1 THEN GOTO 2120 - 1710 IF X = 2 AND A = 2 THEN GOTO 2110 - 1720 IF X = 3 AND A = 1 THEN GOTO 2130 - 1730 IF X = 3 AND A = 2 THEN GOTO 2120 - 1740 IF X = 3 AND A = 3 THEN GOTO 2110 - 1750 IF X = 4 AND A = 1 THEN GOTO 2140 - 1760 IF X = 4 AND A = 2 THEN GOTO 2130 - 1770 IF X = 4 AND A = 3 THEN GOTO 2120 - 1780 IF X = 4 AND A = 4 THEN GOTO 2110 - 1790 IF X = 5 AND A = 1 THEN GOTO 2150 - 1800 IF X = 5 AND A = 2 THEN GOTO 2140 - 1810 IF X = 5 AND A = 3 THEN GOTO 2130 - 1820 IF X = 5 AND A = 4 THEN GOTO 2120 - 1830 IF X = 5 AND A = 5 THEN GOTO 2110 - 1840 IF X = 6 AND A = 1 THEN GOTO 2160 - 1850 IF X = 6 AND A = 2 THEN GOTO 2150 - 1860 IF X = 6 AND A = 3 THEN GOTO 2140 - 1870 IF X = 6 AND A = 4 THEN GOTO 2130 - 1880 IF X = 6 AND A = 5 THEN GOTO 2120 - 1890 IF X = 6 AND A = 6 THEN GOTO 2110 - 1900 IF X = 7 AND A = 1 THEN GOTO 2170 - 1910 IF X = 7 AND A = 2 THEN GOTO 2160 - 1920 IF X = 7 AND A = 3 THEN GOTO 2150 - 1930 IF X = 7 AND A = 4 THEN GOTO 2140 - 1940 IF X = 7 AND A = 5 THEN GOTO 2130 - 1950 IF X = 7 AND A = 6 THEN GOTO 2120 - 1960 IF X = 7 AND A = 7 THEN GOTO 2110 - 1970 PLAY "O3C8C8O2G8A8B-8G8" - 1980 NEXT A - 1990 PRINT "Five go-ld rings!" - 2000 PLAY "O3C2D2O2B..O3C1" - 2010 PRINT "Four calling birds, three French hens, two turtle doves, " - 2020 PRINT "And a Partridge in a pear tree." - 2030 PLAY "C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2." -2040 NEXT X -2050 PRINT "And a Partridge in a pear tree!" -2060 PLAY "T75P4O2A8B-8O3C4D8O2B-8A8F8G4F2." -2070 GOTO 260 -2080 PRINT "Two turtle doves,": GOTO 1490 -2090 PRINT "Three French hens,": GOTO 1490 -2100 PRINT "Four calling birds,": GOTO 1490 -2110 PRINT "Six geese a-laying,": GOTO 1970 -2120 PRINT "Seven swans a-swimming,": GOTO 1970 -2130 PRINT "Eight maids a-milking,": GOTO 1970 -2140 PRINT "Nine Ladies dancing,": GOTO 1970 -2150 PRINT "Ten Lords a-leaping,": GOTO 1970 -2160 PRINT "Eleven pipers piping,": GOTO 1970 -2170 PRINT "Twelve drummers drumming,": GOTO 1970 -2180 REM ********************************************************************** -2190 REM -2200 CLS: PRINT "JOY TO THE WORLD": PRINT -2210 FOR X = 1 TO 3 - 2220 IF X = 1 THEN LOCATE 3, 1: PRINT "Joy to the World!" - 2230 IF X = 2 THEN LOCATE 11, 1: PRINT "Joy to the World!" - 2240 IF X = 3 THEN LOCATE 19, 1: PRINT "He rules the World" - 2250 PLAY "O3p4D4C#8.O2B16A4." - 2260 IF X = 1 THEN PRINT "the Lord is come;" - 2270 IF X = 2 THEN PRINT "the Saviour reigns;" - 2280 IF X = 3 THEN PRINT "with truth and grace," - 2290 PLAY "G8F#4E4D4." - 2300 IF X = 1 THEN PRINT "Let earth re-ceive her King;" - 2310 IF X = 2 THEN PRINT "Let men their songs em-ploy;" - 2320 IF X = 3 THEN PRINT "And makes the na-tions prove" - 2330 PLAY "A8B4.B8O3C#4.C#8D2P16" - 2340 IF X = 1 THEN PRINT "Let ev-'ry heart pre-pare Him room," - 2350 IF X = 2 THEN PRINT "While fields and floods, rocks, hills and plains" - 2360 IF X = 3 THEN PRINT "The glo-ries of His right-eous-ness," - 2370 PLAY "D8D8C#8O2B8A8A8.G16F#8O3D8D8C#8O2B8A8A8.G16F#8" - 2380 IF X = 1 THEN PRINT "And heav'n and na-ture sing," - 2390 IF X = 2 THEN PRINT "Re-peat the sound-ing joy," - 2400 IF X = 3 THEN PRINT "And won-ders of His love," - 2410 PLAY "F#8F#8F#8F#8F#16G16A4." - 2420 IF X = 1 THEN PRINT "And heav'n and na-ture sing," - 2430 IF X = 2 THEN PRINT "Re-peat the sound-ing joy," - 2440 IF X = 3 THEN PRINT "And won-ders of His love," - 2450 PLAY "G16F#16E8E8E8E16F#16G4." - 2460 IF X = 1 THEN PRINT "And heav'n and heav-'n and na-ture sing." - 2470 IF X = 2 THEN PRINT "Re-peat, re-peat the sound-ing joy." - 2480 IF X = 3 THEN PRINT "And won-ders, and won-ders of His love." - 2490 PLAY "F#16E16D8O3D4O2B8A8.G16F#8G8F#4E4D2" -2500 NEXT X -2510 GOTO 260 -2520 REM ********************************************************************** -2530 REM -2540 CLS: PRINT "O LITTLE TOWN OF BETHLEHEM": PRINT -2550 FOR X = 1 TO 4 - 2560 IF X = 1 THEN PRINT "O lit-tle town of Beth-le-hem, How still we see thee lie!" - 2570 IF X = 2 THEN LOCATE 8, 1: PRINT "For Christ is born of Ma-ry, and gath-ered all a-bove," - 2580 IF X = 3 THEN LOCATE 13, 1: PRINT "How silently, how silently, The wondrous gift is giv'n!" - 2590 IF X = 4 THEN LOCATE 18, 1: PRINT "O holy Child of Bethlehem, Descend to us, we pray;" - 2600 PLAY "t120o2p4b4P64B4P64B4A#4B4O3D4C4O2E4A4G4F#8G8A4D4b2." - 2610 IF X = 1 THEN PRINT "Above thy deep and dream-less sleep, the si-lent stars go by;" - 2620 IF X = 2 THEN PRINT "While mor-tals sleep, the an-gels keep Their watch of won-d'ring love." - 2630 IF X = 3 THEN PRINT "So God imparts to human hearts the blessings of His heav'n." - 2640 IF X = 4 THEN PRINT "Cast out our sin and enter in; Be born in us today!" - 2650 PLAY "P64B4P64B4P64B4O3E4D4P64D4C4O2E4A4G4F#8g8b4a4g2." - 2660 IF X = 1 THEN PRINT "Yet in the dark streets shin-eth the ev-er-last-ing Light;" - 2670 IF X = 2 THEN PRINT "O morn-ing stars, to-geth-er Pro-claim the holy birth," - 2680 IF X = 3 THEN PRINT "No ear may hear His coming, But in this world of sin," - 2690 IF X = 4 THEN PRINT "We hear the Christmas angels The great glad tidings tell;" - 2700 PLAY "B4P64B4P64B4A4G4F#2P64F#4P64F#4E4f#4g4a4b2." - 2710 IF X = 1 THEN PRINT "The hopes and fears of all the years are met in thee to-night." - 2720 IF X = 2 THEN PRINT "And prais-es sing to God the King, And peace to men on earth!" - 2730 IF X = 3 THEN PRINT "Where meek souls will receive Him still, the dear Christ enters in." - 2740 IF X = 4 THEN PRINT "O come to us, abide with us, our Lord Emmanuel!" - 2750 PLAY "P64B4P64B4P64B4A#4B4O3D4C4O2E4O3e4d4o2g4b4.a8g2." -2760 NEXT X -2770 GOTO 260 -2780 REM ********************************************************************** -2790 REM -2800 CLS: PRINT "SILENT NIGHT": PRINT -2810 ' Silent Night in harmony - music programmed by Steve Schlich 12/2/84 -2820 ' Lyrics and multiple verses programmed by Greg Rismoen 12/09/84 -2830 FOR X = 1 TO 5: PRINT - 2840 IF X = 2 GOTO 2920 - 2850 IF X = 3 GOTO 2960 - 2860 IF X = 4 GOTO 3000 - 2870 IF X = 5 GOTO 3040 - 2880 PRINT "Silent Night! Holy Night! All is calm, all is bright;" - 2890 PRINT "Round yon Vir-gin Moth-er and Child! Ho-ly In-fant so tender and mild," - 2900 PRINT "Sleep in heav-en-ly peace, Sleep in heav-en-ly peace." - 2910 GOTO 3160 - 2920 PRINT "Silent Night! Holy night! Shepherds quake at the sight!" - 2930 PRINT "Glories stream from heaven afar, Heavenly hosts sing Alleluia." - 2940 PRINT "Christ, the Saviour is born! Christ, the Saviour is born!" - 2950 GOTO 3160 - 2960 PRINT "Silent Night! Holiest night! Darkness flies and all is light!" - 2970 PRINT "Shepherds hear the angels sing: Hallelujah! Hail the King!" - 2980 PRINT "Jesus the Saviour is here! Jesus the Saviour is here!" - 2990 GOTO 3160 - 3000 PRINT "Silent Night! Holiest Night! Guiding star, O lend thy light" - 3010 PRINT "See the eastern wise men bring Gifts and homage to our King!" - 3020 PRINT "Jesus the Saviour is here! Jesus the Saviour is here!" - 3030 GOTO 3160 - 3040 PRINT "Stil-le Nacht, hei-li-ge Nacht! Al-les schlft, ein-sam wacht?" - 3050 PRINT "Nur das trau-te hoch-hei-li-ge Paar, Hol-der Kna-be mit lok-ki-gem Haar." - 3060 PRINT "Schlaf im himm-li-scher Ruh, Schlaf im himm-li-scher Ruh!" - 3070 GOTO 3160 - 3080 REM PLAY "ML T140 L3 o3; g. a6 g e1" - 3090 REM PLAY "g. a6 g e1" - 3100 REM PLAY "o4 d. p6 d o3 b1 - 3110 REM PLAY "o4 c. p6 c o3 g1 - 3120 REM PLAY "o3 a. p6 a o4 c. o3 b6 a g. a6 g e1 - 3130 REM PLAY "o3 a. p6 a o4 c. o3 b6 a g. a6 g e1 - 3140 REM PLAY "o4 d. p6 d f. d6 o3 b o4 c1 e1 - 3150 REM PLAY "o4 c o3 g e g. f6 d c1 c1 - 3160 PLAY "ML T250 L24 o3; gegegegegegegegegegegege" - 3170 PLAY "o3afafafaf " - 3180 PLAY "o3gegegegegegegege" - 3190 PLAY "o3ecececececececececececececececececececececececec" - 3200 PLAY "o3gegegegegegegegegegegege " - 3210 PLAY "o3afafafaf " - 3220 PLAY "o3gegegegegegegege" - 3230 PLAY "o3ecececececececececececececececececececececececec" - 3240 PLAY "o4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3f p12" - 3250 PLAY "o4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3f" - 3260 PLAY "o3bgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbg" - 3270 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e p12" - 3280 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e" - 3290 PLAY "o3gegegegegegegegegegegegegegegegegegegegegegegege" - 3300 PLAY "o3afafafafafafafafafafafafafafaf p12" - 3310 PLAY "o3afafafafafafafaf " - 3320 PLAY "o4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3a " - 3330 PLAY "o3bgbgbgbg" - 3340 PLAY "o3afafafafafafafaf" - 3350 PLAY "o3gegegegegegegegegegegege" - 3360 PLAY "o3afafafaf" - 3370 PLAY "o3gegegegegegegege" - 3380 PLAY "o3ecececececececececececececececececececececececec" - 3390 PLAY "o3afafafafafafafafafafafafafafaf p12" - 3400 PLAY "o3afafafafafafafaf " - 3410 PLAY "o4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3a " - 3420 PLAY "o3bgbgbgbg" - 3430 PLAY "o3afafafafafafafaf" - 3440 PLAY "o3gegegegegegegegegegegege" - 3450 PLAY "o3afafafaf" - 3460 PLAY "o3gegegegegegegege" - 3470 PLAY "o3ecececececececececececececececececececececececec" - 3480 PLAY "o4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3b p12" - 3490 PLAY "o4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3b " - 3500 PLAY "o4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3b " - 3510 PLAY "o4do3bo4do3bo4do3bo4do3b " - 3520 PLAY "o3bfbfbfbfbfbfbfbf" - 3530 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e" - 3540 PLAY "o4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3g" - 3550 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e" - 3560 PLAY "o3gegegegegegegege" - 3570 PLAY "o3ecececececececec" - 3580 PLAY "o3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2b" - 3590 PLAY "o3fo2bo3fo2bo3fo2bo3fo2b" - 3600 PLAY "o3do2bo3do2bo3do2bo3do2bo3do2bo3do2bo3do2bo3do2b" - 3610 PLAY "o3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2e" -3620 NEXT X -3630 GOTO 260 -3640 REM ********************************************************************** -3650 REM -3660 CLS: PRINT "I HEARD THE BELLS ON CHRISTMAS DAY": PRINT: PRINT -3670 N = 34 -3680 L = 6 -3690 PLAY "mll64t150o3" -3700 FOR REPEAT = 1 TO 5 - 3710 ON REPEAT GOSUB 4130, 4270, 4390, 4510, 4630 - 3720 FOR X = 1 TO N - 3730 READ K: READ K$ - 3740 FOR M = 1 TO K * L - 3750 PLAY K$ - 3760 NEXT M - 3770 NEXT X - 3780 RESTORE 230 -3790 NEXT REPEAT -3800 GOTO 4750 -3810 DATA 1,o3e-o2b-ge- -3820 DATA 1.5,o3ge-o2b-e- -3830 DATA .5,o3f#e-o2b-o1b- -3840 DATA 1,o3ge-o2b-e- -3850 DATA 1,o3gd-o2b-e -3860 DATA 1.5,o3a-do2b-f -3870 DATA .5,o3gdo2b-o1b- -3880 DATA 1,o3a-do2b-f -3890 DATA 1,o3ae-o2b-f# -3900 DATA 1,o3b-e-o2b-g -3910 DATA 1,o4e-o3go2b-o1b- -3920 DATA 1,o4do3go2b-o1b- -3930 DATA 1,o4co3e-e-o2g -3940 DATA 1.5,o4co3fdo2a- -3950 DATA .5,o3b-fdo2a-,.25,p64 -3960 DATA 1,o3b-fdo2a- -3970 DATA 1,o3b-e-e-o2g -3980 DATA 1.5,o3b-e-co2a- -3990 DATA .5,o3a-e-co2a- -4000 DATA 1,o3ge-o2b-e- -4010 DATA 1,o3a-o2b-fo1e- -4020 DATA 1.5,o3go2bgd -4030 DATA .5,o3fo2bgd -4040 DATA 1,o3e-co2gc -4050 DATA 1,o3fe-o2a-c -4060 DATA 1,o3ge-o2b-o1b- -4070 DATA 1,o3a-e-co1a- -4080 DATA 1,o3b-e-o2b-o1g,.25,p64 -4090 DATA 1,o4co3e-o2fo1a- -4100 DATA 1.5,o3do2b-fo1b- -4110 DATA .5,o3fdo2a-o1b- -4120 DATA 2,o3e-o2ge-o1e-,.5,p64 -4130 ' first verse -4140 ' -4150 B$ = " " -4160 TITLE1$ = "I HEARD THE BELLS" -4170 TITLE2$ = " ON CHRISTMAS DAY" -4180 CLS -4190 LOCATE 2, (40 - LEN(TITLE1$)) / 2: PRINT TITLE1$ -4200 LOCATE 4, (40 - LEN(TITLE2$)) / 2: PRINT TITLE2$ -4210 LOCATE 10 -4220 PRINT "I heard the bells on Christmas day" -4230 PRINT: PRINT "Their old familiar carols play" -4240 PRINT: PRINT "And wild and sweet the words repeat" -4250 PRINT: PRINT "Of peace on earth, good will to men" -4260 RETURN -4270 ' second verse -4280 ' -4290 LOCATE 10 -4300 FOR LN = 1 TO 4 - 4310 PRINT B$: PRINT -4320 NEXT LN -4330 ' -4340 LOCATE 10: PRINT "I thought how as the day had come" -4350 PRINT: PRINT "The belfries of all Christendom" -4360 PRINT: PRINT "Had roll'd along th'unbroken song" -4370 PRINT: PRINT "Of peace on earth, good will to men" -4380 RETURN -4390 ' third verse -4400 ' -4410 LOCATE 10 -4420 FOR LN = 1 TO 4 - 4430 PRINT B$: PRINT -4440 NEXT LN -4450 ' -4460 LOCATE 10: PRINT "And in despair I hung my head" -4470 PRINT: PRINT "`There is no peace on earth,' I said" -4480 PRINT: PRINT "For hate is strong and mocks the song" -4490 PRINT: PRINT "Of peace on earth, good will to men" -4500 RETURN -4510 'fourth verse -4520 ' -4530 LOCATE 10 -4540 FOR LN = 1 TO 4 - 4550 PRINT B$: PRINT -4560 NEXT LN -4570 ' -4580 LOCATE 10: PRINT "Then pealed the bells more loud and deep" -4590 PRINT: PRINT "God is not dead nor doth he sleep" -4600 PRINT: PRINT "The wrong shall fail the right prevail" -4610 PRINT: PRINT "With peace on earth, good will to men" -4620 RETURN -4630 ' fifth verse -4640 ' -4650 LOCATE 10 -4660 FOR LN = 1 TO 4 - 4670 PRINT B$: PRINT -4680 NEXT LN -4690 ' -4700 LOCATE 10: PRINT "Till ringing singing on its way" -4710 PRINT: PRINT "The world revolved from night to day" -4720 PRINT: PRINT "A voice a chime a chant sublime" -4730 PRINT: PRINT "Of peace on earth, good will to men" -4740 RETURN -4750 FOR X = 1 TO 2000: NEXT -4760 GOTO 260 -4770 REM ********************************************************************** -4780 REM -4790 CLS: PRINT "O COME, ALL YE FAITHFUL (Adeste Fideles)": PRINT -4800 FOR X = 1 TO 3: PRINT - 4810 IF X = 1 THEN PRINT "O come all ye faith-ful, Joy-ful and tri-um-phant," - 4820 IF X = 1 THEN PRINT "O come ye, O come ye to Beth-le-hem." - 4830 IF X = 1 THEN PRINT "Come and be-hold Him, Born the King of an-gels," - 4840 IF X = 1 THEN PRINT "O come, let us a-dore Him, O come, let us a-dore Him," - 4850 IF X = 1 THEN PRINT "O come, let us a-dore Him, Christ the Lord." - 4860 IF X = 2 THEN PRINT "Sing choirs of angels, Sing in exultation," - 4870 IF X = 2 THEN PRINT "Sing, all ye citizens of Heav'n above." - 4880 IF X = 2 THEN PRINT "Glo-ry to God--, In-- the-- high-est." - 4890 IF X = 2 THEN PRINT "O come, let us a-dore Him, O come, let us a-dore Him," - 4900 IF X = 2 THEN PRINT "O come, let us a-dore Him, Christ the Lord." - 4910 IF X = 3 THEN PRINT "Adeste Fideles laeti triumphantes" - 4920 IF X = 3 THEN PRINT "Venite, venite to Bethlehem." - 4930 IF X = 3 THEN PRINT "Natum vedete regem angelorum" - 4940 IF X = 3 THEN PRINT "Venite adoremus, Venite adoremus," - 4950 IF X = 3 THEN PRINT "Venite adoremus, Dominum." - 4960 PLAY "ML O2p4G8.P8G2D4G4A2D2B4A4B4O3C4O2B2A4G8.P16G2F#4E4F#4" - 4970 PLAY "G4A4B4F#2E4.D16.P32D2.P4O3D2C4O2B4O3C2O2B2A4B4G4" - 4980 PLAY "A4F#4.E8D4G8.P16G4F#4G4A4G2D4B8.P16B4A4B4O3C4O2B2" - 4990 PLAY "A4B4O3C4O2B4A4G4F#2G4O3C4O2B2A4.G16.P32G2." - 5000 PLAY "p8" -5010 NEXT X -5020 GOTO 260 -5030 REM ********************************************************************** -5040 REM -5050 CLS: PRINT " GOOD KING WENCESLAS": PRINT -5060 FOR X = 1 TO 5: PRINT - 5070 IF X = 2 GOTO 5160 - 5080 IF X = 3 GOTO 5210 - 5090 IF X = 4 GOTO 5260 - 5100 IF X = 5 GOTO 5310 - 5110 PRINT "Good King Wen-ces-las looked out On the feast of Ste-phen." - 5120 PRINT "When the snow lay 'round a-bout, Deep and crisp and e-ven." - 5130 PRINT "Bright-ly shone the moon that night, Though the frost was cru-el." - 5140 PRINT "When a poor man came in sight, Gath-'ring win-ter fu-el." - 5150 GOTO 5350 - 5160 PRINT "Hither, page, and stand by me, if thou know'st it telling." - 5170 PRINT "Yonder peasant, who is he? Where and what his dwelling?" - 5180 PRINT "Sire, he lives a good league hence, underneath the mountain." - 5190 PRINT "Right against the forest fence, by St. Agnes' fountain." - 5200 GOTO 5350 - 5210 PRINT "Bring me flesh, and bring me wine, bring me pine logs hither;" - 5220 PRINT "Thou and I will see him dine, when we bear them hither." - 5230 PRINT "Page and monarch, forth they went, forth they went together;" - 5240 PRINT "Through the rude wind's wild lament, and the bitter weather." - 5250 GOTO 5350 - 5260 PRINT "Sire, the night is darker now, and the wind blows stronger." - 5270 PRINT "Fails my heart, I know not how, I can go no longer." - 5280 PRINT "Mark my footsteps my good page, tread thou in them boldly." - 5290 PRINT "Thou shalt find the winter's rage freeze thy blood less coldly." - 5300 GOTO 5350 - 5310 PRINT "In his master's steps he trod, where the snow lay dinted;" - 5320 PRINT "Heat was in the very sod which the Saint had printed." - 5330 PRINT "Therefore, Christian men, be sure, wealth or rank possessing." - 5340 PRINT "Ye who now will bless the poor, shall yourselves find blessing." - 5350 PLAY "T150o2L4gggaggd2edef#g2g2" - 5360 PLAY "gggaggd2edef#g2g2" - 5370 PLAY "o3dco2babag2edef#g2g2" - 5380 PLAY "ddef#gga2o3dco2bag2o3c2o2g1" -5390 NEXT X -5400 GOTO 260 -5410 REM ********************************************************************** -5420 REM -5430 CLS: PRINT "WE THREE KINGS": PRINT -5440 FOR X = 1 TO 5: PRINT - 5450 IF X = 1 OR X = 5 THEN GOTO 5460 ELSE GOTO 5530 - 5460 IF X = 1 THEN PRINT "We three Kings of O-ri-ent Are; Bear-ing gifts we trav-erse a-far." - 5470 IF X = 5 THEN PRINT "Glo-rious now be-hold Him a-rise, King, and God, and sac-ri-fice;" - 5480 PLAY "T100O2p4B4A8G4E8F#8G8F#8E4P8B4A8G4E8F#8g8f#8e4p8" - 5490 IF X = 1 THEN PRINT "Field and foun-tain moor and moun-tain, Fol-low-ing yon-der star." - 5500 IF X = 5 THEN PRINT "Heaven sings al-le-lu-ia: Al-le-lu-ia the earth re-plies." - 5510 PLAY "g8.p16g8a8.P16A8B8.P16B8O3D8C8O2B8A8B8A8G4f#8e4p8" - 5520 GOTO 5610 - 5530 IF X = 2 THEN PRINT "Born a King on Beth-le-hem's plain, Gold I bring to crown Him a-gain." - 5540 IF X = 3 THEN PRINT "Frank-in-cense to of-fer have I, In-cense owns a De-i-ty nigh:" - 5550 IF X = 4 THEN PRINT "Myrrh is mine; its bit-ter per-fume Breathes a life of gath-er-ing gloom;" - 5560 PLAY "o2b4a8g4e8f#8g8f#8e4p8b4a8g4e8f#8g8f#8e4p8" - 5570 IF X = 2 THEN PRINT "King for-ev-er, ceas-ing nev-er O-ver us all to reign." - 5580 IF X = 3 THEN PRINT "Prayer and prais-ing all men rais-ing, Wor-ship Him, God on high." - 5590 IF X = 4 THEN PRINT "Sor-rowing, sigh-ing, bleed-ing, dy-ing, Sealed in the stone cold tomb." - 5600 PLAY "g4g8a4a8b4b8o3d8c8o2b8a8b8a8g4f#8e4p8" - 5610 PRINT "O---Star of won-der, Star of night, Star with roy-al beaut-y bright," - 5620 PLAY "F#4A2.G8.P16G8P32G4D8G4E8G4P8G8.P16G8P32G4D8G4E8G4P8" - 5630 PRINT "West-ward lead-ing, Still pro-ceed-ing, Guide us to the per-fect light." - 5640 PLAY "g8.p16g8A4B8O3C4O2B8A4B8G8.P16G8P32G4D8G4E8G4." -5650 NEXT X -5660 GOTO 260 -5670 REM ********************************************************************** -5680 REM -5690 CLS: PRINT " GO TELL IT ON THE MOUNTAIN ": PRINT -5700 PRINT "Oh! Go tell it on the moun-tain, o-ver the hills and ev'-- ry-where," -5710 PLAY "t120o3c2o2a2a8.g16f8.d16c2f2g8g4f8g4f4a8g4a8o3c2" -5720 PRINT "Go tell it on the moun-tain that Je-sus Christ- is born!" -5730 PLAY "o2a2a8.g16f8.d16c2f4b-4a8a4.g8f8g4f1p4" -5740 FOR X = 1 TO 5: PRINT - 5750 IF X = 4 THEN PRINT: PRINT " Spiritual Verses:": PRINT - 5760 IF X = 1 THEN PRINT "While shep-herds kept their watch-ing, O'er silent flocks by night," - 5770 IF X = 2 THEN PRINT "The shep-herds feared and trembled, When lo, ab-ove the earth," - 5780 IF X = 3 THEN PRINT "Down in a lone-ly man-ger, The humble Christ was born." - 5790 IF X = 4 THEN PRINT "When I was a seeker, I sought both night and day," - 5800 IF X = 5 THEN PRINT "He made me a watch-man up-on the cit-y wall," - 5810 IF X = 4 OR X = 5 THEN GOTO 5840 - 5820 PLAY "t150o2p4a4o3c4c4c4.d8c4o2a2f4g4g4f4g4a2." - 5830 GOTO 5850 - 5840 PLAY "t150o2p4a4o3c4c4.d8c4o2a2f4g4g4f4g4a2." - 5850 IF X = 1 THEN PRINT "Be-hold through-out the heav-ens, There shone a Holy light." - 5860 IF X = 2 THEN PRINT "Rang out the angel chorus, That hailed our Saviour's birth." - 5870 IF X = 3 THEN PRINT "And God sent us salvation, That blessed Christmas morn." - 5880 IF X = 4 THEN PRINT "I sought the Lord to help me, and He showed me the way," - 5890 IF X = 5 THEN PRINT "And if I am a Chris-tian, I am the least of all." - 5900 PLAY "f4a4o3c4c4.d8c4o2a2f4g4g4f4d4c2" - 5910 PRINT "Oh! Go tell it on the moun-tain, o-ver the hills and ev'-- ry-where," - 5920 PLAY "t120o3c2o2a2a8.g16f8.d16c2f2g8g4f8g4f4a8g4a8o3c2" - 5930 PRINT "Go tell it on the moun-tain that Je-sus Christ- is born!" - 5940 PLAY "o2a2a8.g16f8.d16c2f4b-4a8a4.g8f8g4f1p4" -5950 NEXT X -5960 GOTO 260 -5970 REM ********************************************************************** -5980 REM -5990 CLS: PRINT "AWAY IN A MANGER": PRINT -6000 FOR X = 1 TO 2: PRINT - 6010 IF X = 1 THEN PRINT "A-way in a man-ger, no crib for a bed," - 6020 IF X = 2 THEN PRINT "Be near me, Lord Jesus, I ask Thee to stay" - 6030 PLAY "t120o2p4d4g4g4b8a8g4g4d4e4g4e4d2" - 6040 IF X = 1 THEN PRINT "The lit-tle Lord Je-sus laid down His sweet head;" - 6050 IF X = 2 THEN PRINT "Close by me forever, and love me, I pray;" - 6060 PLAY "d4g4g4a4b4b4o3d4d4o2b4g4a2" - 6070 IF X = 1 THEN PRINT "The stars in the- sky look-ing down where He lay," - 6080 IF X = 2 THEN PRINT "Bless all the dear children in Thy tender care," - 6090 PLAY "d4g4g4b8a8g4g4d4e4g4e4d2" - 6100 IF X = 1 THEN PRINT "The little Lord Je-sus, a-sleep on the hay." - 6110 IF X = 2 THEN PRINT "And take us to heaven, to live with Thee there." - 6120 PLAY "d4g4g4a4B4o3d4.P64c4o2d4d4f#4g2" - 6130 IF X = 2 THEN GOTO 6230 - 6140 PRINT: PRINT "The cat-tle are low-ing the poor Ba-by wakes," - 6150 PLAY "f#8g8a4a4o3d4o2a4a4f#4a4g4e4d2" - 6160 PRINT "But lit-tle Lord Je-sus no cry-ing- He- makes;" - 6170 PLAY "f#8g8a4a4o3d4o2a4a4f#4g8f#8g8a8b8o3c#8d2" - 6180 PRINT "I love Thee, Lord Je-sus! Look down from the sky," - 6190 PLAY "o3e4d4o2B4b8a8g4g4d4e4o3c4o2e4d2" - 6200 PRINT "And stay by my cra-dle, 'Till morn-ing is nigh." - 6210 PLAY "d4g4g4a4b4o3d4.c4o2d4d4f#4g2P16" -6220 NEXT X -6230 GOTO 260 -6240 REM ********************************************************************* -6250 REM -6260 CLS: PRINT "WHAT CHILD IS THIS?": PRINT -6270 FOR X = 1 TO 3: PRINT - 6280 IF X = 1 THEN PRINT "What Child is this,- Who, laid to rest,- On Ma-ry's lap- is sleep-ing?" - 6290 IF X = 2 THEN PRINT "Why lies He in- such mean es-tate- Where ox and ass- are feed-ing?" - 6300 IF X = 3 THEN PRINT "So bring Him in-cense, gold, and myrrh, Come, peas-ant, king- to own Him;" - 6310 PLAY "t90o2p4e8g4a8b8.o3c16o2b8a4f#8d8.e16f#8g4e8e8.d#16e8f#4.o1b4p16" - 6320 IF X = 1 THEN PRINT "Whom an-gels greet- with an-thems sweet,- While shep-herds watch- are keep-ing?" - 6330 IF X = 2 THEN PRINT "Good Chris-tian, fear:- for sin-ners here- The si-lent Word- is plead-ing." - 6340 IF X = 3 THEN PRINT "The King of kings- sal-va-tion brings,- Let lov-ing hearts- en-throne Him." - 6350 PLAY "o2e8g4a8b8.o3c16o2b8a4f#8d8.e16f#8g8.f#16e8d#8.c#16d#8e4.e4.p16" - 6360 PRINT "This, this- is Christ the King,- Whom shep-herds guard- and an-gels sing." - 6370 PLAY "o3d4.d8.c#16o2b8a4f#8d8.e16f#8g4e8e8.d#16e8f#4d#8o1b4." - 6380 PRINT "This, this- is Christ the King,- The Babe,- the Son- of Ma-ry." - 6390 PLAY "o3d4.d8.c#16o2b8a4f#8d8.e16f#8g8.f#16e8d#8.c#16d#8e4.e4.p4" -6400 NEXT X -6410 GOTO 260 -6420 REM ********************************************************************* -6430 REM -6440 CLS: PRINT "O COME, LITTLE CHILDREN (Ihr Kinderlein Kommet)": PRINT -6450 FOR X = 1 TO 4: PRINT - 6460 IF X = 1 THEN PRINT "O come, little children, O come, one and all!" - 6470 IF X = 2 THEN PRINT "Ihr Kin-der-lein, kom-met, O kom-met doch all!" - 6480 IF X = 3 THEN PRINT "O seht in der Krippe im ncht-lich-en Stall." - 6490 IF X = 4 THEN PRINT "Da liegt es, ach Kinder, auf Heu and auf Stroh," - 6500 PLAY "t100o2p4G8G4E8G8G4E8G8F4D8F8E4." - 6510 IF X = 1 THEN PRINT "O come to the cradle in Bethlehem's stall!" - 6520 IF X = 2 THEN PRINT "Zur Krip-pe her kom-met in Beth-le-hems Stall!" - 6530 IF X = 3 THEN PRINT "Seht hier bei des Licht-leins hell-gln-zen-dem Strahl:" - 6540 IF X = 4 THEN PRINT "Maria und Joseph be-trach-ten es froh;" - 6550 PLAY "o2G8G4E8G8G4E8G8F4D8F8E4." - 6560 IF X = 1 THEN PRINT "Come look in the manger! There sleeps on the hay," - 6570 IF X = 2 THEN PRINT "und seht, was in die-ser hoch-hei-li-gen Nacht," - 6580 IF X = 3 THEN PRINT "In rein-lich-en Win-deln das himm-lis-che Kind," - 6590 IF X = 4 THEN PRINT "Die red-lich-en Hir-ten knien be-tend da-vor," - 6600 PLAY "E8D4D8D8F4F8F8E4E8E8A4." - 6610 IF X = 1 THEN PRINT "An infant so lovely, in light bright as day." - 6620 IF X = 2 THEN PRINT "der Va-ter im Him-mel fr Freu-de uns macht." - 6630 IF X = 3 THEN PRINT "Viel sch3n-er und hold-er, als En-gel es sind." - 6640 IF X = 4 THEN PRINT "Hoch ob-en schwebt ju-belnd der En-gel-ein Chor." - 6650 PLAY "A8G4G8G8O3C4O2G8E8F4D8O1B8O2C4.p4" -6660 NEXT X -6670 GOTO 260 -6680 REM ********************************************************************* -6690 REM -6700 CLS: PRINT "O HOLY NIGHT": PRINT -6710 PRINT "O ho-ly night, the stars are bright-ly shin-ing," -6720 PLAY "t130o2p4e4.e4e8g2p64g8a4a8f4a8o3c2.o2g4" -6730 PRINT "It is the night of the dear Sa-viour's birth." -6740 PLAY "g8e4d8c4.e4f8g4.f4d8c2." -6750 PRINT "Long lay the world, in sin and er-ror pin-ing," -6760 PLAY "e4.e4e8g2g8a4a8f4a8o3c4.o2g2." -6770 PRINT "Till He ap-peared and the soul felt its worth." -6780 PLAY "g8f#4e8b4.g4a8b4.o3c4o2b8e2." -6790 PRINT "A thrill of hope the wea-ry world re-joi-ces" -6800 PLAY "g8g4.a4.d4.g4.a4g8o3c4o2e8a4.g4" -6810 PRINT "For yon-der breaks a new and glo-rious morn." -6820 PLAY "g8g4.a4.d4.g4.a4g8o3c4o2e8g2." -6830 PRINT "Fall on your knees! O hear the an-gel voic-es!" -6840 PLAY "o3c2..o2b4a8b1b8o3d2..o2a8a4a8o3c2.c4." -6850 PRINT "O night- di-vine! O night when Christ was born!" -6860 PLAY "p32o3c8e3d3.o2g8o3c2.o2b4a8g2..g8a4g8g2.." -6870 PRINT "O night di-vine! O night O night- di-vine!" -6880 PLAY "o3c8d2..o2g8o3e2.d4.c3c8o2b4.o3c4d8c2.." -6890 GOTO 260 -6900 REM ********************************************************************* -6910 REM -6920 CLS: PRINT " IT CAME UPON THE MIDNIGHT CLEAR": PRINT -6930 FOR X = 1 TO 3: PRINT - 6940 IF X = 1 THEN PRINT "It came up-on the mid-night clear, That glo-rious song of old," - 6950 IF X = 2 THEN PRINT "Still through the cloven skies they come, With peaceful wings unfurled;" - 6960 IF X = 3 THEN PRINT "And ye beneath life's crushing load, Whose forms are bending low," - 6970 PLAY "t120o2p4f8o3d4c8c8o2b-8g8f4g8f4f8g8a8b-8b-8o3c8d8c2" - 6980 IF X = 1 THEN PRINT "From an-gels bend-ing near the earth, to touch their harps of gold:" - 6990 IF X = 2 THEN PRINT "And still their heav'nly music floats. O'er all the weary world;" - 7000 IF X = 3 THEN PRINT "Who toil along the climbing way, With painful steps and slow," - 7010 PLAY "o2f8o3d4c8c8o2b-8g8f4g8f4f8g4g8a8g8f8b-2" - 7020 IF X = 1 THEN PRINT "Peace to the earth, good will to men, From heav'n's all gra-cious King," - 7030 IF X = 2 THEN PRINT "Above its sad and lowly plains, They bend on hov'ring wings;" - 7040 IF X = 3 THEN PRINT "Look now! for glad and golden hours come swiftly on the wing;" - 7050 PLAY "o3d8d4o2d8d8e8f#8g4a8b-4o3d8c8o2b-8a8g8a8g8f2" - 7060 IF X = 1 THEN PRINT "The world in sol-emn still-ness lay, to hear the an-gels sing!" - 7070 IF X = 2 THEN PRINT "And ever o'er its Babel sounds, The blessed angels sing!" - 7080 IF X = 3 THEN PRINT "Oh, rest beside the weary road, And hear the angels sing!" - 7090 PLAY "f8o3d4c8c8o2b-8g8f4g8f4f8g4g8a8g8f8b-2p8" -7100 NEXT X -7110 GOTO 260 -7120 REM ********************************************************************* -7130 REM -7140 CLS: PRINT " THE FIRST NOEL": PRINT -7150 FOR X = 1 TO 4: PRINT - 7160 IF X = 1 THEN PRINT "The first- No-el the an-gel did say" - 7170 IF X = 2 THEN PRINT "They- looked-- up and- saw- a Star" - 7180 IF X = 3 THEN PRINT "This star drew nigh to the north-west" - 7190 IF X = 4 THEN PRINT "Then enter'd in there wise men three," - 7200 PLAY "t150o2p4f#8e8d4.e8f#8g8a2b8o3c#8d4c#4o2b4a2" - 7210 IF X = 1 THEN PRINT "Was to cer-tain poor shep-herds in fields as they lay;" - 7220 IF X = 2 THEN PRINT "Shin-ing in- the East-, be-yond them far," - 7230 IF X = 3 THEN PRINT "O'er Beth-le-hem it took its rest" - 7240 IF X = 4 THEN PRINT "Full rev'rently upon their knee," - 7250 PLAY "b8o3c#8d4c#4o2b4a4b4o3c#4d4o2a4g4f#2" - 7260 IF X = 1 THEN PRINT "In- fields- where- they lay- keeping their sheep," - 7270 IF X = 2 THEN PRINT "And- to- the earth it- gave- great light," - 7280 IF X = 3 THEN PRINT "And- there- it- did both- stop- and stay," - 7290 IF X = 4 THEN PRINT "And- of-fer'd there in- His- pre-sence," - 7300 PLAY "f#8e8d4.e8f#8g8a2b8o3c#8d4c#4o2b4a2" - 7310 IF X = 1 THEN PRINT "On a cold win-ter's night- that was- so deep." - 7320 IF X = 2 THEN PRINT "And- so it con-tin-ued both day- and night," - 7330 IF X = 3 THEN PRINT "right- over- the place where- Je-sus lay." - 7340 IF X = 4 THEN PRINT "Their- gold- and- myrrh- and frank-in-cense." - 7350 PLAY "b8o3c#8d4c#4o2b4a4b4o3c#4d4o2a4g4f#2" - 7360 PRINT "No-el-, No-el, No-el, No-el, Born is the King of Is-ra-el." - 7370 PLAY "f#8e8d4.e8f#8g8a2o3d8c#8o2b2b4a2.o3d4c#4o2b4a4b4o3c#4d4o2a4g4f#2p4" -7380 NEXT X -7390 GOTO 260 -7400 REM ********************************************************************* -7410 REM -7420 CLS: PRINT " GOD REST YOU MERRY GENTLEMEN": PRINT -7430 FOR X = 1 TO 4: PRINT - 7440 IF X = 1 THEN PRINT "God rest you mer-ry gen-tle-men, Let noth-ing you dis-may," - 7450 IF X = 2 THEN PRINT "In Bethlehem, in Jewery, This blessed Babe was born," - 7460 IF X = 3 THEN PRINT "From God our heav'nly Father, A blessed Angel came," - 7470 IF X = 4 THEN PRINT "'Fear not then,' said the Angel, 'Let nothing you affright.'" - 7480 PLAY "t150o2p4l4eebbagf#edef#gal2b." - 7490 IF X = 1 THEN PRINT "Re-mem-ber Christ our Sa-viour was born on Christ-mas Day," - 7500 IF X = 2 THEN PRINT "And laid within a manger upon this blessed morn;" - 7510 IF X = 3 THEN PRINT "And unto certain Shepherds brought tidings of the same;" - 7520 IF X = 4 THEN PRINT "This day is born a Saviour of a pure Virgin bright," - 7530 PLAY "l4eebbagf#edef#gal2b." - 7540 IF X = 1 THEN PRINT "To save us all from Sa-tan's pow'r, when we were gone a-stray." - 7550 IF X = 2 THEN PRINT "To which His mother Mary, Did nothing take in scorn." - 7560 IF X = 3 THEN PRINT "How that in Bethlehem was born the Son of God by Name." - 7570 IF X = 4 THEN PRINT "To free all those who trust in Him, From Satan's pow'r and might." - 7580 PLAY "l4bo3co2abo3cdeo2bagef#gl2a" - 7590 PRINT "O tid-ings of com-fort and joy, com-fort and joy," - 7600 PLAY "l4gal2bo3l4co2bbagf#l2el8gf#l4el2a" - 7610 PRINT "O tid-ings of com-fort and joy." - 7620 PLAY "l4gabo3cdeo2bagf#l2e." -7630 NEXT X -7640 GOTO 260 -7650 REM ********************************************************************* -7660 REM -7670 CLS: PRINT "DECK THE HALLS WITH BOUGHS OF HOLLY": PRINT -7680 FOR X = 1 TO 3: PRINT - 7690 IF X = 1 THEN PRINT "Deck the halls with boughs of hol-ly, Fa la la la la la la la la!" - 7700 IF X = 2 THEN PRINT "See the blazing Yule before us, Fa la la la la la la la la." - 7710 IF X = 3 THEN PRINT "Fast away the old year passes, Fa la la la la la la la la." - 7720 PLAY "t180o2p4a4.g8f#4e4d4e4f#4d4e8f#8g8e8f#4.e8d4c#4d2" - 7730 IF X = 1 THEN PRINT "'Tis the sea-son to be jol-ly, Fa la la la la la la la la!" - 7740 IF X = 2 THEN PRINT "Strike the harp and join the chorus, Fa la la la la la la la la!" - 7750 IF X = 3 THEN PRINT "Hail the new, ye lads and lasses, Fa la la la la la la la la!" - 7760 PLAY "a4.g8f#4e4d4e4f#4d4e8f#8g8e8f#4.e8d4c#4d2" - 7770 IF X = 1 THEN PRINT "Don we now our gay ap-par-el, Fa la la Fa la la la la la." - 7780 IF X = 2 THEN PRINT "Follow me in merry measure, Fa la la Fa la la la la la." - 7790 IF X = 3 THEN PRINT "Sing we joyous all together, Fa la la Fa la la la la la." - 7800 PLAY "e4.f#8g4e4f#4.g8a4e4f#8g8a4b8o3c#8d4c#4o2b4a2" - 7810 IF X = 1 THEN PRINT "Troll the an-cient yule-tide ca-rol Fa la la la la la la la la!" - 7820 IF X = 2 THEN PRINT "While I tell of Yule-tide treasure, Fa la la la la la la la la." - 7830 IF X = 3 THEN PRINT "Heedless of the wind and weather, Fa la la la la la la la la." - 7840 PLAY "a4.g8f#4e4d4e4f#4d4b8b8b8b8a4.g8f#4e4d2" -7850 NEXT X -7860 GOTO 260 -7870 REM ********************************************************************* -7880 REM -7890 CLS: PRINT " HARK! THE HERALD ANGELS SING": PRINT -7900 FOR X = 1 TO 3: PRINT - 7910 IF X = 1 THEN PRINT "Hark, the her-ald an-gels sing, Glory to the new-born King!" - 7920 IF X = 2 THEN PRINT "Christ by high-est heav'n a-dored; Christ the ever-last-ing Lord;" - 7930 IF X = 3 THEN PRINT "Hail! the heav'n born Prince of peace! Hail! the Son of Right-eous-ness;" - 7940 PLAY "t150o2p4l4dggf#gbbao3ddd.l8co2l4bal2b" - 7950 IF X = 1 THEN PRINT "Peace on earth and mer-cy mild, God and sin-ners re-con-ciled." - 7960 IF X = 2 THEN PRINT "Late in time be-hold Him come, Off-spring of the fa-vored one," - 7970 IF X = 3 THEN PRINT "Light and life to all He brings, Ris'n with heal-ing in His wings." - 7980 PLAY "l4dggf#gbbao3do2aa.l8f#l4f#el2d" - 7990 IF X = 1 THEN PRINT "Joy-ful, all ye na-tions rise, Join the tri-umph of the skies," - 8000 IF X = 2 THEN PRINT "Veiled in flesh, the God-head see; Hail th'in-car-nate De-ity;" - 8010 IF X = 3 THEN PRINT "Wild He lays His glo-ry by-, Born that man no more may die-." - 8020 PLAY "l4o3dddo2go3co2bbao3dddo2go3co2bba" - 8030 IF X = 1 THEN PRINT "With th'an-gel-ic host pro-claim, Christ is- born in Beth-le-hem." - 8040 IF X = 2 THEN PRINT "Pleased as man, with man to dwell, Je-sus- our Im-man-uel!" - 8050 IF X = 3 THEN PRINT "Born to raise the Sons of earth, Born to give them second birth." - 8060 PLAY "o3eeedco2bo3l2co2l4al8bo3cl4d.l8o2gl4gal2b" - 8070 PRINT "Hark! the her-ald an-gels sing, Glo-ry- to the new-born King." - 8080 PLAY "l4o3eeedco2bl2o3co2l4al8bo3cl4d.l8o2gl4gal2gp4" -8090 NEXT X -8100 GOTO 260 -8110 REM ********************************************************************* -8120 REM -8130 CLS: PRINT " ANGELS WE HAVE HEARD ON HIGH": PRINT -8140 FOR X = 1 TO 3: PRINT - 8150 IF X = 1 THEN PRINT "An-gels we have heard on high, Sweet-ly sing-ing o'er the plain;" - 8160 IF X = 2 THEN PRINT "Shepherds, why this jubilee? Why your cheery strains prolong?" - 8170 IF X = 3 THEN PRINT "Come to Bethlehem and see, Him whose birth the angels sing;" - 8180 PLAY "t150o2p4a4a4a4o3c4c4.o2b-8a2a4g4a4o3c4o2a4.g8f2" - 8190 IF X = 1 THEN PRINT "And the moun-tains in re-ply, Ech-o-ing their joy-ous strain." - 8200 IF X = 2 THEN PRINT "What the gladsome tidings be, which inspire your heav'nly song?" - 8210 IF X = 3 THEN PRINT "Come, adore on bended knee, Christ the Lord, the new-born King." - 8220 PLAY "a4a4a4o3c4c4.o2b-8a2a4g4a4o3c4o2a4.g8f2" - 8230 PRINT "Glo-----ri-a, in ex-cel-sis De-o! Glo------ri-a, in ex-cel-sis De-o!" - 8240 PLAY "o3c2d8c8o2b-8a8b-2o3c8o2b-8a8g8a2b-8a8g8f8g4.c8c2f4g4a4b-4a2g2o3c2d8c8o2b-8a8b-2o3c8o2b-8a8g8a2b-8a8g8f8g4.c8c2f4g4a4b-4a2g2f1.p4" -8250 NEXT X -8260 GOTO 260 -8270 REM ********************************************************************* -8280 REM -8290 CLS: PRINT " WHILE SHEPHERDS WATCHED THEIR FLOCKS": PRINT -8300 FOR X = 1 TO 5: PRINT - 8310 IF X = 1 THEN PRINT "While shep-herds watched their flocks by night, All seat-ed on the ground," - 8320 IF X = 2 THEN PRINT "Fear not, said he, for mighty dread had seized their troubled mind;" - 8330 IF X = 3 THEN PRINT "To you in David's town, this day is born of David's line," - 8340 IF X = 4 THEN PRINT "The heav'nly babe you there shall find to human view displayed," - 8350 IF X = 5 THEN PRINT "All glory be to God on high, and to the earth be peace;" - 8360 PLAY "t120o2p4f4a4.a8g4f4b-4b-4a4g4a4o3c4c4o2b4o3c2." - 8370 IF X = 1 THEN PRINT "The an-gel of the Lord came down, and glo-ry shone a-round." - 8380 IF X = 2 THEN PRINT "Glad tidings of great joy I bring to you and all mankind." - 8390 IF X = 3 THEN PRINT "The Saviour, who is Christ the Lord; and this shall be the sign." - 8400 IF X = 4 THEN PRINT "All meanly wrapped in swathing bands, and in a manger laid." - 8410 IF X = 5 THEN PRINT "Good-will hence-forth from heav'n to men, begin and never cease." - 8420 PLAY "o2a4o3d4.c8o2b-4a4g4f4e4a4g4f4f4e4f2.p4" -8430 NEXT X -8440 GOTO 260 -8450 REM ********************************************************************* -8460 REM -8470 CLS: PRINT " IT'S BEGINNING TO LOOK A LOT LIKE CHRISTMAS": PRINT -8480 FOR X = 1 TO 2: PRINT - 8490 PRINT "It's be-gin-ning to look a lot like Christ-mas, Ev-'ry-where you go;" - 8500 PLAY "t150o1p4b8.o2c16d6e6d6c#8.d16e4g4b4d2.b4.b8a4.g8e2." - 8510 PRINT "Take a look in the five and ten, glis-ten-ing once a-gain," - 8520 PLAY "e8.f#16g6a6g6e8.f16f#2f#6g6f#6d8.d#16e4." - 8530 PRINT "with can-dy canes and sil-ver lanes a-glow." - 8540 PLAY "e8f#8.g16a8.b16a8.g16f#8.e16a2." - 8550 PRINT "It's be-gin-ning to look a lot like Christmas, toys in ev-'ry store" - 8560 PLAY "o1b8.o2c16d6e6d6c#8.d16e4g4b4d2.b4.b8a4.g8e2." - 8570 PRINT "But the prettiest sight to see is the holly that will be on your own front"; - 8580 IF X = 1 THEN PRINT " door." - 8590 IF X = 2 THEN PRINT " heart" - 8600 PLAY "e8.f#16g6a6g6f#8.g16f#4e8.e-16d8.e16g8.b16o3d4o2d8.e16o3c2O2f#2g2." - 8610 IF X = 2 THEN GOTO 260 - 8620 PRINT "A pair of hopalong boots and a pistol that shoots is the wish of Barney and Ben;" - 8630 PLAY "f#16g8.a16b8o3c8o2b8a6b6a6g6a6g6f#6g6a6b8.b16a6g6f#6e4p16" - 8640 PRINT "Dolls that will talk and will go for a walk is the hope of Jan-ice and Jen;" - 8650 PLAY "a6b6a6g6a6g6f#6g6f#6e6f#6g6a8.a16g6f#6e6d4p16" - 8660 PRINT "And Mom and Dad can hard-ly wait for school to start a-gain." - 8670 PLAY "d8o3d8.c#16c8.o2b16a8.g16f#8.e16d8.c#16d8.e16d4" -8680 NEXT -8690 REM ********************************************************************* -8700 REM -8710 CLS: PRINT " WE WISH YOU A MERRY CHRISTMAS": PRINT -8720 FOR X = 1 TO 2: PRINT - 8730 PRINT "We wish you a Mer-ry Christ-mas, We wish you a Mer-ry Christ-mas," - 8740 PLAY "t150o2p4d4g4g8a8g8f#8e4e4e4a4a8b8a8g8f#4d4" - 8750 PRINT "We wish you a Mer-ry Christ-mas, And a Hap-py New Year." - 8760 PLAY "d4b4b8o3c8o2b8a8g4e4d8d8e4a4f#4g2" - 8770 PRINT "Good ti-dings to you wher-ev-er you are;" - 8780 PLAY "d4g4g4g4f#2f#4g4f#4e4d2" - 8790 PRINT "Good ti-dings for Christ-mas and a Hap-py New Year." - 8800 PLAY "a4b4a4g4o3d4o2d4d8d8e4a4f#4g2" -8810 NEXT X -8820 GOTO 260 -8830 REM ********************************************************************* -8840 REM -8850 CLS: PRINT "LET IT SNOW! LET IT SNOW! LET IT SNOW!": PRINT -8860 FOR X = 1 TO 2: PRINT - 8870 PRINT "Oh! the weath-er out-side is fright-ful But the fire is so de-light-ful." - 8880 PLAY "t150o2p4c8c8o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2" - 8890 PRINT "And since we've no place to go, Let it snow! Let it snow! Let it snow!" - 8900 PLAY "d4o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2." - 8910 PRINT "It does-n't show signs of stop-ping, And I brought some corn for pop-ping;" - 8920 PLAY "c4o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2" - 8930 PRINT "The lights are turned 'way down low. Let it snow! Let it snow! Let it snow!" - 8940 PLAY "d4o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2." - 8950 PRINT "When we fin-al-ly kiss good-night, How I'll hate go-ing out in the storm!" - 8960 PLAY "e8f8g8a8g4e4o3c4o2g2.e8g8f4f8e8d4c8d8e2." - 8970 PRINT "But if you'll real-ly hold me tight, All the way home I'll be warm." - 8980 PLAY "e8f8g4a8g8e4o3c4o2g1o3c8o2b8a4b4a8b8o3c2." - 8990 PRINT "The fi-re is slow-ly dy-ing; and, my dear, we're still good-bye-ing," - 9000 PLAY "o2c4o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2" - 9010 PRINT "But as long as you love me so, Let It Snow! Let It Snow! Let It Snow!" - 9020 PLAY "d8d8o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2.p8" - 9030 IF X = 2 THEN GOTO 9050 -9040 NEXT X -9050 GOTO 260 -9060 REM ********************************************************************* -9070 REM -9080 CLS: PRINT "I'LL BE HOME FOR CHRISTMAS": PRINT -9081 X = 1 -9090 'FOR X = 1 TO 2: -PRINT -9100 PRINT "I'll be home for Christ-mas," -9110 PLAY "t220o3p4c2.o2b4o3d2.c4o2g2g2d8e8f8a8e8e-8d4" -9120 PRINT "You can plan on me." -9130 PLAY "a2.g4b-2.a4d1" -9140 PRINT "Please have snow and mis-stle-toe," -9150 PLAY "c#4d2.e4g2.f4e2.g4o3c2." -9160 PRINT "And pre-sents on the tree." -9170 PLAY "o2b4o3d2d2o2b2.b4a1." -9180 PRINT "Christ-mas Eve will find me-" -9190 PLAY "o2b4o3c2.o2b4o3d2.c4o2g2g2d8e8f8a8e8e-8d4" -9200 PRINT "Where the love- light gleams." -9210 PLAY "a2.g4b-2.a4d1" -9220 PRINT "I'll be home for Christ-mas," -9230 PLAY "d8e8f8a8o3d2.c4d2.c4o2g1a2." -9240 PRINT "If on-ly in my dreams--." -9250 PLAY "a4o3d2e2c2d2" -9260 IF X = 1 THEN PLAY "o3c2o2g8a8b8o3c8d4o2b8b-8a4b4": X = 2: GOTO 9090 -'NEXT X -9270 IF X = 2 THEN PLAY "c1" -9280 GOTO 260 -9290 REM ********************************************************************* -9300 REM -9310 CLS: PRINT "(There's no place like) HOME FOR THE HOLIDAYS": PRINT -9320 FOR X = 1 TO 2: PRINT - 9330 PRINT "Oh, there's no place like Home for the Hol-i-days" - 9340 PLAY "t150o2p4l4efl2gl4ecl2o3cl4o2bagfl1e" - 9350 PRINT "'cause no mat-ter how far a-way you roam" - 9360 PLAY "l4cdl2el4d#eagfedo3co2bagf" - 9370 PRINT "When you pine for the sun-shine of a friend-ly gaze" - 9380 PLAY "l4efl2gl4eco3dco2bao3co2el1g" - 9390 PRINT "for the hol-i-days you can't beat home, sweet home." - 9400 PLAY "l4o3dco2bgafgefdl1c" - 9410 PRINT "I met a man who lives in Ten-nes-see" - 9420 PLAY "l4cfgao3cco2bo3dcc." - 9430 PRINT "and he was head-in' for Penn-syl-van-ia and some home-made pump-kin pie." - 9440 PLAY "l8o2bl4o3dco2bal2gl4efggf#gbagfl1e" - 9450 PRINT "From Penn-syl-van-ia folks are trav-'lin' down to Dix-ie's sun-ny shore;" - 9460 PLAY "l4cfgao3cco2bo3dcc.l8o2bl4o3dco2bal2g" - 9470 PRINT "From At-lan-tic to Pa-ci-fic, gee, the traf-fic is ter-ri-fic." - 9480 PLAY "l4gabo3ddedco2b.l8al4gggagf" - 9490 PRINT "Oh, there's no place like Home for the Hol-i-days" - 9500 PLAY "l4efl2gl4ecl2o3cl4o2bagfl1e" - 9510 PRINT "'cause no mat-ter how far a-way you roam-" - 9520 PLAY "l4cdl2el4d#eagfedo3co2bagf" - 9530 PRINT "if you want to be hap-py in a mil-lion ways" - 9540 PLAY "l4efl2gl4eco3dco2bao3co2el1g" - 9550 PRINT "for the hol-i-days you can't beat home, sweet home." - 9560 IF X = 1 THEN PLAY "l4o3dco2bgafgefdcgggl2g" - 9570 IF X = 2 THEN PLAY "l4o3dco2bgafl2gel1fo3dc." -9580 NEXT X -9590 GOTO 260 -9600 REM ********************************************************************* -9610 REM -9620 CLS: PRINT " SILVER BELLS": PRINT -9630 PRINT "Christ-mas makes you feel e-mo-tion-al." -9640 PLAY "t150o2l4f2ff2ff2fo3c.o2b-8a" -9650 PRINT "It may bring par-ties or thoughts de-vo-tion-al." -9660 PLAY "fffffff2fo3c.o2b-8a" -9670 PRINT "What-ev-er hap-pens or what may be," -9680 PLAY "b-o3cdo2b-o3cdo2b-2o3cd2." -9690 PRINT "Here is what Christ-mas time means to me:" -9700 PLAY "o2ab-o3co2ab-o3co2a2b-o3c" -9710 FOR X = 1 TO 2: PRINT - 9720 PRINT "City side-walks, busy side-walks, dressed in hol-i-day style," - 9730 PLAY "t150o2p4b-8g8f4d4b-8g8f4d4o3d8c8o2b-4g4g4g2" - 9740 PRINT "In the air there's a feel-ing of Christ-mas." - 9750 PLAY "o3c8o2b-8a4f4e4e-4f4.e-8e-4d2.p8" - 9760 PRINT "Child-ren laugh-ing, people pass-ing, meet-ing smile after smile," - 9770 PLAY "b-8g8f4d4b-8g8f4d4o3d8c8o2b-4g4g4g2" - 9780 PRINT "and on every street corner you hear:" - 9790 PLAY "o3c8o2b-8a4f4e4e-4f4o3c4o2b-1" - 9800 PRINT "Silver bells, silver bells," - 9810 PLAY "d8e-8f1g8a8b-1" - 9820 PRINT "It's Christ-mas time in the city." - 9830 PLAY "a4a4b-4o3c2o2b-8a8b-4f1" - 9840 PRINT "Hear the bells, hear them ring." - 9850 PLAY "d8e-8f1g8a8b-1" - 9860 PRINT "Soon it will be Christ-mas Day!" - 9870 PLAY "a4a4b-4o3c4o2b-4a4b-2.p4" -9880 NEXT X -9890 GOTO 260 -9900 REM ********************************************************************* -9910 REM -9920 CLS: PRINT "JOLLY OLD SAINT NICHOLAS": PRINT: PRINT -9930 PRINT "Jolly old Saint Nicholas," -9940 PLAY "t180o2p4l4bbbbaal2a" -9950 PRINT "Lean your ear this way." -9960 PLAY "l4ggggl1b" -9970 PRINT "Don't you tell a single soul" -9980 PLAY "l4eeeeddl2g" -9990 PRINT "What I'm going to say." -10000 PLAY "l4agabl1a" -10010 PRINT "Christmas Eve is coming soon;" -10020 PLAY "l4bbbbaal2a" -10030 PRINT "Now you dear old man," -10040 PLAY "l4ggggl1b" -10050 PRINT "Whisper what you'll bring to me," -10060 PLAY "l4eeeeddl2g" -10070 PRINT "Tell me if you can." -10080 PLAY "l4agabl1g" -10090 GOTO 260 -10100 REM ********************************************************************* -10110 REM -10120 CLS: PRINT " JINGLE BELLS ": PRINT -10130 FOR X = 1 TO 3: PRINT - 10140 IF X = 1 THEN PRINT "Dashing thro' the snow, In a one horse o-pen sleigh," - 10150 IF X = 2 THEN PRINT "A day or two ago, I tho't I'd take a ride:" - 10160 IF X = 3 THEN PRINT "Now the ground is white, Go it while you're young," - 10170 PLAY "T180O2p4L4DBAGL2D.L8DDL4DBAGL2E." - 10180 IF X = 1 THEN PRINT "O'er the fields we go, Laugh-ing all the way;" - 10190 IF X = 2 THEN PRINT "And soon Miss Fannie Bright, was seated by my side;" - 10200 IF X = 3 THEN PRINT "Take the girls tonight; and sing this sleighing song:" - 10210 PLAY "L4EEO3CO2BAL1F#O3L4DDCO2AL1B" - 10220 IF X = 1 THEN PRINT "Bells on bob-tail ring, Making spir-its bright;" - 10230 IF X = 2 THEN PRINT "The horse was lean and lank, misfortune seem'd his lot;" - 10240 IF X = 3 THEN PRINT "Just get a bob-tailed bay, two forty for his speed," - 10250 PLAY "L4DBAGL2D.L8DDL4DBAGL2E." - 10260 IF X = 1 THEN PRINT "What fun it is to ride and sing a sligh-ing song to-night!" - 10270 IF X = 2 THEN PRINT "He got into a drifted bank and then we got up-sot!" - 10280 IF X = 3 THEN PRINT "Then hitch him to an open sleigh and crack! you'll take the lead." - 10290 PLAY "L4EEO3CO2BAO3DDDDEDCO2AL2G." - 10300 PRINT "Jin-gle bells, Jin-gle bells, Jin-gle all the way!" - 10310 PLAY "P4L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1B" - 10320 PRINT "Oh! what fun it is to ride in a one horse open sleigh!" - 10330 PLAY "O3L4CCL4C.L8CL4CO2BBL8BBL4BAABL2A" - 10340 PRINT "Jin-gle bells, Jin-gle bells, Jin-gle all the way!" - 10350 PLAY "O3DO2L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1B" - 10360 PRINT "Oh! what fun it is to ride in a one horse open sleigh!" - 10370 PLAY "O3L4CCL4C.L8CL4CO2BBL8BBO3L4DDCO2L4AL1GP1" -10380 NEXT X -10390 GOTO 260 -10400 REM ********************************************************************* -10410 REM -10420 CLS: PRINT "Frosty the Snow Man" -10430 FOR X = 1 TO 2 - 10440 PRINT - 10450 IF X = 1 THEN PRINT "Fros-ty the Snow man was a jolly happy soul," - 10460 IF X = 2 THEN PRINT "Fros-ty the Snow man knew the sun was hot that day" - 10470 PLAY "t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2." - 10480 IF X = 1 THEN PRINT "with a corn cob pipe and a button nose and two eyes made out of coal." - 10490 IF X = 2 THEN PRINT "so he said Let's run and we'll have some fun now before I melt away." - 10500 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2." - 10510 IF X = 1 THEN PRINT "Fros-ty the Snow Man is a fair-y tale, they say," - 10520 IF X = 2 THEN PRINT "Down to the vil-lage, with a broom-stick in his hand," - 10530 PLAY "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2." - 10540 IF X = 1 THEN PRINT "He was made of snow but the chil-dren knew how he come to life one day." - 10550 IF X = 2 THEN PRINT "run-ning here and there all a-round the square, say-in' catch me if you can." - 10560 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2." - 10570 IF X = 1 THEN PRINT "There must have been some magic in that old silk hat they found." - 10580 IF X = 2 THEN PRINT "He led them down the streets of town right to the traffic cop." - 10590 PLAY "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2." - 10600 IF X = 1 THEN PRINT "For when they placed it on his head he be-gan to dance a round." - 10610 IF X = 2 THEN PRINT "And he on-ly paused a moment when he heard him hol-ler Stop!" - 10620 PLAY "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4" - 10630 IF X = 1 THEN PRINT "Oh, Fros-ty the Snow Man was a-live as he could be," - 10640 IF X = 2 THEN PRINT "For, Fros-ty the Snow Man had to hur-ry on his way" - 10650 PLAY "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2." - 10660 IF X = 1 THEN PRINT "and the chil-dren say he could laugh and play just the same as you and me." - 10670 IF X = 2 THEN PRINT "but he waved good-bye say-in' Don't you cry, I'll be back a-gain some day." - 10680 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4" -10690 NEXT X -10700 PRINT: PRINT "Thump-et-y thump thump, thump-et-y thump thump, look at Fros-ty go." -10710 PLAY "t180g8g8g4g4g4a8g8g4g4g4a4g4e4g4d1" -10720 PRINT "Thump-et-y thump thump, thump-et-y thump thump, ov-er the hills of snow." -10730 PLAY "t180g8g8g4g4g4a8g8g4g4g4g8g8g4a4b4o3c2c4p1" -10740 GOTO 260 -10750 REM ********************************************************************* -10760 REM -10770 CLS: PRINT " RUDOLPH THE RED-NOSED REINDEER": PRINT: PRINT -10780 PRINT "You know Dash-er and Danc-er and Pranc-er and Vix-en," -10790 PLAY "t120o2l8p4abo3co2a4fbg4eaf4dag4." -10800 PRINT "Com-et and Cu-pid and Don-ner and Blitz-en," -10810 PLAY "o3co2a4fbg4eaf4dag4." -10820 PRINT "But do you re-call the most fa-mous rein-deer of all?" -10830 PLAY "l4eeeea2.a8b8o3ccc8o2ba8g1" -10840 PRINT "Rudolph the red-nosed reindeer" -10850 PLAY "T160O3p4C8D4C8O2A4O3F4D4C2." -10860 PRINT "Had a very shiny nose" -10870 PLAY "o3c8d8c8d8c4f4e1" -10880 PRINT "And if you ever saw it," -10890 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2." -10900 PRINT "You would even say it glows." -10910 PLAY "o3c8d8c8d8c4d4o2a1" -10920 PRINT "All of the other reindeer," -10930 PLAY "o3c8d4c8o2a4o3f4d4c2." -10940 PRINT "Used to laugh and call him names." -10950 PLAY "o3c8d8c8d8c4f4e1" -10960 PRINT "They never let poor Rudolph" -10970 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2." -10980 PRINT "Join in any reindeer games." -10990 PLAY "o3c8d8c8d8c4g4f1" -11000 PRINT "Then one foggy Christmas Eve," -11010 PLAY "o3d4d4f4d4c4o2a4o3c2" -11020 PRINT "Santa came to say:" -11030 PLAY "o2b-4o3d4c4o2b-4a1" -11040 PRINT "Rudolph with your nose so bright" -11050 PLAY "o2g4a4o3c4d4e4e4e2" -11060 PRINT "Won't you guide my sleigh tonight?" -11070 PLAY "o3f4f4e4d4c4o2b-4g2" -11080 PRINT "Then how the reindeer loved him," -11090 PLAY "o3c8d4c8o2a4o3f4d4c2." -11100 PRINT "As they shouted out with glee:" -11110 PLAY "o3c8d8c8d8c4f4e1" -11120 PRINT "Rudolph the red-nosed reindeer," -11130 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2." -11140 PRINT "You'll go down in history." -11150 PLAY "o3c8d8c8d8c4g4f1" -11160 GOTO 260 -11170 REM ********************************************************************* -11180 REM -11190 CLS: PRINT " SLEIGH RIDE": PRINT -11200 FOR X = 1 TO 2: PRINT - 11210 PRINT "Just hear those sleigh bells jin-gle-ing, ring-ting-tin-gle-ing, too." - 11220 PLAY "t180o3l4dddded8o2b8gaba8f#8ed1" - 11230 PRINT "Come on, it's love-ly weath-er for a Sleigh Ride to-geth-er with you," - 11240 PLAY "o2ef#ao3ded8o2b8a8g8aa8b8a8g8eg1" - 11250 PRINT "Out-side the snow is fall-ing and friends are call-ing 'Yoo hoo'," - 11260 PLAY "o3dddded8o2b8gaba8f#8ed1" - 11270 PRINT "Come on, it's love-ly weather for a Sleigh Ride to-geth-er with you." - 11280 PLAY "o2ef#ao3ded8o2b8a8g8aa8b8a8g8eg1" - 11290 PRINT "Gid-dy-yap, gid-dy-yap, gid-dy-yap, let's go. Let's look at the show," - 11300 PLAY "o2d#8e8bd#8e8bd8e8bO3c#O2a#1ba#8f#8d#g#1" - 11310 PRINT "We're rid-ing in a won-der-land of snow." - 11320 PLAY "a#g#8e8c#8e8g#ba#o3c#o2f#1." - 11330 PRINT "Gid-dy-yap, gid-dy-yap, gid-dy-yap, it's grand, Just holding your hand." - 11340 PLAY "c#8d8ac#8d8ac8d8abg#2ag#8e8c#f#1" - 11350 PRINT "We're glid-ing a-long with a song of a win-ter-y fair-y-land." - 11360 PLAY "o3ae8d8o2ao3de8a8ed8o2a8o3d8e8ao4do3ad" - 11370 PRINT "Our cheeks are nice and ros-y, and com-fy co-zy are we." - 11380 PLAY "dddded8o2g8gaba8f#8ed1" - 11390 PRINT "We're snug-gled up to-geth-er like two birds of a feath-er would be." - 11400 PLAY "df#ao3ded8o2b8a8g8aa8b8a8g8eg1" - 11410 PRINT "Let's take that road be-fore us and sing a cho-rus or two." - 11420 PLAY "o3dddded8o2b8gaba8f#8ed1" - 11430 PRINT "Come on, it's love-ly weath-er for a Sleigh Ride to-geth-er with you." - 11440 PLAY "ef#ao3ded8o2b8a8g8aa8b8a8g8eg1." -11450 NEXT X -11460 GOTO 260 -11470 CLS: PRINT "O CHRISTMAS TREE": PRINT -11480 FOR X = 1 TO 4: PRINT - 11490 IF X = 1 THEN PRINT "O Christmas tree! O Christmas tree! Your leaves are so unchanging." - 11500 IF X = 2 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Wie treu sind dei-ne Blt-ter!" - 11510 IF X = 3 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Du kannst mir sehr ge-fall-en," - 11520 IF X = 4 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Dein Kleid will mir was leh-ren;" - 11530 PLAY "T100O2p4C4F8.F16F8.P64G8.A8.A16A4.P64A8G8A8B-4E4G4F4P8" - 11540 IF X = 1 THEN PRINT "Not only green when summer's here, but also when the snow is near." - 11550 IF X = 2 THEN PRINT "Du grnst nicht nur zur Som-mer-zeit, Nein auch im Win-ter, wenn es schneit," - 11560 IF X = 3 THEN PRINT "Wie oft hat nicht zur Weih-nachts-zeit, Ein baum von dir mich hoch er-freut!" - 11570 IF X = 4 THEN PRINT "Die Hoff-nung und Be-stn-dig-keit, Giebt Trost und Kraft zu je-der Zeit!" - 11580 PLAY "O3C8C8O2A8O3D4.C8C8O2B-8B-4.B-8B-8G8O3C4.O2B-8b-8a8a4p16" - 11590 IF X = 1 THEN PRINT "O Christmas tree! O Christmas tree! Your leaves are so unchanging." - 11600 IF X = 2 THEN PRINT "O Tannenbaum, O Tannenbaum, Wie treu sind dei-ne Blt-ter." - 11610 IF X = 3 THEN PRINT "O Tannenbaum, O Tannenbaum, Du kannst mir sehr ge-fall-en." - 11620 IF X = 4 THEN PRINT "O Tannenbaum, O Tannenbaum, Dein Kleid will mir was leh-ren." - 11630 PLAY "C4F8.F16F4.G8A8.A16A4.A8G8A8B-4E4G4F4P4" -11640 NEXT X -11650 GOTO 260 -11660 REM ********************************************************************* -11670 REM -11680 CLS: PRINT " SANTA CLAUS IS COMING TO TOWN": PRINT -11690 PRINT "You bet-ter watch out, you bet-ter not cry," -11700 PLAY "t150o2l4p4ge8f8gg.g8a8b8o3cc2" -11710 PRINT "Bet-ter not pout, I'm tell-ing you why:" -11720 PLAY "o2e8f8ggga8g8ff2" -11730 PRINT "San-ta Claus is com-in' to town." -11740 PLAY "egcedf2o1bo2c2" -11750 PRINT "He's making a list and check-ing it twice," -11760 PLAY "g8e8f8gg.g8a8b8o3cc2" -11770 PRINT "Gon-na find out whose naught-y and nice," -11780 PLAY "o2e8f8ggga8g8ff2" -11790 PRINT "San-ta Claus is com-in' to town." -11800 PLAY "egcedf2o1bo2c1" -11810 PRINT "He sees you when you're sleep-in'," -11820 PLAY "o3cdco2bo3co2aa2" -11830 PRINT "He knows when you're awake." -11840 PLAY "o3cdco2bo3co2a2." -11850 PRINT "He knows if you've been bad or good," -11860 PLAY "o3dedc#do2bbb" -11870 PRINT "So be good for good-ness sake." -11880 PLAY "o2b8o3c8dco2bag" -11890 PRINT "Oh! You bet-ter watch out, you bet-ter not cry," -11900 PLAY "o2p4g.g8e8f8gg.g8a8b8o3cc2" -11910 PRINT "Bet-ter not pout, I'm tell-ing you why:" -11920 PLAY "o2e8f8ggga8g8ff2" -11930 PRINT "San-ta Claus is com-in' to town." -11940 PLAY "egcedf2o3dc1." -11950 GOTO 260 -11960 REM ********************************************************************* -11970 REM -11980 CLS: PRINT " HERE COMES SANTA CLAUS": PRINT -11990 FOR X = 1 TO 4: PRINT - 12000 PRINT "Here comes San-ta Claus! Here comes San-ta Claus! Right down San-ta Claus Lane!" - 12010 IF X = 2 THEN GOTO 12080 - 12020 IF X = 3 THEN GOTO 12120 - 12030 IF X = 4 THEN GOTO 12160 - 12040 PRINT "Vix-en and Blitz-en and all his rein-deer are pulling on the rein." - 12050 PRINT "Bells are ring-ing, chil-dren sing-ing, all is mer-ry and bright." - 12060 PRINT "Hang your stock-ings and say your pray'rs, 'Cause San-ta Claus comes to-night." - 12070 GOTO 12190 - 12080 PRINT "He's got a bag that is filled with toys for the boys and girls a-gain." - 12090 PRINT "Hear those sleigh bells jin-gle jan-gle, what a beau-ti-ful sight." - 12100 PRINT "Jump in bed, cov-er up your head, 'Cause San-ta Claus comes to-night." - 12110 GOTO 12190 - 12120 PRINT "He does-n't care if you're rich or poor for he loves you just the same." - 12130 PRINT "San-ta knows that we're God's chil-dren, that makes ev-`ry-thing right." - 12140 PRINT "Fill your hearts with a Christ-mas cheer, 'Cause San-ta Claus comes to-night." - 12150 GOTO 12190 - 12160 PRINT "He'll come a-round when the chimes ring out, then it's Christ-mas morn a-gain." - 12170 PRINT "Peace on earth will come to all if we just fol-low the light." - 12180 PRINT "Let's give thanks to the Lord a-bove, 'Cause San-ta comes to-night." - 12190 PLAY "t180o2l4p4cag8g8fcag8g8fcb-b-8b-8ab-1" - 12200 PLAY "cb-8b-8ag8g8cb-ag8g8co3cco2bo3c1" - 12210 PLAY "o3dfedcedco2b-b-o3d6c6o2b-6a1" - 12220 PLAY "o3dfed8d8cedo2ao3c8c8o2b-agf1" -12230 NEXT X -12240 GOTO 260 -12250 REM ********************************************************************* -12260 REM -12270 CLS: PRINT " HAVE YOURSELF A MERRY LITTLE CHRISTMAS": PRINT: PRINT -12280 PRINT "Have your-self a mer-ry lit-tle Christ-mas," -12290 PLAY "t120o2l4cego3co2g8f8e8d8cd" -12300 PRINT "Let your heart be light." -12310 PLAY "cego3co2g2." -12320 PRINT "From now on, our troub-les will be out of sight." -12330 PLAY "ego3ced8c8o2b8a8gfe1" -12340 PRINT "Have your-self a mer-ry lit-tle Christ-mas," -12350 PLAY "cego3co2g8f8e8d8cd" -12360 PRINT "Make the Yule-tide gay." -12370 PLAY "cego3co2g2." -12380 PRINT "From now on, our troub-les will be miles a-way." -12390 PLAY "ego3ced8c8o2b8a8g#bo3c2" -12400 PRINT "Here we are as in old-en days, hap-py gold-en days of yore." -12410 PLAY "eeed8c8o2b8o3c8d2c8o2b8a8b8o3c2o2bb2." -12420 PRINT "Faith-ful friends who are dear to us gather near to us once more" -12430 PLAY "o3ccco2b8a8g8a8b2g8a8b8o3c8d2o2dg2." -12440 PRINT "Through the years we all will be to-geth-er, if the Fates al-low." -12450 PLAY "cego3co2g8f8e8d8cdcego3co2g1" -12460 PRINT "Hang a shin-ing star up-on the high-est bough," -12470 PLAY "ego3cef8e8d8c8o2bo3de2" -12480 PRINT "And have your-self a mer-ry lit-tle Christ-mas now." -12490 PLAY "o3eeo2fao3ce8d8c8o2b8abo3c1" -12500 GOTO 260 -12510 REM ********************************************************************* -12520 REM -12530 CLS: PRINT " THE NIGHT BEFORE CHRISTMAS SONG": PRINT -12540 FOR X = 1 TO 2: PRINT - 12550 IF X = 1 THEN PRINT "'Twas the night be-fore Christ-mas and all thru the house," - 12560 IF X = 2 THEN PRINT "And so up to the house-top the rein-deer soon flew," - 12570 PLAY "t150o2l4g8g8o3c.c8c8o2bgbafag2" - 12580 IF X = 1 THEN PRINT "not a crea-ture was stir-ring, not e-ven a mouse." - 12590 IF X = 2 THEN PRINT "with the sleigh full of toys and Saint Nich-o-las too." - 12600 PLAY "g8g8fdfecedcde2" - 12610 IF X = 1 THEN PRINT "All the stock-ings were hung by the chim-ney with care," - 12620 IF X = 2 THEN PRINT "Down the chim-ney he came with a leap and a bound." - 12630 PLAY "g8g8o3c.c8co2bgbafag2" - 12640 IF X = 1 THEN PRINT "In the hope that Saint Nich-o-las soon would be there." - 12650 IF X = 2 THEN PRINT "He was dressed all in fur and his bel-ly was round." - 12660 PLAY "g8g8fdfecedco1bo2c2" - 12670 IF X = 1 THEN PRINT "Then what to my won-der-ing eyes should ap-pear." - 12680 IF X = 2 THEN PRINT "He spoke not a word but went straight to his work." - 12690 PLAY "cag#ao3co2bago3co2eg2" - 12700 IF X = 1 THEN PRINT "A min-ia-ture sleigh and eight ti-ny rein-deer." - 12710 IF X = 2 THEN PRINT "And filled all the stock-ings; then turned with a jerk." - 12720 PLAY "gfefagfegce2" - 12730 IF X = 1 THEN PRINT "A lit-tle old driv-er so live-ly and quick," - 12740 IF X = 2 THEN PRINT "And lay-ing his fin-ger a-side of his nose," - 12750 PLAY "cag#ao3co2bago3co2eg2" - 12760 IF X = 1 THEN PRINT "I knew in a mo-ment it must be Saint Nick." - 12770 IF X = 2 THEN PRINT "then giv-ing a nod up the chim-ney he rose;" - 12780 PLAY "gf#edo3co2baaggg2" - 12790 IF X = 1 THEN PRINT "And more rap-id than ea-gles his rein-deer all came." - 12800 IF X = 2 THEN PRINT "But I heard him ex-claim as he drove out of sight," - 12810 PLAY "g8g8o3c.c8co2bgbafag2" - 12820 IF X = 1 THEN PRINT "As he shout-ed 'On Dash-er' and each rein-deer's name." - 12830 IF X = 2 THEN PRINT "Mer-ry Christ-mas to all and to all a Good Night!" - 12840 PLAY "g8g8fdfece" - 12850 IF X = 1 THEN PLAY "dco1bo2c2" - 12860 IF X = 2 THEN PLAY "gabo3c2." -12870 NEXT X -12880 GOTO 260 -12890 REM ********************************************************************* -12900 REM -12910 REM I am so glad on Christmas Eve -12920 REM "I am so glad- on Christ-mas Eve, the night of Je-sus' birth;" -12930 REM "That's when a star shone like the sun and an-gels sang on earth." -12940 REM "I am so glad- on Christ-mas Eve, my prais-es rise- a-bove," -12950 REM "To Je-sus who has brought to earth the par-a-dise of love." -12960 PLAY "T135o2L4f8b-b-8o3d8.c16o2b-8ab-8o3co2f8o3cd8e-8.d16c8d2." -12970 PLAY "o2f8b-b-8o3d8.c16o2b-8ag8o3e-c8o2b-b-8a8.g16a8b-2." -12980 GOTO 260 -12990 REM ********************************************************************* -13000 REM -13010 REM FROM HEAVEN ABOVE TO EARTH I COME -13020 REM ?"From heav'n a-bove to earth I come," -13030 REM ?"To bear good news to- ev-'ry home." -13040 REM ?"Glad ti-dings of- great joy- I bring," -13050 REM ?"Where-of I now will- glad-ly sing." -13060 REM verse 2 -13070 REM ?"To you this night is born a Child" -13080 REM ?"Of Mary, chosen mother mild;" -13090 REM ?"This little Child of lowly birth;" -13100 REM ?"Shall be the joy of all the earth." -13110 REM verse 3 -13120 REM ?"Glory to God in highest heav'n" -13130 REM ?"Who unto us His Son hath giv'n!" -13140 REM ?"While angels sing with pious mirth," -13150 REM ?"A glad New Year to all the earth." -13160 PLAY "T140O3L4DC#O2BO3C#O2ABO3C#D." -13170 PLAY "O3DDO2AAF#8G8AGF#." -13180 PLAY "F#BBA8B8O3C#D8C#8o2BA." -13190 PLAY "O3DC#O2BAB8A8G8F#8ED." -13200 SYSTEM -13210 REM ********************************************************************* -13220 REM -13230 REM ********************************************************************* -13240 REM - diff --git a/programs/samples/misc/chess.bas b/programs/samples/misc/chess.bas deleted file mode 100644 index 15b61945d..000000000 --- a/programs/samples/misc/chess.bas +++ /dev/null @@ -1,543 +0,0 @@ -DEFINT A-Z -DECLARE SUB SQUARE (A, B, C) -DECLARE SUB SHOWMAN (A, B, FLAG) -DECLARE SUB SHOWBD () -DECLARE SUB IO (A, B, X, Y, RESULT) -DECLARE FUNCTION INCHECK (X) -DECLARE SUB MAKEMOVE (A, B, X, Y) -DECLARE SUB KNIGHT (A, B, XX(), YY(), NDX) -DECLARE SUB KING (A, B, XX(), YY(), NDX) -DECLARE SUB QUEEN (A, B, XX(), YY(), NDX) -DECLARE SUB ROOK (A, B, XX(), YY(), NDX) -DECLARE SUB BISHOP (A, B, XX(), YY(), NDX) -DECLARE SUB MOVELIST (A, B, XX(), YY(), NDX) -DECLARE SUB PAWN (A, B, XX(), YY(), NDX) -DECLARE FUNCTION EVALUATE (ID, PRUNE) -DIM SHARED BOARD(0 TO 7, 0 TO 7) -DIM SHARED BESTA(0 TO 7), BESTB(0 TO 7), BESTX(0 TO 7), BESTY(0 TO 7) -DIM SHARED LEVEL, MAXLEVEL, SCORE -DIM SHARED WCKSFLAG, WCQSFLAG, INTFLAG -DIM SHARED WCKSOLD, WCQSOLD -LEVEL = 0 -MAXLEVEL = 5 'change this to higher to make it think ahead more -DATA -500,-270,-300,-900,-7500,-300,-270,-500 -DATA -100,-100,-100,-100, -100,-100,-100,-100 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 100, 100, 100, 100, 100, 100, 100, 100 -DATA 500, 270, 300, 900, 5000,300, 270, 500 -FOR X = 0 TO 7 - FOR Y = 0 TO 7 - READ Z - BOARD(X, Y) = Z - NEXT Y -NEXT X -A = -1 -RESULT = 0 -CLS -LOCATE , 34 -PRINT "QBASIC CHESS" -PRINT -PRINT " CHESS is a game played between two players on a board of 64 squares." -PRINT " Chess was first invented in its current form in Europe during the late" -PRINT " fifteenth century. It evolved from much earlier forms invented in India" -PRINT " and Persia." -PRINT " The pieces are divided into Black and White. Each player has 16 pieces:" -PRINT " 1 king, 1 queen, 2 rooks, 2 bishops, 2 knights, and 8 pawns. White makes" -PRINT " the first move. The players alternate moving one piece at a time. Pieces" -PRINT " are moved to an unoccupied square, or moved onto a square occupied by an" -PRINT " opponent's piece, capturing it. When the king is under attack, he is in" -PRINT " CHECK. The player cannot put his king in check. The object is to CHECKMATE" -PRINT " the opponent. This occurs when the king is in check and there is no way to" -PRINT " remove the king from attack." -PRINT " To move the pieces on the chessboard, type in your move in coordinate" -PRINT " notation, e.g. E2-E4 (not in English notation like P-K4). To castle, type O-O" -PRINT " to castle kingside or O-O-O to castle queenside like in English notation." -PRINT " To exit the game, type QUIT." -PRINT -PRINT "Press any key to continue." -Z$ = INPUT$(1) -DO - SCORE = 0 - CALL IO(A, B, X, Y, RESULT) - CLS - CALL SHOWBD - RESULT = EVALUATE(-1, 10000) - A = BESTA(1) - B = BESTB(1) - X = BESTX(1) - Y = BESTY(1) -LOOP - -SUB BISHOP (A, B, XX(), YY(), NDX) - ID = SGN(BOARD(B, A)) - FOR DXY = 1 TO 7 - X = A - DXY - Y = B + DXY - IF X < 0 OR X > 7 OR Y < 0 OR Y > 7 THEN EXIT FOR - GOSUB 3 - IF BOARD(Y, X) <> 0 THEN EXIT FOR - NEXT - FOR DXY = 1 TO 7 - X = A + DXY - Y = B + DXY - IF X < 0 OR X > 7 OR Y < 0 OR Y > 7 THEN EXIT FOR - GOSUB 3 - IF BOARD(Y, X) <> 0 THEN EXIT FOR - NEXT - FOR DXY = 1 TO 7 - X = A - DXY - Y = B - DXY - IF X < 0 OR X > 7 OR Y < 0 OR Y > 7 THEN EXIT FOR - GOSUB 3 - IF BOARD(Y, X) <> 0 THEN EXIT FOR - NEXT - FOR DXY = 1 TO 7 - X = A + DXY - Y = B - DXY - IF X < 0 OR X > 7 OR Y < 0 OR Y > 7 THEN EXIT FOR - GOSUB 3 - IF BOARD(Y, X) <> 0 THEN EXIT FOR - NEXT - EXIT SUB -3 REM - IF ID <> SGN(BOARD(Y, X)) THEN - NDX = NDX + 1 - XX(NDX) = X - YY(NDX) = Y - END IF - RETURN -END SUB - -FUNCTION EVALUATE (ID, PRUNE) - DIM XX(0 TO 26), YY(0 TO 26) - LEVEL = LEVEL + 1 - BESTSCORE = 10000 * ID - FOR B = 7 TO 0 STEP -1 - FOR A = 7 TO 0 STEP -1 - IF SGN(BOARD(B, A)) <> ID THEN GOTO 1 - IF (LEVEL = 1) THEN CALL SHOWMAN(A, B, 8) - CALL MOVELIST(A, B, XX(), YY(), NDX) - FOR I = 0 TO NDX - X = XX(I) - Y = YY(I) - IF LEVEL = 1 THEN - LOCATE 1, 1 - PRINT "TRYING: "; CHR$(65 + A); 8 - B; "-"; CHR$(65 + X); 8 - Y - CALL SHOWMAN(X, Y, 8) - END IF - OLDSCORE = SCORE - MOVER = BOARD(B, A) - TARGET = BOARD(Y, X) - CALL MAKEMOVE(A, B, X, Y) - IF (LEVEL < MAXLEVEL) THEN SCORE = SCORE + EVALUATE(-ID, BESTSCORE - TARGET + ID * (8 - ABS(4 - X) - ABS(4 - Y))) - SCORE = SCORE + TARGET - ID * (8 - ABS(4 - X) - ABS(4 - Y)) - IF (ID < 0 AND SCORE > BESTSCORE) OR (ID > 0 AND SCORE < BESTSCORE) THEN - BESTA(LEVEL) = A - BESTB(LEVEL) = B - BESTX(LEVEL) = X - BESTY(LEVEL) = Y - BESTSCORE = SCORE - IF (ID < 0 AND BESTSCORE >= PRUNE) OR (ID > 0 AND BESTSCORE <= PRUNE) THEN - BOARD(B, A) = MOVER - BOARD(Y, X) = TARGET - SCORE = OLDSCORE - IF (LEVEL = 1) THEN CALL SHOWMAN(X, Y, 0) - IF (LEVEL = 1) THEN CALL SHOWMAN(A, B, 0) - LEVEL = LEVEL - 1 - EVALUATE = BESTSCORE - EXIT FUNCTION - END IF - END IF - BOARD(B, A) = MOVER - BOARD(Y, X) = TARGET - SCORE = OLDSCORE - IF (LEVEL = 1) THEN CALL SHOWMAN(X, Y, 0) - NEXT - IF (LEVEL = 1) THEN CALL SHOWMAN(A, B, 0) -1 NEXT - NEXT - LEVEL = LEVEL - 1 - EVALUATE = BESTSCORE - END FUNCTION - -FUNCTION INCHECK (X) - DIM XX(27), YY(27), NDX - FOR B = 0 TO 7 - FOR A = 0 TO 7 - IF BOARD(B, A) >= 0 THEN GOTO 6 - CALL MOVELIST(A, B, XX(), YY(), NDX) - FOR I = 0 TO NDX STEP 1 - X = XX(I) - Y = YY(I) - IF BOARD(Y, X) = 5000 THEN - PRINT "YOU ARE IN CHECK!" - PRINT " " - PRINT " " - INCHECK = 1 - EXIT FUNCTION - END IF - NEXT -6 NEXT - NEXT - INCHECK = 0 - END FUNCTION - -SUB IO (A, B, X, Y, RESULT) - DIM XX(0 TO 26), YY(0 TO 26) - CLS - IF A >= 0 THEN - IF RESULT < -2500 THEN - PRINT "I RESIGN" - SLEEP - SYSTEM - END IF - PIECE = BOARD(Y, X) - CALL MAKEMOVE(A, B, X, Y) - PRINT "MY MOVE: "; CHR$(65 + A); 8 - B; "-"; CHR$(65 + X); 8 - Y - IF PIECE <> 0 THEN - PRINT "I TOOK YOUR "; - IF PIECE = 100 THEN PRINT "PAWN" - IF PIECE = 270 THEN PRINT "KNIGHT" - IF PIECE = 300 THEN PRINT "BISHOP" - IF PIECE = 500 THEN PRINT "ROOK" - IF PIECE = 900 THEN PRINT "QUEEN" - IF PIECE = 5000 THEN PRINT "KING" - END IF - NULL = INCHECK(0) - END IF - DO - CALL SHOWBD - VIEW PRINT 24 TO 24 - INPUT "YOUR MOVE: ", IN$ - IF UCASE$(IN$) = "QUIT" THEN CLS : END - IF UCASE$(IN$) = "O-O" OR IN$ = "0-0" THEN - IF WCKSFLAG <> 0 THEN GOTO 16 - IF BOARD(7, 7) <> 500 THEN GOTO 16 - IF BOARD(7, 6) <> 0 OR BOARD(7, 5) <> 0 THEN GOTO 16 - BOARD(7, 6) = 5000 - BOARD(7, 4) = 0 - BOARD(7, 5) = 500 - BOARD(7, 7) = 0 - WCKSFLAG = -1 - EXIT SUB - END IF - IF UCASE$(IN$) = "O-O-O" OR IN$ = "0-0-0" THEN - IF WCQSFLAG <> 0 THEN GOTO 16 - IF BOARD(7, 0) <> 500 THEN GOTO 16 - IF BOARD(7, 1) <> 0 OR BOARD(7, 2) <> 0 OR BOARD(7, 3) <> 0 THEN GOTO 16 - BOARD(7, 2) = 5000 - BOARD(7, 4) = 0 - BOARD(7, 3) = 500 - BOARD(7, 0) = 0 - WCQSFLAG = -1 - EXIT SUB - END IF - IF LEN(IN$) < 5 THEN GOTO 16 - B = 8 - (ASC(MID$(IN$, 2, 1)) - 48) - A = ASC(UCASE$(MID$(IN$, 1, 1))) - 65 - X = ASC(UCASE$(MID$(IN$, 4, 1))) - 65 - Y = 8 - (ASC(MID$(IN$, 5, 1)) - 48) - IF B > 7 OR B < 0 OR A > 7 OR A < 0 OR X > 7 OR X < 0 OR Y > 7 OR Y < 0 THEN GOTO 16 - IF BOARD(B, A) <= 0 THEN GOTO 16 - IF Y = 2 AND B = 3 AND (X = A - 1 OR X = A + 1) THEN - IF BOARD(B, A) = 100 AND BOARD(Y, X) = 0 AND BOARD(Y + 1, X) = -100 THEN - IF BESTB(1) = 1 AND BESTA(1) = X THEN - MOVER = BOARD(B, A) - TARGET = BOARD(Y, X) - CALL MAKEMOVE(A, B, X, Y) - BOARD(Y + 1, X) = 0 - ENPASSANT = -1 - GOTO 15 - END IF - END IF - END IF - CALL MOVELIST(A, B, XX(), YY(), NDX) - FOR K = 0 TO NDX STEP 1 - IF X = XX(K) AND Y = YY(K) THEN - MOVER = BOARD(B, A) - TARGET = BOARD(Y, X) - INTFLAG = -1 - CALL MAKEMOVE(A, B, X, Y) - IF MOVER = 5000 THEN - WCQSOLD = WCQSFLAG - WCKSOLD = WCKSFLAG - WCKSFLAG = -1 - WCQSFLAG = -1 - END IF - IF (A = 0) AND (B = 7) AND (MOVER = 500) THEN - WCQSOLD = WCQSFLAG - WCQSFLAG = -1 - END IF - IF (A = 7) AND (B = 7) AND (MOVER = 500) THEN - WCKSOLD = WCKSFLAG - WCKSFLAG = -1 - END IF - INTFLAG = 0 -15 IF INCHECK(0) = 0 THEN EXIT SUB - BOARD(B, A) = MOVER - BOARD(Y, X) = TARGET - IF ENPASSANT THEN BOARD(Y + 1, X) = -100: ENPASSANT = 0 - IF (A = 0) AND (B = 7) AND (MOVER = 500) THEN WCQSFLAG = WCQSOLD - IF (A = 7) AND (B = 7) AND (MOVER = 500) THEN WCKSFLAG = WCKSOLD - IF MOVER = 5000 THEN WCQSFLAG = WCQSOLD - GOTO 16 - END IF - NEXT -16 CLS - LOOP -END SUB - -SUB KING (A, B, XX(), YY(), NDX) - ID = SGN(BOARD(B, A)) - FOR DY = -1 TO 1 - IF B + DY < 0 OR B + DY > 7 THEN GOTO 12 - FOR DX = -1 TO 1 - IF A + DX < 0 OR A + DX > 7 THEN GOTO 11 - IF ID <> SGN(BOARD(B + DY, A + DX)) THEN - NDX = NDX + 1 - XX(NDX) = A + DX - YY(NDX) = B + DY - END IF -11 NEXT -12 NEXT -END SUB - -SUB KNIGHT (A, B, XX(), YY(), NDX) - ID = SGN(BOARD(B, A)) - X = A - 1 - Y = B - 2 - GOSUB 5 - X = A - 2 - Y = B - 1 - GOSUB 5 - X = A + 1 - Y = B - 2 - GOSUB 5 - X = A + 2 - Y = B - 1 - GOSUB 5 - X = A - 1 - Y = B + 2 - GOSUB 5 - X = A - 2 - Y = B + 1 - GOSUB 5 - X = A + 1 - Y = B + 2 - GOSUB 5 - X = A + 2 - Y = B + 1 - GOSUB 5 - EXIT SUB -5 REM - IF X < 0 OR X > 7 OR Y < 0 OR Y > 7 THEN RETURN - IF ID <> SGN(BOARD(Y, X)) THEN NDX = NDX + 1: XX(NDX) = X: YY(NDX) = Y - RETURN -END SUB - -SUB MAKEMOVE (A, B, X, Y) - BOARD(Y, X) = BOARD(B, A) - BOARD(B, A) = 0 - IF Y = 0 AND BOARD(Y, X) = 100 THEN - IF INTFLAG THEN - DO - VIEW PRINT 24 TO 24 - INPUT "PROMOTE TO: ", I$ - SELECT CASE UCASE$(I$) - CASE "KNIGHT", "N", "Kt", "Kt.", "N." - PROMOTE = 270 - CASE "BISHOP", "B", "B." - PROMOTE = 300 - CASE "ROOK", "R", "R." - PROMOTE = 500 - CASE "QUEEN", "Q", "Q." - PROMOTE = 900 - END SELECT - LOOP UNTIL PROMOTE <> 0 - BOARD(Y, X) = PROMOTE - ELSE - BOARD(Y, X) = -900 - END IF - END IF - IF Y = 7 AND BOARD(Y, X) = -100 THEN BOARD(Y, X) = -900 -END SUB - -SUB MOVELIST (A, B, XX(), YY(), NDX) - PIECE = INT(ABS(BOARD(B, A))) - NDX = -1 - IF PIECE = 100 THEN - CALL PAWN(A, B, XX(), YY(), NDX) - ELSEIF PIECE = 270 THEN CALL KNIGHT(A, B, XX(), YY(), NDX) - ELSEIF PIECE = 300 THEN CALL BISHOP(A, B, XX(), YY(), NDX) - ELSEIF PIECE = 500 THEN CALL ROOK(A, B, XX(), YY(), NDX) - ELSEIF PIECE = 900 THEN CALL QUEEN(A, B, XX(), YY(), NDX) - ELSE CALL KING(A, B, XX(), YY(), NDX) - END IF - -END SUB - -SUB PAWN (A, B, XX(), YY(), NDX) - ID = SGN(BOARD(B, A)) - IF (A - 1) >= 0 AND (A - 1) <= 7 AND (B - ID) >= 0 AND (B - ID) <= 7 THEN - IF SGN(BOARD((B - ID), (A - 1))) = -ID THEN - NDX = NDX + 1 - XX(NDX) = A - 1 - YY(NDX) = B - ID - END IF - END IF - IF (A + 1) >= 0 AND (A + 1) <= 7 AND (B - ID) >= 0 AND (B - ID) <= 7 THEN - IF SGN(BOARD((B - ID), (A + 1))) = -ID THEN - NDX = NDX + 1 - XX(NDX) = A + 1 - YY(NDX) = B - ID - END IF - END IF - IF A >= 0 AND A <= 7 AND (B - ID) >= 0 AND (B - ID) <= 7 THEN - IF BOARD((B - ID), A) = 0 THEN - NDX = NDX + 1 - XX(NDX) = A - YY(NDX) = B - ID - IF (ID < 0 AND B = 1) OR (ID > 0 AND B = 6) THEN - IF BOARD((B - ID - ID), A) = 0 THEN - NDX = NDX + 1 - XX(NDX) = A - YY(NDX) = B - ID - ID - END IF - END IF - END IF - END IF - -END SUB - -SUB QUEEN (A, B, XX(), YY(), NDX) - CALL BISHOP(A, B, XX(), YY(), NDX) - CALL ROOK(A, B, XX(), YY(), NDX) -END SUB - -SUB ROOK (A, B, XX(), YY(), NDX) - ID = SGN(BOARD(B, A)) - FOR X = A - 1 TO 0 STEP -1 - IF ID <> SGN(BOARD(B, X)) THEN - NDX = NDX + 1 - XX(NDX) = X - YY(NDX) = B - END IF - IF (BOARD(B, X)) <> 0 THEN EXIT FOR - NEXT - FOR X = A + 1 TO 7 STEP 1 - IF ID <> SGN(BOARD(B, X)) THEN - NDX = NDX + 1 - XX(NDX) = X - YY(NDX) = B - END IF - IF (BOARD(B, X)) <> 0 THEN EXIT FOR - NEXT - FOR Y = B - 1 TO 0 STEP -1 - IF ID <> SGN(BOARD(Y, A)) THEN - NDX = NDX + 1 - XX(NDX) = A - YY(NDX) = Y - END IF - IF (BOARD(Y, A)) <> 0 THEN EXIT FOR - NEXT - FOR Y = B + 1 TO 7 STEP 1 - IF ID <> SGN(BOARD(Y, A)) THEN - NDX = NDX + 1 - XX(NDX) = A - YY(NDX) = Y - END IF - IF (BOARD(Y, A)) <> 0 THEN EXIT FOR - NEXT -END SUB - -SUB SHOWBD - VIEW PRINT - LOCATE 3, 30 - COLOR 7, 0 - PRINT "A B C D E F G H" - FOR K = 0 TO 25 - LOCATE 4, 28 + K - COLOR 6, 0 - PRINT CHR$(220) - NEXT - FOR B = 0 TO 7 - LOCATE 2 * B + 5, 26 - COLOR 7, 0 - PRINT CHR$(56 - B) - LOCATE 2 * B + 5, 28 - COLOR 6, 0 - PRINT CHR$(219) - LOCATE 2 * B + 6, 28 - COLOR 6, 0 - PRINT CHR$(219) - FOR A = 0 TO 7 - IF ((A + B) MOD 2) <> 0 THEN - COLOUR = 2 - ELSE COLOUR = 15 - END IF - CALL SQUARE(3 * A + 31, 2 * B + 5, COLOUR) - NEXT - LOCATE 2 * B + 5, 53 - COLOR 6, 0 - PRINT CHR$(219) - LOCATE 2 * B + 6, 53 - COLOR 6, 0 - PRINT CHR$(219) - LOCATE 2 * B + 6, 55 - COLOR 7, 0 - PRINT CHR$(56 - B) - NEXT - FOR K = 0 TO 25 - LOCATE 21, 28 + K - COLOR 6, 0 - PRINT CHR$(223) - NEXT - LOCATE 22, 30 - COLOR 7, 0 - PRINT "A B C D E F G H" - FOR B = 0 TO 7 - FOR A = 0 TO 7 - CALL SHOWMAN(A, B, 0) - NEXT - NEXT - COLOR 7, 0 -END SUB - -SUB SHOWMAN (A, B, FLAG) - IF BOARD(B, A) < 0 THEN BACK = 0 - IF BOARD(B, A) > 0 THEN BACK = 7 - FORE = 7 - BACK + FLAG - IF BOARD(B, A) = 0 THEN - IF ((A + B) MOD 2) <> 0 THEN BACK = 2 ELSE BACK = 15 - FORE = BACK + -1 * (FLAG > 0) - END IF - N$ = " " - PIECE = INT(ABS(BOARD(B, A))) - IF PIECE = 0 THEN N$ = CHR$(219) - IF PIECE = 100 THEN N$ = "P" - IF PIECE = 270 THEN N$ = "N" - IF PIECE = 300 THEN N$ = "B" - IF PIECE = 500 THEN N$ = "R" - IF PIECE = 900 THEN N$ = "Q" - IF PIECE = 5000 OR PIECE = 7500 THEN N$ = "K" - LOCATE 2 * B + 5 - (BOARD(B, A) > 0), 3 * A + 30 - COLOR FORE, BACK - PRINT N$ - LOCATE 1, 1 - COLOR 7, 0 -END SUB - -SUB SQUARE (A, B, C) - MT$ = CHR$(219) - MT$ = MT$ + MT$ + MT$ - LOCATE B, A - 2 - COLOR C, C - PRINT MT$ - LOCATE B + 1, A - 2 - COLOR C, C - PRINT MT$ - COLOR 7, 0 -END SUB \ No newline at end of file diff --git a/programs/samples/misc/cuberot.bas b/programs/samples/misc/cuberot.bas deleted file mode 100644 index ffe78f57a..000000000 --- a/programs/samples/misc/cuberot.bas +++ /dev/null @@ -1,16 +0,0 @@ -' cube rotator in 11 lines. From a 19 liner by Entropy, shrinked by Antoni Gual -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ -1 IF x1 = 0 THEN SCREEN 13 ELSE r = (r + .01745) + 6.283185 * (r >= 6.283185) -2 FOR x = -30 TO 30 STEP 10 -3 FOR y = -30 TO 30 STEP 10 -4 FOR z = -30 TO 30 STEP 10 -5 x1 = ((x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * COS(r) + (y * COS(r) + z * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100) -6 y1 = ((y * COS(r) + z * SIN(r)) * COS(r) - (x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100) -7 PSET ((100 * x1 + 160), (100 * y1 + 100)), 31 -'7 PSET ((100 * (((x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * COS(r) + (y * COS(r) + z * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)) + 160), (100 * (((y * COS(r) + z * SIN(r)) * COS(r) - (x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)) + 100)), 31 -8 NEXT z, y, x -9 WAIT &H3DA, 8 -10 LINE (99, 39)-(221, 161), 0, BF -11 IF LEN(INKEY$) = 0 THEN GOTO 1 - diff --git a/programs/samples/misc/djsok.bas b/programs/samples/misc/djsok.bas deleted file mode 100644 index 955f21e96..000000000 --- a/programs/samples/misc/djsok.bas +++ /dev/null @@ -1,914 +0,0 @@ -CHDIR ".\programs\samples\misc" - -'/=================================================================\ -' (C) David Joffe 1997 e-mail: djoffe@icon.co.za -' DJ Software; April '97 http://www.scorpioncity.com/ -'------------------------------------------------------------------- -' VGA Sokoban v1.0, for QBasic! -'------------------------------------------------------------------- -' -[ The object of the game: ]---------------------------------- -' You are a Pacman derivative; you must push all the crate-type -' blocks onto the destination-type blocks. There are 90 levels, -' which I got from XSokoban, a sokoban for the X Window System. -' -------------------------------------------------------------- -' -' You can do whatever you want with this program, on the single -' preferred condition that if you create any derivative works, -' I would like to be credited, at minimum with a link to my -' website. -' -' Please send me bug-reports and any other feedback; i.e. tell -' me you like it or hate it or have no opinion about it, but just -' tell me something! -' -' New levels: I would love it if you create new levels (or even -' new sprites) if you would send them to me; they will probably -' be included in later versions, in which case you will get credit. -' -' The savegame file format is a really tough one to crack, but -' see if you can give it a go ;-) -'\=================================================================/ - -' Draw a rectangle with highlights. -DECLARE SUB DrawBox (x1%, y1%, x2%, y2%, col1%, col2%, bgfill%) - -' Default data type to integer for fastest processing -DEFINT A-Z - -' To hold sprites -DIM Graphics(1 TO 2000) - -' The following piece of code first tries for VGA; if that fails, -' it tries EGA. If that fails, it leaves. -ON ERROR GOTO TryEGA -SCREEN 13 -GOTO GraphicsSuccess - -TryEGA: -ON ERROR GOTO NoGraphics -SCREEN 7 -GOTO GraphicsSuccess - -NoGraphics: -COLOR 15, 0: CLS -PRINT "You don't seem to have graphics capable hardware." -PRINT "There is a text version available though." -PRINT -GOTO ContactMessage - -GraphicsSuccess: -ON ERROR GOTO 0 - -' Draw the graphics and GET it -RESTORE GraphicsData -FOR i = 0 TO 23 - FOR j = 0 TO 10 - FOR k = 0 TO 10 - READ n - PSET (k, j), n - NEXT k - NEXT j - GET (0, 0)-(10, 10), Graphics(i * 80 + 1) -NEXT i - -' Constants -DIM SHARED NUMLEVELS -NUMLEVELS = 90 - -DIM SHARED LEVELFILENAME AS STRING -LEVELFILENAME$ = "djsok.dat" -DIM SHARED OFSX -OFSX = 6 -DIM SHARED OFSY -OFSY = 6 - -' Dimensions of playing area -DIM SHARED MAXX -MAXX = 20 -DIM SHARED MAXY -MAXY = 17 -' Set this to 1 to enable cheats; then pressing "$" advances a level -DIM SHARED CHEATSENABLED -CHEATSENABLED = 0 - -' Search string: position of a character in string is used as the -' index for Colour array dereferencing and for how to handle that -' type of character in the game -GameData$ = "ÛÐÆÈÒºÉ̵¼ÍÊ»¹ËÎð è²" - -' Offsets into GameData$ of certain important character types -DIM SHARED POSCRATE -POSCRATE = 19 -DIM SHARED POSSPACE -POSSPACE = 18 -DIM SHARED POSCRATEATDEST -POSCRATEATDEST = 20 -DIM SHARED POSDEST -POSDEST = 17 -DIM SHARED POSHERO -POSHERO = 21 - -' Certain important character types -CharCrate$ = MID$(GameData$, POSCRATE, 1) -CharCrateAtDest$ = MID$(GameData$, POSCRATEATDEST, 1) -CharDest$ = MID$(GameData$, POSDEST, 1) - -' Data structures -DIM TempMap(0 TO MAXY + 1) AS STRING * 22 -DIM Map(0 TO MAXY + 1) AS STRING * 22 - -' Initialize screen -COLOR 15: CLS - -' Level should be set to 0 here to make entry point level 1 -Level = 0 -Won = 1 - -'===========================================================[ BEGIN MAIN ]== -MainLoop: -' Get keypress -a$ = INKEY$ - -' Reset level or advance level -IF Won = 1 OR UCASE$(a$) = "R" THEN - IF (UCASE$(a$) <> "R") AND (Level >= 1) THEN - COLOR 15 - LOCATE 19, 2: PRINT "Press a key ..."; - WHILE INKEY$ = "": WEND - END IF - IF (UCASE$(a$) <> "R") THEN Level = Level + 1 - IF (Level > NUMLEVELS) THEN GOTO FinishedGame - GOSUB LoadLevel - GOSUB Drawlevel - GOTO MovePlayer -END IF - -' Player pressed nothing -IF a$ = "" THEN GOTO MainLoop - -' Player pressed escape -IF a$ = CHR$(27) THEN GOTO EndGame - -' Save game -IF UCASE$(a$) = "S" THEN GOSUB SaveGame - -' Cheat to advance to next level -IF a$ = "$" AND CHEATSENABLED = 1 THEN Won = 1: GOTO MainLoop - -' Load game -IF UCASE$(a$) = "L" THEN GOSUB LoadGame - -' About -IF UCASE$(a$) = "A" THEN GOSUB About - -' Up, down, left and right respectively -IF a$ = CHR$(0) + "H" THEN xd = 0: yd = -1: GOTO MovePlayer -IF a$ = CHR$(0) + "P" THEN xd = 0: yd = 1: GOTO MovePlayer -IF a$ = CHR$(0) + "K" THEN xd = -1: yd = 0: GOTO MovePlayer -IF a$ = CHR$(0) + "M" THEN xd = 1: yd = 0: GOTO MovePlayer -GOTO MainLoop -'=============================================================[ END MAIN ]== - -MovePlayer: -' read character directly in front of player -character$ = MID$(Map$(y + yd), x + xd + 1, 1) -n = INSTR(GameData$, character$) - -' If it's a wall, then leave -graphicsOffset = 0 -IF n <= 16 THEN graphicsOffset = -1: GOTO DrawHero - -' If there is a crate in front of us, find the character two positions -' away in front of us -IF ((character$ = CharCrate$) OR (character$ = CharCrateAtDest$)) THEN - character2$ = MID$(Map$(y + yd + yd), x + xd + xd + 1, 1) - n2 = INSTR(GameData$, character2$) - ' If the character 2 away from us is a wall or a crate, leave - IF n2 <= 16 OR character2$ = CharCrate$ OR character2$ = CharCrateAtDest$ THEN GOTO MainLoop - - ' Else we can move the crate in front of us - LOCATE y + yd + yd + 1, x + xd + xd + 1 - ' If we're moving a crate onto a destination-type block - IF (character2$ = CharDest$) THEN - MID$(Map$(y + yd + yd), x + xd + xd + 1, 1) = CharCrateAtDest$ - PUT ((x + xd + xd - 1) * 11 + OFSX, (y + yd + yd - 1) * 11 + OFSY), Graphics((POSCRATEATDEST - 1) * 80 + 1), PSET - NumPushes = NumPushes + 1: GOSUB ShowNumPushes - ' If we're moving it from a destination-type block onto another dest-type - IF character$ = CharCrateAtDest$ THEN - MID$(Map$(y + yd), x + xd + 1, 1) = CharDest$ - ELSE ' we're moving it onto a dest-type from a space - MID$(Map$(y + yd), x + xd + 1, 1) = " " - NumPlaced = NumPlaced + 1 - END IF - IF (NumPlaced = NumCrates) THEN Won = 1 - ELSE ' We're moving the crate onto a blank space - MID$(Map$(y + yd + yd), x + xd + xd + 1, 1) = CharCrate$ - PUT ((x + xd + xd - 1) * 11 + OFSX, (y + yd + yd - 1) * 11 + OFSY), Graphics((POSCRATE - 1) * 80 + 1), PSET - NumPushes = NumPushes + 1: GOSUB ShowNumPushes - ' If we're moving a crate off of a destination block - IF character$ = CharCrateAtDest$ THEN - MID$(Map$(y + yd), x + xd + 1, 1) = CharDest$ - NumPlaced = NumPlaced - 1 - ELSE ' we're moving a crate off of a space - MID$(Map$(y + yd), x + xd + 1, 1) = " " - END IF - END IF -END IF - -DrawHero: -' Erase our hero -PUT ((x - 1) * 11 + OFSX, (y - 1) * 11 + OFSY), Graphics(((INSTR(GameData$, MID$(Map$(y), x + 1, 1))) - 1) * 80 + 1), PSET -' Update hero's location -IF (graphicsOffset <> -1) THEN - x = x + xd - y = y + yd -END IF -' Update NumMoves counter -IF NOT (xd = 0 AND yd = 0) THEN NumMoves = NumMoves + 1: GOSUB ShowNumMoves -' Re-draw our hero -graphicsOffset = 0 -IF (xd = 0 AND yd = 1) THEN graphicsOffset = 1 -IF (xd = -1 AND yd = 0) THEN graphicsOffset = 2 -IF (xd = 0 AND yd = -1) THEN graphicsOffset = 3 -PUT ((x - 1) * 11 + OFSX, (y - 1) * 11 + OFSY), Graphics((POSHERO + graphicsOffset - 1) * 80 + 1), PSET -GOTO MainLoop - -SaveGame: -GOSUB InputFileName -IF filename$ <> "" THEN - filename$ = filename$ + ".sok" - OPEN filename$ FOR OUTPUT AS #1 - PRINT #1, Level - CLOSE - LOCATE 19, 1: PRINT "File "; filename$; " saved ..."; - SLEEP 1 - GOSUB Drawlevel -END IF -GOSUB Drawlevel -RETURN - -LoadGame: -GOSUB InputFileName -IF filename$ <> "" THEN - filename$ = filename$ + ".sok" - Level = 0 - ' The following error handler is used to determine if a given file - ' exists. - ON ERROR GOTO NoFile - OPEN filename$ FOR INPUT AS #1 - ' If file exists: - IF filename$ <> "" THEN - INPUT #1, Level - CLOSE - GOSUB LoadLevel - END IF -END IF -' Disable the error handler -ON ERROR GOTO 0 -GOSUB Drawlevel -RETURN - -NoFile: -LOCATE 19, 1: PRINT "File not found! Press a key ..."; -' Set filename$ to "" so that we know the file doesn't exist -filename$ = "" -' Clear keyboard buffer and wait for keypress -WHILE INKEY$ <> "": WEND -WHILE INKEY$ = "": WEND -' Go back to the line after the error occured -RESUME NEXT - -' Routine to allow user to enter a string of length at most 8 for -' getting filenames -InputFileName: -COLOR 15 -xval = 17 -filename$ = "" -LOCATE 19, 1: PRINT "Enter filename: _"; -EnternameLoop: -s$ = INKEY$ -IF s$ = "" THEN GOTO EnternameLoop -' Escape -IF s$ = CHR$(27) THEN filename$ = "": GOTO sReturn -' Enter -IF s$ = CHR$(13) THEN GOTO sReturn -' Backspace -IF filename$ <> "" AND s$ = CHR$(8) THEN - filename$ = LEFT$(filename$, LEN(filename$) - 1) - LOCATE 19, xval: PRINT filename$ + "_ "; -END IF -IF s$ < "0" THEN GOTO EnternameLoop -IF s$ > "9" THEN - IF s$ < "A" THEN GOTO EnternameLoop - IF s$ > "Z" THEN - IF s$ < "a" OR s$ > "z" THEN GOTO EnternameLoop - END IF -END IF -IF LEN(filename$) = 8 THEN GOTO EnternameLoop -filename$ = filename$ + s$ -LOCATE 19, xval: PRINT filename$ + "_ "; -GOTO EnternameLoop -sReturn: -RETURN - -' Loads levels from the file as it needs them because all the levels -' in memory at once might place a bit of strain on QBasic :-) -LoadLevel: -x = 0 -y = 0 -xd = 0 -yd = 0 -NumCrates = 0 -NumDestinations = 0 -NumPlaced = 0 -NumMoves = 0 -NumPushes = 0 -Won = 0 - -' Blank out the strings -FOR i = 0 TO MAXY + 1 - TempMap$(i) = STRING$(MAXX + 2, " ") - Map$(i) = STRING$(MAXX + 2, " ") -NEXT i - -OPEN LEVELFILENAME FOR INPUT AS #1 -LINE INPUT #1, f$ -LevelString$ = RTRIM$(LTRIM$(STR$(Level))) -' Read until we find the string corresponding to the current Level number -WHILE (f$ <> LevelString$) AND NOT EOF(1) - LINE INPUT #1, f$ -WEND -' If we didn't find it, something went wrong -IF f$ <> LevelString$ THEN CLOSE: GOTO lReturn - -' Read in the level -LINE INPUT #1, f$ -count = 1 -WHILE f$ <> "~" - TempMap$(count) = " " + f$ - LINE INPUT #1, f$ - count = count + 1 -WEND -CLOSE - -' Centre the level vertically -' Adding 0.5 and doing an integer divide effectively rounds upwards -extra = ((MAXY - count) + .5) \ 2 -FOR i = count TO 1 STEP -1 - TempMap$(i + extra) = TempMap$(i) -NEXT i -FOR i = 1 TO extra - TempMap$(i) = STRING$(MAXX + 2, " ") -NEXT i -FOR i = count + extra TO MAXY - TempMap$(i) = STRING$(MAXX + 2, " ") -NEXT i - -' Black out the area outside of the playing arena -FOR i = 1 TO MAXX + 2 - c = 0 - ch$ = MID$(TempMap$(c), i, 1) - WHILE ((ch$ = " ") OR (ch$ = "%")) AND (c <= MAXY) - MID$(TempMap$(c), i, 1) = "%" - c = c + 1 - ch$ = MID$(TempMap$(c), i, 1) - WEND - c = MAXY + 1 - ch$ = MID$(TempMap$(c), i, 1) - WHILE ((ch$ = " ") OR (ch$ = "%")) AND (c >= 1) - MID$(TempMap$(c), i, 1) = "%" - c = c - 1 - ch$ = MID$(TempMap$(c), i, 1) - WEND -NEXT i -FOR i = 0 TO MAXY + 1 - c = 1 - ch$ = MID$(TempMap$(i), c, 1) - WHILE ((ch$ = " ") OR (ch$ = "%")) AND (c <= MAXX + 1) - MID$(TempMap$(i), c, 1) = "%" - c = c + 1 - ch$ = MID$(TempMap$(i), c, 1) - WEND - c = MAXX + 2 - ch$ = MID$(TempMap$(i), c, 1) - WHILE ((ch$ = " ") OR (ch$ = "%")) AND (c >= 2) - MID$(TempMap$(i), c, 1) = "%" - c = c - 1 - ch$ = MID$(TempMap$(i), c, 1) - WEND -NEXT i - -' Interpret the raw data and convert to our own format -FOR i = 1 TO MAXY - Map$(i) = TempMap$(i) - FOR j = 2 TO MAXX + 1 - IF (MID$(Map$(i), j, 1) = "@") THEN - MID$(Map$(i), j, 1) = " " - x = j - 1 - y = i - END IF - IF (MID$(Map$(i), j, 1) = "$") THEN - MID$(Map$(i), j, 1) = CharCrate$ - NumCrates = NumCrates + 1 - END IF - IF (MID$(Map$(i), j, 1) = "*") THEN - MID$(Map$(i), j, 1) = CharCrateAtDest$ - NumCrates = NumCrates + 1 - NumDestinations = NumDestinations + 1 - NumPlaced = NumPlaced + 1 - END IF - IF (MID$(Map$(i), j, 1) = ".") THEN - MID$(Map$(i), j, 1) = CharDest$ - NumDestinations = NumDestinations + 1 - END IF - - ' This is used when the walls look different depending on what walls - ' are adjacent to them, e.g. ³,Å,¿, etc. - ' A binary code is used XXXX where each of the four digits corresponds - ' to above, right-of, below, and left-of. This will generate a number - ' from 0 to 15 that is used as the offset into GameData$ to determine - ' the character used. - IF (MID$(Map$(i), j, 1) = "#") THEN - code = 0 - IF (MID$(TempMap$(i - 1), j, 1) = "#") THEN code = code + 1 - IF (MID$(TempMap$(i), j + 1, 1) = "#") THEN code = code + 2 - IF (MID$(TempMap$(i + 1), j, 1) = "#") THEN code = code + 4 - IF (MID$(TempMap$(i), j - 1, 1) = "#") THEN code = code + 8 - MID$(Map$(i), j, 1) = MID$(GameData$, code + 1, 1) - END IF - NEXT j -NEXT i - -' If the level is impossible, generate an error message. -IF NumCrates < NumDestinations THEN - SCREEN 0: WIDTH 80, 25 - COLOR 15, 0: CLS - PRINT "Error: Level"; Level; "impossible!" - PRINT "Did you fiddle with the level file?" - PRINT "Is the level file there?" - PRINT "If this wasn't your fault please contact me." - PRINT - GOTO ContactMessage -END IF -lReturn: -RETURN - -Drawlevel: -'COLOR 10, 0: CLS -LINE (0, 0)-(319, 199), 7, BF - -DrawBox 0, 0, 319, 199, 15, 8, -1 ' Entire screen -DrawBox 5, 5, 226, 193, 0, 15, 0 ' Game play arena -DrawBox 232, 5, 316, 193, 15, 8, -1 ' Info area -DrawBox 240, 13, 308, 26, 4, 12, 0 ' Title -DrawBox 234, 35, 314, 58, 8, 15, 0 ' Level number -DrawBox 234, 67, 314, 106, 8, 15, 0 ' Moves/pushes -DrawBox 234, 115, 314, 188, 8, 15, 0 ' Keys -LINE (238, 164)-(310, 164), 13 - -COLOR 12 -LOCATE 3, 32: PRINT "Sokoban"; - -COLOR 11 -LOCATE 6, 32: PRINT "Level:"; -COLOR 9 -LOCATE 10, 32: PRINT "Moves:"; -COLOR 10 -LOCATE 12, 32: PRINT "Pushes:"; -GOSUB ShowNumMoves -GOSUB ShowNumPushes -GOSUB ShowLevel - -COLOR 14 -LOCATE 16, 31: PRINT "R :Reset"; -LOCATE 17, 31: PRINT "L :Load"; -LOCATE 18, 31: PRINT "S :Save"; -LOCATE 19, 31: PRINT "A :About"; -LOCATE 20, 31: PRINT "Esc:Quit"; - -LOCATE 22, 31 -COLOR 12: PRINT "D"; -COLOR 14: PRINT "J"; -LOCATE 23, 31 -COLOR 10: PRINT "S"; -COLOR 11: PRINT "o"; -COLOR 9: PRINT "f"; -COLOR 13: PRINT "t"; -COLOR 12: PRINT "w"; -COLOR 14: PRINT "a"; -COLOR 10: PRINT "r"; -COLOR 11: PRINT "e"; -COLOR 15 - -' Draw the playing arena -FOR i = 1 TO MAXY - FOR j = 2 TO MAXX + 1 - ' Ignore "%" signs - they indicate pure black background - IF MID$(Map$(i), j, 1) <> "%" THEN - PUT ((j - 2) * 11 + OFSX, (i - 1) * 11 + OFSY), Graphics((INSTR(GameData$, MID$(Map$(i), j, 1)) - 1) * 80 + 1), PSET - END IF - NEXT j -NEXT i -' Draw the hero, taking into account the direction he's facing -graphicsOffset = 0 -IF (xd = 0 AND yd = 1) THEN graphicsOffset = 1 -IF (xd = -1 AND yd = 0) THEN graphicsOffset = 2 -IF (xd = 0 AND yd = -1) THEN graphicsOffset = 3 -PUT ((x - 1) * 11 + OFSX, (y - 1) * 11 + OFSY), Graphics((POSHERO + graphicsOffset - 1) * 80 + 1), PSET -RETURN - -ShowLevel: -COLOR 11 -LOCATE 7, 32: PRINT Level; -RETURN - -ShowNumMoves: -COLOR 9 -LOCATE 11, 32: PRINT NumMoves; -RETURN - -ShowNumPushes: -COLOR 10 -LOCATE 13, 32: PRINT NumPushes; -RETURN - -About: -COLOR 15 -LOCATE 1, 1 -LOCATE 5, 3: PRINT "ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ" -LOCATE , 3: PRINT "Ý Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý þ VGA Sokoban v1.0 þ Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý DJ Software 1997 Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý (C) David Joffe Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý Whipped up in a few hours Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý for the Net Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý http://www.scorpioncity.com/ Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "Ý Þ";: COLOR 8: PRINT "Û": COLOR 15 -LOCATE , 3: PRINT "ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ";: COLOR 8: PRINT "Û": COLOR 15 -COLOR 8 -LOCATE , 4: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"; -WHILE INKEY$ = "": WEND - -' Restore the contents of the screen -GOSUB Drawlevel -RETURN - -EndGame: -SCREEN 0: WIDTH 80, 25 -COLOR 15, 0: CLS -PRINT "*Sniff* .. I hate goodbyes .. *sob* ..." -PRINT -PRINT "Feedback (and bug reports :) welcome!" -PRINT -GOTO ContactMessage - -FinishedGame: -WIDTH 80, 25 -COLOR 15, 0: CLS -PRINT "You finished the game. Yay!" -PRINT "I suppose you were expecting something more spectacular then? You must be" -PRINT "quite disappointed! :-)" -PRINT -PRINT "Actually, I would love to know if anyone actually *did* get this far (with-" -PRINT "out cheating, of course), so let me know!" -PRINT -GOTO ContactMessage - -ContactMessage: -PRINT "Try e-mail me (David Joffe) at ";: COLOR 14: PRINT "djoffe@icon.co.za";: COLOR 15: PRINT "; if that's become out-" -PRINT "dated, have a look at:" -COLOR 14 -PRINT "http://www.scorpioncity.com/" -COLOR 15 -PRINT -PRINT "I have other stuff at the above URL, with source code etc, so check it out!" -PRINT -PRINT "Also, if you make any new levels, I'd love to see them! Maybe I'll add them" -PRINT "to the game for for a future re-release/re-write, in which case I'll give" -PRINT "you appropriate credit; I'll give each level a 'Creator' field." -PRINT -PRINT "The 90 default levels in this version I got from XSokoban, a version of" -PRINT "Sokoban for the X Window System." -PRINT -PRINT "Cheers from everyone here (just me :) at "; -COLOR 12: PRINT "-+ D"; -COLOR 14: PRINT "J"; -PRINT " "; -COLOR 10: PRINT "S"; -COLOR 11: PRINT "o"; -COLOR 9: PRINT "f"; -COLOR 13: PRINT "t"; -COLOR 12: PRINT "w"; -COLOR 14: PRINT "a"; -COLOR 10: PRINT "r"; -COLOR 11: PRINT "e +-" -COLOR 15 - -PRINT -PRINT " - David Joffe" -END - -GraphicsData: -'0 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,00,00,00,00,00,00,00,00,00,00 -'1 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,00,00,00,00,00,00,00,00,00,00 -'2 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,00,00,00,00,00,00,00,00,00,00 -'3 -DATA 15,07,07,07,07,07,07,07,07,07,15 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,00,00,00,00,00,00,00,00,00,00 -'4 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'5 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'6 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'7 -DATA 15,07,07,07,07,07,07,07,07,07,15 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'8 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 00,00,00,00,00,00,00,00,00,00,00 -'9 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 00,00,00,00,00,00,00,00,00,00,00 -'10 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 00,00,00,00,00,00,00,00,00,00,00 -'11 -DATA 15,07,07,07,07,07,07,07,07,07,15 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 00,00,00,00,00,00,00,00,00,00,00 -'12 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'13 -DATA 15,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 07,07,07,07,07,07,07,07,07,07,00 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'14 -DATA 15,15,15,15,15,15,15,15,15,15,15 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,00 -'15 -DATA 15,07,07,07,07,07,07,07,07,07,15 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 07,07,07,07,07,07,07,07,07,07,07 -DATA 15,07,07,07,07,07,07,07,07,07,00 -' Destination -DATA 00,00,00,00,00,00,00,00,00,00,08 -DATA 00,08,08,08,08,08,08,08,08,08,07 -DATA 00,08,08,08,08,08,08,08,08,08,07 -DATA 00,08,08,00,08,08,08,00,08,08,07 -DATA 00,08,08,08,00,08,00,08,08,08,07 -DATA 00,08,08,08,08,00,08,08,08,08,07 -DATA 00,08,08,08,00,08,00,08,08,08,07 -DATA 00,08,08,00,08,08,08,00,08,08,07 -DATA 00,08,08,08,08,08,08,08,08,08,07 -DATA 00,08,08,08,08,08,08,08,08,08,07 -DATA 08,07,07,07,07,07,07,07,07,07,07 -' Blank -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -' Crate -DATA 08,08,08,08,08,08,08,08,08,08,08 -DATA 08,15,15,15,15,15,15,15,15,15,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,12,12,12,12,12,12,12,04,08 -DATA 08,15,04,04,04,04,04,04,04,04,08 -DATA 08,08,08,08,08,08,08,08,08,08,08 -'Crate at destination -DATA 0,0,0,0,0,0,0,0,0,0,0 -DATA 0,12,12,12,12,12,12,12,12,12,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,4,4,4,4,4,4,4,0,7 -DATA 0,12,0,0,0,0,0,0,0,0,7 -DATA 7,7,7,7,7,7,7,7,7,7,7 -'Hero -DATA 08,08,08,14,14,14,14,14,08,08,08 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,14,14,14,14,14,00,00,14,14,08 -DATA 14,14,14,14,14,14,00,00,14,14,14 -DATA 14,14,14,14,14,14,14,14,14,14,14 -DATA 14,14,14,14,08,08,08,08,08,08,08 -DATA 14,14,14,14,14,14,08,08,08,08,08 -DATA 14,14,14,14,14,14,14,14,08,08,08 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,14,14,14,14,14,14,14,14,08,08 -DATA 08,08,08,14,14,14,14,14,08,08,08 - -DATA 08,08,08,14,14,14,14,14,08,08,08 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 14,14,14,14,14,14,14,14,14,14,14 -DATA 14,14,14,14,14,08,14,14,14,14,14 -DATA 14,14,14,14,14,08,14,14,14,14,14 -DATA 14,14,00,00,14,08,08,14,14,14,14 -DATA 14,14,00,00,14,08,08,14,14,14,14 -DATA 08,14,14,14,14,08,08,08,14,14,08 -DATA 08,14,14,14,14,08,08,08,14,08,08 -DATA 08,08,08,14,14,08,08,08,08,08,08 - -DATA 08,08,08,14,14,14,14,14,08,08,08 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,14,14,00,00,14,14,14,14,14,08 -DATA 14,14,14,00,00,14,14,14,14,14,14 -DATA 14,14,14,14,14,14,14,14,14,14,14 -DATA 08,08,08,08,08,08,08,14,14,14,14 -DATA 08,08,08,08,08,14,14,14,14,14,14 -DATA 08,08,08,14,14,14,14,14,14,14,14 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,08,14,14,14,14,14,14,14,14,08 -DATA 08,08,08,14,14,14,14,14,08,08,08 - -DATA 08,08,08,08,08,08,14,14,08,08,08 -DATA 08,08,14,08,08,08,14,14,14,14,08 -DATA 08,14,14,08,08,08,14,14,14,14,08 -DATA 14,14,14,14,08,08,14,00,00,14,14 -DATA 14,14,14,14,08,08,14,00,00,14,14 -DATA 14,14,14,14,14,08,14,14,14,14,14 -DATA 14,14,14,14,14,08,14,14,14,14,14 -DATA 14,14,14,14,14,14,14,14,14,14,14 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,14,14,14,14,14,14,14,14,14,08 -DATA 08,08,08,14,14,14,14,14,08,08,08 - -SUB DrawBox (x1, y1, x2, y2, col1, col2, bgfill) -IF (bgfill <> -1) THEN - LINE (x1, y1)-(x2, y2), bgfill, BF -END IF -LINE (x1, y1)-(x2, y1), col1 -LINE (x1, y1)-(x1, y2), col1 -LINE (x2, y1)-(x2, y2), col2 -LINE (x1, y2)-(x2, y2), col2 -END SUB - diff --git a/programs/samples/misc/djsok.dat b/programs/samples/misc/djsok.dat deleted file mode 100644 index f5986fdfd..000000000 --- a/programs/samples/misc/djsok.dat +++ /dev/null @@ -1,1401 +0,0 @@ -1 - ##### - # # - #$ # - ### $## - # $ $ # -### # ## # ###### -# # ## ##### ..# -# $ $ ..# -##### ### #@## ..# - # ######### - ####### -~ -2 -############ -#.. # ### -#.. # $ $ # -#.. #$#### # -#.. @ ## # -#.. # # $ ## -###### ##$ $ # - # $ $ $ $ # - # # # - ############ -~ -3 - ######## - # @# - # $#$ ## - # $ $# - ##$ $ # -######### $ # ### -#.... ## $ $ # -##... $ $ # -#.... ########## -######## -~ -4 - ######## - # ....# -############ ....# -# # $ $ ....# -# $$$#$ $ # ....# -# $ $ # ....# -# $$ #$ $ $######## -# $ # # -## ######### -# # ## -# $ ## -# $$#$$ @# -# # ## -########### -~ -5 - ##### - # ##### - # #$## # - # $ # -######### ### # -#.... ## $ $### -#.... $ $$ ## -#.... ##$ $ @# -######### $ ## - # $ $ # - ### ## # - # # - ###### -~ -6 -###### ### -#.. # ##@## -#.. ### # -#.. $$ # -#.. # # $ # -#..### # $ # -#### $ #$ # - # $# $ # - # $ $ # - # ## # - ######### -~ -7 - ##### - ####### ## -## # @## $$ # -# $ # -# $ ### # -### #####$### -# $ ### ..# -# $ $ $ ...# -# ###...# -# $$ # #...# -# ### ##### -#### -~ -8 - #### - # ########### - # $ $ $ # - # $# $ # $ # - # $ $ # # -### $# # #### # -#@#$ $ $ ## # -# $ #$# # # -# $ $ $ $ # -##### ######### - # # - # # - #......# - #......# - #......# - ######## -~ -9 - ####### - # ...# - ##### ...# - # . .# - # ## ...# - ## ## ...# - ### ######## - # $$$ ## - ##### $ $ ##### -## #$ $ # # -#@ $ $ $ $ # -###### $$ $ ##### - # # - ######## -~ -10 - ### ############# -##@#### # # -# $$ $$ $ $ ...# -# $$$# $ #...# -# $ # $$ $$ #...# -### # $ #...# -# # $ $ $ #...# -# ###### ###...# -## # # $ $ #...# -# ## # $$ $ $##..# -# ..# # $ #.# -# ..# # $$$ $$$ #.# -##### # # #.# - # ######### #.# - # #.# - ############### -~ -11 - #### - #### # # - ### @###$ # - ## $ # - ## $ $$## ## - # #$## # - # # $ $$ # ### - # $ # # $ ##### -#### # $$ # # -#### ## $ # -#. ### ######## -#.. ..# #### -#...#.# -#.....# -####### -~ -12 -################ -# # -# # ###### # -# # $ $ $ $# # -# # $@$ ## ## -# # $ $ $###...# -# # $ $ ##...# -# ###$$$ $ ##...# -# # ## ##...# -##### ## ##...# - ##### ### - # # - ####### -~ -13 - ######### - ## ## ##### -### # # ### -# $ #$ # # ... # -# # $#@$## # #.#. # -# # #$ # . . # -# $ $ # # #.#. # -# ## ##$ $ . . # -# $ # # #$#.#. # -## $ $ $ $... # - #$ ###### ## # - # # ########## - #### -~ -14 - ####### - ####### # - # # $@$ # - #$$ # ######### - # ###......## # - # $......## # # - # ###...... # -## #### ### #$## -# #$ # $ # # -# $ $$$ # $## # -# $ $ ###$$ # # -##### $ # # - ### ### # # - # # # - ######## # - #### -~ -15 - ######## - # # # - # $ # - ### #$ #### - # $ ##$ # - # # @ $ # $# - # # $ #### - ## ####$## # - # $#.....# # # - # $..**. $# ### -## #.....# # -# ### ####### -# $$ # # -# # # -###### # - ##### -~ -16 -##### -# ## -# # #### -# $ #### # -# $$ $ $# -###@ #$ ## - # ## $ $ ## - # $ ## ## .# - # #$##$ #.# - ### $..##.# - # #.*...# - # $$ #.....# - # ######### - # # - #### -~ -17 - ########## - #.. # # - #.. # - #.. # #### - ####### # ## - # # - # # ## # # -#### ## #### ## -# $ ##### # # -# # $ $ # $ # -# @$ $ # ## -#### ## ####### - # # - ###### -~ -18 - ########### - # . # # - # #. @ # - ##### ##..# #### -## # ..### ### -# $ #... $ # $ # -# .. ## ## ## # -####$##$# $ # # # - ## # #$ $$ # # - # $ # # # $## # - # # - # ########### # - #### #### -~ -19 - ###### - # @#### -##### $ # -# ## #### -# $ # ## # -# $ # ##### # -## $ $ # # -## $ $ ### # # -## # $ # # # -## # #$# # # -## ### # # ###### -# $ #### # #....# -# $ $ ..#.# -####$ $# $ ....# -# # ## ....# -################### -~ -20 - ########## -##### #### -# # $ #@ # -# #######$#### ### -# # ## # #$ ..# -# # $ # # #.# -# # $ # #$ ..# -# # ### ## #.# -# ### # # #$ ..# -# # # #### #.# -# #$ $ $ #$ ..# -# $ # $ $ # #.# -#### $### #$ ..# - # $$ ###....# - # ## ###### - ######## -~ -21 -######### -# # -# #### -## #### # # -## #@## # -# $$$ $ $$# -# # ## $ # -# # ## $ #### -#### $$$ $# # - # ## ....# - # # # #.. .# - # # # ##...# - ##### $ #...# - ## ##### - ##### -~ -22 -###### #### -# ####### ##### -# $# # $ # # -# $ $ $ # $ $ # -##$ $ # @# $ # -# $ ########### ## -# # #.......# $# -# ## # ......# # -# # $........$ # -# # $ #.... ..# # -# $ $####$#### $# -# $ ### $ $ ## -# $ $ $ $ # -## ###### $ ##### # -# # # -################### -~ -23 - ####### - # # #### -##### $#$ # ## -#.. # # # # -#.. # $#$ # $#### -#. # #$ # # -#.. $# # $ # -#..@# #$ #$ # # -#.. # $# $# # -#.. # #$$#$ # ## -#.. # $# # $#$ # -#.. # # # # # -##. #### ##### # - #### #### ##### -~ -24 -############### -#.......... .#### -#..........$$.# # -###########$ # ## -# $ $ $ # -## #### # $ # # -# # ## # ## -# $# # ## ### ## -# $ #$### ### ## -### $ # # ### ## -### $ ## # # ## - # $ # $ $ $ # - # $ $#$$$ # # - # # $ ##### - # @## # # # - ############## -~ -25 -#### -# ############## -# # ..#......# -# # # ##### ...# -##$# ........# -# ##$###### #### -# $ # ######@ # -##$ # $ ###### # -# $ #$$$## # -# # #$#$### -# #### #$$$$$ # -# # $ # # -# # ## ### -# ######$###### $ # -# # # # -########## ##### -~ -26 - ####### - # # ##### -## # #...### -# $# #... # -# $ #$$ ... # -# $# #... .# -# # $######## -##$ $ $ # -## # $$ # # - ###### ##$$@# - # ## - ######## -~ -27 - ################# - #... # # ## -##..... $## # #$ # -#......# $ # # -#......# # # # # -######### $ $ $ # - # #$##$ ##$## - ## $ # $ # - # ## ### # ##$ # - # $ $$ $ $ # - # $ $##$ ###### - ####### @ ## - ###### -~ -28 - ##### - ##### # - ## $ $ #### -##### $ $ $ ##.# -# $$ ##..# -# ###### ###.. # -## # # #... # -# $ # #... # -#@ #$ ## ####...# -#### $ $$ ##..# - ## $ $ $...# - # $$ $ # .# - # $ $ #### - ###### # - ##### -~ -29 -##### -# ## -# $ ######### -## # # ###### -## # $#$#@ # # -# # $ # $ # -# ### ######### ## -# ## ..*..... # ## -## ## *.*..*.* # ## -# $########## ##$ # -# $ $ $ $ # -# # # # # # -################### -~ -30 - ########### - # # # -##### # $ $ # -# ##### $## # ## -# $ ## # ## $ # -# $ @$$ # ##$$$ # -## ### # ## # -## # ### #####$# -## # $ #....# -# ### ## $ #....## -# $ $ # #..$. # -# ## $ # ##.... # -##### ######...## - ##### ##### -~ -31 - #### - # ######### - ## ## # # - # $# $@$ #### - #$ $ # $ $# ## -## $## #$ $ # -# # # # $$$ # -# $ $ $## #### -# $ $ #$# # # -## ### ###$ # - # #.... # - ####......#### - #....#### - #...## - #...# - ##### -~ -32 - #### - ##### # - ## $# -## $ ## ### -#@$ $ # $ # -#### ## $# - #....#$ $ # - #....# $# - #.... $$ ## - #... # $ # - ######$ $ # - # ### - #$ ### - # # - #### -~ -33 - ########### - # ## # - # $ $ # -#### ## $$ # -# $ # # -# $$$ # #### -# # # $ ## -# # # $ # -# $# $# # -# ..# #### -####.. $ #@# -#.....# $# # -##....# $ # - ##..## # - ########## -~ -34 - ######### - #.... ## - #.#.# $ ## -##....# # @## -# ....# # ## -# #$ ##$ # -## ### $ # - #$ $ $ $# # - # # $ $ ## # - # ### ## # - # ## ## ## - # $ # $ # - ###$ $ ### - # ##### - #### -~ -35 -############ ###### -# # # ###....# -# $$# @ .....# -# # ### # ....# -## ## ### # ....# - # $ $ # # #### - # $ $## # # -#### # #### # ## # -# # #$ ## # # -# $ $ # ## # ## -# # $ $ # # # -# $ ## ## # ##### -# $$ $$ # -## ## ### $ # - # # # # - ###### ###### -~ -36 - ##### -##### ###### # -# #### $ $ $ # -# $ ## ## ## ## -# $ $ $ $ # -### $ ## ## ## - # ##### #####$$ # - ##$##### @## # - # $ ###$### $ ## - # $ # ### ### - # $$ $ # $$ # - # # ## # - #######.. .### - #.........# - #.........# - ########### -~ -37 -########### -#...... ######### -#...... # ## # -#..### $ $ # -#... $ $ # ## # -#...#$##### # # -### # #$ #$ # - # $$ $ $ $## # - # $ #$#$ ##$ # - ### ## # ## # - # $ $ ## ###### - # $ $ # - ## # # # - #####@##### - ### -~ -38 - #### -####### @# -# $ # -# $## $# -##$#...# # - # $... # - # #. .# ## - # # #$ # - #$ $ # - # ####### - #### -~ -39 - ###### - #############....# -## ## ##....# -# $$## $ @##....# -# $$ $# ....# -# $ ## $$ # # ...# -# $ ## $ # ....# -## ##### ### ##.### -## $ $ ## . # -# $### # ##### ### -# $ # # -# $ #$ $ $### # -# $$$# $ # #### -# # $$ # -###### ### - ##### -~ -40 - ############ - # ## - # # #$$ $ # - #$ #$# ## @# - ## ## # $ # ## - # $ #$ # # - # # $ # # - ## $ $ ## # - # # ## $ # - # ## $$# # -######$$ # # -#....# ######## -#.#... ## -#.... # -#.... # -######### -~ -41 - ##### - ## ## - ## # - ## $$ # - ## $$ $ # - # $ $ # -#### # $$ ##### -# ######## ## # -#. $$$@# -#.# ####### ## ## -#.# #######. #$ $## -#........... # # -############## $ # - ## ## - #### -~ -42 - ######## - #### ###### - # ## $ $ @# - # ## ##$#$ $ $## -### ......# $$ ## -# ......# # # -# # ......#$ $ # -# #$...... $$# $ # -# ### ###$ $ ## -### $ $ $ $ # - # $ $ $ $ # - ###### ###### - ##### -~ -43 - ####### - ##### # #### - # # $ # - #### #$$ ## ## # -## # # ## ### -# ### $#$ $ $ # -#... # ## # # -#...# @ # ### ## -#...# ### $ $ # -######## ## # # - ######### -~ -44 - ##### - # # - # # ####### - # $@###### - # $ ##$ ### # - # #### $ $ # - # ##### # #$ #### -## #### ##$ # -# $# $ # ## ## # -# # #...# # -###### ### ... # - #### # #...# # - # ### # # - # # - ######### -~ -45 -##### #### -#...# # #### -#...### $ # -#....## $ $### -##....## $ # -###... ## $ $ # -# ## # $ # -# ## # ### #### -# $ # #$ $ # -# $ @ $ $ # -# # $ $$ $ ### -# ###### ### -# ## #### -### -~ -46 -########## -# #### -# ###### # ## -# # $ $ $ $ # -# #$ # -###$ $$# ### - # ## # $## - ##$# $ @# - # $ $ ### - # # $ # - # ## # # - ## ##### # - # # - #.......### - #.......# - ######### -~ -47 - #### - ######### ## -## $ $ ##### -# ## ## ##...# -# #$$ $ $$#$##...# -# # @ # ...# -# $# ###$$ ...# -# $ $$ $ ##....# -###$ ####### - # ####### - #### -~ -48 - ######### - #*.*#*.*# - #.*.*.*.# - #*.*.*.*# - #.*.*.*.# - #*.*.*.*# - ### ### - # # -###### ###### -# # -# $ $ $ $ $ # -## $ $ $ $ ## - #$ $ $ $ $# - # $@$ # - # ##### # - #### #### -~ -49 - #### - # ## - # ## - # $$ ## - ###$ $ ## - #### $ # -### # ##### # -# # #....$ # -# # $ ....# # -# $ # #.*..# # -### #### ### # - #### @$ ##$## - ### $ # - # ## # - ######### -~ -50 - ############ - ##.. # # - ##..* $ $ # - ##..*.# # # $## - #..*.# # # $ # -####...# # # # -# ## # # -# @$ $ ### # ## -# $ $ # # # -###$$ # # # # # - # $ # # ##### - # $# ##### # - #$ # # # # - # ### ## # - # # # ## - #### ###### -~ -51 - ######### - # # - # $ $$ $# -### # $ # -#.# $$ ## -#.### $ # -#.#. $ ## #### -#... $## $ # -#...$ $ # -#..###$### #@# -#..# # ### -#### ####### -~ -52 - ######## - #......# - #### #......# - # #########...# - # $ $ #...# - # # # # # # # -##### # # #@# # # -# # ### ### ## ## -# $ # $ $ $ # # -# $$$ $ # # -# # ###$###$## # -### # $ # # - ## $ # $ $ $ ### - # # ### ### ## - # $ # - # ########### - #### -~ -53 -#################### -# ## # # # -# $ $ ## $ # -## ##### .###### ## - # ## ##....#### ## -## ##$ ###..## # -# #... .# $ $ # -# $ ## ## . ### #### -# # $ #.## # # -# $ $ # .#### ## -# # ## # ## # ## -####### $##$ $ # - ## $ #@# - # ## ###### - ####### -~ -54 -#################### -# # # # #@# -# $ $ $ # # -## ###..## ### # -# #....#$# $### # -# $ #....# $ $ $ # -# #....# # # $ $ # -# ##..## #$# # -##$## ## # #$## -# $ $ # # # -# # # # # -#################### -~ -55 -#################### -# @## # ## -# ## $ $ ## -# ###....# # # ### -# #....# # # $ # -### #...# # # -## ##.# $ $ # -## $ $ ### # # ### -## $ # # $ # -#### $ $# # # # $ # -#### # # ## -#################### -~ -56 -#################### -# # ## # @### -## $ # $### # -##$# $ ##$# $ $ # -# $# $ ### -# ## $ ### #....# -# # $# # # # #....## -# $ $ # #....### -##$ ### $ #....#### -# # $ ###### -# # # ###### -#################### -~ -57 -#################### -#@ ### # # # -# # # # $ $ # -##### # $ $#$# # -#.#..# ##$ $ # -#..... $ # ## -#..... ###$##$### -#.#..# $ # # -##### # #$ $ # -##### # $ $ $ # -##### # # # # # -#################### -~ -58 -#################### -##... ## # # # -#.... $ ## # -#....# # #$###$ # -#...# # # # -##.# #$ # $## # -# # # $ $ ### $ # -# $ $ # # ## # -## # ## #$$# $# # # -# # $ $ # ## -# # # # @# -#################### -~ -59 -#################### -# # #@# ## ##### -# # # $ $ ##### -# # ###### $ ### -# # #....# $$ # -##$##$##....# # -# #....##$##$## -# $$ #....# # -# $ $ # # ### # -##### $ $ $ # -##### # # # ## -#################### -~ -60 -#################### -# # # # -# $ ## ### ## -##### ## $ $ # -##..## # # $ # # # -#.... $ ##$# ## -#.... $##### #$## -##..# # # # $ # -###.# # $ $ # @# -## $ $ # # #### -## ########### -#################### -~ -61 -#################### -# ###..### # -# $$ ###..### $@ # -# # ##......# $ # -# #......# $ # -#### ###..######$ # -# $$$ #..# # # -# $# $ $ $$ #$ # -# # ## $ ## # # -# $ $ ## $ $ # -# # ## ## # # -#################### -~ -62 -#################### -# # # # # # # -# @# # ## $ $ ## -#### # # # $ # -# # ## #$ ## ## # -# $ $ $ # -#..###$$## $##$ ## # -#..#.# # $ $ # # -#....# $$ ##$ #### -#....# ##### # -#...### ## # -#################### -~ -63 -#################### -#....# # # # -#....# # $ $ # -#.... ## $# # $#$ # -#...# $ $# $ # -#..#### # $ $$ # -# #### #### ### -# # # # -# ## # $ # $ $ # -# ## $ ## $ $ # -# @# # # # -#################### -~ -64 -#################### -#....### # -#....##### # #$# ## -#....### #$ $ # -#....### $ #$$## -## #### $# #$ $ # -## #### $ $ # # -#@ ####$###$## $ # -## # # $ # -## ### # $ #### -######## # # # -#################### -~ -65 -#################### -# # @#...### -# # ##...## -# # # ##$## ## ....# -# $ # $$$ ....# -###$### $$ ### ##.# -# $ # # #### -# $ # ### # # # -## #$## $ $$ # -# $ ## # # # # -# # # # # -#################### -~ -66 -#################### -# # #...#@ # -# # ....# # -# $ # #....# # -# ##$#### ##....# # -# $ $ # #...# # -# $$ # # # $$ # -### $$$# $$ $ # -# $ # # # $# # -# $# # $ # -# # # # # # -#################### -~ -67 -#################### -#####@###.##...## # -#####$ ..#...# # -#### ......# $ # -### $ #.....## # ## -## $$# ##### $ $ # -## $# $ ## $$ # -## # # # $ $ # -## $$ ### #$## # -## $# $ $ $ ## -### # # ### -#################### -~ -68 -#################### -#@ # # # -## ### ## #### # ## -# # # $$ # -# # # # $ # $ ## ## -# $ # #$$ # # -# ### # ## ## -#..#.# $ # $ # # -#..#.# $ # ## $$ # -#....## $$ $ # # -#.....## # # -#################### -~ -69 -#################### -# # # # ## -# $# $ $ ##...$ $ # -# $ # ##....# $ # -# ## $ ##....# $ # -# $ #....## $ # -# $## #...# # -# $$$##$## ### ## -# # # # # # # -# $ # $ ## # -# # #@ # -#################### -~ -70 -#################### -# # # # # # # -# $ $ $ # -## # #$###$## ## # -# $ $ # $ # -# ###$##$# # $ # -# # $ $ ###### $# -# $ $$ $ #@#.#...# -# # # # #.#...# -# ########## #.....# -# #.....# -#################### -~ -71 -#################### -# # # ## ## -# $# $ # ## # -# $ $ #..# $ # -# $ $ #....# # ## -# $# #......### $ # -# # #....# #$ # -# $ ####..# # # -## $ ## # # $ $## -### $ $#@$ $# # -#### # # # -#################### -~ -72 -#################### -# ....# #### -# .... # -# # ########## # -# #$ # ###..# -# $ #$$### #..# -# $ ### $ $ #..# -# $ # $ $ # ##..# -# # $$ # $ ## ## -#@## $# $ $ ## -## ## # ### -#################### -~ -73 -#################### -# # #@ # # -# $$ #$$# # # ## # -# # $ $ #$$ # # -## # # # # # # # -# ## # # -# # $ # # # # -# $ #$ # # $ #..# -##$ # #### #...# -# $ #....# -# # # #.....# -#################### -~ -74 -#################### -# # ##### # -## $ # #### $ # -#### $$ #..# # # -# $ $ ##..#### ## -# $ ###.... $$ # -# #$# ....# # $ # -# # # $ ..###$# # -# # $ #..# ## # -# $# #### # $## -# # # @# ## -#################### -~ -75 -#################### -# # # # #@# -# $ $ # $ # # -##$# $### # $$# # -# # #.### #$ $ # -# #$#....# # ### # -# $ #.....## # # -##$ #.#....#$$ $ # -# ######..## # # # -# $ $ ### # -# # # # # -#################### -~ -76 -#################### -# # # # #@## # # -# $ # -# ##$# ##### $ # ## -## ##.....# # # -##$##$#.....###$#$ # -# # ##.....# # ## -# $ ##..## # # -# $ # $ $ $$$ # -## $ $# # # $ # -# ## # # # -#################### -~ -77 -###### ##### -# # # # -# $ #### $ # -# $ $ # -# ###@###$ # -########## ### -#.. ## # -#.. ##$ # -#.. ## $ # -#.. ## $ # -#.. $ $ # -### ######### - #### -~ -78 - ########### - # # - # $ $ # -###### # $ ##### # -# ##### $ ##$# -# $ $ # -# ## ## # -# ##@##### ## # -# #### # ## ## -#....# # $ # -#....# # # -###### ####### -~ -79 -############# -# # -# ### $$ # -# # $ $ # -# $####$###### -# $ ## ##### -# $$ $ ...# -### ## $$# ...# - # ## # ...# - # # ...# - ###@############# - ### -~ -80 - ################# -###@## ...# -# # ...# -# $ # ...# -# $$ # ...# -## $ ###$########## - # ### $ # -## $ $ # -# $ # $ # -# $ # # -# $ # # -# # # -########### -~ -81 - ##### - ########## # - # # # - # $ $ $$ # - # ##### ## $ # - #$$ #$## $ # - # ### # ##$ # -###### ### $ $ # -#.... ## # -#.... ###### -#.... # -###########@## - ### -~ -82 - ###### - #### # - # ## # - # $ # -### #### ######## -# $ $ ## ...# -# $$ $$ ...# -# $ $## ...# -##@## ## ## ...# - ### $ ######## - # $$ # - # # # - ######### -~ -83 -####### ######### -# # # ## # -# ### # # $ # -# # $ ### $ # -# $$ ##$ # -# #### ## # -#@############ ## -###.. #####$ # - #.. #### # - #.. $$ # - #.. #### $ # - #.. # # # - ######## ##### -~ -84 -####### -# ########## -# # # ## -# $ # $ $ # -# $ # $ ## # -# $$ ##$ $ # -## # ## ####### -## # ## ...# -# #$ ...# -# $$ ...# -# ##@# ...# -################ -~ -85 -############ -# # ## -# $ $ # ###### -#### ##### # - #.. # #### # - #.#### #### # - #.... # $ #### - # ...# # $$$# ## -###.#### ## $@$ # -# ##### $ # # -# #.# $ $###$ # -# #.######## # $ # -# #.. ## $ # -# # ####### $ # # # -# # # ## -##### ########## -~ -86 -################ -# #@ # # -# # # # # $ $$# -# #...# #$$$ # -# ...# # $ $$## -# ##.## # ## # -# #... $ # -# ## ### ####### -# # #### -###### -~ -87 - ##### - #### ## ##### - # $ ### # - # $@$ $ $ # - # #$######## ## - # # $ # # - # # $ $ # # # -## # $# # ##### -# ## # # -# $ # ### # -##### ## #....# -# $ ....# -# #....# -################ -~ -88 -############# -#........#### -#...#### # ##### -#...# ### $ # -#...$$ $ $ # -# .# $ $# $ ## -#...# #$# $ # -#.# # $ $ # -#. #$###$####$# -## # $ $ # - # # $@$ # # - # # #### $ $# - # # ### # - # # $$ # ##### - # # # - ######### -~ -89 - ################## - # $ ...#.## - # ####..... # - # ####### #..... # - # # $ $ ##....## - # # $ # # ###...# - # # $@$ $ ##### # -## # $ $ $$ $ # -# #$# $# # $## # -# ## ## ## $ # # -# # $# $ $ # # -# # ####### -# ########$## # -# # $ # -######## ##### - ### # - #### -~ -90 -#################### -#..# # # -#.$ $ #$$ $## $## -#.$# ### ## ## # -# # $ # $$ $ # -# ### # # #$ #### -# ## # $ #@ # # -# $ $ ##.## $ # -# # $# $# $ ### -# # # # ### # -# ######## # # -# # #.#.# -##$########$# ...# -# .* # ##.#.# -# .*...* $ .....# -#################### -~ diff --git a/programs/samples/misc/evil1.raw b/programs/samples/misc/evil1.raw deleted file mode 100644 index f79043791..000000000 --- a/programs/samples/misc/evil1.raw +++ /dev/null @@ -1 +0,0 @@ -þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹q¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿºˆºÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qˆq¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹ºˆˆˆ¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qˆ‰ˆq¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹ˆ‰¡‰ˆºÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿq¹ˆˆˆºqÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹qºˆˆˆqq¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹¹ˆqˆˆˆqˆ¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qˆqˆˆˆqˆº¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹ˆ‰ˆˆˆqºˆq¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹ˆ‰ @ ¡‰ˆˆ¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qˆˆ‰‰ˆˆˆºˆ¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹q‰ˆ‰¡‰ˆˆqˆ¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹ˆ‰ˆ‰¡‰ˆˆqˆº¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿ¹ˆ‰ˆ¡¡¡ˆˆqˆqÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹ÿÿˆ‰ˆ¡ ¡ˆˆqˆqÿ¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹ÿÿº¹‰ˆ‰ ‰ˆqºˆ¹¹ÿ¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿºÿ¹ˆq‰@X@ ‰ˆºqÿºÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿºÿ¹º ˆ@Y@ ‰º‰¹¹ÿqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿq¹ÿ¹ˆqˆ Y@ ‰º¹q¹ÿqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ‰¹ÿ¹ˆ‰¡@Y@ ‰ˆˆq¹ÿ¹¡ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿˆ¡ˆ¹q‰¡@X@ ˆˆˆq¹ˆ¡‰ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿˆ‰¡q¹ˆ‰@A@¡ˆˆˆ¹ˆ ˆˆÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿˆ‰‰ qºˆ¡A@¡ˆˆºº ˆˆˆÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿˆ¡ @@qˆˆ¡@‰ˆˆqA@ ‰ˆÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿqˆˆˆˆˆˆqˆ‰@ˆˆqˆˆˆˆˆˆÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿˆˆÿˆˆˆˆˆ¡ˆqº¹¹ÿˆ‰ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿˆqÿÿqˆˆˆ ˆº¹¹ÿÿÿq¡ÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿ¡ÿˆˆˆ ˆ¹¹ÿ@ÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿ¹ÿÿÿÿÿˆˆ¡ ˆ¹ÿÿÿ¹ÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿÿˆÿÿÿÿÿˆˆ¡ ‰¹ÿÿÿÿˆÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹ˆÿÿˆ‰¡ ‰º¹ÿÿÿˆ¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹ˆˆÿˆ‰¡ ‰q¹ÿÿˆÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿ¹¹ˆ¹ÿˆqÿˆ‰¡¡¡ˆqÿÿÿ¹ˆÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿ¹¹q¹ÿ¹ˆˆÿÿÿˆˆˆˆˆˆˆÿÿÿˆˆÿÿ¹q¹ÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹qqq¹ÿqˆˆ¹ÿ¹ˆÿÿÿÿÿˆ¹ÿ¹ˆˆ¹ÿÿ¹qqqÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹qqq¹qˆ¡‰ˆˆÿÿÿÿÿÿÿˆˆ‰‰ˆÿ¹qqqÿ¹¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹¹qqq¹ˆ A qÿÿÿÿ¹‰ ¡ˆÿ¹qqqÿ¹¹¹¹ÿÿþþþþþþþþþþþþþþþþþþþÿÿÿÿÿÿÿÿÿÿ¹¹qq¹ˆˆˆ¹‰@‰qÿÿÿÿq¡‰ÿ¹ˆˆˆ¹º¹¹¹¹ÿÿÿÿÿÿÿÿÿþþþþþþþþþÿÿÿÿ¹ÿÿÿ¹ÿºˆˆq¹ˆqˆ¹ˆ ˆqÿÿÿÿÿÿq‰ˆÿ¹ˆqˆ¹qqqº¹‰ˆ‰ÿþþþþþþþÿÿqÿÿqÿ¹ºqqq¹ˆqˆˆ‰ˆqqˆÿ¹ˆqˆ¹qqqq¹¡ˆ¡¹ÿþþþþþÿÿˆÿÿÿ‰¹¹ºqqq¹ˆqˆˆˆqqˆÿ¹ˆqˆ¹qqqq¹@ˆ@ˆÿþþþÿ¹¹¹¹¹¹ˆqˆˆˆqqqÿ¹ˆqˆ¹¹¹¹¹ÿþÿˆˆˆˆˆˆˆqˆÿˆˆq¹ÿ¹ˆqˆˆˆˆˆˆˆÿÿ¹¹ÿ¹qˆÿˆˆq¹¹ÿ¹ˆq¹¹ÿ¹ÿÿqqqq¹ˆ¹ˆ¹‰¹qˆÿˆˆqÿÿ¹ˆq¹ˆ¹ˆ¹‰¹¡¡¡¡ÿÿqqqq¹ˆ¹ˆ¹ˆ¹qˆÿq‰ˆˆˆqqˆˆq¹ÿ¹ˆq¹ˆ¹ˆ¹ˆ¹¡¡¡¡ÿÿÿÿÿˆˆÿˆˆ¹ˆ¹q¹q¹qˆÿÿº¹¹º¹¹¹ÿÿ¹ˆq¹ˆ¹q¹q¹    ÿþÿÿˆÿˆÿˆˆq¹q¹q¹qˆÿÿÿÿ¹qAˆˆˆÿˆˆˆ‰q¹ÿÿÿÿ¹ˆqq¹q¹q¹    ÿÿþþþÿÿ‰ÿ‰ÿ‰ÿ‰ÿ¹¹¹ÿ¹ˆ¡ÿþþÿÿ¹ˆººqº¹¹qÿþþÿ¹¡ˆ¹¹¹ÿ¹@@@@ÿþþþþþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþÿ¹ˆA‰ˆˆˆˆˆ¡q¹ÿþþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹qºqˆº¹¹q¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹¹¡ ‰ˆ¹ˆˆˆ‰¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹qˆ¡‰qˆˆ¡‰¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹¹ˆˆq¹ˆ‰ˆ¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹qˆˆq¹ÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿÿþþþþÿÿþþþþÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿqqººÿþþþÿÿþþþÿººqqÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿˆˆˆˆºÿþÿÿÿÿÿÿþÿºˆˆˆˆÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿqˆˆˆºÿÿÿÿÿˆˆˆqÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿÿººÿ¹qÿÿqººÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿ¹¹ÿºˆ¹ÿˆˆº¹¹¹ÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qº¹qˆ¹ÿˆˆqºˆqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qq¹¹qˆ¹ÿ¹ˆˆˆqˆqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qq¹¹qˆÿÿÿ¹ˆˆˆqˆqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qq¹ºqˆÿ¹ˆˆˆqˆqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹qq¹¹qˆÿÿˆˆˆqˆqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿ¹ºˆºqˆÿÿÿÿÿˆˆˆqˆqÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿþþÿÿþþþÿÿÿþþþÿÿþþÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿþþþþÿÿþþþþÿÿÿþþþþÿÿþþþþÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿþþþþþþÿÿÿÿþþþþþþÿÿÿÿþþþþþþÿÿÿÿþþþþþþÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþÿÿÿþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ \ No newline at end of file diff --git a/programs/samples/misc/fireball.wav b/programs/samples/misc/fireball.wav deleted file mode 100644 index b43d7b589..000000000 Binary files a/programs/samples/misc/fireball.wav and /dev/null differ diff --git a/programs/samples/misc/flrmp.bas b/programs/samples/misc/flrmp.bas deleted file mode 100644 index 63e32aee2..000000000 --- a/programs/samples/misc/flrmp.bas +++ /dev/null @@ -1,13 +0,0 @@ -'Floormaper by Antoni Gual -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ -1 SCREEN 13 -2 r% = (r% + 1) AND 15 -3 FOR y% = 1 TO 99 -4 y1% = ((1190 / y% + r%) AND 15) -5 y2 = 6 / y% -6 FOR x% = 0 TO 319 -7 PSET (x%, y% + 100), CINT((159 - x%) * y2) AND 15 XOR y1% + 16 -8 NEXT x%, y% -9 IF LEN(INKEY$) = 0 THEN 2 - diff --git a/programs/samples/misc/forest.bas b/programs/samples/misc/forest.bas deleted file mode 100644 index e21b098fd..000000000 --- a/programs/samples/misc/forest.bas +++ /dev/null @@ -1,315 +0,0 @@ -'FOREST.BAS by Antoni Gual -'For the Future Software 2002 7 liner contest -'NOTE: Data lines did not count by the rules of THAT contest. -'---------------------------------------------------------------------------- -1 SCREEN 13 -2 IF i& = 0 THEN DEF SEG = &HA000 ELSE DIM b%(164) -3 IF (i& \ 320) < 150 THEN READ c&, a$ ELSE j = j ^ 1 + 1 ^ 1 MOD 250 -4 IF (i& \ 320) < 150 THEN i& = i& + 1& ELSE PUT (1 ^ 1, 150 ^ 1 + (j ^ 1 MOD 49 ^ 1)), b%(0), PSET -5 IF (i& \ 320) < 150 THEN POKE i&, ASC(MID$(a$, i& MOD 160 + 1, 1)) ELSE GET (1 ^ 1, 150 ^ 1 - (j ^ 1 MOD 49 ^ 1) - 5 ^ 1 * SIN(j ^ 1 \ 2 ^ 1 * 2 ^ 1))-(319 ^ 1, 150 ^ 1 - (j ^ 1 MOD 49 ^ 1) - 5 ^ 1 * SIN(j ^ 1 \ 2 ^ 1 * 2 ^ 1) ^ 1), b%(0) -6 IF (i& \ 160) < 256 THEN IF (i& MOD 160) = 0 THEN PALETTE (i& \ 160), c& -7 IF LEN(INKEY$) = 0 THEN IF (i& \ 320) < 150 THEN IF ((i& + 1) MOD 160) THEN GOTO 4 ELSE GOTO 3 ELSE GOTO 2 - -DATA 0 ," –šˆšàÐÉ‚È¡fWpÊÊÊÜpfÍf‹ÊÜÜÊrÊCpÊÍšCš–‹àÊà‹‹Ê“LÑÊÊÊpCÊCCpX–ÊÉÉÉÍÍrmÍiÅ‹ÉÊCÊÊPWÈNf‹àÜpXÍ–wЖ³Ðš––œ–w¬fÍÉÉÉL–NÈfÈPPPLɬÍN¬©L–sWÊfÊPp–È›PLÈPPÄabYÊpš—pspÊÈÈfÍNš" -DATA 0 ,"ÍÉÄÈ–LsŒÄ ÅÈŒYˆÊÊÊÍàNÈŒ©–YÄ`–fÊÊ‹šPÙ¼ŒÄÈp–ÕaЛL—¬Ù¨›uáiuˆsÈiÈ~ŒÛLNuY›¬ÄN–ŽÈZÄÐNuP¤CÜ‹fxX–Õ§©¬ÍÊRLÏXL–šÍ‹jjL––åf‹–NfwÊXN–ÍÊš––͇apa‹Ê¸ffܬ¬N–çççfåÊp–¸¼CrŸaŸÊp®" -DATA 0 ," mÊpLfÈšÍLXšLÍÊppfÊ‹‹fp‹fX®pÜ‹fÊCÈÍ‹‹pÊÊfÊÊÊÊCppÍÉLLNppÊÊd®‹fÏÑÕÏffÍf^–NfÍÊXÊÊÊ–}NfšˆšCLNC–ÍššÍÍšà–šž‹sjÍCC×fPP^ÐLÈš^š¬fÉCÉ—Õ¬jpÊCÄpjÜsÈNNfÄNÊYC®ÊYÍCLÊÑ›XÍÏÊÉ" -DATA 0 ,"LaÈPÈL¬›ÅLÄŒCCŒšÜÛŒPJjÐÈ–jffšÊÊଠj`jMXsª¬L Ü~ÐP”—›bNÍÐj׋f`ÉŒPÙ…©aNȈwZ‹š¬ÄjffÍÊÄpÊÊf¿–PNx”È‹¬ˆÈŸp‚Ñ|ÏáCŒ–LX¡´NLÈX¿ff¡Í¬fÐf–Ðfp‚NÍNàCÐÄ‹ŧC¸ÊppÊçxW®WW–pCpf" -DATA 0 ," L‹X¡ÊÊÈfÊÈÈ–åCÊÊÊpÊÊCpÊCÊÊÊ‹ÊÊÜÊÍÊW‹L‹CpÊÊ–ÊC–C–ÉÐCšpCppdÊ¡fXfÍÍŽÏÉfÉwzš‹~C×ÊÉÊÈpÍÐÊÍsÉÉÉȖͬÍÐfЂL–XLZaÍCͬLLÈaĬˆÄNÉL‚NÈ×psNÜÍdÈÈÍÈPa—a–Xš“NCÜpCåsCp›ÍŸÑ~©¬" -DATA 0 ,"PPÉCÈz—Œ›XLsXCwšjŒCŒ Å–uafÜfÜCÊšfÅ—jsPÜÄÈ–Lfˆ®ÄPfÙÉjj››NsÈbuÝŒNÙˆ ÄjÈÄ›©bÄÈÉÄafÉ~¸ÈyÏÊÊÜÏsˆtzN©Í^¬ÍXNf¬ÏÊÉsŸ©ÊfÊLašÈŸÉ–ffpƒÜaÊ–Í––WÈÉf–Ü‹LfPjf`çCÊpÊ¿Õ©½fÍÊÊppO" -DATA 0 ," ššÕÍÑÍÍ–Í‚šÈfÊCÜpÊffÊÜÊåf‹ÊÊ®Üf‹š‹fÊfÉLpLšÊÊÊ‹‹–‹XfpCÜÊCÊ‹XÑÏŽ‹ÑÍÏÉÏCNXÊf–Í‹®ÈšÍNbÊf®aÍÊšXÈÐÊÈfÉœ‹šLÉCNjjšÈ~ÉÈÉš×ÙÈ}ÍÐÕÙPuiLÕpCÊЖCPÈÅÈWÕPašÊCpÊCC›ÊpfÑ~LŸŸ" -DATA 0 ,"NZCˆ‹›P‹›f‚›YfCRsjÍÅŒªÉÄuÙÐXfCÜffupuДbĬ^©Ô›ŒèŒŒjsssP—¬¬ÈЛuÀÈŒjPb—ˆŸÝŒj”È‹C›¨©LsN©zyˆÊCÊPˆP¥NÉÍÈPNÏÍiÍÈ–Ëf–šNCfPšLÍÈLÉL¡L–fpf–L‹àfai–CLXÔÕNš›tpÜpCmiÍLffCpÜr|" -DATA 0 ," ÈÈ‹p‹àwÊÊfX–ÊåÊÊÊÊpCàÜÜpÊÊpfÜàrÊÊa‹p‹pÊå}ppÍrpÜfÊ‹LÍÊÊppÊÊp–fÍÏXÈffÜf‚C–ÍÊfCåÜÉLN‹LCÊÍÜfÍÊ‹–W}ÈÐÉ–ÈÊš–P–NÄÐÈPz›ÈœÉuÕPÍÉPjŸ¬Û–´×ÄrÊffÊpfÐaÈÉNÐLNÊÊp–ÊÊÊpNÉfsшœ" -DATA 0 ,"LPj©PNfÜšÍfÕfÍnu›•ÄY––`bujPpfrŒå®ÕfNjuʨÉs››ÄŒuÐuWjPКÙшœ¬jœ zsubŒuÈ›jsZÙuɬЖˆ›–ÍÐLÂppÊj¥xšafsÈPàsܬÓÏ–ÐЬLpÊÈLXXuÉŸÈPC–CÐÍXPÛpÉÊftåCfa¼sÄPÐpÊf‚tš–f–ÊCpÜØÐ" -DATA 0 ," }šCÉ‹ÍfÉÍ¡ÊÍpÊpÊÊÊpfppÜCfÊÊÊÜÊÊCš‹ÊÍÊ–p––ššÉšp–š‹f‹ÈCCCÊCCfÍÜXÍXmX‡‚ÍžÍCm‚ÊÊÊÊÊP–ÈL–a–ÍPXLfÍ‹È‹Ê‹N‹CÈfLsÈLàP؈sX‹sjš nŸNÍ¡zNzÙpåL审dyssL‚CpÜfpjffCpL–Ț̀¿" -DATA 0 ,"P§zŒŒçp–fO‹‹f¬aÄj¨ŒšfÍufȬ‚åÊÕjsÍÐЖÜsYŸ›ŒÉyŒÈÈfs›~ŒÉÕsˆyÙPLnuuŒ›a¬jÐNÈNLuNÉÍNjĬLÍÈͧCCÊCfsÈàN‹À©NLÈÈ~ÉL´×CpLÍXÉÈaLsf–Äa©žÍXšL‹LÈÍÉPÍ–fJPÈЖÜCÊCPɬÊppàf‹–Ë" -DATA 0 ," f‹Ðà‹šp‹‹šÊŸCÊCÊÊÊÊÊÊfàXÍCÊÊfÊÊÊšÍÊfCfXCff‹Íš–pÉLW‹–pÊCÊCfÍfÍÍfÍfÏš¬Í‹ÍCÊppÊp¬ÑÊÍ¡––šÐaÐÍNÍÍCpf–ÐLššLPZfLÍWÉͬÈN›ÛÈfyÐÍÉPj¬ÈjCÊÏXNÉPÍCˆ–ÍZÊÊppCÕdÊrf‚–X¸XÄÅ" -DATA 0 ,"L‹Ou jŤ–P–Ê“jYˆÐÄÊ–Ü‹uz–ffårdÈÍ~CŒŒrЖuuŒjj›ZP››j—›¨s~nÙXوŜfŒ—uœuåÉfÏNPjNPĬ´ÊˆLLÍÐLp®pÍ–ÍšÍÐ¥n–ÐÍNNaÊipdf‚ŸPššLŽz¡ÍÍ–XÑXÈfÈNÈ‹–fÈÉÈnras‹Cpa–ÉÊdÊÊXˆÄ×" -DATA 0 ," p‚ˆLÊÅššLššfppCppÊpÊÊpfffÊÊpfCpÊÊà‹–‚CCšš‹Íš‹–‹CfÊЋCÊÊC–fšXXÍÍÍÍfÍÏLXÊ–fÈàCÊÊXÍ–ÊàLÍÅÍÅrLaЖiNÍfLÍÐNL‚šÉ©Í¬àPPÙjÈÈÄufÈ©zȈÈfNsšÊ‚Ï–šsušuÈÐNÈLCÜÊåÙCÊCÍ–~ÍYzˆÄ" -DATA 0 ,"u§{ÄÍssˆuÊsfjmsÉÄŒ›––ÈÊ–fppÜCéLaÕjŒŒŒLÄ›‹sÄu}›¬œuÉsbuaÈÈ–jÕ‚¬ÙŒÙÝÝŒŒuuÐÄs“ÈPNCfÈ—Ê–ÐNˆšÐÊrCןLšÍ–fˆšPˆÉ´œÊCÊÍÉNÜfa›aÊXsPÈÈ¿‚ÈÈК‹¡LÈÍfNš~ÊN¥–šCpåÊ‹ÐÜåaÊfa–´O" -DATA 0 ," ÊÊÊÊÍ‹f‹Í‚ÊLÊÊC‹CÊpfpXåÊpppX®ffpÍ‹šff–šCÜÍÍÐzW‹špÊÍCÊÊCdffL‹šÏXXÍÉff®¡ÊNsÜppCrfÍÊÈ––ÍÍÍCÉLLÍÐNÍÊLÈLÈfÍÉPP¬ˆÐ›PÈÈÈŸÈ´ÈPLN“aÈÉNˆÄÊXPu¬ÄÍ®sšˆœsÍÊppÍP›dÜsÍÊÉ‹PzNu" -DATA 0 ,"ÝuŒxÛssZšspÉfNÄ NÈXŒÄÉjCNªåC Ø ¨ŒŒŒŒC¨¬š›ÉˆjÈaNb¬bp›LÈ¥¬uL©€sbŒbjjšzLnYNLÊwCÍsɬPpLšLÐÐsÉaC~È‹ÈÉ‹aÐs–YÍÈЈŸÍC–sÉšÈPÊÐÊšaÊ‚šÉLÊ“ÅçЋ͟W͸NŸ–Ê¡–ÊCåp¡CÜÜNÊpÐЖÊ" -DATA 0 ," ÊÉfCp–XÊL–ÐfÊÊÊpCppÍff‹ÊfpÊåÊÊppÊf‹Ê‹š‹C‹‹p‹à––šf‹ÊÊCÊÊÜfXÜfϦ‚ÏŽ‹åʈˆPfʮʋfÊLfLp®ÈÈÐÐ}ÄÉXXCÍLÉÅpš›ˆŸi¬LaÈ–N‹É}Äxj×y¬›œÐb¬LpfPЛ¨¬Œ‹ÐjÙ›CÊÜCˆÈXÊpfПPš–nju" -DATA 0 ,"su ›ˆJpLˆ‹Å‚Ør§Yu›X~jé–CjÊCÊ›uu uŒˆuuÍÊ~n›jjŒèj›®ˆ¤ˆšPVLLÈjœN›NÙLˆzLfsÉ©šLPÈɈššL›PˆÐf¸NÈÉàNÍÍ}š–ÍÍÍÍNÈÉÐfÐrÐLsNˆÍ~CÈpNzsaÊÐfX¬ çN¬šç¬å¿tLÊP~ÍÍÊC‹fLÊÊÜÊÜÜ‚åÊÍ" -DATA 0 ," ÊCpšf‹ÊLÅfppCpÊCpàÊfpÊÊÊ‹‹®pfpÊ–WpÊCpàpÊp‹‹àCÈÊfšCCCCÊpf®–Ü‹ÍÊXÉmÑÈšsL|LfÊÉå‹Xfp‹fÊp–P‹–¬sCL–a–É´ÍÅNÊÐNˆÐmÈÈ´–œÐÍšÊ~CÈCszÀfÈÈÉCXÄL–É›nCÄ~ÄjCpÊP¬œÜpCfPÈ–ŸLš¼¤" -DATA 0 ,"`›bNĈÄnšCšÈZPNpYÈsÒÛuffÊÊf››Nè¬bŒ¬ÍÍLÙ×´–ÍPLP¬ÐÙZ–fLXuÈabÐLNЛˆ×‚sPxÉf‹ÈÐÈÍÐL}Èa€ÈN–a‹NršÉfÊÊÊ‹–¼ÉÈœZÈP͔ȜÜX´pzÍÈpÈN¬É–ÜÍ‹®ŸRtÈŽÈLšçåÍa©naNPÈšÜÊ–pp¡fapfÊpNÈy" -DATA 0 ," pX‹‹LÊpCX‹L‚ÊÊÊfppÊÊÊfCÊppffXfpÜÊÍКɋfa‹ÊLCÊÊ–W¸pCCÊppCffÍÜÍÍÕŸ‹šÄÉLšÕLfrÜpÊCÊffCÐÊ´ÍàÍNÜšfÍNÈȈšLPÈÍ©NXÈX‹X´LЖ¬sÍzaɬPÉb´xNŽCp–ŸzW›¬ÈPŒbsp‹LYsCÊ~Ü‹ÐÈÜψLj" -DATA 0 ,"› zˆÉÐN~C—sZ›w›šÜu§u‚ÔfCCpNÐsLÈZjNuuj¬YjÈf›Íj›•fzusÛyPŸbssPŸPÍNP›zaȈšLÐsÍÐNÈšfÍ©™ç}ÈÊC©ÍimÍÈ€CpfÉCšC–XÍLˆPP¡ÊÐfÙfÉPÉayÐÍ´‹ÐžŸÈÈÕåàLfÍ®fš}a–ʈ‚YÊÜpÜpNfCpfÉLa–" -DATA 0 ," CÊppÍ‚Ê–Í¡ÊfÊååÊÊrÊprrpÊXffÊÊÊpÊ‹–Í‹ÊЂ‹fC´pÊffÍ‹–‹ÊCCÊCffff–XÍÑfXÊmÊžLÉ–ÈN¡‹åÊCfϮןÈaÈ–pÊpÈÐfLšPNšLÈÈÍš©©Ð‹NfÈÈÉLzÍÍNœNL–ÈYCCLujuЗNÙNĬpÊÜÊ›jÊCNŸ––p“LÈPy" -DATA 0 ,"ÐNN~šståxÈ  u´zÄbpPÄaY‹Ê®ÊujZuXsjO›uuON´aÉPNÍjŒÐ׌bËLš¸ÓPusNxPšÊŸNˆsPsˆÈ›ÐLPzLÉ¥CÈšœÈNÈP‹N–ÍÈLÜL‹––ÍÜÈÏCÙ‚CC›ÍNŽÙNP¿¤tСÊL–§ˆsÈ爡Кç®iiš¦Íа‹CÜpfå–rCpfNÈLÍÉ" -DATA 0 ," CÊÉÊÐÉÉÍÍÊf‹ÊfÊåppÊp®ppCCÜÊpÊpÜf‹‹‹f–¡p–Ÿ–pÉCCåffLapÊppfÑffXÑÑÏÕifffÉL–XÍLÊ–fÊpfdCfÊfÍšLÐPÐЖPL‹‹LCX‹LN–©PLsÈrfÈ‹zÈÈÉÍLLÍÐ~׋pf´œLÈ›bˆˆX›ÐpÊ–yC‚Ê–PÜÈÍ›ÍaÉaÍ" -DATA 0 ,"jš›L¬ÅÊÊÈuPunÄ––‹Ð–f‹›ÏCÊÉÈNPa¬´PÙnŒÛNœ¡–Lu¬u‚uŒušuXPsÉZPuÅsÄCZuÙ~n“zLÈNÈ}ˆ›~NŸ~PLP©LÐzYÐf—Éп¡å¡–‡riÑÉÉÏŒœÊfЋNÈÈs¬PƒÅP¡ÈÉáxNÍ¢LLL‹çÊ‹ÈXÈPfÈ‚ppÊp‹dP‚®fÈLÈuLX" -DATA 0 ," p¡Í‹C‹šCÍÕ‹fpÊpppÊprpÊÊpÍCÊÊÊÊCp‹CšLàÊpW‹pp¡C¡Cšš‹ÊÊpÊ‹f®ÊßfXXÍ‹Ïf‹‹ÈÈÏÉÍÉf¡Cpp‹¬LXCN–¡‹ÈÉLLÍXCÈšÍfÊfX‚ÍÊÉÈÐÍÈ¡ÄsÍÈÉz‚ÙNÉ–ÛÐÈÍÍpå¡ÀÈjjOuCÉÍp‹Ê ©ÊʬLpf–Ê–¬Ïuà" -DATA 0 ,"LLÍC–ŸbZ¬šuLÜf‹sÍ–ÍfÅÊÊjŬÈYZ‹b´Ðjs¼nÉuÄ›ŒuŒPYŒnsÛÉšbÈ©›ˆÈÍÊɬ“~šPC›jÈNPšƒzÙL›ÈÉÈÍsL‹ÍzLÍLÉNÛ®fÊÍ–ÍÊmCÍsN刋–´ÉšsP¡ÈnЬ‚C‹ffÊ~ççš–‹ç‹ÍÈÍÐÍaÉÊCpÊpfÍNpÊLzsš¬Ä" -DATA 0 ," f‹–f¡ÍpÈÓpL~‹pÊÊ‹åpÊ‹Ê‹f‹fÊÊ®ÊÊpš–‹LšÍšÈpCp‚p‹ÊfCfCpCÊpCX–Í‹X‚ÍÍff–pš–‹Ðpf‹‹ÉÊÊCÑ–ÍÊL~œLPL‹CÉLf–Èa–ÊafÕ¬XÐȬȜ¡‹fÍfLwÈÐÈÈÉ©‹ÙL–fÜCÏxw×ÛCspÊCÊÜ´sÜCbjÍLaÈ–ÐXuÐ" -DATA 0 ,"ÄašppPs›ŒÈÐÈÉpÍf–ff–PÉCåÜP¨¬N¬È—m`NPˆNnÐ`—›ŒuŒubÐjuPènzœZ›sÉ¡jœ›´PjNÅasY×LЋLÍ´Õ~Pš×LÉÍffÕ–Üpå®ppÊ‹®fr‹XŸPfÊNÉÍÐ嬋´ÐÉØÅçP–Ê×Pf©tçCfÉ©pÜÜ®–Øͨ¿XÜpfœ¦ÊLÈÊCWÈœÉ" -DATA 0 ," pÊÊpàCÊÅf–šàppÊppÜÊÜ‹CpppÊÊppCÊÊpàÊÍÊ–fLXÈN–CÊpÍC‹LCpÊ®ÊfXÍÊÏLmÑaÏÉššf–¡šNNÊLCppffpÊrNšNœÉÙÈ–f–žPÄÜNÊÈЬNL‹ÈšÉÈCšÊCfÈLÉfn¡Å‹¡s–fåPnLÙLÈÙpppÊCC®¡CÊPÐÈaÍÈÐLšsÈ}" -DATA 0 ,"ÉPpÜÐsuL›jN}È‹‹¡‹–sfšfåpXju›–j×usjsnuˆœjjÙbÙŒCsNØÈa ŒÍ¥sÄZ—¥Ð׬PšÊsŸWC–°sÜáPÐj ÊC–CzåiCaÐÏÐCpŸç¬ÅppÜÜfmLÑÐCÜÍÊÉPwˆ–Èu–ˆèFx–ÈšWNš\Y×pLçåpa–ÍNžpsfåp¡ÄpÜNs¥‹ÐNšL" -DATA 0 ," pàC¡ÍÍŸÍÍLÉ¡š‹ppCpp‹rpfpCpCpÊÊÊpCÍÏL–ààC›špLC‹pàfÊšCCpCCpf‹ÍÍŸÏXÍXÊÊ–ÉfÍÈŸLÊfÊpfyÊfÊfÍ‹fLCfšLZyLL¬Èa}ÈÐÉpNÅÈaPLÈÐL–‹pC‹Psˆ~žpÄ¡‹}礩šÄsÀ®pfCCCÊpWsLaLÑasÑfLÈ" -DATA 0 ,"`ÊÊPÄ›aÍ–¸–›j€àäÙC––ÜÊNjÝšÈNN¬j›Ír–sPzYŒÙNÙuCLLys¨ŒuŒ›ÉÏjž–sN—P—žšÈnÉpzÈj‚ÈÊfÐÈbXpPsaÐP€ÉNŸnfŸÍC¡pfpf–Í[CÜÈffuÈNÄКšstxÄÐÜ¡ÄÉÊÅ}pNÄLfLÊšÀž›^×Ê®ÊCÜ×pÊ–pÄjp¬È‰" -DATA 0 ," ÍÍ‹‹CÄ“a‹aLÊ–Ê‹ÊppÊppfXpÊÊÊÊpÊÊ‹‹šÊXP‹å‹CCÍ¡ÊÍå‹CÊCCC®f‹ffÊXfÍÍÑffÊÊiÈͬ‹rPppÊNifÐfÐÐÊ‹ÊåaÍNÈÈ‚šP¸ÐÑÉšaÐN–ÍÍXÈrˆLLfN–ЈˆP–sŬʋšzXÈL׬bpfÊdåpŸÊffÉX}Í––š¬Èfu" -DATA 0 ,"ŒÊœ—ÐÍ‚ÐjÙÈšPÜPfffà‹‹ÊpCÊsÈÈÏÈ—“NNЖsLNPu›jjPj—uœŒ¨LfŒŒXNLÕ—¬sN–ÄœÐYšÐLÄsN¬C¬~uÉCÐsÐÈ©PØ´sÈLÐÐŽfnšpÊÊÜXÍÜaffåÍÉÐÉÉÊYHʃOÜ©šÈnb—Êbè¡PsNC–ÊkŒŒÙfèpÊppCÜN¬ÍžÈÈnŸP" -DATA 0 ," ššaÉ‹LLpa‹©r–¡pp‹WpÊpf‹fpfÊfCÊCpÊ‹–‹p‹aÈ‹Éff‹–Íåpš–pÊÊp¡Ü–XÊÍff‹fXf‹‹XšÊ¬å‚ÊNPpCОLLp~L´Ð‹¡ÈNaЋC‚ppLLšzpfNpÉLLLCЋÍÐÉaˆPÙ‹ÉzŸrXNȸŸYLpÈÊÂCÜÊÊÉpCuuL–L–ÍfÉÈNˆ" -DATA 0 ,"ÜLPjjÍbˆšÈ×›¬Ð¬–f–~ÈNCÊÜä¬aˆœÉÈjaÈÍLÉ›Ny¨šÕMÐNZbC´jŒŒÙŒœnLjsLfÈZLNbjNzÈaÐÈ‚NÈfPzCPœÛP‹‹Äˆ~ÐÙs©k¬Ð€f›ÊCÊÊp®jp®åxÊÐÈ–LCnÑЬ}fmÏççpfçœs––PfœzOžuš‹Ê®påfpßÐCCPLÉfŸÐ" -DATA 0 ," pÊÊf‹ÍLšÉpÊf‹ÊÊpÊpÊfÊX‹ÍfÜÊXÊXppÊWÜšWfÊàpÜÊ‹Ír–pÊ‚pCCCpCpfpÊfÜfÜXŸÉÊ‹Cp¸šÐaCÜšNp‹NÍŸ‹XXÍš–ÈšÐpÅLfÍÈšÐÈfaa–pp‹ÅÍåÈšpˆLP×ÉŸˆaPN‚Épʬ›jPÅšåÜÊÊåCCCC‹sLPC–àÍpÍäf" -DATA 0 ,"CCPœuÊŒš}–¬j›a^‹Ñ›N–ÉÊ®LȬÅä¬NsÉsPLfLNÈœš©—jjÄ–ÄP´›—ŒuÐÙsfkÛå¬zÙĈè—LfœÈxÈЛYzÍfÈÈàÛ¡dœ£sÐN›¬ÐPœÄÉÈpfÜpåŸfÈÜaCfCpCCÊp¡ÊÉ«›©¸jçËÐP]W––È›fÍNP–kÉfÍpÊÊpÊpÐuXLЖÑz~¨" -DATA 0 ," C‹š‹~Cfp‹fCÊ‹pC‹fÜfpffÜÊfpÊfXfppÊ~f––¡Êfppà‹¡‹pLNPÈCÊCpfpàfffXfXÑXXåfš‹pfÍ––p–fårÍ}´a–‹fÈÍдLLšÈšÐÜ–ÈaÉ–‹–Ér–sašÐNNf͚ȟsÈÈ©Ñ‹Éff‹œPÉÉkˆPrÉ®¡fÐÍÊpÕÐÙaÈf¡ÊÍfÕfi" -DATA 0 ,"jnÏbÄÈÈNŒPjÈ®jɬ–fåÊånè››OuÙn›aa¬ÍËsP PažP–zsu®ÉZœÍÍ›ÄzsžÈœÛYPjÙa–ÄsOÐÊÉ‚—‡ÊpÍLÔÈPfŸaXLsf¬©É›XaÍÈϬprÜÜmXfäˆXCçʸ¢ÙPy•C›YppÜÍÍuCЬjLfÉu©WaˆLCC®ÊÜX›ÊXLNLÈyàP" -DATA 0 ," ‹ÊWfàWÉå‹ff–àÜppp‹ÊpÊXÜÊX‹‹ÍfCÊpàåš–Êfp‹‹‹Üffaš‹ffÊåÊXdCffÍÍÍåf€Ïfp‹CfÍ––ÊfCÍCpfpÊff–ÈššÉÍÈ‹XfåNPršf–ПÈXÕ‹‚ÜLPaLåОÍÈÐÉXŸLpÊÊϤ¸zP~a}bàÊCŒfåCkÑLfÍPXiXfÍÈÈ" -DATA 0 ,"çju–ÊÈNÉÉfYfÅLfpÍœÍfCbjjÄ”us¨sLNf‹aLLÉN~NxÈÐ~sÙÊÐPP—}ŒPP~N–PÀˆP¬~©sÅ‚ÙØfÊåÍz‹LˆssÐÐÊ©fÉsÈÍäØfÉPafŸÍ®ÜÜܬÜàC‚ÈC¡ÊÏuLu›`xm®È NfͬN|œpˆf‹Í›ØuÐn¤ÊÜÊfXÕPjXX|ÛÈÈ–P" -DATA 0 ," ¡fpÊp¡‹àfWp‹‹pppÊpÜpCWÊÜCÊ¡ÜÊ‚fpÊÉÍ–Í‹–Li–L–Êàf–––pCÊÊÊpÜåÍfXXXÍÉX‹‹C‹fLLaš¡ÊÊfÜ®ÜpLp¡ÈLL–ÈÐfLPLÈa–ÉÐÉaLÜf–ŸÍåˆNåPšÉ‚š‹Ï–å–fÉžCÊ–ÈžsLNzÕpuÈ®ÊÙCÊÊLN›pf¬ÕÊfÊ©›" -DATA 0 ,"PÕjÙLPfLNÍÈkÈÍpkjPÈCfCNƒÐ”v‹ÉjL©jPœ~LaÉʬPLsN©Ä›sàCkÉáPPbœsÈssÈsNuZPSNsLÈÉ—¨PjÐnÐNœÈLsÙ—ÉÄuŸÏPÉNÙOÜmÜ‹CÜÍÍÊNÈf¦Y¿ÊL–ÉsZ}§‹iCC¨CÉÛÄ–ÈÈÈX©‹Ð–‹zè®CåÊn}ŒzŸfåxÙzÈ–" -DATA 0 ," ‹pf‹f‹W‹fpÜCfppÊÊppf¡pÍfX‹ÍÍ¡ÊCC‹Êà––¬Íf‹LšÍåÜ–‹rpppÊpÊfàffÊåÊÉÉXÐàfpfÍfXÍ¡mÊÊÊÜpÍŸfÊfLÊNšÈ‹Ðš‚LaàfÉLÍ–CLs–¬pNÍpLf›´Y©´sP–ÐÍ–CfÏšzyS©L͈›ÍÊʈÊpCجPpf®C܇XÕˆÄ" -DATA 0 ,"ssš—}uˆuaŸ–PLåuNNˆÉÊpÊPˆ‹j›ÐšŸLaPàsNÐN›ÜЩsj¬—›ÏÊjjpžÈLuP×à fuPL››ÐLÉCˆsCÊ›œ›×©ÈuÙjL››š€XaˆuÈjCÜff|fÑÍ–ÂÜÊÊÜÊÊП¡‹ÊÙzª¸CnÉsfPRšaLNÈÉÈÍfNsP—fž NÜÊ®Ü~sjsL–ÍLXzzÐ" -DATA 0 ," CpàWÊ‹‹¡–‹fpWW‹¡ÊÊp‹Üf‹ÊÍfÊ‹ÜàrCÊÍpÊÜLfÊ©àffWÜÊ‹–LpCCCpfff‚LÍ–ÍÍ‹‹pàp‹f‹Í––Íf‹šCppàfÜCÕ‹“ŸCÉÈ––aÈÜÍLÒfÍaL—ÍŸÉCiPšP‹›ˆÐ¬jÈNpš¤U–ppXzÉ–LjÙÜNxÍCpÉfpCPÈ©ÍÑÍÊÊfÍÑÍŒ" -DATA 0 ,"PÈj”ÐLˆuPÈa›YY¥ÉbLCÜÊL“NPNœÐ–ŸÉNÐÈ´–L›ausLŽYu¨ÙLŒjNnššO–j}èÍåWaÈsȬœXÈfaušuÙbNš¬ÄÉLàs´àpÉsÙÄNˆs—CWÍ‹ÉÏi®ppÜ–L¬aaCfšPÊs~nÙ¡ÅÉnÏ‹ÐÈ“NÈ´ÉÍ–Õ¬jÈLLÐÜå‹fzNÙÐLf–f×N–Í" -DATA 0 ," ‹–‹àfWÊÊÍ¡‹Í‹ÜCppppÊXÊfÊÜfÊXCÊ‹ÊLpLÊÊpš–‹Ê¡ff‹fÍÍÜÊÊÊffÊÍXXÍÜpÍfLPåpf¡ÉfL–pp‹fÊÜÍLÊfNLLÍL–pÐЬL–‹à©fÄC–ÊÈLÉ~–PÏLfXˆÐ‹¬›–¬Í‚åpfsWàÈNsͤ–ÊÊÊ®ÊÜ–|bŒšŸfpiÕ¸¸CO" -DATA 0 ,"Ûj×›§ˆuÊnÈpɤp –pfpCÄšÙæŒNŸÉ––ÈNPLfša–—W¼›jå‹Éجs›ÄŒNžuLPåzj×fX—Np ÉNåŒÈÈjÐÈ×Ê›ÈsLÐÈjšfL蚤ŒZ~ÐÐåŸXsÜšÊÊfÊÍfjt®ÈLÐÍÄФˋÊÈÍLLL‚aÈLЧfÈ´b—naÊÜCÜrPaͬ–LÐÄpÕ–L" -DATA 0 ," WWÊàÊfrffpÊX‹‹CÊpCÊåXCXÊfÜÊf¡ÊfÊÊ‹f‹Ê–CC‹f‹p‹p–‹ffÜÊCÊ‹fåX¡fÍÍÍÍÉ‹šCfCfÜÊf‹LЋÐÐÊ–LCÍšÉLÍXaÍÊYLN–CÉ~ÜÑÍLCLÍÊ^aÍÈCÊ“¬ÈssÐNˆˆj–prp¡ÈŸXfŸÊLÞÊÊCÊÊNÈzÈ–ÉÊÍÍRÕmÐn" -DATA 0 ,"®ÕuNbÐÐÐÐNuNÜšÈÍC®ÊPLNNžPLaåÍÈÉ‹LÍÐÊ~j–M›J›PÑÍ–z›”ÙÊXPzsPP¨C›LpЖÜs–CLs×O—›œÐb~©Lz~NaN¸ÈNÐØN¤ZxÄÙpÍŸÉÈ~ÑpÜåfÍCfXÈÉzç°¤Cj›ŸŸÐ¡ÉLͬNÐÍÅÈ‹ŸZZjj®ÜpÜÊÜPf¬Yi–Cafsp" -DATA 0 ," ÍÉC‹Cp‹šfÊW¡à‹CÊÊpÊpXCp–pff‚C‹Ü‹ÜÊpšppÊÊfpàå–ÊaffÍÊåpÊ‚fÜfL‡ÍÍÍ´Ïf‹¹pÜr–‹ÊfÍ–fÍfCÜ–fa–Í–‹dÈÈL–šÑКCCåÜšÍ}L–´ÉÜÍÍ‚Lf›N›z–NšŸ~nNåÊLi–z€ÈÊfLÊÊpÜÊpuPÄuÍXÊŸfÄm©u´" -DATA 0 ,"šLÙÈ–ÄsZ–Cœuuܬ›PåpCÄaÍm›N–sÐÍufLžÊÈ–©ay×É‹`©P´PÄjNœXÙsX›uâÄaPŒÈÈuÊÄu®zuuaЛjNzÈZjÐiPzÐwuaÈÄ¢njCиÏpiÍ‹fÊÊ–špÊPaÈZnCbj›©}žÐaÐÍLÍÈ×s´ÍLPÙžfffÊÜråÐLÍ–ÄårfØN–Ù" -DATA 32 ," pf‹fCÍÊÊÊÊ‹‹Í–ppfÊÊÜfÊÜfXÊ®ÊÊÊpfÊf¡åÊ‹ÊÍ–‹–‹ËåÜfÍÐCCCÜÊÜf–fÍffXÏff–ÜÊfL¡–fÐrCÍÊÊL¬´ÍPÈLXf–‹––f¡šÊ¬Üɮ͖ÄfLj~fLfXXaf–fNÈȬ–NÐÐpÜŸžÈ}‰sÜ×L–Êp®pÜÈÄjbš¬p–ÏÕÍŽÈPá" -DATA 8192 ,"NufYssçÄjuPœÉÊÍppÊpiÐP–ŸˆÄsyjÈLCËNN–ÉÅ´nju¬NÈWÈzzœus›PsÅÍÉsŒ ÈРÜØÑÊp®NMi›¦sÙPˆÈÕLN}n¥~sÜ©ØÙ›ÍPjŒŒåÏ€mÑfÊRÍÊ¡ÜL©àCLN´›pšçuÉÄmtLÐfi¬Èa––LÊL›nÜÜCÜpÊXŸÍÈpÕXfÉ~´–s" -DATA 8224 ," pàff‹CfßàCfÍfšpÊÜXpÊÊCfppXÜCÊÊÊCCÊÐÍfCL–ÍššLLÐЖfLCÊÊCf‹ff–ffÍ–ÏÉ‹pppÊÍLÈfšÈÜÜÈCpX‹ÑÜЖÜÊXf–Ðf›ÍP–ÉpšÐÍfЖÊ~LC¬ÐCfÍfzЖ‹ØPÍОÊfCzNÙ–X¬ÉåÊpÊÊÜWÅzyLÍpÏLÏϸlÍÈ" -DATA 2097152 ,"k¬´PsÙaP—LˆªXCÊpÍÈÍLszfLÄšž ÛSɬÍzLjnšjujˆpŸ›xÍÊÈÈÄ¡ÄjÜjÈ©ŒèfÙÍap‚NP›jš›aXLu›Éœ›¬PYPК”Ps×f––u~CyfXÍŽ¸CÊÜrXY©CÍÐÈ›ˆ©«¸ÐP…§ÍCCufÍÉf–XÐpÊpÍ´Cprfá–P¬ÍfÉLÍÍÐ" -DATA 2097184 ," wÊpfpÊpffÊ‹Wf–ÊåpÊfffXCfÊfÊ¡XfpCpÊLÈÐÊLÊ–ÍÐÊpf‹fÊ‹pCC®ÊÜpfXÉpXfÑfÍCÜ–ÊL–XašLzfÊfÊÊfpÓ–NŸŸLLÈ®NÊʈNN‹XÍ‹ÈfPÊfÏX–~Ï›CÊÍÉXppXfprLÈÊåÏÉZªžCf“ÑXÊÊÜpÊjN£NLÊŸ¬É¸iÕ›nN" -DATA 2105344 ,"ÉÉnaP¬ÏNiž›©ÅÉÊÊfC›L©NÐÐÈÉÈÉX}Lz›—LÍN‹›ÙŒˆ—ËNšzÈÈaÔÈÐœNCÄpänNLÄbnÐÊXL¬PLyj¬œjÖÊÉPCLfÈÈÍf´È´ ‹—ÊNOÄLLNŸfÍÍŸLfÜÊCPCÉÉ›jL¤çtˆPsu  XÍn–fLåfXÍå–勬ufÊÊf×sÈPfŸÙNPPN" -DATA 3158064 ," ¡pàpfààÊ–C‹ff‹‹ÊÊåpÊpCffÜ‹fÊpÊÊpCÊpLCaLf‹ŸfpÍpffÜåÜÊCÊÊppi–ÜfÊÊåÍÊš–L¡ÈÍå‹ÍNœppfpp––š–L–ÍfÍ–š‹šf–Nfsʬf–LÍÍÈÍÍC‹fN–Ê–fÍbs–ÈÐsNLCÍLNNŸåf}‹È‹Ür®ÊÊOÍPsfpÊ~iÏÏÍÏÄ" -DATA 3159856 ,"К–LNÉjÝzNssLCÜÜL`׬崋ÐN‹ÍàLLaÈL––sÐPLsœyNשPs–PLÉsNsàNÊÄÍOCÄYpNC‚ÊmO›unš¬ËÈPjuNf‹¥j—ssŒjÐušÄu¬uj€–ÉfÉN©LLÊ¡CfXCÍLÊ©jÐ}nNÐÍjçЖ–nXÜÐÜÊ–fRfÊiÈfåå®Xs¸È–LfNÑ´LPN" -DATA 3945001 ," pÊåpàÊff‹ÊfÜ‹ÊfÊÊÊÊÊCÊʦfÊfÊXÊCÊXÜÅ®¡pÜffàÈaÍC‹ffp®ÊÜCfXfXÍÑÍfÊÜÊf~aÍp‹fff–ÍfÜÊCpÊšffàpL¡åLÊaaLÊÐpÐffCp–faÉpXÉÊsn×C›¬©PŸÑ´È¡sRÊp‹Y´N§N‹s–È–ppprÜLLÈjÜÐzÉÏÉXLÄšœ" -DATA 65793 ,"uu¬‹¸LϬaLujLÊÊÜ¡ÙÐuNšNNÐÈåÜjLLPa´¬páȨLPNÐͤšf–PÙÊasÊÍÈjŒÊÉCÄÅÉ›ÍufÜzäkunsPÄO}ÙœØϸwÍÈssN©uÛ§nvnuÛiL‹ÕÕ°ŸšiÊrp®ÜÜYž–nȈàfi~u¬ÉfÊXfœPff––CÜCNNs®®fÍsЖYŸ–NÊ´Ðu—" -DATA 65825 ," fpÊpÊÊàfàpÊpÊXÊåÜÊÊfÊf‚frXp‹ffÑʦ‹LC–‹àš––p–‹ff–fÊCÊå‹f‹XfÍÜpfÜf‹ÉrÐÊ‹–Ü‹aÊ´ÊÜCÊÊ‹fåa´fÉ´LaLÐȬÊÈšCåf¬z–pr–׋ÉLsÛfÉåPNÐÉPNLZjÊppÍ›}sXf©ØNzCpp®Ê›uzXš–XÍŸÈYÍÍN" -DATA 861953 ,"–ĚʖfL~~Œ~ÈÈÜppYN—s–ˆLWNÐÍaaLÜ–~ÐÈÈNLÈÐa©ÙÉbÈ›Œuz´m–—LP—u®å´ÉȬs×pÜjšuuuÈÙ¬uXÜpf›PXsÉÈ`PLNÐsЈ§ÈÕfÑÏÍÏŸsÈÜpp®åÜf×Òž¿tÅjŸ¸LLÅŸÜwdÐCœCÍfpfaa~PÜpÜfN~ÛzÍ–ÍÐПœs" -DATA 76577 ," ÊpfÊCàppÊppp‹‹C®ÊCpàÜÊÊ‹ÊCÊÊÜ‹f‹CpÊXÍåfLf‹pffÊfšÍ‹pÊÊÊfåfšfX‹–Üå–fÍ‹–ppÊpfa‹àåfÉCÜC–aСÍLCÐÐÐÊfÊÊfÉLfPÜCffšÍšafÍ´ÄšaÈœfç—fNNÊrÊrsNstfÊNzˆÐÊÊpÊÊ–ÈnpNXÍÍÑLLXpXÏ" -DATA 3096353 ,"ØLÍÍn¸—sNf›¥pprLf͸ÂL×ÍÈ–ÍNPNsfÍLÉfXÐN–È–È›Ùsf–i‹ÍaÕPyCLzá rpЬ~s×NLÐuР¨ØP£LN jsЖÛNs‹¼ssŸPÈsŸYaNfÏ–iÉ¡ŸLÈÍfÊÜÊÜfÜ–…y¨—ÐÀŸX‚ÈaffÉÈLÍzÐaÊpÜNЛÊCÜÜLLPšÏÍЛ¬ÈNC" -DATA 729403 ," ÊCpCpÊppWfàÊpÊppCàfÜÊÊÊfÊfXfXfàffÜf‹ÈfÜšfåå–ppÊÊÊfCCpppf‹‹fÊ–ff–Ïff–‹ååLL‹LL‹LÊšÜÊÊXšÊÊšfLLRÈÍfCÊÙÍpÊÉ–ffåÉL}pašÉÈfÈrÐÐPÐÈÊOžaÜÕÏkÈÄž‹NÍÉ›sÊCfpʧÐÕp©Üf~ÑÍ‹ÍXPb" -DATA 459033 ,"PjÄ©èŒÅNšÉNCÊpåÑ‹fŸÈXןYÐÈaÍNLOÛfa‹Í¥~N–ÐLN¬sLÐÍsœ–ÈC—NN›Œ–‹Í~žus¬‹nasÀYjs›zbPMPNÈ–a“PaÈÄY–ÈÄ–j×afšXÍŸPÍÉÍÍÊÜÜfÊfŸ~› –Éf¬´aaiÐLf–ÐПfrN–nušÜCŸÍÐÈÜNÉÏPÈ—zN—" -DATA 70913 ," à‹špÊp‹fÊ‹ffpCÊpppÜ‹fÊfÊÊp®Üf¡Üfpf–‹pÊÊ¡fWp¡–¡ffÊÊpÊåpWf‚‹XrÊffÍ–ÜÈfL––W‹–W‹ÐCÊpÊÜfffÐC´ppNšåfšpšÊÊÊffNL‹fœš‹š–ÍPÉК‚NCÛ´P–fÏÊpŸÍ©¡XCšˆÍ›ÉCpÜÊÜNsÜNPNfÏÍÕÍiÄNP" -DATA 2695437 ,"¬›RPpsÍÍÐLPCÜC©ÐšÕ×XÍ––‹aLNà~Ѹš …šåaXžN~X‹~OËLNPÉÐÙ–L}PÈLXPzsÑÜÙNzsXÈŒäL¼NCÍ–¡NN›NN´Zœ–NšÔš¬œL›ÈuujŸX‹ŸÏyåÜÜNCÜppÊÜX蟥ÍиiaL–Í׬N––ÔfÊå›Pk¬L‹Ê‹L–iÐLÍ€LÊÐÉkÐs" -DATA 467217 ," pp‹ÊfpÊp‹CfàfÊÊpfÜf¡CåCÍÍÍ‹ÊåpfÊÊàf¡‹àÊffšC‹–‹ÊàpÊpÊppÜfÊš–ffÍiÍfaÍf–Ê‹–CpffàrÊÜffLCfÍC–åÍLÈCÍÉsNa¡C}NšÉÉLLff©šÉ–LLL–sXØÅsaX‚ÊrCÈPfp–fPšsPCfpÊÊLÉÜLP‚~ÜɬÉğɈ" -DATA 81713 ,"©¬uÙœ´zÊsrÊ®ÜÉ–SaŸÈfLÐÈŸLÐaPšÉNL¥Cpf®ÐÈÐËnsf–È¥©zÙ´fÐjYN¨pÛCЖ–ÅjÐP´Ü´kjbÐs›bPuusNuu€PXÐЛxÈÉsPLNfXÉÍŸ¸ÊŸa–“×ÊÜCP®ÜÍ›ÐC©ypÊ–ÐN®ZÜ€ÍP‹ÊfP×YÍLÊÊpfÊдpÍÈÍN©sP¬È" -DATA 471321 ," ‹–fpÊf‹ffÊpff®ÊàpÊffpXXfp‹ppà‹ÊfÊÊÊppCppÊà–pšÍÊfpÜpÊCÊffÜXÊCfXfXff¡‹f––ÏÍ‹LLLf®CÊ‹àÊÊ‹ÍfÊŸp´C–ffÉCÍÙÍÐLfÈCÐk–LÍÍÍÍzŸNsfœÊfC®f€‹¬ÊL›šaÉfpÜfÊ‹ÍÊÉfP–ÊrͬÍÈPÐ" -DATA 1785649 ,"–ÍrPÍ›åfapÊfff¡LpåÍÈ–ÐÈ–Í‹LÐÉÈšÊϬaaiu©LØ—sbÙuL—Üås¬LLˆLå~XÐÛNjCÍ—LXÍÊfjuj›NÛšÈÈjÙLs¬sÈNLXÉÈaYzuPLLm–ÐÕÐÅÕÐCYÜPsLrpCÍåÜCÍäpϸsNWåXžfÍååp–Ÿ—țɖCÜ®ÊÊ~Ðsf‹ijÐLs–C" -DATA 471841 ," ‹ÊÊCà¡ÊÊp¡Êf‹ÊÊrpÊ‹p‹ÊÍCÊCÊpÊpÊfpÊppà‹ÜfÊÊ–‹‹–fåpÊpfÊfÜ–LÏfÑXŽfÍfpÈÊf––Í–Üa––pCÊfLCC–fÜpÊÊLÍXÏ–‹ÊˆpfÍšNNÉaCÍ–NN~¥L–СÐ×––NfLåÊLà‹åÊLÕjPÜCfÊCfÈÊPÈ—fLLXfŸÏÈPÈ" -DATA 65801 ,"©LšÐnPsÍÜÜÊa‹N––`–¬šNa–WLa›Éj©f¤œÉN®Éu—ÈçŒjœjÐjPÅן´jЪLCpuÐkPnÍÍškªÊš›NPÈÊ›us—–LyPNuZP§´sàj®ÈuN~ÙfÍXÑÍÕŸPÉÐfjÐÉprpÈÙpfÈy–ŸŸÐË~–ܜʖfÊÐÜNÐÈL‹ÄCÊpåÊfÈÈÍaš‚ÐÙNд" -DATA 1650987 ," fàpÊÊÊpfpÊÍpÜp¡f¡‹‹‹ÊpfÊÊfffʦCCÊpÍffÊÊàÊšf‹Ê‹fÍpÜÜÜ®àÊÍfXÍÍfÜåÕp–fÜfp‹XfÍffååCÜÊf‹ffÜ¡pÊpå‹ppXÐfCp‹p¬sašÊ‹ÈœÍLÉLfLÍLLfxCÈfLÊCÊÐNwfÍÍ…–ÍWÜXÊCnCÊssšÍXXf´ÏÍfL" -DATA 2965297 ,"ÙåPÊ ‹ÉÍÊrÊšÀ‹‚j¥¬Ûu}}–Ê—Cis~–šnMÈiur‡šj›ÙÈuÊXu››Pž–Èz‹NN–j| ´fjfkbáfO×sžNuauLšzPjLž PNŸÈNàÍÈÈÅ›pPŸ‹LÏÙu–fÈz–ÊÊàÜÊjååfÕÏÕ—b›pLjfÊLÜÈf×zÛÈÉLÊÊÊÊÊP–LÍÐÈjs~PÉa" -DATA 1511681 ," ÊÊp‹p‹‹Wpààfš‹pÊÊpfÊ‹Ê‹‹p¡ÊCÊÊÊfÊÊÊÊÊÍ‹f–p}X‹––Í–pCprÊfÊr‚LÍÍLXLŸ¡ffff®–L‹fXÉfÜpÊp‹f–ÊpapÜÈÍfL–ÐfÜC¡Êf¥š‹–NP‹LfÐaÜÐfÍffÍ––œL´fppÜ©¥CÐyafÍååÊÊÊÈCLÄ´‹–LÉÍfRXiL" -DATA 1646875 ,"jfÙrÍŒÄÊÊpÈNsÄŒ–åR~P¨ÉÉÉÍuZÛɈˆP›ZˆuÛP¬ÈÉss–Œ¨jPÙÛ©OP›PN—fPz—´ÈufÜZpr®¼u–jÛˆbuœuȌЛZzÐLfОȈ×PÉLNLLÍÍ–ŸXå´Ca¬–LYdÊX–LCÜÍÕ¸ÕÍsœfÉÐåL–ÍL–NNÐX–apCfCÊP—´L¬É—sLÐPY" -DATA 78141 ," –ÊpCÍppfpÊpÊÊ‹‹pÊà‹fÊÊpfpÍ‹fÊÜfÊfpàpCÉÍCfCWÜÍf–‹fp®XÊprpfÉÊfšÍffÏL‚åpÍp–ÍÜfif‹pÊÊÊàÊÊÍLÍ–pÊ‹ÊLašßLÜ–ˆLY–ššfÐPÉÈš–ÊÉff–€ÉÍÍLfœaåCÊÉNÊš‹ÐÐLZÊÜÜÊCLÊzÉLf–ÏÑÉ͸ÕÍL" -DATA 68865 ,"›ÏÙxɨepåÊnnpÍOyCtÍÙuœLÐXLZ‹jÔNjÛuNpÈLØ ~jÉÐÐjŒuÄž›NjnÐNsz–PÕv›Ÿ®pX®fžØŒŒ›sjZÙNOŒ›nuØanåfÍNÛsͬ¨›ffÍÑÉšÍÄÙÍÊ©pÈÍÐåfpœÍfÜNPЖ~~‹ffÐXÊLpf––f–LsCpÊpÊÍiL|LÍ––~XÍ–" -DATA 332045 ," ÊÊÊCš‚f‹‹ÊÊpÊÊfàfÊfpÊppfÊfCpXÊÊpÜÈNszLÉÍÍfÊ‹p‹ÍàÊpÊfXfÍÍfÍXff‚XÕšCå–LÊÊåp–aÜršCpÊÍÊCÍL––Í‹L–pLÈLa–aLÜžaNx–LˆÉfXÊLàNÉÉÍÍaÍšLLÊffLYåL–ÐÈ´ŸÍXàÜXÜfÉÀNÊfÍŸÏf–©ÏÈP" -DATA 467743 ,"uO~ÀÈÉ®ÜÜCœnsLÍͬOи èO}}f–f‹NÔ–œLÈfmNŸjuÄ–j Ä ©NjPÐPNÙuvYЮjÈšPZ¨pÜšfÐjÙu©ju›Ä›Ùuj Œ›ÐzNЈїĖ¬LM–aÏÑiŸijÈ–œÙzPŸa®ÜrÈsfff׈¬ØNÈÉfCÜÊj‹ffœNÐfYCåCpp–ÐÑ–LLÉÍ–ÉÉL" -DATA 80673 ," à‹àpÊ‹‹‹ÊåÊffÊÊprpÊÊfCÊÊÊàÊÊÊÊp®pÊÜC‹ÜÉpà‹–fÊ‹–‹pÊÊÊÊffffXÍ‚X¬ÍšÍÍàfffpfÜÜÊ‹pppÊÊšCpšpf–iÍWåff‹–¨L‹‹LÊaL–ˆÈȬÈÈÈÜaiÍXL–ÍXaCPåÊpLåÊÍÍšŸÉ›CÜÊåÜÍfØ’ÉÙ–XŸÍЖ~i~f" -DATA 4144945 ,"ÉX~Ê–pÊÜÊNП›–ͬ–›ÐÛn–YÍ–af–Í–å}u–ff–Ðß–NyȬ¬j}Õš——¬NnÐsjÐPÈ£f~NLNPÐpzfŒjSxZuŒNPuŒNÛ~šN´ÈÐNYžÐzs“LÍ–‹Ê¡žfÍuÈLÍf–iÉaÊåCÜ›z–fzaסNLNf®ÊL›ÈÊajiœÉŒCpÊÜrz–sLfÍ–LšLz¬" -DATA 2830609 ," ÊÊÊÊpÊÊàÊÊCÊ‹f‹ÊÊÊfpÊfÍÜàfffXXXÊÊpšfÊ‹ÍÊÊrÊffÊ–ÊfÊÊf®ÍCffÍÏÍÏf‚XÏÍfåÈÈfÊÍffafÊÊÜCpfpC‹ÊpàšLf–Ír–šf‹–LfЖÈLСsÈÐÍÊÊaÍfÍÏCЖʚLpÍŸ“C‚LLLNÈCÊÊpÜÊCÈÉÍjNÜÍfm‹ŸÉÏ´Ÿ" -DATA 1784593 ,"ÈÅL×ä‚CÜCÉsÉWL–––—š‹LÈÉ‚ÍÕÍfÊ–sÉsÉipÍsNNuubÐ×vn v¤›œ¡^“¬NaÈLNœX¦ÙPs–fup×®›œPMÙÙON~ŒzNP¬L›sÉ©ØËÐsåÍ–¬Õ›LYXŸ›œÛÊO–L¥NfåÊpÉ|ÊŸ´LP~ÈåfpÉsN¬œœNj×ÈÜffÊXÐLjCa–Í–ÍÉÐz" -DATA 463127 ," ppWÊÊ¡ÊÊpCpfÊ‹‹ÜpÊpp‹ÊffàfÊÊÊpÊÜÊÊÊpf¡pXfff–àrppCCp‹ÊÍX‹ÍÉÉ‹X¬Ñàà‹¡š¬‹š‹f–àÊpfÊÊpÊ¡špÜÍ‹pÊfʚ͖¡–‹fÜLÍÈÉ–NÉ¡f–ffÍÊfLLfrÈfÍÜåfLÜLaLÈX´ÊÊfåÜÊÈÊaÉ–iÍÍfLÉf©sÅÈ" -DATA 1128255 ,"~sÈœWrÜp¥NÐÄ´‹ÊLvЖaÐÍaš‹fLÊLfÍpÍyC–Í¥–sN~ÈPj×ȬL–©pžÐ×ÐɃÈÈÄO©ÍÐCpC—®fZP~NÐP›—uäÑ×sNNNLÐPÙ~uØj¨nNÍ–ÕLXŸPMPsp‚Ð×LÈPÍpååNsfÜiÈNNÐ~CÜÊNjPÍX›N›NÐCÜfàfÈjÈŸŸiPLÉÐN¦" -DATA 81725 ," pppÊ‹Í‹pÊpppÊ‹ÊfÊ‹pÍ–fXÊÜ‹ff‹ÊÜpÊffàÍÍÍ‹ffÊÊšÊÜfÊÊÊÊfC–f–XfÉfffÍÜÉL–faÍÜÍ‹–ffÊfÊprÊpXÍ‹rfÊ–L‹‹XˆÈša–ÊLf¸LPàÈ–‹––f‹Ï‹špf–ÍPÍ‹–ŸÊÜÍfÍsˆÈÐœfpÊÜÊCPkš–C–šXÉÍÏÊÕ¬aa" -DATA 466697 ,"ȸѰÈÊrÊyNš––ža–ÐLÉr––LfLaàÈLå–fNLzff¡ÐÍsašÈ–uuj ÉaMP›×›aNsÐxŒLÈÐÊ›CÜ–ÜLuŒ—×Ö´Ls›PÈvPÛÙÙˆasÐ×N—zn—ÈÛ–iÑÏiŸÐˆÐfsÈÐNÉ—¥ÜpånPf¦›©œÈÉaÜÜ‹×LÐNÊÉZya—ÊÜCÜ–sj–fCЋN—fÊ" -DATA 81709 ," PÊfÊÊ‹‹pÊppÊ‹ÊpfÊàÊÊfÊpÊfCÊfÊÜ‹ÊpÜÊÜ®Êp‹‹f‹Ê–ÜCppÊÊÜpÜfpX‹ÑXŽÉÏfLÍfÍÍfÊCXfÍpÊÊÊpÊfÊp––åÍffÊfÜLÈf‹W–‹NÐLÐÐÍÍÈŸ–fÊÊÍ–Lf‹arÕÍfÈ×ÊÊåCmˆÈs–ÈNåf®Ê‹žSjÈfÉs–å‹ÏÏ–ŸÏÑP" -DATA 4010767 ,"“ÐÏ–C®årÉПåLf–ÐJ‹Ð‹ff–nœÊL–Ä–}–Ê–CrLjÍsP‚ØZ×ÍÐusČͬjP—Ðœ–L–ˆÙœ›b–u®CÊCnЗŸu©PØÛÈun—jÙ×kaˆL–ЛNnÅš‹iPLfÉfÈLÜÐaÍÉfÄipÜÜÍÈÊÊÜNs¥Í–ÜpaÈašf~–ašs—ÅppWCLÙsaLÜfNËåf–" -DATA 196871 ," pÊÊfpCppÊÊÊå¡ppÊ‹‹Êp‹ÊÊÊCÊf‹Xfpp¦ÊÜÜ‹fÍ‹Ê–ffÊCp¡åÊÊÊÊCrÍfÍXÜÍfÜLNš‹–ffCÊf–XCÊÊifÍ‹åLÊÜpÍ––ÈL¡mšL©afaÍ‹ÈÍПÊLL–ÍCfЋÈf––fLpCf–‹pÜÊÈÈ~NȬ´àf®fÊz©›ËÍÉÜÊf–ŸÏLÏN¸" -DATA 80147 ,"L–N›ÊfrNȬšÈ‹‹pfÈaÍ–––ÈÈLÐkÐr‚‹Èj–fL×Lu—PÙ”Ù›LN›ÉĈÐzPuuÐszjœ›ˆÙÊÛpÊÜÄO¤ÅjPÄsjnNN›Ðkj}ÈáÐsujç©uЀ˚‹ÈÍm}Ɉ€È–PÐC´ÈØÜp®LŽÜÊzÄPP‹fpLšNffÍÈÈÈuœfÊÜÜXÍaPff–L´®Ê–È" -DATA 331529 ," pCppÊp‚ÊàpÊÊÊpppÊÊpÊfÊpÊÊ‹–XfÍÊšÊÊÊ‹fppÊfÊ‹fp¡ÊÊpÊfåffC––ÍÑXfa–Í‹šf–ÜXÍš‹pÜÜÊppÊp–‹pf‹ff–špÈLŸ–ÉÍÜ‹WÍŸfÍÜppšLCfpÐpL–åfXfšiÍCÜÍwpÉÍÍ͸pÊ®pÜpÉNȬs–ÈfiÉŸÑÉÉŽ–" -DATA 2176831 ,"NÍÈÊÜÊC©ÍÈÉ–ÐÐàÍšNÍ‹–ŸÑÍX–É–sÙœas–fÐNL–L›ÙÛ–‹ÈÐÊ~©jLœP´¬ž––ÈœLz–N§L–ÊÍwzÐjujÙMu¬nsÐusLÕ€LaanPsj~ÚÐL¬ÍÉÍNОɋ–jÈsÈCNÙP¡ffjÏfÜbsÐsÊCrfNNfÈ‹fNNOPÍpʬNÈÍrÉ–dÍÖœb" -DATA 71999 ," ÐÊ‹p‹pÊÊÊp‹f‹ÊÊf‹ÊÊÍÊrffÜX‹àfXXÊÊÜr–‹ÊpfpffršàCLpdÊ‚Ê‹‹fÍÍÉY‚XXÍ‹LŸWffå¡–ÈCÊpfC‹ÊpÊffÊÈpÊCafaÉ–Íšf‹¡ÜrÍ–àÊÊLf–¬ÜLÍf––LfÍaf–LXÍfà¡fXXÊÜÈÜÜ‹ÜÊf´ÉÈÉ–a©ÍÉÍfŽiŸmLR" -DATA 860433 ,"–ŸÉÊpÊ–Lzš¹ÉÐÜÐN©ÏÉŸÐNm´ÐaLZNÍèœ}š—j٩ЖŸÉÛˆÍÐLÐN}×NÄsaa‹šNaf›NOÙNÐÉfÜÉÊPÀOÄsNŒZל¬N›Ù äj—MЈuäŒON›ÏšL–Õ–saNN‹¥ÈÐ×f´ÈsÈÜåppffusÛåpÊ‹“–‹ÍN–N–ju‚ÊpÊÊNšLLfNy‹CÈP}" -DATA 605489 ," fpÊÊÊÊppÊÊÊpfÊÊÊÊpÜÊÜ¡ffÜÜÜÊåf‹pWåÊffšLÈfp‹š–¡ÜfpÊrÊXfÍÍÑfÕÉÜÏXÍЖÍÈ‹LNÜÊCš–ÜpXCàÍCàåff¬ÊÊW–f–‹Í––a–ifÍ‹––fpW–fÑÜrffLaÊfLfš–ÈÊXÊÜÊfLÊXf–ÊÊåa¡È~‹ÉÐÄLÏXfXϬLÂnu" -DATA 999203 ,"ÄPŠpåÜžÐLÑšÈLÍÈÍLfÍÍÈu žÍPšyYÙv¥‹jY›a–‹N–ÐfXOœzžz~N×PÐL›Ùs›jPPÛ–ˆ›Ð©®f¼¸ÉÈj›NÙNœsŒNj××–žn©——nužj›fÏ–Ð|´iŸœÍf¥×Èjršzsœpf®XCfLáסÜÊfÐ×L–fÍsNœNЋÊWfʦNaÍLÐpÜÐÍsÈ" -DATA 854279 ," Ê‹ÊCÊÊpÍpfÊåfffÊpÜ®ÊÊ‹p–f‹ÊÊÊÊÊÊÊÊÊfÊÊf‹šÍÈLX}pÉÊÊÊf‹XrÍÉffpXÍÉXÍLàaLÈÊÊÍÍXÊÊffr‹p–CfffXf–Íip–p–f–fÊXf––ÍÊÍ–‹ff¬W–f–pfšL–LLÊÜfååLÊ–f~|ÜpÜÜfÉÄi–ÐÉÍÍÉfÜÍ‹XfÏu”" -DATA 860959 ,"ȈÊÊÜ›ØÍzXNaNNÍÈÍ¥äÍfpœÉ–¬LLœiLLsÈÄCÈ‹fÄ–P¬P šYœÐNЖÄÔaœjNÉu›Èsšš–jbnå‹ÊjáÐzNL—sLˆPÐÙœÄPˆPÙuÚ›œšPbZÑÍÐÕÉ€–N–ffÛPÈLÜ–ŸP›påÊ‚ÂÊp—œpåååpLÛÜÜfzÈ´uÈpÊf®fšLÈÉ–®fÈPaЖ" -DATA 1785661 ," È–¡p‹pàf‹ÊÊp–ÊàÜf‹Ê–ÊXpÊÊfÜÊXÊÊpppffÊÊNÕfšPYšfLÜpfC‹ffffffÍfXÏÓšffiÊLXÊÜÍffÊÊÊffffffffåŸÊaf––fÜÍL‹Êp‹fp–ÜXÊffp–‹Í––f‹åà–´p–ÉÊ‹f–ÐLÍ–ÊNÜ®fÜÜfÊLLN–a–sfÍXfÍ–fÉnj" -DATA 854283 ,"©aÊÊšZNJÉÐÈXPÈÍf–Ðs–ÊšLÐLК¡‹avŸÐsÍsL–ÐzPNNLNL–z›NКNPÉN›NNL›—jzNujprÊП¥N››k¬ÐдˆsŒœÐspOØPœsÛ›y—–mÕÑÉÈsÈÜÜÐs£ÊfÈNÈNp®ÜNŸåÊNkCÜXpp‹Åpp‹L›N}LCCffÜNÄuŸÍÜ–Ðœ}z~" -DATA 66817 ," ÐÊ–ÍpÊ‹àšfÊÊÊ¡pÊÊÊÜXfrCÊÊ‹‹XÊpCpÊppÜÊåpL–ÉLWrÉÜÊàÊÜfàÍfÍffÉÍfš‹ffffÊÜrå–pÊÊÍXf‹p–f‹f‹fÉpffÜÍ‹pŸ–CÐffÜÊÜÊÊÜÜàXÍpff¡pp–L–fÈCÊÜfÈfÐɚ͖CÜppÊàuȬaNšàf‹XYÕÈmšç" -DATA 4144929 ,"ÍrÊÊšÙКafÊ´ÍÍдzšÈL~aÈÍsÍfN›PLf‚NŸppÈLÐÈyN“‚œsNLukjš´s–NÍ~sÉÈP›sÉÜPNfÊÉssÐzÈœMÄЩu›uÙЗÈk×£ØȈssPÏÍŸÍiÉиÈÜLÛsØ®Ð~É…sÈpåfŸXÜ®pÜrÜ®WfuÊffPÈaPjCÊÊpåNjÈÜp–ÉNj—jØ" -DATA 67845 ," ÉLpC‹ÊÊCÊàšf¡ÊpÊÊ‹åwÊÊÊÊfÊÊfp‹CpfÊpšfff–ÜЋf––ÊLÊÊÊfÜXåÑmff‚Xi–ÍÏpN¡à–C–ÍÍfÊÜÊÍfÊÜpfÊfpÍÊL‹f‹ÍL–ÍLffÐCÊppÊåfÊfÜÊCp–ÊåffÍfÍÍÍpÊÜ–WfåÊCÊfXffÊpppœšCLÍÉÍ–XÈŸXÜÊ" -DATA 604449 ,"ÊÊ͸ÏÊÍXšÊ¡Í‚žPpjÈÐÐf–a‹¼isNNjÈÐË–s–‹f×ÈЈÐsÐÐN››PÄ©s–ÍP¬PÈsšfNÐyxjžÐppÊN´×œLs›LÐj›—  ŒašLsujP¬Ð‹Nii–iŸÍi~rfÉLÈÍÊLÍ|ÊœÐÜÊX©ŸåÜÜ¡ÜfÜÜf}fff¬aÉP£pf®fL–}‚fpX¥žNsk¬" -DATA 4143935 ," ‹‹pʈCÊÊfÊ‹ÊÊÍÊÊÊÊÊÊÊfàåÊÊCpf‹rÊÊpÊÊCCšaXPàf–Êf‹ÜX‚fXXfÍÍÍfL|‹råf¡f–ÈXpXÍ‹fC‹ÜXÜW–fÜÍCLXàÊÊLfff–͖͹ppffÊfÊ¥ÉNL‹ÜfÊfffpffrfpÊåLÉ¡ÍÊÜLL¡Êr¡puj”sfs¸fp–ÑŸÉ“ÕÄçO" -DATA 737083 ,"œÊÊÍfÍÐLÜŸfŸWLÐLfÍÉLaÍÈ‹–pÊfÜÜaLœÍNÉɨÐYÈfÍLŸ´s¥ŸÈ~jÕÍfX–¸–ɬNNN–ЖpWÍåÊCÐsPÄsÈfÉ´zèsÙÛ uuujjj›ZzŒœšÍÏÜÉÄÕ–šÊŸÈÈœff–pÐPÐpÜÜXÏC®ÊÜÊpÜÊXÙÊåfțțœ¡ÜÜfÜLNà¡ÊPØjPjNN" -DATA 735505 ," ‹fÍÍpÊÊÊCÊ‹fpÊfpÊÊÊ‹fÜÊC‹fÜfÊÊ¡ÊÜÊ‹p¡àpÊf‹‹‹šˆÊÊpppff‹–XÜàfÕ–ÏÍ–f‹ÊLf‹pf–fÊÜÊÊ‹–på‹fpÊÊÊCffÊfÊLfCÜÐÊšLpÊCp‹‹CNàšffÊÈNÈØÈÈNÐÍCrf–ÍÈPÊr–ÍÊÊfprinånÍ¥fÊÍÉÍϬÕмÈ" -DATA 67853 ,"ÑpfÍf‹È‚j“JfLÍÍf–ffXLÏÊjÛbjjfÊN‹NПÉÊPÈ–ÈÈÄLLsLnˆÏÍu–ÉÐNP~X›Ð~ØNЗˆL›afÊÊL›´ÈÈÐÈÍ´Ðɬ´jNNÐÛjMÙÄÙÙÐPiŸmÍÏÄÏRNÕÐLÍaÍ~—s¬ÊÊrå‰CÊrÜÜÊffpNÊ®‹–à×ÈsC¡åfXLCffÏÍ~zPŸÉÐ" -DATA 2834237 ," àCÈÊw‹f‹LšCКpÊÊ‹ÍÊÊÊÊÊÊÊfXfÊÊCÊÊÊÊàLš‹‹fXàfffÊpÜÜCCÊfÉÏÍLÉÏ–Í––Í‹‹‹ÊpÜfpÍÊpÜÜÊ®rÊÊÜf‹–fÜC–rLÊ‹Í‹‹P–p‹àppÊ‹ÊÍÐÊÍNNNCÈÈWj¡ÉfCfÍsNÈŸNNˆÐCpppf‹NËÐf‹ÜÄC‹–Éɬ¸¬¡" -DATA 998705 ,"CXffЖ͟€LLLPÈs–ÈLÍaL¡Éf–r–‹ÈÍÍzЛu×Ü–aœsjÐfÙÍLÐNœÈÉÈ–z›ÙuÏÈÈaNN´ÈubuˆCC›Õ´ÐÈNLÈN—Ȭsz¨usÛœO›jjÙNL–ÍXŸ~XYRZfɈPpÜÈÍ~zœ¬åÊÊÊm›CÊÊfÍpÊÜÐÊrÊàÉN~jÊ¡–fœÈp~ŸŸ~L›ÐsÈ" -DATA 998185 ," ààpÊÊÊp‹fÊCf‹Ê‹‹XÊfffÊÊpÊpÊÊÊÊÊÊÊ‹‹CfÊ‹ÍpCšfÊÜÊpÊÊCÍ‹fiÍÏÍŸÉÊNÉfppÜÊ‹Lf–fpÜÊÊÜffÊÊff––ÍÜCri¡f‹Í–fÊ–fÊpÊåƒpÊfÊÊf‹Ê®‹–p‚LsLÊp‹–Ly–ÍPˆÈ×påfÊÐд}W‹¸Õ–‹LLŸf|š×" -DATA 73515 ,"fÊÍzàYifŸLNw¬ap–ÈÊÈÍÏÍaÈfÍN‹¡‹ÉÍ—–ÉÜf‹ÐÐbLåNa–§yЗÐp¸f›NÏNÍL¬šZaÙNuf‹‹~~LNÍLsȈaNPžsЈȗY©©uÈ´›šÊf–ÍX€¸ŽÐÊÍœLp‹ÍÈšÐNÐÈpÊpf´ÜfÊfÊÊåXÄfÍfÍÍÐÐÙÜÜÊpCÊp›ŸPPP—ÐLNÐ" -DATA 856327 ," fÍ¡fC‹Cp‹àpfpÊpÊÊCpÊÊÊÊÊÜÊÊpÊÊÊÊCpÊpCŸp‹C‹Ð‹šÊpÊÊÜCÊÜfÍÍfÍXX¬ÍÏXÈf¡ffWÊÜfÊÊfÊÊÊÊÜXÜå‹pÊfpfC–fÍLÍLÜ‹fCÊšp–ÊКÈLšÐšCÊÜCW‹f‹Í‚ÊÍfNÈL~N¬sNÕÊpÊ‹zšNLP¡Ê‹w–Íf͇Ϭ~àÊ" -DATA 76049 ,"ÊpfLuÉ›LLÈÈXaÍŸœÍŸÜÍifåWf‹Í–LÍ‚ÐsNL‹ÊaLš¬ÉLLÍ~ЋЖš–ÍÉ–~sÉŸ—PÈsÐÈNÙN¨È–ÊÊLÐÈPˆ}‹aa¨X~LÐÉžNNsa–ÐN©ÄÈX͖͸ÉÍLÉfÊ¥›fÜpPLдÙå®ÊpfЖppÜ‹C¡fЋffNNœÈœ¡fÊåpfCrÕÉœs›PÍNÐ" -DATA 865057 ," ‹ràPaCX‹ÊpÊàpp‚ÊpXÊÊÊfÊ‹pÊCÊCÊÊÊÊÊÊÊšššÊ‹àšš´ÍCpÊÊpÊÊÜÊfÍÑÍÍX‹XÍfp–åpÊL–fpÊfpffåÊÊLpf¡‚Êfp––‚–pÊL‹ÜÊfP‹ÍšÊÈ‹LàfÐfffÊ––LÜ–aÊfÏiLf¬Í–ÈÉCpÊp¡šÐsˆÐ¬È––CÍXXÍ~ÂXÜ" -DATA 465173 ,"ÜÊs–Nsj§Éš–LÅu†žZÍÍÍLÍ–fàa€‚Ж–ÐÈ×Èfp×pËÉ©X~ÈaNWLÙLs—ÙL›ÈNŸPsiY¬ÍYÐL×Í´Ê–ÐaÍÐÐÍÄ´a¤ÐÈNÈN¬×ÐÛsiÈNNÐPšLLXŽ–¡s–ÉÈLpŸ£NÉ—C¬NPåpfXÐÜCÜÊåÊÍzÊfšÛLÈÍÄÜåfåÍCNÉÈPsšNЛ–Í" -DATA 858377 ," ÈÊ–¬ÈpÄpÊÊÊpÊ‹pÊfÊXÊfÊ–ÊÊÊÊpÊÊÊàpÊÊp‹ÊLÍÊ´‹àÊCpåppÊÊÊXXÉÊXLÍÏÊÊ‹ÊÊpÜÊÊfLÍ–L–ÊààÊÊÊšLÍ‹ÊÊfÜÊaWÑf–ÊÊfÊf–pCLCÈ–XffàÜppÜÈÈÍÊÉ––f€L–ÐaÉCÜf‹¡NÈÍNžLNÍLp¡€–fÉmfÜ" -DATA 4142361 ,"ÜÊÈŸnf×Lf–ÉX}~èzÍLLÍÉÍfÍLÈ–œÈLaifÍÐÑÜ–Nf—PNzŸÈÅf–iÈȋПLÐiØ×ÉÉŒPŸN~ש¿LffÈss–¬ÈÉÐÉN––sĈɛš¸¥P–ssNNÊŸifwf¸uÍÈLÄÊÏYNN–ˆPNNåÊÜÊÙfpÜÜpÊi—fÊf–XØjÊCffÜfÐXÈa~PͬLLÐ" -DATA 69389 ," à‹‹Lf‹‹XÉCÊÊC‹ÊÊ‹ÊÊÊÊ‹ÍåÊÊÊCÊCrÊÜCpppÊpÊpWLfC‹ppÊÊ‹XfÍrÍffÍÏÉÏ¡pppÜXpÊÊpa‹¡Ê¡àffLfp¡–ÊÉfÊ®pÜÜff‹fLp¸ÜWfpÊÈLaP‹É‹–´pÊÊC–pÜÜÜÜpÈÊ–‹aLÐÈfrÜÊf–ÐN©sˆsÉLXÏŸÍÏaÈåå" -DATA 860425 ,"®–ŸaPPfÍÍЪfs¸Í–åLfÍÍÊša–à––šLppXœ‹X‚CÐËžsLœ´Ð‹aÍÍf–ÉÄ×ÐN´Lj}ÉÈjP–Ð×ÉyPpܬj–ÈN©fz¬ÈÉ}М˴N´LÐfPœN×ÈÏÏ–LÑŽÍÊf¥Ð–ˆÉÈÙœPaLLÄÊfÊ×sÜ®ÜÜÉÑÛÜÜÜLsi~ffÊååp–LÑÈL´NÐfa–p" -DATA 67865 ," ffLÊfšÊÊ–ÊpC‹ÊÜfÊffXfffÊffCpÊÊÊÊpÊÊÊÊppÊÊL‹‹ÊÊpppÍfÜÍÍŽÓŸfÑÍYÍappÜpfÜÊffaÉÊLL–‹ff‹ÊffL‹‹ÊÍÊrå–pfÐЮ–ÊpÊÍXfÈÜPš–Nf‹–aåfÍÜÊÊfp–ff––afL–ÜpÊfКL¡NÍLÈ–É‹–‹ÊÈÉmÈÜ‹" -DATA 71425 ,"fàÍÈaÐPYÏf‹–LLXÉfÕÍfåÍXfÍÈfpPÍfÍ–XÑLfœL|ÉfÉ›ÈÐÍÐXÐu“×ГO×ØY—È–ÙLÐaž–uååf×ÄÄЗÍÐ×ÙÈNКNÈÐPÈЖ©ONÍaNÍ–ÈÉȸÉÕÜÍÉÍÐiÉÐÈŸÈÈNÐÉÜC®Ü×¥ÜÜÜ®Ÿ–ÜffÉÈÈ›–Ê®fåÜLNÉÉÍaL¬NœLÐ" -DATA 1777409 ," p‹å‹ÍÊp‚fÊp¬ppr‹‹ÊfÊpCÊ‹ÊfÜÊCCÜÊXÊpÊ¡šÊf–‹‹–‹fpCÊÊåÜf‚‡YÍmÍÏÕY‚fLÍfLÍÍÊÊ‹fÜÜÊÜfšfÜåCCfš‹‚ff®ÊÊfÍffXf‹ÈLfÜpÍÊL–Xp×È–ÊÍÈLpšCÍÜÜrÍff–f–N–®ÊÊXpÈa‹ÍÈœÍfLL‹Lpff¬L©ÜÜ" -DATA 856335 ,"Êfff‹ÊpÍf–ÍÍ–¬zpXa–ÜÍ–XÜ–fffaÊÊ‹Êk¬´ÊNLP›ÉÍ©PaLYL¬Õ¬XLLÈÍNžP›´¸ÛyÙzÕN¸ÊåXuÍÍXƒXL´ÈÍ–ÈŸaNN×k››ÈNaLÙÍÏXÑÏÉÑfÜÊÜ×ÑÈfLÑÐ~´ÙàYÏÜååÊŸÊÊÜåfÛ®rfØÉÑÐPÜ®ÜffŸÉaʬ´PPNÈÍs" -DATA 77083 ," ÊCp‹X‹Xf‹‹ÊCÊÊpfÊfÊÊÊÜCrf‹ÊÊfÊfrÜÜÊ‹ÍåWpš‹ÍfÈšpÊXrÍÍfÏ‚ÍŸÍ‹XCšLÜfàLpf––ÍÊÊÜÜÊfåÊÊÉ‹‹àfÊåLÊÍ–ÍÊÍPLLÍLLsp‹ÊÈ–ÜaÊÜå–ÍaÊÈafCpC‹‹‹‹¦‹ÍLffåprÍLšÐLYÕ¡XN–Í‹L¦Ñ¡XÄÜÜ" -DATA 2830619 ,"ffÈÜÊCš–ÍÍLa–LLÑÍpÊÉfffffffp‹ÐØsLÜÐÐàkLss´fàÍPzLrNÄjšŸsÍsÈ×ÐNÈs–´ÈŸ–ÍLLNÜC‹Ð›œ––rÉ~LsÐass—››ÐÈÉŸjjLÏÍšfÍ‹ÏfÑÊrÐå–´ÈœLšˆPsLPmÊÊfpfÜÜC®—ÊÜffÈÈÈÊÜfÜfLLÍŸÉ“ÕÈÈaœÐ" -DATA 2047807 ," CCXpÊÊÊpCÊÊÊÊpffXÊpÊÊp‹ÜfÊÊåÊÊÊÊÊfÊLfW‹LЋ‹WÊ¡åÊÊÊÊÊf‹ÊfffÕÍÍwLffÍfffÊÊ‹ÐÍÜ‚ÊpÊCÊÜp‹fÜÍLfÊ–LÍÈ–ÈLÈzÊXÍXÐÈaÍ–fCÜš–åCfÊLšLšLÊÊÜÜ–å–fšršÊÜÊÊÊLš–È‹ÉX‹‹CX–ÉL‚ÏfrÜr" -DATA 68871 ,"–åffÜfЮXpaLLÉ‹–ÍЖÍfÜ–fÍÊp‹–ØÊfLÈÉÍŸfNŸN¸Ls×L¬ÍÉÈ–LLÏ—–¬LNÙ–Ë–Èn–¿´É´–ÐÍÐsÉÉNÍ´šsÈLÉÐ~zNȬjkÐÈP—XÍÉaL–ffÈÊXffÐaNNÐ××NÄkÈ~zaÜf‹rLÜÜåffÍfsÐLNX®ÜåfÊÈÜÍPa´NL´ŸÈÐ" -DATA 737087 ," ppÊÊÊÊCÊÊpppÊÊÊXÊÊ‹Ü¡CppÊÜÊÊÊpÊÊÊÊpLL‹ÍÊCpLˆpÊpCÊÜÊ–pfÍfX^ÍifLpf‹ffÊfÜpfffÊÊf®fÊpÊCfÉr–Ürf–àÊÊ‹–p‹ÍÜšÊ͋ЬÍfÊ–pÍСÍLaaLÈPÈÊCpÊ‹‹ÊÍȖЖpÜfÊf‹PÈÍÍÀƒÑXLfÍfL|ÏÍCpf" -DATA 3096383 ,"ÍfšpÍ–fS–ÍpÈLfX©kÊÈWÊXXf–È–f–LprCX–È–aÉÐL‹ÉÈдaNÍÍ“Éà‹f–aÈÍf›ÙÐ×sLNiœÍLf–pLÉNfÍÈrN–×LuNsž€LдÄÈ–‹NšÍÍLfÉÏÕÜÜa®PsÐÈNL~PÈÍPÕåffÜÈfåÊX–ÜÜÑÉ›ŽÙÊÊÜ‹ÜÍLffLLšŸÈPÈN–" -DATA 858903 ," ÊÊpÊÊÊÊfÊCÊÊpÊàÊÊÊ‹ÊÊCÊÊ‹ÊÊÊÊÜàÊÊÊÊÊCCÊÍÊLpÍfCÊCÊÍ–XŽŽÍXXÊXÍ‹Íf–‹–ÊÊÊfXXÊfÊÊÊÜÈpÍfÍÊpÊÊpÍ–Í‹Í––LÈ–Lff‹LCfp––‹fLÈLf‹frLÍÍCÊfffpÍÍfXÊÜÊrÊšrÓЋfÈÅÈÉ––ÍfÉX–ŸÜpf" -DATA 65795 ,"Êp¡‹ÍL–rp‚–f–çOœÍÍ¡Íj––pXLpåf~ÍLÜÜLÍÉ–ÉP´ÐÉŸŸyLXÈÐͬ×N–ÈÐÈÐÈ´Í–®–L¬ÜL©Êå–ŸN–ÈÉXÈXÈNNPÐØ¥LÈLLPNÊsÑf–XÍÉÉLŸÉ––NÈXsLL¥P×LN~¥É´®ÜÜpÊ®ÜÜåÊfÍfÈÏNd‹pàfL´“L“ÈÍfÐ¥¬“€" -DATA 68905 ," ÊppCÊÊÊÊÊppàÊpf‹fÊÊpÊÊCÜpÊpÊÊÊpCÊÊÊ‹ÊCCÈL‹ÉpÊÜåÜÊ‹ÊÜXÍXfÊÍXYÕCÉ–ffÊXÊÊfåÜÊfÜCÊÜfpCÊÍCC®ÊC‹L‚–Ðf––fLÍÜšÊLpÊrÊÜÊpÊpfÍÊÏÐpCÊåÉÏ‹ÜÍf‹–åfÜpfÜL–É––fÐLLfÐOPXÍÍÊf‹" -DATA 1647401 ,"ffÊÍff‹fÍ–°ZÍXÈ]MjzÉÈfÐWÊpfX®¡fÈL–aÜ–pp塸´–àuÄЂȟ–ÈfXÛNžCfzŸN›–ifzLs´ÉfÊrrÊ‹‹àLŸÈÈ~NŸ´©‹–aƒ—aÙÈfšfÍ–ÍÉ–fÊÊLÍps¬“×Lf“NŸPN›s¬ÐffÜÊÍ–ÊÜfÊp–Ÿ›YspÜpÜLLÜ^ÍÉssaÉNЋ" -DATA 2830637 ," ÊÊÊÊÊpCpÊÊ‹ÊÊfàÊÜÊÊÊÊpÜÊÊCpÊÊ®ÊÜÊLšff–f¡ffpÊÊÊpÊfÜÊXÍÊÍm¬fpLàLÊÊXpÊf‹f‹XpÊrÜfpÊpCfiÊÊÊpfpfÊšfÍfÊCÜЋ‹LÍ~aÈÍ–CfLÉÊÊLfåppÊÑ‹~Ïœpf‹–pfÊpÜf‹fÓššC–É–É©fŸÉÏCÊff" -DATA 75031 ,"¡–~mw‹‚fLÍfÅÓà–š×©ž‹–ÈÈÊ‹‹få‹fЖÊpffaÊL––NLLÈÍ›ÈCÑfLÊÍÈw–fONsÍ‹‚¡i–žÍs–´Cp®f–É–LÐf–ÐÈÉ–aN›PÉPP×ÉÍ~ÏfLÑÍÍŸÍL‹NÍÈp–ÈjÈ©a¬œÈÈÐPÈLåÊÜfL–å®fÜÜ–zÐÉdÊffÊÍŸaåÍÈLLÊCCÜÊ" -DATA 78121 ," àppppÊpÊpÊ¡ÊàfÊpÊÊpÊÊÊÊpÜCÊÜCÜCCÊÜfÍXÊ¡ÊpÊÊrpÊÊÊpÊpf–fÊXÏ–LÏXLÐrÊšÊÜÊ–Ê–ÍXàpÜÊàCÍÜÊÜfÊpÊf––‹fÊ¡ÊÊXšf‹®pÊLš‚šfÐÜLÊšpÊCfpÍÊ¡ÐLȈÊÍpà‹ÊÊpåÊ͈NLÊLŸ––LÊÍfÜÍfÍ®Üfp" -DATA 602429 ,"ÍÊfàÜÍLÚCfÉ–ÍÄ›PÍaLffÜfÊfràååf–ÍÍpfÍÈf‹šXÜÊŸLÙsspkØÍLf–fÐifPPnaLff‹–Í›a–prpÈP‹fLLÍ‹–ÈÈÍNLaÐaЖÐLÍÈÈ–ÍÑÍ‹LÑÍffÐÊLfapf–NLLNˆLÕNPÜàr–ÍpÜÜÊpf~NXÅÊ®fÜfÉŸÐÐXmLª¸fÍ–" -DATA 333577 ," ppCCÊÊÊÊÊ‹ÊÊà‹ppÊÊpCÊåÊCÜfpåÊÊÊCpfCš‹É‚àÊÊÊppÊCCÊCÊÊf‹XX–XmRÜXfÊšCÊÊÊÜ–pÜppÊàfÊ‹fCpÊ–pÊÊÊÊÜàppÊš–ÊåfÊfpÊàfÊÍLffÜ–ÊCÍÐwÍÍCÊ‹ffPÐfCÈ–pÜÊÊÊ~ÈÈ–LLffÈLLLÑÍÑfÄÊåÊX" -DATA 474915 ,"¬ÈLÊLffÍšff‚Ø×ÍXÊÊÐf‹‹Ü‹ÍfàfÊpÊËf‹fXÐffÊÍNÐLf–f¬Oz›ÈLÊÍYŸÍ›É×P©m›Lsa×fÈLpÍP´ÉLLÍLf–ÅLsNyLN]´fff–LʬiÏŽf–ŽÕÉÉXÙXÐåÐåfZåÍPLÍÏNœNrfÍdfpÜÊLÊf–Ж´ÜÊfÊÊiÐNfÊÍЖ–Í–Pi" -DATA 4144949 ," ÊÊÊpÊÊpÊàÊÊàÊàfÊÊÊCÊCfÜÊCÊfXÊÊÊÊÊÊCÊÊÊÊpÊpppppÜpCp–fÍfÉÏRXàrÍÊÍÊfpÊÊpÊÊÊàÊÊÜXÊàCfàšf–XÍf–pÊÍfÊÜfCàpÊÊpràpÍfÍCÊaLfNÍÊЖpfXÍà´šO©ÈàÊfÍÊÜÜÍÐNÉfwj–ÉNpàXÍXÊ®ffÍ" -DATA 1651007 ,"f–ÜCÍÍaœÈf¡fËdÍfÜfLfpfÊàXWÍ–pX––fÍÊ–LNÉŸÈ͚іXPPÉpÍaÍfŸ–¬LpfÏÏÐLP–L~ÈXÈfL´LÉÏåXfÐÓÍÐfaašàœàff×aÉÈ~aŽXfšÏ–zX‡ÉÜLf–nNfsuž›NÐsy—´LÊÊÜÜÜååÜÜÊszÐPÜÊÊfÍrNÐÈ––fÍf–ÊLL" -DATA 71949 ," àCÊÊÊÊÊÊppààÊCpÊCCÊÊpÊÊfÜÊÊÊàÊÊÊÊÜÊpÊÊÊpCr–¡®ÊpÊÊfàÊXÉffšXXÊ–fàà––àÊpÊfÜÊf®ÊÊ¡pCÍfÍ–ffCÊaÊfÜpààÊåÊWàfÊCÊÊÊÜpWÊP–XÜ›–Ér¦ffÊfpÍ…ÂLdÊ®LÜÊʚͬ–ZffåšLšÀCNLÜ®Xfr" -DATA 604969 ,"CCaÍfàffwèuÜÊfÊÍCÍÍCÊWfÍ‚fpfÊÈÉåÍN–XÍfÅpЖXfÙ›ÈfÉ©›XLèÈi–u›››fLÈ~LÈLÈÍX¡CÐÏL–ffàfÍàšLfWLÐPдs–ÊfffŽÍiimÏLÐà–Ïp´Ü–Nj®aZÉL ZsÉ×jÙCffÜlåÜ®fÊa¬PNÊfXfÊLi–ÍŸazNÐàà–Í" -DATA 473371 ," ÊÊpÊÊÊÊÊÊÊàÊÊCCÍpÊÊÊÊÊÊàÊÜÊŸÊÊÊÊCÜÊÊÊÊÊÊÊÊpfpCCÊ¡fÍfŽÉfÊàfŽÊCpÊàÜ–ÊfW–ÊàÊÊpÊfÊpCpffÊÊÊà¡ÍÊffXÊÊàÊÊ®àÊXrpÊÊrÜfšfpÊfÍaÊÊpÊC‚XÐZNè¡ÊfÍÜÊàÉЖXLÍÍLaÈÐaÓXpCÊÜÊ" -DATA 606003 ,"ÜpfÍXà–ÊffÍfÜfåpfXf–ÈfÐÍŸÍfffpfÐf––¡fÐÈafLfXÉLL¬sÈjjNÊÈÐLLpšYŸNŽ×ÈNLz´ÐˆšÍàPNÉàa–L––NLfÈaÍaÍÈÐÈNaÜÉfÍÉXfÉŸXÜÐfЮÊk–sÐLÙÐPsZNNsP^pÜÜÜÜÊÜàfaàa–åÊÊXfдiLÛÈ~fÉà–PÉ" -DATA 1654049 ," ÊÊÊÊÊCpÊÊÊCÊÊpÊpÊpÊf¦ÊÊCÊÊÊàCÜCCÊåÊÊÊpCÊÊÊÊàfåXXÊXÊfÊÉÏpfÜfàpXÜÊfÊpÊàfÜÊÜÊÊpppCfÊCÊffà‚ààXffÜÊÊÊàÊÊàpCCCÍw–CXÊLÍNÜÊCÊÜfЂXPÜåà}ÊÊÊ‚ÈÈÉÉPàÈrÈÉ‚NˆÍÜ¡Êfà" -DATA 863001 ,"f¡ffšÜfiaÉpf®Ê–‚XXÈÊpÜpfÉfÊàp–fˆp‚––aÈ–ÈÍppÄL¬ÄL–ÉfafÍÊÐÈuÉXLÈÍÐÏzÐÊÍaLÉåŸÈaÈÊaÜÉÐÕfaÍ–fš–ÜfÈL––×ÍXmLÉÕ–ÊLÜœÊCL–ÍLÈ©YsšÐN¬ÈLÐÊfpÊppÊÊÍz€—PppfÜ–LÉÈNNfàÐfå–È~" -DATA 1785663 ," ÊpCCCpÊÊÊpÊÊÊpÊpÊÊÊfÊÊfÊÊÜÊÊÊÊXCÊÊÊppppCÊÊpÊÊpCÊÊ‚ÊX‚ÊÍÍÜàXÑÍÊÊÊàÊpààÜWpppÊàÊÊfåàààÊÊ–C‚fXfÊààfàÊpÊÊÊppÊÊfpCÊÊ–NÈЈÍåpÊpÊfpfXÊCafÍfffLÜfÜÊÍÈÈ×f‚ÍÈNÐÈàLCÜàLÊ¡" -DATA 67329 ,"ÊfaffÍšXÉ—©ÊfÊCÊf–®pfLÊåÍrààLfÊÊÐÍÍÉN—ÍfLXaaPÉÈ͕ɬ–´~ÊÄÅŸu~NLXs×aÈÍÍÈÈfÜL–LÈXÍÍå¡fÐÐ}XLÈLʹд‚–àÍŸÉÉÍaÕšÕ|ÑÊLfÊaNÈ´ÐP›L¬YÐpNjœÜÜppCpWpXzNLÈÊårÜÍi–®~LNÈÐw–pfà" -DATA 4013869 ," CÊCÊCCÊÊÊpàpÊÊÊpppÊÊàÊÊXÊpÊCÊCÊwCXÊÊÊÊpÊrÊÊÊÊpCpÊÊfXÍfÍfàpÊÍÑÊÊCÊÊÊÊÜÊ–šfCàfCÊšÊCrÜÜÊààfØàÊf~fpWÍ–àÊfÊpÊàpÊpL–Êfà–NšÍÜÉ¡ÊXLfpÊpYÐNÈÜÊpšp®CåfÐXÍNÜLÉÉ–sNapÜÊLCà" -DATA 737059 ,"LÍà–ÜfNÍÜÍffX–šfffpÊLÈfÑÜàfff–CNÜš|ÉrÍÊf–àXL‚ƒ®N´ååfÜp–ÜÏ܈fWÍÍÐÊNÐÈ––fÊaÍš–ÍLšLf–CÍLXLÍNЖÉÈfNÐÑ–fXfÉLÏžfÉÊàÊÊÐÈØLLÈÐLÐNɬs´PpÊÜdp®®ÜfXLˆÍ®Üå–NrÓYLÐLŸLCfaff" -DATA 4013887 ," CÊpÊÊÊÊÊpÊpCpÊÊÊÊÊÊppÊÊpÊCÊÊCÊÊàpÊÊppÊÊÊÊpCCÊÊCCàÜfXrLfi͸RmÉÊÊàfpàšÊCàpààpCšpÜf–ÊffÊ–ÜÜÜXÍfÊÊpfàfÜÜÊàÊpÊCÊLpfàÍÊL–pXÊÜÊÜŸXfŸÜfÍf–ÊffLå´Í–Pš¬Xjpf–ÊPNÅfÊÊXÕr–" -DATA 997659 ,"Êàpf–ffšÍa–XXCLÈiafÊpfLÊXàpX–Íf–L®fÊåÜfÍÍÑfà®PÊÜfåàLsmÑÉàÍàffÊͬ¬–fÜÊÍšåp––šf–––ÊÍ–fa–P––дȖXÉNÐÍÍÏÉÍLÏÐÑiÍ–ff®ffàÍfCàÊjœsȬPfPCàrpÜC®ÊPNÍÜC®Ü®ÍXaÉPÈÍÐZNÈ–ÈX" -DATA 329997 ," CCpÊÊCÊCÊÊpÊCÊÊÊÜàÊpCpÊÊpÊÊàÊpCÊpCÊpÊÊÊÊpCppÊpÊÊpXfXÊÊàÍÉfXmCÊÜà–fÊÊààÊpàÊCàà¡fÊ–ÊÊfXffpÍfXÜàÊffffÜpÊàfCÊÊÊÜ®pÜÊÐÊÊCÊÊÊ¡iÊÊC–ÈàpÊÊpÊàÜÍLPÍzNÈNNzÉLÊɬÊÜÊLÄÍa" -DATA 2834239 ,"Êf–LX–f–faÐfÈCX–ÈÊpÊfpÊÍÍfCff––ÈLÛ–P¬dupffàÈCf–pkfåÈËÄÈPfz–fÜpÍLfLLšÊL–pfà––ÍÍfLÍÍWafàÐPaÐÉÉÈÈÐÈÈp–åÊ嬖iÏŸXÍf–ÊCÍØÐpÈLLCLLfL–ÈssfpÊÊÊÜÊfLÜÉpÜÜÊfÜÏf–ffsšXaÉÍÈr" -DATA 868147 ," CÊppÊÊpCpCÊÊÊÊCÊÊppÊÊÊÊàÊÊÊÊpÊÊÊCÊÊÊCÊÊpÊÊàÊÊÊÊCCÊÊÊÍfÏŸšÈYÏàppààWCp®f–àÊfÊpàÊ–XCÍpp–pàfàÍXfÜ–fà–ÍåÜÊ®àfÜÊÊÜf®ÊÊCÊÊÊ¡ÜCrÜÜaaNÊÍÐÊÜʦÊÊà´p¬È–zLNààÄsP–ÜÜÜXÄCf" -DATA 1654573 ,"àÊÍfÍÍffpfÍÜÈŸÉÉ–L–pCÊffLÍÈfÍfff›yjXCàÍ–LÍ–ffpÜfàfCN×jyLffÍaPš–ÍLÏÉÍÈŸÉÑ–fÊiÍ–fÍ–f–à͖ЖÈOsÈÐaàLpfÊÏf–iÍšŸÏ–apaf¡NÐÙÈ×sňssÈsPÉПÜÜf®®ÜåÍÍÜÊåÊÊܦÉàNPÈLÈLà––Í" -DATA 465183 ," ÊÊÊÊÊCpppÊÊÊÊÊÊÊÊÊCpÊÊÊpÊÊÊCCCÊÊpÜÊCÊÊÊÊÊÊÊCÊÊfXÍÍÍÑÉÓÍXÑÊÊCàààpÊÊàÐfppÍÏÐÜfàpfpÊÊÊf–ÜfÊÊÊw–pÜfààfÊÊffÊfåpÊÊÜÊfàf¡fÜÊfàÊàpf¡pÊÊàÜfpàfL–NÈÉLàLÓ–ÈÉÊÜà~ÏfÜ" -DATA 4013855 ,"ÜXÍ–àXfÈÜpfa–XpÜCàÊ–ÍfPfÉÊ–ÊÑfš–f–fÊffÍf–ÊÍ–fÊXfpàf´Í—YÊ´P–ÐzrffÍÉÊà|L–fàWfffffÍf–fffÈLÈW–L´ÈffÍfÍÏÍÑÈàXÕÉpfpfffšÛNˆNjÐÈ~ÙsaaÉÐÊÜpÊÜåÜfsÐfÜÜÜffÈ–ÍÍÍXYLLL¡–L–" -DATA 469791 ," ÊCpCÊÊÊppÊÊCÊÊpÊÊÊÊpÊÊÊCÊàÊàCÊÊCCÊÜÊÊCÊpÊÊÊCCÊÊfÍÊ–ÍYwšÄfÕÜÊpCààÊpÍ¡pfÜfÜààfÊÊÜÜfÊåÊÍÍpfÜÊÊÍ–ffÊÊåÊàfÊÜÊCÍÊÜÐÉÍÊààpprÊrffÍpfpÊÊÊfÊpfN¬ÈÐÈNLѬiàÊNÍÊf–XXà" -DATA 999231 ,"LNÈ–LÊÉåjnPRàšXÊCÊÈÜff–ffff–´P›àÊÜÊràåÕzÙÜÜX–ÍÊÜršÉÈÍL–fŒPNÈ–YÉÍXÍÍffš––f–ÜàfÍÜa–––àÉàÈLLÜŸsÊÍàÍN€XàÍÉ|X¸ÄXafpÊas´}ÈÜ––sœ››ˆNÍså–ÊÜÊÊXNÈNÜÜåÊÜÉÍ€L}–È–ÍLàNL–" -DATA 196865 ," ÊCpCpÊÊÊÊÊÊpÊÊÊCÊàÊÊCCÊÊÊCÊCppCÊÊCÊÊCÊàÊàfÊÍXXXÍXfÊpÊà–rÊCpÊfàÊààfšàÊpfdÊpàÜpÜfÊff–ÊÊÜÊ–f×ÊfÊààÜp¡rÜÊÊÍÍCpfÊ®®ÊàÜàrfpÜ®ÊfÊfÊÜp–ffÜ–œLNÐÈLCLÊ®ÊàzÍup" -DATA 1648387 ,"Í¥žÅ¸jNp©É©ÏffLÊÊpfààÊÊfCf®Xf®fÜÍfffÜfÊÍfÜX–ffàpÜfÜåÊàÍÈNf–PÑNPÙaaÜÍf–Üp––Íff–åËfàÐЖ͖ààPLL®àfÉÈaÉ–ÑÍwLÍÍÕŽrŽ®åfLÍÉsÍLsLˆfuz›NÍPœÜÜÊÜCÜÊÊÉpfCÜåfrÍXXfX–à–ÍÍLf–Í" -DATA 598315 ," ÊÊÊÊÊÊÊpÊÊàÊCpÊÊÊCCpfÊÊÊfÊÊÊCÊÊÊÜfCÊÊÊCpCåÊÊXXÍÉ–àÕXàŸpÊ¡CÊÊàÊÜf®f®fÊfÊpÉÊÊÊÊÊfÊÊCÊÊÊXÍfÊfàÊpÜ–LÊÜÊÊåÊàÊÊfÜfÜÊÊ–XÊCfppfàpCÊÊrÊÜåÜÐÈÈL´ààzÈN¬èaÊÜfÐX–Êy" -DATA 1647419 ,"èÈžÉz¸pÉsÙÍnnÍ–pà¡Ê®àÊÜffÜpafàÜXÜX–ÜÉÍàÍÜÜàÊfÍfÊàCÉÜÊÜLÏ–fL–ÊšÍ~LffÍšÈÍàÜfffÜ–åf–f–aÍXÍXfà–Ž‚ÐfX~zaÈX€ÉXÍÕYÍpfÊÈÍfNÊpÅN¬Èàw›s–ÜÈ–ÜÜÊCÜCàÏfàÊÜpÜpÜpXf–àaLÍNÍÈÊÈ" -DATA 65823 ," pÊCwCÊÊÊÊÊCÊàÊÊÊCÊÊÊÊÊÊ–ÊCÊpÊÊCÊXÊÊÊCÊÊpÊàCàÊåÊppà–XÊXÜfÉmÕXwÊÊpÊÊÊÊÊÊÊÜfÊÊÊÍLÊÜààÊÜÊÍÜCÊÜp¦ÊÊrÜÊÊàfàfÊ¡fÊÊ–CàrÊ®ÊfCÜÊÊ–ÜfC®®p‚ààÊÜpåÊfÊXÍXÈÈYLÜLj¬ÈàÉpfXÈŸÊÉ" -DATA 69895 ,"L¼ÍLp›‚ÄÍ—ÍfÜ–fÊLÐLÍàÊCf®pÜffÜff–fffÍfÊÜàpfàfÊ–fÍÊÜpX–fÍ–fLÉfafrLšXLÜL–LfffffÍÊXÍfÍåf¡fLÈrÊ–ÍfÜLpÜÜLÍàLfÏÑÏÍ–ÜÜÍÈXf–fÊNNÈÉ–ÈsjsjÈpÊÜÜåÜåÊÈÍÈpÜpffffÍffÈÐXÜL–ÜNs" -DATA 864537 ," XppCÊÊÊÊÊÊÊÊpÊÊpÊXÊCCfàCåÊÊCpÊÍpÊÜÊÊCÊÊÊpÊÊrÊprfàfÉfÍÉÍfÊpÊÊÊÊÊÊCppÊfÂÜCXÍÊÊÊLffÜåÊÊfà–ÊfÊåCfÜ¡ÊÊÐÊÊÜfppÊpÊÊÊåÊÊpåÊÜÊàfÍXàÊÜfÊÜÊfÍÍÜàXÉÊÍÊÜÍaàÊÊfÉЖ–Õ" -DATA 2047795 ,"©PNfÜjkÜLÊfÊÜÉLCÊfLfàÍfffrX–rÊXfÊÊÊÊXf‚ÍXfÍÜfÜffšXÊàååff–ÍÍŸXÍÉX¡àš–fÈšÐfpCfÍfÜfÍÍfÍÍff–ÜÊfLÍCfÜiÍfLfXÍfÏXÉiiLÜpXÈ–šLLÊN›àÈÉPj›NNÄÜÍpåÜ®pÜLÊÈfÊÜf–ÐÉN–Íœ—àÈ×LL–" -DATA 3096371 ," ÍpÊÊppCCàwppÊÊÊÜÊÊCàÊàCÊÊÊÊÊÊ‚dpÊÊÊÊÊCÊÊCCÊÊÊpÊpÊÊÊÊpÍXÍ‚fÍY‚pppÊÊÜÊà–pfffÊCÜC¦ÈÍfÊXÊÊpÜÜÊÊpÊÜfšÜàÜÍàÊffÊÊÜÊÊÊÊpÜÊÊCÊÊÊàfÊÊÊÊÊrrÍÜfÊÊXÜ–ÊfÍÊåfXàÍffÜÉfšYàY–Ü" -DATA 1642761 ,"LLšËàÊÊL×–ÛspfÍfÈàf–šfÊp–ÍL–åfÊÊÜÊCÊfÊff¦rÊÊffÍ–ššffàfÊÉfffffÉàÐL–ÍfXfÍf–ffffrÍLÜÍÍà–fÍ––fÊàà¡–LÐÍÍÜÜåf–fÏÏÏpfÜ®ÜLÍ–NfÍÈP›aPNÐLÕÈÐÊpÊCå®ÜipšÍÊܮʖfrˆf›ÉPȬuLÍ" -DATA 1650461 ," ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÜÊÊÊàÊCÊfÊpÊÊfXXÊCÊÊÊpCÊffpàÊCpÊ®àfX‚fmfÏÏXfÊÜÊCÊÊÊpÍràÊÊCÊÊàCpÜÊfÜÊ¡prÜÊÊÊÊÊÜÊfppfÜÊpà––ÈpÊÊfÊÊCÊÊpÊÜfLXLfÊpà¡ÊpÜÍråpCÍšàrLÍààÉ–àÊÜÜß›ÉèNNÍ" -DATA 69377 ,"XÊÍa¡›NååfÍf–ÉÍfÜšpCp–Xàfff–ÜÜXfšpp®LÊÜÜàåfffš¡àà–ååfrÊfCÊÜXÊÊÉfLÍàÍÍÜÜf–Ê–fffÜffÜÊrš–Ü–ÜÉWÍÈf–pfÍÍÉfÜfXfÊÑX––Êfp~É´N–¬NÈàЬ~–PNÈÍwÊÊÊÊpÊfCÉÕÊʮܖff®~ɬNà¬àÈNÈÜ" -DATA 81697 ," CCàCÊÊÊÊCÊàÊCÊÊÊÊÊÊCÊpÊÊÊÊàÊwÊXàpÊÜåC–ÊÊšXÜÊÊpÊfXXàŽÍÍÑÈÍÍXpCppÊpÊÊXÊÊLšpÊÊf®ÊÊÊÊÊCàp¡ÜpfÊÊÊÊÜÊfLfÍ–fà‚pÊfÜCÊÊ‚ÊÊÊC®Ê–ÊàpfÊfÊppfÊfÍÊààfÊrpš–XàLÍfrÜràÊÍPÈÙN" -DATA 4144947 ,"ÐpL‚fÜfXXàYàÊ–ÊfÐppÜÊåpÜÍ®–ÜfàÊÊÊfàÜÍfpXffÊfÜfàLÈš®fffàffÊÜfàfXàÍ–fÍÍš–XfÜLfÍ–Í–––LfÍffàXWf–LLÈL}¡pffÍåÜfÍfÜÉpÊÜfàÍÉLrÍÓpÍLLàL‚LLÜÜÜÜÜÊÊÊÊž–åÜܸÜÜÜfX–åL–ßÍsÈp" -DATA 1649935 ," ‚àÊ‚ÊÊCÊÊpÊCÊÊÊÊÊÊÊÊÊÊXpXàXÍ–ÜCpÊrÊÊÊfXwÊpÊÊÊfÍf‚àÍ‚ÏÍmXÊXÊÊCÊÊÊCpCfÊàCÊÊÊÊÊpfÊÊfÜXÊr®fÊÜÊÊÊÊ–XfàšÊÜp¡XÊfpÊfÜÊÊfÊfÊÊÜÊÊÊràÊÊpCÊÊÊ‚ÊÊÉfXCf–šLÍÈXfràXNXfNN–L" -DATA 858913 ,"©RÍLpfXfpfffÜÜCfÍÊÊpÜÊÜšààÊÍÜÊÊÊÜÊàpiÊdÍÍÊpÜå–L–àÍfÜÊÜÜfÜXf––ÊfÍpååÜ–LffÜfÜ¡fÊffÊÊ––ff–fÍXÍ–ÍLŸNÉNÉfÉÍÜmàffÍåf®ÊpfrÜÈÍLpLÉfÍͬ´ŸÈÐÜprÊCppÊwÍpfrfXÍafÉ–fXÉXŸÍ–Ÿif" -DATA 3227411 ," àÊÊCÊpàCCÊÊÊCÊÊÊCÊÊpÊÊÊÊÊÍšXwÊCÊÊÊÊÊprÜfàÊÊpCÊÊÊÍ‚ÍÉ‚YXÜÜÊCpÜÊÊÊfàCÊÊpÊÊÊwÊÊfCÊfÊÜÊÊÊàÊXàf–ppÊfàààfààpÊf‚fffÊ–ÊÊÊàÍàÊpÊÜÊÊÊÊÊÊÜÜXÍfšLfÊL×p–šfpÊÊÜ–LÍiL©©" -DATA 2834207 ,"ÍÍמNsàÊÊÊÊÊÜfXš–f–LÍLÍXX–ÍÉÏ–LXÉšL–ÍfÉŸ–Xšp–f–ffà–ÊÜÍÜÊàfÜ–Ü–àÜÉfffÊÈÍffpåÜfÍ®––àff–à–LfšXàÈPLfLÈff–ÜffXffmXÑpÜàfÊàfÍ–LÐfXÑL~¸ÍfÐfÜÊåppÊÜÜPÈÊÜfÜÊÈÊfXŸÜfffÍLffÊ" -DATA 2834223 ," ÊÊàààfàÊÊÊXpÊÊÊÊÊppÊÊppÊwCÊfÜÊpp®pÜàÊÍàÍÊÊCpÊXXfXÊšfY€mÑÊÜÍÊàCÊÊÊÊÊÊÊÊÊÊÊÊÊXÊÊÊfp®®dpCCXàÊÊXÊà––fàšÊÊffÊÍàÊÊÊfCÜpfÊÜfpšfÊÊÜXÊpÊÜÜfÊÜÜÊ–fÊàL×ÊÍÍÜÊÜC}L––aLW" -DATA 4013843 ,"–fÈLÍ×LjÊÊàfàfCXLNLÈÈŸšÉÈÈÈÈšÐaLLÍLÉÍÍà¬ÍÍLàÍÉiLŸ–ÈŸLÈŸPfLLaÊfrÜLÍf–fÜaÜfÊÊÍ–Í–fÍÍÐLÍf–Íff–LaLКrÈsXÍXÍ–ÜÉŸàfpdLÍÊfÜffX–p–ÈNŸÉÈfÍÊXÊÜpÊåÊÊLàÊrfÜfCÊNàÜpŸÍ^š–Üp" -DATA 1646349 ," ÊàÊfàffffÊÊšXàCÜÊÊÊÜÊÊàrfÊ‚fXÜf®ÊÊÊÊÊÜ–‚ÜÊ‚XCÊ‚ÊÊÊ¡ÉXÊf‚ÊXXXfàÊàfpÊàfÊråÊÊÊÊÊÊCÊÜÊÊÜÜCÊfÊÊÊXàffÊÊfXÊf®ppšÊfpÊÊàÊCC–ÊÊp~àffš–ÍrpÊÜàpXàÊfÊÊàÊpšÊfÍÊÊLÊfÜLÍÉ–Íf" -DATA 2699583 ,"šiNÍÊÖLèàÜÐpàÊÊÍ–ÉÈÈšÄL–sLȈLLÉÐL‚ÈÉXXÈXfrÉXÍÍÍ¥àfÍaLfLfÍXLÉÍÍà––ffààLàpÍÜffÉL–ÈLffiL–L–Ÿf¬CLfÍLLÜÜXÏffÊ‚ÜÍÊffLXÜÍàpfÊàfXÉY¬ÈÉÈÜÜÊÊÜpÜpÜÍPÜÊfffÜå–fffÊ®–LÜpÊX" -DATA 602921 ," fàffX–fÉÍÍÓfÊCàÊÊCÊfÊÊàpÜÊÊÊÍàfåÊ®ÊpÊÊ–ÍÊX‚XÊÊÊàÜXfwšÍmÉÉÜXÈfšÜLàXÊÊÊfÞppfåÊÜpÊÊCX–ÜfÊܦf~ffÜÜÊÊrÜàrÊÊpàÊpÊ–ÊfÊàÊÊÊpÊpÜfXCf¡L¡fÊfppÜfܦLÊXÜÊfåÜÊfàfÊÊàfÊPÜffà–Í" -DATA 73495 ,"XjÍ–ÄÍuç¡psuNXp–fff‚È–ÍfÍiX–LX–ÈÉLÉ–È~È–pàÍÉ–Íf–X‚ÍàÐÍàÈ––fÉLÍÍÊÍåÍrf–f–LfÜf–àÊšÉL®pffaaf–ÏNÍLaÊ–ÊffXLŸÊX¡ÍaffÜfXÊ–f~ÐCà‚ÊÍÍÈPÕPŸÈàfÜÜpÊppåšNdÜiÊfpfÜÈ–XfÊfÜåÊÑ" -DATA 466751 ," ààààšààšššÍàXààÊÊCÊÊÊCÊÍàfÊXfXXÜfÊÜÊpC–ÍÍXÉÊÊdÊwfÜfÊÍÏÍÊàÍYXšfšLÍÊÊÊÊÊrÍàfÊÜåÊàfܦpÍàÍàÊXÜÊfÊÊÊÊÜÜÊàÜ®ÊÊÊÊÊfppÊÍÕÜÊÜÊppfÊpÍpÊ¡ÊÊÜpÜXàXÜÊpÜÊÜffLÍÊfpÜÈÈÉÈ›LŸÍ" -DATA 593707 ,"ÜrÜNÉŸÈÉÊfX›ffÜÍÍXÍfÍ‚–fÍ´ÕÐÍ‚šÈL–ÍÉiLfÊÊ^ÉÉÈLLL–КÈʚʟÍÍ‚ÉÍšafXÍÍ–P×–àffCffàf–LLÜfà–Ü–pÍÍÐÈÉNÍÈdÍÜffXffÜfLÊÑÜffÍXšXÐfÐÜàaÄÐÈLLÉŸÜfÜpÜÊ®ÊCpLÊÊåXfÊÊCàXàfLÜåfÉÍC" -DATA 469273 ," ÊÊfÊàà–LàššÍÍÍÊÊpšXÊààÜfX‚¡XÜfÊXÊÜXrXfXÉÉšÊÊÊÊÊCÍfÏÍÍàfXRXÍššLÈCÊCÊÜÍ–fÊpÍÊfàfÊXÊÊfàfÜÊfÊffXÊÜfÊfÍpÊffppÊ¡àCÊpÊÊÊÊÜfÊÊàÊÊfÉààpÊàÊCÊf®ÊÊÊ¡ffÍÜÍÊÊÊf~ÐXXÉÍÉXL" -DATA 467223 ,"ÈLÈfÐÈÉà¡XX––Ê–š‚šÍfXrL–ÍÍXÍÉLÅLÉyNpXÊÈXÊ–NàÍÍšÉÈÍÏÈÉrÐÈLÉfÍfÍÜÏÄ´›ààffÊÜÜàÊÍÉ‚ff®N–åpÈÈÈÍ–aÊÉÜÜåXXÑÍffXÈÍ‚ÊÜfL–LLšfÍrPàÈNNÊaLLÊÊÊ®p¡ÊÜÜÜLpÊÜÜÊ¡ff–fpÊÊÜCÜfܬ" -DATA 67333 ," fÊrÉpfrfÊÍrššXšÊÊÊpààÊfÜfXÊåܦXʦÊÊfÊdCšÍLÍÊÊCÊàÊXXàXXÊŽiXXÍÉ–šLXÊÊÊCÊC¡XàCÍ–fàfr–fCÊÜÊfÊrXÊÊÍÊÜÊpÊÊfffpÊÊÊÊppÊCÊàXÊÊfåfpfCràÉC×pÊrf®ÊXÜNààfåÍfÉÊÜàÊàfXffÄŸ^ÉL" -DATA 465153 ,"©LNLÄPÍŸÄa¬ÉšÉf‚ÉPÉÈYÉaLÍÍàÉÐLÈ}PsaàÈÕÍXL¬ÈNÊÍ–ÍÍàɬɚÐN´ÈN¬ÐL¬––¬fÍXàfÊÊÜà–ÜffLÕàà–ÍffÍ–ÍÍLÉÜÐpÊÊpÜåÊXÍXÍXÍÜÊÍ–LÉNÉXÍàNÈN›ÈP¬ÉNÊprÜÜåÜÊÜÜÍÊÊÜÊffCÍpfÜfffpCÊÐX" -DATA 995647 ," rÊf–šàšš–fšààÉàrÊÊÊÍÊàÊrÊXÜfÜܦÊÊÊÊÊÊÊdÍXàÍÊÊ¡ÊÊàÊfÍÍÏXÊÉmYÊÊÉ–ààÜCpÊÊÍ–ÊpÍf–àÜÊLffÜÊÊÊàšrfÊÊfààfÊàÊÍÍfÊÊfÊÊfÊÊCÊÊàfÊåÊXppCÊpXàà¡ÊÊ®ÊÊÊ–LX–pàCpppÊfàÊšf–ÍLz›" -DATA 465167 ,"Í–›LÈYÉÈšÉPPLȬNzÉLPPLXÍÈÍšÉL~ÉšLÈPLLÉÈšCXÈКšÍaÅÈa–ÈLÊNaÍsÍssPÈ´ÏLÈÍÍffC–ffÜfàff´LàrLC¡f–LÈ–LÈÈ‚ÊÊÊåÜXfÍÍP–XÊÜ´ÈÍLÐNNNP›N¬ÈaÐNÈÐfÍ–ÊÜÊÊÊÊpXÜÜCÊXLÐÈÊåÊÊf¡fjÄ›š" -DATA 2047763 ," ÊÍÊÊšÍàÊfXšàšàfÊCpfÊàX‚CÊÊÊÊfÊÊÊÊÜÊÊÊpÉfÉCÜÊÊÊÊܦàffXXCÊÊššLÊÊÊÊÊfÍ–XÍfààCàfÍffÊXfàf–X–ÊàCàÉXfÊÍaàÍ–ÊàààÊÊÜÊÊf¡Üf‚Íp›É¬–LNa–ÊÊpÊÊfÊ–NÜ–LCÊÉàʦÅwÍàÜÜfÊYj" -DATA 860439 ,"pLÅÉÄȬš›sè¼ÐNÄPšPPPšNPPÈ×ÐPL¬ÕÉÈPÐÈÈ–NÅNpÊÈLYPЬÍPˆÈÈÄsNs¬sN}ȬÈÉÈÉÊf–XfÍÊÍÜÍàffffLXLwLÊfÉ–ÍÍÍLLNfÜff¦ÈfÜ–ÈfÑfàN›N¬ˆÉÍaȬÈÉÉÉÐÐP¬–ššÍÈÊÊ¡åÊÊÜÊÜÜfpLfÜÊÉXa°sXÊÍ" -DATA 469265 ," àÊÊÊàrààrfàÍààrfÊÊCpÊpfXÊÊÊÊ‚ÜXÊÊÊÊÊÊÊÊà–šàCÊÊÍÍÊfXÍff–^XpÊ‚XÍšCÍ‚ÍÍ–ff––ÊLš–fÊÍÊL–fÍNÊXLf–a¬aÍàÉàffààfÊÊÊfÊàÊpÊaàÉrÜL¡Ä©ÊÊXÊÊXw›ssÈÍCsÊÜdÊÉÊÊàÊÜLÜŸ–É" -DATA 858383 ,"LÉÉPY›NÉjziNNÄNÙÈÅÈPN´ÈPLÈPœPNaPN¬¬NLaÈLÈÈ–PÈLP×N¬ÅLɬȈPNNÉaÍŸ}aÉL–aXЖfà–fÊfXÊfLrÍÉÈNPÈÉÈNɬPÈÉÈrfÊffÜÜX‚ŸfÍÊàÄÉLÅÐÈÈÍÈLLLÈÉɬÈÈÍLˆÉLrppÊpåÊfÜÜ–ÊÊàNÜÐNPˆ–pÉf" -DATA 69401 ," ÍàÍfÊàfšXšÊÊXXXCÊÊÜÊÊÊÊXXÊàfÜXÊÜÊÊÊÊCÊXÍàf®pÊÊÊàÍÍXÏŽYÏÍàÊCpÊÊÊÍCCÊCpÊfàXÊ–¡àLššaàÍÊÊCfXÜÈXàXfàLfXXfšÍàPpÊL–šLrCàÉpÊÊpšfLà¬Í¬È–ÊCÊfCp®XÈÄÙÄC›ÈàÜÊÊàpXXfLàXÊ" -DATA 70925 ,"PÄNÉLs›ÈN¬jL››N›PPPPÈ~z¬PÈ›sNsLaLNN›ÈÉÐPÈPÈPPN¬ÉN~PPÉLÈ—ÉÈÉÐÉNšLÊÈàXLfÊÐaXfÊÊfÍfffÍšàÈPÈYŸszÈLNÅNàC–ÜÊfÊfÊÈÊf¬¬ÈàPȬNšPÈÐÉaNNÉ}ÉNÅÐÐLNCÜÊpåÊffåÍPÈPÊCfÊÍàf–ÍàX" -DATA 474907 ," ÊÊÊàXàXààXÊÊàÊàÊÊÊXÊfÊÊÊÊpÊ®ÊfÊÊfpàÊÊåÊ‚ÍX‚CpÊÊÊÊ^fàX‚^ÍÍCrÊàÊfÊCppCfÊÍàfàfXÍÍpÊXÍÊÊp–ÍLÍLÊÊ‚ÉÊaÊLÍÈÜÈÈNNà͚Ț‚Ê´LL¦pL–šPL–ÈNLÊÊXÍÊÊpÍÈLwCnPÊÊÊ›LÜàXÊffXÑYÙ" -DATA 863007 ,"sÈP›j´¬Ùzˆ¬ÈLa›jjØuNs›ÙNssœN›ÐØjЛPj—Ù}›}NPÈsjNLPˆ›ÈsˆPœ›P›ÈPÐÈaÈ–àÈà–f¡¡ÈaÓpL–ÈpÜàPfКNÍÈNPNLšÈÐLNfÜfÊffXÈdXÈaNN›ÈÈPNNLPN¬ÈÈ~ÐPÈÈŸÈaÐÊC®ÜÊfÊÜfÜ–pCÜÊšÊÈfÍfÉÈÐX" -DATA 999195 ," C‚fXÊ{wrààÜXÍÍÍCÊ¡ÊÊÊÊÊ¡ÊÜXwÊfÊÊpÊÊÊàšffCpÊÊÍÍÊ^XÜmXÍÏCCÊààfLÊCCpÍšàà–p–ÍààšLÍÍfÊÈÈ–LLàÊÈfÉšÉaÍÍaÈšLÉÉÈÈÈÈ–fNÊÊÊ–É~›N¬PMssÊpfLÊÊÊàÍÊÊP›NCÊÊʈrpÊXfÉÉÊÉL" -DATA 867105 ,"XujPsssÕŸÄ›Nj›Zb›s›NÙPPsÈ›››ÄkÛ›sN›ÈN›~›Ès}ssØNNPÄssjÄzjsPÈ×PPÈPršNȬPÉfÈÐÕPÈsÄÈPÉÈÈÈPÐÍsPˆÈLPœÈÈÈLÜÊàšÍfXÈàšš¬PPÈPN¬¬N¬›ØÈÄÐzÙ¬NÈÈLȬpÜÊÊÜÊ®ÜÜf–ÍPåfÍff–ÍÈÈfLÍ" -DATA 999211 ," ààf–ÊàÊrÍÍàfààXÊÊÊCÊÊÊÊÊÊÜpÜÊÍXÊÊÊÊrÊÊÊ–‚ÍÊåÊCw¦fÍXfÍÏÏXÍŽÊÊÊpÊÊÍÊpÊÜÊàà–ÍšCL¬XŸLXÈÉÊÊÊa¡L–NCàLÅLÈÉ–ÈfÍšÅPÈPÍšÍåwÊPÊÍààÈÈÈ›PÐÈsÉÊÊÊjÊÊÊàpP×ÉPNpfÊåNCppÍÍàÍf‚u" -DATA 605995 ,"uNÙ›CYPsj›—uˆ›Œœy©ÄzØÈss›PLusPzj¥jsNNÙPé¬ÈPNsPÈNj›N›ÙPjPs¬PPNjȬsj×›N›PÈÄašÈ›NsN¬jsÈjNšPÈPÈPÐPNŸP–ÉàLÍNÉL¬ÈÉÉÈL¬NÈNÐÄPs›ÄÈsNÈNN´LÈÈÐPÈCpp®ÜÊÊÊÊXfaCfÈÍààÊÍffÈfÐ" -DATA 1785635 ," CÊÊrÜàà‚ÊÍàààÍXÊÊÊÊÊfpÜàwÊÊÊXÊÊÊ‚fÊÊpCÍÍÊpÊÊÊfÊàmX‚fXÍRÕåCÊÊXfÊšÊC–šPLÉÉ–ÊfÈšÍàȬÊCÊàLLaÉÜXˆàɈLÈLàLsÉ}ˆÈPÉÉÈpÈfÊ´wÍÈjÈs¬PLÈ‚ÊCÊuÜÜ¡ÊNLPPPCÊfÊjÈCpÊfXXÍÍÍM" -DATA 737073 ,"NPjÄPàPjjN›Ä›u›uÛj››MPzssœjjPPPsPÈ››j›PÐÙusLsˆPs››ÄÈœssMÈNÈusNÈN›››—Èœ›s›ˆPÍPNP›¬PNÐ×ÈÈP—ˆNPNÈPˆœÍÉCNÈÈL–ÉÈÈàȬNYÈN¬ˆÐNNÈÈNNPP´›NNÈNȈàÊCÊå®ffàpÊÈp–aŸLÈÈÉLLŸ–P" -DATA 198919 ," ÊpÊrÊààÍàÊÊXfàffÊÊÊÊàÜÊCXÊXÊfXpÊÊÊXÊÊÊÊÍÉÊÊCrÊÊÊff¦ÊŸŽÍf‡ÏÊÊÊÊXÍCÊàÊC‚XààšÍ–àšÈLLɬɂÍàš––ÊX–ȬaàÈaLÉPˆššˆ¬LPŸLsàÜCÊXPLYÈNˆssCCX¬ÊÊfCPÅÈœjppfÜZÉpÜfÜXXÍÍ|NP" -DATA 81727 ,"Ä–©ÛPÍPsNjÄ›s—Œ—›Œj—uÈjNuu—N—s~P›uz›PÙ›sjNN—j us›PsNÈj›sPÈjNP›NsÄ›œzPNsjsP´NsLsy¬u¬ÈÈs¬ÐPÙNNÙsPÉLsNÐɈPUaàÓÍȬÉLÈÈLȬNš¬šÐPNèP¬NÉNYˆNYp¡CÜrCfåfLfrfÉ~ŸÈYÈŸÈNÈ–" -DATA 67855 ," ÊÊCàÊÊààÊÜf‚XfÍàÊXÊÊÊfÊXÜÊCÊàÜfÜfÜÊÊÊCpÊÊÜÊwÊÊÊXªf‚XXѪÊÊpfYÅCÊLÜÊÊÍÍÜÍÍ–Íf¬ffaÍCCÊÈšÅÍLÊXÍPš–N¬ÈĈ¬PÉȬÈLPY¬LÉLCXfNÍšà}ˆNaÊpCÍÅCÊy¬ÉÈÄPfifNÉЖpXpXfXÜX›y" -DATA 69391 ,"u›sPÈÉÅPPPPÄ› ›Û›››u›sÈu›jujŒjØ›jsPuNPÙºP›Û›j–sjÙ¬PsjsN›PÈÛÄÔsjÙPÐØœjÈsP×›yœNus›PNЛЛN›sNN›Éssj—¬PsPÈÈÈÉPÈNLNaÈNLNÈÈLNPÍÈšÈNNNÄÈÉÉNNˆPPpÊC®ÜfÊÊÊ–CÊfLfÉaÐÍàÈÉÜÉ" -DATA 69383 ," ÊàpCÊÍfààff‚fààfXÊXXXwpCwÊÜÊCÜÊXXppÊCÊàCrÜÜfàÜÊÜXffÊfdŽfÜÊÊfXXXÊpfÊÈfCXÈfààÍ–ÍšfÍÉpCÊÈLÄÍÈÜXàÉЈˆLààPÉÉÍN¬ÍÉšaÍÈšÈÍÊXLÈNšaȈÈCÊÊÊÉp®ÊÐÍLàLÊpÊÊNsÈ®CpfLfÉPj›s" -DATA 868159 ,"PÄsuLLÈĬÈÛsuÈz›ÄsuéÄsŒNu£œ›NÛnun£ÈNZ›suœÈPÛÈsPØzÈs—sÐsPsà›››sÈsjz›œsÈN›ÄjPssPPs¬PNsPsNs¬NÈN›NˆPsNÉÈNÄNÄ×ÉÈ~NˆÙÐaLLLˆNÈÉÍ–LÈÈNÈ¥PÈÈÈLÈLrpÊÊÊÜÜfÜfÊÉÍ~XÍfÊfÍ––ÍL" -DATA 78123 ," àšfÜàX–ššfà–ÊÊÊÊXÊXÊÊÊÊÊfXfX¦pÊXÊÊàÊÊpÊÊÜÊÜXÜfÊXXÍX‚Ê‚ÍÜÊfXÏfÊÊÊÊàPLà¡ÍffÊàÉÍ–àLCCʬàÍšÅÊÜX–XÉ–ÈÈÍšÍÈLÉÍfÜÍ͈›ÊÊÊfšfNLÈÓÉÈÜXÊpp®Ü¬XÍN¬ÜÊfÊN¬aXÈšÊÉÈĬ¬›É" -DATA 1782079 ,"zÄNÉLssÄP¬sÄ›NP›}MbjÙjuP›ÙÛuº›Èsu›ÉÐuyNkj×s››s£È¬aNjNNsPÈ›ssPNsÍNP›ÈNjNPjPbLPN›ÈÄPN¬›PssNP›NsÄ—sssNÈP¬›¬sÈšÈÄ›PNPÐÈNÈÈPȬÈNÉNsÉЛPÈPЖL–ÊÊÜÊÊÊÊCrÊfÈ´Ê–Í–ÜfÍfÍfX" -DATA 1916735 ," wÊÊààfÊàà‚à¡–fÊšÜÊ‚ÜfÊX¡XÜXfÜXÊÊpÊÊfÊÊCÊÊÊÊCÜÊÊfŽÍXàÊÊÍUXdpàÍ^XÉÊÊÊdà‚fCšààf–LÍLÐL¬åÊÊÊLLXÍXÈàÍàͬLÍÉNÍÈ–LÍXÐfà¬ÈÒÊÊ¡ÊÈLLˆLWÜà®p‚ÊÜÜÊÈÉàN‚ÊCfÈÉ–LÈÐÈÉÉÍÍLNœY" -DATA 198401 ,"jNPÈNzÙ¬ssj›ˆ›P©ŒNzzÄ£ˆuÛ©Œ›ÙÙsjˆÙ›Pz—NÐÉÙœssP›zÔ›NNs¬´¬sÐÈPsPÈzsNsÙÄÈÄÐȬÐÉPNNNNÄzNs›ÐPÐPÈsN›sPPÉNÈNÈÈÈPˆˆsPÈÈNšÈaœN¬ÈÈPNȬ¬NÉÉsPÈÐÈLÈNpÊCÜÊÜÜpÜÊÍšÉffšfÍ–fààPX" -DATA 4013871 ," ÊÍÉÍšfÊÍÍÊàÜ‚šXÉfÊÜpÜXÍfÊÜÍfÜÜßÊCÊÊrXÊÊCCÜÊÊÊÊÍXÍXÍXXŸÕCCÊåfÜÊCÊpCÈ–ÍrÍÉàÈÈàLÉÍšÊÊÊCÍÈffÊfÍ–šÍYÈL–ÍÉÍà–à–pÅÉšÍCÊfÊÊLÉàÈÈNÜfÊÜÜÊCfÊXÈLL–pÊÊÜ–ÈÈXfÈÐaPÉ›ÉYÉN" -DATA 4144959 ,"—NP›ÈÈjœ›s›ÐPN›LPÈNssÙs¥PÈ››Û›s›—›NyPPÄÛNPPs›sÉ›j¬ÄPjÙÄsP—PÄj›P¬¬NPNsPˆÄ}NÍPÈÍÍĬNu¬ÈPNšPPsP¬aÉÈÈ–LŸL¬ÈLÍ–N¬—zNšÈYL¬ÈNЬN¬NÈP¬È¬›ÐÈN¬ÐÈÉÊCÊÊÜÜÜÊÊÜÈ–š¬–fÊNÍfLÄfÍ" -DATA 2965311 ," ÍàLààààfàfpfšfàÊpXXfXXÍpÏfCÜCrXàfÊÊÊÜWÊÊààÜÉŸŽXŽÍfXpÊÊÉpÊÉÊÊÊÊÊLšš–LšÈÈÍLÍaÍÊÊfÊÊÊÉfÜšfÉÈfÍÍXLÍàÐfLàÍÉÈåÐXš–CÊÊÊfÉLÍyÍf–ÍÊfÜfÊCÉÜÈÍ–ÈÊfÍ––ÈȖɬLÈÈÈ–LÉÉ" -DATA 999219 ,"ÈPÈÄsÐNÄÈPsPÈNœØs›YzsÄ›PP››PNs›ÈÛjPsjPÙÄ~sÛsjZPNÐœPPPLus×ÕÙÙÄ›sPsÄ››ÈMLs¬PN¬¬sÈNjPPsPsP´ÈȈNNÈaPÈÈLÍÈNsPÈ›ŸÈÄNÈ´¸ÄÈÉNsRaÅL¬ÉPÉÉÉÐÈšÉÈÉÈÈ‚ÜÜÜXrÊÜÜfLÉfÍÜÍ–LLfffÊÍ" -DATA 4144927 ," š–fààX‚àà‚Å¡ÍÍÅaÊÊàXrÍà‚ÍàÍX–ÊfXfÊfÍÊÊÊÜÍÜÜXÊʦÊf–ÜÕXÑÉÊpÊCŸLÍCÊÊààÈÍr–fКfÍÍàšffÊppàffàÍÊL–fffÍffÍX–ÍfÍÉͬÈfÜCÊXÍ–LLͬÈXšfpÊÊÊÊÜfÈÊšdÜÊXLÈÈPˆÉLšÉÈ~ÈÐLÈÛ" -DATA 4144700 ,"PPsN¬¬P¬NPØsNLssPN—j×z¬éPÉÈaÈPM—ÛNj›PsPP›jPPzNЬsj—N—sjP¬—ssÈP›ÈPsÈPNˆs›ÈˆNÄsNN›NP›¬›ÈÈÈ×ÐPP×PÍÉLÙ¬ÐÈŸNNÈÄPÄ´ÐȬÈÈÄPиNsÈLÈLÉɬPÉȬÐLÈÈÈÜ®ÊÊÜÊÜfLÓÜÍЬC–Í–ff~Í" -DATA 2105360 ," rpXffÍÍÍrÍšX–fXàXÊXf–ÊX‚XͦʂÊXXÊÊàÊÊÊCÊÊÊʦdÊXÊfXXX‚frÉÊÊÅfÄ––ÊÊÊpÍÉf–LXÍšfÊàXàfffÊÊCXÊÍàp^fÊÊÊàpÊXÊ–fàʬÊàÅàÍÈ¡ÊÊfašÈÉȬ¬ÍÈàÊÜwÜÜÜÊLfXÊ®ÊÊšLÉPÅLÈX´ÈsNNÈÈN" -DATA 16160 ,"ÄN¬››P›s›ÈÄPPbPPNjÈ×zÄÈ›PÈ´P~sNPjsNPPÈPN›¬¬PPs›ÄÄPsPPÈNÐNœ¬È׈›PNP›PÈsÐsLˆjÉ›ÄsÈÈÈNPPLÈÈNN›NÄɬÈÈNÉLLÅÈÈNNLÈÈPXÈa–ÈÍ~¬a´PȬNÉÍÈ–NLLÕ¬ÍÄÜpÜÊåÜÊÜÜÈÈfÊYÉ–aÜàfÉÏ–" -DATA 4112 ," Lšš¡àÍLL–šàÍšààšÊÊXÊÊÜàÍfÍfXÍCfÍXÊÊÊCCÊÜfÊpÊXÊX^ÊÜÍÊÑŽwCÊÜÍ^ÈXfÊfÜÉàÍfXfàfÍ¡–ÊààÊfÊÊÊCÊÊÊÜ–àffÊpXCÊÜàY–ÉÉ––¬ÉÍͬʂÊÍÅa¬ÉÈLÅÈÅÊÊpÜÜÊÊÊC‚fåÜÜPNNŸ›–›ZÈLPÉPPXÉÉ" -DATA 2699836 ,"LÈÈYPÈNÄÕPˆÈ›PŸ¬PÙssP›PMPsszk¬›È~ÄN¬››NNÙÐsN´NPÈzsÄNLN›ÐPsˆPPPNØPNÈN~ØssÈÐPÄPȬNPÉ~¬zÈÈNLNNsNȬNÈÈNP¬ÈPN¬ÄLȬNY¬ÍšNašÅÈÈNÈazÉÈLŸXÉÍÉ–LLLLÜÍCråfåfLÉfÍÍLÍÈšÈÈfÜXà" -DATA 8255 ," ‚ffÊ‚fÊÜÊÉšCÍàfXÊÊÊrÊXÊÊ‚XfLmÍÊÊÊÊÜ¡ÊÜÜÉÊÊCXÊpXÊXÍr‚ÏdÊf¡ÉXÍš–‚ÊàfÊffÜ‚ÉÊÜÊàÊÍfLÍÍÊÊpÊÊÊÜÍLCÊÊÉfÊCfÈÉà–àNàÍàÍÍLffàÉÉNȈLÍLÉÊÊÊÊpÊÜàÉšÊÊXX¬Ð–ˆÈÐL¬É¬ÕLaPNÈŸ" -DATA 2631721 ,"šuPpÈPjÈNY¬NÈÈÍŸ›ÈÍjPœNЛPNPssNPLÈP›´¬›n¬PLÄÈN›sPNNˆsPLˆNNÉNÈÄzš›PPNZÈ›sasLLÈÈœÐÐÄ›ÐPPNPaÈȬNȈɖNɈNÐPÉPPÐÈYPNÉzÈÈaYÉÉÈÅLÈÈÉÉYÐÈ–ÈLLšLšàpÊÜÊXfÍÐÑÈ–LfLŸ‚Éf¬LàÍ" -DATA 4128 ," ‚šàšàÊÊfàfXXÍXÜʦÊàfÜÍX®Êà^ÜÜʦpÊpÜpdXÊÜʦXÊfXXÕrŸà®ÊÊXÑšÍÍfXÊfÍÊfàÊ¡aÊà–àÊÊfXÊÊÊÊÊLL¦CNÍÍÊÊCfÉfÊš‚fYaÍ––ÈaÉÉܦXÉÉPLPÈÈÉNÊÊÊÜÊpàfÉ–ÊfÊ^ÈÐLĬÉ~LÈÍÈLÈÈPP×" -DATA 4128800 ,"´jPzÈÉNÄPŸ¬Èa¬È´Ns¬NN×NÈÐPÈPÄ×~Ÿ›sÈ›jsjs~Ps›ÄN¬ÈNÄNsÍÐNÙд~ÈÈPÉP›ØPNœÈPŸÄsÐNsNÈÈȬ¬ÐÈÈ×ÈÉÐÐzÈÄÈPÈPšÈÈÉNNÈÉNÍfÈÈàaPPÈPÈYÈÉÉÈ´ÉLÍLÍȬÍÍ‚–ÈYCÜÜÊ–XÜÈfNNXLšÉ¬LÈLfÉ" -DATA 1048608 ," ÍššÜàÍÍfp‚šfÅÅXÍfÊÊÊÊÊfÊXXXfXXÜCÊÊÊÊÊÊÊpÊÊÊpÊXf^XfaÉÊXÉÊXÊÊYX‚L–LfÈ¡‚rÍ‚LÊfLpàCÊfXÊÊÊÍCÜÍ–Éa–ͬÉÉÈŸLÍNYšNÅÅÈiXÊ®ÊXÉÉšˆLЈPLCXÊÊCÊÊšaÊÜXÍššPÈÉÓsYÍȈÐsssÍP" -DATA 2101248 ,"sPPYjsˆÕNLLÈNLÉPÈ›ÈPsÄNsNP–LP›¬ssPsÉÈPPÈNœPsšÈPNsÈP¬}rÄÈÐͬNÄ›PÈÏsÈPsÈÈPaPÕzLÐÉÈÈP¬NÈLPÍ›L¬NLsNÐÅÈLNÏLNYÈÉÈÈŸ¬LÉLÈaNŸ¬aÉÕaÈɬÈÉ–ÈÐNÍš–ÉLÐÉÊÊÜpfåfÈYÍLL´LL–ÉÉraÍX" -DATA 3948095 ," XCš‚‚Xàà‚šfr‚àÍÍàffXÊfÜwfXàÜÜÜÊÊÊÊCpÜÜÊfÊfÜfÊÊXX‚X^ÍXÊÊÊÊCRÉÜ–ÉLšLàßÍÓXLЬÍÍš¬ÉÈÈÍff–ÊÊÍÅÈ‚šÍÐLiЬ–àÈȈÍÉ–ÈÍ–CpÊàXÈàÉÈLLÉÐÍpXÊfCÊÊf´ÊÊàÜÍÍ–NÈLÈÉjÈÈšÐLPNÉ–" -DATA 2697256 ,"~PP¬zÉÈ~NNŬ›¬PL¬NÄssN´NÄÐÐPNP›ÄNÈsjÈPLPÈÈsNÐÄ›ÙÈÈNNLP}as´¬NPÈPz~ÐÉNNÈÈÈNÄPÙÈaÐÈœPÉÍÈÙ´ÉÍà–ÐÈÍȬLÐÈÍÐÐPNNØÈÈrÈa¬NÉLÈP–ÉšÉN–ÉPÈÈXLÍÈÈPКLÐL‚ÊpXÍÊåÈÈÊÍ–É–ÈšÈÈÐLÍ" -DATA 2105376 ," XàÊààCrÊàÍf‚XàÍrÊÊXXÊpXÊXÊfÊXfÊÜXÊÊÊÊàCCCÊÊÊÊÊiÍÍÏUXÍUrXÊÊÍ^šÉ–ÍÍfÉšLàÉ–ršLšÉ–ÍÉÉÍÍXLÊfÜÊÊXÈÈÈÉaˆÉ–NÈXÈXpÈššaÉLÍÉCdCWXPàÍÉÈLÈšÍÜÊÊÊÜÊÞPfpÜfÊÊX–a–ÉÉÉP¬ÉpÉÉÈÈÈÉ" -DATA 63 ,"›ÈPjZsP¬ÈsNÄNNÈPNÍyP¬PPNÈPLL›NPÈÈÉÉNÉÈLÐP}ajNPÈsÈsŸ¬ÈNÄÉàȬšPN›NuNÈÈÈLNÄ–¬ÉLaÐLÈLaÈɈNÍaÈÈÐLÈLÈÙLLˆaPPNPÏLÈÈÈÕÉÏÐPÈ~LÈÈsÈÉLÑÈÉLNÍLÈÈa–LrLåÉÉwÜfÉaLÈÉaÈÅÉÉLÉšLf" -DATA 16128 ," frLÍàÊrÊÊàffXàfÊppXÊXXCÊÜÜͪC®fÜÊpÊàpÊÊCpfXÊÑfѦ^XŽÊÊÊXÍXšaÓÍfššÈààffàš–ÍLšašp–XÊÊÊÉ‚ÉÍYÐÍ–ÉÈšÉÍÍLÉfÈÈLÈLLÊffXL¬ÈÈaÈà–ÈpÊXÊÜfXÉÉwÊpÍÕÊX–ÈaaL¬ÈLÈɬX´~Õ" -DATA 16191 ,"ÉÉŸPsL–ÈsYPsÈÈPNŸÉÉPPÈÈКLàȬÐLÍÈP›ÈÈÄÄfÈÈÐPÈs¬¬ÐPNNÄÈPÈÈNPЬÈÉPNÐPzˆÈPÈÐÉN›LÉÉNšLNL´ˆÐP¬ÈNLfLÐÈPÈÈN~LÉÈÍÈÄÈȬÐsÕÉNœa¬La¬XÜÍXÈLÉÉfNÈÈXLͬ–ÏfCpÑÜpLLa¬ÐLLÉ}LÉXÍÍ" -DATA 4128768 ," àÊL‚àààÊÊàrÜààÊX®CÊÜÜC‚ÊÊàÊfÊÜXÊÜÊÊÊÊÊCCÊÊÜXpÍffmåÍŽm|ÊX¦ŽÊÍÉšÐfšÍÉàÈaÉÈšÍLàXLLÐÍÅ‚ÊÊÊp–šÍɈ–ÈLšÉÈÈPÈÍÉÈÑÈLÐÍLpffLɹÍÈLÈÈfÈNCÜÜÜÊÊÜLdåÊàNP¬šNɈÉÍ–ÍÈNÈLÈNÈÈ" -DATA 4128831 ,"¬LšÍÈL–¬ÈÈÈÄÈÄNNNYNssÈNÈɬȬNÈ›PÉÍYPÈÈP¬ÉLÈPNÉLÄÈ›NLPÈÈ~PNzNNLÈNÈLP}ˆÐPœN~¬rPȬ¬NÉPÐNÈ–ÕPLÈÉPÉÈfÈaN~a–LaÐPÈNÄÈÐNÉÉÈÈÉPšÈLÍÈÈLLLÍÍÉÈf–f–ÐÈpÊÍÍfdÍÕÉÈÈYÍÍÈÈÍaš––" -DATA 4144896 ," Í–ffppÜÊ–Í–XšfÊÊÊÊÊÊ‚ÍXfXXwXÊXÊÊppÊÊpÊÊfÜÊÊÊÍXÊÍÄÉfXmÜÍp‚ÉÜšÐXfšafLšfÉL–ÍÍàÑLÍš¬ÉšÊàÊÍÍšÉÐLLÍš–fXÉÈLÈCLPšÍÐLNÊàfXÈàLÍÉàÍLÉ–ÜÊÊÜÊfÊPÊÊʦÈÈLXÛ~ÉN~šLfÈÍÈaɬN" -DATA 4144959 ,"ȬXf¬NNàÉLPLLN´sLPÈÈNN›ÈNÉs¬›ÈPNP›NaÐPجP~ŸLPLÐNÈÐÐPsP~sNÈPPÄ›PLPÈÉÈÅÈÈPzÈL~PLÈÉaÈLaÈLNÐNЈÈÈLÈÈÉÈ}ÍÐsLÍpÈÈÕšÈÈfЖÉÈÈÅÈšÈafa¬LfNÓÍÍ–šÏffXLÐff~ÍfÜLfLÐÉÍšÐÉÈ~¬ÈXÉ" -DATA 0 ," àÍšÊfÊfÈÍÊšaà–XàÊXfÊXÍfÊʦÊXÊÜXX¦pÊpCÜÊÊÊÊXàfÊfCYÍÊXÄÏܦXfÊLfàšfàÉšXšàÍÍàpÉÉßÍ–XÍàfrfàÉLÉXLL–fÍLÈšÍÈÉÍššpÈÈšÐÊpfXÈà׬ÈÈÈÉ–šÊÜÊÊCpXÐrÊpÊLÏP¬ÈÍNaÈÄzͬˆÈNzÈP" -DATA 0 ,"Ä×YÍPÈÉfÈNÉÍÈÄÈÕÈLP–ÈN›ÈLÈNNÈLPNaȈNÈsfÈ–ÈÈÈÐÈNÈÈPŸÈ¬NNÈȈPNPÈLÐfNLÉÉNÐÈLÄÈÉÈÉPÐÐÉL͈PN¬LÈLɈÈЛP–àÉÈNPšš´PÐLÄ~NLLPÍÉÉÈLYLLXÈÍÈ´àÜ–ÑÈÈŸÈfiÈÊfÈÊfPà–ÍfàÉÉÉÕÈLÍ––" -DATA 0 ," rXfÊfàÊ‚àfXàXàšÊ¦Ê‚fÊCàÊÊfàÊÊCÊXÊXÊÊÊÊÊCÜÍpXÜfÍXXCŸiàŸpÊÊÉf‚ÍÊaÉrÍÍàšXf––ÉXš‚ÍšÉàÍšÊpʬfÜ–ÉÉÉÊ‚LPÉNLÉÈaÊ–š¬sÉÉàÊÊfÍÈNÍÈÈÈÈÐͬCÊpÍÜÊXÈÊÜÊrÈÕÉÈLÈà~L¬––N¬ÉšÉÈN" -DATA 0 ,"ÕPPfšÅ›sLa¬¬PŸÛNÈ~à–ȬNÈÈÈÄÈÉjsPPP¬¬PP¬LPP—sNÐÈȬÈÕÐÈÈPÈ´ÈLNYaÄÈLNLÈÈ–LNsLœÉÅÈÈšLLÍLÈšNNÉaÉ–NXÍ––ÉLàPfÉP~ÈÉÈŸašˆÉLÈÓЖaÉPÈ–ÈÈ´š¬–ÍÍÈȈÉÉÉaÈXLXÜfPÍÍ–fLLLɚ͖fÍ–" -DATA 0 ," ÜXšÜ–à‚ÊfÊÉàÍ‚ÍffÊÊÊfÜÊÊCàÊÍfÊ®¦àÊpÊÊÊÊÊCÊrÊXXXÕÏfÍXÜÍfÊÊàXàpLXLfÍÈÍ´–a–fÍXšLL–¬àÍšLÉÊÊÊÊf–¬LšpÄLÉ–LÍÉÍ–È–LÈÍXÊʦf‡ÉfLšÐÍÉÉÈÅ®ÜX¦pÊpÊCÜÊLÊÍÍLÄLÉLÅ›PŸÈšÉÈÍP¬" -DATA 0 ,"NÈNÈ–ÈÈY¬LÈN¬sÄP›k¬¬PÄPNÈYÈÈP¬N¬NÈL¬ÈŸÈ›ÈN¬ÄÈLPÉLÉLNaÈȬ¬P¬NYÈsÐÉ›NÉ–NsÅКLLšPœPÈÉÈLЬÈL›LL‡È›P¡àÉ–L›ŸLÈLÉ–ÉŸPÍL–¬ÉÈX–aLȬÈLȬȬ¬Í–NÈfLr––faÈàfpfLÈPÈLšÉšÉÉÍfÜÜ" -DATA 0 ," Xfààf‚XààXšfXfÊš¦ÊÊXÜXÜÊpÍÊÜÊàÊpÊÊÊÊÊÊÊÊCÊXÜfXÍÍmifC‚LLÉÍÍLLÍÉÈXÉ–àfaašfÈÈàÊšÉLfpCÊLàÈXÍLNfNLÈÍÍšÉfšÈÍ–ÊÍÊXàfÍàÉÅLšNrNLÍÜ‚pÜdÊ‚–ÊÊÊfLÉšÈLÉÍÍÈÈÈaÉ‚ÍÜŸÐL" -DATA 0 ,"›P¬ŸLÍNXaȬ–ÈYˆLÄȬÐaÈÈȬÈÈLÈ}ɬPÉLLȬPNȬXNLšNÈ–È¥šÈPÈÈLÈPÈÈNÈ–ÈLzPLPÈÑÉÉ–ÈÐLКŸPЬЬ–ÈÈÈafÈÈÐLÈfwÉLL¬È–~¬L¬¬ÈÉŸLLÍÍÉÈÉ–šLÈÍaÉLÐÈLÉÈLÈÍàÐYfLÉÉàÍLÉÍ–ÍÉaLLffàff" -DATA 0 ," ÊàÜÊfÊf‚fÍÍfÊÍšàÊÊÜfpÊʦfÊÊÊCÊÊÊÊÊÊÊÊdCÊÊpwfCÍÍÉÊwÍfXÊfÜfXÉ–fàX–ÜÉ––Üff––ÍÈ–Í–šÉffÍÉÜ–ÍLÈÍ–fÍšLÈÈÍàÉÍ–ÍffÍÈšÍÊÜXfÍÉÍ–X––ÕÍÉÈÍÍfÊCLLNÜÊÍÐfPLÈÍÈ–LÉÐÍÍfàÐLL–" -DATA 0 ,"PPÈYN–ÈÈŸXLÉÉЬÈY¬ÈsPÄNLfLȬ›LÈLÈÈÐÉPLÉÈL¬ÉšÈÈÈPLLÍLLÈÉÈNPÄŸNˆPYÍÉNsaNÈÉNÉ–NĬÈLÈPŸÐ¬ÈÈP¬NÐÈÐÈÉÈÍfÍ–LNÐNŸÈLÍPP´aNÍÓPPȬ–šàÉÍf–ÈPNȬšÈàʬa–ÍÍÍÉL–XÈ–ÉÏÍ–ÉaaÍXÊÍ–" -DATA 0 ," ÜÊ‚ÍàÊffàÊààÊ‚XÊCCpÊÊÊÊÊʦÊfåwÊÜCÊÊÜCÊÊCCÊ®ÊXpàÊXÊfX‡XXfÍÍX¡àà‚XÉÍÊXffàÍ‚LÍÍffÍf–fÜfàYšÍšÉšà¬Xfà–fXÈÍšÈXÉX~ÐLà¬Üʦf–––Xš––ÈÉ––Êfpš–ÈLÈXÈЬÈfaÉšLÈÓ–LåLȬÍf–š" -DATA 0 ,"ŸÉLLÈÈNȬÉÈŬPÍÉÉLÈÈÉša¬LÈÈÉÈÈÍÓLNÈ–¬LNÈȬÉP–ÐN~ˆPPÈÈÈiÈLNÈPˆÉÉa~YŸš‚ÈÍšÈÍÈÕÉÈNNÉÐaÉLXÈÉÐNÉÈÉLÈПÉf–ÜÈÍÐNÈÕÉÉÈLLLÈÈÐÈLÉÈЖX––LÍÈÈLŸ–ÐÈÍff–ÍÈ––ÉÈNYNšÍ–LÍÈÉLLiàÜ" -DATA 0 ," ÊàfpàÊÊÊXXàÊàfàCÊpÊf‚ÜÊX‚ÜÜfÜÜÊàÊÊÜÊÜÊdÜÊrÊÍfÍÊÍ‚‚CÜXXXXLfWàÜÊÍfršfÍÉÉLÉÍf–pfrÓÅLfÈšÍÍÍÈYXXXàLfLNšXÍàšÉPfXàpfÜÉPXÊ––LfNÉÈfÑààÈÉÈšXXÈ–LÉÍÉÍšŸšÉÉLÍÈNš–ÈÉÉ" -DATA 0 ,"šÉÉÉLȬÉÉÈÐPÉN~Ȭa–ašÉLЬX–ÉÉ~ɬaˆÉsÉNÈaÉÈÈÉNÍÉÈPÈÈÐÈN~ÐLÈLÈÈȬN¬ÈPšÐÐLÈšˆNNNPPaNšÈNÈšÈÉÈÉPÈÈPNÉÈÐÈÈÈÈÈLÈÐÍaÍ‚ÈsÏÈÈLPÐЖÐÜÜfɟКÉaÈÉÈP–L–ÈÐÉÈLfÍpXÉLaLpLNLLšfÍa" -DATA 0 ," ¦XÜrÊàÊàfÊàààÍàfÜÊÊCÜwÍÍfÊ‚¦^Xp¡ÊÊdÜCCCÊÊàf¦ÊÊÍpmXÜpÊÊÄXXffX–Ír–ÜÈÜLÍLÍÉÉÉÍà–ÍXfÊÉÓšÍàÍàfÉXÈffLàLfÍ–fXÜ¡XÍÍšÜÊÊÑÊÉÉÉÍÍšfff¬aÍÍšÈÍÉi¬¡Í–ÉÍÍrÈàÉa´–ÉLaXÍÈšPÈa" -DATA 0 ,"ÈšaÈÍЛLšÍŬNÈÉÍf–¬‚LŸPÐLÉšÍP´aXšˆÉ–šÄÉÈÉsššÍ¬¬aPPNLNaÉÈÈÍÉLÈ~NÈÈÈaÍåNÈšÐÉ–ÈLЬÈÈš¬ÍaÐÈ–ÉÍLLÈÈaššPLÈÉfÍfÈLLɬà~¬PŸÉL€XL‚Ífff–ÉÈaÈÈLLÉÐÉšLaÉÉÈÐfÈÈaLÈÍšÍÍÍÉÉa–X" -DATA 0 ," àfÊÊÊÊÊÍf‚XXÊÊàÜÊÊÊ®XÊÜfͦÊÊÜÊÊÊCÊÊÊpfÊpÊÜÊÍfÊXÍÕfÑŽÍŽÊffŽÊaf–fX¡CšÊÍšÉXÉLÍà‚–fLÈÊÊàÍàÍÍaÈLÜfÍÍÍfÜLÍÍàšNÍšÐÍ–CÊàXfaÉÍp––ÊÍÉNÕ–ÍÈpLÍÈfL–fLÈLšXXfÈÈšLÈÍ‚ÈÉÅ–L–" -DATA 0 ,"LÈšÕÕaN¬¬ÉÈÉÈÐÈ–ÉàÈfLfÈPÈÈÈÈLLL–NÓÍÐÅaÐÐÍŸ–ÈÍÐÐNÈšÈÐÈLNˆÉÈÈÈÍÉÉȬȖLÉLPYŸ~piL¬ÈX–LÈkfÊÐfÈÍLÈP–ÉÐPŸPfÉfÑŸPL–ÉLÉXÈf¬–´fÜÍÈXÉ–ÍfLaLÈŸLLÈLLÍÈÈ–È–ÐXLXfLpf–Í–Í–ÉfÉXÊ" -DATA 0 ," àààÍà®ÊCÊààfÊÊÊÊÊÊÊÊÊÊfÍC®XÜÜÜÜÊpÜÊÊXÜàfÍX¦ÊÍ|mÜmŽ–XÍfÍ–YˆfÜÉšXàÍXLÉÍÍffLÊ‚fLÍ‚LɬÍÊffÈYÉÍÈÈrÍLfLÈ–ÍLrÊX½ÈLÉLÍXÍ–ÍÐÈfÉ–àÜfLfÍ~ŸÍ¬ÈšaÉà–ÍÍšÍLˆNÐÈÈL›" -DATA 0 ,"LPàÈЖsÉfÈÍÈÈPÉN–NÈfÐÉÈPÈLÉÈNÈYša¬LLˆYNLÍaÐL–NLÐÉÈÉNLaÈN–ÉPLàaLNLNÛ~ÈÈÈLaÉaaLœpÉXYÍ€ÐfaL¬LÉàLÈÈÈÉÉÍÈÍÍLÈÐÈ–àfÍLŸaLÈÍfXÜÜfÍfràaLÍŸaÍNß–LÉ´LÍÍ–LÜXÉÊŸ¬–rÍÐX–C–" -DATA 0 ," àfÊÊàXÊàfÜX‚pXCÊÊÜÊXÜÊÊfffp¡ÊÊÊÊÊÊÜÜÊÊÊÊrÊfrÊfXÍÊŽf|Ê^͸XÜÊ‚¡ŸLÈšÜÅÉXLLÍÊpXLLÍšLfÉÉÈÍÍ–PrYXÕÉÈÈàXÍÉÍšfÐrLÍfÍrÜfÜaÉLÈaàff–ÉÉÈÊ–ÜafXLLÉÍLÐÕšÍLÈXÍÉ´¬ÐÍÈLÈLàˆ" -DATA 0 ,"ÉÈÈPÈÐÍÄÉÉÉLaÈLÈNN¬PÉȬȚš¬NÈÐÉÍLÉÈ–Õi¬–ÕaLLrX–Í–LàLNÈfàš×ÈL–PÐÍ–Ð~ÍPÅ´ÈКÈàšXÉN–N¬NÈLàfàÈÈaÈLLÍÉÈ–¬È–šÍLÉaŸÉÏLLfÍÐÍfɬf–XffåÊÈLÈPL–ÈÈLÈÉÍÐÈNàÈÈÈÐÍšÊÍÉÈɖͬ›¬¬´" -DATA 0 ," ÊàXfÊ‚àÊÊÊàÊÊàÊÊÊfÜàpܦÜpÊÜÊXÊÜÊCÊÊÜÜÊÊÊÊÊXÊÊCŽŽ¸àfªŸXfÜÉ¡fÊXfLXÜfÍÉLpÍàffXÈÄNÈÈÉ–ÅÉLXLÅÉ–ÈÉÈàLLÍPÈašffLÍfšCp¦É½¬È¡ÈÍÉÍfaÍšfLLÍàÍÍÉÊfLÉÉNàÅÍÜffNšLÍaLšÉÐL" -DATA 0 ,"zLÍiЬ–š´LÈÉÍÈYLÉÉÐÈÄÈP¬ÈÊÅNÈÐL¬ÈÉÍÈLfÍÜÍNåÉÍNÐÈÍLL–ЖfšL}ÈÈÈÈÈ}Lͬ¬NÍsÈÈL–ÐЖàLÅ´Í×aÉaÊàÈ–LLÍÈLšÉÓÍÉÄÈÍLLÍaLWLfÉL–pÍà¬Ü–f–ÍÜÍÍàÈfÈÈÉÉ–LLLÉNÍÍÈÍÍafÉÍÉÉLÐÍÉÈÍÉ–" -DATA 0 ," àÊ‚XÊdfCÊÊ‚àfÊ‚àÊÜÜÊpàÜÊÜÜÊCÊÉÜÊfÊCÊÊpÊpCÜÊfÊXffXÊÑXXXŽÊÊUXpÜLÉ–ÍКLffªšÈÍfÉÊÍLLÉÍÍ–É–aÍÈLÄLÈÉÈ‚Óa–šaLL––ÍLšXÉÊÜ®wfrÈÈLÈÓšfLÍÉLXÅÉÉLfÍÉXÍfЬÈLÈNšàafÈÈLfÉaÈÈ" -DATA 0 ,"šåà¬aÉLXÍPL´É–šLÉšLiNÈPÉÈÈ›PNÈÈLЖfÉL–aÉšÈÍPÈ–ÉÐÍÍ‚ÍaaLàÍÐÍÈNNÈNŸàY–LaÈšÍfYÓ–¬´àLÍɬÈP¬NÉLÉL€a~àÉLÈfPÉfÈLÏÐL´LÉÉŸàÈL¬ÉLÈÜ–fÊiÉfffÊÍ–ÉÈÈÉÈÈLaÉfXÍšPÐL‚LÈÈLààÈÐͬ" -DATA 0 ," ÊÊÊÊXÊfàCfÊffÊfÊ®ÜÊÊÜXÜÜ®ÜÊÊÊCÊÊCÜCÊÊÜÊpÊffXÍÊÊmàÍɦÊwѦÊÜrÉšL–fàXÍÍ–ÍÈÍXß–ÍLà–ÉXÈLÍLÍÍX–Ü–ÍLÍLLÈÍÍÍàÍ–åÊwXÉr´LÉ–ÉÈLÐÍ–~L–ÉÍ–È‚šXÍLÈ–NLÈÈÉÍaÈÍLšÈNȈ¬Í" -DATA 0 ,"LXXšÈÈLaÍ€ÉÍÈLffÍÈNÉfÍPÍÈPLÈȬNLš–‚ÈfÉÉÉÈÍ–sÐLÈLÉÍiNÄXrfLà–PÈNÈÉfàPÉÈaLÉLLÈÈÉX–PL~ÈÉÈÈÈN–ÜÍÍÍ–L––LÉÈÉÈÉÍÈiÍÉ–ÕÏL‚ffŸÍÈÈÄÊÍÍÜiCŸŸ~–LÍfzÈÉÍÍLÉÍ~àÜiašš–ÈLfÜaÐLÍLÍ" -DATA 0 ," ÊÊàà®ÊàpàXÊààÊÊÊÊÜfÜfXwfÊpÊCÊÊCÊpfÊ®CCåÊfʦpÊfÍÏXÏXÈ~XXÊÊÍà–ÍYÍwÜÍÍLÉÍpÍÍÐÉffff–àÜLLÉÍÉ–àÈ‚LX–f–LÍÍ–šf–fÈÜÜXfÊ–LÈfLÈLLÉÉÈàašpÊàf~ÉPÈfXfšÈͬ~LšLfšÉàYÍÈÍN" -DATA 0 ,"–ÉšÉÈ–Í|ÈÈfÍÉfLPN~´LsÉÈ–Ü–fÄͬaLÍffšÍL–ÈÍ´f£ÉÈÐÍÈs~ÉNLÍffÑLÉÍÈÈÉf¬Èš–ÐN¬–ÜÐÍÉfLÈLPÍÍÉÐÈš–fÍÍÜPÍÍÍÈÉ–ÉYÈà–NàPrÍXaÍ–¡È–È–É––fåfÍÊfÍÈÉ–ÍiaLÍÈLÉaÐLYNÍL–šXÜXÈLL–LÍaÍ" -DATA 0 ," ÊÊÊàÊÊÊàààÊÊ‚pÊÊÊÊÊÜfÜ®pÊÊCÊÊÜÊC¦CÜÊÜÊÜÜÊÊÊXfXfX‚f‡fʦ^ÊÍÊÊÍfši‚fÓffÉÍÍšÍÈfÉÍfÍ–LfÐÈÍfLÊfÈXÍLf––LNLfÍfššfàÍÊàfÊXÉÍšÉaLšÈàPLLÐYÍÈÈL´ÊiÈffXÈLCÈÈÉLaÐX‚–ÍÐÍf" -DATA 0 ,"ÉNÈÉȬLÏͬšN–NPÈLz´Ð–fX‚ÊȬÍN¬ÊÍšLLf}LXÉLÐÜÍàrL–ÈàPÊaÊLÍÈ›NNÍLLȬ–~LPÉÍͬÈXàLÉÈNLPÉÈPÍÍÜÍ–Èš~ÍšÍÉÍÈÈLÐÕàLfÑÈÉ–àPÈÓÉÉffLLfÍ–LfÊ~ÍfÉÍXÍÉÍ–fÐÊLÕÍÍaX–ffÐLL–fÍ–fÍÉ" -DATA 0 ," ÊÊÊÊÊÊpÊÊpÊÊÊÊÜCÊÊpÊàXp‚¦ÊÊÊÜÊÊåÊCÊfÊÜÊffÜÜfÊfrÊXXÍ|ÊàÊÍfÉÍfpÍ–LLLÉÉ–ÍfXÍrÍpÉÉɬÍÉÜÍÈÉÍ–Í–ÉÊÊ–Xaà–ÈLàÏ–ÊÊÜÑfÍÍÈaLLàÍ–~ÉLÈÐÉÍ´XÜ–P–LÉ––jXfLLLÉÉɚͬ–Xf" -DATA 0 ,"pPLÍLfšLÉYL¬LÍɬ¬PÈÐY›CXXP–saÍÈÉ–XC–ÉÈ–ff–ÏÍÉs¬N–ÐÉÄÍàfÍNÉÐNÈL–ÑLɈÍȬLšÉNL–YLÈÈ›ÈÍL~ŸÉLŸLÍXf–faÈÉ–ÈLÉŸÐLLfÍ–ÈåàÉÍišÍfLN~C¬YÍ–fÈLLÈaÊLȬLfÍLÍLÍÉÜLLfÈLÉ––fàÍX" -DATA 0 ," ÊfÊÊÊpàÊÊppàÊÊÊÜÊÊÊpXXÊfÊC¦ÊCÊÜÊÊÊCÜÜCCÊCfXÍÍŽ€‡‡¦ÊX‚XfÊàÍXÊÍÍÍXfXÍL–ÍÍÍfÈÜirÍÊŸfrÜNÍàNÉfÍÍaÓÉÍ–ÈÍÉfÉfÜÍÊÊXXÜÜPÉLiÍàLÉÉLˆÉÐaÏÍ–Í–ŸLšÍÈÍÈÉPÈšÈÈÈÍÍÐÉLLÈ" -DATA 0 ,"¬NÉNÍÈЖÈÍfXÈPÈ´ÈLfÍLÉLÈÈLÈLPÊPNPÍàpÍNNfÈȬ›LÈÈNÜCÉpLÈÄN~ÍÍÈÍNÈÈȬ¬ÉÈ––ÏÉaNaÈšŸ¬ÈÈLÍaÉfÍÍzfffPf´LLÍLL––ÈLXȬՖÈÉLšÍ–ÉLŸÍfÉXÕÍÐÉà–ÈN–Èå¡–LfÉ–š~à‚š–É––ÍXÉL" -DATA 0 ," XàÊÜÊrppÊÊÊÊÊÊÊÊÊ‚ÊXfÜÊÊÜwÜCÊÜåÜÜÜrXÊÊÜXÊXÜCÊpÏŽ‚Ñm^ÊÊXp¦ÊÊÍàpÉà‚LL–šLЖàXX–Í¡ÍLšÍÍÉÜÍfLÉ‚P‚XšÉ–LLf–ÉÉÈ®åaÍrfÜÜrffÍÉÉÍÍLÍXàÈXaLȬÉafiÍ–ÉÕÍÍLšÈŸPNYLÈNLaÉÈ–ÉÍ" -DATA 0 ,"LÉL¬LÈLfLÈXÈÄÈLȬÈÈ–Éà–~CLLÉàÐLÈÍÈPÄLP¬ÉÈÈÓÉͬPŸÈš–ÈÊÈLÉ}L¬jÍÐXšÈÏPÍàÕPLÈÜÐÈXÕÈͬÈÈLŸÈXNfàf–Í–XÉaLɖɬÈ͈fЖŸÍLLLÈͬf–¬ÍȚ̓ÊÍ–ÍXLÍåàfÉÈÅNffXÊÍåLL‚É–Í–É–fšÍÍ" -DATA 0 ," ÊÊÊXÊpÊÊÊÊpÊÊÊÊÊÊÊXÜÜdÜdåÜÜÊÜÊÊÊÊ¡àCÊÜÜÊÊÊÊX¦ÜÊfffXXpÊÍfXÜÍÜXXÉš‚–Íšfa–¬Ó–ÍLÉÜffÉXÅ®ÊLfLXÍ–ÉÍXÉXf–ÍÍYÍXàåÜXfÐXÍLÈÍfÉÈÉÈÈpÈLÈÈ~LYÉÈÈÍšÉÉàLÉ–È‚ŸÈ–ÈXX~ŸP´È" -DATA 0 ,"É––ÉašÉÈЬÈÈÕÈÈÈɬÍÈ–È~LÈLÉLÉÍÐLÉÉNÈLyPÈÉÉÈÈÉÐLÄPLàåÈàÈÈÈ´¬–ÉÉÍͬafNÍÉÍÈL¬ÈLÈÉaLÉNÍàÉLaÍfàfÊLÍåLÍ–¬šLÉŸÍÈÈÈNÊÐàfÍÈPÈÉL¬šLɬXXXÜЖÊXL–ÍɬÊàͬȖÈaLÍpLLÍšfLf–Lf" -DATA 0 ," ÊÊfÊfàpCÊÊšXààCÊÊÊÜÜXÜÊÜÊÊÊÊCÊ‚ÉÍÊÊÊÊpÊfXfXXXX^wXXCÈXXfÊàÍàrffXÉà–‚ÍàXš–àÉÉÈfÍXÍšfXÍwXÈXXLÍÍfÈfÐÈfÜ–f–wfXXf¦fÈX–LàpfaÉ–ÍÈ–LÈÈÊXÊÉXÍš–ÉŽNfÐɚŚXLÈÍÍLÈ" -DATA 0 ,"P–ÉÍÉÉÈÈÈÉÍaå–fÈšÈfYÉLÉÈLXLšÓÉͬÉÉÈÈÍfÈÈNÈÍÈÉLÍÈLLšà–NÑà–ÐÉÍÍÉÄ–ÉLLš¬X¬Lɬ–ÉLšÈš¬ÉXÈÉÈ–ÈÍLaÉÍ–Xåå¬ÍÍÈšÉÈfXÈÍLLiÍÊ–faP–ÍÍÈÉÉÏ´É–f–f–XfÜÍLXLšÍaÍÈffaLXLÍÊÍfÜåfàfšL" -DATA 0 ," ÊCàÊÊÊÊXfÊCšàÊÊÜÊfÊÊXÊÊÊÜÜÊÊÊàÍÊ‚ÊÍšÊÊCpCÊCXX¦ÜXfÊXX‡XÊÍ‚CÊÊšÈÊfÍfÜÏfXÍÉX––ÍàXÍX–LfÍfÉXÊaÏÜÈÍXÊÐÉÐÈÉÉÍÍÈÉßffÜÊXXfÊÊÈLÍÜÍXÍšL–iLÍÍÈÉÈȬÊȈfràÊÑÈL¬ÉÐLaÍÈÈÉX–¡" -DATA 0 ,"f¬fÉȬfÈLÊÉffÈÈÈÈÈÉfÈÈÍÉLÈLfXÉLšÉÐÈYÈXsÉÈŸÏŸÈÍÏ–P¬ÍaÍŸNfXÍÈͬšPȬÈÐjÉ–L–ÉÍ–ÉÈÈXÑÍÈ~¬LXÈL~ÍfÉÉf–ÊLÓ€LÍÈÉÏÍÉÍÍaLÜ–ÜÍÍÍLÈLfÍ–Éfr–ÜLÜf–f––fÍÈÍLÊÍL–ffšLÍÍààÜÜff–––" -DATA 0 ," ràXÍpÊàpÊwàÊÊÊÊÊÊXwÜXXCÜÊÜC‚‚fp–à–ÊpÊÜÊfÊX–ÍfXŽÊXÜCÍXÍÊXCÍXÍXÍàÍÍafÍÍXLffÊÜXXfCÉf‚ÍrÜàÊÈpLCÜÈPLÉÉaÈfLŸÉXÍÊL–LPÉÍfLPXpY–s–LÍÉLÍ~ÈfÍÐÍazÍÜfÍÉÈLÉL––ÈLÈ–LX" -DATA 0 ,"NÉ–YPÍ–ÉÍLÊÈКLàÈÈ–¬XfÍàÉÉf–Ü¡àfÈͬ¬ÈÉÈa–šiÅÈÍ–ÉrÈ–ÈfffåÄ‚–YÈLÉÈsÈfàÈÍC›LÈÈÈ–X–PÉŸÉa––LÓÏÈÉfpCÈÍfpfŸÈɃa–àfÈLf–fÜPfÍÍàÍÉL–ÍÍÍÈpfÊfÜÊÊÍÍšàÍàÍaÍL–¡ÍfÍfÍ–‚–fšÍàÉ" - diff --git a/programs/samples/misc/frac1.bas b/programs/samples/misc/frac1.bas deleted file mode 100644 index 6fca1844e..000000000 --- a/programs/samples/misc/frac1.bas +++ /dev/null @@ -1,17 +0,0 @@ -DIM XX(1 TO 3) AS DOUBLE, YY(1 TO 3) AS DOUBLE, X AS DOUBLE, Y AS DOUBLE -DIM I AS INTEGER -SCREEN 12 -WINDOW (0, 0)-(1.6, 1.2) -XX(1) = 0 -YY(1) = 0 -XX(2) = 2.4 / SQR(3) -YY(2) = 0 -XX(3) = 1.2 / SQR(3) -YY(3) = 1.2 -DO -I = INT(RND(1) * 3) + 1 -X = .5 * (X + XX(I)) -Y = .5 * (Y + YY(I)) -PSET (X, Y) -LOOP UNTIL INKEY$ = CHR$(27) - diff --git a/programs/samples/misc/frac2.bas b/programs/samples/misc/frac2.bas deleted file mode 100644 index 9dfa41af7..000000000 --- a/programs/samples/misc/frac2.bas +++ /dev/null @@ -1,19 +0,0 @@ -CLS -SCREEN 8 -s1 = 225 -f1 = 1.4 -s2 = 225 -f2 = .35 -x = .4 -y = .1 -FOR i = 1 TO 2000 -x1 = y + 1 - 1.4 * x * x -y = .3 * x -IF s1 * (x1 + f1) < 640 AND x1 + f1 > 0 THEN -IF s2 * (y + f2) < 350 AND y + f2 > 0 THEN -PSET (s1 * (x1 + f1), s2 * (y + f2)) -END IF -END IF -x = x1 -NEXT - diff --git a/programs/samples/misc/frac3.bas b/programs/samples/misc/frac3.bas deleted file mode 100644 index bda50ab0d..000000000 --- a/programs/samples/misc/frac3.bas +++ /dev/null @@ -1,21 +0,0 @@ -SCREEN 12 -WINDOW (-5, 0)-(5, 10) -RANDOMIZE TIMER -COLOR 10 -DO - SELECT CASE RND - CASE IS < .01 - X = 0 - Y = .16 * Y - CASE .01 TO .08 - X = .2 * X - .26 * Y - Y = .23 * X + .22 * Y + 1.6 - CASE .08 TO .15 - X = -.15 * X + .28 * Y - Y = .26 * X + .24 * Y + .44 - CASE ELSE - X = .85 * X + .04 * Y - Y = -.04 * X + .85 * Y + 1.6 - END SELECT - PSET (X, Y) -LOOP UNTIL INKEY$ = CHR$(27) \ No newline at end of file diff --git a/programs/samples/misc/frog.bas b/programs/samples/misc/frog.bas deleted file mode 100644 index 7b559da18..000000000 --- a/programs/samples/misc/frog.bas +++ /dev/null @@ -1,708 +0,0 @@ -'RETRO.BAS by Matt Bross, 1997 -'HOMEPAGE - http://www.GeoCities.Com/SoHo/7067/ -'EMAIL - oh_bother@GeoCities.Com -DEFINT A-Z -DECLARE SUB BYE () -DECLARE SUB ShowHiScore () -DECLARE SUB DELAY (SEC!) -DECLARE SUB FrogINTRO () -DECLARE SUB OptScn (SPECIAL) -DECLARE SUB Frogger (TLIVES%, ODIF%, OT%, OD!) -DECLARE SUB NewHiScore (SCORE%) - -TYPE ScoreType - SCORE AS LONG - PERSON AS STRING * 3 -END TYPE - -DIM SHARED HISCORE(9) AS ScoreType - -SCREEN 7: CLS -RANDOMIZE TIMER + VAL(DATE$) + RND -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%INTRO AND GAME%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -FrogINTRO -ShowHiScore -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%BEGIN DATA%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -FroggerGraphics: -'frog -DATA 9,9,0,-32612,0,-32612,20,-32578,0,-32598,0,-32513,0,-32513,-32567,-32513 -DATA 0,54,8,62,0,54,0,127,0,127,28,127,0,99,34,-32541,0,-32575,-32575,-32575 -DATA 0,0 -'car1 -DATA 9,9,-32513,-32513,-32513,0,-32575,-32575,-32513,0,-32575,-32575,-32541,0 -DATA 0,0,-32541,0,0,128,-32513,128,0,0,-32513,0,0,0,-32578,0,0,0,28,65,-32578 -DATA -32578,-32578,0 -'car2 -DATA 9,9,-32513,-32513,-32513,0,-32513,-32575,-32575,0,-32541,-32575,-32575,0 -DATA -32541,0,0,0,255,-32768,-32768,-32768,-32513,0,0,0,-32578,0,0,0,28,0,0 -DATA 65,-32578,-32578,-32578,0 -'log1 -DATA 9,9,-32640,-32513,127,-32640,0,-32513,-32513,64,0,-32513,-32513,64,0 -DATA -32513,-32513,64,0,-32513,-32513,64,0,-32513,-32513,64,0,-32513,-32513 -DATA 64,0,-32513,-32513,64,-32640,-32513,127,-32640 -'lily -DATA 9,9,-32547,-32513,0,-32513,-32632,127,0,127,0,-32513,0,-32513,8,-32513,0 -DATA -32521,-32632,-32513,0,119,-32567,-32513,0,-32586,-32575,255,0,255 -DATA -32541,127,0,93,-32513,-32513,0,-32541 -'water -DATA 9,9,-32513,-32513,0,-32513,-32513,219,0,219,-32513,146,0,146,-32513,73,0 -DATA 73,-32513,-32513,0,-32513,-32513,219,0,219,-32513,146,0,146,-32513,73,0 -DATA 73,-32513,-32513,0,-32513 -'road -DATA 9,9,-32513,-32513,-32513,0,-32513,-32513,-32513,0,-32513,-32513,-32513,0 -DATA -32513,-32513,-32513,0,-32513,-32513,-32513,127,-32513,-32513,-32513,0 -DATA -32513,-32513,-32513,0,-32513,-32513,-32513,0,-32513,-32513,-32513,0 -'exit1 -DATA 9,9,-32513,0,0,-32513,-32513,127,127,-32640,-32576,64,64,-32577,-32576 -DATA 64,64,-32577,-32576,64,64,-32577,-32576,64,64,-32577,-32576,64,64,-32577 -DATA -32576,64,64,-32577,-32576,64,64,-32577 -FroggerIntroPalette: -DATA 1,0,7,2,8,7,4,5,7,7,10,10,10,8,7,15 -FroggerIntroGraphics: -'title1 -DATA 57,87,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-3976,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,-3841,0,0,0,-24576,0,0,0,0,0,0,0,0,0,0,0,-1793,0,0,0,-16369 -DATA 0,0,0,0,0,0,0,0,0,0,768,-1793,0,0,0,-3969,0,0,0,0,0,0,0,0,0,0,7936 -DATA -1793,0,0,256,28927,0,0,0,0,0,0,0,0,0,0,16128,-1793,0,0,3840,28784 -DATA 0,0,0,0,0,0,0,8192,0,0,32512,-3841,0,0,1536,-8159,0,0,0,0,0,0,0,-8192 -DATA 0,0,-256,-3841,0,0,2048,-8189,0,0,0,0,0,0,0,-8190,0,0,-253,-7937,0 -DATA 0,20224,-16361,0,0,0,0,0,0,0,-16363,0,0,-249,-16129,0,0,-26623,-32513 -DATA 0,0,0,0,0,0,0,-32705,0,0,-241,-16129,0,0,-20477,127,0,0,0,0,0,0,0 -DATA 63,0,0,-481,15615,0,0,8199,-16322,0,0,0,0,0,0,0,30,0,0,-225,1023,128 -DATA 0,16399,-994,0,0,0,0,0,0,0,30,0,0,-225,1790,96,0,16399,-2019,0,0,0 -DATA 0,0,0,0,28,0,0,-193,1276,32,0,16399,-1765,192,0,0,0,0,0,0,24,0,0,-129 -DATA 1272,32,0,24604,-1225,0,0,0,0,0,0,0,48,0,0,-129,1272,16,0,12344,-1673 -DATA 192,0,0,0,0,0,0,112,0,0,-1,-31503,16,0,2096,31470,96,0,0,0,0,0,0,224 -DATA 0,256,-1,29935,16,0,26466,2496,160,0,0,0,0,0,768,192,0,768,-1,7904 -DATA 8,0,-10265,0,192,0,0,0,0,0,1536,0,0,1792,-1,608,8,256,-8977,128,112 -DATA 0,0,0,0,0,1024,0,0,3840,-257,832,8,768,-15889,128,144,0,0,0,0,0,0 -DATA 0,0,7936,-769,64,232,1792,-27665,128,0,0,0,0,0,0,0,0,0,16128,-257 -DATA 64,56,3840,4591,128,0,0,0,0,0,0,0,0,0,16128,-1537,64,16,7936,32495 -DATA 128,0,0,0,0,0,0,0,0,0,32512,-1537,64,16,7936,32494,128,0,0,0,0,0,0 -DATA 0,0,0,-256,-1537,192,16,16128,-308,0,0,0,0,0,0,0,0,0,0,-255,-769,192 -DATA 16,32256,32732,0,0,0,0,0,0,0,0,0,0,-255,-1281,128,16,31744,-232,0 -DATA 0,0,0,0,0,0,0,0,0,-255,-1793,128,16,32256,-200,0,0,0,0,0,0,0,0,0,0 -DATA -255,-513,192,32,-512,-208,0,0,0,0,0,0,0,0,0,0,-255,-3329,192,32,-512 -DATA -208,0,0,0,0,0,0,0,0,0,0,-205,-8449,64,32,-512,-14,128,0,0,0,0,0,0 -DATA 0,0,0,-197,-769,96,64,-8704,-14,160,0,0,0,32,0,0,0,0,0,-217,-3841 -DATA 48,64,-9191,-14,208,0,0,0,16,0,0,0,0,0,-221,-11777,40,128,-8931,-10 -DATA 248,0,0,256,40,0,0,0,0,0,-221,-513,52,128,-9955,-10,220,0,0,256,20 -DATA 0,0,0,0,0,-205,-16385,-73,0,-9443,-9,236,0,0,768,164,0,0,0,0,0,-185 -DATA -4865,19548,0,-27847,-17,-3857,0,0,0,76,0,0,0,0,0,-185,-3329,-391 -DATA 0,-18631,-49,-1801,0,0,512,112,0,0,0,0,0,-153,255,-16404,128,-18631 -DATA -33,-1805,0,0,0,224,0,0,0,0,0,-185,16639,32566,240,-18629,-97,-2079 -DATA 0,0,0,32,0,0,0,0,0,-185,8446,-221,254,14139,-65,15808,224,0,0,0,0 -DATA 0,0,0,0,-185,254,-224,235,28475,-65,2016,92,0,0,32,0,0,0,0,0,-153 -DATA 254,3904,-32519,20283,-65,128,254,0,0,0,0,0,0,0,0,-185,24820,128,-32514 -DATA 32571,-1,0,1,0,0,0,0,0,0,0,0,-185,205,128,-32765,-197,-1,0,0,0,0,0 -DATA 0,0,0,0,0,-185,192,128,0,-197,-1,0,0,0,0,0,0,0,0,0,0,-121,6608,0,0 -DATA -133,-257,0,0,0,6144,0,0,0,0,0,0,-121,5504,0,0,-133,-257,0,0,0,5120 -DATA 0,0,0,0,0,0,-121,-4672,0,0,-133,-257,0,0,0,-5120,0,0,0,0,0,0,-313 -DATA -17024,0,0,-133,-257,0,0,0,-17408,0,0,0,0,0,0,-1401,-9340,0,0,-133 -DATA -769,0,0,0,-10236,0,0,0,0,0,0,-1401,-17729,0,0,-133,-769,0,0,0,-18241 -DATA 0,0,0,0,0,0,-377,-2823,0,0,-135,-1793,0,0,0,-3847,0,0,0,0,0,0,-9329 -DATA -19233,0,0,-143,-1793,0,0,768,-20257,0,0,0,0,0,0,-3509,-1793,0,0,-207 -DATA -3841,0,0,512,-3841,0,0,0,0,0,0,-31919,-28469,0,0,-224,-7937,0,0,768 -DATA -32565,0,0,0,0,0,0,-30383,-7970,0,0,32544,255,0,0,2304,222,0,0,0,0 -DATA 0,0,865,87,0,0,-256,252,0,0,768,84,0,0,0,0,0,0,-6656,188,0,0,7936 -DATA 248,0,0,1536,184,0,0,0,0,0,0,8960,248,0,0,7936,240,0,0,768,240,0,0 -DATA 0,0,0,0,13056,248,0,0,3840,240,0,0,768,240,0,0,0,0,0,0,4352,248,0 -DATA 0,3840,240,0,0,256,240,0,0,0,0,0,0,7168,248,0,0,3840,240,0,0,3072 -DATA 240,0,0,0,0,0,0,7680,124,0,0,3840,248,0,0,3584,120,0,0,0,0,0,0,7936 -DATA 28,0,0,3840,248,0,0,3840,24,0,0,0,0,0,0,32512,140,0,0,1792,248,0,0 -DATA 0,8,0,0,0,0,0,0,-253,228,0,0,16128,248,0,0,0,0,0,0,0,0,0,0,-241,244 -DATA 0,0,-255,248,0,0,0,0,0,0,0,0,0,0,-225,252,0,0,-241,240,0,0,0,0,0,0 -DATA 0,0,0,0,-193,248,0,0,-993,0,0,0,0,0,0,0,0,0,0,0,-385,0,0,0,56,0,0 -DATA 0,0,0,0,0,0,0,0,0,-8000,0,0,0,63,0,0,0,0,0,0,0,0,0,0,0,30832,0,0,0 -DATA -32753,0,0,0,0,0,0,0,0,0,0,0,-14577,-8057,0,0,14336,0,0,0,0,0,0,0 -DATA 0,0,0,0,16128,-3969,0,0,0,-8057,0,0,0,-8185,0,0,0,0,0,0,0,-7937,0 -DATA 0,0,8,0,0,0,8,0,0,0,0,0,0,0,-1921,0,0,0,-16345,0,0,0,-16345,0,0,0 -DATA 0,0,0,0,-385,0,0,0,14352,0,0,0,14352,0,0,0,0,0,0,0,31800,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -'title2 -DATA 54,81,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,-7951,0,0,0,0,0,0,0,0,0,0,0,0,0,-7951,0,0,2048,0,0,0,8192,0,0,0 -DATA 0,0,256,-24322,0,0,0,0,0,0,16385,0,0,0,0,0,256,-7937,0,0,2816,64,0 -DATA 0,8192,0,0,0,0,0,256,-3842,0,0,0,64,0,0,1,0,0,0,0,0,256,-7945,0,0 -DATA 2,32,0,0,24,0,0,0,0,0,16128,-3841,0,0,-19455,80,0,0,0,0,0,0,0,0,16128 -DATA -3841,0,0,-7671,32,0,0,16384,0,0,0,32,0,32512,-24322,0,0,16514,240 -DATA 0,0,1,0,0,0,0,0,-256,24829,0,0,-32766,176,0,0,16386,0,0,0,0,0,-249 -DATA -24321,0,2304,-24824,0,0,1280,16384,0,0,5376,0,0,-243,16607,0,0,-8440 -DATA 0,0,4098,-20448,0,0,2560,0,0,-225,-7937,0,512,-256,16,0,4100,2048 -DATA 0,0,7424,0,0,-489,2047,192,1024,-16640,48,0,8456,-16384,0,0,7680,0 -DATA 0,-193,1258,64,1792,4352,184,0,16384,16396,128,0,0,0,0,-129,16626 -DATA 64,1792,2304,-24574,0,8192,-12028,0,0,0,0,0,-4225,-23324,32,3584,5120 -DATA 16386,0,4144,-6133,160,0,0,0,0,30079,1093,32,15872,2576,184,0,-21888 -DATA 16529,96,0,0,0,768,-1,-19272,48,20736,25856,74,0,1024,-32750,0,0,0 -DATA 0,1792,-1,7792,16,-3326,-32262,16512,0,256,352,160,0,0,0,3840,-257 -DATA 688,16,-2298,-7447,233,0,512,0,224,0,0,0,7936,-1,864,208,-221,-31520 -DATA 92,0,2048,80,32,0,0,0,16128,-1,16,112,-2289,-23836,-32618,0,0,10240 -DATA 0,0,0,0,32512,-1,144,32,-1265,1484,20490,4096,0,5376,0,0,0,0,-256 -DATA -257,80,32,-1177,735,180,0,0,2560,128,0,0,0,-255,-257,80,544,-3105 -DATA 9375,80,0,0,0,0,0,0,0,-255,-1,48,32,1407,-13793,16,0,80,8192,0,0,0 -DATA 0,-255,-257,32,32,1791,20751,16,0,8192,128,0,0,0,0,-255,-257,32,0 -DATA 3807,21020,12448,0,256,2176,0,0,0,0,-255,-1,184,8192,3775,16522,4184 -DATA 0,0,0,0,0,0,0,-253,-257,88,64,7799,-23024,-28644,48,256,-32768,40 -DATA 0,0,0,-214,-1,140,5184,3819,25408,8208,1,0,1040,16,0,0,0,-201,-257 -DATA 6,2176,17486,22612,4272,0,256,2720,96,0,0,0,-253,-1,37,-31616,3754 -DATA -29744,16627,112,384,81,0,0,0,0,-221,-1,16038,-11264,-12224,22980 -DATA 1089,8,0,-32768,0,0,-31232,0,-201,-1,21499,2048,-3864,9312,1156,512 -DATA 0,26656,0,0,-29952,0,-217,-257,-16409,-16256,-12208,6608,1032,56,256 -DATA 16385,8,0,1536,0,-187,-769,-10466,-22416,6200,-26368,2052,18,768,10842 -DATA 132,0,1537,0,-16537,-2817,27299,-25604,20737,21568,16,16384,2816,1448 -DATA 0,0,0,0,-185,-7425,8002,-18200,-13559,9608,0,0,5376,8408,20,0,0,0 -DATA -185,-7937,946,-28420,20997,68,4,40,6912,-22280,0,0,0,0,32611,-3841 -DATA 2,-31744,-17919,15626,-22384,-32752,1280,17728,64,0,0,0,-189,25342 -DATA 4,-18432,-11115,23191,49,4,2561,-30048,40,0,0,0,-189,255,4,-20480 -DATA -5380,-30556,4181,4,22785,81,0,0,0,0,-189,-32514,200,-28672,22751 -DATA 12309,-22452,44,27137,-24058,0,0,0,0,-189,253,168,-31744,-19974,17799 -DATA 17476,48,28674,0,0,0,-32768,0,-61,2046,104,0,12663,-27328,2050,29 -DATA -18432,-30718,128,0,0,0,-637,1524,216,1280,-23813,9386,29,152,20489 -DATA 1,20,0,0,0,-893,-3628,208,1024,16637,10254,1,569,43,10752,160,0,144 -DATA 0,-893,-6149,96,19456,16637,4104,12312,657,4108,128,4,0,8352,0,-53 -DATA 32495,160,1024,21757,149,0,56,5124,64,0,0,72,0,-4729,-2101,192,24576 -DATA 9470,8238,0,152,9744,0,0,0,209,0,-860,11791,64,20736,4350,-32555,0 -DATA 266,1248,0,0,0,40,0,25516,29223,128,20736,-9807,165,0,3584,10241,0 -DATA 0,0,80,0,-860,11791,64,21248,4096,-32560,0,17160,480,0,0,2048,32,0 -DATA -4857,-2101,192,0,1106,32,0,-24424,10768,0,0,512,16400,0,-30654,-3897 -DATA 0,0,11552,12,0,-30961,533,0,0,512,16,0,20032,24609,0,2560,3584,176 -DATA 0,16901,9232,0,0,256,64,0,1536,-24519,0,3328,1032,16,0,-24574,18450 -DATA 0,0,2048,160,0,1024,-4036,0,1280,544,12,0,4864,1,0,0,3072,48,0,1536 -DATA 28734,0,1280,16457,128,0,-24568,2049,0,0,512,0,0,3840,4349,0,1280 -DATA 176,104,0,16384,-32766,0,0,3328,0,0,16128,-12033,0,1280,16708,32,0 -DATA -32766,0,0,0,0,0,0,-256,-3841,0,1280,-8183,0,0,512,0,0,0,0,0,0,-256 -DATA -16129,0,768,12367,32,0,0,72,0,0,0,0,0,-253,248,0,1024,770,80,0,0 -DATA 0,0,0,0,0,0,3590,0,0,2048,-10240,8,0,-3839,-32734,0,0,0,0,0,-30965 -DATA 3264,0,1024,8232,144,0,21000,16,0,0,0,0,0,29456,-264,0,0,1420,0,0 -DATA 16,2,0,0,0,0,0,800,-4065,0,0,-24528,0,0,544,2112,0,0,0,0,0,64,-16889 -DATA 0,-24576,2048,0,0,0,20480,0,0,0,0,0,128,-2801,128,16384,0,16384,0 -DATA 128,2560,0,0,256,128,0,0,-29949,0,0,1024,64,0,0,8192,0,0,0,8,0,0,-16383 -DATA 0,0,0,16,0,0,0,0,0,0,0,0,0,-16384,0,0,256,0,0,0,0,0,0,0,0,0,0,-16384 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,-32767,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0 -DATA 0,0,0,-32768,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0 -'title3 -DATA 55,82,0,0,48,0,0,0,0,0,0,32,0,0,0,0,0,0,16,0,0,0,0,0,0,32,0,0,0,0 -DATA 0,0,96,0,0,0,0,0,0,64,0,0,0,0,0,0,64,0,0,0,0,0,0,32,0,0,0,0,0,0,-7952 -DATA 0,0,0,16,0,0,65,0,0,0,0,0,0,16465,0,0,16384,0,0,0,-32608,0,0,0,0,0 -DATA 0,-7951,0,0,8192,16,0,0,81,0,0,0,0,0,256,16483,0,0,16384,0,0,0,-32638 -DATA 0,0,0,0,0,256,-32605,0,0,256,0,0,0,16448,0,0,0,0,0,768,16597,0,0,768 -DATA 0,0,512,-32520,0,0,0,0,0,768,16633,0,0,2304,0,0,256,-32554,0,0,0,0 -DATA 0,768,85,0,0,0,192,0,0,234,0,0,0,0,0,512,-16134,0,0,-1536,0,0,256 -DATA 5,0,0,0,0,0,256,21,0,0,8452,0,0,2560,-32546,0,0,0,0,0,11776,-16129 -DATA 0,0,-16374,0,0,5376,0,0,0,0,0,0,-6400,16639,0,0,8,128,0,-4096,16384 -DATA 0,0,0,0,0,-16637,254,0,256,256,128,0,24576,16384,0,0,0,0,0,-235,-16132 -DATA 0,8192,2816,0,0,523,160,0,0,0,0,0,-5607,-3345,128,3072,18184,1,0,5890 -DATA 12344,0,0,0,0,0,-233,-18945,0,0,26112,-16246,0,10,16408,0,0,0,0,0 -DATA -193,-21254,192,0,256,67,0,-2781,4190,0,0,0,0,0,22301,16630,64,256 -DATA 512,-32624,0,-21978,10413,0,0,0,0,0,-4113,24818,32,-30976,512,-12261 -DATA 0,21784,-16307,0,0,0,0,256,-2057,20708,32,514,6656,16552,0,-21992 -DATA 165,0,0,0,0,3840,-1026,-29779,32,15878,16512,112,0,17729,1844,0,0 -DATA 0,0,14080,30167,1916,160,22279,-32162,16400,14336,-24408,3176,32,0 -DATA 0,0,-1280,-1025,584,192,-18425,18088,176,12288,21829,1952,128,0,0 -DATA 0,7937,30719,1476,576,21543,-30638,-32688,-16384,-22102,3856,0,0,0 -DATA 0,-22016,-5,144,64,-22134,-9542,248,21761,17748,32,0,0,1024,0,22273 -DATA 32725,1092,64,-11245,24645,8272,-22528,-21974,146,0,0,2048,0,-255 -DATA -1,230,96,21763,-20090,4344,0,20736,72,0,0,0,0,-255,30079,226,32,-24053 -DATA 13665,84,2,-30200,520,112,0,0,0,-2034,-18310,1015,2256,1,128,80,1537 -DATA 17541,-32504,48,322,7,0,-1785,22524,1016,3104,512,2128,4208,1616,-24575 -DATA 6927,224,262,8,128,-201,-1281,-15880,-32632,0,1280,8,76,0,4354,8,0 -DATA 5,32,-29,-3585,3042,2200,0,1024,8388,22,512,14617,24,0,14,0,-57,-1 -DATA -3075,4348,0,0,128,172,0,-13310,12,4,16,80,-2105,-2049,-4916,10342 -DATA -32768,0,4112,10450,2048,-24013,138,128,128,224,-2073,-1,-6408,4346 -DATA 0,0,1144,2156,0,-7929,0,0,64,128,-191,-1,29904,-24388,0,10240,8441 -DATA 22,0,28679,66,0,32,0,-18653,16351,2946,5290,0,17408,4112,2120,96,-6863 -DATA 228,64,2248,0,32515,22527,5120,11264,0,512,13921,18,2048,-29143,192 -DATA 128,-11104,0,-8397,-5633,-28152,7296,0,20484,14944,64,512,3079,64 -DATA 32,-24560,0,7937,-11777,1025,1024,8224,256,22211,-16334,3840,7423 -DATA 0,192,32,0,-253,-1409,6314,2048,160,-24319,32290,16404,1152,-13068 -DATA 0,-32768,2144,0,-255,-2561,20492,3072,64,1281,31777,8208,2816,-29450 -DATA 0,0,100,64,-1455,-22481,-22491,1536,4330,12112,-21936,5465,1984,1269 -DATA 0,-32767,160,0,-2799,-19121,-32523,2640,20727,264,2600,2052,25248 -DATA 265,244,8192,-2928,0,-504,31,-32544,29962,-8136,-26609,0,17666,12048 -DATA 133,6,0,208,0,-2814,2143,-16169,14336,16469,4207,2048,10887,20384 -DATA 25,0,0,9872,0,-1270,2192,-32745,256,-11927,12300,64,5252,-9170,-32676 -DATA 0,0,-32733,0,29957,528,13,512,-20076,28799,128,11144,-31154,128,0 -DATA 0,256,0,14495,-30559,40,0,1,-32202,0,-15668,16734,84,0,0,8,0,4373 -DATA -6909,112,8704,-6078,28,0,-21112,1556,142,0,0,16385,0,11818,8216,248 -DATA 1024,-15615,14,0,-3949,-28416,12,0,1024,0,0,18224,5320,96,512,1924 -DATA 232,0,30881,816,152,0,0,0,0,11818,-20196,252,1024,-7360,78,0,-28271 -DATA 4356,12,0,0,0,0,5397,-6369,242,-24064,12352,-30712,0,-20711,4684,6 -DATA 0,0,0,0,2624,-129,224,-28672,0,0,0,15616,16516,0,0,0,0,0,1344,29695 -DATA 192,-32768,42,0,0,5120,-17366,128,0,0,0,0,2816,-1281,160,0,0,4096 -DATA 0,5120,1280,192,0,0,0,0,1280,5616,0,0,3072,-32760,0,2560,-2302,96 -DATA 0,0,0,0,2816,-13316,224,0,0,0,0,1536,13507,0,0,0,0,0,5376,-2161,32 -DATA 0,4104,-32768,0,4096,2176,96,0,0,0,0,24576,-2032,128,0,784,16384,0 -DATA 16384,1792,0,0,0,0,0,-16384,29696,224,0,0,3,0,0,19456,96,0,0,16,0 -DATA 1,2816,32,0,0,0,0,1,1024,0,0,0,0,0,2,768,0,0,0,12,0,2,0,0,0,0,0,0 -DATA 4,1536,0,512,0,0,0,4,0,0,0,0,0,0,24,1024,0,8192,0,8,0,8,512,0,0,0 -DATA 0,0,32,3072,0,2048,0,0,0,32,0,0,0,0,0,0,64,4096,0,16384,0,44,0,0,0 -DATA 0,0,0,0,0,0,6144,0,0,0,0,0,0,0,0,0,0,0,0,128,12288,0,0,0,0,0,128,8192 -DATA 0,0,0,0,0,0,12288,0,0,0,0,0,0,0,0,0,0,0,0,0,24576,0,0,0,128,0,0,8192 -DATA 0,0,0,0,0,0,-16384,0,0,0,0,0,0,0,0,0,0,0,0,0,16384,0,0,0,0,0,0,-32768 -DATA 0,0,0,0,0,0,-32767,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,128,0,0,0,0,0 -DATA 0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,2048,0,0,0,2,0,0,0,0,0 -'title4 -DATA 55,82,0,0,0,0,0,16384,0,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,96,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,96,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,256,-16157,0,0,0,0,0,0,0,0,0,0,128,0,256,16483,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,256,-16157,0,0,0,0,0,0,0,0,0,0,0,0,256,-16191,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,256,-16157,0,0,0,0,0,0,0,0,0,0,0,0,768,71,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,768,-32569,0,0,0,0,0,0,0,0,0,1282,0,0,1280,-32552,0,0,0 -DATA 0,0,0,0,0,0,1280,0,0,1792,-32518,0,0,0,0,0,0,0,0,0,-31488,0,0,1792 -DATA 114,0,0,0,0,0,0,0,0,0,2560,0,0,3840,245,0,0,0,0,0,0,0,0,0,2048,0,0 -DATA 1280,213,0,0,0,0,0,0,0,0,0,3072,0,0,1792,243,0,0,0,0,0,0,0,0,0,32 -DATA 0,0,21760,84,0,0,0,0,0,0,0,0,0,-4859,0,0,-2044,-32766,0,0,0,0,0,3840 -DATA 252,0,0,400,0,0,16413,-32512,0,0,0,0,0,-256,252,0,1280,0,128,0,0,1792 -DATA 128,0,0,0,0,-32753,-16185,0,4096,10,0,0,29984,12480,64,0,0,0,0,-30708 -DATA -8057,0,28928,12288,2,0,-254,6216,64,0,0,0,0,5237,4124,0,2048,768 -DATA 136,3328,-1273,24828,192,0,0,0,-32000,-21821,2723,0,4,3072,21,-26624 -DATA -8385,-6061,128,0,0,0,1536,1,-10432,0,16568,6696,-32768,16641,-10305 -DATA -3868,0,0,0,0,15872,10794,514,0,513,4,209,-32767,-1027,11517,128,0 -DATA 0,0,-16384,2305,513,0,62,2562,208,257,-769,245,0,0,0,0,-9213,10784 -DATA -32736,96,0,256,2,8960,-1,-22274,0,0,0,0,-1018,3652,-16383,2272,2 -DATA 2048,0,257,-1,9462,0,0,0,0,-32754,0,-8191,256,32001,-2187,-4050,512 -DATA -30078,8329,0,124,136,0,-28643,64,13326,8440,257,-32536,171,518,5888 -DATA 11008,0,-16788,28928,64,25121,32512,-8180,17568,256,1024,23747,26 -DATA -32768,-15612,2,-355,-3328,28,17125,-18688,-16242,12,-30720,27136 -DATA -7444,22,2184,-13206,16,30653,4416,19,-1342,-8193,20367,62,4,2128 -DATA 0,63,20480,8,192,-20351,29729,191,-1088,28667,4095,2076,1028,8256 -DATA 25120,55,16384,32,128,29200,3219,223,-1086,28667,3054,8240,1108,0 -DATA -14832,20495,0,1025,8,29216,4243,235,-3327,-2561,-31105,8256,-24572 -DATA 24,2603,86,6816,640,100,6152,256,212,9249,-4081,-3329,3104,8208,7432 -DATA 1089,2096,2080,16413,714,-8509,16631,188,1041,-4081,-8462,1120,-32760 -DATA 18952,-32535,4272,2176,-14270,532,32483,1527,16,9248,-4081,-20225 -DATA 7520,4120,1801,5195,128,2320,1031,642,-4669,8438,176,-7935,-4081,20605 -DATA -22824,16400,-17401,1583,16,1792,-32708,32,-20466,760,80,528,3,24847 -DATA 794,-15360,2305,-32688,-116,312,19481,4,0,-7938,128,264,1,-7734,4866 -DATA 3712,2112,2096,32708,240,11784,0,0,13759,0,12,33,15904,4096,11777 -DATA 32583,241,-349,1488,12320,0,0,-32584,8,12289,1,5760,-13824,1536,32558 -DATA 240,-240,-22800,6144,0,0,81,0,28675,3585,15488,10240,16384,3552,0 -DATA -12416,-24386,-16270,0,0,17,32,32257,2304,26752,2560,808,20619,132 -DATA -31852,-22028,4111,0,0,84,0,-6400,898,-1918,1280,9232,19475,0,2218 -DATA 857,33,0,512,236,0,5376,716,-32665,-10240,58,-32654,32,4,-32197,24 -DATA 0,0,16385,0,3584,16255,-7937,-32768,16,-32684,0,316,-30323,72,0,0 -DATA 0,0,256,-24769,-32577,0,-32768,4,64,24,26688,64,0,0,0,0,0,-1,254,-32768 -DATA 1,-32508,192,48,0,8,0,0,0,0,0,-241,222,0,-12288,8192,0,48,0,0,0,0 -DATA 0,0,0,-1025,254,-32768,0,0,0,48,1024,8,0,0,0,0,256,-26817,-32579,0 -DATA 16384,40,64,280,20528,66,0,0,0,0,0,0,0,0,0,156,0,192,128,120,0,0,0 -DATA 0,0,0,0,0,-32768,0,0,256,0,16,0,0,0,0,0,0,0,0,0,0,0,1664,0,48,0,0 -DATA 0,0,0,0,0,0,0,0,0,3200,0,16,0,0,0,0,0,0,0,0,0,0,0,4096,0,96,0,0,0 -DATA 0,0,0,0,0,0,0,0,8192,0,64,0,0,0,0,0,0,0,0,0,0,0,-16384,0,192,0,0,0 -DATA 0,0,0,0,0,0,0,0,-32767,256,128,0,0,0,0,0,0,0,0,0,0,0,2,256,128,0,0 -DATA 0,0,0,0,0,0,0,0,0,4,768,0,0,0,0,0,0,0,0,0,0,0,0,24,1536,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,16,1024,0,0,0,0,0,0,0,0,0,0,0,0,32,3072,0,0,0,0,0,64 -DATA 0,0,0,0,0,0,64,1024,0,0,0,0,0,0,0,0,0,0,0,0,0,6144,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,128,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,12288,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,24576,0,0,0,0,0,0,0,0,0,0,0,0,0,24576,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,-16384,0,0,0,0,0,0,0,0,0,0,0,0,0,-32767,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0 -DATA 0,0,0,0 -'title5 -DATA 57,22,0,-241,248,0,0,0,0,0,0,0,0,0,0,0,0,0,768,240,-8185,0,0,-241 -DATA 248,0,0,0,0,0,0,0,0,0,15360,0,7680,0,768,-1,-7937,0,0,0,0,0,0,0,0 -DATA 0,-16383,0,256,192,16128,-1,-257,0,0,0,0,0,0,0,0,0,6,0,0,48,-255,-1 -DATA -1,192,-512,0,0,0,0,0,0,0,24,0,0,12,-249,-1,-1,240,-32255,0,0,0,31744 -DATA 0,0,0,32,0,0,2,-241,-1,-1,252,6673,0,15360,0,-7168,0,0,0,64,0,0,1 -DATA -225,-1,-1,254,-17631,-12289,-6145,248,17408,0,6144,0,64,0,0,1,-225 -DATA -1,-1,254,-16864,30860,18992,136,16640,-30861,-18993,112,128,0,0,-32768 -DATA -193,-1,-1,255,-19136,-19677,-25754,40,18432,19676,25753,208,128,0 -DATA 0,-32768,-193,-1,-1,255,-31424,-22714,-19634,72,30720,22712,19633 -DATA 176,128,0,0,-32768,-193,-1,-1,255,-17088,-20619,-28834,120,16384,20616 -DATA 28833,128,128,0,0,-32768,-193,-1,-1,255,-19647,11895,-17572,96,16384 -DATA -11896,17571,128,64,0,0,1,-225,-1,-1,254,4641,28728,-14752,32,-7936 -DATA -28729,14751,192,64,0,0,1,-225,-1,-1,252,-3295,-8209,-130,226,0,0 -DATA 129,0,32,0,0,2,-249,-1,-1,240,24,7424,-32646,12,0,0,129,0,24,0,0,12 -DATA -255,-1,-1,192,6,5888,-32658,48,0,2048,145,0,6,0,0,48,16128,-1,-257 -DATA 0,-16383,6144,-32271,192,0,1792,14,0,-16383,0,256,192,768,-1,-7937 -DATA 0,15360,3840,7839,0,0,0,0,0,15360,0,7680,0,0,-241,248,0,768,240,-8185 -DATA 0,0,0,0,0,768,240,-8185,0,0,0,0,0,0,-241,248,0,0,0,0,0,0,-241,248 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 - -SUB BYE -SCREEN 0, 0, 0, 0: WIDTH 80, 25: CLS -PRINT "FROGGER! Written in *QB*. Matt Bross, 1997" -PRINT "HOMEPAGE - http://www.GeoCities.Com/SoHo/7067/" -PRINT "EMAIL - oh_bother@GeoCities.Com" -END -END SUB - -SUB DELAY (SEC!) -FOR V = 0 TO SEC! * 70: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: NEXT -END SUB - -SUB Frogger (TLIVES, ODIF, OT, OD!) -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%GRAPHICS ARRAYS%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -REM $DYNAMIC -DIM FROG(37), car1(37), car2(37), log1(37), lily(37), water(37), road(37) -DIM exit1(37): RESTORE FroggerGraphics -FOR i = 0 TO 37: READ FROG(i): NEXT: FOR i = 0 TO 37: READ car1(i): NEXT -FOR i = 0 TO 37: READ car2(i): NEXT: FOR i = 0 TO 37: READ log1(i): NEXT -FOR i = 0 TO 37: READ lily(i): NEXT: FOR i = 0 TO 37: READ water(i): NEXT -FOR i = 0 TO 37: READ road(i): NEXT: FOR i = 0 TO 37: READ exit1(i): NEXT -'%%%%%%%%%%%%%%%%%%%%%%%%%%%INFORMATION ARRAYS%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -DIM FrogLev(23, 15) -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%VARIABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -NewGame: LIVES = TLIVES: SCORE = 0: DIF = ODIF: D! = OD! -'%%%%%%%%%%%%%%%%%%%%%%%%%%LOAD HIGH SCORE TABLE%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -OPEN "hiscore.dat" FOR BINARY AS #1 -'FOR i = 0 TO 9: GET #1, , HISCORE(i): NEXT -CLOSE -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%LOAD LEVEL%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -NextLev: CLS -FOR Y = 0 TO 15: FOR X = 0 TO 23 -SELECT CASE Y - CASE 0: IF INT(RND * DIF) = 0 THEN FrogLev(X, Y) = 8 ELSE FrogLev(X, Y) = 9 - CASE 1 TO 6: FrogLev(X, Y) = 6 -IF INT(RND * DIF) = 0 THEN - IF Y AND 1 THEN FrogLev(X, Y) = 4 ELSE FrogLev(X, Y) = 5 -END IF - CASE 8 TO 14: FrogLev(X, Y) = 7 -IF INT(RND * (100 - DIF)) = 0 THEN - IF Y AND 1 THEN FrogLev(X, Y) = 2 ELSE FrogLev(X, Y) = 3 -END IF -END SELECT -NEXT: NEXT - -FOR Y = 0 TO 6 - FY = -1: FX = -1: EX = -1 - FOR X = 0 TO 23 - IF FrogLev(X, Y) = 4 AND Y AND 1 THEN FY = 0 - IF FrogLev(X, Y) = 5 THEN FX = 0 - IF FrogLev(X, Y) = 8 THEN EX = 0 - NEXT - IF Y AND 1 THEN - IF FY = -1 THEN FrogLev(INT(RND * 23), Y) = 4 - ELSE - IF FX = -1 AND Y <> 0 THEN - IF Y = 3 OR Y = 6 THEN EX = 11 ELSE EX = 0 - FrogLev(INT(RND * 11) + EX, Y) = 5 - END IF - END IF - IF EX = -1 AND Y = 0 THEN FrogLev(INT(RND * 11), Y) = 8 -NEXT -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%RESTART POINT%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -ReStart: FX = 11: FY = 15: SEC = OT: ForStep = DIF: SideStep = DIF \ 2 -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%DRAW LEVEL%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -FOR Y = 0 TO 15: FOR X = 0 TO 23 -EX = X * 9 + 50: EY = Y * 9 + 20 -SELECT CASE FrogLev(X, Y) - CASE 2: PUT (EX, EY), car1, PSET - CASE 3: PUT (EX, EY), car2, PSET - CASE 4: PUT (EX, EY), log1, PSET - CASE 5: PUT (EX, EY), lily, PSET - CASE 6: PUT (EX, EY), water, PSET - CASE 7: PUT (EX, EY), road, PSET - CASE 8: PUT (EX, EY), exit1, PSET - CASE ELSE: LINE (EX, EY)-(EX + 8, EY + 8), 0, BF -END SELECT -NEXT: NEXT -LOCATE 2, 14: PRINT SPACE$(12) -LINE (0, 178)-(45, 186), 0, BF -IF LIVES > 5 THEN SLIVES = 5 ELSE SLIVES = LIVES -FOR X = 0 TO SLIVES - 1: PUT (X * 9, 178), FROG, PSET: NEXT -LOCATE 22, 1: PRINT "LIVES": LOCATE 1, 16: PRINT "FROGGER!" -LOCATE 22, 9: PRINT "SCORE": LOCATE 23, 9: PRINT SCORE -LOCATE 22, 16: PRINT "TIME": LOCATE 23, 16: PRINT SEC -LOCATE 22, 23: PRINT "LEVEL": LOCATE 23, 23: PRINT DIF -LOCATE 22, 31: PRINT "HISCORE": LOCATE 23, 31: PRINT HISCORE(0).SCORE -PUT (149, 155), FROG, PSET: IF LIVES <= 0 THEN GOTO LOSE -DO: LOOP UNTIL INKEY$ <> "" -T& = TIMER MOD 86400: DO: LOOP UNTIL TIMER >= T&: T& = TIMER -'------------------------>BEGIN MAIN LOOP OF FROGGER GAME<------------------- -DEF SEG = 0 -DO -'**********************************GET KEY*********************************** - - -'a = INP(&H60): WHILE LEN(INKEY$): WEND -'SELECT CASE a -' CASE &H48: OFX = FX: OFY = FY: FY = FY - 1 -'SCORE = SCORE + ForStep: KeyPress = -1 -' CASE &H50: OFX = FX: OFY = FY: FY = FY + 1 -'KeyPress = -1 -' CASE &H4B: OFX = FX: OFY = FY: FX = FX - 1 -'SCORE = SCORE + SideStep: KeyPress = -1 -' CASE &H4D: OFX = FX: OFY = FY: FX = FX + 1 -'SCORE = SCORE + SideStep: KeyPress = -1 -' CASE &H1: GOSUB ABORTGAME -' CASE ELSE: KeyPress = 0 -'END SELECT - -a$ = INKEY$ -'a = INP(&H60): WHILE LEN(INKEY$): WEND -SELECT CASE a$ - CASE "8": OFX = FX: OFY = FY: FY = FY - 1 -SCORE = SCORE + ForStep: KeyPress = -1 - CASE "2": OFX = FX: OFY = FY: FY = FY + 1 -KeyPress = -1 - CASE "4": OFX = FX: OFY = FY: FX = FX - 1 -SCORE = SCORE + SideStep: KeyPress = -1 - CASE "6": OFX = FX: OFY = FY: FX = FX + 1 -SCORE = SCORE + SideStep: KeyPress = -1 - CASE "q": GOSUB ABORTGAME - CASE ELSE: KeyPress = 0 -END SELECT - - -'********************************MOVE FROG*********************************** -IF KeyPress THEN -LOCATE 23, 9: PRINT SCORE: SOUND 500, .5 -'*************************CHECK BOUNDS OF THE FROG*************************** - IF FX < 0 THEN FX = 0 - IF FX > 23 THEN FX = 23 - IF FY < 0 THEN FY = 0 - IF FY > 15 THEN FY = 15 -END IF -'********************************DRAW FROG*********************************** -IF KeyPress OR FY < 7 THEN PUT (FX * 9 + 50, FY * 9 + 20), FROG, PSET -'******************************ERASE OLD CELL******************************** - IF FX <> OFX OR FY <> OFY THEN - EX = OFX * 9 + 50: EY = OFY * 9 + 20 - SELECT CASE FrogLev(OFX, OFY) - CASE 2: PUT (EX, EY), car1, PSET - CASE 3: PUT (EX, EY), car2, PSET - CASE 4: PUT (EX, EY), log1, PSET - CASE 5: PUT (EX, EY), lily, PSET - CASE 6: PUT (EX, EY), water, PSET - CASE 7: PUT (EX, EY), road, PSET - CASE 8: PUT (EX, EY), exit1, PSET - CASE ELSE: LINE (EX, EY)-(EX + 8, EY + 8), 0, BF - END SELECT - END IF - -DO: newtimer! = TIMER: LOOP WHILE newtimer! = lasttimer! -lasttimer! = newtimer! - -DO: newtimer! = TIMER: LOOP WHILE newtimer! = lasttimer! -lasttimer! = newtimer! - - -'*****************************CHECK FOR BONUSES****************************** -IF FrogLev(FX, FY) = 8 THEN GOTO WIN -IF SCORE AND SCORE MOD (100 * DIF + 1) = 0 THEN GOSUB LIFEUP -'***************************CHECK IF YOU ARE DEAD**************************** -SELECT CASE FrogLev(FX, FY) - CASE 2, 3, 6, 9: GOTO DIE -END SELECT -IF T& <> FIX(TIMER) THEN T& = TIMER: SEC = SEC - 1: LOCATE 23, 16: PRINT SEC -IF SEC <= 0 THEN GOTO DIE -'******************************MOVE OBSTICALES******************************* -BACK = 23: FORTH = 0 -FOR Y = 1 TO 14: FOR X = BACK TO FORTH STEP SGN(FORTH - BACK) -SELECT CASE FrogLev(X, Y) -CASE 2 - IF X = 0 THEN C2 = 23 ELSE C2 = X - 1 - SWAP FrogLev(X, Y), FrogLev(C2, Y) - PUT (C2 * 9 + 50, Y * 9 + 20), car1, PSET - IF FrogLev(X, Y) <> 2 THEN PUT (X * 9 + 50, Y * 9 + 20), road, PSET -CASE 3 - IF X = 23 THEN C2 = 0 ELSE C2 = X + 1 - SWAP FrogLev(X, Y), FrogLev(C2, Y) - PUT (C2 * 9 + 50, Y * 9 + 20), car2, PSET - IF FrogLev(X, Y) <> 3 THEN PUT (X * 9 + 50, Y * 9 + 20), road, PSET -CASE 4 -SELECT CASE Y - CASE 1, 5 - IF X = 23 THEN C2 = 0 ELSE C2 = X + 1 - IF FY = Y AND FX = X THEN OFX = FX: OFY = FY: FX = (FX + 1) MOD 23 - SWAP FrogLev(X, Y), FrogLev(C2, Y) - PUT (C2 * 9 + 50, Y * 9 + 20), log1, PSET - IF FrogLev(X, Y) <> 4 THEN PUT (X * 9 + 50, Y * 9 + 20), water, PSET - CASE 3 - IF X = 0 THEN C2 = 23 ELSE C2 = X - 1 - IF FY = Y AND FX = X THEN OFX = FX: OFY = FY: FX = FX - 1 - SWAP FrogLev(X, Y), FrogLev(C2, Y) - PUT (C2 * 9 + 50, Y * 9 + 20), log1, PSET - IF FrogLev(X, Y) <> 4 THEN PUT (X * 9 + 50, Y * 9 + 20), water, PSET -END SELECT -END SELECT -NEXT -IF Y > 7 THEN SWAP BACK, FORTH ELSE IF Y AND 1 THEN SWAP BACK, FORTH -NEXT -SOUND 100, .1 - -'DELAY D! - -LOOP -'--------------------->END MAIN LOOP OF FROGGER GAME<------------------------ -DIE: SOUND 500, 5: SOUND 200, 3: SOUND 100, 2 -LIVES = LIVES - 1: GOTO ReStart - -WIN: PUT ((OFX + 1) * 9 + 50, OFY * 9 + 20), log1, PSET -LOCATE 2, 14: PRINT "LEVEL PASSED": DIF = DIF + 1: GOTO NextLev - -LOSE: FOR X = 0 TO 500 STEP 40: SOUND 2000 + X, 1: NEXT -SOUND 200, 4: SOUND 100, 2 -LOCATE 2, 15: PRINT "GAME OVER!" -WHILE LEN(INKEY$): WEND: DELAY 1 -IF SCORE > HISCORE THEN NewHiScore SCORE -LOCATE 1, 1: PRINT SPACE$(40) -PRINT SPACE$(40) -LOCATE 2, 15: PRINT "PLAY AGAIN?" -promt: a$ = INPUT$(1) -SELECT CASE a$ - CASE "Y", "y": GOTO NewGame - CASE "N", "n": DEF SEG : EXIT SUB - CASE ELSE: GOTO promt -END SELECT - -ABORTGAME: LOCATE 2, 12: PRINT "ABORT GAME?(Y/N)": a$ = INPUT$(1) -SELECT CASE a$ - CASE "Y", "y": LOCATE 2, 12: PRINT SPACE$(16): GOTO LOSE - CASE "N", "n": LOCATE 2, 12: PRINT SPACE$(16): RETURN - CASE ELSE: GOTO ABORTGAME -END SELECT - -LIFEUP: SOUND 3000, .9: SOUND 3000, .2: SOUND 4000, .1 -SCORE = SCORE + DIF: LIVES = LIVES + 1 -IF LIVES > 5 THEN SLIVES = 4 ELSE SLIVES = LIVES - 1 -PUT (SLIVES * 9, 178), FROG, PSET: RETURN - -END SUB - -REM $STATIC -SUB FrogINTRO -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%LOAD TITLE IMAGES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -CLS : FOR X = 0 TO 15: PALETTE X, 0: NEXT -REDIM title1(1393), title2(1135), title3(1149), title4(1149), title5(353) -RESTORE FroggerIntroGraphics -FOR i = 0 TO 1393: READ title1(i): NEXT -FOR i = 0 TO 1135: READ title2(i): NEXT -FOR i = 0 TO 1149: READ title3(i): NEXT -FOR i = 0 TO 1149: READ title4(i): NEXT -FOR i = 0 TO 353: READ title5(i): NEXT -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SET PALETTE%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -RESTORE FroggerIntroPalette -FOR X = 0 TO 15: READ i: PALETTE X, i: NEXT -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%SHOW MORPHING TITLE%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - PUT (131, 60), title1, PSET -DELAY 1: LINE (131, Y)-(188, 144), 0, BF - PUT (131, 60), title2, PSET -DELAY .05: LINE (131, 60)-(188, 144), 0, BF - PUT (131, 60), title3, PSET -DELAY .05: LINE (131, 60)-(188, 144), 0, BF - PUT (131, 60), title4, PSET -DELAY .05: LINE (131, 60)-(188, 144), 0, BF - PUT (131, 88), title5, PSET - ERASE title1, title2, title3, title4, title5 -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SET STAR PALETTE%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - DELAY 1: PALETTE 0, 0: PALETTE 3, 8: PALETTE 5, 7: PALETTE 8, 15 -LOCATE 16, 11: PRINT "PRESS SPACE TO START" -'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%STAR INIT%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -nstar = 100 -REDIM starX(nstar), starY(nstar), starZ(nstar), OSX(nstar), OSY(nstar) -FOR X = 0 TO nstar - starX(X) = INT(RND * 320) - 160 - starY(X) = INT(RND * 200) - 100 - starZ(X) = INT(RND * 150) -NEXT -'%%%%%%%%%%%%%%%%%%%%%%%%%%REAL(!) 3D STAR SCROLLER%%%%%%%%%%%%%%%%%%%%%%%%%% -DEF SEG = 0 -DO - FOR X = 0 TO nstar - SELECT CASE POINT(OSX(X), OSY(X)) - CASE 3, 5, 8: PSET (OSX(X), OSY(X)), 0 - END SELECT - IF starZ(X) <= 0 THEN - starX(X) = INT(RND * 320) - 160 - starY(X) = INT(RND * 200) - 100 - starZ(X) = INT(RND * 150) - ELSE - SX = 50 * starX(X) \ starZ(X) + 160 - SY = 50 * starY(X) \ starZ(X) + 100 - c = starZ(X) \ 50 - SELECT CASE c - CASE 0: c = 8 - CASE 1: c = 5 - CASE 2: c = 3 - END SELECT - IF POINT(SX, SY) = 0 THEN PSET (SX, SY), c - OSX(X) = SX: OSY(X) = SY - starZ(X) = starZ(X) - 1 - END IF - NEXT -SELECT CASE INP(&H60) - CASE &H39: EXIT DO - CASE &H10: IF SPECIAL = 0 THEN SPECIAL = 1 - CASE &H30: IF SPECIAL = 1 THEN SPECIAL = 2 -END SELECT -LOOP -PALETTE: DEF SEG -OptScn SPECIAL -END SUB - -SUB NewHiScore (SCORE) -i = 9: DO: i = i - 1: IF i = 0 THEN EXIT DO -IF SCORE > HISCORE(i).SCORE THEN EXIT DO -LOOP - -LOCATE 1, 1: PRINT "YOU HAVE A NEW HIGH SCORE" -INPUT "PLEASE GIVE 3 OR LESS INITIALS: ", NAME$ -HISCORE(i).PERSON = NAME$: HISCORE(i).SCORE = SCORE -OPEN "hiscore.dat" FOR BINARY AS #1 -FOR i = 0 TO 9 - ' PUT #1, , HISCORE(i) -NEXT -CLOSE #1 -END SUB - -SUB OptScn (SPECIAL) - -CLS : LIVES = 5: DIF = 0: D = 0: OT = 40: choose = 1 -IF SPECIAL = 2 THEN -DO -COLOR 15 -LOCATE 1, 1: PRINT "OPTIONS SCREEN: PRESS ENTER TO EXIT" -IF choose = 1 THEN COLOR 4 ELSE COLOR 15 -LOCATE 2, 1: PRINT "LIVES: "; LIVES -IF choose = 2 THEN COLOR 4 ELSE COLOR 15 -LOCATE 3, 1: PRINT "DIFFICULTY: "; DIF -IF choose = 3 THEN COLOR 4 ELSE COLOR 15 -LOCATE 4, 1: PRINT "TIME: "; OT -IF choose = 4 THEN COLOR 4 ELSE COLOR 15 -LOCATE 5, 1: PRINT "DELAY: "; D / 10; " " -DO: a$ = INKEY$: LOOP UNTIL a$ <> "" -SELECT CASE a$ - CASE CHR$(13): EXIT DO - CASE CHR$(0) + "K" - SELECT CASE choose - CASE 1: LIVES = LIVES - 1 - CASE 2: DIF = DIF - 1 - CASE 3: OT = OT - 1 - CASE 4: D = D - 1 - END SELECT - CASE CHR$(0) + "H" - IF choose = 0 THEN choose = 4 ELSE choose = choose - 1 - CASE CHR$(0) + "P" - IF choose = 4 THEN choose = 0 ELSE choose = choose + 1 - CASE CHR$(0) + "M" - SELECT CASE choose - CASE 1: LIVES = LIVES + 1 - CASE 2: DIF = DIF + 1 - CASE 3: OT = OT + 1 - CASE 4: D = D + 1 - END SELECT -END SELECT -LOOP -END IF - -COLOR 15 -Frogger LIVES, DIF, OT, D / 10 -END SUB - -SUB ShowHiScore -CLS -LOCATE 1, 14: PRINT "HIGH SCORES": PRINT -FOR i = 0 TO 9 - a$ = STR$(i + 1): IF i < 9 THEN a$ = a$ + " " - a$ = a$ + STR$(HISCORE(i).SCORE) - b$ = HISCORE(i).PERSON - LOCATE i + 3, 7: PRINT a$, b$ -NEXT -SLEEP -BYE -END SUB - diff --git a/programs/samples/misc/gor64.bas b/programs/samples/misc/gor64.bas deleted file mode 100644 index 751b4d56d..000000000 --- a/programs/samples/misc/gor64.bas +++ /dev/null @@ -1,1205 +0,0 @@ -DECLARE FUNCTION ffnran% (x AS INTEGER) -DECLARE SUB play2 (a$) -' Q B a s i c G o r i l l a s -' -' Copyright (C) Microsoft Corporation 1990 -' -' Your mission is to hit your opponent with the exploding banana -' by varying the angle and power of your throw, taking into account -' wind speed, gravity, and the city skyline. -' -' Speed of this game is determined by the constant SPEEDCONST. If the -' program is too slow or too fast adjust the "CONST SPEEDCONST = 500" line -' below. The larger the number the faster the game will go. -' -' To run this game, press Shift+F5. -' -' To exit QBasic, press Alt, F, X. -' -' To get help on a BASIC keyword, move the cursor to the keyword and press -' F1 or click the right mouse button. -' - -'Set default data type to integer for faster game play -DEFINT A-Z - -'Sub Declarations -DECLARE SUB DoSun (Mouth) -DECLARE SUB SetScreen () -DECLARE SUB EndGame () -DECLARE SUB Center (Row, Text$) -DECLARE SUB Intro () -DECLARE SUB SparklePause () -DECLARE SUB GetInputs (Player1$, Player2$, NumGames) -DECLARE SUB PlayGame (Player1$, Player2$, NumGames) -DECLARE SUB DoExplosion (x#, y#) -DECLARE SUB MakeCityScape (BCoor() AS ANY) -DECLARE SUB PlaceGorillas (BCoor() AS ANY) -DECLARE SUB UpdateScores (Record(), PlayerNum, Results) -DECLARE SUB DrawGorilla (x, y, arms) -DECLARE SUB GorillaIntro (Player1$, Player2$) -DECLARE SUB Rest (t#) -DECLARE SUB VictoryDance (Player) -DECLARE SUB ClearGorillas () -DECLARE SUB DrawBan (xc#, yc#, r, bc) -DECLARE FUNCTION Scl (n!) -DECLARE FUNCTION GetNum# (Row, Col) -DECLARE FUNCTION DoShot (PlayerNum, x, y) -DECLARE FUNCTION ExplodeGorilla (x#, y#) -DECLARE FUNCTION Getn# (Row, Col) -DECLARE FUNCTION PlotShot (StartX, StartY, Angle#, Velocity, PlayerNum) -DECLARE FUNCTION CalcDelay! () - -'Make all arrays Dynamic -'$DYNAMIC - -'User-Defined TYPEs -TYPE XYPoint - XCoor AS INTEGER - YCoor AS INTEGER -END TYPE - - -DIM SHARED SPEEDCONST AS INTEGER -DIM SHARED TRUE AS INTEGER -DIM SHARED FALSE AS INTEGER -DIM SHARED HITSELF AS INTEGER -DIM SHARED BACKATTR AS INTEGER -DIM SHARED OBJECTCOLOR AS INTEGER -DIM SHARED WINDOWCOLOR AS INTEGER -DIM SHARED SUNATTR AS INTEGER -DIM SHARED SUNHAPPY AS INTEGER -DIM SHARED SUNSHOCK AS INTEGER -DIM SHARED RIGHTUP AS INTEGER -DIM SHARED LEFTUP AS INTEGER -DIM SHARED ARMSDOWN AS INTEGER - - -SPEEDCONST = 10000 -TRUE = -1 -FALSE = NOT TRUE -HITSELF = 1 -BACKATTR = 0 -OBJECTCOLOR = 1 -WINDOWCOLOR = 14 -SUNATTR = 3 -SUNHAPPY = FALSE -SUNSHOCK = TRUE -RIGHTUP = 1 -LEFTUP = 2 -ARMSDOWN = 3 - - -'Global Variables -DIM SHARED GorillaX(1 TO 2) 'Location of the two gorillas -DIM SHARED GorillaY(1 TO 2) -DIM SHARED LastBuilding - -DIM SHARED pi# - - -DIM SHARED lban&(x), rban&(x), UBan&(x), DBan&(x) 'Graphical picture of banana -DIM SHARED GorD&(120) 'Graphical picture of Gorilla arms down -DIM SHARED GorL&(120) 'Gorilla left arm raised -DIM SHARED GorR&(120) 'Gorilla right arm raised - -DIM SHARED gravity# -DIM SHARED Wind - -'Screen Mode Variables -DIM SHARED ScrHeight -DIM SHARED ScrWidth -DIM SHARED Mode -DIM SHARED MaxCol - -'Screen Color Variables -DIM SHARED ExplosionColor -DIM SHARED SunColor -DIM SHARED BackColor -DIM SHARED SunHit - -DIM SHARED SunHt -DIM SHARED GHeight -DIM SHARED MachSpeed AS SINGLE - -'DEF ffnran (x) = INT(RND(1) * x) + 1 -DEF SEG = 0 ' Set NumLock to ON -KeyFlags = PEEK(1047) -IF (KeyFlags AND 32) = 0 THEN - POKE 1047, KeyFlags OR 32 -END IF -DEF SEG - -GOSUB InitVars -Intro -GetInputs Name1$, Name2$, NumGames -GorillaIntro Name1$, Name2$ -PlayGame Name1$, Name2$, NumGames - -DEF SEG = 0 ' Restore NumLock state -POKE 1047, KeyFlags -DEF SEG -END - - -CGABanana: -'BananaLeft -DATA 327686,-252645316,60 -'BananaDown -DATA 196618,-1057030081,49344 -'BananaUp -DATA 196618,-1056980800,63 -'BananaRight -DATA 327686,1010580720,240 - -EGABanana: -'BananaLeft -DATA 458758,202116096,471604224,943208448,943208448,943208448,471604224,202116096,0 -'BananaDown -DATA 262153,-2134835200,-2134802239,-2130771968,-2130738945,8323072,8323199,4063232,4063294 -'BananaUp -DATA 262153,4063232,4063294,8323072,8323199,-2130771968,-2130738945,-2134835200,-2134802239 -'BananaRight -DATA 458758,-1061109760,-522133504,1886416896,1886416896,1886416896,-522133504,-1061109760,0 - -InitVars: -pi# = 4 * ATN(1#) - -'This is a clever way to pick the best graphics mode available -ON ERROR GOTO ScreenModeError -Mode = 9 -SCREEN Mode -ON ERROR GOTO PaletteError -IF Mode = 9 THEN PALETTE 4, 0 'Check for 64K EGA -ON ERROR GOTO 0 - -MachSpeed = CalcDelay - -IF Mode = 9 THEN - ScrWidth = 640 - ScrHeight = 350 - GHeight = 25 - RESTORE EGABanana - REDIM lban&(8), rban&(8), UBan&(8), DBan&(8) - - FOR i = 0 TO 8 - READ lban&(i) - - - NEXT i - - - FOR i = 0 TO 8 - READ DBan&(i) - NEXT i - - FOR i = 0 TO 8 - READ UBan&(i) - NEXT i - - FOR i = 0 TO 8 - READ rban&(i) - NEXT i - - - SunHt = 39 - -ELSE - - ScrWidth = 320 - ScrHeight = 200 - GHeight = 12 - RESTORE CGABanana - REDIM lban&(2), rban&(2), UBan&(2), DBan&(2) - REDIM GorL&(20), GorD&(20), GorR&(20) - - FOR i = 0 TO 2 - READ lban&(i) - NEXT i - FOR i = 0 TO 2 - READ DBan&(i) - NEXT i - FOR i = 0 TO 2 - READ UBan&(i) - NEXT i - FOR i = 0 TO 2 - READ rban&(i) - NEXT i - - MachSpeed = MachSpeed * 1.3 - SunHt = 20 -END IF -RETURN - -ScreenModeError: -IF Mode = 1 THEN - CLS - LOCATE 10, 5 - PRINT "Sorry, you must have CGA, EGA color, or VGA graphics to play GORILLA.BAS" - END -ELSE - Mode = 1 - RESUME -END IF - -PaletteError: -Mode = 1 '64K EGA cards will run in CGA mode. -RESUME NEXT - -REM $STATIC -'CalcDelay: -' Checks speed of the machine. -FUNCTION CalcDelay! - -s! = TIMER -DO - i! = i! + 1 -LOOP UNTIL TIMER - s! >= .5 -CalcDelay! = i! - -END FUNCTION - -' Center: -' Centers and prints a text string on a given row -' Parameters: -' Row - screen row number -' Text$ - text to be printed -' -SUB Center (Row, Text$) -Col = MaxCol \ 2 -LOCATE Row, Col - (LEN(Text$) / 2 + .5) -PRINT Text$; -END SUB - -' DoExplosion: -' Produces explosion when a shot is fired -' Parameters: -' X#, Y# - location of explosion -' -SUB DoExplosion (x#, y#) - -play2 "MBO0L32EFGEFDC" -Radius = ScrHeight / 50 -IF Mode = 9 THEN Inc# = .5 ELSE Inc# = .41 -FOR c# = 0 TO Radius STEP Inc# - CIRCLE (x#, y#), c#, ExplosionColor -NEXT c# -FOR c# = Radius TO 0 STEP (-1 * Inc#) - CIRCLE (x#, y#), c#, BACKATTR - FOR i = 1 TO 100 - NEXT i - Rest .005 -NEXT c# -END SUB - -' DoShot: -' Controls banana shots by accepting player input and plotting -' shot angle -' Parameters: -' PlayerNum - Player -' x, y - Player's gorilla position -' -FUNCTION DoShot (PlayerNum, x, y) -'LOCATE 7, 1 -' PRINT x; y -'x is 320 because of a scope problem, it is referencing the incorrect variable - - -'Input shot -IF PlayerNum = 1 THEN - LocateCol = 1 -ELSE - IF Mode = 9 THEN - LocateCol = 66 - ELSE - LocateCol = 26 - END IF -END IF - -LOCATE 2, LocateCol -PRINT "Angle:"; -Angle# = GetNum#(2, LocateCol + 7) - -LOCATE 3, LocateCol -PRINT "Velocity:"; -Velocity = GetNum#(3, LocateCol + 10) - -IF PlayerNum = 2 THEN - Angle# = 180 - Angle# -END IF - -'Erase input -FOR i = 1 TO 4 - LOCATE i, 1 - PRINT SPACE$(30 \ (80 \ MaxCol)); - LOCATE i, (50 \ (80 \ MaxCol)) - PRINT SPACE$(30 \ (80 \ MaxCol)); -NEXT - -SunHit = FALSE - -'PRINT x; y - -PlayerHit = PlotShot(x, y, Angle#, Velocity, PlayerNum) -IF PlayerHit = 0 THEN - DoShot = FALSE -ELSE - DoShot = TRUE - IF PlayerHit = PlayerNum THEN PlayerNum = 3 - PlayerNum - VictoryDance PlayerNum -END IF - -END FUNCTION - -' DoSun: -' Draws the sun at the top of the screen. -' Parameters: -' Mouth - If TRUE draws "O" mouth else draws a smile mouth. -' -SUB DoSun (Mouth) - -'set position of sun -x = ScrWidth \ 2: y = Scl(25) - -'clear old sun -LINE (x - Scl(22), y - Scl(18))-(x + Scl(22), y + Scl(18)), BACKATTR, BF - -'draw new sun: -'body -CIRCLE (x, y), Scl(12), SUNATTR -PAINT (x, y), SUNATTR - -'rays -LINE (x - Scl(20), y)-(x + Scl(20), y), SUNATTR -LINE (x, y - Scl(15))-(x, y + Scl(15)), SUNATTR - -LINE (x - Scl(15), y - Scl(10))-(x + Scl(15), y + Scl(10)), SUNATTR -LINE (x - Scl(15), y + Scl(10))-(x + Scl(15), y - Scl(10)), SUNATTR - -LINE (x - Scl(8), y - Scl(13))-(x + Scl(8), y + Scl(13)), SUNATTR -LINE (x - Scl(8), y + Scl(13))-(x + Scl(8), y - Scl(13)), SUNATTR - -LINE (x - Scl(18), y - Scl(5))-(x + Scl(18), y + Scl(5)), SUNATTR -LINE (x - Scl(18), y + Scl(5))-(x + Scl(18), y - Scl(5)), SUNATTR - -'mouth -IF Mouth THEN 'draw "o" mouth - CIRCLE (x, y + Scl(5)), Scl(2.9), 0 - PAINT (x, y + Scl(5)), 0, 0 -ELSE 'draw smile - CIRCLE (x, y), Scl(8), 0, (210 * pi# / 180), (330 * pi# / 180) -END IF - -'eyes -CIRCLE (x - 3, y - 2), 1, 0 -CIRCLE (x + 3, y - 2), 1, 0 -PSET (x - 3, y - 2), 0 -PSET (x + 3, y - 2), 0 - -END SUB - -'DrawBan: -' Draws the banana -'Parameters: -' xc# - Horizontal Coordinate -' yc# - Vertical Coordinate -' r - rotation position (0-3). ( \_/ ) /-\ -' bc - if TRUE then DrawBan draws the banana ELSE it erases the banana -SUB DrawBan (xc#, yc#, r, bc) - -SELECT CASE r - CASE 0 - IF bc THEN PUT (xc#, yc#), lban&(), PSET ELSE PUT (xc#, yc#), lban&(), XOR - CASE 1 - IF bc THEN PUT (xc#, yc#), UBan&(), PSET ELSE PUT (xc#, yc#), UBan&(), XOR - CASE 2 - IF bc THEN PUT (xc#, yc#), DBan&(), PSET ELSE PUT (xc#, yc#), DBan&(), XOR - CASE 3 - IF bc THEN PUT (xc#, yc#), rban&(), PSET ELSE PUT (xc#, yc#), rban&(), XOR -END SELECT - -END SUB - -'DrawGorilla: -' Draws the Gorilla in either CGA or EGA mode -' and saves the graphics data in an array. -'Parameters: -' x - x coordinate of gorilla -' y - y coordinate of the gorilla -' arms - either Left up, Right up, or both down -SUB DrawGorilla (x, y, arms) -DIM i AS SINGLE ' Local index must be single precision - -'draw head -LINE (x - Scl(4), y)-(x + Scl(2.9), y + Scl(6)), OBJECTCOLOR, BF -LINE (x - Scl(5), y + Scl(2))-(x + Scl(4), y + Scl(4)), OBJECTCOLOR, BF - -'draw eyes/brow -LINE (x - Scl(3), y + Scl(2))-(x + Scl(2), y + Scl(2)), 0 - -'draw nose if ega -IF Mode = 9 THEN - FOR i = -2 TO -1 - PSET (x + i, y + 4), 0 - PSET (x + i + 3, y + 4), 0 - NEXT i -END IF - -'neck -LINE (x - Scl(3), y + Scl(7))-(x + Scl(2), y + Scl(7)), OBJECTCOLOR - -'body -LINE (x - Scl(8), y + Scl(8))-(x + Scl(6.9), y + Scl(14)), OBJECTCOLOR, BF -LINE (x - Scl(6), y + Scl(15))-(x + Scl(4.9), y + Scl(20)), OBJECTCOLOR, BF - -'legs -FOR i = 0 TO 4 - CIRCLE (x + Scl(i), y + Scl(25)), Scl(10), OBJECTCOLOR, 3 * pi# / 4, 9 * pi# / 8 - CIRCLE (x + Scl(-6) + Scl(i - .1), y + Scl(25)), Scl(10), OBJECTCOLOR, 15 * pi# / 8, pi# / 4 -NEXT - -'chest -CIRCLE (x - Scl(4.9), y + Scl(10)), Scl(4.9), 0, 3 * pi# / 2, 0 -CIRCLE (x + Scl(4.9), y + Scl(10)), Scl(4.9), 0, pi#, 3 * pi# / 2 - -FOR i = -5 TO -1 - SELECT CASE arms - CASE 1 - 'Right arm up - CIRCLE (x + Scl(i - .1), y + Scl(14)), Scl(9), OBJECTCOLOR, 3 * pi# / 4, 5 * pi# / 4 - CIRCLE (x + Scl(4.9) + Scl(i), y + Scl(4)), Scl(9), OBJECTCOLOR, 7 * pi# / 4, pi# / 4 - GET (x - Scl(15), y - Scl(1))-(x + Scl(14), y + Scl(28)), GorR&() - CASE 2 - 'Left arm up - CIRCLE (x + Scl(i - .1), y + Scl(4)), Scl(9), OBJECTCOLOR, 3 * pi# / 4, 5 * pi# / 4 - CIRCLE (x + Scl(4.9) + Scl(i), y + Scl(14)), Scl(9), OBJECTCOLOR, 7 * pi# / 4, pi# / 4 - GET (x - Scl(15), y - Scl(1))-(x + Scl(14), y + Scl(28)), GorL&() - CASE 3 - 'Both arms down - CIRCLE (x + Scl(i - .1), y + Scl(14)), Scl(9), OBJECTCOLOR, 3 * pi# / 4, 5 * pi# / 4 - CIRCLE (x + Scl(4.9) + Scl(i), y + Scl(14)), Scl(9), OBJECTCOLOR, 7 * pi# / 4, pi# / 4 - GET (x - Scl(15), y - Scl(1))-(x + Scl(14), y + Scl(28)), GorD&() - END SELECT -NEXT i -END SUB - -'ExplodeGorilla: -' Causes gorilla explosion when a direct hit occurs -'Parameters: -' X#, Y# - shot location -FUNCTION ExplodeGorilla (x#, y#) -YAdj = Scl(12) -XAdj = Scl(5) -SclX# = ScrWidth / 320 -SclY# = ScrHeight / 200 -IF x# < ScrWidth / 2 THEN PlayerHit = 1 ELSE PlayerHit = 2 -play2 "MBO0L16EFGEFDC" - -FOR i = 1 TO 8 * SclX# - CIRCLE (GorillaX(PlayerHit) + 3.5 * SclX# + XAdj, GorillaY(PlayerHit) + 7 * SclY# + YAdj), i, ExplosionColor, , , -1.57 - LINE (GorillaX(PlayerHit) + 7 * SclX#, GorillaY(PlayerHit) + 9 * SclY# - i)-(GorillaX(PlayerHit), GorillaY(PlayerHit) + 9 * SclY# - i), ExplosionColor -NEXT i - -FOR i = 1 TO 16 * SclX# - IF i < (8 * SclX#) THEN CIRCLE (GorillaX(PlayerHit) + 3.5 * SclX# + XAdj, GorillaY(PlayerHit) + 7 * SclY# + YAdj), (8 * SclX# + 1) - i, BACKATTR, , , -1.57 - CIRCLE (GorillaX(PlayerHit) + 3.5 * SclX# + XAdj, GorillaY(PlayerHit) + YAdj), i, i MOD 2 + 1, , , -1.57 -NEXT i - -FOR i = 24 * SclX# TO 1 STEP -1 - CIRCLE (GorillaX(PlayerHit) + 3.5 * SclX# + XAdj, GorillaY(PlayerHit) + YAdj), i, BACKATTR, , , -1.57 - FOR Count = 1 TO 200 - NEXT -NEXT i - -ExplodeGorilla = PlayerHit -END FUNCTION - -FUNCTION ffnran (x AS INTEGER) -'DEF FnRan (x) = INT(RND(1) * x) + 1 -ffnran = INT(RND(1) * x) + 1 -END FUNCTION - -'GetInputs: -' Gets user inputs at beginning of game -'Parameters: -' Player1$, Player2$ - player names -' NumGames - number of games to play -SUB GetInputs (Player1$, Player2$, NumGames) -COLOR 7, 0 -CLS - -LOCATE 8, 15 -LINE INPUT "Name of Player 1 (Default = 'Player 1'): "; Player1$ -IF Player1$ = "" THEN - Player1$ = "Player 1" -ELSE - Player1$ = LEFT$(Player1$, 10) -END IF - -LOCATE 10, 15 -LINE INPUT "Name of Player 2 (Default = 'Player 2'): "; Player2$ -IF Player2$ = "" THEN - Player2$ = "Player 2" -ELSE - Player2$ = LEFT$(Player2$, 10) -END IF - -DO - LOCATE 12, 56: PRINT SPACE$(25); - LOCATE 12, 13 - INPUT "Play to how many total points (Default = 3)"; game$ - NumGames = VAL(LEFT$(game$, 2)) -LOOP UNTIL NumGames > 0 AND LEN(game$) < 3 OR LEN(game$) = 0 -IF NumGames = 0 THEN NumGames = 3 - -DO - LOCATE 14, 53: PRINT SPACE$(28); - LOCATE 14, 17 - INPUT "Gravity in Meters/Sec (Earth = 9.8)"; grav$ - gravity# = VAL(grav$) -LOOP UNTIL gravity# > 0 OR LEN(grav$) = 0 -IF gravity# = 0 THEN gravity# = 9.8 -END SUB - -'GetNum: -' Gets valid numeric input from user -'Parameters: -' Row, Col - location to echo input -FUNCTION GetNum# (Row, Col) -Result$ = "" -Done = FALSE -WHILE INKEY$ <> "": WEND 'Clear keyboard buffer - -DO WHILE NOT Done - LOCATE Row, Col - PRINT Result$; CHR$(95); " "; - - Kbd$ = INKEY$ - IF Kbd$ = CHR$(27) THEN - COLOR 7, 0 - CLS - SYSTEM - END IF - SELECT CASE Kbd$ - CASE "0" TO "9" - Result$ = Result$ + Kbd$ - CASE "." - IF INSTR(Result$, ".") = 0 THEN - Result$ = Result$ + Kbd$ - END IF - CASE CHR$(13) - IF VAL(Result$) > 360 THEN - Result$ = "" - ELSE - Done = TRUE - END IF - CASE CHR$(8) - IF LEN(Result$) > 0 THEN - Result$ = LEFT$(Result$, LEN(Result$) - 1) - END IF - CASE ELSE - IF LEN(Kbd$) > 0 THEN - BEEP - END IF - END SELECT -LOOP - -LOCATE Row, Col -PRINT Result$; " "; - -GetNum# = VAL(Result$) -END FUNCTION - -'GorillaIntro: -' Displays gorillas on screen for the first time -' allows the graphical data to be put into an array -'Parameters: -' Player1$, Player2$ - The names of the players -' -SUB GorillaIntro (Player1$, Player2$) -LOCATE 16, 34: PRINT "--------------" -LOCATE 18, 34: PRINT "V = View Intro" -LOCATE 19, 34: PRINT "P = Play Game" -LOCATE 21, 35: PRINT "Your Choice?" - -DO WHILE Char$ = "" - Char$ = INKEY$ -LOOP - -IF Mode = 1 THEN - x = 125 - y = 100 -ELSE - x = 278 - y = 175 -END IF - -SCREEN Mode -SetScreen - -IF Mode = 1 THEN Center 5, "Please wait while gorillas are drawn." - -VIEW PRINT 9 TO 24 - -IF Mode = 9 THEN PALETTE OBJECTCOLOR, BackColor - -DrawGorilla x, y, ARMSDOWN -CLS 2 -DrawGorilla x, y, LEFTUP -CLS 2 -DrawGorilla x, y, RIGHTUP -CLS 2 - -VIEW PRINT 1 TO 25 -IF Mode = 9 THEN PALETTE OBJECTCOLOR, 46 - -IF UCASE$(Char$) = "V" THEN - Center 2, "Q B A S I C G O R I L L A S" - Center 5, " STARRING: " - P$ = Player1$ + " AND " + Player2$ - Center 7, P$ - - PLAY "MF" - PUT (x - 13, y), GorD&(), PSET - PUT (x + 47, y), GorD&(), PSET - Rest 1 - - PUT (x - 13, y), GorL&(), PSET - PUT (x + 47, y), GorR&(), PSET - play2 "t120o1l16b9n0baan0bn0bn0baaan0b9n0baan0b" - ' Rest .3 - - PUT (x - 13, y), GorR&(), PSET - PUT (x + 47, y), GorL&(), PSET - play2 "o2l16e-9n0e-d-d-n0e-n0e-n0e-d-d-d-n0e-9n0e-d-d-n0e-" - ' Rest .3 - - PUT (x - 13, y), GorL&(), PSET - PUT (x + 47, y), GorR&(), PSET - play2 "o2l16g-9n0g-een0g-n0g-n0g-eeen0g-9n0g-een0g-" - ' Rest .3 - - PUT (x - 13, y), GorR&(), PSET - PUT (x + 47, y), GorL&(), PSET - play2 "o2l16b9n0baan0g-n0g-n0g-eeen0o1b9n0baan0b" - ' Rest .3 - - FOR i = 1 TO 4 - PUT (x - 13, y), GorL&(), PSET - PUT (x + 47, y), GorR&(), PSET - play2 "T160O0L32EFGEFDC" - ' Rest .1 - PUT (x - 13, y), GorR&(), PSET - PUT (x + 47, y), GorL&(), PSET - play2 "T160O0L32EFGEFDC" - ' Rest .1 - NEXT -END IF -END SUB - -'Intro: -' Displays game introduction -SUB Intro - -SCREEN 0 -WIDTH 80, 25 -MaxCol = 80 -COLOR 15, 0 -CLS - -Center 4, "Q B a s i c G O R I L L A S" -COLOR 7 -Center 6, "Copyright (C) Microsoft Corporation 1990" -Center 8, "Your mission is to hit your opponent with the exploding" -Center 9, "banana by varying the angle and power of your throw, taking" -Center 10, "into account wind speed, gravity, and the city skyline." -Center 11, "The wind speed is shown by a directional arrow at the bottom" -Center 12, "of the playing field, its length relative to its strength." -Center 24, "Press any key to continue" - -play2 "MBT160O1L8CDEDCDL4ECC" -SparklePause -IF Mode = 1 THEN MaxCol = 40 -END SUB - -'MakeCityScape: -' Creates random skyline for game -'Parameters: -' BCoor() - a user-defined type array which stores the coordinates of -' the upper left corner of each building. -SUB MakeCityScape (BCoor() AS XYPoint) - -x = 2 - -'Set the sloping trend of the city scape. NewHt is new building height -Slope = ffnran(6) -SELECT CASE Slope - CASE 1: NewHt = 15 'Upward slope - CASE 2: NewHt = 130 'Downward slope - CASE 3 TO 5: NewHt = 15 '"V" slope - most common - CASE 6: NewHt = 130 'Inverted "V" slope -END SELECT - -IF Mode = 9 THEN - BottomLine = 335 'Bottom of building - HtInc = 10 'Increase value for new height - DefBWidth = 37 'Default building height - RandomHeight = 120 'Random height difference - WWidth = 3 'Window width - WHeight = 6 'Window height - WDifV = 15 'Counter for window spacing - vertical - WDifh = 10 'Counter for window spacing - horizontal -ELSE - BottomLine = 190 - HtInc = 6 - NewHt = NewHt * 20 \ 35 'Adjust for CGA - DefBWidth = 18 - RandomHeight = 54 - WWidth = 1 - WHeight = 2 - WDifV = 5 - WDifh = 4 -END IF - -CurBuilding = 1 -DO - - SELECT CASE Slope - CASE 1 - NewHt = NewHt + HtInc - CASE 2 - NewHt = NewHt - HtInc - CASE 3 TO 5 - IF x > ScrWidth \ 2 THEN - NewHt = NewHt - 2 * HtInc - ELSE - NewHt = NewHt + 2 * HtInc - END IF - CASE 4 - IF x > ScrWidth \ 2 THEN - NewHt = NewHt + 2 * HtInc - ELSE - NewHt = NewHt - 2 * HtInc - END IF - END SELECT - - 'Set width of building and check to see if it would go off the screen - BWidth = ffnran(DefBWidth) + DefBWidth - IF x + BWidth > ScrWidth THEN BWidth = ScrWidth - x - 2 - - 'Set height of building and check to see if it goes below screen - BHeight = ffnran(RandomHeight) + NewHt - IF BHeight < HtInc THEN BHeight = HtInc - - 'Check to see if Building is too high - IF BottomLine - BHeight <= MaxHeight + GHeight THEN BHeight = MaxHeight + GHeight - 5 - - 'Set the coordinates of the building into the array - BCoor(CurBuilding).XCoor = x - BCoor(CurBuilding).YCoor = BottomLine - BHeight - - IF Mode = 9 THEN BuildingColor = ffnran(3) + 4 ELSE BuildingColor = 2 - - 'Draw the building, outline first, then filled - LINE (x - 1, BottomLine + 1)-(x + BWidth + 1, BottomLine - BHeight - 1), BACKGROUND, B - LINE (x, BottomLine)-(x + BWidth, BottomLine - BHeight), BuildingColor, BF - - 'Draw the windows - c = x + 3 - DO - FOR i = BHeight - 3 TO 7 STEP -WDifV - IF Mode <> 9 THEN - WinColr = (ffnran(2) - 2) * -3 - ELSEIF ffnran(4) = 1 THEN - WinColr = 8 - ELSE - WinColr = WINDOWCOLOR - END IF - LINE (c, BottomLine - i)-(c + WWidth, BottomLine - i + WHeight), WinColr, BF - NEXT - c = c + WDifh - LOOP UNTIL c >= x + BWidth - 3 - - x = x + BWidth + 2 - - CurBuilding = CurBuilding + 1 - -LOOP UNTIL x > ScrWidth - HtInc - -LastBuilding = CurBuilding - 1 - -'Set Wind speed -Wind = ffnran(10) - 5 -IF ffnran(3) = 1 THEN - IF Wind > 0 THEN - Wind = Wind + ffnran(10) - ELSE - Wind = Wind - ffnran(10) - END IF -END IF - -'Draw Wind speed arrow -IF Wind <> 0 THEN - WindLine = Wind * 3 * (ScrWidth \ 320) - LINE (ScrWidth \ 2, ScrHeight - 5)-(ScrWidth \ 2 + WindLine, ScrHeight - 5), ExplosionColor - IF Wind > 0 THEN ArrowDir = -2 ELSE ArrowDir = 2 - LINE (ScrWidth / 2 + WindLine, ScrHeight - 5)-(ScrWidth / 2 + WindLine + ArrowDir, ScrHeight - 5 - 2), ExplosionColor - LINE (ScrWidth / 2 + WindLine, ScrHeight - 5)-(ScrWidth / 2 + WindLine + ArrowDir, ScrHeight - 5 + 2), ExplosionColor -END IF -END SUB - -'PlaceGorillas: -' PUTs the Gorillas on top of the buildings. Must have drawn -' Gorillas first. -'Parameters: -' BCoor() - user-defined TYPE array which stores upper left coordinates -' of each building. -SUB PlaceGorillas (BCoor() AS XYPoint) - -IF Mode = 9 THEN - XAdj = 14 - YAdj = 30 -ELSE - XAdj = 7 - YAdj = 16 -END IF -SclX# = ScrWidth / 320 -SclY# = ScrHeight / 200 - -'Place gorillas on second or third building from edge -FOR i = 1 TO 2 - IF i = 1 THEN BNum = ffnran(2) + 1 ELSE BNum = LastBuilding - ffnran(2) - - BWidth = BCoor(BNum + 1).XCoor - BCoor(BNum).XCoor - GorillaX(i) = BCoor(BNum).XCoor + BWidth / 2 - XAdj - GorillaY(i) = BCoor(BNum).YCoor - YAdj - PUT (GorillaX(i), GorillaY(i)), GorD&(), PSET -NEXT i - -END SUB - -SUB play2 (a$) -PLAY a$ -'BEEP -END SUB - -'PlayGame: -' Main game play routine -'Parameters: -' Player1$, Player2$ - player names -' NumGames - number of games to play -SUB PlayGame (Player1$, Player2$, NumGames) -DIM BCoor(0 TO 30) AS XYPoint -DIM TotalWins(1 TO 2) - -J = 1 - -FOR i = 1 TO NumGames - CLS - RANDOMIZE (TIMER) - CALL MakeCityScape(BCoor()) - CALL PlaceGorillas(BCoor()) - - 'LOCATE 5, 1 - ' PRINT GorillaX(1); GorillaY(1), GorillaX(2); GorillaY(2) - - DoSun SUNHAPPY - Hit = FALSE - DO WHILE Hit = FALSE - J = 1 - J - LOCATE 1, 1 - PRINT Player1$ - LOCATE 1, (MaxCol - 1 - LEN(Player2$)) - PRINT Player2$ - Center 23, LTRIM$(STR$(TotalWins(1))) + ">Score<" + LTRIM$(STR$(TotalWins(2))) - tosser = J + 1: Tossee = 3 - J - - 'Plot the shot. Hit is true if Gorilla gets hit. - - 'LOCATE 6, 1 - 'PRINT GorillaX(1); GorillaY(1), GorillaX(2); GorillaY(2), tosser - 'theory, because this is a function the code isn't quite correct! - - Hit = DoShot(tosser, GorillaX(tosser), GorillaY(tosser)) - - 'Reset the sun, if it got hit - IF SunHit THEN DoSun SUNHAPPY - - IF Hit = TRUE THEN CALL UpdateScores(TotalWins(), tosser, Hit) - LOOP - SLEEP 1 -NEXT i - -SCREEN 0 -WIDTH 80, 25 -COLOR 7, 0 -MaxCol = 80 -CLS - -Center 8, "GAME OVER!" -Center 10, "Score:" -LOCATE 11, 30: PRINT Player1$; TAB(50); TotalWins(1) -LOCATE 12, 30: PRINT Player2$; TAB(50); TotalWins(2) -Center 24, "Press any key to continue" -SparklePause -COLOR 7, 0 -CLS -END SUB - -'PlayGame: -' Plots banana shot across the screen -'Parameters: -' StartX, StartY - starting shot location -' Angle - shot angle -' Velocity - shot velocity -' PlayerNum - the banana thrower -FUNCTION PlotShot (StartX, StartY, Angle#, Velocity, PlayerNum) - - - -Angle# = Angle# / 180 * pi# 'Convert degree angle to radians -Radius = Mode MOD 7 - -InitXVel# = COS(Angle#) * Velocity -InitYVel# = SIN(Angle#) * Velocity - -oldx# = StartX -oldy# = StartY - -'draw gorilla toss -IF PlayerNum = 1 THEN - PUT (StartX, StartY), GorL&(), PSET -ELSE - PUT (StartX, StartY), GorR&(), PSET -END IF - -'throw sound -play2 "MBo0L32A-L64CL16BL64A+" -Rest .1 - -'redraw gorilla -PUT (StartX, StartY), GorD&(), PSET - -adjust = Scl(4) 'For scaling CGA - -xedge = Scl(9) * (2 - PlayerNum) 'Find leading edge of banana for check - -Impact = FALSE -ShotInSun = FALSE -OnScreen = TRUE -PlayerHit = 0 -NeedErase = FALSE - -StartXPos = StartX -StartYPos = StartY - adjust - 3 - -IF PlayerNum = 2 THEN - StartXPos = StartXPos + Scl(25) - direction = Scl(4) -ELSE - direction = Scl(-4) -END IF - -IF Velocity < 2 THEN 'Shot too slow - hit self - x# = StartX - y# = StartY - pointval = OBJECTCOLOR -END IF - -DO WHILE (NOT Impact) AND OnScreen - Rest .05 - - 'Erase old banana, if necessary - IF NeedErase THEN - NeedErase = FALSE - CALL DrawBan(oldx#, oldy#, oldrot, FALSE) - END IF - - x# = StartXPos + (InitXVel# * t#) + (.5 * (Wind / 5) * t# ^ 2) - y# = StartYPos + ((-1 * (InitYVel# * t#)) + (.5 * gravity# * t# ^ 2)) * (ScrHeight / 350) - - IF (x# >= ScrWidth - Scl(10)) OR (x# <= 3) OR (y# >= ScrHeight - 3) THEN - OnScreen = FALSE - END IF - - - IF OnScreen AND y# > 0 THEN - 'check it - LookY = 0 - LookX = Scl(8 * (2 - PlayerNum)) - DO - ink$ = INKEY$ - IF ink$ = CHR$(27) THEN - COLOR 7, 0 - CLS - SYSTEM - END IF - - pointval = POINT(x# + LookX, y# + LookY) - IF pointval = 0 THEN - Impact = FALSE - IF ShotInSun = TRUE THEN - IF ABS(ScrWidth \ 2 - x#) > Scl(20) OR y# > SunHt THEN ShotInSun = FALSE - END IF - ELSEIF pointval = SUNATTR AND y# < SunHt THEN - IF NOT SunHit THEN DoSun SUNSHOCK - SunHit = TRUE - ShotInSun = TRUE - ELSE - Impact = TRUE - END IF - LookX = LookX + direction - LookY = LookY + Scl(6) - LOOP UNTIL Impact OR LookX <> Scl(4) - - IF NOT ShotInSun AND NOT Impact THEN - 'plot it - rot = (t# * 10) MOD 4 - CALL DrawBan(x#, y#, rot, TRUE) - NeedErase = TRUE - END IF - - oldx# = x# - oldy# = y# - oldrot = rot - - END IF - - - t# = t# + .1 - -LOOP - -IF pointval <> OBJECTCOLOR AND Impact THEN - CALL DoExplosion(x# + adjust, y# + adjust) -ELSEIF pointval = OBJECTCOLOR THEN - PlayerHit = ExplodeGorilla(x#, y#) -END IF - -PlotShot = PlayerHit - -END FUNCTION - -'Rest: -' pauses the program -SUB Rest (t#) - -ticks = t# * 18 + 1 - -FOR i = 1 TO ticks - DO: newtime! = TIMER: LOOP WHILE newtime! = oldtime! - oldtime! = newtime! -NEXT - - -'s# = TIMER -'t2# = MachSpeed * t# / SPEEDCONST -'DO -'LOOP UNTIL TIMER - s# > t2# -END SUB - -'Scl: -' Pass the number in to scaling for cga. If the number is a decimal, then we -' want to scale down for cga or scale up for ega. This allows a full range -' of numbers to be generated for scaling. -' (i.e. for 3 to get scaled to 1, pass in 2.9) -FUNCTION Scl (n!) - -IF n! <> INT(n!) THEN - IF Mode = 1 THEN n! = n! - 1 -END IF -IF Mode = 1 THEN - Scl = CINT(n! / 2 + .1) -ELSE - Scl = CINT(n!) -END IF - -END FUNCTION - -'SetScreen: -' Sets the appropriate color statements -SUB SetScreen - -IF Mode = 9 THEN - ExplosionColor = 2 - BackColor = 1 - PALETTE 0, 1 - PALETTE 1, 46 - PALETTE 2, 44 - PALETTE 3, 54 - PALETTE 5, 7 - PALETTE 6, 4 - PALETTE 7, 3 - PALETTE 9, 63 'Display Color -ELSE - ExplosionColor = 2 - BackColor = 0 - COLOR BackColor, 2 - -END IF - -END SUB - -'SparklePause: -' Creates flashing border for intro and game over screens -SUB SparklePause - -COLOR 4, 0 -a$ = "* * * * * * * * * * * * * * * * * " -WHILE INKEY$ <> "": WEND 'Clear keyboard buffer - -WHILE INKEY$ = "" - FOR a = 1 TO 5 - LOCATE 1, 1 'print horizontal sparkles - PRINT MID$(a$, a, 80); - LOCATE 22, 1 - PRINT MID$(a$, 6 - a, 80); - - FOR b = 2 TO 21 'Print Vertical sparkles - c = (a + b) MOD 5 - IF c = 1 THEN - LOCATE b, 80 - PRINT "*"; - LOCATE 23 - b, 1 - PRINT "*"; - ELSE - LOCATE b, 80 - PRINT " "; - LOCATE 23 - b, 1 - PRINT " "; - END IF - NEXT b - NEXT a -WEND -END SUB - -'UpdateScores: -' Updates players' scores -'Parameters: -' Record - players' scores -' PlayerNum - player -' Results - results of player's shot -SUB UpdateScores (Record(), PlayerNum, Results) -IF Results = HITSELF THEN - Record(ABS(PlayerNum - 3)) = Record(ABS(PlayerNum - 3)) + 1 -ELSE - Record(PlayerNum) = Record(PlayerNum) + 1 -END IF -END SUB - -'VictoryDance: -' gorilla dances after he has eliminated his opponent -'Parameters: -' Player - which gorilla is dancing -SUB VictoryDance (Player) - -FOR i# = 1 TO 2 - PUT (GorillaX(Player), GorillaY(Player)), GorL&(), PSET - play2 "MFO0L32EFGEFDC" - Rest .1 - PUT (GorillaX(Player), GorillaY(Player)), GorR&(), PSET - play2 "MFO0L32EFGEFDC" - Rest .1 -NEXT -END SUB - diff --git a/programs/samples/misc/gujero.bas b/programs/samples/misc/gujero.bas deleted file mode 100644 index 62f5dab47..000000000 --- a/programs/samples/misc/gujero.bas +++ /dev/null @@ -1,19 +0,0 @@ -'----------------------------------------------------------------------- -'GUJERO2.BAS by Antoni Gual 2/2004 -'For the QBNZ 1/2004 9 liner contest -'----------------------------------------------------------------------- -'Tunnel effect (more or less) -'FFIX recommended. It does compile. -'----------------------------------------------------------------------- -'DECLARE SUB ffix -'ffix -1 IF i = 0 THEN SCREEN 13 ELSE IF i = 1 THEN OUT &H3C8, 0 ELSE IF i <= 194 THEN OUT &H3C9, INT((i - 2) / 3) -2 IF i <= 194 THEN GOTO 8 -3 FOR y = -100 TO 99 -4 FOR x = -160 TO 159 -5 IF x >= 0 THEN IF y < 0 THEN alpha = 1.57079632679# + ATN(x / (y + .000001)) ELSE alpha = -ATN(y / (x + .000001)) ELSE IF y < 0 THEN alpha = 1.57079632679# + ATN(x / (y + .000001)) ELSE alpha = -1.57079632679# + ATN(x / (y + .000001)) -6 PSET (x + 160, y + 100), (x * x + y * y) * .00003 * ((INT(-10000 * i + 5.2 * SQR(x * x + y * y)) AND &H3F) XOR (INT((191 * alpha) + 10 * i) AND &H3F)) -7 NEXT x, y -8 i = i + 1 -9 IF LEN(INKEY$) = 0 THEN GOTO 1 - diff --git a/programs/samples/misc/intrprtr.bas b/programs/samples/misc/intrprtr.bas deleted file mode 100644 index ac2d5a58f..000000000 --- a/programs/samples/misc/intrprtr.bas +++ /dev/null @@ -1,346 +0,0 @@ -DECLARE SUB LLISTSTMT () -DECLARE SUB LPRINTSTMT () -DECLARE SUB INITGETSYM (N AS INTEGER) -DECLARE SUB VALIDLINENUM () -DECLARE SUB DOCMD () -DECLARE SUB CLEARVARS () -DECLARE SUB LISTSTMT () -DECLARE SUB GOTOSTMT () -DECLARE SUB IFSTMT () -DECLARE SUB INPUTSTMT () -DECLARE SUB PRINTSTMT () -DECLARE SUB SKIPTOEOL () -DECLARE SUB IDSTMT () -DECLARE SUB GETSYM () -DECLARE SUB EXPECT (S AS STRING) -DECLARE SUB GOTOLINE () -DECLARE FUNCTION EXPRESSION% () -DECLARE FUNCTION ADDEXPR% () -DECLARE FUNCTION TERM% () -DECLARE FUNCTION FACTOR% () -DECLARE FUNCTION GETVARINDEX% () -DECLARE FUNCTION ACCEPT% (S AS STRING) -DECLARE SUB GETCH () -DECLARE SUB READSTR () -DECLARE SUB READIDENT () -DECLARE SUB READINT () - -DIM SHARED CH$, THELIN$, PGM$(2000), TOK$ - - -DIM SHARED VARS(26) AS INTEGER, CURLINE AS INTEGER, NUM AS INTEGER -DIM SHARED TEXTP AS INTEGER, ERRORS AS INTEGER - - -DO -ERRORS = 0 -LINE INPUT "> ", PGM$(0) -IF PGM$(0) <> "" THEN -CALL INITGETSYM(0) -IF LEFT$(TOK$, 1) >= "0" AND LEFT$(TOK$, 1) <= "9" THEN -CALL VALIDLINENUM -PGM$(NUM) = MID$(PGM$(0), TEXTP, LEN(PGM$(0)) - TEXTP + 1) -ELSE -CALL DOCMD -END IF -END IF -LOOP - -FUNCTION ACCEPT% (S AS STRING) -ACCEPT% = 0 -IF TOK$ = S THEN ACCEPT% = 1: CALL GETSYM -END FUNCTION - -FUNCTION ADDEXPR% -DIM N -N = TERM% -ADDEL: -IF TOK$ = "+" THEN CALL GETSYM: N = N + TERM%: GOTO ADDEL -IF TOK$ = "-" THEN CALL GETSYM: N = N - TERM%: GOTO ADDEL -ADDEXPR% = N -END FUNCTION - -SUB CLEARVARS -DIM I AS INTEGER -FOR I = 1 TO 26 -VARS(I) = 0 -NEXT I -END SUB - -SUB DOCMD -DIM I AS INTEGER -AGAIN: -IF ERRORS <> 0 THEN EXIT SUB -WHILE TOK$ = "" -IF CURLINE = 0 OR CURLINE >= 1999 THEN EXIT SUB -CALL INITGETSYM(CURLINE + 1) -WEND -IF ACCEPT("STOP") OR ACCEPT("END") THEN EXIT SUB -IF ACCEPT("NEW") THEN -CALL CLEARVARS -FOR I = 1 TO 1999 -PGM$(I) = "" -NEXT I -EXIT SUB -END IF -IF ACCEPT("BYE") THEN END -IF ACCEPT("LIST") THEN CALL LISTSTMT: GOTO AGAIN -IF ACCEPT("LLIST") THEN CALL LLISTSTMT: GOTO AGAIN -IF ACCEPT("RUN") THEN -CALL CLEARVARS -CALL INITGETSYM(1) -GOTO AGAIN -END IF -IF ACCEPT("GOTO") THEN CALL GOTOSTMT: GOTO AGAIN -IF ACCEPT("IF") THEN CALL IFSTMT: GOTO AGAIN -IF ACCEPT("INPUT") THEN CALL INPUTSTMT: GOTO AGAIN -IF ACCEPT("PRINT") THEN CALL PRINTSTMT: GOTO AGAIN -IF ACCEPT("LPRINT") THEN CALL LPRINTSTMT: GOTO AGAIN -IF ACCEPT("REM") THEN CALL SKIPTOEOL: GOTO AGAIN -IF LEFT$(TOK$, 1) >= "A" AND LEFT$(TOK$, 1) <= "Z" THEN -CALL IDSTMT -GOTO AGAIN -END IF -PRINT "UNKNOWN TOKEN "; TOK$; " AT LINE "; CURLINE -END SUB - -SUB EXPECT (S AS STRING) -IF ACCEPT(S) <> 0 THEN EXIT SUB -ERRORS = 1 -PRINT "EXPECTING "; S; " BUT FOUND "; TOK$ -END SUB - -FUNCTION EXPRESSION% -DIM N -N = ADDEXPR% -EXPRL: -IF TOK$ = "=" THEN CALL GETSYM: N = N = ADDEXPR%: GOTO EXPRL -IF TOK$ = "<" THEN CALL GETSYM: N = N < ADDEXPR%: GOTO EXPRL -IF TOK$ = ">" THEN CALL GETSYM: N = N > ADDEXPR%: GOTO EXPRL -IF TOK$ = "<>" THEN CALL GETSYM: N = N <> ADDEXPR%: GOTO EXPRL -IF TOK$ = "<=" THEN CALL GETSYM: N = N <= ADDEXPR%: GOTO EXPRL -IF TOK$ = ">=" THEN CALL GETSYM: N = N >= ADDEXPR%: GOTO EXPRL -EXPRESSION% = N -END FUNCTION - -FUNCTION FACTOR% -IF ACCEPT("-") THEN -FACTOR% = -FACTOR% -EXIT FUNCTION -END IF -IF ACCEPT("(") THEN -FACTOR% = EXPRESSION -CALL EXPECT(")") -EXIT FUNCTION -END IF -IF LEFT$(TOK$, 1) >= "0" AND LEFT$(TOK$, 1) <= "9" THEN -FACTOR% = NUM -CALL GETSYM -EXIT FUNCTION -END IF -IF LEFT$(TOK$, 1) >= "A" AND LEFT$(TOK$, 1) <= "Z" THEN -FACTOR% = VARS(GETVARINDEX) -EXIT FUNCTION -END IF -PRINT "UNEXPECTED SYM "; TOK$; " IN FACTOR": ERRORS = 1 -END FUNCTION - -SUB GETCH -IF TEXTP > LEN(THELIN$) THEN CH$ = "": EXIT SUB -CH$ = MID$(THELIN$, TEXTP, 1) -TEXTP = TEXTP + 1 -END SUB - -SUB GETSYM -TOK$ = "" -WHILE CH$ <= " " -IF CH$ = "" THEN EXIT SUB -CALL GETCH -WEND - - -TOK$ = CH$ -IF INSTR(",;=+-*/()", CH$) > 0 THEN CALL GETCH: EXIT SUB -IF CH$ = "<" THEN -CALL GETCH -IF CH$ = "=" OR CH$ = ">" THEN -TOK$ = TOK$ + CH$ -CALL GETCH -END IF -EXIT SUB -END IF -IF CH$ = ">" THEN -CALL GETCH -IF CH$ = "=" THEN TOK$ = TOK$ + CH$: CALL GETCH -EXIT SUB -END IF -IF CH$ = CHR$(34) THEN CALL READSTR: EXIT SUB -IF CH$ >= "A" AND CH$ <= "Z" THEN CALL READIDENT: EXIT SUB -IF CH$ >= "0" AND CH$ <= "9" THEN CALL READINT: EXIT SUB -PRINT "WHAT->"; CH$: ERRORS = 1 -END SUB - -FUNCTION GETVARINDEX% -IF LEFT$(TOK$, 1) < "A" OR LEFT$(TOK$, 1) > "Z" THEN -PRINT "NOT A VARIABLE": ERRORS = 1: EXIT FUNCTION -END IF -GETVARINDEX% = ASC(LEFT$(TOK$, 1)) - ASC("A") -CALL GETSYM -END FUNCTION - -SUB GOTOLINE -CALL VALIDLINENUM -CALL INITGETSYM(NUM) -END SUB - -SUB GOTOSTMT -IF LEFT$(TOK$, 1) >= "0" AND LEFT$(TOK$, 1) <= "9" THEN -CALL GOTOLINE -EXIT SUB -END IF -PRINT "LINE NUMBER MUST FOLLOW GOTO": ERRORS = 1 -END SUB - -SUB IDSTMT -DIM VAR AS INTEGER -VAR = GETVARINDEX -CALL EXPECT("=") -VARS(VAR) = EXPRESSION -END SUB - -SUB IFSTMT -DIM B AS INTEGER -IF EXPRESSION = 0 THEN CALL SKIPTOEOL: EXIT SUB -B = ACCEPT("THEN") -IF LEFT$(TOK$, 1) >= "0" AND LEFT$(TOK$, 1) <= "9" THEN -CALL GOTOLINE -END IF -END SUB - -SUB INITGETSYM (N AS INTEGER) -CURLINE = N -TEXTP = 1 -THELIN$ = PGM$(CURLINE) -CH$ = " " -CALL GETSYM -END SUB - -SUB INPUTSTMT -DIM VAR AS INTEGER -IF TOK$ = CHR$(34) THEN -PRINT MID$(TOK$, 2, LEN(TOK$) - 1); -CALL GETSYM -CALL EXPECT(",") -ELSE -PRINT "? "; -END IF -VAR = GETVARINDEX -INPUT VARS(VAR) -END SUB - -SUB LISTSTMT -DIM I AS INTEGER -FOR I = 1 TO 1999 -IF PGM$(I) <> "" THEN PRINT I; " "; PGM$(I) -NEXT I -PRINT -END SUB - -SUB LLISTSTMT -OPEN "LPT1" FOR OUTPUT AS #1 -DIM I AS INTEGER -FOR I = 1 TO 1999 -IF PGM$(I) <> "" THEN PRINT #1, I; " "; PGM$(I) -NEXT I -PRINT -CLOSE #1 -END SUB - -SUB LPRINTSTMT -OPEN "LPT1" FOR OUTPUT AS #1 -DIM LPRINTNL AS INTEGER -LPRINTNL = 1 -DO WHILE TOK$ <> "" -LPRINTNL = 1 -IF LEFT$(TOK$, 1) = CHR$(34) THEN -PRINT #1, MID$(TOK$, 2, LEN(TOK$) - 1); -CALL GETSYM -ELSE -PRINT #1, EXPRESSION; -END IF -IF ACCEPT(",") = 0 AND ACCEPT(";") = 0 THEN EXIT DO -PRINTNL = 0 -LOOP -IF PRINTNL <> 0 THEN PRINT #1, "" -CLOSE #1 -END SUB - -SUB PRINTSTMT -DIM PRINTNL AS INTEGER -PRINTNL = 1 -DO WHILE TOK$ <> "" -PRINTNL = 1 -IF LEFT$(TOK$, 1) = CHR$(34) THEN -PRINT MID$(TOK$, 2, LEN(TOK$) - 1); -CALL GETSYM -ELSE -PRINT EXPRESSION; -END IF - - -IF ACCEPT(",") = 0 AND ACCEPT(";") = 0 THEN EXIT DO -PRINTNL = 0 -LOOP -IF PRINTNL <> 0 THEN PRINT -END SUB - -SUB READIDENT -TOK$ = "" -WHILE CH$ >= "A" AND CH$ <= "Z" -TOK$ = TOK$ + CH$ -CALL GETCH -WEND -END SUB - -SUB READINT -TOK$ = "" -WHILE CH$ >= "0" AND CH$ <= "9" -TOK$ = TOK$ + CH$ -CALL GETCH -WEND -NUM = VAL(TOK$) -END SUB - -SUB READSTR -TOK$ = CHR$(34) -CALL GETCH -WHILE CH$ <> CHR$(34) -IF CH$ = "" THEN -PRINT "STRING NOT TERMINATED": ERRORS = 1: EXIT SUB -END IF -TOK$ = TOK$ + CH$ -CALL GETCH -WEND -CALL GETCH -END SUB - -SUB SKIPTOEOL -WHILE CH$ <> "" -CALL GETCH -WEND -CALL GETSYM -END SUB - -FUNCTION TERM% -DIM N -N = FACTOR% -TERML: -IF TOK$ = "*" THEN CALL GETSYM: N = N * FACTOR%: GOTO TERML -IF TOK$ = "/" THEN CALL GETSYM: N = N / FACTOR%: GOTO TERML -TERM% = N -END FUNCTION - -SUB VALIDLINENUM -IF NUM > 0 AND NUM <= 1999 THEN EXIT SUB -PRINT "LINE NUMBER OUT OF RANGE": ERRORS = 1 -END SUB diff --git a/programs/samples/misc/kite.bas b/programs/samples/misc/kite.bas deleted file mode 100644 index e098ec2b5..000000000 --- a/programs/samples/misc/kite.bas +++ /dev/null @@ -1,69 +0,0 @@ -'2007 mennonite -'public domain - -ON ERROR GOTO 10 -DIM b AS INTEGER -DIM a AS INTEGER -DIM atwo AS INTEGER -q$ = "...../" + CHR$(92) + "........./__" + CHR$(92) + "......./____" + CHR$(92) + "...../_q____" + CHR$(92) + ".../___b____" + CHR$(92) + "./__________" + CHR$(92) -q$ = q$ + CHR$(92) + "__________/." + CHR$(92) + "____6___/..." + CHR$(92) + "____4_/....." + CHR$(92) + "____/......." + CHR$(92) + "__/........." + CHR$(92) + "/....." -COLOR , 1 - -FOR y = 25 TO 1 STEP -1 -FOR x = 1 TO 80 -LOCATE y, x: PRINT CHR$(32); -NEXT x -NEXT y: LOCATE 1, 1 - -RANDOMIZE TIMER -FOR a = 1 TO 10 -strn$ = strn$ + "||" + CHR$(247) -NEXT a -DO - -FOR y = 25 TO 1 STEP -1 -FOR x = 1 TO 80 -LOCATE y, x: PRINT CHR$(32); -NEXT x -NEXT y: LOCATE 1, 1 - -b = b + (RND(1) * 3 - .5 - 1) -a = a + (RND(1) * 3 - .5 - 1) -IF b < 1 THEN b = 1 ELSE IF b > 10 THEN b = 10 -IF a < 1 THEN a = 1 ELSE IF a > 67 THEN a = 67 -FOR y = 1 TO 12 -FOR x = 1 TO 12 -one$ = RIGHT$(LEFT$(q$, y * 12 - 12 + x), 1) - -fc = 11 -IF one$ = "." THEN fc = 1 -IF one$ = "_" THEN fc = 3 -IF ASC(UCASE$(one$)) > 64 AND ASC(UCASE$(one$)) < 91 THEN fc = 14 -IF ASC(UCASE$(one$)) > 47 AND ASC(UCASE$(one$)) < 58 THEN fc = 14 - -COLOR fc -LOCATE y + b, x + a -PRINT one$; -NEXT x -NEXT y -COLOR 15 -atwo = 0 -cursorline = b + 12 -DO WHILE cursorline <= 24 -LOCATE cursorline + 1, x + a - 6 + atwo -atwo = atwo + (RND(1) * 3 - .5 - 1) -PRINT RIGHT$(LEFT$(strn$, cursorline), 1); -cursorline = cursorline + 1 -LOOP -t = TIMER: DO: LOOP UNTIL t > TIMER + .25 OR t < TIMER - .25 -LOOP UNTIL INKEY$ = CHR$(27) - -COLOR 7, 0 -FOR y = 25 TO 1 STEP -1 -FOR x = 1 TO 80 -LOCATE y, x: PRINT CHR$(32); -NEXT x -NEXT y: LOCATE 1, 1 -END -10 RESUME NEXT - diff --git a/programs/samples/misc/land1.raw b/programs/samples/misc/land1.raw deleted file mode 100644 index 4b711366e..000000000 --- a/programs/samples/misc/land1.raw +++ /dev/null @@ -1 +0,0 @@ -ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ \ No newline at end of file diff --git a/programs/samples/misc/lissaj.bas b/programs/samples/misc/lissaj.bas deleted file mode 100644 index 3a64a2961..000000000 --- a/programs/samples/misc/lissaj.bas +++ /dev/null @@ -1,14 +0,0 @@ -'Lissajous by Antoni Gual -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ - -1 IF k = 0 THEN SCREEN 12 ELSE CLS -2 i& = (i& + 1) AND &HFFFFF -3 k = 6.3 * RND -4 l = 6.3 * RND -5 n% = (n% + 1) MOD 15 -6 FOR j& = 0 TO 100000 -7 PSET (320 + 300 * SIN(.01 * SIN(k) + j&), 240 + 200 * SIN(.01 * SIN(l) * j&)), n% + 1 -8 NEXT -9 IF LEN(INKEY$) = 0 THEN GOTO 1 - diff --git a/programs/samples/misc/mandala.bas b/programs/samples/misc/mandala.bas deleted file mode 100644 index 896c82818..000000000 --- a/programs/samples/misc/mandala.bas +++ /dev/null @@ -1,14 +0,0 @@ -'Mandala by Antoni gual -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ - -1 SCREEN 12 -2 v% = RND * 20 + 10 -3 REDIM VX%(v%), VY%(v%) -4 FOR d1% = -1 TO v% -5 FOR d2% = d1% + 1 TO v% -6 IF d1% = -1 THEN VX%(d2%) = 320 + (SIN(6.283185 * (d2% / v%)) * 239) ELSE LINE (VX%(d1%), VY%(d1%))-(VX%(d2%), VY%(d2%)), (v% MOD 16) + 1 -7 IF d1% = -1 THEN VY%(d2%) = 240 + (COS(6.283185 * (d2% / v%)) * 239) -8 NEXT d2%, d1% -9 IF LEN(INKEY$) = 0 THEN GOTO 2 - diff --git a/programs/samples/misc/mandelb.bas b/programs/samples/misc/mandelb.bas deleted file mode 100644 index a3d3aa64d..000000000 --- a/programs/samples/misc/mandelb.bas +++ /dev/null @@ -1,15 +0,0 @@ -'MANDELBROT by Antoni Gual 2003 -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ - -'DECLARE SUB ffix -'ffix -1 IF x& = 0 THEN SCREEN 13 ELSE iter% = 0 -2 x& = (x& + 123) MOD 64000 -3 im2 = im * im -4 IF iter% THEN im = 2 * re * im + (CSNG(x& \ 320) / 100 - 1) ELSE im = 0 -5 IF iter% THEN re = re * re - im2 + (CSNG(x& MOD 320) / 120 - 1.9) ELSE re = 0 -6 iter% = iter% + 1 -7 IF ABS(re) + ABS(im) > 2 OR iter% > 254 THEN PSET (x& MOD 320, x& \ 320), iter% ELSE GOTO 3 -8 IF LEN(INKEY$) = 0 THEN GOTO 1 - diff --git a/programs/samples/misc/matrix.bas b/programs/samples/misc/matrix.bas deleted file mode 100644 index d6515f348..000000000 --- a/programs/samples/misc/matrix.bas +++ /dev/null @@ -1,16 +0,0 @@ -'Matrix by Antoni Gual agual@eic.ictnet.es -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ -1 DEF SEG = &HB800 -2 FOR i% = 0 TO 159 STEP 4 -' adjust this speed constant for optimal effect -' | 0 no speed ;) .05 should be too fast even for a 386 -' | -3 IF RND < .0005 THEN j% = 3840 ELSE j% = -1 -4 IF j% > 0 THEN POKE j% + i%, PEEK(j% - 160 + i%) -5 IF j% > 0 THEN j% = j% - 160 -6 IF j% > 0 THEN GOTO 4 -7 IF j% = 0 THEN IF RND > .3 THEN POKE i%, 96 * RND + 32 ELSE POKE i%, 32 -8 NEXT -9 IF LEN(INKEY$) = 0 THEN GOTO 2 - diff --git a/programs/samples/misc/mclock.bas b/programs/samples/misc/mclock.bas deleted file mode 100644 index 9a9581253..000000000 --- a/programs/samples/misc/mclock.bas +++ /dev/null @@ -1,990 +0,0 @@ -' Release: MINI-CLOCK by Folker Fritz -' Version: 1.0 (1999-10-31) -' Status: 100% Freeware -' EMail: folker.fritz@gmx.de -' Homepage: http://www.quickbasic.6x.to - -DECLARE SUB FELT (X%, Y%, XX%, YY%, FARBEN%) -DECLARE SUB KLPRINT (B$, B%, K%, G%, I%) -DECLARE SUB DATUM () -DECLARE SUB FELD (A%, B%, AA%, BB%, C%) -SCREEN 12 -WIDTH 80, 60 -FELT 0, 0, 639, 479, 7 -FELT 36, 78, 597, 154, 0 - -'CONST PI = 3.141592 -DIM SHARED PI -PI = 3.141592 - -SCREEN 12 -CIRCLE (320, 300), 85, 15 -XCXX = VAL(MID$(TIME$, 7, 2)) -XCXY = VAL(MID$(TIME$, 4, 2)) -XCXZ = VAL(MID$(TIME$, 1, 2)) -1.1 -XCXB = PI * 2 / 12 - .0001 -XCXD = PI * 2 / 60 - .0001 -XCXE = PI * 2 / 60 - .0001 -456 -IF INKEY$ <> "" THEN END -IF XCXX <> VAL(MID$(TIME$, 7, 2)) THEN XCXX = VAL(MID$(TIME$, 7, 2)): GFF = 1 ELSE GFF = 0: GOTO 456 -IF XCXY <> VAL(MID$(TIME$, 4, 2)) THEN XCXY = VAL(MID$(TIME$, 4, 2)): GFG = 1 ELSE GFG = 0 -IF XCXZ <> VAL(MID$(TIME$, 1, 2)) THEN XCXZ = VAL(MID$(TIME$, 1, 2)): GFH = 1 ELSE GFH = 0 -XCXC = VAL(MID$(TIME$, 1, 2)) -XCXF = VAL(MID$(TIME$, 4, 2)) -XCXG = VAL(MID$(TIME$, 7, 2)) -IF XCXC > 12 THEN XCXC = XCXC - 12 -IF XCXC < 4 THEN XCXC = XCXC + 12 -IF XCXC > 3 THEN XCXC = XCXC - 3 -IF XCXF < 16 THEN XCXF = XCXF + 60 -IF XCXF > 15 THEN XCXF = XCXF - 15 -IF XCXG < 16 THEN XCXG = XCXG + 60 -IF XCXG > 15 THEN XCXG = XCXG - 15 -IF GFF = 1 THEN CIRCLE (320, 300), 80, 7, -2 * PI + XCXII, -2 * PI + XCXII: GFF = 1: XCXX = VAL(MID$(TIME$, 7, 2)) -IF GFG = 1 THEN CIRCLE (320, 300), 60, 7, -2 * PI + XCXHH, -2 * PI + XCXHH: GFG = 0: XCXY = VAL(MID$(TIME$, 4, 2)) -IF GFH = 1 THEN CIRCLE (320, 300), 40, 7, -2 * PI + XCXAA, -2 * PI + XCXAA: GFH = 1: XCXZ = VAL(MID$(TIME$, 1, 2)) -XCXA = XCXB * XCXC -XCXH = XCXD * XCXF -XCXI = XCXE * XCXG -XCXAA = XCXA -XCXHH = XCXH -XCXII = XCXI -CIRCLE (320, 300), 40, 15, -2 * PI + XCXA, -2 * PI + XCXA -CIRCLE (320, 300), 60, 12, -2 * PI + XCXH, -2 * PI + XCXH -CIRCLE (320, 300), 80, 8, -2 * PI + XCXI, -2 * PI + XCXI -IF TEMPTIME$ <> TIME$ THEN TEMPTIME$ = TIME$: DATUM -KLPRINT MID$(DATE$, 4, 2) + ".", 18, 576, 10, 4 -KLPRINT MID$(DATE$, 1, 2) + ".", 18, 594, 10, 4 -KLPRINT MID$(DATE$, 7, 4), 18, 611, 10, 4 -KLPRINT "MINI-CLOCK Version 1.00", 18, 242, 0, 4 -KLPRINT "12", 219, 314, 0, 15 -KLPRINT "3", 310, 409, 0, 15 -KLPRINT "9", 310, 227, 0, 15 -KLPRINT "6", 403, 317, 0, 15 -KLPRINT "1", 231, 364, 0, 15 -KLPRINT "2", 265, 398, 0, 15 -KLPRINT "11", 231, 266, 0, 15 -KLPRINT "10", 265, 233, 0, 15 -KLPRINT "4", 357, 397, 0, 15 -KLPRINT "5", 391, 365, 0, 15 -KLPRINT "8", 357, 239, 0, 15 -KLPRINT "7", 390, 271, 0, 15 -COLOR 15 -A = -1 -B = -1 -C = -1 -D = -1 -E = -1 -F = -1 -LOCATE 14, 27: PRINT "ÛÛ" -LOCATE 16, 27: PRINT "ÛÛ" -LOCATE 14, 51: PRINT "ÛÛ" -LOCATE 16, 51: PRINT "ÛÛ" -20 -IF A <> VAL(MID$(TIME$, 1, 1)) THEN A = VAL(MID$(TIME$, 1, 1)): GOTO 2 ELSE GOTO 1 -2 -SELECT CASE A -CASE 0: -LOCATE 12, 7: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 7: PRINT "ÛÛ ÛÛ" -LOCATE 14, 7: PRINT "ÛÛ ÛÛ" -LOCATE 15, 7: PRINT "ÛÛ ÛÛ" -LOCATE 16, 7: PRINT "ÛÛ ÛÛ" -LOCATE 17, 7: PRINT "ÛÛ ÛÛ" -LOCATE 18, 7: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 1 -LOCATE 12, 7: PRINT " ÛÛ" -LOCATE 13, 7: PRINT " ÛÛ" -LOCATE 14, 7: PRINT " ÛÛ" -LOCATE 15, 7: PRINT " ÛÛ" -LOCATE 16, 7: PRINT " ÛÛ" -LOCATE 17, 7: PRINT " ÛÛ" -LOCATE 18, 7: PRINT " ÛÛ" -CASE 2: -LOCATE 12, 7: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 7: PRINT " ÛÛ" -LOCATE 14, 7: PRINT " ÛÛ" -LOCATE 15, 7: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 7: PRINT "ÛÛ " -LOCATE 17, 7: PRINT "ÛÛ " -LOCATE 18, 7: PRINT "ÛÛÛÛÛÛÛÛ" -END SELECT -1 -IF B <> VAL(MID$(TIME$, 2, 1)) THEN B = VAL(MID$(TIME$, 2, 1)): GOTO 4 ELSE GOTO 3 -4 -SELECT CASE B -CASE 0: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT "ÛÛ ÛÛ" -LOCATE 14, 17: PRINT "ÛÛ ÛÛ" -LOCATE 15, 17: PRINT "ÛÛ ÛÛ" -LOCATE 16, 17: PRINT "ÛÛ ÛÛ" -LOCATE 17, 17: PRINT "ÛÛ ÛÛ" -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 1 -LOCATE 12, 17: PRINT " ÛÛ" -LOCATE 13, 17: PRINT " ÛÛ" -LOCATE 14, 17: PRINT " ÛÛ" -LOCATE 15, 17: PRINT " ÛÛ" -LOCATE 16, 17: PRINT " ÛÛ" -LOCATE 17, 17: PRINT " ÛÛ" -LOCATE 18, 17: PRINT " ÛÛ" -CASE 2: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT " ÛÛ" -LOCATE 14, 17: PRINT " ÛÛ" -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT "ÛÛ " -LOCATE 17, 17: PRINT "ÛÛ " -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 3: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT " ÛÛ" -LOCATE 14, 17: PRINT " ÛÛ" -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT " ÛÛ" -LOCATE 17, 17: PRINT " ÛÛ" -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 4: -LOCATE 12, 17: PRINT "ÛÛ ÛÛ" -LOCATE 13, 17: PRINT "ÛÛ ÛÛ" -LOCATE 14, 17: PRINT "ÛÛ ÛÛ" -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT " ÛÛ" -LOCATE 17, 17: PRINT " ÛÛ" -LOCATE 18, 17: PRINT " ÛÛ" -CASE 5: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT "ÛÛ " -LOCATE 14, 17: PRINT "ÛÛ " -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT " ÛÛ" -LOCATE 17, 17: PRINT " ÛÛ" -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 6: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT "ÛÛ " -LOCATE 14, 17: PRINT "ÛÛ " -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT "ÛÛ ÛÛ" -LOCATE 17, 17: PRINT "ÛÛ ÛÛ" -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 7: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT " ÛÛ" -LOCATE 14, 17: PRINT " ÛÛ" -LOCATE 15, 17: PRINT " ÛÛ" -LOCATE 16, 17: PRINT " ÛÛ" -LOCATE 17, 17: PRINT " ÛÛ" -LOCATE 18, 17: PRINT " ÛÛ" -CASE 8: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT "ÛÛ ÛÛ" -LOCATE 14, 17: PRINT "ÛÛ ÛÛ" -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT "ÛÛ ÛÛ" -LOCATE 17, 17: PRINT "ÛÛ ÛÛ" -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 9: -LOCATE 12, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 17: PRINT "ÛÛ ÛÛ" -LOCATE 14, 17: PRINT "ÛÛ ÛÛ" -LOCATE 15, 17: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 17: PRINT " ÛÛ" -LOCATE 17, 17: PRINT " ÛÛ" -LOCATE 18, 17: PRINT "ÛÛÛÛÛÛÛÛ" -END SELECT -3 -IF C <> VAL(MID$(TIME$, 4, 1)) THEN C = VAL(MID$(TIME$, 4, 1)): GOTO 6 ELSE GOTO 5 -6 -SELECT CASE C -CASE 0: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT "ÛÛ ÛÛ" -LOCATE 14, 31: PRINT "ÛÛ ÛÛ" -LOCATE 15, 31: PRINT "ÛÛ ÛÛ" -LOCATE 16, 31: PRINT "ÛÛ ÛÛ" -LOCATE 17, 31: PRINT "ÛÛ ÛÛ" -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 1 -LOCATE 12, 31: PRINT " ÛÛ" -LOCATE 13, 31: PRINT " ÛÛ" -LOCATE 14, 31: PRINT " ÛÛ" -LOCATE 15, 31: PRINT " ÛÛ" -LOCATE 16, 31: PRINT " ÛÛ" -LOCATE 17, 31: PRINT " ÛÛ" -LOCATE 18, 31: PRINT " ÛÛ" -CASE 2: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT " ÛÛ" -LOCATE 14, 31: PRINT " ÛÛ" -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT "ÛÛ " -LOCATE 17, 31: PRINT "ÛÛ " -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 3: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT " ÛÛ" -LOCATE 14, 31: PRINT " ÛÛ" -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT " ÛÛ" -LOCATE 17, 31: PRINT " ÛÛ" -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 4: -LOCATE 12, 31: PRINT "ÛÛ ÛÛ" -LOCATE 13, 31: PRINT "ÛÛ ÛÛ" -LOCATE 14, 31: PRINT "ÛÛ ÛÛ" -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT " ÛÛ" -LOCATE 17, 31: PRINT " ÛÛ" -LOCATE 18, 31: PRINT " ÛÛ" -CASE 5: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT "ÛÛ " -LOCATE 14, 31: PRINT "ÛÛ " -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT " ÛÛ" -LOCATE 17, 31: PRINT " ÛÛ" -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 6: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT "ÛÛ " -LOCATE 14, 31: PRINT "ÛÛ " -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT "ÛÛ ÛÛ" -LOCATE 17, 31: PRINT "ÛÛ ÛÛ" -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 7: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT " ÛÛ" -LOCATE 14, 31: PRINT " ÛÛ" -LOCATE 15, 31: PRINT " ÛÛ" -LOCATE 16, 31: PRINT " ÛÛ" -LOCATE 17, 31: PRINT " ÛÛ" -LOCATE 18, 31: PRINT " ÛÛ" -CASE 8: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT "ÛÛ ÛÛ" -LOCATE 14, 31: PRINT "ÛÛ ÛÛ" -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT "ÛÛ ÛÛ" -LOCATE 17, 31: PRINT "ÛÛ ÛÛ" -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 9: -LOCATE 12, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 31: PRINT "ÛÛ ÛÛ" -LOCATE 14, 31: PRINT "ÛÛ ÛÛ" -LOCATE 15, 31: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 31: PRINT " ÛÛ" -LOCATE 17, 31: PRINT " ÛÛ" -LOCATE 18, 31: PRINT "ÛÛÛÛÛÛÛÛ" -END SELECT -5 -IF D <> VAL(MID$(TIME$, 5, 1)) THEN D = VAL(MID$(TIME$, 5, 1)): GOTO 8 ELSE GOTO 7 -8 -SELECT CASE D -CASE 0: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT "ÛÛ ÛÛ" -LOCATE 14, 41: PRINT "ÛÛ ÛÛ" -LOCATE 15, 41: PRINT "ÛÛ ÛÛ" -LOCATE 16, 41: PRINT "ÛÛ ÛÛ" -LOCATE 17, 41: PRINT "ÛÛ ÛÛ" -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 1 -LOCATE 12, 41: PRINT " ÛÛ" -LOCATE 13, 41: PRINT " ÛÛ" -LOCATE 14, 41: PRINT " ÛÛ" -LOCATE 15, 41: PRINT " ÛÛ" -LOCATE 16, 41: PRINT " ÛÛ" -LOCATE 17, 41: PRINT " ÛÛ" -LOCATE 18, 41: PRINT " ÛÛ" -CASE 2: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT " ÛÛ" -LOCATE 14, 41: PRINT " ÛÛ" -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT "ÛÛ " -LOCATE 17, 41: PRINT "ÛÛ " -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 3: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT " ÛÛ" -LOCATE 14, 41: PRINT " ÛÛ" -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT " ÛÛ" -LOCATE 17, 41: PRINT " ÛÛ" -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 4: -LOCATE 12, 41: PRINT "ÛÛ ÛÛ" -LOCATE 13, 41: PRINT "ÛÛ ÛÛ" -LOCATE 14, 41: PRINT "ÛÛ ÛÛ" -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT " ÛÛ" -LOCATE 17, 41: PRINT " ÛÛ" -LOCATE 18, 41: PRINT " ÛÛ" -CASE 5: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT "ÛÛ " -LOCATE 14, 41: PRINT "ÛÛ " -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT " ÛÛ" -LOCATE 17, 41: PRINT " ÛÛ" -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 6: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT "ÛÛ " -LOCATE 14, 41: PRINT "ÛÛ " -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT "ÛÛ ÛÛ" -LOCATE 17, 41: PRINT "ÛÛ ÛÛ" -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 7: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT " ÛÛ" -LOCATE 14, 41: PRINT " ÛÛ" -LOCATE 15, 41: PRINT " ÛÛ" -LOCATE 16, 41: PRINT " ÛÛ" -LOCATE 17, 41: PRINT " ÛÛ" -LOCATE 18, 41: PRINT " ÛÛ" -CASE 8: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT "ÛÛ ÛÛ" -LOCATE 14, 41: PRINT "ÛÛ ÛÛ" -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT "ÛÛ ÛÛ" -LOCATE 17, 41: PRINT "ÛÛ ÛÛ" -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 9: -LOCATE 12, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 41: PRINT "ÛÛ ÛÛ" -LOCATE 14, 41: PRINT "ÛÛ ÛÛ" -LOCATE 15, 41: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 41: PRINT " ÛÛ" -LOCATE 17, 41: PRINT " ÛÛ" -LOCATE 18, 41: PRINT "ÛÛÛÛÛÛÛÛ" -END SELECT -7 -IF E <> VAL(MID$(TIME$, 7, 1)) THEN E = VAL(MID$(TIME$, 7, 1)): GOTO 10 ELSE GOTO 9 -10 -SELECT CASE E -CASE 0: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT "ÛÛ ÛÛ" -LOCATE 14, 55: PRINT "ÛÛ ÛÛ" -LOCATE 15, 55: PRINT "ÛÛ ÛÛ" -LOCATE 16, 55: PRINT "ÛÛ ÛÛ" -LOCATE 17, 55: PRINT "ÛÛ ÛÛ" -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 1 -LOCATE 12, 55: PRINT " ÛÛ" -LOCATE 13, 55: PRINT " ÛÛ" -LOCATE 14, 55: PRINT " ÛÛ" -LOCATE 15, 55: PRINT " ÛÛ" -LOCATE 16, 55: PRINT " ÛÛ" -LOCATE 17, 55: PRINT " ÛÛ" -LOCATE 18, 55: PRINT " ÛÛ" -CASE 2: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT " ÛÛ" -LOCATE 14, 55: PRINT " ÛÛ" -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT "ÛÛ " -LOCATE 17, 55: PRINT "ÛÛ " -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 3: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT " ÛÛ" -LOCATE 14, 55: PRINT " ÛÛ" -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT " ÛÛ" -LOCATE 17, 55: PRINT " ÛÛ" -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 4: -LOCATE 12, 55: PRINT "ÛÛ ÛÛ" -LOCATE 13, 55: PRINT "ÛÛ ÛÛ" -LOCATE 14, 55: PRINT "ÛÛ ÛÛ" -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT " ÛÛ" -LOCATE 17, 55: PRINT " ÛÛ" -LOCATE 18, 55: PRINT " ÛÛ" -CASE 5: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT "ÛÛ " -LOCATE 14, 55: PRINT "ÛÛ " -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT " ÛÛ" -LOCATE 17, 55: PRINT " ÛÛ" -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 6: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT "ÛÛ " -LOCATE 14, 55: PRINT "ÛÛ " -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT "ÛÛ ÛÛ" -LOCATE 17, 55: PRINT "ÛÛ ÛÛ" -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 7: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT " ÛÛ" -LOCATE 14, 55: PRINT " ÛÛ" -LOCATE 15, 55: PRINT " ÛÛ" -LOCATE 16, 55: PRINT " ÛÛ" -LOCATE 17, 55: PRINT " ÛÛ" -LOCATE 18, 55: PRINT " ÛÛ" -CASE 8: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT "ÛÛ ÛÛ" -LOCATE 14, 55: PRINT "ÛÛ ÛÛ" -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT "ÛÛ ÛÛ" -LOCATE 17, 55: PRINT "ÛÛ ÛÛ" -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 9: -LOCATE 12, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 55: PRINT "ÛÛ ÛÛ" -LOCATE 14, 55: PRINT "ÛÛ ÛÛ" -LOCATE 15, 55: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 55: PRINT " ÛÛ" -LOCATE 17, 55: PRINT " ÛÛ" -LOCATE 18, 55: PRINT "ÛÛÛÛÛÛÛÛ" -END SELECT -9 -IF F <> VAL(MID$(TIME$, 8, 1)) THEN F = VAL(MID$(TIME$, 8, 1)): GOTO 12 ELSE GOTO 1.1 -12 -SELECT CASE F -CASE 0: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT "ÛÛ ÛÛ" -LOCATE 14, 65: PRINT "ÛÛ ÛÛ" -LOCATE 15, 65: PRINT "ÛÛ ÛÛ" -LOCATE 16, 65: PRINT "ÛÛ ÛÛ" -LOCATE 17, 65: PRINT "ÛÛ ÛÛ" -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 1: -LOCATE 12, 65: PRINT " ÛÛ" -LOCATE 13, 65: PRINT " ÛÛ" -LOCATE 14, 65: PRINT " ÛÛ" -LOCATE 15, 65: PRINT " ÛÛ" -LOCATE 16, 65: PRINT " ÛÛ" -LOCATE 17, 65: PRINT " ÛÛ" -LOCATE 18, 65: PRINT " ÛÛ" -CASE 2: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT " ÛÛ" -LOCATE 14, 65: PRINT " ÛÛ" -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT "ÛÛ " -LOCATE 17, 65: PRINT "ÛÛ " -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 3: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT " ÛÛ" -LOCATE 14, 65: PRINT " ÛÛ" -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT " ÛÛ" -LOCATE 17, 65: PRINT " ÛÛ" -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 4: -LOCATE 12, 65: PRINT "ÛÛ ÛÛ" -LOCATE 13, 65: PRINT "ÛÛ ÛÛ" -LOCATE 14, 65: PRINT "ÛÛ ÛÛ" -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT " ÛÛ" -LOCATE 17, 65: PRINT " ÛÛ" -LOCATE 18, 65: PRINT " ÛÛ" -CASE 5: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT "ÛÛ " -LOCATE 14, 65: PRINT "ÛÛ " -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT " ÛÛ" -LOCATE 17, 65: PRINT " ÛÛ" -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 6: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT "ÛÛ " -LOCATE 14, 65: PRINT "ÛÛ " -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT "ÛÛ ÛÛ" -LOCATE 17, 65: PRINT "ÛÛ ÛÛ" -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 7: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT " ÛÛ" -LOCATE 14, 65: PRINT " ÛÛ" -LOCATE 15, 65: PRINT " ÛÛ" -LOCATE 16, 65: PRINT " ÛÛ" -LOCATE 17, 65: PRINT " ÛÛ" -LOCATE 18, 65: PRINT " ÛÛ" -CASE 8: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT "ÛÛ ÛÛ" -LOCATE 14, 65: PRINT "ÛÛ ÛÛ" -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT "ÛÛ ÛÛ" -LOCATE 17, 65: PRINT "ÛÛ ÛÛ" -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -CASE 9: -LOCATE 12, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 13, 65: PRINT "ÛÛ ÛÛ" -LOCATE 14, 65: PRINT "ÛÛ ÛÛ" -LOCATE 15, 65: PRINT "ÛÛÛÛÛÛÛÛ" -LOCATE 16, 65: PRINT " ÛÛ" -LOCATE 17, 65: PRINT " ÛÛ" -LOCATE 18, 65: PRINT "ÛÛÛÛÛÛÛÛ" -END SELECT -GOTO 1.1 - -DEFINT A-Z -SUB DATUM -KLPRINT TIME$, 18, 5, 10, 4 -IF MID$(TIME$, 1, 2) <> "00" THEN GOTO 3.1 -IF MID$(TIME$, 4, 2) <> "00" THEN GOTO 3.1 -IF MID$(TIME$, 7, 2) <> "00" THEN GOTO 3.1 -KLPRINT MID$(DATE$, 4, 2) + ".", 18, 576, 10, 4 -KLPRINT MID$(DATE$, 1, 2) + ".", 18, 594, 10, 4 -KLPRINT MID$(DATE$, 7, 4), 18, 611, 10, 4 -3.1 END SUB - -SUB FELT (X, Y, XX, YY, FARBEN) -LINE (X, Y)-(X, YY), 15 -LINE (X, Y)-(XX, Y), 15 -LINE (X, YY)-(XX, YY), 8 -LINE (XX, Y)-(XX, YY), 8 -VIEW (X + 2, Y + 2)-(XX - 2, YY - 2), FARBEN, FARBEN -VIEW (0, 0)-(639, 479) -END SUB - -SUB KLPRINT (B$, B, K, G, I) -C = LEN(B$) -B$ = UCASE$(B$) -D = K - 6 -E = B - 14 -IF G <> 10 THEN E = E - G -7.1 : F = F + 1 -H = F * 6 -IF F = C + 1 THEN GOTO 198 -IF G = 10 THEN -VIEW (D + H, E)-(D + H + 4, E + 6), 7, 7 -VIEW (0, 0)-(639, 479) -END IF -IF MID$(B$, F, 1) = " " THEN -GOTO 123 -ELSEIF MID$(B$, F, 1) = "A" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "B" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "C" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "D" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "E" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "F" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H, E + 5), I -PSET (D + H, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "G" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "H" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "I" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H + 2, E + 1), I -PSET (D + H + 2, E + 2), I -PSET (D + H + 2, E + 3), I -PSET (D + H + 2, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "J" THEN -PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H + 3, E + 1), I -PSET (D + H + 3, E + 2), I -PSET (D + H + 3, E + 3), I -PSET (D + H + 3, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "K" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 3, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "L" THEN -PSET (D + H, E + 0), I -PSET (D + H, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "M" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 1, E + 1), I: PSET (D + H + 3, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "N" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 1, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "O" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "P" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H, E + 5), I -PSET (D + H, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "Q" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "R" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "S" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H + 4, E + 4), I -PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "T" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H + 2, E + 1), I -PSET (D + H + 2, E + 2), I -PSET (D + H + 2, E + 3), I -PSET (D + H + 2, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "U" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "V" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H + 1, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H + 1, E + 4), I: PSET (D + H + 3, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "W" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 1, E + 5), I: PSET (D + H + 3, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "X" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H + 1, E + 2), I: PSET (D + H + 3, E + 2), I -PSET (D + H + 2, E + 3), I -PSET (D + H + 1, E + 4), I: PSET (D + H + 3, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "Y" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H + 1, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H + 2, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "Z" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H + 3, E + 2), I -PSET (D + H + 2, E + 3), I -PSET (D + H + 1, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "." THEN -PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "," THEN -PSET (D + H + 1, E + 4), I: PSET (D + H + 2, E + 4), I -PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "&" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 3, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I -PSET (D + H + 1, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "(" THEN -PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H + 1, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H + 1, E + 5), I -PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = ")" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I -PSET (D + H + 3, E + 1), I -PSET (D + H + 4, E + 2), I -PSET (D + H + 4, E + 3), I -PSET (D + H + 4, E + 4), I -PSET (D + H + 3, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "1" THEN -PSET (D + H + 3, E + 0), I -PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I -PSET (D + H + 1, E + 2), I: PSET (D + H + 3, E + 2), I -PSET (D + H + 3, E + 3), I -PSET (D + H + 3, E + 4), I -PSET (D + H + 3, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "2" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H + 3, E + 3), I -PSET (D + H + 2, E + 4), I -PSET (D + H + 1, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "3" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H + 4, E + 2), I -PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "4" THEN -PSET (D + H + 3, E + 0), I -PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I -PSET (D + H + 1, E + 2), I: PSET (D + H + 3, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H + 3, E + 4), I -PSET (D + H + 3, E + 5), I -PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "5" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H + 4, E + 4), I -PSET (D + H + 4, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "6" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "7" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H + 3, E + 2), I -PSET (D + H + 3, E + 3), I -PSET (D + H + 2, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "8" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "9" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "0" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 3, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 1, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = ":" THEN -PSET (D + H + 1, E + 1), I: PSET (D + H + 2, E + 1), I -PSET (D + H + 1, E + 2), I: PSET (D + H + 2, E + 2), I -PSET (D + H + 1, E + 4), I: PSET (D + H + 2, E + 4), I -PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "-" THEN -PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I -PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "$" THEN -PSET (D + H + 2, E + 0), I -PSET (D + H + 1, E + 1), I: PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I -PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I -PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I: PSET (D + H + 3, E + 5), I -PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "*" THEN -PSET (D + H, E + 1), I: PSET (D + H + 2, E + 1), I: PSET (D + H + 4, E + 1), I -PSET (D + H + 1, E + 2), I: PSET (D + H + 2, E + 2), I: PSET (D + H + 3, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H + 1, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 3, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 2, E + 5), I: PSET (D + H + 4, E + 5), I -ELSEIF MID$(B$, F, 1) = "/" THEN -PSET (D + H + 4, E + 0), I -PSET (D + H + 3, E + 1), I -PSET (D + H + 3, E + 2), I -PSET (D + H + 2, E + 3), I -PSET (D + H + 1, E + 4), I -PSET (D + H + 1, E + 5), I -PSET (D + H, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "\" THEN -PSET (D + H, E + 0), I -PSET (D + H + 1, E + 1), I -PSET (D + H + 1, E + 2), I -PSET (D + H + 2, E + 3), I -PSET (D + H + 3, E + 4), I -PSET (D + H + 3, E + 5), I -PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "[" THEN -PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I -PSET (D + H, E + 1), I -PSET (D + H, E + 2), I -PSET (D + H, E + 3), I -PSET (D + H, E + 4), I -PSET (D + H, E + 5), I -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "]" THEN -PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H + 4, E + 1), I -PSET (D + H + 4, E + 2), I -PSET (D + H + 4, E + 3), I -PSET (D + H + 4, E + 4), I -PSET (D + H + 4, E + 5), I -PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "_" THEN -PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "š" OR MID$(B$, F, 1) = "" THEN -PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I -PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I -PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I -ELSEIF MID$(B$, F, 1) = "!" THEN -PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I -PSET (D + H + 1, E + 1), I: PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I -PSET (D + H + 2, E + 2), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 2, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = ">" THEN -PSET (D + H + 1, E + 0), I -PSET (D + H + 2, E + 1), I -PSET (D + H + 3, E + 2), I -PSET (D + H + 4, E + 3), I -PSET (D + H + 3, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 1, E + 6), I: GOTO 123 -ELSEIF MID$(B$, F, 1) = "@" THEN -PSET (D + H, E + 0), 7: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), 7 -PSET (D + H, E + 1), I: PSET (D + H + 1, E + 1), 7: PSET (D + H + 2, E + 1), 7: PSET (D + H + 3, E + 1), 7: PSET (D + H + 4, E + 1), I -PSET (D + H, E + 2), I: PSET (D + H + 1, E + 2), 7: PSET (D + H + 2, E + 2), I: PSET (D + H + 3, E + 2), I: PSET (D + H + 4, E + 2), I -PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), 7: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I -PSET (D + H, E + 4), I: PSET (D + H + 1, E + 4), 7: PSET (D + H + 2, E + 4), I: PSET (D + H + 3, E + 4), I: PSET (D + H + 4, E + 4), I -PSET (D + H, E + 5), I: PSET (D + H + 1, E + 5), 7: PSET (D + H + 2, E + 5), 7: PSET (D + H + 3, E + 5), 7: PSET (D + H + 4, E + 5), 7 -PSET (D + H, E + 6), 7: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), 7 -ELSEIF MID$(B$, F, 1) = "<" THEN -PSET (D + H + 3, E + 0), I -PSET (D + H + 2, E + 1), I -PSET (D + H + 1, E + 2), I -PSET (D + H, E + 3), I -PSET (D + H + 1, E + 4), I -PSET (D + H + 2, E + 5), I -PSET (D + H + 3, E + 6), I: GOTO 123 -123 END IF -IF F - 1 < C THEN GOTO 7.1 -198 END SUB - diff --git a/programs/samples/misc/message.bas b/programs/samples/misc/message.bas deleted file mode 100644 index b1b19e094..000000000 --- a/programs/samples/misc/message.bas +++ /dev/null @@ -1,14 +0,0 @@ -'SUBLIMIAL MESSAGE GENERATOR -- HIDES MESSAGE IN STRANGE BEEPING NOISES -' modify w$ for different subliminal message - -CLS -DO WHILE INKEY$ <> CHR$(27) -COLOR INT(RND(1) * 16), INT(RND(1) * 16) -PRINT " "; -w$ = "QB64 RULES" -y% = (y% + 1) -IF y% > LEN(w$) THEN y% = y% MOD LEN(w$) -z% = ASC(MID$(w$, y%, 1)) -x% = 9 * z% + 100 -SOUND x%, 1 -LOOP \ No newline at end of file diff --git a/programs/samples/misc/mzupd2.bas b/programs/samples/misc/mzupd2.bas deleted file mode 100644 index ed22ff139..000000000 --- a/programs/samples/misc/mzupd2.bas +++ /dev/null @@ -1,1922 +0,0 @@ -'Maze of Misery -'By Steve M. (c),May 5,01 -'**************** - -'Please visit my web page at: www.angelfire.com/bc2/cuebasic/qpage.html -' -'Disclaimer: This program may not be distributed, modified or copied without -'written permission from the author at yochatwitme@yahoo.com. -'Not liable for system or hardware damage. Tho' I can assure you that you -'won't experience any problems. Email me at yochatwitme@yahoo.com about -'any concerns or difficulties you may be having. -'Finally, you have my permission to post the program on your web page. -'Hope you enjoy the game. -' -'Thanks. SM :) -'Gbgames Chatname: QB4ever - -DECLARE SUB Cleardotarea () -DECLARE SUB CopydotPlayer () -DECLARE SUB Menu () - -dim shared false as single -false=0 -dim shared true as single -true=-1 -'CONST FALSE = 0 -'CONST TRUE = NOT FALSE - -'CLEAR 2000, 2000 -DIM T$(150), Wall%(1 TO 300), Wall2%(1 TO 300), Wall3%(1 TO 300) -DIM SHARED Player%(1 TO 300), Maze$(768), Object$(20), Door%(1 TO 300) -DIM EDoor%(1 TO 300), Keylock%(1 TO 300), Clrobject%(1 TO 300) -DIM Gold%(1 TO 300), Treasure%(1 TO 300), Diamond%(1 TO 300) -DIM Diamond2%(1 TO 300), Enemy%(1 TO 300), Gem%(1 TO 300) -DIM Enemydotpos(16), Spider%(1 TO 300), Spider2%(1 TO 300) -DIM Spike%(1 TO 300), Spikemask%(1 TO 300), Wallmask%(1 TO 300) -DIM Web%(1 TO 300), Wcs(64, 1), Keyfl(64), Clrkey(64) -DIM Spiderfr2%(1 TO 300), Spiderpfr2%(1 TO 300), Playerdeath%(1 TO 300) -DIM SHARED Reptxt%(1 TO 3000) - -Start: -X = 154: Y = 40: MatrixY = 14: MatrixX = 6: Lives = 5: Health = 9000 -En = 1: Dx = -30: Lx = -1: Dy = 1: SpacerX = 0: SpacerY = 0: EVL = 11 -CIX1 = 275: CIY1 = 145: CIY2 = 90: Rm = 2: Web = 20: Glow = 1: Adv = 0 -M2 = -1: V2x = 1: G = 1 -Health$ = "Good": M1$ = "Mazes of Misery": TIME$ = "00:00:00" -T$ = CHR$(0) + CHR$(63) + CHR$(48) + CHR$(48) + CHR$(60) + CHR$(48) + CHR$(48) + CHR$(48) + CHR$(0) -RESTORE Wallcols: FOR A = 1 TO 64: READ Wcs(A, 0): NEXT -RESTORE Wallbord: FOR A = 1 TO 64: READ Wcs(A, 1): NEXT - -BegindotMaze: - -'Setup array picture images - -SCREEN 12: CLS : RANDOMIZE TIMER -GOSUB Copydotwall: GOSUB Cleardotplayer -GOSUB Copydotwall2: GOSUB Cleardotplayer -GOSUB Copydotwall3: GOSUB Cleardotplayer -GOSUB CopydotPlayer: GOSUB Cleardotplayer -GOSUB CopydotCleardotObject 'This array clears the current image -GOSUB CopydotDoor: GOSUB Cleardotplayer -GOSUB CopydotKeylock: GOSUB Cleardotplayer -GOSUB CopydotTreasure: GOSUB Cleardotplayer -GOSUB CopydotRing: GOSUB Cleardotplayer -GOSUB CopydotRing2: GOSUB Cleardotplayer -GOSUB CopydotGem: GOSUB Cleardotplayer -GOSUB CopydotSpider: GOSUB Cleardotplayer -GOSUB CopydotSpider2: GOSUB Cleardotplayer -GOSUB CopydotWeb: GOSUB Cleardotplayer -GOSUB CopydotSpike: GOSUB Cleardotplayer -SpacerX = 0: SpacerY = 0: GOSUB Titledotscr -Begin: -frm = 1: SCREEN 12: CLS : GOSUB Builddotmazes -SpacerX = 0: SpacerY = 0: GOSUB RoomdotCheck: GOSUB Gamedotstatus -r = StartdotA: SpacerX = 0: SpacerY = 0 - -Kyboard: -do: loop while timer=oldtimer! -oldtimer!=timer -FOR i=1 to 100 -GOSUB Scandotmaze -NEXT -T$ = MID$(Maze$(MatrixY), MatrixX, 1) -IF T$ = "L" AND (CT >= 1 AND CT <= 20) THEN GOSUB Shocked -i$ = INKEY$: IF i$ = "" THEN GOTO Kyboard - -Oldx = X: Oldy = Y: Matrixydotold = MatrixY: Matrixxdotold = MatrixX - IF Kytapfl < 1 THEN - IF i$ = CHR$(0) + "M" THEN GOSUB Cleardotman: X = X + 30: MatrixX = MatrixX + 1: IF X > 574 THEN X = 4: Rm = Rm + 8: MatrixY = MatrixY + 96: MatrixX = 1: GOSUB RoomdotCheck - IF i$ = CHR$(0) + "K" THEN GOSUB Cleardotman: X = X - 30: MatrixX = MatrixX - 1: IF X < 4 THEN X = 574: Rm = Rm - 8: MatrixY = MatrixY - 96: MatrixX = 20: GOSUB RoomdotCheck - IF i$ = CHR$(0) + "H" THEN GOSUB Cleardotman: Y = Y - 36: MatrixY = MatrixY - 1: IF Y < 4 THEN Rm = Rm - 1: GOSUB RoomdotCheck - IF i$ = CHR$(0) + "P" THEN GOSUB Cleardotman: Y = Y + 36: MatrixY = MatrixY + 1: IF Y > 400 THEN Rm = Rm + 1: GOSUB RoomdotCheck - ELSE - IF i$ = "6" THEN GOSUB Cleardotman: X = X + 30: MatrixX = MatrixX + 1: IF X > 574 THEN X = 4: Rm = Rm + 8: MatrixY = MatrixY + 96: MatrixX = 1: GOSUB RoomdotCheck - IF i$ = "4" THEN GOSUB Cleardotman: X = X - 30: MatrixX = MatrixX - 1: IF X < 4 THEN X = 574: Rm = Rm - 8: MatrixY = MatrixY - 96: MatrixX = 20: GOSUB RoomdotCheck - IF i$ = "8" THEN GOSUB Cleardotman: Y = Y - 36: MatrixY = MatrixY - 1: IF Y < 4 THEN Rm = Rm - 1: GOSUB RoomdotCheck - IF i$ = "2" THEN GOSUB Cleardotman: Y = Y + 36: MatrixY = MatrixY + 1: IF Y > 400 THEN Rm = Rm + 1: GOSUB RoomdotCheck - END IF -IF i$ = CHR$(27) THEN i$ = "": GOSUB Menulist -T$ = MID$(Maze$(MatrixY), MatrixX, 1) -IF T$ = "#" OR T$ = "@" OR T$ = "%" OR T$ = "W" THEN GOSUB Recalldotolddotposition -IF T$ = "B" AND M > 11 THEN GOSUB Spiderdotbite -IF T$ = "L" AND (CT >= 1 AND CT <= 20) THEN GOSUB Shocked -IF T$ = "k" THEN GOSUB Keyfound -IF T$ = "E" THEN GOTO Escaped -IF T$ = "D" THEN Sx = X: Sy = Y: Svsx = Sx: Svsy = Sy: SMy = MatrixY: SMx = MatrixX: GOSUB Recalldotolddotposition: GOSUB Doordotroutine -IF T$ = "t" THEN GOSUB Treasuredotroutine -IF T$ = "g" THEN GOSUB Gemdotroutine -IF T$ = "r" THEN GOSUB Ringdotroutine -IF Flg THEN GmdotTmr = TIMER: DELAY = CPU * 15 + SQR(2 / 2 + GmdotTmr + .6) + 800: FOR LL = 1 TO DELAY: NEXT -IF frm > 100 THEN frm = 1 -GOSUB Displaydotman -GOTO Kyboard - -Scandotmaze: -B = B + 1 -T$ = MID$(Maze$(r), B, 1): SPK$ = MID$(Maze$(r), B, 1) -GOSUB SkipdotX: Cnt = Cnt + 1 -IF T$ = "B" OR T$ = "S" THEN Spx = SpacerX: Spy = SpacerY: GOSUB Spiderdotroutine -IF T$ = "L" THEN Lex = SpacerX: Ley = SpacerY: GOSUB Electricdotroutine -IF T$ = "r" THEN RingdotX = SpacerX: RingdotY = SpacerY + 6: GOSUB Ringdotglow -IF SPK$ = "s" THEN SpikeX = SpacerX: SpikeY = SpacerY + 6: GOSUB SpikedotMoving -IF B < 20 THEN RETURN -B = 1: SpacerX = 0: SpacerY = SpacerY + 36 -IF r < FinishdotA THEN r = r + 1: RETURN -r = StartdotA: SpacerX = 0: SpacerY = 0 -RETURN - -SkipdotX: -SpacerX = SpacerX + 30 -RETURN - -Spiderdotroutine: -frm = frm + 1 -IF (T$ = "S") THEN Poisondotspider = 1 -T$ = MID$(Maze$(MatrixY), MatrixX, 1) -IF Demo THEN T$ = MID$(A$(Dmx), Dmy, 1) -IF (T$ = "B" OR T$ = "S") AND M > 11 THEN GOSUB Spiderdotbite -IF T$ = "s" AND M2 < 8 THEN GOSUB Spikedotstabb -M = M + Vx: IF M > 31 THEN Vx = -1 -GOSUB Showdotspider -IF M < 1 THEN Vx = 1 -LINE (Spx + 12, (Spy - Web))-(Spx + 12, (Spy - 10) + M), 8, BF -FOR H = 1 TO 800 - Adv + DELAY: NEXT -RETURN - -SpikedotMoving: -SPK$ = MID$(Maze$(r), B, 1) -M2 = M2 + V2x: IF M2 > 25 THEN V2x = -1 -IF M2 < 1 THEN V2x = 1 -IF Wm < 1 THEN GET (SpikeX, SpikeY + 36)-(SpikeX + 26, SpikeY + 71), Spikemask%: Wm = 1 -PUT (SpikeX, (SpikeY) + 11 + M2), Spike%, PSET -IF Wm2 < 1 THEN GET (SpikeX, SpikeY + 5 + M2)-(SpikeX + 18, SpikeY + 36 + M2), Wallmask%: Wm2 = 1 -IF T$ = "s" THEN GOSUB Displaydotman -PUT (SpikeX, SpikeY + 5 + M2), Wallmask%, AND 'spike mask -PUT (SpikeX, SpikeY + 36), Spikemask%, PSET 'wall mask -RETURN - -Showdotspider: -IF Poisondotspider THEN - IF INT(frm / 2) = frm / 2 THEN - PUT (Spx - 1, (Spy - 30) + 10 + M), Spiderpfr2%, PSET: Poisondotspider = 0: RETURN - ELSE - PUT (Spx - 1, (Spy - 30) + 10 + M), Spider2%, PSET: Poisondotspider = 0: RETURN - END IF - -ELSE - IF INT(frm / 4) = frm / 4 THEN - PUT (Spx - 1, (Spy - 30) + 10 + M), Spiderfr2%, PSET: RETURN - ELSE - PUT (Spx - 1, (Spy - 30) + 10 + M), Spider%, PSET - END IF -END IF -RETURN - -Showdotspike: -PUT (SpikeX, SpikeY + M2), Spike%, PSET -RETURN - -Electricdotroutine: -CT = CT + 1: IF CT >= 1 AND CT <= 20 THEN GOTO EStart -IF CT > 50 THEN CT = 1 -RETURN - -EStart: -RANDOMIZE TIMER -IF G < 1 THEN Gv = 1 -G = G + Gv: IF G > 5 THEN Gv = -1 -E1 = RND(6 * RND(0)): E2 = RND(6 * RND(0)): E3 = FIX(RND(6 * RND(0))) -E4 = FIX(6 * RND(0)): E5 = FIX(6 * RND(0)): E6 = FIX(RND(6 * RND(0))) -E7 = FIX(6 * RND(0)): E8 = FIX(6 * RND(0)): E9 = FIX(RND(6 * RND(0))) -LINE (Lex + E1, Ley + 4)-(Lex + E2 * (G + 3), Ley + 9), 14 -LINE -(Lex + E3 + SGN(G + 3), Ley + 15), 14 -LINE -(Lex + E4 * (G + 3), Ley + 20), 14 -LINE -(Lex + E5 + SGN(G + 3), Ley + 26), 14 -LINE -(Lex + E6 * (G + 3), Ley + 32), 14 -LINE -(Lex + E7 + SGN(G + 3), Ley + 38), 14 -FOR H = 1 TO 150 - Adv / 4: NEXT -Sx = SpacerX + 2: Sy = SpacerY + 4: GOSUB Cleardotarea -RETURN - -Spiderdotbite: -GOSUB Displaydotman: M$ = "Yow! I've been bitten!": PS = 40 - LEN(M$) / 2 -LOCATE 30, PS: PRINT M$; : GOSUB Hold: GOSUB Clearline -PUT (X, Y), Playerdeath%, PSET: SLEEP 1: PUT (X, Y), Clrobject%, PSET -Health = Health - ABS(75 * (T$ = "S") - 55) -IF Health < 1 THEN LOCATE 30, PS + 4: PRINT "You died!"; : SLEEP 2: GOSUB Clearline: GOTO Fin -GOSUB Gamedotstatus -RETURN - -Spikedotstabb: -GOSUB Displaydotman: M$ = "Yarrgghh! I've been sheared!": PS = 40 - LEN(M$) / 2 -LOCATE 30, PS: PRINT M$; : GOSUB Hold: GOSUB Clearline -PUT (X, Y), Playerdeath%, PSET: SLEEP 1: PUT (X, Y), Clrobject%, PSET -Health = Health - ABS(75 * (T$ = "S") - 55) -IF Health < 1 THEN LOCATE 30, PS + 4: PRINT "You died!"; : SLEEP 2: GOSUB Clearline: GOTO Fin -GOSUB Gamedotstatus -RETURN - -Shocked: -GOSUB Displaydotman: M$ = "Arrggghh! I've been shocked!": PS = 40 - LEN(M$) / 2 -LOCATE 30, PS: PRINT M$; : GOSUB Hold: GOSUB Clearline -PUT (X, Y), Playerdeath%, PSET: SLEEP 1: PUT (X, Y), Clrobject%, PSET -Health = Health - 25 -IF Health < 1 THEN LOCATE 30, 30: PRINT "You died!"; : SLEEP 2: GOSUB Clearline: GOTO Fin -GOSUB Gamedotstatus -RETURN - -Treasuredotroutine: -GOSUB Replacedotchar: GOSUB Openeddotchest -RETURN - -Ringdotroutine: -LOCATE 30, 20: PRINT "You have found a diamond ring!"; : GOSUB Displaydotman -SLEEP 2: GOSUB Replacedotchar: GOSUB Clearline: GOSUB Cleardotarea -Fortune = 200: GOSUB Tallydotpnts: GOSUB Gamedotstatus -RETURN - -Gemdotroutine: -LOCATE 30, 20: PRINT "You have found a valuable gem!!"; : GOSUB Displaydotman -SLEEP 2: GOSUB Replacedotchar: GOSUB Clearline: GOSUB Cleardotarea -Fortune = 400: GOSUB Tallydotpnts: GOSUB Gamedotstatus -RETURN - -Ringdotglow: -IF Glow THEN PUT (RingdotX, RingdotY), Diamond2%, PSET: Glow = 0 -IF RIGHT$(TIME$, 2) < "01" THEN RETURN -Glow = 1 -IF Glow THEN PUT (RingdotX, RingdotY), Diamond%, PSET: Glow = 0 -IF RIGHT$(TIME$, 2) < "02" THEN RETURN -TIME$ = "00:00:00": Glow = 1 -RETURN - -Replacedotchar: -IF T$ = "D" THEN Sx = Svsx: Sy = Svsy: GOSUB Cleardotarea -Showy = SMy: Showx = SMx -Sx = X: Sy = Y: SMy = MatrixY: SMx = MatrixX -IF (T$ <> "r" AND T$ <> "g") THEN GOSUB Recalldotolddotposition: GOSUB Displaydotman -IF T$ = "D" THEN SMy = Showy: SMx = Showx -MID$(Maze$(SMy), SMx, 1) = CHR$(32) -RETURN - -Displaydotman: -PUT (X, Y), Player%, PSET: RETURN - -Recalldotolddotposition: -X = Oldx: Y = Oldy: FOR A = 1 TO 64 -Barrier = 1 * (T$ = "D" AND Unl AND Rm = A AND Keyfl(Rm)) -IF Barrier THEN A = 1: RETURN -NEXT - -Oldpl: -MatrixX = Matrixxdotold: MatrixY = Matrixydotold -RETURN - -Keyfound: -FOR A = 1 TO 64 -Keyfl(Rm) = ABS(1 * (Rm = A)): Unl = 1 -IF Keyfl(Rm) AND Unl THEN A = 1: GOTO Keymes -NEXT - -Keymes: -COLOR 15: LOCATE 30, 9: PRINT "You have found the key. "; -PRINT "Use it to unlock the door in this room."; : -GOSUB Replacedotchar: GOSUB Cleardotarea -SLEEP 3: GOSUB Clearline: Keys = Keys + 1: GOSUB Gamedotstatus: RETURN - -Doordotroutine: -FOR A = 1 TO 64 -Kyfd = 1 * (Rm = A AND Keyfl(Rm)): IF Kyfd THEN A = 1: GOTO Available -NEXT: RETURN - -Available: -FOR A = 1 TO 64 -Clrkey = 1 * (Rm = A AND Keyfl(Rm)): IF Clrkey > 0 THEN Keyfl(Rm) = 0: A = 1: GOTO DOpen -NEXT - -DOpen: -GOSUB Displaydotman -LOCATE 30, 20: PRINT "Good Job! You have opened the door."; : SLEEP 3: -GOSUB Clearline: GOSUB Replacedotchar: Unl = 0 -Keys = Keys - 1: GOSUB Gamedotstatus -RETURN - -Openeddotchest: -COLOR 14: Tr = 1: LOCATE 29, 1: PRINT SPACE$(79); -LOCATE 30, 20: PRINT "You have found a treasure chest!"; -SLEEP 2: GOSUB Clearline -RANDOMIZE TIMER: Length = FIX(16 * RND(1)) + 1: RESTORE Makedotobj -N = FIX(50 * RND(1)) + 2 -FOR T = 1 TO Length: READ Object$(T): NEXT -L = LEN(Object$(Length)): O$ = MID$(Object$(Length), 3, L) - IF LEFT$(O$, 2) = "No" OR LEFT$(O$, 3) = "Wat" THEN - Message$ = "" - ELSE - Message$ = "a " - END IF - -LOCATE 30, 20: PRINT "It contains "; Message$; ""; O$; SPACE$(2); addon$; -SLEEP 2: GOSUB ObjectdotProperties: Message$ = "": addon$ = "" -O$ = "": Message$ = O$ -IF LO$ = "~" THEN GOSUB Clearline: LOCATE 30, 20: PRINT "There are " + STR$(N) + " of them."; : SLEEP 2 -GOSUB Gamedotstatus: Tr = 0: addon$ = "": GOSUB Clearline: GOSUB Cleardotarea -RETURN - -Clearline: -LOCATE 30, 1: PRINT SPACE$(79); : RETURN - -Hold: -H$ = INKEY$: IF H$ = "" THEN GOTO Hold -RETURN - -Escaped: -COLOR 15 -LINE (110, 190)-(510, 255), 10, BF: LINE (115, 200)-(500, 245), 14, BF -LINE (115, 200)-(500, 245), 1, B -LOCATE 14, 25: PRINT "Congratulations Adventurer!" -LOCATE 15, 19: PRINT "You have escaped from this maze for now.": SLEEP 4: SYSTEM - -'CopydotPlayer: -LINE (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), 0, BF -CIRCLE (CIX1 + 28, CIY1 + 35), 10, 15: PAINT (CIX1 + 28, CIY1 + 35), 15 -CIRCLE (CIX1 + 28, CIY1 + 35), 10, 6: CIRCLE (CIX1 + 28, CIY1 + 35), 9, 6 -FOR E = 1 TO 5: CIRCLE (CIX1 + 28, CIY1 + 35), E, 0: NEXT -CIRCLE (CIX1 + 28, CIY1 + 35), 1, 0 -GET (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), Player% -RETURN - -CopydotPlayer: -X1 = 20: Y1 = 40: c = 1 -CIRCLE (X1, Y1), 9, 6: PAINT (X1, Y1), 6: CIRCLE (X1, Y1), 10, 4 'Body -CIRCLE (X1 - 5, Y1 - 5), 3, 15: PAINT (X1 - 5, Y1 - 5), 15 'left eye -CIRCLE (X1 - 5, Y1 - 5), 3, c, -6.28, -3.14: PAINT (X1 - 5, Y1 - 6), c -CIRCLE (X1 - 5, Y1 - 5), 1, 0: PAINT (X1 - 5, Y1 - 5), 0 'outline -CIRCLE (X1 + 5, Y1 - 5), 3, 15: PAINT (X1 + 5, Y1 - 5), 15 'right eye -CIRCLE (X1 + 5, Y1 - 5), 3, c, -6.28, -3.14: PAINT (X1 + 5, Y1 - 6), c -CIRCLE (X1 + 5, Y1 - 5), 1, 0: PAINT (X1 + 5, Y1 - 5), 0 -CIRCLE (X1, Y1), 2, 4: PAINT (X1, Y1), 4: CIRCLE (X1, Y1), 3, 1 'nose -LINE (X1 - 2, Y1 + 5)-(X1 + 2, Y1 + 5), 5 'mouth(top) -LINE (X1 - 1, Y1 + 6)-(X1 + 1, Y1 + 6), 5 'mouth(bottom) -GET (X1 - 10, Y1 - 10)-(X1 + 10, Y1 + 10), Player% -GOSUB CopydotPlayerdeath -RETURN - -CopydotPlayerdeath: -X1 = 20: Y1 = 40: c = 4 -CIRCLE (X1, Y1), 9, 6: PAINT (X1, Y1), 6: CIRCLE (X1, Y1), 10, 4 'Body -CIRCLE (X1 - 5, Y1 - 5), 5, 15: PAINT (X1 - 5, Y1 - 5), 15 'left eye -CIRCLE (X1 - 5, Y1 - 5), 1, 0: PAINT (X1 - 5, Y1 - 5), 0 'outline -CIRCLE (X1 + 5, Y1 - 5), 5, 15: PAINT (X1 + 5, Y1 - 5), 15 'right eye -CIRCLE (X1 + 5, Y1 - 5), 1, 0: PAINT (X1 + 5, Y1 - 5), 0 -CIRCLE (X1, Y1), 2, 4: PAINT (X1, Y1), 4: CIRCLE (X1, Y1), 3, 1 'nose -LINE (X1 - 2, Y1 + 5)-(X1 + 2, Y1 + 5), 5 'mouth(top) -LINE (X1 - 1, Y1 + 6)-(X1 + 1, Y1 + 6), 5 'mouth(bottom) -CIRCLE (X1, Y1 + 6), 2, c, , , .32: PAINT (X1, Y1 + 6), c -CIRCLE (X1, Y1 + 6), 3, 1, , , .32 -GET (X1 - 10, Y1 - 10)-(X1 + 10, Y1 + 10), Playerdeath% -RETURN - -Copydotwall: -LINE (CIX1 + 11, CIY1 + 21)-(CIX1 + 34, CIY1 + 50), Wcs(Rm, 0), BF -LINE (CIX1 + 12, CIY1 + 20)-(CIX1 + 35, CIY1 + 51), Wcs(Rm, 1), B -LINE (CIX1 + 36, CIY1 + 20)-(CIX1 + 36, CIY1 + 50), 10 -FOR A = CIX1 + 12 TO CIX1 + 34 STEP 2: LINE (A, CIY1 + 21)-(A, CIY1 + 50), 6 -NEXT: LINE (CIX1 + 11, CIY1 + 50)-(CIX1 + 34, CIY1 + 50), 1 -LINE (CIX1 + 11, CIY1 + 21)-(CIX1 + 11, CIY1 + 50), 8 -'FOR A = CIY1 + 11 TO CIY1 + 50 STEP 2: LINE (CIX1 + 11, A)-(CIX1 + 35, A), 5: NEXT -GET (CIX1 + 11, CIY1 + 19)-(CIX1 + 36, CIY1 + 51), Wall% -RETURN - -Copydotwall2: -LINE (CIX1 + 11, CIY1 + 20)-(CIX1 + 34, CIY1 + 50), Wcs(Rm, 0), BF -LINE (CIX1 + 12, CIY1 + 19)-(CIX1 + 35, CIY1 + 51), Wcs(Rm, 1), B -LINE (CIX1 + 36, CIY1 + 19)-(CIX1 + 36, CIY1 + 50), 10 -FOR A = 0 TO 41 STEP 2 -LINE (CIX1 + 11, CIY1 + 20 + A)-(CIX1 + 33, CIY1 + A), 1: NEXT -GET (CIX1 + 11, CIY1 + 19)-(CIX1 + 42, CIY1 + 51), Wall2% -RETURN - -Copydotwall3: -WX = 26: WY = 32 -LINE (100, 75)-(100 + WX, 75 + WY), , B -T$ = T$ + CHR$(200) + CHR$(130) + CHR$(146) + CHR$(48) + CHR$(8) + CHR$(2) + CHR$(144) + CHR$(152) + CHR$(2) -PAINT (102, 76), T$ -LINE (100, 75)-(100 + WX, 75 + WY), 4, B -GET (100, 75)-(100 + WX, 75 + WY), Wall3% -RETURN - -CopydotCleardotObject: -LINE (CIX1 + 16, CIY1 + 50)-(CIX1 + 60, CIY1 + 80), 0, BF -GET (265, CIY1 + 20)-(290, CIY1 + 54), Clrobject% -RETURN - -CopydotDoor: -LINE (CIX1 + 11, CIY1 + 20)-(CIX1 + 36, CIY1 + 52), 6, BF -LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 12, BF -LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 12, BF -LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 0, B -LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 0, B -LINE (CIX1 + 10, CIY1 + 19)-(CIX1 + 37, CIY1 + 53), 1, B -LINE (CIX1 + 37, CIY1 + 20)-(CIX1 + 37, CIY1 + 52), 12 -CIRCLE (CIX1 + 34, CIY1 + 36), 2, 14: PAINT (CIX1 + 34, CIY1 + 36), 14 -CIRCLE (CIX1 + 34, CIY1 + 36), 2, 0 -GET (CIX1 + 11, CIY1 + 20)-(CIX1 + 40, CIY1 + 53), Door% -GOSUB CopydotEDoor -RETURN - -CopydotEDoor: -LINE (CIX1 + 11, CIY1 + 20)-(CIX1 + 36, CIY1 + 52), 13, BF -LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 2, BF -LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 2, BF -LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 0, B -LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 0, B -LINE (CIX1 + 10, CIY1 + 19)-(CIX1 + 37, CIY1 + 53), 1, B -LINE (CIX1 + 37, CIY1 + 20)-(CIX1 + 37, CIY1 + 52), 12 -CIRCLE (CIX1 + 34, CIY1 + 36), 2, 14: PAINT (CIX1 + 34, CIY1 + 36), 14 -CIRCLE (CIX1 + 34, CIY1 + 36), 2, 0 -GET (CIX1 + 11, CIY1 + 20)-(CIX1 + 40, CIY1 + 53), EDoor% -RETURN - -CopydotKeylock: -CIRCLE (CIX1 + 24, CIY1 + 35), 4, 7 -CIRCLE (CIX1 + 27, CIY1 + 40), 4, 7 -COLOR 4: LINE (CIX1 + 26, CIY1 + 39)-(CIX1 + 44, CIY1 + 21) -LINE (CIX1 + 26, CIY1 + 40)-(CIX1 + 44, CIY1 + 22) -COLOR 6: LINE (CIX1 + 34, CIY1 + 20)-(CIX1 + 39, CIY1 + 28) -LINE (CIX1 + 35, CIY1 + 20)-(CIX1 + 40, CIY1 + 28) -LINE (CIX1 + 35, CIY1 + 32)-(CIX1 + 31, CIY1 + 27) -GET (CIX1 + 15, CIY1 + 16)-(CIX1 + 39, CIY1 + 47), Keylock% -RETURN - -CopydotTreasure: -LINE (CIX1 + 16, CIY1 + 65)-(CIX1 + 35, CIY1 + 80), 14, B -LINE -(CIX1 + 40, CIY1 + 75), 14: LINE -(CIX1 + 40, CIY1 + 60), 14 -LINE -(CIX1 + 35, CIY1 + 65), 14 -LINE (CIX1 + 16, CIY1 + 65)-(CIX1 + 21, CIY1 + 60), 14 -LINE -(CIX1 + 40, CIY1 + 60), 14 -LINE (CIX1 + 17, CIY1 + 66)-(CIX1 + 34, CIY1 + 79), 6, BF -PAINT (CIX1 + 38, CIY1 + 68), 14 -LINE (CIX1 + 22, CIY1 + 60)-(CIX1 + 40, CIY1), 6, BF -LINE (CIX1 + 40, CIY1 + 60)-(CIX1 + 40, CIY1), 12 -LINE (CIX1 + 22, CIY1 + 50)-(CIX1 + 40, CIY1 + 50), 12 -GET (CIX1 + 16, CIY1 + 50)-(CIX1 + 40, CIY1 + 80), Treasure% -RETURN - -CopydotRing: -CIRCLE (CIX1 + 28, CIY1 + 35), 5, 15: CIRCLE (CIX1 + 28, CIY1 + 35), 6, 8 -CIRCLE (CIX1 + 28, CIY1 + 26), 3, 1: PAINT (CIX1 + 28, CIY1 + 26), 13, 1 -LINE (CIX1 + 26, CIY1 + 24)-(CIX1 + 30, CIY1 + 24), 11 -CIRCLE (CIX1 + 28, CIY1 + 26), 2, 1: CIRCLE (CIX1 + 28, CIY1 + 35), 4, 9 -GET (CIX1 + 15, CIY1 + 20)-(CIX1 + 38, CIY1 + 45), Diamond% -RETURN - -CopydotRing2: -CIRCLE (CIX1 + 28, CIY1 + 35), 5, 15: CIRCLE (CIX1 + 28, CIY1 + 35), 6, 8 -CIRCLE (CIX1 + 28, CIY1 + 26), 3, 12: PAINT (CIX1 + 28, CIY1 + 26), 13, 12 -LINE (CIX1 + 26, CIY1 + 24)-(CIX1 + 30, CIY1 + 24), 14 -CIRCLE (CIX1 + 28, CIY1 + 26), 2, 1: CIRCLE (CIX1 + 28, CIY1 + 35), 4, 9 -GET (CIX1 + 15, CIY1 + 20)-(CIX1 + 38, CIY1 + 47), Diamond2% -RETURN - -CopydotGem: -CIRCLE (CIX1 + 28, CIY1 + 35), 5, 10: 'CIRCLE (CIX1 + 28, CIY1 + 35), 10, 8 -CIRCLE (CIX1 + 28, CIY1 + 26), 2: PAINT (CIX1 + 28, CIY1 + 26), T$ -LINE (CIX1 + 26, CIY1 + 24)-(CIX1 + 30, CIY1 + 24), 1 -CIRCLE (CIX1 + 28, CIY1 + 35), 4, 9 -GET (CIX1 + 15, CIY1 + 20)-(CIX1 + 38, CIY1 + 45), Gem% -RETURN - -CopydotSpider: -CIRCLE (CIX1 + 28, CIY1 + 27), 3, 8: PAINT (CIX1 + 28, CIY1 + 27), 8 -CIRCLE (CIX1 + 28, CIY1 + 20), 6, 8: PAINT (CIX1 + 28, CIY1 + 20), 8 -CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0 -LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 30), 7: LINE -(CIX1 + 22, CIY1 + 33), 7 -LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 30), 7: LINE -(CIX1 + 34, CIY1 + 33), 7 -LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7 -LINE (CIX1 + 23, CIY1 + 16)-(CIX1 + 18, CIY1 + 21), 7 -LINE -(CIX1 + 18, CIY1 + 23), 7 -LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7 -LINE (CIX1 + 33, CIY1 + 16)-(CIX1 + 38, CIY1 + 21), 7 -LINE -(CIX1 + 38, CIY1 + 23), 7 -LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4 -LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4 -GET (CIX1 + 15, CIY1 + 10)-(CIX1 + 42, CIY1 + 40), Spider% -GOSUB CopydotSpiderfr2 -RETURN - -CopydotSpiderfr2: -CLS -CIRCLE (CIX1 + 28, CIY1 + 27), 5, 8: PAINT (CIX1 + 28, CIY1 + 27), 8 -CIRCLE (CIX1 + 28, CIY1 + 20), 6, 8: PAINT (CIX1 + 28, CIY1 + 20), 8 -CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0 -LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 20), 7: LINE -(CIX1 + 17, CIY1 + 24), 7 -LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 20), 7: LINE -(CIX1 + 40, CIY1 + 25), 7 -LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 22, CIY1 + 30), 7: LINE -(CIX1 + 24, CIY1 + 33), 7 -LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 34, CIY1 + 30), 7: LINE -(CIX1 + 32, CIY1 + 33), 7 -LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4 -LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4 -GET (CIX1 + 14, CIY1 + 10)-(CIX1 + 44, CIY1 + 40), Spiderfr2% -RETURN - -CopydotSpider2: -CIRCLE (CIX1 + 28, CIY1 + 27), 3, 10: PAINT (CIX1 + 28, CIY1 + 27), 10 -CIRCLE (CIX1 + 28, CIY1 + 20), 6, 10: PAINT (CIX1 + 28, CIY1 + 20), 10 -CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0 -LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 30), 7: LINE -(CIX1 + 22, CIY1 + 33), 7 -LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 30), 7: LINE -(CIX1 + 34, CIY1 + 33), 7 -LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7 -LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7 -LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7 -LINE (CIX1 + 23, CIY1 + 16)-(CIX1 + 18, CIY1 + 21), 7 -LINE -(CIX1 + 18, CIY1 + 23), 7 -LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7 -LINE (CIX1 + 33, CIY1 + 16)-(CIX1 + 38, CIY1 + 21), 7 -LINE -(CIX1 + 38, CIY1 + 23), 7 -LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4 -LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4 -GET (CIX1 + 15, CIY1 + 10)-(CIX1 + 43, CIY1 + 40), Spider2% -GOSUB CopydotSpiderpfr2 -RETURN - -CopydotSpiderpfr2: -CLS -CIRCLE (CIX1 + 28, CIY1 + 27), 3, 10: PAINT (CIX1 + 28, CIY1 + 27), 10 -CIRCLE (CIX1 + 28, CIY1 + 20), 6, 10: PAINT (CIX1 + 28, CIY1 + 20), 10 -CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0 -LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 20), 7: LINE -(CIX1 + 17, CIY1 + 24), 7 -LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 20), 7: LINE -(CIX1 + 40, CIY1 + 25), 7 -LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7 -LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7 -LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7 -LINE (CIX1 + 23, CIY1 + 16)-(CIX1 + 18, CIY1 + 21), 7 -LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 23, CIY1 + 30), 7 -LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 34, CIY1 + 30), 7 -LINE (CIX1 + 33, CIY1 + 16)-(CIX1 + 38, CIY1 + 21), 7 -LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4 -LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4 -GET (CIX1 + 15, CIY1 + 10)-(CIX1 + 42, CIY1 + 40), Spiderpfr2% -RETURN - -CopydotWeb: -T$ = CHR$(200) + CHR$(130) + CHR$(146) + CHR$(48) + CHR$(8) + CHR$(2) + CHR$(144) + CHR$(152) + CHR$(2) -LINE (CIX1 + 8, CIY1 + 15)-(CIX1 + 35, CIY1 + 25), 1, B -PAINT (CIX1 + 8, CIY1 + 15), T$ -LINE (CIX1 + 31, CIY1 + 15)-(CIX1 + 35, CIY1 + 30), 8 -GET (CIX1 + 8, CIY1 + 15)-(CIX1 + 36, CIY1 + 25), Web% -RETURN - -CopydotSpike: -X1 = 10: Y1 = 15: CLS -LINE (X1, Y1)-(X1 + 5, Y1 - 10), 7: LINE -(X1 + 10, Y1), 7 -LINE -(X1, Y1), 7: PAINT (X1 + 5, Y1 - 5), 7 -LINE (X1 - 1, Y1)-(X1 + 4, Y1 - 10), 14 -LINE (X1 - 1, Y1 + 1)-(X1 + 10, Y1 + 12), 7, BF -LINE (X1 - 1, Y1 + 1)-(X1 - 1, Y1 + 12), 14, BF -CIRCLE (X1 + 12, Y1 + 6), 5, 0: PAINT (X1 + 10, Y1 + 6), 0 -LINE (X1 + 5, Y1 - 11)-(X1 + 5, Y1 - 10), 14, BF -GET (X1 - 5, Y1 - 12)-(X1 + 12, Y1 + 12), Spike% -RETURN - -ObjectdotProperties: -LO$ = MID$(Object$(Length), 1, 1): HL = INSTR(Object$(Length), "@") -IF LO$ = "!" THEN Health = Health + 25: Ob = Ob + 1 -IF LO$ = "$" THEN Fortune = Fortune + 20 -IF LO$ = "%" THEN Health = Health + 200 + (200 * (HL = 64)) -GOSUB Gamedotstatus: Objects = Objects + Ob: Ob = 0 -Tallydotpnts: -Score = Score + Fortune: Fortune = 0 -RETURN - -Cleardotobject: -PUT (Sx, Sy), Clrobject%, PSET: RETURN - -Cleardotplayer: -LINE (265, 145)-(345, 215), 0, BF -RETURN - -Cleardotman: -PUT (X, Y), Clrobject%, PSET: RETURN - -Cleardotarea: -LINE (Sx - 4, Sy)-(Sx + 23, Sy + 35), 0, BF -RETURN - -Placedotwall: -IF T$ = "@" THEN PUT (1 + SpacerX, 6 + SpacerY), Wall3%, PSET: GOTO Skipdotover -IF T$ = "%" THEN PUT (1 + SpacerX, 6 + SpacerY), Wall2%, PSET: GOTO Skipdotover -COLOR 2: PUT (1 + SpacerX, 6 + SpacerY), Wall%, PSET -Skipdotover: -SpacerX = SpacerX + 30: -RETURN - -Placedotdoor: -PUT (SpacerX, 36 + SpacerY - 36 + 6), Door% -SpacerX = SpacerX + 30 -RETURN - -PlacedotEdoor: -PUT (SpacerX, 36 + SpacerY - 36 + 6), EDoor% -SpacerX = SpacerX + 30 -RETURN - -Placedotkey: -PUT (SpacerX, 36 + SpacerY - 36 + 6), Keylock%, PSET -SpacerX = SpacerX + 30 -RETURN - -Placedotchest: -PUT (SpacerX, 36 + SpacerY - 36 + 6), Treasure%, PSET -SpacerX = SpacerX + 30 -RETURN - -Placedotring: -PUT (SpacerX, 36 + SpacerY - 36 + 6), Diamond%, PSET -SpacerX = SpacerX + 30 -RETURN - -Placedotgem: -PUT (SpacerX, 36 + SpacerY - 36 + 6), Gem%, PSET -SpacerX = SpacerX + 30 -RETURN - -Placedotweb: -PUT (SpacerX, 36 + SpacerY - 36 + 6), Web%, PSET -SpacerX = SpacerX + 30 -RETURN - -PlacedotSpike: -PUT (SpacerX + 5, SpacerY + 36), Spike%, PSET -SpacerX = SpacerX + 30 -RETURN - -Fin: -SCREEN 7: CLS : LOCATE 10, 15: PRINT "GAME": LOCATE 10, 20: PRINT "OVER" -IF slc <> 4 THEN LOCATE 13, 12: PRINT "SPACE - RESTART" -LOCATE 16, 15: PRINT "ESC - END" -WtdotKey: -T$ = INKEY$: IF T$ = "" THEN GOTO WtdotKey -IF T$ = CHR$(27) THEN CLS : SCREEN 0: PRINT "THANKS FOR PLAYING!": SYSTEM -IF slc <> 4 THEN IF INKEY$ = " " THEN GOTO Start -IF INKEY$ = "" THEN GOTO WtdotKey -GOTO WtdotKey - -Checkdotkey: -i$ = INKEY$ -SELECT CASE INKEY$ - CASE CHR$(27) - CLS : SYSTEM - CASE CHR$(32) - GOTO Start - -IF INKEY$ = "" THEN GOTO Checkdotkey -END SELECT -GOTO Checkdotkey - -RoomdotCheck: -CLS : L = 0: LL = 0: SpacerX = 0: SpacerY = 0: Adv = 0: Wm = 0: Wm2 = 0 -Eny = 0: Stringdotpnt = 0: Count = 0: EndotTally = 0 -StartdotA = (12 * Rm) - 11: FinishdotA = 12 * Rm -IF Y > 400 THEN Y = 4 -IF Y < 4 THEN Y = 400 - -Confirmdotrm: -GOSUB Copydotwall: GOSUB Cleardotplayer -FOR A = StartdotA TO FinishdotA: FOR B = 1 TO 20 'Height x Width -T$ = MID$(Maze$(A), B, 1) -IF T$ = " " OR T$ = "." OR T$ = "L" THEN GOSUB SkipdotX -IF T$ = "#" THEN GOSUB Placedotwall -IF T$ = "B" OR T$ = "S" OR T$ = "w" THEN GOSUB SkipdotX -IF T$ = "D" THEN GOSUB Placedotdoor -IF T$ = "E" THEN GOSUB PlacedotEdoor -IF T$ = "W" THEN GOSUB Placedotweb -IF T$ = "g" THEN GOSUB Placedotgem -IF T$ = "k" THEN GOSUB Placedotkey -IF T$ = "r" THEN GOSUB Placedotring -IF T$ = "s" THEN GOSUB PlacedotSpike -IF T$ = "t" THEN GOSUB Placedotchest -NEXT B: SpacerX = 0: SpacerY = SpacerY + 36: NEXT A: GOSUB Displaydotman -T = 0: L = 0: SpacerX = 0: SpacerY = 0 -IF Rm = 0 OR Rm = 33 OR Rm = 64 THEN Adv = 500 -IF Rm = 1 OR Rm = 5 OR Rm = 9 OR Rm = 17 OR Rm = 18 OR Rm = 19 THEN Adv = 300 -IF Rm = 7 OR Rm = 8 OR Rm = 12 OR Rm = 16 OR Rm = 25 OR Rm = 28 THEN Adv = 400 -IF Rm = 29 OR Rm = 31 OR Rm = 35 OR Rm = 39 OR Rm = 40 OR Rm = 41 THEN Adv = 500 -IF Rm = 6 OR Rm = 10 OR Rm = 15 OR Rm = 20 OR Rm = 30 THEN Adv = 450 -IF Rm = 42 OR Rm = 43 OR Rm = 44 THEN Adv = 450 -IF Rm = 45 OR Rm = 46 OR Rm = 47 OR Rm = 54 OR Rm = 53 OR Rm = 55 THEN Adv = 500 -IF Rm = 60 OR Rm = 61 OR Rm = 62 THEN Adv = 500 -r = StartdotA: B = 1: GOSUB Gamedotstatus: RETURN - -Gamedotstatus: -COLOR 2: LOCATE 29, 5: PRINT "LIVES:"; : COLOR 15: PRINT Lives; -COLOR 2: PRINT SPACE$(4); "SCORE:"; : COLOR 15: PRINT Score; -COLOR 2: PRINT SPACE$(5); "WEAPONS:"; : COLOR 15: PRINT Objects; -COLOR 2: PRINT SPACE$(4); "HEALTH: "; : COLOR 15: PRINT Health; -COLOR 2: PRINT SPACE$(4); "KEYS:"; : COLOR 15: PRINT Keys; -RETURN - -Titledotscr: -SCREEN 12: CLS -W = (600 / 4) + 50: H = (400 / 4) + 40: CL = 1: Dmx = 1: Dmy = 1 -CIX1 = 106: CIY1 = 279: Spx = 60: Spy = 243 -SpacerX = Spx: SpacerY = Spy -Demo = TRUE: Plx% = CIX1 - 12: Ply% = CIY1 + (36 * 2) - -Scandotmes: -COLOR 8: LOCATE 1, 1: -IF (T < 1 OR T > 0) THEN PRINT M1$ -FOR A = 0 TO 133: FOR B = 0 TO 15 - -Rand: -RANDOMIZE TIMER -c = FIX(15 * RND(1)): IF c = 8 THEN GOTO Rand -cx = W - 190 + A * 5: cy = H + 20 + (B * 5) - 80 -Pt = POINT(A, B) -IF Pt = 8 AND T < 1 THEN GOSUB CircdotFont: GOTO SkipdotPt -IF Pt = 8 AND T > 0 THEN GOSUB Message - -SkipdotPt: -NEXT B, A: ht = CSRLIN - 1: LOCATE ht, 1: PRINT SPACE$(16) -T = T + 1: M1$ = "ANY KEY TO START" -IF T < 2 THEN GOTO Scandotmes -GOSUB Drawdotwall: PUT (Plx%, Ply%), Player%, PSET: A = 0: B = A: M = 5: -Aax = 30: BBx = 36: Playdotdemo = TRUE -LOCATE 10, 25: PRINT "Version 2.1: Trapped Forever" - -Checkdotpress: -GOSUB Spiderdotroutine: GOSUB Ringdotglow: IF Playdotdemo THEN GOSUB Demodotroutine -IF INKEY$ = "" THEN GOTO Checkdotpress -CIX1 = 275: CIY1 = 145: CL = 0: Web = 5: Demo = FALSE -RingdotX = 0: RingdotY = 0: RETURN - -Demodotroutine: -IF A = (30 * 3) THEN GOSUB Listdotmes -IF A = (30 * 5) THEN GOSUB Listdotmes2 -IF A = (30 * 9) AND NOT (Unlockeddotdoor) AND Tr < 1 THEN GOSUB Listdotmes3 -IF A = (30 * 12) AND Unlockeddotdoor < 1 AND Tr < 1 THEN GOSUB Listdotmes4: Unlockeddotdoor = TRUE -PUT (Plx% + A, Ply% - B), Player%, PSET -FOR H = 1 TO 1000: NEXT -PUT (Plx% + A, Ply% - B), Player% -IF (A < 30 * 12) THEN A = A + Aax -IF (A <= (30 * 9)) AND Tr THEN GOSUB Plotdotdemdotplr: GOSUB Listdotmes5: Playdotdemo = FALSE: RETURN -IF (A > (30 * 10) AND Tr) THEN A = A + Aax - -IF Unlockeddotdoor AND NOT (Tr) THEN B = B + BBx: IF B >= (36 * 2) THEN GOSUB Plotdotdemdotplr: Aax = -30: Tr = 1: Unlockeddotdoor = FALSE: SLEEP 1 -Null: -RETURN - -Plotdotdemdotplr: -PUT (Plx% + A, Ply% - B), Player%, PSET: RETURN - -Listdotmes: -GOSUB Plotdotdemdotplr: GOSUB Dmes1: RETURN - -Listdotmes2: -GOSUB Plotdotdemdotplr: GOSUB Dmes2: RETURN - -Listdotmes3: -GOSUB Plotdotdemdotplr: GOSUB Dmes3: RETURN - -Listdotmes4: -GOSUB Plotdotdemdotplr: GOSUB Dmes4: RETURN - -Listdotmes5: -GOSUB Plotdotdemdotplr: GOSUB Dmes5: RETURN - -Dmes1: -A$ = "Avoid getting bit by the hanging spiders.": L = (80 - LEN(A$)) * .5 -A$(2) = "and don't touch the flashing electric pulses." -COLOR 15: LOCATE 12, L: PRINT A$ -L2 = (80 - LEN(A$(2))) * .5: COLOR 15: LOCATE 14, L2: PRINT A$(2): SLEEP 6 -LOCATE 12, L: PRINT SPACE$(LEN(A$)): -LOCATE 14, L2: PRINT SPACE$(LEN(A$(2))) -RETURN - -Dmes2: -LINE (Plx% + A - 4, Ply%)-(Plx% + A + 23, Ply% + 35), 0, BF -PUT (Plx% + A, Ply%), Player% -A$ = "Only the key you see in the same room as the door." -A$(2) = "will unlock that door." -L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$ -L2 = (80 - LEN(A$(2))) * .5: COLOR 15: LOCATE 14, L2: PRINT A$(2): SLEEP 6 -LOCATE 12, L: PRINT SPACE$(LEN(A$)) -LOCATE 14, L2: PRINT SPACE$(LEN(A$(2))) -RETURN - -Dmes3: -A$ = "Collect rings, gems and treasures on your journey." -L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$: SLEEP 6 -LOCATE 12, L: PRINT SPACE$(LEN(A$)): RETURN - -Dmes4: -A$ = "Now open the door with the key you found." -L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$: SLEEP 6 -LOCATE 12, L: PRINT SPACE$(LEN(A$)): -LINE (Plx% + A - 4, (Ply%) - 36)-(Plx% + A + 23, (Ply% + 35) - 36), 0, BF -RETURN - -Dmes5: -A$ = "Search for items and health potions in the treasure chests." -L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$: SLEEP 6 -LOCATE 12, L: PRINT SPACE$(LEN(A$)): -RETURN - -CircdotFont: -CIRCLE (cx, cy), 3, c: PAINT (cx, cy), c: CIRCLE (cx, cy), 1, 14 -PSET (cx, cy), 0 -RETURN - -Message: -msx = W - 80 + A * 3: msy = H + 280 + B * 2 -CIRCLE (msx, msy), 2, CL -Inc = Inc + 1: IF FIX(Inc / 45) = Inc / 45 THEN CL = CL + 1 -IF CL = 8 THEN CL = CL + 1 -RETURN - -Drawdotwall: -GOSUB Demodotmaze: FOR A = 1 TO 5: FOR L = 1 TO 15 -S$ = MID$(A$(A), L, 1) -IF S$ = "#" THEN PUT (SpacerX, SpacerY), Wall%, PSET -IF S$ = "t" THEN PUT (SpacerX, SpacerY), Treasure%, PSET -IF S$ = "D" THEN PUT (SpacerX, SpacerY), Door%, PSET -IF S$ = "k" THEN PUT (SpacerX, SpacerY), Keylock%, PSET -IF S$ = "r" THEN RingdotX = SpacerX: RingdotY = SpacerY: PUT (SpacerX, SpacerY), Diamond%, PSET -IF S$ = "g" THEN PUT (SpacerX, SpacerY), Gem%, PSET -IF S$ = "W" THEN PUT (SpacerX, SpacerY), Web%, PSET -IF (S$ = "B" OR S$ = "S") THEN Spx = SpacerX: Spy = SpacerY - 6: GOSUB Spiderdotroutine -SpacerX = SpacerX + 30 -NEXT L: SpacerX = 60: SpacerY = SpacerY + 36: NEXT A -SpacerX = 60: SpacerY = 0 -RETURN - -Menulist: -CLS : Ky$(1) = "ARROW KEYS IN USE": Ky$(2) = "NUMPAD IN USE" + SPACE$(4) -Pntr = 190: SvspX = Spx: SvspY = Spy: slc = 1 -Indent = 30: Dnx = 182: Bot = 410 -'LINE (120, 100)-(490, 320), 7, BF -FOR O = 120 TO 490 STEP 2.1: LINE (O, 100)-(O, Bot), 8: NEXT -LINE (120 + Indent, 100 + Indent)-(490 - Indent, Bot - Indent), 7, BF -LINE (120 + Indent + 10, 100 + Indent + 10)-(490 - Indent - 10, Bot - Indent - 10), 0, BF -LINE (120 + Indent, 100 + Indent)-(490 - Indent, 320 - Indent), 14, B -LINE (120 + Indent + 1, 100 + Indent + 1)-(490 - Indent - 1, Bot - Indent - 1), 4, B -CIRCLE (190, 182), 6, 4: PAINT (190, 182), 4: CIRCLE (190, 182), 7, 14 - -Options: -COLOR 14 -LOCATE 10, 26: PRINT "Use SPACE-BAR to select": COLOR 9 -LOCATE 12, 28: PRINT "HELP (Game tips)" -LOCATE 14, 28: PRINT "GAME SPEED" -LOCATE 16, 28: PRINT Ky$(Kytapfl + 1) -LOCATE 18, 28: PRINT "ABORT THE GAME" -'LINE (120 + Indent + 10, 262 + Indent)-(490 - Indent - 10, Bot - Indent - 10), 15, BF -FOR O = 120 + Indent + 10 TO 490 - Indent - 10 STEP 2 -LINE (O, 262 + Indent)-(O, Bot - Indent - 10), 15: NEXT -COLOR 5: LOCATE 22, 26: PRINT "Press ESC to return to game" - -OptiondotSel: -T$ = INKEY$: IF T$ = "" THEN GOTO OptiondotSel -IF T$ = CHR$(0) + "P" THEN GOSUB ErasedotPntr: Dnx = Dnx + 30: IF Dnx > 272 THEN Dnx = 272 -IF T$ = CHR$(0) + "H" THEN GOSUB ErasedotPntr: Dnx = Dnx - 30: IF Dnx < 182 THEN Dnx = 182 -IF T$ = CHR$(27) THEN GOSUB RoomdotCheck: Spx = SvspX: Spy = SvspY: RETURN - IF T$ = CHR$(32) THEN - IF slc = 1 THEN - GOSUB Helpdotscr: GOTO Menulist - ELSE - IF slc = 2 THEN - T$ = "": GOSUB Alterdotdelay: GOTO Menulist - ELSE - IF slc = 3 THEN - Kytapfl = Kytapfl + 1: IF Kytapfl > 1 THEN Kytapfl = 0 - Actiondotkey = (Kytapfl) - GOTO Options - ELSE - IF slc = 4 THEN - CLS : GOTO Fin - END IF - END IF - END IF - END IF - END IF -GOSUB MovedotPntr -GOTO OptiondotSel - -MovedotPntr: -slc = INT(Dnx / 30) - 5 -CIRCLE (190, Dnx), 6, 4: PAINT (190, Dnx), 4: CIRCLE (190, Dnx), 7, 14 -RETURN - -ErasedotPntr: -IF Dnx >= 182 OR Dnx <= 242 THEN CIRCLE (190, Dnx), 7, 0: PAINT (190, Dnx), 0 -RETURN - -Helpdotscr: -CLS : Far = 600: LINE (0, 0)-(Far, 478), 15, BF -LINE (40, 0)-(40, 478), 12, B: c = 0 -FOR E = 0 TO 478 STEP 15.2: LINE (0, E)-(Far, E), 3: NEXT -CIRCLE (15, 10), 7, c: PAINT (16, 11), c -CIRCLE (15, 140), 7, c: PAINT (16, 141), c: CIRCLE (15, 270), 7, c -PAINT (16, 271), c: CIRCLE (15, 400), 7, c: PAINT (16, 401), c -COLOR 6: LOCATE 5, 17: PRINT "You must navigate through a 64-room maze," -LOCATE 7, 17: PRINT "all while avoiding dangling spiders, electric shocks" -LOCATE 9, 17: PRINT "and large knives that move up from the floor." -LOCATE 12, 17: PRINT "A word of advice: Time yourself when passing beyond" -LOCATE 14, 17: PRINT "spiders, electric shocks and moving knives." -LOCATE 17, 17: PRINT "Also make a hand-made map of the maze as you start" -LOCATE 19, 17: PRINT "advancing further and further into the labyrinth." -LOCATE 21, 17: PRINT "Finally, take advantage of the treasure chests and" -LOCATE 23, 17: PRINT "the helpful items inside." -COLOR 2: LOCATE 26, 23: PRINT "PRESS SPACE-BAR TO RETURN TO MENU" -Holddothelp: -T$ = INKEY$: IF T$ = "" THEN GOTO Holddothelp -IF T$ = CHR$(32) THEN RETURN -GOTO Holddothelp - - -Demodotmaze: -A$(1) = "###############" -A$(2) = "# r t #" -A$(3) = "####W########D#" -A$(4) = "# S k g #" -A$(5) = "###############" -RETURN - -Alterdotdelay: -SCREEN 12: CLS -LINE (0, 0)-(600, 300), 8, BF: LINE (0, 301)-(600, 315), 4, BF -FOR L = 2 TO 598 STEP 2.8: LINE (L, 302)-(L, 314), 1: NEXT -FOR L = 1 TO 598 STEP 2.36: LINE (L, 1)-(L, 298), 7: NEXT -CPU = 106: T = 1: c = 1 -COLOR 15: LOCATE 10, 22: PRINT "GAME DELAY PERFORMANCE METER" -COLOR 2: LOCATE 22, 2: PRINT "USE THE LEFT & RIGHT ARROW KEYS TO SET A DELAY CHANNEL "; -PRINT "FOR THIS GAME." -LOCATE 23, 2: PRINT "YOU WILL THEN SEE A NUMERICAL COUNTER INCREMENTING "; -PRINT "OR DECREMENTING." -LOCATE 24, 2: PRINT "WHEN YOU HAVE THE DELAY YOU NEED, PRESS THE "; -COLOR 14: PRINT "SPACE BAR "; : COLOR 2: PRINT "TO EXIT." -LOCATE 25, 2: PRINT "USE CHANNEL "; : COLOR 14: PRINT "0 "; -COLOR 2: PRINT "FOR FASTEST SPEED." -LINE (94, 100 + 80 - 6)-(456, 150 + 80 + 6), 0, B -LINE (95, 100 + 80 - 5)-(455, 150 + 80 + 5), 9, BF -LINE (100, 100 + 80)-(450, 150 + 80), 14, BF -LINE (107, 190)-(107, 220), 6, BF -'Counter -LINE (240, 245)-(300, 290), 0, BF: LINE (239, 244)-(301, 291), 15, B -LINE (241, 246)-(299, 289), 6, B: LINE (243, 246)-(298, 288), 6, B -GOSUB Cntr - -Pskey: -i$ = INKEY$: IF i$ = "" THEN GOTO Pskey -IF i$ = CHR$(0) + "M" THEN Flg = 1: T = 1: SL = 6: GOSUB DrwMtr: GOSUB Cntr: CPU = CPU + T: IF CPU > 443 THEN CPU = 443 -IF i$ = CHR$(0) + "K" THEN T = -1: SL = 14: GOSUB DrwMtr: CPU = CPU + T: GOSUB DrwMtr: GOSUB Cntr: IF CPU < 105 THEN CPU = 105 -IF i$ = CHR$(27) THEN GOTO BegdotGame -IF i$ = CHR$(32) THEN RETURN -GOTO Pskey - -Cntr: -c = c + T -IF c < 1 THEN c = 1: Flg = 0 -IF c > 340 THEN c = 340 -COLOR 7: LOCATE 17, 32: PRINT c - 1; -RETURN - -BegdotGame: -IF c - 1 < 2 THEN Flg = 0: CPU = 0 -RETURN - -DrwMtr: -LINE (CPU, 190)-(CPU, 220), SL, BF -RETURN - -Builddotmazes: -'M:1 Maze 1 -Maze$(1) = "######W#W#W#########" -Maze$(2) = "#t### S B S #####" -Maze$(3) = "#t# # # ###### LL#" -Maze$(4) = "#t# # # ###### ###W#" -Maze$(5) = "#t# # # # S." -Maze$(6) = "#r# # # # # ###W####" -Maze$(7) = "#g#t# # # # SLk ." -Maze$(8) = "#t# # # # ##########" -Maze$(9) = "# # # # # # # ." -Maze$(10) = "# W # # # ########W#" -Maze$(11) = "# B D # # B." -Maze$(12) = "#######.############" - -'M:9 Maze 2 -Maze$(13) = "#######.############" -Maze$(14) = "#t # # ####W#W###W#" -Maze$(15) = "#r # # # # B B ttS." -Maze$(16) = "#r # # # ##W#######" -Maze$(17) = "# # # # #kB ." -Maze$(18) = "# # # # ##########" -Maze$(19) = "# # # # ." -Maze$(20) = "# # # #######W####" -Maze$(21) = "# # # D #rB ." -Maze$(22) = "# # # #### #######" -Maze$(23) = "# # # # ." -Maze$(24) = "#.##.##.######.#####" - -'M:17 -Maze$(25) = "#.##.##.######.#W###" -Maze$(26) = "# # # #gtrr Brk#" -Maze$(27) = "# # # ############" -Maze$(28) = "# # # ." -Maze$(29) = "# # ##############" -Maze$(30) = "# # #" -Maze$(31) = "# #####D######### #" -Maze$(32) = "# ####W W# ## #" -Maze$(33) = "# ##ttBgBt# ## #" -Maze$(34) = "# ################ #" -Maze$(35) = "# # ." -Maze$(36) = "#.#.################" - -'M:25 -Maze$(37) = "#.#.################" -Maze$(38) = "# ." -Maze$(39) = "# ##################" -Maze$(40) = "# ." -Maze$(41) = "# ################W#" -Maze$(42) = "# B." -Maze$(43) = "##W###W#############" -Maze$(44) = "#tBtttB tt # ." -Maze$(45) = "#rB r B # ####" -Maze$(46) = "#######D##.W### ##W#" -Maze$(47) = "# rr # # B # #kB." -Maze$(48) = "##..###.##.## #.####" - -'M:33 -Maze$(49) = "##..###.##.## #.####" -Maze$(50) = "# # # # k# ." -Maze$(51) = "#W# ### ###W###W####" -Maze$(52) = "#B B B ." -Maze$(53) = "# ##### ##### # ####" -Maze$(54) = "# # # # # # # #" -Maze$(55) = "# # # # r # # #" -Maze$(56) = "# # # # # # # #" -Maze$(57) = "# # # W#### # # #" -Maze$(58) = "# # # B # # #" -Maze$(59) = "#D# # ##### # # #" -Maze$(60) = "#.#####.#####.#.####" - -'M:41 -Maze$(61) = "#.#####.#####.#.####" -Maze$(62) = "# # # # # W## #" -Maze$(63) = "# # t # # # Bk# #" -Maze$(64) = "# # # # ##### #" -Maze$(65) = "# # # # ######## #" -Maze$(66) = "# # r # # # # #" -Maze$(67) = "# # # # # rrr # #" -Maze$(68) = "# # # # # # #" -Maze$(69) = "# # # # ttt # #" -Maze$(70) = "# ############## #W#" -Maze$(71) = "# D B." -Maze$(72) = "####.###############" - -'M:49 -Maze$(73) = "####.#######W###W###" -Maze$(74) = "# # # # B B #" -Maze$(75) = "# # # # ### # #" -Maze$(76) = "# # # # # # # #" -Maze$(77) = "# # # # # # # #" -Maze$(78) = "# # ### # # # #r #" -Maze$(79) = "# # # # # # # #" -Maze$(80) = "# # # # # # # t#" -Maze$(81) = "# # k # # # # # #" -Maze$(82) = "# ##### # # # #W##" -Maze$(83) = "# #r# #D # B ." -Maze$(84) = "#####.#####.######.#" - -'M:57 -Maze$(85) = "#####.#####.######.#" -Maze$(86) = "# t# # # # # ." -Maze$(87) = "# # # # # ###" -Maze$(88) = "# ### ##### ##W#####" -Maze$(89) = "# #kB L ." -Maze$(90) = "# #######W##########" -Maze$(91) = "# B ." -Maze$(92) = "# ##################" -Maze$(93) = "# ## rr ggg ttt tt#." -Maze$(94) = "# #W ggg tt rr###" -Maze$(95) = "# DS g ggg ttt ttg #" -Maze$(96) = "####################" - -'M:2 -Maze$(97) = "####################" -Maze$(98) = "##WW##############W#" -Maze$(99) = "#kBS SD" -Maze$(100) = "###W #" -Maze$(101) = ". B ." -Maze$(102) = "#####W######W#######" -Maze$(103) = ". B B ttt# ." -Maze$(104) = "################## #" -Maze$(105) = ". #r # #" -Maze$(106) = "################.# #" -Maze$(107) = ". #" -Maze$(108) = "####################" - -'M:10 -Maze$(109) = "####################" -Maze$(110) = "###W#######W######W#" -Maze$(111) = ". B S S." -Maze$(112) = "########### ########" -Maze$(113) = ". # # ." -Maze$(114) = "######### # # #" -Maze$(115) = ". # #r# ###W#" -Maze$(116) = "####### # ### # B." -Maze$(117) = ". # # # #" -Maze$(118) = "##### # ######## #" -Maze$(119) = ". # # #" -Maze$(120) = "##.##.######.#######" - -'M:18 -Maze$(121) = "##.##.######.#####W#" -Maze$(122) = "#ggg# # ## # B." -Maze$(123) = "##W## # ## #####t#" -Maze$(124) = "D B # ##k# r ###" -Maze$(125) = "#### ## ### r r #" -Maze$(126) = "# ## ## ## ." -Maze$(127) = "# ## ## #########" -Maze$(128) = "# ## ## ." -Maze$(129) = "# # # # ##W## ##" -Maze$(130) = "####### # # #rB W#" -Maze$(131) = ". # # # #rB B." -Maze$(132) = "#######.###.#.######" - -'M:26 -Maze$(133) = "#######.###.#.####W#" -Maze$(134) = ". rr# ## # ttt#B." -Maze$(135) = "####### ## # rr # #" -Maze$(136) = ". rr# ## ###### #" -Maze$(137) = "###### ## # rrr t#" -Maze$(138) = ". # D## #### ###" -Maze$(139) = "# # # # #" -Maze$(140) = ". # #### ####W ###" -Maze$(141) = "#### ## # B #k#" -Maze$(142) = "#W#### ## # #####L#" -Maze$(143) = ".B ## # # #" -Maze$(144) = "#######.##.#.#####.#" - -'M:34 -Maze$(145) = "#######.##.#.#####.#" -Maze$(146) = ". # # #t# #" -Maze$(147) = "#######.#### # #t# #" -Maze$(148) = ". L # # #r# #" -Maze$(149) = "### ##WW#D# # # # #" -Maze$(150) = "# # # BB # B# # # #" -Maze$(151) = "# # # # # k# # # #" -Maze$(152) = "# # # ####### # # #" -Maze$(153) = "# # #t # # # ." -Maze$(154) = "# # #g # W##### # #" -Maze$(155) = "# # #g # B # #" -Maze$(156) = "###.####.#########.#" - -'M:42 -Maze$(157) = "###.####.#########.#" -Maze$(158) = "# # # # # # # #" -Maze$(159) = "# # # # # # # # # #" -Maze$(160) = "# # # #t # # # # # #" -Maze$(161) = "# # # # # # # # # #" -Maze$(162) = "# # # # r# # # # # #" -Maze$(163) = "# # # # # # # # # #" -Maze$(164) = "# # # # W## # # # #" -Maze$(165) = "# #k# # B # # #" -Maze$(166) = "#W###############W #" -Maze$(167) = ".B D B #" -Maze$(168) = "### ############.###" - -'M:50 -Maze$(169) = "###.############.###" -Maze$(170) = "# # # ## # #" -Maze$(171) = "# #L# ## # #" -Maze$(172) = "# # # ## ## #" -Maze$(173) = "# #k# #W ### #" -Maze$(174) = "# ### ## B ## ##W#" -Maze$(175) = "# ## ## # t#tB." -Maze$(176) = "# ## ## #L ## #" -Maze$(177) = "# ## ## #tt## #" -Maze$(178) = "## ## W#### L## #" -Maze$(179) = ".L # Brr tt##D#" -Maze$(180) = "##################.# " - -'M:58 -Maze$(181) = "#W################.#" -Maze$(182) = ".B # # #" -Maze$(183) = "# k############### #" -Maze$(184) = "#W# #" -Maze$(185) = ".B ############## #" -Maze$(186) = "### # #" -Maze$(187) = ". # # ##############" -Maze$(188) = "# # ##############W#" -Maze$(189) = ". # B." -Maze$(190) = "# ################W#" -Maze$(191) = "# BD" -Maze$(192) = "####################" - -'M:3 -Maze$(193) = "####################" -Maze$(194) = "####################" -Maze$(195) = ". #" -Maze$(196) = "######W###W#W## # ." -Maze$(197) = ". L S S Sk# # #" -Maze$(198) = "############### # #" -Maze$(199) = ". # # #" -Maze$(200) = "########### # # # #" -Maze$(201) = "#r r r # # # #" -Maze$(202) = "# g t # # # #" -Maze$(203) = "# # # #D#" -Maze$(204) = "########.####.#.##.#" - -'M:11 -Maze$(205) = "########.####.#.##.#" -Maze$(206) = "####### Lt # # # #" -Maze$(207) = ". # Lt L# # # #" -Maze$(208) = "#W### ####W## # # #" -Maze$(209) = ".SW B## # # #" -Maze$(210) = "#kBs######g## #r # #" -Maze$(211) = "######ggt# ## # # #" -Maze$(212) = ". #trt# ## # # #" -Maze$(213) = "#### #rrt# W# # r#D#" -Maze$(214) = "#tW# # W B# #### #" -Maze$(215) = "# B # BsS # #" -Maze$(216) = "####.##########.##.#" - -'M:19 -Maze$(217) = "####.##########.##.#" -Maze$(218) = ". # # # ." -Maze$(219) = "## # # ####WW#W# ###" -Maze$(220) = "## # # # D BBsB ." -Maze$(221) = "## # # # ##W########" -Maze$(222) = "## # # # #kBttL ttt#" -Maze$(223) = "## # # # # LLL LttL#" -Maze$(224) = ". # # # L ttLt#" -Maze$(225) = "### # # # L LLtL#" -Maze$(226) = "#r# # # # L L L#" -Maze$(227) = ". # # # #L L L ." -Maze$(228) = "#.####.#.###########" - -'M:27 -Maze$(229) = "#.####.#.##W#W######" -Maze$(230) = ". ### # #LStBt#rrr#" -Maze$(231) = "# # ## # LLLL# #" -Maze$(232) = "# # #### # r LWrr #" -Maze$(233) = "# # # #L r S #" -Maze$(234) = "# # # ###W L L#rrr#" -Maze$(235) = "# # # #ttB r # #" -Maze$(236) = "# # # # ######## ###" -Maze$(237) = "# # # # r g ## # ." -Maze$(238) = "# # # # r r t## # #" -Maze$(239) = "# # # # g t ## # #" -Maze$(240) = "#.#.#.##########.#.#" - -'M:35 -Maze$(241) = "#.#.#.##########.#.#" -Maze$(242) = "# #L# # # #" -Maze$(243) = "# #t# ####W##### # #" -Maze$(244) = "# #g# B #" -Maze$(245) = "# ##################" -Maze$(246) = "# ##############W###" -Maze$(247) = "# B #" -Maze$(248) = "##W############### #" -Maze$(249) = ". B rrLrrr k# #" -Maze$(250) = "###W############## #" -Maze$(251) = "# B D." -Maze$(252) = "##.#################" - -'M:43 -Maze$(253) = "##.#################" -Maze$(254) = "## ######W#W########" -Maze$(255) = "## # SsS ." -Maze$(256) = "## # ###W#########W#" -Maze$(257) = "## # #kgSs L S." -Maze$(258) = "## # ###############" -Maze$(259) = "## # ." -Maze$(260) = "## #################" -Maze$(261) = "## # sL L#" -Maze$(262) = "## # #W#####W##### #" -Maze$(263) = "## # DS Ss E## #" -Maze$(264) = "##.###############.#" - -'M:51 -Maze$(265) = "##.###########W###.#" -Maze$(266) = "## # S Ds#" -Maze$(267) = "## # ###############" -Maze$(268) = "## # ." -Maze$(269) = "## ##W#####W###### #" -Maze$(270) = "#W B B # #" -Maze$(271) = ".B # #####W##L # #" -Maze$(272) = "#### # B # L# #" -Maze$(273) = "# # #### #k# ##" -Maze$(274) = "# ttt # # # ### #W#" -Maze$(275) = "# # # #B." -Maze$(276) = "#######.# ########.#" - -'M:59 -Maze$(277) = "#######.# W#######.#" -Maze$(278) = "#kttt # # S r t g# #" -Maze$(279) = "# tt L# ########D# #" -Maze$(280) = "# ttt # #tttttttt# #" -Maze$(281) = "#L L # ########## #" -Maze$(282) = "# # #" -Maze$(283) = "###.##############W#" -Maze$(284) = "# W # B." -Maze$(285) = ". # B # #" -Maze$(286) = "####################" -Maze$(287) = ". ." -Maze$(288) = "####################" - -'M:4 -Maze$(289) = "####################" -Maze$(290) = "####################" -Maze$(291) = "#######W###W####WW##" -Maze$(292) = ". St# S BBk." -Maze$(293) = "# #W###### #########" -Maze$(294) = "# .B tttt LtLLtttt#" -Maze$(295) = "# #L ttt L ttttLtt." -Maze$(296) = "# # L L L LL LL L#" -Maze$(297) = "# #L L LL LL ." -Maze$(298) = "# #####W##########W#" -Maze$(299) = "# sS D B." -Maze$(300) = "#########.##########" - -'M:12 -Maze$(301) = "#########.##########" -Maze$(302) = "# # # ." -Maze$(303) = "# ####### # ########" -Maze$(304) = "# # ###W####" -Maze$(305) = "#L##### # # #ttS ." -Maze$(306) = "# # # # #####W##" -Maze$(307) = "# # ##### # # tt S ." -Maze$(308) = "#L# ###W# # # tt ###" -Maze$(309) = "# L sB# # # #" -Maze$(310) = "# ##### # # # rrrr #" -Maze$(311) = "#S k# #D# rrrr #" -Maze$(312) = "#.#######.#.########" - -'M:20 -Maze$(313) = "#.#######.#.#W######" -Maze$(314) = ". # # # Btttts." -Maze$(315) = "### # # # # #WW#####" -Maze$(316) = ". # # # # #D BBLLtt#" -Maze$(317) = "# # # # # # # Bt##W#" -Maze$(318) = "# # # # # # #LWW#kS." -Maze$(319) = "# # # # # # #LBS####" -Maze$(320) = "# # # # # # #ttttt #" -Maze$(321) = "# # # # # # # tttt #" -Maze$(322) = "# # # # # # # tttt #" -Maze$(323) = ". # # # # # # tttt #" -Maze$(324) = "#.#.#.###.#.######.#" - -'M:28 -Maze$(325) = "#.#.#.###.#.######.#" -Maze$(326) = "#L# # # # DrLrr#g#" -Maze$(327) = "# # #S# ### #rrr##W#" -Maze$(328) = "#L# ### #t# # Lr#kS." -Maze$(329) = "# # # W #t# #S L####" -Maze$(330) = "#L#r# B rt# #BBL #" -Maze$(331) = "#t# # ##### #Lttt###" -Maze$(332) = "##### # #LtLt# ." -Maze$(333) = ". g# # #####LtLt# #" -Maze$(334) = "####W # #tttLttLt# #" -Maze$(335) = "#tttB # #gLtttLtt# #" -Maze$(336) = "#######.##########.#" - -'M:36 -Maze$(337) = "#######.########W#.#" -Maze$(338) = "# r r # Ss #" -Maze$(339) = "# t # # ######W# #" -Maze$(340) = "#####W# # # Bs #" -Maze$(341) = "# B # # ###### #" -Maze$(342) = "# ####### # #ktgt# #" -Maze$(343) = "# # # #L Lt# #" -Maze$(344) = "# # # # #r L # #" -Maze$(345) = "# #W## # # #L # #" -Maze$(346) = "# sS # # # L # #" -Maze$(347) = ".###D# # # # L # #" -Maze$(348) = "####.# ####.####.#.#" - -'M:44 -Maze$(349) = "####.# ####.####.#.#" -Maze$(350) = "#W## # #gg# #tt# #r#" -Maze$(351) = ".Ss # #tt# #tt#####" -Maze$(352) = "#W#### #Lt# # ttL t#" -Maze$(353) = ".Bs #tt#k#L t #" -Maze$(354) = "#W######tt### BS #" -Maze$(355) = ".S###ttttL L tttt #" -Maze$(356) = "# ###tttt L tttt #" -Maze$(357) = "# ###rrrLr L rrr #" -Maze$(358) = "# #WW rrrr L L #" -Maze$(359) = "# DSBrrrLrrL rrrr #" -Maze$(360) = "#.##################" - -'M:52 -Maze$(361) = "#.W#################" -Maze$(362) = "# Ss ." -Maze$(363) = "####W#######D#####W#" -Maze$(364) = ".k# B tttttL # s B." -Maze$(365) = "###L LL L L # ### #" -Maze$(366) = "# LL Ltttt # ### #" -Maze$(367) = "# L L LL L L# # # #" -Maze$(368) = "#rrLL L ttttL# # # #" -Maze$(369) = "# rr rr L L# # # #" -Maze$(370) = "#W############ # # #" -Maze$(371) = ".Sss # #" -Maze$(372) = "##################.#" - -'M:60 -Maze$(373) = "################W#.#" -Maze$(374) = "# sB #" -Maze$(375) = "# ################L#" -Maze$(376) = "# #ttLL LL L LL L ." -Maze$(377) = "# #W##############W#" -Maze$(378) = "# sS sS." -Maze$(379) = "#W################W#" -Maze$(380) = ".B L B." -Maze$(381) = "####################" -Maze$(382) = "#W################W#" -Maze$(383) = ".S S." -Maze$(384) = "####################" - -'M:5 (5th row over) -Maze$(385) = "##################W#" -Maze$(386) = "##################S." -Maze$(387) = "####t t rrrrt##### #" -Maze$(388) = ". B L r LW## #" -Maze$(389) = "# B L B L #" -Maze$(390) = "############### W###" -Maze$(391) = ".#g g #sB#t#" -Maze$(392) = "############# ## # #" -Maze$(393) = ". L rr rr L# # #" -Maze$(394) = "################ # #" -Maze$(395) = ". L t ttk# D #" -Maze$(396) = "##################.#" - -'M:13 -Maze$(397) = "#W################.#" -Maze$(398) = ".B . #" -Maze$(399) = "################## #" -Maze$(400) = "#W##############W# #" -Maze$(401) = ".S B #" -Maze$(402) = "#W###############WD#" -Maze$(403) = ".B L L LL L L LL S #" -Maze$(404) = "# tttttt L ttLtt ###" -Maze$(405) = "#L LL rrrr rrL #k#" -Maze$(406) = "# rrLrr L rrrr L# #" -Maze$(407) = "# LL L L L L #L#" -Maze$(408) = "################.#.#" - -'M:21 -Maze$(409) = "#W##############.#.#" -Maze$(410) = ".Sk# ttttt LLt#D# #" -Maze$(411) = "####LLLLttttL##LL# #" -Maze$(412) = "#tttrrrLLLrrLrrL # #" -Maze$(413) = "##W#############W# #" -Maze$(414) = ". Ss sS #" -Maze$(415) = "# ################ #" -Maze$(416) = "# #LtLtt tttLL LL# #" -Maze$(417) = "# # LLL LLLLL L # #" -Maze$(418) = "# # ttttLLtttt L# #" -Maze$(419) = "# #L LLL LLL tL# #" -Maze$(420) = "#.#.##############.#" - -'M:29 -Maze$(421) = "#.#.##############.#" -Maze$(422) = "# # # #" -Maze$(423) = "# # ############ # #" -Maze$(424) = ". # # t# # #" -Maze$(425) = "#L# # ## ## tt# # #" -Maze$(426) = "# # # # ## #### # #" -Maze$(427) = "# # # # ## # # #" -Maze$(428) = ". # # # ## # ##W# #" -Maze$(429) = "### # # ## # # Ss #" -Maze$(430) = "# # # ## # # ##W#" -Maze$(431) = "# D # ## # # #kS#" -Maze$(432) = "#####.##.##.#.#.##.#" - -'M:37 -Maze$(433) = "#####.##.##.#.#.##.#" -Maze$(434) = "#rrt# # ## # # # #" -Maze$(435) = "#LrL# # ## # # #B #" -Maze$(436) = "#rr # # ## # # # #" -Maze$(437) = "# LL #D# ## # # # B#" -Maze$(438) = "# LLLL # ## # # # #" -Maze$(439) = "# tLt # ## # # #B #" -Maze$(440) = "#tLLLLL# ## # # # #" -Maze$(441) = "#tttLLL# ## # # # B#" -Maze$(442) = "#LL###L# ## # # # #" -Maze$(443) = "# t#k#t# ## # # # #" -Maze$(444) = "#.##.###.##.#.#.##.#" - -'M:45 -Maze$(445) = "#.##.###.##.#.#.##.#" -Maze$(446) = "# # # # ## # # # #" -Maze$(447) = "# # # # ## # # # #" -Maze$(448) = "# # # # ## # # # #" -Maze$(449) = "# # # # ## # # W# #" -Maze$(450) = "# # # # ## # # Ss #" -Maze$(451) = "#tt# # # ## # #### #" -Maze$(452) = "#tt# # # ## # #### #" -Maze$(453) = "#tt# # # ## # #### #" -Maze$(454) = "#tt# # # ## # #W## #" -Maze$(455) = "#tt# # # ##L# Ss #" -Maze$(456) = "####.###.##.######.#" - -'M:53 -Maze$(457) = "#W##.###.##.######.#" -Maze$(458) = ".Ss D #k # #rrrr #" -Maze$(459) = "#### # #### #rrt #" -Maze$(460) = ". # # tt #r#rr #" -Maze$(461) = "# # # L#r#tttt #" -Maze$(462) = "# # # tt #r#tttt #" -Maze$(463) = "# # # L #r#tttt #" -Maze$(464) = "# r# # tt #r#t L##W#" -Maze$(465) = "# r# #L L #r#ttt#rS." -Maze$(466) = "#r # # t L#W# ##W#" -Maze$(467) = "#r # # L sSs B." -Maze$(468) = "####.###############" - -'M:61 -Maze$(469) = "##W#.###############" -Maze$(470) = "#kB# ###############" -Maze$(471) = "#L # L L#" -Maze$(472) = ". ############### #" -Maze$(473) = "#W### tttL Lrrr # #" -Maze$(474) = ".Bs #Lttt LL ttt # #" -Maze$(475) = "#W# # tttL Lttt # #" -Maze$(476) = ".S# #L L LLL L # #" -Maze$(477) = "# # #L L L L L # #" -Maze$(478) = "# # #######WD###W# #" -Maze$(479) = ". # sS sS #" -Maze$(480) = "####################" - -'M:6 -Maze$(481) = "####################" -Maze$(482) = ". ########W#W#W#W###" -Maze$(483) = "# # D #ks B S S B #" -Maze$(484) = "# # # ############ #" -Maze$(485) = "# # # gLtgtttggg # #" -Maze$(486) = "# # # rttgrrggtt # #" -Maze$(487) = "# # # LgtggLttttg# #" -Maze$(488) = "# # # LtttLLtttr # #" -Maze$(489) = "# # # rttgLLgLttr# #" -Maze$(490) = "# # ############## #" -Maze$(491) = "# # # #" -Maze$(492) = "#.#.##############.#" - -'M:14 -Maze$(493) = "#.#.##W#W#W####W##D#" -Maze$(494) = "# # # B S S LS # #" -Maze$(495) = "# # # # # # t t# # #" -Maze$(496) = "# #L# # # #tLtL#L# #" -Maze$(497) = "# # # # # #LL t# # #" -Maze$(498) = "# # # # # #LL L# # #" -Maze$(499) = "# # # # # #tLLL# #L#" -Maze$(500) = "# # # # # #LLLL# # #" -Maze$(501) = "# #L# # # #LttL# # #" -Maze$(502) = "# # # # ##k s W # #" -Maze$(503) = "# # # # ## ### S # #" -Maze$(504) = "#.#.#.#.##.###.#.#.#" - -'M:22 -Maze$(505) = "#.#.#.#.##.###.#.#.#" -Maze$(506) = "# # # ###gggg L# # #" -Maze$(507) = "# # # #gggL ggg#k# #" -Maze$(508) = "# # #.#W########## #" -Maze$(509) = "# # S # #" -Maze$(510) = "# ##WL########## #D#" -Maze$(511) = "# # Ss #" -Maze$(512) = "# # ########W#####W#" -Maze$(513) = "# # #ttttLrrSrrrr S." -Maze$(514) = "# # #############WW#" -Maze$(515) = "# # s L BB." -Maze$(516) = "#.##.###############" - -'M:30 -Maze$(517) = "#.##.###############" -Maze$(518) = "# ##sD ." -Maze$(519) = "# #t#######W########" -Maze$(520) = "# #g# #r#ttB ." -Maze$(521) = "# # # #r############" -Maze$(522) = "# # # # #L ttLttt #" -Maze$(523) = "# # # # # tttttt ." -Maze$(524) = "#L# # # # L L rr L #" -Maze$(525) = "# # # # #B L #" -Maze$(526) = "# # # # #######W####" -Maze$(527) = "# # # # # Ssk ." -Maze$(528) = "#.#.#.#.#.##########" - -'M:38 -Maze$(529) = "#.W.#.#.#.W#########" -Maze$(530) = "# S # # Ss ." -Maze$(531) = "# # # # ########## #" -Maze$(532) = "# # # # #ttLtgL#k# ." -Maze$(533) = "# # # # #LtgLgt#L# #" -Maze$(534) = "# # # # # gttgL# # #" -Maze$(535) = "# # # # #LgLggL#L# #" -Maze$(536) = "# # # ### gtt t# # #" -Maze$(537) = "# # # ### LLL # # #" -Maze$(538) = "# # # #W#D#L t #L# #" -Maze$(539) = "# # # sS# # L # # #" -Maze$(540) = "#.#.#.#.#.######.#.#" - -'M:46 -Maze$(541) = "#.#.#.#.#.######.#.#" -Maze$(542) = "# # # # # #tttt# # #" -Maze$(543) = "# # # # #LL L# # #" -Maze$(544) = "# # # # WW## rt# # #" -Maze$(545) = "# # # # SSk#tLL# # #" -Maze$(546) = "# # # # ####LLL# # #" -Maze$(547) = "# # # ### tggt# # #" -Maze$(548) = "# # # # DLL ttr# # #" -Maze$(549) = "# # # # # gLgtg# # #" -Maze$(550) = "# # # # #LggLgt# # #" -Maze$(551) = "# # # # # gLLtg# #" -Maze$(552) = "#.#.#.#.############" - -'M:54 -Maze$(553) = "#.#.#.#.W########W##" -Maze$(554) = "# # # # Ss S ." -Maze$(555) = "# # # # ########## #" -Maze$(556) = "# # # # #LLtttttg# #" -Maze$(557) = "#L# # #L# LtLggt # #" -Maze$(558) = "# # # # #LLgttgLL# #" -Maze$(559) = "# # # # # ttrrt # #" -Maze$(560) = "# # #L# #LLttLLLL# ." -Maze$(561) = ". # # # # gtrL#D## #" -Maze$(562) = "### # # # rt #L # #" -Maze$(563) = ".k# # # # rgr # L# #" -Maze$(564) = "#.#.#.#.#######.##.#" - -'M:62 -Maze$(565) = "#.#.#.#.W####W#.##.#" -Maze$(566) = "# # # # B S # ." -Maze$(567) = "# # # ####W#####W###" -Maze$(568) = "# # # #tttS S ." -Maze$(569) = "# # # ##############" -Maze$(570) = "# # # ############W#" -Maze$(571) = "# # sS." -Maze$(572) = "# # ################" -Maze$(573) = "# # ." -Maze$(574) = "# ################W#" -Maze$(575) = "# L sB." -Maze$(576) = "####################" - -'M:7 -Maze$(577) = "##W#W##W###W#W#W#W##" -Maze$(578) = "#tB Ss Ss B S B S #" -Maze$(579) = "### ## ### # # # # #" -Maze$(580) = "# # # #t# # # # # #" -Maze$(581) = "# # # # # # # # # #" -Maze$(582) = "# # # # # # # # # #" -Maze$(583) = "# # # # # # # # # #" -Maze$(584) = "# # # # # # # # # #" -Maze$(585) = "# # # # # # # # # #" -Maze$(586) = "# # # #L# # # # # #" -Maze$(587) = "# # # # # # # # # #" -Maze$(588) = "#.#.##.#.#.#.#.#.#.#" - -'M:15 -Maze$(589) = "#.#.##.#.#.#.#.#.#.#" -Maze$(590) = "# #L # # #L# # #L# #" -Maze$(591) = "# # # # # # # # #L#" -Maze$(592) = "# # L# # # # # # # #" -Maze$(593) = "# # # # # # # # # #" -Maze$(594) = "# #L # # # #t# # # #" -Maze$(595) = "# # # # # #t# # # #" -Maze$(596) = "# # L# # # # # # # #" -Maze$(597) = "# # # # # # # # # #" -Maze$(598) = "# #L # # # #t# # # #" -Maze$(599) = "# # #L# # #t#L# # #" -Maze$(600) = "#.#.##.#.#.###.#.#.#" - -'M:23 -Maze$(601) = "#.#.##.#.#.###.#.#.#" -Maze$(602) = "# #k # # # #r# # # #" -Maze$(603) = "# #### # # #r# # # #" -Maze$(604) = "# #gt# # # # # # # #" -Maze$(605) = "# #gg# # # # # # # #" -Maze$(606) = "# ## # # # # # # # #" -Maze$(607) = "# # # #r# # #" -Maze$(608) = "#W###### W####W# # #" -Maze$(609) = ".S S B # #" -Maze$(610) = "#W#######W######W# #" -Maze$(611) = ".S B L sB #" -Maze$(612) = "################.#D#" - -'M:31 -Maze$(613) = "#W##############.# #" -Maze$(614) = ".Bs #t# # #" -Maze$(615) = "#W###### ### #t# # #" -Maze$(616) = ".S #t# #t# # #" -Maze$(617) = "########## # #t# # #" -Maze$(618) = "#W######## # #t#t# #" -Maze$(619) = ".S ## # #t#g# #" -Maze$(620) = "## rrgg ## # #t#t# #" -Maze$(621) = "########## #L# #t#L#" -Maze$(622) = "#W######## # # ### #" -Maze$(623) = ".B # # ## s#" -Maze$(624) = "##########.#.#.##.##" - -'M:39 -Maze$(625) = "#W########.#.#.##.W#" -Maze$(626) = ".S #### # #k B." -Maze$(627) = "#W##### # # #####" -Maze$(628) = ".S ### # # ." -Maze$(629) = "####D# #t# # #####W#" -Maze$(630) = "#tttt# # # # sB." -Maze$(631) = "#tttt# # # #######W#" -Maze$(632) = "#tttt# # # # sS." -Maze$(633) = "#tttt# # # # #######" -Maze$(634) = "# t# # # # # #####W#" -Maze$(635) = "#tt# # # # #rrrsS." -Maze$(636) = "######.#.#.#.#######" - -'M:47 -Maze$(637) = "##W###.#.#.#.####W##" -Maze$(638) = "#kS # # sB #" -Maze$(639) = "########W# ####### #" -Maze$(640) = "# r# #L BsD # # #" -Maze$(641) = "# # #ttt## # # # #" -Maze$(642) = "# # #tttt# # # # #" -Maze$(643) = "# # #tttt# # # # #" -Maze$(644) = "# # #tLtt# # # # #" -Maze$(645) = "# # #tttL# # # # #" -Maze$(646) = "# # ###### # # # #" -Maze$(647) = "# # # # # # #" -Maze$(648) = "####.####.#.#.####.#" - -'M:55 -Maze$(649) = "##W#.####.#.#.####.#" -Maze$(650) = ". B# #### #" -Maze$(651) = "# W######## ### #" -Maze$(652) = "# B # # # ####" -Maze$(653) = "# tt # # # # k#" -Maze$(654) = "########### # # # L#" -Maze$(655) = "#W# rtttg # # # # #" -Maze$(656) = ".B# tttgg # # # #LL#" -Maze$(657) = "### tgttt D# # # #" -Maze$(658) = "# rgttt ### # # # L#" -Maze$(659) = "#gttgtt ### # #L #" -Maze$(660) = "#########.###.#.##.#" - -'M:63 -Maze$(661) = "#W#######.###.#.##.#" -Maze$(662) = ".Bs # # #" -Maze$(663) = "#W########### # # #" -Maze$(664) = ".Bs # # #" -Maze$(665) = "############# # # #" -Maze$(666) = "#W########### # # #" -Maze$(667) = ".Bs # # #" -Maze$(668) = "#W############# # #" -Maze$(669) = ".Bs ." -Maze$(670) = "#W################W#" -Maze$(671) = ".Bs B." -Maze$(672) = "####################" - -'M:8 -Maze$(673) = "#####W#W#W###W#W#W##" -Maze$(674) = "#k## S B B ##S S S #" -Maze$(675) = "# ## # #D# # # # # #" -Maze$(676) = "# ## # # # # # # # #" -Maze$(677) = "# ## # # # # # # # #" -Maze$(678) = "# ## # # # # # # # #" -Maze$(679) = "# ## # # # # # # # #" -Maze$(680) = "# ## # # # # # # # #" -Maze$(681) = "# ## # # # # # # # #" -Maze$(682) = "# ## # # # # # # # #" -Maze$(683) = "# ## # # # # # # # #" -Maze$(684) = "#.##.#.#.#.#.#.#.#.#" - -'M:16 -Maze$(685) = "#.##.#.#.#.#.#.#.#.#" -Maze$(686) = "# ## # # # # #L# #L#" -Maze$(687) = "# ## # # # # #t# # #" -Maze$(688) = "# ## # # # # #g# # #" -Maze$(689) = "# ## # # # # ### # #" -Maze$(690) = "# ## # # # # ### # #" -Maze$(691) = "# ## # #L# # ### # #" -Maze$(692) = "# ## # # # # ### # #" -Maze$(693) = "# ## # # # # ### # #" -Maze$(694) = "# ## # # # # ### # #" -Maze$(695) = "# ##L# # # # ### # #" -Maze$(696) = "#.##.#.#.#.#.###.#.#" - -'M:24 -Maze$(697) = "#.##.#.#.#.#.##W.#.#" -Maze$(698) = "# ## # # # # # S # #" -Maze$(699) = "# ## # # # # # # # #" -Maze$(700) = "# ## # # # # # # # #" -Maze$(701) = "# ## # # # # # # # #" -Maze$(702) = "# ## # # #L# # # # #" -Maze$(703) = "# ## #L# # # # # # #" -Maze$(704) = "# ## # # # # # # # #" -Maze$(705) = "# ## # # # # # # # #" -Maze$(706) = "# ## # # # # W # # #" -Maze$(707) = "# ## # # # # S # # #" -Maze$(708) = "#.##.#.#.#.#.###.#.#" - -'M:32 -Maze$(709) = "#.##.#.#.#.#.###.#.#" -Maze$(710) = "# ## # # # #D# # # #" -Maze$(711) = "# ## # # # # # # # #" -Maze$(712) = "# ## # # # #L# # # #" -Maze$(713) = "# ## #L# # # # # # #" -Maze$(714) = "# ## # # # # # # # #" -Maze$(715) = "# ## # # # # # # # #" -Maze$(716) = "# ## # # # # # # # #" -Maze$(717) = "# ## # # # # # # # #" -Maze$(718) = "# ## # # # W W # # #" -Maze$(719) = "# ##k# # # B S # # #" -Maze$(720) = "#.####.#.#.#.###.#.#" - -'M:40 -Maze$(721) = "#.####.#.#.#.###.#.#" -Maze$(722) = ". # #t# # # ### # #" -Maze$(723) = "#W# #W# # # ### # #" -Maze$(724) = ".S S # # ### # #" -Maze$(725) = "####W#W# # # ### # #" -Maze$(726) = ". BsB # # ### # #" -Maze$(727) = "#W###### # # ### # #" -Maze$(728) = ".S # # ### # #" -Maze$(729) = "######## # # ### # #" -Maze$(730) = "##W###r# # # ### # #" -Maze$(731) = ". S k# #D# # ### # #" -Maze$(732) = "#.####.#.#.#.###.#.#" - - -'M:48 -Maze$(733) = "#.####.#.#.#.###.#.#" -Maze$(734) = "# # # # # ###L# #" -Maze$(735) = "# # # # # # ###t# #" -Maze$(736) = "# # # #L# # ##### #" -Maze$(737) = "# # # # # # ###t# #" -Maze$(738) = "# # # #k# # ### # #" -Maze$(739) = "# # # ### # ### #L#" -Maze$(740) = "# # # #t# # ### # #" -Maze$(741) = "# # # #t# # ### # #" -Maze$(742) = "# # # # # # ### # #" -Maze$(743) = "# # #L# # # ### #D#" -Maze$(744) = "#.##.#.#.#.#.###.#.#" - -'M:56 -Maze$(745) = "#.##.#.#.#.#.###.#.#" -Maze$(746) = "# ## # # # #k### # #" -Maze$(747) = "# ## # # # ###W# # #" -Maze$(748) = "# ## # # # B # #" -Maze$(749) = "# ## # # ####W##D# #" -Maze$(750) = "# ## #L# #tttBttr# #" -Maze$(751) = "# ## # # #gttt L# #" -Maze$(752) = "# ## # # # trtSgL# #" -Maze$(753) = "# ## # # #rr rtrt# #" -Maze$(754) = "# #W # # #rtBgggt# #" -Maze$(755) = "# sB # # #gg ttrt# #" -Maze$(756) = "#.##.#.#.#########.#" - -'M:64 -Maze$(757) = "#.##.#.#.#########.#" -Maze$(758) = "# # # # #ttt rrt# #" -Maze$(759) = "# #L# # ####t tt# #" -Maze$(760) = "# # # # # r rrr # #" -Maze$(761) = "# t# # # #Lrttrt # #" -Maze$(762) = "#t # # # # rrLrrL# #" -Maze$(763) = "# t#k# # #Stt tt # #" -Maze$(764) = "###### # #L L# #" -Maze$(765) = ". # # # #" -Maze$(766) = "######W#.#####W# # #" -Maze$(767) = ". Ss SsD #" -Maze$(768) = "####################" -RETURN - -Makedotobj: -DATA !?Short sword, !?Warriors sword, !?Magical sword -DATA $/Amulet, %@Waters of healing, $/statue of a golden eagle -DATA !?Whip, !?Knife, !?Shield -DATA $/Chalice, $/bunch of golden coins, %/Healing potion -DATA !?Iron fist, !?Detonator, %@Spider Antidote -DATA |/Nothing at all - -Wallcols: -DATA 12,4,6,2,5,7,8,14,8,11,9,1,4,2,2,1,2,3,10,1,8,8 -DATA 2,13,2,5,6,7,9,11,3,3,4,6,12,9,3,5,7,2,4,12,9,4 -DATA 5,8,9,7,1,3,6,2,4,5,13,11,12,11,10,9,14,15,13,1 - -Wallbord: -DATA 4,12,13,14,15,1,14,2,9,2,4,7,3,13,8,9,4,2,14,8,7 -DATA 1,13,3,15,4,4,10,2,4,14,1,11,14,1,1,13,12,14,14 -DATA 10,2,14,14,12,9,8,11,10,14,12,9,13,14,9,1,2,3,4 -DATA 5,8,8,2,14 - -SUB Cleardotarea -LINE (Sx - 4, Sy)-(Sx + 23, Sy + 35), 0, BF -RETURN -END SUB - -SUB CopydotPlayer -LINE (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), 0, BF -CIRCLE (CIX1 + 28, CIY1 + 35), 10, 15: PAINT (CIX1 + 28, CIY1 + 35), 15 -CIRCLE (CIX1 + 28, CIY1 + 35), 10, 6: CIRCLE (CIX1 + 28, CIY1 + 35), 9, 6 -FOR E = 1 TO 5: CIRCLE (CIX1 + 28, CIY1 + 35), E, 0: NEXT -CIRCLE (CIX1 + 28, CIY1 + 35), 1, 0 -GET (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), Player% -RETURN - -END SUB diff --git a/programs/samples/misc/nib64.bas b/programs/samples/misc/nib64.bas deleted file mode 100644 index 94c108b00..000000000 --- a/programs/samples/misc/nib64.bas +++ /dev/null @@ -1,778 +0,0 @@ -' -' Q B a s i c N i b b l e s -' -' Copyright (C) Microsoft Corporation 1990 -' -' Nibbles is a game for one or two players. Navigate your snakes -' around the game board trying to eat up numbers while avoiding -' running into walls or other snakes. The more numbers you eat up, -' the more points you gain and the longer your snake becomes. -' -' To run this game, press Shift+F5. -' -' To exit QBasic, press Alt, F, X. -' -' To get help on a BASIC keyword, move the cursor to the keyword and press -' F1 or click the right mouse button. -' - - -'Set default data type to integer for faster game play -DEFINT A-Z - -'User-defined TYPEs -TYPE snakeBody - row AS INTEGER - col AS INTEGER -END TYPE - -'This type defines the player's snake -TYPE snaketype - head AS INTEGER - length AS INTEGER - row AS INTEGER - col AS INTEGER - direction AS INTEGER - lives AS INTEGER - score AS INTEGER - scolor AS INTEGER - alive AS INTEGER -END TYPE - -'This type is used to represent the playing screen in memory -'It is used to simulate graphics in text mode, and has some interesting, -'and slightly advanced methods to increasing the speed of operation. -'Instead of the normal 80x25 text graphics using chr$(219) "Û", we will be -'using chr$(220)"Ü" and chr$(223) "ß" and chr$(219) "Û" to mimic an 80x50 -'pixel screen. -'Check out sub-programs SET and POINTISTHERE to see how this is implemented -'feel free to copy these (as well as arenaType and the DIM ARENA stmt and the -'initialization code in the DrawScreen subprogram) and use them in your own -'programs -TYPE arenaType - realRow AS INTEGER 'Maps the 80x50 point into the real 80x25 - acolor AS INTEGER 'Stores the current color of the point - sister AS INTEGER 'Each char has 2 points in it. .SISTER is -END TYPE '-1 if sister point is above, +1 if below - -'Sub Declarations -DECLARE SUB Intro () -DECLARE SUB SpacePause (text$) -DECLARE SUB PrintScore (numplayers%, score1%, score2%, lives1%, lives2%) - -DECLARE SUB GetInputs (numplayers, speed, diff$, monitor$) -DECLARE SUB DrawScreen () -DECLARE SUB PlayNibbles (numplayers, speed, diff$) -DECLARE SUB Set (row, col, acolor) -DECLARE SUB Center (row, text$) -DECLARE SUB DoIntro () -DECLARE SUB Initialize () -DECLARE SUB SparklePause () -DECLARE SUB Level (WhatToDO, sammy() AS snaketype) -DECLARE SUB InitColors () -DECLARE SUB EraseSnake (snake() AS ANY, snakeBod() AS ANY, snakeNum%) -DECLARE FUNCTION StillWantsToPlay () -DECLARE FUNCTION PointIsThere (row, col, backColor) - -'Constants -'CONST TRUE = -1 -'CONST FALSE = NOT TRUE -'CONST MAXSNAKELENGTH = 1000 -'CONST STARTOVER = 1 ' Parameters to 'Level' SUB -'CONST SAMELEVEL = 2 -'CONST NEXTLEVEL = 3 -DIM SHARED TRUE AS INTEGER -DIM SHARED FALSE AS INTEGER -DIM SHARED MAXSNAKELENGTH AS INTEGER -DIM SHARED STARTOVER AS INTEGER -DIM SHARED SAMELEVEL AS INTEGER -DIM SHARED NEXTLEVEL AS INTEGER - -TRUE = -1 -FALSE = NOT TRUE -MAXSNAKELENGTH = 1000 -STARTOVER = 1 -SAMELEVEL = 2 -NEXTLEVEL = 3 - - -'Global Variables -DIM SHARED arena(1 TO 50, 1 TO 80) AS arenaType -DIM SHARED curLevel, colorTable(10) - - - -RANDOMIZE TIMER -GOSUB ClearKeyLocks - -Intro -GetInputs numplayers, speed, diff$, monitor$ - - -GOSUB SetColors - -DrawScreen - - - -DO - PlayNibbles numplayers, speed, diff$ -LOOP WHILE StillWantsToPlay - -GOSUB RestoreKeyLocks -COLOR 15, 0 -CLS -END - -ClearKeyLocks: -DEF SEG = 0 ' Turn off CapLock, NumLock and ScrollLock -KeyFlags = PEEK(1047) -POKE 1047, &H0 -DEF SEG -RETURN - -RestoreKeyLocks: -DEF SEG = 0 ' Restore CapLock, NumLock and ScrollLock states -POKE 1047, KeyFlags -DEF SEG -RETURN - -SetColors: -IF monitor$ = "M" THEN - RESTORE mono -ELSE - RESTORE normal -END IF - -FOR a = 1 TO 6 - READ colorTable(a) -NEXT a -RETURN - -'snake1 snake2 Walls Background Dialogs-Fore Back -mono: DATA 15,7,7,0,15,0 -normal: DATA 14,13,12,1,15,4 -END - -'Center: -' Centers text on given row -SUB Center (row, text$) -LOCATE row, 41 - LEN(text$) / 2 -PRINT text$; -END SUB - -'DrawScreen: -' Draws playing field -SUB DrawScreen - -'initialize screen -VIEW PRINT -COLOR colorTable(1), colorTable(4) -CLS - -'Print title & message -Center 1, "Nibbles!" -Center 11, "Initializing Playing Field..." - -'Initialize arena array -FOR row = 1 TO 50 - FOR col = 1 TO 80 - arena(row, col).realRow = INT((row + 1) / 2) - arena(row, col).sister = (row MOD 2) * 2 - 1 - NEXT col -NEXT row - -END SUB - -'EraseSnake: -' Erases snake to facilitate moving through playing field -SUB EraseSnake (snake() AS snaketype, snakeBod() AS snakeBody, snakeNum) - -FOR c = 0 TO 9 - FOR b = snake(snakeNum).length - c TO 0 STEP -10 - tail = (snake(snakeNum).head + MAXSNAKELENGTH - b) MOD MAXSNAKELENGTH - Set snakeBod(tail, snakeNum).row, snakeBod(tail, snakeNum).col, colorTable(4) - NEXT b -NEXT c - -END SUB - -'GetInputs: -' Gets player inputs -SUB GetInputs (numplayers, speed, diff$, monitor$) - -COLOR 7, 0 -CLS - -DO - LOCATE 5, 47: PRINT SPACE$(34); - LOCATE 5, 20 - INPUT "How many players (1 or 2)"; num$ -LOOP UNTIL VAL(num$) = 1 OR VAL(num$) = 2 -numplayers = VAL(num$) - -LOCATE 8, 21: PRINT "Skill level (1 to 100)" -LOCATE 9, 22: PRINT "1 = Novice" -LOCATE 10, 22: PRINT "90 = Expert" -LOCATE 11, 22: PRINT "100 = Twiddle Fingers" -LOCATE 12, 15: PRINT "(Computer speed may affect your skill level)" -DO - LOCATE 8, 44: PRINT SPACE$(35); - LOCATE 8, 43 - INPUT gamespeed$ -LOOP UNTIL VAL(gamespeed$) >= 1 AND VAL(gamespeed$) <= 100 -speed = VAL(gamespeed$) - -speed = (100 - speed) * 5 + 1 - -DO - LOCATE 15, 56: PRINT SPACE$(25); - LOCATE 15, 15 - INPUT "Increase game speed during play (Y or N)"; diff$ - diff$ = UCASE$(diff$) -LOOP UNTIL diff$ = "Y" OR diff$ = "N" - -DO - LOCATE 17, 46: PRINT SPACE$(34); - LOCATE 17, 17 - INPUT "Monochrome or color monitor (M or C)"; monitor$ - monitor$ = UCASE$(monitor$) -LOOP UNTIL monitor$ = "M" OR monitor$ = "C" - -' startTime# = TIMER ' Calculate speed of system -' FOR i# = 1 TO 1000: NEXT i# ' and do some compensation -' stopTime# = TIMER -' -' speed = speed * .5 / (stopTime# - startTime# + .01) - - -END SUB - -'InitColors: -'Initializes playing field colors -SUB InitColors - - -FOR row = 1 TO 50 - FOR col = 1 TO 80 - arena(row, col).acolor = colorTable(4) - NEXT col -NEXT row - -CLS - -'Set (turn on) pixels for screen border -FOR col = 1 TO 80 - Set 3, col, colorTable(3) - Set 50, col, colorTable(3) -NEXT col - - - -FOR row = 4 TO 49 - Set row, 1, colorTable(3) - Set row, 80, colorTable(3) -NEXT row - - -END SUB - -'Intro: -' Displays game introduction -SUB Intro -SCREEN 0 -WIDTH 80, 25 -COLOR 15, 0 -CLS - -Center 4, "Q B a s i c N i b b l e s" -COLOR 7 -Center 6, "Copyright (C) Microsoft Corporation 1990" -Center 8, "Nibbles is a game for one or two players. Navigate your snakes" -Center 9, "around the game board trying to eat up numbers while avoiding" -Center 10, "running into walls or other snakes. The more numbers you eat up," -Center 11, "the more points you gain and the longer your snake becomes." -Center 13, " Game Controls " -Center 15, " General Player 1 Player 2 " -Center 16, " (Up) (Up) " -Center 17, "P - Pause " + CHR$(24) + " W " -Center 18, " (Left) " + CHR$(27) + " " + CHR$(26) + " (Right) (Left) A D (Right) " -Center 19, " " + CHR$(25) + " S " -Center 20, " (Down) (Down) " -Center 24, "Press any key to continue" - -PLAY "MBT160O1L8CDEDCDL4ECC" - -SparklePause - -END SUB - -'Level: -'Sets game level -SUB Level (WhatToDO, sammy() AS snaketype) 'STATIC - -SELECT CASE (WhatToDO) - - CASE STARTOVER - curLevel = 1 - CASE NEXTLEVEL - curLevel = curLevel + 1 -END SELECT - -sammy(1).head = 1 'Initialize Snakes -sammy(1).length = 2 -sammy(1).alive = TRUE -sammy(2).head = 1 -sammy(2).length = 2 -sammy(2).alive = TRUE - -InitColors - - - -SELECT CASE curLevel - CASE 1 - sammy(1).row = 25: sammy(2).row = 25 - sammy(1).col = 50: sammy(2).col = 30 - sammy(1).direction = 4: sammy(2).direction = 3 - - - CASE 2 - FOR i = 20 TO 60 - Set 25, i, colorTable(3) - NEXT i - sammy(1).row = 7: sammy(2).row = 43 - sammy(1).col = 60: sammy(2).col = 20 - sammy(1).direction = 3: sammy(2).direction = 4 - - CASE 3 - FOR i = 10 TO 40 - Set i, 20, colorTable(3) - Set i, 60, colorTable(3) - NEXT i - sammy(1).row = 25: sammy(2).row = 25 - sammy(1).col = 50: sammy(2).col = 30 - sammy(1).direction = 1: sammy(2).direction = 2 - - CASE 4 - FOR i = 4 TO 30 - Set i, 20, colorTable(3) - Set 53 - i, 60, colorTable(3) - NEXT i - FOR i = 2 TO 40 - Set 38, i, colorTable(3) - Set 15, 81 - i, colorTable(3) - NEXT i - sammy(1).row = 7: sammy(2).row = 43 - sammy(1).col = 60: sammy(2).col = 20 - sammy(1).direction = 3: sammy(2).direction = 4 - - CASE 5 - FOR i = 13 TO 39 - Set i, 21, colorTable(3) - Set i, 59, colorTable(3) - NEXT i - FOR i = 23 TO 57 - Set 11, i, colorTable(3) - Set 41, i, colorTable(3) - NEXT i - sammy(1).row = 25: sammy(2).row = 25 - sammy(1).col = 50: sammy(2).col = 30 - sammy(1).direction = 1: sammy(2).direction = 2 - - CASE 6 - FOR i = 4 TO 49 - IF i > 30 OR i < 23 THEN - Set i, 10, colorTable(3) - Set i, 20, colorTable(3) - Set i, 30, colorTable(3) - Set i, 40, colorTable(3) - Set i, 50, colorTable(3) - Set i, 60, colorTable(3) - Set i, 70, colorTable(3) - END IF - NEXT i - sammy(1).row = 7: sammy(2).row = 43 - sammy(1).col = 65: sammy(2).col = 15 - sammy(1).direction = 2: sammy(2).direction = 1 - - CASE 7 - FOR i = 4 TO 49 STEP 2 - Set i, 40, colorTable(3) - NEXT i - sammy(1).row = 7: sammy(2).row = 43 - sammy(1).col = 65: sammy(2).col = 15 - sammy(1).direction = 2: sammy(2).direction = 1 - - CASE 8 - FOR i = 4 TO 40 - Set i, 10, colorTable(3) - Set 53 - i, 20, colorTable(3) - Set i, 30, colorTable(3) - Set 53 - i, 40, colorTable(3) - Set i, 50, colorTable(3) - Set 53 - i, 60, colorTable(3) - Set i, 70, colorTable(3) - NEXT i - sammy(1).row = 7: sammy(2).row = 43 - sammy(1).col = 65: sammy(2).col = 15 - sammy(1).direction = 2: sammy(2).direction = 1 - - CASE 9 - FOR i = 6 TO 47 - Set i, i, colorTable(3) - Set i, i + 28, colorTable(3) - NEXT i - sammy(1).row = 40: sammy(2).row = 15 - sammy(1).col = 75: sammy(2).col = 5 - sammy(1).direction = 1: sammy(2).direction = 2 - - CASE ELSE - FOR i = 4 TO 49 STEP 2 - Set i, 10, colorTable(3) - Set i + 1, 20, colorTable(3) - Set i, 30, colorTable(3) - Set i + 1, 40, colorTable(3) - Set i, 50, colorTable(3) - Set i + 1, 60, colorTable(3) - Set i, 70, colorTable(3) - NEXT i - sammy(1).row = 7: sammy(2).row = 43 - sammy(1).col = 65: sammy(2).col = 15 - sammy(1).direction = 2: sammy(2).direction = 1 - -END SELECT -END SUB - -'PlayNibbles: -' Main routine that controls game play -SUB PlayNibbles (numplayers, speed, diff$) - -'Initialize Snakes -DIM sammyBody(MAXSNAKELENGTH - 1, 1 TO 2) AS snakeBody -DIM sammy(1 TO 2) AS snaketype -sammy(1).lives = 5 -sammy(1).score = 0 -sammy(1).scolor = colorTable(1) -sammy(2).lives = 5 -sammy(2).score = 0 -sammy(2).scolor = colorTable(2) - -Level STARTOVER, sammy() - - - - - -startRow1 = sammy(1).row: startCol1 = sammy(1).col -startRow2 = sammy(2).row: startCol2 = sammy(2).col - - -curSpeed = speed - -'play Nibbles until finished - - -SpacePause " Level" + STR$(curLevel) + ", Push Space" -gameOver = FALSE -DO - IF numplayers = 1 THEN - sammy(2).row = 0 - END IF - - number = 1 'Current number that snakes are trying to run into - nonum = TRUE 'nonum = TRUE if a number is not on the screen - - playerDied = FALSE - PrintScore numplayers, sammy(1).score, sammy(2).score, sammy(1).lives, sammy(2).lives - PLAY "T160O1>L20CDEDCDL10ECC" - - DO - 'Print number if no number exists - IF nonum = TRUE THEN - DO - numberRow = INT(RND(1) * 47 + 3) - NumberCol = INT(RND(1) * 78 + 2) - sisterRow = numberRow + arena(numberRow, NumberCol).sister - LOOP UNTIL NOT PointIsThere(numberRow, NumberCol, colorTable(4)) AND NOT PointIsThere(sisterRow, NumberCol, colorTable(4)) - numberRow = arena(numberRow, NumberCol).realRow - nonum = FALSE - COLOR colorTable(1), colorTable(4) - LOCATE numberRow, NumberCol - PRINT RIGHT$(STR$(number), 1); - count = 0 - END IF - - 'Delay game - 'FOR a# = 1 TO curSpeed: NEXT a# - DO: LOOP WHILE TIMER = oldtimer! - oldtimer! = TIMER - - 'Get keyboard input & Change direction accordingly - kbd$ = INKEY$ - SELECT CASE kbd$ - CASE "w", "W": IF sammy(2).direction <> 2 THEN sammy(2).direction = 1 - CASE "s", "S": IF sammy(2).direction <> 1 THEN sammy(2).direction = 2 - CASE "a", "A": IF sammy(2).direction <> 4 THEN sammy(2).direction = 3 - CASE "d", "D": IF sammy(2).direction <> 3 THEN sammy(2).direction = 4 - CASE CHR$(0) + "H": IF sammy(1).direction <> 2 THEN sammy(1).direction = 1 - CASE CHR$(0) + "P": IF sammy(1).direction <> 1 THEN sammy(1).direction = 2 - CASE CHR$(0) + "K": IF sammy(1).direction <> 4 THEN sammy(1).direction = 3 - CASE CHR$(0) + "M": IF sammy(1).direction <> 3 THEN sammy(1).direction = 4 - CASE "p", "P": SpacePause " Game Paused ... Push Space " - CASE ELSE - END SELECT - - FOR a = 1 TO numplayers - 'Move Snake - SELECT CASE sammy(a).direction - CASE 1: sammy(a).row = sammy(a).row - 1 - CASE 2: sammy(a).row = sammy(a).row + 1 - CASE 3: sammy(a).col = sammy(a).col - 1 - CASE 4: sammy(a).col = sammy(a).col + 1 - END SELECT - - 'If snake hits number, respond accordingly - IF numberRow = INT((sammy(a).row + 1) / 2) AND NumberCol = sammy(a).col THEN - PLAY "MBO0L16>CCCE" - - IF sammy(a).length < (MAXSNAKELENGTH - 30) THEN - sammy(a).length = sammy(a).length + number * 4 - END IF - sammy(a).score = sammy(a).score + number - PrintScore numplayers, sammy(1).score, sammy(2).score, sammy(1).lives, sammy(2).lives - number = number + 1 - IF number = 10 THEN - EraseSnake sammy(), sammyBody(), 1 - EraseSnake sammy(), sammyBody(), 2 - LOCATE numberRow, NumberCol: PRINT " " - Level NEXTLEVEL, sammy() - PrintScore numplayers, sammy(1).score, sammy(2).score, sammy(1).lives, sammy(2).lives - SpacePause " Level" + STR$(curLevel) + ", Push Space" - IF numplayers = 1 THEN sammy(2).row = 0 - number = 1 - IF diff$ = "P" THEN speed = speed - 10: curSpeed = speed - END IF - nonum = TRUE - IF curSpeed < 1 THEN curSpeed = 1 - END IF - NEXT a - - FOR a = 1 TO numplayers - 'If player runs into any point, or the head of the other snake, it dies. - IF PointIsThere(sammy(a).row, sammy(a).col, colorTable(4)) OR (sammy(1).row = sammy(2).row AND sammy(1).col = sammy(2).col) THEN - PLAY "MBO0L32EFGEFDC" - - COLOR , colorTable(4) - LOCATE numberRow, NumberCol - PRINT " " - - playerDied = TRUE - sammy(a).alive = FALSE - sammy(a).lives = sammy(a).lives - 1 - - 'Otherwise, move the snake, and erase the tail - ELSE - sammy(a).head = (sammy(a).head + 1) MOD MAXSNAKELENGTH - sammyBody(sammy(a).head, a).row = sammy(a).row - sammyBody(sammy(a).head, a).col = sammy(a).col - tail = (sammy(a).head + MAXSNAKELENGTH - sammy(a).length) MOD MAXSNAKELENGTH - Set sammyBody(tail, a).row, sammyBody(tail, a).col, colorTable(4) - sammyBody(tail, a).row = 0 - Set sammy(a).row, sammy(a).col, sammy(a).scolor - END IF - NEXT a - - LOOP UNTIL playerDied - - curSpeed = speed ' reset speed to initial value - - FOR a = 1 TO numplayers - EraseSnake sammy(), sammyBody(), a - - 'If dead, then erase snake in really cool way - IF sammy(a).alive = FALSE THEN - 'Update score - sammy(a).score = sammy(a).score - 10 - PrintScore numplayers, sammy(1).score, sammy(2).score, sammy(1).lives, sammy(2).lives - - IF a = 1 THEN - SpacePause " Sammy Dies! Push Space! --->" - ELSE - SpacePause " <---- Jake Dies! Push Space " - END IF - END IF - NEXT a - - Level SAMELEVEL, sammy() - PrintScore numplayers, sammy(1).score, sammy(2).score, sammy(1).lives, sammy(2).lives - - 'Play next round, until either of snake's lives have run out. -LOOP UNTIL sammy(1).lives = 0 OR sammy(2).lives = 0 - -END SUB - -'PointIsThere: -' Checks the global arena array to see if the boolean flag is set -FUNCTION PointIsThere (row, col, acolor) -IF row <> 0 THEN - IF arena(row, col).acolor <> acolor THEN - PointIsThere = TRUE - ELSE - PointIsThere = FALSE - END IF -END IF -END FUNCTION - -'PrintScore: -' Prints players scores and number of lives remaining -SUB PrintScore (numplayers, score1, score2, lives1, lives2) -COLOR 15, colorTable(4) - -IF numplayers = 2 THEN - LOCATE 1, 1 - 'PRINT USING "#,###,#00 Lives: # <--JAKE"; score2; lives2 - PRINT STR$(score2 * 100) + " Lives:"; lives2; " <--JAKE" -END IF - -LOCATE 1, 49 -'PRINT USING "SAMMY--> Lives: # #,###,#00"; lives1; score1 -PRINT "SAMMY--> Lives:"; lives1; " "; STR$(score1 * 100) - -END SUB - -'Set: -' Sets row and column on playing field to given color to facilitate moving -' of snakes around the field. -SUB Set (row, col, acolor) -IF row <> 0 THEN - arena(row, col).acolor = acolor 'assign color to arena - realRow = arena(row, col).realRow 'Get real row of pixel - - topFlag = arena(row, col).sister + 1 / 2 'Deduce whether pixel - 'is on topß, or bottomÜ - - ' IF arena(row, col).sister = 1 THEN topFlag = 2 ELSE topFlag = 0 - - - sisterRow = row + arena(row, col).sister 'Get arena row of sister - sisterColor = arena(sisterRow, col).acolor 'Determine sister's color - - 'LOCATE 1, 1: PRINT topFlag, arena(row, col).sister - - LOCATE realRow, col - - IF acolor = sisterColor THEN 'If both points are same - COLOR acolor, acolor 'Print chr$(219) "Û" - PRINT CHR$(219); - ELSE - IF topFlag THEN 'Since you cannot have - IF acolor > 7 THEN 'bright backgrounds - COLOR acolor, sisterColor 'determine best combo - PRINT CHR$(223); 'to use. - ELSE - COLOR sisterColor, acolor - PRINT CHR$(220); - END IF - ELSE - IF acolor > 7 THEN - COLOR acolor, sisterColor - PRINT CHR$(220); - ELSE - COLOR sisterColor, acolor - PRINT CHR$(223); - END IF - END IF - END IF -END IF -'SLEEP - -END SUB - -'SpacePause: -' Pauses game play and waits for space bar to be pressed before continuing -SUB SpacePause (text$) - -COLOR colorTable(5), colorTable(6) -Center 11, "ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ" -Center 12, "Û " + LEFT$(text$ + SPACE$(29), 29) + " Û" -Center 13, "ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" -WHILE INKEY$ <> "": WEND -WHILE INKEY$ <> " ": WEND -COLOR 15, colorTable(4) - -FOR i = 21 TO 26 ' Restore the screen background - FOR j = 24 TO 56 - Set i, j, arena(i, j).acolor - NEXT j -NEXT i - -END SUB - -'SparklePause: -' Creates flashing border for intro screen -SUB SparklePause - -COLOR 4, 0 -a$ = "* * * * * * * * * * * * * * * * * " -WHILE INKEY$ <> "": WEND 'Clear keyboard buffer - -WHILE INKEY$ = "" - FOR a = 1 TO 5 - LOCATE 1, 1 'print horizontal sparkles - PRINT MID$(a$, a, 80); - LOCATE 22, 1 - PRINT MID$(a$, 6 - a, 80); - - FOR b = 2 TO 21 'Print Vertical sparkles - c = (a + b) MOD 5 - IF c = 1 THEN - LOCATE b, 80 - PRINT "*"; - LOCATE 23 - b, 1 - PRINT "*"; - ELSE - LOCATE b, 80 - PRINT " "; - LOCATE 23 - b, 1 - PRINT " "; - END IF - NEXT b - NEXT a -WEND - -END SUB - -'StillWantsToPlay: -' Determines if users want to play game again. -FUNCTION StillWantsToPlay - -COLOR colorTable(5), colorTable(6) -Center 10, "ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ" -Center 11, "Û G A M E O V E R Û" -Center 12, "Û Û" -Center 13, "Û Play Again? (Y/N) Û" -Center 14, "ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ" - -WHILE INKEY$ <> "": WEND -DO - kbd$ = UCASE$(INKEY$) -LOOP UNTIL kbd$ = "Y" OR kbd$ = "N" - -COLOR 15, colorTable(4) -Center 10, " " -Center 11, " " -Center 12, " " -Center 13, " " -Center 14, " " - -IF kbd$ = "Y" THEN - StillWantsToPlay = TRUE -ELSE - StillWantsToPlay = FALSE - COLOR 7, 0 - CLS -END IF - -END FUNCTION - diff --git a/programs/samples/misc/pattern.bas b/programs/samples/misc/pattern.bas deleted file mode 100644 index f285a200c..000000000 --- a/programs/samples/misc/pattern.bas +++ /dev/null @@ -1,13 +0,0 @@ -'patterns -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ -1 SCREEN 13 -2 t% = RND * 345 -3 WAIT &H3DA, 8 -4 FOR i% = 0 TO 199 -5 FOR j% = 0 TO 319 -6 k% = ((k% + t% XOR j% XOR i%)) AND &HFF -7 PSET (j%, i%), k% -8 NEXT j%, i% -9 IF LEN(INKEY$) THEN END ELSE GOTO 2 - diff --git a/programs/samples/misc/ps2battl.mid b/programs/samples/misc/ps2battl.mid deleted file mode 100644 index bcced02c7..000000000 Binary files a/programs/samples/misc/ps2battl.mid and /dev/null differ diff --git a/programs/samples/misc/rc-ent6.bas b/programs/samples/misc/rc-ent6.bas deleted file mode 100644 index 525525b97..000000000 --- a/programs/samples/misc/rc-ent6.bas +++ /dev/null @@ -1,301 +0,0 @@ -'DECLARE SUB raytrace () -'Antoni Gual raycaster -'Modified from Entropy's an 36-lines entry for the Biskbart's -'40-lines QB Raycaster Compo of fall-2001 -' -'Added multikey handler -'Step emulation -'Added different textures, including clouds -'Separe -'with some of my ideas - -'to do: -' add screen buffer -' optimize rendering loop -' interpolate rays -' shadowing -' subpixel precision -' make it a game??? - -'DECLARE SUB ffix () - -'ffix -SCREEN 13 - -DIM map(9, 9) AS INTEGER 'the map -DIM tex(31, 31, 4) AS INTEGER 'texture array -DIM foff(15) AS INTEGER 'walk simulation vertical offset -DIM kbd(128) AS INTEGER 'keyboard reader array -DIM frames% -DIM persplut(200) AS SINGLE 'vertical offsets for roof and floor -DIM d1(319) AS INTEGER 'temporal arrays raycaster->renderer -DIM d2(319) AS INTEGER -DIM tx(319) AS INTEGER -DIM tm(319) AS INTEGER -DIM dx(319) AS SINGLE -DIM dy(319) AS SINGLE - -'read map,do fixed part of persp lut (sky is always in the infinite) -FOR i% = 0 TO 99 - READ map(i% \ 10, i% MOD 10) - persplut(i%) = 25590 / (i% - 100) -NEXT - -'make texture maps (should be read from file) -FOR i% = 0 TO 31 - FOR j% = 0 TO 31 - tex(i%, j%, 0) = (i% XOR j%) 'xor walls - i1% = i% - 16: j1% = j% - 16 - tex(i%, j%, 1) = SQR((i1% * i1%) + (j1% * j1%)) 'concentric ground tiles - tex(i%, j%, 2) = 16 - SQR((i1% * i1%) + (j1% * j1%)) -NEXT j%, i% - -'cloudy texture 1 -d1% = 64 -d% = 32 -tex(0, 0, 3) = 32 -WHILE d% > 1 - d2% = d% \ 2 - FOR i% = 0 TO 31 STEP d% - FOR j% = 0 TO 31 STEP d% - tex((i% + d2%) AND 31, j%, 3) = (tex(i%, j%, 3) + tex((i% + d%) AND 31, j%, 3) + (RND - .5) * d1%) / 2 - tex(i%, (j% + d2%) AND 31, 3) = (tex(i%, j%, 3) + tex(i%, (j% + d%) AND 31, 3) + (RND - .5) * d1%) / 2 - tex((i% + d2%) AND 31, (j% + d2%) AND 31, 3) = (tex(i%, j%, 3) + tex((i% + d%) AND 31, (j% + d%) AND 31, 3) + (RND - .5) * d1%) / 2 - NEXT j%, i% - d1% = d1% / 2 - d% = d2% -WEND - -'cloudy texture for sky -d1% = 64 -d% = 32 -tex(0, 0, 4) = 32 -WHILE d% > 1 - d2% = d% \ 2 - FOR i% = 0 TO 31 STEP d% - FOR j% = 0 TO 31 STEP d% - tex((i% + d2%) AND 31, j%, 4) = (tex(i%, j%, 4) + tex((i% + d%) AND 31, j%, 4) + (RND - .5) * d1%) / 2 - tex(i%, (j% + d2%) AND 31, 4) = (tex(i%, j%, 4) + tex(i%, (j% + d%) AND 31, 4) + (RND - .5) * d1%) / 2 - tex((i% + d2%) AND 31, (j% + d2%) AND 31, 4) = (tex(i%, j%, 4) + tex((i% + d%) AND 31, (j% + d%) AND 31, 4) + (RND - .5) * d1%) / 2 - NEXT j%, i% - d1% = d1% / 2 - d% = d2% -WEND - - -'fill step-simulation vertical offset -pioct! = 3.141592 / 8! -FOR i% = 0 TO 15 - foff(i%) = ABS(COS(i% * pioct!) * 64) -NEXT - - -'set palette -OUT &H3C8, 0 -'grey:walls -FOR i% = 0 TO 63 - OUT &H3C9, i%: OUT &H3C9, i%: OUT &H3C9, i% -NEXT -'green:ground -FOR i% = 0 TO 63 - OUT &H3C9, 0: OUT &H3C9, 63 - i%: OUT &H3C9, 0 -NEXT -'blue:sky -FOR i% = 0 TO 63 - OUT &H3C9, 63 - i% / 2: OUT &H3C9, 63 - i% / 2: OUT &H3C9, 63 -NEXT - - - -'launch raytracer -'erase key buffer and set num lock off -DEF SEG = &H40: POKE &H1C, PEEK(&H1A): POKE &H17, PEEK(&H17) AND NOT 32 - -tim! = TIMER -frames% = 0 - - - - -'SUB raytrace -rtf = 2048 -rtl = .0001 -inf = 3000000 -incu = .05 -xpos = 1.5 -ypos = 1.5 -angle = 0 -ini% = 1 -'frames loop -DO - - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - - frames% = frames% + 1 - - 'keyboard input - k% = INP(&H60): - IF k% THEN - kbd(k% AND 127) = -((k% AND 128) = 0) - DEF SEG = &H40: POKE &H1C, PEEK(&H1A) - IF kbd(1) THEN GOTO EXITDO1 - turn% = kbd(&H4D) - kbd(&H4B): kbd(&H4D) = 0: kbd(&H4B) = 0 - mov% = kbd(80) - kbd(72) + ini% - END IF - 'a movement has happened, update and collision detect - IF turn% OR mov% THEN - angle = angle + turn% * .1 - xpos2 = mov% * COS(angle) * incu - ypos2 = mov% * SIN(angle) * incu - - 'calculate walk offsets,and floor part of perspective - f% = f% + mov% - foff% = foff(f% AND 15) - calc = 25600 - 32 * foff% - FOR y% = 100 TO 199: persplut(y%) = calc / (y% - 99): NEXT - - IF ini% THEN ini% = 0 - dxc = COS(angle) * incu - dxs = SIN(angle) * incu / 160 - dyc = COS(angle) * incu / 160 - dys = SIN(angle) * incu - 'colision detector - - IF map(INT(ypos - incu), INT(xpos - xpos2 - xpos2 - incu)) = 0 THEN - IF map(INT(ypos - incu), INT(xpos - xpos2 - xpos2 + incu)) = 0 THEN - IF map(INT(ypos + incu), INT(xpos - xpos2 - xpos2 - incu)) = 0 THEN - IF map(INT(ypos + incu), INT(xpos - xpos2 - xpos2 + incu)) = 0 THEN - xpos = xpos - xpos2 - xpos32 = xpos * 32 - xp1! = (xpos - INT(xpos)) * rtf - END IF - END IF - END IF - END IF - IF map(INT(ypos - ypos2 - ypos2 - incu), INT(xpos - incu)) = 0 THEN - IF map(INT(ypos - ypos2 - ypos2 + incu), INT(xpos - incu)) = 0 THEN - IF map(INT(ypos - ypos2 - ypos2 - incu), INT(xpos + incu)) = 0 THEN - IF map(INT(ypos - ypos2 - ypos2 + incu), INT(xpos + incu)) = 0 THEN - ypos = ypos - ypos2 - ypos32 = ypos * 32 - yp1! = (ypos - INT(ypos)) * rtf - END IF - END IF - END IF - END IF - - - 'raycast loop - FOR x% = 0 TO 319 - 'INIT RAYCASTER - dx = dxc - (x% - 160) * dxs - dy = (x% - 160) * dyc + dys - dx(x%) = dx - dy(x%) = dy - SELECT CASE dx - CASE IS < -rtl - nextxt = -xp1! / dx - dxt = -rtf / dx - CASE IS > rtl - nextxt = (rtf - xp1!) / dx - dxt = rtf / dx - CASE ELSE - nextxt = inf - END SELECT - SELECT CASE dy - CASE IS < -rtl - nextyt = -yp1! / dy - dyt = -rtf / dy - CASE IS > rtl - nextyt = (rtf - yp1!) / dy - dyt = rtf / dy - CASE ELSE - nextyt = inf - END SELECT - sdx% = SGN(dx): sdy% = SGN(dy) - xm% = INT(xpos): ym% = INT(ypos) - - 'cast a ray and increase distance until a wall is hit - DO - IF nextxt < nextyt THEN - - xm% = xm% + sdx% - IF map(ym%, xm%) THEN ti = rtf / nextxt: GOTO exitdo2 - nextxt = nextxt + dxt - ELSE - 'ny% = ny% + 1 - ym% = ym% + sdy% - IF map(ym%, xm%) THEN ti = rtf / nextyt: GOTO exitdo2 - nextyt = nextyt + dyt - END IF - LOOP - exitdo2: - 'Enter texture index, top, bottom into table for this direction - - tm(x%) = map(ym%, xm%) MOD 5 - d1% = 99 - INT((800 + foff%) * ti) - IF d1% > md1% THEN md1% = d1% - d1(x%) = d1% - d2% = 102 + INT((800 - foff%) * ti) - d2(x%) = d2% - IF d2% < md2% THEN md2% = d2% - tx(x%) = ((xpos + ypos + (dx + dy) / ti) * 32) AND 31 - - NEXT x% - END IF - - 'rendering loop (too many products and divisions) - - DEF SEG = &HA000 - FOR x% = 0 TO 319 - d1% = d1(x%) - d2% = d2(x%) - tx% = tx(x%) - d21% = d2% - d1% - dx = dx(x%) - dy = dy(x%) - p& = x% - mmap% = tm(x%) - FOR y% = 0 TO 199 - pl = persplut(y%) - SELECT CASE y% - 'sky - CASE IS < d1% - tt% = 128 + tex(dx * pl AND 31, dy * pl AND 31, 4) - 'wall - CASE IS < d2% - tt% = 10 + tex(32 * (y% - d1%) \ d21%, tx%, mmap%) - 'ground - CASE ELSE - tt% = 56 + tex((xpos32 + dx * pl) AND 31, (ypos32 + dy * pl) AND 31, 4) - END SELECT - POKE p&, tt% - p& = p& + 320 - NEXT y% - NEXT x% -LOOP -EXITDO1: - - - - - - -COLOR 12 -LOCATE 1, 1: PRINT frames% / (TIMER - tim!); " fps" -a$ = INPUT$(1) -END - -'map data -DATA 7,8,7,8,7,8,7,8,7,8 -DATA 7,0,0,0,0,0,0,0,0,8 -DATA 8,0,9,1,0,2,10,2,0,7 -DATA 7,0,1,9,0,0,0,10,0,8 -DATA 8,0,0,0,0,0,0,0,0,7 -DATA 7,0,3,11,3,11,0,0,0,8 -DATA 8,0,11,0,0,3,0,0,0,7 -DATA 7,0,3,0,0,11,0,0,0,8 -DATA 8,0,0,0,0,0,0,0,0,7 -DATA 8,7,8,7,8,7,8,7,8,8 - diff --git a/programs/samples/misc/replicat.bas b/programs/samples/misc/replicat.bas deleted file mode 100644 index f8bb826be..000000000 --- a/programs/samples/misc/replicat.bas +++ /dev/null @@ -1 +0,0 @@ -P$="+CHR$(34):PRINT MID$(P$,35)+P$+P$'P$="+CHR$(34):PRINT MID$(P$,35)+P$+P$'P$=" \ No newline at end of file diff --git a/programs/samples/misc/ripples.bas b/programs/samples/misc/ripples.bas deleted file mode 100644 index fa559671d..000000000 --- a/programs/samples/misc/ripples.bas +++ /dev/null @@ -1,113 +0,0 @@ -CHDIR ".\programs\samples\misc" - -DECLARE SUB ripples (waterheight%, dlay!, amplitude!, wavelength!) -DECLARE FUNCTION LoadPcx% (PCX$) -DECLARE SUB DELAY (x!) -'---------------------------------------------------------------------------- -'RIPPLES, by Antoni Gual 26/1/2001 agual@eic.ictnet.es -'Simulates water reflection in a SCREEN 13 image -'---------------------------------------------------------------------------- -'Who said QBasic is obsolete? -'This is a remake of the popular LAKE Java applet. -'You can experiment with different images and different values of the -'parameters passed to RIPPLES sub. -'---------------------------------------------------------------------------- -'PCX Loader modified from Kurt Kuzba. -'Timber Wolf came with PaintShopPro 5, I rescaned it to fit SCREEN13 -'---------------------------------------------------------------------------- -'WARNING!: PCX MUST be 256 colors and 320x 200.The loader does'nt check it!! -'---------------------------------------------------------------------------- -'Use as you want, only give me credit. -'E-mail me to tell me about! -'---------------------------------------------------------------------------- -DEFINT A-Z -SCREEN 13: CLS -dummy = LoadPcx("twolf.pcx") -IF dummy THEN PRINT "File twolf.pcx not Found!": END -ripples 150, .1, 2, 1 - -SUB DELAY (x!) -'Hope it will not freeze at midnight! -T! = TIMER + x! -DO: LOOP UNTIL TIMER > T! OR TIMER < x! -END SUB - -FUNCTION LoadPcx (PCX$) -'LOADS A 320x200x256 PCX. Modified from Kurt Kuzba - -bseg& = &HA000 - - -F = FREEFILE -OPEN PCX$ FOR BINARY AS #F -IF LOF(F) = 0 THEN CLOSE #F: KILL PCX$: LoadPcx = 1: EXIT FUNCTION - -fin& = LOF(1) - 767: SEEK #F, fin&: p$ = INPUT$(768, 1) -p% = 1: fin& = fin& - 1 -OUT &H3C8, 0: DEF SEG = VARSEG(p$) -FOR T& = SADD(p$) TO SADD(p$) + 767: OUT &H3C9, PEEK(T&) \ 4: NEXT - - -SEEK #F, 129: T& = BOFS&: RLE% = 0 -DO - p$ = INPUT$(256, F): fpos& = SEEK(F): l% = LEN(p$) - IF fpos& > fin& THEN l% = l% - (fpos& - fin&): done = 1 - FOR p& = SADD(p$) TO SADD(p$) + l% - 1 - DEF SEG = VARSEG(p$): dat% = PEEK(p&): DEF SEG = bseg& - IF RLE% THEN - FOR RLE% = RLE% TO 1 STEP -1: - POKE T&, dat%: T& = T& + 1 - NEXT - ELSE - IF (dat% AND 192) = 192 THEN - RLE% = dat% AND 63 - ELSE - POKE T&, dat%: T& = T& + 1 - END IF - END IF - NEXT -LOOP UNTIL done -CLOSE F -END FUNCTION - -SUB ripples (waterheight, dlay!, amplitude!, wavelength!) -'---------------------------------------------------------------------------- -'Ripples SUB, by Antoni Gual 26/1/2001 agual@eic.ictnet.es -'Simulates water reflection in a SCREEN 13 image -'---------------------------------------------------------------------------- -'PARAMETERS: -'waterheight in pixels from top -'dlay! delay between two recalcs in seconds -'amplitude! amplitude of the distortion in pixels -'wavelength! distance between two ripples -'---------------------------------------------------------------------------- - - -'these are screen size constants, don't touch it! -widh = 319 -height = 199 - -REDIM a%(162) -DIM r%(0 TO 200) - -'precalc a sinus table for speed -FOR i! = 0 TO 200 - r(i!) = CINT(SIN(i! / wavelength!) * amplitude!) -NEXT -j = 0 - -'the loop! -DO - 'it must be slowed down to look real! - DELAY dlay! - - FOR i = 1 TO height - waterheight - temp = waterheight - i + r((j + i) MOD 200) - GET (1, temp)-(widh, temp), a%() - PUT (1, waterheight + i), a%(), PSET - NEXT - IF j = 200 THEN j = 0 ELSE j = j + 1 -LOOP UNTIL LEN(INKEY$) - -END SUB - diff --git a/programs/samples/misc/rot13.bas b/programs/samples/misc/rot13.bas deleted file mode 100644 index 5ee9e02e5..000000000 --- a/programs/samples/misc/rot13.bas +++ /dev/null @@ -1,11 +0,0 @@ -'2007 mennonite -'public domain -z$="hello" -for n = 1 TO len(z$) -a$ = right$(left$(z$,n),1) -b$ = a$ -c = asc(ucase$(a$)) -if c > 64 and c < 91 then b$ = chr$((c - 65 + 13) mod 26 + 65) -if asc(a$) > 91 then b$ = lcase$(b$) -print b$; -next n \ No newline at end of file diff --git a/programs/samples/misc/rotozoom.bas b/programs/samples/misc/rotozoom.bas deleted file mode 100644 index 2cb3917e4..000000000 --- a/programs/samples/misc/rotozoom.bas +++ /dev/null @@ -1,14 +0,0 @@ -' OPTIMIZED :) rotozoomer in 9 lines by Antoni Gual -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ - -1 SCREEN 13 -2 ANG = ANG + .08 -3 CS% = COS(ANG) * ABS(SIN(ANG)) * 128 -4 ss% = SIN(ANG) * ABS(SIN(ANG)) * 128 -5 FOR Y% = -100 TO 99 -6 FOR X% = -160 TO 159 -7 PSET (X% + 160, Y% + 100), (((X% * CS% - Y% * ss%) AND (Y% * CS% + X% * ss%)) \ 128) -8 NEXT X%, Y% -9 IF LEN(INKEY$) = 0 THEN 2 - diff --git a/programs/samples/misc/samples.txt b/programs/samples/misc/samples.txt deleted file mode 100644 index b1cf10c6e..000000000 --- a/programs/samples/misc/samples.txt +++ /dev/null @@ -1,229 +0,0 @@ -The following sample programs are also in this folder but not listed below: -nib64.bas,gor64.bas,frog.bas,3dexp2.bas,cabsmous.bas,shoot.bas,ripples.bas,carols.bas - -3DBALLS.BAS *** -Coded by: Antoni Gual -Contributed by: Galleon -Description: 3D balls -Modifications: none - -ACALC.BAS ** -Coded by: Qbguy -Contributed by: Qbguy -Description: Analog calculator -Modifications: none - -AUDIO.BAS ***** -Coded by: Galleon -Contributed by: Galleon -Description: Helps you lean how QB64 Audio works to play .mp3, .wav, .mid, etc. -Modifications: none - -AKLABETH.BAS ***** -Coded by: Richard C Garriott -Contributed by: Galleon -Description: "Akalabeth: World of Doom" is the predecessor of the Ultima series of role playing games -Modifications: i. CLEAR statement commented - ii. "END"s instead of restarting to avoid problems associated with (i) - -ASCIPONG.BAS **** -Coded by: Qbguy -Contributed by: Qbguy -Description: ASCII pong -Modifications: none - -CHESS.BAS ***** -Coded by: Qbguy -Contributed by: Qbguy -Description: Chess, against a computer opponent with AI! -Modifications: none - -CUBEROT.BAS ** -Coded by: Entropy, Antoni Gual -Contributed by: Galleon -Description: Rotating cube -Modifications: none - -DJSOK.BAS ***** -Coded by: David Joffe -Contributed by: Galleon -Description: Sokoban (push blocks to solve a puzzle) -Data files: DJSOK.DAT -Modifications: Changed path to DJSOK.DAT so it is .\programs\samples\DJSOK.DAT - Changed CONSTants to DIM SHAREDs - -FLRMP.BAS ** -Coded by: Antoni Gual -Contributed by: Galleon -Description: Floor mapper -Modifications: none - -FOREST.BAS *** -Coded by: Antoni Gual -Contributed by: Galleon -Description: A forest scene with rippling reflecting water -Modifications: none - -FRAC1.BAS, FRAC2.BAS, FRAC3.BAS * -Coded by: Qbguy? -Contributed by: Qbguy -Description: Various fractals -Modifications: none - -GUJERO.BAS *** -Coded by: Antoni Gual -Contributed by: Galleon -Description: A 3D spiral tunnel effect -Modifications: i. ffix and its declaration commented - -INTRPRTR.BAS ** -Coded by: Qbguy -Contributed by: Qbguy -Description: A BASIC interpreter inside a .BAS program. Very limited functionality, but well written. (A work in progress?) -Modifications: none - -KITE.BAS **** -Coded by: Mennonite -Contributed by: Mennonite -Description: Displays a moving kite using ASCII graphics with the message QB64 -Modifications: none - -LISSAJ.BAS ** -Coded by: Antoni Gual -Contributed by: Galleon -Description: Draws lines of different wavelengths to create patterns -Modifications: none - -MANDALA.BAS *** -Coded by: Antoni Gual -Contributed by: Galleon -Description: Connects points around a circle to create patterns -Modifications: none - -MANDELB.BAS ** -Coded by: Antoni Gual -Contributed by: Galleon -Description: A mandelbrot fractal -Modifications: i. ffix and its declaration commented - -MATRIX.BAS ** -Coded by: Antoni Gual -Contributed by: Galleon -Description: Like the code as seen in the movie (too fast) -Modifications: none - -MCLOCK.BAS ** -Coded by: Folker Fritz -Contributed by: Galleon -Description: A graphical clock (digital and analog) -Modifications: CONST changed to DIM SHARED - -MESSAGE.BAS **** -Coded by: Qbguy -Contributed by: Qbguy -Description: A plays a musical secret code representing a line of text -Modifications: none - -MZUPD2.BAS **** -Coded by: Steve M. -Contributed by: Galleon -Description: A graphical maze-adventure game -Notes: Some graphics look like errors, but the same errors occur in QBASIC -Modifications: Workarounds for CLEAR, CONST, variable names containing a . - Timing changed (it ran too fast, even after changing the in-game speed) - -PATTERN.BAS * -Coded by: Antoni Gual -Contributed by: Galleon -Description: Strange patterns appear out of seemingly random data -Modifications: none - -RC-ENT6.BAS ***** -Coded by: Antoni Gual -Contributed by: Galleon -Description: Raycaster with textured walls, sky & floor using INP(&H60) for input -Modifications: i. SUB raytrace integrated into main module - ii. ffix and its declaration commented - iii. Wait for vertical retrace added - -REPLICAT.BAS *** -Coded by: Qbguy -Contributed by: Qbguy -Description: A one line program which prints itself, character for character, to the screen -Modifications: none - -ROT13.BAS *** -Coded by: Mennonite -Contributed by: Mennonite -Description: Encrypts a line of text to make it harder to read -Modifications: none - -ROTOZOOM.BAS ** -Coded by: Antoni Gual -Contributed by: Galleon -Description: An pattern rotates while zooming in and out -Modifications: none - -SCRAMBLE.BAS ** -Coded by: Qbguy -Contributed by: Qbguy -Description: A slide the square puzzle with some differences -Modifications: None - -SINECUBE.BAS **** -Coded by: Mennonite -Contributed by: Mennonite -Description: 3D cube made out of little cubes using a special formula -Modifications: none - -SSAVER.BAS * -Coded by: Qbguy -Contributed by: Qbguy -Description: A screensaver which draws randow colored circles -Modifications: none - -STRFLD.BAS * -Coded by: Antoni Gual -Contributed by: Galleon -Description: A starfield, like the old screen savers (too fast) -Modifications: none - -TEMPLE.BAS **** -Coded by: John Belew -Contributed by: Galleon -Description: A text, grid based "dungeons/dragons-like" adventure -Modifications: Workarounds for: DRAW, PLAY, DEF functions, KEY ..., CHAIN - -TOWER.BAS *** -Coded by: Qbguy -Contributed by: Qbguy -Description: Tower of Hanoi (stacking puzzle) -Modifications: CONST changed to DIM SHARED - -TWIRL2.BAS *** -Coded by: Antoni Gual -Contributed by: Galleon -Description: Like seeing 100 flavours of ice cream being mixed together... -Modifications: none - -VORTEX.BAS * -Coded by: Antoni Gual -Contributed by: Galleon -Description: A colorful black hole effect (too fast) -Modifications: none - -WUMPUS.BAS ***** -Coded by: Gregory Yob -Contributed by: Qbguy -Description: The well known BASIC game... "Hunt the Wumpus" -Modifications: i. DEF FN statements recoded by Qbguy using a workaround - -XWING.BAS **** -Coded by: Michael Know Wausau Wi -Contributed by: Galleon -Description: Destroy Tie Fighters, Darth Vader and the Death Star in an Xwing (note: Some SOUND effects aren't handled correctly by QB64 yet) -Modifications: i. DEFINT relocated for QBASIC compatibility - ii. Workaround used to replace PLAY "P..." used for timing - iii. Workaround used to replace DRAW "..." statements - iv. Workaround used to replace ON KEY(...) statements - v. Keyboard controls F1 & F2 changed to SPACEBAR and ENTER \ No newline at end of file diff --git a/programs/samples/misc/scramble.bas b/programs/samples/misc/scramble.bas deleted file mode 100644 index 2ffe9af01..000000000 --- a/programs/samples/misc/scramble.bas +++ /dev/null @@ -1,117 +0,0 @@ -DECLARE SUB SCRAMBLE () -DECLARE SUB GIVEUP () -DECLARE SUB UP () -DECLARE SUB DOWN () -DECLARE SUB ROTATE (ROW%) -DEFINT A-Z -DIM SHARED PUZZLE(0 TO 5, 0 TO 5) -DIM COLORS(-1 TO 5) -CLS -FOR I = 0 TO 5 -READ COLORS(I) -FOR J = 0 TO 5 -PUZZLE(I, J) = J -NEXT -NEXT -DATA 8, 15, 12, 14, 10, 9 -PUZZLE(5, 5) = -1 -DO -CLS -FOR I = 0 TO 5 -PRINT I + 1; -FOR J = 0 TO 5 -COLOR COLORS(PUZZLE(I, J)) -PRINT CHR$(219); -NEXT -COLOR 7: PRINT -NEXT -PRINT -PRINT "Instructions:" -PRINT STRING$(13, 196) -PRINT " "; CHR$(254); " The object of the game is to restore the puzzle back to its initial state" -PRINT SPACE$(3); "from a scrambled state." -PRINT " "; CHR$(254); " To scramble the puzzle, press S." -PRINT " "; CHR$(254); " To give up and reset the puzzle, type R." -PRINT " "; CHR$(254); " To shift a row right, press the number of that row." -PRINT " "; CHR$(254); " To move a tile up into the blank space, press the up arrow key." -PRINT " "; CHR$(254); " To move a tile down into the blank space, press the down arrow key." -N$ = "" -WHILE N$ = "" -N$ = INKEY$ -WEND -SELECT CASE N$ -CASE "R", "r" -CALL GIVEUP -CASE "S", "s" -CALL SCRAMBLE -CASE "1" -CALL ROTATE(0) -CASE "2" -CALL ROTATE(1) -CASE "3" -CALL ROTATE(2) -CASE "4" -CALL ROTATE(3) -CASE "5" -CALL ROTATE(4) -CASE "6" -CALL ROTATE(5) -CASE CHR$(0) + CHR$(72) -CALL UP -CASE CHR$(0) + CHR$(80) -CALL DOWN -CASE CHR$(27) -END -END SELECT -LOOP - -SUB DOWN -FOR I = 0 TO 5 -FOR J = 0 TO 5 -K = PUZZLE(I, J) -IF K = -1 THEN GOTO 2 -NEXT -NEXT -2 IF I = 0 THEN EXIT SUB -SWAP PUZZLE(I - 1, J), PUZZLE(I, J) -END SUB - -SUB GIVEUP -FOR I = 0 TO 5 -FOR J = 0 TO 5 -PUZZLE(I, J) = J -NEXT -NEXT -PUZZLE(5, 5) = -1 -END SUB - -SUB ROTATE (ROW) -FOR I = 1 TO 5 -SWAP PUZZLE(ROW, 0), PUZZLE(ROW, I) -NEXT -END SUB - -SUB SCRAMBLE -FOR I = 1 TO 1000 -J = INT(RND(1) * 8) -SELECT CASE J -CASE 0 TO 5 -CALL ROTATE(J) -CASE 6 -CALL UP -CASE 7 -CALL DOWN -END SELECT -NEXT -END SUB - -SUB UP -FOR I = 0 TO 5 -FOR J = 0 TO 5 -K = PUZZLE(I, J) -IF K = -1 THEN GOTO 1 -NEXT -NEXT -1 IF I = 5 THEN EXIT SUB -SWAP PUZZLE(I + 1, J), PUZZLE(I, J) -END SUB diff --git a/programs/samples/misc/ship1.raw b/programs/samples/misc/ship1.raw deleted file mode 100644 index d333aea22..000000000 --- a/programs/samples/misc/ship1.raw +++ /dev/null @@ -1 +0,0 @@ -þþþþþþþþþÿÿÿþþþþþþþþþþþþþþÿÿÿp)pÿÿÿÿþþþþþþþþþÿÿÿÿÿÿÿþþþþþþþþÿÿÿþþþþþþþÿÿÿþþþþþþÿÿÿÿþþþþþÿÿþþþþÿÿþþþÿÿþÿÿÿÿÿÿÿÿÿÿÿþÿÿþÿÿÿÿþþÿÿþþÿÿÿÿþþÿÿÿpÿþþÿÿÿÿþþþÿpÿÿpÿþþþÿÿÿÿþþþþÿÿÿÿþþþþÿÿþþþþþþÿÿÿÿÿþþþþþþþþþþþþÿÿÿÿþþþþþþþþþþþþÿÿÿÿþþþþþþþþþþþþÿÿþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþþþþÿÿþþþþþþþþþþþþþþþþþþþÿþþþþþþþþþþ \ No newline at end of file diff --git a/programs/samples/misc/shoot.bas b/programs/samples/misc/shoot.bas deleted file mode 100644 index 755fedf46..000000000 --- a/programs/samples/misc/shoot.bas +++ /dev/null @@ -1,276 +0,0 @@ -CHDIR ".\programs\samples\misc" - -DEFLNG A-Z -SCREEN 13, , 1, 0 - -_SNDPLAYFILE "ps2battl.mid" -shootsound = _SNDOPEN("fireball.wav", "SYNC") - -'index,filename(.RAW),width,height -DATA 1,ship1,21,27 -DATA 2,shot1,10,10 -DATA 3,evil1,93,80 -DATA 4,land1,320,56 -DATA 5,boom1,65,75 - -DIM SHARED spritedata(1000000) AS _UNSIGNED _BYTE -DIM SHARED freespritedata AS LONG -DIM SHARED freesprite AS LONG -freesprite = 1 - -TYPE spritetype - x AS INTEGER - y AS INTEGER - index AS LONG 'an index in the spritedata() array - index2 AS LONG 'optional secondary index - halfx AS INTEGER - halfy AS INTEGER -END TYPE -DIM SHARED s(1 TO 1000) AS spritetype - -'load sprites -FOR i = 1 TO 5 - b$ = " " - READ n - READ f$: f$ = f$ + ".raw" - READ x, y - OPEN f$ FOR BINARY AS #1 - IF LOF(1) <> x * y THEN SCREEN 0: PRINT "Error loading " + f$: END - FOR y2 = y - 1 TO 0 STEP -1 - FOR x2 = 0 TO x - 1 - GET #1, , b$ - PSET (x2, y2), ASC(b$) - NEXT - NEXT - CLOSE #1 - GET (0, 0)-(x - 1, y - 1), spritedata(freespritedata) - s(freesprite).index = freespritedata - freespritedata = freespritedata + x * y + 4 - 'create shadow - FOR y2 = y - 1 TO 0 STEP -1 - FOR x2 = 0 TO x - 1 - IF POINT(x2, y2) <> 254 THEN PSET (x2, y2), 18 - NEXT - NEXT - GET (0, 0)-(x - 1, y - 1), spritedata(freespritedata) - s(freesprite).index2 = freespritedata - freespritedata = freespritedata + x * y + 4 - s(freesprite).x = x: s(freesprite).y = y - s(freesprite).halfx = x \ 2: s(freesprite).halfy = y \ 2 - freesprite = freesprite + 1 -NEXT - -TYPE object - active AS INTEGER - x AS INTEGER - y AS INTEGER - z AS INTEGER 'height - mx AS INTEGER - my AS INTEGER - sprite AS INTEGER -END TYPE - -'create objects -DIM o(1 TO 1000) AS object 'all game objects -DIM SHARED lastobject AS INTEGER -lastobject = 1000 - -'create player -i = newobject(o()) -o(i).sprite = 1 -o(i).z = 50 -o(i).active = 20 -player = i - -_MOUSEHIDE - -'gameloop -DO - - DO: LOOP WHILE _MOUSEINPUT 'read all available mouse messages until current message - - 'set player's position - o(player).x = _MOUSEX: o(player).y = _MOUSEY - - 'draw land - landy = (landy + 1) MOD 56 - FOR i = -1 TO 4 - PUT (0, i * 56 + landy), spritedata(s(4).index), _CLIP PSET, 254 - NEXT - - 'draw enemy shadows - FOR i = 1 TO lastobject - IF o(i).sprite = 3 THEN displayshadow o(i) - NEXT - - 'draw player's shadow - displayshadow o(player) - - 'draw enemies - FOR i = 1 TO lastobject - IF o(i).sprite = 3 THEN - display o(i) - move o(i) - IF o(i).y - s(o(i).sprite).halfy > 200 THEN o(i).y = -1000 - END IF - NEXT - - 'draw bullets - FOR i = 1 TO lastobject - IF o(i).sprite = 2 THEN - display o(i) - move o(i) - IF offscreen(o(i)) THEN freeobject o(i) - xshift = INT(RND * 3) - 1 - o(i).mx = o(i).mx + xshift - o(i).my = o(i).my - 1 - END IF - NEXT - - 'draw player - display o(player) - - 'draw explosion(s) - FOR i = 1 TO lastobject - IF o(i).sprite = 5 THEN - FOR i2 = 1 TO o(i).active - rad = i2 * 5: halfrad = rad \ 2 - dx = RND * rad - halfrad: dy = RND * rad - halfrad - displayat o(i).x + dx, o(i).y + dy, o(i) - NEXT - move o(i) - o(i).active = o(i).active - 1 - IF o(i).active = 0 THEN freeobject o(i) - END IF - NEXT - - 'hp bar - x = 60 - y = 185 - LINE (x - 1, y)-STEP(20 * 10 + 2, 5), 2, B - LINE (x, y - 1)-STEP(20 * 10, 5 + 2), 2, B - LINE (x, y)-STEP(20 * 10, 5), 40, BF - LINE (x, y)-STEP(o(player).active * 10, 5), 47, BF - - PCOPY 1, 0 - - 'shoot? - IF _MOUSEBUTTON(1) THEN - i = newobject(o()) - o(i).sprite = 2 - o(i).x = o(player).x - o(i).y = o(player).y - s(o(player).sprite).halfy - o(i).my = -1 - _SNDPLAYCOPY shootsound - END IF - - 'bullet->enemy collision - FOR i = 1 TO lastobject - IF o(i).sprite = 2 THEN 'bullet - FOR i2 = 1 TO lastobject - IF o(i2).sprite = 3 THEN 'enemy - IF collision(o(i), o(i2)) THEN - _SNDPLAYCOPY shootsound - i3 = newobject(o()) - o(i3).sprite = 5 - o(i3).my = o(i2).my \ 2 + 1 - IF o(i2).active > 1 THEN 'hit (small explosion) - o(i2).active = o(i2).active - 1 - o(i3).x = o(i).x - o(i3).y = o(i).y - ELSE 'destroyed (large explosion) - o(i3).x = o(i2).x - o(i3).y = o(i2).y - o(i3).active = 15 - freeobject o(i2) 'enemy - END IF - freeobject o(i) 'bullet - EXIT FOR - END IF 'collision - END IF - NEXT - END IF - NEXT - - 'ship->enemy collision - i = player - FOR i2 = 1 TO lastobject - IF o(i2).sprite = 3 THEN 'enemy - IF collision(o(i), o(i2)) THEN - o(i).active = o(i).active - 1 - IF o(i).active = 0 THEN END - EXIT FOR - END IF 'collision - END IF - NEXT - - 'add new enemy? - addenemy = addenemy + 1 - IF addenemy = 50 THEN - addenemy = 0 - i = newobject(o()) - o(i).sprite = 3 - o(i).x = RND * 320 - o(i).y = RND * -1000 - s(o(i).sprite).halfy - o(i).my = 3 + RND * 6 - o(i).z = 25 + o(i).my * 8 - o(i).active = 15 'hp - END IF - - 'speed limit main loop to 18.2 frames per second - DO: nt! = TIMER: LOOP WHILE nt! = lt! - lt! = nt! - -LOOP -'end main loop - -SUB move (o AS object) -o.x = o.x + o.mx -o.y = o.y + o.my -END SUB - -SUB display (o AS object) -PUT (o.x - s(o.sprite).halfx, o.y - s(o.sprite).halfy), spritedata(s(o.sprite).index), _CLIP PSET, 254 -END SUB - -SUB displayat (x AS INTEGER, y AS INTEGER, o AS object) -PUT (x - s(o.sprite).halfx, y - s(o.sprite).halfy), spritedata(s(o.sprite).index), _CLIP PSET, 254 -END SUB - - -SUB displayshadow (o AS object) -PUT (o.x - s(o.sprite).halfx, o.y - s(o.sprite).halfy + o.z), spritedata(s(o.sprite).index2), _CLIP PSET, 254 -END SUB - -FUNCTION newobject (o() AS object) -FOR i = 1 TO lastobject - IF o(i).active = 0 THEN - o(i).active = 1 - o(i).mx = 0: o(i).my = 0 - o(i).z = 0 - newobject = i - EXIT FUNCTION - END IF -NEXT -SCREEN 0: PRINT "No more free objects available!": END -END FUNCTION - -FUNCTION offscreen (o AS object) -IF o.x + s(o.sprite).halfx < 0 THEN offscreen = 1: EXIT FUNCTION -IF o.x - s(o.sprite).halfx > 319 THEN offscreen = 1: EXIT FUNCTION -IF o.y + s(o.sprite).halfy < 0 THEN offscreen = 1: EXIT FUNCTION -IF o.y - s(o.sprite).halfy > 199 THEN offscreen = 1: EXIT FUNCTION -END FUNCTION - -SUB freeobject (o AS object) -o.active = 0 -o.sprite = 0 -END SUB - -FUNCTION collision (o1 AS object, o2 AS object) -IF o1.y + s(o1.sprite).halfy < o2.y - s(o2.sprite).halfy THEN EXIT FUNCTION -IF o2.y + s(o2.sprite).halfy < o1.y - s(o1.sprite).halfy THEN EXIT FUNCTION -IF o1.x + s(o1.sprite).halfx < o2.x - s(o2.sprite).halfx THEN EXIT FUNCTION -IF o2.x + s(o2.sprite).halfx < o1.x - s(o1.sprite).halfx THEN EXIT FUNCTION -collision = 1 -END FUNCTION diff --git a/programs/samples/misc/shot1.raw b/programs/samples/misc/shot1.raw deleted file mode 100644 index f5ca3a857..000000000 --- a/programs/samples/misc/shot1.raw +++ /dev/null @@ -1 +0,0 @@ -¸þþþþþþþþ¸p¸þþþþþþ¸pp¸þþþþ¸p*p¸¸p*)+*pp*+))+D**D+)+D**D+p)+DD+)pþp)+DD+)pþþþp))pþþ \ No newline at end of file diff --git a/programs/samples/misc/sinecube.bas b/programs/samples/misc/sinecube.bas deleted file mode 100644 index 03e4541b3..000000000 --- a/programs/samples/misc/sinecube.bas +++ /dev/null @@ -1,50 +0,0 @@ -'sinecube 2006 mennonite -'public domain - -DIM blox(40, 40, 40) AS INTEGER - -SCREEN 12: LINE (0, 0)-(639, 479), , B - -l = 8 - -B$ = B$ + "00000000..." -B$ = B$ + "llnnnnnnl.." -B$ = B$ + "l8lnnnnnnl." -B$ = B$ + "l88llllllll" -B$ = B$ + "l88l000000l" -B$ = B$ + "l88l000000l" -B$ = B$ + "l88l000000l" -B$ = B$ + "l88l000000l" -B$ = B$ + ".l8l000000l" -B$ = B$ + "..ll000000l" -B$ = B$ + "...llllllll" - -blox(2, 3, 32) = 1 - -FOR l = 8 * 32 TO 1 STEP -8 - -FOR y = 4 TO 4 * 32 STEP 4 -FOR x = 8 * 32 TO 1 STEP -8 - -mm = SIN(x * y * l * 3.14): if mm<0 then mm=-1 else if mm>0 then mm=1 -IF blox(x / 8, y / 4, l / 8) = mm + 1 THEN -FOR by = 1 TO 11 -FOR bx = 1 TO 11 -IF right$(left$(b$,(by - 1) * 11 + bx),1) <> "." THEN -z = 11 -PSET (x + bx - 1 + y - 3, by - 1 + y + l + 4), ASC(right$(left$(b$,(by - 1) * 11 + bx),1)) MOD 16 + (y MOD 2) -END IF - -NEXT bx -NEXT by - -END IF -IF INKEY$ = CHR$(27) THEN END - -NEXT x - -t = TIMER: DO: LOOP UNTIL t <> TIMER - -NEXT y - -NEXT l \ No newline at end of file diff --git a/programs/samples/misc/ssaver.bas b/programs/samples/misc/ssaver.bas deleted file mode 100644 index e2378b897..000000000 --- a/programs/samples/misc/ssaver.bas +++ /dev/null @@ -1,14 +0,0 @@ -REM THIS PROGRAM IS IN T3H PUBLIC DOMAIN - -SCREEN 12 -LINE (0, 0)-(640, 480), 15, BF -DO -X = INT(RND(1) * 640) -Y = INT(RND(1) * 480) -Z = INT(RND(1) * 50) + 10 -COLOUR = INT(RND(1) * 14) + 1 -COLOR COLOUR -CIRCLE (X, Y), Z, COLOUR -PAINT (X, Y), COLOUR -IF INKEY$ = CHR$(27) THEN EXIT DO -LOOP \ No newline at end of file diff --git a/programs/samples/misc/strfld.bas b/programs/samples/misc/strfld.bas deleted file mode 100644 index 98028b441..000000000 --- a/programs/samples/misc/strfld.bas +++ /dev/null @@ -1,13 +0,0 @@ -'Starfield by Antoni gual -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ - -1 SCREEN 13 -2 a$ = STRING$(400 * 6, CHR$(0)) -3 IF CVI(MID$(a$, j + 5, 2)) = 0 THEN MID$(a$, j + 1, 6) = MKI$(RND * 20000 - 10000) + MKI$(RND * 20000 - 10000) + MKI$(100 * RND + 1) -4 PSET (160 + CVI(MID$(a$, j + 1, 2)) / CVI(MID$(a$, j + 5, 2)), 100 + CVI(MID$(a$, j + 3, 2)) / CVI(MID$(a$, j + 5, 2))), 0 -5 MID$(a$, j + 5, 2) = MKI$(CVI(MID$(a$, j + 5, 2)) - 1) -6 IF CVI(MID$(a$, j + 5, 2)) > 0 THEN PSET (160 + CVI(MID$(a$, j + 1, 2)) / CVI(MID$(a$, j + 5, 2)), 100 + CVI(MID$(a$, j + 3, 2)) / CVI(MID$(a$, j + 5, 2))), 32 - CVI(MID$(a$, j + 5, 2)) \ 8 -7 j = (j + 6) MOD (LEN(a$)) -8 IF LEN(INKEY$) = 0 THEN 3 - diff --git a/programs/samples/misc/temple.bas b/programs/samples/misc/temple.bas deleted file mode 100644 index 83efbf01a..000000000 --- a/programs/samples/misc/temple.bas +++ /dev/null @@ -1,1522 +0,0 @@ -DIM SHARED X AS INTEGER -DIM SHARED Y AS INTEGER - -10 'KEY OFF -15 N = VAL(MID$(TIME$, 7, 2)) -20 RANDOMIZE N -30 INPUT "Do you want graphics (Y/N)"; ANS$ -40 IF ANS$ = "y" GOTO 70 -50 IF ANS$ = "Y" GOTO 70 -55 IF ANS$ = "ARIOCH" GOTO 700 -60 GOTO 350 -70 SCREEN 1: CLS -80 CIRCLE (20, 20), 20 -90 PAINT (30, 30), 2, 3 -100 CIRCLE (240, 30), 15 -110 PAINT (240, 30), 1, 3 -120 PSET (60, 125) -130 'DRAW "e100;f100;l199" -140 LINE (360, 125)-(0, 360), , BF -150 PAINT (100, 100), 3 -160 LINE (360, 125)-(0, 360), 1, BF -170 LOCATE 16, 19 -180 PRINT " " -190 FOR J = 1 TO 200 -200 I = (RND * 360) -210 F = (RND * 120) -220 FOR R = 1 TO 0 STEP -1 -230 CIRCLE (I, F), R, 3 -240 NEXT -250 NEXT -260 LOCATE 22, 11 -270 PRINT "THE TEMPLE OF LOTH" -280 LOCATE 22, 11 -290 BEEP - SLEEP 2 -300 FOR X = 200 TO 0 STEP -4 -310 CIRCLE (160, 100), X, , , , 1 -320 NEXT -330 SCREEN 2 -340 SCREEN 0 -350 CLS -360 PRINT : COLOR 12, 0, 1 -410 PRINT : -420 PRINT -470 PRINT : COLOR 31, 0, 1 -480 PRINT " VERSION 4.2" -490 COLOR 3, 0, 1: PRINT " July 25, 1984" -500 COLOR 3, 0, 1: PRINT " Suggested for use with printer and graphics board" -510 PRINT "" -520 PRINT " by John Belew" -530 PRINT " (Nurruc the Chaotic)" -540 PRINT : COLOR 10, 0, 1 -550 PRINT " of the Apple Eliminators": COLOR 3, 0, 1 -560 SOU = INT(RND * 2 + 1) -570 ON SOU GOTO 580, 600 -580 'PLAY "O1MFT155L2DL4EL2FDL1GG#" - SLEEP 2 -590 GOTO 650 -600 FOR QWER = 220 TO 196 STEP -1 -610 SOUND QWER, 1 -620 NEXT -630 'PLAY "O1MLT155L2GP10EP10L1F#" - SLEEP 2 -640 GOTO 650 -650 PRINT -660 PRINT " Make sure that all commands are done in capitals. For help type `H'." -670 INPUT " Do you want instructions (Y/N)"; ANS$ -680 IF ANS$ = "Y" GOTO 11570 -690 IF ANS$ = "y" GOTO 11570 -700 REM -710 REM **************************************************** -720 REM * WRITTEN BY JOHN BELEW FOR USE WITH THE I.B.M. * -730 REM * AND OTHER COMPATIBLE * -740 REM * THANKS TO TSR FOR THE MONSTERS * -750 REM * THANKS TO RECREATIONAL COMPUTING FOR THE ORIGINAL* -760 REM * PROGRAM JUNE 29, 1984 * -770 REM **************************************************** -780 DEFINT A-Z - -790 DIM C$(34), I$(34), R$(4), W$(8), E$(8) -800 DIM L(512), C(3, 4), T(8), O(3), R(3) -'810 DEF FNA (Q) = 1 + INT(RND(1) * Q) -'820 DEF FNB (Q) = Q + 8 * ((Q = 9) - (Q = 0)) -'830 DEF FNC (Q) = -Q * (Q < 19) - 18 * (Q > 18) -'840 DEF FND (Q) = 64 * (Q - 1) + 8 * (X - 1) + Y -'850 DEF FNE (Q) = Q + 100 * (Q > 99) -860 COLOR 11, 0, 15: Y$ = "** Please answer yes or no": COLOR 3, 0, 1 -870 NG = 0 -880 REM -890 REM INITIALIZE ARRAYS -900 REM -910 NG = NG + 1 -920 Q = RND(1) -930 RESTORE -940 FOR Q = 1 TO 34 -950 READ C$(Q), I$(Q) -960 NEXT Q -970 FOR Q = 1 TO 512 -980 L(Q) = 101 -990 NEXT Q -1000 FOR Q = 1 TO 8 -1010 READ W$(Q), E$(Q) -1020 NEXT Q -1030 FOR Q = 1 TO 4 -1040 READ R$(Q) -1050 NEXT Q -1060 IF NG > 1 GOTO 1420 -1070 'INPUT " Do you want instructions (Y/N)?";ANS$ -1080 'PRINT -1090 'IF ANS$ = "Y" GOTO 12000 -1100 'IF ANS$ = "y" GOTO 12000 -1110 CLS -1120 PRINT " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" -1130 PRINT " ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"; : COLOR 27, 0, 1: PRINT "* * * THE TEMPLE OF LOTH * * *"; : COLOR 3, 0, 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" -1140 PRINT " ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" -1150 'PRINT º º -1160 'PRINT " º º -1170 'GOSUB 9060 -1180 PRINT " º Many generations ago, during the great Elfin Wars of the º" -1190 PRINT " º first age, there stood the majestic temple of the Drow. The º" -1200 PRINT " º Drow are an evil race of elves dedicated to the destruction º" -1210 PRINT " º of all elves but themselves. During this time they were rul- º" -1220 PRINT " º ed by the the evil priestess,Tar-Anclime, a great sorceress. º" -1230 PRINT " º Under the aid of her goddess Loth, she created "; : COLOR 11, 0, 1: PRINT "the Amulet of"; : COLOR 3, 0, 1: PRINT " º" -1240 PRINT " º"; : COLOR 11, 0, 1: PRINT " Chaos"; : COLOR 3, 0, 1: PRINT " which was to be used to aid her side in the final des- º" -1250 PRINT " º truction of their rivals. The Drow massed for The final con- º" -1260 PRINT " º flict but they were attacked by their rival forces and there º" -1270 PRINT " º they were utterly destroyed. Now thousands of years later it º" -1280 PRINT " º is said that in the kingdom of Rhyl that the descendents of º" -1290 PRINT " º the Drow are massing. The Drow plan to return to claim their º" -1300 PRINT " º homeland to retrieve "; : COLOR 11, 0, 1: PRINT "the Amulet of Chaos"; : COLOR 3, 0, 1: PRINT " so they can finally º" -1310 PRINT " º destroy the elves of good. Living in the village shadowed by º" -1320 PRINT " º now crumbling temple, you have been chosen to retrieve the º" -1330 PRINT " º Amulet before the Drow return so that it can be destroyed. º" -1340 PRINT " º There are many dangers that live in the mazes of the ruins º" -1350 PRINT " º such as powerful and magic monsters. It is even believed º" -1360 PRINT " º that the some Drow still live in ruins."; : COLOR 28, 0, 1: PRINT " BEWARE!!!"; : COLOR 3, 0, 1: PRINT " º" -1370 'PRINT " º º -1380 PRINT " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" -1400 GOTO 1420 -1410 PRINT "Wait one moment please while I stock the temple..." -1420 X = 1: Y = 4 -1430 L(FND(1)) = 2 -1440 FOR Z = 1 TO 7 -1450 FOR Q1 = 1 TO 2 -1460 Q = 104 -1470 GOSUB 10450 -1480 L(FND(Z + 1)) = 103 -1490 NEXT Q1 -1500 NEXT Z -1510 FOR Z = 1 TO 8 -1520 FOR Q = 113 TO 124 -1530 GOSUB 10450 -1540 NEXT Q -1550 FOR Q1 = 1 TO 3 -1560 FOR Q = 105 TO 112 -1570 GOSUB 10450 -1580 NEXT Q -1590 Q = 125 -1600 GOSUB 10450 -1610 NEXT Q1 -1620 NEXT Z -1630 FOR Q = 126 TO 133 -1640 Z = FNA(8) -1650 GOSUB 10450 -1660 NEXT Q -1670 Q = 101 -1680 FOR A = 1 TO 3 -1690 Z = FNA(8) -1700 GOSUB 10450 -1710 C(A, 1) = X -1720 C(A, 3) = Z -1730 C(A, 2) = Y -1740 C(A, 4) = 0 -1750 NEXT A -1760 RC = 0 -1770 ST = 2 -1780 DX = 8 -1790 R$(3) = "Man" -1800 Q = 112 + FNA(12) -1810 Z = FNA(8) -1820 GOSUB 10450 -1830 R(1) = X -1840 R(2) = Y -1850 R(3) = Z -1860 Q = 109 -1870 Z = FNA(8) -1880 GOSUB 10450 -1890 O(1) = X -1900 O(2) = Y -1910 O(3) = Z -1920 BF = 0: OT = 8: AV = 0: HT = 0: T = 1: VF = 0: LF = 0 -1930 TC = 0: GP! = 60: RF = 0: OF = 0: BL = 0: IQ = 8: SX = 0 -1940 FOR Q = 1 TO 8 -1950 T(Q) = 0 -1960 NEXT Q -1970 BEEP -1980 CLS -1990 PRINT -2000 PRINT -2010 COLOR 11, 0, 1: PRINT " You are in large room blinded by a very bright light. All of the sudden you " -2020 PRINT "hear a booming voice which says, `You have been chosen bold one to be a valiant" -2030 PRINT "and brave warrior of any race you desire. You can choose to be an Elf, a Man," -2040 PRINT "a Dwarf or a Hobbit.' Remember though, you only have 500 turns.": COLOR 3, 0, 1 -2050 COLOR 3, 0, 1 -2060 GOSUB 10690 -2070 FOR Q = 1 TO 4 -2080 STR = INT(RND * 10 + 2) -2090 DEX = INT(RND * 10 + 2) -2100 IF LEFT$(R$(Q), 1) = O$ THEN RC = Q: ST = STR * Q: DX = DEX * Q -2110 IF ST > 18 THEN ST = 18 -2120 IF DX > 18 THEN DX = 18 -2130 NEXT Q -2140 PRINT -2150 OT = OT + 4 * (RC = 1) -2160 IF RC > 0 THEN R$(3) = "Human": GOTO 2190 -2170 COLOR 11, 0, 15: PRINT "** That was incorrect. Please type E, D, M, OR H.": COLOR 3, 0, 1 -2180 GOTO 2060 -2190 PRINT "Which sex do you prefer"; -2200 GOSUB 10710 -2210 IF O$ = "M" THEN SX = 1: GOTO 2250 -2220 IF O$ = "F" GOTO 2250 -2230 COLOR 11, 0, 15: PRINT "** Cute "; R$(RC); ", Real cute. Try M OR F.": COLOR 3, 0, 1 -2240 GOTO 2190 -2250 PRINT -2260 PRINT "OK, "; R$(RC); ", you have the following attributes :" -2270 PRINT "Strength ="; ST -2280 PRINT "Intelligence ="; IQ -2290 PRINT "Dexterity ="; DX -2300 PRINT "and"; OT; "other points you allocate as you wish." -2310 PRINT -2320 Z$ = "Strength" -2330 GOSUB 10740 -2340 ST = ST + Q -2350 IF OT = 0 GOTO 2430 -2360 Z$ = "Intelligence" -2370 GOSUB 10740 -2380 IQ = IQ + Q -2390 IF OT = 0 GOTO 2430 -2400 Z$ = "Dexterity" -2410 GOSUB 10740 -2420 DX = DX + Q -2430 PRINT "OK, "; R$(RC); ", you find your self at a bazaar in a small village built in the " -2440 PRINT "shadow of a large and crumbling castle. You have nothing save the clothes on " -2450 PRINT "your back and a purse containing 60gp's to buy your equipments with." -2460 Z$ = "Armor" -2470 GOSUB 10990 -2480 AV = 0: WV = 0: FL = 0: WC = 0 -2490 PRINT "Plate Mail:30gp's Chainmail:20gp's Leather:10gp's Nothing:-" -2500 GOSUB 10690 -2510 IF O$ = "N" GOTO 2570 -2520 AV = -3 * (O$ = "P") - 2 * (O$ = "C") - (O$ = "L") -2530 IF AV > 0 GOTO 2570 -2540 PRINT -2550 COLOR 11, 0, 15: PRINT "** Are you a "; R$(RC); " or "; C$(FNA(12) + 12); "?": COLOR 3, 0, 1 -2560 GOTO 2460 -2570 AH = AV * 7: GP! = GP! - AV * 10 -2580 PRINT -2590 PRINT "OK, bold "; R$(RC); ", you have"; GP!; "gp's left." -2600 PRINT -2610 Z$ = "Weapons" -2620 GOSUB 10990 -2630 PRINT "Sword:30gp's Mace:20gp's Dagger:10gp's Nothing:-" -2640 GOSUB 10690 -2650 IF O$ = "N" GOTO 2710 -2660 WV = -3 * (O$ = "S") - 2 * (O$ = "M") - (O$ = "D") -2670 IF WV > 0 GOTO 2710 -2680 PRINT -2690 COLOR 11, 0, 15: PRINT "** Is your IQ really"; IQ; "?": COLOR 3, 0, 1 -2700 GOTO 2610 -2710 GP! = GP! - WV * 10 -2720 IF GP! < 20 GOTO 2780 -2730 PRINT -2740 PRINT "Do you want to buy a lamp for 20gp's"; -2750 GOSUB 10710 -2760 IF O$ = "Y" THEN LF = 1: GP! = GP! - 20: GOTO 2780 -2770 IF O$ <> "N" THEN PRINT : PRINT Y$: PRINT : GOTO 2740 -2780 PRINT -2790 IF GP! < 1 THEN Q = 0: GOTO 2900 -2800 PRINT "OK, "; R$(RC); ", you have"; GP!; "gold pieces left." -2810 PRINT -2820 INPUT "Flares give off light which allows you to see all the rooms around you. At a cost of 1gp each how many do you want to buy?"; O$ -2830 Q = VAL(O$) -2840 PRINT -2850 IF Q > 0 OR ASC(O$) = 48 GOTO 2890 -2860 COLOR 11, 0, 15: PRINT "** If you don't want any, just type 0.": COLOR 3, 0, 1 -2870 PRINT -2880 GOTO 2820 -2890 COLOR 11, 0, 15: IF Q > GP! THEN PRINT "** You can only afford"; GP!; ".": COLOR 3, 0, 1: PRINT : GOTO 2820 -2900 FL = FL + Q: GP! = GP! - Q -2910 X = 1: Y = 4: Z = 1 -2920 COLOR 27, 0, 15: PRINT "OK, "; R$(RC); ", You are now entering the castle!": COLOR 3, 0, 1: -2930 GOTO 6370 -2940 REM -2950 REM MAIN PROCESSING LOOP -2960 REM -2970 T = T + 1 -2980 IF RF + OF > 0 GOTO 3110 -2990 IF C(1, 4) > T(1) THEN T = T + 1 -3000 IF C(2, 4) > T(3) THEN GP! = GP! - FNA(5) -3010 IF GP! < 0 THEN GP! = 0 -3020 IF C(3, 4) <= T(5) GOTO 3110 -3030 A = X: B = Y: C = Z -3040 X = FNA(8): Y = FNA(8): Z = FNA(8) -3050 L(FND(Z)) = FNE(L(FND(Z))) + 100 -3060 X = A: Y = B: Z = C -3070 IF L(FND(Z)) <> 1 GOTO 3110 -3080 FOR Q = 1 TO 3 -3090 C(Q, 4) = -(C(Q, 1) = X) * (C(Q, 2) = Y) * (C(Q, 3) = Z) -3100 NEXT Q -3110 IF FNA(5) > 1 GOTO 3610 -3120 PRINT -3130 PRINT "You "; -3140 Q = FNA(7) + BL -3150 IF Q > 7 THEN Q = 4 -3160 ON Q GOSUB 3460, 3200, 3440, 3180, 3480, 3510, 3530 -3170 GOTO 3610 -3180 PRINT "stepped on dragon @#*%!" -3190 RETURN -3200 PRINT "hear "; -3210 ON FNA(4) GOTO 3220, 3280, 3360, 3390 -3220 PRINT "a scream!" -3230 FOR I = 2075 TO 1800 STEP -1 -3240 SOUND I, .001 -3250 NEXT -3260 SOUND 32729, 1 -3270 RETURN -3280 PRINT "footsteps!" -3290 'FOR I=1 TO 5 -3300 FOR J = 40 TO 37 STEP -1 -3310 SOUND J, 1 -3320 SOUND 32729, 10 -3330 'NEXT -3340 NEXT -3350 RETURN -3360 PRINT "a Wumpus!" -3370 'PLAY "O0MST255L4AGP5AGP5AGP5AG" - SLEEP 2 -3380 RETURN -3390 PRINT "groans!" -3400 FOR I = 300 TO 37 STEP -1 -3410 SOUND I, .1 -3420 NEXT -3430 RETURN -3440 PRINT "sneezed!" -3450 RETURN -3460 PRINT "see a bat fly by!" -3470 RETURN -3480 PRINT "hear a "; C$(12 + FNA(13)); " growling!" -3490 GOTO 3400 -3500 RETURN -3510 PRINT "feel like you're being watched!" -3520 RETURN -3530 PRINT "hear faint rustling noises!" -3540 FOR Q = 1 TO 200 -3550 A = INT(RND * 50 + 37) -3560 SOUND A, .001 -3570 'SOUND 32729,1 -3580 NEXT -3590 SOUND 32729, 1 -3600 RETURN -3610 IF BL + T(4) <> 2 GOTO 3650 -3620 PRINT -3630 PRINT C$(29); " cures your blindness!" -3640 BL = 0 -3650 IF BF + T(6) <> 2 GOTO 3690 -3660 PRINT -3670 PRINT C$(31); " dissolves the book!" -3680 BF = 0 -3690 PRINT -3695 PRINT -3700 LOCATE 23, 1: COLOR 3, 0, 1: PRINT "Enter your command:" -3705 FOR ASD = 1 TO 2 -3710 LOCATE 23, 20: PRINT "-": SOUND 32767, 1 -3720 LOCATE 23, 20: PRINT "\": SOUND 32767, 1 -3730 LOCATE 23, 20: PRINT "³": SOUND 32767, 1 -3740 LOCATE 23, 20: PRINT "/": SOUND 32767, 1 -3750 LOCATE 23, 20: PRINT "-": SOUND 32767, 1 -3760 LOCATE 23, 20: PRINT "\": SOUND 32767, 1 -3770 LOCATE 23, 20: PRINT "³": SOUND 32767, 1 -3780 LOCATE 23, 20: PRINT "/": SOUND 32767, 1 -3790 LOCATE 23, 20: PRINT "-"; : SOUND 32767, 1 -3791 'LINE INPUT O$ -3792 NEXT -3795 LINE INPUT O$ -3800 IF LEFT$(O$, 2) = "DR" GOTO 5180 -3810 O$ = LEFT$(O$, 1) -3820 IF O$ = "N" GOTO 4300 -3830 IF (O$ = "S") OR (O$ = "W") OR (O$ = "E") GOTO 4310 -3840 IF O$ = "U" GOTO 4360 -3850 IF O$ = "D" GOTO 4390 -3860 IF O$ = "Þ" GOTO 10210 -3870 IF O$ = "M" GOTO 4440 -3880 IF O$ = "F" THEN ON BL + 1 GOTO 4680, 4440 -3890 IF O$ = "L" THEN ON BL + 1 GOTO 4940, 4440 -3900 IF O$ = "O" GOTO 5370 -3910 IF O$ = "Q" GOTO 6240 -3920 IF O$ = "G" THEN ON BL + 1 GOTO 5830, 4440 -3930 IF O$ = "T" THEN PRINT : ON RF + 1 GOTO 6090, 6130 -3940 IF O$ = "#" GOTO 11050 -3950 IF O$ = "H" GOTO 3970 -3960 GOTO 4280 -3970 INPUT "Do you want a hard copy (Y/N)"; HARD$ -3980 IF HARD$ = "Y" GOTO 11100 -3990 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" -4000 PRINT "º"; : COLOR 27, 0, 1: PRINT " *** TEMPLE OF LOTH'S COMMAND AND INFORMATION SUMMARY ***"; : COLOR 3, 0, 1: PRINT " º" -4010 PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" -4020 PRINT "º The following commands available are: º" -4030 PRINT "º º" -4040 PRINT "º H=Help N=North S=South E=East W=West U=Up º" -4050 PRINT "º D=Down DR=Drink M=Map F=Flare L=Lamp O=Open º" -4060 PRINT "º G=Gaze T=Teleport Q=Quit #=Score º" -4070 PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" -4080 PRINT "º The contents of the rooms are as follows: º" -4090 PRINT "º º" -4100 PRINT "º Î = empty room B = book C = chest º" -4110 PRINT "º D = stairs down ï = entrance/exit Ÿ = flares º" -4120 PRINT "º G = gold pieces = monster è = crystal orb º" -4130 PRINT "º P = magic pool S = sinkhole T = treasure º" -4140 PRINT "º U = stairs up * = Drow Û = warp/amulet º" -4150 PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" -4160 PRINT "º The benefits of having treasures are: º" -4170 PRINT "º º" -4180 PRINT "º RUBY RED - avoid lethargy PALE PEARL - avoid leech º" -4190 PRINT "º GREEN GEM - avoid forgetting OPAL EYE - cure blindness º" -4200 PRINT "º BLUE FLAME - dissolves books NORN STONE - no benefit º" -4210 PRINT "º PALANTIR - no benefit SILMARIL - no benefit º" -4220 PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹" -4230 PRINT -4240 PRINT "Press RETURN when ready to resume, "; R$(RC); "."; -4250 LINE INPUT ""; O$ -4260 GOTO 2970 -4270 PRINT -4280 COLOR 11, 0, 15: PRINT "** Bold "; R$(RC); ", that wasn't a valid command!": COLOR 3, 0, 1 -4290 GOTO 2970 -4300 IF L(FND(Z)) = 2 GOTO 9710 -4310 X = X + (O$ = "N") - (O$ = "S") -4320 Y = Y + (O$ = "W") - (O$ = "E") -4330 X = FNB(X) -4340 Y = FNB(Y) -4350 GOTO 6370 -4360 IF L(FND(Z)) = 3 THEN Z = Z - 1: GOTO 6370 -4370 Z$ = "Up" -4380 GOTO 4410 -4390 Z$ = "Down" -4400 IF L(FND(Z)) = 4 THEN Z = Z + 1: GOTO 6370 -4410 PRINT -4420 COLOR 11, 0, 15: PRINT "** There are no stairs going "; Z$; " from here!": COLOR 3, 0, 1 -4430 GOTO 2970 -4440 IF BL <> 1 GOTO 4520 -4450 PRINT -4460 COLOR 11, 0, 15: PRINT "** You can't see anything "; R$(RC); "!": COLOR 3, 0, 1 -4470 GOTO 2970 -4480 REM -4490 REM DISPLAY MAP OF CURRENT CASTLE LEVEL -4500 REM -4510 COLOR 6, 0, 1 -4520 PRINT -4530 A = X: B = Y -4540 FOR X = 1 TO 8 -4550 FOR Y = 1 TO 8 -4560 Q = L(FND(Z)) -4570 IF Q > 99 THEN Q = Q - 100: Q = 34: REM TO HIDE ROOMS -4580 COLOR 6, 0, 1: IF X = A AND Y = B THEN PRINT "<"; I$(Q); "> "; : GOTO 4600: COLOR 3, 0, 1 -4590 COLOR 6, 0, 1: PRINT " "; I$(Q); " "; : COLOR 3, 0, 1 -4600 NEXT Y -4610 COLOR 3, 0, 1: PRINT -4620 PRINT -4630 NEXT X -4640 X = A: Y = B -4650 GOTO 4890 -4660 COLOR 12, 0, 1: PRINT ") level"; Z: COLOR 3, 0, 1 -4670 GOTO 2970 -4680 IF FL <> 0 GOTO 4740 -4690 COLOR 11, 0, 15: PRINT "** You can't, you're out of flares!": COLOR 3, 0, 1 -4700 GOTO 2970 -4710 REM -4720 REM DISPLAY ADJACENT ROOM CONTENTS WITH FLARE -4730 REM -4740 PRINT -4750 FL = FL - 1 -4760 A = X: B = Y -4770 FOR Q1 = A - 1 TO A + 1 -4780 X = FNB(Q1) -4790 FOR Q2 = B - 1 TO B + 1 -4800 Y = FNB(Q2) -4810 Q = FNE(L(FND(Z))) -4820 L(FND(Z)) = Q -4830 COLOR 12, 0, 1: PRINT " "; I$(Q); " "; : COLOR 3, 0, 1 -4840 NEXT Q2 -4850 PRINT -4860 PRINT -4870 NEXT Q1 -4880 X = A: Y = B -4890 GOSUB 11020 -4900 GOTO 2970 -4910 REM -4920 REM DISPLAY CONTENTS OF ADJACENT ROOM WITH LAMP -4930 REM -4940 IF LF <> 0 GOTO 4980 -4950 PRINT -4960 COLOR 11, 0, 15: PRINT "** You don't have a lamp, "; R$(RC); "!": COLOR 3, 0, 1 -4970 GOTO 2970 -4980 PRINT -4990 PRINT "Where do you want to shine the lamp (N,S,E,W)"; -5000 GOSUB 10710 -5010 A = X: B = Y -5020 X = FNB(X + (O$ = "N") - (O$ = "S")) -5030 Y = FNB(Y + (O$ = "W") - (O$ = "E")) -5040 IF A - X + B - Y <> 0 GOTO 5080 -5050 PRINT -5060 COLOR 11, 0, 15: PRINT "** That's not a direction "; R$(RC); "!": COLOR 3, 0, 1 -5070 GOTO 2970 -5080 PRINT -5090 PRINT "The lamp shines into ("; X; ","; Y; ") level"; Z; "." -5100 PRINT -5110 L(FND(Z)) = FNE(L(FND(Z))) -5120 PRINT "There you will find "; C$(L(FND(Z))); "." -5130 X = A: Y = B -5140 GOTO 2970 -5150 REM -5160 REM TAKE A DRINK FROM A POOL -5170 REM -5180 IF L(FND(Z)) = 5 GOTO 5220 -5190 PRINT -5200 COLOR 11, 0, 15: PRINT "** There is no pool to drink from here!": COLOR 3, 0, 1 -5210 GOTO 2970 -5220 Q = FNA(8) -5230 PRINT -5240 PRINT "You take a drink and "; -5250 IF Q < 7 THEN PRINT "feel "; -5260 ON Q GOTO 5270, 5280, 5290, 5300, 5310, 5320, 5330, 5350 -5270 ST = FNC(ST + FNA(3)): PRINT "stronger.": GOTO 2970 -5280 ST = ST - FNA(3): COLOR 15, 0, 0: PRINT "weaker.": COLOR 7, 0, 0: ON (1 - (ST < 1)) GOTO 2880, 9120 -5290 IQ = FNC(IQ + FNA(3)): PRINT "smarter.": GOTO 2970 -5300 IQ = IQ - FNA(3): COLOR 11, 0, 15: PRINT "dumber.": COLOR 3, 0, 1: ON (1 - (IQ < 1)) GOTO 2970, 9590 -5310 DX = FNC(DX + FNA(3)): PRINT "faster.": GOTO 2970 -5320 DX = DX - FNA(3): COLOR 11, 0, 15: PRINT "clumsier.": COLOR 3, 0, 1: ON (1 - (DX < 1)) GOTO 2970, 9590 -5330 Q = FNA(4): IF Q = RC GOTO 5330 -5340 RC = Q: PRINT "become a "; R$(RC); ".": GOTO 2970 -5350 SX = 1 - SX: PRINT "turn into a "; : IF SX = 0 THEN PRINT "fe"; -5360 PRINT "male "; R$(RC); "!": GOTO 2970 -5370 IF L(FND(Z)) <> 6 GOTO 5410 -5380 PRINT -5390 PRINT "You open the chest and" -5400 GOTO 5670 -5410 IF L(FND(Z)) <> 12 GOTO 5450 -5420 PRINT -5430 PRINT "You open the book and" -5440 GOTO 5480 -5450 PRINT -5460 COLOR 11, 0, 15: PRINT "** there is nothing to open here.": COLOR 3, 0, 1 -5470 GOTO 2970 -5480 ON FNA(6) GOTO 5490, 5520, 5540, 5560, 5590, 5620 -5490 COLOR 0, 15, 15: CLS : PRINT "Flash! Oh no! you are now a blind "; R$(RC); "!" -5500 BL = 1 -5510 GOTO 5650 -5520 PRINT "It's another volume of Nur£cc's poetry! - YECH!!" -5530 GOTO 5650 -5540 PRINT "It's an old copy of Play"; R$(FNA(4)); "!" -5550 GOTO 5650 -5560 PRINT "It's a manual of dexterity!" -5570 DX = 18 -5580 GOTO 5650 -5590 PRINT "It's a manual of strength!" -5600 ST = 18 -5610 GOTO 5650 -5620 COLOR 11, 0, 15: PRINT "The book sticks to your hands -" -5630 PRINT "now you are unable to draw your weapon!": COLOR 3, 0, 1 -5640 BF = 1 -5650 L(FND(Z)) = 1 -5660 GOTO 2970 -5670 ON FNA(4) GOTO 5680, 5730, 5770, 5730 -5680 PRINT -5690 COLOR 14, 0, 15: PRINT "KABOOM!"; : COLOR 3, 0, 1: PRINT " it explodes!!" -5700 Q = FNA(6) -5710 GOSUB 9490 -5720 ON (1 - (ST < 1)) GOTO 5650, 9590 -5730 Q = FNA(1000) -5740 PRINT "find"; Q; "gold pieces!" -5750 GP! = GP! + Q -5760 GOTO 5650 -5770 PRINT -5780 COLOR 5, 0, 15: PRINT "GAS!!"; : COLOR 3, 0, 1: PRINT "you stagger from the room!" -5790 L(FND(Z)) = 1 -5800 T = T + 20 -5810 O$ = MID$("NSEW", FNA(4), 1) -5820 GOTO 4310 -5830 IF L(FND(Z)) = 11 GOTO 5870 -5840 PRINT -5850 COLOR 11, 0, 15: PRINT "**You need an orb to use the gaze command!": COLOR 3, 0, 1 -5860 GOTO 2970 -5870 PRINT -5880 PRINT "You see "; -5890 ON FNA(6) GOTO 5900, 5920, 5940, 5960, 6030, 6070 -5900 PRINT "Yourself in a bloody mess!" -5910 ST = ST - FNA(2): ON (1 - (ST < 1)) GOTO 2970, 9590 -5920 PRINT "Yourself drinking from a pool and becoming "; C$(12 + FNA(13)); "!" -5930 GOTO 2970 -5940 PRINT C$(12 + FNA(13)); " gazing back at you!" -5950 GOTO 2970 -5960 A = X: B = Y: C = Z -5970 X = FNA(8): Y = FNA(8): Z = FNA(8) -5980 Q = FNE(L(FND(Z))) -5990 L(FND(Z)) = Q -6000 PRINT C$(Q); " at ("; X; ","; Y; ") level"; Z; "." -6010 X = A: Y = B: Z = C -6020 GOTO 2970 -6030 A = FNA(8): B = FNA(8): C = FNA(8) -6040 IF FNA(8) < 4 THEN A = O(1): B = O(2): C = O(3) -6050 BEEP: COLOR 12, 0, 15: PRINT "The Amulet of Chaos at ("; A; ","; B; ") level"; C; "!": COLOR 3, 0, 1 -6060 GOTO 2970 -6070 PRINT "a soap opera rerun!" -6080 GOTO 2970 -6090 IF RF <> 0 GOTO 6130 -6100 PRINT -6110 COLOR 11, 0, 15: PRINT "** You can't teleport without the Runestaff!": COLOR 3, 0, 1 -6120 GOTO 2970 -6130 Z$ = "X-Coordinate" -6140 GOSUB 10850 -6150 X = Q -6160 Z$ = "Y-Coordinate" -6170 GOSUB 10850 -6180 Y = Q -6190 Z$ = "Z-Coordinate" -6200 GOSUB 10850 -6210 Z = Q -6220 O$ = "T" -6230 GOTO 6370 -6240 PRINT -6250 PRINT "Do you really want to quit now?"; -6260 GOSUB 10710 -6270 PRINT -6280 IF O$ = "Y" GOTO 6310 -6290 COLOR 11, 0, 15: PRINT "** Then don't say that you do!": COLOR 3, 0, 1 -6300 GOTO 2970 -6310 PRINT -6320 GOTO 9870 -6330 REM -6340 REM DISPLAY STATUS INFORMATION -6350 REM -6360 CLS -6370 COLOR 3, 0, 1: PRINT -6380 IF BL = 0 THEN GOSUB 11020: PRINT -6390 LOCATE 24, 1: COLOR 3, 0, 1 -6400 PRINT "Strength ="; ST; " Intelligence ="; IQ; " Dexterity ="; DX -6410 PRINT "Treasures ="; TC; " Flares ="; FL; " Gold Pieces ="; GP! -6420 PRINT "Turns ="; T; " Weapon = "; W$(WV + 1); " Armor = "; W$(AV + 5); -6430 IF LF = 1 THEN PRINT " and a lamp" -6440 IF LF = 0 THEN PRINT " " -6450 JOHN! = IQ * 100 + ST * 100 + DX * 100 + KM! + FTRS + REQ + GP! - T * 5 -6460 ' IF JOHN! > 30000 THEN JOHN!=30000 -6470 ' IF GP! > 30000 THEN GP!=30000 -6480 PRINT "Score ="; JOHN!; -6490 PRINT " Status = "; -6500 EQUZ = 0 -6510 IF BL = 1 THEN PRINT "-Blinded": EQUZ = 1 -6520 IF BF = 1 THEN PRINT "-Unable to draw weapon": EQUZ = 1 -6530 IF EQUZ = 0 THEN PRINT "-Normal" -6540 MAGICAL = 0 -6550 PRINT "You are carrying "; -6560 IF OF = 1 THEN COLOR 12, 0, 1: PRINT "The Amulet of Chaos": COLOR 3, 0, 1: MAGICAL = 1 -6570 IF RF = 1 THEN PRINT "The Runestaff": MAGICAL = 1 -6580 IF MAGICAL = 0 THEN PRINT "no magical items at the moment" -6590 QXYZ = 0 -6600 PRINT "The treasures you carry are "; -6610 FOR Q = 1 TO 8 -6620 IF T(Q) = 1 THEN PRINT C$(Q + 25): QXYZ = 1 -6630 NEXT Q -6640 IF QXYZ = 0 THEN PRINT "nothing" -6650 IF COME = 1 THEN GOTO 6670 -6660 IF T > 500 THEN GOTO 11380 -6670 WC = 0 -6680 Q = FNE(L(FND(Z))) -6690 L(FND(Z)) = Q -6700 Z$ = "You now have " -6710 PRINT -6720 PRINT "Here you find "; C$(Q); "." -6730 IF (Q < 7) OR (Q = 11) OR (Q = 12) GOTO 2970 -6740 IF Q = 7 THEN GP! = GP! + FNA(10): PRINT Z$; GP!; ".": GOTO 5650 -6750 IF Q = 8 THEN FL = FL + FNA(5): PRINT Z$; FL; ".": GOTO 5650 -6760 IF Q > 9 GOTO 6790 -6770 IF (O(1) = X) AND (O(2) = Y) AND (O(3) = Z) THEN ON (1 - (O$ = "T")) GOTO 4310, 10190 -6780 X = FNA(8): Y = FNA(8): Z = FNA(8): GOTO 6370 -6790 IF Q = 10 THEN Z = FNB(Z + 1): GOTO 6370 -6800 IF Q <= 25 OR Q >= 34 GOTO 6860 -6810 PRINT -6820 PRINT "It's now yours!" -6830 T(Q - 25) = 1 -6840 TC = TC + 1 -6850 GOTO 5650 -6860 A = L(FND(Z)) - 12 -6870 WC = 0 -6880 IF (A < 13) OR (VF = 1) GOTO 8070 -6890 PRINT -6900 PRINT "You may trade with, attack, or ignore the Drow Merchant." -6910 GOSUB 10690 -6920 IF O$ = "I" GOTO 2970 -6930 IF O$ <> "A" GOTO 6980 -6940 VF = 1 -6950 PRINT -6960 COLOR 3, 0, 12: PRINT "You'll be sorry that you did that!" -6970 GOTO 8070 -6980 IF O$ = "T" GOTO 7020 -6990 PRINT -7000 COLOR 11, 0, 15: PRINT "** Nice shot "; R$(RC); "!": COLOR 3, 0, 1 -7010 GOTO 6890 -7020 FOR Q = 1 TO 8 -7030 A = FNA(Q * 1500) -7040 IF T(Q) = 0 GOTO 7100 -7050 PRINT -7060 PRINT "Do you want to sell "; C$(Q + 25); " for "; A; "gp's"; -7070 GOSUB 10710 -7080 IF O$ = "Y" THEN TC = TC - 1: T(Q) = 0: GP! = GP! + A: GOTO 7100 -7090 IF O$ <> "N" THEN PRINT Y$: GOTO 7050 -7100 NEXT Q -7110 IF GP! >= 1000 GOTO 7150 -7120 PRINT -7130 PRINT "You're too poor to trade, "; R$(RC); "." -7140 GOTO 2970 -7150 IF GP! < 1250 GOTO 7650 -7160 PRINT -7170 PRINT "OK "; R$(RC); ", you have "; GP!; "gp's and "; W$(AV + 5); " armor." -7180 PRINT -7190 Z$ = "Armor" -7200 GOSUB 10990 -7210 PRINT "Nothing:0gp's Leather:1250gp's "; -7220 IF GP! > 1499 THEN PRINT "Chainmail:1500:gp's "; -7230 IF GP! > 1999 THEN PRINT "Plate Mail:2000gp's "; -7240 PRINT -7250 GOSUB 10690 -7260 PRINT -7270 IF O$ = "N" GOTO 7400 -7280 IF O$ = "L" THEN GP! = GP! - 1250: AV = 1: AH = 7: GOTO 7400 -7290 IF O$ <> "C" OR GP! >= 1500 GOTO 7320 -7300 COLOR 11, 0, 15: PRINT "** You haven't got that much gold on hand!": COLOR 3, 0, 1 -7310 GOTO 7180 -7320 IF O$ = "C" THEN GP! = GP! - 1500: AV = 2: AH = 14: GOTO 7400 -7330 IF O$ <> "P" OR GP! >= 2000 GOTO 7360 -7340 COLOR 11, 0, 15: PRINT "** You can't afford plate mail!": COLOR 3, 0, 1 -7350 GOTO 7180 -7360 IF O$ = "P" THEN GP! = GP! - 2000: AV = 3: AH = 21: GOTO 7400 -7370 PRINT -7380 COLOR 11, 0, 15: PRINT "** Choose a selection.": COLOR 3, 0, 1 -7390 GOTO 7240 -7400 IF GP! < 1250 GOTO 7650 -7410 PRINT -7420 PRINT "You have"; GP!; "gp's left with "; W$(WV + 1); " in hand." -7430 PRINT -7440 Z$ = "Weapon" -7450 GOSUB 10990 -7460 PRINT "Nothing:- Dagger:1250gp's"; -7470 IF GP! > 1499 THEN PRINT "Mace:1500gp's"; -7480 IF GP! > 1999 THEN PRINT "Sword:2000gp's"; -7490 PRINT -7500 GOSUB 10690 -7510 PRINT -7520 IF O$ = "N" GOTO 7650 -7530 IF O$ = "D" THEN GP! = GP! - 1250: WV = 1: GOTO 7650 -7540 IF O$ <> "M" OR GP! >= 1500 GOTO 7570 -7550 COLOR 11, 0, 15: PRINT "** Sorry sir, I'm afraid I don't give credit!": COLOR 3, 0, 1 -7560 GOTO 7430 -7570 IF O$ = "M" THEN GP! = GP! - 1500: WV = 2: GOTO 7650 -7580 IF O$ <> "S" OR GP! >= 2000 GOTO 7620 -7590 COLOR 11, 0, 15: PRINT "** Your Dungeon Express Card - "; -7600 PRINT "You left home without it!": COLOR 3, 0, 1 -7610 GOTO 7430 -7620 IF O$ = "S" THEN GP! = GP! - 2000: WV = 3: GOTO 7650 -7630 COLOR 11, 0, 15: PRINT "** Try choosing a selection!": COLOR 3, 0, 1 -7640 GOTO 7490 -7650 IF GP! < 1000 GOTO 2970 -7660 Z$ = "Strength" -7670 GOSUB 10930 -7680 IF O$ <> "Y" GOTO 7740 -7690 GP! = GP! - 1000 -7700 ST = FNC(ST + FNA(6)) -7710 Q = ST -7720 GOSUB 10960 -7730 GOTO 7650 -7740 IF O$ <> "N" THEN PRINT Y$: GOTO 7660 -7750 IF GP! < 1000 GOTO 2970 -7760 Z$ = "Intelligence" -7770 GOSUB 10930 -7780 IF O$ <> "Y" GOTO 7840 -7790 GP! = GP! - 1000 -7800 IQ = FNC(IQ + FNA(6)) -7810 Q = IQ -7820 GOSUB 10960 -7830 GOTO 7750 -7840 IF O$ <> "N" THEN PRINT Y$: GOTO 7760 -7850 IF GP! < 1000 GOTO 2970 -7860 Z$ = "Dexterity" -7870 GOSUB 10930 -7880 IF O$ <> "Y" GOTO 7940 -7890 GP! = GP! - 1000 -7900 DX = FNC(DX + FNA(6)) -7910 Q = DX -7920 GOSUB 10960 -7930 GOTO 7850 -7940 IF O$ <> "N" THEN PRINT Y$: GOTO 7860 -7950 IF (GP! < 1000) OR (LF = 1) GOTO 2970 -7960 PRINT -7970 PRINT "Do you want to buy a lamp for 1000 gp's"; -7980 GOSUB 10710 -7990 IF O$ <> "Y" GOTO 8050 -8000 GP! = GP! - 1000 -8010 LF = 1 -8020 PRINT -8030 PRINT "It's guaranteed to outlive you!" -8040 GOTO 2970 -8050 IF O$ <> "N" THEN PRINT Y$: GOTO 7960 -8060 GOTO 2970 -8070 Q1 = 1 + INT(A / 2): Q2 = A + 2: Q3 = 1 -8080 IF (C(1, 4) > T(1)) OR (BL = 1) OR (DX < FNA(9) + FNA(9)) GOTO 9100 -8090 PRINT -8100 COLOR 3, 0, 12: PRINT "You're confronting "; C$(A + 12); "!" -8110 PRINT -8120 PRINT "You may attack or retreat (strongly suggested!)." -8130 IF Q3 = 1 THEN PRINT "You can also attempt to bribe the creature." -8140 IF IQ > 14 THEN PRINT "You can also cast a spell." -8150 PRINT -8160 PRINT "Your strength is"; ST; "and your dexterity is"; DX; "." -8170 GOSUB 10690 -8180 IF O$ <> "A" GOTO 8590 -8190 IF WV <> 0 GOTO 8230 -8200 PRINT -8210 COLOR 11, 0, 15: PRINT "** Pounding on "; C$(A + 12); " won't hurt it!": COLOR 3, 0, 12 -8220 GOTO 9100 -8230 IF BF <> 1 GOTO 8270 -8240 PRINT -8250 COLOR 11, 0, 15: PRINT "** You can't kill it with a book, so I suggest you either attack or retreat!": COLOR 3, 0, 12 -8260 GOTO 9100 -8270 IF DX >= FNA(20) + (3 * BL) GOTO 8310 -8280 PRINT -8290 PRINT "You barely missed the "; C$(A + 12); "!" -8300 GOTO 9100 -8310 Z$ = RIGHT$(C$(A + 12), LEN(C$(A + 12)) - 2) -8320 IF LEFT$(Z$, 1) = " " THEN Z$ = MID$(Z$, 2) -8330 PRINT -8340 PRINT "A valiant blow, you hit the "; Z$; "!" -8350 Q2 = Q2 - WV -8360 IF (A <> 9 AND A <> 12) GOTO 8410 -8370 IF FNA(8) <> 1 GOTO 8410 -8380 PRINT -8390 COLOR 11, 0, 15: BEEP: BEEP: PRINT "OH NO! Your "; W$(WV + 1); " broke!": BEEP: BEEP: COLOR 3, 0, 12 -8400 WV = 0 -8410 IF Q2 > 0 GOTO 9100 -8420 PRINT -8430 MC = MC - 1 -8440 PRINT "You kill "; C$(A + 12); "." -8445 KM! = KM! + 1000 -8450 IF H > T - 60 GOTO 8490 -8460 PRINT -8470 PRINT "You spend an hour eating "; C$(A + 12); E$(FNA(8)); "." -8480 H = T -8490 IF X <> R(1) OR Y <> R(2) OR Z <> R(3) THEN ON (1 - (A = 13)) GOTO 8540, 10490 -8500 PRINT -8510 COLOR 11, 0, 15: BEEP: PRINT "You've found the Runestaff!": BEEP: COLOR 3, 0, 12 -8515 FTRS = 10000 -8520 R(1) = 0 -8530 RF = 1 -8540 Q = FNA(1000) -8550 PRINT -8560 PRINT "You now get his hoard of"; Q; "gp's!" -8570 GP! = GP! + Q -8580 GOTO 5650 -8590 IF O$ = "R" GOTO 9100 -8600 IF O$ <> "C" GOTO 8890 -8610 IF IQ >= 15 OR Q3 <= 1 GOTO 8650 -8620 PRINT -8630 COLOR 11, 0, 15: PRINT "** You can't cast a spell now!": COLOR 3, 0, 12 -8640 GOTO 8090 -8650 PRINT -8660 PRINT "Which spell do you wish to cast, Web, Fireball, or Deathspell?"; -8670 GOSUB 10710 -8680 PRINT -8690 IF O$ <> "W" GOTO 8730 -8700 ST = ST - 1 -8710 WC = FNA(8) + 1 -8720 ON (1 - (ST < 1)) GOTO 9100, 9590 -8730 IF O$ <> "F" GOTO 8820 -8740 Q = FNA(7) + FNA(7) -8750 ST = ST - 1 -8760 IQ = IQ - 1 -8770 IF (IQ < 1) OR (ST < 1) GOTO 9590 -8780 PRINT "It does"; Q; "points worth of damage." -8790 PRINT -8800 Q2 = Q2 - Q -8810 GOTO 8410 -8820 IF O$ = "D" GOTO 8860 -8830 PRINT -8840 COLOR 11, 0, 15: PRINT "** Try one of the options given.": COLOR 3, 0, 12 -8850 GOTO 8090 -8860 PRINT "Death is. . . "; -8870 IF IQ < FNA(4) + 15 THEN PRINT "yours!": IQ = 0: GOTO 9590 -8880 PRINT "his!": Q2 = 0: GOTO 8420 -8890 IF O$ = "B" AND Q3 <= 1 GOTO 8930 -8900 PRINT -8910 COLOR 11, 0, 15: PRINT "** Choose one of the options listed.": COLOR 3, 0, 12 -8920 GOTO 8090 -8930 IF TC <> 0 GOTO 8970 -8940 PRINT -8950 PRINT "All I want is your life!" -8960 GOTO 9100 -8970 Q = FNA(8) -8980 IF T(Q) = 0 GOTO 8970 -8990 PRINT -9000 PRINT "I want "; C$(Q + 25); ". Will you give it to me?"; -9010 GOSUB 10710 -9020 IF O$ = "N" GOTO 9100 -9030 IF O$ <> "Y" THEN PRINT Y$: GOTO 8990 -9040 T(Q) = 0 -9050 TC = TC - 1 -9060 PRINT -9070 PRINT "OK, just don't tell anyone else." -9080 VF = VF + (L(FND(Z)) = 25) -9090 GOTO 2970 -9100 Q3 = 2 -9110 IF WC <= 0 GOTO 9140 -9120 WC = WC - 1 -9130 IF WC = 0 THEN PRINT : PRINT "The web just broke!" -9140 Z$ = RIGHT$(C$(A + 12), LEN(C$(A + 12)) - 2) -9150 IF LEFT$(Z$, 1) = " " THEN Z$ = MID$(Z$, 2) -9160 IF WC <= 0 GOTO 9200 -9170 PRINT -9180 PRINT "The "; Z$; " is stuck and can't attack now!" -9190 GOTO 9380 -9200 PRINT -9210 PRINT "The "; Z$; " attacks!" -9220 IF DX < FNA(7) + FNA(7) + FNA(7) + 3 * BL GOTO 9330 -9230 PRINT -9240 HIT = INT(RND(0) * 2 + 1) -9250 ON HIT GOTO 9260, 9280, 9300 -9260 PRINT "The blow barely misses your left leg making sparks a huge dent in the floor!" -9270 GOTO 9380 -9280 PRINT "The "; Z$; " charges at you but you dodge out of the way just in time!" -9290 GOTO 9380 -9300 PRINT "The "; Z$; " just barely misses your ear!" -9310 GOTO 9380 -9320 GOTO 9380 -9330 PRINT -9340 COLOR 12, 0, 4: BEEP: PRINT "Thud! The "; Z$; " hit you!": BEEP: COLOR 3, 0, 12 -9350 Q = Q1 -9360 GOSUB 9490 -9370 IF ST < 1 GOTO 9590 -9380 IF O$ <> "R" GOTO 8090 -9390 PRINT -9400 PRINT "You have escaped!" -9410 PRINT -9420 PRINT "Do you want to go North, South, East, or West?"; -9430 GOSUB 10710 -9440 IF O$ = "N" OR O$ = "S" OR O$ = "E" OR O$ = "W" GOTO 4310 -9450 PRINT -9460 COLOR 11, 0, 15: PRINT "** Don't press your luck, "; R$(RC); "!": COLOR 3, 0, 12 -9470 PRINT -9480 GOTO 9420 -9490 IF AV = 0 GOTO 9570 -9500 Q = Q - AV -9510 AH = AH - AV -9520 IF Q < 0 THEN AH = AH - Q: Q = 0 -9530 IF AH >= 0 GOTO 9570 -9540 AH = 0: AV = 0 -9550 PRINT -9560 PRINT "Your armor is damaged beyond use . . . good luck!" -9570 ST = ST - Q -9580 RETURN -9590 BEEP -9600 GOSUB 10630 -9610 COLOR 3, 0, 7: PRINT "A noble effort, oh formerly living "; R$(RC); "!" -9620 PRINT -9630 PRINT "You died due to lack of "; -9640 IF ST < 1 THEN PRINT "Strength." -9650 IF IQ < 1 THEN PRINT "Intelligence." -9660 IF DX < 1 THEN PRINT "Dexterity." -9670 PRINT -9680 Q3 = 1 -9690 PRINT "At the time you died, you had :" -9700 GOTO 9920 -9710 Q3 = 0 -9720 PRINT -9730 PRINT "You left the castle with"; -9740 IF OF = 0 THEN PRINT "out"; -9750 PRINT " the Amulet of Chaos." -9760 PRINT -9770 IF OF = 0 GOTO 9870 -9780 CLS -9790 COLOR 11, 0, 15: PRINT " Ü Ü ÜÜÜ Ü Ü Ü Ü Ü Ü Ü Ü Ü" -9800 PRINT " ßÜÜÜß Û Û Û Û Û Ü Û Û ÛßÜ Û Û Û" -9810 PRINT " Û ßÜÜÜß ßÜÜÜß Û Û Û Û ßÛ Ü Ü" -9820 PRINT -9830 BEEP: PRINT "An incredibly glorious victory!!!!": BEEP: BEEP: BEEP: COLOR 3, 0, 1 -9840 PRINT -9850 PRINT "In addition, you got out with the following:" -9860 GOTO 9910 -9870 PRINT -9880 PRINT "A less than awe-inspiring defeat." -9890 PRINT -9900 PRINT "When you left the castle, you had:" -9910 IF Q3 = 0 THEN PRINT "Your miserable life!" -9920 FOR Q = 1 TO 8 -9930 IF T(Q) = 1 THEN PRINT C$(Q + 25) -9940 NEXT Q -9950 PRINT W$(WV + 1); " and "; W$(AV + 5); -9960 IF LF = 1 THEN PRINT " and a lamp"; -9970 PRINT -9980 PRINT "You also had"; FL; "flares and"; GP!; "gold pieces" -9990 IF RF = 1 THEN PRINT "and the Runestaff" -10000 PRINT "Your score was "; JOHN! -10010 PRINT "And it took you"; T; "turns!" -10020 IF JOHN! < 20000 THEN RANK$ = "a Wimp" -10021 IF JOHN! > 35000! THEN RANK$ = "a Peasant" -10022 IF JOHN! > 50000! THEN RANK$ = "an Amateur" -10023 IF JOHN! > 75000! THEN RANK$ = "a Scout" -10024 IF JOHN! > 90000! THEN RANK$ = "an Adventurer" -10025 IF JOHN! > 110000! THEN RANK$ = "a Hero" -10026 IF JOHN! > 125000! THEN RANK$ = "a Wizard" -10027 IF JOHN! > 140000! THEN GOTO 11999 -10040 'GOTO 11290 -10050 PRINT "You are ranked as "; RANK$ -10051 PRINT -10060 PRINT " Are you foolish enough to want to play again?"; -10070 GOSUB 10710 -10080 PRINT -10090 IF O$ <> "Y" GOTO 10150 -10100 PRINT "Some "; R$(RC); "s never learn!" -10110 PRINT -10120 PRINT "Please be patient while the castle is restocked." -10130 PRINT -10140 GOTO 910 -10150 IF O$ <> "N" THEN PRINT Y$: GOTO 10050 -10160 PRINT "Maybe dumb "; R$(RC); " is not so dumb after all!" -10170 PRINT -10180 GOTO 11040 -10190 PRINT -10200 'PRINT "Great unmitigated Nur£cc!" -10210 PRINT -10220 COLOR 28, 0, 15: BEEP: BEEP: PRINT "You just found The Amulet of Chaos!": BEEP: BEEP: COLOR 3, 0, 1 -10230 ST = 18 -10240 IQ = 18 -10250 DX = 18 -10260 REQ = 20000 -10261 BF = 0 -10262 BL = 0 -10270 PRINT -10280 PRINT "The Runestaff has just disappeared!" -10290 RF = 0 -10300 OF = 1 -10310 O(1) = 0 -10320 GOTO 5650 -10330 DATA An empty room,Î,the entrance,ï,stairs going up,U -10340 DATA stairs going down,D,a pool,P,a chest,C,gold pieces,G -10350 DATA flares,Ÿ,a warp,Û,a sinkhole,S,a Crystal Orb,è -10360 DATA a book,B,a Green Slime,²,an Orc,,an Evil Dwarf,,a Goblin,,a Mind Flayer, -10370 DATA a Troll,,a Giant spider,,a Minotar,,a Drow,*,a Drider, -10380 DATA a Balor Demon,,a Red Dragon,ë,a Drow Merchant,ê,the Ruby Red,T -10390 DATA the Norn Stone,T,the Pale Pearl,T,the Opal Eye,T -10400 DATA the Green Gem,T,the Blue Flame,T,the Palantir,T,the Silmaril,T -10410 DATA X,"?",no weapon," Sandwich" -10420 DATA Dagger," stew",Mace," soup",Sword," burger",No armor," roast" -10430 DATA Leather," filet",Chainmail," taco",Plate mail," pie" -10440 DATA Hobbit,Elf,Man,Dwarf -10450 X = FNA(8): Y = FNA(8) -10460 IF L(FND(Z)) <> 101 GOTO 10450 -10470 L(FND(Z)) = Q -10480 RETURN -10490 PRINT -10500 PRINT "You get all his wares :" -10510 PRINT "Plate mail" -10520 AV = 3: AH = 21 -10530 PRINT "A sword" -10540 WV = 3 -10550 PRINT "A strength potion" -10560 ST = FNC(ST + FNA(6)) -10570 PRINT "An intelligence potion" -10580 IQ = FNC(IQ + FNA(6)) -10590 PRINT "A dexterity potion" -10600 DX = FNC(DX + FNA(6)) -10610 IF LF = 0 THEN PRINT "A lamp": LF = 1 -10620 GOTO 8540 -10630 FOR Q = 1 TO 64 -10640 PRINT "*"; -10650 NEXT Q -10660 PRINT -10670 PRINT -10680 RETURN -10690 PRINT -10700 PRINT "Your choice"; -10710 INPUT O$ -10720 O$ = LEFT$(O$, 1) -10730 RETURN -10740 PRINT "How many points do you wish to add to your "; Z$; -10750 INPUT O$ -10760 PRINT -10770 Q = VAL(O$) -10780 IF Q = 0 AND ASC(O$) <> 48 THEN Q = -1 -10790 IF Q < 0 OR Q > OT OR Q <> INT(Q) THEN PRINT "** "; : GOTO 10740 -10800 OT = OT - Q -10810 RETURN -10820 INPUT O$ -10830 Q = INT(VAL(O$)) -10840 RETURN -10850 PRINT -10860 PRINT Z$; -10870 INPUT O$ -10880 Q = INT(VAL(O$)) -10890 IF Q > 0 AND Q < 9 THEN RETURN -10900 PRINT -10910 COLOR 11, 0, 15: PRINT "** Try a number from 1 to 8.": COLOR 3, 0, 1 -10920 GOTO 10850 -10930 PRINT -10940 PRINT "Do you want to buy a potion of "; Z$; " for 1000 gp's"; -10950 GOTO 10710 -10960 PRINT -10970 PRINT "Your "; Z$; " is now"; Q; "." -10980 RETURN -10990 PRINT -11000 PRINT "These are the types of "; Z$; " you can buy :" -11010 RETURN -11020 COLOR 2, 0, 1: PRINT "You are at ("; X; ","; Y; ") level"; Z; ".": COLOR 3, 0, 1 -11030 RETURN -11040 SYSTEM -11050 LET JOHN! = ST + IQ + DX + GP! - T -11060 PRINT -11070 PRINT "Your score at this time is "; JOHN! -11080 PRINT -11090 GOTO 3690 - -11100 - OPEN "help.txt" FOR OUTPUT AS #1 - PRINT #1, "*** TEMPLE OF LOTH'S COMMAND AND INFORMATION SUMMARY ***" -11110 PRINT #1, -11120 PRINT #1, "The following commands available are:" -11130 PRINT #1, -11140 PRINT #1, "H=Help N=North S=South E=East W=West U=Up" -11150 PRINT #1, "D=Down DR=Drink M=Map F=Flare L=Lamp O=Open" -11160 PRINT #1, "G=Gaze T=Teleport Q=Quit #=Score" -11170 PRINT #1, -11180 PRINT #1, "The contents of the rooms are as follows:" -11190 PRINT #1, -11200 PRINT #1, "Î = empty room B = book C = chest" -11210 PRINT #1, "D = stairs down ï = entrance/exit Ÿ = flares" -11220 PRINT #1, "G = gold pieces = monster è = crystal orb" -11230 PRINT #1, "P = magic pool S = sinkhole T = treasure" -11240 PRINT #1, "U = stairs up * = Drow Û = warp/amulet" -11250 PRINT #1, -11260 PRINT #1, -11270 PRINT #1, "The benefits of having treasures are:" -11280 PRINT #1, -11290 PRINT #1, "RUBY RED - avoid lethargy PALE PEARL - avoid leech" -11300 PRINT #1, "GREEN GEM - avoid forgetting OPAL EYE - cure blindness" -11310 PRINT #1, "BLUE FLAME - dissolves books NORN STONE - no benefit" -11320 PRINT #1, "PALANTIR - no benefit SILMARIL - no benefit" -11330 PRINT #1, - CLOSE #1 - PRINT "HELP.TXT created!" - SLEEP 3 -11340 GOTO 3700 -11350 END -11360 RF = 1 -11370 GOTO 3700 -11380 PRINT -11390 COME = 1 -11400 PRINT "You hear footsteps..."; -11410 SOUND 32767, 28 -11420 PRINT "The footsteps get louder!" -11430 SOUND 32767, 28 -11440 PRINT "You hear people talking in a strange language." -11450 SOUND 32767, 28 -11460 PRINT "Oh, No!! the Drow have returned!!!" -11470 DROW = INT(RND * 100) -11480 IF DROW < 10 GOTO 11530 -11490 ST = 0 -11500 IQ = 0 -11510 DX = 0 -11520 GOTO 9600 -11530 PRINT -11540 PRINT "You escaped just in time!" -11550 PRINT -11560 GOTO 9760 -11570 'CHAIN"TEM-INS.BAS",10 - -99910 'CLS:KEY OFF:COLOR 3,0,1 - CLS : COLOR 3, 0, 1 - LOCATE 1, 28: COLOR 27, 0, 1: PRINT "Temple of Loth instructions" - COLOR 3, 0, 1: LOCATE 4, 3 - PRINT " Temple of Loth is a computerized simulation of one of the most common and popular fantasy motifs, the lone adventurer's quest with an immense under ground labyrinth. Each game is separate from all others, so the game is a" - PRINT " challenge even after you have won. Each game will result in a win or loss depending on the player's skill and luck. The instruction which follow will explain the rules and options of the game." - COLOR 3, 0, 1: LOCATE 12, 7: PRINT "A. Character Creation" - 'LOCATE 4, 45: PRINT "A. Sex" - 'LOCATE 5, 7: PRINT "C. Points" - LOCATE 12, 45: PRINT "B. Equipments" - 'LOCATE 5, 7: PRINT "C. Lamps and Flares" - LOCATE 13, 7: PRINT "C. The Temple" - LOCATE 13, 45: PRINT "D. Player Commands" - LOCATE 14, 7: PRINT "E. Magic Spells" - LOCATE 14, 45: PRINT "F. Treasures, Curses and Such" - LOCATE 15, 7: PRINT "G. Drow Merchants" - LOCATE 15, 45: PRINT "H. Monsters and The Runestaff" - LOCATE 16, 7: PRINT "I. Warps and "; : COLOR 11, 0, 1: PRINT "The Amulet of Chaos ": COLOR 3, 0, 1 - LOCATE 16, 45: PRINT "J. Error Messages" - LOCATE 17, 7: PRINT "K. Scoring" - LOCATE 17, 45: PRINT "L. Comments and Suggestions" - LOCATE 18, 7: PRINT "M. Return to game" -999210 LOCATE 20, 6 - COLOR 11, 0, 1: INPUT "Type in the letter of the section desired then press return"; A$ - A$ = CHR$(ASC(A$) OR &H20) - IF A$="a" goto 999380 - IF A$="b" goto 999610 - IF A$="c" goto 999870 - IF A$="d" goto 9991190 - IF A$="e" goto 9991650 - IF A$="f" goto 9991770 - IF A$="g" goto 9992060 - IF A$="h" goto 9992160 - IF A$="i" goto 9992290 - IF A$="j" goto 9992390 - IF A$="l" goto 9992470 - IF A$="k" goto 9992600 - IF A$="m" goto 9993000 - PRINT - COLOR 11, 0, 15: PRINT "Invalid input, try again": COLOR 3, 0, 1 - GOTO 999210 -999380 CLS - COLOR 11, 0, 1 - PRINT " CHARACTER CREATION" - PRINT : COLOR 3, 0, 1 - PRINT " At the start of each game you will be asked a number of questions about" - PRINT "what type of character you will have. You must make the choices as follows:" - PRINT - PRINT "RACE You may be an Elf, Dwarf, Man, or Hobbit. Each score is randomly " - PRINT " generated, but bonus and deductions are different for each race." - PRINT - PRINT "SEX You may be a female or male. Both are equal in number of points." - PRINT " Be creative in your response." - PRINT - PRINT "POINTS Each character starts with a number of points for the attributes" - PRINT " of strength (ST), intelligence (IQ), and dexterity (DX). In addition," - PRINT " there are some other points you may distribute between these three" - PRINT " attributes as you wish." - PRINT - PRINT " Your ST, IQ, and DX may be any number from 1 to 18. If any of the " - PRINT " three drop below 1, you have died. For all three attributes, the " - PRINT " larger the numerical value, the better. " - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -999610 CLS : COLOR 11, 0, 1 - PRINT " EQUIPMENT" - PRINT : COLOR 3, 0, 1 - PRINT " Every character is given 60 gold pieces (gp's), at the beginning of each" - PRINT "to purchase some of the following items." - PRINT - PRINT "ARMOR You may buy platemail armor for 30 gp's, chainmail for 20 gp's or" - PRINT " leather for 10 gp's. You can only wear one suit of armor at a time." - PRINT " The more expensive the armor, the more damage it will absorb." - PRINT - PRINT "WEAPONS You may buy a sword for 30 gp's, a mace for 20 gp's, or a dagger for " - PRINT " 10 gp's. You can only carry a single weapon at a time. The more ex-" - PRINT " pensive the weapon, the more damage it does to the various monsters." - PRINT - PRINT "LAMP If after selecting armor and weapons, you have 20 gp's left , you may" - PRINT " buy a lamp for 20 gp's. Having the lamp will allow you to look into" - PRINT " an adjacent room without having to enter it." - PRINT - PRINT "FLARES If, after all purchases , you have money left, you may buy flares for" - PRINT " 1 gp each. Lighting a flare reveals the contents of all the rooms " - PRINT " surrounding your current location." - PRINT - PRINT " Once you have equipped your character, you are ready to enter the" - PRINT " Temple and begin your quest." - LOCATE 25, 1: INPUT "Press enter to return to main menu."; B$ - GOTO 99910 -999870 CLS : COLOR 11, 0, 1 - PRINT " THE TEMPLE" - COLOR 3, 0, 1: PRINT - PRINT _ -" The temple is arranged in a 8x8x8 three dimensional matrix. This means that there are 8 levels with 64 rooms on each level. The temple levels are are numbered from 1 (the top level) to 8 (the bottom level. Each temple level" - PRINT " is constructed in a doughnut like fashion, in that the north edge is connect to the south edge and the east edge is connected to the west edge. In a sim- ular fashion, the sinkholes, explain later, on level 8 will "; DROP; _ -" you down" - PRINT " to level 1. The only room that does not work in this fashion is always locat- ed at location (1,4) level 1. Going north from this room will take you out of the temple and end the game." - PRINT - PRINT " Each room of the temple will have contents as one of the following." - PRINT - PRINT " ï = The entrance / exit room" - PRINT " Î = An empty room containing nothing" - PRINT " U = Stairs going up a level" - PRINT " D = Stairs going down a level" - PRINT " P = Magic Pool from which you may drink" - PRINT " C = A chest you may open." - PRINT " B = A book you may open" - PRINT " G = From 1 to 10 gold pieces" - PRINT " Ÿ = From 1 to 3 flares" - PRINT " Û = A warp to another random location" - LOCATE 25, 1: INPUT "Press return to continue"; B$ - LOCATE 25, 1: PRINT " " - LOCATE 22, 1 - PRINT " = A monster (1 of 9 different types)" - PRINT " * = A Drow fighter" - PRINT " è = A crystal orb" - PRINT " T = A treasure (1 of 8 in the castle)" - PRINT " ² = A Green Slime" - PRINT " 4 = A Red Dragon" - PRINT - PRINT " The letters are the abbreviations for the room contents which are display- ed whenever you look at a map or light a flare. When you look at a map, the room you are currently located in is bracketed by < >" - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9991190 CLS : COLOR 11, 0, 1 - PRINT " PLAYER COMMANDS" - COLOR 3, 0, 1: PRINT - PRINT " Whenever the program asks for a command, you must decide what action you wish to preform. If your choice is not valid, the program will inform you and allow you to try agian. The following is a list of commands which the pro-" - PRINT " gram understands, with a description of their effects and restrictions:" - PRINT - PRINT " NORTH Moves you to the room north from your present position. When go north from the entrance / exit room, the game terminates. In all cases, the north edge wraps around from the south." - PRINT - PRINT " SOUTH Moves you to the room south of your present position. In all cases, the south edge wraps around to the north edge." - PRINT - PRINT " EAST Moves you to the room east of your present position. In all cases, the east edge wraps around to the west." - PRINT - PRINT " WEST Moves you to the room west of your present position. In all cases, the west edge wraps around to the east." - PRINT - PRINT " UP/DOWN Causes you to ascend/descend stairs. You must be in a room containing stairs to use this command." - PRINT - LOCATE 25, 1: INPUT "Press return to continue"; B$ - LOCATE 25, 1: PRINT " " - LOCATE 22, 1 - PRINT " DRINK Causes you to take a drink from a magic pool. You may repeat this command as often as you wish, but you must be in a room with a pool to use this command." - PRINT - PRINT " MAP Causes a map of the level you are currently on to be printed. All unexplored rooms are displayed as `?'. All other rooms are dis- played as their one character symbols. You may look at your map at" - PRINT - PRINT _ -" FLARE Cause one of your flares to be lit, revealing the contents of all the rooms surrounding your current location. Because each edge is joined to the opposite edge, you will always see nine rooms with your loca-" - PRINT " as long as you have some and you are not blind or fighting a monster." - PRINT - PRINT _ -" LAMP Allows you to shine your lamp into any one of the rooms north, south, east, and west of your current position, revealing the room contents. Unlike flares, the lamp may be used repeatedly. You may use your lamp" - PRINT " at any time as long as you have one, are not blind, and not attacking a monster." - PRINT - PRINT " OPEN Causes you to open a book or a chest which is in the room with you." - PRINT - LOCATE 25, 1: INPUT "Press return to continue"; B$ - LOCATE 25, 1: PRINT " " - LOCATE 22, 1 - PRINT " GAZE Causes you to gaze into a crystal orb. When you see yourself in a bloody mess, you lose 1 or 2 points of strength. When you see the location of the "; : COLOR 11, 0, 1: PRINT "Amulet of Chaos"; : _ -COLOR 3, 0, 1 - PRINT ", there is only a 50% chance that it " - PRINT " is correct. You cannot gaze when you are blind or when you are not in a room containing a crystal orb." - PRINT - PRINT " TELE- Allows you to teleport directly into a specific room any where in the PORT temple. This is the only way you can can enter the room containing the"; : COLOR 11, 0, 1: PRINT " Amulet of Chaos."; : COLOR 3, 0, 1 - PRINT " You must have the Runestaff to teleport!" - PRINT - PRINT " QUIT Allows you to end the game while you are still in the temple. You will be asked if you are, in case you change your mind. If you quit, you will lose the game." - PRINT - PRINT " HELP Causes a summary of available commands, abbreviations used in des- cribing the contents of rooms, and the benefits of possessing each of the treasures to be displayed at any time." - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9991650 CLS : COLOR 11, 0, 2 - PRINT " MAGIC SPELLS" - COLOR 3, 0, 1: PRINT - PRINT " When ever your intelligence (IQ) becomes 15 or higher, you gain the option of casting a magic spell on a monster if you have the very first combat option. The three spells and there effects are as follows:" - PRINT - PRINT " WEB Traps the monster in a sticky web so that it can't fight back as you attack it. This spell lasts from 2 to 9 turns and costs you one strength (ST) point." - PRINT - PRINT " FIRE- Hits the monster with a ball of flame that causes between 2 and 14 BALL points worth of damage instantly. It costs one strength points and one point of intelligence." - PRINT - PRINT " DEATH is a contest of will between the monster and yourself, whoever has the lower intelligence dies at once. It costs nothing to use, but it is very risky. Even with an IQ of 18 (the highest possible), you" - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9991770 CLS : COLOR 11, 0, 1 - PRINT " TREASURE, CURSES, AND SUCH" - COLOR 3, 0, 1: PRINT - PRINT " In the temple there are eight randomly placed treasures:" - PRINT - PRINT " The Ruby Red - Wards off the curse of lethargy." - PRINT " The Pale Pearl - Wards off the curse of the leech." - PRINT " The Opal Eye - Cures blindness." - PRINT " The Green Gem - Wards off the curse of forgetfulness." - PRINT " The Blue Flame - Dissolves books stuck to your hands." - PRINT " The Norn Stone - Has no special power." - PRINT " The Palantir - Has no special power." - PRINT " The Silmaril - Has no special power." - PRINT - PRINT " THERE ARE THREE CURSES:" - PRINT - PRINT " LETHARGY - This gives the monster the first attack which prevents you from bribing him or casting a spell on them." - PRINT - PRINT " LEECH - This takes from 1 to 5 gp's from you each turn until you have no gold left at all!" - PRINT - LOCATE 25, 1: INPUT "Press return to continue"; B$ - LOCATE 25, 1: PRINT " " - LOCATE 20, 1 - PRINT " FORGETFULNESS - This causes you to forget what you know about each level of the temple. Your map will slowly turn back to all question marks, How- ever, the contents of the rooms stay the same." - PRINT - PRINT " In addition to nullifying the effects of the curses, the treasures can also provide protection from two undesirable things which can happen when you open a book. These are going blind and which prevent you from" - PRINT " seeing your maps, lighting flares, using your lamp, gazing into orbs, and being informed or your current location, and secondly, having a book stuck to your hands, which prevents you to draw your weapon to fight" - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9992060 CLS : COLOR 11, 0, 1 - PRINT " DROW MERCHANTS" - COLOR 3, 0, 1: PRINT - PRINT _ -" On every level there are Drow Merchants who sell necessary items at in- flated prices. Normally, the merchants will make you an offer for every treasure you have, and then, depending on the amount of gold you have, will" - PRINT " sell you new armor, a new weapon, a potion of strength, intelligence, and dexterity (no matter how many potions you buy, the maximum amount for these" - PRINT " attributes is 18), and a lamp, if you don't already have one. If you chose to attack the merchant, you will antagonize every one in the temple, and they will all react as monsters. You will also lose the ability to trade with" - PRINT " them. Killing a merchant, however, will give you new platemail, a sword, one of each kind of potion, and a lamp (if you don't already have one, in add- ition to his hoard of between 1 and 1000 gold pieces. To end hostilities" - PRINT " and reestablish trading privileges, you must bribe any Merchant Drow in the castle with the treasure of his choice." - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9992160 CLS : COLOR 11, 0, 1 - PRINT " MONSTERS AND THE RUNESTAFF" - COLOR 3, 0, 1: PRINT - PRINT " There are 12 types of monsters in the temple:" - PRINT - PRINT " Green Slime, Orcs, Evil Dwarfs, Goblins, Mind Flayers, Trolls, Giant Spiders Minotaurs, Driders, Balor Demon, Reds Dragons, and Drow Warriors." - PRINT - PRINT " Please note that each time you strike a Drow Warrior or a Red Dragon, there is a chance that your weapon will be shattered." - PRINT - PRINT _ -" Each monster possesses a hoard of from 1 to 1000 gp's which you obtain when you kill a monster. In addition, one of the monsters is also carring The Runestaff, (you won't know which until one until you kill it). You must have" - PRINT " The Runestaff to teleport, and when you teleport into the room with The Amulet of Chaos, The Runestaff will disappear. (You must find your way out of the temple without it)." - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9992290 CLS : COLOR 11, 0, 1 - PRINT " WARPS AND "; : COLOR 27, 0, 1: PRINT "THE AMULET OF CHAOS" - COLOR 3, 0, 1: PRINT - PRINT " All but one of the rooms donated as `Û' are truly warps. Walking, fall- ing, or teleporting into one of these warps will cause you to be instantly transported to anywhere in the temple at random. The one exception to this" - PRINT " rule is the room containing "; : COLOR 11, 0, 1: PRINT "The Amulet of Chaos"; : COLOR 3, 0, 1: PRINT ". This room is disguised as a" - PRINT " warp. Walking into this room causes you to move one room further in the same direction. To actually enter this room, you must teleport in using The Rune-" - PRINT " staff. At this point, you will acquire "; : COLOR 11, 0, 1: PRINT "The Amulet of Chaos"; : COLOR 3, 0, 1: PRINT ". The Runestaff will" - PRINT " disappear at this point. Remember, to win the game, you must leave the temple with the amulet in your possession." - LOCATE 25, 1: INPUT "Press enter to return to the main menu"; B$ - GOTO 99910 -9992390 CLS : COLOR 11, 0, 1 - PRINT " ERROR MESSAGES" - COLOR 3, 0, 1: PRINT - PRINT " Anytime you receive a highlighted message with a `**', it means that the last thing you typed was unacceptable to the program at the time. For in- " - PRINT " stance "; : COLOR 11, 0, 1: PRINT "** It's hard to gaze without an orb."; : COLOR 3, 0, 1: PRINT ", this means that you tried to" - PRINT " gaze from a room which did not contain a crystal orb. You are always required to redo your last response when you receive an `**' message." - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9992470 CLS : COLOR 11, 0, 1 - PRINT " COMMENTS AND SUGGESTION" - COLOR 3, 0, 1: PRINT - PRINT " I hope that all enjoy this program. If you have any comments or suggest- ions, please send them to:" - PRINT - PRINT " John Belew" - PRINT " 4329 Lenoso Common" - PRINT " Fremont CA, 94536" - PRINT - PRINT " if you have any ideas to improve this program yourself please do. Upload your improved version on Wes Meier's RBBS at area code (415) 937-0156." - PRINT "" - LOCATE 25, 1: INPUT "Press enter to return to main menu"; B$ - GOTO 99910 -9992600 CLS : COLOR 11, 0, 1 - PRINT " SCORING " - COLOR 3, 0, 1: PRINT - PRINT " Each game that you play you will be given a score. The scoring formula goes as follows:" - PRINT - PRINT " 1 point for each gold piece + 100 times your combined attribute scores" - PRINT - PRINT " + 1000 points for each monster killed - 5 times the turns played" - PRINT - PRINT " Bonus points are scored as follows:" - PRINT "" - PRINT " 5000 for each treasure" - PRINT " 10000 for finding the Runestaff" - PRINT " 20000 for finding the Amulet of Chaos" - PRINT "" - PRINT " You will then be ranked into one of the following classes:" - PRINT - PRINT " 0 - 20000 Whimp 20000 - 35000 Peasent" - PRINT " 35000 - 50000 Ameteur 50000 - 75000 Scout" - PRINT " 90000 -110000 Adventurer 110000 -125000 Hero" - PRINT " 125000 -140000 Wizard 140000+ Lord" - PRINT "" - PRINT " The highest score to date is that of Lord Nur£cc: 142,498" - LOCATE 25, 1 - LINE INPUT "Press enter to return to Main Menu"; B$ - GOTO 99910 -9993000 CLS - 'CHAIN "Temple",700 - GOTO 700 -'--------------------------------------------------------------------------- - -11999 LOCATE 25, 1: INPUT "Press return to continue."; QWERTYU$ -12000 CLS : COLOR 26, 0, 1 -12010 PRINT " ÜÜ ÜÜ Ü Ü ÜÜ ÜÜÜ ÜÜ ÜÜÜ Ü Ü Ü ÜÜ ÜÜÜÜÜ Ü ÜÜ Ü Ü ÜÜ Ü" -12020 PRINT " Û ß Û Û ÛÛ Û Û ß Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û ÛÛ Û Û ß Û Û" -12030 PRINT " Û Û Û Û Û Û Û ÛÜÜß ÛÜÜÛ Û Û Û Û Û ÛÜÜÛ Û Û Û Û Û Û Û ßßÜ Û Û" -12040 PRINT " Û Ü Û Û Û ÛÛ Û ßÛ Û ßÜ Û Û Û Û Û Û Û Û Û Û Û Û Û Û ÛÛ Ü Û ß" -12050 PRINT " ßß ßß ß ß ßß ß ß ß ß ßßß ßß ßßß ß ß ß ß ßß ß ß ßß ß" -12060 COLOR 3, 0, 1: PRINT -12070 PRINT -12080 PRINT " You have been ranked as a Lord with a score of "; JOHN! -12090 PRINT -12100 IF JOHN! > 142498! THEN PRINT " Don't forget to replace my score on Tem-Ins.Bas" -12200 GOTO 10051 - - -'810 DEF FNA (Q) = 1 + INT(RND(1) * Q) -FUNCTION FNA (Q) -FNA = 1 + INT(RND(1) * Q) -END FUNCTION - -'820 DEF FNB (Q) = Q + 8 * ((Q = 9) - (Q = 0)) -FUNCTION FNB (Q) -FNB = Q + 8 * ((Q = 9) - (Q = 0)) -END FUNCTION - -'830 DEF FNC (Q) = -Q * (Q < 19) - 18 * (Q > 18) -FUNCTION FNC (Q) -FNC = -Q * (Q < 19) - 18 * (Q > 18) -END FUNCTION - -'840 DEF FND (Q) = 64 * (Q - 1) + 8 * (X - 1) + Y -FUNCTION FND (Q) -FND = 64 * (Q - 1) + 8 * (X - 1) + Y -END FUNCTION - -'850 DEF FNE (Q) = Q + 100 * (Q > 99) -FUNCTION FNE (Q) -FNE = Q + 100 * (Q > 99) -END FUNCTION - diff --git a/programs/samples/misc/tower.bas b/programs/samples/misc/tower.bas deleted file mode 100644 index 6414bdd22..000000000 --- a/programs/samples/misc/tower.bas +++ /dev/null @@ -1,159 +0,0 @@ -DECLARE SUB INSTRUCT () -DECLARE SUB AUTO () -DECLARE SUB PLAYGAME () -DECLARE SUB MOVEPILE (N%, START%, FINISH%) -DECLARE SUB MOVEDISC (START%, FINISH%) -DECLARE SUB SHOWDISCS () -DEFINT A-Z - -'CONST NUMDISCS = 8 ' alter this line to change number of discs -DIM SHARED NUMDISCS -NUMDISCS = 8 - -DIM SHARED TOWERS(0 TO 2, 1 TO NUMDISCS), TOP(0 TO 2), COLORS(1 TO NUMDISCS), NUMMOVES AS LONG -CLS -TOP(0) = NUMDISCS: TOP(1) = 0: TOP(2) = 0 -FOR I = 1 TO NUMDISCS -TOWERS(0, I) = NUMDISCS - I + 1 -READ COLORS(I) -NEXT -DATA 6, 9, 4, 10, 11, 12, 13, 14 -DATA 6, 9, 4, 10, 11, 12, 13, 14 -LOCATE 1, 26 -PRINT CHR$(218); STRING$(14, CHR$(196)); CHR$(191) -LOCATE 2, 26 -PRINT CHR$(179); "TOWER OF HANOI"; CHR$(179) -LOCATE 3, 26 -PRINT CHR$(192); STRING$(14, CHR$(196)); CHR$(217) -PRINT STRING$(80, CHR$(196)) -PRINT -PRINT "1: AUTO" -PRINT "2: HUMAN" -PRINT STRING$(20, CHR$(196)) -WHILE CHOICE <> 1 AND CHOICE <> 2 -INPUT "CHOOSE ONE: ", CHOICE -WEND -IF CHOICE = 1 THEN CALL AUTO ELSE CALL PLAYGAME - -SUB AUTO -CALL SHOWDISCS -CALL MOVEPILE(NUMDISCS, 0, 2) -END SUB - -SUB INSTRUCT -PRINT "The TOWER OF HANOI is a mathematical game or puzzle. It consists" -PRINT "of three pegs and a number of discs which can slide onto any peg." -PRINT "The puzzle starts with the discs stacked in order of size on one peg." -PRINT -PRINT "The object of the game is to move the entire stack onto another peg," -PRINT "obeying the following rules:" -PRINT TAB(2); CHR$(248); " Only one disc may be moved at a time." -PRINT TAB(2); CHR$(248); " Each move consists of taking the upper disc from" -PRINT TAB(4); "one peg and sliding it onto another peg, on top of any discs" -PRINT TAB(4); "that may already be on that peg." -PRINT TAB(2); CHR$(248); " No disc may be placed on top of another disc." -PRINT "PRESS ANY KEY TO CONTINUE..." -NULL$ = INPUT$(1) -END SUB - -SUB MOVEDISC (START, FINISH) -DIM T AS SINGLE -TOWERS(FINISH, TOP(FINISH) + 1) = TOWERS(START, TOP(START)) -TOP(FINISH) = TOP(FINISH) + 1 -TOWERS(START, TOP(START)) = 0 -TOP(START) = TOP(START) - 1 -NUMMOVES = NUMMOVES + 1 -CALL SHOWDISCS -T = TIMER -WHILE TIMER - T < .2: -IF INKEY$ = CHR$(27) THEN END -WEND -END SUB - -SUB MOVEPILE (N, START, FINISH) -IF N > 1 THEN CALL MOVEPILE(N - 1, START, 3 - START - FINISH) -CALL MOVEDISC(START, FINISH) -IF N > 1 THEN CALL MOVEPILE(N - 1, 3 - START - FINISH, FINISH) -END SUB - -SUB PLAYGAME -DO -INPUT "WOULD YOU LIKE INSTRUCTIONS"; NULL$ -NULL$ = UCASE$(LEFT$(LTRIM$(NULL$), 1)) -IF NULL$ = "Y" THEN CALL INSTRUCT: EXIT DO -IF NULL$ = "N" THEN EXIT DO -LOOP -CALL SHOWDISCS -DO -LOCATE 1, 1 -COLOR 7 -PRINT "TYPE NUMBER OF START PEG FOLLOWED BY NUMBER OF END PEG" -PRINT "LEFT = 1", "MIDDLE = 2", "RIGHT=3" -DO -KEY$ = INKEY$ -SELECT CASE KEY$ -CASE CHR$(27) -END -CASE "1" -START = 0 -EXIT DO -CASE "2" -START = 1 -EXIT DO -CASE "3" -START = 2 -EXIT DO -END SELECT -LOOP -DO -KEY$ = INKEY$ -SELECT CASE KEY$ -CASE CHR$(27) -END -CASE "1" -FINISH = 0 -EXIT DO -CASE "2" -FINISH = 1 -EXIT DO -CASE "3" -FINISH = 2 -EXIT DO -END SELECT -LOOP -IF TOP(START) = 0 THEN PRINT "There are no discs on that peg.": GOTO 1 -IF START = FINISH THEN PRINT "The start peg is the same as the end peg.": GOTO 1 -IF TOP(FINISH) > 0 THEN -IF TOWERS(START, TOP(START)) > TOWERS(FINISH, TOP(FINISH)) THEN PRINT "You may not put a larger disc on top of a smaller disc.": GOTO 1 -END IF -CALL MOVEDISC(START, FINISH) -IF TOP(0) = 0 AND TOP(1) = 0 THEN EXIT DO -IF TOP(0) = 0 AND TOP(2) = 0 THEN EXIT DO -1 LOOP -END SUB - -SUB SHOWDISCS -CLS -LOCATE 1, 60: PRINT "MOVES: "; NUMMOVES -LOCATE 25, 1 -PRINT STRING$(80, CHR$(196)); -FOR I = 1 TO TOP(0) -LOCATE 25 - I, I + 1 -X = TOWERS(0, I) -IF X = 0 THEN EXIT FOR -COLOR COLORS(X): PRINT STRING$(X * 2, CHR$(219)); -NEXT -FOR I = 1 TO TOP(1) -LOCATE 25 - I, I + NUMDISCS * 3 -X = TOWERS(1, I) -IF X = 0 THEN EXIT FOR -COLOR COLORS(X): PRINT STRING$(X * 2, CHR$(219)); -NEXT -FOR I = 1 TO TOP(2) -LOCATE 25 - I, I + NUMDISCS * 6 -X = TOWERS(2, I) -IF X = 0 THEN EXIT FOR -COLOR COLORS(X): PRINT STRING$(X * 2, CHR$(219)); -NEXT - -END SUB diff --git a/programs/samples/misc/twirl2.bas b/programs/samples/misc/twirl2.bas deleted file mode 100644 index 259623894..000000000 --- a/programs/samples/misc/twirl2.bas +++ /dev/null @@ -1,15 +0,0 @@ -'Twirl by Antoni Gual, from an idea by Steve Nunnaly -'for Rel's 9 LINER contest at QBASICNEWS.COM 1/2003 -'------------------------------------------------------------------------ - -1 IF i THEN CIRCLE (160, 100), i, (i MOD 16) + 32, , , .8 ELSE SCREEN 13 -2 i = i + 1 -3 IF i < 200 THEN GOTO 1 ELSE DIM b2%(5000) -4 w = (w + .3) -5 xmid = 140 + SIN(7 * w / 1000) * 110 -6 ymid = 80 + SIN(11 * w / 1000) * 59 -7 GET ((xmid - (SIN(w) * 28)), (ymid - (COS(w) * 20)))-((xmid - (SIN(w) * 28)) + 40, (ymid - (COS(w) * 20)) + 40), b2% -8 PUT ((xmid - (SIN(w - .04) * 27.16)), (ymid - (COS(w - .04) * 19.4))), b2%, PSET -9 IF LEN(INKEY$) = 0 THEN GOTO 4 - - diff --git a/programs/samples/misc/twolf.pcx b/programs/samples/misc/twolf.pcx deleted file mode 100644 index 88bf6b279..000000000 Binary files a/programs/samples/misc/twolf.pcx and /dev/null differ diff --git a/programs/samples/misc/vortex.bas b/programs/samples/misc/vortex.bas deleted file mode 100644 index d2cea3c9a..000000000 --- a/programs/samples/misc/vortex.bas +++ /dev/null @@ -1,13 +0,0 @@ -' Vortex Antoni Gual 2003 -' for Rel's 9 liners contest at QBASICNEWS.COM -'------------------------------------------------------------------------ -1 SCREEN 13 -2 PALETTE LEN(a$) / 3, 0 -3 a$ = a$ + CHR$(32 - 31 * SIN((LEN(a$) - 60 * ((LEN(a$) MOD 3) = 2) + 60 * ((LEN(a$) MOD 3) = 1)) * 3.14151693# / 128)) -4 CIRCLE (160, 290 - LEN(a$) ^ .8), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5 -5 CIRCLE (160, 290 - LEN(a$) ^ .8 + 1), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5 -6 IF LEN(a$) < 256 * 3 THEN 2 ELSE OUT &H3C8, 0 -7 J = (J + 1) MOD (LEN(a$) - 3) -8 OUT &H3C9, ASC(MID$(a$, J + 1, 1)) -9 IF LEN(INKEY$) = 0 THEN 7 - diff --git a/programs/samples/misc/wumpus.bas b/programs/samples/misc/wumpus.bas deleted file mode 100644 index 64c012145..000000000 --- a/programs/samples/misc/wumpus.bas +++ /dev/null @@ -1,229 +0,0 @@ -REM *** HUNT THE WUMPUS ** -DIM p(5) -PRINT "INSTRUCTIONS (Y-N)"; -INPUT i$ -i$ = UCASE$(i$) -IF (i$ = "Y") OR (i$ = "YES") THEN GOSUB 375 -REM *** SET UP CAVE (DODECAHEDRAL NODE LIST) *** -DIM s(20, 3) -FOR j = 1 TO 20 -FOR k = 1 TO 3 -READ s(j, k) -NEXT k -NEXT j -DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 -DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 -DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 -DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19 -REM *** LOCATE L ARRAY ITEMS *** -REM *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS *** -DIM l(6) -DIM m(6) -170 FOR j = 1 TO 6 -l(j) = INT(20 * RND(1)) + 1 -m(j) = l(j) -NEXT j -REM *** CHECK FOR CROSSOVERS (IE l(1)=l(2), ETC) *** -FOR j = 1 TO 6 -FOR k = 1 TO 6 -IF j = k THEN GOTO 215 -IF l(j) = l(k) THEN GOTO 170 -215 NEXT k -NEXT j -REM *** SET NO. OF ARROWS *** -230 a = 5 -l = l(1) -REM *** RUN THE GAME *** -PRINT "HUNT THE WUMPUS" -REM *** HAZARD WARNING AND LOCATION *** -255 GOSUB 585 -REM *** MOVE OR SHOOT *** -GOSUB 670 -IF o = 1 THEN GOTO 280 -IF o = 2 THEN GOTO 300 -REM *** SHOOT *** -280 GOSUB 715 -IF f = 0 THEN GOTO 255 -GOTO 310 -REM *** MOVE *** -300 GOSUB 975 -IF f = 0 THEN GOTO 255 -310 IF f > 0 THEN GOTO 335 -REM *** LOSE *** -PRINT "HA HA HA - YOU LOSE!" -GOTO 340 -REM *** WIN *** -335 PRINT "HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!" -340 FOR j = 1 TO 6 -l(j) = m(j) -NEXT j -PRINT "SAME SETUP (Y-N)"; -INPUT i$ -IF (i$ <> "Y") AND (i$ <> "y") THEN GOTO 170 -GOTO 230 -375 REM *** INSTRUCTIONS *** -PRINT "WELCOME TO 'HUNT THE WUMPUS'" -PRINT " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM" -PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A" -PRINT "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW" -PRINT "WHAT A DODECAHEDRON IS, ASK SOMEONE)" -PRINT -PRINT " HAZARDS:" -PRINT " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM" -PRINT " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)" -PRINT " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU" -PRINT " GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER" -PRINT " ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)" -INPUT "HIT RETURN TO CONTINUE"; a$ -PRINT " WUMPUS:" -PRINT " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER" -PRINT " FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY" -PRINT " HE IS ASLEEP. TWO THINGS WAKE HIM UP: YOU SHOOTING AN" -PRINT "ARROW OR YOU ENTERING HIS ROOM." -PRINT " IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM" -PRINT " OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU" -PRINT " ARE, HE EATS YOU UP AND YOU LOSE!" -PRINT -PRINT " YOU:" -PRINT " EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW" -PRINT " MOVING: YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)" -PRINT " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT" -PRINT " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING" -PRINT " THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO." -PRINT " IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES" -PRINT " AT RANDOM TO THE NEXT ROOM." -PRINT " IF THE ARROW HITS THE WUMPUS, YOU WIN." -PRINT " IF THE ARROW HITS YOU, YOU LOSE." -INPUT "HIT RETURN TO CONTINUE"; a$ -PRINT " WARNINGS:" -PRINT " WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD," -PRINT " THE COMPUTER SAYS:" -PRINT " WUMPUS: 'I SMELL A WUMPUS'" -PRINT " BAT : 'BATS NEARBY'" -PRINT " PIT : 'I FEEL A DRAFT'" -PRINT -RETURN -585 REM *** PRINT LOCATION & HAZARD WARNINGS *** -PRINT -FOR j = 2 TO 6 -FOR k = 1 TO 3 -IF s(l(1), k) <> l(j) THEN GOTO 640 -SELECT CASE j - 1 -CASE 1 -GOTO 615 -CASE 2 -GOTO 625 -CASE 3 -GOTO 625 -CASE 4 -GOTO 635 -CASE 5 -GOTO 635 -END SELECT -615 PRINT "I SMELL A WUMPUS!" -GOTO 640 -625 PRINT "I FEEL A DRAFT" -GOTO 640 -635 PRINT "BATS NEARBY!" -640 NEXT k -NEXT j -PRINT "YOU ARE IN ROOM "; l(1) -PRINT "TUNNELS LEAD TO "; s(l, 1); " "; s(l, 2); " "; s(l, 3) -PRINT -RETURN -670 REM *** CHOOSE OPTION *** -675 PRINT "SHOOT OR MOVE (S-M)"; -INPUT i$ -IF (i$ <> "S") AND (i$ <> "s") THEN GOTO 700 -o = 1 -RETURN -700 IF (i$ <> "M") AND (i$ <> "m") THEN GOTO 675 -o = 2 -RETURN -715 REM *** ARROW ROUTINE *** -f = 0 -REM *** PATH OF ARROW *** -735 PRINT "NO. OF ROOMS (1-5)"; -INPUT j9 -IF j9 < 1 THEN GOTO 735 -IF j9 > 5 THEN GOTO 735 -FOR k = 1 TO j9 -760 PRINT "ROOM #"; -INPUT p(k) -IF k <= 2 THEN 790 -IF p(k) <> p(k - 2) THEN GOTO 790 -PRINT "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM" -GOTO 760 -790 NEXT k -REM *** SHOOT ARROW *** -l = l(1) -FOR k = 1 TO j9 -FOR k1 = 1 TO 3 -IF s(l, k1) = p(k) THEN GOTO 895 -NEXT k1 -REM *** NO TUNNEL FOR ARROW *** -l = s(l, INT(3 * RND(1)) + 1) -GOTO 900 -840 NEXT k -PRINT "MISSED" -l = l(1) -REM *** MOVE WUMPUS *** -GOSUB 935 -REM *** AMMO CHECK *** -a = a - 1 -IF a > 0 THEN 885 -880 f = -1 -885 RETURN -REM *** SEE IF ARROW IS AT l(1) OR AT l(2) -895 l = p(k) -900 IF l <> l(2) THEN 920 -PRINT "AHA! YOU GOT THE WUMPUS!" -f = 1 -RETURN -920 IF l <> l(1) THEN GOTO 840 -PRINT "OUCH! ARROW GOT YOU!" -GOTO 880 -935 REM *** MOVE WUMPUS ROUTINE *** -940 k = INT(4 * RND(1)) + 1 -IF k = 4 THEN GOTO 955 -l(2) = s(l(2), k) -955 IF l(2) <> l THEN GOTO 970 -PRINT "TSK TSK TSK - WUMPUS GOT YOU!" -f = -1 -970 RETURN -975 REM *** MOVE ROUTINE *** -f = 0 -985 PRINT "WHERE TO"; -INPUT l -IF l < 1 THEN GOTO 985 -IF l > 20 THEN GOTO 985 -FOR k = 1 TO 3 -REM *** CHECK IF LEGAL MOVE *** -IF s(l(1), k) = l THEN GOTO 1045 -NEXT k -IF l = l(1) THEN GOTO 1045 -PRINT "NOT POSSIBLE -"; -GOTO 985 -REM *** CHECK FOR HAZARDS *** -1045 l(1) = l -REM *** WUMPUS *** -IF l <> l(2) THEN GOTO 1090 -PRINT "... OOPS! BUMPED A WUMPUS!" -REM *** MOVE WUMPUS *** -GOSUB 940 -IF f = 0 THEN GOTO 1090 -RETURN -REM *** PIT *** -1090 IF l = l(3) THEN GOTO 1100 -IF l <> l(4) THEN GOTO 1120 -1100 PRINT "YYYYIIIIEEEE . . . FELL IN PIT" -f = -1 -RETURN -REM *** BATS *** -1120 IF l = l(5) THEN GOTO 1130 -IF l <> l(6) THEN GOTO 1145 -1130 PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!" -l = INT(20 * RND(1)) + 1 -GOTO 1045 -1145 RETURN -END \ No newline at end of file diff --git a/programs/samples/misc/xwing.bas b/programs/samples/misc/xwing.bas deleted file mode 100644 index c966c6c3a..000000000 --- a/programs/samples/misc/xwing.bas +++ /dev/null @@ -1,816 +0,0 @@ -'CONTROLS: -'ARROW KEYS - AIM UP/DOWN/LEFT/RIGHT -'SPACE - FIRE CANNON -'ENTER - FIRE TORPEDO -'1-9 - CHANGE ENGINE SPEED -'KEY OFF -DEFINT A-Z: DEFSNG G, J, O, S -CLS -SCREEN 0 -WIDTH 40 -PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" -PRINT "³ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿³" -PRINT "³³ ³³" -PRINT "³³ 2060-A.BAS ³³" -PRINT "³³ XWING ³³" -PRINT "³³ ³³" -PRINT "³³ BROUGHT TO YOU BY DATATECH ³³" -PRINT "³³ ³³" -PRINT "³³ MICHAEL KNOX WAUSAU WI 54403 ³³" -PRINT "³³ ³³" -PRINT "³³ ³³" -PRINT "³³ MODIFIED BY GALLEON TO ³³" -PRINT "³³ BE QBASIC COMPATIBLE ³³" -PRINT "³³ ³³" -PRINT "³³ ³³" -PRINT "³³ QB64 DEMO #5: X-WING FIGHTER ³³" -PRINT "³³ ³³" -PRINT "³³ ³³" -PRINT "³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ³" -PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ" -PRINT -PRINT " PRESS ANY KEY TO CONTINUE" -260 A$ = INKEY$: IF A$ = "" THEN 260 -WIDTH 80 -CLS -REM * STAR PILOT GAME * -REM * WRITTEN BY MICHAEL KNOX WAUSAU WI * -REM * FOR PUBLIC DOMAIN UNLESS MOVIEMAKERS OBJECT * -REM * VERSION 2.0 JANUARY 4, 1996 * -REM * PRODUCED BY WILD BOAR PRODUCTIONS * -REM * WILD BOAR PRODUCTIONS WAUSAU WI * -REM * JANUARY 1996 * -'KEY OFF -CLS : WIDTH 80: DEF SEG = 0: A = PEEK(&H410): POKE &H410, (A AND &HCF) OR &H20 -WIDTH 40: SCREEN 1: SCREEN 0: WIDTH 80: WIDTH 40: SCREEN 1: COLOR 0, 1 -GOTO 1200 -1100 V = V - 1: IF V < -3 THEN V = -3 -RETURN -1120 W = W - 1: IF W < -5 THEN W = -5 -RETURN -1140 W = W + 1: IF W > 5 THEN W = 5 -RETURN -1160 V = V + 1: IF V > 3 THEN V = 3 -RETURN -1180 RETURN 'KEY(1) ON: KEY(2) ON: KEY(11) ON: KEY(12) ON: KEY(13) ON: KEY(14) ON: RETURN -1190 RETURN 'KEY(1) STOP: KEY(2) STOP: KEY(11) STOP: KEY(12) STOP: KEY(13) STOP: KEY(14) STOP: RETURN -1200 LOCATE 8, 1: PRINT "****************************************"; -PRINT "* *"; -PRINT "* X W I N G F I G H T E R *"; -PRINT "* *"; -PRINT "****************************************"; -SOUND 525.25, 18.2: SOUND 783.99, 18.2 / 2: SOUND 698.46, 18.2 / 6: SOUND 659.26, 18.2 / 6: SOUND 587.33, 18.2 / 6: SOUND 1046.6, 18.2: SOUND 783.99, 18.2 / 2: SOUND 698.46, 18.2 / 6: SOUND 659.26, 18.2 / 6: SOUND 587.33, 18.2 / 6 -SOUND 1046.5, 18.2: SOUND 783.99, 18.2 / 2: SOUND 698.46, 18.2 / 6: SOUND 659.26, 18.2 / 6: SOUND 698.46, 18.2 / 6: SOUND 587.33, 18.2 -1270 LOCATE 16, 1: PRINT "DO YOU WANT INSTRUCTIONS (Y OR N)?"; -K$ = INKEY$: IF K$ = "Y" OR K$ = "y" GOTO 6930 -IF K$ <> "N" AND K$ <> "n" GOTO 1270 -1300 CLS -IF RESTARTED% THEN END ELSE RESTARTED% = 1 -RANDOMIZE (VAL(RIGHT$(TIME$, 2))) -'ON KEY(1) GOSUB 5350: ON KEY(2) GOSUB 5750: ON KEY(11) GOSUB 1100: ON KEY(12) GOSUB 1120: ON KEY(13) GOSUB 1140: ON KEY(14) GOSUB 1160 -LOCATE 8, 1: PRINT "IMPERIAL FIGHTER: ": DRAW2$ = "C2;BM145,59;M+0,0;BM+10,1;M+0,-2;M+2,2;M+0,-2;BM+10,-1;M+0,4;BM+6,-4;M+0,4;M+0,-2;M-6,0": GOSUB DRAW2 -DIM IM(6): DIM IM1(6): DIM IM2(6): DIM IM3(6): GET (145, 59)-(145, 59), IM: GET (145, 59)-(145, 59), IM1: GET (155, 58)-(157, 60), IM2: GET (167, 57)-(173, 61), IM3 -DIM IM4(13): IM4(0) = 22: IM4(1) = 7: IM4(2) = 128: IM4(3) = -32760: IM4(4) = 2048: IM4(5) = 128: IM4(6) = -22008: IM4(7) = -22358: IM4(8) = 128: IM4(9) = -32760: IM4(10) = 2048: IM4(11) = 128: IM4(12) = 8 -DIM IM5(20): IM5(0) = 26: IM5(1) = 9: IM5(2) = 128: IM5(3) = -32768!: IM5(4) = 128: IM5(5) = -32768!: IM5(6) = 128: IM5(7) = -32768!: IM5(8) = 128: IM5(9) = -32768!: IM5(10) = -21846: IM5(11) = -32598: IM5(12) = 128 -IM5(13) = -32768!: IM5(14) = 128: IM5(15) = -32768!: IM5(16) = 128: IM5(17) = -32768!: IM5(18) = 128: IM5(19) = -32768! -DIM IM6(44): IM6(0) = 34: IM6(1) = 17: IM6(2) = 2048: IM6(5) = 32: IM6(7) = -32768!: IM6(9) = 512: IM6(12) = -32760: IM6(14) = 8192: IM6(15) = 32: IM6(17) = 2176: IM6(20) = 2: IM6(23) = 128: IM6(25) = 8192: IM6(28) = 8 -IM6(29) = 128: IM6(30) = 512: IM6(31) = 2: IM6(33) = -30720: IM6(36) = 32: IM6(38) = -32768!: IM6(40) = 512: IM6(43) = 8 -DIM IM7(44) -IM7(0) = 30: IM7(1) = 21: IM7(2) = -22006: IM7(3) = -22358: IM7(4) = 32: IM7(5) = 8192: IM7(6) = -21846: IM7(7) = -32598: IM7(8) = 2048: IM7(9) = 128 -IM7(10) = 2048: IM7(11) = 128: IM7(12) = 2048: IM7(13) = 128: IM7(14) = 2048: IM7(15) = 128: IM7(16) = 2048: IM7(17) = 128: IM7(18) = 2048: IM7(19) = 128 -IM7(20) = 2560: IM7(21) = 32: IM7(22) = 2048: IM7(23) = 128: IM7(24) = 8704: IM7(25) = 128: IM7(26) = 2048: IM7(27) = 128: IM7(28) = 2048: IM7(29) = 128 -IM7(30) = 2048: IM7(31) = 128: IM7(32) = 2048: IM7(33) = 128: IM7(34) = 2048: IM7(35) = 128: IM7(36) = 2048: IM7(37) = 128: IM7(38) = -22518: IM7(39) = -22358 -IM7(40) = 2592: IM7(41) = 8192: IM7(42) = -21846: IM7(43) = -32598 -DIM IM8(102) -IM8(0) = 50: IM8(1) = 29: IM8(3) = 2048: IM8(7) = 10: IM8(10) = 2048: IM8(11) = 128: IM8(14) = 8200: IM8(17) = 2048: IM8(18) = 8: IM8(21) = 514 -IM8(25) = -32640: IM8(28) = 8192: IM8(29) = 32: IM8(32) = 2184: IM8(35) = 514: IM8(36) = 2: IM8(38) = 2048: IM8(39) = -32760: IM8(40) = 128: IM8(42) = 8352 -IM8(43) = -32736: IM8(45) = 8194: IM8(46) = 2176: IM8(47) = 128: IM8(48) = 512: IM8(49) = 34: IM8(50) = -32766: IM8(51) = 128: IM8(52) = 10250: IM8(54) = -24448 -IM8(55) = 8704: IM8(56) = 32: IM8(58) = 136: IM8(59) = -24446: IM8(61) = -32256: IM8(62) = 514: IM8(63) = 128: IM8(65) = -30592: IM8(66) = 8: IM8(68) = 8192 -IM8(69) = 8224: IM8(72) = 8200: IM8(73) = 128: IM8(75) = 512: IM8(76) = 34: IM8(79) = -22528: IM8(80) = 128: IM8(83) = 8224: IM8(86) = 2048: IM8(87) = 8 -IM8(90) = 2050: IM8(94) = 136: IM8(97) = 10240: IM8(101) = 8 -LOCATE 10, 1: PRINT "DARTH VADER : ": DRAW2$ = "C2;BM145,75;M+0,0;BM+10,1;M+0,-2;M+2,2;M+0,-2;BM+11,-1;M-1,1;M+0,2;M+1,1;BM+4,-4;M+1,1;M+0,2;M-1,1;BM+1,-2;M-6,0": GOSUB DRAW2 -DIM DV(6): DIM DV1(6): DIM DV2(6): DIM DV3(6): GET (145, 75)-(145, 75), DV: GET (145, 75)-(145, 75), DV1: GET (155, 74)-(157, 76), DV2: GET (167, 73)-(173, 77), DV3 -DIM DV4(13) -DV4(0) = 22: DV4(1) = 7: DV4(2) = 8: DV4(3) = 8320: DV4(4) = 8192: DV4(5) = 128: DV4(6) = -22008: DV4(7) = -22358: DV4(8) = 128: DV4(9) = 8200 -DV4(10) = 8192: DV4(11) = 8: DV4(12) = 128 -DIM DV5(20) -DV5(0) = 26: DV5(1) = 9: DV5(2) = 8: DV5(3) = 8: DV5(4) = 32: DV5(5) = 2: DV5(6) = 128: DV5(7) = -32768!: DV5(8) = 128: DV5(9) = -32768! -DV5(10) = -21846: DV5(11) = -32598: DV5(12) = 128: DV5(13) = -32768!: DV5(14) = 128: DV5(15) = -32768!: DV5(16) = 32: DV5(17) = 2: DV5(18) = 8: DV5(19) = 8 -DIM DV6(32) -DV6(0) = 30: DV6(1) = 15: DV6(2) = -22528: DV6(4) = 2: DV6(6) = 8: DV6(8) = 34: DV6(10) = -32640: DV6(12) = 8320: DV6(14) = 2176: DV6(16) = 512 -DV6(19) = 2176: DV6(21) = 2080: DV6(23) = 2056: DV6(25) = 8194: DV6(27) = -32768!: DV6(29) = 2: DV6(31) = 168 -DIM DV7(44) -DV7(0) = 32: DV7(1) = 21: DV7(2) = 10752: DV7(3) = -24406: DV7(4) = -32768!: DV7(5) = -30720: DV7(6) = -22014: DV7(7) = 682: DV7(8) = 520: DV7(9) = -30688 -DV7(10) = 544: DV7(11) = 8224: DV7(12) = 512: DV7(13) = 32: DV7(14) = 512: DV7(15) = 32: DV7(16) = 512: DV7(17) = 32: DV7(18) = 512: DV7(19) = 32 -DV7(20) = 512: DV7(21) = 136: DV7(22) = 512: DV7(23) = 32: DV7(24) = 2048: DV7(25) = 160: DV7(26) = 512: DV7(27) = 32: DV7(28) = 512: DV7(29) = 32 -DV7(30) = 512: DV7(31) = 32: DV7(32) = 512: DV7(33) = 32: DV7(34) = 520: DV7(35) = 544: DV7(36) = 546: DV7(37) = 2080: DV7(38) = -21888: DV7(39) = -24534 -DV7(40) = 546: DV7(41) = -32640: DV7(42) = -22006: DV7(43) = 170 -DIM DV8(76) -DV8(0) = 46: DV8(1) = 25: DV8(3) = 10752: DV8(4) = 128: DV8(6) = -32768!: DV8(7) = 32: DV8(9) = -22526: DV8(10) = 8: DV8(12) = 512: DV8(13) = 2 -DV8(16) = -32640: DV8(18) = 512: DV8(19) = 8224: DV8(21) = 2048: DV8(22) = 2056: DV8(24) = 8192: DV8(25) = 2082: DV8(27) = -32766: DV8(28) = -30592: DV8(30) = -32248 -DV8(31) = 10240: DV8(32) = 128: DV8(33) = -30712: DV8(34) = 2048: DV8(35) = 128: DV8(36) = -24536: DV8(37) = 2048: DV8(38) = 128: DV8(39) = -32630: DV8(40) = 2048 -DV8(41) = 672: DV8(42) = -32760: DV8(44) = 2184: DV8(45) = 10: DV8(47) = 8322: DV8(48) = 32: DV8(50) = -32640: DV8(51) = 128: DV8(53) = -32224: DV8(56) = -30712 -DV8(59) = -24062: DV8(62) = -32768!: DV8(63) = 168: DV8(65) = 8192: DV8(66) = 136: DV8(68) = 2048: DV8(69) = 136: DV8(71) = 512: DV8(72) = 136: DV8(75) = 168 -LOCATE 12, 1: PRINT "DEATH STAR : ": DRAW2$ = "C3;BM145,91;M+0,0;BM+11,-1;M-1,1;M+2,0;M-1,1;BM+12,-3;M+1,0;M+1,1;M-3,0;M+0,1;M+3,0;M-1,1;M-1,0": GOSUB DRAW2 -DRAW2$ = "C3;BM+12,-5;M+2,0;M+1,1;M-4,0;M-1,1;M+6,0;M+0,1;M-6,0;M+0,1;M+6,0;M-1,1;M-4,0;M+1,1;M+2,0": GOSUB DRAW2 -DIM DS(8): DIM DS1(8): DIM DS2(8): DIM DS3(8): DIM DS4(8): GET (145, 91)-(145, 91), DS: GET (145, 91)-(145, 91), DS1: GET (155, 90)-(157, 92), DS2: GET (167, 89)-(170, 92), DS3: GET (178, 87)-(184, 93), DS4 -DIM EXPL3(18): DIM EXPL4(18): DIM EXPL5(18): DIM EXPL6(18): DIM EXPL7(18): DIM EXPL8(18) -DATA 22,11,0,0,0,8194,0,-32608,-22006,2560,-32598,-22006,128,168,8706,0,0,0,0 -FOR i = 0 TO 18: READ EXPL3(i): NEXT i -DATA 22,11,-30720,2048,136,-30718,-24544,-32608,-22006,-21848,-22358,-22006,-23936,10274,-30206,2048,-32632,-30720,0 -FOR i = 0 TO 18: READ EXPL4(i): NEXT i -DATA 22,11,-30712,512,136,8194,-32760,-24416,-21974,-21976,-22358,-21974,-32608,2216,-30206,512,138,-30712,128 -FOR i = 0 TO 18: READ EXPL5(i): NEXT i -DATA 22,11,-30712,2048,136,8194,-24536,-32608,-22006,-21976,-22358,-22006,-24448,10408,8706,2048,-32632,-30712,128 -FOR i = 0 TO 18: READ EXPL6(i): NEXT i -DATA 22,11,-30688,2048,2080,8194,-32736,-32608,-21974,-22008,-22358,-22006,-24448,10408,8706,2048,-32632,-30688,32 -FOR i = 0 TO 18: READ EXPL7(i): NEXT i -DATA 22,11,-30688,2048,2184,-30718,-24544,-32608,-22006,-21848,-22358,-22006,-23936,10274,-30206,2048,-32632,-30688,32 -FOR i = 0 TO 18: READ EXPL8(i): NEXT i -1920 LOCATE 17, 1: PRINT "SELECT SKILL LEVEL FROM 0 TO 3" -S$ = INKEY$: IF S$ <> "0" AND S$ <> "1" AND S$ <> "2" AND S$ <> "3" GOTO 1920 -SKILL = VAL(S$): CLS -DIM LASAR(381) -LASAR(0) = 148: LASAR(1) = 40: LASAR(2) = 64: LASAR(11) = 5136: LASAR(20) = 16385: LASAR(21) = 16385: LASAR(29) = 5120: LASAR(31) = 20: LASAR(38) = 256: LASAR(39) = 64: LASAR(40) = 256: LASAR(41) = 64: LASAR(48) = 20 -LASAR(50) = 5120: LASAR(57) = 16385: LASAR(60) = 16385: LASAR(66) = 5120: LASAR(70) = 20: LASAR(75) = 256: LASAR(76) = 64: LASAR(79) = 256: LASAR(85) = 4: LASAR(89) = 20480: LASAR(94) = 20480: LASAR(99) = 5 -LASAR(103) = 1280: LASAR(109) = 80: LASAR(113) = 80: LASAR(118) = 1280: LASAR(122) = 5: LASAR(128) = 20480: LASAR(131) = 20480: LASAR(138) = 5: LASAR(140) = 1280: LASAR(148) = 80: LASAR(150) = 80 -LASAR(157) = 1024: LASAR(159) = 1: LASAR(167) = 16385: LASAR(168) = 5120: LASAR(177) = 276: LASAR(178) = 64: LASAR(186) = 256: LASAR(187) = 84: LASAR(196) = 21505: LASAR(205) = 5120: LASAR(206) = 16385 -LASAR(214) = 256: LASAR(215) = 64: LASAR(216) = 20: LASAR(224) = 4: LASAR(225) = 256: LASAR(233) = 20480: LASAR(235) = 20480: LASAR(242) = 1280: LASAR(245) = 5: LASAR(252) = 80: LASAR(255) = 80 -LASAR(261) = 5: LASAR(264) = 1280: LASAR(270) = 20480: LASAR(274) = 20480: LASAR(279) = 1280: LASAR(284) = 5: LASAR(289) = 80: LASAR(294) = 80: LASAR(298) = 1: LASAR(303) = 1024: LASAR(307) = 5120 -LASAR(313) = 16385: LASAR(316) = 256: LASAR(317) = 64: LASAR(323) = 20: LASAR(326) = 20: LASAR(332) = 256: LASAR(333) = 64: LASAR(335) = 16385: LASAR(342) = 5120: LASAR(344) = 5120: LASAR(352) = 16385 -LASAR(353) = 256: LASAR(354) = 64: LASAR(362) = 20: LASAR(363) = 20: LASAR(371) = 256: LASAR(372) = 16448: LASAR(381) = 4096 -REM * INITIALIZE VARIABLES * -M = INT(RND * 61) + 10: N = INT(RND * 21) + 10: O = INT(RND * 32001) + 70000! -E = INT(RND * 61) + 10: F = INT(RND * 21) + 10: G = 25000 -H = INT(RND * 61) + 10: i = INT(RND * 21) + 10: J = INT(RND * 32001) + 40000! -Q = 5: Z = 3 -IMX = 38: IMY = 21: IMR1 = 1: IMR2 = 1 -DVX = 38: DVY = 21: DVR1 = 1: DVR2 = 1 -IF SKILL = 0 THEN A1 = 5: A2 = 0: BYPASS = 3 -IF SKILL = 1 THEN A1 = 3: A2 = 0: BYPASS = 2 -IF SKILL = 2 THEN A1 = 2: A2 = 45: BYPASS = 1 -IF SKILL = 3 THEN A1 = 2: A2 = 30 -K$ = "5" -LINE (1, 1)-(76, 42), 3, B -DRAW2$ = "C3;BM2,21;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+12,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0;BM+6,0;M+0,0": GOSUB DRAW2 -DRAW2$ = "C3;BM38,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,6;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0;BM+0,3;M+0,0": GOSUB DRAW2 -LOCATE 8, 1: PRINT "REPUBLIC X-WING STAR FIGHTER" -LOCATE 10, 5: PRINT "TORPEDOES" -LOCATE 12, 1: PRINT "HOR. VERT. DIRECTION" -LOCATE 15, 1: PRINT "SPEED MACH" -LOCATE 17, 1: PRINT "RADAR TARGETS" -LOCATE 18, 8: PRINT "KM TO IMPERIAL FIGHTER" -LOCATE 19, 8: PRINT "KM TO DARTH VADER" -LOCATE 20, 8: PRINT "KM TO DEATH STAR" -LOCATE 22, 1: PRINT "TIME REMAINING" -'PLAY "T250" -SEC1 = VAL(RIGHT$(TIME$, 2)) -GOSUB 1180 -REM * MASTER CONTROL ROUTINE * -2320 GOSUB 1190 -PUT (38, 21), DS1 -LOCATE 10, 1: PRINT Z -LOCATE 13, 1: PRINT W; " "; -V -LOCATE 15, 12: PRINT Q * 10 -GS = G - S: IF GS < 0 THEN GS = 0 -LOCATE 18, 1: PRINT GS -JS = J - S: IF JS < 0 THEN JS = 0 -LOCATE 19, 1: PRINT JS -OS = O - S: IF OS < 0 THEN OS = 0 -LOCATE 20, 1: PRINT OS -LOCATE 22, 16: PRINT A1; ":"; A2NEW -SOUND 37 * Q, 1 -PUT (38, 21), DS1 -GOSUB 1180 -REM * DISPLAY DEATH STAR * -IF O - S = 30000 OR O - S > 30000 GOTO 2840 -IF O - S < 20000 AND DSTAR2 = 0 THEN DSTAR2 = 1: DSFLAG = 1: DS(0) = DS2(0): DS(1) = DS2(1): DS(2) = DS2(2): DS(3) = DS2(3) -IF O - S < 10000 AND DSTAR3 = 0 THEN DSTAR3 = 1: DSFLAG = 2: DS(0) = DS3(0): DS(1) = DS3(1): DS(2) = DS3(2): DS(3) = DS3(3) -IF O - S < 5000 AND DSTAR4 = 0 THEN DSTAR4 = 1: DSFLAG = 3: DS(0) = DS4(0): DS(1) = DS4(1): DS(2) = DS4(2): DS(3) = DS4(3): DS(4) = DS4(4): DS(5) = DS4(5): DS(6) = DS4(6): DS(7) = DS4(7): DS(8) = DS4(8) -IF FLAG1 <> BYPASS THEN FLAG1 = FLAG1 + 1: GOTO 2550 -FLAG1 = 0 -M = M + INT(RND * 5) - 2: N = N + INT(RND * 5) - 2 -2550 M = M - W: N = N - V -IF M < 2 THEN M = 2 + INT(RND * 3) -IF M > 69 THEN M = 69 - INT(RND * 3) -IF N < 2 THEN N = 2 + INT(RND * 3) -IF N > 35 THEN N = 35 - INT(RND * 3) -GOSUB 1190 -PUT (M, N), DS -IF DSNEW = 0 THEN DSNEW = 1: GOTO 2680 -IF DSFLAG = 0 GOTO 2670 -IF DSFLAG = 1 THEN DSFLAG = 0: PUT (MP, NP), DS1: GOTO 2680 -IF DSFLAG = 2 THEN DSFLAG = 0: PUT (MP, NP), DS2: GOTO 2680 -IF DSFLAG = 3 THEN DSFLAG = 0: PUT (MP, NP), DS3: GOTO 2680 -2670 PUT (MP, NP), DS -2680 GOSUB 1180 -MP = M: NP = N -IF O - S > 10000 OR FLAG = 1 GOTO 2840 -GOSUB 1190 -FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "*** DEATH STAR WITHIN TORPEDO RANGE ***"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "*** DEATH STAR WITHIN TORPEDO RANGE ***"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -GOSUB 1180 -FLAG = 1 -REM * DISPLAY IMPERIAL FIGHTER * -2840 GOSUB 1190 -IF G - S > 26000 THEN GOSUB 1180: GOTO 3910 -IF G - S < 20000 AND IMPFIGH2 = 0 THEN IMPFIGH2 = 1: IMFLAG = 1: IM(0) = IM2(0): IM(1) = IM2(1): IM(2) = IM2(2): IM(3) = IM2(3): IMX = 37: IMY = 20: IMR1 = 2: IMR2 = 2 -IF G - S < 10000 AND IMPFIGH3 = 0 THEN IMPFIGH3 = 1: IMFLAG = 2: IM(0) = IM3(0): IM(1) = IM3(1): IM(2) = IM3(2): IM(3) = IM3(3): IM(4) = IM3(4): IM(5) = IM3(5): IM(6) = IM3(6): IMX = 35: IMY = 19: IMR1 = 4: IMR2 = 3 -IF FLAG2 <> BYPASS THEN FLAG2 = FLAG2 + 1: GOTO 2910 -FLAG2 = 0 -E = E + INT(RND * 5) - 2: F = F + INT(RND * 5) - 2 -2910 E = E - W: F = F - V -IF E < 2 THEN E = 2 + INT(RND * 3) -IF E > 69 THEN E = 69 - INT(RND * 3) -IF F < 2 THEN F = 2 + INT(RND * 3) -IF F > 37 THEN F = 37 - INT(RND * 3) -PUT (E, F), IM -IF IMNEW = 0 THEN IMNEW = 1: GOTO 3020 -IF IMFLAG = 0 GOTO 3010 -IF IMFLAG = 1 THEN IMFLAG = 0: PUT (EP, FP), IM1: GOTO 3020 -IF IMFLAG = 2 THEN IMFLAG = 0: PUT (EP, FP), IM2: GOTO 3020 -3010 PUT (EP, FP), IM -3020 GOSUB 1180 -EP = E: FP = F -IF G - S > 5000 OR FLAG3 = 1 GOTO 3170 -GOSUB 1190 -FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER ATTACKS ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER ATTACKS ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -GOSUB 1180 -FLAG3 = 1 -3170 IF G > S THEN GOTO 3910 -REM * IMPERIAL FIGHTER ATTACKS * -FLAG3 = 0: IMNEW = 0: IMNEW1 = 0: IMPFIGH2 = 0: IMPFIGH3 = 0: PUT (E, F), IM -GOSUB 1190 -3210 DELTAX = 29 - E: DELTAY = 19 - F -IF DELTAX > 0 THEN E = E + 1 -IF DELTAX < 0 THEN E = E - 1 -IF DELTAY > 0 THEN F = F + 1 -IF DELTAY < 0 THEN F = F - 1 -IF DELTAX = 0 AND DELTAY = 0 GOTO 3320 -PUT (E, F), IM: IF IMNEW1 = 0 THEN IMNEW1 = 1: GOTO 3290 -PUT (EP, FP), IM -3290 EP = E: FP = F -DELAYPERIOD% = 32: GOSUB DELAY 'PLAY "P32" -GOTO 3210 -3320 PUT (EP - 4, FP - 1), IM4 -PUT (EP, FP), IM -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -PUT (EP - 9, FP - 2), IM5 -PUT (EP - 4, FP - 1), IM4 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -PUT (EP - 12, FP - 6), IM6 -PUT (EP - 9, FP - 2), IM5 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -PUT (EP - 9, FP - 7), IM7 -PUT (EP - 12, FP - 6), IM6 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -PUT (EP - 20, FP - 14), IM8 -PUT (EP - 9, FP - 7), IM7 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -PUT (EP - 20, FP - 14), IM8 -FOR J2 = 10000 TO 100 STEP -500 -SOUND J2, .001 * 18.2 -NEXT J2 -FOR A = 1 TO 50: NEXT A -FOR J2 = 10000 TO 100 STEP -500 -SOUND J2, .001 * 18.2 -NEXT J2 -G = G + 25000 -E = INT(RND * 61) + 10: F = INT(RND * 21) + 10 -K = INT(RND * 10) -IF K > SKILL THEN 3790 -'KEY(1) OFF: KEY(2) OFF: KEY(11) OFF: KEY(12) OFF: KEY(13) OFF: KEY(14) OFF -3600 CLS -PRINT "BLAM!" -FOR J2 = 1000 TO 37 STEP -10 -SOUND J2, .01 * 18.2 -NEXT J2 -PRINT -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -PRINT "YOU HAVE JUST BEEN SHOT DOWN BY AN"; -PRINT "IMPERIAL SKY FIGHTER!" -PRINT -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -PRINT "YOU ARE A HERO!" -PRINT -PRINT "UNFORTUNATELY, YOU ARE A DEAD HERO AND"; -PRINT "DEAD HEROES DON'T WIN WARS. DARTH VADER"; -PRINT "WINS!" -PRINT -PRINT "********* YOU LOSE!! *********" -GOTO 5310 -3790 FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER MISSED ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER MISSED ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -IM(0) = IM1(0): IM(1) = IM1(1): IM(2) = IM1(2): IM(3) = IM1(3): IM(4) = IM1(4): IM(5) = IM1(5): IM(6) = IM1(6) -GOSUB 1180 -REM * DISPLAY DARTH VADER * -3910 GOSUB 1190 -IF J - S > 26000 THEN GOSUB 1180: GOTO 5140 -IF J - S < 20000 AND DVADER2 = 0 THEN DVADER2 = 1: DVFLAG = 1: DV(0) = DV2(0): DV(1) = DV2(1): DV(2) = DV2(2): DV(3) = DV2(3): DVX = 37: DVY = 20: DVR1 = 2: DVR2 = 2 -IF J - S < 10000 AND DVADER3 = 0 THEN DVADER3 = 1: DVFLAG = 2: DV(0) = DV3(0): DV(1) = DV3(1): DV(2) = DV3(2): DV(3) = DV3(3): DV(4) = DV3(4): DV(5) = DV3(5): DV(6) = DV3(6): DVX = 35: DVY = 19: DVR1 = 4: DVR2 = 3 -IF FLAG2 <> BYPASS THEN FLAG2 = FLAG2 + 1: GOTO 3980 -FLAG2 = 0 -H = H + INT(RND * 5) - 2: i = i + INT(RND * 5) - 2 -3980 H = H - W: i = i - V -IF H < 2 THEN H = 2 + INT(RND * 3) -IF H > 69 THEN H = 69 - INT(RND * 3) -IF i < 2 THEN i = 2 + INT(RND * 3) -IF i > 37 THEN i = 37 - INT(RND * 3) -PUT (H, i), DV -IF DVNEW = 0 THEN DVNEW = 1: GOTO 4090 -IF DVFLAG = 0 GOTO 4080 -IF DVFLAG = 1 THEN DVFLAG = 0: PUT (HP, IP), DV1: GOTO 4090 -IF DVFLAG = 2 THEN DVFLAG = 0: PUT (HP, IP), DV2: GOTO 4090 -4080 PUT (HP, IP), DV -4090 GOSUB 1180 -HP = H: IP = i -IF J - S > 5000 OR FLAG4 = 1 GOTO 4350 -GOSUB 1190 -IF DVGONE = 0 GOTO 4240 -FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER ATTACKS ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER ATTACKS ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -GOTO 4330 -4240 FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** DARTH VADER ATTACKS ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** DARTH VADER ATTACKS ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -4330 FLAG4 = 1 -GOSUB 1180 -4350 IF J > S THEN GOTO 5140 -REM * DARTH VADER ATTACKS * -FLAG4 = 0: DVNEW = 0: DVNEW1 = 0: DVADER2 = 0: DVADER3 = 0: PUT (H, i), DV -GOSUB 1190 -4390 DELTAX = 41 - H: DELTAY = 19 - i -IF DELTAX > 0 THEN H = H + 1 -IF DELTAX < 0 THEN H = H - 1 -IF DELTAY > 0 THEN i = i + 1 -IF DELTAY < 0 THEN i = i - 1 -IF DELTAX = 0 AND DELTAY = 0 GOTO 4500 -PUT (H, i), DV: IF DVNEW1 = 0 THEN DVNEW1 = 1: GOTO 4470 -PUT (HP, IP), DV -4470 HP = H: IP = i -DELAYPERIOD% = 32: GOSUB DELAY 'PLAY "P32" -GOTO 4390 -4500 IF DVGONE = 0 THEN PUT (HP, IP - 1), DV4 ELSE PUT (HP, IP - 1), IM4 -PUT (HP, IP), DV -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -IF DVGONE = 0 THEN PUT (HP + 3, IP - 2), DV5 ELSE PUT (HP + 3, IP - 2), IM5 -IF DVGONE = 0 THEN PUT (HP, IP - 1), DV4 ELSE PUT (HP, IP - 1), IM4 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -IF DVGONE = 0 THEN PUT (HP + 2, IP - 6), DV6 ELSE PUT (HP + 2, IP - 6), IM6 -IF DVGONE = 0 THEN PUT (HP + 3, IP - 2), DV5 ELSE PUT (HP + 3, IP - 2), IM5 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -IF DVGONE = 0 THEN PUT (HP + 1, IP - 6), DV7 ELSE PUT (HP + 1, IP - 6), IM7 -IF DVGONE = 0 THEN PUT (HP + 2, IP - 6), DV6 ELSE PUT (HP + 2, IP - 6), IM6 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -IF DVGONE = 0 THEN PUT (HP + 2, IP - 6), DV8 ELSE PUT (HP + 2, IP - 6), IM8 -IF DVGONE = 0 THEN PUT (HP + 1, IP - 6), DV7 ELSE PUT (HP + 1, IP - 6), IM7 -DELAYPERIOD% = 4: GOSUB DELAY 'PLAY "P4" -IF DVGONE = 0 THEN PUT (HP + 2, IP - 6), DV8 ELSE PUT (HP + 2, IP - 6), IM8 -FOR J2 = 10000 TO 100 STEP -500 -SOUND J2, .001 * 18.2 -NEXT J2 -FOR A = 1 TO 50: NEXT A -FOR J2 = 10000 TO 100 STEP -500 -SOUND J2, .001 * 18.2 -NEXT J2 -J = J + 25000 -H = INT(RND * 61) + 10: i = INT(RND * 21) + 10 -K = INT(RND * 10) -IF K > SKILL + 1 THEN 4910 -'KEY(1) OFF: KEY(2) OFF: KEY(11) OFF: KEY(12) OFF: KEY(13) OFF: KEY(14) OFF -4780 CLS : PRINT "**** B O O M ! ****" -FOR J2 = 1000 TO 37 STEP -10 -SOUND J2, .01 * 18.2 -NEXT J2 -PRINT -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -IF DVGONE = 1 THEN PRINT "TOO BAD. YOU HAVE BEEN SHOT DOWN.": GOTO 4880 -PRINT "YOU HAVE JUST BEEN PERSONALLY SHOT DOWN"; -PRINT "BY DARTH VADER. THE FORCE WAS NOT WITH"; -PRINT "YOU." -4880 PRINT -PRINT "********* YOU LOSE!! *********" -GOTO 5310 -4910 IF DVGONE = 0 GOTO 5030 -FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER MISSED ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** IMPERIAL FIGHTER MISSED ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -DV(0) = DV1(0): DV(1) = DV1(1): DV(2) = DV1(2): DV(3) = DV1(3) -GOTO 5140 -5030 FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** DARTH VADER MISSED ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** DARTH VADER MISSED ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -DV(0) = DV1(0): DV(1) = DV1(1): DV(2) = DV1(2): DV(3) = DV1(3): DV(4) = DV1(4): DV(5) = DV1(5): DV(6) = DV1(6) -REM * X - WING FIGHTER ROUTINE * -5140 GOSUB 1180 -Z$ = INKEY$ - -IF LEN(Z$) = 1 THEN -IF ASC(Z$) > 48 AND ASC(Z$) <= 57 THEN Q = ASC(Z$) - 48 -IF Z$ = " " THEN GOSUB 5350 -IF Z$ = CHR$(13) THEN GOSUB 5750 -END IF -IF LEN(Z$) = 2 THEN -IF Z$ = CHR$(0) + "H" THEN GOSUB 1100 'UP -IF Z$ = CHR$(0) + "K" THEN GOSUB 1120 'LEFT -IF Z$ = CHR$(0) + "M" THEN GOSUB 1140 'RIGHT -IF Z$ = CHR$(0) + "P" THEN GOSUB 1160 'DOWN -END IF - -S = S + Q * 100 -IF S > O GOTO 6410 -REM * TIME ROUTINE * -SEC2 = VAL(RIGHT$(TIME$, 2)) -SECNEW = SEC2 -IF SECNEW = SECOLD GOTO 5280 -IF SECNEW < SECOLD THEN N8 = N8 + 1 -SECOLD = SEC2 -A2NEW = A2 - (SEC2 + (60 * N8) - SEC1) -IF A2NEW < 0 THEN A2NEW = A2NEW + 60: A1 = A1 - 1: A2 = A2 + 60 -IF A1 < 0 GOTO 6760 -5280 GOTO 2320 -REM * DISPLAY SKY FIGHTER * -IF J - S < 10000 THEN A = 3 -5310 REM * NEW GAME * -PRINT -PRINT "HIT ENTER TO PLAY AGAIN, ESC TO GIVE UP" -'5340 B$ = INKEY$: IF B$ = CHR$(13) THEN GOTO 1300 ELSE IF B$ = CHR$(27) THEN CLS : WIDTH 80: SCREEN 0: KEY ON: GOTO 9911 ELSE GOTO 5340 -5340 B$ = INKEY$: IF B$ = CHR$(13) THEN GOTO 1300 ELSE IF B$ = CHR$(27) THEN CLS : WIDTH 80: SCREEN 0: GOTO 9911 ELSE GOTO 5340 -5350 REM * FIRE CANNON * -'KEY(2) STOP: KEY(11) STOP: KEY(12) STOP: KEY(13) STOP: KEY(14) STOP -PUT (2, 2), LASAR -FOR J2 = 5000 TO 100 STEP -250 -SOUND J2, .01 * 18.2 -NEXT J2 -PUT (2, 2), LASAR -IF G - S < 26000 AND ABS(IMX - E) < IMR1 AND ABS(IMY - F) < IMR2 GOTO 5450 -IF J - S < 26000 AND ABS(DVX - H) < DVR1 AND ABS(DVY - i) < DVR2 GOTO 5580 -GOTO 5730 -5450 FOR I9 = 1 TO 2: PUT (E - 2, F - 3), EXPL3: DELAYPERIOD% = 64: GOSUB DELAY: PUT (E - 2, F - 3), EXPL3: NEXT I9 -FOR I9 = 1 TO 2: PUT (E - 2, F - 3), EXPL4: DELAYPERIOD% = 64: GOSUB DELAY: PUT (E - 2, F - 3), EXPL4: NEXT I9 -PUT (E, F), IM -IF IMR2 = 1 GOTO 5540 -FOR I9 = 1 TO 2: PUT (E - 2, F - 3), EXPL5: DELAYPERIOD% = 64: GOSUB DELAY: PUT (E - 2, F - 3), EXPL5: NEXT I9 -FOR I9 = 1 TO 2: PUT (E - 2, F - 3), EXPL6: DELAYPERIOD% = 64: GOSUB DELAY: PUT (E - 2, F - 3), EXPL6: NEXT I9 -IF IMR2 = 2 GOTO 5540 -FOR I9 = 1 TO 2: PUT (E - 2, F - 3), EXPL7: DELAYPERIOD% = 64: GOSUB DELAY: PUT (E - 2, F - 3), EXPL7: NEXT I9 -FOR I9 = 1 TO 2: PUT (E - 2, F - 3), EXPL8: DELAYPERIOD% = 64: GOSUB DELAY: PUT (E - 2, F - 3), EXPL8: NEXT I9 -5540 G = G + 25000: E = INT(RND * 61) + 10: F = INT(RND * 21) + 10: FLAG3 = 0: IMNEW = 0: IMPFIGH2 = 0: IMPFIGH3 = 0 -IMX = 38: IMY = 21: IMR1 = 1: IMR2 = 1 -IM(0) = IM1(0): IM(1) = IM1(1): IM(2) = IM1(2): IM(3) = IM1(3): IM(4) = IM1(4): IM(5) = IM1(5): IM(6) = IM1(6) -GOTO 5730 -5580 FOR I9 = 1 TO 2: PUT (H - 2, i - 3), EXPL3: DELAYPERIOD% = 64: GOSUB DELAY: PUT (H - 2, i - 3), EXPL3: NEXT I9 -FOR I9 = 1 TO 2: PUT (H - 2, i - 3), EXPL4: DELAYPERIOD% = 64: GOSUB DELAY: PUT (H - 2, i - 3), EXPL4: NEXT I9 -PUT (H, i), DV -IF DVR2 = 1 GOTO 5670 -FOR I9 = 1 TO 2: PUT (H - 2, i - 3), EXPL5: DELAYPERIOD% = 64: GOSUB DELAY: PUT (H - 2, i - 3), EXPL5: NEXT I9 -FOR I9 = 1 TO 2: PUT (H - 2, i - 3), EXPL6: DELAYPERIOD% = 64: GOSUB DELAY: PUT (H - 2, i - 3), EXPL6: NEXT I9 -IF DVR2 = 2 GOTO 5670 -FOR I9 = 1 TO 2: PUT (H - 2, i - 3), EXPL7: DELAYPERIOD% = 64: GOSUB DELAY: PUT (H - 2, i - 3), EXPL7: NEXT I9 -FOR I9 = 1 TO 2: PUT (H - 2, i - 3), EXPL8: DELAYPERIOD% = 64: GOSUB DELAY: PUT (H - 2, i - 3), EXPL8: NEXT I9 -5670 J = J + 25000: H = INT(RND * 61) + 10: i = INT(RND * 21) + 10: FLAG4 = 0: LOCATE 19, 8: PRINT "KM TO IMPERIAL FIGHTER"; -DVNEW = 0: DVADER2 = 0: DVADER3 = 0 -DVX = 38: DVY = 21: DVR1 = 1: DVR2 = 1 -IF DVGONE = 0 THEN DV3(0) = IM3(0): DV3(1) = IM3(1): DV3(2) = IM3(2): DV3(3) = IM3(3): DV3(4) = IM3(4): DV3(5) = IM3(5): DV3(6) = IM3(6) -DV(0) = DV1(0): DV(1) = DV1(1): DV(2) = DV1(2): DV(3) = DV1(3): DV(4) = DV1(4): DV(5) = DV1(5): DV(6) = DV1(6) -DVGONE = 1 -5730 'KEY(2) ON: KEY(11) ON: KEY(12) ON: KEY(13) ON: KEY(14) ON -RETURN -5750 REM * FIRE TORPEDO * -'KEY(1) STOP: KEY(11) STOP: KEY(12) STOP: KEY(13) STOP: KEY(14) STOP -IF Z = 0 THEN 3600 -FOR J2 = 1500 TO 100 STEP -20 -SOUND J2, .01 * 18.2 -SOUND 3600 - J2, .01 * 18.2 -NEXT J2 -Z = Z - 1 -IF O - S > 10000 THEN 5990 -IF POINT(38, 21) <> 3 THEN 5880 -IF SKILL = 0 GOTO 6100 -K = INT(RND * 10) -IF K > SKILL + 1 THEN 6100 -5880 FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** TORPEDO MISSED ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** TORPEDO MISSED ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -IF Z <= 0 THEN 4780 -GOTO 6080 -5990 FOR K = 1 TO 2 -LOCATE 24, 1: PRINT "**** OUT OF RANGE ****"; -DELAYPERIOD% = 2: GOSUB DELAY 'PLAY "L2 N0" -LOCATE 24, 1: PRINT " "; -DELAYPERIOD% = 16: GOSUB DELAY 'PLAY "L16 N0" -NEXT K -LOCATE 24, 1: PRINT "**** OUT OF RANGE ****"; -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -LOCATE 24, 1: PRINT " "; -6080 'KEY(1) ON: KEY(11) ON: KEY(12) ON: KEY(13) ON: KEY(14) ON -RETURN -6100 REM * GAME WON * -'KEY(1) OFF: KEY(2) OFF: KEY(11) OFF: KEY(12) OFF: KEY(13) OFF: KEY(14) OFF -FOR SCALE = 1 TO 24 -'DRAW "C3;S=SCALE;BM38,21;NM+6,0;NM-6,0;NM+0,-3;NM+0,3;NM-6,3;NM+6,-3;NM-6,-3;NM+6,3;NM+3,-3;NM-3,3;NM+3,3;NM-3,-3;NM+6,2;NM-6,-2;NM-6,1;NM+6,-1;NM+1,3;NM-1,-3" -D2S = SCALE -DRAW2$ = "C3;BM38,21;NM+6,0;NM-6,0;NM+0,-3;NM+0,3;NM-6,3;NM+6,-3;NM-6,-3;NM+6,3;NM+3,-3;NM-3,3;NM+3,3;NM-3,-3;NM+6,2;NM-6,-2;NM-6,1;NM+6,-1;NM+1,3;NM-1,-3": GOSUB DRAW2 -D2S = 0 -NEXT SCALE -CLS -FOR K = 1 TO 5 -SOUND 37, .1 * 18.2 -SCREEN 0: WIDTH 40 -FOR A = 1 TO 10: NEXT A -SCREEN 1: WIDTH 80 -NEXT K -WIDTH 40 -CLS : PRINT : PRINT : PRINT -PRINT "* * * * * * * * * * * * * * * * * * * *"; -PRINT "* *"; -PRINT "* *"; -PRINT "* THE FORCE IS WITH YOU !! *"; -PRINT "* *"; -PRINT "* YOU HAVE DESTROYED THE DEATH STAR ! *"; -PRINT "* *"; -PRINT "* YOU HAVE SAVED THE REPUBLIC ! *"; -PRINT "* *"; -PRINT "* PRINCESS LEAH WILL LOVE YOU ALWAYS! *"; -PRINT "* *"; -PRINT "* * * * * * * * * * * * * * * * * * * *" -SOUND 525.25, 18.2: SOUND 783.99, 18.2 / 2: SOUND 698.46, 18.2 / 6: SOUND 659.26, 18.2 / 6: SOUND 587.33, 18.2 / 6: SOUND 1046.6, 18.2: SOUND 783.99, 18.2 / 2: SOUND 698.46, 18.2 / 6: SOUND 659.26, 18.2 / 6: SOUND 587.33, 18.2 / 6 -SOUND 1046.5, 18.2: SOUND 783.99, 18.2 / 2: SOUND 698.46, 18.2 / 6: SOUND 659.26, 18.2 / 6: SOUND 698.46, 18.2 / 6: SOUND 587.33, 18.2 -PRINT -GOTO 5310 -REM * COLLISION WITH DEATH STAR * -6410 'KEY(1) OFF: KEY(2) OFF: KEY(11) OFF: KEY(12) OFF: KEY(13) OFF: KEY(14) OFF -6420 DELTAX = 35 - M: DELTAY = 18 - N -IF DELTAX > 0 THEN M = M + 1 -IF DELTAX < 0 THEN M = M - 1 -IF DELTAY > 0 THEN N = N + 1 -IF DELTAY < 0 THEN N = N - 1 -IF DELTAX = 0 AND DELTAY = 0 GOTO 6530 -PUT (M, N), DS -PUT (MP, NP), DS -MP = M: NP = N -DELAYPERIOD% = 32: GOSUB DELAY 'PLAY "P32" -GOTO 6420 -6530 FOR RAD = 4 TO 20 -CIRCLE (38, 21), RAD, 3 -DELAYPERIOD% = 32: GOSUB DELAY 'PLAY "P32" -NEXT RAD -CLS : PRINT "CRASH" -FOR J2 = 1000 TO 37 STEP -10 -SOUND J2, .01 * 18.2 -NEXT J2 -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -PRINT -PRINT "DARTH VADER IS LAUGHING AT YOU." -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -PRINT -PRINT "YOU HAVE JUST COLLIDED WITH THE DEATH"; -PRINT "STAR. THEY DID NOT EVEN HEAR THE"; -PRINT "COLLISION. YOU DID NOT EVEN SCRATCH"; -PRINT "THE DEATH STAR'S PAINT, BUT YOU ARE "; -PRINT "DEAD!" -PRINT -PRINT "********* YOU LOSE!! *********" -PRINT -GOTO 5310 -REM * OUT OF TIME * -6760 'KEY(1) OFF: KEY(2) OFF: KEY(11) OFF: KEY(12) OFF: KEY(13) OFF: KEY(14) OFF -CLS : PRINT "TOO LATE!" -FOR J2 = 1000 TO 37 STEP -10 -SOUND J2, .01 * 18.2 -NEXT J2 -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -PRINT -PRINT "DARTH VADER IS LAUGHING AT YOU." -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0": PLAY "L1 N0" -PRINT -PRINT "THE DEATH STAR HAS JUST DESTROYED"; -PRINT "PRINCESS LEAH AND THE ENTIRE REBEL"; -PRINT "STRONGHOLD"; -PRINT -PRINT "********* YOU LOSE!! *********" -PRINT -GOTO 5310 -6930 CLS -PRINT " STAR PILOT INSTRUCTIONS" -PRINT -PRINT " THE DEATH STAR SPACE STATION, UNDER"; -PRINT "THE COMMAND OF DARTH VADER, IS THE MOST"; -PRINT "POWERFUL WEAPON THE UNIVERSE HAS EVER"; -PRINT "KNOWN. A FRONTAL ATTACK BY ANY OTHER"; -PRINT "CRAFT WOULD BE ABSOLUTE SUICIDE. HOWEVER"; -PRINT "INTELLIGENCE DELIVERED TO OUR REPUBLIC"; -PRINT "HEADQUARTERS BY THE ANDROIDS R2D2 AND"; -PRINT "C3PO GIVES A FAINT HOPE OF A SUCCESSFUL"; -PRINT "ATTACK BY A SMALL ONE OR TWO PASSENGER"; -PRINT "X-WING FIGHTER." -PRINT -PRINT " THERE IS A SMALL, UNSHIELDED EXHAUST"; -PRINT "PORT ON THE SURFACE OF THE DEATH STAR"; -PRINT "THAT LEADS DIRECTLY TO THE MAIN REACTOR."; -PRINT "SINCE IT IS AN EMERGENCY THERMAL PORT IN"; -PRINT "CASE THE REACTOR OVERHEATS, IT COULD NOT"; -PRINT "BE SHIELDED." -PRINT -INPUT " (PRESS ENTER TO CONTINUE)", B$ -CLS -PRINT -PRINT " IF YOU CAN SLIP YOUR SMALL FIGHTER"; -PRINT "PAST THE DEATH STAR'S DEFENSES AND MAKE"; -PRINT "A DIRECT HIT ON THE THERMAL EXHAUST PORT"; -PRINT "WITH A TORPEDO, THERE IS A CHANCE THAT"; -PRINT "THE TORPEDO WILL PENETRATE TO THE"; -PRINT "MAIN REACTOR AND START A CHAIN REACTION,"; -PRINT "DESTROYING THE DEATH STAR." -PRINT -PRINT " IT IS A SLIM CHANCE, BUT IT IS THE"; -PRINT "ONLY HOPE THE REPUBLIC HAS. OBI-WAN"; -PRINT "KENOBI GAVE HIS LIFE TO GET THE MESSAGE"; -PRINT "HERE, SO HE CONSIDERED IT IMPORTANT." -PRINT : PRINT : PRINT : PRINT -PRINT "PRESS ENTER FOR X-WING FIGHTER "; -INPUT " FAMILIARIZATION", B$ -CLS -PRINT " REPUBLIC X-WING FIGHTER " -PRINT -PRINT " THE X-WING FIGHTER IS A SMALL ONE"; -PRINT "MAN SPACESHIP THAT IS, QUITE FRANKLY,"; -PRINT "OBSOLETE. IT IS ARMED ONLY WITH A LASER"; -PRINT "CANNON AND THREE TORPEDOES. USE THE"; -PRINT "LASER CANNON TO FIGHT OFF ANY IMPERIAL"; -PRINT "FIGHTERS AND SAVE THE TORPEDOES FOR THE"; -PRINT "DEATH STAR." -PRINT -PRINT " THE TARGET ACQUISITION RADAR CAN"; -PRINT "DETECT IN EXCESS OF 100,000 KILOMETERS"; -PRINT "AWAY, BUT CAN ONLY DISPLAY TARGETS WITH-"; -PRINT "IN 20,000 KM. THEREFORE, YOU WILL BE"; -PRINT "WARNED OF APPROACHING TARGETS ON YOUR"; -PRINT "CONTROL PANEL BEFORE THEY ARE DISPLAYED"; -PRINT "ON THE RADAR SCREEN." -PRINT -INPUT " (PRESS ENTER TO CONTINUE)", B$ -CLS -PRINT -PRINT " THE LASER CANNON IS AN ANTIQUATED"; -PRINT "WEAPON. TO HIT AN ENEMY, YOU MUST HAVE"; -PRINT "HIM IN THE EXACT CENTER OF THE CROSS"; -PRINT "HAIRS ON YOUR RADAR SCREEN. THEN YOU MAY"; -PRINT "FIRE THE LASER CANNON BY PRESSING THE"; -PRINT "SPACE BAR ON YOUR CONTROL PANEL." -PRINT -PRINT " YOUR THREE TORPEDOES ARE COMPUTER"; -PRINT "GUIDED, BUT ALSO QUITE LIMITED. MAKE"; -PRINT "SURE THAT YOU ARE WITHIN 10000 KM OF THE"; -PRINT "DEATH STAR AND THAT YOU HAVE SOME PART"; -PRINT "OF THE SPACE STATION IN THE CENTER OF"; -PRINT "THE CROSS HAIRS ON YOUR RADAR SCREEN."; -PRINT "EVEN THEN, SINCE IT TAKES A PERFECT HIT"; -PRINT "ON THE EXHAUST PORT TO DESTROY THE DEATH"; -PRINT "STAR, YOU MAY REQUIRE MORE THAN ONE"; -PRINT "TORPEDO. PRESS THE ENTER KEY TO FIRE THE"; -PRINT "TORPEDO." -PRINT -INPUT " (PRESS ENTER TO CONTINUE)", B$ -CLS -PRINT -PRINT " THE SPEED OF YOUR SHIP IS CONTROLLED"; -PRINT "BY TYPING THE NUMBERS 1 THROUGH 9 (FOR"; -PRINT "MACH 10 THROUGH 90 RESPECTIVELY). THE"; -PRINT "MOVEMENT OF YOUR SHIP IS CONTROLLED BY"; -PRINT "THE CURSOR CONTROLS. SINCE THESE INPUTS"; -PRINT "MOVE YOUR SHIP AND NOT THE TARGETS, THE"; -PRINT "TARGETS APPEAR TO MOVE IN THE OPPOSITE"; -PRINT "DIRECTION. ALSO, YOU CAN EXPECT THE"; -PRINT "ENEMY TO TAKE EVASIVE ACTION." -PRINT -PRINT " WHEN SELECTING THE SKILL LEVEL, 0 IS"; -PRINT "THE EASIEST GAME AND 3 IS THE HARDEST."; -PRINT "SKILL LEVEL 0 PROVIDES THE BEST CHANCE"; -PRINT "OF BEING MISSED BY THE FIGHTERS AND OF"; -PRINT "HITTING THE DEATH STAR. LEVEL 0 ALSO"; -PRINT "PROVIDES THE LARGEST TIME LIMIT BEFORE"; -PRINT "THE DEATH STAR DESTROYS THE REBEL BASE." -PRINT -PRINT -INPUT "PRESS ENTER FOR TAKE-OFF", B$ -CLS -PRINT "****************************************" -PRINT -PRINT " MAY THE FORCE BE WITH YOU" -PRINT -PRINT "****************************************" -DELAYPERIOD% = 1: GOSUB DELAY: GOSUB DELAY 'PLAY "L1 N0": PLAY "L1 N0" -GOTO 1300 -9911 CLS -END - -'PAUSES FOR THE DURATION OF PLAY "P?" WHERE DELAYPERIOD%=? -'EG. DELAYPERIOD%=1: GOSUB DELAY -DELAY: -TIMERTICKS% = 1 / DELAYPERIOD% * 18.2 -IF TIMERTICKS% = 0 THEN TIMERTICKS% = 1 -LASTTIMERVALUE! = TIMER -FOR TIMERTICK% = 1 TO TIMERTICKS% -DO: TIMERVALUE! = TIMER: LOOP WHILE TIMERVALUE! = LASTTIMERVALUE! -LASTTIMERVALUE! = TIMERVALUE! -NEXT -RETURN - -'DRAW2 IS A WORKAROUND FOR THE DRAW STATEMENT USING STRING DRAW2$ -'*VERY LIMITED FUNCTIONALITY* -DRAW2: -IF D2S = 0 THEN D2S2! = 1 ELSE D2S2! = D2S / 4 -D2D$ = "" -DO WHILE LEN(DRAW2$) -D2$ = LEFT$(DRAW2$, 1): DRAW2$ = RIGHT$(DRAW2$, LEN(DRAW2$) - 1) -IF D2$ = "C" THEN -D2V = VAL(DRAW2$): D2L = LEN(LTRIM$(RTRIM$(STR$(D2V)))): DRAW2$ = RIGHT$(DRAW2$, LEN(DRAW2$) - D2L) -D2COL = D2V -D2D$ = D2D$ + "C" + STR$(D2COL) -END IF -IF D2$ = "B" THEN D2NODRAW = 1: D2D$ = D2D$ + "B" -IF D2$ = "N" THEN D2NOMOVE = 1: D2D$ = D2D$ + "N" -IF D2$ = "M" THEN -D2D$ = D2D$ + "M" -D2$ = LEFT$(DRAW2$, 1) -IF D2$ = "+" OR D2$ = "-" THEN -D2RELATIVE = 1 -IF D2$ = "+" THEN DRAW2$ = RIGHT$(DRAW2$, LEN(DRAW2$) - 1): D2D$ = D2D$ + "+" -END IF -D2V = VAL(DRAW2$): D2L = LEN(LTRIM$(RTRIM$(STR$(D2V)))): DRAW2$ = RIGHT$(DRAW2$, LEN(DRAW2$) - D2L) -D2X = D2V -D2D$ = D2D$ + STR$(D2X) + "," -DRAW2$ = RIGHT$(DRAW2$, LEN(DRAW2$) - 1) 'SKIP COMMA -D2V = VAL(DRAW2$): D2L = LEN(LTRIM$(RTRIM$(STR$(D2V)))): DRAW2$ = RIGHT$(DRAW2$, LEN(DRAW2$) - D2L) -D2Y = D2V -D2D$ = D2D$ + STR$(D2Y) -'ASSUME NODRAW AND NOMOVE ARE USED EXCLUSIVELY -IF D2NOMOVE = 0 AND D2NODRAW = 0 THEN -IF D2RELATIVE THEN LINE -STEP(D2X * D2S2!, D2Y * D2S2!), D2COL ELSE LINE -(D2X, D2Y), D2COL -END IF -IF D2NODRAW THEN -IF D2RELATIVE THEN PSET STEP(D2X * D2S2!, D2Y * D2S2!), D2COL ELSE PSET (D2X, D2Y), D2COL -END IF -IF D2NOMOVE THEN -'ASSUME RELATIVE -LINE -STEP(D2X * D2S2!, D2Y * D2S2!), D2COL: LINE -STEP(-D2X * D2S2!, -D2Y * D2S2!), D2COL -END IF -D2RELATIVE = 0: D2NODRAW = 0: D2NOMOVE = 0 -END IF -LOOP -RETURN - diff --git a/programs/samples/n54/big/3dsviewer/3dsviewer.bas b/programs/samples/n54/big/3dsviewer/3dsviewer.bas deleted file mode 100644 index 681ecf89a..000000000 --- a/programs/samples/n54/big/3dsviewer/3dsviewer.bas +++ /dev/null @@ -1,447 +0,0 @@ -CHDIR ".\programs\samples\n54\big\3dsviewer" - -'----sub declarations -'--file stuff -DECLARE SUB ReadChunkInfo (ChunkInfoHolder AS ANY, BytePosition AS LONG) -DECLARE SUB SkipChunk (ChunkInfoHolder AS ANY, BytePosition AS LONG) -DECLARE SUB SearchForChunk (ChunkInfoHolder AS ANY) -DECLARE SUB ReadObject () -'--3D engine stuff -DECLARE SUB multiplyMatrices (matrixA(), matrixB(), result()) -DECLARE SUB getScalingMatrix (sX, sY, sZ, result()) -DECLARE SUB getRotationXMatrix (rX, result()) -DECLARE SUB getRotationYMatrix (rY, result()) -DECLARE SUB getRotationZMatrix (rZ, result()) -DECLARE SUB getTranslationMatrix (tX, tY, tZ, result()) -DECLARE SUB getCombinedMatrix (sX, sY, sZ, rX, rY, rZ, tX, tY, tZ, temp(), temp2(), result()) -DECLARE SUB getNewXYZ (X, Y, Z, combinedMatrix()) -DECLARE SUB getScreenXY (X, Y, Z) - -'----global declarations -REM $DYNAMIC -DIM SHARED PointsArray(0, 0) AS SINGLE -DIM SHARED NewPointsArray(0, 0) AS LONG -DIM SHARED FaceArray(0, 0) AS INTEGER -REM $STATIC -DIM SHARED numberVertices AS INTEGER -DIM SHARED numberFaces AS INTEGER -DIM SHARED CurrentBytePosition AS LONG -DIM SHARED FindChunk$ - -'----type definitions -TYPE ChunkInfo -ID AS INTEGER -Size AS LONG -Position AS LONG -END TYPE - -'----open file -CLS -PRINT "Would you like to view car.3ds (y/n)?" -DO -k$ = INKEY$ -LOOP UNTIL k$<>"" -IF UCASE$(k$) = "N" THEN -INPUT "Please input the file you wish to load:", fileName$ -ELSE -fileName$="car.3ds" -END IF -OPEN fileName$ FOR BINARY AS #1 - -'----initialise variables -sX = 5 -sY = 5 -sZ = 5 -rX = 0 -rY = 0 -rZ = 0 -tX = 0 -tY = 0 -tZ = 500 -currentFrame = 0 - -'----allocate space for matrix calcs -DIM temp(3, 3) -DIM temp2(3, 3) -DIM result(3, 3) - -'----MAIN PROGRAM -CLS -PRINT "3DS Object Viewer 0.5" -PRINT "---------------------" -PRINT "By David Llewellyn" -PRINT "24/10/2004" -PRINT "" -CALL ReadObject -PRINT "" -PRINT "Press any key to continue" -DO -LOOP UNTIL INKEY$ > CHR$(0) - -'3D-Section -SCREEN 7, , 0, 1 -Colour = 4 -oldTime = TIMER - -DO - -CALL getCombinedMatrix(sX, sY, sZ, rX, rY, rZ, tX, tY, tZ, temp(), temp2(), result()) -CLS - -FOR i = 0 TO numberVertices'load screen coordinates into new array -X = PointsArray(0, i) -Y = PointsArray(1, i) -Z = PointsArray(2, i) -CALL getNewXYZ(X, Y, Z, result()) -CALL getScreenXY(X, Y, Z) -NewPointsArray(0, i) = X -NewPointsArray(1, i) = Y -NEXT i'load screen coordinates into new array - -FOR i = 0 TO numberFaces - 1'draw faces -'line from point 0 to 1 -LINE (NewPointsArray(0, FaceArray(0, i)), NewPointsArray(1, FaceArray(0, i)))-(NewPointsArray(0, FaceArray(1, i)), NewPointsArray(1, FaceArray(1, i))), Colour -'line from point 1 to 2 -LINE (NewPointsArray(0, FaceArray(1, i)), NewPointsArray(1, FaceArray(1, i)))-(NewPointsArray(0, FaceArray(2, i)), NewPointsArray(1, FaceArray(2, i))), Colour -'line from point 2 to 0 -LINE (NewPointsArray(0, FaceArray(2, i)), NewPointsArray(1, FaceArray(2, i)))-(NewPointsArray(0, FaceArray(0, i)), NewPointsArray(1, FaceArray(0, i))), Colour -NEXT i'draw faces - -PCOPY 0, 1 -frames = frames + 1 - -A$ = INKEY$ -rX = rX + .00065 -rY = rY + .00545 -IF A$ = "=" THEN tZ = tZ - 5 -IF A$ = "-" THEN tZ = tZ + 5 - -LOOP UNTIL A$ = CHR$(27) - -newTime = TIMER -timeTaken = newTime - oldTime -SCREEN 13 -PRINT USING "##.##"; frames / timeTaken -PRINT "frames per second" -DO -LOOP UNTIL INKEY$ > CHR$(0) - -SYSTEM - -SUB getCombinedMatrix (sX, sY, sZ, rX, rY, rZ, tX, tY, tZ, temp(), temp2(), result()) - -ERASE temp2 -CALL getScalingMatrix(sX, sY, sZ, result()) -CALL getRotationXMatrix(rX, temp()) -CALL multiplyMatrices(result(), temp(), temp2())'combine with x rotation - -CALL getRotationYMatrix(rY, temp()) -ERASE result -CALL multiplyMatrices(temp2(), temp(), result())'combine with y rotation - -CALL getRotationZMatrix(rZ, temp()) -ERASE temp2 -CALL multiplyMatrices(result(), temp(), temp2())'combine with z rotation - -CALL getTranslationMatrix(tX, tY, tZ, temp()) -ERASE result -CALL multiplyMatrices(temp2(), temp(), result())'combine with translation - -END SUB - -SUB getNewXYZ (X, Y, Z, combinedMatrix()) - -newX = (combinedMatrix(0, 0) * X) + (combinedMatrix(0, 1) * Y) + (combinedMatrix(0, 2) * Z) + combinedMatrix(0, 3)'new X point -newY = (combinedMatrix(1, 0) * X) + (combinedMatrix(1, 1) * Y) + (combinedMatrix(1, 2) * Z) + combinedMatrix(1, 3)'new Y point -newZ = (combinedMatrix(2, 0) * X) + (combinedMatrix(2, 1) * Y) + (combinedMatrix(2, 2) * Z) + combinedMatrix(2, 3)'new Z point - -X = newX -Y = newY -Z = newZ - -END SUB - -SUB getRotationXMatrix (rX, result()) - -result(0, 0) = 1 -result(1, 0) = 0 -result(2, 0) = 0 -result(3, 0) = 0 - -result(0, 1) = 0 -result(1, 1) = COS(rX) -result(2, 1) = SIN(rX) -result(3, 1) = 0 - -result(0, 2) = 0 -result(1, 2) = -SIN(rX) -result(2, 2) = COS(rX) -result(3, 2) = 0 - -result(0, 3) = 0 -result(1, 3) = 0 -result(2, 3) = 0 -result(3, 3) = 1 - -END SUB - -SUB getRotationYMatrix (rY, result()) - -result(0, 0) = COS(rY) -result(1, 0) = 0 -result(2, 0) = -SIN(rY) -result(3, 0) = 0 - -result(0, 1) = 0 -result(1, 1) = 1 -result(2, 1) = 0 -result(3, 1) = 0 - -result(0, 2) = SIN(rY) -result(1, 2) = 0 -result(2, 2) = COS(rY) -result(3, 2) = 0 - -result(0, 3) = 0 -result(1, 3) = 0 -result(2, 3) = 0 -result(3, 3) = 1 - -END SUB - -SUB getRotationZMatrix (rZ, result()) - -result(0, 0) = COS(rZ) -result(1, 0) = SIN(rZ) -result(2, 0) = 0 -result(3, 0) = 0 - -result(0, 1) = -SIN(rZ) -result(1, 1) = COS(rZ) -result(2, 1) = 0 -result(3, 1) = 0 - -result(0, 2) = 0 -result(1, 2) = 0 -result(2, 2) = 1 -result(3, 2) = 0 - -result(0, 3) = 0 -result(1, 3) = 0 -result(2, 3) = 0 -result(3, 3) = 1 - -END SUB - -SUB getScalingMatrix (sX, sY, sZ, result()) - -result(0, 0) = sX -result(1, 0) = 0 -result(2, 0) = 0 -result(3, 0) = 0 - -result(0, 1) = 0 -result(1, 1) = sY -result(2, 1) = 0 -result(3, 1) = 0 - -result(0, 2) = 0 -result(1, 2) = 0 -result(2, 2) = sZ -result(3, 2) = 0 - -result(0, 3) = 0 -result(1, 3) = 0 -result(2, 3) = 0 -result(3, 3) = 1 - -END SUB - -SUB getScreenXY (X, Y, Z) - -IF Z = 0 THEN -X = X * 280 -Y = Y * 240 -ELSE -X = (X * 280) / Z -Y = (Y * 240) / Z -END IF - -X = INT(X + 160) -Y = INT(Y + 100) - -END SUB - -SUB getTranslationMatrix (tX, tY, tZ, result()) - -result(0, 0) = 1 -result(1, 0) = 0 -result(2, 0) = 0 -result(3, 0) = 0 - -result(0, 1) = 0 -result(1, 1) = 1 -result(2, 1) = 0 -result(3, 1) = 0 - -result(0, 2) = 0 -result(1, 2) = 0 -result(2, 2) = 1 -result(3, 2) = 0 - -result(0, 3) = tX -result(1, 3) = tY -result(2, 3) = tZ -result(3, 3) = 1 - -END SUB - -SUB multiplyMatrices (matrixA(), matrixB(), result()) - -FOR i = 0 TO 3 -FOR j = 0 TO 3 -FOR k = 0 TO 3 -result(j, i) = result(j, i) + (matrixB(j, k) * matrixA(k, i)) -NEXT k -NEXT j -NEXT i - -END SUB - -SUB ReadChunkInfo (ChunkInfoHolder AS ChunkInfo, BytePosition AS LONG) - -GET #1, BytePosition, ChunkInfoHolder.ID -GET #1, BytePosition + 2, ChunkInfoHolder.Size -ChunkInfoHolder.Position = BytePosition - -END SUB - -SUB ReadObject - -DIM ChunkH AS ChunkInfo -CurrentBytePosition = 1'start of file -CALL ReadChunkInfo(ChunkH, CurrentBytePosition) -FindChunk$ = "3D3D" -CALL SearchForChunk(ChunkH)'CBP should now be 3D3D(EDIT3DS) -CALL ReadChunkInfo(ChunkH, CurrentBytePosition) -FindChunk$ = "4000" -CALL SearchForChunk(ChunkH)'CBP should now be 4000(NAMED_OBJECT) -'\/Read & display object name -i = 0 -DO -ObjectName$ = " " -GET #1, CurrentBytePosition + 6 + i, ObjectName$ -i = i + 1 -LOOP UNTIL ASC(ObjectName$) = 0 -ObjectName$ = STRING$(i - 1, " ") -GET #1, CurrentBytePosition + 6, ObjectName$ -PRINT "Object Name: "; ObjectName$ -'/\Read & display object name -CALL ReadChunkInfo(ChunkH, CurrentBytePosition) -ChunkH.Position = CurrentBytePosition + i'skip past name area -ChunkH.Size = ChunkH.Size - i'skip past name area -FindChunk$ = "4100" -CALL SearchForChunk(ChunkH) 'CBP should now be 4100(OBJ_MESH) -CALL ReadChunkInfo(ChunkH, CurrentBytePosition) -DIM BackupBytePosition AS LONG -BackupBytePosition = CurrentBytePosition -FindChunk$ = "4110" -CALL SearchForChunk(ChunkH)'CBP should now be 4110(MESH_VERTICES) -'\/Read & display vertices -'Number of vertices -CurrentBytePosition = CurrentBytePosition + 6 -GET #1, CurrentBytePosition, numberVertices -PRINT "Number of vertices:"; numberVertices -REDIM PointsArray(2, numberVertices) AS SINGLE'allocate space for 3d points -REDIM NewPointsArray(1, numberVertices) AS LONG'allocate space for screen points -CurrentBytePosition = CurrentBytePosition + 2 -'Actual vertice data -DIM vertex AS SINGLE -FOR i = 0 TO numberVertices -GET #1, CurrentBytePosition, vertex -'PRINT "X-vertex"; vertex -PointsArray(0, i) = vertex -CurrentBytePosition = CurrentBytePosition + 4 -GET #1, CurrentBytePosition, vertex -'PRINT "Y-vertex"; vertex -PointsArray(1, i) = vertex -CurrentBytePosition = CurrentBytePosition + 4 -GET #1, CurrentBytePosition, vertex -'PRINT "Z-vertex"; vertex -PointsArray(2, i) = vertex -CurrentBytePosition = CurrentBytePosition + 4 -NEXT i -'/\Read & display vertices -CALL ReadChunkInfo(ChunkH, BackupBytePosition)'ChunkH should now be 4100(OBJ_MESH) -FindChunk$ = "4120" -CALL SearchForChunk(ChunkH)'CBP should now be 4120(MESH_FACES) -'\/Read & display faces -'Number of faces -CurrentBytePosition = CurrentBytePosition + 6 -GET #1, CurrentBytePosition, numberFaces -PRINT "Number of faces:"; numberFaces -REDIM FaceArray(2, numberFaces) AS INTEGER'allocate space for face points -CurrentBytePosition = CurrentBytePosition + 2 -'Actual face data -DIM face AS INTEGER -FOR i = 0 TO numberFaces -GET #1, CurrentBytePosition, face -'PRINT "Face-point 1:"; face -FaceArray(0, i) = face -CurrentBytePosition = CurrentBytePosition + 2 -GET #1, CurrentBytePosition, face -'PRINT "Face-point 2:"; face -FaceArray(1, i) = face -CurrentBytePosition = CurrentBytePosition + 2 -GET #1, CurrentBytePosition, face -'PRINT "Face-point 3:"; face -FaceArray(2, i) = face -CurrentBytePosition = CurrentBytePosition + 2 -GET #1, CurrentBytePosition, face -'PRINT "Face-visibility:"; face -CurrentBytePosition = CurrentBytePosition + 2 -NEXT i -'\/Read & display faces - - -END SUB - -SUB SearchForChunk (ChunkInfoHolder AS ChunkInfo) - -DIM InnerBytePosition AS LONG -DIM MaxBytePosition AS LONG -InnerBytePosition = ChunkInfoHolder.Position + 6 -MaxBytePosition = ChunkInfoHolder.Position + ChunkInfoHolder.Size -ChunkName$ = HEX$(ChunkInfoHolder.ID) - -Found = 0 - -DO - -CALL ReadChunkInfo(ChunkInfoHolder, InnerBytePosition) - -IF FindChunk$ = HEX$(ChunkInfoHolder.ID) THEN -Found = 1 -ELSE -CALL SkipChunk(ChunkInfoHolder, InnerBytePosition) -END IF - -LOOP UNTIL InnerBytePosition >= MaxBytePosition OR Found = 1 OR INKEY$ = CHR$(27) OR ChunkInfoHolder.Size = 0 - -IF Found = 0 THEN -PRINT "" -PRINT FindChunk$; " was not found within "; ChunkName$; "!" -PRINT "" -SYSTEM -ELSE -CurrentBytePosition = ChunkInfoHolder.Position -END IF - -END SUB - -SUB SkipChunk (ChunkInfoHolder AS ChunkInfo, BytePosition AS LONG) - -BytePosition = BytePosition + ChunkInfoHolder.Size - -END SUB - diff --git a/programs/samples/n54/big/3dsviewer/car.3ds b/programs/samples/n54/big/3dsviewer/car.3ds deleted file mode 100644 index 0d6763dbe..000000000 Binary files a/programs/samples/n54/big/3dsviewer/car.3ds and /dev/null differ diff --git a/programs/samples/n54/big/jpegmake.bas b/programs/samples/n54/big/jpegmake.bas deleted file mode 100644 index c67292024..000000000 --- a/programs/samples/n54/big/jpegmake.bas +++ /dev/null @@ -1,729 +0,0 @@ -'JPEG Encoder v2 by Artelius -'WARNING: OVERWRITES TEST.JPG -DECLARE FUNCTION Atan2! (X AS SINGLE, Y AS SINGLE) -DECLARE SUB PutChar (FileNo AS INTEGER, Char AS INTEGER) - -DECLARE SUB JPEG.Precalc () -DECLARE SUB JPEG.Begin (FileNo AS INTEGER, W AS INTEGER, H AS INTEGER, Sampling() AS INTEGER, State AS ANY, QT() AS INTEGER, Huff() AS INTEGER) -DECLARE SUB JPEG.Block.Output (B() AS INTEGER, State AS ANY, QT() AS INTEGER, Huff() AS INTEGER) -DECLARE SUB JPEG.StandardQT (quality AS SINGLE, QT() AS INTEGER) -DECLARE SUB JPEG.Finish (State AS ANY) -DECLARE FUNCTION JPEG.Category% (X AS INTEGER) -DECLARE FUNCTION JPEG.Cb% (R AS INTEGER, G AS INTEGER, B AS INTEGER) -DECLARE FUNCTION JPEG.Cr% (R AS INTEGER, G AS INTEGER, B AS INTEGER) -DECLARE FUNCTION JPEG.Y% (R AS INTEGER, G AS INTEGER, B AS INTEGER) - -TYPE JPEGState -FileNo AS INTEGER -YCount AS INTEGER -CbCount AS INTEGER -CrCount AS INTEGER -YDC AS INTEGER -CbDC AS INTEGER -CrDC AS INTEGER -Position AS INTEGER -Leftover AS INTEGER -LeftoverBits AS INTEGER -END TYPE - -'The following are internal to JPEG. -DECLARE SUB JPEG.ACHuff (RLE AS INTEGER, AC AS INTEGER, Huff() AS INTEGER, A AS INTEGER, State AS ANY) -DECLARE SUB JPEG.Block.Huffman (B() AS INTEGER, LastDC AS INTEGER, Huff() AS INTEGER, A AS INTEGER, State AS ANY) -DECLARE SUB JPEG.Block.Transform (B() AS INTEGER, O() AS INTEGER, QT() AS INTEGER, A AS INTEGER) -DECLARE SUB JPEG.DCHuff (DC AS INTEGER, Huff() AS INTEGER, A AS INTEGER, State AS ANY) -DECLARE SUB JPEG.GenerateHuffmanTable (Huff() AS INTEGER, A AS INTEGER, B AS INTEGER) -DECLARE SUB JPEG.PutBinString (BS AS INTEGER, Length AS INTEGER, State AS ANY) -DECLARE SUB JPEG.PutByte (FileNo AS INTEGER, Byte AS INTEGER) -DECLARE SUB JPEG.PutRightBinString (BS AS INTEGER, Length AS INTEGER, State AS ANY) -DECLARE SUB JPEG.PutWord (FileNo AS INTEGER, Word AS INTEGER) -DECLARE FUNCTION JPEG.Shift% (I AS INTEGER, N AS INTEGER) - -DEFINT A-Z - -DIM SHARED Pow2(0 TO 15) AS LONG -DIM SHARED Cosine(0 TO 7, 0 TO 7) AS SINGLE -DIM SHARED ZigZagX(0 TO 63) AS INTEGER, ZigZagY(0 TO 63) AS INTEGER -JPEG.Precalc - -DIM Huff(0 TO 255, 0 TO 1, 0 TO 1, 0 TO 1) AS INTEGER -DIM QT(0 TO 7, 0 TO 7, 0 TO 1) AS INTEGER -DIM State AS JPEGState - -DIM Sampling(0 TO 2, 0 TO 1) AS INTEGER -Sampling(0, 0) = 2 'Sampling factor (x then y) for luminance -Sampling(0, 1) = 2 -Sampling(1, 0) = 1 'Sampling factor for "blue" chrominance -Sampling(1, 1) = 1 -Sampling(2, 0) = 1 'Sampling factor for "red" chrominance -Sampling(2, 1) = 1 - - -'Delete file then open for binary -OPEN "test.jpg" FOR OUTPUT AS #1 -CLOSE -OPEN "test.jpg" FOR BINARY AS #1 - -'Set quality tables -'The smaller the paramter, the higher the quality -'0.01 is 100% quality -JPEG.StandardQT .5, QT() - -'Start image (64x64) -JPEG.Begin 1, 128, 128, Sampling(), State, QT(), Huff() - - -DIM B(0 TO 7, 0 TO 7) AS INTEGER - -FOR SuperY = 0 TO 127 STEP 16 -FOR SuperX = 0 TO 127 STEP 16 - -'Output the luminance blocks - -FOR BlockY = 0 TO 15 STEP 8 -FOR BlockX = 0 TO 15 STEP 8 -FOR OffY = 0 TO 7: FOR OffX = 0 TO 7 -X! = OffX + BlockX + SuperX - 63.5 -Y! = OffY + BlockY + SuperY - 63.5 -D! = SQR(X! * X! + Y! * Y!) / 6 + Atan2(X!, Y!) -R = 255 -G = 255 - (COS(D!) + 1) * 127.5 -B = 255 - (COS(D!) + 1) * 127.5 -B(OffX, OffY) = JPEG.Y(R, G, B) -NEXT OffX, OffY -JPEG.Block.Output B(), State, QT(), Huff() -NEXT BlockX, BlockY - -'Output the blue chrominance block - -FOR OffY = 0 TO 7: FOR OffX = 0 TO 7 -X! = OffX * 2 + SuperX - 63 -Y! = OffY * 2 + SuperY - 63 -D! = SQR(X! * X! + Y! * Y!) / 6 + Atan2(X!, Y!) -R = 255 -G = 255 - (COS(D!) + 1) * 127.5 -B = 255 - (COS(D!) + 1) * 127.5 -B(OffX, OffY) = JPEG.Cb(R, G, B) -NEXT OffX, OffY -JPEG.Block.Output B(), State, QT(), Huff() - -'Output the red chrominance block - -FOR OffY = 0 TO 7: FOR OffX = 0 TO 7 -X! = OffX * 2 + SuperX - 63 -Y! = OffY * 2 + SuperY - 63 -D! = SQR(X! * X! + Y! * Y!) / 6 + Atan2(X!, Y!) -R = 255 -G = 255 - (COS(D!) + 1) * 127.5 -B = 255 - (COS(D!) + 1) * 127.5 -B(OffX, OffY) = JPEG.Cr(R, G, B) -NEXT OffX, OffY -JPEG.Block.Output B(), State, QT(), Huff() - -NEXT SuperX, SuperY - - -JPEG.Finish State - -CLOSE - -END - -Huff0: -DATA 0 -DATA 1, 0 -DATA 5, 1, 2, 3, 4, 5 -DATA 1, 6 -DATA 1, 7 -DATA 1, 8 -DATA 1, 9 -DATA 1, 10 -DATA 1, 11 -DATA 0, 0, 0, 0, 0, 0, 0 - -Huff1: -DATA 0 -DATA 3, 0, 1, 2 -DATA 1, 3 -DATA 1, 4 -DATA 1, 5 -DATA 1, 6 -DATA 1, 7 -DATA 1, 8 -DATA 1, 9 -DATA 1, 10 -DATA 1, 11 -DATA 0, 0, 0, 0, 0 - -Huff2: -DATA 0 -DATA 2, 1, 2 -DATA 1, 3 -DATA 3, 0, 4, &H11 -DATA 3, 5, &H12, &H21 -DATA 2, &H31, &H41 -DATA 4, 6, &H13, &H51, &H61 -DATA 3, 7, &H22, &H71 -DATA 5, &H14, &H32, &H81, &H91, &HA1 -DATA 5, &H08, &H23, &H42, &HB1, &HC1 -DATA 4, &H15, &H52, &HD1, &HF0 -DATA 4, &H24, &H33, &H62, &H72 -DATA 0 -DATA 0 -DATA 1, &H82 -DATA 125, &H09, &H0A, &H16, &H17, &H18, &H19, &H1A, &H25, &H26, &H27, &H28, &H29, &H2A, &H34, &H35, &H36 -DATA &H37, &H38, &H39, &H3A, &H43, &H44, &H45, &H46, &H47, &H48, &H49, &H4A, &H53, &H54, &H55, &H56 -DATA &H57, &H58, &H59, &H5A, &H63, &H64, &H65, &H66, &H67, &H68, &H69, &H6A, &H73, &H74, &H75, &H76 -DATA &H77, &H78, &H79, &H7A, &H83, &H84, &H85, &H86, &H87, &H88, &H89, &H8A, &H92, &H93, &H94, &H95 -DATA &H96, &H97, &H98, &H99, &H9A, &HA2, &HA3, &HA4, &HA5, &HA6, &HA7, &HA8, &HA9, &HAA, &HB2, &HB3 -DATA &HB4, &HB5, &HB6, &HB7, &HB8, &HB9, &HBA, &HC2, &HC3, &HC4, &HC5, &HC6, &HC7, &HC8, &HC9, &HCA -DATA &HD2, &HD3, &HD4, &HD5, &HD6, &HD7, &HD8, &HD9, &HDA, &HE1, &HE2, &HE3, &HE4, &HE5, &HE6, &HE7 -DATA &HE8, &HE9, &HEA, &HF1, &HF2, &HF3, &HF4, &HF5, &HF6, &HF7, &HF8, &HF9, &HFA - -Huff3: -DATA 0 -DATA 2, 0, 1 -DATA 1, 2 -DATA 2, 3, &H11 -DATA 4, 4, 5, &H21, &H31 -DATA 4, 6, &H12, &H41, &H51 -DATA 3, 7, &H61, &H71 -DATA 4, &H13, &H22, &H32, &H81 -DATA 7, 8, &H14, &H42, &H91, &HA1, &HB1, &HC1 -DATA 5, 9, &H23, &H33, &H52, &HF0 -DATA 4, &H15, &H62, &H72, &HD1 -DATA 4, &HA, &H16, &H24, &H34 -DATA 0 -DATA 1, &HE1 -DATA 2, &H25, &HF1 -DATA 119, &H17, &H18, &H19, &H1A, &H26, &H27, &H28, &H29, &H2A, &H35, &H36, &H37, &H38, &H39, &H3A, &H43 -DATA &H44, &H45, &H46, &H47, &H48, &H49, &H4A, &H53, &H54, &H55, &H56, &H57, &H58, &H59, &H5A, &H63 -DATA &H64, &H65, &H66, &H67, &H68, &H69, &H6A, &H73, &H74, &H75, &H76, &H77, &H78, &H79, &H7A, &H82 -DATA &H83, &H84, &H85, &H86, &H87, &H88, &H89, &H8A, &H92, &H93, &H94, &H95, &H96, &H97, &H98, &H99 -DATA &H9A, &HA2, &HA3, &HA4, &HA5, &HA6, &HA7, &HA8, &HA9, &HAA, &HB2, &HB3, &HB4, &HB5, &HB6, &HB7 -DATA &HB8, &HB9, &HBA, &HC2, &HC3, &HC4, &HC5, &HC6, &HC7, &HC8, &HC9, &HCA, &HD2, &HD3, &HD4, &HD5 -DATA &HD6, &HD7, &HD8, &HD9, &HDA, &HE2, &HE3, &HE4, &HE5, &HE6, &HE7, &HE8, &HE9, &HEA, &HF2, &HF3 -DATA &HF4, &HF5, &HF6, &HF7, &HF8, &HF9, &HFA - -StandardQT: -DATA 16, 11, 10, 16, 24, 40, 51, 61 -DATA 12, 12, 14, 19, 26, 58, 60, 55 -DATA 14, 13, 16, 24, 40, 57, 69, 56 -DATA 14, 17, 22, 29, 51, 87, 80, 62 -DATA 18, 22, 37, 56, 68, 109, 103, 77 -DATA 24, 35, 55, 64, 81, 104, 113, 92 -DATA 49, 64, 78, 87, 103, 121, 120, 101 -DATA 72, 92, 95, 98, 112, 100, 103, 99 - -DATA 17, 18, 24, 47, 99, 99, 99, 99 -DATA 18, 24, 26, 66, 99, 99, 99, 99 -DATA 24, 26, 56, 99, 99, 99, 99, 99 -DATA 47, 66, 99, 99, 99, 99, 99, 99 -DATA 99, 99, 99, 99, 99, 99, 99, 99 -DATA 99, 99, 99, 99, 99, 99, 99, 99 -DATA 99, 99, 99, 99, 99, 99, 99, 99 -DATA 99, 99, 99, 99, 99, 99, 99, 99 - -DEFSNG A-Z -FUNCTION Atan2! (X AS SINGLE, Y AS SINGLE) - -'Code borrowed from London -Atan2 = ATN(Y / X) - ATN(1) * 4 * (X < 0 - 2 * (X < 0 AND Y < 0)) - -END FUNCTION - -SUB JPEG.ACHuff (RLE AS INTEGER, AC AS INTEGER, Huff() AS INTEGER, A AS INTEGER, State AS JPEGState) -DIM C AS INTEGER, X AS INTEGER -C = JPEG.Category(AC) -X = RLE * 16 + C -JPEG.PutBinString Huff(X, 1, A, 0), Huff(X, 1, A, 1), State -JPEG.PutRightBinString AC + (AC < 0), C, State -END SUB - -SUB JPEG.Begin (FileNo AS INTEGER, W AS INTEGER, H AS INTEGER, Sampling() AS INTEGER, State AS JPEGState, QT() AS INTEGER, Huff() AS INTEGER) - -DIM I AS INTEGER, J AS INTEGER, X AS INTEGER, Y AS INTEGER, T AS INTEGER - -State.FileNo = FileNo - -RESTORE Huff0 -JPEG.GenerateHuffmanTable Huff(), 0, 0 -JPEG.GenerateHuffmanTable Huff(), 0, 1 -JPEG.GenerateHuffmanTable Huff(), 1, 0 -JPEG.GenerateHuffmanTable Huff(), 1, 1 - - -State.YCount = Sampling(0, 0) * Sampling(0, 1) -State.CbCount = Sampling(1, 0) * Sampling(1, 1) -State.CrCount = Sampling(2, 0) * Sampling(2, 1) -State.YDC = 0 -State.CbDC = 0 -State.CrDC = 0 - -State.Position = 0 - -State.Leftover = 0 -State.LeftoverBits = 0 - - -'SOI -PutChar FileNo, 255 -PutChar FileNo, 216 -'APP0 -PutChar FileNo, 255 -PutChar FileNo, 224 -JPEG.PutWord FileNo, 16 -S$ = "JFIF" + CHR$(0): PUT FileNo, , S$ -PutChar FileNo, 1 -PutChar FileNo, 2 -PutChar FileNo, 0 -PutChar FileNo, 0 -PutChar FileNo, 1 -PutChar FileNo, 0 -PutChar FileNo, 1 -PutChar FileNo, 0 -PutChar FileNo, 0 - -'DQT -PutChar FileNo, 255 -PutChar FileNo, 219 -JPEG.PutWord FileNo, 132 - -PutChar FileNo, 0 -FOR I = 0 TO 63 -PutChar FileNo, QT(ZigZagX(I), ZigZagY(I), 0) -NEXT - - - -PutChar FileNo, 1 -FOR I = 0 TO 63 -PutChar FileNo, QT(ZigZagX(I), ZigZagY(I), 1) -NEXT - - - -'DHT -PutChar FileNo, 255 -PutChar FileNo, 196 -T = 2 + 4 * (16 + 1) -RESTORE Huff0 -FOR I = 1 TO 16 * 4 -READ X -FOR J = 1 TO X -READ Y -T = T + 1 -NEXT -NEXT - -JPEG.PutWord FileNo, T - -PutChar FileNo, 0 -RESTORE Huff0 -FOR I = 1 TO 16 -READ X -PutChar FileNo, X -FOR J = 1 TO X -READ Y -NEXT -NEXT -RESTORE Huff0 -FOR I = 1 TO 16 -READ X -FOR J = 1 TO X -READ Y -PutChar FileNo, Y -NEXT -NEXT - -PutChar FileNo, 1 -RESTORE Huff1 -FOR I = 1 TO 16 -READ X -PutChar FileNo, X -FOR J = 1 TO X -READ Y -NEXT -NEXT -RESTORE Huff1 -FOR I = 1 TO 16 -READ X -FOR J = 1 TO X -READ Y -PutChar FileNo, Y -NEXT -NEXT - -PutChar FileNo, 16 -RESTORE Huff2 -FOR I = 1 TO 16 -READ X -PutChar FileNo, X -FOR J = 1 TO X -READ Y -NEXT -NEXT -RESTORE Huff2 -FOR I = 1 TO 16 -READ X -FOR J = 1 TO X -READ Y -PutChar FileNo, Y -NEXT -NEXT - -PutChar FileNo, 17 -RESTORE Huff3 -FOR I = 1 TO 16 -READ X -PutChar FileNo, X -FOR J = 1 TO X -READ Y -NEXT -NEXT -RESTORE Huff3 -FOR I = 1 TO 16 -READ X -FOR J = 1 TO X -READ Y -PutChar FileNo, Y -NEXT -NEXT - -'SOF0 -PutChar FileNo, 255 -PutChar FileNo, 192 -JPEG.PutWord FileNo, 8 + 9 -PutChar FileNo, 8 -JPEG.PutWord FileNo, H -JPEG.PutWord FileNo, W - -PutChar FileNo, 3 - -PutChar FileNo, 1 -PutChar FileNo, Sampling(0, 0) * 16 + Sampling(0, 1) -PutChar FileNo, 0 -PutChar FileNo, 2 -PutChar FileNo, Sampling(1, 0) * 16 + Sampling(1, 1) -PutChar FileNo, 1 -PutChar FileNo, 3 -PutChar FileNo, Sampling(2, 0) * 16 + Sampling(2, 1) -PutChar FileNo, 1 - -'SOS - -PutChar FileNo, 255 -PutChar FileNo, 218 -JPEG.PutWord FileNo, 12 - -PutChar FileNo, 3 - -PutChar FileNo, 1 -PutChar FileNo, &H0 -PutChar FileNo, 2 -PutChar FileNo, &H11 -PutChar FileNo, 3 -PutChar FileNo, &H11 - -PutChar FileNo, 0 -PutChar FileNo, 63 -PutChar FileNo, 0 - -END SUB - -SUB JPEG.Block.Huffman (B() AS INTEGER, LastDC AS INTEGER, Huff() AS INTEGER, A AS INTEGER, State AS JPEGState) -DIM DC AS INTEGER, I AS INTEGER -DIM C AS INTEGER -DC = B(0) - LastDC -JPEG.DCHuff DC, Huff(), A, State -B(64) = -1 - -I = 1 -DO -C = 0 -IF B(I) = 0 THEN - -DO -I = I + 1 -C = C + 1 -LOOP WHILE B(I) = 0 -IF I = 64 THEN - -JPEG.PutBinString Huff(0, 1, A, 0), Huff(0, 1, A, 1), State -EXIT DO -END IF -WHILE C >= 16 - -JPEG.PutBinString Huff(&HF0, 1, A, 0), Huff(&HF0, 1, A, 1), State -C = C - 16 -WEND - -END IF - - -JPEG.ACHuff C, B(I), Huff(), A, State -I = I + 1 -LOOP WHILE I < 64 -END SUB - -SUB JPEG.Block.Output (B() AS INTEGER, State AS JPEGState, QT() AS INTEGER, Huff() AS INTEGER) - -DIM O(0 TO 64) AS INTEGER -State.Position = State.Position + 1 -IF State.Position > State.YCount + State.CbCount + State.CrCount THEN State.Position = 1 -IF State.Position <= State.YCount THEN -JPEG.Block.Transform B(), O(), QT(), 0 -JPEG.Block.Huffman O(), State.YDC, Huff(), 0, State -State.YDC = O(0) -ELSE -JPEG.Block.Transform B(), O(), QT(), 1 -IF State.Position <= State.YCount + State.CbCount THEN -JPEG.Block.Huffman O(), State.CbDC, Huff(), 1, State -State.CbDC = O(0) -ELSE -JPEG.Block.Huffman O(), State.CrDC, Huff(), 1, State -State.CrDC = O(0) -END IF -END IF - -END SUB - -SUB JPEG.Block.Transform (B() AS INTEGER, O() AS INTEGER, QT() AS INTEGER, A AS INTEGER) -DIM U AS INTEGER, V AS INTEGER, X AS INTEGER, Y AS INTEGER -DIM B2(0 TO 7, 0 TO 7) AS SINGLE -DIM T AS SINGLE - -FOR V = 0 TO 7: FOR U = 0 TO 7 -T = 0 -FOR X = 0 TO 7 -T = T + B(X, V) * Cosine(X, U) -NEXT X -B2(U, V) = T -NEXT U, V - -FOR U = 0 TO 7: FOR V = 0 TO 7 -T = 0 -FOR Y = 0 TO 7 -T = T + B2(U, Y) * Cosine(Y, V) -NEXT Y -T = T / 4 -IF U = 0 THEN T = T / SQR(2) -IF V = 0 THEN T = T / SQR(2) -B(U, V) = CINT(T / QT(U, V, A)) -NEXT V, U - -FOR U = 0 TO 63 -O(U) = B(ZigZagX(U), ZigZagY(U)) -NEXT - -END SUB - -FUNCTION JPEG.Category% (X AS INTEGER) -DIM T AS INTEGER, I AS INTEGER -T = ABS(X) -WHILE T -T = T \ 2 -I = I + 1 -WEND -JPEG.Category = I -END FUNCTION - -FUNCTION JPEG.Cb% (R AS INTEGER, G AS INTEGER, B AS INTEGER) - -JPEG.Cb = -.1687 * R - .3313 * G + .5 * B - -END FUNCTION - -FUNCTION JPEG.Cr% (R AS INTEGER, G AS INTEGER, B AS INTEGER) - -JPEG.Cr = .5 * R - .4187 * G - .0813 * B - -END FUNCTION - -SUB JPEG.DCHuff (DC AS INTEGER, Huff() AS INTEGER, A AS INTEGER, State AS JPEGState) -DIM C AS INTEGER -C = JPEG.Category(DC) -JPEG.PutBinString Huff(C, 0, A, 0), Huff(C, 0, A, 1), State -JPEG.PutRightBinString DC + (DC < 0), C, State -END SUB - -SUB JPEG.Finish (State AS JPEGState) - -DEF SEG = VARSEG(State.Leftover) -IF State.LeftoverBits > 8 THEN -JPEG.PutByte State.FileNo, PEEK(VARPTR(State.Leftover) + 1) -POKE VARPTR(State.Leftover) + 1, State.Leftover AND 255 -State.LeftoverBits = State.LeftoverBits - 8 -END IF - -IF State.LeftoverBits THEN -JPEG.PutByte State.FileNo, PEEK(VARPTR(State.Leftover) + 1) OR (Pow2(8 - State.LeftoverBits) - 1) -END IF -DEF SEG - -'EOF marker -PutChar State.FileNo, 255 -PutChar State.FileNo, 217 - -END SUB - -SUB JPEG.GenerateHuffmanTable (Huff() AS INTEGER, A AS INTEGER, B AS INTEGER) -DIM S AS LONG, I AS INTEGER, J AS INTEGER, T AS INTEGER -DIM X AS INTEGER, Y AS INTEGER -S = -1 - -FOR I = 1 TO 16 -READ X -FOR J = 1 TO X - -IF S = -1 THEN -S = 0 -ELSE -S = S + Pow2(T) -END IF - - -READ Y -IF S AND 32768 THEN Huff(Y, A, B, 0) = CINT(S AND 32767&) OR -32768 ELSE Huff(Y, A, B, 0) = S -Huff(Y, A, B, 1) = I -T = 16 - I - -NEXT -NEXT -END SUB - -SUB JPEG.Precalc -DIM X AS INTEGER, Y AS INTEGER, T AS INTEGER, Dir AS INTEGER, L AS LONG - -L = 1 -FOR X = 0 TO 15 -Pow2(X) = L -L = L + L -NEXT -FOR Y = 0 TO 7 -FOR X = 0 TO 7 -Cosine(X, Y) = COS((2 * X + 1) * Y * .1963495) -NEXT X, Y - -X = 0: Y = 0 -T = 0 -Dir = 0 -DO -ZigZagX(T) = X -ZigZagY(T) = Y -T = T + 1 -IF T = 64 THEN EXIT DO -IF Dir THEN -IF Y = 7 THEN -X = X + 1 -Dir = 0 -ELSEIF X = 0 THEN -Y = Y + 1 -Dir = 0 -ELSE -X = X - 1 -Y = Y + 1 -END IF - -ELSE -IF Y = 0 THEN -X = X + 1 -Dir = 1 -ELSEIF X = 7 THEN -Y = Y + 1 -Dir = 1 -ELSE -X = X + 1 -Y = Y - 1 -END IF -END IF -LOOP - - - -END SUB - -SUB JPEG.PutBinString (BS AS INTEGER, Length AS INTEGER, State AS JPEGState) -DIM Temp AS INTEGER - -Temp = BS -State.Leftover = State.Leftover OR JPEG.Shift(Temp, State.LeftoverBits) -State.LeftoverBits = State.LeftoverBits + Length -IF State.LeftoverBits >= 16 THEN -DEF SEG = VARSEG(State.Leftover) -JPEG.PutByte State.FileNo, PEEK(VARPTR(State.Leftover) + 1) -DEF SEG -JPEG.PutByte State.FileNo, State.Leftover AND 255 -State.LeftoverBits = State.LeftoverBits - 16 -State.Leftover = Temp -END IF - -END SUB - -SUB JPEG.PutByte (FileNo AS INTEGER, Byte AS INTEGER) -DIM C AS STRING * 1 -C = CHR$(Byte) -PUT FileNo, , C -IF Byte = 255 THEN C = CHR$(0): PUT FileNo, , C -END SUB - -SUB JPEG.PutRightBinString (BS AS INTEGER, Length AS INTEGER, State AS JPEGState) - -DIM Temp AS LONG -IF Length THEN -Temp = (CLNG(BS) AND Pow2(Length) - 1) * Pow2(16 - Length) -IF Temp AND 32768 THEN Temp = Temp OR -65536 -JPEG.PutBinString CINT(Temp), Length, State -END IF - -END SUB - -SUB JPEG.PutWord (FileNo AS INTEGER, Word AS INTEGER) -DIM C AS STRING * 1 -C = CHR$(Word \ 256) -PUT FileNo, , C -C = CHR$(Word AND 255) -PUT FileNo, , C -END SUB - -FUNCTION JPEG.Shift% (I AS INTEGER, N AS INTEGER) -DIM T AS LONG - -IF N = 0 THEN -JPEG.Shift = I -I = 0 -EXIT FUNCTION -END IF -T = CLNG(I) AND 65535 - -JPEG.Shift = T \ Pow2(N) - -T = (T AND (Pow2(N) - 1)) * Pow2((16 - N) AND 15) -IF T AND 32768 THEN I = CINT(T AND 32767&) OR -32768 ELSE I = CINT(T) -END FUNCTION - -SUB JPEG.StandardQT (quality AS SINGLE, QT() AS INTEGER) - -DIM I AS INTEGER, X AS INTEGER, Y AS INTEGER, T AS INTEGER -RESTORE StandardQT - -FOR I = 0 TO 1: FOR Y = 0 TO 7: FOR X = 0 TO 7 -READ T - -QT(X, Y, I) = T * quality - -IF QT(X, Y, I) = 0 THEN QT(X, Y, I) = 1 -NEXT X, Y, I - -END SUB - -FUNCTION JPEG.Y% (R AS INTEGER, G AS INTEGER, B AS INTEGER) - -JPEG.Y = .299 * R + .587 * G + .114 * B - 128 - -END FUNCTION - -SUB PutChar (FileNo AS INTEGER, Char AS INTEGER) -DIM C AS STRING * 1 -C = CHR$(Char) -PUT FileNo, , C -END SUB diff --git a/programs/samples/n54/big/tictac.bas b/programs/samples/n54/big/tictac.bas deleted file mode 100644 index 917179116..000000000 --- a/programs/samples/n54/big/tictac.bas +++ /dev/null @@ -1,457 +0,0 @@ -DECLARE FUNCTION XWin% (b1 AS INTEGER, b2 AS INTEGER, b3 AS INTEGER, l AS INTEGER) -DECLARE FUNCTION OWin% (b1 AS INTEGER, b2 AS INTEGER, b3 AS INTEGER, l AS INTEGER) -DECLARE SUB Winner (Lineup AS INTEGER) -DECLARE SUB ShowWin (b1 AS INTEGER, b2 AS INTEGER, b3 AS INTEGER) -DECLARE SUB GetUserSignal () -DECLARE SUB EnableMouse (c%) -DECLARE SUB DrawSCREEN () -DECLARE SUB xo (Row%, Col%, symbol%) - -DIM SHARED False AS INTEGER, True AS INTEGER: True = NOT False -DIM SHARED SymbolBOX(6000) AS INTEGER '<---NOTE - -DIM SHARED cH AS INTEGER: 'Cursor Position Horizontal -DIM SHARED cV AS INTEGER: 'Cursor Position Vertical -DIM SHARED click AS INTEGER: ' 0=no click, 1=left click, 2=right -' EnableMouse 1 = Turn cursor on, return coordinates -' EnableMouse 0 = Turn cursor off in order to draw stuff, etc. -DIM SHARED cC AS STRING: 'User pressed key -' GetUserSignal will set return cC or will return Click - -DIM i AS INTEGER, j AS INTEGER, k AS INTEGER -DIM WhoWon AS INTEGER -DIM MadeAMove AS INTEGER, MovesMade AS INTEGER - -' ---------------------------------------------------------- -' Title Screen (Main Program) -' ----------------------------------------------------------- -SCREEN 12 -RANDOMIZE TIMER -DIM Command AS INTEGER, Hard AS INTEGER -GOSUB InitializeScreen -DO -DO: GetUserSignal: LOOP UNTIL click = 1 -GOSUB FindClickedCommand -SELECT CASE Command -CASE 1: -Hard = False -WhoWon = 0 -GOSUB PlayGame -GOSUB ShowWhoWon -GOSUB InitializeScreen -CASE 2: -Hard = True -WhoWon = 0 -GOSUB PlayGame -GOSUB ShowWhoWon -GOSUB InitializeScreen -CASE 3: -GOSUB DoHelp -GOSUB InitializeScreen -CASE 4: -EXIT DO -END SELECT -LOOP -COLOR 7: CLS -SYSTEM - -' ---------------------------------------------------------- -' Game Screen -' ----------------------------------------------------------- -DIM SHARED zX(9) AS INTEGER: ' Where all X's are placed -DIM SHARED zO(9) AS INTEGER: ' Where all O's are placed -DIM SHARED zE(9) AS INTEGER: ' Where empty squares are -DIM theRow AS INTEGER, theColumn AS INTEGER, theBox AS INTEGER - -FindClickedPosition: -CONST Delta = 4 -theRow = 0: theColumn = 0: theBox = 0 -SELECT CASE cH -CASE IS < 170 + Delta: RETURN -CASE IS < 269 - Delta: theColumn = 1 -CASE IS < 269 + Delta: RETURN -CASE IS < 368 - Delta: theColumn = 2 -CASE IS < 368 + Delta: RETURN -CASE IS < 467 - Delta: theColumn = 3 -CASE ELSE: RETURN -END SELECT -SELECT CASE cV -CASE IS < 91 + Delta: RETURN -CASE IS < 190 - Delta: theRow = 1 -CASE IS < 190 + Delta: RETURN -CASE IS < 289 - Delta: theRow = 2 -CASE IS < 289 + Delta: RETURN -CASE IS < 388 - Delta: theRow = 3 -CASE ELSE: RETURN -END SELECT -theBox = (3 * (theRow - 1)) + theColumn -RETURN - -' ---------------------------------------------------------- -' Play Game -' ----------------------------------------------------------- -PlayGame: -DrawSCREEN 'draw the screen and create X and O symbols. -FOR i = 1 TO 9: zO(i) = False: zX(i) = False: zE(i) = True: NEXT i -MovesMade = 0 -DO -GetUserSignal -IF click THEN -MadeAMove = False -GOSUB MakeX -IF MadeAMove THEN -WhoWon = 1: GOSUB ComputeWin: IF WhoWon = 1 THEN RETURN -t% = 0 -FOR i = 1 TO 9: t% = t% + zX(i): NEXT i -IF t% = -5 THEN WhoWon = 0: RETURN -MovesMade = MovesMade + 1 -GOSUB MakeO -WhoWon = 2: GOSUB ComputeWin: IF WhoWon = 2 THEN RETURN -END IF -END IF -IF cC = "d" OR cC = CHR$(27) THEN WhoWon = 3 -IF WhoWon > 0 THEN RETURN -LOOP - -MakeX: -GOSUB FindClickedPosition -IF theBox = 0 THEN RETURN -IF NOT zE(theBox) THEN RETURN -xo theRow, theColumn, 1: ' Places an X -zX(theBox) = True: zE(theBox) = False -MadeAMove = True -RETURN - -MakeO: -GOSUB FindPlaceForO -SLEEP 1: WHILE INKEY$ <> "": WEND -xo theRow, theColumn, 0: 'Places an O -zO(theBox) = True: zE(theBox) = False -RETURN - -ComputeWin: -IF WhoWon = 1 THEN -IF XWin(1, 2, 3, 1) THEN RETURN -IF XWin(4, 5, 6, 2) THEN RETURN -IF XWin(7, 8, 9, 3) THEN RETURN -IF XWin(1, 4, 7, 4) THEN RETURN -IF XWin(2, 5, 8, 5) THEN RETURN -IF XWin(3, 6, 9, 6) THEN RETURN -IF XWin(1, 5, 9, 7) THEN RETURN -IF XWin(3, 5, 7, 8) THEN RETURN -ELSE -IF OWin(1, 2, 3, 1) THEN RETURN -IF OWin(4, 5, 6, 2) THEN RETURN -IF OWin(7, 8, 9, 3) THEN RETURN -IF OWin(1, 4, 7, 4) THEN RETURN -IF OWin(2, 5, 8, 5) THEN RETURN -IF OWin(3, 6, 9, 6) THEN RETURN -IF OWin(1, 5, 9, 7) THEN RETURN -IF OWin(3, 5, 7, 8) THEN RETURN -END IF -WhoWon = 0 -RETURN - -FindPlaceForO: -' See if there is a win for O. If so, take it. -' See if there is a threat of a win for X. If so, block it. -FOR TestType% = 1 TO 2 -theBox = 0 -FOR theRow = 1 TO 3: FOR theColumn = 1 TO 3 -theBox = theBox + 1 -IF zE(theBox) THEN -tk$ = "" -SELECT CASE theBox -CASE 1: tk$ = "234759" -CASE 2: tk$ = "1358" -CASE 3: tk$ = "126957" -CASE 4: tk$ = "1756" -CASE 5: tk$ = "19283746" -CASE 6: tk$ = "4539" -CASE 7: tk$ = "148935" -CASE 8: tk$ = "2579" -CASE 9: tk$ = "153678" -END SELECT -FOR i = 1 TO LEN(tk$) STEP 2 -j = VAL(MID$(tk$, i, 1)) -k = VAL(MID$(tk$, i + 1, 1)) -IF TestType% = 1 THEN -IF zO(j) + zO(k) < -1 THEN RETURN -ELSE -IF zX(j) + zX(k) < -1 THEN RETURN -END IF -NEXT i -END IF -NEXT theColumn: NEXT theRow -NEXT TestType% -' No move selected above to win or block win, so -IF Hard THEN -IF MovesMade = 1 THEN -IF zE(5) THEN -theRow = 2: theColumn = 2: theBox = 5 -ELSE -IF RND > .5 THEN theRow = 1 ELSE theRow = 3 -IF RND > .5 THEN theColumn = 1 ELSE theColumn = 3 -theBox = (3 * (theRow - 1)) + theColumn -END IF -RETURN -ELSEIF MovesMade = 2 THEN -IF zX(5) THEN -tk$ = "" -IF zO(1) AND zX(9) THEN -tk$ = "37" -ELSEIF zO(3) AND zX(7) THEN -tk$ = "19" -ELSEIF zO(7) AND zX(3) THEN -tk$ = "19" -ELSEIF zO(9) AND zX(1) THEN -tk$ = "37" -END IF -IF tk$ <> "" THEN -IF RND > .5 THEN -theBox = VAL(LEFT$(tk$, 1)) -ELSE -theBox = VAL(LEFT$(tk$, 1)) -END IF -theRow = (theBox + 2) \ 3 -theColumn = theBox - (3 * (theRow - 1)) -RETURN -END IF -ELSE -DO -DO: theBox = 2 * INT(1 + (RND * 4)): LOOP WHILE NOT zE(theBox) -SELECT CASE theBox -CASE 2: IF NOT zX(8) THEN EXIT DO -CASE 4: IF NOT zX(6) THEN EXIT DO -CASE 6: IF NOT zX(4) THEN EXIT DO -CASE 8: IF NOT zX(2) THEN EXIT DO -END SELECT -LOOP -theRow = (theBox + 2) \ 3 -theColumn = theBox - (3 * (theRow - 1)) -RETURN -END IF -END IF -END IF -' OK, no good move was found. Make a random one -DO: theBox = 1 + INT(RND * 9): LOOP WHILE NOT zE(theBox) -theRow = (theBox + 2) \ 3 -theColumn = theBox - (3 * (theRow - 1)) -RETURN - -Shuffle: -DO WHILE LEN(w1$) < 4 -r% = 1 + INT(RND * 4) -IF MID$(w2$, r%, 1) <> "x" THEN -w1$ = w1$ + MID$(w2$, r%, 1) -MID$(w2$, r%, 1) = "x" -END IF -LOOP -RETURN - -ShowWhoWon: -SELECT CASE WhoWon -CASE 0: c$ = "Tie! " -CASE 1: c$ = "YOU WIN! " -CASE 2: c$ = "YOU LOSE! " -CASE 3: c$ = "YOU RESIGNED?" -END SELECT -IF WhoWon < 3 THEN SLEEP 2: WHILE INKEY$ <> "": WEND -CLS -FOR i = 1 TO 30 -COLOR 1 + INT(RND * 15) -LOCATE i, i + 20 -PRINT c$; -NEXT i -SLEEP 3: WHILE INKEY$ <> "": WEND -RETURN - -InitializeScreen: -CLS -COLOR 15 -LOCATE 4, 23: PRINT "TIC TAC TOE by Paul Meyer & TheBOB" -LOCATE 6, 27: PRINT "(C) 2004 - 2007 Dos-Id Games" -COLOR 3 -ds% = 131: dd% = 97: dz% = 75 -LINE (ds%, 343)-(ds% + dz%, 380), , BF -LINE (ds% + (1 * dd%), 343)-(ds% + (1 * dd%) + dz%, 380), , BF -LINE (ds% + (2 * dd%), 343)-(ds% + (2 * dd%) + dz%, 380), , BF -LINE (ds% + (3 * dd%), 343)-(ds% + (3 * dd%) + dz%, 380), , BF -LOCATE 23, 19: PRINT " Easy "; -LOCATE , 31: PRINT " Hard "; -LOCATE , 43: PRINT " Info "; -LOCATE , 55: PRINT " Quit " -RETURN - -FindClickedCommand: -Command = 0 -SELECT CASE cV -CASE IS < 343: RETURN -CASE IS > 380: RETURN -END SELECT -SELECT CASE cH -CASE IS < 130: RETURN -CASE IS < 205: Command = 1 -CASE IS < 227: RETURN -CASE IS < 303: Command = 2 -CASE IS < 325: RETURN -CASE IS < 400: Command = 3 -CASE IS < 421: RETURN -CASE IS < 497: Command = 4 -END SELECT -RETURN - - -DoHelp: -CLS -COLOR 2 -LOCATE 3, 1 -PRINT "Credits" -PRINT "-------" -PRINT "This game was created by Paul Meyer in the year 2007." -PRINT : PRINT "Graphics by TheBob" -PRINT : PRINT "Improved mouse driver, modularity, machine play-to-win"; -PRINT " by QBasic Mac" -PRINT : PRINT "History:" -PRINT "http://www.network54.com/Forum/190883/message/1175106480" -PRINT -PRINT "This is freeware, you may change this as much as you want" -PRINT "as long as you don't claim it as yours." -PRINT -PRINT -PRINT "About" -PRINT "-----" -PRINT "This is just a simple TIC TAC TOE game with mouse drivers." -PRINT "This game was created in QuickBasic." -CALL GetUserSignal -CLS -RETURN - -SUB DrawSCREEN -DIM x AS INTEGER, y AS INTEGER -STATIC Finished AS INTEGER -CLS -OUT &H3C8, 0: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 18 -OUT &H3C8, 4: OUT &H3C9, 63: OUT &H3C9, 0: OUT &H3C9, 0 -OUT &H3C8, 9: OUT &H3C9, 0: OUT &H3C9, 12: OUT &H3C9, 48 -OUT &H3C8, 11: OUT &H3C9, 0: OUT &H3C9, 18: OUT &H3C9, 54 -COLOR 7: LOCATE 3, 31: PRINT "T I C - T A C - T O E" -LINE (170, 90)-(490, 410), 0, BF -LINE (160, 81)-(479, 399), 1, BF -LINE (155, 76)-(483, 404), 8, B -LINE (152, 73)-(487, 407), 8, B -LINE (160, 81)-(160, 399), 9 -LINE (160, 81)-(479, 81), 9 -LINE (371, 92)-(372, 393), 0, B -LINE (271, 92)-(272, 392), 0, B -LINE (171, 191)-(472, 192), 0, B -LINE (171, 291)-(472, 292), 0, B -LINE (369, 90)-(370, 390), 13, B -LINE (269, 90)-(270, 390), 13, B -LINE (169, 189)-(470, 190), 13, B -LINE (169, 289)-(470, 290), 13, B -LINE (5, 5)-(634, 474), 8, B -LINE (10, 10)-(629, 469), 8, B -IF Finished THEN EXIT SUB -Finished = True -FOR x = 194 TO 500 -FOR y = 32 TO 46 -IF POINT(x, y) = 8 THEN PSET (x, y), 7 -NEXT y -NEXT x -PSET (188, 108), 0 -DRAW "E3 F30 E30 F6 G30 F30 G6 H30 G30 H6 E30 H30 E3 BF2 P0,0" -PSET (186, 106), 10 -DRAW "E3 F30 E30 F6 G30 F30 G6 H30 G30 H6 E30 H30 E3 BF2 P10,10" -CIRCLE (322, 141), 31, 0 -CIRCLE (322, 141), 37, 0 -PAINT STEP(0, 35), 0 -PSET STEP(0, -35), 0 -CIRCLE (320, 139), 31, 4 -CIRCLE (320, 139), 37, 4 -PAINT STEP(0, 35), 4 -PSET STEP(0, -35), 1 -GET STEP(-40, -40)-STEP(81, 81), SymbolBOX -GET (179, 98)-(260, 178), SymbolBOX(3000) -xo 1, 1, 2: xo 1, 2, 2 -END SUB - -SUB EnableMouse (c%) -STATIC Status AS INTEGER -IF Status = 0 AND c% = 0 THEN EXIT SUB -STATIC Mx AS STRING -IF Mx = "" THEN -m$ = "58E85080585080585080850815510C358508058508085080850815C00" -n$ = "595BECB70BEAB70BE8BFBE6B7B8E7D33BEC978BEA97BE89FBE697DA80" -Mx = SPACE$(57) -FOR i% = 1 TO 57 -H$ = CHR$(VAL("&H" + MID$(m$, i%, 1) + MID$(n$, i%, 1))) -MID$(Mx, i%, 1) = H$ -NEXT i% -END IF -IF c% = 0 THEN -CALL Absolute(2, click, cH, cV, SADD(Mx)) -Status = 0 -EXIT SUB -END IF -IF Status = 0 THEN CALL Absolute(1, click, cH, cV, SADD(Mx)) -Status = 1 -CALL Absolute(3, click, cH, cV, SADD(Mx)) -END SUB - -SUB GetUserSignal -DO -IF 0 THEN ' Set to 1 for Debugging printout, otherwise 0 -LOCATE 2, 1 -PRINT click; " 0 THEN -k% = click -WHILE click <> 0: EnableMouse 1: WEND -click = k% -EXIT DO -END IF -cC = INKEY$ -LOOP WHILE cC = "" -EnableMouse 0 -END SUB - -FUNCTION OWin% (b1 AS INTEGER, b2 AS INTEGER, b3 AS INTEGER, l AS INTEGER) -IF zO(b1) = 0 OR zO(b2) = 0 OR zO(b3) = 0 THEN EXIT FUNCTION -Winner l -OWin% = -1 -END FUNCTION - -SUB Winner (Lineup AS INTEGER) -SELECT CASE Lineup -CASE 1: LINE (200, 140)-(440, 142), 14, BF: LINE (200, 143)-(440, 144), 0, B -CASE 2: LINE (200, 240)-(440, 242), 14, BF: LINE (200, 243)-(440, 244), 0, B -CASE 3: LINE (200, 340)-(440, 342), 14, BF: LINE (200, 343)-(440, 344), 0, B -CASE 4: LINE (220, 120)-(222, 360), 14, BF: LINE (223, 120)-(223, 360), 0 -CASE 5: LINE (320, 120)-(322, 360), 14, BF: LINE (323, 120)-(323, 360), 0 -CASE 6: LINE (420, 120)-(422, 360), 14, BF: LINE (423, 120)-(423, 360), 0 -CASE 7: PSET (200, 120), 14: DRAW "F240 d H240 d F240 d H240 d C0 F240 d H240" -CASE 8: PSET (440, 120), 14: DRAW "G240 d E240 d G240 d E240 d C0 G240 d E240" -END SELECT -END SUB - -SUB xo (Row AS INTEGER, Col AS INTEGER, symbol AS INTEGER) -DIM Index AS INTEGER, x AS INTEGER, y AS INTEGER -x = (Col - 1) * 100 + 180 -y = (Row - 1) * 100 + 100 -Index = symbol * 3000 -IF Index < 6000 THEN -PUT (x, y), SymbolBOX(Index), PSET -ELSE -LINE (x, y)-(x + 80, y + 80), 1, BF -END IF -END SUB - -FUNCTION XWin% (b1 AS INTEGER, b2 AS INTEGER, b3 AS INTEGER, l AS INTEGER) -IF zX(b1) = 0 OR zX(b2) = 0 OR zX(b3) = 0 THEN EXIT FUNCTION -Winner l -XWin% = -1 -END FUNCTION \ No newline at end of file diff --git a/programs/samples/open_gl/3d_model_viewer.bas b/programs/samples/open_gl/3d_model_viewer.bas deleted file mode 100644 index 4027e9836..000000000 --- a/programs/samples/open_gl/3d_model_viewer.bas +++ /dev/null @@ -1,711 +0,0 @@ -CHDIR "programs\samples\open_gl" - -' This example shows how models with textures or materials can be displayed with OpenGL using QB64 -' -'IMPORTANT: -' Whilst the .X file loader is optimized for speed, it is very incomplete: -' -only .X files in text file format -' -only one object, not a cluster of objects -' -if using a texture, use a single texture which will be applied to all materials -' -all the 3D models in this example were exported from Blender, a free 3D creation tool -' Blender tips: CTRL+J to amalgamate objects, select object to export first, in the UV/image-editor -' window you can export the textures built into your .blend file, apply the decimate -' modifier to reduce your polygon count to below 10000, preferably ~3000 or less -' This program is not a definitive guide to OpenGL in any way -' The GLH functions are something I threw together to stop people crashing their code by making -' calls to OpenGL with incorrectly sized memory regions. The GLH... prefixed commands are not mandatory or -' part of QB64, nor do they represent a complete library of helper commands. -' Lighting is not this example's strongest point, there's probably some work to do on light positioning -' and vertex normals -' -'Finally, I hope you enjoy this program as much as I enjoyed piecing it together, -' Galleon - -'###################################### GLH SETUP ############################################# - -'Used to manage textures -TYPE DONT_USE_GLH_Handle_TYPE - in_use AS _BYTE - handle AS LONG -END TYPE - -'Used by GLH RGB/etc helper functions -DIM SHARED DONT_USE_GLH_COL_RGBA(1 TO 4) AS SINGLE - -REDIM SHARED DONT_USE_GLH_Handle(1000) AS DONT_USE_GLH_Handle_TYPE - -'.X Format Model Loading Data -TYPE VERTEX_TYPE - X AS DOUBLE - Y AS DOUBLE - Z AS DOUBLE - NX AS DOUBLE - NY AS DOUBLE - NZ AS DOUBLE -END TYPE -REDIM SHARED VERTEX(1) AS VERTEX_TYPE -DIM SHARED VERTICES AS LONG -TYPE FACE_CORNER_TYPE - V AS LONG 'the vertex index - TX AS SINGLE 'texture X coordinate - TY AS SINGLE 'texture Y coordinate -END TYPE -TYPE FACE_TYPE - V1 AS FACE_CORNER_TYPE - V2 AS FACE_CORNER_TYPE - V3 AS FACE_CORNER_TYPE - Material AS LONG - Index AS LONG -END TYPE -REDIM SHARED FACE(1) AS FACE_TYPE -DIM SHARED FACES AS LONG -TYPE MATERIAL_RGBAI_TYPE - R AS SINGLE - G AS SINGLE - B AS SINGLE - A AS SINGLE - Intensity AS SINGLE -END TYPE -TYPE MATERIAL_TYPE - Diffuse AS MATERIAL_RGBAI_TYPE 'regular col - Specular AS MATERIAL_RGBAI_TYPE 'hightlight/shine col - Texture_Image AS LONG 'both an image and a texture handle are held - Texture AS LONG 'if 0, there is no texture -END TYPE -REDIM SHARED MATERIAL(1) AS MATERIAL_TYPE -DIM SHARED MATERIALS AS LONG - -'############################################################################################## - -DIM SHARED AllowSubGL - -SCREEN _NEWIMAGE(1024, 768, 32) - -backdrop = _LOADIMAGE("backdrop_tron.png") - -DIM SHARED rot1 -DIM SHARED rot2, rot3 -DIM SHARED scale: scale = 1 - -'Load (default) model -GLH_Load_Model_Format_X "marty.x", "marty_tmap.png" -'draw backdrop -_PUTIMAGE , backdrop: _DONTBLEND: LINE (200, 200)-(500, 500), _RGBA(0, 255, 255, 0), BF: _BLEND - -AllowSubGL = 1 - -DO - 'This is our program's main loop - _LIMIT 100 - LOCATE 1, 1 - PRINT "Mouse Input:" - PRINT "{Horizonal Movement}Spin" - PRINT "{Vertical Movement}Flip" - PRINT "{Wheel}Scale" - PRINT - PRINT "Keyboard comands:" - PRINT "Switch rendering order: {1}GL behind, {2}GL on top, {3}GL only, good for speed" - PRINT "Switch/Load model: {A}Zebra, {B}Pig, {C}Car" - - k$ = INKEY$ - IF k$ = "1" THEN _GLRENDER _BEHIND - IF k$ = "2" THEN _GLRENDER _ONTOP - IF k$ = "3" THEN _GLRENDER _ONLY - - - PRINT "Angles:"; rot1, rot2, rot3 - - - IF UCASE$(k$) = "A" THEN - AllowSubGL = 0 - GLH_Load_Model_Format_X "marty.x", "marty_tmap.png" - _PUTIMAGE , backdrop: _DONTBLEND: LINE (200, 200)-(500, 500), _RGBA(0, 255, 255, 0), BF: _BLEND - AllowSubGL = 1 - END IF - - IF UCASE$(k$) = "B" THEN - AllowSubGL = 0 - GLH_Load_Model_Format_X "piggy_mini3.x", "" - _PUTIMAGE , backdrop: _DONTBLEND: LINE (200, 200)-(500, 500), _RGBA(0, 255, 255, 0), BF: _BLEND - AllowSubGL = 1 - END IF - - IF UCASE$(k$) = "C" THEN - AllowSubGL = 0 - GLH_Load_Model_Format_X "gasprin.x", "gasprin_tmap.png" - _PUTIMAGE , backdrop: _DONTBLEND: LINE (200, 200)-(500, 500), _RGBA(0, 255, 255, 0), BF: _BLEND - AllowSubGL = 1 - END IF - - DO WHILE _MOUSEINPUT - scale = scale * (1 - (_MOUSEWHEEL * .1)) - rot1 = _MOUSEX - rot2 = _MOUSEY - LOOP - - IF k$ = "." THEN rot3 = rot3 + 1 - IF k$ = "," THEN rot3 = rot3 - 1 - - - - -LOOP UNTIL k$ = CHR$(27) -END - -'this specially named sub "_GL" is detected by QB64 and adds support for OpenGL commands -'it is called automatically whenever the underlying software deems an update is possible -'usually/ideally, this is in sync with your monitor's refresh rate -SUB _GL STATIC -'STATIC was used above to make all variables in this sub maintain their values between calls to this sub - -IF AllowSubGL = 0 THEN EXIT SUB 'we aren't ready yet! - -'timing is everything, we don't know how fast the 3D renderer will call this sub to we use timers to smooth things out -T# = TIMER(0.001) -IF ETT# = 0 THEN ETT# = T# -ET# = T# - ETT# -ETT# = T# - -IF sub_gl_called = 0 THEN - sub_gl_called = 1 'we only need to perform the following code once - '... -END IF - -'These settings affect how OpenGL will render our content -'!!! THESE SETTINGS ARE TO SHOW HOW ALPHA CAN WORK, BUT IT IS 10x FASTER WHEN ALPHA OPTIONS ARE DISABLED !!! -'*** every setting must be reset because SUB _GL cannot guarantee settings have not changed since last time *** -_glMatrixMode _GL_PROJECTION 'Select The Projection Matrix -_glLoadIdentity 'Reset The Projection Matrix -_gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100 'QB64 internally supports this GLU command for convenience sake, but does not support GLU -_glEnable _GL_TEXTURE_2D -_glEnable _GL_BLEND -_glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA 'how alpha values are interpretted -_glEnable _GL_DEPTH_TEST 'use the zbuffer -_glDepthMask _GL_TRUE -_glAlphaFunc _GL_GREATER, 0.5 'dont do anything if alpha isn't greater than 0.5 (or 128) -_glEnable _GL_ALPHA_TEST -_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR -_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR -'************************************************************************************************************** - -_glMatrixMode _GL_MODELVIEW 'Select The Modelview Matrix -_glLoadIdentity 'Reset The Modelview Matrix - - - -'setup our light -_glEnable _GL_LIGHTING -_glEnable _GL_LIGHT0 -_glLightfv _GL_LIGHT0, _GL_DIFFUSE, GLH_RGB(.8, .8, .8) -_glLightfv _GL_LIGHT0, _GL_AMBIENT, GLH_RGB(0.1, 0.1, 0.1) -_glLightfv _GL_LIGHT0, _GL_SPECULAR, GLH_RGB(0.3, 0.3, 0.3) - -light_rot = light_rot + ET# -_glLightfv _GL_LIGHT0, _GL_POSITION, GLH_RGBA(SIN(light_rot) * 20, COS(light_rot) * 20, 20, 1) - - -_glTranslatef 0, 0, -20 'Translate Into The Screen -_glRotatef rot1, 0, 1, 0 -_glRotatef rot2, 1, 0, 0 -_glRotatef rot3, 0, 0, 1 - - - -current_m = -1 -FOR F = 1 TO FACES - - m = FACE(F).Material - IF m <> current_m THEN 'we don't switch materials unless we have to - IF current_m <> -1 THEN _glEnd 'stop rendering triangles so we can change some settings - current_m = m - IF MATERIAL(m).Texture_Image THEN - - _glEnable _GL_TEXTURE_2D - _glDisable _GL_COLOR_MATERIAL - _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR 'seems these need to be respecified - _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR - - - IF MATERIAL(m).Texture = 0 THEN - MATERIAL(m).Texture = GLH_Image_to_Texture(MATERIAL(m).Texture_Image) - END IF - GLH_Select_Texture MATERIAL(m).Texture - - _glMaterialfv _GL_FRONT, _GL_DIFFUSE, GLH_RGBA(1, 1, 1, 1) - - ELSE - 'use materials, disable textures - _glDisable _GL_TEXTURE_2D - _glDisable _GL_COLOR_MATERIAL - - mult = MATERIAL(m).Diffuse.Intensity 'otherwise known as "power" - r = MATERIAL(m).Diffuse.R * mult - g = MATERIAL(m).Diffuse.G * mult - b = MATERIAL(m).Diffuse.B * mult - ' _glColor3f r, g, b - _glMaterialfv _GL_FRONT, _GL_DIFFUSE, GLH_RGBA(r, g, b, 1) - - mult = MATERIAL(m).Specular.Intensity - r = MATERIAL(m).Specular.R * mult - g = MATERIAL(m).Specular.G * mult - b = MATERIAL(m).Specular.B * mult - _glMaterialfv _GL_FRONT, _GL_SPECULAR, GLH_RGBA(r, g, b, 1) - - END IF - - _glBegin _GL_TRIANGLES - - END IF - - FOR s = 1 TO 3 - - IF s = 1 THEN v = FACE(F).V1.V - IF s = 2 THEN v = FACE(F).V2.V - IF s = 3 THEN v = FACE(F).V3.V - v = v + 1 - - 'vertex - x = (VERTEX(v).X + 0) * scale - y = (VERTEX(v).Y + 0) * scale - z = (VERTEX(v).Z + 0) * scale - 'normal direction from vertex - nx = VERTEX(v).NX: ny = VERTEX(v).NY: nz = VERTEX(v).NZ - - - 'corner's texture coordinates - IF MATERIAL(m).Texture THEN - IF s = 1 THEN tx = FACE(F).V1.TX: ty = FACE(F).V1.TY - IF s = 2 THEN tx = FACE(F).V2.TX: ty = FACE(F).V2.TY - IF s = 3 THEN tx = FACE(F).V3.TX: ty = FACE(F).V3.TY - _glTexCoord2f tx, ty - END IF - - _glNormal3d nx, my, nz - _glVertex3f x, y, z - - NEXT - -NEXT -_glEnd - -END SUB - - - -'QB64 OPEN-GL HELPER MACROS (aka. GLH macros) ####################################################################### - -SUB GLH_Select_Texture (texture_handle AS LONG) 'turn an image handle into a texture handle -IF texture_handle < 1 OR texture_handle > UBOUND(DONT_USE_GLH_HANDLE) THEN ERROR 258: EXIT FUNCTION -IF DONT_USE_GLH_Handle(texture_handle).in_use = 0 THEN ERROR 258: EXIT FUNCTION -_glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(texture_handle).handle -END SUB - -FUNCTION GLH_Image_to_Texture (image_handle AS LONG) 'turn an image handle into a texture handle -IF image_handle >= 0 THEN ERROR 258: EXIT FUNCTION 'don't allow screen pages -DIM m AS _MEM -m = _MEMIMAGE(image_handle) -DIM h AS LONG -h = DONT_USE_GLH_New_Texture_Handle -GLH_Image_to_Texture = h -_glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(h).handle -_glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _WIDTH(image_handle), _HEIGHT(image_handle), 0, &H80E1&&, _GL_UNSIGNED_BYTE, m.OFFSET -_MEMFREE m -END FUNCTION - -FUNCTION DONT_USE_GLH_New_Texture_Handle -handle&& = 0 -_glGenTextures 1, _OFFSET(handle&&) -DONT_USE_GLH_New_Texture_Handle = handle&& -FOR h = 1 TO UBOUND(DONT_USE_GLH_Handle) - IF DONT_USE_GLH_Handle(h).in_use = 0 THEN - DONT_USE_GLH_Handle(h).in_use = 1 - DONT_USE_GLH_Handle(h).handle = handle&& - DONT_USE_GLH_New_Texture_Handle = h - EXIT FUNCTION - END IF -NEXT -REDIM _PRESERVE DONT_USE_GLH_Handle(UBOUND(DONT_USE_GLH_HANDLE) * 2) AS DONT_USE_GLH_Handle_TYPE -DONT_USE_GLH_Handle(h).in_use = 1 -DONT_USE_GLH_Handle(h).handle = handle&& -DONT_USE_GLH_New_Texture_Handle = h -END FUNCTION - - - - -SUB GLH_Load_Model_Format_X (Filename$, Optional_Texture_Filename$) - -_AUTODISPLAY 'so loading messages can be seen - -DEFLNG A-Z - -IF LEN(Optional_Texture_Filename$) THEN - texture_image = _LOADIMAGE(Optional_Texture_Filename$, 32) - IF texure_image = -1 THEN texure_image = 0 -END IF - -'temporary arrays -DIM SIDE_LIST(10000) AS LONG 'used for wrangling triangle-fans/triangle-strips -REDIM TEXCO_TX(1) AS SINGLE -REDIM TEXCO_TY(1) AS SINGLE -REDIM POLY_FACE_INDEX_FIRST(1) AS LONG -REDIM POLY_FACE_INDEX_LAST(1) AS LONG - -'buffer file -fh = FREEFILE: OPEN Filename$ FOR BINARY AS #fh: file_data$ = SPACE$(LOF(fh)): GET #fh, , file_data$: CLOSE #fh - -file_x = 1 -file_data$ = UCASE$(file_data$) - -ASC_COMMA = 44 -ASC_SEMICOLON = 59 -ASC_LBRAC = 123 -ASC_RBRAC = 125 -ASC_SPACE = 32 -ASC_TAB = 9 -ASC_CR = 13 -ASC_LF = 10 -ASC_FSLASH = 47 -ASC_DOT = 46 -ASC_MINUS = 45 - -DIM WhiteSpace(255) AS LONG -WhiteSpace(ASC_LF) = -1 -WhiteSpace(ASC_CR) = -1 -WhiteSpace(ASC_SPACE) = -1 -WhiteSpace(ASC_TAB) = -1 - -DIM FormattingCharacter(255) AS LONG -FormattingCharacter(ASC_COMMA) = -1 -FormattingCharacter(ASC_SEMICOLON) = -1 -FormattingCharacter(ASC_LBRAC) = -1 -FormattingCharacter(ASC_RBRAC) = -1 - -DIM Numeric(255) AS LONG -FOR a = 48 TO 57 - Numeric(a) = -1 -NEXT -Numeric(ASC_DOT) = -1 -Numeric(ASC_MINUS) = -1 - -PRINT "Loading model:" - -DO - - skip_comment: - - 'find start of element - x1 = -1 - FOR x = file_x TO LEN(file_data$) - IF WhiteSpace(ASC(file_data$, x)) = 0 THEN x1 = x: EXIT FOR - NEXT - IF x1 = -1 THEN EXIT DO 'no more data - - a = ASC(file_data$, x1) - IF a = ASC_FSLASH THEN 'commend - IF ASC(file_data$, x1 + 1) = ASC_FSLASH THEN - FOR x = x1 TO LEN(file_data$) - a = ASC(file_data$, x) - IF a = ASC_CR OR a = ASC_LF THEN file_x = x + 1: GOTO skip_comment '//..... - NEXT - END IF - END IF - - 'find end of element - x2 = x1 - FOR x = x1 TO LEN(file_data$) - a = ASC(file_data$, x) - IF WhiteSpace(a) THEN - IF a = ASC_CR OR a = ASC_LF THEN EXIT FOR 'it is the end - ELSE - 'not whitespace - IF FormattingCharacter(a) THEN EXIT FOR - x2 = x - END IF - NEXT - file_x = x2 + 1 - - a2$ = MID$(file_data$, x1, x2 - x1 + 1) - - IF LEN(skip_until$) THEN - IF a2$ <> skip_until$ THEN GOTO skip_comment - skip_until$ = "" - END IF - - - - a = ASC(a2$) - - IF Numeric(a) AND a <> ASC_DOT THEN 'faster than VAL, value conversion - v = 0 - dp = 0 - div = 1 - IF a = ASC_MINUS THEN neg = 1: x1 = 2 ELSE neg = 0: x1 = 1 - FOR x = x1 TO LEN(a2$) - a2 = ASC(a2$, x) - IF a2 = ASC_DOT THEN - dp = 1 - ELSE - v = v * 10 + (a2 - 48) - IF dp THEN div = div * 10 - END IF - NEXT - - IF dp = 1 THEN - v# = v - div# = div - IF neg THEN value# = (-v#) / div# ELSE value# = v# / div# - ELSE - IF neg THEN value# = -v ELSE value# = v - END IF - - END IF - - IF face_input THEN - IF face_input = 3 THEN - IF a2$ = ";" THEN - IF last_a2$ = ";" THEN face_input = 0 - SLI = SLI + 1 - ELSEIF a2$ = "," THEN - face_input = 2 - polygon = polygon + 1 - ELSE - SIDE_LIST(SLI) = value# - IF SLI >= 3 THEN - FACES = FACES + 1 - IF FACES > UBOUND(FACE) THEN REDIM _PRESERVE FACE(UBOUND(FACE) * 2) AS FACE_TYPE - FACE(FACES).V1.V = SIDE_LIST(1) - FACE(FACES).V2.V = SIDE_LIST(SLI - 1) - FACE(FACES).V3.V = SIDE_LIST(SLI) - IF POLY_FACE_INDEX_FIRST(polygon) = 0 THEN POLY_FACE_INDEX_FIRST(polygon) = FACES - POLY_FACE_INDEX_LAST(polygon) = FACES - FACE(FACES).Index = polygon - END IF - - file_x = file_x + 1: a2$ = ";": a = ASC_SEMICOLON: SLI = SLI + 1 - - - END IF - GOTO done - END IF - IF face_input = 2 THEN - SIDES = value# - SLI = 0 - face_input = 3 - GOTO done - END IF - IF face_input = 1 THEN - POLYGONS = value# - REDIM _PRESERVE FACE(POLYGONS * 4) AS FACE_TYPE 'estimate triangles in polygons - REDIM POLY_FACE_INDEX_FIRST(POLYGONS) AS LONG - REDIM POLY_FACE_INDEX_LAST(POLYGONS) AS LONG - polygon = 1 - face_input = 2 - FACES = 0 - GOTO done - END IF - END IF - - IF mesh_input THEN - IF mesh_input = 5 THEN - IF a = ASC_SEMICOLON THEN - mesh_input = 0: face_input = 1 - IF normals_input = 1 THEN - face_input = 0 'face input is unrequired on 2nd pass - skip_until$ = "MESHMATERIALLIST" - END IF - END IF - GOTO done - END IF - IF mesh_input = 4 THEN - IF a = ASC_SEMICOLON THEN - 'ignore - ELSEIF a = ASC_COMMA THEN - vertex = vertex + 1 - ELSE - IF normals_input = 1 THEN - IF plane = 1 THEN VERTEX(vertex).NX = value# - IF plane = 2 THEN VERTEX(vertex).NY = value# - IF plane = 3 THEN VERTEX(vertex).NZ = value# - ELSE - IF plane = 1 THEN VERTEX(vertex).X = value# - IF plane = 2 THEN VERTEX(vertex).Y = value# - IF plane = 3 THEN VERTEX(vertex).Z = value# - END IF - - plane = plane + 1 - IF plane = 4 THEN - plane = 1 - IF vertex = VERTICES THEN mesh_input = 5 - END IF - - file_x = file_x + 1 'skip next character (semicolon) - - END IF - GOTO done - END IF - IF mesh_input = 3 THEN - IF a2$ = ";" THEN mesh_input = 4 - GOTO done - END IF - IF mesh_input = 2 THEN - VERTICES = value# - IF normals_input = 0 THEN - REDIM VERTEX(VERTICES) AS VERTEX_TYPE - REDIM TEXCO_TX(VERTICES) AS SINGLE - REDIM TEXCO_TY(VERTICES) AS SINGLE - END IF - mesh_input = 3 - GOTO done - END IF - IF mesh_input = 1 THEN - IF a2$ = "{" THEN mesh_input = 2: plane = 1: vertex = 1 - GOTO done - END IF - GOTO done - END IF - - IF matlist_input THEN - IF matlist_input = 6 THEN - IF a2$ = "," THEN - 'do nothing - ELSEIF a2$ = ";" THEN - matlist_input = 0 - ELSE - polygon = polygon + 1: m = value# - FOR f = POLY_FACE_INDEX_FIRST(polygon) TO POLY_FACE_INDEX_LAST(polygon) - FACE(f).Material = m + 1 - NEXT - END IF - GOTO done - END IF - IF matlist_input = 5 AND a2$ = ";" THEN matlist_input = 6: polygon = 0: face_search_start = 1: GOTO done - IF matlist_input = 4 THEN matlist_input = 5: GOTO done - IF matlist_input = 3 AND a2$ = ";" THEN matlist_input = 4: GOTO done - IF matlist_input = 2 THEN MATERIALS = value#: REDIM MATERIAL(MATERIALS) AS MATERIAL_TYPE: matlist_input = 3: GOTO done - IF matlist_input = 1 AND a2$ = "{" THEN matlist_input = 2: GOTO done - GOTO done - END IF - - IF material_input THEN - IF material_input = 2 THEN - IF a2$ = ";" THEN - 'do nothing - ELSEIF a2$ = "}" THEN - material_input = 0 - ELSE - N = material_n - IF N = 1 THEN MATERIAL(MATERIAL).Diffuse.R = value# - IF N = 2 THEN MATERIAL(MATERIAL).Diffuse.G = value# - IF N = 3 THEN MATERIAL(MATERIAL).Diffuse.B = value# - IF N = 4 THEN MATERIAL(MATERIAL).Diffuse.A = value# - IF N = 5 THEN MATERIAL(MATERIAL).Diffuse.Intensity = value# / 100 - IF N = 6 THEN MATERIAL(MATERIAL).Specular.R = value# - IF N = 7 THEN MATERIAL(MATERIAL).Specular.G = value# - IF N = 8 THEN MATERIAL(MATERIAL).Specular.B = value# - IF N = 9 THEN MATERIAL(MATERIAL).Specular.A = value# - IF N = 10 THEN MATERIAL(MATERIAL).Specular.Intensity = MATERIAL(MATERIAL).Diffuse.Intensity - - 'if texture_image - material_n = N + 1 - - END IF - GOTO done - END IF - IF material_input = 1 AND a2$ = "{" THEN material_input = 2: material_n = 1: GOTO done - GOTO done - END IF - - IF texco_input THEN - IF texco_input = 4 THEN - IF a2$ = ";" THEN - IF last_a2$ = ";" THEN - texco_input = 0 - GOTO finished - END IF - plane = plane + 1: IF plane = 3 THEN plane = 1 - ELSEIF a2$ = "," THEN - vertex = vertex + 1 - ELSE - IF plane = 1 THEN - TEXCO_TX(vertex) = value# - ELSE - TEXCO_TY(vertex) = value# - END IF - END IF - GOTO done - END IF - IF texco_input = 3 THEN - IF a2$ = ";" THEN texco_input = 4: plane = 1: vertex = 1 - GOTO done - END IF - IF texco_input = 2 THEN - 'vertices already known - texco_input = 3 - GOTO done - END IF - IF texco_input = 1 THEN - IF a2$ = "{" THEN texco_input = 2 - GOTO done - END IF - - GOTO done - END IF - - 'mode switch? - IF a2$ = "MESHTEXTURECOORDS" THEN texco_input = 1: PRINT "[Texture Coordinates]";: GOTO done - IF a2$ = "MESHNORMALS" THEN normals_input = 1: mesh_input = 1: face_input = 0: PRINT "[Normals]";: GOTO done - IF a2$ = "MESH" THEN mesh_input = 1: PRINT "[Mesh Vertices & Faces]";: GOTO done - IF a2$ = "MESHMATERIALLIST" THEN matlist_input = 1: PRINT "[Face Material Indexes]";: GOTO done - IF LEFT$(a2$, 9) = "MATERIAL " THEN - material_input = 1: MATERIAL = MATERIAL + 1 - MATERIAL(MATERIAL).Texture = 0: MATERIAL(MATERIAL).Texture_Image = texture_image - PRINT "[Material]";: GOTO done - END IF - done: - - progress = progress + 1: IF progress > 5000 THEN PRINT ".";: progress = 0 - - IF a = ASC_SEMICOLON THEN - last_a2$ = a2$ - ELSE - IF LEN(last_a2$) THEN last_a2$ = "" - END IF - -LOOP -finished: -'change texture coords (with are organised per vertex to be organised by face side -'that way one vertex can share multiple materials without duplicating the vertex -PRINT "[Attaching Texture Coordinates to Face Cornders]"; -f = 1 -DO UNTIL f > FACES - v = FACE(f).V1.V + 1: FACE(f).V1.TX = TEXCO_TX(v): FACE(f).V1.TY = TEXCO_TY(v) - v = FACE(f).V2.V + 1: FACE(f).V2.TX = TEXCO_TX(v): FACE(f).V2.TY = TEXCO_TY(v) - v = FACE(f).V3.V + 1: FACE(f).V3.TX = TEXCO_TX(v): FACE(f).V3.TY = TEXCO_TY(v) - f = f + 1 -LOOP -PRINT -PRINT "Model loaded!" - -DEFSNG A-Z - -END SUB - -FUNCTION GLH_RGB%& (r AS SINGLE, g AS SINGLE, b AS SINGLE) -DONT_USE_GLH_COL_RGBA(1) = r -DONT_USE_GLH_COL_RGBA(2) = g -DONT_USE_GLH_COL_RGBA(3) = b -DONT_USE_GLH_COL_RGBA(4) = 1 -GLH_RGB = _OFFSET(DONT_USE_GLH_COL_RGBA()) -END FUNCTION - -FUNCTION GLH_RGBA%& (r AS SINGLE, g AS SINGLE, b AS SINGLE, a AS SINGLE) -DONT_USE_GLH_COL_RGBA(1) = r -DONT_USE_GLH_COL_RGBA(2) = g -DONT_USE_GLH_COL_RGBA(3) = b -DONT_USE_GLH_COL_RGBA(4) = a -GLH_RGBA = _OFFSET(DONT_USE_GLH_COL_RGBA()) -END FUNCTION - - - diff --git a/programs/samples/open_gl/backdrop_tron.png b/programs/samples/open_gl/backdrop_tron.png deleted file mode 100644 index de1c498ab..000000000 Binary files a/programs/samples/open_gl/backdrop_tron.png and /dev/null differ diff --git a/programs/samples/open_gl/gasprin.x b/programs/samples/open_gl/gasprin.x deleted file mode 100644 index 0c2798789..000000000 --- a/programs/samples/open_gl/gasprin.x +++ /dev/null @@ -1,84768 +0,0 @@ -xof 0303txt 0032 - -Frame Root { - FrameTransformMatrix { - 1.000000, 0.000000, 0.000000, 0.000000, - 0.000000, 0.000000, 1.000000, 0.000000, - 0.000000, 1.000000,-0.000000, 0.000000, - 0.000000, 0.000000, 0.000000, 1.000000;; - } - Frame GasprinBody { - FrameTransformMatrix { - 0.100000, 0.000000, 0.000000, 0.000000, - 0.000000, 0.100000, 0.000000, 0.000000, - 0.000000, 0.000000, 0.100000, 0.000000, - 0.000000, 0.000000, 0.000000, 1.000000;; - } - Mesh { //Gasprin_001 Mesh - 21720; - 2.936630; 2.685331; 1.263792;, - 3.171532; 2.686853; 1.372387;, - 2.934767; 2.686845; 1.371825;, - 2.934767; 2.686845; 1.371825;, - 2.699866; 2.685323; 1.263231;, - 2.936630; 2.685331; 1.263792;, - 2.699866; 2.685323; 1.263231;, - 2.934767; 2.686845; 1.371825;, - 2.698003; 2.686837; 1.371264;, - 2.701728; 2.683809; 1.155197;, - 2.936630; 2.685331; 1.263792;, - 2.699866; 2.685323; 1.263231;, - 2.589937; 2.661888; 0.927041;, - 2.701728; 2.683809; 1.155197;, - 2.587798; 2.684057; 1.152429;, - 2.587798; 2.684057; 1.152429;, - 2.476007; 2.662136; 0.924273;, - 2.589937; 2.661888; 0.927041;, - 2.476007; 2.662136; 0.924273;, - 2.587798; 2.684057; 1.152429;, - 2.473867; 2.684305; 1.149661;, - 2.478146; 2.639967; 0.698885;, - 2.589937; 2.661888; 0.927041;, - 2.476007; 2.662136; 0.924273;, - 2.474800; 2.528689; 2.099228;, - 2.357177; 2.535577; 2.065043;, - 2.474778; 2.547693; 2.065043;, - 2.474778; 2.547693; 2.065043;, - 2.592401; 2.540805; 2.099228;, - 2.474800; 2.528689; 2.099228;, - 2.592401; 2.540805; 2.099228;, - 2.474778; 2.547693; 2.065043;, - 2.592379; 2.559808; 2.065043;, - 2.592423; 2.521802; 2.133414;, - 2.474800; 2.528689; 2.099228;, - 2.592401; 2.540805; 2.099228;, - 4.101757; 2.681172; 1.248826;, - 4.338306; 2.675495; 1.125582;, - 4.315220; 2.678951; 1.253294;, - 4.315220; 2.678951; 1.253294;, - 4.078671; 2.684628; 1.376538;, - 4.101757; 2.681172; 1.248826;, - 4.078671; 2.684628; 1.376538;, - 4.315220; 2.678951; 1.253294;, - 4.292134; 2.682407; 1.381005;, - 3.865207; 2.686849; 1.372070;, - 4.101757; 2.681172; 1.248826;, - 4.078671; 2.684628; 1.376538;, - -5.233535; 2.519381; 0.747566;, - -5.671966; 2.413821; 0.788812;, - -5.682962; 2.513254; 0.797878;, - -5.682962; 2.513254; 0.797878;, - -5.244532; 2.618814; 0.756631;, - -5.233535; 2.519381; 0.747566;, - -5.244532; 2.618814; 0.756631;, - -5.682962; 2.513254; 0.797878;, - -5.693959; 2.612687; 0.806943;, - -4.795105; 2.624941; 0.706319;, - -5.233535; 2.519381; 0.747566;, - -5.244532; 2.618814; 0.756631;, - -5.128276; 2.586586; 0.095842;, - -4.831372; 2.586664; 0.108075;, - -5.095578; 2.597939; 0.099307;, - -5.095578; 2.597939; 0.099307;, - -5.392483; 2.597860; 0.087074;, - -5.128276; 2.586586; 0.095842;, - -5.392483; 2.597860; 0.087074;, - -5.095578; 2.597939; 0.099307;, - -5.359784; 2.609213; 0.090539;, - -5.425181; 2.586507; 0.083609;, - -5.128276; 2.586586; 0.095842;, - -5.392483; 2.597860; 0.087074;, - 2.931865;-2.639298; 1.371826;, - 3.166976;-2.639306; 1.372387;, - 2.933714;-2.637784; 1.263792;, - 2.933714;-2.637784; 1.263792;, - 2.698604;-2.637776; 1.263231;, - 2.931865;-2.639298; 1.371826;, - 2.698604;-2.637776; 1.263231;, - 2.933714;-2.637784; 1.263792;, - 2.700452;-2.636262; 1.155197;, - 2.696755;-2.639290; 1.371265;, - 2.931865;-2.639298; 1.371826;, - 2.698604;-2.637776; 1.263231;, - 2.587160;-2.636478; 1.152429;, - 2.700452;-2.636262; 1.155197;, - 2.589299;-2.614314; 0.927041;, - 2.589299;-2.614314; 0.927041;, - 2.476007;-2.614530; 0.924273;, - 2.587160;-2.636478; 1.152429;, - 2.476007;-2.614530; 0.924273;, - 2.589299;-2.614314; 0.927041;, - 2.478146;-2.592366; 0.698885;, - 2.473867;-2.636694; 1.149661;, - 2.587160;-2.636478; 1.152429;, - 2.476007;-2.614530; 0.924273;, - 2.474523;-2.500263; 2.065043;, - 2.357177;-2.488255; 2.065043;, - 2.474544;-2.481261; 2.099229;, - 2.474544;-2.481261; 2.099229;, - 2.591889;-2.493269; 2.099229;, - 2.474523;-2.500263; 2.065043;, - 2.591889;-2.493269; 2.099229;, - 2.474544;-2.481261; 2.099229;, - 2.591911;-2.474268; 2.133415;, - 2.591868;-2.512271; 2.065043;, - 2.474523;-2.500263; 2.065043;, - 2.591889;-2.493269; 2.099229;, - 4.303891;-2.631404; 1.253294;, - 4.327158;-2.627949; 1.125582;, - 4.091482;-2.633626; 1.248826;, - 4.091482;-2.633626; 1.248826;, - 4.068215;-2.637081; 1.376538;, - 4.303891;-2.631404; 1.253294;, - 4.068215;-2.637081; 1.376538;, - 4.091482;-2.633626; 1.248826;, - 3.855806;-2.639302; 1.372070;, - 4.280624;-2.634859; 1.381005;, - 4.303891;-2.631404; 1.253294;, - 4.068215;-2.637081; 1.376538;, - -5.691398;-2.497050; 0.764475;, - -5.693221;-2.447461; 0.788812;, - -5.244164;-2.512430; 0.747566;, - -5.244164;-2.512430; 0.747566;, - -5.242341;-2.562019; 0.723229;, - -5.691398;-2.497050; 0.764475;, - -5.242341;-2.562019; 0.723229;, - -5.244164;-2.512430; 0.747566;, - -4.795107;-2.577399; 0.706319;, - -5.689575;-2.546640; 0.740139;, - -5.691398;-2.497050; 0.764475;, - -5.242341;-2.562019; 0.723229;, - -5.095580;-2.566243; 0.099307;, - -4.831374;-2.539125; 0.108075;, - -5.128280;-2.539046; 0.095842;, - -5.128280;-2.539046; 0.095842;, - -5.392486;-2.566164; 0.087075;, - -5.095580;-2.566243; 0.099307;, - -5.392486;-2.566164; 0.087075;, - -5.128280;-2.539046; 0.095842;, - -5.425185;-2.538967; 0.083610;, - -5.359786;-2.593360; 0.090539;, - -5.095580;-2.566243; 0.099307;, - -5.392486;-2.566164; 0.087075;, - -5.050007;-2.546224; 1.207381;, - -5.540644;-2.471280; 1.243142;, - -5.403950;-2.484971; 1.484963;, - -5.403950;-2.484971; 1.484963;, - -4.913312;-2.559914; 1.449202;, - -5.050007;-2.546224; 1.207381;, - -4.913312;-2.559914; 1.449202;, - -5.403950;-2.484971; 1.484963;, - -5.267255;-2.498661; 1.726784;, - -4.559369;-2.621167; 1.171620;, - -5.050007;-2.546224; 1.207381;, - -4.913312;-2.559914; 1.449202;, - -4.038665;-2.597004; 1.704288;, - -4.071903;-2.638742; 1.420888;, - -4.575152;-2.562311; 1.662791;, - -4.575152;-2.562311; 1.662791;, - -4.541914;-2.520574; 1.946192;, - -4.038665;-2.597004; 1.704288;, - -4.541914;-2.520574; 1.946192;, - -4.575152;-2.562311; 1.662791;, - -5.078402;-2.485880; 1.904695;, - -4.005426;-2.555267; 1.987688;, - -4.038665;-2.597004; 1.704288;, - -4.541914;-2.520574; 1.946192;, - -5.402038; 2.523783; 1.484962;, - -5.540639; 2.507627; 1.243142;, - -5.050004; 2.588170; 1.207381;, - -5.050004; 2.588170; 1.207381;, - -4.911402; 2.604326; 1.449202;, - -5.402038; 2.523783; 1.484962;, - -4.911402; 2.604326; 1.449202;, - -5.050004; 2.588170; 1.207381;, - -4.559368; 2.668713; 1.171620;, - -5.263436; 2.539939; 1.726783;, - -5.402038; 2.523783; 1.484962;, - -4.911402; 2.604326; 1.449202;, - -4.540004; 2.585547; 1.946191;, - -5.074582; 2.568287; 1.904695;, - -4.573242; 2.627288; 1.662791;, - -4.573242; 2.627288; 1.662791;, - -4.038665; 2.644548; 1.704288;, - -4.540004; 2.585547; 1.946191;, - -4.038665; 2.644548; 1.704288;, - -4.573242; 2.627288; 1.662791;, - -4.071903; 2.686289; 1.420888;, - -4.005426; 2.602808; 1.987687;, - -4.540004; 2.585547; 1.946191;, - -4.038665; 2.644548; 1.704288;, - -5.832759; 1.988335; 0.829511;, - -5.872725; 1.742845; 0.831544;, - -5.932566; 1.986374; 0.829511;, - -5.932566; 1.986374; 0.829511;, - -5.892599; 2.231864; 0.827478;, - -5.832759; 1.988335; 0.829511;, - -5.892599; 2.231864; 0.827478;, - -5.932566; 1.986374; 0.829511;, - -5.992406; 2.229904; 0.827478;, - -5.792793; 2.233825; 0.827478;, - -5.832759; 1.988335; 0.829511;, - -5.892599; 2.231864; 0.827478;, - -5.932616;-1.938530; 0.829512;, - -5.872801;-1.694846; 0.831544;, - -5.832808;-1.940489; 0.829512;, - -5.832808;-1.940489; 0.829512;, - -5.892624;-2.184174; 0.827479;, - -5.932616;-1.938530; 0.829512;, - -5.892624;-2.184174; 0.827479;, - -5.832808;-1.940489; 0.829512;, - -5.792816;-2.186132; 0.827479;, - -5.992432;-2.182215; 0.827479;, - -5.932616;-1.938530; 0.829512;, - -5.892624;-2.184174; 0.827479;, - 2.709026; 2.167474; 2.267308;, - 2.810881; 2.164256; 2.282468;, - 2.216768; 1.921432; 2.795336;, - 2.216768; 1.921432; 2.795336;, - 2.114913; 1.924649; 2.780176;, - 2.709026; 2.167474; 2.267308;, - 2.114913; 1.924649; 2.780176;, - 2.216768; 1.921432; 2.795336;, - 1.622655; 1.678608; 3.308204;, - 2.607171; 2.170691; 2.252148;, - 2.709026; 2.167474; 2.267308;, - 2.114913; 1.924649; 2.780176;, - 2.704023;-2.119829; 2.267309;, - 2.604848;-2.123043; 2.252149;, - 2.113764;-1.874566; 2.780191;, - 2.113764;-1.874566; 2.780191;, - 2.212939;-1.871351; 2.795351;, - 2.704023;-2.119829; 2.267309;, - 2.212939;-1.871351; 2.795351;, - 2.113764;-1.874566; 2.780191;, - 1.622680;-1.626089; 3.308233;, - 2.803198;-2.116614; 2.282468;, - 2.704023;-2.119829; 2.267309;, - 2.212939;-1.871351; 2.795351;, - -0.446948; 1.484080; 3.330771;, - -0.462574; 1.311003; 3.356039;, - -0.535344; 1.297013; 3.354946;, - -0.535344; 1.297013; 3.354946;, - -0.519718; 1.470089; 3.329678;, - -0.446948; 1.484080; 3.330771;, - -0.519718; 1.470089; 3.329678;, - -0.535344; 1.297013; 3.354946;, - -0.608114; 1.283022; 3.353852;, - -0.431322; 1.657157; 3.305503;, - -0.446948; 1.484080; 3.330771;, - -0.519718; 1.470089; 3.329678;, - -0.519736;-1.420981; 3.329698;, - -0.608124;-1.235032; 3.353863;, - -0.535381;-1.248637; 3.354990;, - -0.535381;-1.248637; 3.354990;, - -0.446993;-1.434587; 3.330824;, - -0.519736;-1.420981; 3.329698;, - -0.446993;-1.434587; 3.330824;, - -0.535381;-1.248637; 3.354990;, - -0.462638;-1.262242; 3.356116;, - -0.431347;-1.606931; 3.305532;, - -0.519736;-1.420981; 3.329698;, - -0.446993;-1.434587; 3.330824;, - -3.479344; 1.818783; 2.225188;, - -3.478070; 2.029969; 2.225347;, - -2.572516; 1.818677; 2.293469;, - -2.572516; 1.818677; 2.293469;, - -2.573791; 1.607491; 2.293310;, - -3.479344; 1.818783; 2.225188;, - -2.573791; 1.607491; 2.293310;, - -2.572516; 1.818677; 2.293469;, - -1.666962; 1.607385; 2.361592;, - -3.480619; 1.607597; 2.225029;, - -3.479344; 1.818783; 2.225188;, - -2.573791; 1.607491; 2.293310;, - -2.572516; 1.818677; 2.293469;, - -3.478070; 2.029969; 2.225347;, - -2.500672; 2.022931; 2.256362;, - -2.500672; 2.022931; 2.256362;, - -1.595119; 1.811639; 2.324484;, - -2.572516; 1.818677; 2.293469;, - -1.595119; 1.811639; 2.324484;, - -2.500672; 2.022931; 2.256362;, - -1.523275; 2.015893; 2.287377;, - -1.666962; 1.607385; 2.361592;, - -2.572516; 1.818677; 2.293469;, - -1.595119; 1.811639; 2.324484;, - -2.500672;-1.975563; 2.256362;, - -3.478070;-1.982596; 2.225347;, - -2.572517;-1.771375; 2.293469;, - -2.572517;-1.771375; 2.293469;, - -1.595120;-1.764342; 2.324484;, - -2.500672;-1.975563; 2.256362;, - -1.595120;-1.764342; 2.324484;, - -2.572517;-1.771375; 2.293469;, - -1.666965;-1.560153; 2.361592;, - -1.523275;-1.968530; 2.287377;, - -2.500672;-1.975563; 2.256362;, - -1.595120;-1.764342; 2.324484;, - -2.572517;-1.771375; 2.293469;, - -3.478070;-1.982596; 2.225347;, - -3.479345;-1.771302; 2.225188;, - -3.479345;-1.771302; 2.225188;, - -2.573792;-1.560080; 2.293311;, - -2.572517;-1.771375; 2.293469;, - -2.573792;-1.560080; 2.293311;, - -3.479345;-1.771302; 2.225188;, - -3.480620;-1.560007; 2.225029;, - -1.666965;-1.560153; 2.361592;, - -2.572517;-1.771375; 2.293469;, - -2.573792;-1.560080; 2.293311;, - -4.073215;-1.774762; 2.193817;, - -4.073534;-1.559963; 2.193006;, - -3.775802;-1.771280; 2.209176;, - -3.775802;-1.771280; 2.209176;, - -3.775483;-1.986079; 2.209988;, - -4.073215;-1.774762; 2.193817;, - -3.775483;-1.986079; 2.209988;, - -3.775802;-1.771280; 2.209176;, - -3.478070;-1.982596; 2.225347;, - -4.072896;-1.989561; 2.194628;, - -4.073215;-1.774762; 2.193817;, - -3.775483;-1.986079; 2.209988;, - -3.775802;-1.771280; 2.209176;, - -4.073534;-1.559963; 2.193006;, - -3.777077;-1.559985; 2.209018;, - -3.777077;-1.559985; 2.209018;, - -3.479345;-1.771302; 2.225188;, - -3.775802;-1.771280; 2.209176;, - -3.479345;-1.771302; 2.225188;, - -3.777077;-1.559985; 2.209018;, - -3.480620;-1.560007; 2.225029;, - -3.478070;-1.982596; 2.225347;, - -3.775802;-1.771280; 2.209176;, - -3.479345;-1.771302; 2.225188;, - -4.982598;-1.777961; 2.109575;, - -5.001387;-1.559885; 2.108711;, - -4.537460;-1.559924; 2.150858;, - -4.537460;-1.559924; 2.150858;, - -4.518672;-1.778000; 2.151722;, - -4.982598;-1.777961; 2.109575;, - -4.518672;-1.778000; 2.151722;, - -4.537460;-1.559924; 2.150858;, - -4.073534;-1.559963; 2.193006;, - -4.963809;-1.996036; 2.110438;, - -4.982598;-1.777961; 2.109575;, - -4.518672;-1.778000; 2.151722;, - -4.518353;-1.992799; 2.152534;, - -4.963809;-1.996036; 2.110438;, - -4.518672;-1.778000; 2.151722;, - -4.518672;-1.778000; 2.151722;, - -4.073215;-1.774762; 2.193817;, - -4.518353;-1.992799; 2.152534;, - -4.073215;-1.774762; 2.193817;, - -4.518672;-1.778000; 2.151722;, - -4.073534;-1.559963; 2.193006;, - -4.072896;-1.989561; 2.194628;, - -4.518353;-1.992799; 2.152534;, - -4.073215;-1.774762; 2.193817;, - -5.159907;-1.559886; 2.016022;, - -5.318428;-1.559887; 1.923332;, - -5.185223;-1.288450; 2.016366;, - -5.185223;-1.288450; 2.016366;, - -5.026703;-1.288448; 2.109055;, - -5.159907;-1.559886; 2.016022;, - -5.026703;-1.288448; 2.109055;, - -5.185223;-1.288450; 2.016366;, - -5.052019;-1.017012; 2.109399;, - -5.001387;-1.559885; 2.108711;, - -5.159907;-1.559886; 2.016022;, - -5.026703;-1.288448; 2.109055;, - -5.185223;-1.288450; 2.016366;, - -5.318428;-1.559887; 1.923332;, - -5.347756;-1.287262; 1.923447;, - -5.347756;-1.287262; 1.923447;, - -5.214552;-1.015824; 2.016480;, - -5.185223;-1.288450; 2.016366;, - -5.214552;-1.015824; 2.016480;, - -5.347756;-1.287262; 1.923447;, - -5.377086;-1.014636; 1.923562;, - -5.052019;-1.017012; 2.109399;, - -5.185223;-1.288450; 2.016366;, - -5.214552;-1.015824; 2.016480;, - -5.284925;-1.764178; 1.923447;, - -5.318428;-1.559887; 1.923332;, - -5.159907;-1.559886; 2.016022;, - -5.159907;-1.559886; 2.016022;, - -5.126404;-1.764177; 2.016137;, - -5.284925;-1.764178; 1.923447;, - -5.126404;-1.764177; 2.016137;, - -5.159907;-1.559886; 2.016022;, - -5.001387;-1.559885; 2.108711;, - -5.251421;-1.968469; 1.923562;, - -5.284925;-1.764178; 1.923447;, - -5.126404;-1.764177; 2.016137;, - -5.107615;-1.982253; 2.017000;, - -5.251421;-1.968469; 1.923562;, - -5.126404;-1.764177; 2.016137;, - -5.126404;-1.764177; 2.016137;, - -4.982598;-1.777961; 2.109575;, - -5.107615;-1.982253; 2.017000;, - -4.982598;-1.777961; 2.109575;, - -5.126404;-1.764177; 2.016137;, - -5.001387;-1.559885; 2.108711;, - -4.963809;-1.996036; 2.110438;, - -5.107615;-1.982253; 2.017000;, - -4.982598;-1.777961; 2.109575;, - -5.242342; 0.022832; 2.015240;, - -5.080998; 0.020063; 2.109399;, - -5.229042;-0.497286; 2.016480;, - -5.229042;-0.497286; 2.016480;, - -5.390386;-0.494518; 1.922321;, - -5.242342; 0.022832; 2.015240;, - -5.390386;-0.494518; 1.922321;, - -5.229042;-0.497286; 2.016480;, - -5.377086;-1.014636; 1.923562;, - -5.403687; 0.025601; 1.921080;, - -5.242342; 0.022832; 2.015240;, - -5.390386;-0.494518; 1.922321;, - -5.229042;-0.497286; 2.016480;, - -5.080998; 0.020063; 2.109399;, - -5.066508;-0.498474; 2.109399;, - -5.066508;-0.498474; 2.109399;, - -5.214552;-1.015824; 2.016480;, - -5.229042;-0.497286; 2.016480;, - -5.214552;-1.015824; 2.016480;, - -5.066508;-0.498474; 2.109399;, - -5.052019;-1.017012; 2.109399;, - -5.377086;-1.014636; 1.923562;, - -5.229042;-0.497286; 2.016480;, - -5.214552;-1.015824; 2.016480;, - -3.777077; 1.607631; 2.209017;, - -4.073534; 1.607666; 2.193006;, - -3.775802; 1.818818; 2.209176;, - -3.775802; 1.818818; 2.209176;, - -3.479344; 1.818783; 2.225188;, - -3.777077; 1.607631; 2.209017;, - -3.479344; 1.818783; 2.225188;, - -3.775802; 1.818818; 2.209176;, - -3.478070; 2.029969; 2.225347;, - -3.480619; 1.607597; 2.225029;, - -3.777077; 1.607631; 2.209017;, - -3.479344; 1.818783; 2.225188;, - -3.775802; 1.818818; 2.209176;, - -4.073534; 1.607666; 2.193006;, - -4.073215; 1.822303; 2.193817;, - -4.073215; 1.822303; 2.193817;, - -3.775483; 2.033455; 2.209988;, - -3.775802; 1.818818; 2.209176;, - -3.775483; 2.033455; 2.209988;, - -4.073215; 1.822303; 2.193817;, - -4.072896; 2.036940; 2.194628;, - -3.478070; 2.029969; 2.225347;, - -3.775802; 1.818818; 2.209176;, - -3.775483; 2.033455; 2.209988;, - -4.537426; 1.607737; 2.150858;, - -5.001318; 1.607808; 2.108711;, - -4.982557; 1.825614; 2.109575;, - -4.982557; 1.825614; 2.109575;, - -4.518665; 1.825543; 2.151722;, - -4.537426; 1.607737; 2.150858;, - -4.518665; 1.825543; 2.151722;, - -4.982557; 1.825614; 2.109575;, - -4.963797; 2.043420; 2.110438;, - -4.073534; 1.607666; 2.193006;, - -4.537426; 1.607737; 2.150858;, - -4.518665; 1.825543; 2.151722;, - -4.073215; 1.822303; 2.193817;, - -4.073534; 1.607666; 2.193006;, - -4.518665; 1.825543; 2.151722;, - -4.518665; 1.825543; 2.151722;, - -4.518346; 2.040180; 2.152534;, - -4.073215; 1.822303; 2.193817;, - -4.518346; 2.040180; 2.152534;, - -4.518665; 1.825543; 2.151722;, - -4.963797; 2.043420; 2.110438;, - -4.072896; 2.036940; 2.194628;, - -4.073215; 1.822303; 2.193817;, - -4.518346; 2.040180; 2.152534;, - -5.026773; 1.333518; 2.109055;, - -5.052229; 1.059228; 2.109399;, - -5.185290; 1.333483; 2.016367;, - -5.185290; 1.333483; 2.016367;, - -5.159834; 1.607772; 2.016023;, - -5.026773; 1.333518; 2.109055;, - -5.159834; 1.607772; 2.016023;, - -5.185290; 1.333483; 2.016367;, - -5.318351; 1.607737; 1.923335;, - -5.001318; 1.607808; 2.108711;, - -5.026773; 1.333518; 2.109055;, - -5.159834; 1.607772; 2.016023;, - -5.185290; 1.333483; 2.016367;, - -5.052229; 1.059228; 2.109399;, - -5.214642; 1.060834; 2.016480;, - -5.214642; 1.060834; 2.016480;, - -5.347703; 1.335088; 1.923449;, - -5.185290; 1.333483; 2.016367;, - -5.347703; 1.335088; 1.923449;, - -5.214642; 1.060834; 2.016480;, - -5.377055; 1.062440; 1.923562;, - -5.318351; 1.607737; 1.923335;, - -5.185290; 1.333483; 2.016367;, - -5.347703; 1.335088; 1.923449;, - -5.159834; 1.607772; 2.016023;, - -5.318351; 1.607737; 1.923335;, - -5.284878; 1.811804; 1.923449;, - -5.284878; 1.811804; 1.923449;, - -5.126361; 1.811840; 2.016137;, - -5.159834; 1.607772; 2.016023;, - -5.126361; 1.811840; 2.016137;, - -5.284878; 1.811804; 1.923449;, - -5.251404; 2.015872; 1.923562;, - -5.001318; 1.607808; 2.108711;, - -5.159834; 1.607772; 2.016023;, - -5.126361; 1.811840; 2.016137;, - -4.982557; 1.825614; 2.109575;, - -5.001318; 1.607808; 2.108711;, - -5.126361; 1.811840; 2.016137;, - -5.126361; 1.811840; 2.016137;, - -5.107600; 2.029646; 2.017000;, - -4.982557; 1.825614; 2.109575;, - -5.107600; 2.029646; 2.017000;, - -5.126361; 1.811840; 2.016137;, - -5.251404; 2.015872; 1.923562;, - -4.963797; 2.043420; 2.110438;, - -4.982557; 1.825614; 2.109575;, - -5.107600; 2.029646; 2.017000;, - -5.390370; 0.544021; 1.922321;, - -5.377055; 1.062440; 1.923562;, - -5.229027; 0.541252; 2.016480;, - -5.229027; 0.541252; 2.016480;, - -5.242342; 0.022832; 2.015240;, - -5.390370; 0.544021; 1.922321;, - -5.242342; 0.022832; 2.015240;, - -5.229027; 0.541252; 2.016480;, - -5.080998; 0.020063; 2.109399;, - -5.403687; 0.025601; 1.921080;, - -5.390370; 0.544021; 1.922321;, - -5.242342; 0.022832; 2.015240;, - -5.229027; 0.541252; 2.016480;, - -5.377055; 1.062440; 1.923562;, - -5.214642; 1.060834; 2.016480;, - -5.214642; 1.060834; 2.016480;, - -5.066614; 0.539646; 2.109399;, - -5.229027; 0.541252; 2.016480;, - -5.066614; 0.539646; 2.109399;, - -5.214642; 1.060834; 2.016480;, - -5.052229; 1.059228; 2.109399;, - -5.080998; 0.020063; 2.109399;, - -5.229027; 0.541252; 2.016480;, - -5.066614; 0.539646; 2.109399;, - -2.573792;-1.560080; 2.293311;, - -3.480620;-1.560007; 2.225029;, - -2.606356;-1.289698; 2.293311;, - -2.606356;-1.289698; 2.293311;, - -1.699528;-1.289770; 2.361592;, - -2.573792;-1.560080; 2.293311;, - -1.699528;-1.289770; 2.361592;, - -2.606356;-1.289698; 2.293311;, - -1.732091;-1.019388; 2.361592;, - -1.666965;-1.560153; 2.361592;, - -2.573792;-1.560080; 2.293311;, - -1.699528;-1.289770; 2.361592;, - -2.606356;-1.289698; 2.293311;, - -3.480620;-1.560007; 2.225029;, - -3.480620;-1.289698; 2.225029;, - -3.480620;-1.289698; 2.225029;, - -2.606356;-1.019388; 2.293311;, - -2.606356;-1.289698; 2.293311;, - -2.606356;-1.019388; 2.293311;, - -3.480620;-1.289698; 2.225029;, - -3.480620;-1.019388; 2.225029;, - -1.732091;-1.019388; 2.361592;, - -2.606356;-1.289698; 2.293311;, - -2.606356;-1.019388; 2.293311;, - -4.537460;-1.559924; 2.150858;, - -5.001387;-1.559885; 2.108711;, - -4.537460;-1.289636; 2.150858;, - -4.537460;-1.289636; 2.150858;, - -4.073534;-1.289675; 2.193006;, - -4.537460;-1.559924; 2.150858;, - -4.073534;-1.289675; 2.193006;, - -4.537460;-1.289636; 2.150858;, - -4.073534;-1.019388; 2.193006;, - -4.073534;-1.559963; 2.193006;, - -4.537460;-1.559924; 2.150858;, - -4.073534;-1.289675; 2.193006;, - -4.537460;-1.289636; 2.150858;, - -5.001387;-1.559885; 2.108711;, - -5.026703;-1.288448; 2.109055;, - -5.026703;-1.288448; 2.109055;, - -4.562777;-1.018200; 2.151202;, - -4.537460;-1.289636; 2.150858;, - -4.562777;-1.018200; 2.151202;, - -5.026703;-1.288448; 2.109055;, - -5.052019;-1.017012; 2.109399;, - -4.073534;-1.019388; 2.193006;, - -4.537460;-1.289636; 2.150858;, - -4.562777;-1.018200; 2.151202;, - -3.777077;-1.559985; 2.209018;, - -4.073534;-1.559963; 2.193006;, - -3.777077;-1.289675; 2.209018;, - -3.777077;-1.289675; 2.209018;, - -3.480620;-1.289698; 2.225029;, - -3.777077;-1.559985; 2.209018;, - -3.480620;-1.289698; 2.225029;, - -3.777077;-1.289675; 2.209018;, - -3.480620;-1.019388; 2.225029;, - -3.480620;-1.560007; 2.225029;, - -3.777077;-1.559985; 2.209018;, - -3.480620;-1.289698; 2.225029;, - -3.777077;-1.289675; 2.209018;, - -4.073534;-1.559963; 2.193006;, - -4.073534;-1.289675; 2.193006;, - -4.073534;-1.289675; 2.193006;, - -3.777077;-1.019388; 2.209018;, - -3.777077;-1.289675; 2.209018;, - -3.777077;-1.019388; 2.209018;, - -4.073534;-1.289675; 2.193006;, - -4.073534;-1.019388; 2.193006;, - -3.480620;-1.019388; 2.225029;, - -3.777077;-1.289675; 2.209018;, - -3.777077;-1.019388; 2.209018;, - -2.606356;-1.019388; 2.293311;, - -3.480620;-1.019388; 2.225029;, - -2.652287;-0.501688; 2.293311;, - -2.652287;-0.501688; 2.293311;, - -1.778023;-0.501688; 2.361592;, - -2.606356;-1.019388; 2.293311;, - -1.778023;-0.501688; 2.361592;, - -2.652287;-0.501688; 2.293311;, - -1.823954; 0.016012; 2.361592;, - -1.732091;-1.019388; 2.361592;, - -2.606356;-1.019388; 2.293311;, - -1.778023;-0.501688; 2.361592;, - -2.652287;-0.501688; 2.293311;, - -3.480620;-1.019388; 2.225029;, - -3.480620;-0.501688; 2.225029;, - -3.480620;-0.501688; 2.225029;, - -2.652287; 0.016012; 2.293311;, - -2.652287;-0.501688; 2.293311;, - -2.652287; 0.016012; 2.293311;, - -3.480620;-0.501688; 2.225029;, - -3.480620; 0.016012; 2.225029;, - -1.823954; 0.016012; 2.361592;, - -2.652287;-0.501688; 2.293311;, - -2.652287; 0.016012; 2.293311;, - -4.562777;-1.018200; 2.151202;, - -5.052019;-1.017012; 2.109399;, - -4.562777;-0.500500; 2.151202;, - -4.562777;-0.500500; 2.151202;, - -4.073534;-0.501688; 2.193006;, - -4.562777;-1.018200; 2.151202;, - -4.073534;-0.501688; 2.193006;, - -4.562777;-0.500500; 2.151202;, - -4.073534; 0.016012; 2.193006;, - -4.073534;-1.019388; 2.193006;, - -4.562777;-1.018200; 2.151202;, - -4.073534;-0.501688; 2.193006;, - -4.562777;-0.500500; 2.151202;, - -5.052019;-1.017012; 2.109399;, - -5.066508;-0.498474; 2.109399;, - -5.066508;-0.498474; 2.109399;, - -4.577267; 0.018038; 2.151202;, - -4.562777;-0.500500; 2.151202;, - -4.577267; 0.018038; 2.151202;, - -5.066508;-0.498474; 2.109399;, - -5.080998; 0.020063; 2.109399;, - -4.073534; 0.016012; 2.193006;, - -4.562777;-0.500500; 2.151202;, - -4.577267; 0.018038; 2.151202;, - -3.777077;-1.019388; 2.209018;, - -4.073534;-1.019388; 2.193006;, - -3.777077;-0.501688; 2.209018;, - -3.777077;-0.501688; 2.209018;, - -3.480620;-0.501688; 2.225029;, - -3.777077;-1.019388; 2.209018;, - -3.480620;-0.501688; 2.225029;, - -3.777077;-0.501688; 2.209018;, - -3.480620; 0.016012; 2.225029;, - -3.480620;-1.019388; 2.225029;, - -3.777077;-1.019388; 2.209018;, - -3.480620;-0.501688; 2.225029;, - -3.777077;-0.501688; 2.209018;, - -4.073534;-1.019388; 2.193006;, - -4.073534;-0.501688; 2.193006;, - -4.073534;-0.501688; 2.193006;, - -3.777077; 0.016012; 2.209018;, - -3.777077;-0.501688; 2.209018;, - -3.777077; 0.016012; 2.209018;, - -4.073534;-0.501688; 2.193006;, - -4.073534; 0.016012; 2.193006;, - -3.480620; 0.016012; 2.225029;, - -3.777077;-0.501688; 2.209018;, - -3.777077; 0.016012; 2.209018;, - -2.652287; 0.016012; 2.293311;, - -3.480620; 0.016012; 2.225029;, - -3.480619; 0.536014; 2.225029;, - -3.480619; 0.536014; 2.225029;, - -2.652287; 0.536014; 2.293310;, - -2.652287; 0.016012; 2.293311;, - -2.652287; 0.536014; 2.293310;, - -3.480619; 0.536014; 2.225029;, - -3.480619; 1.056016; 2.225029;, - -1.823954; 0.016012; 2.361592;, - -2.652287; 0.016012; 2.293311;, - -2.652287; 0.536014; 2.293310;, - -1.778728; 0.536014; 2.361591;, - -1.823954; 0.016012; 2.361592;, - -2.652287; 0.536014; 2.293310;, - -2.652287; 0.536014; 2.293310;, - -2.607060; 1.056016; 2.293309;, - -1.778728; 0.536014; 2.361591;, - -2.607060; 1.056016; 2.293309;, - -2.652287; 0.536014; 2.293310;, - -3.480619; 1.056016; 2.225029;, - -1.733501; 1.056016; 2.361590;, - -1.778728; 0.536014; 2.361591;, - -2.607060; 1.056016; 2.293309;, - -4.577267; 0.018038; 2.151202;, - -5.080998; 0.020063; 2.109399;, - -5.066614; 0.539646; 2.109399;, - -5.066614; 0.539646; 2.109399;, - -4.562881; 0.537620; 2.151202;, - -4.577267; 0.018038; 2.151202;, - -4.562881; 0.537620; 2.151202;, - -5.066614; 0.539646; 2.109399;, - -5.052229; 1.059228; 2.109399;, - -4.073534; 0.016012; 2.193006;, - -4.577267; 0.018038; 2.151202;, - -4.562881; 0.537620; 2.151202;, - -4.073534; 0.536014; 2.193006;, - -4.073534; 0.016012; 2.193006;, - -4.562881; 0.537620; 2.151202;, - -4.562881; 0.537620; 2.151202;, - -4.562881; 1.057622; 2.151202;, - -4.073534; 0.536014; 2.193006;, - -4.562881; 1.057622; 2.151202;, - -4.562881; 0.537620; 2.151202;, - -5.052229; 1.059228; 2.109399;, - -4.073534; 1.056017; 2.193006;, - -4.073534; 0.536014; 2.193006;, - -4.562881; 1.057622; 2.151202;, - -3.777077; 0.016012; 2.209018;, - -4.073534; 0.016012; 2.193006;, - -3.777077; 0.536014; 2.209017;, - -3.777077; 0.536014; 2.209017;, - -3.480619; 0.536014; 2.225029;, - -3.777077; 0.016012; 2.209018;, - -3.480619; 0.536014; 2.225029;, - -3.777077; 0.536014; 2.209017;, - -3.480619; 1.056016; 2.225029;, - -3.480620; 0.016012; 2.225029;, - -3.777077; 0.016012; 2.209018;, - -3.480619; 0.536014; 2.225029;, - -3.777077; 0.536014; 2.209017;, - -4.073534; 0.016012; 2.193006;, - -4.073534; 0.536014; 2.193006;, - -4.073534; 0.536014; 2.193006;, - -3.777077; 1.056016; 2.209017;, - -3.777077; 0.536014; 2.209017;, - -3.777077; 1.056016; 2.209017;, - -4.073534; 0.536014; 2.193006;, - -4.073534; 1.056017; 2.193006;, - -3.480619; 1.056016; 2.225029;, - -3.777077; 0.536014; 2.209017;, - -3.777077; 1.056016; 2.209017;, - -2.607060; 1.056016; 2.293309;, - -3.480619; 1.056016; 2.225029;, - -3.480619; 1.331806; 2.225029;, - -3.480619; 1.331806; 2.225029;, - -2.607060; 1.331806; 2.293309;, - -2.607060; 1.056016; 2.293309;, - -2.607060; 1.331806; 2.293309;, - -3.480619; 1.331806; 2.225029;, - -3.480619; 1.607597; 2.225029;, - -1.733501; 1.056016; 2.361590;, - -2.607060; 1.056016; 2.293309;, - -2.607060; 1.331806; 2.293309;, - -1.700232; 1.331700; 2.361591;, - -1.733501; 1.056016; 2.361590;, - -2.607060; 1.331806; 2.293309;, - -2.607060; 1.331806; 2.293309;, - -2.573791; 1.607491; 2.293310;, - -1.700232; 1.331700; 2.361591;, - -2.573791; 1.607491; 2.293310;, - -2.607060; 1.331806; 2.293309;, - -3.480619; 1.607597; 2.225029;, - -1.666962; 1.607385; 2.361592;, - -1.700232; 1.331700; 2.361591;, - -2.573791; 1.607491; 2.293310;, - -4.562881; 1.057622; 2.151202;, - -5.052229; 1.059228; 2.109399;, - -5.026773; 1.333518; 2.109055;, - -5.026773; 1.333518; 2.109055;, - -4.537426; 1.331912; 2.150858;, - -4.562881; 1.057622; 2.151202;, - -4.537426; 1.331912; 2.150858;, - -5.026773; 1.333518; 2.109055;, - -5.001318; 1.607808; 2.108711;, - -4.073534; 1.056017; 2.193006;, - -4.562881; 1.057622; 2.151202;, - -4.537426; 1.331912; 2.150858;, - -4.073534; 1.331841; 2.193006;, - -4.073534; 1.056017; 2.193006;, - -4.537426; 1.331912; 2.150858;, - -4.537426; 1.331912; 2.150858;, - -4.537426; 1.607737; 2.150858;, - -4.073534; 1.331841; 2.193006;, - -4.537426; 1.607737; 2.150858;, - -4.537426; 1.331912; 2.150858;, - -5.001318; 1.607808; 2.108711;, - -4.073534; 1.607666; 2.193006;, - -4.073534; 1.331841; 2.193006;, - -4.537426; 1.607737; 2.150858;, - -3.777077; 1.056016; 2.209017;, - -4.073534; 1.056017; 2.193006;, - -3.777077; 1.331807; 2.209017;, - -3.777077; 1.331807; 2.209017;, - -3.480619; 1.331806; 2.225029;, - -3.777077; 1.056016; 2.209017;, - -3.480619; 1.331806; 2.225029;, - -3.777077; 1.331807; 2.209017;, - -3.480619; 1.607597; 2.225029;, - -3.480619; 1.056016; 2.225029;, - -3.777077; 1.056016; 2.209017;, - -3.480619; 1.331806; 2.225029;, - -3.777077; 1.331807; 2.209017;, - -4.073534; 1.056017; 2.193006;, - -4.073534; 1.331841; 2.193006;, - -4.073534; 1.331841; 2.193006;, - -3.777077; 1.607631; 2.209017;, - -3.777077; 1.331807; 2.209017;, - -3.777077; 1.607631; 2.209017;, - -4.073534; 1.331841; 2.193006;, - -4.073534; 1.607666; 2.193006;, - -3.480619; 1.607597; 2.225029;, - -3.777077; 1.331807; 2.209017;, - -3.777077; 1.607631; 2.209017;, - -1.442984; 1.964203; 2.227620;, - -1.514827; 1.742537; 2.264727;, - -1.519051; 1.879215; 2.276052;, - -1.519051; 1.879215; 2.276052;, - -1.447208; 2.100881; 2.238945;, - -1.442984; 1.964203; 2.227620;, - -1.447208; 2.100881; 2.238945;, - -1.519051; 1.879215; 2.276052;, - -1.523275; 2.015893; 2.287377;, - -1.371140; 2.185869; 2.190513;, - -1.442984; 1.964203; 2.227620;, - -1.447208; 2.100881; 2.238945;, - -1.519051; 1.879215; 2.276052;, - -1.514827; 1.742537; 2.264727;, - -1.590895; 1.674961; 2.313159;, - -1.590895; 1.674961; 2.313159;, - -1.595119; 1.811639; 2.324484;, - -1.519051; 1.879215; 2.276052;, - -1.595119; 1.811639; 2.324484;, - -1.590895; 1.674961; 2.313159;, - -1.666962; 1.607385; 2.361592;, - -1.523275; 2.015893; 2.287377;, - -1.519051; 1.879215; 2.276052;, - -1.595119; 1.811639; 2.324484;, - -5.416934;-1.897224; 1.826583;, - -5.450437;-1.694733; 1.826468;, - -5.350929;-1.831601; 1.875015;, - -5.350929;-1.831601; 1.875015;, - -5.317426;-2.034092; 1.875130;, - -5.416934;-1.897224; 1.826583;, - -5.317426;-2.034092; 1.875130;, - -5.350929;-1.831601; 1.875015;, - -5.251421;-1.968469; 1.923562;, - -5.383431;-2.099714; 1.826698;, - -5.416934;-1.897224; 1.826583;, - -5.317426;-2.034092; 1.875130;, - -5.350929;-1.831601; 1.875015;, - -5.450437;-1.694733; 1.826468;, - -5.384432;-1.627310; 1.874900;, - -5.384432;-1.627310; 1.874900;, - -5.284925;-1.764178; 1.923447;, - -5.350929;-1.831601; 1.875015;, - -5.284925;-1.764178; 1.923447;, - -5.384432;-1.627310; 1.874900;, - -5.318428;-1.559887; 1.923332;, - -5.251421;-1.968469; 1.923562;, - -5.350929;-1.831601; 1.875015;, - -5.284925;-1.764178; 1.923447;, - -5.285226;-2.133888; 1.920136;, - -5.383431;-2.099714; 1.826698;, - -5.317426;-2.034092; 1.875130;, - -5.317426;-2.034092; 1.875130;, - -5.219221;-2.068265; 1.968568;, - -5.285226;-2.133888; 1.920136;, - -5.219221;-2.068265; 1.968568;, - -5.317426;-2.034092; 1.875130;, - -5.251421;-1.968469; 1.923562;, - -5.187021;-2.168062; 2.013574;, - -5.285226;-2.133888; 1.920136;, - -5.219221;-2.068265; 1.968568;, - -5.075415;-2.082049; 2.062006;, - -5.187021;-2.168062; 2.013574;, - -5.219221;-2.068265; 1.968568;, - -5.219221;-2.068265; 1.968568;, - -5.107615;-1.982253; 2.017000;, - -5.075415;-2.082049; 2.062006;, - -5.107615;-1.982253; 2.017000;, - -5.219221;-2.068265; 1.968568;, - -5.251421;-1.968469; 1.923562;, - -4.963809;-1.996036; 2.110438;, - -5.075415;-2.082049; 2.062006;, - -5.107615;-1.982253; 2.017000;, - -4.619331;-2.164548; 2.055669;, - -5.187021;-2.168062; 2.013574;, - -5.075415;-2.082049; 2.062006;, - -5.075415;-2.082049; 2.062006;, - -4.507726;-2.078536; 2.104101;, - -4.619331;-2.164548; 2.055669;, - -4.507726;-2.078536; 2.104101;, - -5.075415;-2.082049; 2.062006;, - -4.963809;-1.996036; 2.110438;, - -4.051642;-2.161035; 2.097764;, - -4.619331;-2.164548; 2.055669;, - -4.507726;-2.078536; 2.104101;, - -4.062269;-2.075298; 2.146196;, - -4.051642;-2.161035; 2.097764;, - -4.507726;-2.078536; 2.104101;, - -4.507726;-2.078536; 2.104101;, - -4.518353;-1.992799; 2.152534;, - -4.062269;-2.075298; 2.146196;, - -4.518353;-1.992799; 2.152534;, - -4.507726;-2.078536; 2.104101;, - -4.963809;-1.996036; 2.110438;, - -4.072896;-1.989561; 2.194628;, - -4.062269;-2.075298; 2.146196;, - -4.518353;-1.992799; 2.152534;, - -3.754229;-2.157256; 2.113123;, - -4.051642;-2.161035; 2.097764;, - -3.764856;-2.071816; 2.161555;, - -3.764856;-2.071816; 2.161555;, - -3.467443;-2.068036; 2.176914;, - -3.754229;-2.157256; 2.113123;, - -3.467443;-2.068036; 2.176914;, - -3.764856;-2.071816; 2.161555;, - -3.478070;-1.982596; 2.225347;, - -3.456816;-2.153476; 2.128482;, - -3.754229;-2.157256; 2.113123;, - -3.467443;-2.068036; 2.176914;, - -3.764856;-2.071816; 2.161555;, - -4.051642;-2.161035; 2.097764;, - -4.062269;-2.075298; 2.146196;, - -4.062269;-2.075298; 2.146196;, - -3.775483;-1.986079; 2.209988;, - -3.764856;-2.071816; 2.161555;, - -3.775483;-1.986079; 2.209988;, - -4.062269;-2.075298; 2.146196;, - -4.072896;-1.989561; 2.194628;, - -3.478070;-1.982596; 2.225347;, - -3.764856;-2.071816; 2.161555;, - -3.775483;-1.986079; 2.209988;, - -2.413978;-2.145844; 2.159497;, - -3.456816;-2.153476; 2.128482;, - -2.490046;-2.061003; 2.207930;, - -2.490046;-2.061003; 2.207930;, - -1.447208;-2.053371; 2.238945;, - -2.413978;-2.145844; 2.159497;, - -1.447208;-2.053371; 2.238945;, - -2.490046;-2.061003; 2.207930;, - -1.523275;-1.968530; 2.287377;, - -1.371140;-2.138211; 2.190513;, - -2.413978;-2.145844; 2.159497;, - -1.447208;-2.053371; 2.238945;, - -2.490046;-2.061003; 2.207930;, - -3.456816;-2.153476; 2.128482;, - -3.467443;-2.068036; 2.176914;, - -3.467443;-2.068036; 2.176914;, - -2.500672;-1.975563; 2.256362;, - -2.490046;-2.061003; 2.207930;, - -2.500672;-1.975563; 2.256362;, - -3.467443;-2.068036; 2.176914;, - -3.478070;-1.982596; 2.225347;, - -1.523275;-1.968530; 2.287377;, - -2.490046;-2.061003; 2.207930;, - -2.500672;-1.975563; 2.256362;, - -5.522396;-0.538544; 1.825457;, - -5.535696; 0.025912; 1.824216;, - -5.456391;-0.494362; 1.873889;, - -5.456391;-0.494362; 1.873889;, - -5.443090;-1.058819; 1.875130;, - -5.522396;-0.538544; 1.825457;, - -5.443090;-1.058819; 1.875130;, - -5.456391;-0.494362; 1.873889;, - -5.377086;-1.014636; 1.923562;, - -5.509095;-1.103001; 1.826698;, - -5.522396;-0.538544; 1.825457;, - -5.443090;-1.058819; 1.875130;, - -5.456391;-0.494362; 1.873889;, - -5.535696; 0.025912; 1.824216;, - -5.469691; 0.025756; 1.872648;, - -5.469691; 0.025756; 1.872648;, - -5.390386;-0.494518; 1.922321;, - -5.456391;-0.494362; 1.873889;, - -5.390386;-0.494518; 1.922321;, - -5.469691; 0.025756; 1.872648;, - -5.403687; 0.025601; 1.921080;, - -5.377086;-1.014636; 1.923562;, - -5.456391;-0.494362; 1.873889;, - -5.390386;-0.494518; 1.922321;, - -4.619325; 2.212226; 2.055669;, - -4.051642; 2.208710; 2.097764;, - -4.507719; 2.126065; 2.104101;, - -4.507719; 2.126065; 2.104101;, - -5.075402; 2.129581; 2.062006;, - -4.619325; 2.212226; 2.055669;, - -5.075402; 2.129581; 2.062006;, - -4.507719; 2.126065; 2.104101;, - -4.963797; 2.043420; 2.110438;, - -5.187008; 2.215742; 2.013574;, - -4.619325; 2.212226; 2.055669;, - -5.075402; 2.129581; 2.062006;, - -4.507719; 2.126065; 2.104101;, - -4.051642; 2.208710; 2.097764;, - -4.062269; 2.122825; 2.146196;, - -4.062269; 2.122825; 2.146196;, - -4.518346; 2.040180; 2.152534;, - -4.507719; 2.126065; 2.104101;, - -4.518346; 2.040180; 2.152534;, - -4.062269; 2.122825; 2.146196;, - -4.072896; 2.036940; 2.194628;, - -4.963797; 2.043420; 2.110438;, - -4.507719; 2.126065; 2.104101;, - -4.518346; 2.040180; 2.152534;, - -5.416887; 1.945167; 1.826584;, - -5.383414; 2.147416; 1.826698;, - -5.317409; 2.081644; 1.875130;, - -5.317409; 2.081644; 1.875130;, - -5.350883; 1.879395; 1.875017;, - -5.416887; 1.945167; 1.826584;, - -5.350883; 1.879395; 1.875017;, - -5.317409; 2.081644; 1.875130;, - -5.251404; 2.015872; 1.923562;, - -5.450361; 1.742919; 1.826471;, - -5.416887; 1.945167; 1.826584;, - -5.350883; 1.879395; 1.875017;, - -5.384356; 1.675328; 1.874903;, - -5.450361; 1.742919; 1.826471;, - -5.350883; 1.879395; 1.875017;, - -5.350883; 1.879395; 1.875017;, - -5.284878; 1.811804; 1.923449;, - -5.384356; 1.675328; 1.874903;, - -5.284878; 1.811804; 1.923449;, - -5.350883; 1.879395; 1.875017;, - -5.251404; 2.015872; 1.923562;, - -5.318351; 1.607737; 1.923335;, - -5.384356; 1.675328; 1.874903;, - -5.284878; 1.811804; 1.923449;, - -5.285211; 2.181579; 1.920136;, - -5.187008; 2.215742; 2.013574;, - -5.219206; 2.115807; 1.968568;, - -5.219206; 2.115807; 1.968568;, - -5.317409; 2.081644; 1.875130;, - -5.285211; 2.181579; 1.920136;, - -5.317409; 2.081644; 1.875130;, - -5.219206; 2.115807; 1.968568;, - -5.251404; 2.015872; 1.923562;, - -5.383414; 2.147416; 1.826698;, - -5.285211; 2.181579; 1.920136;, - -5.317409; 2.081644; 1.875130;, - -5.219206; 2.115807; 1.968568;, - -5.187008; 2.215742; 2.013574;, - -5.075402; 2.129581; 2.062006;, - -5.075402; 2.129581; 2.062006;, - -5.107600; 2.029646; 2.017000;, - -5.219206; 2.115807; 1.968568;, - -5.107600; 2.029646; 2.017000;, - -5.075402; 2.129581; 2.062006;, - -4.963797; 2.043420; 2.110438;, - -5.251404; 2.015872; 1.923562;, - -5.219206; 2.115807; 1.968568;, - -5.107600; 2.029646; 2.017000;, - -3.754229; 2.204927; 2.113123;, - -3.456816; 2.201145; 2.128482;, - -3.467443; 2.115557; 2.176914;, - -3.467443; 2.115557; 2.176914;, - -3.764856; 2.119339; 2.161555;, - -3.754229; 2.204927; 2.113123;, - -3.764856; 2.119339; 2.161555;, - -3.467443; 2.115557; 2.176914;, - -3.478070; 2.029969; 2.225347;, - -4.051642; 2.208710; 2.097764;, - -3.754229; 2.204927; 2.113123;, - -3.764856; 2.119339; 2.161555;, - -4.062269; 2.122825; 2.146196;, - -4.051642; 2.208710; 2.097764;, - -3.764856; 2.119339; 2.161555;, - -3.764856; 2.119339; 2.161555;, - -3.775483; 2.033455; 2.209988;, - -4.062269; 2.122825; 2.146196;, - -3.775483; 2.033455; 2.209988;, - -3.764856; 2.119339; 2.161555;, - -3.478070; 2.029969; 2.225347;, - -4.072896; 2.036940; 2.194628;, - -4.062269; 2.122825; 2.146196;, - -3.775483; 2.033455; 2.209988;, - -2.413978; 2.193507; 2.159497;, - -1.371140; 2.185869; 2.190513;, - -1.447208; 2.100881; 2.238945;, - -1.447208; 2.100881; 2.238945;, - -2.490046; 2.108519; 2.207930;, - -2.413978; 2.193507; 2.159497;, - -2.490046; 2.108519; 2.207930;, - -1.447208; 2.100881; 2.238945;, - -1.523275; 2.015893; 2.287377;, - -3.456816; 2.201145; 2.128482;, - -2.413978; 2.193507; 2.159497;, - -2.490046; 2.108519; 2.207930;, - -3.467443; 2.115557; 2.176914;, - -3.456816; 2.201145; 2.128482;, - -2.490046; 2.108519; 2.207930;, - -2.490046; 2.108519; 2.207930;, - -2.500672; 2.022931; 2.256362;, - -3.467443; 2.115557; 2.176914;, - -2.500672; 2.022931; 2.256362;, - -2.490046; 2.108519; 2.207930;, - -1.523275; 2.015893; 2.287377;, - -3.478070; 2.029969; 2.225347;, - -3.467443; 2.115557; 2.176914;, - -2.500672; 2.022931; 2.256362;, - -5.522380; 0.588525; 1.825457;, - -5.509064; 1.151138; 1.826698;, - -5.443059; 1.106789; 1.875130;, - -5.443059; 1.106789; 1.875130;, - -5.456375; 0.544176; 1.873889;, - -5.522380; 0.588525; 1.825457;, - -5.456375; 0.544176; 1.873889;, - -5.443059; 1.106789; 1.875130;, - -5.377055; 1.062440; 1.923562;, - -5.535696; 0.025912; 1.824216;, - -5.522380; 0.588525; 1.825457;, - -5.456375; 0.544176; 1.873889;, - -5.469691; 0.025756; 1.872648;, - -5.535696; 0.025912; 1.824216;, - -5.456375; 0.544176; 1.873889;, - -5.456375; 0.544176; 1.873889;, - -5.390370; 0.544021; 1.922321;, - -5.469691; 0.025756; 1.872648;, - -5.390370; 0.544021; 1.922321;, - -5.456375; 0.544176; 1.873889;, - -5.377055; 1.062440; 1.923562;, - -5.403687; 0.025601; 1.921080;, - -5.469691; 0.025756; 1.872648;, - -5.390370; 0.544021; 1.922321;, - -5.479766;-1.398867; 1.826583;, - -5.509095;-1.103001; 1.826698;, - -5.413761;-1.331444; 1.875015;, - -5.413761;-1.331444; 1.875015;, - -5.384432;-1.627310; 1.874900;, - -5.479766;-1.398867; 1.826583;, - -5.384432;-1.627310; 1.874900;, - -5.413761;-1.331444; 1.875015;, - -5.318428;-1.559887; 1.923332;, - -5.450437;-1.694733; 1.826468;, - -5.479766;-1.398867; 1.826583;, - -5.384432;-1.627310; 1.874900;, - -5.413761;-1.331444; 1.875015;, - -5.509095;-1.103001; 1.826698;, - -5.443090;-1.058819; 1.875130;, - -5.443090;-1.058819; 1.875130;, - -5.347756;-1.287262; 1.923447;, - -5.413761;-1.331444; 1.875015;, - -5.347756;-1.287262; 1.923447;, - -5.443090;-1.058819; 1.875130;, - -5.377086;-1.014636; 1.923562;, - -5.318428;-1.559887; 1.923332;, - -5.413761;-1.331444; 1.875015;, - -5.347756;-1.287262; 1.923447;, - -5.479712; 1.447028; 1.826584;, - -5.450361; 1.742919; 1.826471;, - -5.384356; 1.675328; 1.874903;, - -5.384356; 1.675328; 1.874903;, - -5.413708; 1.379437; 1.875017;, - -5.479712; 1.447028; 1.826584;, - -5.413708; 1.379437; 1.875017;, - -5.384356; 1.675328; 1.874903;, - -5.318351; 1.607737; 1.923335;, - -5.509064; 1.151138; 1.826698;, - -5.479712; 1.447028; 1.826584;, - -5.413708; 1.379437; 1.875017;, - -5.443059; 1.106789; 1.875130;, - -5.509064; 1.151138; 1.826698;, - -5.413708; 1.379437; 1.875017;, - -5.413708; 1.379437; 1.875017;, - -5.347703; 1.335088; 1.923449;, - -5.443059; 1.106789; 1.875130;, - -5.347703; 1.335088; 1.923449;, - -5.413708; 1.379437; 1.875017;, - -5.318351; 1.607737; 1.923335;, - -5.377055; 1.062440; 1.923562;, - -5.443059; 1.106789; 1.875130;, - -5.347703; 1.335088; 1.923449;, - -1.625888;-0.546326; 2.264727;, - -1.579956;-1.108158; 2.264727;, - -1.656024;-1.063773; 2.313159;, - -1.656024;-1.063773; 2.313159;, - -1.701955;-0.501941; 2.313159;, - -1.625888;-0.546326; 2.264727;, - -1.701955;-0.501941; 2.313159;, - -1.656024;-1.063773; 2.313159;, - -1.732091;-1.019388; 2.361592;, - -1.671819; 0.015506; 2.264727;, - -1.625888;-0.546326; 2.264727;, - -1.701955;-0.501941; 2.313159;, - -1.747887; 0.015759; 2.313159;, - -1.671819; 0.015506; 2.264727;, - -1.701955;-0.501941; 2.313159;, - -1.701955;-0.501941; 2.313159;, - -1.778023;-0.501688; 2.361592;, - -1.747887; 0.015759; 2.313159;, - -1.778023;-0.501688; 2.361592;, - -1.701955;-0.501941; 2.313159;, - -1.732091;-1.019388; 2.361592;, - -1.823954; 0.016012; 2.361592;, - -1.747887; 0.015759; 2.313159;, - -1.778023;-0.501688; 2.361592;, - -1.626592; 0.579836; 2.264727;, - -1.671819; 0.015506; 2.264727;, - -1.702660; 0.535761; 2.313159;, - -1.702660; 0.535761; 2.313159;, - -1.657434; 1.100091; 2.313158;, - -1.626592; 0.579836; 2.264727;, - -1.657434; 1.100091; 2.313158;, - -1.702660; 0.535761; 2.313159;, - -1.733501; 1.056016; 2.361590;, - -1.581366; 1.144166; 2.264726;, - -1.626592; 0.579836; 2.264727;, - -1.657434; 1.100091; 2.313158;, - -1.702660; 0.535761; 2.313159;, - -1.671819; 0.015506; 2.264727;, - -1.747887; 0.015759; 2.313159;, - -1.747887; 0.015759; 2.313159;, - -1.778728; 0.536014; 2.361591;, - -1.702660; 0.535761; 2.313159;, - -1.778728; 0.536014; 2.361591;, - -1.747887; 0.015759; 2.313159;, - -1.823954; 0.016012; 2.361592;, - -1.733501; 1.056016; 2.361590;, - -1.702660; 0.535761; 2.313159;, - -1.778728; 0.536014; 2.361591;, - -1.442985;-1.916616; 2.227620;, - -1.371140;-2.138211; 2.190513;, - -1.447208;-2.053371; 2.238945;, - -1.447208;-2.053371; 2.238945;, - -1.519053;-1.831776; 2.276052;, - -1.442985;-1.916616; 2.227620;, - -1.519053;-1.831776; 2.276052;, - -1.447208;-2.053371; 2.238945;, - -1.523275;-1.968530; 2.287377;, - -1.514830;-1.695021; 2.264727;, - -1.442985;-1.916616; 2.227620;, - -1.519053;-1.831776; 2.276052;, - -1.590898;-1.627587; 2.313159;, - -1.514830;-1.695021; 2.264727;, - -1.519053;-1.831776; 2.276052;, - -1.519053;-1.831776; 2.276052;, - -1.595120;-1.764342; 2.324484;, - -1.590898;-1.627587; 2.313159;, - -1.595120;-1.764342; 2.324484;, - -1.519053;-1.831776; 2.276052;, - -1.523275;-1.968530; 2.287377;, - -1.666965;-1.560153; 2.361592;, - -1.590898;-1.627587; 2.313159;, - -1.595120;-1.764342; 2.324484;, - -1.547393;-1.401590; 2.264727;, - -1.514830;-1.695021; 2.264727;, - -1.590898;-1.627587; 2.313159;, - -1.590898;-1.627587; 2.313159;, - -1.623461;-1.334155; 2.313159;, - -1.547393;-1.401590; 2.264727;, - -1.623461;-1.334155; 2.313159;, - -1.590898;-1.627587; 2.313159;, - -1.666965;-1.560153; 2.361592;, - -1.579956;-1.108158; 2.264727;, - -1.547393;-1.401590; 2.264727;, - -1.623461;-1.334155; 2.313159;, - -1.656024;-1.063773; 2.313159;, - -1.579956;-1.108158; 2.264727;, - -1.623461;-1.334155; 2.313159;, - -1.623461;-1.334155; 2.313159;, - -1.699528;-1.289770; 2.361592;, - -1.656024;-1.063773; 2.313159;, - -1.699528;-1.289770; 2.361592;, - -1.623461;-1.334155; 2.313159;, - -1.666965;-1.560153; 2.361592;, - -1.732091;-1.019388; 2.361592;, - -1.656024;-1.063773; 2.313159;, - -1.699528;-1.289770; 2.361592;, - -1.548096; 1.443352; 2.264727;, - -1.581366; 1.144166; 2.264726;, - -1.624164; 1.375775; 2.313159;, - -1.624164; 1.375775; 2.313159;, - -1.590895; 1.674961; 2.313159;, - -1.548096; 1.443352; 2.264727;, - -1.590895; 1.674961; 2.313159;, - -1.624164; 1.375775; 2.313159;, - -1.666962; 1.607385; 2.361592;, - -1.514827; 1.742537; 2.264727;, - -1.548096; 1.443352; 2.264727;, - -1.590895; 1.674961; 2.313159;, - -1.624164; 1.375775; 2.313159;, - -1.581366; 1.144166; 2.264726;, - -1.657434; 1.100091; 2.313158;, - -1.657434; 1.100091; 2.313158;, - -1.700232; 1.331700; 2.361591;, - -1.624164; 1.375775; 2.313159;, - -1.700232; 1.331700; 2.361591;, - -1.657434; 1.100091; 2.313158;, - -1.733501; 1.056016; 2.361590;, - -1.666962; 1.607385; 2.361592;, - -1.624164; 1.375775; 2.313159;, - -1.700232; 1.331700; 2.361591;, - 1.648188; 1.915210; 2.743860;, - 1.171704; 1.701607; 3.227946;, - 1.648188; 1.869541; 2.743860;, - 1.648188; 1.869541; 2.743860;, - 2.124673; 2.083144; 2.259773;, - 1.648188; 1.915210; 2.743860;, - 2.124673; 2.083144; 2.259773;, - 1.648188; 1.869541; 2.743860;, - 2.124673; 2.037475; 2.259773;, - 2.124673; 2.128813; 2.259773;, - 1.648188; 1.915210; 2.743860;, - 2.124673; 2.083144; 2.259773;, - 1.648188; 1.869541; 2.743860;, - 1.171704; 1.701607; 3.227946;, - 1.171704; 1.655938; 3.227946;, - 1.171704; 1.655938; 3.227946;, - 1.648188; 1.823872; 2.743860;, - 1.648188; 1.869541; 2.743860;, - 1.648188; 1.823872; 2.743860;, - 1.171704; 1.655938; 3.227946;, - 1.171704; 1.610269; 3.227946;, - 2.124673; 2.037475; 2.259773;, - 1.648188; 1.869541; 2.743860;, - 1.648188; 1.823872; 2.743860;, - 0.430715; 1.686316; 3.226701;, - -0.310275; 1.671026; 3.225457;, - 0.430715; 1.640647; 3.226701;, - 0.430715; 1.640647; 3.226701;, - 1.171704; 1.655938; 3.227946;, - 0.430715; 1.686316; 3.226701;, - 1.171704; 1.655938; 3.227946;, - 0.430715; 1.640647; 3.226701;, - 1.171704; 1.610269; 3.227946;, - 1.171704; 1.701607; 3.227946;, - 0.430715; 1.686316; 3.226701;, - 1.171704; 1.655938; 3.227946;, - 0.430715; 1.640647; 3.226701;, - -0.310275; 1.671026; 3.225457;, - -0.310275; 1.625356; 3.225457;, - -0.310275; 1.625356; 3.225457;, - 0.430715; 1.594978; 3.226701;, - 0.430715; 1.640647; 3.226701;, - 0.430715; 1.594978; 3.226701;, - -0.310275; 1.625356; 3.225457;, - -0.310275; 1.579687; 3.225457;, - 1.171704; 1.610269; 3.227946;, - 0.430715; 1.640647; 3.226701;, - 0.430715; 1.594978; 3.226701;, - -0.719007; 1.894910; 2.747417;, - -1.127740; 2.118793; 2.269377;, - -1.127740; 2.073124; 2.269377;, - -1.127740; 2.073124; 2.269377;, - -0.719007; 1.849241; 2.747417;, - -0.719007; 1.894910; 2.747417;, - -0.719007; 1.849241; 2.747417;, - -1.127740; 2.073124; 2.269377;, - -1.127740; 2.027455; 2.269377;, - -0.310275; 1.671026; 3.225457;, - -0.719007; 1.894910; 2.747417;, - -0.719007; 1.849241; 2.747417;, - -0.310275; 1.625356; 3.225457;, - -0.310275; 1.671026; 3.225457;, - -0.719007; 1.849241; 2.747417;, - -0.719007; 1.849241; 2.747417;, - -0.719007; 1.803571; 2.747417;, - -0.310275; 1.625356; 3.225457;, - -0.719007; 1.803571; 2.747417;, - -0.719007; 1.849241; 2.747417;, - -1.127740; 2.027455; 2.269377;, - -0.310275; 1.579687; 3.225457;, - -0.310275; 1.625356; 3.225457;, - -0.719007; 1.803571; 2.747417;, - 0.498466; 2.123803; 2.264575;, - 2.124673; 2.128813; 2.259773;, - 2.124673; 2.083144; 2.259773;, - 2.124673; 2.083144; 2.259773;, - 0.498466; 2.078134; 2.264575;, - 0.498466; 2.123803; 2.264575;, - 0.498466; 2.078134; 2.264575;, - 2.124673; 2.083144; 2.259773;, - 2.124673; 2.037475; 2.259773;, - -1.127740; 2.118793; 2.269377;, - 0.498466; 2.123803; 2.264575;, - 0.498466; 2.078134; 2.264575;, - -1.127740; 2.073124; 2.269377;, - -1.127740; 2.118793; 2.269377;, - 0.498466; 2.078134; 2.264575;, - 0.498466; 2.078134; 2.264575;, - 0.498466; 2.032465; 2.264575;, - -1.127740; 2.073124; 2.269377;, - 0.498466; 2.032465; 2.264575;, - 0.498466; 2.078134; 2.264575;, - 2.124673; 2.037475; 2.259773;, - -1.127740; 2.027455; 2.269377;, - -1.127740; 2.073124; 2.269377;, - 0.498466; 2.032465; 2.264575;, - 1.820271; 1.945484; 2.743859;, - 1.272469; 1.693267; 3.308406;, - 1.698571; 1.911040; 2.784090;, - 1.698571; 1.911040; 2.784090;, - 2.246372; 2.163257; 2.219543;, - 1.820271; 1.945484; 2.743859;, - 2.246372; 2.163257; 2.219543;, - 1.698571; 1.911040; 2.784090;, - 2.124673; 2.128813; 2.259773;, - 2.368072; 2.197701; 2.179312;, - 1.820271; 1.945484; 2.743859;, - 2.246372; 2.163257; 2.219543;, - 1.698571; 1.911040; 2.784090;, - 1.272469; 1.693267; 3.308406;, - 1.222087; 1.697437; 3.268176;, - 1.222087; 1.697437; 3.268176;, - 1.648188; 1.915210; 2.743860;, - 1.698571; 1.911040; 2.784090;, - 1.648188; 1.915210; 2.743860;, - 1.222087; 1.697437; 3.268176;, - 1.171704; 1.701607; 3.227946;, - 2.124673; 2.128813; 2.259773;, - 1.698571; 1.911040; 2.784090;, - 1.648188; 1.915210; 2.743860;, - 0.420574; 1.675212; 3.306954;, - -0.431322; 1.657157; 3.305503;, - -0.370798; 1.664091; 3.265480;, - -0.370798; 1.664091; 3.265480;, - 0.481097; 1.682147; 3.266932;, - 0.420574; 1.675212; 3.306954;, - 0.481097; 1.682147; 3.266932;, - -0.370798; 1.664091; 3.265480;, - -0.310275; 1.671026; 3.225457;, - 1.272469; 1.693267; 3.308406;, - 0.420574; 1.675212; 3.306954;, - 0.481097; 1.682147; 3.266932;, - 1.222087; 1.697437; 3.268176;, - 1.272469; 1.693267; 3.308406;, - 0.481097; 1.682147; 3.266932;, - 0.481097; 1.682147; 3.266932;, - 0.430715; 1.686316; 3.226701;, - 1.222087; 1.697437; 3.268176;, - 0.430715; 1.686316; 3.226701;, - 0.481097; 1.682147; 3.266932;, - -0.310275; 1.671026; 3.225457;, - 1.171704; 1.701607; 3.227946;, - 1.222087; 1.697437; 3.268176;, - 0.430715; 1.686316; 3.226701;, - -0.901231; 1.921513; 2.748008;, - -1.371140; 2.185869; 2.190513;, - -1.249440; 2.152331; 2.229945;, - -1.249440; 2.152331; 2.229945;, - -0.779531; 1.887975; 2.787440;, - -0.901231; 1.921513; 2.748008;, - -0.779531; 1.887975; 2.787440;, - -1.249440; 2.152331; 2.229945;, - -1.127740; 2.118793; 2.269377;, - -0.431322; 1.657157; 3.305503;, - -0.901231; 1.921513; 2.748008;, - -0.779531; 1.887975; 2.787440;, - -0.370798; 1.664091; 3.265480;, - -0.431322; 1.657157; 3.305503;, - -0.779531; 1.887975; 2.787440;, - -0.779531; 1.887975; 2.787440;, - -0.719007; 1.894910; 2.747417;, - -0.370798; 1.664091; 3.265480;, - -0.719007; 1.894910; 2.747417;, - -0.779531; 1.887975; 2.787440;, - -1.127740; 2.118793; 2.269377;, - -0.310275; 1.671026; 3.225457;, - -0.370798; 1.664091; 3.265480;, - -0.719007; 1.894910; 2.747417;, - 0.498466; 2.191785; 2.184912;, - 2.368072; 2.197701; 2.179312;, - 2.246372; 2.163257; 2.219543;, - 2.246372; 2.163257; 2.219543;, - 0.376766; 2.157341; 2.225143;, - 0.498466; 2.191785; 2.184912;, - 0.376766; 2.157341; 2.225143;, - 2.246372; 2.163257; 2.219543;, - 2.124673; 2.128813; 2.259773;, - -1.371140; 2.185869; 2.190513;, - 0.498466; 2.191785; 2.184912;, - 0.376766; 2.157341; 2.225143;, - -1.249440; 2.152331; 2.229945;, - -1.371140; 2.185869; 2.190513;, - 0.376766; 2.157341; 2.225143;, - 0.376766; 2.157341; 2.225143;, - 0.498466; 2.123803; 2.264575;, - -1.249440; 2.152331; 2.229945;, - 0.498466; 2.123803; 2.264575;, - 0.376766; 2.157341; 2.225143;, - 2.124673; 2.128813; 2.259773;, - -1.127740; 2.118793; 2.269377;, - -1.249440; 2.152331; 2.229945;, - 0.498466; 2.123803; 2.264575;, - -0.723277;-1.825917; 2.747377;, - -0.313126;-1.614023; 3.218079;, - -0.723277;-1.786057; 2.747377;, - -0.723277;-1.786057; 2.747377;, - -1.133428;-1.997951; 2.276675;, - -0.723277;-1.825917; 2.747377;, - -1.133428;-1.997951; 2.276675;, - -0.723277;-1.786057; 2.747377;, - -1.133428;-1.958090; 2.276675;, - -1.133428;-2.037811; 2.276675;, - -0.723277;-1.825917; 2.747377;, - -1.133428;-1.997951; 2.276675;, - -0.723277;-1.786057; 2.747377;, - -0.313126;-1.614023; 3.218079;, - -0.313126;-1.574162; 3.218079;, - -0.313126;-1.574162; 3.218079;, - -0.723277;-1.746196; 2.747377;, - -0.723277;-1.786057; 2.747377;, - -0.723277;-1.746196; 2.747377;, - -0.313126;-1.574162; 3.218079;, - -0.313126;-1.534302; 3.218079;, - -1.133428;-1.958090; 2.276675;, - -0.723277;-1.786057; 2.747377;, - -0.723277;-1.746196; 2.747377;, - 0.430472;-1.626825; 3.219305;, - 1.174071;-1.639627; 3.220530;, - 1.174071;-1.599766; 3.220530;, - 1.174071;-1.599766; 3.220530;, - 0.430472;-1.586964; 3.219305;, - 0.430472;-1.626825; 3.219305;, - 0.430472;-1.586964; 3.219305;, - 1.174071;-1.599766; 3.220530;, - 1.174071;-1.559906; 3.220530;, - -0.313126;-1.614023; 3.218079;, - 0.430472;-1.626825; 3.219305;, - 0.430472;-1.586964; 3.219305;, - -0.313126;-1.574162; 3.218079;, - -0.313126;-1.614023; 3.218079;, - 0.430472;-1.586964; 3.219305;, - 0.430472;-1.586964; 3.219305;, - 0.430472;-1.547104; 3.219305;, - -0.313126;-1.574162; 3.218079;, - 0.430472;-1.547104; 3.219305;, - 0.430472;-1.586964; 3.219305;, - 1.174071;-1.559906; 3.220530;, - -0.313126;-1.534302; 3.218079;, - -0.313126;-1.574162; 3.218079;, - 0.430472;-1.547104; 3.219305;, - 1.652216;-1.843246; 2.743874;, - 2.130361;-2.046865; 2.267218;, - 2.130361;-2.007004; 2.267218;, - 2.130361;-2.007004; 2.267218;, - 1.652216;-1.803385; 2.743874;, - 1.652216;-1.843246; 2.743874;, - 1.652216;-1.803385; 2.743874;, - 2.130361;-2.007004; 2.267218;, - 2.130361;-1.967144; 2.267218;, - 1.174071;-1.639627; 3.220530;, - 1.652216;-1.843246; 2.743874;, - 1.652216;-1.803385; 2.743874;, - 1.174071;-1.599766; 3.220530;, - 1.174071;-1.639627; 3.220530;, - 1.652216;-1.803385; 2.743874;, - 1.652216;-1.803385; 2.743874;, - 1.652216;-1.763525; 2.743874;, - 1.174071;-1.599766; 3.220530;, - 1.652216;-1.763525; 2.743874;, - 1.652216;-1.803385; 2.743874;, - 2.130361;-1.967144; 2.267218;, - 1.174071;-1.559906; 3.220530;, - 1.174071;-1.599766; 3.220530;, - 1.652216;-1.763525; 2.743874;, - 0.498467;-2.042338; 2.271946;, - -1.133428;-2.037811; 2.276675;, - 0.498467;-2.002478; 2.271946;, - 0.498467;-2.002478; 2.271946;, - 2.130361;-2.007004; 2.267218;, - 0.498467;-2.042338; 2.271946;, - 2.130361;-2.007004; 2.267218;, - 0.498467;-2.002478; 2.271946;, - 2.130361;-1.967144; 2.267218;, - 2.130361;-2.046865; 2.267218;, - 0.498467;-2.042338; 2.271946;, - 2.130361;-2.007004; 2.267218;, - 0.498467;-2.002478; 2.271946;, - -1.133428;-2.037811; 2.276675;, - -1.133428;-1.997951; 2.276675;, - -1.133428;-1.997951; 2.276675;, - 0.498467;-1.962617; 2.271946;, - 0.498467;-2.002478; 2.271946;, - 0.498467;-1.962617; 2.271946;, - -1.133428;-1.997951; 2.276675;, - -1.133428;-1.958090; 2.276675;, - 2.130361;-1.967144; 2.267218;, - 0.498467;-2.002478; 2.271946;, - 0.498467;-1.962617; 2.271946;, - -0.901244;-1.872571; 2.748023;, - -0.431347;-1.606931; 3.305532;, - -0.782387;-1.822371; 2.791103;, - -0.782387;-1.822371; 2.791103;, - -1.252284;-2.088011; 2.233594;, - -0.901244;-1.872571; 2.748023;, - -1.252284;-2.088011; 2.233594;, - -0.782387;-1.822371; 2.791103;, - -1.133428;-2.037811; 2.276675;, - -1.371140;-2.138211; 2.190513;, - -0.901244;-1.872571; 2.748023;, - -1.252284;-2.088011; 2.233594;, - -0.782387;-1.822371; 2.791103;, - -0.431347;-1.606931; 3.305532;, - -0.372236;-1.610477; 3.261806;, - -0.372236;-1.610477; 3.261806;, - -0.723277;-1.825917; 2.747377;, - -0.782387;-1.822371; 2.791103;, - -0.723277;-1.825917; 2.747377;, - -0.372236;-1.610477; 3.261806;, - -0.313126;-1.614023; 3.218079;, - -1.133428;-2.037811; 2.276675;, - -0.782387;-1.822371; 2.791103;, - -0.723277;-1.825917; 2.747377;, - 0.420568;-1.622980; 3.306983;, - 1.272483;-1.639029; 3.308435;, - 0.479679;-1.626526; 3.263257;, - 0.479679;-1.626526; 3.263257;, - -0.372236;-1.610477; 3.261806;, - 0.420568;-1.622980; 3.306983;, - -0.372236;-1.610477; 3.261806;, - 0.479679;-1.626526; 3.263257;, - -0.313126;-1.614023; 3.218079;, - -0.431347;-1.606931; 3.305532;, - 0.420568;-1.622980; 3.306983;, - -0.372236;-1.610477; 3.261806;, - 0.479679;-1.626526; 3.263257;, - 1.272483;-1.639029; 3.308435;, - 1.223277;-1.639328; 3.264482;, - 1.223277;-1.639328; 3.264482;, - 0.430472;-1.626825; 3.219305;, - 0.479679;-1.626526; 3.263257;, - 0.430472;-1.626825; 3.219305;, - 1.223277;-1.639328; 3.264482;, - 1.174071;-1.639627; 3.220530;, - -0.313126;-1.614023; 3.218079;, - 0.479679;-1.626526; 3.263257;, - 0.430472;-1.626825; 3.219305;, - 1.820277;-1.894295; 2.743874;, - 2.368072;-2.149561; 2.179312;, - 2.249217;-2.098213; 2.223265;, - 2.249217;-2.098213; 2.223265;, - 1.701422;-1.842947; 2.787827;, - 1.820277;-1.894295; 2.743874;, - 1.701422;-1.842947; 2.787827;, - 2.249217;-2.098213; 2.223265;, - 2.130361;-2.046865; 2.267218;, - 1.272483;-1.639029; 3.308435;, - 1.820277;-1.894295; 2.743874;, - 1.701422;-1.842947; 2.787827;, - 1.223277;-1.639328; 3.264482;, - 1.272483;-1.639029; 3.308435;, - 1.701422;-1.842947; 2.787827;, - 1.701422;-1.842947; 2.787827;, - 1.652216;-1.843246; 2.743874;, - 1.223277;-1.639328; 3.264482;, - 1.652216;-1.843246; 2.743874;, - 1.701422;-1.842947; 2.787827;, - 2.130361;-2.046865; 2.267218;, - 1.174071;-1.639627; 3.220530;, - 1.223277;-1.639328; 3.264482;, - 1.652216;-1.843246; 2.743874;, - 0.498466;-2.143886; 2.184912;, - -1.371140;-2.138211; 2.190513;, - 0.379611;-2.092538; 2.228866;, - 0.379611;-2.092538; 2.228866;, - 2.249217;-2.098213; 2.223265;, - 0.498466;-2.143886; 2.184912;, - 2.249217;-2.098213; 2.223265;, - 0.379611;-2.092538; 2.228866;, - 2.130361;-2.046865; 2.267218;, - 2.368072;-2.149561; 2.179312;, - 0.498466;-2.143886; 2.184912;, - 2.249217;-2.098213; 2.223265;, - 0.379611;-2.092538; 2.228866;, - -1.371140;-2.138211; 2.190513;, - -1.252284;-2.088011; 2.233594;, - -1.252284;-2.088011; 2.233594;, - 0.498467;-2.042338; 2.271946;, - 0.379611;-2.092538; 2.228866;, - 0.498467;-2.042338; 2.271946;, - -1.252284;-2.088011; 2.233594;, - -1.133428;-2.037811; 2.276675;, - 2.130361;-2.046865; 2.267218;, - 0.379611;-2.092538; 2.228866;, - 0.498467;-2.042338; 2.271946;, - 1.286485; 1.507093; 3.332222;, - 1.300501; 1.320919; 3.356039;, - 0.434590; 1.489038; 3.330771;, - 0.434590; 1.489038; 3.330771;, - 0.420574; 1.675212; 3.306954;, - 1.286485; 1.507093; 3.332222;, - 0.420574; 1.675212; 3.306954;, - 0.434590; 1.489038; 3.330771;, - -0.431322; 1.657157; 3.305503;, - 1.272469; 1.693267; 3.308406;, - 1.286485; 1.507093; 3.332222;, - 0.420574; 1.675212; 3.306954;, - 0.434590; 1.489038; 3.330771;, - 1.300501; 1.320919; 3.356039;, - 0.418963; 1.315961; 3.356039;, - 0.418963; 1.315961; 3.356039;, - -0.446948; 1.484080; 3.330771;, - 0.434590; 1.489038; 3.330771;, - -0.446948; 1.484080; 3.330771;, - 0.418963; 1.315961; 3.356039;, - -0.462574; 1.311003; 3.356039;, - -0.431322; 1.657157; 3.305503;, - 0.434590; 1.489038; 3.330771;, - -0.446948; 1.484080; 3.330771;, - 1.286510;-1.455024; 3.332275;, - 1.272483;-1.639029; 3.308435;, - 0.420568;-1.622980; 3.306983;, - 0.420568;-1.622980; 3.306983;, - 0.434595;-1.438976; 3.330824;, - 1.286510;-1.455024; 3.332275;, - 0.434595;-1.438976; 3.330824;, - 0.420568;-1.622980; 3.306983;, - -0.431347;-1.606931; 3.305532;, - 1.300538;-1.271020; 3.356116;, - 1.286510;-1.455024; 3.332275;, - 0.434595;-1.438976; 3.330824;, - 0.418950;-1.266631; 3.356116;, - 1.300538;-1.271020; 3.356116;, - 0.434595;-1.438976; 3.330824;, - 0.434595;-1.438976; 3.330824;, - -0.446993;-1.434587; 3.330824;, - 0.418950;-1.266631; 3.356116;, - -0.446993;-1.434587; 3.330824;, - 0.434595;-1.438976; 3.330824;, - -0.431347;-1.606931; 3.305532;, - -0.462638;-1.262242; 3.356116;, - 0.418950;-1.266631; 3.356116;, - -0.446993;-1.434587; 3.330824;, - 1.310621; 0.672548; 3.387562;, - 1.320741; 0.024176; 3.419084;, - 0.429084; 0.667589; 3.387562;, - 0.429084; 0.667589; 3.387562;, - 0.418963; 1.315961; 3.356039;, - 1.310621; 0.672548; 3.387562;, - 0.418963; 1.315961; 3.356039;, - 0.429084; 0.667589; 3.387562;, - -0.462574; 1.311003; 3.356039;, - 1.300501; 1.320919; 3.356039;, - 1.310621; 0.672548; 3.387562;, - 0.418963; 1.315961; 3.356039;, - 0.429084; 0.667589; 3.387562;, - 1.320741; 0.024176; 3.419084;, - 0.369451; 0.024176; 3.419084;, - 0.369451; 0.024176; 3.419084;, - -0.522207; 0.667589; 3.387562;, - 0.429084; 0.667589; 3.387562;, - -0.522207; 0.667589; 3.387562;, - 0.369451; 0.024176; 3.419084;, - -0.581840; 0.024176; 3.419084;, - -0.462574; 1.311003; 3.356039;, - 0.429084; 0.667589; 3.387562;, - -0.522207; 0.667589; 3.387562;, - 1.310640;-0.623422; 3.387600;, - 1.300538;-1.271020; 3.356116;, - 0.418950;-1.266631; 3.356116;, - 0.418950;-1.266631; 3.356116;, - 0.429052;-0.619033; 3.387600;, - 1.310640;-0.623422; 3.387600;, - 0.429052;-0.619033; 3.387600;, - 0.418950;-1.266631; 3.356116;, - -0.462638;-1.262242; 3.356116;, - 1.320741; 0.024176; 3.419084;, - 1.310640;-0.623422; 3.387600;, - 0.429052;-0.619033; 3.387600;, - 0.369451; 0.024176; 3.419084;, - 1.320741; 0.024176; 3.419084;, - 0.429052;-0.619033; 3.387600;, - 0.429052;-0.619033; 3.387600;, - -0.522239;-0.619033; 3.387600;, - 0.369451; 0.024176; 3.419084;, - -0.522239;-0.619033; 3.387600;, - 0.429052;-0.619033; 3.387600;, - -0.462638;-1.262242; 3.356116;, - -0.581840; 0.024176; 3.419084;, - 0.369451; 0.024176; 3.419084;, - -0.522239;-0.619033; 3.387600;, - 0.498466; 2.032465; 2.264575;, - 2.124673; 2.037475; 2.259773;, - 1.648188; 1.823872; 2.743860;, - 1.648188; 1.823872; 2.743860;, - 0.021982; 1.818862; 2.748662;, - 0.498466; 2.032465; 2.264575;, - 0.021982; 1.818862; 2.748662;, - 1.648188; 1.823872; 2.743860;, - 1.171704; 1.610269; 3.227946;, - -1.127740; 2.027455; 2.269377;, - 0.498466; 2.032465; 2.264575;, - 0.021982; 1.818862; 2.748662;, - -0.719007; 1.803571; 2.747417;, - -1.127740; 2.027455; 2.269377;, - 0.021982; 1.818862; 2.748662;, - 0.021982; 1.818862; 2.748662;, - 0.430715; 1.594978; 3.226701;, - -0.719007; 1.803571; 2.747417;, - 0.430715; 1.594978; 3.226701;, - 0.021982; 1.818862; 2.748662;, - 1.171704; 1.610269; 3.227946;, - -0.310275; 1.579687; 3.225457;, - -0.719007; 1.803571; 2.747417;, - 0.430715; 1.594978; 3.226701;, - 0.498467;-1.962617; 2.271946;, - -1.133428;-1.958090; 2.276675;, - 0.020321;-1.758998; 2.748602;, - 0.020321;-1.758998; 2.748602;, - 1.652216;-1.763525; 2.743874;, - 0.498467;-1.962617; 2.271946;, - 1.652216;-1.763525; 2.743874;, - 0.020321;-1.758998; 2.748602;, - 1.174071;-1.559906; 3.220530;, - 2.130361;-1.967144; 2.267218;, - 0.498467;-1.962617; 2.271946;, - 1.652216;-1.763525; 2.743874;, - 0.020321;-1.758998; 2.748602;, - -1.133428;-1.958090; 2.276675;, - -0.723277;-1.746196; 2.747377;, - -0.723277;-1.746196; 2.747377;, - 0.430472;-1.547104; 3.219305;, - 0.020321;-1.758998; 2.748602;, - 0.430472;-1.547104; 3.219305;, - -0.723277;-1.746196; 2.747377;, - -0.313126;-1.534302; 3.218079;, - 1.174071;-1.559906; 3.220530;, - 0.020321;-1.758998; 2.748602;, - 0.430472;-1.547104; 3.219305;, - 1.644502; 1.497603; 3.332121;, - 1.666349; 1.316598; 3.356039;, - 1.483425; 1.318758; 3.356039;, - 1.483425; 1.318758; 3.356039;, - 1.461578; 1.499763; 3.332121;, - 1.644502; 1.497603; 3.332121;, - 1.461578; 1.499763; 3.332121;, - 1.483425; 1.318758; 3.356039;, - 1.300501; 1.320919; 3.356039;, - 1.622655; 1.678608; 3.308204;, - 1.644502; 1.497603; 3.332121;, - 1.461578; 1.499763; 3.332121;, - 1.447562; 1.685937; 3.308305;, - 1.622655; 1.678608; 3.308204;, - 1.461578; 1.499763; 3.332121;, - 1.461578; 1.499763; 3.332121;, - 1.286485; 1.507093; 3.332222;, - 1.447562; 1.685937; 3.308305;, - 1.286485; 1.507093; 3.332222;, - 1.461578; 1.499763; 3.332121;, - 1.300501; 1.320919; 3.356039;, - 1.272469; 1.693267; 3.308406;, - 1.447562; 1.685937; 3.308305;, - 1.286485; 1.507093; 3.332222;, - 1.644547;-1.446642; 3.332175;, - 1.622680;-1.626089; 3.308233;, - 1.461609;-1.448555; 3.332175;, - 1.461609;-1.448555; 3.332175;, - 1.483475;-1.269108; 3.356116;, - 1.644547;-1.446642; 3.332175;, - 1.483475;-1.269108; 3.356116;, - 1.461609;-1.448555; 3.332175;, - 1.300538;-1.271020; 3.356116;, - 1.666413;-1.267195; 3.356116;, - 1.644547;-1.446642; 3.332175;, - 1.483475;-1.269108; 3.356116;, - 1.461609;-1.448555; 3.332175;, - 1.622680;-1.626089; 3.308233;, - 1.447582;-1.632559; 3.308334;, - 1.447582;-1.632559; 3.308334;, - 1.286510;-1.455024; 3.332275;, - 1.461609;-1.448555; 3.332175;, - 1.286510;-1.455024; 3.332275;, - 1.447582;-1.632559; 3.308334;, - 1.272483;-1.639029; 3.308435;, - 1.300538;-1.271020; 3.356116;, - 1.461609;-1.448555; 3.332175;, - 1.286510;-1.455024; 3.332275;, - 1.684129; 0.670387; 3.387562;, - 1.701908; 0.024176; 3.419084;, - 1.511325; 0.024176; 3.419084;, - 1.511325; 0.024176; 3.419084;, - 1.493545; 0.670387; 3.387562;, - 1.684129; 0.670387; 3.387562;, - 1.493545; 0.670387; 3.387562;, - 1.511325; 0.024176; 3.419084;, - 1.320741; 0.024176; 3.419084;, - 1.666349; 1.316598; 3.356039;, - 1.684129; 0.670387; 3.387562;, - 1.493545; 0.670387; 3.387562;, - 1.483425; 1.318758; 3.356039;, - 1.666349; 1.316598; 3.356039;, - 1.493545; 0.670387; 3.387562;, - 1.493545; 0.670387; 3.387562;, - 1.310621; 0.672548; 3.387562;, - 1.483425; 1.318758; 3.356039;, - 1.310621; 0.672548; 3.387562;, - 1.493545; 0.670387; 3.387562;, - 1.320741; 0.024176; 3.419084;, - 1.300501; 1.320919; 3.356039;, - 1.483425; 1.318758; 3.356039;, - 1.310621; 0.672548; 3.387562;, - 1.684160;-0.621509; 3.387600;, - 1.666413;-1.267195; 3.356116;, - 1.493577;-0.621509; 3.387600;, - 1.493577;-0.621509; 3.387600;, - 1.511325; 0.024176; 3.419084;, - 1.684160;-0.621509; 3.387600;, - 1.511325; 0.024176; 3.419084;, - 1.493577;-0.621509; 3.387600;, - 1.320741; 0.024176; 3.419084;, - 1.701908; 0.024176; 3.419084;, - 1.684160;-0.621509; 3.387600;, - 1.511325; 0.024176; 3.419084;, - 1.493577;-0.621509; 3.387600;, - 1.666413;-1.267195; 3.356116;, - 1.483475;-1.269108; 3.356116;, - 1.483475;-1.269108; 3.356116;, - 1.310640;-0.623422; 3.387600;, - 1.493577;-0.621509; 3.387600;, - 1.310640;-0.623422; 3.387600;, - 1.483475;-1.269108; 3.356116;, - 1.300538;-1.271020; 3.356116;, - 1.320741; 0.024176; 3.419084;, - 1.493577;-0.621509; 3.387600;, - 1.310640;-0.623422; 3.387600;, - 2.308781; 1.479993; 3.332008;, - 2.344744; 1.308585; 3.356039;, - 2.005547; 1.312592; 3.356039;, - 2.005547; 1.312592; 3.356039;, - 1.969584; 1.483999; 3.332008;, - 2.308781; 1.479993; 3.332008;, - 1.969584; 1.483999; 3.332008;, - 2.005547; 1.312592; 3.356039;, - 1.666349; 1.316598; 3.356039;, - 2.272818; 1.651400; 3.307977;, - 2.308781; 1.479993; 3.332008;, - 1.969584; 1.483999; 3.332008;, - 1.947737; 1.665004; 3.308090;, - 2.272818; 1.651400; 3.307977;, - 1.969584; 1.483999; 3.332008;, - 1.969584; 1.483999; 3.332008;, - 1.644502; 1.497603; 3.332121;, - 1.947737; 1.665004; 3.308090;, - 1.644502; 1.497603; 3.332121;, - 1.969584; 1.483999; 3.332008;, - 1.666349; 1.316598; 3.356039;, - 1.622655; 1.678608; 3.308204;, - 1.947737; 1.665004; 3.308090;, - 1.644502; 1.497603; 3.332121;, - 2.308861;-1.431094; 3.332061;, - 2.272861;-1.602086; 3.308006;, - 1.969637;-1.434640; 3.332061;, - 1.969637;-1.434640; 3.332061;, - 2.005636;-1.263649; 3.356116;, - 2.308861;-1.431094; 3.332061;, - 2.005636;-1.263649; 3.356116;, - 1.969637;-1.434640; 3.332061;, - 1.666413;-1.267195; 3.356116;, - 2.344860;-1.260102; 3.356116;, - 2.308861;-1.431094; 3.332061;, - 2.005636;-1.263649; 3.356116;, - 1.969637;-1.434640; 3.332061;, - 2.272861;-1.602086; 3.308006;, - 1.947770;-1.614087; 3.308120;, - 1.947770;-1.614087; 3.308120;, - 1.644547;-1.446642; 3.332175;, - 1.969637;-1.434640; 3.332061;, - 1.644547;-1.446642; 3.332175;, - 1.947770;-1.614087; 3.308120;, - 1.622680;-1.626089; 3.308233;, - 1.666413;-1.267195; 3.356116;, - 1.969637;-1.434640; 3.332061;, - 1.644547;-1.446642; 3.332175;, - 2.376728; 0.666381; 3.387562;, - 2.408712; 0.024176; 3.419084;, - 2.055310; 0.024176; 3.419084;, - 2.055310; 0.024176; 3.419084;, - 2.023326; 0.666381; 3.387562;, - 2.376728; 0.666381; 3.387562;, - 2.023326; 0.666381; 3.387562;, - 2.055310; 0.024176; 3.419084;, - 1.701908; 0.024176; 3.419084;, - 2.344744; 1.308585; 3.356039;, - 2.376728; 0.666381; 3.387562;, - 2.023326; 0.666381; 3.387562;, - 2.005547; 1.312592; 3.356039;, - 2.344744; 1.308585; 3.356039;, - 2.023326; 0.666381; 3.387562;, - 2.023326; 0.666381; 3.387562;, - 1.684129; 0.670387; 3.387562;, - 2.005547; 1.312592; 3.356039;, - 1.684129; 0.670387; 3.387562;, - 2.023326; 0.666381; 3.387562;, - 1.701908; 0.024176; 3.419084;, - 1.666349; 1.316598; 3.356039;, - 2.005547; 1.312592; 3.356039;, - 1.684129; 0.670387; 3.387562;, - 2.376786;-0.617963; 3.387600;, - 2.344860;-1.260102; 3.356116;, - 2.023384;-0.617963; 3.387600;, - 2.023384;-0.617963; 3.387600;, - 2.055310; 0.024176; 3.419084;, - 2.376786;-0.617963; 3.387600;, - 2.055310; 0.024176; 3.419084;, - 2.023384;-0.617963; 3.387600;, - 1.701908; 0.024176; 3.419084;, - 2.408712; 0.024176; 3.419084;, - 2.376786;-0.617963; 3.387600;, - 2.055310; 0.024176; 3.419084;, - 2.023384;-0.617963; 3.387600;, - 2.344860;-1.260102; 3.356116;, - 2.005636;-1.263649; 3.356116;, - 2.005636;-1.263649; 3.356116;, - 1.684160;-0.621509; 3.387600;, - 2.023384;-0.617963; 3.387600;, - 1.684160;-0.621509; 3.387600;, - 2.005636;-1.263649; 3.356116;, - 1.666413;-1.267195; 3.356116;, - 1.701908; 0.024176; 3.419084;, - 2.023384;-0.617963; 3.387600;, - 1.684160;-0.621509; 3.387600;, - 3.357309; 1.972738; 2.272933;, - 3.367758; 1.777187; 2.272989;, - 2.820288; 1.714293; 2.790483;, - 2.820288; 1.714293; 2.790483;, - 2.809839; 1.909844; 2.790426;, - 3.357309; 1.972738; 2.272933;, - 2.809839; 1.909844; 2.790426;, - 2.820288; 1.714293; 2.790483;, - 2.272818; 1.651400; 3.307977;, - 3.346860; 2.168289; 2.272876;, - 3.357309; 1.972738; 2.272933;, - 2.809839; 1.909844; 2.790426;, - 2.820288; 1.714293; 2.790483;, - 3.367758; 1.777187; 2.272989;, - 2.856251; 1.542886; 2.814514;, - 2.856251; 1.542886; 2.814514;, - 2.308781; 1.479993; 3.332008;, - 2.820288; 1.714293; 2.790483;, - 2.308781; 1.479993; 3.332008;, - 2.856251; 1.542886; 2.814514;, - 2.344744; 1.308585; 3.356039;, - 2.272818; 1.651400; 3.307977;, - 2.820288; 1.714293; 2.790483;, - 2.308781; 1.479993; 3.332008;, - 2.487622; 2.184196; 2.215730;, - 2.607171; 2.170691; 2.252148;, - 2.114913; 1.924649; 2.780176;, - 2.114913; 1.924649; 2.780176;, - 1.995363; 1.938154; 2.743758;, - 2.487622; 2.184196; 2.215730;, - 1.995363; 1.938154; 2.743758;, - 2.114913; 1.924649; 2.780176;, - 1.622655; 1.678608; 3.308204;, - 2.368072; 2.197701; 2.179312;, - 2.487622; 2.184196; 2.215730;, - 1.995363; 1.938154; 2.743758;, - 1.820271; 1.945484; 2.743859;, - 2.368072; 2.197701; 2.179312;, - 1.995363; 1.938154; 2.743758;, - 1.995363; 1.938154; 2.743758;, - 1.447562; 1.685937; 3.308305;, - 1.820271; 1.945484; 2.743859;, - 1.447562; 1.685937; 3.308305;, - 1.995363; 1.938154; 2.743758;, - 1.622655; 1.678608; 3.308204;, - 1.272469; 1.693267; 3.308406;, - 1.820271; 1.945484; 2.743859;, - 1.447562; 1.685937; 3.308305;, - 3.332139;-1.924849; 2.272933;, - 3.325154;-2.120646; 2.272876;, - 2.799007;-1.861366; 2.790441;, - 2.799007;-1.861366; 2.790441;, - 2.805992;-1.665568; 2.790498;, - 3.332139;-1.924849; 2.272933;, - 2.805992;-1.665568; 2.790498;, - 2.799007;-1.861366; 2.790441;, - 2.272861;-1.602086; 3.308006;, - 3.339123;-1.729051; 2.272989;, - 3.332139;-1.924849; 2.272933;, - 2.805992;-1.665568; 2.790498;, - 2.841991;-1.494576; 2.814553;, - 3.339123;-1.729051; 2.272989;, - 2.805992;-1.665568; 2.790498;, - 2.805992;-1.665568; 2.790498;, - 2.308861;-1.431094; 3.332061;, - 2.841991;-1.494576; 2.814553;, - 2.308861;-1.431094; 3.332061;, - 2.805992;-1.665568; 2.790498;, - 2.272861;-1.602086; 3.308006;, - 2.344860;-1.260102; 3.356116;, - 2.841991;-1.494576; 2.814553;, - 2.308861;-1.431094; 3.332061;, - 2.486460;-2.136302; 2.215731;, - 2.368072;-2.149561; 2.179312;, - 1.995376;-1.887825; 2.743773;, - 1.995376;-1.887825; 2.743773;, - 2.113764;-1.874566; 2.780191;, - 2.486460;-2.136302; 2.215731;, - 2.113764;-1.874566; 2.780191;, - 1.995376;-1.887825; 2.743773;, - 1.622680;-1.626089; 3.308233;, - 2.604848;-2.123043; 2.252149;, - 2.486460;-2.136302; 2.215731;, - 2.113764;-1.874566; 2.780191;, - 1.995376;-1.887825; 2.743773;, - 2.368072;-2.149561; 2.179312;, - 1.820277;-1.894295; 2.743874;, - 1.820277;-1.894295; 2.743874;, - 1.447582;-1.632559; 3.308334;, - 1.995376;-1.887825; 2.743773;, - 1.447582;-1.632559; 3.308334;, - 1.820277;-1.894295; 2.743874;, - 1.272483;-1.639029; 3.308435;, - 1.622680;-1.626089; 3.308233;, - 1.995376;-1.887825; 2.743773;, - 1.447582;-1.632559; 3.308334;, - 3.391062; 0.900743; 2.272989;, - 3.414365; 0.024299; 2.272989;, - 2.879555; 0.666442; 2.814514;, - 2.879555; 0.666442; 2.814514;, - 2.856251; 1.542886; 2.814514;, - 3.391062; 0.900743; 2.272989;, - 2.856251; 1.542886; 2.814514;, - 2.879555; 0.666442; 2.814514;, - 2.344744; 1.308585; 3.356039;, - 3.367758; 1.777187; 2.272989;, - 3.391062; 0.900743; 2.272989;, - 2.856251; 1.542886; 2.814514;, - 2.879555; 0.666442; 2.814514;, - 3.414365; 0.024299; 2.272989;, - 2.911539; 0.024237; 2.846036;, - 2.911539; 0.024237; 2.846036;, - 2.376728; 0.666381; 3.387562;, - 2.879555; 0.666442; 2.814514;, - 2.376728; 0.666381; 3.387562;, - 2.911539; 0.024237; 2.846036;, - 2.408712; 0.024176; 3.419084;, - 2.344744; 1.308585; 3.356039;, - 2.879555; 0.666442; 2.814514;, - 2.376728; 0.666381; 3.387562;, - 3.376744;-0.852376; 2.272989;, - 3.339123;-1.729051; 2.272989;, - 2.841991;-1.494576; 2.814553;, - 2.841991;-1.494576; 2.814553;, - 2.879612;-0.617902; 2.814553;, - 3.376744;-0.852376; 2.272989;, - 2.879612;-0.617902; 2.814553;, - 2.841991;-1.494576; 2.814553;, - 2.344860;-1.260102; 3.356116;, - 3.414365; 0.024299; 2.272989;, - 3.376744;-0.852376; 2.272989;, - 2.879612;-0.617902; 2.814553;, - 2.911539; 0.024237; 2.846036;, - 3.414365; 0.024299; 2.272989;, - 2.879612;-0.617902; 2.814553;, - 2.879612;-0.617902; 2.814553;, - 2.376786;-0.617963; 3.387600;, - 2.911539; 0.024237; 2.846036;, - 2.376786;-0.617963; 3.387600;, - 2.879612;-0.617902; 2.814553;, - 2.344860;-1.260102; 3.356116;, - 2.408712; 0.024176; 3.419084;, - 2.911539; 0.024237; 2.846036;, - 2.376786;-0.617963; 3.387600;, - 3.078870; 2.166273; 2.277672;, - 3.346860; 2.168289; 2.272876;, - 2.809839; 1.909844; 2.790426;, - 2.809839; 1.909844; 2.790426;, - 2.541850; 1.907828; 2.795223;, - 3.078870; 2.166273; 2.277672;, - 2.541850; 1.907828; 2.795223;, - 2.809839; 1.909844; 2.790426;, - 2.272818; 1.651400; 3.307977;, - 2.810881; 2.164256; 2.282468;, - 3.078870; 2.166273; 2.277672;, - 2.541850; 1.907828; 2.795223;, - 2.216768; 1.921432; 2.795336;, - 2.810881; 2.164256; 2.282468;, - 2.541850; 1.907828; 2.795223;, - 2.541850; 1.907828; 2.795223;, - 1.947737; 1.665004; 3.308090;, - 2.216768; 1.921432; 2.795336;, - 1.947737; 1.665004; 3.308090;, - 2.541850; 1.907828; 2.795223;, - 2.272818; 1.651400; 3.307977;, - 1.622655; 1.678608; 3.308204;, - 2.216768; 1.921432; 2.795336;, - 1.947737; 1.665004; 3.308090;, - 3.064176;-2.118630; 2.277672;, - 2.803198;-2.116614; 2.282468;, - 2.538030;-1.859350; 2.795237;, - 2.538030;-1.859350; 2.795237;, - 2.799007;-1.861366; 2.790441;, - 3.064176;-2.118630; 2.277672;, - 2.799007;-1.861366; 2.790441;, - 2.538030;-1.859350; 2.795237;, - 2.272861;-1.602086; 3.308006;, - 3.325154;-2.120646; 2.272876;, - 3.064176;-2.118630; 2.277672;, - 2.799007;-1.861366; 2.790441;, - 2.538030;-1.859350; 2.795237;, - 2.803198;-2.116614; 2.282468;, - 2.212939;-1.871351; 2.795351;, - 2.212939;-1.871351; 2.795351;, - 1.947770;-1.614087; 3.308120;, - 2.538030;-1.859350; 2.795237;, - 1.947770;-1.614087; 3.308120;, - 2.212939;-1.871351; 2.795351;, - 1.622680;-1.626089; 3.308233;, - 2.272861;-1.602086; 3.308006;, - 2.538030;-1.859350; 2.795237;, - 1.947770;-1.614087; 3.308120;, - -1.548096; 1.443352; 2.264727;, - -1.514827; 1.742537; 2.264727;, - -1.061471; 1.512779; 2.809289;, - -1.061471; 1.512779; 2.809289;, - -1.094740; 1.213594; 2.809289;, - -1.548096; 1.443352; 2.264727;, - -1.094740; 1.213594; 2.809289;, - -1.061471; 1.512779; 2.809289;, - -0.608114; 1.283022; 3.353852;, - -1.581366; 1.144166; 2.264726;, - -1.548096; 1.443352; 2.264727;, - -1.094740; 1.213594; 2.809289;, - -1.126727; 0.993153; 2.826240;, - -1.581366; 1.144166; 2.264726;, - -1.094740; 1.213594; 2.809289;, - -1.094740; 1.213594; 2.809289;, - -0.640101; 1.062581; 3.370802;, - -1.126727; 0.993153; 2.826240;, - -0.640101; 1.062581; 3.370802;, - -1.094740; 1.213594; 2.809289;, - -0.608114; 1.283022; 3.353852;, - -0.672089; 0.842140; 3.387753;, - -1.126727; 0.993153; 2.826240;, - -0.640101; 1.062581; 3.370802;, - -1.626592; 0.579836; 2.264727;, - -1.581366; 1.144166; 2.264726;, - -1.126727; 0.993153; 2.826240;, - -1.126727; 0.993153; 2.826240;, - -1.171954; 0.428823; 2.826240;, - -1.626592; 0.579836; 2.264727;, - -1.171954; 0.428823; 2.826240;, - -1.126727; 0.993153; 2.826240;, - -0.672089; 0.842140; 3.387753;, - -1.671819; 0.015506; 2.264727;, - -1.626592; 0.579836; 2.264727;, - -1.171954; 0.428823; 2.826240;, - -1.204515; 0.016630; 2.838675;, - -1.671819; 0.015506; 2.264727;, - -1.171954; 0.428823; 2.826240;, - -1.171954; 0.428823; 2.826240;, - -0.704649; 0.429947; 3.400188;, - -1.204515; 0.016630; 2.838675;, - -0.704649; 0.429947; 3.400188;, - -1.171954; 0.428823; 2.826240;, - -0.672089; 0.842140; 3.387753;, - -0.737210; 0.017754; 3.412624;, - -1.204515; 0.016630; 2.838675;, - -0.704649; 0.429947; 3.400188;, - -1.625888;-0.546326; 2.264727;, - -1.671819; 0.015506; 2.264727;, - -1.171330;-0.393738; 2.826002;, - -1.171330;-0.393738; 2.826002;, - -1.125399;-0.955570; 2.826002;, - -1.625888;-0.546326; 2.264727;, - -1.125399;-0.955570; 2.826002;, - -1.171330;-0.393738; 2.826002;, - -0.670841;-0.802983; 3.387276;, - -1.579956;-1.108158; 2.264727;, - -1.625888;-0.546326; 2.264727;, - -1.125399;-0.955570; 2.826002;, - -1.171330;-0.393738; 2.826002;, - -1.671819; 0.015506; 2.264727;, - -1.204515; 0.016630; 2.838675;, - -1.204515; 0.016630; 2.838675;, - -0.704026;-0.392614; 3.399950;, - -1.171330;-0.393738; 2.826002;, - -0.704026;-0.392614; 3.399950;, - -1.204515; 0.016630; 2.838675;, - -0.737210; 0.017754; 3.412624;, - -0.670841;-0.802983; 3.387276;, - -1.171330;-0.393738; 2.826002;, - -0.704026;-0.392614; 3.399950;, - -1.547393;-1.401590; 2.264727;, - -1.579956;-1.108158; 2.264727;, - -1.094040;-1.171595; 2.809295;, - -1.094040;-1.171595; 2.809295;, - -1.061477;-1.465026; 2.809295;, - -1.547393;-1.401590; 2.264727;, - -1.061477;-1.465026; 2.809295;, - -1.094040;-1.171595; 2.809295;, - -0.608124;-1.235032; 3.353863;, - -1.514830;-1.695021; 2.264727;, - -1.547393;-1.401590; 2.264727;, - -1.061477;-1.465026; 2.809295;, - -1.094040;-1.171595; 2.809295;, - -1.579956;-1.108158; 2.264727;, - -1.125399;-0.955570; 2.826002;, - -1.125399;-0.955570; 2.826002;, - -0.639482;-1.019007; 3.370569;, - -1.094040;-1.171595; 2.809295;, - -0.639482;-1.019007; 3.370569;, - -1.125399;-0.955570; 2.826002;, - -0.670841;-0.802983; 3.387276;, - -0.608124;-1.235032; 3.353863;, - -1.094040;-1.171595; 2.809295;, - -0.639482;-1.019007; 3.370569;, - -1.442985;-1.916616; 2.227620;, - -1.514830;-1.695021; 2.264727;, - -0.973089;-1.650976; 2.785130;, - -0.973089;-1.650976; 2.785130;, - -0.901244;-1.872571; 2.748023;, - -1.442985;-1.916616; 2.227620;, - -0.901244;-1.872571; 2.748023;, - -0.973089;-1.650976; 2.785130;, - -0.431347;-1.606931; 3.305532;, - -1.371140;-2.138211; 2.190513;, - -1.442985;-1.916616; 2.227620;, - -0.901244;-1.872571; 2.748023;, - -0.973089;-1.650976; 2.785130;, - -1.514830;-1.695021; 2.264727;, - -1.061477;-1.465026; 2.809295;, - -1.061477;-1.465026; 2.809295;, - -0.519736;-1.420981; 3.329698;, - -0.973089;-1.650976; 2.785130;, - -0.519736;-1.420981; 3.329698;, - -1.061477;-1.465026; 2.809295;, - -0.608124;-1.235032; 3.353863;, - -0.431347;-1.606931; 3.305532;, - -0.973089;-1.650976; 2.785130;, - -0.519736;-1.420981; 3.329698;, - -1.442984; 1.964203; 2.227620;, - -1.371140; 2.185869; 2.190513;, - -0.901231; 1.921513; 2.748008;, - -0.901231; 1.921513; 2.748008;, - -0.973074; 1.699847; 2.785115;, - -1.442984; 1.964203; 2.227620;, - -0.973074; 1.699847; 2.785115;, - -0.901231; 1.921513; 2.748008;, - -0.431322; 1.657157; 3.305503;, - -1.514827; 1.742537; 2.264727;, - -1.442984; 1.964203; 2.227620;, - -0.973074; 1.699847; 2.785115;, - -1.061471; 1.512779; 2.809289;, - -1.514827; 1.742537; 2.264727;, - -0.973074; 1.699847; 2.785115;, - -0.973074; 1.699847; 2.785115;, - -0.519718; 1.470089; 3.329678;, - -1.061471; 1.512779; 2.809289;, - -0.519718; 1.470089; 3.329678;, - -0.973074; 1.699847; 2.785115;, - -0.431322; 1.657157; 3.305503;, - -0.608114; 1.283022; 3.353852;, - -1.061471; 1.512779; 2.809289;, - -0.519718; 1.470089; 3.329678;, - -5.795009; 0.590544; 1.304493;, - -5.776383; 1.156820; 1.302990;, - -5.656039; 0.591366; 1.563603;, - -5.656039; 0.591366; 1.563603;, - -5.674665; 0.025090; 1.565107;, - -5.795009; 0.590544; 1.304493;, - -5.674665; 0.025090; 1.565107;, - -5.656039; 0.591366; 1.563603;, - -5.535696; 0.025912; 1.824216;, - -5.813634; 0.024268; 1.305997;, - -5.795009; 0.590544; 1.304493;, - -5.674665; 0.025090; 1.565107;, - -5.656039; 0.591366; 1.563603;, - -5.776383; 1.156820; 1.302990;, - -5.642724; 1.153979; 1.564844;, - -5.642724; 1.153979; 1.564844;, - -5.522380; 0.588525; 1.825457;, - -5.656039; 0.591366; 1.563603;, - -5.522380; 0.588525; 1.825457;, - -5.642724; 1.153979; 1.564844;, - -5.509064; 1.151138; 1.826698;, - -5.535696; 0.025912; 1.824216;, - -5.656039; 0.591366; 1.563603;, - -5.522380; 0.588525; 1.825457;, - -5.743530; 1.449871; 1.306916;, - -5.710678; 1.742921; 1.310843;, - -5.609871; 1.447029; 1.568770;, - -5.609871; 1.447029; 1.568770;, - -5.642724; 1.153979; 1.564844;, - -5.743530; 1.449871; 1.306916;, - -5.642724; 1.153979; 1.564844;, - -5.609871; 1.447029; 1.568770;, - -5.509064; 1.151138; 1.826698;, - -5.776383; 1.156820; 1.302990;, - -5.743530; 1.449871; 1.306916;, - -5.642724; 1.153979; 1.564844;, - -5.609871; 1.447029; 1.568770;, - -5.710678; 1.742921; 1.310843;, - -5.580520; 1.742920; 1.568657;, - -5.580520; 1.742920; 1.568657;, - -5.479712; 1.447028; 1.826584;, - -5.609871; 1.447029; 1.568770;, - -5.479712; 1.447028; 1.826584;, - -5.580520; 1.742920; 1.568657;, - -5.450361; 1.742919; 1.826471;, - -5.509064; 1.151138; 1.826698;, - -5.609871; 1.447029; 1.568770;, - -5.479712; 1.447028; 1.826584;, - -5.795027;-0.542293; 1.304227;, - -5.813634; 0.024268; 1.305997;, - -5.674665; 0.025090; 1.565107;, - -5.674665; 0.025090; 1.565107;, - -5.656057;-0.541471; 1.563336;, - -5.795027;-0.542293; 1.304227;, - -5.656057;-0.541471; 1.563336;, - -5.674665; 0.025090; 1.565107;, - -5.535696; 0.025912; 1.824216;, - -5.776419;-1.108854; 1.302456;, - -5.795027;-0.542293; 1.304227;, - -5.656057;-0.541471; 1.563336;, - -5.642757;-1.105927; 1.564577;, - -5.776419;-1.108854; 1.302456;, - -5.656057;-0.541471; 1.563336;, - -5.656057;-0.541471; 1.563336;, - -5.522396;-0.538544; 1.825457;, - -5.642757;-1.105927; 1.564577;, - -5.522396;-0.538544; 1.825457;, - -5.656057;-0.541471; 1.563336;, - -5.535696; 0.025912; 1.824216;, - -5.509095;-1.103001; 1.826698;, - -5.642757;-1.105927; 1.564577;, - -5.522396;-0.538544; 1.825457;, - -5.743591;-1.401823; 1.306649;, - -5.776419;-1.108854; 1.302456;, - -5.642757;-1.105927; 1.564577;, - -5.642757;-1.105927; 1.564577;, - -5.609929;-1.398896; 1.568770;, - -5.743591;-1.401823; 1.306649;, - -5.609929;-1.398896; 1.568770;, - -5.642757;-1.105927; 1.564577;, - -5.509095;-1.103001; 1.826698;, - -5.710763;-1.694792; 1.310843;, - -5.743591;-1.401823; 1.306649;, - -5.609929;-1.398896; 1.568770;, - -5.580600;-1.694762; 1.568655;, - -5.710763;-1.694792; 1.310843;, - -5.609929;-1.398896; 1.568770;, - -5.609929;-1.398896; 1.568770;, - -5.479766;-1.398867; 1.826583;, - -5.580600;-1.694762; 1.568655;, - -5.479766;-1.398867; 1.826583;, - -5.609929;-1.398896; 1.568770;, - -5.509095;-1.103001; 1.826698;, - -5.450437;-1.694733; 1.826468;, - -5.580600;-1.694762; 1.568655;, - -5.479766;-1.398867; 1.826583;, - -5.963143; 0.587718; 0.825909;, - -5.938967; 1.151137; 0.824406;, - -5.876301; 0.587703; 1.065202;, - -5.876301; 0.587703; 1.065202;, - -5.900476; 0.024283; 1.066705;, - -5.963143; 0.587718; 0.825909;, - -5.900476; 0.024283; 1.066705;, - -5.876301; 0.587703; 1.065202;, - -5.813634; 0.024268; 1.305997;, - -5.987319; 0.024299; 0.827412;, - -5.963143; 0.587718; 0.825909;, - -5.900476; 0.024283; 1.066705;, - -5.876301; 0.587703; 1.065202;, - -5.938967; 1.151137; 0.824406;, - -5.857675; 1.153979; 1.063698;, - -5.857675; 1.153979; 1.063698;, - -5.795009; 0.590544; 1.304493;, - -5.876301; 0.587703; 1.065202;, - -5.795009; 0.590544; 1.304493;, - -5.857675; 1.153979; 1.063698;, - -5.776383; 1.156820; 1.302990;, - -5.813634; 0.024268; 1.305997;, - -5.876301; 0.587703; 1.065202;, - -5.795009; 0.590544; 1.304493;, - -5.905846; 1.446991; 0.827975;, - -5.872725; 1.742845; 0.831544;, - -5.824554; 1.449833; 1.067267;, - -5.824554; 1.449833; 1.067267;, - -5.857675; 1.153979; 1.063698;, - -5.905846; 1.446991; 0.827975;, - -5.857675; 1.153979; 1.063698;, - -5.824554; 1.449833; 1.067267;, - -5.776383; 1.156820; 1.302990;, - -5.938967; 1.151137; 0.824406;, - -5.905846; 1.446991; 0.827975;, - -5.857675; 1.153979; 1.063698;, - -5.824554; 1.449833; 1.067267;, - -5.872725; 1.742845; 0.831544;, - -5.791701; 1.742883; 1.071193;, - -5.791701; 1.742883; 1.071193;, - -5.743530; 1.449871; 1.306916;, - -5.824554; 1.449833; 1.067267;, - -5.743530; 1.449871; 1.306916;, - -5.791701; 1.742883; 1.071193;, - -5.710678; 1.742921; 1.310843;, - -5.776383; 1.156820; 1.302990;, - -5.824554; 1.449833; 1.067267;, - -5.743530; 1.449871; 1.306916;, - -5.963164;-0.539351; 0.825642;, - -5.987319; 0.024299; 0.827412;, - -5.900476; 0.024283; 1.066705;, - -5.900476; 0.024283; 1.066705;, - -5.876322;-0.539366; 1.064934;, - -5.963164;-0.539351; 0.825642;, - -5.876322;-0.539366; 1.064934;, - -5.900476; 0.024283; 1.066705;, - -5.813634; 0.024268; 1.305997;, - -5.939009;-1.103001; 0.823872;, - -5.963164;-0.539351; 0.825642;, - -5.876322;-0.539366; 1.064934;, - -5.857714;-1.105927; 1.063164;, - -5.939009;-1.103001; 0.823872;, - -5.876322;-0.539366; 1.064934;, - -5.876322;-0.539366; 1.064934;, - -5.795027;-0.542293; 1.304227;, - -5.857714;-1.105927; 1.063164;, - -5.795027;-0.542293; 1.304227;, - -5.876322;-0.539366; 1.064934;, - -5.813634; 0.024268; 1.305997;, - -5.776419;-1.108854; 1.302456;, - -5.857714;-1.105927; 1.063164;, - -5.795027;-0.542293; 1.304227;, - -5.905905;-1.398924; 0.827708;, - -5.939009;-1.103001; 0.823872;, - -5.857714;-1.105927; 1.063164;, - -5.857714;-1.105927; 1.063164;, - -5.824610;-1.401850; 1.067000;, - -5.905905;-1.398924; 0.827708;, - -5.824610;-1.401850; 1.067000;, - -5.857714;-1.105927; 1.063164;, - -5.776419;-1.108854; 1.302456;, - -5.872801;-1.694846; 0.831544;, - -5.905905;-1.398924; 0.827708;, - -5.824610;-1.401850; 1.067000;, - -5.791782;-1.694819; 1.071193;, - -5.872801;-1.694846; 0.831544;, - -5.824610;-1.401850; 1.067000;, - -5.824610;-1.401850; 1.067000;, - -5.743591;-1.401823; 1.306649;, - -5.791782;-1.694819; 1.071193;, - -5.743591;-1.401823; 1.306649;, - -5.824610;-1.401850; 1.067000;, - -5.776419;-1.108854; 1.302456;, - -5.710763;-1.694792; 1.310843;, - -5.791782;-1.694819; 1.071193;, - -5.743591;-1.401823; 1.306649;, - -5.952973; 2.228666; 0.413739;, - -6.055502; 2.228666; 0.749414;, - -6.029007; 1.689902; 0.413739;, - -6.029007; 1.689902; 0.413739;, - -5.926479; 1.689902; 0.078064;, - -5.952973; 2.228666; 0.413739;, - -5.926479; 1.689902; 0.078064;, - -6.029007; 1.689902; 0.413739;, - -6.002513; 1.151137; 0.078064;, - -5.850445; 2.228666; 0.078064;, - -5.952973; 2.228666; 0.413739;, - -5.926479; 1.689902; 0.078064;, - -6.029007; 1.689902; 0.413739;, - -6.055502; 2.228666; 0.749414;, - -6.141520; 1.689902; 0.743477;, - -6.141520; 1.689902; 0.743477;, - -6.115026; 1.151137; 0.407802;, - -6.029007; 1.689902; 0.413739;, - -6.115026; 1.151137; 0.407802;, - -6.141520; 1.689902; 0.743477;, - -6.227538; 1.151137; 0.737539;, - -6.002513; 1.151137; 0.078064;, - -6.029007; 1.689902; 0.413739;, - -6.115026; 1.151137; 0.407802;, - -6.023954; 2.229285; 0.788446;, - -5.992406; 2.229904; 0.827478;, - -6.075352; 1.690521; 0.826315;, - -6.075352; 1.690521; 0.826315;, - -6.106900; 1.689902; 0.787283;, - -6.023954; 2.229285; 0.788446;, - -6.106900; 1.689902; 0.787283;, - -6.075352; 1.690521; 0.826315;, - -6.158298; 1.151137; 0.825151;, - -6.055502; 2.228666; 0.749414;, - -6.023954; 2.229285; 0.788446;, - -6.106900; 1.689902; 0.787283;, - -6.141520; 1.689902; 0.743477;, - -6.055502; 2.228666; 0.749414;, - -6.106900; 1.689902; 0.787283;, - -6.106900; 1.689902; 0.787283;, - -6.192918; 1.151137; 0.781345;, - -6.141520; 1.689902; 0.743477;, - -6.192918; 1.151137; 0.781345;, - -6.106900; 1.689902; 0.787283;, - -6.158298; 1.151137; 0.825151;, - -6.227538; 1.151137; 0.737539;, - -6.141520; 1.689902; 0.743477;, - -6.192918; 1.151137; 0.781345;, - 4.119336; 1.656488; 2.288429;, - 4.128619; 2.161840; 2.288257;, - 4.766576; 2.153736; 2.257204;, - 4.766576; 2.153736; 2.257204;, - 4.757294; 1.648385; 2.257377;, - 4.119336; 1.656488; 2.288429;, - 4.757294; 1.648385; 2.257377;, - 4.766576; 2.153736; 2.257204;, - 5.404533; 2.145632; 2.226151;, - 4.110054; 1.151137; 2.288602;, - 4.119336; 1.656488; 2.288429;, - 4.757294; 1.648385; 2.257377;, - 4.816509; 1.151137; 2.257377;, - 4.110054; 1.151137; 2.288602;, - 4.757294; 1.648385; 2.257377;, - 4.757294; 1.648385; 2.257377;, - 5.463749; 1.648385; 2.226151;, - 4.816509; 1.151137; 2.257377;, - 5.463749; 1.648385; 2.226151;, - 4.757294; 1.648385; 2.257377;, - 5.404533; 2.145632; 2.226151;, - 5.522965; 1.151137; 2.226151;, - 4.816509; 1.151137; 2.257377;, - 5.463749; 1.648385; 2.226151;, - 5.910092; 1.646467; 2.194925;, - 5.808521; 2.141797; 2.194925;, - 5.868370; 2.156589; 2.124668;, - 5.868370; 2.156589; 2.124668;, - 5.969941; 1.661258; 2.124668;, - 5.910092; 1.646467; 2.194925;, - 5.969941; 1.661258; 2.124668;, - 5.868370; 2.156589; 2.124668;, - 5.928220; 2.171380; 2.054410;, - 6.011663; 1.151137; 2.194925;, - 5.910092; 1.646467; 2.194925;, - 5.969941; 1.661258; 2.124668;, - 6.084062; 1.151137; 2.124668;, - 6.011663; 1.151137; 2.194925;, - 5.969941; 1.661258; 2.124668;, - 5.969941; 1.661258; 2.124668;, - 6.042340; 1.661258; 2.054410;, - 6.084062; 1.151137; 2.124668;, - 6.042340; 1.661258; 2.054410;, - 5.969941; 1.661258; 2.124668;, - 5.928220; 2.171380; 2.054410;, - 6.156461; 1.151137; 2.054410;, - 6.084062; 1.151137; 2.124668;, - 6.042340; 1.661258; 2.054410;, - 5.890813; 2.197143; 1.870296;, - 5.853407; 2.222906; 1.686183;, - 5.959684; 1.687021; 1.686183;, - 5.959684; 1.687021; 1.686183;, - 5.997091; 1.661258; 1.870296;, - 5.890813; 2.197143; 1.870296;, - 5.997091; 1.661258; 1.870296;, - 5.959684; 1.687021; 1.686183;, - 6.065962; 1.151137; 1.686183;, - 5.928220; 2.171380; 2.054410;, - 5.890813; 2.197143; 1.870296;, - 5.997091; 1.661258; 1.870296;, - 6.042340; 1.661258; 2.054410;, - 5.928220; 2.171380; 2.054410;, - 5.997091; 1.661258; 1.870296;, - 5.997091; 1.661258; 1.870296;, - 6.111211; 1.151137; 1.870296;, - 6.042340; 1.661258; 2.054410;, - 6.111211; 1.151137; 1.870296;, - 5.997091; 1.661258; 1.870296;, - 6.065962; 1.151137; 1.686183;, - 6.156461; 1.151137; 2.054410;, - 6.042340; 1.661258; 2.054410;, - 6.111211; 1.151137; 1.870296;, - 6.058873; 1.665454; 0.431297;, - 5.943184; 2.179772; 0.431297;, - 6.013623; 1.665454; 0.408089;, - 6.013623; 1.665454; 0.408089;, - 6.129313; 1.151137; 0.408089;, - 6.058873; 1.665454; 0.431297;, - 6.129313; 1.151137; 0.408089;, - 6.013623; 1.665454; 0.408089;, - 6.084063; 1.151137; 0.384881;, - 6.174562; 1.151137; 0.431297;, - 6.058873; 1.665454; 0.431297;, - 6.129313; 1.151137; 0.408089;, - 6.013623; 1.665454; 0.408089;, - 5.943184; 2.179772; 0.431297;, - 5.905778; 2.180863; 0.408089;, - 5.905778; 2.180863; 0.408089;, - 5.976217; 1.666545; 0.384881;, - 6.013623; 1.665454; 0.408089;, - 5.976217; 1.666545; 0.384881;, - 5.905778; 2.180863; 0.408089;, - 5.868372; 2.181954; 0.384881;, - 6.084063; 1.151137; 0.384881;, - 6.013623; 1.665454; 0.408089;, - 5.976217; 1.666545; 0.384881;, - 5.673859; 2.187629; 0.359095;, - 5.479345; 2.193305; 0.333308;, - 5.546405; 1.672221; 0.333308;, - 5.546405; 1.672221; 0.333308;, - 5.740918; 1.666545; 0.359095;, - 5.673859; 2.187629; 0.359095;, - 5.740918; 1.666545; 0.359095;, - 5.546405; 1.672221; 0.333308;, - 5.613465; 1.151137; 0.333308;, - 5.868372; 2.181954; 0.384881;, - 5.673859; 2.187629; 0.359095;, - 5.740918; 1.666545; 0.359095;, - 5.976217; 1.666545; 0.384881;, - 5.868372; 2.181954; 0.384881;, - 5.740918; 1.666545; 0.359095;, - 5.740918; 1.666545; 0.359095;, - 5.848764; 1.151137; 0.359095;, - 5.976217; 1.666545; 0.384881;, - 5.848764; 1.151137; 0.359095;, - 5.740918; 1.666545; 0.359095;, - 5.613465; 1.151137; 0.333308;, - 6.084063; 1.151137; 0.384881;, - 5.976217; 1.666545; 0.384881;, - 5.848764; 1.151137; 0.359095;, - -2.587394; 1.689902;-0.023004;, - -2.587394; 2.228666;-0.023004;, - -2.632677; 1.689902; 0.003551;, - -2.632677; 1.689902; 0.003551;, - -2.632677; 1.151137; 0.003551;, - -2.587394; 1.689902;-0.023004;, - -2.632677; 1.151137; 0.003551;, - -2.632677; 1.689902; 0.003551;, - -2.677959; 1.151137; 0.030106;, - -2.587394; 1.151137;-0.023004;, - -2.587394; 1.689902;-0.023004;, - -2.632677; 1.151137; 0.003551;, - -2.632677; 1.689902; 0.003551;, - -2.587394; 2.228666;-0.023004;, - -2.632677; 2.228666; 0.003551;, - -2.632677; 2.228666; 0.003551;, - -2.677959; 1.689902; 0.030106;, - -2.632677; 1.689902; 0.003551;, - -2.677959; 1.689902; 0.030106;, - -2.632677; 2.228666; 0.003551;, - -2.677959; 2.228666; 0.030106;, - -2.677959; 1.151137; 0.030106;, - -2.632677; 1.689902; 0.003551;, - -2.677959; 1.689902; 0.030106;, - -2.677959; 1.689902; 0.030106;, - -2.677959; 2.228666; 0.030106;, - -2.687015; 1.689902; 0.375315;, - -2.687015; 1.689902; 0.375315;, - -2.687015; 1.151137; 0.375315;, - -2.677959; 1.689902; 0.030106;, - -2.687015; 1.151137; 0.375315;, - -2.687015; 1.689902; 0.375315;, - -2.696071; 1.151137; 0.720523;, - -2.677959; 1.151137; 0.030106;, - -2.677959; 1.689902; 0.030106;, - -2.687015; 1.151137; 0.375315;, - -2.687015; 1.689902; 0.375315;, - -2.677959; 2.228666; 0.030106;, - -2.687015; 2.241309; 0.375315;, - -2.687015; 2.241309; 0.375315;, - -2.696071; 1.702544; 0.720523;, - -2.687015; 1.689902; 0.375315;, - -2.696071; 1.702544; 0.720523;, - -2.687015; 2.241309; 0.375315;, - -2.696071; 2.253952; 0.720523;, - -2.696071; 1.151137; 0.720523;, - -2.687015; 1.689902; 0.375315;, - -2.696071; 1.702544; 0.720523;, - -2.795691; 1.151137; 0.959513;, - -2.696071; 1.151137; 0.720523;, - -2.696071; 1.702544; 0.720523;, - -2.696071; 1.702544; 0.720523;, - -2.795691; 1.702544; 0.959513;, - -2.795691; 1.151137; 0.959513;, - -2.795691; 1.702544; 0.959513;, - -2.696071; 1.702544; 0.720523;, - -2.696071; 2.253952; 0.720523;, - -2.895311; 1.151137; 1.198504;, - -2.795691; 1.151137; 0.959513;, - -2.795691; 1.702544; 0.959513;, - -2.895311; 1.711555; 1.198504;, - -2.895311; 1.151137; 1.198504;, - -2.795691; 1.702544; 0.959513;, - -2.795691; 1.702544; 0.959513;, - -2.795691; 2.262962; 0.959513;, - -2.895311; 1.711555; 1.198504;, - -2.795691; 2.262962; 0.959513;, - -2.795691; 1.702544; 0.959513;, - -2.696071; 2.253952; 0.720523;, - -2.895311; 2.271972; 1.198504;, - -2.895311; 1.711555; 1.198504;, - -2.795691; 2.262962; 0.959513;, - -3.402469; 1.711781; 1.481753;, - -3.402469; 2.272424; 1.481753;, - -3.764725; 2.272369; 1.490604;, - -3.764725; 2.272369; 1.490604;, - -3.764725; 1.711725; 1.490604;, - -3.402469; 1.711781; 1.481753;, - -3.764725; 1.711725; 1.490604;, - -3.764725; 2.272369; 1.490604;, - -4.126981; 2.272314; 1.499455;, - -3.402469; 1.151137; 1.481753;, - -3.402469; 1.711781; 1.481753;, - -3.764725; 1.711725; 1.490604;, - -3.764725; 1.151137; 1.490605;, - -3.402469; 1.151137; 1.481753;, - -3.764725; 1.711725; 1.490604;, - -3.764725; 1.711725; 1.490604;, - -4.126981; 1.711725; 1.499455;, - -3.764725; 1.151137; 1.490605;, - -4.126981; 1.711725; 1.499455;, - -3.764725; 1.711725; 1.490604;, - -4.126981; 2.272314; 1.499455;, - -4.126981; 1.151137; 1.499456;, - -3.764725; 1.151137; 1.490605;, - -4.126981; 1.711725; 1.499455;, - -4.126981; 1.711725; 1.499455;, - -4.126981; 2.272314; 1.499455;, - -4.377715; 2.268070; 1.366683;, - -4.377715; 2.268070; 1.366683;, - -4.377715; 1.707481; 1.366683;, - -4.126981; 1.711725; 1.499455;, - -4.377715; 1.707481; 1.366683;, - -4.377715; 2.268070; 1.366683;, - -4.628449; 2.263825; 1.233910;, - -4.126981; 1.151137; 1.499456;, - -4.126981; 1.711725; 1.499455;, - -4.377715; 1.707481; 1.366683;, - -4.394250; 1.151137; 1.366683;, - -4.126981; 1.151137; 1.499456;, - -4.377715; 1.707481; 1.366683;, - -4.377715; 1.707481; 1.366683;, - -4.644984; 1.707481; 1.233911;, - -4.394250; 1.151137; 1.366683;, - -4.644984; 1.707481; 1.233911;, - -4.377715; 1.707481; 1.366683;, - -4.628449; 2.263825; 1.233910;, - -4.661519; 1.151137; 1.233911;, - -4.394250; 1.151137; 1.366683;, - -4.644984; 1.707481; 1.233911;, - -4.644984; 1.707481; 1.233911;, - -4.628449; 2.263825; 1.233910;, - -4.750654; 2.255230; 0.986068;, - -4.750654; 2.255230; 0.986068;, - -4.767189; 1.698886; 0.986068;, - -4.644984; 1.707481; 1.233911;, - -4.767189; 1.698886; 0.986068;, - -4.750654; 2.255230; 0.986068;, - -4.872859; 2.246635; 0.738226;, - -4.661519; 1.151137; 1.233911;, - -4.644984; 1.707481; 1.233911;, - -4.767189; 1.698886; 0.986068;, - -4.795624; 1.151137; 0.986068;, - -4.661519; 1.151137; 1.233911;, - -4.767189; 1.698886; 0.986068;, - -4.767189; 1.698886; 0.986068;, - -4.901294; 1.698886; 0.738226;, - -4.795624; 1.151137; 0.986068;, - -4.901294; 1.698886; 0.738226;, - -4.767189; 1.698886; 0.986068;, - -4.872859; 2.246635; 0.738226;, - -4.929729; 1.151137; 0.738226;, - -4.795624; 1.151137; 0.986068;, - -4.901294; 1.698886; 0.738226;, - -4.901294; 1.698886; 0.738226;, - -4.872859; 2.246635; 0.738226;, - -4.891660; 2.237650; 0.419572;, - -4.891660; 2.237650; 0.419572;, - -4.920094; 1.689902; 0.419572;, - -4.901294; 1.698886; 0.738226;, - -4.920094; 1.689902; 0.419572;, - -4.891660; 2.237650; 0.419572;, - -4.910460; 2.228666; 0.100918;, - -4.929729; 1.151137; 0.738226;, - -4.901294; 1.698886; 0.738226;, - -4.920094; 1.689902; 0.419572;, - -4.950360; 1.151137; 0.419572;, - -4.929729; 1.151137; 0.738226;, - -4.920094; 1.689902; 0.419572;, - -4.920094; 1.689902; 0.419572;, - -4.940725; 1.689902; 0.100918;, - -4.950360; 1.151137; 0.419572;, - -4.940725; 1.689902; 0.100918;, - -4.920094; 1.689902; 0.419572;, - -4.910460; 2.228666; 0.100918;, - -4.970991; 1.151137; 0.100918;, - -4.950360; 1.151137; 0.419572;, - -4.940725; 1.689902; 0.100918;, - 2.964270; 2.272359; 1.332190;, - 2.722598; 2.272084; 1.216504;, - 2.807667; 1.711611; 1.218213;, - 2.807667; 1.711611; 1.218213;, - 3.049338; 1.711885; 1.333899;, - 2.964270; 2.272359; 1.332190;, - 3.049338; 1.711885; 1.333899;, - 2.807667; 1.711611; 1.218213;, - 2.892736; 1.151137; 1.219922;, - 3.205941; 2.272634; 1.447875;, - 2.964270; 2.272359; 1.332190;, - 3.049338; 1.711885; 1.333899;, - 3.245165; 1.711885; 1.447875;, - 3.205941; 2.272634; 1.447875;, - 3.049338; 1.711885; 1.333899;, - 3.049338; 1.711885; 1.333899;, - 3.088563; 1.151137; 1.333899;, - 3.245165; 1.711885; 1.447875;, - 3.088563; 1.151137; 1.333899;, - 3.049338; 1.711885; 1.333899;, - 2.892736; 1.151137; 1.219922;, - 3.284390; 1.151137; 1.447875;, - 3.245165; 1.711885; 1.447875;, - 3.088563; 1.151137; 1.333899;, - 3.574504; 1.151137; 1.447706;, - 3.864618; 1.151137; 1.447538;, - 3.892112; 1.711886; 1.447538;, - 3.892112; 1.711886; 1.447538;, - 3.601998; 1.711886; 1.447706;, - 3.574504; 1.151137; 1.447706;, - 3.601998; 1.711886; 1.447706;, - 3.892112; 1.711886; 1.447538;, - 3.919606; 2.272636; 1.447538;, - 3.284390; 1.151137; 1.447875;, - 3.574504; 1.151137; 1.447706;, - 3.601998; 1.711886; 1.447706;, - 3.245165; 1.711885; 1.447875;, - 3.284390; 1.151137; 1.447875;, - 3.601998; 1.711886; 1.447706;, - 3.601998; 1.711886; 1.447706;, - 3.562773; 2.272635; 1.447706;, - 3.245165; 1.711885; 1.447875;, - 3.562773; 2.272635; 1.447706;, - 3.601998; 1.711886; 1.447706;, - 3.919606; 2.272636; 1.447538;, - 3.205941; 2.272634; 1.447875;, - 3.245165; 1.711885; 1.447875;, - 3.562773; 2.272635; 1.447706;, - 4.094004; 1.151137; 1.316247;, - 4.323389; 1.151137; 1.184955;, - 4.121498; 1.711886; 1.316247;, - 4.121498; 1.711886; 1.316247;, - 3.892112; 1.711886; 1.447538;, - 4.094004; 1.151137; 1.316247;, - 3.892112; 1.711886; 1.447538;, - 4.121498; 1.711886; 1.316247;, - 3.919606; 2.272636; 1.447538;, - 3.864618; 1.151137; 1.447538;, - 4.094004; 1.151137; 1.316247;, - 3.892112; 1.711886; 1.447538;, - 4.121498; 1.711886; 1.316247;, - 4.323389; 1.151137; 1.184955;, - 4.368138; 1.709297; 1.184955;, - 4.368138; 1.709297; 1.184955;, - 4.166247; 2.270047; 1.316247;, - 4.121498; 1.711886; 1.316247;, - 4.166247; 2.270047; 1.316247;, - 4.368138; 1.709297; 1.184955;, - 4.412888; 2.267458; 1.184955;, - 3.919606; 2.272636; 1.447538;, - 4.121498; 1.711886; 1.316247;, - 4.166247; 2.270047; 1.316247;, - 4.437180; 1.151137; 0.948933;, - 4.550971; 1.151137; 0.712912;, - 4.481930; 1.709297; 0.948933;, - 4.481930; 1.709297; 0.948933;, - 4.368138; 1.709297; 1.184955;, - 4.437180; 1.151137; 0.948933;, - 4.368138; 1.709297; 1.184955;, - 4.481930; 1.709297; 0.948933;, - 4.412888; 2.267458; 1.184955;, - 4.323389; 1.151137; 1.184955;, - 4.437180; 1.151137; 0.948933;, - 4.368138; 1.709297; 1.184955;, - 4.481930; 1.709297; 0.948933;, - 4.550971; 1.151137; 0.712912;, - 4.575996; 1.697222; 0.712912;, - 4.575996; 1.697222; 0.712912;, - 4.506955; 2.255383; 0.948933;, - 4.481930; 1.709297; 0.948933;, - 4.506955; 2.255383; 0.948933;, - 4.575996; 1.697222; 0.712912;, - 4.601022; 2.243308; 0.712912;, - 4.412888; 2.267458; 1.184955;, - 4.481930; 1.709297; 0.948933;, - 4.506955; 2.255383; 0.948933;, - 4.561316; 1.151137; 0.523802;, - 4.571661; 1.151137; 0.334691;, - 4.594893; 1.684784; 0.334691;, - 4.594893; 1.684784; 0.334691;, - 4.584548; 1.684784; 0.523802;, - 4.561316; 1.151137; 0.523802;, - 4.584548; 1.684784; 0.523802;, - 4.594893; 1.684784; 0.334691;, - 4.618126; 2.218432; 0.334691;, - 4.550971; 1.151137; 0.712912;, - 4.561316; 1.151137; 0.523802;, - 4.584548; 1.684784; 0.523802;, - 4.575996; 1.697222; 0.712912;, - 4.550971; 1.151137; 0.712912;, - 4.584548; 1.684784; 0.523802;, - 4.584548; 1.684784; 0.523802;, - 4.609574; 2.230870; 0.523802;, - 4.575996; 1.697222; 0.712912;, - 4.609574; 2.230870; 0.523802;, - 4.584548; 1.684784; 0.523802;, - 4.618126; 2.218432; 0.334691;, - 4.601022; 2.243308; 0.712912;, - 4.575996; 1.697222; 0.712912;, - 4.609574; 2.230870; 0.523802;, - 4.623384; 1.151137; 0.326028;, - 4.675107; 1.151137; 0.317365;, - 4.646616; 1.684784; 0.326028;, - 4.646616; 1.684784; 0.326028;, - 4.594893; 1.684784; 0.334691;, - 4.623384; 1.151137; 0.326028;, - 4.594893; 1.684784; 0.334691;, - 4.646616; 1.684784; 0.326028;, - 4.618126; 2.218432; 0.334691;, - 4.571661; 1.151137; 0.334691;, - 4.623384; 1.151137; 0.326028;, - 4.594893; 1.684784; 0.334691;, - 4.646616; 1.684784; 0.326028;, - 4.675107; 1.151137; 0.317365;, - 4.689374; 1.683537; 0.317365;, - 4.689374; 1.683537; 0.317365;, - 4.660883; 2.217185; 0.326028;, - 4.646616; 1.684784; 0.326028;, - 4.660883; 2.217185; 0.326028;, - 4.689374; 1.683537; 0.317365;, - 4.703641; 2.215937; 0.317365;, - 4.618126; 2.218432; 0.334691;, - 4.646616; 1.684784; 0.326028;, - 4.660883; 2.217185; 0.326028;, - 2.557970; 1.691390; 0.013590;, - 2.458246; 2.231642; 0.013590;, - 2.418880; 1.691390;-0.012634;, - 2.418880; 1.691390;-0.012634;, - 2.518603; 1.151137;-0.012634;, - 2.557970; 1.691390; 0.013590;, - 2.518603; 1.151137;-0.012634;, - 2.418880; 1.691390;-0.012634;, - 2.379514; 1.151137;-0.038859;, - 2.657693; 1.151137; 0.013590;, - 2.557970; 1.691390; 0.013590;, - 2.518603; 1.151137;-0.012634;, - 2.418880; 1.691390;-0.012634;, - 2.458246; 2.231642; 0.013590;, - 2.334229; 2.237697;-0.012635;, - 2.334229; 2.237697;-0.012635;, - 2.294863; 1.697444;-0.038860;, - 2.418880; 1.691390;-0.012634;, - 2.294863; 1.697444;-0.038860;, - 2.334229; 2.237697;-0.012635;, - 2.210212; 2.243752;-0.038860;, - 2.379514; 1.151137;-0.038859;, - 2.418880; 1.691390;-0.012634;, - 2.294863; 1.697444;-0.038860;, - 5.091493; 2.204621; 0.325337;, - 4.703641; 2.215937; 0.317365;, - 4.689374; 1.683537; 0.317365;, - 4.689374; 1.683537; 0.317365;, - 5.077226; 1.672221; 0.325337;, - 5.091493; 2.204621; 0.325337;, - 5.077226; 1.672221; 0.325337;, - 4.689374; 1.683537; 0.317365;, - 4.675107; 1.151137; 0.317365;, - 5.479345; 2.193305; 0.333308;, - 5.091493; 2.204621; 0.325337;, - 5.077226; 1.672221; 0.325337;, - 5.546405; 1.672221; 0.333308;, - 5.479345; 2.193305; 0.333308;, - 5.077226; 1.672221; 0.325337;, - 5.077226; 1.672221; 0.325337;, - 5.144286; 1.151137; 0.325337;, - 5.546405; 1.672221; 0.333308;, - 5.144286; 1.151137; 0.325337;, - 5.077226; 1.672221; 0.325337;, - 4.675107; 1.151137; 0.317365;, - 5.613465; 1.151137; 0.333308;, - 5.546405; 1.672221; 0.333308;, - 5.144286; 1.151137; 0.325337;, - -6.115026; 1.151137; 0.407802;, - -6.227538; 1.151137; 0.737539;, - -6.140133; 0.587718; 0.407802;, - -6.140133; 0.587718; 0.407802;, - -6.027620; 0.587718; 0.078064;, - -6.115026; 1.151137; 0.407802;, - -6.027620; 0.587718; 0.078064;, - -6.140133; 0.587718; 0.407802;, - -6.052728; 0.024299; 0.078064;, - -6.002513; 1.151137; 0.078064;, - -6.115026; 1.151137; 0.407802;, - -6.027620; 0.587718; 0.078064;, - -6.140133; 0.587718; 0.407802;, - -6.227538; 1.151137; 0.737539;, - -6.255942; 0.587718; 0.743816;, - -6.255942; 0.587718; 0.743816;, - -6.168537; 0.024299; 0.414079;, - -6.140133; 0.587718; 0.407802;, - -6.168537; 0.024299; 0.414079;, - -6.255942; 0.587718; 0.743816;, - -6.284346; 0.024299; 0.750093;, - -6.052728; 0.024299; 0.078064;, - -6.140133; 0.587718; 0.407802;, - -6.168537; 0.024299; 0.414079;, - -6.192918; 1.151137; 0.781345;, - -6.158298; 1.151137; 0.825151;, - -6.185688; 0.587718; 0.826654;, - -6.185688; 0.587718; 0.826654;, - -6.220307; 0.587718; 0.782848;, - -6.192918; 1.151137; 0.781345;, - -6.220307; 0.587718; 0.782848;, - -6.185688; 0.587718; 0.826654;, - -6.213077; 0.024299; 0.828157;, - -6.227538; 1.151137; 0.737539;, - -6.192918; 1.151137; 0.781345;, - -6.220307; 0.587718; 0.782848;, - -6.255942; 0.587718; 0.743816;, - -6.227538; 1.151137; 0.737539;, - -6.220307; 0.587718; 0.782848;, - -6.220307; 0.587718; 0.782848;, - -6.248712; 0.024299; 0.789125;, - -6.255942; 0.587718; 0.743816;, - -6.248712; 0.024299; 0.789125;, - -6.220307; 0.587718; 0.782848;, - -6.213077; 0.024299; 0.828157;, - -6.284346; 0.024299; 0.750093;, - -6.255942; 0.587718; 0.743816;, - -6.248712; 0.024299; 0.789125;, - 4.104221; 0.587718; 2.288602;, - 4.110054; 1.151137; 2.288602;, - 4.816509; 1.151137; 2.257377;, - 4.816509; 1.151137; 2.257377;, - 4.810677; 0.587718; 2.257377;, - 4.104221; 0.587718; 2.288602;, - 4.810677; 0.587718; 2.257377;, - 4.816509; 1.151137; 2.257377;, - 5.522965; 1.151137; 2.226151;, - 4.098388; 0.024299; 2.288602;, - 4.104221; 0.587718; 2.288602;, - 4.810677; 0.587718; 2.257377;, - 4.827668; 0.024299; 2.257377;, - 4.098388; 0.024299; 2.288602;, - 4.810677; 0.587718; 2.257377;, - 4.810677; 0.587718; 2.257377;, - 5.539957; 0.587718; 2.226151;, - 4.827668; 0.024299; 2.257377;, - 5.539957; 0.587718; 2.226151;, - 4.810677; 0.587718; 2.257377;, - 5.522965; 1.151137; 2.226151;, - 5.556948; 0.024299; 2.226151;, - 4.827668; 0.024299; 2.257377;, - 5.539957; 0.587718; 2.226151;, - 6.037214; 0.587718; 2.194925;, - 6.011663; 1.151137; 2.194925;, - 6.084062; 1.151137; 2.124668;, - 6.084062; 1.151137; 2.124668;, - 6.109613; 0.587718; 2.124668;, - 6.037214; 0.587718; 2.194925;, - 6.109613; 0.587718; 2.124668;, - 6.084062; 1.151137; 2.124668;, - 6.156461; 1.151137; 2.054410;, - 6.062765; 0.024299; 2.194925;, - 6.037214; 0.587718; 2.194925;, - 6.109613; 0.587718; 2.124668;, - 6.137700; 0.024299; 2.124668;, - 6.062765; 0.024299; 2.194925;, - 6.109613; 0.587718; 2.124668;, - 6.109613; 0.587718; 2.124668;, - 6.184548; 0.587718; 2.054410;, - 6.137700; 0.024299; 2.124668;, - 6.184548; 0.587718; 2.054410;, - 6.109613; 0.587718; 2.124668;, - 6.156461; 1.151137; 2.054410;, - 6.212635; 0.024299; 2.054410;, - 6.137700; 0.024299; 2.124668;, - 6.184548; 0.587718; 2.054410;, - 6.111211; 1.151137; 1.870296;, - 6.065962; 1.151137; 1.686183;, - 6.092464; 0.587718; 1.686183;, - 6.092464; 0.587718; 1.686183;, - 6.137714; 0.587718; 1.870296;, - 6.111211; 1.151137; 1.870296;, - 6.137714; 0.587718; 1.870296;, - 6.092464; 0.587718; 1.686183;, - 6.118967; 0.024299; 1.686183;, - 6.156461; 1.151137; 2.054410;, - 6.111211; 1.151137; 1.870296;, - 6.137714; 0.587718; 1.870296;, - 6.184548; 0.587718; 2.054410;, - 6.156461; 1.151137; 2.054410;, - 6.137714; 0.587718; 1.870296;, - 6.137714; 0.587718; 1.870296;, - 6.165801; 0.024299; 1.870296;, - 6.184548; 0.587718; 2.054410;, - 6.165801; 0.024299; 1.870296;, - 6.137714; 0.587718; 1.870296;, - 6.118967; 0.024299; 1.686183;, - 6.212635; 0.024299; 2.054410;, - 6.184548; 0.587718; 2.054410;, - 6.165801; 0.024299; 1.870296;, - 6.129313; 1.151137; 0.408089;, - 6.084063; 1.151137; 0.384881;, - 6.110882; 0.587718; 0.384881;, - 6.110882; 0.587718; 0.384881;, - 6.156132; 0.587718; 0.408089;, - 6.129313; 1.151137; 0.408089;, - 6.156132; 0.587718; 0.408089;, - 6.110882; 0.587718; 0.384881;, - 6.137701; 0.024299; 0.384881;, - 6.174562; 1.151137; 0.431297;, - 6.129313; 1.151137; 0.408089;, - 6.156132; 0.587718; 0.408089;, - 6.202967; 0.587718; 0.431297;, - 6.174562; 1.151137; 0.431297;, - 6.156132; 0.587718; 0.408089;, - 6.156132; 0.587718; 0.408089;, - 6.184536; 0.024299; 0.408089;, - 6.202967; 0.587718; 0.431297;, - 6.184536; 0.024299; 0.408089;, - 6.156132; 0.587718; 0.408089;, - 6.137701; 0.024299; 0.384881;, - 6.231371; 0.024299; 0.431297;, - 6.202967; 0.587718; 0.431297;, - 6.184536; 0.024299; 0.408089;, - 6.110882; 0.587718; 0.384881;, - 6.084063; 1.151137; 0.384881;, - 5.867341; 0.587718; 0.359095;, - 5.867341; 0.587718; 0.359095;, - 5.894159; 0.024299; 0.359095;, - 6.110882; 0.587718; 0.384881;, - 5.894159; 0.024299; 0.359095;, - 5.867341; 0.587718; 0.359095;, - 5.650618; 0.024299; 0.333308;, - 6.137701; 0.024299; 0.384881;, - 6.110882; 0.587718; 0.384881;, - 5.894159; 0.024299; 0.359095;, - 5.867341; 0.587718; 0.359095;, - 6.084063; 1.151137; 0.384881;, - 5.848764; 1.151137; 0.359095;, - 5.848764; 1.151137; 0.359095;, - 5.632041; 0.587718; 0.333308;, - 5.867341; 0.587718; 0.359095;, - 5.632041; 0.587718; 0.333308;, - 5.848764; 1.151137; 0.359095;, - 5.613465; 1.151137; 0.333308;, - 5.650618; 0.024299; 0.333308;, - 5.867341; 0.587718; 0.359095;, - 5.632041; 0.587718; 0.333308;, - -2.587394; 0.587718;-0.023004;, - -2.587394; 1.151137;-0.023004;, - -2.632677; 1.151137; 0.003551;, - -2.632677; 1.151137; 0.003551;, - -2.632677; 0.587718; 0.003551;, - -2.587394; 0.587718;-0.023004;, - -2.632677; 0.587718; 0.003551;, - -2.632677; 1.151137; 0.003551;, - -2.677959; 1.151137; 0.030106;, - -2.587395; 0.024299;-0.023004;, - -2.587394; 0.587718;-0.023004;, - -2.632677; 0.587718; 0.003551;, - -2.632677; 0.024299; 0.003551;, - -2.587395; 0.024299;-0.023004;, - -2.632677; 0.587718; 0.003551;, - -2.632677; 0.587718; 0.003551;, - -2.677959; 0.587718; 0.030106;, - -2.632677; 0.024299; 0.003551;, - -2.677959; 0.587718; 0.030106;, - -2.632677; 0.587718; 0.003551;, - -2.677959; 1.151137; 0.030106;, - -2.677959; 0.024299; 0.030106;, - -2.632677; 0.024299; 0.003551;, - -2.677959; 0.587718; 0.030106;, - -2.677959; 0.587718; 0.030106;, - -2.677959; 1.151137; 0.030106;, - -2.687015; 0.587718; 0.375315;, - -2.687015; 0.587718; 0.375315;, - -2.687015; 0.024299; 0.375315;, - -2.677959; 0.587718; 0.030106;, - -2.687015; 0.024299; 0.375315;, - -2.687015; 0.587718; 0.375315;, - -2.696071; 0.024299; 0.720523;, - -2.677959; 0.024299; 0.030106;, - -2.677959; 0.587718; 0.030106;, - -2.687015; 0.024299; 0.375315;, - -2.687015; 0.587718; 0.375315;, - -2.677959; 1.151137; 0.030106;, - -2.687015; 1.151137; 0.375315;, - -2.687015; 1.151137; 0.375315;, - -2.696071; 0.587718; 0.720523;, - -2.687015; 0.587718; 0.375315;, - -2.696071; 0.587718; 0.720523;, - -2.687015; 1.151137; 0.375315;, - -2.696071; 1.151137; 0.720523;, - -2.696071; 0.024299; 0.720523;, - -2.687015; 0.587718; 0.375315;, - -2.696071; 0.587718; 0.720523;, - -2.795691; 0.024299; 0.959513;, - -2.696071; 0.024299; 0.720523;, - -2.795691; 0.587718; 0.959513;, - -2.795691; 0.587718; 0.959513;, - -2.895311; 0.587718; 1.198504;, - -2.795691; 0.024299; 0.959513;, - -2.895311; 0.587718; 1.198504;, - -2.795691; 0.587718; 0.959513;, - -2.895311; 1.151137; 1.198504;, - -2.895311; 0.024299; 1.198504;, - -2.795691; 0.024299; 0.959513;, - -2.895311; 0.587718; 1.198504;, - -2.795691; 0.587718; 0.959513;, - -2.696071; 0.024299; 0.720523;, - -2.696071; 0.587718; 0.720523;, - -2.696071; 0.587718; 0.720523;, - -2.795691; 1.151137; 0.959513;, - -2.795691; 0.587718; 0.959513;, - -2.795691; 1.151137; 0.959513;, - -2.696071; 0.587718; 0.720523;, - -2.696071; 1.151137; 0.720523;, - -2.895311; 1.151137; 1.198504;, - -2.795691; 0.587718; 0.959513;, - -2.795691; 1.151137; 0.959513;, - -3.402469; 0.587718; 1.481753;, - -3.402469; 1.151137; 1.481753;, - -3.764725; 0.587718; 1.490605;, - -3.764725; 0.587718; 1.490605;, - -3.764725; 0.024299; 1.490605;, - -3.402469; 0.587718; 1.481753;, - -3.764725; 0.024299; 1.490605;, - -3.764725; 0.587718; 1.490605;, - -4.126981; 0.024299; 1.499456;, - -3.402469; 0.024299; 1.481753;, - -3.402469; 0.587718; 1.481753;, - -3.764725; 0.024299; 1.490605;, - -3.764725; 0.587718; 1.490605;, - -3.402469; 1.151137; 1.481753;, - -3.764725; 1.151137; 1.490605;, - -3.764725; 1.151137; 1.490605;, - -4.126981; 0.587718; 1.499456;, - -3.764725; 0.587718; 1.490605;, - -4.126981; 0.587718; 1.499456;, - -3.764725; 1.151137; 1.490605;, - -4.126981; 1.151137; 1.499456;, - -4.126981; 0.024299; 1.499456;, - -3.764725; 0.587718; 1.490605;, - -4.126981; 0.587718; 1.499456;, - -4.126981; 0.587718; 1.499456;, - -4.126981; 1.151137; 1.499456;, - -4.394250; 1.151137; 1.366683;, - -4.394250; 1.151137; 1.366683;, - -4.394250; 0.587718; 1.366683;, - -4.126981; 0.587718; 1.499456;, - -4.394250; 0.587718; 1.366683;, - -4.394250; 1.151137; 1.366683;, - -4.661519; 1.151137; 1.233911;, - -4.126981; 0.024299; 1.499456;, - -4.126981; 0.587718; 1.499456;, - -4.394250; 0.587718; 1.366683;, - -4.399710; 0.024299; 1.366683;, - -4.126981; 0.024299; 1.499456;, - -4.394250; 0.587718; 1.366683;, - -4.394250; 0.587718; 1.366683;, - -4.666979; 0.587718; 1.233911;, - -4.399710; 0.024299; 1.366683;, - -4.666979; 0.587718; 1.233911;, - -4.394250; 0.587718; 1.366683;, - -4.661519; 1.151137; 1.233911;, - -4.672439; 0.024299; 1.233911;, - -4.399710; 0.024299; 1.366683;, - -4.666979; 0.587718; 1.233911;, - -4.666979; 0.587718; 1.233911;, - -4.661519; 1.151137; 1.233911;, - -4.795624; 1.151137; 0.986068;, - -4.795624; 1.151137; 0.986068;, - -4.801084; 0.587718; 0.986068;, - -4.666979; 0.587718; 1.233911;, - -4.801084; 0.587718; 0.986068;, - -4.795624; 1.151137; 0.986068;, - -4.929729; 1.151137; 0.738226;, - -4.672439; 0.024299; 1.233911;, - -4.666979; 0.587718; 1.233911;, - -4.801084; 0.587718; 0.986068;, - -4.810473; 0.024299; 0.986068;, - -4.672439; 0.024299; 1.233911;, - -4.801084; 0.587718; 0.986068;, - -4.801084; 0.587718; 0.986068;, - -4.939118; 0.587718; 0.738226;, - -4.810473; 0.024299; 0.986068;, - -4.939118; 0.587718; 0.738226;, - -4.801084; 0.587718; 0.986068;, - -4.929729; 1.151137; 0.738226;, - -4.948508; 0.024299; 0.738226;, - -4.810473; 0.024299; 0.986068;, - -4.939118; 0.587718; 0.738226;, - -4.939118; 0.587718; 0.738226;, - -4.929729; 1.151137; 0.738226;, - -4.950360; 1.151137; 0.419572;, - -4.950360; 1.151137; 0.419572;, - -4.959749; 0.587718; 0.419572;, - -4.939118; 0.587718; 0.738226;, - -4.959749; 0.587718; 0.419572;, - -4.950360; 1.151137; 0.419572;, - -4.970991; 1.151137; 0.100918;, - -4.948508; 0.024299; 0.738226;, - -4.939118; 0.587718; 0.738226;, - -4.959749; 0.587718; 0.419572;, - -4.969744; 0.024299; 0.419572;, - -4.948508; 0.024299; 0.738226;, - -4.959749; 0.587718; 0.419572;, - -4.959749; 0.587718; 0.419572;, - -4.980985; 0.587718; 0.100918;, - -4.969744; 0.024299; 0.419572;, - -4.980985; 0.587718; 0.100918;, - -4.959749; 0.587718; 0.419572;, - -4.970991; 1.151137; 0.100918;, - -4.990979; 0.024299; 0.100918;, - -4.969744; 0.024299; 0.419572;, - -4.980985; 0.587718; 0.100918;, - 2.910707; 0.587718; 1.219922;, - 2.892736; 1.151137; 1.219922;, - 2.815670; 0.587718; 0.975158;, - 2.815670; 0.587718; 0.975158;, - 2.833642; 0.024299; 0.975158;, - 2.910707; 0.587718; 1.219922;, - 2.833642; 0.024299; 0.975158;, - 2.815670; 0.587718; 0.975158;, - 2.738605; 0.024299; 0.730395;, - 2.928679; 0.024299; 1.219922;, - 2.910707; 0.587718; 1.219922;, - 2.833642; 0.024299; 0.975158;, - 2.815670; 0.587718; 0.975158;, - 2.892736; 1.151137; 1.219922;, - 2.794695; 1.151137; 0.975158;, - 2.794695; 1.151137; 0.975158;, - 2.717630; 0.587718; 0.730395;, - 2.815670; 0.587718; 0.975158;, - 2.717630; 0.587718; 0.730395;, - 2.794695; 1.151137; 0.975158;, - 2.696655; 1.151137; 0.730395;, - 2.738605; 0.024299; 0.730395;, - 2.815670; 0.587718; 0.975158;, - 2.717630; 0.587718; 0.730395;, - 3.088563; 1.151137; 1.333899;, - 2.892736; 1.151137; 1.219922;, - 2.910707; 0.587718; 1.219922;, - 2.910707; 0.587718; 1.219922;, - 3.106534; 0.587718; 1.333899;, - 3.088563; 1.151137; 1.333899;, - 3.106534; 0.587718; 1.333899;, - 2.910707; 0.587718; 1.219922;, - 2.928679; 0.024299; 1.219922;, - 3.284390; 1.151137; 1.447875;, - 3.088563; 1.151137; 1.333899;, - 3.106534; 0.587718; 1.333899;, - 3.294535; 0.587718; 1.447875;, - 3.284390; 1.151137; 1.447875;, - 3.106534; 0.587718; 1.333899;, - 3.106534; 0.587718; 1.333899;, - 3.116680; 0.024299; 1.333899;, - 3.294535; 0.587718; 1.447875;, - 3.116680; 0.024299; 1.333899;, - 3.106534; 0.587718; 1.333899;, - 2.928679; 0.024299; 1.219922;, - 3.304680; 0.024299; 1.447875;, - 3.294535; 0.587718; 1.447875;, - 3.116680; 0.024299; 1.333899;, - 3.863168; 0.587718; 1.447538;, - 3.864618; 1.151137; 1.447538;, - 3.584649; 0.587718; 1.447706;, - 3.584649; 0.587718; 1.447706;, - 3.583199; 0.024299; 1.447706;, - 3.863168; 0.587718; 1.447538;, - 3.583199; 0.024299; 1.447706;, - 3.584649; 0.587718; 1.447706;, - 3.304680; 0.024299; 1.447875;, - 3.861717; 0.024299; 1.447538;, - 3.863168; 0.587718; 1.447538;, - 3.583199; 0.024299; 1.447706;, - 3.584649; 0.587718; 1.447706;, - 3.864618; 1.151137; 1.447538;, - 3.574504; 1.151137; 1.447706;, - 3.574504; 1.151137; 1.447706;, - 3.294535; 0.587718; 1.447875;, - 3.584649; 0.587718; 1.447706;, - 3.294535; 0.587718; 1.447875;, - 3.574504; 1.151137; 1.447706;, - 3.284390; 1.151137; 1.447875;, - 3.304680; 0.024299; 1.447875;, - 3.584649; 0.587718; 1.447706;, - 3.294535; 0.587718; 1.447875;, - 4.088535; 0.024299; 1.316247;, - 4.315353; 0.024299; 1.184955;, - 4.089985; 0.587718; 1.316247;, - 4.089985; 0.587718; 1.316247;, - 3.863168; 0.587718; 1.447538;, - 4.088535; 0.024299; 1.316247;, - 3.863168; 0.587718; 1.447538;, - 4.089985; 0.587718; 1.316247;, - 3.864618; 1.151137; 1.447538;, - 3.861717; 0.024299; 1.447538;, - 4.088535; 0.024299; 1.316247;, - 3.863168; 0.587718; 1.447538;, - 4.089985; 0.587718; 1.316247;, - 4.315353; 0.024299; 1.184955;, - 4.319371; 0.587718; 1.184955;, - 4.319371; 0.587718; 1.184955;, - 4.094004; 1.151137; 1.316247;, - 4.089985; 0.587718; 1.316247;, - 4.094004; 1.151137; 1.316247;, - 4.319371; 0.587718; 1.184955;, - 4.323389; 1.151137; 1.184955;, - 3.864618; 1.151137; 1.447538;, - 4.089985; 0.587718; 1.316247;, - 4.094004; 1.151137; 1.316247;, - 4.550939; 0.587718; 0.712912;, - 4.550971; 1.151137; 0.712912;, - 4.437180; 1.151137; 0.948933;, - 4.437180; 1.151137; 0.948933;, - 4.437148; 0.587718; 0.948933;, - 4.550939; 0.587718; 0.712912;, - 4.437148; 0.587718; 0.948933;, - 4.437180; 1.151137; 0.948933;, - 4.323389; 1.151137; 1.184955;, - 4.550907; 0.024299; 0.712912;, - 4.550939; 0.587718; 0.712912;, - 4.437148; 0.587718; 0.948933;, - 4.433130; 0.024299; 0.948933;, - 4.550907; 0.024299; 0.712912;, - 4.437148; 0.587718; 0.948933;, - 4.437148; 0.587718; 0.948933;, - 4.319371; 0.587718; 1.184955;, - 4.433130; 0.024299; 0.948933;, - 4.319371; 0.587718; 1.184955;, - 4.437148; 0.587718; 0.948933;, - 4.323389; 1.151137; 1.184955;, - 4.315353; 0.024299; 1.184955;, - 4.433130; 0.024299; 0.948933;, - 4.319371; 0.587718; 1.184955;, - 4.561615; 0.024299; 0.523802;, - 4.572322; 0.024299; 0.334691;, - 4.571991; 0.587718; 0.334691;, - 4.571991; 0.587718; 0.334691;, - 4.561284; 0.587718; 0.523802;, - 4.561615; 0.024299; 0.523802;, - 4.561284; 0.587718; 0.523802;, - 4.571991; 0.587718; 0.334691;, - 4.571661; 1.151137; 0.334691;, - 4.550907; 0.024299; 0.712912;, - 4.561615; 0.024299; 0.523802;, - 4.561284; 0.587718; 0.523802;, - 4.550939; 0.587718; 0.712912;, - 4.550907; 0.024299; 0.712912;, - 4.561284; 0.587718; 0.523802;, - 4.561284; 0.587718; 0.523802;, - 4.561316; 1.151137; 0.523802;, - 4.550939; 0.587718; 0.712912;, - 4.561316; 1.151137; 0.523802;, - 4.561284; 0.587718; 0.523802;, - 4.571661; 1.151137; 0.334691;, - 4.550971; 1.151137; 0.712912;, - 4.550939; 0.587718; 0.712912;, - 4.561316; 1.151137; 0.523802;, - 4.625857; 0.024299; 0.326028;, - 4.679392; 0.024299; 0.317365;, - 4.677249; 0.587718; 0.317365;, - 4.677249; 0.587718; 0.317365;, - 4.623714; 0.587718; 0.326028;, - 4.625857; 0.024299; 0.326028;, - 4.623714; 0.587718; 0.326028;, - 4.677249; 0.587718; 0.317365;, - 4.675107; 1.151137; 0.317365;, - 4.572322; 0.024299; 0.334691;, - 4.625857; 0.024299; 0.326028;, - 4.623714; 0.587718; 0.326028;, - 4.571991; 0.587718; 0.334691;, - 4.572322; 0.024299; 0.334691;, - 4.623714; 0.587718; 0.326028;, - 4.623714; 0.587718; 0.326028;, - 4.623384; 1.151137; 0.326028;, - 4.571991; 0.587718; 0.334691;, - 4.623384; 1.151137; 0.326028;, - 4.623714; 0.587718; 0.326028;, - 4.675107; 1.151137; 0.317365;, - 4.571661; 1.151137; 0.334691;, - 4.571991; 0.587718; 0.334691;, - 4.623384; 1.151137; 0.326028;, - 2.678233; 0.587718; 0.013590;, - 2.657693; 1.151137; 0.013590;, - 2.536039; 0.587718;-0.012634;, - 2.536039; 0.587718;-0.012634;, - 2.556579; 0.024299;-0.012634;, - 2.678233; 0.587718; 0.013590;, - 2.556579; 0.024299;-0.012634;, - 2.536039; 0.587718;-0.012634;, - 2.414385; 0.024299;-0.038859;, - 2.698773; 0.024299; 0.013590;, - 2.678233; 0.587718; 0.013590;, - 2.556579; 0.024299;-0.012634;, - 2.536039; 0.587718;-0.012634;, - 2.657693; 1.151137; 0.013590;, - 2.518603; 1.151137;-0.012634;, - 2.518603; 1.151137;-0.012634;, - 2.396950; 0.587718;-0.038859;, - 2.536039; 0.587718;-0.012634;, - 2.396950; 0.587718;-0.038859;, - 2.518603; 1.151137;-0.012634;, - 2.379514; 1.151137;-0.038859;, - 2.414385; 0.024299;-0.038859;, - 2.536039; 0.587718;-0.012634;, - 2.396950; 0.587718;-0.038859;, - 5.632041; 0.587718; 0.333308;, - 5.613465; 1.151137; 0.333308;, - 5.146428; 0.587718; 0.325337;, - 5.146428; 0.587718; 0.325337;, - 5.165005; 0.024299; 0.325337;, - 5.632041; 0.587718; 0.333308;, - 5.165005; 0.024299; 0.325337;, - 5.146428; 0.587718; 0.325337;, - 4.679392; 0.024299; 0.317365;, - 5.650618; 0.024299; 0.333308;, - 5.632041; 0.587718; 0.333308;, - 5.165005; 0.024299; 0.325337;, - 5.146428; 0.587718; 0.325337;, - 5.613465; 1.151137; 0.333308;, - 5.144286; 1.151137; 0.325337;, - 5.144286; 1.151137; 0.325337;, - 4.677249; 0.587718; 0.317365;, - 5.146428; 0.587718; 0.325337;, - 4.677249; 0.587718; 0.317365;, - 5.144286; 1.151137; 0.325337;, - 4.675107; 1.151137; 0.317365;, - 4.679392; 0.024299; 0.317365;, - 5.146428; 0.587718; 0.325337;, - 4.677249; 0.587718; 0.317365;, - -5.269664; 1.151137; 0.092211;, - -4.970991; 1.151137; 0.100918;, - -5.213905; 1.689902; 0.092264;, - -5.213905; 1.689902; 0.092264;, - -5.512578; 1.689902; 0.083558;, - -5.269664; 1.151137; 0.092211;, - -5.512578; 1.689902; 0.083558;, - -5.213905; 1.689902; 0.092264;, - -5.456819; 2.228666; 0.083610;, - -5.568336; 1.151137; 0.083505;, - -5.269664; 1.151137; 0.092211;, - -5.512578; 1.689902; 0.083558;, - -5.213905; 1.689902; 0.092264;, - -4.970991; 1.151137; 0.100918;, - -4.940725; 1.689902; 0.100918;, - -4.940725; 1.689902; 0.100918;, - -5.183640; 2.228666; 0.092264;, - -5.213905; 1.689902; 0.092264;, - -5.183640; 2.228666; 0.092264;, - -4.940725; 1.689902; 0.100918;, - -4.910460; 2.228666; 0.100918;, - -5.456819; 2.228666; 0.083610;, - -5.213905; 1.689902; 0.092264;, - -5.183640; 2.228666; 0.092264;, - -5.297208; 0.024299; 0.092157;, - -4.990979; 0.024299; 0.100918;, - -5.279657; 0.587718; 0.092211;, - -5.279657; 0.587718; 0.092211;, - -5.585886; 0.587718; 0.083450;, - -5.297208; 0.024299; 0.092157;, - -5.585886; 0.587718; 0.083450;, - -5.279657; 0.587718; 0.092211;, - -5.568336; 1.151137; 0.083505;, - -5.603437; 0.024299; 0.083396;, - -5.297208; 0.024299; 0.092157;, - -5.585886; 0.587718; 0.083450;, - -5.279657; 0.587718; 0.092211;, - -4.990979; 0.024299; 0.100918;, - -4.980985; 0.587718; 0.100918;, - -4.980985; 0.587718; 0.100918;, - -5.269664; 1.151137; 0.092211;, - -5.279657; 0.587718; 0.092211;, - -5.269664; 1.151137; 0.092211;, - -4.980985; 0.587718; 0.100918;, - -4.970991; 1.151137; 0.100918;, - -5.568336; 1.151137; 0.083505;, - -5.279657; 0.587718; 0.092211;, - -5.269664; 1.151137; 0.092211;, - -5.747350; 1.151137; 0.081262;, - -5.568336; 1.151137; 0.083505;, - -5.676273; 1.689902; 0.081251;, - -5.676273; 1.689902; 0.081251;, - -5.855287; 1.689902; 0.079007;, - -5.747350; 1.151137; 0.081262;, - -5.855287; 1.689902; 0.079007;, - -5.676273; 1.689902; 0.081251;, - -5.784211; 2.228666; 0.078997;, - -5.926363; 1.151137; 0.079018;, - -5.747350; 1.151137; 0.081262;, - -5.855287; 1.689902; 0.079007;, - -5.676273; 1.689902; 0.081251;, - -5.568336; 1.151137; 0.083505;, - -5.512578; 1.689902; 0.083558;, - -5.512578; 1.689902; 0.083558;, - -5.620515; 2.228666; 0.081303;, - -5.676273; 1.689902; 0.081251;, - -5.620515; 2.228666; 0.081303;, - -5.512578; 1.689902; 0.083558;, - -5.456819; 2.228666; 0.083610;, - -5.784211; 2.228666; 0.078997;, - -5.676273; 1.689902; 0.081251;, - -5.620515; 2.228666; 0.081303;, - -5.817328; 2.228666; 0.078531;, - -5.850445; 2.228666; 0.078064;, - -5.888404; 1.689902; 0.078541;, - -5.888404; 1.689902; 0.078541;, - -5.855287; 1.689902; 0.079007;, - -5.817328; 2.228666; 0.078531;, - -5.855287; 1.689902; 0.079007;, - -5.888404; 1.689902; 0.078541;, - -5.926363; 1.151137; 0.079018;, - -5.784211; 2.228666; 0.078997;, - -5.817328; 2.228666; 0.078531;, - -5.855287; 1.689902; 0.079007;, - -5.888404; 1.689902; 0.078541;, - -5.850445; 2.228666; 0.078064;, - -5.926479; 1.689902; 0.078064;, - -5.926479; 1.689902; 0.078064;, - -5.964438; 1.151137; 0.078541;, - -5.888404; 1.689902; 0.078541;, - -5.964438; 1.151137; 0.078541;, - -5.926479; 1.689902; 0.078064;, - -6.002513; 1.151137; 0.078064;, - -5.926363; 1.151137; 0.079018;, - -5.888404; 1.689902; 0.078541;, - -5.964438; 1.151137; 0.078541;, - -5.787024; 0.024299; 0.081217;, - -5.603437; 0.024299; 0.083396;, - -5.764900; 0.587718; 0.081207;, - -5.764900; 0.587718; 0.081207;, - -5.948486; 0.587718; 0.079028;, - -5.787024; 0.024299; 0.081217;, - -5.948486; 0.587718; 0.079028;, - -5.764900; 0.587718; 0.081207;, - -5.926363; 1.151137; 0.079018;, - -5.970610; 0.024299; 0.079038;, - -5.787024; 0.024299; 0.081217;, - -5.948486; 0.587718; 0.079028;, - -5.764900; 0.587718; 0.081207;, - -5.603437; 0.024299; 0.083396;, - -5.585886; 0.587718; 0.083450;, - -5.585886; 0.587718; 0.083450;, - -5.747350; 1.151137; 0.081262;, - -5.764900; 0.587718; 0.081207;, - -5.747350; 1.151137; 0.081262;, - -5.585886; 0.587718; 0.083450;, - -5.568336; 1.151137; 0.083505;, - -5.926363; 1.151137; 0.079018;, - -5.764900; 0.587718; 0.081207;, - -5.747350; 1.151137; 0.081262;, - -6.011669; 0.024299; 0.078551;, - -5.970610; 0.024299; 0.079038;, - -5.986562; 0.587718; 0.078551;, - -5.986562; 0.587718; 0.078551;, - -6.027620; 0.587718; 0.078064;, - -6.011669; 0.024299; 0.078551;, - -6.027620; 0.587718; 0.078064;, - -5.986562; 0.587718; 0.078551;, - -6.002513; 1.151137; 0.078064;, - -6.052728; 0.024299; 0.078064;, - -6.011669; 0.024299; 0.078551;, - -6.027620; 0.587718; 0.078064;, - -5.986562; 0.587718; 0.078551;, - -5.970610; 0.024299; 0.079038;, - -5.948486; 0.587718; 0.079028;, - -5.948486; 0.587718; 0.079028;, - -5.964438; 1.151137; 0.078541;, - -5.986562; 0.587718; 0.078551;, - -5.964438; 1.151137; 0.078541;, - -5.948486; 0.587718; 0.079028;, - -5.926363; 1.151137; 0.079018;, - -6.002513; 1.151137; 0.078064;, - -5.986562; 0.587718; 0.078551;, - -5.964438; 1.151137; 0.078541;, - -1.426807; 1.689902;-0.019390;, - -1.377731; 2.228666;-0.019418;, - -1.982563; 2.228666;-0.021211;, - -1.982563; 2.228666;-0.021211;, - -2.031639; 1.689902;-0.021183;, - -1.426807; 1.689902;-0.019390;, - -2.031639; 1.689902;-0.021183;, - -1.982563; 2.228666;-0.021211;, - -2.587394; 2.228666;-0.023004;, - -1.475884; 1.151137;-0.019362;, - -1.426807; 1.689902;-0.019390;, - -2.031639; 1.689902;-0.021183;, - -2.031639; 1.151137;-0.021183;, - -1.475884; 1.151137;-0.019362;, - -2.031639; 1.689902;-0.021183;, - -2.031639; 1.689902;-0.021183;, - -2.587394; 1.689902;-0.023004;, - -2.031639; 1.151137;-0.021183;, - -2.587394; 1.689902;-0.023004;, - -2.031639; 1.689902;-0.021183;, - -2.587394; 2.228666;-0.023004;, - -2.587394; 1.151137;-0.023004;, - -2.031639; 1.151137;-0.021183;, - -2.587394; 1.689902;-0.023004;, - 2.294863; 1.697444;-0.038860;, - 2.210212; 2.243752;-0.038860;, - 0.367164; 1.697444;-0.029111;, - 0.367164; 1.697444;-0.029111;, - 0.451815; 1.151137;-0.029110;, - 2.294863; 1.697444;-0.038860;, - 0.451815; 1.151137;-0.029110;, - 0.367164; 1.697444;-0.029111;, - -1.475884; 1.151137;-0.019362;, - 2.379514; 1.151137;-0.038859;, - 2.294863; 1.697444;-0.038860;, - 0.451815; 1.151137;-0.029110;, - 0.367164; 1.697444;-0.029111;, - 2.210212; 2.243752;-0.038860;, - 0.416241; 2.236209;-0.029139;, - 0.416241; 2.236209;-0.029139;, - -1.426807; 1.689902;-0.019390;, - 0.367164; 1.697444;-0.029111;, - -1.426807; 1.689902;-0.019390;, - 0.416241; 2.236209;-0.029139;, - -1.377731; 2.228666;-0.019418;, - -1.475884; 1.151137;-0.019362;, - 0.367164; 1.697444;-0.029111;, - -1.426807; 1.689902;-0.019390;, - -1.526752; 0.587718;-0.019332;, - -1.475884; 1.151137;-0.019362;, - -2.031639; 1.151137;-0.021183;, - -2.031639; 1.151137;-0.021183;, - -2.082507; 0.587718;-0.021153;, - -1.526752; 0.587718;-0.019332;, - -2.082507; 0.587718;-0.021153;, - -2.031639; 1.151137;-0.021183;, - -2.587394; 1.151137;-0.023004;, - -1.577620; 0.024299;-0.019302;, - -1.526752; 0.587718;-0.019332;, - -2.082507; 0.587718;-0.021153;, - -2.082508; 0.024299;-0.021153;, - -1.577620; 0.024299;-0.019302;, - -2.082507; 0.587718;-0.021153;, - -2.082507; 0.587718;-0.021153;, - -2.587394; 0.587718;-0.023004;, - -2.082508; 0.024299;-0.021153;, - -2.587394; 0.587718;-0.023004;, - -2.082507; 0.587718;-0.021153;, - -2.587394; 1.151137;-0.023004;, - -2.587395; 0.024299;-0.023004;, - -2.082508; 0.024299;-0.021153;, - -2.587394; 0.587718;-0.023004;, - 2.396950; 0.587718;-0.038859;, - 2.379514; 1.151137;-0.038859;, - 0.451815; 1.151137;-0.029110;, - 0.451815; 1.151137;-0.029110;, - 0.469251; 0.587718;-0.029110;, - 2.396950; 0.587718;-0.038859;, - 0.469251; 0.587718;-0.029110;, - 0.451815; 1.151137;-0.029110;, - -1.475884; 1.151137;-0.019362;, - 2.414385; 0.024299;-0.038859;, - 2.396950; 0.587718;-0.038859;, - 0.469251; 0.587718;-0.029110;, - 0.418383; 0.024299;-0.029080;, - 2.414385; 0.024299;-0.038859;, - 0.469251; 0.587718;-0.029110;, - 0.469251; 0.587718;-0.029110;, - -1.526752; 0.587718;-0.019332;, - 0.418383; 0.024299;-0.029080;, - -1.526752; 0.587718;-0.019332;, - 0.469251; 0.587718;-0.029110;, - -1.475884; 1.151137;-0.019362;, - -1.577620; 0.024299;-0.019302;, - 0.418383; 0.024299;-0.029080;, - -1.526752; 0.587718;-0.019332;, - 3.811597; 1.657855; 2.281836;, - 3.830739; 2.164572; 2.281711;, - 3.970397; 1.657855; 2.285157;, - 3.970397; 1.657855; 2.285157;, - 3.951254; 1.151137; 2.285282;, - 3.811597; 1.657855; 2.281836;, - 3.951254; 1.151137; 2.285282;, - 3.970397; 1.657855; 2.285157;, - 4.110054; 1.151137; 2.288602;, - 3.792455; 1.151137; 2.281961;, - 3.811597; 1.657855; 2.281836;, - 3.951254; 1.151137; 2.285282;, - 3.970397; 1.657855; 2.285157;, - 3.830739; 2.164572; 2.281711;, - 3.979679; 2.163206; 2.284984;, - 3.979679; 2.163206; 2.284984;, - 4.119336; 1.656488; 2.288429;, - 3.970397; 1.657855; 2.285157;, - 4.119336; 1.656488; 2.288429;, - 3.979679; 2.163206; 2.284984;, - 4.128619; 2.161840; 2.288257;, - 4.110054; 1.151137; 2.288602;, - 3.970397; 1.657855; 2.285157;, - 4.119336; 1.656488; 2.288429;, - 3.357309; 1.972738; 2.272933;, - 3.346860; 2.168289; 2.272876;, - 3.588799; 2.166430; 2.277294;, - 3.588799; 2.166430; 2.277294;, - 3.599248; 1.970880; 2.277350;, - 3.357309; 1.972738; 2.272933;, - 3.599248; 1.970880; 2.277350;, - 3.588799; 2.166430; 2.277294;, - 3.830739; 2.164572; 2.281711;, - 3.367758; 1.777187; 2.272989;, - 3.357309; 1.972738; 2.272933;, - 3.599248; 1.970880; 2.277350;, - 3.580106; 1.464162; 2.277475;, - 3.367758; 1.777187; 2.272989;, - 3.599248; 1.970880; 2.277350;, - 3.599248; 1.970880; 2.277350;, - 3.811597; 1.657855; 2.281836;, - 3.580106; 1.464162; 2.277475;, - 3.811597; 1.657855; 2.281836;, - 3.599248; 1.970880; 2.277350;, - 3.830739; 2.164572; 2.281711;, - 3.792455; 1.151137; 2.281961;, - 3.580106; 1.464162; 2.277475;, - 3.811597; 1.657855; 2.281836;, - 3.792447; 0.587718; 2.281961;, - 3.792455; 1.151137; 2.281961;, - 3.945421; 0.587718; 2.285282;, - 3.945421; 0.587718; 2.285282;, - 3.945413; 0.024299; 2.285282;, - 3.792447; 0.587718; 2.281961;, - 3.945413; 0.024299; 2.285282;, - 3.945421; 0.587718; 2.285282;, - 4.098388; 0.024299; 2.288602;, - 3.792438; 0.024299; 2.281962;, - 3.792447; 0.587718; 2.281961;, - 3.945413; 0.024299; 2.285282;, - 3.945421; 0.587718; 2.285282;, - 3.792455; 1.151137; 2.281961;, - 3.951254; 1.151137; 2.285282;, - 3.951254; 1.151137; 2.285282;, - 4.104221; 0.587718; 2.288602;, - 3.945421; 0.587718; 2.285282;, - 4.104221; 0.587718; 2.288602;, - 3.951254; 1.151137; 2.285282;, - 4.110054; 1.151137; 2.288602;, - 4.098388; 0.024299; 2.288602;, - 3.945421; 0.587718; 2.285282;, - 4.104221; 0.587718; 2.288602;, - 3.391062; 0.900743; 2.272989;, - 3.367758; 1.777187; 2.272989;, - 3.580106; 1.464162; 2.277475;, - 3.580106; 1.464162; 2.277475;, - 3.603410; 0.587718; 2.277475;, - 3.391062; 0.900743; 2.272989;, - 3.603410; 0.587718; 2.277475;, - 3.580106; 1.464162; 2.277475;, - 3.792455; 1.151137; 2.281961;, - 3.414365; 0.024299; 2.272989;, - 3.391062; 0.900743; 2.272989;, - 3.603410; 0.587718; 2.277475;, - 3.603402; 0.024299; 2.277475;, - 3.414365; 0.024299; 2.272989;, - 3.603410; 0.587718; 2.277475;, - 3.603410; 0.587718; 2.277475;, - 3.792447; 0.587718; 2.281961;, - 3.603402; 0.024299; 2.277475;, - 3.792447; 0.587718; 2.281961;, - 3.603410; 0.587718; 2.277475;, - 3.792455; 1.151137; 2.281961;, - 3.792438; 0.024299; 2.281962;, - 3.603402; 0.024299; 2.277475;, - 3.792447; 0.587718; 2.281961;, - 2.607792; 2.264092; 0.973449;, - 2.492986; 2.256100; 0.730395;, - 2.594820; 1.703619; 0.730395;, - 2.594820; 1.703619; 0.730395;, - 2.709627; 1.711611; 0.973449;, - 2.607792; 2.264092; 0.973449;, - 2.709627; 1.711611; 0.973449;, - 2.594820; 1.703619; 0.730395;, - 2.696655; 1.151137; 0.730395;, - 2.722598; 2.272084; 1.216504;, - 2.607792; 2.264092; 0.973449;, - 2.709627; 1.711611; 0.973449;, - 2.807667; 1.711611; 1.218213;, - 2.722598; 2.272084; 1.216504;, - 2.709627; 1.711611; 0.973449;, - 2.709627; 1.711611; 0.973449;, - 2.794695; 1.151137; 0.975158;, - 2.807667; 1.711611; 1.218213;, - 2.794695; 1.151137; 0.975158;, - 2.709627; 1.711611; 0.973449;, - 2.696655; 1.151137; 0.730395;, - 2.892736; 1.151137; 1.219922;, - 2.807667; 1.711611; 1.218213;, - 2.794695; 1.151137; 0.975158;, - 5.959684; 1.687021; 1.686183;, - 5.853407; 2.222906; 1.686183;, - 5.862223; 2.223282; 1.577340;, - 5.862223; 2.223282; 1.577340;, - 5.968500; 1.687397; 1.577340;, - 5.959684; 1.687021; 1.686183;, - 5.968500; 1.687397; 1.577340;, - 5.862223; 2.223282; 1.577340;, - 5.871038; 2.223658; 1.468498;, - 6.065962; 1.151137; 1.686183;, - 5.959684; 1.687021; 1.686183;, - 5.968500; 1.687397; 1.577340;, - 6.076625; 1.151137; 1.577340;, - 6.065962; 1.151137; 1.686183;, - 5.968500; 1.687397; 1.577340;, - 5.968500; 1.687397; 1.577340;, - 5.979163; 1.687397; 1.468498;, - 6.076625; 1.151137; 1.577340;, - 5.979163; 1.687397; 1.468498;, - 5.968500; 1.687397; 1.577340;, - 5.871038; 2.223658; 1.468498;, - 6.087288; 1.151137; 1.468498;, - 6.076625; 1.151137; 1.577340;, - 5.979163; 1.687397; 1.468498;, - 6.092464; 0.587718; 1.686183;, - 6.065962; 1.151137; 1.686183;, - 6.076625; 1.151137; 1.577340;, - 6.076625; 1.151137; 1.577340;, - 6.103127; 0.587718; 1.577340;, - 6.092464; 0.587718; 1.686183;, - 6.103127; 0.587718; 1.577340;, - 6.076625; 1.151137; 1.577340;, - 6.087288; 1.151137; 1.468498;, - 6.118967; 0.024299; 1.686183;, - 6.092464; 0.587718; 1.686183;, - 6.103127; 0.587718; 1.577340;, - 6.130003; 0.024299; 1.577340;, - 6.118967; 0.024299; 1.686183;, - 6.103127; 0.587718; 1.577340;, - 6.103127; 0.587718; 1.577340;, - 6.114163; 0.587718; 1.468498;, - 6.130003; 0.024299; 1.577340;, - 6.114163; 0.587718; 1.468498;, - 6.103127; 0.587718; 1.577340;, - 6.087288; 1.151137; 1.468498;, - 6.141039; 0.024299; 1.468498;, - 6.130003; 0.024299; 1.577340;, - 6.114163; 0.587718; 1.468498;, - 5.979163; 1.687397; 1.468498;, - 5.871038; 2.223658; 1.468498;, - 5.880335; 2.223240; 1.353697;, - 5.880335; 2.223240; 1.353697;, - 5.988460; 1.686980; 1.353697;, - 5.979163; 1.687397; 1.468498;, - 5.988460; 1.686980; 1.353697;, - 5.880335; 2.223240; 1.353697;, - 5.889632; 2.222822; 1.238896;, - 6.087288; 1.151137; 1.468498;, - 5.979163; 1.687397; 1.468498;, - 5.988460; 1.686980; 1.353697;, - 6.098536; 1.151137; 1.353697;, - 6.087288; 1.151137; 1.468498;, - 5.988460; 1.686980; 1.353697;, - 5.988460; 1.686980; 1.353697;, - 5.999708; 1.686980; 1.238896;, - 6.098536; 1.151137; 1.353697;, - 5.999708; 1.686980; 1.238896;, - 5.988460; 1.686980; 1.353697;, - 5.889632; 2.222822; 1.238896;, - 6.109783; 1.151137; 1.238896;, - 6.098536; 1.151137; 1.353697;, - 5.999708; 1.686980; 1.238896;, - 6.114163; 0.587718; 1.468498;, - 6.087288; 1.151137; 1.468498;, - 6.098536; 1.151137; 1.353697;, - 6.098536; 1.151137; 1.353697;, - 6.125411; 0.587718; 1.353697;, - 6.114163; 0.587718; 1.468498;, - 6.125411; 0.587718; 1.353697;, - 6.098536; 1.151137; 1.353697;, - 6.109783; 1.151137; 1.238896;, - 6.141039; 0.024299; 1.468498;, - 6.114163; 0.587718; 1.468498;, - 6.125411; 0.587718; 1.353697;, - 6.152680; 0.024299; 1.353697;, - 6.141039; 0.024299; 1.468498;, - 6.125411; 0.587718; 1.353697;, - 6.125411; 0.587718; 1.353697;, - 6.137053; 0.587718; 1.238896;, - 6.152680; 0.024299; 1.353697;, - 6.137053; 0.587718; 1.238896;, - 6.125411; 0.587718; 1.353697;, - 6.109783; 1.151137; 1.238896;, - 6.164322; 0.024299; 1.238896;, - 6.152680; 0.024299; 1.353697;, - 6.137053; 0.587718; 1.238896;, - 6.030479; 1.685161; 0.894986;, - 5.917485; 2.219185; 0.894986;, - 5.930335; 2.199479; 0.663141;, - 5.930335; 2.199479; 0.663141;, - 6.043329; 1.665454; 0.663141;, - 6.030479; 1.685161; 0.894986;, - 6.043329; 1.665454; 0.663141;, - 5.930335; 2.199479; 0.663141;, - 5.943184; 2.179772; 0.431297;, - 6.143474; 1.151137; 0.894986;, - 6.030479; 1.685161; 0.894986;, - 6.043329; 1.665454; 0.663141;, - 6.159018; 1.151137; 0.663141;, - 6.143474; 1.151137; 0.894986;, - 6.043329; 1.665454; 0.663141;, - 6.043329; 1.665454; 0.663141;, - 6.058873; 1.665454; 0.431297;, - 6.159018; 1.151137; 0.663141;, - 6.058873; 1.665454; 0.431297;, - 6.043329; 1.665454; 0.663141;, - 5.943184; 2.179772; 0.431297;, - 6.174562; 1.151137; 0.431297;, - 6.159018; 1.151137; 0.663141;, - 6.058873; 1.665454; 0.431297;, - 5.999708; 1.686980; 1.238896;, - 5.889632; 2.222822; 1.238896;, - 5.903559; 2.221004; 1.066941;, - 5.903559; 2.221004; 1.066941;, - 6.013634; 1.685161; 1.066941;, - 5.999708; 1.686980; 1.238896;, - 6.013634; 1.685161; 1.066941;, - 5.903559; 2.221004; 1.066941;, - 5.917485; 2.219185; 0.894986;, - 6.109783; 1.151137; 1.238896;, - 5.999708; 1.686980; 1.238896;, - 6.013634; 1.685161; 1.066941;, - 6.126629; 1.151137; 1.066941;, - 6.109783; 1.151137; 1.238896;, - 6.013634; 1.685161; 1.066941;, - 6.013634; 1.685161; 1.066941;, - 6.030479; 1.685161; 0.894986;, - 6.126629; 1.151137; 1.066941;, - 6.030479; 1.685161; 0.894986;, - 6.013634; 1.685161; 1.066941;, - 5.917485; 2.219185; 0.894986;, - 6.143474; 1.151137; 0.894986;, - 6.126629; 1.151137; 1.066941;, - 6.030479; 1.685161; 0.894986;, - 6.171333; 0.587718; 0.894986;, - 6.143474; 1.151137; 0.894986;, - 6.159018; 1.151137; 0.663141;, - 6.159018; 1.151137; 0.663141;, - 6.186877; 0.587718; 0.663141;, - 6.171333; 0.587718; 0.894986;, - 6.186877; 0.587718; 0.663141;, - 6.159018; 1.151137; 0.663141;, - 6.174562; 1.151137; 0.431297;, - 6.199193; 0.024299; 0.894986;, - 6.171333; 0.587718; 0.894986;, - 6.186877; 0.587718; 0.663141;, - 6.215282; 0.024299; 0.663141;, - 6.199193; 0.024299; 0.894986;, - 6.186877; 0.587718; 0.663141;, - 6.186877; 0.587718; 0.663141;, - 6.202967; 0.587718; 0.431297;, - 6.215282; 0.024299; 0.663141;, - 6.202967; 0.587718; 0.431297;, - 6.186877; 0.587718; 0.663141;, - 6.174562; 1.151137; 0.431297;, - 6.231371; 0.024299; 0.431297;, - 6.215282; 0.024299; 0.663141;, - 6.202967; 0.587718; 0.431297;, - 6.126629; 1.151137; 1.066941;, - 6.143474; 1.151137; 0.894986;, - 6.153898; 0.587718; 1.066941;, - 6.153898; 0.587718; 1.066941;, - 6.137053; 0.587718; 1.238896;, - 6.126629; 1.151137; 1.066941;, - 6.137053; 0.587718; 1.238896;, - 6.153898; 0.587718; 1.066941;, - 6.164322; 0.024299; 1.238896;, - 6.109783; 1.151137; 1.238896;, - 6.126629; 1.151137; 1.066941;, - 6.137053; 0.587718; 1.238896;, - 6.153898; 0.587718; 1.066941;, - 6.143474; 1.151137; 0.894986;, - 6.171333; 0.587718; 0.894986;, - 6.171333; 0.587718; 0.894986;, - 6.181757; 0.024299; 1.066941;, - 6.153898; 0.587718; 1.066941;, - 6.181757; 0.024299; 1.066941;, - 6.171333; 0.587718; 0.894986;, - 6.199193; 0.024299; 0.894986;, - 6.164322; 0.024299; 1.238896;, - 6.153898; 0.587718; 1.066941;, - 6.181757; 0.024299; 1.066941;, - -3.154009; 1.712003; 1.342988;, - -3.154009; 2.272869; 1.342988;, - -3.278239; 2.272646; 1.412370;, - -3.278239; 2.272646; 1.412370;, - -3.278239; 1.711781; 1.412370;, - -3.154009; 1.712003; 1.342988;, - -3.278239; 1.711781; 1.412370;, - -3.278239; 2.272646; 1.412370;, - -3.402469; 2.272424; 1.481753;, - -3.154009; 1.151137; 1.342988;, - -3.154009; 1.712003; 1.342988;, - -3.278239; 1.711781; 1.412370;, - -3.278239; 1.151137; 1.412370;, - -3.154009; 1.151137; 1.342988;, - -3.278239; 1.711781; 1.412370;, - -3.278239; 1.711781; 1.412370;, - -3.402469; 1.711781; 1.481753;, - -3.278239; 1.151137; 1.412370;, - -3.402469; 1.711781; 1.481753;, - -3.278239; 1.711781; 1.412370;, - -3.402469; 2.272424; 1.481753;, - -3.402469; 1.151137; 1.481753;, - -3.278239; 1.151137; 1.412370;, - -3.402469; 1.711781; 1.481753;, - -2.895311; 1.711555; 1.198504;, - -2.895311; 2.271972; 1.198504;, - -3.024660; 1.711555; 1.270746;, - -3.024660; 1.711555; 1.270746;, - -3.024660; 1.151137; 1.270746;, - -2.895311; 1.711555; 1.198504;, - -3.024660; 1.151137; 1.270746;, - -3.024660; 1.711555; 1.270746;, - -3.154009; 1.151137; 1.342988;, - -2.895311; 1.151137; 1.198504;, - -2.895311; 1.711555; 1.198504;, - -3.024660; 1.151137; 1.270746;, - -3.024660; 1.711555; 1.270746;, - -2.895311; 2.271972; 1.198504;, - -3.024660; 2.272420; 1.270746;, - -3.024660; 2.272420; 1.270746;, - -3.154009; 1.712003; 1.342988;, - -3.024660; 1.711555; 1.270746;, - -3.154009; 1.712003; 1.342988;, - -3.024660; 2.272420; 1.270746;, - -3.154009; 2.272869; 1.342988;, - -3.154009; 1.151137; 1.342988;, - -3.024660; 1.711555; 1.270746;, - -3.154009; 1.712003; 1.342988;, - -3.154009; 0.587718; 1.342988;, - -3.154009; 1.151137; 1.342988;, - -3.278239; 0.587718; 1.412370;, - -3.278239; 0.587718; 1.412370;, - -3.278239; 0.024299; 1.412370;, - -3.154009; 0.587718; 1.342988;, - -3.278239; 0.024299; 1.412370;, - -3.278239; 0.587718; 1.412370;, - -3.402469; 0.024299; 1.481753;, - -3.154009; 0.024299; 1.342988;, - -3.154009; 0.587718; 1.342988;, - -3.278239; 0.024299; 1.412370;, - -3.278239; 0.587718; 1.412370;, - -3.154009; 1.151137; 1.342988;, - -3.278239; 1.151137; 1.412370;, - -3.278239; 1.151137; 1.412370;, - -3.402469; 0.587718; 1.481753;, - -3.278239; 0.587718; 1.412370;, - -3.402469; 0.587718; 1.481753;, - -3.278239; 1.151137; 1.412370;, - -3.402469; 1.151137; 1.481753;, - -3.402469; 0.024299; 1.481753;, - -3.278239; 0.587718; 1.412370;, - -3.402469; 0.587718; 1.481753;, - -2.895311; 0.587718; 1.198504;, - -2.895311; 1.151137; 1.198504;, - -3.024660; 0.587718; 1.270746;, - -3.024660; 0.587718; 1.270746;, - -3.024660; 0.024299; 1.270746;, - -2.895311; 0.587718; 1.198504;, - -3.024660; 0.024299; 1.270746;, - -3.024660; 0.587718; 1.270746;, - -3.154009; 0.024299; 1.342988;, - -2.895311; 0.024299; 1.198504;, - -2.895311; 0.587718; 1.198504;, - -3.024660; 0.024299; 1.270746;, - -3.024660; 0.587718; 1.270746;, - -2.895311; 1.151137; 1.198504;, - -3.024660; 1.151137; 1.270746;, - -3.024660; 1.151137; 1.270746;, - -3.154009; 0.587718; 1.342988;, - -3.024660; 0.587718; 1.270746;, - -3.154009; 0.587718; 1.342988;, - -3.024660; 1.151137; 1.270746;, - -3.154009; 1.151137; 1.342988;, - -3.154009; 0.024299; 1.342988;, - -3.024660; 0.587718; 1.270746;, - -3.154009; 0.587718; 1.342988;, - 2.679668; 1.151137; 0.417897;, - 2.696655; 1.151137; 0.730395;, - 2.579675; 1.691281; 0.417897;, - 2.579675; 1.691281; 0.417897;, - 2.562688; 1.691281; 0.105398;, - 2.679668; 1.151137; 0.417897;, - 2.562688; 1.691281; 0.105398;, - 2.579675; 1.691281; 0.417897;, - 2.462695; 2.231424; 0.105398;, - 2.662682; 1.151137; 0.105398;, - 2.679668; 1.151137; 0.417897;, - 2.562688; 1.691281; 0.105398;, - 2.579675; 1.691281; 0.417897;, - 2.696655; 1.151137; 0.730395;, - 2.594820; 1.703619; 0.730395;, - 2.594820; 1.703619; 0.730395;, - 2.477840; 2.243762; 0.417897;, - 2.579675; 1.691281; 0.417897;, - 2.477840; 2.243762; 0.417897;, - 2.594820; 1.703619; 0.730395;, - 2.492986; 2.256100; 0.730395;, - 2.462695; 2.231424; 0.105398;, - 2.579675; 1.691281; 0.417897;, - 2.477840; 2.243762; 0.417897;, - 2.660187; 1.151137; 0.059494;, - 2.662682; 1.151137; 0.105398;, - 2.562688; 1.691281; 0.105398;, - 2.562688; 1.691281; 0.105398;, - 2.560194; 1.691281; 0.059494;, - 2.660187; 1.151137; 0.059494;, - 2.560194; 1.691281; 0.059494;, - 2.562688; 1.691281; 0.105398;, - 2.462695; 2.231424; 0.105398;, - 2.657693; 1.151137; 0.013590;, - 2.660187; 1.151137; 0.059494;, - 2.560194; 1.691281; 0.059494;, - 2.557970; 1.691390; 0.013590;, - 2.657693; 1.151137; 0.013590;, - 2.560194; 1.691281; 0.059494;, - 2.560194; 1.691281; 0.059494;, - 2.460470; 2.231533; 0.059494;, - 2.557970; 1.691390; 0.013590;, - 2.460470; 2.231533; 0.059494;, - 2.560194; 1.691281; 0.059494;, - 2.462695; 2.231424; 0.105398;, - 2.458246; 2.231642; 0.013590;, - 2.557970; 1.691390; 0.013590;, - 2.460470; 2.231533; 0.059494;, - 2.721240; 0.024299; 0.417897;, - 2.738605; 0.024299; 0.730395;, - 2.717630; 0.587718; 0.730395;, - 2.717630; 0.587718; 0.730395;, - 2.700264; 0.587718; 0.417897;, - 2.721240; 0.024299; 0.417897;, - 2.700264; 0.587718; 0.417897;, - 2.717630; 0.587718; 0.730395;, - 2.696655; 1.151137; 0.730395;, - 2.703874; 0.024299; 0.105398;, - 2.721240; 0.024299; 0.417897;, - 2.700264; 0.587718; 0.417897;, - 2.683278; 0.587718; 0.105398;, - 2.703874; 0.024299; 0.105398;, - 2.700264; 0.587718; 0.417897;, - 2.700264; 0.587718; 0.417897;, - 2.679668; 1.151137; 0.417897;, - 2.683278; 0.587718; 0.105398;, - 2.679668; 1.151137; 0.417897;, - 2.700264; 0.587718; 0.417897;, - 2.696655; 1.151137; 0.730395;, - 2.662682; 1.151137; 0.105398;, - 2.683278; 0.587718; 0.105398;, - 2.679668; 1.151137; 0.417897;, - 2.701324; 0.024299; 0.059494;, - 2.703874; 0.024299; 0.105398;, - 2.683278; 0.587718; 0.105398;, - 2.683278; 0.587718; 0.105398;, - 2.680727; 0.587718; 0.059494;, - 2.701324; 0.024299; 0.059494;, - 2.680727; 0.587718; 0.059494;, - 2.683278; 0.587718; 0.105398;, - 2.662682; 1.151137; 0.105398;, - 2.698773; 0.024299; 0.013590;, - 2.701324; 0.024299; 0.059494;, - 2.680727; 0.587718; 0.059494;, - 2.678233; 0.587718; 0.013590;, - 2.698773; 0.024299; 0.013590;, - 2.680727; 0.587718; 0.059494;, - 2.680727; 0.587718; 0.059494;, - 2.660187; 1.151137; 0.059494;, - 2.678233; 0.587718; 0.013590;, - 2.660187; 1.151137; 0.059494;, - 2.680727; 0.587718; 0.059494;, - 2.662682; 1.151137; 0.105398;, - 2.657693; 1.151137; 0.013590;, - 2.678233; 0.587718; 0.013590;, - 2.660187; 1.151137; 0.059494;, - 2.477840; 2.243762; 0.417897;, - 2.492986; 2.256100; 0.730395;, - 2.470551; 2.421832; 0.421296;, - 2.470551; 2.421832; 0.421296;, - 2.455405; 2.409493; 0.108797;, - 2.477840; 2.243762; 0.417897;, - 2.455405; 2.409493; 0.108797;, - 2.470551; 2.421832; 0.421296;, - 2.448116; 2.587563; 0.112197;, - 2.462695; 2.231424; 0.105398;, - 2.477840; 2.243762; 0.417897;, - 2.455405; 2.409493; 0.108797;, - 2.470551; 2.421832; 0.421296;, - 2.492986; 2.256100; 0.730395;, - 2.485566; 2.448033; 0.714640;, - 2.485566; 2.448033; 0.714640;, - 2.463131; 2.613765; 0.405541;, - 2.470551; 2.421832; 0.421296;, - 2.463131; 2.613765; 0.405541;, - 2.485566; 2.448033; 0.714640;, - 2.478146; 2.639967; 0.698885;, - 2.448116; 2.587563; 0.112197;, - 2.470551; 2.421832; 0.421296;, - 2.463131; 2.613765; 0.405541;, - 2.450975; 2.409631; 0.019803;, - 2.458246; 2.231642; 0.013590;, - 2.460470; 2.231533; 0.059494;, - 2.460470; 2.231533; 0.059494;, - 2.453199; 2.409522; 0.065707;, - 2.450975; 2.409631; 0.019803;, - 2.453199; 2.409522; 0.065707;, - 2.460470; 2.231533; 0.059494;, - 2.462695; 2.231424; 0.105398;, - 2.443704; 2.587619; 0.026016;, - 2.450975; 2.409631; 0.019803;, - 2.453199; 2.409522; 0.065707;, - 2.445910; 2.587591; 0.069106;, - 2.443704; 2.587619; 0.026016;, - 2.453199; 2.409522; 0.065707;, - 2.453199; 2.409522; 0.065707;, - 2.455405; 2.409493; 0.108797;, - 2.445910; 2.587591; 0.069106;, - 2.455405; 2.409493; 0.108797;, - 2.453199; 2.409522; 0.065707;, - 2.462695; 2.231424; 0.105398;, - 2.448116; 2.587563; 0.112197;, - 2.445910; 2.587591; 0.069106;, - 2.455405; 2.409493; 0.108797;, - -3.378052; 2.479473; 1.443012;, - -3.402469; 2.272424; 1.481753;, - -3.278239; 2.272646; 1.412370;, - -3.278239; 2.272646; 1.412370;, - -3.253822; 2.479696; 1.373629;, - -3.378052; 2.479473; 1.443012;, - -3.253822; 2.479696; 1.373629;, - -3.278239; 2.272646; 1.412370;, - -3.154009; 2.272869; 1.342988;, - -3.353634; 2.686522; 1.404270;, - -3.378052; 2.479473; 1.443012;, - -3.253822; 2.479696; 1.373629;, - -3.230474; 2.685998; 1.339141;, - -3.353634; 2.686522; 1.404270;, - -3.253822; 2.479696; 1.373629;, - -3.253822; 2.479696; 1.373629;, - -3.130661; 2.479172; 1.308500;, - -3.230474; 2.685998; 1.339141;, - -3.130661; 2.479172; 1.308500;, - -3.253822; 2.479696; 1.373629;, - -3.154009; 2.272869; 1.342988;, - -3.107314; 2.685474; 1.274011;, - -3.230474; 2.685998; 1.339141;, - -3.130661; 2.479172; 1.308500;, - -3.130661; 2.479172; 1.308500;, - -3.154009; 2.272869; 1.342988;, - -3.024660; 2.272420; 1.270746;, - -3.024660; 2.272420; 1.270746;, - -3.001313; 2.478723; 1.236258;, - -3.130661; 2.479172; 1.308500;, - -3.001313; 2.478723; 1.236258;, - -3.024660; 2.272420; 1.270746;, - -2.895311; 2.271972; 1.198504;, - -3.107314; 2.685474; 1.274011;, - -3.130661; 2.479172; 1.308500;, - -3.001313; 2.478723; 1.236258;, - -2.979081; 2.684524; 1.206198;, - -3.107314; 2.685474; 1.274011;, - -3.001313; 2.478723; 1.236258;, - -3.001313; 2.478723; 1.236258;, - -2.873079; 2.477772; 1.168444;, - -2.979081; 2.684524; 1.206198;, - -2.873079; 2.477772; 1.168444;, - -3.001313; 2.478723; 1.236258;, - -2.895311; 2.271972; 1.198504;, - -2.850847; 2.683573; 1.138384;, - -2.979081; 2.684524; 1.206198;, - -2.873079; 2.477772; 1.168444;, - 5.930335; 2.199479; 0.663141;, - 5.917485; 2.219185; 0.894986;, - 5.822725; 2.349088; 0.659284;, - 5.822725; 2.349088; 0.659284;, - 5.835575; 2.329381; 0.427440;, - 5.930335; 2.199479; 0.663141;, - 5.835575; 2.329381; 0.427440;, - 5.822725; 2.349088; 0.659284;, - 5.727966; 2.478991; 0.423582;, - 5.943184; 2.179772; 0.431297;, - 5.930335; 2.199479; 0.663141;, - 5.835575; 2.329381; 0.427440;, - 5.822725; 2.349088; 0.659284;, - 5.917485; 2.219185; 0.894986;, - 5.811079; 2.389571; 0.873583;, - 5.811079; 2.389571; 0.873583;, - 5.716319; 2.519474; 0.637882;, - 5.822725; 2.349088; 0.659284;, - 5.716319; 2.519474; 0.637882;, - 5.811079; 2.389571; 0.873583;, - 5.704672; 2.559956; 0.852181;, - 5.727966; 2.478991; 0.423582;, - 5.822725; 2.349088; 0.659284;, - 5.716319; 2.519474; 0.637882;, - 5.903559; 2.221004; 1.066941;, - 5.889632; 2.222822; 1.238896;, - 5.784529; 2.399110; 1.206954;, - 5.784529; 2.399110; 1.206954;, - 5.798456; 2.397292; 1.034999;, - 5.903559; 2.221004; 1.066941;, - 5.798456; 2.397292; 1.034999;, - 5.784529; 2.399110; 1.206954;, - 5.679426; 2.575399; 1.175011;, - 5.917485; 2.219185; 0.894986;, - 5.903559; 2.221004; 1.066941;, - 5.798456; 2.397292; 1.034999;, - 5.811079; 2.389571; 0.873583;, - 5.917485; 2.219185; 0.894986;, - 5.798456; 2.397292; 1.034999;, - 5.798456; 2.397292; 1.034999;, - 5.692049; 2.567677; 1.013596;, - 5.811079; 2.389571; 0.873583;, - 5.692049; 2.567677; 1.013596;, - 5.798456; 2.397292; 1.034999;, - 5.679426; 2.575399; 1.175011;, - 5.704672; 2.559956; 0.852181;, - 5.811079; 2.389571; 0.873583;, - 5.692049; 2.567677; 1.013596;, - 5.880335; 2.223240; 1.353697;, - 5.871038; 2.223658; 1.468498;, - 5.766805; 2.401416; 1.429519;, - 5.766805; 2.401416; 1.429519;, - 5.776102; 2.400998; 1.314718;, - 5.880335; 2.223240; 1.353697;, - 5.776102; 2.400998; 1.314718;, - 5.766805; 2.401416; 1.429519;, - 5.662572; 2.579173; 1.390540;, - 5.889632; 2.222822; 1.238896;, - 5.880335; 2.223240; 1.353697;, - 5.776102; 2.400998; 1.314718;, - 5.784529; 2.399110; 1.206954;, - 5.889632; 2.222822; 1.238896;, - 5.776102; 2.400998; 1.314718;, - 5.776102; 2.400998; 1.314718;, - 5.670999; 2.577286; 1.282776;, - 5.784529; 2.399110; 1.206954;, - 5.670999; 2.577286; 1.282776;, - 5.776102; 2.400998; 1.314718;, - 5.662572; 2.579173; 1.390540;, - 5.679426; 2.575399; 1.175011;, - 5.784529; 2.399110; 1.206954;, - 5.670999; 2.577286; 1.282776;, - 5.862223; 2.223282; 1.577340;, - 5.853407; 2.222906; 1.686183;, - 5.749999; 2.400273; 1.640532;, - 5.749999; 2.400273; 1.640532;, - 5.758815; 2.400649; 1.531690;, - 5.862223; 2.223282; 1.577340;, - 5.758815; 2.400649; 1.531690;, - 5.749999; 2.400273; 1.640532;, - 5.646591; 2.577640; 1.594881;, - 5.871038; 2.223658; 1.468498;, - 5.862223; 2.223282; 1.577340;, - 5.758815; 2.400649; 1.531690;, - 5.766805; 2.401416; 1.429519;, - 5.871038; 2.223658; 1.468498;, - 5.758815; 2.400649; 1.531690;, - 5.758815; 2.400649; 1.531690;, - 5.654582; 2.578407; 1.492711;, - 5.766805; 2.401416; 1.429519;, - 5.654582; 2.578407; 1.492711;, - 5.758815; 2.400649; 1.531690;, - 5.646591; 2.577640; 1.594881;, - 5.662572; 2.579173; 1.390540;, - 5.766805; 2.401416; 1.429519;, - 5.654582; 2.578407; 1.492711;, - 2.800664; 2.335062; 2.222274;, - 2.810881; 2.164256; 2.282468;, - 2.709026; 2.167474; 2.267308;, - 2.709026; 2.167474; 2.267308;, - 2.698810; 2.338279; 2.207114;, - 2.800664; 2.335062; 2.222274;, - 2.698810; 2.338279; 2.207114;, - 2.709026; 2.167474; 2.267308;, - 2.607171; 2.170691; 2.252148;, - 2.790448; 2.505867; 2.162080;, - 2.800664; 2.335062; 2.222274;, - 2.698810; 2.338279; 2.207114;, - 2.691435; 2.513834; 2.147747;, - 2.790448; 2.505867; 2.162080;, - 2.698810; 2.338279; 2.207114;, - 2.698810; 2.338279; 2.207114;, - 2.599797; 2.346246; 2.192781;, - 2.691435; 2.513834; 2.147747;, - 2.599797; 2.346246; 2.192781;, - 2.698810; 2.338279; 2.207114;, - 2.607171; 2.170691; 2.252148;, - 2.592423; 2.521802; 2.133414;, - 2.691435; 2.513834; 2.147747;, - 2.599797; 2.346246; 2.192781;, - 3.329203; 2.339636; 2.212877;, - 3.346860; 2.168289; 2.272876;, - 3.078870; 2.166273; 2.277672;, - 3.078870; 2.166273; 2.277672;, - 3.061213; 2.337620; 2.217673;, - 3.329203; 2.339636; 2.212877;, - 3.061213; 2.337620; 2.217673;, - 3.078870; 2.166273; 2.277672;, - 2.810881; 2.164256; 2.282468;, - 3.311546; 2.510983; 2.152878;, - 3.329203; 2.339636; 2.212877;, - 3.061213; 2.337620; 2.217673;, - 3.050997; 2.508425; 2.157479;, - 3.311546; 2.510983; 2.152878;, - 3.061213; 2.337620; 2.217673;, - 3.061213; 2.337620; 2.217673;, - 2.800664; 2.335062; 2.222274;, - 3.050997; 2.508425; 2.157479;, - 2.800664; 2.335062; 2.222274;, - 3.061213; 2.337620; 2.217673;, - 2.810881; 2.164256; 2.282468;, - 2.790448; 2.505867; 2.162080;, - 3.050997; 2.508425; 2.157479;, - 2.800664; 2.335062; 2.222274;, - 2.936630; 2.685331; 1.263792;, - 2.701728; 2.683809; 1.155197;, - 2.712163; 2.477947; 1.185851;, - 2.712163; 2.477947; 1.185851;, - 2.947065; 2.479468; 1.294446;, - 2.936630; 2.685331; 1.263792;, - 2.947065; 2.479468; 1.294446;, - 2.712163; 2.477947; 1.185851;, - 2.722598; 2.272084; 1.216504;, - 2.947065; 2.479468; 1.294446;, - 3.171532; 2.686853; 1.372387;, - 2.936630; 2.685331; 1.263792;, - 3.188736; 2.479743; 1.410131;, - 3.171532; 2.686853; 1.372387;, - 2.947065; 2.479468; 1.294446;, - 2.947065; 2.479468; 1.294446;, - 2.964270; 2.272359; 1.332190;, - 3.188736; 2.479743; 1.410131;, - 2.964270; 2.272359; 1.332190;, - 2.947065; 2.479468; 1.294446;, - 2.722598; 2.272084; 1.216504;, - 3.205941; 2.272634; 1.447875;, - 3.188736; 2.479743; 1.410131;, - 2.964270; 2.272359; 1.332190;, - 2.607792; 2.264092; 0.973449;, - 2.722598; 2.272084; 1.216504;, - 2.712163; 2.477947; 1.185851;, - 2.712163; 2.477947; 1.185851;, - 2.597357; 2.469954; 0.942796;, - 2.607792; 2.264092; 0.973449;, - 2.597357; 2.469954; 0.942796;, - 2.712163; 2.477947; 1.185851;, - 2.701728; 2.683809; 1.155197;, - 2.492986; 2.256100; 0.730395;, - 2.607792; 2.264092; 0.973449;, - 2.597357; 2.469954; 0.942796;, - 2.485566; 2.448033; 0.714640;, - 2.492986; 2.256100; 0.730395;, - 2.597357; 2.469954; 0.942796;, - 2.597357; 2.469954; 0.942796;, - 2.589937; 2.661888; 0.927041;, - 2.485566; 2.448033; 0.714640;, - 2.589937; 2.661888; 0.927041;, - 2.597357; 2.469954; 0.942796;, - 2.701728; 2.683809; 1.155197;, - 2.478146; 2.639967; 0.698885;, - 2.485566; 2.448033; 0.714640;, - 2.589937; 2.661888; 0.927041;, - 4.129445; 2.332310; 2.227945;, - 4.128619; 2.161840; 2.288257;, - 3.979679; 2.163206; 2.284984;, - 3.979679; 2.163206; 2.284984;, - 3.980505; 2.333676; 2.224673;, - 4.129445; 2.332310; 2.227945;, - 3.980505; 2.333676; 2.224673;, - 3.979679; 2.163206; 2.284984;, - 3.830739; 2.164572; 2.281711;, - 4.130271; 2.502780; 2.167634;, - 4.129445; 2.332310; 2.227945;, - 3.980505; 2.333676; 2.224673;, - 3.956047; 2.504525; 2.164494;, - 4.130271; 2.502780; 2.167634;, - 3.980505; 2.333676; 2.224673;, - 3.980505; 2.333676; 2.224673;, - 3.806281; 2.335422; 2.221533;, - 3.956047; 2.504525; 2.164494;, - 3.806281; 2.335422; 2.221533;, - 3.980505; 2.333676; 2.224673;, - 3.830739; 2.164572; 2.281711;, - 3.781823; 2.506271; 2.161354;, - 3.956047; 2.504525; 2.164494;, - 3.806281; 2.335422; 2.221533;, - 3.806281; 2.335422; 2.221533;, - 3.830739; 2.164572; 2.281711;, - 3.588799; 2.166430; 2.277294;, - 3.588799; 2.166430; 2.277294;, - 3.564342; 2.337280; 2.217115;, - 3.806281; 2.335422; 2.221533;, - 3.564342; 2.337280; 2.217115;, - 3.588799; 2.166430; 2.277294;, - 3.346860; 2.168289; 2.272876;, - 3.781823; 2.506271; 2.161354;, - 3.806281; 2.335422; 2.221533;, - 3.564342; 2.337280; 2.217115;, - 3.546685; 2.508627; 2.157116;, - 3.781823; 2.506271; 2.161354;, - 3.564342; 2.337280; 2.217115;, - 3.564342; 2.337280; 2.217115;, - 3.329203; 2.339636; 2.212877;, - 3.546685; 2.508627; 2.157116;, - 3.329203; 2.339636; 2.212877;, - 3.564342; 2.337280; 2.217115;, - 3.346860; 2.168289; 2.272876;, - 3.311546; 2.510983; 2.152878;, - 3.546685; 2.508627; 2.157116;, - 3.329203; 2.339636; 2.212877;, - 5.707213; 2.298059; 2.137311;, - 5.808521; 2.141797; 2.194925;, - 5.606527; 2.143714; 2.210538;, - 5.606527; 2.143714; 2.210538;, - 5.505219; 2.299976; 2.152925;, - 5.707213; 2.298059; 2.137311;, - 5.505219; 2.299976; 2.152925;, - 5.606527; 2.143714; 2.210538;, - 5.404533; 2.145632; 2.226151;, - 5.605906; 2.454320; 2.079698;, - 5.707213; 2.298059; 2.137311;, - 5.505219; 2.299976; 2.152925;, - 5.422816; 2.459419; 2.094354;, - 5.605906; 2.454320; 2.079698;, - 5.505219; 2.299976; 2.152925;, - 5.505219; 2.299976; 2.152925;, - 5.322129; 2.305075; 2.167581;, - 5.422816; 2.459419; 2.094354;, - 5.322129; 2.305075; 2.167581;, - 5.505219; 2.299976; 2.152925;, - 5.404533; 2.145632; 2.226151;, - 5.239726; 2.464517; 2.109010;, - 5.422816; 2.459419; 2.094354;, - 5.322129; 2.305075; 2.167581;, - 5.322129; 2.305075; 2.167581;, - 5.404533; 2.145632; 2.226151;, - 4.766576; 2.153736; 2.257204;, - 4.766576; 2.153736; 2.257204;, - 4.684173; 2.313179; 2.198633;, - 5.322129; 2.305075; 2.167581;, - 4.684173; 2.313179; 2.198633;, - 4.766576; 2.153736; 2.257204;, - 4.128619; 2.161840; 2.288257;, - 5.239726; 2.464517; 2.109010;, - 5.322129; 2.305075; 2.167581;, - 4.684173; 2.313179; 2.198633;, - 4.684999; 2.483649; 2.138322;, - 5.239726; 2.464517; 2.109010;, - 4.684173; 2.313179; 2.198633;, - 4.684173; 2.313179; 2.198633;, - 4.129445; 2.332310; 2.227945;, - 4.684999; 2.483649; 2.138322;, - 4.129445; 2.332310; 2.227945;, - 4.684173; 2.313179; 2.198633;, - 4.128619; 2.161840; 2.288257;, - 4.130271; 2.502780; 2.167634;, - 4.684999; 2.483649; 2.138322;, - 4.129445; 2.332310; 2.227945;, - 2.599797; 2.346246; 2.192781;, - 2.607171; 2.170691; 2.252148;, - 2.487622; 2.184196; 2.215730;, - 2.487622; 2.184196; 2.215730;, - 2.480247; 2.359751; 2.156363;, - 2.599797; 2.346246; 2.192781;, - 2.480247; 2.359751; 2.156363;, - 2.487622; 2.184196; 2.215730;, - 2.368072; 2.197701; 2.179312;, - 2.592423; 2.521802; 2.133414;, - 2.599797; 2.346246; 2.192781;, - 2.480247; 2.359751; 2.156363;, - 2.474800; 2.528689; 2.099228;, - 2.592423; 2.521802; 2.133414;, - 2.480247; 2.359751; 2.156363;, - 2.480247; 2.359751; 2.156363;, - 2.362625; 2.366639; 2.122178;, - 2.474800; 2.528689; 2.099228;, - 2.362625; 2.366639; 2.122178;, - 2.480247; 2.359751; 2.156363;, - 2.368072; 2.197701; 2.179312;, - 2.357177; 2.535577; 2.065043;, - 2.474800; 2.528689; 2.099228;, - 2.362625; 2.366639; 2.122178;, - 0.498466; 2.191785; 2.184912;, - -1.371140; 2.185869; 2.190513;, - -1.359624; 2.355204; 2.133379;, - -1.359624; 2.355204; 2.133379;, - 0.509982; 2.361120; 2.127778;, - 0.498466; 2.191785; 2.184912;, - 0.509982; 2.361120; 2.127778;, - -1.359624; 2.355204; 2.133379;, - -1.348108; 2.524538; 2.076244;, - 2.368072; 2.197701; 2.179312;, - 0.498466; 2.191785; 2.184912;, - 0.509982; 2.361120; 2.127778;, - 2.362625; 2.366639; 2.122178;, - 2.368072; 2.197701; 2.179312;, - 0.509982; 2.361120; 2.127778;, - 0.509982; 2.361120; 2.127778;, - 0.504534; 2.530057; 2.070643;, - 2.362625; 2.366639; 2.122178;, - 0.504534; 2.530057; 2.070643;, - 0.509982; 2.361120; 2.127778;, - -1.348108; 2.524538; 2.076244;, - 2.357177; 2.535577; 2.065043;, - 2.362625; 2.366639; 2.122178;, - 0.504534; 2.530057; 2.070643;, - 3.892406; 2.479743; 1.409804;, - 3.919606; 2.272636; 1.447538;, - 4.128956; 2.474065; 1.286560;, - 4.128956; 2.474065; 1.286560;, - 4.101757; 2.681172; 1.248826;, - 3.892406; 2.479743; 1.409804;, - 4.101757; 2.681172; 1.248826;, - 4.128956; 2.474065; 1.286560;, - 4.338306; 2.675495; 1.125582;, - 3.865207; 2.686849; 1.372070;, - 3.892406; 2.479743; 1.409804;, - 4.101757; 2.681172; 1.248826;, - 4.128956; 2.474065; 1.286560;, - 3.919606; 2.272636; 1.447538;, - 4.166247; 2.270047; 1.316247;, - 4.166247; 2.270047; 1.316247;, - 4.375597; 2.471477; 1.155268;, - 4.128956; 2.474065; 1.286560;, - 4.375597; 2.471477; 1.155268;, - 4.166247; 2.270047; 1.316247;, - 4.412888; 2.267458; 1.184955;, - 4.338306; 2.675495; 1.125582;, - 4.128956; 2.474065; 1.286560;, - 4.375597; 2.471477; 1.155268;, - 3.518369; 2.686851; 1.372229;, - 3.171532; 2.686853; 1.372387;, - 3.188736; 2.479743; 1.410131;, - 3.188736; 2.479743; 1.410131;, - 3.535574; 2.479742; 1.409972;, - 3.518369; 2.686851; 1.372229;, - 3.535574; 2.479742; 1.409972;, - 3.188736; 2.479743; 1.410131;, - 3.205941; 2.272634; 1.447875;, - 3.865207; 2.686849; 1.372070;, - 3.518369; 2.686851; 1.372229;, - 3.535574; 2.479742; 1.409972;, - 3.892406; 2.479743; 1.409804;, - 3.865207; 2.686849; 1.372070;, - 3.535574; 2.479742; 1.409972;, - 3.535574; 2.479742; 1.409972;, - 3.562773; 2.272635; 1.447706;, - 3.892406; 2.479743; 1.409804;, - 3.562773; 2.272635; 1.447706;, - 3.535574; 2.479742; 1.409972;, - 3.205941; 2.272634; 1.447875;, - 3.919606; 2.272636; 1.447538;, - 3.892406; 2.479743; 1.409804;, - 3.562773; 2.272635; 1.447706;, - 2.204010; 2.402429;-0.031039;, - 2.210212; 2.243752;-0.038860;, - 2.326958; 2.415686;-0.006422;, - 2.326958; 2.415686;-0.006422;, - 2.320756; 2.574363; 0.001399;, - 2.204010; 2.402429;-0.031039;, - 2.320756; 2.574363; 0.001399;, - 2.326958; 2.415686;-0.006422;, - 2.443704; 2.587619; 0.026016;, - 2.197808; 2.561106;-0.023218;, - 2.204010; 2.402429;-0.031039;, - 2.320756; 2.574363; 0.001399;, - 2.326958; 2.415686;-0.006422;, - 2.210212; 2.243752;-0.038860;, - 2.334229; 2.237697;-0.012635;, - 2.334229; 2.237697;-0.012635;, - 2.450975; 2.409631; 0.019803;, - 2.326958; 2.415686;-0.006422;, - 2.450975; 2.409631; 0.019803;, - 2.334229; 2.237697;-0.012635;, - 2.458246; 2.231642; 0.013590;, - 2.443704; 2.587619; 0.026016;, - 2.326958; 2.415686;-0.006422;, - 2.450975; 2.409631; 0.019803;, - -1.366187; 2.392354;-0.012796;, - -1.377731; 2.228666;-0.019418;, - 0.416241; 2.236209;-0.029139;, - 0.416241; 2.236209;-0.029139;, - 0.427785; 2.399898;-0.022517;, - -1.366187; 2.392354;-0.012796;, - 0.427785; 2.399898;-0.022517;, - 0.416241; 2.236209;-0.029139;, - 2.210212; 2.243752;-0.038860;, - -1.354643; 2.556043;-0.006174;, - -1.366187; 2.392354;-0.012796;, - 0.427785; 2.399898;-0.022517;, - 0.421583; 2.558574;-0.014696;, - -1.354643; 2.556043;-0.006174;, - 0.427785; 2.399898;-0.022517;, - 0.427785; 2.399898;-0.022517;, - 2.204010; 2.402429;-0.031039;, - 0.421583; 2.558574;-0.014696;, - 2.204010; 2.402429;-0.031039;, - 0.427785; 2.399898;-0.022517;, - 2.210212; 2.243752;-0.038860;, - 2.197808; 2.561106;-0.023218;, - 0.421583; 2.558574;-0.014696;, - 2.204010; 2.402429;-0.031039;, - -2.566489; 2.407665;-0.015627;, - -2.587394; 2.228666;-0.023004;, - -1.982563; 2.228666;-0.021211;, - -1.982563; 2.228666;-0.021211;, - -1.961657; 2.407665;-0.013834;, - -2.566489; 2.407665;-0.015627;, - -1.961657; 2.407665;-0.013834;, - -1.982563; 2.228666;-0.021211;, - -1.377731; 2.228666;-0.019418;, - -2.545583; 2.586664;-0.008251;, - -2.566489; 2.407665;-0.015627;, - -1.961657; 2.407665;-0.013834;, - -1.950113; 2.571353;-0.007213;, - -2.545583; 2.586664;-0.008251;, - -1.961657; 2.407665;-0.013834;, - -1.961657; 2.407665;-0.013834;, - -1.366187; 2.392354;-0.012796;, - -1.950113; 2.571353;-0.007213;, - -1.366187; 2.392354;-0.012796;, - -1.961657; 2.407665;-0.013834;, - -1.377731; 2.228666;-0.019418;, - -1.354643; 2.556043;-0.006174;, - -1.950113; 2.571353;-0.007213;, - -1.366187; 2.392354;-0.012796;, - -2.656662; 2.407665; 0.035854;, - -2.677959; 2.228666; 0.030106;, - -2.632677; 2.228666; 0.003551;, - -2.632677; 2.228666; 0.003551;, - -2.611380; 2.407665; 0.009299;, - -2.656662; 2.407665; 0.035854;, - -2.611380; 2.407665; 0.009299;, - -2.632677; 2.228666; 0.003551;, - -2.587394; 2.228666;-0.023004;, - -2.635366; 2.586664; 0.041603;, - -2.656662; 2.407665; 0.035854;, - -2.611380; 2.407665; 0.009299;, - -2.590475; 2.586664; 0.016676;, - -2.635366; 2.586664; 0.041603;, - -2.611380; 2.407665; 0.009299;, - -2.611380; 2.407665; 0.009299;, - -2.566489; 2.407665;-0.015627;, - -2.590475; 2.586664; 0.016676;, - -2.566489; 2.407665;-0.015627;, - -2.611380; 2.407665; 0.009299;, - -2.587394; 2.228666;-0.023004;, - -2.545583; 2.586664;-0.008251;, - -2.590475; 2.586664; 0.016676;, - -2.566489; 2.407665;-0.015627;, - -2.674697; 2.445788; 0.705112;, - -2.696071; 2.253952; 0.720523;, - -2.665719; 2.420308; 0.381063;, - -2.665719; 2.420308; 0.381063;, - -2.644345; 2.612144; 0.365652;, - -2.674697; 2.445788; 0.705112;, - -2.644345; 2.612144; 0.365652;, - -2.665719; 2.420308; 0.381063;, - -2.635366; 2.586664; 0.041603;, - -2.653324; 2.637625; 0.689701;, - -2.674697; 2.445788; 0.705112;, - -2.644345; 2.612144; 0.365652;, - -2.665719; 2.420308; 0.381063;, - -2.696071; 2.253952; 0.720523;, - -2.687015; 2.241309; 0.375315;, - -2.687015; 2.241309; 0.375315;, - -2.656662; 2.407665; 0.035854;, - -2.665719; 2.420308; 0.381063;, - -2.656662; 2.407665; 0.035854;, - -2.687015; 2.241309; 0.375315;, - -2.677959; 2.228666; 0.030106;, - -2.635366; 2.586664; 0.041603;, - -2.665719; 2.420308; 0.381063;, - -2.656662; 2.407665; 0.035854;, - -2.873079; 2.477772; 1.168444;, - -2.895311; 2.271972; 1.198504;, - -2.795691; 2.262962; 0.959513;, - -2.795691; 2.262962; 0.959513;, - -2.773459; 2.468762; 0.929453;, - -2.873079; 2.477772; 1.168444;, - -2.773459; 2.468762; 0.929453;, - -2.795691; 2.262962; 0.959513;, - -2.696071; 2.253952; 0.720523;, - -2.850847; 2.683573; 1.138384;, - -2.873079; 2.477772; 1.168444;, - -2.773459; 2.468762; 0.929453;, - -2.752085; 2.660599; 0.914042;, - -2.850847; 2.683573; 1.138384;, - -2.773459; 2.468762; 0.929453;, - -2.773459; 2.468762; 0.929453;, - -2.674697; 2.445788; 0.705112;, - -2.752085; 2.660599; 0.914042;, - -2.674697; 2.445788; 0.705112;, - -2.773459; 2.468762; 0.929453;, - -2.696071; 2.253952; 0.720523;, - -2.653324; 2.637625; 0.689701;, - -2.752085; 2.660599; 0.914042;, - -2.674697; 2.445788; 0.705112;, - -2.413978; 2.193507; 2.159497;, - -3.456816; 2.201145; 2.128482;, - -3.435367; 2.393888; 2.072636;, - -3.435367; 2.393888; 2.072636;, - -2.392529; 2.386250; 2.103651;, - -2.413978; 2.193507; 2.159497;, - -2.392529; 2.386250; 2.103651;, - -3.435367; 2.393888; 2.072636;, - -3.413917; 2.586632; 2.016789;, - -1.371140; 2.185869; 2.190513;, - -2.413978; 2.193507; 2.159497;, - -2.392529; 2.386250; 2.103651;, - -1.359624; 2.355204; 2.133379;, - -1.371140; 2.185869; 2.190513;, - -2.392529; 2.386250; 2.103651;, - -2.392529; 2.386250; 2.103651;, - -2.381012; 2.555585; 2.046516;, - -1.359624; 2.355204; 2.133379;, - -2.381012; 2.555585; 2.046516;, - -2.392529; 2.386250; 2.103651;, - -3.413917; 2.586632; 2.016789;, - -1.348108; 2.524538; 2.076244;, - -1.359624; 2.355204; 2.133379;, - -2.381012; 2.555585; 2.046516;, - -3.754229; 2.204927; 2.113123;, - -4.051642; 2.208710; 2.097764;, - -4.028534; 2.405759; 2.042726;, - -4.028534; 2.405759; 2.042726;, - -3.731121; 2.401977; 2.058084;, - -3.754229; 2.204927; 2.113123;, - -3.731121; 2.401977; 2.058084;, - -4.028534; 2.405759; 2.042726;, - -4.005426; 2.602808; 1.987687;, - -3.456816; 2.201145; 2.128482;, - -3.754229; 2.204927; 2.113123;, - -3.731121; 2.401977; 2.058084;, - -3.435367; 2.393888; 2.072636;, - -3.456816; 2.201145; 2.128482;, - -3.731121; 2.401977; 2.058084;, - -3.731121; 2.401977; 2.058084;, - -3.709671; 2.594720; 2.002238;, - -3.435367; 2.393888; 2.072636;, - -3.709671; 2.594720; 2.002238;, - -3.731121; 2.401977; 2.058084;, - -4.005426; 2.602808; 1.987687;, - -3.413917; 2.586632; 2.016789;, - -3.435367; 2.393888; 2.072636;, - -3.709671; 2.594720; 2.002238;, - -5.826108; 2.333943; 0.078064;, - -5.850445; 2.228666; 0.078064;, - -5.817328; 2.228666; 0.078531;, - -5.817328; 2.228666; 0.078531;, - -5.792991; 2.333943; 0.078530;, - -5.826108; 2.333943; 0.078064;, - -5.792991; 2.333943; 0.078530;, - -5.817328; 2.228666; 0.078531;, - -5.784211; 2.228666; 0.078997;, - -5.801771; 2.439220; 0.078064;, - -5.826108; 2.333943; 0.078064;, - -5.792991; 2.333943; 0.078530;, - -5.769872; 2.443753; 0.078531;, - -5.801771; 2.439220; 0.078064;, - -5.792991; 2.333943; 0.078530;, - -5.792991; 2.333943; 0.078530;, - -5.761092; 2.338477; 0.078997;, - -5.769872; 2.443753; 0.078531;, - -5.761092; 2.338477; 0.078997;, - -5.792991; 2.333943; 0.078530;, - -5.784211; 2.228666; 0.078997;, - -5.737973; 2.448287; 0.078997;, - -5.769872; 2.443753; 0.078531;, - -5.761092; 2.338477; 0.078997;, - -5.761092; 2.338477; 0.078997;, - -5.784211; 2.228666; 0.078997;, - -5.620515; 2.228666; 0.081303;, - -5.620515; 2.228666; 0.081303;, - -5.597396; 2.338477; 0.081304;, - -5.761092; 2.338477; 0.078997;, - -5.597396; 2.338477; 0.081304;, - -5.620515; 2.228666; 0.081303;, - -5.456819; 2.228666; 0.083610;, - -5.737973; 2.448287; 0.078997;, - -5.761092; 2.338477; 0.078997;, - -5.597396; 2.338477; 0.081304;, - -5.581577; 2.517397; 0.081303;, - -5.737973; 2.448287; 0.078997;, - -5.597396; 2.338477; 0.081304;, - -5.597396; 2.338477; 0.081304;, - -5.441000; 2.407587; 0.083609;, - -5.581577; 2.517397; 0.081303;, - -5.441000; 2.407587; 0.083609;, - -5.597396; 2.338477; 0.081304;, - -5.456819; 2.228666; 0.083610;, - -5.425181; 2.586507; 0.083609;, - -5.581577; 2.517397; 0.081303;, - -5.441000; 2.407587; 0.083609;, - -5.441000; 2.407587; 0.083609;, - -5.456819; 2.228666; 0.083610;, - -5.183640; 2.228666; 0.092264;, - -5.183640; 2.228666; 0.092264;, - -5.167820; 2.407587; 0.092264;, - -5.441000; 2.407587; 0.083609;, - -5.167820; 2.407587; 0.092264;, - -5.183640; 2.228666; 0.092264;, - -4.910460; 2.228666; 0.100918;, - -5.425181; 2.586507; 0.083609;, - -5.441000; 2.407587; 0.083609;, - -5.167820; 2.407587; 0.092264;, - -5.128276; 2.586586; 0.095842;, - -5.425181; 2.586507; 0.083609;, - -5.167820; 2.407587; 0.092264;, - -5.167820; 2.407587; 0.092264;, - -4.870916; 2.407665; 0.104497;, - -5.128276; 2.586586; 0.095842;, - -4.870916; 2.407665; 0.104497;, - -5.167820; 2.407587; 0.092264;, - -4.910460; 2.228666; 0.100918;, - -4.831372; 2.586664; 0.108075;, - -5.128276; 2.586586; 0.095842;, - -4.870916; 2.407665; 0.104497;, - 4.954692; 2.534691; 0.325119;, - 4.601846; 2.560107; 0.318638;, - 4.652743; 2.388022; 0.318002;, - 4.652743; 2.388022; 0.318002;, - 5.005589; 2.362606; 0.324483;, - 4.954692; 2.534691; 0.325119;, - 5.005589; 2.362606; 0.324483;, - 4.652743; 2.388022; 0.318002;, - 4.703641; 2.215937; 0.317365;, - 5.307537; 2.509275; 0.331600;, - 4.954692; 2.534691; 0.325119;, - 5.005589; 2.362606; 0.324483;, - 5.393441; 2.351290; 0.332454;, - 5.307537; 2.509275; 0.331600;, - 5.005589; 2.362606; 0.324483;, - 5.005589; 2.362606; 0.324483;, - 5.091493; 2.204621; 0.325337;, - 5.393441; 2.351290; 0.332454;, - 5.091493; 2.204621; 0.325337;, - 5.005589; 2.362606; 0.324483;, - 4.703641; 2.215937; 0.317365;, - 5.479345; 2.193305; 0.333308;, - 5.393441; 2.351290; 0.332454;, - 5.091493; 2.204621; 0.325337;, - 4.563090; 2.562899; 0.326770;, - 4.524335; 2.565691; 0.334902;, - 4.571230; 2.392061; 0.334796;, - 4.571230; 2.392061; 0.334796;, - 4.609986; 2.389269; 0.326665;, - 4.563090; 2.562899; 0.326770;, - 4.609986; 2.389269; 0.326665;, - 4.571230; 2.392061; 0.334796;, - 4.618126; 2.218432; 0.334691;, - 4.601846; 2.560107; 0.318638;, - 4.563090; 2.562899; 0.326770;, - 4.609986; 2.389269; 0.326665;, - 4.652743; 2.388022; 0.318002;, - 4.601846; 2.560107; 0.318638;, - 4.609986; 2.389269; 0.326665;, - 4.609986; 2.389269; 0.326665;, - 4.660883; 2.217185; 0.326028;, - 4.652743; 2.388022; 0.318002;, - 4.660883; 2.217185; 0.326028;, - 4.609986; 2.389269; 0.326665;, - 4.618126; 2.218432; 0.334691;, - 4.703641; 2.215937; 0.317365;, - 4.652743; 2.388022; 0.318002;, - 4.660883; 2.217185; 0.326028;, - 4.554927; 2.429603; 0.697693;, - 4.601022; 2.243308; 0.712912;, - 4.562678; 2.404500; 0.523907;, - 4.562678; 2.404500; 0.523907;, - 4.516583; 2.590794; 0.508687;, - 4.554927; 2.429603; 0.697693;, - 4.516583; 2.590794; 0.508687;, - 4.562678; 2.404500; 0.523907;, - 4.524335; 2.565691; 0.334902;, - 4.508832; 2.615897; 0.682473;, - 4.554927; 2.429603; 0.697693;, - 4.516583; 2.590794; 0.508687;, - 4.562678; 2.404500; 0.523907;, - 4.601022; 2.243308; 0.712912;, - 4.609574; 2.230870; 0.523802;, - 4.609574; 2.230870; 0.523802;, - 4.571230; 2.392061; 0.334796;, - 4.562678; 2.404500; 0.523907;, - 4.571230; 2.392061; 0.334796;, - 4.609574; 2.230870; 0.523802;, - 4.618126; 2.218432; 0.334691;, - 4.524335; 2.565691; 0.334902;, - 4.562678; 2.404500; 0.523907;, - 4.571230; 2.392061; 0.334796;, - 4.375597; 2.471477; 1.155268;, - 4.412888; 2.267458; 1.184955;, - 4.460860; 2.441678; 0.933714;, - 4.460860; 2.441678; 0.933714;, - 4.423569; 2.645696; 0.904027;, - 4.375597; 2.471477; 1.155268;, - 4.423569; 2.645696; 0.904027;, - 4.460860; 2.441678; 0.933714;, - 4.508832; 2.615897; 0.682473;, - 4.338306; 2.675495; 1.125582;, - 4.375597; 2.471477; 1.155268;, - 4.423569; 2.645696; 0.904027;, - 4.460860; 2.441678; 0.933714;, - 4.412888; 2.267458; 1.184955;, - 4.506955; 2.255383; 0.948933;, - 4.506955; 2.255383; 0.948933;, - 4.554927; 2.429603; 0.697693;, - 4.460860; 2.441678; 0.933714;, - 4.554927; 2.429603; 0.697693;, - 4.506955; 2.255383; 0.948933;, - 4.601022; 2.243308; 0.712912;, - 4.508832; 2.615897; 0.682473;, - 4.460860; 2.441678; 0.933714;, - 4.554927; 2.429603; 0.697693;, - -4.891660; 2.237650; 0.419572;, - -4.872859; 2.246635; 0.738226;, - -4.852116; 2.416649; 0.423151;, - -4.852116; 2.416649; 0.423151;, - -4.870916; 2.407665; 0.104497;, - -4.891660; 2.237650; 0.419572;, - -4.870916; 2.407665; 0.104497;, - -4.852116; 2.416649; 0.423151;, - -4.831372; 2.586664; 0.108075;, - -4.910460; 2.228666; 0.100918;, - -4.891660; 2.237650; 0.419572;, - -4.870916; 2.407665; 0.104497;, - -4.852116; 2.416649; 0.423151;, - -4.872859; 2.246635; 0.738226;, - -4.833982; 2.435788; 0.722273;, - -4.833982; 2.435788; 0.722273;, - -4.813238; 2.605803; 0.407197;, - -4.852116; 2.416649; 0.423151;, - -4.813238; 2.605803; 0.407197;, - -4.833982; 2.435788; 0.722273;, - -4.795105; 2.624941; 0.706319;, - -4.831372; 2.586664; 0.108075;, - -4.852116; 2.416649; 0.423151;, - -4.813238; 2.605803; 0.407197;, - -4.750654; 2.255230; 0.986068;, - -4.628449; 2.263825; 1.233910;, - -4.711777; 2.444383; 0.970114;, - -4.711777; 2.444383; 0.970114;, - -4.833982; 2.435788; 0.722273;, - -4.750654; 2.255230; 0.986068;, - -4.833982; 2.435788; 0.722273;, - -4.711777; 2.444383; 0.970114;, - -4.795105; 2.624941; 0.706319;, - -4.872859; 2.246635; 0.738226;, - -4.750654; 2.255230; 0.986068;, - -4.833982; 2.435788; 0.722273;, - -4.711777; 2.444383; 0.970114;, - -4.628449; 2.263825; 1.233910;, - -4.593908; 2.466269; 1.202765;, - -4.593908; 2.466269; 1.202765;, - -4.677237; 2.646827; 0.938969;, - -4.711777; 2.444383; 0.970114;, - -4.677237; 2.646827; 0.938969;, - -4.593908; 2.466269; 1.202765;, - -4.559368; 2.668713; 1.171620;, - -4.795105; 2.624941; 0.706319;, - -4.711777; 2.444383; 0.970114;, - -4.677237; 2.646827; 0.938969;, - -4.593908; 2.466269; 1.202765;, - -4.628449; 2.263825; 1.233910;, - -4.377715; 2.268070; 1.366683;, - -4.377715; 2.268070; 1.366683;, - -4.343174; 2.470514; 1.335537;, - -4.593908; 2.466269; 1.202765;, - -4.343174; 2.470514; 1.335537;, - -4.377715; 2.268070; 1.366683;, - -4.126981; 2.272314; 1.499455;, - -4.559368; 2.668713; 1.171620;, - -4.593908; 2.466269; 1.202765;, - -4.343174; 2.470514; 1.335537;, - -4.315636; 2.677501; 1.296254;, - -4.559368; 2.668713; 1.171620;, - -4.343174; 2.470514; 1.335537;, - -4.343174; 2.470514; 1.335537;, - -4.099442; 2.479301; 1.460171;, - -4.315636; 2.677501; 1.296254;, - -4.099442; 2.479301; 1.460171;, - -4.343174; 2.470514; 1.335537;, - -4.126981; 2.272314; 1.499455;, - -4.071903; 2.686289; 1.420888;, - -4.315636; 2.677501; 1.296254;, - -4.099442; 2.479301; 1.460171;, - -4.099442; 2.479301; 1.460171;, - -4.126981; 2.272314; 1.499455;, - -3.764725; 2.272369; 1.490604;, - -3.764725; 2.272369; 1.490604;, - -3.737186; 2.479357; 1.451320;, - -4.099442; 2.479301; 1.460171;, - -3.737186; 2.479357; 1.451320;, - -3.764725; 2.272369; 1.490604;, - -3.402469; 2.272424; 1.481753;, - -4.071903; 2.686289; 1.420888;, - -4.099442; 2.479301; 1.460171;, - -3.737186; 2.479357; 1.451320;, - -3.712769; 2.686406; 1.412579;, - -4.071903; 2.686289; 1.420888;, - -3.737186; 2.479357; 1.451320;, - -3.737186; 2.479357; 1.451320;, - -3.378052; 2.479473; 1.443012;, - -3.712769; 2.686406; 1.412579;, - -3.378052; 2.479473; 1.443012;, - -3.737186; 2.479357; 1.451320;, - -3.402469; 2.272424; 1.481753;, - -3.353634; 2.686522; 1.404270;, - -3.712769; 2.686406; 1.412579;, - -3.378052; 2.479473; 1.443012;, - 5.673859; 2.187629; 0.359095;, - 5.868372; 2.181954; 0.384881;, - 5.764263; 2.332915; 0.382446;, - 5.764263; 2.332915; 0.382446;, - 5.569750; 2.338591; 0.356660;, - 5.673859; 2.187629; 0.359095;, - 5.569750; 2.338591; 0.356660;, - 5.764263; 2.332915; 0.382446;, - 5.660155; 2.483876; 0.380012;, - 5.479345; 2.193305; 0.333308;, - 5.673859; 2.187629; 0.359095;, - 5.569750; 2.338591; 0.356660;, - 5.393441; 2.351290; 0.332454;, - 5.479345; 2.193305; 0.333308;, - 5.569750; 2.338591; 0.356660;, - 5.569750; 2.338591; 0.356660;, - 5.483846; 2.496575; 0.355806;, - 5.393441; 2.351290; 0.332454;, - 5.483846; 2.496575; 0.355806;, - 5.569750; 2.338591; 0.356660;, - 5.660155; 2.483876; 0.380012;, - 5.307537; 2.509275; 0.331600;, - 5.393441; 2.351290; 0.332454;, - 5.483846; 2.496575; 0.355806;, - 5.905778; 2.180863; 0.408089;, - 5.943184; 2.179772; 0.431297;, - 5.835575; 2.329381; 0.427440;, - 5.835575; 2.329381; 0.427440;, - 5.798169; 2.330472; 0.404231;, - 5.905778; 2.180863; 0.408089;, - 5.798169; 2.330472; 0.404231;, - 5.835575; 2.329381; 0.427440;, - 5.727966; 2.478991; 0.423582;, - 5.868372; 2.181954; 0.384881;, - 5.905778; 2.180863; 0.408089;, - 5.798169; 2.330472; 0.404231;, - 5.764263; 2.332915; 0.382446;, - 5.868372; 2.181954; 0.384881;, - 5.798169; 2.330472; 0.404231;, - 5.798169; 2.330472; 0.404231;, - 5.694060; 2.481433; 0.401797;, - 5.764263; 2.332915; 0.382446;, - 5.694060; 2.481433; 0.401797;, - 5.798169; 2.330472; 0.404231;, - 5.727966; 2.478991; 0.423582;, - 5.660155; 2.483876; 0.380012;, - 5.764263; 2.332915; 0.382446;, - 5.694060; 2.481433; 0.401797;, - 5.890813; 2.197143; 1.870296;, - 5.928220; 2.171380; 2.054410;, - 5.821311; 2.343925; 2.001103;, - 5.821311; 2.343925; 2.001103;, - 5.783905; 2.369688; 1.816989;, - 5.890813; 2.197143; 1.870296;, - 5.783905; 2.369688; 1.816989;, - 5.821311; 2.343925; 2.001103;, - 5.714403; 2.516470; 1.947796;, - 5.853407; 2.222906; 1.686183;, - 5.890813; 2.197143; 1.870296;, - 5.783905; 2.369688; 1.816989;, - 5.749999; 2.400273; 1.640532;, - 5.853407; 2.222906; 1.686183;, - 5.783905; 2.369688; 1.816989;, - 5.783905; 2.369688; 1.816989;, - 5.680497; 2.547055; 1.771338;, - 5.749999; 2.400273; 1.640532;, - 5.680497; 2.547055; 1.771338;, - 5.783905; 2.369688; 1.816989;, - 5.714403; 2.516470; 1.947796;, - 5.646591; 2.577640; 1.594881;, - 5.749999; 2.400273; 1.640532;, - 5.680497; 2.547055; 1.771338;, - 5.868370; 2.156589; 2.124668;, - 5.808521; 2.141797; 2.194925;, - 5.707213; 2.298059; 2.137311;, - 5.707213; 2.298059; 2.137311;, - 5.767063; 2.312850; 2.067054;, - 5.868370; 2.156589; 2.124668;, - 5.767063; 2.312850; 2.067054;, - 5.707213; 2.298059; 2.137311;, - 5.605906; 2.454320; 2.079698;, - 5.928220; 2.171380; 2.054410;, - 5.868370; 2.156589; 2.124668;, - 5.767063; 2.312850; 2.067054;, - 5.821311; 2.343925; 2.001103;, - 5.928220; 2.171380; 2.054410;, - 5.767063; 2.312850; 2.067054;, - 5.767063; 2.312850; 2.067054;, - 5.660154; 2.485395; 2.013747;, - 5.821311; 2.343925; 2.001103;, - 5.660154; 2.485395; 2.013747;, - 5.767063; 2.312850; 2.067054;, - 5.605906; 2.454320; 2.079698;, - 5.714403; 2.516470; 1.947796;, - 5.821311; 2.343925; 2.001103;, - 5.660154; 2.485395; 2.013747;, - -4.619325; 2.212226; 2.055669;, - -5.187008; 2.215742; 2.013574;, - -5.130795; 2.392015; 1.959134;, - -5.130795; 2.392015; 1.959134;, - -4.563112; 2.388498; 2.001230;, - -4.619325; 2.212226; 2.055669;, - -4.563112; 2.388498; 2.001230;, - -5.130795; 2.392015; 1.959134;, - -5.074582; 2.568287; 1.904695;, - -4.051642; 2.208710; 2.097764;, - -4.619325; 2.212226; 2.055669;, - -4.563112; 2.388498; 2.001230;, - -4.028534; 2.405759; 2.042726;, - -4.051642; 2.208710; 2.097764;, - -4.563112; 2.388498; 2.001230;, - -4.563112; 2.388498; 2.001230;, - -4.540004; 2.585547; 1.946191;, - -4.028534; 2.405759; 2.042726;, - -4.540004; 2.585547; 1.946191;, - -4.563112; 2.388498; 2.001230;, - -5.074582; 2.568287; 1.904695;, - -4.005426; 2.602808; 1.987687;, - -4.028534; 2.405759; 2.042726;, - -4.540004; 2.585547; 1.946191;, - -5.130795; 2.392015; 1.959134;, - -5.187008; 2.215742; 2.013574;, - -5.225222; 2.377841; 1.870178;, - -5.225222; 2.377841; 1.870178;, - -5.169009; 2.554113; 1.815739;, - -5.130795; 2.392015; 1.959134;, - -5.169009; 2.554113; 1.815739;, - -5.225222; 2.377841; 1.870178;, - -5.263436; 2.539939; 1.726783;, - -5.074582; 2.568287; 1.904695;, - -5.130795; 2.392015; 1.959134;, - -5.169009; 2.554113; 1.815739;, - -5.225222; 2.377841; 1.870178;, - -5.187008; 2.215742; 2.013574;, - -5.285211; 2.181579; 1.920136;, - -5.285211; 2.181579; 1.920136;, - -5.323425; 2.343677; 1.776741;, - -5.225222; 2.377841; 1.870178;, - -5.323425; 2.343677; 1.776741;, - -5.285211; 2.181579; 1.920136;, - -5.383414; 2.147416; 1.826698;, - -5.263436; 2.539939; 1.726783;, - -5.225222; 2.377841; 1.870178;, - -5.323425; 2.343677; 1.776741;, - -5.323425; 2.343677; 1.776741;, - -5.383414; 2.147416; 1.826698;, - -5.509350; 2.193274; 1.569087;, - -5.509350; 2.193274; 1.569087;, - -5.449361; 2.389536; 1.519129;, - -5.323425; 2.343677; 1.776741;, - -5.449361; 2.389536; 1.519129;, - -5.509350; 2.193274; 1.569087;, - -5.635287; 2.239133; 1.311475;, - -5.263436; 2.539939; 1.726783;, - -5.323425; 2.343677; 1.776741;, - -5.449361; 2.389536; 1.519129;, - -5.402038; 2.523783; 1.484962;, - -5.263436; 2.539939; 1.726783;, - -5.449361; 2.389536; 1.519129;, - -5.449361; 2.389536; 1.519129;, - -5.587963; 2.373380; 1.277308;, - -5.402038; 2.523783; 1.484962;, - -5.587963; 2.373380; 1.277308;, - -5.449361; 2.389536; 1.519129;, - -5.635287; 2.239133; 1.311475;, - -5.540639; 2.507627; 1.243142;, - -5.402038; 2.523783; 1.484962;, - -5.587963; 2.373380; 1.277308;, - -5.587963; 2.373380; 1.277308;, - -5.635287; 2.239133; 1.311475;, - -5.653626; 2.326477; 1.050143;, - -5.653626; 2.326477; 1.050143;, - -5.606302; 2.460724; 1.015977;, - -5.587963; 2.373380; 1.277308;, - -5.606302; 2.460724; 1.015977;, - -5.653626; 2.326477; 1.050143;, - -5.671966; 2.413821; 0.788812;, - -5.540639; 2.507627; 1.243142;, - -5.587963; 2.373380; 1.277308;, - -5.606302; 2.460724; 1.015977;, - -5.653626; 2.326477; 1.050143;, - -5.635287; 2.239133; 1.311475;, - -5.714040; 2.236479; 1.069476;, - -5.714040; 2.236479; 1.069476;, - -5.732379; 2.323823; 0.808145;, - -5.653626; 2.326477; 1.050143;, - -5.732379; 2.323823; 0.808145;, - -5.714040; 2.236479; 1.069476;, - -5.792793; 2.233825; 0.827478;, - -5.671966; 2.413821; 0.788812;, - -5.653626; 2.326477; 1.050143;, - -5.732379; 2.323823; 0.808145;, - -5.892599; 2.231864; 0.827478;, - -5.992406; 2.229904; 0.827478;, - -5.965656; 2.326229; 0.827478;, - -5.965656; 2.326229; 0.827478;, - -5.865849; 2.328190; 0.827478;, - -5.892599; 2.231864; 0.827478;, - -5.865849; 2.328190; 0.827478;, - -5.965656; 2.326229; 0.827478;, - -5.938906; 2.422554; 0.827478;, - -5.792793; 2.233825; 0.827478;, - -5.892599; 2.231864; 0.827478;, - -5.865849; 2.328190; 0.827478;, - -5.732379; 2.323823; 0.808145;, - -5.792793; 2.233825; 0.827478;, - -5.865849; 2.328190; 0.827478;, - -5.865849; 2.328190; 0.827478;, - -5.805436; 2.418187; 0.808145;, - -5.732379; 2.323823; 0.808145;, - -5.805436; 2.418187; 0.808145;, - -5.865849; 2.328190; 0.827478;, - -5.938906; 2.422554; 0.827478;, - -5.671966; 2.413821; 0.788812;, - -5.732379; 2.323823; 0.808145;, - -5.805436; 2.418187; 0.808145;, - -5.965656; 2.326229; 0.827478;, - -5.992406; 2.229904; 0.827478;, - -5.995847; 2.320526; 0.788446;, - -5.995847; 2.320526; 0.788446;, - -5.969097; 2.416852; 0.788446;, - -5.965656; 2.326229; 0.827478;, - -5.969097; 2.416852; 0.788446;, - -5.995847; 2.320526; 0.788446;, - -5.999288; 2.411149; 0.749414;, - -5.938906; 2.422554; 0.827478;, - -5.965656; 2.326229; 0.827478;, - -5.969097; 2.416852; 0.788446;, - -5.995847; 2.320526; 0.788446;, - -5.992406; 2.229904; 0.827478;, - -6.023954; 2.229285; 0.788446;, - -6.023954; 2.229285; 0.788446;, - -6.027395; 2.319907; 0.749414;, - -5.995847; 2.320526; 0.788446;, - -6.027395; 2.319907; 0.749414;, - -6.023954; 2.229285; 0.788446;, - -6.055502; 2.228666; 0.749414;, - -5.999288; 2.411149; 0.749414;, - -5.995847; 2.320526; 0.788446;, - -6.027395; 2.319907; 0.749414;, - -5.826108; 2.333943; 0.078064;, - -5.801771; 2.439220; 0.078064;, - -5.900530; 2.425184; 0.413739;, - -5.900530; 2.425184; 0.413739;, - -5.924867; 2.319907; 0.413739;, - -5.826108; 2.333943; 0.078064;, - -5.924867; 2.319907; 0.413739;, - -5.900530; 2.425184; 0.413739;, - -5.999288; 2.411149; 0.749414;, - -5.850445; 2.228666; 0.078064;, - -5.826108; 2.333943; 0.078064;, - -5.924867; 2.319907; 0.413739;, - -5.952973; 2.228666; 0.413739;, - -5.850445; 2.228666; 0.078064;, - -5.924867; 2.319907; 0.413739;, - -5.924867; 2.319907; 0.413739;, - -6.027395; 2.319907; 0.749414;, - -5.952973; 2.228666; 0.413739;, - -6.027395; 2.319907; 0.749414;, - -5.924867; 2.319907; 0.413739;, - -5.999288; 2.411149; 0.749414;, - -6.055502; 2.228666; 0.749414;, - -5.952973; 2.228666; 0.413739;, - -6.027395; 2.319907; 0.749414;, - 2.463131; 2.613765; 0.405541;, - 2.478146; 2.639967; 0.698885;, - 2.338668; 2.625680; 0.698990;, - 2.338668; 2.625680; 0.698990;, - 2.323653; 2.599478; 0.405645;, - 2.463131; 2.613765; 0.405541;, - 2.323653; 2.599478; 0.405645;, - 2.338668; 2.625680; 0.698990;, - 2.199190; 2.611393; 0.699094;, - 2.448116; 2.587563; 0.112197;, - 2.463131; 2.613765; 0.405541;, - 2.323653; 2.599478; 0.405645;, - 2.322929; 2.574335; 0.077312;, - 2.448116; 2.587563; 0.112197;, - 2.323653; 2.599478; 0.405645;, - 2.323653; 2.599478; 0.405645;, - 2.198466; 2.586250; 0.370761;, - 2.322929; 2.574335; 0.077312;, - 2.198466; 2.586250; 0.370761;, - 2.323653; 2.599478; 0.405645;, - 2.199190; 2.611393; 0.699094;, - 2.197742; 2.561107; 0.042428;, - 2.322929; 2.574335; 0.077312;, - 2.198466; 2.586250; 0.370761;, - 2.197775; 2.561106; 0.009605;, - 2.197808; 2.561106;-0.023218;, - 2.320756; 2.574363; 0.001399;, - 2.320756; 2.574363; 0.001399;, - 2.320723; 2.574363; 0.034222;, - 2.197775; 2.561106; 0.009605;, - 2.320723; 2.574363; 0.034222;, - 2.320756; 2.574363; 0.001399;, - 2.443704; 2.587619; 0.026016;, - 2.197742; 2.561107; 0.042428;, - 2.197775; 2.561106; 0.009605;, - 2.320723; 2.574363; 0.034222;, - 2.322929; 2.574335; 0.077312;, - 2.197742; 2.561107; 0.042428;, - 2.320723; 2.574363; 0.034222;, - 2.320723; 2.574363; 0.034222;, - 2.445910; 2.587591; 0.069106;, - 2.322929; 2.574335; 0.077312;, - 2.445910; 2.587591; 0.069106;, - 2.320723; 2.574363; 0.034222;, - 2.443704; 2.587619; 0.026016;, - 2.448116; 2.587563; 0.112197;, - 2.322929; 2.574335; 0.077312;, - 2.445910; 2.587591; 0.069106;, - 2.199014; 2.655008; 1.260337;, - 2.198979; 2.656527; 1.374054;, - 0.426332; 2.653036; 1.301435;, - 0.426332; 2.653036; 1.301435;, - 0.426368; 2.651516; 1.187719;, - 2.199014; 2.655008; 1.260337;, - 0.426368; 2.651516; 1.187719;, - 0.426332; 2.653036; 1.301435;, - -1.346314; 2.649544; 1.228817;, - 2.199050; 2.653489; 1.146621;, - 2.199014; 2.655008; 1.260337;, - 0.426368; 2.651516; 1.187719;, - 0.425471; 2.650096; 1.081317;, - 2.199050; 2.653489; 1.146621;, - 0.426368; 2.651516; 1.187719;, - 0.426368; 2.651516; 1.187719;, - -1.347211; 2.648124; 1.122416;, - 0.425471; 2.650096; 1.081317;, - -1.347211; 2.648124; 1.122416;, - 0.426368; 2.651516; 1.187719;, - -1.346314; 2.649544; 1.228817;, - -1.348108; 2.646703; 1.016014;, - 0.425471; 2.650096; 1.081317;, - -1.347211; 2.648124; 1.122416;, - 0.426332; 2.653036; 1.301435;, - 2.198979; 2.656527; 1.374054;, - 0.425435; 2.653472; 1.416366;, - 0.425435; 2.653472; 1.416366;, - -1.347211; 2.649981; 1.343748;, - 0.426332; 2.653036; 1.301435;, - -1.347211; 2.649981; 1.343748;, - 0.425435; 2.653472; 1.416366;, - -1.348108; 2.650418; 1.458679;, - -1.346314; 2.649544; 1.228817;, - 0.426332; 2.653036; 1.301435;, - -1.347211; 2.649981; 1.343748;, - 0.425435; 2.653472; 1.416366;, - 2.198979; 2.656527; 1.374054;, - 2.198936; 2.654745; 1.510052;, - 2.198936; 2.654745; 1.510052;, - 0.425393; 2.651690; 1.552364;, - 0.425435; 2.653472; 1.416366;, - 0.425393; 2.651690; 1.552364;, - 2.198936; 2.654745; 1.510052;, - 2.198893; 2.652962; 1.646050;, - -1.348108; 2.650418; 1.458679;, - 0.425435; 2.653472; 1.416366;, - 0.425393; 2.651690; 1.552364;, - -2.350871; 2.668470; 1.431474;, - -3.353634; 2.686522; 1.404270;, - -3.230474; 2.685998; 1.339141;, - -3.230474; 2.685998; 1.339141;, - -2.227711; 2.667946; 1.366345;, - -2.350871; 2.668470; 1.431474;, - -2.227711; 2.667946; 1.366345;, - -3.230474; 2.685998; 1.339141;, - -3.107314; 2.685474; 1.274011;, - -1.348108; 2.650418; 1.458679;, - -2.350871; 2.668470; 1.431474;, - -2.227711; 2.667946; 1.366345;, - -1.347211; 2.649981; 1.343748;, - -1.348108; 2.650418; 1.458679;, - -2.227711; 2.667946; 1.366345;, - -2.227711; 2.667946; 1.366345;, - -2.226814; 2.667509; 1.251414;, - -1.347211; 2.649981; 1.343748;, - -2.226814; 2.667509; 1.251414;, - -2.227711; 2.667946; 1.366345;, - -3.107314; 2.685474; 1.274011;, - -1.346314; 2.649544; 1.228817;, - -1.347211; 2.649981; 1.343748;, - -2.226814; 2.667509; 1.251414;, - -2.226814; 2.667509; 1.251414;, - -3.107314; 2.685474; 1.274011;, - -2.979081; 2.684524; 1.206198;, - -2.979081; 2.684524; 1.206198;, - -2.098580; 2.666559; 1.183600;, - -2.226814; 2.667509; 1.251414;, - -2.098580; 2.666559; 1.183600;, - -2.979081; 2.684524; 1.206198;, - -2.850847; 2.683573; 1.138384;, - -1.346314; 2.649544; 1.228817;, - -2.226814; 2.667509; 1.251414;, - -2.098580; 2.666559; 1.183600;, - -1.347211; 2.648124; 1.122416;, - -1.346314; 2.649544; 1.228817;, - -2.098580; 2.666559; 1.183600;, - -2.098580; 2.666559; 1.183600;, - -2.099478; 2.665138; 1.077199;, - -1.347211; 2.648124; 1.122416;, - -2.099478; 2.665138; 1.077199;, - -2.098580; 2.666559; 1.183600;, - -2.850847; 2.683573; 1.138384;, - -1.348108; 2.646703; 1.016014;, - -1.347211; 2.648124; 1.122416;, - -2.099478; 2.665138; 1.077199;, - -2.099478; 2.665138; 1.077199;, - -2.850847; 2.683573; 1.138384;, - -2.752085; 2.660599; 0.914042;, - -2.752085; 2.660599; 0.914042;, - -2.000716; 2.642164; 0.852857;, - -2.099478; 2.665138; 1.077199;, - -2.000716; 2.642164; 0.852857;, - -2.752085; 2.660599; 0.914042;, - -2.653324; 2.637625; 0.689701;, - -1.348108; 2.646703; 1.016014;, - -2.099478; 2.665138; 1.077199;, - -2.000716; 2.642164; 0.852857;, - -1.348108; 2.619789; 0.821900;, - -1.348108; 2.646703; 1.016014;, - -2.000716; 2.642164; 0.852857;, - -2.000716; 2.642164; 0.852857;, - -2.000716; 2.615250; 0.658743;, - -1.348108; 2.619789; 0.821900;, - -2.000716; 2.615250; 0.658743;, - -2.000716; 2.642164; 0.852857;, - -2.653324; 2.637625; 0.689701;, - -1.348108; 2.592874; 0.627785;, - -1.348108; 2.619789; 0.821900;, - -2.000716; 2.615250; 0.658743;, - -1.355659; 2.574459; 0.334576;, - -1.348108; 2.592874; 0.627785;, - -1.991737; 2.589769; 0.334694;, - -1.991737; 2.589769; 0.334694;, - -1.999289; 2.571353; 0.041484;, - -1.355659; 2.574459; 0.334576;, - -1.999289; 2.571353; 0.041484;, - -1.991737; 2.589769; 0.334694;, - -2.635366; 2.586664; 0.041603;, - -1.363211; 2.556043; 0.041366;, - -1.355659; 2.574459; 0.334576;, - -1.999289; 2.571353; 0.041484;, - -1.991737; 2.589769; 0.334694;, - -1.348108; 2.592874; 0.627785;, - -2.000716; 2.615250; 0.658743;, - -2.000716; 2.615250; 0.658743;, - -2.644345; 2.612144; 0.365652;, - -1.991737; 2.589769; 0.334694;, - -2.644345; 2.612144; 0.365652;, - -2.000716; 2.615250; 0.658743;, - -2.653324; 2.637625; 0.689701;, - -2.635366; 2.586664; 0.041603;, - -1.991737; 2.589769; 0.334694;, - -2.644345; 2.612144; 0.365652;, - 2.198466; 2.586250; 0.370761;, - 2.199190; 2.611393; 0.699094;, - 0.425541; 2.602134; 0.663440;, - 0.425541; 2.602134; 0.663440;, - 0.424817; 2.576991; 0.335107;, - 2.198466; 2.586250; 0.370761;, - 0.424817; 2.576991; 0.335107;, - 0.425541; 2.602134; 0.663440;, - -1.348108; 2.592874; 0.627785;, - 2.197742; 2.561107; 0.042428;, - 2.198466; 2.586250; 0.370761;, - 0.424817; 2.576991; 0.335107;, - 0.417265; 2.558575; 0.041897;, - 2.197742; 2.561107; 0.042428;, - 0.424817; 2.576991; 0.335107;, - 0.424817; 2.576991; 0.335107;, - -1.355659; 2.574459; 0.334576;, - 0.417265; 2.558575; 0.041897;, - -1.355659; 2.574459; 0.334576;, - 0.424817; 2.576991; 0.335107;, - -1.348108; 2.592874; 0.627785;, - -1.363211; 2.556043; 0.041366;, - 0.417265; 2.558575; 0.041897;, - -1.355659; 2.574459; 0.334576;, - -1.999289; 2.571353; 0.041484;, - -2.635366; 2.586664; 0.041603;, - -2.590475; 2.586664; 0.016676;, - -2.590475; 2.586664; 0.016676;, - -1.954397; 2.571353; 0.016557;, - -1.999289; 2.571353; 0.041484;, - -1.954397; 2.571353; 0.016557;, - -2.590475; 2.586664; 0.016676;, - -2.545583; 2.586664;-0.008251;, - -1.363211; 2.556043; 0.041366;, - -1.999289; 2.571353; 0.041484;, - -1.954397; 2.571353; 0.016557;, - -1.358927; 2.556043; 0.017596;, - -1.363211; 2.556043; 0.041366;, - -1.954397; 2.571353; 0.016557;, - -1.954397; 2.571353; 0.016557;, - -1.950113; 2.571353;-0.007213;, - -1.358927; 2.556043; 0.017596;, - -1.950113; 2.571353;-0.007213;, - -1.954397; 2.571353; 0.016557;, - -2.545583; 2.586664;-0.008251;, - -1.354643; 2.556043;-0.006174;, - -1.358927; 2.556043; 0.017596;, - -1.950113; 2.571353;-0.007213;, - 0.417265; 2.558575; 0.041897;, - -1.363211; 2.556043; 0.041366;, - -1.358927; 2.556043; 0.017596;, - -1.358927; 2.556043; 0.017596;, - 0.421549; 2.558575; 0.018127;, - 0.417265; 2.558575; 0.041897;, - 0.421549; 2.558575; 0.018127;, - -1.358927; 2.556043; 0.017596;, - -1.354643; 2.556043;-0.006174;, - 2.197742; 2.561107; 0.042428;, - 0.417265; 2.558575; 0.041897;, - 0.421549; 2.558575; 0.018127;, - 2.197775; 2.561106; 0.009605;, - 2.197742; 2.561107; 0.042428;, - 0.421549; 2.558575; 0.018127;, - 0.421549; 2.558575; 0.018127;, - 0.421583; 2.558574;-0.014696;, - 2.197775; 2.561106; 0.009605;, - 0.421583; 2.558574;-0.014696;, - 0.421549; 2.558575; 0.018127;, - -1.354643; 2.556043;-0.006174;, - 2.197808; 2.561106;-0.023218;, - 2.197775; 2.561106; 0.009605;, - 0.421583; 2.558574;-0.014696;, - 4.910719; 2.537859; 0.344464;, - 4.524335; 2.565691; 0.334902;, - 4.563090; 2.562899; 0.326770;, - 4.563090; 2.562899; 0.326770;, - 4.949474; 2.535067; 0.336332;, - 4.910719; 2.537859; 0.344464;, - 4.949474; 2.535067; 0.336332;, - 4.563090; 2.562899; 0.326770;, - 4.601846; 2.560107; 0.318638;, - 5.297103; 2.510027; 0.354027;, - 4.910719; 2.537859; 0.344464;, - 4.949474; 2.535067; 0.336332;, - 5.302320; 2.509651; 0.342813;, - 5.297103; 2.510027; 0.354027;, - 4.949474; 2.535067; 0.336332;, - 4.949474; 2.535067; 0.336332;, - 4.954692; 2.534691; 0.325119;, - 5.302320; 2.509651; 0.342813;, - 4.954692; 2.534691; 0.325119;, - 4.949474; 2.535067; 0.336332;, - 4.601846; 2.560107; 0.318638;, - 5.307537; 2.509275; 0.331600;, - 5.302320; 2.509651; 0.342813;, - 4.954692; 2.534691; 0.325119;, - 5.694060; 2.481433; 0.401797;, - 5.727966; 2.478991; 0.423582;, - 5.512534; 2.494509; 0.388804;, - 5.512534; 2.494509; 0.388804;, - 5.478629; 2.496952; 0.367020;, - 5.694060; 2.481433; 0.401797;, - 5.478629; 2.496952; 0.367020;, - 5.512534; 2.494509; 0.388804;, - 5.297103; 2.510027; 0.354027;, - 5.660155; 2.483876; 0.380012;, - 5.694060; 2.481433; 0.401797;, - 5.478629; 2.496952; 0.367020;, - 5.483846; 2.496575; 0.355806;, - 5.660155; 2.483876; 0.380012;, - 5.478629; 2.496952; 0.367020;, - 5.478629; 2.496952; 0.367020;, - 5.302320; 2.509651; 0.342813;, - 5.483846; 2.496575; 0.355806;, - 5.302320; 2.509651; 0.342813;, - 5.478629; 2.496952; 0.367020;, - 5.297103; 2.510027; 0.354027;, - 5.307537; 2.509275; 0.331600;, - 5.483846; 2.496575; 0.355806;, - 5.302320; 2.509651; 0.342813;, - 5.276972; 2.543497; 0.560283;, - 5.297103; 2.510027; 0.354027;, - 5.512534; 2.494509; 0.388804;, - 5.512534; 2.494509; 0.388804;, - 5.492403; 2.527979; 0.595060;, - 5.276972; 2.543497; 0.560283;, - 5.492403; 2.527979; 0.595060;, - 5.512534; 2.494509; 0.388804;, - 5.727966; 2.478991; 0.423582;, - 5.256840; 2.576967; 0.766538;, - 5.276972; 2.543497; 0.560283;, - 5.492403; 2.527979; 0.595060;, - 5.480756; 2.568461; 0.809360;, - 5.256840; 2.576967; 0.766538;, - 5.492403; 2.527979; 0.595060;, - 5.492403; 2.527979; 0.595060;, - 5.716319; 2.519474; 0.637882;, - 5.480756; 2.568461; 0.809360;, - 5.716319; 2.519474; 0.637882;, - 5.492403; 2.527979; 0.595060;, - 5.727966; 2.478991; 0.423582;, - 5.704672; 2.559956; 0.852181;, - 5.480756; 2.568461; 0.809360;, - 5.716319; 2.519474; 0.637882;, - 5.692049; 2.567677; 1.013596;, - 5.679426; 2.575399; 1.175011;, - 5.449390; 2.592586; 1.167588;, - 5.449390; 2.592586; 1.167588;, - 5.462013; 2.584864; 1.006173;, - 5.692049; 2.567677; 1.013596;, - 5.462013; 2.584864; 1.006173;, - 5.449390; 2.592586; 1.167588;, - 5.219354; 2.609772; 1.160166;, - 5.704672; 2.559956; 0.852181;, - 5.692049; 2.567677; 1.013596;, - 5.462013; 2.584864; 1.006173;, - 5.480756; 2.568461; 0.809360;, - 5.704672; 2.559956; 0.852181;, - 5.462013; 2.584864; 1.006173;, - 5.462013; 2.584864; 1.006173;, - 5.238097; 2.593369; 0.963352;, - 5.480756; 2.568461; 0.809360;, - 5.238097; 2.593369; 0.963352;, - 5.462013; 2.584864; 1.006173;, - 5.219354; 2.609772; 1.160166;, - 5.256840; 2.576967; 0.766538;, - 5.480756; 2.568461; 0.809360;, - 5.238097; 2.593369; 0.963352;, - 5.449390; 2.592586; 1.167588;, - 5.679426; 2.575399; 1.175011;, - 5.670999; 2.577286; 1.282776;, - 5.670999; 2.577286; 1.282776;, - 5.440963; 2.594472; 1.275353;, - 5.449390; 2.592586; 1.167588;, - 5.440963; 2.594472; 1.275353;, - 5.670999; 2.577286; 1.282776;, - 5.662572; 2.579173; 1.390540;, - 5.219354; 2.609772; 1.160166;, - 5.449390; 2.592586; 1.167588;, - 5.440963; 2.594472; 1.275353;, - 5.208551; 2.611979; 1.273616;, - 5.219354; 2.609772; 1.160166;, - 5.440963; 2.594472; 1.275353;, - 5.440963; 2.594472; 1.275353;, - 5.430160; 2.596680; 1.388803;, - 5.208551; 2.611979; 1.273616;, - 5.430160; 2.596680; 1.388803;, - 5.440963; 2.594472; 1.275353;, - 5.662572; 2.579173; 1.390540;, - 5.197748; 2.614187; 1.387066;, - 5.208551; 2.611979; 1.273616;, - 5.430160; 2.596680; 1.388803;, - 5.430160; 2.596680; 1.388803;, - 5.662572; 2.579173; 1.390540;, - 5.654582; 2.578407; 1.492711;, - 5.654582; 2.578407; 1.492711;, - 5.422170; 2.595913; 1.490973;, - 5.430160; 2.596680; 1.388803;, - 5.422170; 2.595913; 1.490973;, - 5.654582; 2.578407; 1.492711;, - 5.646591; 2.577640; 1.594881;, - 5.197748; 2.614187; 1.387066;, - 5.430160; 2.596680; 1.388803;, - 5.422170; 2.595913; 1.490973;, - 5.188928; 2.613441; 1.490973;, - 5.197748; 2.614187; 1.387066;, - 5.422170; 2.595913; 1.490973;, - 5.422170; 2.595913; 1.490973;, - 5.413350; 2.595167; 1.594881;, - 5.188928; 2.613441; 1.490973;, - 5.413350; 2.595167; 1.594881;, - 5.422170; 2.595913; 1.490973;, - 5.646591; 2.577640; 1.594881;, - 5.180108; 2.612694; 1.594881;, - 5.188928; 2.613441; 1.490973;, - 5.413350; 2.595167; 1.594881;, - 4.283742; 2.681184; 1.513528;, - 4.292134; 2.682407; 1.381005;, - 4.736121; 2.647551; 1.487943;, - 4.736121; 2.647551; 1.487943;, - 4.727729; 2.646327; 1.620466;, - 4.283742; 2.681184; 1.513528;, - 4.727729; 2.646327; 1.620466;, - 4.736121; 2.647551; 1.487943;, - 5.180108; 2.612694; 1.594881;, - 4.275350; 2.679961; 1.646050;, - 4.283742; 2.681184; 1.513528;, - 4.727729; 2.646327; 1.620466;, - 4.736121; 2.647551; 1.487943;, - 4.292134; 2.682407; 1.381005;, - 4.744941; 2.648297; 1.384036;, - 4.744941; 2.648297; 1.384036;, - 5.188928; 2.613441; 1.490973;, - 4.736121; 2.647551; 1.487943;, - 5.188928; 2.613441; 1.490973;, - 4.744941; 2.648297; 1.384036;, - 5.197748; 2.614187; 1.387066;, - 5.180108; 2.612694; 1.594881;, - 4.736121; 2.647551; 1.487943;, - 5.188928; 2.613441; 1.490973;, - 4.744941; 2.648297; 1.384036;, - 4.292134; 2.682407; 1.381005;, - 4.315220; 2.678951; 1.253294;, - 4.315220; 2.678951; 1.253294;, - 4.768027; 2.644841; 1.256324;, - 4.744941; 2.648297; 1.384036;, - 4.768027; 2.644841; 1.256324;, - 4.315220; 2.678951; 1.253294;, - 4.338306; 2.675495; 1.125582;, - 5.197748; 2.614187; 1.387066;, - 4.744941; 2.648297; 1.384036;, - 4.768027; 2.644841; 1.256324;, - 5.208551; 2.611979; 1.273616;, - 5.197748; 2.614187; 1.387066;, - 4.768027; 2.644841; 1.256324;, - 4.768027; 2.644841; 1.256324;, - 4.778830; 2.642633; 1.142874;, - 5.208551; 2.611979; 1.273616;, - 4.778830; 2.642633; 1.142874;, - 4.768027; 2.644841; 1.256324;, - 4.338306; 2.675495; 1.125582;, - 5.219354; 2.609772; 1.160166;, - 5.208551; 2.611979; 1.273616;, - 4.778830; 2.642633; 1.142874;, - 5.276972; 2.543497; 0.560283;, - 5.256840; 2.576967; 0.766538;, - 4.890588; 2.571329; 0.550720;, - 4.890588; 2.571329; 0.550720;, - 4.910719; 2.537859; 0.344464;, - 5.276972; 2.543497; 0.560283;, - 4.910719; 2.537859; 0.344464;, - 4.890588; 2.571329; 0.550720;, - 4.524335; 2.565691; 0.334902;, - 5.297103; 2.510027; 0.354027;, - 5.276972; 2.543497; 0.560283;, - 4.910719; 2.537859; 0.344464;, - 4.890588; 2.571329; 0.550720;, - 5.256840; 2.576967; 0.766538;, - 4.882836; 2.596432; 0.724506;, - 4.882836; 2.596432; 0.724506;, - 4.516583; 2.590794; 0.508687;, - 4.890588; 2.571329; 0.550720;, - 4.516583; 2.590794; 0.508687;, - 4.882836; 2.596432; 0.724506;, - 4.508832; 2.615897; 0.682473;, - 4.524335; 2.565691; 0.334902;, - 4.890588; 2.571329; 0.550720;, - 4.516583; 2.590794; 0.508687;, - 4.778830; 2.642633; 1.142874;, - 4.338306; 2.675495; 1.125582;, - 4.423569; 2.645696; 0.904027;, - 4.423569; 2.645696; 0.904027;, - 4.864093; 2.612834; 0.921319;, - 4.778830; 2.642633; 1.142874;, - 4.864093; 2.612834; 0.921319;, - 4.423569; 2.645696; 0.904027;, - 4.508832; 2.615897; 0.682473;, - 5.219354; 2.609772; 1.160166;, - 4.778830; 2.642633; 1.142874;, - 4.864093; 2.612834; 0.921319;, - 5.238097; 2.593369; 0.963352;, - 5.219354; 2.609772; 1.160166;, - 4.864093; 2.612834; 0.921319;, - 4.864093; 2.612834; 0.921319;, - 4.882836; 2.596432; 0.724506;, - 5.238097; 2.593369; 0.963352;, - 4.882836; 2.596432; 0.724506;, - 4.864093; 2.612834; 0.921319;, - 4.508832; 2.615897; 0.682473;, - 5.256840; 2.576967; 0.766538;, - 5.238097; 2.593369; 0.963352;, - 4.882836; 2.596432; 0.724506;, - 5.215110; 2.564882; 1.802406;, - 5.250111; 2.517069; 2.009931;, - 4.762731; 2.598515; 1.827991;, - 4.762731; 2.598515; 1.827991;, - 4.727729; 2.646327; 1.620466;, - 5.215110; 2.564882; 1.802406;, - 4.727729; 2.646327; 1.620466;, - 4.762731; 2.598515; 1.827991;, - 4.275350; 2.679961; 1.646050;, - 5.180108; 2.612694; 1.594881;, - 5.215110; 2.564882; 1.802406;, - 4.727729; 2.646327; 1.620466;, - 4.762731; 2.598515; 1.827991;, - 5.250111; 2.517069; 2.009931;, - 4.694864; 2.537394; 2.039367;, - 4.694864; 2.537394; 2.039367;, - 4.207484; 2.618840; 1.857427;, - 4.762731; 2.598515; 1.827991;, - 4.207484; 2.618840; 1.857427;, - 4.694864; 2.537394; 2.039367;, - 4.139618; 2.557718; 2.068803;, - 4.275350; 2.679961; 1.646050;, - 4.762731; 2.598515; 1.827991;, - 4.207484; 2.618840; 1.857427;, - 5.680497; 2.547055; 1.771338;, - 5.714403; 2.516470; 1.947796;, - 5.482257; 2.516769; 1.978863;, - 5.482257; 2.516769; 1.978863;, - 5.448351; 2.547355; 1.802406;, - 5.680497; 2.547055; 1.771338;, - 5.448351; 2.547355; 1.802406;, - 5.482257; 2.516769; 1.978863;, - 5.250111; 2.517069; 2.009931;, - 5.646591; 2.577640; 1.594881;, - 5.680497; 2.547055; 1.771338;, - 5.448351; 2.547355; 1.802406;, - 5.413350; 2.595167; 1.594881;, - 5.646591; 2.577640; 1.594881;, - 5.448351; 2.547355; 1.802406;, - 5.448351; 2.547355; 1.802406;, - 5.215110; 2.564882; 1.802406;, - 5.413350; 2.595167; 1.594881;, - 5.215110; 2.564882; 1.802406;, - 5.448351; 2.547355; 1.802406;, - 5.250111; 2.517069; 2.009931;, - 5.180108; 2.612694; 1.594881;, - 5.413350; 2.595167; 1.594881;, - 5.215110; 2.564882; 1.802406;, - 2.699866; 2.685323; 1.263231;, - 2.698003; 2.686837; 1.371264;, - 2.585935; 2.685571; 1.260463;, - 2.585935; 2.685571; 1.260463;, - 2.587798; 2.684057; 1.152429;, - 2.699866; 2.685323; 1.263231;, - 2.587798; 2.684057; 1.152429;, - 2.585935; 2.685571; 1.260463;, - 2.473867; 2.684305; 1.149661;, - 2.701728; 2.683809; 1.155197;, - 2.699866; 2.685323; 1.263231;, - 2.587798; 2.684057; 1.152429;, - 2.585935; 2.685571; 1.260463;, - 2.698003; 2.686837; 1.371264;, - 2.584885; 2.687135; 1.371052;, - 2.584885; 2.687135; 1.371052;, - 2.472817; 2.685869; 1.260250;, - 2.585935; 2.685571; 1.260463;, - 2.472817; 2.685869; 1.260250;, - 2.584885; 2.687135; 1.371052;, - 2.471767; 2.687432; 1.370840;, - 2.473867; 2.684305; 1.149661;, - 2.585935; 2.685571; 1.260463;, - 2.472817; 2.685869; 1.260250;, - 2.532073; 2.621770; 1.855546;, - 2.471767; 2.683733; 1.646050;, - 2.584868; 2.683433; 1.646050;, - 2.584868; 2.683433; 1.646050;, - 2.645174; 2.621470; 1.855546;, - 2.532073; 2.621770; 1.855546;, - 2.645174; 2.621470; 1.855546;, - 2.584868; 2.683433; 1.646050;, - 2.697969; 2.683132; 1.646050;, - 2.592379; 2.559808; 2.065043;, - 2.532073; 2.621770; 1.855546;, - 2.645174; 2.621470; 1.855546;, - 2.691420; 2.559685; 2.065265;, - 2.592379; 2.559808; 2.065043;, - 2.645174; 2.621470; 1.855546;, - 2.645174; 2.621470; 1.855546;, - 2.744215; 2.621346; 1.855768;, - 2.691420; 2.559685; 2.065265;, - 2.744215; 2.621346; 1.855768;, - 2.645174; 2.621470; 1.855546;, - 2.697969; 2.683132; 1.646050;, - 2.790460; 2.559561; 2.065487;, - 2.691420; 2.559685; 2.065265;, - 2.744215; 2.621346; 1.855768;, - 2.744215; 2.621346; 1.855768;, - 2.697969; 2.683132; 1.646050;, - 2.934951; 2.683132; 1.646050;, - 2.934951; 2.683132; 1.646050;, - 2.981197; 2.621346; 1.855768;, - 2.744215; 2.621346; 1.855768;, - 2.981197; 2.621346; 1.855768;, - 2.934951; 2.683132; 1.646050;, - 3.171934; 2.683132; 1.646050;, - 2.790460; 2.559561; 2.065487;, - 2.744215; 2.621346; 1.855768;, - 2.981197; 2.621346; 1.855768;, - 3.051821; 2.559070; 2.066369;, - 2.790460; 2.559561; 2.065487;, - 2.981197; 2.621346; 1.855768;, - 2.981197; 2.621346; 1.855768;, - 3.242558; 2.620855; 1.856650;, - 3.051821; 2.559070; 2.066369;, - 3.242558; 2.620855; 1.856650;, - 2.981197; 2.621346; 1.855768;, - 3.171934; 2.683132; 1.646050;, - 3.313181; 2.558579; 2.067250;, - 3.051821; 2.559070; 2.066369;, - 3.242558; 2.620855; 1.856650;, - 3.050997; 2.508425; 2.157479;, - 2.790448; 2.505867; 2.162080;, - 2.790454; 2.532714; 2.113783;, - 2.790454; 2.532714; 2.113783;, - 3.051003; 2.535272; 2.109182;, - 3.050997; 2.508425; 2.157479;, - 3.051003; 2.535272; 2.109182;, - 2.790454; 2.532714; 2.113783;, - 2.790460; 2.559561; 2.065487;, - 3.311546; 2.510983; 2.152878;, - 3.050997; 2.508425; 2.157479;, - 3.051003; 2.535272; 2.109182;, - 3.312364; 2.534781; 2.110064;, - 3.311546; 2.510983; 2.152878;, - 3.051003; 2.535272; 2.109182;, - 3.051003; 2.535272; 2.109182;, - 3.051821; 2.559070; 2.066369;, - 3.312364; 2.534781; 2.110064;, - 3.051821; 2.559070; 2.066369;, - 3.051003; 2.535272; 2.109182;, - 2.790460; 2.559561; 2.065487;, - 3.313181; 2.558579; 2.067250;, - 3.312364; 2.534781; 2.110064;, - 3.051821; 2.559070; 2.066369;, - 2.790454; 2.532714; 2.113783;, - 2.790448; 2.505867; 2.162080;, - 2.691435; 2.513834; 2.147747;, - 2.691435; 2.513834; 2.147747;, - 2.691442; 2.540681; 2.099451;, - 2.790454; 2.532714; 2.113783;, - 2.691442; 2.540681; 2.099451;, - 2.691435; 2.513834; 2.147747;, - 2.592423; 2.521802; 2.133414;, - 2.790460; 2.559561; 2.065487;, - 2.790454; 2.532714; 2.113783;, - 2.691442; 2.540681; 2.099451;, - 2.691420; 2.559685; 2.065265;, - 2.790460; 2.559561; 2.065487;, - 2.691442; 2.540681; 2.099451;, - 2.691442; 2.540681; 2.099451;, - 2.592401; 2.540805; 2.099228;, - 2.691420; 2.559685; 2.065265;, - 2.592401; 2.540805; 2.099228;, - 2.691442; 2.540681; 2.099451;, - 2.592423; 2.521802; 2.133414;, - 2.592379; 2.559808; 2.065043;, - 2.691420; 2.559685; 2.065265;, - 2.592401; 2.540805; 2.099228;, - 2.471767; 2.685583; 1.508445;, - 2.471767; 2.687432; 1.370840;, - 2.584885; 2.687135; 1.371052;, - 2.584885; 2.687135; 1.371052;, - 2.584885; 2.685285; 1.508657;, - 2.471767; 2.685583; 1.508445;, - 2.584885; 2.685285; 1.508657;, - 2.584885; 2.687135; 1.371052;, - 2.698003; 2.686837; 1.371264;, - 2.471767; 2.683733; 1.646050;, - 2.471767; 2.685583; 1.508445;, - 2.584885; 2.685285; 1.508657;, - 2.584868; 2.683433; 1.646050;, - 2.471767; 2.683733; 1.646050;, - 2.584885; 2.685285; 1.508657;, - 2.584885; 2.685285; 1.508657;, - 2.697986; 2.684984; 1.508657;, - 2.584868; 2.683433; 1.646050;, - 2.697986; 2.684984; 1.508657;, - 2.584885; 2.685285; 1.508657;, - 2.698003; 2.686837; 1.371264;, - 2.697969; 2.683132; 1.646050;, - 2.584868; 2.683433; 1.646050;, - 2.697986; 2.684984; 1.508657;, - 3.171733; 2.684992; 1.509218;, - 3.171934; 2.683132; 1.646050;, - 2.934951; 2.683132; 1.646050;, - 2.934951; 2.683132; 1.646050;, - 2.934751; 2.684992; 1.509218;, - 3.171733; 2.684992; 1.509218;, - 2.934751; 2.684992; 1.509218;, - 2.934951; 2.683132; 1.646050;, - 2.697969; 2.683132; 1.646050;, - 2.934751; 2.684992; 1.509218;, - 3.171532; 2.686853; 1.372387;, - 3.171733; 2.684992; 1.509218;, - 2.934767; 2.686845; 1.371825;, - 3.171532; 2.686853; 1.372387;, - 2.934751; 2.684992; 1.509218;, - 2.934751; 2.684992; 1.509218;, - 2.697986; 2.684984; 1.508657;, - 2.934767; 2.686845; 1.371825;, - 2.697986; 2.684984; 1.508657;, - 2.934751; 2.684992; 1.509218;, - 2.697969; 2.683132; 1.646050;, - 2.698003; 2.686837; 1.371264;, - 2.934767; 2.686845; 1.371825;, - 2.697986; 2.684984; 1.508657;, - 2.199120; 2.632441; 0.922858;, - 2.199190; 2.611393; 0.699094;, - 2.338668; 2.625680; 0.698990;, - 2.338668; 2.625680; 0.698990;, - 2.338598; 2.646728; 0.922753;, - 2.199120; 2.632441; 0.922858;, - 2.338598; 2.646728; 0.922753;, - 2.338668; 2.625680; 0.698990;, - 2.478146; 2.639967; 0.698885;, - 2.199050; 2.653489; 1.146621;, - 2.199120; 2.632441; 0.922858;, - 2.338598; 2.646728; 0.922753;, - 2.336458; 2.668897; 1.148141;, - 2.199050; 2.653489; 1.146621;, - 2.338598; 2.646728; 0.922753;, - 2.338598; 2.646728; 0.922753;, - 2.476007; 2.662136; 0.924273;, - 2.336458; 2.668897; 1.148141;, - 2.476007; 2.662136; 0.924273;, - 2.338598; 2.646728; 0.922753;, - 2.478146; 2.639967; 0.698885;, - 2.473867; 2.684305; 1.149661;, - 2.336458; 2.668897; 1.148141;, - 2.476007; 2.662136; 0.924273;, - 2.336458; 2.668897; 1.148141;, - 2.473867; 2.684305; 1.149661;, - 2.472817; 2.685869; 1.260250;, - 2.472817; 2.685869; 1.260250;, - 2.335408; 2.670461; 1.258730;, - 2.336458; 2.668897; 1.148141;, - 2.335408; 2.670461; 1.258730;, - 2.472817; 2.685869; 1.260250;, - 2.471767; 2.687432; 1.370840;, - 2.199050; 2.653489; 1.146621;, - 2.336458; 2.668897; 1.148141;, - 2.335408; 2.670461; 1.258730;, - 2.199014; 2.655008; 1.260337;, - 2.199050; 2.653489; 1.146621;, - 2.335408; 2.670461; 1.258730;, - 2.335408; 2.670461; 1.258730;, - 2.335373; 2.671979; 1.372447;, - 2.199014; 2.655008; 1.260337;, - 2.335373; 2.671979; 1.372447;, - 2.335408; 2.670461; 1.258730;, - 2.471767; 2.687432; 1.370840;, - 2.198979; 2.656527; 1.374054;, - 2.199014; 2.655008; 1.260337;, - 2.335373; 2.671979; 1.372447;, - -1.348108; 2.619789; 0.821900;, - -1.348108; 2.592874; 0.627785;, - 0.425541; 2.602134; 0.663440;, - 0.425541; 2.602134; 0.663440;, - 0.425541; 2.629048; 0.857554;, - -1.348108; 2.619789; 0.821900;, - 0.425541; 2.629048; 0.857554;, - 0.425541; 2.602134; 0.663440;, - 2.199190; 2.611393; 0.699094;, - -1.348108; 2.646703; 1.016014;, - -1.348108; 2.619789; 0.821900;, - 0.425541; 2.629048; 0.857554;, - 0.425471; 2.650096; 1.081317;, - -1.348108; 2.646703; 1.016014;, - 0.425541; 2.629048; 0.857554;, - 0.425541; 2.629048; 0.857554;, - 2.199120; 2.632441; 0.922858;, - 0.425471; 2.650096; 1.081317;, - 2.199120; 2.632441; 0.922858;, - 0.425541; 2.629048; 0.857554;, - 2.199190; 2.611393; 0.699094;, - 2.199050; 2.653489; 1.146621;, - 0.425471; 2.650096; 1.081317;, - 2.199120; 2.632441; 0.922858;, - -1.348108; 2.587478; 1.767462;, - -1.348108; 2.524538; 2.076244;, - -2.350871; 2.605530; 1.740257;, - -2.350871; 2.605530; 1.740257;, - -2.350871; 2.668470; 1.431474;, - -1.348108; 2.587478; 1.767462;, - -2.350871; 2.668470; 1.431474;, - -2.350871; 2.605530; 1.740257;, - -3.353634; 2.686522; 1.404270;, - -1.348108; 2.650418; 1.458679;, - -1.348108; 2.587478; 1.767462;, - -2.350871; 2.668470; 1.431474;, - -2.350871; 2.605530; 1.740257;, - -1.348108; 2.524538; 2.076244;, - -2.381012; 2.555585; 2.046516;, - -2.381012; 2.555585; 2.046516;, - -3.383776; 2.636577; 1.710530;, - -2.350871; 2.605530; 1.740257;, - -3.383776; 2.636577; 1.710530;, - -2.381012; 2.555585; 2.046516;, - -3.413917; 2.586632; 2.016789;, - -3.353634; 2.686522; 1.404270;, - -2.350871; 2.605530; 1.740257;, - -3.383776; 2.636577; 1.710530;, - 3.546685; 2.508627; 2.157116;, - 3.311546; 2.510983; 2.152878;, - 3.312364; 2.534781; 2.110064;, - 3.312364; 2.534781; 2.110064;, - 3.547502; 2.532425; 2.114302;, - 3.546685; 2.508627; 2.157116;, - 3.547502; 2.532425; 2.114302;, - 3.312364; 2.534781; 2.110064;, - 3.313181; 2.558579; 2.067250;, - 3.781823; 2.506271; 2.161354;, - 3.546685; 2.508627; 2.157116;, - 3.547502; 2.532425; 2.114302;, - 3.790771; 2.531980; 2.115101;, - 3.781823; 2.506271; 2.161354;, - 3.547502; 2.532425; 2.114302;, - 3.547502; 2.532425; 2.114302;, - 3.556450; 2.558134; 2.068049;, - 3.790771; 2.531980; 2.115101;, - 3.556450; 2.558134; 2.068049;, - 3.547502; 2.532425; 2.114302;, - 3.313181; 2.558579; 2.067250;, - 3.799719; 2.557688; 2.068848;, - 3.790771; 2.531980; 2.115101;, - 3.556450; 2.558134; 2.068049;, - 3.969668; 2.557703; 2.068825;, - 4.139618; 2.557718; 2.068803;, - 4.134944; 2.530249; 2.118218;, - 4.134944; 2.530249; 2.118218;, - 3.964995; 2.530234; 2.118241;, - 3.969668; 2.557703; 2.068825;, - 3.964995; 2.530234; 2.118241;, - 4.134944; 2.530249; 2.118218;, - 4.130271; 2.502780; 2.167634;, - 3.799719; 2.557688; 2.068848;, - 3.969668; 2.557703; 2.068825;, - 3.964995; 2.530234; 2.118241;, - 3.790771; 2.531980; 2.115101;, - 3.799719; 2.557688; 2.068848;, - 3.964995; 2.530234; 2.118241;, - 3.964995; 2.530234; 2.118241;, - 3.956047; 2.504525; 2.164494;, - 3.790771; 2.531980; 2.115101;, - 3.956047; 2.504525; 2.164494;, - 3.964995; 2.530234; 2.118241;, - 4.130271; 2.502780; 2.167634;, - 3.781823; 2.506271; 2.161354;, - 3.790771; 2.531980; 2.115101;, - 3.956047; 2.504525; 2.164494;, - 3.827241; 2.620410; 1.857449;, - 3.799719; 2.557688; 2.068848;, - 3.556450; 2.558134; 2.068049;, - 3.556450; 2.558134; 2.068049;, - 3.583972; 2.620855; 1.856650;, - 3.827241; 2.620410; 1.857449;, - 3.583972; 2.620855; 1.856650;, - 3.556450; 2.558134; 2.068049;, - 3.313181; 2.558579; 2.067250;, - 3.854764; 2.683132; 1.646050;, - 3.827241; 2.620410; 1.857449;, - 3.583972; 2.620855; 1.856650;, - 3.513349; 2.683132; 1.646050;, - 3.854764; 2.683132; 1.646050;, - 3.583972; 2.620855; 1.856650;, - 3.583972; 2.620855; 1.856650;, - 3.242558; 2.620855; 1.856650;, - 3.513349; 2.683132; 1.646050;, - 3.242558; 2.620855; 1.856650;, - 3.583972; 2.620855; 1.856650;, - 3.313181; 2.558579; 2.067250;, - 3.171934; 2.683132; 1.646050;, - 3.513349; 2.683132; 1.646050;, - 3.242558; 2.620855; 1.856650;, - 4.065057; 2.681546; 1.646050;, - 3.854764; 2.683132; 1.646050;, - 3.859985; 2.684990; 1.509060;, - 3.859985; 2.684990; 1.509060;, - 4.070279; 2.683405; 1.509060;, - 4.065057; 2.681546; 1.646050;, - 4.070279; 2.683405; 1.509060;, - 3.859985; 2.684990; 1.509060;, - 3.865207; 2.686849; 1.372070;, - 4.275350; 2.679961; 1.646050;, - 4.065057; 2.681546; 1.646050;, - 4.070279; 2.683405; 1.509060;, - 4.283742; 2.681184; 1.513528;, - 4.275350; 2.679961; 1.646050;, - 4.070279; 2.683405; 1.509060;, - 4.070279; 2.683405; 1.509060;, - 4.078671; 2.684628; 1.376538;, - 4.283742; 2.681184; 1.513528;, - 4.078671; 2.684628; 1.376538;, - 4.070279; 2.683405; 1.509060;, - 3.865207; 2.686849; 1.372070;, - 4.292134; 2.682407; 1.381005;, - 4.283742; 2.681184; 1.513528;, - 4.078671; 2.684628; 1.376538;, - 2.532073; 2.621770; 1.855546;, - 2.592379; 2.559808; 2.065043;, - 2.474778; 2.547693; 2.065043;, - 2.474778; 2.547693; 2.065043;, - 2.414472; 2.609655; 1.855546;, - 2.532073; 2.621770; 1.855546;, - 2.414472; 2.609655; 1.855546;, - 2.474778; 2.547693; 2.065043;, - 2.357177; 2.535577; 2.065043;, - 2.471767; 2.683733; 1.646050;, - 2.532073; 2.621770; 1.855546;, - 2.414472; 2.609655; 1.855546;, - 2.335330; 2.668347; 1.646050;, - 2.471767; 2.683733; 1.646050;, - 2.414472; 2.609655; 1.855546;, - 2.414472; 2.609655; 1.855546;, - 2.278035; 2.594270; 1.855546;, - 2.335330; 2.668347; 1.646050;, - 2.278035; 2.594270; 1.855546;, - 2.414472; 2.609655; 1.855546;, - 2.357177; 2.535577; 2.065043;, - 2.198893; 2.652962; 1.646050;, - 2.335330; 2.668347; 1.646050;, - 2.278035; 2.594270; 1.855546;, - 2.335330; 2.668347; 1.646050;, - 2.198893; 2.652962; 1.646050;, - 2.198936; 2.654745; 1.510052;, - 2.198936; 2.654745; 1.510052;, - 2.335373; 2.670130; 1.510052;, - 2.335330; 2.668347; 1.646050;, - 2.335373; 2.670130; 1.510052;, - 2.198936; 2.654745; 1.510052;, - 2.198979; 2.656527; 1.374054;, - 2.471767; 2.683733; 1.646050;, - 2.335330; 2.668347; 1.646050;, - 2.335373; 2.670130; 1.510052;, - 2.471767; 2.685583; 1.508445;, - 2.471767; 2.683733; 1.646050;, - 2.335373; 2.670130; 1.510052;, - 2.335373; 2.670130; 1.510052;, - 2.335373; 2.671979; 1.372447;, - 2.471767; 2.685583; 1.508445;, - 2.335373; 2.671979; 1.372447;, - 2.335373; 2.670130; 1.510052;, - 2.198979; 2.656527; 1.374054;, - 2.471767; 2.687432; 1.370840;, - 2.471767; 2.685583; 1.508445;, - 2.335373; 2.671979; 1.372447;, - 4.065057; 2.681546; 1.646050;, - 4.275350; 2.679961; 1.646050;, - 4.207484; 2.618840; 1.857427;, - 4.207484; 2.618840; 1.857427;, - 3.997191; 2.620425; 1.857427;, - 4.065057; 2.681546; 1.646050;, - 3.997191; 2.620425; 1.857427;, - 4.207484; 2.618840; 1.857427;, - 4.139618; 2.557718; 2.068803;, - 3.854764; 2.683132; 1.646050;, - 4.065057; 2.681546; 1.646050;, - 3.997191; 2.620425; 1.857427;, - 3.827241; 2.620410; 1.857449;, - 3.854764; 2.683132; 1.646050;, - 3.997191; 2.620425; 1.857427;, - 3.997191; 2.620425; 1.857427;, - 3.969668; 2.557703; 2.068825;, - 3.827241; 2.620410; 1.857449;, - 3.969668; 2.557703; 2.068825;, - 3.997191; 2.620425; 1.857427;, - 4.139618; 2.557718; 2.068803;, - 3.799719; 2.557688; 2.068848;, - 3.827241; 2.620410; 1.857449;, - 3.969668; 2.557703; 2.068825;, - 3.518369; 2.686851; 1.372229;, - 3.865207; 2.686849; 1.372070;, - 3.859985; 2.684990; 1.509060;, - 3.859985; 2.684990; 1.509060;, - 3.513148; 2.684992; 1.509218;, - 3.518369; 2.686851; 1.372229;, - 3.513148; 2.684992; 1.509218;, - 3.859985; 2.684990; 1.509060;, - 3.854764; 2.683132; 1.646050;, - 3.513148; 2.684992; 1.509218;, - 3.171532; 2.686853; 1.372387;, - 3.518369; 2.686851; 1.372229;, - 3.171733; 2.684992; 1.509218;, - 3.171532; 2.686853; 1.372387;, - 3.513148; 2.684992; 1.509218;, - 3.513148; 2.684992; 1.509218;, - 3.513349; 2.683132; 1.646050;, - 3.171733; 2.684992; 1.509218;, - 3.513349; 2.683132; 1.646050;, - 3.513148; 2.684992; 1.509218;, - 3.854764; 2.683132; 1.646050;, - 3.171934; 2.683132; 1.646050;, - 3.171733; 2.684992; 1.509218;, - 3.513349; 2.683132; 1.646050;, - 5.482257; 2.516769; 1.978863;, - 5.714403; 2.516470; 1.947796;, - 5.660154; 2.485395; 2.013747;, - 5.660154; 2.485395; 2.013747;, - 5.428009; 2.485694; 2.044815;, - 5.482257; 2.516769; 1.978863;, - 5.428009; 2.485694; 2.044815;, - 5.660154; 2.485395; 2.013747;, - 5.605906; 2.454320; 2.079698;, - 5.250111; 2.517069; 2.009931;, - 5.482257; 2.516769; 1.978863;, - 5.428009; 2.485694; 2.044815;, - 5.244919; 2.490793; 2.059471;, - 5.250111; 2.517069; 2.009931;, - 5.428009; 2.485694; 2.044815;, - 5.428009; 2.485694; 2.044815;, - 5.422816; 2.459419; 2.094354;, - 5.244919; 2.490793; 2.059471;, - 5.422816; 2.459419; 2.094354;, - 5.428009; 2.485694; 2.044815;, - 5.605906; 2.454320; 2.079698;, - 5.239726; 2.464517; 2.109010;, - 5.244919; 2.490793; 2.059471;, - 5.422816; 2.459419; 2.094354;, - 4.684999; 2.483649; 2.138322;, - 4.130271; 2.502780; 2.167634;, - 4.134944; 2.530249; 2.118218;, - 4.134944; 2.530249; 2.118218;, - 4.689672; 2.511117; 2.088907;, - 4.684999; 2.483649; 2.138322;, - 4.689672; 2.511117; 2.088907;, - 4.134944; 2.530249; 2.118218;, - 4.139618; 2.557718; 2.068803;, - 5.239726; 2.464517; 2.109010;, - 4.684999; 2.483649; 2.138322;, - 4.689672; 2.511117; 2.088907;, - 5.244919; 2.490793; 2.059471;, - 5.239726; 2.464517; 2.109010;, - 4.689672; 2.511117; 2.088907;, - 4.689672; 2.511117; 2.088907;, - 4.694864; 2.537394; 2.039367;, - 5.244919; 2.490793; 2.059471;, - 4.694864; 2.537394; 2.039367;, - 4.689672; 2.511117; 2.088907;, - 4.139618; 2.557718; 2.068803;, - 5.250111; 2.517069; 2.009931;, - 5.244919; 2.490793; 2.059471;, - 4.694864; 2.537394; 2.039367;, - -1.348108; 2.587478; 1.767462;, - -1.348108; 2.650418; 1.458679;, - 0.425393; 2.651690; 1.552364;, - 0.425393; 2.651690; 1.552364;, - 0.425393; 2.588750; 1.861147;, - -1.348108; 2.587478; 1.767462;, - 0.425393; 2.588750; 1.861147;, - 0.425393; 2.651690; 1.552364;, - 2.198893; 2.652962; 1.646050;, - -1.348108; 2.524538; 2.076244;, - -1.348108; 2.587478; 1.767462;, - 0.425393; 2.588750; 1.861147;, - 0.504534; 2.530057; 2.070643;, - -1.348108; 2.524538; 2.076244;, - 0.425393; 2.588750; 1.861147;, - 0.425393; 2.588750; 1.861147;, - 2.278035; 2.594270; 1.855546;, - 0.504534; 2.530057; 2.070643;, - 2.278035; 2.594270; 1.855546;, - 0.425393; 2.588750; 1.861147;, - 2.198893; 2.652962; 1.646050;, - 2.357177; 2.535577; 2.065043;, - 0.504534; 2.530057; 2.070643;, - 2.278035; 2.594270; 1.855546;, - -3.709671; 2.594720; 2.002238;, - -4.005426; 2.602808; 1.987687;, - -3.679530; 2.644665; 1.695979;, - -3.679530; 2.644665; 1.695979;, - -3.383776; 2.636577; 1.710530;, - -3.709671; 2.594720; 2.002238;, - -3.383776; 2.636577; 1.710530;, - -3.679530; 2.644665; 1.695979;, - -3.353634; 2.686522; 1.404270;, - -3.413917; 2.586632; 2.016789;, - -3.709671; 2.594720; 2.002238;, - -3.383776; 2.636577; 1.710530;, - -3.679530; 2.644665; 1.695979;, - -4.005426; 2.602808; 1.987687;, - -4.038665; 2.644548; 1.704288;, - -4.038665; 2.644548; 1.704288;, - -3.712769; 2.686406; 1.412579;, - -3.679530; 2.644665; 1.695979;, - -3.712769; 2.686406; 1.412579;, - -4.038665; 2.644548; 1.704288;, - -4.071903; 2.686289; 1.420888;, - -3.353634; 2.686522; 1.404270;, - -3.679530; 2.644665; 1.695979;, - -3.712769; 2.686406; 1.412579;, - -5.606302; 2.460724; 1.015977;, - -5.671966; 2.413821; 0.788812;, - -5.233535; 2.519381; 0.747566;, - -5.233535; 2.519381; 0.747566;, - -5.167872; 2.566284; 0.974730;, - -5.606302; 2.460724; 1.015977;, - -5.167872; 2.566284; 0.974730;, - -5.233535; 2.519381; 0.747566;, - -4.795105; 2.624941; 0.706319;, - -5.540639; 2.507627; 1.243142;, - -5.606302; 2.460724; 1.015977;, - -5.167872; 2.566284; 0.974730;, - -5.050004; 2.588170; 1.207381;, - -5.540639; 2.507627; 1.243142;, - -5.167872; 2.566284; 0.974730;, - -5.167872; 2.566284; 0.974730;, - -4.677237; 2.646827; 0.938969;, - -5.050004; 2.588170; 1.207381;, - -4.677237; 2.646827; 0.938969;, - -5.167872; 2.566284; 0.974730;, - -4.795105; 2.624941; 0.706319;, - -4.559368; 2.668713; 1.171620;, - -5.050004; 2.588170; 1.207381;, - -4.677237; 2.646827; 0.938969;, - 5.568873; 1.935945; 2.239182;, - 5.404533; 2.145632; 2.226151;, - 5.606527; 2.143714; 2.210538;, - 5.606527; 2.143714; 2.210538;, - 5.770867; 1.934028; 2.223568;, - 5.568873; 1.935945; 2.239182;, - 5.770867; 1.934028; 2.223568;, - 5.606527; 2.143714; 2.210538;, - 5.808521; 2.141797; 2.194925;, - 5.733214; 1.726258; 2.252212;, - 5.568873; 1.935945; 2.239182;, - 5.770867; 1.934028; 2.223568;, - 5.805644; 1.726258; 2.244797;, - 5.733214; 1.726258; 2.252212;, - 5.770867; 1.934028; 2.223568;, - 5.770867; 1.934028; 2.223568;, - 5.843297; 1.934028; 2.216154;, - 5.805644; 1.726258; 2.244797;, - 5.843297; 1.934028; 2.216154;, - 5.770867; 1.934028; 2.223568;, - 5.808521; 2.141797; 2.194925;, - 5.878073; 1.726258; 2.237383;, - 5.805644; 1.726258; 2.244797;, - 5.843297; 1.934028; 2.216154;, - 5.463749; 1.648385; 2.226151;, - 5.404533; 2.145632; 2.226151;, - 5.568873; 1.935945; 2.239182;, - 5.568873; 1.935945; 2.239182;, - 5.628089; 1.438698; 2.239182;, - 5.463749; 1.648385; 2.226151;, - 5.628089; 1.438698; 2.239182;, - 5.568873; 1.935945; 2.239182;, - 5.733214; 1.726258; 2.252212;, - 5.522965; 1.151137; 2.226151;, - 5.463749; 1.648385; 2.226151;, - 5.628089; 1.438698; 2.239182;, - 5.650616; 1.022701; 2.239182;, - 5.522965; 1.151137; 2.226151;, - 5.628089; 1.438698; 2.239182;, - 5.628089; 1.438698; 2.239182;, - 5.755740; 1.310261; 2.252212;, - 5.650616; 1.022701; 2.239182;, - 5.755740; 1.310261; 2.252212;, - 5.628089; 1.438698; 2.239182;, - 5.733214; 1.726258; 2.252212;, - 5.778266; 0.894264; 2.252212;, - 5.650616; 1.022701; 2.239182;, - 5.755740; 1.310261; 2.252212;, - 5.975008; 1.022701; 2.216154;, - 6.011663; 1.151137; 2.194925;, - 6.037214; 0.587718; 2.194925;, - 6.037214; 0.587718; 2.194925;, - 6.000560; 0.459282; 2.216154;, - 5.975008; 1.022701; 2.216154;, - 6.000560; 0.459282; 2.216154;, - 6.037214; 0.587718; 2.194925;, - 6.062765; 0.024299; 2.194925;, - 5.938354; 0.894264; 2.237383;, - 5.975008; 1.022701; 2.216154;, - 6.000560; 0.459282; 2.216154;, - 5.954045; 0.459230; 2.237383;, - 5.938354; 0.894264; 2.237383;, - 6.000560; 0.459282; 2.216154;, - 6.000560; 0.459282; 2.216154;, - 6.016251; 0.024248; 2.216154;, - 5.954045; 0.459230; 2.237383;, - 6.016251; 0.024248; 2.216154;, - 6.000560; 0.459282; 2.216154;, - 6.062765; 0.024299; 2.194925;, - 5.969737; 0.024196; 2.237383;, - 5.954045; 0.459230; 2.237383;, - 6.016251; 0.024248; 2.216154;, - 5.681486; 0.024248; 2.239182;, - 5.556948; 0.024299; 2.226151;, - 5.667607; 0.459282; 2.239182;, - 5.667607; 0.459282; 2.239182;, - 5.792145; 0.459230; 2.252212;, - 5.681486; 0.024248; 2.239182;, - 5.792145; 0.459230; 2.252212;, - 5.667607; 0.459282; 2.239182;, - 5.778266; 0.894264; 2.252212;, - 5.806023; 0.024196; 2.252212;, - 5.681486; 0.024248; 2.239182;, - 5.792145; 0.459230; 2.252212;, - 5.667607; 0.459282; 2.239182;, - 5.556948; 0.024299; 2.226151;, - 5.539957; 0.587718; 2.226151;, - 5.539957; 0.587718; 2.226151;, - 5.650616; 1.022701; 2.239182;, - 5.667607; 0.459282; 2.239182;, - 5.650616; 1.022701; 2.239182;, - 5.539957; 0.587718; 2.226151;, - 5.522965; 1.151137; 2.226151;, - 5.778266; 0.894264; 2.252212;, - 5.667607; 0.459282; 2.239182;, - 5.650616; 1.022701; 2.239182;, - 5.910092; 1.646467; 2.194925;, - 6.011663; 1.151137; 2.194925;, - 5.944868; 1.438698; 2.216154;, - 5.944868; 1.438698; 2.216154;, - 5.843297; 1.934028; 2.216154;, - 5.910092; 1.646467; 2.194925;, - 5.843297; 1.934028; 2.216154;, - 5.944868; 1.438698; 2.216154;, - 5.878073; 1.726258; 2.237383;, - 5.808521; 2.141797; 2.194925;, - 5.910092; 1.646467; 2.194925;, - 5.843297; 1.934028; 2.216154;, - 5.944868; 1.438698; 2.216154;, - 6.011663; 1.151137; 2.194925;, - 5.975008; 1.022701; 2.216154;, - 5.975008; 1.022701; 2.216154;, - 5.908214; 1.310261; 2.237383;, - 5.944868; 1.438698; 2.216154;, - 5.908214; 1.310261; 2.237383;, - 5.975008; 1.022701; 2.216154;, - 5.938354; 0.894264; 2.237383;, - 5.878073; 1.726258; 2.237383;, - 5.944868; 1.438698; 2.216154;, - 5.908214; 1.310261; 2.237383;, - 5.986670; 1.643574; 2.430876;, - 5.878073; 1.726258; 2.237383;, - 5.908214; 1.310261; 2.237383;, - 5.908214; 1.310261; 2.237383;, - 6.016810; 1.227576; 2.430876;, - 5.986670; 1.643574; 2.430876;, - 6.016810; 1.227576; 2.430876;, - 5.908214; 1.310261; 2.237383;, - 5.938354; 0.894264; 2.237383;, - 6.095266; 1.560889; 2.624369;, - 5.986670; 1.643574; 2.430876;, - 6.016810; 1.227576; 2.430876;, - 6.129993; 1.185301; 2.649446;, - 6.095266; 1.560889; 2.624369;, - 6.016810; 1.227576; 2.430876;, - 6.016810; 1.227576; 2.430876;, - 6.051537; 0.851988; 2.455954;, - 6.129993; 1.185301; 2.649446;, - 6.051537; 0.851988; 2.455954;, - 6.016810; 1.227576; 2.430876;, - 5.938354; 0.894264; 2.237383;, - 6.164720; 0.809713; 2.674524;, - 6.129993; 1.185301; 2.649446;, - 6.051537; 0.851988; 2.455954;, - 5.792145; 0.459230; 2.252212;, - 5.778266; 0.894264; 2.252212;, - 5.891134; 0.851988; 2.470782;, - 5.891134; 0.851988; 2.470782;, - 5.905013; 0.416955; 2.470782;, - 5.792145; 0.459230; 2.252212;, - 5.905013; 0.416955; 2.470782;, - 5.891134; 0.851988; 2.470782;, - 6.004002; 0.809713; 2.689352;, - 5.806023; 0.024196; 2.252212;, - 5.792145; 0.459230; 2.252212;, - 5.905013; 0.416955; 2.470782;, - 5.918538; 0.024179; 2.470783;, - 5.806023; 0.024196; 2.252212;, - 5.905013; 0.416955; 2.470782;, - 5.905013; 0.416955; 2.470782;, - 6.017528; 0.416938; 2.689353;, - 5.918538; 0.024179; 2.470783;, - 6.017528; 0.416938; 2.689353;, - 5.905013; 0.416955; 2.470782;, - 6.004002; 0.809713; 2.689352;, - 6.031053; 0.024162; 2.689353;, - 5.918538; 0.024179; 2.470783;, - 6.017528; 0.416938; 2.689353;, - 6.051537; 0.851988; 2.455954;, - 5.938354; 0.894264; 2.237383;, - 5.954045; 0.459230; 2.237383;, - 5.954045; 0.459230; 2.237383;, - 6.067228; 0.416955; 2.455954;, - 6.051537; 0.851988; 2.455954;, - 6.067228; 0.416955; 2.455954;, - 5.954045; 0.459230; 2.237383;, - 5.969737; 0.024196; 2.237383;, - 6.164720; 0.809713; 2.674524;, - 6.051537; 0.851988; 2.455954;, - 6.067228; 0.416955; 2.455954;, - 6.179743; 0.416938; 2.674524;, - 6.164720; 0.809713; 2.674524;, - 6.067228; 0.416955; 2.455954;, - 6.067228; 0.416955; 2.455954;, - 6.057034; 0.024179; 2.455954;, - 6.179743; 0.416938; 2.674524;, - 6.057034; 0.024179; 2.455954;, - 6.067228; 0.416955; 2.455954;, - 5.969737; 0.024196; 2.237383;, - 6.171597; 0.024162; 2.674524;, - 6.179743; 0.416938; 2.674524;, - 6.057034; 0.024179; 2.455954;, - 5.755740; 1.310261; 2.252212;, - 5.733214; 1.726258; 2.252212;, - 5.839837; 1.643574; 2.445705;, - 5.839837; 1.643574; 2.445705;, - 5.862363; 1.227576; 2.445705;, - 5.755740; 1.310261; 2.252212;, - 5.862363; 1.227576; 2.445705;, - 5.839837; 1.643574; 2.445705;, - 5.946460; 1.560889; 2.639198;, - 5.778266; 0.894264; 2.252212;, - 5.755740; 1.310261; 2.252212;, - 5.862363; 1.227576; 2.445705;, - 5.891134; 0.851988; 2.470782;, - 5.778266; 0.894264; 2.252212;, - 5.862363; 1.227576; 2.445705;, - 5.862363; 1.227576; 2.445705;, - 5.975231; 1.185301; 2.664275;, - 5.891134; 0.851988; 2.470782;, - 5.975231; 1.185301; 2.664275;, - 5.862363; 1.227576; 2.445705;, - 5.946460; 1.560889; 2.639198;, - 6.004002; 0.809713; 2.689352;, - 5.891134; 0.851988; 2.470782;, - 5.975231; 1.185301; 2.664275;, - 5.839837; 1.643574; 2.445705;, - 5.733214; 1.726258; 2.252212;, - 5.805644; 1.726258; 2.244797;, - 5.805644; 1.726258; 2.244797;, - 5.912267; 1.643574; 2.438291;, - 5.839837; 1.643574; 2.445705;, - 5.912267; 1.643574; 2.438291;, - 5.805644; 1.726258; 2.244797;, - 5.878073; 1.726258; 2.237383;, - 5.946460; 1.560889; 2.639198;, - 5.839837; 1.643574; 2.445705;, - 5.912267; 1.643574; 2.438291;, - 6.020863; 1.560889; 2.631783;, - 5.946460; 1.560889; 2.639198;, - 5.912267; 1.643574; 2.438291;, - 5.912267; 1.643574; 2.438291;, - 5.986670; 1.643574; 2.430876;, - 6.020863; 1.560889; 2.631783;, - 5.986670; 1.643574; 2.430876;, - 5.912267; 1.643574; 2.438291;, - 5.878073; 1.726258; 2.237383;, - 6.095266; 1.560889; 2.624369;, - 6.020863; 1.560889; 2.631783;, - 5.986670; 1.643574; 2.430876;, - 6.020863; 1.560889; 2.631783;, - 6.095266; 1.560889; 2.624369;, - 6.049634; 1.185301; 2.656860;, - 6.049634; 1.185301; 2.656860;, - 5.975231; 1.185301; 2.664275;, - 6.020863; 1.560889; 2.631783;, - 5.975231; 1.185301; 2.664275;, - 6.049634; 1.185301; 2.656860;, - 6.004002; 0.809713; 2.689352;, - 5.946460; 1.560889; 2.639198;, - 6.020863; 1.560889; 2.631783;, - 5.975231; 1.185301; 2.664275;, - 6.049634; 1.185301; 2.656860;, - 6.095266; 1.560889; 2.624369;, - 6.129993; 1.185301; 2.649446;, - 6.129993; 1.185301; 2.649446;, - 6.084361; 0.809713; 2.681938;, - 6.049634; 1.185301; 2.656860;, - 6.084361; 0.809713; 2.681938;, - 6.129993; 1.185301; 2.649446;, - 6.164720; 0.809713; 2.674524;, - 6.004002; 0.809713; 2.689352;, - 6.049634; 1.185301; 2.656860;, - 6.084361; 0.809713; 2.681938;, - 6.017528; 0.416938; 2.689353;, - 6.004002; 0.809713; 2.689352;, - 6.084361; 0.809713; 2.681938;, - 6.084361; 0.809713; 2.681938;, - 6.097887; 0.416938; 2.681939;, - 6.017528; 0.416938; 2.689353;, - 6.097887; 0.416938; 2.681939;, - 6.084361; 0.809713; 2.681938;, - 6.164720; 0.809713; 2.674524;, - 6.017528; 0.416938; 2.689353;, - 6.031053; 0.024162; 2.689353;, - 6.097887; 0.416938; 2.681939;, - 6.031053; 0.024162; 2.689353;, - 6.112909; 0.024162; 2.681939;, - 6.097887; 0.416938; 2.681939;, - 6.097887; 0.416938; 2.681939;, - 6.179743; 0.416938; 2.674524;, - 6.112909; 0.024162; 2.681939;, - 6.179743; 0.416938; 2.674524;, - 6.097887; 0.416938; 2.681939;, - 6.164720; 0.809713; 2.674524;, - 6.171597; 0.024162; 2.674524;, - 6.112909; 0.024162; 2.681939;, - 6.179743; 0.416938; 2.674524;, - -5.968874; 2.480090; 0.732473;, - -5.999288; 2.411149; 0.749414;, - -5.900530; 2.425184; 0.413739;, - -5.900530; 2.425184; 0.413739;, - -5.870116; 2.494125; 0.396798;, - -5.968874; 2.480090; 0.732473;, - -5.870116; 2.494125; 0.396798;, - -5.900530; 2.425184; 0.413739;, - -5.801771; 2.439220; 0.078064;, - -5.938461; 2.549030; 0.715533;, - -5.968874; 2.480090; 0.732473;, - -5.870116; 2.494125; 0.396798;, - -5.840730; 2.540175; 0.400433;, - -5.938461; 2.549030; 0.715533;, - -5.870116; 2.494125; 0.396798;, - -5.870116; 2.494125; 0.396798;, - -5.772386; 2.485270; 0.081698;, - -5.840730; 2.540175; 0.400433;, - -5.772386; 2.485270; 0.081698;, - -5.870116; 2.494125; 0.396798;, - -5.801771; 2.439220; 0.078064;, - -5.743000; 2.531321; 0.085333;, - -5.840730; 2.540175; 0.400433;, - -5.772386; 2.485270; 0.081698;, - -5.969097; 2.416852; 0.788446;, - -5.999288; 2.411149; 0.749414;, - -5.968874; 2.480090; 0.732473;, - -5.968874; 2.480090; 0.732473;, - -5.938684; 2.485792; 0.771505;, - -5.969097; 2.416852; 0.788446;, - -5.938684; 2.485792; 0.771505;, - -5.968874; 2.480090; 0.732473;, - -5.938461; 2.549030; 0.715533;, - -5.938906; 2.422554; 0.827478;, - -5.969097; 2.416852; 0.788446;, - -5.938684; 2.485792; 0.771505;, - -5.909108; 2.491829; 0.808145;, - -5.938906; 2.422554; 0.827478;, - -5.938684; 2.485792; 0.771505;, - -5.938684; 2.485792; 0.771505;, - -5.908885; 2.555067; 0.752172;, - -5.909108; 2.491829; 0.808145;, - -5.908885; 2.555067; 0.752172;, - -5.938684; 2.485792; 0.771505;, - -5.938461; 2.549030; 0.715533;, - -5.879309; 2.561103; 0.788812;, - -5.909108; 2.491829; 0.808145;, - -5.908885; 2.555067; 0.752172;, - -5.805436; 2.418187; 0.808145;, - -5.938906; 2.422554; 0.827478;, - -5.909108; 2.491829; 0.808145;, - -5.909108; 2.491829; 0.808145;, - -5.775638; 2.487462; 0.788812;, - -5.805436; 2.418187; 0.808145;, - -5.775638; 2.487462; 0.788812;, - -5.909108; 2.491829; 0.808145;, - -5.879309; 2.561103; 0.788812;, - -5.671966; 2.413821; 0.788812;, - -5.805436; 2.418187; 0.808145;, - -5.775638; 2.487462; 0.788812;, - -5.682962; 2.513254; 0.797878;, - -5.671966; 2.413821; 0.788812;, - -5.775638; 2.487462; 0.788812;, - -5.775638; 2.487462; 0.788812;, - -5.786634; 2.586895; 0.797878;, - -5.682962; 2.513254; 0.797878;, - -5.786634; 2.586895; 0.797878;, - -5.775638; 2.487462; 0.788812;, - -5.879309; 2.561103; 0.788812;, - -5.693959; 2.612687; 0.806943;, - -5.682962; 2.513254; 0.797878;, - -5.786634; 2.586895; 0.797878;, - -5.709065; 2.494269; 0.082603;, - -5.737973; 2.448287; 0.078997;, - -5.581577; 2.517397; 0.081303;, - -5.581577; 2.517397; 0.081303;, - -5.552670; 2.563379; 0.084909;, - -5.709065; 2.494269; 0.082603;, - -5.552670; 2.563379; 0.084909;, - -5.581577; 2.517397; 0.081303;, - -5.425181; 2.586507; 0.083609;, - -5.680158; 2.540252; 0.086209;, - -5.709065; 2.494269; 0.082603;, - -5.552670; 2.563379; 0.084909;, - -5.519971; 2.574732; 0.088374;, - -5.680158; 2.540252; 0.086209;, - -5.552670; 2.563379; 0.084909;, - -5.552670; 2.563379; 0.084909;, - -5.392483; 2.597860; 0.087074;, - -5.519971; 2.574732; 0.088374;, - -5.392483; 2.597860; 0.087074;, - -5.552670; 2.563379; 0.084909;, - -5.425181; 2.586507; 0.083609;, - -5.359784; 2.609213; 0.090539;, - -5.519971; 2.574732; 0.088374;, - -5.392483; 2.597860; 0.087074;, - -5.772386; 2.485270; 0.081698;, - -5.801771; 2.439220; 0.078064;, - -5.769872; 2.443753; 0.078531;, - -5.769872; 2.443753; 0.078531;, - -5.740486; 2.489804; 0.082165;, - -5.772386; 2.485270; 0.081698;, - -5.740486; 2.489804; 0.082165;, - -5.769872; 2.443753; 0.078531;, - -5.737973; 2.448287; 0.078997;, - -5.743000; 2.531321; 0.085333;, - -5.772386; 2.485270; 0.081698;, - -5.740486; 2.489804; 0.082165;, - -5.711578; 2.535786; 0.085771;, - -5.743000; 2.531321; 0.085333;, - -5.740486; 2.489804; 0.082165;, - -5.740486; 2.489804; 0.082165;, - -5.709065; 2.494269; 0.082603;, - -5.711578; 2.535786; 0.085771;, - -5.709065; 2.494269; 0.082603;, - -5.740486; 2.489804; 0.082165;, - -5.737973; 2.448287; 0.078997;, - -5.680158; 2.540252; 0.086209;, - -5.711578; 2.535786; 0.085771;, - -5.709065; 2.494269; 0.082603;, - -5.840730; 2.540175; 0.400433;, - -5.743000; 2.531321; 0.085333;, - -5.711578; 2.535786; 0.085771;, - -5.711578; 2.535786; 0.085771;, - -5.809309; 2.544641; 0.400871;, - -5.840730; 2.540175; 0.400433;, - -5.809309; 2.544641; 0.400871;, - -5.711578; 2.535786; 0.085771;, - -5.680158; 2.540252; 0.086209;, - -5.938461; 2.549030; 0.715533;, - -5.840730; 2.540175; 0.400433;, - -5.809309; 2.544641; 0.400871;, - -5.908885; 2.555067; 0.752172;, - -5.938461; 2.549030; 0.715533;, - -5.809309; 2.544641; 0.400871;, - -5.809309; 2.544641; 0.400871;, - -5.779734; 2.550678; 0.437510;, - -5.908885; 2.555067; 0.752172;, - -5.779734; 2.550678; 0.437510;, - -5.809309; 2.544641; 0.400871;, - -5.680158; 2.540252; 0.086209;, - -5.879309; 2.561103; 0.788812;, - -5.908885; 2.555067; 0.752172;, - -5.779734; 2.550678; 0.437510;, - -5.786634; 2.586895; 0.797878;, - -5.879309; 2.561103; 0.788812;, - -5.779734; 2.550678; 0.437510;, - -5.779734; 2.550678; 0.437510;, - -5.687058; 2.576469; 0.446576;, - -5.786634; 2.586895; 0.797878;, - -5.687058; 2.576469; 0.446576;, - -5.779734; 2.550678; 0.437510;, - -5.680158; 2.540252; 0.086209;, - -5.693959; 2.612687; 0.806943;, - -5.786634; 2.586895; 0.797878;, - -5.687058; 2.576469; 0.446576;, - -5.526872; 2.610950; 0.448741;, - -5.693959; 2.612687; 0.806943;, - -5.687058; 2.576469; 0.446576;, - -5.687058; 2.576469; 0.446576;, - -5.519971; 2.574732; 0.088374;, - -5.526872; 2.610950; 0.448741;, - -5.519971; 2.574732; 0.088374;, - -5.687058; 2.576469; 0.446576;, - -5.680158; 2.540252; 0.086209;, - -5.359784; 2.609213; 0.090539;, - -5.526872; 2.610950; 0.448741;, - -5.519971; 2.574732; 0.088374;, - -5.244532; 2.618814; 0.756631;, - -5.693959; 2.612687; 0.806943;, - -5.526872; 2.610950; 0.448741;, - -5.526872; 2.610950; 0.448741;, - -5.077445; 2.617077; 0.398429;, - -5.244532; 2.618814; 0.756631;, - -5.077445; 2.617077; 0.398429;, - -5.526872; 2.610950; 0.448741;, - -5.359784; 2.609213; 0.090539;, - -4.795105; 2.624941; 0.706319;, - -5.244532; 2.618814; 0.756631;, - -5.077445; 2.617077; 0.398429;, - -4.813238; 2.605803; 0.407197;, - -4.795105; 2.624941; 0.706319;, - -5.077445; 2.617077; 0.398429;, - -5.077445; 2.617077; 0.398429;, - -5.095578; 2.597939; 0.099307;, - -4.813238; 2.605803; 0.407197;, - -5.095578; 2.597939; 0.099307;, - -5.077445; 2.617077; 0.398429;, - -5.359784; 2.609213; 0.090539;, - -4.831372; 2.586664; 0.108075;, - -4.813238; 2.605803; 0.407197;, - -5.095578; 2.597939; 0.099307;, - -6.185688; 0.587718; 0.826654;, - -6.158298; 1.151137; 0.825151;, - -6.072808; 0.587718; 0.826282;, - -6.072808; 0.587718; 0.826282;, - -6.100198; 0.024299; 0.827785;, - -6.185688; 0.587718; 0.826654;, - -6.100198; 0.024299; 0.827785;, - -6.072808; 0.587718; 0.826282;, - -5.987319; 0.024299; 0.827412;, - -6.213077; 0.024299; 0.828157;, - -6.185688; 0.587718; 0.826654;, - -6.100198; 0.024299; 0.827785;, - -6.072808; 0.587718; 0.826282;, - -6.158298; 1.151137; 0.825151;, - -6.048633; 1.151137; 0.824779;, - -6.048633; 1.151137; 0.824779;, - -5.963143; 0.587718; 0.825909;, - -6.072808; 0.587718; 0.826282;, - -5.963143; 0.587718; 0.825909;, - -6.048633; 1.151137; 0.824779;, - -5.938967; 1.151137; 0.824406;, - -5.987319; 0.024299; 0.827412;, - -6.072808; 0.587718; 0.826282;, - -5.963143; 0.587718; 0.825909;, - -5.672982; 1.991027; 1.311159;, - -5.635287; 2.239133; 1.311475;, - -5.509350; 2.193274; 1.569087;, - -5.509350; 2.193274; 1.569087;, - -5.547046; 1.945168; 1.568770;, - -5.672982; 1.991027; 1.311159;, - -5.547046; 1.945168; 1.568770;, - -5.509350; 2.193274; 1.569087;, - -5.383414; 2.147416; 1.826698;, - -5.710678; 1.742921; 1.310843;, - -5.672982; 1.991027; 1.311159;, - -5.547046; 1.945168; 1.568770;, - -5.580520; 1.742920; 1.568657;, - -5.710678; 1.742921; 1.310843;, - -5.547046; 1.945168; 1.568770;, - -5.547046; 1.945168; 1.568770;, - -5.416887; 1.945167; 1.826584;, - -5.580520; 1.742920; 1.568657;, - -5.416887; 1.945167; 1.826584;, - -5.547046; 1.945168; 1.568770;, - -5.383414; 2.147416; 1.826698;, - -5.450361; 1.742919; 1.826471;, - -5.580520; 1.742920; 1.568657;, - -5.416887; 1.945167; 1.826584;, - -5.832759; 1.988335; 0.829511;, - -5.792793; 2.233825; 0.827478;, - -5.751736; 1.988373; 1.069160;, - -5.751736; 1.988373; 1.069160;, - -5.791701; 1.742883; 1.071193;, - -5.832759; 1.988335; 0.829511;, - -5.791701; 1.742883; 1.071193;, - -5.751736; 1.988373; 1.069160;, - -5.710678; 1.742921; 1.310843;, - -5.872725; 1.742845; 0.831544;, - -5.832759; 1.988335; 0.829511;, - -5.791701; 1.742883; 1.071193;, - -5.751736; 1.988373; 1.069160;, - -5.792793; 2.233825; 0.827478;, - -5.714040; 2.236479; 1.069476;, - -5.714040; 2.236479; 1.069476;, - -5.672982; 1.991027; 1.311159;, - -5.751736; 1.988373; 1.069160;, - -5.672982; 1.991027; 1.311159;, - -5.714040; 2.236479; 1.069476;, - -5.635287; 2.239133; 1.311475;, - -5.710678; 1.742921; 1.310843;, - -5.751736; 1.988373; 1.069160;, - -5.672982; 1.991027; 1.311159;, - -6.075352; 1.690521; 0.826315;, - -5.992406; 2.229904; 0.827478;, - -5.932566; 1.986374; 0.829511;, - -5.932566; 1.986374; 0.829511;, - -6.015512; 1.446991; 0.828348;, - -6.075352; 1.690521; 0.826315;, - -6.015512; 1.446991; 0.828348;, - -5.932566; 1.986374; 0.829511;, - -5.872725; 1.742845; 0.831544;, - -6.158298; 1.151137; 0.825151;, - -6.075352; 1.690521; 0.826315;, - -6.015512; 1.446991; 0.828348;, - -6.048633; 1.151137; 0.824779;, - -6.158298; 1.151137; 0.825151;, - -6.015512; 1.446991; 0.828348;, - -6.015512; 1.446991; 0.828348;, - -5.905846; 1.446991; 0.827975;, - -6.048633; 1.151137; 0.824779;, - -5.905846; 1.446991; 0.827975;, - -6.015512; 1.446991; 0.828348;, - -5.872725; 1.742845; 0.831544;, - -5.938967; 1.151137; 0.824406;, - -6.048633; 1.151137; 0.824779;, - -5.905846; 1.446991; 0.827975;, - -5.926513;-1.641989; 0.078064;, - -6.002557;-1.103001; 0.078064;, - -6.029043;-1.641989; 0.413740;, - -6.029043;-1.641989; 0.413740;, - -5.952999;-2.180977; 0.413740;, - -5.926513;-1.641989; 0.078064;, - -5.952999;-2.180977; 0.413740;, - -6.029043;-1.641989; 0.413740;, - -6.055529;-2.180977; 0.749415;, - -5.850469;-2.180977; 0.078064;, - -5.926513;-1.641989; 0.078064;, - -5.952999;-2.180977; 0.413740;, - -6.029043;-1.641989; 0.413740;, - -6.002557;-1.103001; 0.078064;, - -6.115072;-1.103001; 0.412309;, - -6.115072;-1.103001; 0.412309;, - -6.141559;-1.641989; 0.747984;, - -6.029043;-1.641989; 0.413740;, - -6.141559;-1.641989; 0.747984;, - -6.115072;-1.103001; 0.412309;, - -6.227588;-1.103001; 0.746553;, - -6.055529;-2.180977; 0.749415;, - -6.029043;-1.641989; 0.413740;, - -6.141559;-1.641989; 0.747984;, - -6.075389;-1.642608; 0.826048;, - -5.992432;-2.182215; 0.827479;, - -6.023981;-2.181596; 0.788447;, - -6.023981;-2.181596; 0.788447;, - -6.106937;-1.641989; 0.787016;, - -6.075389;-1.642608; 0.826048;, - -6.106937;-1.641989; 0.787016;, - -6.023981;-2.181596; 0.788447;, - -6.055529;-2.180977; 0.749415;, - -6.158346;-1.103001; 0.824617;, - -6.075389;-1.642608; 0.826048;, - -6.106937;-1.641989; 0.787016;, - -6.192967;-1.103001; 0.785585;, - -6.158346;-1.103001; 0.824617;, - -6.106937;-1.641989; 0.787016;, - -6.106937;-1.641989; 0.787016;, - -6.141559;-1.641989; 0.747984;, - -6.192967;-1.103001; 0.785585;, - -6.141559;-1.641989; 0.747984;, - -6.106937;-1.641989; 0.787016;, - -6.055529;-2.180977; 0.749415;, - -6.227588;-1.103001; 0.746553;, - -6.192967;-1.103001; 0.785585;, - -6.141559;-1.641989; 0.747984;, - 4.807460;-1.103001; 2.257377;, - 5.518433;-1.103001; 2.226151;, - 5.454097;-1.600501; 2.226151;, - 5.454097;-1.600501; 2.226151;, - 4.743124;-1.600501; 2.257377;, - 4.807460;-1.103001; 2.257377;, - 4.743124;-1.600501; 2.257377;, - 5.454097;-1.600501; 2.226151;, - 5.389761;-2.098001; 2.226151;, - 4.096487;-1.103001; 2.288602;, - 4.807460;-1.103001; 2.257377;, - 4.743124;-1.600501; 2.257377;, - 4.090501;-1.608599; 2.288429;, - 4.096487;-1.103001; 2.288602;, - 4.743124;-1.600501; 2.257377;, - 4.743124;-1.600501; 2.257377;, - 4.737138;-2.106100; 2.257204;, - 4.090501;-1.608599; 2.288429;, - 4.737138;-2.106100; 2.257204;, - 4.743124;-1.600501; 2.257377;, - 5.389761;-2.098001; 2.226151;, - 4.084516;-2.114198; 2.288257;, - 4.090501;-1.608599; 2.288429;, - 4.737138;-2.106100; 2.257204;, - 6.083476;-1.103001; 2.124668;, - 6.156384;-1.103001; 2.054410;, - 6.042146;-1.613367; 2.054410;, - 6.042146;-1.613367; 2.054410;, - 5.969237;-1.613367; 2.124668;, - 6.083476;-1.103001; 2.124668;, - 5.969237;-1.613367; 2.124668;, - 6.042146;-1.613367; 2.054410;, - 5.927908;-2.123732; 2.054410;, - 6.010567;-1.103001; 2.194925;, - 6.083476;-1.103001; 2.124668;, - 5.969237;-1.613367; 2.124668;, - 5.907735;-1.598586; 2.194925;, - 6.010567;-1.103001; 2.194925;, - 5.969237;-1.613367; 2.124668;, - 5.969237;-1.613367; 2.124668;, - 5.866405;-2.108951; 2.124668;, - 5.907735;-1.598586; 2.194925;, - 5.866405;-2.108951; 2.124668;, - 5.969237;-1.613367; 2.124668;, - 5.927908;-2.123732; 2.054410;, - 5.804903;-2.094170; 2.194925;, - 5.907735;-1.598586; 2.194925;, - 5.866405;-2.108951; 2.124668;, - 5.958139;-1.639111; 1.686183;, - 5.851029;-2.175221; 1.686183;, - 5.889468;-2.149477; 1.870296;, - 5.889468;-2.149477; 1.870296;, - 5.996578;-1.613367; 1.870296;, - 5.958139;-1.639111; 1.686183;, - 5.996578;-1.613367; 1.870296;, - 5.889468;-2.149477; 1.870296;, - 5.927908;-2.123732; 2.054410;, - 6.065249;-1.103001; 1.686183;, - 5.958139;-1.639111; 1.686183;, - 5.996578;-1.613367; 1.870296;, - 6.110816;-1.103001; 1.870296;, - 6.065249;-1.103001; 1.686183;, - 5.996578;-1.613367; 1.870296;, - 5.996578;-1.613367; 1.870296;, - 6.042146;-1.613367; 2.054410;, - 6.110816;-1.103001; 1.870296;, - 6.042146;-1.613367; 2.054410;, - 5.996578;-1.613367; 1.870296;, - 5.927908;-2.123732; 2.054410;, - 6.156384;-1.103001; 2.054410;, - 6.110816;-1.103001; 1.870296;, - 6.042146;-1.613367; 2.054410;, - 6.129044;-1.103001; 0.408089;, - 6.083476;-1.103001; 0.384881;, - 6.013380;-1.617559; 0.408089;, - 6.013380;-1.617559; 0.408089;, - 6.058948;-1.617559; 0.431297;, - 6.129044;-1.103001; 0.408089;, - 6.058948;-1.617559; 0.431297;, - 6.013380;-1.617559; 0.408089;, - 5.943284;-2.132117; 0.431297;, - 6.174612;-1.103001; 0.431297;, - 6.129044;-1.103001; 0.408089;, - 6.058948;-1.617559; 0.431297;, - 6.013380;-1.617559; 0.408089;, - 6.083476;-1.103001; 0.384881;, - 5.974941;-1.618649; 0.384881;, - 5.974941;-1.618649; 0.384881;, - 5.904845;-2.133208; 0.408089;, - 6.013380;-1.617559; 0.408089;, - 5.904845;-2.133208; 0.408089;, - 5.974941;-1.618649; 0.384881;, - 5.866407;-2.134298; 0.384881;, - 5.943284;-2.132117; 0.431297;, - 6.013380;-1.617559; 0.408089;, - 5.904845;-2.133208; 0.408089;, - 5.538104;-1.624321; 0.333308;, - 5.466638;-2.145641; 0.333308;, - 5.666523;-2.139970; 0.359095;, - 5.666523;-2.139970; 0.359095;, - 5.737988;-1.618649; 0.359095;, - 5.538104;-1.624321; 0.333308;, - 5.737988;-1.618649; 0.359095;, - 5.666523;-2.139970; 0.359095;, - 5.866407;-2.134298; 0.384881;, - 5.609569;-1.103001; 0.333308;, - 5.538104;-1.624321; 0.333308;, - 5.737988;-1.618649; 0.359095;, - 5.846522;-1.103001; 0.359095;, - 5.609569;-1.103001; 0.333308;, - 5.737988;-1.618649; 0.359095;, - 5.737988;-1.618649; 0.359095;, - 5.974941;-1.618649; 0.384881;, - 5.846522;-1.103001; 0.359095;, - 5.974941;-1.618649; 0.384881;, - 5.737988;-1.618649; 0.359095;, - 5.866407;-2.134298; 0.384881;, - 6.083476;-1.103001; 0.384881;, - 5.846522;-1.103001; 0.359095;, - 5.974941;-1.618649; 0.384881;, - -2.632677;-1.103001; 0.003551;, - -2.677959;-1.103001; 0.030106;, - -2.632677;-1.641989; 0.003551;, - -2.632677;-1.641989; 0.003551;, - -2.587394;-1.641989;-0.023003;, - -2.632677;-1.103001; 0.003551;, - -2.587394;-1.641989;-0.023003;, - -2.632677;-1.641989; 0.003551;, - -2.587394;-2.180977;-0.023003;, - -2.587394;-1.103001;-0.023004;, - -2.632677;-1.103001; 0.003551;, - -2.587394;-1.641989;-0.023003;, - -2.632677;-1.641989; 0.003551;, - -2.677959;-1.103001; 0.030106;, - -2.677959;-1.641989; 0.030106;, - -2.677959;-1.641989; 0.030106;, - -2.632677;-2.180977; 0.003551;, - -2.632677;-1.641989; 0.003551;, - -2.632677;-2.180977; 0.003551;, - -2.677959;-1.641989; 0.030106;, - -2.677959;-2.180977; 0.030106;, - -2.587394;-2.180977;-0.023003;, - -2.632677;-1.641989; 0.003551;, - -2.632677;-2.180977; 0.003551;, - -2.687015;-1.103001; 0.375315;, - -2.696071;-1.103001; 0.720523;, - -2.687015;-1.641989; 0.375315;, - -2.687015;-1.641989; 0.375315;, - -2.677959;-1.641989; 0.030106;, - -2.687015;-1.103001; 0.375315;, - -2.677959;-1.641989; 0.030106;, - -2.687015;-1.641989; 0.375315;, - -2.677959;-2.180977; 0.030106;, - -2.677959;-1.103001; 0.030106;, - -2.687015;-1.103001; 0.375315;, - -2.677959;-1.641989; 0.030106;, - -2.687015;-1.641989; 0.375315;, - -2.696071;-1.103001; 0.720523;, - -2.696071;-1.654623; 0.720523;, - -2.696071;-1.654623; 0.720523;, - -2.687015;-2.193611; 0.375315;, - -2.687015;-1.641989; 0.375315;, - -2.687015;-2.193611; 0.375315;, - -2.696071;-1.654623; 0.720523;, - -2.696071;-2.206245; 0.720523;, - -2.677959;-2.180977; 0.030106;, - -2.687015;-1.641989; 0.375315;, - -2.687015;-2.193611; 0.375315;, - -2.895311;-1.663626; 1.198504;, - -2.895311;-2.224252; 1.198504;, - -2.795691;-2.215249; 0.959513;, - -2.795691;-2.215249; 0.959513;, - -2.795691;-1.654623; 0.959513;, - -2.895311;-1.663626; 1.198504;, - -2.795691;-1.654623; 0.959513;, - -2.795691;-2.215249; 0.959513;, - -2.696071;-2.206245; 0.720523;, - -2.895311;-1.103001; 1.198504;, - -2.895311;-1.663626; 1.198504;, - -2.795691;-1.654623; 0.959513;, - -2.795691;-1.103001; 0.959513;, - -2.895311;-1.103001; 1.198504;, - -2.795691;-1.654623; 0.959513;, - -2.795691;-1.654623; 0.959513;, - -2.696071;-1.654623; 0.720523;, - -2.795691;-1.103001; 0.959513;, - -2.696071;-1.654623; 0.720523;, - -2.795691;-1.654623; 0.959513;, - -2.696071;-2.206245; 0.720523;, - -2.696071;-1.103001; 0.720523;, - -2.795691;-1.103001; 0.959513;, - -2.696071;-1.654623; 0.720523;, - -3.764725;-1.103001; 1.490605;, - -4.126981;-1.103001; 1.499456;, - -4.126981;-1.663798; 1.499456;, - -4.126981;-1.663798; 1.499456;, - -3.764725;-1.663798; 1.490605;, - -3.764725;-1.103001; 1.490605;, - -3.764725;-1.663798; 1.490605;, - -4.126981;-1.663798; 1.499456;, - -4.126981;-2.224594; 1.499456;, - -3.402469;-1.103001; 1.481753;, - -3.764725;-1.103001; 1.490605;, - -3.764725;-1.663798; 1.490605;, - -3.402469;-1.663852; 1.481753;, - -3.402469;-1.103001; 1.481753;, - -3.764725;-1.663798; 1.490605;, - -3.764725;-1.663798; 1.490605;, - -3.764725;-2.224648; 1.490605;, - -3.402469;-1.663852; 1.481753;, - -3.764725;-2.224648; 1.490605;, - -3.764725;-1.663798; 1.490605;, - -4.126981;-2.224594; 1.499456;, - -3.402469;-2.224703; 1.481753;, - -3.402469;-1.663852; 1.481753;, - -3.764725;-2.224648; 1.490605;, - -4.394255;-1.103001; 1.366683;, - -4.661528;-1.103001; 1.233911;, - -4.644991;-1.659556; 1.233911;, - -4.644991;-1.659556; 1.233911;, - -4.377717;-1.659556; 1.366683;, - -4.394255;-1.103001; 1.366683;, - -4.377717;-1.659556; 1.366683;, - -4.644991;-1.659556; 1.233911;, - -4.628454;-2.216111; 1.233911;, - -4.126981;-1.103001; 1.499456;, - -4.394255;-1.103001; 1.366683;, - -4.377717;-1.659556; 1.366683;, - -4.126981;-1.663798; 1.499456;, - -4.126981;-1.103001; 1.499456;, - -4.377717;-1.659556; 1.366683;, - -4.377717;-1.659556; 1.366683;, - -4.377717;-2.220353; 1.366683;, - -4.126981;-1.663798; 1.499456;, - -4.377717;-2.220353; 1.366683;, - -4.377717;-1.659556; 1.366683;, - -4.628454;-2.216111; 1.233911;, - -4.126981;-2.224594; 1.499456;, - -4.126981;-1.663798; 1.499456;, - -4.377717;-2.220353; 1.366683;, - -4.795637;-1.103001; 0.986068;, - -4.929746;-1.103001; 0.738226;, - -4.901307;-1.650967; 0.738226;, - -4.901307;-1.650967; 0.738226;, - -4.767198;-1.650967; 0.986068;, - -4.795637;-1.103001; 0.986068;, - -4.767198;-1.650967; 0.986068;, - -4.901307;-1.650967; 0.738226;, - -4.872867;-2.198933; 0.738226;, - -4.661528;-1.103001; 1.233911;, - -4.795637;-1.103001; 0.986068;, - -4.767198;-1.650967; 0.986068;, - -4.644991;-1.659556; 1.233911;, - -4.661528;-1.103001; 1.233911;, - -4.767198;-1.650967; 0.986068;, - -4.767198;-1.650967; 0.986068;, - -4.750661;-2.207522; 0.986068;, - -4.644991;-1.659556; 1.233911;, - -4.750661;-2.207522; 0.986068;, - -4.767198;-1.650967; 0.986068;, - -4.872867;-2.198933; 0.738226;, - -4.628454;-2.216111; 1.233911;, - -4.644991;-1.659556; 1.233911;, - -4.750661;-2.207522; 0.986068;, - -4.950377;-1.103001; 0.419572;, - -4.971008;-1.103001; 0.100918;, - -4.940739;-1.641989; 0.100918;, - -4.940739;-1.641989; 0.100918;, - -4.920108;-1.641989; 0.419572;, - -4.950377;-1.103001; 0.419572;, - -4.920108;-1.641989; 0.419572;, - -4.940739;-1.641989; 0.100918;, - -4.910469;-2.180977; 0.100918;, - -4.929746;-1.103001; 0.738226;, - -4.950377;-1.103001; 0.419572;, - -4.920108;-1.641989; 0.419572;, - -4.901307;-1.650967; 0.738226;, - -4.929746;-1.103001; 0.738226;, - -4.920108;-1.641989; 0.419572;, - -4.920108;-1.641989; 0.419572;, - -4.891668;-2.189955; 0.419572;, - -4.901307;-1.650967; 0.738226;, - -4.891668;-2.189955; 0.419572;, - -4.920108;-1.641989; 0.419572;, - -4.910469;-2.180977; 0.100918;, - -4.872867;-2.198933; 0.738226;, - -4.901307;-1.650967; 0.738226;, - -4.891668;-2.189955; 0.419572;, - 2.804164;-1.663682; 1.218213;, - 2.717226;-2.224364; 1.216504;, - 2.952515;-2.224639; 1.332190;, - 2.952515;-2.224639; 1.332190;, - 3.039453;-1.663958; 1.333899;, - 2.804164;-1.663682; 1.218213;, - 3.039453;-1.663958; 1.333899;, - 2.952515;-2.224639; 1.332190;, - 3.187804;-2.224914; 1.447876;, - 2.891102;-1.103001; 1.219922;, - 2.804164;-1.663682; 1.218213;, - 3.039453;-1.663958; 1.333899;, - 3.084968;-1.103001; 1.333899;, - 2.891102;-1.103001; 1.219922;, - 3.039453;-1.663958; 1.333899;, - 3.039453;-1.663958; 1.333899;, - 3.233319;-1.663958; 1.447876;, - 3.084968;-1.103001; 1.333899;, - 3.233319;-1.663958; 1.447876;, - 3.039453;-1.663958; 1.333899;, - 3.187804;-2.224914; 1.447876;, - 3.278834;-1.103001; 1.447876;, - 3.084968;-1.103001; 1.333899;, - 3.233319;-1.663958; 1.447876;, - 3.233319;-1.663958; 1.447876;, - 3.187804;-2.224914; 1.447876;, - 3.535213;-2.224915; 1.447707;, - 3.535213;-2.224915; 1.447707;, - 3.580728;-1.663959; 1.447707;, - 3.233319;-1.663958; 1.447876;, - 3.580728;-1.663959; 1.447707;, - 3.535213;-2.224915; 1.447707;, - 3.882621;-2.224916; 1.447538;, - 3.278834;-1.103001; 1.447876;, - 3.233319;-1.663958; 1.447876;, - 3.580728;-1.663959; 1.447707;, - 3.566041;-1.103001; 1.447707;, - 3.278834;-1.103001; 1.447876;, - 3.580728;-1.663959; 1.447707;, - 3.580728;-1.663959; 1.447707;, - 3.867934;-1.663959; 1.447538;, - 3.566041;-1.103001; 1.447707;, - 3.867934;-1.663959; 1.447538;, - 3.580728;-1.663959; 1.447707;, - 3.882621;-2.224916; 1.447538;, - 3.853248;-1.103001; 1.447538;, - 3.566041;-1.103001; 1.447707;, - 3.867934;-1.663959; 1.447538;, - 3.867934;-1.663959; 1.447538;, - 3.882621;-2.224916; 1.447538;, - 4.096522;-1.663959; 1.316247;, - 4.096522;-1.663959; 1.316247;, - 4.081836;-1.103001; 1.316247;, - 3.867934;-1.663959; 1.447538;, - 4.081836;-1.103001; 1.316247;, - 4.096522;-1.663959; 1.316247;, - 4.310424;-1.103001; 1.184955;, - 3.853248;-1.103001; 1.447538;, - 3.867934;-1.663959; 1.447538;, - 4.081836;-1.103001; 1.316247;, - 4.096522;-1.663959; 1.316247;, - 3.882621;-2.224916; 1.447538;, - 4.126679;-2.222329; 1.316247;, - 4.126679;-2.222329; 1.316247;, - 4.340580;-1.661371; 1.184955;, - 4.096522;-1.663959; 1.316247;, - 4.340580;-1.661371; 1.184955;, - 4.126679;-2.222329; 1.316247;, - 4.370737;-2.219741; 1.184955;, - 4.310424;-1.103001; 1.184955;, - 4.096522;-1.663959; 1.316247;, - 4.340580;-1.661371; 1.184955;, - 4.340580;-1.661371; 1.184955;, - 4.370737;-2.219741; 1.184955;, - 4.467401;-2.207675; 0.948933;, - 4.467401;-2.207675; 0.948933;, - 4.437244;-1.649305; 0.948933;, - 4.340580;-1.661371; 1.184955;, - 4.437244;-1.649305; 0.948933;, - 4.467401;-2.207675; 0.948933;, - 4.564065;-2.195609; 0.712912;, - 4.310424;-1.103001; 1.184955;, - 4.340580;-1.661371; 1.184955;, - 4.437244;-1.649305; 0.948933;, - 4.425015;-1.103001; 0.948933;, - 4.310424;-1.103001; 1.184955;, - 4.437244;-1.649305; 0.948933;, - 4.437244;-1.649305; 0.948933;, - 4.551836;-1.649305; 0.712912;, - 4.425015;-1.103001; 0.948933;, - 4.551836;-1.649305; 0.712912;, - 4.437244;-1.649305; 0.948933;, - 4.564065;-2.195609; 0.712912;, - 4.539606;-1.103001; 0.712912;, - 4.425015;-1.103001; 0.948933;, - 4.551836;-1.649305; 0.712912;, - 4.551836;-1.649305; 0.712912;, - 4.564065;-2.195609; 0.712912;, - 4.572852;-2.183179; 0.523802;, - 4.572852;-2.183179; 0.523802;, - 4.560623;-1.636875; 0.523802;, - 4.551836;-1.649305; 0.712912;, - 4.560623;-1.636875; 0.523802;, - 4.572852;-2.183179; 0.523802;, - 4.581640;-2.170750; 0.334691;, - 4.539606;-1.103001; 0.712912;, - 4.551836;-1.649305; 0.712912;, - 4.560623;-1.636875; 0.523802;, - 4.550024;-1.103001; 0.523802;, - 4.539606;-1.103001; 0.712912;, - 4.560623;-1.636875; 0.523802;, - 4.560623;-1.636875; 0.523802;, - 4.571041;-1.636875; 0.334691;, - 4.550024;-1.103001; 0.523802;, - 4.571041;-1.636875; 0.334691;, - 4.560623;-1.636875; 0.523802;, - 4.581640;-2.170750; 0.334691;, - 4.560442;-1.103001; 0.334691;, - 4.550024;-1.103001; 0.523802;, - 4.571041;-1.636875; 0.334691;, - 4.571041;-1.636875; 0.334691;, - 4.581640;-2.170750; 0.334691;, - 4.625578;-2.169503; 0.326028;, - 4.625578;-2.169503; 0.326028;, - 4.614980;-1.635629; 0.326028;, - 4.571041;-1.636875; 0.334691;, - 4.614980;-1.635629; 0.326028;, - 4.625578;-2.169503; 0.326028;, - 4.669517;-2.168257; 0.317366;, - 4.560442;-1.103001; 0.334691;, - 4.571041;-1.636875; 0.334691;, - 4.614980;-1.635629; 0.326028;, - 4.612529;-1.103001; 0.326028;, - 4.560442;-1.103001; 0.334691;, - 4.614980;-1.635629; 0.326028;, - 4.614980;-1.635629; 0.326028;, - 4.667066;-1.635629; 0.317366;, - 4.612529;-1.103001; 0.326028;, - 4.667066;-1.635629; 0.317366;, - 4.614980;-1.635629; 0.326028;, - 4.669517;-2.168257; 0.317366;, - 4.664615;-1.103001; 0.317366;, - 4.612529;-1.103001; 0.326028;, - 4.667066;-1.635629; 0.317366;, - 2.518636;-1.103001;-0.012634;, - 2.379544;-1.103001;-0.038859;, - 2.418895;-1.643312;-0.012634;, - 2.418895;-1.643312;-0.012634;, - 2.557987;-1.643312; 0.013590;, - 2.518636;-1.103001;-0.012634;, - 2.557987;-1.643312; 0.013590;, - 2.418895;-1.643312;-0.012634;, - 2.458246;-2.183623; 0.013590;, - 2.657728;-1.103001; 0.013590;, - 2.518636;-1.103001;-0.012634;, - 2.557987;-1.643312; 0.013590;, - 2.418895;-1.643312;-0.012634;, - 2.379544;-1.103001;-0.038859;, - 2.294878;-1.648697;-0.038859;, - 2.294878;-1.648697;-0.038859;, - 2.334229;-2.189008;-0.012634;, - 2.418895;-1.643312;-0.012634;, - 2.334229;-2.189008;-0.012634;, - 2.294878;-1.648697;-0.038859;, - 2.210212;-2.194393;-0.038859;, - 2.458246;-2.183623; 0.013590;, - 2.418895;-1.643312;-0.012634;, - 2.334229;-2.189008;-0.012634;, - 4.667066;-1.635629; 0.317366;, - 4.669517;-2.168257; 0.317366;, - 5.068078;-2.156949; 0.325337;, - 5.068078;-2.156949; 0.325337;, - 5.065627;-1.624321; 0.325337;, - 4.667066;-1.635629; 0.317366;, - 5.065627;-1.624321; 0.325337;, - 5.068078;-2.156949; 0.325337;, - 5.466638;-2.145641; 0.333308;, - 4.664615;-1.103001; 0.317366;, - 4.667066;-1.635629; 0.317366;, - 5.065627;-1.624321; 0.325337;, - 5.137092;-1.103001; 0.325337;, - 4.664615;-1.103001; 0.317366;, - 5.065627;-1.624321; 0.325337;, - 5.065627;-1.624321; 0.325337;, - 5.538104;-1.624321; 0.333308;, - 5.137092;-1.103001; 0.325337;, - 5.538104;-1.624321; 0.333308;, - 5.065627;-1.624321; 0.325337;, - 5.466638;-2.145641; 0.333308;, - 5.609569;-1.103001; 0.333308;, - 5.137092;-1.103001; 0.325337;, - 5.538104;-1.624321; 0.333308;, - -6.168537; 0.024299; 0.414079;, - -6.284346; 0.024299; 0.750093;, - -6.255967;-0.539351; 0.748323;, - -6.255967;-0.539351; 0.748323;, - -6.140158;-0.539351; 0.412309;, - -6.168537; 0.024299; 0.414079;, - -6.140158;-0.539351; 0.412309;, - -6.255967;-0.539351; 0.748323;, - -6.227588;-1.103001; 0.746553;, - -6.052728; 0.024299; 0.078064;, - -6.168537; 0.024299; 0.414079;, - -6.140158;-0.539351; 0.412309;, - -6.027642;-0.539351; 0.078064;, - -6.052728; 0.024299; 0.078064;, - -6.140158;-0.539351; 0.412309;, - -6.140158;-0.539351; 0.412309;, - -6.115072;-1.103001; 0.412309;, - -6.027642;-0.539351; 0.078064;, - -6.115072;-1.103001; 0.412309;, - -6.140158;-0.539351; 0.412309;, - -6.227588;-1.103001; 0.746553;, - -6.002557;-1.103001; 0.078064;, - -6.027642;-0.539351; 0.078064;, - -6.115072;-1.103001; 0.412309;, - -6.248712; 0.024299; 0.789125;, - -6.213077; 0.024299; 0.828157;, - -6.220333;-0.539351; 0.787355;, - -6.220333;-0.539351; 0.787355;, - -6.255967;-0.539351; 0.748323;, - -6.248712; 0.024299; 0.789125;, - -6.255967;-0.539351; 0.748323;, - -6.220333;-0.539351; 0.787355;, - -6.227588;-1.103001; 0.746553;, - -6.284346; 0.024299; 0.750093;, - -6.248712; 0.024299; 0.789125;, - -6.255967;-0.539351; 0.748323;, - -6.220333;-0.539351; 0.787355;, - -6.213077; 0.024299; 0.828157;, - -6.185712;-0.539351; 0.826387;, - -6.185712;-0.539351; 0.826387;, - -6.192967;-1.103001; 0.785585;, - -6.220333;-0.539351; 0.787355;, - -6.192967;-1.103001; 0.785585;, - -6.185712;-0.539351; 0.826387;, - -6.158346;-1.103001; 0.824617;, - -6.227588;-1.103001; 0.746553;, - -6.220333;-0.539351; 0.787355;, - -6.192967;-1.103001; 0.785585;, - 5.537691;-0.539351; 2.226151;, - 5.518433;-1.103001; 2.226151;, - 4.808411;-0.539351; 2.257377;, - 4.808411;-0.539351; 2.257377;, - 4.827668; 0.024299; 2.257377;, - 5.537691;-0.539351; 2.226151;, - 4.827668; 0.024299; 2.257377;, - 4.808411;-0.539351; 2.257377;, - 4.098388; 0.024299; 2.288602;, - 5.556948; 0.024299; 2.226151;, - 5.537691;-0.539351; 2.226151;, - 4.827668; 0.024299; 2.257377;, - 4.808411;-0.539351; 2.257377;, - 5.518433;-1.103001; 2.226151;, - 4.807460;-1.103001; 2.257377;, - 4.807460;-1.103001; 2.257377;, - 4.097437;-0.539351; 2.288602;, - 4.808411;-0.539351; 2.257377;, - 4.097437;-0.539351; 2.288602;, - 4.807460;-1.103001; 2.257377;, - 4.096487;-1.103001; 2.288602;, - 4.098388; 0.024299; 2.288602;, - 4.808411;-0.539351; 2.257377;, - 4.097437;-0.539351; 2.288602;, - 6.184509;-0.539351; 2.054410;, - 6.156384;-1.103001; 2.054410;, - 6.109574;-0.539351; 2.124668;, - 6.109574;-0.539351; 2.124668;, - 6.137700; 0.024299; 2.124668;, - 6.184509;-0.539351; 2.054410;, - 6.137700; 0.024299; 2.124668;, - 6.109574;-0.539351; 2.124668;, - 6.062765; 0.024299; 2.194925;, - 6.212635; 0.024299; 2.054410;, - 6.184509;-0.539351; 2.054410;, - 6.137700; 0.024299; 2.124668;, - 6.109574;-0.539351; 2.124668;, - 6.156384;-1.103001; 2.054410;, - 6.083476;-1.103001; 2.124668;, - 6.083476;-1.103001; 2.124668;, - 6.036666;-0.539351; 2.194925;, - 6.109574;-0.539351; 2.124668;, - 6.036666;-0.539351; 2.194925;, - 6.083476;-1.103001; 2.124668;, - 6.010567;-1.103001; 2.194925;, - 6.062765; 0.024299; 2.194925;, - 6.109574;-0.539351; 2.124668;, - 6.036666;-0.539351; 2.194925;, - 6.165801; 0.024299; 1.870296;, - 6.118967; 0.024299; 1.686183;, - 6.137675;-0.539351; 1.870296;, - 6.137675;-0.539351; 1.870296;, - 6.184509;-0.539351; 2.054410;, - 6.165801; 0.024299; 1.870296;, - 6.184509;-0.539351; 2.054410;, - 6.137675;-0.539351; 1.870296;, - 6.156384;-1.103001; 2.054410;, - 6.212635; 0.024299; 2.054410;, - 6.165801; 0.024299; 1.870296;, - 6.184509;-0.539351; 2.054410;, - 6.137675;-0.539351; 1.870296;, - 6.118967; 0.024299; 1.686183;, - 6.092108;-0.539351; 1.686183;, - 6.092108;-0.539351; 1.686183;, - 6.110816;-1.103001; 1.870296;, - 6.137675;-0.539351; 1.870296;, - 6.110816;-1.103001; 1.870296;, - 6.092108;-0.539351; 1.686183;, - 6.065249;-1.103001; 1.686183;, - 6.156384;-1.103001; 2.054410;, - 6.137675;-0.539351; 1.870296;, - 6.110816;-1.103001; 1.870296;, - 6.184536; 0.024299; 0.408089;, - 6.137701; 0.024299; 0.384881;, - 6.156157;-0.539351; 0.408089;, - 6.156157;-0.539351; 0.408089;, - 6.202991;-0.539351; 0.431297;, - 6.184536; 0.024299; 0.408089;, - 6.202991;-0.539351; 0.431297;, - 6.156157;-0.539351; 0.408089;, - 6.174612;-1.103001; 0.431297;, - 6.231371; 0.024299; 0.431297;, - 6.184536; 0.024299; 0.408089;, - 6.202991;-0.539351; 0.431297;, - 6.156157;-0.539351; 0.408089;, - 6.137701; 0.024299; 0.384881;, - 6.110589;-0.539351; 0.384881;, - 6.110589;-0.539351; 0.384881;, - 6.129044;-1.103001; 0.408089;, - 6.156157;-0.539351; 0.408089;, - 6.129044;-1.103001; 0.408089;, - 6.110589;-0.539351; 0.384881;, - 6.083476;-1.103001; 0.384881;, - 6.174612;-1.103001; 0.431297;, - 6.156157;-0.539351; 0.408089;, - 6.129044;-1.103001; 0.408089;, - 5.630094;-0.539351; 0.333308;, - 5.609569;-1.103001; 0.333308;, - 5.846522;-1.103001; 0.359095;, - 5.846522;-1.103001; 0.359095;, - 5.867047;-0.539351; 0.359095;, - 5.630094;-0.539351; 0.333308;, - 5.867047;-0.539351; 0.359095;, - 5.846522;-1.103001; 0.359095;, - 6.083476;-1.103001; 0.384881;, - 5.650618; 0.024299; 0.333308;, - 5.630094;-0.539351; 0.333308;, - 5.867047;-0.539351; 0.359095;, - 5.894159; 0.024299; 0.359095;, - 5.650618; 0.024299; 0.333308;, - 5.867047;-0.539351; 0.359095;, - 5.867047;-0.539351; 0.359095;, - 6.110589;-0.539351; 0.384881;, - 5.894159; 0.024299; 0.359095;, - 6.110589;-0.539351; 0.384881;, - 5.867047;-0.539351; 0.359095;, - 6.083476;-1.103001; 0.384881;, - 6.137701; 0.024299; 0.384881;, - 5.894159; 0.024299; 0.359095;, - 6.110589;-0.539351; 0.384881;, - -2.632677; 0.024299; 0.003551;, - -2.677959; 0.024299; 0.030106;, - -2.632677;-0.539351; 0.003551;, - -2.632677;-0.539351; 0.003551;, - -2.587394;-0.539351;-0.023004;, - -2.632677; 0.024299; 0.003551;, - -2.587394;-0.539351;-0.023004;, - -2.632677;-0.539351; 0.003551;, - -2.587394;-1.103001;-0.023004;, - -2.587395; 0.024299;-0.023004;, - -2.632677; 0.024299; 0.003551;, - -2.587394;-0.539351;-0.023004;, - -2.632677;-0.539351; 0.003551;, - -2.677959; 0.024299; 0.030106;, - -2.677959;-0.539351; 0.030106;, - -2.677959;-0.539351; 0.030106;, - -2.632677;-1.103001; 0.003551;, - -2.632677;-0.539351; 0.003551;, - -2.632677;-1.103001; 0.003551;, - -2.677959;-0.539351; 0.030106;, - -2.677959;-1.103001; 0.030106;, - -2.587394;-1.103001;-0.023004;, - -2.632677;-0.539351; 0.003551;, - -2.632677;-1.103001; 0.003551;, - -2.687015; 0.024299; 0.375315;, - -2.696071; 0.024299; 0.720523;, - -2.687015;-0.539351; 0.375315;, - -2.687015;-0.539351; 0.375315;, - -2.677959;-0.539351; 0.030106;, - -2.687015; 0.024299; 0.375315;, - -2.677959;-0.539351; 0.030106;, - -2.687015;-0.539351; 0.375315;, - -2.677959;-1.103001; 0.030106;, - -2.677959; 0.024299; 0.030106;, - -2.687015; 0.024299; 0.375315;, - -2.677959;-0.539351; 0.030106;, - -2.687015;-0.539351; 0.375315;, - -2.696071; 0.024299; 0.720523;, - -2.696071;-0.539351; 0.720523;, - -2.696071;-0.539351; 0.720523;, - -2.687015;-1.103001; 0.375315;, - -2.687015;-0.539351; 0.375315;, - -2.687015;-1.103001; 0.375315;, - -2.696071;-0.539351; 0.720523;, - -2.696071;-1.103001; 0.720523;, - -2.677959;-1.103001; 0.030106;, - -2.687015;-0.539351; 0.375315;, - -2.687015;-1.103001; 0.375315;, - -2.795691;-1.103001; 0.959513;, - -2.696071;-1.103001; 0.720523;, - -2.795691;-0.539351; 0.959513;, - -2.795691;-0.539351; 0.959513;, - -2.895311;-0.539351; 1.198504;, - -2.795691;-1.103001; 0.959513;, - -2.895311;-0.539351; 1.198504;, - -2.795691;-0.539351; 0.959513;, - -2.895311; 0.024299; 1.198504;, - -2.895311;-1.103001; 1.198504;, - -2.795691;-1.103001; 0.959513;, - -2.895311;-0.539351; 1.198504;, - -2.795691;-0.539351; 0.959513;, - -2.696071;-1.103001; 0.720523;, - -2.696071;-0.539351; 0.720523;, - -2.696071;-0.539351; 0.720523;, - -2.795691; 0.024299; 0.959513;, - -2.795691;-0.539351; 0.959513;, - -2.795691; 0.024299; 0.959513;, - -2.696071;-0.539351; 0.720523;, - -2.696071; 0.024299; 0.720523;, - -2.895311; 0.024299; 1.198504;, - -2.795691;-0.539351; 0.959513;, - -2.795691; 0.024299; 0.959513;, - -3.764725; 0.024299; 1.490605;, - -4.126981; 0.024299; 1.499456;, - -3.764725;-0.539351; 1.490605;, - -3.764725;-0.539351; 1.490605;, - -3.402469;-0.539351; 1.481753;, - -3.764725; 0.024299; 1.490605;, - -3.402469;-0.539351; 1.481753;, - -3.764725;-0.539351; 1.490605;, - -3.402469;-1.103001; 1.481753;, - -3.402469; 0.024299; 1.481753;, - -3.764725; 0.024299; 1.490605;, - -3.402469;-0.539351; 1.481753;, - -3.764725;-0.539351; 1.490605;, - -4.126981; 0.024299; 1.499456;, - -4.126981;-0.539351; 1.499456;, - -4.126981;-0.539351; 1.499456;, - -3.764725;-1.103001; 1.490605;, - -3.764725;-0.539351; 1.490605;, - -3.764725;-1.103001; 1.490605;, - -4.126981;-0.539351; 1.499456;, - -4.126981;-1.103001; 1.499456;, - -3.402469;-1.103001; 1.481753;, - -3.764725;-0.539351; 1.490605;, - -3.764725;-1.103001; 1.490605;, - -4.399710; 0.024299; 1.366683;, - -4.672439; 0.024299; 1.233911;, - -4.666984;-0.539351; 1.233911;, - -4.666984;-0.539351; 1.233911;, - -4.394255;-0.539351; 1.366683;, - -4.399710; 0.024299; 1.366683;, - -4.394255;-0.539351; 1.366683;, - -4.666984;-0.539351; 1.233911;, - -4.661528;-1.103001; 1.233911;, - -4.126981; 0.024299; 1.499456;, - -4.399710; 0.024299; 1.366683;, - -4.394255;-0.539351; 1.366683;, - -4.126981;-0.539351; 1.499456;, - -4.126981; 0.024299; 1.499456;, - -4.394255;-0.539351; 1.366683;, - -4.394255;-0.539351; 1.366683;, - -4.394255;-1.103001; 1.366683;, - -4.126981;-0.539351; 1.499456;, - -4.394255;-1.103001; 1.366683;, - -4.394255;-0.539351; 1.366683;, - -4.661528;-1.103001; 1.233911;, - -4.126981;-1.103001; 1.499456;, - -4.126981;-0.539351; 1.499456;, - -4.394255;-1.103001; 1.366683;, - -4.810473; 0.024299; 0.986068;, - -4.948508; 0.024299; 0.738226;, - -4.939127;-0.539351; 0.738226;, - -4.939127;-0.539351; 0.738226;, - -4.801093;-0.539351; 0.986068;, - -4.810473; 0.024299; 0.986068;, - -4.801093;-0.539351; 0.986068;, - -4.939127;-0.539351; 0.738226;, - -4.929746;-1.103001; 0.738226;, - -4.672439; 0.024299; 1.233911;, - -4.810473; 0.024299; 0.986068;, - -4.801093;-0.539351; 0.986068;, - -4.666984;-0.539351; 1.233911;, - -4.672439; 0.024299; 1.233911;, - -4.801093;-0.539351; 0.986068;, - -4.801093;-0.539351; 0.986068;, - -4.795637;-1.103001; 0.986068;, - -4.666984;-0.539351; 1.233911;, - -4.795637;-1.103001; 0.986068;, - -4.801093;-0.539351; 0.986068;, - -4.929746;-1.103001; 0.738226;, - -4.661528;-1.103001; 1.233911;, - -4.666984;-0.539351; 1.233911;, - -4.795637;-1.103001; 0.986068;, - -4.969744; 0.024299; 0.419572;, - -4.990979; 0.024299; 0.100918;, - -4.980993;-0.539351; 0.100918;, - -4.980993;-0.539351; 0.100918;, - -4.959758;-0.539351; 0.419572;, - -4.969744; 0.024299; 0.419572;, - -4.959758;-0.539351; 0.419572;, - -4.980993;-0.539351; 0.100918;, - -4.971008;-1.103001; 0.100918;, - -4.948508; 0.024299; 0.738226;, - -4.969744; 0.024299; 0.419572;, - -4.959758;-0.539351; 0.419572;, - -4.939127;-0.539351; 0.738226;, - -4.948508; 0.024299; 0.738226;, - -4.959758;-0.539351; 0.419572;, - -4.959758;-0.539351; 0.419572;, - -4.950377;-1.103001; 0.419572;, - -4.939127;-0.539351; 0.738226;, - -4.950377;-1.103001; 0.419572;, - -4.959758;-0.539351; 0.419572;, - -4.971008;-1.103001; 0.100918;, - -4.929746;-1.103001; 0.738226;, - -4.939127;-0.539351; 0.738226;, - -4.950377;-1.103001; 0.419572;, - 2.717649;-0.539351; 0.730395;, - 2.696692;-1.103001; 0.730395;, - 2.793897;-1.103001; 0.975158;, - 2.793897;-1.103001; 0.975158;, - 2.814854;-0.539351; 0.975158;, - 2.717649;-0.539351; 0.730395;, - 2.814854;-0.539351; 0.975158;, - 2.793897;-1.103001; 0.975158;, - 2.891102;-1.103001; 1.219922;, - 2.738605; 0.024299; 0.730395;, - 2.717649;-0.539351; 0.730395;, - 2.814854;-0.539351; 0.975158;, - 2.833642; 0.024299; 0.975158;, - 2.738605; 0.024299; 0.730395;, - 2.814854;-0.539351; 0.975158;, - 2.814854;-0.539351; 0.975158;, - 2.909891;-0.539351; 1.219922;, - 2.833642; 0.024299; 0.975158;, - 2.909891;-0.539351; 1.219922;, - 2.814854;-0.539351; 0.975158;, - 2.891102;-1.103001; 1.219922;, - 2.928679; 0.024299; 1.219922;, - 2.833642; 0.024299; 0.975158;, - 2.909891;-0.539351; 1.219922;, - 3.116680; 0.024299; 1.333899;, - 2.928679; 0.024299; 1.219922;, - 3.103756;-0.539351; 1.333899;, - 3.103756;-0.539351; 1.333899;, - 3.291757;-0.539351; 1.447875;, - 3.116680; 0.024299; 1.333899;, - 3.291757;-0.539351; 1.447875;, - 3.103756;-0.539351; 1.333899;, - 3.278834;-1.103001; 1.447876;, - 3.304680; 0.024299; 1.447875;, - 3.116680; 0.024299; 1.333899;, - 3.291757;-0.539351; 1.447875;, - 3.103756;-0.539351; 1.333899;, - 2.928679; 0.024299; 1.219922;, - 2.909891;-0.539351; 1.219922;, - 2.909891;-0.539351; 1.219922;, - 3.084968;-1.103001; 1.333899;, - 3.103756;-0.539351; 1.333899;, - 3.084968;-1.103001; 1.333899;, - 2.909891;-0.539351; 1.219922;, - 2.891102;-1.103001; 1.219922;, - 3.278834;-1.103001; 1.447876;, - 3.103756;-0.539351; 1.333899;, - 3.084968;-1.103001; 1.333899;, - 3.291757;-0.539351; 1.447875;, - 3.278834;-1.103001; 1.447876;, - 3.566041;-1.103001; 1.447707;, - 3.566041;-1.103001; 1.447707;, - 3.578964;-0.539351; 1.447706;, - 3.291757;-0.539351; 1.447875;, - 3.578964;-0.539351; 1.447706;, - 3.566041;-1.103001; 1.447707;, - 3.853248;-1.103001; 1.447538;, - 3.304680; 0.024299; 1.447875;, - 3.291757;-0.539351; 1.447875;, - 3.578964;-0.539351; 1.447706;, - 3.583199; 0.024299; 1.447706;, - 3.304680; 0.024299; 1.447875;, - 3.578964;-0.539351; 1.447706;, - 3.578964;-0.539351; 1.447706;, - 3.857482;-0.539351; 1.447538;, - 3.583199; 0.024299; 1.447706;, - 3.857482;-0.539351; 1.447538;, - 3.578964;-0.539351; 1.447706;, - 3.853248;-1.103001; 1.447538;, - 3.861717; 0.024299; 1.447538;, - 3.583199; 0.024299; 1.447706;, - 3.857482;-0.539351; 1.447538;, - 4.081836;-1.103001; 1.316247;, - 4.310424;-1.103001; 1.184955;, - 4.086071;-0.539351; 1.316247;, - 4.086071;-0.539351; 1.316247;, - 3.857482;-0.539351; 1.447538;, - 4.081836;-1.103001; 1.316247;, - 3.857482;-0.539351; 1.447538;, - 4.086071;-0.539351; 1.316247;, - 3.861717; 0.024299; 1.447538;, - 3.853248;-1.103001; 1.447538;, - 4.081836;-1.103001; 1.316247;, - 3.857482;-0.539351; 1.447538;, - 4.086071;-0.539351; 1.316247;, - 4.310424;-1.103001; 1.184955;, - 4.312888;-0.539351; 1.184955;, - 4.312888;-0.539351; 1.184955;, - 4.088535; 0.024299; 1.316247;, - 4.086071;-0.539351; 1.316247;, - 4.088535; 0.024299; 1.316247;, - 4.312888;-0.539351; 1.184955;, - 4.315353; 0.024299; 1.184955;, - 3.861717; 0.024299; 1.447538;, - 4.086071;-0.539351; 1.316247;, - 4.088535; 0.024299; 1.316247;, - 4.312888;-0.539351; 1.184955;, - 4.310424;-1.103001; 1.184955;, - 4.425015;-1.103001; 0.948933;, - 4.425015;-1.103001; 0.948933;, - 4.427480;-0.539351; 0.948933;, - 4.312888;-0.539351; 1.184955;, - 4.427480;-0.539351; 0.948933;, - 4.425015;-1.103001; 0.948933;, - 4.539606;-1.103001; 0.712912;, - 4.315353; 0.024299; 1.184955;, - 4.312888;-0.539351; 1.184955;, - 4.427480;-0.539351; 0.948933;, - 4.433130; 0.024299; 0.948933;, - 4.315353; 0.024299; 1.184955;, - 4.427480;-0.539351; 0.948933;, - 4.427480;-0.539351; 0.948933;, - 4.545257;-0.539351; 0.712912;, - 4.433130; 0.024299; 0.948933;, - 4.545257;-0.539351; 0.712912;, - 4.427480;-0.539351; 0.948933;, - 4.539606;-1.103001; 0.712912;, - 4.550907; 0.024299; 0.712912;, - 4.433130; 0.024299; 0.948933;, - 4.545257;-0.539351; 0.712912;, - 4.545257;-0.539351; 0.712912;, - 4.539606;-1.103001; 0.712912;, - 4.550024;-1.103001; 0.523802;, - 4.550024;-1.103001; 0.523802;, - 4.555675;-0.539351; 0.523802;, - 4.545257;-0.539351; 0.712912;, - 4.555675;-0.539351; 0.523802;, - 4.550024;-1.103001; 0.523802;, - 4.560442;-1.103001; 0.334691;, - 4.550907; 0.024299; 0.712912;, - 4.545257;-0.539351; 0.712912;, - 4.555675;-0.539351; 0.523802;, - 4.561615; 0.024299; 0.523802;, - 4.550907; 0.024299; 0.712912;, - 4.555675;-0.539351; 0.523802;, - 4.555675;-0.539351; 0.523802;, - 4.566382;-0.539351; 0.334691;, - 4.561615; 0.024299; 0.523802;, - 4.566382;-0.539351; 0.334691;, - 4.555675;-0.539351; 0.523802;, - 4.560442;-1.103001; 0.334691;, - 4.572322; 0.024299; 0.334691;, - 4.561615; 0.024299; 0.523802;, - 4.566382;-0.539351; 0.334691;, - 4.612529;-1.103001; 0.326028;, - 4.664615;-1.103001; 0.317366;, - 4.618468;-0.539351; 0.326028;, - 4.618468;-0.539351; 0.326028;, - 4.566382;-0.539351; 0.334691;, - 4.612529;-1.103001; 0.326028;, - 4.566382;-0.539351; 0.334691;, - 4.618468;-0.539351; 0.326028;, - 4.572322; 0.024299; 0.334691;, - 4.560442;-1.103001; 0.334691;, - 4.612529;-1.103001; 0.326028;, - 4.566382;-0.539351; 0.334691;, - 4.618468;-0.539351; 0.326028;, - 4.664615;-1.103001; 0.317366;, - 4.672004;-0.539351; 0.317365;, - 4.672004;-0.539351; 0.317365;, - 4.625857; 0.024299; 0.326028;, - 4.618468;-0.539351; 0.326028;, - 4.625857; 0.024299; 0.326028;, - 4.672004;-0.539351; 0.317365;, - 4.679392; 0.024299; 0.317365;, - 4.572322; 0.024299; 0.334691;, - 4.618468;-0.539351; 0.326028;, - 4.625857; 0.024299; 0.326028;, - 2.556579; 0.024299;-0.012634;, - 2.414385; 0.024299;-0.038859;, - 2.536057;-0.539351;-0.012634;, - 2.536057;-0.539351;-0.012634;, - 2.678250;-0.539351; 0.013590;, - 2.556579; 0.024299;-0.012634;, - 2.678250;-0.539351; 0.013590;, - 2.536057;-0.539351;-0.012634;, - 2.657728;-1.103001; 0.013590;, - 2.698773; 0.024299; 0.013590;, - 2.556579; 0.024299;-0.012634;, - 2.678250;-0.539351; 0.013590;, - 2.536057;-0.539351;-0.012634;, - 2.414385; 0.024299;-0.038859;, - 2.396965;-0.539351;-0.038859;, - 2.396965;-0.539351;-0.038859;, - 2.518636;-1.103001;-0.012634;, - 2.536057;-0.539351;-0.012634;, - 2.518636;-1.103001;-0.012634;, - 2.396965;-0.539351;-0.038859;, - 2.379544;-1.103001;-0.038859;, - 2.657728;-1.103001; 0.013590;, - 2.536057;-0.539351;-0.012634;, - 2.518636;-1.103001;-0.012634;, - 5.165005; 0.024299; 0.325337;, - 4.679392; 0.024299; 0.317365;, - 5.144481;-0.539351; 0.325337;, - 5.144481;-0.539351; 0.325337;, - 5.630094;-0.539351; 0.333308;, - 5.165005; 0.024299; 0.325337;, - 5.630094;-0.539351; 0.333308;, - 5.144481;-0.539351; 0.325337;, - 5.609569;-1.103001; 0.333308;, - 5.650618; 0.024299; 0.333308;, - 5.165005; 0.024299; 0.325337;, - 5.630094;-0.539351; 0.333308;, - 5.144481;-0.539351; 0.325337;, - 4.679392; 0.024299; 0.317365;, - 4.672004;-0.539351; 0.317365;, - 4.672004;-0.539351; 0.317365;, - 5.137092;-1.103001; 0.325337;, - 5.144481;-0.539351; 0.325337;, - 5.137092;-1.103001; 0.325337;, - 4.672004;-0.539351; 0.317365;, - 4.664615;-1.103001; 0.317366;, - 5.609569;-1.103001; 0.333308;, - 5.144481;-0.539351; 0.325337;, - 5.137092;-1.103001; 0.325337;, - -5.512603;-1.641989; 0.083558;, - -5.456837;-2.180977; 0.083610;, - -5.213923;-1.641989; 0.092264;, - -5.213923;-1.641989; 0.092264;, - -5.269689;-1.103001; 0.092211;, - -5.512603;-1.641989; 0.083558;, - -5.269689;-1.103001; 0.092211;, - -5.213923;-1.641989; 0.092264;, - -4.971008;-1.103001; 0.100918;, - -5.568369;-1.103001; 0.083505;, - -5.512603;-1.641989; 0.083558;, - -5.269689;-1.103001; 0.092211;, - -5.213923;-1.641989; 0.092264;, - -5.456837;-2.180977; 0.083610;, - -5.183653;-2.180977; 0.092264;, - -5.183653;-2.180977; 0.092264;, - -4.940739;-1.641989; 0.100918;, - -5.213923;-1.641989; 0.092264;, - -4.940739;-1.641989; 0.100918;, - -5.183653;-2.180977; 0.092264;, - -4.910469;-2.180977; 0.100918;, - -4.971008;-1.103001; 0.100918;, - -5.213923;-1.641989; 0.092264;, - -4.940739;-1.641989; 0.100918;, - -5.585903;-0.539351; 0.083450;, - -5.568369;-1.103001; 0.083505;, - -5.279674;-0.539351; 0.092211;, - -5.279674;-0.539351; 0.092211;, - -5.297208; 0.024299; 0.092157;, - -5.585903;-0.539351; 0.083450;, - -5.297208; 0.024299; 0.092157;, - -5.279674;-0.539351; 0.092211;, - -4.990979; 0.024299; 0.100918;, - -5.603437; 0.024299; 0.083396;, - -5.585903;-0.539351; 0.083450;, - -5.297208; 0.024299; 0.092157;, - -5.279674;-0.539351; 0.092211;, - -5.568369;-1.103001; 0.083505;, - -5.269689;-1.103001; 0.092211;, - -5.269689;-1.103001; 0.092211;, - -4.980993;-0.539351; 0.100918;, - -5.279674;-0.539351; 0.092211;, - -4.980993;-0.539351; 0.100918;, - -5.269689;-1.103001; 0.092211;, - -4.971008;-1.103001; 0.100918;, - -4.990979; 0.024299; 0.100918;, - -5.279674;-0.539351; 0.092211;, - -4.980993;-0.539351; 0.100918;, - -5.855319;-1.641989; 0.079007;, - -5.784234;-2.180977; 0.078997;, - -5.676301;-1.641989; 0.081251;, - -5.676301;-1.641989; 0.081251;, - -5.747387;-1.103001; 0.081262;, - -5.855319;-1.641989; 0.079007;, - -5.747387;-1.103001; 0.081262;, - -5.676301;-1.641989; 0.081251;, - -5.568369;-1.103001; 0.083505;, - -5.926405;-1.103001; 0.079018;, - -5.855319;-1.641989; 0.079007;, - -5.747387;-1.103001; 0.081262;, - -5.676301;-1.641989; 0.081251;, - -5.784234;-2.180977; 0.078997;, - -5.620536;-2.180977; 0.081303;, - -5.620536;-2.180977; 0.081303;, - -5.512603;-1.641989; 0.083558;, - -5.676301;-1.641989; 0.081251;, - -5.512603;-1.641989; 0.083558;, - -5.620536;-2.180977; 0.081303;, - -5.456837;-2.180977; 0.083610;, - -5.568369;-1.103001; 0.083505;, - -5.676301;-1.641989; 0.081251;, - -5.512603;-1.641989; 0.083558;, - -5.926513;-1.641989; 0.078064;, - -5.850469;-2.180977; 0.078064;, - -5.888437;-1.641989; 0.078541;, - -5.888437;-1.641989; 0.078541;, - -5.964481;-1.103001; 0.078541;, - -5.926513;-1.641989; 0.078064;, - -5.964481;-1.103001; 0.078541;, - -5.888437;-1.641989; 0.078541;, - -5.926405;-1.103001; 0.079018;, - -6.002557;-1.103001; 0.078064;, - -5.926513;-1.641989; 0.078064;, - -5.964481;-1.103001; 0.078541;, - -5.888437;-1.641989; 0.078541;, - -5.850469;-2.180977; 0.078064;, - -5.817351;-2.180977; 0.078531;, - -5.817351;-2.180977; 0.078531;, - -5.855319;-1.641989; 0.079007;, - -5.888437;-1.641989; 0.078541;, - -5.855319;-1.641989; 0.079007;, - -5.817351;-2.180977; 0.078531;, - -5.784234;-2.180977; 0.078997;, - -5.926405;-1.103001; 0.079018;, - -5.888437;-1.641989; 0.078541;, - -5.855319;-1.641989; 0.079007;, - -5.948507;-0.539351; 0.079028;, - -5.926405;-1.103001; 0.079018;, - -5.764921;-0.539351; 0.081207;, - -5.764921;-0.539351; 0.081207;, - -5.787024; 0.024299; 0.081217;, - -5.948507;-0.539351; 0.079028;, - -5.787024; 0.024299; 0.081217;, - -5.764921;-0.539351; 0.081207;, - -5.603437; 0.024299; 0.083396;, - -5.970610; 0.024299; 0.079038;, - -5.948507;-0.539351; 0.079028;, - -5.787024; 0.024299; 0.081217;, - -5.764921;-0.539351; 0.081207;, - -5.926405;-1.103001; 0.079018;, - -5.747387;-1.103001; 0.081262;, - -5.747387;-1.103001; 0.081262;, - -5.585903;-0.539351; 0.083450;, - -5.764921;-0.539351; 0.081207;, - -5.585903;-0.539351; 0.083450;, - -5.747387;-1.103001; 0.081262;, - -5.568369;-1.103001; 0.083505;, - -5.603437; 0.024299; 0.083396;, - -5.764921;-0.539351; 0.081207;, - -5.585903;-0.539351; 0.083450;, - -6.027642;-0.539351; 0.078064;, - -6.002557;-1.103001; 0.078064;, - -5.986584;-0.539351; 0.078551;, - -5.986584;-0.539351; 0.078551;, - -6.011669; 0.024299; 0.078551;, - -6.027642;-0.539351; 0.078064;, - -6.011669; 0.024299; 0.078551;, - -5.986584;-0.539351; 0.078551;, - -5.970610; 0.024299; 0.079038;, - -6.052728; 0.024299; 0.078064;, - -6.027642;-0.539351; 0.078064;, - -6.011669; 0.024299; 0.078551;, - -5.986584;-0.539351; 0.078551;, - -6.002557;-1.103001; 0.078064;, - -5.964481;-1.103001; 0.078541;, - -5.964481;-1.103001; 0.078541;, - -5.948507;-0.539351; 0.079028;, - -5.986584;-0.539351; 0.078551;, - -5.948507;-0.539351; 0.079028;, - -5.964481;-1.103001; 0.078541;, - -5.926405;-1.103001; 0.079018;, - -5.970610; 0.024299; 0.079038;, - -5.986584;-0.539351; 0.078551;, - -5.948507;-0.539351; 0.079028;, - -2.031683;-1.103001;-0.021182;, - -2.587394;-1.103001;-0.023004;, - -2.587394;-1.641989;-0.023003;, - -2.587394;-1.641989;-0.023003;, - -2.031683;-1.641989;-0.021182;, - -2.031683;-1.103001;-0.021182;, - -2.031683;-1.641989;-0.021182;, - -2.587394;-1.641989;-0.023003;, - -2.587394;-2.180977;-0.023003;, - -1.475972;-1.103001;-0.019361;, - -2.031683;-1.103001;-0.021182;, - -2.031683;-1.641989;-0.021182;, - -1.426852;-1.641989;-0.019389;, - -1.475972;-1.103001;-0.019361;, - -2.031683;-1.641989;-0.021182;, - -2.031683;-1.641989;-0.021182;, - -1.982563;-2.180977;-0.021210;, - -1.426852;-1.641989;-0.019389;, - -1.982563;-2.180977;-0.021210;, - -2.031683;-1.641989;-0.021182;, - -2.587394;-2.180977;-0.023003;, - -1.377731;-2.180977;-0.019418;, - -1.426852;-1.641989;-0.019389;, - -1.982563;-2.180977;-0.021210;, - 0.451786;-1.103001;-0.029110;, - -1.475972;-1.103001;-0.019361;, - 0.367120;-1.648697;-0.029110;, - 0.367120;-1.648697;-0.029110;, - 2.294878;-1.648697;-0.038859;, - 0.451786;-1.103001;-0.029110;, - 2.294878;-1.648697;-0.038859;, - 0.367120;-1.648697;-0.029110;, - 2.210212;-2.194393;-0.038859;, - 2.379544;-1.103001;-0.038859;, - 0.451786;-1.103001;-0.029110;, - 2.294878;-1.648697;-0.038859;, - 0.367120;-1.648697;-0.029110;, - -1.475972;-1.103001;-0.019361;, - -1.426852;-1.641989;-0.019389;, - -1.426852;-1.641989;-0.019389;, - 0.416241;-2.187685;-0.029138;, - 0.367120;-1.648697;-0.029110;, - 0.416241;-2.187685;-0.029138;, - -1.426852;-1.641989;-0.019389;, - -1.377731;-2.180977;-0.019418;, - 2.210212;-2.194393;-0.038859;, - 0.367120;-1.648697;-0.029110;, - 0.416241;-2.187685;-0.029138;, - -2.082508; 0.024299;-0.021153;, - -2.587395; 0.024299;-0.023004;, - -2.587394;-0.539351;-0.023004;, - -2.587394;-0.539351;-0.023004;, - -2.082507;-0.539351;-0.021153;, - -2.082508; 0.024299;-0.021153;, - -2.082507;-0.539351;-0.021153;, - -2.587394;-0.539351;-0.023004;, - -2.587394;-1.103001;-0.023004;, - -1.577620; 0.024299;-0.019302;, - -2.082508; 0.024299;-0.021153;, - -2.082507;-0.539351;-0.021153;, - -1.526796;-0.539351;-0.019331;, - -1.577620; 0.024299;-0.019302;, - -2.082507;-0.539351;-0.021153;, - -2.082507;-0.539351;-0.021153;, - -2.031683;-1.103001;-0.021182;, - -1.526796;-0.539351;-0.019331;, - -2.031683;-1.103001;-0.021182;, - -2.082507;-0.539351;-0.021153;, - -2.587394;-1.103001;-0.023004;, - -1.475972;-1.103001;-0.019361;, - -1.526796;-0.539351;-0.019331;, - -2.031683;-1.103001;-0.021182;, - 0.418383; 0.024299;-0.029080;, - -1.577620; 0.024299;-0.019302;, - -1.526796;-0.539351;-0.019331;, - -1.526796;-0.539351;-0.019331;, - 0.469207;-0.539351;-0.029110;, - 0.418383; 0.024299;-0.029080;, - 0.469207;-0.539351;-0.029110;, - -1.526796;-0.539351;-0.019331;, - -1.475972;-1.103001;-0.019361;, - 2.414385; 0.024299;-0.038859;, - 0.418383; 0.024299;-0.029080;, - 0.469207;-0.539351;-0.029110;, - 2.396965;-0.539351;-0.038859;, - 2.414385; 0.024299;-0.038859;, - 0.469207;-0.539351;-0.029110;, - 0.469207;-0.539351;-0.029110;, - 0.451786;-1.103001;-0.029110;, - 2.396965;-0.539351;-0.038859;, - 0.451786;-1.103001;-0.029110;, - 0.469207;-0.539351;-0.029110;, - -1.475972;-1.103001;-0.019361;, - 2.379544;-1.103001;-0.038859;, - 2.396965;-0.539351;-0.038859;, - 0.451786;-1.103001;-0.029110;, - 3.939147;-1.103001; 2.285282;, - 4.096487;-1.103001; 2.288602;, - 4.090501;-1.608599; 2.288429;, - 4.090501;-1.608599; 2.288429;, - 3.933162;-1.608599; 2.285110;, - 3.939147;-1.103001; 2.285282;, - 3.933162;-1.608599; 2.285110;, - 4.090501;-1.608599; 2.288429;, - 4.084516;-2.114198; 2.288257;, - 3.781808;-1.103001; 2.281962;, - 3.939147;-1.103001; 2.285282;, - 3.933162;-1.608599; 2.285110;, - 3.789007;-1.609966; 2.281837;, - 3.781808;-1.103001; 2.281962;, - 3.933162;-1.608599; 2.285110;, - 3.933162;-1.608599; 2.285110;, - 3.940361;-2.115564; 2.284984;, - 3.789007;-1.609966; 2.281837;, - 3.940361;-2.115564; 2.284984;, - 3.933162;-1.608599; 2.285110;, - 4.084516;-2.114198; 2.288257;, - 3.796207;-2.116931; 2.281711;, - 3.789007;-1.609966; 2.281837;, - 3.940361;-2.115564; 2.284984;, - 3.560465;-1.416026; 2.277475;, - 3.781808;-1.103001; 2.281962;, - 3.789007;-1.609966; 2.281837;, - 3.789007;-1.609966; 2.281837;, - 3.567665;-1.922991; 2.277350;, - 3.560465;-1.416026; 2.277475;, - 3.567665;-1.922991; 2.277350;, - 3.789007;-1.609966; 2.281837;, - 3.796207;-2.116931; 2.281711;, - 3.339123;-1.729051; 2.272989;, - 3.560465;-1.416026; 2.277475;, - 3.567665;-1.922991; 2.277350;, - 3.332139;-1.924849; 2.272933;, - 3.339123;-1.729051; 2.272989;, - 3.567665;-1.922991; 2.277350;, - 3.567665;-1.922991; 2.277350;, - 3.560680;-2.118788; 2.277294;, - 3.332139;-1.924849; 2.272933;, - 3.560680;-2.118788; 2.277294;, - 3.567665;-1.922991; 2.277350;, - 3.796207;-2.116931; 2.281711;, - 3.325154;-2.120646; 2.272876;, - 3.332139;-1.924849; 2.272933;, - 3.560680;-2.118788; 2.277294;, - 3.945413; 0.024299; 2.285282;, - 4.098388; 0.024299; 2.288602;, - 4.097437;-0.539351; 2.288602;, - 4.097437;-0.539351; 2.288602;, - 3.944463;-0.539351; 2.285282;, - 3.945413; 0.024299; 2.285282;, - 3.944463;-0.539351; 2.285282;, - 4.097437;-0.539351; 2.288602;, - 4.096487;-1.103001; 2.288602;, - 3.792438; 0.024299; 2.281962;, - 3.945413; 0.024299; 2.285282;, - 3.944463;-0.539351; 2.285282;, - 3.787123;-0.539351; 2.281962;, - 3.792438; 0.024299; 2.281962;, - 3.944463;-0.539351; 2.285282;, - 3.944463;-0.539351; 2.285282;, - 3.939147;-1.103001; 2.285282;, - 3.787123;-0.539351; 2.281962;, - 3.939147;-1.103001; 2.285282;, - 3.944463;-0.539351; 2.285282;, - 4.096487;-1.103001; 2.288602;, - 3.781808;-1.103001; 2.281962;, - 3.787123;-0.539351; 2.281962;, - 3.939147;-1.103001; 2.285282;, - 3.603402; 0.024299; 2.277475;, - 3.792438; 0.024299; 2.281962;, - 3.787123;-0.539351; 2.281962;, - 3.787123;-0.539351; 2.281962;, - 3.598086;-0.539351; 2.277475;, - 3.603402; 0.024299; 2.277475;, - 3.598086;-0.539351; 2.277475;, - 3.787123;-0.539351; 2.281962;, - 3.781808;-1.103001; 2.281962;, - 3.414365; 0.024299; 2.272989;, - 3.603402; 0.024299; 2.277475;, - 3.598086;-0.539351; 2.277475;, - 3.376744;-0.852376; 2.272989;, - 3.414365; 0.024299; 2.272989;, - 3.598086;-0.539351; 2.277475;, - 3.598086;-0.539351; 2.277475;, - 3.560465;-1.416026; 2.277475;, - 3.376744;-0.852376; 2.272989;, - 3.560465;-1.416026; 2.277475;, - 3.598086;-0.539351; 2.277475;, - 3.781808;-1.103001; 2.281962;, - 3.339123;-1.729051; 2.272989;, - 3.376744;-0.852376; 2.272989;, - 3.560465;-1.416026; 2.277475;, - 2.804164;-1.663682; 1.218213;, - 2.891102;-1.103001; 1.219922;, - 2.793897;-1.103001; 0.975158;, - 2.793897;-1.103001; 0.975158;, - 2.706959;-1.663682; 0.973449;, - 2.804164;-1.663682; 1.218213;, - 2.706959;-1.663682; 0.973449;, - 2.793897;-1.103001; 0.975158;, - 2.696692;-1.103001; 0.730395;, - 2.717226;-2.224364; 1.216504;, - 2.804164;-1.663682; 1.218213;, - 2.706959;-1.663682; 0.973449;, - 2.605106;-2.216308; 0.973449;, - 2.717226;-2.224364; 1.216504;, - 2.706959;-1.663682; 0.973449;, - 2.706959;-1.663682; 0.973449;, - 2.594839;-1.655626; 0.730395;, - 2.605106;-2.216308; 0.973449;, - 2.594839;-1.655626; 0.730395;, - 2.706959;-1.663682; 0.973449;, - 2.696692;-1.103001; 0.730395;, - 2.492986;-2.208251; 0.730395;, - 2.605106;-2.216308; 0.973449;, - 2.594839;-1.655626; 0.730395;, - 6.075986;-1.103001; 1.577341;, - 6.086724;-1.103001; 1.468499;, - 5.977935;-1.639487; 1.468499;, - 5.977935;-1.639487; 1.468499;, - 5.967198;-1.639487; 1.577341;, - 6.075986;-1.103001; 1.577341;, - 5.967198;-1.639487; 1.577341;, - 5.977935;-1.639487; 1.468499;, - 5.869147;-2.175973; 1.468499;, - 6.065249;-1.103001; 1.686183;, - 6.075986;-1.103001; 1.577341;, - 5.967198;-1.639487; 1.577341;, - 5.958139;-1.639111; 1.686183;, - 6.065249;-1.103001; 1.686183;, - 5.967198;-1.639487; 1.577341;, - 5.967198;-1.639487; 1.577341;, - 5.860088;-2.175597; 1.577341;, - 5.958139;-1.639111; 1.686183;, - 5.860088;-2.175597; 1.577341;, - 5.967198;-1.639487; 1.577341;, - 5.869147;-2.175973; 1.468499;, - 5.851029;-2.175221; 1.686183;, - 5.958139;-1.639111; 1.686183;, - 5.860088;-2.175597; 1.577341;, - 6.113881;-0.539351; 1.468498;, - 6.086724;-1.103001; 1.468499;, - 6.102845;-0.539351; 1.577341;, - 6.102845;-0.539351; 1.577341;, - 6.130003; 0.024299; 1.577340;, - 6.113881;-0.539351; 1.468498;, - 6.130003; 0.024299; 1.577340;, - 6.102845;-0.539351; 1.577341;, - 6.118967; 0.024299; 1.686183;, - 6.141039; 0.024299; 1.468498;, - 6.113881;-0.539351; 1.468498;, - 6.130003; 0.024299; 1.577340;, - 6.102845;-0.539351; 1.577341;, - 6.086724;-1.103001; 1.468499;, - 6.075986;-1.103001; 1.577341;, - 6.075986;-1.103001; 1.577341;, - 6.092108;-0.539351; 1.686183;, - 6.102845;-0.539351; 1.577341;, - 6.092108;-0.539351; 1.686183;, - 6.075986;-1.103001; 1.577341;, - 6.065249;-1.103001; 1.686183;, - 6.118967; 0.024299; 1.686183;, - 6.102845;-0.539351; 1.577341;, - 6.092108;-0.539351; 1.686183;, - 6.098050;-1.103001; 1.353698;, - 6.109377;-1.103001; 1.238897;, - 5.998816;-1.639070; 1.238897;, - 5.998816;-1.639070; 1.238897;, - 5.987489;-1.639070; 1.353698;, - 6.098050;-1.103001; 1.353698;, - 5.987489;-1.639070; 1.353698;, - 5.998816;-1.639070; 1.238897;, - 5.888254;-2.175138; 1.238897;, - 6.086724;-1.103001; 1.468499;, - 6.098050;-1.103001; 1.353698;, - 5.987489;-1.639070; 1.353698;, - 5.977935;-1.639487; 1.468499;, - 6.086724;-1.103001; 1.468499;, - 5.987489;-1.639070; 1.353698;, - 5.987489;-1.639070; 1.353698;, - 5.878700;-2.175555; 1.353698;, - 5.977935;-1.639487; 1.468499;, - 5.878700;-2.175555; 1.353698;, - 5.987489;-1.639070; 1.353698;, - 5.888254;-2.175138; 1.238897;, - 5.869147;-2.175973; 1.468499;, - 5.977935;-1.639487; 1.468499;, - 5.878700;-2.175555; 1.353698;, - 6.152680; 0.024299; 1.353697;, - 6.164322; 0.024299; 1.238896;, - 6.136849;-0.539351; 1.238896;, - 6.136849;-0.539351; 1.238896;, - 6.125208;-0.539351; 1.353698;, - 6.152680; 0.024299; 1.353697;, - 6.125208;-0.539351; 1.353698;, - 6.136849;-0.539351; 1.238896;, - 6.109377;-1.103001; 1.238897;, - 6.141039; 0.024299; 1.468498;, - 6.152680; 0.024299; 1.353697;, - 6.125208;-0.539351; 1.353698;, - 6.113881;-0.539351; 1.468498;, - 6.141039; 0.024299; 1.468498;, - 6.125208;-0.539351; 1.353698;, - 6.125208;-0.539351; 1.353698;, - 6.098050;-1.103001; 1.353698;, - 6.113881;-0.539351; 1.468498;, - 6.098050;-1.103001; 1.353698;, - 6.125208;-0.539351; 1.353698;, - 6.109377;-1.103001; 1.238897;, - 6.086724;-1.103001; 1.468499;, - 6.113881;-0.539351; 1.468498;, - 6.098050;-1.103001; 1.353698;, - 6.158958;-1.103001; 0.663141;, - 6.174612;-1.103001; 0.431297;, - 6.058948;-1.617559; 0.431297;, - 6.058948;-1.617559; 0.431297;, - 6.043294;-1.617559; 0.663141;, - 6.158958;-1.103001; 0.663141;, - 6.043294;-1.617559; 0.663141;, - 6.058948;-1.617559; 0.431297;, - 5.943284;-2.132117; 0.431297;, - 6.143305;-1.103001; 0.894986;, - 6.158958;-1.103001; 0.663141;, - 6.043294;-1.617559; 0.663141;, - 6.030090;-1.637252; 0.894986;, - 6.143305;-1.103001; 0.894986;, - 6.043294;-1.617559; 0.663141;, - 6.043294;-1.617559; 0.663141;, - 5.930080;-2.151810; 0.663141;, - 6.030090;-1.637252; 0.894986;, - 5.930080;-2.151810; 0.663141;, - 6.043294;-1.617559; 0.663141;, - 5.943284;-2.132117; 0.431297;, - 5.916876;-2.171503; 0.894986;, - 6.030090;-1.637252; 0.894986;, - 5.930080;-2.151810; 0.663141;, - 6.126341;-1.103001; 1.066941;, - 6.143305;-1.103001; 0.894986;, - 6.030090;-1.637252; 0.894986;, - 6.030090;-1.637252; 0.894986;, - 6.013126;-1.637252; 1.066941;, - 6.126341;-1.103001; 1.066941;, - 6.013126;-1.637252; 1.066941;, - 6.030090;-1.637252; 0.894986;, - 5.916876;-2.171503; 0.894986;, - 6.109377;-1.103001; 1.238897;, - 6.126341;-1.103001; 1.066941;, - 6.013126;-1.637252; 1.066941;, - 5.998816;-1.639070; 1.238897;, - 6.109377;-1.103001; 1.238897;, - 6.013126;-1.637252; 1.066941;, - 6.013126;-1.637252; 1.066941;, - 5.902565;-2.173321; 1.066941;, - 5.998816;-1.639070; 1.238897;, - 5.902565;-2.173321; 1.066941;, - 6.013126;-1.637252; 1.066941;, - 5.916876;-2.171503; 0.894986;, - 5.888254;-2.175138; 1.238897;, - 5.998816;-1.639070; 1.238897;, - 5.902565;-2.173321; 1.066941;, - 6.202991;-0.539351; 0.431297;, - 6.174612;-1.103001; 0.431297;, - 6.186903;-0.539351; 0.663141;, - 6.186903;-0.539351; 0.663141;, - 6.215282; 0.024299; 0.663141;, - 6.202991;-0.539351; 0.431297;, - 6.215282; 0.024299; 0.663141;, - 6.186903;-0.539351; 0.663141;, - 6.199193; 0.024299; 0.894986;, - 6.231371; 0.024299; 0.431297;, - 6.202991;-0.539351; 0.431297;, - 6.215282; 0.024299; 0.663141;, - 6.186903;-0.539351; 0.663141;, - 6.174612;-1.103001; 0.431297;, - 6.158958;-1.103001; 0.663141;, - 6.158958;-1.103001; 0.663141;, - 6.171249;-0.539351; 0.894986;, - 6.186903;-0.539351; 0.663141;, - 6.171249;-0.539351; 0.894986;, - 6.158958;-1.103001; 0.663141;, - 6.143305;-1.103001; 0.894986;, - 6.199193; 0.024299; 0.894986;, - 6.186903;-0.539351; 0.663141;, - 6.171249;-0.539351; 0.894986;, - 6.181757; 0.024299; 1.066941;, - 6.199193; 0.024299; 0.894986;, - 6.171249;-0.539351; 0.894986;, - 6.171249;-0.539351; 0.894986;, - 6.153813;-0.539351; 1.066941;, - 6.181757; 0.024299; 1.066941;, - 6.153813;-0.539351; 1.066941;, - 6.171249;-0.539351; 0.894986;, - 6.143305;-1.103001; 0.894986;, - 6.164322; 0.024299; 1.238896;, - 6.181757; 0.024299; 1.066941;, - 6.153813;-0.539351; 1.066941;, - 6.136849;-0.539351; 1.238896;, - 6.164322; 0.024299; 1.238896;, - 6.153813;-0.539351; 1.066941;, - 6.153813;-0.539351; 1.066941;, - 6.126341;-1.103001; 1.066941;, - 6.136849;-0.539351; 1.238896;, - 6.126341;-1.103001; 1.066941;, - 6.153813;-0.539351; 1.066941;, - 6.143305;-1.103001; 0.894986;, - 6.109377;-1.103001; 1.238897;, - 6.136849;-0.539351; 1.238896;, - 6.126341;-1.103001; 1.066941;, - -3.278239;-1.103001; 1.412370;, - -3.402469;-1.103001; 1.481753;, - -3.402469;-1.663852; 1.481753;, - -3.402469;-1.663852; 1.481753;, - -3.278239;-1.663852; 1.412370;, - -3.278239;-1.103001; 1.412370;, - -3.278239;-1.663852; 1.412370;, - -3.402469;-1.663852; 1.481753;, - -3.402469;-2.224703; 1.481753;, - -3.154009;-1.103001; 1.342988;, - -3.278239;-1.103001; 1.412370;, - -3.278239;-1.663852; 1.412370;, - -3.154009;-1.664075; 1.342988;, - -3.154009;-1.103001; 1.342988;, - -3.278239;-1.663852; 1.412370;, - -3.278239;-1.663852; 1.412370;, - -3.278239;-2.224926; 1.412370;, - -3.154009;-1.664075; 1.342988;, - -3.278239;-2.224926; 1.412370;, - -3.278239;-1.663852; 1.412370;, - -3.402469;-2.224703; 1.481753;, - -3.154009;-2.225149; 1.342988;, - -3.154009;-1.664075; 1.342988;, - -3.278239;-2.224926; 1.412370;, - -3.024660;-1.103001; 1.270746;, - -3.154009;-1.103001; 1.342988;, - -3.024660;-1.663626; 1.270746;, - -3.024660;-1.663626; 1.270746;, - -2.895311;-1.663626; 1.198504;, - -3.024660;-1.103001; 1.270746;, - -2.895311;-1.663626; 1.198504;, - -3.024660;-1.663626; 1.270746;, - -2.895311;-2.224252; 1.198504;, - -2.895311;-1.103001; 1.198504;, - -3.024660;-1.103001; 1.270746;, - -2.895311;-1.663626; 1.198504;, - -3.024660;-1.663626; 1.270746;, - -3.154009;-1.103001; 1.342988;, - -3.154009;-1.664075; 1.342988;, - -3.154009;-1.664075; 1.342988;, - -3.024660;-2.224700; 1.270746;, - -3.024660;-1.663626; 1.270746;, - -3.024660;-2.224700; 1.270746;, - -3.154009;-1.664075; 1.342988;, - -3.154009;-2.225149; 1.342988;, - -2.895311;-2.224252; 1.198504;, - -3.024660;-1.663626; 1.270746;, - -3.024660;-2.224700; 1.270746;, - -3.278239; 0.024299; 1.412370;, - -3.402469; 0.024299; 1.481753;, - -3.278239;-0.539351; 1.412370;, - -3.278239;-0.539351; 1.412370;, - -3.154009;-0.539351; 1.342988;, - -3.278239; 0.024299; 1.412370;, - -3.154009;-0.539351; 1.342988;, - -3.278239;-0.539351; 1.412370;, - -3.154009;-1.103001; 1.342988;, - -3.154009; 0.024299; 1.342988;, - -3.278239; 0.024299; 1.412370;, - -3.154009;-0.539351; 1.342988;, - -3.278239;-0.539351; 1.412370;, - -3.402469; 0.024299; 1.481753;, - -3.402469;-0.539351; 1.481753;, - -3.402469;-0.539351; 1.481753;, - -3.278239;-1.103001; 1.412370;, - -3.278239;-0.539351; 1.412370;, - -3.278239;-1.103001; 1.412370;, - -3.402469;-0.539351; 1.481753;, - -3.402469;-1.103001; 1.481753;, - -3.154009;-1.103001; 1.342988;, - -3.278239;-0.539351; 1.412370;, - -3.278239;-1.103001; 1.412370;, - -3.024660; 0.024299; 1.270746;, - -3.154009; 0.024299; 1.342988;, - -3.024660;-0.539351; 1.270746;, - -3.024660;-0.539351; 1.270746;, - -2.895311;-0.539351; 1.198504;, - -3.024660; 0.024299; 1.270746;, - -2.895311;-0.539351; 1.198504;, - -3.024660;-0.539351; 1.270746;, - -2.895311;-1.103001; 1.198504;, - -2.895311; 0.024299; 1.198504;, - -3.024660; 0.024299; 1.270746;, - -2.895311;-0.539351; 1.198504;, - -3.024660;-0.539351; 1.270746;, - -3.154009; 0.024299; 1.342988;, - -3.154009;-0.539351; 1.342988;, - -3.154009;-0.539351; 1.342988;, - -3.024660;-1.103001; 1.270746;, - -3.024660;-0.539351; 1.270746;, - -3.024660;-1.103001; 1.270746;, - -3.154009;-0.539351; 1.342988;, - -3.154009;-1.103001; 1.342988;, - -2.895311;-1.103001; 1.198504;, - -3.024660;-0.539351; 1.270746;, - -3.024660;-1.103001; 1.270746;, - 2.562706;-1.643215; 0.105398;, - 2.462695;-2.183430; 0.105398;, - 2.579693;-1.643215; 0.417897;, - 2.579693;-1.643215; 0.417897;, - 2.679705;-1.103001; 0.417897;, - 2.562706;-1.643215; 0.105398;, - 2.679705;-1.103001; 0.417897;, - 2.579693;-1.643215; 0.417897;, - 2.696692;-1.103001; 0.730395;, - 2.662718;-1.103001; 0.105398;, - 2.562706;-1.643215; 0.105398;, - 2.679705;-1.103001; 0.417897;, - 2.579693;-1.643215; 0.417897;, - 2.462695;-2.183430; 0.105398;, - 2.477840;-2.195840; 0.417897;, - 2.477840;-2.195840; 0.417897;, - 2.594839;-1.655626; 0.730395;, - 2.579693;-1.643215; 0.417897;, - 2.594839;-1.655626; 0.730395;, - 2.477840;-2.195840; 0.417897;, - 2.492986;-2.208251; 0.730395;, - 2.696692;-1.103001; 0.730395;, - 2.579693;-1.643215; 0.417897;, - 2.594839;-1.655626; 0.730395;, - 2.557987;-1.643312; 0.013590;, - 2.458246;-2.183623; 0.013590;, - 2.460470;-2.183527; 0.059494;, - 2.460470;-2.183527; 0.059494;, - 2.560211;-1.643215; 0.059494;, - 2.557987;-1.643312; 0.013590;, - 2.560211;-1.643215; 0.059494;, - 2.460470;-2.183527; 0.059494;, - 2.462695;-2.183430; 0.105398;, - 2.657728;-1.103001; 0.013590;, - 2.557987;-1.643312; 0.013590;, - 2.560211;-1.643215; 0.059494;, - 2.660223;-1.103001; 0.059494;, - 2.657728;-1.103001; 0.013590;, - 2.560211;-1.643215; 0.059494;, - 2.560211;-1.643215; 0.059494;, - 2.562706;-1.643215; 0.105398;, - 2.660223;-1.103001; 0.059494;, - 2.562706;-1.643215; 0.105398;, - 2.560211;-1.643215; 0.059494;, - 2.462695;-2.183430; 0.105398;, - 2.662718;-1.103001; 0.105398;, - 2.660223;-1.103001; 0.059494;, - 2.562706;-1.643215; 0.105398;, - 2.679705;-1.103001; 0.417897;, - 2.696692;-1.103001; 0.730395;, - 2.700283;-0.539351; 0.417897;, - 2.700283;-0.539351; 0.417897;, - 2.683296;-0.539351; 0.105398;, - 2.679705;-1.103001; 0.417897;, - 2.683296;-0.539351; 0.105398;, - 2.700283;-0.539351; 0.417897;, - 2.703874; 0.024299; 0.105398;, - 2.662718;-1.103001; 0.105398;, - 2.679705;-1.103001; 0.417897;, - 2.683296;-0.539351; 0.105398;, - 2.700283;-0.539351; 0.417897;, - 2.696692;-1.103001; 0.730395;, - 2.717649;-0.539351; 0.730395;, - 2.717649;-0.539351; 0.730395;, - 2.721240; 0.024299; 0.417897;, - 2.700283;-0.539351; 0.417897;, - 2.721240; 0.024299; 0.417897;, - 2.717649;-0.539351; 0.730395;, - 2.738605; 0.024299; 0.730395;, - 2.703874; 0.024299; 0.105398;, - 2.700283;-0.539351; 0.417897;, - 2.721240; 0.024299; 0.417897;, - 2.678250;-0.539351; 0.013590;, - 2.657728;-1.103001; 0.013590;, - 2.660223;-1.103001; 0.059494;, - 2.660223;-1.103001; 0.059494;, - 2.680746;-0.539351; 0.059494;, - 2.678250;-0.539351; 0.013590;, - 2.680746;-0.539351; 0.059494;, - 2.660223;-1.103001; 0.059494;, - 2.662718;-1.103001; 0.105398;, - 2.698773; 0.024299; 0.013590;, - 2.678250;-0.539351; 0.013590;, - 2.680746;-0.539351; 0.059494;, - 2.701324; 0.024299; 0.059494;, - 2.698773; 0.024299; 0.013590;, - 2.680746;-0.539351; 0.059494;, - 2.680746;-0.539351; 0.059494;, - 2.683296;-0.539351; 0.105398;, - 2.701324; 0.024299; 0.059494;, - 2.683296;-0.539351; 0.105398;, - 2.680746;-0.539351; 0.059494;, - 2.662718;-1.103001; 0.105398;, - 2.703874; 0.024299; 0.105398;, - 2.701324; 0.024299; 0.059494;, - 2.683296;-0.539351; 0.105398;, - 2.485566;-2.400309; 0.714640;, - 2.492986;-2.208251; 0.730395;, - 2.470551;-2.374088; 0.421296;, - 2.470551;-2.374088; 0.421296;, - 2.463131;-2.566145; 0.405541;, - 2.485566;-2.400309; 0.714640;, - 2.463131;-2.566145; 0.405541;, - 2.470551;-2.374088; 0.421296;, - 2.448116;-2.539925; 0.112197;, - 2.478146;-2.592366; 0.698885;, - 2.485566;-2.400309; 0.714640;, - 2.463131;-2.566145; 0.405541;, - 2.470551;-2.374088; 0.421296;, - 2.492986;-2.208251; 0.730395;, - 2.477840;-2.195840; 0.417897;, - 2.477840;-2.195840; 0.417897;, - 2.455405;-2.361678; 0.108797;, - 2.470551;-2.374088; 0.421296;, - 2.455405;-2.361678; 0.108797;, - 2.477840;-2.195840; 0.417897;, - 2.462695;-2.183430; 0.105398;, - 2.448116;-2.539925; 0.112197;, - 2.470551;-2.374088; 0.421296;, - 2.455405;-2.361678; 0.108797;, - 2.445910;-2.539949; 0.069106;, - 2.448116;-2.539925; 0.112197;, - 2.455405;-2.361678; 0.108797;, - 2.455405;-2.361678; 0.108797;, - 2.453199;-2.361702; 0.065707;, - 2.445910;-2.539949; 0.069106;, - 2.453199;-2.361702; 0.065707;, - 2.455405;-2.361678; 0.108797;, - 2.462695;-2.183430; 0.105398;, - 2.443704;-2.539974; 0.026016;, - 2.445910;-2.539949; 0.069106;, - 2.453199;-2.361702; 0.065707;, - 2.450975;-2.361799; 0.019803;, - 2.443704;-2.539974; 0.026016;, - 2.453199;-2.361702; 0.065707;, - 2.453199;-2.361702; 0.065707;, - 2.460470;-2.183527; 0.059494;, - 2.450975;-2.361799; 0.019803;, - 2.460470;-2.183527; 0.059494;, - 2.453199;-2.361702; 0.065707;, - 2.462695;-2.183430; 0.105398;, - 2.458246;-2.183623; 0.013590;, - 2.450975;-2.361799; 0.019803;, - 2.460470;-2.183527; 0.059494;, - -3.230474;-2.638451; 1.339141;, - -3.107314;-2.637927; 1.274012;, - -3.130661;-2.431538; 1.308500;, - -3.130661;-2.431538; 1.308500;, - -3.253822;-2.432062; 1.373629;, - -3.230474;-2.638451; 1.339141;, - -3.253822;-2.432062; 1.373629;, - -3.130661;-2.431538; 1.308500;, - -3.154009;-2.225149; 1.342988;, - -3.353634;-2.638975; 1.404270;, - -3.230474;-2.638451; 1.339141;, - -3.253822;-2.432062; 1.373629;, - -3.378052;-2.431839; 1.443012;, - -3.353634;-2.638975; 1.404270;, - -3.253822;-2.432062; 1.373629;, - -3.253822;-2.432062; 1.373629;, - -3.278239;-2.224926; 1.412370;, - -3.378052;-2.431839; 1.443012;, - -3.278239;-2.224926; 1.412370;, - -3.253822;-2.432062; 1.373629;, - -3.154009;-2.225149; 1.342988;, - -3.402469;-2.224703; 1.481753;, - -3.378052;-2.431839; 1.443012;, - -3.278239;-2.224926; 1.412370;, - -2.979081;-2.636976; 1.206198;, - -2.850847;-2.636026; 1.138384;, - -2.873079;-2.430139; 1.168444;, - -2.873079;-2.430139; 1.168444;, - -3.001313;-2.431089; 1.236258;, - -2.979081;-2.636976; 1.206198;, - -3.001313;-2.431089; 1.236258;, - -2.873079;-2.430139; 1.168444;, - -2.895311;-2.224252; 1.198504;, - -3.107314;-2.637927; 1.274012;, - -2.979081;-2.636976; 1.206198;, - -3.001313;-2.431089; 1.236258;, - -3.130661;-2.431538; 1.308500;, - -3.107314;-2.637927; 1.274012;, - -3.001313;-2.431089; 1.236258;, - -3.001313;-2.431089; 1.236258;, - -3.024660;-2.224700; 1.270746;, - -3.130661;-2.431538; 1.308500;, - -3.024660;-2.224700; 1.270746;, - -3.001313;-2.431089; 1.236258;, - -2.895311;-2.224252; 1.198504;, - -3.154009;-2.225149; 1.342988;, - -3.130661;-2.431538; 1.308500;, - -3.024660;-2.224700; 1.270746;, - 5.810550;-2.341961; 0.873584;, - 5.916876;-2.171503; 0.894986;, - 5.822288;-2.301482; 0.659284;, - 5.822288;-2.301482; 0.659284;, - 5.715961;-2.471941; 0.637882;, - 5.810550;-2.341961; 0.873584;, - 5.715961;-2.471941; 0.637882;, - 5.822288;-2.301482; 0.659284;, - 5.727699;-2.431461; 0.423582;, - 5.704223;-2.512420; 0.852182;, - 5.810550;-2.341961; 0.873584;, - 5.715961;-2.471941; 0.637882;, - 5.822288;-2.301482; 0.659284;, - 5.916876;-2.171503; 0.894986;, - 5.930080;-2.151810; 0.663141;, - 5.930080;-2.151810; 0.663141;, - 5.835491;-2.281789; 0.427440;, - 5.822288;-2.301482; 0.659284;, - 5.835491;-2.281789; 0.427440;, - 5.930080;-2.151810; 0.663141;, - 5.943284;-2.132117; 0.431297;, - 5.727699;-2.431461; 0.423582;, - 5.822288;-2.301482; 0.659284;, - 5.835491;-2.281789; 0.427440;, - 5.783517;-2.351500; 1.206954;, - 5.888254;-2.175138; 1.238897;, - 5.902565;-2.173321; 1.066941;, - 5.902565;-2.173321; 1.066941;, - 5.797828;-2.349682; 1.034999;, - 5.783517;-2.351500; 1.206954;, - 5.797828;-2.349682; 1.034999;, - 5.902565;-2.173321; 1.066941;, - 5.916876;-2.171503; 0.894986;, - 5.678779;-2.527861; 1.175012;, - 5.783517;-2.351500; 1.206954;, - 5.797828;-2.349682; 1.034999;, - 5.691501;-2.520141; 1.013597;, - 5.678779;-2.527861; 1.175012;, - 5.797828;-2.349682; 1.034999;, - 5.797828;-2.349682; 1.034999;, - 5.810550;-2.341961; 0.873584;, - 5.691501;-2.520141; 1.013597;, - 5.810550;-2.341961; 0.873584;, - 5.797828;-2.349682; 1.034999;, - 5.916876;-2.171503; 0.894986;, - 5.704223;-2.512420; 0.852182;, - 5.691501;-2.520141; 1.013597;, - 5.810550;-2.341961; 0.873584;, - 5.765470;-2.353804; 1.429519;, - 5.869147;-2.175973; 1.468499;, - 5.878700;-2.175555; 1.353698;, - 5.878700;-2.175555; 1.353698;, - 5.775023;-2.353386; 1.314718;, - 5.765470;-2.353804; 1.429519;, - 5.775023;-2.353386; 1.314718;, - 5.878700;-2.175555; 1.353698;, - 5.888254;-2.175138; 1.238897;, - 5.661792;-2.531635; 1.390540;, - 5.765470;-2.353804; 1.429519;, - 5.775023;-2.353386; 1.314718;, - 5.670285;-2.529748; 1.282776;, - 5.661792;-2.531635; 1.390540;, - 5.775023;-2.353386; 1.314718;, - 5.775023;-2.353386; 1.314718;, - 5.783517;-2.351500; 1.206954;, - 5.670285;-2.529748; 1.282776;, - 5.783517;-2.351500; 1.206954;, - 5.775023;-2.353386; 1.314718;, - 5.888254;-2.175138; 1.238897;, - 5.678779;-2.527861; 1.175012;, - 5.670285;-2.529748; 1.282776;, - 5.783517;-2.351500; 1.206954;, - 5.748358;-2.352662; 1.640532;, - 5.851029;-2.175221; 1.686183;, - 5.860088;-2.175597; 1.577341;, - 5.860088;-2.175597; 1.577341;, - 5.757417;-2.353037; 1.531690;, - 5.748358;-2.352662; 1.640532;, - 5.757417;-2.353037; 1.531690;, - 5.860088;-2.175597; 1.577341;, - 5.869147;-2.175973; 1.468499;, - 5.645687;-2.530102; 1.594882;, - 5.748358;-2.352662; 1.640532;, - 5.757417;-2.353037; 1.531690;, - 5.653739;-2.530869; 1.492711;, - 5.645687;-2.530102; 1.594882;, - 5.757417;-2.353037; 1.531690;, - 5.757417;-2.353037; 1.531690;, - 5.765470;-2.353804; 1.429519;, - 5.653739;-2.530869; 1.492711;, - 5.765470;-2.353804; 1.429519;, - 5.757417;-2.353037; 1.531690;, - 5.869147;-2.175973; 1.468499;, - 5.661792;-2.531635; 1.390540;, - 5.653739;-2.530869; 1.492711;, - 5.765470;-2.353804; 1.429519;, - 2.690232;-2.466301; 2.147748;, - 2.591911;-2.474268; 2.133415;, - 2.598380;-2.298656; 2.192782;, - 2.598380;-2.298656; 2.192782;, - 2.696701;-2.290689; 2.207115;, - 2.690232;-2.466301; 2.147748;, - 2.696701;-2.290689; 2.207115;, - 2.598380;-2.298656; 2.192782;, - 2.604848;-2.123043; 2.252149;, - 2.788553;-2.458335; 2.162080;, - 2.690232;-2.466301; 2.147748;, - 2.696701;-2.290689; 2.207115;, - 2.795876;-2.287475; 2.222274;, - 2.788553;-2.458335; 2.162080;, - 2.696701;-2.290689; 2.207115;, - 2.696701;-2.290689; 2.207115;, - 2.704023;-2.119829; 2.267309;, - 2.795876;-2.287475; 2.222274;, - 2.704023;-2.119829; 2.267309;, - 2.696701;-2.290689; 2.207115;, - 2.604848;-2.123043; 2.252149;, - 2.803198;-2.116614; 2.282468;, - 2.795876;-2.287475; 2.222274;, - 2.704023;-2.119829; 2.267309;, - 3.047282;-2.460892; 2.157479;, - 2.788553;-2.458335; 2.162080;, - 2.795876;-2.287475; 2.222274;, - 2.795876;-2.287475; 2.222274;, - 3.054605;-2.290032; 2.217673;, - 3.047282;-2.460892; 2.157479;, - 3.054605;-2.290032; 2.217673;, - 2.795876;-2.287475; 2.222274;, - 2.803198;-2.116614; 2.282468;, - 3.306011;-2.463450; 2.152878;, - 3.047282;-2.460892; 2.157479;, - 3.054605;-2.290032; 2.217673;, - 3.315583;-2.292048; 2.212877;, - 3.306011;-2.463450; 2.152878;, - 3.054605;-2.290032; 2.217673;, - 3.054605;-2.290032; 2.217673;, - 3.064176;-2.118630; 2.277672;, - 3.315583;-2.292048; 2.212877;, - 3.064176;-2.118630; 2.277672;, - 3.054605;-2.290032; 2.217673;, - 2.803198;-2.116614; 2.282468;, - 3.325154;-2.120646; 2.272876;, - 3.315583;-2.292048; 2.212877;, - 3.064176;-2.118630; 2.277672;, - 3.177390;-2.432110; 1.410131;, - 3.187804;-2.224914; 1.447876;, - 2.952515;-2.224639; 1.332190;, - 2.952515;-2.224639; 1.332190;, - 2.942101;-2.431835; 1.294446;, - 3.177390;-2.432110; 1.410131;, - 2.942101;-2.431835; 1.294446;, - 2.952515;-2.224639; 1.332190;, - 2.717226;-2.224364; 1.216504;, - 3.166976;-2.639306; 1.372387;, - 3.177390;-2.432110; 1.410131;, - 2.942101;-2.431835; 1.294446;, - 2.933714;-2.637784; 1.263792;, - 3.166976;-2.639306; 1.372387;, - 2.942101;-2.431835; 1.294446;, - 2.942101;-2.431835; 1.294446;, - 2.708839;-2.430313; 1.185851;, - 2.933714;-2.637784; 1.263792;, - 2.708839;-2.430313; 1.185851;, - 2.942101;-2.431835; 1.294446;, - 2.717226;-2.224364; 1.216504;, - 2.700452;-2.636262; 1.155197;, - 2.933714;-2.637784; 1.263792;, - 2.708839;-2.430313; 1.185851;, - 2.708839;-2.430313; 1.185851;, - 2.717226;-2.224364; 1.216504;, - 2.605106;-2.216308; 0.973449;, - 2.605106;-2.216308; 0.973449;, - 2.596719;-2.422256; 0.942796;, - 2.708839;-2.430313; 1.185851;, - 2.596719;-2.422256; 0.942796;, - 2.605106;-2.216308; 0.973449;, - 2.492986;-2.208251; 0.730395;, - 2.700452;-2.636262; 1.155197;, - 2.708839;-2.430313; 1.185851;, - 2.596719;-2.422256; 0.942796;, - 2.589299;-2.614314; 0.927041;, - 2.700452;-2.636262; 1.155197;, - 2.596719;-2.422256; 0.942796;, - 2.596719;-2.422256; 0.942796;, - 2.485566;-2.400309; 0.714640;, - 2.589299;-2.614314; 0.927041;, - 2.485566;-2.400309; 0.714640;, - 2.596719;-2.422256; 0.942796;, - 2.492986;-2.208251; 0.730395;, - 2.478146;-2.592366; 0.698885;, - 2.589299;-2.614314; 0.927041;, - 2.485566;-2.400309; 0.714640;, - 3.946012;-2.456994; 2.164494;, - 3.773005;-2.458739; 2.161354;, - 3.784606;-2.287835; 2.221533;, - 3.784606;-2.287835; 2.221533;, - 3.957613;-2.286089; 2.224673;, - 3.946012;-2.456994; 2.164494;, - 3.957613;-2.286089; 2.224673;, - 3.784606;-2.287835; 2.221533;, - 3.796207;-2.116931; 2.281711;, - 4.119019;-2.455248; 2.167634;, - 3.946012;-2.456994; 2.164494;, - 3.957613;-2.286089; 2.224673;, - 4.101768;-2.284723; 2.227945;, - 4.119019;-2.455248; 2.167634;, - 3.957613;-2.286089; 2.224673;, - 3.957613;-2.286089; 2.224673;, - 3.940361;-2.115564; 2.284984;, - 4.101768;-2.284723; 2.227945;, - 3.940361;-2.115564; 2.284984;, - 3.957613;-2.286089; 2.224673;, - 3.796207;-2.116931; 2.281711;, - 4.084516;-2.114198; 2.288257;, - 4.101768;-2.284723; 2.227945;, - 3.940361;-2.115564; 2.284984;, - 3.539508;-2.461094; 2.157116;, - 3.306011;-2.463450; 2.152878;, - 3.315583;-2.292048; 2.212877;, - 3.315583;-2.292048; 2.212877;, - 3.549079;-2.289692; 2.217115;, - 3.539508;-2.461094; 2.157116;, - 3.549079;-2.289692; 2.217115;, - 3.315583;-2.292048; 2.212877;, - 3.325154;-2.120646; 2.272876;, - 3.773005;-2.458739; 2.161354;, - 3.539508;-2.461094; 2.157116;, - 3.549079;-2.289692; 2.217115;, - 3.784606;-2.287835; 2.221533;, - 3.773005;-2.458739; 2.161354;, - 3.549079;-2.289692; 2.217115;, - 3.549079;-2.289692; 2.217115;, - 3.560680;-2.118788; 2.277294;, - 3.784606;-2.287835; 2.221533;, - 3.560680;-2.118788; 2.277294;, - 3.549079;-2.289692; 2.217115;, - 3.325154;-2.120646; 2.272876;, - 3.796207;-2.116931; 2.281711;, - 3.784606;-2.287835; 2.221533;, - 3.560680;-2.118788; 2.277294;, - 5.420159;-2.411890; 2.094355;, - 5.235635;-2.416988; 2.109010;, - 5.312698;-2.257494; 2.167581;, - 5.312698;-2.257494; 2.167581;, - 5.497222;-2.252396; 2.152925;, - 5.420159;-2.411890; 2.094355;, - 5.497222;-2.252396; 2.152925;, - 5.312698;-2.257494; 2.167581;, - 5.389761;-2.098001; 2.226151;, - 5.604683;-2.406791; 2.079699;, - 5.420159;-2.411890; 2.094355;, - 5.497222;-2.252396; 2.152925;, - 5.704793;-2.250481; 2.137312;, - 5.604683;-2.406791; 2.079699;, - 5.497222;-2.252396; 2.152925;, - 5.497222;-2.252396; 2.152925;, - 5.597332;-2.096086; 2.210538;, - 5.704793;-2.250481; 2.137312;, - 5.597332;-2.096086; 2.210538;, - 5.497222;-2.252396; 2.152925;, - 5.389761;-2.098001; 2.226151;, - 5.804903;-2.094170; 2.194925;, - 5.704793;-2.250481; 2.137312;, - 5.597332;-2.096086; 2.210538;, - 4.677327;-2.436118; 2.138322;, - 4.119019;-2.455248; 2.167634;, - 4.101768;-2.284723; 2.227945;, - 4.101768;-2.284723; 2.227945;, - 4.660075;-2.265593; 2.198633;, - 4.677327;-2.436118; 2.138322;, - 4.660075;-2.265593; 2.198633;, - 4.101768;-2.284723; 2.227945;, - 4.084516;-2.114198; 2.288257;, - 5.235635;-2.416988; 2.109010;, - 4.677327;-2.436118; 2.138322;, - 4.660075;-2.265593; 2.198633;, - 5.312698;-2.257494; 2.167581;, - 5.235635;-2.416988; 2.109010;, - 4.660075;-2.265593; 2.198633;, - 4.660075;-2.265593; 2.198633;, - 4.737138;-2.106100; 2.257204;, - 5.312698;-2.257494; 2.167581;, - 4.737138;-2.106100; 2.257204;, - 4.660075;-2.265593; 2.198633;, - 4.084516;-2.114198; 2.288257;, - 5.389761;-2.098001; 2.226151;, - 5.312698;-2.257494; 2.167581;, - 4.737138;-2.106100; 2.257204;, - 2.474544;-2.481261; 2.099229;, - 2.357177;-2.488255; 2.065043;, - 2.362625;-2.318908; 2.122178;, - 2.362625;-2.318908; 2.122178;, - 2.479991;-2.311914; 2.156363;, - 2.474544;-2.481261; 2.099229;, - 2.479991;-2.311914; 2.156363;, - 2.362625;-2.318908; 2.122178;, - 2.368072;-2.149561; 2.179312;, - 2.591911;-2.474268; 2.133415;, - 2.474544;-2.481261; 2.099229;, - 2.479991;-2.311914; 2.156363;, - 2.598380;-2.298656; 2.192782;, - 2.591911;-2.474268; 2.133415;, - 2.479991;-2.311914; 2.156363;, - 2.479991;-2.311914; 2.156363;, - 2.486460;-2.136302; 2.215731;, - 2.598380;-2.298656; 2.192782;, - 2.486460;-2.136302; 2.215731;, - 2.479991;-2.311914; 2.156363;, - 2.368072;-2.149561; 2.179312;, - 2.604848;-2.123043; 2.252149;, - 2.598380;-2.298656; 2.192782;, - 2.486460;-2.136302; 2.215731;, - -1.359624;-2.307600; 2.133379;, - -1.371140;-2.138211; 2.190513;, - 0.498466;-2.143886; 2.184912;, - 0.498466;-2.143886; 2.184912;, - 0.509982;-2.313274; 2.127778;, - -1.359624;-2.307600; 2.133379;, - 0.509982;-2.313274; 2.127778;, - 0.498466;-2.143886; 2.184912;, - 2.368072;-2.149561; 2.179312;, - -1.348108;-2.476988; 2.076244;, - -1.359624;-2.307600; 2.133379;, - 0.509982;-2.313274; 2.127778;, - 0.504534;-2.482622; 2.070643;, - -1.348108;-2.476988; 2.076244;, - 0.509982;-2.313274; 2.127778;, - 0.509982;-2.313274; 2.127778;, - 2.362625;-2.318908; 2.122178;, - 0.504534;-2.482622; 2.070643;, - 2.362625;-2.318908; 2.122178;, - 0.509982;-2.313274; 2.127778;, - 2.368072;-2.149561; 2.179312;, - 2.357177;-2.488255; 2.065043;, - 0.504534;-2.482622; 2.070643;, - 2.362625;-2.318908; 2.122178;, - 4.091482;-2.633626; 1.248826;, - 4.327158;-2.627949; 1.125582;, - 4.104889;-2.426433; 1.286560;, - 4.104889;-2.426433; 1.286560;, - 3.869214;-2.432109; 1.409804;, - 4.091482;-2.633626; 1.248826;, - 3.869214;-2.432109; 1.409804;, - 4.104889;-2.426433; 1.286560;, - 3.882621;-2.224916; 1.447538;, - 3.855806;-2.639302; 1.372070;, - 4.091482;-2.633626; 1.248826;, - 3.869214;-2.432109; 1.409804;, - 4.104889;-2.426433; 1.286560;, - 4.327158;-2.627949; 1.125582;, - 4.348948;-2.423845; 1.155268;, - 4.348948;-2.423845; 1.155268;, - 4.126679;-2.222329; 1.316247;, - 4.104889;-2.426433; 1.286560;, - 4.126679;-2.222329; 1.316247;, - 4.348948;-2.423845; 1.155268;, - 4.370737;-2.219741; 1.184955;, - 3.882621;-2.224916; 1.447538;, - 4.104889;-2.426433; 1.286560;, - 4.126679;-2.222329; 1.316247;, - 3.869214;-2.432109; 1.409804;, - 3.882621;-2.224916; 1.447538;, - 3.535213;-2.224915; 1.447707;, - 3.535213;-2.224915; 1.447707;, - 3.521805;-2.432108; 1.409973;, - 3.869214;-2.432109; 1.409804;, - 3.521805;-2.432108; 1.409973;, - 3.535213;-2.224915; 1.447707;, - 3.187804;-2.224914; 1.447876;, - 3.855806;-2.639302; 1.372070;, - 3.869214;-2.432109; 1.409804;, - 3.521805;-2.432108; 1.409973;, - 3.511391;-2.639304; 1.372229;, - 3.855806;-2.639302; 1.372070;, - 3.521805;-2.432108; 1.409973;, - 3.521805;-2.432108; 1.409973;, - 3.177390;-2.432110; 1.410131;, - 3.511391;-2.639304; 1.372229;, - 3.177390;-2.432110; 1.410131;, - 3.521805;-2.432108; 1.409973;, - 3.187804;-2.224914; 1.447876;, - 3.166976;-2.639306; 1.372387;, - 3.511391;-2.639304; 1.372229;, - 3.177390;-2.432110; 1.410131;, - 2.320756;-2.526484; 0.001399;, - 2.443704;-2.539974; 0.026016;, - 2.450975;-2.361799; 0.019803;, - 2.450975;-2.361799; 0.019803;, - 2.328027;-2.348308;-0.004814;, - 2.320756;-2.526484; 0.001399;, - 2.328027;-2.348308;-0.004814;, - 2.450975;-2.361799; 0.019803;, - 2.458246;-2.183623; 0.013590;, - 2.197808;-2.512993;-0.023218;, - 2.320756;-2.526484; 0.001399;, - 2.328027;-2.348308;-0.004814;, - 2.204010;-2.353693;-0.031039;, - 2.197808;-2.512993;-0.023218;, - 2.328027;-2.348308;-0.004814;, - 2.328027;-2.348308;-0.004814;, - 2.334229;-2.189008;-0.012634;, - 2.204010;-2.353693;-0.031039;, - 2.334229;-2.189008;-0.012634;, - 2.328027;-2.348308;-0.004814;, - 2.458246;-2.183623; 0.013590;, - 2.210212;-2.194393;-0.038859;, - 2.204010;-2.353693;-0.031039;, - 2.334229;-2.189008;-0.012634;, - 0.421583;-2.510742;-0.014696;, - 2.197808;-2.512993;-0.023218;, - 2.204010;-2.353693;-0.031039;, - 2.204010;-2.353693;-0.031039;, - 0.427785;-2.351442;-0.022516;, - 0.421583;-2.510742;-0.014696;, - 0.427785;-2.351442;-0.022516;, - 2.204010;-2.353693;-0.031039;, - 2.210212;-2.194393;-0.038859;, - -1.354643;-2.508491;-0.006173;, - 0.421583;-2.510742;-0.014696;, - 0.427785;-2.351442;-0.022516;, - -1.366187;-2.344734;-0.012795;, - -1.354643;-2.508491;-0.006173;, - 0.427785;-2.351442;-0.022516;, - 0.427785;-2.351442;-0.022516;, - 0.416241;-2.187685;-0.029138;, - -1.366187;-2.344734;-0.012795;, - 0.416241;-2.187685;-0.029138;, - 0.427785;-2.351442;-0.022516;, - 2.210212;-2.194393;-0.038859;, - -1.377731;-2.180977;-0.019418;, - -1.366187;-2.344734;-0.012795;, - 0.416241;-2.187685;-0.029138;, - -1.950113;-2.523808;-0.007211;, - -1.354643;-2.508491;-0.006173;, - -1.366187;-2.344734;-0.012795;, - -1.366187;-2.344734;-0.012795;, - -1.961657;-2.360051;-0.013834;, - -1.950113;-2.523808;-0.007211;, - -1.961657;-2.360051;-0.013834;, - -1.366187;-2.344734;-0.012795;, - -1.377731;-2.180977;-0.019418;, - -2.545583;-2.539125;-0.008250;, - -1.950113;-2.523808;-0.007211;, - -1.961657;-2.360051;-0.013834;, - -2.566489;-2.360051;-0.015627;, - -2.545583;-2.539125;-0.008250;, - -1.961657;-2.360051;-0.013834;, - -1.961657;-2.360051;-0.013834;, - -1.982563;-2.180977;-0.021210;, - -2.566489;-2.360051;-0.015627;, - -1.982563;-2.180977;-0.021210;, - -1.961657;-2.360051;-0.013834;, - -1.377731;-2.180977;-0.019418;, - -2.587394;-2.180977;-0.023003;, - -2.566489;-2.360051;-0.015627;, - -1.982563;-2.180977;-0.021210;, - -2.590475;-2.539125; 0.016677;, - -2.545583;-2.539125;-0.008250;, - -2.566489;-2.360051;-0.015627;, - -2.566489;-2.360051;-0.015627;, - -2.611380;-2.360051; 0.009300;, - -2.590475;-2.539125; 0.016677;, - -2.611380;-2.360051; 0.009300;, - -2.566489;-2.360051;-0.015627;, - -2.587394;-2.180977;-0.023003;, - -2.635366;-2.539125; 0.041603;, - -2.590475;-2.539125; 0.016677;, - -2.611380;-2.360051; 0.009300;, - -2.656662;-2.360051; 0.035854;, - -2.635366;-2.539125; 0.041603;, - -2.611380;-2.360051; 0.009300;, - -2.611380;-2.360051; 0.009300;, - -2.632677;-2.180977; 0.003551;, - -2.656662;-2.360051; 0.035854;, - -2.632677;-2.180977; 0.003551;, - -2.611380;-2.360051; 0.009300;, - -2.587394;-2.180977;-0.023003;, - -2.677959;-2.180977; 0.030106;, - -2.656662;-2.360051; 0.035854;, - -2.632677;-2.180977; 0.003551;, - -2.644345;-2.564603; 0.365652;, - -2.635366;-2.539125; 0.041603;, - -2.665719;-2.372685; 0.381063;, - -2.665719;-2.372685; 0.381063;, - -2.674697;-2.398163; 0.705112;, - -2.644345;-2.564603; 0.365652;, - -2.674697;-2.398163; 0.705112;, - -2.665719;-2.372685; 0.381063;, - -2.696071;-2.206245; 0.720523;, - -2.653324;-2.590081; 0.689701;, - -2.644345;-2.564603; 0.365652;, - -2.674697;-2.398163; 0.705112;, - -2.665719;-2.372685; 0.381063;, - -2.635366;-2.539125; 0.041603;, - -2.656662;-2.360051; 0.035854;, - -2.656662;-2.360051; 0.035854;, - -2.687015;-2.193611; 0.375315;, - -2.665719;-2.372685; 0.381063;, - -2.687015;-2.193611; 0.375315;, - -2.656662;-2.360051; 0.035854;, - -2.677959;-2.180977; 0.030106;, - -2.696071;-2.206245; 0.720523;, - -2.665719;-2.372685; 0.381063;, - -2.687015;-2.193611; 0.375315;, - -2.752085;-2.613053; 0.914042;, - -2.653324;-2.590081; 0.689701;, - -2.674697;-2.398163; 0.705112;, - -2.674697;-2.398163; 0.705112;, - -2.773459;-2.421135; 0.929453;, - -2.752085;-2.613053; 0.914042;, - -2.773459;-2.421135; 0.929453;, - -2.674697;-2.398163; 0.705112;, - -2.696071;-2.206245; 0.720523;, - -2.850847;-2.636026; 1.138384;, - -2.752085;-2.613053; 0.914042;, - -2.773459;-2.421135; 0.929453;, - -2.873079;-2.430139; 1.168444;, - -2.850847;-2.636026; 1.138384;, - -2.773459;-2.421135; 0.929453;, - -2.773459;-2.421135; 0.929453;, - -2.795691;-2.215249; 0.959513;, - -2.873079;-2.430139; 1.168444;, - -2.795691;-2.215249; 0.959513;, - -2.773459;-2.421135; 0.929453;, - -2.696071;-2.206245; 0.720523;, - -2.895311;-2.224252; 1.198504;, - -2.873079;-2.430139; 1.168444;, - -2.795691;-2.215249; 0.959513;, - -3.435367;-2.346284; 2.072636;, - -3.456816;-2.153476; 2.128482;, - -2.413978;-2.145844; 2.159497;, - -2.413978;-2.145844; 2.159497;, - -2.392529;-2.338652; 2.103651;, - -3.435367;-2.346284; 2.072636;, - -2.392529;-2.338652; 2.103651;, - -2.413978;-2.145844; 2.159497;, - -1.371140;-2.138211; 2.190513;, - -3.413917;-2.539093; 2.016789;, - -3.435367;-2.346284; 2.072636;, - -2.392529;-2.338652; 2.103651;, - -2.381012;-2.508040; 2.046516;, - -3.413917;-2.539093; 2.016789;, - -2.392529;-2.338652; 2.103651;, - -2.392529;-2.338652; 2.103651;, - -1.359624;-2.307600; 2.133379;, - -2.381012;-2.508040; 2.046516;, - -1.359624;-2.307600; 2.133379;, - -2.392529;-2.338652; 2.103651;, - -1.371140;-2.138211; 2.190513;, - -1.348108;-2.476988; 2.076244;, - -2.381012;-2.508040; 2.046516;, - -1.359624;-2.307600; 2.133379;, - -4.028534;-2.358151; 2.042726;, - -4.051642;-2.161035; 2.097764;, - -3.754229;-2.157256; 2.113123;, - -3.754229;-2.157256; 2.113123;, - -3.731121;-2.354372; 2.058085;, - -4.028534;-2.358151; 2.042726;, - -3.731121;-2.354372; 2.058085;, - -3.754229;-2.157256; 2.113123;, - -3.456816;-2.153476; 2.128482;, - -4.005426;-2.555267; 1.987688;, - -4.028534;-2.358151; 2.042726;, - -3.731121;-2.354372; 2.058085;, - -3.709671;-2.547180; 2.002239;, - -4.005426;-2.555267; 1.987688;, - -3.731121;-2.354372; 2.058085;, - -3.731121;-2.354372; 2.058085;, - -3.435367;-2.346284; 2.072636;, - -3.709671;-2.547180; 2.002239;, - -3.435367;-2.346284; 2.072636;, - -3.731121;-2.354372; 2.058085;, - -3.456816;-2.153476; 2.128482;, - -3.413917;-2.539093; 2.016789;, - -3.709671;-2.547180; 2.002239;, - -3.435367;-2.346284; 2.072636;, - -5.817351;-2.180977; 0.078531;, - -5.850469;-2.180977; 0.078064;, - -5.825599;-2.287207; 0.078064;, - -5.825599;-2.287207; 0.078064;, - -5.792481;-2.287207; 0.078530;, - -5.817351;-2.180977; 0.078531;, - -5.792481;-2.287207; 0.078530;, - -5.825599;-2.287207; 0.078064;, - -5.800729;-2.393436; 0.078064;, - -5.784234;-2.180977; 0.078997;, - -5.817351;-2.180977; 0.078531;, - -5.792481;-2.287207; 0.078530;, - -5.760491;-2.291049; 0.078997;, - -5.784234;-2.180977; 0.078997;, - -5.792481;-2.287207; 0.078530;, - -5.792481;-2.287207; 0.078530;, - -5.768739;-2.397278; 0.078530;, - -5.760491;-2.291049; 0.078997;, - -5.768739;-2.397278; 0.078530;, - -5.792481;-2.287207; 0.078530;, - -5.800729;-2.393436; 0.078064;, - -5.736748;-2.401120; 0.078997;, - -5.760491;-2.291049; 0.078997;, - -5.768739;-2.397278; 0.078530;, - -5.580967;-2.470043; 0.081303;, - -5.425185;-2.538967; 0.083610;, - -5.441011;-2.359972; 0.083610;, - -5.441011;-2.359972; 0.083610;, - -5.596793;-2.291049; 0.081303;, - -5.580967;-2.470043; 0.081303;, - -5.596793;-2.291049; 0.081303;, - -5.441011;-2.359972; 0.083610;, - -5.456837;-2.180977; 0.083610;, - -5.736748;-2.401120; 0.078997;, - -5.580967;-2.470043; 0.081303;, - -5.596793;-2.291049; 0.081303;, - -5.760491;-2.291049; 0.078997;, - -5.736748;-2.401120; 0.078997;, - -5.596793;-2.291049; 0.081303;, - -5.596793;-2.291049; 0.081303;, - -5.620536;-2.180977; 0.081303;, - -5.760491;-2.291049; 0.078997;, - -5.620536;-2.180977; 0.081303;, - -5.596793;-2.291049; 0.081303;, - -5.456837;-2.180977; 0.083610;, - -5.784234;-2.180977; 0.078997;, - -5.760491;-2.291049; 0.078997;, - -5.620536;-2.180977; 0.081303;, - -5.128280;-2.539046; 0.095842;, - -4.831374;-2.539125; 0.108075;, - -4.870922;-2.360051; 0.104497;, - -4.870922;-2.360051; 0.104497;, - -5.167827;-2.359972; 0.092264;, - -5.128280;-2.539046; 0.095842;, - -5.167827;-2.359972; 0.092264;, - -4.870922;-2.360051; 0.104497;, - -4.910469;-2.180977; 0.100918;, - -5.425185;-2.538967; 0.083610;, - -5.128280;-2.539046; 0.095842;, - -5.167827;-2.359972; 0.092264;, - -5.441011;-2.359972; 0.083610;, - -5.425185;-2.538967; 0.083610;, - -5.167827;-2.359972; 0.092264;, - -5.167827;-2.359972; 0.092264;, - -5.183653;-2.180977; 0.092264;, - -5.441011;-2.359972; 0.083610;, - -5.183653;-2.180977; 0.092264;, - -5.167827;-2.359972; 0.092264;, - -4.910469;-2.180977; 0.100918;, - -5.456837;-2.180977; 0.083610;, - -5.441011;-2.359972; 0.083610;, - -5.183653;-2.180977; 0.092264;, - 5.385308;-2.303692; 0.332454;, - 5.466638;-2.145641; 0.333308;, - 5.068078;-2.156949; 0.325337;, - 5.068078;-2.156949; 0.325337;, - 4.986748;-2.315000; 0.324483;, - 5.385308;-2.303692; 0.332454;, - 4.986748;-2.315000; 0.324483;, - 5.068078;-2.156949; 0.325337;, - 4.669517;-2.168257; 0.317366;, - 5.303978;-2.461743; 0.331600;, - 5.385308;-2.303692; 0.332454;, - 4.986748;-2.315000; 0.324483;, - 4.948370;-2.487157; 0.325119;, - 5.303978;-2.461743; 0.331600;, - 4.986748;-2.315000; 0.324483;, - 4.986748;-2.315000; 0.324483;, - 4.631140;-2.340414; 0.318002;, - 4.948370;-2.487157; 0.325119;, - 4.631140;-2.340414; 0.318002;, - 4.986748;-2.315000; 0.324483;, - 4.669517;-2.168257; 0.317366;, - 4.592762;-2.512571; 0.318638;, - 4.948370;-2.487157; 0.325119;, - 4.631140;-2.340414; 0.318002;, - 4.631140;-2.340414; 0.318002;, - 4.669517;-2.168257; 0.317366;, - 4.625578;-2.169503; 0.326028;, - 4.625578;-2.169503; 0.326028;, - 4.587201;-2.341660; 0.326665;, - 4.631140;-2.340414; 0.318002;, - 4.587201;-2.341660; 0.326665;, - 4.625578;-2.169503; 0.326028;, - 4.581640;-2.170750; 0.334691;, - 4.592762;-2.512571; 0.318638;, - 4.631140;-2.340414; 0.318002;, - 4.587201;-2.341660; 0.326665;, - 4.553702;-2.515363; 0.326770;, - 4.592762;-2.512571; 0.318638;, - 4.587201;-2.341660; 0.326665;, - 4.587201;-2.341660; 0.326665;, - 4.548141;-2.344452; 0.334796;, - 4.553702;-2.515363; 0.326770;, - 4.548141;-2.344452; 0.334796;, - 4.587201;-2.341660; 0.326665;, - 4.581640;-2.170750; 0.334691;, - 4.514643;-2.518154; 0.334902;, - 4.553702;-2.515363; 0.326770;, - 4.548141;-2.344452; 0.334796;, - 4.572852;-2.183179; 0.523802;, - 4.564065;-2.195609; 0.712912;, - 4.539354;-2.356882; 0.523907;, - 4.539354;-2.356882; 0.523907;, - 4.548141;-2.344452; 0.334796;, - 4.572852;-2.183179; 0.523802;, - 4.548141;-2.344452; 0.334796;, - 4.539354;-2.356882; 0.523907;, - 4.514643;-2.518154; 0.334902;, - 4.581640;-2.170750; 0.334691;, - 4.572852;-2.183179; 0.523802;, - 4.548141;-2.344452; 0.334796;, - 4.539354;-2.356882; 0.523907;, - 4.564065;-2.195609; 0.712912;, - 4.531542;-2.381982; 0.697693;, - 4.531542;-2.381982; 0.697693;, - 4.506831;-2.543254; 0.508687;, - 4.539354;-2.356882; 0.523907;, - 4.506831;-2.543254; 0.508687;, - 4.531542;-2.381982; 0.697693;, - 4.499019;-2.568355; 0.682473;, - 4.514643;-2.518154; 0.334902;, - 4.539354;-2.356882; 0.523907;, - 4.506831;-2.543254; 0.508687;, - 4.467401;-2.207675; 0.948933;, - 4.370737;-2.219741; 1.184955;, - 4.434878;-2.394048; 0.933714;, - 4.434878;-2.394048; 0.933714;, - 4.531542;-2.381982; 0.697693;, - 4.467401;-2.207675; 0.948933;, - 4.531542;-2.381982; 0.697693;, - 4.434878;-2.394048; 0.933714;, - 4.499019;-2.568355; 0.682473;, - 4.564065;-2.195609; 0.712912;, - 4.467401;-2.207675; 0.948933;, - 4.531542;-2.381982; 0.697693;, - 4.434878;-2.394048; 0.933714;, - 4.370737;-2.219741; 1.184955;, - 4.348948;-2.423845; 1.155268;, - 4.348948;-2.423845; 1.155268;, - 4.413089;-2.598152; 0.904027;, - 4.434878;-2.394048; 0.933714;, - 4.413089;-2.598152; 0.904027;, - 4.348948;-2.423845; 1.155268;, - 4.327158;-2.627949; 1.125582;, - 4.499019;-2.568355; 0.682473;, - 4.434878;-2.394048; 0.933714;, - 4.413089;-2.598152; 0.904027;, - -4.833987;-2.388166; 0.722273;, - -4.872867;-2.198933; 0.738226;, - -4.852120;-2.369029; 0.423151;, - -4.852120;-2.369029; 0.423151;, - -4.813241;-2.558262; 0.407197;, - -4.833987;-2.388166; 0.722273;, - -4.813241;-2.558262; 0.407197;, - -4.852120;-2.369029; 0.423151;, - -4.831374;-2.539125; 0.108075;, - -4.795107;-2.577399; 0.706319;, - -4.833987;-2.388166; 0.722273;, - -4.813241;-2.558262; 0.407197;, - -4.852120;-2.369029; 0.423151;, - -4.872867;-2.198933; 0.738226;, - -4.891668;-2.189955; 0.419572;, - -4.891668;-2.189955; 0.419572;, - -4.870922;-2.360051; 0.104497;, - -4.852120;-2.369029; 0.423151;, - -4.870922;-2.360051; 0.104497;, - -4.891668;-2.189955; 0.419572;, - -4.910469;-2.180977; 0.100918;, - -4.831374;-2.539125; 0.108075;, - -4.852120;-2.369029; 0.423151;, - -4.870922;-2.360051; 0.104497;, - -4.593912;-2.418639; 1.202765;, - -4.628454;-2.216111; 1.233911;, - -4.711781;-2.396755; 0.970115;, - -4.711781;-2.396755; 0.970115;, - -4.677238;-2.599283; 0.938969;, - -4.593912;-2.418639; 1.202765;, - -4.677238;-2.599283; 0.938969;, - -4.711781;-2.396755; 0.970115;, - -4.795107;-2.577399; 0.706319;, - -4.559369;-2.621167; 1.171620;, - -4.593912;-2.418639; 1.202765;, - -4.677238;-2.599283; 0.938969;, - -4.711781;-2.396755; 0.970115;, - -4.628454;-2.216111; 1.233911;, - -4.750661;-2.207522; 0.986068;, - -4.750661;-2.207522; 0.986068;, - -4.833987;-2.388166; 0.722273;, - -4.711781;-2.396755; 0.970115;, - -4.833987;-2.388166; 0.722273;, - -4.750661;-2.207522; 0.986068;, - -4.872867;-2.198933; 0.738226;, - -4.795107;-2.577399; 0.706319;, - -4.711781;-2.396755; 0.970115;, - -4.833987;-2.388166; 0.722273;, - -4.315636;-2.629954; 1.296254;, - -4.071903;-2.638742; 1.420888;, - -4.099442;-2.431668; 1.460172;, - -4.099442;-2.431668; 1.460172;, - -4.343175;-2.422881; 1.335538;, - -4.315636;-2.629954; 1.296254;, - -4.343175;-2.422881; 1.335538;, - -4.099442;-2.431668; 1.460172;, - -4.126981;-2.224594; 1.499456;, - -4.559369;-2.621167; 1.171620;, - -4.315636;-2.629954; 1.296254;, - -4.343175;-2.422881; 1.335538;, - -4.593912;-2.418639; 1.202765;, - -4.559369;-2.621167; 1.171620;, - -4.343175;-2.422881; 1.335538;, - -4.343175;-2.422881; 1.335538;, - -4.377717;-2.220353; 1.366683;, - -4.593912;-2.418639; 1.202765;, - -4.377717;-2.220353; 1.366683;, - -4.343175;-2.422881; 1.335538;, - -4.126981;-2.224594; 1.499456;, - -4.628454;-2.216111; 1.233911;, - -4.593912;-2.418639; 1.202765;, - -4.377717;-2.220353; 1.366683;, - -3.712769;-2.638858; 1.412579;, - -3.353634;-2.638975; 1.404270;, - -3.378052;-2.431839; 1.443012;, - -3.378052;-2.431839; 1.443012;, - -3.737186;-2.431723; 1.451320;, - -3.712769;-2.638858; 1.412579;, - -3.737186;-2.431723; 1.451320;, - -3.378052;-2.431839; 1.443012;, - -3.402469;-2.224703; 1.481753;, - -4.071903;-2.638742; 1.420888;, - -3.712769;-2.638858; 1.412579;, - -3.737186;-2.431723; 1.451320;, - -4.099442;-2.431668; 1.460172;, - -4.071903;-2.638742; 1.420888;, - -3.737186;-2.431723; 1.451320;, - -3.737186;-2.431723; 1.451320;, - -3.764725;-2.224648; 1.490605;, - -4.099442;-2.431668; 1.460172;, - -3.764725;-2.224648; 1.490605;, - -3.737186;-2.431723; 1.451320;, - -3.402469;-2.224703; 1.481753;, - -4.126981;-2.224594; 1.499456;, - -4.099442;-2.431668; 1.460172;, - -3.764725;-2.224648; 1.490605;, - 5.762882;-2.285322; 0.382446;, - 5.866407;-2.134298; 0.384881;, - 5.666523;-2.139970; 0.359095;, - 5.666523;-2.139970; 0.359095;, - 5.562998;-2.290993; 0.356660;, - 5.762882;-2.285322; 0.382446;, - 5.562998;-2.290993; 0.356660;, - 5.666523;-2.139970; 0.359095;, - 5.466638;-2.145641; 0.333308;, - 5.659358;-2.436345; 0.380012;, - 5.762882;-2.285322; 0.382446;, - 5.562998;-2.290993; 0.356660;, - 5.481668;-2.449044; 0.355806;, - 5.659358;-2.436345; 0.380012;, - 5.562998;-2.290993; 0.356660;, - 5.562998;-2.290993; 0.356660;, - 5.385308;-2.303692; 0.332454;, - 5.481668;-2.449044; 0.355806;, - 5.385308;-2.303692; 0.332454;, - 5.562998;-2.290993; 0.356660;, - 5.466638;-2.145641; 0.333308;, - 5.303978;-2.461743; 0.331600;, - 5.481668;-2.449044; 0.355806;, - 5.385308;-2.303692; 0.332454;, - 5.835491;-2.281789; 0.427440;, - 5.943284;-2.132117; 0.431297;, - 5.904845;-2.133208; 0.408089;, - 5.904845;-2.133208; 0.408089;, - 5.797053;-2.282880; 0.404231;, - 5.835491;-2.281789; 0.427440;, - 5.797053;-2.282880; 0.404231;, - 5.904845;-2.133208; 0.408089;, - 5.866407;-2.134298; 0.384881;, - 5.727699;-2.431461; 0.423582;, - 5.835491;-2.281789; 0.427440;, - 5.797053;-2.282880; 0.404231;, - 5.693528;-2.433903; 0.401797;, - 5.727699;-2.431461; 0.423582;, - 5.797053;-2.282880; 0.404231;, - 5.797053;-2.282880; 0.404231;, - 5.762882;-2.285322; 0.382446;, - 5.693528;-2.433903; 0.401797;, - 5.762882;-2.285322; 0.382446;, - 5.797053;-2.282880; 0.404231;, - 5.866407;-2.134298; 0.384881;, - 5.659358;-2.436345; 0.380012;, - 5.693528;-2.433903; 0.401797;, - 5.762882;-2.285322; 0.382446;, - 5.820969;-2.296335; 2.001103;, - 5.927908;-2.123732; 2.054410;, - 5.889468;-2.149477; 1.870296;, - 5.889468;-2.149477; 1.870296;, - 5.782529;-2.322079; 1.816989;, - 5.820969;-2.296335; 2.001103;, - 5.782529;-2.322079; 1.816989;, - 5.889468;-2.149477; 1.870296;, - 5.851029;-2.175221; 1.686183;, - 5.714030;-2.468937; 1.947796;, - 5.820969;-2.296335; 2.001103;, - 5.782529;-2.322079; 1.816989;, - 5.679858;-2.499519; 1.771339;, - 5.714030;-2.468937; 1.947796;, - 5.782529;-2.322079; 1.816989;, - 5.782529;-2.322079; 1.816989;, - 5.748358;-2.352662; 1.640532;, - 5.679858;-2.499519; 1.771339;, - 5.748358;-2.352662; 1.640532;, - 5.782529;-2.322079; 1.816989;, - 5.851029;-2.175221; 1.686183;, - 5.645687;-2.530102; 1.594882;, - 5.679858;-2.499519; 1.771339;, - 5.748358;-2.352662; 1.640532;, - 5.704793;-2.250481; 2.137312;, - 5.804903;-2.094170; 2.194925;, - 5.866405;-2.108951; 2.124668;, - 5.866405;-2.108951; 2.124668;, - 5.766295;-2.265262; 2.067055;, - 5.704793;-2.250481; 2.137312;, - 5.766295;-2.265262; 2.067055;, - 5.866405;-2.108951; 2.124668;, - 5.927908;-2.123732; 2.054410;, - 5.604683;-2.406791; 2.079699;, - 5.704793;-2.250481; 2.137312;, - 5.766295;-2.265262; 2.067055;, - 5.659356;-2.437864; 2.013747;, - 5.604683;-2.406791; 2.079699;, - 5.766295;-2.265262; 2.067055;, - 5.766295;-2.265262; 2.067055;, - 5.820969;-2.296335; 2.001103;, - 5.659356;-2.437864; 2.013747;, - 5.820969;-2.296335; 2.001103;, - 5.766295;-2.265262; 2.067055;, - 5.927908;-2.123732; 2.054410;, - 5.714030;-2.468937; 1.947796;, - 5.659356;-2.437864; 2.013747;, - 5.820969;-2.296335; 2.001103;, - -5.132711;-2.326971; 1.959134;, - -5.187021;-2.168062; 2.013574;, - -4.619331;-2.164548; 2.055669;, - -4.619331;-2.164548; 2.055669;, - -4.565022;-2.323457; 2.001230;, - -5.132711;-2.326971; 1.959134;, - -4.565022;-2.323457; 2.001230;, - -4.619331;-2.164548; 2.055669;, - -4.051642;-2.161035; 2.097764;, - -5.078402;-2.485880; 1.904695;, - -5.132711;-2.326971; 1.959134;, - -4.565022;-2.323457; 2.001230;, - -4.541914;-2.520574; 1.946192;, - -5.078402;-2.485880; 1.904695;, - -4.565022;-2.323457; 2.001230;, - -4.565022;-2.323457; 2.001230;, - -4.028534;-2.358151; 2.042726;, - -4.541914;-2.520574; 1.946192;, - -4.028534;-2.358151; 2.042726;, - -4.565022;-2.323457; 2.001230;, - -4.051642;-2.161035; 2.097764;, - -4.005426;-2.555267; 1.987688;, - -4.541914;-2.520574; 1.946192;, - -4.028534;-2.358151; 2.042726;, - -5.172829;-2.492270; 1.815740;, - -5.267255;-2.498661; 1.726784;, - -5.227138;-2.333362; 1.870179;, - -5.227138;-2.333362; 1.870179;, - -5.132711;-2.326971; 1.959134;, - -5.172829;-2.492270; 1.815740;, - -5.132711;-2.326971; 1.959134;, - -5.227138;-2.333362; 1.870179;, - -5.187021;-2.168062; 2.013574;, - -5.078402;-2.485880; 1.904695;, - -5.172829;-2.492270; 1.815740;, - -5.132711;-2.326971; 1.959134;, - -5.227138;-2.333362; 1.870179;, - -5.267255;-2.498661; 1.726784;, - -5.325343;-2.299188; 1.776741;, - -5.325343;-2.299188; 1.776741;, - -5.285226;-2.133888; 1.920136;, - -5.227138;-2.333362; 1.870179;, - -5.285226;-2.133888; 1.920136;, - -5.325343;-2.299188; 1.776741;, - -5.383431;-2.099714; 1.826698;, - -5.187021;-2.168062; 2.013574;, - -5.227138;-2.333362; 1.870179;, - -5.285226;-2.133888; 1.920136;, - -5.403950;-2.484971; 1.484963;, - -5.540644;-2.471280; 1.243142;, - -5.587976;-2.331358; 1.277309;, - -5.587976;-2.331358; 1.277309;, - -5.451282;-2.345049; 1.519130;, - -5.403950;-2.484971; 1.484963;, - -5.451282;-2.345049; 1.519130;, - -5.587976;-2.331358; 1.277309;, - -5.635308;-2.191437; 1.311476;, - -5.267255;-2.498661; 1.726784;, - -5.403950;-2.484971; 1.484963;, - -5.451282;-2.345049; 1.519130;, - -5.325343;-2.299188; 1.776741;, - -5.267255;-2.498661; 1.726784;, - -5.451282;-2.345049; 1.519130;, - -5.451282;-2.345049; 1.519130;, - -5.509369;-2.145576; 1.569087;, - -5.325343;-2.299188; 1.776741;, - -5.509369;-2.145576; 1.569087;, - -5.451282;-2.345049; 1.519130;, - -5.635308;-2.191437; 1.311476;, - -5.383431;-2.099714; 1.826698;, - -5.325343;-2.299188; 1.776741;, - -5.509369;-2.145576; 1.569087;, - -5.616933;-2.459371; 1.015977;, - -5.693221;-2.447461; 0.788812;, - -5.743019;-2.316796; 0.808146;, - -5.743019;-2.316796; 0.808146;, - -5.666730;-2.328706; 1.035311;, - -5.616933;-2.459371; 1.015977;, - -5.666730;-2.328706; 1.035311;, - -5.743019;-2.316796; 0.808146;, - -5.792816;-2.186132; 0.827479;, - -5.540644;-2.471280; 1.243142;, - -5.616933;-2.459371; 1.015977;, - -5.666730;-2.328706; 1.035311;, - -5.587976;-2.331358; 1.277309;, - -5.540644;-2.471280; 1.243142;, - -5.666730;-2.328706; 1.035311;, - -5.666730;-2.328706; 1.035311;, - -5.714062;-2.188785; 1.069478;, - -5.587976;-2.331358; 1.277309;, - -5.714062;-2.188785; 1.069478;, - -5.666730;-2.328706; 1.035311;, - -5.792816;-2.186132; 0.827479;, - -5.635308;-2.191437; 1.311476;, - -5.587976;-2.331358; 1.277309;, - -5.714062;-2.188785; 1.069478;, - -5.965313;-2.280979; 0.827479;, - -5.992432;-2.182215; 0.827479;, - -5.892624;-2.184174; 0.827479;, - -5.892624;-2.184174; 0.827479;, - -5.865505;-2.282937; 0.827479;, - -5.965313;-2.280979; 0.827479;, - -5.865505;-2.282937; 0.827479;, - -5.892624;-2.184174; 0.827479;, - -5.792816;-2.186132; 0.827479;, - -5.938193;-2.379743; 0.827479;, - -5.965313;-2.280979; 0.827479;, - -5.865505;-2.282937; 0.827479;, - -5.815707;-2.413602; 0.808146;, - -5.938193;-2.379743; 0.827479;, - -5.865505;-2.282937; 0.827479;, - -5.865505;-2.282937; 0.827479;, - -5.743019;-2.316796; 0.808146;, - -5.815707;-2.413602; 0.808146;, - -5.743019;-2.316796; 0.808146;, - -5.865505;-2.282937; 0.827479;, - -5.792816;-2.186132; 0.827479;, - -5.693221;-2.447461; 0.788812;, - -5.815707;-2.413602; 0.808146;, - -5.743019;-2.316796; 0.808146;, - -5.968501;-2.374695; 0.788447;, - -5.998809;-2.369648; 0.749415;, - -5.995621;-2.275931; 0.788447;, - -5.995621;-2.275931; 0.788447;, - -5.965313;-2.280979; 0.827479;, - -5.968501;-2.374695; 0.788447;, - -5.965313;-2.280979; 0.827479;, - -5.995621;-2.275931; 0.788447;, - -5.992432;-2.182215; 0.827479;, - -5.938193;-2.379743; 0.827479;, - -5.968501;-2.374695; 0.788447;, - -5.965313;-2.280979; 0.827479;, - -5.995621;-2.275931; 0.788447;, - -5.998809;-2.369648; 0.749415;, - -6.027169;-2.275312; 0.749415;, - -6.027169;-2.275312; 0.749415;, - -6.023981;-2.181596; 0.788447;, - -5.995621;-2.275931; 0.788447;, - -6.023981;-2.181596; 0.788447;, - -6.027169;-2.275312; 0.749415;, - -6.055529;-2.180977; 0.749415;, - -5.992432;-2.182215; 0.827479;, - -5.995621;-2.275931; 0.788447;, - -6.023981;-2.181596; 0.788447;, - -5.899769;-2.381542; 0.413740;, - -5.800729;-2.393436; 0.078064;, - -5.825599;-2.287207; 0.078064;, - -5.825599;-2.287207; 0.078064;, - -5.924639;-2.275312; 0.413740;, - -5.899769;-2.381542; 0.413740;, - -5.924639;-2.275312; 0.413740;, - -5.825599;-2.287207; 0.078064;, - -5.850469;-2.180977; 0.078064;, - -5.998809;-2.369648; 0.749415;, - -5.899769;-2.381542; 0.413740;, - -5.924639;-2.275312; 0.413740;, - -6.027169;-2.275312; 0.749415;, - -5.998809;-2.369648; 0.749415;, - -5.924639;-2.275312; 0.413740;, - -5.924639;-2.275312; 0.413740;, - -5.952999;-2.180977; 0.413740;, - -6.027169;-2.275312; 0.749415;, - -5.952999;-2.180977; 0.413740;, - -5.924639;-2.275312; 0.413740;, - -5.850469;-2.180977; 0.078064;, - -6.055529;-2.180977; 0.749415;, - -6.027169;-2.275312; 0.749415;, - -5.952999;-2.180977; 0.413740;, - 2.322929;-2.526460; 0.077312;, - 2.197742;-2.512994; 0.042428;, - 2.198466;-2.538136; 0.370762;, - 2.198466;-2.538136; 0.370762;, - 2.323653;-2.551601; 0.405646;, - 2.322929;-2.526460; 0.077312;, - 2.323653;-2.551601; 0.405646;, - 2.198466;-2.538136; 0.370762;, - 2.199190;-2.563277; 0.699095;, - 2.448116;-2.539925; 0.112197;, - 2.322929;-2.526460; 0.077312;, - 2.323653;-2.551601; 0.405646;, - 2.463131;-2.566145; 0.405541;, - 2.448116;-2.539925; 0.112197;, - 2.323653;-2.551601; 0.405646;, - 2.323653;-2.551601; 0.405646;, - 2.338668;-2.577821; 0.698990;, - 2.463131;-2.566145; 0.405541;, - 2.338668;-2.577821; 0.698990;, - 2.323653;-2.551601; 0.405646;, - 2.199190;-2.563277; 0.699095;, - 2.478146;-2.592366; 0.698885;, - 2.463131;-2.566145; 0.405541;, - 2.338668;-2.577821; 0.698990;, - 2.322929;-2.526460; 0.077312;, - 2.448116;-2.539925; 0.112197;, - 2.445910;-2.539949; 0.069106;, - 2.445910;-2.539949; 0.069106;, - 2.320723;-2.526484; 0.034222;, - 2.322929;-2.526460; 0.077312;, - 2.320723;-2.526484; 0.034222;, - 2.445910;-2.539949; 0.069106;, - 2.443704;-2.539974; 0.026016;, - 2.197742;-2.512994; 0.042428;, - 2.322929;-2.526460; 0.077312;, - 2.320723;-2.526484; 0.034222;, - 2.197775;-2.512994; 0.009605;, - 2.197742;-2.512994; 0.042428;, - 2.320723;-2.526484; 0.034222;, - 2.320723;-2.526484; 0.034222;, - 2.320756;-2.526484; 0.001399;, - 2.197775;-2.512994; 0.009605;, - 2.320756;-2.526484; 0.001399;, - 2.320723;-2.526484; 0.034222;, - 2.443704;-2.539974; 0.026016;, - 2.197808;-2.512993;-0.023218;, - 2.197775;-2.512994; 0.009605;, - 2.320756;-2.526484; 0.001399;, - 0.426332;-2.605193; 1.301435;, - 2.198979;-2.608405; 1.374054;, - 2.199014;-2.606886; 1.260337;, - 2.199014;-2.606886; 1.260337;, - 0.426368;-2.603674; 1.187719;, - 0.426332;-2.605193; 1.301435;, - 0.426368;-2.603674; 1.187719;, - 2.199014;-2.606886; 1.260337;, - 2.199050;-2.605368; 1.146621;, - -1.346314;-2.601981; 1.228817;, - 0.426332;-2.605193; 1.301435;, - 0.426368;-2.603674; 1.187719;, - -1.347211;-2.600560; 1.122416;, - -1.346314;-2.601981; 1.228817;, - 0.426368;-2.603674; 1.187719;, - 0.426368;-2.603674; 1.187719;, - 0.425471;-2.602254; 1.081317;, - -1.347211;-2.600560; 1.122416;, - 0.425471;-2.602254; 1.081317;, - 0.426368;-2.603674; 1.187719;, - 2.199050;-2.605368; 1.146621;, - -1.348108;-2.599140; 1.016014;, - -1.347211;-2.600560; 1.122416;, - 0.425471;-2.602254; 1.081317;, - -1.347211;-2.602418; 1.343748;, - -1.348108;-2.602855; 1.458679;, - 0.425435;-2.605630; 1.416366;, - 0.425435;-2.605630; 1.416366;, - 0.426332;-2.605193; 1.301435;, - -1.347211;-2.602418; 1.343748;, - 0.426332;-2.605193; 1.301435;, - 0.425435;-2.605630; 1.416366;, - 2.198979;-2.608405; 1.374054;, - -1.346314;-2.601981; 1.228817;, - -1.347211;-2.602418; 1.343748;, - 0.426332;-2.605193; 1.301435;, - 0.425435;-2.605630; 1.416366;, - -1.348108;-2.602855; 1.458679;, - 0.425393;-2.603848; 1.552365;, - 0.425393;-2.603848; 1.552365;, - 2.198936;-2.606623; 1.510052;, - 0.425435;-2.605630; 1.416366;, - 2.198936;-2.606623; 1.510052;, - 0.425393;-2.603848; 1.552365;, - 2.198893;-2.604841; 1.646051;, - 2.198979;-2.608405; 1.374054;, - 0.425435;-2.605630; 1.416366;, - 2.198936;-2.606623; 1.510052;, - -1.347211;-2.602418; 1.343748;, - -1.346314;-2.601981; 1.228817;, - -2.226814;-2.619954; 1.251415;, - -2.226814;-2.619954; 1.251415;, - -2.227711;-2.620391; 1.366345;, - -1.347211;-2.602418; 1.343748;, - -2.227711;-2.620391; 1.366345;, - -2.226814;-2.619954; 1.251415;, - -3.107314;-2.637927; 1.274012;, - -1.348108;-2.602855; 1.458679;, - -1.347211;-2.602418; 1.343748;, - -2.227711;-2.620391; 1.366345;, - -2.350871;-2.620915; 1.431474;, - -1.348108;-2.602855; 1.458679;, - -2.227711;-2.620391; 1.366345;, - -2.227711;-2.620391; 1.366345;, - -3.230474;-2.638451; 1.339141;, - -2.350871;-2.620915; 1.431474;, - -3.230474;-2.638451; 1.339141;, - -2.227711;-2.620391; 1.366345;, - -3.107314;-2.637927; 1.274012;, - -3.353634;-2.638975; 1.404270;, - -2.350871;-2.620915; 1.431474;, - -3.230474;-2.638451; 1.339141;, - -1.347211;-2.600560; 1.122416;, - -1.348108;-2.599140; 1.016014;, - -2.099478;-2.617583; 1.077199;, - -2.099478;-2.617583; 1.077199;, - -2.098580;-2.619003; 1.183600;, - -1.347211;-2.600560; 1.122416;, - -2.098580;-2.619003; 1.183600;, - -2.099478;-2.617583; 1.077199;, - -2.850847;-2.636026; 1.138384;, - -1.346314;-2.601981; 1.228817;, - -1.347211;-2.600560; 1.122416;, - -2.098580;-2.619003; 1.183600;, - -2.226814;-2.619954; 1.251415;, - -1.346314;-2.601981; 1.228817;, - -2.098580;-2.619003; 1.183600;, - -2.098580;-2.619003; 1.183600;, - -2.979081;-2.636976; 1.206198;, - -2.226814;-2.619954; 1.251415;, - -2.979081;-2.636976; 1.206198;, - -2.098580;-2.619003; 1.183600;, - -2.850847;-2.636026; 1.138384;, - -3.107314;-2.637927; 1.274012;, - -2.226814;-2.619954; 1.251415;, - -2.979081;-2.636976; 1.206198;, - -2.752085;-2.613053; 0.914042;, - -2.850847;-2.636026; 1.138384;, - -2.099478;-2.617583; 1.077199;, - -2.099478;-2.617583; 1.077199;, - -2.000716;-2.594610; 0.852857;, - -2.752085;-2.613053; 0.914042;, - -2.000716;-2.594610; 0.852857;, - -2.099478;-2.617583; 1.077199;, - -1.348108;-2.599140; 1.016014;, - -2.653324;-2.590081; 0.689701;, - -2.752085;-2.613053; 0.914042;, - -2.000716;-2.594610; 0.852857;, - -2.000716;-2.567699; 0.658744;, - -2.653324;-2.590081; 0.689701;, - -2.000716;-2.594610; 0.852857;, - -2.000716;-2.594610; 0.852857;, - -1.348108;-2.572228; 0.821900;, - -2.000716;-2.567699; 0.658744;, - -1.348108;-2.572228; 0.821900;, - -2.000716;-2.594610; 0.852857;, - -1.348108;-2.599140; 1.016014;, - -1.348108;-2.545317; 0.627786;, - -2.000716;-2.567699; 0.658744;, - -1.348108;-2.572228; 0.821900;, - -1.999289;-2.523808; 0.041484;, - -2.635366;-2.539125; 0.041603;, - -1.991737;-2.542221; 0.334695;, - -1.991737;-2.542221; 0.334695;, - -1.355659;-2.526904; 0.334576;, - -1.999289;-2.523808; 0.041484;, - -1.355659;-2.526904; 0.334576;, - -1.991737;-2.542221; 0.334695;, - -1.348108;-2.545317; 0.627786;, - -1.363211;-2.508491; 0.041366;, - -1.999289;-2.523808; 0.041484;, - -1.355659;-2.526904; 0.334576;, - -1.991737;-2.542221; 0.334695;, - -2.635366;-2.539125; 0.041603;, - -2.644345;-2.564603; 0.365652;, - -2.644345;-2.564603; 0.365652;, - -2.000716;-2.567699; 0.658744;, - -1.991737;-2.542221; 0.334695;, - -2.000716;-2.567699; 0.658744;, - -2.644345;-2.564603; 0.365652;, - -2.653324;-2.590081; 0.689701;, - -1.348108;-2.545317; 0.627786;, - -1.991737;-2.542221; 0.334695;, - -2.000716;-2.567699; 0.658744;, - 0.417265;-2.510743; 0.041897;, - -1.363211;-2.508491; 0.041366;, - -1.355659;-2.526904; 0.334576;, - -1.355659;-2.526904; 0.334576;, - 0.424817;-2.529155; 0.335107;, - 0.417265;-2.510743; 0.041897;, - 0.424817;-2.529155; 0.335107;, - -1.355659;-2.526904; 0.334576;, - -1.348108;-2.545317; 0.627786;, - 2.197742;-2.512994; 0.042428;, - 0.417265;-2.510743; 0.041897;, - 0.424817;-2.529155; 0.335107;, - 2.198466;-2.538136; 0.370762;, - 2.197742;-2.512994; 0.042428;, - 0.424817;-2.529155; 0.335107;, - 0.424817;-2.529155; 0.335107;, - 0.425541;-2.554297; 0.663440;, - 2.198466;-2.538136; 0.370762;, - 0.425541;-2.554297; 0.663440;, - 0.424817;-2.529155; 0.335107;, - -1.348108;-2.545317; 0.627786;, - 2.199190;-2.563277; 0.699095;, - 2.198466;-2.538136; 0.370762;, - 0.425541;-2.554297; 0.663440;, - -1.358927;-2.508491; 0.017596;, - -1.354643;-2.508491;-0.006173;, - -1.950113;-2.523808;-0.007211;, - -1.950113;-2.523808;-0.007211;, - -1.954397;-2.523808; 0.016558;, - -1.358927;-2.508491; 0.017596;, - -1.954397;-2.523808; 0.016558;, - -1.950113;-2.523808;-0.007211;, - -2.545583;-2.539125;-0.008250;, - -1.363211;-2.508491; 0.041366;, - -1.358927;-2.508491; 0.017596;, - -1.954397;-2.523808; 0.016558;, - -1.999289;-2.523808; 0.041484;, - -1.363211;-2.508491; 0.041366;, - -1.954397;-2.523808; 0.016558;, - -1.954397;-2.523808; 0.016558;, - -2.590475;-2.539125; 0.016677;, - -1.999289;-2.523808; 0.041484;, - -2.590475;-2.539125; 0.016677;, - -1.954397;-2.523808; 0.016558;, - -2.545583;-2.539125;-0.008250;, - -2.635366;-2.539125; 0.041603;, - -1.999289;-2.523808; 0.041484;, - -2.590475;-2.539125; 0.016677;, - 2.197775;-2.512994; 0.009605;, - 2.197808;-2.512993;-0.023218;, - 0.421583;-2.510742;-0.014696;, - 0.421583;-2.510742;-0.014696;, - 0.421549;-2.510743; 0.018128;, - 2.197775;-2.512994; 0.009605;, - 0.421549;-2.510743; 0.018128;, - 0.421583;-2.510742;-0.014696;, - -1.354643;-2.508491;-0.006173;, - 2.197742;-2.512994; 0.042428;, - 2.197775;-2.512994; 0.009605;, - 0.421549;-2.510743; 0.018128;, - 0.417265;-2.510743; 0.041897;, - 2.197742;-2.512994; 0.042428;, - 0.421549;-2.510743; 0.018128;, - 0.421549;-2.510743; 0.018128;, - -1.358927;-2.508491; 0.017596;, - 0.417265;-2.510743; 0.041897;, - -1.358927;-2.508491; 0.017596;, - 0.421549;-2.510743; 0.018128;, - -1.354643;-2.508491;-0.006173;, - -1.363211;-2.508491; 0.041366;, - 0.417265;-2.510743; 0.041897;, - -1.358927;-2.508491; 0.017596;, - 4.553702;-2.515363; 0.326770;, - 4.514643;-2.518154; 0.334902;, - 4.904053;-2.490324; 0.344464;, - 4.904053;-2.490324; 0.344464;, - 4.943112;-2.487533; 0.336332;, - 4.553702;-2.515363; 0.326770;, - 4.943112;-2.487533; 0.336332;, - 4.904053;-2.490324; 0.344464;, - 5.293462;-2.462494; 0.354027;, - 4.592762;-2.512571; 0.318638;, - 4.553702;-2.515363; 0.326770;, - 4.943112;-2.487533; 0.336332;, - 4.948370;-2.487157; 0.325119;, - 4.592762;-2.512571; 0.318638;, - 4.943112;-2.487533; 0.336332;, - 4.943112;-2.487533; 0.336332;, - 5.298720;-2.462119; 0.342813;, - 4.948370;-2.487157; 0.325119;, - 5.298720;-2.462119; 0.342813;, - 4.943112;-2.487533; 0.336332;, - 5.293462;-2.462494; 0.354027;, - 5.303978;-2.461743; 0.331600;, - 4.948370;-2.487157; 0.325119;, - 5.298720;-2.462119; 0.342813;, - 5.510580;-2.446978; 0.388804;, - 5.727699;-2.431461; 0.423582;, - 5.693528;-2.433903; 0.401797;, - 5.693528;-2.433903; 0.401797;, - 5.476410;-2.449419; 0.367020;, - 5.510580;-2.446978; 0.388804;, - 5.476410;-2.449419; 0.367020;, - 5.693528;-2.433903; 0.401797;, - 5.659358;-2.436345; 0.380012;, - 5.293462;-2.462494; 0.354027;, - 5.510580;-2.446978; 0.388804;, - 5.476410;-2.449419; 0.367020;, - 5.298720;-2.462119; 0.342813;, - 5.293462;-2.462494; 0.354027;, - 5.476410;-2.449419; 0.367020;, - 5.476410;-2.449419; 0.367020;, - 5.481668;-2.449044; 0.355806;, - 5.298720;-2.462119; 0.342813;, - 5.481668;-2.449044; 0.355806;, - 5.476410;-2.449419; 0.367020;, - 5.659358;-2.436345; 0.380012;, - 5.303978;-2.461743; 0.331600;, - 5.298720;-2.462119; 0.342813;, - 5.481668;-2.449044; 0.355806;, - 5.478554;-2.520925; 0.809360;, - 5.704223;-2.512420; 0.852182;, - 5.715961;-2.471941; 0.637882;, - 5.715961;-2.471941; 0.637882;, - 5.490292;-2.480445; 0.595060;, - 5.478554;-2.520925; 0.809360;, - 5.490292;-2.480445; 0.595060;, - 5.715961;-2.471941; 0.637882;, - 5.727699;-2.431461; 0.423582;, - 5.252885;-2.529429; 0.766538;, - 5.478554;-2.520925; 0.809360;, - 5.490292;-2.480445; 0.595060;, - 5.273173;-2.495961; 0.560283;, - 5.252885;-2.529429; 0.766538;, - 5.490292;-2.480445; 0.595060;, - 5.490292;-2.480445; 0.595060;, - 5.510580;-2.446978; 0.388804;, - 5.273173;-2.495961; 0.560283;, - 5.510580;-2.446978; 0.388804;, - 5.490292;-2.480445; 0.595060;, - 5.727699;-2.431461; 0.423582;, - 5.293462;-2.462494; 0.354027;, - 5.273173;-2.495961; 0.560283;, - 5.510580;-2.446978; 0.388804;, - 5.446942;-2.545047; 1.167589;, - 5.678779;-2.527861; 1.175012;, - 5.691501;-2.520141; 1.013597;, - 5.691501;-2.520141; 1.013597;, - 5.459664;-2.537326; 1.006174;, - 5.446942;-2.545047; 1.167589;, - 5.459664;-2.537326; 1.006174;, - 5.691501;-2.520141; 1.013597;, - 5.704223;-2.512420; 0.852182;, - 5.215105;-2.562232; 1.160166;, - 5.446942;-2.545047; 1.167589;, - 5.459664;-2.537326; 1.006174;, - 5.233995;-2.545830; 0.963352;, - 5.215105;-2.562232; 1.160166;, - 5.459664;-2.537326; 1.006174;, - 5.459664;-2.537326; 1.006174;, - 5.478554;-2.520925; 0.809360;, - 5.233995;-2.545830; 0.963352;, - 5.478554;-2.520925; 0.809360;, - 5.459664;-2.537326; 1.006174;, - 5.704223;-2.512420; 0.852182;, - 5.252885;-2.529429; 0.766538;, - 5.233995;-2.545830; 0.963352;, - 5.478554;-2.520925; 0.809360;, - 5.204217;-2.564438; 1.273617;, - 5.193329;-2.566645; 1.387067;, - 5.427560;-2.549140; 1.388803;, - 5.427560;-2.549140; 1.388803;, - 5.438448;-2.546934; 1.275353;, - 5.204217;-2.564438; 1.273617;, - 5.438448;-2.546934; 1.275353;, - 5.427560;-2.549140; 1.388803;, - 5.661792;-2.531635; 1.390540;, - 5.215105;-2.562232; 1.160166;, - 5.204217;-2.564438; 1.273617;, - 5.438448;-2.546934; 1.275353;, - 5.446942;-2.545047; 1.167589;, - 5.215105;-2.562232; 1.160166;, - 5.438448;-2.546934; 1.275353;, - 5.438448;-2.546934; 1.275353;, - 5.670285;-2.529748; 1.282776;, - 5.446942;-2.545047; 1.167589;, - 5.670285;-2.529748; 1.282776;, - 5.438448;-2.546934; 1.275353;, - 5.661792;-2.531635; 1.390540;, - 5.678779;-2.527861; 1.175012;, - 5.446942;-2.545047; 1.167589;, - 5.670285;-2.529748; 1.282776;, - 5.184440;-2.565899; 1.490974;, - 5.175551;-2.565153; 1.594882;, - 5.410619;-2.547627; 1.594882;, - 5.410619;-2.547627; 1.594882;, - 5.419508;-2.548373; 1.490974;, - 5.184440;-2.565899; 1.490974;, - 5.419508;-2.548373; 1.490974;, - 5.410619;-2.547627; 1.594882;, - 5.645687;-2.530102; 1.594882;, - 5.193329;-2.566645; 1.387067;, - 5.184440;-2.565899; 1.490974;, - 5.419508;-2.548373; 1.490974;, - 5.427560;-2.549140; 1.388803;, - 5.193329;-2.566645; 1.387067;, - 5.419508;-2.548373; 1.490974;, - 5.419508;-2.548373; 1.490974;, - 5.653739;-2.530869; 1.492711;, - 5.427560;-2.549140; 1.388803;, - 5.653739;-2.530869; 1.492711;, - 5.419508;-2.548373; 1.490974;, - 5.645687;-2.530102; 1.594882;, - 5.661792;-2.531635; 1.390540;, - 5.427560;-2.549140; 1.388803;, - 5.653739;-2.530869; 1.492711;, - 4.736977;-2.600752; 1.384036;, - 4.280624;-2.634859; 1.381005;, - 4.728087;-2.600006; 1.487944;, - 4.728087;-2.600006; 1.487944;, - 5.184440;-2.565899; 1.490974;, - 4.736977;-2.600752; 1.384036;, - 5.184440;-2.565899; 1.490974;, - 4.728087;-2.600006; 1.487944;, - 5.175551;-2.565153; 1.594882;, - 5.193329;-2.566645; 1.387067;, - 4.736977;-2.600752; 1.384036;, - 5.184440;-2.565899; 1.490974;, - 4.728087;-2.600006; 1.487944;, - 4.280624;-2.634859; 1.381005;, - 4.272166;-2.633636; 1.513528;, - 4.272166;-2.633636; 1.513528;, - 4.719629;-2.598783; 1.620466;, - 4.728087;-2.600006; 1.487944;, - 4.719629;-2.598783; 1.620466;, - 4.272166;-2.633636; 1.513528;, - 4.263708;-2.632414; 1.646050;, - 5.175551;-2.565153; 1.594882;, - 4.728087;-2.600006; 1.487944;, - 4.719629;-2.598783; 1.620466;, - 5.204217;-2.564438; 1.273617;, - 5.215105;-2.562232; 1.160166;, - 4.771132;-2.595090; 1.142874;, - 4.771132;-2.595090; 1.142874;, - 4.760243;-2.597297; 1.256325;, - 5.204217;-2.564438; 1.273617;, - 4.760243;-2.597297; 1.256325;, - 4.771132;-2.595090; 1.142874;, - 4.327158;-2.627949; 1.125582;, - 5.193329;-2.566645; 1.387067;, - 5.204217;-2.564438; 1.273617;, - 4.760243;-2.597297; 1.256325;, - 4.736977;-2.600752; 1.384036;, - 5.193329;-2.566645; 1.387067;, - 4.760243;-2.597297; 1.256325;, - 4.760243;-2.597297; 1.256325;, - 4.303891;-2.631404; 1.253294;, - 4.736977;-2.600752; 1.384036;, - 4.303891;-2.631404; 1.253294;, - 4.760243;-2.597297; 1.256325;, - 4.327158;-2.627949; 1.125582;, - 4.280624;-2.634859; 1.381005;, - 4.736977;-2.600752; 1.384036;, - 4.303891;-2.631404; 1.253294;, - 4.904053;-2.490324; 0.344464;, - 4.514643;-2.518154; 0.334902;, - 4.883764;-2.523791; 0.550720;, - 4.883764;-2.523791; 0.550720;, - 5.273173;-2.495961; 0.560283;, - 4.904053;-2.490324; 0.344464;, - 5.273173;-2.495961; 0.560283;, - 4.883764;-2.523791; 0.550720;, - 5.252885;-2.529429; 0.766538;, - 5.293462;-2.462494; 0.354027;, - 4.904053;-2.490324; 0.344464;, - 5.273173;-2.495961; 0.560283;, - 4.883764;-2.523791; 0.550720;, - 4.514643;-2.518154; 0.334902;, - 4.506831;-2.543254; 0.508687;, - 4.506831;-2.543254; 0.508687;, - 4.875952;-2.548892; 0.724506;, - 4.883764;-2.523791; 0.550720;, - 4.875952;-2.548892; 0.724506;, - 4.506831;-2.543254; 0.508687;, - 4.499019;-2.568355; 0.682473;, - 5.252885;-2.529429; 0.766538;, - 4.883764;-2.523791; 0.550720;, - 4.875952;-2.548892; 0.724506;, - 4.413089;-2.598152; 0.904027;, - 4.327158;-2.627949; 1.125582;, - 4.771132;-2.595090; 1.142874;, - 4.771132;-2.595090; 1.142874;, - 4.857062;-2.565294; 0.921319;, - 4.413089;-2.598152; 0.904027;, - 4.857062;-2.565294; 0.921319;, - 4.771132;-2.595090; 1.142874;, - 5.215105;-2.562232; 1.160166;, - 4.499019;-2.568355; 0.682473;, - 4.413089;-2.598152; 0.904027;, - 4.857062;-2.565294; 0.921319;, - 4.875952;-2.548892; 0.724506;, - 4.499019;-2.568355; 0.682473;, - 4.857062;-2.565294; 0.921319;, - 4.857062;-2.565294; 0.921319;, - 5.233995;-2.545830; 0.963352;, - 4.875952;-2.548892; 0.724506;, - 5.233995;-2.545830; 0.963352;, - 4.857062;-2.565294; 0.921319;, - 5.215105;-2.562232; 1.160166;, - 5.252885;-2.529429; 0.766538;, - 4.875952;-2.548892; 0.724506;, - 5.233995;-2.545830; 0.963352;, - 4.719629;-2.598783; 1.620466;, - 4.263708;-2.632414; 1.646050;, - 4.754906;-2.550974; 1.827991;, - 4.754906;-2.550974; 1.827991;, - 5.210827;-2.517344; 1.802407;, - 4.719629;-2.598783; 1.620466;, - 5.210827;-2.517344; 1.802407;, - 4.754906;-2.550974; 1.827991;, - 5.246103;-2.469534; 2.009931;, - 5.175551;-2.565153; 1.594882;, - 4.719629;-2.598783; 1.620466;, - 5.210827;-2.517344; 1.802407;, - 4.754906;-2.550974; 1.827991;, - 4.263708;-2.632414; 1.646050;, - 4.196004;-2.571297; 1.857427;, - 4.196004;-2.571297; 1.857427;, - 4.687201;-2.489857; 2.039367;, - 4.754906;-2.550974; 1.827991;, - 4.687201;-2.489857; 2.039367;, - 4.196004;-2.571297; 1.857427;, - 4.128300;-2.510180; 2.068803;, - 5.246103;-2.469534; 2.009931;, - 4.754906;-2.550974; 1.827991;, - 4.687201;-2.489857; 2.039367;, - 5.480066;-2.469235; 1.978863;, - 5.714030;-2.468937; 1.947796;, - 5.679858;-2.499519; 1.771339;, - 5.679858;-2.499519; 1.771339;, - 5.445895;-2.499818; 1.802407;, - 5.480066;-2.469235; 1.978863;, - 5.445895;-2.499818; 1.802407;, - 5.679858;-2.499519; 1.771339;, - 5.645687;-2.530102; 1.594882;, - 5.246103;-2.469534; 2.009931;, - 5.480066;-2.469235; 1.978863;, - 5.445895;-2.499818; 1.802407;, - 5.210827;-2.517344; 1.802407;, - 5.246103;-2.469534; 2.009931;, - 5.445895;-2.499818; 1.802407;, - 5.445895;-2.499818; 1.802407;, - 5.410619;-2.547627; 1.594882;, - 5.210827;-2.517344; 1.802407;, - 5.410619;-2.547627; 1.594882;, - 5.445895;-2.499818; 1.802407;, - 5.645687;-2.530102; 1.594882;, - 5.175551;-2.565153; 1.594882;, - 5.210827;-2.517344; 1.802407;, - 5.410619;-2.547627; 1.594882;, - 2.587160;-2.636478; 1.152429;, - 2.473867;-2.636694; 1.149661;, - 2.585311;-2.637992; 1.260463;, - 2.585311;-2.637992; 1.260463;, - 2.698604;-2.637776; 1.263231;, - 2.587160;-2.636478; 1.152429;, - 2.698604;-2.637776; 1.263231;, - 2.585311;-2.637992; 1.260463;, - 2.696755;-2.639290; 1.371265;, - 2.700452;-2.636262; 1.155197;, - 2.587160;-2.636478; 1.152429;, - 2.698604;-2.637776; 1.263231;, - 2.585311;-2.637992; 1.260463;, - 2.473867;-2.636694; 1.149661;, - 2.472817;-2.638256; 1.260250;, - 2.472817;-2.638256; 1.260250;, - 2.584261;-2.639554; 1.371053;, - 2.585311;-2.637992; 1.260463;, - 2.584261;-2.639554; 1.371053;, - 2.472817;-2.638256; 1.260250;, - 2.471767;-2.639818; 1.370840;, - 2.696755;-2.639290; 1.371265;, - 2.585311;-2.637992; 1.260463;, - 2.584261;-2.639554; 1.371053;, - 2.690217;-2.512147; 2.065265;, - 2.788565;-2.512023; 2.065487;, - 2.742642;-2.573804; 1.855768;, - 2.742642;-2.573804; 1.855768;, - 2.644294;-2.573928; 1.855546;, - 2.690217;-2.512147; 2.065265;, - 2.644294;-2.573928; 1.855546;, - 2.742642;-2.573804; 1.855768;, - 2.696720;-2.635585; 1.646050;, - 2.591868;-2.512271; 2.065043;, - 2.690217;-2.512147; 2.065265;, - 2.644294;-2.573928; 1.855546;, - 2.531817;-2.574195; 1.855546;, - 2.591868;-2.512271; 2.065043;, - 2.644294;-2.573928; 1.855546;, - 2.644294;-2.573928; 1.855546;, - 2.584243;-2.635852; 1.646050;, - 2.531817;-2.574195; 1.855546;, - 2.584243;-2.635852; 1.646050;, - 2.644294;-2.573928; 1.855546;, - 2.696720;-2.635585; 1.646050;, - 2.471767;-2.636119; 1.646050;, - 2.531817;-2.574195; 1.855546;, - 2.584243;-2.635852; 1.646050;, - 3.048100;-2.511533; 2.066369;, - 3.307635;-2.511042; 2.067250;, - 3.237505;-2.573314; 1.856650;, - 3.237505;-2.573314; 1.856650;, - 2.977970;-2.573804; 1.855768;, - 3.048100;-2.511533; 2.066369;, - 2.977970;-2.573804; 1.855768;, - 3.237505;-2.573314; 1.856650;, - 3.167375;-2.635585; 1.646050;, - 2.788565;-2.512023; 2.065487;, - 3.048100;-2.511533; 2.066369;, - 2.977970;-2.573804; 1.855768;, - 2.742642;-2.573804; 1.855768;, - 2.788565;-2.512023; 2.065487;, - 2.977970;-2.573804; 1.855768;, - 2.977970;-2.573804; 1.855768;, - 2.932047;-2.635585; 1.646050;, - 2.742642;-2.573804; 1.855768;, - 2.932047;-2.635585; 1.646050;, - 2.977970;-2.573804; 1.855768;, - 3.167375;-2.635585; 1.646050;, - 2.696720;-2.635585; 1.646050;, - 2.742642;-2.573804; 1.855768;, - 2.932047;-2.635585; 1.646050;, - 2.788559;-2.485179; 2.113783;, - 2.788553;-2.458335; 2.162080;, - 3.047282;-2.460892; 2.157479;, - 3.047282;-2.460892; 2.157479;, - 3.047288;-2.487736; 2.109182;, - 2.788559;-2.485179; 2.113783;, - 3.047288;-2.487736; 2.109182;, - 3.047282;-2.460892; 2.157479;, - 3.306011;-2.463450; 2.152878;, - 2.788565;-2.512023; 2.065487;, - 2.788559;-2.485179; 2.113783;, - 3.047288;-2.487736; 2.109182;, - 3.048100;-2.511533; 2.066369;, - 2.788565;-2.512023; 2.065487;, - 3.047288;-2.487736; 2.109182;, - 3.047288;-2.487736; 2.109182;, - 3.306823;-2.487246; 2.110064;, - 3.048100;-2.511533; 2.066369;, - 3.306823;-2.487246; 2.110064;, - 3.047288;-2.487736; 2.109182;, - 3.306011;-2.463450; 2.152878;, - 3.307635;-2.511042; 2.067250;, - 3.048100;-2.511533; 2.066369;, - 3.306823;-2.487246; 2.110064;, - 2.690217;-2.512147; 2.065265;, - 2.591868;-2.512271; 2.065043;, - 2.591889;-2.493269; 2.099229;, - 2.591889;-2.493269; 2.099229;, - 2.690238;-2.493145; 2.099451;, - 2.690217;-2.512147; 2.065265;, - 2.690238;-2.493145; 2.099451;, - 2.591889;-2.493269; 2.099229;, - 2.591911;-2.474268; 2.133415;, - 2.788565;-2.512023; 2.065487;, - 2.690217;-2.512147; 2.065265;, - 2.690238;-2.493145; 2.099451;, - 2.788559;-2.485179; 2.113783;, - 2.788565;-2.512023; 2.065487;, - 2.690238;-2.493145; 2.099451;, - 2.690238;-2.493145; 2.099451;, - 2.690232;-2.466301; 2.147748;, - 2.788559;-2.485179; 2.113783;, - 2.690232;-2.466301; 2.147748;, - 2.690238;-2.493145; 2.099451;, - 2.591911;-2.474268; 2.133415;, - 2.788553;-2.458335; 2.162080;, - 2.788559;-2.485179; 2.113783;, - 2.690232;-2.466301; 2.147748;, - 2.584243;-2.635852; 1.646050;, - 2.696720;-2.635585; 1.646050;, - 2.696737;-2.637438; 1.508657;, - 2.696737;-2.637438; 1.508657;, - 2.584261;-2.637704; 1.508657;, - 2.584243;-2.635852; 1.646050;, - 2.584261;-2.637704; 1.508657;, - 2.696737;-2.637438; 1.508657;, - 2.696755;-2.639290; 1.371265;, - 2.471767;-2.636119; 1.646050;, - 2.584243;-2.635852; 1.646050;, - 2.584261;-2.637704; 1.508657;, - 2.471767;-2.637969; 1.508445;, - 2.471767;-2.636119; 1.646050;, - 2.584261;-2.637704; 1.508657;, - 2.584261;-2.637704; 1.508657;, - 2.584261;-2.639554; 1.371053;, - 2.471767;-2.637969; 1.508445;, - 2.584261;-2.639554; 1.371053;, - 2.584261;-2.637704; 1.508657;, - 2.696755;-2.639290; 1.371265;, - 2.471767;-2.639818; 1.370840;, - 2.471767;-2.637969; 1.508445;, - 2.584261;-2.639554; 1.371053;, - 2.932047;-2.635585; 1.646050;, - 3.167375;-2.635585; 1.646050;, - 3.167176;-2.637445; 1.509218;, - 3.167176;-2.637445; 1.509218;, - 2.931848;-2.637445; 1.509218;, - 2.932047;-2.635585; 1.646050;, - 2.931848;-2.637445; 1.509218;, - 3.167176;-2.637445; 1.509218;, - 3.166976;-2.639306; 1.372387;, - 2.696720;-2.635585; 1.646050;, - 2.932047;-2.635585; 1.646050;, - 2.931848;-2.637445; 1.509218;, - 2.696737;-2.637438; 1.508657;, - 2.696720;-2.635585; 1.646050;, - 2.931848;-2.637445; 1.509218;, - 2.931848;-2.637445; 1.509218;, - 2.931865;-2.639298; 1.371826;, - 2.696737;-2.637438; 1.508657;, - 2.931865;-2.639298; 1.371826;, - 2.931848;-2.637445; 1.509218;, - 3.166976;-2.639306; 1.372387;, - 2.696755;-2.639290; 1.371265;, - 2.696737;-2.637438; 1.508657;, - 2.931865;-2.639298; 1.371826;, - 2.338668;-2.577821; 0.698990;, - 2.199190;-2.563277; 0.699095;, - 2.199120;-2.584322; 0.922858;, - 2.199120;-2.584322; 0.922858;, - 2.338598;-2.598867; 0.922753;, - 2.338668;-2.577821; 0.698990;, - 2.338598;-2.598867; 0.922753;, - 2.199120;-2.584322; 0.922858;, - 2.199050;-2.605368; 1.146621;, - 2.478146;-2.592366; 0.698885;, - 2.338668;-2.577821; 0.698990;, - 2.338598;-2.598867; 0.922753;, - 2.476007;-2.614530; 0.924273;, - 2.478146;-2.592366; 0.698885;, - 2.338598;-2.598867; 0.922753;, - 2.338598;-2.598867; 0.922753;, - 2.336458;-2.621031; 1.148141;, - 2.476007;-2.614530; 0.924273;, - 2.336458;-2.621031; 1.148141;, - 2.338598;-2.598867; 0.922753;, - 2.199050;-2.605368; 1.146621;, - 2.473867;-2.636694; 1.149661;, - 2.476007;-2.614530; 0.924273;, - 2.336458;-2.621031; 1.148141;, - 2.199014;-2.606886; 1.260337;, - 2.198979;-2.608405; 1.374054;, - 2.335373;-2.624112; 1.372447;, - 2.335373;-2.624112; 1.372447;, - 2.335408;-2.622593; 1.258730;, - 2.199014;-2.606886; 1.260337;, - 2.335408;-2.622593; 1.258730;, - 2.335373;-2.624112; 1.372447;, - 2.471767;-2.639818; 1.370840;, - 2.199050;-2.605368; 1.146621;, - 2.199014;-2.606886; 1.260337;, - 2.335408;-2.622593; 1.258730;, - 2.336458;-2.621031; 1.148141;, - 2.199050;-2.605368; 1.146621;, - 2.335408;-2.622593; 1.258730;, - 2.335408;-2.622593; 1.258730;, - 2.472817;-2.638256; 1.260250;, - 2.336458;-2.621031; 1.148141;, - 2.472817;-2.638256; 1.260250;, - 2.335408;-2.622593; 1.258730;, - 2.471767;-2.639818; 1.370840;, - 2.473867;-2.636694; 1.149661;, - 2.336458;-2.621031; 1.148141;, - 2.472817;-2.638256; 1.260250;, - 0.425541;-2.554297; 0.663440;, - -1.348108;-2.545317; 0.627786;, - -1.348108;-2.572228; 0.821900;, - -1.348108;-2.572228; 0.821900;, - 0.425541;-2.581208; 0.857554;, - 0.425541;-2.554297; 0.663440;, - 0.425541;-2.581208; 0.857554;, - -1.348108;-2.572228; 0.821900;, - -1.348108;-2.599140; 1.016014;, - 2.199190;-2.563277; 0.699095;, - 0.425541;-2.554297; 0.663440;, - 0.425541;-2.581208; 0.857554;, - 2.199120;-2.584322; 0.922858;, - 2.199190;-2.563277; 0.699095;, - 0.425541;-2.581208; 0.857554;, - 0.425541;-2.581208; 0.857554;, - 0.425471;-2.602254; 1.081317;, - 2.199120;-2.584322; 0.922858;, - 0.425471;-2.602254; 1.081317;, - 0.425541;-2.581208; 0.857554;, - -1.348108;-2.599140; 1.016014;, - 2.199050;-2.605368; 1.146621;, - 2.199120;-2.584322; 0.922858;, - 0.425471;-2.602254; 1.081317;, - -2.381012;-2.508040; 2.046516;, - -1.348108;-2.476988; 2.076244;, - -2.350871;-2.557981; 1.740257;, - -2.350871;-2.557981; 1.740257;, - -3.383776;-2.589034; 1.710530;, - -2.381012;-2.508040; 2.046516;, - -3.383776;-2.589034; 1.710530;, - -2.350871;-2.557981; 1.740257;, - -3.353634;-2.638975; 1.404270;, - -3.413917;-2.539093; 2.016789;, - -2.381012;-2.508040; 2.046516;, - -3.383776;-2.589034; 1.710530;, - -2.350871;-2.557981; 1.740257;, - -1.348108;-2.476988; 2.076244;, - -1.348108;-2.539922; 1.767462;, - -1.348108;-2.539922; 1.767462;, - -2.350871;-2.620915; 1.431474;, - -2.350871;-2.557981; 1.740257;, - -2.350871;-2.620915; 1.431474;, - -1.348108;-2.539922; 1.767462;, - -1.348108;-2.602855; 1.458679;, - -3.353634;-2.638975; 1.404270;, - -2.350871;-2.557981; 1.740257;, - -2.350871;-2.620915; 1.431474;, - 3.306823;-2.487246; 2.110064;, - 3.306011;-2.463450; 2.152878;, - 3.539508;-2.461094; 2.157116;, - 3.539508;-2.461094; 2.157116;, - 3.540320;-2.484890; 2.114302;, - 3.306823;-2.487246; 2.110064;, - 3.540320;-2.484890; 2.114302;, - 3.539508;-2.461094; 2.157116;, - 3.773005;-2.458739; 2.161354;, - 3.307635;-2.511042; 2.067250;, - 3.306823;-2.487246; 2.110064;, - 3.540320;-2.484890; 2.114302;, - 3.549205;-2.510597; 2.068049;, - 3.307635;-2.511042; 2.067250;, - 3.540320;-2.484890; 2.114302;, - 3.540320;-2.484890; 2.114302;, - 3.781890;-2.484445; 2.115102;, - 3.549205;-2.510597; 2.068049;, - 3.781890;-2.484445; 2.115102;, - 3.540320;-2.484890; 2.114302;, - 3.773005;-2.458739; 2.161354;, - 3.790775;-2.510151; 2.068849;, - 3.549205;-2.510597; 2.068049;, - 3.781890;-2.484445; 2.115102;, - 3.781890;-2.484445; 2.115102;, - 3.773005;-2.458739; 2.161354;, - 3.946012;-2.456994; 2.164494;, - 3.946012;-2.456994; 2.164494;, - 3.954897;-2.482699; 2.118242;, - 3.781890;-2.484445; 2.115102;, - 3.954897;-2.482699; 2.118242;, - 3.946012;-2.456994; 2.164494;, - 4.119019;-2.455248; 2.167634;, - 3.790775;-2.510151; 2.068849;, - 3.781890;-2.484445; 2.115102;, - 3.954897;-2.482699; 2.118242;, - 3.959538;-2.510165; 2.068826;, - 3.790775;-2.510151; 2.068849;, - 3.954897;-2.482699; 2.118242;, - 3.954897;-2.482699; 2.118242;, - 4.123660;-2.482714; 2.118218;, - 3.959538;-2.510165; 2.068826;, - 4.123660;-2.482714; 2.118218;, - 3.954897;-2.482699; 2.118242;, - 4.119019;-2.455248; 2.167634;, - 4.128300;-2.510180; 2.068803;, - 3.959538;-2.510165; 2.068826;, - 4.123660;-2.482714; 2.118218;, - 3.549205;-2.510597; 2.068049;, - 3.790775;-2.510151; 2.068849;, - 3.818106;-2.572868; 1.857450;, - 3.818106;-2.572868; 1.857450;, - 3.576536;-2.573314; 1.856651;, - 3.549205;-2.510597; 2.068049;, - 3.576536;-2.573314; 1.856651;, - 3.818106;-2.572868; 1.857450;, - 3.845436;-2.635585; 1.646051;, - 3.307635;-2.511042; 2.067250;, - 3.549205;-2.510597; 2.068049;, - 3.576536;-2.573314; 1.856651;, - 3.237505;-2.573314; 1.856650;, - 3.307635;-2.511042; 2.067250;, - 3.576536;-2.573314; 1.856651;, - 3.576536;-2.573314; 1.856651;, - 3.506406;-2.635585; 1.646050;, - 3.237505;-2.573314; 1.856650;, - 3.506406;-2.635585; 1.646050;, - 3.576536;-2.573314; 1.856651;, - 3.845436;-2.635585; 1.646051;, - 3.167375;-2.635585; 1.646050;, - 3.237505;-2.573314; 1.856650;, - 3.506406;-2.635585; 1.646050;, - 4.272166;-2.633636; 1.513528;, - 4.280624;-2.634859; 1.381005;, - 4.068215;-2.637081; 1.376538;, - 4.068215;-2.637081; 1.376538;, - 4.059757;-2.635858; 1.509060;, - 4.272166;-2.633636; 1.513528;, - 4.059757;-2.635858; 1.509060;, - 4.068215;-2.637081; 1.376538;, - 3.855806;-2.639302; 1.372070;, - 4.263708;-2.632414; 1.646050;, - 4.272166;-2.633636; 1.513528;, - 4.059757;-2.635858; 1.509060;, - 4.054572;-2.634000; 1.646050;, - 4.263708;-2.632414; 1.646050;, - 4.059757;-2.635858; 1.509060;, - 4.059757;-2.635858; 1.509060;, - 3.850621;-2.637444; 1.509061;, - 4.054572;-2.634000; 1.646050;, - 3.850621;-2.637444; 1.509061;, - 4.059757;-2.635858; 1.509060;, - 3.855806;-2.639302; 1.372070;, - 3.845436;-2.635585; 1.646051;, - 4.054572;-2.634000; 1.646050;, - 3.850621;-2.637444; 1.509061;, - 2.335330;-2.620480; 1.646050;, - 2.198893;-2.604841; 1.646051;, - 2.278035;-2.546548; 1.855547;, - 2.278035;-2.546548; 1.855547;, - 2.414472;-2.562187; 1.855546;, - 2.335330;-2.620480; 1.646050;, - 2.414472;-2.562187; 1.855546;, - 2.278035;-2.546548; 1.855547;, - 2.357177;-2.488255; 2.065043;, - 2.471767;-2.636119; 1.646050;, - 2.335330;-2.620480; 1.646050;, - 2.414472;-2.562187; 1.855546;, - 2.531817;-2.574195; 1.855546;, - 2.471767;-2.636119; 1.646050;, - 2.414472;-2.562187; 1.855546;, - 2.414472;-2.562187; 1.855546;, - 2.474523;-2.500263; 2.065043;, - 2.531817;-2.574195; 1.855546;, - 2.474523;-2.500263; 2.065043;, - 2.414472;-2.562187; 1.855546;, - 2.357177;-2.488255; 2.065043;, - 2.591868;-2.512271; 2.065043;, - 2.531817;-2.574195; 1.855546;, - 2.474523;-2.500263; 2.065043;, - 2.198936;-2.606623; 1.510052;, - 2.198893;-2.604841; 1.646051;, - 2.335330;-2.620480; 1.646050;, - 2.335330;-2.620480; 1.646050;, - 2.335373;-2.622262; 1.510052;, - 2.198936;-2.606623; 1.510052;, - 2.335373;-2.622262; 1.510052;, - 2.335330;-2.620480; 1.646050;, - 2.471767;-2.636119; 1.646050;, - 2.198979;-2.608405; 1.374054;, - 2.198936;-2.606623; 1.510052;, - 2.335373;-2.622262; 1.510052;, - 2.335373;-2.624112; 1.372447;, - 2.198979;-2.608405; 1.374054;, - 2.335373;-2.622262; 1.510052;, - 2.335373;-2.622262; 1.510052;, - 2.471767;-2.637969; 1.508445;, - 2.335373;-2.624112; 1.372447;, - 2.471767;-2.637969; 1.508445;, - 2.335373;-2.622262; 1.510052;, - 2.471767;-2.636119; 1.646050;, - 2.471767;-2.639818; 1.370840;, - 2.335373;-2.624112; 1.372447;, - 2.471767;-2.637969; 1.508445;, - 3.818106;-2.572868; 1.857450;, - 3.790775;-2.510151; 2.068849;, - 3.959538;-2.510165; 2.068826;, - 3.959538;-2.510165; 2.068826;, - 3.986868;-2.572883; 1.857427;, - 3.818106;-2.572868; 1.857450;, - 3.986868;-2.572883; 1.857427;, - 3.959538;-2.510165; 2.068826;, - 4.128300;-2.510180; 2.068803;, - 3.845436;-2.635585; 1.646051;, - 3.818106;-2.572868; 1.857450;, - 3.986868;-2.572883; 1.857427;, - 4.054572;-2.634000; 1.646050;, - 3.845436;-2.635585; 1.646051;, - 3.986868;-2.572883; 1.857427;, - 3.986868;-2.572883; 1.857427;, - 4.196004;-2.571297; 1.857427;, - 4.054572;-2.634000; 1.646050;, - 4.196004;-2.571297; 1.857427;, - 3.986868;-2.572883; 1.857427;, - 4.128300;-2.510180; 2.068803;, - 4.263708;-2.632414; 1.646050;, - 4.054572;-2.634000; 1.646050;, - 4.196004;-2.571297; 1.857427;, - 3.850621;-2.637444; 1.509061;, - 3.855806;-2.639302; 1.372070;, - 3.511391;-2.639304; 1.372229;, - 3.511391;-2.639304; 1.372229;, - 3.506206;-2.637445; 1.509219;, - 3.850621;-2.637444; 1.509061;, - 3.506206;-2.637445; 1.509219;, - 3.511391;-2.639304; 1.372229;, - 3.166976;-2.639306; 1.372387;, - 3.845436;-2.635585; 1.646051;, - 3.850621;-2.637444; 1.509061;, - 3.506206;-2.637445; 1.509219;, - 3.506406;-2.635585; 1.646050;, - 3.845436;-2.635585; 1.646051;, - 3.506206;-2.637445; 1.509219;, - 3.506206;-2.637445; 1.509219;, - 3.167176;-2.637445; 1.509218;, - 3.506406;-2.635585; 1.646050;, - 3.167176;-2.637445; 1.509218;, - 3.506206;-2.637445; 1.509219;, - 3.166976;-2.639306; 1.372387;, - 3.167375;-2.635585; 1.646050;, - 3.506406;-2.635585; 1.646050;, - 3.167176;-2.637445; 1.509218;, - 5.240869;-2.443261; 2.059471;, - 5.235635;-2.416988; 2.109010;, - 5.420159;-2.411890; 2.094355;, - 5.420159;-2.411890; 2.094355;, - 5.425393;-2.438162; 2.044815;, - 5.240869;-2.443261; 2.059471;, - 5.425393;-2.438162; 2.044815;, - 5.420159;-2.411890; 2.094355;, - 5.604683;-2.406791; 2.079699;, - 5.246103;-2.469534; 2.009931;, - 5.240869;-2.443261; 2.059471;, - 5.425393;-2.438162; 2.044815;, - 5.480066;-2.469235; 1.978863;, - 5.246103;-2.469534; 2.009931;, - 5.425393;-2.438162; 2.044815;, - 5.425393;-2.438162; 2.044815;, - 5.659356;-2.437864; 2.013747;, - 5.480066;-2.469235; 1.978863;, - 5.659356;-2.437864; 2.013747;, - 5.425393;-2.438162; 2.044815;, - 5.604683;-2.406791; 2.079699;, - 5.714030;-2.468937; 1.947796;, - 5.480066;-2.469235; 1.978863;, - 5.659356;-2.437864; 2.013747;, - 5.240869;-2.443261; 2.059471;, - 5.246103;-2.469534; 2.009931;, - 4.687201;-2.489857; 2.039367;, - 4.687201;-2.489857; 2.039367;, - 4.681968;-2.463584; 2.088907;, - 5.240869;-2.443261; 2.059471;, - 4.681968;-2.463584; 2.088907;, - 4.687201;-2.489857; 2.039367;, - 4.128300;-2.510180; 2.068803;, - 5.235635;-2.416988; 2.109010;, - 5.240869;-2.443261; 2.059471;, - 4.681968;-2.463584; 2.088907;, - 4.677327;-2.436118; 2.138322;, - 5.235635;-2.416988; 2.109010;, - 4.681968;-2.463584; 2.088907;, - 4.681968;-2.463584; 2.088907;, - 4.123660;-2.482714; 2.118218;, - 4.677327;-2.436118; 2.138322;, - 4.123660;-2.482714; 2.118218;, - 4.681968;-2.463584; 2.088907;, - 4.128300;-2.510180; 2.068803;, - 4.119019;-2.455248; 2.167634;, - 4.677327;-2.436118; 2.138322;, - 4.123660;-2.482714; 2.118218;, - 0.425393;-2.603848; 1.552365;, - -1.348108;-2.602855; 1.458679;, - -1.348108;-2.539922; 1.767462;, - -1.348108;-2.539922; 1.767462;, - 0.425393;-2.540915; 1.861148;, - 0.425393;-2.603848; 1.552365;, - 0.425393;-2.540915; 1.861148;, - -1.348108;-2.539922; 1.767462;, - -1.348108;-2.476988; 2.076244;, - 2.198893;-2.604841; 1.646051;, - 0.425393;-2.603848; 1.552365;, - 0.425393;-2.540915; 1.861148;, - 2.278035;-2.546548; 1.855547;, - 2.198893;-2.604841; 1.646051;, - 0.425393;-2.540915; 1.861148;, - 0.425393;-2.540915; 1.861148;, - 0.504534;-2.482622; 2.070643;, - 2.278035;-2.546548; 1.855547;, - 0.504534;-2.482622; 2.070643;, - 0.425393;-2.540915; 1.861148;, - -1.348108;-2.476988; 2.076244;, - 2.357177;-2.488255; 2.065043;, - 2.278035;-2.546548; 1.855547;, - 0.504534;-2.482622; 2.070643;, - -4.038665;-2.597004; 1.704288;, - -4.005426;-2.555267; 1.987688;, - -3.679530;-2.597121; 1.695979;, - -3.679530;-2.597121; 1.695979;, - -3.712769;-2.638858; 1.412579;, - -4.038665;-2.597004; 1.704288;, - -3.712769;-2.638858; 1.412579;, - -3.679530;-2.597121; 1.695979;, - -3.353634;-2.638975; 1.404270;, - -4.071903;-2.638742; 1.420888;, - -4.038665;-2.597004; 1.704288;, - -3.712769;-2.638858; 1.412579;, - -3.679530;-2.597121; 1.695979;, - -4.005426;-2.555267; 1.987688;, - -3.709671;-2.547180; 2.002239;, - -3.709671;-2.547180; 2.002239;, - -3.383776;-2.589034; 1.710530;, - -3.679530;-2.597121; 1.695979;, - -3.383776;-2.589034; 1.710530;, - -3.709671;-2.547180; 2.002239;, - -3.413917;-2.539093; 2.016789;, - -3.353634;-2.638975; 1.404270;, - -3.679530;-2.597121; 1.695979;, - -3.383776;-2.589034; 1.710530;, - -5.244164;-2.512430; 0.747566;, - -5.693221;-2.447461; 0.788812;, - -5.616933;-2.459371; 1.015977;, - -5.616933;-2.459371; 1.015977;, - -5.167875;-2.524340; 0.974730;, - -5.244164;-2.512430; 0.747566;, - -5.167875;-2.524340; 0.974730;, - -5.616933;-2.459371; 1.015977;, - -5.540644;-2.471280; 1.243142;, - -4.795107;-2.577399; 0.706319;, - -5.244164;-2.512430; 0.747566;, - -5.167875;-2.524340; 0.974730;, - -4.677238;-2.599283; 0.938969;, - -4.795107;-2.577399; 0.706319;, - -5.167875;-2.524340; 0.974730;, - -5.167875;-2.524340; 0.974730;, - -5.050007;-2.546224; 1.207381;, - -4.677238;-2.599283; 0.938969;, - -5.050007;-2.546224; 1.207381;, - -5.167875;-2.524340; 0.974730;, - -5.540644;-2.471280; 1.243142;, - -4.559369;-2.621167; 1.171620;, - -4.677238;-2.599283; 0.938969;, - -5.050007;-2.546224; 1.207381;, - 5.796371;-1.678569; 2.244797;, - 5.871016;-1.678569; 2.237383;, - 5.837959;-1.886369; 2.216154;, - 5.837959;-1.886369; 2.216154;, - 5.763314;-1.886369; 2.223568;, - 5.796371;-1.678569; 2.244797;, - 5.763314;-1.886369; 2.223568;, - 5.837959;-1.886369; 2.216154;, - 5.804903;-2.094170; 2.194925;, - 5.721726;-1.678569; 2.252212;, - 5.796371;-1.678569; 2.244797;, - 5.763314;-1.886369; 2.223568;, - 5.555743;-1.888285; 2.239182;, - 5.721726;-1.678569; 2.252212;, - 5.763314;-1.886369; 2.223568;, - 5.763314;-1.886369; 2.223568;, - 5.597332;-2.096086; 2.210538;, - 5.555743;-1.888285; 2.239182;, - 5.597332;-2.096086; 2.210538;, - 5.763314;-1.886369; 2.223568;, - 5.804903;-2.094170; 2.194925;, - 5.389761;-2.098001; 2.226151;, - 5.555743;-1.888285; 2.239182;, - 5.597332;-2.096086; 2.210538;, - 5.555743;-1.888285; 2.239182;, - 5.389761;-2.098001; 2.226151;, - 5.454097;-1.600501; 2.226151;, - 5.454097;-1.600501; 2.226151;, - 5.620080;-1.390785; 2.239182;, - 5.555743;-1.888285; 2.239182;, - 5.620080;-1.390785; 2.239182;, - 5.454097;-1.600501; 2.226151;, - 5.518433;-1.103001; 2.226151;, - 5.721726;-1.678569; 2.252212;, - 5.555743;-1.888285; 2.239182;, - 5.620080;-1.390785; 2.239182;, - 5.749070;-1.262399; 2.252212;, - 5.721726;-1.678569; 2.252212;, - 5.620080;-1.390785; 2.239182;, - 5.620080;-1.390785; 2.239182;, - 5.647424;-0.974615; 2.239182;, - 5.749070;-1.262399; 2.252212;, - 5.647424;-0.974615; 2.239182;, - 5.620080;-1.390785; 2.239182;, - 5.518433;-1.103001; 2.226151;, - 5.776415;-0.846229; 2.252212;, - 5.749070;-1.262399; 2.252212;, - 5.647424;-0.974615; 2.239182;, - 5.969737; 0.024196; 2.237383;, - 5.953484;-0.411016; 2.237383;, - 6.016251; 0.024248; 2.216154;, - 6.016251; 0.024248; 2.216154;, - 5.999998;-0.410965; 2.216154;, - 5.953484;-0.411016; 2.237383;, - 6.016251; 0.024248; 2.216154;, - 5.999998;-0.410965; 2.216154;, - 6.062765; 0.024299; 2.194925;, - 5.937231;-0.846229; 2.237383;, - 5.953484;-0.411016; 2.237383;, - 5.999998;-0.410965; 2.216154;, - 5.973899;-0.974615; 2.216154;, - 5.937231;-0.846229; 2.237383;, - 5.999998;-0.410965; 2.216154;, - 5.999998;-0.410965; 2.216154;, - 6.036666;-0.539351; 2.194925;, - 5.973899;-0.974615; 2.216154;, - 6.036666;-0.539351; 2.194925;, - 5.999998;-0.410965; 2.216154;, - 6.062765; 0.024299; 2.194925;, - 6.010567;-1.103001; 2.194925;, - 5.973899;-0.974615; 2.216154;, - 6.036666;-0.539351; 2.194925;, - 5.556948; 0.024299; 2.226151;, - 5.681486; 0.024248; 2.239182;, - 5.809856; 0.024299; 2.210538;, - 5.934394; 0.024248; 2.223568;, - 5.809856; 0.024299; 2.210538;, - 5.681486; 0.024248; 2.239182;, - 5.809856; 0.024299; 2.210538;, - 5.934394; 0.024248; 2.223568;, - 6.062765; 0.024299; 2.194925;, - 5.681486; 0.024248; 2.239182;, - 5.806023; 0.024196; 2.252212;, - 5.934394; 0.024248; 2.223568;, - 5.806023; 0.024196; 2.252212;, - 5.887880; 0.024196; 2.244797;, - 5.934394; 0.024248; 2.223568;, - 6.016251; 0.024248; 2.216154;, - 5.934394; 0.024248; 2.223568;, - 5.887880; 0.024196; 2.244797;, - 5.934394; 0.024248; 2.223568;, - 6.016251; 0.024248; 2.216154;, - 6.062765; 0.024299; 2.194925;, - 5.887880; 0.024196; 2.244797;, - 5.969737; 0.024196; 2.237383;, - 6.016251; 0.024248; 2.216154;, - 5.647424;-0.974615; 2.239182;, - 5.518433;-1.103001; 2.226151;, - 5.537691;-0.539351; 2.226151;, - 5.537691;-0.539351; 2.226151;, - 5.666681;-0.410965; 2.239182;, - 5.647424;-0.974615; 2.239182;, - 5.666681;-0.410965; 2.239182;, - 5.537691;-0.539351; 2.226151;, - 5.556948; 0.024299; 2.226151;, - 5.776415;-0.846229; 2.252212;, - 5.647424;-0.974615; 2.239182;, - 5.666681;-0.410965; 2.239182;, - 5.791219;-0.411016; 2.252212;, - 5.776415;-0.846229; 2.252212;, - 5.666681;-0.410965; 2.239182;, - 5.666681;-0.410965; 2.239182;, - 5.681486; 0.024248; 2.239182;, - 5.791219;-0.411016; 2.252212;, - 5.681486; 0.024248; 2.239182;, - 5.666681;-0.410965; 2.239182;, - 5.556948; 0.024299; 2.226151;, - 5.791219;-0.411016; 2.252212;, - 5.806023; 0.024196; 2.252212;, - 5.681486; 0.024248; 2.239182;, - 5.904123;-1.262399; 2.237383;, - 5.937231;-0.846229; 2.237383;, - 5.973899;-0.974615; 2.216154;, - 5.973899;-0.974615; 2.216154;, - 5.940792;-1.390785; 2.216154;, - 5.904123;-1.262399; 2.237383;, - 5.940792;-1.390785; 2.216154;, - 5.973899;-0.974615; 2.216154;, - 6.010567;-1.103001; 2.194925;, - 5.871016;-1.678569; 2.237383;, - 5.904123;-1.262399; 2.237383;, - 5.940792;-1.390785; 2.216154;, - 5.837959;-1.886369; 2.216154;, - 5.871016;-1.678569; 2.237383;, - 5.940792;-1.390785; 2.216154;, - 5.940792;-1.390785; 2.216154;, - 5.907735;-1.598586; 2.194925;, - 5.837959;-1.886369; 2.216154;, - 5.907735;-1.598586; 2.194925;, - 5.940792;-1.390785; 2.216154;, - 6.010567;-1.103001; 2.194925;, - 5.804903;-2.094170; 2.194925;, - 5.837959;-1.886369; 2.216154;, - 5.907735;-1.598586; 2.194925;, - 6.129572;-1.137455; 2.649446;, - 6.164625;-0.761711; 2.674524;, - 6.050928;-0.803970; 2.455954;, - 6.050928;-0.803970; 2.455954;, - 6.015875;-1.179715; 2.430876;, - 6.129572;-1.137455; 2.649446;, - 6.015875;-1.179715; 2.430876;, - 6.050928;-0.803970; 2.455954;, - 5.937231;-0.846229; 2.237383;, - 6.094518;-1.513200; 2.624369;, - 6.129572;-1.137455; 2.649446;, - 6.015875;-1.179715; 2.430876;, - 5.982767;-1.595885; 2.430876;, - 6.094518;-1.513200; 2.624369;, - 6.015875;-1.179715; 2.430876;, - 6.015875;-1.179715; 2.430876;, - 5.904123;-1.262399; 2.237383;, - 5.982767;-1.595885; 2.430876;, - 5.904123;-1.262399; 2.237383;, - 6.015875;-1.179715; 2.430876;, - 5.937231;-0.846229; 2.237383;, - 5.871016;-1.678569; 2.237383;, - 5.982767;-1.595885; 2.430876;, - 5.904123;-1.262399; 2.237383;, - 6.017179;-0.368775; 2.689353;, - 6.003305;-0.761711; 2.689353;, - 5.904664;-0.368757; 2.470783;, - 5.904664;-0.368757; 2.470783;, - 5.918538; 0.024179; 2.470783;, - 6.017179;-0.368775; 2.689353;, - 5.918538; 0.024179; 2.470783;, - 5.904664;-0.368757; 2.470783;, - 5.806023; 0.024196; 2.252212;, - 6.031053; 0.024162; 2.689353;, - 6.017179;-0.368775; 2.689353;, - 5.918538; 0.024179; 2.470783;, - 5.904664;-0.368757; 2.470783;, - 6.003305;-0.761711; 2.689353;, - 5.889860;-0.803970; 2.470783;, - 5.889860;-0.803970; 2.470783;, - 5.791219;-0.411016; 2.252212;, - 5.904664;-0.368757; 2.470783;, - 5.791219;-0.411016; 2.252212;, - 5.889860;-0.803970; 2.470783;, - 5.776415;-0.846229; 2.252212;, - 5.806023; 0.024196; 2.252212;, - 5.904664;-0.368757; 2.470783;, - 5.791219;-0.411016; 2.252212;, - 5.806023; 0.024196; 2.252212;, - 5.918538; 0.024179; 2.470783;, - 5.887880; 0.024196; 2.244797;, - 6.000395; 0.024179; 2.463368;, - 5.887880; 0.024196; 2.244797;, - 5.918538; 0.024179; 2.470783;, - 5.887880; 0.024196; 2.244797;, - 6.000395; 0.024179; 2.463368;, - 5.969737; 0.024196; 2.237383;, - 6.031053; 0.024162; 2.689353;, - 5.918538; 0.024179; 2.470783;, - 6.000395; 0.024179; 2.463368;, - 6.112909; 0.024162; 2.681939;, - 6.031053; 0.024162; 2.689353;, - 6.000395; 0.024179; 2.463368;, - 6.057034; 0.024179; 2.455954;, - 6.000395; 0.024179; 2.463368;, - 6.112909; 0.024162; 2.681939;, - 6.000395; 0.024179; 2.463368;, - 6.057034; 0.024179; 2.455954;, - 5.969737; 0.024196; 2.237383;, - 6.171597; 0.024162; 2.674524;, - 6.112909; 0.024162; 2.681939;, - 6.057034; 0.024179; 2.455954;, - 6.057034; 0.024179; 2.455954;, - 5.969737; 0.024196; 2.237383;, - 6.067181;-0.368757; 2.455954;, - 6.067181;-0.368757; 2.455954;, - 6.179696;-0.368775; 2.674524;, - 6.057034; 0.024179; 2.455954;, - 6.179696;-0.368775; 2.674524;, - 6.067181;-0.368757; 2.455954;, - 6.164625;-0.761711; 2.674524;, - 6.171597; 0.024162; 2.674524;, - 6.057034; 0.024179; 2.455954;, - 6.179696;-0.368775; 2.674524;, - 6.067181;-0.368757; 2.455954;, - 5.969737; 0.024196; 2.237383;, - 5.953484;-0.411016; 2.237383;, - 5.953484;-0.411016; 2.237383;, - 6.050928;-0.803970; 2.455954;, - 6.067181;-0.368757; 2.455954;, - 6.050928;-0.803970; 2.455954;, - 5.953484;-0.411016; 2.237383;, - 5.937231;-0.846229; 2.237383;, - 6.164625;-0.761711; 2.674524;, - 6.067181;-0.368757; 2.455954;, - 6.050928;-0.803970; 2.455954;, - 5.831997;-1.595885; 2.445705;, - 5.721726;-1.678569; 2.252212;, - 5.749070;-1.262399; 2.252212;, - 5.749070;-1.262399; 2.252212;, - 5.859342;-1.179715; 2.445705;, - 5.831997;-1.595885; 2.445705;, - 5.859342;-1.179715; 2.445705;, - 5.749070;-1.262399; 2.252212;, - 5.776415;-0.846229; 2.252212;, - 5.942269;-1.513200; 2.639198;, - 5.831997;-1.595885; 2.445705;, - 5.859342;-1.179715; 2.445705;, - 5.972787;-1.137455; 2.664276;, - 5.942269;-1.513200; 2.639198;, - 5.859342;-1.179715; 2.445705;, - 5.859342;-1.179715; 2.445705;, - 5.889860;-0.803970; 2.470783;, - 5.972787;-1.137455; 2.664276;, - 5.889860;-0.803970; 2.470783;, - 5.859342;-1.179715; 2.445705;, - 5.776415;-0.846229; 2.252212;, - 6.003305;-0.761711; 2.689353;, - 5.972787;-1.137455; 2.664276;, - 5.889860;-0.803970; 2.470783;, - 6.018394;-1.513200; 2.631783;, - 6.094518;-1.513200; 2.624369;, - 5.982767;-1.595885; 2.430876;, - 5.982767;-1.595885; 2.430876;, - 5.906642;-1.595885; 2.438291;, - 6.018394;-1.513200; 2.631783;, - 5.906642;-1.595885; 2.438291;, - 5.982767;-1.595885; 2.430876;, - 5.871016;-1.678569; 2.237383;, - 5.942269;-1.513200; 2.639198;, - 6.018394;-1.513200; 2.631783;, - 5.906642;-1.595885; 2.438291;, - 5.831997;-1.595885; 2.445705;, - 5.942269;-1.513200; 2.639198;, - 5.906642;-1.595885; 2.438291;, - 5.906642;-1.595885; 2.438291;, - 5.796371;-1.678569; 2.244797;, - 5.831997;-1.595885; 2.445705;, - 5.796371;-1.678569; 2.244797;, - 5.906642;-1.595885; 2.438291;, - 5.871016;-1.678569; 2.237383;, - 5.721726;-1.678569; 2.252212;, - 5.831997;-1.595885; 2.445705;, - 5.796371;-1.678569; 2.244797;, - 6.129572;-1.137455; 2.649446;, - 6.094518;-1.513200; 2.624369;, - 6.048912;-1.137455; 2.656861;, - 6.048912;-1.137455; 2.656861;, - 6.083965;-0.761711; 2.681939;, - 6.129572;-1.137455; 2.649446;, - 6.083965;-0.761711; 2.681939;, - 6.048912;-1.137455; 2.656861;, - 6.003305;-0.761711; 2.689353;, - 6.164625;-0.761711; 2.674524;, - 6.129572;-1.137455; 2.649446;, - 6.083965;-0.761711; 2.681939;, - 6.048912;-1.137455; 2.656861;, - 6.094518;-1.513200; 2.624369;, - 6.018394;-1.513200; 2.631783;, - 6.018394;-1.513200; 2.631783;, - 5.972787;-1.137455; 2.664276;, - 6.048912;-1.137455; 2.656861;, - 5.972787;-1.137455; 2.664276;, - 6.018394;-1.513200; 2.631783;, - 5.942269;-1.513200; 2.639198;, - 6.003305;-0.761711; 2.689353;, - 6.048912;-1.137455; 2.656861;, - 5.972787;-1.137455; 2.664276;, - 6.112909; 0.024162; 2.681939;, - 6.171597; 0.024162; 2.674524;, - 6.179696;-0.368775; 2.674524;, - 6.179696;-0.368775; 2.674524;, - 6.097839;-0.368775; 2.681939;, - 6.112909; 0.024162; 2.681939;, - 6.097839;-0.368775; 2.681939;, - 6.179696;-0.368775; 2.674524;, - 6.164625;-0.761711; 2.674524;, - 6.031053; 0.024162; 2.689353;, - 6.112909; 0.024162; 2.681939;, - 6.097839;-0.368775; 2.681939;, - 6.017179;-0.368775; 2.689353;, - 6.031053; 0.024162; 2.689353;, - 6.097839;-0.368775; 2.681939;, - 6.097839;-0.368775; 2.681939;, - 6.083965;-0.761711; 2.681939;, - 6.017179;-0.368775; 2.689353;, - 6.083965;-0.761711; 2.681939;, - 6.097839;-0.368775; 2.681939;, - 6.164625;-0.761711; 2.674524;, - 6.003305;-0.761711; 2.689353;, - 6.017179;-0.368775; 2.689353;, - 6.083965;-0.761711; 2.681939;, - -5.837493;-2.495256; 0.400433;, - -5.739977;-2.484279; 0.085333;, - -5.770353;-2.438858; 0.081698;, - -5.770353;-2.438858; 0.081698;, - -5.867869;-2.449835; 0.396798;, - -5.837493;-2.495256; 0.400433;, - -5.867869;-2.449835; 0.396798;, - -5.770353;-2.438858; 0.081698;, - -5.800729;-2.393436; 0.078064;, - -5.935009;-2.506234; 0.715533;, - -5.837493;-2.495256; 0.400433;, - -5.867869;-2.449835; 0.396798;, - -5.966909;-2.437941; 0.732474;, - -5.935009;-2.506234; 0.715533;, - -5.867869;-2.449835; 0.396798;, - -5.867869;-2.449835; 0.396798;, - -5.899769;-2.381542; 0.413740;, - -5.966909;-2.437941; 0.732474;, - -5.899769;-2.381542; 0.413740;, - -5.867869;-2.449835; 0.396798;, - -5.800729;-2.393436; 0.078064;, - -5.998809;-2.369648; 0.749415;, - -5.966909;-2.437941; 0.732474;, - -5.899769;-2.381542; 0.413740;, - -5.966909;-2.437941; 0.732474;, - -5.998809;-2.369648; 0.749415;, - -5.968501;-2.374695; 0.788447;, - -5.968501;-2.374695; 0.788447;, - -5.936601;-2.442988; 0.771506;, - -5.966909;-2.437941; 0.732474;, - -5.936601;-2.442988; 0.771506;, - -5.968501;-2.374695; 0.788447;, - -5.938193;-2.379743; 0.827479;, - -5.935009;-2.506234; 0.715533;, - -5.966909;-2.437941; 0.732474;, - -5.936601;-2.442988; 0.771506;, - -5.905310;-2.531479; 0.752172;, - -5.935009;-2.506234; 0.715533;, - -5.936601;-2.442988; 0.771506;, - -5.936601;-2.442988; 0.771506;, - -5.906901;-2.468234; 0.808146;, - -5.905310;-2.531479; 0.752172;, - -5.906901;-2.468234; 0.808146;, - -5.936601;-2.442988; 0.771506;, - -5.938193;-2.379743; 0.827479;, - -5.875610;-2.556725; 0.788812;, - -5.905310;-2.531479; 0.752172;, - -5.906901;-2.468234; 0.808146;, - -5.906901;-2.468234; 0.808146;, - -5.938193;-2.379743; 0.827479;, - -5.815707;-2.413602; 0.808146;, - -5.815707;-2.413602; 0.808146;, - -5.784415;-2.502093; 0.788812;, - -5.906901;-2.468234; 0.808146;, - -5.784415;-2.502093; 0.788812;, - -5.815707;-2.413602; 0.808146;, - -5.693221;-2.447461; 0.788812;, - -5.875610;-2.556725; 0.788812;, - -5.906901;-2.468234; 0.808146;, - -5.784415;-2.502093; 0.788812;, - -5.782593;-2.551682; 0.764475;, - -5.875610;-2.556725; 0.788812;, - -5.784415;-2.502093; 0.788812;, - -5.784415;-2.502093; 0.788812;, - -5.691398;-2.497050; 0.764475;, - -5.782593;-2.551682; 0.764475;, - -5.691398;-2.497050; 0.764475;, - -5.784415;-2.502093; 0.788812;, - -5.693221;-2.447461; 0.788812;, - -5.689575;-2.546640; 0.740139;, - -5.782593;-2.551682; 0.764475;, - -5.691398;-2.497050; 0.764475;, - -5.518371;-2.557139; 0.088374;, - -5.359786;-2.593360; 0.090539;, - -5.392486;-2.566164; 0.087075;, - -5.392486;-2.566164; 0.087075;, - -5.551071;-2.529943; 0.084909;, - -5.518371;-2.557139; 0.088374;, - -5.551071;-2.529943; 0.084909;, - -5.392486;-2.566164; 0.087075;, - -5.425185;-2.538967; 0.083610;, - -5.676956;-2.520918; 0.086209;, - -5.518371;-2.557139; 0.088374;, - -5.551071;-2.529943; 0.084909;, - -5.706852;-2.461019; 0.082603;, - -5.676956;-2.520918; 0.086209;, - -5.551071;-2.529943; 0.084909;, - -5.551071;-2.529943; 0.084909;, - -5.580967;-2.470043; 0.081303;, - -5.706852;-2.461019; 0.082603;, - -5.580967;-2.470043; 0.081303;, - -5.551071;-2.529943; 0.084909;, - -5.425185;-2.538967; 0.083610;, - -5.736748;-2.401120; 0.078997;, - -5.706852;-2.461019; 0.082603;, - -5.580967;-2.470043; 0.081303;, - -5.708467;-2.502599; 0.085771;, - -5.676956;-2.520918; 0.086209;, - -5.706852;-2.461019; 0.082603;, - -5.706852;-2.461019; 0.082603;, - -5.738362;-2.442699; 0.082165;, - -5.708467;-2.502599; 0.085771;, - -5.738362;-2.442699; 0.082165;, - -5.706852;-2.461019; 0.082603;, - -5.736748;-2.401120; 0.078997;, - -5.739977;-2.484279; 0.085333;, - -5.708467;-2.502599; 0.085771;, - -5.738362;-2.442699; 0.082165;, - -5.770353;-2.438858; 0.081698;, - -5.739977;-2.484279; 0.085333;, - -5.738362;-2.442699; 0.082165;, - -5.738362;-2.442699; 0.082165;, - -5.768739;-2.397278; 0.078530;, - -5.770353;-2.438858; 0.081698;, - -5.768739;-2.397278; 0.078530;, - -5.738362;-2.442699; 0.082165;, - -5.736748;-2.401120; 0.078997;, - -5.800729;-2.393436; 0.078064;, - -5.770353;-2.438858; 0.081698;, - -5.768739;-2.397278; 0.078530;, - -5.708467;-2.502599; 0.085771;, - -5.739977;-2.484279; 0.085333;, - -5.837493;-2.495256; 0.400433;, - -5.837493;-2.495256; 0.400433;, - -5.805983;-2.513576; 0.400871;, - -5.708467;-2.502599; 0.085771;, - -5.805983;-2.513576; 0.400871;, - -5.837493;-2.495256; 0.400433;, - -5.935009;-2.506234; 0.715533;, - -5.676956;-2.520918; 0.086209;, - -5.708467;-2.502599; 0.085771;, - -5.805983;-2.513576; 0.400871;, - -5.776283;-2.538822; 0.437510;, - -5.676956;-2.520918; 0.086209;, - -5.805983;-2.513576; 0.400871;, - -5.805983;-2.513576; 0.400871;, - -5.905310;-2.531479; 0.752172;, - -5.776283;-2.538822; 0.437510;, - -5.905310;-2.531479; 0.752172;, - -5.805983;-2.513576; 0.400871;, - -5.935009;-2.506234; 0.715533;, - -5.875610;-2.556725; 0.788812;, - -5.776283;-2.538822; 0.437510;, - -5.905310;-2.531479; 0.752172;, - -5.776283;-2.538822; 0.437510;, - -5.875610;-2.556725; 0.788812;, - -5.782593;-2.551682; 0.764475;, - -5.782593;-2.551682; 0.764475;, - -5.683266;-2.533779; 0.413174;, - -5.776283;-2.538822; 0.437510;, - -5.683266;-2.533779; 0.413174;, - -5.782593;-2.551682; 0.764475;, - -5.689575;-2.546640; 0.740139;, - -5.676956;-2.520918; 0.086209;, - -5.776283;-2.538822; 0.437510;, - -5.683266;-2.533779; 0.413174;, - -5.518371;-2.557139; 0.088374;, - -5.676956;-2.520918; 0.086209;, - -5.683266;-2.533779; 0.413174;, - -5.683266;-2.533779; 0.413174;, - -5.524681;-2.570000; 0.415339;, - -5.518371;-2.557139; 0.088374;, - -5.524681;-2.570000; 0.415339;, - -5.683266;-2.533779; 0.413174;, - -5.689575;-2.546640; 0.740139;, - -5.359786;-2.593360; 0.090539;, - -5.518371;-2.557139; 0.088374;, - -5.524681;-2.570000; 0.415339;, - -5.524681;-2.570000; 0.415339;, - -5.689575;-2.546640; 0.740139;, - -5.242341;-2.562019; 0.723229;, - -5.242341;-2.562019; 0.723229;, - -5.077446;-2.585380; 0.398429;, - -5.524681;-2.570000; 0.415339;, - -5.077446;-2.585380; 0.398429;, - -5.242341;-2.562019; 0.723229;, - -4.795107;-2.577399; 0.706319;, - -5.359786;-2.593360; 0.090539;, - -5.524681;-2.570000; 0.415339;, - -5.077446;-2.585380; 0.398429;, - -5.095580;-2.566243; 0.099307;, - -5.359786;-2.593360; 0.090539;, - -5.077446;-2.585380; 0.398429;, - -5.077446;-2.585380; 0.398429;, - -4.813241;-2.558262; 0.407197;, - -5.095580;-2.566243; 0.099307;, - -4.813241;-2.558262; 0.407197;, - -5.077446;-2.585380; 0.398429;, - -4.795107;-2.577399; 0.706319;, - -4.831374;-2.539125; 0.108075;, - -5.095580;-2.566243; 0.099307;, - -4.813241;-2.558262; 0.407197;, - -5.963164;-0.539351; 0.825642;, - -5.939009;-1.103001; 0.823872;, - -6.048677;-1.103001; 0.824244;, - -6.048677;-1.103001; 0.824244;, - -6.072833;-0.539351; 0.826015;, - -5.963164;-0.539351; 0.825642;, - -6.072833;-0.539351; 0.826015;, - -6.048677;-1.103001; 0.824244;, - -6.158346;-1.103001; 0.824617;, - -5.987319; 0.024299; 0.827412;, - -5.963164;-0.539351; 0.825642;, - -6.072833;-0.539351; 0.826015;, - -6.100198; 0.024299; 0.827785;, - -5.987319; 0.024299; 0.827412;, - -6.072833;-0.539351; 0.826015;, - -6.072833;-0.539351; 0.826015;, - -6.185712;-0.539351; 0.826387;, - -6.100198; 0.024299; 0.827785;, - -6.185712;-0.539351; 0.826387;, - -6.072833;-0.539351; 0.826015;, - -6.158346;-1.103001; 0.824617;, - -6.213077; 0.024299; 0.828157;, - -6.100198; 0.024299; 0.827785;, - -6.185712;-0.539351; 0.826387;, - -5.509369;-2.145576; 1.569087;, - -5.635308;-2.191437; 1.311476;, - -5.673036;-1.943115; 1.311159;, - -5.673036;-1.943115; 1.311159;, - -5.547097;-1.897253; 1.568770;, - -5.509369;-2.145576; 1.569087;, - -5.547097;-1.897253; 1.568770;, - -5.673036;-1.943115; 1.311159;, - -5.710763;-1.694792; 1.310843;, - -5.383431;-2.099714; 1.826698;, - -5.509369;-2.145576; 1.569087;, - -5.547097;-1.897253; 1.568770;, - -5.416934;-1.897224; 1.826583;, - -5.383431;-2.099714; 1.826698;, - -5.547097;-1.897253; 1.568770;, - -5.547097;-1.897253; 1.568770;, - -5.580600;-1.694762; 1.568655;, - -5.416934;-1.897224; 1.826583;, - -5.580600;-1.694762; 1.568655;, - -5.547097;-1.897253; 1.568770;, - -5.710763;-1.694792; 1.310843;, - -5.450437;-1.694733; 1.826468;, - -5.416934;-1.897224; 1.826583;, - -5.580600;-1.694762; 1.568655;, - -5.714062;-2.188785; 1.069478;, - -5.792816;-2.186132; 0.827479;, - -5.751790;-1.940462; 1.069161;, - -5.751790;-1.940462; 1.069161;, - -5.673036;-1.943115; 1.311159;, - -5.714062;-2.188785; 1.069478;, - -5.673036;-1.943115; 1.311159;, - -5.751790;-1.940462; 1.069161;, - -5.710763;-1.694792; 1.310843;, - -5.635308;-2.191437; 1.311476;, - -5.714062;-2.188785; 1.069478;, - -5.673036;-1.943115; 1.311159;, - -5.751790;-1.940462; 1.069161;, - -5.792816;-2.186132; 0.827479;, - -5.832808;-1.940489; 0.829512;, - -5.832808;-1.940489; 0.829512;, - -5.791782;-1.694819; 1.071193;, - -5.751790;-1.940462; 1.069161;, - -5.791782;-1.694819; 1.071193;, - -5.832808;-1.940489; 0.829512;, - -5.872801;-1.694846; 0.831544;, - -5.710763;-1.694792; 1.310843;, - -5.751790;-1.940462; 1.069161;, - -5.791782;-1.694819; 1.071193;, - -5.932616;-1.938530; 0.829512;, - -5.992432;-2.182215; 0.827479;, - -6.075389;-1.642608; 0.826048;, - -6.075389;-1.642608; 0.826048;, - -6.015574;-1.398924; 0.828081;, - -5.932616;-1.938530; 0.829512;, - -6.015574;-1.398924; 0.828081;, - -6.075389;-1.642608; 0.826048;, - -6.158346;-1.103001; 0.824617;, - -5.872801;-1.694846; 0.831544;, - -5.932616;-1.938530; 0.829512;, - -6.015574;-1.398924; 0.828081;, - -5.905905;-1.398924; 0.827708;, - -5.872801;-1.694846; 0.831544;, - -6.015574;-1.398924; 0.828081;, - -6.015574;-1.398924; 0.828081;, - -6.048677;-1.103001; 0.824244;, - -5.905905;-1.398924; 0.827708;, - -6.048677;-1.103001; 0.824244;, - -6.015574;-1.398924; 0.828081;, - -6.158346;-1.103001; 0.824617;, - -5.939009;-1.103001; 0.823872;, - -5.905905;-1.398924; 0.827708;, - -6.048677;-1.103001; 0.824244;, - -4.315636;-2.629954; 1.296254;, - -4.559369;-2.621167; 1.171620;, - -4.818885;-2.553524; 1.538157;, - -4.818885;-2.553524; 1.538157;, - -4.575152;-2.562311; 1.662791;, - -4.315636;-2.629954; 1.296254;, - -4.575152;-2.562311; 1.662791;, - -4.818885;-2.553524; 1.538157;, - -5.078402;-2.485880; 1.904695;, - -4.071903;-2.638742; 1.420888;, - -4.315636;-2.629954; 1.296254;, - -4.575152;-2.562311; 1.662791;, - -4.818885;-2.553524; 1.538157;, - -4.559369;-2.621167; 1.171620;, - -4.913312;-2.559914; 1.449202;, - -4.913312;-2.559914; 1.449202;, - -5.172829;-2.492270; 1.815740;, - -4.818885;-2.553524; 1.538157;, - -5.172829;-2.492270; 1.815740;, - -4.913312;-2.559914; 1.449202;, - -5.267255;-2.498661; 1.726784;, - -5.078402;-2.485880; 1.904695;, - -4.818885;-2.553524; 1.538157;, - -5.172829;-2.492270; 1.815740;, - -4.911402; 2.604326; 1.449202;, - -4.559368; 2.668713; 1.171620;, - -4.816975; 2.618500; 1.538157;, - -4.816975; 2.618500; 1.538157;, - -5.169009; 2.554113; 1.815739;, - -4.911402; 2.604326; 1.449202;, - -5.169009; 2.554113; 1.815739;, - -4.816975; 2.618500; 1.538157;, - -5.074582; 2.568287; 1.904695;, - -5.263436; 2.539939; 1.726783;, - -4.911402; 2.604326; 1.449202;, - -5.169009; 2.554113; 1.815739;, - -4.816975; 2.618500; 1.538157;, - -4.559368; 2.668713; 1.171620;, - -4.315636; 2.677501; 1.296254;, - -4.315636; 2.677501; 1.296254;, - -4.573242; 2.627288; 1.662791;, - -4.816975; 2.618500; 1.538157;, - -4.573242; 2.627288; 1.662791;, - -4.315636; 2.677501; 1.296254;, - -4.071903; 2.686289; 1.420888;, - -5.074582; 2.568287; 1.904695;, - -4.816975; 2.618500; 1.538157;, - -4.573242; 2.627288; 1.662791;, - -0.659525; 0.020965; 3.415854;, - -0.581840; 0.024176; 3.419084;, - -0.522239;-0.619033; 3.387600;, - -0.535381;-1.248637; 3.354990;, - -0.608124;-1.235032; 3.353863;, - -0.639482;-1.019007; 3.370569;, - -0.535344; 1.297013; 3.354946;, - -0.462574; 1.311003; 3.356039;, - -0.522207; 0.667589; 3.387562;, - -0.659525; 0.020965; 3.415854;, - -0.737210; 0.017754; 3.412624;, - -0.704649; 0.429947; 3.400188;, - -0.737210; 0.017754; 3.412624;, - -0.659525; 0.020965; 3.415854;, - -0.522239;-0.619033; 3.387600;, - -0.462638;-1.262242; 3.356116;, - -0.462638;-1.262242; 3.356116;, - -0.704026;-0.392614; 3.399950;, - -0.737210; 0.017754; 3.412624;, - -0.462638;-1.262242; 3.356116;, - -0.670841;-0.802983; 3.387276;, - -0.704026;-0.392614; 3.399950;, - -0.462638;-1.262242; 3.356116;, - -0.535381;-1.248637; 3.354990;, - -0.639482;-1.019007; 3.370569;, - -0.670841;-0.802983; 3.387276;, - -0.608114; 1.283022; 3.353852;, - -0.535344; 1.297013; 3.354946;, - -0.522207; 0.667589; 3.387562;, - -0.581840; 0.024176; 3.419084;, - -0.581840; 0.024176; 3.419084;, - -0.640101; 1.062581; 3.370802;, - -0.608114; 1.283022; 3.353852;, - -0.581840; 0.024176; 3.419084;, - -0.672089; 0.842140; 3.387753;, - -0.640101; 1.062581; 3.370802;, - -0.581840; 0.024176; 3.419084;, - -0.659525; 0.020965; 3.415854;, - -0.704649; 0.429947; 3.400188;, - -0.672089; 0.842140; 3.387753;, - -3.753825; 1.954820; 0.360865;, - -3.214189; 1.954820; 0.573887;, - -3.192379; 1.954820; 0.216110;, - -3.753825; 1.954820; 0.360865;, - -4.122983; 1.954821; 0.807966;, - -3.789711; 1.954820; 0.939914;, - -3.333566; 2.393011; 0.526762;, - -3.285534; 2.389004; 0.240127;, - -3.303726; 2.389004; 0.538542;, - -3.725878; 2.393011;-0.090088;, - -3.723894; 2.389004;-0.122108;, - -3.445919; 2.389004;-0.012053;, - -3.466332; 2.393010; 0.012670;, - -3.471709; 2.394067; 0.019182;, - -3.726401; 2.394067;-0.081655;, - -3.466332; 2.393010; 0.012670;, - -3.726401; 2.394067;-0.081655;, - -3.725878; 2.393011;-0.090088;, - -3.445919; 2.389004;-0.012053;, - -3.333566; 2.393011; 0.526762;, - -3.341426; 2.394067; 0.523660;, - -3.316581; 2.393010; 0.248132;, - -3.285534; 2.389004; 0.240127;, - -3.384669; 1.954820;-0.086236;, - -3.717940; 1.954820;-0.218184;, - -3.753825; 1.954820; 0.360865;, - -3.192379; 1.954820; 0.216110;, - -4.315272; 1.954821; 0.505620;, - -4.122983; 1.954821; 0.807966;, - -3.753825; 1.954820; 0.360865;, - -4.293462; 1.954821; 0.147843;, - -4.065317; 1.954821;-0.128908;, - -4.293462; 1.954821; 0.147843;, - -3.753825; 1.954820; 0.360865;, - -3.717940; 1.954820;-0.218184;, - -3.753825; 1.954820; 0.360865;, - -3.789711; 1.954820; 0.939914;, - -3.442334; 1.954820; 0.850637;, - -3.214189; 1.954820; 0.573887;, - -3.799037; 1.850704; 1.090396;, - -3.796255; 1.862263; 1.045495;, - -4.005441; 1.862263; 0.998989;, - -4.021944; 1.850703; 1.040841;, - -4.005441; 1.862263; 0.998989;, - -4.190293; 1.862262; 0.889488;, - -4.218917; 1.850704; 0.924157;, - -4.021944; 1.850703; 1.040841;, - -4.190293; 1.862262; 0.889488;, - -4.005441; 1.862263; 0.998989;, - -3.988939; 1.873821; 0.957138;, - -4.161667; 1.873821; 0.854818;, - -3.796255; 1.862263; 1.045495;, - -3.793471; 1.873821; 1.000594;, - -3.988939; 1.873821; 0.957138;, - -4.005441; 1.862263; 0.998989;, - -4.218917; 1.850704; 0.924157;, - -4.190293; 1.862262; 0.889488;, - -4.332887; 1.862262; 0.729143;, - -4.370864; 1.850703; 0.753297;, - -4.332887; 1.862262; 0.729143;, - -4.417644; 1.862262; 0.532014;, - -4.461179; 1.850704; 0.543238;, - -4.370864; 1.850703; 0.753297;, - -4.417644; 1.862262; 0.532014;, - -4.332887; 1.862262; 0.729143;, - -4.294910; 1.873821; 0.704990;, - -4.374107; 1.873821; 0.520789;, - -4.190293; 1.862262; 0.889488;, - -4.161667; 1.873821; 0.854818;, - -4.294910; 1.873821; 0.704990;, - -4.332887; 1.862262; 0.729143;, - -3.442334; 1.954820; 0.850637;, - -3.789711; 1.954820; 0.939914;, - -3.793471; 1.873821; 1.000594;, - -3.409692; 1.873821; 0.901962;, - -4.438436; 1.862263; 0.318172;, - -4.483335; 1.850703; 0.315372;, - -4.461179; 1.850704; 0.543238;, - -4.417644; 1.862262; 0.532014;, - -4.438436; 1.862263; 0.318172;, - -4.391857; 1.862263; 0.109002;, - -4.433702; 1.850704; 0.092483;, - -4.483335; 1.850703; 0.315372;, - -4.391857; 1.862263; 0.109002;, - -4.438436; 1.862263; 0.318172;, - -4.393536; 1.873821; 0.320972;, - -4.350011; 1.873821; 0.125520;, - -4.393536; 1.873821; 0.320972;, - -4.438436; 1.862263; 0.318172;, - -4.417644; 1.862262; 0.532014;, - -4.374107; 1.873821; 0.520789;, - -4.350011; 1.873821; 0.125520;, - -4.293462; 1.954821; 0.147843;, - -4.065317; 1.954821;-0.128908;, - -4.097959; 1.873821;-0.180232;, - -3.337936; 1.839481; 1.014788;, - -3.560377; 1.839481; 1.110453;, - -3.549469; 1.828260; 1.152716;, - -3.314487; 1.828260; 1.051657;, - -3.549469; 1.828260; 1.152716;, - -3.560377; 1.839481; 1.110453;, - -3.801738; 1.839481; 1.133986;, - -3.804440; 1.828260; 1.177576;, - -3.560377; 1.839481; 1.110453;, - -3.571284; 1.850704; 1.068190;, - -3.799037; 1.850704; 1.090396;, - -3.801738; 1.839481; 1.133986;, - -3.265525; 1.853571; 1.128643;, - -3.526695; 1.853571; 1.240965;, - -3.503921; 1.878884; 1.329214;, - -3.216562; 1.878884; 1.205630;, - -3.503921; 1.878884; 1.329214;, - -3.526695; 1.853571; 1.240965;, - -3.810081; 1.853571; 1.268595;, - -3.815721; 1.878884; 1.359615;, - -3.526695; 1.853571; 1.240965;, - -3.549469; 1.828260; 1.152716;, - -3.804440; 1.828260; 1.177576;, - -3.810081; 1.853571; 1.268595;, - -3.314487; 1.828260; 1.051657;, - -3.549469; 1.828260; 1.152716;, - -3.526695; 1.853571; 1.240965;, - -3.265525; 1.853571; 1.128643;, - -4.037963; 1.839481; 1.081470;, - -4.053983; 1.828260; 1.122099;, - -3.804440; 1.828260; 1.177576;, - -3.801738; 1.839481; 1.133986;, - -4.274497; 1.828260; 0.991472;, - -4.053983; 1.828260; 1.122099;, - -4.037963; 1.839481; 1.081470;, - -4.246708; 1.839481; 0.957815;, - -4.246708; 1.839481; 0.957815;, - -4.037963; 1.839481; 1.081470;, - -4.021944; 1.850703; 1.040841;, - -4.218917; 1.850704; 0.924157;, - -3.815721; 1.878884; 1.359615;, - -3.810081; 1.853571; 1.268595;, - -4.087434; 1.853571; 1.206935;, - -4.120887; 1.878884; 1.291772;, - -4.087434; 1.853571; 1.206935;, - -4.332524; 1.853572; 1.061751;, - -4.390552; 1.878884; 1.132030;, - -4.120887; 1.878884; 1.291772;, - -4.332524; 1.853572; 1.061751;, - -4.087434; 1.853571; 1.206935;, - -4.053983; 1.828260; 1.122099;, - -4.274497; 1.828260; 0.991472;, - -3.810081; 1.853571; 1.268595;, - -3.804440; 1.828260; 1.177576;, - -4.053983; 1.828260; 1.122099;, - -4.087434; 1.853571; 1.206935;, - -4.021944; 1.850703; 1.040841;, - -4.037963; 1.839481; 1.081470;, - -3.801738; 1.839481; 1.133986;, - -3.799037; 1.850704; 1.090396;, - -4.407733; 1.839481; 0.776745;, - -4.444602; 1.828260; 0.800193;, - -4.274497; 1.828260; 0.991472;, - -4.246708; 1.839481; 0.957815;, - -4.545709; 1.828260; 0.565032;, - -4.444602; 1.828260; 0.800193;, - -4.407733; 1.839481; 0.776745;, - -4.503445; 1.839481; 0.554136;, - -4.503445; 1.839481; 0.554136;, - -4.407733; 1.839481; 0.776745;, - -4.370864; 1.850703; 0.753297;, - -4.461179; 1.850704; 0.543238;, - -4.390552; 1.878884; 1.132030;, - -4.332524; 1.853572; 1.061751;, - -4.521586; 1.853572; 0.849154;, - -4.598571; 1.878884; 0.898116;, - -4.521586; 1.853572; 0.849154;, - -4.633962; 1.853572; 0.587786;, - -4.722215; 1.878884; 0.610540;, - -4.598571; 1.878884; 0.898116;, - -4.633962; 1.853572; 0.587786;, - -4.521586; 1.853572; 0.849154;, - -4.444602; 1.828260; 0.800193;, - -4.545709; 1.828260; 0.565032;, - -4.332524; 1.853572; 1.061751;, - -4.274497; 1.828260; 0.991472;, - -4.444602; 1.828260; 0.800193;, - -4.521586; 1.853572; 0.849154;, - -4.370864; 1.850703; 0.753297;, - -4.407733; 1.839481; 0.776745;, - -4.246708; 1.839481; 0.957815;, - -4.218917; 1.850704; 0.924157;, - -3.204321; 1.919383; 1.224876;, - -3.498226; 1.919383; 1.351276;, - -3.492533; 1.959883; 1.373339;, - -3.192080; 1.959883; 1.244123;, - -3.492533; 1.959883; 1.373339;, - -3.498226; 1.919383; 1.351276;, - -3.817132; 1.919383; 1.382370;, - -3.818542; 1.959883; 1.405125;, - -3.498226; 1.919383; 1.351276;, - -3.503921; 1.878884; 1.329214;, - -3.815721; 1.878884; 1.359615;, - -3.817132; 1.919383; 1.382370;, - -3.190721; 2.109225; 1.246261;, - -3.491900; 2.109225; 1.375790;, - -3.491267; 2.255442; 1.378242;, - -3.189360; 2.255442; 1.248400;, - -3.491267; 2.255442; 1.378242;, - -3.491900; 2.109225; 1.375790;, - -3.818699; 2.109225; 1.407653;, - -3.818855; 2.255442; 1.410181;, - -3.491900; 2.109225; 1.375790;, - -3.492533; 1.959883; 1.373339;, - -3.818542; 1.959883; 1.405125;, - -3.818699; 2.109225; 1.407653;, - -3.192080; 1.959883; 1.244123;, - -3.492533; 1.959883; 1.373339;, - -3.491900; 2.109225; 1.375790;, - -3.190721; 2.109225; 1.246261;, - -4.129250; 1.919383; 1.312981;, - -4.137612; 1.959883; 1.334190;, - -3.818542; 1.959883; 1.405125;, - -3.817132; 1.919383; 1.382370;, - -4.419565; 1.959883; 1.167170;, - -4.137612; 1.959883; 1.334190;, - -4.129250; 1.919383; 1.312981;, - -4.405058; 1.919383; 1.149599;, - -4.405058; 1.919383; 1.149599;, - -4.129250; 1.919383; 1.312981;, - -4.120887; 1.878884; 1.291772;, - -4.390552; 1.878884; 1.132030;, - -3.818855; 2.255442; 1.410181;, - -3.818699; 2.109225; 1.407653;, - -4.138542; 2.109225; 1.336547;, - -4.139471; 2.255442; 1.338903;, - -4.138542; 2.109225; 1.336547;, - -4.421176; 2.109225; 1.169121;, - -4.422789; 2.255442; 1.171073;, - -4.139471; 2.255442; 1.338903;, - -4.421176; 2.109225; 1.169121;, - -4.138542; 2.109225; 1.336547;, - -4.137612; 1.959883; 1.334190;, - -4.419565; 1.959883; 1.167170;, - -3.818699; 2.109225; 1.407653;, - -3.818542; 1.959883; 1.405125;, - -4.137612; 1.959883; 1.334190;, - -4.138542; 2.109225; 1.336547;, - -4.120887; 1.878884; 1.291772;, - -4.129250; 1.919383; 1.312981;, - -3.817132; 1.919383; 1.382370;, - -3.815721; 1.878884; 1.359615;, - -4.617817; 1.919383; 0.910356;, - -4.637063; 1.959883; 0.922597;, - -4.419565; 1.959883; 1.167170;, - -4.405058; 1.919383; 1.149599;, - -4.766341; 1.959883; 0.621917;, - -4.637063; 1.959883; 0.922597;, - -4.617817; 1.919383; 0.910356;, - -4.744278; 1.919383; 0.616229;, - -4.744278; 1.919383; 0.616229;, - -4.617817; 1.919383; 0.910356;, - -4.598571; 1.878884; 0.898116;, - -4.722215; 1.878884; 0.610540;, - -4.422789; 2.255442; 1.171073;, - -4.421176; 2.109225; 1.169121;, - -4.639201; 2.109225; 0.923957;, - -4.641339; 2.255442; 0.925316;, - -4.639201; 2.109225; 0.923957;, - -4.768792; 2.109225; 0.622549;, - -4.771244; 2.255442; 0.623180;, - -4.641339; 2.255442; 0.925316;, - -4.768792; 2.109225; 0.622549;, - -4.639201; 2.109225; 0.923957;, - -4.637063; 1.959883; 0.922597;, - -4.766341; 1.959883; 0.621917;, - -4.421176; 2.109225; 1.169121;, - -4.419565; 1.959883; 1.167170;, - -4.637063; 1.959883; 0.922597;, - -4.639201; 2.109225; 0.923957;, - -4.598571; 1.878884; 0.898116;, - -4.617817; 1.919383; 0.910356;, - -4.405058; 1.919383; 1.149599;, - -4.390552; 1.878884; 1.132030;, - -3.216562; 1.878884; 1.205630;, - -3.503921; 1.878884; 1.329214;, - -3.498226; 1.919383; 1.351276;, - -3.204321; 1.919383; 1.224876;, - -4.526924; 1.839481; 0.312654;, - -4.570512; 1.828260; 0.309935;, - -4.545709; 1.828260; 0.565032;, - -4.503445; 1.839481; 0.554136;, - -4.526924; 1.839481; 0.312654;, - -4.474324; 1.839481; 0.076447;, - -4.514947; 1.828260; 0.060412;, - -4.570512; 1.828260; 0.309935;, - -4.433702; 1.850704; 0.092483;, - -4.474324; 1.839481; 0.076447;, - -4.526924; 1.839481; 0.312654;, - -4.483335; 1.850703; 0.315372;, - -4.661529; 1.853572; 0.304259;, - -4.752547; 1.878884; 0.298584;, - -4.722215; 1.878884; 0.610540;, - -4.633962; 1.853572; 0.587786;, - -4.661529; 1.853572; 0.304259;, - -4.599771; 1.853572; 0.026927;, - -4.684596; 1.878884;-0.006558;, - -4.752547; 1.878884; 0.298584;, - -4.599771; 1.853572; 0.026927;, - -4.661529; 1.853572; 0.304259;, - -4.570512; 1.828260; 0.309935;, - -4.514947; 1.828260; 0.060412;, - -4.570512; 1.828260; 0.309935;, - -4.661529; 1.853572; 0.304259;, - -4.633962; 1.853572; 0.587786;, - -4.545709; 1.828260; 0.565032;, - -4.474324; 1.839481; 0.076447;, - -4.350672; 1.839481;-0.132165;, - -4.384323; 1.828260;-0.159964;, - -4.514947; 1.828260; 0.060412;, - -4.384323; 1.828260;-0.159964;, - -4.350672; 1.839481;-0.132165;, - -4.169715; 1.839481;-0.293058;, - -4.193164; 1.828260;-0.329927;, - -4.350672; 1.839481;-0.132165;, - -4.317021; 1.850704;-0.104368;, - -4.146266; 1.850704;-0.256188;, - -4.169715; 1.839481;-0.293058;, - -4.599771; 1.853572; 0.026927;, - -4.454590; 1.853572;-0.218008;, - -4.524857; 1.878884;-0.276052;, - -4.684596; 1.878884;-0.006558;, - -4.524857; 1.878884;-0.276052;, - -4.454590; 1.853572;-0.218008;, - -4.242127; 1.853571;-0.406914;, - -4.291089; 1.878884;-0.483900;, - -4.454590; 1.853572;-0.218008;, - -4.384323; 1.828260;-0.159964;, - -4.193164; 1.828260;-0.329927;, - -4.242127; 1.853571;-0.406914;, - -4.454590; 1.853572;-0.218008;, - -4.599771; 1.853572; 0.026927;, - -4.514947; 1.828260; 0.060412;, - -4.384323; 1.828260;-0.159964;, - -4.350672; 1.839481;-0.132165;, - -4.474324; 1.839481; 0.076447;, - -4.433702; 1.850704; 0.092483;, - -4.317021; 1.850704;-0.104368;, - -4.775301; 1.919383; 0.297165;, - -4.798054; 1.959883; 0.295746;, - -4.766341; 1.959883; 0.621917;, - -4.744278; 1.919383; 0.616229;, - -4.727009; 1.959883;-0.023300;, - -4.798054; 1.959883; 0.295746;, - -4.775301; 1.919383; 0.297165;, - -4.705802; 1.919383;-0.014928;, - -4.705802; 1.919383;-0.014928;, - -4.775301; 1.919383; 0.297165;, - -4.752547; 1.878884; 0.298584;, - -4.684596; 1.878884;-0.006558;, - -4.771244; 2.255442; 0.623180;, - -4.768792; 2.109225; 0.622549;, - -4.800582; 2.109225; 0.295588;, - -4.803111; 2.255442; 0.295431;, - -4.803111; 2.255442; 0.295431;, - -4.800582; 2.109225; 0.295588;, - -4.729364; 2.109225;-0.024229;, - -4.731720; 2.255442;-0.025160;, - -4.729364; 2.109225;-0.024229;, - -4.800582; 2.109225; 0.295588;, - -4.798054; 1.959883; 0.295746;, - -4.727009; 1.959883;-0.023300;, - -4.768792; 2.109225; 0.622549;, - -4.766341; 1.959883; 0.621917;, - -4.798054; 1.959883; 0.295746;, - -4.800582; 2.109225; 0.295588;, - -4.705802; 1.919383;-0.014928;, - -4.542423; 1.919383;-0.290564;, - -4.559991; 1.959883;-0.305075;, - -4.727009; 1.959883;-0.023300;, - -4.559991; 1.959883;-0.305075;, - -4.542423; 1.919383;-0.290564;, - -4.303330; 1.919383;-0.503147;, - -4.315570; 1.959883;-0.522393;, - -4.542423; 1.919383;-0.290564;, - -4.524857; 1.878884;-0.276052;, - -4.291089; 1.878884;-0.483900;, - -4.303330; 1.919383;-0.503147;, - -4.729364; 2.109225;-0.024229;, - -4.561942; 2.109225;-0.306687;, - -4.563894; 2.255442;-0.308300;, - -4.731720; 2.255442;-0.025160;, - -4.563894; 2.255442;-0.308300;, - -4.561942; 2.109225;-0.306687;, - -4.316930; 2.109225;-0.524531;, - -4.318291; 2.255442;-0.526670;, - -4.561942; 2.109225;-0.306687;, - -4.559991; 1.959883;-0.305075;, - -4.315570; 1.959883;-0.522393;, - -4.316930; 2.109225;-0.524531;, - -4.561942; 2.109225;-0.306687;, - -4.729364; 2.109225;-0.024229;, - -4.727009; 1.959883;-0.023300;, - -4.559991; 1.959883;-0.305075;, - -4.542423; 1.919383;-0.290564;, - -4.705802; 1.919383;-0.014928;, - -4.684596; 1.878884;-0.006558;, - -4.524857; 1.878884;-0.276052;, - -4.752547; 1.878884; 0.298584;, - -4.775301; 1.919383; 0.297165;, - -4.744278; 1.919383; 0.616229;, - -4.722215; 1.878884; 0.610540;, - -4.483335; 1.850703; 0.315372;, - -4.526924; 1.839481; 0.312654;, - -4.503445; 1.839481; 0.554136;, - -4.461179; 1.850704; 0.543238;, - -3.361385; 1.850704; 0.977918;, - -3.571284; 1.850704; 1.068190;, - -3.560377; 1.839481; 1.110453;, - -3.337936; 1.839481; 1.014788;, - -3.708614; 1.850704;-0.368666;, - -3.711397; 1.862262;-0.323765;, - -3.502210; 1.862262;-0.277260;, - -3.485708; 1.850704;-0.319111;, - -3.502210; 1.862262;-0.277260;, - -3.317359; 1.862262;-0.167758;, - -3.288733; 1.850704;-0.202428;, - -3.485708; 1.850704;-0.319111;, - -3.317359; 1.862262;-0.167758;, - -3.502210; 1.862262;-0.277260;, - -3.518712; 1.873821;-0.235409;, - -3.345984; 1.873821;-0.133088;, - -3.711397; 1.862262;-0.323765;, - -3.714180; 1.873821;-0.278864;, - -3.518712; 1.873821;-0.235409;, - -3.502210; 1.862262;-0.277260;, - -3.288733; 1.850704;-0.202428;, - -3.317359; 1.862262;-0.167758;, - -3.174764; 1.862262;-0.007414;, - -3.136787; 1.850703;-0.031567;, - -3.174764; 1.862262;-0.007414;, - -3.090008; 1.862262; 0.189716;, - -3.046471; 1.850703; 0.178491;, - -3.136787; 1.850703;-0.031567;, - -3.090008; 1.862262; 0.189716;, - -3.174764; 1.862262;-0.007414;, - -3.212741; 1.873821; 0.016740;, - -3.133544; 1.873821; 0.200941;, - -3.317359; 1.862262;-0.167758;, - -3.345984; 1.873821;-0.133088;, - -3.212741; 1.873821; 0.016740;, - -3.174764; 1.862262;-0.007414;, - -4.065317; 1.954821;-0.128908;, - -3.717940; 1.954820;-0.218184;, - -3.714180; 1.873821;-0.278864;, - -4.097959; 1.873821;-0.180232;, - -3.069216; 1.862262; 0.403558;, - -3.024316; 1.850703; 0.406357;, - -3.046471; 1.850703; 0.178491;, - -3.090008; 1.862262; 0.189716;, - -3.069216; 1.862262; 0.403558;, - -3.115795; 1.862262; 0.612729;, - -3.073949; 1.850703; 0.629246;, - -3.024316; 1.850703; 0.406357;, - -3.115795; 1.862262; 0.612729;, - -3.069216; 1.862262; 0.403558;, - -3.114115; 1.873821; 0.400758;, - -3.157640; 1.873821; 0.596210;, - -3.114115; 1.873821; 0.400758;, - -3.069216; 1.862262; 0.403558;, - -3.090008; 1.862262; 0.189716;, - -3.133544; 1.873821; 0.200941;, - -3.157640; 1.873821; 0.596210;, - -3.214189; 1.954820; 0.573887;, - -3.442334; 1.954820; 0.850637;, - -3.409692; 1.873821; 0.901962;, - -4.169715; 1.839481;-0.293058;, - -3.947274; 1.839481;-0.388723;, - -3.958182; 1.828260;-0.430987;, - -4.193164; 1.828260;-0.329927;, - -3.705913; 1.839481;-0.412256;, - -3.703211; 1.828260;-0.455846;, - -3.958182; 1.828260;-0.430987;, - -3.947274; 1.839481;-0.388723;, - -3.708614; 1.850704;-0.368666;, - -3.705913; 1.839481;-0.412256;, - -3.947274; 1.839481;-0.388723;, - -3.936368; 1.850704;-0.346461;, - -4.242127; 1.853571;-0.406914;, - -3.980956; 1.853571;-0.519235;, - -4.003730; 1.878884;-0.607485;, - -4.291089; 1.878884;-0.483900;, - -4.003730; 1.878884;-0.607485;, - -3.980956; 1.853571;-0.519235;, - -3.697570; 1.853571;-0.546866;, - -3.691930; 1.878884;-0.637885;, - -3.980956; 1.853571;-0.519235;, - -3.958182; 1.828260;-0.430987;, - -3.703211; 1.828260;-0.455846;, - -3.697570; 1.853571;-0.546866;, - -4.193164; 1.828260;-0.329927;, - -3.958182; 1.828260;-0.430987;, - -3.980956; 1.853571;-0.519235;, - -4.242127; 1.853571;-0.406914;, - -3.469688; 1.839481;-0.359740;, - -3.453668; 1.828260;-0.400369;, - -3.703211; 1.828260;-0.455846;, - -3.705913; 1.839481;-0.412256;, - -3.469688; 1.839481;-0.359740;, - -3.260944; 1.839481;-0.236085;, - -3.233154; 1.828260;-0.269742;, - -3.453668; 1.828260;-0.400369;, - -3.260944; 1.839481;-0.236085;, - -3.469688; 1.839481;-0.359740;, - -3.485708; 1.850704;-0.319111;, - -3.288733; 1.850704;-0.202428;, - -3.420217; 1.853571;-0.485205;, - -3.386764; 1.878884;-0.570043;, - -3.691930; 1.878884;-0.637885;, - -3.697570; 1.853571;-0.546866;, - -3.420217; 1.853571;-0.485205;, - -3.175127; 1.853571;-0.340021;, - -3.117100; 1.878884;-0.410300;, - -3.386764; 1.878884;-0.570043;, - -3.175127; 1.853571;-0.340021;, - -3.420217; 1.853571;-0.485205;, - -3.453668; 1.828260;-0.400369;, - -3.233154; 1.828260;-0.269742;, - -3.453668; 1.828260;-0.400369;, - -3.420217; 1.853571;-0.485205;, - -3.697570; 1.853571;-0.546866;, - -3.703211; 1.828260;-0.455846;, - -3.469688; 1.839481;-0.359740;, - -3.705913; 1.839481;-0.412256;, - -3.708614; 1.850704;-0.368666;, - -3.485708; 1.850704;-0.319111;, - -3.099918; 1.839481;-0.055015;, - -3.063049; 1.828260;-0.078463;, - -3.233154; 1.828260;-0.269742;, - -3.260944; 1.839481;-0.236085;, - -3.099918; 1.839481;-0.055015;, - -3.004207; 1.839481; 0.167595;, - -2.961942; 1.828259; 0.156697;, - -3.063049; 1.828260;-0.078463;, - -3.004207; 1.839481; 0.167595;, - -3.099918; 1.839481;-0.055015;, - -3.136787; 1.850703;-0.031567;, - -3.046471; 1.850703; 0.178491;, - -2.986064; 1.853571;-0.127425;, - -2.909081; 1.878884;-0.176386;, - -3.117100; 1.878884;-0.410300;, - -3.175127; 1.853571;-0.340021;, - -2.986064; 1.853571;-0.127425;, - -2.873689; 1.853571; 0.133944;, - -2.785437; 1.878884; 0.111190;, - -2.909081; 1.878884;-0.176386;, - -2.873689; 1.853571; 0.133944;, - -2.986064; 1.853571;-0.127425;, - -3.063049; 1.828260;-0.078463;, - -2.961942; 1.828259; 0.156697;, - -3.063049; 1.828260;-0.078463;, - -2.986064; 1.853571;-0.127425;, - -3.175127; 1.853571;-0.340021;, - -3.233154; 1.828260;-0.269742;, - -3.136787; 1.850703;-0.031567;, - -3.099918; 1.839481;-0.055015;, - -3.260944; 1.839481;-0.236085;, - -3.288733; 1.850704;-0.202428;, - -4.303330; 1.919383;-0.503147;, - -4.009425; 1.919383;-0.629547;, - -4.015119; 1.959883;-0.651609;, - -4.315570; 1.959883;-0.522393;, - -4.015119; 1.959883;-0.651609;, - -4.009425; 1.919383;-0.629547;, - -3.690519; 1.919383;-0.660640;, - -3.689109; 1.959883;-0.683395;, - -4.009425; 1.919383;-0.629547;, - -4.003730; 1.878884;-0.607485;, - -3.691930; 1.878884;-0.637885;, - -3.690519; 1.919383;-0.660640;, - -4.316930; 2.109225;-0.524531;, - -4.015751; 2.109225;-0.654060;, - -4.016384; 2.255442;-0.656512;, - -4.318291; 2.255442;-0.526670;, - -4.016384; 2.255442;-0.656512;, - -4.015751; 2.109225;-0.654060;, - -3.688952; 2.109225;-0.685923;, - -3.688796; 2.255442;-0.688452;, - -4.015751; 2.109225;-0.654060;, - -4.015119; 1.959883;-0.651609;, - -3.689109; 1.959883;-0.683395;, - -3.688952; 2.109225;-0.685923;, - -4.315570; 1.959883;-0.522393;, - -4.015119; 1.959883;-0.651609;, - -4.015751; 2.109225;-0.654060;, - -4.316930; 2.109225;-0.524531;, - -3.378402; 1.919383;-0.591251;, - -3.370039; 1.959883;-0.612460;, - -3.689109; 1.959883;-0.683395;, - -3.690519; 1.919383;-0.660640;, - -3.088087; 1.959883;-0.445439;, - -3.370039; 1.959883;-0.612460;, - -3.378402; 1.919383;-0.591251;, - -3.102593; 1.919383;-0.427869;, - -3.102593; 1.919383;-0.427869;, - -3.378402; 1.919383;-0.591251;, - -3.386764; 1.878884;-0.570043;, - -3.117100; 1.878884;-0.410300;, - -3.688952; 2.109225;-0.685923;, - -3.369109; 2.109225;-0.614817;, - -3.368180; 2.255442;-0.617173;, - -3.688796; 2.255442;-0.688452;, - -3.369109; 2.109225;-0.614817;, - -3.086475; 2.109225;-0.447391;, - -3.084863; 2.255442;-0.449344;, - -3.368180; 2.255442;-0.617173;, - -3.086475; 2.109225;-0.447391;, - -3.369109; 2.109225;-0.614817;, - -3.370039; 1.959883;-0.612460;, - -3.088087; 1.959883;-0.445439;, - -3.688952; 2.109225;-0.685923;, - -3.689109; 1.959883;-0.683395;, - -3.370039; 1.959883;-0.612460;, - -3.369109; 2.109225;-0.614817;, - -3.386764; 1.878884;-0.570043;, - -3.378402; 1.919383;-0.591251;, - -3.690519; 1.919383;-0.660640;, - -3.691930; 1.878884;-0.637885;, - -2.889834; 1.919383;-0.188627;, - -2.870588; 1.959883;-0.200867;, - -3.088087; 1.959883;-0.445439;, - -3.102593; 1.919383;-0.427869;, - -2.741311; 1.959883; 0.099814;, - -2.870588; 1.959883;-0.200867;, - -2.889834; 1.919383;-0.188627;, - -2.763374; 1.919383; 0.105502;, - -2.763374; 1.919383; 0.105502;, - -2.889834; 1.919383;-0.188627;, - -2.909081; 1.878884;-0.176386;, - -2.785437; 1.878884; 0.111190;, - -3.084863; 2.255442;-0.449344;, - -3.086475; 2.109225;-0.447391;, - -2.868450; 2.109225;-0.202227;, - -2.866312; 2.255442;-0.203587;, - -2.868450; 2.109225;-0.202227;, - -2.738859; 2.109225; 0.099181;, - -2.736408; 2.255442; 0.098549;, - -2.866312; 2.255442;-0.203587;, - -2.738859; 2.109225; 0.099181;, - -2.868450; 2.109225;-0.202227;, - -2.870588; 1.959883;-0.200867;, - -2.741311; 1.959883; 0.099814;, - -3.086475; 2.109225;-0.447391;, - -3.088087; 1.959883;-0.445439;, - -2.870588; 1.959883;-0.200867;, - -2.868450; 2.109225;-0.202227;, - -2.909081; 1.878884;-0.176386;, - -2.889834; 1.919383;-0.188627;, - -3.102593; 1.919383;-0.427869;, - -3.117100; 1.878884;-0.410300;, - -4.291089; 1.878884;-0.483900;, - -4.003730; 1.878884;-0.607485;, - -4.009425; 1.919383;-0.629547;, - -4.303330; 1.919383;-0.503147;, - -2.980727; 1.839481; 0.409076;, - -2.937139; 1.828259; 0.411794;, - -2.961942; 1.828259; 0.156697;, - -3.004207; 1.839481; 0.167595;, - -2.980727; 1.839481; 0.409076;, - -3.033327; 1.839481; 0.645282;, - -2.992704; 1.828259; 0.661318;, - -2.937139; 1.828259; 0.411794;, - -3.073949; 1.850703; 0.629246;, - -3.033327; 1.839481; 0.645282;, - -2.980727; 1.839481; 0.409076;, - -3.024316; 1.850703; 0.406357;, - -2.846122; 1.853571; 0.417470;, - -2.755104; 1.878884; 0.423146;, - -2.785437; 1.878884; 0.111190;, - -2.873689; 1.853571; 0.133944;, - -2.846122; 1.853571; 0.417470;, - -2.907879; 1.853571; 0.694803;, - -2.823055; 1.878884; 0.728287;, - -2.755104; 1.878884; 0.423146;, - -2.907879; 1.853571; 0.694803;, - -2.846122; 1.853571; 0.417470;, - -2.937139; 1.828259; 0.411794;, - -2.992704; 1.828259; 0.661318;, - -2.937139; 1.828259; 0.411794;, - -2.846122; 1.853571; 0.417470;, - -2.873689; 1.853571; 0.133944;, - -2.961942; 1.828259; 0.156697;, - -3.033327; 1.839481; 0.645282;, - -3.156979; 1.839481; 0.853895;, - -3.123328; 1.828260; 0.881694;, - -2.992704; 1.828259; 0.661318;, - -3.123328; 1.828260; 0.881694;, - -3.156979; 1.839481; 0.853895;, - -3.337936; 1.839481; 1.014788;, - -3.314487; 1.828260; 1.051657;, - -3.156979; 1.839481; 0.853895;, - -3.190631; 1.850703; 0.826097;, - -3.361385; 1.850704; 0.977918;, - -3.337936; 1.839481; 1.014788;, - -2.907879; 1.853571; 0.694803;, - -3.053061; 1.853571; 0.939738;, - -2.982794; 1.878884; 0.997782;, - -2.823055; 1.878884; 0.728287;, - -2.982794; 1.878884; 0.997782;, - -3.053061; 1.853571; 0.939738;, - -3.265525; 1.853571; 1.128643;, - -3.216562; 1.878884; 1.205630;, - -3.053061; 1.853571; 0.939738;, - -3.123328; 1.828260; 0.881694;, - -3.314487; 1.828260; 1.051657;, - -3.265525; 1.853571; 1.128643;, - -3.053061; 1.853571; 0.939738;, - -2.907879; 1.853571; 0.694803;, - -2.992704; 1.828259; 0.661318;, - -3.123328; 1.828260; 0.881694;, - -3.156979; 1.839481; 0.853895;, - -3.033327; 1.839481; 0.645282;, - -3.073949; 1.850703; 0.629246;, - -3.190631; 1.850703; 0.826097;, - -2.732351; 1.919383; 0.424565;, - -2.709597; 1.959883; 0.425984;, - -2.741311; 1.959883; 0.099814;, - -2.763374; 1.919383; 0.105502;, - -2.732351; 1.919383; 0.424565;, - -2.801849; 1.919383; 0.736658;, - -2.780642; 1.959883; 0.745029;, - -2.709597; 1.959883; 0.425984;, - -2.801849; 1.919383; 0.736658;, - -2.732351; 1.919383; 0.424565;, - -2.755104; 1.878884; 0.423146;, - -2.823055; 1.878884; 0.728287;, - -2.707068; 2.109225; 0.426141;, - -2.704540; 2.255442; 0.426299;, - -2.736408; 2.255442; 0.098549;, - -2.738859; 2.109225; 0.099181;, - -2.707068; 2.109225; 0.426141;, - -2.778286; 2.109225; 0.745959;, - -2.775931; 2.255442; 0.746889;, - -2.704540; 2.255442; 0.426299;, - -2.778286; 2.109225; 0.745959;, - -2.707068; 2.109225; 0.426141;, - -2.709597; 1.959883; 0.425984;, - -2.780642; 1.959883; 0.745029;, - -2.709597; 1.959883; 0.425984;, - -2.707068; 2.109225; 0.426141;, - -2.738859; 2.109225; 0.099181;, - -2.741311; 1.959883; 0.099814;, - -2.801849; 1.919383; 0.736658;, - -2.965228; 1.919383; 1.012293;, - -2.947661; 1.959883; 1.026805;, - -2.780642; 1.959883; 0.745029;, - -2.947661; 1.959883; 1.026805;, - -2.965228; 1.919383; 1.012293;, - -3.204321; 1.919383; 1.224876;, - -3.192080; 1.959883; 1.244123;, - -2.965228; 1.919383; 1.012293;, - -2.982794; 1.878884; 0.997782;, - -3.216562; 1.878884; 1.205630;, - -3.204321; 1.919383; 1.224876;, - -2.778286; 2.109225; 0.745959;, - -2.945709; 2.109225; 1.028417;, - -2.943757; 2.255442; 1.030030;, - -2.775931; 2.255442; 0.746889;, - -2.943757; 2.255442; 1.030030;, - -2.945709; 2.109225; 1.028417;, - -3.190721; 2.109225; 1.246261;, - -3.189360; 2.255442; 1.248400;, - -2.945709; 2.109225; 1.028417;, - -2.947661; 1.959883; 1.026805;, - -3.192080; 1.959883; 1.244123;, - -3.190721; 2.109225; 1.246261;, - -2.945709; 2.109225; 1.028417;, - -2.778286; 2.109225; 0.745959;, - -2.780642; 1.959883; 0.745029;, - -2.947661; 1.959883; 1.026805;, - -2.965228; 1.919383; 1.012293;, - -2.801849; 1.919383; 0.736658;, - -2.823055; 1.878884; 0.728287;, - -2.982794; 1.878884; 0.997782;, - -2.755104; 1.878884; 0.423146;, - -2.732351; 1.919383; 0.424565;, - -2.763374; 1.919383; 0.105502;, - -2.785437; 1.878884; 0.111190;, - -3.024316; 1.850703; 0.406357;, - -2.980727; 1.839481; 0.409076;, - -3.004207; 1.839481; 0.167595;, - -3.046471; 1.850703; 0.178491;, - -3.947274; 1.839481;-0.388723;, - -4.169715; 1.839481;-0.293058;, - -4.146266; 1.850704;-0.256188;, - -3.936368; 1.850704;-0.346461;, - -3.699388; 2.310536; 0.446460;, - -3.675702; 2.310536; 0.425400;, - -3.607387; 2.308005; 0.481832;, - -3.651785; 2.308005; 0.521308;, - -3.659516; 2.310536; 0.398093;, - -3.577049; 2.308005; 0.430648;, - -3.607387; 2.308005; 0.481832;, - -3.675702; 2.310536; 0.425400;, - -3.659516; 2.310536; 0.398093;, - -3.675702; 2.310536; 0.425400;, - -3.753826; 2.313066; 0.360865;, - -3.659516; 2.310536; 0.398093;, - -3.652632; 2.310536; 0.367175;, - -3.564143; 2.308005; 0.372693;, - -3.577049; 2.308005; 0.430648;, - -3.652632; 2.310536; 0.367175;, - -3.655706; 2.310536; 0.335567;, - -3.569904; 2.308005; 0.313446;, - -3.564143; 2.308005; 0.372693;, - -3.655706; 2.310536; 0.335567;, - -3.652632; 2.310536; 0.367175;, - -3.753826; 2.313066; 0.360865;, - -3.652632; 2.310536; 0.367175;, - -3.659516; 2.310536; 0.398093;, - -3.753826; 2.313066; 0.360865;, - -3.668233; 2.310536; 0.306429;, - -3.593386; 2.308005; 0.258827;, - -3.569904; 2.308005; 0.313446;, - -3.655706; 2.310536; 0.335567;, - -3.668233; 2.310536; 0.306429;, - -3.689311; 2.310536; 0.282728;, - -3.632895; 2.308005; 0.214401;, - -3.593386; 2.308005; 0.258827;, - -3.689311; 2.310536; 0.282728;, - -3.668233; 2.310536; 0.306429;, - -3.753826; 2.313066; 0.360865;, - -3.668233; 2.310536; 0.306429;, - -3.655706; 2.310536; 0.335567;, - -3.753826; 2.313066; 0.360865;, - -3.567461; 2.361160; 0.653895;, - -3.486372; 2.361160; 0.581797;, - -3.412201; 2.363691; 0.643066;, - -3.515778; 2.363691; 0.735158;, - -3.412201; 2.363691; 0.643066;, - -3.486372; 2.361160; 0.581797;, - -3.430962; 2.361160; 0.488315;, - -3.341426; 2.363691; 0.523660;, - -3.486372; 2.361160; 0.581797;, - -3.560542; 2.358629; 0.520528;, - -3.520499; 2.358629; 0.452970;, - -3.430962; 2.361160; 0.488315;, - -3.407392; 2.361160; 0.382469;, - -3.311319; 2.363691; 0.388460;, - -3.341426; 2.363691; 0.523660;, - -3.430962; 2.361160; 0.488315;, - -3.324758; 2.363691; 0.250240;, - -3.311319; 2.363691; 0.388460;, - -3.407392; 2.361160; 0.382469;, - -3.417913; 2.361160; 0.274259;, - -3.417913; 2.361160; 0.274259;, - -3.407392; 2.361160; 0.382469;, - -3.503465; 2.358629; 0.376478;, - -3.511069; 2.358629; 0.298276;, - -3.503465; 2.358629; 0.376478;, - -3.407392; 2.361160; 0.382469;, - -3.430962; 2.361160; 0.488315;, - -3.520499; 2.358629; 0.452970;, - -3.460803; 2.361160; 0.174505;, - -3.379541; 2.363691; 0.122823;, - -3.324758; 2.363691; 0.250240;, - -3.417913; 2.361160; 0.274259;, - -3.471709; 2.363691; 0.019182;, - -3.379541; 2.363691; 0.122823;, - -3.460803; 2.361160; 0.174505;, - -3.532960; 2.361160; 0.093365;, - -3.532960; 2.361160; 0.093365;, - -3.460803; 2.361160; 0.174505;, - -3.542064; 2.358629; 0.226186;, - -3.594210; 2.358629; 0.167549;, - -3.542064; 2.358629; 0.226186;, - -3.460803; 2.361160; 0.174505;, - -3.417913; 2.361160; 0.274259;, - -3.511069; 2.358629; 0.298276;, - -3.619143; 2.358629; 0.572632;, - -3.560542; 2.358629; 0.520528;, - -3.486372; 2.361160; 0.581797;, - -3.567461; 2.361160; 0.653895;, - -3.716634; 2.310536; 0.266541;, - -3.684111; 2.308005; 0.184062;, - -3.632895; 2.308005; 0.214401;, - -3.689311; 2.310536; 0.282728;, - -3.716634; 2.310536; 0.266541;, - -3.747554; 2.310536; 0.259667;, - -3.742070; 2.308005; 0.171177;, - -3.684111; 2.308005; 0.184062;, - -3.747554; 2.310536; 0.259667;, - -3.716634; 2.310536; 0.266541;, - -3.753826; 2.313066; 0.360865;, - -3.747554; 2.310536; 0.259667;, - -3.779147; 2.310536; 0.262748;, - -3.801289; 2.308005; 0.176950;, - -3.742070; 2.308005; 0.171177;, - -3.808263; 2.310536; 0.275270;, - -3.855866; 2.308005; 0.200422;, - -3.801289; 2.308005; 0.176950;, - -3.779147; 2.310536; 0.262748;, - -3.808263; 2.310536; 0.275270;, - -3.779147; 2.310536; 0.262748;, - -3.753826; 2.313066; 0.360865;, - -3.779147; 2.310536; 0.262748;, - -3.747554; 2.310536; 0.259667;, - -3.753826; 2.313066; 0.360865;, - -3.626500; 2.361160; 0.037954;, - -3.591190; 2.363691;-0.051596;, - -3.471709; 2.363691; 0.019182;, - -3.532960; 2.361160; 0.093365;, - -3.591190; 2.363691;-0.051596;, - -3.626500; 2.361160; 0.037954;, - -3.732355; 2.361160; 0.014421;, - -3.726401; 2.363691;-0.081655;, - -3.732355; 2.361160; 0.014421;, - -3.626500; 2.361160; 0.037954;, - -3.661810; 2.358629; 0.127504;, - -3.738309; 2.358629; 0.110497;, - -3.732355; 2.361160; 0.014421;, - -3.840512; 2.361160; 0.024966;, - -3.864552; 2.363691;-0.068186;, - -3.726401; 2.363691;-0.081655;, - -3.864552; 2.363691;-0.068186;, - -3.840512; 2.361160; 0.024966;, - -3.940190; 2.361160; 0.067835;, - -3.991873; 2.363691;-0.013428;, - -3.840512; 2.361160; 0.024966;, - -3.816472; 2.358629; 0.118118;, - -3.888507; 2.358629; 0.149098;, - -3.940190; 2.361160; 0.067835;, - -3.840512; 2.361160; 0.024966;, - -3.732355; 2.361160; 0.014421;, - -3.738309; 2.358629; 0.110497;, - -3.816472; 2.358629; 0.118118;, - -3.661810; 2.358629; 0.127504;, - -3.626500; 2.361160; 0.037954;, - -3.532960; 2.361160; 0.093365;, - -3.594210; 2.358629; 0.167549;, - -3.716634; 2.310536; 0.266541;, - -3.689311; 2.310536; 0.282728;, - -3.753826; 2.313066; 0.360865;, - -3.511241; 2.393011; 0.742291;, - -3.333566; 2.393011; 0.526762;, - -3.303726; 2.389004; 0.538542;, - -3.494017; 2.389004; 0.769375;, - -3.316581; 2.393010; 0.248132;, - -3.466332; 2.393010; 0.012670;, - -3.445919; 2.389004;-0.012053;, - -3.285534; 2.389004; 0.240127;, - -3.316581; 2.393010; 0.248132;, - -3.324758; 2.394067; 0.250240;, - -3.471709; 2.394067; 0.019182;, - -3.466332; 2.393010; 0.012670;, - -3.494017; 2.551002; 0.769375;, - -3.303726; 2.551002; 0.538542;, - -3.284876; 2.581376; 0.545983;, - -3.483136; 2.581376; 0.786482;, - -3.303726; 2.551002; 0.538542;, - -3.285534; 2.551002; 0.240127;, - -3.265923; 2.581376; 0.235071;, - -3.284876; 2.581376; 0.545983;, - -3.285534; 2.551002; 0.240127;, - -3.303726; 2.551002; 0.538542;, - -3.303726; 2.389004; 0.538542;, - -3.285534; 2.389004; 0.240127;, - -3.265923; 2.581376; 0.235071;, - -3.285534; 2.551002; 0.240127;, - -3.445919; 2.551002;-0.012053;, - -3.433024; 2.581376;-0.027671;, - -3.445919; 2.551002;-0.012053;, - -3.285534; 2.551002; 0.240127;, - -3.285534; 2.389004; 0.240127;, - -3.445919; 2.389004;-0.012053;, - -3.494017; 2.389004; 0.769375;, - -3.303726; 2.389004; 0.538542;, - -3.303726; 2.551002; 0.538542;, - -3.494017; 2.551002; 0.769375;, - -3.723894; 2.389004;-0.122108;, - -3.725878; 2.393011;-0.090088;, - -3.996409; 2.393011;-0.020561;, - -4.013634; 2.389004;-0.047645;, - -3.725878; 2.393011;-0.090088;, - -3.726401; 2.394067;-0.081655;, - -3.991873; 2.394067;-0.013428;, - -3.996409; 2.393011;-0.020561;, - -3.433024; 2.581376;-0.027671;, - -3.445919; 2.551002;-0.012053;, - -3.723894; 2.551002;-0.122108;, - -3.722640; 2.581376;-0.142335;, - -3.722640; 2.581376;-0.142335;, - -3.723894; 2.551002;-0.122108;, - -4.013634; 2.551002;-0.047645;, - -4.024514; 2.581376;-0.064752;, - -4.013634; 2.551002;-0.047645;, - -3.723894; 2.551002;-0.122108;, - -3.723894; 2.389004;-0.122108;, - -4.013634; 2.389004;-0.047645;, - -3.723894; 2.551002;-0.122108;, - -3.445919; 2.551002;-0.012053;, - -3.445919; 2.389004;-0.012053;, - -3.723894; 2.389004;-0.122108;, - -3.515778; 2.394067; 0.735158;, - -3.341426; 2.394067; 0.523660;, - -3.333566; 2.393011; 0.526762;, - -3.511241; 2.393011; 0.742291;, - -3.808263; 2.310536; 0.275270;, - -3.831949; 2.310536; 0.296330;, - -3.900264; 2.308005; 0.239898;, - -3.855866; 2.308005; 0.200422;, - -3.848135; 2.310536; 0.323636;, - -3.930602; 2.308005; 0.291082;, - -3.900264; 2.308005; 0.239898;, - -3.831949; 2.310536; 0.296330;, - -3.848135; 2.310536; 0.323636;, - -3.831949; 2.310536; 0.296330;, - -3.753826; 2.313066; 0.360865;, - -3.855020; 2.310536; 0.354554;, - -3.943508; 2.308005; 0.349036;, - -3.930602; 2.308005; 0.291082;, - -3.848135; 2.310536; 0.323636;, - -3.855020; 2.310536; 0.354554;, - -3.851947; 2.310536; 0.386163;, - -3.937748; 2.308005; 0.408285;, - -3.943508; 2.308005; 0.349036;, - -3.851947; 2.310536; 0.386163;, - -3.855020; 2.310536; 0.354554;, - -3.753826; 2.313066; 0.360865;, - -3.855020; 2.310536; 0.354554;, - -3.848135; 2.310536; 0.323636;, - -3.753826; 2.313066; 0.360865;, - -3.839418; 2.310536; 0.415301;, - -3.914264; 2.308005; 0.462903;, - -3.937748; 2.308005; 0.408285;, - -3.851947; 2.310536; 0.386163;, - -3.839418; 2.310536; 0.415301;, - -3.818341; 2.310536; 0.439002;, - -3.874756; 2.308005; 0.507329;, - -3.914264; 2.308005; 0.462903;, - -3.818341; 2.310536; 0.439002;, - -3.839418; 2.310536; 0.415301;, - -3.753826; 2.313066; 0.360865;, - -3.839418; 2.310536; 0.415301;, - -3.851947; 2.310536; 0.386163;, - -3.753826; 2.313066; 0.360865;, - -3.940190; 2.361160; 0.067835;, - -4.021279; 2.361160; 0.139933;, - -4.095450; 2.363691; 0.078663;, - -3.991873; 2.363691;-0.013428;, - -4.095450; 2.363691; 0.078663;, - -4.021279; 2.361160; 0.139933;, - -4.076689; 2.361160; 0.233415;, - -4.166225; 2.363691; 0.198069;, - -4.021279; 2.361160; 0.139933;, - -3.947108; 2.358629; 0.201202;, - -3.987152; 2.358629; 0.268759;, - -4.076689; 2.361160; 0.233415;, - -4.076689; 2.361160; 0.233415;, - -4.100259; 2.361160; 0.339261;, - -4.196332; 2.363691; 0.333270;, - -4.166225; 2.363691; 0.198069;, - -4.182893; 2.363691; 0.471489;, - -4.196332; 2.363691; 0.333270;, - -4.100259; 2.361160; 0.339261;, - -4.089738; 2.361160; 0.447471;, - -4.089738; 2.361160; 0.447471;, - -4.100259; 2.361160; 0.339261;, - -4.004186; 2.358629; 0.345252;, - -3.996582; 2.358629; 0.423454;, - -4.004186; 2.358629; 0.345252;, - -4.100259; 2.361160; 0.339261;, - -4.076689; 2.361160; 0.233415;, - -3.987152; 2.358629; 0.268759;, - -4.046848; 2.361160; 0.547225;, - -4.128110; 2.363691; 0.598907;, - -4.182893; 2.363691; 0.471489;, - -4.089738; 2.361160; 0.447471;, - -4.035942; 2.363691; 0.702547;, - -4.128110; 2.363691; 0.598907;, - -4.046848; 2.361160; 0.547225;, - -3.974691; 2.361160; 0.628365;, - -3.974691; 2.361160; 0.628365;, - -4.046848; 2.361160; 0.547225;, - -3.965587; 2.358629; 0.495544;, - -3.913441; 2.358629; 0.554181;, - -3.965587; 2.358629; 0.495544;, - -4.046848; 2.361160; 0.547225;, - -4.089738; 2.361160; 0.447471;, - -3.996582; 2.358629; 0.423454;, - -3.888507; 2.358629; 0.149098;, - -3.947108; 2.358629; 0.201202;, - -4.021279; 2.361160; 0.139933;, - -3.940190; 2.361160; 0.067835;, - -3.791018; 2.310536; 0.455188;, - -3.823540; 2.308005; 0.537668;, - -3.874756; 2.308005; 0.507329;, - -3.818341; 2.310536; 0.439002;, - -3.760098; 2.310536; 0.462062;, - -3.765581; 2.308005; 0.550553;, - -3.823540; 2.308005; 0.537668;, - -3.791018; 2.310536; 0.455188;, - -3.760098; 2.310536; 0.462062;, - -3.791018; 2.310536; 0.455188;, - -3.753826; 2.313066; 0.360865;, - -3.760098; 2.310536; 0.462062;, - -3.728504; 2.310536; 0.458981;, - -3.706362; 2.308005; 0.544779;, - -3.765581; 2.308005; 0.550553;, - -3.706362; 2.308005; 0.544779;, - -3.728504; 2.310536; 0.458981;, - -3.699388; 2.310536; 0.446460;, - -3.651785; 2.308005; 0.521308;, - -3.728504; 2.310536; 0.458981;, - -3.753826; 2.313066; 0.360865;, - -3.699388; 2.310536; 0.446460;, - -3.728504; 2.310536; 0.458981;, - -3.760098; 2.310536; 0.462062;, - -3.753826; 2.313066; 0.360865;, - -3.881150; 2.361160; 0.683775;, - -3.916460; 2.363691; 0.773325;, - -4.035942; 2.363691; 0.702547;, - -3.974691; 2.361160; 0.628365;, - -3.881150; 2.361160; 0.683775;, - -3.775296; 2.361160; 0.707309;, - -3.781250; 2.363691; 0.803384;, - -3.916460; 2.363691; 0.773325;, - -3.775296; 2.361160; 0.707309;, - -3.881150; 2.361160; 0.683775;, - -3.845841; 2.358629; 0.594226;, - -3.769342; 2.358629; 0.611233;, - -3.775296; 2.361160; 0.707309;, - -3.667140; 2.361160; 0.696764;, - -3.643099; 2.363691; 0.789915;, - -3.781250; 2.363691; 0.803384;, - -3.643099; 2.363691; 0.789915;, - -3.667140; 2.361160; 0.696764;, - -3.567461; 2.361160; 0.653895;, - -3.515778; 2.363691; 0.735158;, - -3.667140; 2.361160; 0.696764;, - -3.691179; 2.358629; 0.603612;, - -3.619143; 2.358629; 0.572632;, - -3.567461; 2.361160; 0.653895;, - -3.667140; 2.361160; 0.696764;, - -3.775296; 2.361160; 0.707309;, - -3.769342; 2.358629; 0.611233;, - -3.691179; 2.358629; 0.603612;, - -3.845841; 2.358629; 0.594226;, - -3.881150; 2.361160; 0.683775;, - -3.974691; 2.361160; 0.628365;, - -3.913441; 2.358629; 0.554181;, - -3.791018; 2.310536; 0.455188;, - -3.818341; 2.310536; 0.439002;, - -3.753826; 2.313066; 0.360865;, - -3.996409; 2.393011;-0.020561;, - -4.174084; 2.393011; 0.194968;, - -4.203925; 2.389004; 0.183187;, - -4.013634; 2.389004;-0.047645;, - -4.174084; 2.393011; 0.194968;, - -4.191071; 2.393011; 0.473597;, - -4.222116; 2.389004; 0.481603;, - -4.203925; 2.389004; 0.183187;, - -4.191071; 2.393011; 0.473597;, - -4.174084; 2.393011; 0.194968;, - -4.166225; 2.394067; 0.198069;, - -4.182893; 2.394067; 0.471489;, - -4.041319; 2.393011; 0.709059;, - -4.061732; 2.389004; 0.733783;, - -4.222116; 2.389004; 0.481603;, - -4.191071; 2.393011; 0.473597;, - -4.041319; 2.393011; 0.709059;, - -4.191071; 2.393011; 0.473597;, - -4.182893; 2.394067; 0.471489;, - -4.035942; 2.394067; 0.702547;, - -4.013634; 2.551002;-0.047645;, - -4.203925; 2.551002; 0.183187;, - -4.222775; 2.581376; 0.175746;, - -4.024514; 2.581376;-0.064752;, - -4.203925; 2.551002; 0.183187;, - -4.222116; 2.551002; 0.481603;, - -4.241728; 2.581376; 0.486658;, - -4.222775; 2.581376; 0.175746;, - -4.222116; 2.551002; 0.481603;, - -4.203925; 2.551002; 0.183187;, - -4.203925; 2.389004; 0.183187;, - -4.222116; 2.389004; 0.481603;, - -4.222116; 2.551002; 0.481603;, - -4.061732; 2.551002; 0.733783;, - -4.074627; 2.581376; 0.749400;, - -4.241728; 2.581376; 0.486658;, - -4.061732; 2.551002; 0.733783;, - -4.222116; 2.551002; 0.481603;, - -4.222116; 2.389004; 0.481603;, - -4.061732; 2.389004; 0.733783;, - -4.013634; 2.389004;-0.047645;, - -4.203925; 2.389004; 0.183187;, - -4.203925; 2.551002; 0.183187;, - -4.013634; 2.551002;-0.047645;, - -3.781773; 2.393011; 0.811818;, - -3.783757; 2.389004; 0.843837;, - -4.061732; 2.389004; 0.733783;, - -4.041319; 2.393011; 0.709059;, - -3.783757; 2.389004; 0.843837;, - -3.781773; 2.393011; 0.811818;, - -3.511241; 2.393011; 0.742291;, - -3.494017; 2.389004; 0.769375;, - -3.781773; 2.393011; 0.811818;, - -3.781250; 2.394067; 0.803384;, - -3.515778; 2.394067; 0.735158;, - -3.511241; 2.393011; 0.742291;, - -3.783757; 2.551002; 0.843837;, - -3.785010; 2.581376; 0.864064;, - -4.074627; 2.581376; 0.749400;, - -4.061732; 2.551002; 0.733783;, - -3.785010; 2.581376; 0.864064;, - -3.783757; 2.551002; 0.843837;, - -3.494017; 2.551002; 0.769375;, - -3.483136; 2.581376; 0.786482;, - -3.494017; 2.551002; 0.769375;, - -3.783757; 2.551002; 0.843837;, - -3.783757; 2.389004; 0.843837;, - -3.494017; 2.389004; 0.769375;, - -3.783757; 2.389004; 0.843837;, - -3.783757; 2.551002; 0.843837;, - -4.061732; 2.551002; 0.733783;, - -4.061732; 2.389004; 0.733783;, - -3.781250; 2.394067; 0.803384;, - -3.781773; 2.393011; 0.811818;, - -4.041319; 2.393011; 0.709059;, - -4.035942; 2.394067; 0.702547;, - -4.174084; 2.393011; 0.194968;, - -3.996409; 2.393011;-0.020561;, - -3.991873; 2.394067;-0.013428;, - -4.166225; 2.394067; 0.198069;, - -3.831949; 2.310536; 0.296330;, - -3.808263; 2.310536; 0.275270;, - -3.753826; 2.313066; 0.360865;, - -3.445054; 2.586439; 0.846361;, - -3.218902; 2.586439; 0.572026;, - -3.214189; 2.556065; 0.573887;, - -3.442334; 2.556065; 0.850637;, - -3.218902; 2.586439; 0.572026;, - -3.197281; 2.586439; 0.217373;, - -3.192379; 2.556065; 0.216110;, - -3.214189; 2.556065; 0.573887;, - -3.197281; 2.586439; 0.217373;, - -3.218902; 2.586439; 0.572026;, - -3.284876; 2.581376; 0.545983;, - -3.265923; 2.581376; 0.235071;, - -3.197281; 2.586439; 0.217373;, - -3.387892; 2.586439;-0.082332;, - -3.384669; 2.556065;-0.086236;, - -3.192379; 2.556065; 0.216110;, - -3.387892; 2.586439;-0.082332;, - -3.197281; 2.586439; 0.217373;, - -3.265923; 2.581376; 0.235071;, - -3.433024; 2.581376;-0.027671;, - -3.115795; 2.648622; 0.612729;, - -3.069216; 2.648622; 0.403558;, - -3.024316; 2.660181; 0.406358;, - -3.073950; 2.660181; 0.629247;, - -3.069216; 2.648622; 0.403558;, - -3.090007; 2.648622; 0.189716;, - -3.046471; 2.660181; 0.178491;, - -3.024316; 2.660181; 0.406358;, - -3.090007; 2.648622; 0.189716;, - -3.069216; 2.648622; 0.403558;, - -3.114116; 2.637064; 0.400758;, - -3.133544; 2.637064; 0.200941;, - -3.115795; 2.648622; 0.612729;, - -3.157640; 2.637064; 0.596210;, - -3.114116; 2.637064; 0.400758;, - -3.069216; 2.648622; 0.403558;, - -3.046471; 2.660181; 0.178491;, - -3.090007; 2.648622; 0.189716;, - -3.174763; 2.648622;-0.007414;, - -3.136787; 2.660181;-0.031567;, - -3.174763; 2.648622;-0.007414;, - -3.317358; 2.648622;-0.167758;, - -3.288732; 2.660181;-0.202428;, - -3.136787; 2.660181;-0.031567;, - -3.317358; 2.648622;-0.167758;, - -3.174763; 2.648622;-0.007414;, - -3.212741; 2.637064; 0.016740;, - -3.345984; 2.637064;-0.133088;, - -3.090007; 2.648622; 0.189716;, - -3.133544; 2.637064; 0.200941;, - -3.212741; 2.637064; 0.016740;, - -3.174763; 2.648622;-0.007414;, - -3.442334; 2.556065; 0.850637;, - -3.214189; 2.556065; 0.573887;, - -3.157640; 2.637064; 0.596210;, - -3.409692; 2.637064; 0.901962;, - -3.718253; 2.586439;-0.213127;, - -3.717940; 2.556065;-0.218184;, - -3.384669; 2.556065;-0.086236;, - -3.387892; 2.586439;-0.082332;, - -4.062597; 2.586439;-0.124631;, - -4.065317; 2.556065;-0.128908;, - -3.717940; 2.556065;-0.218184;, - -3.718253; 2.586439;-0.213127;, - -4.024514; 2.581376;-0.064752;, - -4.062597; 2.586439;-0.124631;, - -3.718253; 2.586439;-0.213127;, - -3.722640; 2.581376;-0.142335;, - -3.502210; 2.648622;-0.277260;, - -3.485708; 2.660181;-0.319110;, - -3.288732; 2.660181;-0.202428;, - -3.317358; 2.648622;-0.167758;, - -3.485708; 2.660181;-0.319110;, - -3.502210; 2.648622;-0.277260;, - -3.711397; 2.648622;-0.323765;, - -3.708615; 2.660181;-0.368666;, - -3.711397; 2.648622;-0.323765;, - -3.502210; 2.648622;-0.277260;, - -3.518713; 2.637064;-0.235408;, - -3.714180; 2.637064;-0.278864;, - -3.518713; 2.637064;-0.235408;, - -3.502210; 2.648622;-0.277260;, - -3.317358; 2.648622;-0.167758;, - -3.345984; 2.637064;-0.133088;, - -3.714180; 2.637064;-0.278864;, - -3.717940; 2.556065;-0.218184;, - -4.065317; 2.556065;-0.128908;, - -4.097959; 2.637064;-0.180232;, - -3.722640; 2.581376;-0.142335;, - -3.718253; 2.586439;-0.213127;, - -3.387892; 2.586439;-0.082332;, - -3.433024; 2.581376;-0.027671;, - -3.337936; 2.671403; 1.014788;, - -3.156979; 2.671403; 0.853895;, - -3.123327; 2.682625; 0.881693;, - -3.314487; 2.682625; 1.051657;, - -3.123327; 2.682625; 0.881693;, - -3.156979; 2.671403; 0.853895;, - -3.033327; 2.671403; 0.645282;, - -2.992704; 2.682625; 0.661318;, - -3.156979; 2.671403; 0.853895;, - -3.190630; 2.660181; 0.826097;, - -3.073950; 2.660181; 0.629247;, - -3.033327; 2.671403; 0.645282;, - -3.265525; 2.657313; 1.128643;, - -3.053061; 2.657312; 0.939738;, - -2.982794; 2.632001; 0.997782;, - -3.216562; 2.632001; 1.205630;, - -2.982794; 2.632001; 0.997782;, - -3.053061; 2.657312; 0.939738;, - -2.907880; 2.657312; 0.694803;, - -2.823055; 2.632001; 0.728287;, - -3.053061; 2.657312; 0.939738;, - -3.123327; 2.682625; 0.881693;, - -2.992704; 2.682625; 0.661318;, - -2.907880; 2.657312; 0.694803;, - -3.314487; 2.682625; 1.051657;, - -3.123327; 2.682625; 0.881693;, - -3.053061; 2.657312; 0.939738;, - -3.265525; 2.657313; 1.128643;, - -2.980727; 2.671403; 0.409076;, - -2.937139; 2.682625; 0.411794;, - -2.992704; 2.682625; 0.661318;, - -3.033327; 2.671403; 0.645282;, - -2.961942; 2.682625; 0.156697;, - -2.937139; 2.682625; 0.411794;, - -2.980727; 2.671403; 0.409076;, - -3.004206; 2.671403; 0.167594;, - -3.004206; 2.671403; 0.167594;, - -2.980727; 2.671403; 0.409076;, - -3.024316; 2.660181; 0.406358;, - -3.046471; 2.660181; 0.178491;, - -2.823055; 2.632001; 0.728287;, - -2.907880; 2.657312; 0.694803;, - -2.846122; 2.657312; 0.417470;, - -2.755105; 2.632001; 0.423146;, - -2.846122; 2.657312; 0.417470;, - -2.873689; 2.657312; 0.133944;, - -2.785436; 2.632001; 0.111190;, - -2.755105; 2.632001; 0.423146;, - -2.873689; 2.657312; 0.133944;, - -2.846122; 2.657312; 0.417470;, - -2.937139; 2.682625; 0.411794;, - -2.961942; 2.682625; 0.156697;, - -2.846122; 2.657312; 0.417470;, - -2.907880; 2.657312; 0.694803;, - -2.992704; 2.682625; 0.661318;, - -2.937139; 2.682625; 0.411794;, - -3.024316; 2.660181; 0.406358;, - -2.980727; 2.671403; 0.409076;, - -3.033327; 2.671403; 0.645282;, - -3.073950; 2.660181; 0.629247;, - -3.099918; 2.671403;-0.055015;, - -3.063049; 2.682625;-0.078463;, - -2.961942; 2.682625; 0.156697;, - -3.004206; 2.671403; 0.167594;, - -3.233154; 2.682625;-0.269742;, - -3.063049; 2.682625;-0.078463;, - -3.099918; 2.671403;-0.055015;, - -3.260943; 2.671403;-0.236086;, - -3.260943; 2.671403;-0.236086;, - -3.099918; 2.671403;-0.055015;, - -3.136787; 2.660181;-0.031567;, - -3.288732; 2.660181;-0.202428;, - -2.785436; 2.632001; 0.111190;, - -2.873689; 2.657312; 0.133944;, - -2.986065; 2.657312;-0.127424;, - -2.909080; 2.632001;-0.176386;, - -2.986065; 2.657312;-0.127424;, - -3.175127; 2.657313;-0.340021;, - -3.117100; 2.632001;-0.410300;, - -2.909080; 2.632001;-0.176386;, - -3.175127; 2.657313;-0.340021;, - -2.986065; 2.657312;-0.127424;, - -3.063049; 2.682625;-0.078463;, - -3.233154; 2.682625;-0.269742;, - -2.873689; 2.657312; 0.133944;, - -2.961942; 2.682625; 0.156697;, - -3.063049; 2.682625;-0.078463;, - -2.986065; 2.657312;-0.127424;, - -3.136787; 2.660181;-0.031567;, - -3.099918; 2.671403;-0.055015;, - -3.004206; 2.671403; 0.167594;, - -3.046471; 2.660181; 0.178491;, - -3.204321; 2.591501; 1.224876;, - -2.965228; 2.591502; 1.012293;, - -2.947661; 2.551002; 1.026805;, - -3.192080; 2.551002; 1.244123;, - -2.947661; 2.551002; 1.026805;, - -2.965228; 2.591502; 1.012293;, - -2.801848; 2.591501; 0.736658;, - -2.780642; 2.551002; 0.745029;, - -2.965228; 2.591502; 1.012293;, - -2.982794; 2.632001; 0.997782;, - -2.823055; 2.632001; 0.728287;, - -2.801848; 2.591501; 0.736658;, - -3.190721; 2.401660; 1.246261;, - -2.945709; 2.401659; 1.028417;, - -2.943757; 2.255442; 1.030030;, - -3.189360; 2.255442; 1.248400;, - -2.943757; 2.255442; 1.030030;, - -2.945709; 2.401659; 1.028417;, - -2.778286; 2.401660; 0.745959;, - -2.775931; 2.255442; 0.746889;, - -2.945709; 2.401659; 1.028417;, - -2.947661; 2.551002; 1.026805;, - -2.780642; 2.551002; 0.745029;, - -2.778286; 2.401660; 0.745959;, - -3.192080; 2.551002; 1.244123;, - -2.947661; 2.551002; 1.026805;, - -2.945709; 2.401659; 1.028417;, - -3.190721; 2.401660; 1.246261;, - -2.732351; 2.591501; 0.424565;, - -2.709597; 2.551002; 0.425984;, - -2.780642; 2.551002; 0.745029;, - -2.801848; 2.591501; 0.736658;, - -2.741310; 2.551002; 0.099813;, - -2.709597; 2.551002; 0.425984;, - -2.732351; 2.591501; 0.424565;, - -2.763373; 2.591502; 0.105501;, - -2.763373; 2.591502; 0.105501;, - -2.732351; 2.591501; 0.424565;, - -2.755105; 2.632001; 0.423146;, - -2.785436; 2.632001; 0.111190;, - -2.775931; 2.255442; 0.746889;, - -2.778286; 2.401660; 0.745959;, - -2.707068; 2.401660; 0.426141;, - -2.704540; 2.255442; 0.426299;, - -2.707068; 2.401660; 0.426141;, - -2.738859; 2.401659; 0.099181;, - -2.736408; 2.255442; 0.098549;, - -2.704540; 2.255442; 0.426299;, - -2.738859; 2.401659; 0.099181;, - -2.707068; 2.401660; 0.426141;, - -2.709597; 2.551002; 0.425984;, - -2.741310; 2.551002; 0.099813;, - -2.778286; 2.401660; 0.745959;, - -2.780642; 2.551002; 0.745029;, - -2.709597; 2.551002; 0.425984;, - -2.707068; 2.401660; 0.426141;, - -2.755105; 2.632001; 0.423146;, - -2.732351; 2.591501; 0.424565;, - -2.801848; 2.591501; 0.736658;, - -2.823055; 2.632001; 0.728287;, - -2.889834; 2.591502;-0.188627;, - -2.870589; 2.551002;-0.200866;, - -2.741310; 2.551002; 0.099813;, - -2.763373; 2.591502; 0.105501;, - -3.088086; 2.551002;-0.445440;, - -2.870589; 2.551002;-0.200866;, - -2.889834; 2.591502;-0.188627;, - -3.102592; 2.591502;-0.427870;, - -3.102592; 2.591502;-0.427870;, - -2.889834; 2.591502;-0.188627;, - -2.909080; 2.632001;-0.176386;, - -3.117100; 2.632001;-0.410300;, - -2.736408; 2.255442; 0.098549;, - -2.738859; 2.401659; 0.099181;, - -2.868450; 2.401659;-0.202227;, - -2.866312; 2.255442;-0.203587;, - -2.868450; 2.401659;-0.202227;, - -3.086475; 2.401659;-0.447391;, - -3.084863; 2.255442;-0.449344;, - -2.866312; 2.255442;-0.203587;, - -3.086475; 2.401659;-0.447391;, - -2.868450; 2.401659;-0.202227;, - -2.870589; 2.551002;-0.200866;, - -3.088086; 2.551002;-0.445440;, - -2.738859; 2.401659; 0.099181;, - -2.741310; 2.551002; 0.099813;, - -2.870589; 2.551002;-0.200866;, - -2.868450; 2.401659;-0.202227;, - -2.909080; 2.632001;-0.176386;, - -2.889834; 2.591502;-0.188627;, - -2.763373; 2.591502; 0.105501;, - -2.785436; 2.632001; 0.111190;, - -3.216562; 2.632001; 1.205630;, - -2.982794; 2.632001; 0.997782;, - -2.965228; 2.591502; 1.012293;, - -3.204321; 2.591501; 1.224876;, - -3.469688; 2.671403;-0.359740;, - -3.453668; 2.682625;-0.400369;, - -3.233154; 2.682625;-0.269742;, - -3.260943; 2.671403;-0.236086;, - -3.469688; 2.671403;-0.359740;, - -3.705913; 2.671403;-0.412256;, - -3.703211; 2.682625;-0.455846;, - -3.453668; 2.682625;-0.400369;, - -3.705913; 2.671403;-0.412256;, - -3.469688; 2.671403;-0.359740;, - -3.485708; 2.660181;-0.319110;, - -3.708615; 2.660181;-0.368666;, - -3.420216; 2.657313;-0.485205;, - -3.386765; 2.632001;-0.570042;, - -3.117100; 2.632001;-0.410300;, - -3.175127; 2.657313;-0.340021;, - -3.420216; 2.657313;-0.485205;, - -3.697571; 2.657313;-0.546865;, - -3.691930; 2.632001;-0.637885;, - -3.386765; 2.632001;-0.570042;, - -3.697571; 2.657313;-0.546865;, - -3.420216; 2.657313;-0.485205;, - -3.453668; 2.682625;-0.400369;, - -3.703211; 2.682625;-0.455846;, - -3.453668; 2.682625;-0.400369;, - -3.420216; 2.657313;-0.485205;, - -3.175127; 2.657313;-0.340021;, - -3.233154; 2.682625;-0.269742;, - -3.705913; 2.671403;-0.412256;, - -3.947274; 2.671403;-0.388723;, - -3.958181; 2.682625;-0.430987;, - -3.703211; 2.682625;-0.455846;, - -3.958181; 2.682625;-0.430987;, - -3.947274; 2.671403;-0.388723;, - -4.169715; 2.671403;-0.293058;, - -4.193163; 2.682626;-0.329927;, - -3.947274; 2.671403;-0.388723;, - -3.936368; 2.660182;-0.346461;, - -4.146266; 2.660182;-0.256188;, - -4.169715; 2.671403;-0.293058;, - -3.697571; 2.657313;-0.546865;, - -3.980956; 2.657313;-0.519235;, - -4.003730; 2.632001;-0.607485;, - -3.691930; 2.632001;-0.637885;, - -4.003730; 2.632001;-0.607485;, - -3.980956; 2.657313;-0.519235;, - -4.242126; 2.657313;-0.406914;, - -4.291089; 2.632001;-0.483900;, - -3.980956; 2.657313;-0.519235;, - -3.958181; 2.682625;-0.430987;, - -4.193163; 2.682626;-0.329927;, - -4.242126; 2.657313;-0.406914;, - -3.980956; 2.657313;-0.519235;, - -3.697571; 2.657313;-0.546865;, - -3.703211; 2.682625;-0.455846;, - -3.958181; 2.682625;-0.430987;, - -3.947274; 2.671403;-0.388723;, - -3.705913; 2.671403;-0.412256;, - -3.708615; 2.660181;-0.368666;, - -3.936368; 2.660182;-0.346461;, - -3.378401; 2.591501;-0.591251;, - -3.370039; 2.551002;-0.612460;, - -3.088086; 2.551002;-0.445440;, - -3.102592; 2.591502;-0.427870;, - -3.689109; 2.551002;-0.683395;, - -3.370039; 2.551002;-0.612460;, - -3.378401; 2.591501;-0.591251;, - -3.690519; 2.591501;-0.660640;, - -3.690519; 2.591501;-0.660640;, - -3.378401; 2.591501;-0.591251;, - -3.386765; 2.632001;-0.570042;, - -3.691930; 2.632001;-0.637885;, - -3.084863; 2.255442;-0.449344;, - -3.086475; 2.401659;-0.447391;, - -3.369109; 2.401660;-0.614817;, - -3.368180; 2.255442;-0.617173;, - -3.368180; 2.255442;-0.617173;, - -3.369109; 2.401660;-0.614817;, - -3.688952; 2.401660;-0.685923;, - -3.688796; 2.255442;-0.688452;, - -3.688952; 2.401660;-0.685923;, - -3.369109; 2.401660;-0.614817;, - -3.370039; 2.551002;-0.612460;, - -3.689109; 2.551002;-0.683395;, - -3.086475; 2.401659;-0.447391;, - -3.088086; 2.551002;-0.445440;, - -3.370039; 2.551002;-0.612460;, - -3.369109; 2.401660;-0.614817;, - -3.690519; 2.591501;-0.660640;, - -4.009425; 2.591502;-0.629547;, - -4.015119; 2.551002;-0.651609;, - -3.689109; 2.551002;-0.683395;, - -4.015119; 2.551002;-0.651609;, - -4.009425; 2.591502;-0.629547;, - -4.303329; 2.591501;-0.503147;, - -4.315570; 2.551002;-0.522393;, - -4.009425; 2.591502;-0.629547;, - -4.003730; 2.632001;-0.607485;, - -4.291089; 2.632001;-0.483900;, - -4.303329; 2.591501;-0.503147;, - -3.688952; 2.401660;-0.685923;, - -4.015751; 2.401659;-0.654060;, - -4.016384; 2.255442;-0.656512;, - -3.688796; 2.255442;-0.688452;, - -4.016384; 2.255442;-0.656512;, - -4.015751; 2.401659;-0.654060;, - -4.316930; 2.401660;-0.524531;, - -4.318291; 2.255442;-0.526670;, - -4.015751; 2.401659;-0.654060;, - -4.015119; 2.551002;-0.651609;, - -4.315570; 2.551002;-0.522393;, - -4.316930; 2.401660;-0.524531;, - -4.015751; 2.401659;-0.654060;, - -3.688952; 2.401660;-0.685923;, - -3.689109; 2.551002;-0.683395;, - -4.015119; 2.551002;-0.651609;, - -4.009425; 2.591502;-0.629547;, - -3.690519; 2.591501;-0.660640;, - -3.691930; 2.632001;-0.637885;, - -4.003730; 2.632001;-0.607485;, - -3.386765; 2.632001;-0.570042;, - -3.378401; 2.591501;-0.591251;, - -3.102592; 2.591502;-0.427870;, - -3.117100; 2.632001;-0.410300;, - -3.485708; 2.660181;-0.319110;, - -3.469688; 2.671403;-0.359740;, - -3.260943; 2.671403;-0.236086;, - -3.288732; 2.660181;-0.202428;, - -3.361384; 2.660181; 0.977918;, - -3.190630; 2.660181; 0.826097;, - -3.156979; 2.671403; 0.853895;, - -3.337936; 2.671403; 1.014788;, - -4.062597; 2.586439;-0.124631;, - -4.288749; 2.586439; 0.149703;, - -4.293462; 2.556065; 0.147843;, - -4.065317; 2.556065;-0.128908;, - -4.288749; 2.586439; 0.149703;, - -4.310369; 2.586438; 0.504356;, - -4.315272; 2.556065; 0.505620;, - -4.293462; 2.556065; 0.147843;, - -4.310369; 2.586438; 0.504356;, - -4.288749; 2.586439; 0.149703;, - -4.222775; 2.581376; 0.175746;, - -4.241728; 2.581376; 0.486658;, - -4.310369; 2.586438; 0.504356;, - -4.119759; 2.586438; 0.804061;, - -4.122983; 2.556065; 0.807966;, - -4.315272; 2.556065; 0.505620;, - -4.074627; 2.581376; 0.749400;, - -4.119759; 2.586438; 0.804061;, - -4.310369; 2.586438; 0.504356;, - -4.241728; 2.581376; 0.486658;, - -4.433702; 2.660182; 0.092483;, - -4.391857; 2.648622; 0.109002;, - -4.438435; 2.648622; 0.318172;, - -4.483335; 2.660182; 0.315372;, - -4.438435; 2.648622; 0.318172;, - -4.417643; 2.648622; 0.532014;, - -4.461179; 2.660182; 0.543238;, - -4.483335; 2.660182; 0.315372;, - -4.417643; 2.648622; 0.532014;, - -4.438435; 2.648622; 0.318172;, - -4.393536; 2.637064; 0.320972;, - -4.374106; 2.637064; 0.520789;, - -4.391857; 2.648622; 0.109002;, - -4.350011; 2.637064; 0.125520;, - -4.393536; 2.637064; 0.320972;, - -4.438435; 2.648622; 0.318172;, - -4.461179; 2.660182; 0.543238;, - -4.417643; 2.648622; 0.532014;, - -4.332887; 2.648622; 0.729143;, - -4.370864; 2.660182; 0.753297;, - -4.332887; 2.648622; 0.729143;, - -4.190293; 2.648622; 0.889488;, - -4.218917; 2.660182; 0.924157;, - -4.370864; 2.660182; 0.753297;, - -4.190293; 2.648622; 0.889488;, - -4.332887; 2.648622; 0.729143;, - -4.294909; 2.637064; 0.704990;, - -4.161667; 2.637064; 0.854818;, - -4.417643; 2.648622; 0.532014;, - -4.374106; 2.637064; 0.520789;, - -4.294909; 2.637064; 0.704990;, - -4.332887; 2.648622; 0.729143;, - -4.065317; 2.556065;-0.128908;, - -4.293462; 2.556065; 0.147843;, - -4.350011; 2.637064; 0.125520;, - -4.097959; 2.637064;-0.180232;, - -3.789398; 2.586439; 0.934857;, - -3.789711; 2.556065; 0.939914;, - -4.122983; 2.556065; 0.807966;, - -4.119759; 2.586438; 0.804061;, - -3.789711; 2.556065; 0.939914;, - -3.789398; 2.586439; 0.934857;, - -3.445054; 2.586439; 0.846361;, - -3.442334; 2.556065; 0.850637;, - -3.789398; 2.586439; 0.934857;, - -3.785010; 2.581376; 0.864064;, - -3.483136; 2.581376; 0.786482;, - -3.445054; 2.586439; 0.846361;, - -4.005441; 2.648622; 0.998989;, - -4.021943; 2.660182; 1.040841;, - -4.218917; 2.660182; 0.924157;, - -4.190293; 2.648622; 0.889488;, - -4.005441; 2.648622; 0.998989;, - -3.796254; 2.648622; 1.045495;, - -3.799037; 2.660181; 1.090396;, - -4.021943; 2.660182; 1.040841;, - -3.796254; 2.648622; 1.045495;, - -4.005441; 2.648622; 0.998989;, - -3.988939; 2.637064; 0.957138;, - -3.793471; 2.637064; 1.000594;, - -3.988939; 2.637064; 0.957138;, - -4.005441; 2.648622; 0.998989;, - -4.190293; 2.648622; 0.889488;, - -4.161667; 2.637064; 0.854818;, - -3.793471; 2.637064; 1.000594;, - -3.789711; 2.556065; 0.939914;, - -3.442334; 2.556065; 0.850637;, - -3.409692; 2.637064; 0.901962;, - -3.785010; 2.581376; 0.864064;, - -3.789398; 2.586439; 0.934857;, - -4.119759; 2.586438; 0.804061;, - -4.074627; 2.581376; 0.749400;, - -4.169715; 2.671403;-0.293058;, - -4.350672; 2.671403;-0.132165;, - -4.384323; 2.682626;-0.159964;, - -4.193163; 2.682626;-0.329927;, - -4.474324; 2.671404; 0.076447;, - -4.514947; 2.682626; 0.060412;, - -4.384323; 2.682626;-0.159964;, - -4.350672; 2.671403;-0.132165;, - -4.433702; 2.660182; 0.092483;, - -4.474324; 2.671404; 0.076447;, - -4.350672; 2.671403;-0.132165;, - -4.317021; 2.660182;-0.104368;, - -4.242126; 2.657313;-0.406914;, - -4.454590; 2.657313;-0.218008;, - -4.524857; 2.632001;-0.276052;, - -4.291089; 2.632001;-0.483900;, - -4.524857; 2.632001;-0.276052;, - -4.454590; 2.657313;-0.218008;, - -4.599771; 2.657313; 0.026927;, - -4.684596; 2.632001;-0.006558;, - -4.454590; 2.657313;-0.218008;, - -4.384323; 2.682626;-0.159964;, - -4.514947; 2.682626; 0.060412;, - -4.599771; 2.657313; 0.026927;, - -4.193163; 2.682626;-0.329927;, - -4.384323; 2.682626;-0.159964;, - -4.454590; 2.657313;-0.218008;, - -4.242126; 2.657313;-0.406914;, - -4.526924; 2.671403; 0.312654;, - -4.570512; 2.682626; 0.309935;, - -4.514947; 2.682626; 0.060412;, - -4.474324; 2.671404; 0.076447;, - -4.526924; 2.671403; 0.312654;, - -4.503445; 2.671403; 0.554136;, - -4.545709; 2.682626; 0.565032;, - -4.570512; 2.682626; 0.309935;, - -4.503445; 2.671403; 0.554136;, - -4.526924; 2.671403; 0.312654;, - -4.483335; 2.660182; 0.315372;, - -4.461179; 2.660182; 0.543238;, - -4.661529; 2.657313; 0.304259;, - -4.752546; 2.632001; 0.298584;, - -4.684596; 2.632001;-0.006558;, - -4.599771; 2.657313; 0.026927;, - -4.661529; 2.657313; 0.304259;, - -4.633962; 2.657313; 0.587786;, - -4.722215; 2.632001; 0.610540;, - -4.752546; 2.632001; 0.298584;, - -4.633962; 2.657313; 0.587786;, - -4.661529; 2.657313; 0.304259;, - -4.570512; 2.682626; 0.309935;, - -4.545709; 2.682626; 0.565032;, - -4.570512; 2.682626; 0.309935;, - -4.661529; 2.657313; 0.304259;, - -4.599771; 2.657313; 0.026927;, - -4.514947; 2.682626; 0.060412;, - -4.526924; 2.671403; 0.312654;, - -4.474324; 2.671404; 0.076447;, - -4.433702; 2.660182; 0.092483;, - -4.483335; 2.660182; 0.315372;, - -4.407733; 2.671403; 0.776745;, - -4.444602; 2.682626; 0.800193;, - -4.545709; 2.682626; 0.565032;, - -4.503445; 2.671403; 0.554136;, - -4.407733; 2.671403; 0.776745;, - -4.246708; 2.671403; 0.957815;, - -4.274497; 2.682626; 0.991472;, - -4.444602; 2.682626; 0.800193;, - -4.246708; 2.671403; 0.957815;, - -4.407733; 2.671403; 0.776745;, - -4.370864; 2.660182; 0.753297;, - -4.218917; 2.660182; 0.924157;, - -4.521585; 2.657313; 0.849154;, - -4.598571; 2.632001; 0.898116;, - -4.722215; 2.632001; 0.610540;, - -4.633962; 2.657313; 0.587786;, - -4.521585; 2.657313; 0.849154;, - -4.332524; 2.657313; 1.061751;, - -4.390551; 2.632001; 1.132030;, - -4.598571; 2.632001; 0.898116;, - -4.332524; 2.657313; 1.061751;, - -4.521585; 2.657313; 0.849154;, - -4.444602; 2.682626; 0.800193;, - -4.274497; 2.682626; 0.991472;, - -4.444602; 2.682626; 0.800193;, - -4.521585; 2.657313; 0.849154;, - -4.633962; 2.657313; 0.587786;, - -4.545709; 2.682626; 0.565032;, - -4.370864; 2.660182; 0.753297;, - -4.407733; 2.671403; 0.776745;, - -4.503445; 2.671403; 0.554136;, - -4.461179; 2.660182; 0.543238;, - -4.303329; 2.591501;-0.503147;, - -4.542423; 2.591502;-0.290564;, - -4.559991; 2.551002;-0.305075;, - -4.315570; 2.551002;-0.522393;, - -4.559991; 2.551002;-0.305075;, - -4.542423; 2.591502;-0.290564;, - -4.705802; 2.591501;-0.014928;, - -4.727008; 2.551002;-0.023300;, - -4.542423; 2.591502;-0.290564;, - -4.524857; 2.632001;-0.276052;, - -4.684596; 2.632001;-0.006558;, - -4.705802; 2.591501;-0.014928;, - -4.316930; 2.401660;-0.524531;, - -4.561942; 2.401659;-0.306687;, - -4.563894; 2.255442;-0.308300;, - -4.318291; 2.255442;-0.526670;, - -4.563894; 2.255442;-0.308300;, - -4.561942; 2.401659;-0.306687;, - -4.729364; 2.401659;-0.024229;, - -4.731720; 2.255442;-0.025160;, - -4.561942; 2.401659;-0.306687;, - -4.559991; 2.551002;-0.305075;, - -4.727008; 2.551002;-0.023300;, - -4.729364; 2.401659;-0.024229;, - -4.315570; 2.551002;-0.522393;, - -4.559991; 2.551002;-0.305075;, - -4.561942; 2.401659;-0.306687;, - -4.316930; 2.401660;-0.524531;, - -4.775300; 2.591502; 0.297165;, - -4.798054; 2.551002; 0.295746;, - -4.727008; 2.551002;-0.023300;, - -4.705802; 2.591501;-0.014928;, - -4.766341; 2.551002; 0.621917;, - -4.798054; 2.551002; 0.295746;, - -4.775300; 2.591502; 0.297165;, - -4.744277; 2.591502; 0.616229;, - -4.744277; 2.591502; 0.616229;, - -4.775300; 2.591502; 0.297165;, - -4.752546; 2.632001; 0.298584;, - -4.722215; 2.632001; 0.610540;, - -4.729364; 2.401659;-0.024229;, - -4.800582; 2.401659; 0.295588;, - -4.803111; 2.255442; 0.295431;, - -4.731720; 2.255442;-0.025160;, - -4.800582; 2.401659; 0.295588;, - -4.768792; 2.401660; 0.622549;, - -4.771244; 2.255442; 0.623180;, - -4.803111; 2.255442; 0.295431;, - -4.768792; 2.401660; 0.622549;, - -4.800582; 2.401659; 0.295588;, - -4.798054; 2.551002; 0.295746;, - -4.766341; 2.551002; 0.621917;, - -4.729364; 2.401659;-0.024229;, - -4.727008; 2.551002;-0.023300;, - -4.798054; 2.551002; 0.295746;, - -4.800582; 2.401659; 0.295588;, - -4.752546; 2.632001; 0.298584;, - -4.775300; 2.591502; 0.297165;, - -4.705802; 2.591501;-0.014928;, - -4.684596; 2.632001;-0.006558;, - -4.617816; 2.591501; 0.910356;, - -4.637063; 2.551002; 0.922597;, - -4.766341; 2.551002; 0.621917;, - -4.744277; 2.591502; 0.616229;, - -4.419565; 2.551002; 1.167170;, - -4.637063; 2.551002; 0.922597;, - -4.617816; 2.591501; 0.910356;, - -4.405058; 2.591502; 1.149599;, - -4.405058; 2.591502; 1.149599;, - -4.617816; 2.591501; 0.910356;, - -4.598571; 2.632001; 0.898116;, - -4.390551; 2.632001; 1.132030;, - -4.771244; 2.255442; 0.623180;, - -4.768792; 2.401660; 0.622549;, - -4.639201; 2.401660; 0.923957;, - -4.641339; 2.255442; 0.925316;, - -4.639201; 2.401660; 0.923957;, - -4.421176; 2.401660; 1.169121;, - -4.422789; 2.255442; 1.171073;, - -4.641339; 2.255442; 0.925316;, - -4.421176; 2.401660; 1.169121;, - -4.639201; 2.401660; 0.923957;, - -4.637063; 2.551002; 0.922597;, - -4.419565; 2.551002; 1.167170;, - -4.768792; 2.401660; 0.622549;, - -4.766341; 2.551002; 0.621917;, - -4.637063; 2.551002; 0.922597;, - -4.639201; 2.401660; 0.923957;, - -4.598571; 2.632001; 0.898116;, - -4.617816; 2.591501; 0.910356;, - -4.744277; 2.591502; 0.616229;, - -4.722215; 2.632001; 0.610540;, - -4.291089; 2.632001;-0.483900;, - -4.524857; 2.632001;-0.276052;, - -4.542423; 2.591502;-0.290564;, - -4.303329; 2.591501;-0.503147;, - -4.037963; 2.671403; 1.081470;, - -4.053983; 2.682625; 1.122099;, - -4.274497; 2.682626; 0.991472;, - -4.246708; 2.671403; 0.957815;, - -4.037963; 2.671403; 1.081470;, - -3.801738; 2.671404; 1.133986;, - -3.804440; 2.682625; 1.177576;, - -4.053983; 2.682625; 1.122099;, - -3.799037; 2.660181; 1.090396;, - -3.801738; 2.671404; 1.133986;, - -4.037963; 2.671403; 1.081470;, - -4.021943; 2.660182; 1.040841;, - -4.087434; 2.657313; 1.206935;, - -4.120887; 2.632001; 1.291772;, - -4.390551; 2.632001; 1.132030;, - -4.332524; 2.657313; 1.061751;, - -4.087434; 2.657313; 1.206935;, - -3.810081; 2.657313; 1.268595;, - -3.815721; 2.632001; 1.359615;, - -4.120887; 2.632001; 1.291772;, - -3.810081; 2.657313; 1.268595;, - -4.087434; 2.657313; 1.206935;, - -4.053983; 2.682625; 1.122099;, - -3.804440; 2.682625; 1.177576;, - -4.053983; 2.682625; 1.122099;, - -4.087434; 2.657313; 1.206935;, - -4.332524; 2.657313; 1.061751;, - -4.274497; 2.682626; 0.991472;, - -3.801738; 2.671404; 1.133986;, - -3.560377; 2.671403; 1.110453;, - -3.549469; 2.682625; 1.152716;, - -3.804440; 2.682625; 1.177576;, - -3.549469; 2.682625; 1.152716;, - -3.560377; 2.671403; 1.110453;, - -3.337936; 2.671403; 1.014788;, - -3.314487; 2.682625; 1.051657;, - -3.560377; 2.671403; 1.110453;, - -3.571284; 2.660181; 1.068190;, - -3.361384; 2.660181; 0.977918;, - -3.337936; 2.671403; 1.014788;, - -3.810081; 2.657313; 1.268595;, - -3.526695; 2.657313; 1.240965;, - -3.503920; 2.632001; 1.329214;, - -3.815721; 2.632001; 1.359615;, - -3.503920; 2.632001; 1.329214;, - -3.526695; 2.657313; 1.240965;, - -3.265525; 2.657313; 1.128643;, - -3.216562; 2.632001; 1.205630;, - -3.526695; 2.657313; 1.240965;, - -3.549469; 2.682625; 1.152716;, - -3.314487; 2.682625; 1.051657;, - -3.265525; 2.657313; 1.128643;, - -3.526695; 2.657313; 1.240965;, - -3.810081; 2.657313; 1.268595;, - -3.804440; 2.682625; 1.177576;, - -3.549469; 2.682625; 1.152716;, - -3.560377; 2.671403; 1.110453;, - -3.801738; 2.671404; 1.133986;, - -3.799037; 2.660181; 1.090396;, - -3.571284; 2.660181; 1.068190;, - -4.129249; 2.591502; 1.312981;, - -4.137612; 2.551002; 1.334190;, - -4.419565; 2.551002; 1.167170;, - -4.405058; 2.591502; 1.149599;, - -4.129249; 2.591502; 1.312981;, - -3.817132; 2.591501; 1.382370;, - -3.818542; 2.551002; 1.405125;, - -4.137612; 2.551002; 1.334190;, - -3.817132; 2.591501; 1.382370;, - -4.129249; 2.591502; 1.312981;, - -4.120887; 2.632001; 1.291772;, - -3.815721; 2.632001; 1.359615;, - -4.138541; 2.401659; 1.336547;, - -4.139471; 2.255442; 1.338903;, - -4.422789; 2.255442; 1.171073;, - -4.421176; 2.401660; 1.169121;, - -4.138541; 2.401659; 1.336547;, - -3.818699; 2.401659; 1.407653;, - -3.818855; 2.255442; 1.410181;, - -4.139471; 2.255442; 1.338903;, - -3.818699; 2.401659; 1.407653;, - -4.138541; 2.401659; 1.336547;, - -4.137612; 2.551002; 1.334190;, - -3.818542; 2.551002; 1.405125;, - -4.137612; 2.551002; 1.334190;, - -4.138541; 2.401659; 1.336547;, - -4.421176; 2.401660; 1.169121;, - -4.419565; 2.551002; 1.167170;, - -3.817132; 2.591501; 1.382370;, - -3.498226; 2.591502; 1.351276;, - -3.492533; 2.551002; 1.373339;, - -3.818542; 2.551002; 1.405125;, - -3.492533; 2.551002; 1.373339;, - -3.498226; 2.591502; 1.351276;, - -3.204321; 2.591501; 1.224876;, - -3.192080; 2.551002; 1.244123;, - -3.498226; 2.591502; 1.351276;, - -3.503920; 2.632001; 1.329214;, - -3.216562; 2.632001; 1.205630;, - -3.204321; 2.591501; 1.224876;, - -3.818699; 2.401659; 1.407653;, - -3.491900; 2.401659; 1.375790;, - -3.491267; 2.255442; 1.378242;, - -3.818855; 2.255442; 1.410181;, - -3.491267; 2.255442; 1.378242;, - -3.491900; 2.401659; 1.375790;, - -3.190721; 2.401660; 1.246261;, - -3.189360; 2.255442; 1.248400;, - -3.491900; 2.401659; 1.375790;, - -3.492533; 2.551002; 1.373339;, - -3.192080; 2.551002; 1.244123;, - -3.190721; 2.401660; 1.246261;, - -3.491900; 2.401659; 1.375790;, - -3.818699; 2.401659; 1.407653;, - -3.818542; 2.551002; 1.405125;, - -3.492533; 2.551002; 1.373339;, - -3.498226; 2.591502; 1.351276;, - -3.817132; 2.591501; 1.382370;, - -3.815721; 2.632001; 1.359615;, - -3.503920; 2.632001; 1.329214;, - -4.120887; 2.632001; 1.291772;, - -4.129249; 2.591502; 1.312981;, - -4.405058; 2.591502; 1.149599;, - -4.390551; 2.632001; 1.132030;, - -4.021943; 2.660182; 1.040841;, - -4.037963; 2.671403; 1.081470;, - -4.246708; 2.671403; 0.957815;, - -4.218917; 2.660182; 0.924157;, - -4.350672; 2.671403;-0.132165;, - -4.169715; 2.671403;-0.293058;, - -4.146266; 2.660182;-0.256188;, - -4.317021; 2.660182;-0.104368;, - -4.288749; 2.586439; 0.149703;, - -4.062597; 2.586439;-0.124631;, - -4.024514; 2.581376;-0.064752;, - -4.222775; 2.581376; 0.175746;, - -3.218902; 2.586439; 0.572026;, - -3.445054; 2.586439; 0.846361;, - -3.483136; 2.581376; 0.786482;, - -3.284876; 2.581376; 0.545983;, - -3.675702; 2.310536; 0.425400;, - -3.699388; 2.310536; 0.446460;, - -3.753826; 2.313066; 0.360865;, - -3.571284; 1.850704; 1.068190;, - -3.361385; 1.850704; 0.977918;, - -3.409692; 1.873821; 0.901962;, - -3.796255; 1.862263; 1.045495;, - -3.799037; 1.850704; 1.090396;, - -3.793471; 1.873821; 1.000594;, - -3.409692; 1.873821; 0.901962;, - -3.793471; 1.873821; 1.000594;, - -3.799037; 1.850704; 1.090396;, - -3.571284; 1.850704; 1.068190;, - -3.988939; 1.873821; 0.957138;, - -3.793471; 1.873821; 1.000594;, - -3.789711; 1.954820; 0.939914;, - -4.122983; 1.954821; 0.807966;, - -4.161667; 1.873821; 0.854818;, - -3.988939; 1.873821; 0.957138;, - -3.789711; 1.954820; 0.939914;, - -4.294910; 1.873821; 0.704990;, - -4.161667; 1.873821; 0.854818;, - -4.122983; 1.954821; 0.807966;, - -4.315272; 1.954821; 0.505620;, - -4.374107; 1.873821; 0.520789;, - -4.294910; 1.873821; 0.704990;, - -4.122983; 1.954821; 0.807966;, - -4.391857; 1.862263; 0.109002;, - -4.350011; 1.873821; 0.125520;, - -4.097959; 1.873821;-0.180232;, - -4.317021; 1.850704;-0.104368;, - -4.097959; 1.873821;-0.180232;, - -4.146266; 1.850704;-0.256188;, - -4.097959; 1.873821;-0.180232;, - -4.317021; 1.850704;-0.104368;, - -4.433702; 1.850704; 0.092483;, - -4.391857; 1.862263; 0.109002;, - -4.350011; 1.873821; 0.125520;, - -4.393536; 1.873821; 0.320972;, - -4.293462; 1.954821; 0.147843;, - -4.293462; 1.954821; 0.147843;, - -4.393536; 1.873821; 0.320972;, - -4.374107; 1.873821; 0.520789;, - -4.315272; 1.954821; 0.505620;, - -4.097959; 1.873821;-0.180232;, - -3.714180; 1.873821;-0.278864;, - -3.711397; 1.862262;-0.323765;, - -4.146266; 1.850704;-0.256188;, - -4.097959; 1.873821;-0.180232;, - -3.936368; 1.850704;-0.346461;, - -3.708614; 1.850704;-0.368666;, - -3.936368; 1.850704;-0.346461;, - -4.097959; 1.873821;-0.180232;, - -3.711397; 1.862262;-0.323765;, - -3.717940; 1.954820;-0.218184;, - -3.518712; 1.873821;-0.235409;, - -3.714180; 1.873821;-0.278864;, - -3.345984; 1.873821;-0.133088;, - -3.518712; 1.873821;-0.235409;, - -3.717940; 1.954820;-0.218184;, - -3.384669; 1.954820;-0.086236;, - -3.192379; 1.954820; 0.216110;, - -3.133544; 1.873821; 0.200941;, - -3.212741; 1.873821; 0.016740;, - -3.212741; 1.873821; 0.016740;, - -3.345984; 1.873821;-0.133088;, - -3.384669; 1.954820;-0.086236;, - -3.192379; 1.954820; 0.216110;, - -3.409692; 1.873821; 0.901962;, - -3.361385; 1.850704; 0.977918;, - -3.190631; 1.850703; 0.826097;, - -3.157640; 1.873821; 0.596210;, - -3.409692; 1.873821; 0.901962;, - -3.115795; 1.862262; 0.612729;, - -3.073949; 1.850703; 0.629246;, - -3.115795; 1.862262; 0.612729;, - -3.409692; 1.873821; 0.901962;, - -3.190631; 1.850703; 0.826097;, - -3.214189; 1.954820; 0.573887;, - -3.157640; 1.873821; 0.596210;, - -3.114115; 1.873821; 0.400758;, - -3.114115; 1.873821; 0.400758;, - -3.133544; 1.873821; 0.200941;, - -3.192379; 1.954820; 0.216110;, - -3.214189; 1.954820; 0.573887;, - -3.577049; 2.308005; 0.430648;, - -3.520499; 2.358629; 0.452970;, - -3.607387; 2.308005; 0.481832;, - -3.651785; 2.308005; 0.521308;, - -3.607387; 2.308005; 0.481832;, - -3.520499; 2.358629; 0.452970;, - -3.560542; 2.358629; 0.520528;, - -3.619143; 2.358629; 0.572632;, - -3.691179; 2.358629; 0.603612;, - -3.651785; 2.308005; 0.521308;, - -3.560542; 2.358629; 0.520528;, - -3.706362; 2.308005; 0.544779;, - -3.769342; 2.358629; 0.611233;, - -3.765581; 2.308005; 0.550553;, - -3.769342; 2.358629; 0.611233;, - -3.706362; 2.308005; 0.544779;, - -3.651785; 2.308005; 0.521308;, - -3.691179; 2.358629; 0.603612;, - -3.577049; 2.308005; 0.430648;, - -3.564143; 2.308005; 0.372693;, - -3.503465; 2.358629; 0.376478;, - -3.520499; 2.358629; 0.452970;, - -3.564143; 2.308005; 0.372693;, - -3.569904; 2.308005; 0.313446;, - -3.511069; 2.358629; 0.298276;, - -3.503465; 2.358629; 0.376478;, - -3.569904; 2.308005; 0.313446;, - -3.593386; 2.308005; 0.258827;, - -3.542064; 2.358629; 0.226186;, - -3.511069; 2.358629; 0.298276;, - -3.632895; 2.308005; 0.214401;, - -3.594210; 2.358629; 0.167549;, - -3.542064; 2.358629; 0.226186;, - -3.593386; 2.308005; 0.258827;, - -3.515778; 2.394067; 0.735158;, - -3.515778; 2.363691; 0.735158;, - -3.412201; 2.363691; 0.643066;, - -3.341426; 2.363691; 0.523660;, - -3.341426; 2.394067; 0.523660;, - -3.515778; 2.394067; 0.735158;, - -3.412201; 2.363691; 0.643066;, - -3.324758; 2.394067; 0.250240;, - -3.341426; 2.363691; 0.523660;, - -3.311319; 2.363691; 0.388460;, - -3.324758; 2.394067; 0.250240;, - -3.311319; 2.363691; 0.388460;, - -3.324758; 2.363691; 0.250240;, - -3.341426; 2.394067; 0.523660;, - -3.341426; 2.363691; 0.523660;, - -3.324758; 2.394067; 0.250240;, - -3.316581; 2.393010; 0.248132;, - -3.471709; 2.394067; 0.019182;, - -3.379541; 2.363691; 0.122823;, - -3.471709; 2.363691; 0.019182;, - -3.324758; 2.363691; 0.250240;, - -3.379541; 2.363691; 0.122823;, - -3.471709; 2.394067; 0.019182;, - -3.324758; 2.394067; 0.250240;, - -3.684111; 2.308005; 0.184062;, - -3.661810; 2.358629; 0.127504;, - -3.594210; 2.358629; 0.167549;, - -3.632895; 2.308005; 0.214401;, - -3.742070; 2.308005; 0.171177;, - -3.738309; 2.358629; 0.110497;, - -3.661810; 2.358629; 0.127504;, - -3.684111; 2.308005; 0.184062;, - -3.738309; 2.358629; 0.110497;, - -3.742070; 2.308005; 0.171177;, - -3.801289; 2.308005; 0.176950;, - -3.816472; 2.358629; 0.118118;, - -3.738309; 2.358629; 0.110497;, - -3.888507; 2.358629; 0.149098;, - -3.855866; 2.308005; 0.200422;, - -3.888507; 2.358629; 0.149098;, - -3.738309; 2.358629; 0.110497;, - -3.801289; 2.308005; 0.176950;, - -3.726401; 2.394067;-0.081655;, - -3.591190; 2.363691;-0.051596;, - -3.726401; 2.363691;-0.081655;, - -3.471709; 2.363691; 0.019182;, - -3.591190; 2.363691;-0.051596;, - -3.726401; 2.394067;-0.081655;, - -3.471709; 2.394067; 0.019182;, - -3.864552; 2.363691;-0.068186;, - -3.991873; 2.363691;-0.013428;, - -3.991873; 2.394067;-0.013428;, - -3.991873; 2.394067;-0.013428;, - -3.726401; 2.394067;-0.081655;, - -3.726401; 2.363691;-0.081655;, - -3.864552; 2.363691;-0.068186;, - -3.900264; 2.308005; 0.239898;, - -3.930602; 2.308005; 0.291082;, - -3.987152; 2.358629; 0.268759;, - -3.888507; 2.358629; 0.149098;, - -3.987152; 2.358629; 0.268759;, - -3.947108; 2.358629; 0.201202;, - -3.987152; 2.358629; 0.268759;, - -3.888507; 2.358629; 0.149098;, - -3.855866; 2.308005; 0.200422;, - -3.900264; 2.308005; 0.239898;, - -3.996582; 2.358629; 0.423454;, - -4.004186; 2.358629; 0.345252;, - -3.943508; 2.308005; 0.349036;, - -3.937748; 2.308005; 0.408285;, - -4.004186; 2.358629; 0.345252;, - -3.987152; 2.358629; 0.268759;, - -3.930602; 2.308005; 0.291082;, - -3.943508; 2.308005; 0.349036;, - -3.965587; 2.358629; 0.495544;, - -3.914264; 2.308005; 0.462903;, - -3.874756; 2.308005; 0.507329;, - -3.913441; 2.358629; 0.554181;, - -3.996582; 2.358629; 0.423454;, - -3.937748; 2.308005; 0.408285;, - -3.914264; 2.308005; 0.462903;, - -3.965587; 2.358629; 0.495544;, - -4.095450; 2.363691; 0.078663;, - -4.166225; 2.363691; 0.198069;, - -4.166225; 2.394067; 0.198069;, - -4.166225; 2.394067; 0.198069;, - -3.991873; 2.394067;-0.013428;, - -3.991873; 2.363691;-0.013428;, - -4.095450; 2.363691; 0.078663;, - -4.166225; 2.363691; 0.198069;, - -4.196332; 2.363691; 0.333270;, - -4.166225; 2.394067; 0.198069;, - -4.166225; 2.394067; 0.198069;, - -4.196332; 2.363691; 0.333270;, - -4.182893; 2.363691; 0.471489;, - -4.182893; 2.394067; 0.471489;, - -4.182893; 2.363691; 0.471489;, - -4.128110; 2.363691; 0.598907;, - -4.182893; 2.394067; 0.471489;, - -4.182893; 2.394067; 0.471489;, - -4.128110; 2.363691; 0.598907;, - -4.035942; 2.363691; 0.702547;, - -4.035942; 2.394067; 0.702547;, - -3.845841; 2.358629; 0.594226;, - -3.823540; 2.308005; 0.537668;, - -3.765581; 2.308005; 0.550553;, - -3.769342; 2.358629; 0.611233;, - -3.913441; 2.358629; 0.554181;, - -3.874756; 2.308005; 0.507329;, - -3.823540; 2.308005; 0.537668;, - -3.845841; 2.358629; 0.594226;, - -4.035942; 2.363691; 0.702547;, - -3.916460; 2.363691; 0.773325;, - -4.035942; 2.394067; 0.702547;, - -4.035942; 2.394067; 0.702547;, - -3.916460; 2.363691; 0.773325;, - -3.781250; 2.363691; 0.803384;, - -3.781250; 2.394067; 0.803384;, - -3.781250; 2.394067; 0.803384;, - -3.781250; 2.363691; 0.803384;, - -3.643099; 2.363691; 0.789915;, - -3.515778; 2.363691; 0.735158;, - -3.515778; 2.394067; 0.735158;, - -3.781250; 2.394067; 0.803384;, - -3.643099; 2.363691; 0.789915;, - -3.190630; 2.660181; 0.826097;, - -3.361384; 2.660181; 0.977918;, - -3.409692; 2.637064; 0.901962;, - -3.115795; 2.648622; 0.612729;, - -3.073950; 2.660181; 0.629247;, - -3.157640; 2.637064; 0.596210;, - -3.409692; 2.637064; 0.901962;, - -3.157640; 2.637064; 0.596210;, - -3.073950; 2.660181; 0.629247;, - -3.190630; 2.660181; 0.826097;, - -3.114116; 2.637064; 0.400758;, - -3.157640; 2.637064; 0.596210;, - -3.214189; 2.556065; 0.573887;, - -3.192379; 2.556065; 0.216110;, - -3.133544; 2.637064; 0.200941;, - -3.114116; 2.637064; 0.400758;, - -3.214189; 2.556065; 0.573887;, - -3.212741; 2.637064; 0.016740;, - -3.133544; 2.637064; 0.200941;, - -3.192379; 2.556065; 0.216110;, - -3.384669; 2.556065;-0.086236;, - -3.345984; 2.637064;-0.133088;, - -3.212741; 2.637064; 0.016740;, - -3.192379; 2.556065; 0.216110;, - -3.711397; 2.648622;-0.323765;, - -3.714180; 2.637064;-0.278864;, - -4.097959; 2.637064;-0.180232;, - -3.936368; 2.660182;-0.346461;, - -4.097959; 2.637064;-0.180232;, - -4.146266; 2.660182;-0.256188;, - -4.097959; 2.637064;-0.180232;, - -3.936368; 2.660182;-0.346461;, - -3.708615; 2.660181;-0.368666;, - -3.711397; 2.648622;-0.323765;, - -3.714180; 2.637064;-0.278864;, - -3.518713; 2.637064;-0.235408;, - -3.717940; 2.556065;-0.218184;, - -3.717940; 2.556065;-0.218184;, - -3.518713; 2.637064;-0.235408;, - -3.345984; 2.637064;-0.133088;, - -3.384669; 2.556065;-0.086236;, - -4.097959; 2.637064;-0.180232;, - -4.350011; 2.637064; 0.125520;, - -4.391857; 2.648622; 0.109002;, - -4.146266; 2.660182;-0.256188;, - -4.097959; 2.637064;-0.180232;, - -4.317021; 2.660182;-0.104368;, - -4.433702; 2.660182; 0.092483;, - -4.317021; 2.660182;-0.104368;, - -4.097959; 2.637064;-0.180232;, - -4.391857; 2.648622; 0.109002;, - -4.293462; 2.556065; 0.147843;, - -4.393536; 2.637064; 0.320972;, - -4.350011; 2.637064; 0.125520;, - -4.374106; 2.637064; 0.520789;, - -4.393536; 2.637064; 0.320972;, - -4.293462; 2.556065; 0.147843;, - -4.315272; 2.556065; 0.505620;, - -4.122983; 2.556065; 0.807966;, - -4.161667; 2.637064; 0.854818;, - -4.294909; 2.637064; 0.704990;, - -4.294909; 2.637064; 0.704990;, - -4.374106; 2.637064; 0.520789;, - -4.315272; 2.556065; 0.505620;, - -4.122983; 2.556065; 0.807966;, - -3.409692; 2.637064; 0.901962;, - -3.361384; 2.660181; 0.977918;, - -3.571284; 2.660181; 1.068190;, - -3.793471; 2.637064; 1.000594;, - -3.799037; 2.660181; 1.090396;, - -3.796254; 2.648622; 1.045495;, - -3.799037; 2.660181; 1.090396;, - -3.793471; 2.637064; 1.000594;, - -3.409692; 2.637064; 0.901962;, - -3.571284; 2.660181; 1.068190;, - -3.789711; 2.556065; 0.939914;, - -3.793471; 2.637064; 1.000594;, - -3.988939; 2.637064; 0.957138;, - -3.988939; 2.637064; 0.957138;, - -4.161667; 2.637064; 0.854818;, - -4.122983; 2.556065; 0.807966;, - -3.789711; 2.556065; 0.939914;, - 3.560576; 1.954820; 0.360865;, - 4.100213; 1.954820; 0.573887;, - 4.122023; 1.954820; 0.216110;, - 3.560576; 1.954820; 0.360865;, - 3.191419; 1.954821; 0.807966;, - 3.524690; 1.954820; 0.939914;, - 3.980835; 2.393011; 0.526762;, - 4.028868; 2.389004; 0.240127;, - 4.010676; 2.389004; 0.538542;, - 3.588524; 2.393011;-0.090088;, - 3.590508; 2.389004;-0.122108;, - 3.868483; 2.389004;-0.012053;, - 3.848069; 2.393010; 0.012670;, - 3.842693; 2.394067; 0.019182;, - 3.588001; 2.394067;-0.081655;, - 3.848069; 2.393010; 0.012670;, - 3.588001; 2.394067;-0.081655;, - 3.588524; 2.393011;-0.090088;, - 3.868483; 2.389004;-0.012053;, - 3.980835; 2.393011; 0.526762;, - 3.972976; 2.394067; 0.523660;, - 3.997821; 2.393010; 0.248132;, - 4.028868; 2.389004; 0.240127;, - 3.929733; 1.954820;-0.086236;, - 3.596462; 1.954820;-0.218184;, - 3.560576; 1.954820; 0.360865;, - 4.122023; 1.954820; 0.216110;, - 2.999130; 1.954821; 0.505620;, - 3.191419; 1.954821; 0.807966;, - 3.560576; 1.954820; 0.360865;, - 3.020940; 1.954821; 0.147843;, - 3.249085; 1.954821;-0.128908;, - 3.020940; 1.954821; 0.147843;, - 3.560576; 1.954820; 0.360865;, - 3.596462; 1.954820;-0.218184;, - 3.560576; 1.954820; 0.360865;, - 3.524690; 1.954820; 0.939914;, - 3.872067; 1.954820; 0.850637;, - 4.100213; 1.954820; 0.573887;, - 3.515365; 1.850704; 1.090396;, - 3.518147; 1.862263; 1.045495;, - 3.308961; 1.862263; 0.998989;, - 3.292459; 1.850703; 1.040841;, - 3.308961; 1.862263; 0.998989;, - 3.124109; 1.862262; 0.889488;, - 3.095484; 1.850704; 0.924157;, - 3.292459; 1.850703; 1.040841;, - 3.124109; 1.862262; 0.889488;, - 3.308961; 1.862263; 0.998989;, - 3.325463; 1.873821; 0.957138;, - 3.152735; 1.873821; 0.854818;, - 3.518147; 1.862263; 1.045495;, - 3.520931; 1.873821; 1.000594;, - 3.325463; 1.873821; 0.957138;, - 3.308961; 1.862263; 0.998989;, - 3.095484; 1.850704; 0.924157;, - 3.124109; 1.862262; 0.889488;, - 2.981515; 1.862262; 0.729143;, - 2.943538; 1.850703; 0.753297;, - 2.981515; 1.862262; 0.729143;, - 2.896759; 1.862262; 0.532014;, - 2.853223; 1.850704; 0.543238;, - 2.943538; 1.850703; 0.753297;, - 2.896759; 1.862262; 0.532014;, - 2.981515; 1.862262; 0.729143;, - 3.019492; 1.873821; 0.704990;, - 2.940295; 1.873821; 0.520789;, - 3.124109; 1.862262; 0.889488;, - 3.152735; 1.873821; 0.854818;, - 3.019492; 1.873821; 0.704990;, - 2.981515; 1.862262; 0.729143;, - 3.872067; 1.954820; 0.850637;, - 3.524690; 1.954820; 0.939914;, - 3.520931; 1.873821; 1.000594;, - 3.904710; 1.873821; 0.901962;, - 2.875967; 1.862263; 0.318172;, - 2.831067; 1.850703; 0.315372;, - 2.853223; 1.850704; 0.543238;, - 2.896759; 1.862262; 0.532014;, - 2.875967; 1.862263; 0.318172;, - 2.922545; 1.862263; 0.109002;, - 2.880700; 1.850704; 0.092483;, - 2.831067; 1.850703; 0.315372;, - 2.922545; 1.862263; 0.109002;, - 2.875967; 1.862263; 0.318172;, - 2.920866; 1.873821; 0.320972;, - 2.964391; 1.873821; 0.125520;, - 2.920866; 1.873821; 0.320972;, - 2.875967; 1.862263; 0.318172;, - 2.896759; 1.862262; 0.532014;, - 2.940295; 1.873821; 0.520789;, - 2.964391; 1.873821; 0.125520;, - 3.020940; 1.954821; 0.147843;, - 3.249085; 1.954821;-0.128908;, - 3.216443; 1.873821;-0.180232;, - 3.976466; 1.839481; 1.014788;, - 3.754025; 1.839481; 1.110453;, - 3.764933; 1.828260; 1.152716;, - 3.999915; 1.828260; 1.051657;, - 3.764933; 1.828260; 1.152716;, - 3.754025; 1.839481; 1.110453;, - 3.512664; 1.839481; 1.133986;, - 3.509962; 1.828260; 1.177576;, - 3.754025; 1.839481; 1.110453;, - 3.743118; 1.850704; 1.068190;, - 3.515365; 1.850704; 1.090396;, - 3.512664; 1.839481; 1.133986;, - 4.048877; 1.853571; 1.128643;, - 3.787707; 1.853571; 1.240965;, - 3.810481; 1.878884; 1.329214;, - 4.097840; 1.878884; 1.205630;, - 3.810481; 1.878884; 1.329214;, - 3.787707; 1.853571; 1.240965;, - 3.504321; 1.853571; 1.268595;, - 3.498681; 1.878884; 1.359615;, - 3.787707; 1.853571; 1.240965;, - 3.764933; 1.828260; 1.152716;, - 3.509962; 1.828260; 1.177576;, - 3.504321; 1.853571; 1.268595;, - 3.999915; 1.828260; 1.051657;, - 3.764933; 1.828260; 1.152716;, - 3.787707; 1.853571; 1.240965;, - 4.048877; 1.853571; 1.128643;, - 3.276439; 1.839481; 1.081470;, - 3.260419; 1.828260; 1.122099;, - 3.509962; 1.828260; 1.177576;, - 3.512664; 1.839481; 1.133986;, - 3.039905; 1.828260; 0.991472;, - 3.260419; 1.828260; 1.122099;, - 3.276439; 1.839481; 1.081470;, - 3.067694; 1.839481; 0.957815;, - 3.067694; 1.839481; 0.957815;, - 3.276439; 1.839481; 1.081470;, - 3.292459; 1.850703; 1.040841;, - 3.095484; 1.850704; 0.924157;, - 3.498681; 1.878884; 1.359615;, - 3.504321; 1.853571; 1.268595;, - 3.226967; 1.853571; 1.206935;, - 3.193515; 1.878884; 1.291772;, - 3.226967; 1.853571; 1.206935;, - 2.981878; 1.853572; 1.061751;, - 2.923851; 1.878884; 1.132030;, - 3.193515; 1.878884; 1.291772;, - 2.981878; 1.853572; 1.061751;, - 3.226967; 1.853571; 1.206935;, - 3.260419; 1.828260; 1.122099;, - 3.039905; 1.828260; 0.991472;, - 3.504321; 1.853571; 1.268595;, - 3.509962; 1.828260; 1.177576;, - 3.260419; 1.828260; 1.122099;, - 3.226967; 1.853571; 1.206935;, - 3.292459; 1.850703; 1.040841;, - 3.276439; 1.839481; 1.081470;, - 3.512664; 1.839481; 1.133986;, - 3.515365; 1.850704; 1.090396;, - 2.906669; 1.839481; 0.776745;, - 2.869800; 1.828260; 0.800193;, - 3.039905; 1.828260; 0.991472;, - 3.067694; 1.839481; 0.957815;, - 2.768693; 1.828260; 0.565032;, - 2.869800; 1.828260; 0.800193;, - 2.906669; 1.839481; 0.776745;, - 2.810957; 1.839481; 0.554136;, - 2.810957; 1.839481; 0.554136;, - 2.906669; 1.839481; 0.776745;, - 2.943538; 1.850703; 0.753297;, - 2.853223; 1.850704; 0.543238;, - 2.923851; 1.878884; 1.132030;, - 2.981878; 1.853572; 1.061751;, - 2.792816; 1.853572; 0.849154;, - 2.715831; 1.878884; 0.898116;, - 2.792816; 1.853572; 0.849154;, - 2.680440; 1.853572; 0.587786;, - 2.592187; 1.878884; 0.610540;, - 2.715831; 1.878884; 0.898116;, - 2.680440; 1.853572; 0.587786;, - 2.792816; 1.853572; 0.849154;, - 2.869800; 1.828260; 0.800193;, - 2.768693; 1.828260; 0.565032;, - 2.981878; 1.853572; 1.061751;, - 3.039905; 1.828260; 0.991472;, - 2.869800; 1.828260; 0.800193;, - 2.792816; 1.853572; 0.849154;, - 2.943538; 1.850703; 0.753297;, - 2.906669; 1.839481; 0.776745;, - 3.067694; 1.839481; 0.957815;, - 3.095484; 1.850704; 0.924157;, - 4.110081; 1.919383; 1.224876;, - 3.816176; 1.919383; 1.351276;, - 3.821869; 1.959883; 1.373339;, - 4.122321; 1.959883; 1.244123;, - 3.821869; 1.959883; 1.373339;, - 3.816176; 1.919383; 1.351276;, - 3.497270; 1.919383; 1.382370;, - 3.495860; 1.959883; 1.405125;, - 3.816176; 1.919383; 1.351276;, - 3.810481; 1.878884; 1.329214;, - 3.498681; 1.878884; 1.359615;, - 3.497270; 1.919383; 1.382370;, - 4.123681; 2.109225; 1.246261;, - 3.822502; 2.109225; 1.375790;, - 3.823135; 2.255442; 1.378242;, - 4.125041; 2.255442; 1.248400;, - 3.823135; 2.255442; 1.378242;, - 3.822502; 2.109225; 1.375790;, - 3.495703; 2.109225; 1.407653;, - 3.495547; 2.255442; 1.410181;, - 3.822502; 2.109225; 1.375790;, - 3.821869; 1.959883; 1.373339;, - 3.495860; 1.959883; 1.405125;, - 3.495703; 2.109225; 1.407653;, - 4.122321; 1.959883; 1.244123;, - 3.821869; 1.959883; 1.373339;, - 3.822502; 2.109225; 1.375790;, - 4.123681; 2.109225; 1.246261;, - 3.185153; 1.919383; 1.312981;, - 3.176790; 1.959883; 1.334190;, - 3.495860; 1.959883; 1.405125;, - 3.497270; 1.919383; 1.382370;, - 2.894837; 1.959883; 1.167170;, - 3.176790; 1.959883; 1.334190;, - 3.185153; 1.919383; 1.312981;, - 2.909343; 1.919383; 1.149599;, - 2.909343; 1.919383; 1.149599;, - 3.185153; 1.919383; 1.312981;, - 3.193515; 1.878884; 1.291772;, - 2.923851; 1.878884; 1.132030;, - 3.495547; 2.255442; 1.410181;, - 3.495703; 2.109225; 1.407653;, - 3.175860; 2.109225; 1.336547;, - 3.174931; 2.255442; 1.338903;, - 3.175860; 2.109225; 1.336547;, - 2.893226; 2.109225; 1.169121;, - 2.891613; 2.255442; 1.171073;, - 3.174931; 2.255442; 1.338903;, - 2.893226; 2.109225; 1.169121;, - 3.175860; 2.109225; 1.336547;, - 3.176790; 1.959883; 1.334190;, - 2.894837; 1.959883; 1.167170;, - 3.495703; 2.109225; 1.407653;, - 3.495860; 1.959883; 1.405125;, - 3.176790; 1.959883; 1.334190;, - 3.175860; 2.109225; 1.336547;, - 3.193515; 1.878884; 1.291772;, - 3.185153; 1.919383; 1.312981;, - 3.497270; 1.919383; 1.382370;, - 3.498681; 1.878884; 1.359615;, - 2.696585; 1.919383; 0.910356;, - 2.677339; 1.959883; 0.922597;, - 2.894837; 1.959883; 1.167170;, - 2.909343; 1.919383; 1.149599;, - 2.548060; 1.959883; 0.621917;, - 2.677339; 1.959883; 0.922597;, - 2.696585; 1.919383; 0.910356;, - 2.570124; 1.919383; 0.616229;, - 2.570124; 1.919383; 0.616229;, - 2.696585; 1.919383; 0.910356;, - 2.715831; 1.878884; 0.898116;, - 2.592187; 1.878884; 0.610540;, - 2.891613; 2.255442; 1.171073;, - 2.893226; 2.109225; 1.169121;, - 2.675201; 2.109225; 0.923957;, - 2.673063; 2.255442; 0.925316;, - 2.675201; 2.109225; 0.923957;, - 2.545610; 2.109225; 0.622549;, - 2.543158; 2.255442; 0.623180;, - 2.673063; 2.255442; 0.925316;, - 2.545610; 2.109225; 0.622549;, - 2.675201; 2.109225; 0.923957;, - 2.677339; 1.959883; 0.922597;, - 2.548060; 1.959883; 0.621917;, - 2.893226; 2.109225; 1.169121;, - 2.894837; 1.959883; 1.167170;, - 2.677339; 1.959883; 0.922597;, - 2.675201; 2.109225; 0.923957;, - 2.715831; 1.878884; 0.898116;, - 2.696585; 1.919383; 0.910356;, - 2.909343; 1.919383; 1.149599;, - 2.923851; 1.878884; 1.132030;, - 4.097840; 1.878884; 1.205630;, - 3.810481; 1.878884; 1.329214;, - 3.816176; 1.919383; 1.351276;, - 4.110081; 1.919383; 1.224876;, - 2.787478; 1.839481; 0.312654;, - 2.743890; 1.828260; 0.309935;, - 2.768693; 1.828260; 0.565032;, - 2.810957; 1.839481; 0.554136;, - 2.787478; 1.839481; 0.312654;, - 2.840078; 1.839481; 0.076447;, - 2.799454; 1.828260; 0.060412;, - 2.743890; 1.828260; 0.309935;, - 2.880700; 1.850704; 0.092483;, - 2.840078; 1.839481; 0.076447;, - 2.787478; 1.839481; 0.312654;, - 2.831067; 1.850703; 0.315372;, - 2.652873; 1.853572; 0.304259;, - 2.561855; 1.878884; 0.298584;, - 2.592187; 1.878884; 0.610540;, - 2.680440; 1.853572; 0.587786;, - 2.652873; 1.853572; 0.304259;, - 2.714630; 1.853572; 0.026927;, - 2.629806; 1.878884;-0.006558;, - 2.561855; 1.878884; 0.298584;, - 2.714630; 1.853572; 0.026927;, - 2.652873; 1.853572; 0.304259;, - 2.743890; 1.828260; 0.309935;, - 2.799454; 1.828260; 0.060412;, - 2.743890; 1.828260; 0.309935;, - 2.652873; 1.853572; 0.304259;, - 2.680440; 1.853572; 0.587786;, - 2.768693; 1.828260; 0.565032;, - 2.840078; 1.839481; 0.076447;, - 2.963730; 1.839481;-0.132165;, - 2.930079; 1.828260;-0.159964;, - 2.799454; 1.828260; 0.060412;, - 2.930079; 1.828260;-0.159964;, - 2.963730; 1.839481;-0.132165;, - 3.144687; 1.839481;-0.293058;, - 3.121238; 1.828260;-0.329927;, - 2.963730; 1.839481;-0.132165;, - 2.997381; 1.850704;-0.104368;, - 3.168136; 1.850704;-0.256188;, - 3.144687; 1.839481;-0.293058;, - 2.714630; 1.853572; 0.026927;, - 2.859812; 1.853572;-0.218008;, - 2.789545; 1.878884;-0.276052;, - 2.629806; 1.878884;-0.006558;, - 2.789545; 1.878884;-0.276052;, - 2.859812; 1.853572;-0.218008;, - 3.072275; 1.853571;-0.406914;, - 3.023313; 1.878884;-0.483900;, - 2.859812; 1.853572;-0.218008;, - 2.930079; 1.828260;-0.159964;, - 3.121238; 1.828260;-0.329927;, - 3.072275; 1.853571;-0.406914;, - 2.859812; 1.853572;-0.218008;, - 2.714630; 1.853572; 0.026927;, - 2.799454; 1.828260; 0.060412;, - 2.930079; 1.828260;-0.159964;, - 2.963730; 1.839481;-0.132165;, - 2.840078; 1.839481; 0.076447;, - 2.880700; 1.850704; 0.092483;, - 2.997381; 1.850704;-0.104368;, - 2.539102; 1.919383; 0.297165;, - 2.516348; 1.959883; 0.295746;, - 2.548060; 1.959883; 0.621917;, - 2.570124; 1.919383; 0.616229;, - 2.587393; 1.959883;-0.023300;, - 2.516348; 1.959883; 0.295746;, - 2.539102; 1.919383; 0.297165;, - 2.608599; 1.919383;-0.014928;, - 2.608599; 1.919383;-0.014928;, - 2.539102; 1.919383; 0.297165;, - 2.561855; 1.878884; 0.298584;, - 2.629806; 1.878884;-0.006558;, - 2.543158; 2.255442; 0.623180;, - 2.545610; 2.109225; 0.622549;, - 2.513819; 2.109225; 0.295588;, - 2.511291; 2.255442; 0.295431;, - 2.511291; 2.255442; 0.295431;, - 2.513819; 2.109225; 0.295588;, - 2.585037; 2.109225;-0.024229;, - 2.582681; 2.255442;-0.025160;, - 2.585037; 2.109225;-0.024229;, - 2.513819; 2.109225; 0.295588;, - 2.516348; 1.959883; 0.295746;, - 2.587393; 1.959883;-0.023300;, - 2.545610; 2.109225; 0.622549;, - 2.548060; 1.959883; 0.621917;, - 2.516348; 1.959883; 0.295746;, - 2.513819; 2.109225; 0.295588;, - 2.608599; 1.919383;-0.014928;, - 2.771978; 1.919383;-0.290564;, - 2.754411; 1.959883;-0.305075;, - 2.587393; 1.959883;-0.023300;, - 2.754411; 1.959883;-0.305075;, - 2.771978; 1.919383;-0.290564;, - 3.011072; 1.919383;-0.503147;, - 2.998832; 1.959883;-0.522393;, - 2.771978; 1.919383;-0.290564;, - 2.789545; 1.878884;-0.276052;, - 3.023313; 1.878884;-0.483900;, - 3.011072; 1.919383;-0.503147;, - 2.585037; 2.109225;-0.024229;, - 2.752460; 2.109225;-0.306687;, - 2.750508; 2.255442;-0.308300;, - 2.582681; 2.255442;-0.025160;, - 2.750508; 2.255442;-0.308300;, - 2.752460; 2.109225;-0.306687;, - 2.997472; 2.109225;-0.524531;, - 2.996111; 2.255442;-0.526670;, - 2.752460; 2.109225;-0.306687;, - 2.754411; 1.959883;-0.305075;, - 2.998832; 1.959883;-0.522393;, - 2.997472; 2.109225;-0.524531;, - 2.752460; 2.109225;-0.306687;, - 2.585037; 2.109225;-0.024229;, - 2.587393; 1.959883;-0.023300;, - 2.754411; 1.959883;-0.305075;, - 2.771978; 1.919383;-0.290564;, - 2.608599; 1.919383;-0.014928;, - 2.629806; 1.878884;-0.006558;, - 2.789545; 1.878884;-0.276052;, - 2.561855; 1.878884; 0.298584;, - 2.539102; 1.919383; 0.297165;, - 2.570124; 1.919383; 0.616229;, - 2.592187; 1.878884; 0.610540;, - 2.831067; 1.850703; 0.315372;, - 2.787478; 1.839481; 0.312654;, - 2.810957; 1.839481; 0.554136;, - 2.853223; 1.850704; 0.543238;, - 3.953017; 1.850704; 0.977918;, - 3.743118; 1.850704; 1.068190;, - 3.754025; 1.839481; 1.110453;, - 3.976466; 1.839481; 1.014788;, - 3.605788; 1.850704;-0.368666;, - 3.603005; 1.862262;-0.323765;, - 3.812192; 1.862262;-0.277260;, - 3.828694; 1.850704;-0.319111;, - 3.812192; 1.862262;-0.277260;, - 3.997043; 1.862262;-0.167758;, - 4.025670; 1.850704;-0.202428;, - 3.828694; 1.850704;-0.319111;, - 3.997043; 1.862262;-0.167758;, - 3.812192; 1.862262;-0.277260;, - 3.795690; 1.873821;-0.235409;, - 3.968418; 1.873821;-0.133088;, - 3.603005; 1.862262;-0.323765;, - 3.600222; 1.873821;-0.278864;, - 3.795690; 1.873821;-0.235409;, - 3.812192; 1.862262;-0.277260;, - 4.025670; 1.850704;-0.202428;, - 3.997043; 1.862262;-0.167758;, - 4.139638; 1.862262;-0.007414;, - 4.177615; 1.850703;-0.031567;, - 4.139638; 1.862262;-0.007414;, - 4.224393; 1.862262; 0.189716;, - 4.267931; 1.850703; 0.178491;, - 4.177615; 1.850703;-0.031567;, - 4.224393; 1.862262; 0.189716;, - 4.139638; 1.862262;-0.007414;, - 4.101661; 1.873821; 0.016740;, - 4.180858; 1.873821; 0.200941;, - 3.997043; 1.862262;-0.167758;, - 3.968418; 1.873821;-0.133088;, - 4.101661; 1.873821; 0.016740;, - 4.139638; 1.862262;-0.007414;, - 3.249085; 1.954821;-0.128908;, - 3.596462; 1.954820;-0.218184;, - 3.600222; 1.873821;-0.278864;, - 3.216443; 1.873821;-0.180232;, - 4.245186; 1.862262; 0.403558;, - 4.290086; 1.850703; 0.406357;, - 4.267931; 1.850703; 0.178491;, - 4.224393; 1.862262; 0.189716;, - 4.245186; 1.862262; 0.403558;, - 4.198607; 1.862262; 0.612729;, - 4.240453; 1.850703; 0.629246;, - 4.290086; 1.850703; 0.406357;, - 4.198607; 1.862262; 0.612729;, - 4.245186; 1.862262; 0.403558;, - 4.200286; 1.873821; 0.400758;, - 4.156762; 1.873821; 0.596210;, - 4.200286; 1.873821; 0.400758;, - 4.245186; 1.862262; 0.403558;, - 4.224393; 1.862262; 0.189716;, - 4.180858; 1.873821; 0.200941;, - 4.156762; 1.873821; 0.596210;, - 4.100213; 1.954820; 0.573887;, - 3.872067; 1.954820; 0.850637;, - 3.904710; 1.873821; 0.901962;, - 3.144687; 1.839481;-0.293058;, - 3.367128; 1.839481;-0.388723;, - 3.356220; 1.828260;-0.430987;, - 3.121238; 1.828260;-0.329927;, - 3.608489; 1.839481;-0.412256;, - 3.611191; 1.828260;-0.455846;, - 3.356220; 1.828260;-0.430987;, - 3.367128; 1.839481;-0.388723;, - 3.605788; 1.850704;-0.368666;, - 3.608489; 1.839481;-0.412256;, - 3.367128; 1.839481;-0.388723;, - 3.378034; 1.850704;-0.346461;, - 3.072275; 1.853571;-0.406914;, - 3.333446; 1.853571;-0.519235;, - 3.310671; 1.878884;-0.607485;, - 3.023313; 1.878884;-0.483900;, - 3.310671; 1.878884;-0.607485;, - 3.333446; 1.853571;-0.519235;, - 3.616832; 1.853571;-0.546866;, - 3.622472; 1.878884;-0.637885;, - 3.333446; 1.853571;-0.519235;, - 3.356220; 1.828260;-0.430987;, - 3.611191; 1.828260;-0.455846;, - 3.616832; 1.853571;-0.546866;, - 3.121238; 1.828260;-0.329927;, - 3.356220; 1.828260;-0.430987;, - 3.333446; 1.853571;-0.519235;, - 3.072275; 1.853571;-0.406914;, - 3.844714; 1.839481;-0.359740;, - 3.860734; 1.828260;-0.400369;, - 3.611191; 1.828260;-0.455846;, - 3.608489; 1.839481;-0.412256;, - 3.844714; 1.839481;-0.359740;, - 4.053458; 1.839481;-0.236085;, - 4.081248; 1.828260;-0.269742;, - 3.860734; 1.828260;-0.400369;, - 4.053458; 1.839481;-0.236085;, - 3.844714; 1.839481;-0.359740;, - 3.828694; 1.850704;-0.319111;, - 4.025670; 1.850704;-0.202428;, - 3.894185; 1.853571;-0.485205;, - 3.927638; 1.878884;-0.570043;, - 3.622472; 1.878884;-0.637885;, - 3.616832; 1.853571;-0.546866;, - 3.894185; 1.853571;-0.485205;, - 4.139275; 1.853571;-0.340021;, - 4.197301; 1.878884;-0.410300;, - 3.927638; 1.878884;-0.570043;, - 4.139275; 1.853571;-0.340021;, - 3.894185; 1.853571;-0.485205;, - 3.860734; 1.828260;-0.400369;, - 4.081248; 1.828260;-0.269742;, - 3.860734; 1.828260;-0.400369;, - 3.894185; 1.853571;-0.485205;, - 3.616832; 1.853571;-0.546866;, - 3.611191; 1.828260;-0.455846;, - 3.844714; 1.839481;-0.359740;, - 3.608489; 1.839481;-0.412256;, - 3.605788; 1.850704;-0.368666;, - 3.828694; 1.850704;-0.319111;, - 4.214484; 1.839481;-0.055015;, - 4.251352; 1.828260;-0.078463;, - 4.081248; 1.828260;-0.269742;, - 4.053458; 1.839481;-0.236085;, - 4.214484; 1.839481;-0.055015;, - 4.310195; 1.839481; 0.167595;, - 4.352460; 1.828259; 0.156697;, - 4.251352; 1.828260;-0.078463;, - 4.310195; 1.839481; 0.167595;, - 4.214484; 1.839481;-0.055015;, - 4.177615; 1.850703;-0.031567;, - 4.267931; 1.850703; 0.178491;, - 4.328338; 1.853571;-0.127425;, - 4.405321; 1.878884;-0.176386;, - 4.197301; 1.878884;-0.410300;, - 4.139275; 1.853571;-0.340021;, - 4.328338; 1.853571;-0.127425;, - 4.440713; 1.853571; 0.133944;, - 4.528965; 1.878884; 0.111190;, - 4.405321; 1.878884;-0.176386;, - 4.440713; 1.853571; 0.133944;, - 4.328338; 1.853571;-0.127425;, - 4.251352; 1.828260;-0.078463;, - 4.352460; 1.828259; 0.156697;, - 4.251352; 1.828260;-0.078463;, - 4.328338; 1.853571;-0.127425;, - 4.139275; 1.853571;-0.340021;, - 4.081248; 1.828260;-0.269742;, - 4.177615; 1.850703;-0.031567;, - 4.214484; 1.839481;-0.055015;, - 4.053458; 1.839481;-0.236085;, - 4.025670; 1.850704;-0.202428;, - 3.011072; 1.919383;-0.503147;, - 3.304977; 1.919383;-0.629547;, - 3.299283; 1.959883;-0.651609;, - 2.998832; 1.959883;-0.522393;, - 3.299283; 1.959883;-0.651609;, - 3.304977; 1.919383;-0.629547;, - 3.623883; 1.919383;-0.660640;, - 3.625293; 1.959883;-0.683395;, - 3.304977; 1.919383;-0.629547;, - 3.310671; 1.878884;-0.607485;, - 3.622472; 1.878884;-0.637885;, - 3.623883; 1.919383;-0.660640;, - 2.997472; 2.109225;-0.524531;, - 3.298651; 2.109225;-0.654060;, - 3.298018; 2.255442;-0.656512;, - 2.996111; 2.255442;-0.526670;, - 3.298018; 2.255442;-0.656512;, - 3.298651; 2.109225;-0.654060;, - 3.625450; 2.109225;-0.685923;, - 3.625606; 2.255442;-0.688452;, - 3.298651; 2.109225;-0.654060;, - 3.299283; 1.959883;-0.651609;, - 3.625293; 1.959883;-0.683395;, - 3.625450; 2.109225;-0.685923;, - 2.998832; 1.959883;-0.522393;, - 3.299283; 1.959883;-0.651609;, - 3.298651; 2.109225;-0.654060;, - 2.997472; 2.109225;-0.524531;, - 3.936000; 1.919383;-0.591251;, - 3.944363; 1.959883;-0.612460;, - 3.625293; 1.959883;-0.683395;, - 3.623883; 1.919383;-0.660640;, - 4.226315; 1.959883;-0.445439;, - 3.944363; 1.959883;-0.612460;, - 3.936000; 1.919383;-0.591251;, - 4.211808; 1.919383;-0.427869;, - 4.211808; 1.919383;-0.427869;, - 3.936000; 1.919383;-0.591251;, - 3.927638; 1.878884;-0.570043;, - 4.197301; 1.878884;-0.410300;, - 3.625450; 2.109225;-0.685923;, - 3.945292; 2.109225;-0.614817;, - 3.946222; 2.255442;-0.617173;, - 3.625606; 2.255442;-0.688452;, - 3.945292; 2.109225;-0.614817;, - 4.227927; 2.109225;-0.447391;, - 4.229539; 2.255442;-0.449344;, - 3.946222; 2.255442;-0.617173;, - 4.227927; 2.109225;-0.447391;, - 3.945292; 2.109225;-0.614817;, - 3.944363; 1.959883;-0.612460;, - 4.226315; 1.959883;-0.445439;, - 3.625450; 2.109225;-0.685923;, - 3.625293; 1.959883;-0.683395;, - 3.944363; 1.959883;-0.612460;, - 3.945292; 2.109225;-0.614817;, - 3.927638; 1.878884;-0.570043;, - 3.936000; 1.919383;-0.591251;, - 3.623883; 1.919383;-0.660640;, - 3.622472; 1.878884;-0.637885;, - 4.424568; 1.919383;-0.188627;, - 4.443814; 1.959883;-0.200867;, - 4.226315; 1.959883;-0.445439;, - 4.211808; 1.919383;-0.427869;, - 4.573092; 1.959883; 0.099814;, - 4.443814; 1.959883;-0.200867;, - 4.424568; 1.919383;-0.188627;, - 4.551028; 1.919383; 0.105502;, - 4.551028; 1.919383; 0.105502;, - 4.424568; 1.919383;-0.188627;, - 4.405321; 1.878884;-0.176386;, - 4.528965; 1.878884; 0.111190;, - 4.229539; 2.255442;-0.449344;, - 4.227927; 2.109225;-0.447391;, - 4.445952; 2.109225;-0.202227;, - 4.448090; 2.255442;-0.203587;, - 4.445952; 2.109225;-0.202227;, - 4.575543; 2.109225; 0.099181;, - 4.577994; 2.255442; 0.098549;, - 4.448090; 2.255442;-0.203587;, - 4.575543; 2.109225; 0.099181;, - 4.445952; 2.109225;-0.202227;, - 4.443814; 1.959883;-0.200867;, - 4.573092; 1.959883; 0.099814;, - 4.227927; 2.109225;-0.447391;, - 4.226315; 1.959883;-0.445439;, - 4.443814; 1.959883;-0.200867;, - 4.445952; 2.109225;-0.202227;, - 4.405321; 1.878884;-0.176386;, - 4.424568; 1.919383;-0.188627;, - 4.211808; 1.919383;-0.427869;, - 4.197301; 1.878884;-0.410300;, - 3.023313; 1.878884;-0.483900;, - 3.310671; 1.878884;-0.607485;, - 3.304977; 1.919383;-0.629547;, - 3.011072; 1.919383;-0.503147;, - 4.333674; 1.839481; 0.409076;, - 4.377263; 1.828259; 0.411794;, - 4.352460; 1.828259; 0.156697;, - 4.310195; 1.839481; 0.167595;, - 4.333674; 1.839481; 0.409076;, - 4.281075; 1.839481; 0.645282;, - 4.321698; 1.828259; 0.661318;, - 4.377263; 1.828259; 0.411794;, - 4.240453; 1.850703; 0.629246;, - 4.281075; 1.839481; 0.645282;, - 4.333674; 1.839481; 0.409076;, - 4.290086; 1.850703; 0.406357;, - 4.468280; 1.853571; 0.417470;, - 4.559298; 1.878884; 0.423146;, - 4.528965; 1.878884; 0.111190;, - 4.440713; 1.853571; 0.133944;, - 4.468280; 1.853571; 0.417470;, - 4.406522; 1.853571; 0.694803;, - 4.491347; 1.878884; 0.728287;, - 4.559298; 1.878884; 0.423146;, - 4.406522; 1.853571; 0.694803;, - 4.468280; 1.853571; 0.417470;, - 4.377263; 1.828259; 0.411794;, - 4.321698; 1.828259; 0.661318;, - 4.377263; 1.828259; 0.411794;, - 4.468280; 1.853571; 0.417470;, - 4.440713; 1.853571; 0.133944;, - 4.352460; 1.828259; 0.156697;, - 4.281075; 1.839481; 0.645282;, - 4.157423; 1.839481; 0.853895;, - 4.191074; 1.828260; 0.881694;, - 4.321698; 1.828259; 0.661318;, - 4.191074; 1.828260; 0.881694;, - 4.157423; 1.839481; 0.853895;, - 3.976466; 1.839481; 1.014788;, - 3.999915; 1.828260; 1.051657;, - 4.157423; 1.839481; 0.853895;, - 4.123771; 1.850703; 0.826097;, - 3.953017; 1.850704; 0.977918;, - 3.976466; 1.839481; 1.014788;, - 4.406522; 1.853571; 0.694803;, - 4.261341; 1.853571; 0.939738;, - 4.331608; 1.878884; 0.997782;, - 4.491347; 1.878884; 0.728287;, - 4.331608; 1.878884; 0.997782;, - 4.261341; 1.853571; 0.939738;, - 4.048877; 1.853571; 1.128643;, - 4.097840; 1.878884; 1.205630;, - 4.261341; 1.853571; 0.939738;, - 4.191074; 1.828260; 0.881694;, - 3.999915; 1.828260; 1.051657;, - 4.048877; 1.853571; 1.128643;, - 4.261341; 1.853571; 0.939738;, - 4.406522; 1.853571; 0.694803;, - 4.321698; 1.828259; 0.661318;, - 4.191074; 1.828260; 0.881694;, - 4.157423; 1.839481; 0.853895;, - 4.281075; 1.839481; 0.645282;, - 4.240453; 1.850703; 0.629246;, - 4.123771; 1.850703; 0.826097;, - 4.582051; 1.919383; 0.424565;, - 4.604805; 1.959883; 0.425984;, - 4.573092; 1.959883; 0.099814;, - 4.551028; 1.919383; 0.105502;, - 4.582051; 1.919383; 0.424565;, - 4.512553; 1.919383; 0.736658;, - 4.533760; 1.959883; 0.745029;, - 4.604805; 1.959883; 0.425984;, - 4.512553; 1.919383; 0.736658;, - 4.582051; 1.919383; 0.424565;, - 4.559298; 1.878884; 0.423146;, - 4.491347; 1.878884; 0.728287;, - 4.607334; 2.109225; 0.426141;, - 4.609862; 2.255442; 0.426299;, - 4.577994; 2.255442; 0.098549;, - 4.575543; 2.109225; 0.099181;, - 4.607334; 2.109225; 0.426141;, - 4.536115; 2.109225; 0.745959;, - 4.538471; 2.255442; 0.746889;, - 4.609862; 2.255442; 0.426299;, - 4.536115; 2.109225; 0.745959;, - 4.607334; 2.109225; 0.426141;, - 4.604805; 1.959883; 0.425984;, - 4.533760; 1.959883; 0.745029;, - 4.604805; 1.959883; 0.425984;, - 4.607334; 2.109225; 0.426141;, - 4.575543; 2.109225; 0.099181;, - 4.573092; 1.959883; 0.099814;, - 4.512553; 1.919383; 0.736658;, - 4.349174; 1.919383; 1.012293;, - 4.366741; 1.959883; 1.026805;, - 4.533760; 1.959883; 0.745029;, - 4.366741; 1.959883; 1.026805;, - 4.349174; 1.919383; 1.012293;, - 4.110081; 1.919383; 1.224876;, - 4.122321; 1.959883; 1.244123;, - 4.349174; 1.919383; 1.012293;, - 4.331608; 1.878884; 0.997782;, - 4.097840; 1.878884; 1.205630;, - 4.110081; 1.919383; 1.224876;, - 4.536115; 2.109225; 0.745959;, - 4.368693; 2.109225; 1.028417;, - 4.370645; 2.255442; 1.030030;, - 4.538471; 2.255442; 0.746889;, - 4.370645; 2.255442; 1.030030;, - 4.368693; 2.109225; 1.028417;, - 4.123681; 2.109225; 1.246261;, - 4.125041; 2.255442; 1.248400;, - 4.368693; 2.109225; 1.028417;, - 4.366741; 1.959883; 1.026805;, - 4.122321; 1.959883; 1.244123;, - 4.123681; 2.109225; 1.246261;, - 4.368693; 2.109225; 1.028417;, - 4.536115; 2.109225; 0.745959;, - 4.533760; 1.959883; 0.745029;, - 4.366741; 1.959883; 1.026805;, - 4.349174; 1.919383; 1.012293;, - 4.512553; 1.919383; 0.736658;, - 4.491347; 1.878884; 0.728287;, - 4.331608; 1.878884; 0.997782;, - 4.559298; 1.878884; 0.423146;, - 4.582051; 1.919383; 0.424565;, - 4.551028; 1.919383; 0.105502;, - 4.528965; 1.878884; 0.111190;, - 4.290086; 1.850703; 0.406357;, - 4.333674; 1.839481; 0.409076;, - 4.310195; 1.839481; 0.167595;, - 4.267931; 1.850703; 0.178491;, - 3.367128; 1.839481;-0.388723;, - 3.144687; 1.839481;-0.293058;, - 3.168136; 1.850704;-0.256188;, - 3.378034; 1.850704;-0.346461;, - 3.707015; 2.308005; 0.481832;, - 3.662617; 2.308005; 0.521308;, - 3.615014; 2.310536; 0.446460;, - 3.638700; 2.310536; 0.425400;, - 3.654886; 2.310536; 0.398093;, - 3.737353; 2.308005; 0.430648;, - 3.707015; 2.308005; 0.481832;, - 3.638700; 2.310536; 0.425400;, - 3.654886; 2.310536; 0.398093;, - 3.638700; 2.310536; 0.425400;, - 3.559936; 2.313066; 0.360335;, - 3.654886; 2.310536; 0.398093;, - 3.661770; 2.310536; 0.367175;, - 3.750259; 2.308005; 0.372693;, - 3.737353; 2.308005; 0.430648;, - 3.661770; 2.310536; 0.367175;, - 3.658696; 2.310536; 0.335567;, - 3.744498; 2.308005; 0.313446;, - 3.750259; 2.308005; 0.372693;, - 3.658696; 2.310536; 0.335567;, - 3.661770; 2.310536; 0.367175;, - 3.559936; 2.313066; 0.360335;, - 3.661770; 2.310536; 0.367175;, - 3.654886; 2.310536; 0.398093;, - 3.559936; 2.313066; 0.360335;, - 3.646168; 2.310536; 0.306429;, - 3.721015; 2.308005; 0.258827;, - 3.744498; 2.308005; 0.313446;, - 3.658696; 2.310536; 0.335567;, - 3.646168; 2.310536; 0.306429;, - 3.625091; 2.310536; 0.282728;, - 3.681506; 2.308005; 0.214401;, - 3.721015; 2.308005; 0.258827;, - 3.625091; 2.310536; 0.282728;, - 3.646168; 2.310536; 0.306429;, - 3.559936; 2.313066; 0.360335;, - 3.658696; 2.310536; 0.335567;, - 3.559936; 2.313066; 0.360335;, - 3.646168; 2.310536; 0.306429;, - 3.746941; 2.361160; 0.653895;, - 3.828030; 2.361160; 0.581797;, - 3.902200; 2.363691; 0.643066;, - 3.798624; 2.363691; 0.735158;, - 3.902200; 2.363691; 0.643066;, - 3.828030; 2.361160; 0.581797;, - 3.883440; 2.361160; 0.488315;, - 3.972976; 2.363691; 0.523660;, - 3.828030; 2.361160; 0.581797;, - 3.753860; 2.358629; 0.520528;, - 3.793903; 2.358629; 0.452970;, - 3.883440; 2.361160; 0.488315;, - 3.907010; 2.361160; 0.382469;, - 4.003083; 2.363691; 0.388460;, - 3.972976; 2.363691; 0.523660;, - 3.883440; 2.361160; 0.488315;, - 3.989644; 2.363691; 0.250240;, - 4.003083; 2.363691; 0.388460;, - 3.907010; 2.361160; 0.382469;, - 3.896489; 2.361160; 0.274259;, - 3.896489; 2.361160; 0.274259;, - 3.907010; 2.361160; 0.382469;, - 3.810937; 2.358629; 0.376478;, - 3.803333; 2.358629; 0.298276;, - 3.810937; 2.358629; 0.376478;, - 3.907010; 2.361160; 0.382469;, - 3.883440; 2.361160; 0.488315;, - 3.793903; 2.358629; 0.452970;, - 3.853599; 2.361160; 0.174505;, - 3.934861; 2.363691; 0.122823;, - 3.989644; 2.363691; 0.250240;, - 3.896489; 2.361160; 0.274259;, - 3.842693; 2.363691; 0.019182;, - 3.934861; 2.363691; 0.122823;, - 3.853599; 2.361160; 0.174505;, - 3.781442; 2.361160; 0.093365;, - 3.781442; 2.361160; 0.093365;, - 3.853599; 2.361160; 0.174505;, - 3.772338; 2.358629; 0.226186;, - 3.720192; 2.358629; 0.167549;, - 3.772338; 2.358629; 0.226186;, - 3.853599; 2.361160; 0.174505;, - 3.896489; 2.361160; 0.274259;, - 3.803333; 2.358629; 0.298276;, - 3.695258; 2.358629; 0.572632;, - 3.753860; 2.358629; 0.520528;, - 3.828030; 2.361160; 0.581797;, - 3.746941; 2.361160; 0.653895;, - 3.597768; 2.310536; 0.266541;, - 3.630291; 2.308005; 0.184062;, - 3.681506; 2.308005; 0.214401;, - 3.625091; 2.310536; 0.282728;, - 3.597768; 2.310536; 0.266541;, - 3.566848; 2.310536; 0.259667;, - 3.572332; 2.308005; 0.171177;, - 3.630291; 2.308005; 0.184062;, - 3.566848; 2.310536; 0.259667;, - 3.597768; 2.310536; 0.266541;, - 3.559936; 2.313066; 0.360335;, - 3.566848; 2.310536; 0.259667;, - 3.535255; 2.310536; 0.262748;, - 3.513113; 2.308005; 0.176950;, - 3.572332; 2.308005; 0.171177;, - 3.506139; 2.310536; 0.275270;, - 3.458536; 2.308005; 0.200422;, - 3.513113; 2.308005; 0.176950;, - 3.535255; 2.310536; 0.262748;, - 3.506139; 2.310536; 0.275270;, - 3.535255; 2.310536; 0.262748;, - 3.559936; 2.313066; 0.360335;, - 3.535255; 2.310536; 0.262748;, - 3.566848; 2.310536; 0.259667;, - 3.559936; 2.313066; 0.360335;, - 3.687901; 2.361160; 0.037954;, - 3.723212; 2.363691;-0.051596;, - 3.842693; 2.363691; 0.019182;, - 3.781442; 2.361160; 0.093365;, - 3.723212; 2.363691;-0.051596;, - 3.687901; 2.361160; 0.037954;, - 3.582047; 2.361160; 0.014421;, - 3.588001; 2.363691;-0.081655;, - 3.582047; 2.361160; 0.014421;, - 3.687901; 2.361160; 0.037954;, - 3.652592; 2.358629; 0.127504;, - 3.576093; 2.358629; 0.110497;, - 3.582047; 2.361160; 0.014421;, - 3.473890; 2.361160; 0.024966;, - 3.449850; 2.363691;-0.068186;, - 3.588001; 2.363691;-0.081655;, - 3.449850; 2.363691;-0.068186;, - 3.473890; 2.361160; 0.024966;, - 3.374212; 2.361160; 0.067835;, - 3.322529; 2.363691;-0.013428;, - 3.473890; 2.361160; 0.024966;, - 3.497930; 2.358629; 0.118118;, - 3.425894; 2.358629; 0.149098;, - 3.374212; 2.361160; 0.067835;, - 3.473890; 2.361160; 0.024966;, - 3.582047; 2.361160; 0.014421;, - 3.576093; 2.358629; 0.110497;, - 3.497930; 2.358629; 0.118118;, - 3.652592; 2.358629; 0.127504;, - 3.687901; 2.361160; 0.037954;, - 3.781442; 2.361160; 0.093365;, - 3.720192; 2.358629; 0.167549;, - 3.597768; 2.310536; 0.266541;, - 3.625091; 2.310536; 0.282728;, - 3.559936; 2.313066; 0.360335;, - 3.803160; 2.393011; 0.742291;, - 3.980835; 2.393011; 0.526762;, - 4.010676; 2.389004; 0.538542;, - 3.820385; 2.389004; 0.769375;, - 3.997821; 2.393010; 0.248132;, - 3.848069; 2.393010; 0.012670;, - 3.868483; 2.389004;-0.012053;, - 4.028868; 2.389004; 0.240127;, - 3.997821; 2.393010; 0.248132;, - 3.989644; 2.394067; 0.250240;, - 3.842693; 2.394067; 0.019182;, - 3.848069; 2.393010; 0.012670;, - 3.820385; 2.551002; 0.769375;, - 4.010676; 2.551002; 0.538542;, - 4.029526; 2.581376; 0.545983;, - 3.831265; 2.581376; 0.786482;, - 4.010676; 2.551002; 0.538542;, - 4.028868; 2.551002; 0.240127;, - 4.048479; 2.581376; 0.235071;, - 4.029526; 2.581376; 0.545983;, - 4.028868; 2.551002; 0.240127;, - 4.010676; 2.551002; 0.538542;, - 4.010676; 2.389004; 0.538542;, - 4.028868; 2.389004; 0.240127;, - 4.048479; 2.581376; 0.235071;, - 4.028868; 2.551002; 0.240127;, - 3.868483; 2.551002;-0.012053;, - 3.881377; 2.581376;-0.027671;, - 3.868483; 2.551002;-0.012053;, - 4.028868; 2.551002; 0.240127;, - 4.028868; 2.389004; 0.240127;, - 3.868483; 2.389004;-0.012053;, - 3.820385; 2.389004; 0.769375;, - 4.010676; 2.389004; 0.538542;, - 4.010676; 2.551002; 0.538542;, - 3.820385; 2.551002; 0.769375;, - 3.590508; 2.389004;-0.122108;, - 3.588524; 2.393011;-0.090088;, - 3.317992; 2.393011;-0.020561;, - 3.300768; 2.389004;-0.047645;, - 3.588524; 2.393011;-0.090088;, - 3.588001; 2.394067;-0.081655;, - 3.322529; 2.394067;-0.013428;, - 3.317992; 2.393011;-0.020561;, - 3.881377; 2.581376;-0.027671;, - 3.868483; 2.551002;-0.012053;, - 3.590508; 2.551002;-0.122108;, - 3.591762; 2.581376;-0.142335;, - 3.591762; 2.581376;-0.142335;, - 3.590508; 2.551002;-0.122108;, - 3.300768; 2.551002;-0.047645;, - 3.289887; 2.581376;-0.064752;, - 3.300768; 2.551002;-0.047645;, - 3.590508; 2.551002;-0.122108;, - 3.590508; 2.389004;-0.122108;, - 3.300768; 2.389004;-0.047645;, - 3.590508; 2.551002;-0.122108;, - 3.868483; 2.551002;-0.012053;, - 3.868483; 2.389004;-0.012053;, - 3.590508; 2.389004;-0.122108;, - 3.798624; 2.394067; 0.735158;, - 3.972976; 2.394067; 0.523660;, - 3.980835; 2.393011; 0.526762;, - 3.803160; 2.393011; 0.742291;, - 3.506139; 2.310536; 0.275270;, - 3.482453; 2.310536; 0.296330;, - 3.414138; 2.308005; 0.239898;, - 3.458536; 2.308005; 0.200422;, - 3.466267; 2.310536; 0.323636;, - 3.383800; 2.308005; 0.291082;, - 3.414138; 2.308005; 0.239898;, - 3.482453; 2.310536; 0.296330;, - 3.466267; 2.310536; 0.323636;, - 3.482453; 2.310536; 0.296330;, - 3.559936; 2.313066; 0.360335;, - 3.459382; 2.310536; 0.354554;, - 3.370894; 2.308005; 0.349036;, - 3.383800; 2.308005; 0.291082;, - 3.466267; 2.310536; 0.323636;, - 3.459382; 2.310536; 0.354554;, - 3.462455; 2.310536; 0.386163;, - 3.376654; 2.308005; 0.408285;, - 3.370894; 2.308005; 0.349036;, - 3.462455; 2.310536; 0.386163;, - 3.459382; 2.310536; 0.354554;, - 3.559936; 2.313066; 0.360335;, - 3.459382; 2.310536; 0.354554;, - 3.466267; 2.310536; 0.323636;, - 3.559936; 2.313066; 0.360335;, - 3.474983; 2.310536; 0.415301;, - 3.400138; 2.308005; 0.462903;, - 3.376654; 2.308005; 0.408285;, - 3.462455; 2.310536; 0.386163;, - 3.474983; 2.310536; 0.415301;, - 3.496060; 2.310536; 0.439002;, - 3.439646; 2.308005; 0.507329;, - 3.400138; 2.308005; 0.462903;, - 3.496060; 2.310536; 0.439002;, - 3.474983; 2.310536; 0.415301;, - 3.559936; 2.313066; 0.360335;, - 3.474983; 2.310536; 0.415301;, - 3.462455; 2.310536; 0.386163;, - 3.559936; 2.313066; 0.360335;, - 3.374212; 2.361160; 0.067835;, - 3.293122; 2.361160; 0.139933;, - 3.218952; 2.363691; 0.078663;, - 3.322529; 2.363691;-0.013428;, - 3.218952; 2.363691; 0.078663;, - 3.293122; 2.361160; 0.139933;, - 3.237713; 2.361160; 0.233415;, - 3.148176; 2.363691; 0.198069;, - 3.293122; 2.361160; 0.139933;, - 3.367294; 2.358629; 0.201202;, - 3.327250; 2.358629; 0.268759;, - 3.237713; 2.361160; 0.233415;, - 3.237713; 2.361160; 0.233415;, - 3.214143; 2.361160; 0.339261;, - 3.118070; 2.363691; 0.333270;, - 3.148176; 2.363691; 0.198069;, - 3.131509; 2.363691; 0.471489;, - 3.118070; 2.363691; 0.333270;, - 3.214143; 2.361160; 0.339261;, - 3.224664; 2.361160; 0.447471;, - 3.224664; 2.361160; 0.447471;, - 3.214143; 2.361160; 0.339261;, - 3.310216; 2.358629; 0.345252;, - 3.317820; 2.358629; 0.423454;, - 3.310216; 2.358629; 0.345252;, - 3.214143; 2.361160; 0.339261;, - 3.237713; 2.361160; 0.233415;, - 3.327250; 2.358629; 0.268759;, - 3.267554; 2.361160; 0.547225;, - 3.186292; 2.363691; 0.598907;, - 3.131509; 2.363691; 0.471489;, - 3.224664; 2.361160; 0.447471;, - 3.278460; 2.363691; 0.702547;, - 3.186292; 2.363691; 0.598907;, - 3.267554; 2.361160; 0.547225;, - 3.339711; 2.361160; 0.628365;, - 3.339711; 2.361160; 0.628365;, - 3.267554; 2.361160; 0.547225;, - 3.348815; 2.358629; 0.495544;, - 3.400961; 2.358629; 0.554181;, - 3.348815; 2.358629; 0.495544;, - 3.267554; 2.361160; 0.547225;, - 3.224664; 2.361160; 0.447471;, - 3.317820; 2.358629; 0.423454;, - 3.425894; 2.358629; 0.149098;, - 3.367294; 2.358629; 0.201202;, - 3.293122; 2.361160; 0.139933;, - 3.374212; 2.361160; 0.067835;, - 3.523384; 2.310536; 0.455188;, - 3.490862; 2.308005; 0.537668;, - 3.439646; 2.308005; 0.507329;, - 3.496060; 2.310536; 0.439002;, - 3.554304; 2.310536; 0.462062;, - 3.548821; 2.308005; 0.550553;, - 3.490862; 2.308005; 0.537668;, - 3.523384; 2.310536; 0.455188;, - 3.554304; 2.310536; 0.462062;, - 3.523384; 2.310536; 0.455188;, - 3.559936; 2.313066; 0.360335;, - 3.554304; 2.310536; 0.462062;, - 3.585898; 2.310536; 0.458981;, - 3.608040; 2.308005; 0.544779;, - 3.548821; 2.308005; 0.550553;, - 3.608040; 2.308005; 0.544779;, - 3.585898; 2.310536; 0.458981;, - 3.615014; 2.310536; 0.446460;, - 3.662617; 2.308005; 0.521308;, - 3.585898; 2.310536; 0.458981;, - 3.559936; 2.313066; 0.360335;, - 3.615014; 2.310536; 0.446460;, - 3.585898; 2.310536; 0.458981;, - 3.554304; 2.310536; 0.462062;, - 3.559936; 2.313066; 0.360335;, - 3.433251; 2.361160; 0.683775;, - 3.397942; 2.363691; 0.773325;, - 3.278460; 2.363691; 0.702547;, - 3.339711; 2.361160; 0.628365;, - 3.433251; 2.361160; 0.683775;, - 3.539106; 2.361160; 0.707309;, - 3.533152; 2.363691; 0.803384;, - 3.397942; 2.363691; 0.773325;, - 3.539106; 2.361160; 0.707309;, - 3.433251; 2.361160; 0.683775;, - 3.468561; 2.358629; 0.594226;, - 3.545060; 2.358629; 0.611233;, - 3.539106; 2.361160; 0.707309;, - 3.647262; 2.361160; 0.696764;, - 3.671303; 2.363691; 0.789915;, - 3.533152; 2.363691; 0.803384;, - 3.671303; 2.363691; 0.789915;, - 3.647262; 2.361160; 0.696764;, - 3.746941; 2.361160; 0.653895;, - 3.798624; 2.363691; 0.735158;, - 3.647262; 2.361160; 0.696764;, - 3.623223; 2.358629; 0.603612;, - 3.695258; 2.358629; 0.572632;, - 3.746941; 2.361160; 0.653895;, - 3.647262; 2.361160; 0.696764;, - 3.539106; 2.361160; 0.707309;, - 3.545060; 2.358629; 0.611233;, - 3.623223; 2.358629; 0.603612;, - 3.468561; 2.358629; 0.594226;, - 3.433251; 2.361160; 0.683775;, - 3.339711; 2.361160; 0.628365;, - 3.400961; 2.358629; 0.554181;, - 3.523384; 2.310536; 0.455188;, - 3.496060; 2.310536; 0.439002;, - 3.559936; 2.313066; 0.360335;, - 3.317992; 2.393011;-0.020561;, - 3.140317; 2.393011; 0.194968;, - 3.110477; 2.389004; 0.183187;, - 3.300768; 2.389004;-0.047645;, - 3.140317; 2.393011; 0.194968;, - 3.123331; 2.393011; 0.473597;, - 3.092285; 2.389004; 0.481603;, - 3.110477; 2.389004; 0.183187;, - 3.123331; 2.393011; 0.473597;, - 3.140317; 2.393011; 0.194968;, - 3.148176; 2.394067; 0.198069;, - 3.131509; 2.394067; 0.471489;, - 3.273083; 2.393011; 0.709059;, - 3.252670; 2.389004; 0.733783;, - 3.092285; 2.389004; 0.481603;, - 3.123331; 2.393011; 0.473597;, - 3.273083; 2.393011; 0.709059;, - 3.123331; 2.393011; 0.473597;, - 3.131509; 2.394067; 0.471489;, - 3.278460; 2.394067; 0.702547;, - 3.300768; 2.551002;-0.047645;, - 3.110477; 2.551002; 0.183187;, - 3.091628; 2.581376; 0.175746;, - 3.289887; 2.581376;-0.064752;, - 3.110477; 2.551002; 0.183187;, - 3.092285; 2.551002; 0.481603;, - 3.072673; 2.581376; 0.486658;, - 3.091628; 2.581376; 0.175746;, - 3.092285; 2.551002; 0.481603;, - 3.110477; 2.551002; 0.183187;, - 3.110477; 2.389004; 0.183187;, - 3.092285; 2.389004; 0.481603;, - 3.092285; 2.551002; 0.481603;, - 3.252670; 2.551002; 0.733783;, - 3.239775; 2.581376; 0.749400;, - 3.072673; 2.581376; 0.486658;, - 3.252670; 2.551002; 0.733783;, - 3.092285; 2.551002; 0.481603;, - 3.092285; 2.389004; 0.481603;, - 3.252670; 2.389004; 0.733783;, - 3.300768; 2.389004;-0.047645;, - 3.110477; 2.389004; 0.183187;, - 3.110477; 2.551002; 0.183187;, - 3.300768; 2.551002;-0.047645;, - 3.532629; 2.393011; 0.811818;, - 3.530645; 2.389004; 0.843837;, - 3.252670; 2.389004; 0.733783;, - 3.273083; 2.393011; 0.709059;, - 3.530645; 2.389004; 0.843837;, - 3.532629; 2.393011; 0.811818;, - 3.803160; 2.393011; 0.742291;, - 3.820385; 2.389004; 0.769375;, - 3.532629; 2.393011; 0.811818;, - 3.533152; 2.394067; 0.803384;, - 3.798624; 2.394067; 0.735158;, - 3.803160; 2.393011; 0.742291;, - 3.530645; 2.551002; 0.843837;, - 3.529392; 2.581376; 0.864064;, - 3.239775; 2.581376; 0.749400;, - 3.252670; 2.551002; 0.733783;, - 3.529392; 2.581376; 0.864064;, - 3.530645; 2.551002; 0.843837;, - 3.820385; 2.551002; 0.769375;, - 3.831265; 2.581376; 0.786482;, - 3.820385; 2.551002; 0.769375;, - 3.530645; 2.551002; 0.843837;, - 3.530645; 2.389004; 0.843837;, - 3.820385; 2.389004; 0.769375;, - 3.530645; 2.389004; 0.843837;, - 3.530645; 2.551002; 0.843837;, - 3.252670; 2.551002; 0.733783;, - 3.252670; 2.389004; 0.733783;, - 3.533152; 2.394067; 0.803384;, - 3.532629; 2.393011; 0.811818;, - 3.273083; 2.393011; 0.709059;, - 3.278460; 2.394067; 0.702547;, - 3.140317; 2.393011; 0.194968;, - 3.317992; 2.393011;-0.020561;, - 3.322529; 2.394067;-0.013428;, - 3.148176; 2.394067; 0.198069;, - 3.482453; 2.310536; 0.296330;, - 3.506139; 2.310536; 0.275270;, - 3.559936; 2.313066; 0.360335;, - 3.869348; 2.586439; 0.846361;, - 4.095500; 2.586439; 0.572026;, - 4.100213; 2.556065; 0.573887;, - 3.872067; 2.556065; 0.850637;, - 4.095500; 2.586439; 0.572026;, - 4.117121; 2.586439; 0.217373;, - 4.122023; 2.556065; 0.216110;, - 4.100213; 2.556065; 0.573887;, - 4.117121; 2.586439; 0.217373;, - 4.095500; 2.586439; 0.572026;, - 4.029526; 2.581376; 0.545983;, - 4.048479; 2.581376; 0.235071;, - 4.117121; 2.586439; 0.217373;, - 3.926510; 2.586439;-0.082332;, - 3.929733; 2.556065;-0.086236;, - 4.122023; 2.556065; 0.216110;, - 3.926510; 2.586439;-0.082332;, - 4.117121; 2.586439; 0.217373;, - 4.048479; 2.581376; 0.235071;, - 3.881377; 2.581376;-0.027671;, - 4.198607; 2.648622; 0.612729;, - 4.245186; 2.648622; 0.403558;, - 4.290085; 2.660181; 0.406358;, - 4.240452; 2.660181; 0.629247;, - 4.245186; 2.648622; 0.403558;, - 4.224394; 2.648622; 0.189716;, - 4.267931; 2.660181; 0.178491;, - 4.290085; 2.660181; 0.406358;, - 4.224394; 2.648622; 0.189716;, - 4.245186; 2.648622; 0.403558;, - 4.200285; 2.637064; 0.400758;, - 4.180858; 2.637064; 0.200941;, - 4.198607; 2.648622; 0.612729;, - 4.156762; 2.637064; 0.596210;, - 4.200285; 2.637064; 0.400758;, - 4.245186; 2.648622; 0.403558;, - 4.267931; 2.660181; 0.178491;, - 4.224394; 2.648622; 0.189716;, - 4.139639; 2.648622;-0.007414;, - 4.177615; 2.660181;-0.031567;, - 4.139639; 2.648622;-0.007414;, - 3.997044; 2.648622;-0.167758;, - 4.025670; 2.660181;-0.202428;, - 4.177615; 2.660181;-0.031567;, - 3.997044; 2.648622;-0.167758;, - 4.139639; 2.648622;-0.007414;, - 4.101661; 2.637064; 0.016740;, - 3.968418; 2.637064;-0.133088;, - 4.224394; 2.648622; 0.189716;, - 4.180858; 2.637064; 0.200941;, - 4.101661; 2.637064; 0.016740;, - 4.139639; 2.648622;-0.007414;, - 3.872067; 2.556065; 0.850637;, - 4.100213; 2.556065; 0.573887;, - 4.156762; 2.637064; 0.596210;, - 3.904710; 2.637064; 0.901962;, - 3.596149; 2.586439;-0.213127;, - 3.596462; 2.556065;-0.218184;, - 3.929733; 2.556065;-0.086236;, - 3.926510; 2.586439;-0.082332;, - 3.251805; 2.586439;-0.124631;, - 3.249085; 2.556065;-0.128908;, - 3.596462; 2.556065;-0.218184;, - 3.596149; 2.586439;-0.213127;, - 3.289887; 2.581376;-0.064752;, - 3.251805; 2.586439;-0.124631;, - 3.596149; 2.586439;-0.213127;, - 3.591762; 2.581376;-0.142335;, - 3.812192; 2.648622;-0.277260;, - 3.828694; 2.660181;-0.319110;, - 4.025670; 2.660181;-0.202428;, - 3.997044; 2.648622;-0.167758;, - 3.828694; 2.660181;-0.319110;, - 3.812192; 2.648622;-0.277260;, - 3.603005; 2.648622;-0.323765;, - 3.605787; 2.660181;-0.368666;, - 3.603005; 2.648622;-0.323765;, - 3.812192; 2.648622;-0.277260;, - 3.795689; 2.637064;-0.235408;, - 3.600222; 2.637064;-0.278864;, - 3.795689; 2.637064;-0.235408;, - 3.812192; 2.648622;-0.277260;, - 3.997044; 2.648622;-0.167758;, - 3.968418; 2.637064;-0.133088;, - 3.600222; 2.637064;-0.278864;, - 3.596462; 2.556065;-0.218184;, - 3.249085; 2.556065;-0.128908;, - 3.216443; 2.637064;-0.180232;, - 3.591762; 2.581376;-0.142335;, - 3.596149; 2.586439;-0.213127;, - 3.926510; 2.586439;-0.082332;, - 3.881377; 2.581376;-0.027671;, - 3.976466; 2.671403; 1.014788;, - 4.157423; 2.671403; 0.853895;, - 4.191075; 2.682625; 0.881693;, - 3.999915; 2.682625; 1.051657;, - 4.191075; 2.682625; 0.881693;, - 4.157423; 2.671403; 0.853895;, - 4.281075; 2.671403; 0.645282;, - 4.321698; 2.682625; 0.661318;, - 4.157423; 2.671403; 0.853895;, - 4.123772; 2.660181; 0.826097;, - 4.240452; 2.660181; 0.629247;, - 4.281075; 2.671403; 0.645282;, - 4.048877; 2.657313; 1.128643;, - 4.261341; 2.657312; 0.939738;, - 4.331608; 2.632001; 0.997782;, - 4.097840; 2.632001; 1.205630;, - 4.331608; 2.632001; 0.997782;, - 4.261341; 2.657312; 0.939738;, - 4.406522; 2.657312; 0.694803;, - 4.491347; 2.632001; 0.728287;, - 4.261341; 2.657312; 0.939738;, - 4.191075; 2.682625; 0.881693;, - 4.321698; 2.682625; 0.661318;, - 4.406522; 2.657312; 0.694803;, - 3.999915; 2.682625; 1.051657;, - 4.191075; 2.682625; 0.881693;, - 4.261341; 2.657312; 0.939738;, - 4.048877; 2.657313; 1.128643;, - 4.333675; 2.671403; 0.409076;, - 4.377264; 2.682625; 0.411794;, - 4.321698; 2.682625; 0.661318;, - 4.281075; 2.671403; 0.645282;, - 4.352460; 2.682625; 0.156697;, - 4.377264; 2.682625; 0.411794;, - 4.333675; 2.671403; 0.409076;, - 4.310196; 2.671403; 0.167594;, - 4.310196; 2.671403; 0.167594;, - 4.333675; 2.671403; 0.409076;, - 4.290085; 2.660181; 0.406358;, - 4.267931; 2.660181; 0.178491;, - 4.491347; 2.632001; 0.728287;, - 4.406522; 2.657312; 0.694803;, - 4.468280; 2.657312; 0.417470;, - 4.559297; 2.632001; 0.423146;, - 4.468280; 2.657312; 0.417470;, - 4.440713; 2.657312; 0.133944;, - 4.528966; 2.632001; 0.111190;, - 4.559297; 2.632001; 0.423146;, - 4.440713; 2.657312; 0.133944;, - 4.468280; 2.657312; 0.417470;, - 4.377264; 2.682625; 0.411794;, - 4.352460; 2.682625; 0.156697;, - 4.468280; 2.657312; 0.417470;, - 4.406522; 2.657312; 0.694803;, - 4.321698; 2.682625; 0.661318;, - 4.377264; 2.682625; 0.411794;, - 4.290085; 2.660181; 0.406358;, - 4.333675; 2.671403; 0.409076;, - 4.281075; 2.671403; 0.645282;, - 4.240452; 2.660181; 0.629247;, - 4.214484; 2.671403;-0.055015;, - 4.251353; 2.682625;-0.078463;, - 4.352460; 2.682625; 0.156697;, - 4.310196; 2.671403; 0.167594;, - 4.081248; 2.682625;-0.269742;, - 4.251353; 2.682625;-0.078463;, - 4.214484; 2.671403;-0.055015;, - 4.053459; 2.671403;-0.236086;, - 4.053459; 2.671403;-0.236086;, - 4.214484; 2.671403;-0.055015;, - 4.177615; 2.660181;-0.031567;, - 4.025670; 2.660181;-0.202428;, - 4.528966; 2.632001; 0.111190;, - 4.440713; 2.657312; 0.133944;, - 4.328337; 2.657312;-0.127424;, - 4.405322; 2.632001;-0.176386;, - 4.328337; 2.657312;-0.127424;, - 4.139275; 2.657313;-0.340021;, - 4.197302; 2.632001;-0.410300;, - 4.405322; 2.632001;-0.176386;, - 4.139275; 2.657313;-0.340021;, - 4.328337; 2.657312;-0.127424;, - 4.251353; 2.682625;-0.078463;, - 4.081248; 2.682625;-0.269742;, - 4.440713; 2.657312; 0.133944;, - 4.352460; 2.682625; 0.156697;, - 4.251353; 2.682625;-0.078463;, - 4.328337; 2.657312;-0.127424;, - 4.177615; 2.660181;-0.031567;, - 4.214484; 2.671403;-0.055015;, - 4.310196; 2.671403; 0.167594;, - 4.267931; 2.660181; 0.178491;, - 4.110081; 2.591501; 1.224876;, - 4.349174; 2.591502; 1.012293;, - 4.366741; 2.551002; 1.026805;, - 4.122322; 2.551002; 1.244123;, - 4.366741; 2.551002; 1.026805;, - 4.349174; 2.591502; 1.012293;, - 4.512553; 2.591501; 0.736658;, - 4.533760; 2.551002; 0.745029;, - 4.349174; 2.591502; 1.012293;, - 4.331608; 2.632001; 0.997782;, - 4.491347; 2.632001; 0.728287;, - 4.512553; 2.591501; 0.736658;, - 4.123681; 2.401660; 1.246261;, - 4.368693; 2.401659; 1.028417;, - 4.370645; 2.255442; 1.030030;, - 4.125041; 2.255442; 1.248400;, - 4.370645; 2.255442; 1.030030;, - 4.368693; 2.401659; 1.028417;, - 4.536115; 2.401660; 0.745959;, - 4.538471; 2.255442; 0.746889;, - 4.368693; 2.401659; 1.028417;, - 4.366741; 2.551002; 1.026805;, - 4.533760; 2.551002; 0.745029;, - 4.536115; 2.401660; 0.745959;, - 4.122322; 2.551002; 1.244123;, - 4.366741; 2.551002; 1.026805;, - 4.368693; 2.401659; 1.028417;, - 4.123681; 2.401660; 1.246261;, - 4.582051; 2.591501; 0.424565;, - 4.604805; 2.551002; 0.425984;, - 4.533760; 2.551002; 0.745029;, - 4.512553; 2.591501; 0.736658;, - 4.573092; 2.551002; 0.099813;, - 4.604805; 2.551002; 0.425984;, - 4.582051; 2.591501; 0.424565;, - 4.551029; 2.591502; 0.105501;, - 4.551029; 2.591502; 0.105501;, - 4.582051; 2.591501; 0.424565;, - 4.559297; 2.632001; 0.423146;, - 4.528966; 2.632001; 0.111190;, - 4.538471; 2.255442; 0.746889;, - 4.536115; 2.401660; 0.745959;, - 4.607334; 2.401660; 0.426141;, - 4.609862; 2.255442; 0.426299;, - 4.607334; 2.401660; 0.426141;, - 4.575543; 2.401659; 0.099181;, - 4.577994; 2.255442; 0.098549;, - 4.609862; 2.255442; 0.426299;, - 4.575543; 2.401659; 0.099181;, - 4.607334; 2.401660; 0.426141;, - 4.604805; 2.551002; 0.425984;, - 4.573092; 2.551002; 0.099813;, - 4.536115; 2.401660; 0.745959;, - 4.533760; 2.551002; 0.745029;, - 4.604805; 2.551002; 0.425984;, - 4.607334; 2.401660; 0.426141;, - 4.559297; 2.632001; 0.423146;, - 4.582051; 2.591501; 0.424565;, - 4.512553; 2.591501; 0.736658;, - 4.491347; 2.632001; 0.728287;, - 4.424568; 2.591502;-0.188627;, - 4.443813; 2.551002;-0.200866;, - 4.573092; 2.551002; 0.099813;, - 4.551029; 2.591502; 0.105501;, - 4.226316; 2.551002;-0.445440;, - 4.443813; 2.551002;-0.200866;, - 4.424568; 2.591502;-0.188627;, - 4.211809; 2.591502;-0.427870;, - 4.211809; 2.591502;-0.427870;, - 4.424568; 2.591502;-0.188627;, - 4.405322; 2.632001;-0.176386;, - 4.197302; 2.632001;-0.410300;, - 4.577994; 2.255442; 0.098549;, - 4.575543; 2.401659; 0.099181;, - 4.445952; 2.401659;-0.202227;, - 4.448090; 2.255442;-0.203587;, - 4.445952; 2.401659;-0.202227;, - 4.227927; 2.401659;-0.447391;, - 4.229539; 2.255442;-0.449344;, - 4.448090; 2.255442;-0.203587;, - 4.227927; 2.401659;-0.447391;, - 4.445952; 2.401659;-0.202227;, - 4.443813; 2.551002;-0.200866;, - 4.226316; 2.551002;-0.445440;, - 4.575543; 2.401659; 0.099181;, - 4.573092; 2.551002; 0.099813;, - 4.443813; 2.551002;-0.200866;, - 4.445952; 2.401659;-0.202227;, - 4.405322; 2.632001;-0.176386;, - 4.424568; 2.591502;-0.188627;, - 4.551029; 2.591502; 0.105501;, - 4.528966; 2.632001; 0.111190;, - 4.097840; 2.632001; 1.205630;, - 4.331608; 2.632001; 0.997782;, - 4.349174; 2.591502; 1.012293;, - 4.110081; 2.591501; 1.224876;, - 3.844714; 2.671403;-0.359740;, - 3.860734; 2.682625;-0.400369;, - 4.081248; 2.682625;-0.269742;, - 4.053459; 2.671403;-0.236086;, - 3.844714; 2.671403;-0.359740;, - 3.608489; 2.671403;-0.412256;, - 3.611191; 2.682625;-0.455846;, - 3.860734; 2.682625;-0.400369;, - 3.608489; 2.671403;-0.412256;, - 3.844714; 2.671403;-0.359740;, - 3.828694; 2.660181;-0.319110;, - 3.605787; 2.660181;-0.368666;, - 3.894186; 2.657313;-0.485205;, - 3.927637; 2.632001;-0.570042;, - 4.197302; 2.632001;-0.410300;, - 4.139275; 2.657313;-0.340021;, - 3.894186; 2.657313;-0.485205;, - 3.616831; 2.657313;-0.546865;, - 3.622472; 2.632001;-0.637885;, - 3.927637; 2.632001;-0.570042;, - 3.616831; 2.657313;-0.546865;, - 3.894186; 2.657313;-0.485205;, - 3.860734; 2.682625;-0.400369;, - 3.611191; 2.682625;-0.455846;, - 3.860734; 2.682625;-0.400369;, - 3.894186; 2.657313;-0.485205;, - 4.139275; 2.657313;-0.340021;, - 4.081248; 2.682625;-0.269742;, - 3.608489; 2.671403;-0.412256;, - 3.367128; 2.671403;-0.388723;, - 3.356221; 2.682625;-0.430987;, - 3.611191; 2.682625;-0.455846;, - 3.356221; 2.682625;-0.430987;, - 3.367128; 2.671403;-0.388723;, - 3.144687; 2.671403;-0.293058;, - 3.121238; 2.682626;-0.329927;, - 3.367128; 2.671403;-0.388723;, - 3.378034; 2.660182;-0.346461;, - 3.168136; 2.660182;-0.256188;, - 3.144687; 2.671403;-0.293058;, - 3.616831; 2.657313;-0.546865;, - 3.333446; 2.657313;-0.519235;, - 3.310672; 2.632001;-0.607485;, - 3.622472; 2.632001;-0.637885;, - 3.310672; 2.632001;-0.607485;, - 3.333446; 2.657313;-0.519235;, - 3.072275; 2.657313;-0.406914;, - 3.023313; 2.632001;-0.483900;, - 3.333446; 2.657313;-0.519235;, - 3.356221; 2.682625;-0.430987;, - 3.121238; 2.682626;-0.329927;, - 3.072275; 2.657313;-0.406914;, - 3.333446; 2.657313;-0.519235;, - 3.616831; 2.657313;-0.546865;, - 3.611191; 2.682625;-0.455846;, - 3.356221; 2.682625;-0.430987;, - 3.367128; 2.671403;-0.388723;, - 3.608489; 2.671403;-0.412256;, - 3.605787; 2.660181;-0.368666;, - 3.378034; 2.660182;-0.346461;, - 3.936001; 2.591501;-0.591251;, - 3.944363; 2.551002;-0.612460;, - 4.226316; 2.551002;-0.445440;, - 4.211809; 2.591502;-0.427870;, - 3.625293; 2.551002;-0.683395;, - 3.944363; 2.551002;-0.612460;, - 3.936001; 2.591501;-0.591251;, - 3.623883; 2.591501;-0.660640;, - 3.623883; 2.591501;-0.660640;, - 3.936001; 2.591501;-0.591251;, - 3.927637; 2.632001;-0.570042;, - 3.622472; 2.632001;-0.637885;, - 4.229539; 2.255442;-0.449344;, - 4.227927; 2.401659;-0.447391;, - 3.945292; 2.401660;-0.614817;, - 3.946222; 2.255442;-0.617173;, - 3.946222; 2.255442;-0.617173;, - 3.945292; 2.401660;-0.614817;, - 3.625450; 2.401660;-0.685923;, - 3.625606; 2.255442;-0.688452;, - 3.625450; 2.401660;-0.685923;, - 3.945292; 2.401660;-0.614817;, - 3.944363; 2.551002;-0.612460;, - 3.625293; 2.551002;-0.683395;, - 4.227927; 2.401659;-0.447391;, - 4.226316; 2.551002;-0.445440;, - 3.944363; 2.551002;-0.612460;, - 3.945292; 2.401660;-0.614817;, - 3.623883; 2.591501;-0.660640;, - 3.304977; 2.591502;-0.629547;, - 3.299284; 2.551002;-0.651609;, - 3.625293; 2.551002;-0.683395;, - 3.299284; 2.551002;-0.651609;, - 3.304977; 2.591502;-0.629547;, - 3.011072; 2.591501;-0.503147;, - 2.998832; 2.551002;-0.522393;, - 3.304977; 2.591502;-0.629547;, - 3.310672; 2.632001;-0.607485;, - 3.023313; 2.632001;-0.483900;, - 3.011072; 2.591501;-0.503147;, - 3.625450; 2.401660;-0.685923;, - 3.298651; 2.401659;-0.654060;, - 3.298018; 2.255442;-0.656512;, - 3.625606; 2.255442;-0.688452;, - 3.298018; 2.255442;-0.656512;, - 3.298651; 2.401659;-0.654060;, - 2.997472; 2.401660;-0.524531;, - 2.996111; 2.255442;-0.526670;, - 3.298651; 2.401659;-0.654060;, - 3.299284; 2.551002;-0.651609;, - 2.998832; 2.551002;-0.522393;, - 2.997472; 2.401660;-0.524531;, - 3.298651; 2.401659;-0.654060;, - 3.625450; 2.401660;-0.685923;, - 3.625293; 2.551002;-0.683395;, - 3.299284; 2.551002;-0.651609;, - 3.304977; 2.591502;-0.629547;, - 3.623883; 2.591501;-0.660640;, - 3.622472; 2.632001;-0.637885;, - 3.310672; 2.632001;-0.607485;, - 3.927637; 2.632001;-0.570042;, - 3.936001; 2.591501;-0.591251;, - 4.211809; 2.591502;-0.427870;, - 4.197302; 2.632001;-0.410300;, - 3.828694; 2.660181;-0.319110;, - 3.844714; 2.671403;-0.359740;, - 4.053459; 2.671403;-0.236086;, - 4.025670; 2.660181;-0.202428;, - 3.953017; 2.660181; 0.977918;, - 4.123772; 2.660181; 0.826097;, - 4.157423; 2.671403; 0.853895;, - 3.976466; 2.671403; 1.014788;, - 3.251805; 2.586439;-0.124631;, - 3.025653; 2.586439; 0.149703;, - 3.020940; 2.556065; 0.147843;, - 3.249085; 2.556065;-0.128908;, - 3.025653; 2.586439; 0.149703;, - 3.004033; 2.586438; 0.504356;, - 2.999130; 2.556065; 0.505620;, - 3.020940; 2.556065; 0.147843;, - 3.004033; 2.586438; 0.504356;, - 3.025653; 2.586439; 0.149703;, - 3.091628; 2.581376; 0.175746;, - 3.072673; 2.581376; 0.486658;, - 3.004033; 2.586438; 0.504356;, - 3.194643; 2.586438; 0.804061;, - 3.191419; 2.556065; 0.807966;, - 2.999130; 2.556065; 0.505620;, - 3.239775; 2.581376; 0.749400;, - 3.194643; 2.586438; 0.804061;, - 3.004033; 2.586438; 0.504356;, - 3.072673; 2.581376; 0.486658;, - 2.880700; 2.660182; 0.092483;, - 2.922545; 2.648622; 0.109002;, - 2.875967; 2.648622; 0.318172;, - 2.831067; 2.660182; 0.315372;, - 2.875967; 2.648622; 0.318172;, - 2.896759; 2.648622; 0.532014;, - 2.853223; 2.660182; 0.543238;, - 2.831067; 2.660182; 0.315372;, - 2.896759; 2.648622; 0.532014;, - 2.875967; 2.648622; 0.318172;, - 2.920866; 2.637064; 0.320972;, - 2.940295; 2.637064; 0.520789;, - 2.922545; 2.648622; 0.109002;, - 2.964391; 2.637064; 0.125520;, - 2.920866; 2.637064; 0.320972;, - 2.875967; 2.648622; 0.318172;, - 2.853223; 2.660182; 0.543238;, - 2.896759; 2.648622; 0.532014;, - 2.981515; 2.648622; 0.729143;, - 2.943538; 2.660182; 0.753297;, - 2.981515; 2.648622; 0.729143;, - 3.124109; 2.648622; 0.889488;, - 3.095484; 2.660182; 0.924157;, - 2.943538; 2.660182; 0.753297;, - 3.124109; 2.648622; 0.889488;, - 2.981515; 2.648622; 0.729143;, - 3.019492; 2.637064; 0.704990;, - 3.152735; 2.637064; 0.854818;, - 2.896759; 2.648622; 0.532014;, - 2.940295; 2.637064; 0.520789;, - 3.019492; 2.637064; 0.704990;, - 2.981515; 2.648622; 0.729143;, - 3.249085; 2.556065;-0.128908;, - 3.020940; 2.556065; 0.147843;, - 2.964391; 2.637064; 0.125520;, - 3.216443; 2.637064;-0.180232;, - 3.525004; 2.586439; 0.934857;, - 3.524691; 2.556065; 0.939914;, - 3.191419; 2.556065; 0.807966;, - 3.194643; 2.586438; 0.804061;, - 3.524691; 2.556065; 0.939914;, - 3.525004; 2.586439; 0.934857;, - 3.869348; 2.586439; 0.846361;, - 3.872067; 2.556065; 0.850637;, - 3.525004; 2.586439; 0.934857;, - 3.529392; 2.581376; 0.864064;, - 3.831265; 2.581376; 0.786482;, - 3.869348; 2.586439; 0.846361;, - 3.308961; 2.648622; 0.998989;, - 3.292459; 2.660182; 1.040841;, - 3.095484; 2.660182; 0.924157;, - 3.124109; 2.648622; 0.889488;, - 3.308961; 2.648622; 0.998989;, - 3.518147; 2.648622; 1.045495;, - 3.515365; 2.660181; 1.090396;, - 3.292459; 2.660182; 1.040841;, - 3.518147; 2.648622; 1.045495;, - 3.308961; 2.648622; 0.998989;, - 3.325463; 2.637064; 0.957138;, - 3.520931; 2.637064; 1.000594;, - 3.325463; 2.637064; 0.957138;, - 3.308961; 2.648622; 0.998989;, - 3.124109; 2.648622; 0.889488;, - 3.152735; 2.637064; 0.854818;, - 3.520931; 2.637064; 1.000594;, - 3.524691; 2.556065; 0.939914;, - 3.872067; 2.556065; 0.850637;, - 3.904710; 2.637064; 0.901962;, - 3.529392; 2.581376; 0.864064;, - 3.525004; 2.586439; 0.934857;, - 3.194643; 2.586438; 0.804061;, - 3.239775; 2.581376; 0.749400;, - 3.144687; 2.671403;-0.293058;, - 2.963730; 2.671403;-0.132165;, - 2.930079; 2.682626;-0.159964;, - 3.121238; 2.682626;-0.329927;, - 2.840078; 2.671404; 0.076447;, - 2.799454; 2.682626; 0.060412;, - 2.930079; 2.682626;-0.159964;, - 2.963730; 2.671403;-0.132165;, - 2.880700; 2.660182; 0.092483;, - 2.840078; 2.671404; 0.076447;, - 2.963730; 2.671403;-0.132165;, - 2.997381; 2.660182;-0.104368;, - 3.072275; 2.657313;-0.406914;, - 2.859812; 2.657313;-0.218008;, - 2.789545; 2.632001;-0.276052;, - 3.023313; 2.632001;-0.483900;, - 2.789545; 2.632001;-0.276052;, - 2.859812; 2.657313;-0.218008;, - 2.714630; 2.657313; 0.026927;, - 2.629806; 2.632001;-0.006558;, - 2.859812; 2.657313;-0.218008;, - 2.930079; 2.682626;-0.159964;, - 2.799454; 2.682626; 0.060412;, - 2.714630; 2.657313; 0.026927;, - 3.121238; 2.682626;-0.329927;, - 2.930079; 2.682626;-0.159964;, - 2.859812; 2.657313;-0.218008;, - 3.072275; 2.657313;-0.406914;, - 2.787478; 2.671403; 0.312654;, - 2.743890; 2.682626; 0.309935;, - 2.799454; 2.682626; 0.060412;, - 2.840078; 2.671404; 0.076447;, - 2.787478; 2.671403; 0.312654;, - 2.810957; 2.671403; 0.554136;, - 2.768693; 2.682626; 0.565032;, - 2.743890; 2.682626; 0.309935;, - 2.810957; 2.671403; 0.554136;, - 2.787478; 2.671403; 0.312654;, - 2.831067; 2.660182; 0.315372;, - 2.853223; 2.660182; 0.543238;, - 2.652873; 2.657313; 0.304259;, - 2.561855; 2.632001; 0.298584;, - 2.629806; 2.632001;-0.006558;, - 2.714630; 2.657313; 0.026927;, - 2.652873; 2.657313; 0.304259;, - 2.680440; 2.657313; 0.587786;, - 2.592187; 2.632001; 0.610540;, - 2.561855; 2.632001; 0.298584;, - 2.680440; 2.657313; 0.587786;, - 2.652873; 2.657313; 0.304259;, - 2.743890; 2.682626; 0.309935;, - 2.768693; 2.682626; 0.565032;, - 2.743890; 2.682626; 0.309935;, - 2.652873; 2.657313; 0.304259;, - 2.714630; 2.657313; 0.026927;, - 2.799454; 2.682626; 0.060412;, - 2.787478; 2.671403; 0.312654;, - 2.840078; 2.671404; 0.076447;, - 2.880700; 2.660182; 0.092483;, - 2.831067; 2.660182; 0.315372;, - 2.906669; 2.671403; 0.776745;, - 2.869800; 2.682626; 0.800193;, - 2.768693; 2.682626; 0.565032;, - 2.810957; 2.671403; 0.554136;, - 2.906669; 2.671403; 0.776745;, - 3.067694; 2.671403; 0.957815;, - 3.039905; 2.682626; 0.991472;, - 2.869800; 2.682626; 0.800193;, - 3.067694; 2.671403; 0.957815;, - 2.906669; 2.671403; 0.776745;, - 2.943538; 2.660182; 0.753297;, - 3.095484; 2.660182; 0.924157;, - 2.792816; 2.657313; 0.849154;, - 2.715831; 2.632001; 0.898116;, - 2.592187; 2.632001; 0.610540;, - 2.680440; 2.657313; 0.587786;, - 2.792816; 2.657313; 0.849154;, - 2.981878; 2.657313; 1.061751;, - 2.923851; 2.632001; 1.132030;, - 2.715831; 2.632001; 0.898116;, - 2.981878; 2.657313; 1.061751;, - 2.792816; 2.657313; 0.849154;, - 2.869800; 2.682626; 0.800193;, - 3.039905; 2.682626; 0.991472;, - 2.869800; 2.682626; 0.800193;, - 2.792816; 2.657313; 0.849154;, - 2.680440; 2.657313; 0.587786;, - 2.768693; 2.682626; 0.565032;, - 2.943538; 2.660182; 0.753297;, - 2.906669; 2.671403; 0.776745;, - 2.810957; 2.671403; 0.554136;, - 2.853223; 2.660182; 0.543238;, - 3.011072; 2.591501;-0.503147;, - 2.771979; 2.591502;-0.290564;, - 2.754411; 2.551002;-0.305075;, - 2.998832; 2.551002;-0.522393;, - 2.754411; 2.551002;-0.305075;, - 2.771979; 2.591502;-0.290564;, - 2.608600; 2.591501;-0.014928;, - 2.587393; 2.551002;-0.023300;, - 2.771979; 2.591502;-0.290564;, - 2.789545; 2.632001;-0.276052;, - 2.629806; 2.632001;-0.006558;, - 2.608600; 2.591501;-0.014928;, - 2.997472; 2.401660;-0.524531;, - 2.752460; 2.401659;-0.306687;, - 2.750508; 2.255442;-0.308300;, - 2.996111; 2.255442;-0.526670;, - 2.750508; 2.255442;-0.308300;, - 2.752460; 2.401659;-0.306687;, - 2.585038; 2.401659;-0.024229;, - 2.582681; 2.255442;-0.025160;, - 2.752460; 2.401659;-0.306687;, - 2.754411; 2.551002;-0.305075;, - 2.587393; 2.551002;-0.023300;, - 2.585038; 2.401659;-0.024229;, - 2.998832; 2.551002;-0.522393;, - 2.754411; 2.551002;-0.305075;, - 2.752460; 2.401659;-0.306687;, - 2.997472; 2.401660;-0.524531;, - 2.539102; 2.591502; 0.297165;, - 2.516348; 2.551002; 0.295746;, - 2.587393; 2.551002;-0.023300;, - 2.608600; 2.591501;-0.014928;, - 2.548061; 2.551002; 0.621917;, - 2.516348; 2.551002; 0.295746;, - 2.539102; 2.591502; 0.297165;, - 2.570124; 2.591502; 0.616229;, - 2.570124; 2.591502; 0.616229;, - 2.539102; 2.591502; 0.297165;, - 2.561855; 2.632001; 0.298584;, - 2.592187; 2.632001; 0.610540;, - 2.585038; 2.401659;-0.024229;, - 2.513819; 2.401659; 0.295588;, - 2.511291; 2.255442; 0.295431;, - 2.582681; 2.255442;-0.025160;, - 2.513819; 2.401659; 0.295588;, - 2.545610; 2.401660; 0.622549;, - 2.543158; 2.255442; 0.623180;, - 2.511291; 2.255442; 0.295431;, - 2.545610; 2.401660; 0.622549;, - 2.513819; 2.401659; 0.295588;, - 2.516348; 2.551002; 0.295746;, - 2.548061; 2.551002; 0.621917;, - 2.585038; 2.401659;-0.024229;, - 2.587393; 2.551002;-0.023300;, - 2.516348; 2.551002; 0.295746;, - 2.513819; 2.401659; 0.295588;, - 2.561855; 2.632001; 0.298584;, - 2.539102; 2.591502; 0.297165;, - 2.608600; 2.591501;-0.014928;, - 2.629806; 2.632001;-0.006558;, - 2.696585; 2.591501; 0.910356;, - 2.677339; 2.551002; 0.922597;, - 2.548061; 2.551002; 0.621917;, - 2.570124; 2.591502; 0.616229;, - 2.894837; 2.551002; 1.167170;, - 2.677339; 2.551002; 0.922597;, - 2.696585; 2.591501; 0.910356;, - 2.909344; 2.591502; 1.149599;, - 2.909344; 2.591502; 1.149599;, - 2.696585; 2.591501; 0.910356;, - 2.715831; 2.632001; 0.898116;, - 2.923851; 2.632001; 1.132030;, - 2.543158; 2.255442; 0.623180;, - 2.545610; 2.401660; 0.622549;, - 2.675201; 2.401660; 0.923957;, - 2.673063; 2.255442; 0.925316;, - 2.675201; 2.401660; 0.923957;, - 2.893226; 2.401660; 1.169121;, - 2.891613; 2.255442; 1.171073;, - 2.673063; 2.255442; 0.925316;, - 2.893226; 2.401660; 1.169121;, - 2.675201; 2.401660; 0.923957;, - 2.677339; 2.551002; 0.922597;, - 2.894837; 2.551002; 1.167170;, - 2.545610; 2.401660; 0.622549;, - 2.548061; 2.551002; 0.621917;, - 2.677339; 2.551002; 0.922597;, - 2.675201; 2.401660; 0.923957;, - 2.715831; 2.632001; 0.898116;, - 2.696585; 2.591501; 0.910356;, - 2.570124; 2.591502; 0.616229;, - 2.592187; 2.632001; 0.610540;, - 3.023313; 2.632001;-0.483900;, - 2.789545; 2.632001;-0.276052;, - 2.771979; 2.591502;-0.290564;, - 3.011072; 2.591501;-0.503147;, - 3.276439; 2.671403; 1.081470;, - 3.260419; 2.682625; 1.122099;, - 3.039905; 2.682626; 0.991472;, - 3.067694; 2.671403; 0.957815;, - 3.276439; 2.671403; 1.081470;, - 3.512664; 2.671404; 1.133986;, - 3.509962; 2.682625; 1.177576;, - 3.260419; 2.682625; 1.122099;, - 3.515365; 2.660181; 1.090396;, - 3.512664; 2.671404; 1.133986;, - 3.276439; 2.671403; 1.081470;, - 3.292459; 2.660182; 1.040841;, - 3.226968; 2.657313; 1.206935;, - 3.193515; 2.632001; 1.291772;, - 2.923851; 2.632001; 1.132030;, - 2.981878; 2.657313; 1.061751;, - 3.226968; 2.657313; 1.206935;, - 3.504321; 2.657313; 1.268595;, - 3.498681; 2.632001; 1.359615;, - 3.193515; 2.632001; 1.291772;, - 3.504321; 2.657313; 1.268595;, - 3.226968; 2.657313; 1.206935;, - 3.260419; 2.682625; 1.122099;, - 3.509962; 2.682625; 1.177576;, - 3.260419; 2.682625; 1.122099;, - 3.226968; 2.657313; 1.206935;, - 2.981878; 2.657313; 1.061751;, - 3.039905; 2.682626; 0.991472;, - 3.512664; 2.671404; 1.133986;, - 3.754025; 2.671403; 1.110453;, - 3.764933; 2.682625; 1.152716;, - 3.509962; 2.682625; 1.177576;, - 3.764933; 2.682625; 1.152716;, - 3.754025; 2.671403; 1.110453;, - 3.976466; 2.671403; 1.014788;, - 3.999915; 2.682625; 1.051657;, - 3.754025; 2.671403; 1.110453;, - 3.743118; 2.660181; 1.068190;, - 3.953017; 2.660181; 0.977918;, - 3.976466; 2.671403; 1.014788;, - 3.504321; 2.657313; 1.268595;, - 3.787707; 2.657313; 1.240965;, - 3.810482; 2.632001; 1.329214;, - 3.498681; 2.632001; 1.359615;, - 3.810482; 2.632001; 1.329214;, - 3.787707; 2.657313; 1.240965;, - 4.048877; 2.657313; 1.128643;, - 4.097840; 2.632001; 1.205630;, - 3.787707; 2.657313; 1.240965;, - 3.764933; 2.682625; 1.152716;, - 3.999915; 2.682625; 1.051657;, - 4.048877; 2.657313; 1.128643;, - 3.787707; 2.657313; 1.240965;, - 3.504321; 2.657313; 1.268595;, - 3.509962; 2.682625; 1.177576;, - 3.764933; 2.682625; 1.152716;, - 3.754025; 2.671403; 1.110453;, - 3.512664; 2.671404; 1.133986;, - 3.515365; 2.660181; 1.090396;, - 3.743118; 2.660181; 1.068190;, - 3.185153; 2.591502; 1.312981;, - 3.176790; 2.551002; 1.334190;, - 2.894837; 2.551002; 1.167170;, - 2.909344; 2.591502; 1.149599;, - 3.185153; 2.591502; 1.312981;, - 3.497270; 2.591501; 1.382370;, - 3.495860; 2.551002; 1.405125;, - 3.176790; 2.551002; 1.334190;, - 3.497270; 2.591501; 1.382370;, - 3.185153; 2.591502; 1.312981;, - 3.193515; 2.632001; 1.291772;, - 3.498681; 2.632001; 1.359615;, - 3.175860; 2.401659; 1.336547;, - 3.174931; 2.255442; 1.338903;, - 2.891613; 2.255442; 1.171073;, - 2.893226; 2.401660; 1.169121;, - 3.175860; 2.401659; 1.336547;, - 3.495703; 2.401659; 1.407653;, - 3.495547; 2.255442; 1.410181;, - 3.174931; 2.255442; 1.338903;, - 3.495703; 2.401659; 1.407653;, - 3.175860; 2.401659; 1.336547;, - 3.176790; 2.551002; 1.334190;, - 3.495860; 2.551002; 1.405125;, - 3.176790; 2.551002; 1.334190;, - 3.175860; 2.401659; 1.336547;, - 2.893226; 2.401660; 1.169121;, - 2.894837; 2.551002; 1.167170;, - 3.497270; 2.591501; 1.382370;, - 3.816176; 2.591502; 1.351276;, - 3.821869; 2.551002; 1.373339;, - 3.495860; 2.551002; 1.405125;, - 3.821869; 2.551002; 1.373339;, - 3.816176; 2.591502; 1.351276;, - 4.110081; 2.591501; 1.224876;, - 4.122322; 2.551002; 1.244123;, - 3.816176; 2.591502; 1.351276;, - 3.810482; 2.632001; 1.329214;, - 4.097840; 2.632001; 1.205630;, - 4.110081; 2.591501; 1.224876;, - 3.495703; 2.401659; 1.407653;, - 3.822502; 2.401659; 1.375790;, - 3.823135; 2.255442; 1.378242;, - 3.495547; 2.255442; 1.410181;, - 3.823135; 2.255442; 1.378242;, - 3.822502; 2.401659; 1.375790;, - 4.123681; 2.401660; 1.246261;, - 4.125041; 2.255442; 1.248400;, - 3.822502; 2.401659; 1.375790;, - 3.821869; 2.551002; 1.373339;, - 4.122322; 2.551002; 1.244123;, - 4.123681; 2.401660; 1.246261;, - 3.822502; 2.401659; 1.375790;, - 3.495703; 2.401659; 1.407653;, - 3.495860; 2.551002; 1.405125;, - 3.821869; 2.551002; 1.373339;, - 3.816176; 2.591502; 1.351276;, - 3.497270; 2.591501; 1.382370;, - 3.498681; 2.632001; 1.359615;, - 3.810482; 2.632001; 1.329214;, - 3.193515; 2.632001; 1.291772;, - 3.185153; 2.591502; 1.312981;, - 2.909344; 2.591502; 1.149599;, - 2.923851; 2.632001; 1.132030;, - 3.292459; 2.660182; 1.040841;, - 3.276439; 2.671403; 1.081470;, - 3.067694; 2.671403; 0.957815;, - 3.095484; 2.660182; 0.924157;, - 2.963730; 2.671403;-0.132165;, - 3.144687; 2.671403;-0.293058;, - 3.168136; 2.660182;-0.256188;, - 2.997381; 2.660182;-0.104368;, - 3.025653; 2.586439; 0.149703;, - 3.251805; 2.586439;-0.124631;, - 3.289887; 2.581376;-0.064752;, - 3.091628; 2.581376; 0.175746;, - 4.095500; 2.586439; 0.572026;, - 3.869348; 2.586439; 0.846361;, - 3.831265; 2.581376; 0.786482;, - 4.029526; 2.581376; 0.545983;, - 3.638700; 2.310536; 0.425400;, - 3.615014; 2.310536; 0.446460;, - 3.559936; 2.313066; 0.360335;, - 3.743118; 1.850704; 1.068190;, - 3.953017; 1.850704; 0.977918;, - 3.904710; 1.873821; 0.901962;, - 3.518147; 1.862263; 1.045495;, - 3.515365; 1.850704; 1.090396;, - 3.520931; 1.873821; 1.000594;, - 3.904710; 1.873821; 0.901962;, - 3.520931; 1.873821; 1.000594;, - 3.515365; 1.850704; 1.090396;, - 3.743118; 1.850704; 1.068190;, - 3.325463; 1.873821; 0.957138;, - 3.520931; 1.873821; 1.000594;, - 3.524690; 1.954820; 0.939914;, - 3.191419; 1.954821; 0.807966;, - 3.152735; 1.873821; 0.854818;, - 3.325463; 1.873821; 0.957138;, - 3.524690; 1.954820; 0.939914;, - 3.019492; 1.873821; 0.704990;, - 3.152735; 1.873821; 0.854818;, - 3.191419; 1.954821; 0.807966;, - 2.999130; 1.954821; 0.505620;, - 2.940295; 1.873821; 0.520789;, - 3.019492; 1.873821; 0.704990;, - 3.191419; 1.954821; 0.807966;, - 2.922545; 1.862263; 0.109002;, - 2.964391; 1.873821; 0.125520;, - 3.216443; 1.873821;-0.180232;, - 2.997381; 1.850704;-0.104368;, - 3.216443; 1.873821;-0.180232;, - 3.168136; 1.850704;-0.256188;, - 3.216443; 1.873821;-0.180232;, - 2.997381; 1.850704;-0.104368;, - 2.880700; 1.850704; 0.092483;, - 2.922545; 1.862263; 0.109002;, - 2.964391; 1.873821; 0.125520;, - 2.920866; 1.873821; 0.320972;, - 3.020940; 1.954821; 0.147843;, - 3.020940; 1.954821; 0.147843;, - 2.920866; 1.873821; 0.320972;, - 2.940295; 1.873821; 0.520789;, - 2.999130; 1.954821; 0.505620;, - 3.216443; 1.873821;-0.180232;, - 3.600222; 1.873821;-0.278864;, - 3.603005; 1.862262;-0.323765;, - 3.168136; 1.850704;-0.256188;, - 3.216443; 1.873821;-0.180232;, - 3.378034; 1.850704;-0.346461;, - 3.605788; 1.850704;-0.368666;, - 3.378034; 1.850704;-0.346461;, - 3.216443; 1.873821;-0.180232;, - 3.603005; 1.862262;-0.323765;, - 3.596462; 1.954820;-0.218184;, - 3.795690; 1.873821;-0.235409;, - 3.600222; 1.873821;-0.278864;, - 3.968418; 1.873821;-0.133088;, - 3.795690; 1.873821;-0.235409;, - 3.596462; 1.954820;-0.218184;, - 3.929733; 1.954820;-0.086236;, - 4.122023; 1.954820; 0.216110;, - 4.180858; 1.873821; 0.200941;, - 4.101661; 1.873821; 0.016740;, - 4.101661; 1.873821; 0.016740;, - 3.968418; 1.873821;-0.133088;, - 3.929733; 1.954820;-0.086236;, - 4.122023; 1.954820; 0.216110;, - 3.904710; 1.873821; 0.901962;, - 3.953017; 1.850704; 0.977918;, - 4.123771; 1.850703; 0.826097;, - 4.156762; 1.873821; 0.596210;, - 3.904710; 1.873821; 0.901962;, - 4.198607; 1.862262; 0.612729;, - 4.240453; 1.850703; 0.629246;, - 4.198607; 1.862262; 0.612729;, - 3.904710; 1.873821; 0.901962;, - 4.123771; 1.850703; 0.826097;, - 4.100213; 1.954820; 0.573887;, - 4.156762; 1.873821; 0.596210;, - 4.200286; 1.873821; 0.400758;, - 4.200286; 1.873821; 0.400758;, - 4.180858; 1.873821; 0.200941;, - 4.122023; 1.954820; 0.216110;, - 4.100213; 1.954820; 0.573887;, - 3.737353; 2.308005; 0.430648;, - 3.793903; 2.358629; 0.452970;, - 3.707015; 2.308005; 0.481832;, - 3.662617; 2.308005; 0.521308;, - 3.707015; 2.308005; 0.481832;, - 3.793903; 2.358629; 0.452970;, - 3.753860; 2.358629; 0.520528;, - 3.695258; 2.358629; 0.572632;, - 3.623223; 2.358629; 0.603612;, - 3.662617; 2.308005; 0.521308;, - 3.753860; 2.358629; 0.520528;, - 3.608040; 2.308005; 0.544779;, - 3.545060; 2.358629; 0.611233;, - 3.548821; 2.308005; 0.550553;, - 3.545060; 2.358629; 0.611233;, - 3.608040; 2.308005; 0.544779;, - 3.662617; 2.308005; 0.521308;, - 3.623223; 2.358629; 0.603612;, - 3.737353; 2.308005; 0.430648;, - 3.750259; 2.308005; 0.372693;, - 3.810937; 2.358629; 0.376478;, - 3.793903; 2.358629; 0.452970;, - 3.750259; 2.308005; 0.372693;, - 3.744498; 2.308005; 0.313446;, - 3.803333; 2.358629; 0.298276;, - 3.810937; 2.358629; 0.376478;, - 3.744498; 2.308005; 0.313446;, - 3.721015; 2.308005; 0.258827;, - 3.772338; 2.358629; 0.226186;, - 3.803333; 2.358629; 0.298276;, - 3.681506; 2.308005; 0.214401;, - 3.720192; 2.358629; 0.167549;, - 3.772338; 2.358629; 0.226186;, - 3.721015; 2.308005; 0.258827;, - 3.798624; 2.394067; 0.735158;, - 3.798624; 2.363691; 0.735158;, - 3.902200; 2.363691; 0.643066;, - 3.972976; 2.363691; 0.523660;, - 3.972976; 2.394067; 0.523660;, - 3.798624; 2.394067; 0.735158;, - 3.902200; 2.363691; 0.643066;, - 3.989644; 2.394067; 0.250240;, - 3.972976; 2.363691; 0.523660;, - 4.003083; 2.363691; 0.388460;, - 3.989644; 2.394067; 0.250240;, - 4.003083; 2.363691; 0.388460;, - 3.989644; 2.363691; 0.250240;, - 3.972976; 2.394067; 0.523660;, - 3.972976; 2.363691; 0.523660;, - 3.989644; 2.394067; 0.250240;, - 3.997821; 2.393010; 0.248132;, - 3.842693; 2.394067; 0.019182;, - 3.934861; 2.363691; 0.122823;, - 3.842693; 2.363691; 0.019182;, - 3.989644; 2.363691; 0.250240;, - 3.934861; 2.363691; 0.122823;, - 3.842693; 2.394067; 0.019182;, - 3.989644; 2.394067; 0.250240;, - 3.630291; 2.308005; 0.184062;, - 3.652592; 2.358629; 0.127504;, - 3.720192; 2.358629; 0.167549;, - 3.681506; 2.308005; 0.214401;, - 3.572332; 2.308005; 0.171177;, - 3.576093; 2.358629; 0.110497;, - 3.652592; 2.358629; 0.127504;, - 3.630291; 2.308005; 0.184062;, - 3.576093; 2.358629; 0.110497;, - 3.572332; 2.308005; 0.171177;, - 3.513113; 2.308005; 0.176950;, - 3.497930; 2.358629; 0.118118;, - 3.576093; 2.358629; 0.110497;, - 3.425894; 2.358629; 0.149098;, - 3.458536; 2.308005; 0.200422;, - 3.425894; 2.358629; 0.149098;, - 3.576093; 2.358629; 0.110497;, - 3.513113; 2.308005; 0.176950;, - 3.588001; 2.394067;-0.081655;, - 3.723212; 2.363691;-0.051596;, - 3.588001; 2.363691;-0.081655;, - 3.842693; 2.363691; 0.019182;, - 3.723212; 2.363691;-0.051596;, - 3.588001; 2.394067;-0.081655;, - 3.842693; 2.394067; 0.019182;, - 3.449850; 2.363691;-0.068186;, - 3.322529; 2.363691;-0.013428;, - 3.322529; 2.394067;-0.013428;, - 3.322529; 2.394067;-0.013428;, - 3.588001; 2.394067;-0.081655;, - 3.588001; 2.363691;-0.081655;, - 3.449850; 2.363691;-0.068186;, - 3.414138; 2.308005; 0.239898;, - 3.383800; 2.308005; 0.291082;, - 3.327250; 2.358629; 0.268759;, - 3.425894; 2.358629; 0.149098;, - 3.327250; 2.358629; 0.268759;, - 3.367294; 2.358629; 0.201202;, - 3.327250; 2.358629; 0.268759;, - 3.425894; 2.358629; 0.149098;, - 3.458536; 2.308005; 0.200422;, - 3.414138; 2.308005; 0.239898;, - 3.317820; 2.358629; 0.423454;, - 3.310216; 2.358629; 0.345252;, - 3.370894; 2.308005; 0.349036;, - 3.376654; 2.308005; 0.408285;, - 3.310216; 2.358629; 0.345252;, - 3.327250; 2.358629; 0.268759;, - 3.383800; 2.308005; 0.291082;, - 3.370894; 2.308005; 0.349036;, - 3.348815; 2.358629; 0.495544;, - 3.400138; 2.308005; 0.462903;, - 3.439646; 2.308005; 0.507329;, - 3.400961; 2.358629; 0.554181;, - 3.317820; 2.358629; 0.423454;, - 3.376654; 2.308005; 0.408285;, - 3.400138; 2.308005; 0.462903;, - 3.348815; 2.358629; 0.495544;, - 3.218952; 2.363691; 0.078663;, - 3.148176; 2.363691; 0.198069;, - 3.148176; 2.394067; 0.198069;, - 3.148176; 2.394067; 0.198069;, - 3.322529; 2.394067;-0.013428;, - 3.322529; 2.363691;-0.013428;, - 3.218952; 2.363691; 0.078663;, - 3.148176; 2.363691; 0.198069;, - 3.118070; 2.363691; 0.333270;, - 3.148176; 2.394067; 0.198069;, - 3.148176; 2.394067; 0.198069;, - 3.118070; 2.363691; 0.333270;, - 3.131509; 2.363691; 0.471489;, - 3.131509; 2.394067; 0.471489;, - 3.131509; 2.363691; 0.471489;, - 3.186292; 2.363691; 0.598907;, - 3.131509; 2.394067; 0.471489;, - 3.131509; 2.394067; 0.471489;, - 3.186292; 2.363691; 0.598907;, - 3.278460; 2.363691; 0.702547;, - 3.278460; 2.394067; 0.702547;, - 3.468561; 2.358629; 0.594226;, - 3.490862; 2.308005; 0.537668;, - 3.548821; 2.308005; 0.550553;, - 3.545060; 2.358629; 0.611233;, - 3.400961; 2.358629; 0.554181;, - 3.439646; 2.308005; 0.507329;, - 3.490862; 2.308005; 0.537668;, - 3.468561; 2.358629; 0.594226;, - 3.278460; 2.363691; 0.702547;, - 3.397942; 2.363691; 0.773325;, - 3.278460; 2.394067; 0.702547;, - 3.278460; 2.394067; 0.702547;, - 3.397942; 2.363691; 0.773325;, - 3.533152; 2.363691; 0.803384;, - 3.533152; 2.394067; 0.803384;, - 3.533152; 2.394067; 0.803384;, - 3.533152; 2.363691; 0.803384;, - 3.671303; 2.363691; 0.789915;, - 3.798624; 2.363691; 0.735158;, - 3.798624; 2.394067; 0.735158;, - 3.533152; 2.394067; 0.803384;, - 3.671303; 2.363691; 0.789915;, - 4.123772; 2.660181; 0.826097;, - 3.953017; 2.660181; 0.977918;, - 3.904710; 2.637064; 0.901962;, - 4.198607; 2.648622; 0.612729;, - 4.240452; 2.660181; 0.629247;, - 4.156762; 2.637064; 0.596210;, - 3.904710; 2.637064; 0.901962;, - 4.156762; 2.637064; 0.596210;, - 4.240452; 2.660181; 0.629247;, - 4.123772; 2.660181; 0.826097;, - 4.200285; 2.637064; 0.400758;, - 4.156762; 2.637064; 0.596210;, - 4.100213; 2.556065; 0.573887;, - 4.122023; 2.556065; 0.216110;, - 4.180858; 2.637064; 0.200941;, - 4.200285; 2.637064; 0.400758;, - 4.100213; 2.556065; 0.573887;, - 4.101661; 2.637064; 0.016740;, - 4.180858; 2.637064; 0.200941;, - 4.122023; 2.556065; 0.216110;, - 3.929733; 2.556065;-0.086236;, - 3.968418; 2.637064;-0.133088;, - 4.101661; 2.637064; 0.016740;, - 4.122023; 2.556065; 0.216110;, - 3.603005; 2.648622;-0.323765;, - 3.600222; 2.637064;-0.278864;, - 3.216443; 2.637064;-0.180232;, - 3.378034; 2.660182;-0.346461;, - 3.216443; 2.637064;-0.180232;, - 3.168136; 2.660182;-0.256188;, - 3.216443; 2.637064;-0.180232;, - 3.378034; 2.660182;-0.346461;, - 3.605787; 2.660181;-0.368666;, - 3.603005; 2.648622;-0.323765;, - 3.600222; 2.637064;-0.278864;, - 3.795689; 2.637064;-0.235408;, - 3.596462; 2.556065;-0.218184;, - 3.596462; 2.556065;-0.218184;, - 3.795689; 2.637064;-0.235408;, - 3.968418; 2.637064;-0.133088;, - 3.929733; 2.556065;-0.086236;, - 3.216443; 2.637064;-0.180232;, - 2.964391; 2.637064; 0.125520;, - 2.922545; 2.648622; 0.109002;, - 3.168136; 2.660182;-0.256188;, - 3.216443; 2.637064;-0.180232;, - 2.997381; 2.660182;-0.104368;, - 2.880700; 2.660182; 0.092483;, - 2.997381; 2.660182;-0.104368;, - 3.216443; 2.637064;-0.180232;, - 2.922545; 2.648622; 0.109002;, - 3.020940; 2.556065; 0.147843;, - 2.920866; 2.637064; 0.320972;, - 2.964391; 2.637064; 0.125520;, - 2.940295; 2.637064; 0.520789;, - 2.920866; 2.637064; 0.320972;, - 3.020940; 2.556065; 0.147843;, - 2.999130; 2.556065; 0.505620;, - 3.191419; 2.556065; 0.807966;, - 3.152735; 2.637064; 0.854818;, - 3.019492; 2.637064; 0.704990;, - 3.019492; 2.637064; 0.704990;, - 2.940295; 2.637064; 0.520789;, - 2.999130; 2.556065; 0.505620;, - 3.191419; 2.556065; 0.807966;, - 3.904710; 2.637064; 0.901962;, - 3.953017; 2.660181; 0.977918;, - 3.743118; 2.660181; 1.068190;, - 3.520931; 2.637064; 1.000594;, - 3.515365; 2.660181; 1.090396;, - 3.518147; 2.648622; 1.045495;, - 3.515365; 2.660181; 1.090396;, - 3.520931; 2.637064; 1.000594;, - 3.904710; 2.637064; 0.901962;, - 3.743118; 2.660181; 1.068190;, - 3.524691; 2.556065; 0.939914;, - 3.520931; 2.637064; 1.000594;, - 3.325463; 2.637064; 0.957138;, - 3.325463; 2.637064; 0.957138;, - 3.152735; 2.637064; 0.854818;, - 3.191419; 2.556065; 0.807966;, - 3.524691; 2.556065; 0.939914;, - -3.753825;-1.921119; 0.360865;, - -3.214189;-1.921119; 0.573887;, - -3.192379;-1.921119; 0.216110;, - -3.753825;-1.921119; 0.360865;, - -4.122983;-1.921118; 0.807966;, - -3.789711;-1.921119; 0.939914;, - -3.333566;-2.359844; 0.526762;, - -3.285534;-2.355832; 0.240127;, - -3.303726;-2.355832; 0.538542;, - -3.725878;-2.359844;-0.090088;, - -3.723894;-2.355831;-0.122108;, - -3.445919;-2.355832;-0.012053;, - -3.466333;-2.359843; 0.012670;, - -3.471709;-2.360900; 0.019182;, - -3.726401;-2.360900;-0.081655;, - -3.466333;-2.359843; 0.012670;, - -3.726401;-2.360900;-0.081655;, - -3.725878;-2.359844;-0.090088;, - -3.445919;-2.355832;-0.012053;, - -3.333566;-2.359844; 0.526762;, - -3.341426;-2.360900; 0.523660;, - -3.316581;-2.359843; 0.248132;, - -3.285534;-2.355832; 0.240127;, - -3.384669;-1.921119;-0.086236;, - -3.717940;-1.921119;-0.218184;, - -3.753825;-1.921119; 0.360865;, - -3.192379;-1.921119; 0.216110;, - -4.315272;-1.921118; 0.505620;, - -4.122983;-1.921118; 0.807966;, - -3.753825;-1.921119; 0.360865;, - -4.293462;-1.921118; 0.147843;, - -4.065317;-1.921118;-0.128908;, - -4.293462;-1.921118; 0.147843;, - -3.753825;-1.921119; 0.360865;, - -3.717940;-1.921119;-0.218184;, - -3.753825;-1.921119; 0.360865;, - -3.789711;-1.921119; 0.939914;, - -3.442334;-1.921119; 0.850637;, - -3.214189;-1.921119; 0.573887;, - -3.799037;-1.816875; 1.090396;, - -3.796254;-1.828448; 1.045495;, - -4.005441;-1.828448; 0.998989;, - -4.021943;-1.816874; 1.040841;, - -4.005441;-1.828448; 0.998989;, - -4.190293;-1.828447; 0.889488;, - -4.218917;-1.816875; 0.924157;, - -4.021943;-1.816874; 1.040841;, - -4.190293;-1.828447; 0.889488;, - -4.005441;-1.828448; 0.998989;, - -3.988939;-1.840021; 0.957138;, - -4.161667;-1.840021; 0.854818;, - -3.796254;-1.828448; 1.045495;, - -3.793471;-1.840021; 1.000594;, - -3.988939;-1.840021; 0.957138;, - -4.005441;-1.828448; 0.998989;, - -4.218917;-1.816875; 0.924157;, - -4.190293;-1.828447; 0.889488;, - -4.332887;-1.828447; 0.729143;, - -4.370864;-1.816874; 0.753297;, - -4.332887;-1.828447; 0.729143;, - -4.417643;-1.828447; 0.532014;, - -4.461179;-1.816875; 0.543238;, - -4.370864;-1.816874; 0.753297;, - -4.417643;-1.828447; 0.532014;, - -4.332887;-1.828447; 0.729143;, - -4.294909;-1.840021; 0.704990;, - -4.374106;-1.840021; 0.520789;, - -4.190293;-1.828447; 0.889488;, - -4.161667;-1.840021; 0.854818;, - -4.294909;-1.840021; 0.704990;, - -4.332887;-1.828447; 0.729143;, - -3.442334;-1.921119; 0.850637;, - -3.789711;-1.921119; 0.939914;, - -3.793471;-1.840021; 1.000594;, - -3.409692;-1.840021; 0.901962;, - -4.438435;-1.828448; 0.318172;, - -4.483335;-1.816874; 0.315372;, - -4.461179;-1.816875; 0.543238;, - -4.417643;-1.828447; 0.532014;, - -4.438435;-1.828448; 0.318172;, - -4.391857;-1.828448; 0.109002;, - -4.433702;-1.816875; 0.092483;, - -4.483335;-1.816874; 0.315372;, - -4.391857;-1.828448; 0.109002;, - -4.438435;-1.828448; 0.318172;, - -4.393536;-1.840021; 0.320972;, - -4.350011;-1.840021; 0.125520;, - -4.393536;-1.840021; 0.320972;, - -4.438435;-1.828448; 0.318172;, - -4.417643;-1.828447; 0.532014;, - -4.374106;-1.840021; 0.520789;, - -4.350011;-1.840021; 0.125520;, - -4.293462;-1.921118; 0.147843;, - -4.065317;-1.921118;-0.128908;, - -4.097959;-1.840021;-0.180232;, - -3.337936;-1.805639; 1.014788;, - -3.560377;-1.805639; 1.110453;, - -3.549469;-1.794403; 1.152716;, - -3.314487;-1.794404; 1.051657;, - -3.549469;-1.794403; 1.152716;, - -3.560377;-1.805639; 1.110453;, - -3.801738;-1.805639; 1.133986;, - -3.804440;-1.794403; 1.177576;, - -3.560377;-1.805639; 1.110453;, - -3.571284;-1.816875; 1.068190;, - -3.799037;-1.816875; 1.090396;, - -3.801738;-1.805639; 1.133986;, - -3.265525;-1.819746; 1.128643;, - -3.526695;-1.819746; 1.240965;, - -3.503920;-1.845090; 1.329214;, - -3.216562;-1.845090; 1.205630;, - -3.503920;-1.845090; 1.329214;, - -3.526695;-1.819746; 1.240965;, - -3.810081;-1.819746; 1.268595;, - -3.815721;-1.845090; 1.359615;, - -3.526695;-1.819746; 1.240965;, - -3.549469;-1.794403; 1.152716;, - -3.804440;-1.794403; 1.177576;, - -3.810081;-1.819746; 1.268595;, - -3.314487;-1.794404; 1.051657;, - -3.549469;-1.794403; 1.152716;, - -3.526695;-1.819746; 1.240965;, - -3.265525;-1.819746; 1.128643;, - -4.037963;-1.805639; 1.081470;, - -4.053983;-1.794403; 1.122099;, - -3.804440;-1.794403; 1.177576;, - -3.801738;-1.805639; 1.133986;, - -4.274497;-1.794403; 0.991472;, - -4.053983;-1.794403; 1.122099;, - -4.037963;-1.805639; 1.081470;, - -4.246708;-1.805639; 0.957815;, - -4.246708;-1.805639; 0.957815;, - -4.037963;-1.805639; 1.081470;, - -4.021943;-1.816874; 1.040841;, - -4.218917;-1.816875; 0.924157;, - -3.815721;-1.845090; 1.359615;, - -3.810081;-1.819746; 1.268595;, - -4.087434;-1.819746; 1.206935;, - -4.120887;-1.845090; 1.291772;, - -4.087434;-1.819746; 1.206935;, - -4.332524;-1.819747; 1.061751;, - -4.390551;-1.845090; 1.132030;, - -4.120887;-1.845090; 1.291772;, - -4.332524;-1.819747; 1.061751;, - -4.087434;-1.819746; 1.206935;, - -4.053983;-1.794403; 1.122099;, - -4.274497;-1.794403; 0.991472;, - -3.810081;-1.819746; 1.268595;, - -3.804440;-1.794403; 1.177576;, - -4.053983;-1.794403; 1.122099;, - -4.087434;-1.819746; 1.206935;, - -4.021943;-1.816874; 1.040841;, - -4.037963;-1.805639; 1.081470;, - -3.801738;-1.805639; 1.133986;, - -3.799037;-1.816875; 1.090396;, - -4.407733;-1.805639; 0.776745;, - -4.444602;-1.794403; 0.800193;, - -4.274497;-1.794403; 0.991472;, - -4.246708;-1.805639; 0.957815;, - -4.545709;-1.794403; 0.565032;, - -4.444602;-1.794403; 0.800193;, - -4.407733;-1.805639; 0.776745;, - -4.503445;-1.805639; 0.554136;, - -4.503445;-1.805639; 0.554136;, - -4.407733;-1.805639; 0.776745;, - -4.370864;-1.816874; 0.753297;, - -4.461179;-1.816875; 0.543238;, - -4.390551;-1.845090; 1.132030;, - -4.332524;-1.819747; 1.061751;, - -4.521585;-1.819747; 0.849154;, - -4.598571;-1.845090; 0.898116;, - -4.521585;-1.819747; 0.849154;, - -4.633962;-1.819747; 0.587786;, - -4.722215;-1.845090; 0.610540;, - -4.598571;-1.845090; 0.898116;, - -4.633962;-1.819747; 0.587786;, - -4.521585;-1.819747; 0.849154;, - -4.444602;-1.794403; 0.800193;, - -4.545709;-1.794403; 0.565032;, - -4.332524;-1.819747; 1.061751;, - -4.274497;-1.794403; 0.991472;, - -4.444602;-1.794403; 0.800193;, - -4.521585;-1.819747; 0.849154;, - -4.370864;-1.816874; 0.753297;, - -4.407733;-1.805639; 0.776745;, - -4.246708;-1.805639; 0.957815;, - -4.218917;-1.816875; 0.924157;, - -3.204321;-1.885638; 1.224876;, - -3.498226;-1.885638; 1.351276;, - -3.492533;-1.926188; 1.373339;, - -3.192080;-1.926188; 1.244123;, - -3.492533;-1.926188; 1.373339;, - -3.498226;-1.885638; 1.351276;, - -3.817132;-1.885638; 1.382370;, - -3.818542;-1.926188; 1.405125;, - -3.498226;-1.885638; 1.351276;, - -3.503920;-1.845090; 1.329214;, - -3.815721;-1.845090; 1.359615;, - -3.817132;-1.885638; 1.382370;, - -3.190721;-2.075711; 1.246261;, - -3.491900;-2.075711; 1.375790;, - -3.491267;-2.222107; 1.378242;, - -3.189360;-2.222107; 1.248400;, - -3.491267;-2.222107; 1.378242;, - -3.491900;-2.075711; 1.375790;, - -3.818699;-2.075711; 1.407653;, - -3.818855;-2.222107; 1.410181;, - -3.491900;-2.075711; 1.375790;, - -3.492533;-1.926188; 1.373339;, - -3.818542;-1.926188; 1.405125;, - -3.818699;-2.075711; 1.407653;, - -3.192080;-1.926188; 1.244123;, - -3.492533;-1.926188; 1.373339;, - -3.491900;-2.075711; 1.375790;, - -3.190721;-2.075711; 1.246261;, - -4.129249;-1.885638; 1.312981;, - -4.137612;-1.926187; 1.334190;, - -3.818542;-1.926188; 1.405125;, - -3.817132;-1.885638; 1.382370;, - -4.419565;-1.926187; 1.167170;, - -4.137612;-1.926187; 1.334190;, - -4.129249;-1.885638; 1.312981;, - -4.405058;-1.885638; 1.149599;, - -4.405058;-1.885638; 1.149599;, - -4.129249;-1.885638; 1.312981;, - -4.120887;-1.845090; 1.291772;, - -4.390551;-1.845090; 1.132030;, - -3.818855;-2.222107; 1.410181;, - -3.818699;-2.075711; 1.407653;, - -4.138541;-2.075711; 1.336547;, - -4.139471;-2.222107; 1.338903;, - -4.138541;-2.075711; 1.336547;, - -4.421176;-2.075711; 1.169121;, - -4.422789;-2.222106; 1.171073;, - -4.139471;-2.222107; 1.338903;, - -4.421176;-2.075711; 1.169121;, - -4.138541;-2.075711; 1.336547;, - -4.137612;-1.926187; 1.334190;, - -4.419565;-1.926187; 1.167170;, - -3.818699;-2.075711; 1.407653;, - -3.818542;-1.926188; 1.405125;, - -4.137612;-1.926187; 1.334190;, - -4.138541;-2.075711; 1.336547;, - -4.120887;-1.845090; 1.291772;, - -4.129249;-1.885638; 1.312981;, - -3.817132;-1.885638; 1.382370;, - -3.815721;-1.845090; 1.359615;, - -4.617816;-1.885638; 0.910356;, - -4.637063;-1.926187; 0.922597;, - -4.419565;-1.926187; 1.167170;, - -4.405058;-1.885638; 1.149599;, - -4.766341;-1.926187; 0.621917;, - -4.637063;-1.926187; 0.922597;, - -4.617816;-1.885638; 0.910356;, - -4.744277;-1.885638; 0.616229;, - -4.744277;-1.885638; 0.616229;, - -4.617816;-1.885638; 0.910356;, - -4.598571;-1.845090; 0.898116;, - -4.722215;-1.845090; 0.610540;, - -4.422789;-2.222106; 1.171073;, - -4.421176;-2.075711; 1.169121;, - -4.639201;-2.075711; 0.923957;, - -4.641339;-2.222106; 0.925316;, - -4.639201;-2.075711; 0.923957;, - -4.768792;-2.075711; 0.622549;, - -4.771244;-2.222106; 0.623180;, - -4.641339;-2.222106; 0.925316;, - -4.768792;-2.075711; 0.622549;, - -4.639201;-2.075711; 0.923957;, - -4.637063;-1.926187; 0.922597;, - -4.766341;-1.926187; 0.621917;, - -4.421176;-2.075711; 1.169121;, - -4.419565;-1.926187; 1.167170;, - -4.637063;-1.926187; 0.922597;, - -4.639201;-2.075711; 0.923957;, - -4.598571;-1.845090; 0.898116;, - -4.617816;-1.885638; 0.910356;, - -4.405058;-1.885638; 1.149599;, - -4.390551;-1.845090; 1.132030;, - -3.216562;-1.845090; 1.205630;, - -3.503920;-1.845090; 1.329214;, - -3.498226;-1.885638; 1.351276;, - -3.204321;-1.885638; 1.224876;, - -4.526924;-1.805638; 0.312654;, - -4.570512;-1.794403; 0.309935;, - -4.545709;-1.794403; 0.565032;, - -4.503445;-1.805639; 0.554136;, - -4.526924;-1.805638; 0.312654;, - -4.474324;-1.805639; 0.076447;, - -4.514947;-1.794403; 0.060412;, - -4.570512;-1.794403; 0.309935;, - -4.433702;-1.816875; 0.092483;, - -4.474324;-1.805639; 0.076447;, - -4.526924;-1.805638; 0.312654;, - -4.483335;-1.816874; 0.315372;, - -4.661529;-1.819746; 0.304259;, - -4.752546;-1.845090; 0.298584;, - -4.722215;-1.845090; 0.610540;, - -4.633962;-1.819747; 0.587786;, - -4.661529;-1.819746; 0.304259;, - -4.599771;-1.819746; 0.026927;, - -4.684596;-1.845090;-0.006558;, - -4.752546;-1.845090; 0.298584;, - -4.599771;-1.819746; 0.026927;, - -4.661529;-1.819746; 0.304259;, - -4.570512;-1.794403; 0.309935;, - -4.514947;-1.794403; 0.060412;, - -4.570512;-1.794403; 0.309935;, - -4.661529;-1.819746; 0.304259;, - -4.633962;-1.819747; 0.587786;, - -4.545709;-1.794403; 0.565032;, - -4.474324;-1.805639; 0.076447;, - -4.350672;-1.805639;-0.132165;, - -4.384323;-1.794403;-0.159964;, - -4.514947;-1.794403; 0.060412;, - -4.384323;-1.794403;-0.159964;, - -4.350672;-1.805639;-0.132165;, - -4.169715;-1.805639;-0.293058;, - -4.193163;-1.794403;-0.329927;, - -4.350672;-1.805639;-0.132165;, - -4.317021;-1.816875;-0.104368;, - -4.146266;-1.816875;-0.256188;, - -4.169715;-1.805639;-0.293058;, - -4.599771;-1.819746; 0.026927;, - -4.454590;-1.819746;-0.218008;, - -4.524857;-1.845090;-0.276052;, - -4.684596;-1.845090;-0.006558;, - -4.524857;-1.845090;-0.276052;, - -4.454590;-1.819746;-0.218008;, - -4.242126;-1.819746;-0.406914;, - -4.291089;-1.845090;-0.483900;, - -4.454590;-1.819746;-0.218008;, - -4.384323;-1.794403;-0.159964;, - -4.193163;-1.794403;-0.329927;, - -4.242126;-1.819746;-0.406914;, - -4.454590;-1.819746;-0.218008;, - -4.599771;-1.819746; 0.026927;, - -4.514947;-1.794403; 0.060412;, - -4.384323;-1.794403;-0.159964;, - -4.350672;-1.805639;-0.132165;, - -4.474324;-1.805639; 0.076447;, - -4.433702;-1.816875; 0.092483;, - -4.317021;-1.816875;-0.104368;, - -4.775300;-1.885638; 0.297165;, - -4.798054;-1.926187; 0.295746;, - -4.766341;-1.926187; 0.621917;, - -4.744277;-1.885638; 0.616229;, - -4.727008;-1.926187;-0.023300;, - -4.798054;-1.926187; 0.295746;, - -4.775300;-1.885638; 0.297165;, - -4.705802;-1.885638;-0.014928;, - -4.705802;-1.885638;-0.014928;, - -4.775300;-1.885638; 0.297165;, - -4.752546;-1.845090; 0.298584;, - -4.684596;-1.845090;-0.006558;, - -4.771244;-2.222106; 0.623180;, - -4.768792;-2.075711; 0.622549;, - -4.800582;-2.075711; 0.295588;, - -4.803111;-2.222106; 0.295431;, - -4.803111;-2.222106; 0.295431;, - -4.800582;-2.075711; 0.295588;, - -4.729364;-2.075711;-0.024229;, - -4.731720;-2.222106;-0.025160;, - -4.729364;-2.075711;-0.024229;, - -4.800582;-2.075711; 0.295588;, - -4.798054;-1.926187; 0.295746;, - -4.727008;-1.926187;-0.023300;, - -4.768792;-2.075711; 0.622549;, - -4.766341;-1.926187; 0.621917;, - -4.798054;-1.926187; 0.295746;, - -4.800582;-2.075711; 0.295588;, - -4.705802;-1.885638;-0.014928;, - -4.542423;-1.885638;-0.290564;, - -4.559991;-1.926187;-0.305075;, - -4.727008;-1.926187;-0.023300;, - -4.559991;-1.926187;-0.305075;, - -4.542423;-1.885638;-0.290564;, - -4.303329;-1.885638;-0.503147;, - -4.315570;-1.926187;-0.522393;, - -4.542423;-1.885638;-0.290564;, - -4.524857;-1.845090;-0.276052;, - -4.291089;-1.845090;-0.483900;, - -4.303329;-1.885638;-0.503147;, - -4.729364;-2.075711;-0.024229;, - -4.561942;-2.075711;-0.306687;, - -4.563894;-2.222106;-0.308300;, - -4.731720;-2.222106;-0.025160;, - -4.563894;-2.222106;-0.308300;, - -4.561942;-2.075711;-0.306687;, - -4.316930;-2.075711;-0.524531;, - -4.318291;-2.222107;-0.526670;, - -4.561942;-2.075711;-0.306687;, - -4.559991;-1.926187;-0.305075;, - -4.315570;-1.926187;-0.522393;, - -4.316930;-2.075711;-0.524531;, - -4.561942;-2.075711;-0.306687;, - -4.729364;-2.075711;-0.024229;, - -4.727008;-1.926187;-0.023300;, - -4.559991;-1.926187;-0.305075;, - -4.542423;-1.885638;-0.290564;, - -4.705802;-1.885638;-0.014928;, - -4.684596;-1.845090;-0.006558;, - -4.524857;-1.845090;-0.276052;, - -4.752546;-1.845090; 0.298584;, - -4.775300;-1.885638; 0.297165;, - -4.744277;-1.885638; 0.616229;, - -4.722215;-1.845090; 0.610540;, - -4.483335;-1.816874; 0.315372;, - -4.526924;-1.805638; 0.312654;, - -4.503445;-1.805639; 0.554136;, - -4.461179;-1.816875; 0.543238;, - -3.361384;-1.816875; 0.977918;, - -3.571284;-1.816875; 1.068190;, - -3.560377;-1.805639; 1.110453;, - -3.337936;-1.805639; 1.014788;, - -3.708614;-1.816875;-0.368666;, - -3.711397;-1.828447;-0.323765;, - -3.502210;-1.828447;-0.277260;, - -3.485708;-1.816875;-0.319111;, - -3.502210;-1.828447;-0.277260;, - -3.317359;-1.828447;-0.167758;, - -3.288732;-1.816875;-0.202428;, - -3.485708;-1.816875;-0.319111;, - -3.317359;-1.828447;-0.167758;, - -3.502210;-1.828447;-0.277260;, - -3.518712;-1.840021;-0.235409;, - -3.345984;-1.840021;-0.133088;, - -3.711397;-1.828447;-0.323765;, - -3.714180;-1.840021;-0.278864;, - -3.518712;-1.840021;-0.235409;, - -3.502210;-1.828447;-0.277260;, - -3.288732;-1.816875;-0.202428;, - -3.317359;-1.828447;-0.167758;, - -3.174764;-1.828447;-0.007414;, - -3.136787;-1.816875;-0.031567;, - -3.174764;-1.828447;-0.007414;, - -3.090008;-1.828447; 0.189716;, - -3.046471;-1.816875; 0.178491;, - -3.136787;-1.816875;-0.031567;, - -3.090008;-1.828447; 0.189716;, - -3.174764;-1.828447;-0.007414;, - -3.212741;-1.840021; 0.016740;, - -3.133544;-1.840021; 0.200941;, - -3.317359;-1.828447;-0.167758;, - -3.345984;-1.840021;-0.133088;, - -3.212741;-1.840021; 0.016740;, - -3.174764;-1.828447;-0.007414;, - -4.065317;-1.921118;-0.128908;, - -3.717940;-1.921119;-0.218184;, - -3.714180;-1.840021;-0.278864;, - -4.097959;-1.840021;-0.180232;, - -3.069216;-1.828447; 0.403558;, - -3.024316;-1.816875; 0.406357;, - -3.046471;-1.816875; 0.178491;, - -3.090008;-1.828447; 0.189716;, - -3.069216;-1.828447; 0.403558;, - -3.115795;-1.828447; 0.612729;, - -3.073949;-1.816875; 0.629246;, - -3.024316;-1.816875; 0.406357;, - -3.115795;-1.828447; 0.612729;, - -3.069216;-1.828447; 0.403558;, - -3.114115;-1.840021; 0.400758;, - -3.157640;-1.840021; 0.596210;, - -3.114115;-1.840021; 0.400758;, - -3.069216;-1.828447; 0.403558;, - -3.090008;-1.828447; 0.189716;, - -3.133544;-1.840021; 0.200941;, - -3.157640;-1.840021; 0.596210;, - -3.214189;-1.921119; 0.573887;, - -3.442334;-1.921119; 0.850637;, - -3.409692;-1.840021; 0.901962;, - -4.169715;-1.805639;-0.293058;, - -3.947274;-1.805639;-0.388723;, - -3.958182;-1.794403;-0.430987;, - -4.193163;-1.794403;-0.329927;, - -3.705913;-1.805639;-0.412256;, - -3.703211;-1.794403;-0.455846;, - -3.958182;-1.794403;-0.430987;, - -3.947274;-1.805639;-0.388723;, - -3.708614;-1.816875;-0.368666;, - -3.705913;-1.805639;-0.412256;, - -3.947274;-1.805639;-0.388723;, - -3.936368;-1.816875;-0.346461;, - -4.242126;-1.819746;-0.406914;, - -3.980956;-1.819746;-0.519235;, - -4.003730;-1.845090;-0.607485;, - -4.291089;-1.845090;-0.483900;, - -4.003730;-1.845090;-0.607485;, - -3.980956;-1.819746;-0.519235;, - -3.697570;-1.819746;-0.546866;, - -3.691930;-1.845090;-0.637885;, - -3.980956;-1.819746;-0.519235;, - -3.958182;-1.794403;-0.430987;, - -3.703211;-1.794403;-0.455846;, - -3.697570;-1.819746;-0.546866;, - -4.193163;-1.794403;-0.329927;, - -3.958182;-1.794403;-0.430987;, - -3.980956;-1.819746;-0.519235;, - -4.242126;-1.819746;-0.406914;, - -3.469688;-1.805639;-0.359740;, - -3.453668;-1.794403;-0.400369;, - -3.703211;-1.794403;-0.455846;, - -3.705913;-1.805639;-0.412256;, - -3.469688;-1.805639;-0.359740;, - -3.260944;-1.805639;-0.236085;, - -3.233154;-1.794404;-0.269742;, - -3.453668;-1.794403;-0.400369;, - -3.260944;-1.805639;-0.236085;, - -3.469688;-1.805639;-0.359740;, - -3.485708;-1.816875;-0.319111;, - -3.288732;-1.816875;-0.202428;, - -3.420216;-1.819746;-0.485205;, - -3.386764;-1.845090;-0.570043;, - -3.691930;-1.845090;-0.637885;, - -3.697570;-1.819746;-0.546866;, - -3.420216;-1.819746;-0.485205;, - -3.175127;-1.819746;-0.340021;, - -3.117100;-1.845090;-0.410300;, - -3.386764;-1.845090;-0.570043;, - -3.175127;-1.819746;-0.340021;, - -3.420216;-1.819746;-0.485205;, - -3.453668;-1.794403;-0.400369;, - -3.233154;-1.794404;-0.269742;, - -3.453668;-1.794403;-0.400369;, - -3.420216;-1.819746;-0.485205;, - -3.697570;-1.819746;-0.546866;, - -3.703211;-1.794403;-0.455846;, - -3.469688;-1.805639;-0.359740;, - -3.705913;-1.805639;-0.412256;, - -3.708614;-1.816875;-0.368666;, - -3.485708;-1.816875;-0.319111;, - -3.099918;-1.805639;-0.055015;, - -3.063049;-1.794404;-0.078463;, - -3.233154;-1.794404;-0.269742;, - -3.260944;-1.805639;-0.236085;, - -3.099918;-1.805639;-0.055015;, - -3.004207;-1.805639; 0.167595;, - -2.961942;-1.794404; 0.156697;, - -3.063049;-1.794404;-0.078463;, - -3.004207;-1.805639; 0.167595;, - -3.099918;-1.805639;-0.055015;, - -3.136787;-1.816875;-0.031567;, - -3.046471;-1.816875; 0.178491;, - -2.986064;-1.819746;-0.127425;, - -2.909081;-1.845090;-0.176386;, - -3.117100;-1.845090;-0.410300;, - -3.175127;-1.819746;-0.340021;, - -2.986064;-1.819746;-0.127425;, - -2.873689;-1.819746; 0.133944;, - -2.785437;-1.845090; 0.111190;, - -2.909081;-1.845090;-0.176386;, - -2.873689;-1.819746; 0.133944;, - -2.986064;-1.819746;-0.127425;, - -3.063049;-1.794404;-0.078463;, - -2.961942;-1.794404; 0.156697;, - -3.063049;-1.794404;-0.078463;, - -2.986064;-1.819746;-0.127425;, - -3.175127;-1.819746;-0.340021;, - -3.233154;-1.794404;-0.269742;, - -3.136787;-1.816875;-0.031567;, - -3.099918;-1.805639;-0.055015;, - -3.260944;-1.805639;-0.236085;, - -3.288732;-1.816875;-0.202428;, - -4.303329;-1.885638;-0.503147;, - -4.009425;-1.885638;-0.629547;, - -4.015119;-1.926187;-0.651609;, - -4.315570;-1.926187;-0.522393;, - -4.015119;-1.926187;-0.651609;, - -4.009425;-1.885638;-0.629547;, - -3.690519;-1.885638;-0.660640;, - -3.689109;-1.926188;-0.683395;, - -4.009425;-1.885638;-0.629547;, - -4.003730;-1.845090;-0.607485;, - -3.691930;-1.845090;-0.637885;, - -3.690519;-1.885638;-0.660640;, - -4.316930;-2.075711;-0.524531;, - -4.015751;-2.075711;-0.654060;, - -4.016384;-2.222107;-0.656512;, - -4.318291;-2.222107;-0.526670;, - -4.016384;-2.222107;-0.656512;, - -4.015751;-2.075711;-0.654060;, - -3.688952;-2.075711;-0.685923;, - -3.688796;-2.222107;-0.688452;, - -4.015751;-2.075711;-0.654060;, - -4.015119;-1.926187;-0.651609;, - -3.689109;-1.926188;-0.683395;, - -3.688952;-2.075711;-0.685923;, - -4.315570;-1.926187;-0.522393;, - -4.015119;-1.926187;-0.651609;, - -4.015751;-2.075711;-0.654060;, - -4.316930;-2.075711;-0.524531;, - -3.378401;-1.885638;-0.591251;, - -3.370039;-1.926188;-0.612460;, - -3.689109;-1.926188;-0.683395;, - -3.690519;-1.885638;-0.660640;, - -3.088087;-1.926188;-0.445439;, - -3.370039;-1.926188;-0.612460;, - -3.378401;-1.885638;-0.591251;, - -3.102593;-1.885638;-0.427869;, - -3.102593;-1.885638;-0.427869;, - -3.378401;-1.885638;-0.591251;, - -3.386764;-1.845090;-0.570043;, - -3.117100;-1.845090;-0.410300;, - -3.688952;-2.075711;-0.685923;, - -3.369109;-2.075711;-0.614817;, - -3.368180;-2.222107;-0.617173;, - -3.688796;-2.222107;-0.688452;, - -3.369109;-2.075711;-0.614817;, - -3.086475;-2.075711;-0.447391;, - -3.084863;-2.222107;-0.449344;, - -3.368180;-2.222107;-0.617173;, - -3.086475;-2.075711;-0.447391;, - -3.369109;-2.075711;-0.614817;, - -3.370039;-1.926188;-0.612460;, - -3.088087;-1.926188;-0.445439;, - -3.688952;-2.075711;-0.685923;, - -3.689109;-1.926188;-0.683395;, - -3.370039;-1.926188;-0.612460;, - -3.369109;-2.075711;-0.614817;, - -3.386764;-1.845090;-0.570043;, - -3.378401;-1.885638;-0.591251;, - -3.690519;-1.885638;-0.660640;, - -3.691930;-1.845090;-0.637885;, - -2.889834;-1.885638;-0.188627;, - -2.870588;-1.926188;-0.200867;, - -3.088087;-1.926188;-0.445439;, - -3.102593;-1.885638;-0.427869;, - -2.741310;-1.926188; 0.099814;, - -2.870588;-1.926188;-0.200867;, - -2.889834;-1.885638;-0.188627;, - -2.763374;-1.885638; 0.105502;, - -2.763374;-1.885638; 0.105502;, - -2.889834;-1.885638;-0.188627;, - -2.909081;-1.845090;-0.176386;, - -2.785437;-1.845090; 0.111190;, - -3.084863;-2.222107;-0.449344;, - -3.086475;-2.075711;-0.447391;, - -2.868450;-2.075711;-0.202227;, - -2.866312;-2.222107;-0.203587;, - -2.868450;-2.075711;-0.202227;, - -2.738859;-2.075711; 0.099181;, - -2.736408;-2.222107; 0.098549;, - -2.866312;-2.222107;-0.203587;, - -2.738859;-2.075711; 0.099181;, - -2.868450;-2.075711;-0.202227;, - -2.870588;-1.926188;-0.200867;, - -2.741310;-1.926188; 0.099814;, - -3.086475;-2.075711;-0.447391;, - -3.088087;-1.926188;-0.445439;, - -2.870588;-1.926188;-0.200867;, - -2.868450;-2.075711;-0.202227;, - -2.909081;-1.845090;-0.176386;, - -2.889834;-1.885638;-0.188627;, - -3.102593;-1.885638;-0.427869;, - -3.117100;-1.845090;-0.410300;, - -4.291089;-1.845090;-0.483900;, - -4.003730;-1.845090;-0.607485;, - -4.009425;-1.885638;-0.629547;, - -4.303329;-1.885638;-0.503147;, - -2.980727;-1.805639; 0.409076;, - -2.937139;-1.794404; 0.411794;, - -2.961942;-1.794404; 0.156697;, - -3.004207;-1.805639; 0.167595;, - -2.980727;-1.805639; 0.409076;, - -3.033327;-1.805639; 0.645282;, - -2.992704;-1.794404; 0.661318;, - -2.937139;-1.794404; 0.411794;, - -3.073949;-1.816875; 0.629246;, - -3.033327;-1.805639; 0.645282;, - -2.980727;-1.805639; 0.409076;, - -3.024316;-1.816875; 0.406357;, - -2.846122;-1.819746; 0.417470;, - -2.755104;-1.845090; 0.423146;, - -2.785437;-1.845090; 0.111190;, - -2.873689;-1.819746; 0.133944;, - -2.846122;-1.819746; 0.417470;, - -2.907879;-1.819746; 0.694803;, - -2.823055;-1.845090; 0.728287;, - -2.755104;-1.845090; 0.423146;, - -2.907879;-1.819746; 0.694803;, - -2.846122;-1.819746; 0.417470;, - -2.937139;-1.794404; 0.411794;, - -2.992704;-1.794404; 0.661318;, - -2.937139;-1.794404; 0.411794;, - -2.846122;-1.819746; 0.417470;, - -2.873689;-1.819746; 0.133944;, - -2.961942;-1.794404; 0.156697;, - -3.033327;-1.805639; 0.645282;, - -3.156979;-1.805639; 0.853895;, - -3.123327;-1.794404; 0.881694;, - -2.992704;-1.794404; 0.661318;, - -3.123327;-1.794404; 0.881694;, - -3.156979;-1.805639; 0.853895;, - -3.337936;-1.805639; 1.014788;, - -3.314487;-1.794404; 1.051657;, - -3.156979;-1.805639; 0.853895;, - -3.190630;-1.816875; 0.826097;, - -3.361384;-1.816875; 0.977918;, - -3.337936;-1.805639; 1.014788;, - -2.907879;-1.819746; 0.694803;, - -3.053061;-1.819746; 0.939738;, - -2.982794;-1.845090; 0.997782;, - -2.823055;-1.845090; 0.728287;, - -2.982794;-1.845090; 0.997782;, - -3.053061;-1.819746; 0.939738;, - -3.265525;-1.819746; 1.128643;, - -3.216562;-1.845090; 1.205630;, - -3.053061;-1.819746; 0.939738;, - -3.123327;-1.794404; 0.881694;, - -3.314487;-1.794404; 1.051657;, - -3.265525;-1.819746; 1.128643;, - -3.053061;-1.819746; 0.939738;, - -2.907879;-1.819746; 0.694803;, - -2.992704;-1.794404; 0.661318;, - -3.123327;-1.794404; 0.881694;, - -3.156979;-1.805639; 0.853895;, - -3.033327;-1.805639; 0.645282;, - -3.073949;-1.816875; 0.629246;, - -3.190630;-1.816875; 0.826097;, - -2.732351;-1.885638; 0.424565;, - -2.709597;-1.926188; 0.425984;, - -2.741310;-1.926188; 0.099814;, - -2.763374;-1.885638; 0.105502;, - -2.732351;-1.885638; 0.424565;, - -2.801848;-1.885638; 0.736658;, - -2.780642;-1.926188; 0.745029;, - -2.709597;-1.926188; 0.425984;, - -2.801848;-1.885638; 0.736658;, - -2.732351;-1.885638; 0.424565;, - -2.755104;-1.845090; 0.423146;, - -2.823055;-1.845090; 0.728287;, - -2.707068;-2.075711; 0.426141;, - -2.704540;-2.222107; 0.426299;, - -2.736408;-2.222107; 0.098549;, - -2.738859;-2.075711; 0.099181;, - -2.707068;-2.075711; 0.426141;, - -2.778286;-2.075711; 0.745959;, - -2.775931;-2.222107; 0.746889;, - -2.704540;-2.222107; 0.426299;, - -2.778286;-2.075711; 0.745959;, - -2.707068;-2.075711; 0.426141;, - -2.709597;-1.926188; 0.425984;, - -2.780642;-1.926188; 0.745029;, - -2.709597;-1.926188; 0.425984;, - -2.707068;-2.075711; 0.426141;, - -2.738859;-2.075711; 0.099181;, - -2.741310;-1.926188; 0.099814;, - -2.801848;-1.885638; 0.736658;, - -2.965228;-1.885638; 1.012293;, - -2.947661;-1.926188; 1.026805;, - -2.780642;-1.926188; 0.745029;, - -2.947661;-1.926188; 1.026805;, - -2.965228;-1.885638; 1.012293;, - -3.204321;-1.885638; 1.224876;, - -3.192080;-1.926188; 1.244123;, - -2.965228;-1.885638; 1.012293;, - -2.982794;-1.845090; 0.997782;, - -3.216562;-1.845090; 1.205630;, - -3.204321;-1.885638; 1.224876;, - -2.778286;-2.075711; 0.745959;, - -2.945709;-2.075711; 1.028417;, - -2.943757;-2.222107; 1.030030;, - -2.775931;-2.222107; 0.746889;, - -2.943757;-2.222107; 1.030030;, - -2.945709;-2.075711; 1.028417;, - -3.190721;-2.075711; 1.246261;, - -3.189360;-2.222107; 1.248400;, - -2.945709;-2.075711; 1.028417;, - -2.947661;-1.926188; 1.026805;, - -3.192080;-1.926188; 1.244123;, - -3.190721;-2.075711; 1.246261;, - -2.945709;-2.075711; 1.028417;, - -2.778286;-2.075711; 0.745959;, - -2.780642;-1.926188; 0.745029;, - -2.947661;-1.926188; 1.026805;, - -2.965228;-1.885638; 1.012293;, - -2.801848;-1.885638; 0.736658;, - -2.823055;-1.845090; 0.728287;, - -2.982794;-1.845090; 0.997782;, - -2.755104;-1.845090; 0.423146;, - -2.732351;-1.885638; 0.424565;, - -2.763374;-1.885638; 0.105502;, - -2.785437;-1.845090; 0.111190;, - -3.024316;-1.816875; 0.406357;, - -2.980727;-1.805639; 0.409076;, - -3.004207;-1.805639; 0.167595;, - -3.046471;-1.816875; 0.178491;, - -3.947274;-1.805639;-0.388723;, - -4.169715;-1.805639;-0.293058;, - -4.146266;-1.816875;-0.256188;, - -3.936368;-1.816875;-0.346461;, - -3.699388;-2.277268; 0.446460;, - -3.675702;-2.277268; 0.425400;, - -3.607387;-2.274734; 0.481832;, - -3.651785;-2.274734; 0.521308;, - -3.659516;-2.277268; 0.398093;, - -3.577049;-2.274734; 0.430648;, - -3.607387;-2.274734; 0.481832;, - -3.675702;-2.277268; 0.425400;, - -3.659516;-2.277268; 0.398093;, - -3.675702;-2.277268; 0.425400;, - -3.753826;-2.279802; 0.360865;, - -3.659516;-2.277268; 0.398093;, - -3.652632;-2.277268; 0.367175;, - -3.564143;-2.274734; 0.372693;, - -3.577049;-2.274734; 0.430648;, - -3.652632;-2.277268; 0.367175;, - -3.655706;-2.277268; 0.335567;, - -3.569904;-2.274734; 0.313446;, - -3.564143;-2.274734; 0.372693;, - -3.655706;-2.277268; 0.335567;, - -3.652632;-2.277268; 0.367175;, - -3.753826;-2.279802; 0.360865;, - -3.652632;-2.277268; 0.367175;, - -3.659516;-2.277268; 0.398093;, - -3.753826;-2.279802; 0.360865;, - -3.668233;-2.277268; 0.306429;, - -3.593387;-2.274734; 0.258827;, - -3.569904;-2.274734; 0.313446;, - -3.655706;-2.277268; 0.335567;, - -3.668233;-2.277268; 0.306429;, - -3.689311;-2.277268; 0.282728;, - -3.632895;-2.274734; 0.214401;, - -3.593387;-2.274734; 0.258827;, - -3.689311;-2.277268; 0.282728;, - -3.668233;-2.277268; 0.306429;, - -3.753826;-2.279802; 0.360865;, - -3.668233;-2.277268; 0.306429;, - -3.655706;-2.277268; 0.335567;, - -3.753826;-2.279802; 0.360865;, - -3.567461;-2.327954; 0.653895;, - -3.486372;-2.327954; 0.581797;, - -3.412201;-2.330488; 0.643066;, - -3.515778;-2.330488; 0.735158;, - -3.412201;-2.330488; 0.643066;, - -3.486372;-2.327954; 0.581797;, - -3.430962;-2.327954; 0.488315;, - -3.341426;-2.330488; 0.523660;, - -3.486372;-2.327954; 0.581797;, - -3.560543;-2.325420; 0.520528;, - -3.520499;-2.325420; 0.452970;, - -3.430962;-2.327954; 0.488315;, - -3.407392;-2.327954; 0.382469;, - -3.311319;-2.330488; 0.388460;, - -3.341426;-2.330488; 0.523660;, - -3.430962;-2.327954; 0.488315;, - -3.324758;-2.330488; 0.250240;, - -3.311319;-2.330488; 0.388460;, - -3.407392;-2.327954; 0.382469;, - -3.417913;-2.327954; 0.274259;, - -3.417913;-2.327954; 0.274259;, - -3.407392;-2.327954; 0.382469;, - -3.503465;-2.325420; 0.376478;, - -3.511069;-2.325420; 0.298276;, - -3.503465;-2.325420; 0.376478;, - -3.407392;-2.327954; 0.382469;, - -3.430962;-2.327954; 0.488315;, - -3.520499;-2.325420; 0.452970;, - -3.460803;-2.327954; 0.174505;, - -3.379541;-2.330488; 0.122823;, - -3.324758;-2.330488; 0.250240;, - -3.417913;-2.327954; 0.274259;, - -3.471709;-2.330488; 0.019182;, - -3.379541;-2.330488; 0.122823;, - -3.460803;-2.327954; 0.174505;, - -3.532960;-2.327954; 0.093365;, - -3.532960;-2.327954; 0.093365;, - -3.460803;-2.327954; 0.174505;, - -3.542064;-2.325420; 0.226186;, - -3.594210;-2.325420; 0.167549;, - -3.542064;-2.325420; 0.226186;, - -3.460803;-2.327954; 0.174505;, - -3.417913;-2.327954; 0.274259;, - -3.511069;-2.325420; 0.298276;, - -3.619143;-2.325420; 0.572632;, - -3.560543;-2.325420; 0.520528;, - -3.486372;-2.327954; 0.581797;, - -3.567461;-2.327954; 0.653895;, - -3.716634;-2.277268; 0.266541;, - -3.684111;-2.274734; 0.184062;, - -3.632895;-2.274734; 0.214401;, - -3.689311;-2.277268; 0.282728;, - -3.716634;-2.277268; 0.266541;, - -3.747554;-2.277268; 0.259667;, - -3.742070;-2.274734; 0.171177;, - -3.684111;-2.274734; 0.184062;, - -3.747554;-2.277268; 0.259667;, - -3.716634;-2.277268; 0.266541;, - -3.753826;-2.279802; 0.360865;, - -3.747554;-2.277268; 0.259667;, - -3.779147;-2.277268; 0.262748;, - -3.801289;-2.274734; 0.176950;, - -3.742070;-2.274734; 0.171177;, - -3.808263;-2.277268; 0.275270;, - -3.855866;-2.274734; 0.200422;, - -3.801289;-2.274734; 0.176950;, - -3.779147;-2.277268; 0.262748;, - -3.808263;-2.277268; 0.275270;, - -3.779147;-2.277268; 0.262748;, - -3.753826;-2.279802; 0.360865;, - -3.779147;-2.277268; 0.262748;, - -3.747554;-2.277268; 0.259667;, - -3.753826;-2.279802; 0.360865;, - -3.626500;-2.327954; 0.037954;, - -3.591190;-2.330488;-0.051596;, - -3.471709;-2.330488; 0.019182;, - -3.532960;-2.327954; 0.093365;, - -3.591190;-2.330488;-0.051596;, - -3.626500;-2.327954; 0.037954;, - -3.732355;-2.327954; 0.014421;, - -3.726401;-2.330488;-0.081655;, - -3.732355;-2.327954; 0.014421;, - -3.626500;-2.327954; 0.037954;, - -3.661810;-2.325420; 0.127504;, - -3.738309;-2.325420; 0.110497;, - -3.732355;-2.327954; 0.014421;, - -3.840512;-2.327954; 0.024966;, - -3.864552;-2.330488;-0.068186;, - -3.726401;-2.330488;-0.081655;, - -3.864552;-2.330488;-0.068186;, - -3.840512;-2.327954; 0.024966;, - -3.940190;-2.327954; 0.067835;, - -3.991873;-2.330488;-0.013428;, - -3.840512;-2.327954; 0.024966;, - -3.816472;-2.325420; 0.118118;, - -3.888507;-2.325420; 0.149098;, - -3.940190;-2.327954; 0.067835;, - -3.840512;-2.327954; 0.024966;, - -3.732355;-2.327954; 0.014421;, - -3.738309;-2.325420; 0.110497;, - -3.816472;-2.325420; 0.118118;, - -3.661810;-2.325420; 0.127504;, - -3.626500;-2.327954; 0.037954;, - -3.532960;-2.327954; 0.093365;, - -3.594210;-2.325420; 0.167549;, - -3.716634;-2.277268; 0.266541;, - -3.689311;-2.277268; 0.282728;, - -3.753826;-2.279802; 0.360865;, - -3.511241;-2.359844; 0.742291;, - -3.333566;-2.359844; 0.526762;, - -3.303726;-2.355832; 0.538542;, - -3.494017;-2.355832; 0.769375;, - -3.316581;-2.359843; 0.248132;, - -3.466333;-2.359843; 0.012670;, - -3.445919;-2.355832;-0.012053;, - -3.285534;-2.355832; 0.240127;, - -3.316581;-2.359843; 0.248132;, - -3.324758;-2.360900; 0.250240;, - -3.471709;-2.360900; 0.019182;, - -3.466333;-2.359843; 0.012670;, - -3.494017;-2.518027; 0.769375;, - -3.303726;-2.518027; 0.538542;, - -3.284876;-2.548439; 0.545983;, - -3.483136;-2.548439; 0.786482;, - -3.303726;-2.518027; 0.538542;, - -3.285534;-2.518027; 0.240127;, - -3.265923;-2.548439; 0.235071;, - -3.284876;-2.548439; 0.545983;, - -3.285534;-2.518027; 0.240127;, - -3.303726;-2.518027; 0.538542;, - -3.303726;-2.355832; 0.538542;, - -3.285534;-2.355832; 0.240127;, - -3.265923;-2.548439; 0.235071;, - -3.285534;-2.518027; 0.240127;, - -3.445919;-2.518027;-0.012053;, - -3.433025;-2.548439;-0.027671;, - -3.445919;-2.518027;-0.012053;, - -3.285534;-2.518027; 0.240127;, - -3.285534;-2.355832; 0.240127;, - -3.445919;-2.355832;-0.012053;, - -3.494017;-2.355832; 0.769375;, - -3.303726;-2.355832; 0.538542;, - -3.303726;-2.518027; 0.538542;, - -3.494017;-2.518027; 0.769375;, - -3.723894;-2.355831;-0.122108;, - -3.725878;-2.359844;-0.090088;, - -3.996409;-2.359844;-0.020561;, - -4.013634;-2.355831;-0.047645;, - -3.725878;-2.359844;-0.090088;, - -3.726401;-2.360900;-0.081655;, - -3.991873;-2.360900;-0.013428;, - -3.996409;-2.359844;-0.020561;, - -3.433025;-2.548439;-0.027671;, - -3.445919;-2.518027;-0.012053;, - -3.723894;-2.518027;-0.122108;, - -3.722640;-2.548439;-0.142335;, - -3.722640;-2.548439;-0.142335;, - -3.723894;-2.518027;-0.122108;, - -4.013634;-2.518027;-0.047645;, - -4.024515;-2.548439;-0.064752;, - -4.013634;-2.518027;-0.047645;, - -3.723894;-2.518027;-0.122108;, - -3.723894;-2.355831;-0.122108;, - -4.013634;-2.355831;-0.047645;, - -3.723894;-2.518027;-0.122108;, - -3.445919;-2.518027;-0.012053;, - -3.445919;-2.355832;-0.012053;, - -3.723894;-2.355831;-0.122108;, - -3.515778;-2.360900; 0.735158;, - -3.341426;-2.360900; 0.523660;, - -3.333566;-2.359844; 0.526762;, - -3.511241;-2.359844; 0.742291;, - -3.808263;-2.277268; 0.275270;, - -3.831949;-2.277268; 0.296330;, - -3.900264;-2.274734; 0.239898;, - -3.855866;-2.274734; 0.200422;, - -3.848135;-2.277268; 0.323636;, - -3.930602;-2.274734; 0.291082;, - -3.900264;-2.274734; 0.239898;, - -3.831949;-2.277268; 0.296330;, - -3.848135;-2.277268; 0.323636;, - -3.831949;-2.277268; 0.296330;, - -3.753826;-2.279802; 0.360865;, - -3.855020;-2.277268; 0.354554;, - -3.943508;-2.274734; 0.349036;, - -3.930602;-2.274734; 0.291082;, - -3.848135;-2.277268; 0.323636;, - -3.855020;-2.277268; 0.354554;, - -3.851947;-2.277268; 0.386163;, - -3.937748;-2.274734; 0.408285;, - -3.943508;-2.274734; 0.349036;, - -3.851947;-2.277268; 0.386163;, - -3.855020;-2.277268; 0.354554;, - -3.753826;-2.279802; 0.360865;, - -3.855020;-2.277268; 0.354554;, - -3.848135;-2.277268; 0.323636;, - -3.753826;-2.279802; 0.360865;, - -3.839418;-2.277268; 0.415301;, - -3.914264;-2.274734; 0.462903;, - -3.937748;-2.274734; 0.408285;, - -3.851947;-2.277268; 0.386163;, - -3.839418;-2.277268; 0.415301;, - -3.818341;-2.277268; 0.439002;, - -3.874756;-2.274734; 0.507329;, - -3.914264;-2.274734; 0.462903;, - -3.818341;-2.277268; 0.439002;, - -3.839418;-2.277268; 0.415301;, - -3.753826;-2.279802; 0.360865;, - -3.839418;-2.277268; 0.415301;, - -3.851947;-2.277268; 0.386163;, - -3.753826;-2.279802; 0.360865;, - -3.940190;-2.327954; 0.067835;, - -4.021279;-2.327954; 0.139933;, - -4.095450;-2.330488; 0.078663;, - -3.991873;-2.330488;-0.013428;, - -4.095450;-2.330488; 0.078663;, - -4.021279;-2.327954; 0.139933;, - -4.076689;-2.327954; 0.233415;, - -4.166225;-2.330488; 0.198069;, - -4.021279;-2.327954; 0.139933;, - -3.947108;-2.325420; 0.201202;, - -3.987152;-2.325420; 0.268759;, - -4.076689;-2.327954; 0.233415;, - -4.076689;-2.327954; 0.233415;, - -4.100259;-2.327954; 0.339261;, - -4.196332;-2.330488; 0.333270;, - -4.166225;-2.330488; 0.198069;, - -4.182893;-2.330488; 0.471489;, - -4.196332;-2.330488; 0.333270;, - -4.100259;-2.327954; 0.339261;, - -4.089738;-2.327954; 0.447471;, - -4.089738;-2.327954; 0.447471;, - -4.100259;-2.327954; 0.339261;, - -4.004186;-2.325420; 0.345252;, - -3.996582;-2.325420; 0.423454;, - -4.004186;-2.325420; 0.345252;, - -4.100259;-2.327954; 0.339261;, - -4.076689;-2.327954; 0.233415;, - -3.987152;-2.325420; 0.268759;, - -4.046848;-2.327954; 0.547225;, - -4.128110;-2.330488; 0.598907;, - -4.182893;-2.330488; 0.471489;, - -4.089738;-2.327954; 0.447471;, - -4.035942;-2.330488; 0.702547;, - -4.128110;-2.330488; 0.598907;, - -4.046848;-2.327954; 0.547225;, - -3.974691;-2.327954; 0.628365;, - -3.974691;-2.327954; 0.628365;, - -4.046848;-2.327954; 0.547225;, - -3.965587;-2.325420; 0.495544;, - -3.913441;-2.325420; 0.554181;, - -3.965587;-2.325420; 0.495544;, - -4.046848;-2.327954; 0.547225;, - -4.089738;-2.327954; 0.447471;, - -3.996582;-2.325420; 0.423454;, - -3.888507;-2.325420; 0.149098;, - -3.947108;-2.325420; 0.201202;, - -4.021279;-2.327954; 0.139933;, - -3.940190;-2.327954; 0.067835;, - -3.791018;-2.277268; 0.455188;, - -3.823540;-2.274734; 0.537668;, - -3.874756;-2.274734; 0.507329;, - -3.818341;-2.277268; 0.439002;, - -3.760098;-2.277268; 0.462062;, - -3.765581;-2.274734; 0.550553;, - -3.823540;-2.274734; 0.537668;, - -3.791018;-2.277268; 0.455188;, - -3.760098;-2.277268; 0.462062;, - -3.791018;-2.277268; 0.455188;, - -3.753826;-2.279802; 0.360865;, - -3.760098;-2.277268; 0.462062;, - -3.728504;-2.277268; 0.458981;, - -3.706362;-2.274734; 0.544779;, - -3.765581;-2.274734; 0.550553;, - -3.706362;-2.274734; 0.544779;, - -3.728504;-2.277268; 0.458981;, - -3.699388;-2.277268; 0.446460;, - -3.651785;-2.274734; 0.521308;, - -3.728504;-2.277268; 0.458981;, - -3.753826;-2.279802; 0.360865;, - -3.699388;-2.277268; 0.446460;, - -3.728504;-2.277268; 0.458981;, - -3.760098;-2.277268; 0.462062;, - -3.753826;-2.279802; 0.360865;, - -3.881150;-2.327954; 0.683775;, - -3.916460;-2.330488; 0.773325;, - -4.035942;-2.330488; 0.702547;, - -3.974691;-2.327954; 0.628365;, - -3.881150;-2.327954; 0.683775;, - -3.775296;-2.327954; 0.707309;, - -3.781250;-2.330488; 0.803384;, - -3.916460;-2.330488; 0.773325;, - -3.775296;-2.327954; 0.707309;, - -3.881150;-2.327954; 0.683775;, - -3.845841;-2.325420; 0.594226;, - -3.769342;-2.325420; 0.611233;, - -3.775296;-2.327954; 0.707309;, - -3.667140;-2.327954; 0.696764;, - -3.643099;-2.330488; 0.789915;, - -3.781250;-2.330488; 0.803384;, - -3.643099;-2.330488; 0.789915;, - -3.667140;-2.327954; 0.696764;, - -3.567461;-2.327954; 0.653895;, - -3.515778;-2.330488; 0.735158;, - -3.667140;-2.327954; 0.696764;, - -3.691179;-2.325420; 0.603612;, - -3.619143;-2.325420; 0.572632;, - -3.567461;-2.327954; 0.653895;, - -3.667140;-2.327954; 0.696764;, - -3.775296;-2.327954; 0.707309;, - -3.769342;-2.325420; 0.611233;, - -3.691179;-2.325420; 0.603612;, - -3.845841;-2.325420; 0.594226;, - -3.881150;-2.327954; 0.683775;, - -3.974691;-2.327954; 0.628365;, - -3.913441;-2.325420; 0.554181;, - -3.791018;-2.277268; 0.455188;, - -3.818341;-2.277268; 0.439002;, - -3.753826;-2.279802; 0.360865;, - -3.996409;-2.359844;-0.020561;, - -4.174084;-2.359844; 0.194968;, - -4.203925;-2.355831; 0.183187;, - -4.013634;-2.355831;-0.047645;, - -4.174084;-2.359844; 0.194968;, - -4.191071;-2.359844; 0.473597;, - -4.222116;-2.355831; 0.481603;, - -4.203925;-2.355831; 0.183187;, - -4.191071;-2.359844; 0.473597;, - -4.174084;-2.359844; 0.194968;, - -4.166225;-2.360900; 0.198069;, - -4.182893;-2.360900; 0.471489;, - -4.041319;-2.359844; 0.709059;, - -4.061732;-2.355831; 0.733783;, - -4.222116;-2.355831; 0.481603;, - -4.191071;-2.359844; 0.473597;, - -4.041319;-2.359844; 0.709059;, - -4.191071;-2.359844; 0.473597;, - -4.182893;-2.360900; 0.471489;, - -4.035942;-2.360900; 0.702547;, - -4.013634;-2.518027;-0.047645;, - -4.203925;-2.518027; 0.183187;, - -4.222775;-2.548439; 0.175746;, - -4.024515;-2.548439;-0.064752;, - -4.203925;-2.518027; 0.183187;, - -4.222116;-2.518027; 0.481603;, - -4.241729;-2.548439; 0.486658;, - -4.222775;-2.548439; 0.175746;, - -4.222116;-2.518027; 0.481603;, - -4.203925;-2.518027; 0.183187;, - -4.203925;-2.355831; 0.183187;, - -4.222116;-2.355831; 0.481603;, - -4.222116;-2.518027; 0.481603;, - -4.061732;-2.518027; 0.733783;, - -4.074627;-2.548439; 0.749400;, - -4.241729;-2.548439; 0.486658;, - -4.061732;-2.518027; 0.733783;, - -4.222116;-2.518027; 0.481603;, - -4.222116;-2.355831; 0.481603;, - -4.061732;-2.355831; 0.733783;, - -4.013634;-2.355831;-0.047645;, - -4.203925;-2.355831; 0.183187;, - -4.203925;-2.518027; 0.183187;, - -4.013634;-2.518027;-0.047645;, - -3.781773;-2.359844; 0.811818;, - -3.783757;-2.355831; 0.843837;, - -4.061732;-2.355831; 0.733783;, - -4.041319;-2.359844; 0.709059;, - -3.783757;-2.355831; 0.843837;, - -3.781773;-2.359844; 0.811818;, - -3.511241;-2.359844; 0.742291;, - -3.494017;-2.355832; 0.769375;, - -3.781773;-2.359844; 0.811818;, - -3.781250;-2.360900; 0.803384;, - -3.515778;-2.360900; 0.735158;, - -3.511241;-2.359844; 0.742291;, - -3.783757;-2.518027; 0.843837;, - -3.785010;-2.548439; 0.864064;, - -4.074627;-2.548439; 0.749400;, - -4.061732;-2.518027; 0.733783;, - -3.785010;-2.548439; 0.864064;, - -3.783757;-2.518027; 0.843837;, - -3.494017;-2.518027; 0.769375;, - -3.483136;-2.548439; 0.786482;, - -3.494017;-2.518027; 0.769375;, - -3.783757;-2.518027; 0.843837;, - -3.783757;-2.355831; 0.843837;, - -3.494017;-2.355832; 0.769375;, - -3.783757;-2.355831; 0.843837;, - -3.783757;-2.518027; 0.843837;, - -4.061732;-2.518027; 0.733783;, - -4.061732;-2.355831; 0.733783;, - -3.781250;-2.360900; 0.803384;, - -3.781773;-2.359844; 0.811818;, - -4.041319;-2.359844; 0.709059;, - -4.035942;-2.360900; 0.702547;, - -4.174084;-2.359844; 0.194968;, - -3.996409;-2.359844;-0.020561;, - -3.991873;-2.360900;-0.013428;, - -4.166225;-2.360900; 0.198069;, - -3.831949;-2.277268; 0.296330;, - -3.808263;-2.277268; 0.275270;, - -3.753826;-2.279802; 0.360865;, - -3.445054;-2.553508; 0.846361;, - -3.218902;-2.553508; 0.572026;, - -3.214189;-2.523096; 0.573887;, - -3.442334;-2.523096; 0.850637;, - -3.218902;-2.553508; 0.572026;, - -3.197281;-2.553508; 0.217373;, - -3.192379;-2.523096; 0.216110;, - -3.214189;-2.523096; 0.573887;, - -3.197281;-2.553508; 0.217373;, - -3.218902;-2.553508; 0.572026;, - -3.284876;-2.548439; 0.545983;, - -3.265923;-2.548439; 0.235071;, - -3.197281;-2.553508; 0.217373;, - -3.387892;-2.553508;-0.082332;, - -3.384669;-2.523096;-0.086236;, - -3.192379;-2.523096; 0.216110;, - -3.387892;-2.553508;-0.082332;, - -3.197281;-2.553508; 0.217373;, - -3.265923;-2.548439; 0.235071;, - -3.433025;-2.548439;-0.027671;, - -3.115795;-2.615766; 0.612729;, - -3.069216;-2.615767; 0.403558;, - -3.024317;-2.627340; 0.406358;, - -3.073950;-2.627340; 0.629247;, - -3.069216;-2.615767; 0.403558;, - -3.090008;-2.615767; 0.189716;, - -3.046471;-2.627340; 0.178491;, - -3.024317;-2.627340; 0.406358;, - -3.090008;-2.615767; 0.189716;, - -3.069216;-2.615767; 0.403558;, - -3.114116;-2.604194; 0.400758;, - -3.133544;-2.604194; 0.200941;, - -3.115795;-2.615766; 0.612729;, - -3.157640;-2.604194; 0.596210;, - -3.114116;-2.604194; 0.400758;, - -3.069216;-2.615767; 0.403558;, - -3.046471;-2.627340; 0.178491;, - -3.090008;-2.615767; 0.189716;, - -3.174763;-2.615766;-0.007414;, - -3.136787;-2.627340;-0.031567;, - -3.174763;-2.615766;-0.007414;, - -3.317358;-2.615766;-0.167758;, - -3.288733;-2.627340;-0.202428;, - -3.136787;-2.627340;-0.031567;, - -3.317358;-2.615766;-0.167758;, - -3.174763;-2.615766;-0.007414;, - -3.212741;-2.604194; 0.016740;, - -3.345984;-2.604194;-0.133088;, - -3.090008;-2.615767; 0.189716;, - -3.133544;-2.604194; 0.200941;, - -3.212741;-2.604194; 0.016740;, - -3.174763;-2.615766;-0.007414;, - -3.442334;-2.523096; 0.850637;, - -3.214189;-2.523096; 0.573887;, - -3.157640;-2.604194; 0.596210;, - -3.409692;-2.604194; 0.901962;, - -3.718253;-2.553508;-0.213127;, - -3.717940;-2.523096;-0.218184;, - -3.384669;-2.523096;-0.086236;, - -3.387892;-2.553508;-0.082332;, - -4.062597;-2.553508;-0.124631;, - -4.065317;-2.523096;-0.128908;, - -3.717940;-2.523096;-0.218184;, - -3.718253;-2.553508;-0.213127;, - -4.024515;-2.548439;-0.064752;, - -4.062597;-2.553508;-0.124631;, - -3.718253;-2.553508;-0.213127;, - -3.722640;-2.548439;-0.142335;, - -3.502210;-2.615766;-0.277260;, - -3.485708;-2.627340;-0.319110;, - -3.288733;-2.627340;-0.202428;, - -3.317358;-2.615766;-0.167758;, - -3.485708;-2.627340;-0.319110;, - -3.502210;-2.615766;-0.277260;, - -3.711397;-2.615766;-0.323765;, - -3.708615;-2.627340;-0.368666;, - -3.711397;-2.615766;-0.323765;, - -3.502210;-2.615766;-0.277260;, - -3.518713;-2.604194;-0.235408;, - -3.714180;-2.604194;-0.278864;, - -3.518713;-2.604194;-0.235408;, - -3.502210;-2.615766;-0.277260;, - -3.317358;-2.615766;-0.167758;, - -3.345984;-2.604194;-0.133088;, - -3.714180;-2.604194;-0.278864;, - -3.717940;-2.523096;-0.218184;, - -4.065317;-2.523096;-0.128908;, - -4.097959;-2.604194;-0.180232;, - -3.722640;-2.548439;-0.142335;, - -3.718253;-2.553508;-0.213127;, - -3.387892;-2.553508;-0.082332;, - -3.433025;-2.548439;-0.027671;, - -3.337936;-2.638575; 1.014788;, - -3.156979;-2.638575; 0.853895;, - -3.123327;-2.649811; 0.881693;, - -3.314487;-2.649811; 1.051657;, - -3.123327;-2.649811; 0.881693;, - -3.156979;-2.638575; 0.853895;, - -3.033327;-2.638575; 0.645282;, - -2.992704;-2.649811; 0.661318;, - -3.156979;-2.638575; 0.853895;, - -3.190631;-2.627340; 0.826097;, - -3.073950;-2.627340; 0.629247;, - -3.033327;-2.638575; 0.645282;, - -3.265525;-2.624468; 1.128643;, - -3.053061;-2.624468; 0.939738;, - -2.982794;-2.599125; 0.997782;, - -3.216562;-2.599125; 1.205630;, - -2.982794;-2.599125; 0.997782;, - -3.053061;-2.624468; 0.939738;, - -2.907880;-2.624468; 0.694803;, - -2.823055;-2.599125; 0.728287;, - -3.053061;-2.624468; 0.939738;, - -3.123327;-2.649811; 0.881693;, - -2.992704;-2.649811; 0.661318;, - -2.907880;-2.624468; 0.694803;, - -3.314487;-2.649811; 1.051657;, - -3.123327;-2.649811; 0.881693;, - -3.053061;-2.624468; 0.939738;, - -3.265525;-2.624468; 1.128643;, - -2.980727;-2.638575; 0.409076;, - -2.937139;-2.649811; 0.411794;, - -2.992704;-2.649811; 0.661318;, - -3.033327;-2.638575; 0.645282;, - -2.961942;-2.649811; 0.156697;, - -2.937139;-2.649811; 0.411794;, - -2.980727;-2.638575; 0.409076;, - -3.004206;-2.638575; 0.167594;, - -3.004206;-2.638575; 0.167594;, - -2.980727;-2.638575; 0.409076;, - -3.024317;-2.627340; 0.406358;, - -3.046471;-2.627340; 0.178491;, - -2.823055;-2.599125; 0.728287;, - -2.907880;-2.624468; 0.694803;, - -2.846122;-2.624468; 0.417470;, - -2.755105;-2.599125; 0.423146;, - -2.846122;-2.624468; 0.417470;, - -2.873689;-2.624468; 0.133944;, - -2.785436;-2.599125; 0.111190;, - -2.755105;-2.599125; 0.423146;, - -2.873689;-2.624468; 0.133944;, - -2.846122;-2.624468; 0.417470;, - -2.937139;-2.649811; 0.411794;, - -2.961942;-2.649811; 0.156697;, - -2.846122;-2.624468; 0.417470;, - -2.907880;-2.624468; 0.694803;, - -2.992704;-2.649811; 0.661318;, - -2.937139;-2.649811; 0.411794;, - -3.024317;-2.627340; 0.406358;, - -2.980727;-2.638575; 0.409076;, - -3.033327;-2.638575; 0.645282;, - -3.073950;-2.627340; 0.629247;, - -3.099918;-2.638575;-0.055015;, - -3.063049;-2.649811;-0.078463;, - -2.961942;-2.649811; 0.156697;, - -3.004206;-2.638575; 0.167594;, - -3.233154;-2.649811;-0.269742;, - -3.063049;-2.649811;-0.078463;, - -3.099918;-2.638575;-0.055015;, - -3.260943;-2.638575;-0.236086;, - -3.260943;-2.638575;-0.236086;, - -3.099918;-2.638575;-0.055015;, - -3.136787;-2.627340;-0.031567;, - -3.288733;-2.627340;-0.202428;, - -2.785436;-2.599125; 0.111190;, - -2.873689;-2.624468; 0.133944;, - -2.986065;-2.624468;-0.127424;, - -2.909080;-2.599125;-0.176386;, - -2.986065;-2.624468;-0.127424;, - -3.175127;-2.624468;-0.340021;, - -3.117100;-2.599125;-0.410300;, - -2.909080;-2.599125;-0.176386;, - -3.175127;-2.624468;-0.340021;, - -2.986065;-2.624468;-0.127424;, - -3.063049;-2.649811;-0.078463;, - -3.233154;-2.649811;-0.269742;, - -2.873689;-2.624468; 0.133944;, - -2.961942;-2.649811; 0.156697;, - -3.063049;-2.649811;-0.078463;, - -2.986065;-2.624468;-0.127424;, - -3.136787;-2.627340;-0.031567;, - -3.099918;-2.638575;-0.055015;, - -3.004206;-2.638575; 0.167594;, - -3.046471;-2.627340; 0.178491;, - -3.204321;-2.558576; 1.224876;, - -2.965228;-2.558577; 1.012293;, - -2.947661;-2.518027; 1.026805;, - -3.192080;-2.518027; 1.244123;, - -2.947661;-2.518027; 1.026805;, - -2.965228;-2.558577; 1.012293;, - -2.801849;-2.558576; 0.736658;, - -2.780642;-2.518027; 0.745029;, - -2.965228;-2.558577; 1.012293;, - -2.982794;-2.599125; 0.997782;, - -2.823055;-2.599125; 0.728287;, - -2.801849;-2.558576; 0.736658;, - -3.190721;-2.368503; 1.246261;, - -2.945709;-2.368502; 1.028417;, - -2.943757;-2.222107; 1.030030;, - -3.189360;-2.222107; 1.248400;, - -2.943757;-2.222107; 1.030030;, - -2.945709;-2.368502; 1.028417;, - -2.778286;-2.368503; 0.745959;, - -2.775931;-2.222107; 0.746889;, - -2.945709;-2.368502; 1.028417;, - -2.947661;-2.518027; 1.026805;, - -2.780642;-2.518027; 0.745029;, - -2.778286;-2.368503; 0.745959;, - -3.192080;-2.518027; 1.244123;, - -2.947661;-2.518027; 1.026805;, - -2.945709;-2.368502; 1.028417;, - -3.190721;-2.368503; 1.246261;, - -2.732351;-2.558576; 0.424565;, - -2.709597;-2.518027; 0.425984;, - -2.780642;-2.518027; 0.745029;, - -2.801849;-2.558576; 0.736658;, - -2.741310;-2.518027; 0.099813;, - -2.709597;-2.518027; 0.425984;, - -2.732351;-2.558576; 0.424565;, - -2.763373;-2.558577; 0.105501;, - -2.763373;-2.558577; 0.105501;, - -2.732351;-2.558576; 0.424565;, - -2.755105;-2.599125; 0.423146;, - -2.785436;-2.599125; 0.111190;, - -2.775931;-2.222107; 0.746889;, - -2.778286;-2.368503; 0.745959;, - -2.707068;-2.368503; 0.426141;, - -2.704540;-2.222107; 0.426299;, - -2.707068;-2.368503; 0.426141;, - -2.738859;-2.368502; 0.099181;, - -2.736408;-2.222107; 0.098549;, - -2.704540;-2.222107; 0.426299;, - -2.738859;-2.368502; 0.099181;, - -2.707068;-2.368503; 0.426141;, - -2.709597;-2.518027; 0.425984;, - -2.741310;-2.518027; 0.099813;, - -2.778286;-2.368503; 0.745959;, - -2.780642;-2.518027; 0.745029;, - -2.709597;-2.518027; 0.425984;, - -2.707068;-2.368503; 0.426141;, - -2.755105;-2.599125; 0.423146;, - -2.732351;-2.558576; 0.424565;, - -2.801849;-2.558576; 0.736658;, - -2.823055;-2.599125; 0.728287;, - -2.889834;-2.558577;-0.188627;, - -2.870589;-2.518027;-0.200866;, - -2.741310;-2.518027; 0.099813;, - -2.763373;-2.558577; 0.105501;, - -3.088086;-2.518027;-0.445440;, - -2.870589;-2.518027;-0.200866;, - -2.889834;-2.558577;-0.188627;, - -3.102593;-2.558577;-0.427870;, - -3.102593;-2.558577;-0.427870;, - -2.889834;-2.558577;-0.188627;, - -2.909080;-2.599125;-0.176386;, - -3.117100;-2.599125;-0.410300;, - -2.736408;-2.222107; 0.098549;, - -2.738859;-2.368502; 0.099181;, - -2.868450;-2.368502;-0.202227;, - -2.866312;-2.222107;-0.203587;, - -2.868450;-2.368502;-0.202227;, - -3.086475;-2.368502;-0.447391;, - -3.084863;-2.222107;-0.449344;, - -2.866312;-2.222107;-0.203587;, - -3.086475;-2.368502;-0.447391;, - -2.868450;-2.368502;-0.202227;, - -2.870589;-2.518027;-0.200866;, - -3.088086;-2.518027;-0.445440;, - -2.738859;-2.368502; 0.099181;, - -2.741310;-2.518027; 0.099813;, - -2.870589;-2.518027;-0.200866;, - -2.868450;-2.368502;-0.202227;, - -2.909080;-2.599125;-0.176386;, - -2.889834;-2.558577;-0.188627;, - -2.763373;-2.558577; 0.105501;, - -2.785436;-2.599125; 0.111190;, - -3.216562;-2.599125; 1.205630;, - -2.982794;-2.599125; 0.997782;, - -2.965228;-2.558577; 1.012293;, - -3.204321;-2.558576; 1.224876;, - -3.469688;-2.638575;-0.359740;, - -3.453668;-2.649811;-0.400369;, - -3.233154;-2.649811;-0.269742;, - -3.260943;-2.638575;-0.236086;, - -3.469688;-2.638575;-0.359740;, - -3.705913;-2.638575;-0.412256;, - -3.703211;-2.649811;-0.455846;, - -3.453668;-2.649811;-0.400369;, - -3.705913;-2.638575;-0.412256;, - -3.469688;-2.638575;-0.359740;, - -3.485708;-2.627340;-0.319110;, - -3.708615;-2.627340;-0.368666;, - -3.420217;-2.624468;-0.485205;, - -3.386765;-2.599125;-0.570042;, - -3.117100;-2.599125;-0.410300;, - -3.175127;-2.624468;-0.340021;, - -3.420217;-2.624468;-0.485205;, - -3.697571;-2.624468;-0.546865;, - -3.691930;-2.599125;-0.637885;, - -3.386765;-2.599125;-0.570042;, - -3.697571;-2.624468;-0.546865;, - -3.420217;-2.624468;-0.485205;, - -3.453668;-2.649811;-0.400369;, - -3.703211;-2.649811;-0.455846;, - -3.453668;-2.649811;-0.400369;, - -3.420217;-2.624468;-0.485205;, - -3.175127;-2.624468;-0.340021;, - -3.233154;-2.649811;-0.269742;, - -3.705913;-2.638575;-0.412256;, - -3.947274;-2.638575;-0.388723;, - -3.958181;-2.649811;-0.430987;, - -3.703211;-2.649811;-0.455846;, - -3.958181;-2.649811;-0.430987;, - -3.947274;-2.638575;-0.388723;, - -4.169715;-2.638575;-0.293058;, - -4.193164;-2.649811;-0.329927;, - -3.947274;-2.638575;-0.388723;, - -3.936368;-2.627340;-0.346461;, - -4.146266;-2.627340;-0.256188;, - -4.169715;-2.638575;-0.293058;, - -3.697571;-2.624468;-0.546865;, - -3.980956;-2.624467;-0.519235;, - -4.003730;-2.599125;-0.607485;, - -3.691930;-2.599125;-0.637885;, - -4.003730;-2.599125;-0.607485;, - -3.980956;-2.624467;-0.519235;, - -4.242127;-2.624467;-0.406914;, - -4.291089;-2.599125;-0.483900;, - -3.980956;-2.624467;-0.519235;, - -3.958181;-2.649811;-0.430987;, - -4.193164;-2.649811;-0.329927;, - -4.242127;-2.624467;-0.406914;, - -3.980956;-2.624467;-0.519235;, - -3.697571;-2.624468;-0.546865;, - -3.703211;-2.649811;-0.455846;, - -3.958181;-2.649811;-0.430987;, - -3.947274;-2.638575;-0.388723;, - -3.705913;-2.638575;-0.412256;, - -3.708615;-2.627340;-0.368666;, - -3.936368;-2.627340;-0.346461;, - -3.378402;-2.558576;-0.591251;, - -3.370039;-2.518027;-0.612460;, - -3.088086;-2.518027;-0.445440;, - -3.102593;-2.558577;-0.427870;, - -3.689109;-2.518027;-0.683395;, - -3.370039;-2.518027;-0.612460;, - -3.378402;-2.558576;-0.591251;, - -3.690519;-2.558575;-0.660640;, - -3.690519;-2.558575;-0.660640;, - -3.378402;-2.558576;-0.591251;, - -3.386765;-2.599125;-0.570042;, - -3.691930;-2.599125;-0.637885;, - -3.084863;-2.222107;-0.449344;, - -3.086475;-2.368502;-0.447391;, - -3.369109;-2.368503;-0.614817;, - -3.368180;-2.222107;-0.617173;, - -3.368180;-2.222107;-0.617173;, - -3.369109;-2.368503;-0.614817;, - -3.688952;-2.368503;-0.685923;, - -3.688796;-2.222107;-0.688452;, - -3.688952;-2.368503;-0.685923;, - -3.369109;-2.368503;-0.614817;, - -3.370039;-2.518027;-0.612460;, - -3.689109;-2.518027;-0.683395;, - -3.086475;-2.368502;-0.447391;, - -3.088086;-2.518027;-0.445440;, - -3.370039;-2.518027;-0.612460;, - -3.369109;-2.368503;-0.614817;, - -3.690519;-2.558575;-0.660640;, - -4.009425;-2.558576;-0.629547;, - -4.015119;-2.518027;-0.651609;, - -3.689109;-2.518027;-0.683395;, - -4.015119;-2.518027;-0.651609;, - -4.009425;-2.558576;-0.629547;, - -4.303330;-2.558575;-0.503147;, - -4.315570;-2.518027;-0.522393;, - -4.009425;-2.558576;-0.629547;, - -4.003730;-2.599125;-0.607485;, - -4.291089;-2.599125;-0.483900;, - -4.303330;-2.558575;-0.503147;, - -3.688952;-2.368503;-0.685923;, - -4.015751;-2.368502;-0.654060;, - -4.016384;-2.222107;-0.656512;, - -3.688796;-2.222107;-0.688452;, - -4.016384;-2.222107;-0.656512;, - -4.015751;-2.368502;-0.654060;, - -4.316930;-2.368503;-0.524531;, - -4.318291;-2.222107;-0.526670;, - -4.015751;-2.368502;-0.654060;, - -4.015119;-2.518027;-0.651609;, - -4.315570;-2.518027;-0.522393;, - -4.316930;-2.368503;-0.524531;, - -4.015751;-2.368502;-0.654060;, - -3.688952;-2.368503;-0.685923;, - -3.689109;-2.518027;-0.683395;, - -4.015119;-2.518027;-0.651609;, - -4.009425;-2.558576;-0.629547;, - -3.690519;-2.558575;-0.660640;, - -3.691930;-2.599125;-0.637885;, - -4.003730;-2.599125;-0.607485;, - -3.386765;-2.599125;-0.570042;, - -3.378402;-2.558576;-0.591251;, - -3.102593;-2.558577;-0.427870;, - -3.117100;-2.599125;-0.410300;, - -3.485708;-2.627340;-0.319110;, - -3.469688;-2.638575;-0.359740;, - -3.260943;-2.638575;-0.236086;, - -3.288733;-2.627340;-0.202428;, - -3.361385;-2.627340; 0.977918;, - -3.190631;-2.627340; 0.826097;, - -3.156979;-2.638575; 0.853895;, - -3.337936;-2.638575; 1.014788;, - -4.062597;-2.553508;-0.124631;, - -4.288749;-2.553508; 0.149703;, - -4.293462;-2.523096; 0.147843;, - -4.065317;-2.523096;-0.128908;, - -4.288749;-2.553508; 0.149703;, - -4.310369;-2.553506; 0.504356;, - -4.315272;-2.523096; 0.505620;, - -4.293462;-2.523096; 0.147843;, - -4.310369;-2.553506; 0.504356;, - -4.288749;-2.553508; 0.149703;, - -4.222775;-2.548439; 0.175746;, - -4.241729;-2.548439; 0.486658;, - -4.310369;-2.553506; 0.504356;, - -4.119759;-2.553507; 0.804061;, - -4.122983;-2.523096; 0.807966;, - -4.315272;-2.523096; 0.505620;, - -4.074627;-2.548439; 0.749400;, - -4.119759;-2.553507; 0.804061;, - -4.310369;-2.553506; 0.504356;, - -4.241729;-2.548439; 0.486658;, - -4.433702;-2.627340; 0.092483;, - -4.391857;-2.615766; 0.109002;, - -4.438436;-2.615766; 0.318172;, - -4.483335;-2.627340; 0.315372;, - -4.438436;-2.615766; 0.318172;, - -4.417644;-2.615766; 0.532014;, - -4.461179;-2.627340; 0.543238;, - -4.483335;-2.627340; 0.315372;, - -4.417644;-2.615766; 0.532014;, - -4.438436;-2.615766; 0.318172;, - -4.393536;-2.604194; 0.320972;, - -4.374107;-2.604194; 0.520789;, - -4.391857;-2.615766; 0.109002;, - -4.350011;-2.604194; 0.125520;, - -4.393536;-2.604194; 0.320972;, - -4.438436;-2.615766; 0.318172;, - -4.461179;-2.627340; 0.543238;, - -4.417644;-2.615766; 0.532014;, - -4.332887;-2.615766; 0.729143;, - -4.370864;-2.627340; 0.753297;, - -4.332887;-2.615766; 0.729143;, - -4.190293;-2.615766; 0.889488;, - -4.218917;-2.627340; 0.924157;, - -4.370864;-2.627340; 0.753297;, - -4.190293;-2.615766; 0.889488;, - -4.332887;-2.615766; 0.729143;, - -4.294910;-2.604194; 0.704990;, - -4.161667;-2.604194; 0.854818;, - -4.417644;-2.615766; 0.532014;, - -4.374107;-2.604194; 0.520789;, - -4.294910;-2.604194; 0.704990;, - -4.332887;-2.615766; 0.729143;, - -4.065317;-2.523096;-0.128908;, - -4.293462;-2.523096; 0.147843;, - -4.350011;-2.604194; 0.125520;, - -4.097959;-2.604194;-0.180232;, - -3.789398;-2.553508; 0.934857;, - -3.789711;-2.523096; 0.939914;, - -4.122983;-2.523096; 0.807966;, - -4.119759;-2.553507; 0.804061;, - -3.789711;-2.523096; 0.939914;, - -3.789398;-2.553508; 0.934857;, - -3.445054;-2.553508; 0.846361;, - -3.442334;-2.523096; 0.850637;, - -3.789398;-2.553508; 0.934857;, - -3.785010;-2.548439; 0.864064;, - -3.483136;-2.548439; 0.786482;, - -3.445054;-2.553508; 0.846361;, - -4.005441;-2.615766; 0.998989;, - -4.021944;-2.627340; 1.040841;, - -4.218917;-2.627340; 0.924157;, - -4.190293;-2.615766; 0.889488;, - -4.005441;-2.615766; 0.998989;, - -3.796255;-2.615766; 1.045495;, - -3.799037;-2.627340; 1.090396;, - -4.021944;-2.627340; 1.040841;, - -3.796255;-2.615766; 1.045495;, - -4.005441;-2.615766; 0.998989;, - -3.988939;-2.604194; 0.957138;, - -3.793471;-2.604194; 1.000594;, - -3.988939;-2.604194; 0.957138;, - -4.005441;-2.615766; 0.998989;, - -4.190293;-2.615766; 0.889488;, - -4.161667;-2.604194; 0.854818;, - -3.793471;-2.604194; 1.000594;, - -3.789711;-2.523096; 0.939914;, - -3.442334;-2.523096; 0.850637;, - -3.409692;-2.604194; 0.901962;, - -3.785010;-2.548439; 0.864064;, - -3.789398;-2.553508; 0.934857;, - -4.119759;-2.553507; 0.804061;, - -4.074627;-2.548439; 0.749400;, - -4.169715;-2.638575;-0.293058;, - -4.350672;-2.638575;-0.132165;, - -4.384323;-2.649811;-0.159964;, - -4.193164;-2.649811;-0.329927;, - -4.474324;-2.638576; 0.076447;, - -4.514947;-2.649811; 0.060412;, - -4.384323;-2.649811;-0.159964;, - -4.350672;-2.638575;-0.132165;, - -4.433702;-2.627340; 0.092483;, - -4.474324;-2.638576; 0.076447;, - -4.350672;-2.638575;-0.132165;, - -4.317021;-2.627340;-0.104368;, - -4.242127;-2.624467;-0.406914;, - -4.454590;-2.624467;-0.218008;, - -4.524857;-2.599125;-0.276052;, - -4.291089;-2.599125;-0.483900;, - -4.524857;-2.599125;-0.276052;, - -4.454590;-2.624467;-0.218008;, - -4.599771;-2.624467; 0.026927;, - -4.684596;-2.599125;-0.006558;, - -4.454590;-2.624467;-0.218008;, - -4.384323;-2.649811;-0.159964;, - -4.514947;-2.649811; 0.060412;, - -4.599771;-2.624467; 0.026927;, - -4.193164;-2.649811;-0.329927;, - -4.384323;-2.649811;-0.159964;, - -4.454590;-2.624467;-0.218008;, - -4.242127;-2.624467;-0.406914;, - -4.526924;-2.638575; 0.312654;, - -4.570512;-2.649811; 0.309935;, - -4.514947;-2.649811; 0.060412;, - -4.474324;-2.638576; 0.076447;, - -4.526924;-2.638575; 0.312654;, - -4.503445;-2.638575; 0.554136;, - -4.545709;-2.649811; 0.565032;, - -4.570512;-2.649811; 0.309935;, - -4.503445;-2.638575; 0.554136;, - -4.526924;-2.638575; 0.312654;, - -4.483335;-2.627340; 0.315372;, - -4.461179;-2.627340; 0.543238;, - -4.661529;-2.624467; 0.304259;, - -4.752547;-2.599125; 0.298584;, - -4.684596;-2.599125;-0.006558;, - -4.599771;-2.624467; 0.026927;, - -4.661529;-2.624467; 0.304259;, - -4.633962;-2.624467; 0.587786;, - -4.722215;-2.599125; 0.610540;, - -4.752547;-2.599125; 0.298584;, - -4.633962;-2.624467; 0.587786;, - -4.661529;-2.624467; 0.304259;, - -4.570512;-2.649811; 0.309935;, - -4.545709;-2.649811; 0.565032;, - -4.570512;-2.649811; 0.309935;, - -4.661529;-2.624467; 0.304259;, - -4.599771;-2.624467; 0.026927;, - -4.514947;-2.649811; 0.060412;, - -4.526924;-2.638575; 0.312654;, - -4.474324;-2.638576; 0.076447;, - -4.433702;-2.627340; 0.092483;, - -4.483335;-2.627340; 0.315372;, - -4.407733;-2.638575; 0.776745;, - -4.444602;-2.649811; 0.800193;, - -4.545709;-2.649811; 0.565032;, - -4.503445;-2.638575; 0.554136;, - -4.407733;-2.638575; 0.776745;, - -4.246708;-2.638575; 0.957815;, - -4.274497;-2.649811; 0.991472;, - -4.444602;-2.649811; 0.800193;, - -4.246708;-2.638575; 0.957815;, - -4.407733;-2.638575; 0.776745;, - -4.370864;-2.627340; 0.753297;, - -4.218917;-2.627340; 0.924157;, - -4.521586;-2.624467; 0.849154;, - -4.598571;-2.599125; 0.898116;, - -4.722215;-2.599125; 0.610540;, - -4.633962;-2.624467; 0.587786;, - -4.521586;-2.624467; 0.849154;, - -4.332524;-2.624467; 1.061751;, - -4.390552;-2.599125; 1.132030;, - -4.598571;-2.599125; 0.898116;, - -4.332524;-2.624467; 1.061751;, - -4.521586;-2.624467; 0.849154;, - -4.444602;-2.649811; 0.800193;, - -4.274497;-2.649811; 0.991472;, - -4.444602;-2.649811; 0.800193;, - -4.521586;-2.624467; 0.849154;, - -4.633962;-2.624467; 0.587786;, - -4.545709;-2.649811; 0.565032;, - -4.370864;-2.627340; 0.753297;, - -4.407733;-2.638575; 0.776745;, - -4.503445;-2.638575; 0.554136;, - -4.461179;-2.627340; 0.543238;, - -4.303330;-2.558575;-0.503147;, - -4.542423;-2.558576;-0.290564;, - -4.559991;-2.518027;-0.305075;, - -4.315570;-2.518027;-0.522393;, - -4.559991;-2.518027;-0.305075;, - -4.542423;-2.558576;-0.290564;, - -4.705802;-2.558575;-0.014928;, - -4.727009;-2.518027;-0.023300;, - -4.542423;-2.558576;-0.290564;, - -4.524857;-2.599125;-0.276052;, - -4.684596;-2.599125;-0.006558;, - -4.705802;-2.558575;-0.014928;, - -4.316930;-2.368503;-0.524531;, - -4.561942;-2.368502;-0.306687;, - -4.563894;-2.222106;-0.308300;, - -4.318291;-2.222107;-0.526670;, - -4.563894;-2.222106;-0.308300;, - -4.561942;-2.368502;-0.306687;, - -4.729364;-2.368502;-0.024229;, - -4.731720;-2.222106;-0.025160;, - -4.561942;-2.368502;-0.306687;, - -4.559991;-2.518027;-0.305075;, - -4.727009;-2.518027;-0.023300;, - -4.729364;-2.368502;-0.024229;, - -4.315570;-2.518027;-0.522393;, - -4.559991;-2.518027;-0.305075;, - -4.561942;-2.368502;-0.306687;, - -4.316930;-2.368503;-0.524531;, - -4.775301;-2.558576; 0.297165;, - -4.798054;-2.518027; 0.295746;, - -4.727009;-2.518027;-0.023300;, - -4.705802;-2.558575;-0.014928;, - -4.766341;-2.518027; 0.621917;, - -4.798054;-2.518027; 0.295746;, - -4.775301;-2.558576; 0.297165;, - -4.744278;-2.558576; 0.616229;, - -4.744278;-2.558576; 0.616229;, - -4.775301;-2.558576; 0.297165;, - -4.752547;-2.599125; 0.298584;, - -4.722215;-2.599125; 0.610540;, - -4.729364;-2.368502;-0.024229;, - -4.800582;-2.368502; 0.295588;, - -4.803111;-2.222106; 0.295431;, - -4.731720;-2.222106;-0.025160;, - -4.800582;-2.368502; 0.295588;, - -4.768792;-2.368503; 0.622549;, - -4.771244;-2.222106; 0.623180;, - -4.803111;-2.222106; 0.295431;, - -4.768792;-2.368503; 0.622549;, - -4.800582;-2.368502; 0.295588;, - -4.798054;-2.518027; 0.295746;, - -4.766341;-2.518027; 0.621917;, - -4.729364;-2.368502;-0.024229;, - -4.727009;-2.518027;-0.023300;, - -4.798054;-2.518027; 0.295746;, - -4.800582;-2.368502; 0.295588;, - -4.752547;-2.599125; 0.298584;, - -4.775301;-2.558576; 0.297165;, - -4.705802;-2.558575;-0.014928;, - -4.684596;-2.599125;-0.006558;, - -4.617817;-2.558575; 0.910356;, - -4.637063;-2.518027; 0.922597;, - -4.766341;-2.518027; 0.621917;, - -4.744278;-2.558576; 0.616229;, - -4.419565;-2.518027; 1.167170;, - -4.637063;-2.518027; 0.922597;, - -4.617817;-2.558575; 0.910356;, - -4.405058;-2.558576; 1.149599;, - -4.405058;-2.558576; 1.149599;, - -4.617817;-2.558575; 0.910356;, - -4.598571;-2.599125; 0.898116;, - -4.390552;-2.599125; 1.132030;, - -4.771244;-2.222106; 0.623180;, - -4.768792;-2.368503; 0.622549;, - -4.639201;-2.368503; 0.923957;, - -4.641339;-2.222106; 0.925316;, - -4.639201;-2.368503; 0.923957;, - -4.421176;-2.368503; 1.169121;, - -4.422789;-2.222106; 1.171073;, - -4.641339;-2.222106; 0.925316;, - -4.421176;-2.368503; 1.169121;, - -4.639201;-2.368503; 0.923957;, - -4.637063;-2.518027; 0.922597;, - -4.419565;-2.518027; 1.167170;, - -4.768792;-2.368503; 0.622549;, - -4.766341;-2.518027; 0.621917;, - -4.637063;-2.518027; 0.922597;, - -4.639201;-2.368503; 0.923957;, - -4.598571;-2.599125; 0.898116;, - -4.617817;-2.558575; 0.910356;, - -4.744278;-2.558576; 0.616229;, - -4.722215;-2.599125; 0.610540;, - -4.291089;-2.599125;-0.483900;, - -4.524857;-2.599125;-0.276052;, - -4.542423;-2.558576;-0.290564;, - -4.303330;-2.558575;-0.503147;, - -4.037963;-2.638575; 1.081470;, - -4.053983;-2.649811; 1.122099;, - -4.274497;-2.649811; 0.991472;, - -4.246708;-2.638575; 0.957815;, - -4.037963;-2.638575; 1.081470;, - -3.801738;-2.638576; 1.133986;, - -3.804440;-2.649811; 1.177576;, - -4.053983;-2.649811; 1.122099;, - -3.799037;-2.627340; 1.090396;, - -3.801738;-2.638576; 1.133986;, - -4.037963;-2.638575; 1.081470;, - -4.021944;-2.627340; 1.040841;, - -4.087434;-2.624467; 1.206935;, - -4.120887;-2.599125; 1.291772;, - -4.390552;-2.599125; 1.132030;, - -4.332524;-2.624467; 1.061751;, - -4.087434;-2.624467; 1.206935;, - -3.810081;-2.624468; 1.268595;, - -3.815721;-2.599125; 1.359615;, - -4.120887;-2.599125; 1.291772;, - -3.810081;-2.624468; 1.268595;, - -4.087434;-2.624467; 1.206935;, - -4.053983;-2.649811; 1.122099;, - -3.804440;-2.649811; 1.177576;, - -4.053983;-2.649811; 1.122099;, - -4.087434;-2.624467; 1.206935;, - -4.332524;-2.624467; 1.061751;, - -4.274497;-2.649811; 0.991472;, - -3.801738;-2.638576; 1.133986;, - -3.560377;-2.638575; 1.110453;, - -3.549469;-2.649811; 1.152716;, - -3.804440;-2.649811; 1.177576;, - -3.549469;-2.649811; 1.152716;, - -3.560377;-2.638575; 1.110453;, - -3.337936;-2.638575; 1.014788;, - -3.314487;-2.649811; 1.051657;, - -3.560377;-2.638575; 1.110453;, - -3.571284;-2.627340; 1.068190;, - -3.361385;-2.627340; 0.977918;, - -3.337936;-2.638575; 1.014788;, - -3.810081;-2.624468; 1.268595;, - -3.526695;-2.624468; 1.240965;, - -3.503921;-2.599125; 1.329214;, - -3.815721;-2.599125; 1.359615;, - -3.503921;-2.599125; 1.329214;, - -3.526695;-2.624468; 1.240965;, - -3.265525;-2.624468; 1.128643;, - -3.216562;-2.599125; 1.205630;, - -3.526695;-2.624468; 1.240965;, - -3.549469;-2.649811; 1.152716;, - -3.314487;-2.649811; 1.051657;, - -3.265525;-2.624468; 1.128643;, - -3.526695;-2.624468; 1.240965;, - -3.810081;-2.624468; 1.268595;, - -3.804440;-2.649811; 1.177576;, - -3.549469;-2.649811; 1.152716;, - -3.560377;-2.638575; 1.110453;, - -3.801738;-2.638576; 1.133986;, - -3.799037;-2.627340; 1.090396;, - -3.571284;-2.627340; 1.068190;, - -4.129250;-2.558576; 1.312981;, - -4.137612;-2.518027; 1.334190;, - -4.419565;-2.518027; 1.167170;, - -4.405058;-2.558576; 1.149599;, - -4.129250;-2.558576; 1.312981;, - -3.817132;-2.558575; 1.382370;, - -3.818542;-2.518027; 1.405125;, - -4.137612;-2.518027; 1.334190;, - -3.817132;-2.558575; 1.382370;, - -4.129250;-2.558576; 1.312981;, - -4.120887;-2.599125; 1.291772;, - -3.815721;-2.599125; 1.359615;, - -4.138542;-2.368502; 1.336547;, - -4.139471;-2.222107; 1.338903;, - -4.422789;-2.222106; 1.171073;, - -4.421176;-2.368503; 1.169121;, - -4.138542;-2.368502; 1.336547;, - -3.818699;-2.368502; 1.407653;, - -3.818855;-2.222107; 1.410181;, - -4.139471;-2.222107; 1.338903;, - -3.818699;-2.368502; 1.407653;, - -4.138542;-2.368502; 1.336547;, - -4.137612;-2.518027; 1.334190;, - -3.818542;-2.518027; 1.405125;, - -4.137612;-2.518027; 1.334190;, - -4.138542;-2.368502; 1.336547;, - -4.421176;-2.368503; 1.169121;, - -4.419565;-2.518027; 1.167170;, - -3.817132;-2.558575; 1.382370;, - -3.498226;-2.558577; 1.351276;, - -3.492533;-2.518027; 1.373339;, - -3.818542;-2.518027; 1.405125;, - -3.492533;-2.518027; 1.373339;, - -3.498226;-2.558577; 1.351276;, - -3.204321;-2.558576; 1.224876;, - -3.192080;-2.518027; 1.244123;, - -3.498226;-2.558577; 1.351276;, - -3.503921;-2.599125; 1.329214;, - -3.216562;-2.599125; 1.205630;, - -3.204321;-2.558576; 1.224876;, - -3.818699;-2.368502; 1.407653;, - -3.491900;-2.368502; 1.375790;, - -3.491267;-2.222107; 1.378242;, - -3.818855;-2.222107; 1.410181;, - -3.491267;-2.222107; 1.378242;, - -3.491900;-2.368502; 1.375790;, - -3.190721;-2.368503; 1.246261;, - -3.189360;-2.222107; 1.248400;, - -3.491900;-2.368502; 1.375790;, - -3.492533;-2.518027; 1.373339;, - -3.192080;-2.518027; 1.244123;, - -3.190721;-2.368503; 1.246261;, - -3.491900;-2.368502; 1.375790;, - -3.818699;-2.368502; 1.407653;, - -3.818542;-2.518027; 1.405125;, - -3.492533;-2.518027; 1.373339;, - -3.498226;-2.558577; 1.351276;, - -3.817132;-2.558575; 1.382370;, - -3.815721;-2.599125; 1.359615;, - -3.503921;-2.599125; 1.329214;, - -4.120887;-2.599125; 1.291772;, - -4.129250;-2.558576; 1.312981;, - -4.405058;-2.558576; 1.149599;, - -4.390552;-2.599125; 1.132030;, - -4.021944;-2.627340; 1.040841;, - -4.037963;-2.638575; 1.081470;, - -4.246708;-2.638575; 0.957815;, - -4.218917;-2.627340; 0.924157;, - -4.350672;-2.638575;-0.132165;, - -4.169715;-2.638575;-0.293058;, - -4.146266;-2.627340;-0.256188;, - -4.317021;-2.627340;-0.104368;, - -4.288749;-2.553508; 0.149703;, - -4.062597;-2.553508;-0.124631;, - -4.024515;-2.548439;-0.064752;, - -4.222775;-2.548439; 0.175746;, - -3.218902;-2.553508; 0.572026;, - -3.445054;-2.553508; 0.846361;, - -3.483136;-2.548439; 0.786482;, - -3.284876;-2.548439; 0.545983;, - -3.675702;-2.277268; 0.425400;, - -3.699388;-2.277268; 0.446460;, - -3.753826;-2.279802; 0.360865;, - -3.571284;-1.816875; 1.068190;, - -3.361384;-1.816875; 0.977918;, - -3.409692;-1.840021; 0.901962;, - -3.796254;-1.828448; 1.045495;, - -3.799037;-1.816875; 1.090396;, - -3.793471;-1.840021; 1.000594;, - -3.409692;-1.840021; 0.901962;, - -3.793471;-1.840021; 1.000594;, - -3.799037;-1.816875; 1.090396;, - -3.571284;-1.816875; 1.068190;, - -3.988939;-1.840021; 0.957138;, - -3.793471;-1.840021; 1.000594;, - -3.789711;-1.921119; 0.939914;, - -4.122983;-1.921118; 0.807966;, - -4.161667;-1.840021; 0.854818;, - -3.988939;-1.840021; 0.957138;, - -3.789711;-1.921119; 0.939914;, - -4.294909;-1.840021; 0.704990;, - -4.161667;-1.840021; 0.854818;, - -4.122983;-1.921118; 0.807966;, - -4.315272;-1.921118; 0.505620;, - -4.374106;-1.840021; 0.520789;, - -4.294909;-1.840021; 0.704990;, - -4.122983;-1.921118; 0.807966;, - -4.391857;-1.828448; 0.109002;, - -4.350011;-1.840021; 0.125520;, - -4.097959;-1.840021;-0.180232;, - -4.317021;-1.816875;-0.104368;, - -4.097959;-1.840021;-0.180232;, - -4.146266;-1.816875;-0.256188;, - -4.097959;-1.840021;-0.180232;, - -4.317021;-1.816875;-0.104368;, - -4.433702;-1.816875; 0.092483;, - -4.391857;-1.828448; 0.109002;, - -4.350011;-1.840021; 0.125520;, - -4.393536;-1.840021; 0.320972;, - -4.293462;-1.921118; 0.147843;, - -4.293462;-1.921118; 0.147843;, - -4.393536;-1.840021; 0.320972;, - -4.374106;-1.840021; 0.520789;, - -4.315272;-1.921118; 0.505620;, - -4.097959;-1.840021;-0.180232;, - -3.714180;-1.840021;-0.278864;, - -3.711397;-1.828447;-0.323765;, - -4.146266;-1.816875;-0.256188;, - -4.097959;-1.840021;-0.180232;, - -3.936368;-1.816875;-0.346461;, - -3.708614;-1.816875;-0.368666;, - -3.936368;-1.816875;-0.346461;, - -4.097959;-1.840021;-0.180232;, - -3.711397;-1.828447;-0.323765;, - -3.717940;-1.921119;-0.218184;, - -3.518712;-1.840021;-0.235409;, - -3.714180;-1.840021;-0.278864;, - -3.345984;-1.840021;-0.133088;, - -3.518712;-1.840021;-0.235409;, - -3.717940;-1.921119;-0.218184;, - -3.384669;-1.921119;-0.086236;, - -3.192379;-1.921119; 0.216110;, - -3.133544;-1.840021; 0.200941;, - -3.212741;-1.840021; 0.016740;, - -3.212741;-1.840021; 0.016740;, - -3.345984;-1.840021;-0.133088;, - -3.384669;-1.921119;-0.086236;, - -3.192379;-1.921119; 0.216110;, - -3.409692;-1.840021; 0.901962;, - -3.361384;-1.816875; 0.977918;, - -3.190630;-1.816875; 0.826097;, - -3.157640;-1.840021; 0.596210;, - -3.409692;-1.840021; 0.901962;, - -3.115795;-1.828447; 0.612729;, - -3.073949;-1.816875; 0.629246;, - -3.115795;-1.828447; 0.612729;, - -3.409692;-1.840021; 0.901962;, - -3.190630;-1.816875; 0.826097;, - -3.214189;-1.921119; 0.573887;, - -3.157640;-1.840021; 0.596210;, - -3.114115;-1.840021; 0.400758;, - -3.114115;-1.840021; 0.400758;, - -3.133544;-1.840021; 0.200941;, - -3.192379;-1.921119; 0.216110;, - -3.214189;-1.921119; 0.573887;, - -3.577049;-2.274734; 0.430648;, - -3.520499;-2.325420; 0.452970;, - -3.607387;-2.274734; 0.481832;, - -3.651785;-2.274734; 0.521308;, - -3.607387;-2.274734; 0.481832;, - -3.520499;-2.325420; 0.452970;, - -3.560543;-2.325420; 0.520528;, - -3.619143;-2.325420; 0.572632;, - -3.691179;-2.325420; 0.603612;, - -3.651785;-2.274734; 0.521308;, - -3.560543;-2.325420; 0.520528;, - -3.706362;-2.274734; 0.544779;, - -3.769342;-2.325420; 0.611233;, - -3.765581;-2.274734; 0.550553;, - -3.769342;-2.325420; 0.611233;, - -3.706362;-2.274734; 0.544779;, - -3.651785;-2.274734; 0.521308;, - -3.691179;-2.325420; 0.603612;, - -3.577049;-2.274734; 0.430648;, - -3.564143;-2.274734; 0.372693;, - -3.503465;-2.325420; 0.376478;, - -3.520499;-2.325420; 0.452970;, - -3.564143;-2.274734; 0.372693;, - -3.569904;-2.274734; 0.313446;, - -3.511069;-2.325420; 0.298276;, - -3.503465;-2.325420; 0.376478;, - -3.569904;-2.274734; 0.313446;, - -3.593387;-2.274734; 0.258827;, - -3.542064;-2.325420; 0.226186;, - -3.511069;-2.325420; 0.298276;, - -3.632895;-2.274734; 0.214401;, - -3.594210;-2.325420; 0.167549;, - -3.542064;-2.325420; 0.226186;, - -3.593387;-2.274734; 0.258827;, - -3.515778;-2.360900; 0.735158;, - -3.515778;-2.330488; 0.735158;, - -3.412201;-2.330488; 0.643066;, - -3.341426;-2.330488; 0.523660;, - -3.341426;-2.360900; 0.523660;, - -3.515778;-2.360900; 0.735158;, - -3.412201;-2.330488; 0.643066;, - -3.324758;-2.360900; 0.250240;, - -3.341426;-2.330488; 0.523660;, - -3.311319;-2.330488; 0.388460;, - -3.324758;-2.360900; 0.250240;, - -3.311319;-2.330488; 0.388460;, - -3.324758;-2.330488; 0.250240;, - -3.341426;-2.360900; 0.523660;, - -3.341426;-2.330488; 0.523660;, - -3.324758;-2.360900; 0.250240;, - -3.316581;-2.359843; 0.248132;, - -3.471709;-2.360900; 0.019182;, - -3.379541;-2.330488; 0.122823;, - -3.471709;-2.330488; 0.019182;, - -3.324758;-2.330488; 0.250240;, - -3.379541;-2.330488; 0.122823;, - -3.471709;-2.360900; 0.019182;, - -3.324758;-2.360900; 0.250240;, - -3.684111;-2.274734; 0.184062;, - -3.661810;-2.325420; 0.127504;, - -3.594210;-2.325420; 0.167549;, - -3.632895;-2.274734; 0.214401;, - -3.742070;-2.274734; 0.171177;, - -3.738309;-2.325420; 0.110497;, - -3.661810;-2.325420; 0.127504;, - -3.684111;-2.274734; 0.184062;, - -3.738309;-2.325420; 0.110497;, - -3.742070;-2.274734; 0.171177;, - -3.801289;-2.274734; 0.176950;, - -3.816472;-2.325420; 0.118118;, - -3.738309;-2.325420; 0.110497;, - -3.888507;-2.325420; 0.149098;, - -3.855866;-2.274734; 0.200422;, - -3.888507;-2.325420; 0.149098;, - -3.738309;-2.325420; 0.110497;, - -3.801289;-2.274734; 0.176950;, - -3.726401;-2.360900;-0.081655;, - -3.591190;-2.330488;-0.051596;, - -3.726401;-2.330488;-0.081655;, - -3.471709;-2.330488; 0.019182;, - -3.591190;-2.330488;-0.051596;, - -3.726401;-2.360900;-0.081655;, - -3.471709;-2.360900; 0.019182;, - -3.864552;-2.330488;-0.068186;, - -3.991873;-2.330488;-0.013428;, - -3.991873;-2.360900;-0.013428;, - -3.991873;-2.360900;-0.013428;, - -3.726401;-2.360900;-0.081655;, - -3.726401;-2.330488;-0.081655;, - -3.864552;-2.330488;-0.068186;, - -3.900264;-2.274734; 0.239898;, - -3.930602;-2.274734; 0.291082;, - -3.987152;-2.325420; 0.268759;, - -3.888507;-2.325420; 0.149098;, - -3.987152;-2.325420; 0.268759;, - -3.947108;-2.325420; 0.201202;, - -3.987152;-2.325420; 0.268759;, - -3.888507;-2.325420; 0.149098;, - -3.855866;-2.274734; 0.200422;, - -3.900264;-2.274734; 0.239898;, - -3.996582;-2.325420; 0.423454;, - -4.004186;-2.325420; 0.345252;, - -3.943508;-2.274734; 0.349036;, - -3.937748;-2.274734; 0.408285;, - -4.004186;-2.325420; 0.345252;, - -3.987152;-2.325420; 0.268759;, - -3.930602;-2.274734; 0.291082;, - -3.943508;-2.274734; 0.349036;, - -3.965587;-2.325420; 0.495544;, - -3.914264;-2.274734; 0.462903;, - -3.874756;-2.274734; 0.507329;, - -3.913441;-2.325420; 0.554181;, - -3.996582;-2.325420; 0.423454;, - -3.937748;-2.274734; 0.408285;, - -3.914264;-2.274734; 0.462903;, - -3.965587;-2.325420; 0.495544;, - -4.095450;-2.330488; 0.078663;, - -4.166225;-2.330488; 0.198069;, - -4.166225;-2.360900; 0.198069;, - -4.166225;-2.360900; 0.198069;, - -3.991873;-2.360900;-0.013428;, - -3.991873;-2.330488;-0.013428;, - -4.095450;-2.330488; 0.078663;, - -4.166225;-2.330488; 0.198069;, - -4.196332;-2.330488; 0.333270;, - -4.166225;-2.360900; 0.198069;, - -4.166225;-2.360900; 0.198069;, - -4.196332;-2.330488; 0.333270;, - -4.182893;-2.330488; 0.471489;, - -4.182893;-2.360900; 0.471489;, - -4.182893;-2.330488; 0.471489;, - -4.128110;-2.330488; 0.598907;, - -4.182893;-2.360900; 0.471489;, - -4.182893;-2.360900; 0.471489;, - -4.128110;-2.330488; 0.598907;, - -4.035942;-2.330488; 0.702547;, - -4.035942;-2.360900; 0.702547;, - -3.845841;-2.325420; 0.594226;, - -3.823540;-2.274734; 0.537668;, - -3.765581;-2.274734; 0.550553;, - -3.769342;-2.325420; 0.611233;, - -3.913441;-2.325420; 0.554181;, - -3.874756;-2.274734; 0.507329;, - -3.823540;-2.274734; 0.537668;, - -3.845841;-2.325420; 0.594226;, - -4.035942;-2.330488; 0.702547;, - -3.916460;-2.330488; 0.773325;, - -4.035942;-2.360900; 0.702547;, - -4.035942;-2.360900; 0.702547;, - -3.916460;-2.330488; 0.773325;, - -3.781250;-2.330488; 0.803384;, - -3.781250;-2.360900; 0.803384;, - -3.781250;-2.360900; 0.803384;, - -3.781250;-2.330488; 0.803384;, - -3.643099;-2.330488; 0.789915;, - -3.515778;-2.330488; 0.735158;, - -3.515778;-2.360900; 0.735158;, - -3.781250;-2.360900; 0.803384;, - -3.643099;-2.330488; 0.789915;, - -3.190631;-2.627340; 0.826097;, - -3.361385;-2.627340; 0.977918;, - -3.409692;-2.604194; 0.901962;, - -3.115795;-2.615766; 0.612729;, - -3.073950;-2.627340; 0.629247;, - -3.157640;-2.604194; 0.596210;, - -3.409692;-2.604194; 0.901962;, - -3.157640;-2.604194; 0.596210;, - -3.073950;-2.627340; 0.629247;, - -3.190631;-2.627340; 0.826097;, - -3.114116;-2.604194; 0.400758;, - -3.157640;-2.604194; 0.596210;, - -3.214189;-2.523096; 0.573887;, - -3.192379;-2.523096; 0.216110;, - -3.133544;-2.604194; 0.200941;, - -3.114116;-2.604194; 0.400758;, - -3.214189;-2.523096; 0.573887;, - -3.212741;-2.604194; 0.016740;, - -3.133544;-2.604194; 0.200941;, - -3.192379;-2.523096; 0.216110;, - -3.384669;-2.523096;-0.086236;, - -3.345984;-2.604194;-0.133088;, - -3.212741;-2.604194; 0.016740;, - -3.192379;-2.523096; 0.216110;, - -3.711397;-2.615766;-0.323765;, - -3.714180;-2.604194;-0.278864;, - -4.097959;-2.604194;-0.180232;, - -3.936368;-2.627340;-0.346461;, - -4.097959;-2.604194;-0.180232;, - -4.146266;-2.627340;-0.256188;, - -4.097959;-2.604194;-0.180232;, - -3.936368;-2.627340;-0.346461;, - -3.708615;-2.627340;-0.368666;, - -3.711397;-2.615766;-0.323765;, - -3.714180;-2.604194;-0.278864;, - -3.518713;-2.604194;-0.235408;, - -3.717940;-2.523096;-0.218184;, - -3.717940;-2.523096;-0.218184;, - -3.518713;-2.604194;-0.235408;, - -3.345984;-2.604194;-0.133088;, - -3.384669;-2.523096;-0.086236;, - -4.097959;-2.604194;-0.180232;, - -4.350011;-2.604194; 0.125520;, - -4.391857;-2.615766; 0.109002;, - -4.146266;-2.627340;-0.256188;, - -4.097959;-2.604194;-0.180232;, - -4.317021;-2.627340;-0.104368;, - -4.433702;-2.627340; 0.092483;, - -4.317021;-2.627340;-0.104368;, - -4.097959;-2.604194;-0.180232;, - -4.391857;-2.615766; 0.109002;, - -4.293462;-2.523096; 0.147843;, - -4.393536;-2.604194; 0.320972;, - -4.350011;-2.604194; 0.125520;, - -4.374107;-2.604194; 0.520789;, - -4.393536;-2.604194; 0.320972;, - -4.293462;-2.523096; 0.147843;, - -4.315272;-2.523096; 0.505620;, - -4.122983;-2.523096; 0.807966;, - -4.161667;-2.604194; 0.854818;, - -4.294910;-2.604194; 0.704990;, - -4.294910;-2.604194; 0.704990;, - -4.374107;-2.604194; 0.520789;, - -4.315272;-2.523096; 0.505620;, - -4.122983;-2.523096; 0.807966;, - -3.409692;-2.604194; 0.901962;, - -3.361385;-2.627340; 0.977918;, - -3.571284;-2.627340; 1.068190;, - -3.793471;-2.604194; 1.000594;, - -3.799037;-2.627340; 1.090396;, - -3.796255;-2.615766; 1.045495;, - -3.799037;-2.627340; 1.090396;, - -3.793471;-2.604194; 1.000594;, - -3.409692;-2.604194; 0.901962;, - -3.571284;-2.627340; 1.068190;, - -3.789711;-2.523096; 0.939914;, - -3.793471;-2.604194; 1.000594;, - -3.988939;-2.604194; 0.957138;, - -3.988939;-2.604194; 0.957138;, - -4.161667;-2.604194; 0.854818;, - -4.122983;-2.523096; 0.807966;, - -3.789711;-2.523096; 0.939914;, - 3.560576;-1.921119; 0.360865;, - 4.100213;-1.921119; 0.573887;, - 4.122023;-1.921119; 0.216110;, - 3.560576;-1.921119; 0.360865;, - 3.191419;-1.921118; 0.807966;, - 3.524691;-1.921119; 0.939914;, - 3.980835;-2.359844; 0.526762;, - 4.028868;-2.355832; 0.240127;, - 4.010676;-2.355832; 0.538542;, - 3.588524;-2.359844;-0.090088;, - 3.590508;-2.355831;-0.122108;, - 3.868483;-2.355832;-0.012053;, - 3.848069;-2.359843; 0.012670;, - 3.842693;-2.360900; 0.019182;, - 3.588001;-2.360900;-0.081655;, - 3.848069;-2.359843; 0.012670;, - 3.588001;-2.360900;-0.081655;, - 3.588524;-2.359844;-0.090088;, - 3.868483;-2.355832;-0.012053;, - 3.980835;-2.359844; 0.526762;, - 3.972976;-2.360900; 0.523660;, - 3.997821;-2.359843; 0.248132;, - 4.028868;-2.355832; 0.240127;, - 3.929733;-1.921119;-0.086236;, - 3.596462;-1.921119;-0.218184;, - 3.560576;-1.921119; 0.360865;, - 4.122023;-1.921119; 0.216110;, - 2.999130;-1.921118; 0.505620;, - 3.191419;-1.921118; 0.807966;, - 3.560576;-1.921119; 0.360865;, - 3.020940;-1.921118; 0.147843;, - 3.249085;-1.921118;-0.128908;, - 3.020940;-1.921118; 0.147843;, - 3.560576;-1.921119; 0.360865;, - 3.596462;-1.921119;-0.218184;, - 3.560576;-1.921119; 0.360865;, - 3.524691;-1.921119; 0.939914;, - 3.872067;-1.921119; 0.850637;, - 4.100213;-1.921119; 0.573887;, - 3.515365;-1.816875; 1.090396;, - 3.518147;-1.828448; 1.045495;, - 3.308961;-1.828448; 0.998989;, - 3.292459;-1.816874; 1.040841;, - 3.308961;-1.828448; 0.998989;, - 3.124109;-1.828447; 0.889488;, - 3.095484;-1.816875; 0.924157;, - 3.292459;-1.816874; 1.040841;, - 3.124109;-1.828447; 0.889488;, - 3.308961;-1.828448; 0.998989;, - 3.325463;-1.840021; 0.957138;, - 3.152735;-1.840021; 0.854818;, - 3.518147;-1.828448; 1.045495;, - 3.520931;-1.840021; 1.000594;, - 3.325463;-1.840021; 0.957138;, - 3.308961;-1.828448; 0.998989;, - 3.095484;-1.816875; 0.924157;, - 3.124109;-1.828447; 0.889488;, - 2.981515;-1.828447; 0.729143;, - 2.943538;-1.816874; 0.753297;, - 2.981515;-1.828447; 0.729143;, - 2.896759;-1.828447; 0.532014;, - 2.853223;-1.816875; 0.543238;, - 2.943538;-1.816874; 0.753297;, - 2.896759;-1.828447; 0.532014;, - 2.981515;-1.828447; 0.729143;, - 3.019492;-1.840021; 0.704990;, - 2.940295;-1.840021; 0.520789;, - 3.124109;-1.828447; 0.889488;, - 3.152735;-1.840021; 0.854818;, - 3.019492;-1.840021; 0.704990;, - 2.981515;-1.828447; 0.729143;, - 3.872067;-1.921119; 0.850637;, - 3.524691;-1.921119; 0.939914;, - 3.520931;-1.840021; 1.000594;, - 3.904710;-1.840021; 0.901962;, - 2.875967;-1.828448; 0.318172;, - 2.831067;-1.816874; 0.315372;, - 2.853223;-1.816875; 0.543238;, - 2.896759;-1.828447; 0.532014;, - 2.875967;-1.828448; 0.318172;, - 2.922545;-1.828448; 0.109002;, - 2.880700;-1.816875; 0.092483;, - 2.831067;-1.816874; 0.315372;, - 2.922545;-1.828448; 0.109002;, - 2.875967;-1.828448; 0.318172;, - 2.920866;-1.840021; 0.320972;, - 2.964391;-1.840021; 0.125520;, - 2.920866;-1.840021; 0.320972;, - 2.875967;-1.828448; 0.318172;, - 2.896759;-1.828447; 0.532014;, - 2.940295;-1.840021; 0.520789;, - 2.964391;-1.840021; 0.125520;, - 3.020940;-1.921118; 0.147843;, - 3.249085;-1.921118;-0.128908;, - 3.216443;-1.840021;-0.180232;, - 3.976466;-1.805639; 1.014788;, - 3.754025;-1.805639; 1.110453;, - 3.764933;-1.794403; 1.152716;, - 3.999915;-1.794404; 1.051657;, - 3.764933;-1.794403; 1.152716;, - 3.754025;-1.805639; 1.110453;, - 3.512664;-1.805639; 1.133986;, - 3.509962;-1.794403; 1.177576;, - 3.754025;-1.805639; 1.110453;, - 3.743118;-1.816875; 1.068190;, - 3.515365;-1.816875; 1.090396;, - 3.512664;-1.805639; 1.133986;, - 4.048877;-1.819746; 1.128643;, - 3.787707;-1.819746; 1.240965;, - 3.810482;-1.845090; 1.329214;, - 4.097840;-1.845090; 1.205630;, - 3.810482;-1.845090; 1.329214;, - 3.787707;-1.819746; 1.240965;, - 3.504321;-1.819746; 1.268595;, - 3.498681;-1.845090; 1.359615;, - 3.787707;-1.819746; 1.240965;, - 3.764933;-1.794403; 1.152716;, - 3.509962;-1.794403; 1.177576;, - 3.504321;-1.819746; 1.268595;, - 3.999915;-1.794404; 1.051657;, - 3.764933;-1.794403; 1.152716;, - 3.787707;-1.819746; 1.240965;, - 4.048877;-1.819746; 1.128643;, - 3.276439;-1.805639; 1.081470;, - 3.260419;-1.794403; 1.122099;, - 3.509962;-1.794403; 1.177576;, - 3.512664;-1.805639; 1.133986;, - 3.039905;-1.794403; 0.991472;, - 3.260419;-1.794403; 1.122099;, - 3.276439;-1.805639; 1.081470;, - 3.067694;-1.805639; 0.957815;, - 3.067694;-1.805639; 0.957815;, - 3.276439;-1.805639; 1.081470;, - 3.292459;-1.816874; 1.040841;, - 3.095484;-1.816875; 0.924157;, - 3.498681;-1.845090; 1.359615;, - 3.504321;-1.819746; 1.268595;, - 3.226968;-1.819746; 1.206935;, - 3.193515;-1.845090; 1.291772;, - 3.226968;-1.819746; 1.206935;, - 2.981878;-1.819747; 1.061751;, - 2.923851;-1.845090; 1.132030;, - 3.193515;-1.845090; 1.291772;, - 2.981878;-1.819747; 1.061751;, - 3.226968;-1.819746; 1.206935;, - 3.260419;-1.794403; 1.122099;, - 3.039905;-1.794403; 0.991472;, - 3.504321;-1.819746; 1.268595;, - 3.509962;-1.794403; 1.177576;, - 3.260419;-1.794403; 1.122099;, - 3.226968;-1.819746; 1.206935;, - 3.292459;-1.816874; 1.040841;, - 3.276439;-1.805639; 1.081470;, - 3.512664;-1.805639; 1.133986;, - 3.515365;-1.816875; 1.090396;, - 2.906669;-1.805639; 0.776745;, - 2.869800;-1.794403; 0.800193;, - 3.039905;-1.794403; 0.991472;, - 3.067694;-1.805639; 0.957815;, - 2.768693;-1.794403; 0.565032;, - 2.869800;-1.794403; 0.800193;, - 2.906669;-1.805639; 0.776745;, - 2.810957;-1.805639; 0.554136;, - 2.810957;-1.805639; 0.554136;, - 2.906669;-1.805639; 0.776745;, - 2.943538;-1.816874; 0.753297;, - 2.853223;-1.816875; 0.543238;, - 2.923851;-1.845090; 1.132030;, - 2.981878;-1.819747; 1.061751;, - 2.792816;-1.819747; 0.849154;, - 2.715831;-1.845090; 0.898116;, - 2.792816;-1.819747; 0.849154;, - 2.680440;-1.819747; 0.587786;, - 2.592187;-1.845090; 0.610540;, - 2.715831;-1.845090; 0.898116;, - 2.680440;-1.819747; 0.587786;, - 2.792816;-1.819747; 0.849154;, - 2.869800;-1.794403; 0.800193;, - 2.768693;-1.794403; 0.565032;, - 2.981878;-1.819747; 1.061751;, - 3.039905;-1.794403; 0.991472;, - 2.869800;-1.794403; 0.800193;, - 2.792816;-1.819747; 0.849154;, - 2.943538;-1.816874; 0.753297;, - 2.906669;-1.805639; 0.776745;, - 3.067694;-1.805639; 0.957815;, - 3.095484;-1.816875; 0.924157;, - 4.110081;-1.885638; 1.224876;, - 3.816176;-1.885638; 1.351276;, - 3.821869;-1.926188; 1.373339;, - 4.122322;-1.926188; 1.244123;, - 3.821869;-1.926188; 1.373339;, - 3.816176;-1.885638; 1.351276;, - 3.497270;-1.885638; 1.382370;, - 3.495860;-1.926188; 1.405125;, - 3.816176;-1.885638; 1.351276;, - 3.810482;-1.845090; 1.329214;, - 3.498681;-1.845090; 1.359615;, - 3.497270;-1.885638; 1.382370;, - 4.123681;-2.075711; 1.246261;, - 3.822502;-2.075711; 1.375790;, - 3.823135;-2.222107; 1.378242;, - 4.125041;-2.222107; 1.248400;, - 3.823135;-2.222107; 1.378242;, - 3.822502;-2.075711; 1.375790;, - 3.495703;-2.075711; 1.407653;, - 3.495547;-2.222107; 1.410181;, - 3.822502;-2.075711; 1.375790;, - 3.821869;-1.926188; 1.373339;, - 3.495860;-1.926188; 1.405125;, - 3.495703;-2.075711; 1.407653;, - 4.122322;-1.926188; 1.244123;, - 3.821869;-1.926188; 1.373339;, - 3.822502;-2.075711; 1.375790;, - 4.123681;-2.075711; 1.246261;, - 3.185153;-1.885638; 1.312981;, - 3.176790;-1.926187; 1.334190;, - 3.495860;-1.926188; 1.405125;, - 3.497270;-1.885638; 1.382370;, - 2.894837;-1.926187; 1.167170;, - 3.176790;-1.926187; 1.334190;, - 3.185153;-1.885638; 1.312981;, - 2.909344;-1.885638; 1.149599;, - 2.909344;-1.885638; 1.149599;, - 3.185153;-1.885638; 1.312981;, - 3.193515;-1.845090; 1.291772;, - 2.923851;-1.845090; 1.132030;, - 3.495547;-2.222107; 1.410181;, - 3.495703;-2.075711; 1.407653;, - 3.175860;-2.075711; 1.336547;, - 3.174931;-2.222107; 1.338903;, - 3.175860;-2.075711; 1.336547;, - 2.893226;-2.075711; 1.169121;, - 2.891613;-2.222106; 1.171073;, - 3.174931;-2.222107; 1.338903;, - 2.893226;-2.075711; 1.169121;, - 3.175860;-2.075711; 1.336547;, - 3.176790;-1.926187; 1.334190;, - 2.894837;-1.926187; 1.167170;, - 3.495703;-2.075711; 1.407653;, - 3.495860;-1.926188; 1.405125;, - 3.176790;-1.926187; 1.334190;, - 3.175860;-2.075711; 1.336547;, - 3.193515;-1.845090; 1.291772;, - 3.185153;-1.885638; 1.312981;, - 3.497270;-1.885638; 1.382370;, - 3.498681;-1.845090; 1.359615;, - 2.696585;-1.885638; 0.910356;, - 2.677339;-1.926187; 0.922597;, - 2.894837;-1.926187; 1.167170;, - 2.909344;-1.885638; 1.149599;, - 2.548061;-1.926187; 0.621917;, - 2.677339;-1.926187; 0.922597;, - 2.696585;-1.885638; 0.910356;, - 2.570124;-1.885638; 0.616229;, - 2.570124;-1.885638; 0.616229;, - 2.696585;-1.885638; 0.910356;, - 2.715831;-1.845090; 0.898116;, - 2.592187;-1.845090; 0.610540;, - 2.891613;-2.222106; 1.171073;, - 2.893226;-2.075711; 1.169121;, - 2.675201;-2.075711; 0.923957;, - 2.673063;-2.222106; 0.925316;, - 2.675201;-2.075711; 0.923957;, - 2.545610;-2.075711; 0.622549;, - 2.543158;-2.222106; 0.623180;, - 2.673063;-2.222106; 0.925316;, - 2.545610;-2.075711; 0.622549;, - 2.675201;-2.075711; 0.923957;, - 2.677339;-1.926187; 0.922597;, - 2.548061;-1.926187; 0.621917;, - 2.893226;-2.075711; 1.169121;, - 2.894837;-1.926187; 1.167170;, - 2.677339;-1.926187; 0.922597;, - 2.675201;-2.075711; 0.923957;, - 2.715831;-1.845090; 0.898116;, - 2.696585;-1.885638; 0.910356;, - 2.909344;-1.885638; 1.149599;, - 2.923851;-1.845090; 1.132030;, - 4.097840;-1.845090; 1.205630;, - 3.810482;-1.845090; 1.329214;, - 3.816176;-1.885638; 1.351276;, - 4.110081;-1.885638; 1.224876;, - 2.787478;-1.805638; 0.312654;, - 2.743890;-1.794403; 0.309935;, - 2.768693;-1.794403; 0.565032;, - 2.810957;-1.805639; 0.554136;, - 2.787478;-1.805638; 0.312654;, - 2.840078;-1.805639; 0.076447;, - 2.799454;-1.794403; 0.060412;, - 2.743890;-1.794403; 0.309935;, - 2.880700;-1.816875; 0.092483;, - 2.840078;-1.805639; 0.076447;, - 2.787478;-1.805638; 0.312654;, - 2.831067;-1.816874; 0.315372;, - 2.652873;-1.819746; 0.304259;, - 2.561855;-1.845090; 0.298584;, - 2.592187;-1.845090; 0.610540;, - 2.680440;-1.819747; 0.587786;, - 2.652873;-1.819746; 0.304259;, - 2.714630;-1.819746; 0.026927;, - 2.629806;-1.845090;-0.006558;, - 2.561855;-1.845090; 0.298584;, - 2.714630;-1.819746; 0.026927;, - 2.652873;-1.819746; 0.304259;, - 2.743890;-1.794403; 0.309935;, - 2.799454;-1.794403; 0.060412;, - 2.743890;-1.794403; 0.309935;, - 2.652873;-1.819746; 0.304259;, - 2.680440;-1.819747; 0.587786;, - 2.768693;-1.794403; 0.565032;, - 2.840078;-1.805639; 0.076447;, - 2.963730;-1.805639;-0.132165;, - 2.930079;-1.794403;-0.159964;, - 2.799454;-1.794403; 0.060412;, - 2.930079;-1.794403;-0.159964;, - 2.963730;-1.805639;-0.132165;, - 3.144687;-1.805639;-0.293058;, - 3.121238;-1.794403;-0.329927;, - 2.963730;-1.805639;-0.132165;, - 2.997381;-1.816875;-0.104368;, - 3.168136;-1.816875;-0.256188;, - 3.144687;-1.805639;-0.293058;, - 2.714630;-1.819746; 0.026927;, - 2.859812;-1.819746;-0.218008;, - 2.789545;-1.845090;-0.276052;, - 2.629806;-1.845090;-0.006558;, - 2.789545;-1.845090;-0.276052;, - 2.859812;-1.819746;-0.218008;, - 3.072275;-1.819746;-0.406914;, - 3.023313;-1.845090;-0.483900;, - 2.859812;-1.819746;-0.218008;, - 2.930079;-1.794403;-0.159964;, - 3.121238;-1.794403;-0.329927;, - 3.072275;-1.819746;-0.406914;, - 2.859812;-1.819746;-0.218008;, - 2.714630;-1.819746; 0.026927;, - 2.799454;-1.794403; 0.060412;, - 2.930079;-1.794403;-0.159964;, - 2.963730;-1.805639;-0.132165;, - 2.840078;-1.805639; 0.076447;, - 2.880700;-1.816875; 0.092483;, - 2.997381;-1.816875;-0.104368;, - 2.539102;-1.885638; 0.297165;, - 2.516348;-1.926187; 0.295746;, - 2.548061;-1.926187; 0.621917;, - 2.570124;-1.885638; 0.616229;, - 2.587393;-1.926187;-0.023300;, - 2.516348;-1.926187; 0.295746;, - 2.539102;-1.885638; 0.297165;, - 2.608600;-1.885638;-0.014928;, - 2.608600;-1.885638;-0.014928;, - 2.539102;-1.885638; 0.297165;, - 2.561855;-1.845090; 0.298584;, - 2.629806;-1.845090;-0.006558;, - 2.543158;-2.222106; 0.623180;, - 2.545610;-2.075711; 0.622549;, - 2.513819;-2.075711; 0.295588;, - 2.511291;-2.222106; 0.295431;, - 2.511291;-2.222106; 0.295431;, - 2.513819;-2.075711; 0.295588;, - 2.585038;-2.075711;-0.024229;, - 2.582681;-2.222106;-0.025160;, - 2.585038;-2.075711;-0.024229;, - 2.513819;-2.075711; 0.295588;, - 2.516348;-1.926187; 0.295746;, - 2.587393;-1.926187;-0.023300;, - 2.545610;-2.075711; 0.622549;, - 2.548061;-1.926187; 0.621917;, - 2.516348;-1.926187; 0.295746;, - 2.513819;-2.075711; 0.295588;, - 2.608600;-1.885638;-0.014928;, - 2.771979;-1.885638;-0.290564;, - 2.754411;-1.926187;-0.305075;, - 2.587393;-1.926187;-0.023300;, - 2.754411;-1.926187;-0.305075;, - 2.771979;-1.885638;-0.290564;, - 3.011072;-1.885638;-0.503147;, - 2.998832;-1.926187;-0.522393;, - 2.771979;-1.885638;-0.290564;, - 2.789545;-1.845090;-0.276052;, - 3.023313;-1.845090;-0.483900;, - 3.011072;-1.885638;-0.503147;, - 2.585038;-2.075711;-0.024229;, - 2.752460;-2.075711;-0.306687;, - 2.750508;-2.222106;-0.308300;, - 2.582681;-2.222106;-0.025160;, - 2.750508;-2.222106;-0.308300;, - 2.752460;-2.075711;-0.306687;, - 2.997472;-2.075711;-0.524531;, - 2.996111;-2.222107;-0.526670;, - 2.752460;-2.075711;-0.306687;, - 2.754411;-1.926187;-0.305075;, - 2.998832;-1.926187;-0.522393;, - 2.997472;-2.075711;-0.524531;, - 2.752460;-2.075711;-0.306687;, - 2.585038;-2.075711;-0.024229;, - 2.587393;-1.926187;-0.023300;, - 2.754411;-1.926187;-0.305075;, - 2.771979;-1.885638;-0.290564;, - 2.608600;-1.885638;-0.014928;, - 2.629806;-1.845090;-0.006558;, - 2.789545;-1.845090;-0.276052;, - 2.561855;-1.845090; 0.298584;, - 2.539102;-1.885638; 0.297165;, - 2.570124;-1.885638; 0.616229;, - 2.592187;-1.845090; 0.610540;, - 2.831067;-1.816874; 0.315372;, - 2.787478;-1.805638; 0.312654;, - 2.810957;-1.805639; 0.554136;, - 2.853223;-1.816875; 0.543238;, - 3.953017;-1.816875; 0.977918;, - 3.743118;-1.816875; 1.068190;, - 3.754025;-1.805639; 1.110453;, - 3.976466;-1.805639; 1.014788;, - 3.605788;-1.816875;-0.368666;, - 3.603005;-1.828447;-0.323765;, - 3.812192;-1.828447;-0.277260;, - 3.828694;-1.816875;-0.319111;, - 3.812192;-1.828447;-0.277260;, - 3.997043;-1.828447;-0.167758;, - 4.025670;-1.816875;-0.202428;, - 3.828694;-1.816875;-0.319111;, - 3.997043;-1.828447;-0.167758;, - 3.812192;-1.828447;-0.277260;, - 3.795690;-1.840021;-0.235409;, - 3.968418;-1.840021;-0.133088;, - 3.603005;-1.828447;-0.323765;, - 3.600222;-1.840021;-0.278864;, - 3.795690;-1.840021;-0.235409;, - 3.812192;-1.828447;-0.277260;, - 4.025670;-1.816875;-0.202428;, - 3.997043;-1.828447;-0.167758;, - 4.139638;-1.828447;-0.007414;, - 4.177615;-1.816875;-0.031567;, - 4.139638;-1.828447;-0.007414;, - 4.224394;-1.828447; 0.189716;, - 4.267931;-1.816875; 0.178491;, - 4.177615;-1.816875;-0.031567;, - 4.224394;-1.828447; 0.189716;, - 4.139638;-1.828447;-0.007414;, - 4.101661;-1.840021; 0.016740;, - 4.180858;-1.840021; 0.200941;, - 3.997043;-1.828447;-0.167758;, - 3.968418;-1.840021;-0.133088;, - 4.101661;-1.840021; 0.016740;, - 4.139638;-1.828447;-0.007414;, - 3.249085;-1.921118;-0.128908;, - 3.596462;-1.921119;-0.218184;, - 3.600222;-1.840021;-0.278864;, - 3.216443;-1.840021;-0.180232;, - 4.245186;-1.828447; 0.403558;, - 4.290086;-1.816875; 0.406357;, - 4.267931;-1.816875; 0.178491;, - 4.224394;-1.828447; 0.189716;, - 4.245186;-1.828447; 0.403558;, - 4.198607;-1.828447; 0.612729;, - 4.240453;-1.816875; 0.629246;, - 4.290086;-1.816875; 0.406357;, - 4.198607;-1.828447; 0.612729;, - 4.245186;-1.828447; 0.403558;, - 4.200287;-1.840021; 0.400758;, - 4.156762;-1.840021; 0.596210;, - 4.200287;-1.840021; 0.400758;, - 4.245186;-1.828447; 0.403558;, - 4.224394;-1.828447; 0.189716;, - 4.180858;-1.840021; 0.200941;, - 4.156762;-1.840021; 0.596210;, - 4.100213;-1.921119; 0.573887;, - 3.872067;-1.921119; 0.850637;, - 3.904710;-1.840021; 0.901962;, - 3.144687;-1.805639;-0.293058;, - 3.367128;-1.805639;-0.388723;, - 3.356220;-1.794403;-0.430987;, - 3.121238;-1.794403;-0.329927;, - 3.608489;-1.805639;-0.412256;, - 3.611191;-1.794403;-0.455846;, - 3.356220;-1.794403;-0.430987;, - 3.367128;-1.805639;-0.388723;, - 3.605788;-1.816875;-0.368666;, - 3.608489;-1.805639;-0.412256;, - 3.367128;-1.805639;-0.388723;, - 3.378034;-1.816875;-0.346461;, - 3.072275;-1.819746;-0.406914;, - 3.333446;-1.819746;-0.519235;, - 3.310672;-1.845090;-0.607485;, - 3.023313;-1.845090;-0.483900;, - 3.310672;-1.845090;-0.607485;, - 3.333446;-1.819746;-0.519235;, - 3.616832;-1.819746;-0.546866;, - 3.622472;-1.845090;-0.637885;, - 3.333446;-1.819746;-0.519235;, - 3.356220;-1.794403;-0.430987;, - 3.611191;-1.794403;-0.455846;, - 3.616832;-1.819746;-0.546866;, - 3.121238;-1.794403;-0.329927;, - 3.356220;-1.794403;-0.430987;, - 3.333446;-1.819746;-0.519235;, - 3.072275;-1.819746;-0.406914;, - 3.844714;-1.805639;-0.359740;, - 3.860734;-1.794403;-0.400369;, - 3.611191;-1.794403;-0.455846;, - 3.608489;-1.805639;-0.412256;, - 3.844714;-1.805639;-0.359740;, - 4.053458;-1.805639;-0.236085;, - 4.081248;-1.794404;-0.269742;, - 3.860734;-1.794403;-0.400369;, - 4.053458;-1.805639;-0.236085;, - 3.844714;-1.805639;-0.359740;, - 3.828694;-1.816875;-0.319111;, - 4.025670;-1.816875;-0.202428;, - 3.894186;-1.819746;-0.485205;, - 3.927638;-1.845090;-0.570043;, - 3.622472;-1.845090;-0.637885;, - 3.616832;-1.819746;-0.546866;, - 3.894186;-1.819746;-0.485205;, - 4.139275;-1.819746;-0.340021;, - 4.197301;-1.845090;-0.410300;, - 3.927638;-1.845090;-0.570043;, - 4.139275;-1.819746;-0.340021;, - 3.894186;-1.819746;-0.485205;, - 3.860734;-1.794403;-0.400369;, - 4.081248;-1.794404;-0.269742;, - 3.860734;-1.794403;-0.400369;, - 3.894186;-1.819746;-0.485205;, - 3.616832;-1.819746;-0.546866;, - 3.611191;-1.794403;-0.455846;, - 3.844714;-1.805639;-0.359740;, - 3.608489;-1.805639;-0.412256;, - 3.605788;-1.816875;-0.368666;, - 3.828694;-1.816875;-0.319111;, - 4.214484;-1.805639;-0.055015;, - 4.251353;-1.794404;-0.078463;, - 4.081248;-1.794404;-0.269742;, - 4.053458;-1.805639;-0.236085;, - 4.214484;-1.805639;-0.055015;, - 4.310195;-1.805639; 0.167595;, - 4.352460;-1.794404; 0.156697;, - 4.251353;-1.794404;-0.078463;, - 4.310195;-1.805639; 0.167595;, - 4.214484;-1.805639;-0.055015;, - 4.177615;-1.816875;-0.031567;, - 4.267931;-1.816875; 0.178491;, - 4.328338;-1.819746;-0.127425;, - 4.405321;-1.845090;-0.176386;, - 4.197301;-1.845090;-0.410300;, - 4.139275;-1.819746;-0.340021;, - 4.328338;-1.819746;-0.127425;, - 4.440713;-1.819746; 0.133944;, - 4.528965;-1.845090; 0.111190;, - 4.405321;-1.845090;-0.176386;, - 4.440713;-1.819746; 0.133944;, - 4.328338;-1.819746;-0.127425;, - 4.251353;-1.794404;-0.078463;, - 4.352460;-1.794404; 0.156697;, - 4.251353;-1.794404;-0.078463;, - 4.328338;-1.819746;-0.127425;, - 4.139275;-1.819746;-0.340021;, - 4.081248;-1.794404;-0.269742;, - 4.177615;-1.816875;-0.031567;, - 4.214484;-1.805639;-0.055015;, - 4.053458;-1.805639;-0.236085;, - 4.025670;-1.816875;-0.202428;, - 3.011072;-1.885638;-0.503147;, - 3.304977;-1.885638;-0.629547;, - 3.299284;-1.926187;-0.651609;, - 2.998832;-1.926187;-0.522393;, - 3.299284;-1.926187;-0.651609;, - 3.304977;-1.885638;-0.629547;, - 3.623883;-1.885638;-0.660640;, - 3.625293;-1.926188;-0.683395;, - 3.304977;-1.885638;-0.629547;, - 3.310672;-1.845090;-0.607485;, - 3.622472;-1.845090;-0.637885;, - 3.623883;-1.885638;-0.660640;, - 2.997472;-2.075711;-0.524531;, - 3.298651;-2.075711;-0.654060;, - 3.298018;-2.222107;-0.656512;, - 2.996111;-2.222107;-0.526670;, - 3.298018;-2.222107;-0.656512;, - 3.298651;-2.075711;-0.654060;, - 3.625450;-2.075711;-0.685923;, - 3.625606;-2.222107;-0.688452;, - 3.298651;-2.075711;-0.654060;, - 3.299284;-1.926187;-0.651609;, - 3.625293;-1.926188;-0.683395;, - 3.625450;-2.075711;-0.685923;, - 2.998832;-1.926187;-0.522393;, - 3.299284;-1.926187;-0.651609;, - 3.298651;-2.075711;-0.654060;, - 2.997472;-2.075711;-0.524531;, - 3.936001;-1.885638;-0.591251;, - 3.944363;-1.926188;-0.612460;, - 3.625293;-1.926188;-0.683395;, - 3.623883;-1.885638;-0.660640;, - 4.226315;-1.926188;-0.445439;, - 3.944363;-1.926188;-0.612460;, - 3.936001;-1.885638;-0.591251;, - 4.211809;-1.885638;-0.427869;, - 4.211809;-1.885638;-0.427869;, - 3.936001;-1.885638;-0.591251;, - 3.927638;-1.845090;-0.570043;, - 4.197301;-1.845090;-0.410300;, - 3.625450;-2.075711;-0.685923;, - 3.945292;-2.075711;-0.614817;, - 3.946222;-2.222107;-0.617173;, - 3.625606;-2.222107;-0.688452;, - 3.945292;-2.075711;-0.614817;, - 4.227927;-2.075711;-0.447391;, - 4.229539;-2.222107;-0.449344;, - 3.946222;-2.222107;-0.617173;, - 4.227927;-2.075711;-0.447391;, - 3.945292;-2.075711;-0.614817;, - 3.944363;-1.926188;-0.612460;, - 4.226315;-1.926188;-0.445439;, - 3.625450;-2.075711;-0.685923;, - 3.625293;-1.926188;-0.683395;, - 3.944363;-1.926188;-0.612460;, - 3.945292;-2.075711;-0.614817;, - 3.927638;-1.845090;-0.570043;, - 3.936001;-1.885638;-0.591251;, - 3.623883;-1.885638;-0.660640;, - 3.622472;-1.845090;-0.637885;, - 4.424568;-1.885638;-0.188627;, - 4.443814;-1.926188;-0.200867;, - 4.226315;-1.926188;-0.445439;, - 4.211809;-1.885638;-0.427869;, - 4.573092;-1.926188; 0.099814;, - 4.443814;-1.926188;-0.200867;, - 4.424568;-1.885638;-0.188627;, - 4.551028;-1.885638; 0.105502;, - 4.551028;-1.885638; 0.105502;, - 4.424568;-1.885638;-0.188627;, - 4.405321;-1.845090;-0.176386;, - 4.528965;-1.845090; 0.111190;, - 4.229539;-2.222107;-0.449344;, - 4.227927;-2.075711;-0.447391;, - 4.445952;-2.075711;-0.202227;, - 4.448090;-2.222107;-0.203587;, - 4.445952;-2.075711;-0.202227;, - 4.575543;-2.075711; 0.099181;, - 4.577994;-2.222107; 0.098549;, - 4.448090;-2.222107;-0.203587;, - 4.575543;-2.075711; 0.099181;, - 4.445952;-2.075711;-0.202227;, - 4.443814;-1.926188;-0.200867;, - 4.573092;-1.926188; 0.099814;, - 4.227927;-2.075711;-0.447391;, - 4.226315;-1.926188;-0.445439;, - 4.443814;-1.926188;-0.200867;, - 4.445952;-2.075711;-0.202227;, - 4.405321;-1.845090;-0.176386;, - 4.424568;-1.885638;-0.188627;, - 4.211809;-1.885638;-0.427869;, - 4.197301;-1.845090;-0.410300;, - 3.023313;-1.845090;-0.483900;, - 3.310672;-1.845090;-0.607485;, - 3.304977;-1.885638;-0.629547;, - 3.011072;-1.885638;-0.503147;, - 4.333675;-1.805639; 0.409076;, - 4.377264;-1.794404; 0.411794;, - 4.352460;-1.794404; 0.156697;, - 4.310195;-1.805639; 0.167595;, - 4.333675;-1.805639; 0.409076;, - 4.281075;-1.805639; 0.645282;, - 4.321698;-1.794404; 0.661318;, - 4.377264;-1.794404; 0.411794;, - 4.240453;-1.816875; 0.629246;, - 4.281075;-1.805639; 0.645282;, - 4.333675;-1.805639; 0.409076;, - 4.290086;-1.816875; 0.406357;, - 4.468280;-1.819746; 0.417470;, - 4.559298;-1.845090; 0.423146;, - 4.528965;-1.845090; 0.111190;, - 4.440713;-1.819746; 0.133944;, - 4.468280;-1.819746; 0.417470;, - 4.406523;-1.819746; 0.694803;, - 4.491347;-1.845090; 0.728287;, - 4.559298;-1.845090; 0.423146;, - 4.406523;-1.819746; 0.694803;, - 4.468280;-1.819746; 0.417470;, - 4.377264;-1.794404; 0.411794;, - 4.321698;-1.794404; 0.661318;, - 4.377264;-1.794404; 0.411794;, - 4.468280;-1.819746; 0.417470;, - 4.440713;-1.819746; 0.133944;, - 4.352460;-1.794404; 0.156697;, - 4.281075;-1.805639; 0.645282;, - 4.157423;-1.805639; 0.853895;, - 4.191074;-1.794404; 0.881694;, - 4.321698;-1.794404; 0.661318;, - 4.191074;-1.794404; 0.881694;, - 4.157423;-1.805639; 0.853895;, - 3.976466;-1.805639; 1.014788;, - 3.999915;-1.794404; 1.051657;, - 4.157423;-1.805639; 0.853895;, - 4.123772;-1.816875; 0.826097;, - 3.953017;-1.816875; 0.977918;, - 3.976466;-1.805639; 1.014788;, - 4.406523;-1.819746; 0.694803;, - 4.261341;-1.819746; 0.939738;, - 4.331608;-1.845090; 0.997782;, - 4.491347;-1.845090; 0.728287;, - 4.331608;-1.845090; 0.997782;, - 4.261341;-1.819746; 0.939738;, - 4.048877;-1.819746; 1.128643;, - 4.097840;-1.845090; 1.205630;, - 4.261341;-1.819746; 0.939738;, - 4.191074;-1.794404; 0.881694;, - 3.999915;-1.794404; 1.051657;, - 4.048877;-1.819746; 1.128643;, - 4.261341;-1.819746; 0.939738;, - 4.406523;-1.819746; 0.694803;, - 4.321698;-1.794404; 0.661318;, - 4.191074;-1.794404; 0.881694;, - 4.157423;-1.805639; 0.853895;, - 4.281075;-1.805639; 0.645282;, - 4.240453;-1.816875; 0.629246;, - 4.123772;-1.816875; 0.826097;, - 4.582051;-1.885638; 0.424565;, - 4.604805;-1.926188; 0.425984;, - 4.573092;-1.926188; 0.099814;, - 4.551028;-1.885638; 0.105502;, - 4.582051;-1.885638; 0.424565;, - 4.512553;-1.885638; 0.736658;, - 4.533760;-1.926188; 0.745029;, - 4.604805;-1.926188; 0.425984;, - 4.512553;-1.885638; 0.736658;, - 4.582051;-1.885638; 0.424565;, - 4.559298;-1.845090; 0.423146;, - 4.491347;-1.845090; 0.728287;, - 4.607334;-2.075711; 0.426141;, - 4.609862;-2.222107; 0.426299;, - 4.577994;-2.222107; 0.098549;, - 4.575543;-2.075711; 0.099181;, - 4.607334;-2.075711; 0.426141;, - 4.536115;-2.075711; 0.745959;, - 4.538471;-2.222107; 0.746889;, - 4.609862;-2.222107; 0.426299;, - 4.536115;-2.075711; 0.745959;, - 4.607334;-2.075711; 0.426141;, - 4.604805;-1.926188; 0.425984;, - 4.533760;-1.926188; 0.745029;, - 4.604805;-1.926188; 0.425984;, - 4.607334;-2.075711; 0.426141;, - 4.575543;-2.075711; 0.099181;, - 4.573092;-1.926188; 0.099814;, - 4.512553;-1.885638; 0.736658;, - 4.349174;-1.885638; 1.012293;, - 4.366741;-1.926188; 1.026805;, - 4.533760;-1.926188; 0.745029;, - 4.366741;-1.926188; 1.026805;, - 4.349174;-1.885638; 1.012293;, - 4.110081;-1.885638; 1.224876;, - 4.122322;-1.926188; 1.244123;, - 4.349174;-1.885638; 1.012293;, - 4.331608;-1.845090; 0.997782;, - 4.097840;-1.845090; 1.205630;, - 4.110081;-1.885638; 1.224876;, - 4.536115;-2.075711; 0.745959;, - 4.368693;-2.075711; 1.028417;, - 4.370645;-2.222107; 1.030030;, - 4.538471;-2.222107; 0.746889;, - 4.370645;-2.222107; 1.030030;, - 4.368693;-2.075711; 1.028417;, - 4.123681;-2.075711; 1.246261;, - 4.125041;-2.222107; 1.248400;, - 4.368693;-2.075711; 1.028417;, - 4.366741;-1.926188; 1.026805;, - 4.122322;-1.926188; 1.244123;, - 4.123681;-2.075711; 1.246261;, - 4.368693;-2.075711; 1.028417;, - 4.536115;-2.075711; 0.745959;, - 4.533760;-1.926188; 0.745029;, - 4.366741;-1.926188; 1.026805;, - 4.349174;-1.885638; 1.012293;, - 4.512553;-1.885638; 0.736658;, - 4.491347;-1.845090; 0.728287;, - 4.331608;-1.845090; 0.997782;, - 4.559298;-1.845090; 0.423146;, - 4.582051;-1.885638; 0.424565;, - 4.551028;-1.885638; 0.105502;, - 4.528965;-1.845090; 0.111190;, - 4.290086;-1.816875; 0.406357;, - 4.333675;-1.805639; 0.409076;, - 4.310195;-1.805639; 0.167595;, - 4.267931;-1.816875; 0.178491;, - 3.367128;-1.805639;-0.388723;, - 3.144687;-1.805639;-0.293058;, - 3.168136;-1.816875;-0.256188;, - 3.378034;-1.816875;-0.346461;, - 3.615014;-2.277268; 0.446460;, - 3.638700;-2.277268; 0.425400;, - 3.707015;-2.274734; 0.481832;, - 3.662617;-2.274734; 0.521308;, - 3.654886;-2.277268; 0.398093;, - 3.737353;-2.274734; 0.430648;, - 3.707015;-2.274734; 0.481832;, - 3.638700;-2.277268; 0.425400;, - 3.654886;-2.277268; 0.398093;, - 3.638700;-2.277268; 0.425400;, - 3.560576;-2.279802; 0.360865;, - 3.654886;-2.277268; 0.398093;, - 3.661770;-2.277268; 0.367175;, - 3.750259;-2.274734; 0.372693;, - 3.737353;-2.274734; 0.430648;, - 3.661770;-2.277268; 0.367175;, - 3.658696;-2.277268; 0.335567;, - 3.744498;-2.274734; 0.313446;, - 3.750259;-2.274734; 0.372693;, - 3.658696;-2.277268; 0.335567;, - 3.661770;-2.277268; 0.367175;, - 3.560576;-2.279802; 0.360865;, - 3.661770;-2.277268; 0.367175;, - 3.654886;-2.277268; 0.398093;, - 3.560576;-2.279802; 0.360865;, - 3.646168;-2.277268; 0.306429;, - 3.721015;-2.274734; 0.258827;, - 3.744498;-2.274734; 0.313446;, - 3.658696;-2.277268; 0.335567;, - 3.646168;-2.277268; 0.306429;, - 3.625091;-2.277268; 0.282728;, - 3.681506;-2.274734; 0.214401;, - 3.721015;-2.274734; 0.258827;, - 3.625091;-2.277268; 0.282728;, - 3.646168;-2.277268; 0.306429;, - 3.560576;-2.279802; 0.360865;, - 3.646168;-2.277268; 0.306429;, - 3.658696;-2.277268; 0.335567;, - 3.560576;-2.279802; 0.360865;, - 3.746941;-2.327954; 0.653895;, - 3.828030;-2.327954; 0.581797;, - 3.902200;-2.330488; 0.643066;, - 3.798624;-2.330488; 0.735158;, - 3.902200;-2.330488; 0.643066;, - 3.828030;-2.327954; 0.581797;, - 3.883440;-2.327954; 0.488315;, - 3.972976;-2.330488; 0.523660;, - 3.828030;-2.327954; 0.581797;, - 3.753859;-2.325420; 0.520528;, - 3.793903;-2.325420; 0.452970;, - 3.883440;-2.327954; 0.488315;, - 3.907010;-2.327954; 0.382469;, - 4.003083;-2.330488; 0.388460;, - 3.972976;-2.330488; 0.523660;, - 3.883440;-2.327954; 0.488315;, - 3.989644;-2.330488; 0.250240;, - 4.003083;-2.330488; 0.388460;, - 3.907010;-2.327954; 0.382469;, - 3.896489;-2.327954; 0.274259;, - 3.896489;-2.327954; 0.274259;, - 3.907010;-2.327954; 0.382469;, - 3.810937;-2.325420; 0.376478;, - 3.803333;-2.325420; 0.298276;, - 3.810937;-2.325420; 0.376478;, - 3.907010;-2.327954; 0.382469;, - 3.883440;-2.327954; 0.488315;, - 3.793903;-2.325420; 0.452970;, - 3.853599;-2.327954; 0.174505;, - 3.934861;-2.330488; 0.122823;, - 3.989644;-2.330488; 0.250240;, - 3.896489;-2.327954; 0.274259;, - 3.842693;-2.330488; 0.019182;, - 3.934861;-2.330488; 0.122823;, - 3.853599;-2.327954; 0.174505;, - 3.781442;-2.327954; 0.093365;, - 3.781442;-2.327954; 0.093365;, - 3.853599;-2.327954; 0.174505;, - 3.772338;-2.325420; 0.226186;, - 3.720192;-2.325420; 0.167549;, - 3.772338;-2.325420; 0.226186;, - 3.853599;-2.327954; 0.174505;, - 3.896489;-2.327954; 0.274259;, - 3.803333;-2.325420; 0.298276;, - 3.695258;-2.325420; 0.572632;, - 3.753859;-2.325420; 0.520528;, - 3.828030;-2.327954; 0.581797;, - 3.746941;-2.327954; 0.653895;, - 3.597768;-2.277268; 0.266541;, - 3.630291;-2.274734; 0.184062;, - 3.681506;-2.274734; 0.214401;, - 3.625091;-2.277268; 0.282728;, - 3.597768;-2.277268; 0.266541;, - 3.566848;-2.277268; 0.259667;, - 3.572332;-2.274734; 0.171177;, - 3.630291;-2.274734; 0.184062;, - 3.566848;-2.277268; 0.259667;, - 3.597768;-2.277268; 0.266541;, - 3.560576;-2.279802; 0.360865;, - 3.566848;-2.277268; 0.259667;, - 3.535255;-2.277268; 0.262748;, - 3.513113;-2.274734; 0.176950;, - 3.572332;-2.274734; 0.171177;, - 3.506139;-2.277268; 0.275270;, - 3.458536;-2.274734; 0.200422;, - 3.513113;-2.274734; 0.176950;, - 3.535255;-2.277268; 0.262748;, - 3.506139;-2.277268; 0.275270;, - 3.535255;-2.277268; 0.262748;, - 3.560576;-2.279802; 0.360865;, - 3.535255;-2.277268; 0.262748;, - 3.566848;-2.277268; 0.259667;, - 3.560576;-2.279802; 0.360865;, - 3.687901;-2.327954; 0.037954;, - 3.723212;-2.330488;-0.051596;, - 3.842693;-2.330488; 0.019182;, - 3.781442;-2.327954; 0.093365;, - 3.723212;-2.330488;-0.051596;, - 3.687901;-2.327954; 0.037954;, - 3.582047;-2.327954; 0.014421;, - 3.588001;-2.330488;-0.081655;, - 3.582047;-2.327954; 0.014421;, - 3.687901;-2.327954; 0.037954;, - 3.652592;-2.325420; 0.127504;, - 3.576093;-2.325420; 0.110497;, - 3.582047;-2.327954; 0.014421;, - 3.473890;-2.327954; 0.024966;, - 3.449850;-2.330488;-0.068186;, - 3.588001;-2.330488;-0.081655;, - 3.449850;-2.330488;-0.068186;, - 3.473890;-2.327954; 0.024966;, - 3.374212;-2.327954; 0.067835;, - 3.322529;-2.330488;-0.013428;, - 3.473890;-2.327954; 0.024966;, - 3.497930;-2.325420; 0.118118;, - 3.425894;-2.325420; 0.149098;, - 3.374212;-2.327954; 0.067835;, - 3.473890;-2.327954; 0.024966;, - 3.582047;-2.327954; 0.014421;, - 3.576093;-2.325420; 0.110497;, - 3.497930;-2.325420; 0.118118;, - 3.652592;-2.325420; 0.127504;, - 3.687901;-2.327954; 0.037954;, - 3.781442;-2.327954; 0.093365;, - 3.720192;-2.325420; 0.167549;, - 3.597768;-2.277268; 0.266541;, - 3.625091;-2.277268; 0.282728;, - 3.560576;-2.279802; 0.360865;, - 3.803160;-2.359844; 0.742291;, - 3.980835;-2.359844; 0.526762;, - 4.010676;-2.355832; 0.538542;, - 3.820385;-2.355832; 0.769375;, - 3.997821;-2.359843; 0.248132;, - 3.848069;-2.359843; 0.012670;, - 3.868483;-2.355832;-0.012053;, - 4.028868;-2.355832; 0.240127;, - 3.997821;-2.359843; 0.248132;, - 3.989644;-2.360900; 0.250240;, - 3.842693;-2.360900; 0.019182;, - 3.848069;-2.359843; 0.012670;, - 3.820385;-2.518027; 0.769375;, - 4.010675;-2.518027; 0.538542;, - 4.029526;-2.548439; 0.545983;, - 3.831265;-2.548439; 0.786482;, - 4.010675;-2.518027; 0.538542;, - 4.028868;-2.518027; 0.240127;, - 4.048479;-2.548439; 0.235071;, - 4.029526;-2.548439; 0.545983;, - 4.028868;-2.518027; 0.240127;, - 4.010675;-2.518027; 0.538542;, - 4.010676;-2.355832; 0.538542;, - 4.028868;-2.355832; 0.240127;, - 4.048479;-2.548439; 0.235071;, - 4.028868;-2.518027; 0.240127;, - 3.868483;-2.518027;-0.012053;, - 3.881377;-2.548439;-0.027671;, - 3.868483;-2.518027;-0.012053;, - 4.028868;-2.518027; 0.240127;, - 4.028868;-2.355832; 0.240127;, - 3.868483;-2.355832;-0.012053;, - 3.820385;-2.355832; 0.769375;, - 4.010676;-2.355832; 0.538542;, - 4.010675;-2.518027; 0.538542;, - 3.820385;-2.518027; 0.769375;, - 3.590508;-2.355831;-0.122108;, - 3.588524;-2.359844;-0.090088;, - 3.317992;-2.359844;-0.020561;, - 3.300768;-2.355831;-0.047645;, - 3.588524;-2.359844;-0.090088;, - 3.588001;-2.360900;-0.081655;, - 3.322529;-2.360900;-0.013428;, - 3.317992;-2.359844;-0.020561;, - 3.881377;-2.548439;-0.027671;, - 3.868483;-2.518027;-0.012053;, - 3.590508;-2.518027;-0.122108;, - 3.591762;-2.548439;-0.142335;, - 3.591762;-2.548439;-0.142335;, - 3.590508;-2.518027;-0.122108;, - 3.300768;-2.518027;-0.047645;, - 3.289887;-2.548439;-0.064752;, - 3.300768;-2.518027;-0.047645;, - 3.590508;-2.518027;-0.122108;, - 3.590508;-2.355831;-0.122108;, - 3.300768;-2.355831;-0.047645;, - 3.590508;-2.518027;-0.122108;, - 3.868483;-2.518027;-0.012053;, - 3.868483;-2.355832;-0.012053;, - 3.590508;-2.355831;-0.122108;, - 3.798624;-2.360900; 0.735158;, - 3.972976;-2.360900; 0.523660;, - 3.980835;-2.359844; 0.526762;, - 3.803160;-2.359844; 0.742291;, - 3.506139;-2.277268; 0.275270;, - 3.482453;-2.277268; 0.296330;, - 3.414138;-2.274734; 0.239898;, - 3.458536;-2.274734; 0.200422;, - 3.466267;-2.277268; 0.323636;, - 3.383800;-2.274734; 0.291082;, - 3.414138;-2.274734; 0.239898;, - 3.482453;-2.277268; 0.296330;, - 3.466267;-2.277268; 0.323636;, - 3.482453;-2.277268; 0.296330;, - 3.560576;-2.279802; 0.360865;, - 3.459382;-2.277268; 0.354554;, - 3.370894;-2.274734; 0.349036;, - 3.383800;-2.274734; 0.291082;, - 3.466267;-2.277268; 0.323636;, - 3.459382;-2.277268; 0.354554;, - 3.462455;-2.277268; 0.386163;, - 3.376654;-2.274734; 0.408285;, - 3.370894;-2.274734; 0.349036;, - 3.462455;-2.277268; 0.386163;, - 3.459382;-2.277268; 0.354554;, - 3.560576;-2.279802; 0.360865;, - 3.459382;-2.277268; 0.354554;, - 3.466267;-2.277268; 0.323636;, - 3.560576;-2.279802; 0.360865;, - 3.474983;-2.277268; 0.415301;, - 3.400137;-2.274734; 0.462903;, - 3.376654;-2.274734; 0.408285;, - 3.462455;-2.277268; 0.386163;, - 3.474983;-2.277268; 0.415301;, - 3.496060;-2.277268; 0.439002;, - 3.439646;-2.274734; 0.507329;, - 3.400137;-2.274734; 0.462903;, - 3.496060;-2.277268; 0.439002;, - 3.474983;-2.277268; 0.415301;, - 3.560576;-2.279802; 0.360865;, - 3.474983;-2.277268; 0.415301;, - 3.462455;-2.277268; 0.386163;, - 3.560576;-2.279802; 0.360865;, - 3.374212;-2.327954; 0.067835;, - 3.293122;-2.327954; 0.139933;, - 3.218952;-2.330488; 0.078663;, - 3.322529;-2.330488;-0.013428;, - 3.218952;-2.330488; 0.078663;, - 3.293122;-2.327954; 0.139933;, - 3.237713;-2.327954; 0.233415;, - 3.148176;-2.330488; 0.198069;, - 3.293122;-2.327954; 0.139933;, - 3.367294;-2.325420; 0.201202;, - 3.327250;-2.325420; 0.268759;, - 3.237713;-2.327954; 0.233415;, - 3.237713;-2.327954; 0.233415;, - 3.214143;-2.327954; 0.339261;, - 3.118070;-2.330488; 0.333270;, - 3.148176;-2.330488; 0.198069;, - 3.131509;-2.330488; 0.471489;, - 3.118070;-2.330488; 0.333270;, - 3.214143;-2.327954; 0.339261;, - 3.224664;-2.327954; 0.447471;, - 3.224664;-2.327954; 0.447471;, - 3.214143;-2.327954; 0.339261;, - 3.310216;-2.325420; 0.345252;, - 3.317820;-2.325420; 0.423454;, - 3.310216;-2.325420; 0.345252;, - 3.214143;-2.327954; 0.339261;, - 3.237713;-2.327954; 0.233415;, - 3.327250;-2.325420; 0.268759;, - 3.267554;-2.327954; 0.547225;, - 3.186292;-2.330488; 0.598907;, - 3.131509;-2.330488; 0.471489;, - 3.224664;-2.327954; 0.447471;, - 3.278460;-2.330488; 0.702547;, - 3.186292;-2.330488; 0.598907;, - 3.267554;-2.327954; 0.547225;, - 3.339711;-2.327954; 0.628365;, - 3.339711;-2.327954; 0.628365;, - 3.267554;-2.327954; 0.547225;, - 3.348815;-2.325420; 0.495544;, - 3.400961;-2.325420; 0.554181;, - 3.348815;-2.325420; 0.495544;, - 3.267554;-2.327954; 0.547225;, - 3.224664;-2.327954; 0.447471;, - 3.317820;-2.325420; 0.423454;, - 3.425894;-2.325420; 0.149098;, - 3.367294;-2.325420; 0.201202;, - 3.293122;-2.327954; 0.139933;, - 3.374212;-2.327954; 0.067835;, - 3.523384;-2.277268; 0.455188;, - 3.490862;-2.274734; 0.537668;, - 3.439646;-2.274734; 0.507329;, - 3.496060;-2.277268; 0.439002;, - 3.554304;-2.277268; 0.462062;, - 3.548821;-2.274734; 0.550553;, - 3.490862;-2.274734; 0.537668;, - 3.523384;-2.277268; 0.455188;, - 3.554304;-2.277268; 0.462062;, - 3.523384;-2.277268; 0.455188;, - 3.560576;-2.279802; 0.360865;, - 3.554304;-2.277268; 0.462062;, - 3.585898;-2.277268; 0.458981;, - 3.608040;-2.274734; 0.544779;, - 3.548821;-2.274734; 0.550553;, - 3.608040;-2.274734; 0.544779;, - 3.585898;-2.277268; 0.458981;, - 3.615014;-2.277268; 0.446460;, - 3.662617;-2.274734; 0.521308;, - 3.585898;-2.277268; 0.458981;, - 3.560576;-2.279802; 0.360865;, - 3.615014;-2.277268; 0.446460;, - 3.585898;-2.277268; 0.458981;, - 3.554304;-2.277268; 0.462062;, - 3.560576;-2.279802; 0.360865;, - 3.433251;-2.327954; 0.683775;, - 3.397942;-2.330488; 0.773325;, - 3.278460;-2.330488; 0.702547;, - 3.339711;-2.327954; 0.628365;, - 3.433251;-2.327954; 0.683775;, - 3.539106;-2.327954; 0.707309;, - 3.533152;-2.330488; 0.803384;, - 3.397942;-2.330488; 0.773325;, - 3.539106;-2.327954; 0.707309;, - 3.433251;-2.327954; 0.683775;, - 3.468561;-2.325420; 0.594226;, - 3.545060;-2.325420; 0.611233;, - 3.539106;-2.327954; 0.707309;, - 3.647262;-2.327954; 0.696764;, - 3.671303;-2.330488; 0.789915;, - 3.533152;-2.330488; 0.803384;, - 3.671303;-2.330488; 0.789915;, - 3.647262;-2.327954; 0.696764;, - 3.746941;-2.327954; 0.653895;, - 3.798624;-2.330488; 0.735158;, - 3.647262;-2.327954; 0.696764;, - 3.623223;-2.325420; 0.603612;, - 3.695258;-2.325420; 0.572632;, - 3.746941;-2.327954; 0.653895;, - 3.647262;-2.327954; 0.696764;, - 3.539106;-2.327954; 0.707309;, - 3.545060;-2.325420; 0.611233;, - 3.623223;-2.325420; 0.603612;, - 3.468561;-2.325420; 0.594226;, - 3.433251;-2.327954; 0.683775;, - 3.339711;-2.327954; 0.628365;, - 3.400961;-2.325420; 0.554181;, - 3.523384;-2.277268; 0.455188;, - 3.496060;-2.277268; 0.439002;, - 3.560576;-2.279802; 0.360865;, - 3.317992;-2.359844;-0.020561;, - 3.140317;-2.359844; 0.194968;, - 3.110477;-2.355831; 0.183187;, - 3.300768;-2.355831;-0.047645;, - 3.140317;-2.359844; 0.194968;, - 3.123331;-2.359844; 0.473597;, - 3.092285;-2.355831; 0.481603;, - 3.110477;-2.355831; 0.183187;, - 3.123331;-2.359844; 0.473597;, - 3.140317;-2.359844; 0.194968;, - 3.148176;-2.360900; 0.198069;, - 3.131509;-2.360900; 0.471489;, - 3.273083;-2.359844; 0.709059;, - 3.252670;-2.355831; 0.733783;, - 3.092285;-2.355831; 0.481603;, - 3.123331;-2.359844; 0.473597;, - 3.273083;-2.359844; 0.709059;, - 3.123331;-2.359844; 0.473597;, - 3.131509;-2.360900; 0.471489;, - 3.278460;-2.360900; 0.702547;, - 3.300768;-2.518027;-0.047645;, - 3.110476;-2.518027; 0.183187;, - 3.091628;-2.548439; 0.175746;, - 3.289887;-2.548439;-0.064752;, - 3.110476;-2.518027; 0.183187;, - 3.092285;-2.518027; 0.481603;, - 3.072673;-2.548439; 0.486658;, - 3.091628;-2.548439; 0.175746;, - 3.092285;-2.518027; 0.481603;, - 3.110476;-2.518027; 0.183187;, - 3.110477;-2.355831; 0.183187;, - 3.092285;-2.355831; 0.481603;, - 3.092285;-2.518027; 0.481603;, - 3.252670;-2.518027; 0.733783;, - 3.239775;-2.548439; 0.749400;, - 3.072673;-2.548439; 0.486658;, - 3.252670;-2.518027; 0.733783;, - 3.092285;-2.518027; 0.481603;, - 3.092285;-2.355831; 0.481603;, - 3.252670;-2.355831; 0.733783;, - 3.300768;-2.355831;-0.047645;, - 3.110477;-2.355831; 0.183187;, - 3.110476;-2.518027; 0.183187;, - 3.300768;-2.518027;-0.047645;, - 3.532629;-2.359844; 0.811818;, - 3.530645;-2.355831; 0.843837;, - 3.252670;-2.355831; 0.733783;, - 3.273083;-2.359844; 0.709059;, - 3.530645;-2.355831; 0.843837;, - 3.532629;-2.359844; 0.811818;, - 3.803160;-2.359844; 0.742291;, - 3.820385;-2.355832; 0.769375;, - 3.532629;-2.359844; 0.811818;, - 3.533152;-2.360900; 0.803384;, - 3.798624;-2.360900; 0.735158;, - 3.803160;-2.359844; 0.742291;, - 3.530645;-2.518027; 0.843837;, - 3.529392;-2.548439; 0.864064;, - 3.239775;-2.548439; 0.749400;, - 3.252670;-2.518027; 0.733783;, - 3.529392;-2.548439; 0.864064;, - 3.530645;-2.518027; 0.843837;, - 3.820385;-2.518027; 0.769375;, - 3.831265;-2.548439; 0.786482;, - 3.820385;-2.518027; 0.769375;, - 3.530645;-2.518027; 0.843837;, - 3.530645;-2.355831; 0.843837;, - 3.820385;-2.355832; 0.769375;, - 3.530645;-2.355831; 0.843837;, - 3.530645;-2.518027; 0.843837;, - 3.252670;-2.518027; 0.733783;, - 3.252670;-2.355831; 0.733783;, - 3.533152;-2.360900; 0.803384;, - 3.532629;-2.359844; 0.811818;, - 3.273083;-2.359844; 0.709059;, - 3.278460;-2.360900; 0.702547;, - 3.140317;-2.359844; 0.194968;, - 3.317992;-2.359844;-0.020561;, - 3.322529;-2.360900;-0.013428;, - 3.148176;-2.360900; 0.198069;, - 3.482453;-2.277268; 0.296330;, - 3.506139;-2.277268; 0.275270;, - 3.560576;-2.279802; 0.360865;, - 3.869348;-2.553508; 0.846361;, - 4.095500;-2.553508; 0.572026;, - 4.100213;-2.523096; 0.573887;, - 3.872067;-2.523096; 0.850637;, - 4.095500;-2.553508; 0.572026;, - 4.117120;-2.553508; 0.217373;, - 4.122023;-2.523096; 0.216110;, - 4.100213;-2.523096; 0.573887;, - 4.117120;-2.553508; 0.217373;, - 4.095500;-2.553508; 0.572026;, - 4.029526;-2.548439; 0.545983;, - 4.048479;-2.548439; 0.235071;, - 4.117120;-2.553508; 0.217373;, - 3.926510;-2.553508;-0.082332;, - 3.929733;-2.523096;-0.086236;, - 4.122023;-2.523096; 0.216110;, - 3.926510;-2.553508;-0.082332;, - 4.117120;-2.553508; 0.217373;, - 4.048479;-2.548439; 0.235071;, - 3.881377;-2.548439;-0.027671;, - 4.198607;-2.615766; 0.612729;, - 4.245186;-2.615767; 0.403558;, - 4.290085;-2.627340; 0.406358;, - 4.240451;-2.627340; 0.629247;, - 4.245186;-2.615767; 0.403558;, - 4.224394;-2.615767; 0.189716;, - 4.267931;-2.627340; 0.178491;, - 4.290085;-2.627340; 0.406358;, - 4.224394;-2.615767; 0.189716;, - 4.245186;-2.615767; 0.403558;, - 4.200285;-2.604194; 0.400758;, - 4.180858;-2.604194; 0.200941;, - 4.198607;-2.615766; 0.612729;, - 4.156762;-2.604194; 0.596210;, - 4.200285;-2.604194; 0.400758;, - 4.245186;-2.615767; 0.403558;, - 4.267931;-2.627340; 0.178491;, - 4.224394;-2.615767; 0.189716;, - 4.139639;-2.615766;-0.007414;, - 4.177615;-2.627340;-0.031567;, - 4.139639;-2.615766;-0.007414;, - 3.997044;-2.615766;-0.167758;, - 4.025670;-2.627340;-0.202428;, - 4.177615;-2.627340;-0.031567;, - 3.997044;-2.615766;-0.167758;, - 4.139639;-2.615766;-0.007414;, - 4.101661;-2.604194; 0.016740;, - 3.968418;-2.604194;-0.133088;, - 4.224394;-2.615767; 0.189716;, - 4.180858;-2.604194; 0.200941;, - 4.101661;-2.604194; 0.016740;, - 4.139639;-2.615766;-0.007414;, - 3.872067;-2.523096; 0.850637;, - 4.100213;-2.523096; 0.573887;, - 4.156762;-2.604194; 0.596210;, - 3.904710;-2.604194; 0.901962;, - 3.596149;-2.553508;-0.213127;, - 3.596462;-2.523096;-0.218184;, - 3.929733;-2.523096;-0.086236;, - 3.926510;-2.553508;-0.082332;, - 3.251805;-2.553508;-0.124631;, - 3.249085;-2.523096;-0.128908;, - 3.596462;-2.523096;-0.218184;, - 3.596149;-2.553508;-0.213127;, - 3.289887;-2.548439;-0.064752;, - 3.251805;-2.553508;-0.124631;, - 3.596149;-2.553508;-0.213127;, - 3.591762;-2.548439;-0.142335;, - 3.812192;-2.615766;-0.277260;, - 3.828693;-2.627340;-0.319110;, - 4.025670;-2.627340;-0.202428;, - 3.997044;-2.615766;-0.167758;, - 3.828693;-2.627340;-0.319110;, - 3.812192;-2.615766;-0.277260;, - 3.603005;-2.615766;-0.323765;, - 3.605787;-2.627340;-0.368666;, - 3.603005;-2.615766;-0.323765;, - 3.812192;-2.615766;-0.277260;, - 3.795689;-2.604194;-0.235408;, - 3.600222;-2.604194;-0.278864;, - 3.795689;-2.604194;-0.235408;, - 3.812192;-2.615766;-0.277260;, - 3.997044;-2.615766;-0.167758;, - 3.968418;-2.604194;-0.133088;, - 3.600222;-2.604194;-0.278864;, - 3.596462;-2.523096;-0.218184;, - 3.249085;-2.523096;-0.128908;, - 3.216443;-2.604194;-0.180232;, - 3.591762;-2.548439;-0.142335;, - 3.596149;-2.553508;-0.213127;, - 3.926510;-2.553508;-0.082332;, - 3.881377;-2.548439;-0.027671;, - 3.976466;-2.638575; 1.014788;, - 4.157423;-2.638575; 0.853895;, - 4.191075;-2.649811; 0.881693;, - 3.999915;-2.649811; 1.051657;, - 4.191075;-2.649811; 0.881693;, - 4.157423;-2.638575; 0.853895;, - 4.281075;-2.638575; 0.645282;, - 4.321698;-2.649811; 0.661318;, - 4.157423;-2.638575; 0.853895;, - 4.123771;-2.627340; 0.826097;, - 4.240451;-2.627340; 0.629247;, - 4.281075;-2.638575; 0.645282;, - 4.048877;-2.624468; 1.128643;, - 4.261341;-2.624468; 0.939738;, - 4.331608;-2.599125; 0.997782;, - 4.097840;-2.599125; 1.205630;, - 4.331608;-2.599125; 0.997782;, - 4.261341;-2.624468; 0.939738;, - 4.406522;-2.624468; 0.694803;, - 4.491347;-2.599125; 0.728287;, - 4.261341;-2.624468; 0.939738;, - 4.191075;-2.649811; 0.881693;, - 4.321698;-2.649811; 0.661318;, - 4.406522;-2.624468; 0.694803;, - 3.999915;-2.649811; 1.051657;, - 4.191075;-2.649811; 0.881693;, - 4.261341;-2.624468; 0.939738;, - 4.048877;-2.624468; 1.128643;, - 4.333674;-2.638575; 0.409076;, - 4.377263;-2.649811; 0.411794;, - 4.321698;-2.649811; 0.661318;, - 4.281075;-2.638575; 0.645282;, - 4.352460;-2.649811; 0.156697;, - 4.377263;-2.649811; 0.411794;, - 4.333674;-2.638575; 0.409076;, - 4.310196;-2.638575; 0.167594;, - 4.310196;-2.638575; 0.167594;, - 4.333674;-2.638575; 0.409076;, - 4.290085;-2.627340; 0.406358;, - 4.267931;-2.627340; 0.178491;, - 4.491347;-2.599125; 0.728287;, - 4.406522;-2.624468; 0.694803;, - 4.468280;-2.624468; 0.417470;, - 4.559297;-2.599125; 0.423146;, - 4.468280;-2.624468; 0.417470;, - 4.440713;-2.624468; 0.133944;, - 4.528965;-2.599125; 0.111190;, - 4.559297;-2.599125; 0.423146;, - 4.440713;-2.624468; 0.133944;, - 4.468280;-2.624468; 0.417470;, - 4.377263;-2.649811; 0.411794;, - 4.352460;-2.649811; 0.156697;, - 4.468280;-2.624468; 0.417470;, - 4.406522;-2.624468; 0.694803;, - 4.321698;-2.649811; 0.661318;, - 4.377263;-2.649811; 0.411794;, - 4.290085;-2.627340; 0.406358;, - 4.333674;-2.638575; 0.409076;, - 4.281075;-2.638575; 0.645282;, - 4.240451;-2.627340; 0.629247;, - 4.214484;-2.638575;-0.055015;, - 4.251352;-2.649811;-0.078463;, - 4.352460;-2.649811; 0.156697;, - 4.310196;-2.638575; 0.167594;, - 4.081248;-2.649811;-0.269742;, - 4.251352;-2.649811;-0.078463;, - 4.214484;-2.638575;-0.055015;, - 4.053459;-2.638575;-0.236086;, - 4.053459;-2.638575;-0.236086;, - 4.214484;-2.638575;-0.055015;, - 4.177615;-2.627340;-0.031567;, - 4.025670;-2.627340;-0.202428;, - 4.528965;-2.599125; 0.111190;, - 4.440713;-2.624468; 0.133944;, - 4.328337;-2.624468;-0.127424;, - 4.405322;-2.599125;-0.176386;, - 4.328337;-2.624468;-0.127424;, - 4.139275;-2.624468;-0.340021;, - 4.197302;-2.599125;-0.410300;, - 4.405322;-2.599125;-0.176386;, - 4.139275;-2.624468;-0.340021;, - 4.328337;-2.624468;-0.127424;, - 4.251352;-2.649811;-0.078463;, - 4.081248;-2.649811;-0.269742;, - 4.440713;-2.624468; 0.133944;, - 4.352460;-2.649811; 0.156697;, - 4.251352;-2.649811;-0.078463;, - 4.328337;-2.624468;-0.127424;, - 4.177615;-2.627340;-0.031567;, - 4.214484;-2.638575;-0.055015;, - 4.310196;-2.638575; 0.167594;, - 4.267931;-2.627340; 0.178491;, - 4.110081;-2.558576; 1.224876;, - 4.349174;-2.558577; 1.012293;, - 4.366741;-2.518027; 1.026805;, - 4.122321;-2.518027; 1.244123;, - 4.366741;-2.518027; 1.026805;, - 4.349174;-2.558577; 1.012293;, - 4.512553;-2.558576; 0.736658;, - 4.533760;-2.518027; 0.745029;, - 4.349174;-2.558577; 1.012293;, - 4.331608;-2.599125; 0.997782;, - 4.491347;-2.599125; 0.728287;, - 4.512553;-2.558576; 0.736658;, - 4.123681;-2.368503; 1.246261;, - 4.368693;-2.368502; 1.028417;, - 4.370645;-2.222107; 1.030030;, - 4.125041;-2.222107; 1.248400;, - 4.370645;-2.222107; 1.030030;, - 4.368693;-2.368502; 1.028417;, - 4.536115;-2.368503; 0.745959;, - 4.538471;-2.222107; 0.746889;, - 4.368693;-2.368502; 1.028417;, - 4.366741;-2.518027; 1.026805;, - 4.533760;-2.518027; 0.745029;, - 4.536115;-2.368503; 0.745959;, - 4.122321;-2.518027; 1.244123;, - 4.366741;-2.518027; 1.026805;, - 4.368693;-2.368502; 1.028417;, - 4.123681;-2.368503; 1.246261;, - 4.582051;-2.558576; 0.424565;, - 4.604805;-2.518027; 0.425984;, - 4.533760;-2.518027; 0.745029;, - 4.512553;-2.558576; 0.736658;, - 4.573092;-2.518027; 0.099813;, - 4.604805;-2.518027; 0.425984;, - 4.582051;-2.558576; 0.424565;, - 4.551029;-2.558577; 0.105501;, - 4.551029;-2.558577; 0.105501;, - 4.582051;-2.558576; 0.424565;, - 4.559297;-2.599125; 0.423146;, - 4.528965;-2.599125; 0.111190;, - 4.538471;-2.222107; 0.746889;, - 4.536115;-2.368503; 0.745959;, - 4.607334;-2.368503; 0.426141;, - 4.609862;-2.222107; 0.426299;, - 4.607334;-2.368503; 0.426141;, - 4.575543;-2.368502; 0.099181;, - 4.577994;-2.222107; 0.098549;, - 4.609862;-2.222107; 0.426299;, - 4.575543;-2.368502; 0.099181;, - 4.607334;-2.368503; 0.426141;, - 4.604805;-2.518027; 0.425984;, - 4.573092;-2.518027; 0.099813;, - 4.536115;-2.368503; 0.745959;, - 4.533760;-2.518027; 0.745029;, - 4.604805;-2.518027; 0.425984;, - 4.607334;-2.368503; 0.426141;, - 4.559297;-2.599125; 0.423146;, - 4.582051;-2.558576; 0.424565;, - 4.512553;-2.558576; 0.736658;, - 4.491347;-2.599125; 0.728287;, - 4.424568;-2.558577;-0.188627;, - 4.443813;-2.518027;-0.200866;, - 4.573092;-2.518027; 0.099813;, - 4.551029;-2.558577; 0.105501;, - 4.226316;-2.518027;-0.445440;, - 4.443813;-2.518027;-0.200866;, - 4.424568;-2.558577;-0.188627;, - 4.211809;-2.558577;-0.427870;, - 4.211809;-2.558577;-0.427870;, - 4.424568;-2.558577;-0.188627;, - 4.405322;-2.599125;-0.176386;, - 4.197302;-2.599125;-0.410300;, - 4.577994;-2.222107; 0.098549;, - 4.575543;-2.368502; 0.099181;, - 4.445952;-2.368502;-0.202227;, - 4.448090;-2.222107;-0.203587;, - 4.445952;-2.368502;-0.202227;, - 4.227927;-2.368502;-0.447391;, - 4.229539;-2.222107;-0.449344;, - 4.448090;-2.222107;-0.203587;, - 4.227927;-2.368502;-0.447391;, - 4.445952;-2.368502;-0.202227;, - 4.443813;-2.518027;-0.200866;, - 4.226316;-2.518027;-0.445440;, - 4.575543;-2.368502; 0.099181;, - 4.573092;-2.518027; 0.099813;, - 4.443813;-2.518027;-0.200866;, - 4.445952;-2.368502;-0.202227;, - 4.405322;-2.599125;-0.176386;, - 4.424568;-2.558577;-0.188627;, - 4.551029;-2.558577; 0.105501;, - 4.528965;-2.599125; 0.111190;, - 4.097840;-2.599125; 1.205630;, - 4.331608;-2.599125; 0.997782;, - 4.349174;-2.558577; 1.012293;, - 4.110081;-2.558576; 1.224876;, - 3.844714;-2.638575;-0.359740;, - 3.860734;-2.649811;-0.400369;, - 4.081248;-2.649811;-0.269742;, - 4.053459;-2.638575;-0.236086;, - 3.844714;-2.638575;-0.359740;, - 3.608489;-2.638575;-0.412256;, - 3.611191;-2.649811;-0.455846;, - 3.860734;-2.649811;-0.400369;, - 3.608489;-2.638575;-0.412256;, - 3.844714;-2.638575;-0.359740;, - 3.828693;-2.627340;-0.319110;, - 3.605787;-2.627340;-0.368666;, - 3.894185;-2.624468;-0.485205;, - 3.927637;-2.599125;-0.570042;, - 4.197302;-2.599125;-0.410300;, - 4.139275;-2.624468;-0.340021;, - 3.894185;-2.624468;-0.485205;, - 3.616831;-2.624468;-0.546865;, - 3.622472;-2.599125;-0.637885;, - 3.927637;-2.599125;-0.570042;, - 3.616831;-2.624468;-0.546865;, - 3.894185;-2.624468;-0.485205;, - 3.860734;-2.649811;-0.400369;, - 3.611191;-2.649811;-0.455846;, - 3.860734;-2.649811;-0.400369;, - 3.894185;-2.624468;-0.485205;, - 4.139275;-2.624468;-0.340021;, - 4.081248;-2.649811;-0.269742;, - 3.608489;-2.638575;-0.412256;, - 3.367128;-2.638575;-0.388723;, - 3.356221;-2.649811;-0.430987;, - 3.611191;-2.649811;-0.455846;, - 3.356221;-2.649811;-0.430987;, - 3.367128;-2.638575;-0.388723;, - 3.144687;-2.638575;-0.293058;, - 3.121238;-2.649811;-0.329927;, - 3.367128;-2.638575;-0.388723;, - 3.378034;-2.627340;-0.346461;, - 3.168136;-2.627340;-0.256188;, - 3.144687;-2.638575;-0.293058;, - 3.616831;-2.624468;-0.546865;, - 3.333446;-2.624467;-0.519235;, - 3.310671;-2.599125;-0.607485;, - 3.622472;-2.599125;-0.637885;, - 3.310671;-2.599125;-0.607485;, - 3.333446;-2.624467;-0.519235;, - 3.072275;-2.624467;-0.406914;, - 3.023313;-2.599125;-0.483900;, - 3.333446;-2.624467;-0.519235;, - 3.356221;-2.649811;-0.430987;, - 3.121238;-2.649811;-0.329927;, - 3.072275;-2.624467;-0.406914;, - 3.333446;-2.624467;-0.519235;, - 3.616831;-2.624468;-0.546865;, - 3.611191;-2.649811;-0.455846;, - 3.356221;-2.649811;-0.430987;, - 3.367128;-2.638575;-0.388723;, - 3.608489;-2.638575;-0.412256;, - 3.605787;-2.627340;-0.368666;, - 3.378034;-2.627340;-0.346461;, - 3.936000;-2.558576;-0.591251;, - 3.944363;-2.518027;-0.612460;, - 4.226316;-2.518027;-0.445440;, - 4.211809;-2.558577;-0.427870;, - 3.625293;-2.518027;-0.683395;, - 3.944363;-2.518027;-0.612460;, - 3.936000;-2.558576;-0.591251;, - 3.623883;-2.558575;-0.660640;, - 3.623883;-2.558575;-0.660640;, - 3.936000;-2.558576;-0.591251;, - 3.927637;-2.599125;-0.570042;, - 3.622472;-2.599125;-0.637885;, - 4.229539;-2.222107;-0.449344;, - 4.227927;-2.368502;-0.447391;, - 3.945292;-2.368503;-0.614817;, - 3.946222;-2.222107;-0.617173;, - 3.946222;-2.222107;-0.617173;, - 3.945292;-2.368503;-0.614817;, - 3.625450;-2.368503;-0.685923;, - 3.625606;-2.222107;-0.688452;, - 3.625450;-2.368503;-0.685923;, - 3.945292;-2.368503;-0.614817;, - 3.944363;-2.518027;-0.612460;, - 3.625293;-2.518027;-0.683395;, - 4.227927;-2.368502;-0.447391;, - 4.226316;-2.518027;-0.445440;, - 3.944363;-2.518027;-0.612460;, - 3.945292;-2.368503;-0.614817;, - 3.623883;-2.558575;-0.660640;, - 3.304977;-2.558576;-0.629547;, - 3.299283;-2.518027;-0.651609;, - 3.625293;-2.518027;-0.683395;, - 3.299283;-2.518027;-0.651609;, - 3.304977;-2.558576;-0.629547;, - 3.011072;-2.558575;-0.503147;, - 2.998832;-2.518027;-0.522393;, - 3.304977;-2.558576;-0.629547;, - 3.310671;-2.599125;-0.607485;, - 3.023313;-2.599125;-0.483900;, - 3.011072;-2.558575;-0.503147;, - 3.625450;-2.368503;-0.685923;, - 3.298651;-2.368502;-0.654060;, - 3.298018;-2.222107;-0.656512;, - 3.625606;-2.222107;-0.688452;, - 3.298018;-2.222107;-0.656512;, - 3.298651;-2.368502;-0.654060;, - 2.997472;-2.368503;-0.524531;, - 2.996111;-2.222107;-0.526670;, - 3.298651;-2.368502;-0.654060;, - 3.299283;-2.518027;-0.651609;, - 2.998832;-2.518027;-0.522393;, - 2.997472;-2.368503;-0.524531;, - 3.298651;-2.368502;-0.654060;, - 3.625450;-2.368503;-0.685923;, - 3.625293;-2.518027;-0.683395;, - 3.299283;-2.518027;-0.651609;, - 3.304977;-2.558576;-0.629547;, - 3.623883;-2.558575;-0.660640;, - 3.622472;-2.599125;-0.637885;, - 3.310671;-2.599125;-0.607485;, - 3.927637;-2.599125;-0.570042;, - 3.936000;-2.558576;-0.591251;, - 4.211809;-2.558577;-0.427870;, - 4.197302;-2.599125;-0.410300;, - 3.828693;-2.627340;-0.319110;, - 3.844714;-2.638575;-0.359740;, - 4.053459;-2.638575;-0.236086;, - 4.025670;-2.627340;-0.202428;, - 3.953017;-2.627340; 0.977918;, - 4.123771;-2.627340; 0.826097;, - 4.157423;-2.638575; 0.853895;, - 3.976466;-2.638575; 1.014788;, - 3.251805;-2.553508;-0.124631;, - 3.025653;-2.553508; 0.149703;, - 3.020940;-2.523096; 0.147843;, - 3.249085;-2.523096;-0.128908;, - 3.025653;-2.553508; 0.149703;, - 3.004033;-2.553506; 0.504356;, - 2.999130;-2.523096; 0.505620;, - 3.020940;-2.523096; 0.147843;, - 3.004033;-2.553506; 0.504356;, - 3.025653;-2.553508; 0.149703;, - 3.091628;-2.548439; 0.175746;, - 3.072673;-2.548439; 0.486658;, - 3.004033;-2.553506; 0.504356;, - 3.194643;-2.553507; 0.804061;, - 3.191419;-2.523096; 0.807966;, - 2.999130;-2.523096; 0.505620;, - 3.239775;-2.548439; 0.749400;, - 3.194643;-2.553507; 0.804061;, - 3.004033;-2.553506; 0.504356;, - 3.072673;-2.548439; 0.486658;, - 2.880700;-2.627340; 0.092483;, - 2.922545;-2.615766; 0.109002;, - 2.875967;-2.615766; 0.318172;, - 2.831067;-2.627340; 0.315372;, - 2.875967;-2.615766; 0.318172;, - 2.896759;-2.615766; 0.532014;, - 2.853223;-2.627340; 0.543238;, - 2.831067;-2.627340; 0.315372;, - 2.896759;-2.615766; 0.532014;, - 2.875967;-2.615766; 0.318172;, - 2.920866;-2.604194; 0.320972;, - 2.940295;-2.604194; 0.520789;, - 2.922545;-2.615766; 0.109002;, - 2.964391;-2.604194; 0.125520;, - 2.920866;-2.604194; 0.320972;, - 2.875967;-2.615766; 0.318172;, - 2.853223;-2.627340; 0.543238;, - 2.896759;-2.615766; 0.532014;, - 2.981515;-2.615766; 0.729143;, - 2.943538;-2.627340; 0.753297;, - 2.981515;-2.615766; 0.729143;, - 3.124109;-2.615766; 0.889488;, - 3.095484;-2.627340; 0.924157;, - 2.943538;-2.627340; 0.753297;, - 3.124109;-2.615766; 0.889488;, - 2.981515;-2.615766; 0.729143;, - 3.019492;-2.604194; 0.704990;, - 3.152735;-2.604194; 0.854818;, - 2.896759;-2.615766; 0.532014;, - 2.940295;-2.604194; 0.520789;, - 3.019492;-2.604194; 0.704990;, - 2.981515;-2.615766; 0.729143;, - 3.249085;-2.523096;-0.128908;, - 3.020940;-2.523096; 0.147843;, - 2.964391;-2.604194; 0.125520;, - 3.216443;-2.604194;-0.180232;, - 3.525004;-2.553508; 0.934857;, - 3.524690;-2.523096; 0.939914;, - 3.191419;-2.523096; 0.807966;, - 3.194643;-2.553507; 0.804061;, - 3.524690;-2.523096; 0.939914;, - 3.525004;-2.553508; 0.934857;, - 3.869348;-2.553508; 0.846361;, - 3.872067;-2.523096; 0.850637;, - 3.525004;-2.553508; 0.934857;, - 3.529392;-2.548439; 0.864064;, - 3.831265;-2.548439; 0.786482;, - 3.869348;-2.553508; 0.846361;, - 3.308961;-2.615766; 0.998989;, - 3.292459;-2.627340; 1.040841;, - 3.095484;-2.627340; 0.924157;, - 3.124109;-2.615766; 0.889488;, - 3.308961;-2.615766; 0.998989;, - 3.518147;-2.615766; 1.045495;, - 3.515365;-2.627340; 1.090396;, - 3.292459;-2.627340; 1.040841;, - 3.518147;-2.615766; 1.045495;, - 3.308961;-2.615766; 0.998989;, - 3.325463;-2.604194; 0.957138;, - 3.520931;-2.604194; 1.000594;, - 3.325463;-2.604194; 0.957138;, - 3.308961;-2.615766; 0.998989;, - 3.124109;-2.615766; 0.889488;, - 3.152735;-2.604194; 0.854818;, - 3.520931;-2.604194; 1.000594;, - 3.524690;-2.523096; 0.939914;, - 3.872067;-2.523096; 0.850637;, - 3.904710;-2.604194; 0.901962;, - 3.529392;-2.548439; 0.864064;, - 3.525004;-2.553508; 0.934857;, - 3.194643;-2.553507; 0.804061;, - 3.239775;-2.548439; 0.749400;, - 3.144687;-2.638575;-0.293058;, - 2.963730;-2.638575;-0.132165;, - 2.930079;-2.649811;-0.159964;, - 3.121238;-2.649811;-0.329927;, - 2.840078;-2.638576; 0.076447;, - 2.799454;-2.649811; 0.060412;, - 2.930079;-2.649811;-0.159964;, - 2.963730;-2.638575;-0.132165;, - 2.880700;-2.627340; 0.092483;, - 2.840078;-2.638576; 0.076447;, - 2.963730;-2.638575;-0.132165;, - 2.997381;-2.627340;-0.104368;, - 3.072275;-2.624467;-0.406914;, - 2.859812;-2.624467;-0.218008;, - 2.789545;-2.599125;-0.276052;, - 3.023313;-2.599125;-0.483900;, - 2.789545;-2.599125;-0.276052;, - 2.859812;-2.624467;-0.218008;, - 2.714630;-2.624467; 0.026927;, - 2.629806;-2.599125;-0.006558;, - 2.859812;-2.624467;-0.218008;, - 2.930079;-2.649811;-0.159964;, - 2.799454;-2.649811; 0.060412;, - 2.714630;-2.624467; 0.026927;, - 3.121238;-2.649811;-0.329927;, - 2.930079;-2.649811;-0.159964;, - 2.859812;-2.624467;-0.218008;, - 3.072275;-2.624467;-0.406914;, - 2.787478;-2.638575; 0.312654;, - 2.743890;-2.649811; 0.309935;, - 2.799454;-2.649811; 0.060412;, - 2.840078;-2.638576; 0.076447;, - 2.787478;-2.638575; 0.312654;, - 2.810957;-2.638575; 0.554136;, - 2.768693;-2.649811; 0.565032;, - 2.743890;-2.649811; 0.309935;, - 2.810957;-2.638575; 0.554136;, - 2.787478;-2.638575; 0.312654;, - 2.831067;-2.627340; 0.315372;, - 2.853223;-2.627340; 0.543238;, - 2.652873;-2.624467; 0.304259;, - 2.561855;-2.599125; 0.298584;, - 2.629806;-2.599125;-0.006558;, - 2.714630;-2.624467; 0.026927;, - 2.652873;-2.624467; 0.304259;, - 2.680440;-2.624467; 0.587786;, - 2.592187;-2.599125; 0.610540;, - 2.561855;-2.599125; 0.298584;, - 2.680440;-2.624467; 0.587786;, - 2.652873;-2.624467; 0.304259;, - 2.743890;-2.649811; 0.309935;, - 2.768693;-2.649811; 0.565032;, - 2.743890;-2.649811; 0.309935;, - 2.652873;-2.624467; 0.304259;, - 2.714630;-2.624467; 0.026927;, - 2.799454;-2.649811; 0.060412;, - 2.787478;-2.638575; 0.312654;, - 2.840078;-2.638576; 0.076447;, - 2.880700;-2.627340; 0.092483;, - 2.831067;-2.627340; 0.315372;, - 2.906669;-2.638575; 0.776745;, - 2.869800;-2.649811; 0.800193;, - 2.768693;-2.649811; 0.565032;, - 2.810957;-2.638575; 0.554136;, - 2.906669;-2.638575; 0.776745;, - 3.067694;-2.638575; 0.957815;, - 3.039905;-2.649811; 0.991472;, - 2.869800;-2.649811; 0.800193;, - 3.067694;-2.638575; 0.957815;, - 2.906669;-2.638575; 0.776745;, - 2.943538;-2.627340; 0.753297;, - 3.095484;-2.627340; 0.924157;, - 2.792816;-2.624467; 0.849154;, - 2.715831;-2.599125; 0.898116;, - 2.592187;-2.599125; 0.610540;, - 2.680440;-2.624467; 0.587786;, - 2.792816;-2.624467; 0.849154;, - 2.981878;-2.624467; 1.061751;, - 2.923851;-2.599125; 1.132030;, - 2.715831;-2.599125; 0.898116;, - 2.981878;-2.624467; 1.061751;, - 2.792816;-2.624467; 0.849154;, - 2.869800;-2.649811; 0.800193;, - 3.039905;-2.649811; 0.991472;, - 2.869800;-2.649811; 0.800193;, - 2.792816;-2.624467; 0.849154;, - 2.680440;-2.624467; 0.587786;, - 2.768693;-2.649811; 0.565032;, - 2.943538;-2.627340; 0.753297;, - 2.906669;-2.638575; 0.776745;, - 2.810957;-2.638575; 0.554136;, - 2.853223;-2.627340; 0.543238;, - 3.011072;-2.558575;-0.503147;, - 2.771978;-2.558576;-0.290564;, - 2.754411;-2.518027;-0.305075;, - 2.998832;-2.518027;-0.522393;, - 2.754411;-2.518027;-0.305075;, - 2.771978;-2.558576;-0.290564;, - 2.608599;-2.558575;-0.014928;, - 2.587393;-2.518027;-0.023300;, - 2.771978;-2.558576;-0.290564;, - 2.789545;-2.599125;-0.276052;, - 2.629806;-2.599125;-0.006558;, - 2.608599;-2.558575;-0.014928;, - 2.997472;-2.368503;-0.524531;, - 2.752460;-2.368502;-0.306687;, - 2.750508;-2.222106;-0.308300;, - 2.996111;-2.222107;-0.526670;, - 2.750508;-2.222106;-0.308300;, - 2.752460;-2.368502;-0.306687;, - 2.585037;-2.368502;-0.024229;, - 2.582681;-2.222106;-0.025160;, - 2.752460;-2.368502;-0.306687;, - 2.754411;-2.518027;-0.305075;, - 2.587393;-2.518027;-0.023300;, - 2.585037;-2.368502;-0.024229;, - 2.998832;-2.518027;-0.522393;, - 2.754411;-2.518027;-0.305075;, - 2.752460;-2.368502;-0.306687;, - 2.997472;-2.368503;-0.524531;, - 2.539102;-2.558576; 0.297165;, - 2.516348;-2.518027; 0.295746;, - 2.587393;-2.518027;-0.023300;, - 2.608599;-2.558575;-0.014928;, - 2.548060;-2.518027; 0.621917;, - 2.516348;-2.518027; 0.295746;, - 2.539102;-2.558576; 0.297165;, - 2.570124;-2.558576; 0.616229;, - 2.570124;-2.558576; 0.616229;, - 2.539102;-2.558576; 0.297165;, - 2.561855;-2.599125; 0.298584;, - 2.592187;-2.599125; 0.610540;, - 2.585037;-2.368502;-0.024229;, - 2.513819;-2.368502; 0.295588;, - 2.511291;-2.222106; 0.295431;, - 2.582681;-2.222106;-0.025160;, - 2.513819;-2.368502; 0.295588;, - 2.545610;-2.368503; 0.622549;, - 2.543158;-2.222106; 0.623180;, - 2.511291;-2.222106; 0.295431;, - 2.545610;-2.368503; 0.622549;, - 2.513819;-2.368502; 0.295588;, - 2.516348;-2.518027; 0.295746;, - 2.548060;-2.518027; 0.621917;, - 2.585037;-2.368502;-0.024229;, - 2.587393;-2.518027;-0.023300;, - 2.516348;-2.518027; 0.295746;, - 2.513819;-2.368502; 0.295588;, - 2.561855;-2.599125; 0.298584;, - 2.539102;-2.558576; 0.297165;, - 2.608599;-2.558575;-0.014928;, - 2.629806;-2.599125;-0.006558;, - 2.696585;-2.558575; 0.910356;, - 2.677339;-2.518027; 0.922597;, - 2.548060;-2.518027; 0.621917;, - 2.570124;-2.558576; 0.616229;, - 2.894837;-2.518027; 1.167170;, - 2.677339;-2.518027; 0.922597;, - 2.696585;-2.558575; 0.910356;, - 2.909343;-2.558576; 1.149599;, - 2.909343;-2.558576; 1.149599;, - 2.696585;-2.558575; 0.910356;, - 2.715831;-2.599125; 0.898116;, - 2.923851;-2.599125; 1.132030;, - 2.543158;-2.222106; 0.623180;, - 2.545610;-2.368503; 0.622549;, - 2.675201;-2.368503; 0.923957;, - 2.673063;-2.222106; 0.925316;, - 2.675201;-2.368503; 0.923957;, - 2.893226;-2.368503; 1.169121;, - 2.891613;-2.222106; 1.171073;, - 2.673063;-2.222106; 0.925316;, - 2.893226;-2.368503; 1.169121;, - 2.675201;-2.368503; 0.923957;, - 2.677339;-2.518027; 0.922597;, - 2.894837;-2.518027; 1.167170;, - 2.545610;-2.368503; 0.622549;, - 2.548060;-2.518027; 0.621917;, - 2.677339;-2.518027; 0.922597;, - 2.675201;-2.368503; 0.923957;, - 2.715831;-2.599125; 0.898116;, - 2.696585;-2.558575; 0.910356;, - 2.570124;-2.558576; 0.616229;, - 2.592187;-2.599125; 0.610540;, - 3.023313;-2.599125;-0.483900;, - 2.789545;-2.599125;-0.276052;, - 2.771978;-2.558576;-0.290564;, - 3.011072;-2.558575;-0.503147;, - 3.276439;-2.638575; 1.081470;, - 3.260419;-2.649811; 1.122099;, - 3.039905;-2.649811; 0.991472;, - 3.067694;-2.638575; 0.957815;, - 3.276439;-2.638575; 1.081470;, - 3.512664;-2.638576; 1.133986;, - 3.509962;-2.649811; 1.177576;, - 3.260419;-2.649811; 1.122099;, - 3.515365;-2.627340; 1.090396;, - 3.512664;-2.638576; 1.133986;, - 3.276439;-2.638575; 1.081470;, - 3.292459;-2.627340; 1.040841;, - 3.226967;-2.624467; 1.206935;, - 3.193515;-2.599125; 1.291772;, - 2.923851;-2.599125; 1.132030;, - 2.981878;-2.624467; 1.061751;, - 3.226967;-2.624467; 1.206935;, - 3.504321;-2.624468; 1.268595;, - 3.498681;-2.599125; 1.359615;, - 3.193515;-2.599125; 1.291772;, - 3.504321;-2.624468; 1.268595;, - 3.226967;-2.624467; 1.206935;, - 3.260419;-2.649811; 1.122099;, - 3.509962;-2.649811; 1.177576;, - 3.260419;-2.649811; 1.122099;, - 3.226967;-2.624467; 1.206935;, - 2.981878;-2.624467; 1.061751;, - 3.039905;-2.649811; 0.991472;, - 3.512664;-2.638576; 1.133986;, - 3.754025;-2.638575; 1.110453;, - 3.764933;-2.649811; 1.152716;, - 3.509962;-2.649811; 1.177576;, - 3.764933;-2.649811; 1.152716;, - 3.754025;-2.638575; 1.110453;, - 3.976466;-2.638575; 1.014788;, - 3.999915;-2.649811; 1.051657;, - 3.754025;-2.638575; 1.110453;, - 3.743118;-2.627340; 1.068190;, - 3.953017;-2.627340; 0.977918;, - 3.976466;-2.638575; 1.014788;, - 3.504321;-2.624468; 1.268595;, - 3.787707;-2.624468; 1.240965;, - 3.810481;-2.599125; 1.329214;, - 3.498681;-2.599125; 1.359615;, - 3.810481;-2.599125; 1.329214;, - 3.787707;-2.624468; 1.240965;, - 4.048877;-2.624468; 1.128643;, - 4.097840;-2.599125; 1.205630;, - 3.787707;-2.624468; 1.240965;, - 3.764933;-2.649811; 1.152716;, - 3.999915;-2.649811; 1.051657;, - 4.048877;-2.624468; 1.128643;, - 3.787707;-2.624468; 1.240965;, - 3.504321;-2.624468; 1.268595;, - 3.509962;-2.649811; 1.177576;, - 3.764933;-2.649811; 1.152716;, - 3.754025;-2.638575; 1.110453;, - 3.512664;-2.638576; 1.133986;, - 3.515365;-2.627340; 1.090396;, - 3.743118;-2.627340; 1.068190;, - 3.185153;-2.558576; 1.312981;, - 3.176790;-2.518027; 1.334190;, - 2.894837;-2.518027; 1.167170;, - 2.909343;-2.558576; 1.149599;, - 3.185153;-2.558576; 1.312981;, - 3.497270;-2.558575; 1.382370;, - 3.495860;-2.518027; 1.405125;, - 3.176790;-2.518027; 1.334190;, - 3.497270;-2.558575; 1.382370;, - 3.185153;-2.558576; 1.312981;, - 3.193515;-2.599125; 1.291772;, - 3.498681;-2.599125; 1.359615;, - 3.175860;-2.368502; 1.336547;, - 3.174931;-2.222107; 1.338903;, - 2.891613;-2.222106; 1.171073;, - 2.893226;-2.368503; 1.169121;, - 3.175860;-2.368502; 1.336547;, - 3.495703;-2.368502; 1.407653;, - 3.495547;-2.222107; 1.410181;, - 3.174931;-2.222107; 1.338903;, - 3.495703;-2.368502; 1.407653;, - 3.175860;-2.368502; 1.336547;, - 3.176790;-2.518027; 1.334190;, - 3.495860;-2.518027; 1.405125;, - 3.176790;-2.518027; 1.334190;, - 3.175860;-2.368502; 1.336547;, - 2.893226;-2.368503; 1.169121;, - 2.894837;-2.518027; 1.167170;, - 3.497270;-2.558575; 1.382370;, - 3.816176;-2.558577; 1.351276;, - 3.821869;-2.518027; 1.373339;, - 3.495860;-2.518027; 1.405125;, - 3.821869;-2.518027; 1.373339;, - 3.816176;-2.558577; 1.351276;, - 4.110081;-2.558576; 1.224876;, - 4.122321;-2.518027; 1.244123;, - 3.816176;-2.558577; 1.351276;, - 3.810481;-2.599125; 1.329214;, - 4.097840;-2.599125; 1.205630;, - 4.110081;-2.558576; 1.224876;, - 3.495703;-2.368502; 1.407653;, - 3.822502;-2.368502; 1.375790;, - 3.823135;-2.222107; 1.378242;, - 3.495547;-2.222107; 1.410181;, - 3.823135;-2.222107; 1.378242;, - 3.822502;-2.368502; 1.375790;, - 4.123681;-2.368503; 1.246261;, - 4.125041;-2.222107; 1.248400;, - 3.822502;-2.368502; 1.375790;, - 3.821869;-2.518027; 1.373339;, - 4.122321;-2.518027; 1.244123;, - 4.123681;-2.368503; 1.246261;, - 3.822502;-2.368502; 1.375790;, - 3.495703;-2.368502; 1.407653;, - 3.495860;-2.518027; 1.405125;, - 3.821869;-2.518027; 1.373339;, - 3.816176;-2.558577; 1.351276;, - 3.497270;-2.558575; 1.382370;, - 3.498681;-2.599125; 1.359615;, - 3.810481;-2.599125; 1.329214;, - 3.193515;-2.599125; 1.291772;, - 3.185153;-2.558576; 1.312981;, - 2.909343;-2.558576; 1.149599;, - 2.923851;-2.599125; 1.132030;, - 3.292459;-2.627340; 1.040841;, - 3.276439;-2.638575; 1.081470;, - 3.067694;-2.638575; 0.957815;, - 3.095484;-2.627340; 0.924157;, - 2.963730;-2.638575;-0.132165;, - 3.144687;-2.638575;-0.293058;, - 3.168136;-2.627340;-0.256188;, - 2.997381;-2.627340;-0.104368;, - 3.025653;-2.553508; 0.149703;, - 3.251805;-2.553508;-0.124631;, - 3.289887;-2.548439;-0.064752;, - 3.091628;-2.548439; 0.175746;, - 4.095500;-2.553508; 0.572026;, - 3.869348;-2.553508; 0.846361;, - 3.831265;-2.548439; 0.786482;, - 4.029526;-2.548439; 0.545983;, - 3.638700;-2.277268; 0.425400;, - 3.615014;-2.277268; 0.446460;, - 3.560576;-2.279802; 0.360865;, - 3.743118;-1.816875; 1.068190;, - 3.953017;-1.816875; 0.977918;, - 3.904710;-1.840021; 0.901962;, - 3.518147;-1.828448; 1.045495;, - 3.515365;-1.816875; 1.090396;, - 3.520931;-1.840021; 1.000594;, - 3.904710;-1.840021; 0.901962;, - 3.520931;-1.840021; 1.000594;, - 3.515365;-1.816875; 1.090396;, - 3.743118;-1.816875; 1.068190;, - 3.325463;-1.840021; 0.957138;, - 3.520931;-1.840021; 1.000594;, - 3.524691;-1.921119; 0.939914;, - 3.191419;-1.921118; 0.807966;, - 3.152735;-1.840021; 0.854818;, - 3.325463;-1.840021; 0.957138;, - 3.524691;-1.921119; 0.939914;, - 3.019492;-1.840021; 0.704990;, - 3.152735;-1.840021; 0.854818;, - 3.191419;-1.921118; 0.807966;, - 2.999130;-1.921118; 0.505620;, - 2.940295;-1.840021; 0.520789;, - 3.019492;-1.840021; 0.704990;, - 3.191419;-1.921118; 0.807966;, - 2.922545;-1.828448; 0.109002;, - 2.964391;-1.840021; 0.125520;, - 3.216443;-1.840021;-0.180232;, - 2.997381;-1.816875;-0.104368;, - 3.216443;-1.840021;-0.180232;, - 3.168136;-1.816875;-0.256188;, - 3.216443;-1.840021;-0.180232;, - 2.997381;-1.816875;-0.104368;, - 2.880700;-1.816875; 0.092483;, - 2.922545;-1.828448; 0.109002;, - 2.964391;-1.840021; 0.125520;, - 2.920866;-1.840021; 0.320972;, - 3.020940;-1.921118; 0.147843;, - 3.020940;-1.921118; 0.147843;, - 2.920866;-1.840021; 0.320972;, - 2.940295;-1.840021; 0.520789;, - 2.999130;-1.921118; 0.505620;, - 3.216443;-1.840021;-0.180232;, - 3.600222;-1.840021;-0.278864;, - 3.603005;-1.828447;-0.323765;, - 3.168136;-1.816875;-0.256188;, - 3.216443;-1.840021;-0.180232;, - 3.378034;-1.816875;-0.346461;, - 3.605788;-1.816875;-0.368666;, - 3.378034;-1.816875;-0.346461;, - 3.216443;-1.840021;-0.180232;, - 3.603005;-1.828447;-0.323765;, - 3.596462;-1.921119;-0.218184;, - 3.795690;-1.840021;-0.235409;, - 3.600222;-1.840021;-0.278864;, - 3.968418;-1.840021;-0.133088;, - 3.795690;-1.840021;-0.235409;, - 3.596462;-1.921119;-0.218184;, - 3.929733;-1.921119;-0.086236;, - 4.122023;-1.921119; 0.216110;, - 4.180858;-1.840021; 0.200941;, - 4.101661;-1.840021; 0.016740;, - 4.101661;-1.840021; 0.016740;, - 3.968418;-1.840021;-0.133088;, - 3.929733;-1.921119;-0.086236;, - 4.122023;-1.921119; 0.216110;, - 3.904710;-1.840021; 0.901962;, - 3.953017;-1.816875; 0.977918;, - 4.123772;-1.816875; 0.826097;, - 4.156762;-1.840021; 0.596210;, - 3.904710;-1.840021; 0.901962;, - 4.198607;-1.828447; 0.612729;, - 4.240453;-1.816875; 0.629246;, - 4.198607;-1.828447; 0.612729;, - 3.904710;-1.840021; 0.901962;, - 4.123772;-1.816875; 0.826097;, - 4.100213;-1.921119; 0.573887;, - 4.156762;-1.840021; 0.596210;, - 4.200287;-1.840021; 0.400758;, - 4.200287;-1.840021; 0.400758;, - 4.180858;-1.840021; 0.200941;, - 4.122023;-1.921119; 0.216110;, - 4.100213;-1.921119; 0.573887;, - 3.737353;-2.274734; 0.430648;, - 3.793903;-2.325420; 0.452970;, - 3.707015;-2.274734; 0.481832;, - 3.662617;-2.274734; 0.521308;, - 3.707015;-2.274734; 0.481832;, - 3.793903;-2.325420; 0.452970;, - 3.753859;-2.325420; 0.520528;, - 3.695258;-2.325420; 0.572632;, - 3.623223;-2.325420; 0.603612;, - 3.662617;-2.274734; 0.521308;, - 3.753859;-2.325420; 0.520528;, - 3.608040;-2.274734; 0.544779;, - 3.545060;-2.325420; 0.611233;, - 3.548821;-2.274734; 0.550553;, - 3.545060;-2.325420; 0.611233;, - 3.608040;-2.274734; 0.544779;, - 3.662617;-2.274734; 0.521308;, - 3.623223;-2.325420; 0.603612;, - 3.737353;-2.274734; 0.430648;, - 3.750259;-2.274734; 0.372693;, - 3.810937;-2.325420; 0.376478;, - 3.793903;-2.325420; 0.452970;, - 3.750259;-2.274734; 0.372693;, - 3.744498;-2.274734; 0.313446;, - 3.803333;-2.325420; 0.298276;, - 3.810937;-2.325420; 0.376478;, - 3.744498;-2.274734; 0.313446;, - 3.721015;-2.274734; 0.258827;, - 3.772338;-2.325420; 0.226186;, - 3.803333;-2.325420; 0.298276;, - 3.681506;-2.274734; 0.214401;, - 3.720192;-2.325420; 0.167549;, - 3.772338;-2.325420; 0.226186;, - 3.721015;-2.274734; 0.258827;, - 3.798624;-2.360900; 0.735158;, - 3.798624;-2.330488; 0.735158;, - 3.902200;-2.330488; 0.643066;, - 3.972976;-2.330488; 0.523660;, - 3.972976;-2.360900; 0.523660;, - 3.798624;-2.360900; 0.735158;, - 3.902200;-2.330488; 0.643066;, - 3.989644;-2.360900; 0.250240;, - 3.972976;-2.330488; 0.523660;, - 4.003083;-2.330488; 0.388460;, - 3.989644;-2.360900; 0.250240;, - 4.003083;-2.330488; 0.388460;, - 3.989644;-2.330488; 0.250240;, - 3.972976;-2.360900; 0.523660;, - 3.972976;-2.330488; 0.523660;, - 3.989644;-2.360900; 0.250240;, - 3.997821;-2.359843; 0.248132;, - 3.842693;-2.360900; 0.019182;, - 3.934861;-2.330488; 0.122823;, - 3.842693;-2.330488; 0.019182;, - 3.989644;-2.330488; 0.250240;, - 3.934861;-2.330488; 0.122823;, - 3.842693;-2.360900; 0.019182;, - 3.989644;-2.360900; 0.250240;, - 3.630291;-2.274734; 0.184062;, - 3.652592;-2.325420; 0.127504;, - 3.720192;-2.325420; 0.167549;, - 3.681506;-2.274734; 0.214401;, - 3.572332;-2.274734; 0.171177;, - 3.576093;-2.325420; 0.110497;, - 3.652592;-2.325420; 0.127504;, - 3.630291;-2.274734; 0.184062;, - 3.576093;-2.325420; 0.110497;, - 3.572332;-2.274734; 0.171177;, - 3.513113;-2.274734; 0.176950;, - 3.497930;-2.325420; 0.118118;, - 3.576093;-2.325420; 0.110497;, - 3.425894;-2.325420; 0.149098;, - 3.458536;-2.274734; 0.200422;, - 3.425894;-2.325420; 0.149098;, - 3.576093;-2.325420; 0.110497;, - 3.513113;-2.274734; 0.176950;, - 3.588001;-2.360900;-0.081655;, - 3.723212;-2.330488;-0.051596;, - 3.588001;-2.330488;-0.081655;, - 3.842693;-2.330488; 0.019182;, - 3.723212;-2.330488;-0.051596;, - 3.588001;-2.360900;-0.081655;, - 3.842693;-2.360900; 0.019182;, - 3.449850;-2.330488;-0.068186;, - 3.322529;-2.330488;-0.013428;, - 3.322529;-2.360900;-0.013428;, - 3.322529;-2.360900;-0.013428;, - 3.588001;-2.360900;-0.081655;, - 3.588001;-2.330488;-0.081655;, - 3.449850;-2.330488;-0.068186;, - 3.414138;-2.274734; 0.239898;, - 3.383800;-2.274734; 0.291082;, - 3.327250;-2.325420; 0.268759;, - 3.425894;-2.325420; 0.149098;, - 3.327250;-2.325420; 0.268759;, - 3.367294;-2.325420; 0.201202;, - 3.327250;-2.325420; 0.268759;, - 3.425894;-2.325420; 0.149098;, - 3.458536;-2.274734; 0.200422;, - 3.414138;-2.274734; 0.239898;, - 3.317820;-2.325420; 0.423454;, - 3.310216;-2.325420; 0.345252;, - 3.370894;-2.274734; 0.349036;, - 3.376654;-2.274734; 0.408285;, - 3.310216;-2.325420; 0.345252;, - 3.327250;-2.325420; 0.268759;, - 3.383800;-2.274734; 0.291082;, - 3.370894;-2.274734; 0.349036;, - 3.348815;-2.325420; 0.495544;, - 3.400137;-2.274734; 0.462903;, - 3.439646;-2.274734; 0.507329;, - 3.400961;-2.325420; 0.554181;, - 3.317820;-2.325420; 0.423454;, - 3.376654;-2.274734; 0.408285;, - 3.400137;-2.274734; 0.462903;, - 3.348815;-2.325420; 0.495544;, - 3.218952;-2.330488; 0.078663;, - 3.148176;-2.330488; 0.198069;, - 3.148176;-2.360900; 0.198069;, - 3.148176;-2.360900; 0.198069;, - 3.322529;-2.360900;-0.013428;, - 3.322529;-2.330488;-0.013428;, - 3.218952;-2.330488; 0.078663;, - 3.148176;-2.330488; 0.198069;, - 3.118070;-2.330488; 0.333270;, - 3.148176;-2.360900; 0.198069;, - 3.148176;-2.360900; 0.198069;, - 3.118070;-2.330488; 0.333270;, - 3.131509;-2.330488; 0.471489;, - 3.131509;-2.360900; 0.471489;, - 3.131509;-2.330488; 0.471489;, - 3.186292;-2.330488; 0.598907;, - 3.131509;-2.360900; 0.471489;, - 3.131509;-2.360900; 0.471489;, - 3.186292;-2.330488; 0.598907;, - 3.278460;-2.330488; 0.702547;, - 3.278460;-2.360900; 0.702547;, - 3.468561;-2.325420; 0.594226;, - 3.490862;-2.274734; 0.537668;, - 3.548821;-2.274734; 0.550553;, - 3.545060;-2.325420; 0.611233;, - 3.400961;-2.325420; 0.554181;, - 3.439646;-2.274734; 0.507329;, - 3.490862;-2.274734; 0.537668;, - 3.468561;-2.325420; 0.594226;, - 3.278460;-2.330488; 0.702547;, - 3.397942;-2.330488; 0.773325;, - 3.278460;-2.360900; 0.702547;, - 3.278460;-2.360900; 0.702547;, - 3.397942;-2.330488; 0.773325;, - 3.533152;-2.330488; 0.803384;, - 3.533152;-2.360900; 0.803384;, - 3.533152;-2.360900; 0.803384;, - 3.533152;-2.330488; 0.803384;, - 3.671303;-2.330488; 0.789915;, - 3.798624;-2.330488; 0.735158;, - 3.798624;-2.360900; 0.735158;, - 3.533152;-2.360900; 0.803384;, - 3.671303;-2.330488; 0.789915;, - 4.123771;-2.627340; 0.826097;, - 3.953017;-2.627340; 0.977918;, - 3.904710;-2.604194; 0.901962;, - 4.198607;-2.615766; 0.612729;, - 4.240451;-2.627340; 0.629247;, - 4.156762;-2.604194; 0.596210;, - 3.904710;-2.604194; 0.901962;, - 4.156762;-2.604194; 0.596210;, - 4.240451;-2.627340; 0.629247;, - 4.123771;-2.627340; 0.826097;, - 4.200285;-2.604194; 0.400758;, - 4.156762;-2.604194; 0.596210;, - 4.100213;-2.523096; 0.573887;, - 4.122023;-2.523096; 0.216110;, - 4.180858;-2.604194; 0.200941;, - 4.200285;-2.604194; 0.400758;, - 4.100213;-2.523096; 0.573887;, - 4.101661;-2.604194; 0.016740;, - 4.180858;-2.604194; 0.200941;, - 4.122023;-2.523096; 0.216110;, - 3.929733;-2.523096;-0.086236;, - 3.968418;-2.604194;-0.133088;, - 4.101661;-2.604194; 0.016740;, - 4.122023;-2.523096; 0.216110;, - 3.603005;-2.615766;-0.323765;, - 3.600222;-2.604194;-0.278864;, - 3.216443;-2.604194;-0.180232;, - 3.378034;-2.627340;-0.346461;, - 3.216443;-2.604194;-0.180232;, - 3.168136;-2.627340;-0.256188;, - 3.216443;-2.604194;-0.180232;, - 3.378034;-2.627340;-0.346461;, - 3.605787;-2.627340;-0.368666;, - 3.603005;-2.615766;-0.323765;, - 3.600222;-2.604194;-0.278864;, - 3.795689;-2.604194;-0.235408;, - 3.596462;-2.523096;-0.218184;, - 3.596462;-2.523096;-0.218184;, - 3.795689;-2.604194;-0.235408;, - 3.968418;-2.604194;-0.133088;, - 3.929733;-2.523096;-0.086236;, - 3.216443;-2.604194;-0.180232;, - 2.964391;-2.604194; 0.125520;, - 2.922545;-2.615766; 0.109002;, - 3.168136;-2.627340;-0.256188;, - 3.216443;-2.604194;-0.180232;, - 2.997381;-2.627340;-0.104368;, - 2.880700;-2.627340; 0.092483;, - 2.997381;-2.627340;-0.104368;, - 3.216443;-2.604194;-0.180232;, - 2.922545;-2.615766; 0.109002;, - 3.020940;-2.523096; 0.147843;, - 2.920866;-2.604194; 0.320972;, - 2.964391;-2.604194; 0.125520;, - 2.940295;-2.604194; 0.520789;, - 2.920866;-2.604194; 0.320972;, - 3.020940;-2.523096; 0.147843;, - 2.999130;-2.523096; 0.505620;, - 3.191419;-2.523096; 0.807966;, - 3.152735;-2.604194; 0.854818;, - 3.019492;-2.604194; 0.704990;, - 3.019492;-2.604194; 0.704990;, - 2.940295;-2.604194; 0.520789;, - 2.999130;-2.523096; 0.505620;, - 3.191419;-2.523096; 0.807966;, - 3.904710;-2.604194; 0.901962;, - 3.953017;-2.627340; 0.977918;, - 3.743118;-2.627340; 1.068190;, - 3.520931;-2.604194; 1.000594;, - 3.515365;-2.627340; 1.090396;, - 3.518147;-2.615766; 1.045495;, - 3.515365;-2.627340; 1.090396;, - 3.520931;-2.604194; 1.000594;, - 3.904710;-2.604194; 0.901962;, - 3.743118;-2.627340; 1.068190;, - 3.524690;-2.523096; 0.939914;, - 3.520931;-2.604194; 1.000594;, - 3.325463;-2.604194; 0.957138;, - 3.325463;-2.604194; 0.957138;, - 3.152735;-2.604194; 0.854818;, - 3.191419;-2.523096; 0.807966;, - 3.524690;-2.523096; 0.939914;; - 6512; - 3;0;1;2;, - 3;3;4;5;, - 3;6;7;8;, - 3;9;10;11;, - 3;12;13;14;, - 3;15;16;17;, - 3;18;19;20;, - 3;21;22;23;, - 3;24;25;26;, - 3;27;28;29;, - 3;30;31;32;, - 3;33;34;35;, - 3;36;37;38;, - 3;39;40;41;, - 3;42;43;44;, - 3;45;46;47;, - 3;48;49;50;, - 3;51;52;53;, - 3;54;55;56;, - 3;57;58;59;, - 3;60;61;62;, - 3;63;64;65;, - 3;66;67;68;, - 3;69;70;71;, - 3;72;73;74;, - 3;75;76;77;, - 3;78;79;80;, - 3;81;82;83;, - 3;84;85;86;, - 3;87;88;89;, - 3;90;91;92;, - 3;93;94;95;, - 3;96;97;98;, - 3;99;100;101;, - 3;102;103;104;, - 3;105;106;107;, - 3;108;109;110;, - 3;111;112;113;, - 3;114;115;116;, - 3;117;118;119;, - 3;120;121;122;, - 3;123;124;125;, - 3;126;127;128;, - 3;129;130;131;, - 3;132;133;134;, - 3;135;136;137;, - 3;138;139;140;, - 3;141;142;143;, - 3;144;145;146;, - 3;147;148;149;, - 3;150;151;152;, - 3;153;154;155;, - 3;156;157;158;, - 3;159;160;161;, - 3;162;163;164;, - 3;165;166;167;, - 3;168;169;170;, - 3;171;172;173;, - 3;174;175;176;, - 3;177;178;179;, - 3;180;181;182;, - 3;183;184;185;, - 3;186;187;188;, - 3;189;190;191;, - 3;192;193;194;, - 3;195;196;197;, - 3;198;199;200;, - 3;201;202;203;, - 3;204;205;206;, - 3;207;208;209;, - 3;210;211;212;, - 3;213;214;215;, - 3;216;217;218;, - 3;219;220;221;, - 3;222;223;224;, - 3;225;226;227;, - 3;228;229;230;, - 3;231;232;233;, - 3;234;235;236;, - 3;237;238;239;, - 3;240;241;242;, - 3;243;244;245;, - 3;246;247;248;, - 3;249;250;251;, - 3;252;253;254;, - 3;255;256;257;, - 3;258;259;260;, - 3;261;262;263;, - 3;264;265;266;, - 3;267;268;269;, - 3;270;271;272;, - 3;273;274;275;, - 3;276;277;278;, - 3;279;280;281;, - 3;282;283;284;, - 3;285;286;287;, - 3;288;289;290;, - 3;291;292;293;, - 3;294;295;296;, - 3;297;298;299;, - 3;300;301;302;, - 3;303;304;305;, - 3;306;307;308;, - 3;309;310;311;, - 3;312;313;314;, - 3;315;316;317;, - 3;318;319;320;, - 3;321;322;323;, - 3;324;325;326;, - 3;327;328;329;, - 3;330;331;332;, - 3;333;334;335;, - 3;336;337;338;, - 3;339;340;341;, - 3;342;343;344;, - 3;345;346;347;, - 3;348;349;350;, - 3;351;352;353;, - 3;354;355;356;, - 3;357;358;359;, - 3;360;361;362;, - 3;363;364;365;, - 3;366;367;368;, - 3;369;370;371;, - 3;372;373;374;, - 3;375;376;377;, - 3;378;379;380;, - 3;381;382;383;, - 3;384;385;386;, - 3;387;388;389;, - 3;390;391;392;, - 3;393;394;395;, - 3;396;397;398;, - 3;399;400;401;, - 3;402;403;404;, - 3;405;406;407;, - 3;408;409;410;, - 3;411;412;413;, - 3;414;415;416;, - 3;417;418;419;, - 3;420;421;422;, - 3;423;424;425;, - 3;426;427;428;, - 3;429;430;431;, - 3;432;433;434;, - 3;435;436;437;, - 3;438;439;440;, - 3;441;442;443;, - 3;444;445;446;, - 3;447;448;449;, - 3;450;451;452;, - 3;453;454;455;, - 3;456;457;458;, - 3;459;460;461;, - 3;462;463;464;, - 3;465;466;467;, - 3;468;469;470;, - 3;471;472;473;, - 3;474;475;476;, - 3;477;478;479;, - 3;480;481;482;, - 3;483;484;485;, - 3;486;487;488;, - 3;489;490;491;, - 3;492;493;494;, - 3;495;496;497;, - 3;498;499;500;, - 3;501;502;503;, - 3;504;505;506;, - 3;507;508;509;, - 3;510;511;512;, - 3;513;514;515;, - 3;516;517;518;, - 3;519;520;521;, - 3;522;523;524;, - 3;525;526;527;, - 3;528;529;530;, - 3;531;532;533;, - 3;534;535;536;, - 3;537;538;539;, - 3;540;541;542;, - 3;543;544;545;, - 3;546;547;548;, - 3;549;550;551;, - 3;552;553;554;, - 3;555;556;557;, - 3;558;559;560;, - 3;561;562;563;, - 3;564;565;566;, - 3;567;568;569;, - 3;570;571;572;, - 3;573;574;575;, - 3;576;577;578;, - 3;579;580;581;, - 3;582;583;584;, - 3;585;586;587;, - 3;588;589;590;, - 3;591;592;593;, - 3;594;595;596;, - 3;597;598;599;, - 3;600;601;602;, - 3;603;604;605;, - 3;606;607;608;, - 3;609;610;611;, - 3;612;613;614;, - 3;615;616;617;, - 3;618;619;620;, - 3;621;622;623;, - 3;624;625;626;, - 3;627;628;629;, - 3;630;631;632;, - 3;633;634;635;, - 3;636;637;638;, - 3;639;640;641;, - 3;642;643;644;, - 3;645;646;647;, - 3;648;649;650;, - 3;651;652;653;, - 3;654;655;656;, - 3;657;658;659;, - 3;660;661;662;, - 3;663;664;665;, - 3;666;667;668;, - 3;669;670;671;, - 3;672;673;674;, - 3;675;676;677;, - 3;678;679;680;, - 3;681;682;683;, - 3;684;685;686;, - 3;687;688;689;, - 3;690;691;692;, - 3;693;694;695;, - 3;696;697;698;, - 3;699;700;701;, - 3;702;703;704;, - 3;705;706;707;, - 3;708;709;710;, - 3;711;712;713;, - 3;714;715;716;, - 3;717;718;719;, - 3;720;721;722;, - 3;723;724;725;, - 3;726;727;728;, - 3;729;730;731;, - 3;732;733;734;, - 3;735;736;737;, - 3;738;739;740;, - 3;741;742;743;, - 3;744;745;746;, - 3;747;748;749;, - 3;750;751;752;, - 3;753;754;755;, - 3;756;757;758;, - 3;759;760;761;, - 3;762;763;764;, - 3;765;766;767;, - 3;768;769;770;, - 3;771;772;773;, - 3;774;775;776;, - 3;777;778;779;, - 3;780;781;782;, - 3;783;784;785;, - 3;786;787;788;, - 3;789;790;791;, - 3;792;793;794;, - 3;795;796;797;, - 3;798;799;800;, - 3;801;802;803;, - 3;804;805;806;, - 3;807;808;809;, - 3;810;811;812;, - 3;813;814;815;, - 3;816;817;818;, - 3;819;820;821;, - 3;822;823;824;, - 3;825;826;827;, - 3;828;829;830;, - 3;831;832;833;, - 3;834;835;836;, - 3;837;838;839;, - 3;840;841;842;, - 3;843;844;845;, - 3;846;847;848;, - 3;849;850;851;, - 3;852;853;854;, - 3;855;856;857;, - 3;858;859;860;, - 3;861;862;863;, - 3;864;865;866;, - 3;867;868;869;, - 3;870;871;872;, - 3;873;874;875;, - 3;876;877;878;, - 3;879;880;881;, - 3;882;883;884;, - 3;885;886;887;, - 3;888;889;890;, - 3;891;892;893;, - 3;894;895;896;, - 3;897;898;899;, - 3;900;901;902;, - 3;903;904;905;, - 3;906;907;908;, - 3;909;910;911;, - 3;912;913;914;, - 3;915;916;917;, - 3;918;919;920;, - 3;921;922;923;, - 3;924;925;926;, - 3;927;928;929;, - 3;930;931;932;, - 3;933;934;935;, - 3;936;937;938;, - 3;939;940;941;, - 3;942;943;944;, - 3;945;946;947;, - 3;948;949;950;, - 3;951;952;953;, - 3;954;955;956;, - 3;957;958;959;, - 3;960;961;962;, - 3;963;964;965;, - 3;966;967;968;, - 3;969;970;971;, - 3;972;973;974;, - 3;975;976;977;, - 3;978;979;980;, - 3;981;982;983;, - 3;984;985;986;, - 3;987;988;989;, - 3;990;991;992;, - 3;993;994;995;, - 3;996;997;998;, - 3;999;1000;1001;, - 3;1002;1003;1004;, - 3;1005;1006;1007;, - 3;1008;1009;1010;, - 3;1011;1012;1013;, - 3;1014;1015;1016;, - 3;1017;1018;1019;, - 3;1020;1021;1022;, - 3;1023;1024;1025;, - 3;1026;1027;1028;, - 3;1029;1030;1031;, - 3;1032;1033;1034;, - 3;1035;1036;1037;, - 3;1038;1039;1040;, - 3;1041;1042;1043;, - 3;1044;1045;1046;, - 3;1047;1048;1049;, - 3;1050;1051;1052;, - 3;1053;1054;1055;, - 3;1056;1057;1058;, - 3;1059;1060;1061;, - 3;1062;1063;1064;, - 3;1065;1066;1067;, - 3;1068;1069;1070;, - 3;1071;1072;1073;, - 3;1074;1075;1076;, - 3;1077;1078;1079;, - 3;1080;1081;1082;, - 3;1083;1084;1085;, - 3;1086;1087;1088;, - 3;1089;1090;1091;, - 3;1092;1093;1094;, - 3;1095;1096;1097;, - 3;1098;1099;1100;, - 3;1101;1102;1103;, - 3;1104;1105;1106;, - 3;1107;1108;1109;, - 3;1110;1111;1112;, - 3;1113;1114;1115;, - 3;1116;1117;1118;, - 3;1119;1120;1121;, - 3;1122;1123;1124;, - 3;1125;1126;1127;, - 3;1128;1129;1130;, - 3;1131;1132;1133;, - 3;1134;1135;1136;, - 3;1137;1138;1139;, - 3;1140;1141;1142;, - 3;1143;1144;1145;, - 3;1146;1147;1148;, - 3;1149;1150;1151;, - 3;1152;1153;1154;, - 3;1155;1156;1157;, - 3;1158;1159;1160;, - 3;1161;1162;1163;, - 3;1164;1165;1166;, - 3;1167;1168;1169;, - 3;1170;1171;1172;, - 3;1173;1174;1175;, - 3;1176;1177;1178;, - 3;1179;1180;1181;, - 3;1182;1183;1184;, - 3;1185;1186;1187;, - 3;1188;1189;1190;, - 3;1191;1192;1193;, - 3;1194;1195;1196;, - 3;1197;1198;1199;, - 3;1200;1201;1202;, - 3;1203;1204;1205;, - 3;1206;1207;1208;, - 3;1209;1210;1211;, - 3;1212;1213;1214;, - 3;1215;1216;1217;, - 3;1218;1219;1220;, - 3;1221;1222;1223;, - 3;1224;1225;1226;, - 3;1227;1228;1229;, - 3;1230;1231;1232;, - 3;1233;1234;1235;, - 3;1236;1237;1238;, - 3;1239;1240;1241;, - 3;1242;1243;1244;, - 3;1245;1246;1247;, - 3;1248;1249;1250;, - 3;1251;1252;1253;, - 3;1254;1255;1256;, - 3;1257;1258;1259;, - 3;1260;1261;1262;, - 3;1263;1264;1265;, - 3;1266;1267;1268;, - 3;1269;1270;1271;, - 3;1272;1273;1274;, - 3;1275;1276;1277;, - 3;1278;1279;1280;, - 3;1281;1282;1283;, - 3;1284;1285;1286;, - 3;1287;1288;1289;, - 3;1290;1291;1292;, - 3;1293;1294;1295;, - 3;1296;1297;1298;, - 3;1299;1300;1301;, - 3;1302;1303;1304;, - 3;1305;1306;1307;, - 3;1308;1309;1310;, - 3;1311;1312;1313;, - 3;1314;1315;1316;, - 3;1317;1318;1319;, - 3;1320;1321;1322;, - 3;1323;1324;1325;, - 3;1326;1327;1328;, - 3;1329;1330;1331;, - 3;1332;1333;1334;, - 3;1335;1336;1337;, - 3;1338;1339;1340;, - 3;1341;1342;1343;, - 3;1344;1345;1346;, - 3;1347;1348;1349;, - 3;1350;1351;1352;, - 3;1353;1354;1355;, - 3;1356;1357;1358;, - 3;1359;1360;1361;, - 3;1362;1363;1364;, - 3;1365;1366;1367;, - 3;1368;1369;1370;, - 3;1371;1372;1373;, - 3;1374;1375;1376;, - 3;1377;1378;1379;, - 3;1380;1381;1382;, - 3;1383;1384;1385;, - 3;1386;1387;1388;, - 3;1389;1390;1391;, - 3;1392;1393;1394;, - 3;1395;1396;1397;, - 3;1398;1399;1400;, - 3;1401;1402;1403;, - 3;1404;1405;1406;, - 3;1407;1408;1409;, - 3;1410;1411;1412;, - 3;1413;1414;1415;, - 3;1416;1417;1418;, - 3;1419;1420;1421;, - 3;1422;1423;1424;, - 3;1425;1426;1427;, - 3;1428;1429;1430;, - 3;1431;1432;1433;, - 3;1434;1435;1436;, - 3;1437;1438;1439;, - 3;1440;1441;1442;, - 3;1443;1444;1445;, - 3;1446;1447;1448;, - 3;1449;1450;1451;, - 3;1452;1453;1454;, - 3;1455;1456;1457;, - 3;1458;1459;1460;, - 3;1461;1462;1463;, - 3;1464;1465;1466;, - 3;1467;1468;1469;, - 3;1470;1471;1472;, - 3;1473;1474;1475;, - 3;1476;1477;1478;, - 3;1479;1480;1481;, - 3;1482;1483;1484;, - 3;1485;1486;1487;, - 3;1488;1489;1490;, - 3;1491;1492;1493;, - 3;1494;1495;1496;, - 3;1497;1498;1499;, - 3;1500;1501;1502;, - 3;1503;1504;1505;, - 3;1506;1507;1508;, - 3;1509;1510;1511;, - 3;1512;1513;1514;, - 3;1515;1516;1517;, - 3;1518;1519;1520;, - 3;1521;1522;1523;, - 3;1524;1525;1526;, - 3;1527;1528;1529;, - 3;1530;1531;1532;, - 3;1533;1534;1535;, - 3;1536;1537;1538;, - 3;1539;1540;1541;, - 3;1542;1543;1544;, - 3;1545;1546;1547;, - 3;1548;1549;1550;, - 3;1551;1552;1553;, - 3;1554;1555;1556;, - 3;1557;1558;1559;, - 3;1560;1561;1562;, - 3;1563;1564;1565;, - 3;1566;1567;1568;, - 3;1569;1570;1571;, - 3;1572;1573;1574;, - 3;1575;1576;1577;, - 3;1578;1579;1580;, - 3;1581;1582;1583;, - 3;1584;1585;1586;, - 3;1587;1588;1589;, - 3;1590;1591;1592;, - 3;1593;1594;1595;, - 3;1596;1597;1598;, - 3;1599;1600;1601;, - 3;1602;1603;1604;, - 3;1605;1606;1607;, - 3;1608;1609;1610;, - 3;1611;1612;1613;, - 3;1614;1615;1616;, - 3;1617;1618;1619;, - 3;1620;1621;1622;, - 3;1623;1624;1625;, - 3;1626;1627;1628;, - 3;1629;1630;1631;, - 3;1632;1633;1634;, - 3;1635;1636;1637;, - 3;1638;1639;1640;, - 3;1641;1642;1643;, - 3;1644;1645;1646;, - 3;1647;1648;1649;, - 3;1650;1651;1652;, - 3;1653;1654;1655;, - 3;1656;1657;1658;, - 3;1659;1660;1661;, - 3;1662;1663;1664;, - 3;1665;1666;1667;, - 3;1668;1669;1670;, - 3;1671;1672;1673;, - 3;1674;1675;1676;, - 3;1677;1678;1679;, - 3;1680;1681;1682;, - 3;1683;1684;1685;, - 3;1686;1687;1688;, - 3;1689;1690;1691;, - 3;1692;1693;1694;, - 3;1695;1696;1697;, - 3;1698;1699;1700;, - 3;1701;1702;1703;, - 3;1704;1705;1706;, - 3;1707;1708;1709;, - 3;1710;1711;1712;, - 3;1713;1714;1715;, - 3;1716;1717;1718;, - 3;1719;1720;1721;, - 3;1722;1723;1724;, - 3;1725;1726;1727;, - 3;1728;1729;1730;, - 3;1731;1732;1733;, - 3;1734;1735;1736;, - 3;1737;1738;1739;, - 3;1740;1741;1742;, - 3;1743;1744;1745;, - 3;1746;1747;1748;, - 3;1749;1750;1751;, - 3;1752;1753;1754;, - 3;1755;1756;1757;, - 3;1758;1759;1760;, - 3;1761;1762;1763;, - 3;1764;1765;1766;, - 3;1767;1768;1769;, - 3;1770;1771;1772;, - 3;1773;1774;1775;, - 3;1776;1777;1778;, - 3;1779;1780;1781;, - 3;1782;1783;1784;, - 3;1785;1786;1787;, - 3;1788;1789;1790;, - 3;1791;1792;1793;, - 3;1794;1795;1796;, - 3;1797;1798;1799;, - 3;1800;1801;1802;, - 3;1803;1804;1805;, - 3;1806;1807;1808;, - 3;1809;1810;1811;, - 3;1812;1813;1814;, - 3;1815;1816;1817;, - 3;1818;1819;1820;, - 3;1821;1822;1823;, - 3;1824;1825;1826;, - 3;1827;1828;1829;, - 3;1830;1831;1832;, - 3;1833;1834;1835;, - 3;1836;1837;1838;, - 3;1839;1840;1841;, - 3;1842;1843;1844;, - 3;1845;1846;1847;, - 3;1848;1849;1850;, - 3;1851;1852;1853;, - 3;1854;1855;1856;, - 3;1857;1858;1859;, - 3;1860;1861;1862;, - 3;1863;1864;1865;, - 3;1866;1867;1868;, - 3;1869;1870;1871;, - 3;1872;1873;1874;, - 3;1875;1876;1877;, - 3;1878;1879;1880;, - 3;1881;1882;1883;, - 3;1884;1885;1886;, - 3;1887;1888;1889;, - 3;1890;1891;1892;, - 3;1893;1894;1895;, - 3;1896;1897;1898;, - 3;1899;1900;1901;, - 3;1902;1903;1904;, - 3;1905;1906;1907;, - 3;1908;1909;1910;, - 3;1911;1912;1913;, - 3;1914;1915;1916;, - 3;1917;1918;1919;, - 3;1920;1921;1922;, - 3;1923;1924;1925;, - 3;1926;1927;1928;, - 3;1929;1930;1931;, - 3;1932;1933;1934;, - 3;1935;1936;1937;, - 3;1938;1939;1940;, - 3;1941;1942;1943;, - 3;1944;1945;1946;, - 3;1947;1948;1949;, - 3;1950;1951;1952;, - 3;1953;1954;1955;, - 3;1956;1957;1958;, - 3;1959;1960;1961;, - 3;1962;1963;1964;, - 3;1965;1966;1967;, - 3;1968;1969;1970;, - 3;1971;1972;1973;, - 3;1974;1975;1976;, - 3;1977;1978;1979;, - 3;1980;1981;1982;, - 3;1983;1984;1985;, - 3;1986;1987;1988;, - 3;1989;1990;1991;, - 3;1992;1993;1994;, - 3;1995;1996;1997;, - 3;1998;1999;2000;, - 3;2001;2002;2003;, - 3;2004;2005;2006;, - 3;2007;2008;2009;, - 3;2010;2011;2012;, - 3;2013;2014;2015;, - 3;2016;2017;2018;, - 3;2019;2020;2021;, - 3;2022;2023;2024;, - 3;2025;2026;2027;, - 3;2028;2029;2030;, - 3;2031;2032;2033;, - 3;2034;2035;2036;, - 3;2037;2038;2039;, - 3;2040;2041;2042;, - 3;2043;2044;2045;, - 3;2046;2047;2048;, - 3;2049;2050;2051;, - 3;2052;2053;2054;, - 3;2055;2056;2057;, - 3;2058;2059;2060;, - 3;2061;2062;2063;, - 3;2064;2065;2066;, - 3;2067;2068;2069;, - 3;2070;2071;2072;, - 3;2073;2074;2075;, - 3;2076;2077;2078;, - 3;2079;2080;2081;, - 3;2082;2083;2084;, - 3;2085;2086;2087;, - 3;2088;2089;2090;, - 3;2091;2092;2093;, - 3;2094;2095;2096;, - 3;2097;2098;2099;, - 3;2100;2101;2102;, - 3;2103;2104;2105;, - 3;2106;2107;2108;, - 3;2109;2110;2111;, - 3;2112;2113;2114;, - 3;2115;2116;2117;, - 3;2118;2119;2120;, - 3;2121;2122;2123;, - 3;2124;2125;2126;, - 3;2127;2128;2129;, - 3;2130;2131;2132;, - 3;2133;2134;2135;, - 3;2136;2137;2138;, - 3;2139;2140;2141;, - 3;2142;2143;2144;, - 3;2145;2146;2147;, - 3;2148;2149;2150;, - 3;2151;2152;2153;, - 3;2154;2155;2156;, - 3;2157;2158;2159;, - 3;2160;2161;2162;, - 3;2163;2164;2165;, - 3;2166;2167;2168;, - 3;2169;2170;2171;, - 3;2172;2173;2174;, - 3;2175;2176;2177;, - 3;2178;2179;2180;, - 3;2181;2182;2183;, - 3;2184;2185;2186;, - 3;2187;2188;2189;, - 3;2190;2191;2192;, - 3;2193;2194;2195;, - 3;2196;2197;2198;, - 3;2199;2200;2201;, - 3;2202;2203;2204;, - 3;2205;2206;2207;, - 3;2208;2209;2210;, - 3;2211;2212;2213;, - 3;2214;2215;2216;, - 3;2217;2218;2219;, - 3;2220;2221;2222;, - 3;2223;2224;2225;, - 3;2226;2227;2228;, - 3;2229;2230;2231;, - 3;2232;2233;2234;, - 3;2235;2236;2237;, - 3;2238;2239;2240;, - 3;2241;2242;2243;, - 3;2244;2245;2246;, - 3;2247;2248;2249;, - 3;2250;2251;2252;, - 3;2253;2254;2255;, - 3;2256;2257;2258;, - 3;2259;2260;2261;, - 3;2262;2263;2264;, - 3;2265;2266;2267;, - 3;2268;2269;2270;, - 3;2271;2272;2273;, - 3;2274;2275;2276;, - 3;2277;2278;2279;, - 3;2280;2281;2282;, - 3;2283;2284;2285;, - 3;2286;2287;2288;, - 3;2289;2290;2291;, - 3;2292;2293;2294;, - 3;2295;2296;2297;, - 3;2298;2299;2300;, - 3;2301;2302;2303;, - 3;2304;2305;2306;, - 3;2307;2308;2309;, - 3;2310;2311;2312;, - 3;2313;2314;2315;, - 3;2316;2317;2318;, - 3;2319;2320;2321;, - 3;2322;2323;2324;, - 3;2325;2326;2327;, - 3;2328;2329;2330;, - 3;2331;2332;2333;, - 3;2334;2335;2336;, - 3;2337;2338;2339;, - 3;2340;2341;2342;, - 3;2343;2344;2345;, - 3;2346;2347;2348;, - 3;2349;2350;2351;, - 3;2352;2353;2354;, - 3;2355;2356;2357;, - 3;2358;2359;2360;, - 3;2361;2362;2363;, - 3;2364;2365;2366;, - 3;2367;2368;2369;, - 3;2370;2371;2372;, - 3;2373;2374;2375;, - 3;2376;2377;2378;, - 3;2379;2380;2381;, - 3;2382;2383;2384;, - 3;2385;2386;2387;, - 3;2388;2389;2390;, - 3;2391;2392;2393;, - 3;2394;2395;2396;, - 3;2397;2398;2399;, - 3;2400;2401;2402;, - 3;2403;2404;2405;, - 3;2406;2407;2408;, - 3;2409;2410;2411;, - 3;2412;2413;2414;, - 3;2415;2416;2417;, - 3;2418;2419;2420;, - 3;2421;2422;2423;, - 3;2424;2425;2426;, - 3;2427;2428;2429;, - 3;2430;2431;2432;, - 3;2433;2434;2435;, - 3;2436;2437;2438;, - 3;2439;2440;2441;, - 3;2442;2443;2444;, - 3;2445;2446;2447;, - 3;2448;2449;2450;, - 3;2451;2452;2453;, - 3;2454;2455;2456;, - 3;2457;2458;2459;, - 3;2460;2461;2462;, - 3;2463;2464;2465;, - 3;2466;2467;2468;, - 3;2469;2470;2471;, - 3;2472;2473;2474;, - 3;2475;2476;2477;, - 3;2478;2479;2480;, - 3;2481;2482;2483;, - 3;2484;2485;2486;, - 3;2487;2488;2489;, - 3;2490;2491;2492;, - 3;2493;2494;2495;, - 3;2496;2497;2498;, - 3;2499;2500;2501;, - 3;2502;2503;2504;, - 3;2505;2506;2507;, - 3;2508;2509;2510;, - 3;2511;2512;2513;, - 3;2514;2515;2516;, - 3;2517;2518;2519;, - 3;2520;2521;2522;, - 3;2523;2524;2525;, - 3;2526;2527;2528;, - 3;2529;2530;2531;, - 3;2532;2533;2534;, - 3;2535;2536;2537;, - 3;2538;2539;2540;, - 3;2541;2542;2543;, - 3;2544;2545;2546;, - 3;2547;2548;2549;, - 3;2550;2551;2552;, - 3;2553;2554;2555;, - 3;2556;2557;2558;, - 3;2559;2560;2561;, - 3;2562;2563;2564;, - 3;2565;2566;2567;, - 3;2568;2569;2570;, - 3;2571;2572;2573;, - 3;2574;2575;2576;, - 3;2577;2578;2579;, - 3;2580;2581;2582;, - 3;2583;2584;2585;, - 3;2586;2587;2588;, - 3;2589;2590;2591;, - 3;2592;2593;2594;, - 3;2595;2596;2597;, - 3;2598;2599;2600;, - 3;2601;2602;2603;, - 3;2604;2605;2606;, - 3;2607;2608;2609;, - 3;2610;2611;2612;, - 3;2613;2614;2615;, - 3;2616;2617;2618;, - 3;2619;2620;2621;, - 3;2622;2623;2624;, - 3;2625;2626;2627;, - 3;2628;2629;2630;, - 3;2631;2632;2633;, - 3;2634;2635;2636;, - 3;2637;2638;2639;, - 3;2640;2641;2642;, - 3;2643;2644;2645;, - 3;2646;2647;2648;, - 3;2649;2650;2651;, - 3;2652;2653;2654;, - 3;2655;2656;2657;, - 3;2658;2659;2660;, - 3;2661;2662;2663;, - 3;2664;2665;2666;, - 3;2667;2668;2669;, - 3;2670;2671;2672;, - 3;2673;2674;2675;, - 3;2676;2677;2678;, - 3;2679;2680;2681;, - 3;2682;2683;2684;, - 3;2685;2686;2687;, - 3;2688;2689;2690;, - 3;2691;2692;2693;, - 3;2694;2695;2696;, - 3;2697;2698;2699;, - 3;2700;2701;2702;, - 3;2703;2704;2705;, - 3;2706;2707;2708;, - 3;2709;2710;2711;, - 3;2712;2713;2714;, - 3;2715;2716;2717;, - 3;2718;2719;2720;, - 3;2721;2722;2723;, - 3;2724;2725;2726;, - 3;2727;2728;2729;, - 3;2730;2731;2732;, - 3;2733;2734;2735;, - 3;2736;2737;2738;, - 3;2739;2740;2741;, - 3;2742;2743;2744;, - 3;2745;2746;2747;, - 3;2748;2749;2750;, - 3;2751;2752;2753;, - 3;2754;2755;2756;, - 3;2757;2758;2759;, - 3;2760;2761;2762;, - 3;2763;2764;2765;, - 3;2766;2767;2768;, - 3;2769;2770;2771;, - 3;2772;2773;2774;, - 3;2775;2776;2777;, - 3;2778;2779;2780;, - 3;2781;2782;2783;, - 3;2784;2785;2786;, - 3;2787;2788;2789;, - 3;2790;2791;2792;, - 3;2793;2794;2795;, - 3;2796;2797;2798;, - 3;2799;2800;2801;, - 3;2802;2803;2804;, - 3;2805;2806;2807;, - 3;2808;2809;2810;, - 3;2811;2812;2813;, - 3;2814;2815;2816;, - 3;2817;2818;2819;, - 3;2820;2821;2822;, - 3;2823;2824;2825;, - 3;2826;2827;2828;, - 3;2829;2830;2831;, - 3;2832;2833;2834;, - 3;2835;2836;2837;, - 3;2838;2839;2840;, - 3;2841;2842;2843;, - 3;2844;2845;2846;, - 3;2847;2848;2849;, - 3;2850;2851;2852;, - 3;2853;2854;2855;, - 3;2856;2857;2858;, - 3;2859;2860;2861;, - 3;2862;2863;2864;, - 3;2865;2866;2867;, - 3;2868;2869;2870;, - 3;2871;2872;2873;, - 3;2874;2875;2876;, - 3;2877;2878;2879;, - 3;2880;2881;2882;, - 3;2883;2884;2885;, - 3;2886;2887;2888;, - 3;2889;2890;2891;, - 3;2892;2893;2894;, - 3;2895;2896;2897;, - 3;2898;2899;2900;, - 3;2901;2902;2903;, - 3;2904;2905;2906;, - 3;2907;2908;2909;, - 3;2910;2911;2912;, - 3;2913;2914;2915;, - 3;2916;2917;2918;, - 3;2919;2920;2921;, - 3;2922;2923;2924;, - 3;2925;2926;2927;, - 3;2928;2929;2930;, - 3;2931;2932;2933;, - 3;2934;2935;2936;, - 3;2937;2938;2939;, - 3;2940;2941;2942;, - 3;2943;2944;2945;, - 3;2946;2947;2948;, - 3;2949;2950;2951;, - 3;2952;2953;2954;, - 3;2955;2956;2957;, - 3;2958;2959;2960;, - 3;2961;2962;2963;, - 3;2964;2965;2966;, - 3;2967;2968;2969;, - 3;2970;2971;2972;, - 3;2973;2974;2975;, - 3;2976;2977;2978;, - 3;2979;2980;2981;, - 3;2982;2983;2984;, - 3;2985;2986;2987;, - 3;2988;2989;2990;, - 3;2991;2992;2993;, - 3;2994;2995;2996;, - 3;2997;2998;2999;, - 3;3000;3001;3002;, - 3;3003;3004;3005;, - 3;3006;3007;3008;, - 3;3009;3010;3011;, - 3;3012;3013;3014;, - 3;3015;3016;3017;, - 3;3018;3019;3020;, - 3;3021;3022;3023;, - 3;3024;3025;3026;, - 3;3027;3028;3029;, - 3;3030;3031;3032;, - 3;3033;3034;3035;, - 3;3036;3037;3038;, - 3;3039;3040;3041;, - 3;3042;3043;3044;, - 3;3045;3046;3047;, - 3;3048;3049;3050;, - 3;3051;3052;3053;, - 3;3054;3055;3056;, - 3;3057;3058;3059;, - 3;3060;3061;3062;, - 3;3063;3064;3065;, - 3;3066;3067;3068;, - 3;3069;3070;3071;, - 3;3072;3073;3074;, - 3;3075;3076;3077;, - 3;3078;3079;3080;, - 3;3081;3082;3083;, - 3;3084;3085;3086;, - 3;3087;3088;3089;, - 3;3090;3091;3092;, - 3;3093;3094;3095;, - 3;3096;3097;3098;, - 3;3099;3100;3101;, - 3;3102;3103;3104;, - 3;3105;3106;3107;, - 3;3108;3109;3110;, - 3;3111;3112;3113;, - 3;3114;3115;3116;, - 3;3117;3118;3119;, - 3;3120;3121;3122;, - 3;3123;3124;3125;, - 3;3126;3127;3128;, - 3;3129;3130;3131;, - 3;3132;3133;3134;, - 3;3135;3136;3137;, - 3;3138;3139;3140;, - 3;3141;3142;3143;, - 3;3144;3145;3146;, - 3;3147;3148;3149;, - 3;3150;3151;3152;, - 3;3153;3154;3155;, - 3;3156;3157;3158;, - 3;3159;3160;3161;, - 3;3162;3163;3164;, - 3;3165;3166;3167;, - 3;3168;3169;3170;, - 3;3171;3172;3173;, - 3;3174;3175;3176;, - 3;3177;3178;3179;, - 3;3180;3181;3182;, - 3;3183;3184;3185;, - 3;3186;3187;3188;, - 3;3189;3190;3191;, - 3;3192;3193;3194;, - 3;3195;3196;3197;, - 3;3198;3199;3200;, - 3;3201;3202;3203;, - 3;3204;3205;3206;, - 3;3207;3208;3209;, - 3;3210;3211;3212;, - 3;3213;3214;3215;, - 3;3216;3217;3218;, - 3;3219;3220;3221;, - 3;3222;3223;3224;, - 3;3225;3226;3227;, - 3;3228;3229;3230;, - 3;3231;3232;3233;, - 3;3234;3235;3236;, - 3;3237;3238;3239;, - 3;3240;3241;3242;, - 3;3243;3244;3245;, - 3;3246;3247;3248;, - 3;3249;3250;3251;, - 3;3252;3253;3254;, - 3;3255;3256;3257;, - 3;3258;3259;3260;, - 3;3261;3262;3263;, - 3;3264;3265;3266;, - 3;3267;3268;3269;, - 3;3270;3271;3272;, - 3;3273;3274;3275;, - 3;3276;3277;3278;, - 3;3279;3280;3281;, - 3;3282;3283;3284;, - 3;3285;3286;3287;, - 3;3288;3289;3290;, - 3;3291;3292;3293;, - 3;3294;3295;3296;, - 3;3297;3298;3299;, - 3;3300;3301;3302;, - 3;3303;3304;3305;, - 3;3306;3307;3308;, - 3;3309;3310;3311;, - 3;3312;3313;3314;, - 3;3315;3316;3317;, - 3;3318;3319;3320;, - 3;3321;3322;3323;, - 3;3324;3325;3326;, - 3;3327;3328;3329;, - 3;3330;3331;3332;, - 3;3333;3334;3335;, - 3;3336;3337;3338;, - 3;3339;3340;3341;, - 3;3342;3343;3344;, - 3;3345;3346;3347;, - 3;3348;3349;3350;, - 3;3351;3352;3353;, - 3;3354;3355;3356;, - 3;3357;3358;3359;, - 3;3360;3361;3362;, - 3;3363;3364;3365;, - 3;3366;3367;3368;, - 3;3369;3370;3371;, - 3;3372;3373;3374;, - 3;3375;3376;3377;, - 3;3378;3379;3380;, - 3;3381;3382;3383;, - 3;3384;3385;3386;, - 3;3387;3388;3389;, - 3;3390;3391;3392;, - 3;3393;3394;3395;, - 3;3396;3397;3398;, - 3;3399;3400;3401;, - 3;3402;3403;3404;, - 3;3405;3406;3407;, - 3;3408;3409;3410;, - 3;3411;3412;3413;, - 3;3414;3415;3416;, - 3;3417;3418;3419;, - 3;3420;3421;3422;, - 3;3423;3424;3425;, - 3;3426;3427;3428;, - 3;3429;3430;3431;, - 3;3432;3433;3434;, - 3;3435;3436;3437;, - 3;3438;3439;3440;, - 3;3441;3442;3443;, - 3;3444;3445;3446;, - 3;3447;3448;3449;, - 3;3450;3451;3452;, - 3;3453;3454;3455;, - 3;3456;3457;3458;, - 3;3459;3460;3461;, - 3;3462;3463;3464;, - 3;3465;3466;3467;, - 3;3468;3469;3470;, - 3;3471;3472;3473;, - 3;3474;3475;3476;, - 3;3477;3478;3479;, - 3;3480;3481;3482;, - 3;3483;3484;3485;, - 3;3486;3487;3488;, - 3;3489;3490;3491;, - 3;3492;3493;3494;, - 3;3495;3496;3497;, - 3;3498;3499;3500;, - 3;3501;3502;3503;, - 3;3504;3505;3506;, - 3;3507;3508;3509;, - 3;3510;3511;3512;, - 3;3513;3514;3515;, - 3;3516;3517;3518;, - 3;3519;3520;3521;, - 3;3522;3523;3524;, - 3;3525;3526;3527;, - 3;3528;3529;3530;, - 3;3531;3532;3533;, - 3;3534;3535;3536;, - 3;3537;3538;3539;, - 3;3540;3541;3542;, - 3;3543;3544;3545;, - 3;3546;3547;3548;, - 3;3549;3550;3551;, - 3;3552;3553;3554;, - 3;3555;3556;3557;, - 3;3558;3559;3560;, - 3;3561;3562;3563;, - 3;3564;3565;3566;, - 3;3567;3568;3569;, - 3;3570;3571;3572;, - 3;3573;3574;3575;, - 3;3576;3577;3578;, - 3;3579;3580;3581;, - 3;3582;3583;3584;, - 3;3585;3586;3587;, - 3;3588;3589;3590;, - 3;3591;3592;3593;, - 3;3594;3595;3596;, - 3;3597;3598;3599;, - 3;3600;3601;3602;, - 3;3603;3604;3605;, - 3;3606;3607;3608;, - 3;3609;3610;3611;, - 3;3612;3613;3614;, - 3;3615;3616;3617;, - 3;3618;3619;3620;, - 3;3621;3622;3623;, - 3;3624;3625;3626;, - 3;3627;3628;3629;, - 3;3630;3631;3632;, - 3;3633;3634;3635;, - 3;3636;3637;3638;, - 3;3639;3640;3641;, - 3;3642;3643;3644;, - 3;3645;3646;3647;, - 3;3648;3649;3650;, - 3;3651;3652;3653;, - 3;3654;3655;3656;, - 3;3657;3658;3659;, - 3;3660;3661;3662;, - 3;3663;3664;3665;, - 3;3666;3667;3668;, - 3;3669;3670;3671;, - 3;3672;3673;3674;, - 3;3675;3676;3677;, - 3;3678;3679;3680;, - 3;3681;3682;3683;, - 3;3684;3685;3686;, - 3;3687;3688;3689;, - 3;3690;3691;3692;, - 3;3693;3694;3695;, - 3;3696;3697;3698;, - 3;3699;3700;3701;, - 3;3702;3703;3704;, - 3;3705;3706;3707;, - 3;3708;3709;3710;, - 3;3711;3712;3713;, - 3;3714;3715;3716;, - 3;3717;3718;3719;, - 3;3720;3721;3722;, - 3;3723;3724;3725;, - 3;3726;3727;3728;, - 3;3729;3730;3731;, - 3;3732;3733;3734;, - 3;3735;3736;3737;, - 3;3738;3739;3740;, - 3;3741;3742;3743;, - 3;3744;3745;3746;, - 3;3747;3748;3749;, - 3;3750;3751;3752;, - 3;3753;3754;3755;, - 3;3756;3757;3758;, - 3;3759;3760;3761;, - 3;3762;3763;3764;, - 3;3765;3766;3767;, - 3;3768;3769;3770;, - 3;3771;3772;3773;, - 3;3774;3775;3776;, - 3;3777;3778;3779;, - 3;3780;3781;3782;, - 3;3783;3784;3785;, - 3;3786;3787;3788;, - 3;3789;3790;3791;, - 3;3792;3793;3794;, - 3;3795;3796;3797;, - 3;3798;3799;3800;, - 3;3801;3802;3803;, - 3;3804;3805;3806;, - 3;3807;3808;3809;, - 3;3810;3811;3812;, - 3;3813;3814;3815;, - 3;3816;3817;3818;, - 3;3819;3820;3821;, - 3;3822;3823;3824;, - 3;3825;3826;3827;, - 3;3828;3829;3830;, - 3;3831;3832;3833;, - 3;3834;3835;3836;, - 3;3837;3838;3839;, - 3;3840;3841;3842;, - 3;3843;3844;3845;, - 3;3846;3847;3848;, - 3;3849;3850;3851;, - 3;3852;3853;3854;, - 3;3855;3856;3857;, - 3;3858;3859;3860;, - 3;3861;3862;3863;, - 3;3864;3865;3866;, - 3;3867;3868;3869;, - 3;3870;3871;3872;, - 3;3873;3874;3875;, - 3;3876;3877;3878;, - 3;3879;3880;3881;, - 3;3882;3883;3884;, - 3;3885;3886;3887;, - 3;3888;3889;3890;, - 3;3891;3892;3893;, - 3;3894;3895;3896;, - 3;3897;3898;3899;, - 3;3900;3901;3902;, - 3;3903;3904;3905;, - 3;3906;3907;3908;, - 3;3909;3910;3911;, - 3;3912;3913;3914;, - 3;3915;3916;3917;, - 3;3918;3919;3920;, - 3;3921;3922;3923;, - 3;3924;3925;3926;, - 3;3927;3928;3929;, - 3;3930;3931;3932;, - 3;3933;3934;3935;, - 3;3936;3937;3938;, - 3;3939;3940;3941;, - 3;3942;3943;3944;, - 3;3945;3946;3947;, - 3;3948;3949;3950;, - 3;3951;3952;3953;, - 3;3954;3955;3956;, - 3;3957;3958;3959;, - 3;3960;3961;3962;, - 3;3963;3964;3965;, - 3;3966;3967;3968;, - 3;3969;3970;3971;, - 3;3972;3973;3974;, - 3;3975;3976;3977;, - 3;3978;3979;3980;, - 3;3981;3982;3983;, - 3;3984;3985;3986;, - 3;3987;3988;3989;, - 3;3990;3991;3992;, - 3;3993;3994;3995;, - 3;3996;3997;3998;, - 3;3999;4000;4001;, - 3;4002;4003;4004;, - 3;4005;4006;4007;, - 3;4008;4009;4010;, - 3;4011;4012;4013;, - 3;4014;4015;4016;, - 3;4017;4018;4019;, - 3;4020;4021;4022;, - 3;4023;4024;4025;, - 3;4026;4027;4028;, - 3;4029;4030;4031;, - 3;4032;4033;4034;, - 3;4035;4036;4037;, - 3;4038;4039;4040;, - 3;4041;4042;4043;, - 3;4044;4045;4046;, - 3;4047;4048;4049;, - 3;4050;4051;4052;, - 3;4053;4054;4055;, - 3;4056;4057;4058;, - 3;4059;4060;4061;, - 3;4062;4063;4064;, - 3;4065;4066;4067;, - 3;4068;4069;4070;, - 3;4071;4072;4073;, - 3;4074;4075;4076;, - 3;4077;4078;4079;, - 3;4080;4081;4082;, - 3;4083;4084;4085;, - 3;4086;4087;4088;, - 3;4089;4090;4091;, - 3;4092;4093;4094;, - 3;4095;4096;4097;, - 3;4098;4099;4100;, - 3;4101;4102;4103;, - 3;4104;4105;4106;, - 3;4107;4108;4109;, - 3;4110;4111;4112;, - 3;4113;4114;4115;, - 3;4116;4117;4118;, - 3;4119;4120;4121;, - 3;4122;4123;4124;, - 3;4125;4126;4127;, - 3;4128;4129;4130;, - 3;4131;4132;4133;, - 3;4134;4135;4136;, - 3;4137;4138;4139;, - 3;4140;4141;4142;, - 3;4143;4144;4145;, - 3;4146;4147;4148;, - 3;4149;4150;4151;, - 3;4152;4153;4154;, - 3;4155;4156;4157;, - 3;4158;4159;4160;, - 3;4161;4162;4163;, - 3;4164;4165;4166;, - 3;4167;4168;4169;, - 3;4170;4171;4172;, - 3;4173;4174;4175;, - 3;4176;4177;4178;, - 3;4179;4180;4181;, - 3;4182;4183;4184;, - 3;4185;4186;4187;, - 3;4188;4189;4190;, - 3;4191;4192;4193;, - 3;4194;4195;4196;, - 3;4197;4198;4199;, - 3;4200;4201;4202;, - 3;4203;4204;4205;, - 3;4206;4207;4208;, - 3;4209;4210;4211;, - 3;4212;4213;4214;, - 3;4215;4216;4217;, - 3;4218;4219;4220;, - 3;4221;4222;4223;, - 3;4224;4225;4226;, - 3;4227;4228;4229;, - 3;4230;4231;4232;, - 3;4233;4234;4235;, - 3;4236;4237;4238;, - 3;4239;4240;4241;, - 3;4242;4243;4244;, - 3;4245;4246;4247;, - 3;4248;4249;4250;, - 3;4251;4252;4253;, - 3;4254;4255;4256;, - 3;4257;4258;4259;, - 3;4260;4261;4262;, - 3;4263;4264;4265;, - 3;4266;4267;4268;, - 3;4269;4270;4271;, - 3;4272;4273;4274;, - 3;4275;4276;4277;, - 3;4278;4279;4280;, - 3;4281;4282;4283;, - 3;4284;4285;4286;, - 3;4287;4288;4289;, - 3;4290;4291;4292;, - 3;4293;4294;4295;, - 3;4296;4297;4298;, - 3;4299;4300;4301;, - 3;4302;4303;4304;, - 3;4305;4306;4307;, - 3;4308;4309;4310;, - 3;4311;4312;4313;, - 3;4314;4315;4316;, - 3;4317;4318;4319;, - 3;4320;4321;4322;, - 3;4323;4324;4325;, - 3;4326;4327;4328;, - 3;4329;4330;4331;, - 3;4332;4333;4334;, - 3;4335;4336;4337;, - 3;4338;4339;4340;, - 3;4341;4342;4343;, - 3;4344;4345;4346;, - 3;4347;4348;4349;, - 3;4350;4351;4352;, - 3;4353;4354;4355;, - 3;4356;4357;4358;, - 3;4359;4360;4361;, - 3;4362;4363;4364;, - 3;4365;4366;4367;, - 3;4368;4369;4370;, - 3;4371;4372;4373;, - 3;4374;4375;4376;, - 3;4377;4378;4379;, - 3;4380;4381;4382;, - 3;4383;4384;4385;, - 3;4386;4387;4388;, - 3;4389;4390;4391;, - 3;4392;4393;4394;, - 3;4395;4396;4397;, - 3;4398;4399;4400;, - 3;4401;4402;4403;, - 3;4404;4405;4406;, - 3;4407;4408;4409;, - 3;4410;4411;4412;, - 3;4413;4414;4415;, - 3;4416;4417;4418;, - 3;4419;4420;4421;, - 3;4422;4423;4424;, - 3;4425;4426;4427;, - 3;4428;4429;4430;, - 3;4431;4432;4433;, - 3;4434;4435;4436;, - 3;4437;4438;4439;, - 3;4440;4441;4442;, - 3;4443;4444;4445;, - 3;4446;4447;4448;, - 3;4449;4450;4451;, - 3;4452;4453;4454;, - 3;4455;4456;4457;, - 3;4458;4459;4460;, - 3;4461;4462;4463;, - 3;4464;4465;4466;, - 3;4467;4468;4469;, - 3;4470;4471;4472;, - 3;4473;4474;4475;, - 3;4476;4477;4478;, - 3;4479;4480;4481;, - 3;4482;4483;4484;, - 3;4485;4486;4487;, - 3;4488;4489;4490;, - 3;4491;4492;4493;, - 3;4494;4495;4496;, - 3;4497;4498;4499;, - 3;4500;4501;4502;, - 3;4503;4504;4505;, - 3;4506;4507;4508;, - 3;4509;4510;4511;, - 3;4512;4513;4514;, - 3;4515;4516;4517;, - 3;4518;4519;4520;, - 3;4521;4522;4523;, - 3;4524;4525;4526;, - 3;4527;4528;4529;, - 3;4530;4531;4532;, - 3;4533;4534;4535;, - 3;4536;4537;4538;, - 3;4539;4540;4541;, - 3;4542;4543;4544;, - 3;4545;4546;4547;, - 3;4548;4549;4550;, - 3;4551;4552;4553;, - 3;4554;4555;4556;, - 3;4557;4558;4559;, - 3;4560;4561;4562;, - 3;4563;4564;4565;, - 3;4566;4567;4568;, - 3;4569;4570;4571;, - 3;4572;4573;4574;, - 3;4575;4576;4577;, - 3;4578;4579;4580;, - 3;4581;4582;4583;, - 3;4584;4585;4586;, - 3;4587;4588;4589;, - 3;4590;4591;4592;, - 3;4593;4594;4595;, - 3;4596;4597;4598;, - 3;4599;4600;4601;, - 3;4602;4603;4604;, - 3;4605;4606;4607;, - 3;4608;4609;4610;, - 3;4611;4612;4613;, - 3;4614;4615;4616;, - 3;4617;4618;4619;, - 3;4620;4621;4622;, - 3;4623;4624;4625;, - 3;4626;4627;4628;, - 3;4629;4630;4631;, - 3;4632;4633;4634;, - 3;4635;4636;4637;, - 3;4638;4639;4640;, - 3;4641;4642;4643;, - 3;4644;4645;4646;, - 3;4647;4648;4649;, - 3;4650;4651;4652;, - 3;4653;4654;4655;, - 3;4656;4657;4658;, - 3;4659;4660;4661;, - 3;4662;4663;4664;, - 3;4665;4666;4667;, - 3;4668;4669;4670;, - 3;4671;4672;4673;, - 3;4674;4675;4676;, - 3;4677;4678;4679;, - 3;4680;4681;4682;, - 3;4683;4684;4685;, - 3;4686;4687;4688;, - 3;4689;4690;4691;, - 3;4692;4693;4694;, - 3;4695;4696;4697;, - 3;4698;4699;4700;, - 3;4701;4702;4703;, - 3;4704;4705;4706;, - 3;4707;4708;4709;, - 3;4710;4711;4712;, - 3;4713;4714;4715;, - 3;4716;4717;4718;, - 3;4719;4720;4721;, - 3;4722;4723;4724;, - 3;4725;4726;4727;, - 3;4728;4729;4730;, - 3;4731;4732;4733;, - 3;4734;4735;4736;, - 3;4737;4738;4739;, - 3;4740;4741;4742;, - 3;4743;4744;4745;, - 3;4746;4747;4748;, - 3;4749;4750;4751;, - 3;4752;4753;4754;, - 3;4755;4756;4757;, - 3;4758;4759;4760;, - 3;4761;4762;4763;, - 3;4764;4765;4766;, - 3;4767;4768;4769;, - 3;4770;4771;4772;, - 3;4773;4774;4775;, - 3;4776;4777;4778;, - 3;4779;4780;4781;, - 3;4782;4783;4784;, - 3;4785;4786;4787;, - 3;4788;4789;4790;, - 3;4791;4792;4793;, - 3;4794;4795;4796;, - 3;4797;4798;4799;, - 3;4800;4801;4802;, - 3;4803;4804;4805;, - 3;4806;4807;4808;, - 3;4809;4810;4811;, - 3;4812;4813;4814;, - 3;4815;4816;4817;, - 3;4818;4819;4820;, - 3;4821;4822;4823;, - 3;4824;4825;4826;, - 3;4827;4828;4829;, - 3;4830;4831;4832;, - 3;4833;4834;4835;, - 3;4836;4837;4838;, - 3;4839;4840;4841;, - 3;4842;4843;4844;, - 3;4845;4846;4847;, - 3;4848;4849;4850;, - 3;4851;4852;4853;, - 3;4854;4855;4856;, - 3;4857;4858;4859;, - 3;4860;4861;4862;, - 3;4863;4864;4865;, - 3;4866;4867;4868;, - 3;4869;4870;4871;, - 3;4872;4873;4874;, - 3;4875;4876;4877;, - 3;4878;4879;4880;, - 3;4881;4882;4883;, - 3;4884;4885;4886;, - 3;4887;4888;4889;, - 3;4890;4891;4892;, - 3;4893;4894;4895;, - 3;4896;4897;4898;, - 3;4899;4900;4901;, - 3;4902;4903;4904;, - 3;4905;4906;4907;, - 3;4908;4909;4910;, - 3;4911;4912;4913;, - 3;4914;4915;4916;, - 3;4917;4918;4919;, - 3;4920;4921;4922;, - 3;4923;4924;4925;, - 3;4926;4927;4928;, - 3;4929;4930;4931;, - 3;4932;4933;4934;, - 3;4935;4936;4937;, - 3;4938;4939;4940;, - 3;4941;4942;4943;, - 3;4944;4945;4946;, - 3;4947;4948;4949;, - 3;4950;4951;4952;, - 3;4953;4954;4955;, - 3;4956;4957;4958;, - 3;4959;4960;4961;, - 3;4962;4963;4964;, - 3;4965;4966;4967;, - 3;4968;4969;4970;, - 3;4971;4972;4973;, - 3;4974;4975;4976;, - 3;4977;4978;4979;, - 3;4980;4981;4982;, - 3;4983;4984;4985;, - 3;4986;4987;4988;, - 3;4989;4990;4991;, - 3;4992;4993;4994;, - 3;4995;4996;4997;, - 3;4998;4999;5000;, - 3;5001;5002;5003;, - 3;5004;5005;5006;, - 3;5007;5008;5009;, - 3;5010;5011;5012;, - 3;5013;5014;5015;, - 3;5016;5017;5018;, - 3;5019;5020;5021;, - 3;5022;5023;5024;, - 3;5025;5026;5027;, - 3;5028;5029;5030;, - 3;5031;5032;5033;, - 3;5034;5035;5036;, - 3;5037;5038;5039;, - 3;5040;5041;5042;, - 3;5043;5044;5045;, - 3;5046;5047;5048;, - 3;5049;5050;5051;, - 3;5052;5053;5054;, - 3;5055;5056;5057;, - 3;5058;5059;5060;, - 3;5061;5062;5063;, - 3;5064;5065;5066;, - 3;5067;5068;5069;, - 3;5070;5071;5072;, - 3;5073;5074;5075;, - 3;5076;5077;5078;, - 3;5079;5080;5081;, - 3;5082;5083;5084;, - 3;5085;5086;5087;, - 3;5088;5089;5090;, - 3;5091;5092;5093;, - 3;5094;5095;5096;, - 3;5097;5098;5099;, - 3;5100;5101;5102;, - 3;5103;5104;5105;, - 3;5106;5107;5108;, - 3;5109;5110;5111;, - 3;5112;5113;5114;, - 3;5115;5116;5117;, - 3;5118;5119;5120;, - 3;5121;5122;5123;, - 3;5124;5125;5126;, - 3;5127;5128;5129;, - 3;5130;5131;5132;, - 3;5133;5134;5135;, - 3;5136;5137;5138;, - 3;5139;5140;5141;, - 3;5142;5143;5144;, - 3;5145;5146;5147;, - 3;5148;5149;5150;, - 3;5151;5152;5153;, - 3;5154;5155;5156;, - 3;5157;5158;5159;, - 3;5160;5161;5162;, - 3;5163;5164;5165;, - 3;5166;5167;5168;, - 3;5169;5170;5171;, - 3;5172;5173;5174;, - 3;5175;5176;5177;, - 3;5178;5179;5180;, - 3;5181;5182;5183;, - 3;5184;5185;5186;, - 3;5187;5188;5189;, - 3;5190;5191;5192;, - 3;5193;5194;5195;, - 3;5196;5197;5198;, - 3;5199;5200;5201;, - 3;5202;5203;5204;, - 3;5205;5206;5207;, - 3;5208;5209;5210;, - 3;5211;5212;5213;, - 3;5214;5215;5216;, - 3;5217;5218;5219;, - 3;5220;5221;5222;, - 3;5223;5224;5225;, - 3;5226;5227;5228;, - 3;5229;5230;5231;, - 3;5232;5233;5234;, - 3;5235;5236;5237;, - 3;5238;5239;5240;, - 3;5241;5242;5243;, - 3;5244;5245;5246;, - 3;5247;5248;5249;, - 3;5250;5251;5252;, - 3;5253;5254;5255;, - 3;5256;5257;5258;, - 3;5259;5260;5261;, - 3;5262;5263;5264;, - 3;5265;5266;5267;, - 3;5268;5269;5270;, - 3;5271;5272;5273;, - 3;5274;5275;5276;, - 3;5277;5278;5279;, - 3;5280;5281;5282;, - 3;5283;5284;5285;, - 3;5286;5287;5288;, - 3;5289;5290;5291;, - 3;5292;5293;5294;, - 3;5295;5296;5297;, - 3;5298;5299;5300;, - 3;5301;5302;5303;, - 3;5304;5305;5306;, - 3;5307;5308;5309;, - 3;5310;5311;5312;, - 3;5313;5314;5315;, - 3;5316;5317;5318;, - 3;5319;5320;5321;, - 3;5322;5323;5324;, - 3;5325;5326;5327;, - 3;5328;5329;5330;, - 3;5331;5332;5333;, - 3;5334;5335;5336;, - 3;5337;5338;5339;, - 3;5340;5341;5342;, - 3;5343;5344;5345;, - 3;5346;5347;5348;, - 3;5349;5350;5351;, - 3;5352;5353;5354;, - 3;5355;5356;5357;, - 3;5358;5359;5360;, - 3;5361;5362;5363;, - 3;5364;5365;5366;, - 3;5367;5368;5369;, - 3;5370;5371;5372;, - 3;5373;5374;5375;, - 3;5376;5377;5378;, - 3;5379;5380;5381;, - 3;5382;5383;5384;, - 3;5385;5386;5387;, - 3;5388;5389;5390;, - 3;5391;5392;5393;, - 3;5394;5395;5396;, - 3;5397;5398;5399;, - 3;5400;5401;5402;, - 3;5403;5404;5405;, - 3;5406;5407;5408;, - 3;5409;5410;5411;, - 3;5412;5413;5414;, - 3;5415;5416;5417;, - 3;5418;5419;5420;, - 3;5421;5422;5423;, - 3;5424;5425;5426;, - 3;5427;5428;5429;, - 3;5430;5431;5432;, - 3;5433;5434;5435;, - 3;5436;5437;5438;, - 3;5439;5440;5441;, - 3;5442;5443;5444;, - 3;5445;5446;5447;, - 3;5448;5449;5450;, - 3;5451;5452;5453;, - 3;5454;5455;5456;, - 3;5457;5458;5459;, - 3;5460;5461;5462;, - 3;5463;5464;5465;, - 3;5466;5467;5468;, - 3;5469;5470;5471;, - 3;5472;5473;5474;, - 3;5475;5476;5477;, - 3;5478;5479;5480;, - 3;5481;5482;5483;, - 3;5484;5485;5486;, - 3;5487;5488;5489;, - 3;5490;5491;5492;, - 3;5493;5494;5495;, - 3;5496;5497;5498;, - 3;5499;5500;5501;, - 3;5502;5503;5504;, - 3;5505;5506;5507;, - 3;5508;5509;5510;, - 3;5511;5512;5513;, - 3;5514;5515;5516;, - 3;5517;5518;5519;, - 3;5520;5521;5522;, - 3;5523;5524;5525;, - 3;5526;5527;5528;, - 3;5529;5530;5531;, - 3;5532;5533;5534;, - 3;5535;5536;5537;, - 3;5538;5539;5540;, - 3;5541;5542;5543;, - 3;5544;5545;5546;, - 3;5547;5548;5549;, - 3;5550;5551;5552;, - 3;5553;5554;5555;, - 3;5556;5557;5558;, - 3;5559;5560;5561;, - 3;5562;5563;5564;, - 3;5565;5566;5567;, - 3;5568;5569;5570;, - 3;5571;5572;5573;, - 3;5574;5575;5576;, - 3;5577;5578;5579;, - 3;5580;5581;5582;, - 3;5583;5584;5585;, - 3;5586;5587;5588;, - 3;5589;5590;5591;, - 3;5592;5593;5594;, - 3;5595;5596;5597;, - 3;5598;5599;5600;, - 3;5601;5602;5603;, - 3;5604;5605;5606;, - 3;5607;5608;5609;, - 3;5610;5611;5612;, - 3;5613;5614;5615;, - 3;5616;5617;5618;, - 3;5619;5620;5621;, - 3;5622;5623;5624;, - 3;5625;5626;5627;, - 3;5628;5629;5630;, - 3;5631;5632;5633;, - 3;5634;5635;5636;, - 3;5637;5638;5639;, - 3;5640;5641;5642;, - 3;5643;5644;5645;, - 3;5646;5647;5648;, - 3;5649;5650;5651;, - 3;5652;5653;5654;, - 3;5655;5656;5657;, - 3;5658;5659;5660;, - 3;5661;5662;5663;, - 3;5664;5665;5666;, - 3;5667;5668;5669;, - 3;5670;5671;5672;, - 3;5673;5674;5675;, - 3;5676;5677;5678;, - 3;5679;5680;5681;, - 3;5682;5683;5684;, - 3;5685;5686;5687;, - 3;5688;5689;5690;, - 3;5691;5692;5693;, - 3;5694;5695;5696;, - 3;5697;5698;5699;, - 3;5700;5701;5702;, - 3;5703;5704;5705;, - 3;5706;5707;5708;, - 3;5709;5710;5711;, - 3;5712;5713;5714;, - 3;5715;5716;5717;, - 3;5718;5719;5720;, - 3;5721;5722;5723;, - 3;5724;5725;5726;, - 3;5727;5728;5729;, - 3;5730;5731;5732;, - 3;5733;5734;5735;, - 3;5736;5737;5738;, - 3;5739;5740;5741;, - 3;5742;5743;5744;, - 3;5745;5746;5747;, - 3;5748;5749;5750;, - 3;5751;5752;5753;, - 3;5754;5755;5756;, - 3;5757;5758;5759;, - 3;5760;5761;5762;, - 3;5763;5764;5765;, - 3;5766;5767;5768;, - 3;5769;5770;5771;, - 3;5772;5773;5774;, - 3;5775;5776;5777;, - 3;5778;5779;5780;, - 3;5781;5782;5783;, - 3;5784;5785;5786;, - 3;5787;5788;5789;, - 3;5790;5791;5792;, - 3;5793;5794;5795;, - 3;5796;5797;5798;, - 3;5799;5800;5801;, - 3;5802;5803;5804;, - 3;5805;5806;5807;, - 3;5808;5809;5810;, - 3;5811;5812;5813;, - 3;5814;5815;5816;, - 3;5817;5818;5819;, - 3;5820;5821;5822;, - 3;5823;5824;5825;, - 3;5826;5827;5828;, - 3;5829;5830;5831;, - 3;5832;5833;5834;, - 3;5835;5836;5837;, - 3;5838;5839;5840;, - 3;5841;5842;5843;, - 3;5844;5845;5846;, - 3;5847;5848;5849;, - 3;5850;5851;5852;, - 3;5853;5854;5855;, - 3;5856;5857;5858;, - 3;5859;5860;5861;, - 3;5862;5863;5864;, - 3;5865;5866;5867;, - 3;5868;5869;5870;, - 3;5871;5872;5873;, - 3;5874;5875;5876;, - 3;5877;5878;5879;, - 3;5880;5881;5882;, - 3;5883;5884;5885;, - 3;5886;5887;5888;, - 3;5889;5890;5891;, - 3;5892;5893;5894;, - 3;5895;5896;5897;, - 3;5898;5899;5900;, - 3;5901;5902;5903;, - 3;5904;5905;5906;, - 3;5907;5908;5909;, - 3;5910;5911;5912;, - 3;5913;5914;5915;, - 3;5916;5917;5918;, - 3;5919;5920;5921;, - 3;5922;5923;5924;, - 3;5925;5926;5927;, - 3;5928;5929;5930;, - 3;5931;5932;5933;, - 3;5934;5935;5936;, - 3;5937;5938;5939;, - 3;5940;5941;5942;, - 3;5943;5944;5945;, - 3;5946;5947;5948;, - 3;5949;5950;5951;, - 3;5952;5953;5954;, - 3;5955;5956;5957;, - 3;5958;5959;5960;, - 3;5961;5962;5963;, - 3;5964;5965;5966;, - 3;5967;5968;5969;, - 3;5970;5971;5972;, - 3;5973;5974;5975;, - 3;5976;5977;5978;, - 3;5979;5980;5981;, - 3;5982;5983;5984;, - 3;5985;5986;5987;, - 3;5988;5989;5990;, - 3;5991;5992;5993;, - 3;5994;5995;5996;, - 3;5997;5998;5999;, - 3;6000;6001;6002;, - 3;6003;6004;6005;, - 3;6006;6007;6008;, - 3;6009;6010;6011;, - 3;6012;6013;6014;, - 3;6015;6016;6017;, - 3;6018;6019;6020;, - 3;6021;6022;6023;, - 3;6024;6025;6026;, - 3;6027;6028;6029;, - 3;6030;6031;6032;, - 3;6033;6034;6035;, - 3;6036;6037;6038;, - 3;6039;6040;6041;, - 3;6042;6043;6044;, - 3;6045;6046;6047;, - 3;6048;6049;6050;, - 3;6051;6052;6053;, - 3;6054;6055;6056;, - 3;6057;6058;6059;, - 3;6060;6061;6062;, - 3;6063;6064;6065;, - 3;6066;6067;6068;, - 3;6069;6070;6071;, - 3;6072;6073;6074;, - 3;6075;6076;6077;, - 3;6078;6079;6080;, - 3;6081;6082;6083;, - 3;6084;6085;6086;, - 3;6087;6088;6089;, - 3;6090;6091;6092;, - 3;6093;6094;6095;, - 3;6096;6097;6098;, - 3;6099;6100;6101;, - 3;6102;6103;6104;, - 3;6105;6106;6107;, - 3;6108;6109;6110;, - 3;6111;6112;6113;, - 3;6114;6115;6116;, - 3;6117;6118;6119;, - 3;6120;6121;6122;, - 3;6123;6124;6125;, - 3;6126;6127;6128;, - 3;6129;6130;6131;, - 3;6132;6133;6134;, - 3;6135;6136;6137;, - 3;6138;6139;6140;, - 3;6141;6142;6143;, - 3;6144;6145;6146;, - 3;6147;6148;6149;, - 3;6150;6151;6152;, - 3;6153;6154;6155;, - 3;6156;6157;6158;, - 3;6159;6160;6161;, - 3;6162;6163;6164;, - 3;6165;6166;6167;, - 3;6168;6169;6170;, - 3;6171;6172;6173;, - 3;6174;6175;6176;, - 3;6177;6178;6179;, - 3;6180;6181;6182;, - 3;6183;6184;6185;, - 3;6186;6187;6188;, - 3;6189;6190;6191;, - 3;6192;6193;6194;, - 3;6195;6196;6197;, - 3;6198;6199;6200;, - 3;6201;6202;6203;, - 3;6204;6205;6206;, - 3;6207;6208;6209;, - 3;6210;6211;6212;, - 3;6213;6214;6215;, - 3;6216;6217;6218;, - 3;6219;6220;6221;, - 3;6222;6223;6224;, - 3;6225;6226;6227;, - 3;6228;6229;6230;, - 3;6231;6232;6233;, - 3;6234;6235;6236;, - 3;6237;6238;6239;, - 3;6240;6241;6242;, - 3;6243;6244;6245;, - 3;6246;6247;6248;, - 3;6249;6250;6251;, - 3;6252;6253;6254;, - 3;6255;6256;6257;, - 3;6258;6259;6260;, - 3;6261;6262;6263;, - 3;6264;6265;6266;, - 3;6267;6268;6269;, - 3;6270;6271;6272;, - 3;6273;6274;6275;, - 3;6276;6277;6278;, - 3;6279;6280;6281;, - 3;6282;6283;6284;, - 3;6285;6286;6287;, - 3;6288;6289;6290;, - 3;6291;6292;6293;, - 3;6294;6295;6296;, - 3;6297;6298;6299;, - 3;6300;6301;6302;, - 3;6303;6304;6305;, - 3;6306;6307;6308;, - 3;6309;6310;6311;, - 3;6312;6313;6314;, - 3;6315;6316;6317;, - 3;6318;6319;6320;, - 3;6321;6322;6323;, - 3;6324;6325;6326;, - 3;6327;6328;6329;, - 3;6330;6331;6332;, - 3;6333;6334;6335;, - 3;6336;6337;6338;, - 3;6339;6340;6341;, - 3;6342;6343;6344;, - 3;6345;6346;6347;, - 3;6348;6349;6350;, - 3;6351;6352;6353;, - 3;6354;6355;6356;, - 3;6357;6358;6359;, - 3;6360;6361;6362;, - 3;6363;6364;6365;, - 3;6366;6367;6368;, - 3;6369;6370;6371;, - 3;6372;6373;6374;, - 3;6375;6376;6377;, - 3;6378;6379;6380;, - 3;6381;6382;6383;, - 3;6384;6385;6386;, - 3;6387;6388;6389;, - 3;6390;6391;6392;, - 3;6393;6394;6395;, - 3;6396;6397;6398;, - 3;6399;6400;6401;, - 3;6402;6403;6404;, - 3;6405;6406;6407;, - 3;6408;6409;6410;, - 3;6411;6412;6413;, - 3;6414;6415;6416;, - 3;6417;6418;6419;, - 3;6420;6421;6422;, - 3;6423;6424;6425;, - 3;6426;6427;6428;, - 3;6429;6430;6431;, - 3;6432;6433;6434;, - 3;6435;6436;6437;, - 3;6438;6439;6440;, - 3;6441;6442;6443;, - 3;6444;6445;6446;, - 3;6447;6448;6449;, - 3;6450;6451;6452;, - 3;6453;6454;6455;, - 3;6456;6457;6458;, - 3;6459;6460;6461;, - 3;6462;6463;6464;, - 3;6465;6466;6467;, - 3;6468;6469;6470;, - 3;6471;6472;6473;, - 3;6474;6475;6476;, - 3;6477;6478;6479;, - 3;6480;6481;6482;, - 3;6483;6484;6485;, - 3;6486;6487;6488;, - 3;6489;6490;6491;, - 3;6492;6493;6494;, - 3;6495;6496;6497;, - 3;6498;6499;6500;, - 3;6501;6502;6503;, - 3;6504;6505;6506;, - 3;6507;6508;6509;, - 3;6510;6511;6512;, - 3;6513;6514;6515;, - 3;6516;6517;6518;, - 3;6519;6520;6521;, - 3;6522;6523;6524;, - 3;6525;6526;6527;, - 3;6528;6529;6530;, - 3;6531;6532;6533;, - 3;6534;6535;6536;, - 3;6537;6538;6539;, - 3;6540;6541;6542;, - 3;6543;6544;6545;, - 3;6546;6547;6548;, - 3;6549;6550;6551;, - 3;6552;6553;6554;, - 3;6555;6556;6557;, - 3;6558;6559;6560;, - 3;6561;6562;6563;, - 3;6564;6565;6566;, - 3;6567;6568;6569;, - 3;6570;6571;6572;, - 3;6573;6574;6575;, - 3;6576;6577;6578;, - 3;6579;6580;6581;, - 3;6582;6583;6584;, - 3;6585;6586;6587;, - 3;6588;6589;6590;, - 3;6591;6592;6593;, - 3;6594;6595;6596;, - 3;6597;6598;6599;, - 3;6600;6601;6602;, - 3;6603;6604;6605;, - 3;6606;6607;6608;, - 3;6609;6610;6611;, - 3;6612;6613;6614;, - 3;6615;6616;6617;, - 3;6618;6619;6620;, - 3;6621;6622;6623;, - 3;6624;6625;6626;, - 3;6627;6628;6629;, - 3;6630;6631;6632;, - 3;6633;6634;6635;, - 3;6636;6637;6638;, - 3;6639;6640;6641;, - 3;6642;6643;6644;, - 3;6645;6646;6647;, - 3;6648;6649;6650;, - 3;6651;6652;6653;, - 3;6654;6655;6656;, - 3;6657;6658;6659;, - 3;6660;6661;6662;, - 3;6663;6664;6665;, - 3;6666;6667;6668;, - 3;6669;6670;6671;, - 3;6672;6673;6674;, - 3;6675;6676;6677;, - 3;6678;6679;6680;, - 3;6681;6682;6683;, - 3;6684;6685;6686;, - 3;6687;6688;6689;, - 3;6690;6691;6692;, - 3;6693;6694;6695;, - 3;6696;6697;6698;, - 3;6699;6700;6701;, - 3;6702;6703;6704;, - 3;6705;6706;6707;, - 3;6708;6709;6710;, - 3;6711;6712;6713;, - 3;6714;6715;6716;, - 3;6717;6718;6719;, - 3;6720;6721;6722;, - 3;6723;6724;6725;, - 3;6726;6727;6728;, - 3;6729;6730;6731;, - 3;6732;6733;6734;, - 3;6735;6736;6737;, - 3;6738;6739;6740;, - 3;6741;6742;6743;, - 3;6744;6745;6746;, - 3;6747;6748;6749;, - 3;6750;6751;6752;, - 3;6753;6754;6755;, - 3;6756;6757;6758;, - 3;6759;6760;6761;, - 3;6762;6763;6764;, - 3;6765;6766;6767;, - 3;6768;6769;6770;, - 3;6771;6772;6773;, - 3;6774;6775;6776;, - 3;6777;6778;6779;, - 3;6780;6781;6782;, - 3;6783;6784;6785;, - 3;6786;6787;6788;, - 3;6789;6790;6791;, - 3;6792;6793;6794;, - 3;6795;6796;6797;, - 3;6798;6799;6800;, - 3;6801;6802;6803;, - 3;6804;6805;6806;, - 3;6807;6808;6809;, - 3;6810;6811;6812;, - 3;6813;6814;6815;, - 3;6816;6817;6818;, - 3;6819;6820;6821;, - 3;6822;6823;6824;, - 3;6825;6826;6827;, - 3;6828;6829;6830;, - 3;6831;6832;6833;, - 3;6834;6835;6836;, - 3;6837;6838;6839;, - 3;6840;6841;6842;, - 3;6843;6844;6845;, - 3;6846;6847;6848;, - 3;6849;6850;6851;, - 3;6852;6853;6854;, - 3;6855;6856;6857;, - 3;6858;6859;6860;, - 3;6861;6862;6863;, - 3;6864;6865;6866;, - 3;6867;6868;6869;, - 3;6870;6871;6872;, - 3;6873;6874;6875;, - 3;6876;6877;6878;, - 3;6879;6880;6881;, - 3;6882;6883;6884;, - 3;6885;6886;6887;, - 3;6888;6889;6890;, - 3;6891;6892;6893;, - 3;6894;6895;6896;, - 3;6897;6898;6899;, - 3;6900;6901;6902;, - 3;6903;6904;6905;, - 3;6906;6907;6908;, - 3;6909;6910;6911;, - 3;6912;6913;6914;, - 3;6915;6916;6917;, - 3;6918;6919;6920;, - 3;6921;6922;6923;, - 3;6924;6925;6926;, - 3;6927;6928;6929;, - 3;6930;6931;6932;, - 3;6933;6934;6935;, - 3;6936;6937;6938;, - 3;6939;6940;6941;, - 3;6942;6943;6944;, - 3;6945;6946;6947;, - 3;6948;6949;6950;, - 3;6951;6952;6953;, - 3;6954;6955;6956;, - 3;6957;6958;6959;, - 3;6960;6961;6962;, - 3;6963;6964;6965;, - 3;6966;6967;6968;, - 3;6969;6970;6971;, - 3;6972;6973;6974;, - 3;6975;6976;6977;, - 3;6978;6979;6980;, - 3;6981;6982;6983;, - 3;6984;6985;6986;, - 3;6987;6988;6989;, - 3;6990;6991;6992;, - 3;6993;6994;6995;, - 3;6996;6997;6998;, - 3;6999;7000;7001;, - 3;7002;7003;7004;, - 3;7005;7006;7007;, - 3;7008;7009;7010;, - 3;7011;7012;7013;, - 3;7014;7015;7016;, - 3;7017;7018;7019;, - 3;7020;7021;7022;, - 3;7023;7024;7025;, - 3;7026;7027;7028;, - 3;7029;7030;7031;, - 3;7032;7033;7034;, - 3;7035;7036;7037;, - 3;7038;7039;7040;, - 3;7041;7042;7043;, - 3;7044;7045;7046;, - 3;7047;7048;7049;, - 3;7050;7051;7052;, - 3;7053;7054;7055;, - 3;7056;7057;7058;, - 3;7059;7060;7061;, - 3;7062;7063;7064;, - 3;7065;7066;7067;, - 3;7068;7069;7070;, - 3;7071;7072;7073;, - 3;7074;7075;7076;, - 3;7077;7078;7079;, - 3;7080;7081;7082;, - 3;7083;7084;7085;, - 3;7086;7087;7088;, - 3;7089;7090;7091;, - 3;7092;7093;7094;, - 3;7095;7096;7097;, - 3;7098;7099;7100;, - 3;7101;7102;7103;, - 3;7104;7105;7106;, - 3;7107;7108;7109;, - 3;7110;7111;7112;, - 3;7113;7114;7115;, - 3;7116;7117;7118;, - 3;7119;7120;7121;, - 3;7122;7123;7124;, - 3;7125;7126;7127;, - 3;7128;7129;7130;, - 3;7131;7132;7133;, - 3;7134;7135;7136;, - 3;7137;7138;7139;, - 3;7140;7141;7142;, - 3;7143;7144;7145;, - 3;7146;7147;7148;, - 3;7149;7150;7151;, - 3;7152;7153;7154;, - 3;7155;7156;7157;, - 3;7158;7159;7160;, - 3;7161;7162;7163;, - 3;7164;7165;7166;, - 3;7167;7168;7169;, - 3;7170;7171;7172;, - 3;7173;7174;7175;, - 3;7176;7177;7178;, - 3;7179;7180;7181;, - 3;7182;7183;7184;, - 3;7185;7186;7187;, - 3;7188;7189;7190;, - 3;7191;7192;7193;, - 3;7194;7195;7196;, - 3;7197;7198;7199;, - 3;7200;7201;7202;, - 3;7203;7204;7205;, - 3;7206;7207;7208;, - 3;7209;7210;7211;, - 3;7212;7213;7214;, - 3;7215;7216;7217;, - 3;7218;7219;7220;, - 3;7221;7222;7223;, - 3;7224;7225;7226;, - 3;7227;7228;7229;, - 3;7230;7231;7232;, - 3;7233;7234;7235;, - 3;7236;7237;7238;, - 3;7239;7240;7241;, - 3;7242;7243;7244;, - 3;7245;7246;7247;, - 3;7248;7249;7250;, - 3;7251;7252;7253;, - 3;7254;7255;7256;, - 3;7257;7258;7259;, - 3;7260;7261;7262;, - 3;7263;7264;7265;, - 3;7266;7267;7268;, - 3;7269;7270;7271;, - 3;7272;7273;7274;, - 3;7275;7276;7277;, - 3;7278;7279;7280;, - 3;7281;7282;7283;, - 3;7284;7285;7286;, - 3;7287;7288;7289;, - 3;7290;7291;7292;, - 3;7293;7294;7295;, - 3;7296;7297;7298;, - 3;7299;7300;7301;, - 3;7302;7303;7304;, - 3;7305;7306;7307;, - 3;7308;7309;7310;, - 3;7311;7312;7313;, - 3;7314;7315;7316;, - 3;7317;7318;7319;, - 3;7320;7321;7322;, - 3;7323;7324;7325;, - 3;7326;7327;7328;, - 3;7329;7330;7331;, - 3;7332;7333;7334;, - 3;7335;7336;7337;, - 3;7338;7339;7340;, - 3;7341;7342;7343;, - 3;7344;7345;7346;, - 3;7347;7348;7349;, - 3;7350;7351;7352;, - 3;7353;7354;7355;, - 3;7356;7357;7358;, - 3;7359;7360;7361;, - 3;7362;7363;7364;, - 3;7365;7366;7367;, - 3;7368;7369;7370;, - 3;7371;7372;7373;, - 3;7374;7375;7376;, - 3;7377;7378;7379;, - 3;7380;7381;7382;, - 3;7383;7384;7385;, - 3;7386;7387;7388;, - 3;7389;7390;7391;, - 3;7392;7393;7394;, - 3;7395;7396;7397;, - 3;7398;7399;7400;, - 3;7401;7402;7403;, - 3;7404;7405;7406;, - 3;7407;7408;7409;, - 3;7410;7411;7412;, - 3;7413;7414;7415;, - 3;7416;7417;7418;, - 3;7419;7420;7421;, - 3;7422;7423;7424;, - 3;7425;7426;7427;, - 3;7428;7429;7430;, - 3;7431;7432;7433;, - 3;7434;7435;7436;, - 3;7437;7438;7439;, - 3;7440;7441;7442;, - 3;7443;7444;7445;, - 3;7446;7447;7448;, - 3;7449;7450;7451;, - 3;7452;7453;7454;, - 3;7455;7456;7457;, - 3;7458;7459;7460;, - 3;7461;7462;7463;, - 3;7464;7465;7466;, - 3;7467;7468;7469;, - 3;7470;7471;7472;, - 3;7473;7474;7475;, - 3;7476;7477;7478;, - 3;7479;7480;7481;, - 3;7482;7483;7484;, - 3;7485;7486;7487;, - 3;7488;7489;7490;, - 3;7491;7492;7493;, - 3;7494;7495;7496;, - 3;7497;7498;7499;, - 3;7500;7501;7502;, - 3;7503;7504;7505;, - 3;7506;7507;7508;, - 3;7509;7510;7511;, - 3;7512;7513;7514;, - 3;7515;7516;7517;, - 3;7518;7519;7520;, - 3;7521;7522;7523;, - 3;7524;7525;7526;, - 3;7527;7528;7529;, - 3;7530;7531;7532;, - 3;7533;7534;7535;, - 3;7536;7537;7538;, - 3;7539;7540;7541;, - 3;7542;7543;7544;, - 3;7545;7546;7547;, - 3;7548;7549;7550;, - 3;7551;7552;7553;, - 3;7554;7555;7556;, - 3;7557;7558;7559;, - 3;7560;7561;7562;, - 3;7563;7564;7565;, - 3;7566;7567;7568;, - 3;7569;7570;7571;, - 3;7572;7573;7574;, - 3;7575;7576;7577;, - 3;7578;7579;7580;, - 3;7581;7582;7583;, - 3;7584;7585;7586;, - 3;7587;7588;7589;, - 3;7590;7591;7592;, - 3;7593;7594;7595;, - 3;7596;7597;7598;, - 3;7599;7600;7601;, - 3;7602;7603;7604;, - 3;7605;7606;7607;, - 3;7608;7609;7610;, - 3;7611;7612;7613;, - 3;7614;7615;7616;, - 3;7617;7618;7619;, - 3;7620;7621;7622;, - 3;7623;7624;7625;, - 3;7626;7627;7628;, - 3;7629;7630;7631;, - 3;7632;7633;7634;, - 3;7635;7636;7637;, - 3;7638;7639;7640;, - 3;7641;7642;7643;, - 3;7644;7645;7646;, - 3;7647;7648;7649;, - 3;7650;7651;7652;, - 3;7653;7654;7655;, - 3;7656;7657;7658;, - 3;7659;7660;7661;, - 3;7662;7663;7664;, - 3;7665;7666;7667;, - 3;7668;7669;7670;, - 3;7671;7672;7673;, - 3;7674;7675;7676;, - 3;7677;7678;7679;, - 3;7680;7681;7682;, - 3;7683;7684;7685;, - 3;7686;7687;7688;, - 3;7689;7690;7691;, - 3;7692;7693;7694;, - 3;7695;7696;7697;, - 3;7698;7699;7700;, - 3;7701;7702;7703;, - 3;7704;7705;7706;, - 3;7707;7708;7709;, - 3;7710;7711;7712;, - 3;7713;7714;7715;, - 3;7716;7717;7718;, - 3;7719;7720;7721;, - 3;7722;7723;7724;, - 3;7725;7726;7727;, - 3;7728;7729;7730;, - 3;7731;7732;7733;, - 3;7734;7735;7736;, - 3;7737;7738;7739;, - 3;7740;7741;7742;, - 3;7743;7744;7745;, - 3;7746;7747;7748;, - 3;7749;7750;7751;, - 3;7752;7753;7754;, - 3;7755;7756;7757;, - 3;7758;7759;7760;, - 3;7761;7762;7763;, - 3;7764;7765;7766;, - 3;7767;7768;7769;, - 3;7770;7771;7772;, - 3;7773;7774;7775;, - 3;7776;7777;7778;, - 3;7779;7780;7781;, - 3;7782;7783;7784;, - 3;7785;7786;7787;, - 3;7788;7789;7790;, - 3;7791;7792;7793;, - 3;7794;7795;7796;, - 3;7797;7798;7799;, - 3;7800;7801;7802;, - 3;7803;7804;7805;, - 3;7806;7807;7808;, - 3;7809;7810;7811;, - 3;7812;7813;7814;, - 3;7815;7816;7817;, - 3;7818;7819;7820;, - 3;7821;7822;7823;, - 3;7824;7825;7826;, - 3;7827;7828;7829;, - 3;7830;7831;7832;, - 3;7833;7834;7835;, - 3;7836;7837;7838;, - 3;7839;7840;7841;, - 3;7842;7843;7844;, - 3;7845;7846;7847;, - 3;7848;7849;7850;, - 3;7851;7852;7853;, - 3;7854;7855;7856;, - 3;7857;7858;7859;, - 3;7860;7861;7862;, - 3;7863;7864;7865;, - 3;7866;7867;7868;, - 3;7869;7870;7871;, - 3;7872;7873;7874;, - 3;7875;7876;7877;, - 3;7878;7879;7880;, - 3;7881;7882;7883;, - 3;7884;7885;7886;, - 3;7887;7888;7889;, - 3;7890;7891;7892;, - 3;7893;7894;7895;, - 3;7896;7897;7898;, - 3;7899;7900;7901;, - 3;7902;7903;7904;, - 3;7905;7906;7907;, - 3;7908;7909;7910;, - 3;7911;7912;7913;, - 3;7914;7915;7916;, - 3;7917;7918;7919;, - 3;7920;7921;7922;, - 3;7923;7924;7925;, - 3;7926;7927;7928;, - 3;7929;7930;7931;, - 3;7932;7933;7934;, - 3;7935;7936;7937;, - 3;7938;7939;7940;, - 3;7941;7942;7943;, - 3;7944;7945;7946;, - 3;7947;7948;7949;, - 3;7950;7951;7952;, - 3;7953;7954;7955;, - 3;7956;7957;7958;, - 3;7959;7960;7961;, - 3;7962;7963;7964;, - 3;7965;7966;7967;, - 3;7968;7969;7970;, - 3;7971;7972;7973;, - 3;7974;7975;7976;, - 3;7977;7978;7979;, - 3;7980;7981;7982;, - 3;7983;7984;7985;, - 3;7986;7987;7988;, - 3;7989;7990;7991;, - 3;7992;7993;7994;, - 3;7995;7996;7997;, - 3;7998;7999;8000;, - 3;8001;8002;8003;, - 3;8004;8005;8006;, - 3;8007;8008;8009;, - 3;8010;8011;8012;, - 3;8013;8014;8015;, - 3;8016;8017;8018;, - 3;8019;8020;8021;, - 3;8022;8023;8024;, - 3;8025;8026;8027;, - 3;8028;8029;8030;, - 3;8031;8032;8033;, - 3;8034;8035;8036;, - 3;8037;8038;8039;, - 3;8040;8041;8042;, - 3;8043;8044;8045;, - 3;8046;8047;8048;, - 3;8049;8050;8051;, - 3;8052;8053;8054;, - 3;8055;8056;8057;, - 3;8058;8059;8060;, - 3;8061;8062;8063;, - 3;8064;8065;8066;, - 3;8067;8068;8069;, - 3;8070;8071;8072;, - 3;8073;8074;8075;, - 3;8076;8077;8078;, - 3;8079;8080;8081;, - 3;8082;8083;8084;, - 3;8085;8086;8087;, - 3;8088;8089;8090;, - 3;8091;8092;8093;, - 3;8094;8095;8096;, - 3;8097;8098;8099;, - 3;8100;8101;8102;, - 3;8103;8104;8105;, - 3;8106;8107;8108;, - 3;8109;8110;8111;, - 3;8112;8113;8114;, - 3;8115;8116;8117;, - 3;8118;8119;8120;, - 3;8121;8122;8123;, - 3;8124;8125;8126;, - 3;8127;8128;8129;, - 3;8130;8131;8132;, - 3;8133;8134;8135;, - 3;8136;8137;8138;, - 3;8139;8140;8141;, - 3;8142;8143;8144;, - 3;8145;8146;8147;, - 3;8148;8149;8150;, - 3;8151;8152;8153;, - 3;8154;8155;8156;, - 3;8157;8158;8159;, - 3;8160;8161;8162;, - 3;8163;8164;8165;, - 3;8166;8167;8168;, - 3;8169;8170;8171;, - 3;8172;8173;8174;, - 3;8175;8176;8177;, - 3;8178;8179;8180;, - 3;8181;8182;8183;, - 3;8184;8185;8186;, - 3;8187;8188;8189;, - 3;8190;8191;8192;, - 3;8193;8194;8195;, - 3;8196;8197;8198;, - 3;8199;8200;8201;, - 3;8202;8203;8204;, - 3;8205;8206;8207;, - 3;8208;8209;8210;, - 3;8211;8212;8213;, - 3;8214;8215;8216;, - 3;8217;8218;8219;, - 3;8220;8221;8222;, - 3;8223;8224;8225;, - 3;8226;8227;8228;, - 3;8229;8230;8231;, - 3;8232;8233;8234;, - 3;8235;8236;8237;, - 3;8238;8239;8240;, - 3;8241;8242;8243;, - 3;8244;8245;8246;, - 3;8247;8248;8249;, - 3;8250;8251;8252;, - 3;8253;8254;8255;, - 3;8256;8257;8258;, - 3;8259;8260;8261;, - 3;8262;8263;8264;, - 3;8265;8266;8267;, - 3;8268;8269;8270;, - 3;8271;8272;8273;, - 3;8274;8275;8276;, - 3;8277;8278;8279;, - 3;8280;8281;8282;, - 3;8283;8284;8285;, - 3;8286;8287;8288;, - 3;8289;8290;8291;, - 3;8292;8293;8294;, - 3;8295;8296;8297;, - 3;8298;8299;8300;, - 3;8301;8302;8303;, - 3;8304;8305;8306;, - 3;8307;8308;8309;, - 3;8310;8311;8312;, - 3;8313;8314;8315;, - 3;8316;8317;8318;, - 3;8319;8320;8321;, - 3;8322;8323;8324;, - 3;8325;8326;8327;, - 3;8328;8329;8330;, - 3;8331;8332;8333;, - 3;8334;8335;8336;, - 3;8337;8338;8339;, - 3;8340;8341;8342;, - 3;8343;8344;8345;, - 3;8346;8347;8348;, - 3;8349;8350;8351;, - 3;8352;8353;8354;, - 3;8355;8356;8357;, - 3;8358;8359;8360;, - 3;8361;8362;8363;, - 3;8364;8365;8366;, - 3;8367;8368;8369;, - 3;8370;8371;8372;, - 3;8373;8374;8375;, - 3;8376;8377;8378;, - 3;8379;8380;8381;, - 3;8382;8383;8384;, - 3;8385;8386;8387;, - 3;8388;8389;8390;, - 3;8391;8392;8393;, - 3;8394;8395;8396;, - 3;8397;8398;8399;, - 3;8400;8401;8402;, - 3;8403;8404;8405;, - 3;8406;8407;8408;, - 3;8409;8410;8411;, - 3;8412;8413;8414;, - 3;8415;8416;8417;, - 3;8418;8419;8420;, - 3;8421;8422;8423;, - 3;8424;8425;8426;, - 3;8427;8428;8429;, - 3;8430;8431;8432;, - 3;8433;8434;8435;, - 3;8436;8437;8438;, - 3;8439;8440;8441;, - 3;8442;8443;8444;, - 3;8445;8446;8447;, - 3;8448;8449;8450;, - 3;8451;8452;8453;, - 3;8454;8455;8456;, - 3;8457;8458;8459;, - 3;8460;8461;8462;, - 3;8463;8464;8465;, - 3;8466;8467;8468;, - 3;8469;8470;8471;, - 3;8472;8473;8474;, - 3;8475;8476;8477;, - 3;8478;8479;8480;, - 3;8481;8482;8483;, - 3;8484;8485;8486;, - 3;8487;8488;8489;, - 3;8490;8491;8492;, - 3;8493;8494;8495;, - 3;8496;8497;8498;, - 3;8499;8500;8501;, - 3;8502;8503;8504;, - 3;8505;8506;8507;, - 3;8508;8509;8510;, - 3;8511;8512;8513;, - 3;8514;8515;8516;, - 3;8517;8518;8519;, - 3;8520;8521;8522;, - 3;8523;8524;8525;, - 3;8526;8527;8528;, - 3;8529;8530;8531;, - 3;8532;8533;8534;, - 3;8535;8536;8537;, - 3;8538;8539;8540;, - 3;8541;8542;8543;, - 3;8544;8545;8546;, - 3;8547;8548;8549;, - 3;8550;8551;8552;, - 3;8553;8554;8555;, - 3;8556;8557;8558;, - 3;8559;8560;8561;, - 3;8562;8563;8564;, - 3;8565;8566;8567;, - 3;8568;8569;8570;, - 3;8571;8572;8573;, - 3;8574;8575;8576;, - 3;8577;8578;8579;, - 3;8580;8581;8582;, - 3;8583;8584;8585;, - 3;8586;8587;8588;, - 3;8589;8590;8591;, - 3;8592;8593;8594;, - 3;8595;8596;8597;, - 3;8598;8599;8600;, - 3;8601;8602;8603;, - 3;8604;8605;8606;, - 3;8607;8608;8609;, - 3;8610;8611;8612;, - 3;8613;8614;8615;, - 3;8616;8617;8618;, - 3;8619;8620;8621;, - 3;8622;8623;8624;, - 3;8625;8626;8627;, - 3;8628;8629;8630;, - 3;8631;8632;8633;, - 3;8634;8635;8636;, - 3;8637;8638;8639;, - 3;8640;8641;8642;, - 3;8643;8644;8645;, - 3;8646;8647;8648;, - 3;8649;8650;8651;, - 3;8652;8653;8654;, - 3;8655;8656;8657;, - 3;8658;8659;8660;, - 3;8661;8662;8663;, - 3;8664;8665;8666;, - 3;8667;8668;8669;, - 3;8670;8671;8672;, - 3;8673;8674;8675;, - 3;8676;8677;8678;, - 3;8679;8680;8681;, - 3;8682;8683;8684;, - 3;8685;8686;8687;, - 3;8688;8689;8690;, - 3;8691;8692;8693;, - 3;8694;8695;8696;, - 3;8697;8698;8699;, - 3;8700;8701;8702;, - 3;8703;8704;8705;, - 3;8706;8707;8708;, - 3;8709;8710;8711;, - 3;8712;8713;8714;, - 3;8715;8716;8717;, - 3;8718;8719;8720;, - 3;8721;8722;8723;, - 3;8724;8725;8726;, - 3;8727;8728;8729;, - 3;8730;8731;8732;, - 3;8733;8734;8735;, - 3;8736;8737;8738;, - 3;8739;8740;8741;, - 3;8742;8743;8744;, - 3;8745;8746;8747;, - 3;8748;8749;8750;, - 3;8751;8752;8753;, - 3;8754;8755;8756;, - 3;8757;8758;8759;, - 3;8760;8761;8762;, - 3;8763;8764;8765;, - 3;8766;8767;8768;, - 3;8769;8770;8771;, - 3;8772;8773;8774;, - 3;8775;8776;8777;, - 3;8778;8779;8780;, - 3;8781;8782;8783;, - 3;8784;8785;8786;, - 3;8787;8788;8789;, - 3;8790;8791;8792;, - 3;8793;8794;8795;, - 3;8796;8797;8798;, - 3;8799;8800;8801;, - 3;8802;8803;8804;, - 3;8805;8806;8807;, - 3;8808;8809;8810;, - 3;8811;8812;8813;, - 3;8814;8815;8816;, - 3;8817;8818;8819;, - 3;8820;8821;8822;, - 3;8823;8824;8825;, - 3;8826;8827;8828;, - 3;8829;8830;8831;, - 3;8832;8833;8834;, - 3;8835;8836;8837;, - 3;8838;8839;8840;, - 3;8841;8842;8843;, - 3;8844;8845;8846;, - 3;8847;8848;8849;, - 3;8850;8851;8852;, - 3;8853;8854;8855;, - 3;8856;8857;8858;, - 3;8859;8860;8861;, - 3;8862;8863;8864;, - 3;8865;8866;8867;, - 3;8868;8869;8870;, - 3;8871;8872;8873;, - 3;8874;8875;8876;, - 3;8877;8878;8879;, - 3;8880;8881;8882;, - 3;8883;8884;8885;, - 3;8886;8887;8888;, - 3;8889;8890;8891;, - 3;8892;8893;8894;, - 3;8895;8896;8897;, - 3;8898;8899;8900;, - 3;8901;8902;8903;, - 3;8904;8905;8906;, - 3;8907;8908;8909;, - 3;8910;8911;8912;, - 3;8913;8914;8915;, - 3;8916;8917;8918;, - 3;8919;8920;8921;, - 3;8922;8923;8924;, - 3;8925;8926;8927;, - 3;8928;8929;8930;, - 3;8931;8932;8933;, - 3;8934;8935;8936;, - 3;8937;8938;8939;, - 3;8940;8941;8942;, - 3;8943;8944;8945;, - 3;8946;8947;8948;, - 3;8949;8950;8951;, - 3;8952;8953;8954;, - 3;8955;8956;8957;, - 3;8958;8959;8960;, - 3;8961;8962;8963;, - 3;8964;8965;8966;, - 3;8967;8968;8969;, - 3;8970;8971;8972;, - 3;8973;8974;8975;, - 3;8976;8977;8978;, - 3;8979;8980;8981;, - 3;8982;8983;8984;, - 3;8985;8986;8987;, - 3;8988;8989;8990;, - 3;8991;8992;8993;, - 3;8994;8995;8996;, - 3;8997;8998;8999;, - 3;9000;9001;9002;, - 3;9003;9004;9005;, - 3;9006;9007;9008;, - 3;9009;9010;9011;, - 3;9012;9013;9014;, - 3;9015;9016;9017;, - 3;9018;9019;9020;, - 3;9021;9022;9023;, - 3;9024;9025;9026;, - 3;9027;9028;9029;, - 3;9030;9031;9032;, - 3;9033;9034;9035;, - 3;9036;9037;9038;, - 3;9039;9040;9041;, - 3;9042;9043;9044;, - 3;9045;9046;9047;, - 3;9048;9049;9050;, - 3;9051;9052;9053;, - 3;9054;9055;9056;, - 3;9057;9058;9059;, - 3;9060;9061;9062;, - 3;9063;9064;9065;, - 3;9066;9067;9068;, - 3;9069;9070;9071;, - 3;9072;9073;9074;, - 3;9075;9076;9077;, - 3;9078;9079;9080;, - 3;9081;9082;9083;, - 3;9084;9085;9086;, - 3;9087;9088;9089;, - 3;9090;9091;9092;, - 3;9093;9094;9095;, - 3;9096;9097;9098;, - 3;9099;9100;9101;, - 3;9102;9103;9104;, - 3;9105;9106;9107;, - 3;9108;9109;9110;, - 3;9111;9112;9113;, - 3;9114;9115;9116;, - 3;9117;9118;9119;, - 3;9120;9121;9122;, - 3;9123;9124;9125;, - 3;9126;9127;9128;, - 3;9129;9130;9131;, - 3;9132;9133;9134;, - 3;9135;9136;9137;, - 3;9138;9139;9140;, - 3;9141;9142;9143;, - 3;9144;9145;9146;, - 3;9147;9148;9149;, - 3;9150;9151;9152;, - 3;9153;9154;9155;, - 3;9156;9157;9158;, - 3;9159;9160;9161;, - 3;9162;9163;9164;, - 3;9165;9166;9167;, - 3;9168;9169;9170;, - 3;9171;9172;9173;, - 3;9174;9175;9176;, - 3;9177;9178;9179;, - 3;9180;9181;9182;, - 3;9183;9184;9185;, - 3;9186;9187;9188;, - 3;9189;9190;9191;, - 3;9192;9193;9194;, - 3;9195;9196;9197;, - 3;9198;9199;9200;, - 3;9201;9202;9203;, - 3;9204;9205;9206;, - 3;9207;9208;9209;, - 3;9210;9211;9212;, - 3;9213;9214;9215;, - 3;9216;9217;9218;, - 3;9219;9220;9221;, - 3;9222;9223;9224;, - 3;9225;9226;9227;, - 3;9228;9229;9230;, - 3;9231;9232;9233;, - 3;9234;9235;9236;, - 3;9237;9238;9239;, - 3;9240;9241;9242;, - 3;9243;9244;9245;, - 3;9246;9247;9248;, - 3;9249;9250;9251;, - 3;9252;9253;9254;, - 3;9255;9256;9257;, - 3;9258;9259;9260;, - 3;9261;9262;9263;, - 3;9264;9265;9266;, - 3;9267;9268;9269;, - 3;9270;9271;9272;, - 3;9273;9274;9275;, - 3;9276;9277;9278;, - 3;9279;9280;9281;, - 3;9282;9283;9284;, - 3;9285;9286;9287;, - 3;9288;9289;9290;, - 3;9291;9292;9293;, - 3;9294;9295;9296;, - 3;9297;9298;9299;, - 3;9300;9301;9302;, - 3;9303;9304;9305;, - 3;9306;9307;9308;, - 3;9309;9310;9311;, - 3;9312;9313;9314;, - 3;9315;9316;9317;, - 3;9318;9319;9320;, - 3;9321;9322;9323;, - 3;9324;9325;9326;, - 3;9327;9328;9329;, - 3;9330;9331;9332;, - 3;9333;9334;9335;, - 3;9336;9337;9338;, - 3;9339;9340;9341;, - 3;9342;9343;9344;, - 3;9345;9346;9347;, - 3;9348;9349;9350;, - 3;9351;9352;9353;, - 3;9354;9355;9356;, - 3;9357;9358;9359;, - 3;9360;9361;9362;, - 3;9363;9364;9365;, - 3;9366;9367;9368;, - 3;9369;9370;9371;, - 3;9372;9373;9374;, - 3;9375;9376;9377;, - 3;9378;9379;9380;, - 3;9381;9382;9383;, - 3;9384;9385;9386;, - 3;9387;9388;9389;, - 3;9390;9391;9392;, - 3;9393;9394;9395;, - 3;9396;9397;9398;, - 3;9399;9400;9401;, - 3;9402;9403;9404;, - 3;9405;9406;9407;, - 3;9408;9409;9410;, - 3;9411;9412;9413;, - 3;9414;9415;9416;, - 3;9417;9418;9419;, - 3;9420;9421;9422;, - 3;9423;9424;9425;, - 3;9426;9427;9428;, - 3;9429;9430;9431;, - 3;9432;9433;9434;, - 3;9435;9436;9437;, - 3;9438;9439;9440;, - 3;9441;9442;9443;, - 3;9444;9445;9446;, - 3;9447;9448;9449;, - 3;9450;9451;9452;, - 3;9453;9454;9455;, - 3;9456;9457;9458;, - 3;9459;9460;9461;, - 3;9462;9463;9464;, - 3;9465;9466;9467;, - 3;9468;9469;9470;, - 3;9471;9472;9473;, - 3;9474;9475;9476;, - 3;9477;9478;9479;, - 3;9480;9481;9482;, - 3;9483;9484;9485;, - 3;9486;9487;9488;, - 3;9489;9490;9491;, - 3;9492;9493;9494;, - 3;9495;9496;9497;, - 3;9498;9499;9500;, - 3;9501;9502;9503;, - 3;9504;9505;9506;, - 3;9507;9508;9509;, - 3;9510;9511;9512;, - 3;9513;9514;9515;, - 3;9516;9517;9518;, - 3;9519;9520;9521;, - 3;9522;9523;9524;, - 3;9525;9526;9527;, - 3;9528;9529;9530;, - 3;9531;9532;9533;, - 3;9534;9535;9536;, - 3;9537;9538;9539;, - 3;9540;9541;9542;, - 3;9543;9544;9545;, - 3;9546;9547;9548;, - 3;9549;9550;9551;, - 3;9552;9553;9554;, - 3;9555;9556;9557;, - 3;9558;9559;9560;, - 3;9561;9562;9563;, - 3;9564;9565;9566;, - 3;9567;9568;9569;, - 3;9570;9571;9572;, - 3;9573;9574;9575;, - 3;9576;9577;9578;, - 3;9579;9580;9581;, - 3;9582;9583;9584;, - 3;9585;9586;9587;, - 3;9588;9589;9590;, - 3;9591;9592;9593;, - 3;9594;9595;9596;, - 3;9597;9598;9599;, - 3;9600;9601;9602;, - 3;9603;9604;9605;, - 3;9606;9607;9608;, - 3;9609;9610;9611;, - 3;9612;9613;9614;, - 3;9615;9616;9617;, - 3;9618;9619;9620;, - 3;9621;9622;9623;, - 3;9624;9625;9626;, - 3;9627;9628;9629;, - 3;9630;9631;9632;, - 3;9633;9634;9635;, - 3;9636;9637;9638;, - 3;9639;9640;9641;, - 3;9642;9643;9644;, - 3;9645;9646;9647;, - 3;9648;9649;9650;, - 3;9651;9652;9653;, - 3;9654;9655;9656;, - 3;9657;9658;9659;, - 3;9660;9661;9662;, - 3;9663;9664;9665;, - 3;9666;9667;9668;, - 3;9669;9670;9671;, - 3;9672;9673;9674;, - 3;9675;9676;9677;, - 3;9678;9679;9680;, - 3;9681;9682;9683;, - 3;9684;9685;9686;, - 3;9687;9688;9689;, - 3;9690;9691;9692;, - 3;9693;9694;9695;, - 3;9696;9697;9698;, - 3;9699;9700;9701;, - 3;9702;9703;9704;, - 3;9705;9706;9707;, - 3;9708;9709;9710;, - 3;9711;9712;9713;, - 3;9714;9715;9716;, - 3;9717;9718;9719;, - 3;9720;9721;9722;, - 3;9723;9724;9725;, - 3;9726;9727;9728;, - 3;9729;9730;9731;, - 3;9732;9733;9734;, - 3;9735;9736;9737;, - 3;9738;9739;9740;, - 3;9741;9742;9743;, - 3;9744;9745;9746;, - 3;9747;9748;9749;, - 3;9750;9751;9752;, - 3;9753;9754;9755;, - 3;9756;9757;9758;, - 3;9759;9760;9761;, - 3;9762;9763;9764;, - 3;9765;9766;9767;, - 3;9768;9769;9770;, - 3;9771;9772;9773;, - 3;9774;9775;9776;, - 3;9777;9778;9779;, - 3;9780;9781;9782;, - 3;9783;9784;9785;, - 3;9786;9787;9788;, - 3;9789;9790;9791;, - 3;9792;9793;9794;, - 3;9795;9796;9797;, - 3;9798;9799;9800;, - 3;9801;9802;9803;, - 3;9804;9805;9806;, - 3;9807;9808;9809;, - 3;9810;9811;9812;, - 3;9813;9814;9815;, - 3;9816;9817;9818;, - 3;9819;9820;9821;, - 3;9822;9823;9824;, - 3;9825;9826;9827;, - 3;9828;9829;9830;, - 3;9831;9832;9833;, - 3;9834;9835;9836;, - 3;9837;9838;9839;, - 3;9840;9841;9842;, - 3;9843;9844;9845;, - 3;9846;9847;9848;, - 3;9849;9850;9851;, - 3;9852;9853;9854;, - 3;9855;9856;9857;, - 3;9858;9859;9860;, - 3;9861;9862;9863;, - 3;9864;9865;9866;, - 3;9867;9868;9869;, - 3;9870;9871;9872;, - 3;9873;9874;9875;, - 3;9876;9877;9878;, - 3;9879;9880;9881;, - 3;9882;9883;9884;, - 3;9885;9886;9887;, - 3;9888;9889;9890;, - 3;9891;9892;9893;, - 3;9894;9895;9896;, - 3;9897;9898;9899;, - 3;9900;9901;9902;, - 3;9903;9904;9905;, - 3;9906;9907;9908;, - 3;9909;9910;9911;, - 3;9912;9913;9914;, - 3;9915;9916;9917;, - 3;9918;9919;9920;, - 3;9921;9922;9923;, - 3;9924;9925;9926;, - 3;9927;9928;9929;, - 3;9930;9931;9932;, - 3;9933;9934;9935;, - 3;9936;9937;9938;, - 3;9939;9940;9941;, - 3;9942;9943;9944;, - 3;9945;9946;9947;, - 3;9948;9949;9950;, - 3;9951;9952;9953;, - 3;9954;9955;9956;, - 3;9957;9958;9959;, - 3;9960;9961;9962;, - 3;9963;9964;9965;, - 3;9966;9967;9968;, - 3;9969;9970;9971;, - 3;9972;9973;9974;, - 3;9975;9976;9977;, - 3;9978;9979;9980;, - 3;9981;9982;9983;, - 3;9984;9985;9986;, - 3;9987;9988;9989;, - 3;9990;9991;9992;, - 3;9993;9994;9995;, - 3;9996;9997;9998;, - 3;9999;10000;10001;, - 3;10002;10003;10004;, - 3;10005;10006;10007;, - 3;10008;10009;10010;, - 3;10011;10012;10013;, - 3;10014;10015;10016;, - 3;10017;10018;10019;, - 3;10020;10021;10022;, - 3;10023;10024;10025;, - 3;10026;10027;10028;, - 3;10029;10030;10031;, - 3;10032;10033;10034;, - 3;10035;10036;10037;, - 3;10038;10039;10040;, - 3;10041;10042;10043;, - 3;10044;10045;10046;, - 3;10047;10048;10049;, - 3;10050;10051;10052;, - 3;10053;10054;10055;, - 3;10056;10057;10058;, - 3;10059;10060;10061;, - 3;10062;10063;10064;, - 3;10065;10066;10067;, - 3;10068;10069;10070;, - 3;10071;10072;10073;, - 3;10074;10075;10076;, - 3;10077;10078;10079;, - 3;10080;10081;10082;, - 3;10083;10084;10085;, - 3;10086;10087;10088;, - 3;10089;10090;10091;, - 3;10092;10093;10094;, - 3;10095;10096;10097;, - 3;10098;10099;10100;, - 3;10101;10102;10103;, - 3;10104;10105;10106;, - 3;10107;10108;10109;, - 3;10110;10111;10112;, - 3;10113;10114;10115;, - 3;10116;10117;10118;, - 3;10119;10120;10121;, - 3;10122;10123;10124;, - 3;10125;10126;10127;, - 3;10128;10129;10130;, - 3;10131;10132;10133;, - 3;10134;10135;10136;, - 3;10137;10138;10139;, - 3;10140;10141;10142;, - 3;10143;10144;10145;, - 3;10146;10147;10148;, - 3;10149;10150;10151;, - 3;10152;10153;10154;, - 3;10155;10156;10157;, - 3;10158;10159;10160;, - 3;10161;10162;10163;, - 3;10164;10165;10166;, - 3;10167;10168;10169;, - 3;10170;10171;10172;, - 3;10173;10174;10175;, - 3;10176;10177;10178;, - 3;10179;10180;10181;, - 3;10182;10183;10184;, - 3;10185;10186;10187;, - 3;10188;10189;10190;, - 3;10191;10192;10193;, - 3;10194;10195;10196;, - 3;10197;10198;10199;, - 3;10200;10201;10202;, - 3;10203;10204;10205;, - 3;10206;10207;10208;, - 3;10209;10210;10211;, - 3;10212;10213;10214;, - 3;10215;10216;10217;, - 3;10218;10219;10220;, - 3;10221;10222;10223;, - 3;10224;10225;10226;, - 3;10227;10228;10229;, - 3;10230;10231;10232;, - 3;10233;10234;10235;, - 3;10236;10237;10238;, - 3;10239;10240;10241;, - 3;10242;10243;10244;, - 3;10245;10246;10247;, - 3;10248;10249;10250;, - 3;10251;10252;10253;, - 3;10254;10255;10256;, - 3;10257;10258;10259;, - 3;10260;10261;10262;, - 3;10263;10264;10265;, - 3;10266;10267;10268;, - 3;10269;10270;10271;, - 3;10272;10273;10274;, - 3;10275;10276;10277;, - 3;10278;10279;10280;, - 3;10281;10282;10283;, - 3;10284;10285;10286;, - 3;10287;10288;10289;, - 3;10290;10291;10292;, - 3;10293;10294;10295;, - 3;10296;10297;10298;, - 3;10299;10300;10301;, - 3;10302;10303;10304;, - 3;10305;10306;10307;, - 3;10308;10309;10310;, - 3;10311;10312;10313;, - 3;10314;10315;10316;, - 3;10317;10318;10319;, - 3;10320;10321;10322;, - 3;10323;10324;10325;, - 3;10326;10327;10328;, - 3;10329;10330;10331;, - 3;10332;10333;10334;, - 3;10335;10336;10337;, - 3;10338;10339;10340;, - 3;10341;10342;10343;, - 3;10344;10345;10346;, - 3;10347;10348;10349;, - 3;10350;10351;10352;, - 3;10353;10354;10355;, - 3;10356;10357;10358;, - 3;10359;10360;10361;, - 3;10362;10363;10364;, - 3;10365;10366;10367;, - 3;10368;10369;10370;, - 3;10371;10372;10373;, - 3;10374;10375;10376;, - 3;10377;10378;10379;, - 3;10380;10381;10382;, - 3;10383;10384;10385;, - 3;10386;10387;10388;, - 3;10389;10390;10391;, - 3;10392;10393;10394;, - 3;10395;10396;10397;, - 3;10398;10399;10400;, - 3;10401;10402;10403;, - 3;10404;10405;10406;, - 3;10407;10408;10409;, - 3;10410;10411;10412;, - 3;10413;10414;10415;, - 3;10416;10417;10418;, - 3;10419;10420;10421;, - 3;10422;10423;10424;, - 3;10425;10426;10427;, - 3;10428;10429;10430;, - 3;10431;10432;10433;, - 3;10434;10435;10436;, - 3;10437;10438;10439;, - 3;10440;10441;10442;, - 3;10443;10444;10445;, - 3;10446;10447;10448;, - 3;10449;10450;10451;, - 3;10452;10453;10454;, - 3;10455;10456;10457;, - 3;10458;10459;10460;, - 3;10461;10462;10463;, - 3;10464;10465;10466;, - 3;10467;10468;10469;, - 3;10470;10471;10472;, - 3;10473;10474;10475;, - 3;10476;10477;10478;, - 3;10479;10480;10481;, - 3;10482;10483;10484;, - 3;10485;10486;10487;, - 3;10488;10489;10490;, - 3;10491;10492;10493;, - 3;10494;10495;10496;, - 3;10497;10498;10499;, - 3;10500;10501;10502;, - 3;10503;10504;10505;, - 3;10506;10507;10508;, - 3;10509;10510;10511;, - 3;10512;10513;10514;, - 3;10515;10516;10517;, - 3;10518;10519;10520;, - 3;10521;10522;10523;, - 3;10524;10525;10526;, - 3;10527;10528;10529;, - 3;10530;10531;10532;, - 3;10533;10534;10535;, - 3;10536;10537;10538;, - 3;10539;10540;10541;, - 3;10542;10543;10544;, - 3;10545;10546;10547;, - 3;10548;10549;10550;, - 3;10551;10552;10553;, - 3;10554;10555;10556;, - 3;10557;10558;10559;, - 3;10560;10561;10562;, - 3;10563;10564;10565;, - 3;10566;10567;10568;, - 3;10569;10570;10571;, - 3;10572;10573;10574;, - 3;10575;10576;10577;, - 3;10578;10579;10580;, - 3;10581;10582;10583;, - 3;10584;10585;10586;, - 3;10587;10588;10589;, - 3;10590;10591;10592;, - 3;10593;10594;10595;, - 3;10596;10597;10598;, - 3;10599;10600;10601;, - 3;10602;10603;10604;, - 3;10605;10606;10607;, - 3;10608;10609;10610;, - 3;10611;10612;10613;, - 3;10614;10615;10616;, - 3;10617;10618;10619;, - 3;10620;10621;10622;, - 3;10623;10624;10625;, - 3;10626;10627;10628;, - 3;10629;10630;10631;, - 3;10632;10633;10634;, - 3;10635;10636;10637;, - 3;10638;10639;10640;, - 3;10641;10642;10643;, - 3;10644;10645;10646;, - 3;10647;10648;10649;, - 3;10650;10651;10652;, - 3;10653;10654;10655;, - 3;10656;10657;10658;, - 3;10659;10660;10661;, - 3;10662;10663;10664;, - 3;10665;10666;10667;, - 3;10668;10669;10670;, - 3;10671;10672;10673;, - 3;10674;10675;10676;, - 3;10677;10678;10679;, - 3;10680;10681;10682;, - 3;10683;10684;10685;, - 3;10686;10687;10688;, - 3;10689;10690;10691;, - 3;10692;10693;10694;, - 3;10695;10696;10697;, - 3;10698;10699;10700;, - 3;10701;10702;10703;, - 3;10704;10705;10706;, - 3;10707;10708;10709;, - 3;10710;10711;10712;, - 3;10713;10714;10715;, - 3;10716;10717;10718;, - 3;10719;10720;10721;, - 3;10722;10723;10724;, - 3;10725;10726;10727;, - 3;10728;10729;10730;, - 3;10731;10732;10733;, - 3;10734;10735;10736;, - 3;10737;10738;10739;, - 3;10740;10741;10742;, - 3;10743;10744;10745;, - 3;10746;10747;10748;, - 3;10749;10750;10751;, - 3;10752;10753;10754;, - 3;10755;10756;10757;, - 3;10758;10759;10760;, - 3;10761;10762;10763;, - 3;10764;10765;10766;, - 3;10767;10768;10769;, - 3;10770;10771;10772;, - 3;10773;10774;10775;, - 3;10776;10777;10778;, - 3;10779;10780;10781;, - 3;10782;10783;10784;, - 3;10785;10786;10787;, - 3;10788;10789;10790;, - 3;10791;10792;10793;, - 3;10794;10795;10796;, - 3;10797;10798;10799;, - 3;10800;10801;10802;, - 3;10803;10804;10805;, - 3;10806;10807;10808;, - 3;10809;10810;10811;, - 3;10812;10813;10814;, - 3;10815;10816;10817;, - 3;10818;10819;10820;, - 3;10821;10822;10823;, - 3;10824;10825;10826;, - 3;10827;10828;10829;, - 3;10830;10831;10832;, - 3;10833;10834;10835;, - 3;10836;10837;10838;, - 3;10839;10840;10841;, - 3;10842;10843;10844;, - 3;10845;10846;10847;, - 3;10848;10849;10850;, - 3;10851;10852;10853;, - 3;10854;10855;10856;, - 3;10857;10858;10859;, - 3;10860;10861;10862;, - 3;10863;10864;10865;, - 3;10866;10867;10868;, - 3;10869;10870;10871;, - 3;10872;10873;10874;, - 3;10875;10876;10877;, - 3;10878;10879;10880;, - 3;10881;10882;10883;, - 3;10884;10885;10886;, - 3;10887;10888;10889;, - 3;10890;10891;10892;, - 3;10893;10894;10895;, - 3;10896;10897;10898;, - 3;10899;10900;10901;, - 3;10902;10903;10904;, - 3;10905;10906;10907;, - 3;10908;10909;10910;, - 3;10911;10912;10913;, - 3;10914;10915;10916;, - 3;10917;10918;10919;, - 3;10920;10921;10922;, - 3;10923;10924;10925;, - 3;10926;10927;10928;, - 3;10929;10930;10931;, - 3;10932;10933;10934;, - 3;10935;10936;10937;, - 3;10938;10939;10940;, - 3;10941;10942;10943;, - 3;10944;10945;10946;, - 3;10947;10948;10949;, - 3;10950;10951;10952;, - 3;10953;10954;10955;, - 3;10956;10957;10958;, - 3;10959;10960;10961;, - 3;10962;10963;10964;, - 3;10965;10966;10967;, - 3;10968;10969;10970;, - 3;10971;10972;10973;, - 3;10974;10975;10976;, - 3;10977;10978;10979;, - 3;10980;10981;10982;, - 3;10983;10984;10985;, - 3;10986;10987;10988;, - 3;10989;10990;10991;, - 3;10992;10993;10994;, - 3;10995;10996;10997;, - 3;10998;10999;11000;, - 3;11001;11002;11003;, - 3;11004;11005;11006;, - 3;11007;11008;11009;, - 3;11010;11011;11012;, - 3;11013;11014;11015;, - 3;11016;11017;11018;, - 3;11019;11020;11021;, - 3;11022;11023;11024;, - 3;11025;11026;11027;, - 3;11028;11029;11030;, - 3;11031;11032;11033;, - 3;11034;11035;11036;, - 3;11037;11038;11039;, - 3;11040;11041;11042;, - 3;11043;11044;11045;, - 3;11046;11047;11048;, - 3;11049;11050;11051;, - 3;11052;11053;11054;, - 3;11055;11056;11057;, - 3;11058;11059;11060;, - 3;11061;11062;11063;, - 3;11064;11065;11066;, - 3;11067;11068;11069;, - 3;11070;11071;11072;, - 3;11073;11074;11075;, - 3;11076;11077;11078;, - 3;11079;11080;11081;, - 3;11082;11083;11084;, - 3;11085;11086;11087;, - 3;11088;11089;11090;, - 3;11091;11092;11093;, - 3;11094;11095;11096;, - 3;11097;11098;11099;, - 3;11100;11101;11102;, - 3;11103;11104;11105;, - 3;11106;11107;11108;, - 3;11109;11110;11111;, - 3;11112;11113;11114;, - 3;11115;11116;11117;, - 3;11118;11119;11120;, - 3;11121;11122;11123;, - 3;11124;11125;11126;, - 3;11127;11128;11129;, - 3;11130;11131;11132;, - 3;11133;11134;11135;, - 3;11136;11137;11138;, - 3;11139;11140;11141;, - 3;11142;11143;11144;, - 3;11145;11146;11147;, - 3;11148;11149;11150;, - 3;11151;11152;11153;, - 3;11154;11155;11156;, - 3;11157;11158;11159;, - 3;11160;11161;11162;, - 3;11163;11164;11165;, - 3;11166;11167;11168;, - 3;11169;11170;11171;, - 3;11172;11173;11174;, - 3;11175;11176;11177;, - 3;11178;11179;11180;, - 3;11181;11182;11183;, - 3;11184;11185;11186;, - 3;11187;11188;11189;, - 3;11190;11191;11192;, - 3;11193;11194;11195;, - 3;11196;11197;11198;, - 3;11199;11200;11201;, - 3;11202;11203;11204;, - 3;11205;11206;11207;, - 3;11208;11209;11210;, - 3;11211;11212;11213;, - 3;11214;11215;11216;, - 3;11217;11218;11219;, - 3;11220;11221;11222;, - 3;11223;11224;11225;, - 3;11226;11227;11228;, - 3;11229;11230;11231;, - 3;11232;11233;11234;, - 3;11235;11236;11237;, - 3;11238;11239;11240;, - 3;11241;11242;11243;, - 3;11244;11245;11246;, - 3;11247;11248;11249;, - 3;11250;11251;11252;, - 3;11253;11254;11255;, - 3;11256;11257;11258;, - 3;11259;11260;11261;, - 3;11262;11263;11264;, - 3;11265;11266;11267;, - 3;11268;11269;11270;, - 3;11271;11272;11273;, - 3;11274;11275;11276;, - 3;11277;11278;11279;, - 3;11280;11281;11282;, - 3;11283;11284;11285;, - 3;11286;11287;11288;, - 3;11289;11290;11291;, - 3;11292;11293;11294;, - 3;11295;11296;11297;, - 3;11298;11299;11300;, - 3;11301;11302;11303;, - 3;11304;11305;11306;, - 3;11307;11308;11309;, - 3;11310;11311;11312;, - 3;11313;11314;11315;, - 3;11316;11317;11318;, - 3;11319;11320;11321;, - 3;11322;11323;11324;, - 3;11325;11326;11327;, - 3;11328;11329;11330;, - 3;11331;11332;11333;, - 3;11334;11335;11336;, - 3;11337;11338;11339;, - 3;11340;11341;11342;, - 3;11343;11344;11345;, - 3;11346;11347;11348;, - 3;11349;11350;11351;, - 3;11352;11353;11354;, - 3;11355;11356;11357;, - 3;11358;11359;11360;, - 3;11361;11362;11363;, - 3;11364;11365;11366;, - 3;11367;11368;11369;, - 3;11370;11371;11372;, - 3;11373;11374;11375;, - 3;11376;11377;11378;, - 3;11379;11380;11381;, - 3;11382;11383;11384;, - 3;11385;11386;11387;, - 3;11388;11389;11390;, - 3;11391;11392;11393;, - 3;11394;11395;11396;, - 3;11397;11398;11399;, - 3;11400;11401;11402;, - 3;11403;11404;11405;, - 3;11406;11407;11408;, - 3;11409;11410;11411;, - 3;11412;11413;11414;, - 3;11415;11416;11417;, - 3;11418;11419;11420;, - 3;11421;11422;11423;, - 3;11424;11425;11426;, - 3;11427;11428;11429;, - 3;11430;11431;11432;, - 3;11433;11434;11435;, - 3;11436;11437;11438;, - 3;11439;11440;11441;, - 3;11442;11443;11444;, - 3;11445;11446;11447;, - 3;11448;11449;11450;, - 3;11451;11452;11453;, - 3;11454;11455;11456;, - 3;11457;11458;11459;, - 3;11460;11461;11462;, - 3;11463;11464;11465;, - 3;11466;11467;11468;, - 3;11469;11470;11471;, - 3;11472;11473;11474;, - 3;11475;11476;11477;, - 3;11478;11479;11480;, - 3;11481;11482;11483;, - 3;11484;11485;11486;, - 3;11487;11488;11489;, - 3;11490;11491;11492;, - 3;11493;11494;11495;, - 3;11496;11497;11498;, - 3;11499;11500;11501;, - 3;11502;11503;11504;, - 3;11505;11506;11507;, - 3;11508;11509;11510;, - 3;11511;11512;11513;, - 3;11514;11515;11516;, - 3;11517;11518;11519;, - 3;11520;11521;11522;, - 3;11523;11524;11525;, - 3;11526;11527;11528;, - 3;11529;11530;11531;, - 3;11532;11533;11534;, - 3;11535;11536;11537;, - 3;11538;11539;11540;, - 3;11541;11542;11543;, - 3;11544;11545;11546;, - 3;11547;11548;11549;, - 3;11550;11551;11552;, - 3;11553;11554;11555;, - 3;11556;11557;11558;, - 3;11559;11560;11561;, - 3;11562;11563;11564;, - 3;11565;11566;11567;, - 3;11568;11569;11570;, - 3;11571;11572;11573;, - 3;11574;11575;11576;, - 3;11577;11578;11579;, - 3;11580;11581;11582;, - 3;11583;11584;11585;, - 3;11586;11587;11588;, - 3;11589;11590;11591;, - 3;11592;11593;11594;, - 3;11595;11596;11597;, - 3;11598;11599;11600;, - 3;11601;11602;11603;, - 3;11604;11605;11606;, - 3;11607;11608;11609;, - 3;11610;11611;11612;, - 3;11613;11614;11615;, - 3;11616;11617;11618;, - 3;11619;11620;11621;, - 3;11622;11623;11624;, - 3;11625;11626;11627;, - 3;11628;11629;11630;, - 3;11631;11632;11633;, - 3;11634;11635;11636;, - 3;11637;11638;11639;, - 3;11640;11641;11642;, - 3;11643;11644;11645;, - 3;11646;11647;11648;, - 3;11649;11650;11651;, - 3;11652;11653;11654;, - 3;11655;11656;11657;, - 3;11658;11659;11660;, - 3;11661;11662;11663;, - 3;11664;11665;11666;, - 3;11667;11668;11669;, - 3;11670;11671;11672;, - 3;11673;11674;11675;, - 3;11676;11677;11678;, - 3;11679;11680;11681;, - 3;11682;11683;11684;, - 3;11685;11686;11687;, - 3;11688;11689;11690;, - 3;11691;11692;11693;, - 3;11694;11695;11696;, - 3;11697;11698;11699;, - 3;11700;11701;11702;, - 3;11703;11704;11705;, - 3;11706;11707;11708;, - 3;11709;11710;11711;, - 3;11712;11713;11714;, - 3;11715;11716;11717;, - 3;11718;11719;11720;, - 3;11721;11722;11723;, - 3;11724;11725;11726;, - 3;11727;11728;11729;, - 3;11730;11731;11732;, - 3;11733;11734;11735;, - 3;11736;11737;11738;, - 3;11739;11740;11741;, - 3;11742;11743;11744;, - 3;11745;11746;11747;, - 3;11748;11749;11750;, - 3;11751;11752;11753;, - 3;11754;11755;11756;, - 3;11757;11758;11759;, - 3;11760;11761;11762;, - 3;11763;11764;11765;, - 3;11766;11767;11768;, - 3;11769;11770;11771;, - 3;11772;11773;11774;, - 3;11775;11776;11777;, - 3;11778;11779;11780;, - 3;11781;11782;11783;, - 3;11784;11785;11786;, - 3;11787;11788;11789;, - 3;11790;11791;11792;, - 3;11793;11794;11795;, - 3;11796;11797;11798;, - 3;11799;11800;11801;, - 3;11802;11803;11804;, - 3;11805;11806;11807;, - 3;11808;11809;11810;, - 3;11811;11812;11813;, - 3;11814;11815;11816;, - 3;11817;11818;11819;, - 3;11820;11821;11822;, - 3;11823;11824;11825;, - 3;11826;11827;11828;, - 3;11829;11830;11831;, - 3;11832;11833;11834;, - 3;11835;11836;11837;, - 3;11838;11839;11840;, - 3;11841;11842;11843;, - 3;11844;11845;11846;, - 3;11847;11848;11849;, - 3;11850;11851;11852;, - 3;11853;11854;11855;, - 3;11856;11857;11858;, - 3;11859;11860;11861;, - 3;11862;11863;11864;, - 3;11865;11866;11867;, - 3;11868;11869;11870;, - 3;11871;11872;11873;, - 3;11874;11875;11876;, - 3;11877;11878;11879;, - 3;11880;11881;11882;, - 3;11883;11884;11885;, - 3;11886;11887;11888;, - 3;11889;11890;11891;, - 3;11892;11893;11894;, - 3;11895;11896;11897;, - 3;11898;11899;11900;, - 3;11901;11902;11903;, - 3;11904;11905;11906;, - 3;11907;11908;11909;, - 3;11910;11911;11912;, - 3;11913;11914;11915;, - 3;11916;11917;11918;, - 3;11919;11920;11921;, - 3;11922;11923;11924;, - 3;11925;11926;11927;, - 3;11928;11929;11930;, - 3;11931;11932;11933;, - 3;11934;11935;11936;, - 3;11937;11938;11939;, - 3;11940;11941;11942;, - 3;11943;11944;11945;, - 3;11946;11947;11948;, - 3;11949;11950;11951;, - 3;11952;11953;11954;, - 3;11955;11956;11957;, - 3;11958;11959;11960;, - 3;11961;11962;11963;, - 3;11964;11965;11966;, - 3;11967;11968;11969;, - 3;11970;11971;11972;, - 3;11973;11974;11975;, - 3;11976;11977;11978;, - 3;11979;11980;11981;, - 3;11982;11983;11984;, - 3;11985;11986;11987;, - 3;11988;11989;11990;, - 3;11991;11992;11993;, - 3;11994;11995;11996;, - 3;11997;11998;11999;, - 3;12000;12001;12002;, - 3;12003;12004;12005;, - 3;12006;12007;12008;, - 3;12009;12010;12011;, - 3;12012;12013;12014;, - 3;12015;12016;12017;, - 3;12018;12019;12020;, - 3;12021;12022;12023;, - 3;12024;12025;12026;, - 3;12027;12028;12029;, - 3;12030;12031;12032;, - 3;12033;12034;12035;, - 3;12036;12037;12038;, - 3;12039;12040;12041;, - 3;12042;12043;12044;, - 3;12045;12046;12047;, - 3;12048;12049;12050;, - 3;12051;12052;12053;, - 3;12054;12055;12056;, - 3;12057;12058;12059;, - 3;12060;12061;12062;, - 3;12063;12064;12065;, - 3;12066;12067;12068;, - 3;12069;12070;12071;, - 3;12072;12073;12074;, - 3;12075;12076;12077;, - 3;12078;12079;12080;, - 3;12081;12082;12083;, - 3;12084;12085;12086;, - 3;12087;12088;12089;, - 3;12090;12091;12092;, - 3;12093;12094;12095;, - 3;12096;12097;12098;, - 3;12099;12100;12101;, - 3;12102;12103;12104;, - 3;12105;12106;12107;, - 3;12108;12109;12110;, - 3;12111;12112;12113;, - 3;12114;12115;12116;, - 3;12117;12118;12119;, - 3;12120;12121;12122;, - 3;12123;12124;12125;, - 3;12126;12127;12128;, - 3;12129;12130;12131;, - 4;12132;12133;12134;12135;, - 3;12136;12137;12138;, - 3;12139;12140;12141;, - 4;12142;12143;12144;12145;, - 4;12146;12147;12148;12149;, - 3;12150;12151;12152;, - 3;12153;12154;12155;, - 4;12156;12157;12158;12159;, - 3;12160;12161;12162;, - 3;12163;12164;12165;, - 3;12166;12167;12168;, - 3;12169;12170;12171;, - 3;12172;12173;12174;, - 4;12175;12176;12177;12178;, - 4;12179;12180;12181;12182;, - 4;12183;12184;12185;12186;, - 4;12187;12188;12189;12190;, - 4;12191;12192;12193;12194;, - 4;12195;12196;12197;12198;, - 4;12199;12200;12201;12202;, - 4;12203;12204;12205;12206;, - 4;12207;12208;12209;12210;, - 4;12211;12212;12213;12214;, - 4;12215;12216;12217;12218;, - 4;12219;12220;12221;12222;, - 4;12223;12224;12225;12226;, - 4;12227;12228;12229;12230;, - 4;12231;12232;12233;12234;, - 4;12235;12236;12237;12238;, - 4;12239;12240;12241;12242;, - 4;12243;12244;12245;12246;, - 4;12247;12248;12249;12250;, - 4;12251;12252;12253;12254;, - 4;12255;12256;12257;12258;, - 4;12259;12260;12261;12262;, - 4;12263;12264;12265;12266;, - 4;12267;12268;12269;12270;, - 4;12271;12272;12273;12274;, - 4;12275;12276;12277;12278;, - 4;12279;12280;12281;12282;, - 4;12283;12284;12285;12286;, - 4;12287;12288;12289;12290;, - 4;12291;12292;12293;12294;, - 4;12295;12296;12297;12298;, - 4;12299;12300;12301;12302;, - 4;12303;12304;12305;12306;, - 4;12307;12308;12309;12310;, - 4;12311;12312;12313;12314;, - 4;12315;12316;12317;12318;, - 4;12319;12320;12321;12322;, - 4;12323;12324;12325;12326;, - 4;12327;12328;12329;12330;, - 4;12331;12332;12333;12334;, - 4;12335;12336;12337;12338;, - 4;12339;12340;12341;12342;, - 4;12343;12344;12345;12346;, - 4;12347;12348;12349;12350;, - 4;12351;12352;12353;12354;, - 4;12355;12356;12357;12358;, - 4;12359;12360;12361;12362;, - 4;12363;12364;12365;12366;, - 4;12367;12368;12369;12370;, - 4;12371;12372;12373;12374;, - 4;12375;12376;12377;12378;, - 4;12379;12380;12381;12382;, - 4;12383;12384;12385;12386;, - 4;12387;12388;12389;12390;, - 4;12391;12392;12393;12394;, - 4;12395;12396;12397;12398;, - 4;12399;12400;12401;12402;, - 4;12403;12404;12405;12406;, - 4;12407;12408;12409;12410;, - 4;12411;12412;12413;12414;, - 4;12415;12416;12417;12418;, - 4;12419;12420;12421;12422;, - 4;12423;12424;12425;12426;, - 4;12427;12428;12429;12430;, - 4;12431;12432;12433;12434;, - 4;12435;12436;12437;12438;, - 4;12439;12440;12441;12442;, - 4;12443;12444;12445;12446;, - 4;12447;12448;12449;12450;, - 4;12451;12452;12453;12454;, - 4;12455;12456;12457;12458;, - 4;12459;12460;12461;12462;, - 4;12463;12464;12465;12466;, - 4;12467;12468;12469;12470;, - 4;12471;12472;12473;12474;, - 4;12475;12476;12477;12478;, - 4;12479;12480;12481;12482;, - 4;12483;12484;12485;12486;, - 4;12487;12488;12489;12490;, - 4;12491;12492;12493;12494;, - 4;12495;12496;12497;12498;, - 4;12499;12500;12501;12502;, - 4;12503;12504;12505;12506;, - 4;12507;12508;12509;12510;, - 4;12511;12512;12513;12514;, - 4;12515;12516;12517;12518;, - 4;12519;12520;12521;12522;, - 4;12523;12524;12525;12526;, - 4;12527;12528;12529;12530;, - 4;12531;12532;12533;12534;, - 4;12535;12536;12537;12538;, - 4;12539;12540;12541;12542;, - 4;12543;12544;12545;12546;, - 4;12547;12548;12549;12550;, - 4;12551;12552;12553;12554;, - 4;12555;12556;12557;12558;, - 4;12559;12560;12561;12562;, - 4;12563;12564;12565;12566;, - 4;12567;12568;12569;12570;, - 4;12571;12572;12573;12574;, - 4;12575;12576;12577;12578;, - 4;12579;12580;12581;12582;, - 4;12583;12584;12585;12586;, - 4;12587;12588;12589;12590;, - 4;12591;12592;12593;12594;, - 4;12595;12596;12597;12598;, - 4;12599;12600;12601;12602;, - 4;12603;12604;12605;12606;, - 4;12607;12608;12609;12610;, - 4;12611;12612;12613;12614;, - 4;12615;12616;12617;12618;, - 4;12619;12620;12621;12622;, - 4;12623;12624;12625;12626;, - 4;12627;12628;12629;12630;, - 4;12631;12632;12633;12634;, - 4;12635;12636;12637;12638;, - 4;12639;12640;12641;12642;, - 4;12643;12644;12645;12646;, - 4;12647;12648;12649;12650;, - 4;12651;12652;12653;12654;, - 4;12655;12656;12657;12658;, - 4;12659;12660;12661;12662;, - 4;12663;12664;12665;12666;, - 4;12667;12668;12669;12670;, - 4;12671;12672;12673;12674;, - 4;12675;12676;12677;12678;, - 4;12679;12680;12681;12682;, - 4;12683;12684;12685;12686;, - 4;12687;12688;12689;12690;, - 4;12691;12692;12693;12694;, - 4;12695;12696;12697;12698;, - 4;12699;12700;12701;12702;, - 4;12703;12704;12705;12706;, - 4;12707;12708;12709;12710;, - 4;12711;12712;12713;12714;, - 4;12715;12716;12717;12718;, - 4;12719;12720;12721;12722;, - 4;12723;12724;12725;12726;, - 4;12727;12728;12729;12730;, - 4;12731;12732;12733;12734;, - 4;12735;12736;12737;12738;, - 4;12739;12740;12741;12742;, - 4;12743;12744;12745;12746;, - 4;12747;12748;12749;12750;, - 4;12751;12752;12753;12754;, - 4;12755;12756;12757;12758;, - 4;12759;12760;12761;12762;, - 4;12763;12764;12765;12766;, - 4;12767;12768;12769;12770;, - 4;12771;12772;12773;12774;, - 4;12775;12776;12777;12778;, - 4;12779;12780;12781;12782;, - 4;12783;12784;12785;12786;, - 4;12787;12788;12789;12790;, - 4;12791;12792;12793;12794;, - 4;12795;12796;12797;12798;, - 4;12799;12800;12801;12802;, - 4;12803;12804;12805;12806;, - 4;12807;12808;12809;12810;, - 4;12811;12812;12813;12814;, - 4;12815;12816;12817;12818;, - 4;12819;12820;12821;12822;, - 4;12823;12824;12825;12826;, - 4;12827;12828;12829;12830;, - 4;12831;12832;12833;12834;, - 4;12835;12836;12837;12838;, - 4;12839;12840;12841;12842;, - 4;12843;12844;12845;12846;, - 4;12847;12848;12849;12850;, - 4;12851;12852;12853;12854;, - 4;12855;12856;12857;12858;, - 4;12859;12860;12861;12862;, - 4;12863;12864;12865;12866;, - 4;12867;12868;12869;12870;, - 4;12871;12872;12873;12874;, - 4;12875;12876;12877;12878;, - 4;12879;12880;12881;12882;, - 4;12883;12884;12885;12886;, - 4;12887;12888;12889;12890;, - 4;12891;12892;12893;12894;, - 4;12895;12896;12897;12898;, - 4;12899;12900;12901;12902;, - 4;12903;12904;12905;12906;, - 4;12907;12908;12909;12910;, - 4;12911;12912;12913;12914;, - 4;12915;12916;12917;12918;, - 4;12919;12920;12921;12922;, - 4;12923;12924;12925;12926;, - 4;12927;12928;12929;12930;, - 4;12931;12932;12933;12934;, - 4;12935;12936;12937;12938;, - 4;12939;12940;12941;12942;, - 4;12943;12944;12945;12946;, - 4;12947;12948;12949;12950;, - 4;12951;12952;12953;12954;, - 4;12955;12956;12957;12958;, - 3;12959;12960;12961;, - 4;12962;12963;12964;12965;, - 4;12966;12967;12968;12969;, - 3;12970;12971;12972;, - 3;12973;12974;12975;, - 4;12976;12977;12978;12979;, - 4;12980;12981;12982;12983;, - 3;12984;12985;12986;, - 3;12987;12988;12989;, - 4;12990;12991;12992;12993;, - 4;12994;12995;12996;12997;, - 4;12998;12999;13000;13001;, - 4;13002;13003;13004;13005;, - 4;13006;13007;13008;13009;, - 4;13010;13011;13012;13013;, - 4;13014;13015;13016;13017;, - 4;13018;13019;13020;13021;, - 4;13022;13023;13024;13025;, - 4;13026;13027;13028;13029;, - 4;13030;13031;13032;13033;, - 4;13034;13035;13036;13037;, - 4;13038;13039;13040;13041;, - 4;13042;13043;13044;13045;, - 3;13046;13047;13048;, - 4;13049;13050;13051;13052;, - 4;13053;13054;13055;13056;, - 3;13057;13058;13059;, - 3;13060;13061;13062;, - 4;13063;13064;13065;13066;, - 4;13067;13068;13069;13070;, - 4;13071;13072;13073;13074;, - 4;13075;13076;13077;13078;, - 4;13079;13080;13081;13082;, - 4;13083;13084;13085;13086;, - 4;13087;13088;13089;13090;, - 4;13091;13092;13093;13094;, - 3;13095;13096;13097;, - 4;13098;13099;13100;13101;, - 4;13102;13103;13104;13105;, - 4;13106;13107;13108;13109;, - 4;13110;13111;13112;13113;, - 4;13114;13115;13116;13117;, - 4;13118;13119;13120;13121;, - 4;13122;13123;13124;13125;, - 4;13126;13127;13128;13129;, - 4;13130;13131;13132;13133;, - 4;13134;13135;13136;13137;, - 4;13138;13139;13140;13141;, - 4;13142;13143;13144;13145;, - 4;13146;13147;13148;13149;, - 4;13150;13151;13152;13153;, - 4;13154;13155;13156;13157;, - 4;13158;13159;13160;13161;, - 4;13162;13163;13164;13165;, - 4;13166;13167;13168;13169;, - 3;13170;13171;13172;, - 4;13173;13174;13175;13176;, - 4;13177;13178;13179;13180;, - 3;13181;13182;13183;, - 3;13184;13185;13186;, - 4;13187;13188;13189;13190;, - 4;13191;13192;13193;13194;, - 3;13195;13196;13197;, - 3;13198;13199;13200;, - 4;13201;13202;13203;13204;, - 4;13205;13206;13207;13208;, - 4;13209;13210;13211;13212;, - 4;13213;13214;13215;13216;, - 4;13217;13218;13219;13220;, - 4;13221;13222;13223;13224;, - 4;13225;13226;13227;13228;, - 4;13229;13230;13231;13232;, - 4;13233;13234;13235;13236;, - 4;13237;13238;13239;13240;, - 4;13241;13242;13243;13244;, - 4;13245;13246;13247;13248;, - 4;13249;13250;13251;13252;, - 4;13253;13254;13255;13256;, - 3;13257;13258;13259;, - 4;13260;13261;13262;13263;, - 4;13264;13265;13266;13267;, - 3;13268;13269;13270;, - 3;13271;13272;13273;, - 4;13274;13275;13276;13277;, - 4;13278;13279;13280;13281;, - 4;13282;13283;13284;13285;, - 4;13286;13287;13288;13289;, - 4;13290;13291;13292;13293;, - 4;13294;13295;13296;13297;, - 4;13298;13299;13300;13301;, - 4;13302;13303;13304;13305;, - 3;13306;13307;13308;, - 4;13309;13310;13311;13312;, - 4;13313;13314;13315;13316;, - 4;13317;13318;13319;13320;, - 4;13321;13322;13323;13324;, - 4;13325;13326;13327;13328;, - 4;13329;13330;13331;13332;, - 4;13333;13334;13335;13336;, - 4;13337;13338;13339;13340;, - 4;13341;13342;13343;13344;, - 4;13345;13346;13347;13348;, - 4;13349;13350;13351;13352;, - 4;13353;13354;13355;13356;, - 4;13357;13358;13359;13360;, - 4;13361;13362;13363;13364;, - 4;13365;13366;13367;13368;, - 4;13369;13370;13371;13372;, - 4;13373;13374;13375;13376;, - 4;13377;13378;13379;13380;, - 4;13381;13382;13383;13384;, - 4;13385;13386;13387;13388;, - 3;13389;13390;13391;, - 4;13392;13393;13394;13395;, - 4;13396;13397;13398;13399;, - 4;13400;13401;13402;13403;, - 4;13404;13405;13406;13407;, - 4;13408;13409;13410;13411;, - 4;13412;13413;13414;13415;, - 4;13416;13417;13418;13419;, - 4;13420;13421;13422;13423;, - 4;13424;13425;13426;13427;, - 4;13428;13429;13430;13431;, - 4;13432;13433;13434;13435;, - 4;13436;13437;13438;13439;, - 4;13440;13441;13442;13443;, - 4;13444;13445;13446;13447;, - 4;13448;13449;13450;13451;, - 4;13452;13453;13454;13455;, - 4;13456;13457;13458;13459;, - 4;13460;13461;13462;13463;, - 4;13464;13465;13466;13467;, - 4;13468;13469;13470;13471;, - 4;13472;13473;13474;13475;, - 4;13476;13477;13478;13479;, - 4;13480;13481;13482;13483;, - 4;13484;13485;13486;13487;, - 4;13488;13489;13490;13491;, - 4;13492;13493;13494;13495;, - 4;13496;13497;13498;13499;, - 4;13500;13501;13502;13503;, - 4;13504;13505;13506;13507;, - 4;13508;13509;13510;13511;, - 4;13512;13513;13514;13515;, - 4;13516;13517;13518;13519;, - 4;13520;13521;13522;13523;, - 4;13524;13525;13526;13527;, - 4;13528;13529;13530;13531;, - 4;13532;13533;13534;13535;, - 4;13536;13537;13538;13539;, - 4;13540;13541;13542;13543;, - 4;13544;13545;13546;13547;, - 4;13548;13549;13550;13551;, - 4;13552;13553;13554;13555;, - 4;13556;13557;13558;13559;, - 4;13560;13561;13562;13563;, - 4;13564;13565;13566;13567;, - 4;13568;13569;13570;13571;, - 4;13572;13573;13574;13575;, - 4;13576;13577;13578;13579;, - 4;13580;13581;13582;13583;, - 4;13584;13585;13586;13587;, - 4;13588;13589;13590;13591;, - 4;13592;13593;13594;13595;, - 4;13596;13597;13598;13599;, - 4;13600;13601;13602;13603;, - 4;13604;13605;13606;13607;, - 4;13608;13609;13610;13611;, - 4;13612;13613;13614;13615;, - 4;13616;13617;13618;13619;, - 4;13620;13621;13622;13623;, - 4;13624;13625;13626;13627;, - 4;13628;13629;13630;13631;, - 4;13632;13633;13634;13635;, - 4;13636;13637;13638;13639;, - 4;13640;13641;13642;13643;, - 4;13644;13645;13646;13647;, - 4;13648;13649;13650;13651;, - 4;13652;13653;13654;13655;, - 4;13656;13657;13658;13659;, - 4;13660;13661;13662;13663;, - 4;13664;13665;13666;13667;, - 4;13668;13669;13670;13671;, - 4;13672;13673;13674;13675;, - 4;13676;13677;13678;13679;, - 4;13680;13681;13682;13683;, - 4;13684;13685;13686;13687;, - 4;13688;13689;13690;13691;, - 4;13692;13693;13694;13695;, - 4;13696;13697;13698;13699;, - 4;13700;13701;13702;13703;, - 4;13704;13705;13706;13707;, - 4;13708;13709;13710;13711;, - 4;13712;13713;13714;13715;, - 4;13716;13717;13718;13719;, - 4;13720;13721;13722;13723;, - 4;13724;13725;13726;13727;, - 4;13728;13729;13730;13731;, - 4;13732;13733;13734;13735;, - 4;13736;13737;13738;13739;, - 4;13740;13741;13742;13743;, - 4;13744;13745;13746;13747;, - 4;13748;13749;13750;13751;, - 4;13752;13753;13754;13755;, - 4;13756;13757;13758;13759;, - 4;13760;13761;13762;13763;, - 4;13764;13765;13766;13767;, - 4;13768;13769;13770;13771;, - 4;13772;13773;13774;13775;, - 4;13776;13777;13778;13779;, - 4;13780;13781;13782;13783;, - 4;13784;13785;13786;13787;, - 4;13788;13789;13790;13791;, - 4;13792;13793;13794;13795;, - 4;13796;13797;13798;13799;, - 4;13800;13801;13802;13803;, - 4;13804;13805;13806;13807;, - 4;13808;13809;13810;13811;, - 4;13812;13813;13814;13815;, - 4;13816;13817;13818;13819;, - 4;13820;13821;13822;13823;, - 4;13824;13825;13826;13827;, - 4;13828;13829;13830;13831;, - 4;13832;13833;13834;13835;, - 4;13836;13837;13838;13839;, - 4;13840;13841;13842;13843;, - 4;13844;13845;13846;13847;, - 4;13848;13849;13850;13851;, - 4;13852;13853;13854;13855;, - 4;13856;13857;13858;13859;, - 4;13860;13861;13862;13863;, - 4;13864;13865;13866;13867;, - 4;13868;13869;13870;13871;, - 4;13872;13873;13874;13875;, - 4;13876;13877;13878;13879;, - 4;13880;13881;13882;13883;, - 4;13884;13885;13886;13887;, - 4;13888;13889;13890;13891;, - 4;13892;13893;13894;13895;, - 4;13896;13897;13898;13899;, - 4;13900;13901;13902;13903;, - 4;13904;13905;13906;13907;, - 4;13908;13909;13910;13911;, - 4;13912;13913;13914;13915;, - 4;13916;13917;13918;13919;, - 4;13920;13921;13922;13923;, - 4;13924;13925;13926;13927;, - 4;13928;13929;13930;13931;, - 4;13932;13933;13934;13935;, - 4;13936;13937;13938;13939;, - 4;13940;13941;13942;13943;, - 4;13944;13945;13946;13947;, - 4;13948;13949;13950;13951;, - 4;13952;13953;13954;13955;, - 4;13956;13957;13958;13959;, - 4;13960;13961;13962;13963;, - 4;13964;13965;13966;13967;, - 4;13968;13969;13970;13971;, - 4;13972;13973;13974;13975;, - 4;13976;13977;13978;13979;, - 4;13980;13981;13982;13983;, - 4;13984;13985;13986;13987;, - 4;13988;13989;13990;13991;, - 4;13992;13993;13994;13995;, - 4;13996;13997;13998;13999;, - 4;14000;14001;14002;14003;, - 4;14004;14005;14006;14007;, - 4;14008;14009;14010;14011;, - 4;14012;14013;14014;14015;, - 4;14016;14017;14018;14019;, - 4;14020;14021;14022;14023;, - 4;14024;14025;14026;14027;, - 4;14028;14029;14030;14031;, - 4;14032;14033;14034;14035;, - 4;14036;14037;14038;14039;, - 4;14040;14041;14042;14043;, - 4;14044;14045;14046;14047;, - 4;14048;14049;14050;14051;, - 4;14052;14053;14054;14055;, - 4;14056;14057;14058;14059;, - 4;14060;14061;14062;14063;, - 4;14064;14065;14066;14067;, - 4;14068;14069;14070;14071;, - 4;14072;14073;14074;14075;, - 4;14076;14077;14078;14079;, - 4;14080;14081;14082;14083;, - 4;14084;14085;14086;14087;, - 4;14088;14089;14090;14091;, - 4;14092;14093;14094;14095;, - 4;14096;14097;14098;14099;, - 4;14100;14101;14102;14103;, - 4;14104;14105;14106;14107;, - 4;14108;14109;14110;14111;, - 4;14112;14113;14114;14115;, - 4;14116;14117;14118;14119;, - 4;14120;14121;14122;14123;, - 4;14124;14125;14126;14127;, - 4;14128;14129;14130;14131;, - 4;14132;14133;14134;14135;, - 4;14136;14137;14138;14139;, - 4;14140;14141;14142;14143;, - 4;14144;14145;14146;14147;, - 4;14148;14149;14150;14151;, - 4;14152;14153;14154;14155;, - 4;14156;14157;14158;14159;, - 4;14160;14161;14162;14163;, - 4;14164;14165;14166;14167;, - 4;14168;14169;14170;14171;, - 4;14172;14173;14174;14175;, - 4;14176;14177;14178;14179;, - 4;14180;14181;14182;14183;, - 4;14184;14185;14186;14187;, - 4;14188;14189;14190;14191;, - 4;14192;14193;14194;14195;, - 4;14196;14197;14198;14199;, - 4;14200;14201;14202;14203;, - 4;14204;14205;14206;14207;, - 4;14208;14209;14210;14211;, - 4;14212;14213;14214;14215;, - 4;14216;14217;14218;14219;, - 4;14220;14221;14222;14223;, - 3;14224;14225;14226;, - 3;14227;14228;14229;, - 3;14230;14231;14232;, - 4;14233;14234;14235;14236;, - 3;14237;14238;14239;, - 4;14240;14241;14242;14243;, - 3;14244;14245;14246;, - 4;14247;14248;14249;14250;, - 3;14251;14252;14253;, - 3;14254;14255;14256;, - 4;14257;14258;14259;14260;, - 3;14261;14262;14263;, - 4;14264;14265;14266;14267;, - 3;14268;14269;14270;, - 3;14271;14272;14273;, - 4;14274;14275;14276;14277;, - 3;14278;14279;14280;, - 4;14281;14282;14283;14284;, - 3;14285;14286;14287;, - 4;14288;14289;14290;14291;, - 3;14292;14293;14294;, - 3;14295;14296;14297;, - 4;14298;14299;14300;14301;, - 3;14302;14303;14304;, - 4;14305;14306;14307;14308;, - 3;14309;14310;14311;, - 4;14312;14313;14314;14315;, - 4;14316;14317;14318;14319;, - 3;14320;14321;14322;, - 4;14323;14324;14325;14326;, - 4;14327;14328;14329;14330;, - 4;14331;14332;14333;14334;, - 4;14335;14336;14337;14338;, - 4;14339;14340;14341;14342;, - 3;14343;14344;14345;, - 4;14346;14347;14348;14349;, - 3;14350;14351;14352;, - 3;14353;14354;14355;, - 4;14356;14357;14358;14359;, - 3;14360;14361;14362;, - 4;14363;14364;14365;14366;, - 4;14367;14368;14369;14370;, - 4;14371;14372;14373;14374;, - 3;14375;14376;14377;, - 3;14378;14379;14380;, - 4;14381;14382;14383;14384;, - 3;14385;14386;14387;, - 4;14388;14389;14390;14391;, - 3;14392;14393;14394;, - 4;14395;14396;14397;14398;, - 3;14399;14400;14401;, - 3;14402;14403;14404;, - 4;14405;14406;14407;14408;, - 4;14409;14410;14411;14412;, - 4;14413;14414;14415;14416;, - 4;14417;14418;14419;14420;, - 4;14421;14422;14423;14424;, - 3;14425;14426;14427;, - 4;14428;14429;14430;14431;, - 3;14432;14433;14434;, - 4;14435;14436;14437;14438;, - 3;14439;14440;14441;, - 4;14442;14443;14444;14445;, - 4;14446;14447;14448;14449;, - 4;14450;14451;14452;14453;, - 3;14454;14455;14456;, - 4;14457;14458;14459;14460;, - 3;14461;14462;14463;, - 4;14464;14465;14466;14467;, - 3;14468;14469;14470;, - 3;14471;14472;14473;, - 4;14474;14475;14476;14477;, - 3;14478;14479;14480;, - 4;14481;14482;14483;14484;, - 3;14485;14486;14487;, - 4;14488;14489;14490;14491;, - 3;14492;14493;14494;, - 3;14495;14496;14497;, - 4;14498;14499;14500;14501;, - 3;14502;14503;14504;, - 4;14505;14506;14507;14508;, - 3;14509;14510;14511;, - 3;14512;14513;14514;, - 4;14515;14516;14517;14518;, - 3;14519;14520;14521;, - 4;14522;14523;14524;14525;, - 3;14526;14527;14528;, - 4;14529;14530;14531;14532;, - 3;14533;14534;14535;, - 3;14536;14537;14538;, - 4;14539;14540;14541;14542;, - 3;14543;14544;14545;, - 4;14546;14547;14548;14549;, - 3;14550;14551;14552;, - 3;14553;14554;14555;, - 3;14556;14557;14558;, - 3;14559;14560;14561;, - 3;14562;14563;14564;, - 4;14565;14566;14567;14568;, - 4;14569;14570;14571;14572;, - 4;14573;14574;14575;14576;, - 4;14577;14578;14579;14580;, - 4;14581;14582;14583;14584;, - 4;14585;14586;14587;14588;, - 4;14589;14590;14591;14592;, - 4;14593;14594;14595;14596;, - 4;14597;14598;14599;14600;, - 4;14601;14602;14603;14604;, - 4;14605;14606;14607;14608;, - 4;14609;14610;14611;14612;, - 4;14613;14614;14615;14616;, - 4;14617;14618;14619;14620;, - 4;14621;14622;14623;14624;, - 4;14625;14626;14627;14628;, - 4;14629;14630;14631;14632;, - 4;14633;14634;14635;14636;, - 4;14637;14638;14639;14640;, - 4;14641;14642;14643;14644;, - 4;14645;14646;14647;14648;, - 4;14649;14650;14651;14652;, - 4;14653;14654;14655;14656;, - 4;14657;14658;14659;14660;, - 4;14661;14662;14663;14664;, - 4;14665;14666;14667;14668;, - 4;14669;14670;14671;14672;, - 4;14673;14674;14675;14676;, - 4;14677;14678;14679;14680;, - 4;14681;14682;14683;14684;, - 4;14685;14686;14687;14688;, - 4;14689;14690;14691;14692;, - 4;14693;14694;14695;14696;, - 4;14697;14698;14699;14700;, - 4;14701;14702;14703;14704;, - 4;14705;14706;14707;14708;, - 4;14709;14710;14711;14712;, - 4;14713;14714;14715;14716;, - 4;14717;14718;14719;14720;, - 4;14721;14722;14723;14724;, - 4;14725;14726;14727;14728;, - 4;14729;14730;14731;14732;, - 4;14733;14734;14735;14736;, - 4;14737;14738;14739;14740;, - 4;14741;14742;14743;14744;, - 4;14745;14746;14747;14748;, - 4;14749;14750;14751;14752;, - 4;14753;14754;14755;14756;, - 4;14757;14758;14759;14760;, - 4;14761;14762;14763;14764;, - 4;14765;14766;14767;14768;, - 4;14769;14770;14771;14772;, - 4;14773;14774;14775;14776;, - 4;14777;14778;14779;14780;, - 4;14781;14782;14783;14784;, - 4;14785;14786;14787;14788;, - 4;14789;14790;14791;14792;, - 4;14793;14794;14795;14796;, - 4;14797;14798;14799;14800;, - 4;14801;14802;14803;14804;, - 4;14805;14806;14807;14808;, - 4;14809;14810;14811;14812;, - 4;14813;14814;14815;14816;, - 4;14817;14818;14819;14820;, - 4;14821;14822;14823;14824;, - 4;14825;14826;14827;14828;, - 4;14829;14830;14831;14832;, - 4;14833;14834;14835;14836;, - 4;14837;14838;14839;14840;, - 4;14841;14842;14843;14844;, - 4;14845;14846;14847;14848;, - 4;14849;14850;14851;14852;, - 4;14853;14854;14855;14856;, - 4;14857;14858;14859;14860;, - 4;14861;14862;14863;14864;, - 4;14865;14866;14867;14868;, - 4;14869;14870;14871;14872;, - 4;14873;14874;14875;14876;, - 4;14877;14878;14879;14880;, - 4;14881;14882;14883;14884;, - 4;14885;14886;14887;14888;, - 4;14889;14890;14891;14892;, - 4;14893;14894;14895;14896;, - 4;14897;14898;14899;14900;, - 4;14901;14902;14903;14904;, - 4;14905;14906;14907;14908;, - 4;14909;14910;14911;14912;, - 4;14913;14914;14915;14916;, - 4;14917;14918;14919;14920;, - 4;14921;14922;14923;14924;, - 4;14925;14926;14927;14928;, - 4;14929;14930;14931;14932;, - 4;14933;14934;14935;14936;, - 4;14937;14938;14939;14940;, - 4;14941;14942;14943;14944;, - 4;14945;14946;14947;14948;, - 4;14949;14950;14951;14952;, - 4;14953;14954;14955;14956;, - 4;14957;14958;14959;14960;, - 4;14961;14962;14963;14964;, - 4;14965;14966;14967;14968;, - 4;14969;14970;14971;14972;, - 4;14973;14974;14975;14976;, - 4;14977;14978;14979;14980;, - 4;14981;14982;14983;14984;, - 4;14985;14986;14987;14988;, - 4;14989;14990;14991;14992;, - 4;14993;14994;14995;14996;, - 4;14997;14998;14999;15000;, - 4;15001;15002;15003;15004;, - 4;15005;15006;15007;15008;, - 4;15009;15010;15011;15012;, - 4;15013;15014;15015;15016;, - 4;15017;15018;15019;15020;, - 4;15021;15022;15023;15024;, - 4;15025;15026;15027;15028;, - 4;15029;15030;15031;15032;, - 4;15033;15034;15035;15036;, - 4;15037;15038;15039;15040;, - 4;15041;15042;15043;15044;, - 4;15045;15046;15047;15048;, - 4;15049;15050;15051;15052;, - 4;15053;15054;15055;15056;, - 4;15057;15058;15059;15060;, - 4;15061;15062;15063;15064;, - 4;15065;15066;15067;15068;, - 4;15069;15070;15071;15072;, - 4;15073;15074;15075;15076;, - 4;15077;15078;15079;15080;, - 4;15081;15082;15083;15084;, - 4;15085;15086;15087;15088;, - 4;15089;15090;15091;15092;, - 4;15093;15094;15095;15096;, - 4;15097;15098;15099;15100;, - 4;15101;15102;15103;15104;, - 4;15105;15106;15107;15108;, - 4;15109;15110;15111;15112;, - 4;15113;15114;15115;15116;, - 4;15117;15118;15119;15120;, - 4;15121;15122;15123;15124;, - 4;15125;15126;15127;15128;, - 4;15129;15130;15131;15132;, - 4;15133;15134;15135;15136;, - 4;15137;15138;15139;15140;, - 4;15141;15142;15143;15144;, - 4;15145;15146;15147;15148;, - 4;15149;15150;15151;15152;, - 4;15153;15154;15155;15156;, - 4;15157;15158;15159;15160;, - 4;15161;15162;15163;15164;, - 4;15165;15166;15167;15168;, - 4;15169;15170;15171;15172;, - 4;15173;15174;15175;15176;, - 4;15177;15178;15179;15180;, - 4;15181;15182;15183;15184;, - 4;15185;15186;15187;15188;, - 4;15189;15190;15191;15192;, - 4;15193;15194;15195;15196;, - 4;15197;15198;15199;15200;, - 4;15201;15202;15203;15204;, - 4;15205;15206;15207;15208;, - 4;15209;15210;15211;15212;, - 4;15213;15214;15215;15216;, - 4;15217;15218;15219;15220;, - 4;15221;15222;15223;15224;, - 4;15225;15226;15227;15228;, - 4;15229;15230;15231;15232;, - 4;15233;15234;15235;15236;, - 4;15237;15238;15239;15240;, - 4;15241;15242;15243;15244;, - 4;15245;15246;15247;15248;, - 4;15249;15250;15251;15252;, - 4;15253;15254;15255;15256;, - 4;15257;15258;15259;15260;, - 4;15261;15262;15263;15264;, - 4;15265;15266;15267;15268;, - 4;15269;15270;15271;15272;, - 4;15273;15274;15275;15276;, - 4;15277;15278;15279;15280;, - 4;15281;15282;15283;15284;, - 4;15285;15286;15287;15288;, - 4;15289;15290;15291;15292;, - 4;15293;15294;15295;15296;, - 4;15297;15298;15299;15300;, - 4;15301;15302;15303;15304;, - 4;15305;15306;15307;15308;, - 4;15309;15310;15311;15312;, - 4;15313;15314;15315;15316;, - 4;15317;15318;15319;15320;, - 4;15321;15322;15323;15324;, - 4;15325;15326;15327;15328;, - 4;15329;15330;15331;15332;, - 4;15333;15334;15335;15336;, - 4;15337;15338;15339;15340;, - 4;15341;15342;15343;15344;, - 4;15345;15346;15347;15348;, - 3;15349;15350;15351;, - 4;15352;15353;15354;15355;, - 4;15356;15357;15358;15359;, - 3;15360;15361;15362;, - 3;15363;15364;15365;, - 4;15366;15367;15368;15369;, - 4;15370;15371;15372;15373;, - 3;15374;15375;15376;, - 3;15377;15378;15379;, - 4;15380;15381;15382;15383;, - 4;15384;15385;15386;15387;, - 4;15388;15389;15390;15391;, - 4;15392;15393;15394;15395;, - 4;15396;15397;15398;15399;, - 4;15400;15401;15402;15403;, - 4;15404;15405;15406;15407;, - 4;15408;15409;15410;15411;, - 4;15412;15413;15414;15415;, - 4;15416;15417;15418;15419;, - 4;15420;15421;15422;15423;, - 4;15424;15425;15426;15427;, - 4;15428;15429;15430;15431;, - 4;15432;15433;15434;15435;, - 3;15436;15437;15438;, - 4;15439;15440;15441;15442;, - 4;15443;15444;15445;15446;, - 3;15447;15448;15449;, - 3;15450;15451;15452;, - 4;15453;15454;15455;15456;, - 4;15457;15458;15459;15460;, - 4;15461;15462;15463;15464;, - 4;15465;15466;15467;15468;, - 4;15469;15470;15471;15472;, - 4;15473;15474;15475;15476;, - 4;15477;15478;15479;15480;, - 4;15481;15482;15483;15484;, - 3;15485;15486;15487;, - 4;15488;15489;15490;15491;, - 4;15492;15493;15494;15495;, - 4;15496;15497;15498;15499;, - 4;15500;15501;15502;15503;, - 4;15504;15505;15506;15507;, - 4;15508;15509;15510;15511;, - 4;15512;15513;15514;15515;, - 4;15516;15517;15518;15519;, - 4;15520;15521;15522;15523;, - 4;15524;15525;15526;15527;, - 4;15528;15529;15530;15531;, - 4;15532;15533;15534;15535;, - 4;15536;15537;15538;15539;, - 4;15540;15541;15542;15543;, - 4;15544;15545;15546;15547;, - 4;15548;15549;15550;15551;, - 4;15552;15553;15554;15555;, - 4;15556;15557;15558;15559;, - 3;15560;15561;15562;, - 4;15563;15564;15565;15566;, - 4;15567;15568;15569;15570;, - 3;15571;15572;15573;, - 3;15574;15575;15576;, - 4;15577;15578;15579;15580;, - 4;15581;15582;15583;15584;, - 3;15585;15586;15587;, - 3;15588;15589;15590;, - 4;15591;15592;15593;15594;, - 4;15595;15596;15597;15598;, - 4;15599;15600;15601;15602;, - 4;15603;15604;15605;15606;, - 4;15607;15608;15609;15610;, - 4;15611;15612;15613;15614;, - 4;15615;15616;15617;15618;, - 4;15619;15620;15621;15622;, - 4;15623;15624;15625;15626;, - 4;15627;15628;15629;15630;, - 4;15631;15632;15633;15634;, - 4;15635;15636;15637;15638;, - 4;15639;15640;15641;15642;, - 4;15643;15644;15645;15646;, - 3;15647;15648;15649;, - 4;15650;15651;15652;15653;, - 4;15654;15655;15656;15657;, - 3;15658;15659;15660;, - 3;15661;15662;15663;, - 4;15664;15665;15666;15667;, - 4;15668;15669;15670;15671;, - 4;15672;15673;15674;15675;, - 4;15676;15677;15678;15679;, - 4;15680;15681;15682;15683;, - 4;15684;15685;15686;15687;, - 4;15688;15689;15690;15691;, - 4;15692;15693;15694;15695;, - 3;15696;15697;15698;, - 4;15699;15700;15701;15702;, - 4;15703;15704;15705;15706;, - 4;15707;15708;15709;15710;, - 4;15711;15712;15713;15714;, - 4;15715;15716;15717;15718;, - 4;15719;15720;15721;15722;, - 4;15723;15724;15725;15726;, - 4;15727;15728;15729;15730;, - 4;15731;15732;15733;15734;, - 4;15735;15736;15737;15738;, - 4;15739;15740;15741;15742;, - 4;15743;15744;15745;15746;, - 4;15747;15748;15749;15750;, - 4;15751;15752;15753;15754;, - 4;15755;15756;15757;15758;, - 4;15759;15760;15761;15762;, - 4;15763;15764;15765;15766;, - 4;15767;15768;15769;15770;, - 4;15771;15772;15773;15774;, - 4;15775;15776;15777;15778;, - 3;15779;15780;15781;, - 4;15782;15783;15784;15785;, - 4;15786;15787;15788;15789;, - 4;15790;15791;15792;15793;, - 4;15794;15795;15796;15797;, - 4;15798;15799;15800;15801;, - 4;15802;15803;15804;15805;, - 4;15806;15807;15808;15809;, - 4;15810;15811;15812;15813;, - 4;15814;15815;15816;15817;, - 4;15818;15819;15820;15821;, - 4;15822;15823;15824;15825;, - 4;15826;15827;15828;15829;, - 4;15830;15831;15832;15833;, - 4;15834;15835;15836;15837;, - 4;15838;15839;15840;15841;, - 4;15842;15843;15844;15845;, - 4;15846;15847;15848;15849;, - 4;15850;15851;15852;15853;, - 4;15854;15855;15856;15857;, - 4;15858;15859;15860;15861;, - 4;15862;15863;15864;15865;, - 4;15866;15867;15868;15869;, - 4;15870;15871;15872;15873;, - 4;15874;15875;15876;15877;, - 4;15878;15879;15880;15881;, - 4;15882;15883;15884;15885;, - 4;15886;15887;15888;15889;, - 4;15890;15891;15892;15893;, - 4;15894;15895;15896;15897;, - 4;15898;15899;15900;15901;, - 4;15902;15903;15904;15905;, - 4;15906;15907;15908;15909;, - 4;15910;15911;15912;15913;, - 4;15914;15915;15916;15917;, - 4;15918;15919;15920;15921;, - 4;15922;15923;15924;15925;, - 4;15926;15927;15928;15929;, - 4;15930;15931;15932;15933;, - 4;15934;15935;15936;15937;, - 4;15938;15939;15940;15941;, - 4;15942;15943;15944;15945;, - 4;15946;15947;15948;15949;, - 4;15950;15951;15952;15953;, - 4;15954;15955;15956;15957;, - 4;15958;15959;15960;15961;, - 4;15962;15963;15964;15965;, - 4;15966;15967;15968;15969;, - 4;15970;15971;15972;15973;, - 4;15974;15975;15976;15977;, - 4;15978;15979;15980;15981;, - 4;15982;15983;15984;15985;, - 4;15986;15987;15988;15989;, - 4;15990;15991;15992;15993;, - 4;15994;15995;15996;15997;, - 4;15998;15999;16000;16001;, - 4;16002;16003;16004;16005;, - 4;16006;16007;16008;16009;, - 4;16010;16011;16012;16013;, - 4;16014;16015;16016;16017;, - 4;16018;16019;16020;16021;, - 4;16022;16023;16024;16025;, - 4;16026;16027;16028;16029;, - 4;16030;16031;16032;16033;, - 4;16034;16035;16036;16037;, - 4;16038;16039;16040;16041;, - 4;16042;16043;16044;16045;, - 4;16046;16047;16048;16049;, - 4;16050;16051;16052;16053;, - 4;16054;16055;16056;16057;, - 4;16058;16059;16060;16061;, - 4;16062;16063;16064;16065;, - 4;16066;16067;16068;16069;, - 4;16070;16071;16072;16073;, - 4;16074;16075;16076;16077;, - 4;16078;16079;16080;16081;, - 4;16082;16083;16084;16085;, - 4;16086;16087;16088;16089;, - 4;16090;16091;16092;16093;, - 4;16094;16095;16096;16097;, - 4;16098;16099;16100;16101;, - 4;16102;16103;16104;16105;, - 4;16106;16107;16108;16109;, - 4;16110;16111;16112;16113;, - 4;16114;16115;16116;16117;, - 4;16118;16119;16120;16121;, - 4;16122;16123;16124;16125;, - 4;16126;16127;16128;16129;, - 4;16130;16131;16132;16133;, - 4;16134;16135;16136;16137;, - 4;16138;16139;16140;16141;, - 4;16142;16143;16144;16145;, - 4;16146;16147;16148;16149;, - 4;16150;16151;16152;16153;, - 4;16154;16155;16156;16157;, - 4;16158;16159;16160;16161;, - 4;16162;16163;16164;16165;, - 4;16166;16167;16168;16169;, - 4;16170;16171;16172;16173;, - 4;16174;16175;16176;16177;, - 4;16178;16179;16180;16181;, - 4;16182;16183;16184;16185;, - 4;16186;16187;16188;16189;, - 4;16190;16191;16192;16193;, - 4;16194;16195;16196;16197;, - 4;16198;16199;16200;16201;, - 4;16202;16203;16204;16205;, - 4;16206;16207;16208;16209;, - 4;16210;16211;16212;16213;, - 4;16214;16215;16216;16217;, - 4;16218;16219;16220;16221;, - 4;16222;16223;16224;16225;, - 4;16226;16227;16228;16229;, - 4;16230;16231;16232;16233;, - 4;16234;16235;16236;16237;, - 4;16238;16239;16240;16241;, - 4;16242;16243;16244;16245;, - 4;16246;16247;16248;16249;, - 4;16250;16251;16252;16253;, - 4;16254;16255;16256;16257;, - 4;16258;16259;16260;16261;, - 4;16262;16263;16264;16265;, - 4;16266;16267;16268;16269;, - 4;16270;16271;16272;16273;, - 4;16274;16275;16276;16277;, - 4;16278;16279;16280;16281;, - 4;16282;16283;16284;16285;, - 4;16286;16287;16288;16289;, - 4;16290;16291;16292;16293;, - 4;16294;16295;16296;16297;, - 4;16298;16299;16300;16301;, - 4;16302;16303;16304;16305;, - 4;16306;16307;16308;16309;, - 4;16310;16311;16312;16313;, - 4;16314;16315;16316;16317;, - 4;16318;16319;16320;16321;, - 4;16322;16323;16324;16325;, - 4;16326;16327;16328;16329;, - 4;16330;16331;16332;16333;, - 4;16334;16335;16336;16337;, - 4;16338;16339;16340;16341;, - 4;16342;16343;16344;16345;, - 4;16346;16347;16348;16349;, - 4;16350;16351;16352;16353;, - 4;16354;16355;16356;16357;, - 4;16358;16359;16360;16361;, - 4;16362;16363;16364;16365;, - 4;16366;16367;16368;16369;, - 4;16370;16371;16372;16373;, - 4;16374;16375;16376;16377;, - 4;16378;16379;16380;16381;, - 4;16382;16383;16384;16385;, - 4;16386;16387;16388;16389;, - 4;16390;16391;16392;16393;, - 4;16394;16395;16396;16397;, - 4;16398;16399;16400;16401;, - 4;16402;16403;16404;16405;, - 4;16406;16407;16408;16409;, - 4;16410;16411;16412;16413;, - 4;16414;16415;16416;16417;, - 4;16418;16419;16420;16421;, - 4;16422;16423;16424;16425;, - 4;16426;16427;16428;16429;, - 4;16430;16431;16432;16433;, - 4;16434;16435;16436;16437;, - 4;16438;16439;16440;16441;, - 4;16442;16443;16444;16445;, - 4;16446;16447;16448;16449;, - 4;16450;16451;16452;16453;, - 4;16454;16455;16456;16457;, - 4;16458;16459;16460;16461;, - 4;16462;16463;16464;16465;, - 4;16466;16467;16468;16469;, - 4;16470;16471;16472;16473;, - 4;16474;16475;16476;16477;, - 4;16478;16479;16480;16481;, - 4;16482;16483;16484;16485;, - 4;16486;16487;16488;16489;, - 4;16490;16491;16492;16493;, - 4;16494;16495;16496;16497;, - 4;16498;16499;16500;16501;, - 4;16502;16503;16504;16505;, - 4;16506;16507;16508;16509;, - 4;16510;16511;16512;16513;, - 4;16514;16515;16516;16517;, - 4;16518;16519;16520;16521;, - 4;16522;16523;16524;16525;, - 4;16526;16527;16528;16529;, - 4;16530;16531;16532;16533;, - 4;16534;16535;16536;16537;, - 4;16538;16539;16540;16541;, - 4;16542;16543;16544;16545;, - 4;16546;16547;16548;16549;, - 4;16550;16551;16552;16553;, - 4;16554;16555;16556;16557;, - 4;16558;16559;16560;16561;, - 4;16562;16563;16564;16565;, - 4;16566;16567;16568;16569;, - 4;16570;16571;16572;16573;, - 4;16574;16575;16576;16577;, - 4;16578;16579;16580;16581;, - 4;16582;16583;16584;16585;, - 4;16586;16587;16588;16589;, - 4;16590;16591;16592;16593;, - 4;16594;16595;16596;16597;, - 4;16598;16599;16600;16601;, - 4;16602;16603;16604;16605;, - 4;16606;16607;16608;16609;, - 4;16610;16611;16612;16613;, - 3;16614;16615;16616;, - 3;16617;16618;16619;, - 3;16620;16621;16622;, - 4;16623;16624;16625;16626;, - 3;16627;16628;16629;, - 4;16630;16631;16632;16633;, - 3;16634;16635;16636;, - 4;16637;16638;16639;16640;, - 3;16641;16642;16643;, - 3;16644;16645;16646;, - 4;16647;16648;16649;16650;, - 3;16651;16652;16653;, - 4;16654;16655;16656;16657;, - 3;16658;16659;16660;, - 3;16661;16662;16663;, - 4;16664;16665;16666;16667;, - 3;16668;16669;16670;, - 4;16671;16672;16673;16674;, - 3;16675;16676;16677;, - 4;16678;16679;16680;16681;, - 3;16682;16683;16684;, - 3;16685;16686;16687;, - 4;16688;16689;16690;16691;, - 3;16692;16693;16694;, - 4;16695;16696;16697;16698;, - 3;16699;16700;16701;, - 4;16702;16703;16704;16705;, - 4;16706;16707;16708;16709;, - 3;16710;16711;16712;, - 4;16713;16714;16715;16716;, - 4;16717;16718;16719;16720;, - 4;16721;16722;16723;16724;, - 4;16725;16726;16727;16728;, - 4;16729;16730;16731;16732;, - 3;16733;16734;16735;, - 4;16736;16737;16738;16739;, - 3;16740;16741;16742;, - 3;16743;16744;16745;, - 4;16746;16747;16748;16749;, - 3;16750;16751;16752;, - 4;16753;16754;16755;16756;, - 4;16757;16758;16759;16760;, - 4;16761;16762;16763;16764;, - 3;16765;16766;16767;, - 3;16768;16769;16770;, - 4;16771;16772;16773;16774;, - 3;16775;16776;16777;, - 4;16778;16779;16780;16781;, - 3;16782;16783;16784;, - 4;16785;16786;16787;16788;, - 3;16789;16790;16791;, - 3;16792;16793;16794;, - 4;16795;16796;16797;16798;, - 4;16799;16800;16801;16802;, - 4;16803;16804;16805;16806;, - 4;16807;16808;16809;16810;, - 4;16811;16812;16813;16814;, - 3;16815;16816;16817;, - 4;16818;16819;16820;16821;, - 3;16822;16823;16824;, - 4;16825;16826;16827;16828;, - 3;16829;16830;16831;, - 4;16832;16833;16834;16835;, - 4;16836;16837;16838;16839;, - 4;16840;16841;16842;16843;, - 3;16844;16845;16846;, - 4;16847;16848;16849;16850;, - 3;16851;16852;16853;, - 4;16854;16855;16856;16857;, - 3;16858;16859;16860;, - 3;16861;16862;16863;, - 4;16864;16865;16866;16867;, - 3;16868;16869;16870;, - 4;16871;16872;16873;16874;, - 3;16875;16876;16877;, - 4;16878;16879;16880;16881;, - 3;16882;16883;16884;, - 3;16885;16886;16887;, - 4;16888;16889;16890;16891;, - 3;16892;16893;16894;, - 4;16895;16896;16897;16898;, - 3;16899;16900;16901;, - 3;16902;16903;16904;, - 4;16905;16906;16907;16908;, - 3;16909;16910;16911;, - 4;16912;16913;16914;16915;, - 3;16916;16917;16918;, - 4;16919;16920;16921;16922;, - 3;16923;16924;16925;, - 3;16926;16927;16928;, - 4;16929;16930;16931;16932;, - 3;16933;16934;16935;, - 4;16936;16937;16938;16939;, - 3;16940;16941;16942;, - 3;16943;16944;16945;, - 3;16946;16947;16948;, - 3;16949;16950;16951;, - 3;16952;16953;16954;, - 4;16955;16956;16957;16958;, - 4;16959;16960;16961;16962;, - 4;16963;16964;16965;16966;, - 4;16967;16968;16969;16970;, - 4;16971;16972;16973;16974;, - 4;16975;16976;16977;16978;, - 4;16979;16980;16981;16982;, - 4;16983;16984;16985;16986;, - 4;16987;16988;16989;16990;, - 4;16991;16992;16993;16994;, - 4;16995;16996;16997;16998;, - 4;16999;17000;17001;17002;, - 4;17003;17004;17005;17006;, - 4;17007;17008;17009;17010;, - 4;17011;17012;17013;17014;, - 4;17015;17016;17017;17018;, - 4;17019;17020;17021;17022;, - 4;17023;17024;17025;17026;, - 4;17027;17028;17029;17030;, - 4;17031;17032;17033;17034;, - 4;17035;17036;17037;17038;, - 4;17039;17040;17041;17042;, - 4;17043;17044;17045;17046;, - 4;17047;17048;17049;17050;, - 4;17051;17052;17053;17054;, - 4;17055;17056;17057;17058;, - 4;17059;17060;17061;17062;, - 4;17063;17064;17065;17066;, - 4;17067;17068;17069;17070;, - 4;17071;17072;17073;17074;, - 4;17075;17076;17077;17078;, - 4;17079;17080;17081;17082;, - 4;17083;17084;17085;17086;, - 4;17087;17088;17089;17090;, - 4;17091;17092;17093;17094;, - 4;17095;17096;17097;17098;, - 4;17099;17100;17101;17102;, - 4;17103;17104;17105;17106;, - 4;17107;17108;17109;17110;, - 4;17111;17112;17113;17114;, - 4;17115;17116;17117;17118;, - 4;17119;17120;17121;17122;, - 4;17123;17124;17125;17126;, - 4;17127;17128;17129;17130;, - 4;17131;17132;17133;17134;, - 4;17135;17136;17137;17138;, - 4;17139;17140;17141;17142;, - 4;17143;17144;17145;17146;, - 4;17147;17148;17149;17150;, - 4;17151;17152;17153;17154;, - 4;17155;17156;17157;17158;, - 4;17159;17160;17161;17162;, - 4;17163;17164;17165;17166;, - 4;17167;17168;17169;17170;, - 4;17171;17172;17173;17174;, - 4;17175;17176;17177;17178;, - 4;17179;17180;17181;17182;, - 4;17183;17184;17185;17186;, - 4;17187;17188;17189;17190;, - 4;17191;17192;17193;17194;, - 4;17195;17196;17197;17198;, - 4;17199;17200;17201;17202;, - 4;17203;17204;17205;17206;, - 4;17207;17208;17209;17210;, - 4;17211;17212;17213;17214;, - 4;17215;17216;17217;17218;, - 4;17219;17220;17221;17222;, - 4;17223;17224;17225;17226;, - 4;17227;17228;17229;17230;, - 4;17231;17232;17233;17234;, - 4;17235;17236;17237;17238;, - 4;17239;17240;17241;17242;, - 4;17243;17244;17245;17246;, - 4;17247;17248;17249;17250;, - 4;17251;17252;17253;17254;, - 4;17255;17256;17257;17258;, - 4;17259;17260;17261;17262;, - 4;17263;17264;17265;17266;, - 4;17267;17268;17269;17270;, - 4;17271;17272;17273;17274;, - 4;17275;17276;17277;17278;, - 4;17279;17280;17281;17282;, - 4;17283;17284;17285;17286;, - 4;17287;17288;17289;17290;, - 4;17291;17292;17293;17294;, - 4;17295;17296;17297;17298;, - 4;17299;17300;17301;17302;, - 4;17303;17304;17305;17306;, - 4;17307;17308;17309;17310;, - 4;17311;17312;17313;17314;, - 4;17315;17316;17317;17318;, - 4;17319;17320;17321;17322;, - 4;17323;17324;17325;17326;, - 4;17327;17328;17329;17330;, - 4;17331;17332;17333;17334;, - 4;17335;17336;17337;17338;, - 4;17339;17340;17341;17342;, - 4;17343;17344;17345;17346;, - 4;17347;17348;17349;17350;, - 4;17351;17352;17353;17354;, - 4;17355;17356;17357;17358;, - 4;17359;17360;17361;17362;, - 4;17363;17364;17365;17366;, - 4;17367;17368;17369;17370;, - 4;17371;17372;17373;17374;, - 4;17375;17376;17377;17378;, - 4;17379;17380;17381;17382;, - 4;17383;17384;17385;17386;, - 4;17387;17388;17389;17390;, - 4;17391;17392;17393;17394;, - 4;17395;17396;17397;17398;, - 4;17399;17400;17401;17402;, - 4;17403;17404;17405;17406;, - 4;17407;17408;17409;17410;, - 4;17411;17412;17413;17414;, - 4;17415;17416;17417;17418;, - 4;17419;17420;17421;17422;, - 4;17423;17424;17425;17426;, - 4;17427;17428;17429;17430;, - 4;17431;17432;17433;17434;, - 4;17435;17436;17437;17438;, - 4;17439;17440;17441;17442;, - 4;17443;17444;17445;17446;, - 4;17447;17448;17449;17450;, - 4;17451;17452;17453;17454;, - 4;17455;17456;17457;17458;, - 4;17459;17460;17461;17462;, - 4;17463;17464;17465;17466;, - 4;17467;17468;17469;17470;, - 4;17471;17472;17473;17474;, - 4;17475;17476;17477;17478;, - 4;17479;17480;17481;17482;, - 4;17483;17484;17485;17486;, - 4;17487;17488;17489;17490;, - 4;17491;17492;17493;17494;, - 4;17495;17496;17497;17498;, - 4;17499;17500;17501;17502;, - 4;17503;17504;17505;17506;, - 4;17507;17508;17509;17510;, - 4;17511;17512;17513;17514;, - 4;17515;17516;17517;17518;, - 4;17519;17520;17521;17522;, - 4;17523;17524;17525;17526;, - 4;17527;17528;17529;17530;, - 4;17531;17532;17533;17534;, - 4;17535;17536;17537;17538;, - 4;17539;17540;17541;17542;, - 4;17543;17544;17545;17546;, - 4;17547;17548;17549;17550;, - 4;17551;17552;17553;17554;, - 4;17555;17556;17557;17558;, - 4;17559;17560;17561;17562;, - 4;17563;17564;17565;17566;, - 4;17567;17568;17569;17570;, - 4;17571;17572;17573;17574;, - 4;17575;17576;17577;17578;, - 4;17579;17580;17581;17582;, - 4;17583;17584;17585;17586;, - 4;17587;17588;17589;17590;, - 4;17591;17592;17593;17594;, - 4;17595;17596;17597;17598;, - 4;17599;17600;17601;17602;, - 4;17603;17604;17605;17606;, - 4;17607;17608;17609;17610;, - 4;17611;17612;17613;17614;, - 4;17615;17616;17617;17618;, - 4;17619;17620;17621;17622;, - 4;17623;17624;17625;17626;, - 4;17627;17628;17629;17630;, - 4;17631;17632;17633;17634;, - 4;17635;17636;17637;17638;, - 4;17639;17640;17641;17642;, - 4;17643;17644;17645;17646;, - 4;17647;17648;17649;17650;, - 4;17651;17652;17653;17654;, - 4;17655;17656;17657;17658;, - 4;17659;17660;17661;17662;, - 4;17663;17664;17665;17666;, - 4;17667;17668;17669;17670;, - 4;17671;17672;17673;17674;, - 4;17675;17676;17677;17678;, - 4;17679;17680;17681;17682;, - 4;17683;17684;17685;17686;, - 4;17687;17688;17689;17690;, - 4;17691;17692;17693;17694;, - 4;17695;17696;17697;17698;, - 4;17699;17700;17701;17702;, - 4;17703;17704;17705;17706;, - 4;17707;17708;17709;17710;, - 4;17711;17712;17713;17714;, - 4;17715;17716;17717;17718;, - 4;17719;17720;17721;17722;, - 4;17723;17724;17725;17726;, - 4;17727;17728;17729;17730;, - 4;17731;17732;17733;17734;, - 4;17735;17736;17737;17738;, - 3;17739;17740;17741;, - 4;17742;17743;17744;17745;, - 4;17746;17747;17748;17749;, - 3;17750;17751;17752;, - 3;17753;17754;17755;, - 4;17756;17757;17758;17759;, - 4;17760;17761;17762;17763;, - 3;17764;17765;17766;, - 3;17767;17768;17769;, - 4;17770;17771;17772;17773;, - 4;17774;17775;17776;17777;, - 4;17778;17779;17780;17781;, - 4;17782;17783;17784;17785;, - 4;17786;17787;17788;17789;, - 4;17790;17791;17792;17793;, - 4;17794;17795;17796;17797;, - 4;17798;17799;17800;17801;, - 4;17802;17803;17804;17805;, - 4;17806;17807;17808;17809;, - 4;17810;17811;17812;17813;, - 4;17814;17815;17816;17817;, - 4;17818;17819;17820;17821;, - 4;17822;17823;17824;17825;, - 3;17826;17827;17828;, - 4;17829;17830;17831;17832;, - 4;17833;17834;17835;17836;, - 3;17837;17838;17839;, - 3;17840;17841;17842;, - 4;17843;17844;17845;17846;, - 4;17847;17848;17849;17850;, - 4;17851;17852;17853;17854;, - 4;17855;17856;17857;17858;, - 4;17859;17860;17861;17862;, - 4;17863;17864;17865;17866;, - 4;17867;17868;17869;17870;, - 4;17871;17872;17873;17874;, - 3;17875;17876;17877;, - 4;17878;17879;17880;17881;, - 4;17882;17883;17884;17885;, - 4;17886;17887;17888;17889;, - 4;17890;17891;17892;17893;, - 4;17894;17895;17896;17897;, - 4;17898;17899;17900;17901;, - 4;17902;17903;17904;17905;, - 4;17906;17907;17908;17909;, - 4;17910;17911;17912;17913;, - 4;17914;17915;17916;17917;, - 4;17918;17919;17920;17921;, - 4;17922;17923;17924;17925;, - 4;17926;17927;17928;17929;, - 4;17930;17931;17932;17933;, - 4;17934;17935;17936;17937;, - 4;17938;17939;17940;17941;, - 4;17942;17943;17944;17945;, - 4;17946;17947;17948;17949;, - 3;17950;17951;17952;, - 4;17953;17954;17955;17956;, - 4;17957;17958;17959;17960;, - 3;17961;17962;17963;, - 3;17964;17965;17966;, - 4;17967;17968;17969;17970;, - 4;17971;17972;17973;17974;, - 3;17975;17976;17977;, - 3;17978;17979;17980;, - 4;17981;17982;17983;17984;, - 4;17985;17986;17987;17988;, - 4;17989;17990;17991;17992;, - 4;17993;17994;17995;17996;, - 4;17997;17998;17999;18000;, - 4;18001;18002;18003;18004;, - 4;18005;18006;18007;18008;, - 4;18009;18010;18011;18012;, - 4;18013;18014;18015;18016;, - 4;18017;18018;18019;18020;, - 4;18021;18022;18023;18024;, - 4;18025;18026;18027;18028;, - 4;18029;18030;18031;18032;, - 4;18033;18034;18035;18036;, - 3;18037;18038;18039;, - 4;18040;18041;18042;18043;, - 4;18044;18045;18046;18047;, - 3;18048;18049;18050;, - 3;18051;18052;18053;, - 4;18054;18055;18056;18057;, - 4;18058;18059;18060;18061;, - 4;18062;18063;18064;18065;, - 4;18066;18067;18068;18069;, - 4;18070;18071;18072;18073;, - 4;18074;18075;18076;18077;, - 4;18078;18079;18080;18081;, - 4;18082;18083;18084;18085;, - 3;18086;18087;18088;, - 4;18089;18090;18091;18092;, - 4;18093;18094;18095;18096;, - 4;18097;18098;18099;18100;, - 4;18101;18102;18103;18104;, - 4;18105;18106;18107;18108;, - 4;18109;18110;18111;18112;, - 4;18113;18114;18115;18116;, - 4;18117;18118;18119;18120;, - 4;18121;18122;18123;18124;, - 4;18125;18126;18127;18128;, - 4;18129;18130;18131;18132;, - 4;18133;18134;18135;18136;, - 4;18137;18138;18139;18140;, - 4;18141;18142;18143;18144;, - 4;18145;18146;18147;18148;, - 4;18149;18150;18151;18152;, - 4;18153;18154;18155;18156;, - 4;18157;18158;18159;18160;, - 4;18161;18162;18163;18164;, - 4;18165;18166;18167;18168;, - 3;18169;18170;18171;, - 4;18172;18173;18174;18175;, - 4;18176;18177;18178;18179;, - 4;18180;18181;18182;18183;, - 4;18184;18185;18186;18187;, - 4;18188;18189;18190;18191;, - 4;18192;18193;18194;18195;, - 4;18196;18197;18198;18199;, - 4;18200;18201;18202;18203;, - 4;18204;18205;18206;18207;, - 4;18208;18209;18210;18211;, - 4;18212;18213;18214;18215;, - 4;18216;18217;18218;18219;, - 4;18220;18221;18222;18223;, - 4;18224;18225;18226;18227;, - 4;18228;18229;18230;18231;, - 4;18232;18233;18234;18235;, - 4;18236;18237;18238;18239;, - 4;18240;18241;18242;18243;, - 4;18244;18245;18246;18247;, - 4;18248;18249;18250;18251;, - 4;18252;18253;18254;18255;, - 4;18256;18257;18258;18259;, - 4;18260;18261;18262;18263;, - 4;18264;18265;18266;18267;, - 4;18268;18269;18270;18271;, - 4;18272;18273;18274;18275;, - 4;18276;18277;18278;18279;, - 4;18280;18281;18282;18283;, - 4;18284;18285;18286;18287;, - 4;18288;18289;18290;18291;, - 4;18292;18293;18294;18295;, - 4;18296;18297;18298;18299;, - 4;18300;18301;18302;18303;, - 4;18304;18305;18306;18307;, - 4;18308;18309;18310;18311;, - 4;18312;18313;18314;18315;, - 4;18316;18317;18318;18319;, - 4;18320;18321;18322;18323;, - 4;18324;18325;18326;18327;, - 4;18328;18329;18330;18331;, - 4;18332;18333;18334;18335;, - 4;18336;18337;18338;18339;, - 4;18340;18341;18342;18343;, - 4;18344;18345;18346;18347;, - 4;18348;18349;18350;18351;, - 4;18352;18353;18354;18355;, - 4;18356;18357;18358;18359;, - 4;18360;18361;18362;18363;, - 4;18364;18365;18366;18367;, - 4;18368;18369;18370;18371;, - 4;18372;18373;18374;18375;, - 4;18376;18377;18378;18379;, - 4;18380;18381;18382;18383;, - 4;18384;18385;18386;18387;, - 4;18388;18389;18390;18391;, - 4;18392;18393;18394;18395;, - 4;18396;18397;18398;18399;, - 4;18400;18401;18402;18403;, - 4;18404;18405;18406;18407;, - 4;18408;18409;18410;18411;, - 4;18412;18413;18414;18415;, - 4;18416;18417;18418;18419;, - 4;18420;18421;18422;18423;, - 4;18424;18425;18426;18427;, - 4;18428;18429;18430;18431;, - 4;18432;18433;18434;18435;, - 4;18436;18437;18438;18439;, - 4;18440;18441;18442;18443;, - 4;18444;18445;18446;18447;, - 4;18448;18449;18450;18451;, - 4;18452;18453;18454;18455;, - 4;18456;18457;18458;18459;, - 4;18460;18461;18462;18463;, - 4;18464;18465;18466;18467;, - 4;18468;18469;18470;18471;, - 4;18472;18473;18474;18475;, - 4;18476;18477;18478;18479;, - 4;18480;18481;18482;18483;, - 4;18484;18485;18486;18487;, - 4;18488;18489;18490;18491;, - 4;18492;18493;18494;18495;, - 4;18496;18497;18498;18499;, - 4;18500;18501;18502;18503;, - 4;18504;18505;18506;18507;, - 4;18508;18509;18510;18511;, - 4;18512;18513;18514;18515;, - 4;18516;18517;18518;18519;, - 4;18520;18521;18522;18523;, - 4;18524;18525;18526;18527;, - 4;18528;18529;18530;18531;, - 4;18532;18533;18534;18535;, - 4;18536;18537;18538;18539;, - 4;18540;18541;18542;18543;, - 4;18544;18545;18546;18547;, - 4;18548;18549;18550;18551;, - 4;18552;18553;18554;18555;, - 4;18556;18557;18558;18559;, - 4;18560;18561;18562;18563;, - 4;18564;18565;18566;18567;, - 4;18568;18569;18570;18571;, - 4;18572;18573;18574;18575;, - 4;18576;18577;18578;18579;, - 4;18580;18581;18582;18583;, - 4;18584;18585;18586;18587;, - 4;18588;18589;18590;18591;, - 4;18592;18593;18594;18595;, - 4;18596;18597;18598;18599;, - 4;18600;18601;18602;18603;, - 4;18604;18605;18606;18607;, - 4;18608;18609;18610;18611;, - 4;18612;18613;18614;18615;, - 4;18616;18617;18618;18619;, - 4;18620;18621;18622;18623;, - 4;18624;18625;18626;18627;, - 4;18628;18629;18630;18631;, - 4;18632;18633;18634;18635;, - 4;18636;18637;18638;18639;, - 4;18640;18641;18642;18643;, - 4;18644;18645;18646;18647;, - 4;18648;18649;18650;18651;, - 4;18652;18653;18654;18655;, - 4;18656;18657;18658;18659;, - 4;18660;18661;18662;18663;, - 4;18664;18665;18666;18667;, - 4;18668;18669;18670;18671;, - 4;18672;18673;18674;18675;, - 4;18676;18677;18678;18679;, - 4;18680;18681;18682;18683;, - 4;18684;18685;18686;18687;, - 4;18688;18689;18690;18691;, - 4;18692;18693;18694;18695;, - 4;18696;18697;18698;18699;, - 4;18700;18701;18702;18703;, - 4;18704;18705;18706;18707;, - 4;18708;18709;18710;18711;, - 4;18712;18713;18714;18715;, - 4;18716;18717;18718;18719;, - 4;18720;18721;18722;18723;, - 4;18724;18725;18726;18727;, - 4;18728;18729;18730;18731;, - 4;18732;18733;18734;18735;, - 4;18736;18737;18738;18739;, - 4;18740;18741;18742;18743;, - 4;18744;18745;18746;18747;, - 4;18748;18749;18750;18751;, - 4;18752;18753;18754;18755;, - 4;18756;18757;18758;18759;, - 4;18760;18761;18762;18763;, - 4;18764;18765;18766;18767;, - 4;18768;18769;18770;18771;, - 4;18772;18773;18774;18775;, - 4;18776;18777;18778;18779;, - 4;18780;18781;18782;18783;, - 4;18784;18785;18786;18787;, - 4;18788;18789;18790;18791;, - 4;18792;18793;18794;18795;, - 4;18796;18797;18798;18799;, - 4;18800;18801;18802;18803;, - 4;18804;18805;18806;18807;, - 4;18808;18809;18810;18811;, - 4;18812;18813;18814;18815;, - 4;18816;18817;18818;18819;, - 4;18820;18821;18822;18823;, - 4;18824;18825;18826;18827;, - 4;18828;18829;18830;18831;, - 4;18832;18833;18834;18835;, - 4;18836;18837;18838;18839;, - 4;18840;18841;18842;18843;, - 4;18844;18845;18846;18847;, - 4;18848;18849;18850;18851;, - 4;18852;18853;18854;18855;, - 4;18856;18857;18858;18859;, - 4;18860;18861;18862;18863;, - 4;18864;18865;18866;18867;, - 4;18868;18869;18870;18871;, - 4;18872;18873;18874;18875;, - 4;18876;18877;18878;18879;, - 4;18880;18881;18882;18883;, - 4;18884;18885;18886;18887;, - 4;18888;18889;18890;18891;, - 4;18892;18893;18894;18895;, - 4;18896;18897;18898;18899;, - 4;18900;18901;18902;18903;, - 4;18904;18905;18906;18907;, - 4;18908;18909;18910;18911;, - 4;18912;18913;18914;18915;, - 4;18916;18917;18918;18919;, - 4;18920;18921;18922;18923;, - 4;18924;18925;18926;18927;, - 4;18928;18929;18930;18931;, - 4;18932;18933;18934;18935;, - 4;18936;18937;18938;18939;, - 4;18940;18941;18942;18943;, - 4;18944;18945;18946;18947;, - 4;18948;18949;18950;18951;, - 4;18952;18953;18954;18955;, - 4;18956;18957;18958;18959;, - 4;18960;18961;18962;18963;, - 4;18964;18965;18966;18967;, - 4;18968;18969;18970;18971;, - 4;18972;18973;18974;18975;, - 4;18976;18977;18978;18979;, - 4;18980;18981;18982;18983;, - 4;18984;18985;18986;18987;, - 4;18988;18989;18990;18991;, - 4;18992;18993;18994;18995;, - 4;18996;18997;18998;18999;, - 4;19000;19001;19002;19003;, - 3;19004;19005;19006;, - 3;19007;19008;19009;, - 3;19010;19011;19012;, - 4;19013;19014;19015;19016;, - 3;19017;19018;19019;, - 4;19020;19021;19022;19023;, - 3;19024;19025;19026;, - 4;19027;19028;19029;19030;, - 3;19031;19032;19033;, - 3;19034;19035;19036;, - 4;19037;19038;19039;19040;, - 3;19041;19042;19043;, - 4;19044;19045;19046;19047;, - 3;19048;19049;19050;, - 3;19051;19052;19053;, - 4;19054;19055;19056;19057;, - 3;19058;19059;19060;, - 4;19061;19062;19063;19064;, - 3;19065;19066;19067;, - 4;19068;19069;19070;19071;, - 3;19072;19073;19074;, - 3;19075;19076;19077;, - 4;19078;19079;19080;19081;, - 3;19082;19083;19084;, - 4;19085;19086;19087;19088;, - 3;19089;19090;19091;, - 4;19092;19093;19094;19095;, - 4;19096;19097;19098;19099;, - 3;19100;19101;19102;, - 4;19103;19104;19105;19106;, - 4;19107;19108;19109;19110;, - 4;19111;19112;19113;19114;, - 4;19115;19116;19117;19118;, - 4;19119;19120;19121;19122;, - 3;19123;19124;19125;, - 4;19126;19127;19128;19129;, - 3;19130;19131;19132;, - 3;19133;19134;19135;, - 4;19136;19137;19138;19139;, - 3;19140;19141;19142;, - 4;19143;19144;19145;19146;, - 4;19147;19148;19149;19150;, - 4;19151;19152;19153;19154;, - 3;19155;19156;19157;, - 3;19158;19159;19160;, - 4;19161;19162;19163;19164;, - 3;19165;19166;19167;, - 4;19168;19169;19170;19171;, - 3;19172;19173;19174;, - 4;19175;19176;19177;19178;, - 3;19179;19180;19181;, - 3;19182;19183;19184;, - 4;19185;19186;19187;19188;, - 4;19189;19190;19191;19192;, - 4;19193;19194;19195;19196;, - 4;19197;19198;19199;19200;, - 4;19201;19202;19203;19204;, - 3;19205;19206;19207;, - 4;19208;19209;19210;19211;, - 3;19212;19213;19214;, - 4;19215;19216;19217;19218;, - 3;19219;19220;19221;, - 4;19222;19223;19224;19225;, - 4;19226;19227;19228;19229;, - 4;19230;19231;19232;19233;, - 3;19234;19235;19236;, - 4;19237;19238;19239;19240;, - 3;19241;19242;19243;, - 4;19244;19245;19246;19247;, - 3;19248;19249;19250;, - 3;19251;19252;19253;, - 4;19254;19255;19256;19257;, - 3;19258;19259;19260;, - 4;19261;19262;19263;19264;, - 3;19265;19266;19267;, - 4;19268;19269;19270;19271;, - 3;19272;19273;19274;, - 3;19275;19276;19277;, - 4;19278;19279;19280;19281;, - 3;19282;19283;19284;, - 4;19285;19286;19287;19288;, - 3;19289;19290;19291;, - 3;19292;19293;19294;, - 4;19295;19296;19297;19298;, - 3;19299;19300;19301;, - 4;19302;19303;19304;19305;, - 3;19306;19307;19308;, - 4;19309;19310;19311;19312;, - 3;19313;19314;19315;, - 3;19316;19317;19318;, - 4;19319;19320;19321;19322;, - 3;19323;19324;19325;, - 4;19326;19327;19328;19329;, - 3;19330;19331;19332;, - 3;19333;19334;19335;, - 3;19336;19337;19338;, - 3;19339;19340;19341;, - 3;19342;19343;19344;, - 4;19345;19346;19347;19348;, - 4;19349;19350;19351;19352;, - 4;19353;19354;19355;19356;, - 4;19357;19358;19359;19360;, - 4;19361;19362;19363;19364;, - 4;19365;19366;19367;19368;, - 4;19369;19370;19371;19372;, - 4;19373;19374;19375;19376;, - 4;19377;19378;19379;19380;, - 4;19381;19382;19383;19384;, - 4;19385;19386;19387;19388;, - 4;19389;19390;19391;19392;, - 4;19393;19394;19395;19396;, - 4;19397;19398;19399;19400;, - 4;19401;19402;19403;19404;, - 4;19405;19406;19407;19408;, - 4;19409;19410;19411;19412;, - 4;19413;19414;19415;19416;, - 4;19417;19418;19419;19420;, - 4;19421;19422;19423;19424;, - 4;19425;19426;19427;19428;, - 4;19429;19430;19431;19432;, - 4;19433;19434;19435;19436;, - 4;19437;19438;19439;19440;, - 4;19441;19442;19443;19444;, - 4;19445;19446;19447;19448;, - 4;19449;19450;19451;19452;, - 4;19453;19454;19455;19456;, - 4;19457;19458;19459;19460;, - 4;19461;19462;19463;19464;, - 4;19465;19466;19467;19468;, - 4;19469;19470;19471;19472;, - 4;19473;19474;19475;19476;, - 4;19477;19478;19479;19480;, - 4;19481;19482;19483;19484;, - 4;19485;19486;19487;19488;, - 4;19489;19490;19491;19492;, - 4;19493;19494;19495;19496;, - 4;19497;19498;19499;19500;, - 4;19501;19502;19503;19504;, - 4;19505;19506;19507;19508;, - 4;19509;19510;19511;19512;, - 4;19513;19514;19515;19516;, - 4;19517;19518;19519;19520;, - 4;19521;19522;19523;19524;, - 4;19525;19526;19527;19528;, - 4;19529;19530;19531;19532;, - 4;19533;19534;19535;19536;, - 4;19537;19538;19539;19540;, - 4;19541;19542;19543;19544;, - 4;19545;19546;19547;19548;, - 4;19549;19550;19551;19552;, - 4;19553;19554;19555;19556;, - 4;19557;19558;19559;19560;, - 4;19561;19562;19563;19564;, - 4;19565;19566;19567;19568;, - 4;19569;19570;19571;19572;, - 4;19573;19574;19575;19576;, - 4;19577;19578;19579;19580;, - 4;19581;19582;19583;19584;, - 4;19585;19586;19587;19588;, - 4;19589;19590;19591;19592;, - 4;19593;19594;19595;19596;, - 4;19597;19598;19599;19600;, - 4;19601;19602;19603;19604;, - 4;19605;19606;19607;19608;, - 4;19609;19610;19611;19612;, - 4;19613;19614;19615;19616;, - 4;19617;19618;19619;19620;, - 4;19621;19622;19623;19624;, - 4;19625;19626;19627;19628;, - 4;19629;19630;19631;19632;, - 4;19633;19634;19635;19636;, - 4;19637;19638;19639;19640;, - 4;19641;19642;19643;19644;, - 4;19645;19646;19647;19648;, - 4;19649;19650;19651;19652;, - 4;19653;19654;19655;19656;, - 4;19657;19658;19659;19660;, - 4;19661;19662;19663;19664;, - 4;19665;19666;19667;19668;, - 4;19669;19670;19671;19672;, - 4;19673;19674;19675;19676;, - 4;19677;19678;19679;19680;, - 4;19681;19682;19683;19684;, - 4;19685;19686;19687;19688;, - 4;19689;19690;19691;19692;, - 4;19693;19694;19695;19696;, - 4;19697;19698;19699;19700;, - 4;19701;19702;19703;19704;, - 4;19705;19706;19707;19708;, - 4;19709;19710;19711;19712;, - 4;19713;19714;19715;19716;, - 4;19717;19718;19719;19720;, - 4;19721;19722;19723;19724;, - 4;19725;19726;19727;19728;, - 4;19729;19730;19731;19732;, - 4;19733;19734;19735;19736;, - 4;19737;19738;19739;19740;, - 4;19741;19742;19743;19744;, - 4;19745;19746;19747;19748;, - 4;19749;19750;19751;19752;, - 4;19753;19754;19755;19756;, - 4;19757;19758;19759;19760;, - 4;19761;19762;19763;19764;, - 4;19765;19766;19767;19768;, - 4;19769;19770;19771;19772;, - 4;19773;19774;19775;19776;, - 4;19777;19778;19779;19780;, - 4;19781;19782;19783;19784;, - 4;19785;19786;19787;19788;, - 4;19789;19790;19791;19792;, - 4;19793;19794;19795;19796;, - 4;19797;19798;19799;19800;, - 4;19801;19802;19803;19804;, - 4;19805;19806;19807;19808;, - 4;19809;19810;19811;19812;, - 4;19813;19814;19815;19816;, - 4;19817;19818;19819;19820;, - 4;19821;19822;19823;19824;, - 4;19825;19826;19827;19828;, - 4;19829;19830;19831;19832;, - 4;19833;19834;19835;19836;, - 4;19837;19838;19839;19840;, - 4;19841;19842;19843;19844;, - 4;19845;19846;19847;19848;, - 4;19849;19850;19851;19852;, - 4;19853;19854;19855;19856;, - 4;19857;19858;19859;19860;, - 4;19861;19862;19863;19864;, - 4;19865;19866;19867;19868;, - 4;19869;19870;19871;19872;, - 4;19873;19874;19875;19876;, - 4;19877;19878;19879;19880;, - 4;19881;19882;19883;19884;, - 4;19885;19886;19887;19888;, - 4;19889;19890;19891;19892;, - 4;19893;19894;19895;19896;, - 4;19897;19898;19899;19900;, - 4;19901;19902;19903;19904;, - 4;19905;19906;19907;19908;, - 4;19909;19910;19911;19912;, - 4;19913;19914;19915;19916;, - 4;19917;19918;19919;19920;, - 4;19921;19922;19923;19924;, - 4;19925;19926;19927;19928;, - 4;19929;19930;19931;19932;, - 4;19933;19934;19935;19936;, - 4;19937;19938;19939;19940;, - 4;19941;19942;19943;19944;, - 4;19945;19946;19947;19948;, - 4;19949;19950;19951;19952;, - 4;19953;19954;19955;19956;, - 4;19957;19958;19959;19960;, - 4;19961;19962;19963;19964;, - 4;19965;19966;19967;19968;, - 4;19969;19970;19971;19972;, - 4;19973;19974;19975;19976;, - 4;19977;19978;19979;19980;, - 4;19981;19982;19983;19984;, - 4;19985;19986;19987;19988;, - 4;19989;19990;19991;19992;, - 4;19993;19994;19995;19996;, - 4;19997;19998;19999;20000;, - 4;20001;20002;20003;20004;, - 4;20005;20006;20007;20008;, - 4;20009;20010;20011;20012;, - 4;20013;20014;20015;20016;, - 4;20017;20018;20019;20020;, - 4;20021;20022;20023;20024;, - 4;20025;20026;20027;20028;, - 4;20029;20030;20031;20032;, - 4;20033;20034;20035;20036;, - 4;20037;20038;20039;20040;, - 4;20041;20042;20043;20044;, - 4;20045;20046;20047;20048;, - 4;20049;20050;20051;20052;, - 4;20053;20054;20055;20056;, - 4;20057;20058;20059;20060;, - 4;20061;20062;20063;20064;, - 4;20065;20066;20067;20068;, - 4;20069;20070;20071;20072;, - 4;20073;20074;20075;20076;, - 4;20077;20078;20079;20080;, - 4;20081;20082;20083;20084;, - 4;20085;20086;20087;20088;, - 4;20089;20090;20091;20092;, - 4;20093;20094;20095;20096;, - 4;20097;20098;20099;20100;, - 4;20101;20102;20103;20104;, - 4;20105;20106;20107;20108;, - 4;20109;20110;20111;20112;, - 4;20113;20114;20115;20116;, - 4;20117;20118;20119;20120;, - 4;20121;20122;20123;20124;, - 4;20125;20126;20127;20128;, - 3;20129;20130;20131;, - 4;20132;20133;20134;20135;, - 4;20136;20137;20138;20139;, - 3;20140;20141;20142;, - 3;20143;20144;20145;, - 4;20146;20147;20148;20149;, - 4;20150;20151;20152;20153;, - 3;20154;20155;20156;, - 3;20157;20158;20159;, - 4;20160;20161;20162;20163;, - 4;20164;20165;20166;20167;, - 4;20168;20169;20170;20171;, - 4;20172;20173;20174;20175;, - 4;20176;20177;20178;20179;, - 4;20180;20181;20182;20183;, - 4;20184;20185;20186;20187;, - 4;20188;20189;20190;20191;, - 4;20192;20193;20194;20195;, - 4;20196;20197;20198;20199;, - 4;20200;20201;20202;20203;, - 4;20204;20205;20206;20207;, - 4;20208;20209;20210;20211;, - 4;20212;20213;20214;20215;, - 3;20216;20217;20218;, - 4;20219;20220;20221;20222;, - 4;20223;20224;20225;20226;, - 3;20227;20228;20229;, - 3;20230;20231;20232;, - 4;20233;20234;20235;20236;, - 4;20237;20238;20239;20240;, - 4;20241;20242;20243;20244;, - 4;20245;20246;20247;20248;, - 4;20249;20250;20251;20252;, - 4;20253;20254;20255;20256;, - 4;20257;20258;20259;20260;, - 4;20261;20262;20263;20264;, - 3;20265;20266;20267;, - 4;20268;20269;20270;20271;, - 4;20272;20273;20274;20275;, - 4;20276;20277;20278;20279;, - 4;20280;20281;20282;20283;, - 4;20284;20285;20286;20287;, - 4;20288;20289;20290;20291;, - 4;20292;20293;20294;20295;, - 4;20296;20297;20298;20299;, - 4;20300;20301;20302;20303;, - 4;20304;20305;20306;20307;, - 4;20308;20309;20310;20311;, - 4;20312;20313;20314;20315;, - 4;20316;20317;20318;20319;, - 4;20320;20321;20322;20323;, - 4;20324;20325;20326;20327;, - 4;20328;20329;20330;20331;, - 4;20332;20333;20334;20335;, - 4;20336;20337;20338;20339;, - 3;20340;20341;20342;, - 4;20343;20344;20345;20346;, - 4;20347;20348;20349;20350;, - 3;20351;20352;20353;, - 3;20354;20355;20356;, - 4;20357;20358;20359;20360;, - 4;20361;20362;20363;20364;, - 3;20365;20366;20367;, - 3;20368;20369;20370;, - 4;20371;20372;20373;20374;, - 4;20375;20376;20377;20378;, - 4;20379;20380;20381;20382;, - 4;20383;20384;20385;20386;, - 4;20387;20388;20389;20390;, - 4;20391;20392;20393;20394;, - 4;20395;20396;20397;20398;, - 4;20399;20400;20401;20402;, - 4;20403;20404;20405;20406;, - 4;20407;20408;20409;20410;, - 4;20411;20412;20413;20414;, - 4;20415;20416;20417;20418;, - 4;20419;20420;20421;20422;, - 4;20423;20424;20425;20426;, - 3;20427;20428;20429;, - 4;20430;20431;20432;20433;, - 4;20434;20435;20436;20437;, - 3;20438;20439;20440;, - 3;20441;20442;20443;, - 4;20444;20445;20446;20447;, - 4;20448;20449;20450;20451;, - 4;20452;20453;20454;20455;, - 4;20456;20457;20458;20459;, - 4;20460;20461;20462;20463;, - 4;20464;20465;20466;20467;, - 4;20468;20469;20470;20471;, - 4;20472;20473;20474;20475;, - 3;20476;20477;20478;, - 4;20479;20480;20481;20482;, - 4;20483;20484;20485;20486;, - 4;20487;20488;20489;20490;, - 4;20491;20492;20493;20494;, - 4;20495;20496;20497;20498;, - 4;20499;20500;20501;20502;, - 4;20503;20504;20505;20506;, - 4;20507;20508;20509;20510;, - 4;20511;20512;20513;20514;, - 4;20515;20516;20517;20518;, - 4;20519;20520;20521;20522;, - 4;20523;20524;20525;20526;, - 4;20527;20528;20529;20530;, - 4;20531;20532;20533;20534;, - 4;20535;20536;20537;20538;, - 4;20539;20540;20541;20542;, - 4;20543;20544;20545;20546;, - 4;20547;20548;20549;20550;, - 4;20551;20552;20553;20554;, - 4;20555;20556;20557;20558;, - 3;20559;20560;20561;, - 4;20562;20563;20564;20565;, - 4;20566;20567;20568;20569;, - 4;20570;20571;20572;20573;, - 4;20574;20575;20576;20577;, - 4;20578;20579;20580;20581;, - 4;20582;20583;20584;20585;, - 4;20586;20587;20588;20589;, - 4;20590;20591;20592;20593;, - 4;20594;20595;20596;20597;, - 4;20598;20599;20600;20601;, - 4;20602;20603;20604;20605;, - 4;20606;20607;20608;20609;, - 4;20610;20611;20612;20613;, - 4;20614;20615;20616;20617;, - 4;20618;20619;20620;20621;, - 4;20622;20623;20624;20625;, - 4;20626;20627;20628;20629;, - 4;20630;20631;20632;20633;, - 4;20634;20635;20636;20637;, - 4;20638;20639;20640;20641;, - 4;20642;20643;20644;20645;, - 4;20646;20647;20648;20649;, - 4;20650;20651;20652;20653;, - 4;20654;20655;20656;20657;, - 4;20658;20659;20660;20661;, - 4;20662;20663;20664;20665;, - 4;20666;20667;20668;20669;, - 4;20670;20671;20672;20673;, - 4;20674;20675;20676;20677;, - 4;20678;20679;20680;20681;, - 4;20682;20683;20684;20685;, - 4;20686;20687;20688;20689;, - 4;20690;20691;20692;20693;, - 4;20694;20695;20696;20697;, - 4;20698;20699;20700;20701;, - 4;20702;20703;20704;20705;, - 4;20706;20707;20708;20709;, - 4;20710;20711;20712;20713;, - 4;20714;20715;20716;20717;, - 4;20718;20719;20720;20721;, - 4;20722;20723;20724;20725;, - 4;20726;20727;20728;20729;, - 4;20730;20731;20732;20733;, - 4;20734;20735;20736;20737;, - 4;20738;20739;20740;20741;, - 4;20742;20743;20744;20745;, - 4;20746;20747;20748;20749;, - 4;20750;20751;20752;20753;, - 4;20754;20755;20756;20757;, - 4;20758;20759;20760;20761;, - 4;20762;20763;20764;20765;, - 4;20766;20767;20768;20769;, - 4;20770;20771;20772;20773;, - 4;20774;20775;20776;20777;, - 4;20778;20779;20780;20781;, - 4;20782;20783;20784;20785;, - 4;20786;20787;20788;20789;, - 4;20790;20791;20792;20793;, - 4;20794;20795;20796;20797;, - 4;20798;20799;20800;20801;, - 4;20802;20803;20804;20805;, - 4;20806;20807;20808;20809;, - 4;20810;20811;20812;20813;, - 4;20814;20815;20816;20817;, - 4;20818;20819;20820;20821;, - 4;20822;20823;20824;20825;, - 4;20826;20827;20828;20829;, - 4;20830;20831;20832;20833;, - 4;20834;20835;20836;20837;, - 4;20838;20839;20840;20841;, - 4;20842;20843;20844;20845;, - 4;20846;20847;20848;20849;, - 4;20850;20851;20852;20853;, - 4;20854;20855;20856;20857;, - 4;20858;20859;20860;20861;, - 4;20862;20863;20864;20865;, - 4;20866;20867;20868;20869;, - 4;20870;20871;20872;20873;, - 4;20874;20875;20876;20877;, - 4;20878;20879;20880;20881;, - 4;20882;20883;20884;20885;, - 4;20886;20887;20888;20889;, - 4;20890;20891;20892;20893;, - 4;20894;20895;20896;20897;, - 4;20898;20899;20900;20901;, - 4;20902;20903;20904;20905;, - 4;20906;20907;20908;20909;, - 4;20910;20911;20912;20913;, - 4;20914;20915;20916;20917;, - 4;20918;20919;20920;20921;, - 4;20922;20923;20924;20925;, - 4;20926;20927;20928;20929;, - 4;20930;20931;20932;20933;, - 4;20934;20935;20936;20937;, - 4;20938;20939;20940;20941;, - 4;20942;20943;20944;20945;, - 4;20946;20947;20948;20949;, - 4;20950;20951;20952;20953;, - 4;20954;20955;20956;20957;, - 4;20958;20959;20960;20961;, - 4;20962;20963;20964;20965;, - 4;20966;20967;20968;20969;, - 4;20970;20971;20972;20973;, - 4;20974;20975;20976;20977;, - 4;20978;20979;20980;20981;, - 4;20982;20983;20984;20985;, - 4;20986;20987;20988;20989;, - 4;20990;20991;20992;20993;, - 4;20994;20995;20996;20997;, - 4;20998;20999;21000;21001;, - 4;21002;21003;21004;21005;, - 4;21006;21007;21008;21009;, - 4;21010;21011;21012;21013;, - 4;21014;21015;21016;21017;, - 4;21018;21019;21020;21021;, - 4;21022;21023;21024;21025;, - 4;21026;21027;21028;21029;, - 4;21030;21031;21032;21033;, - 4;21034;21035;21036;21037;, - 4;21038;21039;21040;21041;, - 4;21042;21043;21044;21045;, - 4;21046;21047;21048;21049;, - 4;21050;21051;21052;21053;, - 4;21054;21055;21056;21057;, - 4;21058;21059;21060;21061;, - 4;21062;21063;21064;21065;, - 4;21066;21067;21068;21069;, - 4;21070;21071;21072;21073;, - 4;21074;21075;21076;21077;, - 4;21078;21079;21080;21081;, - 4;21082;21083;21084;21085;, - 4;21086;21087;21088;21089;, - 4;21090;21091;21092;21093;, - 4;21094;21095;21096;21097;, - 4;21098;21099;21100;21101;, - 4;21102;21103;21104;21105;, - 4;21106;21107;21108;21109;, - 4;21110;21111;21112;21113;, - 4;21114;21115;21116;21117;, - 4;21118;21119;21120;21121;, - 4;21122;21123;21124;21125;, - 4;21126;21127;21128;21129;, - 4;21130;21131;21132;21133;, - 4;21134;21135;21136;21137;, - 4;21138;21139;21140;21141;, - 4;21142;21143;21144;21145;, - 4;21146;21147;21148;21149;, - 4;21150;21151;21152;21153;, - 4;21154;21155;21156;21157;, - 4;21158;21159;21160;21161;, - 4;21162;21163;21164;21165;, - 4;21166;21167;21168;21169;, - 4;21170;21171;21172;21173;, - 4;21174;21175;21176;21177;, - 4;21178;21179;21180;21181;, - 4;21182;21183;21184;21185;, - 4;21186;21187;21188;21189;, - 4;21190;21191;21192;21193;, - 4;21194;21195;21196;21197;, - 4;21198;21199;21200;21201;, - 4;21202;21203;21204;21205;, - 4;21206;21207;21208;21209;, - 4;21210;21211;21212;21213;, - 4;21214;21215;21216;21217;, - 4;21218;21219;21220;21221;, - 4;21222;21223;21224;21225;, - 4;21226;21227;21228;21229;, - 4;21230;21231;21232;21233;, - 4;21234;21235;21236;21237;, - 4;21238;21239;21240;21241;, - 4;21242;21243;21244;21245;, - 4;21246;21247;21248;21249;, - 4;21250;21251;21252;21253;, - 4;21254;21255;21256;21257;, - 4;21258;21259;21260;21261;, - 4;21262;21263;21264;21265;, - 4;21266;21267;21268;21269;, - 4;21270;21271;21272;21273;, - 4;21274;21275;21276;21277;, - 4;21278;21279;21280;21281;, - 4;21282;21283;21284;21285;, - 4;21286;21287;21288;21289;, - 4;21290;21291;21292;21293;, - 4;21294;21295;21296;21297;, - 4;21298;21299;21300;21301;, - 4;21302;21303;21304;21305;, - 4;21306;21307;21308;21309;, - 4;21310;21311;21312;21313;, - 4;21314;21315;21316;21317;, - 4;21318;21319;21320;21321;, - 4;21322;21323;21324;21325;, - 4;21326;21327;21328;21329;, - 4;21330;21331;21332;21333;, - 4;21334;21335;21336;21337;, - 4;21338;21339;21340;21341;, - 4;21342;21343;21344;21345;, - 4;21346;21347;21348;21349;, - 4;21350;21351;21352;21353;, - 4;21354;21355;21356;21357;, - 4;21358;21359;21360;21361;, - 4;21362;21363;21364;21365;, - 4;21366;21367;21368;21369;, - 4;21370;21371;21372;21373;, - 4;21374;21375;21376;21377;, - 4;21378;21379;21380;21381;, - 4;21382;21383;21384;21385;, - 4;21386;21387;21388;21389;, - 4;21390;21391;21392;21393;, - 3;21394;21395;21396;, - 3;21397;21398;21399;, - 3;21400;21401;21402;, - 4;21403;21404;21405;21406;, - 3;21407;21408;21409;, - 4;21410;21411;21412;21413;, - 3;21414;21415;21416;, - 4;21417;21418;21419;21420;, - 3;21421;21422;21423;, - 3;21424;21425;21426;, - 4;21427;21428;21429;21430;, - 3;21431;21432;21433;, - 4;21434;21435;21436;21437;, - 3;21438;21439;21440;, - 3;21441;21442;21443;, - 4;21444;21445;21446;21447;, - 3;21448;21449;21450;, - 4;21451;21452;21453;21454;, - 3;21455;21456;21457;, - 4;21458;21459;21460;21461;, - 3;21462;21463;21464;, - 3;21465;21466;21467;, - 4;21468;21469;21470;21471;, - 3;21472;21473;21474;, - 4;21475;21476;21477;21478;, - 3;21479;21480;21481;, - 4;21482;21483;21484;21485;, - 4;21486;21487;21488;21489;, - 3;21490;21491;21492;, - 4;21493;21494;21495;21496;, - 4;21497;21498;21499;21500;, - 4;21501;21502;21503;21504;, - 4;21505;21506;21507;21508;, - 4;21509;21510;21511;21512;, - 3;21513;21514;21515;, - 4;21516;21517;21518;21519;, - 3;21520;21521;21522;, - 3;21523;21524;21525;, - 4;21526;21527;21528;21529;, - 3;21530;21531;21532;, - 4;21533;21534;21535;21536;, - 4;21537;21538;21539;21540;, - 4;21541;21542;21543;21544;, - 3;21545;21546;21547;, - 3;21548;21549;21550;, - 4;21551;21552;21553;21554;, - 3;21555;21556;21557;, - 4;21558;21559;21560;21561;, - 3;21562;21563;21564;, - 4;21565;21566;21567;21568;, - 3;21569;21570;21571;, - 3;21572;21573;21574;, - 4;21575;21576;21577;21578;, - 4;21579;21580;21581;21582;, - 4;21583;21584;21585;21586;, - 4;21587;21588;21589;21590;, - 4;21591;21592;21593;21594;, - 3;21595;21596;21597;, - 4;21598;21599;21600;21601;, - 3;21602;21603;21604;, - 4;21605;21606;21607;21608;, - 3;21609;21610;21611;, - 4;21612;21613;21614;21615;, - 4;21616;21617;21618;21619;, - 4;21620;21621;21622;21623;, - 3;21624;21625;21626;, - 4;21627;21628;21629;21630;, - 3;21631;21632;21633;, - 4;21634;21635;21636;21637;, - 3;21638;21639;21640;, - 3;21641;21642;21643;, - 4;21644;21645;21646;21647;, - 3;21648;21649;21650;, - 4;21651;21652;21653;21654;, - 3;21655;21656;21657;, - 4;21658;21659;21660;21661;, - 3;21662;21663;21664;, - 3;21665;21666;21667;, - 4;21668;21669;21670;21671;, - 3;21672;21673;21674;, - 4;21675;21676;21677;21678;, - 3;21679;21680;21681;, - 3;21682;21683;21684;, - 4;21685;21686;21687;21688;, - 3;21689;21690;21691;, - 4;21692;21693;21694;21695;, - 3;21696;21697;21698;, - 4;21699;21700;21701;21702;, - 3;21703;21704;21705;, - 3;21706;21707;21708;, - 4;21709;21710;21711;21712;, - 3;21713;21714;21715;, - 4;21716;21717;21718;21719;; - MeshNormals { //Gasprin_001 Normals - 21720; - 0.311289; 0.661153;-0.682607;, - 0.166814; 0.712210;-0.681845;, - -0.000031; 0.999969;-0.000244;, - -0.000031; 0.999969;-0.000244;, - 0.001251; 0.999878;-0.013977;, - 0.311289; 0.661153;-0.682607;, - 0.001251; 0.999878;-0.013977;, - -0.000031; 0.999969;-0.000244;, - 0.001282; 0.999969;-0.000275;, - 0.444136; 0.768578;-0.460402;, - 0.311289; 0.661153;-0.682607;, - 0.001251; 0.999878;-0.013977;, - 0.624104; 0.687155;-0.371807;, - 0.444136; 0.768578;-0.460402;, - 0.003510; 0.998413;-0.055940;, - 0.003510; 0.998413;-0.055940;, - -0.052705; 0.993744;-0.098239;, - 0.624104; 0.687155;-0.371807;, - -0.052705; 0.993744;-0.098239;, - 0.003510; 0.998413;-0.055940;, - -0.053529; 0.996948;-0.056551;, - 0.579669; 0.778985;-0.239051;, - 0.624104; 0.687155;-0.371807;, - -0.052705; 0.993744;-0.098239;, - -0.182287; 0.630634; 0.754326;, - -0.099033; 0.730827; 0.675283;, - -0.093997; 0.912625; 0.397778;, - -0.093997; 0.912625; 0.397778;, - -0.044862; 0.873135; 0.485366;, - -0.182287; 0.630634; 0.754326;, - -0.044862; 0.873135; 0.485366;, - -0.093997; 0.912625; 0.397778;, - -0.042451; 0.919675; 0.390332;, - -0.123173; 0.629200; 0.767388;, - -0.182287; 0.630634; 0.754326;, - -0.044862; 0.873135; 0.485366;, - -0.351238; 0.618763;-0.702658;, - -0.453261; 0.740135;-0.496719;, - 0.043062; 0.998871;-0.019227;, - 0.043062; 0.998871;-0.019227;, - 0.010559; 0.999908;-0.007599;, - -0.351238; 0.618763;-0.702658;, - 0.010559; 0.999908;-0.007599;, - 0.043062; 0.998871;-0.019227;, - 0.041627; 0.999115;-0.003876;, - -0.158147; 0.701865;-0.694479;, - -0.351238; 0.618763;-0.702658;, - 0.010559; 0.999908;-0.007599;, - -0.105930; 0.711478; 0.694632;, - -0.291574; 0.457717; 0.839900;, - 0.021180;-0.088443; 0.995849;, - 0.021180;-0.088443; 0.995849;, - 0.071932; 0.683828; 0.726066;, - -0.105930; 0.711478; 0.694632;, - 0.071932; 0.683828; 0.726066;, - 0.021180;-0.088443; 0.995849;, - -0.111667; 0.697195; 0.708121;, - 0.676901; 0.714499;-0.176763;, - -0.105930; 0.711478; 0.694632;, - 0.071932; 0.683828; 0.726066;, - 0.040925; 0.097476;-0.994385;, - 0.647420; 0.488815;-0.584674;, - 0.053835; 0.746422;-0.663259;, - 0.053835; 0.746422;-0.663259;, - -0.036592; 0.386639;-0.921476;, - 0.040925; 0.097476;-0.994385;, - -0.036592; 0.386639;-0.921476;, - 0.053835; 0.746422;-0.663259;, - -0.026856; 0.774041;-0.632557;, - -0.041536; 0.296518;-0.954100;, - 0.040925; 0.097476;-0.994385;, - -0.036592; 0.386639;-0.921476;, - -0.000031;-0.999969;-0.000244;, - 0.166692;-0.710776;-0.683340;, - 0.313608;-0.659719;-0.682913;, - 0.313608;-0.659719;-0.682913;, - 0.001099;-0.999878;-0.013977;, - -0.000031;-0.999969;-0.000244;, - 0.001099;-0.999878;-0.013977;, - 0.313608;-0.659719;-0.682913;, - 0.446577;-0.767296;-0.460189;, - 0.001129;-0.999969;-0.000275;, - -0.000031;-0.999969;-0.000244;, - 0.001099;-0.999878;-0.013977;, - 0.003265;-0.998413;-0.055940;, - 0.446577;-0.767296;-0.460189;, - 0.624683;-0.687399;-0.370434;, - 0.624683;-0.687399;-0.370434;, - -0.053743;-0.993683;-0.098209;, - 0.003265;-0.998413;-0.055940;, - -0.053743;-0.993683;-0.098209;, - 0.624683;-0.687399;-0.370434;, - 0.579424;-0.779290;-0.238563;, - -0.054567;-0.996887;-0.056551;, - 0.003265;-0.998413;-0.055940;, - -0.053743;-0.993683;-0.098209;, - -0.093387;-0.912778; 0.397565;, - -0.099185;-0.731071; 0.675039;, - -0.182195;-0.630421; 0.754540;, - -0.182195;-0.630421; 0.754540;, - -0.044557;-0.873165; 0.485336;, - -0.093387;-0.912778; 0.397565;, - -0.044557;-0.873165; 0.485336;, - -0.182195;-0.630421; 0.754540;, - -0.123508;-0.629261; 0.767296;, - -0.042207;-0.919736; 0.390240;, - -0.093387;-0.912778; 0.397565;, - -0.044557;-0.873165; 0.485336;, - 0.042817;-0.998871;-0.019196;, - -0.444807;-0.756645;-0.479171;, - -0.347697;-0.630451;-0.693960;, - -0.347697;-0.630451;-0.693960;, - 0.010590;-0.999908;-0.007569;, - 0.042817;-0.998871;-0.019196;, - 0.010590;-0.999908;-0.007569;, - -0.347697;-0.630451;-0.693960;, - -0.164312;-0.707236;-0.687582;, - 0.041383;-0.999115;-0.003845;, - 0.042817;-0.998871;-0.019196;, - 0.010590;-0.999908;-0.007569;, - 0.135838;-0.432447; 0.891354;, - -0.196875;-0.583392; 0.787927;, - -0.073733;-0.845485; 0.528825;, - -0.073733;-0.845485; 0.528825;, - -0.007752;-0.833430; 0.552538;, - 0.135838;-0.432447; 0.891354;, - -0.007752;-0.833430; 0.552538;, - -0.073733;-0.845485; 0.528825;, - 0.685598;-0.706992;-0.173376;, - 0.063448;-0.862300; 0.502365;, - 0.135838;-0.432447; 0.891354;, - -0.007752;-0.833430; 0.552538;, - 0.095676;-0.705069;-0.702597;, - 0.660634;-0.467544;-0.587298;, - 0.041108;-0.044221;-0.998169;, - 0.041108;-0.044221;-0.998169;, - 0.009980;-0.114505;-0.993347;, - 0.095676;-0.705069;-0.702597;, - 0.009980;-0.114505;-0.993347;, - 0.041108;-0.044221;-0.998169;, - 0.007172;-0.073366;-0.997253;, - -0.026551;-0.761284;-0.647847;, - 0.095676;-0.705069;-0.702597;, - 0.009980;-0.114505;-0.993347;, - -0.150548;-0.988556; 0.006165;, - -0.593310;-0.774499; 0.219306;, - -0.553575;-0.788354; 0.268288;, - -0.553575;-0.788354; 0.268288;, - -0.106174;-0.990844; 0.083224;, - -0.150548;-0.988556; 0.006165;, - -0.106174;-0.990844; 0.083224;, - -0.553575;-0.788354; 0.268288;, - -0.502823;-0.776482; 0.379711;, - 0.427992;-0.767754;-0.476821;, - -0.150548;-0.988556; 0.006165;, - -0.106174;-0.990844; 0.083224;, - -0.036287;-0.988037; 0.149754;, - 0.119907;-0.759392;-0.639454;, - -0.085147;-0.987213; 0.134709;, - -0.085147;-0.987213; 0.134709;, - -0.099124;-0.747337; 0.656972;, - -0.036287;-0.988037; 0.149754;, - -0.099124;-0.747337; 0.656972;, - -0.085147;-0.987213; 0.134709;, - -0.250587;-0.735588; 0.629322;, - -0.055422;-0.754234; 0.654225;, - -0.036287;-0.988037; 0.149754;, - -0.099124;-0.747337; 0.656972;, - -0.553117; 0.790063; 0.264229;, - -0.617176; 0.770470; 0.159398;, - -0.161412; 0.986847; 0.007721;, - -0.161412; 0.986847; 0.007721;, - -0.162847; 0.986389; 0.022248;, - -0.553117; 0.790063; 0.264229;, - -0.162847; 0.986389; 0.022248;, - -0.161412; 0.986847; 0.007721;, - 0.419019; 0.761620;-0.494278;, - -0.544633; 0.763421; 0.347118;, - -0.553117; 0.790063; 0.264229;, - -0.162847; 0.986389; 0.022248;, - -0.075198; 0.750084; 0.657002;, - -0.289468; 0.751701; 0.592547;, - -0.060610; 0.991363; 0.116153;, - -0.060610; 0.991363; 0.116153;, - -0.020264; 0.988769; 0.147984;, - -0.075198; 0.750084; 0.657002;, - -0.020264; 0.988769; 0.147984;, - -0.060610; 0.991363; 0.116153;, - 0.132908; 0.754631;-0.642506;, - -0.044801; 0.752708; 0.656789;, - -0.075198; 0.750084; 0.657002;, - -0.020264; 0.988769; 0.147984;, - -0.576556; 0.100558; 0.810816;, - -0.582629; 0.078127; 0.808954;, - -0.013215; 0.005097; 0.999878;, - -0.013215; 0.005097; 0.999878;, - -0.000061; 0.004151; 0.999969;, - -0.576556; 0.100558; 0.810816;, - -0.000061; 0.004151; 0.999969;, - -0.013215; 0.005097; 0.999878;, - -0.443464; 0.104526; 0.890133;, - -0.483291; 0.244606; 0.840571;, - -0.576556; 0.100558; 0.810816;, - -0.000061; 0.004151; 0.999969;, - -0.013825;-0.004913; 0.999878;, - -0.583087;-0.077792; 0.808649;, - -0.576556;-0.100558; 0.810816;, - -0.576556;-0.100558; 0.810816;, - -0.000061;-0.004120; 0.999969;, - -0.013825;-0.004913; 0.999878;, - -0.000061;-0.004120; 0.999969;, - -0.576556;-0.100558; 0.810816;, - -0.536973;-0.181524; 0.823817;, - -0.442946;-0.102817; 0.890591;, - -0.013825;-0.004913; 0.999878;, - -0.000061;-0.004120; 0.999969;, - -0.087313; 0.677358; 0.730430;, - -0.029786; 0.677633; 0.734764;, - 0.003418; 0.902249; 0.431135;, - 0.003418; 0.902249; 0.431135;, - -0.025483; 0.915006; 0.402570;, - -0.087313; 0.677358; 0.730430;, - -0.025483; 0.915006; 0.402570;, - 0.003418; 0.902249; 0.431135;, - 0.021027; 0.582507; 0.812525;, - -0.108615; 0.687735; 0.717765;, - -0.087313; 0.677358; 0.730430;, - -0.025483; 0.915006; 0.402570;, - -0.089724;-0.676901; 0.730552;, - -0.111026;-0.686911; 0.718162;, - -0.027436;-0.914060; 0.404584;, - -0.027436;-0.914060; 0.404584;, - 0.000580;-0.901852; 0.431959;, - -0.089724;-0.676901; 0.730552;, - 0.000580;-0.901852; 0.431959;, - -0.027436;-0.914060; 0.404584;, - 0.018403;-0.582965; 0.812250;, - -0.031343;-0.677633; 0.734703;, - -0.089724;-0.676901; 0.730552;, - 0.000580;-0.901852; 0.431959;, - -0.022065; 0.146367; 0.988952;, - -0.018067; 0.101108; 0.994690;, - -0.034120; 0.099796; 0.994415;, - -0.034120; 0.099796; 0.994415;, - -0.356029; 0.283303; 0.890469;, - -0.022065; 0.146367; 0.988952;, - -0.356029; 0.283303; 0.890469;, - -0.034120; 0.099796; 0.994415;, - -0.416150; 0.187567; 0.889706;, - -0.181982; 0.614185; 0.767846;, - -0.022065; 0.146367; 0.988952;, - -0.356029; 0.283303; 0.890469;, - -0.355358;-0.284616; 0.890316;, - -0.421277;-0.197668; 0.885098;, - -0.036927;-0.115238; 0.992645;, - -0.036927;-0.115238; 0.992645;, - -0.021912;-0.147099; 0.988861;, - -0.355358;-0.284616; 0.890316;, - -0.021912;-0.147099; 0.988861;, - -0.036927;-0.115238; 0.992645;, - -0.014924;-0.105136; 0.994324;, - -0.169805;-0.635670; 0.753014;, - -0.355358;-0.284616; 0.890316;, - -0.021912;-0.147099; 0.988861;, - -0.064486;-0.000336; 0.997894;, - -0.047823; 0.261422; 0.964019;, - -0.052675; 0.094699; 0.994110;, - -0.052675; 0.094699; 0.994110;, - -0.075076; 0.004364; 0.997162;, - -0.064486;-0.000336; 0.997894;, - -0.075076; 0.004364; 0.997162;, - -0.052675; 0.094699; 0.994110;, - 0.250954; 0.025666; 0.967650;, - -0.065035; 0.000244; 0.997864;, - -0.064486;-0.000336; 0.997894;, - -0.075076; 0.004364; 0.997162;, - -0.052675; 0.094699; 0.994110;, - -0.047823; 0.261422; 0.964019;, - -0.027253; 0.346324; 0.937712;, - -0.027253; 0.346324; 0.937712;, - 0.285195; 0.073275; 0.955626;, - -0.052675; 0.094699; 0.994110;, - 0.285195; 0.073275; 0.955626;, - -0.027253; 0.346324; 0.937712;, - 0.258492; 0.216285; 0.941465;, - 0.250954; 0.025666; 0.967650;, - -0.052675; 0.094699; 0.994110;, - 0.285195; 0.073275; 0.955626;, - -0.027253;-0.346690; 0.937559;, - -0.047823;-0.261757; 0.963927;, - -0.052675;-0.094729; 0.994079;, - -0.052675;-0.094729; 0.994079;, - 0.285165;-0.073305; 0.955657;, - -0.027253;-0.346690; 0.937559;, - 0.285165;-0.073305; 0.955657;, - -0.052675;-0.094729; 0.994079;, - 0.250832;-0.025727; 0.967650;, - 0.258431;-0.216620; 0.941404;, - -0.027253;-0.346690; 0.937559;, - 0.285165;-0.073305; 0.955657;, - -0.052675;-0.094729; 0.994079;, - -0.047823;-0.261757; 0.963927;, - -0.064486; 0.000336; 0.997894;, - -0.064486; 0.000336; 0.997894;, - -0.075076;-0.004364; 0.997162;, - -0.052675;-0.094729; 0.994079;, - -0.075076;-0.004364; 0.997162;, - -0.064486; 0.000336; 0.997894;, - -0.065035;-0.000244; 0.997864;, - 0.250832;-0.025727; 0.967650;, - -0.052675;-0.094729; 0.994079;, - -0.075076;-0.004364; 0.997162;, - -0.072848; 0.003632; 0.997314;, - -0.072512; 0.000946; 0.997345;, - -0.052767; 0.002045; 0.998596;, - -0.052767; 0.002045; 0.998596;, - -0.046907;-0.254311; 0.965972;, - -0.072848; 0.003632; 0.997314;, - -0.046907;-0.254311; 0.965972;, - -0.052767; 0.002045; 0.998596;, - -0.047823;-0.261757; 0.963927;, - -0.068484;-0.254585; 0.964599;, - -0.072848; 0.003632; 0.997314;, - -0.046907;-0.254311; 0.965972;, - -0.052767; 0.002045; 0.998596;, - -0.072512; 0.000946; 0.997345;, - -0.053926; 0.000183; 0.998535;, - -0.053926; 0.000183; 0.998535;, - -0.064486; 0.000336; 0.997894;, - -0.052767; 0.002045; 0.998596;, - -0.064486; 0.000336; 0.997894;, - -0.053926; 0.000183; 0.998535;, - -0.065035;-0.000244; 0.997864;, - -0.047823;-0.261757; 0.963927;, - -0.052767; 0.002045; 0.998596;, - -0.064486; 0.000336; 0.997894;, - -0.328684;-0.024567; 0.944090;, - -0.308847;-0.031892; 0.950560;, - -0.090457;-0.001923; 0.995880;, - -0.090457;-0.001923; 0.995880;, - -0.092288;-0.000092; 0.995727;, - -0.328684;-0.024567; 0.944090;, - -0.092288;-0.000092; 0.995727;, - -0.090457;-0.001923; 0.995880;, - -0.072512; 0.000946; 0.997345;, - -0.246864;-0.166265; 0.954650;, - -0.328684;-0.024567; 0.944090;, - -0.092288;-0.000092; 0.995727;, - -0.089084;-0.255745; 0.962615;, - -0.246864;-0.166265; 0.954650;, - -0.092288;-0.000092; 0.995727;, - -0.092288;-0.000092; 0.995727;, - -0.072848; 0.003632; 0.997314;, - -0.089084;-0.255745; 0.962615;, - -0.072848; 0.003632; 0.997314;, - -0.092288;-0.000092; 0.995727;, - -0.072512; 0.000946; 0.997345;, - -0.068484;-0.254585; 0.964599;, - -0.089084;-0.255745; 0.962615;, - -0.072848; 0.003632; 0.997314;, - -0.503677;-0.065065; 0.861415;, - -0.525193;-0.065401; 0.848445;, - -0.500015;-0.050905; 0.864498;, - -0.500015;-0.050905; 0.864498;, - -0.302103;-0.029359; 0.952788;, - -0.503677;-0.065065; 0.861415;, - -0.302103;-0.029359; 0.952788;, - -0.500015;-0.050905; 0.864498;, - -0.302316;-0.019959; 0.952971;, - -0.308847;-0.031892; 0.950560;, - -0.503677;-0.065065; 0.861415;, - -0.302103;-0.029359; 0.952788;, - -0.500015;-0.050905; 0.864498;, - -0.525193;-0.065401; 0.848445;, - -0.530168;-0.057375; 0.845912;, - -0.530168;-0.057375; 0.845912;, - -0.496200;-0.033784; 0.867519;, - -0.500015;-0.050905; 0.864498;, - -0.496200;-0.033784; 0.867519;, - -0.530168;-0.057375; 0.845912;, - -0.539323;-0.031220; 0.841517;, - -0.302316;-0.019959; 0.952971;, - -0.500015;-0.050905; 0.864498;, - -0.496200;-0.033784; 0.867519;, - -0.516800;-0.084262; 0.851924;, - -0.525193;-0.065401; 0.848445;, - -0.503677;-0.065065; 0.861415;, - -0.503677;-0.065065; 0.861415;, - -0.525407;-0.062960; 0.848476;, - -0.516800;-0.084262; 0.851924;, - -0.525407;-0.062960; 0.848476;, - -0.503677;-0.065065; 0.861415;, - -0.308847;-0.031892; 0.950560;, - -0.562212; 0.013550; 0.826868;, - -0.516800;-0.084262; 0.851924;, - -0.525407;-0.062960; 0.848476;, - -0.537461; 0.082003; 0.839259;, - -0.562212; 0.013550; 0.826868;, - -0.525407;-0.062960; 0.848476;, - -0.525407;-0.062960; 0.848476;, - -0.328684;-0.024567; 0.944090;, - -0.537461; 0.082003; 0.839259;, - -0.328684;-0.024567; 0.944090;, - -0.525407;-0.062960; 0.848476;, - -0.308847;-0.031892; 0.950560;, - -0.246864;-0.166265; 0.954650;, - -0.537461; 0.082003; 0.839259;, - -0.328684;-0.024567; 0.944090;, - -0.504013; 0.000000; 0.863674;, - -0.303415;-0.000031; 0.952849;, - -0.500229;-0.012329; 0.865780;, - -0.500229;-0.012329; 0.865780;, - -0.548601;-0.012024; 0.835994;, - -0.504013; 0.000000; 0.863674;, - -0.548601;-0.012024; 0.835994;, - -0.500229;-0.012329; 0.865780;, - -0.539323;-0.031220; 0.841517;, - -0.549181; 0.000061; 0.835688;, - -0.504013; 0.000000; 0.863674;, - -0.548601;-0.012024; 0.835994;, - -0.500229;-0.012329; 0.865780;, - -0.303415;-0.000031; 0.952849;, - -0.296548;-0.008271; 0.954955;, - -0.296548;-0.008271; 0.954955;, - -0.496200;-0.033784; 0.867519;, - -0.500229;-0.012329; 0.865780;, - -0.496200;-0.033784; 0.867519;, - -0.296548;-0.008271; 0.954955;, - -0.302316;-0.019959; 0.952971;, - -0.539323;-0.031220; 0.841517;, - -0.500229;-0.012329; 0.865780;, - -0.496200;-0.033784; 0.867519;, - -0.053926;-0.000183; 0.998535;, - -0.072512;-0.000946; 0.997345;, - -0.052767;-0.002045; 0.998596;, - -0.052767;-0.002045; 0.998596;, - -0.064486;-0.000336; 0.997894;, - -0.053926;-0.000183; 0.998535;, - -0.064486;-0.000336; 0.997894;, - -0.052767;-0.002045; 0.998596;, - -0.047823; 0.261422; 0.964019;, - -0.065035; 0.000244; 0.997864;, - -0.053926;-0.000183; 0.998535;, - -0.064486;-0.000336; 0.997894;, - -0.052767;-0.002045; 0.998596;, - -0.072512;-0.000946; 0.997345;, - -0.072848;-0.003662; 0.997314;, - -0.072848;-0.003662; 0.997314;, - -0.046907; 0.253945; 0.966063;, - -0.052767;-0.002045; 0.998596;, - -0.046907; 0.253945; 0.966063;, - -0.072848;-0.003662; 0.997314;, - -0.068484; 0.254219; 0.964690;, - -0.047823; 0.261422; 0.964019;, - -0.052767;-0.002045; 0.998596;, - -0.046907; 0.253945; 0.966063;, - -0.090457; 0.001892; 0.995880;, - -0.308878; 0.031831; 0.950530;, - -0.328715; 0.024567; 0.944090;, - -0.328715; 0.024567; 0.944090;, - -0.092288; 0.000092; 0.995727;, - -0.090457; 0.001892; 0.995880;, - -0.092288; 0.000092; 0.995727;, - -0.328715; 0.024567; 0.944090;, - -0.246925; 0.165960; 0.954680;, - -0.072512;-0.000946; 0.997345;, - -0.090457; 0.001892; 0.995880;, - -0.092288; 0.000092; 0.995727;, - -0.072848;-0.003662; 0.997314;, - -0.072512;-0.000946; 0.997345;, - -0.092288; 0.000092; 0.995727;, - -0.092288; 0.000092; 0.995727;, - -0.089114; 0.255379; 0.962706;, - -0.072848;-0.003662; 0.997314;, - -0.089114; 0.255379; 0.962706;, - -0.092288; 0.000092; 0.995727;, - -0.246925; 0.165960; 0.954680;, - -0.068484; 0.254219; 0.964690;, - -0.072848;-0.003662; 0.997314;, - -0.089114; 0.255379; 0.962706;, - -0.302072; 0.029206; 0.952818;, - -0.302225; 0.019807; 0.953001;, - -0.499832; 0.050783; 0.864620;, - -0.499832; 0.050783; 0.864620;, - -0.503708; 0.064943; 0.861415;, - -0.302072; 0.029206; 0.952818;, - -0.503708; 0.064943; 0.861415;, - -0.499832; 0.050783; 0.864620;, - -0.525101; 0.065340; 0.848506;, - -0.308878; 0.031831; 0.950530;, - -0.302072; 0.029206; 0.952818;, - -0.503708; 0.064943; 0.861415;, - -0.499832; 0.050783; 0.864620;, - -0.302225; 0.019807; 0.953001;, - -0.496048; 0.033723; 0.867611;, - -0.496048; 0.033723; 0.867611;, - -0.529923; 0.057375; 0.846095;, - -0.499832; 0.050783; 0.864620;, - -0.529923; 0.057375; 0.846095;, - -0.496048; 0.033723; 0.867611;, - -0.539171; 0.031312; 0.841578;, - -0.525101; 0.065340; 0.848506;, - -0.499832; 0.050783; 0.864620;, - -0.529923; 0.057375; 0.846095;, - -0.503708; 0.064943; 0.861415;, - -0.525101; 0.065340; 0.848506;, - -0.516739; 0.084262; 0.851955;, - -0.516739; 0.084262; 0.851955;, - -0.525437; 0.062960; 0.848476;, - -0.503708; 0.064943; 0.861415;, - -0.525437; 0.062960; 0.848476;, - -0.516739; 0.084262; 0.851955;, - -0.562120;-0.013428; 0.826899;, - -0.308878; 0.031831; 0.950530;, - -0.503708; 0.064943; 0.861415;, - -0.525437; 0.062960; 0.848476;, - -0.328715; 0.024567; 0.944090;, - -0.308878; 0.031831; 0.950530;, - -0.525437; 0.062960; 0.848476;, - -0.525437; 0.062960; 0.848476;, - -0.537492;-0.081851; 0.839259;, - -0.328715; 0.024567; 0.944090;, - -0.537492;-0.081851; 0.839259;, - -0.525437; 0.062960; 0.848476;, - -0.562120;-0.013428; 0.826899;, - -0.246925; 0.165960; 0.954680;, - -0.328715; 0.024567; 0.944090;, - -0.537492;-0.081851; 0.839259;, - -0.548448; 0.012085; 0.836085;, - -0.539171; 0.031312; 0.841578;, - -0.500137; 0.012299; 0.865841;, - -0.500137; 0.012299; 0.865841;, - -0.504013; 0.000000; 0.863674;, - -0.548448; 0.012085; 0.836085;, - -0.504013; 0.000000; 0.863674;, - -0.500137; 0.012299; 0.865841;, - -0.303415;-0.000031; 0.952849;, - -0.549181; 0.000061; 0.835688;, - -0.548448; 0.012085; 0.836085;, - -0.504013; 0.000000; 0.863674;, - -0.500137; 0.012299; 0.865841;, - -0.539171; 0.031312; 0.841578;, - -0.496048; 0.033723; 0.867611;, - -0.496048; 0.033723; 0.867611;, - -0.296609; 0.008209; 0.954955;, - -0.500137; 0.012299; 0.865841;, - -0.296609; 0.008209; 0.954955;, - -0.496048; 0.033723; 0.867611;, - -0.302225; 0.019807; 0.953001;, - -0.303415;-0.000031; 0.952849;, - -0.500137; 0.012299; 0.865841;, - -0.296609; 0.008209; 0.954955;, - -0.075076;-0.004364; 0.997162;, - -0.065035;-0.000244; 0.997864;, - -0.076449;-0.004517; 0.997040;, - -0.076449;-0.004517; 0.997040;, - 0.259133; 0.031190; 0.965331;, - -0.075076;-0.004364; 0.997162;, - 0.259133; 0.031190; 0.965331;, - -0.076449;-0.004517; 0.997040;, - 0.251289; 0.023865; 0.967589;, - 0.250832;-0.025727; 0.967650;, - -0.075076;-0.004364; 0.997162;, - 0.259133; 0.031190; 0.965331;, - -0.076449;-0.004517; 0.997040;, - -0.065035;-0.000244; 0.997864;, - -0.065889; 0.000000; 0.997803;, - -0.065889; 0.000000; 0.997803;, - -0.077853;-0.003449; 0.996948;, - -0.076449;-0.004517; 0.997040;, - -0.077853;-0.003449; 0.996948;, - -0.065889; 0.000000; 0.997803;, - -0.066591;-0.000610; 0.997772;, - 0.251289; 0.023865; 0.967589;, - -0.076449;-0.004517; 0.997040;, - -0.077853;-0.003449; 0.996948;, - -0.090457;-0.001923; 0.995880;, - -0.308847;-0.031892; 0.950560;, - -0.087802;-0.004578; 0.996124;, - -0.087802;-0.004578; 0.996124;, - -0.072207; 0.000000; 0.997375;, - -0.090457;-0.001923; 0.995880;, - -0.072207; 0.000000; 0.997375;, - -0.087802;-0.004578; 0.996124;, - -0.070406;-0.000763; 0.997497;, - -0.072512; 0.000946; 0.997345;, - -0.090457;-0.001923; 0.995880;, - -0.072207; 0.000000; 0.997375;, - -0.087802;-0.004578; 0.996124;, - -0.308847;-0.031892; 0.950560;, - -0.302103;-0.029359; 0.952788;, - -0.302103;-0.029359; 0.952788;, - -0.085116;-0.004578; 0.996338;, - -0.087802;-0.004578; 0.996124;, - -0.085116;-0.004578; 0.996338;, - -0.302103;-0.029359; 0.952788;, - -0.302316;-0.019959; 0.952971;, - -0.070406;-0.000763; 0.997497;, - -0.087802;-0.004578; 0.996124;, - -0.085116;-0.004578; 0.996338;, - -0.053926; 0.000183; 0.998535;, - -0.072512; 0.000946; 0.997345;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.065889; 0.000000; 0.997803;, - -0.053926; 0.000183; 0.998535;, - -0.065889; 0.000000; 0.997803;, - -0.053926; 0.000000; 0.998535;, - -0.066591;-0.000610; 0.997772;, - -0.065035;-0.000244; 0.997864;, - -0.053926; 0.000183; 0.998535;, - -0.065889; 0.000000; 0.997803;, - -0.053926; 0.000000; 0.998535;, - -0.072512; 0.000946; 0.997345;, - -0.072207; 0.000000; 0.997375;, - -0.072207; 0.000000; 0.997375;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.072207; 0.000000; 0.997375;, - -0.070406;-0.000763; 0.997497;, - -0.066591;-0.000610; 0.997772;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.077853;-0.003449; 0.996948;, - -0.066591;-0.000610; 0.997772;, - -0.079989;-0.003449; 0.996765;, - -0.079989;-0.003449; 0.996765;, - 0.241890; 0.021455; 0.970031;, - -0.077853;-0.003449; 0.996948;, - 0.241890; 0.021455; 0.970031;, - -0.079989;-0.003449; 0.996765;, - 0.224525; 0.000153; 0.974456;, - 0.251289; 0.023865; 0.967589;, - -0.077853;-0.003449; 0.996948;, - 0.241890; 0.021455; 0.970031;, - -0.079989;-0.003449; 0.996765;, - -0.066591;-0.000610; 0.997772;, - -0.068026; 0.000000; 0.997681;, - -0.068026; 0.000000; 0.997681;, - -0.082125; 0.000000; 0.996612;, - -0.079989;-0.003449; 0.996765;, - -0.082125; 0.000000; 0.996612;, - -0.068026; 0.000000; 0.997681;, - -0.068026; 0.000000; 0.997681;, - 0.224525; 0.000153; 0.974456;, - -0.079989;-0.003449; 0.996765;, - -0.082125; 0.000000; 0.996612;, - -0.085116;-0.004578; 0.996338;, - -0.302316;-0.019959; 0.952971;, - -0.083895;-0.001129; 0.996460;, - -0.083895;-0.001129; 0.996460;, - -0.069521; 0.000000; 0.997559;, - -0.085116;-0.004578; 0.996338;, - -0.069521; 0.000000; 0.997559;, - -0.083895;-0.001129; 0.996460;, - -0.068880; 0.000000; 0.997620;, - -0.070406;-0.000763; 0.997497;, - -0.085116;-0.004578; 0.996338;, - -0.069521; 0.000000; 0.997559;, - -0.083895;-0.001129; 0.996460;, - -0.302316;-0.019959; 0.952971;, - -0.296548;-0.008271; 0.954955;, - -0.296548;-0.008271; 0.954955;, - -0.082675; 0.000000; 0.996551;, - -0.083895;-0.001129; 0.996460;, - -0.082675; 0.000000; 0.996551;, - -0.296548;-0.008271; 0.954955;, - -0.303415;-0.000031; 0.952849;, - -0.068880; 0.000000; 0.997620;, - -0.083895;-0.001129; 0.996460;, - -0.082675; 0.000000; 0.996551;, - -0.053926; 0.000000; 0.998535;, - -0.070406;-0.000763; 0.997497;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.066591;-0.000610; 0.997772;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.070406;-0.000763; 0.997497;, - -0.069521; 0.000000; 0.997559;, - -0.069521; 0.000000; 0.997559;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.069521; 0.000000; 0.997559;, - -0.068880; 0.000000; 0.997620;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.082125; 0.000000; 0.996612;, - -0.068026; 0.000000; 0.997681;, - -0.068026; 0.000000; 0.997681;, - -0.068026; 0.000000; 0.997681;, - -0.080020; 0.003388; 0.996765;, - -0.082125; 0.000000; 0.996612;, - -0.080020; 0.003388; 0.996765;, - -0.068026; 0.000000; 0.997681;, - -0.066591; 0.000580; 0.997772;, - 0.224525; 0.000153; 0.974456;, - -0.082125; 0.000000; 0.996612;, - -0.080020; 0.003388; 0.996765;, - 0.241737;-0.020997; 0.970092;, - 0.224525; 0.000153; 0.974456;, - -0.080020; 0.003388; 0.996765;, - -0.080020; 0.003388; 0.996765;, - -0.077914; 0.003388; 0.996948;, - 0.241737;-0.020997; 0.970092;, - -0.077914; 0.003388; 0.996948;, - -0.080020; 0.003388; 0.996765;, - -0.066591; 0.000580; 0.997772;, - 0.250862;-0.023591; 0.967711;, - 0.241737;-0.020997; 0.970092;, - -0.077914; 0.003388; 0.996948;, - -0.082675; 0.000000; 0.996551;, - -0.303415;-0.000031; 0.952849;, - -0.296609; 0.008209; 0.954955;, - -0.296609; 0.008209; 0.954955;, - -0.083895; 0.001129; 0.996460;, - -0.082675; 0.000000; 0.996551;, - -0.083895; 0.001129; 0.996460;, - -0.296609; 0.008209; 0.954955;, - -0.302225; 0.019807; 0.953001;, - -0.068880; 0.000000; 0.997620;, - -0.082675; 0.000000; 0.996551;, - -0.083895; 0.001129; 0.996460;, - -0.069521; 0.000000; 0.997559;, - -0.068880; 0.000000; 0.997620;, - -0.083895; 0.001129; 0.996460;, - -0.083895; 0.001129; 0.996460;, - -0.085086; 0.004547; 0.996338;, - -0.069521; 0.000000; 0.997559;, - -0.085086; 0.004547; 0.996338;, - -0.083895; 0.001129; 0.996460;, - -0.302225; 0.019807; 0.953001;, - -0.070406; 0.000763; 0.997497;, - -0.069521; 0.000000; 0.997559;, - -0.085086; 0.004547; 0.996338;, - -0.053926; 0.000000; 0.998535;, - -0.068880; 0.000000; 0.997620;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.066591; 0.000580; 0.997772;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.068026; 0.000000; 0.997681;, - -0.053926; 0.000000; 0.998535;, - -0.068880; 0.000000; 0.997620;, - -0.069521; 0.000000; 0.997559;, - -0.069521; 0.000000; 0.997559;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.069521; 0.000000; 0.997559;, - -0.070406; 0.000763; 0.997497;, - -0.066591; 0.000580; 0.997772;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.077914; 0.003388; 0.996948;, - -0.066591; 0.000580; 0.997772;, - -0.065920; 0.000000; 0.997803;, - -0.065920; 0.000000; 0.997803;, - -0.076479; 0.004517; 0.997040;, - -0.077914; 0.003388; 0.996948;, - -0.076479; 0.004517; 0.997040;, - -0.065920; 0.000000; 0.997803;, - -0.065035; 0.000244; 0.997864;, - 0.250862;-0.023591; 0.967711;, - -0.077914; 0.003388; 0.996948;, - -0.076479; 0.004517; 0.997040;, - 0.259041;-0.031251; 0.965331;, - 0.250862;-0.023591; 0.967711;, - -0.076479; 0.004517; 0.997040;, - -0.076479; 0.004517; 0.997040;, - -0.075076; 0.004364; 0.997162;, - 0.259041;-0.031251; 0.965331;, - -0.075076; 0.004364; 0.997162;, - -0.076479; 0.004517; 0.997040;, - -0.065035; 0.000244; 0.997864;, - 0.250954; 0.025666; 0.967650;, - 0.259041;-0.031251; 0.965331;, - -0.075076; 0.004364; 0.997162;, - -0.085086; 0.004547; 0.996338;, - -0.302225; 0.019807; 0.953001;, - -0.302072; 0.029206; 0.952818;, - -0.302072; 0.029206; 0.952818;, - -0.087771; 0.004547; 0.996124;, - -0.085086; 0.004547; 0.996338;, - -0.087771; 0.004547; 0.996124;, - -0.302072; 0.029206; 0.952818;, - -0.308878; 0.031831; 0.950530;, - -0.070406; 0.000763; 0.997497;, - -0.085086; 0.004547; 0.996338;, - -0.087771; 0.004547; 0.996124;, - -0.072207; 0.000000; 0.997375;, - -0.070406; 0.000763; 0.997497;, - -0.087771; 0.004547; 0.996124;, - -0.087771; 0.004547; 0.996124;, - -0.090457; 0.001892; 0.995880;, - -0.072207; 0.000000; 0.997375;, - -0.090457; 0.001892; 0.995880;, - -0.087771; 0.004547; 0.996124;, - -0.308878; 0.031831; 0.950530;, - -0.072512;-0.000946; 0.997345;, - -0.072207; 0.000000; 0.997375;, - -0.090457; 0.001892; 0.995880;, - -0.053926; 0.000000; 0.998535;, - -0.070406; 0.000763; 0.997497;, - -0.053926; 0.000000; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.065920; 0.000000; 0.997803;, - -0.053926; 0.000000; 0.998535;, - -0.065920; 0.000000; 0.997803;, - -0.053926; 0.000000; 0.998535;, - -0.065035; 0.000244; 0.997864;, - -0.066591; 0.000580; 0.997772;, - -0.053926; 0.000000; 0.998535;, - -0.065920; 0.000000; 0.997803;, - -0.053926; 0.000000; 0.998535;, - -0.070406; 0.000763; 0.997497;, - -0.072207; 0.000000; 0.997375;, - -0.072207; 0.000000; 0.997375;, - -0.053926;-0.000183; 0.998535;, - -0.053926; 0.000000; 0.998535;, - -0.053926;-0.000183; 0.998535;, - -0.072207; 0.000000; 0.997375;, - -0.072512;-0.000946; 0.997345;, - -0.065035; 0.000244; 0.997864;, - -0.053926; 0.000000; 0.998535;, - -0.053926;-0.000183; 0.998535;, - -0.043184; 0.178533; 0.982971;, - -0.040742; 0.106571; 0.993439;, - 0.571673;-0.050172; 0.818903;, - 0.571673;-0.050172; 0.818903;, - 0.303446; 0.252052; 0.918882;, - -0.043184; 0.178533; 0.982971;, - 0.303446; 0.252052; 0.918882;, - 0.571673;-0.050172; 0.818903;, - 0.258492; 0.216285; 0.941465;, - -0.088198; 0.437635; 0.894803;, - -0.043184; 0.178533; 0.982971;, - 0.303446; 0.252052; 0.918882;, - 0.571673;-0.050172; 0.818903;, - -0.040742; 0.106571; 0.993439;, - 0.571886;-0.057253; 0.818293;, - 0.571886;-0.057253; 0.818293;, - 0.285195; 0.073275; 0.955626;, - 0.571673;-0.050172; 0.818903;, - 0.285195; 0.073275; 0.955626;, - 0.571886;-0.057253; 0.818293;, - 0.250954; 0.025666; 0.967650;, - 0.258492; 0.216285; 0.941465;, - 0.571673;-0.050172; 0.818903;, - 0.285195; 0.073275; 0.955626;, - -0.733818;-0.121006; 0.668447;, - -0.740562;-0.101413; 0.664266;, - -0.530869;-0.086947; 0.842952;, - -0.530869;-0.086947; 0.842952;, - -0.602069; 0.016388; 0.798273;, - -0.733818;-0.121006; 0.668447;, - -0.602069; 0.016388; 0.798273;, - -0.530869;-0.086947; 0.842952;, - -0.562212; 0.013550; 0.826868;, - -0.765954;-0.189886; 0.614154;, - -0.733818;-0.121006; 0.668447;, - -0.602069; 0.016388; 0.798273;, - -0.530869;-0.086947; 0.842952;, - -0.740562;-0.101413; 0.664266;, - -0.542039;-0.070833; 0.837336;, - -0.542039;-0.070833; 0.837336;, - -0.516800;-0.084262; 0.851924;, - -0.530869;-0.086947; 0.842952;, - -0.516800;-0.084262; 0.851924;, - -0.542039;-0.070833; 0.837336;, - -0.525193;-0.065401; 0.848445;, - -0.562212; 0.013550; 0.826868;, - -0.530869;-0.086947; 0.842952;, - -0.516800;-0.084262; 0.851924;, - -0.706198;-0.123142; 0.697195;, - -0.765954;-0.189886; 0.614154;, - -0.602069; 0.016388; 0.798273;, - -0.602069; 0.016388; 0.798273;, - -0.593249; 0.163976; 0.788110;, - -0.706198;-0.123142; 0.697195;, - -0.593249; 0.163976; 0.788110;, - -0.602069; 0.016388; 0.798273;, - -0.562212; 0.013550; 0.826868;, - -0.474776;-0.188513; 0.859645;, - -0.706198;-0.123142; 0.697195;, - -0.593249; 0.163976; 0.788110;, - -0.316904;-0.118625; 0.940977;, - -0.474776;-0.188513; 0.859645;, - -0.593249; 0.163976; 0.788110;, - -0.593249; 0.163976; 0.788110;, - -0.537461; 0.082003; 0.839259;, - -0.316904;-0.118625; 0.940977;, - -0.537461; 0.082003; 0.839259;, - -0.593249; 0.163976; 0.788110;, - -0.562212; 0.013550; 0.826868;, - -0.246864;-0.166265; 0.954650;, - -0.316904;-0.118625; 0.940977;, - -0.537461; 0.082003; 0.839259;, - -0.065859;-0.384777; 0.920621;, - -0.474776;-0.188513; 0.859645;, - -0.316904;-0.118625; 0.940977;, - -0.316904;-0.118625; 0.940977;, - -0.071230;-0.461684; 0.884152;, - -0.065859;-0.384777; 0.920621;, - -0.071230;-0.461684; 0.884152;, - -0.316904;-0.118625; 0.940977;, - -0.246864;-0.166265; 0.954650;, - -0.062685;-0.389874; 0.918699;, - -0.065859;-0.384777; 0.920621;, - -0.071230;-0.461684; 0.884152;, - -0.058504;-0.496475; 0.866054;, - -0.062685;-0.389874; 0.918699;, - -0.071230;-0.461684; 0.884152;, - -0.071230;-0.461684; 0.884152;, - -0.089084;-0.255745; 0.962615;, - -0.058504;-0.496475; 0.866054;, - -0.089084;-0.255745; 0.962615;, - -0.071230;-0.461684; 0.884152;, - -0.246864;-0.166265; 0.954650;, - -0.068484;-0.254585; 0.964599;, - -0.058504;-0.496475; 0.866054;, - -0.089084;-0.255745; 0.962615;, - -0.042604;-0.387860; 0.920713;, - -0.062685;-0.389874; 0.918699;, - -0.038728;-0.495743; 0.867580;, - -0.038728;-0.495743; 0.867580;, - -0.031220;-0.495834; 0.867824;, - -0.042604;-0.387860; 0.920713;, - -0.031220;-0.495834; 0.867824;, - -0.038728;-0.495743; 0.867580;, - -0.047823;-0.261757; 0.963927;, - -0.032929;-0.391217; 0.919706;, - -0.042604;-0.387860; 0.920713;, - -0.031220;-0.495834; 0.867824;, - -0.038728;-0.495743; 0.867580;, - -0.062685;-0.389874; 0.918699;, - -0.058504;-0.496475; 0.866054;, - -0.058504;-0.496475; 0.866054;, - -0.046907;-0.254311; 0.965972;, - -0.038728;-0.495743; 0.867580;, - -0.046907;-0.254311; 0.965972;, - -0.058504;-0.496475; 0.866054;, - -0.068484;-0.254585; 0.964599;, - -0.047823;-0.261757; 0.963927;, - -0.038728;-0.495743; 0.867580;, - -0.046907;-0.254311; 0.965972;, - -0.024323;-0.398694; 0.916745;, - -0.032929;-0.391217; 0.919706;, - -0.022889;-0.502792; 0.864071;, - -0.022889;-0.502792; 0.864071;, - 0.303415;-0.252419; 0.918790;, - -0.024323;-0.398694; 0.916745;, - 0.303415;-0.252419; 0.918790;, - -0.022889;-0.502792; 0.864071;, - 0.258431;-0.216620; 0.941404;, - -0.074862;-0.432295; 0.898587;, - -0.024323;-0.398694; 0.916745;, - 0.303415;-0.252419; 0.918790;, - -0.022889;-0.502792; 0.864071;, - -0.032929;-0.391217; 0.919706;, - -0.031220;-0.495834; 0.867824;, - -0.031220;-0.495834; 0.867824;, - -0.027253;-0.346690; 0.937559;, - -0.022889;-0.502792; 0.864071;, - -0.027253;-0.346690; 0.937559;, - -0.031220;-0.495834; 0.867824;, - -0.047823;-0.261757; 0.963927;, - 0.258431;-0.216620; 0.941404;, - -0.022889;-0.502792; 0.864071;, - -0.027253;-0.346690; 0.937559;, - -0.759545;-0.016449; 0.650227;, - -0.758446; 0.000000; 0.651692;, - -0.588916;-0.012604; 0.808069;, - -0.588916;-0.012604; 0.808069;, - -0.575182;-0.036500; 0.817194;, - -0.759545;-0.016449; 0.650227;, - -0.575182;-0.036500; 0.817194;, - -0.588916;-0.012604; 0.808069;, - -0.539323;-0.031220; 0.841517;, - -0.755242;-0.050935; 0.653432;, - -0.759545;-0.016449; 0.650227;, - -0.575182;-0.036500; 0.817194;, - -0.588916;-0.012604; 0.808069;, - -0.758446; 0.000000; 0.651692;, - -0.591571; 0.000000; 0.806207;, - -0.591571; 0.000000; 0.806207;, - -0.548601;-0.012024; 0.835994;, - -0.588916;-0.012604; 0.808069;, - -0.548601;-0.012024; 0.835994;, - -0.591571; 0.000000; 0.806207;, - -0.549181; 0.000061; 0.835688;, - -0.539323;-0.031220; 0.841517;, - -0.588916;-0.012604; 0.808069;, - -0.548601;-0.012024; 0.835994;, - -0.066408; 0.369915; 0.926664;, - -0.060823; 0.388104; 0.919584;, - -0.071261; 0.461074; 0.884487;, - -0.071261; 0.461074; 0.884487;, - -0.316904; 0.118442; 0.941008;, - -0.066408; 0.369915; 0.926664;, - -0.316904; 0.118442; 0.941008;, - -0.071261; 0.461074; 0.884487;, - -0.246925; 0.165960; 0.954680;, - -0.480667; 0.181555; 0.857875;, - -0.066408; 0.369915; 0.926664;, - -0.316904; 0.118442; 0.941008;, - -0.071261; 0.461074; 0.884487;, - -0.060823; 0.388104; 0.919584;, - -0.058535; 0.495834; 0.866421;, - -0.058535; 0.495834; 0.866421;, - -0.089114; 0.255379; 0.962706;, - -0.071261; 0.461074; 0.884487;, - -0.089114; 0.255379; 0.962706;, - -0.058535; 0.495834; 0.866421;, - -0.068484; 0.254219; 0.964690;, - -0.246925; 0.165960; 0.954680;, - -0.071261; 0.461074; 0.884487;, - -0.089114; 0.255379; 0.962706;, - -0.733757; 0.121067; 0.668508;, - -0.765313; 0.195013; 0.613361;, - -0.602008;-0.016297; 0.798303;, - -0.602008;-0.016297; 0.798303;, - -0.530717; 0.086978; 0.843043;, - -0.733757; 0.121067; 0.668508;, - -0.530717; 0.086978; 0.843043;, - -0.602008;-0.016297; 0.798303;, - -0.562120;-0.013428; 0.826899;, - -0.740501; 0.101444; 0.664327;, - -0.733757; 0.121067; 0.668508;, - -0.530717; 0.086978; 0.843043;, - -0.541887; 0.070864; 0.837428;, - -0.740501; 0.101444; 0.664327;, - -0.530717; 0.086978; 0.843043;, - -0.530717; 0.086978; 0.843043;, - -0.516739; 0.084262; 0.851955;, - -0.541887; 0.070864; 0.837428;, - -0.516739; 0.084262; 0.851955;, - -0.530717; 0.086978; 0.843043;, - -0.562120;-0.013428; 0.826899;, - -0.525101; 0.065340; 0.848506;, - -0.541887; 0.070864; 0.837428;, - -0.516739; 0.084262; 0.851955;, - -0.706748; 0.129124; 0.695547;, - -0.480667; 0.181555; 0.857875;, - -0.593310;-0.163762; 0.788110;, - -0.593310;-0.163762; 0.788110;, - -0.602008;-0.016297; 0.798303;, - -0.706748; 0.129124; 0.695547;, - -0.602008;-0.016297; 0.798303;, - -0.593310;-0.163762; 0.788110;, - -0.562120;-0.013428; 0.826899;, - -0.765313; 0.195013; 0.613361;, - -0.706748; 0.129124; 0.695547;, - -0.602008;-0.016297; 0.798303;, - -0.593310;-0.163762; 0.788110;, - -0.480667; 0.181555; 0.857875;, - -0.316904; 0.118442; 0.941008;, - -0.316904; 0.118442; 0.941008;, - -0.537492;-0.081851; 0.839259;, - -0.593310;-0.163762; 0.788110;, - -0.537492;-0.081851; 0.839259;, - -0.316904; 0.118442; 0.941008;, - -0.246925; 0.165960; 0.954680;, - -0.562120;-0.013428; 0.826899;, - -0.593310;-0.163762; 0.788110;, - -0.537492;-0.081851; 0.839259;, - -0.042604; 0.387555; 0.920835;, - -0.032960; 0.390912; 0.919828;, - -0.031251; 0.495163; 0.868221;, - -0.031251; 0.495163; 0.868221;, - -0.038759; 0.495102; 0.867946;, - -0.042604; 0.387555; 0.920835;, - -0.038759; 0.495102; 0.867946;, - -0.031251; 0.495163; 0.868221;, - -0.047823; 0.261422; 0.964019;, - -0.060823; 0.388104; 0.919584;, - -0.042604; 0.387555; 0.920835;, - -0.038759; 0.495102; 0.867946;, - -0.058535; 0.495834; 0.866421;, - -0.060823; 0.388104; 0.919584;, - -0.038759; 0.495102; 0.867946;, - -0.038759; 0.495102; 0.867946;, - -0.046907; 0.253945; 0.966063;, - -0.058535; 0.495834; 0.866421;, - -0.046907; 0.253945; 0.966063;, - -0.038759; 0.495102; 0.867946;, - -0.047823; 0.261422; 0.964019;, - -0.068484; 0.254219; 0.964690;, - -0.058535; 0.495834; 0.866421;, - -0.046907; 0.253945; 0.966063;, - -0.024323; 0.398389; 0.916868;, - -0.088198; 0.437635; 0.894803;, - 0.303446; 0.252052; 0.918882;, - 0.303446; 0.252052; 0.918882;, - -0.022919; 0.502152; 0.864437;, - -0.024323; 0.398389; 0.916868;, - -0.022919; 0.502152; 0.864437;, - 0.303446; 0.252052; 0.918882;, - 0.258492; 0.216285; 0.941465;, - -0.032960; 0.390912; 0.919828;, - -0.024323; 0.398389; 0.916868;, - -0.022919; 0.502152; 0.864437;, - -0.031251; 0.495163; 0.868221;, - -0.032960; 0.390912; 0.919828;, - -0.022919; 0.502152; 0.864437;, - -0.022919; 0.502152; 0.864437;, - -0.027253; 0.346324; 0.937712;, - -0.031251; 0.495163; 0.868221;, - -0.027253; 0.346324; 0.937712;, - -0.022919; 0.502152; 0.864437;, - 0.258492; 0.216285; 0.941465;, - -0.047823; 0.261422; 0.964019;, - -0.031251; 0.495163; 0.868221;, - -0.027253; 0.346324; 0.937712;, - -0.759392; 0.016511; 0.650410;, - -0.755089; 0.051057; 0.653584;, - -0.575091; 0.036561; 0.817255;, - -0.575091; 0.036561; 0.817255;, - -0.588885; 0.012665; 0.808100;, - -0.759392; 0.016511; 0.650410;, - -0.588885; 0.012665; 0.808100;, - -0.575091; 0.036561; 0.817255;, - -0.539171; 0.031312; 0.841578;, - -0.758446; 0.000000; 0.651692;, - -0.759392; 0.016511; 0.650410;, - -0.588885; 0.012665; 0.808100;, - -0.591571; 0.000000; 0.806207;, - -0.758446; 0.000000; 0.651692;, - -0.588885; 0.012665; 0.808100;, - -0.588885; 0.012665; 0.808100;, - -0.548448; 0.012085; 0.836085;, - -0.591571; 0.000000; 0.806207;, - -0.548448; 0.012085; 0.836085;, - -0.588885; 0.012665; 0.808100;, - -0.539171; 0.031312; 0.841578;, - -0.549181; 0.000061; 0.835688;, - -0.591571; 0.000000; 0.806207;, - -0.548448; 0.012085; 0.836085;, - -0.745933;-0.074190; 0.661855;, - -0.755242;-0.050935; 0.653432;, - -0.558519;-0.058077; 0.827418;, - -0.558519;-0.058077; 0.827418;, - -0.542039;-0.070833; 0.837336;, - -0.745933;-0.074190; 0.661855;, - -0.542039;-0.070833; 0.837336;, - -0.558519;-0.058077; 0.827418;, - -0.525193;-0.065401; 0.848445;, - -0.740562;-0.101413; 0.664266;, - -0.745933;-0.074190; 0.661855;, - -0.542039;-0.070833; 0.837336;, - -0.558519;-0.058077; 0.827418;, - -0.755242;-0.050935; 0.653432;, - -0.575182;-0.036500; 0.817194;, - -0.575182;-0.036500; 0.817194;, - -0.530168;-0.057375; 0.845912;, - -0.558519;-0.058077; 0.827418;, - -0.530168;-0.057375; 0.845912;, - -0.575182;-0.036500; 0.817194;, - -0.539323;-0.031220; 0.841517;, - -0.525193;-0.065401; 0.848445;, - -0.558519;-0.058077; 0.827418;, - -0.530168;-0.057375; 0.845912;, - -0.745903; 0.074221; 0.661885;, - -0.740501; 0.101444; 0.664327;, - -0.541887; 0.070864; 0.837428;, - -0.541887; 0.070864; 0.837428;, - -0.558428; 0.058107; 0.827509;, - -0.745903; 0.074221; 0.661885;, - -0.558428; 0.058107; 0.827509;, - -0.541887; 0.070864; 0.837428;, - -0.525101; 0.065340; 0.848506;, - -0.755089; 0.051057; 0.653584;, - -0.745903; 0.074221; 0.661885;, - -0.558428; 0.058107; 0.827509;, - -0.575091; 0.036561; 0.817255;, - -0.755089; 0.051057; 0.653584;, - -0.558428; 0.058107; 0.827509;, - -0.558428; 0.058107; 0.827509;, - -0.529923; 0.057375; 0.846095;, - -0.575091; 0.036561; 0.817255;, - -0.529923; 0.057375; 0.846095;, - -0.558428; 0.058107; 0.827509;, - -0.525101; 0.065340; 0.848506;, - -0.539171; 0.031312; 0.841578;, - -0.575091; 0.036561; 0.817255;, - -0.529923; 0.057375; 0.846095;, - -0.142796;-0.011658; 0.989654;, - -0.124912;-0.013520; 0.992065;, - 0.559496; 0.056642; 0.826868;, - 0.559496; 0.056642; 0.826868;, - 0.545915; 0.046480; 0.836512;, - -0.142796;-0.011658; 0.989654;, - 0.545915; 0.046480; 0.836512;, - 0.559496; 0.056642; 0.826868;, - 0.251289; 0.023865; 0.967589;, - -0.121403;-0.000061; 0.992584;, - -0.142796;-0.011658; 0.989654;, - 0.545915; 0.046480; 0.836512;, - 0.537065; 0.000458; 0.843532;, - -0.121403;-0.000061; 0.992584;, - 0.545915; 0.046480; 0.836512;, - 0.545915; 0.046480; 0.836512;, - 0.241890; 0.021455; 0.970031;, - 0.537065; 0.000458; 0.843532;, - 0.241890; 0.021455; 0.970031;, - 0.545915; 0.046480; 0.836512;, - 0.251289; 0.023865; 0.967589;, - 0.224525; 0.000153; 0.974456;, - 0.537065; 0.000458; 0.843532;, - 0.241890; 0.021455; 0.970031;, - -0.143376; 0.011475; 0.989593;, - -0.121403;-0.000061; 0.992584;, - 0.545579;-0.045534; 0.836787;, - 0.545579;-0.045534; 0.836787;, - 0.559191;-0.056215; 0.827113;, - -0.143376; 0.011475; 0.989593;, - 0.559191;-0.056215; 0.827113;, - 0.545579;-0.045534; 0.836787;, - 0.250862;-0.023591; 0.967711;, - -0.124851; 0.013398; 0.992065;, - -0.143376; 0.011475; 0.989593;, - 0.559191;-0.056215; 0.827113;, - 0.545579;-0.045534; 0.836787;, - -0.121403;-0.000061; 0.992584;, - 0.537065; 0.000458; 0.843532;, - 0.537065; 0.000458; 0.843532;, - 0.241737;-0.020997; 0.970092;, - 0.545579;-0.045534; 0.836787;, - 0.241737;-0.020997; 0.970092;, - 0.537065; 0.000458; 0.843532;, - 0.224525; 0.000153; 0.974456;, - 0.250862;-0.023591; 0.967711;, - 0.545579;-0.045534; 0.836787;, - 0.241737;-0.020997; 0.970092;, - -0.042970;-0.178533; 0.982971;, - -0.074862;-0.432295; 0.898587;, - 0.303415;-0.252419; 0.918790;, - 0.303415;-0.252419; 0.918790;, - 0.571612; 0.050142; 0.818964;, - -0.042970;-0.178533; 0.982971;, - 0.571612; 0.050142; 0.818964;, - 0.303415;-0.252419; 0.918790;, - 0.258431;-0.216620; 0.941404;, - -0.040559;-0.106632; 0.993439;, - -0.042970;-0.178533; 0.982971;, - 0.571612; 0.050142; 0.818964;, - 0.571764; 0.057192; 0.818384;, - -0.040559;-0.106632; 0.993439;, - 0.571612; 0.050142; 0.818964;, - 0.571612; 0.050142; 0.818964;, - 0.285165;-0.073305; 0.955657;, - 0.571764; 0.057192; 0.818384;, - 0.285165;-0.073305; 0.955657;, - 0.571612; 0.050142; 0.818964;, - 0.258431;-0.216620; 0.941404;, - 0.250832;-0.025727; 0.967650;, - 0.571764; 0.057192; 0.818384;, - 0.285165;-0.073305; 0.955657;, - -0.116398;-0.012909; 0.993103;, - -0.040559;-0.106632; 0.993439;, - 0.571764; 0.057192; 0.818384;, - 0.571764; 0.057192; 0.818384;, - 0.569689; 0.065859; 0.819178;, - -0.116398;-0.012909; 0.993103;, - 0.569689; 0.065859; 0.819178;, - 0.571764; 0.057192; 0.818384;, - 0.250832;-0.025727; 0.967650;, - -0.124912;-0.013520; 0.992065;, - -0.116398;-0.012909; 0.993103;, - 0.569689; 0.065859; 0.819178;, - 0.559496; 0.056642; 0.826868;, - -0.124912;-0.013520; 0.992065;, - 0.569689; 0.065859; 0.819178;, - 0.569689; 0.065859; 0.819178;, - 0.259133; 0.031190; 0.965331;, - 0.559496; 0.056642; 0.826868;, - 0.259133; 0.031190; 0.965331;, - 0.569689; 0.065859; 0.819178;, - 0.250832;-0.025727; 0.967650;, - 0.251289; 0.023865; 0.967589;, - 0.559496; 0.056642; 0.826868;, - 0.259133; 0.031190; 0.965331;, - -0.116276; 0.012909; 0.993103;, - -0.124851; 0.013398; 0.992065;, - 0.569720;-0.066012; 0.819178;, - 0.569720;-0.066012; 0.819178;, - 0.571886;-0.057253; 0.818293;, - -0.116276; 0.012909; 0.993103;, - 0.571886;-0.057253; 0.818293;, - 0.569720;-0.066012; 0.819178;, - 0.250954; 0.025666; 0.967650;, - -0.040742; 0.106571; 0.993439;, - -0.116276; 0.012909; 0.993103;, - 0.571886;-0.057253; 0.818293;, - 0.569720;-0.066012; 0.819178;, - -0.124851; 0.013398; 0.992065;, - 0.559191;-0.056215; 0.827113;, - 0.559191;-0.056215; 0.827113;, - 0.259041;-0.031251; 0.965331;, - 0.569720;-0.066012; 0.819178;, - 0.259041;-0.031251; 0.965331;, - 0.559191;-0.056215; 0.827113;, - 0.250862;-0.023591; 0.967711;, - 0.250954; 0.025666; 0.967650;, - 0.569720;-0.066012; 0.819178;, - 0.259041;-0.031251; 0.965331;, - -0.635517; 0.705130;-0.314402;, - -0.340770; 0.822748;-0.454848;, - -0.712668; 0.000000;-0.701468;, - -0.712668; 0.000000;-0.701468;, - -0.921781; 0.000000; 0.387677;, - -0.635517; 0.705130;-0.314402;, - -0.921781; 0.000000; 0.387677;, - -0.712668; 0.000000;-0.701468;, - -0.809503; 0.463393; 0.360454;, - -0.243965; 0.805506; 0.539994;, - -0.635517; 0.705130;-0.314402;, - -0.921781; 0.000000; 0.387677;, - -0.712668; 0.000000;-0.701468;, - -0.340770; 0.822748;-0.454848;, - -0.385540; 0.000000;-0.922666;, - -0.385540; 0.000000;-0.922666;, - -0.595691; 0.763451;-0.249458;, - -0.712668; 0.000000;-0.701468;, - -0.595691; 0.763451;-0.249458;, - -0.385540; 0.000000;-0.922666;, - -0.329814; 0.763298;-0.555467;, - -0.809503; 0.463393; 0.360454;, - -0.712668; 0.000000;-0.701468;, - -0.595691; 0.763451;-0.249458;, - -0.014374; 0.751061;-0.660054;, - 0.338023; 0.840144;-0.424085;, - 0.001679; 0.000000;-0.999969;, - 0.001679; 0.000000;-0.999969;, - -0.385540; 0.000000;-0.922666;, - -0.014374; 0.751061;-0.660054;, - -0.385540; 0.000000;-0.922666;, - 0.001679; 0.000000;-0.999969;, - -0.329814; 0.763298;-0.555467;, - -0.340770; 0.822748;-0.454848;, - -0.014374; 0.751061;-0.660054;, - -0.385540; 0.000000;-0.922666;, - 0.001679; 0.000000;-0.999969;, - 0.338023; 0.840144;-0.424085;, - 0.419172; 0.000000;-0.907895;, - 0.419172; 0.000000;-0.907895;, - -0.016572; 0.847621;-0.530320;, - 0.001679; 0.000000;-0.999969;, - -0.016572; 0.847621;-0.530320;, - 0.419172; 0.000000;-0.907895;, - 0.345653; 0.772698;-0.532365;, - -0.329814; 0.763298;-0.555467;, - 0.001679; 0.000000;-0.999969;, - -0.016572; 0.847621;-0.530320;, - 0.664846; 0.708457;-0.236641;, - 0.231605; 0.780633; 0.580462;, - 0.908872; 0.000000; 0.417066;, - 0.908872; 0.000000; 0.417066;, - 0.760033; 0.000000;-0.649831;, - 0.664846; 0.708457;-0.236641;, - 0.760033; 0.000000;-0.649831;, - 0.908872; 0.000000; 0.417066;, - 0.798212; 0.457778; 0.391461;, - 0.338023; 0.840144;-0.424085;, - 0.664846; 0.708457;-0.236641;, - 0.760033; 0.000000;-0.649831;, - 0.419172; 0.000000;-0.907895;, - 0.338023; 0.840144;-0.424085;, - 0.760033; 0.000000;-0.649831;, - 0.760033; 0.000000;-0.649831;, - 0.625599; 0.759239;-0.179296;, - 0.419172; 0.000000;-0.907895;, - 0.625599; 0.759239;-0.179296;, - 0.760033; 0.000000;-0.649831;, - 0.798212; 0.457778; 0.391461;, - 0.345653; 0.772698;-0.532365;, - 0.419172; 0.000000;-0.907895;, - 0.625599; 0.759239;-0.179296;, - 0.001373; 0.419111; 0.907895;, - -0.243965; 0.805506; 0.539994;, - -0.921781; 0.000000; 0.387677;, - -0.921781; 0.000000; 0.387677;, - 0.002930; 0.000000; 0.999969;, - 0.001373; 0.419111; 0.907895;, - 0.002930; 0.000000; 0.999969;, - -0.921781; 0.000000; 0.387677;, - -0.809503; 0.463393; 0.360454;, - 0.231605; 0.780633; 0.580462;, - 0.001373; 0.419111; 0.907895;, - 0.002930; 0.000000; 0.999969;, - 0.908872; 0.000000; 0.417066;, - 0.231605; 0.780633; 0.580462;, - 0.002930; 0.000000; 0.999969;, - 0.002930; 0.000000; 0.999969;, - 0.000763; 0.546648; 0.837336;, - 0.908872; 0.000000; 0.417066;, - 0.000763; 0.546648; 0.837336;, - 0.002930; 0.000000; 0.999969;, - -0.809503; 0.463393; 0.360454;, - 0.798212; 0.457778; 0.391461;, - 0.908872; 0.000000; 0.417066;, - 0.000763; 0.546648; 0.837336;, - -0.076785; 0.935942; 0.343608;, - -0.041902; 0.649312; 0.759331;, - -0.166570; 0.951201; 0.259682;, - -0.166570; 0.951201; 0.259682;, - -0.098025; 0.882839; 0.459304;, - -0.076785; 0.935942; 0.343608;, - -0.098025; 0.882839; 0.459304;, - -0.166570; 0.951201; 0.259682;, - -0.243965; 0.805506; 0.539994;, - -0.099368; 0.637898; 0.763634;, - -0.076785; 0.935942; 0.343608;, - -0.098025; 0.882839; 0.459304;, - -0.166570; 0.951201; 0.259682;, - -0.041902; 0.649312; 0.759331;, - -0.082400; 0.975402; 0.204321;, - -0.082400; 0.975402; 0.204321;, - -0.635517; 0.705130;-0.314402;, - -0.166570; 0.951201; 0.259682;, - -0.635517; 0.705130;-0.314402;, - -0.082400; 0.975402; 0.204321;, - -0.340770; 0.822748;-0.454848;, - -0.243965; 0.805506; 0.539994;, - -0.166570; 0.951201; 0.259682;, - -0.635517; 0.705130;-0.314402;, - -0.016083; 0.702322; 0.711661;, - -0.181982; 0.614185; 0.767846;, - 0.047945; 0.969451; 0.240486;, - 0.047945; 0.969451; 0.240486;, - -0.020936; 0.990722; 0.134037;, - -0.016083; 0.702322; 0.711661;, - -0.020936; 0.990722; 0.134037;, - 0.047945; 0.969451; 0.240486;, - 0.338023; 0.840144;-0.424085;, - -0.041902; 0.649312; 0.759331;, - -0.016083; 0.702322; 0.711661;, - -0.020936; 0.990722; 0.134037;, - -0.082400; 0.975402; 0.204321;, - -0.041902; 0.649312; 0.759331;, - -0.020936; 0.990722; 0.134037;, - -0.020936; 0.990722; 0.134037;, - -0.014374; 0.751061;-0.660054;, - -0.082400; 0.975402; 0.204321;, - -0.014374; 0.751061;-0.660054;, - -0.020936; 0.990722; 0.134037;, - 0.338023; 0.840144;-0.424085;, - -0.340770; 0.822748;-0.454848;, - -0.082400; 0.975402; 0.204321;, - -0.014374; 0.751061;-0.660054;, - -0.287606; 0.748558; 0.597400;, - -0.088198; 0.437635; 0.894803;, - 0.080081; 0.867611; 0.490707;, - 0.080081; 0.867611; 0.490707;, - 0.136814; 0.935759; 0.324931;, - -0.287606; 0.748558; 0.597400;, - 0.136814; 0.935759; 0.324931;, - 0.080081; 0.867611; 0.490707;, - 0.231605; 0.780633; 0.580462;, - -0.181982; 0.614185; 0.767846;, - -0.287606; 0.748558; 0.597400;, - 0.136814; 0.935759; 0.324931;, - 0.047945; 0.969451; 0.240486;, - -0.181982; 0.614185; 0.767846;, - 0.136814; 0.935759; 0.324931;, - 0.136814; 0.935759; 0.324931;, - 0.664846; 0.708457;-0.236641;, - 0.047945; 0.969451; 0.240486;, - 0.664846; 0.708457;-0.236641;, - 0.136814; 0.935759; 0.324931;, - 0.231605; 0.780633; 0.580462;, - 0.338023; 0.840144;-0.424085;, - 0.047945; 0.969451; 0.240486;, - 0.664846; 0.708457;-0.236641;, - 0.000702; 0.560106; 0.828394;, - -0.099368; 0.637898; 0.763634;, - -0.098025; 0.882839; 0.459304;, - -0.098025; 0.882839; 0.459304;, - -0.000427; 0.760674; 0.649098;, - 0.000702; 0.560106; 0.828394;, - -0.000427; 0.760674; 0.649098;, - -0.098025; 0.882839; 0.459304;, - -0.243965; 0.805506; 0.539994;, - -0.088198; 0.437635; 0.894803;, - 0.000702; 0.560106; 0.828394;, - -0.000427; 0.760674; 0.649098;, - 0.080081; 0.867611; 0.490707;, - -0.088198; 0.437635; 0.894803;, - -0.000427; 0.760674; 0.649098;, - -0.000427; 0.760674; 0.649098;, - 0.001373; 0.419111; 0.907895;, - 0.080081; 0.867611; 0.490707;, - 0.001373; 0.419111; 0.907895;, - -0.000427; 0.760674; 0.649098;, - -0.243965; 0.805506; 0.539994;, - 0.231605; 0.780633; 0.580462;, - 0.080081; 0.867611; 0.490707;, - 0.001373; 0.419111; 0.907895;, - 0.668264;-0.693045;-0.270302;, - 0.337291;-0.815668;-0.469985;, - 0.753929; 0.000000;-0.656941;, - 0.753929; 0.000000;-0.656941;, - 0.910794; 0.000000; 0.412824;, - 0.668264;-0.693045;-0.270302;, - 0.910794; 0.000000; 0.412824;, - 0.753929; 0.000000;-0.656941;, - 0.798730;-0.461501; 0.385998;, - 0.325358;-0.752129; 0.573077;, - 0.668264;-0.693045;-0.270302;, - 0.910794; 0.000000; 0.412824;, - 0.753929; 0.000000;-0.656941;, - 0.337291;-0.815668;-0.469985;, - 0.414899; 0.000000;-0.909848;, - 0.414899; 0.000000;-0.909848;, - 0.618854;-0.760399;-0.196936;, - 0.753929; 0.000000;-0.656941;, - 0.618854;-0.760399;-0.196936;, - 0.414899; 0.000000;-0.909848;, - 0.342540;-0.768364;-0.540605;, - 0.798730;-0.461501; 0.385998;, - 0.753929; 0.000000;-0.656941;, - 0.618854;-0.760399;-0.196936;, - -0.011170;-0.716178;-0.697806;, - -0.336802;-0.792535;-0.508316;, - -0.381176; 0.000000;-0.924467;, - -0.381176; 0.000000;-0.924467;, - 0.001648; 0.000000;-0.999969;, - -0.011170;-0.716178;-0.697806;, - 0.001648; 0.000000;-0.999969;, - -0.381176; 0.000000;-0.924467;, - -0.324870;-0.761132;-0.561327;, - 0.337291;-0.815668;-0.469985;, - -0.011170;-0.716178;-0.697806;, - 0.001648; 0.000000;-0.999969;, - 0.414899; 0.000000;-0.909848;, - 0.337291;-0.815668;-0.469985;, - 0.001648; 0.000000;-0.999969;, - 0.001648; 0.000000;-0.999969;, - -0.013611;-0.843135;-0.537492;, - 0.414899; 0.000000;-0.909848;, - -0.013611;-0.843135;-0.537492;, - 0.001648; 0.000000;-0.999969;, - -0.324870;-0.761132;-0.561327;, - 0.342540;-0.768364;-0.540605;, - 0.414899; 0.000000;-0.909848;, - -0.013611;-0.843135;-0.537492;, - -0.640034;-0.684072;-0.349803;, - -0.353648;-0.779565; 0.516892;, - -0.923612; 0.000000; 0.383282;, - -0.923612; 0.000000; 0.383282;, - -0.705985; 0.000000;-0.708182;, - -0.640034;-0.684072;-0.349803;, - -0.705985; 0.000000;-0.708182;, - -0.923612; 0.000000; 0.383282;, - -0.809900;-0.466720; 0.355205;, - -0.336802;-0.792535;-0.508316;, - -0.640034;-0.684072;-0.349803;, - -0.705985; 0.000000;-0.708182;, - -0.381176; 0.000000;-0.924467;, - -0.336802;-0.792535;-0.508316;, - -0.705985; 0.000000;-0.708182;, - -0.705985; 0.000000;-0.708182;, - -0.588031;-0.764824;-0.263131;, - -0.381176; 0.000000;-0.924467;, - -0.588031;-0.764824;-0.263131;, - -0.705985; 0.000000;-0.708182;, - -0.809900;-0.466720; 0.355205;, - -0.324870;-0.761132;-0.561327;, - -0.381176; 0.000000;-0.924467;, - -0.588031;-0.764824;-0.263131;, - 0.001740;-0.347545; 0.937651;, - 0.325358;-0.752129; 0.573077;, - 0.002869; 0.000000; 0.999969;, - 0.002869; 0.000000; 0.999969;, - -0.923612; 0.000000; 0.383282;, - 0.001740;-0.347545; 0.937651;, - -0.923612; 0.000000; 0.383282;, - 0.002869; 0.000000; 0.999969;, - -0.809900;-0.466720; 0.355205;, - -0.353648;-0.779565; 0.516892;, - 0.001740;-0.347545; 0.937651;, - -0.923612; 0.000000; 0.383282;, - 0.002869; 0.000000; 0.999969;, - 0.325358;-0.752129; 0.573077;, - 0.910794; 0.000000; 0.412824;, - 0.910794; 0.000000; 0.412824;, - 0.000885;-0.551500; 0.834132;, - 0.002869; 0.000000; 0.999969;, - 0.000885;-0.551500; 0.834132;, - 0.910794; 0.000000; 0.412824;, - 0.798730;-0.461501; 0.385998;, - -0.809900;-0.466720; 0.355205;, - 0.002869; 0.000000; 0.999969;, - 0.000885;-0.551500; 0.834132;, - -0.198614;-0.809168; 0.552934;, - -0.169805;-0.635670; 0.753014;, - 0.246803;-0.942289; 0.226203;, - 0.246803;-0.942289; 0.226203;, - 0.179815;-0.850246; 0.494675;, - -0.198614;-0.809168; 0.552934;, - 0.179815;-0.850246; 0.494675;, - 0.246803;-0.942289; 0.226203;, - 0.325358;-0.752129; 0.573077;, - -0.074862;-0.432295; 0.898587;, - -0.198614;-0.809168; 0.552934;, - 0.179815;-0.850246; 0.494675;, - 0.246803;-0.942289; 0.226203;, - -0.169805;-0.635670; 0.753014;, - 0.069704;-0.982269; 0.173894;, - 0.069704;-0.982269; 0.173894;, - 0.668264;-0.693045;-0.270302;, - 0.246803;-0.942289; 0.226203;, - 0.668264;-0.693045;-0.270302;, - 0.069704;-0.982269; 0.173894;, - 0.337291;-0.815668;-0.469985;, - 0.325358;-0.752129; 0.573077;, - 0.246803;-0.942289; 0.226203;, - 0.668264;-0.693045;-0.270302;, - -0.014954;-0.732322; 0.680746;, - -0.059114;-0.669851; 0.740104;, - -0.018067;-0.998993; 0.040742;, - -0.018067;-0.998993; 0.040742;, - 0.069704;-0.982269; 0.173894;, - -0.014954;-0.732322; 0.680746;, - 0.069704;-0.982269; 0.173894;, - -0.018067;-0.998993; 0.040742;, - 0.337291;-0.815668;-0.469985;, - -0.169805;-0.635670; 0.753014;, - -0.014954;-0.732322; 0.680746;, - 0.069704;-0.982269; 0.173894;, - -0.018067;-0.998993; 0.040742;, - -0.059114;-0.669851; 0.740104;, - -0.104282;-0.986847; 0.123478;, - -0.104282;-0.986847; 0.123478;, - -0.011170;-0.716178;-0.697806;, - -0.018067;-0.998993; 0.040742;, - -0.011170;-0.716178;-0.697806;, - -0.104282;-0.986847; 0.123478;, - -0.336802;-0.792535;-0.508316;, - 0.337291;-0.815668;-0.469985;, - -0.018067;-0.998993; 0.040742;, - -0.011170;-0.716178;-0.697806;, - -0.181463;-0.950133; 0.253517;, - -0.113651;-0.630818; 0.767541;, - -0.210608;-0.869655; 0.446394;, - -0.210608;-0.869655; 0.446394;, - -0.287851;-0.948210; 0.134220;, - -0.181463;-0.950133; 0.253517;, - -0.287851;-0.948210; 0.134220;, - -0.210608;-0.869655; 0.446394;, - -0.353648;-0.779565; 0.516892;, - -0.059114;-0.669851; 0.740104;, - -0.181463;-0.950133; 0.253517;, - -0.287851;-0.948210; 0.134220;, - -0.104282;-0.986847; 0.123478;, - -0.059114;-0.669851; 0.740104;, - -0.287851;-0.948210; 0.134220;, - -0.287851;-0.948210; 0.134220;, - -0.640034;-0.684072;-0.349803;, - -0.104282;-0.986847; 0.123478;, - -0.640034;-0.684072;-0.349803;, - -0.287851;-0.948210; 0.134220;, - -0.353648;-0.779565; 0.516892;, - -0.336802;-0.792535;-0.508316;, - -0.104282;-0.986847; 0.123478;, - -0.640034;-0.684072;-0.349803;, - 0.001099;-0.493667; 0.869625;, - -0.074862;-0.432295; 0.898587;, - 0.000336;-0.650807; 0.759209;, - 0.000336;-0.650807; 0.759209;, - -0.210608;-0.869655; 0.446394;, - 0.001099;-0.493667; 0.869625;, - -0.210608;-0.869655; 0.446394;, - 0.000336;-0.650807; 0.759209;, - -0.353648;-0.779565; 0.516892;, - -0.113651;-0.630818; 0.767541;, - 0.001099;-0.493667; 0.869625;, - -0.210608;-0.869655; 0.446394;, - 0.000336;-0.650807; 0.759209;, - -0.074862;-0.432295; 0.898587;, - 0.179815;-0.850246; 0.494675;, - 0.179815;-0.850246; 0.494675;, - 0.001740;-0.347545; 0.937651;, - 0.000336;-0.650807; 0.759209;, - 0.001740;-0.347545; 0.937651;, - 0.179815;-0.850246; 0.494675;, - 0.325358;-0.752129; 0.573077;, - -0.353648;-0.779565; 0.516892;, - 0.000336;-0.650807; 0.759209;, - 0.001740;-0.347545; 0.937651;, - 0.000763; 0.126926; 0.991882;, - 0.000092; 0.089145; 0.996002;, - -0.002564; 0.135533; 0.990753;, - -0.002564; 0.135533; 0.990753;, - -0.016083; 0.702322; 0.711661;, - 0.000763; 0.126926; 0.991882;, - -0.016083; 0.702322; 0.711661;, - -0.002564; 0.135533; 0.990753;, - -0.181982; 0.614185; 0.767846;, - -0.041902; 0.649312; 0.759331;, - 0.000763; 0.126926; 0.991882;, - -0.016083; 0.702322; 0.711661;, - -0.002564; 0.135533; 0.990753;, - 0.000092; 0.089145; 0.996002;, - -0.000519; 0.096652; 0.995300;, - -0.000519; 0.096652; 0.995300;, - -0.022065; 0.146367; 0.988952;, - -0.002564; 0.135533; 0.990753;, - -0.022065; 0.146367; 0.988952;, - -0.000519; 0.096652; 0.995300;, - -0.018067; 0.101108; 0.994690;, - -0.181982; 0.614185; 0.767846;, - -0.002564; 0.135533; 0.990753;, - -0.022065; 0.146367; 0.988952;, - 0.000610;-0.128513; 0.991699;, - -0.059114;-0.669851; 0.740104;, - -0.014954;-0.732322; 0.680746;, - -0.014954;-0.732322; 0.680746;, - -0.002411;-0.136723; 0.990600;, - 0.000610;-0.128513; 0.991699;, - -0.002411;-0.136723; 0.990600;, - -0.014954;-0.732322; 0.680746;, - -0.169805;-0.635670; 0.753014;, - 0.000061;-0.089816; 0.995941;, - 0.000610;-0.128513; 0.991699;, - -0.002411;-0.136723; 0.990600;, - -0.000458;-0.097018; 0.995270;, - 0.000061;-0.089816; 0.995941;, - -0.002411;-0.136723; 0.990600;, - -0.002411;-0.136723; 0.990600;, - -0.021912;-0.147099; 0.988861;, - -0.000458;-0.097018; 0.995270;, - -0.021912;-0.147099; 0.988861;, - -0.002411;-0.136723; 0.990600;, - -0.169805;-0.635670; 0.753014;, - -0.014924;-0.105136; 0.994324;, - -0.000458;-0.097018; 0.995270;, - -0.021912;-0.147099; 0.988861;, - 0.000122; 0.048555; 0.998810;, - 0.000000; 0.000000; 0.999969;, - -0.000122; 0.048738; 0.998810;, - -0.000122; 0.048738; 0.998810;, - -0.000519; 0.096652; 0.995300;, - 0.000122; 0.048555; 0.998810;, - -0.000519; 0.096652; 0.995300;, - -0.000122; 0.048738; 0.998810;, - -0.018067; 0.101108; 0.994690;, - 0.000092; 0.089145; 0.996002;, - 0.000122; 0.048555; 0.998810;, - -0.000519; 0.096652; 0.995300;, - -0.000122; 0.048738; 0.998810;, - 0.000000; 0.000000; 0.999969;, - 0.000000; 0.000000; 1.000000;, - 0.000000; 0.000000; 1.000000;, - -0.012421; 0.050050; 0.998657;, - -0.000122; 0.048738; 0.998810;, - -0.012421; 0.050050; 0.998657;, - 0.000000; 0.000000; 1.000000;, - -0.018708;-0.003815; 0.999817;, - -0.018067; 0.101108; 0.994690;, - -0.000122; 0.048738; 0.998810;, - -0.012421; 0.050050; 0.998657;, - 0.000122;-0.048555; 0.998810;, - 0.000061;-0.089816; 0.995941;, - -0.000458;-0.097018; 0.995270;, - -0.000458;-0.097018; 0.995270;, - -0.000092;-0.048708; 0.998810;, - 0.000122;-0.048555; 0.998810;, - -0.000092;-0.048708; 0.998810;, - -0.000458;-0.097018; 0.995270;, - -0.014924;-0.105136; 0.994324;, - 0.000000; 0.000000; 0.999969;, - 0.000122;-0.048555; 0.998810;, - -0.000092;-0.048708; 0.998810;, - 0.000000; 0.000000; 1.000000;, - 0.000000; 0.000000; 0.999969;, - -0.000092;-0.048708; 0.998810;, - -0.000092;-0.048708; 0.998810;, - -0.019654;-0.050691; 0.998505;, - 0.000000; 0.000000; 1.000000;, - -0.019654;-0.050691; 0.998505;, - -0.000092;-0.048708; 0.998810;, - -0.014924;-0.105136; 0.994324;, - -0.018708;-0.003815; 0.999817;, - 0.000000; 0.000000; 1.000000;, - -0.019654;-0.050691; 0.998505;, - 0.000763; 0.546648; 0.837336;, - -0.809503; 0.463393; 0.360454;, - -0.595691; 0.763451;-0.249458;, - -0.595691; 0.763451;-0.249458;, - -0.010437; 0.907437; 0.420026;, - 0.000763; 0.546648; 0.837336;, - -0.010437; 0.907437; 0.420026;, - -0.595691; 0.763451;-0.249458;, - -0.329814; 0.763298;-0.555467;, - 0.798212; 0.457778; 0.391461;, - 0.000763; 0.546648; 0.837336;, - -0.010437; 0.907437; 0.420026;, - 0.625599; 0.759239;-0.179296;, - 0.798212; 0.457778; 0.391461;, - -0.010437; 0.907437; 0.420026;, - -0.010437; 0.907437; 0.420026;, - -0.016572; 0.847621;-0.530320;, - 0.625599; 0.759239;-0.179296;, - -0.016572; 0.847621;-0.530320;, - -0.010437; 0.907437; 0.420026;, - -0.329814; 0.763298;-0.555467;, - 0.345653; 0.772698;-0.532365;, - 0.625599; 0.759239;-0.179296;, - -0.016572; 0.847621;-0.530320;, - 0.000885;-0.551500; 0.834132;, - 0.798730;-0.461501; 0.385998;, - -0.008850;-0.913388; 0.406964;, - -0.008850;-0.913388; 0.406964;, - -0.588031;-0.764824;-0.263131;, - 0.000885;-0.551500; 0.834132;, - -0.588031;-0.764824;-0.263131;, - -0.008850;-0.913388; 0.406964;, - -0.324870;-0.761132;-0.561327;, - -0.809900;-0.466720; 0.355205;, - 0.000885;-0.551500; 0.834132;, - -0.588031;-0.764824;-0.263131;, - -0.008850;-0.913388; 0.406964;, - 0.798730;-0.461501; 0.385998;, - 0.618854;-0.760399;-0.196936;, - 0.618854;-0.760399;-0.196936;, - -0.013611;-0.843135;-0.537492;, - -0.008850;-0.913388; 0.406964;, - -0.013611;-0.843135;-0.537492;, - 0.618854;-0.760399;-0.196936;, - 0.342540;-0.768364;-0.540605;, - -0.324870;-0.761132;-0.561327;, - -0.008850;-0.913388; 0.406964;, - -0.013611;-0.843135;-0.537492;, - 0.003693; 0.131413; 0.991302;, - 0.001831; 0.090762; 0.995849;, - 0.001038; 0.089938; 0.995941;, - 0.001038; 0.089938; 0.995941;, - 0.003723; 0.129246; 0.991577;, - 0.003693; 0.131413; 0.991302;, - 0.003723; 0.129246; 0.991577;, - 0.001038; 0.089938; 0.995941;, - 0.000092; 0.089145; 0.996002;, - 0.021027; 0.582507; 0.812525;, - 0.003693; 0.131413; 0.991302;, - 0.003723; 0.129246; 0.991577;, - 0.024842; 0.582629; 0.812342;, - 0.021027; 0.582507; 0.812525;, - 0.003723; 0.129246; 0.991577;, - 0.003723; 0.129246; 0.991577;, - 0.000763; 0.126926; 0.991882;, - 0.024842; 0.582629; 0.812342;, - 0.000763; 0.126926; 0.991882;, - 0.003723; 0.129246; 0.991577;, - 0.000092; 0.089145; 0.996002;, - -0.041902; 0.649312; 0.759331;, - 0.024842; 0.582629; 0.812342;, - 0.000763; 0.126926; 0.991882;, - 0.003296;-0.132633; 0.991150;, - 0.018403;-0.582965; 0.812250;, - 0.003357;-0.130650; 0.991394;, - 0.003357;-0.130650; 0.991394;, - 0.000946;-0.090548; 0.995880;, - 0.003296;-0.132633; 0.991150;, - 0.000946;-0.090548; 0.995880;, - 0.003357;-0.130650; 0.991394;, - 0.000061;-0.089816; 0.995941;, - 0.001648;-0.091281; 0.995819;, - 0.003296;-0.132633; 0.991150;, - 0.000946;-0.090548; 0.995880;, - 0.003357;-0.130650; 0.991394;, - 0.018403;-0.582965; 0.812250;, - 0.022004;-0.583117; 0.812067;, - 0.022004;-0.583117; 0.812067;, - 0.000610;-0.128513; 0.991699;, - 0.003357;-0.130650; 0.991394;, - 0.000610;-0.128513; 0.991699;, - 0.022004;-0.583117; 0.812067;, - -0.059114;-0.669851; 0.740104;, - 0.000061;-0.089816; 0.995941;, - 0.003357;-0.130650; 0.991394;, - 0.000610;-0.128513; 0.991699;, - 0.000275; 0.048708; 0.998810;, - 0.000061; 0.000000; 1.000000;, - 0.000000; 0.000000; 1.000000;, - 0.000000; 0.000000; 1.000000;, - 0.000275; 0.048616; 0.998810;, - 0.000275; 0.048708; 0.998810;, - 0.000275; 0.048616; 0.998810;, - 0.000000; 0.000000; 1.000000;, - 0.000000; 0.000000; 0.999969;, - 0.001831; 0.090762; 0.995849;, - 0.000275; 0.048708; 0.998810;, - 0.000275; 0.048616; 0.998810;, - 0.001038; 0.089938; 0.995941;, - 0.001831; 0.090762; 0.995849;, - 0.000275; 0.048616; 0.998810;, - 0.000275; 0.048616; 0.998810;, - 0.000122; 0.048555; 0.998810;, - 0.001038; 0.089938; 0.995941;, - 0.000122; 0.048555; 0.998810;, - 0.000275; 0.048616; 0.998810;, - 0.000000; 0.000000; 0.999969;, - 0.000092; 0.089145; 0.996002;, - 0.001038; 0.089938; 0.995941;, - 0.000122; 0.048555; 0.998810;, - 0.000244;-0.048708; 0.998810;, - 0.001648;-0.091281; 0.995819;, - 0.000244;-0.048616; 0.998810;, - 0.000244;-0.048616; 0.998810;, - 0.000000; 0.000000; 1.000000;, - 0.000244;-0.048708; 0.998810;, - 0.000000; 0.000000; 1.000000;, - 0.000244;-0.048616; 0.998810;, - 0.000000; 0.000000; 0.999969;, - 0.000061; 0.000000; 1.000000;, - 0.000244;-0.048708; 0.998810;, - 0.000000; 0.000000; 1.000000;, - 0.000244;-0.048616; 0.998810;, - 0.001648;-0.091281; 0.995819;, - 0.000946;-0.090548; 0.995880;, - 0.000946;-0.090548; 0.995880;, - 0.000122;-0.048555; 0.998810;, - 0.000244;-0.048616; 0.998810;, - 0.000122;-0.048555; 0.998810;, - 0.000946;-0.090548; 0.995880;, - 0.000061;-0.089816; 0.995941;, - 0.000000; 0.000000; 0.999969;, - 0.000244;-0.048616; 0.998810;, - 0.000122;-0.048555; 0.998810;, - 0.350078; 0.201697; 0.914731;, - 0.394147; 0.116214; 0.911649;, - 0.001099; 0.094028; 0.995544;, - 0.001099; 0.094028; 0.995544;, - 0.003723; 0.135411; 0.990753;, - 0.350078; 0.201697; 0.914731;, - 0.003723; 0.135411; 0.990753;, - 0.001099; 0.094028; 0.995544;, - 0.001831; 0.090762; 0.995849;, - 0.251717; 0.521134; 0.815485;, - 0.350078; 0.201697; 0.914731;, - 0.003723; 0.135411; 0.990753;, - 0.024262; 0.573229; 0.819025;, - 0.251717; 0.521134; 0.815485;, - 0.003723; 0.135411; 0.990753;, - 0.003723; 0.135411; 0.990753;, - 0.003693; 0.131413; 0.991302;, - 0.024262; 0.573229; 0.819025;, - 0.003693; 0.131413; 0.991302;, - 0.003723; 0.135411; 0.990753;, - 0.001831; 0.090762; 0.995849;, - 0.021027; 0.582507; 0.812525;, - 0.024262; 0.573229; 0.819025;, - 0.003693; 0.131413; 0.991302;, - 0.355541;-0.203192; 0.912290;, - 0.254891;-0.521775; 0.814081;, - 0.003327;-0.136235; 0.990661;, - 0.003327;-0.136235; 0.990661;, - 0.000977;-0.094241; 0.995544;, - 0.355541;-0.203192; 0.912290;, - 0.000977;-0.094241; 0.995544;, - 0.003327;-0.136235; 0.990661;, - 0.001648;-0.091281; 0.995819;, - 0.397900;-0.118717; 0.909696;, - 0.355541;-0.203192; 0.912290;, - 0.000977;-0.094241; 0.995544;, - 0.003327;-0.136235; 0.990661;, - 0.254891;-0.521775; 0.814081;, - 0.021455;-0.574175; 0.818415;, - 0.021455;-0.574175; 0.818415;, - 0.003296;-0.132633; 0.991150;, - 0.003327;-0.136235; 0.990661;, - 0.003296;-0.132633; 0.991150;, - 0.021455;-0.574175; 0.818415;, - 0.018403;-0.582965; 0.812250;, - 0.001648;-0.091281; 0.995819;, - 0.003327;-0.136235; 0.990661;, - 0.003296;-0.132633; 0.991150;, - 0.411451; 0.065096; 0.909085;, - 0.418409; 0.000031; 0.908231;, - 0.000000; 0.000000; 1.000000;, - 0.000000; 0.000000; 1.000000;, - 0.000275; 0.048860; 0.998779;, - 0.411451; 0.065096; 0.909085;, - 0.000275; 0.048860; 0.998779;, - 0.000000; 0.000000; 1.000000;, - 0.000061; 0.000000; 1.000000;, - 0.394147; 0.116214; 0.911649;, - 0.411451; 0.065096; 0.909085;, - 0.000275; 0.048860; 0.998779;, - 0.001099; 0.094028; 0.995544;, - 0.394147; 0.116214; 0.911649;, - 0.000275; 0.048860; 0.998779;, - 0.000275; 0.048860; 0.998779;, - 0.000275; 0.048708; 0.998810;, - 0.001099; 0.094028; 0.995544;, - 0.000275; 0.048708; 0.998810;, - 0.000275; 0.048860; 0.998779;, - 0.000061; 0.000000; 1.000000;, - 0.001831; 0.090762; 0.995849;, - 0.001099; 0.094028; 0.995544;, - 0.000275; 0.048708; 0.998810;, - 0.411451;-0.065004; 0.909085;, - 0.397900;-0.118717; 0.909696;, - 0.000244;-0.048830; 0.998779;, - 0.000244;-0.048830; 0.998779;, - 0.000000; 0.000000; 1.000000;, - 0.411451;-0.065004; 0.909085;, - 0.000000; 0.000000; 1.000000;, - 0.000244;-0.048830; 0.998779;, - 0.000061; 0.000000; 1.000000;, - 0.418409; 0.000031; 0.908231;, - 0.411451;-0.065004; 0.909085;, - 0.000000; 0.000000; 1.000000;, - 0.000244;-0.048830; 0.998779;, - 0.397900;-0.118717; 0.909696;, - 0.000977;-0.094241; 0.995544;, - 0.000977;-0.094241; 0.995544;, - 0.000244;-0.048708; 0.998810;, - 0.000244;-0.048830; 0.998779;, - 0.000244;-0.048708; 0.998810;, - 0.000977;-0.094241; 0.995544;, - 0.001648;-0.091281; 0.995819;, - 0.000061; 0.000000; 1.000000;, - 0.000244;-0.048830; 0.998779;, - 0.000244;-0.048708; 0.998810;, - 0.359508; 0.019471; 0.932920;, - 0.365581; 0.023957; 0.930448;, - 0.671926; 0.137974; 0.727622;, - 0.671926; 0.137974; 0.727622;, - 0.415662; 0.564440; 0.713157;, - 0.359508; 0.019471; 0.932920;, - 0.415662; 0.564440; 0.713157;, - 0.671926; 0.137974; 0.727622;, - 0.251717; 0.521134; 0.815485;, - 0.137822; 0.295846; 0.945219;, - 0.359508; 0.019471; 0.932920;, - 0.415662; 0.564440; 0.713157;, - 0.671926; 0.137974; 0.727622;, - 0.365581; 0.023957; 0.930448;, - 0.692282; 0.129368; 0.709891;, - 0.692282; 0.129368; 0.709891;, - 0.350078; 0.201697; 0.914731;, - 0.671926; 0.137974; 0.727622;, - 0.350078; 0.201697; 0.914731;, - 0.692282; 0.129368; 0.709891;, - 0.394147; 0.116214; 0.911649;, - 0.251717; 0.521134; 0.815485;, - 0.671926; 0.137974; 0.727622;, - 0.350078; 0.201697; 0.914731;, - -0.146886; 0.667684; 0.729789;, - -0.108615; 0.687735; 0.717765;, - -0.025483; 0.915006; 0.402570;, - -0.025483; 0.915006; 0.402570;, - 0.008606; 0.906339; 0.422437;, - -0.146886; 0.667684; 0.729789;, - 0.008606; 0.906339; 0.422437;, - -0.025483; 0.915006; 0.402570;, - 0.021027; 0.582507; 0.812525;, - -0.099368; 0.637898; 0.763634;, - -0.146886; 0.667684; 0.729789;, - 0.008606; 0.906339; 0.422437;, - -0.076785; 0.935942; 0.343608;, - -0.099368; 0.637898; 0.763634;, - 0.008606; 0.906339; 0.422437;, - 0.008606; 0.906339; 0.422437;, - 0.024842; 0.582629; 0.812342;, - -0.076785; 0.935942; 0.343608;, - 0.024842; 0.582629; 0.812342;, - 0.008606; 0.906339; 0.422437;, - 0.021027; 0.582507; 0.812525;, - -0.041902; 0.649312; 0.759331;, - -0.076785; 0.935942; 0.343608;, - 0.024842; 0.582629; 0.812342;, - 0.366008;-0.013306; 0.930509;, - 0.138188;-0.294961; 0.945433;, - 0.424268;-0.559801; 0.711753;, - 0.424268;-0.559801; 0.711753;, - 0.682119;-0.132878; 0.719016;, - 0.366008;-0.013306; 0.930509;, - 0.682119;-0.132878; 0.719016;, - 0.424268;-0.559801; 0.711753;, - 0.254891;-0.521775; 0.814081;, - 0.374981;-0.023591; 0.926695;, - 0.366008;-0.013306; 0.930509;, - 0.682119;-0.132878; 0.719016;, - 0.699759;-0.136082; 0.701285;, - 0.374981;-0.023591; 0.926695;, - 0.682119;-0.132878; 0.719016;, - 0.682119;-0.132878; 0.719016;, - 0.355541;-0.203192; 0.912290;, - 0.699759;-0.136082; 0.701285;, - 0.355541;-0.203192; 0.912290;, - 0.682119;-0.132878; 0.719016;, - 0.254891;-0.521775; 0.814081;, - 0.397900;-0.118717; 0.909696;, - 0.699759;-0.136082; 0.701285;, - 0.355541;-0.203192; 0.912290;, - -0.149693;-0.667257; 0.729576;, - -0.113651;-0.630818; 0.767541;, - 0.005097;-0.905911; 0.423414;, - 0.005097;-0.905911; 0.423414;, - -0.027436;-0.914060; 0.404584;, - -0.149693;-0.667257; 0.729576;, - -0.027436;-0.914060; 0.404584;, - 0.005097;-0.905911; 0.423414;, - 0.018403;-0.582965; 0.812250;, - -0.111026;-0.686911; 0.718162;, - -0.149693;-0.667257; 0.729576;, - -0.027436;-0.914060; 0.404584;, - 0.005097;-0.905911; 0.423414;, - -0.113651;-0.630818; 0.767541;, - -0.181463;-0.950133; 0.253517;, - -0.181463;-0.950133; 0.253517;, - 0.022004;-0.583117; 0.812067;, - 0.005097;-0.905911; 0.423414;, - 0.022004;-0.583117; 0.812067;, - -0.181463;-0.950133; 0.253517;, - -0.059114;-0.669851; 0.740104;, - 0.018403;-0.582965; 0.812250;, - 0.005097;-0.905911; 0.423414;, - 0.022004;-0.583117; 0.812067;, - 0.382824; 0.010163; 0.923734;, - 0.384655;-0.001617; 0.923032;, - 0.736625; 0.044435; 0.674795;, - 0.736625; 0.044435; 0.674795;, - 0.692282; 0.129368; 0.709891;, - 0.382824; 0.010163; 0.923734;, - 0.692282; 0.129368; 0.709891;, - 0.736625; 0.044435; 0.674795;, - 0.394147; 0.116214; 0.911649;, - 0.365581; 0.023957; 0.930448;, - 0.382824; 0.010163; 0.923734;, - 0.692282; 0.129368; 0.709891;, - 0.736625; 0.044435; 0.674795;, - 0.384655;-0.001617; 0.923032;, - 0.751640; 0.000031; 0.659536;, - 0.751640; 0.000031; 0.659536;, - 0.411451; 0.065096; 0.909085;, - 0.736625; 0.044435; 0.674795;, - 0.411451; 0.065096; 0.909085;, - 0.751640; 0.000031; 0.659536;, - 0.418409; 0.000031; 0.908231;, - 0.394147; 0.116214; 0.911649;, - 0.736625; 0.044435; 0.674795;, - 0.411451; 0.065096; 0.909085;, - 0.387677;-0.016633; 0.921628;, - 0.374981;-0.023591; 0.926695;, - 0.699759;-0.136082; 0.701285;, - 0.699759;-0.136082; 0.701285;, - 0.739891;-0.050417; 0.670797;, - 0.387677;-0.016633; 0.921628;, - 0.739891;-0.050417; 0.670797;, - 0.699759;-0.136082; 0.701285;, - 0.397900;-0.118717; 0.909696;, - 0.384655;-0.001617; 0.923032;, - 0.387677;-0.016633; 0.921628;, - 0.739891;-0.050417; 0.670797;, - 0.751640; 0.000031; 0.659536;, - 0.384655;-0.001617; 0.923032;, - 0.739891;-0.050417; 0.670797;, - 0.739891;-0.050417; 0.670797;, - 0.411451;-0.065004; 0.909085;, - 0.751640; 0.000031; 0.659536;, - 0.411451;-0.065004; 0.909085;, - 0.739891;-0.050417; 0.670797;, - 0.397900;-0.118717; 0.909696;, - 0.418409; 0.000031; 0.908231;, - 0.751640; 0.000031; 0.659536;, - 0.411451;-0.065004; 0.909085;, - 0.008423; 0.661122; 0.750206;, - 0.137822; 0.295846; 0.945219;, - 0.415662; 0.564440; 0.713157;, - 0.415662; 0.564440; 0.713157;, - 0.019257; 0.890133; 0.455245;, - 0.008423; 0.661122; 0.750206;, - 0.019257; 0.890133; 0.455245;, - 0.415662; 0.564440; 0.713157;, - 0.251717; 0.521134; 0.815485;, - -0.029786; 0.677633; 0.734764;, - 0.008423; 0.661122; 0.750206;, - 0.019257; 0.890133; 0.455245;, - 0.003418; 0.902249; 0.431135;, - -0.029786; 0.677633; 0.734764;, - 0.019257; 0.890133; 0.455245;, - 0.019257; 0.890133; 0.455245;, - 0.024262; 0.573229; 0.819025;, - 0.003418; 0.902249; 0.431135;, - 0.024262; 0.573229; 0.819025;, - 0.019257; 0.890133; 0.455245;, - 0.251717; 0.521134; 0.815485;, - 0.021027; 0.582507; 0.812525;, - 0.003418; 0.902249; 0.431135;, - 0.024262; 0.573229; 0.819025;, - 0.008698;-0.660360; 0.750877;, - -0.031343;-0.677633; 0.734703;, - 0.017090;-0.890103; 0.455428;, - 0.017090;-0.890103; 0.455428;, - 0.424268;-0.559801; 0.711753;, - 0.008698;-0.660360; 0.750877;, - 0.424268;-0.559801; 0.711753;, - 0.017090;-0.890103; 0.455428;, - 0.254891;-0.521775; 0.814081;, - 0.138188;-0.294961; 0.945433;, - 0.008698;-0.660360; 0.750877;, - 0.424268;-0.559801; 0.711753;, - 0.017090;-0.890103; 0.455428;, - -0.031343;-0.677633; 0.734703;, - 0.000580;-0.901852; 0.431959;, - 0.000580;-0.901852; 0.431959;, - 0.021455;-0.574175; 0.818415;, - 0.017090;-0.890103; 0.455428;, - 0.021455;-0.574175; 0.818415;, - 0.000580;-0.901852; 0.431959;, - 0.018403;-0.582965; 0.812250;, - 0.254891;-0.521775; 0.814081;, - 0.017090;-0.890103; 0.455428;, - 0.021455;-0.574175; 0.818415;, - -0.116276; 0.012909; 0.993103;, - -0.040742; 0.106571; 0.993439;, - -0.695425; 0.236183; 0.678610;, - -0.695425; 0.236183; 0.678610;, - -0.747795; 0.120670; 0.652852;, - -0.116276; 0.012909; 0.993103;, - -0.747795; 0.120670; 0.652852;, - -0.695425; 0.236183; 0.678610;, - -0.416150; 0.187567; 0.889706;, - -0.124851; 0.013398; 0.992065;, - -0.116276; 0.012909; 0.993103;, - -0.747795; 0.120670; 0.652852;, - -0.757805; 0.109867; 0.643117;, - -0.124851; 0.013398; 0.992065;, - -0.747795; 0.120670; 0.652852;, - -0.747795; 0.120670; 0.652852;, - -0.340648; 0.121097; 0.932340;, - -0.757805; 0.109867; 0.643117;, - -0.340648; 0.121097; 0.932340;, - -0.747795; 0.120670; 0.652852;, - -0.416150; 0.187567; 0.889706;, - -0.361919; 0.093814; 0.927458;, - -0.757805; 0.109867; 0.643117;, - -0.340648; 0.121097; 0.932340;, - -0.143376; 0.011475; 0.989593;, - -0.124851; 0.013398; 0.992065;, - -0.757805; 0.109867; 0.643117;, - -0.757805; 0.109867; 0.643117;, - -0.770348; 0.070772; 0.633656;, - -0.143376; 0.011475; 0.989593;, - -0.770348; 0.070772; 0.633656;, - -0.757805; 0.109867; 0.643117;, - -0.361919; 0.093814; 0.927458;, - -0.121403;-0.000061; 0.992584;, - -0.143376; 0.011475; 0.989593;, - -0.770348; 0.070772; 0.633656;, - -0.775445;-0.000916; 0.631367;, - -0.121403;-0.000061; 0.992584;, - -0.770348; 0.070772; 0.633656;, - -0.770348; 0.070772; 0.633656;, - -0.447249; 0.062227; 0.892209;, - -0.775445;-0.000916; 0.631367;, - -0.447249; 0.062227; 0.892209;, - -0.770348; 0.070772; 0.633656;, - -0.361919; 0.093814; 0.927458;, - -0.458357;-0.005463; 0.888730;, - -0.775445;-0.000916; 0.631367;, - -0.447249; 0.062227; 0.892209;, - -0.142796;-0.011658; 0.989654;, - -0.121403;-0.000061; 0.992584;, - -0.770012;-0.072298; 0.633869;, - -0.770012;-0.072298; 0.633869;, - -0.757408;-0.110630; 0.643483;, - -0.142796;-0.011658; 0.989654;, - -0.757408;-0.110630; 0.643483;, - -0.770012;-0.072298; 0.633869;, - -0.384869;-0.079257; 0.919553;, - -0.124912;-0.013520; 0.992065;, - -0.142796;-0.011658; 0.989654;, - -0.757408;-0.110630; 0.643483;, - -0.770012;-0.072298; 0.633869;, - -0.121403;-0.000061; 0.992584;, - -0.775445;-0.000916; 0.631367;, - -0.775445;-0.000916; 0.631367;, - -0.382611;-0.059389; 0.921964;, - -0.770012;-0.072298; 0.633869;, - -0.382611;-0.059389; 0.921964;, - -0.775445;-0.000916; 0.631367;, - -0.458357;-0.005463; 0.888730;, - -0.384869;-0.079257; 0.919553;, - -0.770012;-0.072298; 0.633869;, - -0.382611;-0.059389; 0.921964;, - -0.116398;-0.012909; 0.993103;, - -0.124912;-0.013520; 0.992065;, - -0.747612;-0.120762; 0.653035;, - -0.747612;-0.120762; 0.653035;, - -0.695029;-0.237037; 0.678732;, - -0.116398;-0.012909; 0.993103;, - -0.695029;-0.237037; 0.678732;, - -0.747612;-0.120762; 0.653035;, - -0.421277;-0.197668; 0.885098;, - -0.040559;-0.106632; 0.993439;, - -0.116398;-0.012909; 0.993103;, - -0.695029;-0.237037; 0.678732;, - -0.747612;-0.120762; 0.653035;, - -0.124912;-0.013520; 0.992065;, - -0.757408;-0.110630; 0.643483;, - -0.757408;-0.110630; 0.643483;, - -0.423536;-0.130802; 0.896359;, - -0.747612;-0.120762; 0.653035;, - -0.423536;-0.130802; 0.896359;, - -0.757408;-0.110630; 0.643483;, - -0.384869;-0.079257; 0.919553;, - -0.421277;-0.197668; 0.885098;, - -0.747612;-0.120762; 0.653035;, - -0.423536;-0.130802; 0.896359;, - -0.042970;-0.178533; 0.982971;, - -0.040559;-0.106632; 0.993439;, - -0.632557;-0.354686; 0.688498;, - -0.632557;-0.354686; 0.688498;, - -0.198614;-0.809168; 0.552934;, - -0.042970;-0.178533; 0.982971;, - -0.198614;-0.809168; 0.552934;, - -0.632557;-0.354686; 0.688498;, - -0.169805;-0.635670; 0.753014;, - -0.074862;-0.432295; 0.898587;, - -0.042970;-0.178533; 0.982971;, - -0.198614;-0.809168; 0.552934;, - -0.632557;-0.354686; 0.688498;, - -0.040559;-0.106632; 0.993439;, - -0.695029;-0.237037; 0.678732;, - -0.695029;-0.237037; 0.678732;, - -0.355358;-0.284616; 0.890316;, - -0.632557;-0.354686; 0.688498;, - -0.355358;-0.284616; 0.890316;, - -0.695029;-0.237037; 0.678732;, - -0.421277;-0.197668; 0.885098;, - -0.169805;-0.635670; 0.753014;, - -0.632557;-0.354686; 0.688498;, - -0.355358;-0.284616; 0.890316;, - -0.043184; 0.178533; 0.982971;, - -0.088198; 0.437635; 0.894803;, - -0.287606; 0.748558; 0.597400;, - -0.287606; 0.748558; 0.597400;, - -0.633259; 0.353801; 0.688284;, - -0.043184; 0.178533; 0.982971;, - -0.633259; 0.353801; 0.688284;, - -0.287606; 0.748558; 0.597400;, - -0.181982; 0.614185; 0.767846;, - -0.040742; 0.106571; 0.993439;, - -0.043184; 0.178533; 0.982971;, - -0.633259; 0.353801; 0.688284;, - -0.695425; 0.236183; 0.678610;, - -0.040742; 0.106571; 0.993439;, - -0.633259; 0.353801; 0.688284;, - -0.633259; 0.353801; 0.688284;, - -0.356029; 0.283303; 0.890469;, - -0.695425; 0.236183; 0.678610;, - -0.356029; 0.283303; 0.890469;, - -0.633259; 0.353801; 0.688284;, - -0.181982; 0.614185; 0.767846;, - -0.416150; 0.187567; 0.889706;, - -0.695425; 0.236183; 0.678610;, - -0.356029; 0.283303; 0.890469;, - -0.916776; 0.031190; 0.398083;, - -0.919187; 0.062868; 0.388714;, - -0.885678; 0.025147; 0.463546;, - -0.885678; 0.025147; 0.463546;, - -0.881252;-0.000061; 0.472640;, - -0.916776; 0.031190; 0.398083;, - -0.881252;-0.000061; 0.472640;, - -0.885678; 0.025147; 0.463546;, - -0.758446; 0.000000; 0.651692;, - -0.914335;-0.000092; 0.404920;, - -0.916776; 0.031190; 0.398083;, - -0.881252;-0.000061; 0.472640;, - -0.885678; 0.025147; 0.463546;, - -0.919187; 0.062868; 0.388714;, - -0.888974; 0.056703; 0.454360;, - -0.888974; 0.056703; 0.454360;, - -0.759392; 0.016511; 0.650410;, - -0.885678; 0.025147; 0.463546;, - -0.759392; 0.016511; 0.650410;, - -0.888974; 0.056703; 0.454360;, - -0.755089; 0.051057; 0.653584;, - -0.758446; 0.000000; 0.651692;, - -0.885678; 0.025147; 0.463546;, - -0.759392; 0.016511; 0.650410;, - -0.916868; 0.097598; 0.387066;, - -0.915555; 0.120029; 0.383831;, - -0.887783; 0.090823; 0.451186;, - -0.887783; 0.090823; 0.451186;, - -0.888974; 0.056703; 0.454360;, - -0.916868; 0.097598; 0.387066;, - -0.888974; 0.056703; 0.454360;, - -0.887783; 0.090823; 0.451186;, - -0.755089; 0.051057; 0.653584;, - -0.919187; 0.062868; 0.388714;, - -0.916868; 0.097598; 0.387066;, - -0.888974; 0.056703; 0.454360;, - -0.887783; 0.090823; 0.451186;, - -0.915555; 0.120029; 0.383831;, - -0.886532; 0.117191; 0.447554;, - -0.886532; 0.117191; 0.447554;, - -0.745903; 0.074221; 0.661885;, - -0.887783; 0.090823; 0.451186;, - -0.745903; 0.074221; 0.661885;, - -0.886532; 0.117191; 0.447554;, - -0.740501; 0.101444; 0.664327;, - -0.755089; 0.051057; 0.653584;, - -0.887783; 0.090823; 0.451186;, - -0.745903; 0.074221; 0.661885;, - -0.916745;-0.031343; 0.398175;, - -0.914335;-0.000092; 0.404920;, - -0.881252;-0.000061; 0.472640;, - -0.881252;-0.000061; 0.472640;, - -0.885739;-0.025178; 0.463454;, - -0.916745;-0.031343; 0.398175;, - -0.885739;-0.025178; 0.463454;, - -0.881252;-0.000061; 0.472640;, - -0.758446; 0.000000; 0.651692;, - -0.919279;-0.062716; 0.388562;, - -0.916745;-0.031343; 0.398175;, - -0.885739;-0.025178; 0.463454;, - -0.889157;-0.056459; 0.454024;, - -0.919279;-0.062716; 0.388562;, - -0.885739;-0.025178; 0.463454;, - -0.885739;-0.025178; 0.463454;, - -0.759545;-0.016449; 0.650227;, - -0.889157;-0.056459; 0.454024;, - -0.759545;-0.016449; 0.650227;, - -0.885739;-0.025178; 0.463454;, - -0.758446; 0.000000; 0.651692;, - -0.755242;-0.050935; 0.653432;, - -0.889157;-0.056459; 0.454024;, - -0.759545;-0.016449; 0.650227;, - -0.916959;-0.097201; 0.386914;, - -0.919279;-0.062716; 0.388562;, - -0.889157;-0.056459; 0.454024;, - -0.889157;-0.056459; 0.454024;, - -0.887875;-0.090579; 0.451033;, - -0.916959;-0.097201; 0.386914;, - -0.887875;-0.090579; 0.451033;, - -0.889157;-0.056459; 0.454024;, - -0.755242;-0.050935; 0.653432;, - -0.915555;-0.119877; 0.383831;, - -0.916959;-0.097201; 0.386914;, - -0.887875;-0.090579; 0.451033;, - -0.886502;-0.117130; 0.447584;, - -0.915555;-0.119877; 0.383831;, - -0.887875;-0.090579; 0.451033;, - -0.887875;-0.090579; 0.451033;, - -0.745933;-0.074190; 0.661855;, - -0.886502;-0.117130; 0.447584;, - -0.745933;-0.074190; 0.661855;, - -0.887875;-0.090579; 0.451033;, - -0.755242;-0.050935; 0.653432;, - -0.740562;-0.101413; 0.664266;, - -0.886502;-0.117130; 0.447584;, - -0.745933;-0.074190; 0.661855;, - -0.572100; 0.026734; 0.819727;, - -0.569201; 0.037324; 0.821314;, - -0.942900; 0.036592; 0.331004;, - -0.942900; 0.036592; 0.331004;, - -0.940001;-0.000031; 0.341136;, - -0.572100; 0.026734; 0.819727;, - -0.940001;-0.000031; 0.341136;, - -0.942900; 0.036592; 0.331004;, - -0.914335;-0.000092; 0.404920;, - -0.562334;-0.000153; 0.826868;, - -0.572100; 0.026734; 0.819727;, - -0.940001;-0.000031; 0.341136;, - -0.942900; 0.036592; 0.331004;, - -0.569201; 0.037324; 0.821314;, - -0.944975; 0.066836; 0.320231;, - -0.944975; 0.066836; 0.320231;, - -0.916776; 0.031190; 0.398083;, - -0.942900; 0.036592; 0.331004;, - -0.916776; 0.031190; 0.398083;, - -0.944975; 0.066836; 0.320231;, - -0.919187; 0.062868; 0.388714;, - -0.914335;-0.000092; 0.404920;, - -0.942900; 0.036592; 0.331004;, - -0.916776; 0.031190; 0.398083;, - -0.579089; 0.054994; 0.813379;, - -0.582629; 0.078127; 0.808954;, - -0.942381; 0.101505; 0.318766;, - -0.942381; 0.101505; 0.318766;, - -0.944975; 0.066836; 0.320231;, - -0.579089; 0.054994; 0.813379;, - -0.944975; 0.066836; 0.320231;, - -0.942381; 0.101505; 0.318766;, - -0.919187; 0.062868; 0.388714;, - -0.569201; 0.037324; 0.821314;, - -0.579089; 0.054994; 0.813379;, - -0.944975; 0.066836; 0.320231;, - -0.942381; 0.101505; 0.318766;, - -0.582629; 0.078127; 0.808954;, - -0.939482; 0.128208; 0.317606;, - -0.939482; 0.128208; 0.317606;, - -0.916868; 0.097598; 0.387066;, - -0.942381; 0.101505; 0.318766;, - -0.916868; 0.097598; 0.387066;, - -0.939482; 0.128208; 0.317606;, - -0.915555; 0.120029; 0.383831;, - -0.919187; 0.062868; 0.388714;, - -0.942381; 0.101505; 0.318766;, - -0.916868; 0.097598; 0.387066;, - -0.572100;-0.027070; 0.819727;, - -0.562334;-0.000153; 0.826868;, - -0.940001;-0.000031; 0.341136;, - -0.940001;-0.000031; 0.341136;, - -0.942900;-0.036683; 0.331004;, - -0.572100;-0.027070; 0.819727;, - -0.942900;-0.036683; 0.331004;, - -0.940001;-0.000031; 0.341136;, - -0.914335;-0.000092; 0.404920;, - -0.569079;-0.037080; 0.821406;, - -0.572100;-0.027070; 0.819727;, - -0.942900;-0.036683; 0.331004;, - -0.944975;-0.066713; 0.320200;, - -0.569079;-0.037080; 0.821406;, - -0.942900;-0.036683; 0.331004;, - -0.942900;-0.036683; 0.331004;, - -0.916745;-0.031343; 0.398175;, - -0.944975;-0.066713; 0.320200;, - -0.916745;-0.031343; 0.398175;, - -0.942900;-0.036683; 0.331004;, - -0.914335;-0.000092; 0.404920;, - -0.919279;-0.062716; 0.388562;, - -0.944975;-0.066713; 0.320200;, - -0.916745;-0.031343; 0.398175;, - -0.579119;-0.054231; 0.813410;, - -0.569079;-0.037080; 0.821406;, - -0.944975;-0.066713; 0.320200;, - -0.944975;-0.066713; 0.320200;, - -0.942412;-0.101138; 0.318766;, - -0.579119;-0.054231; 0.813410;, - -0.942412;-0.101138; 0.318766;, - -0.944975;-0.066713; 0.320200;, - -0.919279;-0.062716; 0.388562;, - -0.583087;-0.077792; 0.808649;, - -0.579119;-0.054231; 0.813410;, - -0.942412;-0.101138; 0.318766;, - -0.939512;-0.128056; 0.317637;, - -0.583087;-0.077792; 0.808649;, - -0.942412;-0.101138; 0.318766;, - -0.942412;-0.101138; 0.318766;, - -0.916959;-0.097201; 0.386914;, - -0.939512;-0.128056; 0.317637;, - -0.916959;-0.097201; 0.386914;, - -0.942412;-0.101138; 0.318766;, - -0.919279;-0.062716; 0.388562;, - -0.915555;-0.119877; 0.383831;, - -0.939512;-0.128056; 0.317637;, - -0.916959;-0.097201; 0.386914;, - -0.935301; 0.208777;-0.285653;, - -0.959746; 0.213904; 0.181860;, - -0.941679; 0.143315;-0.304361;, - -0.941679; 0.143315;-0.304361;, - -0.585131; 0.082553;-0.806696;, - -0.935301; 0.208777;-0.285653;, - -0.585131; 0.082553;-0.806696;, - -0.941679; 0.143315;-0.304361;, - -0.588397; 0.059389;-0.806360;, - -0.594043; 0.115238;-0.796106;, - -0.935301; 0.208777;-0.285653;, - -0.585131; 0.082553;-0.806696;, - -0.941679; 0.143315;-0.304361;, - -0.959746; 0.213904; 0.181860;, - -0.973662; 0.153569; 0.168432;, - -0.973662; 0.153569; 0.168432;, - -0.941893; 0.097629;-0.321390;, - -0.941679; 0.143315;-0.304361;, - -0.941893; 0.097629;-0.321390;, - -0.973662; 0.153569; 0.168432;, - -0.981506; 0.099155; 0.163701;, - -0.588397; 0.059389;-0.806360;, - -0.941679; 0.143315;-0.304361;, - -0.941893; 0.097629;-0.321390;, - -0.766961; 0.175817; 0.617115;, - -0.443464; 0.104526; 0.890133;, - -0.440992; 0.065859; 0.895077;, - -0.440992; 0.065859; 0.895077;, - -0.776177; 0.117557; 0.619434;, - -0.766961; 0.175817; 0.617115;, - -0.776177; 0.117557; 0.619434;, - -0.440992; 0.065859; 0.895077;, - -0.446181; 0.044160; 0.893826;, - -0.959746; 0.213904; 0.181860;, - -0.766961; 0.175817; 0.617115;, - -0.776177; 0.117557; 0.619434;, - -0.973662; 0.153569; 0.168432;, - -0.959746; 0.213904; 0.181860;, - -0.776177; 0.117557; 0.619434;, - -0.776177; 0.117557; 0.619434;, - -0.782128; 0.078738; 0.618091;, - -0.973662; 0.153569; 0.168432;, - -0.782128; 0.078738; 0.618091;, - -0.776177; 0.117557; 0.619434;, - -0.446181; 0.044160; 0.893826;, - -0.981506; 0.099155; 0.163701;, - -0.973662; 0.153569; 0.168432;, - -0.782128; 0.078738; 0.618091;, - 0.013306; 0.000092; 0.999908;, - 0.017365; 0.170385; 0.985198;, - 0.050111; 0.186499; 0.981170;, - 0.050111; 0.186499; 0.981170;, - 0.046358; 0.002350; 0.998901;, - 0.013306; 0.000092; 0.999908;, - 0.046358; 0.002350; 0.998901;, - 0.050111; 0.186499; 0.981170;, - 0.050630; 0.209387; 0.976501;, - 0.012116; 0.000641; 0.999908;, - 0.013306; 0.000092; 0.999908;, - 0.046358; 0.002350; 0.998901;, - 0.044130; 0.002380; 0.998993;, - 0.012116; 0.000641; 0.999908;, - 0.046358; 0.002350; 0.998901;, - 0.046358; 0.002350; 0.998901;, - -0.024506;-0.002899; 0.999695;, - 0.044130; 0.002380; 0.998993;, - -0.024506;-0.002899; 0.999695;, - 0.046358; 0.002350; 0.998901;, - 0.050630; 0.209387; 0.976501;, - -0.032594;-0.001709; 0.999451;, - 0.044130; 0.002380; 0.998993;, - -0.024506;-0.002899; 0.999695;, - 0.843593; 0.172979; 0.508316;, - 0.425550; 0.320658; 0.846187;, - 0.664785; 0.375988; 0.645466;, - 0.664785; 0.375988; 0.645466;, - 0.712760; 0.152562; 0.684561;, - 0.843593; 0.172979; 0.508316;, - 0.712760; 0.152562; 0.684561;, - 0.664785; 0.375988; 0.645466;, - 0.875118; 0.381512; 0.297617;, - 0.579913; 0.066897; 0.811884;, - 0.843593; 0.172979; 0.508316;, - 0.712760; 0.152562; 0.684561;, - 0.693381; 0.092898; 0.714530;, - 0.579913; 0.066897; 0.811884;, - 0.712760; 0.152562; 0.684561;, - 0.712760; 0.152562; 0.684561;, - 0.938810; 0.210028; 0.272896;, - 0.693381; 0.092898; 0.714530;, - 0.938810; 0.210028; 0.272896;, - 0.712760; 0.152562; 0.684561;, - 0.875118; 0.381512; 0.297617;, - 0.955138; 0.125248; 0.268288;, - 0.693381; 0.092898; 0.714530;, - 0.938810; 0.210028; 0.272896;, - 0.926023; 0.350871;-0.139042;, - 0.930174; 0.365612;-0.032807;, - 0.979888; 0.194311;-0.045198;, - 0.979888; 0.194311;-0.045198;, - 0.958373; 0.202124;-0.201514;, - 0.926023; 0.350871;-0.139042;, - 0.958373; 0.202124;-0.201514;, - 0.979888; 0.194311;-0.045198;, - 0.989502; 0.127293;-0.068300;, - 0.875118; 0.381512; 0.297617;, - 0.926023; 0.350871;-0.139042;, - 0.958373; 0.202124;-0.201514;, - 0.938810; 0.210028; 0.272896;, - 0.875118; 0.381512; 0.297617;, - 0.958373; 0.202124;-0.201514;, - 0.958373; 0.202124;-0.201514;, - 0.962920; 0.129398;-0.236641;, - 0.938810; 0.210028; 0.272896;, - 0.962920; 0.129398;-0.236641;, - 0.958373; 0.202124;-0.201514;, - 0.989502; 0.127293;-0.068300;, - 0.955138; 0.125248; 0.268288;, - 0.938810; 0.210028; 0.272896;, - 0.962920; 0.129398;-0.236641;, - 0.851100; 0.191443;-0.488815;, - 0.831721; 0.342448;-0.436964;, - 0.490555; 0.106204;-0.864895;, - 0.490555; 0.106204;-0.864895;, - 0.455458; 0.061953;-0.888058;, - 0.851100; 0.191443;-0.488815;, - 0.455458; 0.061953;-0.888058;, - 0.490555; 0.106204;-0.864895;, - 0.296152; 0.040681;-0.954253;, - 0.870022; 0.116337;-0.479019;, - 0.851100; 0.191443;-0.488815;, - 0.455458; 0.061953;-0.888058;, - 0.490555; 0.106204;-0.864895;, - 0.831721; 0.342448;-0.436964;, - 0.518174; 0.227210;-0.824519;, - 0.518174; 0.227210;-0.824519;, - 0.326060; 0.068209;-0.942869;, - 0.490555; 0.106204;-0.864895;, - 0.326060; 0.068209;-0.942869;, - 0.518174; 0.227210;-0.824519;, - 0.354961; 0.161992;-0.920713;, - 0.296152; 0.040681;-0.954253;, - 0.490555; 0.106204;-0.864895;, - 0.326060; 0.068209;-0.942869;, - 0.132603; 0.046449;-0.990051;, - 0.084201; 0.029542;-0.996002;, - 0.074557; 0.009583;-0.997162;, - 0.074557; 0.009583;-0.997162;, - 0.120396; 0.019868;-0.992523;, - 0.132603; 0.046449;-0.990051;, - 0.120396; 0.019868;-0.992523;, - 0.074557; 0.009583;-0.997162;, - 0.065706; 0.007263;-0.997803;, - 0.354961; 0.161992;-0.920713;, - 0.132603; 0.046449;-0.990051;, - 0.120396; 0.019868;-0.992523;, - 0.326060; 0.068209;-0.942869;, - 0.354961; 0.161992;-0.920713;, - 0.120396; 0.019868;-0.992523;, - 0.120396; 0.019868;-0.992523;, - 0.108921; 0.013184;-0.993957;, - 0.326060; 0.068209;-0.942869;, - 0.108921; 0.013184;-0.993957;, - 0.120396; 0.019868;-0.992523;, - 0.065706; 0.007263;-0.997803;, - 0.296152; 0.040681;-0.954253;, - 0.326060; 0.068209;-0.942869;, - 0.108921; 0.013184;-0.993957;, - -0.260506; 0.000000;-0.965453;, - -0.267464; 0.034028;-0.962951;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.260506; 0.000000;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.260445;-0.000031;-0.965453;, - -0.260506; 0.000000;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.267464; 0.034028;-0.962951;, - -0.505356; 0.043794;-0.861782;, - -0.505356; 0.043794;-0.861782;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.505356; 0.043794;-0.861782;, - -0.861538; 0.057344;-0.504410;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.861538; 0.057344;-0.504410;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.861538; 0.057344;-0.504410;, - -0.997803; 0.059603;-0.028352;, - -0.997803; 0.059603;-0.028352;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.997803; 0.059603;-0.028352;, - -0.974425; 0.042665;-0.220588;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.974425; 0.042665;-0.220588;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.922513; 0.021607;-0.385327;, - -0.746361; 0.000000;-0.665517;, - -0.922513; 0.021607;-0.385327;, - -0.923002; 0.000000;-0.384747;, - -0.974425; 0.042665;-0.220588;, - -0.732109;-0.014649;-0.680990;, - -0.746361; 0.000000;-0.665517;, - -0.922513; 0.021607;-0.385327;, - -0.263710; 0.000000;-0.964568;, - -0.251503;-0.075289;-0.964904;, - -0.024293;-0.092044;-0.995453;, - -0.024293;-0.092044;-0.995453;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024293;-0.092044;-0.995453;, - 0.233406;-0.103580;-0.966826;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - 0.229225; 0.000000;-0.973357;, - -0.024415; 0.000000;-0.999695;, - 0.229225; 0.000000;-0.973357;, - -0.024415; 0.000000;-0.999695;, - 0.233406;-0.103580;-0.966826;, - 0.218482;-0.002380;-0.975829;, - -0.024415; 0.000000;-0.999695;, - 0.229225; 0.000000;-0.973357;, - 0.229225; 0.000000;-0.973357;, - 0.233406;-0.103580;-0.966826;, - 0.466720;-0.106174;-0.877987;, - 0.466720;-0.106174;-0.877987;, - 0.456465;-0.006592;-0.889706;, - 0.229225; 0.000000;-0.973357;, - 0.456465;-0.006592;-0.889706;, - 0.466720;-0.106174;-0.877987;, - 0.711600;-0.118748;-0.692465;, - 0.218482;-0.002380;-0.975829;, - 0.229225; 0.000000;-0.973357;, - 0.456465;-0.006592;-0.889706;, - 0.444868;-0.006592;-0.895535;, - 0.218482;-0.002380;-0.975829;, - 0.456465;-0.006592;-0.889706;, - 0.456465;-0.006592;-0.889706;, - 0.708243;-0.021027;-0.705618;, - 0.444868;-0.006592;-0.895535;, - 0.708243;-0.021027;-0.705618;, - 0.456465;-0.006592;-0.889706;, - 0.711600;-0.118748;-0.692465;, - 0.697134;-0.016602;-0.716727;, - 0.444868;-0.006592;-0.895535;, - 0.708243;-0.021027;-0.705618;, - 0.708243;-0.021027;-0.705618;, - 0.711600;-0.118748;-0.692465;, - 0.891842;-0.122105;-0.435499;, - 0.891842;-0.122105;-0.435499;, - 0.887967;-0.036134;-0.458449;, - 0.708243;-0.021027;-0.705618;, - 0.887967;-0.036134;-0.458449;, - 0.891842;-0.122105;-0.435499;, - 0.958464;-0.128574;-0.254524;, - 0.697134;-0.016602;-0.716727;, - 0.708243;-0.021027;-0.705618;, - 0.887967;-0.036134;-0.458449;, - 0.879177;-0.027070;-0.475692;, - 0.697134;-0.016602;-0.716727;, - 0.887967;-0.036134;-0.458449;, - 0.887967;-0.036134;-0.458449;, - 0.960723;-0.049867;-0.272896;, - 0.879177;-0.027070;-0.475692;, - 0.960723;-0.049867;-0.272896;, - 0.887967;-0.036134;-0.458449;, - 0.958464;-0.128574;-0.254524;, - 0.960540;-0.032472;-0.276162;, - 0.879177;-0.027070;-0.475692;, - 0.960723;-0.049867;-0.272896;, - 0.960723;-0.049867;-0.272896;, - 0.958464;-0.128574;-0.254524;, - 0.989532;-0.133549;-0.054598;, - 0.989532;-0.133549;-0.054598;, - 0.996673;-0.053835;-0.060915;, - 0.960723;-0.049867;-0.272896;, - 0.996673;-0.053835;-0.060915;, - 0.989532;-0.133549;-0.054598;, - 0.673452;-0.084689;-0.734336;, - 0.960540;-0.032472;-0.276162;, - 0.960723;-0.049867;-0.272896;, - 0.996673;-0.053835;-0.060915;, - 0.997223;-0.036287;-0.064547;, - 0.960540;-0.032472;-0.276162;, - 0.996673;-0.053835;-0.060915;, - 0.996673;-0.053835;-0.060915;, - 0.694296;-0.039003;-0.718619;, - 0.997223;-0.036287;-0.064547;, - 0.694296;-0.039003;-0.718619;, - 0.996673;-0.053835;-0.060915;, - 0.673452;-0.084689;-0.734336;, - 0.689688;-0.025544;-0.723624;, - 0.997223;-0.036287;-0.064547;, - 0.694296;-0.039003;-0.718619;, - 0.431562;-0.032533;-0.901486;, - 0.707205; 0.020203;-0.706687;, - 0.724540; 0.107883;-0.680685;, - 0.724540; 0.107883;-0.680685;, - 0.467208; 0.048952;-0.882778;, - 0.431562;-0.032533;-0.901486;, - 0.467208; 0.048952;-0.882778;, - 0.724540; 0.107883;-0.680685;, - 0.746147; 0.060091;-0.663015;, - 0.222541;-0.064089;-0.972808;, - 0.431562;-0.032533;-0.901486;, - 0.467208; 0.048952;-0.882778;, - 0.260140; 0.018189;-0.965392;, - 0.222541;-0.064089;-0.972808;, - 0.467208; 0.048952;-0.882778;, - 0.467208; 0.048952;-0.882778;, - 0.502853; 0.025605;-0.863979;, - 0.260140; 0.018189;-0.965392;, - 0.502853; 0.025605;-0.863979;, - 0.467208; 0.048952;-0.882778;, - 0.746147; 0.060091;-0.663015;, - 0.257179; 0.012513;-0.966277;, - 0.260140; 0.018189;-0.965392;, - 0.502853; 0.025605;-0.863979;, - -0.000580; 0.000000;-0.999969;, - -0.254036; 0.006867;-0.967162;, - -0.257210; 0.012604;-0.966247;, - -0.257210; 0.012604;-0.966247;, - -0.000519; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.000519; 0.000000;-0.999969;, - -0.257210; 0.012604;-0.966247;, - -0.252327;-0.092074;-0.963225;, - 0.257179; 0.012513;-0.966277;, - -0.000580; 0.000000;-0.999969;, - -0.000519; 0.000000;-0.999969;, - 0.260140; 0.018189;-0.965392;, - 0.257179; 0.012513;-0.966277;, - -0.000519; 0.000000;-0.999969;, - -0.000519; 0.000000;-0.999969;, - -0.000458;-0.090030;-0.995911;, - 0.260140; 0.018189;-0.965392;, - -0.000458;-0.090030;-0.995911;, - -0.000519; 0.000000;-0.999969;, - -0.252327;-0.092074;-0.963225;, - 0.222541;-0.064089;-0.972808;, - 0.260140; 0.018189;-0.965392;, - -0.000458;-0.090030;-0.995911;, - -0.496689; 0.013916;-0.867794;, - -0.725791; 0.027406;-0.687338;, - -0.482986; 0.030976;-0.875057;, - -0.482986; 0.030976;-0.875057;, - -0.257210; 0.012604;-0.966247;, - -0.496689; 0.013916;-0.867794;, - -0.257210; 0.012604;-0.966247;, - -0.482986; 0.030976;-0.875057;, - -0.252327;-0.092074;-0.963225;, - -0.254036; 0.006867;-0.967162;, - -0.496689; 0.013916;-0.867794;, - -0.257210; 0.012604;-0.966247;, - -0.482986; 0.030976;-0.875057;, - -0.725791; 0.027406;-0.687338;, - -0.719535; 0.057680;-0.692038;, - -0.719535; 0.057680;-0.692038;, - -0.468825;-0.086703;-0.878994;, - -0.482986; 0.030976;-0.875057;, - -0.468825;-0.086703;-0.878994;, - -0.719535; 0.057680;-0.692038;, - -0.747368;-0.093844;-0.657704;, - -0.252327;-0.092074;-0.963225;, - -0.482986; 0.030976;-0.875057;, - -0.468825;-0.086703;-0.878994;, - -0.900174; 0.036042;-0.433973;, - -0.969115; 0.027650;-0.244972;, - -0.913511; 0.057283;-0.402722;, - -0.913511; 0.057283;-0.402722;, - -0.719535; 0.057680;-0.692038;, - -0.900174; 0.036042;-0.433973;, - -0.719535; 0.057680;-0.692038;, - -0.913511; 0.057283;-0.402722;, - -0.747368;-0.093844;-0.657704;, - -0.725791; 0.027406;-0.687338;, - -0.900174; 0.036042;-0.433973;, - -0.719535; 0.057680;-0.692038;, - -0.913511; 0.057283;-0.402722;, - -0.969115; 0.027650;-0.244972;, - -0.976043; 0.044710;-0.212867;, - -0.976043; 0.044710;-0.212867;, - -0.925565;-0.105838;-0.363445;, - -0.913511; 0.057283;-0.402722;, - -0.925565;-0.105838;-0.363445;, - -0.976043; 0.044710;-0.212867;, - -0.973601;-0.105533;-0.202307;, - -0.747368;-0.093844;-0.657704;, - -0.913511; 0.057283;-0.402722;, - -0.925565;-0.105838;-0.363445;, - -0.998260; 0.021729;-0.054598;, - -0.748955; 0.016205;-0.662404;, - -0.744682; 0.032411;-0.666585;, - -0.744682; 0.032411;-0.666585;, - -0.997681; 0.044557;-0.051332;, - -0.998260; 0.021729;-0.054598;, - -0.997681; 0.044557;-0.051332;, - -0.744682; 0.032411;-0.666585;, - -0.730247;-0.079714;-0.678457;, - -0.969115; 0.027650;-0.244972;, - -0.998260; 0.021729;-0.054598;, - -0.997681; 0.044557;-0.051332;, - -0.976043; 0.044710;-0.212867;, - -0.969115; 0.027650;-0.244972;, - -0.997681; 0.044557;-0.051332;, - -0.997681; 0.044557;-0.051332;, - -0.993347;-0.108737;-0.037751;, - -0.976043; 0.044710;-0.212867;, - -0.993347;-0.108737;-0.037751;, - -0.997681; 0.044557;-0.051332;, - -0.730247;-0.079714;-0.678457;, - -0.973601;-0.105533;-0.202307;, - -0.976043; 0.044710;-0.212867;, - -0.993347;-0.108737;-0.037751;, - -0.165166; 0.003540;-0.986236;, - -0.075289; 0.002045;-0.997131;, - -0.181799; 0.006226;-0.983306;, - -0.181799; 0.006226;-0.983306;, - -0.744682; 0.032411;-0.666585;, - -0.165166; 0.003540;-0.986236;, - -0.744682; 0.032411;-0.666585;, - -0.181799; 0.006226;-0.983306;, - -0.730247;-0.079714;-0.678457;, - -0.748955; 0.016205;-0.662404;, - -0.165166; 0.003540;-0.986236;, - -0.744682; 0.032411;-0.666585;, - -0.181799; 0.006226;-0.983306;, - -0.075289; 0.002045;-0.997131;, - -0.089480; 0.002380;-0.995972;, - -0.089480; 0.002380;-0.995972;, - -0.199194;-0.025086;-0.979614;, - -0.181799; 0.006226;-0.983306;, - -0.199194;-0.025086;-0.979614;, - -0.089480; 0.002380;-0.995972;, - -0.079196;-0.007416;-0.996826;, - -0.730247;-0.079714;-0.678457;, - -0.181799; 0.006226;-0.983306;, - -0.199194;-0.025086;-0.979614;, - 0.743004; 0.137150;-0.655049;, - 0.741203; 0.092959;-0.664785;, - 0.196722; 0.033204;-0.979888;, - 0.196722; 0.033204;-0.979888;, - 0.185217; 0.019929;-0.982482;, - 0.743004; 0.137150;-0.655049;, - 0.185217; 0.019929;-0.982482;, - 0.196722; 0.033204;-0.979888;, - 0.095065; 0.010529;-0.995392;, - 0.759972; 0.083041;-0.644581;, - 0.743004; 0.137150;-0.655049;, - 0.185217; 0.019929;-0.982482;, - 0.196722; 0.033204;-0.979888;, - 0.741203; 0.092959;-0.664785;, - 0.208472; 0.037446;-0.977294;, - 0.208472; 0.037446;-0.977294;, - 0.102206; 0.015809;-0.994629;, - 0.196722; 0.033204;-0.979888;, - 0.102206; 0.015809;-0.994629;, - 0.208472; 0.037446;-0.977294;, - 0.096377; 0.031465;-0.994842;, - 0.095065; 0.010529;-0.995392;, - 0.196722; 0.033204;-0.979888;, - 0.102206; 0.015809;-0.994629;, - 0.020600; 0.002655;-0.999756;, - -0.079196;-0.007416;-0.996826;, - -0.089480; 0.002380;-0.995972;, - -0.089480; 0.002380;-0.995972;, - 0.018738; 0.000793;-0.999817;, - 0.020600; 0.002655;-0.999756;, - 0.018738; 0.000793;-0.999817;, - -0.089480; 0.002380;-0.995972;, - -0.075289; 0.002045;-0.997131;, - 0.084201; 0.029542;-0.996002;, - 0.020600; 0.002655;-0.999756;, - 0.018738; 0.000793;-0.999817;, - 0.074557; 0.009583;-0.997162;, - 0.084201; 0.029542;-0.996002;, - 0.018738; 0.000793;-0.999817;, - 0.018738; 0.000793;-0.999817;, - 0.016968; 0.001099;-0.999847;, - 0.074557; 0.009583;-0.997162;, - 0.016968; 0.001099;-0.999847;, - 0.018738; 0.000793;-0.999817;, - -0.075289; 0.002045;-0.997131;, - 0.065706; 0.007263;-0.997803;, - 0.074557; 0.009583;-0.997162;, - 0.016968; 0.001099;-0.999847;, - -0.941893; 0.097629;-0.321390;, - -0.981506; 0.099155; 0.163701;, - -0.945036; 0.043062;-0.324076;, - -0.945036; 0.043062;-0.324076;, - -0.576525; 0.025666;-0.816645;, - -0.941893; 0.097629;-0.321390;, - -0.576525; 0.025666;-0.816645;, - -0.945036; 0.043062;-0.324076;, - -0.587329;-0.000488;-0.809320;, - -0.588397; 0.059389;-0.806360;, - -0.941893; 0.097629;-0.321390;, - -0.576525; 0.025666;-0.816645;, - -0.945036; 0.043062;-0.324076;, - -0.981506; 0.099155; 0.163701;, - -0.977935; 0.051546; 0.202307;, - -0.977935; 0.051546; 0.202307;, - -0.945402;-0.001251;-0.325816;, - -0.945036; 0.043062;-0.324076;, - -0.945402;-0.001251;-0.325816;, - -0.977935; 0.051546; 0.202307;, - -0.979461; 0.000793; 0.201575;, - -0.587329;-0.000488;-0.809320;, - -0.945036; 0.043062;-0.324076;, - -0.945402;-0.001251;-0.325816;, - -0.782128; 0.078738; 0.618091;, - -0.446181; 0.044160; 0.893826;, - -0.434065; 0.023499; 0.900540;, - -0.434065; 0.023499; 0.900540;, - -0.761315; 0.042238; 0.646962;, - -0.782128; 0.078738; 0.618091;, - -0.761315; 0.042238; 0.646962;, - -0.434065; 0.023499; 0.900540;, - -0.413373; 0.001312; 0.910550;, - -0.981506; 0.099155; 0.163701;, - -0.782128; 0.078738; 0.618091;, - -0.761315; 0.042238; 0.646962;, - -0.977935; 0.051546; 0.202307;, - -0.981506; 0.099155; 0.163701;, - -0.761315; 0.042238; 0.646962;, - -0.761315; 0.042238; 0.646962;, - -0.738487; 0.002716; 0.674215;, - -0.977935; 0.051546; 0.202307;, - -0.738487; 0.002716; 0.674215;, - -0.761315; 0.042238; 0.646962;, - -0.413373; 0.001312; 0.910550;, - -0.979461; 0.000793; 0.201575;, - -0.977935; 0.051546; 0.202307;, - -0.738487; 0.002716; 0.674215;, - 0.011628;-0.000092; 0.999908;, - 0.012116; 0.000641; 0.999908;, - 0.044130; 0.002380; 0.998993;, - 0.044130; 0.002380; 0.998993;, - 0.043458; 0.000397; 0.999054;, - 0.011628;-0.000092; 0.999908;, - 0.043458; 0.000397; 0.999054;, - 0.044130; 0.002380; 0.998993;, - -0.032594;-0.001709; 0.999451;, - 0.010834;-0.000061; 0.999939;, - 0.011628;-0.000092; 0.999908;, - 0.043458; 0.000397; 0.999054;, - 0.042756;-0.000061; 0.999084;, - 0.010834;-0.000061; 0.999939;, - 0.043458; 0.000397; 0.999054;, - 0.043458; 0.000397; 0.999054;, - -0.031037;-0.000916; 0.999512;, - 0.042756;-0.000061; 0.999084;, - -0.031037;-0.000916; 0.999512;, - 0.043458; 0.000397; 0.999054;, - -0.032594;-0.001709; 0.999451;, - -0.032228;-0.026429; 0.999115;, - 0.042756;-0.000061; 0.999084;, - -0.031037;-0.000916; 0.999512;, - 0.578295; 0.026215; 0.815394;, - 0.579913; 0.066897; 0.811884;, - 0.693381; 0.092898; 0.714530;, - 0.693381; 0.092898; 0.714530;, - 0.689840; 0.032807; 0.723197;, - 0.578295; 0.026215; 0.815394;, - 0.689840; 0.032807; 0.723197;, - 0.693381; 0.092898; 0.714530;, - 0.955138; 0.125248; 0.268288;, - 0.668752;-0.094241; 0.737480;, - 0.578295; 0.026215; 0.815394;, - 0.689840; 0.032807; 0.723197;, - 0.683950; 0.000000; 0.729484;, - 0.668752;-0.094241; 0.737480;, - 0.689840; 0.032807; 0.723197;, - 0.689840; 0.032807; 0.723197;, - 0.958708; 0.047792; 0.280282;, - 0.683950; 0.000000; 0.729484;, - 0.958708; 0.047792; 0.280282;, - 0.689840; 0.032807; 0.723197;, - 0.955138; 0.125248; 0.268288;, - 0.961089; 0.000000; 0.276193;, - 0.683950; 0.000000; 0.729484;, - 0.958708; 0.047792; 0.280282;, - 0.962920; 0.129398;-0.236641;, - 0.989502; 0.127293;-0.068300;, - 0.996307; 0.046846;-0.071505;, - 0.996307; 0.046846;-0.071505;, - 0.969054; 0.046937;-0.242317;, - 0.962920; 0.129398;-0.236641;, - 0.969054; 0.046937;-0.242317;, - 0.996307; 0.046846;-0.071505;, - 0.997253;-0.000153;-0.073763;, - 0.955138; 0.125248; 0.268288;, - 0.962920; 0.129398;-0.236641;, - 0.969054; 0.046937;-0.242317;, - 0.958708; 0.047792; 0.280282;, - 0.955138; 0.125248; 0.268288;, - 0.969054; 0.046937;-0.242317;, - 0.969054; 0.046937;-0.242317;, - 0.969115; 0.000000;-0.246498;, - 0.958708; 0.047792; 0.280282;, - 0.969115; 0.000000;-0.246498;, - 0.969054; 0.046937;-0.242317;, - 0.997253;-0.000153;-0.073763;, - 0.961089; 0.000000; 0.276193;, - 0.958708; 0.047792; 0.280282;, - 0.969115; 0.000000;-0.246498;, - 0.455458; 0.061953;-0.888058;, - 0.296152; 0.040681;-0.954253;, - 0.285592; 0.013581;-0.958220;, - 0.285592; 0.013581;-0.958220;, - 0.450056; 0.022034;-0.892697;, - 0.455458; 0.061953;-0.888058;, - 0.450056; 0.022034;-0.892697;, - 0.285592; 0.013581;-0.958220;, - 0.284280; 0.000000;-0.958708;, - 0.870022; 0.116337;-0.479019;, - 0.455458; 0.061953;-0.888058;, - 0.450056; 0.022034;-0.892697;, - 0.866451; 0.043672;-0.497299;, - 0.870022; 0.116337;-0.479019;, - 0.450056; 0.022034;-0.892697;, - 0.450056; 0.022034;-0.892697;, - 0.443983; 0.000000;-0.896023;, - 0.866451; 0.043672;-0.497299;, - 0.443983; 0.000000;-0.896023;, - 0.450056; 0.022034;-0.892697;, - 0.284280; 0.000000;-0.958708;, - 0.871731; 0.000000;-0.489944;, - 0.866451; 0.043672;-0.497299;, - 0.443983; 0.000000;-0.896023;, - 0.285592; 0.013581;-0.958220;, - 0.296152; 0.040681;-0.954253;, - 0.107089; 0.004273;-0.994232;, - 0.107089; 0.004273;-0.994232;, - 0.105289; 0.000000;-0.994415;, - 0.285592; 0.013581;-0.958220;, - 0.105289; 0.000000;-0.994415;, - 0.107089; 0.004273;-0.994232;, - 0.062288;-0.000031;-0.998047;, - 0.284280; 0.000000;-0.958708;, - 0.285592; 0.013581;-0.958220;, - 0.105289; 0.000000;-0.994415;, - 0.107089; 0.004273;-0.994232;, - 0.296152; 0.040681;-0.954253;, - 0.108921; 0.013184;-0.993957;, - 0.108921; 0.013184;-0.993957;, - 0.062716; 0.002045;-0.998016;, - 0.107089; 0.004273;-0.994232;, - 0.062716; 0.002045;-0.998016;, - 0.108921; 0.013184;-0.993957;, - 0.065706; 0.007263;-0.997803;, - 0.062288;-0.000031;-0.998047;, - 0.107089; 0.004273;-0.994232;, - 0.062716; 0.002045;-0.998016;, - -0.260323; 0.000000;-0.965514;, - -0.260445;-0.000031;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.260323; 0.000000;-0.965514;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - 0.213874; 0.000000;-0.976836;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - 0.216559; 0.000000;-0.976257;, - -0.024415; 0.000000;-0.999695;, - 0.216559; 0.000000;-0.976257;, - -0.024415; 0.000000;-0.999695;, - 0.218482;-0.002380;-0.975829;, - 0.213874; 0.000000;-0.976836;, - -0.024415; 0.000000;-0.999695;, - 0.216559; 0.000000;-0.976257;, - 0.216559; 0.000000;-0.976257;, - 0.218482;-0.002380;-0.975829;, - 0.444868;-0.006592;-0.895535;, - 0.444868;-0.006592;-0.895535;, - 0.441298;-0.002106;-0.897336;, - 0.216559; 0.000000;-0.976257;, - 0.441298;-0.002106;-0.897336;, - 0.444868;-0.006592;-0.895535;, - 0.697134;-0.016602;-0.716727;, - 0.213874; 0.000000;-0.976836;, - 0.216559; 0.000000;-0.976257;, - 0.441298;-0.002106;-0.897336;, - 0.437696; 0.000000;-0.899106;, - 0.213874; 0.000000;-0.976836;, - 0.441298;-0.002106;-0.897336;, - 0.441298;-0.002106;-0.897336;, - 0.691733;-0.006684;-0.722098;, - 0.437696; 0.000000;-0.899106;, - 0.691733;-0.006684;-0.722098;, - 0.441298;-0.002106;-0.897336;, - 0.697134;-0.016602;-0.716727;, - 0.689627; 0.000000;-0.724143;, - 0.437696; 0.000000;-0.899106;, - 0.691733;-0.006684;-0.722098;, - 0.691733;-0.006684;-0.722098;, - 0.697134;-0.016602;-0.716727;, - 0.879177;-0.027070;-0.475692;, - 0.879177;-0.027070;-0.475692;, - 0.876522;-0.011536;-0.481185;, - 0.691733;-0.006684;-0.722098;, - 0.876522;-0.011536;-0.481185;, - 0.879177;-0.027070;-0.475692;, - 0.960540;-0.032472;-0.276162;, - 0.689627; 0.000000;-0.724143;, - 0.691733;-0.006684;-0.722098;, - 0.876522;-0.011536;-0.481185;, - 0.873623; 0.000000;-0.486557;, - 0.689627; 0.000000;-0.724143;, - 0.876522;-0.011536;-0.481185;, - 0.876522;-0.011536;-0.481185;, - 0.959136;-0.015961;-0.282449;, - 0.873623; 0.000000;-0.486557;, - 0.959136;-0.015961;-0.282449;, - 0.876522;-0.011536;-0.481185;, - 0.960540;-0.032472;-0.276162;, - 0.959258; 0.000000;-0.282479;, - 0.873623; 0.000000;-0.486557;, - 0.959136;-0.015961;-0.282449;, - 0.959136;-0.015961;-0.282449;, - 0.960540;-0.032472;-0.276162;, - 0.997223;-0.036287;-0.064547;, - 0.997223;-0.036287;-0.064547;, - 0.997681;-0.017151;-0.065523;, - 0.959136;-0.015961;-0.282449;, - 0.997681;-0.017151;-0.065523;, - 0.997223;-0.036287;-0.064547;, - 0.689688;-0.025544;-0.723624;, - 0.959258; 0.000000;-0.282479;, - 0.959136;-0.015961;-0.282449;, - 0.997681;-0.017151;-0.065523;, - 0.997772; 0.000000;-0.066469;, - 0.959258; 0.000000;-0.282479;, - 0.997681;-0.017151;-0.065523;, - 0.997681;-0.017151;-0.065523;, - 0.693655;-0.012299;-0.720176;, - 0.997772; 0.000000;-0.066469;, - 0.693655;-0.012299;-0.720176;, - 0.997681;-0.017151;-0.065523;, - 0.689688;-0.025544;-0.723624;, - 0.689627; 0.000000;-0.724143;, - 0.997772; 0.000000;-0.066469;, - 0.693655;-0.012299;-0.720176;, - 0.760033; 0.024232;-0.649403;, - 0.746147; 0.060091;-0.663015;, - 0.929777; 0.032105;-0.366680;, - 0.929777; 0.032105;-0.366680;, - 0.932188;-0.000641;-0.361950;, - 0.760033; 0.024232;-0.649403;, - 0.932188;-0.000641;-0.361950;, - 0.929777; 0.032105;-0.366680;, - 0.976959;-0.000214;-0.213355;, - 0.762017;-0.000916;-0.647511;, - 0.760033; 0.024232;-0.649403;, - 0.932188;-0.000641;-0.361950;, - 0.929777; 0.032105;-0.366680;, - 0.746147; 0.060091;-0.663015;, - 0.924802; 0.086581;-0.370434;, - 0.924802; 0.086581;-0.370434;, - 0.975616; 0.036317;-0.216376;, - 0.929777; 0.032105;-0.366680;, - 0.975616; 0.036317;-0.216376;, - 0.924802; 0.086581;-0.370434;, - 0.969878; 0.101688;-0.221290;, - 0.976959;-0.000214;-0.213355;, - 0.929777; 0.032105;-0.366680;, - 0.975616; 0.036317;-0.216376;, - 0.502853; 0.025605;-0.863979;, - 0.746147; 0.060091;-0.663015;, - 0.760033; 0.024232;-0.649403;, - 0.760033; 0.024232;-0.649403;, - 0.510697; 0.012665;-0.859645;, - 0.502853; 0.025605;-0.863979;, - 0.510697; 0.012665;-0.859645;, - 0.760033; 0.024232;-0.649403;, - 0.762017;-0.000916;-0.647511;, - 0.257179; 0.012513;-0.966277;, - 0.502853; 0.025605;-0.863979;, - 0.510697; 0.012665;-0.859645;, - 0.268838; 0.004822;-0.963164;, - 0.257179; 0.012513;-0.966277;, - 0.510697; 0.012665;-0.859645;, - 0.510697; 0.012665;-0.859645;, - 0.518418;-0.001251;-0.855098;, - 0.268838; 0.004822;-0.963164;, - 0.518418;-0.001251;-0.855098;, - 0.510697; 0.012665;-0.859645;, - 0.762017;-0.000916;-0.647511;, - 0.265572;-0.000641;-0.964080;, - 0.268838; 0.004822;-0.963164;, - 0.518418;-0.001251;-0.855098;, - -0.259621; 0.000641;-0.965697;, - -0.254036; 0.006867;-0.967162;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.259621; 0.000641;-0.965697;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - 0.265572;-0.000641;-0.964080;, - -0.259774; 0.001007;-0.965636;, - -0.259621; 0.000641;-0.965697;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.254036; 0.006867;-0.967162;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - 0.268838; 0.004822;-0.963164;, - -0.000580; 0.000000;-0.999969;, - 0.268838; 0.004822;-0.963164;, - -0.000580; 0.000000;-0.999969;, - 0.257179; 0.012513;-0.966277;, - 0.265572;-0.000641;-0.964080;, - -0.000580; 0.000000;-0.999969;, - 0.268838; 0.004822;-0.963164;, - -0.500961; 0.001740;-0.865444;, - -0.728782; 0.004700;-0.684713;, - -0.498856; 0.002411;-0.866665;, - -0.498856; 0.002411;-0.866665;, - -0.259621; 0.000641;-0.965697;, - -0.500961; 0.001740;-0.865444;, - -0.259621; 0.000641;-0.965697;, - -0.498856; 0.002411;-0.866665;, - -0.254036; 0.006867;-0.967162;, - -0.259774; 0.001007;-0.965636;, - -0.500961; 0.001740;-0.865444;, - -0.259621; 0.000641;-0.965697;, - -0.498856; 0.002411;-0.866665;, - -0.728782; 0.004700;-0.684713;, - -0.726951; 0.005158;-0.686636;, - -0.726951; 0.005158;-0.686636;, - -0.496689; 0.013916;-0.867794;, - -0.498856; 0.002411;-0.866665;, - -0.496689; 0.013916;-0.867794;, - -0.726951; 0.005158;-0.686636;, - -0.725791; 0.027406;-0.687338;, - -0.254036; 0.006867;-0.967162;, - -0.498856; 0.002411;-0.866665;, - -0.496689; 0.013916;-0.867794;, - -0.968413; 0.000031;-0.249275;, - -0.969115; 0.027650;-0.244972;, - -0.900174; 0.036042;-0.433973;, - -0.900174; 0.036042;-0.433973;, - -0.897794; 0.003204;-0.440382;, - -0.968413; 0.000031;-0.249275;, - -0.897794; 0.003204;-0.440382;, - -0.900174; 0.036042;-0.433973;, - -0.725791; 0.027406;-0.687338;, - -0.966765; 0.005982;-0.255531;, - -0.968413; 0.000031;-0.249275;, - -0.897794; 0.003204;-0.440382;, - -0.894742; 0.007660;-0.446486;, - -0.966765; 0.005982;-0.255531;, - -0.897794; 0.003204;-0.440382;, - -0.897794; 0.003204;-0.440382;, - -0.726951; 0.005158;-0.686636;, - -0.894742; 0.007660;-0.446486;, - -0.726951; 0.005158;-0.686636;, - -0.897794; 0.003204;-0.440382;, - -0.725791; 0.027406;-0.687338;, - -0.728782; 0.004700;-0.684713;, - -0.894742; 0.007660;-0.446486;, - -0.726951; 0.005158;-0.686636;, - -0.998383; 0.004944;-0.056520;, - -0.741935; 0.003662;-0.670431;, - -0.744682;-0.000427;-0.667379;, - -0.744682;-0.000427;-0.667379;, - -0.998444;-0.000244;-0.055574;, - -0.998383; 0.004944;-0.056520;, - -0.998444;-0.000244;-0.055574;, - -0.744682;-0.000427;-0.667379;, - -0.748955; 0.016205;-0.662404;, - -0.966765; 0.005982;-0.255531;, - -0.998383; 0.004944;-0.056520;, - -0.998444;-0.000244;-0.055574;, - -0.968413; 0.000031;-0.249275;, - -0.966765; 0.005982;-0.255531;, - -0.998444;-0.000244;-0.055574;, - -0.998444;-0.000244;-0.055574;, - -0.998260; 0.021729;-0.054598;, - -0.968413; 0.000031;-0.249275;, - -0.998260; 0.021729;-0.054598;, - -0.998444;-0.000244;-0.055574;, - -0.748955; 0.016205;-0.662404;, - -0.969115; 0.027650;-0.244972;, - -0.968413; 0.000031;-0.249275;, - -0.998260; 0.021729;-0.054598;, - -0.159734; 0.000732;-0.987152;, - -0.071352; 0.000336;-0.997436;, - -0.071657;-0.000244;-0.997406;, - -0.071657;-0.000244;-0.997406;, - -0.162450;-0.000336;-0.986694;, - -0.159734; 0.000732;-0.987152;, - -0.162450;-0.000336;-0.986694;, - -0.071657;-0.000244;-0.997406;, - -0.075289; 0.002045;-0.997131;, - -0.741935; 0.003662;-0.670431;, - -0.159734; 0.000732;-0.987152;, - -0.162450;-0.000336;-0.986694;, - -0.744682;-0.000427;-0.667379;, - -0.741935; 0.003662;-0.670431;, - -0.162450;-0.000336;-0.986694;, - -0.162450;-0.000336;-0.986694;, - -0.165166; 0.003540;-0.986236;, - -0.744682;-0.000427;-0.667379;, - -0.165166; 0.003540;-0.986236;, - -0.162450;-0.000336;-0.986694;, - -0.075289; 0.002045;-0.997131;, - -0.748955; 0.016205;-0.662404;, - -0.744682;-0.000427;-0.667379;, - -0.165166; 0.003540;-0.986236;, - 0.750450; 0.027345;-0.660329;, - 0.759972; 0.083041;-0.644581;, - 0.183294; 0.006165;-0.983032;, - 0.183294; 0.006165;-0.983032;, - 0.181341; 0.000000;-0.983398;, - 0.750450; 0.027345;-0.660329;, - 0.181341; 0.000000;-0.983398;, - 0.183294; 0.006165;-0.983032;, - 0.090670; 0.000000;-0.995849;, - 0.756645; 0.000000;-0.653798;, - 0.750450; 0.027345;-0.660329;, - 0.181341; 0.000000;-0.983398;, - 0.183294; 0.006165;-0.983032;, - 0.759972; 0.083041;-0.644581;, - 0.185217; 0.019929;-0.982482;, - 0.185217; 0.019929;-0.982482;, - 0.090518; 0.002777;-0.995880;, - 0.183294; 0.006165;-0.983032;, - 0.090518; 0.002777;-0.995880;, - 0.185217; 0.019929;-0.982482;, - 0.095065; 0.010529;-0.995392;, - 0.090670; 0.000000;-0.995849;, - 0.183294; 0.006165;-0.983032;, - 0.090518; 0.002777;-0.995880;, - 0.062716; 0.002045;-0.998016;, - 0.065706; 0.007263;-0.997803;, - 0.016694; 0.000275;-0.999847;, - 0.016694; 0.000275;-0.999847;, - 0.016388; 0.000000;-0.999847;, - 0.062716; 0.002045;-0.998016;, - 0.016388; 0.000000;-0.999847;, - 0.016694; 0.000275;-0.999847;, - -0.071352; 0.000336;-0.997436;, - 0.062288;-0.000031;-0.998047;, - 0.062716; 0.002045;-0.998016;, - 0.016388; 0.000000;-0.999847;, - 0.016694; 0.000275;-0.999847;, - 0.065706; 0.007263;-0.997803;, - 0.016968; 0.001099;-0.999847;, - 0.016968; 0.001099;-0.999847;, - -0.071657;-0.000244;-0.997406;, - 0.016694; 0.000275;-0.999847;, - -0.071657;-0.000244;-0.997406;, - 0.016968; 0.001099;-0.999847;, - -0.075289; 0.002045;-0.997131;, - -0.071352; 0.000336;-0.997436;, - 0.016694; 0.000275;-0.999847;, - -0.071657;-0.000244;-0.997406;, - 0.029115;-0.001709;-0.999573;, - 0.689688;-0.025544;-0.723624;, - 0.030396;-0.002319;-0.999512;, - 0.030396;-0.002319;-0.999512;, - 0.021607;-0.002136;-0.999756;, - 0.029115;-0.001709;-0.999573;, - 0.021607;-0.002136;-0.999756;, - 0.030396;-0.002319;-0.999512;, - 0.022889;-0.002075;-0.999725;, - 0.020661;-0.001312;-0.999756;, - 0.029115;-0.001709;-0.999573;, - 0.021607;-0.002136;-0.999756;, - 0.030396;-0.002319;-0.999512;, - 0.689688;-0.025544;-0.723624;, - 0.694296;-0.039003;-0.718619;, - 0.694296;-0.039003;-0.718619;, - 0.031648;-0.002289;-0.999481;, - 0.030396;-0.002319;-0.999512;, - 0.031648;-0.002289;-0.999481;, - 0.694296;-0.039003;-0.718619;, - 0.673452;-0.084689;-0.734336;, - 0.022889;-0.002075;-0.999725;, - 0.030396;-0.002319;-0.999512;, - 0.031648;-0.002289;-0.999481;, - 0.028596; 0.000000;-0.999573;, - 0.689627; 0.000000;-0.724143;, - 0.028840;-0.000641;-0.999573;, - 0.028840;-0.000641;-0.999573;, - 0.020539;-0.000519;-0.999786;, - 0.028596; 0.000000;-0.999573;, - 0.020539;-0.000519;-0.999786;, - 0.028840;-0.000641;-0.999573;, - 0.020661;-0.001312;-0.999756;, - 0.020112; 0.000000;-0.999786;, - 0.028596; 0.000000;-0.999573;, - 0.020539;-0.000519;-0.999786;, - 0.028840;-0.000641;-0.999573;, - 0.689627; 0.000000;-0.724143;, - 0.693655;-0.012299;-0.720176;, - 0.693655;-0.012299;-0.720176;, - 0.029115;-0.001709;-0.999573;, - 0.028840;-0.000641;-0.999573;, - 0.029115;-0.001709;-0.999573;, - 0.693655;-0.012299;-0.720176;, - 0.689688;-0.025544;-0.723624;, - 0.020661;-0.001312;-0.999756;, - 0.028840;-0.000641;-0.999573;, - 0.029115;-0.001709;-0.999573;, - 0.012513;-0.000977;-0.999908;, - 0.020661;-0.001312;-0.999756;, - 0.013306;-0.001495;-0.999908;, - 0.013306;-0.001495;-0.999908;, - 0.013306;-0.001770;-0.999908;, - 0.012513;-0.000977;-0.999908;, - 0.013306;-0.001770;-0.999908;, - 0.013306;-0.001495;-0.999908;, - 0.014039;-0.002350;-0.999878;, - 0.012482;-0.001068;-0.999908;, - 0.012513;-0.000977;-0.999908;, - 0.013306;-0.001770;-0.999908;, - 0.013306;-0.001495;-0.999908;, - 0.020661;-0.001312;-0.999756;, - 0.021607;-0.002136;-0.999756;, - 0.021607;-0.002136;-0.999756;, - 0.014069;-0.002136;-0.999878;, - 0.013306;-0.001495;-0.999908;, - 0.014069;-0.002136;-0.999878;, - 0.021607;-0.002136;-0.999756;, - 0.022889;-0.002075;-0.999725;, - 0.014039;-0.002350;-0.999878;, - 0.013306;-0.001495;-0.999908;, - 0.014069;-0.002136;-0.999878;, - 0.014069;-0.002564;-0.999878;, - -0.594043; 0.115238;-0.796106;, - 0.013276;-0.001801;-0.999908;, - 0.013276;-0.001801;-0.999908;, - 0.013306;-0.001770;-0.999908;, - 0.014069;-0.002564;-0.999878;, - 0.013306;-0.001770;-0.999908;, - 0.013276;-0.001801;-0.999908;, - 0.012482;-0.001068;-0.999908;, - 0.014039;-0.002350;-0.999878;, - 0.014069;-0.002564;-0.999878;, - 0.013306;-0.001770;-0.999908;, - 0.013276;-0.001801;-0.999908;, - -0.594043; 0.115238;-0.796106;, - -0.585131; 0.082553;-0.806696;, - -0.585131; 0.082553;-0.806696;, - 0.012513;-0.001129;-0.999908;, - 0.013276;-0.001801;-0.999908;, - 0.012513;-0.001129;-0.999908;, - -0.585131; 0.082553;-0.806696;, - -0.588397; 0.059389;-0.806360;, - 0.012482;-0.001068;-0.999908;, - 0.013276;-0.001801;-0.999908;, - 0.012513;-0.001129;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.020112; 0.000000;-0.999786;, - 0.012177;-0.000366;-0.999908;, - 0.012177;-0.000366;-0.999908;, - 0.012177;-0.000488;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.012177;-0.000488;-0.999908;, - 0.012177;-0.000366;-0.999908;, - 0.012482;-0.001068;-0.999908;, - 0.011872; 0.000000;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.012177;-0.000488;-0.999908;, - 0.012177;-0.000366;-0.999908;, - 0.020112; 0.000000;-0.999786;, - 0.020539;-0.000519;-0.999786;, - 0.020539;-0.000519;-0.999786;, - 0.012513;-0.000977;-0.999908;, - 0.012177;-0.000366;-0.999908;, - 0.012513;-0.000977;-0.999908;, - 0.020539;-0.000519;-0.999786;, - 0.020661;-0.001312;-0.999756;, - 0.012482;-0.001068;-0.999908;, - 0.012177;-0.000366;-0.999908;, - 0.012513;-0.000977;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.011872; 0.000000;-0.999908;, - 0.012177;-0.000519;-0.999908;, - 0.012177;-0.000519;-0.999908;, - -0.576525; 0.025666;-0.816645;, - 0.011841; 0.000000;-0.999908;, - -0.576525; 0.025666;-0.816645;, - 0.012177;-0.000519;-0.999908;, - -0.588397; 0.059389;-0.806360;, - -0.587329;-0.000488;-0.809320;, - 0.011841; 0.000000;-0.999908;, - -0.576525; 0.025666;-0.816645;, - 0.012177;-0.000519;-0.999908;, - 0.011872; 0.000000;-0.999908;, - 0.012177;-0.000488;-0.999908;, - 0.012177;-0.000488;-0.999908;, - 0.012513;-0.001129;-0.999908;, - 0.012177;-0.000519;-0.999908;, - 0.012513;-0.001129;-0.999908;, - 0.012177;-0.000488;-0.999908;, - 0.012482;-0.001068;-0.999908;, - -0.588397; 0.059389;-0.806360;, - 0.012177;-0.000519;-0.999908;, - 0.012513;-0.001129;-0.999908;, - -0.001221; 0.000031;-0.999969;, - -0.001312; 0.020295;-0.999786;, - 0.002960; 0.020234;-0.999786;, - 0.002960; 0.020234;-0.999786;, - 0.003113;-0.000153;-0.999969;, - -0.001221; 0.000031;-0.999969;, - 0.003113;-0.000153;-0.999969;, - 0.002960; 0.020234;-0.999786;, - -0.267464; 0.034028;-0.962951;, - -0.000946; 0.000000;-0.999969;, - -0.001221; 0.000031;-0.999969;, - 0.003113;-0.000153;-0.999969;, - 0.003265;-0.000153;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.003113;-0.000153;-0.999969;, - 0.003113;-0.000153;-0.999969;, - -0.260506; 0.000000;-0.965453;, - 0.003265;-0.000153;-0.999969;, - -0.260506; 0.000000;-0.965453;, - 0.003113;-0.000153;-0.999969;, - -0.267464; 0.034028;-0.962951;, - -0.260445;-0.000031;-0.965453;, - 0.003265;-0.000153;-0.999969;, - -0.260506; 0.000000;-0.965453;, - 0.102206; 0.015809;-0.994629;, - 0.096377; 0.031465;-0.994842;, - -0.005219;-0.000153;-0.999969;, - -0.005219;-0.000153;-0.999969;, - -0.005036;-0.000458;-0.999969;, - 0.102206; 0.015809;-0.994629;, - -0.005036;-0.000458;-0.999969;, - -0.005219;-0.000153;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.095065; 0.010529;-0.995392;, - 0.102206; 0.015809;-0.994629;, - -0.005036;-0.000458;-0.999969;, - -0.005219;-0.000153;-0.999969;, - 0.096377; 0.031465;-0.994842;, - -0.005493; 0.020631;-0.999756;, - -0.005493; 0.020631;-0.999756;, - -0.001221; 0.000031;-0.999969;, - -0.005219;-0.000153;-0.999969;, - -0.001221; 0.000031;-0.999969;, - -0.005493; 0.020631;-0.999756;, - -0.001312; 0.020295;-0.999786;, - -0.000946; 0.000000;-0.999969;, - -0.005219;-0.000153;-0.999969;, - -0.001221; 0.000031;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.003265;-0.000153;-0.999969;, - 0.003265;-0.000153;-0.999969;, - 0.003449;-0.000153;-0.999969;, - -0.000793; 0.000000;-0.999969;, - 0.003449;-0.000153;-0.999969;, - 0.003265;-0.000153;-0.999969;, - -0.260445;-0.000031;-0.965453;, - -0.000458; 0.000000;-0.999969;, - -0.000793; 0.000000;-0.999969;, - 0.003449;-0.000153;-0.999969;, - 0.003662; 0.000000;-0.999969;, - -0.000458; 0.000000;-0.999969;, - 0.003449;-0.000153;-0.999969;, - 0.003449;-0.000153;-0.999969;, - -0.260323; 0.000000;-0.965514;, - 0.003662; 0.000000;-0.999969;, - -0.260323; 0.000000;-0.965514;, - 0.003449;-0.000153;-0.999969;, - -0.260445;-0.000031;-0.965453;, - -0.260323; 0.000000;-0.965514;, - 0.003662; 0.000000;-0.999969;, - -0.260323; 0.000000;-0.965514;, - 0.090518; 0.002777;-0.995880;, - 0.095065; 0.010529;-0.995392;, - -0.005036;-0.000458;-0.999969;, - -0.005036;-0.000458;-0.999969;, - -0.004975; 0.000092;-0.999969;, - 0.090518; 0.002777;-0.995880;, - -0.004975; 0.000092;-0.999969;, - -0.005036;-0.000458;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.090670; 0.000000;-0.995849;, - 0.090518; 0.002777;-0.995880;, - -0.004975; 0.000092;-0.999969;, - -0.004883; 0.000000;-0.999969;, - 0.090670; 0.000000;-0.995849;, - -0.004975; 0.000092;-0.999969;, - -0.004975; 0.000092;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.004883; 0.000000;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.004975; 0.000092;-0.999969;, - -0.000946; 0.000000;-0.999969;, - -0.000458; 0.000000;-0.999969;, - -0.004883; 0.000000;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.020264; 0.001007; 0.999786;, - -0.018067; 0.168371; 0.985534;, - -0.021424; 0.000885; 0.999756;, - -0.021424; 0.000885; 0.999756;, - -0.020905; 0.000610; 0.999756;, - -0.020264; 0.001007; 0.999786;, - -0.020905; 0.000610; 0.999756;, - -0.021424; 0.000885; 0.999756;, - 0.012116; 0.000641; 0.999908;, - -0.021332; 0.000183; 0.999756;, - -0.020264; 0.001007; 0.999786;, - -0.020905; 0.000610; 0.999756;, - -0.021424; 0.000885; 0.999756;, - -0.018067; 0.168371; 0.985534;, - -0.020081; 0.169561; 0.985290;, - -0.020081; 0.169561; 0.985290;, - 0.013306; 0.000092; 0.999908;, - -0.021424; 0.000885; 0.999756;, - 0.013306; 0.000092; 0.999908;, - -0.020081; 0.169561; 0.985290;, - 0.017365; 0.170385; 0.985198;, - 0.012116; 0.000641; 0.999908;, - -0.021424; 0.000885; 0.999756;, - 0.013306; 0.000092; 0.999908;, - 0.359508; 0.019471; 0.932920;, - 0.137822; 0.295846; 0.945219;, - -0.016694; 0.167180; 0.985778;, - -0.016694; 0.167180; 0.985778;, - -0.018952; 0.000122; 0.999817;, - 0.359508; 0.019471; 0.932920;, - -0.018952; 0.000122; 0.999817;, - -0.016694; 0.167180; 0.985778;, - -0.018067; 0.168371; 0.985534;, - 0.365581; 0.023957; 0.930448;, - 0.359508; 0.019471; 0.932920;, - -0.018952; 0.000122; 0.999817;, - -0.020814; 0.000183; 0.999756;, - 0.365581; 0.023957; 0.930448;, - -0.018952; 0.000122; 0.999817;, - -0.018952; 0.000122; 0.999817;, - -0.020264; 0.001007; 0.999786;, - -0.020814; 0.000183; 0.999756;, - -0.020264; 0.001007; 0.999786;, - -0.018952; 0.000122; 0.999817;, - -0.018067; 0.168371; 0.985534;, - -0.021332; 0.000183; 0.999756;, - -0.020814; 0.000183; 0.999756;, - -0.020264; 0.001007; 0.999786;, - -0.022706; 0.000000; 0.999725;, - -0.021332; 0.000183; 0.999756;, - -0.021302; 0.000092; 0.999756;, - -0.021302; 0.000092; 0.999756;, - -0.021668; 0.000000; 0.999756;, - -0.022706; 0.000000; 0.999725;, - -0.021668; 0.000000; 0.999756;, - -0.021302; 0.000092; 0.999756;, - 0.010834;-0.000061; 0.999939;, - -0.022675; 0.000061; 0.999725;, - -0.022706; 0.000000; 0.999725;, - -0.021668; 0.000000; 0.999756;, - -0.021302; 0.000092; 0.999756;, - -0.021332; 0.000183; 0.999756;, - -0.020905; 0.000610; 0.999756;, - -0.020905; 0.000610; 0.999756;, - 0.011628;-0.000092; 0.999908;, - -0.021302; 0.000092; 0.999756;, - 0.011628;-0.000092; 0.999908;, - -0.020905; 0.000610; 0.999756;, - 0.012116; 0.000641; 0.999908;, - 0.010834;-0.000061; 0.999939;, - -0.021302; 0.000092; 0.999756;, - 0.011628;-0.000092; 0.999908;, - 0.382824; 0.010163; 0.923734;, - 0.365581; 0.023957; 0.930448;, - -0.020814; 0.000183; 0.999756;, - -0.020814; 0.000183; 0.999756;, - -0.022828;-0.000275; 0.999725;, - 0.382824; 0.010163; 0.923734;, - -0.022828;-0.000275; 0.999725;, - -0.020814; 0.000183; 0.999756;, - -0.021332; 0.000183; 0.999756;, - 0.384655;-0.001617; 0.923032;, - 0.382824; 0.010163; 0.923734;, - -0.022828;-0.000275; 0.999725;, - -0.023713; 0.000092; 0.999695;, - 0.384655;-0.001617; 0.923032;, - -0.022828;-0.000275; 0.999725;, - -0.022828;-0.000275; 0.999725;, - -0.022706; 0.000000; 0.999725;, - -0.023713; 0.000092; 0.999695;, - -0.022706; 0.000000; 0.999725;, - -0.022828;-0.000275; 0.999725;, - -0.021332; 0.000183; 0.999756;, - -0.022675; 0.000061; 0.999725;, - -0.023713; 0.000092; 0.999695;, - -0.022706; 0.000000; 0.999725;, - 0.900815; 0.073458;-0.427900;, - 0.963622; 0.093875;-0.250130;, - 0.953520; 0.175726;-0.244728;, - 0.953520; 0.175726;-0.244728;, - 0.905148; 0.151311;-0.397198;, - 0.900815; 0.073458;-0.427900;, - 0.905148; 0.151311;-0.397198;, - 0.953520; 0.175726;-0.244728;, - 0.969878; 0.101688;-0.221290;, - 0.707205; 0.020203;-0.706687;, - 0.900815; 0.073458;-0.427900;, - 0.905148; 0.151311;-0.397198;, - 0.724540; 0.107883;-0.680685;, - 0.707205; 0.020203;-0.706687;, - 0.905148; 0.151311;-0.397198;, - 0.905148; 0.151311;-0.397198;, - 0.924802; 0.086581;-0.370434;, - 0.724540; 0.107883;-0.680685;, - 0.924802; 0.086581;-0.370434;, - 0.905148; 0.151311;-0.397198;, - 0.969878; 0.101688;-0.221290;, - 0.746147; 0.060091;-0.663015;, - 0.724540; 0.107883;-0.680685;, - 0.924802; 0.086581;-0.370434;, - 0.979888; 0.194311;-0.045198;, - 0.930174; 0.365612;-0.032807;, - 0.929655; 0.360332; 0.076540;, - 0.929655; 0.360332; 0.076540;, - 0.976775; 0.195318; 0.087710;, - 0.979888; 0.194311;-0.045198;, - 0.976775; 0.195318; 0.087710;, - 0.929655; 0.360332; 0.076540;, - 0.929289; 0.361400; 0.075777;, - 0.989502; 0.127293;-0.068300;, - 0.979888; 0.194311;-0.045198;, - 0.976775; 0.195318; 0.087710;, - 0.987762; 0.122074; 0.096744;, - 0.989502; 0.127293;-0.068300;, - 0.976775; 0.195318; 0.087710;, - 0.976775; 0.195318; 0.087710;, - 0.976531; 0.196875; 0.087008;, - 0.987762; 0.122074; 0.096744;, - 0.976531; 0.196875; 0.087008;, - 0.976775; 0.195318; 0.087710;, - 0.929289; 0.361400; 0.075777;, - 0.987701; 0.123081; 0.096286;, - 0.987762; 0.122074; 0.096744;, - 0.976531; 0.196875; 0.087008;, - 0.996307; 0.046846;-0.071505;, - 0.989502; 0.127293;-0.068300;, - 0.987762; 0.122074; 0.096744;, - 0.987762; 0.122074; 0.096744;, - 0.993957; 0.047060; 0.099063;, - 0.996307; 0.046846;-0.071505;, - 0.993957; 0.047060; 0.099063;, - 0.987762; 0.122074; 0.096744;, - 0.987701; 0.123081; 0.096286;, - 0.997253;-0.000153;-0.073763;, - 0.996307; 0.046846;-0.071505;, - 0.993957; 0.047060; 0.099063;, - 0.994873;-0.000214; 0.100864;, - 0.997253;-0.000153;-0.073763;, - 0.993957; 0.047060; 0.099063;, - 0.993957; 0.047060; 0.099063;, - 0.993927; 0.047395; 0.099063;, - 0.994873;-0.000214; 0.100864;, - 0.993927; 0.047395; 0.099063;, - 0.993957; 0.047060; 0.099063;, - 0.987701; 0.123081; 0.096286;, - 0.994903;-0.000183; 0.100681;, - 0.994873;-0.000214; 0.100864;, - 0.993927; 0.047395; 0.099063;, - 0.976531; 0.196875; 0.087008;, - 0.929289; 0.361400; 0.075777;, - 0.929350; 0.361644; 0.073946;, - 0.929350; 0.361644; 0.073946;, - 0.976196; 0.198675; 0.086978;, - 0.976531; 0.196875; 0.087008;, - 0.976196; 0.198675; 0.086978;, - 0.929350; 0.361644; 0.073946;, - 0.928495; 0.364177; 0.072451;, - 0.987701; 0.123081; 0.096286;, - 0.976531; 0.196875; 0.087008;, - 0.976196; 0.198675; 0.086978;, - 0.987518; 0.124210; 0.096744;, - 0.987701; 0.123081; 0.096286;, - 0.976196; 0.198675; 0.086978;, - 0.976196; 0.198675; 0.086978;, - 0.975890; 0.200446; 0.086245;, - 0.987518; 0.124210; 0.096744;, - 0.975890; 0.200446; 0.086245;, - 0.976196; 0.198675; 0.086978;, - 0.928495; 0.364177; 0.072451;, - 0.987426; 0.125614; 0.095920;, - 0.987518; 0.124210; 0.096744;, - 0.975890; 0.200446; 0.086245;, - 0.993927; 0.047395; 0.099063;, - 0.987701; 0.123081; 0.096286;, - 0.987518; 0.124210; 0.096744;, - 0.987518; 0.124210; 0.096744;, - 0.993927; 0.047731; 0.099063;, - 0.993927; 0.047395; 0.099063;, - 0.993927; 0.047731; 0.099063;, - 0.987518; 0.124210; 0.096744;, - 0.987426; 0.125614; 0.095920;, - 0.994903;-0.000183; 0.100681;, - 0.993927; 0.047395; 0.099063;, - 0.993927; 0.047731; 0.099063;, - 0.994873;-0.000153; 0.100864;, - 0.994903;-0.000183; 0.100681;, - 0.993927; 0.047731; 0.099063;, - 0.993927; 0.047731; 0.099063;, - 0.993896; 0.048097; 0.099063;, - 0.994873;-0.000153; 0.100864;, - 0.993896; 0.048097; 0.099063;, - 0.993927; 0.047731; 0.099063;, - 0.987426; 0.125614; 0.095920;, - 0.994903;-0.000122; 0.100589;, - 0.994873;-0.000153; 0.100864;, - 0.993896; 0.048097; 0.099063;, - 0.976196; 0.206549; 0.066012;, - 0.923948; 0.380779; 0.035890;, - 0.914548; 0.404065; 0.016327;, - 0.914548; 0.404065; 0.016327;, - 0.975707; 0.212928; 0.050935;, - 0.976196; 0.206549; 0.066012;, - 0.975707; 0.212928; 0.050935;, - 0.914548; 0.404065; 0.016327;, - 0.831721; 0.342448;-0.436964;, - 0.988250; 0.130222; 0.079684;, - 0.976196; 0.206549; 0.066012;, - 0.975707; 0.212928; 0.050935;, - 0.988647; 0.134617; 0.066256;, - 0.988250; 0.130222; 0.079684;, - 0.975707; 0.212928; 0.050935;, - 0.975707; 0.212928; 0.050935;, - 0.851100; 0.191443;-0.488815;, - 0.988647; 0.134617; 0.066256;, - 0.851100; 0.191443;-0.488815;, - 0.975707; 0.212928; 0.050935;, - 0.831721; 0.342448;-0.436964;, - 0.870022; 0.116337;-0.479019;, - 0.988647; 0.134617; 0.066256;, - 0.851100; 0.191443;-0.488815;, - 0.975890; 0.200446; 0.086245;, - 0.928495; 0.364177; 0.072451;, - 0.928068; 0.365459; 0.071291;, - 0.928068; 0.365459; 0.071291;, - 0.975280; 0.203345; 0.086184;, - 0.975890; 0.200446; 0.086245;, - 0.975280; 0.203345; 0.086184;, - 0.928068; 0.365459; 0.071291;, - 0.923948; 0.380779; 0.035890;, - 0.987426; 0.125614; 0.095920;, - 0.975890; 0.200446; 0.086245;, - 0.975280; 0.203345; 0.086184;, - 0.987091; 0.127476; 0.096683;, - 0.987426; 0.125614; 0.095920;, - 0.975280; 0.203345; 0.086184;, - 0.975280; 0.203345; 0.086184;, - 0.976196; 0.206549; 0.066012;, - 0.987091; 0.127476; 0.096683;, - 0.976196; 0.206549; 0.066012;, - 0.975280; 0.203345; 0.086184;, - 0.923948; 0.380779; 0.035890;, - 0.988250; 0.130222; 0.079684;, - 0.987091; 0.127476; 0.096683;, - 0.976196; 0.206549; 0.066012;, - 0.995239; 0.049196; 0.083773;, - 0.988250; 0.130222; 0.079684;, - 0.988647; 0.134617; 0.066256;, - 0.988647; 0.134617; 0.066256;, - 0.996429; 0.049745; 0.067965;, - 0.995239; 0.049196; 0.083773;, - 0.996429; 0.049745; 0.067965;, - 0.988647; 0.134617; 0.066256;, - 0.870022; 0.116337;-0.479019;, - 0.996399; 0.000000; 0.084750;, - 0.995239; 0.049196; 0.083773;, - 0.996429; 0.049745; 0.067965;, - 0.997589; 0.000031; 0.069216;, - 0.996399; 0.000000; 0.084750;, - 0.996429; 0.049745; 0.067965;, - 0.996429; 0.049745; 0.067965;, - 0.866451; 0.043672;-0.497299;, - 0.997589; 0.000031; 0.069216;, - 0.866451; 0.043672;-0.497299;, - 0.996429; 0.049745; 0.067965;, - 0.870022; 0.116337;-0.479019;, - 0.871731; 0.000000;-0.489944;, - 0.997589; 0.000031; 0.069216;, - 0.866451; 0.043672;-0.497299;, - 0.987091; 0.127476; 0.096683;, - 0.988250; 0.130222; 0.079684;, - 0.993866; 0.048616; 0.099063;, - 0.993866; 0.048616; 0.099063;, - 0.993896; 0.048097; 0.099063;, - 0.987091; 0.127476; 0.096683;, - 0.993896; 0.048097; 0.099063;, - 0.993866; 0.048616; 0.099063;, - 0.994903;-0.000122; 0.100589;, - 0.987426; 0.125614; 0.095920;, - 0.987091; 0.127476; 0.096683;, - 0.993896; 0.048097; 0.099063;, - 0.993866; 0.048616; 0.099063;, - 0.988250; 0.130222; 0.079684;, - 0.995239; 0.049196; 0.083773;, - 0.995239; 0.049196; 0.083773;, - 0.994873;-0.000061; 0.100864;, - 0.993866; 0.048616; 0.099063;, - 0.994873;-0.000061; 0.100864;, - 0.995239; 0.049196; 0.083773;, - 0.996399; 0.000000; 0.084750;, - 0.994903;-0.000122; 0.100589;, - 0.993866; 0.048616; 0.099063;, - 0.994873;-0.000061; 0.100864;, - -0.487594; 0.000000;-0.873043;, - -0.485061;-0.048341;-0.873104;, - -0.486831;-0.052705;-0.871883;, - -0.486831;-0.052705;-0.871883;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.486831;-0.052705;-0.871883;, - -0.251503;-0.075289;-0.964904;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.251503;-0.075289;-0.964904;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.746361; 0.000000;-0.665517;, - -0.732109;-0.014649;-0.680990;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.732109;-0.014649;-0.680990;, - -0.487228;-0.045198;-0.872097;, - -0.487228;-0.045198;-0.872097;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487228;-0.045198;-0.872097;, - -0.485061;-0.048341;-0.873104;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - 0.992523; 0.109409;-0.053926;, - 0.969878; 0.101688;-0.221290;, - 0.981903; 0.181371;-0.054048;, - 0.981903; 0.181371;-0.054048;, - 0.981872; 0.181768;-0.053346;, - 0.992523; 0.109409;-0.053926;, - 0.981872; 0.181768;-0.053346;, - 0.981903; 0.181371;-0.054048;, - 0.992309; 0.112857;-0.050233;, - 0.992523; 0.109378;-0.053957;, - 0.992523; 0.109409;-0.053926;, - 0.981872; 0.181768;-0.053346;, - 0.981903; 0.181371;-0.054048;, - 0.969878; 0.101688;-0.221290;, - 0.953520; 0.175726;-0.244728;, - 0.953520; 0.175726;-0.244728;, - 0.992340; 0.111667;-0.052492;, - 0.981903; 0.181371;-0.054048;, - 0.992340; 0.111667;-0.052492;, - 0.953520; 0.175726;-0.244728;, - 0.963622; 0.093875;-0.250130;, - 0.992309; 0.112857;-0.050233;, - 0.981903; 0.181371;-0.054048;, - 0.992340; 0.111667;-0.052492;, - 0.992523; 0.109348;-0.053926;, - 0.992523; 0.109378;-0.053957;, - 0.981872; 0.181768;-0.053346;, - 0.981872; 0.181768;-0.053346;, - 0.982086; 0.181524;-0.050233;, - 0.992523; 0.109348;-0.053926;, - 0.982086; 0.181524;-0.050233;, - 0.981872; 0.181768;-0.053346;, - 0.992309; 0.112857;-0.050233;, - 0.759972; 0.083041;-0.644581;, - 0.992523; 0.109348;-0.053926;, - 0.982086; 0.181524;-0.050233;, - 0.743004; 0.137150;-0.655049;, - 0.759972; 0.083041;-0.644581;, - 0.982086; 0.181524;-0.050233;, - 0.982086; 0.181524;-0.050233;, - 0.992523; 0.112156;-0.047823;, - 0.743004; 0.137150;-0.655049;, - 0.992523; 0.112156;-0.047823;, - 0.982086; 0.181524;-0.050233;, - 0.992309; 0.112857;-0.050233;, - 0.741203; 0.092959;-0.664785;, - 0.743004; 0.137150;-0.655049;, - 0.992523; 0.112156;-0.047823;, - 0.998444; 0.000000;-0.055483;, - 0.976959;-0.000214;-0.213355;, - 0.975616; 0.036317;-0.216376;, - 0.975616; 0.036317;-0.216376;, - 0.997803; 0.036805;-0.054842;, - 0.998444; 0.000000;-0.055483;, - 0.997803; 0.036805;-0.054842;, - 0.975616; 0.036317;-0.216376;, - 0.969878; 0.101688;-0.221290;, - 0.998444; 0.000000;-0.055269;, - 0.998444; 0.000000;-0.055483;, - 0.997803; 0.036805;-0.054842;, - 0.997803; 0.036470;-0.054811;, - 0.998444; 0.000000;-0.055269;, - 0.997803; 0.036805;-0.054842;, - 0.997803; 0.036805;-0.054842;, - 0.992523; 0.109409;-0.053926;, - 0.997803; 0.036470;-0.054811;, - 0.992523; 0.109409;-0.053926;, - 0.997803; 0.036805;-0.054842;, - 0.969878; 0.101688;-0.221290;, - 0.992523; 0.109378;-0.053957;, - 0.997803; 0.036470;-0.054811;, - 0.992523; 0.109409;-0.053926;, - 0.998444; 0.000000;-0.055452;, - 0.998444; 0.000000;-0.055269;, - 0.997803; 0.036470;-0.054811;, - 0.997803; 0.036470;-0.054811;, - 0.997803; 0.036409;-0.054811;, - 0.998444; 0.000000;-0.055452;, - 0.997803; 0.036409;-0.054811;, - 0.997803; 0.036470;-0.054811;, - 0.992523; 0.109378;-0.053957;, - 0.756645; 0.000000;-0.653798;, - 0.998444; 0.000000;-0.055452;, - 0.997803; 0.036409;-0.054811;, - 0.750450; 0.027345;-0.660329;, - 0.756645; 0.000000;-0.653798;, - 0.997803; 0.036409;-0.054811;, - 0.997803; 0.036409;-0.054811;, - 0.992523; 0.109348;-0.053926;, - 0.750450; 0.027345;-0.660329;, - 0.992523; 0.109348;-0.053926;, - 0.997803; 0.036409;-0.054811;, - 0.992523; 0.109378;-0.053957;, - 0.759972; 0.083041;-0.644581;, - 0.750450; 0.027345;-0.660329;, - 0.992523; 0.109348;-0.053926;, - 0.992340; 0.111667;-0.052492;, - 0.963622; 0.093875;-0.250130;, - 0.997894; 0.037965;-0.052065;, - 0.997894; 0.037965;-0.052065;, - 0.997833; 0.041810;-0.050508;, - 0.992340; 0.111667;-0.052492;, - 0.997833; 0.041810;-0.050508;, - 0.997894; 0.037965;-0.052065;, - 0.665975; 0.742698;-0.069613;, - 0.992309; 0.112857;-0.050233;, - 0.992340; 0.111667;-0.052492;, - 0.997833; 0.041810;-0.050508;, - 0.997894; 0.037965;-0.052065;, - 0.963622; 0.093875;-0.250130;, - 0.967528; 0.016694;-0.252083;, - 0.967528; 0.016694;-0.252083;, - 0.654775; 0.749107;-0.100406;, - 0.997894; 0.037965;-0.052065;, - 0.654775; 0.749107;-0.100406;, - 0.967528; 0.016694;-0.252083;, - 0.579669; 0.778985;-0.239051;, - 0.665975; 0.742698;-0.069613;, - 0.997894; 0.037965;-0.052065;, - 0.654775; 0.749107;-0.100406;, - 0.760918; 0.053652;-0.646596;, - 0.741203; 0.092959;-0.664785;, - 0.992523; 0.112156;-0.047823;, - 0.992523; 0.112156;-0.047823;, - 0.997864; 0.042116;-0.049654;, - 0.760918; 0.053652;-0.646596;, - 0.997864; 0.042116;-0.049654;, - 0.992523; 0.112156;-0.047823;, - 0.992309; 0.112857;-0.050233;, - 0.565294; 0.647542;-0.510971;, - 0.760918; 0.053652;-0.646596;, - 0.997864; 0.042116;-0.049654;, - 0.651692; 0.757744;-0.032868;, - 0.565294; 0.647542;-0.510971;, - 0.997864; 0.042116;-0.049654;, - 0.997864; 0.042116;-0.049654;, - 0.997833; 0.041810;-0.050508;, - 0.651692; 0.757744;-0.032868;, - 0.997833; 0.041810;-0.050508;, - 0.997864; 0.042116;-0.049654;, - 0.992309; 0.112857;-0.050233;, - 0.665975; 0.742698;-0.069613;, - 0.651692; 0.757744;-0.032868;, - 0.997833; 0.041810;-0.050508;, - -0.261422;-0.147649;-0.953856;, - -0.251503;-0.075289;-0.964904;, - -0.486831;-0.052705;-0.871883;, - -0.486831;-0.052705;-0.871883;, - -0.475265;-0.099826;-0.874142;, - -0.261422;-0.147649;-0.953856;, - -0.475265;-0.099826;-0.874142;, - -0.486831;-0.052705;-0.871883;, - -0.485061;-0.048341;-0.873104;, - -0.197668; 0.771599;-0.604572;, - -0.261422;-0.147649;-0.953856;, - -0.475265;-0.099826;-0.874142;, - -0.338755; 0.683889;-0.646138;, - -0.197668; 0.771599;-0.604572;, - -0.475265;-0.099826;-0.874142;, - -0.475265;-0.099826;-0.874142;, - -0.475784;-0.092349;-0.874660;, - -0.338755; 0.683889;-0.646138;, - -0.475784;-0.092349;-0.874660;, - -0.475265;-0.099826;-0.874142;, - -0.485061;-0.048341;-0.873104;, - -0.340251; 0.686361;-0.642720;, - -0.338755; 0.683889;-0.646138;, - -0.475784;-0.092349;-0.874660;, - -0.475784;-0.092349;-0.874660;, - -0.485061;-0.048341;-0.873104;, - -0.487228;-0.045198;-0.872097;, - -0.487228;-0.045198;-0.872097;, - -0.476211;-0.084323;-0.875271;, - -0.475784;-0.092349;-0.874660;, - -0.476211;-0.084323;-0.875271;, - -0.487228;-0.045198;-0.872097;, - -0.732109;-0.014649;-0.680990;, - -0.340251; 0.686361;-0.642720;, - -0.475784;-0.092349;-0.874660;, - -0.476211;-0.084323;-0.875271;, - -0.334025; 0.690725;-0.641316;, - -0.340251; 0.686361;-0.642720;, - -0.476211;-0.084323;-0.875271;, - -0.476211;-0.084323;-0.875271;, - -0.738487;-0.018647;-0.673971;, - -0.334025; 0.690725;-0.641316;, - -0.738487;-0.018647;-0.673971;, - -0.476211;-0.084323;-0.875271;, - -0.732109;-0.014649;-0.680990;, - -0.443098; 0.797967;-0.408490;, - -0.334025; 0.690725;-0.641316;, - -0.738487;-0.018647;-0.673971;, - 0.914548; 0.404065; 0.016327;, - 0.923948; 0.380779; 0.035890;, - 0.831660; 0.554491;-0.028748;, - 0.831660; 0.554491;-0.028748;, - 0.732353; 0.515275;-0.445051;, - 0.914548; 0.404065; 0.016327;, - 0.732353; 0.515275;-0.445051;, - 0.831660; 0.554491;-0.028748;, - 0.539811; 0.743065;-0.395489;, - 0.831721; 0.342448;-0.436964;, - 0.914548; 0.404065; 0.016327;, - 0.732353; 0.515275;-0.445051;, - 0.831660; 0.554491;-0.028748;, - 0.923948; 0.380779; 0.035890;, - 0.848506; 0.529130;-0.006104;, - 0.848506; 0.529130;-0.006104;, - 0.517808; 0.845302;-0.131535;, - 0.831660; 0.554491;-0.028748;, - 0.517808; 0.845302;-0.131535;, - 0.848506; 0.529130;-0.006104;, - 0.509201; 0.857875;-0.068575;, - 0.539811; 0.743065;-0.395489;, - 0.831660; 0.554491;-0.028748;, - 0.517808; 0.845302;-0.131535;, - 0.928068; 0.365459; 0.071291;, - 0.928495; 0.364177; 0.072451;, - 0.852473; 0.519211; 0.060549;, - 0.852473; 0.519211; 0.060549;, - 0.848689; 0.526261; 0.052034;, - 0.928068; 0.365459; 0.071291;, - 0.848689; 0.526261; 0.052034;, - 0.852473; 0.519211; 0.060549;, - 0.518204; 0.855098; 0.014893;, - 0.923948; 0.380779; 0.035890;, - 0.928068; 0.365459; 0.071291;, - 0.848689; 0.526261; 0.052034;, - 0.848506; 0.529130;-0.006104;, - 0.923948; 0.380779; 0.035890;, - 0.848689; 0.526261; 0.052034;, - 0.848689; 0.526261; 0.052034;, - 0.515915; 0.856624;-0.000610;, - 0.848506; 0.529130;-0.006104;, - 0.515915; 0.856624;-0.000610;, - 0.848689; 0.526261; 0.052034;, - 0.518204; 0.855098; 0.014893;, - 0.509201; 0.857875;-0.068575;, - 0.848506; 0.529130;-0.006104;, - 0.515915; 0.856624;-0.000610;, - 0.929350; 0.361644; 0.073946;, - 0.929289; 0.361400; 0.075777;, - 0.853877; 0.515824; 0.068941;, - 0.853877; 0.515824; 0.068941;, - 0.853511; 0.517258; 0.062441;, - 0.929350; 0.361644; 0.073946;, - 0.853511; 0.517258; 0.062441;, - 0.853877; 0.515824; 0.068941;, - 0.520737; 0.852901; 0.036653;, - 0.928495; 0.364177; 0.072451;, - 0.929350; 0.361644; 0.073946;, - 0.853511; 0.517258; 0.062441;, - 0.852473; 0.519211; 0.060549;, - 0.928495; 0.364177; 0.072451;, - 0.853511; 0.517258; 0.062441;, - 0.853511; 0.517258; 0.062441;, - 0.521775; 0.852657; 0.025849;, - 0.852473; 0.519211; 0.060549;, - 0.521775; 0.852657; 0.025849;, - 0.853511; 0.517258; 0.062441;, - 0.520737; 0.852901; 0.036653;, - 0.518204; 0.855098; 0.014893;, - 0.852473; 0.519211; 0.060549;, - 0.521775; 0.852657; 0.025849;, - 0.929655; 0.360332; 0.076540;, - 0.930174; 0.365612;-0.032807;, - 0.864528; 0.502487;-0.006012;, - 0.864528; 0.502487;-0.006012;, - 0.853633; 0.515976; 0.070772;, - 0.929655; 0.360332; 0.076540;, - 0.853633; 0.515976; 0.070772;, - 0.864528; 0.502487;-0.006012;, - 0.483230; 0.872677; 0.069887;, - 0.929289; 0.361400; 0.075777;, - 0.929655; 0.360332; 0.076540;, - 0.853633; 0.515976; 0.070772;, - 0.853877; 0.515824; 0.068941;, - 0.929289; 0.361400; 0.075777;, - 0.853633; 0.515976; 0.070772;, - 0.853633; 0.515976; 0.070772;, - 0.522477; 0.851314; 0.047243;, - 0.853877; 0.515824; 0.068941;, - 0.522477; 0.851314; 0.047243;, - 0.853633; 0.515976; 0.070772;, - 0.483230; 0.872677; 0.069887;, - 0.520737; 0.852901; 0.036653;, - 0.853877; 0.515824; 0.068941;, - 0.522477; 0.851314; 0.047243;, - -0.058138; 0.328715; 0.942625;, - -0.029786; 0.677633; 0.734764;, - -0.087313; 0.677358; 0.730430;, - -0.087313; 0.677358; 0.730430;, - -0.120273; 0.318430; 0.940275;, - -0.058138; 0.328715; 0.942625;, - -0.120273; 0.318430; 0.940275;, - -0.087313; 0.677358; 0.730430;, - -0.108615; 0.687735; 0.717765;, - -0.031617; 0.627308; 0.778100;, - -0.058138; 0.328715; 0.942625;, - -0.120273; 0.318430; 0.940275;, - -0.059725; 0.638264; 0.767449;, - -0.031617; 0.627308; 0.778100;, - -0.120273; 0.318430; 0.940275;, - -0.120273; 0.318430; 0.940275;, - -0.179296; 0.308359; 0.934202;, - -0.059725; 0.638264; 0.767449;, - -0.179296; 0.308359; 0.934202;, - -0.120273; 0.318430; 0.940275;, - -0.108615; 0.687735; 0.717765;, - -0.123173; 0.629200; 0.767388;, - -0.059725; 0.638264; 0.767449;, - -0.179296; 0.308359; 0.934202;, - 0.000305; 0.330515; 0.943785;, - 0.137822; 0.295846; 0.945219;, - 0.008423; 0.661122; 0.750206;, - 0.008423; 0.661122; 0.750206;, - 0.013855; 0.332408; 0.943022;, - 0.000305; 0.330515; 0.943785;, - 0.013855; 0.332408; 0.943022;, - 0.008423; 0.661122; 0.750206;, - -0.029786; 0.677633; 0.734764;, - 0.000519; 0.647755; 0.761803;, - 0.000305; 0.330515; 0.943785;, - 0.013855; 0.332408; 0.943022;, - 0.007141; 0.645344; 0.763817;, - 0.000519; 0.647755; 0.761803;, - 0.013855; 0.332408; 0.943022;, - 0.013855; 0.332408; 0.943022;, - -0.058138; 0.328715; 0.942625;, - 0.007141; 0.645344; 0.763817;, - -0.058138; 0.328715; 0.942625;, - 0.013855; 0.332408; 0.943022;, - -0.029786; 0.677633; 0.734764;, - -0.031617; 0.627308; 0.778100;, - 0.007141; 0.645344; 0.763817;, - -0.058138; 0.328715; 0.942625;, - 0.311289; 0.661153;-0.682607;, - 0.444136; 0.768578;-0.460402;, - 0.703696;-0.069613;-0.707053;, - 0.703696;-0.069613;-0.707053;, - 0.422956;-0.120243;-0.898099;, - 0.311289; 0.661153;-0.682607;, - 0.422956;-0.120243;-0.898099;, - 0.703696;-0.069613;-0.707053;, - 0.707205; 0.020203;-0.706687;, - 0.422956;-0.120243;-0.898099;, - 0.166814; 0.712210;-0.681845;, - 0.311289; 0.661153;-0.682607;, - 0.219337;-0.157231;-0.962859;, - 0.166814; 0.712210;-0.681845;, - 0.422956;-0.120243;-0.898099;, - 0.422956;-0.120243;-0.898099;, - 0.431562;-0.032533;-0.901486;, - 0.219337;-0.157231;-0.962859;, - 0.431562;-0.032533;-0.901486;, - 0.422956;-0.120243;-0.898099;, - 0.707205; 0.020203;-0.706687;, - 0.222541;-0.064089;-0.972808;, - 0.219337;-0.157231;-0.962859;, - 0.431562;-0.032533;-0.901486;, - 0.900815; 0.073458;-0.427900;, - 0.707205; 0.020203;-0.706687;, - 0.703696;-0.069613;-0.707053;, - 0.703696;-0.069613;-0.707053;, - 0.901212;-0.009522;-0.433241;, - 0.900815; 0.073458;-0.427900;, - 0.901212;-0.009522;-0.433241;, - 0.703696;-0.069613;-0.707053;, - 0.444136; 0.768578;-0.460402;, - 0.963622; 0.093875;-0.250130;, - 0.900815; 0.073458;-0.427900;, - 0.901212;-0.009522;-0.433241;, - 0.967528; 0.016694;-0.252083;, - 0.963622; 0.093875;-0.250130;, - 0.901212;-0.009522;-0.433241;, - 0.901212;-0.009522;-0.433241;, - 0.624104; 0.687155;-0.371807;, - 0.967528; 0.016694;-0.252083;, - 0.624104; 0.687155;-0.371807;, - 0.901212;-0.009522;-0.433241;, - 0.444136; 0.768578;-0.460402;, - 0.579669; 0.778985;-0.239051;, - 0.967528; 0.016694;-0.252083;, - 0.624104; 0.687155;-0.371807;, - 0.021760; 0.333354; 0.942534;, - 0.017365; 0.170385; 0.985198;, - -0.020081; 0.169561; 0.985290;, - -0.020081; 0.169561; 0.985290;, - -0.015656; 0.331980; 0.943144;, - 0.021760; 0.333354; 0.942534;, - -0.015656; 0.331980; 0.943144;, - -0.020081; 0.169561; 0.985290;, - -0.018067; 0.168371; 0.985534;, - 0.026154; 0.641774; 0.766411;, - 0.021760; 0.333354; 0.942534;, - -0.015656; 0.331980; 0.943144;, - -0.007324; 0.644307; 0.764702;, - 0.026154; 0.641774; 0.766411;, - -0.015656; 0.331980; 0.943144;, - -0.015656; 0.331980; 0.943144;, - -0.014191; 0.330363; 0.943724;, - -0.007324; 0.644307; 0.764702;, - -0.014191; 0.330363; 0.943724;, - -0.015656; 0.331980; 0.943144;, - -0.018067; 0.168371; 0.985534;, - -0.007477; 0.644185; 0.764794;, - -0.007324; 0.644307; 0.764702;, - -0.014191; 0.330363; 0.943724;, - -0.014191; 0.330363; 0.943724;, - -0.018067; 0.168371; 0.985534;, - -0.016694; 0.167180; 0.985778;, - -0.016694; 0.167180; 0.985778;, - -0.014191; 0.329753; 0.943937;, - -0.014191; 0.330363; 0.943724;, - -0.014191; 0.329753; 0.943937;, - -0.016694; 0.167180; 0.985778;, - 0.137822; 0.295846; 0.945219;, - -0.007477; 0.644185; 0.764794;, - -0.014191; 0.330363; 0.943724;, - -0.014191; 0.329753; 0.943937;, - -0.007324; 0.643788; 0.765130;, - -0.007477; 0.644185; 0.764794;, - -0.014191; 0.329753; 0.943937;, - -0.014191; 0.329753; 0.943937;, - 0.000305; 0.330515; 0.943785;, - -0.007324; 0.643788; 0.765130;, - 0.000305; 0.330515; 0.943785;, - -0.014191; 0.329753; 0.943937;, - 0.137822; 0.295846; 0.945219;, - 0.000519; 0.647755; 0.761803;, - -0.007324; 0.643788; 0.765130;, - 0.000305; 0.330515; 0.943785;, - 0.331065; 0.507859; 0.795251;, - 0.425550; 0.320658; 0.846187;, - 0.076876; 0.257210; 0.963286;, - 0.076876; 0.257210; 0.963286;, - 0.079501; 0.384472; 0.919675;, - 0.331065; 0.507859; 0.795251;, - 0.079501; 0.384472; 0.919675;, - 0.076876; 0.257210; 0.963286;, - 0.050630; 0.209387; 0.976501;, - 0.215217; 0.655599; 0.723746;, - 0.331065; 0.507859; 0.795251;, - 0.079501; 0.384472; 0.919675;, - 0.077792; 0.668905; 0.739219;, - 0.215217; 0.655599; 0.723746;, - 0.079501; 0.384472; 0.919675;, - 0.079501; 0.384472; 0.919675;, - 0.067080; 0.374401; 0.924802;, - 0.077792; 0.668905; 0.739219;, - 0.067080; 0.374401; 0.924802;, - 0.079501; 0.384472; 0.919675;, - 0.050630; 0.209387; 0.976501;, - 0.065310; 0.661946; 0.746666;, - 0.077792; 0.668905; 0.739219;, - 0.067080; 0.374401; 0.924802;, - 0.067080; 0.374401; 0.924802;, - 0.050630; 0.209387; 0.976501;, - 0.050111; 0.186499; 0.981170;, - 0.050111; 0.186499; 0.981170;, - 0.055544; 0.349864; 0.935118;, - 0.067080; 0.374401; 0.924802;, - 0.055544; 0.349864; 0.935118;, - 0.050111; 0.186499; 0.981170;, - 0.017365; 0.170385; 0.985198;, - 0.065310; 0.661946; 0.746666;, - 0.067080; 0.374401; 0.924802;, - 0.055544; 0.349864; 0.935118;, - 0.062502; 0.642445; 0.763756;, - 0.065310; 0.661946; 0.746666;, - 0.055544; 0.349864; 0.935118;, - 0.055544; 0.349864; 0.935118;, - 0.021760; 0.333354; 0.942534;, - 0.062502; 0.642445; 0.763756;, - 0.021760; 0.333354; 0.942534;, - 0.055544; 0.349864; 0.935118;, - 0.017365; 0.170385; 0.985198;, - 0.026154; 0.641774; 0.766411;, - 0.062502; 0.642445; 0.763756;, - 0.021760; 0.333354; 0.942534;, - -0.179296; 0.308359; 0.934202;, - -0.108615; 0.687735; 0.717765;, - -0.146886; 0.667684; 0.729789;, - -0.146886; 0.667684; 0.729789;, - -0.248054; 0.302072; 0.920438;, - -0.179296; 0.308359; 0.934202;, - -0.248054; 0.302072; 0.920438;, - -0.146886; 0.667684; 0.729789;, - -0.099368; 0.637898; 0.763634;, - -0.123173; 0.629200; 0.767388;, - -0.179296; 0.308359; 0.934202;, - -0.248054; 0.302072; 0.920438;, - -0.182287; 0.630634; 0.754326;, - -0.123173; 0.629200; 0.767388;, - -0.248054; 0.302072; 0.920438;, - -0.248054; 0.302072; 0.920438;, - -0.124821; 0.314249; 0.941069;, - -0.182287; 0.630634; 0.754326;, - -0.124821; 0.314249; 0.941069;, - -0.248054; 0.302072; 0.920438;, - -0.099368; 0.637898; 0.763634;, - -0.099033; 0.730827; 0.675283;, - -0.182287; 0.630634; 0.754326;, - -0.124821; 0.314249; 0.941069;, - 0.000702; 0.560106; 0.828394;, - -0.088198; 0.437635; 0.894803;, - -0.007874; 0.320170; 0.947325;, - -0.007874; 0.320170; 0.947325;, - 0.001862; 0.319987; 0.947386;, - 0.000702; 0.560106; 0.828394;, - 0.001862; 0.319987; 0.947386;, - -0.007874; 0.320170; 0.947325;, - -0.003327; 0.745232; 0.666768;, - -0.099368; 0.637898; 0.763634;, - 0.000702; 0.560106; 0.828394;, - 0.001862; 0.319987; 0.947386;, - -0.124821; 0.314249; 0.941069;, - -0.099368; 0.637898; 0.763634;, - 0.001862; 0.319987; 0.947386;, - 0.001862; 0.319987; 0.947386;, - -0.000061; 0.725333; 0.688375;, - -0.124821; 0.314249; 0.941069;, - -0.000061; 0.725333; 0.688375;, - 0.001862; 0.319987; 0.947386;, - -0.003327; 0.745232; 0.666768;, - -0.099033; 0.730827; 0.675283;, - -0.124821; 0.314249; 0.941069;, - -0.000061; 0.725333; 0.688375;, - -0.234382;-0.203955;-0.950499;, - -0.252327;-0.092074;-0.963225;, - -0.458144;-0.213416;-0.862850;, - -0.458144;-0.213416;-0.862850;, - -0.351238; 0.618763;-0.702658;, - -0.234382;-0.203955;-0.950499;, - -0.351238; 0.618763;-0.702658;, - -0.458144;-0.213416;-0.862850;, - -0.453261; 0.740135;-0.496719;, - -0.158147; 0.701865;-0.694479;, - -0.234382;-0.203955;-0.950499;, - -0.351238; 0.618763;-0.702658;, - -0.458144;-0.213416;-0.862850;, - -0.252327;-0.092074;-0.963225;, - -0.468825;-0.086703;-0.878994;, - -0.468825;-0.086703;-0.878994;, - -0.738548;-0.227332;-0.634663;, - -0.458144;-0.213416;-0.862850;, - -0.738548;-0.227332;-0.634663;, - -0.468825;-0.086703;-0.878994;, - -0.747368;-0.093844;-0.657704;, - -0.453261; 0.740135;-0.496719;, - -0.458144;-0.213416;-0.862850;, - -0.738548;-0.227332;-0.634663;, - -0.000336; 0.645741;-0.763512;, - 0.166814; 0.712210;-0.681845;, - 0.219337;-0.157231;-0.962859;, - 0.219337;-0.157231;-0.962859;, - -0.000427;-0.179296;-0.983764;, - -0.000336; 0.645741;-0.763512;, - -0.000427;-0.179296;-0.983764;, - 0.219337;-0.157231;-0.962859;, - 0.222541;-0.064089;-0.972808;, - -0.158147; 0.701865;-0.694479;, - -0.000336; 0.645741;-0.763512;, - -0.000427;-0.179296;-0.983764;, - -0.234382;-0.203955;-0.950499;, - -0.158147; 0.701865;-0.694479;, - -0.000427;-0.179296;-0.983764;, - -0.000427;-0.179296;-0.983764;, - -0.000458;-0.090030;-0.995911;, - -0.234382;-0.203955;-0.950499;, - -0.000458;-0.090030;-0.995911;, - -0.000427;-0.179296;-0.983764;, - 0.222541;-0.064089;-0.972808;, - -0.252327;-0.092074;-0.963225;, - -0.234382;-0.203955;-0.950499;, - -0.000458;-0.090030;-0.995911;, - 0.093112; 0.052644;-0.994232;, - 0.096377; 0.031465;-0.994842;, - 0.199469; 0.049165;-0.978637;, - 0.199469; 0.049165;-0.978637;, - 0.057711; 0.729728;-0.681265;, - 0.093112; 0.052644;-0.994232;, - 0.057711; 0.729728;-0.681265;, - 0.199469; 0.049165;-0.978637;, - 0.565294; 0.647542;-0.510971;, - 0.034822; 0.693319;-0.719779;, - 0.093112; 0.052644;-0.994232;, - 0.057711; 0.729728;-0.681265;, - 0.199469; 0.049165;-0.978637;, - 0.096377; 0.031465;-0.994842;, - 0.208472; 0.037446;-0.977294;, - 0.208472; 0.037446;-0.977294;, - 0.760918; 0.053652;-0.646596;, - 0.199469; 0.049165;-0.978637;, - 0.760918; 0.053652;-0.646596;, - 0.208472; 0.037446;-0.977294;, - 0.741203; 0.092959;-0.664785;, - 0.565294; 0.647542;-0.510971;, - 0.199469; 0.049165;-0.978637;, - 0.760918; 0.053652;-0.646596;, - -0.001404; 0.040498;-0.999176;, - -0.001312; 0.020295;-0.999786;, - -0.005493; 0.020631;-0.999756;, - -0.005493; 0.020631;-0.999756;, - -0.005219; 0.044923;-0.998962;, - -0.001404; 0.040498;-0.999176;, - -0.005219; 0.044923;-0.998962;, - -0.005493; 0.020631;-0.999756;, - 0.096377; 0.031465;-0.994842;, - 0.006226; 0.719810;-0.694113;, - -0.001404; 0.040498;-0.999176;, - -0.005219; 0.044923;-0.998962;, - -0.004334; 0.724204;-0.689535;, - 0.006226; 0.719810;-0.694113;, - -0.005219; 0.044923;-0.998962;, - -0.005219; 0.044923;-0.998962;, - 0.093112; 0.052644;-0.994232;, - -0.004334; 0.724204;-0.689535;, - 0.093112; 0.052644;-0.994232;, - -0.005219; 0.044923;-0.998962;, - 0.096377; 0.031465;-0.994842;, - 0.034822; 0.693319;-0.719779;, - -0.004334; 0.724204;-0.689535;, - 0.093112; 0.052644;-0.994232;, - -0.248268; 0.068789;-0.966216;, - -0.267464; 0.034028;-0.962951;, - 0.002960; 0.020234;-0.999786;, - 0.002960; 0.020234;-0.999786;, - 0.002869; 0.040498;-0.999146;, - -0.248268; 0.068789;-0.966216;, - 0.002869; 0.040498;-0.999146;, - 0.002960; 0.020234;-0.999786;, - -0.001312; 0.020295;-0.999786;, - -0.160192; 0.696799;-0.699118;, - -0.248268; 0.068789;-0.966216;, - 0.002869; 0.040498;-0.999146;, - 0.019776; 0.722526;-0.691031;, - -0.160192; 0.696799;-0.699118;, - 0.002869; 0.040498;-0.999146;, - 0.002869; 0.040498;-0.999146;, - -0.001404; 0.040498;-0.999176;, - 0.019776; 0.722526;-0.691031;, - -0.001404; 0.040498;-0.999176;, - 0.002869; 0.040498;-0.999146;, - -0.001312; 0.020295;-0.999786;, - 0.006226; 0.719810;-0.694113;, - 0.019776; 0.722526;-0.691031;, - -0.001404; 0.040498;-0.999176;, - -0.853542; 0.117832;-0.507492;, - -0.861538; 0.057344;-0.504410;, - -0.505356; 0.043794;-0.861782;, - -0.505356; 0.043794;-0.861782;, - -0.493667; 0.089938;-0.864956;, - -0.853542; 0.117832;-0.507492;, - -0.493667; 0.089938;-0.864956;, - -0.505356; 0.043794;-0.861782;, - -0.267464; 0.034028;-0.962951;, - -0.637379; 0.646046;-0.419874;, - -0.853542; 0.117832;-0.507492;, - -0.493667; 0.089938;-0.864956;, - -0.318033; 0.755486;-0.572771;, - -0.637379; 0.646046;-0.419874;, - -0.493667; 0.089938;-0.864956;, - -0.493667; 0.089938;-0.864956;, - -0.248268; 0.068789;-0.966216;, - -0.318033; 0.755486;-0.572771;, - -0.248268; 0.068789;-0.966216;, - -0.493667; 0.089938;-0.864956;, - -0.267464; 0.034028;-0.962951;, - -0.160192; 0.696799;-0.699118;, - -0.318033; 0.755486;-0.572771;, - -0.248268; 0.068789;-0.966216;, - -0.969939; 0.089877;-0.226081;, - -0.974425; 0.042665;-0.220588;, - -0.992981; 0.113407;-0.033174;, - -0.992981; 0.113407;-0.033174;, - -0.655263; 0.751396;-0.077242;, - -0.969939; 0.089877;-0.226081;, - -0.655263; 0.751396;-0.077242;, - -0.992981; 0.113407;-0.033174;, - -0.637379; 0.646046;-0.419874;, - -0.593524; 0.777703;-0.207007;, - -0.969939; 0.089877;-0.226081;, - -0.655263; 0.751396;-0.077242;, - -0.992981; 0.113407;-0.033174;, - -0.974425; 0.042665;-0.220588;, - -0.997803; 0.059603;-0.028352;, - -0.997803; 0.059603;-0.028352;, - -0.853542; 0.117832;-0.507492;, - -0.992981; 0.113407;-0.033174;, - -0.853542; 0.117832;-0.507492;, - -0.997803; 0.059603;-0.028352;, - -0.861538; 0.057344;-0.504410;, - -0.637379; 0.646046;-0.419874;, - -0.992981; 0.113407;-0.033174;, - -0.853542; 0.117832;-0.507492;, - -0.738487;-0.018647;-0.673971;, - -0.732109;-0.014649;-0.680990;, - -0.922513; 0.021607;-0.385327;, - -0.922513; 0.021607;-0.385327;, - -0.916166; 0.055940;-0.396863;, - -0.738487;-0.018647;-0.673971;, - -0.916166; 0.055940;-0.396863;, - -0.922513; 0.021607;-0.385327;, - -0.974425; 0.042665;-0.220588;, - -0.443098; 0.797967;-0.408490;, - -0.738487;-0.018647;-0.673971;, - -0.916166; 0.055940;-0.396863;, - -0.604846; 0.720084;-0.340007;, - -0.443098; 0.797967;-0.408490;, - -0.916166; 0.055940;-0.396863;, - -0.916166; 0.055940;-0.396863;, - -0.969939; 0.089877;-0.226081;, - -0.604846; 0.720084;-0.340007;, - -0.969939; 0.089877;-0.226081;, - -0.916166; 0.055940;-0.396863;, - -0.974425; 0.042665;-0.220588;, - -0.593524; 0.777703;-0.207007;, - -0.604846; 0.720084;-0.340007;, - -0.969939; 0.089877;-0.226081;, - -0.024323; 0.398389; 0.916868;, - -0.032960; 0.390912; 0.919828;, - -0.032960; 0.281503; 0.958983;, - -0.032960; 0.281503; 0.958983;, - -0.022034; 0.300882; 0.953398;, - -0.024323; 0.398389; 0.916868;, - -0.022034; 0.300882; 0.953398;, - -0.032960; 0.281503; 0.958983;, - -0.006195; 0.748100; 0.663533;, - -0.088198; 0.437635; 0.894803;, - -0.024323; 0.398389; 0.916868;, - -0.022034; 0.300882; 0.953398;, - -0.007874; 0.320170; 0.947325;, - -0.088198; 0.437635; 0.894803;, - -0.022034; 0.300882; 0.953398;, - -0.022034; 0.300882; 0.953398;, - 0.004273; 0.762108; 0.647420;, - -0.007874; 0.320170; 0.947325;, - 0.004273; 0.762108; 0.647420;, - -0.022034; 0.300882; 0.953398;, - -0.006195; 0.748100; 0.663533;, - -0.003327; 0.745232; 0.666768;, - -0.007874; 0.320170; 0.947325;, - 0.004273; 0.762108; 0.647420;, - -0.042604; 0.387555; 0.920835;, - -0.060823; 0.388104; 0.919584;, - -0.064699; 0.275460; 0.959105;, - -0.064699; 0.275460; 0.959105;, - -0.042787; 0.277932; 0.959624;, - -0.042604; 0.387555; 0.920835;, - -0.042787; 0.277932; 0.959624;, - -0.064699; 0.275460; 0.959105;, - -0.044801; 0.752708; 0.656789;, - -0.032960; 0.390912; 0.919828;, - -0.042604; 0.387555; 0.920835;, - -0.042787; 0.277932; 0.959624;, - -0.032960; 0.281503; 0.958983;, - -0.032960; 0.390912; 0.919828;, - -0.042787; 0.277932; 0.959624;, - -0.042787; 0.277932; 0.959624;, - -0.012085; 0.749199; 0.662191;, - -0.032960; 0.281503; 0.958983;, - -0.012085; 0.749199; 0.662191;, - -0.042787; 0.277932; 0.959624;, - -0.044801; 0.752708; 0.656789;, - -0.006195; 0.748100; 0.663533;, - -0.032960; 0.281503; 0.958983;, - -0.012085; 0.749199; 0.662191;, - -0.584124; 0.135014;-0.800317;, - -0.594043; 0.115238;-0.796106;, - 0.014069;-0.002564;-0.999878;, - 0.014069;-0.002564;-0.999878;, - 0.014557;-0.003204;-0.999878;, - -0.584124; 0.135014;-0.800317;, - 0.014557;-0.003204;-0.999878;, - 0.014069;-0.002564;-0.999878;, - 0.014039;-0.002350;-0.999878;, - -0.579547; 0.263192;-0.771233;, - -0.584124; 0.135014;-0.800317;, - 0.014557;-0.003204;-0.999878;, - 0.009400; 0.036592;-0.999268;, - -0.579547; 0.263192;-0.771233;, - 0.014557;-0.003204;-0.999878;, - 0.014557;-0.003204;-0.999878;, - 0.014557;-0.003052;-0.999878;, - 0.009400; 0.036592;-0.999268;, - 0.014557;-0.003052;-0.999878;, - 0.014557;-0.003204;-0.999878;, - 0.014039;-0.002350;-0.999878;, - 0.006745; 0.035249;-0.999329;, - 0.009400; 0.036592;-0.999268;, - 0.014557;-0.003052;-0.999878;, - 0.014557;-0.003052;-0.999878;, - 0.014039;-0.002350;-0.999878;, - 0.014069;-0.002136;-0.999878;, - 0.014069;-0.002136;-0.999878;, - 0.014710;-0.002136;-0.999878;, - 0.014557;-0.003052;-0.999878;, - 0.014710;-0.002136;-0.999878;, - 0.014069;-0.002136;-0.999878;, - 0.022889;-0.002075;-0.999725;, - 0.006745; 0.035249;-0.999329;, - 0.014557;-0.003052;-0.999878;, - 0.014710;-0.002136;-0.999878;, - -0.006043; 0.046999;-0.998871;, - 0.006745; 0.035249;-0.999329;, - 0.014710;-0.002136;-0.999878;, - 0.014710;-0.002136;-0.999878;, - 0.023499;-0.002075;-0.999695;, - -0.006043; 0.046999;-0.998871;, - 0.023499;-0.002075;-0.999695;, - 0.014710;-0.002136;-0.999878;, - 0.022889;-0.002075;-0.999725;, - -0.041536; 0.296518;-0.954100;, - -0.006043; 0.046999;-0.998871;, - 0.023499;-0.002075;-0.999695;, - 0.023499;-0.002075;-0.999695;, - 0.022889;-0.002075;-0.999725;, - 0.031648;-0.002289;-0.999481;, - 0.031648;-0.002289;-0.999481;, - 0.036409; 0.004028;-0.999329;, - 0.023499;-0.002075;-0.999695;, - 0.036409; 0.004028;-0.999329;, - 0.031648;-0.002289;-0.999481;, - 0.673452;-0.084689;-0.734336;, - -0.041536; 0.296518;-0.954100;, - 0.023499;-0.002075;-0.999695;, - 0.036409; 0.004028;-0.999329;, - 0.040925; 0.097476;-0.994385;, - -0.041536; 0.296518;-0.954100;, - 0.036409; 0.004028;-0.999329;, - 0.036409; 0.004028;-0.999329;, - 0.688711;-0.137913;-0.711783;, - 0.040925; 0.097476;-0.994385;, - 0.688711;-0.137913;-0.711783;, - 0.036409; 0.004028;-0.999329;, - 0.673452;-0.084689;-0.734336;, - 0.647420; 0.488815;-0.584674;, - 0.040925; 0.097476;-0.994385;, - 0.688711;-0.137913;-0.711783;, - 0.063906; 0.708090;-0.703207;, - -0.039888; 0.672750;-0.738762;, - -0.090976;-0.023225;-0.995575;, - -0.090976;-0.023225;-0.995575;, - 0.019868; 0.007569;-0.999756;, - 0.063906; 0.708090;-0.703207;, - 0.019868; 0.007569;-0.999756;, - -0.090976;-0.023225;-0.995575;, - -0.079196;-0.007416;-0.996826;, - 0.090854; 0.700583;-0.707755;, - 0.063906; 0.708090;-0.703207;, - 0.019868; 0.007569;-0.999756;, - 0.080874; 0.038606;-0.995972;, - 0.090854; 0.700583;-0.707755;, - 0.019868; 0.007569;-0.999756;, - 0.019868; 0.007569;-0.999756;, - 0.020600; 0.002655;-0.999756;, - 0.080874; 0.038606;-0.995972;, - 0.020600; 0.002655;-0.999756;, - 0.019868; 0.007569;-0.999756;, - -0.079196;-0.007416;-0.996826;, - 0.084201; 0.029542;-0.996002;, - 0.080874; 0.038606;-0.995972;, - 0.020600; 0.002655;-0.999756;, - -0.100497; 0.690634;-0.716147;, - -0.673849; 0.490890;-0.552202;, - -0.744835;-0.200781;-0.636280;, - -0.744835;-0.200781;-0.636280;, - -0.204352;-0.055635;-0.977294;, - -0.100497; 0.690634;-0.716147;, - -0.204352;-0.055635;-0.977294;, - -0.744835;-0.200781;-0.636280;, - -0.730247;-0.079714;-0.678457;, - -0.039888; 0.672750;-0.738762;, - -0.100497; 0.690634;-0.716147;, - -0.204352;-0.055635;-0.977294;, - -0.090976;-0.023225;-0.995575;, - -0.039888; 0.672750;-0.738762;, - -0.204352;-0.055635;-0.977294;, - -0.204352;-0.055635;-0.977294;, - -0.199194;-0.025086;-0.979614;, - -0.090976;-0.023225;-0.995575;, - -0.199194;-0.025086;-0.979614;, - -0.204352;-0.055635;-0.977294;, - -0.730247;-0.079714;-0.678457;, - -0.079196;-0.007416;-0.996826;, - -0.090976;-0.023225;-0.995575;, - -0.199194;-0.025086;-0.979614;, - -0.951231;-0.250099;-0.180517;, - -0.973601;-0.105533;-0.202307;, - -0.967864;-0.250740;-0.017487;, - -0.967864;-0.250740;-0.017487;, - -0.764519; 0.632221;-0.125401;, - -0.951231;-0.250099;-0.180517;, - -0.764519; 0.632221;-0.125401;, - -0.967864;-0.250740;-0.017487;, - -0.673849; 0.490890;-0.552202;, - -0.697195; 0.671712;-0.250282;, - -0.951231;-0.250099;-0.180517;, - -0.764519; 0.632221;-0.125401;, - -0.967864;-0.250740;-0.017487;, - -0.973601;-0.105533;-0.202307;, - -0.993347;-0.108737;-0.037751;, - -0.993347;-0.108737;-0.037751;, - -0.744835;-0.200781;-0.636280;, - -0.967864;-0.250740;-0.017487;, - -0.744835;-0.200781;-0.636280;, - -0.993347;-0.108737;-0.037751;, - -0.730247;-0.079714;-0.678457;, - -0.673849; 0.490890;-0.552202;, - -0.967864;-0.250740;-0.017487;, - -0.744835;-0.200781;-0.636280;, - -0.738548;-0.227332;-0.634663;, - -0.747368;-0.093844;-0.657704;, - -0.912259;-0.233802;-0.336314;, - -0.912259;-0.233802;-0.336314;, - -0.688955; 0.634419;-0.350444;, - -0.738548;-0.227332;-0.634663;, - -0.688955; 0.634419;-0.350444;, - -0.912259;-0.233802;-0.336314;, - -0.697195; 0.671712;-0.250282;, - -0.453261; 0.740135;-0.496719;, - -0.738548;-0.227332;-0.634663;, - -0.688955; 0.634419;-0.350444;, - -0.912259;-0.233802;-0.336314;, - -0.747368;-0.093844;-0.657704;, - -0.925565;-0.105838;-0.363445;, - -0.925565;-0.105838;-0.363445;, - -0.951231;-0.250099;-0.180517;, - -0.912259;-0.233802;-0.336314;, - -0.951231;-0.250099;-0.180517;, - -0.925565;-0.105838;-0.363445;, - -0.973601;-0.105533;-0.202307;, - -0.697195; 0.671712;-0.250282;, - -0.912259;-0.233802;-0.336314;, - -0.951231;-0.250099;-0.180517;, - 0.989532;-0.133549;-0.054598;, - 0.958464;-0.128574;-0.254524;, - 0.976531;-0.209632;-0.048830;, - 0.976531;-0.209632;-0.048830;, - 0.688711;-0.137913;-0.711783;, - 0.989532;-0.133549;-0.054598;, - 0.688711;-0.137913;-0.711783;, - 0.976531;-0.209632;-0.048830;, - 0.647420; 0.488815;-0.584674;, - 0.673452;-0.084689;-0.734336;, - 0.989532;-0.133549;-0.054598;, - 0.688711;-0.137913;-0.711783;, - 0.976531;-0.209632;-0.048830;, - 0.958464;-0.128574;-0.254524;, - 0.946532;-0.214820;-0.240608;, - 0.946532;-0.214820;-0.240608;, - 0.787591; 0.610034;-0.086764;, - 0.976531;-0.209632;-0.048830;, - 0.787591; 0.610034;-0.086764;, - 0.946532;-0.214820;-0.240608;, - 0.676901; 0.714499;-0.176763;, - 0.647420; 0.488815;-0.584674;, - 0.976531;-0.209632;-0.048830;, - 0.787591; 0.610034;-0.086764;, - 0.891842;-0.122105;-0.435499;, - 0.711600;-0.118748;-0.692465;, - 0.878842;-0.215918;-0.425398;, - 0.878842;-0.215918;-0.425398;, - 0.946532;-0.214820;-0.240608;, - 0.891842;-0.122105;-0.435499;, - 0.946532;-0.214820;-0.240608;, - 0.878842;-0.215918;-0.425398;, - 0.676901; 0.714499;-0.176763;, - 0.958464;-0.128574;-0.254524;, - 0.891842;-0.122105;-0.435499;, - 0.946532;-0.214820;-0.240608;, - 0.878842;-0.215918;-0.425398;, - 0.711600;-0.118748;-0.692465;, - 0.702628;-0.223792;-0.675405;, - 0.702628;-0.223792;-0.675405;, - 0.628864; 0.676992;-0.382275;, - 0.878842;-0.215918;-0.425398;, - 0.628864; 0.676992;-0.382275;, - 0.702628;-0.223792;-0.675405;, - 0.419019; 0.761620;-0.494278;, - 0.676901; 0.714499;-0.176763;, - 0.878842;-0.215918;-0.425398;, - 0.628864; 0.676992;-0.382275;, - 0.702628;-0.223792;-0.675405;, - 0.711600;-0.118748;-0.692465;, - 0.466720;-0.106174;-0.877987;, - 0.466720;-0.106174;-0.877987;, - 0.455153;-0.217566;-0.863399;, - 0.702628;-0.223792;-0.675405;, - 0.455153;-0.217566;-0.863399;, - 0.466720;-0.106174;-0.877987;, - 0.233406;-0.103580;-0.966826;, - 0.419019; 0.761620;-0.494278;, - 0.702628;-0.223792;-0.675405;, - 0.455153;-0.217566;-0.863399;, - 0.321329; 0.663900;-0.675222;, - 0.419019; 0.761620;-0.494278;, - 0.455153;-0.217566;-0.863399;, - 0.455153;-0.217566;-0.863399;, - 0.219764;-0.210028;-0.952666;, - 0.321329; 0.663900;-0.675222;, - 0.219764;-0.210028;-0.952666;, - 0.455153;-0.217566;-0.863399;, - 0.233406;-0.103580;-0.966826;, - 0.132908; 0.754631;-0.642506;, - 0.321329; 0.663900;-0.675222;, - 0.219764;-0.210028;-0.952666;, - 0.219764;-0.210028;-0.952666;, - 0.233406;-0.103580;-0.966826;, - -0.024293;-0.092044;-0.995453;, - -0.024293;-0.092044;-0.995453;, - -0.023316;-0.182287;-0.982940;, - 0.219764;-0.210028;-0.952666;, - -0.023316;-0.182287;-0.982940;, - -0.024293;-0.092044;-0.995453;, - -0.251503;-0.075289;-0.964904;, - 0.132908; 0.754631;-0.642506;, - 0.219764;-0.210028;-0.952666;, - -0.023316;-0.182287;-0.982940;, - -0.016846; 0.694113;-0.719626;, - 0.132908; 0.754631;-0.642506;, - -0.023316;-0.182287;-0.982940;, - -0.023316;-0.182287;-0.982940;, - -0.261422;-0.147649;-0.953856;, - -0.016846; 0.694113;-0.719626;, - -0.261422;-0.147649;-0.953856;, - -0.023316;-0.182287;-0.982940;, - -0.251503;-0.075289;-0.964904;, - -0.197668; 0.771599;-0.604572;, - -0.016846; 0.694113;-0.719626;, - -0.261422;-0.147649;-0.953856;, - 0.132603; 0.046449;-0.990051;, - 0.354961; 0.161992;-0.920713;, - 0.340495; 0.220069;-0.914090;, - 0.340495; 0.220069;-0.914090;, - 0.136937; 0.073550;-0.987823;, - 0.132603; 0.046449;-0.990051;, - 0.136937; 0.073550;-0.987823;, - 0.340495; 0.220069;-0.914090;, - 0.227943; 0.712485;-0.663594;, - 0.084201; 0.029542;-0.996002;, - 0.132603; 0.046449;-0.990051;, - 0.136937; 0.073550;-0.987823;, - 0.080874; 0.038606;-0.995972;, - 0.084201; 0.029542;-0.996002;, - 0.136937; 0.073550;-0.987823;, - 0.136937; 0.073550;-0.987823;, - 0.144536; 0.726676;-0.671560;, - 0.080874; 0.038606;-0.995972;, - 0.144536; 0.726676;-0.671560;, - 0.136937; 0.073550;-0.987823;, - 0.227943; 0.712485;-0.663594;, - 0.090854; 0.700583;-0.707755;, - 0.080874; 0.038606;-0.995972;, - 0.144536; 0.726676;-0.671560;, - 0.518174; 0.227210;-0.824519;, - 0.831721; 0.342448;-0.436964;, - 0.732353; 0.515275;-0.445051;, - 0.732353; 0.515275;-0.445051;, - 0.513535; 0.345073;-0.785607;, - 0.518174; 0.227210;-0.824519;, - 0.513535; 0.345073;-0.785607;, - 0.732353; 0.515275;-0.445051;, - 0.539811; 0.743065;-0.395489;, - 0.354961; 0.161992;-0.920713;, - 0.518174; 0.227210;-0.824519;, - 0.513535; 0.345073;-0.785607;, - 0.340495; 0.220069;-0.914090;, - 0.354961; 0.161992;-0.920713;, - 0.513535; 0.345073;-0.785607;, - 0.513535; 0.345073;-0.785607;, - 0.358043; 0.808740;-0.466567;, - 0.340495; 0.220069;-0.914090;, - 0.358043; 0.808740;-0.466567;, - 0.513535; 0.345073;-0.785607;, - 0.539811; 0.743065;-0.395489;, - 0.227943; 0.712485;-0.663594;, - 0.340495; 0.220069;-0.914090;, - 0.358043; 0.808740;-0.466567;, - 0.926023; 0.350871;-0.139042;, - 0.875118; 0.381512; 0.297617;, - 0.760338; 0.568255; 0.314493;, - 0.760338; 0.568255; 0.314493;, - 0.864864; 0.493118;-0.093783;, - 0.926023; 0.350871;-0.139042;, - 0.864864; 0.493118;-0.093783;, - 0.760338; 0.568255; 0.314493;, - 0.526475; 0.802515; 0.280587;, - 0.930174; 0.365612;-0.032807;, - 0.926023; 0.350871;-0.139042;, - 0.864864; 0.493118;-0.093783;, - 0.864528; 0.502487;-0.006012;, - 0.930174; 0.365612;-0.032807;, - 0.864864; 0.493118;-0.093783;, - 0.864864; 0.493118;-0.093783;, - 0.518387; 0.853755; 0.048372;, - 0.864528; 0.502487;-0.006012;, - 0.518387; 0.853755; 0.048372;, - 0.864864; 0.493118;-0.093783;, - 0.526475; 0.802515; 0.280587;, - 0.483230; 0.872677; 0.069887;, - 0.864528; 0.502487;-0.006012;, - 0.518387; 0.853755; 0.048372;, - 0.664785; 0.375988; 0.645466;, - 0.425550; 0.320658; 0.846187;, - 0.331065; 0.507859; 0.795251;, - 0.331065; 0.507859; 0.795251;, - 0.536882; 0.554796; 0.635517;, - 0.664785; 0.375988; 0.645466;, - 0.536882; 0.554796; 0.635517;, - 0.331065; 0.507859; 0.795251;, - 0.215217; 0.655599; 0.723746;, - 0.875118; 0.381512; 0.297617;, - 0.664785; 0.375988; 0.645466;, - 0.536882; 0.554796; 0.635517;, - 0.760338; 0.568255; 0.314493;, - 0.875118; 0.381512; 0.297617;, - 0.536882; 0.554796; 0.635517;, - 0.536882; 0.554796; 0.635517;, - 0.304697; 0.740165; 0.599384;, - 0.760338; 0.568255; 0.314493;, - 0.304697; 0.740165; 0.599384;, - 0.536882; 0.554796; 0.635517;, - 0.215217; 0.655599; 0.723746;, - 0.526475; 0.802515; 0.280587;, - 0.760338; 0.568255; 0.314493;, - 0.304697; 0.740165; 0.599384;, - -0.066408; 0.369915; 0.926664;, - -0.480667; 0.181555; 0.857875;, - -0.385815; 0.382336; 0.839595;, - -0.385815; 0.382336; 0.839595;, - -0.075747; 0.295724; 0.952239;, - -0.066408; 0.369915; 0.926664;, - -0.075747; 0.295724; 0.952239;, - -0.385815; 0.382336; 0.839595;, - -0.289468; 0.751701; 0.592547;, - -0.060823; 0.388104; 0.919584;, - -0.066408; 0.369915; 0.926664;, - -0.075747; 0.295724; 0.952239;, - -0.064699; 0.275460; 0.959105;, - -0.060823; 0.388104; 0.919584;, - -0.075747; 0.295724; 0.952239;, - -0.075747; 0.295724; 0.952239;, - -0.075198; 0.750084; 0.657002;, - -0.064699; 0.275460; 0.959105;, - -0.075198; 0.750084; 0.657002;, - -0.075747; 0.295724; 0.952239;, - -0.289468; 0.751701; 0.592547;, - -0.044801; 0.752708; 0.656789;, - -0.064699; 0.275460; 0.959105;, - -0.075198; 0.750084; 0.657002;, - -0.385815; 0.382336; 0.839595;, - -0.480667; 0.181555; 0.857875;, - -0.681845; 0.387860; 0.620167;, - -0.681845; 0.387860; 0.620167;, - -0.472365; 0.797967; 0.374248;, - -0.385815; 0.382336; 0.839595;, - -0.472365; 0.797967; 0.374248;, - -0.681845; 0.387860; 0.620167;, - -0.544633; 0.763421; 0.347118;, - -0.289468; 0.751701; 0.592547;, - -0.385815; 0.382336; 0.839595;, - -0.472365; 0.797967; 0.374248;, - -0.681845; 0.387860; 0.620167;, - -0.480667; 0.181555; 0.857875;, - -0.706748; 0.129124; 0.695547;, - -0.706748; 0.129124; 0.695547;, - -0.760063; 0.368542; 0.535203;, - -0.681845; 0.387860; 0.620167;, - -0.760063; 0.368542; 0.535203;, - -0.706748; 0.129124; 0.695547;, - -0.765313; 0.195013; 0.613361;, - -0.544633; 0.763421; 0.347118;, - -0.681845; 0.387860; 0.620167;, - -0.760063; 0.368542; 0.535203;, - -0.760063; 0.368542; 0.535203;, - -0.765313; 0.195013; 0.613361;, - -0.851314; 0.250740; 0.460799;, - -0.851314; 0.250740; 0.460799;, - -0.808740; 0.380322; 0.448622;, - -0.760063; 0.368542; 0.535203;, - -0.808740; 0.380322; 0.448622;, - -0.851314; 0.250740; 0.460799;, - -0.888424; 0.280770; 0.363079;, - -0.544633; 0.763421; 0.347118;, - -0.760063; 0.368542; 0.535203;, - -0.808740; 0.380322; 0.448622;, - -0.553117; 0.790063; 0.264229;, - -0.544633; 0.763421; 0.347118;, - -0.808740; 0.380322; 0.448622;, - -0.808740; 0.380322; 0.448622;, - -0.867214; 0.385784; 0.314737;, - -0.553117; 0.790063; 0.264229;, - -0.867214; 0.385784; 0.314737;, - -0.808740; 0.380322; 0.448622;, - -0.888424; 0.280770; 0.363079;, - -0.617176; 0.770470; 0.159398;, - -0.553117; 0.790063; 0.264229;, - -0.867214; 0.385784; 0.314737;, - -0.867214; 0.385784; 0.314737;, - -0.888424; 0.280770; 0.363079;, - -0.851650; 0.476150; 0.218909;, - -0.851650; 0.476150; 0.218909;, - -0.655019; 0.754845; 0.033479;, - -0.867214; 0.385784; 0.314737;, - -0.655019; 0.754845; 0.033479;, - -0.851650; 0.476150; 0.218909;, - -0.291574; 0.457717; 0.839900;, - -0.617176; 0.770470; 0.159398;, - -0.867214; 0.385784; 0.314737;, - -0.655019; 0.754845; 0.033479;, - -0.851650; 0.476150; 0.218909;, - -0.888424; 0.280770; 0.363079;, - -0.884762; 0.369579; 0.283853;, - -0.884762; 0.369579; 0.283853;, - -0.409589; 0.445906; 0.795831;, - -0.851650; 0.476150; 0.218909;, - -0.409589; 0.445906; 0.795831;, - -0.884762; 0.369579; 0.283853;, - -0.483291; 0.244606; 0.840571;, - -0.291574; 0.457717; 0.839900;, - -0.851650; 0.476150; 0.218909;, - -0.409589; 0.445906; 0.795831;, - -0.000061; 0.004151; 0.999969;, - -0.443464; 0.104526; 0.890133;, - -0.443190; 0.123051; 0.887906;, - -0.443190; 0.123051; 0.887906;, - 0.073336; 0.056764; 0.995666;, - -0.000061; 0.004151; 0.999969;, - 0.073336; 0.056764; 0.995666;, - -0.443190; 0.123051; 0.887906;, - -0.382488; 0.271310; 0.883206;, - -0.483291; 0.244606; 0.840571;, - -0.000061; 0.004151; 0.999969;, - 0.073336; 0.056764; 0.995666;, - -0.409589; 0.445906; 0.795831;, - -0.483291; 0.244606; 0.840571;, - 0.073336; 0.056764; 0.995666;, - 0.073336; 0.056764; 0.995666;, - 0.146611; 0.160100; 0.976135;, - -0.409589; 0.445906; 0.795831;, - 0.146611; 0.160100; 0.976135;, - 0.073336; 0.056764; 0.995666;, - -0.382488; 0.271310; 0.883206;, - -0.291574; 0.457717; 0.839900;, - -0.409589; 0.445906; 0.795831;, - 0.146611; 0.160100; 0.976135;, - -0.443190; 0.123051; 0.887906;, - -0.443464; 0.104526; 0.890133;, - -0.772729; 0.226081; 0.593066;, - -0.772729; 0.226081; 0.593066;, - -0.767998; 0.336467; 0.544877;, - -0.443190; 0.123051; 0.887906;, - -0.767998; 0.336467; 0.544877;, - -0.772729; 0.226081; 0.593066;, - -0.921354; 0.342540; 0.183599;, - -0.382488; 0.271310; 0.883206;, - -0.443190; 0.123051; 0.887906;, - -0.767998; 0.336467; 0.544877;, - -0.772729; 0.226081; 0.593066;, - -0.443464; 0.104526; 0.890133;, - -0.766961; 0.175817; 0.617115;, - -0.766961; 0.175817; 0.617115;, - -0.939299; 0.289346; 0.184301;, - -0.772729; 0.226081; 0.593066;, - -0.939299; 0.289346; 0.184301;, - -0.766961; 0.175817; 0.617115;, - -0.959746; 0.213904; 0.181860;, - -0.921354; 0.342540; 0.183599;, - -0.772729; 0.226081; 0.593066;, - -0.939299; 0.289346; 0.184301;, - -0.584124; 0.135014;-0.800317;, - -0.579547; 0.263192;-0.771233;, - -0.924589; 0.277993;-0.260384;, - -0.924589; 0.277993;-0.260384;, - -0.928709; 0.249977;-0.273843;, - -0.584124; 0.135014;-0.800317;, - -0.928709; 0.249977;-0.273843;, - -0.924589; 0.277993;-0.260384;, - -0.921354; 0.342540; 0.183599;, - -0.594043; 0.115238;-0.796106;, - -0.584124; 0.135014;-0.800317;, - -0.928709; 0.249977;-0.273843;, - -0.935301; 0.208777;-0.285653;, - -0.594043; 0.115238;-0.796106;, - -0.928709; 0.249977;-0.273843;, - -0.928709; 0.249977;-0.273843;, - -0.939299; 0.289346; 0.184301;, - -0.935301; 0.208777;-0.285653;, - -0.939299; 0.289346; 0.184301;, - -0.928709; 0.249977;-0.273843;, - -0.921354; 0.342540; 0.183599;, - -0.959746; 0.213904; 0.181860;, - -0.935301; 0.208777;-0.285653;, - -0.939299; 0.289346; 0.184301;, - 0.654775; 0.749107;-0.100406;, - 0.579669; 0.778985;-0.239051;, - -0.101566; 0.990875;-0.088260;, - -0.101566; 0.990875;-0.088260;, - -0.092715; 0.992492;-0.079623;, - 0.654775; 0.749107;-0.100406;, - -0.092715; 0.992492;-0.079623;, - -0.101566; 0.990875;-0.088260;, - -0.050295; 0.994903;-0.087069;, - 0.665975; 0.742698;-0.069613;, - 0.654775; 0.749107;-0.100406;, - -0.092715; 0.992492;-0.079623;, - -0.095370; 0.994812;-0.034913;, - 0.665975; 0.742698;-0.069613;, - -0.092715; 0.992492;-0.079623;, - -0.092715; 0.992492;-0.079623;, - -0.043764; 0.996124;-0.076174;, - -0.095370; 0.994812;-0.034913;, - -0.043764; 0.996124;-0.076174;, - -0.092715; 0.992492;-0.079623;, - -0.050295; 0.994903;-0.087069;, - -0.049959; 0.998138;-0.034150;, - -0.095370; 0.994812;-0.034913;, - -0.043764; 0.996124;-0.076174;, - -0.054353; 0.998505;-0.000061;, - 0.034822; 0.693319;-0.719779;, - 0.057711; 0.729728;-0.681265;, - 0.057711; 0.729728;-0.681265;, - -0.106967; 0.994232; 0.002991;, - -0.054353; 0.998505;-0.000061;, - -0.106967; 0.994232; 0.002991;, - 0.057711; 0.729728;-0.681265;, - 0.565294; 0.647542;-0.510971;, - -0.049959; 0.998138;-0.034150;, - -0.054353; 0.998505;-0.000061;, - -0.106967; 0.994232; 0.002991;, - -0.095370; 0.994812;-0.034913;, - -0.049959; 0.998138;-0.034150;, - -0.106967; 0.994232; 0.002991;, - -0.106967; 0.994232; 0.002991;, - 0.651692; 0.757744;-0.032868;, - -0.095370; 0.994812;-0.034913;, - 0.651692; 0.757744;-0.032868;, - -0.106967; 0.994232; 0.002991;, - 0.565294; 0.647542;-0.510971;, - 0.665975; 0.742698;-0.069613;, - -0.095370; 0.994812;-0.034913;, - 0.651692; 0.757744;-0.032868;, - -0.057131; 0.998260;-0.013337;, - -0.057039; 0.998352;-0.000031;, - -0.001617; 0.999939;-0.008576;, - -0.001617; 0.999939;-0.008576;, - -0.001404; 0.999908;-0.013337;, - -0.057131; 0.998260;-0.013337;, - -0.001404; 0.999908;-0.013337;, - -0.001617; 0.999939;-0.008576;, - 0.010041; 0.999908;-0.008148;, - -0.054903; 0.997009;-0.054262;, - -0.057131; 0.998260;-0.013337;, - -0.001404; 0.999908;-0.013337;, - 0.000031; 0.998566;-0.053529;, - -0.054903; 0.997009;-0.054262;, - -0.001404; 0.999908;-0.013337;, - -0.001404; 0.999908;-0.013337;, - 0.010987; 0.999847;-0.013428;, - 0.000031; 0.998566;-0.053529;, - 0.010987; 0.999847;-0.013428;, - -0.001404; 0.999908;-0.013337;, - 0.010041; 0.999908;-0.008148;, - 0.011383; 0.997131;-0.074740;, - 0.000031; 0.998566;-0.053529;, - 0.010987; 0.999847;-0.013428;, - -0.001617; 0.999939;-0.008576;, - -0.057039; 0.998352;-0.000031;, - -0.001587; 0.999969; 0.004639;, - -0.001587; 0.999969; 0.004639;, - 0.009217; 0.999939;-0.003723;, - -0.001617; 0.999939;-0.008576;, - 0.009217; 0.999939;-0.003723;, - -0.001587; 0.999969; 0.004639;, - 0.004913; 0.995117; 0.098270;, - 0.010041; 0.999908;-0.008148;, - -0.001617; 0.999939;-0.008576;, - 0.009217; 0.999939;-0.003723;, - -0.001587; 0.999969; 0.004639;, - -0.057039; 0.998352;-0.000031;, - -0.056795; 0.998291; 0.013062;, - -0.056795; 0.998291; 0.013062;, - -0.006348; 0.994232; 0.106876;, - -0.001587; 0.999969; 0.004639;, - -0.006348; 0.994232; 0.106876;, - -0.056795; 0.998291; 0.013062;, - -0.050813; 0.987182; 0.151158;, - 0.004913; 0.995117; 0.098270;, - -0.001587; 0.999969; 0.004639;, - -0.006348; 0.994232; 0.106876;, - 0.014801; 0.993500; 0.112644;, - -0.197668; 0.771599;-0.604572;, - -0.338755; 0.683889;-0.646138;, - -0.338755; 0.683889;-0.646138;, - 0.018799; 0.999756; 0.010529;, - 0.014801; 0.993500; 0.112644;, - 0.018799; 0.999756; 0.010529;, - -0.338755; 0.683889;-0.646138;, - -0.340251; 0.686361;-0.642720;, - 0.004913; 0.995117; 0.098270;, - 0.014801; 0.993500; 0.112644;, - 0.018799; 0.999756; 0.010529;, - 0.009217; 0.999939;-0.003723;, - 0.004913; 0.995117; 0.098270;, - 0.018799; 0.999756; 0.010529;, - 0.018799; 0.999756; 0.010529;, - 0.020661; 0.999695; 0.011078;, - 0.009217; 0.999939;-0.003723;, - 0.020661; 0.999695; 0.011078;, - 0.018799; 0.999756; 0.010529;, - -0.340251; 0.686361;-0.642720;, - 0.010041; 0.999908;-0.008148;, - 0.009217; 0.999939;-0.003723;, - 0.020661; 0.999695; 0.011078;, - 0.020661; 0.999695; 0.011078;, - -0.340251; 0.686361;-0.642720;, - -0.334025; 0.690725;-0.641316;, - -0.334025; 0.690725;-0.641316;, - 0.022217; 0.999725; 0.006104;, - 0.020661; 0.999695; 0.011078;, - 0.022217; 0.999725; 0.006104;, - -0.334025; 0.690725;-0.641316;, - -0.443098; 0.797967;-0.408490;, - 0.010041; 0.999908;-0.008148;, - 0.020661; 0.999695; 0.011078;, - 0.022217; 0.999725; 0.006104;, - 0.010987; 0.999847;-0.013428;, - 0.010041; 0.999908;-0.008148;, - 0.022217; 0.999725; 0.006104;, - 0.022217; 0.999725; 0.006104;, - 0.020081; 0.998321;-0.054079;, - 0.010987; 0.999847;-0.013428;, - 0.020081; 0.998321;-0.054079;, - 0.022217; 0.999725; 0.006104;, - -0.443098; 0.797967;-0.408490;, - 0.011383; 0.997131;-0.074740;, - 0.010987; 0.999847;-0.013428;, - 0.020081; 0.998321;-0.054079;, - 0.020081; 0.998321;-0.054079;, - -0.443098; 0.797967;-0.408490;, - -0.604846; 0.720084;-0.340007;, - -0.604846; 0.720084;-0.340007;, - 0.022065; 0.992981;-0.115940;, - 0.020081; 0.998321;-0.054079;, - 0.022065; 0.992981;-0.115940;, - -0.604846; 0.720084;-0.340007;, - -0.593524; 0.777703;-0.207007;, - 0.011383; 0.997131;-0.074740;, - 0.020081; 0.998321;-0.054079;, - 0.022065; 0.992981;-0.115940;, - 0.012513; 0.990417;-0.137303;, - 0.011383; 0.997131;-0.074740;, - 0.022065; 0.992981;-0.115940;, - 0.022065; 0.992981;-0.115940;, - 0.028962; 0.993774;-0.107425;, - 0.012513; 0.990417;-0.137303;, - 0.028962; 0.993774;-0.107425;, - 0.022065; 0.992981;-0.115940;, - -0.593524; 0.777703;-0.207007;, - 0.012207; 0.994812;-0.100833;, - 0.012513; 0.990417;-0.137303;, - 0.028962; 0.993774;-0.107425;, - 0.011292; 0.997925;-0.062960;, - 0.012207; 0.994812;-0.100833;, - 0.027223; 0.997131;-0.070376;, - 0.027223; 0.997131;-0.070376;, - 0.024049; 0.999634;-0.009980;, - 0.011292; 0.997925;-0.062960;, - 0.024049; 0.999634;-0.009980;, - 0.027223; 0.997131;-0.070376;, - -0.637379; 0.646046;-0.419874;, - 0.012574; 0.999451;-0.029969;, - 0.011292; 0.997925;-0.062960;, - 0.024049; 0.999634;-0.009980;, - 0.027223; 0.997131;-0.070376;, - 0.012207; 0.994812;-0.100833;, - 0.028962; 0.993774;-0.107425;, - 0.028962; 0.993774;-0.107425;, - -0.655263; 0.751396;-0.077242;, - 0.027223; 0.997131;-0.070376;, - -0.655263; 0.751396;-0.077242;, - 0.028962; 0.993774;-0.107425;, - -0.593524; 0.777703;-0.207007;, - -0.637379; 0.646046;-0.419874;, - 0.027223; 0.997131;-0.070376;, - -0.655263; 0.751396;-0.077242;, - -0.043764; 0.996124;-0.076174;, - -0.050295; 0.994903;-0.087069;, - -0.003021; 0.994263;-0.106876;, - -0.003021; 0.994263;-0.106876;, - -0.002533; 0.997559;-0.069491;, - -0.043764; 0.996124;-0.076174;, - -0.002533; 0.997559;-0.069491;, - -0.003021; 0.994263;-0.106876;, - 0.012207; 0.994812;-0.100833;, - -0.049959; 0.998138;-0.034150;, - -0.043764; 0.996124;-0.076174;, - -0.002533; 0.997559;-0.069491;, - -0.001404; 0.999481;-0.031465;, - -0.049959; 0.998138;-0.034150;, - -0.002533; 0.997559;-0.069491;, - -0.002533; 0.997559;-0.069491;, - 0.011292; 0.997925;-0.062960;, - -0.001404; 0.999481;-0.031465;, - 0.011292; 0.997925;-0.062960;, - -0.002533; 0.997559;-0.069491;, - 0.012207; 0.994812;-0.100833;, - 0.012574; 0.999451;-0.029969;, - -0.001404; 0.999481;-0.031465;, - 0.011292; 0.997925;-0.062960;, - 0.024049; 0.999634;-0.009980;, - -0.637379; 0.646046;-0.419874;, - -0.318033; 0.755486;-0.572771;, - -0.318033; 0.755486;-0.572771;, - 0.024873; 0.999390; 0.023957;, - 0.024049; 0.999634;-0.009980;, - 0.024873; 0.999390; 0.023957;, - -0.318033; 0.755486;-0.572771;, - -0.160192; 0.696799;-0.699118;, - 0.012574; 0.999451;-0.029969;, - 0.024049; 0.999634;-0.009980;, - 0.024873; 0.999390; 0.023957;, - 0.012116; 0.999908; 0.002167;, - 0.012574; 0.999451;-0.029969;, - 0.024873; 0.999390; 0.023957;, - 0.024873; 0.999390; 0.023957;, - 0.019776; 0.722526;-0.691031;, - 0.012116; 0.999908; 0.002167;, - 0.019776; 0.722526;-0.691031;, - 0.024873; 0.999390; 0.023957;, - -0.160192; 0.696799;-0.699118;, - 0.006226; 0.719810;-0.694113;, - 0.012116; 0.999908; 0.002167;, - 0.019776; 0.722526;-0.691031;, - -0.001404; 0.999481;-0.031465;, - 0.012574; 0.999451;-0.029969;, - 0.012116; 0.999908; 0.002167;, - 0.012116; 0.999908; 0.002167;, - -0.001404; 0.999969;-0.000122;, - -0.001404; 0.999481;-0.031465;, - -0.001404; 0.999969;-0.000122;, - 0.012116; 0.999908; 0.002167;, - 0.006226; 0.719810;-0.694113;, - -0.049959; 0.998138;-0.034150;, - -0.001404; 0.999481;-0.031465;, - -0.001404; 0.999969;-0.000122;, - -0.054353; 0.998505;-0.000061;, - -0.049959; 0.998138;-0.034150;, - -0.001404; 0.999969;-0.000122;, - -0.001404; 0.999969;-0.000122;, - -0.004334; 0.724204;-0.689535;, - -0.054353; 0.998505;-0.000061;, - -0.004334; 0.724204;-0.689535;, - -0.001404; 0.999969;-0.000122;, - 0.006226; 0.719810;-0.694113;, - 0.034822; 0.693319;-0.719779;, - -0.054353; 0.998505;-0.000061;, - -0.004334; 0.724204;-0.689535;, - 0.073519; 0.994324;-0.076540;, - -0.673849; 0.490890;-0.552202;, - -0.100497; 0.690634;-0.716147;, - -0.100497; 0.690634;-0.716147;, - 0.071841; 0.997406;-0.000031;, - 0.073519; 0.994324;-0.076540;, - 0.071841; 0.997406;-0.000031;, - -0.100497; 0.690634;-0.716147;, - -0.039888; 0.672750;-0.738762;, - 0.078402; 0.994263;-0.072726;, - 0.073519; 0.994324;-0.076540;, - 0.071841; 0.997406;-0.000031;, - 0.071841; 0.997406; 0.000000;, - 0.078402; 0.994263;-0.072726;, - 0.071841; 0.997406;-0.000031;, - 0.071841; 0.997406;-0.000031;, - 0.063906; 0.708090;-0.703207;, - 0.071841; 0.997406; 0.000000;, - 0.063906; 0.708090;-0.703207;, - 0.071841; 0.997406;-0.000031;, - -0.039888; 0.672750;-0.738762;, - 0.090854; 0.700583;-0.707755;, - 0.071841; 0.997406; 0.000000;, - 0.063906; 0.708090;-0.703207;, - 0.358043; 0.808740;-0.466567;, - 0.539811; 0.743065;-0.395489;, - 0.083743; 0.993622;-0.075381;, - 0.083743; 0.993622;-0.075381;, - 0.071841; 0.997406; 0.000000;, - 0.358043; 0.808740;-0.466567;, - 0.071841; 0.997406; 0.000000;, - 0.083743; 0.993622;-0.075381;, - 0.078402; 0.994263;-0.072726;, - 0.227943; 0.712485;-0.663594;, - 0.358043; 0.808740;-0.466567;, - 0.071841; 0.997406; 0.000000;, - 0.144536; 0.726676;-0.671560;, - 0.227943; 0.712485;-0.663594;, - 0.071841; 0.997406; 0.000000;, - 0.071841; 0.997406; 0.000000;, - 0.071841; 0.997406; 0.000000;, - 0.144536; 0.726676;-0.671560;, - 0.071841; 0.997406; 0.000000;, - 0.071841; 0.997406; 0.000000;, - 0.078402; 0.994263;-0.072726;, - 0.090854; 0.700583;-0.707755;, - 0.144536; 0.726676;-0.671560;, - 0.071841; 0.997406; 0.000000;, - 0.084964; 0.984771;-0.151494;, - 0.078402; 0.994263;-0.072726;, - 0.083743; 0.993622;-0.075381;, - 0.083743; 0.993622;-0.075381;, - 0.083560; 0.982574;-0.165899;, - 0.084964; 0.984771;-0.151494;, - 0.083560; 0.982574;-0.165899;, - 0.083743; 0.993622;-0.075381;, - 0.539811; 0.743065;-0.395489;, - 0.067843; 0.990600;-0.118717;, - 0.084964; 0.984771;-0.151494;, - 0.083560; 0.982574;-0.165899;, - 0.062410; 0.989563;-0.129826;, - 0.067843; 0.990600;-0.118717;, - 0.083560; 0.982574;-0.165899;, - 0.083560; 0.982574;-0.165899;, - 0.517808; 0.845302;-0.131535;, - 0.062410; 0.989563;-0.129826;, - 0.517808; 0.845302;-0.131535;, - 0.083560; 0.982574;-0.165899;, - 0.539811; 0.743065;-0.395489;, - 0.509201; 0.857875;-0.068575;, - 0.062410; 0.989563;-0.129826;, - 0.517808; 0.845302;-0.131535;, - 0.515915; 0.856624;-0.000610;, - 0.518204; 0.855098; 0.014893;, - 0.075320; 0.996796;-0.026643;, - 0.075320; 0.996796;-0.026643;, - 0.064241; 0.996124;-0.059847;, - 0.515915; 0.856624;-0.000610;, - 0.064241; 0.996124;-0.059847;, - 0.075320; 0.996796;-0.026643;, - 0.069674; 0.996582;-0.043672;, - 0.509201; 0.857875;-0.068575;, - 0.515915; 0.856624;-0.000610;, - 0.064241; 0.996124;-0.059847;, - 0.062410; 0.989563;-0.129826;, - 0.509201; 0.857875;-0.068575;, - 0.064241; 0.996124;-0.059847;, - 0.064241; 0.996124;-0.059847;, - 0.056581; 0.995361;-0.077548;, - 0.062410; 0.989563;-0.129826;, - 0.056581; 0.995361;-0.077548;, - 0.064241; 0.996124;-0.059847;, - 0.069674; 0.996582;-0.043672;, - 0.067843; 0.990600;-0.118717;, - 0.062410; 0.989563;-0.129826;, - 0.056581; 0.995361;-0.077548;, - 0.075320; 0.996796;-0.026643;, - 0.518204; 0.855098; 0.014893;, - 0.521775; 0.852657; 0.025849;, - 0.521775; 0.852657; 0.025849;, - 0.075014; 0.997101;-0.011902;, - 0.075320; 0.996796;-0.026643;, - 0.075014; 0.997101;-0.011902;, - 0.521775; 0.852657; 0.025849;, - 0.520737; 0.852901; 0.036653;, - 0.069674; 0.996582;-0.043672;, - 0.075320; 0.996796;-0.026643;, - 0.075014; 0.997101;-0.011902;, - 0.075014; 0.997101;-0.012238;, - 0.069674; 0.996582;-0.043672;, - 0.075014; 0.997101;-0.011902;, - 0.075014; 0.997101;-0.011902;, - 0.075106; 0.997162; 0.000549;, - 0.075014; 0.997101;-0.012238;, - 0.075106; 0.997162; 0.000549;, - 0.075014; 0.997101;-0.011902;, - 0.520737; 0.852901; 0.036653;, - 0.075014; 0.997162; 0.000549;, - 0.075014; 0.997101;-0.012238;, - 0.075106; 0.997162; 0.000549;, - 0.075106; 0.997162; 0.000549;, - 0.520737; 0.852901; 0.036653;, - 0.522477; 0.851314; 0.047243;, - 0.522477; 0.851314; 0.047243;, - 0.074953; 0.997070; 0.013428;, - 0.075106; 0.997162; 0.000549;, - 0.074953; 0.997070; 0.013428;, - 0.522477; 0.851314; 0.047243;, - 0.483230; 0.872677; 0.069887;, - 0.075014; 0.997162; 0.000549;, - 0.075106; 0.997162; 0.000549;, - 0.074953; 0.997070; 0.013428;, - 0.074953; 0.997070; 0.013520;, - 0.075014; 0.997162; 0.000549;, - 0.074953; 0.997070; 0.013428;, - 0.074953; 0.997070; 0.013428;, - 0.074435; 0.990753; 0.113407;, - 0.074953; 0.997070; 0.013520;, - 0.074435; 0.990753; 0.113407;, - 0.074953; 0.997070; 0.013428;, - 0.483230; 0.872677; 0.069887;, - 0.077456; 0.990753; 0.111118;, - 0.074953; 0.997070; 0.013520;, - 0.074435; 0.990753; 0.113407;, - 0.042573; 0.998993; 0.011902;, - 0.041627; 0.999115;-0.003876;, - 0.074953; 0.997070; 0.013733;, - 0.074953; 0.997070; 0.013733;, - 0.079989; 0.990387; 0.112613;, - 0.042573; 0.998993; 0.011902;, - 0.079989; 0.990387; 0.112613;, - 0.074953; 0.997070; 0.013733;, - 0.077456; 0.990753; 0.111118;, - 0.039216; 0.988220; 0.147862;, - 0.042573; 0.998993; 0.011902;, - 0.079989; 0.990387; 0.112613;, - 0.074953; 0.997070; 0.013733;, - 0.041627; 0.999115;-0.003876;, - 0.075106; 0.997162; 0.000061;, - 0.075106; 0.997162; 0.000061;, - 0.074953; 0.997070; 0.013520;, - 0.074953; 0.997070; 0.013733;, - 0.074953; 0.997070; 0.013520;, - 0.075106; 0.997162; 0.000061;, - 0.075014; 0.997162; 0.000549;, - 0.077456; 0.990753; 0.111118;, - 0.074953; 0.997070; 0.013733;, - 0.074953; 0.997070; 0.013520;, - 0.075106; 0.997162; 0.000061;, - 0.041627; 0.999115;-0.003876;, - 0.043062; 0.998871;-0.019227;, - 0.043062; 0.998871;-0.019227;, - 0.075014; 0.997070;-0.012818;, - 0.075106; 0.997162; 0.000061;, - 0.075014; 0.997070;-0.012818;, - 0.043062; 0.998871;-0.019227;, - -0.453261; 0.740135;-0.496719;, - 0.075014; 0.997162; 0.000549;, - 0.075106; 0.997162; 0.000061;, - 0.075014; 0.997070;-0.012818;, - 0.075014; 0.997101;-0.012238;, - 0.075014; 0.997162; 0.000549;, - 0.075014; 0.997070;-0.012818;, - 0.075014; 0.997070;-0.012818;, - 0.076510; 0.995361;-0.057863;, - 0.075014; 0.997101;-0.012238;, - 0.076510; 0.995361;-0.057863;, - 0.075014; 0.997070;-0.012818;, - -0.453261; 0.740135;-0.496719;, - 0.069674; 0.996582;-0.043672;, - 0.075014; 0.997101;-0.012238;, - 0.076510; 0.995361;-0.057863;, - 0.084964; 0.984771;-0.151494;, - 0.067843; 0.990600;-0.118717;, - 0.070925; 0.986694;-0.146153;, - 0.070925; 0.986694;-0.146153;, - 0.073519; 0.994324;-0.076540;, - 0.084964; 0.984771;-0.151494;, - 0.073519; 0.994324;-0.076540;, - 0.070925; 0.986694;-0.146153;, - -0.673849; 0.490890;-0.552202;, - 0.078402; 0.994263;-0.072726;, - 0.084964; 0.984771;-0.151494;, - 0.073519; 0.994324;-0.076540;, - 0.070925; 0.986694;-0.146153;, - 0.067843; 0.990600;-0.118717;, - 0.063814; 0.992035;-0.108493;, - 0.063814; 0.992035;-0.108493;, - -0.764519; 0.632221;-0.125401;, - 0.070925; 0.986694;-0.146153;, - -0.764519; 0.632221;-0.125401;, - 0.063814; 0.992035;-0.108493;, - -0.697195; 0.671712;-0.250282;, - -0.673849; 0.490890;-0.552202;, - 0.070925; 0.986694;-0.146153;, - -0.764519; 0.632221;-0.125401;, - 0.076510; 0.995361;-0.057863;, - -0.453261; 0.740135;-0.496719;, - -0.688955; 0.634419;-0.350444;, - -0.688955; 0.634419;-0.350444;, - 0.069247; 0.993500;-0.090243;, - 0.076510; 0.995361;-0.057863;, - 0.069247; 0.993500;-0.090243;, - -0.688955; 0.634419;-0.350444;, - -0.697195; 0.671712;-0.250282;, - 0.069674; 0.996582;-0.043672;, - 0.076510; 0.995361;-0.057863;, - 0.069247; 0.993500;-0.090243;, - 0.056581; 0.995361;-0.077548;, - 0.069674; 0.996582;-0.043672;, - 0.069247; 0.993500;-0.090243;, - 0.069247; 0.993500;-0.090243;, - 0.063814; 0.992035;-0.108493;, - 0.056581; 0.995361;-0.077548;, - 0.063814; 0.992035;-0.108493;, - 0.069247; 0.993500;-0.090243;, - -0.697195; 0.671712;-0.250282;, - 0.067843; 0.990600;-0.118717;, - 0.056581; 0.995361;-0.077548;, - 0.063814; 0.992035;-0.108493;, - 0.078738; 0.974242; 0.211158;, - 0.062014; 0.934935; 0.349254;, - 0.067446; 0.965484; 0.251503;, - 0.067446; 0.965484; 0.251503;, - 0.079989; 0.990387; 0.112613;, - 0.078738; 0.974242; 0.211158;, - 0.079989; 0.990387; 0.112613;, - 0.067446; 0.965484; 0.251503;, - 0.039216; 0.988220; 0.147862;, - 0.077456; 0.990753; 0.111118;, - 0.078738; 0.974242; 0.211158;, - 0.079989; 0.990387; 0.112613;, - 0.067446; 0.965484; 0.251503;, - 0.062014; 0.934935; 0.349254;, - 0.054079; 0.921628; 0.384228;, - 0.054079; 0.921628; 0.384228;, - 0.028840; 0.957732; 0.286172;, - 0.067446; 0.965484; 0.251503;, - 0.028840; 0.957732; 0.286172;, - 0.054079; 0.921628; 0.384228;, - 0.026063; 0.920316; 0.390210;, - 0.039216; 0.988220; 0.147862;, - 0.067446; 0.965484; 0.251503;, - 0.028840; 0.957732; 0.286172;, - 0.518387; 0.853755; 0.048372;, - 0.526475; 0.802515; 0.280587;, - 0.044191; 0.945952; 0.321238;, - 0.044191; 0.945952; 0.321238;, - 0.048402; 0.980712; 0.189337;, - 0.518387; 0.853755; 0.048372;, - 0.048402; 0.980712; 0.189337;, - 0.044191; 0.945952; 0.321238;, - 0.062014; 0.934935; 0.349254;, - 0.483230; 0.872677; 0.069887;, - 0.518387; 0.853755; 0.048372;, - 0.048402; 0.980712; 0.189337;, - 0.074435; 0.990753; 0.113407;, - 0.483230; 0.872677; 0.069887;, - 0.048402; 0.980712; 0.189337;, - 0.048402; 0.980712; 0.189337;, - 0.078738; 0.974242; 0.211158;, - 0.074435; 0.990753; 0.113407;, - 0.078738; 0.974242; 0.211158;, - 0.048402; 0.980712; 0.189337;, - 0.062014; 0.934935; 0.349254;, - 0.077456; 0.990753; 0.111118;, - 0.074435; 0.990753; 0.113407;, - 0.078738; 0.974242; 0.211158;, - 0.001251; 0.999878;-0.013977;, - 0.001282; 0.999969;-0.000275;, - 0.002564; 0.999878;-0.014039;, - 0.002564; 0.999878;-0.014039;, - 0.003510; 0.998413;-0.055940;, - 0.001251; 0.999878;-0.013977;, - 0.003510; 0.998413;-0.055940;, - 0.002564; 0.999878;-0.014039;, - -0.053529; 0.996948;-0.056551;, - 0.444136; 0.768578;-0.460402;, - 0.001251; 0.999878;-0.013977;, - 0.003510; 0.998413;-0.055940;, - 0.002564; 0.999878;-0.014039;, - 0.001282; 0.999969;-0.000275;, - 0.002625; 0.999969;-0.000336;, - 0.002625; 0.999969;-0.000336;, - -0.054384; 0.998383;-0.014618;, - 0.002564; 0.999878;-0.014039;, - -0.054384; 0.998383;-0.014618;, - 0.002625; 0.999969;-0.000336;, - -0.054994; 0.998474;-0.000458;, - -0.053529; 0.996948;-0.056551;, - 0.002564; 0.999878;-0.014039;, - -0.054384; 0.998383;-0.014618;, - -0.047517; 0.954039; 0.295846;, - -0.057772; 0.986053; 0.155919;, - 0.002625; 0.988739; 0.149602;, - 0.002625; 0.988739; 0.149602;, - 0.001526; 0.959197; 0.282693;, - -0.047517; 0.954039; 0.295846;, - 0.001526; 0.959197; 0.282693;, - 0.002625; 0.988739; 0.149602;, - 0.001221; 0.988739; 0.149510;, - -0.042451; 0.919675; 0.390332;, - -0.047517; 0.954039; 0.295846;, - 0.001526; 0.959197; 0.282693;, - 0.000275; 0.922269; 0.386517;, - -0.042451; 0.919675; 0.390332;, - 0.001526; 0.959197; 0.282693;, - 0.001526; 0.959197; 0.282693;, - 0.000275; 0.959227; 0.282540;, - 0.000275; 0.922269; 0.386517;, - 0.000275; 0.959227; 0.282540;, - 0.001526; 0.959197; 0.282693;, - 0.001221; 0.988739; 0.149510;, - 0.000214; 0.922239; 0.386608;, - 0.000275; 0.922269; 0.386517;, - 0.000275; 0.959227; 0.282540;, - 0.000275; 0.959227; 0.282540;, - 0.001221; 0.988739; 0.149510;, - 0.000000; 0.988739; 0.149480;, - 0.000000; 0.988739; 0.149480;, - 0.000397; 0.959105; 0.282937;, - 0.000275; 0.959227; 0.282540;, - 0.000397; 0.959105; 0.282937;, - 0.000000; 0.988739; 0.149480;, - 0.000122; 0.988708; 0.149785;, - 0.000214; 0.922239; 0.386608;, - 0.000275; 0.959227; 0.282540;, - 0.000397; 0.959105; 0.282937;, - 0.000427; 0.922086; 0.386914;, - 0.000214; 0.922239; 0.386608;, - 0.000397; 0.959105; 0.282937;, - 0.000397; 0.959105; 0.282937;, - 0.000397; 0.958983; 0.283425;, - 0.000427; 0.922086; 0.386914;, - 0.000397; 0.958983; 0.283425;, - 0.000397; 0.959105; 0.282937;, - 0.000122; 0.988708; 0.149785;, - 0.000244; 0.922025; 0.387066;, - 0.000427; 0.922086; 0.386914;, - 0.000397; 0.958983; 0.283425;, - 0.007141; 0.645344; 0.763817;, - -0.031617; 0.627308; 0.778100;, - 0.000000; 0.874020; 0.485855;, - 0.000000; 0.874020; 0.485855;, - 0.000000; 0.874020; 0.485824;, - 0.007141; 0.645344; 0.763817;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874020; 0.485855;, - 0.000214; 0.922239; 0.386608;, - 0.000519; 0.647755; 0.761803;, - 0.007141; 0.645344; 0.763817;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874020; 0.485824;, - 0.000519; 0.647755; 0.761803;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874020; 0.485824;, - 0.000427; 0.922086; 0.386914;, - 0.000000; 0.874020; 0.485824;, - 0.000427; 0.922086; 0.386914;, - 0.000000; 0.874020; 0.485824;, - 0.000214; 0.922239; 0.386608;, - 0.000244; 0.922025; 0.387066;, - 0.000000; 0.874020; 0.485824;, - 0.000427; 0.922086; 0.386914;, - 0.000000; 0.874020; 0.485855;, - -0.031617; 0.627308; 0.778100;, - -0.059725; 0.638264; 0.767449;, - -0.059725; 0.638264; 0.767449;, - 0.000000; 0.874020; 0.485855;, - 0.000000; 0.874020; 0.485855;, - 0.000000; 0.874020; 0.485855;, - -0.059725; 0.638264; 0.767449;, - -0.123173; 0.629200; 0.767388;, - 0.000214; 0.922239; 0.386608;, - 0.000000; 0.874020; 0.485855;, - 0.000000; 0.874020; 0.485855;, - 0.000275; 0.922269; 0.386517;, - 0.000214; 0.922239; 0.386608;, - 0.000000; 0.874020; 0.485855;, - 0.000000; 0.874020; 0.485855;, - -0.044862; 0.873135; 0.485366;, - 0.000275; 0.922269; 0.386517;, - -0.044862; 0.873135; 0.485366;, - 0.000000; 0.874020; 0.485855;, - -0.123173; 0.629200; 0.767388;, - -0.042451; 0.919675; 0.390332;, - 0.000275; 0.922269; 0.386517;, - -0.044862; 0.873135; 0.485366;, - -0.054964; 0.998383; 0.013398;, - -0.054994; 0.998474;-0.000458;, - 0.002625; 0.999969;-0.000336;, - 0.002625; 0.999969;-0.000336;, - 0.002625; 0.999878; 0.013459;, - -0.054964; 0.998383; 0.013398;, - 0.002625; 0.999878; 0.013459;, - 0.002625; 0.999969;-0.000336;, - 0.001282; 0.999969;-0.000275;, - -0.057772; 0.986053; 0.155919;, - -0.054964; 0.998383; 0.013398;, - 0.002625; 0.999878; 0.013459;, - 0.002625; 0.988739; 0.149602;, - -0.057772; 0.986053; 0.155919;, - 0.002625; 0.999878; 0.013459;, - 0.002625; 0.999878; 0.013459;, - 0.001282; 0.999878; 0.013459;, - 0.002625; 0.988739; 0.149602;, - 0.001282; 0.999878; 0.013459;, - 0.002625; 0.999878; 0.013459;, - 0.001282; 0.999969;-0.000275;, - 0.001221; 0.988739; 0.149510;, - 0.002625; 0.988739; 0.149602;, - 0.001282; 0.999878; 0.013459;, - 0.000000; 0.999878; 0.013581;, - 0.000122; 0.988708; 0.149785;, - 0.000000; 0.988739; 0.149480;, - 0.000000; 0.988739; 0.149480;, - -0.000031; 0.999878; 0.013520;, - 0.000000; 0.999878; 0.013581;, - -0.000031; 0.999878; 0.013520;, - 0.000000; 0.988739; 0.149480;, - 0.001221; 0.988739; 0.149510;, - -0.000031; 0.999878; 0.013520;, - 0.166814; 0.712210;-0.681845;, - 0.000000; 0.999878; 0.013581;, - -0.000031; 0.999969;-0.000244;, - 0.166814; 0.712210;-0.681845;, - -0.000031; 0.999878; 0.013520;, - -0.000031; 0.999878; 0.013520;, - 0.001282; 0.999878; 0.013459;, - -0.000031; 0.999969;-0.000244;, - 0.001282; 0.999878; 0.013459;, - -0.000031; 0.999878; 0.013520;, - 0.001221; 0.988739; 0.149510;, - 0.001282; 0.999969;-0.000275;, - -0.000031; 0.999969;-0.000244;, - 0.001282; 0.999878; 0.013459;, - -0.050050; 0.994354;-0.093539;, - -0.050295; 0.994903;-0.087069;, - -0.101566; 0.990875;-0.088260;, - -0.101566; 0.990875;-0.088260;, - -0.105655; 0.989776;-0.095737;, - -0.050050; 0.994354;-0.093539;, - -0.105655; 0.989776;-0.095737;, - -0.101566; 0.990875;-0.088260;, - 0.579669; 0.778985;-0.239051;, - -0.054903; 0.997009;-0.054262;, - -0.050050; 0.994354;-0.093539;, - -0.105655; 0.989776;-0.095737;, - -0.110630; 0.992218;-0.056764;, - -0.054903; 0.997009;-0.054262;, - -0.105655; 0.989776;-0.095737;, - -0.105655; 0.989776;-0.095737;, - -0.052705; 0.993744;-0.098239;, - -0.110630; 0.992218;-0.056764;, - -0.052705; 0.993744;-0.098239;, - -0.105655; 0.989776;-0.095737;, - 0.579669; 0.778985;-0.239051;, - -0.053529; 0.996948;-0.056551;, - -0.110630; 0.992218;-0.056764;, - -0.052705; 0.993744;-0.098239;, - -0.110630; 0.992218;-0.056764;, - -0.053529; 0.996948;-0.056551;, - -0.054384; 0.998383;-0.014618;, - -0.054384; 0.998383;-0.014618;, - -0.111972; 0.993591;-0.014191;, - -0.110630; 0.992218;-0.056764;, - -0.111972; 0.993591;-0.014191;, - -0.054384; 0.998383;-0.014618;, - -0.054994; 0.998474;-0.000458;, - -0.054903; 0.997009;-0.054262;, - -0.110630; 0.992218;-0.056764;, - -0.111972; 0.993591;-0.014191;, - -0.057131; 0.998260;-0.013337;, - -0.054903; 0.997009;-0.054262;, - -0.111972; 0.993591;-0.014191;, - -0.111972; 0.993591;-0.014191;, - -0.112552; 0.993622; 0.000000;, - -0.057131; 0.998260;-0.013337;, - -0.112552; 0.993622; 0.000000;, - -0.111972; 0.993591;-0.014191;, - -0.054994; 0.998474;-0.000458;, - -0.057039; 0.998352;-0.000031;, - -0.057131; 0.998260;-0.013337;, - -0.112552; 0.993622; 0.000000;, - 0.012513; 0.990417;-0.137303;, - 0.012207; 0.994812;-0.100833;, - -0.003021; 0.994263;-0.106876;, - -0.003021; 0.994263;-0.106876;, - -0.000427; 0.993286;-0.115513;, - 0.012513; 0.990417;-0.137303;, - -0.000427; 0.993286;-0.115513;, - -0.003021; 0.994263;-0.106876;, - -0.050295; 0.994903;-0.087069;, - 0.011383; 0.997131;-0.074740;, - 0.012513; 0.990417;-0.137303;, - -0.000427; 0.993286;-0.115513;, - 0.000031; 0.998566;-0.053529;, - 0.011383; 0.997131;-0.074740;, - -0.000427; 0.993286;-0.115513;, - -0.000427; 0.993286;-0.115513;, - -0.050050; 0.994354;-0.093539;, - 0.000031; 0.998566;-0.053529;, - -0.050050; 0.994354;-0.093539;, - -0.000427; 0.993286;-0.115513;, - -0.050295; 0.994903;-0.087069;, - -0.054903; 0.997009;-0.054262;, - 0.000031; 0.998566;-0.053529;, - -0.050050; 0.994354;-0.093539;, - 0.000458; 0.979827; 0.199713;, - -0.003327; 0.745232; 0.666768;, - 0.018586; 0.983184; 0.181524;, - 0.018586; 0.983184; 0.181524;, - 0.014801; 0.993500; 0.112644;, - 0.000458; 0.979827; 0.199713;, - 0.014801; 0.993500; 0.112644;, - 0.018586; 0.983184; 0.181524;, - -0.197668; 0.771599;-0.604572;, - 0.004913; 0.995117; 0.098270;, - 0.000458; 0.979827; 0.199713;, - 0.014801; 0.993500; 0.112644;, - 0.018586; 0.983184; 0.181524;, - -0.003327; 0.745232; 0.666768;, - 0.004273; 0.762108; 0.647420;, - 0.004273; 0.762108; 0.647420;, - 0.021943; 0.986358; 0.162999;, - 0.018586; 0.983184; 0.181524;, - 0.021943; 0.986358; 0.162999;, - 0.004273; 0.762108; 0.647420;, - -0.006195; 0.748100; 0.663533;, - -0.197668; 0.771599;-0.604572;, - 0.018586; 0.983184; 0.181524;, - 0.021943; 0.986358; 0.162999;, - -0.007324; 0.643788; 0.765130;, - 0.000519; 0.647755; 0.761803;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874050; 0.485824;, - -0.007324; 0.643788; 0.765130;, - 0.000000; 0.874050; 0.485824;, - 0.000000; 0.874020; 0.485824;, - 0.000244; 0.922025; 0.387066;, - -0.007477; 0.644185; 0.764794;, - -0.007324; 0.643788; 0.765130;, - 0.000000; 0.874050; 0.485824;, - 0.000000; 0.874050; 0.485794;, - -0.007477; 0.644185; 0.764794;, - 0.000000; 0.874050; 0.485824;, - 0.000000; 0.874050; 0.485824;, - 0.000397; 0.921842; 0.387494;, - 0.000000; 0.874050; 0.485794;, - 0.000397; 0.921842; 0.387494;, - 0.000000; 0.874050; 0.485824;, - 0.000244; 0.922025; 0.387066;, - 0.000183; 0.921812; 0.387585;, - 0.000000; 0.874050; 0.485794;, - 0.000397; 0.921842; 0.387494;, - -0.000031; 0.921873; 0.387463;, - 0.026063; 0.920316; 0.390210;, - 0.027924; 0.872555; 0.487686;, - 0.027924; 0.872555; 0.487686;, - 0.000000; 0.874020; 0.485824;, - -0.000031; 0.921873; 0.387463;, - 0.000000; 0.874020; 0.485824;, - 0.027924; 0.872555; 0.487686;, - 0.026154; 0.641774; 0.766411;, - 0.000183; 0.921812; 0.387585;, - -0.000031; 0.921873; 0.387463;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874050; 0.485794;, - 0.000183; 0.921812; 0.387585;, - 0.000000; 0.874020; 0.485824;, - 0.000000; 0.874020; 0.485824;, - -0.007324; 0.644307; 0.764702;, - 0.000000; 0.874050; 0.485794;, - -0.007324; 0.644307; 0.764702;, - 0.000000; 0.874020; 0.485824;, - 0.026154; 0.641774; 0.766411;, - -0.007477; 0.644185; 0.764794;, - 0.000000; 0.874050; 0.485794;, - -0.007324; 0.644307; 0.764702;, - 0.000366; 0.958678; 0.284463;, - 0.000183; 0.921812; 0.387585;, - 0.000397; 0.921842; 0.387494;, - 0.000397; 0.921842; 0.387494;, - 0.000397; 0.958800; 0.284036;, - 0.000366; 0.958678; 0.284463;, - 0.000397; 0.958800; 0.284036;, - 0.000397; 0.921842; 0.387494;, - 0.000244; 0.922025; 0.387066;, - 0.003082; 0.988708; 0.149602;, - 0.000366; 0.958678; 0.284463;, - 0.000397; 0.958800; 0.284036;, - 0.000000; 0.988678; 0.149968;, - 0.003082; 0.988708; 0.149602;, - 0.000397; 0.958800; 0.284036;, - 0.000397; 0.958800; 0.284036;, - 0.000397; 0.958983; 0.283425;, - 0.000000; 0.988678; 0.149968;, - 0.000397; 0.958983; 0.283425;, - 0.000397; 0.958800; 0.284036;, - 0.000244; 0.922025; 0.387066;, - 0.000122; 0.988708; 0.149785;, - 0.000000; 0.988678; 0.149968;, - 0.000397; 0.958983; 0.283425;, - 0.007447; 0.988922; 0.148228;, - 0.003082; 0.988708; 0.149602;, - 0.003754; 0.999878; 0.013703;, - 0.003754; 0.999878; 0.013703;, - 0.008850; 0.999878; 0.011841;, - 0.007447; 0.988922; 0.148228;, - 0.008850; 0.999878; 0.011841;, - 0.003754; 0.999878; 0.013703;, - -0.158147; 0.701865;-0.694479;, - 0.039216; 0.988220; 0.147862;, - 0.007447; 0.988922; 0.148228;, - 0.008850; 0.999878; 0.011841;, - 0.042573; 0.998993; 0.011902;, - 0.039216; 0.988220; 0.147862;, - 0.008850; 0.999878; 0.011841;, - 0.008850; 0.999878; 0.011841;, - 0.010559; 0.999908;-0.007599;, - 0.042573; 0.998993; 0.011902;, - 0.010559; 0.999908;-0.007599;, - 0.008850; 0.999878; 0.011841;, - -0.158147; 0.701865;-0.694479;, - 0.041627; 0.999115;-0.003876;, - 0.042573; 0.998993; 0.011902;, - 0.010559; 0.999908;-0.007599;, - -0.047517; 0.954039; 0.295846;, - -0.042451; 0.919675; 0.390332;, - -0.093997; 0.912625; 0.397778;, - -0.093997; 0.912625; 0.397778;, - -0.102084; 0.946287; 0.306681;, - -0.047517; 0.954039; 0.295846;, - -0.102084; 0.946287; 0.306681;, - -0.093997; 0.912625; 0.397778;, - -0.099033; 0.730827; 0.675283;, - -0.057772; 0.986053; 0.155919;, - -0.047517; 0.954039; 0.295846;, - -0.102084; 0.946287; 0.306681;, - -0.110569; 0.980743; 0.160955;, - -0.057772; 0.986053; 0.155919;, - -0.102084; 0.946287; 0.306681;, - -0.102084; 0.946287; 0.306681;, - -0.054445; 0.955931; 0.288369;, - -0.110569; 0.980743; 0.160955;, - -0.054445; 0.955931; 0.288369;, - -0.102084; 0.946287; 0.306681;, - -0.099033; 0.730827; 0.675283;, - -0.050813; 0.987182; 0.151158;, - -0.110569; 0.980743; 0.160955;, - -0.054445; 0.955931; 0.288369;, - -0.110569; 0.980743; 0.160955;, - -0.050813; 0.987182; 0.151158;, - -0.056795; 0.998291; 0.013062;, - -0.056795; 0.998291; 0.013062;, - -0.112217; 0.993591; 0.013153;, - -0.110569; 0.980743; 0.160955;, - -0.112217; 0.993591; 0.013153;, - -0.056795; 0.998291; 0.013062;, - -0.057039; 0.998352;-0.000031;, - -0.057772; 0.986053; 0.155919;, - -0.110569; 0.980743; 0.160955;, - -0.112217; 0.993591; 0.013153;, - -0.054964; 0.998383; 0.013398;, - -0.057772; 0.986053; 0.155919;, - -0.112217; 0.993591; 0.013153;, - -0.112217; 0.993591; 0.013153;, - -0.112552; 0.993622; 0.000000;, - -0.054964; 0.998383; 0.013398;, - -0.112552; 0.993622; 0.000000;, - -0.112217; 0.993591; 0.013153;, - -0.057039; 0.998352;-0.000031;, - -0.054994; 0.998474;-0.000458;, - -0.054964; 0.998383; 0.013398;, - -0.112552; 0.993622; 0.000000;, - 0.007447; 0.988922; 0.148228;, - 0.039216; 0.988220; 0.147862;, - 0.028840; 0.957732; 0.286172;, - 0.028840; 0.957732; 0.286172;, - 0.003571; 0.959349; 0.282174;, - 0.007447; 0.988922; 0.148228;, - 0.003571; 0.959349; 0.282174;, - 0.028840; 0.957732; 0.286172;, - 0.026063; 0.920316; 0.390210;, - 0.003082; 0.988708; 0.149602;, - 0.007447; 0.988922; 0.148228;, - 0.003571; 0.959349; 0.282174;, - 0.000366; 0.958678; 0.284463;, - 0.003082; 0.988708; 0.149602;, - 0.003571; 0.959349; 0.282174;, - 0.003571; 0.959349; 0.282174;, - -0.000031; 0.921873; 0.387463;, - 0.000366; 0.958678; 0.284463;, - -0.000031; 0.921873; 0.387463;, - 0.003571; 0.959349; 0.282174;, - 0.026063; 0.920316; 0.390210;, - 0.000183; 0.921812; 0.387585;, - 0.000366; 0.958678; 0.284463;, - -0.000031; 0.921873; 0.387463;, - -0.000336; 0.645741;-0.763512;, - -0.158147; 0.701865;-0.694479;, - 0.003754; 0.999878; 0.013703;, - 0.003754; 0.999878; 0.013703;, - 0.000000; 0.999878; 0.013581;, - -0.000336; 0.645741;-0.763512;, - 0.000000; 0.999878; 0.013581;, - 0.003754; 0.999878; 0.013703;, - 0.003082; 0.988708; 0.149602;, - 0.000000; 0.999878; 0.013581;, - 0.166814; 0.712210;-0.681845;, - -0.000336; 0.645741;-0.763512;, - 0.000000; 0.999878; 0.013581;, - 0.166814; 0.712210;-0.681845;, - 0.000000; 0.999878; 0.013581;, - 0.000000; 0.999878; 0.013581;, - 0.000000; 0.988678; 0.149968;, - 0.000000; 0.999878; 0.013581;, - 0.000000; 0.988678; 0.149968;, - 0.000000; 0.999878; 0.013581;, - 0.003082; 0.988708; 0.149602;, - 0.000122; 0.988708; 0.149785;, - 0.000000; 0.999878; 0.013581;, - 0.000000; 0.988678; 0.149968;, - 0.044191; 0.945952; 0.321238;, - 0.526475; 0.802515; 0.280587;, - 0.304697; 0.740165; 0.599384;, - 0.304697; 0.740165; 0.599384;, - 0.063021; 0.880245; 0.470260;, - 0.044191; 0.945952; 0.321238;, - 0.063021; 0.880245; 0.470260;, - 0.304697; 0.740165; 0.599384;, - 0.215217; 0.655599; 0.723746;, - 0.062014; 0.934935; 0.349254;, - 0.044191; 0.945952; 0.321238;, - 0.063021; 0.880245; 0.470260;, - 0.059755; 0.879208; 0.472610;, - 0.062014; 0.934935; 0.349254;, - 0.063021; 0.880245; 0.470260;, - 0.063021; 0.880245; 0.470260;, - 0.077792; 0.668905; 0.739219;, - 0.059755; 0.879208; 0.472610;, - 0.077792; 0.668905; 0.739219;, - 0.063021; 0.880245; 0.470260;, - 0.215217; 0.655599; 0.723746;, - 0.065310; 0.661946; 0.746666;, - 0.059755; 0.879208; 0.472610;, - 0.077792; 0.668905; 0.739219;, - 0.062502; 0.642445; 0.763756;, - 0.026154; 0.641774; 0.766411;, - 0.027924; 0.872555; 0.487686;, - 0.027924; 0.872555; 0.487686;, - 0.056551; 0.874966; 0.480819;, - 0.062502; 0.642445; 0.763756;, - 0.056551; 0.874966; 0.480819;, - 0.027924; 0.872555; 0.487686;, - 0.026063; 0.920316; 0.390210;, - 0.065310; 0.661946; 0.746666;, - 0.062502; 0.642445; 0.763756;, - 0.056551; 0.874966; 0.480819;, - 0.059755; 0.879208; 0.472610;, - 0.065310; 0.661946; 0.746666;, - 0.056551; 0.874966; 0.480819;, - 0.056551; 0.874966; 0.480819;, - 0.054079; 0.921628; 0.384228;, - 0.059755; 0.879208; 0.472610;, - 0.054079; 0.921628; 0.384228;, - 0.056551; 0.874966; 0.480819;, - 0.026063; 0.920316; 0.390210;, - 0.062014; 0.934935; 0.349254;, - 0.059755; 0.879208; 0.472610;, - 0.054079; 0.921628; 0.384228;, - 0.000458; 0.979827; 0.199713;, - 0.004913; 0.995117; 0.098270;, - -0.006348; 0.994232; 0.106876;, - -0.006348; 0.994232; 0.106876;, - -0.006653; 0.971892; 0.235237;, - 0.000458; 0.979827; 0.199713;, - -0.006653; 0.971892; 0.235237;, - -0.006348; 0.994232; 0.106876;, - -0.050813; 0.987182; 0.151158;, - -0.003327; 0.745232; 0.666768;, - 0.000458; 0.979827; 0.199713;, - -0.006653; 0.971892; 0.235237;, - -0.000061; 0.725333; 0.688375;, - -0.003327; 0.745232; 0.666768;, - -0.006653; 0.971892; 0.235237;, - -0.006653; 0.971892; 0.235237;, - -0.054445; 0.955931; 0.288369;, - -0.000061; 0.725333; 0.688375;, - -0.054445; 0.955931; 0.288369;, - -0.006653; 0.971892; 0.235237;, - -0.050813; 0.987182; 0.151158;, - -0.099033; 0.730827; 0.675283;, - -0.000061; 0.725333; 0.688375;, - -0.054445; 0.955931; 0.288369;, - -0.012085; 0.749199; 0.662191;, - -0.044801; 0.752708; 0.656789;, - 0.010987; 0.987976; 0.154057;, - 0.010987; 0.987976; 0.154057;, - 0.021943; 0.986358; 0.162999;, - -0.012085; 0.749199; 0.662191;, - 0.021943; 0.986358; 0.162999;, - 0.010987; 0.987976; 0.154057;, - -0.197668; 0.771599;-0.604572;, - -0.006195; 0.748100; 0.663533;, - -0.012085; 0.749199; 0.662191;, - 0.021943; 0.986358; 0.162999;, - 0.010987; 0.987976; 0.154057;, - -0.044801; 0.752708; 0.656789;, - -0.020264; 0.988769; 0.147984;, - -0.020264; 0.988769; 0.147984;, - -0.016846; 0.694113;-0.719626;, - 0.010987; 0.987976; 0.154057;, - -0.016846; 0.694113;-0.719626;, - -0.020264; 0.988769; 0.147984;, - 0.132908; 0.754631;-0.642506;, - -0.197668; 0.771599;-0.604572;, - 0.010987; 0.987976; 0.154057;, - -0.016846; 0.694113;-0.719626;, - -0.655019; 0.754845; 0.033479;, - -0.291574; 0.457717; 0.839900;, - -0.105930; 0.711478; 0.694632;, - -0.105930; 0.711478; 0.694632;, - -0.203650; 0.976562;-0.069399;, - -0.655019; 0.754845; 0.033479;, - -0.203650; 0.976562;-0.069399;, - -0.105930; 0.711478; 0.694632;, - 0.676901; 0.714499;-0.176763;, - -0.617176; 0.770470; 0.159398;, - -0.655019; 0.754845; 0.033479;, - -0.203650; 0.976562;-0.069399;, - -0.161412; 0.986847; 0.007721;, - -0.617176; 0.770470; 0.159398;, - -0.203650; 0.976562;-0.069399;, - -0.203650; 0.976562;-0.069399;, - 0.628864; 0.676992;-0.382275;, - -0.161412; 0.986847; 0.007721;, - 0.628864; 0.676992;-0.382275;, - -0.203650; 0.976562;-0.069399;, - 0.676901; 0.714499;-0.176763;, - 0.419019; 0.761620;-0.494278;, - -0.161412; 0.986847; 0.007721;, - 0.628864; 0.676992;-0.382275;, - -0.007752; 0.055940; 0.998383;, - 0.050630; 0.209387; 0.976501;, - 0.076876; 0.257210; 0.963286;, - 0.076876; 0.257210; 0.963286;, - 0.089358; 0.120090; 0.988708;, - -0.007752; 0.055940; 0.998383;, - 0.089358; 0.120090; 0.988708;, - 0.076876; 0.257210; 0.963286;, - 0.425550; 0.320658; 0.846187;, - -0.174474; 0.216865; 0.960479;, - -0.007752; 0.055940; 0.998383;, - 0.089358; 0.120090; 0.988708;, - 0.080966; 0.606250; 0.791101;, - -0.174474; 0.216865; 0.960479;, - 0.089358; 0.120090; 0.988708;, - 0.089358; 0.120090; 0.988708;, - 0.600177; 0.180059; 0.779290;, - 0.080966; 0.606250; 0.791101;, - 0.600177; 0.180059; 0.779290;, - 0.089358; 0.120090; 0.988708;, - 0.425550; 0.320658; 0.846187;, - 0.730705; 0.471297; 0.493881;, - 0.080966; 0.606250; 0.791101;, - 0.600177; 0.180059; 0.779290;, - -0.024506;-0.002899; 0.999695;, - 0.050630; 0.209387; 0.976501;, - -0.007752; 0.055940; 0.998383;, - -0.007752; 0.055940; 0.998383;, - -0.100192;-0.008423; 0.994903;, - -0.024506;-0.002899; 0.999695;, - -0.100192;-0.008423; 0.994903;, - -0.007752; 0.055940; 0.998383;, - -0.174474; 0.216865; 0.960479;, - -0.032594;-0.001709; 0.999451;, - -0.024506;-0.002899; 0.999695;, - -0.100192;-0.008423; 0.994903;, - -0.105991;-0.004456; 0.994354;, - -0.032594;-0.001709; 0.999451;, - -0.100192;-0.008423; 0.994903;, - -0.100192;-0.008423; 0.994903;, - -0.561083;-0.030366; 0.827174;, - -0.105991;-0.004456; 0.994354;, - -0.561083;-0.030366; 0.827174;, - -0.100192;-0.008423; 0.994903;, - -0.174474; 0.216865; 0.960479;, - -0.567644;-0.022492; 0.822932;, - -0.105991;-0.004456; 0.994354;, - -0.561083;-0.030366; 0.827174;, - 0.433088; 0.025300; 0.900967;, - 0.579913; 0.066897; 0.811884;, - 0.578295; 0.026215; 0.815394;, - 0.578295; 0.026215; 0.815394;, - 0.431104; 0.017609; 0.902127;, - 0.433088; 0.025300; 0.900967;, - 0.431104; 0.017609; 0.902127;, - 0.578295; 0.026215; 0.815394;, - 0.668752;-0.094241; 0.737480;, - 0.947417; 0.047578; 0.316355;, - 0.433088; 0.025300; 0.900967;, - 0.431104; 0.017609; 0.902127;, - 0.943724; 0.034028; 0.328929;, - 0.947417; 0.047578; 0.316355;, - 0.431104; 0.017609; 0.902127;, - 0.431104; 0.017609; 0.902127;, - 0.031251;-0.997314; 0.066103;, - 0.943724; 0.034028; 0.328929;, - 0.031251;-0.997314; 0.066103;, - 0.431104; 0.017609; 0.902127;, - 0.668752;-0.094241; 0.737480;, - 0.517960;-0.824122;-0.229194;, - 0.943724; 0.034028; 0.328929;, - 0.031251;-0.997314; 0.066103;, - -0.078860;-0.655232; 0.751274;, - -0.032228;-0.026429; 0.999115;, - -0.104373;-0.003235; 0.994507;, - -0.104373;-0.003235; 0.994507;, - -0.565783;-0.018036; 0.824335;, - -0.078860;-0.655232; 0.751274;, - -0.565783;-0.018036; 0.824335;, - -0.104373;-0.003235; 0.994507;, - -0.567644;-0.022492; 0.822932;, - -0.540971;-0.794244; 0.276559;, - -0.078860;-0.655232; 0.751274;, - -0.565783;-0.018036; 0.824335;, - -0.104373;-0.003235; 0.994507;, - -0.032228;-0.026429; 0.999115;, - -0.031037;-0.000916; 0.999512;, - -0.031037;-0.000916; 0.999512;, - -0.105991;-0.004456; 0.994354;, - -0.104373;-0.003235; 0.994507;, - -0.105991;-0.004456; 0.994354;, - -0.031037;-0.000916; 0.999512;, - -0.032594;-0.001709; 0.999451;, - -0.567644;-0.022492; 0.822932;, - -0.104373;-0.003235; 0.994507;, - -0.105991;-0.004456; 0.994354;, - 0.843593; 0.172979; 0.508316;, - 0.579913; 0.066897; 0.811884;, - 0.726920; 0.118900; 0.676321;, - 0.726920; 0.118900; 0.676321;, - 0.600177; 0.180059; 0.779290;, - 0.843593; 0.172979; 0.508316;, - 0.600177; 0.180059; 0.779290;, - 0.726920; 0.118900; 0.676321;, - 0.730705; 0.471297; 0.493881;, - 0.425550; 0.320658; 0.846187;, - 0.843593; 0.172979; 0.508316;, - 0.600177; 0.180059; 0.779290;, - 0.726920; 0.118900; 0.676321;, - 0.579913; 0.066897; 0.811884;, - 0.433088; 0.025300; 0.900967;, - 0.433088; 0.025300; 0.900967;, - 0.945067; 0.068453; 0.319590;, - 0.726920; 0.118900; 0.676321;, - 0.945067; 0.068453; 0.319590;, - 0.433088; 0.025300; 0.900967;, - 0.947417; 0.047578; 0.316355;, - 0.730705; 0.471297; 0.493881;, - 0.726920; 0.118900; 0.676321;, - 0.945067; 0.068453; 0.319590;, - 0.678671; 0.731223;-0.068422;, - 0.730705; 0.471297; 0.493881;, - 0.945067; 0.068453; 0.319590;, - 0.945067; 0.068453; 0.319590;, - 0.886319; 0.058046;-0.459395;, - 0.678671; 0.731223;-0.068422;, - 0.886319; 0.058046;-0.459395;, - 0.945067; 0.068453; 0.319590;, - 0.947417; 0.047578; 0.316355;, - 0.749657; 0.502823; 0.430280;, - 0.678671; 0.731223;-0.068422;, - 0.886319; 0.058046;-0.459395;, - 0.870113; 0.112461; 0.479781;, - 0.749657; 0.502823; 0.430280;, - 0.886319; 0.058046;-0.459395;, - 0.886319; 0.058046;-0.459395;, - 0.890500; 0.042146;-0.452956;, - 0.870113; 0.112461; 0.479781;, - 0.890500; 0.042146;-0.452956;, - 0.886319; 0.058046;-0.459395;, - 0.947417; 0.047578; 0.316355;, - 0.869564; 0.069887; 0.488784;, - 0.870113; 0.112461; 0.479781;, - 0.890500; 0.042146;-0.452956;, - -0.565783;-0.018036; 0.824335;, - -0.567644;-0.022492; 0.822932;, - -0.890622;-0.033204; 0.453475;, - -0.890622;-0.033204; 0.453475;, - -0.889523;-0.029481; 0.455885;, - -0.565783;-0.018036; 0.824335;, - -0.889523;-0.029481; 0.455885;, - -0.890622;-0.033204; 0.453475;, - -0.471694; 0.005127; 0.881741;, - -0.540971;-0.794244; 0.276559;, - -0.565783;-0.018036; 0.824335;, - -0.889523;-0.029481; 0.455885;, - -0.882534;-0.121311; 0.454299;, - -0.540971;-0.794244; 0.276559;, - -0.889523;-0.029481; 0.455885;, - -0.889523;-0.029481; 0.455885;, - -0.879330;-0.030274; 0.475204;, - -0.882534;-0.121311; 0.454299;, - -0.879330;-0.030274; 0.475204;, - -0.889523;-0.029481; 0.455885;, - -0.471694; 0.005127; 0.881741;, - -0.753502; 0.530595; 0.388165;, - -0.882534;-0.121311; 0.454299;, - -0.879330;-0.030274; 0.475204;, - 0.890500; 0.042146;-0.452956;, - 0.947417; 0.047578; 0.316355;, - 0.943724; 0.034028; 0.328929;, - 0.943724; 0.034028; 0.328929;, - 0.893399; 0.013703;-0.448988;, - 0.890500; 0.042146;-0.452956;, - 0.893399; 0.013703;-0.448988;, - 0.943724; 0.034028; 0.328929;, - 0.517960;-0.824122;-0.229194;, - 0.869564; 0.069887; 0.488784;, - 0.890500; 0.042146;-0.452956;, - 0.893399; 0.013703;-0.448988;, - 0.880520; 0.008393; 0.473861;, - 0.869564; 0.069887; 0.488784;, - 0.893399; 0.013703;-0.448988;, - 0.893399; 0.013703;-0.448988;, - 0.831782;-0.403424;-0.381237;, - 0.880520; 0.008393; 0.473861;, - 0.831782;-0.403424;-0.381237;, - 0.893399; 0.013703;-0.448988;, - 0.517960;-0.824122;-0.229194;, - 0.838160; 0.318033; 0.443037;, - 0.880520; 0.008393; 0.473861;, - 0.831782;-0.403424;-0.381237;, - -0.561083;-0.030366; 0.827174;, - -0.174474; 0.216865; 0.960479;, - -0.570574; 0.593219; 0.567888;, - -0.570574; 0.593219; 0.567888;, - -0.887112;-0.042909; 0.459487;, - -0.561083;-0.030366; 0.827174;, - -0.887112;-0.042909; 0.459487;, - -0.570574; 0.593219; 0.567888;, - -0.395825; 0.459822; 0.794885;, - -0.567644;-0.022492; 0.822932;, - -0.561083;-0.030366; 0.827174;, - -0.887112;-0.042909; 0.459487;, - -0.890622;-0.033204; 0.453475;, - -0.567644;-0.022492; 0.822932;, - -0.887112;-0.042909; 0.459487;, - -0.887112;-0.042909; 0.459487;, - -0.480483; 0.021699; 0.876705;, - -0.890622;-0.033204; 0.453475;, - -0.480483; 0.021699; 0.876705;, - -0.887112;-0.042909; 0.459487;, - -0.395825; 0.459822; 0.794885;, - -0.471694; 0.005127; 0.881741;, - -0.890622;-0.033204; 0.453475;, - -0.480483; 0.021699; 0.876705;, - -0.570574; 0.593219; 0.567888;, - -0.174474; 0.216865; 0.960479;, - 0.080966; 0.606250; 0.791101;, - 0.080966; 0.606250; 0.791101;, - 0.037843; 0.926328; 0.374767;, - -0.570574; 0.593219; 0.567888;, - 0.037843; 0.926328; 0.374767;, - 0.080966; 0.606250; 0.791101;, - 0.730705; 0.471297; 0.493881;, - -0.395825; 0.459822; 0.794885;, - -0.570574; 0.593219; 0.567888;, - 0.037843; 0.926328; 0.374767;, - 0.080172; 0.588488; 0.804498;, - -0.395825; 0.459822; 0.794885;, - 0.037843; 0.926328; 0.374767;, - 0.037843; 0.926328; 0.374767;, - 0.678671; 0.731223;-0.068422;, - 0.080172; 0.588488; 0.804498;, - 0.678671; 0.731223;-0.068422;, - 0.037843; 0.926328; 0.374767;, - 0.730705; 0.471297; 0.493881;, - 0.749657; 0.502823; 0.430280;, - 0.080172; 0.588488; 0.804498;, - 0.678671; 0.731223;-0.068422;, - 0.080172; 0.588488; 0.804498;, - 0.749657; 0.502823; 0.430280;, - 0.095248; 0.074282; 0.992676;, - 0.095248; 0.074282; 0.992676;, - -0.480483; 0.021699; 0.876705;, - 0.080172; 0.588488; 0.804498;, - -0.480483; 0.021699; 0.876705;, - 0.095248; 0.074282; 0.992676;, - -0.471694; 0.005127; 0.881741;, - -0.395825; 0.459822; 0.794885;, - 0.080172; 0.588488; 0.804498;, - -0.480483; 0.021699; 0.876705;, - 0.095248; 0.074282; 0.992676;, - 0.749657; 0.502823; 0.430280;, - 0.870113; 0.112461; 0.479781;, - 0.870113; 0.112461; 0.479781;, - 0.091800; 0.038972; 0.994995;, - 0.095248; 0.074282; 0.992676;, - 0.091800; 0.038972; 0.994995;, - 0.870113; 0.112461; 0.479781;, - 0.869564; 0.069887; 0.488784;, - -0.471694; 0.005127; 0.881741;, - 0.095248; 0.074282; 0.992676;, - 0.091800; 0.038972; 0.994995;, - -0.879330;-0.030274; 0.475204;, - -0.471694; 0.005127; 0.881741;, - 0.091800; 0.038972; 0.994995;, - 0.091800; 0.038972; 0.994995;, - 0.090365; 0.003418; 0.995880;, - -0.879330;-0.030274; 0.475204;, - 0.090365; 0.003418; 0.995880;, - 0.091800; 0.038972; 0.994995;, - 0.869564; 0.069887; 0.488784;, - -0.879330;-0.030274; 0.475204;, - -0.753502; 0.530595; 0.388165;, - 0.090365; 0.003418; 0.995880;, - -0.753502; 0.530595; 0.388165;, - 0.093539; 0.632801; 0.768639;, - 0.090365; 0.003418; 0.995880;, - 0.090365; 0.003418; 0.995880;, - 0.880520; 0.008393; 0.473861;, - 0.093539; 0.632801; 0.768639;, - 0.880520; 0.008393; 0.473861;, - 0.090365; 0.003418; 0.995880;, - 0.869564; 0.069887; 0.488784;, - 0.838160; 0.318033; 0.443037;, - 0.093539; 0.632801; 0.768639;, - 0.880520; 0.008393; 0.473861;, - -0.893429; 0.427778; 0.136937;, - -0.921354; 0.342540; 0.183599;, - -0.924589; 0.277993;-0.260384;, - -0.924589; 0.277993;-0.260384;, - -0.860317; 0.438398;-0.259987;, - -0.893429; 0.427778; 0.136937;, - -0.860317; 0.438398;-0.259987;, - -0.924589; 0.277993;-0.260384;, - -0.579547; 0.263192;-0.771233;, - -0.667531; 0.742302; 0.057863;, - -0.893429; 0.427778; 0.136937;, - -0.860317; 0.438398;-0.259987;, - -0.517777; 0.835444;-0.184057;, - -0.667531; 0.742302; 0.057863;, - -0.860317; 0.438398;-0.259987;, - -0.860317; 0.438398;-0.259987;, - -0.495743; 0.378033;-0.781854;, - -0.517777; 0.835444;-0.184057;, - -0.495743; 0.378033;-0.781854;, - -0.860317; 0.438398;-0.259987;, - -0.579547; 0.263192;-0.771233;, - -0.344615; 0.663930;-0.663625;, - -0.517777; 0.835444;-0.184057;, - -0.495743; 0.378033;-0.781854;, - -0.767998; 0.336467; 0.544877;, - -0.921354; 0.342540; 0.183599;, - -0.893429; 0.427778; 0.136937;, - -0.893429; 0.427778; 0.136937;, - -0.732505; 0.452620; 0.508469;, - -0.767998; 0.336467; 0.544877;, - -0.732505; 0.452620; 0.508469;, - -0.893429; 0.427778; 0.136937;, - -0.667531; 0.742302; 0.057863;, - -0.382488; 0.271310; 0.883206;, - -0.767998; 0.336467; 0.544877;, - -0.732505; 0.452620; 0.508469;, - -0.337260; 0.384838; 0.859127;, - -0.382488; 0.271310; 0.883206;, - -0.732505; 0.452620; 0.508469;, - -0.732505; 0.452620; 0.508469;, - -0.489639; 0.832820; 0.258034;, - -0.337260; 0.384838; 0.859127;, - -0.489639; 0.832820; 0.258034;, - -0.732505; 0.452620; 0.508469;, - -0.667531; 0.742302; 0.057863;, - -0.312540; 0.717002; 0.623035;, - -0.337260; 0.384838; 0.859127;, - -0.489639; 0.832820; 0.258034;, - 0.146611; 0.160100; 0.976135;, - -0.382488; 0.271310; 0.883206;, - -0.337260; 0.384838; 0.859127;, - -0.337260; 0.384838; 0.859127;, - 0.039247; 0.055239; 0.997681;, - 0.146611; 0.160100; 0.976135;, - 0.039247; 0.055239; 0.997681;, - -0.337260; 0.384838; 0.859127;, - -0.312540; 0.717002; 0.623035;, - -0.291574; 0.457717; 0.839900;, - 0.146611; 0.160100; 0.976135;, - 0.039247; 0.055239; 0.997681;, - 0.021180;-0.088443; 0.995849;, - -0.291574; 0.457717; 0.839900;, - 0.039247; 0.055239; 0.997681;, - 0.039247; 0.055239; 0.997681;, - -0.255104; 0.672506; 0.694723;, - 0.021180;-0.088443; 0.995849;, - -0.255104; 0.672506; 0.694723;, - 0.039247; 0.055239; 0.997681;, - -0.312540; 0.717002; 0.623035;, - -0.111667; 0.697195; 0.708121;, - 0.021180;-0.088443; 0.995849;, - -0.255104; 0.672506; 0.694723;, - -0.012177; 0.085788;-0.996216;, - 0.006745; 0.035249;-0.999329;, - -0.006043; 0.046999;-0.998871;, - -0.006043; 0.046999;-0.998871;, - -0.071993; 0.344371;-0.936033;, - -0.012177; 0.085788;-0.996216;, - -0.071993; 0.344371;-0.936033;, - -0.006043; 0.046999;-0.998871;, - -0.041536; 0.296518;-0.954100;, - -0.130680; 0.691061;-0.710837;, - -0.012177; 0.085788;-0.996216;, - -0.071993; 0.344371;-0.936033;, - -0.175451; 0.846644;-0.502365;, - -0.130680; 0.691061;-0.710837;, - -0.071993; 0.344371;-0.936033;, - -0.071993; 0.344371;-0.936033;, - -0.036592; 0.386639;-0.921476;, - -0.175451; 0.846644;-0.502365;, - -0.036592; 0.386639;-0.921476;, - -0.071993; 0.344371;-0.936033;, - -0.041536; 0.296518;-0.954100;, - -0.026856; 0.774041;-0.632557;, - -0.175451; 0.846644;-0.502365;, - -0.036592; 0.386639;-0.921476;, - -0.495743; 0.378033;-0.781854;, - -0.579547; 0.263192;-0.771233;, - 0.009400; 0.036592;-0.999268;, - 0.009400; 0.036592;-0.999268;, - 0.003388; 0.076266;-0.997070;, - -0.495743; 0.378033;-0.781854;, - 0.003388; 0.076266;-0.997070;, - 0.009400; 0.036592;-0.999268;, - 0.006745; 0.035249;-0.999329;, - -0.344615; 0.663930;-0.663625;, - -0.495743; 0.378033;-0.781854;, - 0.003388; 0.076266;-0.997070;, - -0.090030; 0.702872;-0.705588;, - -0.344615; 0.663930;-0.663625;, - 0.003388; 0.076266;-0.997070;, - 0.003388; 0.076266;-0.997070;, - -0.012177; 0.085788;-0.996216;, - -0.090030; 0.702872;-0.705588;, - -0.012177; 0.085788;-0.996216;, - 0.003388; 0.076266;-0.997070;, - 0.006745; 0.035249;-0.999329;, - -0.130680; 0.691061;-0.710837;, - -0.090030; 0.702872;-0.705588;, - -0.012177; 0.085788;-0.996216;, - -0.517777; 0.835444;-0.184057;, - -0.344615; 0.663930;-0.663625;, - -0.090030; 0.702872;-0.705588;, - -0.090030; 0.702872;-0.705588;, - -0.131016; 0.989044;-0.067568;, - -0.517777; 0.835444;-0.184057;, - -0.131016; 0.989044;-0.067568;, - -0.090030; 0.702872;-0.705588;, - -0.130680; 0.691061;-0.710837;, - -0.667531; 0.742302; 0.057863;, - -0.517777; 0.835444;-0.184057;, - -0.131016; 0.989044;-0.067568;, - -0.489639; 0.832820; 0.258034;, - -0.667531; 0.742302; 0.057863;, - -0.131016; 0.989044;-0.067568;, - -0.131016; 0.989044;-0.067568;, - -0.190558; 0.978149;-0.083041;, - -0.489639; 0.832820; 0.258034;, - -0.190558; 0.978149;-0.083041;, - -0.131016; 0.989044;-0.067568;, - -0.130680; 0.691061;-0.710837;, - -0.312540; 0.717002; 0.623035;, - -0.489639; 0.832820; 0.258034;, - -0.190558; 0.978149;-0.083041;, - -0.255104; 0.672506; 0.694723;, - -0.312540; 0.717002; 0.623035;, - -0.190558; 0.978149;-0.083041;, - -0.190558; 0.978149;-0.083041;, - -0.232826; 0.967162;-0.101657;, - -0.255104; 0.672506; 0.694723;, - -0.232826; 0.967162;-0.101657;, - -0.190558; 0.978149;-0.083041;, - -0.130680; 0.691061;-0.710837;, - -0.111667; 0.697195; 0.708121;, - -0.255104; 0.672506; 0.694723;, - -0.232826; 0.967162;-0.101657;, - -0.112125; 0.992035;-0.057100;, - -0.111667; 0.697195; 0.708121;, - -0.232826; 0.967162;-0.101657;, - -0.232826; 0.967162;-0.101657;, - -0.175451; 0.846644;-0.502365;, - -0.112125; 0.992035;-0.057100;, - -0.175451; 0.846644;-0.502365;, - -0.232826; 0.967162;-0.101657;, - -0.130680; 0.691061;-0.710837;, - -0.026856; 0.774041;-0.632557;, - -0.112125; 0.992035;-0.057100;, - -0.175451; 0.846644;-0.502365;, - 0.071932; 0.683828; 0.726066;, - -0.111667; 0.697195; 0.708121;, - -0.112125; 0.992035;-0.057100;, - -0.112125; 0.992035;-0.057100;, - 0.014893; 0.999115;-0.039186;, - 0.071932; 0.683828; 0.726066;, - 0.014893; 0.999115;-0.039186;, - -0.112125; 0.992035;-0.057100;, - -0.026856; 0.774041;-0.632557;, - 0.676901; 0.714499;-0.176763;, - 0.071932; 0.683828; 0.726066;, - 0.014893; 0.999115;-0.039186;, - 0.787591; 0.610034;-0.086764;, - 0.676901; 0.714499;-0.176763;, - 0.014893; 0.999115;-0.039186;, - 0.014893; 0.999115;-0.039186;, - 0.053835; 0.746422;-0.663259;, - 0.787591; 0.610034;-0.086764;, - 0.053835; 0.746422;-0.663259;, - 0.014893; 0.999115;-0.039186;, - -0.026856; 0.774041;-0.632557;, - 0.647420; 0.488815;-0.584674;, - 0.787591; 0.610034;-0.086764;, - 0.053835; 0.746422;-0.663259;, - -0.434065; 0.023499; 0.900540;, - -0.446181; 0.044160; 0.893826;, - 0.003327; 0.002503; 0.999969;, - 0.003327; 0.002503; 0.999969;, - 0.003296;-0.000214; 0.999969;, - -0.434065; 0.023499; 0.900540;, - 0.003296;-0.000214; 0.999969;, - 0.003327; 0.002503; 0.999969;, - -0.562334;-0.000153; 0.826868;, - -0.413373; 0.001312; 0.910550;, - -0.434065; 0.023499; 0.900540;, - 0.003296;-0.000214; 0.999969;, - 0.003327; 0.002503; 0.999969;, - -0.446181; 0.044160; 0.893826;, - 0.003388;-0.004944; 0.999969;, - 0.003388;-0.004944; 0.999969;, - -0.572100; 0.026734; 0.819727;, - 0.003327; 0.002503; 0.999969;, - -0.572100; 0.026734; 0.819727;, - 0.003388;-0.004944; 0.999969;, - -0.569201; 0.037324; 0.821314;, - -0.562334;-0.000153; 0.826868;, - 0.003327; 0.002503; 0.999969;, - -0.572100; 0.026734; 0.819727;, - -0.914212; 0.138401; 0.380840;, - -0.888424; 0.280770; 0.363079;, - -0.851314; 0.250740; 0.460799;, - -0.851314; 0.250740; 0.460799;, - -0.881985; 0.139561; 0.450087;, - -0.914212; 0.138401; 0.380840;, - -0.881985; 0.139561; 0.450087;, - -0.851314; 0.250740; 0.460799;, - -0.765313; 0.195013; 0.613361;, - -0.915555; 0.120029; 0.383831;, - -0.914212; 0.138401; 0.380840;, - -0.881985; 0.139561; 0.450087;, - -0.886532; 0.117191; 0.447554;, - -0.915555; 0.120029; 0.383831;, - -0.881985; 0.139561; 0.450087;, - -0.881985; 0.139561; 0.450087;, - -0.733757; 0.121067; 0.668508;, - -0.886532; 0.117191; 0.447554;, - -0.733757; 0.121067; 0.668508;, - -0.881985; 0.139561; 0.450087;, - -0.765313; 0.195013; 0.613361;, - -0.740501; 0.101444; 0.664327;, - -0.886532; 0.117191; 0.447554;, - -0.733757; 0.121067; 0.668508;, - -0.576556; 0.100558; 0.810816;, - -0.483291; 0.244606; 0.840571;, - -0.938780; 0.148808; 0.310617;, - -0.938780; 0.148808; 0.310617;, - -0.939482; 0.128208; 0.317606;, - -0.576556; 0.100558; 0.810816;, - -0.939482; 0.128208; 0.317606;, - -0.938780; 0.148808; 0.310617;, - -0.915555; 0.120029; 0.383831;, - -0.582629; 0.078127; 0.808954;, - -0.576556; 0.100558; 0.810816;, - -0.939482; 0.128208; 0.317606;, - -0.938780; 0.148808; 0.310617;, - -0.483291; 0.244606; 0.840571;, - -0.884762; 0.369579; 0.283853;, - -0.884762; 0.369579; 0.283853;, - -0.914212; 0.138401; 0.380840;, - -0.938780; 0.148808; 0.310617;, - -0.914212; 0.138401; 0.380840;, - -0.884762; 0.369579; 0.283853;, - -0.888424; 0.280770; 0.363079;, - -0.915555; 0.120029; 0.383831;, - -0.938780; 0.148808; 0.310617;, - -0.914212; 0.138401; 0.380840;, - -0.440992; 0.065859; 0.895077;, - -0.443464; 0.104526; 0.890133;, - -0.013215; 0.005097; 0.999878;, - -0.013215; 0.005097; 0.999878;, - -0.011444;-0.005249; 0.999908;, - -0.440992; 0.065859; 0.895077;, - -0.011444;-0.005249; 0.999908;, - -0.013215; 0.005097; 0.999878;, - -0.582629; 0.078127; 0.808954;, - -0.446181; 0.044160; 0.893826;, - -0.440992; 0.065859; 0.895077;, - -0.011444;-0.005249; 0.999908;, - 0.003388;-0.004944; 0.999969;, - -0.446181; 0.044160; 0.893826;, - -0.011444;-0.005249; 0.999908;, - -0.011444;-0.005249; 0.999908;, - -0.579089; 0.054994; 0.813379;, - 0.003388;-0.004944; 0.999969;, - -0.579089; 0.054994; 0.813379;, - -0.011444;-0.005249; 0.999908;, - -0.582629; 0.078127; 0.808954;, - -0.569201; 0.037324; 0.821314;, - 0.003388;-0.004944; 0.999969;, - -0.579089; 0.054994; 0.813379;, - -0.585131;-0.082553;-0.806696;, - -0.589801;-0.058931;-0.805353;, - -0.942503;-0.142064;-0.302469;, - -0.942503;-0.142064;-0.302469;, - -0.935942;-0.205542;-0.285867;, - -0.585131;-0.082553;-0.806696;, - -0.935942;-0.205542;-0.285867;, - -0.942503;-0.142064;-0.302469;, - -0.960448;-0.210608; 0.182104;, - -0.593951;-0.115696;-0.796106;, - -0.585131;-0.082553;-0.806696;, - -0.935942;-0.205542;-0.285867;, - -0.942503;-0.142064;-0.302469;, - -0.589801;-0.058931;-0.805353;, - -0.943327;-0.096408;-0.317545;, - -0.943327;-0.096408;-0.317545;, - -0.968017;-0.153966; 0.197974;, - -0.942503;-0.142064;-0.302469;, - -0.968017;-0.153966; 0.197974;, - -0.943327;-0.096408;-0.317545;, - -0.975921;-0.099368; 0.194037;, - -0.960448;-0.210608; 0.182104;, - -0.942503;-0.142064;-0.302469;, - -0.968017;-0.153966; 0.197974;, - -0.441572;-0.065493; 0.894803;, - -0.442946;-0.102817; 0.890591;, - -0.767327;-0.172948; 0.617450;, - -0.767327;-0.172948; 0.617450;, - -0.758324;-0.117038; 0.641255;, - -0.441572;-0.065493; 0.894803;, - -0.758324;-0.117038; 0.641255;, - -0.767327;-0.172948; 0.617450;, - -0.960448;-0.210608; 0.182104;, - -0.421003;-0.043031; 0.906034;, - -0.441572;-0.065493; 0.894803;, - -0.758324;-0.117038; 0.641255;, - -0.745842;-0.077639; 0.661550;, - -0.421003;-0.043031; 0.906034;, - -0.758324;-0.117038; 0.641255;, - -0.758324;-0.117038; 0.641255;, - -0.968017;-0.153966; 0.197974;, - -0.745842;-0.077639; 0.661550;, - -0.968017;-0.153966; 0.197974;, - -0.758324;-0.117038; 0.641255;, - -0.960448;-0.210608; 0.182104;, - -0.975921;-0.099368; 0.194037;, - -0.745842;-0.077639; 0.661550;, - -0.968017;-0.153966; 0.197974;, - 0.043855;-0.002869; 0.999023;, - -0.032838; 0.002045; 0.999451;, - -0.024812; 0.003204; 0.999664;, - -0.024812; 0.003204; 0.999664;, - 0.045686;-0.003265; 0.998932;, - 0.043855;-0.002869; 0.999023;, - 0.045686;-0.003265; 0.998932;, - -0.024812; 0.003204; 0.999664;, - 0.049501;-0.208106; 0.976836;, - 0.011994;-0.000702; 0.999908;, - 0.043855;-0.002869; 0.999023;, - 0.045686;-0.003265; 0.998932;, - 0.013215;-0.000488; 0.999908;, - 0.011994;-0.000702; 0.999908;, - 0.045686;-0.003265; 0.998932;, - 0.045686;-0.003265; 0.998932;, - 0.048982;-0.186163; 0.981292;, - 0.013215;-0.000488; 0.999908;, - 0.048982;-0.186163; 0.981292;, - 0.045686;-0.003265; 0.998932;, - 0.049501;-0.208106; 0.976836;, - 0.015198;-0.169866; 0.985321;, - 0.013215;-0.000488; 0.999908;, - 0.048982;-0.186163; 0.981292;, - 0.690878;-0.092959; 0.716941;, - 0.954863;-0.125584; 0.269143;, - 0.938536;-0.210059; 0.273812;, - 0.938536;-0.210059; 0.273812;, - 0.707053;-0.152318; 0.690512;, - 0.690878;-0.092959; 0.716941;, - 0.707053;-0.152318; 0.690512;, - 0.938536;-0.210059; 0.273812;, - 0.874386;-0.381024; 0.300333;, - 0.575274;-0.067995; 0.815119;, - 0.690878;-0.092959; 0.716941;, - 0.707053;-0.152318; 0.690512;, - 0.817072;-0.169530; 0.551042;, - 0.575274;-0.067995; 0.815119;, - 0.707053;-0.152318; 0.690512;, - 0.707053;-0.152318; 0.690512;, - 0.657582;-0.373547; 0.654225;, - 0.817072;-0.169530; 0.551042;, - 0.657582;-0.373547; 0.654225;, - 0.707053;-0.152318; 0.690512;, - 0.874386;-0.381024; 0.300333;, - 0.419294;-0.318461; 0.850154;, - 0.817072;-0.169530; 0.551042;, - 0.657582;-0.373547; 0.654225;, - 0.979522;-0.195685;-0.046663;, - 0.930357;-0.365032;-0.034181;, - 0.925321;-0.350627;-0.144139;, - 0.925321;-0.350627;-0.144139;, - 0.957579;-0.202704;-0.204779;, - 0.979522;-0.195685;-0.046663;, - 0.957579;-0.202704;-0.204779;, - 0.925321;-0.350627;-0.144139;, - 0.874386;-0.381024; 0.300333;, - 0.989349;-0.127995;-0.068941;, - 0.979522;-0.195685;-0.046663;, - 0.957579;-0.202704;-0.204779;, - 0.962493;-0.129704;-0.238197;, - 0.989349;-0.127995;-0.068941;, - 0.957579;-0.202704;-0.204779;, - 0.957579;-0.202704;-0.204779;, - 0.938536;-0.210059; 0.273812;, - 0.962493;-0.129704;-0.238197;, - 0.938536;-0.210059; 0.273812;, - 0.957579;-0.202704;-0.204779;, - 0.874386;-0.381024; 0.300333;, - 0.954863;-0.125584; 0.269143;, - 0.962493;-0.129704;-0.238197;, - 0.938536;-0.210059; 0.273812;, - 0.452956;-0.061678;-0.889370;, - 0.294382;-0.040590;-0.954802;, - 0.484085;-0.105106;-0.868648;, - 0.484085;-0.105106;-0.868648;, - 0.850551;-0.191168;-0.489883;, - 0.452956;-0.061678;-0.889370;, - 0.850551;-0.191168;-0.489883;, - 0.484085;-0.105106;-0.868648;, - 0.829554;-0.342082;-0.441328;, - 0.869503;-0.116276;-0.480026;, - 0.452956;-0.061678;-0.889370;, - 0.850551;-0.191168;-0.489883;, - 0.484085;-0.105106;-0.868648;, - 0.294382;-0.040590;-0.954802;, - 0.319987;-0.067324;-0.945006;, - 0.319987;-0.067324;-0.945006;, - 0.508438;-0.223334;-0.831599;, - 0.484085;-0.105106;-0.868648;, - 0.508438;-0.223334;-0.831599;, - 0.319987;-0.067324;-0.945006;, - 0.347789;-0.159062;-0.923948;, - 0.829554;-0.342082;-0.441328;, - 0.484085;-0.105106;-0.868648;, - 0.508438;-0.223334;-0.831599;, - 0.072756;-0.009949;-0.997284;, - 0.081881;-0.028047;-0.996246;, - 0.129063;-0.045259;-0.990570;, - 0.129063;-0.045259;-0.990570;, - 0.118290;-0.020173;-0.992767;, - 0.072756;-0.009949;-0.997284;, - 0.118290;-0.020173;-0.992767;, - 0.129063;-0.045259;-0.990570;, - 0.347789;-0.159062;-0.923948;, - 0.065218;-0.007447;-0.997833;, - 0.072756;-0.009949;-0.997284;, - 0.118290;-0.020173;-0.992767;, - 0.108158;-0.013337;-0.994018;, - 0.065218;-0.007447;-0.997833;, - 0.118290;-0.020173;-0.992767;, - 0.118290;-0.020173;-0.992767;, - 0.319987;-0.067324;-0.945006;, - 0.108158;-0.013337;-0.994018;, - 0.319987;-0.067324;-0.945006;, - 0.118290;-0.020173;-0.992767;, - 0.347789;-0.159062;-0.923948;, - 0.294382;-0.040590;-0.954802;, - 0.108158;-0.013337;-0.994018;, - 0.319987;-0.067324;-0.945006;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.260506; 0.000000;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.260506; 0.000000;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.267464;-0.033998;-0.962951;, - -0.260445; 0.000031;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.260506; 0.000000;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.505356;-0.043794;-0.861782;, - -0.505844; 0.000000;-0.862606;, - -0.505356;-0.043794;-0.861782;, - -0.861110; 0.000000;-0.508377;, - -0.861538;-0.057344;-0.504410;, - -0.267464;-0.033998;-0.962951;, - -0.505844; 0.000000;-0.862606;, - -0.505356;-0.043794;-0.861782;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.861538;-0.057344;-0.504410;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.997803;-0.059603;-0.028352;, - -0.999634; 0.000000;-0.026215;, - -0.997803;-0.059603;-0.028352;, - -0.977905; 0.000000;-0.209021;, - -0.974425;-0.042665;-0.220557;, - -0.861538;-0.057344;-0.504410;, - -0.999634; 0.000000;-0.026215;, - -0.997803;-0.059603;-0.028352;, - -0.746361; 0.000000;-0.665517;, - -0.732139; 0.014618;-0.680990;, - -0.922513;-0.021577;-0.385327;, - -0.922513;-0.021577;-0.385327;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.922513;-0.021577;-0.385327;, - -0.974425;-0.042665;-0.220557;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.974425;-0.042665;-0.220557;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.024415; 0.000000;-0.999695;, - 0.218451; 0.002380;-0.975829;, - 0.229194; 0.000000;-0.973357;, - 0.229194; 0.000000;-0.973357;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - 0.229194; 0.000000;-0.973357;, - 0.233406; 0.103549;-0.966826;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.024293; 0.092013;-0.995453;, - -0.263710; 0.000000;-0.964568;, - -0.024293; 0.092013;-0.995453;, - -0.024415; 0.000000;-0.999695;, - 0.233406; 0.103549;-0.966826;, - -0.251503; 0.075259;-0.964904;, - -0.263710; 0.000000;-0.964568;, - -0.024293; 0.092013;-0.995453;, - 0.444868; 0.006592;-0.895535;, - 0.697104; 0.016602;-0.716727;, - 0.708243; 0.021027;-0.705618;, - 0.708243; 0.021027;-0.705618;, - 0.456435; 0.006592;-0.889706;, - 0.444868; 0.006592;-0.895535;, - 0.456435; 0.006592;-0.889706;, - 0.708243; 0.021027;-0.705618;, - 0.711600; 0.118717;-0.692465;, - 0.218451; 0.002380;-0.975829;, - 0.444868; 0.006592;-0.895535;, - 0.456435; 0.006592;-0.889706;, - 0.229194; 0.000000;-0.973357;, - 0.218451; 0.002380;-0.975829;, - 0.456435; 0.006592;-0.889706;, - 0.456435; 0.006592;-0.889706;, - 0.466720; 0.106143;-0.877987;, - 0.229194; 0.000000;-0.973357;, - 0.466720; 0.106143;-0.877987;, - 0.456435; 0.006592;-0.889706;, - 0.711600; 0.118717;-0.692465;, - 0.233406; 0.103549;-0.966826;, - 0.229194; 0.000000;-0.973357;, - 0.466720; 0.106143;-0.877987;, - 0.879147; 0.027039;-0.475723;, - 0.960540; 0.032441;-0.276193;, - 0.960723; 0.049837;-0.272896;, - 0.960723; 0.049837;-0.272896;, - 0.887967; 0.036103;-0.458480;, - 0.879147; 0.027039;-0.475723;, - 0.887967; 0.036103;-0.458480;, - 0.960723; 0.049837;-0.272896;, - 0.958464; 0.128544;-0.254524;, - 0.697104; 0.016602;-0.716727;, - 0.879147; 0.027039;-0.475723;, - 0.887967; 0.036103;-0.458480;, - 0.708243; 0.021027;-0.705618;, - 0.697104; 0.016602;-0.716727;, - 0.887967; 0.036103;-0.458480;, - 0.887967; 0.036103;-0.458480;, - 0.891842; 0.122074;-0.435499;, - 0.708243; 0.021027;-0.705618;, - 0.891842; 0.122074;-0.435499;, - 0.887967; 0.036103;-0.458480;, - 0.958464; 0.128544;-0.254524;, - 0.711600; 0.118717;-0.692465;, - 0.708243; 0.021027;-0.705618;, - 0.891842; 0.122074;-0.435499;, - 0.997253; 0.036287;-0.064547;, - 0.689688; 0.025513;-0.723624;, - 0.694296; 0.038972;-0.718619;, - 0.694296; 0.038972;-0.718619;, - 0.996673; 0.053835;-0.060915;, - 0.997253; 0.036287;-0.064547;, - 0.996673; 0.053835;-0.060915;, - 0.694296; 0.038972;-0.718619;, - 0.673452; 0.084658;-0.734336;, - 0.960540; 0.032441;-0.276193;, - 0.997253; 0.036287;-0.064547;, - 0.996673; 0.053835;-0.060915;, - 0.960723; 0.049837;-0.272896;, - 0.960540; 0.032441;-0.276193;, - 0.996673; 0.053835;-0.060915;, - 0.996673; 0.053835;-0.060915;, - 0.989532; 0.133488;-0.054598;, - 0.960723; 0.049837;-0.272896;, - 0.989532; 0.133488;-0.054598;, - 0.996673; 0.053835;-0.060915;, - 0.673452; 0.084658;-0.734336;, - 0.958464; 0.128544;-0.254524;, - 0.960723; 0.049837;-0.272896;, - 0.989532; 0.133488;-0.054598;, - 0.728843;-0.110935;-0.675588;, - 0.713645;-0.017335;-0.700247;, - 0.440931; 0.037355;-0.896725;, - 0.440931; 0.037355;-0.896725;, - 0.473647;-0.053346;-0.879086;, - 0.728843;-0.110935;-0.675588;, - 0.473647;-0.053346;-0.879086;, - 0.440931; 0.037355;-0.896725;, - 0.229987; 0.065767;-0.970946;, - 0.748650;-0.062563;-0.659993;, - 0.728843;-0.110935;-0.675588;, - 0.473647;-0.053346;-0.879086;, - 0.506577;-0.028962;-0.861690;, - 0.748650;-0.062563;-0.659993;, - 0.473647;-0.053346;-0.879086;, - 0.473647;-0.053346;-0.879086;, - 0.262215;-0.021271;-0.964751;, - 0.506577;-0.028962;-0.861690;, - 0.262215;-0.021271;-0.964751;, - 0.473647;-0.053346;-0.879086;, - 0.229987; 0.065767;-0.970946;, - 0.258492;-0.014252;-0.965880;, - 0.506577;-0.028962;-0.861690;, - 0.262215;-0.021271;-0.964751;, - 0.262215;-0.021271;-0.964751;, - 0.229987; 0.065767;-0.970946;, - -0.000458; 0.089969;-0.995941;, - -0.000458; 0.089969;-0.995941;, - -0.000519; 0.000000;-0.999969;, - 0.262215;-0.021271;-0.964751;, - -0.000519; 0.000000;-0.999969;, - -0.000458; 0.089969;-0.995941;, - -0.247810; 0.086856;-0.964873;, - 0.258492;-0.014252;-0.965880;, - 0.262215;-0.021271;-0.964751;, - -0.000519; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - 0.258492;-0.014252;-0.965880;, - -0.000519; 0.000000;-0.999969;, - -0.000519; 0.000000;-0.999969;, - -0.257973;-0.006745;-0.966094;, - -0.000580; 0.000000;-0.999969;, - -0.257973;-0.006745;-0.966094;, - -0.000519; 0.000000;-0.999969;, - -0.247810; 0.086856;-0.964873;, - -0.255409;-0.002350;-0.966796;, - -0.000580; 0.000000;-0.999969;, - -0.257973;-0.006745;-0.966094;, - -0.257973;-0.006745;-0.966094;, - -0.247810; 0.086856;-0.964873;, - -0.485733;-0.019288;-0.873867;, - -0.485733;-0.019288;-0.873867;, - -0.498032;-0.004639;-0.867122;, - -0.257973;-0.006745;-0.966094;, - -0.498032;-0.004639;-0.867122;, - -0.485733;-0.019288;-0.873867;, - -0.730186;-0.009888;-0.683157;, - -0.255409;-0.002350;-0.966796;, - -0.257973;-0.006745;-0.966094;, - -0.498032;-0.004639;-0.867122;, - -0.485733;-0.019288;-0.873867;, - -0.247810; 0.086856;-0.964873;, - -0.473006; 0.075533;-0.877804;, - -0.473006; 0.075533;-0.877804;, - -0.741600;-0.040040;-0.669637;, - -0.485733;-0.019288;-0.873867;, - -0.741600;-0.040040;-0.669637;, - -0.473006; 0.075533;-0.877804;, - -0.745323; 0.070956;-0.662893;, - -0.730186;-0.009888;-0.683157;, - -0.485733;-0.019288;-0.873867;, - -0.741600;-0.040040;-0.669637;, - -0.741600;-0.040040;-0.669637;, - -0.745323; 0.070956;-0.662893;, - -0.924375; 0.069979;-0.374981;, - -0.924375; 0.069979;-0.374981;, - -0.911893;-0.035005;-0.408918;, - -0.741600;-0.040040;-0.669637;, - -0.911893;-0.035005;-0.408918;, - -0.924375; 0.069979;-0.374981;, - -0.973418; 0.077731;-0.215400;, - -0.730186;-0.009888;-0.683157;, - -0.741600;-0.040040;-0.669637;, - -0.911893;-0.035005;-0.408918;, - -0.899533;-0.008087;-0.436720;, - -0.730186;-0.009888;-0.683157;, - -0.911893;-0.035005;-0.408918;, - -0.911893;-0.035005;-0.408918;, - -0.968688;-0.021668;-0.247291;, - -0.899533;-0.008087;-0.436720;, - -0.968688;-0.021668;-0.247291;, - -0.911893;-0.035005;-0.408918;, - -0.973418; 0.077731;-0.215400;, - -0.967772;-0.006409;-0.251625;, - -0.899533;-0.008087;-0.436720;, - -0.968688;-0.021668;-0.247291;, - -0.968688;-0.021668;-0.247291;, - -0.973418; 0.077731;-0.215400;, - -0.995636; 0.083895;-0.040742;, - -0.995636; 0.083895;-0.040742;, - -0.998444;-0.021058;-0.051424;, - -0.968688;-0.021668;-0.247291;, - -0.998444;-0.021058;-0.051424;, - -0.995636; 0.083895;-0.040742;, - -0.738517; 0.061434;-0.671407;, - -0.967772;-0.006409;-0.251625;, - -0.968688;-0.021668;-0.247291;, - -0.998444;-0.021058;-0.051424;, - -0.998444;-0.004883;-0.054994;, - -0.967772;-0.006409;-0.251625;, - -0.998444;-0.021058;-0.051424;, - -0.998444;-0.021058;-0.051424;, - -0.754509;-0.014954;-0.656056;, - -0.998444;-0.004883;-0.054994;, - -0.754509;-0.014954;-0.656056;, - -0.998444;-0.021058;-0.051424;, - -0.738517; 0.061434;-0.671407;, - -0.747703;-0.002838;-0.664022;, - -0.998444;-0.004883;-0.054994;, - -0.754509;-0.014954;-0.656056;, - -0.754509;-0.014954;-0.656056;, - -0.738517; 0.061434;-0.671407;, - -0.193884; 0.017914;-0.980834;, - -0.193884; 0.017914;-0.980834;, - -0.178686;-0.002289;-0.983886;, - -0.754509;-0.014954;-0.656056;, - -0.178686;-0.002289;-0.983886;, - -0.193884; 0.017914;-0.980834;, - -0.079592; 0.005432;-0.996796;, - -0.747703;-0.002838;-0.664022;, - -0.754509;-0.014954;-0.656056;, - -0.178686;-0.002289;-0.983886;, - -0.164037; 0.000458;-0.986450;, - -0.747703;-0.002838;-0.664022;, - -0.178686;-0.002289;-0.983886;, - -0.178686;-0.002289;-0.983886;, - -0.072329;-0.000305;-0.997375;, - -0.164037; 0.000458;-0.986450;, - -0.072329;-0.000305;-0.997375;, - -0.178686;-0.002289;-0.983886;, - -0.079592; 0.005432;-0.996796;, - -0.074007;-0.000122;-0.997253;, - -0.164037; 0.000458;-0.986450;, - -0.072329;-0.000305;-0.997375;, - 0.185217;-0.019929;-0.982482;, - 0.095065;-0.010529;-0.995392;, - 0.196631;-0.033235;-0.979888;, - 0.196631;-0.033235;-0.979888;, - 0.742973;-0.137150;-0.655080;, - 0.185217;-0.019929;-0.982482;, - 0.742973;-0.137150;-0.655080;, - 0.196631;-0.033235;-0.979888;, - 0.739891;-0.095279;-0.665914;, - 0.759972;-0.083041;-0.644581;, - 0.185217;-0.019929;-0.982482;, - 0.742973;-0.137150;-0.655080;, - 0.196631;-0.033235;-0.979888;, - 0.095065;-0.010529;-0.995392;, - 0.102115;-0.015839;-0.994629;, - 0.102115;-0.015839;-0.994629;, - 0.208502;-0.044160;-0.977020;, - 0.196631;-0.033235;-0.979888;, - 0.208502;-0.044160;-0.977020;, - 0.102115;-0.015839;-0.994629;, - 0.098300;-0.033601;-0.994568;, - 0.739891;-0.095279;-0.665914;, - 0.196631;-0.033235;-0.979888;, - 0.208502;-0.044160;-0.977020;, - -0.072329;-0.000305;-0.997375;, - -0.079592; 0.005432;-0.996796;, - 0.020051;-0.002411;-0.999786;, - 0.020051;-0.002411;-0.999786;, - 0.018403;-0.001099;-0.999817;, - -0.072329;-0.000305;-0.997375;, - 0.018403;-0.001099;-0.999817;, - 0.020051;-0.002411;-0.999786;, - 0.081881;-0.028047;-0.996246;, - -0.074007;-0.000122;-0.997253;, - -0.072329;-0.000305;-0.997375;, - 0.018403;-0.001099;-0.999817;, - 0.016846;-0.001251;-0.999847;, - -0.074007;-0.000122;-0.997253;, - 0.018403;-0.001099;-0.999817;, - 0.018403;-0.001099;-0.999817;, - 0.072756;-0.009949;-0.997284;, - 0.016846;-0.001251;-0.999847;, - 0.072756;-0.009949;-0.997284;, - 0.018403;-0.001099;-0.999817;, - 0.081881;-0.028047;-0.996246;, - 0.065218;-0.007447;-0.997833;, - 0.016846;-0.001251;-0.999847;, - 0.072756;-0.009949;-0.997284;, - -0.945402;-0.001251;-0.325816;, - -0.979461; 0.000793; 0.201575;, - -0.977996;-0.049867; 0.202429;, - -0.977996;-0.049867; 0.202429;, - -0.945647;-0.044313;-0.322123;, - -0.945402;-0.001251;-0.325816;, - -0.945647;-0.044313;-0.322123;, - -0.977996;-0.049867; 0.202429;, - -0.975921;-0.099368; 0.194037;, - -0.587329;-0.000488;-0.809320;, - -0.945402;-0.001251;-0.325816;, - -0.945647;-0.044313;-0.322123;, - -0.578204;-0.025727;-0.815455;, - -0.587329;-0.000488;-0.809320;, - -0.945647;-0.044313;-0.322123;, - -0.945647;-0.044313;-0.322123;, - -0.943327;-0.096408;-0.317545;, - -0.578204;-0.025727;-0.815455;, - -0.943327;-0.096408;-0.317545;, - -0.945647;-0.044313;-0.322123;, - -0.975921;-0.099368; 0.194037;, - -0.589801;-0.058931;-0.805353;, - -0.578204;-0.025727;-0.815455;, - -0.943327;-0.096408;-0.317545;, - -0.738487; 0.002716; 0.674215;, - -0.413373; 0.001312; 0.910550;, - -0.742759;-0.038820; 0.668386;, - -0.742759;-0.038820; 0.668386;, - -0.977996;-0.049867; 0.202429;, - -0.738487; 0.002716; 0.674215;, - -0.977996;-0.049867; 0.202429;, - -0.742759;-0.038820; 0.668386;, - -0.975921;-0.099368; 0.194037;, - -0.979461; 0.000793; 0.201575;, - -0.738487; 0.002716; 0.674215;, - -0.977996;-0.049867; 0.202429;, - -0.742759;-0.038820; 0.668386;, - -0.413373; 0.001312; 0.910550;, - -0.408368;-0.022675; 0.912503;, - -0.408368;-0.022675; 0.912503;, - -0.745842;-0.077639; 0.661550;, - -0.742759;-0.038820; 0.668386;, - -0.745842;-0.077639; 0.661550;, - -0.408368;-0.022675; 0.912503;, - -0.421003;-0.043031; 0.906034;, - -0.975921;-0.099368; 0.194037;, - -0.742759;-0.038820; 0.668386;, - -0.745842;-0.077639; 0.661550;, - -0.030671; 0.001038; 0.999512;, - -0.032838; 0.002045; 0.999451;, - 0.043306;-0.000763; 0.999054;, - 0.043306;-0.000763; 0.999054;, - 0.042756;-0.000061; 0.999084;, - -0.030671; 0.001038; 0.999512;, - 0.042756;-0.000061; 0.999084;, - 0.043306;-0.000763; 0.999054;, - 0.010834;-0.000061; 0.999939;, - -0.032228;-0.026429; 0.999115;, - -0.030671; 0.001038; 0.999512;, - 0.042756;-0.000061; 0.999084;, - 0.043306;-0.000763; 0.999054;, - -0.032838; 0.002045; 0.999451;, - 0.043855;-0.002869; 0.999023;, - 0.043855;-0.002869; 0.999023;, - 0.011078; 0.000000; 0.999908;, - 0.043306;-0.000763; 0.999054;, - 0.011078; 0.000000; 0.999908;, - 0.043855;-0.002869; 0.999023;, - 0.011994;-0.000702; 0.999908;, - 0.010834;-0.000061; 0.999939;, - 0.043306;-0.000763; 0.999054;, - 0.011078; 0.000000; 0.999908;, - 0.958708;-0.047823; 0.280282;, - 0.954863;-0.125584; 0.269143;, - 0.688559;-0.033082; 0.724387;, - 0.688559;-0.033082; 0.724387;, - 0.683950; 0.000000; 0.729484;, - 0.958708;-0.047823; 0.280282;, - 0.683950; 0.000000; 0.729484;, - 0.688559;-0.033082; 0.724387;, - 0.668752;-0.094241; 0.737480;, - 0.961089; 0.000000; 0.276193;, - 0.958708;-0.047823; 0.280282;, - 0.683950; 0.000000; 0.729484;, - 0.688559;-0.033082; 0.724387;, - 0.954863;-0.125584; 0.269143;, - 0.690878;-0.092959; 0.716941;, - 0.690878;-0.092959; 0.716941;, - 0.576342;-0.026673; 0.816736;, - 0.688559;-0.033082; 0.724387;, - 0.576342;-0.026673; 0.816736;, - 0.690878;-0.092959; 0.716941;, - 0.575274;-0.067995; 0.815119;, - 0.668752;-0.094241; 0.737480;, - 0.688559;-0.033082; 0.724387;, - 0.576342;-0.026673; 0.816736;, - 0.969115; 0.000000;-0.246498;, - 0.997253;-0.000153;-0.073763;, - 0.968841;-0.047243;-0.243110;, - 0.968841;-0.047243;-0.243110;, - 0.958708;-0.047823; 0.280282;, - 0.969115; 0.000000;-0.246498;, - 0.958708;-0.047823; 0.280282;, - 0.968841;-0.047243;-0.243110;, - 0.954863;-0.125584; 0.269143;, - 0.961089; 0.000000; 0.276193;, - 0.969115; 0.000000;-0.246498;, - 0.958708;-0.047823; 0.280282;, - 0.968841;-0.047243;-0.243110;, - 0.997253;-0.000153;-0.073763;, - 0.996246;-0.047456;-0.071993;, - 0.996246;-0.047456;-0.071993;, - 0.962493;-0.129704;-0.238197;, - 0.968841;-0.047243;-0.243110;, - 0.962493;-0.129704;-0.238197;, - 0.996246;-0.047456;-0.071993;, - 0.989349;-0.127995;-0.068941;, - 0.954863;-0.125584; 0.269143;, - 0.968841;-0.047243;-0.243110;, - 0.962493;-0.129704;-0.238197;, - 0.443983; 0.000000;-0.896023;, - 0.284280; 0.000000;-0.958708;, - 0.448805;-0.022065;-0.893338;, - 0.448805;-0.022065;-0.893338;, - 0.866451;-0.043611;-0.497299;, - 0.443983; 0.000000;-0.896023;, - 0.866451;-0.043611;-0.497299;, - 0.448805;-0.022065;-0.893338;, - 0.869503;-0.116276;-0.480026;, - 0.871731; 0.000000;-0.489944;, - 0.443983; 0.000000;-0.896023;, - 0.866451;-0.043611;-0.497299;, - 0.448805;-0.022065;-0.893338;, - 0.284280; 0.000000;-0.958708;, - 0.284249;-0.013672;-0.958647;, - 0.284249;-0.013672;-0.958647;, - 0.452956;-0.061678;-0.889370;, - 0.448805;-0.022065;-0.893338;, - 0.452956;-0.061678;-0.889370;, - 0.284249;-0.013672;-0.958647;, - 0.294382;-0.040590;-0.954802;, - 0.869503;-0.116276;-0.480026;, - 0.448805;-0.022065;-0.893338;, - 0.452956;-0.061678;-0.889370;, - 0.062349;-0.002258;-0.998047;, - 0.065218;-0.007447;-0.997833;, - 0.108158;-0.013337;-0.994018;, - 0.108158;-0.013337;-0.994018;, - 0.106723;-0.004486;-0.994263;, - 0.062349;-0.002258;-0.998047;, - 0.106723;-0.004486;-0.994263;, - 0.108158;-0.013337;-0.994018;, - 0.294382;-0.040590;-0.954802;, - 0.062288;-0.000031;-0.998047;, - 0.062349;-0.002258;-0.998047;, - 0.106723;-0.004486;-0.994263;, - 0.105289; 0.000000;-0.994415;, - 0.062288;-0.000031;-0.998047;, - 0.106723;-0.004486;-0.994263;, - 0.106723;-0.004486;-0.994263;, - 0.284249;-0.013672;-0.958647;, - 0.105289; 0.000000;-0.994415;, - 0.284249;-0.013672;-0.958647;, - 0.106723;-0.004486;-0.994263;, - 0.294382;-0.040590;-0.954802;, - 0.284280; 0.000000;-0.958708;, - 0.105289; 0.000000;-0.994415;, - 0.284249;-0.013672;-0.958647;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.260445; 0.000031;-0.965453;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.260323; 0.000000;-0.965514;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.260445; 0.000031;-0.965453;, - -0.505844; 0.000000;-0.862606;, - -0.505844; 0.000000;-0.862606;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.861110; 0.000000;-0.508377;, - -0.999634; 0.000000;-0.026215;, - -0.999634; 0.000000;-0.026215;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.977905; 0.000000;-0.209021;, - -0.977905; 0.000000;-0.209021;, - -0.746361; 0.000000;-0.665517;, - -0.923002; 0.000000;-0.384747;, - -0.923002; 0.000000;-0.384747;, - -0.024415; 0.000000;-0.999695;, - 0.213874; 0.000000;-0.976836;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - 0.213874; 0.000000;-0.976836;, - 0.216559; 0.000000;-0.976257;, - 0.216559; 0.000000;-0.976257;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - 0.216559; 0.000000;-0.976257;, - 0.218451; 0.002380;-0.975829;, - -0.263710; 0.000000;-0.964568;, - -0.024415; 0.000000;-0.999695;, - -0.024415; 0.000000;-0.999695;, - 0.437696; 0.000000;-0.899106;, - 0.689627; 0.000000;-0.724143;, - 0.691733; 0.006684;-0.722098;, - 0.691733; 0.006684;-0.722098;, - 0.441298; 0.002106;-0.897336;, - 0.437696; 0.000000;-0.899106;, - 0.441298; 0.002106;-0.897336;, - 0.691733; 0.006684;-0.722098;, - 0.697104; 0.016602;-0.716727;, - 0.213874; 0.000000;-0.976836;, - 0.437696; 0.000000;-0.899106;, - 0.441298; 0.002106;-0.897336;, - 0.216559; 0.000000;-0.976257;, - 0.213874; 0.000000;-0.976836;, - 0.441298; 0.002106;-0.897336;, - 0.441298; 0.002106;-0.897336;, - 0.444868; 0.006592;-0.895535;, - 0.216559; 0.000000;-0.976257;, - 0.444868; 0.006592;-0.895535;, - 0.441298; 0.002106;-0.897336;, - 0.697104; 0.016602;-0.716727;, - 0.218451; 0.002380;-0.975829;, - 0.216559; 0.000000;-0.976257;, - 0.444868; 0.006592;-0.895535;, - 0.873623; 0.000000;-0.486557;, - 0.959258; 0.000000;-0.282479;, - 0.959136; 0.015961;-0.282449;, - 0.959136; 0.015961;-0.282449;, - 0.876522; 0.011505;-0.481185;, - 0.873623; 0.000000;-0.486557;, - 0.876522; 0.011505;-0.481185;, - 0.959136; 0.015961;-0.282449;, - 0.960540; 0.032441;-0.276193;, - 0.689627; 0.000000;-0.724143;, - 0.873623; 0.000000;-0.486557;, - 0.876522; 0.011505;-0.481185;, - 0.691733; 0.006684;-0.722098;, - 0.689627; 0.000000;-0.724143;, - 0.876522; 0.011505;-0.481185;, - 0.876522; 0.011505;-0.481185;, - 0.879147; 0.027039;-0.475723;, - 0.691733; 0.006684;-0.722098;, - 0.879147; 0.027039;-0.475723;, - 0.876522; 0.011505;-0.481185;, - 0.960540; 0.032441;-0.276193;, - 0.697104; 0.016602;-0.716727;, - 0.691733; 0.006684;-0.722098;, - 0.879147; 0.027039;-0.475723;, - 0.997772; 0.000000;-0.066469;, - 0.689627; 0.000000;-0.724143;, - 0.693655; 0.012268;-0.720176;, - 0.693655; 0.012268;-0.720176;, - 0.997681; 0.017121;-0.065523;, - 0.997772; 0.000000;-0.066469;, - 0.997681; 0.017121;-0.065523;, - 0.693655; 0.012268;-0.720176;, - 0.689688; 0.025513;-0.723624;, - 0.959258; 0.000000;-0.282479;, - 0.997772; 0.000000;-0.066469;, - 0.997681; 0.017121;-0.065523;, - 0.959136; 0.015961;-0.282449;, - 0.959258; 0.000000;-0.282479;, - 0.997681; 0.017121;-0.065523;, - 0.997681; 0.017121;-0.065523;, - 0.997253; 0.036287;-0.064547;, - 0.959136; 0.015961;-0.282449;, - 0.997253; 0.036287;-0.064547;, - 0.997681; 0.017121;-0.065523;, - 0.689688; 0.025513;-0.723624;, - 0.960540; 0.032441;-0.276193;, - 0.959136; 0.015961;-0.282449;, - 0.997253; 0.036287;-0.064547;, - 0.975921;-0.036256;-0.214942;, - 0.970244;-0.102268;-0.219398;, - 0.925748;-0.088137;-0.367656;, - 0.925748;-0.088137;-0.367656;, - 0.930296;-0.032777;-0.365307;, - 0.975921;-0.036256;-0.214942;, - 0.930296;-0.032777;-0.365307;, - 0.925748;-0.088137;-0.367656;, - 0.748650;-0.062563;-0.659993;, - 0.976959;-0.000214;-0.213355;, - 0.975921;-0.036256;-0.214942;, - 0.930296;-0.032777;-0.365307;, - 0.932188;-0.000641;-0.361950;, - 0.976959;-0.000214;-0.213355;, - 0.930296;-0.032777;-0.365307;, - 0.930296;-0.032777;-0.365307;, - 0.761406;-0.025361;-0.647725;, - 0.932188;-0.000641;-0.361950;, - 0.761406;-0.025361;-0.647725;, - 0.930296;-0.032777;-0.365307;, - 0.748650;-0.062563;-0.659993;, - 0.762017;-0.000916;-0.647511;, - 0.932188;-0.000641;-0.361950;, - 0.761406;-0.025361;-0.647725;, - 0.518418;-0.001251;-0.855098;, - 0.762017;-0.000916;-0.647511;, - 0.512558;-0.014374;-0.858516;, - 0.512558;-0.014374;-0.858516;, - 0.268838;-0.006165;-0.963134;, - 0.518418;-0.001251;-0.855098;, - 0.268838;-0.006165;-0.963134;, - 0.512558;-0.014374;-0.858516;, - 0.258492;-0.014252;-0.965880;, - 0.265572;-0.000641;-0.964080;, - 0.518418;-0.001251;-0.855098;, - 0.268838;-0.006165;-0.963134;, - 0.512558;-0.014374;-0.858516;, - 0.762017;-0.000916;-0.647511;, - 0.761406;-0.025361;-0.647725;, - 0.761406;-0.025361;-0.647725;, - 0.506577;-0.028962;-0.861690;, - 0.512558;-0.014374;-0.858516;, - 0.506577;-0.028962;-0.861690;, - 0.761406;-0.025361;-0.647725;, - 0.748650;-0.062563;-0.659993;, - 0.258492;-0.014252;-0.965880;, - 0.512558;-0.014374;-0.858516;, - 0.506577;-0.028962;-0.861690;, - 0.268838;-0.006165;-0.963134;, - 0.258492;-0.014252;-0.965880;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - 0.268838;-0.006165;-0.963134;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.255409;-0.002350;-0.966796;, - 0.265572;-0.000641;-0.964080;, - 0.268838;-0.006165;-0.963134;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - 0.265572;-0.000641;-0.964080;, - -0.000580; 0.000000;-0.999969;, - -0.000580; 0.000000;-0.999969;, - -0.258003; 0.001923;-0.966124;, - -0.000580; 0.000000;-0.999969;, - -0.258003; 0.001923;-0.966124;, - -0.000580; 0.000000;-0.999969;, - -0.255409;-0.002350;-0.966796;, - -0.259774; 0.001007;-0.965636;, - -0.000580; 0.000000;-0.999969;, - -0.258003; 0.001923;-0.966124;, - -0.498032;-0.004639;-0.867122;, - -0.730186;-0.009888;-0.683157;, - -0.499496; 0.002960;-0.866298;, - -0.499496; 0.002960;-0.866298;, - -0.258003; 0.001923;-0.966124;, - -0.498032;-0.004639;-0.867122;, - -0.258003; 0.001923;-0.966124;, - -0.499496; 0.002960;-0.866298;, - -0.259774; 0.001007;-0.965636;, - -0.255409;-0.002350;-0.966796;, - -0.498032;-0.004639;-0.867122;, - -0.258003; 0.001923;-0.966124;, - -0.499496; 0.002960;-0.866298;, - -0.730186;-0.009888;-0.683157;, - -0.732322; 0.003174;-0.680929;, - -0.732322; 0.003174;-0.680929;, - -0.500961; 0.001740;-0.865444;, - -0.499496; 0.002960;-0.866298;, - -0.500961; 0.001740;-0.865444;, - -0.732322; 0.003174;-0.680929;, - -0.728782; 0.004700;-0.684713;, - -0.259774; 0.001007;-0.965636;, - -0.499496; 0.002960;-0.866298;, - -0.500961; 0.001740;-0.865444;, - -0.732322; 0.003174;-0.680929;, - -0.730186;-0.009888;-0.683157;, - -0.899533;-0.008087;-0.436720;, - -0.899533;-0.008087;-0.436720;, - -0.897153; 0.006439;-0.441603;, - -0.732322; 0.003174;-0.680929;, - -0.897153; 0.006439;-0.441603;, - -0.899533;-0.008087;-0.436720;, - -0.967772;-0.006409;-0.251625;, - -0.728782; 0.004700;-0.684713;, - -0.732322; 0.003174;-0.680929;, - -0.897153; 0.006439;-0.441603;, - -0.894742; 0.007660;-0.446486;, - -0.728782; 0.004700;-0.684713;, - -0.897153; 0.006439;-0.441603;, - -0.897153; 0.006439;-0.441603;, - -0.966613; 0.009674;-0.256020;, - -0.894742; 0.007660;-0.446486;, - -0.966613; 0.009674;-0.256020;, - -0.897153; 0.006439;-0.441603;, - -0.967772;-0.006409;-0.251625;, - -0.966765; 0.005982;-0.255531;, - -0.894742; 0.007660;-0.446486;, - -0.966613; 0.009674;-0.256020;, - -0.966613; 0.009674;-0.256020;, - -0.967772;-0.006409;-0.251625;, - -0.998444;-0.004883;-0.054994;, - -0.998444;-0.004883;-0.054994;, - -0.998383; 0.010254;-0.055757;, - -0.966613; 0.009674;-0.256020;, - -0.998383; 0.010254;-0.055757;, - -0.998444;-0.004883;-0.054994;, - -0.747703;-0.002838;-0.664022;, - -0.966765; 0.005982;-0.255531;, - -0.966613; 0.009674;-0.256020;, - -0.998383; 0.010254;-0.055757;, - -0.998383; 0.004944;-0.056520;, - -0.966765; 0.005982;-0.255531;, - -0.998383; 0.010254;-0.055757;, - -0.998383; 0.010254;-0.055757;, - -0.744255; 0.007843;-0.667806;, - -0.998383; 0.004944;-0.056520;, - -0.744255; 0.007843;-0.667806;, - -0.998383; 0.010254;-0.055757;, - -0.747703;-0.002838;-0.664022;, - -0.741935; 0.003662;-0.670431;, - -0.998383; 0.004944;-0.056520;, - -0.744255; 0.007843;-0.667806;, - -0.164037; 0.000458;-0.986450;, - -0.074007;-0.000122;-0.997253;, - -0.161870; 0.001892;-0.986785;, - -0.161870; 0.001892;-0.986785;, - -0.744255; 0.007843;-0.667806;, - -0.164037; 0.000458;-0.986450;, - -0.744255; 0.007843;-0.667806;, - -0.161870; 0.001892;-0.986785;, - -0.741935; 0.003662;-0.670431;, - -0.747703;-0.002838;-0.664022;, - -0.164037; 0.000458;-0.986450;, - -0.744255; 0.007843;-0.667806;, - -0.161870; 0.001892;-0.986785;, - -0.074007;-0.000122;-0.997253;, - -0.071688; 0.000916;-0.997406;, - -0.071688; 0.000916;-0.997406;, - -0.159734; 0.000732;-0.987152;, - -0.161870; 0.001892;-0.986785;, - -0.159734; 0.000732;-0.987152;, - -0.071688; 0.000916;-0.997406;, - -0.071352; 0.000336;-0.997436;, - -0.741935; 0.003662;-0.670431;, - -0.161870; 0.001892;-0.986785;, - -0.159734; 0.000732;-0.987152;, - 0.181341; 0.000000;-0.983398;, - 0.090670; 0.000000;-0.995849;, - 0.183294;-0.006165;-0.983032;, - 0.183294;-0.006165;-0.983032;, - 0.750450;-0.027314;-0.660329;, - 0.181341; 0.000000;-0.983398;, - 0.750450;-0.027314;-0.660329;, - 0.183294;-0.006165;-0.983032;, - 0.759972;-0.083041;-0.644581;, - 0.756645; 0.000000;-0.653798;, - 0.181341; 0.000000;-0.983398;, - 0.750450;-0.027314;-0.660329;, - 0.183294;-0.006165;-0.983032;, - 0.090670; 0.000000;-0.995849;, - 0.090518;-0.002777;-0.995880;, - 0.090518;-0.002777;-0.995880;, - 0.185217;-0.019929;-0.982482;, - 0.183294;-0.006165;-0.983032;, - 0.185217;-0.019929;-0.982482;, - 0.090518;-0.002777;-0.995880;, - 0.095065;-0.010529;-0.995392;, - 0.759972;-0.083041;-0.644581;, - 0.183294;-0.006165;-0.983032;, - 0.185217;-0.019929;-0.982482;, - 0.016388; 0.000000;-0.999847;, - -0.071352; 0.000336;-0.997436;, - 0.016633;-0.000397;-0.999847;, - 0.016633;-0.000397;-0.999847;, - 0.062349;-0.002258;-0.998047;, - 0.016388; 0.000000;-0.999847;, - 0.062349;-0.002258;-0.998047;, - 0.016633;-0.000397;-0.999847;, - 0.065218;-0.007447;-0.997833;, - 0.062288;-0.000031;-0.998047;, - 0.016388; 0.000000;-0.999847;, - 0.062349;-0.002258;-0.998047;, - 0.016633;-0.000397;-0.999847;, - -0.071352; 0.000336;-0.997436;, - -0.071688; 0.000916;-0.997406;, - -0.071688; 0.000916;-0.997406;, - 0.016846;-0.001251;-0.999847;, - 0.016633;-0.000397;-0.999847;, - 0.016846;-0.001251;-0.999847;, - -0.071688; 0.000916;-0.997406;, - -0.074007;-0.000122;-0.997253;, - 0.065218;-0.007447;-0.997833;, - 0.016633;-0.000397;-0.999847;, - 0.016846;-0.001251;-0.999847;, - 0.021607; 0.002136;-0.999756;, - 0.022889; 0.002075;-0.999725;, - 0.030396; 0.002319;-0.999512;, - 0.030396; 0.002319;-0.999512;, - 0.029115; 0.001709;-0.999573;, - 0.021607; 0.002136;-0.999756;, - 0.029115; 0.001709;-0.999573;, - 0.030396; 0.002319;-0.999512;, - 0.689688; 0.025513;-0.723624;, - 0.020661; 0.001312;-0.999756;, - 0.021607; 0.002136;-0.999756;, - 0.029115; 0.001709;-0.999573;, - 0.030396; 0.002319;-0.999512;, - 0.022889; 0.002075;-0.999725;, - 0.031648; 0.002258;-0.999481;, - 0.031648; 0.002258;-0.999481;, - 0.694296; 0.038972;-0.718619;, - 0.030396; 0.002319;-0.999512;, - 0.694296; 0.038972;-0.718619;, - 0.031648; 0.002258;-0.999481;, - 0.673452; 0.084658;-0.734336;, - 0.689688; 0.025513;-0.723624;, - 0.030396; 0.002319;-0.999512;, - 0.694296; 0.038972;-0.718619;, - 0.020539; 0.000519;-0.999786;, - 0.020661; 0.001312;-0.999756;, - 0.028840; 0.000641;-0.999573;, - 0.028840; 0.000641;-0.999573;, - 0.028596; 0.000000;-0.999573;, - 0.020539; 0.000519;-0.999786;, - 0.028596; 0.000000;-0.999573;, - 0.028840; 0.000641;-0.999573;, - 0.689627; 0.000000;-0.724143;, - 0.020112; 0.000000;-0.999786;, - 0.020539; 0.000519;-0.999786;, - 0.028596; 0.000000;-0.999573;, - 0.028840; 0.000641;-0.999573;, - 0.020661; 0.001312;-0.999756;, - 0.029115; 0.001709;-0.999573;, - 0.029115; 0.001709;-0.999573;, - 0.693655; 0.012268;-0.720176;, - 0.028840; 0.000641;-0.999573;, - 0.693655; 0.012268;-0.720176;, - 0.029115; 0.001709;-0.999573;, - 0.689688; 0.025513;-0.723624;, - 0.689627; 0.000000;-0.724143;, - 0.028840; 0.000641;-0.999573;, - 0.693655; 0.012268;-0.720176;, - 0.013306; 0.001770;-0.999908;, - 0.014039; 0.002380;-0.999878;, - 0.013306; 0.001495;-0.999908;, - 0.013306; 0.001495;-0.999908;, - 0.012513; 0.000977;-0.999908;, - 0.013306; 0.001770;-0.999908;, - 0.012513; 0.000977;-0.999908;, - 0.013306; 0.001495;-0.999908;, - 0.020661; 0.001312;-0.999756;, - 0.012482; 0.001068;-0.999908;, - 0.013306; 0.001770;-0.999908;, - 0.012513; 0.000977;-0.999908;, - 0.013306; 0.001495;-0.999908;, - 0.014039; 0.002380;-0.999878;, - 0.014069; 0.002197;-0.999878;, - 0.014069; 0.002197;-0.999878;, - 0.021607; 0.002136;-0.999756;, - 0.013306; 0.001495;-0.999908;, - 0.021607; 0.002136;-0.999756;, - 0.014069; 0.002197;-0.999878;, - 0.022889; 0.002075;-0.999725;, - 0.020661; 0.001312;-0.999756;, - 0.013306; 0.001495;-0.999908;, - 0.021607; 0.002136;-0.999756;, - -0.585131;-0.082553;-0.806696;, - -0.593951;-0.115696;-0.796106;, - 0.013276; 0.001801;-0.999908;, - 0.013276; 0.001801;-0.999908;, - 0.012513; 0.001129;-0.999908;, - -0.585131;-0.082553;-0.806696;, - 0.012513; 0.001129;-0.999908;, - 0.013276; 0.001801;-0.999908;, - 0.012482; 0.001068;-0.999908;, - -0.589801;-0.058931;-0.805353;, - -0.585131;-0.082553;-0.806696;, - 0.012513; 0.001129;-0.999908;, - 0.013276; 0.001801;-0.999908;, - -0.593951;-0.115696;-0.796106;, - 0.014069; 0.002564;-0.999878;, - 0.014069; 0.002564;-0.999878;, - 0.013306; 0.001770;-0.999908;, - 0.013276; 0.001801;-0.999908;, - 0.013306; 0.001770;-0.999908;, - 0.014069; 0.002564;-0.999878;, - 0.014039; 0.002380;-0.999878;, - 0.012482; 0.001068;-0.999908;, - 0.013276; 0.001801;-0.999908;, - 0.013306; 0.001770;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.012482; 0.001068;-0.999908;, - 0.012177; 0.000366;-0.999908;, - 0.012177; 0.000366;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.012177; 0.000366;-0.999908;, - 0.020112; 0.000000;-0.999786;, - 0.011872; 0.000000;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.011841; 0.000000;-0.999908;, - 0.012177; 0.000366;-0.999908;, - 0.012482; 0.001068;-0.999908;, - 0.012513; 0.000977;-0.999908;, - 0.012513; 0.000977;-0.999908;, - 0.020539; 0.000519;-0.999786;, - 0.012177; 0.000366;-0.999908;, - 0.020539; 0.000519;-0.999786;, - 0.012513; 0.000977;-0.999908;, - 0.020661; 0.001312;-0.999756;, - 0.020112; 0.000000;-0.999786;, - 0.012177; 0.000366;-0.999908;, - 0.020539; 0.000519;-0.999786;, - -0.578204;-0.025727;-0.815455;, - -0.589801;-0.058931;-0.805353;, - 0.012177; 0.000488;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.011841; 0.000000;-0.999908;, - -0.578204;-0.025727;-0.815455;, - 0.011841; 0.000000;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.011872; 0.000000;-0.999908;, - -0.587329;-0.000488;-0.809320;, - -0.578204;-0.025727;-0.815455;, - 0.011841; 0.000000;-0.999908;, - 0.012177; 0.000488;-0.999908;, - -0.589801;-0.058931;-0.805353;, - 0.012513; 0.001129;-0.999908;, - 0.012513; 0.001129;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.012513; 0.001129;-0.999908;, - 0.012482; 0.001068;-0.999908;, - 0.011872; 0.000000;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.012177; 0.000488;-0.999908;, - 0.003265; 0.000153;-0.999969;, - -0.260445; 0.000031;-0.965453;, - -0.260506; 0.000000;-0.965453;, - -0.260506; 0.000000;-0.965453;, - 0.003113; 0.000153;-0.999969;, - 0.003265; 0.000153;-0.999969;, - 0.003113; 0.000153;-0.999969;, - -0.260506; 0.000000;-0.965453;, - -0.267464;-0.033998;-0.962951;, - -0.000946; 0.000000;-0.999969;, - 0.003265; 0.000153;-0.999969;, - 0.003113; 0.000153;-0.999969;, - -0.001221;-0.000031;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.003113; 0.000153;-0.999969;, - 0.003113; 0.000153;-0.999969;, - 0.002960;-0.020234;-0.999786;, - -0.001221;-0.000031;-0.999969;, - 0.002960;-0.020234;-0.999786;, - 0.003113; 0.000153;-0.999969;, - -0.267464;-0.033998;-0.962951;, - -0.001312;-0.020295;-0.999786;, - -0.001221;-0.000031;-0.999969;, - 0.002960;-0.020234;-0.999786;, - -0.005036; 0.000458;-0.999969;, - -0.000946; 0.000000;-0.999969;, - -0.005219; 0.000153;-0.999969;, - -0.005219; 0.000153;-0.999969;, - 0.102115;-0.015839;-0.994629;, - -0.005036; 0.000458;-0.999969;, - 0.102115;-0.015839;-0.994629;, - -0.005219; 0.000153;-0.999969;, - 0.098300;-0.033601;-0.994568;, - 0.095065;-0.010529;-0.995392;, - -0.005036; 0.000458;-0.999969;, - 0.102115;-0.015839;-0.994629;, - -0.005219; 0.000153;-0.999969;, - -0.000946; 0.000000;-0.999969;, - -0.001221;-0.000031;-0.999969;, - -0.001221;-0.000031;-0.999969;, - -0.005493;-0.020600;-0.999756;, - -0.005219; 0.000153;-0.999969;, - -0.005493;-0.020600;-0.999756;, - -0.001221;-0.000031;-0.999969;, - -0.001312;-0.020295;-0.999786;, - 0.098300;-0.033601;-0.994568;, - -0.005219; 0.000153;-0.999969;, - -0.005493;-0.020600;-0.999756;, - 0.003662; 0.000000;-0.999969;, - -0.260323; 0.000000;-0.965514;, - -0.260323; 0.000000;-0.965514;, - -0.260323; 0.000000;-0.965514;, - 0.003449; 0.000153;-0.999969;, - 0.003662; 0.000000;-0.999969;, - 0.003449; 0.000153;-0.999969;, - -0.260323; 0.000000;-0.965514;, - -0.260445; 0.000031;-0.965453;, - -0.000458; 0.000000;-0.999969;, - 0.003662; 0.000000;-0.999969;, - 0.003449; 0.000153;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.000458; 0.000000;-0.999969;, - 0.003449; 0.000153;-0.999969;, - 0.003449; 0.000153;-0.999969;, - 0.003265; 0.000153;-0.999969;, - -0.000793; 0.000000;-0.999969;, - 0.003265; 0.000153;-0.999969;, - 0.003449; 0.000153;-0.999969;, - -0.260445; 0.000031;-0.965453;, - -0.000946; 0.000000;-0.999969;, - -0.000793; 0.000000;-0.999969;, - 0.003265; 0.000153;-0.999969;, - -0.004883; 0.000000;-0.999969;, - -0.000458; 0.000000;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.004975;-0.000092;-0.999969;, - -0.004883; 0.000000;-0.999969;, - -0.004975;-0.000092;-0.999969;, - -0.000793; 0.000000;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.090670; 0.000000;-0.995849;, - -0.004883; 0.000000;-0.999969;, - -0.004975;-0.000092;-0.999969;, - 0.090518;-0.002777;-0.995880;, - 0.090670; 0.000000;-0.995849;, - -0.004975;-0.000092;-0.999969;, - -0.004975;-0.000092;-0.999969;, - -0.005036; 0.000458;-0.999969;, - 0.090518;-0.002777;-0.995880;, - -0.005036; 0.000458;-0.999969;, - -0.004975;-0.000092;-0.999969;, - -0.000946; 0.000000;-0.999969;, - 0.095065;-0.010529;-0.995392;, - 0.090518;-0.002777;-0.995880;, - -0.005036; 0.000458;-0.999969;, - -0.021088; 0.000031; 0.999756;, - 0.011994;-0.000702; 0.999908;, - 0.013215;-0.000488; 0.999908;, - 0.013215;-0.000488; 0.999908;, - -0.021882;-0.000305; 0.999756;, - -0.021088; 0.000031; 0.999756;, - -0.021882;-0.000305; 0.999756;, - 0.013215;-0.000488; 0.999908;, - 0.015198;-0.169866; 0.985321;, - -0.021302; 0.000275; 0.999756;, - -0.021088; 0.000031; 0.999756;, - -0.021882;-0.000305; 0.999756;, - -0.021088;-0.000519; 0.999756;, - -0.021302; 0.000275; 0.999756;, - -0.021882;-0.000305; 0.999756;, - -0.021882;-0.000305; 0.999756;, - -0.020753;-0.170263; 0.985168;, - -0.021088;-0.000519; 0.999756;, - -0.020753;-0.170263; 0.985168;, - -0.021882;-0.000305; 0.999756;, - 0.015198;-0.169866; 0.985321;, - -0.018525;-0.168798; 0.985443;, - -0.021088;-0.000519; 0.999756;, - -0.020753;-0.170263; 0.985168;, - -0.020539; 0.000183; 0.999786;, - -0.021302; 0.000275; 0.999756;, - -0.021088;-0.000519; 0.999756;, - -0.021088;-0.000519; 0.999756;, - -0.019135;-0.000061; 0.999786;, - -0.020539; 0.000183; 0.999786;, - -0.019135;-0.000061; 0.999786;, - -0.021088;-0.000519; 0.999756;, - -0.018525;-0.168798; 0.985443;, - 0.374981;-0.023591; 0.926695;, - -0.020539; 0.000183; 0.999786;, - -0.019135;-0.000061; 0.999786;, - 0.366008;-0.013306; 0.930509;, - 0.374981;-0.023591; 0.926695;, - -0.019135;-0.000061; 0.999786;, - -0.019135;-0.000061; 0.999786;, - -0.017151;-0.167760; 0.985656;, - 0.366008;-0.013306; 0.930509;, - -0.017151;-0.167760; 0.985656;, - -0.019135;-0.000061; 0.999786;, - -0.018525;-0.168798; 0.985443;, - 0.138188;-0.294961; 0.945433;, - 0.366008;-0.013306; 0.930509;, - -0.017151;-0.167760; 0.985656;, - -0.021668; 0.000000; 0.999756;, - 0.010834;-0.000061; 0.999939;, - 0.011078; 0.000000; 0.999908;, - 0.011078; 0.000000; 0.999908;, - -0.021393; 0.000092; 0.999756;, - -0.021668; 0.000000; 0.999756;, - -0.021393; 0.000092; 0.999756;, - 0.011078; 0.000000; 0.999908;, - 0.011994;-0.000702; 0.999908;, - -0.022675; 0.000061; 0.999725;, - -0.021668; 0.000000; 0.999756;, - -0.021393; 0.000092; 0.999756;, - -0.022401; 0.000183; 0.999725;, - -0.022675; 0.000061; 0.999725;, - -0.021393; 0.000092; 0.999756;, - -0.021393; 0.000092; 0.999756;, - -0.021088; 0.000031; 0.999756;, - -0.022401; 0.000183; 0.999725;, - -0.021088; 0.000031; 0.999756;, - -0.021393; 0.000092; 0.999756;, - 0.011994;-0.000702; 0.999908;, - -0.021302; 0.000275; 0.999756;, - -0.022401; 0.000183; 0.999725;, - -0.021088; 0.000031; 0.999756;, - -0.023713; 0.000092; 0.999695;, - -0.022675; 0.000061; 0.999725;, - -0.022401; 0.000183; 0.999725;, - -0.022401; 0.000183; 0.999725;, - -0.022645; 0.000549; 0.999725;, - -0.023713; 0.000092; 0.999695;, - -0.022645; 0.000549; 0.999725;, - -0.022401; 0.000183; 0.999725;, - -0.021302; 0.000275; 0.999756;, - 0.384655;-0.001617; 0.923032;, - -0.023713; 0.000092; 0.999695;, - -0.022645; 0.000549; 0.999725;, - 0.387677;-0.016633; 0.921628;, - 0.384655;-0.001617; 0.923032;, - -0.022645; 0.000549; 0.999725;, - -0.022645; 0.000549; 0.999725;, - -0.020539; 0.000183; 0.999786;, - 0.387677;-0.016633; 0.921628;, - -0.020539; 0.000183; 0.999786;, - -0.022645; 0.000549; 0.999725;, - -0.021302; 0.000275; 0.999756;, - 0.374981;-0.023591; 0.926695;, - 0.387677;-0.016633; 0.921628;, - -0.020539; 0.000183; 0.999786;, - 0.728843;-0.110935;-0.675588;, - 0.748650;-0.062563;-0.659993;, - 0.925748;-0.088137;-0.367656;, - 0.925748;-0.088137;-0.367656;, - 0.907224;-0.153172;-0.391705;, - 0.728843;-0.110935;-0.675588;, - 0.907224;-0.153172;-0.391705;, - 0.925748;-0.088137;-0.367656;, - 0.970244;-0.102268;-0.219398;, - 0.713645;-0.017335;-0.700247;, - 0.728843;-0.110935;-0.675588;, - 0.907224;-0.153172;-0.391705;, - 0.904904;-0.070040;-0.419752;, - 0.713645;-0.017335;-0.700247;, - 0.907224;-0.153172;-0.391705;, - 0.907224;-0.153172;-0.391705;, - 0.954558;-0.175909;-0.240425;, - 0.904904;-0.070040;-0.419752;, - 0.954558;-0.175909;-0.240425;, - 0.907224;-0.153172;-0.391705;, - 0.970244;-0.102268;-0.219398;, - 0.964568;-0.093142;-0.246712;, - 0.904904;-0.070040;-0.419752;, - 0.954558;-0.175909;-0.240425;, - 0.987610;-0.122929; 0.097415;, - 0.987548;-0.123814; 0.096957;, - 0.976196;-0.197943; 0.088382;, - 0.976196;-0.197943; 0.088382;, - 0.976409;-0.196539; 0.089114;, - 0.987610;-0.122929; 0.097415;, - 0.976409;-0.196539; 0.089114;, - 0.976196;-0.197943; 0.088382;, - 0.929380;-0.360820; 0.077700;, - 0.989349;-0.127995;-0.068941;, - 0.987610;-0.122929; 0.097415;, - 0.976409;-0.196539; 0.089114;, - 0.979522;-0.195685;-0.046663;, - 0.989349;-0.127995;-0.068941;, - 0.976409;-0.196539; 0.089114;, - 0.976409;-0.196539; 0.089114;, - 0.929746;-0.359630; 0.078616;, - 0.979522;-0.195685;-0.046663;, - 0.929746;-0.359630; 0.078616;, - 0.976409;-0.196539; 0.089114;, - 0.929380;-0.360820; 0.077700;, - 0.930357;-0.365032;-0.034181;, - 0.979522;-0.195685;-0.046663;, - 0.929746;-0.359630; 0.078616;, - 0.993866;-0.047884; 0.099399;, - 0.987548;-0.123814; 0.096957;, - 0.993896;-0.047609; 0.099399;, - 0.993896;-0.047609; 0.099399;, - 0.994873;-0.000214; 0.100864;, - 0.993866;-0.047884; 0.099399;, - 0.994873;-0.000214; 0.100864;, - 0.993896;-0.047609; 0.099399;, - 0.997253;-0.000153;-0.073763;, - 0.994903;-0.000183; 0.100681;, - 0.993866;-0.047884; 0.099399;, - 0.994873;-0.000214; 0.100864;, - 0.993896;-0.047609; 0.099399;, - 0.987548;-0.123814; 0.096957;, - 0.987610;-0.122929; 0.097415;, - 0.987610;-0.122929; 0.097415;, - 0.996246;-0.047456;-0.071993;, - 0.993896;-0.047609; 0.099399;, - 0.996246;-0.047456;-0.071993;, - 0.987610;-0.122929; 0.097415;, - 0.989349;-0.127995;-0.068941;, - 0.997253;-0.000153;-0.073763;, - 0.993896;-0.047609; 0.099399;, - 0.996246;-0.047456;-0.071993;, - 0.987365;-0.124821; 0.097415;, - 0.987274;-0.126102; 0.096622;, - 0.975616;-0.201209; 0.087649;, - 0.975616;-0.201209; 0.087649;, - 0.975860;-0.199561; 0.088351;, - 0.987365;-0.124821; 0.097415;, - 0.975860;-0.199561; 0.088351;, - 0.975616;-0.201209; 0.087649;, - 0.928495;-0.363781; 0.074374;, - 0.987548;-0.123814; 0.096957;, - 0.987365;-0.124821; 0.097415;, - 0.975860;-0.199561; 0.088351;, - 0.976196;-0.197943; 0.088382;, - 0.987548;-0.123814; 0.096957;, - 0.975860;-0.199561; 0.088351;, - 0.975860;-0.199561; 0.088351;, - 0.929411;-0.361126; 0.076022;, - 0.976196;-0.197943; 0.088382;, - 0.929411;-0.361126; 0.076022;, - 0.975860;-0.199561; 0.088351;, - 0.928495;-0.363781; 0.074374;, - 0.929380;-0.360820; 0.077700;, - 0.976196;-0.197943; 0.088382;, - 0.929411;-0.361126; 0.076022;, - 0.994873;-0.000153; 0.100864;, - 0.994903;-0.000122; 0.100589;, - 0.993866;-0.048433; 0.099399;, - 0.993866;-0.048433; 0.099399;, - 0.993866;-0.048158; 0.099399;, - 0.994873;-0.000153; 0.100864;, - 0.993866;-0.048158; 0.099399;, - 0.993866;-0.048433; 0.099399;, - 0.987274;-0.126102; 0.096622;, - 0.994903;-0.000183; 0.100681;, - 0.994873;-0.000153; 0.100864;, - 0.993866;-0.048158; 0.099399;, - 0.993866;-0.047884; 0.099399;, - 0.994903;-0.000183; 0.100681;, - 0.993866;-0.048158; 0.099399;, - 0.993866;-0.048158; 0.099399;, - 0.987365;-0.124821; 0.097415;, - 0.993866;-0.047884; 0.099399;, - 0.987365;-0.124821; 0.097415;, - 0.993866;-0.048158; 0.099399;, - 0.987274;-0.126102; 0.096622;, - 0.987548;-0.123814; 0.096957;, - 0.993866;-0.047884; 0.099399;, - 0.987365;-0.124821; 0.097415;, - 0.988647;-0.134587; 0.066744;, - 0.869503;-0.116276;-0.480026;, - 0.850551;-0.191168;-0.489883;, - 0.850551;-0.191168;-0.489883;, - 0.975646;-0.213019; 0.051881;, - 0.988647;-0.134587; 0.066744;, - 0.975646;-0.213019; 0.051881;, - 0.850551;-0.191168;-0.489883;, - 0.829554;-0.342082;-0.441328;, - 0.988189;-0.130406; 0.080294;, - 0.988647;-0.134587; 0.066744;, - 0.975646;-0.213019; 0.051881;, - 0.976043;-0.206824; 0.067080;, - 0.988189;-0.130406; 0.080294;, - 0.975646;-0.213019; 0.051881;, - 0.975646;-0.213019; 0.051881;, - 0.914335;-0.404492; 0.017701;, - 0.976043;-0.206824; 0.067080;, - 0.914335;-0.404492; 0.017701;, - 0.975646;-0.213019; 0.051881;, - 0.829554;-0.342082;-0.441328;, - 0.923917;-0.380749; 0.037294;, - 0.976043;-0.206824; 0.067080;, - 0.914335;-0.404492; 0.017701;, - 0.986999;-0.127781; 0.097354;, - 0.988189;-0.130406; 0.080294;, - 0.976043;-0.206824; 0.067080;, - 0.976043;-0.206824; 0.067080;, - 0.975066;-0.203833; 0.087588;, - 0.986999;-0.127781; 0.097354;, - 0.975066;-0.203833; 0.087588;, - 0.976043;-0.206824; 0.067080;, - 0.923917;-0.380749; 0.037294;, - 0.987274;-0.126102; 0.096622;, - 0.986999;-0.127781; 0.097354;, - 0.975066;-0.203833; 0.087588;, - 0.975616;-0.201209; 0.087649;, - 0.987274;-0.126102; 0.096622;, - 0.975066;-0.203833; 0.087588;, - 0.975066;-0.203833; 0.087588;, - 0.928037;-0.365123; 0.073366;, - 0.975616;-0.201209; 0.087649;, - 0.928037;-0.365123; 0.073366;, - 0.975066;-0.203833; 0.087588;, - 0.923917;-0.380749; 0.037294;, - 0.928495;-0.363781; 0.074374;, - 0.975616;-0.201209; 0.087649;, - 0.928037;-0.365123; 0.073366;, - 0.866451;-0.043611;-0.497299;, - 0.869503;-0.116276;-0.480026;, - 0.996399;-0.049776; 0.068209;, - 0.996399;-0.049776; 0.068209;, - 0.997589; 0.000031; 0.069216;, - 0.866451;-0.043611;-0.497299;, - 0.997589; 0.000031; 0.069216;, - 0.996399;-0.049776; 0.068209;, - 0.996399; 0.000000; 0.084750;, - 0.871731; 0.000000;-0.489944;, - 0.866451;-0.043611;-0.497299;, - 0.997589; 0.000031; 0.069216;, - 0.996399;-0.049776; 0.068209;, - 0.869503;-0.116276;-0.480026;, - 0.988647;-0.134587; 0.066744;, - 0.988647;-0.134587; 0.066744;, - 0.995239;-0.049318; 0.084017;, - 0.996399;-0.049776; 0.068209;, - 0.995239;-0.049318; 0.084017;, - 0.988647;-0.134587; 0.066744;, - 0.988189;-0.130406; 0.080294;, - 0.996399; 0.000000; 0.084750;, - 0.996399;-0.049776; 0.068209;, - 0.995239;-0.049318; 0.084017;, - 0.994873;-0.000061; 0.100864;, - 0.996399; 0.000000; 0.084750;, - 0.995239;-0.049318; 0.084017;, - 0.995239;-0.049318; 0.084017;, - 0.993835;-0.048830; 0.099399;, - 0.994873;-0.000061; 0.100864;, - 0.993835;-0.048830; 0.099399;, - 0.995239;-0.049318; 0.084017;, - 0.988189;-0.130406; 0.080294;, - 0.994903;-0.000122; 0.100589;, - 0.994873;-0.000061; 0.100864;, - 0.993835;-0.048830; 0.099399;, - 0.993866;-0.048433; 0.099399;, - 0.994903;-0.000122; 0.100589;, - 0.993835;-0.048830; 0.099399;, - 0.993835;-0.048830; 0.099399;, - 0.986999;-0.127781; 0.097354;, - 0.993866;-0.048433; 0.099399;, - 0.986999;-0.127781; 0.097354;, - 0.993835;-0.048830; 0.099399;, - 0.988189;-0.130406; 0.080294;, - 0.987274;-0.126102; 0.096622;, - 0.993866;-0.048433; 0.099399;, - 0.986999;-0.127781; 0.097354;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.251503; 0.075259;-0.964904;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.486831; 0.052675;-0.871883;, - -0.487594; 0.000000;-0.873043;, - -0.486831; 0.052675;-0.871883;, - -0.487594; 0.000000;-0.873043;, - -0.251503; 0.075259;-0.964904;, - -0.485061; 0.048341;-0.873104;, - -0.487594; 0.000000;-0.873043;, - -0.486831; 0.052675;-0.871883;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.732139; 0.014618;-0.680990;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487228; 0.045198;-0.872097;, - -0.487594; 0.000000;-0.873043;, - -0.487228; 0.045198;-0.872097;, - -0.487594; 0.000000;-0.873043;, - -0.485061; 0.048341;-0.873104;, - -0.732139; 0.014618;-0.680990;, - -0.487594; 0.000000;-0.873043;, - -0.487228; 0.045198;-0.872097;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.263710; 0.000000;-0.964568;, - -0.263710; 0.000000;-0.964568;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - -0.746361; 0.000000;-0.665517;, - -0.487594; 0.000000;-0.873043;, - -0.487594; 0.000000;-0.873043;, - 0.981872;-0.181768;-0.053346;, - 0.992309;-0.112857;-0.050264;, - 0.981903;-0.181371;-0.054048;, - 0.981903;-0.181371;-0.054048;, - 0.992523;-0.109378;-0.053926;, - 0.981872;-0.181768;-0.053346;, - 0.992523;-0.109378;-0.053926;, - 0.981903;-0.181371;-0.054048;, - 0.970244;-0.102268;-0.219398;, - 0.992523;-0.109348;-0.053957;, - 0.981872;-0.181768;-0.053346;, - 0.992523;-0.109378;-0.053926;, - 0.981903;-0.181371;-0.054048;, - 0.992309;-0.112857;-0.050264;, - 0.992340;-0.111637;-0.052522;, - 0.992340;-0.111637;-0.052522;, - 0.954558;-0.175909;-0.240425;, - 0.981903;-0.181371;-0.054048;, - 0.954558;-0.175909;-0.240425;, - 0.992340;-0.111637;-0.052522;, - 0.964568;-0.093142;-0.246712;, - 0.970244;-0.102268;-0.219398;, - 0.981903;-0.181371;-0.054048;, - 0.954558;-0.175909;-0.240425;, - 0.742973;-0.137150;-0.655080;, - 0.739891;-0.095279;-0.665914;, - 0.992523;-0.112125;-0.047853;, - 0.992523;-0.112125;-0.047853;, - 0.982086;-0.181555;-0.050264;, - 0.742973;-0.137150;-0.655080;, - 0.982086;-0.181555;-0.050264;, - 0.992523;-0.112125;-0.047853;, - 0.992309;-0.112857;-0.050264;, - 0.759972;-0.083041;-0.644581;, - 0.742973;-0.137150;-0.655080;, - 0.982086;-0.181555;-0.050264;, - 0.992523;-0.109348;-0.053926;, - 0.759972;-0.083041;-0.644581;, - 0.982086;-0.181555;-0.050264;, - 0.982086;-0.181555;-0.050264;, - 0.981872;-0.181768;-0.053346;, - 0.992523;-0.109348;-0.053926;, - 0.981872;-0.181768;-0.053346;, - 0.982086;-0.181555;-0.050264;, - 0.992309;-0.112857;-0.050264;, - 0.992523;-0.109348;-0.053957;, - 0.992523;-0.109348;-0.053926;, - 0.981872;-0.181768;-0.053346;, - 0.992523;-0.109378;-0.053926;, - 0.970244;-0.102268;-0.219398;, - 0.997803;-0.036744;-0.054842;, - 0.997803;-0.036744;-0.054842;, - 0.997803;-0.036409;-0.054842;, - 0.992523;-0.109378;-0.053926;, - 0.997803;-0.036409;-0.054842;, - 0.997803;-0.036744;-0.054842;, - 0.998444; 0.000000;-0.055269;, - 0.992523;-0.109348;-0.053957;, - 0.992523;-0.109378;-0.053926;, - 0.997803;-0.036409;-0.054842;, - 0.997803;-0.036744;-0.054842;, - 0.970244;-0.102268;-0.219398;, - 0.975921;-0.036256;-0.214942;, - 0.975921;-0.036256;-0.214942;, - 0.998444; 0.000000;-0.055483;, - 0.997803;-0.036744;-0.054842;, - 0.998444; 0.000000;-0.055483;, - 0.975921;-0.036256;-0.214942;, - 0.976959;-0.000214;-0.213355;, - 0.998444; 0.000000;-0.055269;, - 0.997803;-0.036744;-0.054842;, - 0.998444; 0.000000;-0.055483;, - 0.750450;-0.027314;-0.660329;, - 0.759972;-0.083041;-0.644581;, - 0.992523;-0.109348;-0.053926;, - 0.992523;-0.109348;-0.053926;, - 0.997803;-0.036378;-0.054842;, - 0.750450;-0.027314;-0.660329;, - 0.997803;-0.036378;-0.054842;, - 0.992523;-0.109348;-0.053926;, - 0.992523;-0.109348;-0.053957;, - 0.756645; 0.000000;-0.653798;, - 0.750450;-0.027314;-0.660329;, - 0.997803;-0.036378;-0.054842;, - 0.998444; 0.000000;-0.055452;, - 0.756645; 0.000000;-0.653798;, - 0.997803;-0.036378;-0.054842;, - 0.997803;-0.036378;-0.054842;, - 0.997803;-0.036409;-0.054842;, - 0.998444; 0.000000;-0.055452;, - 0.997803;-0.036409;-0.054842;, - 0.997803;-0.036378;-0.054842;, - 0.992523;-0.109348;-0.053957;, - 0.998444; 0.000000;-0.055269;, - 0.998444; 0.000000;-0.055452;, - 0.997803;-0.036409;-0.054842;, - 0.967834;-0.016785;-0.251015;, - 0.964568;-0.093142;-0.246712;, - 0.997894;-0.037935;-0.052065;, - 0.997894;-0.037935;-0.052065;, - 0.654103;-0.749687;-0.100467;, - 0.967834;-0.016785;-0.251015;, - 0.654103;-0.749687;-0.100467;, - 0.997894;-0.037935;-0.052065;, - 0.665273;-0.743309;-0.069674;, - 0.579424;-0.779290;-0.238563;, - 0.967834;-0.016785;-0.251015;, - 0.654103;-0.749687;-0.100467;, - 0.997894;-0.037935;-0.052065;, - 0.964568;-0.093142;-0.246712;, - 0.992340;-0.111637;-0.052522;, - 0.992340;-0.111637;-0.052522;, - 0.997833;-0.041749;-0.050539;, - 0.997894;-0.037935;-0.052065;, - 0.997833;-0.041749;-0.050539;, - 0.992340;-0.111637;-0.052522;, - 0.992309;-0.112857;-0.050264;, - 0.665273;-0.743309;-0.069674;, - 0.997894;-0.037935;-0.052065;, - 0.997833;-0.041749;-0.050539;, - 0.650990;-0.758354;-0.032899;, - 0.665273;-0.743309;-0.069674;, - 0.997833;-0.041749;-0.050539;, - 0.997833;-0.041749;-0.050539;, - 0.997864;-0.042085;-0.049654;, - 0.650990;-0.758354;-0.032899;, - 0.997864;-0.042085;-0.049654;, - 0.997833;-0.041749;-0.050539;, - 0.992309;-0.112857;-0.050264;, - 0.563707;-0.646657;-0.513840;, - 0.650990;-0.758354;-0.032899;, - 0.997864;-0.042085;-0.049654;, - 0.755272;-0.053591;-0.653157;, - 0.563707;-0.646657;-0.513840;, - 0.997864;-0.042085;-0.049654;, - 0.997864;-0.042085;-0.049654;, - 0.992523;-0.112125;-0.047853;, - 0.755272;-0.053591;-0.653157;, - 0.992523;-0.112125;-0.047853;, - 0.997864;-0.042085;-0.049654;, - 0.992309;-0.112857;-0.050264;, - 0.739891;-0.095279;-0.665914;, - 0.755272;-0.053591;-0.653157;, - 0.992523;-0.112125;-0.047853;, - -0.338755;-0.683920;-0.646107;, - -0.340220;-0.686392;-0.642720;, - -0.475784; 0.092318;-0.874660;, - -0.475784; 0.092318;-0.874660;, - -0.475265; 0.099796;-0.874142;, - -0.338755;-0.683920;-0.646107;, - -0.475265; 0.099796;-0.874142;, - -0.475784; 0.092318;-0.874660;, - -0.485061; 0.048341;-0.873104;, - -0.197668;-0.771599;-0.604572;, - -0.338755;-0.683920;-0.646107;, - -0.475265; 0.099796;-0.874142;, - -0.261422; 0.147588;-0.953856;, - -0.197668;-0.771599;-0.604572;, - -0.475265; 0.099796;-0.874142;, - -0.475265; 0.099796;-0.874142;, - -0.486831; 0.052675;-0.871883;, - -0.261422; 0.147588;-0.953856;, - -0.486831; 0.052675;-0.871883;, - -0.475265; 0.099796;-0.874142;, - -0.485061; 0.048341;-0.873104;, - -0.251503; 0.075259;-0.964904;, - -0.261422; 0.147588;-0.953856;, - -0.486831; 0.052675;-0.871883;, - -0.333995;-0.690756;-0.641285;, - -0.443068;-0.797967;-0.408490;, - -0.738487; 0.018647;-0.673971;, - -0.738487; 0.018647;-0.673971;, - -0.476211; 0.084292;-0.875271;, - -0.333995;-0.690756;-0.641285;, - -0.476211; 0.084292;-0.875271;, - -0.738487; 0.018647;-0.673971;, - -0.732139; 0.014618;-0.680990;, - -0.340220;-0.686392;-0.642720;, - -0.333995;-0.690756;-0.641285;, - -0.476211; 0.084292;-0.875271;, - -0.475784; 0.092318;-0.874660;, - -0.340220;-0.686392;-0.642720;, - -0.476211; 0.084292;-0.875271;, - -0.476211; 0.084292;-0.875271;, - -0.487228; 0.045198;-0.872097;, - -0.475784; 0.092318;-0.874660;, - -0.487228; 0.045198;-0.872097;, - -0.476211; 0.084292;-0.875271;, - -0.732139; 0.014618;-0.680990;, - -0.485061; 0.048341;-0.873104;, - -0.475784; 0.092318;-0.874660;, - -0.487228; 0.045198;-0.872097;, - 0.848750;-0.528703;-0.005585;, - 0.923917;-0.380749; 0.037294;, - 0.831629;-0.554582;-0.027894;, - 0.831629;-0.554582;-0.027894;, - 0.517808;-0.845332;-0.131291;, - 0.848750;-0.528703;-0.005585;, - 0.517808;-0.845332;-0.131291;, - 0.831629;-0.554582;-0.027894;, - 0.539384;-0.742180;-0.397748;, - 0.509201;-0.857906;-0.068331;, - 0.848750;-0.528703;-0.005585;, - 0.517808;-0.845332;-0.131291;, - 0.831629;-0.554582;-0.027894;, - 0.923917;-0.380749; 0.037294;, - 0.914335;-0.404492; 0.017701;, - 0.914335;-0.404492; 0.017701;, - 0.729881;-0.514054;-0.450514;, - 0.831629;-0.554582;-0.027894;, - 0.729881;-0.514054;-0.450514;, - 0.914335;-0.404492; 0.017701;, - 0.829554;-0.342082;-0.441328;, - 0.539384;-0.742180;-0.397748;, - 0.831629;-0.554582;-0.027894;, - 0.729881;-0.514054;-0.450514;, - 0.853175;-0.517899; 0.061830;, - 0.928495;-0.363781; 0.074374;, - 0.928037;-0.365123; 0.073366;, - 0.928037;-0.365123; 0.073366;, - 0.849147;-0.525437; 0.053316;, - 0.853175;-0.517899; 0.061830;, - 0.849147;-0.525437; 0.053316;, - 0.928037;-0.365123; 0.073366;, - 0.923917;-0.380749; 0.037294;, - 0.518479;-0.854946; 0.015412;, - 0.853175;-0.517899; 0.061830;, - 0.849147;-0.525437; 0.053316;, - 0.515854;-0.856655;-0.000305;, - 0.518479;-0.854946; 0.015412;, - 0.849147;-0.525437; 0.053316;, - 0.849147;-0.525437; 0.053316;, - 0.848750;-0.528703;-0.005585;, - 0.515854;-0.856655;-0.000305;, - 0.848750;-0.528703;-0.005585;, - 0.849147;-0.525437; 0.053316;, - 0.923917;-0.380749; 0.037294;, - 0.509201;-0.857906;-0.068331;, - 0.515854;-0.856655;-0.000305;, - 0.848750;-0.528703;-0.005585;, - 0.854976;-0.513840; 0.070254;, - 0.929380;-0.360820; 0.077700;, - 0.929411;-0.361126; 0.076022;, - 0.929411;-0.361126; 0.076022;, - 0.854396;-0.515641; 0.063753;, - 0.854976;-0.513840; 0.070254;, - 0.854396;-0.515641; 0.063753;, - 0.929411;-0.361126; 0.076022;, - 0.928495;-0.363781; 0.074374;, - 0.521317;-0.852535; 0.037141;, - 0.854976;-0.513840; 0.070254;, - 0.854396;-0.515641; 0.063753;, - 0.522202;-0.852382; 0.026215;, - 0.521317;-0.852535; 0.037141;, - 0.854396;-0.515641; 0.063753;, - 0.854396;-0.515641; 0.063753;, - 0.853175;-0.517899; 0.061830;, - 0.522202;-0.852382; 0.026215;, - 0.853175;-0.517899; 0.061830;, - 0.854396;-0.515641; 0.063753;, - 0.928495;-0.363781; 0.074374;, - 0.518479;-0.854946; 0.015412;, - 0.522202;-0.852382; 0.026215;, - 0.853175;-0.517899; 0.061830;, - 0.866207;-0.499619;-0.006134;, - 0.930357;-0.365032;-0.034181;, - 0.929746;-0.359630; 0.078616;, - 0.929746;-0.359630; 0.078616;, - 0.854885;-0.513718; 0.072054;, - 0.866207;-0.499619;-0.006134;, - 0.854885;-0.513718; 0.072054;, - 0.929746;-0.359630; 0.078616;, - 0.929380;-0.360820; 0.077700;, - 0.483932;-0.872280; 0.069826;, - 0.866207;-0.499619;-0.006134;, - 0.854885;-0.513718; 0.072054;, - 0.523209;-0.850856; 0.047609;, - 0.483932;-0.872280; 0.069826;, - 0.854885;-0.513718; 0.072054;, - 0.854885;-0.513718; 0.072054;, - 0.854976;-0.513840; 0.070254;, - 0.523209;-0.850856; 0.047609;, - 0.854976;-0.513840; 0.070254;, - 0.854885;-0.513718; 0.072054;, - 0.929380;-0.360820; 0.077700;, - 0.521317;-0.852535; 0.037141;, - 0.523209;-0.850856; 0.047609;, - 0.854976;-0.513840; 0.070254;, - -0.060091;-0.638447; 0.767296;, - -0.123508;-0.629261; 0.767296;, - -0.181005;-0.308969; 0.933683;, - -0.181005;-0.308969; 0.933683;, - -0.122288;-0.319407; 0.939665;, - -0.060091;-0.638447; 0.767296;, - -0.122288;-0.319407; 0.939665;, - -0.181005;-0.308969; 0.933683;, - -0.111026;-0.686911; 0.718162;, - -0.031678;-0.627369; 0.778069;, - -0.060091;-0.638447; 0.767296;, - -0.122288;-0.319407; 0.939665;, - -0.059725;-0.329386; 0.942289;, - -0.031678;-0.627369; 0.778069;, - -0.122288;-0.319407; 0.939665;, - -0.122288;-0.319407; 0.939665;, - -0.089724;-0.676901; 0.730552;, - -0.059725;-0.329386; 0.942289;, - -0.089724;-0.676901; 0.730552;, - -0.122288;-0.319407; 0.939665;, - -0.111026;-0.686911; 0.718162;, - -0.031343;-0.677633; 0.734703;, - -0.059725;-0.329386; 0.942289;, - -0.089724;-0.676901; 0.730552;, - 0.007202;-0.645253; 0.763909;, - -0.031678;-0.627369; 0.778069;, - -0.059725;-0.329386; 0.942289;, - -0.059725;-0.329386; 0.942289;, - 0.014100;-0.331919; 0.943175;, - 0.007202;-0.645253; 0.763909;, - 0.014100;-0.331919; 0.943175;, - -0.059725;-0.329386; 0.942289;, - -0.031343;-0.677633; 0.734703;, - 0.000366;-0.647755; 0.761803;, - 0.007202;-0.645253; 0.763909;, - 0.014100;-0.331919; 0.943175;, - 0.000458;-0.330393; 0.943815;, - 0.000366;-0.647755; 0.761803;, - 0.014100;-0.331919; 0.943175;, - 0.014100;-0.331919; 0.943175;, - 0.008698;-0.660360; 0.750877;, - 0.000458;-0.330393; 0.943815;, - 0.008698;-0.660360; 0.750877;, - 0.014100;-0.331919; 0.943175;, - -0.031343;-0.677633; 0.734703;, - 0.138188;-0.294961; 0.945433;, - 0.000458;-0.330393; 0.943815;, - 0.008698;-0.660360; 0.750877;, - 0.224006; 0.163732;-0.960723;, - 0.229987; 0.065767;-0.970946;, - 0.440931; 0.037355;-0.896725;, - 0.440931; 0.037355;-0.896725;, - 0.428449; 0.128391;-0.894375;, - 0.224006; 0.163732;-0.960723;, - 0.428449; 0.128391;-0.894375;, - 0.440931; 0.037355;-0.896725;, - 0.713645;-0.017335;-0.700247;, - 0.166692;-0.710776;-0.683340;, - 0.224006; 0.163732;-0.960723;, - 0.428449; 0.128391;-0.894375;, - 0.313608;-0.659719;-0.682913;, - 0.166692;-0.710776;-0.683340;, - 0.428449; 0.128391;-0.894375;, - 0.428449; 0.128391;-0.894375;, - 0.707663; 0.075716;-0.702475;, - 0.313608;-0.659719;-0.682913;, - 0.707663; 0.075716;-0.702475;, - 0.428449; 0.128391;-0.894375;, - 0.713645;-0.017335;-0.700247;, - 0.446577;-0.767296;-0.460189;, - 0.313608;-0.659719;-0.682913;, - 0.707663; 0.075716;-0.702475;, - 0.707663; 0.075716;-0.702475;, - 0.713645;-0.017335;-0.700247;, - 0.904904;-0.070040;-0.419752;, - 0.904904;-0.070040;-0.419752;, - 0.903653; 0.013215;-0.427992;, - 0.707663; 0.075716;-0.702475;, - 0.903653; 0.013215;-0.427992;, - 0.904904;-0.070040;-0.419752;, - 0.964568;-0.093142;-0.246712;, - 0.446577;-0.767296;-0.460189;, - 0.707663; 0.075716;-0.702475;, - 0.903653; 0.013215;-0.427992;, - 0.624683;-0.687399;-0.370434;, - 0.446577;-0.767296;-0.460189;, - 0.903653; 0.013215;-0.427992;, - 0.903653; 0.013215;-0.427992;, - 0.967834;-0.016785;-0.251015;, - 0.624683;-0.687399;-0.370434;, - 0.967834;-0.016785;-0.251015;, - 0.903653; 0.013215;-0.427992;, - 0.964568;-0.093142;-0.246712;, - 0.579424;-0.779290;-0.238563;, - 0.624683;-0.687399;-0.370434;, - 0.967834;-0.016785;-0.251015;, - -0.007355;-0.644673; 0.764397;, - -0.007569;-0.644520; 0.764519;, - -0.014405;-0.331217; 0.943419;, - -0.014405;-0.331217; 0.943419;, - -0.015992;-0.333140; 0.942717;, - -0.007355;-0.644673; 0.764397;, - -0.015992;-0.333140; 0.942717;, - -0.014405;-0.331217; 0.943419;, - -0.018525;-0.168798; 0.985443;, - 0.027070;-0.640889; 0.767113;, - -0.007355;-0.644673; 0.764397;, - -0.015992;-0.333140; 0.942717;, - 0.021271;-0.331431; 0.943205;, - 0.027070;-0.640889; 0.767113;, - -0.015992;-0.333140; 0.942717;, - -0.015992;-0.333140; 0.942717;, - -0.020753;-0.170263; 0.985168;, - 0.021271;-0.331431; 0.943205;, - -0.020753;-0.170263; 0.985168;, - -0.015992;-0.333140; 0.942717;, - -0.018525;-0.168798; 0.985443;, - 0.015198;-0.169866; 0.985321;, - 0.021271;-0.331431; 0.943205;, - -0.020753;-0.170263; 0.985168;, - -0.007385;-0.644002; 0.764946;, - 0.000366;-0.647755; 0.761803;, - 0.000458;-0.330393; 0.943815;, - 0.000458;-0.330393; 0.943815;, - -0.014435;-0.330424; 0.943693;, - -0.007385;-0.644002; 0.764946;, - -0.014435;-0.330424; 0.943693;, - 0.000458;-0.330393; 0.943815;, - 0.138188;-0.294961; 0.945433;, - -0.007569;-0.644520; 0.764519;, - -0.007385;-0.644002; 0.764946;, - -0.014435;-0.330424; 0.943693;, - -0.014405;-0.331217; 0.943419;, - -0.007569;-0.644520; 0.764519;, - -0.014435;-0.330424; 0.943693;, - -0.014435;-0.330424; 0.943693;, - -0.017151;-0.167760; 0.985656;, - -0.014405;-0.331217; 0.943419;, - -0.017151;-0.167760; 0.985656;, - -0.014435;-0.330424; 0.943693;, - 0.138188;-0.294961; 0.945433;, - -0.018525;-0.168798; 0.985443;, - -0.014405;-0.331217; 0.943419;, - -0.017151;-0.167760; 0.985656;, - 0.077242;-0.667837; 0.740257;, - 0.064791;-0.661031; 0.747520;, - 0.066225;-0.371990; 0.925840;, - 0.066225;-0.371990; 0.925840;, - 0.078188;-0.382244; 0.920713;, - 0.077242;-0.667837; 0.740257;, - 0.078188;-0.382244; 0.920713;, - 0.066225;-0.371990; 0.925840;, - 0.049501;-0.208106; 0.976836;, - 0.213935;-0.654836; 0.724815;, - 0.077242;-0.667837; 0.740257;, - 0.078188;-0.382244; 0.920713;, - 0.327342;-0.504196; 0.799127;, - 0.213935;-0.654836; 0.724815;, - 0.078188;-0.382244; 0.920713;, - 0.078188;-0.382244; 0.920713;, - 0.074831;-0.255837; 0.963805;, - 0.327342;-0.504196; 0.799127;, - 0.074831;-0.255837; 0.963805;, - 0.078188;-0.382244; 0.920713;, - 0.049501;-0.208106; 0.976836;, - 0.419294;-0.318461; 0.850154;, - 0.327342;-0.504196; 0.799127;, - 0.074831;-0.255837; 0.963805;, - 0.062105;-0.640370; 0.765526;, - 0.027070;-0.640889; 0.767113;, - 0.021271;-0.331431; 0.943205;, - 0.021271;-0.331431; 0.943205;, - 0.054750;-0.346233; 0.936521;, - 0.062105;-0.640370; 0.765526;, - 0.054750;-0.346233; 0.936521;, - 0.021271;-0.331431; 0.943205;, - 0.015198;-0.169866; 0.985321;, - 0.064791;-0.661031; 0.747520;, - 0.062105;-0.640370; 0.765526;, - 0.054750;-0.346233; 0.936521;, - 0.066225;-0.371990; 0.925840;, - 0.064791;-0.661031; 0.747520;, - 0.054750;-0.346233; 0.936521;, - 0.054750;-0.346233; 0.936521;, - 0.048982;-0.186163; 0.981292;, - 0.066225;-0.371990; 0.925840;, - 0.048982;-0.186163; 0.981292;, - 0.054750;-0.346233; 0.936521;, - 0.015198;-0.169866; 0.985321;, - 0.049501;-0.208106; 0.976836;, - 0.066225;-0.371990; 0.925840;, - 0.048982;-0.186163; 0.981292;, - -0.182195;-0.630421; 0.754540;, - -0.099185;-0.731071; 0.675039;, - -0.125004;-0.313547; 0.941282;, - -0.125004;-0.313547; 0.941282;, - -0.249580;-0.302072; 0.920011;, - -0.182195;-0.630421; 0.754540;, - -0.249580;-0.302072; 0.920011;, - -0.125004;-0.313547; 0.941282;, - -0.113651;-0.630818; 0.767541;, - -0.123508;-0.629261; 0.767296;, - -0.182195;-0.630421; 0.754540;, - -0.249580;-0.302072; 0.920011;, - -0.181005;-0.308969; 0.933683;, - -0.123508;-0.629261; 0.767296;, - -0.249580;-0.302072; 0.920011;, - -0.249580;-0.302072; 0.920011;, - -0.149693;-0.667257; 0.729576;, - -0.181005;-0.308969; 0.933683;, - -0.149693;-0.667257; 0.729576;, - -0.249580;-0.302072; 0.920011;, - -0.113651;-0.630818; 0.767541;, - -0.111026;-0.686911; 0.718162;, - -0.181005;-0.308969; 0.933683;, - -0.149693;-0.667257; 0.729576;, - -0.007874;-0.320048; 0.947356;, - -0.074862;-0.432295; 0.898587;, - 0.001099;-0.493667; 0.869625;, - 0.001099;-0.493667; 0.869625;, - 0.001862;-0.319590; 0.947539;, - -0.007874;-0.320048; 0.947356;, - 0.001862;-0.319590; 0.947539;, - 0.001099;-0.493667; 0.869625;, - -0.113651;-0.630818; 0.767541;, - -0.003265;-0.745232; 0.666768;, - -0.007874;-0.320048; 0.947356;, - 0.001862;-0.319590; 0.947539;, - -0.000122;-0.725669; 0.688009;, - -0.003265;-0.745232; 0.666768;, - 0.001862;-0.319590; 0.947539;, - 0.001862;-0.319590; 0.947539;, - -0.125004;-0.313547; 0.941282;, - -0.000122;-0.725669; 0.688009;, - -0.125004;-0.313547; 0.941282;, - 0.001862;-0.319590; 0.947539;, - -0.113651;-0.630818; 0.767541;, - -0.099185;-0.731071; 0.675039;, - -0.000122;-0.725669; 0.688009;, - -0.125004;-0.313547; 0.941282;, - -0.347697;-0.630451;-0.693960;, - -0.444807;-0.756645;-0.479171;, - -0.463240; 0.181890;-0.867336;, - -0.463240; 0.181890;-0.867336;, - -0.236274; 0.188849;-0.953124;, - -0.347697;-0.630451;-0.693960;, - -0.236274; 0.188849;-0.953124;, - -0.463240; 0.181890;-0.867336;, - -0.247810; 0.086856;-0.964873;, - -0.164312;-0.707236;-0.687582;, - -0.347697;-0.630451;-0.693960;, - -0.236274; 0.188849;-0.953124;, - -0.463240; 0.181890;-0.867336;, - -0.444807;-0.756645;-0.479171;, - -0.745262; 0.173193;-0.643818;, - -0.745262; 0.173193;-0.643818;, - -0.473006; 0.075533;-0.877804;, - -0.463240; 0.181890;-0.867336;, - -0.473006; 0.075533;-0.877804;, - -0.745262; 0.173193;-0.643818;, - -0.745323; 0.070956;-0.662893;, - -0.247810; 0.086856;-0.964873;, - -0.463240; 0.181890;-0.867336;, - -0.473006; 0.075533;-0.877804;, - -0.236274; 0.188849;-0.953124;, - -0.247810; 0.086856;-0.964873;, - -0.000458; 0.089969;-0.995941;, - -0.000458; 0.089969;-0.995941;, - -0.000458; 0.179205;-0.983795;, - -0.236274; 0.188849;-0.953124;, - -0.000458; 0.179205;-0.983795;, - -0.000458; 0.089969;-0.995941;, - 0.229987; 0.065767;-0.970946;, - -0.164312;-0.707236;-0.687582;, - -0.236274; 0.188849;-0.953124;, - -0.000458; 0.179205;-0.983795;, - -0.000336;-0.645802;-0.763482;, - -0.164312;-0.707236;-0.687582;, - -0.000458; 0.179205;-0.983795;, - -0.000458; 0.179205;-0.983795;, - 0.224006; 0.163732;-0.960723;, - -0.000336;-0.645802;-0.763482;, - 0.224006; 0.163732;-0.960723;, - -0.000458; 0.179205;-0.983795;, - 0.229987; 0.065767;-0.970946;, - 0.166692;-0.710776;-0.683340;, - -0.000336;-0.645802;-0.763482;, - 0.224006; 0.163732;-0.960723;, - 0.057833;-0.725028;-0.686270;, - 0.563707;-0.646657;-0.513840;, - 0.755272;-0.053591;-0.653157;, - 0.755272;-0.053591;-0.653157;, - 0.200293;-0.049013;-0.978484;, - 0.057833;-0.725028;-0.686270;, - 0.200293;-0.049013;-0.978484;, - 0.755272;-0.053591;-0.653157;, - 0.739891;-0.095279;-0.665914;, - 0.037507;-0.691610;-0.721274;, - 0.057833;-0.725028;-0.686270;, - 0.200293;-0.049013;-0.978484;, - 0.102603;-0.052736;-0.993316;, - 0.037507;-0.691610;-0.721274;, - 0.200293;-0.049013;-0.978484;, - 0.200293;-0.049013;-0.978484;, - 0.208502;-0.044160;-0.977020;, - 0.102603;-0.052736;-0.993316;, - 0.208502;-0.044160;-0.977020;, - 0.200293;-0.049013;-0.978484;, - 0.739891;-0.095279;-0.665914;, - 0.098300;-0.033601;-0.994568;, - 0.102603;-0.052736;-0.993316;, - 0.208502;-0.044160;-0.977020;, - -0.004212;-0.724143;-0.689596;, - 0.037507;-0.691610;-0.721274;, - 0.102603;-0.052736;-0.993316;, - 0.102603;-0.052736;-0.993316;, - -0.005188;-0.044801;-0.998962;, - -0.004212;-0.724143;-0.689596;, - -0.005188;-0.044801;-0.998962;, - 0.102603;-0.052736;-0.993316;, - 0.098300;-0.033601;-0.994568;, - 0.006317;-0.719840;-0.694082;, - -0.004212;-0.724143;-0.689596;, - -0.005188;-0.044801;-0.998962;, - -0.001373;-0.040498;-0.999176;, - 0.006317;-0.719840;-0.694082;, - -0.005188;-0.044801;-0.998962;, - -0.005188;-0.044801;-0.998962;, - -0.005493;-0.020600;-0.999756;, - -0.001373;-0.040498;-0.999176;, - -0.005493;-0.020600;-0.999756;, - -0.005188;-0.044801;-0.998962;, - 0.098300;-0.033601;-0.994568;, - -0.001312;-0.020295;-0.999786;, - -0.001373;-0.040498;-0.999176;, - -0.005493;-0.020600;-0.999756;, - 0.019776;-0.722526;-0.691031;, - 0.006317;-0.719840;-0.694082;, - -0.001373;-0.040498;-0.999176;, - -0.001373;-0.040498;-0.999176;, - 0.002869;-0.040498;-0.999146;, - 0.019776;-0.722526;-0.691031;, - 0.002869;-0.040498;-0.999146;, - -0.001373;-0.040498;-0.999176;, - -0.001312;-0.020295;-0.999786;, - -0.160192;-0.696799;-0.699149;, - 0.019776;-0.722526;-0.691031;, - 0.002869;-0.040498;-0.999146;, - -0.248268;-0.068758;-0.966216;, - -0.160192;-0.696799;-0.699149;, - 0.002869;-0.040498;-0.999146;, - 0.002869;-0.040498;-0.999146;, - 0.002960;-0.020234;-0.999786;, - -0.248268;-0.068758;-0.966216;, - 0.002960;-0.020234;-0.999786;, - 0.002869;-0.040498;-0.999146;, - -0.001312;-0.020295;-0.999786;, - -0.267464;-0.033998;-0.962951;, - -0.248268;-0.068758;-0.966216;, - 0.002960;-0.020234;-0.999786;, - -0.318033;-0.755486;-0.572771;, - -0.160192;-0.696799;-0.699149;, - -0.248268;-0.068758;-0.966216;, - -0.248268;-0.068758;-0.966216;, - -0.493667;-0.089908;-0.864956;, - -0.318033;-0.755486;-0.572771;, - -0.493667;-0.089908;-0.864956;, - -0.248268;-0.068758;-0.966216;, - -0.267464;-0.033998;-0.962951;, - -0.637410;-0.646016;-0.419904;, - -0.318033;-0.755486;-0.572771;, - -0.493667;-0.089908;-0.864956;, - -0.853542;-0.117801;-0.507492;, - -0.637410;-0.646016;-0.419904;, - -0.493667;-0.089908;-0.864956;, - -0.493667;-0.089908;-0.864956;, - -0.505356;-0.043794;-0.861782;, - -0.853542;-0.117801;-0.507492;, - -0.505356;-0.043794;-0.861782;, - -0.493667;-0.089908;-0.864956;, - -0.267464;-0.033998;-0.962951;, - -0.861538;-0.057344;-0.504410;, - -0.853542;-0.117801;-0.507492;, - -0.505356;-0.043794;-0.861782;, - -0.655293;-0.751396;-0.077212;, - -0.637410;-0.646016;-0.419904;, - -0.992981;-0.113376;-0.033174;, - -0.992981;-0.113376;-0.033174;, - -0.969939;-0.089846;-0.226081;, - -0.655293;-0.751396;-0.077212;, - -0.969939;-0.089846;-0.226081;, - -0.992981;-0.113376;-0.033174;, - -0.974425;-0.042665;-0.220557;, - -0.593554;-0.777703;-0.207007;, - -0.655293;-0.751396;-0.077212;, - -0.969939;-0.089846;-0.226081;, - -0.992981;-0.113376;-0.033174;, - -0.637410;-0.646016;-0.419904;, - -0.853542;-0.117801;-0.507492;, - -0.853542;-0.117801;-0.507492;, - -0.997803;-0.059603;-0.028352;, - -0.992981;-0.113376;-0.033174;, - -0.997803;-0.059603;-0.028352;, - -0.853542;-0.117801;-0.507492;, - -0.861538;-0.057344;-0.504410;, - -0.974425;-0.042665;-0.220557;, - -0.992981;-0.113376;-0.033174;, - -0.997803;-0.059603;-0.028352;, - -0.604846;-0.720084;-0.340007;, - -0.593554;-0.777703;-0.207007;, - -0.969939;-0.089846;-0.226081;, - -0.969939;-0.089846;-0.226081;, - -0.916166;-0.055910;-0.396863;, - -0.604846;-0.720084;-0.340007;, - -0.916166;-0.055910;-0.396863;, - -0.969939;-0.089846;-0.226081;, - -0.974425;-0.042665;-0.220557;, - -0.443068;-0.797967;-0.408490;, - -0.604846;-0.720084;-0.340007;, - -0.916166;-0.055910;-0.396863;, - -0.738487; 0.018647;-0.673971;, - -0.443068;-0.797967;-0.408490;, - -0.916166;-0.055910;-0.396863;, - -0.916166;-0.055910;-0.396863;, - -0.922513;-0.021577;-0.385327;, - -0.738487; 0.018647;-0.673971;, - -0.922513;-0.021577;-0.385327;, - -0.916166;-0.055910;-0.396863;, - -0.974425;-0.042665;-0.220557;, - -0.732139; 0.014618;-0.680990;, - -0.738487; 0.018647;-0.673971;, - -0.922513;-0.021577;-0.385327;, - -0.032960;-0.281442; 0.958983;, - -0.032929;-0.391217; 0.919706;, - -0.024323;-0.398694; 0.916745;, - -0.024323;-0.398694; 0.916745;, - -0.022034;-0.300790; 0.953429;, - -0.032960;-0.281442; 0.958983;, - -0.022034;-0.300790; 0.953429;, - -0.024323;-0.398694; 0.916745;, - -0.074862;-0.432295; 0.898587;, - -0.006195;-0.748070; 0.663564;, - -0.032960;-0.281442; 0.958983;, - -0.022034;-0.300790; 0.953429;, - 0.004273;-0.762078; 0.647450;, - -0.006195;-0.748070; 0.663564;, - -0.022034;-0.300790; 0.953429;, - -0.022034;-0.300790; 0.953429;, - -0.007874;-0.320048; 0.947356;, - 0.004273;-0.762078; 0.647450;, - -0.007874;-0.320048; 0.947356;, - -0.022034;-0.300790; 0.953429;, - -0.074862;-0.432295; 0.898587;, - -0.003265;-0.745232; 0.666768;, - 0.004273;-0.762078; 0.647450;, - -0.007874;-0.320048; 0.947356;, - -0.069033;-0.275765; 0.958708;, - -0.062685;-0.389874; 0.918699;, - -0.042604;-0.387860; 0.920713;, - -0.042604;-0.387860; 0.920713;, - -0.042787;-0.277840; 0.959655;, - -0.069033;-0.275765; 0.958708;, - -0.042787;-0.277840; 0.959655;, - -0.042604;-0.387860; 0.920713;, - -0.032929;-0.391217; 0.919706;, - -0.055422;-0.754234; 0.654225;, - -0.069033;-0.275765; 0.958708;, - -0.042787;-0.277840; 0.959655;, - -0.012085;-0.749168; 0.662221;, - -0.055422;-0.754234; 0.654225;, - -0.042787;-0.277840; 0.959655;, - -0.042787;-0.277840; 0.959655;, - -0.032960;-0.281442; 0.958983;, - -0.012085;-0.749168; 0.662221;, - -0.032960;-0.281442; 0.958983;, - -0.042787;-0.277840; 0.959655;, - -0.032929;-0.391217; 0.919706;, - -0.006195;-0.748070; 0.663564;, - -0.012085;-0.749168; 0.662221;, - -0.032960;-0.281442; 0.958983;, - 0.014069; 0.002564;-0.999878;, - -0.593951;-0.115696;-0.796106;, - -0.583056;-0.136479;-0.800867;, - -0.583056;-0.136479;-0.800867;, - 0.014496; 0.003235;-0.999878;, - 0.014069; 0.002564;-0.999878;, - 0.014496; 0.003235;-0.999878;, - -0.583056;-0.136479;-0.800867;, - -0.577471;-0.271126;-0.770043;, - 0.014039; 0.002380;-0.999878;, - 0.014069; 0.002564;-0.999878;, - 0.014496; 0.003235;-0.999878;, - 0.014527; 0.003113;-0.999878;, - 0.014039; 0.002380;-0.999878;, - 0.014496; 0.003235;-0.999878;, - 0.014496; 0.003235;-0.999878;, - 0.010163;-0.036500;-0.999268;, - 0.014527; 0.003113;-0.999878;, - 0.010163;-0.036500;-0.999268;, - 0.014496; 0.003235;-0.999878;, - -0.577471;-0.271126;-0.770043;, - 0.005493;-0.032044;-0.999451;, - 0.014527; 0.003113;-0.999878;, - 0.010163;-0.036500;-0.999268;, - 0.000122;-0.033143;-0.999420;, - 0.007172;-0.073366;-0.997253;, - 0.023530; 0.002075;-0.999695;, - 0.023530; 0.002075;-0.999695;, - 0.014740; 0.002197;-0.999878;, - 0.000122;-0.033143;-0.999420;, - 0.014740; 0.002197;-0.999878;, - 0.023530; 0.002075;-0.999695;, - 0.022889; 0.002075;-0.999725;, - 0.005493;-0.032044;-0.999451;, - 0.000122;-0.033143;-0.999420;, - 0.014740; 0.002197;-0.999878;, - 0.014527; 0.003113;-0.999878;, - 0.005493;-0.032044;-0.999451;, - 0.014740; 0.002197;-0.999878;, - 0.014740; 0.002197;-0.999878;, - 0.014069; 0.002197;-0.999878;, - 0.014527; 0.003113;-0.999878;, - 0.014069; 0.002197;-0.999878;, - 0.014740; 0.002197;-0.999878;, - 0.022889; 0.002075;-0.999725;, - 0.014039; 0.002380;-0.999878;, - 0.014527; 0.003113;-0.999878;, - 0.014069; 0.002197;-0.999878;, - 0.041108;-0.044221;-0.998169;, - 0.660634;-0.467544;-0.587298;, - 0.688711; 0.137852;-0.711783;, - 0.688711; 0.137852;-0.711783;, - 0.036409;-0.004028;-0.999329;, - 0.041108;-0.044221;-0.998169;, - 0.036409;-0.004028;-0.999329;, - 0.688711; 0.137852;-0.711783;, - 0.673452; 0.084658;-0.734336;, - 0.007172;-0.073366;-0.997253;, - 0.041108;-0.044221;-0.998169;, - 0.036409;-0.004028;-0.999329;, - 0.023530; 0.002075;-0.999695;, - 0.007172;-0.073366;-0.997253;, - 0.036409;-0.004028;-0.999329;, - 0.036409;-0.004028;-0.999329;, - 0.031648; 0.002258;-0.999481;, - 0.023530; 0.002075;-0.999695;, - 0.031648; 0.002258;-0.999481;, - 0.036409;-0.004028;-0.999329;, - 0.673452; 0.084658;-0.734336;, - 0.022889; 0.002075;-0.999725;, - 0.023530; 0.002075;-0.999695;, - 0.031648; 0.002258;-0.999481;, - 0.079897;-0.035737;-0.996155;, - 0.081881;-0.028047;-0.996246;, - 0.020051;-0.002411;-0.999786;, - 0.020051;-0.002411;-0.999786;, - 0.019440;-0.006409;-0.999786;, - 0.079897;-0.035737;-0.996155;, - 0.019440;-0.006409;-0.999786;, - 0.020051;-0.002411;-0.999786;, - -0.079592; 0.005432;-0.996796;, - 0.090609;-0.700064;-0.708274;, - 0.079897;-0.035737;-0.996155;, - 0.019440;-0.006409;-0.999786;, - 0.063387;-0.707633;-0.703696;, - 0.090609;-0.700064;-0.708274;, - 0.019440;-0.006409;-0.999786;, - 0.019440;-0.006409;-0.999786;, - -0.088290; 0.015992;-0.995941;, - 0.063387;-0.707633;-0.703696;, - -0.088290; 0.015992;-0.995941;, - 0.019440;-0.006409;-0.999786;, - -0.079592; 0.005432;-0.996796;, - -0.035096;-0.676748;-0.735374;, - 0.063387;-0.707633;-0.703696;, - -0.088290; 0.015992;-0.995941;, - -0.088290; 0.015992;-0.995941;, - -0.079592; 0.005432;-0.996796;, - -0.193884; 0.017914;-0.980834;, - -0.193884; 0.017914;-0.980834;, - -0.200354; 0.039430;-0.978912;, - -0.088290; 0.015992;-0.995941;, - -0.200354; 0.039430;-0.978912;, - -0.193884; 0.017914;-0.980834;, - -0.738517; 0.061434;-0.671407;, - -0.035096;-0.676748;-0.735374;, - -0.088290; 0.015992;-0.995941;, - -0.200354; 0.039430;-0.978912;, - -0.098178;-0.696585;-0.710715;, - -0.035096;-0.676748;-0.735374;, - -0.200354; 0.039430;-0.978912;, - -0.200354; 0.039430;-0.978912;, - -0.753471; 0.144902;-0.641285;, - -0.098178;-0.696585;-0.710715;, - -0.753471; 0.144902;-0.641285;, - -0.200354; 0.039430;-0.978912;, - -0.738517; 0.061434;-0.671407;, - -0.653340;-0.514512;-0.555315;, - -0.098178;-0.696585;-0.710715;, - -0.753471; 0.144902;-0.641285;, - -0.995636; 0.083895;-0.040742;, - -0.973418; 0.077731;-0.215400;, - -0.983062; 0.181310;-0.026185;, - -0.983062; 0.181310;-0.026185;, - -0.753471; 0.144902;-0.641285;, - -0.995636; 0.083895;-0.040742;, - -0.753471; 0.144902;-0.641285;, - -0.983062; 0.181310;-0.026185;, - -0.653340;-0.514512;-0.555315;, - -0.738517; 0.061434;-0.671407;, - -0.995636; 0.083895;-0.040742;, - -0.753471; 0.144902;-0.641285;, - -0.983062; 0.181310;-0.026185;, - -0.973418; 0.077731;-0.215400;, - -0.963439; 0.183996;-0.194586;, - -0.963439; 0.183996;-0.194586;, - -0.741813;-0.658162;-0.128391;, - -0.983062; 0.181310;-0.026185;, - -0.741813;-0.658162;-0.128391;, - -0.963439; 0.183996;-0.194586;, - -0.672872;-0.696707;-0.248573;, - -0.653340;-0.514512;-0.555315;, - -0.983062; 0.181310;-0.026185;, - -0.741813;-0.658162;-0.128391;, - -0.924375; 0.069979;-0.374981;, - -0.745323; 0.070956;-0.662893;, - -0.920591; 0.168767;-0.352123;, - -0.920591; 0.168767;-0.352123;, - -0.963439; 0.183996;-0.194586;, - -0.924375; 0.069979;-0.374981;, - -0.963439; 0.183996;-0.194586;, - -0.920591; 0.168767;-0.352123;, - -0.672872;-0.696707;-0.248573;, - -0.973418; 0.077731;-0.215400;, - -0.924375; 0.069979;-0.374981;, - -0.963439; 0.183996;-0.194586;, - -0.920591; 0.168767;-0.352123;, - -0.745323; 0.070956;-0.662893;, - -0.745262; 0.173193;-0.643818;, - -0.745262; 0.173193;-0.643818;, - -0.666280;-0.659932;-0.347179;, - -0.920591; 0.168767;-0.352123;, - -0.666280;-0.659932;-0.347179;, - -0.745262; 0.173193;-0.643818;, - -0.444807;-0.756645;-0.479171;, - -0.672872;-0.696707;-0.248573;, - -0.920591; 0.168767;-0.352123;, - -0.666280;-0.659932;-0.347179;, - 0.946532; 0.214759;-0.240608;, - 0.958464; 0.128544;-0.254524;, - 0.976562; 0.209571;-0.048830;, - 0.976562; 0.209571;-0.048830;, - 0.805506;-0.586230;-0.086337;, - 0.946532; 0.214759;-0.240608;, - 0.805506;-0.586230;-0.086337;, - 0.976562; 0.209571;-0.048830;, - 0.660634;-0.467544;-0.587298;, - 0.685598;-0.706992;-0.173376;, - 0.946532; 0.214759;-0.240608;, - 0.805506;-0.586230;-0.086337;, - 0.976562; 0.209571;-0.048830;, - 0.958464; 0.128544;-0.254524;, - 0.989532; 0.133488;-0.054598;, - 0.989532; 0.133488;-0.054598;, - 0.688711; 0.137852;-0.711783;, - 0.976562; 0.209571;-0.048830;, - 0.688711; 0.137852;-0.711783;, - 0.989532; 0.133488;-0.054598;, - 0.673452; 0.084658;-0.734336;, - 0.660634;-0.467544;-0.587298;, - 0.976562; 0.209571;-0.048830;, - 0.688711; 0.137852;-0.711783;, - 0.702628; 0.223701;-0.675436;, - 0.711600; 0.118717;-0.692465;, - 0.878842; 0.215857;-0.425428;, - 0.878842; 0.215857;-0.425428;, - 0.632679;-0.672597;-0.383801;, - 0.702628; 0.223701;-0.675436;, - 0.632679;-0.672597;-0.383801;, - 0.878842; 0.215857;-0.425428;, - 0.685598;-0.706992;-0.173376;, - 0.427992;-0.767754;-0.476821;, - 0.702628; 0.223701;-0.675436;, - 0.632679;-0.672597;-0.383801;, - 0.878842; 0.215857;-0.425428;, - 0.711600; 0.118717;-0.692465;, - 0.891842; 0.122074;-0.435499;, - 0.891842; 0.122074;-0.435499;, - 0.946532; 0.214759;-0.240608;, - 0.878842; 0.215857;-0.425428;, - 0.946532; 0.214759;-0.240608;, - 0.891842; 0.122074;-0.435499;, - 0.958464; 0.128544;-0.254524;, - 0.685598;-0.706992;-0.173376;, - 0.878842; 0.215857;-0.425428;, - 0.946532; 0.214759;-0.240608;, - 0.315073;-0.678091;-0.663991;, - 0.119907;-0.759392;-0.639454;, - 0.219764; 0.209937;-0.952666;, - 0.219764; 0.209937;-0.952666;, - 0.455153; 0.217475;-0.863430;, - 0.315073;-0.678091;-0.663991;, - 0.455153; 0.217475;-0.863430;, - 0.219764; 0.209937;-0.952666;, - 0.233406; 0.103549;-0.966826;, - 0.427992;-0.767754;-0.476821;, - 0.315073;-0.678091;-0.663991;, - 0.455153; 0.217475;-0.863430;, - 0.702628; 0.223701;-0.675436;, - 0.427992;-0.767754;-0.476821;, - 0.455153; 0.217475;-0.863430;, - 0.455153; 0.217475;-0.863430;, - 0.466720; 0.106143;-0.877987;, - 0.702628; 0.223701;-0.675436;, - 0.466720; 0.106143;-0.877987;, - 0.455153; 0.217475;-0.863430;, - 0.233406; 0.103549;-0.966826;, - 0.711600; 0.118717;-0.692465;, - 0.702628; 0.223701;-0.675436;, - 0.466720; 0.106143;-0.877987;, - -0.016846;-0.694143;-0.719626;, - -0.197668;-0.771599;-0.604572;, - -0.261422; 0.147588;-0.953856;, - -0.261422; 0.147588;-0.953856;, - -0.023316; 0.182226;-0.982971;, - -0.016846;-0.694143;-0.719626;, - -0.023316; 0.182226;-0.982971;, - -0.261422; 0.147588;-0.953856;, - -0.251503; 0.075259;-0.964904;, - 0.119907;-0.759392;-0.639454;, - -0.016846;-0.694143;-0.719626;, - -0.023316; 0.182226;-0.982971;, - 0.219764; 0.209937;-0.952666;, - 0.119907;-0.759392;-0.639454;, - -0.023316; 0.182226;-0.982971;, - -0.023316; 0.182226;-0.982971;, - -0.024293; 0.092013;-0.995453;, - 0.219764; 0.209937;-0.952666;, - -0.024293; 0.092013;-0.995453;, - -0.023316; 0.182226;-0.982971;, - -0.251503; 0.075259;-0.964904;, - 0.233406; 0.103549;-0.966826;, - 0.219764; 0.209937;-0.952666;, - -0.024293; 0.092013;-0.995453;, - 0.337443;-0.216529;-0.916074;, - 0.347789;-0.159062;-0.923948;, - 0.129063;-0.045259;-0.990570;, - 0.129063;-0.045259;-0.990570;, - 0.134465;-0.069643;-0.988464;, - 0.337443;-0.216529;-0.916074;, - 0.134465;-0.069643;-0.988464;, - 0.129063;-0.045259;-0.990570;, - 0.081881;-0.028047;-0.996246;, - 0.226264;-0.711509;-0.665242;, - 0.337443;-0.216529;-0.916074;, - 0.134465;-0.069643;-0.988464;, - 0.143559;-0.725150;-0.673452;, - 0.226264;-0.711509;-0.665242;, - 0.134465;-0.069643;-0.988464;, - 0.134465;-0.069643;-0.988464;, - 0.079897;-0.035737;-0.996155;, - 0.143559;-0.725150;-0.673452;, - 0.079897;-0.035737;-0.996155;, - 0.134465;-0.069643;-0.988464;, - 0.081881;-0.028047;-0.996246;, - 0.090609;-0.700064;-0.708274;, - 0.143559;-0.725150;-0.673452;, - 0.079897;-0.035737;-0.996155;, - 0.729881;-0.514054;-0.450514;, - 0.829554;-0.342082;-0.441328;, - 0.508438;-0.223334;-0.831599;, - 0.508438;-0.223334;-0.831599;, - 0.508011;-0.340190;-0.791284;, - 0.729881;-0.514054;-0.450514;, - 0.508011;-0.340190;-0.791284;, - 0.508438;-0.223334;-0.831599;, - 0.347789;-0.159062;-0.923948;, - 0.539384;-0.742180;-0.397748;, - 0.729881;-0.514054;-0.450514;, - 0.508011;-0.340190;-0.791284;, - 0.356883;-0.807733;-0.469222;, - 0.539384;-0.742180;-0.397748;, - 0.508011;-0.340190;-0.791284;, - 0.508011;-0.340190;-0.791284;, - 0.337443;-0.216529;-0.916074;, - 0.356883;-0.807733;-0.469222;, - 0.337443;-0.216529;-0.916074;, - 0.508011;-0.340190;-0.791284;, - 0.347789;-0.159062;-0.923948;, - 0.226264;-0.711509;-0.665242;, - 0.356883;-0.807733;-0.469222;, - 0.337443;-0.216529;-0.916074;, - 0.760949;-0.568194; 0.313150;, - 0.874386;-0.381024; 0.300333;, - 0.925321;-0.350627;-0.144139;, - 0.925321;-0.350627;-0.144139;, - 0.865841;-0.490677;-0.097476;, - 0.760949;-0.568194; 0.313150;, - 0.865841;-0.490677;-0.097476;, - 0.925321;-0.350627;-0.144139;, - 0.930357;-0.365032;-0.034181;, - 0.527543;-0.801996; 0.280068;, - 0.760949;-0.568194; 0.313150;, - 0.865841;-0.490677;-0.097476;, - 0.519913;-0.852870; 0.047121;, - 0.527543;-0.801996; 0.280068;, - 0.865841;-0.490677;-0.097476;, - 0.865841;-0.490677;-0.097476;, - 0.866207;-0.499619;-0.006134;, - 0.519913;-0.852870; 0.047121;, - 0.866207;-0.499619;-0.006134;, - 0.865841;-0.490677;-0.097476;, - 0.930357;-0.365032;-0.034181;, - 0.483932;-0.872280; 0.069826;, - 0.519913;-0.852870; 0.047121;, - 0.866207;-0.499619;-0.006134;, - 0.327342;-0.504196; 0.799127;, - 0.419294;-0.318461; 0.850154;, - 0.657582;-0.373547; 0.654225;, - 0.657582;-0.373547; 0.654225;, - 0.533738;-0.552293; 0.640339;, - 0.327342;-0.504196; 0.799127;, - 0.533738;-0.552293; 0.640339;, - 0.657582;-0.373547; 0.654225;, - 0.874386;-0.381024; 0.300333;, - 0.213935;-0.654836; 0.724815;, - 0.327342;-0.504196; 0.799127;, - 0.533738;-0.552293; 0.640339;, - 0.303568;-0.739921; 0.600269;, - 0.213935;-0.654836; 0.724815;, - 0.533738;-0.552293; 0.640339;, - 0.533738;-0.552293; 0.640339;, - 0.760949;-0.568194; 0.313150;, - 0.303568;-0.739921; 0.600269;, - 0.760949;-0.568194; 0.313150;, - 0.533738;-0.552293; 0.640339;, - 0.874386;-0.381024; 0.300333;, - 0.527543;-0.801996; 0.280068;, - 0.303568;-0.739921; 0.600269;, - 0.760949;-0.568194; 0.313150;, - -0.350841;-0.408551; 0.842586;, - -0.474776;-0.188513; 0.859645;, - -0.065859;-0.384777; 0.920621;, - -0.065859;-0.384777; 0.920621;, - -0.079653;-0.311014; 0.947050;, - -0.350841;-0.408551; 0.842586;, - -0.079653;-0.311014; 0.947050;, - -0.065859;-0.384777; 0.920621;, - -0.062685;-0.389874; 0.918699;, - -0.250587;-0.735588; 0.629322;, - -0.350841;-0.408551; 0.842586;, - -0.079653;-0.311014; 0.947050;, - -0.099124;-0.747337; 0.656972;, - -0.250587;-0.735588; 0.629322;, - -0.079653;-0.311014; 0.947050;, - -0.079653;-0.311014; 0.947050;, - -0.069033;-0.275765; 0.958708;, - -0.099124;-0.747337; 0.656972;, - -0.069033;-0.275765; 0.958708;, - -0.079653;-0.311014; 0.947050;, - -0.062685;-0.389874; 0.918699;, - -0.055422;-0.754234; 0.654225;, - -0.099124;-0.747337; 0.656972;, - -0.069033;-0.275765; 0.958708;, - -0.376202;-0.805841; 0.457228;, - -0.502823;-0.776482; 0.379711;, - -0.655416;-0.397809; 0.641957;, - -0.655416;-0.397809; 0.641957;, - -0.350841;-0.408551; 0.842586;, - -0.376202;-0.805841; 0.457228;, - -0.350841;-0.408551; 0.842586;, - -0.655416;-0.397809; 0.641957;, - -0.474776;-0.188513; 0.859645;, - -0.250587;-0.735588; 0.629322;, - -0.376202;-0.805841; 0.457228;, - -0.350841;-0.408551; 0.842586;, - -0.655416;-0.397809; 0.641957;, - -0.502823;-0.776482; 0.379711;, - -0.763421;-0.357097; 0.538163;, - -0.763421;-0.357097; 0.538163;, - -0.706198;-0.123142; 0.697195;, - -0.655416;-0.397809; 0.641957;, - -0.706198;-0.123142; 0.697195;, - -0.763421;-0.357097; 0.538163;, - -0.765954;-0.189886; 0.614154;, - -0.474776;-0.188513; 0.859645;, - -0.655416;-0.397809; 0.641957;, - -0.706198;-0.123142; 0.697195;, - -0.553575;-0.788354; 0.268288;, - -0.593310;-0.774499; 0.219306;, - -0.852412;-0.376843; 0.362407;, - -0.852412;-0.376843; 0.362407;, - -0.814112;-0.367443; 0.449629;, - -0.553575;-0.788354; 0.268288;, - -0.814112;-0.367443; 0.449629;, - -0.852412;-0.376843; 0.362407;, - -0.887143;-0.261361; 0.380322;, - -0.502823;-0.776482; 0.379711;, - -0.553575;-0.788354; 0.268288;, - -0.814112;-0.367443; 0.449629;, - -0.763421;-0.357097; 0.538163;, - -0.502823;-0.776482; 0.379711;, - -0.814112;-0.367443; 0.449629;, - -0.814112;-0.367443; 0.449629;, - -0.853206;-0.244514; 0.460646;, - -0.763421;-0.357097; 0.538163;, - -0.853206;-0.244514; 0.460646;, - -0.814112;-0.367443; 0.449629;, - -0.887143;-0.261361; 0.380322;, - -0.765954;-0.189886; 0.614154;, - -0.763421;-0.357097; 0.538163;, - -0.853206;-0.244514; 0.460646;, - -0.593036;-0.789544; 0.157750;, - -0.196875;-0.583392; 0.787927;, - -0.487869;-0.306833; 0.817164;, - -0.487869;-0.306833; 0.817164;, - -0.884304;-0.373211; 0.280435;, - -0.593036;-0.789544; 0.157750;, - -0.884304;-0.373211; 0.280435;, - -0.487869;-0.306833; 0.817164;, - -0.536973;-0.181524; 0.823817;, - -0.593310;-0.774499; 0.219306;, - -0.593036;-0.789544; 0.157750;, - -0.884304;-0.373211; 0.280435;, - -0.852412;-0.376843; 0.362407;, - -0.593310;-0.774499; 0.219306;, - -0.884304;-0.373211; 0.280435;, - -0.884304;-0.373211; 0.280435;, - -0.919675;-0.257454; 0.296457;, - -0.852412;-0.376843; 0.362407;, - -0.919675;-0.257454; 0.296457;, - -0.884304;-0.373211; 0.280435;, - -0.536973;-0.181524; 0.823817;, - -0.887143;-0.261361; 0.380322;, - -0.852412;-0.376843; 0.362407;, - -0.919675;-0.257454; 0.296457;, - -0.441176;-0.121128; 0.889187;, - -0.442946;-0.102817; 0.890591;, - -0.000061;-0.004120; 0.999969;, - -0.000061;-0.004120; 0.999969;, - 0.064699;-0.048585; 0.996704;, - -0.441176;-0.121128; 0.889187;, - 0.064699;-0.048585; 0.996704;, - -0.000061;-0.004120; 0.999969;, - -0.536973;-0.181524; 0.823817;, - -0.398816;-0.252052; 0.881680;, - -0.441176;-0.121128; 0.889187;, - 0.064699;-0.048585; 0.996704;, - 0.117435;-0.136753; 0.983612;, - -0.398816;-0.252052; 0.881680;, - 0.064699;-0.048585; 0.996704;, - 0.064699;-0.048585; 0.996704;, - -0.487869;-0.306833; 0.817164;, - 0.117435;-0.136753; 0.983612;, - -0.487869;-0.306833; 0.817164;, - 0.064699;-0.048585; 0.996704;, - -0.536973;-0.181524; 0.823817;, - -0.196875;-0.583392; 0.787927;, - 0.117435;-0.136753; 0.983612;, - -0.487869;-0.306833; 0.817164;, - -0.762810;-0.343272; 0.547929;, - -0.918851;-0.348918; 0.184179;, - -0.771935;-0.221839; 0.595721;, - -0.771935;-0.221839; 0.595721;, - -0.441176;-0.121128; 0.889187;, - -0.762810;-0.343272; 0.547929;, - -0.441176;-0.121128; 0.889187;, - -0.771935;-0.221839; 0.595721;, - -0.442946;-0.102817; 0.890591;, - -0.398816;-0.252052; 0.881680;, - -0.762810;-0.343272; 0.547929;, - -0.441176;-0.121128; 0.889187;, - -0.771935;-0.221839; 0.595721;, - -0.918851;-0.348918; 0.184179;, - -0.941191;-0.282937; 0.184576;, - -0.941191;-0.282937; 0.184576;, - -0.767327;-0.172948; 0.617450;, - -0.771935;-0.221839; 0.595721;, - -0.767327;-0.172948; 0.617450;, - -0.941191;-0.282937; 0.184576;, - -0.960448;-0.210608; 0.182104;, - -0.442946;-0.102817; 0.890591;, - -0.771935;-0.221839; 0.595721;, - -0.767327;-0.172948; 0.617450;, - -0.920865;-0.289193;-0.261452;, - -0.577471;-0.271126;-0.770043;, - -0.583056;-0.136479;-0.800867;, - -0.583056;-0.136479;-0.800867;, - -0.928892;-0.248054;-0.274941;, - -0.920865;-0.289193;-0.261452;, - -0.928892;-0.248054;-0.274941;, - -0.583056;-0.136479;-0.800867;, - -0.593951;-0.115696;-0.796106;, - -0.918851;-0.348918; 0.184179;, - -0.920865;-0.289193;-0.261452;, - -0.928892;-0.248054;-0.274941;, - -0.941191;-0.282937; 0.184576;, - -0.918851;-0.348918; 0.184179;, - -0.928892;-0.248054;-0.274941;, - -0.928892;-0.248054;-0.274941;, - -0.935942;-0.205542;-0.285867;, - -0.941191;-0.282937; 0.184576;, - -0.935942;-0.205542;-0.285867;, - -0.928892;-0.248054;-0.274941;, - -0.593951;-0.115696;-0.796106;, - -0.960448;-0.210608; 0.182104;, - -0.941191;-0.282937; 0.184576;, - -0.935942;-0.205542;-0.285867;, - -0.097232;-0.994629;-0.034883;, - -0.050813;-0.998108;-0.034150;, - -0.044649;-0.996094;-0.076174;, - -0.044649;-0.996094;-0.076174;, - -0.094546;-0.992309;-0.079592;, - -0.097232;-0.994629;-0.034883;, - -0.094546;-0.992309;-0.079592;, - -0.044649;-0.996094;-0.076174;, - -0.051119;-0.994873;-0.087039;, - 0.665273;-0.743309;-0.069674;, - -0.097232;-0.994629;-0.034883;, - -0.094546;-0.992309;-0.079592;, - 0.654103;-0.749687;-0.100467;, - 0.665273;-0.743309;-0.069674;, - -0.094546;-0.992309;-0.079592;, - -0.094546;-0.992309;-0.079592;, - -0.103366;-0.990692;-0.088229;, - 0.654103;-0.749687;-0.100467;, - -0.103366;-0.990692;-0.088229;, - -0.094546;-0.992309;-0.079592;, - -0.051119;-0.994873;-0.087039;, - 0.579424;-0.779290;-0.238563;, - 0.654103;-0.749687;-0.100467;, - -0.103366;-0.990692;-0.088229;, - -0.097232;-0.994629;-0.034883;, - 0.665273;-0.743309;-0.069674;, - 0.650990;-0.758354;-0.032899;, - 0.650990;-0.758354;-0.032899;, - -0.108829;-0.994049; 0.002991;, - -0.097232;-0.994629;-0.034883;, - -0.108829;-0.994049; 0.002991;, - 0.650990;-0.758354;-0.032899;, - 0.563707;-0.646657;-0.513840;, - -0.050813;-0.998108;-0.034150;, - -0.097232;-0.994629;-0.034883;, - -0.108829;-0.994049; 0.002991;, - -0.055208;-0.998444;-0.000061;, - -0.050813;-0.998108;-0.034150;, - -0.108829;-0.994049; 0.002991;, - -0.108829;-0.994049; 0.002991;, - 0.057833;-0.725028;-0.686270;, - -0.055208;-0.998444;-0.000061;, - 0.057833;-0.725028;-0.686270;, - -0.108829;-0.994049; 0.002991;, - 0.563707;-0.646657;-0.513840;, - 0.037507;-0.691610;-0.721274;, - -0.055208;-0.998444;-0.000061;, - 0.057833;-0.725028;-0.686270;, - -0.001434;-0.999939;-0.008576;, - -0.057894;-0.998321;-0.000031;, - -0.057985;-0.998199;-0.013337;, - -0.057985;-0.998199;-0.013337;, - -0.001251;-0.999908;-0.013337;, - -0.001434;-0.999939;-0.008576;, - -0.001251;-0.999908;-0.013337;, - -0.057985;-0.998199;-0.013337;, - -0.055757;-0.996948;-0.054262;, - 0.010102;-0.999908;-0.008148;, - -0.001434;-0.999939;-0.008576;, - -0.001251;-0.999908;-0.013337;, - 0.011078;-0.999847;-0.013428;, - 0.010102;-0.999908;-0.008148;, - -0.001251;-0.999908;-0.013337;, - -0.001251;-0.999908;-0.013337;, - 0.000214;-0.998566;-0.053529;, - 0.011078;-0.999847;-0.013428;, - 0.000214;-0.998566;-0.053529;, - -0.001251;-0.999908;-0.013337;, - -0.055757;-0.996948;-0.054262;, - 0.011444;-0.997131;-0.074740;, - 0.011078;-0.999847;-0.013428;, - 0.000214;-0.998566;-0.053529;, - 0.009308;-0.999939;-0.003723;, - 0.005005;-0.995117; 0.098270;, - -0.001434;-0.999969; 0.004639;, - -0.001434;-0.999969; 0.004639;, - -0.001434;-0.999939;-0.008576;, - 0.009308;-0.999939;-0.003723;, - -0.001434;-0.999939;-0.008576;, - -0.001434;-0.999969; 0.004639;, - -0.057894;-0.998321;-0.000031;, - 0.010102;-0.999908;-0.008148;, - 0.009308;-0.999939;-0.003723;, - -0.001434;-0.999939;-0.008576;, - -0.001434;-0.999969; 0.004639;, - 0.005005;-0.995117; 0.098270;, - -0.006195;-0.994232; 0.106845;, - -0.006195;-0.994232; 0.106845;, - -0.057649;-0.998230; 0.013062;, - -0.001434;-0.999969; 0.004639;, - -0.057649;-0.998230; 0.013062;, - -0.006195;-0.994232; 0.106845;, - -0.051607;-0.987243; 0.150456;, - -0.057894;-0.998321;-0.000031;, - -0.001434;-0.999969; 0.004639;, - -0.057649;-0.998230; 0.013062;, - 0.009308;-0.999939;-0.003723;, - 0.010102;-0.999908;-0.008148;, - 0.020661;-0.999695; 0.011078;, - 0.020661;-0.999695; 0.011078;, - 0.018799;-0.999756; 0.010529;, - 0.009308;-0.999939;-0.003723;, - 0.018799;-0.999756; 0.010529;, - 0.020661;-0.999695; 0.011078;, - -0.340220;-0.686392;-0.642720;, - 0.005005;-0.995117; 0.098270;, - 0.009308;-0.999939;-0.003723;, - 0.018799;-0.999756; 0.010529;, - 0.014832;-0.993500; 0.112644;, - 0.005005;-0.995117; 0.098270;, - 0.018799;-0.999756; 0.010529;, - 0.018799;-0.999756; 0.010529;, - -0.338755;-0.683920;-0.646107;, - 0.014832;-0.993500; 0.112644;, - -0.338755;-0.683920;-0.646107;, - 0.018799;-0.999756; 0.010529;, - -0.340220;-0.686392;-0.642720;, - -0.197668;-0.771599;-0.604572;, - 0.014832;-0.993500; 0.112644;, - -0.338755;-0.683920;-0.646107;, - 0.011078;-0.999847;-0.013428;, - 0.011444;-0.997131;-0.074740;, - 0.020081;-0.998321;-0.054079;, - 0.020081;-0.998321;-0.054079;, - 0.022248;-0.999725; 0.006134;, - 0.011078;-0.999847;-0.013428;, - 0.022248;-0.999725; 0.006134;, - 0.020081;-0.998321;-0.054079;, - -0.443068;-0.797967;-0.408490;, - 0.010102;-0.999908;-0.008148;, - 0.011078;-0.999847;-0.013428;, - 0.022248;-0.999725; 0.006134;, - 0.020661;-0.999695; 0.011078;, - 0.010102;-0.999908;-0.008148;, - 0.022248;-0.999725; 0.006134;, - 0.022248;-0.999725; 0.006134;, - -0.333995;-0.690756;-0.641285;, - 0.020661;-0.999695; 0.011078;, - -0.333995;-0.690756;-0.641285;, - 0.022248;-0.999725; 0.006134;, - -0.443068;-0.797967;-0.408490;, - -0.340220;-0.686392;-0.642720;, - 0.020661;-0.999695; 0.011078;, - -0.333995;-0.690756;-0.641285;, - -0.604846;-0.720084;-0.340007;, - -0.443068;-0.797967;-0.408490;, - 0.020081;-0.998321;-0.054079;, - 0.020081;-0.998321;-0.054079;, - 0.022065;-0.992981;-0.115940;, - -0.604846;-0.720084;-0.340007;, - 0.022065;-0.992981;-0.115940;, - 0.020081;-0.998321;-0.054079;, - 0.011444;-0.997131;-0.074740;, - -0.593554;-0.777703;-0.207007;, - -0.604846;-0.720084;-0.340007;, - 0.022065;-0.992981;-0.115940;, - 0.028962;-0.993774;-0.107425;, - -0.593554;-0.777703;-0.207007;, - 0.022065;-0.992981;-0.115940;, - 0.022065;-0.992981;-0.115940;, - 0.012574;-0.990417;-0.137303;, - 0.028962;-0.993774;-0.107425;, - 0.012574;-0.990417;-0.137303;, - 0.022065;-0.992981;-0.115940;, - 0.011444;-0.997131;-0.074740;, - 0.012268;-0.994812;-0.100833;, - 0.028962;-0.993774;-0.107425;, - 0.012574;-0.990417;-0.137303;, - 0.024049;-0.999634;-0.009980;, - -0.637410;-0.646016;-0.419904;, - 0.027253;-0.997131;-0.070376;, - 0.027253;-0.997131;-0.070376;, - 0.011383;-0.997925;-0.062960;, - 0.024049;-0.999634;-0.009980;, - 0.011383;-0.997925;-0.062960;, - 0.027253;-0.997131;-0.070376;, - 0.012268;-0.994812;-0.100833;, - 0.012665;-0.999451;-0.029969;, - 0.024049;-0.999634;-0.009980;, - 0.011383;-0.997925;-0.062960;, - 0.027253;-0.997131;-0.070376;, - -0.637410;-0.646016;-0.419904;, - -0.655293;-0.751396;-0.077212;, - -0.655293;-0.751396;-0.077212;, - 0.028962;-0.993774;-0.107425;, - 0.027253;-0.997131;-0.070376;, - 0.028962;-0.993774;-0.107425;, - -0.655293;-0.751396;-0.077212;, - -0.593554;-0.777703;-0.207007;, - 0.012268;-0.994812;-0.100833;, - 0.027253;-0.997131;-0.070376;, - 0.028962;-0.993774;-0.107425;, - -0.001251;-0.999481;-0.031434;, - 0.012665;-0.999451;-0.029969;, - 0.011383;-0.997925;-0.062960;, - 0.011383;-0.997925;-0.062960;, - -0.002350;-0.997559;-0.069491;, - -0.001251;-0.999481;-0.031434;, - -0.002350;-0.997559;-0.069491;, - 0.011383;-0.997925;-0.062960;, - 0.012268;-0.994812;-0.100833;, - -0.050813;-0.998108;-0.034150;, - -0.001251;-0.999481;-0.031434;, - -0.002350;-0.997559;-0.069491;, - -0.044649;-0.996094;-0.076174;, - -0.050813;-0.998108;-0.034150;, - -0.002350;-0.997559;-0.069491;, - -0.002350;-0.997559;-0.069491;, - -0.002869;-0.994263;-0.106876;, - -0.044649;-0.996094;-0.076174;, - -0.002869;-0.994263;-0.106876;, - -0.002350;-0.997559;-0.069491;, - 0.012268;-0.994812;-0.100833;, - -0.051119;-0.994873;-0.087039;, - -0.044649;-0.996094;-0.076174;, - -0.002869;-0.994263;-0.106876;, - 0.012207;-0.999908; 0.002197;, - 0.006317;-0.719840;-0.694082;, - 0.019776;-0.722526;-0.691031;, - 0.019776;-0.722526;-0.691031;, - 0.024873;-0.999390; 0.023957;, - 0.012207;-0.999908; 0.002197;, - 0.024873;-0.999390; 0.023957;, - 0.019776;-0.722526;-0.691031;, - -0.160192;-0.696799;-0.699149;, - 0.012665;-0.999451;-0.029969;, - 0.012207;-0.999908; 0.002197;, - 0.024873;-0.999390; 0.023957;, - 0.024049;-0.999634;-0.009980;, - 0.012665;-0.999451;-0.029969;, - 0.024873;-0.999390; 0.023957;, - 0.024873;-0.999390; 0.023957;, - -0.318033;-0.755486;-0.572771;, - 0.024049;-0.999634;-0.009980;, - -0.318033;-0.755486;-0.572771;, - 0.024873;-0.999390; 0.023957;, - -0.160192;-0.696799;-0.699149;, - -0.637410;-0.646016;-0.419904;, - 0.024049;-0.999634;-0.009980;, - -0.318033;-0.755486;-0.572771;, - -0.055208;-0.998444;-0.000061;, - 0.037507;-0.691610;-0.721274;, - -0.004212;-0.724143;-0.689596;, - -0.004212;-0.724143;-0.689596;, - -0.001251;-0.999969;-0.000092;, - -0.055208;-0.998444;-0.000061;, - -0.001251;-0.999969;-0.000092;, - -0.004212;-0.724143;-0.689596;, - 0.006317;-0.719840;-0.694082;, - -0.050813;-0.998108;-0.034150;, - -0.055208;-0.998444;-0.000061;, - -0.001251;-0.999969;-0.000092;, - -0.001251;-0.999481;-0.031434;, - -0.050813;-0.998108;-0.034150;, - -0.001251;-0.999969;-0.000092;, - -0.001251;-0.999969;-0.000092;, - 0.012207;-0.999908; 0.002197;, - -0.001251;-0.999481;-0.031434;, - 0.012207;-0.999908; 0.002197;, - -0.001251;-0.999969;-0.000092;, - 0.006317;-0.719840;-0.694082;, - 0.012665;-0.999451;-0.029969;, - -0.001251;-0.999481;-0.031434;, - 0.012207;-0.999908; 0.002197;, - -0.098178;-0.696585;-0.710715;, - -0.653340;-0.514512;-0.555315;, - 0.072939;-0.994385;-0.076510;, - 0.072939;-0.994385;-0.076510;, - 0.071261;-0.997436; 0.000000;, - -0.098178;-0.696585;-0.710715;, - 0.071261;-0.997436; 0.000000;, - 0.072939;-0.994385;-0.076510;, - 0.077792;-0.994293;-0.072726;, - -0.035096;-0.676748;-0.735374;, - -0.098178;-0.696585;-0.710715;, - 0.071261;-0.997436; 0.000000;, - 0.063387;-0.707633;-0.703696;, - -0.035096;-0.676748;-0.735374;, - 0.071261;-0.997436; 0.000000;, - 0.071261;-0.997436; 0.000000;, - 0.071261;-0.997436; 0.000031;, - 0.063387;-0.707633;-0.703696;, - 0.071261;-0.997436; 0.000031;, - 0.071261;-0.997436; 0.000000;, - 0.077792;-0.994293;-0.072726;, - 0.090609;-0.700064;-0.708274;, - 0.063387;-0.707633;-0.703696;, - 0.071261;-0.997436; 0.000031;, - 0.083071;-0.993683;-0.075411;, - 0.539384;-0.742180;-0.397748;, - 0.356883;-0.807733;-0.469222;, - 0.356883;-0.807733;-0.469222;, - 0.071261;-0.997436; 0.000000;, - 0.083071;-0.993683;-0.075411;, - 0.071261;-0.997436; 0.000000;, - 0.356883;-0.807733;-0.469222;, - 0.226264;-0.711509;-0.665242;, - 0.077792;-0.994293;-0.072726;, - 0.083071;-0.993683;-0.075411;, - 0.071261;-0.997436; 0.000000;, - 0.071261;-0.997436; 0.000031;, - 0.077792;-0.994293;-0.072726;, - 0.071261;-0.997436; 0.000000;, - 0.071261;-0.997436; 0.000000;, - 0.143559;-0.725150;-0.673452;, - 0.071261;-0.997436; 0.000031;, - 0.143559;-0.725150;-0.673452;, - 0.071261;-0.997436; 0.000000;, - 0.226264;-0.711509;-0.665242;, - 0.090609;-0.700064;-0.708274;, - 0.071261;-0.997436; 0.000031;, - 0.143559;-0.725150;-0.673452;, - 0.061922;-0.989593;-0.129826;, - 0.509201;-0.857906;-0.068331;, - 0.517808;-0.845332;-0.131291;, - 0.517808;-0.845332;-0.131291;, - 0.082888;-0.982635;-0.165899;, - 0.061922;-0.989593;-0.129826;, - 0.082888;-0.982635;-0.165899;, - 0.517808;-0.845332;-0.131291;, - 0.539384;-0.742180;-0.397748;, - 0.067324;-0.990631;-0.118686;, - 0.061922;-0.989593;-0.129826;, - 0.082888;-0.982635;-0.165899;, - 0.084292;-0.984832;-0.151494;, - 0.067324;-0.990631;-0.118686;, - 0.082888;-0.982635;-0.165899;, - 0.082888;-0.982635;-0.165899;, - 0.083071;-0.993683;-0.075411;, - 0.084292;-0.984832;-0.151494;, - 0.083071;-0.993683;-0.075411;, - 0.082888;-0.982635;-0.165899;, - 0.539384;-0.742180;-0.397748;, - 0.077792;-0.994293;-0.072726;, - 0.084292;-0.984832;-0.151494;, - 0.083071;-0.993683;-0.075411;, - 0.074740;-0.996826;-0.026643;, - 0.518479;-0.854946; 0.015412;, - 0.515854;-0.856655;-0.000305;, - 0.515854;-0.856655;-0.000305;, - 0.063753;-0.996155;-0.059847;, - 0.074740;-0.996826;-0.026643;, - 0.063753;-0.996155;-0.059847;, - 0.515854;-0.856655;-0.000305;, - 0.509201;-0.857906;-0.068331;, - 0.069094;-0.996643;-0.043672;, - 0.074740;-0.996826;-0.026643;, - 0.063753;-0.996155;-0.059847;, - 0.056124;-0.995392;-0.077548;, - 0.069094;-0.996643;-0.043672;, - 0.063753;-0.996155;-0.059847;, - 0.063753;-0.996155;-0.059847;, - 0.061922;-0.989593;-0.129826;, - 0.056124;-0.995392;-0.077548;, - 0.061922;-0.989593;-0.129826;, - 0.063753;-0.996155;-0.059847;, - 0.509201;-0.857906;-0.068331;, - 0.067324;-0.990631;-0.118686;, - 0.056124;-0.995392;-0.077548;, - 0.061922;-0.989593;-0.129826;, - 0.074435;-0.997131;-0.012238;, - 0.074435;-0.997223; 0.000549;, - 0.074496;-0.997192; 0.000549;, - 0.074496;-0.997192; 0.000549;, - 0.074435;-0.997131;-0.011902;, - 0.074435;-0.997131;-0.012238;, - 0.074435;-0.997131;-0.011902;, - 0.074496;-0.997192; 0.000549;, - 0.521317;-0.852535; 0.037141;, - 0.069094;-0.996643;-0.043672;, - 0.074435;-0.997131;-0.012238;, - 0.074435;-0.997131;-0.011902;, - 0.074740;-0.996826;-0.026643;, - 0.069094;-0.996643;-0.043672;, - 0.074435;-0.997131;-0.011902;, - 0.074435;-0.997131;-0.011902;, - 0.522202;-0.852382; 0.026215;, - 0.074740;-0.996826;-0.026643;, - 0.522202;-0.852382; 0.026215;, - 0.074435;-0.997131;-0.011902;, - 0.521317;-0.852535; 0.037141;, - 0.518479;-0.854946; 0.015412;, - 0.074740;-0.996826;-0.026643;, - 0.522202;-0.852382; 0.026215;, - 0.074374;-0.997131; 0.013520;, - 0.076876;-0.990814; 0.111118;, - 0.073855;-0.990783; 0.113407;, - 0.073855;-0.990783; 0.113407;, - 0.074374;-0.997131; 0.013428;, - 0.074374;-0.997131; 0.013520;, - 0.074374;-0.997131; 0.013428;, - 0.073855;-0.990783; 0.113407;, - 0.483932;-0.872280; 0.069826;, - 0.074435;-0.997223; 0.000549;, - 0.074374;-0.997131; 0.013520;, - 0.074374;-0.997131; 0.013428;, - 0.074496;-0.997192; 0.000549;, - 0.074435;-0.997223; 0.000549;, - 0.074374;-0.997131; 0.013428;, - 0.074374;-0.997131; 0.013428;, - 0.523209;-0.850856; 0.047609;, - 0.074496;-0.997192; 0.000549;, - 0.523209;-0.850856; 0.047609;, - 0.074374;-0.997131; 0.013428;, - 0.483932;-0.872280; 0.069826;, - 0.521317;-0.852535; 0.037141;, - 0.074496;-0.997192; 0.000549;, - 0.523209;-0.850856; 0.047609;, - 0.074526;-0.997192; 0.000061;, - 0.041383;-0.999115;-0.003845;, - 0.074374;-0.997131; 0.013733;, - 0.074374;-0.997131; 0.013733;, - 0.074374;-0.997131; 0.013520;, - 0.074526;-0.997192; 0.000061;, - 0.074374;-0.997131; 0.013520;, - 0.074374;-0.997131; 0.013733;, - 0.076876;-0.990814; 0.111118;, - 0.074435;-0.997223; 0.000549;, - 0.074526;-0.997192; 0.000061;, - 0.074374;-0.997131; 0.013520;, - 0.074374;-0.997131; 0.013733;, - 0.041383;-0.999115;-0.003845;, - 0.042299;-0.999023; 0.011902;, - 0.042299;-0.999023; 0.011902;, - 0.079379;-0.990448; 0.112613;, - 0.074374;-0.997131; 0.013733;, - 0.079379;-0.990448; 0.112613;, - 0.042299;-0.999023; 0.011902;, - 0.038942;-0.988220; 0.147862;, - 0.076876;-0.990814; 0.111118;, - 0.074374;-0.997131; 0.013733;, - 0.079379;-0.990448; 0.112613;, - 0.074435;-0.997131;-0.012238;, - 0.069094;-0.996643;-0.043672;, - 0.075900;-0.995422;-0.057833;, - 0.075900;-0.995422;-0.057833;, - 0.074435;-0.997131;-0.012818;, - 0.074435;-0.997131;-0.012238;, - 0.074435;-0.997131;-0.012818;, - 0.075900;-0.995422;-0.057833;, - -0.444807;-0.756645;-0.479171;, - 0.074435;-0.997223; 0.000549;, - 0.074435;-0.997131;-0.012238;, - 0.074435;-0.997131;-0.012818;, - 0.074526;-0.997192; 0.000061;, - 0.074435;-0.997223; 0.000549;, - 0.074435;-0.997131;-0.012818;, - 0.074435;-0.997131;-0.012818;, - 0.042817;-0.998871;-0.019196;, - 0.074526;-0.997192; 0.000061;, - 0.042817;-0.998871;-0.019196;, - 0.074435;-0.997131;-0.012818;, - -0.444807;-0.756645;-0.479171;, - 0.041383;-0.999115;-0.003845;, - 0.074526;-0.997192; 0.000061;, - 0.042817;-0.998871;-0.019196;, - 0.072939;-0.994385;-0.076510;, - -0.653340;-0.514512;-0.555315;, - 0.070376;-0.986724;-0.146153;, - 0.070376;-0.986724;-0.146153;, - 0.084292;-0.984832;-0.151494;, - 0.072939;-0.994385;-0.076510;, - 0.084292;-0.984832;-0.151494;, - 0.070376;-0.986724;-0.146153;, - 0.067324;-0.990631;-0.118686;, - 0.077792;-0.994293;-0.072726;, - 0.072939;-0.994385;-0.076510;, - 0.084292;-0.984832;-0.151494;, - 0.070376;-0.986724;-0.146153;, - -0.653340;-0.514512;-0.555315;, - -0.741813;-0.658162;-0.128391;, - -0.741813;-0.658162;-0.128391;, - 0.063295;-0.992065;-0.108493;, - 0.070376;-0.986724;-0.146153;, - 0.063295;-0.992065;-0.108493;, - -0.741813;-0.658162;-0.128391;, - -0.672872;-0.696707;-0.248573;, - 0.067324;-0.990631;-0.118686;, - 0.070376;-0.986724;-0.146153;, - 0.063295;-0.992065;-0.108493;, - -0.666280;-0.659932;-0.347179;, - -0.444807;-0.756645;-0.479171;, - 0.075900;-0.995422;-0.057833;, - 0.075900;-0.995422;-0.057833;, - 0.068697;-0.993530;-0.090243;, - -0.666280;-0.659932;-0.347179;, - 0.068697;-0.993530;-0.090243;, - 0.075900;-0.995422;-0.057833;, - 0.069094;-0.996643;-0.043672;, - -0.672872;-0.696707;-0.248573;, - -0.666280;-0.659932;-0.347179;, - 0.068697;-0.993530;-0.090243;, - 0.063295;-0.992065;-0.108493;, - -0.672872;-0.696707;-0.248573;, - 0.068697;-0.993530;-0.090243;, - 0.068697;-0.993530;-0.090243;, - 0.056124;-0.995392;-0.077548;, - 0.063295;-0.992065;-0.108493;, - 0.056124;-0.995392;-0.077548;, - 0.068697;-0.993530;-0.090243;, - 0.069094;-0.996643;-0.043672;, - 0.067324;-0.990631;-0.118686;, - 0.063295;-0.992065;-0.108493;, - 0.056124;-0.995392;-0.077548;, - 0.079379;-0.990448; 0.112613;, - 0.038942;-0.988220; 0.147862;, - 0.066927;-0.965545; 0.251442;, - 0.066927;-0.965545; 0.251442;, - 0.078127;-0.974303; 0.211158;, - 0.079379;-0.990448; 0.112613;, - 0.078127;-0.974303; 0.211158;, - 0.066927;-0.965545; 0.251442;, - 0.061586;-0.934996; 0.349193;, - 0.076876;-0.990814; 0.111118;, - 0.079379;-0.990448; 0.112613;, - 0.078127;-0.974303; 0.211158;, - 0.066927;-0.965545; 0.251442;, - 0.038942;-0.988220; 0.147862;, - 0.028687;-0.957762; 0.286111;, - 0.028687;-0.957762; 0.286111;, - 0.053743;-0.921690; 0.384136;, - 0.066927;-0.965545; 0.251442;, - 0.053743;-0.921690; 0.384136;, - 0.028687;-0.957762; 0.286111;, - 0.025880;-0.920377; 0.390149;, - 0.061586;-0.934996; 0.349193;, - 0.066927;-0.965545; 0.251442;, - 0.053743;-0.921690; 0.384136;, - 0.043855;-0.945982; 0.321207;, - 0.527543;-0.801996; 0.280068;, - 0.519913;-0.852870; 0.047121;, - 0.519913;-0.852870; 0.047121;, - 0.048006;-0.980712; 0.189337;, - 0.043855;-0.945982; 0.321207;, - 0.048006;-0.980712; 0.189337;, - 0.519913;-0.852870; 0.047121;, - 0.483932;-0.872280; 0.069826;, - 0.061586;-0.934996; 0.349193;, - 0.043855;-0.945982; 0.321207;, - 0.048006;-0.980712; 0.189337;, - 0.078127;-0.974303; 0.211158;, - 0.061586;-0.934996; 0.349193;, - 0.048006;-0.980712; 0.189337;, - 0.048006;-0.980712; 0.189337;, - 0.073855;-0.990783; 0.113407;, - 0.078127;-0.974303; 0.211158;, - 0.073855;-0.990783; 0.113407;, - 0.048006;-0.980712; 0.189337;, - 0.483932;-0.872280; 0.069826;, - 0.076876;-0.990814; 0.111118;, - 0.078127;-0.974303; 0.211158;, - 0.073855;-0.990783; 0.113407;, - 0.003265;-0.998413;-0.055940;, - -0.054567;-0.996887;-0.056551;, - 0.002289;-0.999878;-0.014008;, - 0.002289;-0.999878;-0.014008;, - 0.001099;-0.999878;-0.013977;, - 0.003265;-0.998413;-0.055940;, - 0.001099;-0.999878;-0.013977;, - 0.002289;-0.999878;-0.014008;, - 0.001129;-0.999969;-0.000275;, - 0.446577;-0.767296;-0.460189;, - 0.003265;-0.998413;-0.055940;, - 0.001099;-0.999878;-0.013977;, - 0.002289;-0.999878;-0.014008;, - -0.054567;-0.996887;-0.056551;, - -0.055422;-0.998352;-0.014618;, - -0.055422;-0.998352;-0.014618;, - 0.002319;-0.999969;-0.000305;, - 0.002289;-0.999878;-0.014008;, - 0.002319;-0.999969;-0.000305;, - -0.055422;-0.998352;-0.014618;, - -0.056032;-0.998413;-0.000458;, - 0.001129;-0.999969;-0.000275;, - 0.002289;-0.999878;-0.014008;, - 0.002319;-0.999969;-0.000305;, - 0.000275;-0.922269; 0.386486;, - 0.000214;-0.922239; 0.386578;, - 0.000275;-0.959258; 0.282510;, - 0.000275;-0.959258; 0.282510;, - 0.001404;-0.959197; 0.282662;, - 0.000275;-0.922269; 0.386486;, - 0.001404;-0.959197; 0.282662;, - 0.000275;-0.959258; 0.282510;, - 0.001099;-0.988739; 0.149480;, - -0.042207;-0.919736; 0.390240;, - 0.000275;-0.922269; 0.386486;, - 0.001404;-0.959197; 0.282662;, - -0.047334;-0.954131; 0.295602;, - -0.042207;-0.919736; 0.390240;, - 0.001404;-0.959197; 0.282662;, - 0.001404;-0.959197; 0.282662;, - 0.002319;-0.988739; 0.149541;, - -0.047334;-0.954131; 0.295602;, - 0.002319;-0.988739; 0.149541;, - 0.001404;-0.959197; 0.282662;, - 0.001099;-0.988739; 0.149480;, - -0.058657;-0.986053; 0.155614;, - -0.047334;-0.954131; 0.295602;, - 0.002319;-0.988739; 0.149541;, - 0.000427;-0.922117; 0.386883;, - 0.000244;-0.922025; 0.387066;, - 0.000397;-0.958983; 0.283395;, - 0.000397;-0.958983; 0.283395;, - 0.000397;-0.959136; 0.282907;, - 0.000427;-0.922117; 0.386883;, - 0.000397;-0.959136; 0.282907;, - 0.000397;-0.958983; 0.283395;, - 0.000122;-0.988708; 0.149785;, - 0.000214;-0.922239; 0.386578;, - 0.000427;-0.922117; 0.386883;, - 0.000397;-0.959136; 0.282907;, - 0.000275;-0.959258; 0.282510;, - 0.000214;-0.922239; 0.386578;, - 0.000397;-0.959136; 0.282907;, - 0.000397;-0.959136; 0.282907;, - 0.000000;-0.988739; 0.149449;, - 0.000275;-0.959258; 0.282510;, - 0.000000;-0.988739; 0.149449;, - 0.000397;-0.959136; 0.282907;, - 0.000122;-0.988708; 0.149785;, - 0.001099;-0.988739; 0.149480;, - 0.000275;-0.959258; 0.282510;, - 0.000000;-0.988739; 0.149449;, - 0.000000;-0.874050; 0.485794;, - -0.031678;-0.627369; 0.778069;, - 0.007202;-0.645253; 0.763909;, - 0.007202;-0.645253; 0.763909;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.007202;-0.645253; 0.763909;, - 0.000366;-0.647755; 0.761803;, - 0.000214;-0.922239; 0.386578;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000427;-0.922117; 0.386883;, - 0.000214;-0.922239; 0.386578;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000427;-0.922117; 0.386883;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000366;-0.647755; 0.761803;, - 0.000244;-0.922025; 0.387066;, - 0.000427;-0.922117; 0.386883;, - 0.000000;-0.874050; 0.485794;, - 0.000275;-0.922269; 0.386486;, - -0.042207;-0.919736; 0.390240;, - -0.044557;-0.873165; 0.485336;, - -0.044557;-0.873165; 0.485336;, - 0.000000;-0.874050; 0.485794;, - 0.000275;-0.922269; 0.386486;, - 0.000000;-0.874050; 0.485794;, - -0.044557;-0.873165; 0.485336;, - -0.123508;-0.629261; 0.767296;, - 0.000214;-0.922239; 0.386578;, - 0.000275;-0.922269; 0.386486;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000214;-0.922239; 0.386578;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - -0.060091;-0.638447; 0.767296;, - 0.000000;-0.874050; 0.485794;, - -0.060091;-0.638447; 0.767296;, - 0.000000;-0.874050; 0.485794;, - -0.123508;-0.629261; 0.767296;, - -0.031678;-0.627369; 0.778069;, - 0.000000;-0.874050; 0.485794;, - -0.060091;-0.638447; 0.767296;, - 0.002319;-0.988739; 0.149541;, - 0.001099;-0.988739; 0.149480;, - 0.001129;-0.999908; 0.013459;, - 0.001129;-0.999908; 0.013459;, - 0.002319;-0.999878; 0.013459;, - 0.002319;-0.988739; 0.149541;, - 0.002319;-0.999878; 0.013459;, - 0.001129;-0.999908; 0.013459;, - 0.001129;-0.999969;-0.000275;, - -0.058657;-0.986053; 0.155614;, - 0.002319;-0.988739; 0.149541;, - 0.002319;-0.999878; 0.013459;, - -0.056032;-0.998321; 0.013398;, - -0.058657;-0.986053; 0.155614;, - 0.002319;-0.999878; 0.013459;, - 0.002319;-0.999878; 0.013459;, - 0.002319;-0.999969;-0.000305;, - -0.056032;-0.998321; 0.013398;, - 0.002319;-0.999969;-0.000305;, - 0.002319;-0.999878; 0.013459;, - 0.001129;-0.999969;-0.000275;, - -0.056032;-0.998413;-0.000458;, - -0.056032;-0.998321; 0.013398;, - 0.002319;-0.999969;-0.000305;, - 0.000000;-0.988739; 0.149449;, - 0.000122;-0.988708; 0.149785;, - 0.000000;-0.999878; 0.013581;, - 0.000000;-0.999878; 0.013581;, - -0.000031;-0.999878; 0.013520;, - 0.000000;-0.988739; 0.149449;, - -0.000031;-0.999878; 0.013520;, - 0.000000;-0.999878; 0.013581;, - 0.166692;-0.710776;-0.683340;, - 0.001099;-0.988739; 0.149480;, - 0.000000;-0.988739; 0.149449;, - -0.000031;-0.999878; 0.013520;, - 0.001129;-0.999908; 0.013459;, - 0.001099;-0.988739; 0.149480;, - -0.000031;-0.999878; 0.013520;, - -0.000031;-0.999878; 0.013520;, - -0.000031;-0.999969;-0.000244;, - 0.001129;-0.999908; 0.013459;, - -0.000031;-0.999969;-0.000244;, - -0.000031;-0.999878; 0.013520;, - 0.166692;-0.710776;-0.683340;, - 0.001129;-0.999969;-0.000275;, - 0.001129;-0.999908; 0.013459;, - -0.000031;-0.999969;-0.000244;, - -0.103366;-0.990692;-0.088229;, - -0.051119;-0.994873;-0.087039;, - -0.050874;-0.994293;-0.093509;, - -0.050874;-0.994293;-0.093509;, - -0.107456;-0.989563;-0.095737;, - -0.103366;-0.990692;-0.088229;, - -0.107456;-0.989563;-0.095737;, - -0.050874;-0.994293;-0.093509;, - -0.055757;-0.996948;-0.054262;, - 0.579424;-0.779290;-0.238563;, - -0.103366;-0.990692;-0.088229;, - -0.107456;-0.989563;-0.095737;, - -0.053743;-0.993683;-0.098209;, - 0.579424;-0.779290;-0.238563;, - -0.107456;-0.989563;-0.095737;, - -0.107456;-0.989563;-0.095737;, - -0.112430;-0.992035;-0.056734;, - -0.053743;-0.993683;-0.098209;, - -0.112430;-0.992035;-0.056734;, - -0.107456;-0.989563;-0.095737;, - -0.055757;-0.996948;-0.054262;, - -0.054567;-0.996887;-0.056551;, - -0.053743;-0.993683;-0.098209;, - -0.112430;-0.992035;-0.056734;, - -0.057985;-0.998199;-0.013337;, - -0.057894;-0.998321;-0.000031;, - -0.114383;-0.993408; 0.000000;, - -0.114383;-0.993408; 0.000000;, - -0.113804;-0.993378;-0.014191;, - -0.057985;-0.998199;-0.013337;, - -0.113804;-0.993378;-0.014191;, - -0.114383;-0.993408; 0.000000;, - -0.056032;-0.998413;-0.000458;, - -0.055757;-0.996948;-0.054262;, - -0.057985;-0.998199;-0.013337;, - -0.113804;-0.993378;-0.014191;, - -0.112430;-0.992035;-0.056734;, - -0.055757;-0.996948;-0.054262;, - -0.113804;-0.993378;-0.014191;, - -0.113804;-0.993378;-0.014191;, - -0.055422;-0.998352;-0.014618;, - -0.112430;-0.992035;-0.056734;, - -0.055422;-0.998352;-0.014618;, - -0.113804;-0.993378;-0.014191;, - -0.056032;-0.998413;-0.000458;, - -0.054567;-0.996887;-0.056551;, - -0.112430;-0.992035;-0.056734;, - -0.055422;-0.998352;-0.014618;, - -0.002869;-0.994263;-0.106876;, - 0.012268;-0.994812;-0.100833;, - 0.012574;-0.990417;-0.137303;, - 0.012574;-0.990417;-0.137303;, - -0.000275;-0.993286;-0.115482;, - -0.002869;-0.994263;-0.106876;, - -0.000275;-0.993286;-0.115482;, - 0.012574;-0.990417;-0.137303;, - 0.011444;-0.997131;-0.074740;, - -0.051119;-0.994873;-0.087039;, - -0.002869;-0.994263;-0.106876;, - -0.000275;-0.993286;-0.115482;, - -0.050874;-0.994293;-0.093509;, - -0.051119;-0.994873;-0.087039;, - -0.000275;-0.993286;-0.115482;, - -0.000275;-0.993286;-0.115482;, - 0.000214;-0.998566;-0.053529;, - -0.050874;-0.994293;-0.093509;, - 0.000214;-0.998566;-0.053529;, - -0.000275;-0.993286;-0.115482;, - 0.011444;-0.997131;-0.074740;, - -0.055757;-0.996948;-0.054262;, - -0.050874;-0.994293;-0.093509;, - 0.000214;-0.998566;-0.053529;, - 0.004273;-0.762078; 0.647450;, - -0.003265;-0.745232; 0.666768;, - 0.018586;-0.983184; 0.181494;, - 0.018586;-0.983184; 0.181494;, - 0.021943;-0.986358; 0.162999;, - 0.004273;-0.762078; 0.647450;, - 0.021943;-0.986358; 0.162999;, - 0.018586;-0.983184; 0.181494;, - -0.197668;-0.771599;-0.604572;, - -0.006195;-0.748070; 0.663564;, - 0.004273;-0.762078; 0.647450;, - 0.021943;-0.986358; 0.162999;, - 0.018586;-0.983184; 0.181494;, - -0.003265;-0.745232; 0.666768;, - 0.000549;-0.979827; 0.199683;, - 0.000549;-0.979827; 0.199683;, - 0.014832;-0.993500; 0.112644;, - 0.018586;-0.983184; 0.181494;, - 0.014832;-0.993500; 0.112644;, - 0.000549;-0.979827; 0.199683;, - 0.005005;-0.995117; 0.098270;, - -0.197668;-0.771599;-0.604572;, - 0.018586;-0.983184; 0.181494;, - 0.014832;-0.993500; 0.112644;, - 0.000000;-0.874050; 0.485794;, - 0.000366;-0.647755; 0.761803;, - -0.007385;-0.644002; 0.764946;, - -0.007385;-0.644002; 0.764946;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - -0.007385;-0.644002; 0.764946;, - -0.007569;-0.644520; 0.764519;, - 0.000244;-0.922025; 0.387066;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000397;-0.921873; 0.387463;, - 0.000244;-0.922025; 0.387066;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485763;, - 0.000397;-0.921873; 0.387463;, - 0.000000;-0.874050; 0.485763;, - 0.000000;-0.874050; 0.485794;, - -0.007569;-0.644520; 0.764519;, - 0.000214;-0.921812; 0.387555;, - 0.000397;-0.921873; 0.387463;, - 0.000000;-0.874050; 0.485763;, - 0.000000;-0.874050; 0.485763;, - -0.007569;-0.644520; 0.764519;, - -0.007355;-0.644673; 0.764397;, - -0.007355;-0.644673; 0.764397;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485763;, - 0.000000;-0.874050; 0.485794;, - -0.007355;-0.644673; 0.764397;, - 0.027070;-0.640889; 0.767113;, - 0.000214;-0.921812; 0.387555;, - 0.000000;-0.874050; 0.485763;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.921873; 0.387432;, - 0.000214;-0.921812; 0.387555;, - 0.000000;-0.874050; 0.485794;, - 0.000000;-0.874050; 0.485794;, - 0.027741;-0.872585; 0.487594;, - 0.000000;-0.921873; 0.387432;, - 0.027741;-0.872585; 0.487594;, - 0.000000;-0.874050; 0.485794;, - 0.027070;-0.640889; 0.767113;, - 0.025880;-0.920377; 0.390149;, - 0.000000;-0.921873; 0.387432;, - 0.027741;-0.872585; 0.487594;, - 0.000397;-0.921873; 0.387463;, - 0.000214;-0.921812; 0.387555;, - 0.000366;-0.958678; 0.284463;, - 0.000366;-0.958678; 0.284463;, - 0.000397;-0.958800; 0.284036;, - 0.000397;-0.921873; 0.387463;, - 0.000397;-0.958800; 0.284036;, - 0.000366;-0.958678; 0.284463;, - 0.003113;-0.988739; 0.149602;, - 0.000244;-0.922025; 0.387066;, - 0.000397;-0.921873; 0.387463;, - 0.000397;-0.958800; 0.284036;, - 0.000397;-0.958983; 0.283395;, - 0.000244;-0.922025; 0.387066;, - 0.000397;-0.958800; 0.284036;, - 0.000397;-0.958800; 0.284036;, - 0.000000;-0.988678; 0.149968;, - 0.000397;-0.958983; 0.283395;, - 0.000000;-0.988678; 0.149968;, - 0.000397;-0.958800; 0.284036;, - 0.003113;-0.988739; 0.149602;, - 0.000122;-0.988708; 0.149785;, - 0.000397;-0.958983; 0.283395;, - 0.000000;-0.988678; 0.149968;, - 0.042299;-0.999023; 0.011902;, - 0.041383;-0.999115;-0.003845;, - 0.010590;-0.999908;-0.007569;, - 0.010590;-0.999908;-0.007569;, - 0.008911;-0.999878; 0.011841;, - 0.042299;-0.999023; 0.011902;, - 0.008911;-0.999878; 0.011841;, - 0.010590;-0.999908;-0.007569;, - -0.164312;-0.707236;-0.687582;, - 0.038942;-0.988220; 0.147862;, - 0.042299;-0.999023; 0.011902;, - 0.008911;-0.999878; 0.011841;, - 0.007477;-0.988922; 0.148198;, - 0.038942;-0.988220; 0.147862;, - 0.008911;-0.999878; 0.011841;, - 0.008911;-0.999878; 0.011841;, - 0.003784;-0.999878; 0.013703;, - 0.007477;-0.988922; 0.148198;, - 0.003784;-0.999878; 0.013703;, - 0.008911;-0.999878; 0.011841;, - -0.164312;-0.707236;-0.687582;, - 0.003113;-0.988739; 0.149602;, - 0.007477;-0.988922; 0.148198;, - 0.003784;-0.999878; 0.013703;, - -0.112400;-0.980621; 0.160375;, - -0.051607;-0.987243; 0.150456;, - -0.055361;-0.956298; 0.286996;, - -0.055361;-0.956298; 0.286996;, - -0.102664;-0.946471; 0.305918;, - -0.112400;-0.980621; 0.160375;, - -0.102664;-0.946471; 0.305918;, - -0.055361;-0.956298; 0.286996;, - -0.099185;-0.731071; 0.675039;, - -0.058657;-0.986053; 0.155614;, - -0.112400;-0.980621; 0.160375;, - -0.102664;-0.946471; 0.305918;, - -0.047334;-0.954131; 0.295602;, - -0.058657;-0.986053; 0.155614;, - -0.102664;-0.946471; 0.305918;, - -0.102664;-0.946471; 0.305918;, - -0.093387;-0.912778; 0.397565;, - -0.047334;-0.954131; 0.295602;, - -0.093387;-0.912778; 0.397565;, - -0.102664;-0.946471; 0.305918;, - -0.099185;-0.731071; 0.675039;, - -0.042207;-0.919736; 0.390240;, - -0.047334;-0.954131; 0.295602;, - -0.093387;-0.912778; 0.397565;, - -0.057649;-0.998230; 0.013062;, - -0.051607;-0.987243; 0.150456;, - -0.112400;-0.980621; 0.160375;, - -0.112400;-0.980621; 0.160375;, - -0.114048;-0.993378; 0.013153;, - -0.057649;-0.998230; 0.013062;, - -0.114048;-0.993378; 0.013153;, - -0.112400;-0.980621; 0.160375;, - -0.058657;-0.986053; 0.155614;, - -0.057894;-0.998321;-0.000031;, - -0.057649;-0.998230; 0.013062;, - -0.114048;-0.993378; 0.013153;, - -0.114383;-0.993408; 0.000000;, - -0.057894;-0.998321;-0.000031;, - -0.114048;-0.993378; 0.013153;, - -0.114048;-0.993378; 0.013153;, - -0.056032;-0.998321; 0.013398;, - -0.114383;-0.993408; 0.000000;, - -0.056032;-0.998321; 0.013398;, - -0.114048;-0.993378; 0.013153;, - -0.058657;-0.986053; 0.155614;, - -0.056032;-0.998413;-0.000458;, - -0.114383;-0.993408; 0.000000;, - -0.056032;-0.998321; 0.013398;, - 0.000366;-0.958678; 0.284463;, - 0.000214;-0.921812; 0.387555;, - 0.000000;-0.921873; 0.387432;, - 0.000000;-0.921873; 0.387432;, - 0.003601;-0.959349; 0.282144;, - 0.000366;-0.958678; 0.284463;, - 0.003601;-0.959349; 0.282144;, - 0.000000;-0.921873; 0.387432;, - 0.025880;-0.920377; 0.390149;, - 0.003113;-0.988739; 0.149602;, - 0.000366;-0.958678; 0.284463;, - 0.003601;-0.959349; 0.282144;, - 0.007477;-0.988922; 0.148198;, - 0.003113;-0.988739; 0.149602;, - 0.003601;-0.959349; 0.282144;, - 0.003601;-0.959349; 0.282144;, - 0.028687;-0.957762; 0.286111;, - 0.007477;-0.988922; 0.148198;, - 0.028687;-0.957762; 0.286111;, - 0.003601;-0.959349; 0.282144;, - 0.025880;-0.920377; 0.390149;, - 0.038942;-0.988220; 0.147862;, - 0.007477;-0.988922; 0.148198;, - 0.028687;-0.957762; 0.286111;, - 0.003784;-0.999878; 0.013703;, - -0.164312;-0.707236;-0.687582;, - -0.000336;-0.645802;-0.763482;, - -0.000336;-0.645802;-0.763482;, - 0.000000;-0.999878; 0.013581;, - 0.003784;-0.999878; 0.013703;, - 0.000000;-0.999878; 0.013581;, - -0.000336;-0.645802;-0.763482;, - 0.166692;-0.710776;-0.683340;, - 0.003113;-0.988739; 0.149602;, - 0.003784;-0.999878; 0.013703;, - 0.000000;-0.999878; 0.013581;, - 0.000000;-0.988678; 0.149968;, - 0.003113;-0.988739; 0.149602;, - 0.000000;-0.999878; 0.013581;, - 0.000000;-0.999878; 0.013581;, - 0.000000;-0.999878; 0.013581;, - 0.000000;-0.988678; 0.149968;, - 0.000000;-0.999878; 0.013581;, - 0.000000;-0.999878; 0.013581;, - 0.166692;-0.710776;-0.683340;, - 0.000122;-0.988708; 0.149785;, - 0.000000;-0.988678; 0.149968;, - 0.000000;-0.999878; 0.013581;, - 0.059328;-0.879269; 0.472579;, - 0.064791;-0.661031; 0.747520;, - 0.077242;-0.667837; 0.740257;, - 0.077242;-0.667837; 0.740257;, - 0.062532;-0.880306; 0.470229;, - 0.059328;-0.879269; 0.472579;, - 0.062532;-0.880306; 0.470229;, - 0.077242;-0.667837; 0.740257;, - 0.213935;-0.654836; 0.724815;, - 0.061586;-0.934996; 0.349193;, - 0.059328;-0.879269; 0.472579;, - 0.062532;-0.880306; 0.470229;, - 0.043855;-0.945982; 0.321207;, - 0.061586;-0.934996; 0.349193;, - 0.062532;-0.880306; 0.470229;, - 0.062532;-0.880306; 0.470229;, - 0.303568;-0.739921; 0.600269;, - 0.043855;-0.945982; 0.321207;, - 0.303568;-0.739921; 0.600269;, - 0.062532;-0.880306; 0.470229;, - 0.213935;-0.654836; 0.724815;, - 0.527543;-0.801996; 0.280068;, - 0.043855;-0.945982; 0.321207;, - 0.303568;-0.739921; 0.600269;, - 0.059328;-0.879269; 0.472579;, - 0.061586;-0.934996; 0.349193;, - 0.053743;-0.921690; 0.384136;, - 0.053743;-0.921690; 0.384136;, - 0.056185;-0.875027; 0.480758;, - 0.059328;-0.879269; 0.472579;, - 0.056185;-0.875027; 0.480758;, - 0.053743;-0.921690; 0.384136;, - 0.025880;-0.920377; 0.390149;, - 0.064791;-0.661031; 0.747520;, - 0.059328;-0.879269; 0.472579;, - 0.056185;-0.875027; 0.480758;, - 0.062105;-0.640370; 0.765526;, - 0.064791;-0.661031; 0.747520;, - 0.056185;-0.875027; 0.480758;, - 0.056185;-0.875027; 0.480758;, - 0.027741;-0.872585; 0.487594;, - 0.062105;-0.640370; 0.765526;, - 0.027741;-0.872585; 0.487594;, - 0.056185;-0.875027; 0.480758;, - 0.025880;-0.920377; 0.390149;, - 0.027070;-0.640889; 0.767113;, - 0.062105;-0.640370; 0.765526;, - 0.027741;-0.872585; 0.487594;, - -0.006195;-0.994232; 0.106845;, - 0.005005;-0.995117; 0.098270;, - 0.000549;-0.979827; 0.199683;, - 0.000549;-0.979827; 0.199683;, - -0.006592;-0.972106; 0.234382;, - -0.006195;-0.994232; 0.106845;, - -0.006592;-0.972106; 0.234382;, - 0.000549;-0.979827; 0.199683;, - -0.003265;-0.745232; 0.666768;, - -0.051607;-0.987243; 0.150456;, - -0.006195;-0.994232; 0.106845;, - -0.006592;-0.972106; 0.234382;, - -0.055361;-0.956298; 0.286996;, - -0.051607;-0.987243; 0.150456;, - -0.006592;-0.972106; 0.234382;, - -0.006592;-0.972106; 0.234382;, - -0.000122;-0.725669; 0.688009;, - -0.055361;-0.956298; 0.286996;, - -0.000122;-0.725669; 0.688009;, - -0.006592;-0.972106; 0.234382;, - -0.003265;-0.745232; 0.666768;, - -0.099185;-0.731071; 0.675039;, - -0.055361;-0.956298; 0.286996;, - -0.000122;-0.725669; 0.688009;, - -0.036287;-0.988037; 0.149754;, - -0.055422;-0.754234; 0.654225;, - 0.010987;-0.987976; 0.154027;, - 0.010987;-0.987976; 0.154027;, - -0.016846;-0.694143;-0.719626;, - -0.036287;-0.988037; 0.149754;, - -0.016846;-0.694143;-0.719626;, - 0.010987;-0.987976; 0.154027;, - -0.197668;-0.771599;-0.604572;, - 0.119907;-0.759392;-0.639454;, - -0.036287;-0.988037; 0.149754;, - -0.016846;-0.694143;-0.719626;, - 0.010987;-0.987976; 0.154027;, - -0.055422;-0.754234; 0.654225;, - -0.012085;-0.749168; 0.662221;, - -0.012085;-0.749168; 0.662221;, - 0.021943;-0.986358; 0.162999;, - 0.010987;-0.987976; 0.154027;, - 0.021943;-0.986358; 0.162999;, - -0.012085;-0.749168; 0.662221;, - -0.006195;-0.748070; 0.663564;, - -0.197668;-0.771599;-0.604572;, - 0.010987;-0.987976; 0.154027;, - 0.021943;-0.986358; 0.162999;, - -0.073733;-0.845485; 0.528825;, - -0.196875;-0.583392; 0.787927;, - -0.593036;-0.789544; 0.157750;, - -0.593036;-0.789544; 0.157750;, - -0.147801;-0.988952;-0.009766;, - -0.073733;-0.845485; 0.528825;, - -0.147801;-0.988952;-0.009766;, - -0.593036;-0.789544; 0.157750;, - -0.593310;-0.774499; 0.219306;, - 0.685598;-0.706992;-0.173376;, - -0.073733;-0.845485; 0.528825;, - -0.147801;-0.988952;-0.009766;, - 0.632679;-0.672597;-0.383801;, - 0.685598;-0.706992;-0.173376;, - -0.147801;-0.988952;-0.009766;, - -0.147801;-0.988952;-0.009766;, - -0.150548;-0.988556; 0.006165;, - 0.632679;-0.672597;-0.383801;, - -0.150548;-0.988556; 0.006165;, - -0.147801;-0.988952;-0.009766;, - -0.593310;-0.774499; 0.219306;, - 0.427992;-0.767754;-0.476821;, - 0.632679;-0.672597;-0.383801;, - -0.150548;-0.988556; 0.006165;, - 0.078616;-0.605823; 0.791681;, - 0.704062;-0.468490; 0.533616;, - 0.564806;-0.172277; 0.807001;, - 0.564806;-0.172277; 0.807001;, - 0.086856;-0.118931; 0.989074;, - 0.078616;-0.605823; 0.791681;, - 0.086856;-0.118931; 0.989074;, - 0.564806;-0.172277; 0.807001;, - 0.419294;-0.318461; 0.850154;, - -0.174139;-0.211310; 0.961760;, - 0.078616;-0.605823; 0.791681;, - 0.086856;-0.118931; 0.989074;, - -0.008972;-0.054903; 0.998444;, - -0.174139;-0.211310; 0.961760;, - 0.086856;-0.118931; 0.989074;, - 0.086856;-0.118931; 0.989074;, - 0.074831;-0.255837; 0.963805;, - -0.008972;-0.054903; 0.998444;, - 0.074831;-0.255837; 0.963805;, - 0.086856;-0.118931; 0.989074;, - 0.419294;-0.318461; 0.850154;, - 0.049501;-0.208106; 0.976836;, - -0.008972;-0.054903; 0.998444;, - 0.074831;-0.255837; 0.963805;, - -0.008972;-0.054903; 0.998444;, - 0.049501;-0.208106; 0.976836;, - -0.024812; 0.003204; 0.999664;, - -0.024812; 0.003204; 0.999664;, - -0.100436; 0.009552; 0.994873;, - -0.008972;-0.054903; 0.998444;, - -0.100436; 0.009552; 0.994873;, - -0.024812; 0.003204; 0.999664;, - -0.032838; 0.002045; 0.999451;, - -0.174139;-0.211310; 0.961760;, - -0.008972;-0.054903; 0.998444;, - -0.100436; 0.009552; 0.994873;, - -0.556413; 0.036531; 0.830073;, - -0.174139;-0.211310; 0.961760;, - -0.100436; 0.009552; 0.994873;, - -0.100436; 0.009552; 0.994873;, - -0.105716; 0.005280; 0.994354;, - -0.556413; 0.036531; 0.830073;, - -0.105716; 0.005280; 0.994354;, - -0.100436; 0.009552; 0.994873;, - -0.032838; 0.002045; 0.999451;, - -0.566973; 0.025208; 0.823328;, - -0.556413; 0.036531; 0.830073;, - -0.105716; 0.005280; 0.994354;, - 0.517960;-0.824122;-0.229194;, - 0.956359;-0.035707; 0.289895;, - 0.031251;-0.997314; 0.066103;, - 0.031251;-0.997314; 0.066103;, - 0.431135;-0.018159; 0.902097;, - 0.956359;-0.035707; 0.289895;, - 0.031251;-0.997314; 0.066103;, - 0.431135;-0.018159; 0.902097;, - 0.668752;-0.094241; 0.737480;, - 0.947417;-0.049471; 0.316141;, - 0.956359;-0.035707; 0.289895;, - 0.431135;-0.018159; 0.902097;, - 0.429121;-0.026704; 0.902829;, - 0.947417;-0.049471; 0.316141;, - 0.431135;-0.018159; 0.902097;, - 0.431135;-0.018159; 0.902097;, - 0.576342;-0.026673; 0.816736;, - 0.429121;-0.026704; 0.902829;, - 0.576342;-0.026673; 0.816736;, - 0.431135;-0.018159; 0.902097;, - 0.668752;-0.094241; 0.737480;, - 0.575274;-0.067995; 0.815119;, - 0.429121;-0.026704; 0.902829;, - 0.576342;-0.026673; 0.816736;, - -0.032228;-0.026429; 0.999115;, - -0.078860;-0.655232; 0.751274;, - -0.000153;-0.999969;-0.002472;, - -0.000214;-0.999969;-0.002747;, - -0.000153;-0.999969;-0.002472;, - -0.078860;-0.655232; 0.751274;, - -0.000153;-0.999969;-0.002472;, - -0.000214;-0.999969;-0.002747;, - 0.668752;-0.094241; 0.737480;, - -0.078860;-0.655232; 0.751274;, - -0.540971;-0.794244; 0.276559;, - -0.000214;-0.999969;-0.002747;, - -0.540971;-0.794244; 0.276559;, - -0.000122;-0.999969;-0.001526;, - -0.000214;-0.999969;-0.002747;, - 0.031251;-0.997314; 0.066103;, - -0.000214;-0.999969;-0.002747;, - -0.000122;-0.999969;-0.001526;, - -0.000214;-0.999969;-0.002747;, - 0.031251;-0.997314; 0.066103;, - 0.668752;-0.094241; 0.737480;, - -0.000122;-0.999969;-0.001526;, - 0.517960;-0.824122;-0.229194;, - 0.031251;-0.997314; 0.066103;, - -0.105716; 0.005280; 0.994354;, - -0.032838; 0.002045; 0.999451;, - -0.030671; 0.001038; 0.999512;, - -0.030671; 0.001038; 0.999512;, - -0.104007; 0.003540; 0.994537;, - -0.105716; 0.005280; 0.994354;, - -0.104007; 0.003540; 0.994537;, - -0.030671; 0.001038; 0.999512;, - -0.032228;-0.026429; 0.999115;, - -0.566973; 0.025208; 0.823328;, - -0.105716; 0.005280; 0.994354;, - -0.104007; 0.003540; 0.994537;, - -0.608295; 0.020692; 0.793420;, - -0.566973; 0.025208; 0.823328;, - -0.104007; 0.003540; 0.994537;, - -0.104007; 0.003540; 0.994537;, - -0.078860;-0.655232; 0.751274;, - -0.608295; 0.020692; 0.793420;, - -0.078860;-0.655232; 0.751274;, - -0.104007; 0.003540; 0.994537;, - -0.032228;-0.026429; 0.999115;, - -0.608295; 0.020692; 0.793420;, - -0.540971;-0.794244; 0.276559;, - -0.078860;-0.655232; 0.751274;, - 0.945006;-0.075167; 0.318278;, - 0.947417;-0.049471; 0.316141;, - 0.429121;-0.026704; 0.902829;, - 0.429121;-0.026704; 0.902829;, - 0.694021;-0.115848; 0.710532;, - 0.945006;-0.075167; 0.318278;, - 0.694021;-0.115848; 0.710532;, - 0.429121;-0.026704; 0.902829;, - 0.575274;-0.067995; 0.815119;, - 0.704062;-0.468490; 0.533616;, - 0.945006;-0.075167; 0.318278;, - 0.694021;-0.115848; 0.710532;, - 0.564806;-0.172277; 0.807001;, - 0.704062;-0.468490; 0.533616;, - 0.694021;-0.115848; 0.710532;, - 0.694021;-0.115848; 0.710532;, - 0.817072;-0.169530; 0.551042;, - 0.564806;-0.172277; 0.807001;, - 0.817072;-0.169530; 0.551042;, - 0.694021;-0.115848; 0.710532;, - 0.575274;-0.067995; 0.815119;, - 0.419294;-0.318461; 0.850154;, - 0.564806;-0.172277; 0.807001;, - 0.817072;-0.169530; 0.551042;, - 0.870388;-0.113163; 0.479141;, - 0.869808;-0.070620; 0.488235;, - 0.889706;-0.043001;-0.454482;, - 0.889706;-0.043001;-0.454482;, - 0.883358;-0.061251;-0.464644;, - 0.870388;-0.113163; 0.479141;, - 0.883358;-0.061251;-0.464644;, - 0.889706;-0.043001;-0.454482;, - 0.947417;-0.049471; 0.316141;, - 0.750053;-0.504959; 0.427107;, - 0.870388;-0.113163; 0.479141;, - 0.883358;-0.061251;-0.464644;, - 0.673757;-0.735130;-0.074984;, - 0.750053;-0.504959; 0.427107;, - 0.883358;-0.061251;-0.464644;, - 0.883358;-0.061251;-0.464644;, - 0.945006;-0.075167; 0.318278;, - 0.673757;-0.735130;-0.074984;, - 0.945006;-0.075167; 0.318278;, - 0.883358;-0.061251;-0.464644;, - 0.947417;-0.049471; 0.316141;, - 0.704062;-0.468490; 0.533616;, - 0.673757;-0.735130;-0.074984;, - 0.945006;-0.075167; 0.318278;, - -0.480819; 0.016968; 0.876614;, - -0.470809;-0.003723; 0.882199;, - -0.889096; 0.030793; 0.456648;, - -0.889096; 0.030793; 0.456648;, - -0.882534;-0.121311; 0.454299;, - -0.480819; 0.016968; 0.876614;, - -0.882534;-0.121311; 0.454299;, - -0.889096; 0.030793; 0.456648;, - -0.540971;-0.794244; 0.276559;, - -0.753502; 0.530595; 0.388165;, - -0.480819; 0.016968; 0.876614;, - -0.882534;-0.121311; 0.454299;, - -0.889096; 0.030793; 0.456648;, - -0.470809;-0.003723; 0.882199;, - -0.889798; 0.036103; 0.454848;, - -0.889798; 0.036103; 0.454848;, - -0.608295; 0.020692; 0.793420;, - -0.889096; 0.030793; 0.456648;, - -0.608295; 0.020692; 0.793420;, - -0.889798; 0.036103; 0.454848;, - -0.566973; 0.025208; 0.823328;, - -0.540971;-0.794244; 0.276559;, - -0.889096; 0.030793; 0.456648;, - -0.608295; 0.020692; 0.793420;, - -0.540971;-0.794244; 0.276559;, - -0.882534;-0.121311; 0.454299;, - -0.000122;-0.999969;-0.001526;, - 0.000000;-1.000000;-0.000061;, - -0.000122;-0.999969;-0.001526;, - -0.882534;-0.121311; 0.454299;, - -0.000122;-0.999969;-0.001526;, - 0.000000;-1.000000;-0.000061;, - 0.517960;-0.824122;-0.229194;, - -0.753502; 0.530595; 0.388165;, - -0.882534;-0.121311; 0.454299;, - 0.000000;-1.000000;-0.000061;, - 0.093539; 0.632801; 0.768639;, - -0.753502; 0.530595; 0.388165;, - 0.000000;-1.000000;-0.000061;, - 0.831782;-0.403424;-0.381237;, - 0.000000;-1.000000;-0.000061;, - 0.093539; 0.632801; 0.768639;, - 0.000000;-1.000000;-0.000061;, - 0.831782;-0.403424;-0.381237;, - 0.517960;-0.824122;-0.229194;, - 0.838160; 0.318033; 0.443037;, - 0.093539; 0.632801; 0.768639;, - 0.831782;-0.403424;-0.381237;, - 0.831782;-0.403424;-0.381237;, - 0.517960;-0.824122;-0.229194;, - 0.893033;-0.014313;-0.449751;, - 0.893033;-0.014313;-0.449751;, - 0.880520;-0.008515; 0.473861;, - 0.831782;-0.403424;-0.381237;, - 0.880520;-0.008515; 0.473861;, - 0.893033;-0.014313;-0.449751;, - 0.869808;-0.070620; 0.488235;, - 0.838160; 0.318033; 0.443037;, - 0.831782;-0.403424;-0.381237;, - 0.880520;-0.008515; 0.473861;, - 0.893033;-0.014313;-0.449751;, - 0.517960;-0.824122;-0.229194;, - 0.956359;-0.035707; 0.289895;, - 0.956359;-0.035707; 0.289895;, - 0.889706;-0.043001;-0.454482;, - 0.893033;-0.014313;-0.449751;, - 0.889706;-0.043001;-0.454482;, - 0.956359;-0.035707; 0.289895;, - 0.947417;-0.049471; 0.316141;, - 0.869808;-0.070620; 0.488235;, - 0.893033;-0.014313;-0.449751;, - 0.889706;-0.043001;-0.454482;, - -0.568743;-0.587817; 0.575304;, - -0.174139;-0.211310; 0.961760;, - -0.556413; 0.036531; 0.830073;, - -0.556413; 0.036531; 0.830073;, - -0.883999; 0.049837; 0.464766;, - -0.568743;-0.587817; 0.575304;, - -0.883999; 0.049837; 0.464766;, - -0.556413; 0.036531; 0.830073;, - -0.566973; 0.025208; 0.823328;, - -0.394086;-0.458327; 0.796625;, - -0.568743;-0.587817; 0.575304;, - -0.883999; 0.049837; 0.464766;, - -0.480819;-0.019440; 0.876583;, - -0.394086;-0.458327; 0.796625;, - -0.883999; 0.049837; 0.464766;, - -0.883999; 0.049837; 0.464766;, - -0.889798; 0.036103; 0.454848;, - -0.480819;-0.019440; 0.876583;, - -0.889798; 0.036103; 0.454848;, - -0.883999; 0.049837; 0.464766;, - -0.566973; 0.025208; 0.823328;, - -0.470809;-0.003723; 0.882199;, - -0.480819;-0.019440; 0.876583;, - -0.889798; 0.036103; 0.454848;, - 0.078341;-0.588672; 0.804529;, - 0.750053;-0.504959; 0.427107;, - 0.673757;-0.735130;-0.074984;, - 0.673757;-0.735130;-0.074984;, - 0.036836;-0.926389; 0.374706;, - 0.078341;-0.588672; 0.804529;, - 0.036836;-0.926389; 0.374706;, - 0.673757;-0.735130;-0.074984;, - 0.704062;-0.468490; 0.533616;, - -0.394086;-0.458327; 0.796625;, - 0.078341;-0.588672; 0.804529;, - 0.036836;-0.926389; 0.374706;, - -0.568743;-0.587817; 0.575304;, - -0.394086;-0.458327; 0.796625;, - 0.036836;-0.926389; 0.374706;, - 0.036836;-0.926389; 0.374706;, - 0.078616;-0.605823; 0.791681;, - -0.568743;-0.587817; 0.575304;, - 0.078616;-0.605823; 0.791681;, - 0.036836;-0.926389; 0.374706;, - 0.704062;-0.468490; 0.533616;, - -0.174139;-0.211310; 0.961760;, - -0.568743;-0.587817; 0.575304;, - 0.078616;-0.605823; 0.791681;, - 0.870388;-0.113163; 0.479141;, - 0.750053;-0.504959; 0.427107;, - 0.093966;-0.074435; 0.992767;, - 0.093966;-0.074435; 0.992767;, - 0.091464;-0.039033; 0.995025;, - 0.870388;-0.113163; 0.479141;, - 0.091464;-0.039033; 0.995025;, - 0.093966;-0.074435; 0.992767;, - -0.470809;-0.003723; 0.882199;, - 0.869808;-0.070620; 0.488235;, - 0.870388;-0.113163; 0.479141;, - 0.091464;-0.039033; 0.995025;, - 0.093966;-0.074435; 0.992767;, - 0.750053;-0.504959; 0.427107;, - 0.078341;-0.588672; 0.804529;, - 0.078341;-0.588672; 0.804529;, - -0.480819;-0.019440; 0.876583;, - 0.093966;-0.074435; 0.992767;, - -0.480819;-0.019440; 0.876583;, - 0.078341;-0.588672; 0.804529;, - -0.394086;-0.458327; 0.796625;, - -0.470809;-0.003723; 0.882199;, - 0.093966;-0.074435; 0.992767;, - -0.480819;-0.019440; 0.876583;, - 0.093539; 0.632801; 0.768639;, - 0.838160; 0.318033; 0.443037;, - 0.880520;-0.008515; 0.473861;, - 0.880520;-0.008515; 0.473861;, - 0.090854;-0.003327; 0.995849;, - 0.093539; 0.632801; 0.768639;, - 0.090854;-0.003327; 0.995849;, - 0.880520;-0.008515; 0.473861;, - 0.869808;-0.070620; 0.488235;, - -0.753502; 0.530595; 0.388165;, - 0.093539; 0.632801; 0.768639;, - 0.090854;-0.003327; 0.995849;, - -0.480819; 0.016968; 0.876614;, - -0.753502; 0.530595; 0.388165;, - 0.090854;-0.003327; 0.995849;, - 0.090854;-0.003327; 0.995849;, - 0.091464;-0.039033; 0.995025;, - -0.480819; 0.016968; 0.876614;, - 0.091464;-0.039033; 0.995025;, - 0.090854;-0.003327; 0.995849;, - 0.869808;-0.070620; 0.488235;, - -0.470809;-0.003723; 0.882199;, - -0.480819; 0.016968; 0.876614;, - 0.091464;-0.039033; 0.995025;, - -0.657582;-0.717856;-0.228492;, - -0.447584;-0.537706;-0.714469;, - -0.487472;-0.388562;-0.781884;, - -0.487472;-0.388562;-0.781884;, - -0.850703;-0.456801;-0.260018;, - -0.657582;-0.717856;-0.228492;, - -0.850703;-0.456801;-0.260018;, - -0.487472;-0.388562;-0.781884;, - -0.577471;-0.271126;-0.770043;, - -0.795740;-0.605518; 0.009827;, - -0.657582;-0.717856;-0.228492;, - -0.850703;-0.456801;-0.260018;, - -0.883999;-0.446913; 0.136967;, - -0.795740;-0.605518; 0.009827;, - -0.850703;-0.456801;-0.260018;, - -0.850703;-0.456801;-0.260018;, - -0.920865;-0.289193;-0.261452;, - -0.883999;-0.446913; 0.136967;, - -0.920865;-0.289193;-0.261452;, - -0.850703;-0.456801;-0.260018;, - -0.577471;-0.271126;-0.770043;, - -0.918851;-0.348918; 0.184179;, - -0.883999;-0.446913; 0.136967;, - -0.920865;-0.289193;-0.261452;, - -0.883999;-0.446913; 0.136967;, - -0.918851;-0.348918; 0.184179;, - -0.762810;-0.343272; 0.547929;, - -0.762810;-0.343272; 0.547929;, - -0.780694;-0.425031; 0.458052;, - -0.883999;-0.446913; 0.136967;, - -0.780694;-0.425031; 0.458052;, - -0.762810;-0.343272; 0.547929;, - -0.398816;-0.252052; 0.881680;, - -0.795740;-0.605518; 0.009827;, - -0.883999;-0.446913; 0.136967;, - -0.780694;-0.425031; 0.458052;, - -0.726737;-0.675710; 0.123478;, - -0.795740;-0.605518; 0.009827;, - -0.780694;-0.425031; 0.458052;, - -0.780694;-0.425031; 0.458052;, - -0.435347;-0.336375; 0.835017;, - -0.726737;-0.675710; 0.123478;, - -0.435347;-0.336375; 0.835017;, - -0.780694;-0.425031; 0.458052;, - -0.398816;-0.252052; 0.881680;, - -0.294900;-0.770867; 0.564592;, - -0.726737;-0.675710; 0.123478;, - -0.435347;-0.336375; 0.835017;, - -0.435347;-0.336375; 0.835017;, - -0.398816;-0.252052; 0.881680;, - 0.117435;-0.136753; 0.983612;, - 0.117435;-0.136753; 0.983612;, - 0.180395;-0.301157; 0.936338;, - -0.435347;-0.336375; 0.835017;, - 0.180395;-0.301157; 0.936338;, - 0.117435;-0.136753; 0.983612;, - -0.196875;-0.583392; 0.787927;, - -0.294900;-0.770867; 0.564592;, - -0.435347;-0.336375; 0.835017;, - 0.180395;-0.301157; 0.936338;, - 0.176580;-0.848231; 0.499252;, - -0.294900;-0.770867; 0.564592;, - 0.180395;-0.301157; 0.936338;, - 0.180395;-0.301157; 0.936338;, - 0.135838;-0.432447; 0.891354;, - 0.176580;-0.848231; 0.499252;, - 0.135838;-0.432447; 0.891354;, - 0.180395;-0.301157; 0.936338;, - -0.196875;-0.583392; 0.787927;, - 0.063448;-0.862300; 0.502365;, - 0.176580;-0.848231; 0.499252;, - 0.135838;-0.432447; 0.891354;, - -0.157201;-0.728202;-0.667074;, - -0.026551;-0.761284;-0.647847;, - 0.009980;-0.114505;-0.993347;, - 0.009980;-0.114505;-0.993347;, - -0.018097;-0.109470;-0.993805;, - -0.157201;-0.728202;-0.667074;, - -0.018097;-0.109470;-0.993805;, - 0.009980;-0.114505;-0.993347;, - 0.007172;-0.073366;-0.997253;, - -0.231758;-0.687826;-0.687857;, - -0.157201;-0.728202;-0.667074;, - -0.018097;-0.109470;-0.993805;, - -0.022370;-0.071200;-0.997192;, - -0.231758;-0.687826;-0.687857;, - -0.018097;-0.109470;-0.993805;, - -0.018097;-0.109470;-0.993805;, - 0.000122;-0.033143;-0.999420;, - -0.022370;-0.071200;-0.997192;, - 0.000122;-0.033143;-0.999420;, - -0.018097;-0.109470;-0.993805;, - 0.007172;-0.073366;-0.997253;, - 0.005493;-0.032044;-0.999451;, - -0.022370;-0.071200;-0.997192;, - 0.000122;-0.033143;-0.999420;, - -0.328837;-0.583361;-0.742637;, - -0.231758;-0.687826;-0.687857;, - -0.022370;-0.071200;-0.997192;, - -0.022370;-0.071200;-0.997192;, - -0.012116;-0.075472;-0.997070;, - -0.328837;-0.583361;-0.742637;, - -0.012116;-0.075472;-0.997070;, - -0.022370;-0.071200;-0.997192;, - 0.005493;-0.032044;-0.999451;, - -0.447584;-0.537706;-0.714469;, - -0.328837;-0.583361;-0.742637;, - -0.012116;-0.075472;-0.997070;, - -0.487472;-0.388562;-0.781884;, - -0.447584;-0.537706;-0.714469;, - -0.012116;-0.075472;-0.997070;, - -0.012116;-0.075472;-0.997070;, - 0.010163;-0.036500;-0.999268;, - -0.487472;-0.388562;-0.781884;, - 0.010163;-0.036500;-0.999268;, - -0.012116;-0.075472;-0.997070;, - 0.005493;-0.032044;-0.999451;, - -0.577471;-0.271126;-0.770043;, - -0.487472;-0.388562;-0.781884;, - 0.010163;-0.036500;-0.999268;, - -0.328837;-0.583361;-0.742637;, - -0.447584;-0.537706;-0.714469;, - -0.657582;-0.717856;-0.228492;, - -0.657582;-0.717856;-0.228492;, - -0.493912;-0.850093;-0.182684;, - -0.328837;-0.583361;-0.742637;, - -0.493912;-0.850093;-0.182684;, - -0.657582;-0.717856;-0.228492;, - -0.795740;-0.605518; 0.009827;, - -0.231758;-0.687826;-0.687857;, - -0.328837;-0.583361;-0.742637;, - -0.493912;-0.850093;-0.182684;, - -0.235786;-0.964873;-0.115818;, - -0.231758;-0.687826;-0.687857;, - -0.493912;-0.850093;-0.182684;, - -0.493912;-0.850093;-0.182684;, - -0.726737;-0.675710; 0.123478;, - -0.235786;-0.964873;-0.115818;, - -0.726737;-0.675710; 0.123478;, - -0.493912;-0.850093;-0.182684;, - -0.795740;-0.605518; 0.009827;, - -0.294900;-0.770867; 0.564592;, - -0.235786;-0.964873;-0.115818;, - -0.726737;-0.675710; 0.123478;, - -0.235786;-0.964873;-0.115818;, - -0.294900;-0.770867; 0.564592;, - 0.176580;-0.848231; 0.499252;, - 0.176580;-0.848231; 0.499252;, - -0.089724;-0.995117;-0.040864;, - -0.235786;-0.964873;-0.115818;, - -0.089724;-0.995117;-0.040864;, - 0.176580;-0.848231; 0.499252;, - 0.063448;-0.862300; 0.502365;, - -0.231758;-0.687826;-0.687857;, - -0.235786;-0.964873;-0.115818;, - -0.089724;-0.995117;-0.040864;, - -0.157201;-0.728202;-0.667074;, - -0.231758;-0.687826;-0.687857;, - -0.089724;-0.995117;-0.040864;, - -0.089724;-0.995117;-0.040864;, - -0.127781;-0.991760; 0.006439;, - -0.157201;-0.728202;-0.667074;, - -0.127781;-0.991760; 0.006439;, - -0.089724;-0.995117;-0.040864;, - 0.063448;-0.862300; 0.502365;, - -0.026551;-0.761284;-0.647847;, - -0.157201;-0.728202;-0.667074;, - -0.127781;-0.991760; 0.006439;, - -0.127781;-0.991760; 0.006439;, - 0.063448;-0.862300; 0.502365;, - -0.007752;-0.833430; 0.552538;, - -0.007752;-0.833430; 0.552538;, - 0.036103;-0.999298;-0.007202;, - -0.127781;-0.991760; 0.006439;, - 0.036103;-0.999298;-0.007202;, - -0.007752;-0.833430; 0.552538;, - 0.685598;-0.706992;-0.173376;, - -0.026551;-0.761284;-0.647847;, - -0.127781;-0.991760; 0.006439;, - 0.036103;-0.999298;-0.007202;, - 0.095676;-0.705069;-0.702597;, - -0.026551;-0.761284;-0.647847;, - 0.036103;-0.999298;-0.007202;, - 0.036103;-0.999298;-0.007202;, - 0.805506;-0.586230;-0.086337;, - 0.095676;-0.705069;-0.702597;, - 0.805506;-0.586230;-0.086337;, - 0.036103;-0.999298;-0.007202;, - 0.685598;-0.706992;-0.173376;, - 0.660634;-0.467544;-0.587298;, - 0.095676;-0.705069;-0.702597;, - 0.805506;-0.586230;-0.086337;, - -0.572100;-0.027070; 0.819727;, - -0.569079;-0.037080; 0.821406;, - 0.003388; 0.005158; 0.999969;, - 0.003388; 0.005158; 0.999969;, - 0.003327;-0.002960; 0.999969;, - -0.572100;-0.027070; 0.819727;, - 0.003327;-0.002960; 0.999969;, - 0.003388; 0.005158; 0.999969;, - -0.421003;-0.043031; 0.906034;, - -0.562334;-0.000153; 0.826868;, - -0.572100;-0.027070; 0.819727;, - 0.003327;-0.002960; 0.999969;, - 0.003296;-0.000214; 0.999969;, - -0.562334;-0.000153; 0.826868;, - 0.003327;-0.002960; 0.999969;, - 0.003327;-0.002960; 0.999969;, - -0.408368;-0.022675; 0.912503;, - 0.003296;-0.000214; 0.999969;, - -0.408368;-0.022675; 0.912503;, - 0.003327;-0.002960; 0.999969;, - -0.421003;-0.043031; 0.906034;, - -0.413373; 0.001312; 0.910550;, - 0.003296;-0.000214; 0.999969;, - -0.408368;-0.022675; 0.912503;, - -0.853206;-0.244514; 0.460646;, - -0.887143;-0.261361; 0.380322;, - -0.914212;-0.138401; 0.380840;, - -0.914212;-0.138401; 0.380840;, - -0.881985;-0.139531; 0.450117;, - -0.853206;-0.244514; 0.460646;, - -0.881985;-0.139531; 0.450117;, - -0.914212;-0.138401; 0.380840;, - -0.915555;-0.119877; 0.383831;, - -0.765954;-0.189886; 0.614154;, - -0.853206;-0.244514; 0.460646;, - -0.881985;-0.139531; 0.450117;, - -0.733818;-0.121006; 0.668447;, - -0.765954;-0.189886; 0.614154;, - -0.881985;-0.139531; 0.450117;, - -0.881985;-0.139531; 0.450117;, - -0.886502;-0.117130; 0.447584;, - -0.733818;-0.121006; 0.668447;, - -0.886502;-0.117130; 0.447584;, - -0.881985;-0.139531; 0.450117;, - -0.915555;-0.119877; 0.383831;, - -0.740562;-0.101413; 0.664266;, - -0.733818;-0.121006; 0.668447;, - -0.886502;-0.117130; 0.447584;, - -0.919675;-0.257454; 0.296457;, - -0.536973;-0.181524; 0.823817;, - -0.938780;-0.148808; 0.310648;, - -0.938780;-0.148808; 0.310648;, - -0.914212;-0.138401; 0.380840;, - -0.919675;-0.257454; 0.296457;, - -0.914212;-0.138401; 0.380840;, - -0.938780;-0.148808; 0.310648;, - -0.915555;-0.119877; 0.383831;, - -0.887143;-0.261361; 0.380322;, - -0.919675;-0.257454; 0.296457;, - -0.914212;-0.138401; 0.380840;, - -0.938780;-0.148808; 0.310648;, - -0.536973;-0.181524; 0.823817;, - -0.576556;-0.100558; 0.810816;, - -0.576556;-0.100558; 0.810816;, - -0.939512;-0.128056; 0.317637;, - -0.938780;-0.148808; 0.310648;, - -0.939512;-0.128056; 0.317637;, - -0.576556;-0.100558; 0.810816;, - -0.583087;-0.077792; 0.808649;, - -0.915555;-0.119877; 0.383831;, - -0.938780;-0.148808; 0.310648;, - -0.939512;-0.128056; 0.317637;, - -0.013825;-0.004913; 0.999878;, - -0.442946;-0.102817; 0.890591;, - -0.441572;-0.065493; 0.894803;, - -0.441572;-0.065493; 0.894803;, - -0.012055; 0.005860; 0.999908;, - -0.013825;-0.004913; 0.999878;, - -0.012055; 0.005860; 0.999908;, - -0.441572;-0.065493; 0.894803;, - -0.421003;-0.043031; 0.906034;, - -0.583087;-0.077792; 0.808649;, - -0.013825;-0.004913; 0.999878;, - -0.012055; 0.005860; 0.999908;, - -0.579119;-0.054231; 0.813410;, - -0.583087;-0.077792; 0.808649;, - -0.012055; 0.005860; 0.999908;, - -0.012055; 0.005860; 0.999908;, - 0.003388; 0.005158; 0.999969;, - -0.579119;-0.054231; 0.813410;, - 0.003388; 0.005158; 0.999969;, - -0.012055; 0.005860; 0.999908;, - -0.421003;-0.043031; 0.906034;, - -0.569079;-0.037080; 0.821406;, - -0.579119;-0.054231; 0.813410;, - 0.003388; 0.005158; 0.999969;, - 0.315073;-0.678091;-0.663991;, - 0.427992;-0.767754;-0.476821;, - -0.078829;-0.988800; 0.126652;, - -0.078829;-0.988800; 0.126652;, - -0.085147;-0.987213; 0.134709;, - 0.315073;-0.678091;-0.663991;, - -0.085147;-0.987213; 0.134709;, - -0.078829;-0.988800; 0.126652;, - -0.250587;-0.735588; 0.629322;, - 0.119907;-0.759392;-0.639454;, - 0.315073;-0.678091;-0.663991;, - -0.085147;-0.987213; 0.134709;, - -0.078829;-0.988800; 0.126652;, - 0.427992;-0.767754;-0.476821;, - -0.106174;-0.990844; 0.083224;, - -0.106174;-0.990844; 0.083224;, - -0.376202;-0.805841; 0.457228;, - -0.078829;-0.988800; 0.126652;, - -0.376202;-0.805841; 0.457228;, - -0.106174;-0.990844; 0.083224;, - -0.502823;-0.776482; 0.379711;, - -0.250587;-0.735588; 0.629322;, - -0.078829;-0.988800; 0.126652;, - -0.376202;-0.805841; 0.457228;, - -0.162847; 0.986389; 0.022248;, - 0.419019; 0.761620;-0.494278;, - -0.121738; 0.991272; 0.050203;, - -0.121738; 0.991272; 0.050203;, - -0.472365; 0.797967; 0.374248;, - -0.162847; 0.986389; 0.022248;, - -0.472365; 0.797967; 0.374248;, - -0.121738; 0.991272; 0.050203;, - -0.289468; 0.751701; 0.592547;, - -0.544633; 0.763421; 0.347118;, - -0.162847; 0.986389; 0.022248;, - -0.472365; 0.797967; 0.374248;, - -0.121738; 0.991272; 0.050203;, - 0.419019; 0.761620;-0.494278;, - 0.321329; 0.663900;-0.675222;, - 0.321329; 0.663900;-0.675222;, - -0.060610; 0.991363; 0.116153;, - -0.121738; 0.991272; 0.050203;, - -0.060610; 0.991363; 0.116153;, - 0.321329; 0.663900;-0.675222;, - 0.132908; 0.754631;-0.642506;, - -0.289468; 0.751701; 0.592547;, - -0.121738; 0.991272; 0.050203;, - -0.060610; 0.991363; 0.116153;, - -0.041139;-0.009491; 0.999084;, - -0.018708;-0.003815; 0.999817;, - -0.019654;-0.050691; 0.998505;, - -0.036927;-0.115238; 0.992645;, - -0.421277;-0.197668; 0.885098;, - -0.423536;-0.130802; 0.896359;, - -0.034120; 0.099796; 0.994415;, - -0.018067; 0.101108; 0.994690;, - -0.012421; 0.050050; 0.998657;, - -0.041139;-0.009491; 0.999084;, - -0.458357;-0.005463; 0.888730;, - -0.447249; 0.062227; 0.892209;, - -0.458357;-0.005463; 0.888730;, - -0.041139;-0.009491; 0.999084;, - -0.019654;-0.050691; 0.998505;, - -0.014924;-0.105136; 0.994324;, - -0.014924;-0.105136; 0.994324;, - -0.382611;-0.059389; 0.921964;, - -0.458357;-0.005463; 0.888730;, - -0.014924;-0.105136; 0.994324;, - -0.384869;-0.079257; 0.919553;, - -0.382611;-0.059389; 0.921964;, - -0.014924;-0.105136; 0.994324;, - -0.036927;-0.115238; 0.992645;, - -0.423536;-0.130802; 0.896359;, - -0.384869;-0.079257; 0.919553;, - -0.416150; 0.187567; 0.889706;, - -0.034120; 0.099796; 0.994415;, - -0.012421; 0.050050; 0.998657;, - -0.018708;-0.003815; 0.999817;, - -0.018708;-0.003815; 0.999817;, - -0.340648; 0.121097; 0.932340;, - -0.416150; 0.187567; 0.889706;, - -0.018708;-0.003815; 0.999817;, - -0.361919; 0.093814; 0.927458;, - -0.340648; 0.121097; 0.932340;, - -0.018708;-0.003815; 0.999817;, - -0.041139;-0.009491; 0.999084;, - -0.447249; 0.062227; 0.892209;, - -0.361919; 0.093814; 0.927458;, - 0.000000;-1.000000; 0.000000;, - -0.456191;-0.865230;-0.207862;, - -0.450392;-0.885708; 0.112308;, - 0.000000;-1.000000; 0.000000;, - 0.292703;-0.885708;-0.360271;, - 0.005158;-0.865230;-0.501297;, - 0.115299; 0.992279; 0.045381;, - -0.707816; 0.682302; 0.182836;, - -0.680319; 0.682180;-0.267891;, - 0.007752; 0.992279;-0.123692;, - -0.045808; 0.682180; 0.729728;, - -0.465712; 0.682302; 0.563494;, - 0.079012; 0.992248;-0.095614;, - -0.395184; 0.765618; 0.507523;, - -0.021485; 0.766717; 0.641621;, - 0.079012; 0.992248;-0.095614;, - -0.021485; 0.766717; 0.641621;, - 0.007752; 0.992279;-0.123692;, - -0.465712; 0.682302; 0.563494;, - 0.115299; 0.992279; 0.045381;, - -0.531877; 0.826563;-0.183935;, - -0.109928; 0.992584;-0.051485;, - -0.707816; 0.682302; 0.182836;, - -0.279550;-0.898373; 0.338694;, - -0.005158;-0.865230; 0.501297;, - 0.000000;-1.000000; 0.000000;, - -0.450392;-0.885708; 0.112308;, - 0.425275;-0.898373;-0.109561;, - 0.292703;-0.885708;-0.360271;, - 0.000000;-1.000000; 0.000000;, - 0.456191;-0.865230; 0.207862;, - 0.275185;-0.858486; 0.432691;, - 0.456191;-0.865230; 0.207862;, - 0.000000;-1.000000; 0.000000;, - -0.005158;-0.865230; 0.501297;, - 0.000000;-1.000000; 0.000000;, - 0.005158;-0.865230;-0.501297;, - -0.275185;-0.858486;-0.432691;, - -0.456191;-0.865230;-0.207862;, - 0.011567;-0.971252;-0.237678;, - -0.388989;-0.886013;-0.252205;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.091556;-0.968535;-0.231391;, - 0.185247;-0.872738;-0.451643;, - 0.309244;-0.864040;-0.397168;, - -0.388989;-0.886013;-0.252205;, - -0.000641;-0.861690;-0.507370;, - 0.185247;-0.872738;-0.451643;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - 0.209876;-0.968566;-0.133488;, - 0.414258;-0.873318;-0.256233;, - 0.458449;-0.880825;-0.118015;, - 0.158361;-0.968474;-0.192145;, - 0.309244;-0.864040;-0.397168;, - 0.414258;-0.873318;-0.256233;, - 0.209876;-0.968566;-0.133488;, - -0.275185;-0.858486;-0.432691;, - 0.005158;-0.865230;-0.501297;, - -0.000641;-0.861690;-0.507370;, - -0.266732;-0.867672;-0.419477;, - 0.248390;-0.968535; 0.015168;, - 0.248390;-0.968535; 0.015168;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - 0.248390;-0.968535; 0.015168;, - 0.209235;-0.973510; 0.092044;, - 0.217536;-0.972137; 0.086947;, - 0.248390;-0.968535; 0.015168;, - 0.209235;-0.973510; 0.092044;, - 0.248390;-0.968535; 0.015168;, - 0.487594;-0.872738; 0.023713;, - 0.467849;-0.853786; 0.228278;, - 0.487594;-0.872738; 0.023713;, - 0.248390;-0.968535; 0.015168;, - 0.241157;-0.968474;-0.061953;, - 0.458449;-0.880825;-0.118015;, - 0.467849;-0.853786; 0.228278;, - 0.456191;-0.865230; 0.207862;, - 0.275185;-0.858486; 0.432691;, - 0.266579;-0.867855; 0.419172;, - -0.133488;-0.968566;-0.209876;, - -0.061983;-0.968474;-0.241157;, - 0.008667;-0.999359; 0.033876;, - 0.019257;-0.999329; 0.030305;, - 0.008667;-0.999359; 0.033876;, - -0.061983;-0.968474;-0.241157;, - 0.015107;-0.968535;-0.248390;, - -0.002106;-0.999359; 0.035463;, - -0.061983;-0.968474;-0.241157;, - -0.055910;-0.972564;-0.225745;, - 0.011567;-0.971252;-0.237678;, - 0.015107;-0.968535;-0.248390;, - 0.143437;-0.963591; 0.225562;, - 0.066622;-0.963500; 0.259163;, - 0.159124;-0.769158; 0.618915;, - 0.343211;-0.768700; 0.539659;, - 0.159124;-0.769158; 0.618915;, - 0.066622;-0.963500; 0.259163;, - -0.016236;-0.963561; 0.266945;, - -0.038820;-0.768883; 0.638173;, - 0.066622;-0.963500; 0.259163;, - 0.008667;-0.999359; 0.033876;, - -0.002106;-0.999359; 0.035463;, - -0.016236;-0.963561; 0.266945;, - 0.019257;-0.999329; 0.030305;, - 0.008667;-0.999359; 0.033876;, - 0.066622;-0.963500; 0.259163;, - 0.143437;-0.963591; 0.225562;, - 0.091556;-0.968535;-0.231391;, - -0.013092;-0.999359; 0.033052;, - -0.002106;-0.999359; 0.035463;, - 0.015107;-0.968535;-0.248390;, - -0.022248;-0.999359; 0.027009;, - -0.013092;-0.999359; 0.033052;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - -0.038820;-0.768883; 0.638173;, - -0.016236;-0.963561; 0.266945;, - -0.098392;-0.963561; 0.248665;, - -0.235237;-0.768883; 0.594531;, - -0.098392;-0.963561; 0.248665;, - -0.170202;-0.963500; 0.206488;, - -0.406446;-0.769127; 0.493149;, - -0.235237;-0.768883; 0.594531;, - -0.170202;-0.963500; 0.206488;, - -0.098392;-0.963561; 0.248665;, - -0.013092;-0.999359; 0.033052;, - -0.022248;-0.999359; 0.027009;, - -0.016236;-0.963561; 0.266945;, - -0.002106;-0.999359; 0.035463;, - -0.013092;-0.999359; 0.033052;, - -0.098392;-0.963561; 0.248665;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.015107;-0.968535;-0.248390;, - 0.011567;-0.971252;-0.237678;, - 0.209876;-0.968566;-0.133488;, - -0.030305;-0.999329; 0.019288;, - -0.022248;-0.999359; 0.027009;, - 0.158361;-0.968474;-0.192145;, - -0.033906;-0.999359; 0.008667;, - -0.030305;-0.999329; 0.019288;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - -0.406446;-0.769127; 0.493149;, - -0.170202;-0.963500; 0.206488;, - -0.225562;-0.963591; 0.143468;, - -0.539689;-0.768700; 0.343211;, - -0.225562;-0.963591; 0.143468;, - -0.259163;-0.963500; 0.066561;, - -0.618946;-0.769127; 0.159001;, - -0.539689;-0.768700; 0.343211;, - -0.259163;-0.963500; 0.066561;, - -0.225562;-0.963591; 0.143468;, - -0.030305;-0.999329; 0.019288;, - -0.033906;-0.999359; 0.008667;, - -0.170202;-0.963500; 0.206488;, - -0.022248;-0.999359; 0.027009;, - -0.030305;-0.999329; 0.019288;, - -0.225562;-0.963591; 0.143468;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.467574;-0.490707; 0.735191;, - 0.217017;-0.490310; 0.844081;, - 0.240730;-0.255745; 0.936277;, - 0.518784;-0.255745; 0.815729;, - 0.240730;-0.255745; 0.936277;, - 0.217017;-0.490310; 0.844081;, - -0.052919;-0.490524; 0.869778;, - -0.058718;-0.255745; 0.964934;, - 0.217017;-0.490310; 0.844081;, - 0.159124;-0.769158; 0.618915;, - -0.038820;-0.768883; 0.638173;, - -0.052919;-0.490524; 0.869778;, - 0.536546;-0.017121; 0.843654;, - 0.248970;-0.017121; 0.968352;, - 0.249001; 0.000000; 0.968474;, - 0.536637; 0.000000; 0.843776;, - 0.249001; 0.000000; 0.968474;, - 0.248970;-0.017121; 0.968352;, - -0.060732;-0.017121; 0.997986;, - -0.060732; 0.000000; 0.998138;, - 0.248970;-0.017121; 0.968352;, - 0.240730;-0.255745; 0.936277;, - -0.058718;-0.255745; 0.964934;, - -0.060732;-0.017121; 0.997986;, - 0.518784;-0.255745; 0.815729;, - 0.240730;-0.255745; 0.936277;, - 0.248970;-0.017121; 0.968352;, - 0.536546;-0.017121; 0.843654;, - -0.320597;-0.490524; 0.810266;, - -0.355663;-0.255715; 0.898923;, - -0.058718;-0.255745; 0.964934;, - -0.052919;-0.490524; 0.869778;, - -0.614887;-0.255715; 0.745964;, - -0.355663;-0.255715; 0.898923;, - -0.320597;-0.490524; 0.810266;, - -0.554308;-0.490310; 0.672506;, - -0.554308;-0.490310; 0.672506;, - -0.320597;-0.490524; 0.810266;, - -0.235237;-0.768883; 0.594531;, - -0.406446;-0.769127; 0.493149;, - -0.060732; 0.000000; 0.998138;, - -0.060732;-0.017121; 0.997986;, - -0.367870;-0.017121; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.367870;-0.017121; 0.929716;, - -0.635945;-0.017121; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.367901; 0.000000; 0.929838;, - -0.635945;-0.017121; 0.771538;, - -0.367870;-0.017121; 0.929716;, - -0.355663;-0.255715; 0.898923;, - -0.614887;-0.255715; 0.745964;, - -0.060732;-0.017121; 0.997986;, - -0.058718;-0.255745; 0.964934;, - -0.355663;-0.255715; 0.898923;, - -0.367870;-0.017121; 0.929716;, - -0.235237;-0.768883; 0.594531;, - -0.320597;-0.490524; 0.810266;, - -0.052919;-0.490524; 0.869778;, - -0.038820;-0.768883; 0.638173;, - -0.735221;-0.490707; 0.467574;, - -0.815729;-0.255745; 0.518784;, - -0.614887;-0.255715; 0.745964;, - -0.554308;-0.490310; 0.672506;, - -0.936308;-0.255715; 0.240577;, - -0.815729;-0.255745; 0.518784;, - -0.735221;-0.490707; 0.467574;, - -0.844111;-0.490310; 0.216865;, - -0.844111;-0.490310; 0.216865;, - -0.735221;-0.490707; 0.467574;, - -0.539689;-0.768700; 0.343211;, - -0.618946;-0.769127; 0.159001;, - -0.636036; 0.000000; 0.771630;, - -0.635945;-0.017121; 0.771538;, - -0.843654;-0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654;-0.017121; 0.536546;, - -0.968383;-0.017121; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.843776; 0.000000; 0.536637;, - -0.968383;-0.017121; 0.248787;, - -0.843654;-0.017121; 0.536546;, - -0.815729;-0.255745; 0.518784;, - -0.936308;-0.255715; 0.240577;, - -0.635945;-0.017121; 0.771538;, - -0.614887;-0.255715; 0.745964;, - -0.815729;-0.255745; 0.518784;, - -0.843654;-0.017121; 0.536546;, - -0.539689;-0.768700; 0.343211;, - -0.735221;-0.490707; 0.467574;, - -0.554308;-0.490310; 0.672506;, - -0.406446;-0.769127; 0.493149;, - 0.343211;-0.768700; 0.539659;, - 0.159124;-0.769158; 0.618915;, - 0.217017;-0.490310; 0.844081;, - 0.467574;-0.490707; 0.735191;, - 0.248390;-0.968535; 0.015168;, - -0.035493;-0.999359;-0.002136;, - -0.033906;-0.999359; 0.008667;, - 0.241157;-0.968474;-0.061953;, - 0.248390;-0.968535; 0.015168;, - 0.231361;-0.968535; 0.091617;, - -0.033021;-0.999359;-0.013092;, - -0.035493;-0.999359;-0.002136;, - 0.217536;-0.972137; 0.086947;, - 0.231361;-0.968535; 0.091617;, - 0.248390;-0.968535; 0.015168;, - 0.248390;-0.968535; 0.015168;, - -0.266945;-0.963561;-0.016297;, - -0.638173;-0.768883;-0.039003;, - -0.618946;-0.769127; 0.159001;, - -0.259163;-0.963500; 0.066561;, - -0.266945;-0.963561;-0.016297;, - -0.248634;-0.963561;-0.098483;, - -0.594440;-0.768883;-0.235420;, - -0.638173;-0.768883;-0.039003;, - -0.248634;-0.963561;-0.098483;, - -0.266945;-0.963561;-0.016297;, - -0.035493;-0.999359;-0.002136;, - -0.033021;-0.999359;-0.013092;, - -0.035493;-0.999359;-0.002136;, - -0.266945;-0.963561;-0.016297;, - -0.259163;-0.963500; 0.066561;, - -0.033906;-0.999359; 0.008667;, - 0.231361;-0.968535; 0.091617;, - 0.192114;-0.968474; 0.158391;, - -0.027009;-0.999359;-0.022248;, - -0.033021;-0.999359;-0.013092;, - -0.027009;-0.999359;-0.022248;, - 0.192114;-0.968474; 0.158391;, - 0.133488;-0.968566; 0.209876;, - -0.019257;-0.999329;-0.030305;, - 0.192114;-0.968474; 0.158391;, - 0.176214;-0.974242; 0.140660;, - 0.133488;-0.968535; 0.209876;, - 0.133488;-0.968566; 0.209876;, - -0.248634;-0.963561;-0.098483;, - -0.206458;-0.963500;-0.170232;, - -0.493057;-0.769158;-0.406537;, - -0.594440;-0.768883;-0.235420;, - -0.493057;-0.769158;-0.406537;, - -0.206458;-0.963500;-0.170232;, - -0.143437;-0.963591;-0.225562;, - -0.343211;-0.768700;-0.539659;, - -0.206458;-0.963500;-0.170232;, - -0.027009;-0.999359;-0.022248;, - -0.019257;-0.999329;-0.030305;, - -0.143437;-0.963591;-0.225562;, - -0.206458;-0.963500;-0.170232;, - -0.248634;-0.963561;-0.098483;, - -0.033021;-0.999359;-0.013092;, - -0.027009;-0.999359;-0.022248;, - 0.192114;-0.968474; 0.158391;, - 0.231361;-0.968535; 0.091617;, - 0.217536;-0.972137; 0.086947;, - 0.176214;-0.974242; 0.140660;, - -0.869778;-0.490524;-0.053194;, - -0.964934;-0.255715;-0.059023;, - -0.936308;-0.255715; 0.240577;, - -0.844111;-0.490310; 0.216865;, - -0.898801;-0.255745;-0.355937;, - -0.964934;-0.255715;-0.059023;, - -0.869778;-0.490524;-0.053194;, - -0.810175;-0.490524;-0.320841;, - -0.810175;-0.490524;-0.320841;, - -0.869778;-0.490524;-0.053194;, - -0.638173;-0.768883;-0.039003;, - -0.594440;-0.768883;-0.235420;, - -0.968535; 0.000000; 0.248848;, - -0.968383;-0.017121; 0.248787;, - -0.997986;-0.017121;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.997986;-0.017121;-0.061037;, - -0.929594;-0.017121;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.929594;-0.017121;-0.368145;, - -0.997986;-0.017121;-0.061037;, - -0.964934;-0.255715;-0.059023;, - -0.898801;-0.255745;-0.355937;, - -0.968383;-0.017121; 0.248787;, - -0.936308;-0.255715; 0.240577;, - -0.964934;-0.255715;-0.059023;, - -0.997986;-0.017121;-0.061037;, - -0.810175;-0.490524;-0.320841;, - -0.672414;-0.490310;-0.554430;, - -0.745842;-0.255745;-0.615009;, - -0.898801;-0.255745;-0.355937;, - -0.745842;-0.255745;-0.615009;, - -0.672414;-0.490310;-0.554430;, - -0.467574;-0.490707;-0.735191;, - -0.518784;-0.255745;-0.815729;, - -0.672414;-0.490310;-0.554430;, - -0.493057;-0.769158;-0.406537;, - -0.343211;-0.768700;-0.539659;, - -0.467574;-0.490707;-0.735191;, - -0.929594;-0.017121;-0.368145;, - -0.771416;-0.017121;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.929716; 0.000000;-0.368206;, - -0.771508; 0.000000;-0.636158;, - -0.771416;-0.017121;-0.636067;, - -0.536546;-0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.771416;-0.017121;-0.636067;, - -0.745842;-0.255745;-0.615009;, - -0.518784;-0.255745;-0.815729;, - -0.536546;-0.017121;-0.843654;, - -0.771416;-0.017121;-0.636067;, - -0.929594;-0.017121;-0.368145;, - -0.898801;-0.255745;-0.355937;, - -0.745842;-0.255745;-0.615009;, - -0.672414;-0.490310;-0.554430;, - -0.810175;-0.490524;-0.320841;, - -0.594440;-0.768883;-0.235420;, - -0.493057;-0.769158;-0.406537;, - -0.638173;-0.768883;-0.039003;, - -0.869778;-0.490524;-0.053194;, - -0.844111;-0.490310; 0.216865;, - -0.618946;-0.769127; 0.159001;, - 0.248390;-0.968535; 0.015168;, - 0.248390;-0.968535; 0.015168;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - -0.133488;-0.968566;-0.209876;, - -0.055910;-0.972564;-0.225745;, - -0.061983;-0.968474;-0.241157;, - -0.133488;-0.968566;-0.209876;, - -0.013459;-0.972137; 0.233894;, - -0.005341;-0.973510; 0.228523;, - -0.091556;-0.968535; 0.231391;, - -0.091556;-0.968535; 0.231391;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968505; 0.192114;, - -0.158361;-0.968474; 0.192145;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968505; 0.192114;, - -0.091556;-0.968535; 0.231391;, - -0.185278;-0.872707; 0.451643;, - -0.301279;-0.880825; 0.365154;, - -0.005341;-0.973510; 0.228523;, - 0.008362;-0.853786; 0.520524;, - -0.185278;-0.872707; 0.451643;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968474; 0.192145;, - -0.158361;-0.968505; 0.192114;, - -0.209876;-0.968566; 0.133488;, - -0.209876;-0.968535; 0.133488;, - -0.209876;-0.968566; 0.133488;, - -0.241157;-0.968505; 0.061953;, - -0.241157;-0.968474; 0.061953;, - -0.209876;-0.968535; 0.133488;, - -0.241157;-0.968505; 0.061953;, - -0.209876;-0.968566; 0.133488;, - -0.407727;-0.873318; 0.266518;, - -0.490829;-0.864040; 0.111667;, - -0.158361;-0.968505; 0.192114;, - -0.301279;-0.880825; 0.365154;, - -0.407727;-0.873318; 0.266518;, - -0.209876;-0.968566; 0.133488;, - 0.275185;-0.858486; 0.432691;, - -0.005158;-0.865230; 0.501297;, - 0.008362;-0.853786; 0.520524;, - 0.266579;-0.867855; 0.419172;, - -0.248360;-0.968535;-0.015168;, - -0.248390;-0.968535;-0.015168;, - -0.241157;-0.968474; 0.061953;, - -0.241157;-0.968505; 0.061953;, - -0.248360;-0.968535;-0.015168;, - -0.209235;-0.973510;-0.092044;, - -0.217536;-0.972137;-0.086947;, - -0.248390;-0.968535;-0.015168;, - -0.209235;-0.973510;-0.092044;, - -0.248360;-0.968535;-0.015168;, - -0.487594;-0.872707;-0.023713;, - -0.467849;-0.853786;-0.228278;, - -0.487594;-0.872707;-0.023713;, - -0.248360;-0.968535;-0.015168;, - -0.241157;-0.968505; 0.061953;, - -0.490829;-0.864040; 0.111667;, - -0.467849;-0.853786;-0.228278;, - -0.456191;-0.865230;-0.207862;, - -0.275185;-0.858486;-0.432691;, - -0.266732;-0.867672;-0.419477;, - 0.133488;-0.968566; 0.209876;, - 0.061983;-0.968474; 0.241157;, - -0.008667;-0.999359;-0.033876;, - -0.019257;-0.999329;-0.030305;, - -0.015107;-0.968535; 0.248390;, - 0.002106;-0.999359;-0.035463;, - -0.008667;-0.999359;-0.033876;, - 0.061983;-0.968474; 0.241157;, - -0.013459;-0.972137; 0.233894;, - -0.015107;-0.968535; 0.248390;, - 0.061983;-0.968474; 0.241157;, - 0.052675;-0.974242; 0.219245;, - -0.143437;-0.963591;-0.225562;, - -0.066622;-0.963500;-0.259163;, - -0.159124;-0.769158;-0.618915;, - -0.343211;-0.768700;-0.539659;, - -0.159124;-0.769158;-0.618915;, - -0.066622;-0.963500;-0.259163;, - 0.016236;-0.963561;-0.266945;, - 0.038820;-0.768883;-0.638173;, - -0.066622;-0.963500;-0.259163;, - -0.008667;-0.999359;-0.033876;, - 0.002106;-0.999359;-0.035463;, - 0.016236;-0.963561;-0.266945;, - -0.019257;-0.999329;-0.030305;, - -0.008667;-0.999359;-0.033876;, - -0.066622;-0.963500;-0.259163;, - -0.143437;-0.963591;-0.225562;, - -0.091556;-0.968535; 0.231391;, - 0.013092;-0.999359;-0.033052;, - 0.002106;-0.999359;-0.035463;, - -0.015107;-0.968535; 0.248390;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968474; 0.192145;, - 0.022248;-0.999359;-0.027009;, - 0.013092;-0.999359;-0.033052;, - -0.158361;-0.968474; 0.192145;, - -0.091556;-0.968535; 0.231391;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968474; 0.192145;, - 0.098392;-0.963561;-0.248665;, - 0.235237;-0.768853;-0.594531;, - 0.038820;-0.768883;-0.638173;, - 0.016236;-0.963561;-0.266945;, - 0.098392;-0.963561;-0.248665;, - 0.170202;-0.963500;-0.206488;, - 0.406446;-0.769127;-0.493149;, - 0.235237;-0.768853;-0.594531;, - 0.170202;-0.963500;-0.206488;, - 0.098392;-0.963561;-0.248665;, - 0.013092;-0.999359;-0.033052;, - 0.022248;-0.999359;-0.027009;, - 0.013092;-0.999359;-0.033052;, - 0.098392;-0.963561;-0.248665;, - 0.016236;-0.963561;-0.266945;, - 0.002106;-0.999359;-0.035463;, - -0.091556;-0.968535; 0.231391;, - -0.015107;-0.968535; 0.248390;, - -0.013459;-0.972137; 0.233894;, - -0.091556;-0.968535; 0.231391;, - -0.209876;-0.968535; 0.133488;, - 0.030305;-0.999329;-0.019257;, - 0.022248;-0.999359;-0.027009;, - -0.158361;-0.968474; 0.192145;, - -0.209876;-0.968535; 0.133488;, - -0.241157;-0.968474; 0.061953;, - 0.033906;-0.999359;-0.008667;, - 0.030305;-0.999329;-0.019257;, - -0.241157;-0.968474; 0.061953;, - -0.209876;-0.968535; 0.133488;, - -0.209876;-0.968535; 0.133488;, - -0.241157;-0.968474; 0.061953;, - 0.225562;-0.963591;-0.143468;, - 0.539689;-0.768700;-0.343211;, - 0.406446;-0.769127;-0.493149;, - 0.170202;-0.963500;-0.206488;, - 0.225562;-0.963591;-0.143468;, - 0.259163;-0.963500;-0.066561;, - 0.618946;-0.769127;-0.159001;, - 0.539689;-0.768700;-0.343211;, - 0.259163;-0.963500;-0.066561;, - 0.225562;-0.963591;-0.143468;, - 0.030305;-0.999329;-0.019257;, - 0.033906;-0.999359;-0.008667;, - 0.030305;-0.999329;-0.019257;, - 0.225562;-0.963591;-0.143468;, - 0.170202;-0.963500;-0.206488;, - 0.022248;-0.999359;-0.027009;, - -0.209876;-0.968535; 0.133488;, - -0.209876;-0.968535; 0.133488;, - -0.158361;-0.968474; 0.192145;, - -0.158361;-0.968474; 0.192145;, - -0.467574;-0.490707;-0.735191;, - -0.217017;-0.490310;-0.844081;, - -0.240761;-0.255745;-0.936277;, - -0.518784;-0.255745;-0.815729;, - -0.240761;-0.255745;-0.936277;, - -0.217017;-0.490310;-0.844081;, - 0.052919;-0.490524;-0.869778;, - 0.058718;-0.255715;-0.964934;, - -0.217017;-0.490310;-0.844081;, - -0.159124;-0.769158;-0.618915;, - 0.038820;-0.768883;-0.638173;, - 0.052919;-0.490524;-0.869778;, - -0.536546;-0.017121;-0.843654;, - -0.248970;-0.017121;-0.968352;, - -0.249001; 0.000000;-0.968474;, - -0.536637; 0.000000;-0.843776;, - -0.249001; 0.000000;-0.968474;, - -0.248970;-0.017121;-0.968352;, - 0.060732;-0.017121;-0.997986;, - 0.060732; 0.000000;-0.998138;, - -0.248970;-0.017121;-0.968352;, - -0.240761;-0.255745;-0.936277;, - 0.058718;-0.255715;-0.964934;, - 0.060732;-0.017121;-0.997986;, - -0.518784;-0.255745;-0.815729;, - -0.240761;-0.255745;-0.936277;, - -0.248970;-0.017121;-0.968352;, - -0.536546;-0.017121;-0.843654;, - 0.320597;-0.490524;-0.810266;, - 0.355663;-0.255715;-0.898923;, - 0.058718;-0.255715;-0.964934;, - 0.052919;-0.490524;-0.869778;, - 0.614887;-0.255745;-0.745964;, - 0.355663;-0.255715;-0.898923;, - 0.320597;-0.490524;-0.810266;, - 0.554308;-0.490310;-0.672506;, - 0.554308;-0.490310;-0.672506;, - 0.320597;-0.490524;-0.810266;, - 0.235237;-0.768853;-0.594531;, - 0.406446;-0.769127;-0.493149;, - 0.060732;-0.017121;-0.997986;, - 0.367870;-0.017121;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.060732; 0.000000;-0.998138;, - 0.367870;-0.017121;-0.929716;, - 0.635945;-0.017121;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.367901; 0.000000;-0.929838;, - 0.635945;-0.017121;-0.771538;, - 0.367870;-0.017121;-0.929716;, - 0.355663;-0.255715;-0.898923;, - 0.614887;-0.255745;-0.745964;, - 0.060732;-0.017121;-0.997986;, - 0.058718;-0.255715;-0.964934;, - 0.355663;-0.255715;-0.898923;, - 0.367870;-0.017121;-0.929716;, - 0.235237;-0.768853;-0.594531;, - 0.320597;-0.490524;-0.810266;, - 0.052919;-0.490524;-0.869778;, - 0.038820;-0.768883;-0.638173;, - 0.735191;-0.490707;-0.467574;, - 0.815729;-0.255745;-0.518784;, - 0.614887;-0.255745;-0.745964;, - 0.554308;-0.490310;-0.672506;, - 0.936308;-0.255745;-0.240577;, - 0.815729;-0.255745;-0.518784;, - 0.735191;-0.490707;-0.467574;, - 0.844111;-0.490310;-0.216865;, - 0.844111;-0.490310;-0.216865;, - 0.735191;-0.490707;-0.467574;, - 0.539689;-0.768700;-0.343211;, - 0.618946;-0.769127;-0.159001;, - 0.636036; 0.000000;-0.771630;, - 0.635945;-0.017121;-0.771538;, - 0.843654;-0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654;-0.017121;-0.536546;, - 0.968383;-0.017121;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.843776; 0.000000;-0.536637;, - 0.968383;-0.017121;-0.248787;, - 0.843654;-0.017121;-0.536546;, - 0.815729;-0.255745;-0.518784;, - 0.936308;-0.255745;-0.240577;, - 0.635945;-0.017121;-0.771538;, - 0.614887;-0.255745;-0.745964;, - 0.815729;-0.255745;-0.518784;, - 0.843654;-0.017121;-0.536546;, - 0.539689;-0.768700;-0.343211;, - 0.735191;-0.490707;-0.467574;, - 0.554308;-0.490310;-0.672506;, - 0.406446;-0.769127;-0.493149;, - -0.343211;-0.768700;-0.539659;, - -0.159124;-0.769158;-0.618915;, - -0.217017;-0.490310;-0.844081;, - -0.467574;-0.490707;-0.735191;, - -0.248390;-0.968535;-0.015168;, - 0.035493;-0.999359; 0.002136;, - 0.033906;-0.999359;-0.008667;, - -0.241157;-0.968474; 0.061953;, - -0.248390;-0.968535;-0.015168;, - -0.231361;-0.968535;-0.091617;, - 0.033021;-0.999359; 0.013092;, - 0.035493;-0.999359; 0.002136;, - -0.217536;-0.972137;-0.086947;, - -0.231361;-0.968535;-0.091617;, - -0.248390;-0.968535;-0.015168;, - -0.248390;-0.968535;-0.015168;, - 0.266945;-0.963561; 0.016297;, - 0.638173;-0.768853; 0.039003;, - 0.618946;-0.769127;-0.159001;, - 0.259163;-0.963500;-0.066561;, - 0.266945;-0.963561; 0.016297;, - 0.248634;-0.963561; 0.098483;, - 0.594440;-0.768883; 0.235420;, - 0.638173;-0.768853; 0.039003;, - 0.248634;-0.963561; 0.098483;, - 0.266945;-0.963561; 0.016297;, - 0.035493;-0.999359; 0.002136;, - 0.033021;-0.999359; 0.013092;, - 0.035493;-0.999359; 0.002136;, - 0.266945;-0.963561; 0.016297;, - 0.259163;-0.963500;-0.066561;, - 0.033906;-0.999359;-0.008667;, - -0.231361;-0.968535;-0.091617;, - -0.192114;-0.968474;-0.158391;, - 0.027009;-0.999359; 0.022248;, - 0.033021;-0.999359; 0.013092;, - 0.027009;-0.999359; 0.022248;, - -0.192114;-0.968474;-0.158391;, - -0.133488;-0.968566;-0.209876;, - 0.019257;-0.999329; 0.030305;, - -0.192114;-0.968474;-0.158391;, - -0.176214;-0.974242;-0.140660;, - -0.133488;-0.968566;-0.209876;, - -0.133488;-0.968566;-0.209876;, - 0.248634;-0.963561; 0.098483;, - 0.206458;-0.963500; 0.170232;, - 0.493057;-0.769158; 0.406537;, - 0.594440;-0.768883; 0.235420;, - 0.493057;-0.769158; 0.406537;, - 0.206458;-0.963500; 0.170232;, - 0.143437;-0.963591; 0.225562;, - 0.343211;-0.768700; 0.539659;, - 0.206458;-0.963500; 0.170232;, - 0.027009;-0.999359; 0.022248;, - 0.019257;-0.999329; 0.030305;, - 0.143437;-0.963591; 0.225562;, - 0.206458;-0.963500; 0.170232;, - 0.248634;-0.963561; 0.098483;, - 0.033021;-0.999359; 0.013092;, - 0.027009;-0.999359; 0.022248;, - -0.192114;-0.968474;-0.158391;, - -0.231361;-0.968535;-0.091617;, - -0.217536;-0.972137;-0.086947;, - -0.176214;-0.974242;-0.140660;, - 0.869778;-0.490524; 0.053194;, - 0.964934;-0.255715; 0.059023;, - 0.936308;-0.255745;-0.240577;, - 0.844111;-0.490310;-0.216865;, - 0.869778;-0.490524; 0.053194;, - 0.810175;-0.490524; 0.320841;, - 0.898801;-0.255745; 0.355937;, - 0.964934;-0.255715; 0.059023;, - 0.810175;-0.490524; 0.320841;, - 0.869778;-0.490524; 0.053194;, - 0.638173;-0.768853; 0.039003;, - 0.594440;-0.768883; 0.235420;, - 0.997986;-0.017121; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.968535; 0.000000;-0.248848;, - 0.968383;-0.017121;-0.248787;, - 0.997986;-0.017121; 0.061037;, - 0.929594;-0.017121; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.998108; 0.000000; 0.061037;, - 0.929594;-0.017121; 0.368145;, - 0.997986;-0.017121; 0.061037;, - 0.964934;-0.255715; 0.059023;, - 0.898801;-0.255745; 0.355937;, - 0.964934;-0.255715; 0.059023;, - 0.997986;-0.017121; 0.061037;, - 0.968383;-0.017121;-0.248787;, - 0.936308;-0.255745;-0.240577;, - 0.810175;-0.490524; 0.320841;, - 0.672414;-0.490310; 0.554430;, - 0.745842;-0.255745; 0.615040;, - 0.898801;-0.255745; 0.355937;, - 0.745842;-0.255745; 0.615040;, - 0.672414;-0.490310; 0.554430;, - 0.467574;-0.490707; 0.735191;, - 0.518784;-0.255745; 0.815729;, - 0.672414;-0.490310; 0.554430;, - 0.493057;-0.769158; 0.406537;, - 0.343211;-0.768700; 0.539659;, - 0.467574;-0.490707; 0.735191;, - 0.929594;-0.017121; 0.368145;, - 0.771416;-0.017121; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.929716; 0.000000; 0.368206;, - 0.771508; 0.000000; 0.636158;, - 0.771416;-0.017121; 0.636067;, - 0.536546;-0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.771416;-0.017121; 0.636067;, - 0.745842;-0.255745; 0.615040;, - 0.518784;-0.255745; 0.815729;, - 0.536546;-0.017121; 0.843654;, - 0.771416;-0.017121; 0.636067;, - 0.929594;-0.017121; 0.368145;, - 0.898801;-0.255745; 0.355937;, - 0.745842;-0.255745; 0.615040;, - 0.672414;-0.490310; 0.554430;, - 0.810175;-0.490524; 0.320841;, - 0.594440;-0.768883; 0.235420;, - 0.493057;-0.769158; 0.406537;, - 0.638173;-0.768853; 0.039003;, - 0.869778;-0.490524; 0.053194;, - 0.844111;-0.490310;-0.216865;, - 0.618946;-0.769127;-0.159001;, - -0.248390;-0.968535;-0.015168;, - -0.248390;-0.968535;-0.015168;, - -0.241157;-0.968474; 0.061953;, - -0.241157;-0.968474; 0.061953;, - 0.061983;-0.968474; 0.241157;, - 0.133488;-0.968566; 0.209876;, - 0.133488;-0.968535; 0.209876;, - 0.052675;-0.974242; 0.219245;, - 0.014435; 0.999634; 0.022706;, - 0.020753; 0.999634; 0.017121;, - -0.288156; 0.934049;-0.210974;, - -0.187475; 0.936949;-0.294809;, - 0.025025; 0.999634; 0.009888;, - -0.332652; 0.933775;-0.131779;, - -0.288156; 0.934049;-0.210974;, - 0.020753; 0.999634; 0.017121;, - 0.025025; 0.999634; 0.009888;, - 0.020753; 0.999634; 0.017121;, - 0.000000; 1.000000; 0.000000;, - 0.025025; 0.999634; 0.009888;, - 0.026856; 0.999634; 0.001617;, - -0.357128; 0.933775;-0.021790;, - -0.332652; 0.933775;-0.131779;, - 0.026856; 0.999634; 0.001617;, - 0.026063; 0.999634;-0.006684;, - -0.346049; 0.933988; 0.088870;, - -0.357128; 0.933775;-0.021790;, - 0.026063; 0.999634;-0.006684;, - 0.026856; 0.999634; 0.001617;, - 0.000000; 1.000000; 0.000000;, - 0.026856; 0.999634; 0.001617;, - 0.025025; 0.999634; 0.009888;, - 0.000000; 1.000000; 0.000000;, - 0.022706; 0.999634;-0.014435;, - -0.302194; 0.933653; 0.192206;, - -0.346049; 0.933988; 0.088870;, - 0.026063; 0.999634;-0.006684;, - 0.022706; 0.999634;-0.014435;, - 0.017121; 0.999634;-0.020783;, - -0.227210; 0.933988; 0.275704;, - -0.302194; 0.933653; 0.192206;, - 0.017121; 0.999634;-0.020783;, - 0.022706; 0.999634;-0.014435;, - 0.000000; 1.000000; 0.000000;, - 0.022706; 0.999634;-0.014435;, - 0.026063; 0.999634;-0.006684;, - 0.000000; 1.000000; 0.000000;, - -0.014069; 0.999634;-0.022156;, - -0.020264; 0.999634;-0.016724;, - -0.681814; 0.510941;-0.523484;, - -0.408368; 0.583178;-0.702231;, - -0.681814; 0.510941;-0.523484;, - -0.020264; 0.999634;-0.016724;, - -0.024415; 0.999634;-0.009674;, - -0.726005; 0.635792;-0.262032;, - -0.020264; 0.999634;-0.016724;, - -0.231788; 0.947172;-0.221564;, - -0.293161; 0.947356;-0.128574;, - -0.024415; 0.999634;-0.009674;, - -0.026215; 0.999634;-0.001587;, - -0.942015; 0.290139;-0.168523;, - -0.726005; 0.635792;-0.262032;, - -0.024415; 0.999634;-0.009674;, - -0.778314; 0.582446; 0.234413;, - -0.942015; 0.290139;-0.168523;, - -0.026215; 0.999634;-0.001587;, - -0.025452; 0.999634; 0.006531;, - -0.025452; 0.999634; 0.006531;, - -0.026215; 0.999634;-0.001587;, - -0.322428; 0.946348;-0.019745;, - -0.313639; 0.946104; 0.080599;, - -0.322428; 0.946348;-0.019745;, - -0.026215; 0.999634;-0.001587;, - -0.024415; 0.999634;-0.009674;, - -0.293161; 0.947356;-0.128574;, - -0.022156; 0.999634; 0.014069;, - -0.744682; 0.504440; 0.436933;, - -0.778314; 0.582446; 0.234413;, - -0.025452; 0.999634; 0.006531;, - -0.490738; 0.583361; 0.647145;, - -0.744682; 0.504440; 0.436933;, - -0.022156; 0.999634; 0.014069;, - -0.016724; 0.999634; 0.020264;, - -0.016724; 0.999634; 0.020264;, - -0.022156; 0.999634; 0.014069;, - -0.272103; 0.946562; 0.173070;, - -0.205969; 0.946104; 0.249886;, - -0.272103; 0.946562; 0.173070;, - -0.022156; 0.999634; 0.014069;, - -0.025452; 0.999634; 0.006531;, - -0.313639; 0.946104; 0.080599;, - -0.171239; 0.947691;-0.269265;, - -0.231788; 0.947172;-0.221564;, - -0.020264; 0.999634;-0.016724;, - -0.014069; 0.999634;-0.022156;, - 0.009888; 0.999634;-0.025025;, - -0.131657; 0.933775; 0.332682;, - -0.227210; 0.933988; 0.275704;, - 0.017121; 0.999634;-0.020783;, - 0.009888; 0.999634;-0.025025;, - 0.001617; 0.999634;-0.026856;, - -0.021668; 0.933775; 0.357128;, - -0.131657; 0.933775; 0.332682;, - 0.001617; 0.999634;-0.026856;, - 0.009888; 0.999634;-0.025025;, - 0.000000; 1.000000; 0.000000;, - 0.001617; 0.999634;-0.026856;, - -0.006684; 0.999634;-0.026063;, - 0.094455; 0.922513; 0.374157;, - -0.021668; 0.933775; 0.357128;, - -0.014435; 0.999634;-0.022706;, - 0.207251; 0.922391; 0.325877;, - 0.094455; 0.922513; 0.374157;, - -0.006684; 0.999634;-0.026063;, - -0.014435; 0.999634;-0.022706;, - -0.006684; 0.999634;-0.026063;, - 0.000000; 1.000000; 0.000000;, - -0.006684; 0.999634;-0.026063;, - 0.001617; 0.999634;-0.026856;, - 0.000000; 1.000000; 0.000000;, - -0.009644; 0.999634; 0.024415;, - -0.345347; 0.507126; 0.789636;, - -0.490738; 0.583361; 0.647145;, - -0.016724; 0.999634; 0.020264;, - -0.345347; 0.507126; 0.789636;, - -0.009644; 0.999634; 0.024415;, - -0.001587; 0.999634; 0.026215;, - -0.017060; 0.583819; 0.811670;, - -0.001587; 0.999634; 0.026215;, - -0.009644; 0.999634; 0.024415;, - -0.118839; 0.946348; 0.300394;, - -0.003632; 0.949767; 0.312906;, - -0.001587; 0.999634; 0.026215;, - 0.006531; 0.999634; 0.025452;, - 0.185003; 0.510941; 0.839442;, - -0.017060; 0.583819; 0.811670;, - 0.185003; 0.510941; 0.839442;, - 0.006531; 0.999634; 0.025452;, - 0.014069; 0.999634; 0.022156;, - 0.462813; 0.583178; 0.667592;, - 0.006531; 0.999634; 0.025452;, - 0.003571; 0.999878; 0.013977;, - 0.168676; 0.949278; 0.265236;, - 0.014069; 0.999634; 0.022156;, - 0.006531; 0.999634; 0.025452;, - -0.001587; 0.999634; 0.026215;, - -0.003632; 0.949767; 0.312906;, - 0.003571; 0.999878; 0.013977;, - -0.118839; 0.946348; 0.300394;, - -0.009644; 0.999634; 0.024415;, - -0.016724; 0.999634; 0.020264;, - -0.205969; 0.946104; 0.249886;, - 0.009888; 0.999634;-0.025025;, - 0.017121; 0.999634;-0.020783;, - 0.000000; 1.000000; 0.000000;, - 0.066469; 0.992279; 0.104526;, - 0.115299; 0.992279; 0.045381;, - -0.680319; 0.682180;-0.267891;, - -0.392438; 0.682028;-0.617054;, - -0.109928; 0.992584;-0.051485;, - 0.079012; 0.992248;-0.095614;, - -0.465712; 0.682302; 0.563494;, - -0.707816; 0.682302; 0.182836;, - -0.109928; 0.992584;-0.051485;, - -0.935118; 0.332469; 0.122379;, - -0.395184; 0.765618; 0.507523;, - 0.079012; 0.992248;-0.095614;, - -0.510666; 0.307291;-0.802972;, - -0.885464; 0.307138;-0.348643;, - -0.401440; 0.902097;-0.158116;, - -0.231391; 0.902219;-0.363842;, - -0.885464; 0.307138;-0.348643;, - -0.921445; 0.306955; 0.238044;, - -0.418012; 0.901975; 0.107974;, - -0.401440; 0.902097;-0.158116;, - -0.921445; 0.306955; 0.238044;, - -0.885464; 0.307138;-0.348643;, - -0.680319; 0.682180;-0.267891;, - -0.707816; 0.682302; 0.182836;, - -0.418012; 0.901975; 0.107974;, - -0.921445; 0.306955; 0.238044;, - -0.606311; 0.306955; 0.733573;, - -0.275033; 0.901975; 0.332804;, - -0.606311; 0.306955; 0.733573;, - -0.921445; 0.306955; 0.238044;, - -0.707816; 0.682302; 0.182836;, - -0.465712; 0.682302; 0.563494;, - -0.392438; 0.682028;-0.617054;, - -0.680319; 0.682180;-0.267891;, - -0.885464; 0.307138;-0.348643;, - -0.510666; 0.307291;-0.802972;, - -0.045808; 0.682180; 0.729728;, - 0.007752; 0.992279;-0.123692;, - -0.066469; 0.992279;-0.104526;, - 0.392438; 0.682028; 0.617054;, - 0.007752; 0.992279;-0.123692;, - -0.021485; 0.766717; 0.641621;, - 0.358745; 0.767388; 0.531358;, - -0.066469; 0.992279;-0.104526;, - -0.275033; 0.901975; 0.332804;, - -0.606311; 0.306955; 0.733573;, - -0.059664; 0.307138; 0.949767;, - -0.027009; 0.902097; 0.430616;, - -0.027009; 0.902097; 0.430616;, - -0.059664; 0.307138; 0.949767;, - 0.510666; 0.307291; 0.802972;, - 0.231391; 0.902219; 0.363872;, - 0.510666; 0.307291; 0.802972;, - -0.059664; 0.307138; 0.949767;, - -0.045808; 0.682180; 0.729728;, - 0.392438; 0.682028; 0.617054;, - -0.059664; 0.307138; 0.949767;, - -0.606311; 0.306955; 0.733573;, - -0.465712; 0.682302; 0.563494;, - -0.045808; 0.682180; 0.729728;, - -0.329112; 0.767418;-0.550218;, - -0.531877; 0.826563;-0.183935;, - 0.115299; 0.992279; 0.045381;, - 0.066469; 0.992279; 0.104526;, - -0.014435; 0.999634;-0.022706;, - -0.020753; 0.999634;-0.017121;, - 0.298807; 0.922513; 0.244179;, - 0.207251; 0.922391; 0.325877;, - -0.025025; 0.999634;-0.009888;, - 0.332652; 0.933775; 0.131779;, - 0.298807; 0.922513; 0.244179;, - -0.020753; 0.999634;-0.017121;, - -0.025025; 0.999634;-0.009888;, - -0.020753; 0.999634;-0.017121;, - 0.000000; 1.000000; 0.000000;, - -0.026856; 0.999634;-0.001617;, - 0.357128; 0.933775; 0.021790;, - 0.332652; 0.933775; 0.131779;, - -0.025025; 0.999634;-0.009888;, - -0.026856; 0.999634;-0.001617;, - -0.026063; 0.999634; 0.006684;, - 0.346049; 0.933988;-0.088870;, - 0.357128; 0.933775; 0.021790;, - -0.026063; 0.999634; 0.006684;, - -0.026856; 0.999634;-0.001617;, - 0.000000; 1.000000; 0.000000;, - -0.026856; 0.999634;-0.001617;, - -0.025025; 0.999634;-0.009888;, - 0.000000; 1.000000; 0.000000;, - -0.022706; 0.999634; 0.014435;, - 0.302194; 0.933653;-0.192206;, - 0.346049; 0.933988;-0.088870;, - -0.026063; 0.999634; 0.006684;, - -0.022706; 0.999634; 0.014435;, - -0.017121; 0.999634; 0.020783;, - 0.227210; 0.933988;-0.275704;, - 0.302194; 0.933653;-0.192206;, - -0.017121; 0.999634; 0.020783;, - -0.022706; 0.999634; 0.014435;, - 0.000000; 1.000000; 0.000000;, - -0.022706; 0.999634; 0.014435;, - -0.026063; 0.999634; 0.006684;, - 0.000000; 1.000000; 0.000000;, - 0.014069; 0.999634; 0.022156;, - 0.020264; 0.999634; 0.016724;, - 0.643941; 0.510849; 0.569475;, - 0.462813; 0.583178; 0.667592;, - 0.643941; 0.510849; 0.569475;, - 0.020264; 0.999634; 0.016724;, - 0.024415; 0.999634; 0.009674;, - 0.694784; 0.664479; 0.275155;, - 0.020264; 0.999634; 0.016724;, - 0.011139; 0.999878; 0.009186;, - 0.284951; 0.949767; 0.129368;, - 0.024415; 0.999634; 0.009674;, - 0.024415; 0.999634; 0.009674;, - 0.026215; 0.999634; 0.001587;, - 0.861568; 0.507126; 0.022034;, - 0.694784; 0.664479; 0.275155;, - 0.794183; 0.583392;-0.170049;, - 0.861568; 0.507126; 0.022034;, - 0.026215; 0.999634; 0.001587;, - 0.025452; 0.999634;-0.006531;, - 0.025452; 0.999634;-0.006531;, - 0.026215; 0.999634; 0.001587;, - 0.322428; 0.946348; 0.019745;, - 0.313639; 0.946104;-0.080599;, - 0.322428; 0.946348; 0.019745;, - 0.026215; 0.999634; 0.001587;, - 0.024415; 0.999634; 0.009674;, - 0.284951; 0.949767; 0.129368;, - 0.022156; 0.999634;-0.014069;, - 0.711478; 0.504440;-0.489181;, - 0.794183; 0.583392;-0.170049;, - 0.025452; 0.999634;-0.006531;, - 0.542314; 0.582446;-0.605487;, - 0.711478; 0.504440;-0.489181;, - 0.022156; 0.999634;-0.014069;, - 0.016724; 0.999634;-0.020264;, - 0.016724; 0.999634;-0.020264;, - 0.022156; 0.999634;-0.014069;, - 0.272103; 0.946562;-0.173070;, - 0.205969; 0.946104;-0.249886;, - 0.272103; 0.946562;-0.173070;, - 0.022156; 0.999634;-0.014069;, - 0.025452; 0.999634;-0.006531;, - 0.313639; 0.946104;-0.080599;, - 0.168676; 0.949278; 0.265236;, - 0.011139; 0.999878; 0.009186;, - 0.020264; 0.999634; 0.016724;, - 0.014069; 0.999634; 0.022156;, - -0.009888; 0.999634; 0.025025;, - 0.131657; 0.933775;-0.332682;, - 0.227210; 0.933988;-0.275704;, - -0.017121; 0.999634; 0.020783;, - -0.001617; 0.999634; 0.026856;, - 0.021668; 0.933775;-0.357128;, - 0.131657; 0.933775;-0.332682;, - -0.009888; 0.999634; 0.025025;, - -0.001617; 0.999634; 0.026856;, - -0.009888; 0.999634; 0.025025;, - 0.000000; 1.000000; 0.000000;, - -0.001617; 0.999634; 0.026856;, - 0.006684; 0.999634; 0.026063;, - -0.068880; 0.934049;-0.350414;, - 0.021668; 0.933775;-0.357128;, - -0.068880; 0.934049;-0.350414;, - 0.006684; 0.999634; 0.026063;, - 0.014435; 0.999634; 0.022706;, - -0.187475; 0.936949;-0.294809;, - 0.006684; 0.999634; 0.026063;, - 0.000000; 1.000000; 0.000000;, - 0.014435; 0.999634; 0.022706;, - 0.006684; 0.999634; 0.026063;, - -0.001617; 0.999634; 0.026856;, - 0.000000; 1.000000; 0.000000;, - 0.009644; 0.999634;-0.024415;, - 0.288675; 0.506974;-0.812159;, - 0.542314; 0.582446;-0.605487;, - 0.016724; 0.999634;-0.020264;, - 0.009644; 0.999634;-0.024415;, - 0.001587; 0.999634;-0.026215;, - 0.082217; 0.582415;-0.808710;, - 0.288675; 0.506974;-0.812159;, - 0.001587; 0.999634;-0.026215;, - 0.009644; 0.999634;-0.024415;, - 0.118839; 0.946348;-0.300394;, - 0.007813; 0.947356;-0.320017;, - 0.001587; 0.999634;-0.026215;, - -0.006531; 0.999634;-0.025452;, - -0.242714; 0.510849;-0.824671;, - 0.082217; 0.582415;-0.808710;, - -0.242714; 0.510849;-0.824671;, - -0.006531; 0.999634;-0.025452;, - -0.014069; 0.999634;-0.022156;, - -0.408368; 0.583178;-0.702231;, - -0.006531; 0.999634;-0.025452;, - -0.102359; 0.947172;-0.303873;, - -0.171239; 0.947691;-0.269265;, - -0.014069; 0.999634;-0.022156;, - -0.006531; 0.999634;-0.025452;, - 0.001587; 0.999634;-0.026215;, - 0.007813; 0.947356;-0.320017;, - -0.102359; 0.947172;-0.303873;, - 0.118839; 0.946348;-0.300394;, - 0.009644; 0.999634;-0.024415;, - 0.016724; 0.999634;-0.020264;, - 0.205969; 0.946104;-0.249886;, - -0.009888; 0.999634; 0.025025;, - -0.017121; 0.999634; 0.020783;, - 0.000000; 1.000000; 0.000000;, - -0.066469; 0.992279;-0.104526;, - -0.115299; 0.992279;-0.045381;, - 0.680319; 0.682180; 0.267891;, - 0.392438; 0.682028; 0.617054;, - -0.115299; 0.992279;-0.045381;, - -0.120060; 0.992279; 0.031007;, - 0.707785; 0.682302;-0.182836;, - 0.680319; 0.682180; 0.267891;, - -0.120060; 0.992279; 0.031007;, - -0.115299; 0.992279;-0.045381;, - 0.561815; 0.796777; 0.222358;, - 0.627277; 0.765557;-0.142705;, - -0.078982; 0.992279; 0.095584;, - 0.465682; 0.682302;-0.563494;, - 0.707785; 0.682302;-0.182836;, - -0.120060; 0.992279; 0.031007;, - -0.078982; 0.992279; 0.095584;, - -0.120060; 0.992279; 0.031007;, - 0.627277; 0.765557;-0.142705;, - 0.423078; 0.765496;-0.484725;, - 0.510666; 0.307291; 0.802972;, - 0.885464; 0.307138; 0.348643;, - 0.401440; 0.902097; 0.158116;, - 0.231391; 0.902219; 0.363872;, - 0.885464; 0.307138; 0.348643;, - 0.921445; 0.306955;-0.238044;, - 0.418012; 0.901975;-0.107944;, - 0.401440; 0.902097; 0.158116;, - 0.921445; 0.306955;-0.238044;, - 0.885464; 0.307138; 0.348643;, - 0.680319; 0.682180; 0.267891;, - 0.707785; 0.682302;-0.182836;, - 0.921445; 0.306955;-0.238044;, - 0.606281; 0.306955;-0.733573;, - 0.275033; 0.901975;-0.332804;, - 0.418012; 0.901975;-0.107944;, - 0.606281; 0.306955;-0.733573;, - 0.921445; 0.306955;-0.238044;, - 0.707785; 0.682302;-0.182836;, - 0.465682; 0.682302;-0.563494;, - 0.392438; 0.682028; 0.617054;, - 0.680319; 0.682180; 0.267891;, - 0.885464; 0.307138; 0.348643;, - 0.510666; 0.307291; 0.802972;, - -0.007752; 0.992279; 0.123692;, - 0.045808; 0.682180;-0.729728;, - 0.465682; 0.682302;-0.563494;, - -0.078982; 0.992279; 0.095584;, - 0.045808; 0.682180;-0.729728;, - -0.007752; 0.992279; 0.123692;, - 0.066469; 0.992279; 0.104526;, - -0.392438; 0.682028;-0.617054;, - -0.007752; 0.992279; 0.123692;, - 0.056917; 0.766594;-0.639576;, - -0.329112; 0.767418;-0.550218;, - 0.066469; 0.992279; 0.104526;, - 0.059664; 0.307138;-0.949767;, - 0.027009; 0.902097;-0.430616;, - 0.275033; 0.901975;-0.332804;, - 0.606281; 0.306955;-0.733573;, - 0.027009; 0.902097;-0.430616;, - 0.059664; 0.307138;-0.949767;, - -0.510666; 0.307291;-0.802972;, - -0.231391; 0.902219;-0.363842;, - -0.510666; 0.307291;-0.802972;, - 0.059664; 0.307138;-0.949767;, - 0.045808; 0.682180;-0.729728;, - -0.392438; 0.682028;-0.617054;, - 0.045808; 0.682180;-0.729728;, - 0.059664; 0.307138;-0.949767;, - 0.606281; 0.306955;-0.733573;, - 0.465682; 0.682302;-0.563494;, - 0.056917; 0.766594;-0.639576;, - -0.007752; 0.992279; 0.123692;, - -0.078982; 0.992279; 0.095584;, - 0.423078; 0.765496;-0.484725;, - -0.115299; 0.992279;-0.045381;, - -0.066469; 0.992279;-0.104526;, - 0.358745; 0.767388; 0.531358;, - 0.561815; 0.796777; 0.222358;, - -0.020753; 0.999634;-0.017121;, - -0.014435; 0.999634;-0.022706;, - 0.000000; 1.000000; 0.000000;, - 0.369823; 0.724601; 0.581500;, - 0.641133; 0.724693; 0.252449;, - 0.078097; 0.996551;-0.027009;, - 0.028474; 0.998566; 0.044771;, - 0.641133; 0.724693; 0.252449;, - 0.667043; 0.724784;-0.172308;, - 0.103916; 0.993957;-0.034608;, - 0.078097; 0.996551;-0.027009;, - 0.667043; 0.724784;-0.172308;, - 0.641133; 0.724693; 0.252449;, - -0.401440; 0.902097;-0.158116;, - -0.418012; 0.901975; 0.107974;, - 0.667043; 0.724784;-0.172308;, - 0.438917; 0.724784;-0.531053;, - 0.091952; 0.989593;-0.110416;, - 0.103916; 0.993957;-0.034608;, - 0.438917; 0.724784;-0.531053;, - 0.667043; 0.724784;-0.172308;, - -0.418012; 0.901975; 0.107974;, - -0.275033; 0.901975; 0.332804;, - 0.042634; 0.764611;-0.643055;, - -0.248390; 0.968535;-0.015168;, - -0.248390; 0.968535;-0.015168;, - -0.220161; 0.971252;-0.090335;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.248390; 0.968535;-0.015168;, - -0.487594; 0.872738;-0.023713;, - -0.490799; 0.864040; 0.111667;, - 0.042634; 0.764611;-0.643055;, - -0.459181; 0.861690;-0.215796;, - -0.487594; 0.872738;-0.023713;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - -0.209876; 0.968566; 0.133488;, - -0.209876; 0.968566; 0.133488;, - -0.209876; 0.968566; 0.133488;, - -0.158361; 0.968474; 0.192114;, - -0.158361; 0.968474; 0.192145;, - -0.209876; 0.968566; 0.133488;, - -0.158361; 0.968474; 0.192114;, - -0.209876; 0.968566; 0.133488;, - -0.407697; 0.873318; 0.266518;, - -0.301248; 0.880825; 0.365154;, - -0.241157; 0.968474; 0.061953;, - -0.490799; 0.864040; 0.111667;, - -0.407697; 0.873318; 0.266518;, - -0.209876; 0.968566; 0.133488;, - 0.028474; 0.998566; 0.044771;, - 0.078097; 0.996551;-0.027009;, - -0.459181; 0.861690;-0.215796;, - -0.266945; 0.867458;-0.419752;, - 0.043184; 0.724693;-0.687674;, - 0.057558; 0.996551;-0.059267;, - 0.091952; 0.989593;-0.110416;, - 0.438917; 0.724784;-0.531053;, - -0.369823; 0.724601;-0.581500;, - -0.028443; 0.998566;-0.044740;, - 0.057558; 0.996551;-0.059267;, - 0.043184; 0.724693;-0.687674;, - 0.231391; 0.902219; 0.363872;, - -0.369823; 0.724601;-0.581500;, - 0.043184; 0.724693;-0.687674;, - -0.027009; 0.902097; 0.430616;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.158361; 0.968474; 0.192145;, - -0.158361; 0.968474; 0.192114;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.005341; 0.973510; 0.228523;, - -0.013459; 0.972137; 0.233894;, - -0.005341; 0.973510; 0.228523;, - -0.091556; 0.968535; 0.231391;, - -0.185247; 0.872738; 0.451643;, - 0.008332; 0.853786; 0.520493;, - -0.185247; 0.872738; 0.451643;, - -0.091556; 0.968535; 0.231391;, - -0.158361; 0.968474; 0.192114;, - -0.301248; 0.880825; 0.365154;, - 0.008332; 0.853786; 0.520493;, - 0.057558; 0.996551;-0.059267;, - -0.028443; 0.998566;-0.044740;, - 0.266579; 0.867855; 0.419172;, - -0.027009; 0.902097; 0.430616;, - 0.043184; 0.724693;-0.687674;, - 0.438917; 0.724784;-0.531053;, - -0.275033; 0.901975; 0.332804;, - -0.133488; 0.968566;-0.209876;, - -0.192114; 0.968474;-0.158391;, - 0.027009; 0.999359; 0.022217;, - 0.019257; 0.999329; 0.030305;, - 0.027009; 0.999359; 0.022217;, - -0.192114; 0.968474;-0.158391;, - -0.231361; 0.968535;-0.091617;, - 0.033021; 0.999359; 0.013092;, - -0.192114; 0.968474;-0.158391;, - -0.180700; 0.972564;-0.146336;, - -0.220161; 0.971252;-0.090335;, - -0.231361; 0.968535;-0.091617;, - 0.143437; 0.963591; 0.225562;, - 0.206458; 0.963500; 0.170232;, - 0.493057; 0.769158; 0.406537;, - 0.343211; 0.768700; 0.539659;, - 0.493057; 0.769158; 0.406537;, - 0.206458; 0.963500; 0.170232;, - 0.248634; 0.963561; 0.098483;, - 0.594440; 0.768883; 0.235420;, - 0.206458; 0.963500; 0.170232;, - 0.027009; 0.999359; 0.022217;, - 0.033021; 0.999359; 0.013092;, - 0.248634; 0.963561; 0.098483;, - 0.019257; 0.999329; 0.030305;, - 0.027009; 0.999359; 0.022217;, - 0.206458; 0.963500; 0.170232;, - 0.143437; 0.963591; 0.225562;, - -0.248390; 0.968535;-0.015168;, - 0.035463; 0.999359; 0.002136;, - 0.033021; 0.999359; 0.013092;, - -0.231361; 0.968535;-0.091617;, - 0.033906; 0.999359;-0.008667;, - 0.035463; 0.999359; 0.002136;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - -0.248390; 0.968535;-0.015168;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - 0.594440; 0.768883; 0.235420;, - 0.248634; 0.963561; 0.098483;, - 0.266945; 0.963561; 0.016297;, - 0.638173; 0.768883; 0.039003;, - 0.266945; 0.963561; 0.016297;, - 0.259163; 0.963500;-0.066561;, - 0.618946; 0.769127;-0.159001;, - 0.638173; 0.768883; 0.039003;, - 0.259163; 0.963500;-0.066561;, - 0.266945; 0.963561; 0.016297;, - 0.035463; 0.999359; 0.002136;, - 0.033906; 0.999359;-0.008667;, - 0.266945; 0.963561; 0.016297;, - 0.248634; 0.963561; 0.098483;, - 0.033021; 0.999359; 0.013092;, - 0.035463; 0.999359; 0.002136;, - -0.248390; 0.968535;-0.015168;, - -0.248390; 0.968535;-0.015168;, - -0.231361; 0.968535;-0.091617;, - -0.220161; 0.971252;-0.090335;, - -0.209906; 0.968535; 0.133488;, - 0.030305; 0.999329;-0.019257;, - 0.033906; 0.999359;-0.008667;, - -0.241157; 0.968474; 0.061953;, - 0.022248; 0.999359;-0.027009;, - 0.030305; 0.999329;-0.019257;, - -0.209906; 0.968535; 0.133488;, - -0.158361; 0.968474; 0.192145;, - -0.158361; 0.968474; 0.192145;, - -0.209906; 0.968535; 0.133488;, - -0.209876; 0.968566; 0.133488;, - -0.158361; 0.968474; 0.192145;, - 0.618946; 0.769127;-0.159001;, - 0.259163; 0.963500;-0.066561;, - 0.225562; 0.963591;-0.143468;, - 0.539689; 0.768700;-0.343211;, - 0.225562; 0.963591;-0.143468;, - 0.170202; 0.963500;-0.206488;, - 0.406446; 0.769127;-0.493149;, - 0.539689; 0.768700;-0.343211;, - 0.170202; 0.963500;-0.206488;, - 0.225562; 0.963591;-0.143468;, - 0.030305; 0.999329;-0.019257;, - 0.022248; 0.999359;-0.027009;, - 0.259163; 0.963500;-0.066561;, - 0.033906; 0.999359;-0.008667;, - 0.030305; 0.999329;-0.019257;, - 0.225562; 0.963591;-0.143468;, - -0.209876; 0.968566; 0.133488;, - -0.209906; 0.968535; 0.133488;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - 0.467574; 0.490707; 0.735191;, - 0.672414; 0.490310; 0.554430;, - 0.745842; 0.255745; 0.615009;, - 0.518784; 0.255745; 0.815729;, - 0.745842; 0.255745; 0.615009;, - 0.672414; 0.490310; 0.554430;, - 0.810175; 0.490524; 0.320841;, - 0.898801; 0.255745; 0.355937;, - 0.672414; 0.490310; 0.554430;, - 0.493057; 0.769158; 0.406537;, - 0.594440; 0.768883; 0.235420;, - 0.810175; 0.490524; 0.320841;, - 0.536546; 0.017121; 0.843654;, - 0.771416; 0.017121; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.536637; 0.000000; 0.843776;, - 0.771508; 0.000000; 0.636158;, - 0.771416; 0.017121; 0.636067;, - 0.929594; 0.017121; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.771416; 0.017121; 0.636067;, - 0.745842; 0.255745; 0.615009;, - 0.898801; 0.255745; 0.355937;, - 0.929594; 0.017121; 0.368145;, - 0.518784; 0.255745; 0.815729;, - 0.745842; 0.255745; 0.615009;, - 0.771416; 0.017121; 0.636067;, - 0.536546; 0.017121; 0.843654;, - 0.869778; 0.490524; 0.053194;, - 0.964934; 0.255745; 0.059023;, - 0.898801; 0.255745; 0.355937;, - 0.810175; 0.490524; 0.320841;, - 0.936308; 0.255715;-0.240577;, - 0.964934; 0.255745; 0.059023;, - 0.869778; 0.490524; 0.053194;, - 0.844111; 0.490310;-0.216865;, - 0.844111; 0.490310;-0.216865;, - 0.869778; 0.490524; 0.053194;, - 0.638173; 0.768883; 0.039003;, - 0.618946; 0.769127;-0.159001;, - 0.929716; 0.000000; 0.368206;, - 0.929594; 0.017121; 0.368145;, - 0.997986; 0.017121; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.997986; 0.017121; 0.061037;, - 0.968383; 0.017121;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.998108; 0.000000; 0.061037;, - 0.968383; 0.017121;-0.248787;, - 0.997986; 0.017121; 0.061037;, - 0.964934; 0.255745; 0.059023;, - 0.936308; 0.255715;-0.240577;, - 0.929594; 0.017121; 0.368145;, - 0.898801; 0.255745; 0.355937;, - 0.964934; 0.255745; 0.059023;, - 0.997986; 0.017121; 0.061037;, - 0.638173; 0.768883; 0.039003;, - 0.869778; 0.490524; 0.053194;, - 0.810175; 0.490524; 0.320841;, - 0.594440; 0.768883; 0.235420;, - 0.735221; 0.490707;-0.467574;, - 0.815729; 0.255745;-0.518784;, - 0.936308; 0.255715;-0.240577;, - 0.844111; 0.490310;-0.216865;, - 0.614887; 0.255715;-0.745964;, - 0.815729; 0.255745;-0.518784;, - 0.735221; 0.490707;-0.467574;, - 0.554308; 0.490310;-0.672506;, - 0.554308; 0.490310;-0.672506;, - 0.735221; 0.490707;-0.467574;, - 0.539689; 0.768700;-0.343211;, - 0.406446; 0.769127;-0.493149;, - 0.968535; 0.000000;-0.248848;, - 0.968383; 0.017121;-0.248787;, - 0.843654; 0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654; 0.017121;-0.536546;, - 0.635945; 0.017121;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.843776; 0.000000;-0.536637;, - 0.635945; 0.017121;-0.771538;, - 0.843654; 0.017121;-0.536546;, - 0.815729; 0.255745;-0.518784;, - 0.614887; 0.255715;-0.745964;, - 0.968383; 0.017121;-0.248787;, - 0.936308; 0.255715;-0.240577;, - 0.815729; 0.255745;-0.518784;, - 0.843654; 0.017121;-0.536546;, - 0.539689; 0.768700;-0.343211;, - 0.735221; 0.490707;-0.467574;, - 0.844111; 0.490310;-0.216865;, - 0.618946; 0.769127;-0.159001;, - 0.343211; 0.768700; 0.539659;, - 0.493057; 0.769158; 0.406537;, - 0.672414; 0.490310; 0.554430;, - 0.467574; 0.490707; 0.735191;, - -0.091556; 0.968535; 0.231391;, - 0.013092; 0.999359;-0.033021;, - 0.022248; 0.999359;-0.027009;, - -0.158361; 0.968474; 0.192145;, - -0.091556; 0.968535; 0.231391;, - -0.015107; 0.968535; 0.248390;, - 0.002106; 0.999359;-0.035463;, - 0.013092; 0.999359;-0.033021;, - -0.015107; 0.968535; 0.248390;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.013459; 0.972137; 0.233894;, - 0.098392; 0.963561;-0.248665;, - 0.235237; 0.768883;-0.594501;, - 0.406446; 0.769127;-0.493149;, - 0.170202; 0.963500;-0.206488;, - 0.098392; 0.963561;-0.248665;, - 0.016236; 0.963561;-0.266945;, - 0.038820; 0.768883;-0.638173;, - 0.235237; 0.768883;-0.594501;, - 0.016236; 0.963561;-0.266945;, - 0.098392; 0.963561;-0.248665;, - 0.013092; 0.999359;-0.033021;, - 0.002106; 0.999359;-0.035463;, - 0.013092; 0.999359;-0.033021;, - 0.098392; 0.963561;-0.248665;, - 0.170202; 0.963500;-0.206488;, - 0.022248; 0.999359;-0.027009;, - -0.015107; 0.968535; 0.248390;, - 0.061983; 0.968474; 0.241157;, - -0.008667; 0.999359;-0.033876;, - 0.002106; 0.999359;-0.035463;, - -0.008667; 0.999359;-0.033876;, - 0.061983; 0.968474; 0.241157;, - 0.133488; 0.968535; 0.209876;, - -0.019257; 0.999329;-0.030305;, - 0.061983; 0.968474; 0.241157;, - 0.052675; 0.974242; 0.219245;, - 0.133488; 0.968566; 0.209876;, - 0.133488; 0.968535; 0.209876;, - 0.016236; 0.963561;-0.266945;, - -0.066622; 0.963530;-0.259163;, - -0.159124; 0.769158;-0.618915;, - 0.038820; 0.768883;-0.638173;, - -0.159124; 0.769158;-0.618915;, - -0.066622; 0.963530;-0.259163;, - -0.143437; 0.963591;-0.225562;, - -0.343211; 0.768700;-0.539659;, - -0.066622; 0.963530;-0.259163;, - -0.008667; 0.999359;-0.033876;, - -0.019257; 0.999329;-0.030305;, - -0.143437; 0.963591;-0.225562;, - -0.066622; 0.963530;-0.259163;, - 0.016236; 0.963561;-0.266945;, - 0.002106; 0.999359;-0.035463;, - -0.008667; 0.999359;-0.033876;, - 0.061983; 0.968474; 0.241157;, - -0.015107; 0.968535; 0.248390;, - -0.013459; 0.972137; 0.233894;, - 0.052675; 0.974242; 0.219245;, - 0.320597; 0.490524;-0.810266;, - 0.355663; 0.255745;-0.898923;, - 0.614887; 0.255715;-0.745964;, - 0.554308; 0.490310;-0.672506;, - 0.058718; 0.255745;-0.964934;, - 0.355663; 0.255745;-0.898923;, - 0.320597; 0.490524;-0.810266;, - 0.052919; 0.490524;-0.869778;, - 0.052919; 0.490524;-0.869778;, - 0.320597; 0.490524;-0.810266;, - 0.235237; 0.768883;-0.594501;, - 0.038820; 0.768883;-0.638173;, - 0.636036; 0.000000;-0.771630;, - 0.635945; 0.017121;-0.771538;, - 0.367870; 0.017121;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.367901; 0.000000;-0.929838;, - 0.367870; 0.017121;-0.929716;, - 0.060732; 0.017121;-0.997986;, - 0.060732; 0.000000;-0.998138;, - 0.060732; 0.017121;-0.997986;, - 0.367870; 0.017121;-0.929716;, - 0.355663; 0.255745;-0.898923;, - 0.058718; 0.255745;-0.964934;, - 0.635945; 0.017121;-0.771538;, - 0.614887; 0.255715;-0.745964;, - 0.355663; 0.255745;-0.898923;, - 0.367870; 0.017121;-0.929716;, - 0.052919; 0.490524;-0.869778;, - -0.217017; 0.490310;-0.844081;, - -0.240761; 0.255745;-0.936277;, - 0.058718; 0.255745;-0.964934;, - -0.240761; 0.255745;-0.936277;, - -0.217017; 0.490310;-0.844081;, - -0.467574; 0.490707;-0.735191;, - -0.518784; 0.255745;-0.815729;, - -0.217017; 0.490310;-0.844081;, - -0.159124; 0.769158;-0.618915;, - -0.343211; 0.768700;-0.539659;, - -0.467574; 0.490707;-0.735191;, - 0.060732; 0.017121;-0.997986;, - -0.248970; 0.017121;-0.968352;, - -0.249001; 0.000000;-0.968474;, - 0.060732; 0.000000;-0.998138;, - -0.249001; 0.000000;-0.968474;, - -0.248970; 0.017121;-0.968352;, - -0.536546; 0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.248970; 0.017121;-0.968352;, - -0.240761; 0.255745;-0.936277;, - -0.518784; 0.255745;-0.815729;, - -0.536546; 0.017121;-0.843654;, - -0.248970; 0.017121;-0.968352;, - 0.060732; 0.017121;-0.997986;, - 0.058718; 0.255745;-0.964934;, - -0.240761; 0.255745;-0.936277;, - -0.217017; 0.490310;-0.844081;, - 0.052919; 0.490524;-0.869778;, - 0.038820; 0.768883;-0.638173;, - -0.159124; 0.769158;-0.618915;, - 0.235237; 0.768883;-0.594501;, - 0.320597; 0.490524;-0.810266;, - 0.554308; 0.490310;-0.672506;, - 0.406446; 0.769127;-0.493149;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.158361; 0.968474; 0.192145;, - -0.158361; 0.968474; 0.192145;, - -0.133488; 0.968566;-0.209876;, - -0.180700; 0.972564;-0.146336;, - -0.192114; 0.968474;-0.158391;, - -0.133488; 0.968566;-0.209876;, - -0.369823; 0.724601;-0.581500;, - -0.641133; 0.724693;-0.252449;, - -0.078066; 0.996551; 0.027009;, - -0.028443; 0.998566;-0.044740;, - -0.641133; 0.724693;-0.252449;, - -0.667043; 0.724784; 0.172308;, - -0.138981; 0.989593; 0.036439;, - -0.078066; 0.996551; 0.027009;, - -0.667043; 0.724784; 0.172308;, - -0.641133; 0.724693;-0.252449;, - 0.401440; 0.902097; 0.158116;, - 0.418012; 0.901975;-0.107944;, - -0.667043; 0.724784; 0.172308;, - -0.438887; 0.724784; 0.531053;, - -0.075381; 0.993957; 0.079409;, - -0.138981; 0.989593; 0.036439;, - 0.275033; 0.901975;-0.332804;, - -0.438887; 0.724784; 0.531053;, - -0.667043; 0.724784; 0.172308;, - 0.418012; 0.901975;-0.107944;, - 0.217536; 0.972137; 0.086947;, - 0.209235; 0.973510; 0.092044;, - 0.248390; 0.968535; 0.015168;, - 0.248390; 0.968535; 0.015168;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - 0.241157; 0.968474;-0.061953;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - 0.248390; 0.968535; 0.015168;, - 0.487594; 0.872738; 0.023713;, - 0.458449; 0.880825;-0.118015;, - 0.209235; 0.973510; 0.092044;, - 0.467849; 0.853786; 0.228278;, - 0.487594; 0.872738; 0.023713;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - 0.241157; 0.968474;-0.061953;, - 0.209876; 0.968566;-0.133488;, - 0.209876; 0.968566;-0.133488;, - 0.209876; 0.968566;-0.133488;, - 0.158361; 0.968474;-0.192114;, - 0.158361; 0.968474;-0.192145;, - 0.209876; 0.968566;-0.133488;, - 0.158361; 0.968474;-0.192114;, - 0.209876; 0.968566;-0.133488;, - 0.414258; 0.873318;-0.256233;, - 0.309244; 0.864040;-0.397137;, - 0.241157; 0.968474;-0.061953;, - 0.458449; 0.880825;-0.118015;, - 0.414258; 0.873318;-0.256233;, - 0.209876; 0.968566;-0.133488;, - -0.028443; 0.998566;-0.044740;, - -0.078066; 0.996551; 0.027009;, - 0.467849; 0.853786; 0.228278;, - 0.266579; 0.867855; 0.419172;, - -0.043184; 0.724693; 0.687674;, - -0.057558; 0.996551; 0.059267;, - -0.075381; 0.993957; 0.079409;, - -0.438887; 0.724784; 0.531053;, - -0.057558; 0.996551; 0.059267;, - -0.043184; 0.724693; 0.687674;, - 0.369823; 0.724601; 0.581500;, - 0.028474; 0.998566; 0.044771;, - -0.043184; 0.724693; 0.687674;, - 0.027009; 0.902097;-0.430616;, - -0.231391; 0.902219;-0.363842;, - 0.369823; 0.724601; 0.581500;, - 0.091556; 0.968535;-0.231391;, - 0.091556; 0.968535;-0.231391;, - 0.158361; 0.968474;-0.192145;, - 0.158361; 0.968474;-0.192114;, - 0.091556; 0.968535;-0.231391;, - -0.402020; 0.880367;-0.251534;, - 0.011567; 0.971252;-0.237678;, - 0.091556; 0.968535;-0.231391;, - -0.402020; 0.880367;-0.251534;, - 0.091556; 0.968535;-0.231391;, - 0.185247; 0.872738;-0.451643;, - -0.000641; 0.861690;-0.507370;, - 0.185247; 0.872738;-0.451643;, - 0.091556; 0.968535;-0.231391;, - 0.158361; 0.968474;-0.192114;, - 0.309244; 0.864040;-0.397137;, - -0.000641; 0.861690;-0.507370;, - -0.057558; 0.996551; 0.059267;, - 0.028474; 0.998566; 0.044771;, - -0.266945; 0.867458;-0.419752;, - 0.027009; 0.902097;-0.430616;, - -0.043184; 0.724693; 0.687674;, - -0.438887; 0.724784; 0.531053;, - 0.275033; 0.901975;-0.332804;, - 0.133488; 0.968535; 0.209876;, - 0.192114; 0.968474; 0.158391;, - -0.027009; 0.999359;-0.022248;, - -0.019257; 0.999329;-0.030305;, - 0.231361; 0.968535; 0.091617;, - -0.033021; 0.999359;-0.013092;, - -0.027009; 0.999359;-0.022248;, - 0.192114; 0.968474; 0.158391;, - 0.217536; 0.972137; 0.086947;, - 0.231361; 0.968535; 0.091617;, - 0.192114; 0.968474; 0.158391;, - 0.176214; 0.974242; 0.140660;, - -0.143437; 0.963591;-0.225562;, - -0.206458; 0.963500;-0.170232;, - -0.493057; 0.769158;-0.406537;, - -0.343211; 0.768700;-0.539659;, - -0.493057; 0.769158;-0.406537;, - -0.206458; 0.963500;-0.170232;, - -0.248634; 0.963561;-0.098483;, - -0.594440; 0.768883;-0.235420;, - -0.206458; 0.963500;-0.170232;, - -0.027009; 0.999359;-0.022248;, - -0.033021; 0.999359;-0.013092;, - -0.248634; 0.963561;-0.098483;, - -0.019257; 0.999329;-0.030305;, - -0.027009; 0.999359;-0.022248;, - -0.206458; 0.963500;-0.170232;, - -0.143437; 0.963591;-0.225562;, - 0.248390; 0.968535; 0.015168;, - -0.035493; 0.999359;-0.002136;, - -0.033021; 0.999359;-0.013092;, - 0.231361; 0.968535; 0.091617;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - -0.033906; 0.999359; 0.008667;, - -0.035493; 0.999359;-0.002136;, - 0.241157; 0.968474;-0.061953;, - 0.248390; 0.968535; 0.015168;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - -0.266945; 0.963561;-0.016297;, - -0.638173; 0.768883;-0.039003;, - -0.594440; 0.768883;-0.235420;, - -0.248634; 0.963561;-0.098483;, - -0.266945; 0.963561;-0.016297;, - -0.259163; 0.963500; 0.066561;, - -0.618946; 0.769127; 0.159001;, - -0.638173; 0.768883;-0.039003;, - -0.259163; 0.963500; 0.066561;, - -0.266945; 0.963561;-0.016297;, - -0.035493; 0.999359;-0.002136;, - -0.033906; 0.999359; 0.008667;, - -0.035493; 0.999359;-0.002136;, - -0.266945; 0.963561;-0.016297;, - -0.248634; 0.963561;-0.098483;, - -0.033021; 0.999359;-0.013092;, - 0.248390; 0.968535; 0.015168;, - 0.231361; 0.968535; 0.091617;, - 0.217536; 0.972137; 0.086947;, - 0.248390; 0.968535; 0.015168;, - 0.209906; 0.968535;-0.133488;, - -0.030305; 0.999329; 0.019257;, - -0.033906; 0.999359; 0.008667;, - 0.241157; 0.968474;-0.061953;, - 0.209906; 0.968535;-0.133488;, - 0.158361; 0.968474;-0.192145;, - -0.022248; 0.999359; 0.027009;, - -0.030305; 0.999329; 0.019257;, - 0.158361; 0.968474;-0.192145;, - 0.209906; 0.968535;-0.133488;, - 0.209876; 0.968566;-0.133488;, - 0.158361; 0.968474;-0.192145;, - -0.225562; 0.963591; 0.143468;, - -0.539689; 0.768700; 0.343211;, - -0.618946; 0.769127; 0.159001;, - -0.259163; 0.963500; 0.066561;, - -0.225562; 0.963591; 0.143468;, - -0.170202; 0.963500; 0.206488;, - -0.406446; 0.769127; 0.493149;, - -0.539689; 0.768700; 0.343211;, - -0.170202; 0.963500; 0.206488;, - -0.225562; 0.963591; 0.143468;, - -0.030305; 0.999329; 0.019257;, - -0.022248; 0.999359; 0.027009;, - -0.030305; 0.999329; 0.019257;, - -0.225562; 0.963591; 0.143468;, - -0.259163; 0.963500; 0.066561;, - -0.033906; 0.999359; 0.008667;, - 0.209876; 0.968566;-0.133488;, - 0.209906; 0.968535;-0.133488;, - 0.241157; 0.968474;-0.061953;, - 0.241157; 0.968474;-0.061953;, - -0.467574; 0.490707;-0.735191;, - -0.672414; 0.490310;-0.554430;, - -0.745842; 0.255745;-0.615009;, - -0.518784; 0.255745;-0.815729;, - -0.745842; 0.255745;-0.615009;, - -0.672414; 0.490310;-0.554430;, - -0.810175; 0.490524;-0.320841;, - -0.898801; 0.255745;-0.355937;, - -0.672414; 0.490310;-0.554430;, - -0.493057; 0.769158;-0.406537;, - -0.594440; 0.768883;-0.235420;, - -0.810175; 0.490524;-0.320841;, - -0.536546; 0.017121;-0.843654;, - -0.771416; 0.017121;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.536637; 0.000000;-0.843776;, - -0.771508; 0.000000;-0.636158;, - -0.771416; 0.017121;-0.636067;, - -0.929594; 0.017121;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.771416; 0.017121;-0.636067;, - -0.745842; 0.255745;-0.615009;, - -0.898801; 0.255745;-0.355937;, - -0.929594; 0.017121;-0.368145;, - -0.518784; 0.255745;-0.815729;, - -0.745842; 0.255745;-0.615009;, - -0.771416; 0.017121;-0.636067;, - -0.536546; 0.017121;-0.843654;, - -0.869778; 0.490524;-0.053194;, - -0.964934; 0.255715;-0.059023;, - -0.898801; 0.255745;-0.355937;, - -0.810175; 0.490524;-0.320841;, - -0.936308; 0.255745; 0.240577;, - -0.964934; 0.255715;-0.059023;, - -0.869778; 0.490524;-0.053194;, - -0.844111; 0.490310; 0.216865;, - -0.844111; 0.490310; 0.216865;, - -0.869778; 0.490524;-0.053194;, - -0.638173; 0.768883;-0.039003;, - -0.618946; 0.769127; 0.159001;, - -0.929594; 0.017121;-0.368145;, - -0.997986; 0.017121;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.929716; 0.000000;-0.368206;, - -0.997986; 0.017121;-0.061037;, - -0.968383; 0.017121; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.998108; 0.000000;-0.061037;, - -0.968383; 0.017121; 0.248787;, - -0.997986; 0.017121;-0.061037;, - -0.964934; 0.255715;-0.059023;, - -0.936308; 0.255745; 0.240577;, - -0.929594; 0.017121;-0.368145;, - -0.898801; 0.255745;-0.355937;, - -0.964934; 0.255715;-0.059023;, - -0.997986; 0.017121;-0.061037;, - -0.638173; 0.768883;-0.039003;, - -0.869778; 0.490524;-0.053194;, - -0.810175; 0.490524;-0.320841;, - -0.594440; 0.768883;-0.235420;, - -0.735221; 0.490707; 0.467574;, - -0.815729; 0.255745; 0.518784;, - -0.936308; 0.255745; 0.240577;, - -0.844111; 0.490310; 0.216865;, - -0.614887; 0.255745; 0.745964;, - -0.815729; 0.255745; 0.518784;, - -0.735221; 0.490707; 0.467574;, - -0.554308; 0.490310; 0.672506;, - -0.554308; 0.490310; 0.672506;, - -0.735221; 0.490707; 0.467574;, - -0.539689; 0.768700; 0.343211;, - -0.406446; 0.769127; 0.493149;, - -0.968535; 0.000000; 0.248848;, - -0.968383; 0.017121; 0.248787;, - -0.843654; 0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654; 0.017121; 0.536546;, - -0.635945; 0.017121; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.843776; 0.000000; 0.536637;, - -0.635945; 0.017121; 0.771538;, - -0.843654; 0.017121; 0.536546;, - -0.815729; 0.255745; 0.518784;, - -0.614887; 0.255745; 0.745964;, - -0.968383; 0.017121; 0.248787;, - -0.936308; 0.255745; 0.240577;, - -0.815729; 0.255745; 0.518784;, - -0.843654; 0.017121; 0.536546;, - -0.539689; 0.768700; 0.343211;, - -0.735221; 0.490707; 0.467574;, - -0.844111; 0.490310; 0.216865;, - -0.618946; 0.769127; 0.159001;, - -0.343211; 0.768700;-0.539659;, - -0.493057; 0.769158;-0.406537;, - -0.672414; 0.490310;-0.554430;, - -0.467574; 0.490707;-0.735191;, - 0.091556; 0.968535;-0.231391;, - -0.013092; 0.999359; 0.033052;, - -0.022248; 0.999359; 0.027009;, - 0.158361; 0.968474;-0.192145;, - 0.091556; 0.968535;-0.231391;, - 0.015107; 0.968535;-0.248390;, - -0.002106; 0.999359; 0.035463;, - -0.013092; 0.999359; 0.033052;, - 0.011567; 0.971252;-0.237678;, - 0.015107; 0.968535;-0.248390;, - 0.091556; 0.968535;-0.231391;, - 0.091556; 0.968535;-0.231391;, - -0.098392; 0.963561; 0.248665;, - -0.235237; 0.768883; 0.594531;, - -0.406446; 0.769127; 0.493149;, - -0.170202; 0.963500; 0.206488;, - -0.098392; 0.963561; 0.248665;, - -0.016236; 0.963561; 0.266945;, - -0.038820; 0.768883; 0.638173;, - -0.235237; 0.768883; 0.594531;, - -0.016236; 0.963561; 0.266945;, - -0.098392; 0.963561; 0.248665;, - -0.013092; 0.999359; 0.033052;, - -0.002106; 0.999359; 0.035463;, - -0.013092; 0.999359; 0.033052;, - -0.098392; 0.963561; 0.248665;, - -0.170202; 0.963500; 0.206488;, - -0.022248; 0.999359; 0.027009;, - 0.015107; 0.968535;-0.248390;, - -0.061983; 0.968474;-0.241157;, - 0.008667; 0.999359; 0.033876;, - -0.002106; 0.999359; 0.035463;, - 0.008667; 0.999359; 0.033876;, - -0.061983; 0.968474;-0.241157;, - -0.133488; 0.968566;-0.209876;, - 0.019257; 0.999329; 0.030305;, - -0.061983; 0.968474;-0.241157;, - -0.055910; 0.972564;-0.225715;, - -0.133488; 0.968566;-0.209876;, - -0.133488; 0.968566;-0.209876;, - -0.016236; 0.963561; 0.266945;, - 0.066622; 0.963530; 0.259163;, - 0.159124; 0.769158; 0.618915;, - -0.038820; 0.768883; 0.638173;, - 0.159124; 0.769158; 0.618915;, - 0.066622; 0.963530; 0.259163;, - 0.143437; 0.963591; 0.225562;, - 0.343211; 0.768700; 0.539659;, - 0.066622; 0.963530; 0.259163;, - 0.008667; 0.999359; 0.033876;, - 0.019257; 0.999329; 0.030305;, - 0.143437; 0.963591; 0.225562;, - 0.066622; 0.963530; 0.259163;, - -0.016236; 0.963561; 0.266945;, - -0.002106; 0.999359; 0.035463;, - 0.008667; 0.999359; 0.033876;, - -0.061983; 0.968474;-0.241157;, - 0.015107; 0.968535;-0.248390;, - 0.011567; 0.971252;-0.237678;, - -0.055910; 0.972564;-0.225715;, - -0.320597; 0.490524; 0.810266;, - -0.355663; 0.255715; 0.898923;, - -0.614887; 0.255745; 0.745964;, - -0.554308; 0.490310; 0.672506;, - -0.320597; 0.490524; 0.810266;, - -0.052919; 0.490524; 0.869778;, - -0.058718; 0.255745; 0.964934;, - -0.355663; 0.255715; 0.898923;, - -0.052919; 0.490524; 0.869778;, - -0.320597; 0.490524; 0.810266;, - -0.235237; 0.768883; 0.594531;, - -0.038820; 0.768883; 0.638173;, - -0.367840; 0.017121; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.636036; 0.000000; 0.771630;, - -0.635945; 0.017121; 0.771538;, - -0.367840; 0.017121; 0.929716;, - -0.060732; 0.017121; 0.997986;, - -0.060732; 0.000000; 0.998138;, - -0.367901; 0.000000; 0.929838;, - -0.060732; 0.017121; 0.997986;, - -0.367840; 0.017121; 0.929716;, - -0.355663; 0.255715; 0.898923;, - -0.058718; 0.255745; 0.964934;, - -0.355663; 0.255715; 0.898923;, - -0.367840; 0.017121; 0.929716;, - -0.635945; 0.017121; 0.771538;, - -0.614887; 0.255745; 0.745964;, - -0.052919; 0.490524; 0.869778;, - 0.217017; 0.490310; 0.844081;, - 0.240730; 0.255745; 0.936277;, - -0.058718; 0.255745; 0.964934;, - 0.240730; 0.255745; 0.936277;, - 0.217017; 0.490310; 0.844081;, - 0.467574; 0.490707; 0.735191;, - 0.518784; 0.255745; 0.815729;, - 0.217017; 0.490310; 0.844081;, - 0.159124; 0.769158; 0.618915;, - 0.343211; 0.768700; 0.539659;, - 0.467574; 0.490707; 0.735191;, - -0.060732; 0.017121; 0.997986;, - 0.248970; 0.017121; 0.968352;, - 0.249001; 0.000000; 0.968474;, - -0.060732; 0.000000; 0.998138;, - 0.249001; 0.000000; 0.968474;, - 0.248970; 0.017121; 0.968352;, - 0.536546; 0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.248970; 0.017121; 0.968352;, - 0.240730; 0.255745; 0.936277;, - 0.518784; 0.255745; 0.815729;, - 0.536546; 0.017121; 0.843654;, - 0.248970; 0.017121; 0.968352;, - -0.060732; 0.017121; 0.997986;, - -0.058718; 0.255745; 0.964934;, - 0.240730; 0.255745; 0.936277;, - 0.217017; 0.490310; 0.844081;, - -0.052919; 0.490524; 0.869778;, - -0.038820; 0.768883; 0.638173;, - 0.159124; 0.769158; 0.618915;, - -0.235237; 0.768883; 0.594531;, - -0.320597; 0.490524; 0.810266;, - -0.554308; 0.490310; 0.672506;, - -0.406446; 0.769127; 0.493149;, - 0.091556; 0.968535;-0.231391;, - 0.091556; 0.968535;-0.231391;, - 0.158361; 0.968474;-0.192145;, - 0.158361; 0.968474;-0.192145;, - 0.192114; 0.968474; 0.158391;, - 0.133488; 0.968535; 0.209876;, - 0.133488; 0.968566; 0.209876;, - 0.176214; 0.974242; 0.140660;, - -0.641133; 0.724693;-0.252449;, - -0.369823; 0.724601;-0.581500;, - 0.231391; 0.902219; 0.363872;, - 0.401440; 0.902097; 0.158116;, - 0.641133; 0.724693; 0.252449;, - 0.369823; 0.724601; 0.581500;, - -0.231391; 0.902219;-0.363842;, - -0.401440; 0.902097;-0.158116;, - 0.020753; 0.999634; 0.017121;, - 0.014435; 0.999634; 0.022706;, - 0.000000; 1.000000; 0.000000;, - -0.055910;-0.972564;-0.225745;, - -0.133488;-0.968566;-0.209876;, - -0.266732;-0.867672;-0.419477;, - -0.388989;-0.886013;-0.252205;, - 0.011567;-0.971252;-0.237678;, - -0.000641;-0.861690;-0.507370;, - -0.266732;-0.867672;-0.419477;, - -0.000641;-0.861690;-0.507370;, - 0.011567;-0.971252;-0.237678;, - -0.055910;-0.972564;-0.225745;, - 0.185247;-0.872738;-0.451643;, - -0.000641;-0.861690;-0.507370;, - 0.005158;-0.865230;-0.501297;, - 0.292703;-0.885708;-0.360271;, - 0.309244;-0.864040;-0.397168;, - 0.185247;-0.872738;-0.451643;, - 0.005158;-0.865230;-0.501297;, - 0.414258;-0.873318;-0.256233;, - 0.309244;-0.864040;-0.397168;, - 0.292703;-0.885708;-0.360271;, - 0.425275;-0.898373;-0.109561;, - 0.458449;-0.880825;-0.118015;, - 0.414258;-0.873318;-0.256233;, - 0.292703;-0.885708;-0.360271;, - 0.209235;-0.973510; 0.092044;, - 0.467849;-0.853786; 0.228278;, - 0.266579;-0.867855; 0.419172;, - 0.176214;-0.974242; 0.140660;, - 0.266579;-0.867855; 0.419172;, - 0.133488;-0.968535; 0.209876;, - 0.266579;-0.867855; 0.419172;, - 0.176214;-0.974242; 0.140660;, - 0.217536;-0.972137; 0.086947;, - 0.209235;-0.973510; 0.092044;, - 0.467849;-0.853786; 0.228278;, - 0.487594;-0.872738; 0.023713;, - 0.456191;-0.865230; 0.207862;, - 0.456191;-0.865230; 0.207862;, - 0.487594;-0.872738; 0.023713;, - 0.458449;-0.880825;-0.118015;, - 0.425275;-0.898373;-0.109561;, - 0.266579;-0.867855; 0.419172;, - 0.008362;-0.853786; 0.520524;, - -0.005341;-0.973510; 0.228523;, - 0.133488;-0.968535; 0.209876;, - 0.266579;-0.867855; 0.419172;, - 0.052675;-0.974242; 0.219245;, - -0.013459;-0.972137; 0.233894;, - 0.052675;-0.974242; 0.219245;, - 0.266579;-0.867855; 0.419172;, - -0.005341;-0.973510; 0.228523;, - -0.005158;-0.865230; 0.501297;, - -0.185278;-0.872707; 0.451643;, - 0.008362;-0.853786; 0.520524;, - -0.301279;-0.880825; 0.365154;, - -0.185278;-0.872707; 0.451643;, - -0.005158;-0.865230; 0.501297;, - -0.279550;-0.898373; 0.338694;, - -0.450392;-0.885708; 0.112308;, - -0.490829;-0.864040; 0.111667;, - -0.407727;-0.873318; 0.266518;, - -0.407727;-0.873318; 0.266518;, - -0.301279;-0.880825; 0.365154;, - -0.279550;-0.898373; 0.338694;, - -0.450392;-0.885708; 0.112308;, - -0.266732;-0.867672;-0.419477;, - -0.133488;-0.968566;-0.209876;, - -0.176214;-0.974242;-0.140660;, - -0.467849;-0.853786;-0.228278;, - -0.266732;-0.867672;-0.419477;, - -0.209235;-0.973510;-0.092044;, - -0.217536;-0.972137;-0.086947;, - -0.209235;-0.973510;-0.092044;, - -0.266732;-0.867672;-0.419477;, - -0.176214;-0.974242;-0.140660;, - -0.456191;-0.865230;-0.207862;, - -0.467849;-0.853786;-0.228278;, - -0.487594;-0.872707;-0.023713;, - -0.487594;-0.872707;-0.023713;, - -0.490829;-0.864040; 0.111667;, - -0.450392;-0.885708; 0.112308;, - -0.456191;-0.865230;-0.207862;, - -0.332652; 0.933775;-0.131779;, - -0.293161; 0.947356;-0.128574;, - -0.288156; 0.934049;-0.210974;, - -0.187475; 0.936949;-0.294809;, - -0.288156; 0.934049;-0.210974;, - -0.293161; 0.947356;-0.128574;, - -0.231788; 0.947172;-0.221564;, - -0.171239; 0.947691;-0.269265;, - -0.102359; 0.947172;-0.303873;, - -0.187475; 0.936949;-0.294809;, - -0.231788; 0.947172;-0.221564;, - -0.068880; 0.934049;-0.350414;, - 0.007813; 0.947356;-0.320017;, - 0.021668; 0.933775;-0.357128;, - 0.007813; 0.947356;-0.320017;, - -0.068880; 0.934049;-0.350414;, - -0.187475; 0.936949;-0.294809;, - -0.102359; 0.947172;-0.303873;, - -0.332652; 0.933775;-0.131779;, - -0.357128; 0.933775;-0.021790;, - -0.322428; 0.946348;-0.019745;, - -0.293161; 0.947356;-0.128574;, - -0.357128; 0.933775;-0.021790;, - -0.346049; 0.933988; 0.088870;, - -0.313639; 0.946104; 0.080599;, - -0.322428; 0.946348;-0.019745;, - -0.346049; 0.933988; 0.088870;, - -0.302194; 0.933653; 0.192206;, - -0.272103; 0.946562; 0.173070;, - -0.313639; 0.946104; 0.080599;, - -0.227210; 0.933988; 0.275704;, - -0.205969; 0.946104; 0.249886;, - -0.272103; 0.946562; 0.173070;, - -0.302194; 0.933653; 0.192206;, - -0.329112; 0.767418;-0.550218;, - -0.408368; 0.583178;-0.702231;, - -0.681814; 0.510941;-0.523484;, - -0.726005; 0.635792;-0.262032;, - -0.531877; 0.826563;-0.183935;, - -0.329112; 0.767418;-0.550218;, - -0.681814; 0.510941;-0.523484;, - -0.935118; 0.332469; 0.122379;, - -0.726005; 0.635792;-0.262032;, - -0.942015; 0.290139;-0.168523;, - -0.935118; 0.332469; 0.122379;, - -0.942015; 0.290139;-0.168523;, - -0.778314; 0.582446; 0.234413;, - -0.531877; 0.826563;-0.183935;, - -0.726005; 0.635792;-0.262032;, - -0.935118; 0.332469; 0.122379;, - -0.109928; 0.992584;-0.051485;, - -0.395184; 0.765618; 0.507523;, - -0.744682; 0.504440; 0.436933;, - -0.490738; 0.583361; 0.647145;, - -0.778314; 0.582446; 0.234413;, - -0.744682; 0.504440; 0.436933;, - -0.395184; 0.765618; 0.507523;, - -0.935118; 0.332469; 0.122379;, - -0.131657; 0.933775; 0.332682;, - -0.118839; 0.946348; 0.300394;, - -0.205969; 0.946104; 0.249886;, - -0.227210; 0.933988; 0.275704;, - -0.021668; 0.933775; 0.357128;, - -0.003632; 0.949767; 0.312906;, - -0.118839; 0.946348; 0.300394;, - -0.131657; 0.933775; 0.332682;, - -0.003632; 0.949767; 0.312906;, - -0.021668; 0.933775; 0.357128;, - 0.094455; 0.922513; 0.374157;, - 0.003571; 0.999878; 0.013977;, - -0.003632; 0.949767; 0.312906;, - 0.168676; 0.949278; 0.265236;, - 0.207251; 0.922391; 0.325877;, - 0.168676; 0.949278; 0.265236;, - -0.003632; 0.949767; 0.312906;, - 0.094455; 0.922513; 0.374157;, - -0.021485; 0.766717; 0.641621;, - -0.345347; 0.507126; 0.789636;, - -0.017060; 0.583819; 0.811670;, - -0.490738; 0.583361; 0.647145;, - -0.345347; 0.507126; 0.789636;, - -0.021485; 0.766717; 0.641621;, - -0.395184; 0.765618; 0.507523;, - 0.185003; 0.510941; 0.839442;, - 0.462813; 0.583178; 0.667592;, - 0.358745; 0.767388; 0.531358;, - 0.358745; 0.767388; 0.531358;, - -0.021485; 0.766717; 0.641621;, - -0.017060; 0.583819; 0.811670;, - 0.185003; 0.510941; 0.839442;, - 0.298807; 0.922513; 0.244179;, - 0.332652; 0.933775; 0.131779;, - 0.284951; 0.949767; 0.129368;, - 0.168676; 0.949278; 0.265236;, - 0.284951; 0.949767; 0.129368;, - 0.011139; 0.999878; 0.009186;, - 0.284951; 0.949767; 0.129368;, - 0.168676; 0.949278; 0.265236;, - 0.207251; 0.922391; 0.325877;, - 0.298807; 0.922513; 0.244179;, - 0.313639; 0.946104;-0.080599;, - 0.322428; 0.946348; 0.019745;, - 0.357128; 0.933775; 0.021790;, - 0.346049; 0.933988;-0.088870;, - 0.322428; 0.946348; 0.019745;, - 0.284951; 0.949767; 0.129368;, - 0.332652; 0.933775; 0.131779;, - 0.357128; 0.933775; 0.021790;, - 0.272103; 0.946562;-0.173070;, - 0.302194; 0.933653;-0.192206;, - 0.227210; 0.933988;-0.275704;, - 0.205969; 0.946104;-0.249886;, - 0.313639; 0.946104;-0.080599;, - 0.346049; 0.933988;-0.088870;, - 0.302194; 0.933653;-0.192206;, - 0.272103; 0.946562;-0.173070;, - 0.643941; 0.510849; 0.569475;, - 0.694784; 0.664479; 0.275155;, - 0.561815; 0.796777; 0.222358;, - 0.561815; 0.796777; 0.222358;, - 0.358745; 0.767388; 0.531358;, - 0.462813; 0.583178; 0.667592;, - 0.643941; 0.510849; 0.569475;, - 0.694784; 0.664479; 0.275155;, - 0.861568; 0.507126; 0.022034;, - 0.561815; 0.796777; 0.222358;, - 0.561815; 0.796777; 0.222358;, - 0.861568; 0.507126; 0.022034;, - 0.794183; 0.583392;-0.170049;, - 0.627277; 0.765557;-0.142705;, - 0.794183; 0.583392;-0.170049;, - 0.711478; 0.504440;-0.489181;, - 0.627277; 0.765557;-0.142705;, - 0.627277; 0.765557;-0.142705;, - 0.711478; 0.504440;-0.489181;, - 0.542314; 0.582446;-0.605487;, - 0.423078; 0.765496;-0.484725;, - 0.118839; 0.946348;-0.300394;, - 0.131657; 0.933775;-0.332682;, - 0.021668; 0.933775;-0.357128;, - 0.007813; 0.947356;-0.320017;, - 0.205969; 0.946104;-0.249886;, - 0.227210; 0.933988;-0.275704;, - 0.131657; 0.933775;-0.332682;, - 0.118839; 0.946348;-0.300394;, - 0.542314; 0.582446;-0.605487;, - 0.288675; 0.506974;-0.812159;, - 0.423078; 0.765496;-0.484725;, - 0.423078; 0.765496;-0.484725;, - 0.288675; 0.506974;-0.812159;, - 0.082217; 0.582415;-0.808710;, - 0.056917; 0.766594;-0.639576;, - 0.056917; 0.766594;-0.639576;, - 0.082217; 0.582415;-0.808710;, - -0.242714; 0.510849;-0.824671;, - -0.408368; 0.583178;-0.702231;, - -0.329112; 0.767418;-0.550218;, - 0.056917; 0.766594;-0.639576;, - -0.242714; 0.510849;-0.824671;, - -0.180700; 0.972564;-0.146336;, - -0.133488; 0.968566;-0.209876;, - -0.266945; 0.867458;-0.419752;, - 0.042634; 0.764611;-0.643055;, - -0.220161; 0.971252;-0.090335;, - -0.459181; 0.861690;-0.215796;, - -0.266945; 0.867458;-0.419752;, - -0.459181; 0.861690;-0.215796;, - -0.220161; 0.971252;-0.090335;, - -0.180700; 0.972564;-0.146336;, - -0.487594; 0.872738;-0.023713;, - -0.459181; 0.861690;-0.215796;, - 0.078097; 0.996551;-0.027009;, - 0.103916; 0.993957;-0.034608;, - -0.490799; 0.864040; 0.111667;, - -0.487594; 0.872738;-0.023713;, - 0.078097; 0.996551;-0.027009;, - -0.407697; 0.873318; 0.266518;, - -0.490799; 0.864040; 0.111667;, - 0.103916; 0.993957;-0.034608;, - 0.091952; 0.989593;-0.110416;, - -0.301248; 0.880825; 0.365154;, - -0.407697; 0.873318; 0.266518;, - 0.103916; 0.993957;-0.034608;, - -0.005341; 0.973510; 0.228523;, - 0.008332; 0.853786; 0.520493;, - 0.266579; 0.867855; 0.419172;, - 0.052675; 0.974242; 0.219245;, - 0.266579; 0.867855; 0.419172;, - 0.133488; 0.968566; 0.209876;, - 0.266579; 0.867855; 0.419172;, - 0.052675; 0.974242; 0.219245;, - -0.013459; 0.972137; 0.233894;, - -0.005341; 0.973510; 0.228523;, - 0.008332; 0.853786; 0.520493;, - -0.185247; 0.872738; 0.451643;, - 0.057558; 0.996551;-0.059267;, - 0.057558; 0.996551;-0.059267;, - -0.185247; 0.872738; 0.451643;, - -0.301248; 0.880825; 0.365154;, - 0.091952; 0.989593;-0.110416;, - 0.266579; 0.867855; 0.419172;, - 0.467849; 0.853786; 0.228278;, - 0.209235; 0.973510; 0.092044;, - 0.133488; 0.968566; 0.209876;, - 0.266579; 0.867855; 0.419172;, - 0.176214; 0.974242; 0.140660;, - 0.217536; 0.972137; 0.086947;, - 0.176214; 0.974242; 0.140660;, - 0.266579; 0.867855; 0.419172;, - 0.209235; 0.973510; 0.092044;, - -0.078066; 0.996551; 0.027009;, - 0.487594; 0.872738; 0.023713;, - 0.467849; 0.853786; 0.228278;, - 0.458449; 0.880825;-0.118015;, - 0.487594; 0.872738; 0.023713;, - -0.078066; 0.996551; 0.027009;, - -0.138981; 0.989593; 0.036439;, - -0.075381; 0.993957; 0.079409;, - 0.309244; 0.864040;-0.397137;, - 0.414258; 0.873318;-0.256233;, - 0.414258; 0.873318;-0.256233;, - 0.458449; 0.880825;-0.118015;, - -0.138981; 0.989593; 0.036439;, - -0.075381; 0.993957; 0.079409;, - -0.266945; 0.867458;-0.419752;, - -0.133488; 0.968566;-0.209876;, - -0.055910; 0.972564;-0.225715;, - -0.000641; 0.861690;-0.507370;, - 0.011567; 0.971252;-0.237678;, - -0.402020; 0.880367;-0.251534;, - 0.011567; 0.971252;-0.237678;, - -0.000641; 0.861690;-0.507370;, - -0.266945; 0.867458;-0.419752;, - -0.055910; 0.972564;-0.225715;, - -0.057558; 0.996551; 0.059267;, - -0.000641; 0.861690;-0.507370;, - 0.185247; 0.872738;-0.451643;, - 0.185247; 0.872738;-0.451643;, - 0.309244; 0.864040;-0.397137;, - -0.075381; 0.993957; 0.079409;, - -0.057558; 0.996551; 0.059267;, - 0.000000;-1.000000; 0.000000;, - -0.456191;-0.865230;-0.207862;, - -0.450392;-0.885708; 0.112308;, - 0.000000;-1.000000; 0.000000;, - 0.292703;-0.885708;-0.360271;, - 0.005158;-0.865230;-0.501297;, - 0.115299; 0.992279; 0.045381;, - -0.707816; 0.682302; 0.182836;, - -0.680319; 0.682180;-0.267891;, - 0.007752; 0.992279;-0.123692;, - -0.045808; 0.682180; 0.729728;, - -0.465712; 0.682302; 0.563494;, - 0.079012; 0.992248;-0.095614;, - -0.395184; 0.765618; 0.507523;, - -0.021485; 0.766717; 0.641621;, - 0.079012; 0.992248;-0.095614;, - -0.021485; 0.766717; 0.641621;, - 0.007752; 0.992279;-0.123692;, - -0.465712; 0.682302; 0.563494;, - 0.115299; 0.992279; 0.045381;, - -0.531877; 0.826563;-0.183935;, - -0.109928; 0.992584;-0.051485;, - -0.707816; 0.682302; 0.182836;, - -0.279550;-0.898373; 0.338694;, - -0.005158;-0.865230; 0.501297;, - 0.000000;-1.000000; 0.000000;, - -0.450392;-0.885708; 0.112308;, - 0.425275;-0.898373;-0.109561;, - 0.292703;-0.885708;-0.360271;, - 0.000000;-1.000000; 0.000000;, - 0.456191;-0.865230; 0.207862;, - 0.275185;-0.858486; 0.432691;, - 0.456191;-0.865230; 0.207862;, - 0.000000;-1.000000; 0.000000;, - -0.005158;-0.865230; 0.501297;, - 0.000000;-1.000000; 0.000000;, - 0.005158;-0.865230;-0.501297;, - -0.275185;-0.858486;-0.432691;, - -0.456191;-0.865230;-0.207862;, - 0.011567;-0.971252;-0.237678;, - -0.388989;-0.886013;-0.252205;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.091556;-0.968535;-0.231391;, - 0.185247;-0.872738;-0.451643;, - 0.309244;-0.864040;-0.397168;, - -0.388989;-0.886013;-0.252205;, - -0.000641;-0.861690;-0.507370;, - 0.185247;-0.872738;-0.451643;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - 0.209876;-0.968566;-0.133488;, - 0.414258;-0.873318;-0.256233;, - 0.458449;-0.880825;-0.118015;, - 0.158361;-0.968474;-0.192145;, - 0.309244;-0.864040;-0.397168;, - 0.414258;-0.873318;-0.256233;, - 0.209876;-0.968566;-0.133488;, - -0.275185;-0.858486;-0.432691;, - 0.005158;-0.865230;-0.501297;, - -0.000641;-0.861690;-0.507370;, - -0.266732;-0.867672;-0.419477;, - 0.248390;-0.968535; 0.015168;, - 0.248390;-0.968535; 0.015168;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - 0.248390;-0.968535; 0.015168;, - 0.209235;-0.973510; 0.092044;, - 0.217536;-0.972137; 0.086947;, - 0.248390;-0.968535; 0.015168;, - 0.209235;-0.973510; 0.092044;, - 0.248390;-0.968535; 0.015168;, - 0.487594;-0.872738; 0.023682;, - 0.467849;-0.853786; 0.228278;, - 0.487594;-0.872738; 0.023682;, - 0.248390;-0.968535; 0.015168;, - 0.241157;-0.968474;-0.061953;, - 0.458449;-0.880825;-0.118015;, - 0.467849;-0.853786; 0.228278;, - 0.456191;-0.865230; 0.207862;, - 0.275185;-0.858486; 0.432691;, - 0.266579;-0.867855; 0.419172;, - -0.133488;-0.968566;-0.209876;, - -0.061983;-0.968474;-0.241157;, - 0.008667;-0.999359; 0.033876;, - 0.019257;-0.999329; 0.030305;, - 0.008667;-0.999359; 0.033876;, - -0.061983;-0.968474;-0.241157;, - 0.015107;-0.968535;-0.248390;, - -0.002106;-0.999359; 0.035463;, - -0.061983;-0.968474;-0.241157;, - -0.055910;-0.972564;-0.225745;, - 0.011567;-0.971252;-0.237678;, - 0.015107;-0.968535;-0.248390;, - 0.143437;-0.963591; 0.225562;, - 0.066622;-0.963500; 0.259163;, - 0.159124;-0.769158; 0.618915;, - 0.343211;-0.768700; 0.539659;, - 0.159124;-0.769158; 0.618915;, - 0.066622;-0.963500; 0.259163;, - -0.016236;-0.963561; 0.266945;, - -0.038820;-0.768883; 0.638173;, - 0.066622;-0.963500; 0.259163;, - 0.008667;-0.999359; 0.033876;, - -0.002106;-0.999359; 0.035463;, - -0.016236;-0.963561; 0.266945;, - 0.019257;-0.999329; 0.030305;, - 0.008667;-0.999359; 0.033876;, - 0.066622;-0.963500; 0.259163;, - 0.143437;-0.963591; 0.225562;, - 0.091556;-0.968535;-0.231391;, - -0.013092;-0.999359; 0.033052;, - -0.002106;-0.999359; 0.035463;, - 0.015107;-0.968535;-0.248390;, - -0.022248;-0.999359; 0.027009;, - -0.013092;-0.999359; 0.033052;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.158361;-0.968474;-0.192145;, - -0.038820;-0.768883; 0.638173;, - -0.016236;-0.963561; 0.266945;, - -0.098392;-0.963561; 0.248665;, - -0.235237;-0.768883; 0.594531;, - -0.098392;-0.963561; 0.248665;, - -0.170202;-0.963500; 0.206488;, - -0.406446;-0.769127; 0.493149;, - -0.235237;-0.768883; 0.594531;, - -0.170202;-0.963500; 0.206488;, - -0.098392;-0.963561; 0.248665;, - -0.013092;-0.999359; 0.033052;, - -0.022248;-0.999359; 0.027009;, - -0.016236;-0.963561; 0.266945;, - -0.002106;-0.999359; 0.035463;, - -0.013092;-0.999359; 0.033052;, - -0.098392;-0.963561; 0.248665;, - 0.091556;-0.968535;-0.231391;, - 0.091556;-0.968535;-0.231391;, - 0.015107;-0.968535;-0.248390;, - 0.011567;-0.971252;-0.237678;, - 0.209876;-0.968566;-0.133488;, - -0.030305;-0.999329; 0.019288;, - -0.022248;-0.999359; 0.027009;, - 0.158361;-0.968474;-0.192145;, - -0.033906;-0.999359; 0.008667;, - -0.030305;-0.999329; 0.019288;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.241157;-0.968474;-0.061953;, - -0.406446;-0.769127; 0.493149;, - -0.170202;-0.963500; 0.206488;, - -0.225562;-0.963591; 0.143468;, - -0.539689;-0.768700; 0.343211;, - -0.225562;-0.963591; 0.143468;, - -0.259163;-0.963500; 0.066561;, - -0.618946;-0.769127; 0.159001;, - -0.539689;-0.768700; 0.343211;, - -0.259163;-0.963500; 0.066561;, - -0.225562;-0.963591; 0.143468;, - -0.030305;-0.999329; 0.019288;, - -0.033906;-0.999359; 0.008667;, - -0.170202;-0.963500; 0.206488;, - -0.022248;-0.999359; 0.027009;, - -0.030305;-0.999329; 0.019288;, - -0.225562;-0.963591; 0.143468;, - 0.209876;-0.968566;-0.133488;, - 0.209876;-0.968566;-0.133488;, - 0.158361;-0.968474;-0.192145;, - 0.158361;-0.968474;-0.192145;, - 0.467574;-0.490707; 0.735191;, - 0.217017;-0.490310; 0.844081;, - 0.240730;-0.255745; 0.936277;, - 0.518784;-0.255745; 0.815729;, - 0.240730;-0.255745; 0.936277;, - 0.217017;-0.490310; 0.844081;, - -0.052919;-0.490524; 0.869778;, - -0.058718;-0.255745; 0.964934;, - 0.217017;-0.490310; 0.844081;, - 0.159124;-0.769158; 0.618915;, - -0.038820;-0.768883; 0.638173;, - -0.052919;-0.490524; 0.869778;, - 0.536546;-0.017121; 0.843654;, - 0.248970;-0.017121; 0.968352;, - 0.249001; 0.000000; 0.968474;, - 0.536637; 0.000000; 0.843776;, - 0.249001; 0.000000; 0.968474;, - 0.248970;-0.017121; 0.968352;, - -0.060732;-0.017121; 0.997986;, - -0.060732; 0.000000; 0.998138;, - 0.248970;-0.017121; 0.968352;, - 0.240730;-0.255745; 0.936277;, - -0.058718;-0.255745; 0.964934;, - -0.060732;-0.017121; 0.997986;, - 0.518784;-0.255745; 0.815729;, - 0.240730;-0.255745; 0.936277;, - 0.248970;-0.017121; 0.968352;, - 0.536546;-0.017121; 0.843654;, - -0.320597;-0.490524; 0.810266;, - -0.355663;-0.255715; 0.898923;, - -0.058718;-0.255745; 0.964934;, - -0.052919;-0.490524; 0.869778;, - -0.614887;-0.255745; 0.745964;, - -0.355663;-0.255715; 0.898923;, - -0.320597;-0.490524; 0.810266;, - -0.554308;-0.490310; 0.672506;, - -0.554308;-0.490310; 0.672506;, - -0.320597;-0.490524; 0.810266;, - -0.235237;-0.768883; 0.594531;, - -0.406446;-0.769127; 0.493149;, - -0.060732; 0.000000; 0.998138;, - -0.060732;-0.017121; 0.997986;, - -0.367870;-0.017121; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.367870;-0.017121; 0.929716;, - -0.635945;-0.017121; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.367901; 0.000000; 0.929838;, - -0.635945;-0.017121; 0.771538;, - -0.367870;-0.017121; 0.929716;, - -0.355663;-0.255715; 0.898923;, - -0.614887;-0.255745; 0.745964;, - -0.060732;-0.017121; 0.997986;, - -0.058718;-0.255745; 0.964934;, - -0.355663;-0.255715; 0.898923;, - -0.367870;-0.017121; 0.929716;, - -0.235237;-0.768883; 0.594531;, - -0.320597;-0.490524; 0.810266;, - -0.052919;-0.490524; 0.869778;, - -0.038820;-0.768883; 0.638173;, - -0.735221;-0.490707; 0.467574;, - -0.815729;-0.255745; 0.518784;, - -0.614887;-0.255745; 0.745964;, - -0.554308;-0.490310; 0.672506;, - -0.936308;-0.255745; 0.240577;, - -0.815729;-0.255745; 0.518784;, - -0.735221;-0.490707; 0.467574;, - -0.844111;-0.490310; 0.216865;, - -0.844111;-0.490310; 0.216865;, - -0.735221;-0.490707; 0.467574;, - -0.539689;-0.768700; 0.343211;, - -0.618946;-0.769127; 0.159001;, - -0.636036; 0.000000; 0.771630;, - -0.635945;-0.017121; 0.771538;, - -0.843654;-0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654;-0.017121; 0.536546;, - -0.968383;-0.017121; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.843776; 0.000000; 0.536637;, - -0.968383;-0.017121; 0.248787;, - -0.843654;-0.017121; 0.536546;, - -0.815729;-0.255745; 0.518784;, - -0.936308;-0.255745; 0.240577;, - -0.635945;-0.017121; 0.771538;, - -0.614887;-0.255745; 0.745964;, - -0.815729;-0.255745; 0.518784;, - -0.843654;-0.017121; 0.536546;, - -0.539689;-0.768700; 0.343211;, - -0.735221;-0.490707; 0.467574;, - -0.554308;-0.490310; 0.672506;, - -0.406446;-0.769127; 0.493149;, - 0.343211;-0.768700; 0.539659;, - 0.159124;-0.769158; 0.618915;, - 0.217017;-0.490310; 0.844081;, - 0.467574;-0.490707; 0.735191;, - 0.248390;-0.968535; 0.015168;, - -0.035493;-0.999359;-0.002136;, - -0.033906;-0.999359; 0.008667;, - 0.241157;-0.968474;-0.061953;, - 0.248390;-0.968535; 0.015168;, - 0.231361;-0.968535; 0.091617;, - -0.033021;-0.999359;-0.013092;, - -0.035493;-0.999359;-0.002136;, - 0.217536;-0.972137; 0.086947;, - 0.231361;-0.968535; 0.091617;, - 0.248390;-0.968535; 0.015168;, - 0.248390;-0.968535; 0.015168;, - -0.266945;-0.963561;-0.016297;, - -0.638173;-0.768883;-0.039003;, - -0.618946;-0.769127; 0.159001;, - -0.259163;-0.963500; 0.066561;, - -0.266945;-0.963561;-0.016297;, - -0.248634;-0.963561;-0.098483;, - -0.594440;-0.768883;-0.235420;, - -0.638173;-0.768883;-0.039003;, - -0.248634;-0.963561;-0.098483;, - -0.266945;-0.963561;-0.016297;, - -0.035493;-0.999359;-0.002136;, - -0.033021;-0.999359;-0.013092;, - -0.035493;-0.999359;-0.002136;, - -0.266945;-0.963561;-0.016297;, - -0.259163;-0.963500; 0.066561;, - -0.033906;-0.999359; 0.008667;, - 0.231361;-0.968535; 0.091617;, - 0.192114;-0.968474; 0.158391;, - -0.027009;-0.999359;-0.022248;, - -0.033021;-0.999359;-0.013092;, - -0.027009;-0.999359;-0.022248;, - 0.192114;-0.968474; 0.158391;, - 0.133488;-0.968566; 0.209876;, - -0.019257;-0.999329;-0.030305;, - 0.192114;-0.968474; 0.158391;, - 0.176214;-0.974242; 0.140660;, - 0.133488;-0.968535; 0.209876;, - 0.133488;-0.968566; 0.209876;, - -0.248634;-0.963561;-0.098483;, - -0.206458;-0.963500;-0.170232;, - -0.493057;-0.769158;-0.406537;, - -0.594440;-0.768883;-0.235420;, - -0.493057;-0.769158;-0.406537;, - -0.206458;-0.963500;-0.170232;, - -0.143437;-0.963591;-0.225562;, - -0.343211;-0.768700;-0.539659;, - -0.206458;-0.963500;-0.170232;, - -0.027009;-0.999359;-0.022248;, - -0.019257;-0.999329;-0.030305;, - -0.143437;-0.963591;-0.225562;, - -0.206458;-0.963500;-0.170232;, - -0.248634;-0.963561;-0.098483;, - -0.033021;-0.999359;-0.013092;, - -0.027009;-0.999359;-0.022248;, - 0.192114;-0.968474; 0.158391;, - 0.231361;-0.968535; 0.091617;, - 0.217536;-0.972137; 0.086947;, - 0.176214;-0.974242; 0.140660;, - -0.869778;-0.490524;-0.053194;, - -0.964934;-0.255715;-0.059023;, - -0.936308;-0.255745; 0.240577;, - -0.844111;-0.490310; 0.216865;, - -0.898801;-0.255715;-0.355937;, - -0.964934;-0.255715;-0.059023;, - -0.869778;-0.490524;-0.053194;, - -0.810175;-0.490524;-0.320841;, - -0.810175;-0.490524;-0.320841;, - -0.869778;-0.490524;-0.053194;, - -0.638173;-0.768883;-0.039003;, - -0.594440;-0.768883;-0.235420;, - -0.968535; 0.000000; 0.248848;, - -0.968383;-0.017121; 0.248787;, - -0.997986;-0.017121;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.997986;-0.017121;-0.061037;, - -0.929594;-0.017121;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.929594;-0.017121;-0.368145;, - -0.997986;-0.017121;-0.061037;, - -0.964934;-0.255715;-0.059023;, - -0.898801;-0.255715;-0.355937;, - -0.968383;-0.017121; 0.248787;, - -0.936308;-0.255745; 0.240577;, - -0.964934;-0.255715;-0.059023;, - -0.997986;-0.017121;-0.061037;, - -0.810175;-0.490524;-0.320841;, - -0.672414;-0.490310;-0.554430;, - -0.745842;-0.255745;-0.615009;, - -0.898801;-0.255715;-0.355937;, - -0.745842;-0.255745;-0.615009;, - -0.672414;-0.490310;-0.554430;, - -0.467574;-0.490707;-0.735191;, - -0.518784;-0.255745;-0.815729;, - -0.672414;-0.490310;-0.554430;, - -0.493057;-0.769158;-0.406537;, - -0.343211;-0.768700;-0.539659;, - -0.467574;-0.490707;-0.735191;, - -0.929594;-0.017121;-0.368145;, - -0.771416;-0.017121;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.929716; 0.000000;-0.368206;, - -0.771508; 0.000000;-0.636158;, - -0.771416;-0.017121;-0.636067;, - -0.536546;-0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.771416;-0.017121;-0.636067;, - -0.745842;-0.255745;-0.615009;, - -0.518784;-0.255745;-0.815729;, - -0.536546;-0.017121;-0.843654;, - -0.771416;-0.017121;-0.636067;, - -0.929594;-0.017121;-0.368145;, - -0.898801;-0.255715;-0.355937;, - -0.745842;-0.255745;-0.615009;, - -0.672414;-0.490310;-0.554430;, - -0.810175;-0.490524;-0.320841;, - -0.594440;-0.768883;-0.235420;, - -0.493057;-0.769158;-0.406537;, - -0.638173;-0.768883;-0.039003;, - -0.869778;-0.490524;-0.053194;, - -0.844111;-0.490310; 0.216865;, - -0.618946;-0.769127; 0.159001;, - 0.248390;-0.968535; 0.015168;, - 0.248390;-0.968535; 0.015168;, - 0.241157;-0.968474;-0.061953;, - 0.241157;-0.968474;-0.061953;, - -0.133488;-0.968566;-0.209876;, - -0.055910;-0.972564;-0.225745;, - -0.061983;-0.968474;-0.241157;, - -0.133488;-0.968566;-0.209876;, - -0.013459;-0.972137; 0.233894;, - -0.005341;-0.973510; 0.228523;, - -0.091556;-0.968535; 0.231391;, - -0.091556;-0.968535; 0.231391;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968505; 0.192114;, - -0.158361;-0.968474; 0.192145;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968505; 0.192114;, - -0.091556;-0.968535; 0.231391;, - -0.185278;-0.872707; 0.451643;, - -0.301279;-0.880825; 0.365154;, - -0.005341;-0.973510; 0.228523;, - 0.008362;-0.853786; 0.520524;, - -0.185278;-0.872707; 0.451643;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968474; 0.192145;, - -0.158361;-0.968505; 0.192114;, - -0.209876;-0.968566; 0.133488;, - -0.209876;-0.968535; 0.133488;, - -0.209876;-0.968566; 0.133488;, - -0.241157;-0.968505; 0.061953;, - -0.241157;-0.968474; 0.061953;, - -0.209876;-0.968535; 0.133488;, - -0.241157;-0.968505; 0.061953;, - -0.209876;-0.968566; 0.133488;, - -0.407727;-0.873318; 0.266518;, - -0.490829;-0.864040; 0.111667;, - -0.158361;-0.968505; 0.192114;, - -0.301279;-0.880825; 0.365154;, - -0.407727;-0.873318; 0.266518;, - -0.209876;-0.968566; 0.133488;, - 0.275185;-0.858486; 0.432691;, - -0.005158;-0.865230; 0.501297;, - 0.008362;-0.853786; 0.520524;, - 0.266579;-0.867855; 0.419172;, - -0.248360;-0.968535;-0.015168;, - -0.248390;-0.968535;-0.015168;, - -0.241157;-0.968474; 0.061953;, - -0.241157;-0.968505; 0.061953;, - -0.248360;-0.968535;-0.015168;, - -0.209235;-0.973510;-0.092044;, - -0.217536;-0.972137;-0.086947;, - -0.248390;-0.968535;-0.015168;, - -0.209235;-0.973510;-0.092044;, - -0.248360;-0.968535;-0.015168;, - -0.487594;-0.872707;-0.023713;, - -0.467849;-0.853786;-0.228278;, - -0.487594;-0.872707;-0.023713;, - -0.248360;-0.968535;-0.015168;, - -0.241157;-0.968505; 0.061953;, - -0.490829;-0.864040; 0.111667;, - -0.467849;-0.853786;-0.228278;, - -0.456191;-0.865230;-0.207862;, - -0.275185;-0.858486;-0.432691;, - -0.266732;-0.867672;-0.419477;, - 0.133488;-0.968566; 0.209876;, - 0.061983;-0.968474; 0.241157;, - -0.008667;-0.999359;-0.033876;, - -0.019257;-0.999329;-0.030305;, - -0.015107;-0.968535; 0.248390;, - 0.002106;-0.999359;-0.035463;, - -0.008667;-0.999359;-0.033876;, - 0.061983;-0.968474; 0.241157;, - -0.013459;-0.972137; 0.233894;, - -0.015107;-0.968535; 0.248390;, - 0.061983;-0.968474; 0.241157;, - 0.052675;-0.974242; 0.219245;, - -0.143437;-0.963591;-0.225562;, - -0.066622;-0.963500;-0.259163;, - -0.159124;-0.769158;-0.618915;, - -0.343211;-0.768700;-0.539659;, - -0.159124;-0.769158;-0.618915;, - -0.066622;-0.963500;-0.259163;, - 0.016236;-0.963561;-0.266945;, - 0.038820;-0.768883;-0.638173;, - -0.066622;-0.963500;-0.259163;, - -0.008667;-0.999359;-0.033876;, - 0.002106;-0.999359;-0.035463;, - 0.016236;-0.963561;-0.266945;, - -0.019257;-0.999329;-0.030305;, - -0.008667;-0.999359;-0.033876;, - -0.066622;-0.963500;-0.259163;, - -0.143437;-0.963591;-0.225562;, - -0.091556;-0.968535; 0.231391;, - 0.013092;-0.999359;-0.033052;, - 0.002106;-0.999359;-0.035463;, - -0.015107;-0.968535; 0.248390;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968474; 0.192145;, - 0.022248;-0.999359;-0.027009;, - 0.013092;-0.999359;-0.033052;, - -0.158361;-0.968474; 0.192145;, - -0.091556;-0.968535; 0.231391;, - -0.091556;-0.968535; 0.231391;, - -0.158361;-0.968474; 0.192145;, - 0.098392;-0.963561;-0.248665;, - 0.235237;-0.768853;-0.594531;, - 0.038820;-0.768883;-0.638173;, - 0.016236;-0.963561;-0.266945;, - 0.098392;-0.963561;-0.248665;, - 0.170202;-0.963500;-0.206488;, - 0.406446;-0.769127;-0.493149;, - 0.235237;-0.768853;-0.594531;, - 0.170202;-0.963500;-0.206488;, - 0.098392;-0.963561;-0.248665;, - 0.013092;-0.999359;-0.033052;, - 0.022248;-0.999359;-0.027009;, - 0.013092;-0.999359;-0.033052;, - 0.098392;-0.963561;-0.248665;, - 0.016236;-0.963561;-0.266945;, - 0.002106;-0.999359;-0.035463;, - -0.091556;-0.968535; 0.231391;, - -0.015107;-0.968535; 0.248390;, - -0.013459;-0.972137; 0.233894;, - -0.091556;-0.968535; 0.231391;, - -0.209876;-0.968535; 0.133488;, - 0.030305;-0.999329;-0.019257;, - 0.022248;-0.999359;-0.027009;, - -0.158361;-0.968474; 0.192145;, - -0.209876;-0.968535; 0.133488;, - -0.241157;-0.968474; 0.061953;, - 0.033906;-0.999359;-0.008667;, - 0.030305;-0.999329;-0.019257;, - -0.241157;-0.968474; 0.061953;, - -0.209876;-0.968535; 0.133488;, - -0.209876;-0.968535; 0.133488;, - -0.241157;-0.968474; 0.061953;, - 0.225562;-0.963591;-0.143468;, - 0.539689;-0.768700;-0.343211;, - 0.406446;-0.769127;-0.493149;, - 0.170202;-0.963500;-0.206488;, - 0.225562;-0.963591;-0.143468;, - 0.259163;-0.963500;-0.066561;, - 0.618946;-0.769127;-0.159001;, - 0.539689;-0.768700;-0.343211;, - 0.259163;-0.963500;-0.066561;, - 0.225562;-0.963591;-0.143468;, - 0.030305;-0.999329;-0.019257;, - 0.033906;-0.999359;-0.008667;, - 0.030305;-0.999329;-0.019257;, - 0.225562;-0.963591;-0.143468;, - 0.170202;-0.963500;-0.206488;, - 0.022248;-0.999359;-0.027009;, - -0.209876;-0.968535; 0.133488;, - -0.209876;-0.968535; 0.133488;, - -0.158361;-0.968474; 0.192145;, - -0.158361;-0.968474; 0.192145;, - -0.467574;-0.490707;-0.735191;, - -0.217017;-0.490310;-0.844081;, - -0.240761;-0.255745;-0.936277;, - -0.518784;-0.255745;-0.815729;, - -0.240761;-0.255745;-0.936277;, - -0.217017;-0.490310;-0.844081;, - 0.052919;-0.490524;-0.869778;, - 0.058718;-0.255715;-0.964934;, - -0.217017;-0.490310;-0.844081;, - -0.159124;-0.769158;-0.618915;, - 0.038820;-0.768883;-0.638173;, - 0.052919;-0.490524;-0.869778;, - -0.536546;-0.017121;-0.843654;, - -0.248970;-0.017121;-0.968352;, - -0.249001; 0.000000;-0.968474;, - -0.536637; 0.000000;-0.843776;, - -0.249001; 0.000000;-0.968474;, - -0.248970;-0.017121;-0.968352;, - 0.060732;-0.017121;-0.997986;, - 0.060732; 0.000000;-0.998138;, - -0.248970;-0.017121;-0.968352;, - -0.240761;-0.255745;-0.936277;, - 0.058718;-0.255715;-0.964934;, - 0.060732;-0.017121;-0.997986;, - -0.518784;-0.255745;-0.815729;, - -0.240761;-0.255745;-0.936277;, - -0.248970;-0.017121;-0.968352;, - -0.536546;-0.017121;-0.843654;, - 0.320597;-0.490524;-0.810266;, - 0.355663;-0.255715;-0.898923;, - 0.058718;-0.255715;-0.964934;, - 0.052919;-0.490524;-0.869778;, - 0.614887;-0.255745;-0.745964;, - 0.355663;-0.255715;-0.898923;, - 0.320597;-0.490524;-0.810266;, - 0.554308;-0.490310;-0.672506;, - 0.554308;-0.490310;-0.672506;, - 0.320597;-0.490524;-0.810266;, - 0.235237;-0.768853;-0.594531;, - 0.406446;-0.769127;-0.493149;, - 0.060732;-0.017121;-0.997986;, - 0.367870;-0.017121;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.060732; 0.000000;-0.998138;, - 0.367870;-0.017121;-0.929716;, - 0.635945;-0.017121;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.367901; 0.000000;-0.929838;, - 0.635945;-0.017121;-0.771538;, - 0.367870;-0.017121;-0.929716;, - 0.355663;-0.255715;-0.898923;, - 0.614887;-0.255745;-0.745964;, - 0.060732;-0.017121;-0.997986;, - 0.058718;-0.255715;-0.964934;, - 0.355663;-0.255715;-0.898923;, - 0.367870;-0.017121;-0.929716;, - 0.235237;-0.768853;-0.594531;, - 0.320597;-0.490524;-0.810266;, - 0.052919;-0.490524;-0.869778;, - 0.038820;-0.768883;-0.638173;, - 0.735191;-0.490707;-0.467574;, - 0.815729;-0.255745;-0.518784;, - 0.614887;-0.255745;-0.745964;, - 0.554308;-0.490310;-0.672506;, - 0.936308;-0.255745;-0.240577;, - 0.815729;-0.255745;-0.518784;, - 0.735191;-0.490707;-0.467574;, - 0.844111;-0.490310;-0.216865;, - 0.844111;-0.490310;-0.216865;, - 0.735191;-0.490707;-0.467574;, - 0.539689;-0.768700;-0.343211;, - 0.618946;-0.769127;-0.159001;, - 0.636036; 0.000000;-0.771630;, - 0.635945;-0.017121;-0.771538;, - 0.843654;-0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654;-0.017121;-0.536546;, - 0.968383;-0.017121;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.843776; 0.000000;-0.536637;, - 0.968383;-0.017121;-0.248787;, - 0.843654;-0.017121;-0.536546;, - 0.815729;-0.255745;-0.518784;, - 0.936308;-0.255745;-0.240577;, - 0.635945;-0.017121;-0.771538;, - 0.614887;-0.255745;-0.745964;, - 0.815729;-0.255745;-0.518784;, - 0.843654;-0.017121;-0.536546;, - 0.539689;-0.768700;-0.343211;, - 0.735191;-0.490707;-0.467574;, - 0.554308;-0.490310;-0.672506;, - 0.406446;-0.769127;-0.493149;, - -0.343211;-0.768700;-0.539659;, - -0.159124;-0.769158;-0.618915;, - -0.217017;-0.490310;-0.844081;, - -0.467574;-0.490707;-0.735191;, - -0.248390;-0.968535;-0.015168;, - 0.035493;-0.999359; 0.002136;, - 0.033906;-0.999359;-0.008667;, - -0.241157;-0.968474; 0.061953;, - -0.248390;-0.968535;-0.015168;, - -0.231361;-0.968535;-0.091617;, - 0.033021;-0.999359; 0.013092;, - 0.035493;-0.999359; 0.002136;, - -0.217536;-0.972137;-0.086947;, - -0.231361;-0.968535;-0.091617;, - -0.248390;-0.968535;-0.015168;, - -0.248390;-0.968535;-0.015168;, - 0.266945;-0.963561; 0.016297;, - 0.638173;-0.768853; 0.039003;, - 0.618946;-0.769127;-0.159001;, - 0.259163;-0.963500;-0.066561;, - 0.266945;-0.963561; 0.016297;, - 0.248634;-0.963561; 0.098483;, - 0.594440;-0.768883; 0.235420;, - 0.638173;-0.768853; 0.039003;, - 0.248634;-0.963561; 0.098483;, - 0.266945;-0.963561; 0.016297;, - 0.035493;-0.999359; 0.002136;, - 0.033021;-0.999359; 0.013092;, - 0.035493;-0.999359; 0.002136;, - 0.266945;-0.963561; 0.016297;, - 0.259163;-0.963500;-0.066561;, - 0.033906;-0.999359;-0.008667;, - -0.231361;-0.968535;-0.091617;, - -0.192114;-0.968474;-0.158391;, - 0.027009;-0.999359; 0.022248;, - 0.033021;-0.999359; 0.013092;, - 0.027009;-0.999359; 0.022248;, - -0.192114;-0.968474;-0.158391;, - -0.133488;-0.968566;-0.209876;, - 0.019257;-0.999329; 0.030305;, - -0.192114;-0.968474;-0.158391;, - -0.176214;-0.974242;-0.140660;, - -0.133488;-0.968566;-0.209876;, - -0.133488;-0.968566;-0.209876;, - 0.248634;-0.963561; 0.098483;, - 0.206458;-0.963500; 0.170232;, - 0.493057;-0.769158; 0.406537;, - 0.594440;-0.768883; 0.235420;, - 0.493057;-0.769158; 0.406537;, - 0.206458;-0.963500; 0.170232;, - 0.143437;-0.963591; 0.225562;, - 0.343211;-0.768700; 0.539659;, - 0.206458;-0.963500; 0.170232;, - 0.027009;-0.999359; 0.022248;, - 0.019257;-0.999329; 0.030305;, - 0.143437;-0.963591; 0.225562;, - 0.206458;-0.963500; 0.170232;, - 0.248634;-0.963561; 0.098483;, - 0.033021;-0.999359; 0.013092;, - 0.027009;-0.999359; 0.022248;, - -0.192114;-0.968474;-0.158391;, - -0.231361;-0.968535;-0.091617;, - -0.217536;-0.972137;-0.086947;, - -0.176214;-0.974242;-0.140660;, - 0.869778;-0.490524; 0.053194;, - 0.964934;-0.255715; 0.059023;, - 0.936308;-0.255745;-0.240577;, - 0.844111;-0.490310;-0.216865;, - 0.869778;-0.490524; 0.053194;, - 0.810175;-0.490524; 0.320841;, - 0.898801;-0.255745; 0.355937;, - 0.964934;-0.255715; 0.059023;, - 0.810175;-0.490524; 0.320841;, - 0.869778;-0.490524; 0.053194;, - 0.638173;-0.768853; 0.039003;, - 0.594440;-0.768883; 0.235420;, - 0.997986;-0.017121; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.968535; 0.000000;-0.248848;, - 0.968383;-0.017121;-0.248787;, - 0.997986;-0.017121; 0.061037;, - 0.929594;-0.017121; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.998108; 0.000000; 0.061037;, - 0.929594;-0.017121; 0.368145;, - 0.997986;-0.017121; 0.061037;, - 0.964934;-0.255715; 0.059023;, - 0.898801;-0.255745; 0.355937;, - 0.964934;-0.255715; 0.059023;, - 0.997986;-0.017121; 0.061037;, - 0.968383;-0.017121;-0.248787;, - 0.936308;-0.255745;-0.240577;, - 0.810175;-0.490524; 0.320841;, - 0.672414;-0.490310; 0.554430;, - 0.745842;-0.255745; 0.615040;, - 0.898801;-0.255745; 0.355937;, - 0.745842;-0.255745; 0.615040;, - 0.672414;-0.490310; 0.554430;, - 0.467574;-0.490707; 0.735191;, - 0.518784;-0.255745; 0.815729;, - 0.672414;-0.490310; 0.554430;, - 0.493057;-0.769158; 0.406537;, - 0.343211;-0.768700; 0.539659;, - 0.467574;-0.490707; 0.735191;, - 0.929594;-0.017121; 0.368145;, - 0.771416;-0.017121; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.929716; 0.000000; 0.368206;, - 0.771508; 0.000000; 0.636158;, - 0.771416;-0.017121; 0.636067;, - 0.536546;-0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.771416;-0.017121; 0.636067;, - 0.745842;-0.255745; 0.615040;, - 0.518784;-0.255745; 0.815729;, - 0.536546;-0.017121; 0.843654;, - 0.771416;-0.017121; 0.636067;, - 0.929594;-0.017121; 0.368145;, - 0.898801;-0.255745; 0.355937;, - 0.745842;-0.255745; 0.615040;, - 0.672414;-0.490310; 0.554430;, - 0.810175;-0.490524; 0.320841;, - 0.594440;-0.768883; 0.235420;, - 0.493057;-0.769158; 0.406537;, - 0.638173;-0.768853; 0.039003;, - 0.869778;-0.490524; 0.053194;, - 0.844111;-0.490310;-0.216865;, - 0.618946;-0.769127;-0.159001;, - -0.248390;-0.968535;-0.015168;, - -0.248390;-0.968535;-0.015168;, - -0.241157;-0.968474; 0.061953;, - -0.241157;-0.968474; 0.061953;, - 0.061983;-0.968474; 0.241157;, - 0.133488;-0.968566; 0.209876;, - 0.133488;-0.968535; 0.209876;, - 0.052675;-0.974242; 0.219245;, - -0.288156; 0.934049;-0.210974;, - -0.187475; 0.936949;-0.294809;, - 0.014374; 0.999634; 0.022614;, - 0.020692; 0.999634; 0.017060;, - 0.024934; 0.999634; 0.009857;, - -0.332652; 0.933775;-0.131779;, - -0.288156; 0.934049;-0.210974;, - 0.020692; 0.999634; 0.017060;, - 0.024934; 0.999634; 0.009857;, - 0.020692; 0.999634; 0.017060;, - -0.000153; 1.000000;-0.000122;, - 0.024934; 0.999634; 0.009857;, - 0.026795; 0.999634; 0.001617;, - -0.357128; 0.933775;-0.021790;, - -0.332652; 0.933775;-0.131779;, - 0.026795; 0.999634; 0.001617;, - 0.026032; 0.999634;-0.006653;, - -0.346049; 0.933988; 0.088870;, - -0.357128; 0.933775;-0.021790;, - 0.026032; 0.999634;-0.006653;, - 0.026795; 0.999634; 0.001617;, - -0.000153; 1.000000;-0.000122;, - 0.026795; 0.999634; 0.001617;, - 0.024934; 0.999634; 0.009857;, - -0.000153; 1.000000;-0.000122;, - 0.022675; 0.999634;-0.014405;, - -0.302194; 0.933653; 0.192206;, - -0.346049; 0.933988; 0.088870;, - 0.026032; 0.999634;-0.006653;, - 0.022675; 0.999634;-0.014405;, - 0.017121; 0.999634;-0.020753;, - -0.227210; 0.933988; 0.275704;, - -0.302194; 0.933653; 0.192206;, - 0.017121; 0.999634;-0.020753;, - 0.022675; 0.999634;-0.014405;, - -0.000153; 1.000000;-0.000122;, - 0.026032; 0.999634;-0.006653;, - -0.000153; 1.000000;-0.000122;, - 0.022675; 0.999634;-0.014405;, - -0.014069; 0.999634;-0.022156;, - -0.020264; 0.999634;-0.016724;, - -0.681814; 0.510941;-0.523484;, - -0.408368; 0.583178;-0.702231;, - -0.681814; 0.510941;-0.523484;, - -0.020264; 0.999634;-0.016724;, - -0.024415; 0.999634;-0.009674;, - -0.726005; 0.635792;-0.262032;, - -0.020264; 0.999634;-0.016724;, - -0.231788; 0.947172;-0.221564;, - -0.293161; 0.947356;-0.128574;, - -0.024415; 0.999634;-0.009674;, - -0.026215; 0.999634;-0.001587;, - -0.942015; 0.290139;-0.168523;, - -0.726005; 0.635792;-0.262032;, - -0.024415; 0.999634;-0.009674;, - -0.778314; 0.582446; 0.234413;, - -0.942015; 0.290139;-0.168523;, - -0.026215; 0.999634;-0.001587;, - -0.025452; 0.999634; 0.006531;, - -0.025452; 0.999634; 0.006531;, - -0.026215; 0.999634;-0.001587;, - -0.322428; 0.946348;-0.019745;, - -0.313639; 0.946104; 0.080599;, - -0.322428; 0.946348;-0.019745;, - -0.026215; 0.999634;-0.001587;, - -0.024415; 0.999634;-0.009674;, - -0.293161; 0.947356;-0.128574;, - -0.022156; 0.999634; 0.014069;, - -0.744682; 0.504440; 0.436933;, - -0.778314; 0.582446; 0.234413;, - -0.025452; 0.999634; 0.006531;, - -0.490738; 0.583361; 0.647145;, - -0.744682; 0.504440; 0.436933;, - -0.022156; 0.999634; 0.014069;, - -0.016724; 0.999634; 0.020264;, - -0.016724; 0.999634; 0.020264;, - -0.022156; 0.999634; 0.014069;, - -0.272103; 0.946562; 0.173070;, - -0.205969; 0.946104; 0.249886;, - -0.272103; 0.946562; 0.173070;, - -0.022156; 0.999634; 0.014069;, - -0.025452; 0.999634; 0.006531;, - -0.313639; 0.946104; 0.080599;, - -0.171239; 0.947691;-0.269265;, - -0.231788; 0.947172;-0.221564;, - -0.020264; 0.999634;-0.016724;, - -0.014069; 0.999634;-0.022156;, - 0.009919; 0.999634;-0.025056;, - -0.131657; 0.933775; 0.332682;, - -0.227210; 0.933988; 0.275704;, - 0.017121; 0.999634;-0.020753;, - 0.009919; 0.999634;-0.025056;, - 0.001617; 0.999634;-0.026917;, - -0.021668; 0.933775; 0.357128;, - -0.131657; 0.933775; 0.332682;, - 0.001617; 0.999634;-0.026917;, - 0.009919; 0.999634;-0.025056;, - -0.000153; 1.000000;-0.000122;, - 0.001617; 0.999634;-0.026917;, - -0.006714; 0.999634;-0.026154;, - 0.094455; 0.922513; 0.374157;, - -0.021668; 0.933775; 0.357128;, - -0.014466; 0.999634;-0.022767;, - 0.207251; 0.922391; 0.325877;, - 0.094455; 0.922513; 0.374157;, - -0.006714; 0.999634;-0.026154;, - -0.014466; 0.999634;-0.022767;, - -0.006714; 0.999634;-0.026154;, - -0.000153; 1.000000;-0.000122;, - -0.006714; 0.999634;-0.026154;, - 0.001617; 0.999634;-0.026917;, - -0.000153; 1.000000;-0.000122;, - -0.009644; 0.999634; 0.024415;, - -0.345347; 0.507126; 0.789636;, - -0.490738; 0.583361; 0.647145;, - -0.016724; 0.999634; 0.020264;, - -0.345347; 0.507126; 0.789636;, - -0.009644; 0.999634; 0.024415;, - -0.001587; 0.999634; 0.026215;, - -0.017060; 0.583819; 0.811670;, - -0.001587; 0.999634; 0.026215;, - -0.009644; 0.999634; 0.024415;, - -0.118839; 0.946348; 0.300394;, - -0.003632; 0.949767; 0.312906;, - -0.001587; 0.999634; 0.026215;, - 0.006531; 0.999634; 0.025452;, - 0.185003; 0.510941; 0.839442;, - -0.017060; 0.583819; 0.811670;, - 0.185003; 0.510941; 0.839442;, - 0.006531; 0.999634; 0.025452;, - 0.014069; 0.999634; 0.022156;, - 0.462813; 0.583178; 0.667592;, - 0.006531; 0.999634; 0.025452;, - 0.003571; 0.999878; 0.013977;, - 0.168676; 0.949278; 0.265236;, - 0.014069; 0.999634; 0.022156;, - 0.006531; 0.999634; 0.025452;, - -0.001587; 0.999634; 0.026215;, - -0.003632; 0.949767; 0.312906;, - 0.003571; 0.999878; 0.013977;, - -0.118839; 0.946348; 0.300394;, - -0.009644; 0.999634; 0.024415;, - -0.016724; 0.999634; 0.020264;, - -0.205969; 0.946104; 0.249886;, - 0.009919; 0.999634;-0.025056;, - 0.017121; 0.999634;-0.020753;, - -0.000153; 1.000000;-0.000122;, - 0.066469; 0.992279; 0.104526;, - 0.115299; 0.992279; 0.045381;, - -0.680319; 0.682180;-0.267891;, - -0.392438; 0.682028;-0.617054;, - -0.109928; 0.992584;-0.051485;, - 0.079012; 0.992248;-0.095614;, - -0.465712; 0.682302; 0.563494;, - -0.707816; 0.682302; 0.182836;, - -0.109928; 0.992584;-0.051485;, - -0.935118; 0.332469; 0.122379;, - -0.395184; 0.765618; 0.507523;, - 0.079012; 0.992248;-0.095614;, - -0.510666; 0.307291;-0.802972;, - -0.885464; 0.307138;-0.348643;, - -0.401440; 0.902097;-0.158116;, - -0.231391; 0.902219;-0.363842;, - -0.885464; 0.307138;-0.348643;, - -0.921445; 0.306955; 0.238044;, - -0.418012; 0.901975; 0.107974;, - -0.401440; 0.902097;-0.158116;, - -0.921445; 0.306955; 0.238044;, - -0.885464; 0.307138;-0.348643;, - -0.680319; 0.682180;-0.267891;, - -0.707816; 0.682302; 0.182836;, - -0.418012; 0.901975; 0.107974;, - -0.921445; 0.306955; 0.238044;, - -0.606311; 0.306955; 0.733573;, - -0.275033; 0.901975; 0.332804;, - -0.606311; 0.306955; 0.733573;, - -0.921445; 0.306955; 0.238044;, - -0.707816; 0.682302; 0.182836;, - -0.465712; 0.682302; 0.563494;, - -0.392438; 0.682028;-0.617054;, - -0.680319; 0.682180;-0.267891;, - -0.885464; 0.307138;-0.348643;, - -0.510666; 0.307291;-0.802972;, - -0.045808; 0.682180; 0.729728;, - 0.007752; 0.992279;-0.123692;, - -0.066469; 0.992279;-0.104526;, - 0.392438; 0.682028; 0.617054;, - 0.007752; 0.992279;-0.123692;, - -0.021485; 0.766717; 0.641621;, - 0.358745; 0.767388; 0.531358;, - -0.066469; 0.992279;-0.104526;, - -0.275033; 0.901975; 0.332804;, - -0.606311; 0.306955; 0.733573;, - -0.059664; 0.307138; 0.949767;, - -0.027009; 0.902097; 0.430616;, - -0.027009; 0.902097; 0.430616;, - -0.059664; 0.307138; 0.949767;, - 0.510666; 0.307291; 0.802972;, - 0.231391; 0.902219; 0.363872;, - 0.510666; 0.307291; 0.802972;, - -0.059664; 0.307138; 0.949767;, - -0.045808; 0.682180; 0.729728;, - 0.392438; 0.682028; 0.617054;, - -0.059664; 0.307138; 0.949767;, - -0.606311; 0.306955; 0.733573;, - -0.465712; 0.682302; 0.563494;, - -0.045808; 0.682180; 0.729728;, - -0.329112; 0.767418;-0.550218;, - -0.531877; 0.826563;-0.183935;, - 0.115299; 0.992279; 0.045381;, - 0.066469; 0.992279; 0.104526;, - -0.014466; 0.999634;-0.022767;, - -0.020844; 0.999634;-0.017182;, - 0.298807; 0.922513; 0.244179;, - 0.207251; 0.922391; 0.325877;, - -0.025086; 0.999634;-0.009919;, - 0.332652; 0.933775; 0.131779;, - 0.298807; 0.922513; 0.244179;, - -0.020844; 0.999634;-0.017182;, - -0.025086; 0.999634;-0.009919;, - -0.020844; 0.999634;-0.017182;, - -0.000153; 1.000000;-0.000122;, - -0.026917; 0.999634;-0.001617;, - 0.357128; 0.933775; 0.021790;, - 0.332652; 0.933775; 0.131779;, - -0.025086; 0.999634;-0.009919;, - -0.026917; 0.999634;-0.001617;, - -0.026124; 0.999634; 0.006714;, - 0.346049; 0.933988;-0.088870;, - 0.357128; 0.933775; 0.021790;, - -0.026124; 0.999634; 0.006714;, - -0.026917; 0.999634;-0.001617;, - -0.000153; 1.000000;-0.000122;, - -0.026917; 0.999634;-0.001617;, - -0.025086; 0.999634;-0.009919;, - -0.000153; 1.000000;-0.000122;, - -0.022706; 0.999634; 0.014435;, - 0.302194; 0.933653;-0.192206;, - 0.346049; 0.933988;-0.088870;, - -0.026124; 0.999634; 0.006714;, - -0.022706; 0.999634; 0.014435;, - -0.017121; 0.999634; 0.020783;, - 0.227210; 0.933988;-0.275704;, - 0.302194; 0.933653;-0.192206;, - -0.017121; 0.999634; 0.020783;, - -0.022706; 0.999634; 0.014435;, - -0.000153; 1.000000;-0.000122;, - -0.022706; 0.999634; 0.014435;, - -0.026124; 0.999634; 0.006714;, - -0.000153; 1.000000;-0.000122;, - 0.014069; 0.999634; 0.022156;, - 0.020264; 0.999634; 0.016724;, - 0.643941; 0.510849; 0.569475;, - 0.462813; 0.583178; 0.667592;, - 0.643941; 0.510849; 0.569475;, - 0.020264; 0.999634; 0.016724;, - 0.024415; 0.999634; 0.009674;, - 0.694784; 0.664479; 0.275155;, - 0.020264; 0.999634; 0.016724;, - 0.011139; 0.999878; 0.009186;, - 0.284951; 0.949767; 0.129368;, - 0.024415; 0.999634; 0.009674;, - 0.024415; 0.999634; 0.009674;, - 0.026215; 0.999634; 0.001587;, - 0.861568; 0.507126; 0.022034;, - 0.694784; 0.664479; 0.275155;, - 0.794183; 0.583392;-0.170049;, - 0.861568; 0.507126; 0.022034;, - 0.026215; 0.999634; 0.001587;, - 0.025452; 0.999634;-0.006531;, - 0.025452; 0.999634;-0.006531;, - 0.026215; 0.999634; 0.001587;, - 0.322428; 0.946348; 0.019745;, - 0.313639; 0.946104;-0.080599;, - 0.322428; 0.946348; 0.019745;, - 0.026215; 0.999634; 0.001587;, - 0.024415; 0.999634; 0.009674;, - 0.284951; 0.949767; 0.129368;, - 0.022156; 0.999634;-0.014069;, - 0.711478; 0.504440;-0.489181;, - 0.794183; 0.583392;-0.170049;, - 0.025452; 0.999634;-0.006531;, - 0.542314; 0.582446;-0.605487;, - 0.711478; 0.504440;-0.489181;, - 0.022156; 0.999634;-0.014069;, - 0.016724; 0.999634;-0.020264;, - 0.016724; 0.999634;-0.020264;, - 0.022156; 0.999634;-0.014069;, - 0.272103; 0.946562;-0.173070;, - 0.205969; 0.946104;-0.249886;, - 0.272103; 0.946562;-0.173070;, - 0.022156; 0.999634;-0.014069;, - 0.025452; 0.999634;-0.006531;, - 0.313639; 0.946104;-0.080599;, - 0.168676; 0.949278; 0.265236;, - 0.011139; 0.999878; 0.009186;, - 0.020264; 0.999634; 0.016724;, - 0.014069; 0.999634; 0.022156;, - -0.009888; 0.999634; 0.024995;, - 0.131657; 0.933775;-0.332682;, - 0.227210; 0.933988;-0.275704;, - -0.017121; 0.999634; 0.020783;, - -0.001617; 0.999634; 0.026795;, - 0.021668; 0.933775;-0.357128;, - 0.131657; 0.933775;-0.332682;, - -0.009888; 0.999634; 0.024995;, - -0.001617; 0.999634; 0.026795;, - -0.009888; 0.999634; 0.024995;, - -0.000153; 1.000000;-0.000122;, - -0.001617; 0.999634; 0.026795;, - 0.006684; 0.999634; 0.026002;, - -0.068880; 0.934049;-0.350414;, - 0.021668; 0.933775;-0.357128;, - -0.068880; 0.934049;-0.350414;, - 0.006684; 0.999634; 0.026002;, - 0.014374; 0.999634; 0.022614;, - -0.187475; 0.936949;-0.294809;, - 0.006684; 0.999634; 0.026002;, - -0.000153; 1.000000;-0.000122;, - 0.014374; 0.999634; 0.022614;, - 0.006684; 0.999634; 0.026002;, - -0.001617; 0.999634; 0.026795;, - -0.000153; 1.000000;-0.000122;, - 0.009644; 0.999634;-0.024415;, - 0.288675; 0.506974;-0.812159;, - 0.542314; 0.582446;-0.605487;, - 0.016724; 0.999634;-0.020264;, - 0.009644; 0.999634;-0.024415;, - 0.001587; 0.999634;-0.026215;, - 0.082217; 0.582415;-0.808710;, - 0.288675; 0.506974;-0.812159;, - 0.001587; 0.999634;-0.026215;, - 0.009644; 0.999634;-0.024415;, - 0.118839; 0.946348;-0.300394;, - 0.007813; 0.947356;-0.320017;, - 0.001587; 0.999634;-0.026215;, - -0.006531; 0.999634;-0.025452;, - -0.242714; 0.510849;-0.824671;, - 0.082217; 0.582415;-0.808710;, - -0.242714; 0.510849;-0.824671;, - -0.006531; 0.999634;-0.025452;, - -0.014069; 0.999634;-0.022156;, - -0.408368; 0.583178;-0.702231;, - -0.006531; 0.999634;-0.025452;, - -0.102359; 0.947172;-0.303873;, - -0.171239; 0.947691;-0.269265;, - -0.014069; 0.999634;-0.022156;, - -0.006531; 0.999634;-0.025452;, - 0.001587; 0.999634;-0.026215;, - 0.007813; 0.947356;-0.320017;, - -0.102359; 0.947172;-0.303873;, - 0.118839; 0.946348;-0.300394;, - 0.009644; 0.999634;-0.024415;, - 0.016724; 0.999634;-0.020264;, - 0.205969; 0.946104;-0.249886;, - -0.009888; 0.999634; 0.024995;, - -0.017121; 0.999634; 0.020783;, - -0.000153; 1.000000;-0.000122;, - -0.066469; 0.992279;-0.104526;, - -0.115299; 0.992279;-0.045381;, - 0.680319; 0.682180; 0.267891;, - 0.392438; 0.682028; 0.617054;, - -0.115299; 0.992279;-0.045381;, - -0.120060; 0.992279; 0.031007;, - 0.707785; 0.682302;-0.182836;, - 0.680319; 0.682180; 0.267891;, - -0.120060; 0.992279; 0.031007;, - -0.115299; 0.992279;-0.045381;, - 0.561815; 0.796777; 0.222358;, - 0.627308; 0.765557;-0.142705;, - -0.078982; 0.992279; 0.095584;, - 0.465682; 0.682302;-0.563494;, - 0.707785; 0.682302;-0.182836;, - -0.120060; 0.992279; 0.031007;, - -0.078982; 0.992279; 0.095584;, - -0.120060; 0.992279; 0.031007;, - 0.627308; 0.765557;-0.142705;, - 0.423078; 0.765496;-0.484725;, - 0.510666; 0.307291; 0.802972;, - 0.885464; 0.307138; 0.348643;, - 0.401440; 0.902097; 0.158116;, - 0.231391; 0.902219; 0.363872;, - 0.885464; 0.307138; 0.348643;, - 0.921445; 0.306955;-0.238044;, - 0.418012; 0.901975;-0.107944;, - 0.401440; 0.902097; 0.158116;, - 0.921445; 0.306955;-0.238044;, - 0.885464; 0.307138; 0.348643;, - 0.680319; 0.682180; 0.267891;, - 0.707785; 0.682302;-0.182836;, - 0.921445; 0.306955;-0.238044;, - 0.606281; 0.306955;-0.733573;, - 0.275033; 0.901975;-0.332804;, - 0.418012; 0.901975;-0.107944;, - 0.606281; 0.306955;-0.733573;, - 0.921445; 0.306955;-0.238044;, - 0.707785; 0.682302;-0.182836;, - 0.465682; 0.682302;-0.563494;, - 0.392438; 0.682028; 0.617054;, - 0.680319; 0.682180; 0.267891;, - 0.885464; 0.307138; 0.348643;, - 0.510666; 0.307291; 0.802972;, - -0.007752; 0.992279; 0.123692;, - 0.045808; 0.682180;-0.729728;, - 0.465682; 0.682302;-0.563494;, - -0.078982; 0.992279; 0.095584;, - 0.045808; 0.682180;-0.729728;, - -0.007752; 0.992279; 0.123692;, - 0.066469; 0.992279; 0.104526;, - -0.392438; 0.682028;-0.617054;, - -0.007752; 0.992279; 0.123692;, - 0.056917; 0.766594;-0.639576;, - -0.329112; 0.767418;-0.550218;, - 0.066469; 0.992279; 0.104526;, - 0.059664; 0.307138;-0.949767;, - 0.027009; 0.902097;-0.430616;, - 0.275033; 0.901975;-0.332804;, - 0.606281; 0.306955;-0.733573;, - 0.027009; 0.902097;-0.430616;, - 0.059664; 0.307138;-0.949767;, - -0.510666; 0.307291;-0.802972;, - -0.231391; 0.902219;-0.363842;, - -0.510666; 0.307291;-0.802972;, - 0.059664; 0.307138;-0.949767;, - 0.045808; 0.682180;-0.729728;, - -0.392438; 0.682028;-0.617054;, - 0.045808; 0.682180;-0.729728;, - 0.059664; 0.307138;-0.949767;, - 0.606281; 0.306955;-0.733573;, - 0.465682; 0.682302;-0.563494;, - 0.056917; 0.766594;-0.639576;, - -0.007752; 0.992279; 0.123692;, - -0.078982; 0.992279; 0.095584;, - 0.423078; 0.765496;-0.484725;, - -0.115299; 0.992279;-0.045381;, - -0.066469; 0.992279;-0.104526;, - 0.358745; 0.767388; 0.531358;, - 0.561815; 0.796777; 0.222358;, - -0.020844; 0.999634;-0.017182;, - -0.014466; 0.999634;-0.022767;, - -0.000153; 1.000000;-0.000122;, - 0.369823; 0.724601; 0.581500;, - 0.641133; 0.724693; 0.252449;, - 0.078097; 0.996551;-0.027009;, - 0.028474; 0.998566; 0.044771;, - 0.641133; 0.724693; 0.252449;, - 0.667074; 0.724784;-0.172308;, - 0.103916; 0.993957;-0.034608;, - 0.078097; 0.996551;-0.027009;, - 0.667074; 0.724784;-0.172308;, - 0.641133; 0.724693; 0.252449;, - -0.401440; 0.902097;-0.158116;, - -0.418012; 0.901975; 0.107974;, - 0.667074; 0.724784;-0.172308;, - 0.438917; 0.724784;-0.531053;, - 0.091952; 0.989593;-0.110416;, - 0.103916; 0.993957;-0.034608;, - 0.438917; 0.724784;-0.531053;, - 0.667074; 0.724784;-0.172308;, - -0.418012; 0.901975; 0.107974;, - -0.275033; 0.901975; 0.332804;, - 0.056551; 0.745018;-0.664632;, - -0.248390; 0.968535;-0.015168;, - -0.248390; 0.968535;-0.015168;, - -0.220161; 0.971252;-0.090274;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.248390; 0.968535;-0.015168;, - -0.487594; 0.872738;-0.023713;, - -0.490799; 0.864040; 0.111667;, - 0.056551; 0.745018;-0.664632;, - -0.459243; 0.861690;-0.215735;, - -0.487594; 0.872738;-0.023713;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - -0.209876; 0.968566; 0.133488;, - -0.209876; 0.968566; 0.133488;, - -0.209876; 0.968566; 0.133488;, - -0.158361; 0.968474; 0.192114;, - -0.158361; 0.968474; 0.192145;, - -0.209876; 0.968566; 0.133488;, - -0.158361; 0.968474; 0.192114;, - -0.209876; 0.968566; 0.133488;, - -0.407697; 0.873318; 0.266518;, - -0.301248; 0.880825; 0.365154;, - -0.241157; 0.968474; 0.061953;, - -0.490799; 0.864040; 0.111667;, - -0.407697; 0.873318; 0.266518;, - -0.209876; 0.968566; 0.133488;, - 0.028474; 0.998566; 0.044771;, - 0.078097; 0.996551;-0.027009;, - -0.459243; 0.861690;-0.215735;, - -0.266945; 0.867458;-0.419752;, - 0.043184; 0.724693;-0.687674;, - 0.057558; 0.996551;-0.059267;, - 0.091952; 0.989593;-0.110416;, - 0.438917; 0.724784;-0.531053;, - -0.369823; 0.724601;-0.581500;, - -0.028443; 0.998566;-0.044740;, - 0.057558; 0.996551;-0.059267;, - 0.043184; 0.724693;-0.687674;, - 0.231391; 0.902219; 0.363872;, - -0.369823; 0.724601;-0.581500;, - 0.043184; 0.724693;-0.687674;, - -0.027009; 0.902097; 0.430616;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.158361; 0.968474; 0.192145;, - -0.158361; 0.968474; 0.192114;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.005341; 0.973510; 0.228523;, - -0.013459; 0.972137; 0.233894;, - -0.005341; 0.973510; 0.228523;, - -0.091556; 0.968535; 0.231391;, - -0.185247; 0.872738; 0.451643;, - 0.008332; 0.853786; 0.520493;, - -0.185247; 0.872738; 0.451643;, - -0.091556; 0.968535; 0.231391;, - -0.158361; 0.968474; 0.192114;, - -0.301248; 0.880825; 0.365154;, - 0.008332; 0.853786; 0.520493;, - 0.057558; 0.996551;-0.059267;, - -0.028443; 0.998566;-0.044740;, - 0.266579; 0.867855; 0.419172;, - -0.027009; 0.902097; 0.430616;, - 0.043184; 0.724693;-0.687674;, - 0.438917; 0.724784;-0.531053;, - -0.275033; 0.901975; 0.332804;, - -0.133488; 0.968566;-0.209876;, - -0.192114; 0.968474;-0.158391;, - 0.027009; 0.999359; 0.022217;, - 0.019257; 0.999329; 0.030305;, - 0.027009; 0.999359; 0.022217;, - -0.192114; 0.968474;-0.158391;, - -0.231361; 0.968535;-0.091617;, - 0.033021; 0.999359; 0.013092;, - -0.192114; 0.968474;-0.158391;, - -0.180700; 0.972564;-0.146336;, - -0.220161; 0.971252;-0.090274;, - -0.231361; 0.968535;-0.091617;, - 0.143437; 0.963591; 0.225562;, - 0.206458; 0.963500; 0.170232;, - 0.493057; 0.769158; 0.406537;, - 0.343211; 0.768700; 0.539659;, - 0.493057; 0.769158; 0.406537;, - 0.206458; 0.963500; 0.170232;, - 0.248634; 0.963561; 0.098483;, - 0.594440; 0.768883; 0.235420;, - 0.206458; 0.963500; 0.170232;, - 0.027009; 0.999359; 0.022217;, - 0.033021; 0.999359; 0.013092;, - 0.248634; 0.963561; 0.098483;, - 0.019257; 0.999329; 0.030305;, - 0.027009; 0.999359; 0.022217;, - 0.206458; 0.963500; 0.170232;, - 0.143437; 0.963591; 0.225562;, - -0.248390; 0.968535;-0.015168;, - 0.035463; 0.999359; 0.002136;, - 0.033021; 0.999359; 0.013092;, - -0.231361; 0.968535;-0.091617;, - 0.033906; 0.999359;-0.008667;, - 0.035463; 0.999359; 0.002136;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - -0.248390; 0.968535;-0.015168;, - -0.248390; 0.968535;-0.015168;, - -0.241157; 0.968474; 0.061953;, - 0.594440; 0.768883; 0.235420;, - 0.248634; 0.963561; 0.098483;, - 0.266945; 0.963561; 0.016297;, - 0.638173; 0.768883; 0.039003;, - 0.266945; 0.963561; 0.016297;, - 0.259163; 0.963500;-0.066561;, - 0.618946; 0.769127;-0.159001;, - 0.638173; 0.768883; 0.039003;, - 0.259163; 0.963500;-0.066561;, - 0.266945; 0.963561; 0.016297;, - 0.035463; 0.999359; 0.002136;, - 0.033906; 0.999359;-0.008667;, - 0.266945; 0.963561; 0.016297;, - 0.248634; 0.963561; 0.098483;, - 0.033021; 0.999359; 0.013092;, - 0.035463; 0.999359; 0.002136;, - -0.248390; 0.968535;-0.015168;, - -0.248390; 0.968535;-0.015168;, - -0.231361; 0.968535;-0.091617;, - -0.220161; 0.971252;-0.090274;, - -0.209906; 0.968535; 0.133488;, - 0.030305; 0.999329;-0.019257;, - 0.033906; 0.999359;-0.008667;, - -0.241157; 0.968474; 0.061953;, - 0.022248; 0.999359;-0.027009;, - 0.030305; 0.999329;-0.019257;, - -0.209906; 0.968535; 0.133488;, - -0.158361; 0.968474; 0.192145;, - -0.158361; 0.968474; 0.192145;, - -0.209906; 0.968535; 0.133488;, - -0.209876; 0.968566; 0.133488;, - -0.158361; 0.968474; 0.192145;, - 0.618946; 0.769127;-0.159001;, - 0.259163; 0.963500;-0.066561;, - 0.225562; 0.963591;-0.143468;, - 0.539689; 0.768700;-0.343211;, - 0.225562; 0.963591;-0.143468;, - 0.170202; 0.963500;-0.206488;, - 0.406446; 0.769127;-0.493149;, - 0.539689; 0.768700;-0.343211;, - 0.170202; 0.963500;-0.206488;, - 0.225562; 0.963591;-0.143468;, - 0.030305; 0.999329;-0.019257;, - 0.022248; 0.999359;-0.027009;, - 0.259163; 0.963500;-0.066561;, - 0.033906; 0.999359;-0.008667;, - 0.030305; 0.999329;-0.019257;, - 0.225562; 0.963591;-0.143468;, - -0.209876; 0.968566; 0.133488;, - -0.209906; 0.968535; 0.133488;, - -0.241157; 0.968474; 0.061953;, - -0.241157; 0.968474; 0.061953;, - 0.467574; 0.490707; 0.735191;, - 0.672414; 0.490310; 0.554430;, - 0.745842; 0.255745; 0.615009;, - 0.518784; 0.255745; 0.815729;, - 0.745842; 0.255745; 0.615009;, - 0.672414; 0.490310; 0.554430;, - 0.810175; 0.490524; 0.320841;, - 0.898801; 0.255745; 0.355937;, - 0.672414; 0.490310; 0.554430;, - 0.493057; 0.769158; 0.406537;, - 0.594440; 0.768883; 0.235420;, - 0.810175; 0.490524; 0.320841;, - 0.536546; 0.017121; 0.843654;, - 0.771416; 0.017121; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.536637; 0.000000; 0.843776;, - 0.771508; 0.000000; 0.636158;, - 0.771416; 0.017121; 0.636067;, - 0.929594; 0.017121; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.771416; 0.017121; 0.636067;, - 0.745842; 0.255745; 0.615009;, - 0.898801; 0.255745; 0.355937;, - 0.929594; 0.017121; 0.368145;, - 0.518784; 0.255745; 0.815729;, - 0.745842; 0.255745; 0.615009;, - 0.771416; 0.017121; 0.636067;, - 0.536546; 0.017121; 0.843654;, - 0.869778; 0.490524; 0.053194;, - 0.964934; 0.255745; 0.059023;, - 0.898801; 0.255745; 0.355937;, - 0.810175; 0.490524; 0.320841;, - 0.936308; 0.255715;-0.240577;, - 0.964934; 0.255745; 0.059023;, - 0.869778; 0.490524; 0.053194;, - 0.844111; 0.490310;-0.216865;, - 0.844111; 0.490310;-0.216865;, - 0.869778; 0.490524; 0.053194;, - 0.638173; 0.768883; 0.039003;, - 0.618946; 0.769127;-0.159001;, - 0.929716; 0.000000; 0.368206;, - 0.929594; 0.017121; 0.368145;, - 0.997986; 0.017121; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.997986; 0.017121; 0.061037;, - 0.968383; 0.017121;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.998108; 0.000000; 0.061037;, - 0.968383; 0.017121;-0.248787;, - 0.997986; 0.017121; 0.061037;, - 0.964934; 0.255745; 0.059023;, - 0.936308; 0.255715;-0.240577;, - 0.929594; 0.017121; 0.368145;, - 0.898801; 0.255745; 0.355937;, - 0.964934; 0.255745; 0.059023;, - 0.997986; 0.017121; 0.061037;, - 0.638173; 0.768883; 0.039003;, - 0.869778; 0.490524; 0.053194;, - 0.810175; 0.490524; 0.320841;, - 0.594440; 0.768883; 0.235420;, - 0.735221; 0.490707;-0.467574;, - 0.815729; 0.255745;-0.518784;, - 0.936308; 0.255715;-0.240577;, - 0.844111; 0.490310;-0.216865;, - 0.614887; 0.255745;-0.745964;, - 0.815729; 0.255745;-0.518784;, - 0.735221; 0.490707;-0.467574;, - 0.554308; 0.490310;-0.672506;, - 0.554308; 0.490310;-0.672506;, - 0.735221; 0.490707;-0.467574;, - 0.539689; 0.768700;-0.343211;, - 0.406446; 0.769127;-0.493149;, - 0.968535; 0.000000;-0.248848;, - 0.968383; 0.017121;-0.248787;, - 0.843654; 0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654; 0.017121;-0.536546;, - 0.635945; 0.017121;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.843776; 0.000000;-0.536637;, - 0.635945; 0.017121;-0.771538;, - 0.843654; 0.017121;-0.536546;, - 0.815729; 0.255745;-0.518784;, - 0.614887; 0.255745;-0.745964;, - 0.968383; 0.017121;-0.248787;, - 0.936308; 0.255715;-0.240577;, - 0.815729; 0.255745;-0.518784;, - 0.843654; 0.017121;-0.536546;, - 0.539689; 0.768700;-0.343211;, - 0.735221; 0.490707;-0.467574;, - 0.844111; 0.490310;-0.216865;, - 0.618946; 0.769127;-0.159001;, - 0.343211; 0.768700; 0.539659;, - 0.493057; 0.769158; 0.406537;, - 0.672414; 0.490310; 0.554430;, - 0.467574; 0.490707; 0.735191;, - -0.091556; 0.968535; 0.231391;, - 0.013092; 0.999359;-0.033021;, - 0.022248; 0.999359;-0.027009;, - -0.158361; 0.968474; 0.192145;, - -0.091556; 0.968535; 0.231391;, - -0.015107; 0.968535; 0.248390;, - 0.002106; 0.999359;-0.035463;, - 0.013092; 0.999359;-0.033021;, - -0.015107; 0.968535; 0.248390;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.013459; 0.972137; 0.233894;, - 0.098392; 0.963561;-0.248665;, - 0.235237; 0.768883;-0.594531;, - 0.406446; 0.769127;-0.493149;, - 0.170202; 0.963500;-0.206488;, - 0.098392; 0.963561;-0.248665;, - 0.016236; 0.963561;-0.266945;, - 0.038820; 0.768883;-0.638173;, - 0.235237; 0.768883;-0.594531;, - 0.016236; 0.963561;-0.266945;, - 0.098392; 0.963561;-0.248665;, - 0.013092; 0.999359;-0.033021;, - 0.002106; 0.999359;-0.035463;, - 0.013092; 0.999359;-0.033021;, - 0.098392; 0.963561;-0.248665;, - 0.170202; 0.963500;-0.206488;, - 0.022248; 0.999359;-0.027009;, - -0.015107; 0.968535; 0.248390;, - 0.061983; 0.968474; 0.241157;, - -0.008667; 0.999359;-0.033876;, - 0.002106; 0.999359;-0.035463;, - -0.008667; 0.999359;-0.033876;, - 0.061983; 0.968474; 0.241157;, - 0.133488; 0.968535; 0.209876;, - -0.019257; 0.999329;-0.030305;, - 0.061983; 0.968474; 0.241157;, - 0.052675; 0.974242; 0.219245;, - 0.133488; 0.968566; 0.209876;, - 0.133488; 0.968535; 0.209876;, - 0.016236; 0.963561;-0.266945;, - -0.066622; 0.963530;-0.259163;, - -0.159124; 0.769158;-0.618915;, - 0.038820; 0.768883;-0.638173;, - -0.159124; 0.769158;-0.618915;, - -0.066622; 0.963530;-0.259163;, - -0.143437; 0.963591;-0.225562;, - -0.343211; 0.768700;-0.539659;, - -0.066622; 0.963530;-0.259163;, - -0.008667; 0.999359;-0.033876;, - -0.019257; 0.999329;-0.030305;, - -0.143437; 0.963591;-0.225562;, - -0.066622; 0.963530;-0.259163;, - 0.016236; 0.963561;-0.266945;, - 0.002106; 0.999359;-0.035463;, - -0.008667; 0.999359;-0.033876;, - 0.061983; 0.968474; 0.241157;, - -0.015107; 0.968535; 0.248390;, - -0.013459; 0.972137; 0.233894;, - 0.052675; 0.974242; 0.219245;, - 0.320597; 0.490524;-0.810266;, - 0.355663; 0.255745;-0.898923;, - 0.614887; 0.255745;-0.745964;, - 0.554308; 0.490310;-0.672506;, - 0.058718; 0.255745;-0.964934;, - 0.355663; 0.255745;-0.898923;, - 0.320597; 0.490524;-0.810266;, - 0.052919; 0.490524;-0.869778;, - 0.052919; 0.490524;-0.869778;, - 0.320597; 0.490524;-0.810266;, - 0.235237; 0.768883;-0.594531;, - 0.038820; 0.768883;-0.638173;, - 0.636036; 0.000000;-0.771630;, - 0.635945; 0.017121;-0.771538;, - 0.367870; 0.017121;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.367901; 0.000000;-0.929838;, - 0.367870; 0.017121;-0.929716;, - 0.060732; 0.017121;-0.997986;, - 0.060732; 0.000000;-0.998138;, - 0.060732; 0.017121;-0.997986;, - 0.367870; 0.017121;-0.929716;, - 0.355663; 0.255745;-0.898923;, - 0.058718; 0.255745;-0.964934;, - 0.635945; 0.017121;-0.771538;, - 0.614887; 0.255745;-0.745964;, - 0.355663; 0.255745;-0.898923;, - 0.367870; 0.017121;-0.929716;, - 0.052919; 0.490524;-0.869778;, - -0.217017; 0.490310;-0.844081;, - -0.240761; 0.255745;-0.936277;, - 0.058718; 0.255745;-0.964934;, - -0.240761; 0.255745;-0.936277;, - -0.217017; 0.490310;-0.844081;, - -0.467574; 0.490707;-0.735191;, - -0.518784; 0.255745;-0.815729;, - -0.217017; 0.490310;-0.844081;, - -0.159124; 0.769158;-0.618915;, - -0.343211; 0.768700;-0.539659;, - -0.467574; 0.490707;-0.735191;, - 0.060732; 0.017121;-0.997986;, - -0.248970; 0.017121;-0.968352;, - -0.249001; 0.000000;-0.968474;, - 0.060732; 0.000000;-0.998138;, - -0.249001; 0.000000;-0.968474;, - -0.248970; 0.017121;-0.968352;, - -0.536546; 0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.248970; 0.017121;-0.968352;, - -0.240761; 0.255745;-0.936277;, - -0.518784; 0.255745;-0.815729;, - -0.536546; 0.017121;-0.843654;, - -0.248970; 0.017121;-0.968352;, - 0.060732; 0.017121;-0.997986;, - 0.058718; 0.255745;-0.964934;, - -0.240761; 0.255745;-0.936277;, - -0.217017; 0.490310;-0.844081;, - 0.052919; 0.490524;-0.869778;, - 0.038820; 0.768883;-0.638173;, - -0.159124; 0.769158;-0.618915;, - 0.235237; 0.768883;-0.594531;, - 0.320597; 0.490524;-0.810266;, - 0.554308; 0.490310;-0.672506;, - 0.406446; 0.769127;-0.493149;, - -0.091556; 0.968535; 0.231391;, - -0.091556; 0.968535; 0.231391;, - -0.158361; 0.968474; 0.192145;, - -0.158361; 0.968474; 0.192145;, - -0.133488; 0.968566;-0.209876;, - -0.180700; 0.972564;-0.146336;, - -0.192114; 0.968474;-0.158391;, - -0.133488; 0.968566;-0.209876;, - -0.369823; 0.724601;-0.581500;, - -0.641133; 0.724693;-0.252449;, - -0.078066; 0.996551; 0.027009;, - -0.028443; 0.998566;-0.044740;, - -0.641133; 0.724693;-0.252449;, - -0.667043; 0.724784; 0.172308;, - -0.138981; 0.989593; 0.036439;, - -0.078066; 0.996551; 0.027009;, - -0.667043; 0.724784; 0.172308;, - -0.641133; 0.724693;-0.252449;, - 0.401440; 0.902097; 0.158116;, - 0.418012; 0.901975;-0.107944;, - -0.667043; 0.724784; 0.172308;, - -0.438887; 0.724784; 0.531053;, - -0.075381; 0.993957; 0.079409;, - -0.138981; 0.989593; 0.036439;, - 0.275033; 0.901975;-0.332804;, - -0.438887; 0.724784; 0.531053;, - -0.667043; 0.724784; 0.172308;, - 0.418012; 0.901975;-0.107944;, - 0.217536; 0.972137; 0.086947;, - 0.209235; 0.973510; 0.092044;, - 0.248390; 0.968535; 0.015168;, - 0.248390; 0.968535; 0.015168;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - 0.241157; 0.968474;-0.061953;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - 0.248390; 0.968535; 0.015168;, - 0.487594; 0.872738; 0.023713;, - 0.458449; 0.880825;-0.118015;, - 0.209235; 0.973510; 0.092044;, - 0.467849; 0.853786; 0.228248;, - 0.487594; 0.872738; 0.023713;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - 0.241157; 0.968474;-0.061953;, - 0.209876; 0.968566;-0.133488;, - 0.209876; 0.968566;-0.133488;, - 0.209876; 0.968566;-0.133488;, - 0.158361; 0.968474;-0.192114;, - 0.158361; 0.968474;-0.192145;, - 0.209876; 0.968566;-0.133488;, - 0.158361; 0.968474;-0.192114;, - 0.209876; 0.968566;-0.133488;, - 0.414258; 0.873318;-0.256233;, - 0.309244; 0.864040;-0.397137;, - 0.241157; 0.968474;-0.061953;, - 0.458449; 0.880825;-0.118015;, - 0.414258; 0.873318;-0.256233;, - 0.209876; 0.968566;-0.133488;, - -0.028443; 0.998566;-0.044740;, - -0.078066; 0.996551; 0.027009;, - 0.467849; 0.853786; 0.228248;, - 0.266579; 0.867855; 0.419172;, - -0.043184; 0.724693; 0.687674;, - -0.057558; 0.996551; 0.059267;, - -0.075381; 0.993957; 0.079409;, - -0.438887; 0.724784; 0.531053;, - -0.057558; 0.996551; 0.059267;, - -0.043184; 0.724693; 0.687674;, - 0.369823; 0.724601; 0.581500;, - 0.028474; 0.998566; 0.044771;, - -0.043184; 0.724693; 0.687674;, - 0.027009; 0.902097;-0.430616;, - -0.231391; 0.902219;-0.363842;, - 0.369823; 0.724601; 0.581500;, - 0.091556; 0.968535;-0.231391;, - 0.091556; 0.968535;-0.231391;, - 0.158361; 0.968474;-0.192145;, - 0.158361; 0.968474;-0.192114;, - 0.091556; 0.968535;-0.231391;, - -0.402020; 0.880367;-0.251534;, - 0.011567; 0.971252;-0.237678;, - 0.091556; 0.968535;-0.231391;, - -0.402020; 0.880367;-0.251534;, - 0.091556; 0.968535;-0.231391;, - 0.185247; 0.872738;-0.451643;, - -0.000641; 0.861690;-0.507370;, - 0.185247; 0.872738;-0.451643;, - 0.091556; 0.968535;-0.231391;, - 0.158361; 0.968474;-0.192114;, - 0.309244; 0.864040;-0.397137;, - -0.000641; 0.861690;-0.507370;, - -0.057558; 0.996551; 0.059267;, - 0.028474; 0.998566; 0.044771;, - -0.266945; 0.867458;-0.419752;, - 0.027009; 0.902097;-0.430616;, - -0.043184; 0.724693; 0.687674;, - -0.438887; 0.724784; 0.531053;, - 0.275033; 0.901975;-0.332804;, - 0.133488; 0.968535; 0.209876;, - 0.192114; 0.968474; 0.158391;, - -0.027009; 0.999359;-0.022248;, - -0.019257; 0.999329;-0.030305;, - 0.231361; 0.968535; 0.091617;, - -0.033021; 0.999359;-0.013092;, - -0.027009; 0.999359;-0.022248;, - 0.192114; 0.968474; 0.158391;, - 0.217536; 0.972137; 0.086947;, - 0.231361; 0.968535; 0.091617;, - 0.192114; 0.968474; 0.158391;, - 0.176214; 0.974242; 0.140660;, - -0.143437; 0.963591;-0.225562;, - -0.206458; 0.963500;-0.170232;, - -0.493057; 0.769158;-0.406537;, - -0.343211; 0.768700;-0.539659;, - -0.493057; 0.769158;-0.406537;, - -0.206458; 0.963500;-0.170232;, - -0.248634; 0.963561;-0.098483;, - -0.594440; 0.768883;-0.235420;, - -0.206458; 0.963500;-0.170232;, - -0.027009; 0.999359;-0.022248;, - -0.033021; 0.999359;-0.013092;, - -0.248634; 0.963561;-0.098483;, - -0.019257; 0.999329;-0.030305;, - -0.027009; 0.999359;-0.022248;, - -0.206458; 0.963500;-0.170232;, - -0.143437; 0.963591;-0.225562;, - 0.248390; 0.968535; 0.015168;, - -0.035493; 0.999359;-0.002136;, - -0.033021; 0.999359;-0.013092;, - 0.231361; 0.968535; 0.091617;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - -0.033906; 0.999359; 0.008667;, - -0.035493; 0.999359;-0.002136;, - 0.241157; 0.968474;-0.061953;, - 0.248390; 0.968535; 0.015168;, - 0.248390; 0.968535; 0.015168;, - 0.241157; 0.968474;-0.061953;, - -0.266945; 0.963561;-0.016297;, - -0.638173; 0.768883;-0.039003;, - -0.594440; 0.768883;-0.235420;, - -0.248634; 0.963561;-0.098483;, - -0.266945; 0.963561;-0.016297;, - -0.259163; 0.963500; 0.066561;, - -0.618946; 0.769127; 0.159001;, - -0.638173; 0.768883;-0.039003;, - -0.259163; 0.963500; 0.066561;, - -0.266945; 0.963561;-0.016297;, - -0.035493; 0.999359;-0.002136;, - -0.033906; 0.999359; 0.008667;, - -0.035493; 0.999359;-0.002136;, - -0.266945; 0.963561;-0.016297;, - -0.248634; 0.963561;-0.098483;, - -0.033021; 0.999359;-0.013092;, - 0.248390; 0.968535; 0.015168;, - 0.231361; 0.968535; 0.091617;, - 0.217536; 0.972137; 0.086947;, - 0.248390; 0.968535; 0.015168;, - 0.209906; 0.968535;-0.133488;, - -0.030305; 0.999329; 0.019257;, - -0.033906; 0.999359; 0.008667;, - 0.241157; 0.968474;-0.061953;, - 0.209906; 0.968535;-0.133488;, - 0.158361; 0.968474;-0.192145;, - -0.022248; 0.999359; 0.027009;, - -0.030305; 0.999329; 0.019257;, - 0.158361; 0.968474;-0.192145;, - 0.209906; 0.968535;-0.133488;, - 0.209876; 0.968566;-0.133488;, - 0.158361; 0.968474;-0.192145;, - -0.225562; 0.963591; 0.143468;, - -0.539689; 0.768700; 0.343211;, - -0.618946; 0.769127; 0.159001;, - -0.259163; 0.963500; 0.066561;, - -0.225562; 0.963591; 0.143468;, - -0.170202; 0.963500; 0.206488;, - -0.406446; 0.769127; 0.493149;, - -0.539689; 0.768700; 0.343211;, - -0.170202; 0.963500; 0.206488;, - -0.225562; 0.963591; 0.143468;, - -0.030305; 0.999329; 0.019257;, - -0.022248; 0.999359; 0.027009;, - -0.030305; 0.999329; 0.019257;, - -0.225562; 0.963591; 0.143468;, - -0.259163; 0.963500; 0.066561;, - -0.033906; 0.999359; 0.008667;, - 0.209876; 0.968566;-0.133488;, - 0.209906; 0.968535;-0.133488;, - 0.241157; 0.968474;-0.061953;, - 0.241157; 0.968474;-0.061953;, - -0.467574; 0.490707;-0.735191;, - -0.672414; 0.490310;-0.554430;, - -0.745842; 0.255745;-0.615009;, - -0.518784; 0.255745;-0.815729;, - -0.745842; 0.255745;-0.615009;, - -0.672414; 0.490310;-0.554430;, - -0.810175; 0.490524;-0.320841;, - -0.898801; 0.255745;-0.355937;, - -0.672414; 0.490310;-0.554430;, - -0.493057; 0.769158;-0.406537;, - -0.594440; 0.768883;-0.235420;, - -0.810175; 0.490524;-0.320841;, - -0.536546; 0.017121;-0.843654;, - -0.771416; 0.017121;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.536637; 0.000000;-0.843776;, - -0.771508; 0.000000;-0.636158;, - -0.771416; 0.017121;-0.636067;, - -0.929594; 0.017121;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.771416; 0.017121;-0.636067;, - -0.745842; 0.255745;-0.615009;, - -0.898801; 0.255745;-0.355937;, - -0.929594; 0.017121;-0.368145;, - -0.518784; 0.255745;-0.815729;, - -0.745842; 0.255745;-0.615009;, - -0.771416; 0.017121;-0.636067;, - -0.536546; 0.017121;-0.843654;, - -0.869778; 0.490524;-0.053194;, - -0.964934; 0.255715;-0.059023;, - -0.898801; 0.255745;-0.355937;, - -0.810175; 0.490524;-0.320841;, - -0.936308; 0.255745; 0.240577;, - -0.964934; 0.255715;-0.059023;, - -0.869778; 0.490524;-0.053194;, - -0.844111; 0.490310; 0.216865;, - -0.844111; 0.490310; 0.216865;, - -0.869778; 0.490524;-0.053194;, - -0.638173; 0.768883;-0.039003;, - -0.618946; 0.769127; 0.159001;, - -0.929594; 0.017121;-0.368145;, - -0.997986; 0.017121;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.929716; 0.000000;-0.368206;, - -0.997986; 0.017121;-0.061037;, - -0.968383; 0.017121; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.998108; 0.000000;-0.061037;, - -0.968383; 0.017121; 0.248787;, - -0.997986; 0.017121;-0.061037;, - -0.964934; 0.255715;-0.059023;, - -0.936308; 0.255745; 0.240577;, - -0.929594; 0.017121;-0.368145;, - -0.898801; 0.255745;-0.355937;, - -0.964934; 0.255715;-0.059023;, - -0.997986; 0.017121;-0.061037;, - -0.638173; 0.768883;-0.039003;, - -0.869778; 0.490524;-0.053194;, - -0.810175; 0.490524;-0.320841;, - -0.594440; 0.768883;-0.235420;, - -0.735221; 0.490707; 0.467574;, - -0.815729; 0.255745; 0.518784;, - -0.936308; 0.255745; 0.240577;, - -0.844111; 0.490310; 0.216865;, - -0.614887; 0.255745; 0.745964;, - -0.815729; 0.255745; 0.518784;, - -0.735221; 0.490707; 0.467574;, - -0.554308; 0.490310; 0.672506;, - -0.554308; 0.490310; 0.672506;, - -0.735221; 0.490707; 0.467574;, - -0.539689; 0.768700; 0.343211;, - -0.406446; 0.769127; 0.493149;, - -0.968535; 0.000000; 0.248848;, - -0.968383; 0.017121; 0.248787;, - -0.843654; 0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654; 0.017121; 0.536546;, - -0.635945; 0.017121; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.843776; 0.000000; 0.536637;, - -0.635945; 0.017121; 0.771538;, - -0.843654; 0.017121; 0.536546;, - -0.815729; 0.255745; 0.518784;, - -0.614887; 0.255745; 0.745964;, - -0.968383; 0.017121; 0.248787;, - -0.936308; 0.255745; 0.240577;, - -0.815729; 0.255745; 0.518784;, - -0.843654; 0.017121; 0.536546;, - -0.539689; 0.768700; 0.343211;, - -0.735221; 0.490707; 0.467574;, - -0.844111; 0.490310; 0.216865;, - -0.618946; 0.769127; 0.159001;, - -0.343211; 0.768700;-0.539659;, - -0.493057; 0.769158;-0.406537;, - -0.672414; 0.490310;-0.554430;, - -0.467574; 0.490707;-0.735191;, - 0.091556; 0.968535;-0.231391;, - -0.013092; 0.999359; 0.033052;, - -0.022248; 0.999359; 0.027009;, - 0.158361; 0.968474;-0.192145;, - 0.091556; 0.968535;-0.231391;, - 0.015107; 0.968535;-0.248390;, - -0.002106; 0.999359; 0.035463;, - -0.013092; 0.999359; 0.033052;, - 0.011567; 0.971252;-0.237678;, - 0.015107; 0.968535;-0.248390;, - 0.091556; 0.968535;-0.231391;, - 0.091556; 0.968535;-0.231391;, - -0.098392; 0.963561; 0.248665;, - -0.235237; 0.768883; 0.594531;, - -0.406446; 0.769127; 0.493149;, - -0.170202; 0.963500; 0.206488;, - -0.098392; 0.963561; 0.248665;, - -0.016236; 0.963561; 0.266945;, - -0.038820; 0.768883; 0.638173;, - -0.235237; 0.768883; 0.594531;, - -0.016236; 0.963561; 0.266945;, - -0.098392; 0.963561; 0.248665;, - -0.013092; 0.999359; 0.033052;, - -0.002106; 0.999359; 0.035463;, - -0.013092; 0.999359; 0.033052;, - -0.098392; 0.963561; 0.248665;, - -0.170202; 0.963500; 0.206488;, - -0.022248; 0.999359; 0.027009;, - 0.015107; 0.968535;-0.248390;, - -0.061983; 0.968474;-0.241157;, - 0.008667; 0.999359; 0.033876;, - -0.002106; 0.999359; 0.035463;, - 0.008667; 0.999359; 0.033876;, - -0.061983; 0.968474;-0.241157;, - -0.133488; 0.968566;-0.209876;, - 0.019257; 0.999329; 0.030305;, - -0.061983; 0.968474;-0.241157;, - -0.055910; 0.972564;-0.225715;, - -0.133488; 0.968566;-0.209876;, - -0.133488; 0.968566;-0.209876;, - -0.016236; 0.963561; 0.266945;, - 0.066622; 0.963530; 0.259163;, - 0.159124; 0.769158; 0.618915;, - -0.038820; 0.768883; 0.638173;, - 0.159124; 0.769158; 0.618915;, - 0.066622; 0.963530; 0.259163;, - 0.143437; 0.963591; 0.225562;, - 0.343211; 0.768700; 0.539659;, - 0.066622; 0.963530; 0.259163;, - 0.008667; 0.999359; 0.033876;, - 0.019257; 0.999329; 0.030305;, - 0.143437; 0.963591; 0.225562;, - 0.066622; 0.963530; 0.259163;, - -0.016236; 0.963561; 0.266945;, - -0.002106; 0.999359; 0.035463;, - 0.008667; 0.999359; 0.033876;, - -0.061983; 0.968474;-0.241157;, - 0.015107; 0.968535;-0.248390;, - 0.011567; 0.971252;-0.237678;, - -0.055910; 0.972564;-0.225715;, - -0.320597; 0.490524; 0.810266;, - -0.355663; 0.255715; 0.898923;, - -0.614887; 0.255745; 0.745964;, - -0.554308; 0.490310; 0.672506;, - -0.320597; 0.490524; 0.810266;, - -0.052919; 0.490524; 0.869778;, - -0.058718; 0.255745; 0.964934;, - -0.355663; 0.255715; 0.898923;, - -0.052919; 0.490524; 0.869778;, - -0.320597; 0.490524; 0.810266;, - -0.235237; 0.768883; 0.594531;, - -0.038820; 0.768883; 0.638173;, - -0.367870; 0.017121; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.636036; 0.000000; 0.771630;, - -0.635945; 0.017121; 0.771538;, - -0.367870; 0.017121; 0.929716;, - -0.060732; 0.017121; 0.997986;, - -0.060732; 0.000000; 0.998138;, - -0.367901; 0.000000; 0.929838;, - -0.060732; 0.017121; 0.997986;, - -0.367870; 0.017121; 0.929716;, - -0.355663; 0.255715; 0.898923;, - -0.058718; 0.255745; 0.964934;, - -0.355663; 0.255715; 0.898923;, - -0.367870; 0.017121; 0.929716;, - -0.635945; 0.017121; 0.771538;, - -0.614887; 0.255745; 0.745964;, - -0.052919; 0.490524; 0.869778;, - 0.217017; 0.490310; 0.844081;, - 0.240730; 0.255745; 0.936277;, - -0.058718; 0.255745; 0.964934;, - 0.240730; 0.255745; 0.936277;, - 0.217017; 0.490310; 0.844081;, - 0.467574; 0.490707; 0.735191;, - 0.518784; 0.255745; 0.815729;, - 0.217017; 0.490310; 0.844081;, - 0.159124; 0.769158; 0.618915;, - 0.343211; 0.768700; 0.539659;, - 0.467574; 0.490707; 0.735191;, - -0.060732; 0.017121; 0.997986;, - 0.248970; 0.017121; 0.968352;, - 0.249001; 0.000000; 0.968474;, - -0.060732; 0.000000; 0.998138;, - 0.249001; 0.000000; 0.968474;, - 0.248970; 0.017121; 0.968352;, - 0.536546; 0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.248970; 0.017121; 0.968352;, - 0.240730; 0.255745; 0.936277;, - 0.518784; 0.255745; 0.815729;, - 0.536546; 0.017121; 0.843654;, - 0.248970; 0.017121; 0.968352;, - -0.060732; 0.017121; 0.997986;, - -0.058718; 0.255745; 0.964934;, - 0.240730; 0.255745; 0.936277;, - 0.217017; 0.490310; 0.844081;, - -0.052919; 0.490524; 0.869778;, - -0.038820; 0.768883; 0.638173;, - 0.159124; 0.769158; 0.618915;, - -0.235237; 0.768883; 0.594531;, - -0.320597; 0.490524; 0.810266;, - -0.554308; 0.490310; 0.672506;, - -0.406446; 0.769127; 0.493149;, - 0.091556; 0.968535;-0.231391;, - 0.091556; 0.968535;-0.231391;, - 0.158361; 0.968474;-0.192145;, - 0.158361; 0.968474;-0.192145;, - 0.192114; 0.968474; 0.158391;, - 0.133488; 0.968535; 0.209876;, - 0.133488; 0.968566; 0.209876;, - 0.176214; 0.974242; 0.140660;, - -0.641133; 0.724693;-0.252449;, - -0.369823; 0.724601;-0.581500;, - 0.231391; 0.902219; 0.363872;, - 0.401440; 0.902097; 0.158116;, - 0.641133; 0.724693; 0.252449;, - 0.369823; 0.724601; 0.581500;, - -0.231391; 0.902219;-0.363842;, - -0.401440; 0.902097;-0.158116;, - 0.020692; 0.999634; 0.017060;, - 0.014374; 0.999634; 0.022614;, - -0.000153; 1.000000;-0.000122;, - -0.055910;-0.972564;-0.225745;, - -0.133488;-0.968566;-0.209876;, - -0.266732;-0.867672;-0.419477;, - -0.388989;-0.886013;-0.252205;, - 0.011567;-0.971252;-0.237678;, - -0.000641;-0.861690;-0.507370;, - -0.266732;-0.867672;-0.419477;, - -0.000641;-0.861690;-0.507370;, - 0.011567;-0.971252;-0.237678;, - -0.055910;-0.972564;-0.225745;, - 0.185247;-0.872738;-0.451643;, - -0.000641;-0.861690;-0.507370;, - 0.005158;-0.865230;-0.501297;, - 0.292703;-0.885708;-0.360271;, - 0.309244;-0.864040;-0.397168;, - 0.185247;-0.872738;-0.451643;, - 0.005158;-0.865230;-0.501297;, - 0.414258;-0.873318;-0.256233;, - 0.309244;-0.864040;-0.397168;, - 0.292703;-0.885708;-0.360271;, - 0.425275;-0.898373;-0.109561;, - 0.458449;-0.880825;-0.118015;, - 0.414258;-0.873318;-0.256233;, - 0.292703;-0.885708;-0.360271;, - 0.209235;-0.973510; 0.092044;, - 0.467849;-0.853786; 0.228278;, - 0.266579;-0.867855; 0.419172;, - 0.176214;-0.974242; 0.140660;, - 0.266579;-0.867855; 0.419172;, - 0.133488;-0.968535; 0.209876;, - 0.266579;-0.867855; 0.419172;, - 0.176214;-0.974242; 0.140660;, - 0.217536;-0.972137; 0.086947;, - 0.209235;-0.973510; 0.092044;, - 0.467849;-0.853786; 0.228278;, - 0.487594;-0.872738; 0.023682;, - 0.456191;-0.865230; 0.207862;, - 0.456191;-0.865230; 0.207862;, - 0.487594;-0.872738; 0.023682;, - 0.458449;-0.880825;-0.118015;, - 0.425275;-0.898373;-0.109561;, - 0.266579;-0.867855; 0.419172;, - 0.008362;-0.853786; 0.520524;, - -0.005341;-0.973510; 0.228523;, - 0.133488;-0.968535; 0.209876;, - 0.266579;-0.867855; 0.419172;, - 0.052675;-0.974242; 0.219245;, - -0.013459;-0.972137; 0.233894;, - 0.052675;-0.974242; 0.219245;, - 0.266579;-0.867855; 0.419172;, - -0.005341;-0.973510; 0.228523;, - -0.005158;-0.865230; 0.501297;, - -0.185278;-0.872707; 0.451643;, - 0.008362;-0.853786; 0.520524;, - -0.301279;-0.880825; 0.365154;, - -0.185278;-0.872707; 0.451643;, - -0.005158;-0.865230; 0.501297;, - -0.279550;-0.898373; 0.338694;, - -0.450392;-0.885708; 0.112308;, - -0.490829;-0.864040; 0.111667;, - -0.407727;-0.873318; 0.266518;, - -0.407727;-0.873318; 0.266518;, - -0.301279;-0.880825; 0.365154;, - -0.279550;-0.898373; 0.338694;, - -0.450392;-0.885708; 0.112308;, - -0.266732;-0.867672;-0.419477;, - -0.133488;-0.968566;-0.209876;, - -0.176214;-0.974242;-0.140660;, - -0.467849;-0.853786;-0.228278;, - -0.266732;-0.867672;-0.419477;, - -0.209235;-0.973510;-0.092044;, - -0.217536;-0.972137;-0.086947;, - -0.209235;-0.973510;-0.092044;, - -0.266732;-0.867672;-0.419477;, - -0.176214;-0.974242;-0.140660;, - -0.456191;-0.865230;-0.207862;, - -0.467849;-0.853786;-0.228278;, - -0.487594;-0.872707;-0.023713;, - -0.487594;-0.872707;-0.023713;, - -0.490829;-0.864040; 0.111667;, - -0.450392;-0.885708; 0.112308;, - -0.456191;-0.865230;-0.207862;, - -0.332652; 0.933775;-0.131779;, - -0.293161; 0.947356;-0.128574;, - -0.288156; 0.934049;-0.210974;, - -0.187475; 0.936949;-0.294809;, - -0.288156; 0.934049;-0.210974;, - -0.293161; 0.947356;-0.128574;, - -0.231788; 0.947172;-0.221564;, - -0.171239; 0.947691;-0.269265;, - -0.102359; 0.947172;-0.303873;, - -0.187475; 0.936949;-0.294809;, - -0.231788; 0.947172;-0.221564;, - -0.068880; 0.934049;-0.350414;, - 0.007813; 0.947356;-0.320017;, - 0.021668; 0.933775;-0.357128;, - 0.007813; 0.947356;-0.320017;, - -0.068880; 0.934049;-0.350414;, - -0.187475; 0.936949;-0.294809;, - -0.102359; 0.947172;-0.303873;, - -0.332652; 0.933775;-0.131779;, - -0.357128; 0.933775;-0.021790;, - -0.322428; 0.946348;-0.019745;, - -0.293161; 0.947356;-0.128574;, - -0.357128; 0.933775;-0.021790;, - -0.346049; 0.933988; 0.088870;, - -0.313639; 0.946104; 0.080599;, - -0.322428; 0.946348;-0.019745;, - -0.346049; 0.933988; 0.088870;, - -0.302194; 0.933653; 0.192206;, - -0.272103; 0.946562; 0.173070;, - -0.313639; 0.946104; 0.080599;, - -0.227210; 0.933988; 0.275704;, - -0.205969; 0.946104; 0.249886;, - -0.272103; 0.946562; 0.173070;, - -0.302194; 0.933653; 0.192206;, - -0.329112; 0.767418;-0.550218;, - -0.408368; 0.583178;-0.702231;, - -0.681814; 0.510941;-0.523484;, - -0.726005; 0.635792;-0.262032;, - -0.531877; 0.826563;-0.183935;, - -0.329112; 0.767418;-0.550218;, - -0.681814; 0.510941;-0.523484;, - -0.935118; 0.332469; 0.122379;, - -0.726005; 0.635792;-0.262032;, - -0.942015; 0.290139;-0.168523;, - -0.935118; 0.332469; 0.122379;, - -0.942015; 0.290139;-0.168523;, - -0.778314; 0.582446; 0.234413;, - -0.531877; 0.826563;-0.183935;, - -0.726005; 0.635792;-0.262032;, - -0.935118; 0.332469; 0.122379;, - -0.109928; 0.992584;-0.051485;, - -0.395184; 0.765618; 0.507523;, - -0.744682; 0.504440; 0.436933;, - -0.490738; 0.583361; 0.647145;, - -0.778314; 0.582446; 0.234413;, - -0.744682; 0.504440; 0.436933;, - -0.395184; 0.765618; 0.507523;, - -0.935118; 0.332469; 0.122379;, - -0.131657; 0.933775; 0.332682;, - -0.118839; 0.946348; 0.300394;, - -0.205969; 0.946104; 0.249886;, - -0.227210; 0.933988; 0.275704;, - -0.021668; 0.933775; 0.357128;, - -0.003632; 0.949767; 0.312906;, - -0.118839; 0.946348; 0.300394;, - -0.131657; 0.933775; 0.332682;, - -0.003632; 0.949767; 0.312906;, - -0.021668; 0.933775; 0.357128;, - 0.094455; 0.922513; 0.374157;, - 0.003571; 0.999878; 0.013977;, - -0.003632; 0.949767; 0.312906;, - 0.168676; 0.949278; 0.265236;, - 0.207251; 0.922391; 0.325877;, - 0.168676; 0.949278; 0.265236;, - -0.003632; 0.949767; 0.312906;, - 0.094455; 0.922513; 0.374157;, - -0.021485; 0.766717; 0.641621;, - -0.345347; 0.507126; 0.789636;, - -0.017060; 0.583819; 0.811670;, - -0.490738; 0.583361; 0.647145;, - -0.345347; 0.507126; 0.789636;, - -0.021485; 0.766717; 0.641621;, - -0.395184; 0.765618; 0.507523;, - 0.185003; 0.510941; 0.839442;, - 0.462813; 0.583178; 0.667592;, - 0.358745; 0.767388; 0.531358;, - 0.358745; 0.767388; 0.531358;, - -0.021485; 0.766717; 0.641621;, - -0.017060; 0.583819; 0.811670;, - 0.185003; 0.510941; 0.839442;, - 0.298807; 0.922513; 0.244179;, - 0.332652; 0.933775; 0.131779;, - 0.284951; 0.949767; 0.129368;, - 0.168676; 0.949278; 0.265236;, - 0.284951; 0.949767; 0.129368;, - 0.011139; 0.999878; 0.009186;, - 0.284951; 0.949767; 0.129368;, - 0.168676; 0.949278; 0.265236;, - 0.207251; 0.922391; 0.325877;, - 0.298807; 0.922513; 0.244179;, - 0.313639; 0.946104;-0.080599;, - 0.322428; 0.946348; 0.019745;, - 0.357128; 0.933775; 0.021790;, - 0.346049; 0.933988;-0.088870;, - 0.322428; 0.946348; 0.019745;, - 0.284951; 0.949767; 0.129368;, - 0.332652; 0.933775; 0.131779;, - 0.357128; 0.933775; 0.021790;, - 0.272103; 0.946562;-0.173070;, - 0.302194; 0.933653;-0.192206;, - 0.227210; 0.933988;-0.275704;, - 0.205969; 0.946104;-0.249886;, - 0.313639; 0.946104;-0.080599;, - 0.346049; 0.933988;-0.088870;, - 0.302194; 0.933653;-0.192206;, - 0.272103; 0.946562;-0.173070;, - 0.643941; 0.510849; 0.569475;, - 0.694784; 0.664479; 0.275155;, - 0.561815; 0.796777; 0.222358;, - 0.561815; 0.796777; 0.222358;, - 0.358745; 0.767388; 0.531358;, - 0.462813; 0.583178; 0.667592;, - 0.643941; 0.510849; 0.569475;, - 0.694784; 0.664479; 0.275155;, - 0.861568; 0.507126; 0.022034;, - 0.561815; 0.796777; 0.222358;, - 0.561815; 0.796777; 0.222358;, - 0.861568; 0.507126; 0.022034;, - 0.794183; 0.583392;-0.170049;, - 0.627308; 0.765557;-0.142705;, - 0.794183; 0.583392;-0.170049;, - 0.711478; 0.504440;-0.489181;, - 0.627308; 0.765557;-0.142705;, - 0.627308; 0.765557;-0.142705;, - 0.711478; 0.504440;-0.489181;, - 0.542314; 0.582446;-0.605487;, - 0.423078; 0.765496;-0.484725;, - 0.118839; 0.946348;-0.300394;, - 0.131657; 0.933775;-0.332682;, - 0.021668; 0.933775;-0.357128;, - 0.007813; 0.947356;-0.320017;, - 0.205969; 0.946104;-0.249886;, - 0.227210; 0.933988;-0.275704;, - 0.131657; 0.933775;-0.332682;, - 0.118839; 0.946348;-0.300394;, - 0.542314; 0.582446;-0.605487;, - 0.288675; 0.506974;-0.812159;, - 0.423078; 0.765496;-0.484725;, - 0.423078; 0.765496;-0.484725;, - 0.288675; 0.506974;-0.812159;, - 0.082217; 0.582415;-0.808710;, - 0.056917; 0.766594;-0.639576;, - 0.056917; 0.766594;-0.639576;, - 0.082217; 0.582415;-0.808710;, - -0.242714; 0.510849;-0.824671;, - -0.408368; 0.583178;-0.702231;, - -0.329112; 0.767418;-0.550218;, - 0.056917; 0.766594;-0.639576;, - -0.242714; 0.510849;-0.824671;, - -0.180700; 0.972564;-0.146336;, - -0.133488; 0.968566;-0.209876;, - -0.266945; 0.867458;-0.419752;, - 0.056551; 0.745018;-0.664632;, - -0.220161; 0.971252;-0.090274;, - -0.459243; 0.861690;-0.215735;, - -0.266945; 0.867458;-0.419752;, - -0.459243; 0.861690;-0.215735;, - -0.220161; 0.971252;-0.090274;, - -0.180700; 0.972564;-0.146336;, - -0.487594; 0.872738;-0.023713;, - -0.459243; 0.861690;-0.215735;, - 0.078097; 0.996551;-0.027009;, - 0.103916; 0.993957;-0.034608;, - -0.490799; 0.864040; 0.111667;, - -0.487594; 0.872738;-0.023713;, - 0.078097; 0.996551;-0.027009;, - -0.407697; 0.873318; 0.266518;, - -0.490799; 0.864040; 0.111667;, - 0.103916; 0.993957;-0.034608;, - 0.091952; 0.989593;-0.110416;, - -0.301248; 0.880825; 0.365154;, - -0.407697; 0.873318; 0.266518;, - 0.103916; 0.993957;-0.034608;, - -0.005341; 0.973510; 0.228523;, - 0.008332; 0.853786; 0.520493;, - 0.266579; 0.867855; 0.419172;, - 0.052675; 0.974242; 0.219245;, - 0.266579; 0.867855; 0.419172;, - 0.133488; 0.968566; 0.209876;, - 0.266579; 0.867855; 0.419172;, - 0.052675; 0.974242; 0.219245;, - -0.013459; 0.972137; 0.233894;, - -0.005341; 0.973510; 0.228523;, - 0.008332; 0.853786; 0.520493;, - -0.185247; 0.872738; 0.451643;, - 0.057558; 0.996551;-0.059267;, - 0.057558; 0.996551;-0.059267;, - -0.185247; 0.872738; 0.451643;, - -0.301248; 0.880825; 0.365154;, - 0.091952; 0.989593;-0.110416;, - 0.266579; 0.867855; 0.419172;, - 0.467849; 0.853786; 0.228248;, - 0.209235; 0.973510; 0.092044;, - 0.133488; 0.968566; 0.209876;, - 0.266579; 0.867855; 0.419172;, - 0.176214; 0.974242; 0.140660;, - 0.217536; 0.972137; 0.086947;, - 0.176214; 0.974242; 0.140660;, - 0.266579; 0.867855; 0.419172;, - 0.209235; 0.973510; 0.092044;, - -0.078066; 0.996551; 0.027009;, - 0.487594; 0.872738; 0.023713;, - 0.467849; 0.853786; 0.228248;, - 0.458449; 0.880825;-0.118015;, - 0.487594; 0.872738; 0.023713;, - -0.078066; 0.996551; 0.027009;, - -0.138981; 0.989593; 0.036439;, - -0.075381; 0.993957; 0.079409;, - 0.309244; 0.864040;-0.397137;, - 0.414258; 0.873318;-0.256233;, - 0.414258; 0.873318;-0.256233;, - 0.458449; 0.880825;-0.118015;, - -0.138981; 0.989593; 0.036439;, - -0.075381; 0.993957; 0.079409;, - -0.266945; 0.867458;-0.419752;, - -0.133488; 0.968566;-0.209876;, - -0.055910; 0.972564;-0.225715;, - -0.000641; 0.861690;-0.507370;, - 0.011567; 0.971252;-0.237678;, - -0.402020; 0.880367;-0.251534;, - 0.011567; 0.971252;-0.237678;, - -0.000641; 0.861690;-0.507370;, - -0.266945; 0.867458;-0.419752;, - -0.055910; 0.972564;-0.225715;, - -0.057558; 0.996551; 0.059267;, - -0.000641; 0.861690;-0.507370;, - 0.185247; 0.872738;-0.451643;, - 0.185247; 0.872738;-0.451643;, - 0.309244; 0.864040;-0.397137;, - -0.075381; 0.993957; 0.079409;, - -0.057558; 0.996551; 0.059267;, - 0.000000;-1.000000; 0.000000;, - 0.456465;-0.865078; 0.207953;, - 0.450697;-0.885556;-0.112369;, - 0.000000;-1.000000; 0.000000;, - -0.292886;-0.885556; 0.360515;, - -0.005188;-0.865078; 0.501572;, - -0.115452; 0.992248;-0.045442;, - 0.707755; 0.682363;-0.182806;, - 0.680258; 0.682211; 0.267861;, - -0.007782; 0.992248; 0.123844;, - 0.045808; 0.682211;-0.729667;, - 0.465682; 0.682363;-0.563463;, - -0.079104; 0.992248; 0.095706;, - 0.395093; 0.765740;-0.507462;, - 0.021485; 0.766808;-0.641499;, - -0.079104; 0.992248; 0.095706;, - 0.021485; 0.766808;-0.641499;, - -0.007782; 0.992248; 0.123844;, - 0.465682; 0.682363;-0.563463;, - -0.115452; 0.992248;-0.045442;, - 0.531846; 0.826594; 0.183935;, - 0.109836; 0.992584; 0.051546;, - 0.707755; 0.682363;-0.182806;, - 0.279733;-0.898221;-0.338939;, - 0.005188;-0.865078;-0.501572;, - 0.000000;-1.000000; 0.000000;, - 0.450697;-0.885556;-0.112369;, - -0.425581;-0.898221; 0.109622;, - -0.292886;-0.885556; 0.360515;, - 0.000000;-1.000000; 0.000000;, - -0.456465;-0.865078;-0.207953;, - -0.275338;-0.858333;-0.432905;, - -0.456465;-0.865078;-0.207953;, - 0.000000;-1.000000; 0.000000;, - 0.005188;-0.865078;-0.501572;, - 0.000000;-1.000000; 0.000000;, - -0.005188;-0.865078; 0.501572;, - 0.275307;-0.858333; 0.432905;, - 0.456465;-0.865078; 0.207953;, - -0.011597;-0.971191; 0.237953;, - 0.472518;-0.845882; 0.247291;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.091647;-0.968444; 0.231666;, - -0.185400;-0.872494; 0.452010;, - -0.309488;-0.863826; 0.397443;, - 0.472518;-0.845882; 0.247291;, - 0.000641;-0.861476; 0.507736;, - -0.185400;-0.872494; 0.452010;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - -0.210120;-0.968474; 0.133641;, - -0.414594;-0.873104; 0.256447;, - -0.458846;-0.880612; 0.118107;, - -0.158544;-0.968413; 0.192358;, - -0.309488;-0.863826; 0.397443;, - -0.414594;-0.873104; 0.256447;, - -0.210120;-0.968474; 0.133641;, - 0.275307;-0.858333; 0.432905;, - -0.005188;-0.865078; 0.501572;, - 0.000641;-0.861476; 0.507736;, - 0.266945;-0.867458; 0.419782;, - -0.248665;-0.968444;-0.015198;, - -0.248665;-0.968444;-0.015198;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - -0.248665;-0.968444;-0.015198;, - -0.209479;-0.973449;-0.092166;, - -0.217811;-0.972076;-0.087069;, - -0.248665;-0.968444;-0.015198;, - -0.209479;-0.973449;-0.092166;, - -0.248665;-0.968444;-0.015198;, - -0.487991;-0.872494;-0.023713;, - -0.468184;-0.853572;-0.228431;, - -0.487991;-0.872494;-0.023713;, - -0.248665;-0.968444;-0.015198;, - -0.241432;-0.968413; 0.062014;, - -0.458846;-0.880612; 0.118107;, - -0.468184;-0.853572;-0.228431;, - -0.456465;-0.865078;-0.207953;, - -0.275338;-0.858333;-0.432905;, - -0.266793;-0.867641;-0.419477;, - 0.133641;-0.968474; 0.210120;, - 0.062044;-0.968413; 0.241432;, - -0.008698;-0.999359;-0.033937;, - -0.019288;-0.999329;-0.030335;, - -0.008698;-0.999359;-0.033937;, - 0.062044;-0.968413; 0.241432;, - -0.015107;-0.968444; 0.248665;, - 0.002106;-0.999359;-0.035524;, - 0.062044;-0.968413; 0.241432;, - 0.055971;-0.972503; 0.225990;, - -0.011597;-0.971191; 0.237953;, - -0.015107;-0.968444; 0.248665;, - -0.143620;-0.963500;-0.225806;, - -0.066683;-0.963439;-0.259438;, - -0.159185;-0.768883;-0.619221;, - -0.343394;-0.768456;-0.539933;, - -0.159185;-0.768883;-0.619221;, - -0.066683;-0.963439;-0.259438;, - 0.016236;-0.963469;-0.267251;, - 0.038820;-0.768609;-0.638508;, - -0.066683;-0.963439;-0.259438;, - -0.008698;-0.999359;-0.033937;, - 0.002106;-0.999359;-0.035524;, - 0.016236;-0.963469;-0.267251;, - -0.019288;-0.999329;-0.030335;, - -0.008698;-0.999359;-0.033937;, - -0.066683;-0.963439;-0.259438;, - -0.143620;-0.963500;-0.225806;, - -0.091647;-0.968444; 0.231666;, - 0.013123;-0.999359;-0.033082;, - 0.002106;-0.999359;-0.035524;, - -0.015107;-0.968444; 0.248665;, - 0.022279;-0.999359;-0.027039;, - 0.013123;-0.999359;-0.033082;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - 0.038820;-0.768609;-0.638508;, - 0.016236;-0.963469;-0.267251;, - 0.098514;-0.963469;-0.248970;, - 0.235359;-0.768609;-0.594806;, - 0.098514;-0.963469;-0.248970;, - 0.170385;-0.963439;-0.206732;, - 0.406659;-0.768853;-0.493393;, - 0.235359;-0.768609;-0.594806;, - 0.170385;-0.963439;-0.206732;, - 0.098514;-0.963469;-0.248970;, - 0.013123;-0.999359;-0.033082;, - 0.022279;-0.999359;-0.027039;, - 0.016236;-0.963469;-0.267251;, - 0.002106;-0.999359;-0.035524;, - 0.013123;-0.999359;-0.033082;, - 0.098514;-0.963469;-0.248970;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.015107;-0.968444; 0.248665;, - -0.011597;-0.971191; 0.237953;, - -0.210120;-0.968474; 0.133641;, - 0.030335;-0.999329;-0.019288;, - 0.022279;-0.999359;-0.027039;, - -0.158544;-0.968413; 0.192358;, - 0.033937;-0.999359;-0.008698;, - 0.030335;-0.999329;-0.019288;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - 0.406659;-0.768853;-0.493393;, - 0.170385;-0.963439;-0.206732;, - 0.225837;-0.963500;-0.143620;, - 0.539933;-0.768426;-0.343394;, - 0.225837;-0.963500;-0.143620;, - 0.259468;-0.963439;-0.066652;, - 0.619251;-0.768853;-0.159093;, - 0.539933;-0.768426;-0.343394;, - 0.259468;-0.963439;-0.066652;, - 0.225837;-0.963500;-0.143620;, - 0.030335;-0.999329;-0.019288;, - 0.033937;-0.999359;-0.008698;, - 0.170385;-0.963439;-0.206732;, - 0.022279;-0.999359;-0.027039;, - 0.030335;-0.999329;-0.019288;, - 0.225837;-0.963500;-0.143620;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.467727;-0.490249;-0.735405;, - -0.217078;-0.489853;-0.844325;, - -0.240761;-0.255501;-0.936338;, - -0.518815;-0.255501;-0.815790;, - -0.240761;-0.255501;-0.936338;, - -0.217078;-0.489853;-0.844325;, - 0.052919;-0.490066;-0.870052;, - 0.058748;-0.255470;-0.964995;, - -0.217078;-0.489853;-0.844325;, - -0.159185;-0.768883;-0.619221;, - 0.038820;-0.768609;-0.638508;, - 0.052919;-0.490066;-0.870052;, - -0.536546;-0.017121;-0.843654;, - -0.248970;-0.017090;-0.968352;, - -0.249001; 0.000000;-0.968474;, - -0.536637; 0.000000;-0.843776;, - -0.249001; 0.000000;-0.968474;, - -0.248970;-0.017090;-0.968352;, - 0.060732;-0.017090;-0.997986;, - 0.060732; 0.000000;-0.998138;, - -0.248970;-0.017090;-0.968352;, - -0.240761;-0.255501;-0.936338;, - 0.058748;-0.255470;-0.964995;, - 0.060732;-0.017090;-0.997986;, - -0.518815;-0.255501;-0.815790;, - -0.240761;-0.255501;-0.936338;, - -0.248970;-0.017090;-0.968352;, - -0.536546;-0.017121;-0.843654;, - 0.320688;-0.490066;-0.810511;, - 0.355663;-0.255470;-0.898984;, - 0.058748;-0.255470;-0.964995;, - 0.052919;-0.490066;-0.870052;, - 0.614917;-0.255470;-0.746025;, - 0.355663;-0.255470;-0.898984;, - 0.320688;-0.490066;-0.810511;, - 0.554491;-0.489853;-0.672719;, - 0.554491;-0.489853;-0.672719;, - 0.320688;-0.490066;-0.810511;, - 0.235359;-0.768609;-0.594806;, - 0.406659;-0.768853;-0.493393;, - 0.060732; 0.000000;-0.998138;, - 0.060732;-0.017090;-0.997986;, - 0.367840;-0.017090;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.367840;-0.017090;-0.929716;, - 0.635945;-0.017090;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.367901; 0.000000;-0.929838;, - 0.635945;-0.017090;-0.771538;, - 0.367840;-0.017090;-0.929716;, - 0.355663;-0.255470;-0.898984;, - 0.614917;-0.255470;-0.746025;, - 0.060732;-0.017090;-0.997986;, - 0.058748;-0.255470;-0.964995;, - 0.355663;-0.255470;-0.898984;, - 0.367840;-0.017090;-0.929716;, - 0.235359;-0.768609;-0.594806;, - 0.320688;-0.490066;-0.810511;, - 0.052919;-0.490066;-0.870052;, - 0.038820;-0.768609;-0.638508;, - 0.735435;-0.490249;-0.467727;, - 0.815790;-0.255470;-0.518815;, - 0.614917;-0.255470;-0.746025;, - 0.554491;-0.489853;-0.672719;, - 0.936369;-0.255470;-0.240577;, - 0.815790;-0.255470;-0.518815;, - 0.735435;-0.490249;-0.467727;, - 0.844356;-0.489853;-0.216926;, - 0.844356;-0.489853;-0.216926;, - 0.735435;-0.490249;-0.467727;, - 0.539933;-0.768426;-0.343394;, - 0.619251;-0.768853;-0.159093;, - 0.636036; 0.000000;-0.771630;, - 0.635945;-0.017090;-0.771538;, - 0.843654;-0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654;-0.017121;-0.536546;, - 0.968383;-0.017090;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.843776; 0.000000;-0.536637;, - 0.968383;-0.017090;-0.248787;, - 0.843654;-0.017121;-0.536546;, - 0.815790;-0.255470;-0.518815;, - 0.936369;-0.255470;-0.240577;, - 0.635945;-0.017090;-0.771538;, - 0.614917;-0.255470;-0.746025;, - 0.815790;-0.255470;-0.518815;, - 0.843654;-0.017121;-0.536546;, - 0.539933;-0.768426;-0.343394;, - 0.735435;-0.490249;-0.467727;, - 0.554491;-0.489853;-0.672719;, - 0.406659;-0.768853;-0.493393;, - -0.343394;-0.768456;-0.539933;, - -0.159185;-0.768883;-0.619221;, - -0.217078;-0.489853;-0.844325;, - -0.467727;-0.490249;-0.735405;, - -0.248665;-0.968444;-0.015198;, - 0.035524;-0.999359; 0.002136;, - 0.033937;-0.999359;-0.008698;, - -0.241432;-0.968413; 0.062014;, - -0.248665;-0.968444;-0.015198;, - -0.231635;-0.968444;-0.091739;, - 0.033082;-0.999359; 0.013123;, - 0.035524;-0.999359; 0.002136;, - -0.217811;-0.972076;-0.087069;, - -0.231635;-0.968444;-0.091739;, - -0.248665;-0.968444;-0.015198;, - -0.248665;-0.968444;-0.015198;, - 0.267251;-0.963469; 0.016327;, - 0.638508;-0.768609; 0.039033;, - 0.619251;-0.768853;-0.159093;, - 0.259468;-0.963439;-0.066652;, - 0.267251;-0.963469; 0.016327;, - 0.248939;-0.963469; 0.098575;, - 0.594745;-0.768609; 0.235542;, - 0.638508;-0.768609; 0.039033;, - 0.248939;-0.963469; 0.098575;, - 0.267251;-0.963469; 0.016327;, - 0.035524;-0.999359; 0.002136;, - 0.033082;-0.999359; 0.013123;, - 0.035524;-0.999359; 0.002136;, - 0.267251;-0.963469; 0.016327;, - 0.259468;-0.963439;-0.066652;, - 0.033937;-0.999359;-0.008698;, - -0.231635;-0.968444;-0.091739;, - -0.192328;-0.968413;-0.158574;, - 0.027039;-0.999359; 0.022248;, - 0.033082;-0.999359; 0.013123;, - 0.027039;-0.999359; 0.022248;, - -0.192328;-0.968413;-0.158574;, - -0.133641;-0.968474;-0.210120;, - 0.019288;-0.999329; 0.030335;, - -0.192328;-0.968413;-0.158574;, - -0.176427;-0.974181;-0.140843;, - -0.133641;-0.968474;-0.210120;, - -0.133641;-0.968474;-0.210120;, - 0.248939;-0.963469; 0.098575;, - 0.206671;-0.963439; 0.170415;, - 0.493301;-0.768883; 0.406720;, - 0.594745;-0.768609; 0.235542;, - 0.493301;-0.768883; 0.406720;, - 0.206671;-0.963439; 0.170415;, - 0.143620;-0.963500; 0.225806;, - 0.343394;-0.768456; 0.539933;, - 0.206671;-0.963439; 0.170415;, - 0.027039;-0.999359; 0.022248;, - 0.019288;-0.999329; 0.030335;, - 0.143620;-0.963500; 0.225806;, - 0.206671;-0.963439; 0.170415;, - 0.248939;-0.963469; 0.098575;, - 0.033082;-0.999359; 0.013123;, - 0.027039;-0.999359; 0.022248;, - -0.192328;-0.968413;-0.158574;, - -0.231635;-0.968444;-0.091739;, - -0.217811;-0.972076;-0.087069;, - -0.176427;-0.974181;-0.140843;, - 0.870022;-0.490066; 0.053194;, - 0.964995;-0.255470; 0.059023;, - 0.936369;-0.255470;-0.240577;, - 0.844356;-0.489853;-0.216926;, - 0.898892;-0.255470; 0.355968;, - 0.964995;-0.255470; 0.059023;, - 0.870022;-0.490066; 0.053194;, - 0.810419;-0.490066; 0.320933;, - 0.810419;-0.490066; 0.320933;, - 0.870022;-0.490066; 0.053194;, - 0.638508;-0.768609; 0.039033;, - 0.594745;-0.768609; 0.235542;, - 0.968535; 0.000000;-0.248848;, - 0.968383;-0.017090;-0.248787;, - 0.997986;-0.017090; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.997986;-0.017090; 0.061037;, - 0.929594;-0.017090; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.929594;-0.017090; 0.368145;, - 0.997986;-0.017090; 0.061037;, - 0.964995;-0.255470; 0.059023;, - 0.898892;-0.255470; 0.355968;, - 0.968383;-0.017090;-0.248787;, - 0.936369;-0.255470;-0.240577;, - 0.964995;-0.255470; 0.059023;, - 0.997986;-0.017090; 0.061037;, - 0.810419;-0.490066; 0.320933;, - 0.672597;-0.489853; 0.554613;, - 0.745903;-0.255501; 0.615070;, - 0.898892;-0.255470; 0.355968;, - 0.745903;-0.255501; 0.615070;, - 0.672597;-0.489853; 0.554613;, - 0.467727;-0.490249; 0.735405;, - 0.518815;-0.255501; 0.815790;, - 0.672597;-0.489853; 0.554613;, - 0.493301;-0.768883; 0.406720;, - 0.343394;-0.768456; 0.539933;, - 0.467727;-0.490249; 0.735405;, - 0.929594;-0.017090; 0.368145;, - 0.771416;-0.017090; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.929716; 0.000000; 0.368206;, - 0.771508; 0.000000; 0.636158;, - 0.771416;-0.017090; 0.636067;, - 0.536546;-0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.771416;-0.017090; 0.636067;, - 0.745903;-0.255501; 0.615070;, - 0.518815;-0.255501; 0.815790;, - 0.536546;-0.017121; 0.843654;, - 0.771416;-0.017090; 0.636067;, - 0.929594;-0.017090; 0.368145;, - 0.898892;-0.255470; 0.355968;, - 0.745903;-0.255501; 0.615070;, - 0.672597;-0.489853; 0.554613;, - 0.810419;-0.490066; 0.320933;, - 0.594745;-0.768609; 0.235542;, - 0.493301;-0.768883; 0.406720;, - 0.638508;-0.768609; 0.039033;, - 0.870022;-0.490066; 0.053194;, - 0.844356;-0.489853;-0.216926;, - 0.619251;-0.768853;-0.159093;, - -0.248665;-0.968444;-0.015198;, - -0.248665;-0.968444;-0.015198;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - 0.133641;-0.968474; 0.210120;, - 0.055971;-0.972503; 0.225990;, - 0.062044;-0.968413; 0.241432;, - 0.133641;-0.968474; 0.210120;, - 0.013489;-0.972076;-0.234169;, - 0.005341;-0.973449;-0.228797;, - 0.091647;-0.968444;-0.231635;, - 0.091647;-0.968444;-0.231666;, - 0.091647;-0.968444;-0.231635;, - 0.158544;-0.968413;-0.192358;, - 0.158544;-0.968413;-0.192358;, - 0.091647;-0.968444;-0.231666;, - 0.158544;-0.968413;-0.192358;, - 0.091647;-0.968444;-0.231635;, - 0.185400;-0.872494;-0.452010;, - 0.301523;-0.880612;-0.365459;, - 0.005341;-0.973449;-0.228797;, - -0.008362;-0.853572;-0.520890;, - 0.185400;-0.872494;-0.452010;, - 0.091647;-0.968444;-0.231635;, - 0.158544;-0.968413;-0.192358;, - 0.158544;-0.968413;-0.192358;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - 0.241432;-0.968413;-0.062014;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - 0.210120;-0.968474;-0.133641;, - 0.408032;-0.873104;-0.266732;, - 0.491195;-0.863826;-0.111759;, - 0.158544;-0.968413;-0.192358;, - 0.301523;-0.880612;-0.365459;, - 0.408032;-0.873104;-0.266732;, - 0.210120;-0.968474;-0.133641;, - -0.275338;-0.858333;-0.432905;, - 0.005188;-0.865078;-0.501572;, - -0.008362;-0.853572;-0.520890;, - -0.266793;-0.867641;-0.419477;, - 0.248665;-0.968444; 0.015198;, - 0.248665;-0.968444; 0.015198;, - 0.241432;-0.968413;-0.062014;, - 0.241432;-0.968413;-0.062014;, - 0.248665;-0.968444; 0.015198;, - 0.209479;-0.973449; 0.092166;, - 0.217780;-0.972076; 0.087069;, - 0.248665;-0.968444; 0.015198;, - 0.209479;-0.973449; 0.092166;, - 0.248665;-0.968444; 0.015198;, - 0.487991;-0.872494; 0.023713;, - 0.468184;-0.853572; 0.228431;, - 0.487991;-0.872494; 0.023713;, - 0.248665;-0.968444; 0.015198;, - 0.241432;-0.968413;-0.062014;, - 0.491195;-0.863826;-0.111759;, - 0.468184;-0.853572; 0.228431;, - 0.456465;-0.865078; 0.207953;, - 0.275307;-0.858333; 0.432905;, - 0.266945;-0.867458; 0.419782;, - -0.133641;-0.968474;-0.210120;, - -0.062075;-0.968413;-0.241432;, - 0.008698;-0.999359; 0.033937;, - 0.019288;-0.999329; 0.030335;, - 0.015107;-0.968444;-0.248665;, - -0.002106;-0.999359; 0.035524;, - 0.008698;-0.999359; 0.033937;, - -0.062075;-0.968413;-0.241432;, - 0.013489;-0.972076;-0.234169;, - 0.015107;-0.968444;-0.248665;, - -0.062075;-0.968413;-0.241432;, - -0.052736;-0.974181;-0.219489;, - 0.143620;-0.963500; 0.225806;, - 0.066683;-0.963439; 0.259438;, - 0.159185;-0.768883; 0.619221;, - 0.343394;-0.768456; 0.539933;, - 0.159185;-0.768883; 0.619221;, - 0.066683;-0.963439; 0.259438;, - -0.016236;-0.963469; 0.267251;, - -0.038820;-0.768609; 0.638508;, - 0.066683;-0.963439; 0.259438;, - 0.008698;-0.999359; 0.033937;, - -0.002106;-0.999359; 0.035524;, - -0.016236;-0.963469; 0.267251;, - 0.019288;-0.999329; 0.030335;, - 0.008698;-0.999359; 0.033937;, - 0.066683;-0.963439; 0.259438;, - 0.143620;-0.963500; 0.225806;, - 0.091647;-0.968444;-0.231666;, - -0.013123;-0.999359; 0.033082;, - -0.002106;-0.999359; 0.035524;, - 0.015107;-0.968444;-0.248665;, - 0.091647;-0.968444;-0.231666;, - 0.158544;-0.968413;-0.192358;, - -0.022279;-0.999359; 0.027039;, - -0.013123;-0.999359; 0.033082;, - 0.158544;-0.968413;-0.192358;, - 0.091647;-0.968444;-0.231666;, - 0.091647;-0.968444;-0.231666;, - 0.158544;-0.968413;-0.192358;, - -0.098514;-0.963469; 0.248970;, - -0.235359;-0.768609; 0.594806;, - -0.038820;-0.768609; 0.638508;, - -0.016236;-0.963469; 0.267251;, - -0.098514;-0.963469; 0.248970;, - -0.170385;-0.963439; 0.206732;, - -0.406659;-0.768853; 0.493393;, - -0.235359;-0.768609; 0.594806;, - -0.170385;-0.963439; 0.206732;, - -0.098514;-0.963469; 0.248970;, - -0.013123;-0.999359; 0.033082;, - -0.022279;-0.999359; 0.027039;, - -0.013123;-0.999359; 0.033082;, - -0.098514;-0.963469; 0.248970;, - -0.016236;-0.963469; 0.267251;, - -0.002106;-0.999359; 0.035524;, - 0.091647;-0.968444;-0.231666;, - 0.015107;-0.968444;-0.248665;, - 0.013489;-0.972076;-0.234169;, - 0.091647;-0.968444;-0.231666;, - 0.210120;-0.968474;-0.133641;, - -0.030335;-0.999329; 0.019288;, - -0.022279;-0.999359; 0.027039;, - 0.158544;-0.968413;-0.192358;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - -0.033937;-0.999359; 0.008698;, - -0.030335;-0.999329; 0.019288;, - 0.241432;-0.968413;-0.062014;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - -0.225837;-0.963500; 0.143620;, - -0.539933;-0.768426; 0.343394;, - -0.406659;-0.768853; 0.493393;, - -0.170385;-0.963439; 0.206732;, - -0.225837;-0.963500; 0.143620;, - -0.259468;-0.963439; 0.066652;, - -0.619251;-0.768853; 0.159093;, - -0.539933;-0.768426; 0.343394;, - -0.259468;-0.963439; 0.066652;, - -0.225837;-0.963500; 0.143620;, - -0.030335;-0.999329; 0.019288;, - -0.033937;-0.999359; 0.008698;, - -0.030335;-0.999329; 0.019288;, - -0.225837;-0.963500; 0.143620;, - -0.170385;-0.963439; 0.206732;, - -0.022279;-0.999359; 0.027039;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.158544;-0.968413;-0.192358;, - 0.158544;-0.968413;-0.192358;, - 0.467727;-0.490249; 0.735405;, - 0.217078;-0.489853; 0.844325;, - 0.240761;-0.255501; 0.936338;, - 0.518815;-0.255501; 0.815790;, - 0.240761;-0.255501; 0.936338;, - 0.217078;-0.489853; 0.844325;, - -0.052919;-0.490066; 0.870052;, - -0.058748;-0.255470; 0.964995;, - 0.217078;-0.489853; 0.844325;, - 0.159185;-0.768883; 0.619221;, - -0.038820;-0.768609; 0.638508;, - -0.052919;-0.490066; 0.870052;, - 0.536546;-0.017121; 0.843654;, - 0.248970;-0.017090; 0.968352;, - 0.249001; 0.000000; 0.968474;, - 0.536637; 0.000000; 0.843776;, - 0.249001; 0.000000; 0.968474;, - 0.248970;-0.017090; 0.968352;, - -0.060732;-0.017090; 0.997986;, - -0.060732; 0.000000; 0.998138;, - 0.248970;-0.017090; 0.968352;, - 0.240761;-0.255501; 0.936338;, - -0.058748;-0.255470; 0.964995;, - -0.060732;-0.017090; 0.997986;, - 0.518815;-0.255501; 0.815790;, - 0.240761;-0.255501; 0.936338;, - 0.248970;-0.017090; 0.968352;, - 0.536546;-0.017121; 0.843654;, - -0.320688;-0.490066; 0.810511;, - -0.355663;-0.255470; 0.898984;, - -0.058748;-0.255470; 0.964995;, - -0.052919;-0.490066; 0.870052;, - -0.614917;-0.255470; 0.746025;, - -0.355663;-0.255470; 0.898984;, - -0.320688;-0.490066; 0.810511;, - -0.554491;-0.489853; 0.672719;, - -0.554491;-0.489853; 0.672719;, - -0.320688;-0.490066; 0.810511;, - -0.235359;-0.768609; 0.594806;, - -0.406659;-0.768853; 0.493393;, - -0.060732;-0.017090; 0.997986;, - -0.367870;-0.017090; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.060732; 0.000000; 0.998138;, - -0.367870;-0.017090; 0.929716;, - -0.635945;-0.017090; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.367901; 0.000000; 0.929838;, - -0.635945;-0.017090; 0.771538;, - -0.367870;-0.017090; 0.929716;, - -0.355663;-0.255470; 0.898984;, - -0.614917;-0.255470; 0.746025;, - -0.060732;-0.017090; 0.997986;, - -0.058748;-0.255470; 0.964995;, - -0.355663;-0.255470; 0.898984;, - -0.367870;-0.017090; 0.929716;, - -0.235359;-0.768609; 0.594806;, - -0.320688;-0.490066; 0.810511;, - -0.052919;-0.490066; 0.870052;, - -0.038820;-0.768609; 0.638508;, - -0.735435;-0.490249; 0.467727;, - -0.815790;-0.255470; 0.518815;, - -0.614917;-0.255470; 0.746025;, - -0.554491;-0.489853; 0.672719;, - -0.936369;-0.255470; 0.240577;, - -0.815790;-0.255470; 0.518815;, - -0.735435;-0.490249; 0.467727;, - -0.844356;-0.489853; 0.216926;, - -0.844356;-0.489853; 0.216926;, - -0.735435;-0.490249; 0.467727;, - -0.539933;-0.768426; 0.343394;, - -0.619251;-0.768853; 0.159093;, - -0.636036; 0.000000; 0.771630;, - -0.635945;-0.017090; 0.771538;, - -0.843654;-0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654;-0.017121; 0.536546;, - -0.968383;-0.017090; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.843776; 0.000000; 0.536637;, - -0.968383;-0.017090; 0.248787;, - -0.843654;-0.017121; 0.536546;, - -0.815790;-0.255470; 0.518815;, - -0.936369;-0.255470; 0.240577;, - -0.635945;-0.017090; 0.771538;, - -0.614917;-0.255470; 0.746025;, - -0.815790;-0.255470; 0.518815;, - -0.843654;-0.017121; 0.536546;, - -0.539933;-0.768426; 0.343394;, - -0.735435;-0.490249; 0.467727;, - -0.554491;-0.489853; 0.672719;, - -0.406659;-0.768853; 0.493393;, - 0.343394;-0.768456; 0.539933;, - 0.159185;-0.768883; 0.619221;, - 0.217078;-0.489853; 0.844325;, - 0.467727;-0.490249; 0.735405;, - 0.248665;-0.968444; 0.015198;, - -0.035524;-0.999359;-0.002136;, - -0.033937;-0.999359; 0.008698;, - 0.241432;-0.968413;-0.062014;, - 0.248665;-0.968444; 0.015198;, - 0.231635;-0.968444; 0.091739;, - -0.033082;-0.999359;-0.013123;, - -0.035524;-0.999359;-0.002136;, - 0.217780;-0.972076; 0.087069;, - 0.231635;-0.968444; 0.091739;, - 0.248665;-0.968444; 0.015198;, - 0.248665;-0.968444; 0.015198;, - -0.267251;-0.963469;-0.016327;, - -0.638508;-0.768609;-0.039033;, - -0.619251;-0.768853; 0.159093;, - -0.259468;-0.963439; 0.066652;, - -0.267251;-0.963469;-0.016327;, - -0.248939;-0.963469;-0.098575;, - -0.594745;-0.768609;-0.235542;, - -0.638508;-0.768609;-0.039033;, - -0.248939;-0.963469;-0.098575;, - -0.267251;-0.963469;-0.016327;, - -0.035524;-0.999359;-0.002136;, - -0.033082;-0.999359;-0.013123;, - -0.035524;-0.999359;-0.002136;, - -0.267251;-0.963469;-0.016327;, - -0.259468;-0.963439; 0.066652;, - -0.033937;-0.999359; 0.008698;, - 0.231635;-0.968444; 0.091739;, - 0.192328;-0.968413; 0.158574;, - -0.027039;-0.999359;-0.022248;, - -0.033082;-0.999359;-0.013123;, - -0.027039;-0.999359;-0.022248;, - 0.192328;-0.968413; 0.158574;, - 0.133641;-0.968474; 0.210120;, - -0.019288;-0.999329;-0.030335;, - 0.192328;-0.968413; 0.158574;, - 0.176427;-0.974181; 0.140843;, - 0.133641;-0.968474; 0.210120;, - 0.133641;-0.968474; 0.210120;, - -0.248939;-0.963469;-0.098575;, - -0.206671;-0.963439;-0.170415;, - -0.493301;-0.768883;-0.406751;, - -0.594745;-0.768609;-0.235542;, - -0.493301;-0.768883;-0.406751;, - -0.206671;-0.963439;-0.170415;, - -0.143620;-0.963500;-0.225806;, - -0.343394;-0.768456;-0.539933;, - -0.206671;-0.963439;-0.170415;, - -0.027039;-0.999359;-0.022248;, - -0.019288;-0.999329;-0.030335;, - -0.143620;-0.963500;-0.225806;, - -0.206671;-0.963439;-0.170415;, - -0.248939;-0.963469;-0.098575;, - -0.033082;-0.999359;-0.013123;, - -0.027039;-0.999359;-0.022248;, - 0.192328;-0.968413; 0.158574;, - 0.231635;-0.968444; 0.091739;, - 0.217780;-0.972076; 0.087069;, - 0.176427;-0.974181; 0.140843;, - -0.870022;-0.490066;-0.053194;, - -0.964995;-0.255470;-0.059023;, - -0.936369;-0.255470; 0.240577;, - -0.844356;-0.489853; 0.216926;, - -0.870022;-0.490066;-0.053194;, - -0.810419;-0.490066;-0.320963;, - -0.898862;-0.255470;-0.355968;, - -0.964995;-0.255470;-0.059023;, - -0.810419;-0.490066;-0.320963;, - -0.870022;-0.490066;-0.053194;, - -0.638508;-0.768609;-0.039033;, - -0.594745;-0.768609;-0.235542;, - -0.997986;-0.017090;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.968535; 0.000000; 0.248848;, - -0.968383;-0.017090; 0.248787;, - -0.997986;-0.017090;-0.061037;, - -0.929594;-0.017090;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.998108; 0.000000;-0.061037;, - -0.929594;-0.017090;-0.368145;, - -0.997986;-0.017090;-0.061037;, - -0.964995;-0.255470;-0.059023;, - -0.898862;-0.255470;-0.355968;, - -0.964995;-0.255470;-0.059023;, - -0.997986;-0.017090;-0.061037;, - -0.968383;-0.017090; 0.248787;, - -0.936369;-0.255470; 0.240577;, - -0.810419;-0.490066;-0.320963;, - -0.672597;-0.489853;-0.554613;, - -0.745903;-0.255501;-0.615070;, - -0.898862;-0.255470;-0.355968;, - -0.745903;-0.255501;-0.615070;, - -0.672597;-0.489853;-0.554613;, - -0.467727;-0.490249;-0.735405;, - -0.518815;-0.255501;-0.815790;, - -0.672597;-0.489853;-0.554613;, - -0.493301;-0.768883;-0.406751;, - -0.343394;-0.768456;-0.539933;, - -0.467727;-0.490249;-0.735405;, - -0.929594;-0.017090;-0.368145;, - -0.771416;-0.017090;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.929716; 0.000000;-0.368206;, - -0.771508; 0.000000;-0.636158;, - -0.771416;-0.017090;-0.636067;, - -0.536546;-0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.771416;-0.017090;-0.636067;, - -0.745903;-0.255501;-0.615070;, - -0.518815;-0.255501;-0.815790;, - -0.536546;-0.017121;-0.843654;, - -0.771416;-0.017090;-0.636067;, - -0.929594;-0.017090;-0.368145;, - -0.898862;-0.255470;-0.355968;, - -0.745903;-0.255501;-0.615070;, - -0.672597;-0.489853;-0.554613;, - -0.810419;-0.490066;-0.320963;, - -0.594745;-0.768609;-0.235542;, - -0.493301;-0.768883;-0.406751;, - -0.638508;-0.768609;-0.039033;, - -0.870022;-0.490066;-0.053194;, - -0.844356;-0.489853; 0.216926;, - -0.619251;-0.768853; 0.159093;, - 0.248665;-0.968444; 0.015198;, - 0.248665;-0.968444; 0.015198;, - 0.241432;-0.968413;-0.062014;, - 0.241432;-0.968413;-0.062014;, - -0.062075;-0.968413;-0.241432;, - -0.133641;-0.968474;-0.210120;, - -0.133641;-0.968474;-0.210120;, - -0.052736;-0.974181;-0.219489;, - -0.014435; 0.999634;-0.022736;, - -0.020783; 0.999634;-0.017151;, - 0.288369; 0.933927; 0.211127;, - 0.187628; 0.936857; 0.295022;, - -0.025056; 0.999634;-0.009919;, - 0.332896; 0.933683; 0.131870;, - 0.288369; 0.933927; 0.211127;, - -0.020783; 0.999634;-0.017151;, - -0.025056; 0.999634;-0.009919;, - -0.020783; 0.999634;-0.017151;, - 0.000000; 1.000000; 0.000000;, - -0.025056; 0.999634;-0.009919;, - -0.026887; 0.999634;-0.001617;, - 0.357433; 0.933683; 0.021821;, - 0.332896; 0.933683; 0.131870;, - -0.026887; 0.999634;-0.001617;, - -0.026093; 0.999634; 0.006684;, - 0.346324; 0.933866;-0.088931;, - 0.357433; 0.933683; 0.021821;, - -0.026093; 0.999634; 0.006684;, - -0.026887; 0.999634;-0.001617;, - 0.000000; 1.000000; 0.000000;, - -0.026887; 0.999634;-0.001617;, - -0.025056; 0.999634;-0.009919;, - 0.000000; 1.000000; 0.000000;, - -0.022736; 0.999634; 0.014435;, - 0.302438; 0.933531;-0.192358;, - 0.346324; 0.933866;-0.088931;, - -0.026093; 0.999634; 0.006684;, - -0.022736; 0.999634; 0.014435;, - -0.017151; 0.999634; 0.020783;, - 0.227393; 0.933866;-0.275918;, - 0.302438; 0.933531;-0.192358;, - -0.017151; 0.999634; 0.020783;, - -0.022736; 0.999634; 0.014435;, - 0.000000; 1.000000; 0.000000;, - -0.022736; 0.999634; 0.014435;, - -0.026093; 0.999634; 0.006684;, - 0.000000; 1.000000; 0.000000;, - 0.014100; 0.999634; 0.022187;, - 0.020295; 0.999634; 0.016724;, - 0.681722; 0.511124; 0.523423;, - 0.408307; 0.583239; 0.702170;, - 0.681722; 0.511124; 0.523423;, - 0.020295; 0.999634; 0.016724;, - 0.024445; 0.999634; 0.009674;, - 0.726005; 0.635731; 0.262062;, - 0.020295; 0.999634; 0.016724;, - 0.231971; 0.947081; 0.221747;, - 0.293405; 0.947264; 0.128697;, - 0.024445; 0.999634; 0.009674;, - 0.026246; 0.999634; 0.001587;, - 0.941923; 0.290384; 0.168493;, - 0.726005; 0.635731; 0.262062;, - 0.024445; 0.999634; 0.009674;, - 0.778252; 0.582507;-0.234413;, - 0.941923; 0.290384; 0.168493;, - 0.026246; 0.999634; 0.001587;, - 0.025483; 0.999634;-0.006531;, - 0.025483; 0.999634;-0.006531;, - 0.026246; 0.999634; 0.001587;, - 0.322703; 0.946257; 0.019745;, - 0.313913; 0.945982;-0.080660;, - 0.322703; 0.946257; 0.019745;, - 0.026246; 0.999634; 0.001587;, - 0.024445; 0.999634; 0.009674;, - 0.293405; 0.947264; 0.128697;, - 0.022187; 0.999634;-0.014100;, - 0.744591; 0.504624;-0.436903;, - 0.778252; 0.582507;-0.234413;, - 0.025483; 0.999634;-0.006531;, - 0.490707; 0.583453;-0.647114;, - 0.744591; 0.504624;-0.436903;, - 0.022187; 0.999634;-0.014100;, - 0.016724; 0.999634;-0.020295;, - 0.016724; 0.999634;-0.020295;, - 0.022187; 0.999634;-0.014100;, - 0.272347; 0.946471;-0.173193;, - 0.206153; 0.945982;-0.250099;, - 0.272347; 0.946471;-0.173193;, - 0.022187; 0.999634;-0.014100;, - 0.025483; 0.999634;-0.006531;, - 0.313913; 0.945982;-0.080660;, - 0.171392; 0.947600; 0.269509;, - 0.231971; 0.947081; 0.221747;, - 0.020295; 0.999634; 0.016724;, - 0.014100; 0.999634; 0.022187;, - -0.009919; 0.999634; 0.025056;, - 0.131779; 0.933683;-0.332957;, - 0.227393; 0.933866;-0.275918;, - -0.017151; 0.999634; 0.020783;, - -0.009919; 0.999634; 0.025056;, - -0.001617; 0.999634; 0.026887;, - 0.021699; 0.933683;-0.357402;, - 0.131779; 0.933683;-0.332957;, - -0.001617; 0.999634; 0.026887;, - -0.009919; 0.999634; 0.025056;, - 0.000000; 1.000000; 0.000000;, - -0.001617; 0.999634; 0.026887;, - 0.006714; 0.999634; 0.026093;, - -0.094485; 0.922422;-0.374432;, - 0.021699; 0.933683;-0.357402;, - 0.014435; 0.999634; 0.022736;, - -0.207404; 0.922269;-0.326121;, - -0.094485; 0.922422;-0.374432;, - 0.006714; 0.999634; 0.026093;, - 0.014435; 0.999634; 0.022736;, - 0.006714; 0.999634; 0.026093;, - 0.000000; 1.000000; 0.000000;, - 0.006714; 0.999634; 0.026093;, - -0.001617; 0.999634; 0.026887;, - 0.000000; 1.000000; 0.000000;, - 0.009674; 0.999634;-0.024445;, - 0.345286; 0.507309;-0.789544;, - 0.490707; 0.583453;-0.647114;, - 0.016724; 0.999634;-0.020295;, - 0.345286; 0.507309;-0.789544;, - 0.009674; 0.999634;-0.024445;, - 0.001587; 0.999634;-0.026246;, - 0.017029; 0.583880;-0.811640;, - 0.001587; 0.999634;-0.026246;, - 0.009674; 0.999634;-0.024445;, - 0.118931; 0.946257;-0.300638;, - 0.003632; 0.949675;-0.313181;, - 0.001587; 0.999634;-0.026246;, - -0.006531; 0.999634;-0.025483;, - -0.185003; 0.511124;-0.839351;, - 0.017029; 0.583880;-0.811640;, - -0.185003; 0.511124;-0.839351;, - -0.006531; 0.999634;-0.025483;, - -0.014100; 0.999634;-0.022187;, - -0.462813; 0.583239;-0.667531;, - -0.006531; 0.999634;-0.025483;, - -0.003571; 0.999878;-0.013977;, - -0.168828; 0.949217;-0.265450;, - -0.014100; 0.999634;-0.022187;, - -0.006531; 0.999634;-0.025483;, - 0.001587; 0.999634;-0.026246;, - 0.003632; 0.949675;-0.313181;, - -0.003571; 0.999878;-0.013977;, - 0.118931; 0.946257;-0.300638;, - 0.009674; 0.999634;-0.024445;, - 0.016724; 0.999634;-0.020295;, - 0.206153; 0.945982;-0.250099;, - -0.009919; 0.999634; 0.025056;, - -0.017151; 0.999634; 0.020783;, - 0.000000; 1.000000; 0.000000;, - -0.066561; 0.992248;-0.104648;, - -0.115452; 0.992248;-0.045442;, - 0.680258; 0.682211; 0.267861;, - 0.392407; 0.682089; 0.617023;, - 0.109836; 0.992584; 0.051546;, - -0.079104; 0.992248; 0.095706;, - 0.465682; 0.682363;-0.563463;, - 0.707755; 0.682363;-0.182806;, - 0.109836; 0.992584; 0.051546;, - 0.935118; 0.332469;-0.122379;, - 0.395093; 0.765740;-0.507462;, - -0.079104; 0.992248; 0.095706;, - 0.510727; 0.306986; 0.803034;, - 0.885556; 0.306833; 0.348674;, - 0.401685; 0.901975; 0.158208;, - 0.231544; 0.902097; 0.364086;, - 0.885556; 0.306833; 0.348674;, - 0.921537; 0.306650;-0.238075;, - 0.418287; 0.901852;-0.108036;, - 0.401685; 0.901975; 0.158208;, - 0.921537; 0.306650;-0.238075;, - 0.885556; 0.306833; 0.348674;, - 0.680258; 0.682211; 0.267861;, - 0.707755; 0.682363;-0.182806;, - 0.418287; 0.901852;-0.108036;, - 0.921537; 0.306650;-0.238075;, - 0.606372; 0.306650;-0.733665;, - 0.275185; 0.901852;-0.333018;, - 0.606372; 0.306650;-0.733665;, - 0.921537; 0.306650;-0.238075;, - 0.707755; 0.682363;-0.182806;, - 0.465682; 0.682363;-0.563463;, - 0.392407; 0.682089; 0.617023;, - 0.680258; 0.682211; 0.267861;, - 0.885556; 0.306833; 0.348674;, - 0.510727; 0.306986; 0.803034;, - 0.045808; 0.682211;-0.729667;, - -0.007782; 0.992248; 0.123844;, - 0.066561; 0.992248; 0.104648;, - -0.392407; 0.682089;-0.617023;, - -0.007782; 0.992248; 0.123844;, - 0.021485; 0.766808;-0.641499;, - -0.358684; 0.767510;-0.531266;, - 0.066561; 0.992248; 0.104648;, - 0.275185; 0.901852;-0.333018;, - 0.606372; 0.306650;-0.733665;, - 0.059694; 0.306833;-0.949858;, - 0.027039; 0.901975;-0.430891;, - 0.027039; 0.901975;-0.430891;, - 0.059694; 0.306833;-0.949858;, - -0.510727; 0.306986;-0.803034;, - -0.231544; 0.902097;-0.364086;, - -0.510727; 0.306986;-0.803034;, - 0.059694; 0.306833;-0.949858;, - 0.045808; 0.682211;-0.729667;, - -0.392407; 0.682089;-0.617023;, - 0.059694; 0.306833;-0.949858;, - 0.606372; 0.306650;-0.733665;, - 0.465682; 0.682363;-0.563463;, - 0.045808; 0.682211;-0.729667;, - 0.329051; 0.767510; 0.550127;, - 0.531846; 0.826594; 0.183935;, - -0.115452; 0.992248;-0.045442;, - -0.066561; 0.992248;-0.104648;, - 0.014435; 0.999634; 0.022736;, - 0.020783; 0.999634; 0.017151;, - -0.299020; 0.922422;-0.244362;, - -0.207404; 0.922269;-0.326121;, - 0.025056; 0.999634; 0.009919;, - -0.332896; 0.933683;-0.131870;, - -0.299020; 0.922422;-0.244362;, - 0.020783; 0.999634; 0.017151;, - 0.025056; 0.999634; 0.009919;, - 0.020783; 0.999634; 0.017151;, - 0.000000; 1.000000; 0.000000;, - 0.026887; 0.999634; 0.001617;, - -0.357402; 0.933683;-0.021821;, - -0.332896; 0.933683;-0.131870;, - 0.025056; 0.999634; 0.009919;, - 0.026887; 0.999634; 0.001617;, - 0.026093; 0.999634;-0.006684;, - -0.346324; 0.933866; 0.088931;, - -0.357402; 0.933683;-0.021821;, - 0.026093; 0.999634;-0.006684;, - 0.026887; 0.999634; 0.001617;, - 0.000000; 1.000000; 0.000000;, - 0.026887; 0.999634; 0.001617;, - 0.025056; 0.999634; 0.009919;, - 0.000000; 1.000000; 0.000000;, - 0.022736; 0.999634;-0.014435;, - -0.302438; 0.933531; 0.192358;, - -0.346324; 0.933866; 0.088931;, - 0.026093; 0.999634;-0.006684;, - 0.022736; 0.999634;-0.014435;, - 0.017151; 0.999634;-0.020783;, - -0.227393; 0.933866; 0.275918;, - -0.302438; 0.933531; 0.192358;, - 0.017151; 0.999634;-0.020783;, - 0.022736; 0.999634;-0.014435;, - 0.000000; 1.000000; 0.000000;, - 0.022736; 0.999634;-0.014435;, - 0.026093; 0.999634;-0.006684;, - 0.000000; 1.000000; 0.000000;, - -0.014100; 0.999634;-0.022187;, - -0.020295; 0.999634;-0.016724;, - -0.643880; 0.511032;-0.569414;, - -0.462813; 0.583239;-0.667531;, - -0.643880; 0.511032;-0.569414;, - -0.020295; 0.999634;-0.016724;, - -0.024445; 0.999634;-0.009674;, - -0.694784; 0.664479;-0.275155;, - -0.020295; 0.999634;-0.016724;, - -0.011139; 0.999878;-0.009186;, - -0.285165; 0.949675;-0.129490;, - -0.024445; 0.999634;-0.009674;, - -0.024445; 0.999634;-0.009674;, - -0.026246; 0.999634;-0.001587;, - -0.861476; 0.507309;-0.022034;, - -0.694784; 0.664479;-0.275155;, - -0.794122; 0.583453; 0.170019;, - -0.861476; 0.507309;-0.022034;, - -0.026246; 0.999634;-0.001587;, - -0.025483; 0.999634; 0.006531;, - -0.025483; 0.999634; 0.006531;, - -0.026246; 0.999634;-0.001587;, - -0.322733; 0.946257;-0.019745;, - -0.313913; 0.945982; 0.080660;, - -0.322733; 0.946257;-0.019745;, - -0.026246; 0.999634;-0.001587;, - -0.024445; 0.999634;-0.009674;, - -0.285165; 0.949675;-0.129490;, - -0.022187; 0.999634; 0.014100;, - -0.711386; 0.504624; 0.489090;, - -0.794122; 0.583453; 0.170019;, - -0.025483; 0.999634; 0.006531;, - -0.542314; 0.582507; 0.605426;, - -0.711386; 0.504624; 0.489090;, - -0.022187; 0.999634; 0.014100;, - -0.016724; 0.999634; 0.020295;, - -0.016724; 0.999634; 0.020295;, - -0.022187; 0.999634; 0.014100;, - -0.272347; 0.946471; 0.173193;, - -0.206153; 0.945982; 0.250099;, - -0.272347; 0.946471; 0.173193;, - -0.022187; 0.999634; 0.014100;, - -0.025483; 0.999634; 0.006531;, - -0.313913; 0.945982; 0.080660;, - -0.168828; 0.949217;-0.265450;, - -0.011139; 0.999878;-0.009186;, - -0.020295; 0.999634;-0.016724;, - -0.014100; 0.999634;-0.022187;, - 0.009919; 0.999634;-0.025056;, - -0.131779; 0.933683; 0.332957;, - -0.227393; 0.933866; 0.275918;, - 0.017151; 0.999634;-0.020783;, - 0.001617; 0.999634;-0.026887;, - -0.021699; 0.933683; 0.357402;, - -0.131779; 0.933683; 0.332957;, - 0.009919; 0.999634;-0.025056;, - 0.001617; 0.999634;-0.026887;, - 0.009919; 0.999634;-0.025056;, - 0.000000; 1.000000; 0.000000;, - 0.001617; 0.999634;-0.026887;, - -0.006714; 0.999634;-0.026093;, - 0.068941; 0.933927; 0.350688;, - -0.021699; 0.933683; 0.357402;, - 0.068941; 0.933927; 0.350688;, - -0.006714; 0.999634;-0.026093;, - -0.014435; 0.999634;-0.022736;, - 0.187628; 0.936857; 0.295022;, - -0.006714; 0.999634;-0.026093;, - 0.000000; 1.000000; 0.000000;, - -0.014435; 0.999634;-0.022736;, - -0.006714; 0.999634;-0.026093;, - 0.001617; 0.999634;-0.026887;, - 0.000000; 1.000000; 0.000000;, - -0.009674; 0.999634; 0.024445;, - -0.288675; 0.507157; 0.812037;, - -0.542314; 0.582507; 0.605426;, - -0.016724; 0.999634; 0.020295;, - -0.009674; 0.999634; 0.024445;, - -0.001587; 0.999634; 0.026246;, - -0.082217; 0.582476; 0.808649;, - -0.288675; 0.507157; 0.812037;, - -0.001587; 0.999634; 0.026246;, - -0.009674; 0.999634; 0.024445;, - -0.118931; 0.946257; 0.300638;, - -0.007813; 0.947264; 0.320292;, - -0.001587; 0.999634; 0.026246;, - 0.006531; 0.999634; 0.025483;, - 0.242683; 0.511032; 0.824580;, - -0.082217; 0.582476; 0.808649;, - 0.242683; 0.511032; 0.824580;, - 0.006531; 0.999634; 0.025483;, - 0.014100; 0.999634; 0.022187;, - 0.408307; 0.583239; 0.702170;, - 0.006531; 0.999634; 0.025483;, - 0.102451; 0.947081; 0.304117;, - 0.171392; 0.947600; 0.269509;, - 0.014100; 0.999634; 0.022187;, - 0.006531; 0.999634; 0.025483;, - -0.001587; 0.999634; 0.026246;, - -0.007813; 0.947264; 0.320292;, - 0.102451; 0.947081; 0.304117;, - -0.118931; 0.946257; 0.300638;, - -0.009674; 0.999634; 0.024445;, - -0.016724; 0.999634; 0.020295;, - -0.206153; 0.945982; 0.250099;, - 0.009919; 0.999634;-0.025056;, - 0.017151; 0.999634;-0.020783;, - 0.000000; 1.000000; 0.000000;, - 0.066561; 0.992248; 0.104648;, - 0.115452; 0.992248; 0.045442;, - -0.680258; 0.682211;-0.267861;, - -0.392407; 0.682089;-0.617023;, - 0.115452; 0.992248; 0.045442;, - 0.120212; 0.992248;-0.031037;, - -0.707755; 0.682363; 0.182806;, - -0.680258; 0.682211;-0.267861;, - 0.120212; 0.992248;-0.031037;, - 0.115452; 0.992248; 0.045442;, - -0.561724; 0.796869;-0.222327;, - -0.627155; 0.765679; 0.142674;, - 0.079104; 0.992248;-0.095706;, - -0.465682; 0.682363; 0.563463;, - -0.707755; 0.682363; 0.182806;, - 0.120212; 0.992248;-0.031037;, - 0.079104; 0.992248;-0.095706;, - 0.120212; 0.992248;-0.031037;, - -0.627155; 0.765679; 0.142674;, - -0.423017; 0.765618; 0.484603;, - -0.510727; 0.306986;-0.803034;, - -0.885556; 0.306833;-0.348674;, - -0.401685; 0.901975;-0.158208;, - -0.231544; 0.902097;-0.364086;, - -0.885556; 0.306833;-0.348674;, - -0.921537; 0.306650; 0.238075;, - -0.418287; 0.901852; 0.108036;, - -0.401685; 0.901975;-0.158208;, - -0.921537; 0.306650; 0.238075;, - -0.885556; 0.306833;-0.348674;, - -0.680258; 0.682211;-0.267861;, - -0.707755; 0.682363; 0.182806;, - -0.921537; 0.306650; 0.238075;, - -0.606342; 0.306650; 0.733665;, - -0.275185; 0.901852; 0.333018;, - -0.418287; 0.901852; 0.108036;, - -0.606342; 0.306650; 0.733665;, - -0.921537; 0.306650; 0.238075;, - -0.707755; 0.682363; 0.182806;, - -0.465682; 0.682363; 0.563463;, - -0.392407; 0.682089;-0.617023;, - -0.680258; 0.682211;-0.267861;, - -0.885556; 0.306833;-0.348674;, - -0.510727; 0.306986;-0.803034;, - 0.007782; 0.992248;-0.123844;, - -0.045808; 0.682211; 0.729667;, - -0.465682; 0.682363; 0.563463;, - 0.079104; 0.992248;-0.095706;, - -0.045808; 0.682211; 0.729667;, - 0.007782; 0.992248;-0.123844;, - -0.066561; 0.992248;-0.104648;, - 0.392407; 0.682089; 0.617023;, - 0.007782; 0.992248;-0.123844;, - -0.056917; 0.766686; 0.639454;, - 0.329051; 0.767510; 0.550127;, - -0.066561; 0.992248;-0.104648;, - -0.059694; 0.306833; 0.949858;, - -0.027009; 0.901975; 0.430891;, - -0.275185; 0.901852; 0.333018;, - -0.606342; 0.306650; 0.733665;, - -0.027009; 0.901975; 0.430891;, - -0.059694; 0.306833; 0.949858;, - 0.510727; 0.306986; 0.803034;, - 0.231544; 0.902097; 0.364086;, - 0.510727; 0.306986; 0.803034;, - -0.059694; 0.306833; 0.949858;, - -0.045808; 0.682211; 0.729667;, - 0.392407; 0.682089; 0.617023;, - -0.045808; 0.682211; 0.729667;, - -0.059694; 0.306833; 0.949858;, - -0.606342; 0.306650; 0.733665;, - -0.465682; 0.682363; 0.563463;, - -0.056917; 0.766686; 0.639454;, - 0.007782; 0.992248;-0.123844;, - 0.079104; 0.992248;-0.095706;, - -0.423017; 0.765618; 0.484603;, - 0.115452; 0.992248; 0.045442;, - 0.066561; 0.992248; 0.104648;, - -0.358684; 0.767510;-0.531266;, - -0.561724; 0.796869;-0.222327;, - 0.020783; 0.999634; 0.017151;, - 0.014435; 0.999634; 0.022736;, - 0.000000; 1.000000; 0.000000;, - -0.369854; 0.724540;-0.581530;, - -0.641163; 0.724631;-0.252449;, - -0.077883; 0.996582; 0.027131;, - -0.028352; 0.998596;-0.044588;, - -0.641163; 0.724631;-0.252449;, - -0.667104; 0.724723; 0.172338;, - -0.103671; 0.993988; 0.034547;, - -0.077883; 0.996582; 0.027131;, - -0.667104; 0.724723; 0.172338;, - -0.641163; 0.724631;-0.252449;, - 0.401685; 0.901975; 0.158208;, - 0.418287; 0.901852;-0.108036;, - -0.667104; 0.724723; 0.172338;, - -0.438948; 0.724723; 0.531083;, - -0.091800; 0.989624; 0.110233;, - -0.103671; 0.993988; 0.034547;, - -0.438948; 0.724723; 0.531083;, - -0.667104; 0.724723; 0.172338;, - 0.418287; 0.901852;-0.108036;, - 0.275185; 0.901852;-0.333018;, - -0.042421; 0.764519; 0.643147;, - 0.248665; 0.968444; 0.015198;, - 0.248665; 0.968444; 0.015198;, - 0.220405; 0.971191; 0.090396;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.248665; 0.968444; 0.015198;, - 0.487991; 0.872494; 0.023713;, - 0.491195; 0.863826;-0.111759;, - -0.042421; 0.764519; 0.643147;, - 0.459517; 0.861476; 0.215949;, - 0.487991; 0.872494; 0.023713;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - 0.210120; 0.968474;-0.133641;, - 0.408032; 0.873104;-0.266732;, - 0.301523; 0.880612;-0.365459;, - 0.241432; 0.968413;-0.062014;, - 0.491195; 0.863826;-0.111759;, - 0.408032; 0.873104;-0.266732;, - 0.210120; 0.968474;-0.133641;, - -0.028352; 0.998596;-0.044588;, - -0.077883; 0.996582; 0.027131;, - 0.459517; 0.861476; 0.215949;, - 0.267159; 0.867244; 0.420057;, - -0.043184; 0.724662; 0.687735;, - -0.057588; 0.996582; 0.059023;, - -0.091800; 0.989624; 0.110233;, - -0.438948; 0.724723; 0.531083;, - 0.369854; 0.724540; 0.581530;, - 0.028321; 0.998596; 0.044557;, - -0.057588; 0.996582; 0.059023;, - -0.043184; 0.724662; 0.687735;, - -0.231544; 0.902097;-0.364086;, - 0.369854; 0.724540; 0.581530;, - -0.043184; 0.724662; 0.687735;, - 0.027039; 0.901975;-0.430891;, - 0.091647; 0.968444;-0.231635;, - 0.091647; 0.968444;-0.231666;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.091647; 0.968444;-0.231666;, - 0.091647; 0.968444;-0.231635;, - 0.005341; 0.973449;-0.228797;, - 0.013489; 0.972076;-0.234169;, - 0.005341; 0.973449;-0.228797;, - 0.091647; 0.968444;-0.231635;, - 0.185400; 0.872494;-0.452010;, - -0.008362; 0.853572;-0.520859;, - 0.185400; 0.872494;-0.452010;, - 0.091647; 0.968444;-0.231635;, - 0.158544; 0.968413;-0.192358;, - 0.301523; 0.880612;-0.365459;, - -0.008362; 0.853572;-0.520859;, - -0.057588; 0.996582; 0.059023;, - 0.028321; 0.998596; 0.044557;, - -0.266793; 0.867641;-0.419477;, - 0.027039; 0.901975;-0.430891;, - -0.043184; 0.724662; 0.687735;, - -0.438948; 0.724723; 0.531083;, - 0.275185; 0.901852;-0.333018;, - 0.133641; 0.968474; 0.210120;, - 0.192328; 0.968413; 0.158574;, - -0.027039; 0.999359;-0.022248;, - -0.019288; 0.999329;-0.030335;, - -0.027039; 0.999359;-0.022248;, - 0.192328; 0.968413; 0.158574;, - 0.231635; 0.968444; 0.091739;, - -0.033052; 0.999359;-0.013123;, - 0.192328; 0.968413; 0.158574;, - 0.180914; 0.972503; 0.146519;, - 0.220405; 0.971191; 0.090396;, - 0.231635; 0.968444; 0.091739;, - -0.143620; 0.963500;-0.225806;, - -0.206671; 0.963439;-0.170415;, - -0.493301; 0.768883;-0.406720;, - -0.343394; 0.768456;-0.539933;, - -0.493301; 0.768883;-0.406720;, - -0.206671; 0.963439;-0.170415;, - -0.248939; 0.963469;-0.098575;, - -0.594745; 0.768609;-0.235542;, - -0.206671; 0.963439;-0.170415;, - -0.027039; 0.999359;-0.022248;, - -0.033052; 0.999359;-0.013123;, - -0.248939; 0.963469;-0.098575;, - -0.019288; 0.999329;-0.030335;, - -0.027039; 0.999359;-0.022248;, - -0.206671; 0.963439;-0.170415;, - -0.143620; 0.963500;-0.225806;, - 0.248665; 0.968444; 0.015198;, - -0.035524; 0.999359;-0.002136;, - -0.033052; 0.999359;-0.013123;, - 0.231635; 0.968444; 0.091739;, - -0.033937; 0.999359; 0.008698;, - -0.035524; 0.999359;-0.002136;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - 0.248665; 0.968444; 0.015198;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - -0.594745; 0.768609;-0.235542;, - -0.248939; 0.963469;-0.098575;, - -0.267251; 0.963469;-0.016327;, - -0.638508; 0.768609;-0.039033;, - -0.267251; 0.963469;-0.016327;, - -0.259468; 0.963439; 0.066652;, - -0.619251; 0.768883; 0.159093;, - -0.638508; 0.768609;-0.039033;, - -0.259468; 0.963439; 0.066652;, - -0.267251; 0.963469;-0.016327;, - -0.035524; 0.999359;-0.002136;, - -0.033937; 0.999359; 0.008698;, - -0.267251; 0.963469;-0.016327;, - -0.248939; 0.963469;-0.098575;, - -0.033052; 0.999359;-0.013123;, - -0.035524; 0.999359;-0.002136;, - 0.248665; 0.968444; 0.015198;, - 0.248665; 0.968444; 0.015198;, - 0.231635; 0.968444; 0.091739;, - 0.220405; 0.971191; 0.090396;, - 0.210120; 0.968474;-0.133641;, - -0.030335; 0.999329; 0.019288;, - -0.033937; 0.999359; 0.008698;, - 0.241432; 0.968413;-0.062014;, - -0.022248; 0.999359; 0.027039;, - -0.030335; 0.999329; 0.019288;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - -0.619251; 0.768883; 0.159093;, - -0.259468; 0.963439; 0.066652;, - -0.225837; 0.963500; 0.143620;, - -0.539933; 0.768426; 0.343394;, - -0.225837; 0.963500; 0.143620;, - -0.170385; 0.963439; 0.206732;, - -0.406659; 0.768883; 0.493393;, - -0.539933; 0.768426; 0.343394;, - -0.170385; 0.963439; 0.206732;, - -0.225837; 0.963500; 0.143620;, - -0.030335; 0.999329; 0.019288;, - -0.022248; 0.999359; 0.027039;, - -0.259468; 0.963439; 0.066652;, - -0.033937; 0.999359; 0.008698;, - -0.030335; 0.999329; 0.019288;, - -0.225837; 0.963500; 0.143620;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - -0.467727; 0.490249;-0.735405;, - -0.672597; 0.489853;-0.554613;, - -0.745903; 0.255501;-0.615070;, - -0.518815; 0.255501;-0.815790;, - -0.745903; 0.255501;-0.615070;, - -0.672597; 0.489853;-0.554613;, - -0.810419; 0.490066;-0.320963;, - -0.898862; 0.255501;-0.355968;, - -0.672597; 0.489853;-0.554613;, - -0.493301; 0.768883;-0.406720;, - -0.594745; 0.768609;-0.235542;, - -0.810419; 0.490066;-0.320963;, - -0.536546; 0.017121;-0.843654;, - -0.771416; 0.017090;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.536637; 0.000000;-0.843776;, - -0.771508; 0.000000;-0.636158;, - -0.771416; 0.017090;-0.636067;, - -0.929594; 0.017090;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.771416; 0.017090;-0.636067;, - -0.745903; 0.255501;-0.615070;, - -0.898862; 0.255501;-0.355968;, - -0.929594; 0.017090;-0.368145;, - -0.518815; 0.255501;-0.815790;, - -0.745903; 0.255501;-0.615070;, - -0.771416; 0.017090;-0.636067;, - -0.536546; 0.017121;-0.843654;, - -0.870022; 0.490066;-0.053194;, - -0.964995; 0.255470;-0.059023;, - -0.898862; 0.255501;-0.355968;, - -0.810419; 0.490066;-0.320963;, - -0.936369; 0.255470; 0.240577;, - -0.964995; 0.255470;-0.059023;, - -0.870022; 0.490066;-0.053194;, - -0.844356; 0.489853; 0.216926;, - -0.844356; 0.489853; 0.216926;, - -0.870022; 0.490066;-0.053194;, - -0.638508; 0.768609;-0.039033;, - -0.619251; 0.768883; 0.159093;, - -0.929716; 0.000000;-0.368206;, - -0.929594; 0.017090;-0.368145;, - -0.997986; 0.017090;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.997986; 0.017090;-0.061037;, - -0.968383; 0.017090; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.998108; 0.000000;-0.061037;, - -0.968383; 0.017090; 0.248787;, - -0.997986; 0.017090;-0.061037;, - -0.964995; 0.255470;-0.059023;, - -0.936369; 0.255470; 0.240577;, - -0.929594; 0.017090;-0.368145;, - -0.898862; 0.255501;-0.355968;, - -0.964995; 0.255470;-0.059023;, - -0.997986; 0.017090;-0.061037;, - -0.638508; 0.768609;-0.039033;, - -0.870022; 0.490066;-0.053194;, - -0.810419; 0.490066;-0.320963;, - -0.594745; 0.768609;-0.235542;, - -0.735435; 0.490249; 0.467727;, - -0.815790; 0.255470; 0.518815;, - -0.936369; 0.255470; 0.240577;, - -0.844356; 0.489853; 0.216926;, - -0.614917; 0.255470; 0.746025;, - -0.815790; 0.255470; 0.518815;, - -0.735435; 0.490249; 0.467727;, - -0.554491; 0.489853; 0.672719;, - -0.554491; 0.489853; 0.672719;, - -0.735435; 0.490249; 0.467727;, - -0.539933; 0.768426; 0.343394;, - -0.406659; 0.768883; 0.493393;, - -0.968535; 0.000000; 0.248848;, - -0.968383; 0.017090; 0.248787;, - -0.843654; 0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654; 0.017121; 0.536546;, - -0.635945; 0.017090; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.843776; 0.000000; 0.536637;, - -0.635945; 0.017090; 0.771538;, - -0.843654; 0.017121; 0.536546;, - -0.815790; 0.255470; 0.518815;, - -0.614917; 0.255470; 0.746025;, - -0.968383; 0.017090; 0.248787;, - -0.936369; 0.255470; 0.240577;, - -0.815790; 0.255470; 0.518815;, - -0.843654; 0.017121; 0.536546;, - -0.539933; 0.768426; 0.343394;, - -0.735435; 0.490249; 0.467727;, - -0.844356; 0.489853; 0.216926;, - -0.619251; 0.768883; 0.159093;, - -0.343394; 0.768456;-0.539933;, - -0.493301; 0.768883;-0.406720;, - -0.672597; 0.489853;-0.554613;, - -0.467727; 0.490249;-0.735405;, - 0.091647; 0.968444;-0.231666;, - -0.013123; 0.999359; 0.033082;, - -0.022248; 0.999359; 0.027039;, - 0.158544; 0.968413;-0.192358;, - 0.091647; 0.968444;-0.231666;, - 0.015107; 0.968444;-0.248665;, - -0.002106; 0.999359; 0.035524;, - -0.013123; 0.999359; 0.033082;, - 0.015107; 0.968444;-0.248665;, - 0.091647; 0.968444;-0.231666;, - 0.091647; 0.968444;-0.231666;, - 0.013489; 0.972076;-0.234169;, - -0.098514; 0.963469; 0.248970;, - -0.235359; 0.768609; 0.594806;, - -0.406659; 0.768883; 0.493393;, - -0.170385; 0.963439; 0.206732;, - -0.098514; 0.963469; 0.248970;, - -0.016236; 0.963469; 0.267251;, - -0.038820; 0.768609; 0.638508;, - -0.235359; 0.768609; 0.594806;, - -0.016236; 0.963469; 0.267251;, - -0.098514; 0.963469; 0.248970;, - -0.013123; 0.999359; 0.033082;, - -0.002106; 0.999359; 0.035524;, - -0.013123; 0.999359; 0.033082;, - -0.098514; 0.963469; 0.248970;, - -0.170385; 0.963439; 0.206732;, - -0.022248; 0.999359; 0.027039;, - 0.015107; 0.968444;-0.248665;, - -0.062044; 0.968413;-0.241432;, - 0.008698; 0.999359; 0.033937;, - -0.002106; 0.999359; 0.035524;, - 0.008698; 0.999359; 0.033937;, - -0.062044; 0.968413;-0.241432;, - -0.133641; 0.968474;-0.210120;, - 0.019288; 0.999329; 0.030335;, - -0.062044; 0.968413;-0.241432;, - -0.052736; 0.974181;-0.219489;, - -0.133641; 0.968474;-0.210120;, - -0.133641; 0.968474;-0.210120;, - -0.016236; 0.963469; 0.267251;, - 0.066683; 0.963439; 0.259438;, - 0.159185; 0.768883; 0.619221;, - -0.038820; 0.768609; 0.638508;, - 0.159185; 0.768883; 0.619221;, - 0.066683; 0.963439; 0.259438;, - 0.143620; 0.963500; 0.225806;, - 0.343394; 0.768456; 0.539933;, - 0.066683; 0.963439; 0.259438;, - 0.008698; 0.999359; 0.033937;, - 0.019288; 0.999329; 0.030335;, - 0.143620; 0.963500; 0.225806;, - 0.066683; 0.963439; 0.259438;, - -0.016236; 0.963469; 0.267251;, - -0.002106; 0.999359; 0.035524;, - 0.008698; 0.999359; 0.033937;, - -0.062044; 0.968413;-0.241432;, - 0.015107; 0.968444;-0.248665;, - 0.013489; 0.972076;-0.234169;, - -0.052736; 0.974181;-0.219489;, - -0.320688; 0.490066; 0.810511;, - -0.355663; 0.255470; 0.898984;, - -0.614917; 0.255470; 0.746025;, - -0.554491; 0.489853; 0.672719;, - -0.058748; 0.255470; 0.964995;, - -0.355663; 0.255470; 0.898984;, - -0.320688; 0.490066; 0.810511;, - -0.052919; 0.490066; 0.870052;, - -0.052919; 0.490066; 0.870052;, - -0.320688; 0.490066; 0.810511;, - -0.235359; 0.768609; 0.594806;, - -0.038820; 0.768609; 0.638508;, - -0.636036; 0.000000; 0.771630;, - -0.635945; 0.017090; 0.771538;, - -0.367870; 0.017090; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.367901; 0.000000; 0.929838;, - -0.367870; 0.017090; 0.929716;, - -0.060732; 0.017090; 0.997986;, - -0.060732; 0.000000; 0.998138;, - -0.060732; 0.017090; 0.997986;, - -0.367870; 0.017090; 0.929716;, - -0.355663; 0.255470; 0.898984;, - -0.058748; 0.255470; 0.964995;, - -0.635945; 0.017090; 0.771538;, - -0.614917; 0.255470; 0.746025;, - -0.355663; 0.255470; 0.898984;, - -0.367870; 0.017090; 0.929716;, - -0.052919; 0.490066; 0.870052;, - 0.217078; 0.489853; 0.844325;, - 0.240761; 0.255501; 0.936338;, - -0.058748; 0.255470; 0.964995;, - 0.240761; 0.255501; 0.936338;, - 0.217078; 0.489853; 0.844325;, - 0.467727; 0.490249; 0.735405;, - 0.518815; 0.255501; 0.815790;, - 0.217078; 0.489853; 0.844325;, - 0.159185; 0.768883; 0.619221;, - 0.343394; 0.768456; 0.539933;, - 0.467727; 0.490249; 0.735405;, - -0.060732; 0.017090; 0.997986;, - 0.248970; 0.017090; 0.968352;, - 0.249001; 0.000000; 0.968474;, - -0.060732; 0.000000; 0.998138;, - 0.249001; 0.000000; 0.968474;, - 0.248970; 0.017090; 0.968352;, - 0.536546; 0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.248970; 0.017090; 0.968352;, - 0.240761; 0.255501; 0.936338;, - 0.518815; 0.255501; 0.815790;, - 0.536546; 0.017121; 0.843654;, - 0.248970; 0.017090; 0.968352;, - -0.060732; 0.017090; 0.997986;, - -0.058748; 0.255470; 0.964995;, - 0.240761; 0.255501; 0.936338;, - 0.217078; 0.489853; 0.844325;, - -0.052919; 0.490066; 0.870052;, - -0.038820; 0.768609; 0.638508;, - 0.159185; 0.768883; 0.619221;, - -0.235359; 0.768609; 0.594806;, - -0.320688; 0.490066; 0.810511;, - -0.554491; 0.489853; 0.672719;, - -0.406659; 0.768883; 0.493393;, - 0.091647; 0.968444;-0.231666;, - 0.091647; 0.968444;-0.231666;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.133641; 0.968474; 0.210120;, - 0.180914; 0.972503; 0.146519;, - 0.192328; 0.968413; 0.158574;, - 0.133641; 0.968474; 0.210120;, - 0.369854; 0.724540; 0.581530;, - 0.641163; 0.724662; 0.252449;, - 0.077883; 0.996582;-0.027131;, - 0.028321; 0.998596; 0.044557;, - 0.641163; 0.724662; 0.252449;, - 0.667104; 0.724723;-0.172338;, - 0.138737; 0.989654;-0.036378;, - 0.077883; 0.996582;-0.027131;, - 0.667104; 0.724723;-0.172338;, - 0.641163; 0.724662; 0.252449;, - -0.401685; 0.901975;-0.158208;, - -0.418287; 0.901852; 0.108036;, - 0.667104; 0.724723;-0.172338;, - 0.438917; 0.724723;-0.531083;, - 0.075228; 0.993988;-0.079226;, - 0.138737; 0.989654;-0.036378;, - -0.275185; 0.901852; 0.333018;, - 0.438917; 0.724723;-0.531083;, - 0.667104; 0.724723;-0.172338;, - -0.418287; 0.901852; 0.108036;, - -0.217780; 0.972076;-0.087069;, - -0.209479; 0.973449;-0.092166;, - -0.248665; 0.968444;-0.015198;, - -0.248665; 0.968444;-0.015198;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - -0.241432; 0.968413; 0.062014;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - -0.248665; 0.968444;-0.015198;, - -0.487991; 0.872494;-0.023713;, - -0.458815; 0.880612; 0.118107;, - -0.209479; 0.973449;-0.092166;, - -0.468184; 0.853572;-0.228431;, - -0.487991; 0.872494;-0.023713;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - -0.241432; 0.968413; 0.062014;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - -0.158544; 0.968413; 0.192358;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - -0.210120; 0.968474; 0.133641;, - -0.414563; 0.873104; 0.256447;, - -0.309488; 0.863826; 0.397443;, - -0.241432; 0.968413; 0.062014;, - -0.458815; 0.880612; 0.118107;, - -0.414563; 0.873104; 0.256447;, - -0.210120; 0.968474; 0.133641;, - 0.028321; 0.998596; 0.044557;, - 0.077883; 0.996582;-0.027131;, - -0.468184; 0.853572;-0.228431;, - -0.266793; 0.867641;-0.419477;, - 0.043184; 0.724662;-0.687735;, - 0.057588; 0.996582;-0.059023;, - 0.075228; 0.993988;-0.079226;, - 0.438917; 0.724723;-0.531083;, - 0.057588; 0.996582;-0.059023;, - 0.043184; 0.724662;-0.687735;, - -0.369854; 0.724540;-0.581530;, - -0.028352; 0.998596;-0.044588;, - 0.043184; 0.724662;-0.687735;, - -0.027009; 0.901975; 0.430891;, - 0.231544; 0.902097; 0.364086;, - -0.369854; 0.724540;-0.581530;, - -0.091647; 0.968444; 0.231635;, - -0.091647; 0.968444; 0.231666;, - -0.158544; 0.968413; 0.192358;, - -0.158544; 0.968413; 0.192358;, - -0.091647; 0.968444; 0.231635;, - 0.388989; 0.885952; 0.252449;, - -0.011597; 0.971191; 0.237953;, - -0.091647; 0.968444; 0.231666;, - 0.388989; 0.885952; 0.252449;, - -0.091647; 0.968444; 0.231635;, - -0.185400; 0.872494; 0.452010;, - 0.000641; 0.861476; 0.507736;, - -0.185400; 0.872494; 0.452010;, - -0.091647; 0.968444; 0.231635;, - -0.158544; 0.968413; 0.192358;, - -0.309488; 0.863826; 0.397443;, - 0.000641; 0.861476; 0.507736;, - 0.057588; 0.996582;-0.059023;, - -0.028352; 0.998596;-0.044588;, - 0.267159; 0.867244; 0.420057;, - -0.027009; 0.901975; 0.430891;, - 0.043184; 0.724662;-0.687735;, - 0.438917; 0.724723;-0.531083;, - -0.275185; 0.901852; 0.333018;, - -0.133641; 0.968474;-0.210120;, - -0.192328; 0.968413;-0.158574;, - 0.027039; 0.999359; 0.022248;, - 0.019288; 0.999329; 0.030335;, - -0.231635; 0.968444;-0.091739;, - 0.033082; 0.999359; 0.013123;, - 0.027039; 0.999359; 0.022248;, - -0.192328; 0.968413;-0.158574;, - -0.217780; 0.972076;-0.087069;, - -0.231635; 0.968444;-0.091739;, - -0.192328; 0.968413;-0.158574;, - -0.176427; 0.974181;-0.140843;, - 0.143620; 0.963500; 0.225806;, - 0.206671; 0.963439; 0.170415;, - 0.493301; 0.768883; 0.406720;, - 0.343394; 0.768456; 0.539933;, - 0.493301; 0.768883; 0.406720;, - 0.206671; 0.963439; 0.170415;, - 0.248939; 0.963469; 0.098575;, - 0.594745; 0.768609; 0.235542;, - 0.206671; 0.963439; 0.170415;, - 0.027039; 0.999359; 0.022248;, - 0.033082; 0.999359; 0.013123;, - 0.248939; 0.963469; 0.098575;, - 0.019288; 0.999329; 0.030335;, - 0.027039; 0.999359; 0.022248;, - 0.206671; 0.963439; 0.170415;, - 0.143620; 0.963500; 0.225806;, - -0.248665; 0.968444;-0.015198;, - 0.035524; 0.999359; 0.002136;, - 0.033082; 0.999359; 0.013123;, - -0.231635; 0.968444;-0.091739;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - 0.033937; 0.999359;-0.008698;, - 0.035524; 0.999359; 0.002136;, - -0.241432; 0.968413; 0.062014;, - -0.248665; 0.968444;-0.015198;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - 0.267251; 0.963469; 0.016327;, - 0.638508; 0.768609; 0.039033;, - 0.594745; 0.768609; 0.235542;, - 0.248939; 0.963469; 0.098575;, - 0.267251; 0.963469; 0.016327;, - 0.259468; 0.963439;-0.066652;, - 0.619251; 0.768883;-0.159093;, - 0.638508; 0.768609; 0.039033;, - 0.259468; 0.963439;-0.066652;, - 0.267251; 0.963469; 0.016327;, - 0.035524; 0.999359; 0.002136;, - 0.033937; 0.999359;-0.008698;, - 0.035524; 0.999359; 0.002136;, - 0.267251; 0.963469; 0.016327;, - 0.248939; 0.963469; 0.098575;, - 0.033082; 0.999359; 0.013123;, - -0.248665; 0.968444;-0.015198;, - -0.231635; 0.968444;-0.091739;, - -0.217780; 0.972076;-0.087069;, - -0.248665; 0.968444;-0.015198;, - -0.210120; 0.968474; 0.133641;, - 0.030335; 0.999329;-0.019288;, - 0.033937; 0.999359;-0.008698;, - -0.241432; 0.968413; 0.062014;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - 0.022248; 0.999359;-0.027039;, - 0.030335; 0.999329;-0.019288;, - -0.158544; 0.968413; 0.192358;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - 0.225837; 0.963500;-0.143620;, - 0.539933; 0.768426;-0.343394;, - 0.619251; 0.768883;-0.159093;, - 0.259468; 0.963439;-0.066652;, - 0.225837; 0.963500;-0.143620;, - 0.170385; 0.963439;-0.206732;, - 0.406659; 0.768853;-0.493393;, - 0.539933; 0.768426;-0.343394;, - 0.170385; 0.963439;-0.206732;, - 0.225837; 0.963500;-0.143620;, - 0.030335; 0.999329;-0.019288;, - 0.022248; 0.999359;-0.027039;, - 0.030335; 0.999329;-0.019288;, - 0.225837; 0.963500;-0.143620;, - 0.259468; 0.963439;-0.066652;, - 0.033937; 0.999359;-0.008698;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.241432; 0.968413; 0.062014;, - -0.241432; 0.968413; 0.062014;, - 0.467727; 0.490249; 0.735405;, - 0.672597; 0.489853; 0.554613;, - 0.745903; 0.255501; 0.615070;, - 0.518815; 0.255501; 0.815790;, - 0.745903; 0.255501; 0.615070;, - 0.672597; 0.489853; 0.554613;, - 0.810419; 0.490066; 0.320963;, - 0.898862; 0.255470; 0.355968;, - 0.672597; 0.489853; 0.554613;, - 0.493301; 0.768883; 0.406720;, - 0.594745; 0.768609; 0.235542;, - 0.810419; 0.490066; 0.320963;, - 0.536546; 0.017121; 0.843654;, - 0.771416; 0.017090; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.536637; 0.000000; 0.843776;, - 0.771508; 0.000000; 0.636158;, - 0.771416; 0.017090; 0.636067;, - 0.929594; 0.017090; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.771416; 0.017090; 0.636067;, - 0.745903; 0.255501; 0.615070;, - 0.898862; 0.255470; 0.355968;, - 0.929594; 0.017090; 0.368145;, - 0.518815; 0.255501; 0.815790;, - 0.745903; 0.255501; 0.615070;, - 0.771416; 0.017090; 0.636067;, - 0.536546; 0.017121; 0.843654;, - 0.870022; 0.490066; 0.053194;, - 0.964995; 0.255470; 0.059023;, - 0.898862; 0.255470; 0.355968;, - 0.810419; 0.490066; 0.320963;, - 0.936369; 0.255470;-0.240577;, - 0.964995; 0.255470; 0.059023;, - 0.870022; 0.490066; 0.053194;, - 0.844356; 0.489853;-0.216926;, - 0.844356; 0.489853;-0.216926;, - 0.870022; 0.490066; 0.053194;, - 0.638508; 0.768609; 0.039033;, - 0.619251; 0.768883;-0.159093;, - 0.929594; 0.017090; 0.368145;, - 0.997986; 0.017090; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.929716; 0.000000; 0.368206;, - 0.997986; 0.017090; 0.061037;, - 0.968383; 0.017090;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.998108; 0.000000; 0.061037;, - 0.968383; 0.017090;-0.248787;, - 0.997986; 0.017090; 0.061037;, - 0.964995; 0.255470; 0.059023;, - 0.936369; 0.255470;-0.240577;, - 0.929594; 0.017090; 0.368145;, - 0.898862; 0.255470; 0.355968;, - 0.964995; 0.255470; 0.059023;, - 0.997986; 0.017090; 0.061037;, - 0.638508; 0.768609; 0.039033;, - 0.870022; 0.490066; 0.053194;, - 0.810419; 0.490066; 0.320963;, - 0.594745; 0.768609; 0.235542;, - 0.735435; 0.490249;-0.467727;, - 0.815790; 0.255470;-0.518815;, - 0.936369; 0.255470;-0.240577;, - 0.844356; 0.489853;-0.216926;, - 0.614917; 0.255470;-0.746025;, - 0.815790; 0.255470;-0.518815;, - 0.735435; 0.490249;-0.467727;, - 0.554491; 0.489853;-0.672719;, - 0.554491; 0.489853;-0.672719;, - 0.735435; 0.490249;-0.467727;, - 0.539933; 0.768426;-0.343394;, - 0.406659; 0.768853;-0.493393;, - 0.968535; 0.000000;-0.248848;, - 0.968383; 0.017090;-0.248787;, - 0.843654; 0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654; 0.017121;-0.536546;, - 0.635945; 0.017090;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.843776; 0.000000;-0.536637;, - 0.635945; 0.017090;-0.771538;, - 0.843654; 0.017121;-0.536546;, - 0.815790; 0.255470;-0.518815;, - 0.614917; 0.255470;-0.746025;, - 0.968383; 0.017090;-0.248787;, - 0.936369; 0.255470;-0.240577;, - 0.815790; 0.255470;-0.518815;, - 0.843654; 0.017121;-0.536546;, - 0.539933; 0.768426;-0.343394;, - 0.735435; 0.490249;-0.467727;, - 0.844356; 0.489853;-0.216926;, - 0.619251; 0.768883;-0.159093;, - 0.343394; 0.768456; 0.539933;, - 0.493301; 0.768883; 0.406720;, - 0.672597; 0.489853; 0.554613;, - 0.467727; 0.490249; 0.735405;, - -0.091647; 0.968444; 0.231666;, - 0.013123; 0.999359;-0.033082;, - 0.022248; 0.999359;-0.027039;, - -0.158544; 0.968413; 0.192358;, - -0.091647; 0.968444; 0.231666;, - -0.015107; 0.968444; 0.248665;, - 0.002106; 0.999359;-0.035524;, - 0.013123; 0.999359;-0.033082;, - -0.011597; 0.971191; 0.237953;, - -0.015107; 0.968444; 0.248665;, - -0.091647; 0.968444; 0.231666;, - -0.091647; 0.968444; 0.231666;, - 0.098514; 0.963469;-0.248970;, - 0.235359; 0.768609;-0.594806;, - 0.406659; 0.768853;-0.493393;, - 0.170385; 0.963439;-0.206732;, - 0.098514; 0.963469;-0.248970;, - 0.016236; 0.963469;-0.267251;, - 0.038820; 0.768609;-0.638508;, - 0.235359; 0.768609;-0.594806;, - 0.016236; 0.963469;-0.267251;, - 0.098514; 0.963469;-0.248970;, - 0.013123; 0.999359;-0.033082;, - 0.002106; 0.999359;-0.035524;, - 0.013123; 0.999359;-0.033082;, - 0.098514; 0.963469;-0.248970;, - 0.170385; 0.963439;-0.206732;, - 0.022248; 0.999359;-0.027039;, - -0.015107; 0.968444; 0.248665;, - 0.062044; 0.968413; 0.241432;, - -0.008698; 0.999359;-0.033937;, - 0.002106; 0.999359;-0.035524;, - -0.008698; 0.999359;-0.033937;, - 0.062044; 0.968413; 0.241432;, - 0.133641; 0.968474; 0.210120;, - -0.019288; 0.999329;-0.030335;, - 0.062044; 0.968413; 0.241432;, - 0.055971; 0.972503; 0.225990;, - 0.133641; 0.968474; 0.210120;, - 0.133641; 0.968474; 0.210120;, - 0.016236; 0.963469;-0.267251;, - -0.066683; 0.963439;-0.259438;, - -0.159185; 0.768883;-0.619221;, - 0.038820; 0.768609;-0.638508;, - -0.159185; 0.768883;-0.619221;, - -0.066683; 0.963439;-0.259438;, - -0.143620; 0.963500;-0.225806;, - -0.343394; 0.768456;-0.539933;, - -0.066683; 0.963439;-0.259438;, - -0.008698; 0.999359;-0.033937;, - -0.019288; 0.999329;-0.030335;, - -0.143620; 0.963500;-0.225806;, - -0.066683; 0.963439;-0.259438;, - 0.016236; 0.963469;-0.267251;, - 0.002106; 0.999359;-0.035524;, - -0.008698; 0.999359;-0.033937;, - 0.062044; 0.968413; 0.241432;, - -0.015107; 0.968444; 0.248665;, - -0.011597; 0.971191; 0.237953;, - 0.055971; 0.972503; 0.225990;, - 0.320688; 0.490066;-0.810511;, - 0.355663; 0.255470;-0.898984;, - 0.614917; 0.255470;-0.746025;, - 0.554491; 0.489853;-0.672719;, - 0.320688; 0.490066;-0.810511;, - 0.052919; 0.490066;-0.870052;, - 0.058748; 0.255470;-0.964995;, - 0.355663; 0.255470;-0.898984;, - 0.052919; 0.490066;-0.870052;, - 0.320688; 0.490066;-0.810511;, - 0.235359; 0.768609;-0.594806;, - 0.038820; 0.768609;-0.638508;, - 0.367870; 0.017090;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.636036; 0.000000;-0.771630;, - 0.635945; 0.017090;-0.771538;, - 0.367870; 0.017090;-0.929716;, - 0.060732; 0.017090;-0.997986;, - 0.060732; 0.000000;-0.998138;, - 0.367901; 0.000000;-0.929838;, - 0.060732; 0.017090;-0.997986;, - 0.367870; 0.017090;-0.929716;, - 0.355663; 0.255470;-0.898984;, - 0.058748; 0.255470;-0.964995;, - 0.355663; 0.255470;-0.898984;, - 0.367870; 0.017090;-0.929716;, - 0.635945; 0.017090;-0.771538;, - 0.614917; 0.255470;-0.746025;, - 0.052919; 0.490066;-0.870052;, - -0.217078; 0.489853;-0.844325;, - -0.240761; 0.255501;-0.936338;, - 0.058748; 0.255470;-0.964995;, - -0.240761; 0.255501;-0.936338;, - -0.217078; 0.489853;-0.844325;, - -0.467727; 0.490249;-0.735405;, - -0.518815; 0.255501;-0.815790;, - -0.217078; 0.489853;-0.844325;, - -0.159185; 0.768883;-0.619221;, - -0.343394; 0.768456;-0.539933;, - -0.467727; 0.490249;-0.735405;, - 0.060732; 0.017090;-0.997986;, - -0.248970; 0.017090;-0.968352;, - -0.249001; 0.000000;-0.968474;, - 0.060732; 0.000000;-0.998138;, - -0.249001; 0.000000;-0.968474;, - -0.248970; 0.017090;-0.968352;, - -0.536546; 0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.248970; 0.017090;-0.968352;, - -0.240761; 0.255501;-0.936338;, - -0.518815; 0.255501;-0.815790;, - -0.536546; 0.017121;-0.843654;, - -0.248970; 0.017090;-0.968352;, - 0.060732; 0.017090;-0.997986;, - 0.058748; 0.255470;-0.964995;, - -0.240761; 0.255501;-0.936338;, - -0.217078; 0.489853;-0.844325;, - 0.052919; 0.490066;-0.870052;, - 0.038820; 0.768609;-0.638508;, - -0.159185; 0.768883;-0.619221;, - 0.235359; 0.768609;-0.594806;, - 0.320688; 0.490066;-0.810511;, - 0.554491; 0.489853;-0.672719;, - 0.406659; 0.768853;-0.493393;, - -0.091647; 0.968444; 0.231666;, - -0.091647; 0.968444; 0.231666;, - -0.158544; 0.968413; 0.192358;, - -0.158544; 0.968413; 0.192358;, - -0.192328; 0.968413;-0.158574;, - -0.133641; 0.968474;-0.210120;, - -0.133641; 0.968474;-0.210120;, - -0.176427; 0.974181;-0.140843;, - 0.641163; 0.724662; 0.252449;, - 0.369854; 0.724540; 0.581530;, - -0.231544; 0.902097;-0.364086;, - -0.401685; 0.901975;-0.158208;, - -0.641163; 0.724631;-0.252449;, - -0.369854; 0.724540;-0.581530;, - 0.231544; 0.902097; 0.364086;, - 0.401685; 0.901975; 0.158208;, - -0.020783; 0.999634;-0.017151;, - -0.014435; 0.999634;-0.022736;, - 0.000000; 1.000000; 0.000000;, - 0.055971;-0.972503; 0.225990;, - 0.133641;-0.968474; 0.210120;, - 0.266945;-0.867458; 0.419782;, - 0.472518;-0.845882; 0.247291;, - -0.011597;-0.971191; 0.237953;, - 0.000641;-0.861476; 0.507736;, - 0.266945;-0.867458; 0.419782;, - 0.000641;-0.861476; 0.507736;, - -0.011597;-0.971191; 0.237953;, - 0.055971;-0.972503; 0.225990;, - -0.185400;-0.872494; 0.452010;, - 0.000641;-0.861476; 0.507736;, - -0.005188;-0.865078; 0.501572;, - -0.292886;-0.885556; 0.360515;, - -0.309488;-0.863826; 0.397443;, - -0.185400;-0.872494; 0.452010;, - -0.005188;-0.865078; 0.501572;, - -0.414594;-0.873104; 0.256447;, - -0.309488;-0.863826; 0.397443;, - -0.292886;-0.885556; 0.360515;, - -0.425581;-0.898221; 0.109622;, - -0.458846;-0.880612; 0.118107;, - -0.414594;-0.873104; 0.256447;, - -0.292886;-0.885556; 0.360515;, - -0.209479;-0.973449;-0.092166;, - -0.468184;-0.853572;-0.228431;, - -0.266793;-0.867641;-0.419477;, - -0.176427;-0.974181;-0.140843;, - -0.266793;-0.867641;-0.419477;, - -0.133641;-0.968474;-0.210120;, - -0.266793;-0.867641;-0.419477;, - -0.176427;-0.974181;-0.140843;, - -0.217811;-0.972076;-0.087069;, - -0.209479;-0.973449;-0.092166;, - -0.468184;-0.853572;-0.228431;, - -0.487991;-0.872494;-0.023713;, - -0.456465;-0.865078;-0.207953;, - -0.456465;-0.865078;-0.207953;, - -0.487991;-0.872494;-0.023713;, - -0.458846;-0.880612; 0.118107;, - -0.425581;-0.898221; 0.109622;, - -0.266793;-0.867641;-0.419477;, - -0.008362;-0.853572;-0.520890;, - 0.005341;-0.973449;-0.228797;, - -0.133641;-0.968474;-0.210120;, - -0.266793;-0.867641;-0.419477;, - -0.052736;-0.974181;-0.219489;, - 0.013489;-0.972076;-0.234169;, - -0.052736;-0.974181;-0.219489;, - -0.266793;-0.867641;-0.419477;, - 0.005341;-0.973449;-0.228797;, - 0.005188;-0.865078;-0.501572;, - 0.185400;-0.872494;-0.452010;, - -0.008362;-0.853572;-0.520890;, - 0.301523;-0.880612;-0.365459;, - 0.185400;-0.872494;-0.452010;, - 0.005188;-0.865078;-0.501572;, - 0.279733;-0.898221;-0.338939;, - 0.450697;-0.885556;-0.112369;, - 0.491195;-0.863826;-0.111759;, - 0.408032;-0.873104;-0.266732;, - 0.408032;-0.873104;-0.266732;, - 0.301523;-0.880612;-0.365459;, - 0.279733;-0.898221;-0.338939;, - 0.450697;-0.885556;-0.112369;, - 0.266945;-0.867458; 0.419782;, - 0.133641;-0.968474; 0.210120;, - 0.176427;-0.974181; 0.140843;, - 0.468184;-0.853572; 0.228431;, - 0.266945;-0.867458; 0.419782;, - 0.209479;-0.973449; 0.092166;, - 0.217780;-0.972076; 0.087069;, - 0.209479;-0.973449; 0.092166;, - 0.266945;-0.867458; 0.419782;, - 0.176427;-0.974181; 0.140843;, - 0.456465;-0.865078; 0.207953;, - 0.468184;-0.853572; 0.228431;, - 0.487991;-0.872494; 0.023713;, - 0.487991;-0.872494; 0.023713;, - 0.491195;-0.863826;-0.111759;, - 0.450697;-0.885556;-0.112369;, - 0.456465;-0.865078; 0.207953;, - 0.332896; 0.933683; 0.131870;, - 0.293405; 0.947264; 0.128697;, - 0.288369; 0.933927; 0.211127;, - 0.187628; 0.936857; 0.295022;, - 0.288369; 0.933927; 0.211127;, - 0.293405; 0.947264; 0.128697;, - 0.231971; 0.947081; 0.221747;, - 0.171392; 0.947600; 0.269509;, - 0.102451; 0.947081; 0.304117;, - 0.187628; 0.936857; 0.295022;, - 0.231971; 0.947081; 0.221747;, - 0.068941; 0.933927; 0.350688;, - -0.007813; 0.947264; 0.320292;, - -0.021699; 0.933683; 0.357402;, - -0.007813; 0.947264; 0.320292;, - 0.068941; 0.933927; 0.350688;, - 0.187628; 0.936857; 0.295022;, - 0.102451; 0.947081; 0.304117;, - 0.332896; 0.933683; 0.131870;, - 0.357433; 0.933683; 0.021821;, - 0.322703; 0.946257; 0.019745;, - 0.293405; 0.947264; 0.128697;, - 0.357433; 0.933683; 0.021821;, - 0.346324; 0.933866;-0.088931;, - 0.313913; 0.945982;-0.080660;, - 0.322703; 0.946257; 0.019745;, - 0.346324; 0.933866;-0.088931;, - 0.302438; 0.933531;-0.192358;, - 0.272347; 0.946471;-0.173193;, - 0.313913; 0.945982;-0.080660;, - 0.227393; 0.933866;-0.275918;, - 0.206153; 0.945982;-0.250099;, - 0.272347; 0.946471;-0.173193;, - 0.302438; 0.933531;-0.192358;, - 0.329051; 0.767510; 0.550127;, - 0.408307; 0.583239; 0.702170;, - 0.681722; 0.511124; 0.523423;, - 0.726005; 0.635731; 0.262062;, - 0.531846; 0.826594; 0.183935;, - 0.329051; 0.767510; 0.550127;, - 0.681722; 0.511124; 0.523423;, - 0.935118; 0.332469;-0.122379;, - 0.726005; 0.635731; 0.262062;, - 0.941923; 0.290384; 0.168493;, - 0.935118; 0.332469;-0.122379;, - 0.941923; 0.290384; 0.168493;, - 0.778252; 0.582507;-0.234413;, - 0.531846; 0.826594; 0.183935;, - 0.726005; 0.635731; 0.262062;, - 0.935118; 0.332469;-0.122379;, - 0.109836; 0.992584; 0.051546;, - 0.395093; 0.765740;-0.507462;, - 0.744591; 0.504624;-0.436903;, - 0.490707; 0.583453;-0.647114;, - 0.778252; 0.582507;-0.234413;, - 0.744591; 0.504624;-0.436903;, - 0.395093; 0.765740;-0.507462;, - 0.935118; 0.332469;-0.122379;, - 0.131779; 0.933683;-0.332957;, - 0.118931; 0.946257;-0.300638;, - 0.206153; 0.945982;-0.250099;, - 0.227393; 0.933866;-0.275918;, - 0.021699; 0.933683;-0.357402;, - 0.003632; 0.949675;-0.313181;, - 0.118931; 0.946257;-0.300638;, - 0.131779; 0.933683;-0.332957;, - 0.003632; 0.949675;-0.313181;, - 0.021699; 0.933683;-0.357402;, - -0.094485; 0.922422;-0.374432;, - -0.003571; 0.999878;-0.013977;, - 0.003632; 0.949675;-0.313181;, - -0.168828; 0.949217;-0.265450;, - -0.207404; 0.922269;-0.326121;, - -0.168828; 0.949217;-0.265450;, - 0.003632; 0.949675;-0.313181;, - -0.094485; 0.922422;-0.374432;, - 0.021485; 0.766808;-0.641499;, - 0.345286; 0.507309;-0.789544;, - 0.017029; 0.583880;-0.811640;, - 0.490707; 0.583453;-0.647114;, - 0.345286; 0.507309;-0.789544;, - 0.021485; 0.766808;-0.641499;, - 0.395093; 0.765740;-0.507462;, - -0.185003; 0.511124;-0.839351;, - -0.462813; 0.583239;-0.667531;, - -0.358684; 0.767510;-0.531266;, - -0.358684; 0.767510;-0.531266;, - 0.021485; 0.766808;-0.641499;, - 0.017029; 0.583880;-0.811640;, - -0.185003; 0.511124;-0.839351;, - -0.299020; 0.922422;-0.244362;, - -0.332896; 0.933683;-0.131870;, - -0.285165; 0.949675;-0.129490;, - -0.168828; 0.949217;-0.265450;, - -0.285165; 0.949675;-0.129490;, - -0.011139; 0.999878;-0.009186;, - -0.285165; 0.949675;-0.129490;, - -0.168828; 0.949217;-0.265450;, - -0.207404; 0.922269;-0.326121;, - -0.299020; 0.922422;-0.244362;, - -0.313913; 0.945982; 0.080660;, - -0.322733; 0.946257;-0.019745;, - -0.357402; 0.933683;-0.021821;, - -0.346324; 0.933866; 0.088931;, - -0.322733; 0.946257;-0.019745;, - -0.285165; 0.949675;-0.129490;, - -0.332896; 0.933683;-0.131870;, - -0.357402; 0.933683;-0.021821;, - -0.272347; 0.946471; 0.173193;, - -0.302438; 0.933531; 0.192358;, - -0.227393; 0.933866; 0.275918;, - -0.206153; 0.945982; 0.250099;, - -0.313913; 0.945982; 0.080660;, - -0.346324; 0.933866; 0.088931;, - -0.302438; 0.933531; 0.192358;, - -0.272347; 0.946471; 0.173193;, - -0.643880; 0.511032;-0.569414;, - -0.694784; 0.664479;-0.275155;, - -0.561724; 0.796869;-0.222327;, - -0.561724; 0.796869;-0.222327;, - -0.358684; 0.767510;-0.531266;, - -0.462813; 0.583239;-0.667531;, - -0.643880; 0.511032;-0.569414;, - -0.694784; 0.664479;-0.275155;, - -0.861476; 0.507309;-0.022034;, - -0.561724; 0.796869;-0.222327;, - -0.561724; 0.796869;-0.222327;, - -0.861476; 0.507309;-0.022034;, - -0.794122; 0.583453; 0.170019;, - -0.627155; 0.765679; 0.142674;, - -0.794122; 0.583453; 0.170019;, - -0.711386; 0.504624; 0.489090;, - -0.627155; 0.765679; 0.142674;, - -0.627155; 0.765679; 0.142674;, - -0.711386; 0.504624; 0.489090;, - -0.542314; 0.582507; 0.605426;, - -0.423017; 0.765618; 0.484603;, - -0.118931; 0.946257; 0.300638;, - -0.131779; 0.933683; 0.332957;, - -0.021699; 0.933683; 0.357402;, - -0.007813; 0.947264; 0.320292;, - -0.206153; 0.945982; 0.250099;, - -0.227393; 0.933866; 0.275918;, - -0.131779; 0.933683; 0.332957;, - -0.118931; 0.946257; 0.300638;, - -0.542314; 0.582507; 0.605426;, - -0.288675; 0.507157; 0.812037;, - -0.423017; 0.765618; 0.484603;, - -0.423017; 0.765618; 0.484603;, - -0.288675; 0.507157; 0.812037;, - -0.082217; 0.582476; 0.808649;, - -0.056917; 0.766686; 0.639454;, - -0.056917; 0.766686; 0.639454;, - -0.082217; 0.582476; 0.808649;, - 0.242683; 0.511032; 0.824580;, - 0.408307; 0.583239; 0.702170;, - 0.329051; 0.767510; 0.550127;, - -0.056917; 0.766686; 0.639454;, - 0.242683; 0.511032; 0.824580;, - 0.180914; 0.972503; 0.146519;, - 0.133641; 0.968474; 0.210120;, - 0.267159; 0.867244; 0.420057;, - -0.042421; 0.764519; 0.643147;, - 0.220405; 0.971191; 0.090396;, - 0.459517; 0.861476; 0.215949;, - 0.267159; 0.867244; 0.420057;, - 0.459517; 0.861476; 0.215949;, - 0.220405; 0.971191; 0.090396;, - 0.180914; 0.972503; 0.146519;, - 0.487991; 0.872494; 0.023713;, - 0.459517; 0.861476; 0.215949;, - -0.077883; 0.996582; 0.027131;, - -0.103671; 0.993988; 0.034547;, - 0.491195; 0.863826;-0.111759;, - 0.487991; 0.872494; 0.023713;, - -0.077883; 0.996582; 0.027131;, - 0.408032; 0.873104;-0.266732;, - 0.491195; 0.863826;-0.111759;, - -0.103671; 0.993988; 0.034547;, - -0.091800; 0.989624; 0.110233;, - 0.301523; 0.880612;-0.365459;, - 0.408032; 0.873104;-0.266732;, - -0.103671; 0.993988; 0.034547;, - 0.005341; 0.973449;-0.228797;, - -0.008362; 0.853572;-0.520859;, - -0.266793; 0.867641;-0.419477;, - -0.052736; 0.974181;-0.219489;, - -0.266793; 0.867641;-0.419477;, - -0.133641; 0.968474;-0.210120;, - -0.266793; 0.867641;-0.419477;, - -0.052736; 0.974181;-0.219489;, - 0.013489; 0.972076;-0.234169;, - 0.005341; 0.973449;-0.228797;, - -0.008362; 0.853572;-0.520859;, - 0.185400; 0.872494;-0.452010;, - -0.057588; 0.996582; 0.059023;, - -0.057588; 0.996582; 0.059023;, - 0.185400; 0.872494;-0.452010;, - 0.301523; 0.880612;-0.365459;, - -0.091800; 0.989624; 0.110233;, - -0.266793; 0.867641;-0.419477;, - -0.468184; 0.853572;-0.228431;, - -0.209479; 0.973449;-0.092166;, - -0.133641; 0.968474;-0.210120;, - -0.266793; 0.867641;-0.419477;, - -0.176427; 0.974181;-0.140843;, - -0.217780; 0.972076;-0.087069;, - -0.176427; 0.974181;-0.140843;, - -0.266793; 0.867641;-0.419477;, - -0.209479; 0.973449;-0.092166;, - 0.077883; 0.996582;-0.027131;, - -0.487991; 0.872494;-0.023713;, - -0.468184; 0.853572;-0.228431;, - -0.458815; 0.880612; 0.118107;, - -0.487991; 0.872494;-0.023713;, - 0.077883; 0.996582;-0.027131;, - 0.138737; 0.989654;-0.036378;, - 0.075228; 0.993988;-0.079226;, - -0.309488; 0.863826; 0.397443;, - -0.414563; 0.873104; 0.256447;, - -0.414563; 0.873104; 0.256447;, - -0.458815; 0.880612; 0.118107;, - 0.138737; 0.989654;-0.036378;, - 0.075228; 0.993988;-0.079226;, - 0.267159; 0.867244; 0.420057;, - 0.133641; 0.968474; 0.210120;, - 0.055971; 0.972503; 0.225990;, - 0.000641; 0.861476; 0.507736;, - -0.011597; 0.971191; 0.237953;, - 0.388989; 0.885952; 0.252449;, - -0.011597; 0.971191; 0.237953;, - 0.000641; 0.861476; 0.507736;, - 0.267159; 0.867244; 0.420057;, - 0.055971; 0.972503; 0.225990;, - 0.057588; 0.996582;-0.059023;, - 0.000641; 0.861476; 0.507736;, - -0.185400; 0.872494; 0.452010;, - -0.185400; 0.872494; 0.452010;, - -0.309488; 0.863826; 0.397443;, - 0.075228; 0.993988;-0.079226;, - 0.057588; 0.996582;-0.059023;, - 0.000000;-1.000000; 0.000000;, - 0.456465;-0.865078; 0.207953;, - 0.450697;-0.885556;-0.112369;, - 0.000000;-1.000000; 0.000000;, - -0.292886;-0.885556; 0.360515;, - -0.005188;-0.865078; 0.501572;, - -0.115452; 0.992248;-0.045442;, - 0.707755; 0.682363;-0.182806;, - 0.680258; 0.682211; 0.267861;, - -0.007782; 0.992248; 0.123844;, - 0.045808; 0.682211;-0.729667;, - 0.465682; 0.682363;-0.563463;, - -0.079104; 0.992248; 0.095706;, - 0.395093; 0.765740;-0.507462;, - 0.021485; 0.766808;-0.641499;, - -0.079104; 0.992248; 0.095706;, - 0.021485; 0.766808;-0.641499;, - -0.007782; 0.992248; 0.123844;, - 0.465682; 0.682363;-0.563463;, - -0.115452; 0.992248;-0.045442;, - 0.531846; 0.826594; 0.183935;, - 0.109836; 0.992584; 0.051546;, - 0.707755; 0.682363;-0.182806;, - 0.279733;-0.898221;-0.338939;, - 0.005188;-0.865078;-0.501572;, - 0.000000;-1.000000; 0.000000;, - 0.450697;-0.885556;-0.112369;, - -0.425581;-0.898221; 0.109622;, - -0.292886;-0.885556; 0.360515;, - 0.000000;-1.000000; 0.000000;, - -0.456465;-0.865078;-0.207953;, - -0.275338;-0.858333;-0.432905;, - -0.456465;-0.865078;-0.207953;, - 0.000000;-1.000000; 0.000000;, - 0.005188;-0.865078;-0.501572;, - 0.000000;-1.000000; 0.000000;, - -0.005188;-0.865078; 0.501572;, - 0.275307;-0.858333; 0.432905;, - 0.456465;-0.865078; 0.207953;, - -0.011597;-0.971191; 0.237953;, - 0.472518;-0.845882; 0.247291;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.091647;-0.968444; 0.231666;, - -0.185400;-0.872494; 0.452010;, - -0.309488;-0.863826; 0.397443;, - 0.472518;-0.845882; 0.247291;, - 0.000641;-0.861476; 0.507736;, - -0.185400;-0.872494; 0.452010;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - -0.210120;-0.968474; 0.133641;, - -0.414594;-0.873104; 0.256447;, - -0.458846;-0.880612; 0.118107;, - -0.158544;-0.968413; 0.192358;, - -0.309488;-0.863826; 0.397443;, - -0.414594;-0.873104; 0.256447;, - -0.210120;-0.968474; 0.133641;, - 0.275307;-0.858333; 0.432905;, - -0.005188;-0.865078; 0.501572;, - 0.000641;-0.861476; 0.507736;, - 0.266945;-0.867458; 0.419782;, - -0.248665;-0.968444;-0.015198;, - -0.248665;-0.968444;-0.015198;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - -0.248665;-0.968444;-0.015198;, - -0.209479;-0.973449;-0.092166;, - -0.217811;-0.972076;-0.087069;, - -0.248665;-0.968444;-0.015198;, - -0.209479;-0.973449;-0.092166;, - -0.248665;-0.968444;-0.015198;, - -0.487991;-0.872494;-0.023713;, - -0.468184;-0.853572;-0.228431;, - -0.487991;-0.872494;-0.023713;, - -0.248665;-0.968444;-0.015198;, - -0.241432;-0.968413; 0.062014;, - -0.458846;-0.880612; 0.118107;, - -0.468184;-0.853572;-0.228431;, - -0.456465;-0.865078;-0.207953;, - -0.275338;-0.858333;-0.432905;, - -0.266793;-0.867641;-0.419477;, - 0.133641;-0.968474; 0.210120;, - 0.062044;-0.968413; 0.241432;, - -0.008698;-0.999359;-0.033937;, - -0.019288;-0.999329;-0.030335;, - -0.008698;-0.999359;-0.033937;, - 0.062044;-0.968413; 0.241432;, - -0.015107;-0.968444; 0.248665;, - 0.002106;-0.999359;-0.035524;, - 0.062044;-0.968413; 0.241432;, - 0.055971;-0.972503; 0.225990;, - -0.011597;-0.971191; 0.237953;, - -0.015107;-0.968444; 0.248665;, - -0.143620;-0.963500;-0.225806;, - -0.066683;-0.963439;-0.259438;, - -0.159185;-0.768883;-0.619221;, - -0.343394;-0.768456;-0.539933;, - -0.159185;-0.768883;-0.619221;, - -0.066683;-0.963439;-0.259438;, - 0.016236;-0.963469;-0.267251;, - 0.038820;-0.768609;-0.638508;, - -0.066683;-0.963439;-0.259438;, - -0.008698;-0.999359;-0.033937;, - 0.002106;-0.999359;-0.035524;, - 0.016236;-0.963469;-0.267251;, - -0.019288;-0.999329;-0.030335;, - -0.008698;-0.999359;-0.033937;, - -0.066683;-0.963439;-0.259438;, - -0.143620;-0.963500;-0.225806;, - -0.091647;-0.968444; 0.231666;, - 0.013123;-0.999359;-0.033082;, - 0.002106;-0.999359;-0.035524;, - -0.015107;-0.968444; 0.248665;, - 0.022279;-0.999359;-0.027039;, - 0.013123;-0.999359;-0.033082;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.158544;-0.968413; 0.192358;, - 0.038820;-0.768609;-0.638508;, - 0.016236;-0.963469;-0.267251;, - 0.098514;-0.963469;-0.248970;, - 0.235359;-0.768609;-0.594806;, - 0.098514;-0.963469;-0.248970;, - 0.170385;-0.963439;-0.206732;, - 0.406659;-0.768853;-0.493393;, - 0.235359;-0.768609;-0.594806;, - 0.170385;-0.963439;-0.206732;, - 0.098514;-0.963469;-0.248970;, - 0.013123;-0.999359;-0.033082;, - 0.022279;-0.999359;-0.027039;, - 0.016236;-0.963469;-0.267251;, - 0.002106;-0.999359;-0.035524;, - 0.013123;-0.999359;-0.033082;, - 0.098514;-0.963469;-0.248970;, - -0.091647;-0.968444; 0.231666;, - -0.091647;-0.968444; 0.231666;, - -0.015107;-0.968444; 0.248665;, - -0.011597;-0.971191; 0.237953;, - -0.210120;-0.968474; 0.133641;, - 0.030335;-0.999329;-0.019288;, - 0.022279;-0.999359;-0.027039;, - -0.158544;-0.968413; 0.192358;, - 0.033937;-0.999359;-0.008698;, - 0.030335;-0.999329;-0.019288;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.241432;-0.968413; 0.062014;, - 0.406659;-0.768853;-0.493393;, - 0.170385;-0.963439;-0.206732;, - 0.225837;-0.963500;-0.143620;, - 0.539933;-0.768426;-0.343394;, - 0.225837;-0.963500;-0.143620;, - 0.259468;-0.963439;-0.066652;, - 0.619251;-0.768853;-0.159093;, - 0.539933;-0.768426;-0.343394;, - 0.259468;-0.963439;-0.066652;, - 0.225837;-0.963500;-0.143620;, - 0.030335;-0.999329;-0.019288;, - 0.033937;-0.999359;-0.008698;, - 0.170385;-0.963439;-0.206732;, - 0.022279;-0.999359;-0.027039;, - 0.030335;-0.999329;-0.019288;, - 0.225837;-0.963500;-0.143620;, - -0.210120;-0.968474; 0.133641;, - -0.210120;-0.968474; 0.133641;, - -0.158544;-0.968413; 0.192358;, - -0.158544;-0.968413; 0.192358;, - -0.467727;-0.490249;-0.735405;, - -0.217078;-0.489853;-0.844325;, - -0.240761;-0.255501;-0.936338;, - -0.518815;-0.255501;-0.815790;, - -0.240761;-0.255501;-0.936338;, - -0.217078;-0.489853;-0.844325;, - 0.052919;-0.490066;-0.870052;, - 0.058748;-0.255470;-0.964995;, - -0.217078;-0.489853;-0.844325;, - -0.159185;-0.768883;-0.619221;, - 0.038820;-0.768609;-0.638508;, - 0.052919;-0.490066;-0.870052;, - -0.536546;-0.017121;-0.843654;, - -0.248970;-0.017090;-0.968352;, - -0.249001; 0.000000;-0.968474;, - -0.536637; 0.000000;-0.843776;, - -0.249001; 0.000000;-0.968474;, - -0.248970;-0.017090;-0.968352;, - 0.060732;-0.017090;-0.997986;, - 0.060732; 0.000000;-0.998138;, - -0.248970;-0.017090;-0.968352;, - -0.240761;-0.255501;-0.936338;, - 0.058748;-0.255470;-0.964995;, - 0.060732;-0.017090;-0.997986;, - -0.518815;-0.255501;-0.815790;, - -0.240761;-0.255501;-0.936338;, - -0.248970;-0.017090;-0.968352;, - -0.536546;-0.017121;-0.843654;, - 0.320688;-0.490066;-0.810511;, - 0.355663;-0.255470;-0.898984;, - 0.058748;-0.255470;-0.964995;, - 0.052919;-0.490066;-0.870052;, - 0.614917;-0.255470;-0.746025;, - 0.355663;-0.255470;-0.898984;, - 0.320688;-0.490066;-0.810511;, - 0.554491;-0.489853;-0.672719;, - 0.554491;-0.489853;-0.672719;, - 0.320688;-0.490066;-0.810511;, - 0.235359;-0.768609;-0.594806;, - 0.406659;-0.768853;-0.493393;, - 0.060732; 0.000000;-0.998138;, - 0.060732;-0.017090;-0.997986;, - 0.367870;-0.017090;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.367870;-0.017090;-0.929716;, - 0.635945;-0.017090;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.367901; 0.000000;-0.929838;, - 0.635945;-0.017090;-0.771538;, - 0.367870;-0.017090;-0.929716;, - 0.355663;-0.255470;-0.898984;, - 0.614917;-0.255470;-0.746025;, - 0.060732;-0.017090;-0.997986;, - 0.058748;-0.255470;-0.964995;, - 0.355663;-0.255470;-0.898984;, - 0.367870;-0.017090;-0.929716;, - 0.235359;-0.768609;-0.594806;, - 0.320688;-0.490066;-0.810511;, - 0.052919;-0.490066;-0.870052;, - 0.038820;-0.768609;-0.638508;, - 0.735435;-0.490249;-0.467727;, - 0.815790;-0.255470;-0.518815;, - 0.614917;-0.255470;-0.746025;, - 0.554491;-0.489853;-0.672719;, - 0.936369;-0.255470;-0.240577;, - 0.815790;-0.255470;-0.518815;, - 0.735435;-0.490249;-0.467727;, - 0.844356;-0.489853;-0.216926;, - 0.844356;-0.489853;-0.216926;, - 0.735435;-0.490249;-0.467727;, - 0.539933;-0.768426;-0.343394;, - 0.619251;-0.768853;-0.159093;, - 0.636036; 0.000000;-0.771630;, - 0.635945;-0.017090;-0.771538;, - 0.843654;-0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654;-0.017121;-0.536546;, - 0.968383;-0.017090;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.843776; 0.000000;-0.536637;, - 0.968383;-0.017090;-0.248787;, - 0.843654;-0.017121;-0.536546;, - 0.815790;-0.255470;-0.518815;, - 0.936369;-0.255470;-0.240577;, - 0.635945;-0.017090;-0.771538;, - 0.614917;-0.255470;-0.746025;, - 0.815790;-0.255470;-0.518815;, - 0.843654;-0.017121;-0.536546;, - 0.539933;-0.768426;-0.343394;, - 0.735435;-0.490249;-0.467727;, - 0.554491;-0.489853;-0.672719;, - 0.406659;-0.768853;-0.493393;, - -0.343394;-0.768456;-0.539933;, - -0.159185;-0.768883;-0.619221;, - -0.217078;-0.489853;-0.844325;, - -0.467727;-0.490249;-0.735405;, - -0.248665;-0.968444;-0.015198;, - 0.035524;-0.999359; 0.002136;, - 0.033937;-0.999359;-0.008698;, - -0.241432;-0.968413; 0.062014;, - -0.248665;-0.968444;-0.015198;, - -0.231635;-0.968444;-0.091739;, - 0.033082;-0.999359; 0.013123;, - 0.035524;-0.999359; 0.002136;, - -0.217811;-0.972076;-0.087069;, - -0.231635;-0.968444;-0.091739;, - -0.248665;-0.968444;-0.015198;, - -0.248665;-0.968444;-0.015198;, - 0.267251;-0.963469; 0.016327;, - 0.638508;-0.768609; 0.039033;, - 0.619251;-0.768853;-0.159093;, - 0.259468;-0.963439;-0.066652;, - 0.267251;-0.963469; 0.016327;, - 0.248939;-0.963469; 0.098575;, - 0.594745;-0.768609; 0.235542;, - 0.638508;-0.768609; 0.039033;, - 0.248939;-0.963469; 0.098575;, - 0.267251;-0.963469; 0.016327;, - 0.035524;-0.999359; 0.002136;, - 0.033082;-0.999359; 0.013123;, - 0.035524;-0.999359; 0.002136;, - 0.267251;-0.963469; 0.016327;, - 0.259468;-0.963439;-0.066652;, - 0.033937;-0.999359;-0.008698;, - -0.231635;-0.968444;-0.091739;, - -0.192328;-0.968413;-0.158574;, - 0.027039;-0.999359; 0.022248;, - 0.033082;-0.999359; 0.013123;, - 0.027039;-0.999359; 0.022248;, - -0.192328;-0.968413;-0.158574;, - -0.133641;-0.968474;-0.210120;, - 0.019288;-0.999329; 0.030335;, - -0.192328;-0.968413;-0.158574;, - -0.176427;-0.974181;-0.140843;, - -0.133641;-0.968474;-0.210120;, - -0.133641;-0.968474;-0.210120;, - 0.248939;-0.963469; 0.098575;, - 0.206671;-0.963439; 0.170415;, - 0.493301;-0.768883; 0.406720;, - 0.594745;-0.768609; 0.235542;, - 0.493301;-0.768883; 0.406720;, - 0.206671;-0.963439; 0.170415;, - 0.143620;-0.963500; 0.225806;, - 0.343394;-0.768456; 0.539933;, - 0.206671;-0.963439; 0.170415;, - 0.027039;-0.999359; 0.022248;, - 0.019288;-0.999329; 0.030335;, - 0.143620;-0.963500; 0.225806;, - 0.206671;-0.963439; 0.170415;, - 0.248939;-0.963469; 0.098575;, - 0.033082;-0.999359; 0.013123;, - 0.027039;-0.999359; 0.022248;, - -0.192328;-0.968413;-0.158574;, - -0.231635;-0.968444;-0.091739;, - -0.217811;-0.972076;-0.087069;, - -0.176427;-0.974181;-0.140843;, - 0.870022;-0.490066; 0.053194;, - 0.964995;-0.255470; 0.059023;, - 0.936369;-0.255470;-0.240577;, - 0.844356;-0.489853;-0.216926;, - 0.898892;-0.255470; 0.355968;, - 0.964995;-0.255470; 0.059023;, - 0.870022;-0.490066; 0.053194;, - 0.810419;-0.490066; 0.320963;, - 0.810419;-0.490066; 0.320963;, - 0.870022;-0.490066; 0.053194;, - 0.638508;-0.768609; 0.039033;, - 0.594745;-0.768609; 0.235542;, - 0.968535; 0.000000;-0.248848;, - 0.968383;-0.017090;-0.248787;, - 0.997986;-0.017090; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.997986;-0.017090; 0.061037;, - 0.929594;-0.017090; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.929594;-0.017090; 0.368145;, - 0.997986;-0.017090; 0.061037;, - 0.964995;-0.255470; 0.059023;, - 0.898892;-0.255470; 0.355968;, - 0.968383;-0.017090;-0.248787;, - 0.936369;-0.255470;-0.240577;, - 0.964995;-0.255470; 0.059023;, - 0.997986;-0.017090; 0.061037;, - 0.810419;-0.490066; 0.320963;, - 0.672597;-0.489853; 0.554613;, - 0.745903;-0.255501; 0.615070;, - 0.898892;-0.255470; 0.355968;, - 0.745903;-0.255501; 0.615070;, - 0.672597;-0.489853; 0.554613;, - 0.467727;-0.490249; 0.735405;, - 0.518815;-0.255501; 0.815790;, - 0.672597;-0.489853; 0.554613;, - 0.493301;-0.768883; 0.406720;, - 0.343394;-0.768456; 0.539933;, - 0.467727;-0.490249; 0.735405;, - 0.929594;-0.017090; 0.368145;, - 0.771416;-0.017090; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.929716; 0.000000; 0.368206;, - 0.771508; 0.000000; 0.636158;, - 0.771416;-0.017090; 0.636067;, - 0.536546;-0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.771416;-0.017090; 0.636067;, - 0.745903;-0.255501; 0.615070;, - 0.518815;-0.255501; 0.815790;, - 0.536546;-0.017121; 0.843654;, - 0.771416;-0.017090; 0.636067;, - 0.929594;-0.017090; 0.368145;, - 0.898892;-0.255470; 0.355968;, - 0.745903;-0.255501; 0.615070;, - 0.672597;-0.489853; 0.554613;, - 0.810419;-0.490066; 0.320963;, - 0.594745;-0.768609; 0.235542;, - 0.493301;-0.768883; 0.406720;, - 0.638508;-0.768609; 0.039033;, - 0.870022;-0.490066; 0.053194;, - 0.844356;-0.489853;-0.216926;, - 0.619251;-0.768853;-0.159093;, - -0.248665;-0.968444;-0.015198;, - -0.248665;-0.968444;-0.015198;, - -0.241432;-0.968413; 0.062014;, - -0.241432;-0.968413; 0.062014;, - 0.133641;-0.968474; 0.210120;, - 0.055971;-0.972503; 0.225990;, - 0.062044;-0.968413; 0.241432;, - 0.133641;-0.968474; 0.210120;, - 0.013489;-0.972076;-0.234169;, - 0.005341;-0.973449;-0.228797;, - 0.091647;-0.968444;-0.231635;, - 0.091647;-0.968444;-0.231666;, - 0.091647;-0.968444;-0.231635;, - 0.158544;-0.968413;-0.192358;, - 0.158544;-0.968413;-0.192358;, - 0.091647;-0.968444;-0.231666;, - 0.158544;-0.968413;-0.192358;, - 0.091647;-0.968444;-0.231635;, - 0.185400;-0.872494;-0.452010;, - 0.301523;-0.880612;-0.365459;, - 0.005341;-0.973449;-0.228797;, - -0.008362;-0.853572;-0.520890;, - 0.185400;-0.872494;-0.452010;, - 0.091647;-0.968444;-0.231635;, - 0.158544;-0.968413;-0.192358;, - 0.158544;-0.968413;-0.192358;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - 0.241432;-0.968413;-0.062014;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - 0.210120;-0.968474;-0.133641;, - 0.408032;-0.873104;-0.266732;, - 0.491195;-0.863826;-0.111759;, - 0.158544;-0.968413;-0.192358;, - 0.301523;-0.880612;-0.365459;, - 0.408032;-0.873104;-0.266732;, - 0.210120;-0.968474;-0.133641;, - -0.275338;-0.858333;-0.432905;, - 0.005188;-0.865078;-0.501572;, - -0.008362;-0.853572;-0.520890;, - -0.266793;-0.867641;-0.419477;, - 0.248665;-0.968444; 0.015198;, - 0.248665;-0.968444; 0.015198;, - 0.241432;-0.968413;-0.062014;, - 0.241432;-0.968413;-0.062014;, - 0.248665;-0.968444; 0.015198;, - 0.209479;-0.973449; 0.092166;, - 0.217780;-0.972076; 0.087069;, - 0.248665;-0.968444; 0.015198;, - 0.209479;-0.973449; 0.092166;, - 0.248665;-0.968444; 0.015198;, - 0.487991;-0.872494; 0.023713;, - 0.468184;-0.853572; 0.228431;, - 0.487991;-0.872494; 0.023713;, - 0.248665;-0.968444; 0.015198;, - 0.241432;-0.968413;-0.062014;, - 0.491195;-0.863826;-0.111759;, - 0.468184;-0.853572; 0.228431;, - 0.456465;-0.865078; 0.207953;, - 0.275307;-0.858333; 0.432905;, - 0.266945;-0.867458; 0.419782;, - -0.133641;-0.968474;-0.210120;, - -0.062075;-0.968413;-0.241432;, - 0.008698;-0.999359; 0.033937;, - 0.019288;-0.999329; 0.030335;, - 0.015107;-0.968444;-0.248665;, - -0.002106;-0.999359; 0.035524;, - 0.008698;-0.999359; 0.033937;, - -0.062075;-0.968413;-0.241432;, - 0.013489;-0.972076;-0.234169;, - 0.015107;-0.968444;-0.248665;, - -0.062075;-0.968413;-0.241432;, - -0.052736;-0.974181;-0.219489;, - 0.143620;-0.963500; 0.225806;, - 0.066683;-0.963439; 0.259438;, - 0.159185;-0.768883; 0.619221;, - 0.343394;-0.768456; 0.539933;, - 0.159185;-0.768883; 0.619221;, - 0.066683;-0.963439; 0.259438;, - -0.016236;-0.963469; 0.267251;, - -0.038820;-0.768609; 0.638508;, - 0.066683;-0.963439; 0.259438;, - 0.008698;-0.999359; 0.033937;, - -0.002106;-0.999359; 0.035524;, - -0.016236;-0.963469; 0.267251;, - 0.019288;-0.999329; 0.030335;, - 0.008698;-0.999359; 0.033937;, - 0.066683;-0.963439; 0.259438;, - 0.143620;-0.963500; 0.225806;, - 0.091647;-0.968444;-0.231666;, - -0.013123;-0.999359; 0.033082;, - -0.002106;-0.999359; 0.035524;, - 0.015107;-0.968444;-0.248665;, - 0.091647;-0.968444;-0.231666;, - 0.158544;-0.968413;-0.192358;, - -0.022279;-0.999359; 0.027039;, - -0.013123;-0.999359; 0.033082;, - 0.158544;-0.968413;-0.192358;, - 0.091647;-0.968444;-0.231666;, - 0.091647;-0.968444;-0.231666;, - 0.158544;-0.968413;-0.192358;, - -0.098514;-0.963469; 0.248970;, - -0.235359;-0.768609; 0.594806;, - -0.038820;-0.768609; 0.638508;, - -0.016236;-0.963469; 0.267251;, - -0.098514;-0.963469; 0.248970;, - -0.170385;-0.963439; 0.206732;, - -0.406659;-0.768853; 0.493393;, - -0.235359;-0.768609; 0.594806;, - -0.170385;-0.963439; 0.206732;, - -0.098514;-0.963469; 0.248970;, - -0.013123;-0.999359; 0.033082;, - -0.022279;-0.999359; 0.027039;, - -0.013123;-0.999359; 0.033082;, - -0.098514;-0.963469; 0.248970;, - -0.016236;-0.963469; 0.267251;, - -0.002106;-0.999359; 0.035524;, - 0.091647;-0.968444;-0.231666;, - 0.015107;-0.968444;-0.248665;, - 0.013489;-0.972076;-0.234169;, - 0.091647;-0.968444;-0.231666;, - 0.210120;-0.968474;-0.133641;, - -0.030335;-0.999329; 0.019288;, - -0.022279;-0.999359; 0.027039;, - 0.158544;-0.968413;-0.192358;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - -0.033937;-0.999359; 0.008698;, - -0.030335;-0.999329; 0.019288;, - 0.241432;-0.968413;-0.062014;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.241432;-0.968413;-0.062014;, - -0.225837;-0.963500; 0.143620;, - -0.539933;-0.768426; 0.343394;, - -0.406659;-0.768853; 0.493393;, - -0.170385;-0.963439; 0.206732;, - -0.225837;-0.963500; 0.143620;, - -0.259468;-0.963439; 0.066652;, - -0.619282;-0.768853; 0.159093;, - -0.539933;-0.768426; 0.343394;, - -0.259468;-0.963439; 0.066652;, - -0.225837;-0.963500; 0.143620;, - -0.030335;-0.999329; 0.019288;, - -0.033937;-0.999359; 0.008698;, - -0.030335;-0.999329; 0.019288;, - -0.225837;-0.963500; 0.143620;, - -0.170385;-0.963439; 0.206732;, - -0.022279;-0.999359; 0.027039;, - 0.210120;-0.968474;-0.133641;, - 0.210120;-0.968474;-0.133641;, - 0.158544;-0.968413;-0.192358;, - 0.158544;-0.968413;-0.192358;, - 0.467727;-0.490249; 0.735405;, - 0.217078;-0.489853; 0.844325;, - 0.240761;-0.255470; 0.936338;, - 0.518815;-0.255501; 0.815790;, - 0.240761;-0.255470; 0.936338;, - 0.217078;-0.489853; 0.844325;, - -0.052919;-0.490066; 0.870052;, - -0.058748;-0.255470; 0.964995;, - 0.217078;-0.489853; 0.844325;, - 0.159185;-0.768883; 0.619221;, - -0.038820;-0.768609; 0.638508;, - -0.052919;-0.490066; 0.870052;, - 0.536546;-0.017121; 0.843654;, - 0.248970;-0.017090; 0.968352;, - 0.249001; 0.000000; 0.968474;, - 0.536637; 0.000000; 0.843776;, - 0.249001; 0.000000; 0.968474;, - 0.248970;-0.017090; 0.968352;, - -0.060732;-0.017090; 0.997986;, - -0.060732; 0.000000; 0.998138;, - 0.248970;-0.017090; 0.968352;, - 0.240761;-0.255470; 0.936338;, - -0.058748;-0.255470; 0.964995;, - -0.060732;-0.017090; 0.997986;, - 0.518815;-0.255501; 0.815790;, - 0.240761;-0.255470; 0.936338;, - 0.248970;-0.017090; 0.968352;, - 0.536546;-0.017121; 0.843654;, - -0.320688;-0.490066; 0.810511;, - -0.355663;-0.255470; 0.898984;, - -0.058748;-0.255470; 0.964995;, - -0.052919;-0.490066; 0.870052;, - -0.614917;-0.255470; 0.746025;, - -0.355663;-0.255470; 0.898984;, - -0.320688;-0.490066; 0.810511;, - -0.554491;-0.489853; 0.672719;, - -0.554491;-0.489853; 0.672719;, - -0.320688;-0.490066; 0.810511;, - -0.235359;-0.768609; 0.594806;, - -0.406659;-0.768853; 0.493393;, - -0.060732;-0.017090; 0.997986;, - -0.367870;-0.017090; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.060732; 0.000000; 0.998138;, - -0.367870;-0.017090; 0.929716;, - -0.635945;-0.017090; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.367901; 0.000000; 0.929838;, - -0.635945;-0.017090; 0.771538;, - -0.367870;-0.017090; 0.929716;, - -0.355663;-0.255470; 0.898984;, - -0.614917;-0.255470; 0.746025;, - -0.060732;-0.017090; 0.997986;, - -0.058748;-0.255470; 0.964995;, - -0.355663;-0.255470; 0.898984;, - -0.367870;-0.017090; 0.929716;, - -0.235359;-0.768609; 0.594806;, - -0.320688;-0.490066; 0.810511;, - -0.052919;-0.490066; 0.870052;, - -0.038820;-0.768609; 0.638508;, - -0.735435;-0.490249; 0.467727;, - -0.815790;-0.255470; 0.518815;, - -0.614917;-0.255470; 0.746025;, - -0.554491;-0.489853; 0.672719;, - -0.936369;-0.255470; 0.240577;, - -0.815790;-0.255470; 0.518815;, - -0.735435;-0.490249; 0.467727;, - -0.844356;-0.489853; 0.216926;, - -0.844356;-0.489853; 0.216926;, - -0.735435;-0.490249; 0.467727;, - -0.539933;-0.768426; 0.343394;, - -0.619282;-0.768853; 0.159093;, - -0.636036; 0.000000; 0.771630;, - -0.635945;-0.017090; 0.771538;, - -0.843654;-0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654;-0.017121; 0.536546;, - -0.968383;-0.017090; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.843776; 0.000000; 0.536637;, - -0.968383;-0.017090; 0.248787;, - -0.843654;-0.017121; 0.536546;, - -0.815790;-0.255470; 0.518815;, - -0.936369;-0.255470; 0.240577;, - -0.635945;-0.017090; 0.771538;, - -0.614917;-0.255470; 0.746025;, - -0.815790;-0.255470; 0.518815;, - -0.843654;-0.017121; 0.536546;, - -0.539933;-0.768426; 0.343394;, - -0.735435;-0.490249; 0.467727;, - -0.554491;-0.489853; 0.672719;, - -0.406659;-0.768853; 0.493393;, - 0.343394;-0.768456; 0.539933;, - 0.159185;-0.768883; 0.619221;, - 0.217078;-0.489853; 0.844325;, - 0.467727;-0.490249; 0.735405;, - 0.248665;-0.968444; 0.015198;, - -0.035524;-0.999359;-0.002136;, - -0.033937;-0.999359; 0.008698;, - 0.241432;-0.968413;-0.062014;, - 0.248665;-0.968444; 0.015198;, - 0.231635;-0.968444; 0.091739;, - -0.033082;-0.999359;-0.013123;, - -0.035524;-0.999359;-0.002136;, - 0.217780;-0.972076; 0.087069;, - 0.231635;-0.968444; 0.091739;, - 0.248665;-0.968444; 0.015198;, - 0.248665;-0.968444; 0.015198;, - -0.267251;-0.963469;-0.016327;, - -0.638508;-0.768609;-0.039033;, - -0.619282;-0.768853; 0.159093;, - -0.259468;-0.963439; 0.066652;, - -0.267251;-0.963469;-0.016327;, - -0.248939;-0.963469;-0.098575;, - -0.594745;-0.768609;-0.235542;, - -0.638508;-0.768609;-0.039033;, - -0.248939;-0.963469;-0.098575;, - -0.267251;-0.963469;-0.016327;, - -0.035524;-0.999359;-0.002136;, - -0.033082;-0.999359;-0.013123;, - -0.035524;-0.999359;-0.002136;, - -0.267251;-0.963469;-0.016327;, - -0.259468;-0.963439; 0.066652;, - -0.033937;-0.999359; 0.008698;, - 0.231635;-0.968444; 0.091739;, - 0.192328;-0.968413; 0.158574;, - -0.027039;-0.999359;-0.022248;, - -0.033082;-0.999359;-0.013123;, - -0.027039;-0.999359;-0.022248;, - 0.192328;-0.968413; 0.158574;, - 0.133641;-0.968474; 0.210120;, - -0.019288;-0.999329;-0.030335;, - 0.192328;-0.968413; 0.158574;, - 0.176427;-0.974181; 0.140843;, - 0.133641;-0.968474; 0.210120;, - 0.133641;-0.968474; 0.210120;, - -0.248939;-0.963469;-0.098575;, - -0.206671;-0.963439;-0.170415;, - -0.493301;-0.768883;-0.406751;, - -0.594745;-0.768609;-0.235542;, - -0.493301;-0.768883;-0.406751;, - -0.206671;-0.963439;-0.170415;, - -0.143620;-0.963500;-0.225806;, - -0.343394;-0.768456;-0.539933;, - -0.206671;-0.963439;-0.170415;, - -0.027039;-0.999359;-0.022248;, - -0.019288;-0.999329;-0.030335;, - -0.143620;-0.963500;-0.225806;, - -0.206671;-0.963439;-0.170415;, - -0.248939;-0.963469;-0.098575;, - -0.033082;-0.999359;-0.013123;, - -0.027039;-0.999359;-0.022248;, - 0.192328;-0.968413; 0.158574;, - 0.231635;-0.968444; 0.091739;, - 0.217780;-0.972076; 0.087069;, - 0.176427;-0.974181; 0.140843;, - -0.870022;-0.490066;-0.053194;, - -0.964995;-0.255470;-0.059023;, - -0.936369;-0.255470; 0.240577;, - -0.844356;-0.489853; 0.216926;, - -0.870022;-0.490066;-0.053194;, - -0.810419;-0.490066;-0.320963;, - -0.898862;-0.255470;-0.355968;, - -0.964995;-0.255470;-0.059023;, - -0.810419;-0.490066;-0.320963;, - -0.870022;-0.490066;-0.053194;, - -0.638508;-0.768609;-0.039033;, - -0.594745;-0.768609;-0.235542;, - -0.997986;-0.017090;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.968535; 0.000000; 0.248848;, - -0.968383;-0.017090; 0.248787;, - -0.997986;-0.017090;-0.061037;, - -0.929594;-0.017090;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.998108; 0.000000;-0.061037;, - -0.929594;-0.017090;-0.368145;, - -0.997986;-0.017090;-0.061037;, - -0.964995;-0.255470;-0.059023;, - -0.898862;-0.255470;-0.355968;, - -0.964995;-0.255470;-0.059023;, - -0.997986;-0.017090;-0.061037;, - -0.968383;-0.017090; 0.248787;, - -0.936369;-0.255470; 0.240577;, - -0.810419;-0.490066;-0.320963;, - -0.672597;-0.489853;-0.554613;, - -0.745903;-0.255501;-0.615070;, - -0.898862;-0.255470;-0.355968;, - -0.745903;-0.255501;-0.615070;, - -0.672597;-0.489853;-0.554613;, - -0.467727;-0.490249;-0.735405;, - -0.518815;-0.255501;-0.815790;, - -0.672597;-0.489853;-0.554613;, - -0.493301;-0.768883;-0.406751;, - -0.343394;-0.768456;-0.539933;, - -0.467727;-0.490249;-0.735405;, - -0.929594;-0.017090;-0.368145;, - -0.771416;-0.017090;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.929716; 0.000000;-0.368206;, - -0.771508; 0.000000;-0.636158;, - -0.771416;-0.017090;-0.636067;, - -0.536546;-0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.771416;-0.017090;-0.636067;, - -0.745903;-0.255501;-0.615070;, - -0.518815;-0.255501;-0.815790;, - -0.536546;-0.017121;-0.843654;, - -0.771416;-0.017090;-0.636067;, - -0.929594;-0.017090;-0.368145;, - -0.898862;-0.255470;-0.355968;, - -0.745903;-0.255501;-0.615070;, - -0.672597;-0.489853;-0.554613;, - -0.810419;-0.490066;-0.320963;, - -0.594745;-0.768609;-0.235542;, - -0.493301;-0.768883;-0.406751;, - -0.638508;-0.768609;-0.039033;, - -0.870022;-0.490066;-0.053194;, - -0.844356;-0.489853; 0.216926;, - -0.619282;-0.768853; 0.159093;, - 0.248665;-0.968444; 0.015198;, - 0.248665;-0.968444; 0.015198;, - 0.241432;-0.968413;-0.062014;, - 0.241432;-0.968413;-0.062014;, - -0.062075;-0.968413;-0.241432;, - -0.133641;-0.968474;-0.210120;, - -0.133641;-0.968474;-0.210120;, - -0.052736;-0.974181;-0.219489;, - -0.014435; 0.999634;-0.022736;, - -0.020783; 0.999634;-0.017151;, - 0.288369; 0.933927; 0.211127;, - 0.187628; 0.936857; 0.295022;, - -0.025056; 0.999634;-0.009919;, - 0.332896; 0.933683; 0.131870;, - 0.288369; 0.933927; 0.211127;, - -0.020783; 0.999634;-0.017151;, - -0.025056; 0.999634;-0.009919;, - -0.020783; 0.999634;-0.017151;, - 0.000000; 1.000000; 0.000000;, - -0.025056; 0.999634;-0.009919;, - -0.026887; 0.999634;-0.001617;, - 0.357433; 0.933683; 0.021821;, - 0.332896; 0.933683; 0.131870;, - -0.026887; 0.999634;-0.001617;, - -0.026093; 0.999634; 0.006684;, - 0.346324; 0.933866;-0.088931;, - 0.357433; 0.933683; 0.021821;, - -0.026093; 0.999634; 0.006684;, - -0.026887; 0.999634;-0.001617;, - 0.000000; 1.000000; 0.000000;, - -0.026887; 0.999634;-0.001617;, - -0.025056; 0.999634;-0.009919;, - 0.000000; 1.000000; 0.000000;, - -0.022736; 0.999634; 0.014435;, - 0.302438; 0.933531;-0.192358;, - 0.346324; 0.933866;-0.088931;, - -0.026093; 0.999634; 0.006684;, - -0.022736; 0.999634; 0.014435;, - -0.017151; 0.999634; 0.020783;, - 0.227393; 0.933866;-0.275918;, - 0.302438; 0.933531;-0.192358;, - -0.017151; 0.999634; 0.020783;, - -0.022736; 0.999634; 0.014435;, - 0.000000; 1.000000; 0.000000;, - -0.022736; 0.999634; 0.014435;, - -0.026093; 0.999634; 0.006684;, - 0.000000; 1.000000; 0.000000;, - 0.014100; 0.999634; 0.022187;, - 0.020295; 0.999634; 0.016724;, - 0.681722; 0.511124; 0.523423;, - 0.408307; 0.583239; 0.702170;, - 0.681722; 0.511124; 0.523423;, - 0.020295; 0.999634; 0.016724;, - 0.024445; 0.999634; 0.009674;, - 0.726005; 0.635731; 0.262062;, - 0.020295; 0.999634; 0.016724;, - 0.231971; 0.947081; 0.221747;, - 0.293405; 0.947264; 0.128697;, - 0.024445; 0.999634; 0.009674;, - 0.026246; 0.999634; 0.001587;, - 0.941923; 0.290384; 0.168493;, - 0.726005; 0.635731; 0.262062;, - 0.024445; 0.999634; 0.009674;, - 0.778252; 0.582507;-0.234413;, - 0.941923; 0.290384; 0.168493;, - 0.026246; 0.999634; 0.001587;, - 0.025483; 0.999634;-0.006531;, - 0.025483; 0.999634;-0.006531;, - 0.026246; 0.999634; 0.001587;, - 0.322703; 0.946257; 0.019745;, - 0.313913; 0.945982;-0.080660;, - 0.322703; 0.946257; 0.019745;, - 0.026246; 0.999634; 0.001587;, - 0.024445; 0.999634; 0.009674;, - 0.293405; 0.947264; 0.128697;, - 0.022187; 0.999634;-0.014100;, - 0.744591; 0.504624;-0.436903;, - 0.778252; 0.582507;-0.234413;, - 0.025483; 0.999634;-0.006531;, - 0.490707; 0.583453;-0.647114;, - 0.744591; 0.504624;-0.436903;, - 0.022187; 0.999634;-0.014100;, - 0.016724; 0.999634;-0.020295;, - 0.016724; 0.999634;-0.020295;, - 0.022187; 0.999634;-0.014100;, - 0.272347; 0.946471;-0.173193;, - 0.206153; 0.945982;-0.250099;, - 0.272347; 0.946471;-0.173193;, - 0.022187; 0.999634;-0.014100;, - 0.025483; 0.999634;-0.006531;, - 0.313913; 0.945982;-0.080660;, - 0.171392; 0.947600; 0.269509;, - 0.231971; 0.947081; 0.221747;, - 0.020295; 0.999634; 0.016724;, - 0.014100; 0.999634; 0.022187;, - -0.009919; 0.999634; 0.025056;, - 0.131779; 0.933683;-0.332957;, - 0.227393; 0.933866;-0.275918;, - -0.017151; 0.999634; 0.020783;, - -0.009919; 0.999634; 0.025056;, - -0.001617; 0.999634; 0.026887;, - 0.021699; 0.933683;-0.357402;, - 0.131779; 0.933683;-0.332957;, - -0.001617; 0.999634; 0.026887;, - -0.009919; 0.999634; 0.025056;, - 0.000000; 1.000000; 0.000000;, - -0.001617; 0.999634; 0.026887;, - 0.006714; 0.999634; 0.026093;, - -0.094485; 0.922422;-0.374432;, - 0.021699; 0.933683;-0.357402;, - 0.014435; 0.999634; 0.022736;, - -0.207404; 0.922269;-0.326121;, - -0.094485; 0.922422;-0.374432;, - 0.006714; 0.999634; 0.026093;, - 0.014435; 0.999634; 0.022736;, - 0.006714; 0.999634; 0.026093;, - 0.000000; 1.000000; 0.000000;, - 0.006714; 0.999634; 0.026093;, - -0.001617; 0.999634; 0.026887;, - 0.000000; 1.000000; 0.000000;, - 0.009674; 0.999634;-0.024445;, - 0.345286; 0.507309;-0.789544;, - 0.490707; 0.583453;-0.647114;, - 0.016724; 0.999634;-0.020295;, - 0.345286; 0.507309;-0.789544;, - 0.009674; 0.999634;-0.024445;, - 0.001587; 0.999634;-0.026246;, - 0.017029; 0.583880;-0.811640;, - 0.001587; 0.999634;-0.026246;, - 0.009674; 0.999634;-0.024445;, - 0.118931; 0.946257;-0.300638;, - 0.003632; 0.949675;-0.313181;, - 0.001587; 0.999634;-0.026246;, - -0.006531; 0.999634;-0.025483;, - -0.185003; 0.511124;-0.839351;, - 0.017029; 0.583880;-0.811640;, - -0.185003; 0.511124;-0.839351;, - -0.006531; 0.999634;-0.025483;, - -0.014100; 0.999634;-0.022187;, - -0.462813; 0.583239;-0.667531;, - -0.006531; 0.999634;-0.025483;, - -0.003571; 0.999878;-0.013977;, - -0.168828; 0.949217;-0.265450;, - -0.014100; 0.999634;-0.022187;, - -0.006531; 0.999634;-0.025483;, - 0.001587; 0.999634;-0.026246;, - 0.003632; 0.949675;-0.313181;, - -0.003571; 0.999878;-0.013977;, - 0.118931; 0.946257;-0.300638;, - 0.009674; 0.999634;-0.024445;, - 0.016724; 0.999634;-0.020295;, - 0.206153; 0.945982;-0.250099;, - -0.009919; 0.999634; 0.025056;, - -0.017151; 0.999634; 0.020783;, - 0.000000; 1.000000; 0.000000;, - -0.066561; 0.992248;-0.104648;, - -0.115452; 0.992248;-0.045442;, - 0.680258; 0.682211; 0.267861;, - 0.392407; 0.682089; 0.617023;, - 0.109836; 0.992584; 0.051546;, - -0.079104; 0.992248; 0.095706;, - 0.465682; 0.682363;-0.563463;, - 0.707755; 0.682363;-0.182806;, - 0.109836; 0.992584; 0.051546;, - 0.935118; 0.332469;-0.122379;, - 0.395093; 0.765740;-0.507462;, - -0.079104; 0.992248; 0.095706;, - 0.510727; 0.306986; 0.803034;, - 0.885556; 0.306833; 0.348674;, - 0.401685; 0.901975; 0.158208;, - 0.231544; 0.902097; 0.364086;, - 0.885556; 0.306833; 0.348674;, - 0.921537; 0.306650;-0.238075;, - 0.418287; 0.901852;-0.108036;, - 0.401685; 0.901975; 0.158208;, - 0.921537; 0.306650;-0.238075;, - 0.885556; 0.306833; 0.348674;, - 0.680258; 0.682211; 0.267861;, - 0.707755; 0.682363;-0.182806;, - 0.418287; 0.901852;-0.108036;, - 0.921537; 0.306650;-0.238075;, - 0.606372; 0.306650;-0.733665;, - 0.275185; 0.901852;-0.333018;, - 0.606372; 0.306650;-0.733665;, - 0.921537; 0.306650;-0.238075;, - 0.707755; 0.682363;-0.182806;, - 0.465682; 0.682363;-0.563463;, - 0.392407; 0.682089; 0.617023;, - 0.680258; 0.682211; 0.267861;, - 0.885556; 0.306833; 0.348674;, - 0.510727; 0.306986; 0.803034;, - 0.045808; 0.682211;-0.729667;, - -0.007782; 0.992248; 0.123844;, - 0.066561; 0.992248; 0.104648;, - -0.392407; 0.682089;-0.617023;, - -0.007782; 0.992248; 0.123844;, - 0.021485; 0.766808;-0.641499;, - -0.358684; 0.767510;-0.531266;, - 0.066561; 0.992248; 0.104648;, - 0.275185; 0.901852;-0.333018;, - 0.606372; 0.306650;-0.733665;, - 0.059694; 0.306833;-0.949858;, - 0.027039; 0.901975;-0.430891;, - 0.027039; 0.901975;-0.430891;, - 0.059694; 0.306833;-0.949858;, - -0.510727; 0.306986;-0.803034;, - -0.231544; 0.902097;-0.364086;, - -0.510727; 0.306986;-0.803034;, - 0.059694; 0.306833;-0.949858;, - 0.045808; 0.682211;-0.729667;, - -0.392407; 0.682089;-0.617023;, - 0.059694; 0.306833;-0.949858;, - 0.606372; 0.306650;-0.733665;, - 0.465682; 0.682363;-0.563463;, - 0.045808; 0.682211;-0.729667;, - 0.329051; 0.767510; 0.550127;, - 0.531846; 0.826594; 0.183935;, - -0.115452; 0.992248;-0.045442;, - -0.066561; 0.992248;-0.104648;, - 0.014435; 0.999634; 0.022736;, - 0.020783; 0.999634; 0.017151;, - -0.299020; 0.922422;-0.244362;, - -0.207404; 0.922269;-0.326121;, - 0.025056; 0.999634; 0.009919;, - -0.332896; 0.933683;-0.131870;, - -0.299020; 0.922422;-0.244362;, - 0.020783; 0.999634; 0.017151;, - 0.025056; 0.999634; 0.009919;, - 0.020783; 0.999634; 0.017151;, - 0.000000; 1.000000; 0.000000;, - 0.026887; 0.999634; 0.001617;, - -0.357402; 0.933683;-0.021821;, - -0.332896; 0.933683;-0.131870;, - 0.025056; 0.999634; 0.009919;, - 0.026887; 0.999634; 0.001617;, - 0.026093; 0.999634;-0.006684;, - -0.346324; 0.933866; 0.088931;, - -0.357402; 0.933683;-0.021821;, - 0.026093; 0.999634;-0.006684;, - 0.026887; 0.999634; 0.001617;, - 0.000000; 1.000000; 0.000000;, - 0.026887; 0.999634; 0.001617;, - 0.025056; 0.999634; 0.009919;, - 0.000000; 1.000000; 0.000000;, - 0.022736; 0.999634;-0.014435;, - -0.302438; 0.933531; 0.192358;, - -0.346324; 0.933866; 0.088931;, - 0.026093; 0.999634;-0.006684;, - 0.022736; 0.999634;-0.014435;, - 0.017151; 0.999634;-0.020783;, - -0.227393; 0.933866; 0.275918;, - -0.302438; 0.933531; 0.192358;, - 0.017151; 0.999634;-0.020783;, - 0.022736; 0.999634;-0.014435;, - 0.000000; 1.000000; 0.000000;, - 0.022736; 0.999634;-0.014435;, - 0.026093; 0.999634;-0.006684;, - 0.000000; 1.000000; 0.000000;, - -0.014100; 0.999634;-0.022187;, - -0.020295; 0.999634;-0.016724;, - -0.643880; 0.511032;-0.569414;, - -0.462813; 0.583239;-0.667531;, - -0.643880; 0.511032;-0.569414;, - -0.020295; 0.999634;-0.016724;, - -0.024445; 0.999634;-0.009674;, - -0.694784; 0.664479;-0.275155;, - -0.020295; 0.999634;-0.016724;, - -0.011139; 0.999878;-0.009186;, - -0.285165; 0.949675;-0.129490;, - -0.024445; 0.999634;-0.009674;, - -0.024445; 0.999634;-0.009674;, - -0.026246; 0.999634;-0.001587;, - -0.861476; 0.507309;-0.022034;, - -0.694784; 0.664479;-0.275155;, - -0.794122; 0.583453; 0.170019;, - -0.861476; 0.507309;-0.022034;, - -0.026246; 0.999634;-0.001587;, - -0.025483; 0.999634; 0.006531;, - -0.025483; 0.999634; 0.006531;, - -0.026246; 0.999634;-0.001587;, - -0.322733; 0.946257;-0.019745;, - -0.313913; 0.945982; 0.080660;, - -0.322733; 0.946257;-0.019745;, - -0.026246; 0.999634;-0.001587;, - -0.024445; 0.999634;-0.009674;, - -0.285165; 0.949675;-0.129490;, - -0.022187; 0.999634; 0.014100;, - -0.711386; 0.504624; 0.489090;, - -0.794122; 0.583453; 0.170019;, - -0.025483; 0.999634; 0.006531;, - -0.542314; 0.582507; 0.605426;, - -0.711386; 0.504624; 0.489090;, - -0.022187; 0.999634; 0.014100;, - -0.016724; 0.999634; 0.020295;, - -0.016724; 0.999634; 0.020295;, - -0.022187; 0.999634; 0.014100;, - -0.272347; 0.946471; 0.173193;, - -0.206153; 0.945982; 0.250099;, - -0.272347; 0.946471; 0.173193;, - -0.022187; 0.999634; 0.014100;, - -0.025483; 0.999634; 0.006531;, - -0.313913; 0.945982; 0.080660;, - -0.168828; 0.949217;-0.265450;, - -0.011139; 0.999878;-0.009186;, - -0.020295; 0.999634;-0.016724;, - -0.014100; 0.999634;-0.022187;, - 0.009919; 0.999634;-0.025056;, - -0.131779; 0.933683; 0.332957;, - -0.227393; 0.933866; 0.275918;, - 0.017151; 0.999634;-0.020783;, - 0.001617; 0.999634;-0.026887;, - -0.021699; 0.933683; 0.357402;, - -0.131779; 0.933683; 0.332957;, - 0.009919; 0.999634;-0.025056;, - 0.001617; 0.999634;-0.026887;, - 0.009919; 0.999634;-0.025056;, - 0.000000; 1.000000; 0.000000;, - 0.001617; 0.999634;-0.026887;, - -0.006714; 0.999634;-0.026093;, - 0.068941; 0.933927; 0.350688;, - -0.021699; 0.933683; 0.357402;, - 0.068941; 0.933927; 0.350688;, - -0.006714; 0.999634;-0.026093;, - -0.014435; 0.999634;-0.022736;, - 0.187628; 0.936857; 0.295022;, - -0.006714; 0.999634;-0.026093;, - 0.000000; 1.000000; 0.000000;, - -0.014435; 0.999634;-0.022736;, - -0.006714; 0.999634;-0.026093;, - 0.001617; 0.999634;-0.026887;, - 0.000000; 1.000000; 0.000000;, - -0.009674; 0.999634; 0.024445;, - -0.288675; 0.507157; 0.812037;, - -0.542314; 0.582507; 0.605426;, - -0.016724; 0.999634; 0.020295;, - -0.009674; 0.999634; 0.024445;, - -0.001587; 0.999634; 0.026246;, - -0.082217; 0.582476; 0.808649;, - -0.288675; 0.507157; 0.812037;, - -0.001587; 0.999634; 0.026246;, - -0.009674; 0.999634; 0.024445;, - -0.118931; 0.946257; 0.300638;, - -0.007813; 0.947264; 0.320292;, - -0.001587; 0.999634; 0.026246;, - 0.006531; 0.999634; 0.025483;, - 0.242683; 0.511032; 0.824580;, - -0.082217; 0.582476; 0.808649;, - 0.242683; 0.511032; 0.824580;, - 0.006531; 0.999634; 0.025483;, - 0.014100; 0.999634; 0.022187;, - 0.408307; 0.583239; 0.702170;, - 0.006531; 0.999634; 0.025483;, - 0.102451; 0.947081; 0.304117;, - 0.171392; 0.947600; 0.269509;, - 0.014100; 0.999634; 0.022187;, - 0.006531; 0.999634; 0.025483;, - -0.001587; 0.999634; 0.026246;, - -0.007813; 0.947264; 0.320292;, - 0.102451; 0.947081; 0.304117;, - -0.118931; 0.946257; 0.300638;, - -0.009674; 0.999634; 0.024445;, - -0.016724; 0.999634; 0.020295;, - -0.206153; 0.945982; 0.250099;, - 0.009919; 0.999634;-0.025056;, - 0.017151; 0.999634;-0.020783;, - 0.000000; 1.000000; 0.000000;, - 0.066561; 0.992248; 0.104648;, - 0.115452; 0.992248; 0.045442;, - -0.680258; 0.682211;-0.267861;, - -0.392407; 0.682089;-0.617023;, - 0.115452; 0.992248; 0.045442;, - 0.120212; 0.992248;-0.031037;, - -0.707755; 0.682363; 0.182806;, - -0.680258; 0.682211;-0.267861;, - 0.120212; 0.992248;-0.031037;, - 0.115452; 0.992248; 0.045442;, - -0.561724; 0.796869;-0.222327;, - -0.627155; 0.765679; 0.142674;, - 0.079104; 0.992248;-0.095706;, - -0.465682; 0.682363; 0.563463;, - -0.707755; 0.682363; 0.182806;, - 0.120212; 0.992248;-0.031037;, - 0.079104; 0.992248;-0.095706;, - 0.120212; 0.992248;-0.031037;, - -0.627155; 0.765679; 0.142674;, - -0.423017; 0.765618; 0.484603;, - -0.510727; 0.306986;-0.803034;, - -0.885556; 0.306833;-0.348674;, - -0.401715; 0.901975;-0.158208;, - -0.231544; 0.902097;-0.364086;, - -0.885556; 0.306833;-0.348674;, - -0.921537; 0.306650; 0.238075;, - -0.418287; 0.901852; 0.108036;, - -0.401715; 0.901975;-0.158208;, - -0.921537; 0.306650; 0.238075;, - -0.885556; 0.306833;-0.348674;, - -0.680258; 0.682211;-0.267861;, - -0.707755; 0.682363; 0.182806;, - -0.921537; 0.306650; 0.238075;, - -0.606342; 0.306650; 0.733665;, - -0.275185; 0.901852; 0.333018;, - -0.418287; 0.901852; 0.108036;, - -0.606342; 0.306650; 0.733665;, - -0.921537; 0.306650; 0.238075;, - -0.707755; 0.682363; 0.182806;, - -0.465682; 0.682363; 0.563463;, - -0.392407; 0.682089;-0.617023;, - -0.680258; 0.682211;-0.267861;, - -0.885556; 0.306833;-0.348674;, - -0.510727; 0.306986;-0.803034;, - 0.007782; 0.992248;-0.123844;, - -0.045808; 0.682211; 0.729667;, - -0.465682; 0.682363; 0.563463;, - 0.079104; 0.992248;-0.095706;, - -0.045808; 0.682211; 0.729667;, - 0.007782; 0.992248;-0.123844;, - -0.066561; 0.992248;-0.104648;, - 0.392407; 0.682089; 0.617023;, - 0.007782; 0.992248;-0.123844;, - -0.056917; 0.766686; 0.639454;, - 0.329051; 0.767510; 0.550127;, - -0.066561; 0.992248;-0.104648;, - -0.059694; 0.306833; 0.949858;, - -0.027009; 0.901975; 0.430891;, - -0.275185; 0.901852; 0.333018;, - -0.606342; 0.306650; 0.733665;, - -0.027009; 0.901975; 0.430891;, - -0.059694; 0.306833; 0.949858;, - 0.510727; 0.306986; 0.803034;, - 0.231544; 0.902097; 0.364086;, - 0.510727; 0.306986; 0.803034;, - -0.059694; 0.306833; 0.949858;, - -0.045808; 0.682211; 0.729667;, - 0.392407; 0.682089; 0.617023;, - -0.045808; 0.682211; 0.729667;, - -0.059694; 0.306833; 0.949858;, - -0.606342; 0.306650; 0.733665;, - -0.465682; 0.682363; 0.563463;, - -0.056917; 0.766686; 0.639454;, - 0.007782; 0.992248;-0.123844;, - 0.079104; 0.992248;-0.095706;, - -0.423017; 0.765618; 0.484603;, - 0.115452; 0.992248; 0.045442;, - 0.066561; 0.992248; 0.104648;, - -0.358684; 0.767510;-0.531266;, - -0.561724; 0.796869;-0.222327;, - 0.020783; 0.999634; 0.017151;, - 0.014435; 0.999634; 0.022736;, - 0.000000; 1.000000; 0.000000;, - -0.369854; 0.724540;-0.581530;, - -0.641163; 0.724662;-0.252449;, - -0.077883; 0.996582; 0.027131;, - -0.028352; 0.998596;-0.044588;, - -0.641163; 0.724662;-0.252449;, - -0.667104; 0.724723; 0.172338;, - -0.103671; 0.993988; 0.034547;, - -0.077883; 0.996582; 0.027131;, - -0.667104; 0.724723; 0.172338;, - -0.641163; 0.724662;-0.252449;, - 0.401685; 0.901975; 0.158208;, - 0.418287; 0.901852;-0.108036;, - -0.667104; 0.724723; 0.172338;, - -0.438948; 0.724723; 0.531083;, - -0.091800; 0.989624; 0.110233;, - -0.103671; 0.993988; 0.034547;, - -0.438948; 0.724723; 0.531083;, - -0.667104; 0.724723; 0.172338;, - 0.418287; 0.901852;-0.108036;, - 0.275185; 0.901852;-0.333018;, - -0.030030; 0.781243; 0.623463;, - 0.248665; 0.968444; 0.015198;, - 0.248665; 0.968444; 0.015198;, - 0.220405; 0.971191; 0.090426;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.248665; 0.968444; 0.015198;, - 0.487991; 0.872494; 0.023713;, - 0.491195; 0.863826;-0.111759;, - -0.030030; 0.781243; 0.623463;, - 0.459517; 0.861476; 0.215918;, - 0.487991; 0.872494; 0.023713;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - 0.210120; 0.968474;-0.133641;, - 0.408032; 0.873104;-0.266732;, - 0.301523; 0.880612;-0.365459;, - 0.241432; 0.968413;-0.062014;, - 0.491195; 0.863826;-0.111759;, - 0.408032; 0.873104;-0.266732;, - 0.210120; 0.968474;-0.133641;, - -0.028352; 0.998596;-0.044588;, - -0.077883; 0.996582; 0.027131;, - 0.459517; 0.861476; 0.215918;, - 0.267159; 0.867244; 0.420057;, - -0.043184; 0.724662; 0.687735;, - -0.057588; 0.996582; 0.059023;, - -0.091800; 0.989624; 0.110233;, - -0.438948; 0.724723; 0.531083;, - 0.369854; 0.724540; 0.581530;, - 0.028321; 0.998596; 0.044557;, - -0.057588; 0.996582; 0.059023;, - -0.043184; 0.724662; 0.687735;, - -0.231544; 0.902097;-0.364086;, - 0.369854; 0.724540; 0.581530;, - -0.043184; 0.724662; 0.687735;, - 0.027039; 0.901975;-0.430891;, - 0.091647; 0.968444;-0.231635;, - 0.091647; 0.968444;-0.231666;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.091647; 0.968444;-0.231666;, - 0.091647; 0.968444;-0.231635;, - 0.005341; 0.973449;-0.228797;, - 0.013489; 0.972076;-0.234169;, - 0.005341; 0.973449;-0.228797;, - 0.091647; 0.968444;-0.231635;, - 0.185400; 0.872494;-0.452010;, - -0.008362; 0.853572;-0.520859;, - 0.185400; 0.872494;-0.452010;, - 0.091647; 0.968444;-0.231635;, - 0.158544; 0.968413;-0.192358;, - 0.301523; 0.880612;-0.365459;, - -0.008362; 0.853572;-0.520859;, - -0.057588; 0.996582; 0.059023;, - 0.028321; 0.998596; 0.044557;, - -0.266793; 0.867641;-0.419477;, - 0.027039; 0.901975;-0.430891;, - -0.043184; 0.724662; 0.687735;, - -0.438948; 0.724723; 0.531083;, - 0.275185; 0.901852;-0.333018;, - 0.133641; 0.968474; 0.210120;, - 0.192328; 0.968413; 0.158574;, - -0.027039; 0.999359;-0.022248;, - -0.019288; 0.999329;-0.030335;, - -0.027039; 0.999359;-0.022248;, - 0.192328; 0.968413; 0.158574;, - 0.231635; 0.968444; 0.091739;, - -0.033052; 0.999359;-0.013123;, - 0.192328; 0.968413; 0.158574;, - 0.180914; 0.972503; 0.146519;, - 0.220405; 0.971191; 0.090426;, - 0.231635; 0.968444; 0.091739;, - -0.143620; 0.963500;-0.225806;, - -0.206671; 0.963439;-0.170415;, - -0.493301; 0.768883;-0.406720;, - -0.343394; 0.768456;-0.539933;, - -0.493301; 0.768883;-0.406720;, - -0.206671; 0.963439;-0.170415;, - -0.248939; 0.963469;-0.098575;, - -0.594745; 0.768609;-0.235542;, - -0.206671; 0.963439;-0.170415;, - -0.027039; 0.999359;-0.022248;, - -0.033052; 0.999359;-0.013123;, - -0.248939; 0.963469;-0.098575;, - -0.019288; 0.999329;-0.030335;, - -0.027039; 0.999359;-0.022248;, - -0.206671; 0.963439;-0.170415;, - -0.143620; 0.963500;-0.225806;, - 0.248665; 0.968444; 0.015198;, - -0.035524; 0.999359;-0.002136;, - -0.033052; 0.999359;-0.013123;, - 0.231635; 0.968444; 0.091739;, - -0.033937; 0.999359; 0.008698;, - -0.035524; 0.999359;-0.002136;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - 0.248665; 0.968444; 0.015198;, - 0.248665; 0.968444; 0.015198;, - 0.241432; 0.968413;-0.062014;, - -0.594745; 0.768609;-0.235542;, - -0.248939; 0.963469;-0.098575;, - -0.267251; 0.963469;-0.016327;, - -0.638508; 0.768609;-0.039033;, - -0.267251; 0.963469;-0.016327;, - -0.259468; 0.963439; 0.066652;, - -0.619251; 0.768883; 0.159093;, - -0.638508; 0.768609;-0.039033;, - -0.259468; 0.963439; 0.066652;, - -0.267251; 0.963469;-0.016327;, - -0.035524; 0.999359;-0.002136;, - -0.033937; 0.999359; 0.008698;, - -0.267251; 0.963469;-0.016327;, - -0.248939; 0.963469;-0.098575;, - -0.033052; 0.999359;-0.013123;, - -0.035524; 0.999359;-0.002136;, - 0.248665; 0.968444; 0.015198;, - 0.248665; 0.968444; 0.015198;, - 0.231635; 0.968444; 0.091739;, - 0.220405; 0.971191; 0.090426;, - 0.210120; 0.968474;-0.133641;, - -0.030335; 0.999329; 0.019288;, - -0.033937; 0.999359; 0.008698;, - 0.241432; 0.968413;-0.062014;, - -0.022248; 0.999359; 0.027039;, - -0.030335; 0.999329; 0.019288;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.158544; 0.968413;-0.192358;, - -0.619251; 0.768883; 0.159093;, - -0.259468; 0.963439; 0.066652;, - -0.225837; 0.963500; 0.143620;, - -0.539933; 0.768426; 0.343394;, - -0.225837; 0.963500; 0.143620;, - -0.170385; 0.963439; 0.206732;, - -0.406659; 0.768883; 0.493393;, - -0.539933; 0.768426; 0.343394;, - -0.170385; 0.963439; 0.206732;, - -0.225837; 0.963500; 0.143620;, - -0.030335; 0.999329; 0.019288;, - -0.022248; 0.999359; 0.027039;, - -0.259468; 0.963439; 0.066652;, - -0.033937; 0.999359; 0.008698;, - -0.030335; 0.999329; 0.019288;, - -0.225837; 0.963500; 0.143620;, - 0.210120; 0.968474;-0.133641;, - 0.210120; 0.968474;-0.133641;, - 0.241432; 0.968413;-0.062014;, - 0.241432; 0.968413;-0.062014;, - -0.467727; 0.490249;-0.735435;, - -0.672597; 0.489853;-0.554613;, - -0.745903; 0.255501;-0.615070;, - -0.518815; 0.255501;-0.815790;, - -0.745903; 0.255501;-0.615070;, - -0.672597; 0.489853;-0.554613;, - -0.810419; 0.490066;-0.320963;, - -0.898862; 0.255470;-0.355968;, - -0.672597; 0.489853;-0.554613;, - -0.493301; 0.768883;-0.406720;, - -0.594745; 0.768609;-0.235542;, - -0.810419; 0.490066;-0.320963;, - -0.536546; 0.017121;-0.843654;, - -0.771416; 0.017090;-0.636067;, - -0.771508; 0.000000;-0.636158;, - -0.536637; 0.000000;-0.843776;, - -0.771508; 0.000000;-0.636158;, - -0.771416; 0.017090;-0.636067;, - -0.929594; 0.017090;-0.368145;, - -0.929716; 0.000000;-0.368206;, - -0.771416; 0.017090;-0.636067;, - -0.745903; 0.255501;-0.615070;, - -0.898862; 0.255470;-0.355968;, - -0.929594; 0.017090;-0.368145;, - -0.518815; 0.255501;-0.815790;, - -0.745903; 0.255501;-0.615070;, - -0.771416; 0.017090;-0.636067;, - -0.536546; 0.017121;-0.843654;, - -0.870022; 0.490066;-0.053194;, - -0.964995; 0.255470;-0.059023;, - -0.898862; 0.255470;-0.355968;, - -0.810419; 0.490066;-0.320963;, - -0.936369; 0.255470; 0.240577;, - -0.964995; 0.255470;-0.059023;, - -0.870022; 0.490066;-0.053194;, - -0.844356; 0.489853; 0.216926;, - -0.844356; 0.489853; 0.216926;, - -0.870022; 0.490066;-0.053194;, - -0.638508; 0.768609;-0.039033;, - -0.619251; 0.768883; 0.159093;, - -0.929716; 0.000000;-0.368206;, - -0.929594; 0.017090;-0.368145;, - -0.997986; 0.017090;-0.061037;, - -0.998108; 0.000000;-0.061037;, - -0.997986; 0.017090;-0.061037;, - -0.968383; 0.017090; 0.248787;, - -0.968535; 0.000000; 0.248848;, - -0.998108; 0.000000;-0.061037;, - -0.968383; 0.017090; 0.248787;, - -0.997986; 0.017090;-0.061037;, - -0.964995; 0.255470;-0.059023;, - -0.936369; 0.255470; 0.240577;, - -0.929594; 0.017090;-0.368145;, - -0.898862; 0.255470;-0.355968;, - -0.964995; 0.255470;-0.059023;, - -0.997986; 0.017090;-0.061037;, - -0.638508; 0.768609;-0.039033;, - -0.870022; 0.490066;-0.053194;, - -0.810419; 0.490066;-0.320963;, - -0.594745; 0.768609;-0.235542;, - -0.735435; 0.490249; 0.467727;, - -0.815790; 0.255470; 0.518815;, - -0.936369; 0.255470; 0.240577;, - -0.844356; 0.489853; 0.216926;, - -0.614917; 0.255470; 0.746025;, - -0.815790; 0.255470; 0.518815;, - -0.735435; 0.490249; 0.467727;, - -0.554491; 0.489853; 0.672719;, - -0.554491; 0.489853; 0.672719;, - -0.735435; 0.490249; 0.467727;, - -0.539933; 0.768426; 0.343394;, - -0.406659; 0.768883; 0.493393;, - -0.968535; 0.000000; 0.248848;, - -0.968383; 0.017090; 0.248787;, - -0.843654; 0.017121; 0.536546;, - -0.843776; 0.000000; 0.536637;, - -0.843654; 0.017121; 0.536546;, - -0.635945; 0.017090; 0.771538;, - -0.636036; 0.000000; 0.771630;, - -0.843776; 0.000000; 0.536637;, - -0.635945; 0.017090; 0.771538;, - -0.843654; 0.017121; 0.536546;, - -0.815790; 0.255470; 0.518815;, - -0.614917; 0.255470; 0.746025;, - -0.968383; 0.017090; 0.248787;, - -0.936369; 0.255470; 0.240577;, - -0.815790; 0.255470; 0.518815;, - -0.843654; 0.017121; 0.536546;, - -0.539933; 0.768426; 0.343394;, - -0.735435; 0.490249; 0.467727;, - -0.844356; 0.489853; 0.216926;, - -0.619251; 0.768883; 0.159093;, - -0.343394; 0.768456;-0.539933;, - -0.493301; 0.768883;-0.406720;, - -0.672597; 0.489853;-0.554613;, - -0.467727; 0.490249;-0.735435;, - 0.091647; 0.968444;-0.231666;, - -0.013123; 0.999359; 0.033082;, - -0.022248; 0.999359; 0.027039;, - 0.158544; 0.968413;-0.192358;, - 0.091647; 0.968444;-0.231666;, - 0.015107; 0.968444;-0.248665;, - -0.002106; 0.999359; 0.035524;, - -0.013123; 0.999359; 0.033082;, - 0.015107; 0.968444;-0.248665;, - 0.091647; 0.968444;-0.231666;, - 0.091647; 0.968444;-0.231666;, - 0.013489; 0.972076;-0.234169;, - -0.098514; 0.963469; 0.248970;, - -0.235359; 0.768609; 0.594806;, - -0.406659; 0.768883; 0.493393;, - -0.170385; 0.963439; 0.206732;, - -0.098514; 0.963469; 0.248970;, - -0.016236; 0.963469; 0.267251;, - -0.038820; 0.768609; 0.638508;, - -0.235359; 0.768609; 0.594806;, - -0.016236; 0.963469; 0.267251;, - -0.098514; 0.963469; 0.248970;, - -0.013123; 0.999359; 0.033082;, - -0.002106; 0.999359; 0.035524;, - -0.013123; 0.999359; 0.033082;, - -0.098514; 0.963469; 0.248970;, - -0.170385; 0.963439; 0.206732;, - -0.022248; 0.999359; 0.027039;, - 0.015107; 0.968444;-0.248665;, - -0.062044; 0.968413;-0.241432;, - 0.008698; 0.999359; 0.033937;, - -0.002106; 0.999359; 0.035524;, - 0.008698; 0.999359; 0.033937;, - -0.062044; 0.968413;-0.241432;, - -0.133641; 0.968474;-0.210120;, - 0.019288; 0.999329; 0.030335;, - -0.062044; 0.968413;-0.241432;, - -0.052736; 0.974181;-0.219489;, - -0.133641; 0.968474;-0.210120;, - -0.133641; 0.968474;-0.210120;, - -0.016236; 0.963469; 0.267251;, - 0.066683; 0.963439; 0.259438;, - 0.159185; 0.768883; 0.619221;, - -0.038820; 0.768609; 0.638508;, - 0.159185; 0.768883; 0.619221;, - 0.066683; 0.963439; 0.259438;, - 0.143620; 0.963500; 0.225806;, - 0.343394; 0.768456; 0.539933;, - 0.066683; 0.963439; 0.259438;, - 0.008698; 0.999359; 0.033937;, - 0.019288; 0.999329; 0.030335;, - 0.143620; 0.963500; 0.225806;, - 0.066683; 0.963439; 0.259438;, - -0.016236; 0.963469; 0.267251;, - -0.002106; 0.999359; 0.035524;, - 0.008698; 0.999359; 0.033937;, - -0.062044; 0.968413;-0.241432;, - 0.015107; 0.968444;-0.248665;, - 0.013489; 0.972076;-0.234169;, - -0.052736; 0.974181;-0.219489;, - -0.320688; 0.490066; 0.810511;, - -0.355663; 0.255470; 0.898984;, - -0.614917; 0.255470; 0.746025;, - -0.554491; 0.489853; 0.672719;, - -0.058748; 0.255470; 0.964995;, - -0.355663; 0.255470; 0.898984;, - -0.320688; 0.490066; 0.810511;, - -0.052919; 0.490066; 0.870052;, - -0.052919; 0.490066; 0.870052;, - -0.320688; 0.490066; 0.810511;, - -0.235359; 0.768609; 0.594806;, - -0.038820; 0.768609; 0.638508;, - -0.636036; 0.000000; 0.771630;, - -0.635945; 0.017090; 0.771538;, - -0.367870; 0.017090; 0.929716;, - -0.367901; 0.000000; 0.929838;, - -0.367901; 0.000000; 0.929838;, - -0.367870; 0.017090; 0.929716;, - -0.060732; 0.017090; 0.997986;, - -0.060732; 0.000000; 0.998138;, - -0.060732; 0.017090; 0.997986;, - -0.367870; 0.017090; 0.929716;, - -0.355663; 0.255470; 0.898984;, - -0.058748; 0.255470; 0.964995;, - -0.635945; 0.017090; 0.771538;, - -0.614917; 0.255470; 0.746025;, - -0.355663; 0.255470; 0.898984;, - -0.367870; 0.017090; 0.929716;, - -0.052919; 0.490066; 0.870052;, - 0.217078; 0.489853; 0.844325;, - 0.240761; 0.255501; 0.936338;, - -0.058748; 0.255470; 0.964995;, - 0.240761; 0.255501; 0.936338;, - 0.217078; 0.489853; 0.844325;, - 0.467727; 0.490249; 0.735405;, - 0.518815; 0.255501; 0.815790;, - 0.217078; 0.489853; 0.844325;, - 0.159185; 0.768883; 0.619221;, - 0.343394; 0.768456; 0.539933;, - 0.467727; 0.490249; 0.735405;, - -0.060732; 0.017090; 0.997986;, - 0.248970; 0.017090; 0.968352;, - 0.249001; 0.000000; 0.968474;, - -0.060732; 0.000000; 0.998138;, - 0.249001; 0.000000; 0.968474;, - 0.248970; 0.017090; 0.968352;, - 0.536546; 0.017121; 0.843654;, - 0.536637; 0.000000; 0.843776;, - 0.248970; 0.017090; 0.968352;, - 0.240761; 0.255501; 0.936338;, - 0.518815; 0.255501; 0.815790;, - 0.536546; 0.017121; 0.843654;, - 0.248970; 0.017090; 0.968352;, - -0.060732; 0.017090; 0.997986;, - -0.058748; 0.255470; 0.964995;, - 0.240761; 0.255501; 0.936338;, - 0.217078; 0.489853; 0.844325;, - -0.052919; 0.490066; 0.870052;, - -0.038820; 0.768609; 0.638508;, - 0.159185; 0.768883; 0.619221;, - -0.235359; 0.768609; 0.594806;, - -0.320688; 0.490066; 0.810511;, - -0.554491; 0.489853; 0.672719;, - -0.406659; 0.768883; 0.493393;, - 0.091647; 0.968444;-0.231666;, - 0.091647; 0.968444;-0.231666;, - 0.158544; 0.968413;-0.192358;, - 0.158544; 0.968413;-0.192358;, - 0.133641; 0.968474; 0.210120;, - 0.180914; 0.972503; 0.146519;, - 0.192328; 0.968413; 0.158574;, - 0.133641; 0.968474; 0.210120;, - 0.369854; 0.724540; 0.581530;, - 0.641163; 0.724662; 0.252449;, - 0.077883; 0.996582;-0.027131;, - 0.028321; 0.998596; 0.044557;, - 0.641163; 0.724662; 0.252449;, - 0.667104; 0.724723;-0.172338;, - 0.138768; 0.989654;-0.036378;, - 0.077883; 0.996582;-0.027131;, - 0.667104; 0.724723;-0.172338;, - 0.641163; 0.724662; 0.252449;, - -0.401715; 0.901975;-0.158208;, - -0.418287; 0.901852; 0.108036;, - 0.667104; 0.724723;-0.172338;, - 0.438917; 0.724723;-0.531083;, - 0.075228; 0.993988;-0.079226;, - 0.138768; 0.989654;-0.036378;, - -0.275185; 0.901852; 0.333018;, - 0.438917; 0.724723;-0.531083;, - 0.667104; 0.724723;-0.172338;, - -0.418287; 0.901852; 0.108036;, - -0.217780; 0.972076;-0.087069;, - -0.209479; 0.973449;-0.092166;, - -0.248665; 0.968444;-0.015198;, - -0.248665; 0.968444;-0.015198;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - -0.241432; 0.968413; 0.062014;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - -0.248665; 0.968444;-0.015198;, - -0.487991; 0.872494;-0.023713;, - -0.458815; 0.880612; 0.118107;, - -0.209479; 0.973449;-0.092166;, - -0.468184; 0.853572;-0.228431;, - -0.487991; 0.872494;-0.023713;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - -0.241432; 0.968413; 0.062014;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - -0.158544; 0.968413; 0.192358;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - -0.210120; 0.968474; 0.133641;, - -0.414563; 0.873104; 0.256447;, - -0.309488; 0.863826; 0.397443;, - -0.241432; 0.968413; 0.062014;, - -0.458815; 0.880612; 0.118107;, - -0.414563; 0.873104; 0.256447;, - -0.210120; 0.968474; 0.133641;, - 0.028321; 0.998596; 0.044557;, - 0.077883; 0.996582;-0.027131;, - -0.468184; 0.853572;-0.228431;, - -0.266793; 0.867641;-0.419477;, - 0.043184; 0.724662;-0.687735;, - 0.057588; 0.996582;-0.059023;, - 0.075228; 0.993988;-0.079226;, - 0.438917; 0.724723;-0.531083;, - 0.057588; 0.996582;-0.059023;, - 0.043184; 0.724662;-0.687735;, - -0.369854; 0.724540;-0.581530;, - -0.028352; 0.998596;-0.044588;, - 0.043184; 0.724662;-0.687735;, - -0.027009; 0.901975; 0.430891;, - 0.231544; 0.902097; 0.364086;, - -0.369854; 0.724540;-0.581530;, - -0.091647; 0.968444; 0.231635;, - -0.091647; 0.968444; 0.231666;, - -0.158544; 0.968413; 0.192358;, - -0.158544; 0.968413; 0.192358;, - -0.091647; 0.968444; 0.231635;, - 0.388989; 0.885952; 0.252449;, - -0.011597; 0.971191; 0.237953;, - -0.091647; 0.968444; 0.231666;, - 0.388989; 0.885952; 0.252449;, - -0.091647; 0.968444; 0.231635;, - -0.185400; 0.872494; 0.452010;, - 0.000641; 0.861476; 0.507736;, - -0.185400; 0.872494; 0.452010;, - -0.091647; 0.968444; 0.231635;, - -0.158544; 0.968413; 0.192358;, - -0.309488; 0.863826; 0.397443;, - 0.000641; 0.861476; 0.507736;, - 0.057588; 0.996582;-0.059023;, - -0.028352; 0.998596;-0.044588;, - 0.267159; 0.867244; 0.420057;, - -0.027009; 0.901975; 0.430891;, - 0.043184; 0.724662;-0.687735;, - 0.438917; 0.724723;-0.531083;, - -0.275185; 0.901852; 0.333018;, - -0.133641; 0.968474;-0.210120;, - -0.192328; 0.968413;-0.158574;, - 0.027039; 0.999359; 0.022248;, - 0.019288; 0.999329; 0.030335;, - -0.231635; 0.968444;-0.091739;, - 0.033082; 0.999359; 0.013123;, - 0.027039; 0.999359; 0.022248;, - -0.192328; 0.968413;-0.158574;, - -0.217780; 0.972076;-0.087069;, - -0.231635; 0.968444;-0.091739;, - -0.192328; 0.968413;-0.158574;, - -0.176427; 0.974181;-0.140843;, - 0.143620; 0.963500; 0.225806;, - 0.206671; 0.963439; 0.170415;, - 0.493301; 0.768883; 0.406720;, - 0.343394; 0.768456; 0.539933;, - 0.493301; 0.768883; 0.406720;, - 0.206671; 0.963439; 0.170415;, - 0.248939; 0.963469; 0.098575;, - 0.594745; 0.768609; 0.235542;, - 0.206671; 0.963439; 0.170415;, - 0.027039; 0.999359; 0.022248;, - 0.033082; 0.999359; 0.013123;, - 0.248939; 0.963469; 0.098575;, - 0.019288; 0.999329; 0.030335;, - 0.027039; 0.999359; 0.022248;, - 0.206671; 0.963439; 0.170415;, - 0.143620; 0.963500; 0.225806;, - -0.248665; 0.968444;-0.015198;, - 0.035524; 0.999359; 0.002136;, - 0.033082; 0.999359; 0.013123;, - -0.231635; 0.968444;-0.091739;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - 0.033937; 0.999359;-0.008698;, - 0.035524; 0.999359; 0.002136;, - -0.241432; 0.968413; 0.062014;, - -0.248665; 0.968444;-0.015198;, - -0.248665; 0.968444;-0.015198;, - -0.241432; 0.968413; 0.062014;, - 0.267251; 0.963469; 0.016327;, - 0.638508; 0.768609; 0.039033;, - 0.594745; 0.768609; 0.235542;, - 0.248939; 0.963469; 0.098575;, - 0.267251; 0.963469; 0.016327;, - 0.259468; 0.963439;-0.066652;, - 0.619251; 0.768853;-0.159093;, - 0.638508; 0.768609; 0.039033;, - 0.259468; 0.963439;-0.066652;, - 0.267251; 0.963469; 0.016327;, - 0.035524; 0.999359; 0.002136;, - 0.033937; 0.999359;-0.008698;, - 0.035524; 0.999359; 0.002136;, - 0.267251; 0.963469; 0.016327;, - 0.248939; 0.963469; 0.098575;, - 0.033082; 0.999359; 0.013123;, - -0.248665; 0.968444;-0.015198;, - -0.231635; 0.968444;-0.091739;, - -0.217780; 0.972076;-0.087069;, - -0.248665; 0.968444;-0.015198;, - -0.210120; 0.968474; 0.133641;, - 0.030335; 0.999329;-0.019288;, - 0.033937; 0.999359;-0.008698;, - -0.241432; 0.968413; 0.062014;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - 0.022248; 0.999359;-0.027039;, - 0.030335; 0.999329;-0.019288;, - -0.158544; 0.968413; 0.192358;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.158544; 0.968413; 0.192358;, - 0.225837; 0.963500;-0.143620;, - 0.539933; 0.768426;-0.343394;, - 0.619251; 0.768853;-0.159093;, - 0.259468; 0.963439;-0.066652;, - 0.225837; 0.963500;-0.143620;, - 0.170385; 0.963439;-0.206732;, - 0.406659; 0.768853;-0.493393;, - 0.539933; 0.768426;-0.343394;, - 0.170385; 0.963439;-0.206732;, - 0.225837; 0.963500;-0.143620;, - 0.030335; 0.999329;-0.019288;, - 0.022248; 0.999359;-0.027039;, - 0.030335; 0.999329;-0.019288;, - 0.225837; 0.963500;-0.143620;, - 0.259468; 0.963439;-0.066652;, - 0.033937; 0.999359;-0.008698;, - -0.210120; 0.968474; 0.133641;, - -0.210120; 0.968474; 0.133641;, - -0.241432; 0.968413; 0.062014;, - -0.241432; 0.968413; 0.062014;, - 0.467727; 0.490249; 0.735405;, - 0.672597; 0.489853; 0.554613;, - 0.745903; 0.255501; 0.615070;, - 0.518815; 0.255501; 0.815790;, - 0.745903; 0.255501; 0.615070;, - 0.672597; 0.489853; 0.554613;, - 0.810419; 0.490066; 0.320963;, - 0.898862; 0.255470; 0.355968;, - 0.672597; 0.489853; 0.554613;, - 0.493301; 0.768883; 0.406720;, - 0.594745; 0.768609; 0.235542;, - 0.810419; 0.490066; 0.320963;, - 0.536546; 0.017121; 0.843654;, - 0.771416; 0.017090; 0.636067;, - 0.771508; 0.000000; 0.636158;, - 0.536637; 0.000000; 0.843776;, - 0.771508; 0.000000; 0.636158;, - 0.771416; 0.017090; 0.636067;, - 0.929594; 0.017090; 0.368145;, - 0.929716; 0.000000; 0.368206;, - 0.771416; 0.017090; 0.636067;, - 0.745903; 0.255501; 0.615070;, - 0.898862; 0.255470; 0.355968;, - 0.929594; 0.017090; 0.368145;, - 0.518815; 0.255501; 0.815790;, - 0.745903; 0.255501; 0.615070;, - 0.771416; 0.017090; 0.636067;, - 0.536546; 0.017121; 0.843654;, - 0.870022; 0.490066; 0.053194;, - 0.964995; 0.255470; 0.059023;, - 0.898862; 0.255470; 0.355968;, - 0.810419; 0.490066; 0.320963;, - 0.936369; 0.255470;-0.240577;, - 0.964995; 0.255470; 0.059023;, - 0.870022; 0.490066; 0.053194;, - 0.844356; 0.489853;-0.216926;, - 0.844356; 0.489853;-0.216926;, - 0.870022; 0.490066; 0.053194;, - 0.638508; 0.768609; 0.039033;, - 0.619251; 0.768853;-0.159093;, - 0.929594; 0.017090; 0.368145;, - 0.997986; 0.017090; 0.061037;, - 0.998108; 0.000000; 0.061037;, - 0.929716; 0.000000; 0.368206;, - 0.997986; 0.017090; 0.061037;, - 0.968383; 0.017090;-0.248787;, - 0.968535; 0.000000;-0.248848;, - 0.998108; 0.000000; 0.061037;, - 0.968383; 0.017090;-0.248787;, - 0.997986; 0.017090; 0.061037;, - 0.964995; 0.255470; 0.059023;, - 0.936369; 0.255470;-0.240577;, - 0.929594; 0.017090; 0.368145;, - 0.898862; 0.255470; 0.355968;, - 0.964995; 0.255470; 0.059023;, - 0.997986; 0.017090; 0.061037;, - 0.638508; 0.768609; 0.039033;, - 0.870022; 0.490066; 0.053194;, - 0.810419; 0.490066; 0.320963;, - 0.594745; 0.768609; 0.235542;, - 0.735435; 0.490249;-0.467727;, - 0.815790; 0.255501;-0.518815;, - 0.936369; 0.255470;-0.240577;, - 0.844356; 0.489853;-0.216926;, - 0.614917; 0.255470;-0.746025;, - 0.815790; 0.255501;-0.518815;, - 0.735435; 0.490249;-0.467727;, - 0.554491; 0.489853;-0.672719;, - 0.554491; 0.489853;-0.672719;, - 0.735435; 0.490249;-0.467727;, - 0.539933; 0.768426;-0.343394;, - 0.406659; 0.768853;-0.493393;, - 0.968535; 0.000000;-0.248848;, - 0.968383; 0.017090;-0.248787;, - 0.843654; 0.017121;-0.536546;, - 0.843776; 0.000000;-0.536637;, - 0.843654; 0.017121;-0.536546;, - 0.635945; 0.017090;-0.771538;, - 0.636036; 0.000000;-0.771630;, - 0.843776; 0.000000;-0.536637;, - 0.635945; 0.017090;-0.771538;, - 0.843654; 0.017121;-0.536546;, - 0.815790; 0.255501;-0.518815;, - 0.614917; 0.255470;-0.746025;, - 0.968383; 0.017090;-0.248787;, - 0.936369; 0.255470;-0.240577;, - 0.815790; 0.255501;-0.518815;, - 0.843654; 0.017121;-0.536546;, - 0.539933; 0.768426;-0.343394;, - 0.735435; 0.490249;-0.467727;, - 0.844356; 0.489853;-0.216926;, - 0.619251; 0.768853;-0.159093;, - 0.343394; 0.768456; 0.539933;, - 0.493301; 0.768883; 0.406720;, - 0.672597; 0.489853; 0.554613;, - 0.467727; 0.490249; 0.735405;, - -0.091647; 0.968444; 0.231666;, - 0.013123; 0.999359;-0.033082;, - 0.022248; 0.999359;-0.027039;, - -0.158544; 0.968413; 0.192358;, - -0.091647; 0.968444; 0.231666;, - -0.015107; 0.968444; 0.248665;, - 0.002106; 0.999359;-0.035524;, - 0.013123; 0.999359;-0.033082;, - -0.011597; 0.971191; 0.237953;, - -0.015107; 0.968444; 0.248665;, - -0.091647; 0.968444; 0.231666;, - -0.091647; 0.968444; 0.231666;, - 0.098514; 0.963469;-0.248970;, - 0.235359; 0.768609;-0.594806;, - 0.406659; 0.768853;-0.493393;, - 0.170385; 0.963439;-0.206732;, - 0.098514; 0.963469;-0.248970;, - 0.016236; 0.963469;-0.267251;, - 0.038820; 0.768609;-0.638508;, - 0.235359; 0.768609;-0.594806;, - 0.016236; 0.963469;-0.267251;, - 0.098514; 0.963469;-0.248970;, - 0.013123; 0.999359;-0.033082;, - 0.002106; 0.999359;-0.035524;, - 0.013123; 0.999359;-0.033082;, - 0.098514; 0.963469;-0.248970;, - 0.170385; 0.963439;-0.206732;, - 0.022248; 0.999359;-0.027039;, - -0.015107; 0.968444; 0.248665;, - 0.062044; 0.968413; 0.241432;, - -0.008698; 0.999359;-0.033937;, - 0.002106; 0.999359;-0.035524;, - -0.008698; 0.999359;-0.033937;, - 0.062044; 0.968413; 0.241432;, - 0.133641; 0.968474; 0.210120;, - -0.019288; 0.999329;-0.030335;, - 0.062044; 0.968413; 0.241432;, - 0.055971; 0.972503; 0.225990;, - 0.133641; 0.968474; 0.210120;, - 0.133641; 0.968474; 0.210120;, - 0.016236; 0.963469;-0.267251;, - -0.066683; 0.963439;-0.259438;, - -0.159185; 0.768883;-0.619221;, - 0.038820; 0.768609;-0.638508;, - -0.159185; 0.768883;-0.619221;, - -0.066683; 0.963439;-0.259438;, - -0.143620; 0.963500;-0.225806;, - -0.343394; 0.768456;-0.539933;, - -0.066683; 0.963439;-0.259438;, - -0.008698; 0.999359;-0.033937;, - -0.019288; 0.999329;-0.030335;, - -0.143620; 0.963500;-0.225806;, - -0.066683; 0.963439;-0.259438;, - 0.016236; 0.963469;-0.267251;, - 0.002106; 0.999359;-0.035524;, - -0.008698; 0.999359;-0.033937;, - 0.062044; 0.968413; 0.241432;, - -0.015107; 0.968444; 0.248665;, - -0.011597; 0.971191; 0.237953;, - 0.055971; 0.972503; 0.225990;, - 0.320688; 0.490066;-0.810511;, - 0.355663; 0.255470;-0.898984;, - 0.614917; 0.255470;-0.746025;, - 0.554491; 0.489853;-0.672719;, - 0.320688; 0.490066;-0.810511;, - 0.052919; 0.490066;-0.870052;, - 0.058748; 0.255470;-0.964995;, - 0.355663; 0.255470;-0.898984;, - 0.052919; 0.490066;-0.870052;, - 0.320688; 0.490066;-0.810511;, - 0.235359; 0.768609;-0.594806;, - 0.038820; 0.768609;-0.638508;, - 0.367870; 0.017090;-0.929716;, - 0.367901; 0.000000;-0.929838;, - 0.636036; 0.000000;-0.771630;, - 0.635945; 0.017090;-0.771538;, - 0.367870; 0.017090;-0.929716;, - 0.060732; 0.017090;-0.997986;, - 0.060732; 0.000000;-0.998138;, - 0.367901; 0.000000;-0.929838;, - 0.060732; 0.017090;-0.997986;, - 0.367870; 0.017090;-0.929716;, - 0.355663; 0.255470;-0.898984;, - 0.058748; 0.255470;-0.964995;, - 0.355663; 0.255470;-0.898984;, - 0.367870; 0.017090;-0.929716;, - 0.635945; 0.017090;-0.771538;, - 0.614917; 0.255470;-0.746025;, - 0.052919; 0.490066;-0.870052;, - -0.217078; 0.489853;-0.844325;, - -0.240761; 0.255501;-0.936338;, - 0.058748; 0.255470;-0.964995;, - -0.240761; 0.255501;-0.936338;, - -0.217078; 0.489853;-0.844325;, - -0.467727; 0.490249;-0.735435;, - -0.518815; 0.255501;-0.815790;, - -0.217078; 0.489853;-0.844325;, - -0.159185; 0.768883;-0.619221;, - -0.343394; 0.768456;-0.539933;, - -0.467727; 0.490249;-0.735435;, - 0.060732; 0.017090;-0.997986;, - -0.248970; 0.017090;-0.968352;, - -0.249001; 0.000000;-0.968474;, - 0.060732; 0.000000;-0.998138;, - -0.249001; 0.000000;-0.968474;, - -0.248970; 0.017090;-0.968352;, - -0.536546; 0.017121;-0.843654;, - -0.536637; 0.000000;-0.843776;, - -0.248970; 0.017090;-0.968352;, - -0.240761; 0.255501;-0.936338;, - -0.518815; 0.255501;-0.815790;, - -0.536546; 0.017121;-0.843654;, - -0.248970; 0.017090;-0.968352;, - 0.060732; 0.017090;-0.997986;, - 0.058748; 0.255470;-0.964995;, - -0.240761; 0.255501;-0.936338;, - -0.217078; 0.489853;-0.844325;, - 0.052919; 0.490066;-0.870052;, - 0.038820; 0.768609;-0.638508;, - -0.159185; 0.768883;-0.619221;, - 0.235359; 0.768609;-0.594806;, - 0.320688; 0.490066;-0.810511;, - 0.554491; 0.489853;-0.672719;, - 0.406659; 0.768853;-0.493393;, - -0.091647; 0.968444; 0.231666;, - -0.091647; 0.968444; 0.231666;, - -0.158544; 0.968413; 0.192358;, - -0.158544; 0.968413; 0.192358;, - -0.192328; 0.968413;-0.158574;, - -0.133641; 0.968474;-0.210120;, - -0.133641; 0.968474;-0.210120;, - -0.176427; 0.974181;-0.140843;, - 0.641163; 0.724662; 0.252449;, - 0.369854; 0.724540; 0.581530;, - -0.231544; 0.902097;-0.364086;, - -0.401715; 0.901975;-0.158208;, - -0.641163; 0.724662;-0.252449;, - -0.369854; 0.724540;-0.581530;, - 0.231544; 0.902097; 0.364086;, - 0.401685; 0.901975; 0.158208;, - -0.020783; 0.999634;-0.017151;, - -0.014435; 0.999634;-0.022736;, - 0.000000; 1.000000; 0.000000;, - 0.055971;-0.972503; 0.225990;, - 0.133641;-0.968474; 0.210120;, - 0.266945;-0.867458; 0.419782;, - 0.472518;-0.845882; 0.247291;, - -0.011597;-0.971191; 0.237953;, - 0.000641;-0.861476; 0.507736;, - 0.266945;-0.867458; 0.419782;, - 0.000641;-0.861476; 0.507736;, - -0.011597;-0.971191; 0.237953;, - 0.055971;-0.972503; 0.225990;, - -0.185400;-0.872494; 0.452010;, - 0.000641;-0.861476; 0.507736;, - -0.005188;-0.865078; 0.501572;, - -0.292886;-0.885556; 0.360515;, - -0.309488;-0.863826; 0.397443;, - -0.185400;-0.872494; 0.452010;, - -0.005188;-0.865078; 0.501572;, - -0.414594;-0.873104; 0.256447;, - -0.309488;-0.863826; 0.397443;, - -0.292886;-0.885556; 0.360515;, - -0.425581;-0.898221; 0.109622;, - -0.458846;-0.880612; 0.118107;, - -0.414594;-0.873104; 0.256447;, - -0.292886;-0.885556; 0.360515;, - -0.209479;-0.973449;-0.092166;, - -0.468184;-0.853572;-0.228431;, - -0.266793;-0.867641;-0.419477;, - -0.176427;-0.974181;-0.140843;, - -0.266793;-0.867641;-0.419477;, - -0.133641;-0.968474;-0.210120;, - -0.266793;-0.867641;-0.419477;, - -0.176427;-0.974181;-0.140843;, - -0.217811;-0.972076;-0.087069;, - -0.209479;-0.973449;-0.092166;, - -0.468184;-0.853572;-0.228431;, - -0.487991;-0.872494;-0.023713;, - -0.456465;-0.865078;-0.207953;, - -0.456465;-0.865078;-0.207953;, - -0.487991;-0.872494;-0.023713;, - -0.458846;-0.880612; 0.118107;, - -0.425581;-0.898221; 0.109622;, - -0.266793;-0.867641;-0.419477;, - -0.008362;-0.853572;-0.520890;, - 0.005341;-0.973449;-0.228797;, - -0.133641;-0.968474;-0.210120;, - -0.266793;-0.867641;-0.419477;, - -0.052736;-0.974181;-0.219489;, - 0.013489;-0.972076;-0.234169;, - -0.052736;-0.974181;-0.219489;, - -0.266793;-0.867641;-0.419477;, - 0.005341;-0.973449;-0.228797;, - 0.005188;-0.865078;-0.501572;, - 0.185400;-0.872494;-0.452010;, - -0.008362;-0.853572;-0.520890;, - 0.301523;-0.880612;-0.365459;, - 0.185400;-0.872494;-0.452010;, - 0.005188;-0.865078;-0.501572;, - 0.279733;-0.898221;-0.338939;, - 0.450697;-0.885556;-0.112369;, - 0.491195;-0.863826;-0.111759;, - 0.408032;-0.873104;-0.266732;, - 0.408032;-0.873104;-0.266732;, - 0.301523;-0.880612;-0.365459;, - 0.279733;-0.898221;-0.338939;, - 0.450697;-0.885556;-0.112369;, - 0.266945;-0.867458; 0.419782;, - 0.133641;-0.968474; 0.210120;, - 0.176427;-0.974181; 0.140843;, - 0.468184;-0.853572; 0.228431;, - 0.266945;-0.867458; 0.419782;, - 0.209479;-0.973449; 0.092166;, - 0.217780;-0.972076; 0.087069;, - 0.209479;-0.973449; 0.092166;, - 0.266945;-0.867458; 0.419782;, - 0.176427;-0.974181; 0.140843;, - 0.456465;-0.865078; 0.207953;, - 0.468184;-0.853572; 0.228431;, - 0.487991;-0.872494; 0.023713;, - 0.487991;-0.872494; 0.023713;, - 0.491195;-0.863826;-0.111759;, - 0.450697;-0.885556;-0.112369;, - 0.456465;-0.865078; 0.207953;, - 0.332896; 0.933683; 0.131870;, - 0.293405; 0.947264; 0.128697;, - 0.288369; 0.933927; 0.211127;, - 0.187628; 0.936857; 0.295022;, - 0.288369; 0.933927; 0.211127;, - 0.293405; 0.947264; 0.128697;, - 0.231971; 0.947081; 0.221747;, - 0.171392; 0.947600; 0.269509;, - 0.102451; 0.947081; 0.304117;, - 0.187628; 0.936857; 0.295022;, - 0.231971; 0.947081; 0.221747;, - 0.068941; 0.933927; 0.350688;, - -0.007813; 0.947264; 0.320292;, - -0.021699; 0.933683; 0.357402;, - -0.007813; 0.947264; 0.320292;, - 0.068941; 0.933927; 0.350688;, - 0.187628; 0.936857; 0.295022;, - 0.102451; 0.947081; 0.304117;, - 0.332896; 0.933683; 0.131870;, - 0.357433; 0.933683; 0.021821;, - 0.322703; 0.946257; 0.019745;, - 0.293405; 0.947264; 0.128697;, - 0.357433; 0.933683; 0.021821;, - 0.346324; 0.933866;-0.088931;, - 0.313913; 0.945982;-0.080660;, - 0.322703; 0.946257; 0.019745;, - 0.346324; 0.933866;-0.088931;, - 0.302438; 0.933531;-0.192358;, - 0.272347; 0.946471;-0.173193;, - 0.313913; 0.945982;-0.080660;, - 0.227393; 0.933866;-0.275918;, - 0.206153; 0.945982;-0.250099;, - 0.272347; 0.946471;-0.173193;, - 0.302438; 0.933531;-0.192358;, - 0.329051; 0.767510; 0.550127;, - 0.408307; 0.583239; 0.702170;, - 0.681722; 0.511124; 0.523423;, - 0.726005; 0.635731; 0.262062;, - 0.531846; 0.826594; 0.183935;, - 0.329051; 0.767510; 0.550127;, - 0.681722; 0.511124; 0.523423;, - 0.935118; 0.332469;-0.122379;, - 0.726005; 0.635731; 0.262062;, - 0.941923; 0.290384; 0.168493;, - 0.935118; 0.332469;-0.122379;, - 0.941923; 0.290384; 0.168493;, - 0.778252; 0.582507;-0.234413;, - 0.531846; 0.826594; 0.183935;, - 0.726005; 0.635731; 0.262062;, - 0.935118; 0.332469;-0.122379;, - 0.109836; 0.992584; 0.051546;, - 0.395093; 0.765740;-0.507462;, - 0.744591; 0.504624;-0.436903;, - 0.490707; 0.583453;-0.647114;, - 0.778252; 0.582507;-0.234413;, - 0.744591; 0.504624;-0.436903;, - 0.395093; 0.765740;-0.507462;, - 0.935118; 0.332469;-0.122379;, - 0.131779; 0.933683;-0.332957;, - 0.118931; 0.946257;-0.300638;, - 0.206153; 0.945982;-0.250099;, - 0.227393; 0.933866;-0.275918;, - 0.021699; 0.933683;-0.357402;, - 0.003632; 0.949675;-0.313181;, - 0.118931; 0.946257;-0.300638;, - 0.131779; 0.933683;-0.332957;, - 0.003632; 0.949675;-0.313181;, - 0.021699; 0.933683;-0.357402;, - -0.094485; 0.922422;-0.374432;, - -0.003571; 0.999878;-0.013977;, - 0.003632; 0.949675;-0.313181;, - -0.168828; 0.949217;-0.265450;, - -0.207404; 0.922269;-0.326121;, - -0.168828; 0.949217;-0.265450;, - 0.003632; 0.949675;-0.313181;, - -0.094485; 0.922422;-0.374432;, - 0.021485; 0.766808;-0.641499;, - 0.345286; 0.507309;-0.789544;, - 0.017029; 0.583880;-0.811640;, - 0.490707; 0.583453;-0.647114;, - 0.345286; 0.507309;-0.789544;, - 0.021485; 0.766808;-0.641499;, - 0.395093; 0.765740;-0.507462;, - -0.185003; 0.511124;-0.839351;, - -0.462813; 0.583239;-0.667531;, - -0.358684; 0.767510;-0.531266;, - -0.358684; 0.767510;-0.531266;, - 0.021485; 0.766808;-0.641499;, - 0.017029; 0.583880;-0.811640;, - -0.185003; 0.511124;-0.839351;, - -0.299020; 0.922422;-0.244362;, - -0.332896; 0.933683;-0.131870;, - -0.285165; 0.949675;-0.129490;, - -0.168828; 0.949217;-0.265450;, - -0.285165; 0.949675;-0.129490;, - -0.011139; 0.999878;-0.009186;, - -0.285165; 0.949675;-0.129490;, - -0.168828; 0.949217;-0.265450;, - -0.207404; 0.922269;-0.326121;, - -0.299020; 0.922422;-0.244362;, - -0.313913; 0.945982; 0.080660;, - -0.322733; 0.946257;-0.019745;, - -0.357402; 0.933683;-0.021821;, - -0.346324; 0.933866; 0.088931;, - -0.322733; 0.946257;-0.019745;, - -0.285165; 0.949675;-0.129490;, - -0.332896; 0.933683;-0.131870;, - -0.357402; 0.933683;-0.021821;, - -0.272347; 0.946471; 0.173193;, - -0.302438; 0.933531; 0.192358;, - -0.227393; 0.933866; 0.275918;, - -0.206153; 0.945982; 0.250099;, - -0.313913; 0.945982; 0.080660;, - -0.346324; 0.933866; 0.088931;, - -0.302438; 0.933531; 0.192358;, - -0.272347; 0.946471; 0.173193;, - -0.643880; 0.511032;-0.569414;, - -0.694784; 0.664479;-0.275155;, - -0.561724; 0.796869;-0.222327;, - -0.561724; 0.796869;-0.222327;, - -0.358684; 0.767510;-0.531266;, - -0.462813; 0.583239;-0.667531;, - -0.643880; 0.511032;-0.569414;, - -0.694784; 0.664479;-0.275155;, - -0.861476; 0.507309;-0.022034;, - -0.561724; 0.796869;-0.222327;, - -0.561724; 0.796869;-0.222327;, - -0.861476; 0.507309;-0.022034;, - -0.794122; 0.583453; 0.170019;, - -0.627155; 0.765679; 0.142674;, - -0.794122; 0.583453; 0.170019;, - -0.711386; 0.504624; 0.489090;, - -0.627155; 0.765679; 0.142674;, - -0.627155; 0.765679; 0.142674;, - -0.711386; 0.504624; 0.489090;, - -0.542314; 0.582507; 0.605426;, - -0.423017; 0.765618; 0.484603;, - -0.118931; 0.946257; 0.300638;, - -0.131779; 0.933683; 0.332957;, - -0.021699; 0.933683; 0.357402;, - -0.007813; 0.947264; 0.320292;, - -0.206153; 0.945982; 0.250099;, - -0.227393; 0.933866; 0.275918;, - -0.131779; 0.933683; 0.332957;, - -0.118931; 0.946257; 0.300638;, - -0.542314; 0.582507; 0.605426;, - -0.288675; 0.507157; 0.812037;, - -0.423017; 0.765618; 0.484603;, - -0.423017; 0.765618; 0.484603;, - -0.288675; 0.507157; 0.812037;, - -0.082217; 0.582476; 0.808649;, - -0.056917; 0.766686; 0.639454;, - -0.056917; 0.766686; 0.639454;, - -0.082217; 0.582476; 0.808649;, - 0.242683; 0.511032; 0.824580;, - 0.408307; 0.583239; 0.702170;, - 0.329051; 0.767510; 0.550127;, - -0.056917; 0.766686; 0.639454;, - 0.242683; 0.511032; 0.824580;, - 0.180914; 0.972503; 0.146519;, - 0.133641; 0.968474; 0.210120;, - 0.267159; 0.867244; 0.420057;, - -0.030030; 0.781243; 0.623463;, - 0.220405; 0.971191; 0.090426;, - 0.459517; 0.861476; 0.215918;, - 0.267159; 0.867244; 0.420057;, - 0.459517; 0.861476; 0.215918;, - 0.220405; 0.971191; 0.090426;, - 0.180914; 0.972503; 0.146519;, - 0.487991; 0.872494; 0.023713;, - 0.459517; 0.861476; 0.215918;, - -0.077883; 0.996582; 0.027131;, - -0.103671; 0.993988; 0.034547;, - 0.491195; 0.863826;-0.111759;, - 0.487991; 0.872494; 0.023713;, - -0.077883; 0.996582; 0.027131;, - 0.408032; 0.873104;-0.266732;, - 0.491195; 0.863826;-0.111759;, - -0.103671; 0.993988; 0.034547;, - -0.091800; 0.989624; 0.110233;, - 0.301523; 0.880612;-0.365459;, - 0.408032; 0.873104;-0.266732;, - -0.103671; 0.993988; 0.034547;, - 0.005341; 0.973449;-0.228797;, - -0.008362; 0.853572;-0.520859;, - -0.266793; 0.867641;-0.419477;, - -0.052736; 0.974181;-0.219489;, - -0.266793; 0.867641;-0.419477;, - -0.133641; 0.968474;-0.210120;, - -0.266793; 0.867641;-0.419477;, - -0.052736; 0.974181;-0.219489;, - 0.013489; 0.972076;-0.234169;, - 0.005341; 0.973449;-0.228797;, - -0.008362; 0.853572;-0.520859;, - 0.185400; 0.872494;-0.452010;, - -0.057588; 0.996582; 0.059023;, - -0.057588; 0.996582; 0.059023;, - 0.185400; 0.872494;-0.452010;, - 0.301523; 0.880612;-0.365459;, - -0.091800; 0.989624; 0.110233;, - -0.266793; 0.867641;-0.419477;, - -0.468184; 0.853572;-0.228431;, - -0.209479; 0.973449;-0.092166;, - -0.133641; 0.968474;-0.210120;, - -0.266793; 0.867641;-0.419477;, - -0.176427; 0.974181;-0.140843;, - -0.217780; 0.972076;-0.087069;, - -0.176427; 0.974181;-0.140843;, - -0.266793; 0.867641;-0.419477;, - -0.209479; 0.973449;-0.092166;, - 0.077883; 0.996582;-0.027131;, - -0.487991; 0.872494;-0.023713;, - -0.468184; 0.853572;-0.228431;, - -0.458815; 0.880612; 0.118107;, - -0.487991; 0.872494;-0.023713;, - 0.077883; 0.996582;-0.027131;, - 0.138768; 0.989654;-0.036378;, - 0.075228; 0.993988;-0.079226;, - -0.309488; 0.863826; 0.397443;, - -0.414563; 0.873104; 0.256447;, - -0.414563; 0.873104; 0.256447;, - -0.458815; 0.880612; 0.118107;, - 0.138768; 0.989654;-0.036378;, - 0.075228; 0.993988;-0.079226;, - 0.267159; 0.867244; 0.420057;, - 0.133641; 0.968474; 0.210120;, - 0.055971; 0.972503; 0.225990;, - 0.000641; 0.861476; 0.507736;, - -0.011597; 0.971191; 0.237953;, - 0.388989; 0.885952; 0.252449;, - -0.011597; 0.971191; 0.237953;, - 0.000641; 0.861476; 0.507736;, - 0.267159; 0.867244; 0.420057;, - 0.055971; 0.972503; 0.225990;, - 0.057588; 0.996582;-0.059023;, - 0.000641; 0.861476; 0.507736;, - -0.185400; 0.872494; 0.452010;, - -0.185400; 0.872494; 0.452010;, - -0.309488; 0.863826; 0.397443;, - 0.075228; 0.993988;-0.079226;, - 0.057588; 0.996582;-0.059023;; - 6512; - 3;0;1;2;, - 3;3;4;5;, - 3;6;7;8;, - 3;9;10;11;, - 3;12;13;14;, - 3;15;16;17;, - 3;18;19;20;, - 3;21;22;23;, - 3;24;25;26;, - 3;27;28;29;, - 3;30;31;32;, - 3;33;34;35;, - 3;36;37;38;, - 3;39;40;41;, - 3;42;43;44;, - 3;45;46;47;, - 3;48;49;50;, - 3;51;52;53;, - 3;54;55;56;, - 3;57;58;59;, - 3;60;61;62;, - 3;63;64;65;, - 3;66;67;68;, - 3;69;70;71;, - 3;72;73;74;, - 3;75;76;77;, - 3;78;79;80;, - 3;81;82;83;, - 3;84;85;86;, - 3;87;88;89;, - 3;90;91;92;, - 3;93;94;95;, - 3;96;97;98;, - 3;99;100;101;, - 3;102;103;104;, - 3;105;106;107;, - 3;108;109;110;, - 3;111;112;113;, - 3;114;115;116;, - 3;117;118;119;, - 3;120;121;122;, - 3;123;124;125;, - 3;126;127;128;, - 3;129;130;131;, - 3;132;133;134;, - 3;135;136;137;, - 3;138;139;140;, - 3;141;142;143;, - 3;144;145;146;, - 3;147;148;149;, - 3;150;151;152;, - 3;153;154;155;, - 3;156;157;158;, - 3;159;160;161;, - 3;162;163;164;, - 3;165;166;167;, - 3;168;169;170;, - 3;171;172;173;, - 3;174;175;176;, - 3;177;178;179;, - 3;180;181;182;, - 3;183;184;185;, - 3;186;187;188;, - 3;189;190;191;, - 3;192;193;194;, - 3;195;196;197;, - 3;198;199;200;, - 3;201;202;203;, - 3;204;205;206;, - 3;207;208;209;, - 3;210;211;212;, - 3;213;214;215;, - 3;216;217;218;, - 3;219;220;221;, - 3;222;223;224;, - 3;225;226;227;, - 3;228;229;230;, - 3;231;232;233;, - 3;234;235;236;, - 3;237;238;239;, - 3;240;241;242;, - 3;243;244;245;, - 3;246;247;248;, - 3;249;250;251;, - 3;252;253;254;, - 3;255;256;257;, - 3;258;259;260;, - 3;261;262;263;, - 3;264;265;266;, - 3;267;268;269;, - 3;270;271;272;, - 3;273;274;275;, - 3;276;277;278;, - 3;279;280;281;, - 3;282;283;284;, - 3;285;286;287;, - 3;288;289;290;, - 3;291;292;293;, - 3;294;295;296;, - 3;297;298;299;, - 3;300;301;302;, - 3;303;304;305;, - 3;306;307;308;, - 3;309;310;311;, - 3;312;313;314;, - 3;315;316;317;, - 3;318;319;320;, - 3;321;322;323;, - 3;324;325;326;, - 3;327;328;329;, - 3;330;331;332;, - 3;333;334;335;, - 3;336;337;338;, - 3;339;340;341;, - 3;342;343;344;, - 3;345;346;347;, - 3;348;349;350;, - 3;351;352;353;, - 3;354;355;356;, - 3;357;358;359;, - 3;360;361;362;, - 3;363;364;365;, - 3;366;367;368;, - 3;369;370;371;, - 3;372;373;374;, - 3;375;376;377;, - 3;378;379;380;, - 3;381;382;383;, - 3;384;385;386;, - 3;387;388;389;, - 3;390;391;392;, - 3;393;394;395;, - 3;396;397;398;, - 3;399;400;401;, - 3;402;403;404;, - 3;405;406;407;, - 3;408;409;410;, - 3;411;412;413;, - 3;414;415;416;, - 3;417;418;419;, - 3;420;421;422;, - 3;423;424;425;, - 3;426;427;428;, - 3;429;430;431;, - 3;432;433;434;, - 3;435;436;437;, - 3;438;439;440;, - 3;441;442;443;, - 3;444;445;446;, - 3;447;448;449;, - 3;450;451;452;, - 3;453;454;455;, - 3;456;457;458;, - 3;459;460;461;, - 3;462;463;464;, - 3;465;466;467;, - 3;468;469;470;, - 3;471;472;473;, - 3;474;475;476;, - 3;477;478;479;, - 3;480;481;482;, - 3;483;484;485;, - 3;486;487;488;, - 3;489;490;491;, - 3;492;493;494;, - 3;495;496;497;, - 3;498;499;500;, - 3;501;502;503;, - 3;504;505;506;, - 3;507;508;509;, - 3;510;511;512;, - 3;513;514;515;, - 3;516;517;518;, - 3;519;520;521;, - 3;522;523;524;, - 3;525;526;527;, - 3;528;529;530;, - 3;531;532;533;, - 3;534;535;536;, - 3;537;538;539;, - 3;540;541;542;, - 3;543;544;545;, - 3;546;547;548;, - 3;549;550;551;, - 3;552;553;554;, - 3;555;556;557;, - 3;558;559;560;, - 3;561;562;563;, - 3;564;565;566;, - 3;567;568;569;, - 3;570;571;572;, - 3;573;574;575;, - 3;576;577;578;, - 3;579;580;581;, - 3;582;583;584;, - 3;585;586;587;, - 3;588;589;590;, - 3;591;592;593;, - 3;594;595;596;, - 3;597;598;599;, - 3;600;601;602;, - 3;603;604;605;, - 3;606;607;608;, - 3;609;610;611;, - 3;612;613;614;, - 3;615;616;617;, - 3;618;619;620;, - 3;621;622;623;, - 3;624;625;626;, - 3;627;628;629;, - 3;630;631;632;, - 3;633;634;635;, - 3;636;637;638;, - 3;639;640;641;, - 3;642;643;644;, - 3;645;646;647;, - 3;648;649;650;, - 3;651;652;653;, - 3;654;655;656;, - 3;657;658;659;, - 3;660;661;662;, - 3;663;664;665;, - 3;666;667;668;, - 3;669;670;671;, - 3;672;673;674;, - 3;675;676;677;, - 3;678;679;680;, - 3;681;682;683;, - 3;684;685;686;, - 3;687;688;689;, - 3;690;691;692;, - 3;693;694;695;, - 3;696;697;698;, - 3;699;700;701;, - 3;702;703;704;, - 3;705;706;707;, - 3;708;709;710;, - 3;711;712;713;, - 3;714;715;716;, - 3;717;718;719;, - 3;720;721;722;, - 3;723;724;725;, - 3;726;727;728;, - 3;729;730;731;, - 3;732;733;734;, - 3;735;736;737;, - 3;738;739;740;, - 3;741;742;743;, - 3;744;745;746;, - 3;747;748;749;, - 3;750;751;752;, - 3;753;754;755;, - 3;756;757;758;, - 3;759;760;761;, - 3;762;763;764;, - 3;765;766;767;, - 3;768;769;770;, - 3;771;772;773;, - 3;774;775;776;, - 3;777;778;779;, - 3;780;781;782;, - 3;783;784;785;, - 3;786;787;788;, - 3;789;790;791;, - 3;792;793;794;, - 3;795;796;797;, - 3;798;799;800;, - 3;801;802;803;, - 3;804;805;806;, - 3;807;808;809;, - 3;810;811;812;, - 3;813;814;815;, - 3;816;817;818;, - 3;819;820;821;, - 3;822;823;824;, - 3;825;826;827;, - 3;828;829;830;, - 3;831;832;833;, - 3;834;835;836;, - 3;837;838;839;, - 3;840;841;842;, - 3;843;844;845;, - 3;846;847;848;, - 3;849;850;851;, - 3;852;853;854;, - 3;855;856;857;, - 3;858;859;860;, - 3;861;862;863;, - 3;864;865;866;, - 3;867;868;869;, - 3;870;871;872;, - 3;873;874;875;, - 3;876;877;878;, - 3;879;880;881;, - 3;882;883;884;, - 3;885;886;887;, - 3;888;889;890;, - 3;891;892;893;, - 3;894;895;896;, - 3;897;898;899;, - 3;900;901;902;, - 3;903;904;905;, - 3;906;907;908;, - 3;909;910;911;, - 3;912;913;914;, - 3;915;916;917;, - 3;918;919;920;, - 3;921;922;923;, - 3;924;925;926;, - 3;927;928;929;, - 3;930;931;932;, - 3;933;934;935;, - 3;936;937;938;, - 3;939;940;941;, - 3;942;943;944;, - 3;945;946;947;, - 3;948;949;950;, - 3;951;952;953;, - 3;954;955;956;, - 3;957;958;959;, - 3;960;961;962;, - 3;963;964;965;, - 3;966;967;968;, - 3;969;970;971;, - 3;972;973;974;, - 3;975;976;977;, - 3;978;979;980;, - 3;981;982;983;, - 3;984;985;986;, - 3;987;988;989;, - 3;990;991;992;, - 3;993;994;995;, - 3;996;997;998;, - 3;999;1000;1001;, - 3;1002;1003;1004;, - 3;1005;1006;1007;, - 3;1008;1009;1010;, - 3;1011;1012;1013;, - 3;1014;1015;1016;, - 3;1017;1018;1019;, - 3;1020;1021;1022;, - 3;1023;1024;1025;, - 3;1026;1027;1028;, - 3;1029;1030;1031;, - 3;1032;1033;1034;, - 3;1035;1036;1037;, - 3;1038;1039;1040;, - 3;1041;1042;1043;, - 3;1044;1045;1046;, - 3;1047;1048;1049;, - 3;1050;1051;1052;, - 3;1053;1054;1055;, - 3;1056;1057;1058;, - 3;1059;1060;1061;, - 3;1062;1063;1064;, - 3;1065;1066;1067;, - 3;1068;1069;1070;, - 3;1071;1072;1073;, - 3;1074;1075;1076;, - 3;1077;1078;1079;, - 3;1080;1081;1082;, - 3;1083;1084;1085;, - 3;1086;1087;1088;, - 3;1089;1090;1091;, - 3;1092;1093;1094;, - 3;1095;1096;1097;, - 3;1098;1099;1100;, - 3;1101;1102;1103;, - 3;1104;1105;1106;, - 3;1107;1108;1109;, - 3;1110;1111;1112;, - 3;1113;1114;1115;, - 3;1116;1117;1118;, - 3;1119;1120;1121;, - 3;1122;1123;1124;, - 3;1125;1126;1127;, - 3;1128;1129;1130;, - 3;1131;1132;1133;, - 3;1134;1135;1136;, - 3;1137;1138;1139;, - 3;1140;1141;1142;, - 3;1143;1144;1145;, - 3;1146;1147;1148;, - 3;1149;1150;1151;, - 3;1152;1153;1154;, - 3;1155;1156;1157;, - 3;1158;1159;1160;, - 3;1161;1162;1163;, - 3;1164;1165;1166;, - 3;1167;1168;1169;, - 3;1170;1171;1172;, - 3;1173;1174;1175;, - 3;1176;1177;1178;, - 3;1179;1180;1181;, - 3;1182;1183;1184;, - 3;1185;1186;1187;, - 3;1188;1189;1190;, - 3;1191;1192;1193;, - 3;1194;1195;1196;, - 3;1197;1198;1199;, - 3;1200;1201;1202;, - 3;1203;1204;1205;, - 3;1206;1207;1208;, - 3;1209;1210;1211;, - 3;1212;1213;1214;, - 3;1215;1216;1217;, - 3;1218;1219;1220;, - 3;1221;1222;1223;, - 3;1224;1225;1226;, - 3;1227;1228;1229;, - 3;1230;1231;1232;, - 3;1233;1234;1235;, - 3;1236;1237;1238;, - 3;1239;1240;1241;, - 3;1242;1243;1244;, - 3;1245;1246;1247;, - 3;1248;1249;1250;, - 3;1251;1252;1253;, - 3;1254;1255;1256;, - 3;1257;1258;1259;, - 3;1260;1261;1262;, - 3;1263;1264;1265;, - 3;1266;1267;1268;, - 3;1269;1270;1271;, - 3;1272;1273;1274;, - 3;1275;1276;1277;, - 3;1278;1279;1280;, - 3;1281;1282;1283;, - 3;1284;1285;1286;, - 3;1287;1288;1289;, - 3;1290;1291;1292;, - 3;1293;1294;1295;, - 3;1296;1297;1298;, - 3;1299;1300;1301;, - 3;1302;1303;1304;, - 3;1305;1306;1307;, - 3;1308;1309;1310;, - 3;1311;1312;1313;, - 3;1314;1315;1316;, - 3;1317;1318;1319;, - 3;1320;1321;1322;, - 3;1323;1324;1325;, - 3;1326;1327;1328;, - 3;1329;1330;1331;, - 3;1332;1333;1334;, - 3;1335;1336;1337;, - 3;1338;1339;1340;, - 3;1341;1342;1343;, - 3;1344;1345;1346;, - 3;1347;1348;1349;, - 3;1350;1351;1352;, - 3;1353;1354;1355;, - 3;1356;1357;1358;, - 3;1359;1360;1361;, - 3;1362;1363;1364;, - 3;1365;1366;1367;, - 3;1368;1369;1370;, - 3;1371;1372;1373;, - 3;1374;1375;1376;, - 3;1377;1378;1379;, - 3;1380;1381;1382;, - 3;1383;1384;1385;, - 3;1386;1387;1388;, - 3;1389;1390;1391;, - 3;1392;1393;1394;, - 3;1395;1396;1397;, - 3;1398;1399;1400;, - 3;1401;1402;1403;, - 3;1404;1405;1406;, - 3;1407;1408;1409;, - 3;1410;1411;1412;, - 3;1413;1414;1415;, - 3;1416;1417;1418;, - 3;1419;1420;1421;, - 3;1422;1423;1424;, - 3;1425;1426;1427;, - 3;1428;1429;1430;, - 3;1431;1432;1433;, - 3;1434;1435;1436;, - 3;1437;1438;1439;, - 3;1440;1441;1442;, - 3;1443;1444;1445;, - 3;1446;1447;1448;, - 3;1449;1450;1451;, - 3;1452;1453;1454;, - 3;1455;1456;1457;, - 3;1458;1459;1460;, - 3;1461;1462;1463;, - 3;1464;1465;1466;, - 3;1467;1468;1469;, - 3;1470;1471;1472;, - 3;1473;1474;1475;, - 3;1476;1477;1478;, - 3;1479;1480;1481;, - 3;1482;1483;1484;, - 3;1485;1486;1487;, - 3;1488;1489;1490;, - 3;1491;1492;1493;, - 3;1494;1495;1496;, - 3;1497;1498;1499;, - 3;1500;1501;1502;, - 3;1503;1504;1505;, - 3;1506;1507;1508;, - 3;1509;1510;1511;, - 3;1512;1513;1514;, - 3;1515;1516;1517;, - 3;1518;1519;1520;, - 3;1521;1522;1523;, - 3;1524;1525;1526;, - 3;1527;1528;1529;, - 3;1530;1531;1532;, - 3;1533;1534;1535;, - 3;1536;1537;1538;, - 3;1539;1540;1541;, - 3;1542;1543;1544;, - 3;1545;1546;1547;, - 3;1548;1549;1550;, - 3;1551;1552;1553;, - 3;1554;1555;1556;, - 3;1557;1558;1559;, - 3;1560;1561;1562;, - 3;1563;1564;1565;, - 3;1566;1567;1568;, - 3;1569;1570;1571;, - 3;1572;1573;1574;, - 3;1575;1576;1577;, - 3;1578;1579;1580;, - 3;1581;1582;1583;, - 3;1584;1585;1586;, - 3;1587;1588;1589;, - 3;1590;1591;1592;, - 3;1593;1594;1595;, - 3;1596;1597;1598;, - 3;1599;1600;1601;, - 3;1602;1603;1604;, - 3;1605;1606;1607;, - 3;1608;1609;1610;, - 3;1611;1612;1613;, - 3;1614;1615;1616;, - 3;1617;1618;1619;, - 3;1620;1621;1622;, - 3;1623;1624;1625;, - 3;1626;1627;1628;, - 3;1629;1630;1631;, - 3;1632;1633;1634;, - 3;1635;1636;1637;, - 3;1638;1639;1640;, - 3;1641;1642;1643;, - 3;1644;1645;1646;, - 3;1647;1648;1649;, - 3;1650;1651;1652;, - 3;1653;1654;1655;, - 3;1656;1657;1658;, - 3;1659;1660;1661;, - 3;1662;1663;1664;, - 3;1665;1666;1667;, - 3;1668;1669;1670;, - 3;1671;1672;1673;, - 3;1674;1675;1676;, - 3;1677;1678;1679;, - 3;1680;1681;1682;, - 3;1683;1684;1685;, - 3;1686;1687;1688;, - 3;1689;1690;1691;, - 3;1692;1693;1694;, - 3;1695;1696;1697;, - 3;1698;1699;1700;, - 3;1701;1702;1703;, - 3;1704;1705;1706;, - 3;1707;1708;1709;, - 3;1710;1711;1712;, - 3;1713;1714;1715;, - 3;1716;1717;1718;, - 3;1719;1720;1721;, - 3;1722;1723;1724;, - 3;1725;1726;1727;, - 3;1728;1729;1730;, - 3;1731;1732;1733;, - 3;1734;1735;1736;, - 3;1737;1738;1739;, - 3;1740;1741;1742;, - 3;1743;1744;1745;, - 3;1746;1747;1748;, - 3;1749;1750;1751;, - 3;1752;1753;1754;, - 3;1755;1756;1757;, - 3;1758;1759;1760;, - 3;1761;1762;1763;, - 3;1764;1765;1766;, - 3;1767;1768;1769;, - 3;1770;1771;1772;, - 3;1773;1774;1775;, - 3;1776;1777;1778;, - 3;1779;1780;1781;, - 3;1782;1783;1784;, - 3;1785;1786;1787;, - 3;1788;1789;1790;, - 3;1791;1792;1793;, - 3;1794;1795;1796;, - 3;1797;1798;1799;, - 3;1800;1801;1802;, - 3;1803;1804;1805;, - 3;1806;1807;1808;, - 3;1809;1810;1811;, - 3;1812;1813;1814;, - 3;1815;1816;1817;, - 3;1818;1819;1820;, - 3;1821;1822;1823;, - 3;1824;1825;1826;, - 3;1827;1828;1829;, - 3;1830;1831;1832;, - 3;1833;1834;1835;, - 3;1836;1837;1838;, - 3;1839;1840;1841;, - 3;1842;1843;1844;, - 3;1845;1846;1847;, - 3;1848;1849;1850;, - 3;1851;1852;1853;, - 3;1854;1855;1856;, - 3;1857;1858;1859;, - 3;1860;1861;1862;, - 3;1863;1864;1865;, - 3;1866;1867;1868;, - 3;1869;1870;1871;, - 3;1872;1873;1874;, - 3;1875;1876;1877;, - 3;1878;1879;1880;, - 3;1881;1882;1883;, - 3;1884;1885;1886;, - 3;1887;1888;1889;, - 3;1890;1891;1892;, - 3;1893;1894;1895;, - 3;1896;1897;1898;, - 3;1899;1900;1901;, - 3;1902;1903;1904;, - 3;1905;1906;1907;, - 3;1908;1909;1910;, - 3;1911;1912;1913;, - 3;1914;1915;1916;, - 3;1917;1918;1919;, - 3;1920;1921;1922;, - 3;1923;1924;1925;, - 3;1926;1927;1928;, - 3;1929;1930;1931;, - 3;1932;1933;1934;, - 3;1935;1936;1937;, - 3;1938;1939;1940;, - 3;1941;1942;1943;, - 3;1944;1945;1946;, - 3;1947;1948;1949;, - 3;1950;1951;1952;, - 3;1953;1954;1955;, - 3;1956;1957;1958;, - 3;1959;1960;1961;, - 3;1962;1963;1964;, - 3;1965;1966;1967;, - 3;1968;1969;1970;, - 3;1971;1972;1973;, - 3;1974;1975;1976;, - 3;1977;1978;1979;, - 3;1980;1981;1982;, - 3;1983;1984;1985;, - 3;1986;1987;1988;, - 3;1989;1990;1991;, - 3;1992;1993;1994;, - 3;1995;1996;1997;, - 3;1998;1999;2000;, - 3;2001;2002;2003;, - 3;2004;2005;2006;, - 3;2007;2008;2009;, - 3;2010;2011;2012;, - 3;2013;2014;2015;, - 3;2016;2017;2018;, - 3;2019;2020;2021;, - 3;2022;2023;2024;, - 3;2025;2026;2027;, - 3;2028;2029;2030;, - 3;2031;2032;2033;, - 3;2034;2035;2036;, - 3;2037;2038;2039;, - 3;2040;2041;2042;, - 3;2043;2044;2045;, - 3;2046;2047;2048;, - 3;2049;2050;2051;, - 3;2052;2053;2054;, - 3;2055;2056;2057;, - 3;2058;2059;2060;, - 3;2061;2062;2063;, - 3;2064;2065;2066;, - 3;2067;2068;2069;, - 3;2070;2071;2072;, - 3;2073;2074;2075;, - 3;2076;2077;2078;, - 3;2079;2080;2081;, - 3;2082;2083;2084;, - 3;2085;2086;2087;, - 3;2088;2089;2090;, - 3;2091;2092;2093;, - 3;2094;2095;2096;, - 3;2097;2098;2099;, - 3;2100;2101;2102;, - 3;2103;2104;2105;, - 3;2106;2107;2108;, - 3;2109;2110;2111;, - 3;2112;2113;2114;, - 3;2115;2116;2117;, - 3;2118;2119;2120;, - 3;2121;2122;2123;, - 3;2124;2125;2126;, - 3;2127;2128;2129;, - 3;2130;2131;2132;, - 3;2133;2134;2135;, - 3;2136;2137;2138;, - 3;2139;2140;2141;, - 3;2142;2143;2144;, - 3;2145;2146;2147;, - 3;2148;2149;2150;, - 3;2151;2152;2153;, - 3;2154;2155;2156;, - 3;2157;2158;2159;, - 3;2160;2161;2162;, - 3;2163;2164;2165;, - 3;2166;2167;2168;, - 3;2169;2170;2171;, - 3;2172;2173;2174;, - 3;2175;2176;2177;, - 3;2178;2179;2180;, - 3;2181;2182;2183;, - 3;2184;2185;2186;, - 3;2187;2188;2189;, - 3;2190;2191;2192;, - 3;2193;2194;2195;, - 3;2196;2197;2198;, - 3;2199;2200;2201;, - 3;2202;2203;2204;, - 3;2205;2206;2207;, - 3;2208;2209;2210;, - 3;2211;2212;2213;, - 3;2214;2215;2216;, - 3;2217;2218;2219;, - 3;2220;2221;2222;, - 3;2223;2224;2225;, - 3;2226;2227;2228;, - 3;2229;2230;2231;, - 3;2232;2233;2234;, - 3;2235;2236;2237;, - 3;2238;2239;2240;, - 3;2241;2242;2243;, - 3;2244;2245;2246;, - 3;2247;2248;2249;, - 3;2250;2251;2252;, - 3;2253;2254;2255;, - 3;2256;2257;2258;, - 3;2259;2260;2261;, - 3;2262;2263;2264;, - 3;2265;2266;2267;, - 3;2268;2269;2270;, - 3;2271;2272;2273;, - 3;2274;2275;2276;, - 3;2277;2278;2279;, - 3;2280;2281;2282;, - 3;2283;2284;2285;, - 3;2286;2287;2288;, - 3;2289;2290;2291;, - 3;2292;2293;2294;, - 3;2295;2296;2297;, - 3;2298;2299;2300;, - 3;2301;2302;2303;, - 3;2304;2305;2306;, - 3;2307;2308;2309;, - 3;2310;2311;2312;, - 3;2313;2314;2315;, - 3;2316;2317;2318;, - 3;2319;2320;2321;, - 3;2322;2323;2324;, - 3;2325;2326;2327;, - 3;2328;2329;2330;, - 3;2331;2332;2333;, - 3;2334;2335;2336;, - 3;2337;2338;2339;, - 3;2340;2341;2342;, - 3;2343;2344;2345;, - 3;2346;2347;2348;, - 3;2349;2350;2351;, - 3;2352;2353;2354;, - 3;2355;2356;2357;, - 3;2358;2359;2360;, - 3;2361;2362;2363;, - 3;2364;2365;2366;, - 3;2367;2368;2369;, - 3;2370;2371;2372;, - 3;2373;2374;2375;, - 3;2376;2377;2378;, - 3;2379;2380;2381;, - 3;2382;2383;2384;, - 3;2385;2386;2387;, - 3;2388;2389;2390;, - 3;2391;2392;2393;, - 3;2394;2395;2396;, - 3;2397;2398;2399;, - 3;2400;2401;2402;, - 3;2403;2404;2405;, - 3;2406;2407;2408;, - 3;2409;2410;2411;, - 3;2412;2413;2414;, - 3;2415;2416;2417;, - 3;2418;2419;2420;, - 3;2421;2422;2423;, - 3;2424;2425;2426;, - 3;2427;2428;2429;, - 3;2430;2431;2432;, - 3;2433;2434;2435;, - 3;2436;2437;2438;, - 3;2439;2440;2441;, - 3;2442;2443;2444;, - 3;2445;2446;2447;, - 3;2448;2449;2450;, - 3;2451;2452;2453;, - 3;2454;2455;2456;, - 3;2457;2458;2459;, - 3;2460;2461;2462;, - 3;2463;2464;2465;, - 3;2466;2467;2468;, - 3;2469;2470;2471;, - 3;2472;2473;2474;, - 3;2475;2476;2477;, - 3;2478;2479;2480;, - 3;2481;2482;2483;, - 3;2484;2485;2486;, - 3;2487;2488;2489;, - 3;2490;2491;2492;, - 3;2493;2494;2495;, - 3;2496;2497;2498;, - 3;2499;2500;2501;, - 3;2502;2503;2504;, - 3;2505;2506;2507;, - 3;2508;2509;2510;, - 3;2511;2512;2513;, - 3;2514;2515;2516;, - 3;2517;2518;2519;, - 3;2520;2521;2522;, - 3;2523;2524;2525;, - 3;2526;2527;2528;, - 3;2529;2530;2531;, - 3;2532;2533;2534;, - 3;2535;2536;2537;, - 3;2538;2539;2540;, - 3;2541;2542;2543;, - 3;2544;2545;2546;, - 3;2547;2548;2549;, - 3;2550;2551;2552;, - 3;2553;2554;2555;, - 3;2556;2557;2558;, - 3;2559;2560;2561;, - 3;2562;2563;2564;, - 3;2565;2566;2567;, - 3;2568;2569;2570;, - 3;2571;2572;2573;, - 3;2574;2575;2576;, - 3;2577;2578;2579;, - 3;2580;2581;2582;, - 3;2583;2584;2585;, - 3;2586;2587;2588;, - 3;2589;2590;2591;, - 3;2592;2593;2594;, - 3;2595;2596;2597;, - 3;2598;2599;2600;, - 3;2601;2602;2603;, - 3;2604;2605;2606;, - 3;2607;2608;2609;, - 3;2610;2611;2612;, - 3;2613;2614;2615;, - 3;2616;2617;2618;, - 3;2619;2620;2621;, - 3;2622;2623;2624;, - 3;2625;2626;2627;, - 3;2628;2629;2630;, - 3;2631;2632;2633;, - 3;2634;2635;2636;, - 3;2637;2638;2639;, - 3;2640;2641;2642;, - 3;2643;2644;2645;, - 3;2646;2647;2648;, - 3;2649;2650;2651;, - 3;2652;2653;2654;, - 3;2655;2656;2657;, - 3;2658;2659;2660;, - 3;2661;2662;2663;, - 3;2664;2665;2666;, - 3;2667;2668;2669;, - 3;2670;2671;2672;, - 3;2673;2674;2675;, - 3;2676;2677;2678;, - 3;2679;2680;2681;, - 3;2682;2683;2684;, - 3;2685;2686;2687;, - 3;2688;2689;2690;, - 3;2691;2692;2693;, - 3;2694;2695;2696;, - 3;2697;2698;2699;, - 3;2700;2701;2702;, - 3;2703;2704;2705;, - 3;2706;2707;2708;, - 3;2709;2710;2711;, - 3;2712;2713;2714;, - 3;2715;2716;2717;, - 3;2718;2719;2720;, - 3;2721;2722;2723;, - 3;2724;2725;2726;, - 3;2727;2728;2729;, - 3;2730;2731;2732;, - 3;2733;2734;2735;, - 3;2736;2737;2738;, - 3;2739;2740;2741;, - 3;2742;2743;2744;, - 3;2745;2746;2747;, - 3;2748;2749;2750;, - 3;2751;2752;2753;, - 3;2754;2755;2756;, - 3;2757;2758;2759;, - 3;2760;2761;2762;, - 3;2763;2764;2765;, - 3;2766;2767;2768;, - 3;2769;2770;2771;, - 3;2772;2773;2774;, - 3;2775;2776;2777;, - 3;2778;2779;2780;, - 3;2781;2782;2783;, - 3;2784;2785;2786;, - 3;2787;2788;2789;, - 3;2790;2791;2792;, - 3;2793;2794;2795;, - 3;2796;2797;2798;, - 3;2799;2800;2801;, - 3;2802;2803;2804;, - 3;2805;2806;2807;, - 3;2808;2809;2810;, - 3;2811;2812;2813;, - 3;2814;2815;2816;, - 3;2817;2818;2819;, - 3;2820;2821;2822;, - 3;2823;2824;2825;, - 3;2826;2827;2828;, - 3;2829;2830;2831;, - 3;2832;2833;2834;, - 3;2835;2836;2837;, - 3;2838;2839;2840;, - 3;2841;2842;2843;, - 3;2844;2845;2846;, - 3;2847;2848;2849;, - 3;2850;2851;2852;, - 3;2853;2854;2855;, - 3;2856;2857;2858;, - 3;2859;2860;2861;, - 3;2862;2863;2864;, - 3;2865;2866;2867;, - 3;2868;2869;2870;, - 3;2871;2872;2873;, - 3;2874;2875;2876;, - 3;2877;2878;2879;, - 3;2880;2881;2882;, - 3;2883;2884;2885;, - 3;2886;2887;2888;, - 3;2889;2890;2891;, - 3;2892;2893;2894;, - 3;2895;2896;2897;, - 3;2898;2899;2900;, - 3;2901;2902;2903;, - 3;2904;2905;2906;, - 3;2907;2908;2909;, - 3;2910;2911;2912;, - 3;2913;2914;2915;, - 3;2916;2917;2918;, - 3;2919;2920;2921;, - 3;2922;2923;2924;, - 3;2925;2926;2927;, - 3;2928;2929;2930;, - 3;2931;2932;2933;, - 3;2934;2935;2936;, - 3;2937;2938;2939;, - 3;2940;2941;2942;, - 3;2943;2944;2945;, - 3;2946;2947;2948;, - 3;2949;2950;2951;, - 3;2952;2953;2954;, - 3;2955;2956;2957;, - 3;2958;2959;2960;, - 3;2961;2962;2963;, - 3;2964;2965;2966;, - 3;2967;2968;2969;, - 3;2970;2971;2972;, - 3;2973;2974;2975;, - 3;2976;2977;2978;, - 3;2979;2980;2981;, - 3;2982;2983;2984;, - 3;2985;2986;2987;, - 3;2988;2989;2990;, - 3;2991;2992;2993;, - 3;2994;2995;2996;, - 3;2997;2998;2999;, - 3;3000;3001;3002;, - 3;3003;3004;3005;, - 3;3006;3007;3008;, - 3;3009;3010;3011;, - 3;3012;3013;3014;, - 3;3015;3016;3017;, - 3;3018;3019;3020;, - 3;3021;3022;3023;, - 3;3024;3025;3026;, - 3;3027;3028;3029;, - 3;3030;3031;3032;, - 3;3033;3034;3035;, - 3;3036;3037;3038;, - 3;3039;3040;3041;, - 3;3042;3043;3044;, - 3;3045;3046;3047;, - 3;3048;3049;3050;, - 3;3051;3052;3053;, - 3;3054;3055;3056;, - 3;3057;3058;3059;, - 3;3060;3061;3062;, - 3;3063;3064;3065;, - 3;3066;3067;3068;, - 3;3069;3070;3071;, - 3;3072;3073;3074;, - 3;3075;3076;3077;, - 3;3078;3079;3080;, - 3;3081;3082;3083;, - 3;3084;3085;3086;, - 3;3087;3088;3089;, - 3;3090;3091;3092;, - 3;3093;3094;3095;, - 3;3096;3097;3098;, - 3;3099;3100;3101;, - 3;3102;3103;3104;, - 3;3105;3106;3107;, - 3;3108;3109;3110;, - 3;3111;3112;3113;, - 3;3114;3115;3116;, - 3;3117;3118;3119;, - 3;3120;3121;3122;, - 3;3123;3124;3125;, - 3;3126;3127;3128;, - 3;3129;3130;3131;, - 3;3132;3133;3134;, - 3;3135;3136;3137;, - 3;3138;3139;3140;, - 3;3141;3142;3143;, - 3;3144;3145;3146;, - 3;3147;3148;3149;, - 3;3150;3151;3152;, - 3;3153;3154;3155;, - 3;3156;3157;3158;, - 3;3159;3160;3161;, - 3;3162;3163;3164;, - 3;3165;3166;3167;, - 3;3168;3169;3170;, - 3;3171;3172;3173;, - 3;3174;3175;3176;, - 3;3177;3178;3179;, - 3;3180;3181;3182;, - 3;3183;3184;3185;, - 3;3186;3187;3188;, - 3;3189;3190;3191;, - 3;3192;3193;3194;, - 3;3195;3196;3197;, - 3;3198;3199;3200;, - 3;3201;3202;3203;, - 3;3204;3205;3206;, - 3;3207;3208;3209;, - 3;3210;3211;3212;, - 3;3213;3214;3215;, - 3;3216;3217;3218;, - 3;3219;3220;3221;, - 3;3222;3223;3224;, - 3;3225;3226;3227;, - 3;3228;3229;3230;, - 3;3231;3232;3233;, - 3;3234;3235;3236;, - 3;3237;3238;3239;, - 3;3240;3241;3242;, - 3;3243;3244;3245;, - 3;3246;3247;3248;, - 3;3249;3250;3251;, - 3;3252;3253;3254;, - 3;3255;3256;3257;, - 3;3258;3259;3260;, - 3;3261;3262;3263;, - 3;3264;3265;3266;, - 3;3267;3268;3269;, - 3;3270;3271;3272;, - 3;3273;3274;3275;, - 3;3276;3277;3278;, - 3;3279;3280;3281;, - 3;3282;3283;3284;, - 3;3285;3286;3287;, - 3;3288;3289;3290;, - 3;3291;3292;3293;, - 3;3294;3295;3296;, - 3;3297;3298;3299;, - 3;3300;3301;3302;, - 3;3303;3304;3305;, - 3;3306;3307;3308;, - 3;3309;3310;3311;, - 3;3312;3313;3314;, - 3;3315;3316;3317;, - 3;3318;3319;3320;, - 3;3321;3322;3323;, - 3;3324;3325;3326;, - 3;3327;3328;3329;, - 3;3330;3331;3332;, - 3;3333;3334;3335;, - 3;3336;3337;3338;, - 3;3339;3340;3341;, - 3;3342;3343;3344;, - 3;3345;3346;3347;, - 3;3348;3349;3350;, - 3;3351;3352;3353;, - 3;3354;3355;3356;, - 3;3357;3358;3359;, - 3;3360;3361;3362;, - 3;3363;3364;3365;, - 3;3366;3367;3368;, - 3;3369;3370;3371;, - 3;3372;3373;3374;, - 3;3375;3376;3377;, - 3;3378;3379;3380;, - 3;3381;3382;3383;, - 3;3384;3385;3386;, - 3;3387;3388;3389;, - 3;3390;3391;3392;, - 3;3393;3394;3395;, - 3;3396;3397;3398;, - 3;3399;3400;3401;, - 3;3402;3403;3404;, - 3;3405;3406;3407;, - 3;3408;3409;3410;, - 3;3411;3412;3413;, - 3;3414;3415;3416;, - 3;3417;3418;3419;, - 3;3420;3421;3422;, - 3;3423;3424;3425;, - 3;3426;3427;3428;, - 3;3429;3430;3431;, - 3;3432;3433;3434;, - 3;3435;3436;3437;, - 3;3438;3439;3440;, - 3;3441;3442;3443;, - 3;3444;3445;3446;, - 3;3447;3448;3449;, - 3;3450;3451;3452;, - 3;3453;3454;3455;, - 3;3456;3457;3458;, - 3;3459;3460;3461;, - 3;3462;3463;3464;, - 3;3465;3466;3467;, - 3;3468;3469;3470;, - 3;3471;3472;3473;, - 3;3474;3475;3476;, - 3;3477;3478;3479;, - 3;3480;3481;3482;, - 3;3483;3484;3485;, - 3;3486;3487;3488;, - 3;3489;3490;3491;, - 3;3492;3493;3494;, - 3;3495;3496;3497;, - 3;3498;3499;3500;, - 3;3501;3502;3503;, - 3;3504;3505;3506;, - 3;3507;3508;3509;, - 3;3510;3511;3512;, - 3;3513;3514;3515;, - 3;3516;3517;3518;, - 3;3519;3520;3521;, - 3;3522;3523;3524;, - 3;3525;3526;3527;, - 3;3528;3529;3530;, - 3;3531;3532;3533;, - 3;3534;3535;3536;, - 3;3537;3538;3539;, - 3;3540;3541;3542;, - 3;3543;3544;3545;, - 3;3546;3547;3548;, - 3;3549;3550;3551;, - 3;3552;3553;3554;, - 3;3555;3556;3557;, - 3;3558;3559;3560;, - 3;3561;3562;3563;, - 3;3564;3565;3566;, - 3;3567;3568;3569;, - 3;3570;3571;3572;, - 3;3573;3574;3575;, - 3;3576;3577;3578;, - 3;3579;3580;3581;, - 3;3582;3583;3584;, - 3;3585;3586;3587;, - 3;3588;3589;3590;, - 3;3591;3592;3593;, - 3;3594;3595;3596;, - 3;3597;3598;3599;, - 3;3600;3601;3602;, - 3;3603;3604;3605;, - 3;3606;3607;3608;, - 3;3609;3610;3611;, - 3;3612;3613;3614;, - 3;3615;3616;3617;, - 3;3618;3619;3620;, - 3;3621;3622;3623;, - 3;3624;3625;3626;, - 3;3627;3628;3629;, - 3;3630;3631;3632;, - 3;3633;3634;3635;, - 3;3636;3637;3638;, - 3;3639;3640;3641;, - 3;3642;3643;3644;, - 3;3645;3646;3647;, - 3;3648;3649;3650;, - 3;3651;3652;3653;, - 3;3654;3655;3656;, - 3;3657;3658;3659;, - 3;3660;3661;3662;, - 3;3663;3664;3665;, - 3;3666;3667;3668;, - 3;3669;3670;3671;, - 3;3672;3673;3674;, - 3;3675;3676;3677;, - 3;3678;3679;3680;, - 3;3681;3682;3683;, - 3;3684;3685;3686;, - 3;3687;3688;3689;, - 3;3690;3691;3692;, - 3;3693;3694;3695;, - 3;3696;3697;3698;, - 3;3699;3700;3701;, - 3;3702;3703;3704;, - 3;3705;3706;3707;, - 3;3708;3709;3710;, - 3;3711;3712;3713;, - 3;3714;3715;3716;, - 3;3717;3718;3719;, - 3;3720;3721;3722;, - 3;3723;3724;3725;, - 3;3726;3727;3728;, - 3;3729;3730;3731;, - 3;3732;3733;3734;, - 3;3735;3736;3737;, - 3;3738;3739;3740;, - 3;3741;3742;3743;, - 3;3744;3745;3746;, - 3;3747;3748;3749;, - 3;3750;3751;3752;, - 3;3753;3754;3755;, - 3;3756;3757;3758;, - 3;3759;3760;3761;, - 3;3762;3763;3764;, - 3;3765;3766;3767;, - 3;3768;3769;3770;, - 3;3771;3772;3773;, - 3;3774;3775;3776;, - 3;3777;3778;3779;, - 3;3780;3781;3782;, - 3;3783;3784;3785;, - 3;3786;3787;3788;, - 3;3789;3790;3791;, - 3;3792;3793;3794;, - 3;3795;3796;3797;, - 3;3798;3799;3800;, - 3;3801;3802;3803;, - 3;3804;3805;3806;, - 3;3807;3808;3809;, - 3;3810;3811;3812;, - 3;3813;3814;3815;, - 3;3816;3817;3818;, - 3;3819;3820;3821;, - 3;3822;3823;3824;, - 3;3825;3826;3827;, - 3;3828;3829;3830;, - 3;3831;3832;3833;, - 3;3834;3835;3836;, - 3;3837;3838;3839;, - 3;3840;3841;3842;, - 3;3843;3844;3845;, - 3;3846;3847;3848;, - 3;3849;3850;3851;, - 3;3852;3853;3854;, - 3;3855;3856;3857;, - 3;3858;3859;3860;, - 3;3861;3862;3863;, - 3;3864;3865;3866;, - 3;3867;3868;3869;, - 3;3870;3871;3872;, - 3;3873;3874;3875;, - 3;3876;3877;3878;, - 3;3879;3880;3881;, - 3;3882;3883;3884;, - 3;3885;3886;3887;, - 3;3888;3889;3890;, - 3;3891;3892;3893;, - 3;3894;3895;3896;, - 3;3897;3898;3899;, - 3;3900;3901;3902;, - 3;3903;3904;3905;, - 3;3906;3907;3908;, - 3;3909;3910;3911;, - 3;3912;3913;3914;, - 3;3915;3916;3917;, - 3;3918;3919;3920;, - 3;3921;3922;3923;, - 3;3924;3925;3926;, - 3;3927;3928;3929;, - 3;3930;3931;3932;, - 3;3933;3934;3935;, - 3;3936;3937;3938;, - 3;3939;3940;3941;, - 3;3942;3943;3944;, - 3;3945;3946;3947;, - 3;3948;3949;3950;, - 3;3951;3952;3953;, - 3;3954;3955;3956;, - 3;3957;3958;3959;, - 3;3960;3961;3962;, - 3;3963;3964;3965;, - 3;3966;3967;3968;, - 3;3969;3970;3971;, - 3;3972;3973;3974;, - 3;3975;3976;3977;, - 3;3978;3979;3980;, - 3;3981;3982;3983;, - 3;3984;3985;3986;, - 3;3987;3988;3989;, - 3;3990;3991;3992;, - 3;3993;3994;3995;, - 3;3996;3997;3998;, - 3;3999;4000;4001;, - 3;4002;4003;4004;, - 3;4005;4006;4007;, - 3;4008;4009;4010;, - 3;4011;4012;4013;, - 3;4014;4015;4016;, - 3;4017;4018;4019;, - 3;4020;4021;4022;, - 3;4023;4024;4025;, - 3;4026;4027;4028;, - 3;4029;4030;4031;, - 3;4032;4033;4034;, - 3;4035;4036;4037;, - 3;4038;4039;4040;, - 3;4041;4042;4043;, - 3;4044;4045;4046;, - 3;4047;4048;4049;, - 3;4050;4051;4052;, - 3;4053;4054;4055;, - 3;4056;4057;4058;, - 3;4059;4060;4061;, - 3;4062;4063;4064;, - 3;4065;4066;4067;, - 3;4068;4069;4070;, - 3;4071;4072;4073;, - 3;4074;4075;4076;, - 3;4077;4078;4079;, - 3;4080;4081;4082;, - 3;4083;4084;4085;, - 3;4086;4087;4088;, - 3;4089;4090;4091;, - 3;4092;4093;4094;, - 3;4095;4096;4097;, - 3;4098;4099;4100;, - 3;4101;4102;4103;, - 3;4104;4105;4106;, - 3;4107;4108;4109;, - 3;4110;4111;4112;, - 3;4113;4114;4115;, - 3;4116;4117;4118;, - 3;4119;4120;4121;, - 3;4122;4123;4124;, - 3;4125;4126;4127;, - 3;4128;4129;4130;, - 3;4131;4132;4133;, - 3;4134;4135;4136;, - 3;4137;4138;4139;, - 3;4140;4141;4142;, - 3;4143;4144;4145;, - 3;4146;4147;4148;, - 3;4149;4150;4151;, - 3;4152;4153;4154;, - 3;4155;4156;4157;, - 3;4158;4159;4160;, - 3;4161;4162;4163;, - 3;4164;4165;4166;, - 3;4167;4168;4169;, - 3;4170;4171;4172;, - 3;4173;4174;4175;, - 3;4176;4177;4178;, - 3;4179;4180;4181;, - 3;4182;4183;4184;, - 3;4185;4186;4187;, - 3;4188;4189;4190;, - 3;4191;4192;4193;, - 3;4194;4195;4196;, - 3;4197;4198;4199;, - 3;4200;4201;4202;, - 3;4203;4204;4205;, - 3;4206;4207;4208;, - 3;4209;4210;4211;, - 3;4212;4213;4214;, - 3;4215;4216;4217;, - 3;4218;4219;4220;, - 3;4221;4222;4223;, - 3;4224;4225;4226;, - 3;4227;4228;4229;, - 3;4230;4231;4232;, - 3;4233;4234;4235;, - 3;4236;4237;4238;, - 3;4239;4240;4241;, - 3;4242;4243;4244;, - 3;4245;4246;4247;, - 3;4248;4249;4250;, - 3;4251;4252;4253;, - 3;4254;4255;4256;, - 3;4257;4258;4259;, - 3;4260;4261;4262;, - 3;4263;4264;4265;, - 3;4266;4267;4268;, - 3;4269;4270;4271;, - 3;4272;4273;4274;, - 3;4275;4276;4277;, - 3;4278;4279;4280;, - 3;4281;4282;4283;, - 3;4284;4285;4286;, - 3;4287;4288;4289;, - 3;4290;4291;4292;, - 3;4293;4294;4295;, - 3;4296;4297;4298;, - 3;4299;4300;4301;, - 3;4302;4303;4304;, - 3;4305;4306;4307;, - 3;4308;4309;4310;, - 3;4311;4312;4313;, - 3;4314;4315;4316;, - 3;4317;4318;4319;, - 3;4320;4321;4322;, - 3;4323;4324;4325;, - 3;4326;4327;4328;, - 3;4329;4330;4331;, - 3;4332;4333;4334;, - 3;4335;4336;4337;, - 3;4338;4339;4340;, - 3;4341;4342;4343;, - 3;4344;4345;4346;, - 3;4347;4348;4349;, - 3;4350;4351;4352;, - 3;4353;4354;4355;, - 3;4356;4357;4358;, - 3;4359;4360;4361;, - 3;4362;4363;4364;, - 3;4365;4366;4367;, - 3;4368;4369;4370;, - 3;4371;4372;4373;, - 3;4374;4375;4376;, - 3;4377;4378;4379;, - 3;4380;4381;4382;, - 3;4383;4384;4385;, - 3;4386;4387;4388;, - 3;4389;4390;4391;, - 3;4392;4393;4394;, - 3;4395;4396;4397;, - 3;4398;4399;4400;, - 3;4401;4402;4403;, - 3;4404;4405;4406;, - 3;4407;4408;4409;, - 3;4410;4411;4412;, - 3;4413;4414;4415;, - 3;4416;4417;4418;, - 3;4419;4420;4421;, - 3;4422;4423;4424;, - 3;4425;4426;4427;, - 3;4428;4429;4430;, - 3;4431;4432;4433;, - 3;4434;4435;4436;, - 3;4437;4438;4439;, - 3;4440;4441;4442;, - 3;4443;4444;4445;, - 3;4446;4447;4448;, - 3;4449;4450;4451;, - 3;4452;4453;4454;, - 3;4455;4456;4457;, - 3;4458;4459;4460;, - 3;4461;4462;4463;, - 3;4464;4465;4466;, - 3;4467;4468;4469;, - 3;4470;4471;4472;, - 3;4473;4474;4475;, - 3;4476;4477;4478;, - 3;4479;4480;4481;, - 3;4482;4483;4484;, - 3;4485;4486;4487;, - 3;4488;4489;4490;, - 3;4491;4492;4493;, - 3;4494;4495;4496;, - 3;4497;4498;4499;, - 3;4500;4501;4502;, - 3;4503;4504;4505;, - 3;4506;4507;4508;, - 3;4509;4510;4511;, - 3;4512;4513;4514;, - 3;4515;4516;4517;, - 3;4518;4519;4520;, - 3;4521;4522;4523;, - 3;4524;4525;4526;, - 3;4527;4528;4529;, - 3;4530;4531;4532;, - 3;4533;4534;4535;, - 3;4536;4537;4538;, - 3;4539;4540;4541;, - 3;4542;4543;4544;, - 3;4545;4546;4547;, - 3;4548;4549;4550;, - 3;4551;4552;4553;, - 3;4554;4555;4556;, - 3;4557;4558;4559;, - 3;4560;4561;4562;, - 3;4563;4564;4565;, - 3;4566;4567;4568;, - 3;4569;4570;4571;, - 3;4572;4573;4574;, - 3;4575;4576;4577;, - 3;4578;4579;4580;, - 3;4581;4582;4583;, - 3;4584;4585;4586;, - 3;4587;4588;4589;, - 3;4590;4591;4592;, - 3;4593;4594;4595;, - 3;4596;4597;4598;, - 3;4599;4600;4601;, - 3;4602;4603;4604;, - 3;4605;4606;4607;, - 3;4608;4609;4610;, - 3;4611;4612;4613;, - 3;4614;4615;4616;, - 3;4617;4618;4619;, - 3;4620;4621;4622;, - 3;4623;4624;4625;, - 3;4626;4627;4628;, - 3;4629;4630;4631;, - 3;4632;4633;4634;, - 3;4635;4636;4637;, - 3;4638;4639;4640;, - 3;4641;4642;4643;, - 3;4644;4645;4646;, - 3;4647;4648;4649;, - 3;4650;4651;4652;, - 3;4653;4654;4655;, - 3;4656;4657;4658;, - 3;4659;4660;4661;, - 3;4662;4663;4664;, - 3;4665;4666;4667;, - 3;4668;4669;4670;, - 3;4671;4672;4673;, - 3;4674;4675;4676;, - 3;4677;4678;4679;, - 3;4680;4681;4682;, - 3;4683;4684;4685;, - 3;4686;4687;4688;, - 3;4689;4690;4691;, - 3;4692;4693;4694;, - 3;4695;4696;4697;, - 3;4698;4699;4700;, - 3;4701;4702;4703;, - 3;4704;4705;4706;, - 3;4707;4708;4709;, - 3;4710;4711;4712;, - 3;4713;4714;4715;, - 3;4716;4717;4718;, - 3;4719;4720;4721;, - 3;4722;4723;4724;, - 3;4725;4726;4727;, - 3;4728;4729;4730;, - 3;4731;4732;4733;, - 3;4734;4735;4736;, - 3;4737;4738;4739;, - 3;4740;4741;4742;, - 3;4743;4744;4745;, - 3;4746;4747;4748;, - 3;4749;4750;4751;, - 3;4752;4753;4754;, - 3;4755;4756;4757;, - 3;4758;4759;4760;, - 3;4761;4762;4763;, - 3;4764;4765;4766;, - 3;4767;4768;4769;, - 3;4770;4771;4772;, - 3;4773;4774;4775;, - 3;4776;4777;4778;, - 3;4779;4780;4781;, - 3;4782;4783;4784;, - 3;4785;4786;4787;, - 3;4788;4789;4790;, - 3;4791;4792;4793;, - 3;4794;4795;4796;, - 3;4797;4798;4799;, - 3;4800;4801;4802;, - 3;4803;4804;4805;, - 3;4806;4807;4808;, - 3;4809;4810;4811;, - 3;4812;4813;4814;, - 3;4815;4816;4817;, - 3;4818;4819;4820;, - 3;4821;4822;4823;, - 3;4824;4825;4826;, - 3;4827;4828;4829;, - 3;4830;4831;4832;, - 3;4833;4834;4835;, - 3;4836;4837;4838;, - 3;4839;4840;4841;, - 3;4842;4843;4844;, - 3;4845;4846;4847;, - 3;4848;4849;4850;, - 3;4851;4852;4853;, - 3;4854;4855;4856;, - 3;4857;4858;4859;, - 3;4860;4861;4862;, - 3;4863;4864;4865;, - 3;4866;4867;4868;, - 3;4869;4870;4871;, - 3;4872;4873;4874;, - 3;4875;4876;4877;, - 3;4878;4879;4880;, - 3;4881;4882;4883;, - 3;4884;4885;4886;, - 3;4887;4888;4889;, - 3;4890;4891;4892;, - 3;4893;4894;4895;, - 3;4896;4897;4898;, - 3;4899;4900;4901;, - 3;4902;4903;4904;, - 3;4905;4906;4907;, - 3;4908;4909;4910;, - 3;4911;4912;4913;, - 3;4914;4915;4916;, - 3;4917;4918;4919;, - 3;4920;4921;4922;, - 3;4923;4924;4925;, - 3;4926;4927;4928;, - 3;4929;4930;4931;, - 3;4932;4933;4934;, - 3;4935;4936;4937;, - 3;4938;4939;4940;, - 3;4941;4942;4943;, - 3;4944;4945;4946;, - 3;4947;4948;4949;, - 3;4950;4951;4952;, - 3;4953;4954;4955;, - 3;4956;4957;4958;, - 3;4959;4960;4961;, - 3;4962;4963;4964;, - 3;4965;4966;4967;, - 3;4968;4969;4970;, - 3;4971;4972;4973;, - 3;4974;4975;4976;, - 3;4977;4978;4979;, - 3;4980;4981;4982;, - 3;4983;4984;4985;, - 3;4986;4987;4988;, - 3;4989;4990;4991;, - 3;4992;4993;4994;, - 3;4995;4996;4997;, - 3;4998;4999;5000;, - 3;5001;5002;5003;, - 3;5004;5005;5006;, - 3;5007;5008;5009;, - 3;5010;5011;5012;, - 3;5013;5014;5015;, - 3;5016;5017;5018;, - 3;5019;5020;5021;, - 3;5022;5023;5024;, - 3;5025;5026;5027;, - 3;5028;5029;5030;, - 3;5031;5032;5033;, - 3;5034;5035;5036;, - 3;5037;5038;5039;, - 3;5040;5041;5042;, - 3;5043;5044;5045;, - 3;5046;5047;5048;, - 3;5049;5050;5051;, - 3;5052;5053;5054;, - 3;5055;5056;5057;, - 3;5058;5059;5060;, - 3;5061;5062;5063;, - 3;5064;5065;5066;, - 3;5067;5068;5069;, - 3;5070;5071;5072;, - 3;5073;5074;5075;, - 3;5076;5077;5078;, - 3;5079;5080;5081;, - 3;5082;5083;5084;, - 3;5085;5086;5087;, - 3;5088;5089;5090;, - 3;5091;5092;5093;, - 3;5094;5095;5096;, - 3;5097;5098;5099;, - 3;5100;5101;5102;, - 3;5103;5104;5105;, - 3;5106;5107;5108;, - 3;5109;5110;5111;, - 3;5112;5113;5114;, - 3;5115;5116;5117;, - 3;5118;5119;5120;, - 3;5121;5122;5123;, - 3;5124;5125;5126;, - 3;5127;5128;5129;, - 3;5130;5131;5132;, - 3;5133;5134;5135;, - 3;5136;5137;5138;, - 3;5139;5140;5141;, - 3;5142;5143;5144;, - 3;5145;5146;5147;, - 3;5148;5149;5150;, - 3;5151;5152;5153;, - 3;5154;5155;5156;, - 3;5157;5158;5159;, - 3;5160;5161;5162;, - 3;5163;5164;5165;, - 3;5166;5167;5168;, - 3;5169;5170;5171;, - 3;5172;5173;5174;, - 3;5175;5176;5177;, - 3;5178;5179;5180;, - 3;5181;5182;5183;, - 3;5184;5185;5186;, - 3;5187;5188;5189;, - 3;5190;5191;5192;, - 3;5193;5194;5195;, - 3;5196;5197;5198;, - 3;5199;5200;5201;, - 3;5202;5203;5204;, - 3;5205;5206;5207;, - 3;5208;5209;5210;, - 3;5211;5212;5213;, - 3;5214;5215;5216;, - 3;5217;5218;5219;, - 3;5220;5221;5222;, - 3;5223;5224;5225;, - 3;5226;5227;5228;, - 3;5229;5230;5231;, - 3;5232;5233;5234;, - 3;5235;5236;5237;, - 3;5238;5239;5240;, - 3;5241;5242;5243;, - 3;5244;5245;5246;, - 3;5247;5248;5249;, - 3;5250;5251;5252;, - 3;5253;5254;5255;, - 3;5256;5257;5258;, - 3;5259;5260;5261;, - 3;5262;5263;5264;, - 3;5265;5266;5267;, - 3;5268;5269;5270;, - 3;5271;5272;5273;, - 3;5274;5275;5276;, - 3;5277;5278;5279;, - 3;5280;5281;5282;, - 3;5283;5284;5285;, - 3;5286;5287;5288;, - 3;5289;5290;5291;, - 3;5292;5293;5294;, - 3;5295;5296;5297;, - 3;5298;5299;5300;, - 3;5301;5302;5303;, - 3;5304;5305;5306;, - 3;5307;5308;5309;, - 3;5310;5311;5312;, - 3;5313;5314;5315;, - 3;5316;5317;5318;, - 3;5319;5320;5321;, - 3;5322;5323;5324;, - 3;5325;5326;5327;, - 3;5328;5329;5330;, - 3;5331;5332;5333;, - 3;5334;5335;5336;, - 3;5337;5338;5339;, - 3;5340;5341;5342;, - 3;5343;5344;5345;, - 3;5346;5347;5348;, - 3;5349;5350;5351;, - 3;5352;5353;5354;, - 3;5355;5356;5357;, - 3;5358;5359;5360;, - 3;5361;5362;5363;, - 3;5364;5365;5366;, - 3;5367;5368;5369;, - 3;5370;5371;5372;, - 3;5373;5374;5375;, - 3;5376;5377;5378;, - 3;5379;5380;5381;, - 3;5382;5383;5384;, - 3;5385;5386;5387;, - 3;5388;5389;5390;, - 3;5391;5392;5393;, - 3;5394;5395;5396;, - 3;5397;5398;5399;, - 3;5400;5401;5402;, - 3;5403;5404;5405;, - 3;5406;5407;5408;, - 3;5409;5410;5411;, - 3;5412;5413;5414;, - 3;5415;5416;5417;, - 3;5418;5419;5420;, - 3;5421;5422;5423;, - 3;5424;5425;5426;, - 3;5427;5428;5429;, - 3;5430;5431;5432;, - 3;5433;5434;5435;, - 3;5436;5437;5438;, - 3;5439;5440;5441;, - 3;5442;5443;5444;, - 3;5445;5446;5447;, - 3;5448;5449;5450;, - 3;5451;5452;5453;, - 3;5454;5455;5456;, - 3;5457;5458;5459;, - 3;5460;5461;5462;, - 3;5463;5464;5465;, - 3;5466;5467;5468;, - 3;5469;5470;5471;, - 3;5472;5473;5474;, - 3;5475;5476;5477;, - 3;5478;5479;5480;, - 3;5481;5482;5483;, - 3;5484;5485;5486;, - 3;5487;5488;5489;, - 3;5490;5491;5492;, - 3;5493;5494;5495;, - 3;5496;5497;5498;, - 3;5499;5500;5501;, - 3;5502;5503;5504;, - 3;5505;5506;5507;, - 3;5508;5509;5510;, - 3;5511;5512;5513;, - 3;5514;5515;5516;, - 3;5517;5518;5519;, - 3;5520;5521;5522;, - 3;5523;5524;5525;, - 3;5526;5527;5528;, - 3;5529;5530;5531;, - 3;5532;5533;5534;, - 3;5535;5536;5537;, - 3;5538;5539;5540;, - 3;5541;5542;5543;, - 3;5544;5545;5546;, - 3;5547;5548;5549;, - 3;5550;5551;5552;, - 3;5553;5554;5555;, - 3;5556;5557;5558;, - 3;5559;5560;5561;, - 3;5562;5563;5564;, - 3;5565;5566;5567;, - 3;5568;5569;5570;, - 3;5571;5572;5573;, - 3;5574;5575;5576;, - 3;5577;5578;5579;, - 3;5580;5581;5582;, - 3;5583;5584;5585;, - 3;5586;5587;5588;, - 3;5589;5590;5591;, - 3;5592;5593;5594;, - 3;5595;5596;5597;, - 3;5598;5599;5600;, - 3;5601;5602;5603;, - 3;5604;5605;5606;, - 3;5607;5608;5609;, - 3;5610;5611;5612;, - 3;5613;5614;5615;, - 3;5616;5617;5618;, - 3;5619;5620;5621;, - 3;5622;5623;5624;, - 3;5625;5626;5627;, - 3;5628;5629;5630;, - 3;5631;5632;5633;, - 3;5634;5635;5636;, - 3;5637;5638;5639;, - 3;5640;5641;5642;, - 3;5643;5644;5645;, - 3;5646;5647;5648;, - 3;5649;5650;5651;, - 3;5652;5653;5654;, - 3;5655;5656;5657;, - 3;5658;5659;5660;, - 3;5661;5662;5663;, - 3;5664;5665;5666;, - 3;5667;5668;5669;, - 3;5670;5671;5672;, - 3;5673;5674;5675;, - 3;5676;5677;5678;, - 3;5679;5680;5681;, - 3;5682;5683;5684;, - 3;5685;5686;5687;, - 3;5688;5689;5690;, - 3;5691;5692;5693;, - 3;5694;5695;5696;, - 3;5697;5698;5699;, - 3;5700;5701;5702;, - 3;5703;5704;5705;, - 3;5706;5707;5708;, - 3;5709;5710;5711;, - 3;5712;5713;5714;, - 3;5715;5716;5717;, - 3;5718;5719;5720;, - 3;5721;5722;5723;, - 3;5724;5725;5726;, - 3;5727;5728;5729;, - 3;5730;5731;5732;, - 3;5733;5734;5735;, - 3;5736;5737;5738;, - 3;5739;5740;5741;, - 3;5742;5743;5744;, - 3;5745;5746;5747;, - 3;5748;5749;5750;, - 3;5751;5752;5753;, - 3;5754;5755;5756;, - 3;5757;5758;5759;, - 3;5760;5761;5762;, - 3;5763;5764;5765;, - 3;5766;5767;5768;, - 3;5769;5770;5771;, - 3;5772;5773;5774;, - 3;5775;5776;5777;, - 3;5778;5779;5780;, - 3;5781;5782;5783;, - 3;5784;5785;5786;, - 3;5787;5788;5789;, - 3;5790;5791;5792;, - 3;5793;5794;5795;, - 3;5796;5797;5798;, - 3;5799;5800;5801;, - 3;5802;5803;5804;, - 3;5805;5806;5807;, - 3;5808;5809;5810;, - 3;5811;5812;5813;, - 3;5814;5815;5816;, - 3;5817;5818;5819;, - 3;5820;5821;5822;, - 3;5823;5824;5825;, - 3;5826;5827;5828;, - 3;5829;5830;5831;, - 3;5832;5833;5834;, - 3;5835;5836;5837;, - 3;5838;5839;5840;, - 3;5841;5842;5843;, - 3;5844;5845;5846;, - 3;5847;5848;5849;, - 3;5850;5851;5852;, - 3;5853;5854;5855;, - 3;5856;5857;5858;, - 3;5859;5860;5861;, - 3;5862;5863;5864;, - 3;5865;5866;5867;, - 3;5868;5869;5870;, - 3;5871;5872;5873;, - 3;5874;5875;5876;, - 3;5877;5878;5879;, - 3;5880;5881;5882;, - 3;5883;5884;5885;, - 3;5886;5887;5888;, - 3;5889;5890;5891;, - 3;5892;5893;5894;, - 3;5895;5896;5897;, - 3;5898;5899;5900;, - 3;5901;5902;5903;, - 3;5904;5905;5906;, - 3;5907;5908;5909;, - 3;5910;5911;5912;, - 3;5913;5914;5915;, - 3;5916;5917;5918;, - 3;5919;5920;5921;, - 3;5922;5923;5924;, - 3;5925;5926;5927;, - 3;5928;5929;5930;, - 3;5931;5932;5933;, - 3;5934;5935;5936;, - 3;5937;5938;5939;, - 3;5940;5941;5942;, - 3;5943;5944;5945;, - 3;5946;5947;5948;, - 3;5949;5950;5951;, - 3;5952;5953;5954;, - 3;5955;5956;5957;, - 3;5958;5959;5960;, - 3;5961;5962;5963;, - 3;5964;5965;5966;, - 3;5967;5968;5969;, - 3;5970;5971;5972;, - 3;5973;5974;5975;, - 3;5976;5977;5978;, - 3;5979;5980;5981;, - 3;5982;5983;5984;, - 3;5985;5986;5987;, - 3;5988;5989;5990;, - 3;5991;5992;5993;, - 3;5994;5995;5996;, - 3;5997;5998;5999;, - 3;6000;6001;6002;, - 3;6003;6004;6005;, - 3;6006;6007;6008;, - 3;6009;6010;6011;, - 3;6012;6013;6014;, - 3;6015;6016;6017;, - 3;6018;6019;6020;, - 3;6021;6022;6023;, - 3;6024;6025;6026;, - 3;6027;6028;6029;, - 3;6030;6031;6032;, - 3;6033;6034;6035;, - 3;6036;6037;6038;, - 3;6039;6040;6041;, - 3;6042;6043;6044;, - 3;6045;6046;6047;, - 3;6048;6049;6050;, - 3;6051;6052;6053;, - 3;6054;6055;6056;, - 3;6057;6058;6059;, - 3;6060;6061;6062;, - 3;6063;6064;6065;, - 3;6066;6067;6068;, - 3;6069;6070;6071;, - 3;6072;6073;6074;, - 3;6075;6076;6077;, - 3;6078;6079;6080;, - 3;6081;6082;6083;, - 3;6084;6085;6086;, - 3;6087;6088;6089;, - 3;6090;6091;6092;, - 3;6093;6094;6095;, - 3;6096;6097;6098;, - 3;6099;6100;6101;, - 3;6102;6103;6104;, - 3;6105;6106;6107;, - 3;6108;6109;6110;, - 3;6111;6112;6113;, - 3;6114;6115;6116;, - 3;6117;6118;6119;, - 3;6120;6121;6122;, - 3;6123;6124;6125;, - 3;6126;6127;6128;, - 3;6129;6130;6131;, - 3;6132;6133;6134;, - 3;6135;6136;6137;, - 3;6138;6139;6140;, - 3;6141;6142;6143;, - 3;6144;6145;6146;, - 3;6147;6148;6149;, - 3;6150;6151;6152;, - 3;6153;6154;6155;, - 3;6156;6157;6158;, - 3;6159;6160;6161;, - 3;6162;6163;6164;, - 3;6165;6166;6167;, - 3;6168;6169;6170;, - 3;6171;6172;6173;, - 3;6174;6175;6176;, - 3;6177;6178;6179;, - 3;6180;6181;6182;, - 3;6183;6184;6185;, - 3;6186;6187;6188;, - 3;6189;6190;6191;, - 3;6192;6193;6194;, - 3;6195;6196;6197;, - 3;6198;6199;6200;, - 3;6201;6202;6203;, - 3;6204;6205;6206;, - 3;6207;6208;6209;, - 3;6210;6211;6212;, - 3;6213;6214;6215;, - 3;6216;6217;6218;, - 3;6219;6220;6221;, - 3;6222;6223;6224;, - 3;6225;6226;6227;, - 3;6228;6229;6230;, - 3;6231;6232;6233;, - 3;6234;6235;6236;, - 3;6237;6238;6239;, - 3;6240;6241;6242;, - 3;6243;6244;6245;, - 3;6246;6247;6248;, - 3;6249;6250;6251;, - 3;6252;6253;6254;, - 3;6255;6256;6257;, - 3;6258;6259;6260;, - 3;6261;6262;6263;, - 3;6264;6265;6266;, - 3;6267;6268;6269;, - 3;6270;6271;6272;, - 3;6273;6274;6275;, - 3;6276;6277;6278;, - 3;6279;6280;6281;, - 3;6282;6283;6284;, - 3;6285;6286;6287;, - 3;6288;6289;6290;, - 3;6291;6292;6293;, - 3;6294;6295;6296;, - 3;6297;6298;6299;, - 3;6300;6301;6302;, - 3;6303;6304;6305;, - 3;6306;6307;6308;, - 3;6309;6310;6311;, - 3;6312;6313;6314;, - 3;6315;6316;6317;, - 3;6318;6319;6320;, - 3;6321;6322;6323;, - 3;6324;6325;6326;, - 3;6327;6328;6329;, - 3;6330;6331;6332;, - 3;6333;6334;6335;, - 3;6336;6337;6338;, - 3;6339;6340;6341;, - 3;6342;6343;6344;, - 3;6345;6346;6347;, - 3;6348;6349;6350;, - 3;6351;6352;6353;, - 3;6354;6355;6356;, - 3;6357;6358;6359;, - 3;6360;6361;6362;, - 3;6363;6364;6365;, - 3;6366;6367;6368;, - 3;6369;6370;6371;, - 3;6372;6373;6374;, - 3;6375;6376;6377;, - 3;6378;6379;6380;, - 3;6381;6382;6383;, - 3;6384;6385;6386;, - 3;6387;6388;6389;, - 3;6390;6391;6392;, - 3;6393;6394;6395;, - 3;6396;6397;6398;, - 3;6399;6400;6401;, - 3;6402;6403;6404;, - 3;6405;6406;6407;, - 3;6408;6409;6410;, - 3;6411;6412;6413;, - 3;6414;6415;6416;, - 3;6417;6418;6419;, - 3;6420;6421;6422;, - 3;6423;6424;6425;, - 3;6426;6427;6428;, - 3;6429;6430;6431;, - 3;6432;6433;6434;, - 3;6435;6436;6437;, - 3;6438;6439;6440;, - 3;6441;6442;6443;, - 3;6444;6445;6446;, - 3;6447;6448;6449;, - 3;6450;6451;6452;, - 3;6453;6454;6455;, - 3;6456;6457;6458;, - 3;6459;6460;6461;, - 3;6462;6463;6464;, - 3;6465;6466;6467;, - 3;6468;6469;6470;, - 3;6471;6472;6473;, - 3;6474;6475;6476;, - 3;6477;6478;6479;, - 3;6480;6481;6482;, - 3;6483;6484;6485;, - 3;6486;6487;6488;, - 3;6489;6490;6491;, - 3;6492;6493;6494;, - 3;6495;6496;6497;, - 3;6498;6499;6500;, - 3;6501;6502;6503;, - 3;6504;6505;6506;, - 3;6507;6508;6509;, - 3;6510;6511;6512;, - 3;6513;6514;6515;, - 3;6516;6517;6518;, - 3;6519;6520;6521;, - 3;6522;6523;6524;, - 3;6525;6526;6527;, - 3;6528;6529;6530;, - 3;6531;6532;6533;, - 3;6534;6535;6536;, - 3;6537;6538;6539;, - 3;6540;6541;6542;, - 3;6543;6544;6545;, - 3;6546;6547;6548;, - 3;6549;6550;6551;, - 3;6552;6553;6554;, - 3;6555;6556;6557;, - 3;6558;6559;6560;, - 3;6561;6562;6563;, - 3;6564;6565;6566;, - 3;6567;6568;6569;, - 3;6570;6571;6572;, - 3;6573;6574;6575;, - 3;6576;6577;6578;, - 3;6579;6580;6581;, - 3;6582;6583;6584;, - 3;6585;6586;6587;, - 3;6588;6589;6590;, - 3;6591;6592;6593;, - 3;6594;6595;6596;, - 3;6597;6598;6599;, - 3;6600;6601;6602;, - 3;6603;6604;6605;, - 3;6606;6607;6608;, - 3;6609;6610;6611;, - 3;6612;6613;6614;, - 3;6615;6616;6617;, - 3;6618;6619;6620;, - 3;6621;6622;6623;, - 3;6624;6625;6626;, - 3;6627;6628;6629;, - 3;6630;6631;6632;, - 3;6633;6634;6635;, - 3;6636;6637;6638;, - 3;6639;6640;6641;, - 3;6642;6643;6644;, - 3;6645;6646;6647;, - 3;6648;6649;6650;, - 3;6651;6652;6653;, - 3;6654;6655;6656;, - 3;6657;6658;6659;, - 3;6660;6661;6662;, - 3;6663;6664;6665;, - 3;6666;6667;6668;, - 3;6669;6670;6671;, - 3;6672;6673;6674;, - 3;6675;6676;6677;, - 3;6678;6679;6680;, - 3;6681;6682;6683;, - 3;6684;6685;6686;, - 3;6687;6688;6689;, - 3;6690;6691;6692;, - 3;6693;6694;6695;, - 3;6696;6697;6698;, - 3;6699;6700;6701;, - 3;6702;6703;6704;, - 3;6705;6706;6707;, - 3;6708;6709;6710;, - 3;6711;6712;6713;, - 3;6714;6715;6716;, - 3;6717;6718;6719;, - 3;6720;6721;6722;, - 3;6723;6724;6725;, - 3;6726;6727;6728;, - 3;6729;6730;6731;, - 3;6732;6733;6734;, - 3;6735;6736;6737;, - 3;6738;6739;6740;, - 3;6741;6742;6743;, - 3;6744;6745;6746;, - 3;6747;6748;6749;, - 3;6750;6751;6752;, - 3;6753;6754;6755;, - 3;6756;6757;6758;, - 3;6759;6760;6761;, - 3;6762;6763;6764;, - 3;6765;6766;6767;, - 3;6768;6769;6770;, - 3;6771;6772;6773;, - 3;6774;6775;6776;, - 3;6777;6778;6779;, - 3;6780;6781;6782;, - 3;6783;6784;6785;, - 3;6786;6787;6788;, - 3;6789;6790;6791;, - 3;6792;6793;6794;, - 3;6795;6796;6797;, - 3;6798;6799;6800;, - 3;6801;6802;6803;, - 3;6804;6805;6806;, - 3;6807;6808;6809;, - 3;6810;6811;6812;, - 3;6813;6814;6815;, - 3;6816;6817;6818;, - 3;6819;6820;6821;, - 3;6822;6823;6824;, - 3;6825;6826;6827;, - 3;6828;6829;6830;, - 3;6831;6832;6833;, - 3;6834;6835;6836;, - 3;6837;6838;6839;, - 3;6840;6841;6842;, - 3;6843;6844;6845;, - 3;6846;6847;6848;, - 3;6849;6850;6851;, - 3;6852;6853;6854;, - 3;6855;6856;6857;, - 3;6858;6859;6860;, - 3;6861;6862;6863;, - 3;6864;6865;6866;, - 3;6867;6868;6869;, - 3;6870;6871;6872;, - 3;6873;6874;6875;, - 3;6876;6877;6878;, - 3;6879;6880;6881;, - 3;6882;6883;6884;, - 3;6885;6886;6887;, - 3;6888;6889;6890;, - 3;6891;6892;6893;, - 3;6894;6895;6896;, - 3;6897;6898;6899;, - 3;6900;6901;6902;, - 3;6903;6904;6905;, - 3;6906;6907;6908;, - 3;6909;6910;6911;, - 3;6912;6913;6914;, - 3;6915;6916;6917;, - 3;6918;6919;6920;, - 3;6921;6922;6923;, - 3;6924;6925;6926;, - 3;6927;6928;6929;, - 3;6930;6931;6932;, - 3;6933;6934;6935;, - 3;6936;6937;6938;, - 3;6939;6940;6941;, - 3;6942;6943;6944;, - 3;6945;6946;6947;, - 3;6948;6949;6950;, - 3;6951;6952;6953;, - 3;6954;6955;6956;, - 3;6957;6958;6959;, - 3;6960;6961;6962;, - 3;6963;6964;6965;, - 3;6966;6967;6968;, - 3;6969;6970;6971;, - 3;6972;6973;6974;, - 3;6975;6976;6977;, - 3;6978;6979;6980;, - 3;6981;6982;6983;, - 3;6984;6985;6986;, - 3;6987;6988;6989;, - 3;6990;6991;6992;, - 3;6993;6994;6995;, - 3;6996;6997;6998;, - 3;6999;7000;7001;, - 3;7002;7003;7004;, - 3;7005;7006;7007;, - 3;7008;7009;7010;, - 3;7011;7012;7013;, - 3;7014;7015;7016;, - 3;7017;7018;7019;, - 3;7020;7021;7022;, - 3;7023;7024;7025;, - 3;7026;7027;7028;, - 3;7029;7030;7031;, - 3;7032;7033;7034;, - 3;7035;7036;7037;, - 3;7038;7039;7040;, - 3;7041;7042;7043;, - 3;7044;7045;7046;, - 3;7047;7048;7049;, - 3;7050;7051;7052;, - 3;7053;7054;7055;, - 3;7056;7057;7058;, - 3;7059;7060;7061;, - 3;7062;7063;7064;, - 3;7065;7066;7067;, - 3;7068;7069;7070;, - 3;7071;7072;7073;, - 3;7074;7075;7076;, - 3;7077;7078;7079;, - 3;7080;7081;7082;, - 3;7083;7084;7085;, - 3;7086;7087;7088;, - 3;7089;7090;7091;, - 3;7092;7093;7094;, - 3;7095;7096;7097;, - 3;7098;7099;7100;, - 3;7101;7102;7103;, - 3;7104;7105;7106;, - 3;7107;7108;7109;, - 3;7110;7111;7112;, - 3;7113;7114;7115;, - 3;7116;7117;7118;, - 3;7119;7120;7121;, - 3;7122;7123;7124;, - 3;7125;7126;7127;, - 3;7128;7129;7130;, - 3;7131;7132;7133;, - 3;7134;7135;7136;, - 3;7137;7138;7139;, - 3;7140;7141;7142;, - 3;7143;7144;7145;, - 3;7146;7147;7148;, - 3;7149;7150;7151;, - 3;7152;7153;7154;, - 3;7155;7156;7157;, - 3;7158;7159;7160;, - 3;7161;7162;7163;, - 3;7164;7165;7166;, - 3;7167;7168;7169;, - 3;7170;7171;7172;, - 3;7173;7174;7175;, - 3;7176;7177;7178;, - 3;7179;7180;7181;, - 3;7182;7183;7184;, - 3;7185;7186;7187;, - 3;7188;7189;7190;, - 3;7191;7192;7193;, - 3;7194;7195;7196;, - 3;7197;7198;7199;, - 3;7200;7201;7202;, - 3;7203;7204;7205;, - 3;7206;7207;7208;, - 3;7209;7210;7211;, - 3;7212;7213;7214;, - 3;7215;7216;7217;, - 3;7218;7219;7220;, - 3;7221;7222;7223;, - 3;7224;7225;7226;, - 3;7227;7228;7229;, - 3;7230;7231;7232;, - 3;7233;7234;7235;, - 3;7236;7237;7238;, - 3;7239;7240;7241;, - 3;7242;7243;7244;, - 3;7245;7246;7247;, - 3;7248;7249;7250;, - 3;7251;7252;7253;, - 3;7254;7255;7256;, - 3;7257;7258;7259;, - 3;7260;7261;7262;, - 3;7263;7264;7265;, - 3;7266;7267;7268;, - 3;7269;7270;7271;, - 3;7272;7273;7274;, - 3;7275;7276;7277;, - 3;7278;7279;7280;, - 3;7281;7282;7283;, - 3;7284;7285;7286;, - 3;7287;7288;7289;, - 3;7290;7291;7292;, - 3;7293;7294;7295;, - 3;7296;7297;7298;, - 3;7299;7300;7301;, - 3;7302;7303;7304;, - 3;7305;7306;7307;, - 3;7308;7309;7310;, - 3;7311;7312;7313;, - 3;7314;7315;7316;, - 3;7317;7318;7319;, - 3;7320;7321;7322;, - 3;7323;7324;7325;, - 3;7326;7327;7328;, - 3;7329;7330;7331;, - 3;7332;7333;7334;, - 3;7335;7336;7337;, - 3;7338;7339;7340;, - 3;7341;7342;7343;, - 3;7344;7345;7346;, - 3;7347;7348;7349;, - 3;7350;7351;7352;, - 3;7353;7354;7355;, - 3;7356;7357;7358;, - 3;7359;7360;7361;, - 3;7362;7363;7364;, - 3;7365;7366;7367;, - 3;7368;7369;7370;, - 3;7371;7372;7373;, - 3;7374;7375;7376;, - 3;7377;7378;7379;, - 3;7380;7381;7382;, - 3;7383;7384;7385;, - 3;7386;7387;7388;, - 3;7389;7390;7391;, - 3;7392;7393;7394;, - 3;7395;7396;7397;, - 3;7398;7399;7400;, - 3;7401;7402;7403;, - 3;7404;7405;7406;, - 3;7407;7408;7409;, - 3;7410;7411;7412;, - 3;7413;7414;7415;, - 3;7416;7417;7418;, - 3;7419;7420;7421;, - 3;7422;7423;7424;, - 3;7425;7426;7427;, - 3;7428;7429;7430;, - 3;7431;7432;7433;, - 3;7434;7435;7436;, - 3;7437;7438;7439;, - 3;7440;7441;7442;, - 3;7443;7444;7445;, - 3;7446;7447;7448;, - 3;7449;7450;7451;, - 3;7452;7453;7454;, - 3;7455;7456;7457;, - 3;7458;7459;7460;, - 3;7461;7462;7463;, - 3;7464;7465;7466;, - 3;7467;7468;7469;, - 3;7470;7471;7472;, - 3;7473;7474;7475;, - 3;7476;7477;7478;, - 3;7479;7480;7481;, - 3;7482;7483;7484;, - 3;7485;7486;7487;, - 3;7488;7489;7490;, - 3;7491;7492;7493;, - 3;7494;7495;7496;, - 3;7497;7498;7499;, - 3;7500;7501;7502;, - 3;7503;7504;7505;, - 3;7506;7507;7508;, - 3;7509;7510;7511;, - 3;7512;7513;7514;, - 3;7515;7516;7517;, - 3;7518;7519;7520;, - 3;7521;7522;7523;, - 3;7524;7525;7526;, - 3;7527;7528;7529;, - 3;7530;7531;7532;, - 3;7533;7534;7535;, - 3;7536;7537;7538;, - 3;7539;7540;7541;, - 3;7542;7543;7544;, - 3;7545;7546;7547;, - 3;7548;7549;7550;, - 3;7551;7552;7553;, - 3;7554;7555;7556;, - 3;7557;7558;7559;, - 3;7560;7561;7562;, - 3;7563;7564;7565;, - 3;7566;7567;7568;, - 3;7569;7570;7571;, - 3;7572;7573;7574;, - 3;7575;7576;7577;, - 3;7578;7579;7580;, - 3;7581;7582;7583;, - 3;7584;7585;7586;, - 3;7587;7588;7589;, - 3;7590;7591;7592;, - 3;7593;7594;7595;, - 3;7596;7597;7598;, - 3;7599;7600;7601;, - 3;7602;7603;7604;, - 3;7605;7606;7607;, - 3;7608;7609;7610;, - 3;7611;7612;7613;, - 3;7614;7615;7616;, - 3;7617;7618;7619;, - 3;7620;7621;7622;, - 3;7623;7624;7625;, - 3;7626;7627;7628;, - 3;7629;7630;7631;, - 3;7632;7633;7634;, - 3;7635;7636;7637;, - 3;7638;7639;7640;, - 3;7641;7642;7643;, - 3;7644;7645;7646;, - 3;7647;7648;7649;, - 3;7650;7651;7652;, - 3;7653;7654;7655;, - 3;7656;7657;7658;, - 3;7659;7660;7661;, - 3;7662;7663;7664;, - 3;7665;7666;7667;, - 3;7668;7669;7670;, - 3;7671;7672;7673;, - 3;7674;7675;7676;, - 3;7677;7678;7679;, - 3;7680;7681;7682;, - 3;7683;7684;7685;, - 3;7686;7687;7688;, - 3;7689;7690;7691;, - 3;7692;7693;7694;, - 3;7695;7696;7697;, - 3;7698;7699;7700;, - 3;7701;7702;7703;, - 3;7704;7705;7706;, - 3;7707;7708;7709;, - 3;7710;7711;7712;, - 3;7713;7714;7715;, - 3;7716;7717;7718;, - 3;7719;7720;7721;, - 3;7722;7723;7724;, - 3;7725;7726;7727;, - 3;7728;7729;7730;, - 3;7731;7732;7733;, - 3;7734;7735;7736;, - 3;7737;7738;7739;, - 3;7740;7741;7742;, - 3;7743;7744;7745;, - 3;7746;7747;7748;, - 3;7749;7750;7751;, - 3;7752;7753;7754;, - 3;7755;7756;7757;, - 3;7758;7759;7760;, - 3;7761;7762;7763;, - 3;7764;7765;7766;, - 3;7767;7768;7769;, - 3;7770;7771;7772;, - 3;7773;7774;7775;, - 3;7776;7777;7778;, - 3;7779;7780;7781;, - 3;7782;7783;7784;, - 3;7785;7786;7787;, - 3;7788;7789;7790;, - 3;7791;7792;7793;, - 3;7794;7795;7796;, - 3;7797;7798;7799;, - 3;7800;7801;7802;, - 3;7803;7804;7805;, - 3;7806;7807;7808;, - 3;7809;7810;7811;, - 3;7812;7813;7814;, - 3;7815;7816;7817;, - 3;7818;7819;7820;, - 3;7821;7822;7823;, - 3;7824;7825;7826;, - 3;7827;7828;7829;, - 3;7830;7831;7832;, - 3;7833;7834;7835;, - 3;7836;7837;7838;, - 3;7839;7840;7841;, - 3;7842;7843;7844;, - 3;7845;7846;7847;, - 3;7848;7849;7850;, - 3;7851;7852;7853;, - 3;7854;7855;7856;, - 3;7857;7858;7859;, - 3;7860;7861;7862;, - 3;7863;7864;7865;, - 3;7866;7867;7868;, - 3;7869;7870;7871;, - 3;7872;7873;7874;, - 3;7875;7876;7877;, - 3;7878;7879;7880;, - 3;7881;7882;7883;, - 3;7884;7885;7886;, - 3;7887;7888;7889;, - 3;7890;7891;7892;, - 3;7893;7894;7895;, - 3;7896;7897;7898;, - 3;7899;7900;7901;, - 3;7902;7903;7904;, - 3;7905;7906;7907;, - 3;7908;7909;7910;, - 3;7911;7912;7913;, - 3;7914;7915;7916;, - 3;7917;7918;7919;, - 3;7920;7921;7922;, - 3;7923;7924;7925;, - 3;7926;7927;7928;, - 3;7929;7930;7931;, - 3;7932;7933;7934;, - 3;7935;7936;7937;, - 3;7938;7939;7940;, - 3;7941;7942;7943;, - 3;7944;7945;7946;, - 3;7947;7948;7949;, - 3;7950;7951;7952;, - 3;7953;7954;7955;, - 3;7956;7957;7958;, - 3;7959;7960;7961;, - 3;7962;7963;7964;, - 3;7965;7966;7967;, - 3;7968;7969;7970;, - 3;7971;7972;7973;, - 3;7974;7975;7976;, - 3;7977;7978;7979;, - 3;7980;7981;7982;, - 3;7983;7984;7985;, - 3;7986;7987;7988;, - 3;7989;7990;7991;, - 3;7992;7993;7994;, - 3;7995;7996;7997;, - 3;7998;7999;8000;, - 3;8001;8002;8003;, - 3;8004;8005;8006;, - 3;8007;8008;8009;, - 3;8010;8011;8012;, - 3;8013;8014;8015;, - 3;8016;8017;8018;, - 3;8019;8020;8021;, - 3;8022;8023;8024;, - 3;8025;8026;8027;, - 3;8028;8029;8030;, - 3;8031;8032;8033;, - 3;8034;8035;8036;, - 3;8037;8038;8039;, - 3;8040;8041;8042;, - 3;8043;8044;8045;, - 3;8046;8047;8048;, - 3;8049;8050;8051;, - 3;8052;8053;8054;, - 3;8055;8056;8057;, - 3;8058;8059;8060;, - 3;8061;8062;8063;, - 3;8064;8065;8066;, - 3;8067;8068;8069;, - 3;8070;8071;8072;, - 3;8073;8074;8075;, - 3;8076;8077;8078;, - 3;8079;8080;8081;, - 3;8082;8083;8084;, - 3;8085;8086;8087;, - 3;8088;8089;8090;, - 3;8091;8092;8093;, - 3;8094;8095;8096;, - 3;8097;8098;8099;, - 3;8100;8101;8102;, - 3;8103;8104;8105;, - 3;8106;8107;8108;, - 3;8109;8110;8111;, - 3;8112;8113;8114;, - 3;8115;8116;8117;, - 3;8118;8119;8120;, - 3;8121;8122;8123;, - 3;8124;8125;8126;, - 3;8127;8128;8129;, - 3;8130;8131;8132;, - 3;8133;8134;8135;, - 3;8136;8137;8138;, - 3;8139;8140;8141;, - 3;8142;8143;8144;, - 3;8145;8146;8147;, - 3;8148;8149;8150;, - 3;8151;8152;8153;, - 3;8154;8155;8156;, - 3;8157;8158;8159;, - 3;8160;8161;8162;, - 3;8163;8164;8165;, - 3;8166;8167;8168;, - 3;8169;8170;8171;, - 3;8172;8173;8174;, - 3;8175;8176;8177;, - 3;8178;8179;8180;, - 3;8181;8182;8183;, - 3;8184;8185;8186;, - 3;8187;8188;8189;, - 3;8190;8191;8192;, - 3;8193;8194;8195;, - 3;8196;8197;8198;, - 3;8199;8200;8201;, - 3;8202;8203;8204;, - 3;8205;8206;8207;, - 3;8208;8209;8210;, - 3;8211;8212;8213;, - 3;8214;8215;8216;, - 3;8217;8218;8219;, - 3;8220;8221;8222;, - 3;8223;8224;8225;, - 3;8226;8227;8228;, - 3;8229;8230;8231;, - 3;8232;8233;8234;, - 3;8235;8236;8237;, - 3;8238;8239;8240;, - 3;8241;8242;8243;, - 3;8244;8245;8246;, - 3;8247;8248;8249;, - 3;8250;8251;8252;, - 3;8253;8254;8255;, - 3;8256;8257;8258;, - 3;8259;8260;8261;, - 3;8262;8263;8264;, - 3;8265;8266;8267;, - 3;8268;8269;8270;, - 3;8271;8272;8273;, - 3;8274;8275;8276;, - 3;8277;8278;8279;, - 3;8280;8281;8282;, - 3;8283;8284;8285;, - 3;8286;8287;8288;, - 3;8289;8290;8291;, - 3;8292;8293;8294;, - 3;8295;8296;8297;, - 3;8298;8299;8300;, - 3;8301;8302;8303;, - 3;8304;8305;8306;, - 3;8307;8308;8309;, - 3;8310;8311;8312;, - 3;8313;8314;8315;, - 3;8316;8317;8318;, - 3;8319;8320;8321;, - 3;8322;8323;8324;, - 3;8325;8326;8327;, - 3;8328;8329;8330;, - 3;8331;8332;8333;, - 3;8334;8335;8336;, - 3;8337;8338;8339;, - 3;8340;8341;8342;, - 3;8343;8344;8345;, - 3;8346;8347;8348;, - 3;8349;8350;8351;, - 3;8352;8353;8354;, - 3;8355;8356;8357;, - 3;8358;8359;8360;, - 3;8361;8362;8363;, - 3;8364;8365;8366;, - 3;8367;8368;8369;, - 3;8370;8371;8372;, - 3;8373;8374;8375;, - 3;8376;8377;8378;, - 3;8379;8380;8381;, - 3;8382;8383;8384;, - 3;8385;8386;8387;, - 3;8388;8389;8390;, - 3;8391;8392;8393;, - 3;8394;8395;8396;, - 3;8397;8398;8399;, - 3;8400;8401;8402;, - 3;8403;8404;8405;, - 3;8406;8407;8408;, - 3;8409;8410;8411;, - 3;8412;8413;8414;, - 3;8415;8416;8417;, - 3;8418;8419;8420;, - 3;8421;8422;8423;, - 3;8424;8425;8426;, - 3;8427;8428;8429;, - 3;8430;8431;8432;, - 3;8433;8434;8435;, - 3;8436;8437;8438;, - 3;8439;8440;8441;, - 3;8442;8443;8444;, - 3;8445;8446;8447;, - 3;8448;8449;8450;, - 3;8451;8452;8453;, - 3;8454;8455;8456;, - 3;8457;8458;8459;, - 3;8460;8461;8462;, - 3;8463;8464;8465;, - 3;8466;8467;8468;, - 3;8469;8470;8471;, - 3;8472;8473;8474;, - 3;8475;8476;8477;, - 3;8478;8479;8480;, - 3;8481;8482;8483;, - 3;8484;8485;8486;, - 3;8487;8488;8489;, - 3;8490;8491;8492;, - 3;8493;8494;8495;, - 3;8496;8497;8498;, - 3;8499;8500;8501;, - 3;8502;8503;8504;, - 3;8505;8506;8507;, - 3;8508;8509;8510;, - 3;8511;8512;8513;, - 3;8514;8515;8516;, - 3;8517;8518;8519;, - 3;8520;8521;8522;, - 3;8523;8524;8525;, - 3;8526;8527;8528;, - 3;8529;8530;8531;, - 3;8532;8533;8534;, - 3;8535;8536;8537;, - 3;8538;8539;8540;, - 3;8541;8542;8543;, - 3;8544;8545;8546;, - 3;8547;8548;8549;, - 3;8550;8551;8552;, - 3;8553;8554;8555;, - 3;8556;8557;8558;, - 3;8559;8560;8561;, - 3;8562;8563;8564;, - 3;8565;8566;8567;, - 3;8568;8569;8570;, - 3;8571;8572;8573;, - 3;8574;8575;8576;, - 3;8577;8578;8579;, - 3;8580;8581;8582;, - 3;8583;8584;8585;, - 3;8586;8587;8588;, - 3;8589;8590;8591;, - 3;8592;8593;8594;, - 3;8595;8596;8597;, - 3;8598;8599;8600;, - 3;8601;8602;8603;, - 3;8604;8605;8606;, - 3;8607;8608;8609;, - 3;8610;8611;8612;, - 3;8613;8614;8615;, - 3;8616;8617;8618;, - 3;8619;8620;8621;, - 3;8622;8623;8624;, - 3;8625;8626;8627;, - 3;8628;8629;8630;, - 3;8631;8632;8633;, - 3;8634;8635;8636;, - 3;8637;8638;8639;, - 3;8640;8641;8642;, - 3;8643;8644;8645;, - 3;8646;8647;8648;, - 3;8649;8650;8651;, - 3;8652;8653;8654;, - 3;8655;8656;8657;, - 3;8658;8659;8660;, - 3;8661;8662;8663;, - 3;8664;8665;8666;, - 3;8667;8668;8669;, - 3;8670;8671;8672;, - 3;8673;8674;8675;, - 3;8676;8677;8678;, - 3;8679;8680;8681;, - 3;8682;8683;8684;, - 3;8685;8686;8687;, - 3;8688;8689;8690;, - 3;8691;8692;8693;, - 3;8694;8695;8696;, - 3;8697;8698;8699;, - 3;8700;8701;8702;, - 3;8703;8704;8705;, - 3;8706;8707;8708;, - 3;8709;8710;8711;, - 3;8712;8713;8714;, - 3;8715;8716;8717;, - 3;8718;8719;8720;, - 3;8721;8722;8723;, - 3;8724;8725;8726;, - 3;8727;8728;8729;, - 3;8730;8731;8732;, - 3;8733;8734;8735;, - 3;8736;8737;8738;, - 3;8739;8740;8741;, - 3;8742;8743;8744;, - 3;8745;8746;8747;, - 3;8748;8749;8750;, - 3;8751;8752;8753;, - 3;8754;8755;8756;, - 3;8757;8758;8759;, - 3;8760;8761;8762;, - 3;8763;8764;8765;, - 3;8766;8767;8768;, - 3;8769;8770;8771;, - 3;8772;8773;8774;, - 3;8775;8776;8777;, - 3;8778;8779;8780;, - 3;8781;8782;8783;, - 3;8784;8785;8786;, - 3;8787;8788;8789;, - 3;8790;8791;8792;, - 3;8793;8794;8795;, - 3;8796;8797;8798;, - 3;8799;8800;8801;, - 3;8802;8803;8804;, - 3;8805;8806;8807;, - 3;8808;8809;8810;, - 3;8811;8812;8813;, - 3;8814;8815;8816;, - 3;8817;8818;8819;, - 3;8820;8821;8822;, - 3;8823;8824;8825;, - 3;8826;8827;8828;, - 3;8829;8830;8831;, - 3;8832;8833;8834;, - 3;8835;8836;8837;, - 3;8838;8839;8840;, - 3;8841;8842;8843;, - 3;8844;8845;8846;, - 3;8847;8848;8849;, - 3;8850;8851;8852;, - 3;8853;8854;8855;, - 3;8856;8857;8858;, - 3;8859;8860;8861;, - 3;8862;8863;8864;, - 3;8865;8866;8867;, - 3;8868;8869;8870;, - 3;8871;8872;8873;, - 3;8874;8875;8876;, - 3;8877;8878;8879;, - 3;8880;8881;8882;, - 3;8883;8884;8885;, - 3;8886;8887;8888;, - 3;8889;8890;8891;, - 3;8892;8893;8894;, - 3;8895;8896;8897;, - 3;8898;8899;8900;, - 3;8901;8902;8903;, - 3;8904;8905;8906;, - 3;8907;8908;8909;, - 3;8910;8911;8912;, - 3;8913;8914;8915;, - 3;8916;8917;8918;, - 3;8919;8920;8921;, - 3;8922;8923;8924;, - 3;8925;8926;8927;, - 3;8928;8929;8930;, - 3;8931;8932;8933;, - 3;8934;8935;8936;, - 3;8937;8938;8939;, - 3;8940;8941;8942;, - 3;8943;8944;8945;, - 3;8946;8947;8948;, - 3;8949;8950;8951;, - 3;8952;8953;8954;, - 3;8955;8956;8957;, - 3;8958;8959;8960;, - 3;8961;8962;8963;, - 3;8964;8965;8966;, - 3;8967;8968;8969;, - 3;8970;8971;8972;, - 3;8973;8974;8975;, - 3;8976;8977;8978;, - 3;8979;8980;8981;, - 3;8982;8983;8984;, - 3;8985;8986;8987;, - 3;8988;8989;8990;, - 3;8991;8992;8993;, - 3;8994;8995;8996;, - 3;8997;8998;8999;, - 3;9000;9001;9002;, - 3;9003;9004;9005;, - 3;9006;9007;9008;, - 3;9009;9010;9011;, - 3;9012;9013;9014;, - 3;9015;9016;9017;, - 3;9018;9019;9020;, - 3;9021;9022;9023;, - 3;9024;9025;9026;, - 3;9027;9028;9029;, - 3;9030;9031;9032;, - 3;9033;9034;9035;, - 3;9036;9037;9038;, - 3;9039;9040;9041;, - 3;9042;9043;9044;, - 3;9045;9046;9047;, - 3;9048;9049;9050;, - 3;9051;9052;9053;, - 3;9054;9055;9056;, - 3;9057;9058;9059;, - 3;9060;9061;9062;, - 3;9063;9064;9065;, - 3;9066;9067;9068;, - 3;9069;9070;9071;, - 3;9072;9073;9074;, - 3;9075;9076;9077;, - 3;9078;9079;9080;, - 3;9081;9082;9083;, - 3;9084;9085;9086;, - 3;9087;9088;9089;, - 3;9090;9091;9092;, - 3;9093;9094;9095;, - 3;9096;9097;9098;, - 3;9099;9100;9101;, - 3;9102;9103;9104;, - 3;9105;9106;9107;, - 3;9108;9109;9110;, - 3;9111;9112;9113;, - 3;9114;9115;9116;, - 3;9117;9118;9119;, - 3;9120;9121;9122;, - 3;9123;9124;9125;, - 3;9126;9127;9128;, - 3;9129;9130;9131;, - 3;9132;9133;9134;, - 3;9135;9136;9137;, - 3;9138;9139;9140;, - 3;9141;9142;9143;, - 3;9144;9145;9146;, - 3;9147;9148;9149;, - 3;9150;9151;9152;, - 3;9153;9154;9155;, - 3;9156;9157;9158;, - 3;9159;9160;9161;, - 3;9162;9163;9164;, - 3;9165;9166;9167;, - 3;9168;9169;9170;, - 3;9171;9172;9173;, - 3;9174;9175;9176;, - 3;9177;9178;9179;, - 3;9180;9181;9182;, - 3;9183;9184;9185;, - 3;9186;9187;9188;, - 3;9189;9190;9191;, - 3;9192;9193;9194;, - 3;9195;9196;9197;, - 3;9198;9199;9200;, - 3;9201;9202;9203;, - 3;9204;9205;9206;, - 3;9207;9208;9209;, - 3;9210;9211;9212;, - 3;9213;9214;9215;, - 3;9216;9217;9218;, - 3;9219;9220;9221;, - 3;9222;9223;9224;, - 3;9225;9226;9227;, - 3;9228;9229;9230;, - 3;9231;9232;9233;, - 3;9234;9235;9236;, - 3;9237;9238;9239;, - 3;9240;9241;9242;, - 3;9243;9244;9245;, - 3;9246;9247;9248;, - 3;9249;9250;9251;, - 3;9252;9253;9254;, - 3;9255;9256;9257;, - 3;9258;9259;9260;, - 3;9261;9262;9263;, - 3;9264;9265;9266;, - 3;9267;9268;9269;, - 3;9270;9271;9272;, - 3;9273;9274;9275;, - 3;9276;9277;9278;, - 3;9279;9280;9281;, - 3;9282;9283;9284;, - 3;9285;9286;9287;, - 3;9288;9289;9290;, - 3;9291;9292;9293;, - 3;9294;9295;9296;, - 3;9297;9298;9299;, - 3;9300;9301;9302;, - 3;9303;9304;9305;, - 3;9306;9307;9308;, - 3;9309;9310;9311;, - 3;9312;9313;9314;, - 3;9315;9316;9317;, - 3;9318;9319;9320;, - 3;9321;9322;9323;, - 3;9324;9325;9326;, - 3;9327;9328;9329;, - 3;9330;9331;9332;, - 3;9333;9334;9335;, - 3;9336;9337;9338;, - 3;9339;9340;9341;, - 3;9342;9343;9344;, - 3;9345;9346;9347;, - 3;9348;9349;9350;, - 3;9351;9352;9353;, - 3;9354;9355;9356;, - 3;9357;9358;9359;, - 3;9360;9361;9362;, - 3;9363;9364;9365;, - 3;9366;9367;9368;, - 3;9369;9370;9371;, - 3;9372;9373;9374;, - 3;9375;9376;9377;, - 3;9378;9379;9380;, - 3;9381;9382;9383;, - 3;9384;9385;9386;, - 3;9387;9388;9389;, - 3;9390;9391;9392;, - 3;9393;9394;9395;, - 3;9396;9397;9398;, - 3;9399;9400;9401;, - 3;9402;9403;9404;, - 3;9405;9406;9407;, - 3;9408;9409;9410;, - 3;9411;9412;9413;, - 3;9414;9415;9416;, - 3;9417;9418;9419;, - 3;9420;9421;9422;, - 3;9423;9424;9425;, - 3;9426;9427;9428;, - 3;9429;9430;9431;, - 3;9432;9433;9434;, - 3;9435;9436;9437;, - 3;9438;9439;9440;, - 3;9441;9442;9443;, - 3;9444;9445;9446;, - 3;9447;9448;9449;, - 3;9450;9451;9452;, - 3;9453;9454;9455;, - 3;9456;9457;9458;, - 3;9459;9460;9461;, - 3;9462;9463;9464;, - 3;9465;9466;9467;, - 3;9468;9469;9470;, - 3;9471;9472;9473;, - 3;9474;9475;9476;, - 3;9477;9478;9479;, - 3;9480;9481;9482;, - 3;9483;9484;9485;, - 3;9486;9487;9488;, - 3;9489;9490;9491;, - 3;9492;9493;9494;, - 3;9495;9496;9497;, - 3;9498;9499;9500;, - 3;9501;9502;9503;, - 3;9504;9505;9506;, - 3;9507;9508;9509;, - 3;9510;9511;9512;, - 3;9513;9514;9515;, - 3;9516;9517;9518;, - 3;9519;9520;9521;, - 3;9522;9523;9524;, - 3;9525;9526;9527;, - 3;9528;9529;9530;, - 3;9531;9532;9533;, - 3;9534;9535;9536;, - 3;9537;9538;9539;, - 3;9540;9541;9542;, - 3;9543;9544;9545;, - 3;9546;9547;9548;, - 3;9549;9550;9551;, - 3;9552;9553;9554;, - 3;9555;9556;9557;, - 3;9558;9559;9560;, - 3;9561;9562;9563;, - 3;9564;9565;9566;, - 3;9567;9568;9569;, - 3;9570;9571;9572;, - 3;9573;9574;9575;, - 3;9576;9577;9578;, - 3;9579;9580;9581;, - 3;9582;9583;9584;, - 3;9585;9586;9587;, - 3;9588;9589;9590;, - 3;9591;9592;9593;, - 3;9594;9595;9596;, - 3;9597;9598;9599;, - 3;9600;9601;9602;, - 3;9603;9604;9605;, - 3;9606;9607;9608;, - 3;9609;9610;9611;, - 3;9612;9613;9614;, - 3;9615;9616;9617;, - 3;9618;9619;9620;, - 3;9621;9622;9623;, - 3;9624;9625;9626;, - 3;9627;9628;9629;, - 3;9630;9631;9632;, - 3;9633;9634;9635;, - 3;9636;9637;9638;, - 3;9639;9640;9641;, - 3;9642;9643;9644;, - 3;9645;9646;9647;, - 3;9648;9649;9650;, - 3;9651;9652;9653;, - 3;9654;9655;9656;, - 3;9657;9658;9659;, - 3;9660;9661;9662;, - 3;9663;9664;9665;, - 3;9666;9667;9668;, - 3;9669;9670;9671;, - 3;9672;9673;9674;, - 3;9675;9676;9677;, - 3;9678;9679;9680;, - 3;9681;9682;9683;, - 3;9684;9685;9686;, - 3;9687;9688;9689;, - 3;9690;9691;9692;, - 3;9693;9694;9695;, - 3;9696;9697;9698;, - 3;9699;9700;9701;, - 3;9702;9703;9704;, - 3;9705;9706;9707;, - 3;9708;9709;9710;, - 3;9711;9712;9713;, - 3;9714;9715;9716;, - 3;9717;9718;9719;, - 3;9720;9721;9722;, - 3;9723;9724;9725;, - 3;9726;9727;9728;, - 3;9729;9730;9731;, - 3;9732;9733;9734;, - 3;9735;9736;9737;, - 3;9738;9739;9740;, - 3;9741;9742;9743;, - 3;9744;9745;9746;, - 3;9747;9748;9749;, - 3;9750;9751;9752;, - 3;9753;9754;9755;, - 3;9756;9757;9758;, - 3;9759;9760;9761;, - 3;9762;9763;9764;, - 3;9765;9766;9767;, - 3;9768;9769;9770;, - 3;9771;9772;9773;, - 3;9774;9775;9776;, - 3;9777;9778;9779;, - 3;9780;9781;9782;, - 3;9783;9784;9785;, - 3;9786;9787;9788;, - 3;9789;9790;9791;, - 3;9792;9793;9794;, - 3;9795;9796;9797;, - 3;9798;9799;9800;, - 3;9801;9802;9803;, - 3;9804;9805;9806;, - 3;9807;9808;9809;, - 3;9810;9811;9812;, - 3;9813;9814;9815;, - 3;9816;9817;9818;, - 3;9819;9820;9821;, - 3;9822;9823;9824;, - 3;9825;9826;9827;, - 3;9828;9829;9830;, - 3;9831;9832;9833;, - 3;9834;9835;9836;, - 3;9837;9838;9839;, - 3;9840;9841;9842;, - 3;9843;9844;9845;, - 3;9846;9847;9848;, - 3;9849;9850;9851;, - 3;9852;9853;9854;, - 3;9855;9856;9857;, - 3;9858;9859;9860;, - 3;9861;9862;9863;, - 3;9864;9865;9866;, - 3;9867;9868;9869;, - 3;9870;9871;9872;, - 3;9873;9874;9875;, - 3;9876;9877;9878;, - 3;9879;9880;9881;, - 3;9882;9883;9884;, - 3;9885;9886;9887;, - 3;9888;9889;9890;, - 3;9891;9892;9893;, - 3;9894;9895;9896;, - 3;9897;9898;9899;, - 3;9900;9901;9902;, - 3;9903;9904;9905;, - 3;9906;9907;9908;, - 3;9909;9910;9911;, - 3;9912;9913;9914;, - 3;9915;9916;9917;, - 3;9918;9919;9920;, - 3;9921;9922;9923;, - 3;9924;9925;9926;, - 3;9927;9928;9929;, - 3;9930;9931;9932;, - 3;9933;9934;9935;, - 3;9936;9937;9938;, - 3;9939;9940;9941;, - 3;9942;9943;9944;, - 3;9945;9946;9947;, - 3;9948;9949;9950;, - 3;9951;9952;9953;, - 3;9954;9955;9956;, - 3;9957;9958;9959;, - 3;9960;9961;9962;, - 3;9963;9964;9965;, - 3;9966;9967;9968;, - 3;9969;9970;9971;, - 3;9972;9973;9974;, - 3;9975;9976;9977;, - 3;9978;9979;9980;, - 3;9981;9982;9983;, - 3;9984;9985;9986;, - 3;9987;9988;9989;, - 3;9990;9991;9992;, - 3;9993;9994;9995;, - 3;9996;9997;9998;, - 3;9999;10000;10001;, - 3;10002;10003;10004;, - 3;10005;10006;10007;, - 3;10008;10009;10010;, - 3;10011;10012;10013;, - 3;10014;10015;10016;, - 3;10017;10018;10019;, - 3;10020;10021;10022;, - 3;10023;10024;10025;, - 3;10026;10027;10028;, - 3;10029;10030;10031;, - 3;10032;10033;10034;, - 3;10035;10036;10037;, - 3;10038;10039;10040;, - 3;10041;10042;10043;, - 3;10044;10045;10046;, - 3;10047;10048;10049;, - 3;10050;10051;10052;, - 3;10053;10054;10055;, - 3;10056;10057;10058;, - 3;10059;10060;10061;, - 3;10062;10063;10064;, - 3;10065;10066;10067;, - 3;10068;10069;10070;, - 3;10071;10072;10073;, - 3;10074;10075;10076;, - 3;10077;10078;10079;, - 3;10080;10081;10082;, - 3;10083;10084;10085;, - 3;10086;10087;10088;, - 3;10089;10090;10091;, - 3;10092;10093;10094;, - 3;10095;10096;10097;, - 3;10098;10099;10100;, - 3;10101;10102;10103;, - 3;10104;10105;10106;, - 3;10107;10108;10109;, - 3;10110;10111;10112;, - 3;10113;10114;10115;, - 3;10116;10117;10118;, - 3;10119;10120;10121;, - 3;10122;10123;10124;, - 3;10125;10126;10127;, - 3;10128;10129;10130;, - 3;10131;10132;10133;, - 3;10134;10135;10136;, - 3;10137;10138;10139;, - 3;10140;10141;10142;, - 3;10143;10144;10145;, - 3;10146;10147;10148;, - 3;10149;10150;10151;, - 3;10152;10153;10154;, - 3;10155;10156;10157;, - 3;10158;10159;10160;, - 3;10161;10162;10163;, - 3;10164;10165;10166;, - 3;10167;10168;10169;, - 3;10170;10171;10172;, - 3;10173;10174;10175;, - 3;10176;10177;10178;, - 3;10179;10180;10181;, - 3;10182;10183;10184;, - 3;10185;10186;10187;, - 3;10188;10189;10190;, - 3;10191;10192;10193;, - 3;10194;10195;10196;, - 3;10197;10198;10199;, - 3;10200;10201;10202;, - 3;10203;10204;10205;, - 3;10206;10207;10208;, - 3;10209;10210;10211;, - 3;10212;10213;10214;, - 3;10215;10216;10217;, - 3;10218;10219;10220;, - 3;10221;10222;10223;, - 3;10224;10225;10226;, - 3;10227;10228;10229;, - 3;10230;10231;10232;, - 3;10233;10234;10235;, - 3;10236;10237;10238;, - 3;10239;10240;10241;, - 3;10242;10243;10244;, - 3;10245;10246;10247;, - 3;10248;10249;10250;, - 3;10251;10252;10253;, - 3;10254;10255;10256;, - 3;10257;10258;10259;, - 3;10260;10261;10262;, - 3;10263;10264;10265;, - 3;10266;10267;10268;, - 3;10269;10270;10271;, - 3;10272;10273;10274;, - 3;10275;10276;10277;, - 3;10278;10279;10280;, - 3;10281;10282;10283;, - 3;10284;10285;10286;, - 3;10287;10288;10289;, - 3;10290;10291;10292;, - 3;10293;10294;10295;, - 3;10296;10297;10298;, - 3;10299;10300;10301;, - 3;10302;10303;10304;, - 3;10305;10306;10307;, - 3;10308;10309;10310;, - 3;10311;10312;10313;, - 3;10314;10315;10316;, - 3;10317;10318;10319;, - 3;10320;10321;10322;, - 3;10323;10324;10325;, - 3;10326;10327;10328;, - 3;10329;10330;10331;, - 3;10332;10333;10334;, - 3;10335;10336;10337;, - 3;10338;10339;10340;, - 3;10341;10342;10343;, - 3;10344;10345;10346;, - 3;10347;10348;10349;, - 3;10350;10351;10352;, - 3;10353;10354;10355;, - 3;10356;10357;10358;, - 3;10359;10360;10361;, - 3;10362;10363;10364;, - 3;10365;10366;10367;, - 3;10368;10369;10370;, - 3;10371;10372;10373;, - 3;10374;10375;10376;, - 3;10377;10378;10379;, - 3;10380;10381;10382;, - 3;10383;10384;10385;, - 3;10386;10387;10388;, - 3;10389;10390;10391;, - 3;10392;10393;10394;, - 3;10395;10396;10397;, - 3;10398;10399;10400;, - 3;10401;10402;10403;, - 3;10404;10405;10406;, - 3;10407;10408;10409;, - 3;10410;10411;10412;, - 3;10413;10414;10415;, - 3;10416;10417;10418;, - 3;10419;10420;10421;, - 3;10422;10423;10424;, - 3;10425;10426;10427;, - 3;10428;10429;10430;, - 3;10431;10432;10433;, - 3;10434;10435;10436;, - 3;10437;10438;10439;, - 3;10440;10441;10442;, - 3;10443;10444;10445;, - 3;10446;10447;10448;, - 3;10449;10450;10451;, - 3;10452;10453;10454;, - 3;10455;10456;10457;, - 3;10458;10459;10460;, - 3;10461;10462;10463;, - 3;10464;10465;10466;, - 3;10467;10468;10469;, - 3;10470;10471;10472;, - 3;10473;10474;10475;, - 3;10476;10477;10478;, - 3;10479;10480;10481;, - 3;10482;10483;10484;, - 3;10485;10486;10487;, - 3;10488;10489;10490;, - 3;10491;10492;10493;, - 3;10494;10495;10496;, - 3;10497;10498;10499;, - 3;10500;10501;10502;, - 3;10503;10504;10505;, - 3;10506;10507;10508;, - 3;10509;10510;10511;, - 3;10512;10513;10514;, - 3;10515;10516;10517;, - 3;10518;10519;10520;, - 3;10521;10522;10523;, - 3;10524;10525;10526;, - 3;10527;10528;10529;, - 3;10530;10531;10532;, - 3;10533;10534;10535;, - 3;10536;10537;10538;, - 3;10539;10540;10541;, - 3;10542;10543;10544;, - 3;10545;10546;10547;, - 3;10548;10549;10550;, - 3;10551;10552;10553;, - 3;10554;10555;10556;, - 3;10557;10558;10559;, - 3;10560;10561;10562;, - 3;10563;10564;10565;, - 3;10566;10567;10568;, - 3;10569;10570;10571;, - 3;10572;10573;10574;, - 3;10575;10576;10577;, - 3;10578;10579;10580;, - 3;10581;10582;10583;, - 3;10584;10585;10586;, - 3;10587;10588;10589;, - 3;10590;10591;10592;, - 3;10593;10594;10595;, - 3;10596;10597;10598;, - 3;10599;10600;10601;, - 3;10602;10603;10604;, - 3;10605;10606;10607;, - 3;10608;10609;10610;, - 3;10611;10612;10613;, - 3;10614;10615;10616;, - 3;10617;10618;10619;, - 3;10620;10621;10622;, - 3;10623;10624;10625;, - 3;10626;10627;10628;, - 3;10629;10630;10631;, - 3;10632;10633;10634;, - 3;10635;10636;10637;, - 3;10638;10639;10640;, - 3;10641;10642;10643;, - 3;10644;10645;10646;, - 3;10647;10648;10649;, - 3;10650;10651;10652;, - 3;10653;10654;10655;, - 3;10656;10657;10658;, - 3;10659;10660;10661;, - 3;10662;10663;10664;, - 3;10665;10666;10667;, - 3;10668;10669;10670;, - 3;10671;10672;10673;, - 3;10674;10675;10676;, - 3;10677;10678;10679;, - 3;10680;10681;10682;, - 3;10683;10684;10685;, - 3;10686;10687;10688;, - 3;10689;10690;10691;, - 3;10692;10693;10694;, - 3;10695;10696;10697;, - 3;10698;10699;10700;, - 3;10701;10702;10703;, - 3;10704;10705;10706;, - 3;10707;10708;10709;, - 3;10710;10711;10712;, - 3;10713;10714;10715;, - 3;10716;10717;10718;, - 3;10719;10720;10721;, - 3;10722;10723;10724;, - 3;10725;10726;10727;, - 3;10728;10729;10730;, - 3;10731;10732;10733;, - 3;10734;10735;10736;, - 3;10737;10738;10739;, - 3;10740;10741;10742;, - 3;10743;10744;10745;, - 3;10746;10747;10748;, - 3;10749;10750;10751;, - 3;10752;10753;10754;, - 3;10755;10756;10757;, - 3;10758;10759;10760;, - 3;10761;10762;10763;, - 3;10764;10765;10766;, - 3;10767;10768;10769;, - 3;10770;10771;10772;, - 3;10773;10774;10775;, - 3;10776;10777;10778;, - 3;10779;10780;10781;, - 3;10782;10783;10784;, - 3;10785;10786;10787;, - 3;10788;10789;10790;, - 3;10791;10792;10793;, - 3;10794;10795;10796;, - 3;10797;10798;10799;, - 3;10800;10801;10802;, - 3;10803;10804;10805;, - 3;10806;10807;10808;, - 3;10809;10810;10811;, - 3;10812;10813;10814;, - 3;10815;10816;10817;, - 3;10818;10819;10820;, - 3;10821;10822;10823;, - 3;10824;10825;10826;, - 3;10827;10828;10829;, - 3;10830;10831;10832;, - 3;10833;10834;10835;, - 3;10836;10837;10838;, - 3;10839;10840;10841;, - 3;10842;10843;10844;, - 3;10845;10846;10847;, - 3;10848;10849;10850;, - 3;10851;10852;10853;, - 3;10854;10855;10856;, - 3;10857;10858;10859;, - 3;10860;10861;10862;, - 3;10863;10864;10865;, - 3;10866;10867;10868;, - 3;10869;10870;10871;, - 3;10872;10873;10874;, - 3;10875;10876;10877;, - 3;10878;10879;10880;, - 3;10881;10882;10883;, - 3;10884;10885;10886;, - 3;10887;10888;10889;, - 3;10890;10891;10892;, - 3;10893;10894;10895;, - 3;10896;10897;10898;, - 3;10899;10900;10901;, - 3;10902;10903;10904;, - 3;10905;10906;10907;, - 3;10908;10909;10910;, - 3;10911;10912;10913;, - 3;10914;10915;10916;, - 3;10917;10918;10919;, - 3;10920;10921;10922;, - 3;10923;10924;10925;, - 3;10926;10927;10928;, - 3;10929;10930;10931;, - 3;10932;10933;10934;, - 3;10935;10936;10937;, - 3;10938;10939;10940;, - 3;10941;10942;10943;, - 3;10944;10945;10946;, - 3;10947;10948;10949;, - 3;10950;10951;10952;, - 3;10953;10954;10955;, - 3;10956;10957;10958;, - 3;10959;10960;10961;, - 3;10962;10963;10964;, - 3;10965;10966;10967;, - 3;10968;10969;10970;, - 3;10971;10972;10973;, - 3;10974;10975;10976;, - 3;10977;10978;10979;, - 3;10980;10981;10982;, - 3;10983;10984;10985;, - 3;10986;10987;10988;, - 3;10989;10990;10991;, - 3;10992;10993;10994;, - 3;10995;10996;10997;, - 3;10998;10999;11000;, - 3;11001;11002;11003;, - 3;11004;11005;11006;, - 3;11007;11008;11009;, - 3;11010;11011;11012;, - 3;11013;11014;11015;, - 3;11016;11017;11018;, - 3;11019;11020;11021;, - 3;11022;11023;11024;, - 3;11025;11026;11027;, - 3;11028;11029;11030;, - 3;11031;11032;11033;, - 3;11034;11035;11036;, - 3;11037;11038;11039;, - 3;11040;11041;11042;, - 3;11043;11044;11045;, - 3;11046;11047;11048;, - 3;11049;11050;11051;, - 3;11052;11053;11054;, - 3;11055;11056;11057;, - 3;11058;11059;11060;, - 3;11061;11062;11063;, - 3;11064;11065;11066;, - 3;11067;11068;11069;, - 3;11070;11071;11072;, - 3;11073;11074;11075;, - 3;11076;11077;11078;, - 3;11079;11080;11081;, - 3;11082;11083;11084;, - 3;11085;11086;11087;, - 3;11088;11089;11090;, - 3;11091;11092;11093;, - 3;11094;11095;11096;, - 3;11097;11098;11099;, - 3;11100;11101;11102;, - 3;11103;11104;11105;, - 3;11106;11107;11108;, - 3;11109;11110;11111;, - 3;11112;11113;11114;, - 3;11115;11116;11117;, - 3;11118;11119;11120;, - 3;11121;11122;11123;, - 3;11124;11125;11126;, - 3;11127;11128;11129;, - 3;11130;11131;11132;, - 3;11133;11134;11135;, - 3;11136;11137;11138;, - 3;11139;11140;11141;, - 3;11142;11143;11144;, - 3;11145;11146;11147;, - 3;11148;11149;11150;, - 3;11151;11152;11153;, - 3;11154;11155;11156;, - 3;11157;11158;11159;, - 3;11160;11161;11162;, - 3;11163;11164;11165;, - 3;11166;11167;11168;, - 3;11169;11170;11171;, - 3;11172;11173;11174;, - 3;11175;11176;11177;, - 3;11178;11179;11180;, - 3;11181;11182;11183;, - 3;11184;11185;11186;, - 3;11187;11188;11189;, - 3;11190;11191;11192;, - 3;11193;11194;11195;, - 3;11196;11197;11198;, - 3;11199;11200;11201;, - 3;11202;11203;11204;, - 3;11205;11206;11207;, - 3;11208;11209;11210;, - 3;11211;11212;11213;, - 3;11214;11215;11216;, - 3;11217;11218;11219;, - 3;11220;11221;11222;, - 3;11223;11224;11225;, - 3;11226;11227;11228;, - 3;11229;11230;11231;, - 3;11232;11233;11234;, - 3;11235;11236;11237;, - 3;11238;11239;11240;, - 3;11241;11242;11243;, - 3;11244;11245;11246;, - 3;11247;11248;11249;, - 3;11250;11251;11252;, - 3;11253;11254;11255;, - 3;11256;11257;11258;, - 3;11259;11260;11261;, - 3;11262;11263;11264;, - 3;11265;11266;11267;, - 3;11268;11269;11270;, - 3;11271;11272;11273;, - 3;11274;11275;11276;, - 3;11277;11278;11279;, - 3;11280;11281;11282;, - 3;11283;11284;11285;, - 3;11286;11287;11288;, - 3;11289;11290;11291;, - 3;11292;11293;11294;, - 3;11295;11296;11297;, - 3;11298;11299;11300;, - 3;11301;11302;11303;, - 3;11304;11305;11306;, - 3;11307;11308;11309;, - 3;11310;11311;11312;, - 3;11313;11314;11315;, - 3;11316;11317;11318;, - 3;11319;11320;11321;, - 3;11322;11323;11324;, - 3;11325;11326;11327;, - 3;11328;11329;11330;, - 3;11331;11332;11333;, - 3;11334;11335;11336;, - 3;11337;11338;11339;, - 3;11340;11341;11342;, - 3;11343;11344;11345;, - 3;11346;11347;11348;, - 3;11349;11350;11351;, - 3;11352;11353;11354;, - 3;11355;11356;11357;, - 3;11358;11359;11360;, - 3;11361;11362;11363;, - 3;11364;11365;11366;, - 3;11367;11368;11369;, - 3;11370;11371;11372;, - 3;11373;11374;11375;, - 3;11376;11377;11378;, - 3;11379;11380;11381;, - 3;11382;11383;11384;, - 3;11385;11386;11387;, - 3;11388;11389;11390;, - 3;11391;11392;11393;, - 3;11394;11395;11396;, - 3;11397;11398;11399;, - 3;11400;11401;11402;, - 3;11403;11404;11405;, - 3;11406;11407;11408;, - 3;11409;11410;11411;, - 3;11412;11413;11414;, - 3;11415;11416;11417;, - 3;11418;11419;11420;, - 3;11421;11422;11423;, - 3;11424;11425;11426;, - 3;11427;11428;11429;, - 3;11430;11431;11432;, - 3;11433;11434;11435;, - 3;11436;11437;11438;, - 3;11439;11440;11441;, - 3;11442;11443;11444;, - 3;11445;11446;11447;, - 3;11448;11449;11450;, - 3;11451;11452;11453;, - 3;11454;11455;11456;, - 3;11457;11458;11459;, - 3;11460;11461;11462;, - 3;11463;11464;11465;, - 3;11466;11467;11468;, - 3;11469;11470;11471;, - 3;11472;11473;11474;, - 3;11475;11476;11477;, - 3;11478;11479;11480;, - 3;11481;11482;11483;, - 3;11484;11485;11486;, - 3;11487;11488;11489;, - 3;11490;11491;11492;, - 3;11493;11494;11495;, - 3;11496;11497;11498;, - 3;11499;11500;11501;, - 3;11502;11503;11504;, - 3;11505;11506;11507;, - 3;11508;11509;11510;, - 3;11511;11512;11513;, - 3;11514;11515;11516;, - 3;11517;11518;11519;, - 3;11520;11521;11522;, - 3;11523;11524;11525;, - 3;11526;11527;11528;, - 3;11529;11530;11531;, - 3;11532;11533;11534;, - 3;11535;11536;11537;, - 3;11538;11539;11540;, - 3;11541;11542;11543;, - 3;11544;11545;11546;, - 3;11547;11548;11549;, - 3;11550;11551;11552;, - 3;11553;11554;11555;, - 3;11556;11557;11558;, - 3;11559;11560;11561;, - 3;11562;11563;11564;, - 3;11565;11566;11567;, - 3;11568;11569;11570;, - 3;11571;11572;11573;, - 3;11574;11575;11576;, - 3;11577;11578;11579;, - 3;11580;11581;11582;, - 3;11583;11584;11585;, - 3;11586;11587;11588;, - 3;11589;11590;11591;, - 3;11592;11593;11594;, - 3;11595;11596;11597;, - 3;11598;11599;11600;, - 3;11601;11602;11603;, - 3;11604;11605;11606;, - 3;11607;11608;11609;, - 3;11610;11611;11612;, - 3;11613;11614;11615;, - 3;11616;11617;11618;, - 3;11619;11620;11621;, - 3;11622;11623;11624;, - 3;11625;11626;11627;, - 3;11628;11629;11630;, - 3;11631;11632;11633;, - 3;11634;11635;11636;, - 3;11637;11638;11639;, - 3;11640;11641;11642;, - 3;11643;11644;11645;, - 3;11646;11647;11648;, - 3;11649;11650;11651;, - 3;11652;11653;11654;, - 3;11655;11656;11657;, - 3;11658;11659;11660;, - 3;11661;11662;11663;, - 3;11664;11665;11666;, - 3;11667;11668;11669;, - 3;11670;11671;11672;, - 3;11673;11674;11675;, - 3;11676;11677;11678;, - 3;11679;11680;11681;, - 3;11682;11683;11684;, - 3;11685;11686;11687;, - 3;11688;11689;11690;, - 3;11691;11692;11693;, - 3;11694;11695;11696;, - 3;11697;11698;11699;, - 3;11700;11701;11702;, - 3;11703;11704;11705;, - 3;11706;11707;11708;, - 3;11709;11710;11711;, - 3;11712;11713;11714;, - 3;11715;11716;11717;, - 3;11718;11719;11720;, - 3;11721;11722;11723;, - 3;11724;11725;11726;, - 3;11727;11728;11729;, - 3;11730;11731;11732;, - 3;11733;11734;11735;, - 3;11736;11737;11738;, - 3;11739;11740;11741;, - 3;11742;11743;11744;, - 3;11745;11746;11747;, - 3;11748;11749;11750;, - 3;11751;11752;11753;, - 3;11754;11755;11756;, - 3;11757;11758;11759;, - 3;11760;11761;11762;, - 3;11763;11764;11765;, - 3;11766;11767;11768;, - 3;11769;11770;11771;, - 3;11772;11773;11774;, - 3;11775;11776;11777;, - 3;11778;11779;11780;, - 3;11781;11782;11783;, - 3;11784;11785;11786;, - 3;11787;11788;11789;, - 3;11790;11791;11792;, - 3;11793;11794;11795;, - 3;11796;11797;11798;, - 3;11799;11800;11801;, - 3;11802;11803;11804;, - 3;11805;11806;11807;, - 3;11808;11809;11810;, - 3;11811;11812;11813;, - 3;11814;11815;11816;, - 3;11817;11818;11819;, - 3;11820;11821;11822;, - 3;11823;11824;11825;, - 3;11826;11827;11828;, - 3;11829;11830;11831;, - 3;11832;11833;11834;, - 3;11835;11836;11837;, - 3;11838;11839;11840;, - 3;11841;11842;11843;, - 3;11844;11845;11846;, - 3;11847;11848;11849;, - 3;11850;11851;11852;, - 3;11853;11854;11855;, - 3;11856;11857;11858;, - 3;11859;11860;11861;, - 3;11862;11863;11864;, - 3;11865;11866;11867;, - 3;11868;11869;11870;, - 3;11871;11872;11873;, - 3;11874;11875;11876;, - 3;11877;11878;11879;, - 3;11880;11881;11882;, - 3;11883;11884;11885;, - 3;11886;11887;11888;, - 3;11889;11890;11891;, - 3;11892;11893;11894;, - 3;11895;11896;11897;, - 3;11898;11899;11900;, - 3;11901;11902;11903;, - 3;11904;11905;11906;, - 3;11907;11908;11909;, - 3;11910;11911;11912;, - 3;11913;11914;11915;, - 3;11916;11917;11918;, - 3;11919;11920;11921;, - 3;11922;11923;11924;, - 3;11925;11926;11927;, - 3;11928;11929;11930;, - 3;11931;11932;11933;, - 3;11934;11935;11936;, - 3;11937;11938;11939;, - 3;11940;11941;11942;, - 3;11943;11944;11945;, - 3;11946;11947;11948;, - 3;11949;11950;11951;, - 3;11952;11953;11954;, - 3;11955;11956;11957;, - 3;11958;11959;11960;, - 3;11961;11962;11963;, - 3;11964;11965;11966;, - 3;11967;11968;11969;, - 3;11970;11971;11972;, - 3;11973;11974;11975;, - 3;11976;11977;11978;, - 3;11979;11980;11981;, - 3;11982;11983;11984;, - 3;11985;11986;11987;, - 3;11988;11989;11990;, - 3;11991;11992;11993;, - 3;11994;11995;11996;, - 3;11997;11998;11999;, - 3;12000;12001;12002;, - 3;12003;12004;12005;, - 3;12006;12007;12008;, - 3;12009;12010;12011;, - 3;12012;12013;12014;, - 3;12015;12016;12017;, - 3;12018;12019;12020;, - 3;12021;12022;12023;, - 3;12024;12025;12026;, - 3;12027;12028;12029;, - 3;12030;12031;12032;, - 3;12033;12034;12035;, - 3;12036;12037;12038;, - 3;12039;12040;12041;, - 3;12042;12043;12044;, - 3;12045;12046;12047;, - 3;12048;12049;12050;, - 3;12051;12052;12053;, - 3;12054;12055;12056;, - 3;12057;12058;12059;, - 3;12060;12061;12062;, - 3;12063;12064;12065;, - 3;12066;12067;12068;, - 3;12069;12070;12071;, - 3;12072;12073;12074;, - 3;12075;12076;12077;, - 3;12078;12079;12080;, - 3;12081;12082;12083;, - 3;12084;12085;12086;, - 3;12087;12088;12089;, - 3;12090;12091;12092;, - 3;12093;12094;12095;, - 3;12096;12097;12098;, - 3;12099;12100;12101;, - 3;12102;12103;12104;, - 3;12105;12106;12107;, - 3;12108;12109;12110;, - 3;12111;12112;12113;, - 3;12114;12115;12116;, - 3;12117;12118;12119;, - 3;12120;12121;12122;, - 3;12123;12124;12125;, - 3;12126;12127;12128;, - 3;12129;12130;12131;, - 4;12132;12133;12134;12135;, - 3;12136;12137;12138;, - 3;12139;12140;12141;, - 4;12142;12143;12144;12145;, - 4;12146;12147;12148;12149;, - 3;12150;12151;12152;, - 3;12153;12154;12155;, - 4;12156;12157;12158;12159;, - 3;12160;12161;12162;, - 3;12163;12164;12165;, - 3;12166;12167;12168;, - 3;12169;12170;12171;, - 3;12172;12173;12174;, - 4;12175;12176;12177;12178;, - 4;12179;12180;12181;12182;, - 4;12183;12184;12185;12186;, - 4;12187;12188;12189;12190;, - 4;12191;12192;12193;12194;, - 4;12195;12196;12197;12198;, - 4;12199;12200;12201;12202;, - 4;12203;12204;12205;12206;, - 4;12207;12208;12209;12210;, - 4;12211;12212;12213;12214;, - 4;12215;12216;12217;12218;, - 4;12219;12220;12221;12222;, - 4;12223;12224;12225;12226;, - 4;12227;12228;12229;12230;, - 4;12231;12232;12233;12234;, - 4;12235;12236;12237;12238;, - 4;12239;12240;12241;12242;, - 4;12243;12244;12245;12246;, - 4;12247;12248;12249;12250;, - 4;12251;12252;12253;12254;, - 4;12255;12256;12257;12258;, - 4;12259;12260;12261;12262;, - 4;12263;12264;12265;12266;, - 4;12267;12268;12269;12270;, - 4;12271;12272;12273;12274;, - 4;12275;12276;12277;12278;, - 4;12279;12280;12281;12282;, - 4;12283;12284;12285;12286;, - 4;12287;12288;12289;12290;, - 4;12291;12292;12293;12294;, - 4;12295;12296;12297;12298;, - 4;12299;12300;12301;12302;, - 4;12303;12304;12305;12306;, - 4;12307;12308;12309;12310;, - 4;12311;12312;12313;12314;, - 4;12315;12316;12317;12318;, - 4;12319;12320;12321;12322;, - 4;12323;12324;12325;12326;, - 4;12327;12328;12329;12330;, - 4;12331;12332;12333;12334;, - 4;12335;12336;12337;12338;, - 4;12339;12340;12341;12342;, - 4;12343;12344;12345;12346;, - 4;12347;12348;12349;12350;, - 4;12351;12352;12353;12354;, - 4;12355;12356;12357;12358;, - 4;12359;12360;12361;12362;, - 4;12363;12364;12365;12366;, - 4;12367;12368;12369;12370;, - 4;12371;12372;12373;12374;, - 4;12375;12376;12377;12378;, - 4;12379;12380;12381;12382;, - 4;12383;12384;12385;12386;, - 4;12387;12388;12389;12390;, - 4;12391;12392;12393;12394;, - 4;12395;12396;12397;12398;, - 4;12399;12400;12401;12402;, - 4;12403;12404;12405;12406;, - 4;12407;12408;12409;12410;, - 4;12411;12412;12413;12414;, - 4;12415;12416;12417;12418;, - 4;12419;12420;12421;12422;, - 4;12423;12424;12425;12426;, - 4;12427;12428;12429;12430;, - 4;12431;12432;12433;12434;, - 4;12435;12436;12437;12438;, - 4;12439;12440;12441;12442;, - 4;12443;12444;12445;12446;, - 4;12447;12448;12449;12450;, - 4;12451;12452;12453;12454;, - 4;12455;12456;12457;12458;, - 4;12459;12460;12461;12462;, - 4;12463;12464;12465;12466;, - 4;12467;12468;12469;12470;, - 4;12471;12472;12473;12474;, - 4;12475;12476;12477;12478;, - 4;12479;12480;12481;12482;, - 4;12483;12484;12485;12486;, - 4;12487;12488;12489;12490;, - 4;12491;12492;12493;12494;, - 4;12495;12496;12497;12498;, - 4;12499;12500;12501;12502;, - 4;12503;12504;12505;12506;, - 4;12507;12508;12509;12510;, - 4;12511;12512;12513;12514;, - 4;12515;12516;12517;12518;, - 4;12519;12520;12521;12522;, - 4;12523;12524;12525;12526;, - 4;12527;12528;12529;12530;, - 4;12531;12532;12533;12534;, - 4;12535;12536;12537;12538;, - 4;12539;12540;12541;12542;, - 4;12543;12544;12545;12546;, - 4;12547;12548;12549;12550;, - 4;12551;12552;12553;12554;, - 4;12555;12556;12557;12558;, - 4;12559;12560;12561;12562;, - 4;12563;12564;12565;12566;, - 4;12567;12568;12569;12570;, - 4;12571;12572;12573;12574;, - 4;12575;12576;12577;12578;, - 4;12579;12580;12581;12582;, - 4;12583;12584;12585;12586;, - 4;12587;12588;12589;12590;, - 4;12591;12592;12593;12594;, - 4;12595;12596;12597;12598;, - 4;12599;12600;12601;12602;, - 4;12603;12604;12605;12606;, - 4;12607;12608;12609;12610;, - 4;12611;12612;12613;12614;, - 4;12615;12616;12617;12618;, - 4;12619;12620;12621;12622;, - 4;12623;12624;12625;12626;, - 4;12627;12628;12629;12630;, - 4;12631;12632;12633;12634;, - 4;12635;12636;12637;12638;, - 4;12639;12640;12641;12642;, - 4;12643;12644;12645;12646;, - 4;12647;12648;12649;12650;, - 4;12651;12652;12653;12654;, - 4;12655;12656;12657;12658;, - 4;12659;12660;12661;12662;, - 4;12663;12664;12665;12666;, - 4;12667;12668;12669;12670;, - 4;12671;12672;12673;12674;, - 4;12675;12676;12677;12678;, - 4;12679;12680;12681;12682;, - 4;12683;12684;12685;12686;, - 4;12687;12688;12689;12690;, - 4;12691;12692;12693;12694;, - 4;12695;12696;12697;12698;, - 4;12699;12700;12701;12702;, - 4;12703;12704;12705;12706;, - 4;12707;12708;12709;12710;, - 4;12711;12712;12713;12714;, - 4;12715;12716;12717;12718;, - 4;12719;12720;12721;12722;, - 4;12723;12724;12725;12726;, - 4;12727;12728;12729;12730;, - 4;12731;12732;12733;12734;, - 4;12735;12736;12737;12738;, - 4;12739;12740;12741;12742;, - 4;12743;12744;12745;12746;, - 4;12747;12748;12749;12750;, - 4;12751;12752;12753;12754;, - 4;12755;12756;12757;12758;, - 4;12759;12760;12761;12762;, - 4;12763;12764;12765;12766;, - 4;12767;12768;12769;12770;, - 4;12771;12772;12773;12774;, - 4;12775;12776;12777;12778;, - 4;12779;12780;12781;12782;, - 4;12783;12784;12785;12786;, - 4;12787;12788;12789;12790;, - 4;12791;12792;12793;12794;, - 4;12795;12796;12797;12798;, - 4;12799;12800;12801;12802;, - 4;12803;12804;12805;12806;, - 4;12807;12808;12809;12810;, - 4;12811;12812;12813;12814;, - 4;12815;12816;12817;12818;, - 4;12819;12820;12821;12822;, - 4;12823;12824;12825;12826;, - 4;12827;12828;12829;12830;, - 4;12831;12832;12833;12834;, - 4;12835;12836;12837;12838;, - 4;12839;12840;12841;12842;, - 4;12843;12844;12845;12846;, - 4;12847;12848;12849;12850;, - 4;12851;12852;12853;12854;, - 4;12855;12856;12857;12858;, - 4;12859;12860;12861;12862;, - 4;12863;12864;12865;12866;, - 4;12867;12868;12869;12870;, - 4;12871;12872;12873;12874;, - 4;12875;12876;12877;12878;, - 4;12879;12880;12881;12882;, - 4;12883;12884;12885;12886;, - 4;12887;12888;12889;12890;, - 4;12891;12892;12893;12894;, - 4;12895;12896;12897;12898;, - 4;12899;12900;12901;12902;, - 4;12903;12904;12905;12906;, - 4;12907;12908;12909;12910;, - 4;12911;12912;12913;12914;, - 4;12915;12916;12917;12918;, - 4;12919;12920;12921;12922;, - 4;12923;12924;12925;12926;, - 4;12927;12928;12929;12930;, - 4;12931;12932;12933;12934;, - 4;12935;12936;12937;12938;, - 4;12939;12940;12941;12942;, - 4;12943;12944;12945;12946;, - 4;12947;12948;12949;12950;, - 4;12951;12952;12953;12954;, - 4;12955;12956;12957;12958;, - 3;12959;12960;12961;, - 4;12962;12963;12964;12965;, - 4;12966;12967;12968;12969;, - 3;12970;12971;12972;, - 3;12973;12974;12975;, - 4;12976;12977;12978;12979;, - 4;12980;12981;12982;12983;, - 3;12984;12985;12986;, - 3;12987;12988;12989;, - 4;12990;12991;12992;12993;, - 4;12994;12995;12996;12997;, - 4;12998;12999;13000;13001;, - 4;13002;13003;13004;13005;, - 4;13006;13007;13008;13009;, - 4;13010;13011;13012;13013;, - 4;13014;13015;13016;13017;, - 4;13018;13019;13020;13021;, - 4;13022;13023;13024;13025;, - 4;13026;13027;13028;13029;, - 4;13030;13031;13032;13033;, - 4;13034;13035;13036;13037;, - 4;13038;13039;13040;13041;, - 4;13042;13043;13044;13045;, - 3;13046;13047;13048;, - 4;13049;13050;13051;13052;, - 4;13053;13054;13055;13056;, - 3;13057;13058;13059;, - 3;13060;13061;13062;, - 4;13063;13064;13065;13066;, - 4;13067;13068;13069;13070;, - 4;13071;13072;13073;13074;, - 4;13075;13076;13077;13078;, - 4;13079;13080;13081;13082;, - 4;13083;13084;13085;13086;, - 4;13087;13088;13089;13090;, - 4;13091;13092;13093;13094;, - 3;13095;13096;13097;, - 4;13098;13099;13100;13101;, - 4;13102;13103;13104;13105;, - 4;13106;13107;13108;13109;, - 4;13110;13111;13112;13113;, - 4;13114;13115;13116;13117;, - 4;13118;13119;13120;13121;, - 4;13122;13123;13124;13125;, - 4;13126;13127;13128;13129;, - 4;13130;13131;13132;13133;, - 4;13134;13135;13136;13137;, - 4;13138;13139;13140;13141;, - 4;13142;13143;13144;13145;, - 4;13146;13147;13148;13149;, - 4;13150;13151;13152;13153;, - 4;13154;13155;13156;13157;, - 4;13158;13159;13160;13161;, - 4;13162;13163;13164;13165;, - 4;13166;13167;13168;13169;, - 3;13170;13171;13172;, - 4;13173;13174;13175;13176;, - 4;13177;13178;13179;13180;, - 3;13181;13182;13183;, - 3;13184;13185;13186;, - 4;13187;13188;13189;13190;, - 4;13191;13192;13193;13194;, - 3;13195;13196;13197;, - 3;13198;13199;13200;, - 4;13201;13202;13203;13204;, - 4;13205;13206;13207;13208;, - 4;13209;13210;13211;13212;, - 4;13213;13214;13215;13216;, - 4;13217;13218;13219;13220;, - 4;13221;13222;13223;13224;, - 4;13225;13226;13227;13228;, - 4;13229;13230;13231;13232;, - 4;13233;13234;13235;13236;, - 4;13237;13238;13239;13240;, - 4;13241;13242;13243;13244;, - 4;13245;13246;13247;13248;, - 4;13249;13250;13251;13252;, - 4;13253;13254;13255;13256;, - 3;13257;13258;13259;, - 4;13260;13261;13262;13263;, - 4;13264;13265;13266;13267;, - 3;13268;13269;13270;, - 3;13271;13272;13273;, - 4;13274;13275;13276;13277;, - 4;13278;13279;13280;13281;, - 4;13282;13283;13284;13285;, - 4;13286;13287;13288;13289;, - 4;13290;13291;13292;13293;, - 4;13294;13295;13296;13297;, - 4;13298;13299;13300;13301;, - 4;13302;13303;13304;13305;, - 3;13306;13307;13308;, - 4;13309;13310;13311;13312;, - 4;13313;13314;13315;13316;, - 4;13317;13318;13319;13320;, - 4;13321;13322;13323;13324;, - 4;13325;13326;13327;13328;, - 4;13329;13330;13331;13332;, - 4;13333;13334;13335;13336;, - 4;13337;13338;13339;13340;, - 4;13341;13342;13343;13344;, - 4;13345;13346;13347;13348;, - 4;13349;13350;13351;13352;, - 4;13353;13354;13355;13356;, - 4;13357;13358;13359;13360;, - 4;13361;13362;13363;13364;, - 4;13365;13366;13367;13368;, - 4;13369;13370;13371;13372;, - 4;13373;13374;13375;13376;, - 4;13377;13378;13379;13380;, - 4;13381;13382;13383;13384;, - 4;13385;13386;13387;13388;, - 3;13389;13390;13391;, - 4;13392;13393;13394;13395;, - 4;13396;13397;13398;13399;, - 4;13400;13401;13402;13403;, - 4;13404;13405;13406;13407;, - 4;13408;13409;13410;13411;, - 4;13412;13413;13414;13415;, - 4;13416;13417;13418;13419;, - 4;13420;13421;13422;13423;, - 4;13424;13425;13426;13427;, - 4;13428;13429;13430;13431;, - 4;13432;13433;13434;13435;, - 4;13436;13437;13438;13439;, - 4;13440;13441;13442;13443;, - 4;13444;13445;13446;13447;, - 4;13448;13449;13450;13451;, - 4;13452;13453;13454;13455;, - 4;13456;13457;13458;13459;, - 4;13460;13461;13462;13463;, - 4;13464;13465;13466;13467;, - 4;13468;13469;13470;13471;, - 4;13472;13473;13474;13475;, - 4;13476;13477;13478;13479;, - 4;13480;13481;13482;13483;, - 4;13484;13485;13486;13487;, - 4;13488;13489;13490;13491;, - 4;13492;13493;13494;13495;, - 4;13496;13497;13498;13499;, - 4;13500;13501;13502;13503;, - 4;13504;13505;13506;13507;, - 4;13508;13509;13510;13511;, - 4;13512;13513;13514;13515;, - 4;13516;13517;13518;13519;, - 4;13520;13521;13522;13523;, - 4;13524;13525;13526;13527;, - 4;13528;13529;13530;13531;, - 4;13532;13533;13534;13535;, - 4;13536;13537;13538;13539;, - 4;13540;13541;13542;13543;, - 4;13544;13545;13546;13547;, - 4;13548;13549;13550;13551;, - 4;13552;13553;13554;13555;, - 4;13556;13557;13558;13559;, - 4;13560;13561;13562;13563;, - 4;13564;13565;13566;13567;, - 4;13568;13569;13570;13571;, - 4;13572;13573;13574;13575;, - 4;13576;13577;13578;13579;, - 4;13580;13581;13582;13583;, - 4;13584;13585;13586;13587;, - 4;13588;13589;13590;13591;, - 4;13592;13593;13594;13595;, - 4;13596;13597;13598;13599;, - 4;13600;13601;13602;13603;, - 4;13604;13605;13606;13607;, - 4;13608;13609;13610;13611;, - 4;13612;13613;13614;13615;, - 4;13616;13617;13618;13619;, - 4;13620;13621;13622;13623;, - 4;13624;13625;13626;13627;, - 4;13628;13629;13630;13631;, - 4;13632;13633;13634;13635;, - 4;13636;13637;13638;13639;, - 4;13640;13641;13642;13643;, - 4;13644;13645;13646;13647;, - 4;13648;13649;13650;13651;, - 4;13652;13653;13654;13655;, - 4;13656;13657;13658;13659;, - 4;13660;13661;13662;13663;, - 4;13664;13665;13666;13667;, - 4;13668;13669;13670;13671;, - 4;13672;13673;13674;13675;, - 4;13676;13677;13678;13679;, - 4;13680;13681;13682;13683;, - 4;13684;13685;13686;13687;, - 4;13688;13689;13690;13691;, - 4;13692;13693;13694;13695;, - 4;13696;13697;13698;13699;, - 4;13700;13701;13702;13703;, - 4;13704;13705;13706;13707;, - 4;13708;13709;13710;13711;, - 4;13712;13713;13714;13715;, - 4;13716;13717;13718;13719;, - 4;13720;13721;13722;13723;, - 4;13724;13725;13726;13727;, - 4;13728;13729;13730;13731;, - 4;13732;13733;13734;13735;, - 4;13736;13737;13738;13739;, - 4;13740;13741;13742;13743;, - 4;13744;13745;13746;13747;, - 4;13748;13749;13750;13751;, - 4;13752;13753;13754;13755;, - 4;13756;13757;13758;13759;, - 4;13760;13761;13762;13763;, - 4;13764;13765;13766;13767;, - 4;13768;13769;13770;13771;, - 4;13772;13773;13774;13775;, - 4;13776;13777;13778;13779;, - 4;13780;13781;13782;13783;, - 4;13784;13785;13786;13787;, - 4;13788;13789;13790;13791;, - 4;13792;13793;13794;13795;, - 4;13796;13797;13798;13799;, - 4;13800;13801;13802;13803;, - 4;13804;13805;13806;13807;, - 4;13808;13809;13810;13811;, - 4;13812;13813;13814;13815;, - 4;13816;13817;13818;13819;, - 4;13820;13821;13822;13823;, - 4;13824;13825;13826;13827;, - 4;13828;13829;13830;13831;, - 4;13832;13833;13834;13835;, - 4;13836;13837;13838;13839;, - 4;13840;13841;13842;13843;, - 4;13844;13845;13846;13847;, - 4;13848;13849;13850;13851;, - 4;13852;13853;13854;13855;, - 4;13856;13857;13858;13859;, - 4;13860;13861;13862;13863;, - 4;13864;13865;13866;13867;, - 4;13868;13869;13870;13871;, - 4;13872;13873;13874;13875;, - 4;13876;13877;13878;13879;, - 4;13880;13881;13882;13883;, - 4;13884;13885;13886;13887;, - 4;13888;13889;13890;13891;, - 4;13892;13893;13894;13895;, - 4;13896;13897;13898;13899;, - 4;13900;13901;13902;13903;, - 4;13904;13905;13906;13907;, - 4;13908;13909;13910;13911;, - 4;13912;13913;13914;13915;, - 4;13916;13917;13918;13919;, - 4;13920;13921;13922;13923;, - 4;13924;13925;13926;13927;, - 4;13928;13929;13930;13931;, - 4;13932;13933;13934;13935;, - 4;13936;13937;13938;13939;, - 4;13940;13941;13942;13943;, - 4;13944;13945;13946;13947;, - 4;13948;13949;13950;13951;, - 4;13952;13953;13954;13955;, - 4;13956;13957;13958;13959;, - 4;13960;13961;13962;13963;, - 4;13964;13965;13966;13967;, - 4;13968;13969;13970;13971;, - 4;13972;13973;13974;13975;, - 4;13976;13977;13978;13979;, - 4;13980;13981;13982;13983;, - 4;13984;13985;13986;13987;, - 4;13988;13989;13990;13991;, - 4;13992;13993;13994;13995;, - 4;13996;13997;13998;13999;, - 4;14000;14001;14002;14003;, - 4;14004;14005;14006;14007;, - 4;14008;14009;14010;14011;, - 4;14012;14013;14014;14015;, - 4;14016;14017;14018;14019;, - 4;14020;14021;14022;14023;, - 4;14024;14025;14026;14027;, - 4;14028;14029;14030;14031;, - 4;14032;14033;14034;14035;, - 4;14036;14037;14038;14039;, - 4;14040;14041;14042;14043;, - 4;14044;14045;14046;14047;, - 4;14048;14049;14050;14051;, - 4;14052;14053;14054;14055;, - 4;14056;14057;14058;14059;, - 4;14060;14061;14062;14063;, - 4;14064;14065;14066;14067;, - 4;14068;14069;14070;14071;, - 4;14072;14073;14074;14075;, - 4;14076;14077;14078;14079;, - 4;14080;14081;14082;14083;, - 4;14084;14085;14086;14087;, - 4;14088;14089;14090;14091;, - 4;14092;14093;14094;14095;, - 4;14096;14097;14098;14099;, - 4;14100;14101;14102;14103;, - 4;14104;14105;14106;14107;, - 4;14108;14109;14110;14111;, - 4;14112;14113;14114;14115;, - 4;14116;14117;14118;14119;, - 4;14120;14121;14122;14123;, - 4;14124;14125;14126;14127;, - 4;14128;14129;14130;14131;, - 4;14132;14133;14134;14135;, - 4;14136;14137;14138;14139;, - 4;14140;14141;14142;14143;, - 4;14144;14145;14146;14147;, - 4;14148;14149;14150;14151;, - 4;14152;14153;14154;14155;, - 4;14156;14157;14158;14159;, - 4;14160;14161;14162;14163;, - 4;14164;14165;14166;14167;, - 4;14168;14169;14170;14171;, - 4;14172;14173;14174;14175;, - 4;14176;14177;14178;14179;, - 4;14180;14181;14182;14183;, - 4;14184;14185;14186;14187;, - 4;14188;14189;14190;14191;, - 4;14192;14193;14194;14195;, - 4;14196;14197;14198;14199;, - 4;14200;14201;14202;14203;, - 4;14204;14205;14206;14207;, - 4;14208;14209;14210;14211;, - 4;14212;14213;14214;14215;, - 4;14216;14217;14218;14219;, - 4;14220;14221;14222;14223;, - 3;14224;14225;14226;, - 3;14227;14228;14229;, - 3;14230;14231;14232;, - 4;14233;14234;14235;14236;, - 3;14237;14238;14239;, - 4;14240;14241;14242;14243;, - 3;14244;14245;14246;, - 4;14247;14248;14249;14250;, - 3;14251;14252;14253;, - 3;14254;14255;14256;, - 4;14257;14258;14259;14260;, - 3;14261;14262;14263;, - 4;14264;14265;14266;14267;, - 3;14268;14269;14270;, - 3;14271;14272;14273;, - 4;14274;14275;14276;14277;, - 3;14278;14279;14280;, - 4;14281;14282;14283;14284;, - 3;14285;14286;14287;, - 4;14288;14289;14290;14291;, - 3;14292;14293;14294;, - 3;14295;14296;14297;, - 4;14298;14299;14300;14301;, - 3;14302;14303;14304;, - 4;14305;14306;14307;14308;, - 3;14309;14310;14311;, - 4;14312;14313;14314;14315;, - 4;14316;14317;14318;14319;, - 3;14320;14321;14322;, - 4;14323;14324;14325;14326;, - 4;14327;14328;14329;14330;, - 4;14331;14332;14333;14334;, - 4;14335;14336;14337;14338;, - 4;14339;14340;14341;14342;, - 3;14343;14344;14345;, - 4;14346;14347;14348;14349;, - 3;14350;14351;14352;, - 3;14353;14354;14355;, - 4;14356;14357;14358;14359;, - 3;14360;14361;14362;, - 4;14363;14364;14365;14366;, - 4;14367;14368;14369;14370;, - 4;14371;14372;14373;14374;, - 3;14375;14376;14377;, - 3;14378;14379;14380;, - 4;14381;14382;14383;14384;, - 3;14385;14386;14387;, - 4;14388;14389;14390;14391;, - 3;14392;14393;14394;, - 4;14395;14396;14397;14398;, - 3;14399;14400;14401;, - 3;14402;14403;14404;, - 4;14405;14406;14407;14408;, - 4;14409;14410;14411;14412;, - 4;14413;14414;14415;14416;, - 4;14417;14418;14419;14420;, - 4;14421;14422;14423;14424;, - 3;14425;14426;14427;, - 4;14428;14429;14430;14431;, - 3;14432;14433;14434;, - 4;14435;14436;14437;14438;, - 3;14439;14440;14441;, - 4;14442;14443;14444;14445;, - 4;14446;14447;14448;14449;, - 4;14450;14451;14452;14453;, - 3;14454;14455;14456;, - 4;14457;14458;14459;14460;, - 3;14461;14462;14463;, - 4;14464;14465;14466;14467;, - 3;14468;14469;14470;, - 3;14471;14472;14473;, - 4;14474;14475;14476;14477;, - 3;14478;14479;14480;, - 4;14481;14482;14483;14484;, - 3;14485;14486;14487;, - 4;14488;14489;14490;14491;, - 3;14492;14493;14494;, - 3;14495;14496;14497;, - 4;14498;14499;14500;14501;, - 3;14502;14503;14504;, - 4;14505;14506;14507;14508;, - 3;14509;14510;14511;, - 3;14512;14513;14514;, - 4;14515;14516;14517;14518;, - 3;14519;14520;14521;, - 4;14522;14523;14524;14525;, - 3;14526;14527;14528;, - 4;14529;14530;14531;14532;, - 3;14533;14534;14535;, - 3;14536;14537;14538;, - 4;14539;14540;14541;14542;, - 3;14543;14544;14545;, - 4;14546;14547;14548;14549;, - 3;14550;14551;14552;, - 3;14553;14554;14555;, - 3;14556;14557;14558;, - 3;14559;14560;14561;, - 3;14562;14563;14564;, - 4;14565;14566;14567;14568;, - 4;14569;14570;14571;14572;, - 4;14573;14574;14575;14576;, - 4;14577;14578;14579;14580;, - 4;14581;14582;14583;14584;, - 4;14585;14586;14587;14588;, - 4;14589;14590;14591;14592;, - 4;14593;14594;14595;14596;, - 4;14597;14598;14599;14600;, - 4;14601;14602;14603;14604;, - 4;14605;14606;14607;14608;, - 4;14609;14610;14611;14612;, - 4;14613;14614;14615;14616;, - 4;14617;14618;14619;14620;, - 4;14621;14622;14623;14624;, - 4;14625;14626;14627;14628;, - 4;14629;14630;14631;14632;, - 4;14633;14634;14635;14636;, - 4;14637;14638;14639;14640;, - 4;14641;14642;14643;14644;, - 4;14645;14646;14647;14648;, - 4;14649;14650;14651;14652;, - 4;14653;14654;14655;14656;, - 4;14657;14658;14659;14660;, - 4;14661;14662;14663;14664;, - 4;14665;14666;14667;14668;, - 4;14669;14670;14671;14672;, - 4;14673;14674;14675;14676;, - 4;14677;14678;14679;14680;, - 4;14681;14682;14683;14684;, - 4;14685;14686;14687;14688;, - 4;14689;14690;14691;14692;, - 4;14693;14694;14695;14696;, - 4;14697;14698;14699;14700;, - 4;14701;14702;14703;14704;, - 4;14705;14706;14707;14708;, - 4;14709;14710;14711;14712;, - 4;14713;14714;14715;14716;, - 4;14717;14718;14719;14720;, - 4;14721;14722;14723;14724;, - 4;14725;14726;14727;14728;, - 4;14729;14730;14731;14732;, - 4;14733;14734;14735;14736;, - 4;14737;14738;14739;14740;, - 4;14741;14742;14743;14744;, - 4;14745;14746;14747;14748;, - 4;14749;14750;14751;14752;, - 4;14753;14754;14755;14756;, - 4;14757;14758;14759;14760;, - 4;14761;14762;14763;14764;, - 4;14765;14766;14767;14768;, - 4;14769;14770;14771;14772;, - 4;14773;14774;14775;14776;, - 4;14777;14778;14779;14780;, - 4;14781;14782;14783;14784;, - 4;14785;14786;14787;14788;, - 4;14789;14790;14791;14792;, - 4;14793;14794;14795;14796;, - 4;14797;14798;14799;14800;, - 4;14801;14802;14803;14804;, - 4;14805;14806;14807;14808;, - 4;14809;14810;14811;14812;, - 4;14813;14814;14815;14816;, - 4;14817;14818;14819;14820;, - 4;14821;14822;14823;14824;, - 4;14825;14826;14827;14828;, - 4;14829;14830;14831;14832;, - 4;14833;14834;14835;14836;, - 4;14837;14838;14839;14840;, - 4;14841;14842;14843;14844;, - 4;14845;14846;14847;14848;, - 4;14849;14850;14851;14852;, - 4;14853;14854;14855;14856;, - 4;14857;14858;14859;14860;, - 4;14861;14862;14863;14864;, - 4;14865;14866;14867;14868;, - 4;14869;14870;14871;14872;, - 4;14873;14874;14875;14876;, - 4;14877;14878;14879;14880;, - 4;14881;14882;14883;14884;, - 4;14885;14886;14887;14888;, - 4;14889;14890;14891;14892;, - 4;14893;14894;14895;14896;, - 4;14897;14898;14899;14900;, - 4;14901;14902;14903;14904;, - 4;14905;14906;14907;14908;, - 4;14909;14910;14911;14912;, - 4;14913;14914;14915;14916;, - 4;14917;14918;14919;14920;, - 4;14921;14922;14923;14924;, - 4;14925;14926;14927;14928;, - 4;14929;14930;14931;14932;, - 4;14933;14934;14935;14936;, - 4;14937;14938;14939;14940;, - 4;14941;14942;14943;14944;, - 4;14945;14946;14947;14948;, - 4;14949;14950;14951;14952;, - 4;14953;14954;14955;14956;, - 4;14957;14958;14959;14960;, - 4;14961;14962;14963;14964;, - 4;14965;14966;14967;14968;, - 4;14969;14970;14971;14972;, - 4;14973;14974;14975;14976;, - 4;14977;14978;14979;14980;, - 4;14981;14982;14983;14984;, - 4;14985;14986;14987;14988;, - 4;14989;14990;14991;14992;, - 4;14993;14994;14995;14996;, - 4;14997;14998;14999;15000;, - 4;15001;15002;15003;15004;, - 4;15005;15006;15007;15008;, - 4;15009;15010;15011;15012;, - 4;15013;15014;15015;15016;, - 4;15017;15018;15019;15020;, - 4;15021;15022;15023;15024;, - 4;15025;15026;15027;15028;, - 4;15029;15030;15031;15032;, - 4;15033;15034;15035;15036;, - 4;15037;15038;15039;15040;, - 4;15041;15042;15043;15044;, - 4;15045;15046;15047;15048;, - 4;15049;15050;15051;15052;, - 4;15053;15054;15055;15056;, - 4;15057;15058;15059;15060;, - 4;15061;15062;15063;15064;, - 4;15065;15066;15067;15068;, - 4;15069;15070;15071;15072;, - 4;15073;15074;15075;15076;, - 4;15077;15078;15079;15080;, - 4;15081;15082;15083;15084;, - 4;15085;15086;15087;15088;, - 4;15089;15090;15091;15092;, - 4;15093;15094;15095;15096;, - 4;15097;15098;15099;15100;, - 4;15101;15102;15103;15104;, - 4;15105;15106;15107;15108;, - 4;15109;15110;15111;15112;, - 4;15113;15114;15115;15116;, - 4;15117;15118;15119;15120;, - 4;15121;15122;15123;15124;, - 4;15125;15126;15127;15128;, - 4;15129;15130;15131;15132;, - 4;15133;15134;15135;15136;, - 4;15137;15138;15139;15140;, - 4;15141;15142;15143;15144;, - 4;15145;15146;15147;15148;, - 4;15149;15150;15151;15152;, - 4;15153;15154;15155;15156;, - 4;15157;15158;15159;15160;, - 4;15161;15162;15163;15164;, - 4;15165;15166;15167;15168;, - 4;15169;15170;15171;15172;, - 4;15173;15174;15175;15176;, - 4;15177;15178;15179;15180;, - 4;15181;15182;15183;15184;, - 4;15185;15186;15187;15188;, - 4;15189;15190;15191;15192;, - 4;15193;15194;15195;15196;, - 4;15197;15198;15199;15200;, - 4;15201;15202;15203;15204;, - 4;15205;15206;15207;15208;, - 4;15209;15210;15211;15212;, - 4;15213;15214;15215;15216;, - 4;15217;15218;15219;15220;, - 4;15221;15222;15223;15224;, - 4;15225;15226;15227;15228;, - 4;15229;15230;15231;15232;, - 4;15233;15234;15235;15236;, - 4;15237;15238;15239;15240;, - 4;15241;15242;15243;15244;, - 4;15245;15246;15247;15248;, - 4;15249;15250;15251;15252;, - 4;15253;15254;15255;15256;, - 4;15257;15258;15259;15260;, - 4;15261;15262;15263;15264;, - 4;15265;15266;15267;15268;, - 4;15269;15270;15271;15272;, - 4;15273;15274;15275;15276;, - 4;15277;15278;15279;15280;, - 4;15281;15282;15283;15284;, - 4;15285;15286;15287;15288;, - 4;15289;15290;15291;15292;, - 4;15293;15294;15295;15296;, - 4;15297;15298;15299;15300;, - 4;15301;15302;15303;15304;, - 4;15305;15306;15307;15308;, - 4;15309;15310;15311;15312;, - 4;15313;15314;15315;15316;, - 4;15317;15318;15319;15320;, - 4;15321;15322;15323;15324;, - 4;15325;15326;15327;15328;, - 4;15329;15330;15331;15332;, - 4;15333;15334;15335;15336;, - 4;15337;15338;15339;15340;, - 4;15341;15342;15343;15344;, - 4;15345;15346;15347;15348;, - 3;15349;15350;15351;, - 4;15352;15353;15354;15355;, - 4;15356;15357;15358;15359;, - 3;15360;15361;15362;, - 3;15363;15364;15365;, - 4;15366;15367;15368;15369;, - 4;15370;15371;15372;15373;, - 3;15374;15375;15376;, - 3;15377;15378;15379;, - 4;15380;15381;15382;15383;, - 4;15384;15385;15386;15387;, - 4;15388;15389;15390;15391;, - 4;15392;15393;15394;15395;, - 4;15396;15397;15398;15399;, - 4;15400;15401;15402;15403;, - 4;15404;15405;15406;15407;, - 4;15408;15409;15410;15411;, - 4;15412;15413;15414;15415;, - 4;15416;15417;15418;15419;, - 4;15420;15421;15422;15423;, - 4;15424;15425;15426;15427;, - 4;15428;15429;15430;15431;, - 4;15432;15433;15434;15435;, - 3;15436;15437;15438;, - 4;15439;15440;15441;15442;, - 4;15443;15444;15445;15446;, - 3;15447;15448;15449;, - 3;15450;15451;15452;, - 4;15453;15454;15455;15456;, - 4;15457;15458;15459;15460;, - 4;15461;15462;15463;15464;, - 4;15465;15466;15467;15468;, - 4;15469;15470;15471;15472;, - 4;15473;15474;15475;15476;, - 4;15477;15478;15479;15480;, - 4;15481;15482;15483;15484;, - 3;15485;15486;15487;, - 4;15488;15489;15490;15491;, - 4;15492;15493;15494;15495;, - 4;15496;15497;15498;15499;, - 4;15500;15501;15502;15503;, - 4;15504;15505;15506;15507;, - 4;15508;15509;15510;15511;, - 4;15512;15513;15514;15515;, - 4;15516;15517;15518;15519;, - 4;15520;15521;15522;15523;, - 4;15524;15525;15526;15527;, - 4;15528;15529;15530;15531;, - 4;15532;15533;15534;15535;, - 4;15536;15537;15538;15539;, - 4;15540;15541;15542;15543;, - 4;15544;15545;15546;15547;, - 4;15548;15549;15550;15551;, - 4;15552;15553;15554;15555;, - 4;15556;15557;15558;15559;, - 3;15560;15561;15562;, - 4;15563;15564;15565;15566;, - 4;15567;15568;15569;15570;, - 3;15571;15572;15573;, - 3;15574;15575;15576;, - 4;15577;15578;15579;15580;, - 4;15581;15582;15583;15584;, - 3;15585;15586;15587;, - 3;15588;15589;15590;, - 4;15591;15592;15593;15594;, - 4;15595;15596;15597;15598;, - 4;15599;15600;15601;15602;, - 4;15603;15604;15605;15606;, - 4;15607;15608;15609;15610;, - 4;15611;15612;15613;15614;, - 4;15615;15616;15617;15618;, - 4;15619;15620;15621;15622;, - 4;15623;15624;15625;15626;, - 4;15627;15628;15629;15630;, - 4;15631;15632;15633;15634;, - 4;15635;15636;15637;15638;, - 4;15639;15640;15641;15642;, - 4;15643;15644;15645;15646;, - 3;15647;15648;15649;, - 4;15650;15651;15652;15653;, - 4;15654;15655;15656;15657;, - 3;15658;15659;15660;, - 3;15661;15662;15663;, - 4;15664;15665;15666;15667;, - 4;15668;15669;15670;15671;, - 4;15672;15673;15674;15675;, - 4;15676;15677;15678;15679;, - 4;15680;15681;15682;15683;, - 4;15684;15685;15686;15687;, - 4;15688;15689;15690;15691;, - 4;15692;15693;15694;15695;, - 3;15696;15697;15698;, - 4;15699;15700;15701;15702;, - 4;15703;15704;15705;15706;, - 4;15707;15708;15709;15710;, - 4;15711;15712;15713;15714;, - 4;15715;15716;15717;15718;, - 4;15719;15720;15721;15722;, - 4;15723;15724;15725;15726;, - 4;15727;15728;15729;15730;, - 4;15731;15732;15733;15734;, - 4;15735;15736;15737;15738;, - 4;15739;15740;15741;15742;, - 4;15743;15744;15745;15746;, - 4;15747;15748;15749;15750;, - 4;15751;15752;15753;15754;, - 4;15755;15756;15757;15758;, - 4;15759;15760;15761;15762;, - 4;15763;15764;15765;15766;, - 4;15767;15768;15769;15770;, - 4;15771;15772;15773;15774;, - 4;15775;15776;15777;15778;, - 3;15779;15780;15781;, - 4;15782;15783;15784;15785;, - 4;15786;15787;15788;15789;, - 4;15790;15791;15792;15793;, - 4;15794;15795;15796;15797;, - 4;15798;15799;15800;15801;, - 4;15802;15803;15804;15805;, - 4;15806;15807;15808;15809;, - 4;15810;15811;15812;15813;, - 4;15814;15815;15816;15817;, - 4;15818;15819;15820;15821;, - 4;15822;15823;15824;15825;, - 4;15826;15827;15828;15829;, - 4;15830;15831;15832;15833;, - 4;15834;15835;15836;15837;, - 4;15838;15839;15840;15841;, - 4;15842;15843;15844;15845;, - 4;15846;15847;15848;15849;, - 4;15850;15851;15852;15853;, - 4;15854;15855;15856;15857;, - 4;15858;15859;15860;15861;, - 4;15862;15863;15864;15865;, - 4;15866;15867;15868;15869;, - 4;15870;15871;15872;15873;, - 4;15874;15875;15876;15877;, - 4;15878;15879;15880;15881;, - 4;15882;15883;15884;15885;, - 4;15886;15887;15888;15889;, - 4;15890;15891;15892;15893;, - 4;15894;15895;15896;15897;, - 4;15898;15899;15900;15901;, - 4;15902;15903;15904;15905;, - 4;15906;15907;15908;15909;, - 4;15910;15911;15912;15913;, - 4;15914;15915;15916;15917;, - 4;15918;15919;15920;15921;, - 4;15922;15923;15924;15925;, - 4;15926;15927;15928;15929;, - 4;15930;15931;15932;15933;, - 4;15934;15935;15936;15937;, - 4;15938;15939;15940;15941;, - 4;15942;15943;15944;15945;, - 4;15946;15947;15948;15949;, - 4;15950;15951;15952;15953;, - 4;15954;15955;15956;15957;, - 4;15958;15959;15960;15961;, - 4;15962;15963;15964;15965;, - 4;15966;15967;15968;15969;, - 4;15970;15971;15972;15973;, - 4;15974;15975;15976;15977;, - 4;15978;15979;15980;15981;, - 4;15982;15983;15984;15985;, - 4;15986;15987;15988;15989;, - 4;15990;15991;15992;15993;, - 4;15994;15995;15996;15997;, - 4;15998;15999;16000;16001;, - 4;16002;16003;16004;16005;, - 4;16006;16007;16008;16009;, - 4;16010;16011;16012;16013;, - 4;16014;16015;16016;16017;, - 4;16018;16019;16020;16021;, - 4;16022;16023;16024;16025;, - 4;16026;16027;16028;16029;, - 4;16030;16031;16032;16033;, - 4;16034;16035;16036;16037;, - 4;16038;16039;16040;16041;, - 4;16042;16043;16044;16045;, - 4;16046;16047;16048;16049;, - 4;16050;16051;16052;16053;, - 4;16054;16055;16056;16057;, - 4;16058;16059;16060;16061;, - 4;16062;16063;16064;16065;, - 4;16066;16067;16068;16069;, - 4;16070;16071;16072;16073;, - 4;16074;16075;16076;16077;, - 4;16078;16079;16080;16081;, - 4;16082;16083;16084;16085;, - 4;16086;16087;16088;16089;, - 4;16090;16091;16092;16093;, - 4;16094;16095;16096;16097;, - 4;16098;16099;16100;16101;, - 4;16102;16103;16104;16105;, - 4;16106;16107;16108;16109;, - 4;16110;16111;16112;16113;, - 4;16114;16115;16116;16117;, - 4;16118;16119;16120;16121;, - 4;16122;16123;16124;16125;, - 4;16126;16127;16128;16129;, - 4;16130;16131;16132;16133;, - 4;16134;16135;16136;16137;, - 4;16138;16139;16140;16141;, - 4;16142;16143;16144;16145;, - 4;16146;16147;16148;16149;, - 4;16150;16151;16152;16153;, - 4;16154;16155;16156;16157;, - 4;16158;16159;16160;16161;, - 4;16162;16163;16164;16165;, - 4;16166;16167;16168;16169;, - 4;16170;16171;16172;16173;, - 4;16174;16175;16176;16177;, - 4;16178;16179;16180;16181;, - 4;16182;16183;16184;16185;, - 4;16186;16187;16188;16189;, - 4;16190;16191;16192;16193;, - 4;16194;16195;16196;16197;, - 4;16198;16199;16200;16201;, - 4;16202;16203;16204;16205;, - 4;16206;16207;16208;16209;, - 4;16210;16211;16212;16213;, - 4;16214;16215;16216;16217;, - 4;16218;16219;16220;16221;, - 4;16222;16223;16224;16225;, - 4;16226;16227;16228;16229;, - 4;16230;16231;16232;16233;, - 4;16234;16235;16236;16237;, - 4;16238;16239;16240;16241;, - 4;16242;16243;16244;16245;, - 4;16246;16247;16248;16249;, - 4;16250;16251;16252;16253;, - 4;16254;16255;16256;16257;, - 4;16258;16259;16260;16261;, - 4;16262;16263;16264;16265;, - 4;16266;16267;16268;16269;, - 4;16270;16271;16272;16273;, - 4;16274;16275;16276;16277;, - 4;16278;16279;16280;16281;, - 4;16282;16283;16284;16285;, - 4;16286;16287;16288;16289;, - 4;16290;16291;16292;16293;, - 4;16294;16295;16296;16297;, - 4;16298;16299;16300;16301;, - 4;16302;16303;16304;16305;, - 4;16306;16307;16308;16309;, - 4;16310;16311;16312;16313;, - 4;16314;16315;16316;16317;, - 4;16318;16319;16320;16321;, - 4;16322;16323;16324;16325;, - 4;16326;16327;16328;16329;, - 4;16330;16331;16332;16333;, - 4;16334;16335;16336;16337;, - 4;16338;16339;16340;16341;, - 4;16342;16343;16344;16345;, - 4;16346;16347;16348;16349;, - 4;16350;16351;16352;16353;, - 4;16354;16355;16356;16357;, - 4;16358;16359;16360;16361;, - 4;16362;16363;16364;16365;, - 4;16366;16367;16368;16369;, - 4;16370;16371;16372;16373;, - 4;16374;16375;16376;16377;, - 4;16378;16379;16380;16381;, - 4;16382;16383;16384;16385;, - 4;16386;16387;16388;16389;, - 4;16390;16391;16392;16393;, - 4;16394;16395;16396;16397;, - 4;16398;16399;16400;16401;, - 4;16402;16403;16404;16405;, - 4;16406;16407;16408;16409;, - 4;16410;16411;16412;16413;, - 4;16414;16415;16416;16417;, - 4;16418;16419;16420;16421;, - 4;16422;16423;16424;16425;, - 4;16426;16427;16428;16429;, - 4;16430;16431;16432;16433;, - 4;16434;16435;16436;16437;, - 4;16438;16439;16440;16441;, - 4;16442;16443;16444;16445;, - 4;16446;16447;16448;16449;, - 4;16450;16451;16452;16453;, - 4;16454;16455;16456;16457;, - 4;16458;16459;16460;16461;, - 4;16462;16463;16464;16465;, - 4;16466;16467;16468;16469;, - 4;16470;16471;16472;16473;, - 4;16474;16475;16476;16477;, - 4;16478;16479;16480;16481;, - 4;16482;16483;16484;16485;, - 4;16486;16487;16488;16489;, - 4;16490;16491;16492;16493;, - 4;16494;16495;16496;16497;, - 4;16498;16499;16500;16501;, - 4;16502;16503;16504;16505;, - 4;16506;16507;16508;16509;, - 4;16510;16511;16512;16513;, - 4;16514;16515;16516;16517;, - 4;16518;16519;16520;16521;, - 4;16522;16523;16524;16525;, - 4;16526;16527;16528;16529;, - 4;16530;16531;16532;16533;, - 4;16534;16535;16536;16537;, - 4;16538;16539;16540;16541;, - 4;16542;16543;16544;16545;, - 4;16546;16547;16548;16549;, - 4;16550;16551;16552;16553;, - 4;16554;16555;16556;16557;, - 4;16558;16559;16560;16561;, - 4;16562;16563;16564;16565;, - 4;16566;16567;16568;16569;, - 4;16570;16571;16572;16573;, - 4;16574;16575;16576;16577;, - 4;16578;16579;16580;16581;, - 4;16582;16583;16584;16585;, - 4;16586;16587;16588;16589;, - 4;16590;16591;16592;16593;, - 4;16594;16595;16596;16597;, - 4;16598;16599;16600;16601;, - 4;16602;16603;16604;16605;, - 4;16606;16607;16608;16609;, - 4;16610;16611;16612;16613;, - 3;16614;16615;16616;, - 3;16617;16618;16619;, - 3;16620;16621;16622;, - 4;16623;16624;16625;16626;, - 3;16627;16628;16629;, - 4;16630;16631;16632;16633;, - 3;16634;16635;16636;, - 4;16637;16638;16639;16640;, - 3;16641;16642;16643;, - 3;16644;16645;16646;, - 4;16647;16648;16649;16650;, - 3;16651;16652;16653;, - 4;16654;16655;16656;16657;, - 3;16658;16659;16660;, - 3;16661;16662;16663;, - 4;16664;16665;16666;16667;, - 3;16668;16669;16670;, - 4;16671;16672;16673;16674;, - 3;16675;16676;16677;, - 4;16678;16679;16680;16681;, - 3;16682;16683;16684;, - 3;16685;16686;16687;, - 4;16688;16689;16690;16691;, - 3;16692;16693;16694;, - 4;16695;16696;16697;16698;, - 3;16699;16700;16701;, - 4;16702;16703;16704;16705;, - 4;16706;16707;16708;16709;, - 3;16710;16711;16712;, - 4;16713;16714;16715;16716;, - 4;16717;16718;16719;16720;, - 4;16721;16722;16723;16724;, - 4;16725;16726;16727;16728;, - 4;16729;16730;16731;16732;, - 3;16733;16734;16735;, - 4;16736;16737;16738;16739;, - 3;16740;16741;16742;, - 3;16743;16744;16745;, - 4;16746;16747;16748;16749;, - 3;16750;16751;16752;, - 4;16753;16754;16755;16756;, - 4;16757;16758;16759;16760;, - 4;16761;16762;16763;16764;, - 3;16765;16766;16767;, - 3;16768;16769;16770;, - 4;16771;16772;16773;16774;, - 3;16775;16776;16777;, - 4;16778;16779;16780;16781;, - 3;16782;16783;16784;, - 4;16785;16786;16787;16788;, - 3;16789;16790;16791;, - 3;16792;16793;16794;, - 4;16795;16796;16797;16798;, - 4;16799;16800;16801;16802;, - 4;16803;16804;16805;16806;, - 4;16807;16808;16809;16810;, - 4;16811;16812;16813;16814;, - 3;16815;16816;16817;, - 4;16818;16819;16820;16821;, - 3;16822;16823;16824;, - 4;16825;16826;16827;16828;, - 3;16829;16830;16831;, - 4;16832;16833;16834;16835;, - 4;16836;16837;16838;16839;, - 4;16840;16841;16842;16843;, - 3;16844;16845;16846;, - 4;16847;16848;16849;16850;, - 3;16851;16852;16853;, - 4;16854;16855;16856;16857;, - 3;16858;16859;16860;, - 3;16861;16862;16863;, - 4;16864;16865;16866;16867;, - 3;16868;16869;16870;, - 4;16871;16872;16873;16874;, - 3;16875;16876;16877;, - 4;16878;16879;16880;16881;, - 3;16882;16883;16884;, - 3;16885;16886;16887;, - 4;16888;16889;16890;16891;, - 3;16892;16893;16894;, - 4;16895;16896;16897;16898;, - 3;16899;16900;16901;, - 3;16902;16903;16904;, - 4;16905;16906;16907;16908;, - 3;16909;16910;16911;, - 4;16912;16913;16914;16915;, - 3;16916;16917;16918;, - 4;16919;16920;16921;16922;, - 3;16923;16924;16925;, - 3;16926;16927;16928;, - 4;16929;16930;16931;16932;, - 3;16933;16934;16935;, - 4;16936;16937;16938;16939;, - 3;16940;16941;16942;, - 3;16943;16944;16945;, - 3;16946;16947;16948;, - 3;16949;16950;16951;, - 3;16952;16953;16954;, - 4;16955;16956;16957;16958;, - 4;16959;16960;16961;16962;, - 4;16963;16964;16965;16966;, - 4;16967;16968;16969;16970;, - 4;16971;16972;16973;16974;, - 4;16975;16976;16977;16978;, - 4;16979;16980;16981;16982;, - 4;16983;16984;16985;16986;, - 4;16987;16988;16989;16990;, - 4;16991;16992;16993;16994;, - 4;16995;16996;16997;16998;, - 4;16999;17000;17001;17002;, - 4;17003;17004;17005;17006;, - 4;17007;17008;17009;17010;, - 4;17011;17012;17013;17014;, - 4;17015;17016;17017;17018;, - 4;17019;17020;17021;17022;, - 4;17023;17024;17025;17026;, - 4;17027;17028;17029;17030;, - 4;17031;17032;17033;17034;, - 4;17035;17036;17037;17038;, - 4;17039;17040;17041;17042;, - 4;17043;17044;17045;17046;, - 4;17047;17048;17049;17050;, - 4;17051;17052;17053;17054;, - 4;17055;17056;17057;17058;, - 4;17059;17060;17061;17062;, - 4;17063;17064;17065;17066;, - 4;17067;17068;17069;17070;, - 4;17071;17072;17073;17074;, - 4;17075;17076;17077;17078;, - 4;17079;17080;17081;17082;, - 4;17083;17084;17085;17086;, - 4;17087;17088;17089;17090;, - 4;17091;17092;17093;17094;, - 4;17095;17096;17097;17098;, - 4;17099;17100;17101;17102;, - 4;17103;17104;17105;17106;, - 4;17107;17108;17109;17110;, - 4;17111;17112;17113;17114;, - 4;17115;17116;17117;17118;, - 4;17119;17120;17121;17122;, - 4;17123;17124;17125;17126;, - 4;17127;17128;17129;17130;, - 4;17131;17132;17133;17134;, - 4;17135;17136;17137;17138;, - 4;17139;17140;17141;17142;, - 4;17143;17144;17145;17146;, - 4;17147;17148;17149;17150;, - 4;17151;17152;17153;17154;, - 4;17155;17156;17157;17158;, - 4;17159;17160;17161;17162;, - 4;17163;17164;17165;17166;, - 4;17167;17168;17169;17170;, - 4;17171;17172;17173;17174;, - 4;17175;17176;17177;17178;, - 4;17179;17180;17181;17182;, - 4;17183;17184;17185;17186;, - 4;17187;17188;17189;17190;, - 4;17191;17192;17193;17194;, - 4;17195;17196;17197;17198;, - 4;17199;17200;17201;17202;, - 4;17203;17204;17205;17206;, - 4;17207;17208;17209;17210;, - 4;17211;17212;17213;17214;, - 4;17215;17216;17217;17218;, - 4;17219;17220;17221;17222;, - 4;17223;17224;17225;17226;, - 4;17227;17228;17229;17230;, - 4;17231;17232;17233;17234;, - 4;17235;17236;17237;17238;, - 4;17239;17240;17241;17242;, - 4;17243;17244;17245;17246;, - 4;17247;17248;17249;17250;, - 4;17251;17252;17253;17254;, - 4;17255;17256;17257;17258;, - 4;17259;17260;17261;17262;, - 4;17263;17264;17265;17266;, - 4;17267;17268;17269;17270;, - 4;17271;17272;17273;17274;, - 4;17275;17276;17277;17278;, - 4;17279;17280;17281;17282;, - 4;17283;17284;17285;17286;, - 4;17287;17288;17289;17290;, - 4;17291;17292;17293;17294;, - 4;17295;17296;17297;17298;, - 4;17299;17300;17301;17302;, - 4;17303;17304;17305;17306;, - 4;17307;17308;17309;17310;, - 4;17311;17312;17313;17314;, - 4;17315;17316;17317;17318;, - 4;17319;17320;17321;17322;, - 4;17323;17324;17325;17326;, - 4;17327;17328;17329;17330;, - 4;17331;17332;17333;17334;, - 4;17335;17336;17337;17338;, - 4;17339;17340;17341;17342;, - 4;17343;17344;17345;17346;, - 4;17347;17348;17349;17350;, - 4;17351;17352;17353;17354;, - 4;17355;17356;17357;17358;, - 4;17359;17360;17361;17362;, - 4;17363;17364;17365;17366;, - 4;17367;17368;17369;17370;, - 4;17371;17372;17373;17374;, - 4;17375;17376;17377;17378;, - 4;17379;17380;17381;17382;, - 4;17383;17384;17385;17386;, - 4;17387;17388;17389;17390;, - 4;17391;17392;17393;17394;, - 4;17395;17396;17397;17398;, - 4;17399;17400;17401;17402;, - 4;17403;17404;17405;17406;, - 4;17407;17408;17409;17410;, - 4;17411;17412;17413;17414;, - 4;17415;17416;17417;17418;, - 4;17419;17420;17421;17422;, - 4;17423;17424;17425;17426;, - 4;17427;17428;17429;17430;, - 4;17431;17432;17433;17434;, - 4;17435;17436;17437;17438;, - 4;17439;17440;17441;17442;, - 4;17443;17444;17445;17446;, - 4;17447;17448;17449;17450;, - 4;17451;17452;17453;17454;, - 4;17455;17456;17457;17458;, - 4;17459;17460;17461;17462;, - 4;17463;17464;17465;17466;, - 4;17467;17468;17469;17470;, - 4;17471;17472;17473;17474;, - 4;17475;17476;17477;17478;, - 4;17479;17480;17481;17482;, - 4;17483;17484;17485;17486;, - 4;17487;17488;17489;17490;, - 4;17491;17492;17493;17494;, - 4;17495;17496;17497;17498;, - 4;17499;17500;17501;17502;, - 4;17503;17504;17505;17506;, - 4;17507;17508;17509;17510;, - 4;17511;17512;17513;17514;, - 4;17515;17516;17517;17518;, - 4;17519;17520;17521;17522;, - 4;17523;17524;17525;17526;, - 4;17527;17528;17529;17530;, - 4;17531;17532;17533;17534;, - 4;17535;17536;17537;17538;, - 4;17539;17540;17541;17542;, - 4;17543;17544;17545;17546;, - 4;17547;17548;17549;17550;, - 4;17551;17552;17553;17554;, - 4;17555;17556;17557;17558;, - 4;17559;17560;17561;17562;, - 4;17563;17564;17565;17566;, - 4;17567;17568;17569;17570;, - 4;17571;17572;17573;17574;, - 4;17575;17576;17577;17578;, - 4;17579;17580;17581;17582;, - 4;17583;17584;17585;17586;, - 4;17587;17588;17589;17590;, - 4;17591;17592;17593;17594;, - 4;17595;17596;17597;17598;, - 4;17599;17600;17601;17602;, - 4;17603;17604;17605;17606;, - 4;17607;17608;17609;17610;, - 4;17611;17612;17613;17614;, - 4;17615;17616;17617;17618;, - 4;17619;17620;17621;17622;, - 4;17623;17624;17625;17626;, - 4;17627;17628;17629;17630;, - 4;17631;17632;17633;17634;, - 4;17635;17636;17637;17638;, - 4;17639;17640;17641;17642;, - 4;17643;17644;17645;17646;, - 4;17647;17648;17649;17650;, - 4;17651;17652;17653;17654;, - 4;17655;17656;17657;17658;, - 4;17659;17660;17661;17662;, - 4;17663;17664;17665;17666;, - 4;17667;17668;17669;17670;, - 4;17671;17672;17673;17674;, - 4;17675;17676;17677;17678;, - 4;17679;17680;17681;17682;, - 4;17683;17684;17685;17686;, - 4;17687;17688;17689;17690;, - 4;17691;17692;17693;17694;, - 4;17695;17696;17697;17698;, - 4;17699;17700;17701;17702;, - 4;17703;17704;17705;17706;, - 4;17707;17708;17709;17710;, - 4;17711;17712;17713;17714;, - 4;17715;17716;17717;17718;, - 4;17719;17720;17721;17722;, - 4;17723;17724;17725;17726;, - 4;17727;17728;17729;17730;, - 4;17731;17732;17733;17734;, - 4;17735;17736;17737;17738;, - 3;17739;17740;17741;, - 4;17742;17743;17744;17745;, - 4;17746;17747;17748;17749;, - 3;17750;17751;17752;, - 3;17753;17754;17755;, - 4;17756;17757;17758;17759;, - 4;17760;17761;17762;17763;, - 3;17764;17765;17766;, - 3;17767;17768;17769;, - 4;17770;17771;17772;17773;, - 4;17774;17775;17776;17777;, - 4;17778;17779;17780;17781;, - 4;17782;17783;17784;17785;, - 4;17786;17787;17788;17789;, - 4;17790;17791;17792;17793;, - 4;17794;17795;17796;17797;, - 4;17798;17799;17800;17801;, - 4;17802;17803;17804;17805;, - 4;17806;17807;17808;17809;, - 4;17810;17811;17812;17813;, - 4;17814;17815;17816;17817;, - 4;17818;17819;17820;17821;, - 4;17822;17823;17824;17825;, - 3;17826;17827;17828;, - 4;17829;17830;17831;17832;, - 4;17833;17834;17835;17836;, - 3;17837;17838;17839;, - 3;17840;17841;17842;, - 4;17843;17844;17845;17846;, - 4;17847;17848;17849;17850;, - 4;17851;17852;17853;17854;, - 4;17855;17856;17857;17858;, - 4;17859;17860;17861;17862;, - 4;17863;17864;17865;17866;, - 4;17867;17868;17869;17870;, - 4;17871;17872;17873;17874;, - 3;17875;17876;17877;, - 4;17878;17879;17880;17881;, - 4;17882;17883;17884;17885;, - 4;17886;17887;17888;17889;, - 4;17890;17891;17892;17893;, - 4;17894;17895;17896;17897;, - 4;17898;17899;17900;17901;, - 4;17902;17903;17904;17905;, - 4;17906;17907;17908;17909;, - 4;17910;17911;17912;17913;, - 4;17914;17915;17916;17917;, - 4;17918;17919;17920;17921;, - 4;17922;17923;17924;17925;, - 4;17926;17927;17928;17929;, - 4;17930;17931;17932;17933;, - 4;17934;17935;17936;17937;, - 4;17938;17939;17940;17941;, - 4;17942;17943;17944;17945;, - 4;17946;17947;17948;17949;, - 3;17950;17951;17952;, - 4;17953;17954;17955;17956;, - 4;17957;17958;17959;17960;, - 3;17961;17962;17963;, - 3;17964;17965;17966;, - 4;17967;17968;17969;17970;, - 4;17971;17972;17973;17974;, - 3;17975;17976;17977;, - 3;17978;17979;17980;, - 4;17981;17982;17983;17984;, - 4;17985;17986;17987;17988;, - 4;17989;17990;17991;17992;, - 4;17993;17994;17995;17996;, - 4;17997;17998;17999;18000;, - 4;18001;18002;18003;18004;, - 4;18005;18006;18007;18008;, - 4;18009;18010;18011;18012;, - 4;18013;18014;18015;18016;, - 4;18017;18018;18019;18020;, - 4;18021;18022;18023;18024;, - 4;18025;18026;18027;18028;, - 4;18029;18030;18031;18032;, - 4;18033;18034;18035;18036;, - 3;18037;18038;18039;, - 4;18040;18041;18042;18043;, - 4;18044;18045;18046;18047;, - 3;18048;18049;18050;, - 3;18051;18052;18053;, - 4;18054;18055;18056;18057;, - 4;18058;18059;18060;18061;, - 4;18062;18063;18064;18065;, - 4;18066;18067;18068;18069;, - 4;18070;18071;18072;18073;, - 4;18074;18075;18076;18077;, - 4;18078;18079;18080;18081;, - 4;18082;18083;18084;18085;, - 3;18086;18087;18088;, - 4;18089;18090;18091;18092;, - 4;18093;18094;18095;18096;, - 4;18097;18098;18099;18100;, - 4;18101;18102;18103;18104;, - 4;18105;18106;18107;18108;, - 4;18109;18110;18111;18112;, - 4;18113;18114;18115;18116;, - 4;18117;18118;18119;18120;, - 4;18121;18122;18123;18124;, - 4;18125;18126;18127;18128;, - 4;18129;18130;18131;18132;, - 4;18133;18134;18135;18136;, - 4;18137;18138;18139;18140;, - 4;18141;18142;18143;18144;, - 4;18145;18146;18147;18148;, - 4;18149;18150;18151;18152;, - 4;18153;18154;18155;18156;, - 4;18157;18158;18159;18160;, - 4;18161;18162;18163;18164;, - 4;18165;18166;18167;18168;, - 3;18169;18170;18171;, - 4;18172;18173;18174;18175;, - 4;18176;18177;18178;18179;, - 4;18180;18181;18182;18183;, - 4;18184;18185;18186;18187;, - 4;18188;18189;18190;18191;, - 4;18192;18193;18194;18195;, - 4;18196;18197;18198;18199;, - 4;18200;18201;18202;18203;, - 4;18204;18205;18206;18207;, - 4;18208;18209;18210;18211;, - 4;18212;18213;18214;18215;, - 4;18216;18217;18218;18219;, - 4;18220;18221;18222;18223;, - 4;18224;18225;18226;18227;, - 4;18228;18229;18230;18231;, - 4;18232;18233;18234;18235;, - 4;18236;18237;18238;18239;, - 4;18240;18241;18242;18243;, - 4;18244;18245;18246;18247;, - 4;18248;18249;18250;18251;, - 4;18252;18253;18254;18255;, - 4;18256;18257;18258;18259;, - 4;18260;18261;18262;18263;, - 4;18264;18265;18266;18267;, - 4;18268;18269;18270;18271;, - 4;18272;18273;18274;18275;, - 4;18276;18277;18278;18279;, - 4;18280;18281;18282;18283;, - 4;18284;18285;18286;18287;, - 4;18288;18289;18290;18291;, - 4;18292;18293;18294;18295;, - 4;18296;18297;18298;18299;, - 4;18300;18301;18302;18303;, - 4;18304;18305;18306;18307;, - 4;18308;18309;18310;18311;, - 4;18312;18313;18314;18315;, - 4;18316;18317;18318;18319;, - 4;18320;18321;18322;18323;, - 4;18324;18325;18326;18327;, - 4;18328;18329;18330;18331;, - 4;18332;18333;18334;18335;, - 4;18336;18337;18338;18339;, - 4;18340;18341;18342;18343;, - 4;18344;18345;18346;18347;, - 4;18348;18349;18350;18351;, - 4;18352;18353;18354;18355;, - 4;18356;18357;18358;18359;, - 4;18360;18361;18362;18363;, - 4;18364;18365;18366;18367;, - 4;18368;18369;18370;18371;, - 4;18372;18373;18374;18375;, - 4;18376;18377;18378;18379;, - 4;18380;18381;18382;18383;, - 4;18384;18385;18386;18387;, - 4;18388;18389;18390;18391;, - 4;18392;18393;18394;18395;, - 4;18396;18397;18398;18399;, - 4;18400;18401;18402;18403;, - 4;18404;18405;18406;18407;, - 4;18408;18409;18410;18411;, - 4;18412;18413;18414;18415;, - 4;18416;18417;18418;18419;, - 4;18420;18421;18422;18423;, - 4;18424;18425;18426;18427;, - 4;18428;18429;18430;18431;, - 4;18432;18433;18434;18435;, - 4;18436;18437;18438;18439;, - 4;18440;18441;18442;18443;, - 4;18444;18445;18446;18447;, - 4;18448;18449;18450;18451;, - 4;18452;18453;18454;18455;, - 4;18456;18457;18458;18459;, - 4;18460;18461;18462;18463;, - 4;18464;18465;18466;18467;, - 4;18468;18469;18470;18471;, - 4;18472;18473;18474;18475;, - 4;18476;18477;18478;18479;, - 4;18480;18481;18482;18483;, - 4;18484;18485;18486;18487;, - 4;18488;18489;18490;18491;, - 4;18492;18493;18494;18495;, - 4;18496;18497;18498;18499;, - 4;18500;18501;18502;18503;, - 4;18504;18505;18506;18507;, - 4;18508;18509;18510;18511;, - 4;18512;18513;18514;18515;, - 4;18516;18517;18518;18519;, - 4;18520;18521;18522;18523;, - 4;18524;18525;18526;18527;, - 4;18528;18529;18530;18531;, - 4;18532;18533;18534;18535;, - 4;18536;18537;18538;18539;, - 4;18540;18541;18542;18543;, - 4;18544;18545;18546;18547;, - 4;18548;18549;18550;18551;, - 4;18552;18553;18554;18555;, - 4;18556;18557;18558;18559;, - 4;18560;18561;18562;18563;, - 4;18564;18565;18566;18567;, - 4;18568;18569;18570;18571;, - 4;18572;18573;18574;18575;, - 4;18576;18577;18578;18579;, - 4;18580;18581;18582;18583;, - 4;18584;18585;18586;18587;, - 4;18588;18589;18590;18591;, - 4;18592;18593;18594;18595;, - 4;18596;18597;18598;18599;, - 4;18600;18601;18602;18603;, - 4;18604;18605;18606;18607;, - 4;18608;18609;18610;18611;, - 4;18612;18613;18614;18615;, - 4;18616;18617;18618;18619;, - 4;18620;18621;18622;18623;, - 4;18624;18625;18626;18627;, - 4;18628;18629;18630;18631;, - 4;18632;18633;18634;18635;, - 4;18636;18637;18638;18639;, - 4;18640;18641;18642;18643;, - 4;18644;18645;18646;18647;, - 4;18648;18649;18650;18651;, - 4;18652;18653;18654;18655;, - 4;18656;18657;18658;18659;, - 4;18660;18661;18662;18663;, - 4;18664;18665;18666;18667;, - 4;18668;18669;18670;18671;, - 4;18672;18673;18674;18675;, - 4;18676;18677;18678;18679;, - 4;18680;18681;18682;18683;, - 4;18684;18685;18686;18687;, - 4;18688;18689;18690;18691;, - 4;18692;18693;18694;18695;, - 4;18696;18697;18698;18699;, - 4;18700;18701;18702;18703;, - 4;18704;18705;18706;18707;, - 4;18708;18709;18710;18711;, - 4;18712;18713;18714;18715;, - 4;18716;18717;18718;18719;, - 4;18720;18721;18722;18723;, - 4;18724;18725;18726;18727;, - 4;18728;18729;18730;18731;, - 4;18732;18733;18734;18735;, - 4;18736;18737;18738;18739;, - 4;18740;18741;18742;18743;, - 4;18744;18745;18746;18747;, - 4;18748;18749;18750;18751;, - 4;18752;18753;18754;18755;, - 4;18756;18757;18758;18759;, - 4;18760;18761;18762;18763;, - 4;18764;18765;18766;18767;, - 4;18768;18769;18770;18771;, - 4;18772;18773;18774;18775;, - 4;18776;18777;18778;18779;, - 4;18780;18781;18782;18783;, - 4;18784;18785;18786;18787;, - 4;18788;18789;18790;18791;, - 4;18792;18793;18794;18795;, - 4;18796;18797;18798;18799;, - 4;18800;18801;18802;18803;, - 4;18804;18805;18806;18807;, - 4;18808;18809;18810;18811;, - 4;18812;18813;18814;18815;, - 4;18816;18817;18818;18819;, - 4;18820;18821;18822;18823;, - 4;18824;18825;18826;18827;, - 4;18828;18829;18830;18831;, - 4;18832;18833;18834;18835;, - 4;18836;18837;18838;18839;, - 4;18840;18841;18842;18843;, - 4;18844;18845;18846;18847;, - 4;18848;18849;18850;18851;, - 4;18852;18853;18854;18855;, - 4;18856;18857;18858;18859;, - 4;18860;18861;18862;18863;, - 4;18864;18865;18866;18867;, - 4;18868;18869;18870;18871;, - 4;18872;18873;18874;18875;, - 4;18876;18877;18878;18879;, - 4;18880;18881;18882;18883;, - 4;18884;18885;18886;18887;, - 4;18888;18889;18890;18891;, - 4;18892;18893;18894;18895;, - 4;18896;18897;18898;18899;, - 4;18900;18901;18902;18903;, - 4;18904;18905;18906;18907;, - 4;18908;18909;18910;18911;, - 4;18912;18913;18914;18915;, - 4;18916;18917;18918;18919;, - 4;18920;18921;18922;18923;, - 4;18924;18925;18926;18927;, - 4;18928;18929;18930;18931;, - 4;18932;18933;18934;18935;, - 4;18936;18937;18938;18939;, - 4;18940;18941;18942;18943;, - 4;18944;18945;18946;18947;, - 4;18948;18949;18950;18951;, - 4;18952;18953;18954;18955;, - 4;18956;18957;18958;18959;, - 4;18960;18961;18962;18963;, - 4;18964;18965;18966;18967;, - 4;18968;18969;18970;18971;, - 4;18972;18973;18974;18975;, - 4;18976;18977;18978;18979;, - 4;18980;18981;18982;18983;, - 4;18984;18985;18986;18987;, - 4;18988;18989;18990;18991;, - 4;18992;18993;18994;18995;, - 4;18996;18997;18998;18999;, - 4;19000;19001;19002;19003;, - 3;19004;19005;19006;, - 3;19007;19008;19009;, - 3;19010;19011;19012;, - 4;19013;19014;19015;19016;, - 3;19017;19018;19019;, - 4;19020;19021;19022;19023;, - 3;19024;19025;19026;, - 4;19027;19028;19029;19030;, - 3;19031;19032;19033;, - 3;19034;19035;19036;, - 4;19037;19038;19039;19040;, - 3;19041;19042;19043;, - 4;19044;19045;19046;19047;, - 3;19048;19049;19050;, - 3;19051;19052;19053;, - 4;19054;19055;19056;19057;, - 3;19058;19059;19060;, - 4;19061;19062;19063;19064;, - 3;19065;19066;19067;, - 4;19068;19069;19070;19071;, - 3;19072;19073;19074;, - 3;19075;19076;19077;, - 4;19078;19079;19080;19081;, - 3;19082;19083;19084;, - 4;19085;19086;19087;19088;, - 3;19089;19090;19091;, - 4;19092;19093;19094;19095;, - 4;19096;19097;19098;19099;, - 3;19100;19101;19102;, - 4;19103;19104;19105;19106;, - 4;19107;19108;19109;19110;, - 4;19111;19112;19113;19114;, - 4;19115;19116;19117;19118;, - 4;19119;19120;19121;19122;, - 3;19123;19124;19125;, - 4;19126;19127;19128;19129;, - 3;19130;19131;19132;, - 3;19133;19134;19135;, - 4;19136;19137;19138;19139;, - 3;19140;19141;19142;, - 4;19143;19144;19145;19146;, - 4;19147;19148;19149;19150;, - 4;19151;19152;19153;19154;, - 3;19155;19156;19157;, - 3;19158;19159;19160;, - 4;19161;19162;19163;19164;, - 3;19165;19166;19167;, - 4;19168;19169;19170;19171;, - 3;19172;19173;19174;, - 4;19175;19176;19177;19178;, - 3;19179;19180;19181;, - 3;19182;19183;19184;, - 4;19185;19186;19187;19188;, - 4;19189;19190;19191;19192;, - 4;19193;19194;19195;19196;, - 4;19197;19198;19199;19200;, - 4;19201;19202;19203;19204;, - 3;19205;19206;19207;, - 4;19208;19209;19210;19211;, - 3;19212;19213;19214;, - 4;19215;19216;19217;19218;, - 3;19219;19220;19221;, - 4;19222;19223;19224;19225;, - 4;19226;19227;19228;19229;, - 4;19230;19231;19232;19233;, - 3;19234;19235;19236;, - 4;19237;19238;19239;19240;, - 3;19241;19242;19243;, - 4;19244;19245;19246;19247;, - 3;19248;19249;19250;, - 3;19251;19252;19253;, - 4;19254;19255;19256;19257;, - 3;19258;19259;19260;, - 4;19261;19262;19263;19264;, - 3;19265;19266;19267;, - 4;19268;19269;19270;19271;, - 3;19272;19273;19274;, - 3;19275;19276;19277;, - 4;19278;19279;19280;19281;, - 3;19282;19283;19284;, - 4;19285;19286;19287;19288;, - 3;19289;19290;19291;, - 3;19292;19293;19294;, - 4;19295;19296;19297;19298;, - 3;19299;19300;19301;, - 4;19302;19303;19304;19305;, - 3;19306;19307;19308;, - 4;19309;19310;19311;19312;, - 3;19313;19314;19315;, - 3;19316;19317;19318;, - 4;19319;19320;19321;19322;, - 3;19323;19324;19325;, - 4;19326;19327;19328;19329;, - 3;19330;19331;19332;, - 3;19333;19334;19335;, - 3;19336;19337;19338;, - 3;19339;19340;19341;, - 3;19342;19343;19344;, - 4;19345;19346;19347;19348;, - 4;19349;19350;19351;19352;, - 4;19353;19354;19355;19356;, - 4;19357;19358;19359;19360;, - 4;19361;19362;19363;19364;, - 4;19365;19366;19367;19368;, - 4;19369;19370;19371;19372;, - 4;19373;19374;19375;19376;, - 4;19377;19378;19379;19380;, - 4;19381;19382;19383;19384;, - 4;19385;19386;19387;19388;, - 4;19389;19390;19391;19392;, - 4;19393;19394;19395;19396;, - 4;19397;19398;19399;19400;, - 4;19401;19402;19403;19404;, - 4;19405;19406;19407;19408;, - 4;19409;19410;19411;19412;, - 4;19413;19414;19415;19416;, - 4;19417;19418;19419;19420;, - 4;19421;19422;19423;19424;, - 4;19425;19426;19427;19428;, - 4;19429;19430;19431;19432;, - 4;19433;19434;19435;19436;, - 4;19437;19438;19439;19440;, - 4;19441;19442;19443;19444;, - 4;19445;19446;19447;19448;, - 4;19449;19450;19451;19452;, - 4;19453;19454;19455;19456;, - 4;19457;19458;19459;19460;, - 4;19461;19462;19463;19464;, - 4;19465;19466;19467;19468;, - 4;19469;19470;19471;19472;, - 4;19473;19474;19475;19476;, - 4;19477;19478;19479;19480;, - 4;19481;19482;19483;19484;, - 4;19485;19486;19487;19488;, - 4;19489;19490;19491;19492;, - 4;19493;19494;19495;19496;, - 4;19497;19498;19499;19500;, - 4;19501;19502;19503;19504;, - 4;19505;19506;19507;19508;, - 4;19509;19510;19511;19512;, - 4;19513;19514;19515;19516;, - 4;19517;19518;19519;19520;, - 4;19521;19522;19523;19524;, - 4;19525;19526;19527;19528;, - 4;19529;19530;19531;19532;, - 4;19533;19534;19535;19536;, - 4;19537;19538;19539;19540;, - 4;19541;19542;19543;19544;, - 4;19545;19546;19547;19548;, - 4;19549;19550;19551;19552;, - 4;19553;19554;19555;19556;, - 4;19557;19558;19559;19560;, - 4;19561;19562;19563;19564;, - 4;19565;19566;19567;19568;, - 4;19569;19570;19571;19572;, - 4;19573;19574;19575;19576;, - 4;19577;19578;19579;19580;, - 4;19581;19582;19583;19584;, - 4;19585;19586;19587;19588;, - 4;19589;19590;19591;19592;, - 4;19593;19594;19595;19596;, - 4;19597;19598;19599;19600;, - 4;19601;19602;19603;19604;, - 4;19605;19606;19607;19608;, - 4;19609;19610;19611;19612;, - 4;19613;19614;19615;19616;, - 4;19617;19618;19619;19620;, - 4;19621;19622;19623;19624;, - 4;19625;19626;19627;19628;, - 4;19629;19630;19631;19632;, - 4;19633;19634;19635;19636;, - 4;19637;19638;19639;19640;, - 4;19641;19642;19643;19644;, - 4;19645;19646;19647;19648;, - 4;19649;19650;19651;19652;, - 4;19653;19654;19655;19656;, - 4;19657;19658;19659;19660;, - 4;19661;19662;19663;19664;, - 4;19665;19666;19667;19668;, - 4;19669;19670;19671;19672;, - 4;19673;19674;19675;19676;, - 4;19677;19678;19679;19680;, - 4;19681;19682;19683;19684;, - 4;19685;19686;19687;19688;, - 4;19689;19690;19691;19692;, - 4;19693;19694;19695;19696;, - 4;19697;19698;19699;19700;, - 4;19701;19702;19703;19704;, - 4;19705;19706;19707;19708;, - 4;19709;19710;19711;19712;, - 4;19713;19714;19715;19716;, - 4;19717;19718;19719;19720;, - 4;19721;19722;19723;19724;, - 4;19725;19726;19727;19728;, - 4;19729;19730;19731;19732;, - 4;19733;19734;19735;19736;, - 4;19737;19738;19739;19740;, - 4;19741;19742;19743;19744;, - 4;19745;19746;19747;19748;, - 4;19749;19750;19751;19752;, - 4;19753;19754;19755;19756;, - 4;19757;19758;19759;19760;, - 4;19761;19762;19763;19764;, - 4;19765;19766;19767;19768;, - 4;19769;19770;19771;19772;, - 4;19773;19774;19775;19776;, - 4;19777;19778;19779;19780;, - 4;19781;19782;19783;19784;, - 4;19785;19786;19787;19788;, - 4;19789;19790;19791;19792;, - 4;19793;19794;19795;19796;, - 4;19797;19798;19799;19800;, - 4;19801;19802;19803;19804;, - 4;19805;19806;19807;19808;, - 4;19809;19810;19811;19812;, - 4;19813;19814;19815;19816;, - 4;19817;19818;19819;19820;, - 4;19821;19822;19823;19824;, - 4;19825;19826;19827;19828;, - 4;19829;19830;19831;19832;, - 4;19833;19834;19835;19836;, - 4;19837;19838;19839;19840;, - 4;19841;19842;19843;19844;, - 4;19845;19846;19847;19848;, - 4;19849;19850;19851;19852;, - 4;19853;19854;19855;19856;, - 4;19857;19858;19859;19860;, - 4;19861;19862;19863;19864;, - 4;19865;19866;19867;19868;, - 4;19869;19870;19871;19872;, - 4;19873;19874;19875;19876;, - 4;19877;19878;19879;19880;, - 4;19881;19882;19883;19884;, - 4;19885;19886;19887;19888;, - 4;19889;19890;19891;19892;, - 4;19893;19894;19895;19896;, - 4;19897;19898;19899;19900;, - 4;19901;19902;19903;19904;, - 4;19905;19906;19907;19908;, - 4;19909;19910;19911;19912;, - 4;19913;19914;19915;19916;, - 4;19917;19918;19919;19920;, - 4;19921;19922;19923;19924;, - 4;19925;19926;19927;19928;, - 4;19929;19930;19931;19932;, - 4;19933;19934;19935;19936;, - 4;19937;19938;19939;19940;, - 4;19941;19942;19943;19944;, - 4;19945;19946;19947;19948;, - 4;19949;19950;19951;19952;, - 4;19953;19954;19955;19956;, - 4;19957;19958;19959;19960;, - 4;19961;19962;19963;19964;, - 4;19965;19966;19967;19968;, - 4;19969;19970;19971;19972;, - 4;19973;19974;19975;19976;, - 4;19977;19978;19979;19980;, - 4;19981;19982;19983;19984;, - 4;19985;19986;19987;19988;, - 4;19989;19990;19991;19992;, - 4;19993;19994;19995;19996;, - 4;19997;19998;19999;20000;, - 4;20001;20002;20003;20004;, - 4;20005;20006;20007;20008;, - 4;20009;20010;20011;20012;, - 4;20013;20014;20015;20016;, - 4;20017;20018;20019;20020;, - 4;20021;20022;20023;20024;, - 4;20025;20026;20027;20028;, - 4;20029;20030;20031;20032;, - 4;20033;20034;20035;20036;, - 4;20037;20038;20039;20040;, - 4;20041;20042;20043;20044;, - 4;20045;20046;20047;20048;, - 4;20049;20050;20051;20052;, - 4;20053;20054;20055;20056;, - 4;20057;20058;20059;20060;, - 4;20061;20062;20063;20064;, - 4;20065;20066;20067;20068;, - 4;20069;20070;20071;20072;, - 4;20073;20074;20075;20076;, - 4;20077;20078;20079;20080;, - 4;20081;20082;20083;20084;, - 4;20085;20086;20087;20088;, - 4;20089;20090;20091;20092;, - 4;20093;20094;20095;20096;, - 4;20097;20098;20099;20100;, - 4;20101;20102;20103;20104;, - 4;20105;20106;20107;20108;, - 4;20109;20110;20111;20112;, - 4;20113;20114;20115;20116;, - 4;20117;20118;20119;20120;, - 4;20121;20122;20123;20124;, - 4;20125;20126;20127;20128;, - 3;20129;20130;20131;, - 4;20132;20133;20134;20135;, - 4;20136;20137;20138;20139;, - 3;20140;20141;20142;, - 3;20143;20144;20145;, - 4;20146;20147;20148;20149;, - 4;20150;20151;20152;20153;, - 3;20154;20155;20156;, - 3;20157;20158;20159;, - 4;20160;20161;20162;20163;, - 4;20164;20165;20166;20167;, - 4;20168;20169;20170;20171;, - 4;20172;20173;20174;20175;, - 4;20176;20177;20178;20179;, - 4;20180;20181;20182;20183;, - 4;20184;20185;20186;20187;, - 4;20188;20189;20190;20191;, - 4;20192;20193;20194;20195;, - 4;20196;20197;20198;20199;, - 4;20200;20201;20202;20203;, - 4;20204;20205;20206;20207;, - 4;20208;20209;20210;20211;, - 4;20212;20213;20214;20215;, - 3;20216;20217;20218;, - 4;20219;20220;20221;20222;, - 4;20223;20224;20225;20226;, - 3;20227;20228;20229;, - 3;20230;20231;20232;, - 4;20233;20234;20235;20236;, - 4;20237;20238;20239;20240;, - 4;20241;20242;20243;20244;, - 4;20245;20246;20247;20248;, - 4;20249;20250;20251;20252;, - 4;20253;20254;20255;20256;, - 4;20257;20258;20259;20260;, - 4;20261;20262;20263;20264;, - 3;20265;20266;20267;, - 4;20268;20269;20270;20271;, - 4;20272;20273;20274;20275;, - 4;20276;20277;20278;20279;, - 4;20280;20281;20282;20283;, - 4;20284;20285;20286;20287;, - 4;20288;20289;20290;20291;, - 4;20292;20293;20294;20295;, - 4;20296;20297;20298;20299;, - 4;20300;20301;20302;20303;, - 4;20304;20305;20306;20307;, - 4;20308;20309;20310;20311;, - 4;20312;20313;20314;20315;, - 4;20316;20317;20318;20319;, - 4;20320;20321;20322;20323;, - 4;20324;20325;20326;20327;, - 4;20328;20329;20330;20331;, - 4;20332;20333;20334;20335;, - 4;20336;20337;20338;20339;, - 3;20340;20341;20342;, - 4;20343;20344;20345;20346;, - 4;20347;20348;20349;20350;, - 3;20351;20352;20353;, - 3;20354;20355;20356;, - 4;20357;20358;20359;20360;, - 4;20361;20362;20363;20364;, - 3;20365;20366;20367;, - 3;20368;20369;20370;, - 4;20371;20372;20373;20374;, - 4;20375;20376;20377;20378;, - 4;20379;20380;20381;20382;, - 4;20383;20384;20385;20386;, - 4;20387;20388;20389;20390;, - 4;20391;20392;20393;20394;, - 4;20395;20396;20397;20398;, - 4;20399;20400;20401;20402;, - 4;20403;20404;20405;20406;, - 4;20407;20408;20409;20410;, - 4;20411;20412;20413;20414;, - 4;20415;20416;20417;20418;, - 4;20419;20420;20421;20422;, - 4;20423;20424;20425;20426;, - 3;20427;20428;20429;, - 4;20430;20431;20432;20433;, - 4;20434;20435;20436;20437;, - 3;20438;20439;20440;, - 3;20441;20442;20443;, - 4;20444;20445;20446;20447;, - 4;20448;20449;20450;20451;, - 4;20452;20453;20454;20455;, - 4;20456;20457;20458;20459;, - 4;20460;20461;20462;20463;, - 4;20464;20465;20466;20467;, - 4;20468;20469;20470;20471;, - 4;20472;20473;20474;20475;, - 3;20476;20477;20478;, - 4;20479;20480;20481;20482;, - 4;20483;20484;20485;20486;, - 4;20487;20488;20489;20490;, - 4;20491;20492;20493;20494;, - 4;20495;20496;20497;20498;, - 4;20499;20500;20501;20502;, - 4;20503;20504;20505;20506;, - 4;20507;20508;20509;20510;, - 4;20511;20512;20513;20514;, - 4;20515;20516;20517;20518;, - 4;20519;20520;20521;20522;, - 4;20523;20524;20525;20526;, - 4;20527;20528;20529;20530;, - 4;20531;20532;20533;20534;, - 4;20535;20536;20537;20538;, - 4;20539;20540;20541;20542;, - 4;20543;20544;20545;20546;, - 4;20547;20548;20549;20550;, - 4;20551;20552;20553;20554;, - 4;20555;20556;20557;20558;, - 3;20559;20560;20561;, - 4;20562;20563;20564;20565;, - 4;20566;20567;20568;20569;, - 4;20570;20571;20572;20573;, - 4;20574;20575;20576;20577;, - 4;20578;20579;20580;20581;, - 4;20582;20583;20584;20585;, - 4;20586;20587;20588;20589;, - 4;20590;20591;20592;20593;, - 4;20594;20595;20596;20597;, - 4;20598;20599;20600;20601;, - 4;20602;20603;20604;20605;, - 4;20606;20607;20608;20609;, - 4;20610;20611;20612;20613;, - 4;20614;20615;20616;20617;, - 4;20618;20619;20620;20621;, - 4;20622;20623;20624;20625;, - 4;20626;20627;20628;20629;, - 4;20630;20631;20632;20633;, - 4;20634;20635;20636;20637;, - 4;20638;20639;20640;20641;, - 4;20642;20643;20644;20645;, - 4;20646;20647;20648;20649;, - 4;20650;20651;20652;20653;, - 4;20654;20655;20656;20657;, - 4;20658;20659;20660;20661;, - 4;20662;20663;20664;20665;, - 4;20666;20667;20668;20669;, - 4;20670;20671;20672;20673;, - 4;20674;20675;20676;20677;, - 4;20678;20679;20680;20681;, - 4;20682;20683;20684;20685;, - 4;20686;20687;20688;20689;, - 4;20690;20691;20692;20693;, - 4;20694;20695;20696;20697;, - 4;20698;20699;20700;20701;, - 4;20702;20703;20704;20705;, - 4;20706;20707;20708;20709;, - 4;20710;20711;20712;20713;, - 4;20714;20715;20716;20717;, - 4;20718;20719;20720;20721;, - 4;20722;20723;20724;20725;, - 4;20726;20727;20728;20729;, - 4;20730;20731;20732;20733;, - 4;20734;20735;20736;20737;, - 4;20738;20739;20740;20741;, - 4;20742;20743;20744;20745;, - 4;20746;20747;20748;20749;, - 4;20750;20751;20752;20753;, - 4;20754;20755;20756;20757;, - 4;20758;20759;20760;20761;, - 4;20762;20763;20764;20765;, - 4;20766;20767;20768;20769;, - 4;20770;20771;20772;20773;, - 4;20774;20775;20776;20777;, - 4;20778;20779;20780;20781;, - 4;20782;20783;20784;20785;, - 4;20786;20787;20788;20789;, - 4;20790;20791;20792;20793;, - 4;20794;20795;20796;20797;, - 4;20798;20799;20800;20801;, - 4;20802;20803;20804;20805;, - 4;20806;20807;20808;20809;, - 4;20810;20811;20812;20813;, - 4;20814;20815;20816;20817;, - 4;20818;20819;20820;20821;, - 4;20822;20823;20824;20825;, - 4;20826;20827;20828;20829;, - 4;20830;20831;20832;20833;, - 4;20834;20835;20836;20837;, - 4;20838;20839;20840;20841;, - 4;20842;20843;20844;20845;, - 4;20846;20847;20848;20849;, - 4;20850;20851;20852;20853;, - 4;20854;20855;20856;20857;, - 4;20858;20859;20860;20861;, - 4;20862;20863;20864;20865;, - 4;20866;20867;20868;20869;, - 4;20870;20871;20872;20873;, - 4;20874;20875;20876;20877;, - 4;20878;20879;20880;20881;, - 4;20882;20883;20884;20885;, - 4;20886;20887;20888;20889;, - 4;20890;20891;20892;20893;, - 4;20894;20895;20896;20897;, - 4;20898;20899;20900;20901;, - 4;20902;20903;20904;20905;, - 4;20906;20907;20908;20909;, - 4;20910;20911;20912;20913;, - 4;20914;20915;20916;20917;, - 4;20918;20919;20920;20921;, - 4;20922;20923;20924;20925;, - 4;20926;20927;20928;20929;, - 4;20930;20931;20932;20933;, - 4;20934;20935;20936;20937;, - 4;20938;20939;20940;20941;, - 4;20942;20943;20944;20945;, - 4;20946;20947;20948;20949;, - 4;20950;20951;20952;20953;, - 4;20954;20955;20956;20957;, - 4;20958;20959;20960;20961;, - 4;20962;20963;20964;20965;, - 4;20966;20967;20968;20969;, - 4;20970;20971;20972;20973;, - 4;20974;20975;20976;20977;, - 4;20978;20979;20980;20981;, - 4;20982;20983;20984;20985;, - 4;20986;20987;20988;20989;, - 4;20990;20991;20992;20993;, - 4;20994;20995;20996;20997;, - 4;20998;20999;21000;21001;, - 4;21002;21003;21004;21005;, - 4;21006;21007;21008;21009;, - 4;21010;21011;21012;21013;, - 4;21014;21015;21016;21017;, - 4;21018;21019;21020;21021;, - 4;21022;21023;21024;21025;, - 4;21026;21027;21028;21029;, - 4;21030;21031;21032;21033;, - 4;21034;21035;21036;21037;, - 4;21038;21039;21040;21041;, - 4;21042;21043;21044;21045;, - 4;21046;21047;21048;21049;, - 4;21050;21051;21052;21053;, - 4;21054;21055;21056;21057;, - 4;21058;21059;21060;21061;, - 4;21062;21063;21064;21065;, - 4;21066;21067;21068;21069;, - 4;21070;21071;21072;21073;, - 4;21074;21075;21076;21077;, - 4;21078;21079;21080;21081;, - 4;21082;21083;21084;21085;, - 4;21086;21087;21088;21089;, - 4;21090;21091;21092;21093;, - 4;21094;21095;21096;21097;, - 4;21098;21099;21100;21101;, - 4;21102;21103;21104;21105;, - 4;21106;21107;21108;21109;, - 4;21110;21111;21112;21113;, - 4;21114;21115;21116;21117;, - 4;21118;21119;21120;21121;, - 4;21122;21123;21124;21125;, - 4;21126;21127;21128;21129;, - 4;21130;21131;21132;21133;, - 4;21134;21135;21136;21137;, - 4;21138;21139;21140;21141;, - 4;21142;21143;21144;21145;, - 4;21146;21147;21148;21149;, - 4;21150;21151;21152;21153;, - 4;21154;21155;21156;21157;, - 4;21158;21159;21160;21161;, - 4;21162;21163;21164;21165;, - 4;21166;21167;21168;21169;, - 4;21170;21171;21172;21173;, - 4;21174;21175;21176;21177;, - 4;21178;21179;21180;21181;, - 4;21182;21183;21184;21185;, - 4;21186;21187;21188;21189;, - 4;21190;21191;21192;21193;, - 4;21194;21195;21196;21197;, - 4;21198;21199;21200;21201;, - 4;21202;21203;21204;21205;, - 4;21206;21207;21208;21209;, - 4;21210;21211;21212;21213;, - 4;21214;21215;21216;21217;, - 4;21218;21219;21220;21221;, - 4;21222;21223;21224;21225;, - 4;21226;21227;21228;21229;, - 4;21230;21231;21232;21233;, - 4;21234;21235;21236;21237;, - 4;21238;21239;21240;21241;, - 4;21242;21243;21244;21245;, - 4;21246;21247;21248;21249;, - 4;21250;21251;21252;21253;, - 4;21254;21255;21256;21257;, - 4;21258;21259;21260;21261;, - 4;21262;21263;21264;21265;, - 4;21266;21267;21268;21269;, - 4;21270;21271;21272;21273;, - 4;21274;21275;21276;21277;, - 4;21278;21279;21280;21281;, - 4;21282;21283;21284;21285;, - 4;21286;21287;21288;21289;, - 4;21290;21291;21292;21293;, - 4;21294;21295;21296;21297;, - 4;21298;21299;21300;21301;, - 4;21302;21303;21304;21305;, - 4;21306;21307;21308;21309;, - 4;21310;21311;21312;21313;, - 4;21314;21315;21316;21317;, - 4;21318;21319;21320;21321;, - 4;21322;21323;21324;21325;, - 4;21326;21327;21328;21329;, - 4;21330;21331;21332;21333;, - 4;21334;21335;21336;21337;, - 4;21338;21339;21340;21341;, - 4;21342;21343;21344;21345;, - 4;21346;21347;21348;21349;, - 4;21350;21351;21352;21353;, - 4;21354;21355;21356;21357;, - 4;21358;21359;21360;21361;, - 4;21362;21363;21364;21365;, - 4;21366;21367;21368;21369;, - 4;21370;21371;21372;21373;, - 4;21374;21375;21376;21377;, - 4;21378;21379;21380;21381;, - 4;21382;21383;21384;21385;, - 4;21386;21387;21388;21389;, - 4;21390;21391;21392;21393;, - 3;21394;21395;21396;, - 3;21397;21398;21399;, - 3;21400;21401;21402;, - 4;21403;21404;21405;21406;, - 3;21407;21408;21409;, - 4;21410;21411;21412;21413;, - 3;21414;21415;21416;, - 4;21417;21418;21419;21420;, - 3;21421;21422;21423;, - 3;21424;21425;21426;, - 4;21427;21428;21429;21430;, - 3;21431;21432;21433;, - 4;21434;21435;21436;21437;, - 3;21438;21439;21440;, - 3;21441;21442;21443;, - 4;21444;21445;21446;21447;, - 3;21448;21449;21450;, - 4;21451;21452;21453;21454;, - 3;21455;21456;21457;, - 4;21458;21459;21460;21461;, - 3;21462;21463;21464;, - 3;21465;21466;21467;, - 4;21468;21469;21470;21471;, - 3;21472;21473;21474;, - 4;21475;21476;21477;21478;, - 3;21479;21480;21481;, - 4;21482;21483;21484;21485;, - 4;21486;21487;21488;21489;, - 3;21490;21491;21492;, - 4;21493;21494;21495;21496;, - 4;21497;21498;21499;21500;, - 4;21501;21502;21503;21504;, - 4;21505;21506;21507;21508;, - 4;21509;21510;21511;21512;, - 3;21513;21514;21515;, - 4;21516;21517;21518;21519;, - 3;21520;21521;21522;, - 3;21523;21524;21525;, - 4;21526;21527;21528;21529;, - 3;21530;21531;21532;, - 4;21533;21534;21535;21536;, - 4;21537;21538;21539;21540;, - 4;21541;21542;21543;21544;, - 3;21545;21546;21547;, - 3;21548;21549;21550;, - 4;21551;21552;21553;21554;, - 3;21555;21556;21557;, - 4;21558;21559;21560;21561;, - 3;21562;21563;21564;, - 4;21565;21566;21567;21568;, - 3;21569;21570;21571;, - 3;21572;21573;21574;, - 4;21575;21576;21577;21578;, - 4;21579;21580;21581;21582;, - 4;21583;21584;21585;21586;, - 4;21587;21588;21589;21590;, - 4;21591;21592;21593;21594;, - 3;21595;21596;21597;, - 4;21598;21599;21600;21601;, - 3;21602;21603;21604;, - 4;21605;21606;21607;21608;, - 3;21609;21610;21611;, - 4;21612;21613;21614;21615;, - 4;21616;21617;21618;21619;, - 4;21620;21621;21622;21623;, - 3;21624;21625;21626;, - 4;21627;21628;21629;21630;, - 3;21631;21632;21633;, - 4;21634;21635;21636;21637;, - 3;21638;21639;21640;, - 3;21641;21642;21643;, - 4;21644;21645;21646;21647;, - 3;21648;21649;21650;, - 4;21651;21652;21653;21654;, - 3;21655;21656;21657;, - 4;21658;21659;21660;21661;, - 3;21662;21663;21664;, - 3;21665;21666;21667;, - 4;21668;21669;21670;21671;, - 3;21672;21673;21674;, - 4;21675;21676;21677;21678;, - 3;21679;21680;21681;, - 3;21682;21683;21684;, - 4;21685;21686;21687;21688;, - 3;21689;21690;21691;, - 4;21692;21693;21694;21695;, - 3;21696;21697;21698;, - 4;21699;21700;21701;21702;, - 3;21703;21704;21705;, - 3;21706;21707;21708;, - 4;21709;21710;21711;21712;, - 3;21713;21714;21715;, - 4;21716;21717;21718;21719;; - } //End of Gasprin_001 Normals - MeshMaterialList { //Gasprin_001 Material List - 2; - 6512; - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1;; - Material Default_Material { - 0.800000; 0.800000; 0.800000; 0.800000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - Material Material_TF_514 { - 0.640000; 0.640000; 0.640000; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - } //End of Gasprin_001 Material List - MeshTextureCoords { //Gasprin_001 UV Coordinates - 21720; - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.489078; 0.656282;, - 0.493550; 0.660754;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.489078; 0.656282;, - 0.493550; 0.660754;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.489078; 0.656282;, - 0.493550; 0.660754;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.520494; 0.450666;, - 0.513368; 0.432921;, - 0.508666; 0.440950;, - 0.508666; 0.440950;, - 0.515792; 0.458695;, - 0.520494; 0.450666;, - 0.515792; 0.458695;, - 0.508666; 0.440950;, - 0.503964; 0.448978;, - 0.527620; 0.468411;, - 0.520494; 0.450666;, - 0.515792; 0.458695;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.449192; 0.580120;, - 0.463439; 0.580074;, - 0.449304; 0.588879;, - 0.449304; 0.588879;, - 0.435056; 0.588925;, - 0.449192; 0.580120;, - 0.435056; 0.588925;, - 0.449304; 0.588879;, - 0.435168; 0.597684;, - 0.434944; 0.580165;, - 0.449192; 0.580120;, - 0.435056; 0.588925;, - 0.428302; 0.597909;, - 0.435168; 0.597684;, - 0.428432; 0.616183;, - 0.428432; 0.616183;, - 0.421567; 0.616408;, - 0.428302; 0.597909;, - 0.421567; 0.616408;, - 0.428432; 0.616183;, - 0.421696; 0.634682;, - 0.421437; 0.598133;, - 0.428302; 0.597909;, - 0.421567; 0.616408;, - 0.421477; 0.523913;, - 0.414366; 0.523913;, - 0.421478; 0.521141;, - 0.421478; 0.521141;, - 0.428589; 0.521142;, - 0.421477; 0.523913;, - 0.428589; 0.521142;, - 0.421478; 0.521141;, - 0.428591; 0.518370;, - 0.428588; 0.523913;, - 0.421477; 0.523913;, - 0.428589; 0.521142;, - 0.509282; 0.441478;, - 0.513975; 0.433441;, - 0.521053; 0.451145;, - 0.521053; 0.451145;, - 0.516361; 0.459183;, - 0.509282; 0.441478;, - 0.516361; 0.459183;, - 0.521053; 0.451145;, - 0.528131; 0.468850;, - 0.504590; 0.449516;, - 0.509282; 0.441478;, - 0.516361; 0.459183;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.473962; 0.938710;, - 0.467976; 0.935048;, - 0.469070; 0.910286;, - 0.469070; 0.910286;, - 0.475055; 0.913948;, - 0.473962; 0.938710;, - 0.475055; 0.913948;, - 0.469070; 0.910286;, - 0.470163; 0.885525;, - 0.479947; 0.942371;, - 0.473962; 0.938710;, - 0.475055; 0.913948;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.069028; 0.910286;, - 0.070319; 0.935048;, - 0.063886; 0.938710;, - 0.063886; 0.938710;, - 0.062596; 0.913948;, - 0.069028; 0.910286;, - 0.062596; 0.913948;, - 0.063886; 0.938710;, - 0.057453; 0.942371;, - 0.067738; 0.885525;, - 0.069028; 0.910286;, - 0.062596; 0.913948;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.929302; 0.869821;, - 0.938928; 0.867939;, - 0.904002; 0.804290;, - 0.904002; 0.804290;, - 0.894376; 0.806172;, - 0.929302; 0.869821;, - 0.894376; 0.806172;, - 0.904002; 0.804290;, - 0.869076; 0.740641;, - 0.919676; 0.871702;, - 0.929302; 0.869821;, - 0.894376; 0.806172;, - 0.928829; 0.869821;, - 0.919457; 0.871702;, - 0.894267; 0.806170;, - 0.894267; 0.806170;, - 0.903640; 0.804288;, - 0.928829; 0.869821;, - 0.903640; 0.804288;, - 0.894267; 0.806170;, - 0.869078; 0.740637;, - 0.938202; 0.867940;, - 0.928829; 0.869821;, - 0.903640; 0.804288;, - 0.181064; 0.521534;, - 0.179760; 0.533492;, - 0.173690; 0.534458;, - 0.173690; 0.534458;, - 0.174994; 0.522501;, - 0.181064; 0.521534;, - 0.174994; 0.522501;, - 0.173690; 0.534458;, - 0.167620; 0.535425;, - 0.182367; 0.509577;, - 0.181064; 0.521534;, - 0.174994; 0.522501;, - 0.174992; 0.722236;, - 0.167619; 0.709390;, - 0.173687; 0.710330;, - 0.173687; 0.710330;, - 0.181060; 0.723176;, - 0.174992; 0.722236;, - 0.181060; 0.723176;, - 0.173687; 0.710330;, - 0.179755; 0.711270;, - 0.182365; 0.735083;, - 0.174992; 0.722236;, - 0.181060; 0.723176;, - 0.062087; 0.247681;, - 0.046011; 0.247585;, - 0.062095; 0.178652;, - 0.062095; 0.178652;, - 0.078171; 0.178749;, - 0.062087; 0.247681;, - 0.078171; 0.178749;, - 0.062095; 0.178652;, - 0.078179; 0.109719;, - 0.078163; 0.247779;, - 0.062087; 0.247681;, - 0.078171; 0.178749;, - 0.062095; 0.178652;, - 0.046011; 0.247585;, - 0.046546; 0.173183;, - 0.046546; 0.173183;, - 0.062630; 0.104250;, - 0.062095; 0.178652;, - 0.062630; 0.104250;, - 0.046546; 0.173183;, - 0.047082; 0.098781;, - 0.078179; 0.109719;, - 0.062095; 0.178652;, - 0.062630; 0.104250;, - 0.350921; 0.173182;, - 0.351457; 0.247584;, - 0.335378; 0.178652;, - 0.335378; 0.178652;, - 0.334843; 0.104250;, - 0.350921; 0.173182;, - 0.334843; 0.104250;, - 0.335378; 0.178652;, - 0.319299; 0.109719;, - 0.350386; 0.098781;, - 0.350921; 0.173182;, - 0.334843; 0.104250;, - 0.335378; 0.178652;, - 0.351457; 0.247584;, - 0.335373; 0.247681;, - 0.335373; 0.247681;, - 0.319294; 0.178749;, - 0.335378; 0.178652;, - 0.319294; 0.178749;, - 0.335373; 0.247681;, - 0.319288; 0.247779;, - 0.319299; 0.109719;, - 0.335378; 0.178652;, - 0.319294; 0.178749;, - 0.335636; 0.292888;, - 0.319285; 0.292913;, - 0.335371; 0.270249;, - 0.335371; 0.270249;, - 0.351722; 0.270224;, - 0.335636; 0.292888;, - 0.351722; 0.270224;, - 0.335371; 0.270249;, - 0.351457; 0.247584;, - 0.351987; 0.292864;, - 0.335636; 0.292888;, - 0.351722; 0.270224;, - 0.335371; 0.270248;, - 0.319285; 0.292913;, - 0.319287; 0.270346;, - 0.319287; 0.270346;, - 0.335373; 0.247681;, - 0.335371; 0.270248;, - 0.335373; 0.247681;, - 0.319287; 0.270346;, - 0.319288; 0.247779;, - 0.351457; 0.247584;, - 0.335371; 0.270248;, - 0.335373; 0.247681;, - 0.335880; 0.380722;, - 0.319279; 0.382152;, - 0.319282; 0.337532;, - 0.319282; 0.337532;, - 0.335882; 0.336102;, - 0.335880; 0.380722;, - 0.335882; 0.336102;, - 0.319282; 0.337532;, - 0.319285; 0.292913;, - 0.352480; 0.379292;, - 0.335880; 0.380722;, - 0.335882; 0.336102;, - 0.352234; 0.336078;, - 0.352480; 0.379292;, - 0.335883; 0.336102;, - 0.335883; 0.336102;, - 0.335636; 0.292888;, - 0.352234; 0.336078;, - 0.335636; 0.292888;, - 0.335883; 0.336102;, - 0.319285; 0.292913;, - 0.351987; 0.292864;, - 0.352234; 0.336078;, - 0.335636; 0.292888;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.985439; 0.000430;, - 1.007886; 0.000451;, - 1.007807; 0.013286;, - 1.007807; 0.013286;, - 0.985360; 0.013264;, - 0.985439; 0.000430;, - 0.985360; 0.013264;, - 1.007807; 0.013286;, - 1.007729; 0.026120;, - 0.962992; 0.000408;, - 0.985439; 0.000430;, - 0.985360; 0.013264;, - 0.962914; 0.013242;, - 0.962992; 0.000408;, - 0.985360; 0.013264;, - 0.985360; 0.013264;, - 0.985282; 0.026098;, - 0.962914; 0.013242;, - 0.985282; 0.026098;, - 0.985360; 0.013264;, - 1.007729; 0.026120;, - 0.962835; 0.026076;, - 0.962914; 0.013242;, - 0.985282; 0.026098;, - 0.947099; 0.013517;, - 0.947099; 0.000414;, - 0.985618; 0.013517;, - 0.985618; 0.013517;, - 0.985618; 0.026621;, - 0.947099; 0.013517;, - 0.985618; 0.026621;, - 0.985618; 0.013517;, - 1.024138; 0.026621;, - 0.947099; 0.026621;, - 0.947099; 0.013517;, - 0.985618; 0.026621;, - 0.985618; 0.013517;, - 0.947099; 0.000414;, - 0.985618; 0.000414;, - 0.985618; 0.000414;, - 1.024138; 0.013517;, - 0.985618; 0.013517;, - 1.024138; 0.013517;, - 0.985618; 0.000414;, - 1.024138; 0.000414;, - 1.024138; 0.026621;, - 0.985618; 0.013517;, - 1.024138; 0.013517;, - 0.078160; 0.270346;, - 0.078157; 0.292913;, - 0.062084; 0.270249;, - 0.062084; 0.270249;, - 0.062087; 0.247682;, - 0.078160; 0.270346;, - 0.062087; 0.247682;, - 0.062084; 0.270249;, - 0.046011; 0.247585;, - 0.078163; 0.247779;, - 0.078160; 0.270346;, - 0.062087; 0.247682;, - 0.062084; 0.270249;, - 0.078157; 0.292913;, - 0.061819; 0.292888;, - 0.061819; 0.292888;, - 0.045745; 0.270224;, - 0.062084; 0.270249;, - 0.045745; 0.270224;, - 0.061819; 0.292888;, - 0.045480; 0.292864;, - 0.046011; 0.247585;, - 0.062084; 0.270249;, - 0.045745; 0.270224;, - 0.078152; 0.337530;, - 0.078147; 0.382147;, - 0.061567; 0.380719;, - 0.061567; 0.380719;, - 0.061572; 0.336102;, - 0.078152; 0.337530;, - 0.061572; 0.336102;, - 0.061567; 0.380719;, - 0.044987; 0.379291;, - 0.078157; 0.292913;, - 0.078152; 0.337530;, - 0.061572; 0.336102;, - 0.061819; 0.292888;, - 0.078157; 0.292913;, - 0.061572; 0.336102;, - 0.061572; 0.336102;, - 0.045233; 0.336078;, - 0.061819; 0.292888;, - 0.045233; 0.336078;, - 0.061572; 0.336102;, - 0.044987; 0.379291;, - 0.045480; 0.292864;, - 0.061819; 0.292888;, - 0.045233; 0.336078;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.966051; 0.013990;, - 0.966051; 0.000650;, - 0.985360; 0.000650;, - 0.985360; 0.000650;, - 0.985360; 0.013990;, - 0.966051; 0.013990;, - 0.985360; 0.013990;, - 0.985360; 0.000650;, - 1.004670; 0.000650;, - 0.966051; 0.027330;, - 0.966051; 0.013990;, - 0.985360; 0.013990;, - 0.985360; 0.027330;, - 0.966051; 0.027330;, - 0.985360; 0.013990;, - 0.985360; 0.013990;, - 1.004670; 0.013990;, - 0.985360; 0.027330;, - 1.004670; 0.013990;, - 0.985360; 0.013990;, - 1.004670; 0.000650;, - 1.004670; 0.027330;, - 0.985360; 0.027330;, - 1.004670; 0.013990;, - 0.986278; 0.000401;, - 1.023361; 0.000428;, - 0.985619; 0.013517;, - 0.985619; 0.013517;, - 0.948535; 0.013490;, - 0.986278; 0.000401;, - 0.948535; 0.013490;, - 0.985619; 0.013517;, - 0.947876; 0.026607;, - 0.949195; 0.000374;, - 0.986278; 0.000401;, - 0.948535; 0.013490;, - 0.985618; 0.013517;, - 1.023361; 0.000428;, - 1.022702; 0.013544;, - 1.022702; 0.013544;, - 0.984959; 0.026634;, - 0.985618; 0.013517;, - 0.984959; 0.026634;, - 1.022702; 0.013544;, - 1.022042; 0.026661;, - 0.947876; 0.026607;, - 0.985618; 0.013517;, - 0.984959; 0.026634;, - 0.319294; 0.178749;, - 0.319288; 0.247779;, - 0.298712; 0.181227;, - 0.298712; 0.181227;, - 0.298717; 0.112197;, - 0.319294; 0.178749;, - 0.298717; 0.112197;, - 0.298712; 0.181227;, - 0.278135; 0.114676;, - 0.319299; 0.109719;, - 0.319294; 0.178749;, - 0.298717; 0.112197;, - 0.298712; 0.181227;, - 0.319288; 0.247779;, - 0.298712; 0.247779;, - 0.298712; 0.247779;, - 0.278135; 0.181227;, - 0.298712; 0.181227;, - 0.278135; 0.181227;, - 0.298712; 0.247779;, - 0.278135; 0.247779;, - 0.278135; 0.114676;, - 0.298712; 0.181227;, - 0.278135; 0.181227;, - 0.319282; 0.337532;, - 0.319279; 0.382152;, - 0.298707; 0.337532;, - 0.298707; 0.337532;, - 0.298710; 0.292913;, - 0.319282; 0.337532;, - 0.298710; 0.292913;, - 0.298707; 0.337532;, - 0.278135; 0.292913;, - 0.319285; 0.292913;, - 0.319282; 0.337532;, - 0.298710; 0.292913;, - 0.298707; 0.337532;, - 0.319279; 0.382152;, - 0.298617; 0.384079;, - 0.298617; 0.384079;, - 0.278045; 0.339460;, - 0.298707; 0.337532;, - 0.278045; 0.339460;, - 0.298617; 0.384079;, - 0.277954; 0.386007;, - 0.278135; 0.292913;, - 0.298707; 0.337532;, - 0.278045; 0.339460;, - 0.319287; 0.270346;, - 0.319285; 0.292913;, - 0.298710; 0.270346;, - 0.298710; 0.270346;, - 0.298712; 0.247779;, - 0.319287; 0.270346;, - 0.298712; 0.247779;, - 0.298710; 0.270346;, - 0.278135; 0.247779;, - 0.319288; 0.247779;, - 0.319287; 0.270346;, - 0.298712; 0.247779;, - 0.298710; 0.270346;, - 0.319285; 0.292913;, - 0.298710; 0.292913;, - 0.298710; 0.292913;, - 0.278135; 0.270346;, - 0.298710; 0.270346;, - 0.278135; 0.270346;, - 0.298710; 0.292913;, - 0.278135; 0.292913;, - 0.278135; 0.247779;, - 0.298710; 0.270346;, - 0.278135; 0.270346;, - 0.278135; 0.181227;, - 0.278135; 0.247779;, - 0.238726; 0.184724;, - 0.238726; 0.184724;, - 0.238726; 0.118173;, - 0.278135; 0.181227;, - 0.238726; 0.118173;, - 0.238726; 0.184724;, - 0.199318; 0.121669;, - 0.278135; 0.114676;, - 0.278135; 0.181227;, - 0.238726; 0.118173;, - 0.238726; 0.184724;, - 0.278135; 0.247779;, - 0.238726; 0.247779;, - 0.238726; 0.247779;, - 0.199318; 0.184724;, - 0.238726; 0.184724;, - 0.199318; 0.184724;, - 0.238726; 0.247779;, - 0.199318; 0.247779;, - 0.199318; 0.121669;, - 0.238726; 0.184724;, - 0.199318; 0.184724;, - 0.278045; 0.339460;, - 0.277954; 0.386007;, - 0.238636; 0.339460;, - 0.238636; 0.339460;, - 0.238726; 0.292913;, - 0.278045; 0.339460;, - 0.238726; 0.292913;, - 0.238636; 0.339460;, - 0.199318; 0.292913;, - 0.278135; 0.292913;, - 0.278045; 0.339460;, - 0.238726; 0.292913;, - 0.238636; 0.339460;, - 0.277954; 0.386007;, - 0.238482; 0.387110;, - 0.238482; 0.387110;, - 0.199164; 0.340563;, - 0.238636; 0.339460;, - 0.199164; 0.340563;, - 0.238482; 0.387110;, - 0.199010; 0.388213;, - 0.199318; 0.292913;, - 0.238636; 0.339460;, - 0.199164; 0.340563;, - 0.278135; 0.270346;, - 0.278135; 0.292913;, - 0.238726; 0.270346;, - 0.238726; 0.270346;, - 0.238726; 0.247779;, - 0.278135; 0.270346;, - 0.238726; 0.247779;, - 0.238726; 0.270346;, - 0.199318; 0.247779;, - 0.278135; 0.247779;, - 0.278135; 0.270346;, - 0.238726; 0.247779;, - 0.238726; 0.270346;, - 0.278135; 0.292913;, - 0.238726; 0.292913;, - 0.238726; 0.292913;, - 0.199318; 0.270346;, - 0.238726; 0.270346;, - 0.199318; 0.270346;, - 0.238726; 0.292913;, - 0.199318; 0.292913;, - 0.199318; 0.247779;, - 0.238726; 0.270346;, - 0.199318; 0.270346;, - 0.199318; 0.184724;, - 0.199318; 0.247779;, - 0.159734; 0.247779;, - 0.159734; 0.247779;, - 0.159734; 0.184724;, - 0.199318; 0.184724;, - 0.159734; 0.184724;, - 0.159734; 0.247779;, - 0.120150; 0.247779;, - 0.199318; 0.121669;, - 0.199318; 0.184724;, - 0.159734; 0.184724;, - 0.159734; 0.118226;, - 0.199318; 0.121669;, - 0.159734; 0.184724;, - 0.159734; 0.184724;, - 0.120150; 0.181281;, - 0.159734; 0.118226;, - 0.120150; 0.181281;, - 0.159734; 0.184724;, - 0.120150; 0.247779;, - 0.120150; 0.114784;, - 0.159734; 0.118226;, - 0.120150; 0.181281;, - 0.199164; 0.340563;, - 0.199010; 0.388213;, - 0.159458; 0.387118;, - 0.159458; 0.387118;, - 0.159612; 0.339468;, - 0.199164; 0.340563;, - 0.159612; 0.339468;, - 0.159458; 0.387118;, - 0.119906; 0.386023;, - 0.199318; 0.292913;, - 0.199164; 0.340563;, - 0.159612; 0.339468;, - 0.159734; 0.292913;, - 0.199318; 0.292913;, - 0.159612; 0.339468;, - 0.159612; 0.339468;, - 0.120028; 0.339468;, - 0.159734; 0.292913;, - 0.120028; 0.339468;, - 0.159612; 0.339468;, - 0.119906; 0.386023;, - 0.120150; 0.292913;, - 0.159734; 0.292913;, - 0.120028; 0.339468;, - 0.199318; 0.270346;, - 0.199318; 0.292913;, - 0.159734; 0.270346;, - 0.159734; 0.270346;, - 0.159734; 0.247779;, - 0.199318; 0.270346;, - 0.159734; 0.247779;, - 0.159734; 0.270346;, - 0.120150; 0.247779;, - 0.199318; 0.247779;, - 0.199318; 0.270346;, - 0.159734; 0.247779;, - 0.159734; 0.270346;, - 0.199318; 0.292913;, - 0.159734; 0.292913;, - 0.159734; 0.292913;, - 0.120150; 0.270346;, - 0.159734; 0.270346;, - 0.120150; 0.270346;, - 0.159734; 0.292913;, - 0.120150; 0.292913;, - 0.120150; 0.247779;, - 0.159734; 0.270346;, - 0.120150; 0.270346;, - 0.120150; 0.181281;, - 0.120150; 0.247779;, - 0.099156; 0.247778;, - 0.099156; 0.247778;, - 0.099156; 0.181281;, - 0.120150; 0.181281;, - 0.099156; 0.181281;, - 0.099156; 0.247778;, - 0.078163; 0.247779;, - 0.120150; 0.114784;, - 0.120150; 0.181281;, - 0.099156; 0.181281;, - 0.099164; 0.112251;, - 0.120150; 0.114784;, - 0.099156; 0.181281;, - 0.099156; 0.181281;, - 0.078171; 0.178749;, - 0.099164; 0.112251;, - 0.078171; 0.178749;, - 0.099156; 0.181281;, - 0.078163; 0.247779;, - 0.078179; 0.109719;, - 0.099164; 0.112251;, - 0.078171; 0.178749;, - 0.120028; 0.339468;, - 0.119906; 0.386023;, - 0.099026; 0.384085;, - 0.099026; 0.384085;, - 0.099148; 0.337530;, - 0.120028; 0.339468;, - 0.099148; 0.337530;, - 0.099026; 0.384085;, - 0.078147; 0.382147;, - 0.120150; 0.292913;, - 0.120028; 0.339468;, - 0.099148; 0.337530;, - 0.099154; 0.292913;, - 0.120150; 0.292913;, - 0.099148; 0.337530;, - 0.099148; 0.337530;, - 0.078152; 0.337530;, - 0.099154; 0.292913;, - 0.078152; 0.337530;, - 0.099148; 0.337530;, - 0.078147; 0.382147;, - 0.078157; 0.292913;, - 0.099154; 0.292913;, - 0.078152; 0.337530;, - 0.120150; 0.270346;, - 0.120150; 0.292913;, - 0.099156; 0.270346;, - 0.099156; 0.270346;, - 0.099156; 0.247779;, - 0.120150; 0.270346;, - 0.099156; 0.247779;, - 0.099156; 0.270346;, - 0.078163; 0.247779;, - 0.120150; 0.247779;, - 0.120150; 0.270346;, - 0.099156; 0.247779;, - 0.099156; 0.270346;, - 0.120150; 0.292913;, - 0.099154; 0.292913;, - 0.099154; 0.292913;, - 0.078160; 0.270346;, - 0.099156; 0.270346;, - 0.078160; 0.270346;, - 0.099154; 0.292913;, - 0.078157; 0.292913;, - 0.078163; 0.247779;, - 0.099156; 0.270346;, - 0.078160; 0.270346;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.876996;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.876996;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.875281;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.876996;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.875281;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.876996;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.866531; 0.810679;, - 0.835981; 0.740616;, - 0.855030; 0.805686;, - 0.855030; 0.805686;, - 0.885579; 0.875749;, - 0.866531; 0.810679;, - 0.885579; 0.875749;, - 0.855030; 0.805686;, - 0.874078; 0.870756;, - 0.897080; 0.880742;, - 0.866531; 0.810679;, - 0.885579; 0.875749;, - 0.855030; 0.805686;, - 0.835981; 0.740616;, - 0.831220; 0.745609;, - 0.831220; 0.745609;, - 0.850268; 0.810679;, - 0.855030; 0.805686;, - 0.850268; 0.810679;, - 0.831220; 0.745609;, - 0.826458; 0.750601;, - 0.874078; 0.870756;, - 0.855030; 0.805686;, - 0.850268; 0.810679;, - 0.911761; 0.710723;, - 0.911761; 0.706251;, - 0.916233; 0.706251;, - 0.916233; 0.706251;, - 0.916233; 0.710723;, - 0.911761; 0.710723;, - 0.916233; 0.710723;, - 0.916233; 0.706251;, - 0.920705; 0.706251;, - 0.911761; 0.715195;, - 0.911761; 0.710723;, - 0.916233; 0.710723;, - 0.916233; 0.715195;, - 0.911761; 0.715195;, - 0.916233; 0.710723;, - 0.916233; 0.710723;, - 0.920705; 0.710723;, - 0.916233; 0.715195;, - 0.920705; 0.710723;, - 0.916233; 0.710723;, - 0.920705; 0.706251;, - 0.920705; 0.715195;, - 0.916233; 0.715195;, - 0.920705; 0.710723;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.911761; 0.710723;, - 0.911761; 0.706251;, - 0.916233; 0.706251;, - 0.916233; 0.706251;, - 0.916233; 0.710723;, - 0.911761; 0.710723;, - 0.916233; 0.710723;, - 0.916233; 0.706251;, - 0.920705; 0.706251;, - 0.911761; 0.715195;, - 0.911761; 0.710723;, - 0.916233; 0.710723;, - 0.916233; 0.715195;, - 0.911761; 0.715195;, - 0.916233; 0.710723;, - 0.916233; 0.710723;, - 0.920705; 0.710723;, - 0.916233; 0.715195;, - 0.920705; 0.710723;, - 0.916233; 0.710723;, - 0.920705; 0.706251;, - 0.920705; 0.715195;, - 0.916233; 0.715195;, - 0.920705; 0.710723;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.876996;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.875281;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.876996;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.875281;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.876996;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.876996;, - 0.587970; 0.875281;, - 0.584540; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.875281;, - 0.586255; 0.875281;, - 0.586255; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.876996;, - 0.584540; 0.876996;, - 0.584540; 0.875281;, - 0.586255; 0.876996;, - 0.586255; 0.875281;, - 0.584540; 0.873566;, - 0.586255; 0.873566;, - 0.586255; 0.873566;, - 0.587970; 0.875281;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.586255; 0.873566;, - 0.587970; 0.873566;, - 0.587970; 0.876996;, - 0.586255; 0.875281;, - 0.587970; 0.875281;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.253427; 0.736192;, - 0.324489; 0.737301;, - 0.258358; 0.736437;, - 0.258358; 0.736437;, - 0.187296; 0.735328;, - 0.253427; 0.736192;, - 0.187296; 0.735328;, - 0.258358; 0.736437;, - 0.192226; 0.735573;, - 0.182365; 0.735083;, - 0.253427; 0.736192;, - 0.187296; 0.735328;, - 0.258358; 0.736437;, - 0.324489; 0.737301;, - 0.320385; 0.737321;, - 0.320385; 0.737321;, - 0.254253; 0.736458;, - 0.258358; 0.736437;, - 0.254253; 0.736458;, - 0.320385; 0.737321;, - 0.316280; 0.737342;, - 0.192226; 0.735573;, - 0.258358; 0.736437;, - 0.254253; 0.736458;, - 0.866531; 0.810677;, - 0.897080; 0.880742;, - 0.885848; 0.875287;, - 0.885848; 0.875287;, - 0.855299; 0.805222;, - 0.866531; 0.810677;, - 0.855299; 0.805222;, - 0.885848; 0.875287;, - 0.874615; 0.869832;, - 0.835983; 0.740612;, - 0.866531; 0.810677;, - 0.855299; 0.805222;, - 0.831332; 0.746067;, - 0.835983; 0.740612;, - 0.855299; 0.805222;, - 0.855299; 0.805222;, - 0.850649; 0.810677;, - 0.831332; 0.746067;, - 0.850649; 0.810677;, - 0.855299; 0.805222;, - 0.874615; 0.869832;, - 0.826682; 0.751522;, - 0.831332; 0.746067;, - 0.850649; 0.810677;, - 0.911761; 0.710723;, - 0.911761; 0.706251;, - 0.916233; 0.710723;, - 0.916233; 0.710723;, - 0.916233; 0.715195;, - 0.911761; 0.710723;, - 0.916233; 0.715195;, - 0.916233; 0.710723;, - 0.920705; 0.715195;, - 0.911761; 0.715195;, - 0.911761; 0.710723;, - 0.916233; 0.715195;, - 0.916233; 0.710723;, - 0.911761; 0.706251;, - 0.916233; 0.706251;, - 0.916233; 0.706251;, - 0.920705; 0.710723;, - 0.916233; 0.710723;, - 0.920705; 0.710723;, - 0.916233; 0.706251;, - 0.920705; 0.706251;, - 0.920705; 0.715195;, - 0.916233; 0.710723;, - 0.920705; 0.710723;, - 0.325657; 0.519945;, - 0.326826; 0.532807;, - 0.254597; 0.521192;, - 0.254597; 0.521192;, - 0.253428; 0.508330;, - 0.325657; 0.519945;, - 0.253428; 0.508330;, - 0.254597; 0.521192;, - 0.182367; 0.509577;, - 0.324488; 0.507082;, - 0.325657; 0.519945;, - 0.253428; 0.508330;, - 0.254597; 0.521192;, - 0.326826; 0.532807;, - 0.253293; 0.533149;, - 0.253293; 0.533149;, - 0.181064; 0.521534;, - 0.254597; 0.521192;, - 0.181064; 0.521534;, - 0.253293; 0.533149;, - 0.179760; 0.533492;, - 0.182367; 0.509577;, - 0.254597; 0.521192;, - 0.181064; 0.521534;, - 0.325659; 0.724588;, - 0.324489; 0.737301;, - 0.253427; 0.736192;, - 0.253427; 0.736192;, - 0.254597; 0.723480;, - 0.325659; 0.724588;, - 0.254597; 0.723480;, - 0.253427; 0.736192;, - 0.182365; 0.735083;, - 0.326830; 0.711876;, - 0.325659; 0.724588;, - 0.254597; 0.723480;, - 0.253292; 0.711573;, - 0.326830; 0.711876;, - 0.254597; 0.723480;, - 0.254597; 0.723480;, - 0.181060; 0.723176;, - 0.253292; 0.711573;, - 0.181060; 0.723176;, - 0.254597; 0.723480;, - 0.182365; 0.735083;, - 0.179755; 0.711270;, - 0.253292; 0.711573;, - 0.181060; 0.723176;, - 0.327671; 0.577601;, - 0.328515; 0.622395;, - 0.254137; 0.577943;, - 0.254137; 0.577943;, - 0.253293; 0.533149;, - 0.327671; 0.577601;, - 0.253293; 0.533149;, - 0.254137; 0.577943;, - 0.179760; 0.533492;, - 0.326826; 0.532807;, - 0.327671; 0.577601;, - 0.253293; 0.533149;, - 0.254137; 0.577943;, - 0.328515; 0.622395;, - 0.249163; 0.622395;, - 0.249163; 0.622395;, - 0.174786; 0.577943;, - 0.254137; 0.577943;, - 0.174786; 0.577943;, - 0.249163; 0.622395;, - 0.169812; 0.622395;, - 0.179760; 0.533492;, - 0.254137; 0.577943;, - 0.174786; 0.577943;, - 0.327672; 0.667135;, - 0.326830; 0.711876;, - 0.253292; 0.711573;, - 0.253292; 0.711573;, - 0.254135; 0.666832;, - 0.327672; 0.667135;, - 0.254135; 0.666832;, - 0.253292; 0.711573;, - 0.179755; 0.711270;, - 0.328515; 0.622395;, - 0.327672; 0.667135;, - 0.254135; 0.666832;, - 0.249163; 0.622395;, - 0.328515; 0.622395;, - 0.254135; 0.666832;, - 0.254135; 0.666832;, - 0.174783; 0.666832;, - 0.249163; 0.622395;, - 0.174783; 0.666832;, - 0.254135; 0.666832;, - 0.179755; 0.711270;, - 0.169812; 0.622395;, - 0.249163; 0.622395;, - 0.174783; 0.666832;, - 0.983363; 0.014801;, - 0.983363; 0.011718;, - 0.986446; 0.011718;, - 0.986446; 0.011718;, - 0.986446; 0.014801;, - 0.983363; 0.014801;, - 0.986446; 0.014801;, - 0.986446; 0.011718;, - 0.989529; 0.011718;, - 0.983363; 0.017884;, - 0.983363; 0.014801;, - 0.986446; 0.014801;, - 0.986446; 0.017884;, - 0.983363; 0.017884;, - 0.986446; 0.014801;, - 0.986446; 0.014801;, - 0.989529; 0.014801;, - 0.986446; 0.017884;, - 0.989529; 0.014801;, - 0.986446; 0.014801;, - 0.989529; 0.011718;, - 0.989529; 0.017884;, - 0.986446; 0.017884;, - 0.989529; 0.014801;, - 0.983363; 0.014801;, - 0.983363; 0.011718;, - 0.986446; 0.014801;, - 0.986446; 0.014801;, - 0.986446; 0.017884;, - 0.983363; 0.014801;, - 0.986446; 0.017884;, - 0.986446; 0.014801;, - 0.989529; 0.017884;, - 0.983363; 0.017884;, - 0.983363; 0.014801;, - 0.986446; 0.017884;, - 0.986446; 0.014801;, - 0.983363; 0.011718;, - 0.986446; 0.011718;, - 0.986446; 0.011718;, - 0.989529; 0.014801;, - 0.986446; 0.014801;, - 0.989529; 0.014801;, - 0.986446; 0.011718;, - 0.989529; 0.011718;, - 0.989529; 0.017884;, - 0.986446; 0.014801;, - 0.989529; 0.014801;, - 0.355521; 0.520600;, - 0.357344; 0.533105;, - 0.342085; 0.532956;, - 0.342085; 0.532956;, - 0.340263; 0.520451;, - 0.355521; 0.520600;, - 0.340263; 0.520451;, - 0.342085; 0.532956;, - 0.326826; 0.532807;, - 0.353699; 0.508095;, - 0.355521; 0.520600;, - 0.340263; 0.520451;, - 0.339093; 0.507589;, - 0.353699; 0.508095;, - 0.340263; 0.520451;, - 0.340263; 0.520451;, - 0.325657; 0.519945;, - 0.339093; 0.507589;, - 0.325657; 0.519945;, - 0.340263; 0.520451;, - 0.326826; 0.532807;, - 0.324488; 0.507082;, - 0.339093; 0.507589;, - 0.325657; 0.519945;, - 0.355525; 0.724009;, - 0.353701; 0.736407;, - 0.340265; 0.724141;, - 0.340265; 0.724141;, - 0.342089; 0.711744;, - 0.355525; 0.724009;, - 0.342089; 0.711744;, - 0.340265; 0.724141;, - 0.326830; 0.711876;, - 0.357349; 0.711612;, - 0.355525; 0.724009;, - 0.342089; 0.711744;, - 0.340265; 0.724141;, - 0.353701; 0.736407;, - 0.339095; 0.736854;, - 0.339095; 0.736854;, - 0.325659; 0.724588;, - 0.340265; 0.724141;, - 0.325659; 0.724588;, - 0.339095; 0.736854;, - 0.324489; 0.737301;, - 0.326830; 0.711876;, - 0.340265; 0.724141;, - 0.325659; 0.724588;, - 0.358827; 0.577750;, - 0.360310; 0.622395;, - 0.344412; 0.622395;, - 0.344412; 0.622395;, - 0.342929; 0.577750;, - 0.358827; 0.577750;, - 0.342929; 0.577750;, - 0.344412; 0.622395;, - 0.328515; 0.622395;, - 0.357344; 0.533105;, - 0.358827; 0.577750;, - 0.342929; 0.577750;, - 0.342085; 0.532956;, - 0.357344; 0.533105;, - 0.342929; 0.577750;, - 0.342929; 0.577750;, - 0.327671; 0.577601;, - 0.342085; 0.532956;, - 0.327671; 0.577601;, - 0.342929; 0.577750;, - 0.328515; 0.622395;, - 0.326826; 0.532807;, - 0.342085; 0.532956;, - 0.327671; 0.577601;, - 0.358829; 0.667003;, - 0.357349; 0.711612;, - 0.342932; 0.667003;, - 0.342932; 0.667003;, - 0.344412; 0.622395;, - 0.358829; 0.667003;, - 0.344412; 0.622395;, - 0.342932; 0.667003;, - 0.328515; 0.622395;, - 0.360310; 0.622395;, - 0.358829; 0.667003;, - 0.344412; 0.622395;, - 0.342932; 0.667003;, - 0.357349; 0.711612;, - 0.342089; 0.711744;, - 0.342089; 0.711744;, - 0.327672; 0.667135;, - 0.342932; 0.667003;, - 0.327672; 0.667135;, - 0.342089; 0.711744;, - 0.326830; 0.711876;, - 0.328515; 0.622395;, - 0.342932; 0.667003;, - 0.327672; 0.667135;, - 0.410932; 0.521817;, - 0.413932; 0.533659;, - 0.385638; 0.533382;, - 0.385638; 0.533382;, - 0.382638; 0.521540;, - 0.410932; 0.521817;, - 0.382638; 0.521540;, - 0.385638; 0.533382;, - 0.357344; 0.533105;, - 0.407932; 0.509975;, - 0.410932; 0.521817;, - 0.382638; 0.521540;, - 0.380815; 0.509035;, - 0.407932; 0.509975;, - 0.382638; 0.521540;, - 0.382638; 0.521540;, - 0.355521; 0.520600;, - 0.380815; 0.509035;, - 0.355521; 0.520600;, - 0.382638; 0.521540;, - 0.357344; 0.533105;, - 0.353699; 0.508095;, - 0.380815; 0.509035;, - 0.355521; 0.520600;, - 0.410938; 0.722935;, - 0.407936; 0.734748;, - 0.382642; 0.723180;, - 0.382642; 0.723180;, - 0.385645; 0.711367;, - 0.410938; 0.722935;, - 0.385645; 0.711367;, - 0.382642; 0.723180;, - 0.357349; 0.711612;, - 0.413941; 0.711122;, - 0.410938; 0.722935;, - 0.385645; 0.711367;, - 0.382642; 0.723180;, - 0.407936; 0.734748;, - 0.380818; 0.735578;, - 0.380818; 0.735578;, - 0.355525; 0.724009;, - 0.382642; 0.723180;, - 0.355525; 0.724009;, - 0.380818; 0.735578;, - 0.353701; 0.736407;, - 0.357349; 0.711612;, - 0.382642; 0.723180;, - 0.355525; 0.724009;, - 0.416600; 0.578027;, - 0.419267; 0.622395;, - 0.389789; 0.622395;, - 0.389789; 0.622395;, - 0.387121; 0.578027;, - 0.416600; 0.578027;, - 0.387121; 0.578027;, - 0.389789; 0.622395;, - 0.360310; 0.622395;, - 0.413932; 0.533659;, - 0.416600; 0.578027;, - 0.387121; 0.578027;, - 0.385638; 0.533382;, - 0.413932; 0.533659;, - 0.387121; 0.578027;, - 0.387121; 0.578027;, - 0.358827; 0.577750;, - 0.385638; 0.533382;, - 0.358827; 0.577750;, - 0.387121; 0.578027;, - 0.360310; 0.622395;, - 0.357344; 0.533105;, - 0.385638; 0.533382;, - 0.358827; 0.577750;, - 0.416604; 0.666758;, - 0.413941; 0.711122;, - 0.387125; 0.666758;, - 0.387125; 0.666758;, - 0.389789; 0.622395;, - 0.416604; 0.666758;, - 0.389789; 0.622395;, - 0.387125; 0.666758;, - 0.360310; 0.622395;, - 0.419267; 0.622395;, - 0.416604; 0.666758;, - 0.389789; 0.622395;, - 0.387125; 0.666758;, - 0.413941; 0.711122;, - 0.385645; 0.711367;, - 0.385645; 0.711367;, - 0.358829; 0.667003;, - 0.387125; 0.666758;, - 0.358829; 0.667003;, - 0.385645; 0.711367;, - 0.357349; 0.711612;, - 0.360310; 0.622395;, - 0.387125; 0.666758;, - 0.358829; 0.667003;, - 0.482474; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482474; 0.553176;, - 0.493353; 0.564054;, - 0.493353; 0.553176;, - 0.504232; 0.564054;, - 0.482475; 0.564054;, - 0.482474; 0.553176;, - 0.493353; 0.564054;, - 0.493353; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.908378; 0.876222;, - 0.919676; 0.871702;, - 0.894376; 0.806172;, - 0.894376; 0.806172;, - 0.883078; 0.810691;, - 0.908378; 0.876222;, - 0.883078; 0.810691;, - 0.894376; 0.806172;, - 0.869076; 0.740641;, - 0.897080; 0.880742;, - 0.908378; 0.876222;, - 0.883078; 0.810691;, - 0.866531; 0.810679;, - 0.897080; 0.880742;, - 0.883078; 0.810691;, - 0.883078; 0.810691;, - 0.852528; 0.740628;, - 0.866531; 0.810679;, - 0.852528; 0.740628;, - 0.883078; 0.810691;, - 0.869076; 0.740641;, - 0.835981; 0.740616;, - 0.866531; 0.810679;, - 0.852528; 0.740628;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.908269; 0.876222;, - 0.897080; 0.880742;, - 0.883079; 0.810689;, - 0.883079; 0.810689;, - 0.894267; 0.806170;, - 0.908269; 0.876222;, - 0.894267; 0.806170;, - 0.883079; 0.810689;, - 0.869078; 0.740637;, - 0.919457; 0.871702;, - 0.908269; 0.876222;, - 0.894267; 0.806170;, - 0.883079; 0.810689;, - 0.897080; 0.880742;, - 0.866531; 0.810677;, - 0.866531; 0.810677;, - 0.852530; 0.740625;, - 0.883079; 0.810689;, - 0.852530; 0.740625;, - 0.866531; 0.810677;, - 0.835983; 0.740612;, - 0.869078; 0.740637;, - 0.883079; 0.810689;, - 0.852530; 0.740625;, - 0.533619; 0.258318;, - 0.491247; 0.258318;, - 0.521888; 0.212566;, - 0.521888; 0.212566;, - 0.564260; 0.212566;, - 0.533619; 0.258318;, - 0.564260; 0.212566;, - 0.521888; 0.212566;, - 0.552530; 0.166814;, - 0.575991; 0.258318;, - 0.533619; 0.258318;, - 0.564260; 0.212566;, - 0.521888; 0.212566;, - 0.491247; 0.258318;, - 0.490932; 0.212573;, - 0.490932; 0.212573;, - 0.521573; 0.166821;, - 0.521888; 0.212566;, - 0.521573; 0.166821;, - 0.490932; 0.212573;, - 0.490617; 0.166828;, - 0.552530; 0.166814;, - 0.521888; 0.212566;, - 0.521573; 0.166821;, - 0.448150; 0.257993;, - 0.405248; 0.258051;, - 0.417866; 0.212456;, - 0.417866; 0.212456;, - 0.460769; 0.212398;, - 0.448150; 0.257993;, - 0.460769; 0.212398;, - 0.417866; 0.212456;, - 0.430485; 0.166861;, - 0.491052; 0.257934;, - 0.448150; 0.257993;, - 0.460769; 0.212398;, - 0.490993; 0.212395;, - 0.491052; 0.257934;, - 0.460769; 0.212398;, - 0.460769; 0.212398;, - 0.460710; 0.166858;, - 0.490993; 0.212395;, - 0.460710; 0.166858;, - 0.460769; 0.212398;, - 0.430485; 0.166861;, - 0.490935; 0.166855;, - 0.490993; 0.212395;, - 0.460710; 0.166858;, - 0.964254; 0.868535;, - 0.989581; 0.869130;, - 0.960050; 0.804899;, - 0.960050; 0.804899;, - 0.934724; 0.804304;, - 0.964254; 0.868535;, - 0.934724; 0.804304;, - 0.960050; 0.804899;, - 0.930519; 0.740669;, - 0.938928; 0.867939;, - 0.964254; 0.868535;, - 0.934724; 0.804304;, - 0.904002; 0.804290;, - 0.938928; 0.867939;, - 0.934724; 0.804304;, - 0.934724; 0.804304;, - 0.899797; 0.740655;, - 0.904002; 0.804290;, - 0.899797; 0.740655;, - 0.934724; 0.804304;, - 0.930519; 0.740669;, - 0.869076; 0.740641;, - 0.904002; 0.804290;, - 0.899797; 0.740655;, - 0.962866; 0.868535;, - 0.938202; 0.867940;, - 0.934363; 0.804302;, - 0.934363; 0.804302;, - 0.959026; 0.804898;, - 0.962866; 0.868535;, - 0.959026; 0.804898;, - 0.934363; 0.804302;, - 0.930523; 0.740665;, - 0.987529; 0.869130;, - 0.962866; 0.868535;, - 0.959026; 0.804898;, - 0.934363; 0.804302;, - 0.938202; 0.867940;, - 0.903640; 0.804288;, - 0.903640; 0.804288;, - 0.899801; 0.740651;, - 0.934363; 0.804302;, - 0.899801; 0.740651;, - 0.903640; 0.804288;, - 0.869078; 0.740637;, - 0.930523; 0.740665;, - 0.934363; 0.804302;, - 0.899801; 0.740651;, - 0.690170; 0.139150;, - 0.664366; 0.139150;, - 0.684182; 0.080115;, - 0.684182; 0.080115;, - 0.709985; 0.080115;, - 0.690170; 0.139150;, - 0.709985; 0.080115;, - 0.684182; 0.080115;, - 0.703997; 0.021079;, - 0.715973; 0.139150;, - 0.690170; 0.139150;, - 0.709985; 0.080115;, - 0.728997; 0.078277;, - 0.715973; 0.139150;, - 0.709985; 0.080115;, - 0.709985; 0.080115;, - 0.723009; 0.019242;, - 0.728997; 0.078277;, - 0.723009; 0.019242;, - 0.709985; 0.080115;, - 0.703997; 0.021079;, - 0.742021; 0.017404;, - 0.728997; 0.078277;, - 0.723009; 0.019242;, - 0.764644; 0.139150;, - 0.715973; 0.139150;, - 0.728997; 0.078277;, - 0.728997; 0.078277;, - 0.777668; 0.078277;, - 0.764644; 0.139150;, - 0.777668; 0.078277;, - 0.728997; 0.078277;, - 0.742021; 0.017404;, - 0.813315; 0.139150;, - 0.764644; 0.139150;, - 0.777668; 0.078277;, - 0.813218; 0.076929;, - 0.813315; 0.139150;, - 0.777668; 0.078277;, - 0.777668; 0.078277;, - 0.777571; 0.016056;, - 0.813218; 0.076929;, - 0.777571; 0.016056;, - 0.777668; 0.078277;, - 0.742021; 0.017404;, - 0.813121; 0.014708;, - 0.813218; 0.076929;, - 0.777571; 0.016056;, - 0.861771; 0.139150;, - 0.813315; 0.139150;, - 0.848611; 0.078303;, - 0.848611; 0.078303;, - 0.897066; 0.078303;, - 0.861771; 0.139150;, - 0.897066; 0.078303;, - 0.848611; 0.078303;, - 0.883906; 0.017456;, - 0.910226; 0.139150;, - 0.861771; 0.139150;, - 0.897066; 0.078303;, - 0.848611; 0.078303;, - 0.813315; 0.139150;, - 0.813218; 0.076929;, - 0.813218; 0.076929;, - 0.848514; 0.016082;, - 0.848611; 0.078303;, - 0.848514; 0.016082;, - 0.813218; 0.076929;, - 0.813121; 0.014708;, - 0.883906; 0.017456;, - 0.848611; 0.078303;, - 0.848514; 0.016082;, - 0.935533; 0.139150;, - 0.910226; 0.139150;, - 0.915697; 0.080114;, - 0.915697; 0.080114;, - 0.941004; 0.080114;, - 0.935533; 0.139150;, - 0.941004; 0.080114;, - 0.915697; 0.080114;, - 0.921168; 0.021078;, - 0.960840; 0.139150;, - 0.935533; 0.139150;, - 0.941004; 0.080114;, - 0.915697; 0.080114;, - 0.910226; 0.139150;, - 0.897066; 0.078303;, - 0.897066; 0.078303;, - 0.902537; 0.019267;, - 0.915697; 0.080114;, - 0.902537; 0.019267;, - 0.897066; 0.078303;, - 0.883906; 0.017456;, - 0.921168; 0.021078;, - 0.915697; 0.080114;, - 0.902537; 0.019267;, - 0.979952; 0.143173;, - 0.960840; 0.139150;, - 0.957042; 0.082734;, - 0.957042; 0.082734;, - 0.976153; 0.086757;, - 0.979952; 0.143173;, - 0.976153; 0.086757;, - 0.957042; 0.082734;, - 0.953243; 0.026317;, - 0.999064; 0.147196;, - 0.979952; 0.143173;, - 0.976153; 0.086757;, - 0.957042; 0.082734;, - 0.960840; 0.139150;, - 0.941005; 0.080114;, - 0.941005; 0.080114;, - 0.937206; 0.023698;, - 0.957042; 0.082734;, - 0.937206; 0.023698;, - 0.941005; 0.080114;, - 0.921168; 0.021078;, - 0.953243; 0.026317;, - 0.957042; 0.082734;, - 0.937206; 0.023698;, - 0.645248; 0.143173;, - 0.626131; 0.147196;, - 0.648930; 0.086758;, - 0.648930; 0.086758;, - 0.668048; 0.082735;, - 0.645248; 0.143173;, - 0.668048; 0.082735;, - 0.648930; 0.086758;, - 0.671730; 0.026321;, - 0.664366; 0.139150;, - 0.645248; 0.143173;, - 0.668048; 0.082735;, - 0.684182; 0.080115;, - 0.664366; 0.139150;, - 0.668048; 0.082735;, - 0.668048; 0.082735;, - 0.687864; 0.023700;, - 0.684182; 0.080115;, - 0.687864; 0.023700;, - 0.668048; 0.082735;, - 0.671730; 0.026321;, - 0.703997; 0.021079;, - 0.684182; 0.080115;, - 0.687864; 0.023700;, - 0.223433; 0.928766;, - 0.178206; 0.928920;, - 0.223367; 0.902234;, - 0.223367; 0.902234;, - 0.268595; 0.902080;, - 0.223433; 0.928766;, - 0.268595; 0.902080;, - 0.223367; 0.902234;, - 0.268529; 0.875548;, - 0.268661; 0.928612;, - 0.223433; 0.928766;, - 0.268595; 0.902080;, - 0.223367; 0.902234;, - 0.178206; 0.928920;, - 0.178432; 0.902107;, - 0.178432; 0.902107;, - 0.223594; 0.875421;, - 0.223367; 0.902234;, - 0.223594; 0.875421;, - 0.178432; 0.902107;, - 0.178659; 0.875294;, - 0.268529; 0.875548;, - 0.223367; 0.902234;, - 0.223594; 0.875421;, - 0.154800; 0.928518;, - 0.131395; 0.928115;, - 0.155027; 0.901705;, - 0.155027; 0.901705;, - 0.178432; 0.902107;, - 0.154800; 0.928518;, - 0.178432; 0.902107;, - 0.155027; 0.901705;, - 0.178659; 0.875294;, - 0.178206; 0.928920;, - 0.154800; 0.928518;, - 0.178432; 0.902107;, - 0.155027; 0.901705;, - 0.131395; 0.928115;, - 0.131395; 0.901716;, - 0.131395; 0.901716;, - 0.155027; 0.875306;, - 0.155027; 0.901705;, - 0.155027; 0.875306;, - 0.131395; 0.901716;, - 0.131395; 0.875317;, - 0.178659; 0.875294;, - 0.155027; 0.901705;, - 0.155027; 0.875306;, - 0.313911; 0.928793;, - 0.268661; 0.928612;, - 0.268595; 0.902080;, - 0.268595; 0.902080;, - 0.313845; 0.902261;, - 0.313911; 0.928793;, - 0.313845; 0.902261;, - 0.268595; 0.902080;, - 0.268529; 0.875548;, - 0.359161; 0.928974;, - 0.313911; 0.928793;, - 0.313845; 0.902261;, - 0.358928; 0.902134;, - 0.359161; 0.928974;, - 0.313845; 0.902261;, - 0.313845; 0.902261;, - 0.313612; 0.875421;, - 0.358928; 0.902134;, - 0.313612; 0.875421;, - 0.313845; 0.902261;, - 0.268529; 0.875548;, - 0.358694; 0.875294;, - 0.358928; 0.902134;, - 0.313612; 0.875421;, - 0.382560; 0.928545;, - 0.359161; 0.928974;, - 0.358928; 0.902134;, - 0.358928; 0.902134;, - 0.382327; 0.901705;, - 0.382560; 0.928545;, - 0.382327; 0.901705;, - 0.358928; 0.902134;, - 0.358694; 0.875294;, - 0.405959; 0.928115;, - 0.382560; 0.928545;, - 0.382327; 0.901705;, - 0.405957; 0.901716;, - 0.405959; 0.928115;, - 0.382327; 0.901705;, - 0.382327; 0.901705;, - 0.382324; 0.875306;, - 0.405957; 0.901716;, - 0.382324; 0.875306;, - 0.382327; 0.901705;, - 0.358694; 0.875294;, - 0.405955; 0.875318;, - 0.405957; 0.901716;, - 0.382324; 0.875306;, - 0.223659; 0.977771;, - 0.178659; 0.977925;, - 0.223660; 0.953268;, - 0.223660; 0.953268;, - 0.268659; 0.953114;, - 0.223659; 0.977771;, - 0.268659; 0.953114;, - 0.223660; 0.953268;, - 0.268661; 0.928612;, - 0.268658; 0.977617;, - 0.223659; 0.977771;, - 0.268659; 0.953114;, - 0.223660; 0.953268;, - 0.178659; 0.977925;, - 0.178433; 0.953422;, - 0.178433; 0.953422;, - 0.223433; 0.928766;, - 0.223660; 0.953268;, - 0.223433; 0.928766;, - 0.178433; 0.953422;, - 0.178206; 0.928920;, - 0.268661; 0.928612;, - 0.223660; 0.953268;, - 0.223433; 0.928766;, - 0.155030; 0.977559;, - 0.131401; 0.977194;, - 0.154803; 0.953057;, - 0.154803; 0.953057;, - 0.178433; 0.953422;, - 0.155030; 0.977559;, - 0.178433; 0.953422;, - 0.154803; 0.953057;, - 0.178206; 0.928920;, - 0.178659; 0.977925;, - 0.155030; 0.977559;, - 0.178433; 0.953422;, - 0.154803; 0.953057;, - 0.131401; 0.977194;, - 0.131398; 0.952655;, - 0.131398; 0.952655;, - 0.154800; 0.928518;, - 0.154803; 0.953057;, - 0.154800; 0.928518;, - 0.131398; 0.952655;, - 0.131395; 0.928115;, - 0.178206; 0.928920;, - 0.154803; 0.953057;, - 0.154800; 0.928518;, - 0.313676; 0.977798;, - 0.268658; 0.977617;, - 0.268659; 0.953114;, - 0.268659; 0.953114;, - 0.313677; 0.953296;, - 0.313676; 0.977798;, - 0.313677; 0.953296;, - 0.268659; 0.953114;, - 0.268661; 0.928612;, - 0.358694; 0.977979;, - 0.313676; 0.977798;, - 0.313677; 0.953296;, - 0.358928; 0.953477;, - 0.358694; 0.977979;, - 0.313677; 0.953296;, - 0.313677; 0.953296;, - 0.313911; 0.928793;, - 0.358928; 0.953477;, - 0.313911; 0.928793;, - 0.313677; 0.953296;, - 0.268661; 0.928612;, - 0.359161; 0.928974;, - 0.358928; 0.953477;, - 0.313911; 0.928793;, - 0.382329; 0.977587;, - 0.358694; 0.977979;, - 0.358928; 0.953477;, - 0.358928; 0.953477;, - 0.382562; 0.953084;, - 0.382329; 0.977587;, - 0.382562; 0.953084;, - 0.358928; 0.953477;, - 0.359161; 0.928974;, - 0.405964; 0.977194;, - 0.382329; 0.977587;, - 0.382562; 0.953084;, - 0.405961; 0.952655;, - 0.405964; 0.977194;, - 0.382562; 0.953084;, - 0.382562; 0.953084;, - 0.382560; 0.928545;, - 0.405961; 0.952655;, - 0.382560; 0.928545;, - 0.382562; 0.953084;, - 0.359161; 0.928974;, - 0.405959; 0.928115;, - 0.405961; 0.952655;, - 0.382560; 0.928545;, - 0.078745; 0.811353;, - 0.078745; 0.760949;, - 0.124444; 0.811353;, - 0.124444; 0.811353;, - 0.124444; 0.861758;, - 0.078745; 0.811353;, - 0.124444; 0.861758;, - 0.124444; 0.811353;, - 0.170143; 0.861758;, - 0.078745; 0.861758;, - 0.078745; 0.811353;, - 0.124444; 0.861758;, - 0.124444; 0.811353;, - 0.078745; 0.760949;, - 0.124444; 0.761840;, - 0.124444; 0.761840;, - 0.170143; 0.812245;, - 0.124444; 0.811353;, - 0.170143; 0.812245;, - 0.124444; 0.761840;, - 0.170143; 0.762732;, - 0.170143; 0.861758;, - 0.124444; 0.811353;, - 0.170143; 0.812245;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.096693; 0.081483;, - 0.064673; 0.080974;, - 0.065187; 0.045956;, - 0.065187; 0.045956;, - 0.097206; 0.046466;, - 0.096693; 0.081483;, - 0.097206; 0.046466;, - 0.065187; 0.045956;, - 0.065700; 0.010939;, - 0.128713; 0.081993;, - 0.096693; 0.081483;, - 0.097206; 0.046466;, - 0.128712; 0.043215;, - 0.128713; 0.081993;, - 0.097206; 0.046466;, - 0.097206; 0.046466;, - 0.097206; 0.007689;, - 0.128712; 0.043215;, - 0.097206; 0.007689;, - 0.097206; 0.046466;, - 0.065700; 0.010939;, - 0.128712; 0.004438;, - 0.128712; 0.043215;, - 0.097206; 0.007689;, - 0.927303; 0.293301;, - 0.966064; 0.293301;, - 0.967222; 0.299899;, - 0.967222; 0.299899;, - 0.928461; 0.299899;, - 0.927303; 0.293301;, - 0.928461; 0.299899;, - 0.967222; 0.299899;, - 0.968379; 0.306497;, - 0.888543; 0.293301;, - 0.927303; 0.293301;, - 0.928461; 0.299899;, - 0.888543; 0.299899;, - 0.888543; 0.293301;, - 0.928461; 0.299899;, - 0.928461; 0.299899;, - 0.928461; 0.306497;, - 0.888543; 0.299899;, - 0.928461; 0.306497;, - 0.928461; 0.299899;, - 0.968379; 0.306497;, - 0.888543; 0.306497;, - 0.888543; 0.299899;, - 0.928461; 0.306497;, - 0.970395; 0.323788;, - 0.972411; 0.341078;, - 0.930477; 0.341078;, - 0.930477; 0.341078;, - 0.928461; 0.323788;, - 0.970395; 0.323788;, - 0.928461; 0.323788;, - 0.930477; 0.341078;, - 0.888543; 0.341078;, - 0.968379; 0.306497;, - 0.970395; 0.323788;, - 0.928461; 0.323788;, - 0.928461; 0.306497;, - 0.968379; 0.306497;, - 0.928461; 0.323788;, - 0.928461; 0.323788;, - 0.888543; 0.323788;, - 0.928461; 0.306497;, - 0.888543; 0.323788;, - 0.928461; 0.323788;, - 0.888543; 0.341078;, - 0.888543; 0.306497;, - 0.928461; 0.306497;, - 0.888543; 0.323788;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.170143; 0.812245;, - 0.170143; 0.762732;, - 0.217933; 0.812245;, - 0.217933; 0.812245;, - 0.217933; 0.861758;, - 0.170143; 0.812245;, - 0.217933; 0.861758;, - 0.217933; 0.812245;, - 0.265723; 0.861758;, - 0.170143; 0.861758;, - 0.170143; 0.812245;, - 0.217933; 0.861758;, - 0.217933; 0.812245;, - 0.170143; 0.762732;, - 0.217933; 0.761789;, - 0.217933; 0.761789;, - 0.265723; 0.811302;, - 0.217933; 0.812245;, - 0.265723; 0.811302;, - 0.217933; 0.761789;, - 0.265723; 0.760847;, - 0.265723; 0.861758;, - 0.217933; 0.812245;, - 0.265723; 0.811302;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.164411; 0.082313;, - 0.128713; 0.081993;, - 0.128712; 0.043215;, - 0.128712; 0.043215;, - 0.164411; 0.043536;, - 0.164411; 0.082313;, - 0.164411; 0.043536;, - 0.128712; 0.043215;, - 0.128712; 0.004438;, - 0.200110; 0.082633;, - 0.164411; 0.082313;, - 0.164411; 0.043536;, - 0.200110; 0.042603;, - 0.200110; 0.082633;, - 0.164411; 0.043536;, - 0.164411; 0.043536;, - 0.164411; 0.003506;, - 0.200110; 0.042603;, - 0.164411; 0.003506;, - 0.164411; 0.043536;, - 0.128712; 0.004438;, - 0.200110; 0.002573;, - 0.200110; 0.042603;, - 0.164411; 0.003506;, - 0.844454; 0.293301;, - 0.888543; 0.293301;, - 0.888543; 0.299899;, - 0.888543; 0.299899;, - 0.844453; 0.299899;, - 0.844454; 0.293301;, - 0.844453; 0.299899;, - 0.888543; 0.299899;, - 0.888543; 0.306497;, - 0.800364; 0.293301;, - 0.844454; 0.293301;, - 0.844453; 0.299899;, - 0.800364; 0.299899;, - 0.800364; 0.293301;, - 0.844453; 0.299899;, - 0.844453; 0.299899;, - 0.844453; 0.306497;, - 0.800364; 0.299899;, - 0.844453; 0.306497;, - 0.844453; 0.299899;, - 0.888543; 0.306497;, - 0.800364; 0.306497;, - 0.800364; 0.299899;, - 0.844453; 0.306497;, - 0.888543; 0.323788;, - 0.888543; 0.341078;, - 0.844453; 0.341078;, - 0.844453; 0.341078;, - 0.844453; 0.323788;, - 0.888543; 0.323788;, - 0.844453; 0.323788;, - 0.844453; 0.341078;, - 0.800364; 0.341078;, - 0.888543; 0.306497;, - 0.888543; 0.323788;, - 0.844453; 0.323788;, - 0.844453; 0.306497;, - 0.888543; 0.306497;, - 0.844453; 0.323788;, - 0.844453; 0.323788;, - 0.800364; 0.323788;, - 0.844453; 0.306497;, - 0.800364; 0.323788;, - 0.844453; 0.323788;, - 0.800364; 0.341078;, - 0.800364; 0.306497;, - 0.844453; 0.306497;, - 0.800364; 0.323788;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.564054;, - 0.493353; 0.553176;, - 0.504232; 0.564054;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.564054;, - 0.493353; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.564054;, - 0.493353; 0.553176;, - 0.504232; 0.564054;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.564054;, - 0.493353; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.930477; 0.341078;, - 0.972411; 0.341078;, - 0.972441; 0.351300;, - 0.972441; 0.351300;, - 0.930506; 0.351300;, - 0.930477; 0.341078;, - 0.930506; 0.351300;, - 0.972441; 0.351300;, - 0.972470; 0.361521;, - 0.888543; 0.341078;, - 0.930477; 0.341078;, - 0.930506; 0.351300;, - 0.888542; 0.351300;, - 0.888543; 0.341078;, - 0.930506; 0.351300;, - 0.930506; 0.351300;, - 0.930506; 0.361521;, - 0.888542; 0.351300;, - 0.930506; 0.361521;, - 0.930506; 0.351300;, - 0.972470; 0.361521;, - 0.888543; 0.361521;, - 0.888542; 0.351300;, - 0.930506; 0.361521;, - 0.844453; 0.341078;, - 0.888543; 0.341078;, - 0.888543; 0.351300;, - 0.888543; 0.351300;, - 0.844453; 0.351300;, - 0.844453; 0.341078;, - 0.844453; 0.351300;, - 0.888543; 0.351300;, - 0.888543; 0.361521;, - 0.800364; 0.341078;, - 0.844453; 0.341078;, - 0.844453; 0.351300;, - 0.800364; 0.351300;, - 0.800364; 0.341078;, - 0.844453; 0.351300;, - 0.844453; 0.351300;, - 0.844453; 0.361521;, - 0.800364; 0.351300;, - 0.844453; 0.361521;, - 0.844453; 0.351300;, - 0.888543; 0.361521;, - 0.800364; 0.361521;, - 0.800364; 0.351300;, - 0.844453; 0.361521;, - 0.930506; 0.361521;, - 0.972470; 0.361521;, - 0.972438; 0.372302;, - 0.972438; 0.372302;, - 0.930474; 0.372302;, - 0.930506; 0.361521;, - 0.930474; 0.372302;, - 0.972438; 0.372302;, - 0.972405; 0.383084;, - 0.888543; 0.361521;, - 0.930506; 0.361521;, - 0.930474; 0.372302;, - 0.888543; 0.372303;, - 0.888543; 0.361521;, - 0.930474; 0.372303;, - 0.930474; 0.372303;, - 0.930474; 0.383084;, - 0.888543; 0.372303;, - 0.930474; 0.383084;, - 0.930474; 0.372303;, - 0.972405; 0.383084;, - 0.888543; 0.383084;, - 0.888543; 0.372303;, - 0.930474; 0.383084;, - 0.844453; 0.361521;, - 0.888543; 0.361521;, - 0.888543; 0.372302;, - 0.888543; 0.372302;, - 0.844453; 0.372303;, - 0.844453; 0.361521;, - 0.844453; 0.372303;, - 0.888543; 0.372302;, - 0.888543; 0.383084;, - 0.800364; 0.361521;, - 0.844453; 0.361521;, - 0.844453; 0.372303;, - 0.800364; 0.372302;, - 0.800364; 0.361521;, - 0.844453; 0.372303;, - 0.844453; 0.372303;, - 0.844453; 0.383084;, - 0.800364; 0.372302;, - 0.844453; 0.383084;, - 0.844453; 0.372303;, - 0.888543; 0.383084;, - 0.800364; 0.383084;, - 0.800364; 0.372302;, - 0.844453; 0.383084;, - 0.930331; 0.415381;, - 0.972120; 0.415381;, - 0.970578; 0.437154;, - 0.970578; 0.437154;, - 0.928789; 0.437154;, - 0.930331; 0.415381;, - 0.928789; 0.437154;, - 0.970578; 0.437154;, - 0.969036; 0.458927;, - 0.888543; 0.415381;, - 0.930331; 0.415381;, - 0.928789; 0.437154;, - 0.888543; 0.437154;, - 0.888543; 0.415381;, - 0.928789; 0.437154;, - 0.928789; 0.437154;, - 0.928789; 0.458927;, - 0.888543; 0.437154;, - 0.928789; 0.458927;, - 0.928789; 0.437154;, - 0.969036; 0.458927;, - 0.888543; 0.458927;, - 0.888543; 0.437154;, - 0.928789; 0.458927;, - 0.930474; 0.383084;, - 0.972405; 0.383084;, - 0.972262; 0.399232;, - 0.972262; 0.399232;, - 0.930331; 0.399232;, - 0.930474; 0.383084;, - 0.930331; 0.399232;, - 0.972262; 0.399232;, - 0.972120; 0.415381;, - 0.888543; 0.383084;, - 0.930474; 0.383084;, - 0.930331; 0.399232;, - 0.888543; 0.399232;, - 0.888543; 0.383084;, - 0.930331; 0.399232;, - 0.930331; 0.399232;, - 0.930331; 0.415381;, - 0.888543; 0.399232;, - 0.930331; 0.415381;, - 0.930331; 0.399232;, - 0.972120; 0.415381;, - 0.888543; 0.415381;, - 0.888543; 0.399232;, - 0.930331; 0.415381;, - 0.844453; 0.415381;, - 0.888543; 0.415381;, - 0.888543; 0.437154;, - 0.888543; 0.437154;, - 0.844453; 0.437154;, - 0.844453; 0.415381;, - 0.844453; 0.437154;, - 0.888543; 0.437154;, - 0.888543; 0.458927;, - 0.800364; 0.415381;, - 0.844453; 0.415381;, - 0.844453; 0.437154;, - 0.800364; 0.437154;, - 0.800364; 0.415381;, - 0.844453; 0.437154;, - 0.844453; 0.437154;, - 0.844453; 0.458927;, - 0.800364; 0.437154;, - 0.844453; 0.458927;, - 0.844453; 0.437154;, - 0.888543; 0.458927;, - 0.800364; 0.458927;, - 0.800364; 0.437154;, - 0.844453; 0.458927;, - 0.888542; 0.399232;, - 0.888543; 0.415381;, - 0.844453; 0.399232;, - 0.844453; 0.399232;, - 0.844453; 0.383084;, - 0.888542; 0.399232;, - 0.844453; 0.383084;, - 0.844453; 0.399232;, - 0.800364; 0.383084;, - 0.888543; 0.383084;, - 0.888542; 0.399232;, - 0.844453; 0.383084;, - 0.844453; 0.399232;, - 0.888543; 0.415381;, - 0.844453; 0.415381;, - 0.844453; 0.415381;, - 0.800364; 0.399232;, - 0.844453; 0.399232;, - 0.800364; 0.399232;, - 0.844453; 0.415381;, - 0.800364; 0.415381;, - 0.800364; 0.383084;, - 0.844453; 0.399232;, - 0.800364; 0.399232;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.970578; 0.437154;, - 0.972120; 0.415381;, - 0.982285; 0.437516;, - 0.982285; 0.437516;, - 0.980743; 0.459289;, - 0.970578; 0.437154;, - 0.980743; 0.459289;, - 0.982285; 0.437516;, - 0.992451; 0.459651;, - 0.969036; 0.458927;, - 0.970578; 0.437154;, - 0.980743; 0.459289;, - 0.982285; 0.437516;, - 0.972120; 0.415381;, - 0.985453; 0.417391;, - 0.985453; 0.417391;, - 0.995618; 0.439526;, - 0.982285; 0.437516;, - 0.995618; 0.439526;, - 0.985453; 0.417391;, - 0.998786; 0.419401;, - 0.992451; 0.459651;, - 0.982285; 0.437516;, - 0.995618; 0.439526;, - 0.972263; 0.399232;, - 0.972405; 0.383084;, - 0.986200; 0.386083;, - 0.986200; 0.386083;, - 0.986058; 0.402232;, - 0.972263; 0.399232;, - 0.986058; 0.402232;, - 0.986200; 0.386083;, - 0.999995; 0.389083;, - 0.972120; 0.415381;, - 0.972263; 0.399232;, - 0.986058; 0.402232;, - 0.985453; 0.417391;, - 0.972120; 0.415381;, - 0.986057; 0.402232;, - 0.986057; 0.402232;, - 0.999390; 0.404242;, - 0.985453; 0.417391;, - 0.999390; 0.404242;, - 0.986057; 0.402232;, - 0.999995; 0.389083;, - 0.998786; 0.419401;, - 0.985453; 0.417391;, - 0.999390; 0.404242;, - 0.972437; 0.372303;, - 0.972470; 0.361521;, - 0.986380; 0.365182;, - 0.986380; 0.365182;, - 0.986347; 0.375963;, - 0.972437; 0.372303;, - 0.986347; 0.375963;, - 0.986380; 0.365182;, - 1.000290; 0.368843;, - 0.972405; 0.383084;, - 0.972437; 0.372303;, - 0.986347; 0.375963;, - 0.986200; 0.386083;, - 0.972405; 0.383084;, - 0.986347; 0.375963;, - 0.986347; 0.375963;, - 1.000142; 0.378963;, - 0.986200; 0.386083;, - 1.000142; 0.378963;, - 0.986347; 0.375963;, - 1.000290; 0.368843;, - 0.999995; 0.389083;, - 0.986200; 0.386083;, - 1.000142; 0.378963;, - 0.972441; 0.351300;, - 0.972411; 0.341078;, - 0.986291; 0.345365;, - 0.986291; 0.345365;, - 0.986320; 0.355587;, - 0.972441; 0.351300;, - 0.986320; 0.355587;, - 0.986291; 0.345365;, - 1.000170; 0.349652;, - 0.972470; 0.361521;, - 0.972441; 0.351300;, - 0.986320; 0.355587;, - 0.986380; 0.365182;, - 0.972470; 0.361521;, - 0.986320; 0.355587;, - 0.986320; 0.355587;, - 1.000230; 0.359248;, - 0.986380; 0.365182;, - 1.000230; 0.359248;, - 0.986320; 0.355587;, - 1.000170; 0.349652;, - 1.000290; 0.368843;, - 0.986380; 0.365182;, - 1.000230; 0.359248;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.668876; 0.501354;, - 0.806996; 0.500795;, - 0.809035; 0.506490;, - 0.809035; 0.506490;, - 0.670916; 0.507048;, - 0.668876; 0.501354;, - 0.670916; 0.507048;, - 0.809035; 0.506490;, - 0.811075; 0.512185;, - 0.530757; 0.501912;, - 0.668876; 0.501354;, - 0.670916; 0.507048;, - 0.531168; 0.507606;, - 0.530757; 0.501912;, - 0.670916; 0.507048;, - 0.670916; 0.507048;, - 0.671327; 0.512743;, - 0.531168; 0.507606;, - 0.671327; 0.512743;, - 0.670916; 0.507048;, - 0.811075; 0.512185;, - 0.531579; 0.513301;, - 0.531168; 0.507606;, - 0.671327; 0.512743;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.904567; 0.491106;, - 1.002138; 0.494197;, - 1.002107; 0.499763;, - 1.002107; 0.499763;, - 0.904536; 0.496672;, - 0.904567; 0.491106;, - 0.904536; 0.496672;, - 1.002107; 0.499763;, - 1.002076; 0.505330;, - 0.806996; 0.488015;, - 0.904567; 0.491106;, - 0.904536; 0.496672;, - 0.806905; 0.494419;, - 0.806996; 0.488015;, - 0.904536; 0.496672;, - 0.904536; 0.496672;, - 0.904445; 0.503077;, - 0.806905; 0.494419;, - 0.904445; 0.503077;, - 0.904536; 0.496672;, - 1.002076; 0.505330;, - 0.806815; 0.500824;, - 0.806905; 0.494419;, - 0.904445; 0.503077;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.970395; 0.323788;, - 0.968379; 0.306497;, - 0.981881; 0.311503;, - 0.981881; 0.311503;, - 0.983897; 0.328794;, - 0.970395; 0.323788;, - 0.983897; 0.328794;, - 0.981881; 0.311503;, - 0.995383; 0.316510;, - 0.972411; 0.341078;, - 0.970395; 0.323788;, - 0.983897; 0.328794;, - 0.986291; 0.345365;, - 0.972411; 0.341078;, - 0.983897; 0.328794;, - 0.983897; 0.328794;, - 0.997777; 0.333081;, - 0.986291; 0.345365;, - 0.997777; 0.333081;, - 0.983897; 0.328794;, - 0.995383; 0.316510;, - 1.000170; 0.349652;, - 0.986291; 0.345365;, - 0.997777; 0.333081;, - 0.967222; 0.299899;, - 0.966064; 0.293301;, - 0.978292; 0.298712;, - 0.978292; 0.298712;, - 0.979450; 0.305310;, - 0.967222; 0.299899;, - 0.979450; 0.305310;, - 0.978292; 0.298712;, - 0.990520; 0.304122;, - 0.968379; 0.306497;, - 0.967222; 0.299899;, - 0.979450; 0.305310;, - 0.981881; 0.311503;, - 0.968379; 0.306497;, - 0.979450; 0.305310;, - 0.979450; 0.305310;, - 0.992952; 0.310316;, - 0.981881; 0.311503;, - 0.992952; 0.310316;, - 0.979450; 0.305310;, - 0.990520; 0.304122;, - 0.995383; 0.316510;, - 0.981881; 0.311503;, - 0.992952; 0.310316;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.079536; 0.880409;, - 0.091334; 0.875294;, - 0.091549; 0.901672;, - 0.091549; 0.901672;, - 0.079751; 0.906788;, - 0.079536; 0.880409;, - 0.079751; 0.906788;, - 0.091549; 0.901672;, - 0.091763; 0.928051;, - 0.067738; 0.885525;, - 0.079536; 0.880409;, - 0.079751; 0.906788;, - 0.069028; 0.910286;, - 0.067738; 0.885525;, - 0.079751; 0.906788;, - 0.079751; 0.906788;, - 0.081041; 0.931549;, - 0.069028; 0.910286;, - 0.081041; 0.931549;, - 0.079751; 0.906788;, - 0.091763; 0.928051;, - 0.070319; 0.935048;, - 0.069028; 0.910286;, - 0.081041; 0.931549;, - 0.081041; 0.931549;, - 0.091763; 0.928051;, - 0.084787; 0.954810;, - 0.084787; 0.954810;, - 0.074065; 0.958309;, - 0.081041; 0.931549;, - 0.074065; 0.958309;, - 0.084787; 0.954810;, - 0.077811; 0.981569;, - 0.070319; 0.935048;, - 0.081041; 0.931549;, - 0.074065; 0.958309;, - 0.084787; 0.954810;, - 0.091763; 0.928051;, - 0.091975; 0.952830;, - 0.091975; 0.952830;, - 0.084999; 0.979590;, - 0.084787; 0.954810;, - 0.084999; 0.979590;, - 0.091975; 0.952830;, - 0.092187; 0.977610;, - 0.077811; 0.981569;, - 0.084787; 0.954810;, - 0.084999; 0.979590;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.543509; 0.593506;, - 0.543512; 0.582172;, - 0.677226; 0.589410;, - 0.677226; 0.589410;, - 0.677223; 0.600744;, - 0.543509; 0.593506;, - 0.677223; 0.600744;, - 0.677226; 0.589410;, - 0.810939; 0.596648;, - 0.543507; 0.604841;, - 0.543509; 0.593506;, - 0.677223; 0.600744;, - 0.677291; 0.611349;, - 0.543507; 0.604841;, - 0.677223; 0.600744;, - 0.677223; 0.600744;, - 0.811007; 0.607253;, - 0.677291; 0.611349;, - 0.811007; 0.607253;, - 0.677223; 0.600744;, - 0.810939; 0.596648;, - 0.811075; 0.617858;, - 0.677291; 0.611349;, - 0.811007; 0.607253;, - 0.677226; 0.589410;, - 0.543512; 0.582172;, - 0.677293; 0.577955;, - 0.677293; 0.577955;, - 0.811007; 0.585193;, - 0.677226; 0.589410;, - 0.811007; 0.585193;, - 0.677293; 0.577955;, - 0.811075; 0.573738;, - 0.810939; 0.596648;, - 0.677226; 0.589410;, - 0.811007; 0.585193;, - 0.677293; 0.577955;, - 0.543512; 0.582172;, - 0.543515; 0.568617;, - 0.543515; 0.568617;, - 0.677297; 0.564400;, - 0.677293; 0.577955;, - 0.677297; 0.564400;, - 0.543515; 0.568617;, - 0.543518; 0.555062;, - 0.811075; 0.573738;, - 0.677293; 0.577955;, - 0.677297; 0.564400;, - 0.906214; 0.563668;, - 1.001354; 0.566380;, - 1.001119; 0.572871;, - 1.001119; 0.572871;, - 0.905980; 0.570160;, - 0.906214; 0.563668;, - 0.905980; 0.570160;, - 1.001119; 0.572871;, - 1.000884; 0.579363;, - 0.811075; 0.560957;, - 0.906214; 0.563668;, - 0.905980; 0.570160;, - 0.811007; 0.572412;, - 0.811075; 0.560957;, - 0.905980; 0.570160;, - 0.905980; 0.570160;, - 0.905912; 0.581615;, - 0.811007; 0.572412;, - 0.905912; 0.581615;, - 0.905980; 0.570160;, - 1.000884; 0.579363;, - 0.810939; 0.583867;, - 0.811007; 0.572412;, - 0.905912; 0.581615;, - 0.905912; 0.581615;, - 1.000884; 0.579363;, - 0.989549; 0.586122;, - 0.989549; 0.586122;, - 0.894577; 0.588374;, - 0.905912; 0.581615;, - 0.894577; 0.588374;, - 0.989549; 0.586122;, - 0.978214; 0.592881;, - 0.810939; 0.583867;, - 0.905912; 0.581615;, - 0.894577; 0.588374;, - 0.811007; 0.594472;, - 0.810939; 0.583867;, - 0.894577; 0.588374;, - 0.894577; 0.588374;, - 0.894645; 0.598979;, - 0.811007; 0.594472;, - 0.894645; 0.598979;, - 0.894577; 0.588374;, - 0.978214; 0.592881;, - 0.811075; 0.605077;, - 0.811007; 0.594472;, - 0.894645; 0.598979;, - 0.894645; 0.598979;, - 0.978214; 0.592881;, - 0.970765; 0.615241;, - 0.970765; 0.615241;, - 0.887195; 0.621339;, - 0.894645; 0.598979;, - 0.887195; 0.621339;, - 0.970765; 0.615241;, - 0.963315; 0.637601;, - 0.811075; 0.605077;, - 0.894645; 0.598979;, - 0.887195; 0.621339;, - 0.811075; 0.624425;, - 0.811075; 0.605077;, - 0.887195; 0.621339;, - 0.887195; 0.621339;, - 0.887195; 0.640687;, - 0.811075; 0.624425;, - 0.887195; 0.640687;, - 0.887195; 0.621339;, - 0.963315; 0.637601;, - 0.811075; 0.643772;, - 0.811075; 0.624425;, - 0.887195; 0.640687;, - 0.811644; 0.672997;, - 0.811075; 0.643772;, - 0.886518; 0.672985;, - 0.886518; 0.672985;, - 0.887087; 0.702209;, - 0.811644; 0.672997;, - 0.887087; 0.702209;, - 0.886518; 0.672985;, - 0.961960; 0.702197;, - 0.812214; 0.702221;, - 0.811644; 0.672997;, - 0.887087; 0.702209;, - 0.886518; 0.672985;, - 0.811075; 0.643772;, - 0.887195; 0.640687;, - 0.887195; 0.640687;, - 0.962638; 0.669899;, - 0.886518; 0.672985;, - 0.962638; 0.669899;, - 0.887195; 0.640687;, - 0.963315; 0.637601;, - 0.961960; 0.702197;, - 0.886518; 0.672985;, - 0.962638; 0.669899;, - 0.543551; 0.682171;, - 0.543496; 0.649446;, - 0.677285; 0.652999;, - 0.677285; 0.652999;, - 0.677340; 0.685725;, - 0.543551; 0.682171;, - 0.677340; 0.685725;, - 0.677285; 0.652999;, - 0.811075; 0.656553;, - 0.543605; 0.714896;, - 0.543551; 0.682171;, - 0.677340; 0.685725;, - 0.677910; 0.714949;, - 0.543605; 0.714896;, - 0.677340; 0.685725;, - 0.677340; 0.685725;, - 0.811644; 0.685777;, - 0.677910; 0.714949;, - 0.811644; 0.685777;, - 0.677340; 0.685725;, - 0.811075; 0.656553;, - 0.812214; 0.715002;, - 0.677910; 0.714949;, - 0.811644; 0.685777;, - 0.875727; 0.714990;, - 0.939239; 0.714978;, - 0.935853; 0.717463;, - 0.935853; 0.717463;, - 0.872340; 0.717474;, - 0.875727; 0.714990;, - 0.872340; 0.717474;, - 0.935853; 0.717463;, - 0.932467; 0.719947;, - 0.812214; 0.715002;, - 0.875727; 0.714990;, - 0.872340; 0.717474;, - 0.811891; 0.717371;, - 0.812214; 0.715002;, - 0.872340; 0.717474;, - 0.872340; 0.717474;, - 0.872017; 0.719844;, - 0.811891; 0.717371;, - 0.872017; 0.719844;, - 0.872340; 0.717474;, - 0.932467; 0.719947;, - 0.811568; 0.719740;, - 0.811891; 0.717371;, - 0.872017; 0.719844;, - 0.677910; 0.714949;, - 0.812214; 0.715002;, - 0.811891; 0.717371;, - 0.811891; 0.717371;, - 0.677586; 0.717318;, - 0.677910; 0.714949;, - 0.677586; 0.717318;, - 0.811891; 0.717371;, - 0.811568; 0.719740;, - 0.543605; 0.714896;, - 0.677910; 0.714949;, - 0.677586; 0.717318;, - 0.543603; 0.718167;, - 0.543605; 0.714896;, - 0.677586; 0.717318;, - 0.677586; 0.717318;, - 0.677584; 0.720589;, - 0.543603; 0.718167;, - 0.677584; 0.720589;, - 0.677586; 0.717318;, - 0.811568; 0.719740;, - 0.543600; 0.721439;, - 0.543603; 0.718167;, - 0.677584; 0.720589;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.415166; 0.073257;, - 0.415866; 0.064306;, - 0.428621; 0.064718;, - 0.428621; 0.064718;, - 0.427921; 0.073668;, - 0.415166; 0.073257;, - 0.427921; 0.073668;, - 0.428621; 0.064718;, - 0.441376; 0.065130;, - 0.414466; 0.082207;, - 0.415166; 0.073257;, - 0.427921; 0.073668;, - 0.426882; 0.084581;, - 0.414466; 0.082207;, - 0.427921; 0.073668;, - 0.427921; 0.073668;, - 0.440337; 0.076042;, - 0.426882; 0.084581;, - 0.440337; 0.076042;, - 0.427921; 0.073668;, - 0.441376; 0.065130;, - 0.439297; 0.086955;, - 0.426882; 0.084581;, - 0.440337; 0.076042;, - 0.428621; 0.064718;, - 0.415866; 0.064306;, - 0.416333; 0.058331;, - 0.416333; 0.058331;, - 0.429088; 0.058743;, - 0.428621; 0.064718;, - 0.429088; 0.058743;, - 0.416333; 0.058331;, - 0.416800; 0.052356;, - 0.441376; 0.065130;, - 0.428621; 0.064718;, - 0.429088; 0.058743;, - 0.441975; 0.058839;, - 0.441376; 0.065130;, - 0.429088; 0.058743;, - 0.429088; 0.058743;, - 0.429687; 0.052452;, - 0.441975; 0.058839;, - 0.429687; 0.052452;, - 0.429088; 0.058743;, - 0.416800; 0.052356;, - 0.442574; 0.052548;, - 0.441975; 0.058839;, - 0.429687; 0.052452;, - 0.429687; 0.052452;, - 0.416800; 0.052356;, - 0.417244; 0.046691;, - 0.417244; 0.046691;, - 0.430130; 0.046787;, - 0.429687; 0.052452;, - 0.430130; 0.046787;, - 0.417244; 0.046691;, - 0.417687; 0.041025;, - 0.442574; 0.052548;, - 0.429687; 0.052452;, - 0.430130; 0.046787;, - 0.443063; 0.046787;, - 0.442574; 0.052548;, - 0.430130; 0.046787;, - 0.430130; 0.046787;, - 0.430619; 0.041025;, - 0.443063; 0.046787;, - 0.430619; 0.041025;, - 0.430130; 0.046787;, - 0.417687; 0.041025;, - 0.443552; 0.041025;, - 0.443063; 0.046787;, - 0.430619; 0.041025;, - 0.493254; 0.045536;, - 0.492789; 0.052884;, - 0.468170; 0.046955;, - 0.468170; 0.046955;, - 0.468636; 0.039607;, - 0.493254; 0.045536;, - 0.468636; 0.039607;, - 0.468170; 0.046955;, - 0.443552; 0.041025;, - 0.493719; 0.038188;, - 0.493254; 0.045536;, - 0.468636; 0.039607;, - 0.468170; 0.046955;, - 0.492789; 0.052884;, - 0.467681; 0.052716;, - 0.467681; 0.052716;, - 0.443063; 0.046787;, - 0.468170; 0.046955;, - 0.443063; 0.046787;, - 0.467681; 0.052716;, - 0.442574; 0.052548;, - 0.443552; 0.041025;, - 0.468170; 0.046955;, - 0.443063; 0.046787;, - 0.467681; 0.052716;, - 0.492789; 0.052884;, - 0.491509; 0.059966;, - 0.491509; 0.059966;, - 0.466401; 0.059798;, - 0.467681; 0.052716;, - 0.466401; 0.059798;, - 0.491509; 0.059966;, - 0.490229; 0.067047;, - 0.442574; 0.052548;, - 0.467681; 0.052716;, - 0.466401; 0.059798;, - 0.441975; 0.058839;, - 0.442574; 0.052548;, - 0.466401; 0.059798;, - 0.466401; 0.059798;, - 0.465802; 0.066088;, - 0.441975; 0.058839;, - 0.465802; 0.066088;, - 0.466401; 0.059798;, - 0.490229; 0.067047;, - 0.441376; 0.065130;, - 0.441975; 0.058839;, - 0.465802; 0.066088;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.465802; 0.066088;, - 0.490229; 0.067047;, - 0.485501; 0.079332;, - 0.485501; 0.079332;, - 0.461075; 0.078373;, - 0.465802; 0.066088;, - 0.461075; 0.078373;, - 0.485501; 0.079332;, - 0.480773; 0.091617;, - 0.441376; 0.065130;, - 0.465802; 0.066088;, - 0.461075; 0.078373;, - 0.440337; 0.076043;, - 0.441376; 0.065130;, - 0.461075; 0.078373;, - 0.461075; 0.078373;, - 0.460035; 0.089286;, - 0.440337; 0.076043;, - 0.460035; 0.089286;, - 0.461075; 0.078373;, - 0.480773; 0.091617;, - 0.439297; 0.086955;, - 0.440337; 0.076043;, - 0.460035; 0.089286;, - 0.441611; 0.029518;, - 0.439671; 0.018012;, - 0.466695; 0.028100;, - 0.466695; 0.028100;, - 0.468636; 0.039607;, - 0.441611; 0.029518;, - 0.468636; 0.039607;, - 0.466695; 0.028100;, - 0.493719; 0.038188;, - 0.443552; 0.041025;, - 0.441611; 0.029518;, - 0.468636; 0.039607;, - 0.466695; 0.028100;, - 0.439671; 0.018012;, - 0.470458; 0.016379;, - 0.470458; 0.016379;, - 0.497482; 0.026468;, - 0.466695; 0.028100;, - 0.497482; 0.026468;, - 0.470458; 0.016379;, - 0.501245; 0.014747;, - 0.493719; 0.038188;, - 0.466695; 0.028100;, - 0.497482; 0.026468;, - 0.415807; 0.031241;, - 0.413927; 0.021457;, - 0.426799; 0.019734;, - 0.426799; 0.019734;, - 0.428679; 0.029518;, - 0.415807; 0.031241;, - 0.428679; 0.029518;, - 0.426799; 0.019734;, - 0.439671; 0.018012;, - 0.417687; 0.041025;, - 0.415807; 0.031241;, - 0.428679; 0.029518;, - 0.430619; 0.041025;, - 0.417687; 0.041025;, - 0.428679; 0.029518;, - 0.428679; 0.029518;, - 0.441611; 0.029518;, - 0.430619; 0.041025;, - 0.441611; 0.029518;, - 0.428679; 0.029518;, - 0.439671; 0.018012;, - 0.443552; 0.041025;, - 0.430619; 0.041025;, - 0.441611; 0.029518;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.489078; 0.656282;, - 0.493550; 0.660754;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.489078; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.811075; 0.637206;, - 0.811075; 0.656553;, - 0.677285; 0.652999;, - 0.677285; 0.652999;, - 0.677285; 0.633652;, - 0.811075; 0.637206;, - 0.677285; 0.633652;, - 0.677285; 0.652999;, - 0.543496; 0.649446;, - 0.811075; 0.617858;, - 0.811075; 0.637206;, - 0.677285; 0.633652;, - 0.677291; 0.611349;, - 0.811075; 0.617858;, - 0.677285; 0.633652;, - 0.677285; 0.633652;, - 0.543501; 0.627143;, - 0.677291; 0.611349;, - 0.543501; 0.627143;, - 0.677285; 0.633652;, - 0.543496; 0.649446;, - 0.543507; 0.604841;, - 0.677291; 0.611349;, - 0.543501; 0.627143;, - 0.808945; 0.530890;, - 0.806815; 0.500824;, - 0.904084; 0.533602;, - 0.904084; 0.533602;, - 0.906214; 0.563668;, - 0.808945; 0.530890;, - 0.906214; 0.563668;, - 0.904084; 0.533602;, - 1.001354; 0.566380;, - 0.811075; 0.560957;, - 0.808945; 0.530890;, - 0.906214; 0.563668;, - 0.904084; 0.533602;, - 0.806815; 0.500824;, - 0.904445; 0.503077;, - 0.904445; 0.503077;, - 1.001715; 0.535855;, - 0.904084; 0.533602;, - 1.001715; 0.535855;, - 0.904445; 0.503077;, - 1.002076; 0.505330;, - 1.001354; 0.566380;, - 0.904084; 0.533602;, - 1.001715; 0.535855;, - 0.508330; 0.526005;, - 0.521327; 0.536745;, - 0.523280; 0.534377;, - 0.523280; 0.534377;, - 0.510283; 0.523636;, - 0.508330; 0.526005;, - 0.510283; 0.523636;, - 0.523280; 0.534377;, - 0.525233; 0.532008;, - 0.495333; 0.515265;, - 0.508330; 0.526005;, - 0.510283; 0.523636;, - 0.497004; 0.512330;, - 0.495333; 0.515265;, - 0.510283; 0.523636;, - 0.510283; 0.523636;, - 0.511954; 0.520701;, - 0.497004; 0.512330;, - 0.511954; 0.520701;, - 0.510283; 0.523636;, - 0.525233; 0.532008;, - 0.498675; 0.509395;, - 0.497004; 0.512330;, - 0.511954; 0.520701;, - 0.489425; 0.501464;, - 0.480175; 0.493533;, - 0.478124; 0.496441;, - 0.478124; 0.496441;, - 0.487374; 0.504372;, - 0.489425; 0.501464;, - 0.487374; 0.504372;, - 0.478124; 0.496441;, - 0.476073; 0.499349;, - 0.498675; 0.509395;, - 0.489425; 0.501464;, - 0.487374; 0.504372;, - 0.497004; 0.512330;, - 0.498675; 0.509395;, - 0.487374; 0.504372;, - 0.487374; 0.504372;, - 0.485703; 0.507307;, - 0.497004; 0.512330;, - 0.485703; 0.507307;, - 0.487374; 0.504372;, - 0.476073; 0.499349;, - 0.495333; 0.515265;, - 0.497004; 0.512330;, - 0.485703; 0.507307;, - 0.507040; 0.496603;, - 0.498675; 0.509395;, - 0.511954; 0.520701;, - 0.511954; 0.520701;, - 0.520319; 0.507910;, - 0.507040; 0.496603;, - 0.520319; 0.507910;, - 0.511954; 0.520701;, - 0.525233; 0.532008;, - 0.515405; 0.483812;, - 0.507040; 0.496603;, - 0.520319; 0.507910;, - 0.533989; 0.499741;, - 0.515405; 0.483812;, - 0.520319; 0.507910;, - 0.520319; 0.507910;, - 0.538903; 0.523839;, - 0.533989; 0.499741;, - 0.538903; 0.523839;, - 0.520319; 0.507910;, - 0.525233; 0.532008;, - 0.552574; 0.515671;, - 0.533989; 0.499741;, - 0.538903; 0.523839;, - 0.503958; 0.474000;, - 0.515405; 0.483812;, - 0.521512; 0.476112;, - 0.521512; 0.476112;, - 0.510065; 0.466300;, - 0.503958; 0.474000;, - 0.510065; 0.466300;, - 0.521512; 0.476112;, - 0.527620; 0.468411;, - 0.492511; 0.464189;, - 0.503958; 0.474000;, - 0.510065; 0.466300;, - 0.498237; 0.456584;, - 0.492511; 0.464189;, - 0.510065; 0.466300;, - 0.510065; 0.466300;, - 0.515792; 0.458695;, - 0.498237; 0.456584;, - 0.515792; 0.458695;, - 0.510065; 0.466300;, - 0.527620; 0.468411;, - 0.503964; 0.448978;, - 0.498237; 0.456584;, - 0.515792; 0.458695;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.484606; 0.656282;, - 0.484606; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.651810;, - 0.489078; 0.656282;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.651810;, - 0.493550; 0.651810;, - 0.484606; 0.660754;, - 0.484606; 0.656282;, - 0.489078; 0.656282;, - 0.489078; 0.660754;, - 0.484606; 0.660754;, - 0.489078; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.656282;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.489078; 0.656282;, - 0.493550; 0.651810;, - 0.493550; 0.660754;, - 0.489078; 0.660754;, - 0.493550; 0.656282;, - 0.503958; 0.474000;, - 0.492511; 0.464189;, - 0.486343; 0.478861;, - 0.486343; 0.478861;, - 0.497790; 0.488673;, - 0.503958; 0.474000;, - 0.497790; 0.488673;, - 0.486343; 0.478861;, - 0.480175; 0.493533;, - 0.515405; 0.483812;, - 0.503958; 0.474000;, - 0.497790; 0.488673;, - 0.507040; 0.496603;, - 0.515405; 0.483812;, - 0.497790; 0.488673;, - 0.497790; 0.488673;, - 0.489425; 0.501464;, - 0.507040; 0.496603;, - 0.489425; 0.501464;, - 0.497790; 0.488673;, - 0.480175; 0.493533;, - 0.498675; 0.509395;, - 0.507040; 0.496603;, - 0.489425; 0.501464;, - 0.546492; 0.484602;, - 0.527620; 0.468411;, - 0.521512; 0.476112;, - 0.521512; 0.476112;, - 0.540384; 0.492303;, - 0.546492; 0.484602;, - 0.540384; 0.492303;, - 0.521512; 0.476112;, - 0.515405; 0.483812;, - 0.540384; 0.492303;, - 0.565364; 0.500793;, - 0.546492; 0.484602;, - 0.558969; 0.508232;, - 0.565364; 0.500793;, - 0.540384; 0.492303;, - 0.540384; 0.492303;, - 0.533989; 0.499741;, - 0.558969; 0.508232;, - 0.533989; 0.499741;, - 0.540384; 0.492303;, - 0.515405; 0.483812;, - 0.552574; 0.515671;, - 0.558969; 0.508232;, - 0.533989; 0.499741;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.811075; 0.542961;, - 0.811075; 0.573738;, - 0.677297; 0.564400;, - 0.677297; 0.564400;, - 0.677297; 0.533623;, - 0.811075; 0.542961;, - 0.677297; 0.533623;, - 0.677297; 0.564400;, - 0.543518; 0.555062;, - 0.811075; 0.512185;, - 0.811075; 0.542961;, - 0.677297; 0.533623;, - 0.671327; 0.512743;, - 0.811075; 0.512185;, - 0.677297; 0.533623;, - 0.677297; 0.533623;, - 0.537549; 0.534182;, - 0.671327; 0.512743;, - 0.537549; 0.534182;, - 0.677297; 0.533623;, - 0.543518; 0.555062;, - 0.531579; 0.513301;, - 0.671327; 0.512743;, - 0.537549; 0.534182;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.074065; 0.958309;, - 0.077811; 0.981569;, - 0.069380; 0.985793;, - 0.069380; 0.985793;, - 0.065634; 0.962532;, - 0.074065; 0.958309;, - 0.065634; 0.962532;, - 0.069380; 0.985793;, - 0.060949; 0.990016;, - 0.070319; 0.935048;, - 0.074065; 0.958309;, - 0.065634; 0.962532;, - 0.063886; 0.938710;, - 0.070319; 0.935048;, - 0.065634; 0.962532;, - 0.065634; 0.962532;, - 0.059201; 0.966194;, - 0.063886; 0.938710;, - 0.059201; 0.966194;, - 0.065634; 0.962532;, - 0.060949; 0.990016;, - 0.057453; 0.942371;, - 0.063886; 0.938710;, - 0.059201; 0.966194;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.196683; 0.016706;, - 0.195625; 0.016832;, - 0.196071; 0.016482;, - 0.196071; 0.016482;, - 0.197130; 0.016356;, - 0.196683; 0.016706;, - 0.197130; 0.016356;, - 0.196071; 0.016482;, - 0.196518; 0.016133;, - 0.197741; 0.016580;, - 0.196683; 0.016706;, - 0.197130; 0.016356;, - 0.198015; 0.016308;, - 0.197741; 0.016580;, - 0.197130; 0.016356;, - 0.197130; 0.016356;, - 0.197403; 0.016085;, - 0.198015; 0.016308;, - 0.197403; 0.016085;, - 0.197130; 0.016356;, - 0.196518; 0.016133;, - 0.198288; 0.016037;, - 0.198015; 0.016308;, - 0.197403; 0.016085;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.200140; 0.016243;, - 0.200140; 0.016508;, - 0.199214; 0.016272;, - 0.199214; 0.016272;, - 0.199214; 0.016007;, - 0.200140; 0.016243;, - 0.199214; 0.016007;, - 0.199214; 0.016272;, - 0.198288; 0.016037;, - 0.200140; 0.015978;, - 0.200140; 0.016243;, - 0.199214; 0.016007;, - 0.199214; 0.016272;, - 0.200140; 0.016508;, - 0.198941; 0.016544;, - 0.198941; 0.016544;, - 0.198015; 0.016308;, - 0.199214; 0.016272;, - 0.198015; 0.016308;, - 0.198941; 0.016544;, - 0.197741; 0.016580;, - 0.198288; 0.016037;, - 0.199214; 0.016272;, - 0.198015; 0.016308;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.447530; 0.300262;, - 0.447530; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.300262;, - 0.447530; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.295790;, - 0.456475; 0.295790;, - 0.447530; 0.304734;, - 0.447530; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.304734;, - 0.447530; 0.304734;, - 0.452002; 0.300262;, - 0.452002; 0.300262;, - 0.456474; 0.300262;, - 0.452002; 0.304734;, - 0.456474; 0.300262;, - 0.452002; 0.300262;, - 0.456475; 0.295790;, - 0.456475; 0.304734;, - 0.452002; 0.304734;, - 0.456474; 0.300262;, - 0.446283; 0.300260;, - 0.446283; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.300260;, - 0.446283; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.295788;, - 0.455227; 0.295788;, - 0.446283; 0.304732;, - 0.446283; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.304732;, - 0.446283; 0.304732;, - 0.450755; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.300260;, - 0.450755; 0.304732;, - 0.455227; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.295788;, - 0.455227; 0.304732;, - 0.450755; 0.304732;, - 0.455227; 0.300260;, - 0.447530; 0.300262;, - 0.447530; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.300262;, - 0.447530; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.295790;, - 0.456475; 0.295790;, - 0.447530; 0.304734;, - 0.447530; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.304734;, - 0.447530; 0.304734;, - 0.452002; 0.300262;, - 0.452002; 0.300262;, - 0.456474; 0.300262;, - 0.452002; 0.304734;, - 0.456474; 0.300262;, - 0.452002; 0.300262;, - 0.456475; 0.295790;, - 0.456475; 0.304734;, - 0.452002; 0.304734;, - 0.456474; 0.300262;, - 0.446283; 0.300260;, - 0.446283; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.300260;, - 0.446283; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.295788;, - 0.455227; 0.295788;, - 0.446283; 0.304732;, - 0.446283; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.304732;, - 0.446283; 0.304732;, - 0.450755; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.300260;, - 0.450755; 0.304732;, - 0.455227; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.295788;, - 0.455227; 0.304732;, - 0.450755; 0.304732;, - 0.455227; 0.300260;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.950760;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.955232;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.111579; 0.928083;, - 0.091763; 0.928051;, - 0.091549; 0.901672;, - 0.091549; 0.901672;, - 0.111365; 0.901705;, - 0.111579; 0.928083;, - 0.111365; 0.901705;, - 0.091549; 0.901672;, - 0.091334; 0.875294;, - 0.131395; 0.928115;, - 0.111579; 0.928083;, - 0.111365; 0.901705;, - 0.131395; 0.901716;, - 0.131395; 0.928115;, - 0.111365; 0.901705;, - 0.111365; 0.901705;, - 0.111365; 0.875306;, - 0.131395; 0.901716;, - 0.111365; 0.875306;, - 0.111365; 0.901705;, - 0.091334; 0.875294;, - 0.131395; 0.875317;, - 0.131395; 0.901716;, - 0.111365; 0.875306;, - 0.111794; 0.977402;, - 0.092187; 0.977610;, - 0.111791; 0.952863;, - 0.111791; 0.952863;, - 0.131398; 0.952655;, - 0.111794; 0.977402;, - 0.131398; 0.952655;, - 0.111791; 0.952863;, - 0.131395; 0.928115;, - 0.131401; 0.977194;, - 0.111794; 0.977402;, - 0.131398; 0.952655;, - 0.111791; 0.952863;, - 0.092187; 0.977610;, - 0.091975; 0.952830;, - 0.091975; 0.952830;, - 0.111579; 0.928083;, - 0.111791; 0.952863;, - 0.111579; 0.928083;, - 0.091975; 0.952830;, - 0.091763; 0.928051;, - 0.131395; 0.928115;, - 0.111791; 0.952863;, - 0.111579; 0.928083;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.407060; 0.861758;, - 0.361343; 0.861758;, - 0.407060; 0.811353;, - 0.407060; 0.811353;, - 0.452778; 0.811353;, - 0.407060; 0.861758;, - 0.452778; 0.811353;, - 0.407060; 0.811353;, - 0.452778; 0.760949;, - 0.452778; 0.861758;, - 0.407060; 0.861758;, - 0.452778; 0.811353;, - 0.407060; 0.811353;, - 0.361343; 0.861758;, - 0.361343; 0.811568;, - 0.361343; 0.811568;, - 0.407060; 0.761163;, - 0.407060; 0.811353;, - 0.407060; 0.761163;, - 0.361343; 0.811568;, - 0.361343; 0.761378;, - 0.452778; 0.760949;, - 0.407060; 0.811353;, - 0.407060; 0.761163;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.271537; 0.043712;, - 0.271537; 0.004687;, - 0.303059; 0.008218;, - 0.303059; 0.008218;, - 0.303059; 0.047243;, - 0.271537; 0.043712;, - 0.303059; 0.047243;, - 0.303059; 0.008218;, - 0.334581; 0.011750;, - 0.271537; 0.082737;, - 0.271537; 0.043712;, - 0.303059; 0.047243;, - 0.303572; 0.083066;, - 0.271537; 0.082737;, - 0.303059; 0.047243;, - 0.303059; 0.047243;, - 0.335094; 0.047572;, - 0.303572; 0.083066;, - 0.335094; 0.047572;, - 0.303059; 0.047243;, - 0.334581; 0.011750;, - 0.335607; 0.083394;, - 0.303572; 0.083066;, - 0.335094; 0.047572;, - 0.712150; 0.299899;, - 0.712150; 0.306497;, - 0.672213; 0.306497;, - 0.672213; 0.306497;, - 0.672213; 0.299899;, - 0.712150; 0.299899;, - 0.672213; 0.299899;, - 0.672213; 0.306497;, - 0.632275; 0.306497;, - 0.712150; 0.293301;, - 0.712150; 0.299899;, - 0.672213; 0.299899;, - 0.673369; 0.293301;, - 0.712150; 0.293301;, - 0.672213; 0.299899;, - 0.672213; 0.299899;, - 0.633432; 0.299899;, - 0.673369; 0.293301;, - 0.633432; 0.299899;, - 0.672213; 0.299899;, - 0.632275; 0.306497;, - 0.634588; 0.293301;, - 0.673369; 0.293301;, - 0.633432; 0.299899;, - 0.670198; 0.341078;, - 0.628246; 0.341078;, - 0.630261; 0.323788;, - 0.630261; 0.323788;, - 0.672213; 0.323788;, - 0.670198; 0.341078;, - 0.672213; 0.323788;, - 0.630261; 0.323788;, - 0.632275; 0.306497;, - 0.712150; 0.341078;, - 0.670198; 0.341078;, - 0.672213; 0.323788;, - 0.712150; 0.323788;, - 0.712150; 0.341078;, - 0.672213; 0.323788;, - 0.672213; 0.323788;, - 0.672213; 0.306497;, - 0.712150; 0.323788;, - 0.672213; 0.306497;, - 0.672213; 0.323788;, - 0.632275; 0.306497;, - 0.712150; 0.306497;, - 0.712150; 0.323788;, - 0.672213; 0.306497;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.265723; 0.811302;, - 0.265723; 0.760847;, - 0.313533; 0.761113;, - 0.313533; 0.761113;, - 0.313533; 0.811568;, - 0.265723; 0.811302;, - 0.313533; 0.811568;, - 0.313533; 0.761113;, - 0.361343; 0.761378;, - 0.265723; 0.861758;, - 0.265723; 0.811302;, - 0.313533; 0.811568;, - 0.313533; 0.861758;, - 0.265723; 0.861758;, - 0.313533; 0.811568;, - 0.313533; 0.811568;, - 0.361343; 0.811568;, - 0.313533; 0.861758;, - 0.361343; 0.811568;, - 0.313533; 0.811568;, - 0.361343; 0.761378;, - 0.361343; 0.861758;, - 0.313533; 0.861758;, - 0.361343; 0.811568;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.235823; 0.003630;, - 0.271537; 0.004687;, - 0.235823; 0.043660;, - 0.235823; 0.043660;, - 0.200110; 0.042603;, - 0.235823; 0.003630;, - 0.200110; 0.042603;, - 0.235823; 0.043660;, - 0.200110; 0.082633;, - 0.200110; 0.002573;, - 0.235823; 0.003630;, - 0.200110; 0.042603;, - 0.235823; 0.043660;, - 0.271537; 0.004687;, - 0.271537; 0.043712;, - 0.271537; 0.043712;, - 0.235823; 0.082685;, - 0.235823; 0.043660;, - 0.235823; 0.082685;, - 0.271537; 0.043712;, - 0.271537; 0.082737;, - 0.200110; 0.082633;, - 0.235823; 0.043660;, - 0.235823; 0.082685;, - 0.756257; 0.306497;, - 0.712150; 0.306497;, - 0.756257; 0.299899;, - 0.756257; 0.299899;, - 0.800364; 0.299899;, - 0.756257; 0.306497;, - 0.800364; 0.299899;, - 0.756257; 0.299899;, - 0.800364; 0.293301;, - 0.800364; 0.306497;, - 0.756257; 0.306497;, - 0.800364; 0.299899;, - 0.756257; 0.299899;, - 0.712150; 0.306497;, - 0.712150; 0.299899;, - 0.712150; 0.299899;, - 0.756257; 0.293301;, - 0.756257; 0.299899;, - 0.756257; 0.293301;, - 0.712150; 0.299899;, - 0.712150; 0.293301;, - 0.800364; 0.293301;, - 0.756257; 0.299899;, - 0.756257; 0.293301;, - 0.800364; 0.323788;, - 0.800364; 0.341078;, - 0.756257; 0.323788;, - 0.756257; 0.323788;, - 0.756257; 0.306497;, - 0.800364; 0.323788;, - 0.756257; 0.306497;, - 0.756257; 0.323788;, - 0.712150; 0.306497;, - 0.800364; 0.306497;, - 0.800364; 0.323788;, - 0.756257; 0.306497;, - 0.756257; 0.323788;, - 0.800364; 0.341078;, - 0.756257; 0.341078;, - 0.756257; 0.341078;, - 0.712150; 0.323788;, - 0.756257; 0.323788;, - 0.712150; 0.323788;, - 0.756257; 0.341078;, - 0.712150; 0.341078;, - 0.712150; 0.306497;, - 0.756257; 0.323788;, - 0.712150; 0.323788;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.482474; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482474; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482474; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.482475; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482475; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.712150; 0.351300;, - 0.712150; 0.361521;, - 0.670169; 0.361521;, - 0.670169; 0.361521;, - 0.670169; 0.351300;, - 0.712150; 0.351300;, - 0.670169; 0.351300;, - 0.670169; 0.361521;, - 0.628187; 0.361521;, - 0.712150; 0.341078;, - 0.712150; 0.351300;, - 0.670169; 0.351300;, - 0.670198; 0.341078;, - 0.712150; 0.341078;, - 0.670169; 0.351300;, - 0.670169; 0.351300;, - 0.628217; 0.351300;, - 0.670198; 0.341078;, - 0.628217; 0.351300;, - 0.670169; 0.351300;, - 0.628187; 0.361521;, - 0.628246; 0.341078;, - 0.670198; 0.341078;, - 0.628217; 0.351300;, - 0.756257; 0.361521;, - 0.712150; 0.361521;, - 0.756257; 0.351300;, - 0.756257; 0.351300;, - 0.800364; 0.351300;, - 0.756257; 0.361521;, - 0.800364; 0.351300;, - 0.756257; 0.351300;, - 0.800364; 0.341078;, - 0.800364; 0.361521;, - 0.756257; 0.361521;, - 0.800364; 0.351300;, - 0.756257; 0.351300;, - 0.712150; 0.361521;, - 0.712150; 0.351300;, - 0.712150; 0.351300;, - 0.756257; 0.341078;, - 0.756257; 0.351300;, - 0.756257; 0.341078;, - 0.712150; 0.351300;, - 0.712150; 0.341078;, - 0.800364; 0.341078;, - 0.756257; 0.351300;, - 0.756257; 0.341078;, - 0.712150; 0.372302;, - 0.712150; 0.383083;, - 0.670201; 0.383083;, - 0.670201; 0.383083;, - 0.670201; 0.372302;, - 0.712150; 0.372302;, - 0.670201; 0.372302;, - 0.670201; 0.383083;, - 0.628253; 0.383083;, - 0.712150; 0.361521;, - 0.712150; 0.372302;, - 0.670201; 0.372302;, - 0.670169; 0.361521;, - 0.712150; 0.361521;, - 0.670201; 0.372302;, - 0.670201; 0.372302;, - 0.628220; 0.372302;, - 0.670169; 0.361521;, - 0.628220; 0.372302;, - 0.670201; 0.372302;, - 0.628253; 0.383083;, - 0.628187; 0.361521;, - 0.670169; 0.361521;, - 0.628220; 0.372302;, - 0.800364; 0.372302;, - 0.800364; 0.383084;, - 0.756257; 0.383084;, - 0.756257; 0.383084;, - 0.756257; 0.372302;, - 0.800364; 0.372302;, - 0.756257; 0.372302;, - 0.756257; 0.383084;, - 0.712150; 0.383083;, - 0.800364; 0.361521;, - 0.800364; 0.372302;, - 0.756257; 0.372302;, - 0.756257; 0.361521;, - 0.800364; 0.361521;, - 0.756257; 0.372302;, - 0.756257; 0.372302;, - 0.712150; 0.372302;, - 0.756257; 0.361521;, - 0.712150; 0.372302;, - 0.756257; 0.372302;, - 0.712150; 0.383083;, - 0.712150; 0.361521;, - 0.756257; 0.361521;, - 0.712150; 0.372302;, - 0.712150; 0.437154;, - 0.712150; 0.458927;, - 0.671885; 0.458927;, - 0.671885; 0.458927;, - 0.671885; 0.437154;, - 0.712150; 0.437154;, - 0.671885; 0.437154;, - 0.671885; 0.458927;, - 0.631619; 0.458927;, - 0.712150; 0.415381;, - 0.712150; 0.437154;, - 0.671885; 0.437154;, - 0.670344; 0.415381;, - 0.712150; 0.415381;, - 0.671885; 0.437154;, - 0.671885; 0.437154;, - 0.630078; 0.437154;, - 0.670344; 0.415381;, - 0.630078; 0.437154;, - 0.671885; 0.437154;, - 0.631619; 0.458927;, - 0.628537; 0.415381;, - 0.670344; 0.415381;, - 0.630078; 0.437154;, - 0.712150; 0.399232;, - 0.712150; 0.415381;, - 0.670344; 0.415381;, - 0.670344; 0.415381;, - 0.670344; 0.399232;, - 0.712150; 0.399232;, - 0.670344; 0.399232;, - 0.670344; 0.415381;, - 0.628537; 0.415381;, - 0.712150; 0.383083;, - 0.712150; 0.399232;, - 0.670344; 0.399232;, - 0.670201; 0.383083;, - 0.712150; 0.383083;, - 0.670344; 0.399232;, - 0.670344; 0.399232;, - 0.628395; 0.399232;, - 0.670201; 0.383083;, - 0.628395; 0.399232;, - 0.670344; 0.399232;, - 0.628537; 0.415381;, - 0.628253; 0.383083;, - 0.670201; 0.383083;, - 0.628395; 0.399232;, - 0.756257; 0.458927;, - 0.712150; 0.458927;, - 0.756257; 0.437154;, - 0.756257; 0.437154;, - 0.800364; 0.437154;, - 0.756257; 0.458927;, - 0.800364; 0.437154;, - 0.756257; 0.437154;, - 0.800364; 0.415381;, - 0.800364; 0.458927;, - 0.756257; 0.458927;, - 0.800364; 0.437154;, - 0.756257; 0.437154;, - 0.712150; 0.458927;, - 0.712150; 0.437154;, - 0.712150; 0.437154;, - 0.756257; 0.415381;, - 0.756257; 0.437154;, - 0.756257; 0.415381;, - 0.712150; 0.437154;, - 0.712150; 0.415381;, - 0.800364; 0.415381;, - 0.756257; 0.437154;, - 0.756257; 0.415381;, - 0.800364; 0.399232;, - 0.800364; 0.415381;, - 0.756257; 0.415381;, - 0.756257; 0.415381;, - 0.756257; 0.399232;, - 0.800364; 0.399232;, - 0.756257; 0.399232;, - 0.756257; 0.415381;, - 0.712150; 0.415381;, - 0.800364; 0.383084;, - 0.800364; 0.399232;, - 0.756257; 0.399232;, - 0.756257; 0.383084;, - 0.800364; 0.383084;, - 0.756257; 0.399232;, - 0.756257; 0.399232;, - 0.712150; 0.399232;, - 0.756257; 0.383084;, - 0.712150; 0.399232;, - 0.756257; 0.399232;, - 0.712150; 0.415381;, - 0.712150; 0.383083;, - 0.756257; 0.383084;, - 0.712150; 0.399232;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.615198; 0.417391;, - 0.628537; 0.415381;, - 0.618366; 0.437516;, - 0.618366; 0.437516;, - 0.605027; 0.439526;, - 0.615198; 0.417391;, - 0.605027; 0.439526;, - 0.618366; 0.437516;, - 0.608195; 0.459651;, - 0.601859; 0.419401;, - 0.615198; 0.417391;, - 0.605027; 0.439526;, - 0.618366; 0.437516;, - 0.628537; 0.415381;, - 0.630078; 0.437154;, - 0.630078; 0.437154;, - 0.619907; 0.459289;, - 0.618366; 0.437516;, - 0.619907; 0.459289;, - 0.630078; 0.437154;, - 0.631619; 0.458927;, - 0.608195; 0.459651;, - 0.618366; 0.437516;, - 0.619907; 0.459289;, - 0.614452; 0.386083;, - 0.628253; 0.383083;, - 0.628395; 0.399232;, - 0.628395; 0.399232;, - 0.614594; 0.402232;, - 0.614452; 0.386083;, - 0.614594; 0.402232;, - 0.628395; 0.399232;, - 0.628537; 0.415381;, - 0.600651; 0.389083;, - 0.614452; 0.386083;, - 0.614594; 0.402232;, - 0.601255; 0.404242;, - 0.600651; 0.389083;, - 0.614594; 0.402232;, - 0.614594; 0.402232;, - 0.615198; 0.417391;, - 0.601255; 0.404242;, - 0.615198; 0.417391;, - 0.614594; 0.402232;, - 0.628537; 0.415381;, - 0.601859; 0.419401;, - 0.601255; 0.404242;, - 0.615198; 0.417391;, - 0.614272; 0.365182;, - 0.628187; 0.361521;, - 0.628220; 0.372302;, - 0.628220; 0.372302;, - 0.614304; 0.375963;, - 0.614272; 0.365182;, - 0.614304; 0.375963;, - 0.628220; 0.372302;, - 0.628253; 0.383083;, - 0.600356; 0.368843;, - 0.614272; 0.365182;, - 0.614304; 0.375963;, - 0.600503; 0.378963;, - 0.600356; 0.368843;, - 0.614304; 0.375963;, - 0.614304; 0.375963;, - 0.614452; 0.386083;, - 0.600503; 0.378963;, - 0.614452; 0.386083;, - 0.614304; 0.375963;, - 0.628253; 0.383083;, - 0.600651; 0.389083;, - 0.600503; 0.378963;, - 0.614452; 0.386083;, - 0.614361; 0.345365;, - 0.628246; 0.341078;, - 0.628217; 0.351300;, - 0.628217; 0.351300;, - 0.614331; 0.355587;, - 0.614361; 0.345365;, - 0.614331; 0.355587;, - 0.628217; 0.351300;, - 0.628187; 0.361521;, - 0.600476; 0.349652;, - 0.614361; 0.345365;, - 0.614331; 0.355587;, - 0.600416; 0.359247;, - 0.600476; 0.349652;, - 0.614331; 0.355587;, - 0.614331; 0.355587;, - 0.614271; 0.365182;, - 0.600416; 0.359247;, - 0.614271; 0.365182;, - 0.614331; 0.355587;, - 0.628187; 0.361521;, - 0.600356; 0.368843;, - 0.600416; 0.359247;, - 0.614271; 0.365182;, - 0.434549; 0.517208;, - 0.428591; 0.518370;, - 0.428982; 0.513556;, - 0.428982; 0.513556;, - 0.434941; 0.512394;, - 0.434549; 0.517208;, - 0.434941; 0.512394;, - 0.428982; 0.513556;, - 0.429374; 0.508743;, - 0.440507; 0.516046;, - 0.434549; 0.517208;, - 0.434941; 0.512394;, - 0.440951; 0.511165;, - 0.440507; 0.516046;, - 0.434941; 0.512394;, - 0.434941; 0.512394;, - 0.435384; 0.507514;, - 0.440951; 0.511165;, - 0.435384; 0.507514;, - 0.434941; 0.512394;, - 0.429374; 0.508743;, - 0.441394; 0.506284;, - 0.440951; 0.511165;, - 0.435384; 0.507514;, - 0.456186; 0.516419;, - 0.440507; 0.516046;, - 0.440951; 0.511165;, - 0.440951; 0.511165;, - 0.456630; 0.511538;, - 0.456186; 0.516419;, - 0.456630; 0.511538;, - 0.440951; 0.511165;, - 0.441394; 0.506284;, - 0.471865; 0.516792;, - 0.456186; 0.516419;, - 0.456630; 0.511538;, - 0.472445; 0.511927;, - 0.471865; 0.516792;, - 0.456630; 0.511538;, - 0.456630; 0.511538;, - 0.457210; 0.506673;, - 0.472445; 0.511927;, - 0.457210; 0.506673;, - 0.456630; 0.511538;, - 0.441394; 0.506284;, - 0.473025; 0.507062;, - 0.472445; 0.511927;, - 0.457210; 0.506673;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.482474; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482474; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482474; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553176;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553176;, - 0.482474; 0.553176;, - 0.482475; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.542297;, - 0.493353; 0.553176;, - 0.482474; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.542297;, - 0.504232; 0.542297;, - 0.482475; 0.564054;, - 0.482474; 0.553176;, - 0.493353; 0.553176;, - 0.493353; 0.564054;, - 0.482475; 0.564054;, - 0.493353; 0.553176;, - 0.493353; 0.553176;, - 0.504232; 0.553175;, - 0.493353; 0.564054;, - 0.504232; 0.553175;, - 0.493353; 0.553176;, - 0.504232; 0.542297;, - 0.504232; 0.564054;, - 0.493353; 0.564054;, - 0.504232; 0.553175;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.421478; 0.521141;, - 0.414366; 0.523913;, - 0.414696; 0.519281;, - 0.414696; 0.519281;, - 0.421808; 0.516509;, - 0.421478; 0.521141;, - 0.421808; 0.516509;, - 0.414696; 0.519281;, - 0.415026; 0.514648;, - 0.428591; 0.518370;, - 0.421478; 0.521141;, - 0.421808; 0.516509;, - 0.428982; 0.513556;, - 0.428591; 0.518370;, - 0.421808; 0.516509;, - 0.421808; 0.516509;, - 0.422200; 0.511695;, - 0.428982; 0.513556;, - 0.422200; 0.511695;, - 0.421808; 0.516509;, - 0.415026; 0.514648;, - 0.429374; 0.508743;, - 0.428982; 0.513556;, - 0.422200; 0.511695;, - 0.155109; 0.505626;, - 0.154261; 0.503566;, - 0.291805; 0.504106;, - 0.291805; 0.504106;, - 0.292652; 0.506166;, - 0.155109; 0.505626;, - 0.292652; 0.506166;, - 0.291805; 0.504106;, - 0.429349; 0.504647;, - 0.155956; 0.507686;, - 0.155109; 0.505626;, - 0.292652; 0.506166;, - 0.292252; 0.508227;, - 0.155956; 0.507686;, - 0.292652; 0.506166;, - 0.292652; 0.506166;, - 0.428948; 0.506707;, - 0.292252; 0.508227;, - 0.428948; 0.506707;, - 0.292652; 0.506166;, - 0.429349; 0.504647;, - 0.428548; 0.508767;, - 0.292252; 0.508227;, - 0.428948; 0.506707;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - -0.006472; 0.495991;, - -0.008525; 0.479402;, - 0.072333; 0.477472;, - 0.072333; 0.477472;, - 0.074386; 0.494061;, - -0.006472; 0.495991;, - 0.074386; 0.494061;, - 0.072333; 0.477472;, - 0.153191; 0.475542;, - -0.004420; 0.512580;, - -0.006472; 0.495991;, - 0.074386; 0.494061;, - 0.075653; 0.510178;, - -0.004420; 0.512580;, - 0.074386; 0.494061;, - 0.074386; 0.494061;, - 0.154458; 0.491659;, - 0.075653; 0.510178;, - 0.154458; 0.491659;, - 0.074386; 0.494061;, - 0.153191; 0.475542;, - 0.155725; 0.507776;, - 0.075653; 0.510178;, - 0.154458; 0.491659;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885206;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885206;, - 0.627390; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.618769; 0.311503;, - 0.632275; 0.306497;, - 0.630261; 0.323788;, - 0.630261; 0.323788;, - 0.616754; 0.328794;, - 0.618769; 0.311503;, - 0.616754; 0.328794;, - 0.630261; 0.323788;, - 0.628246; 0.341078;, - 0.605262; 0.316510;, - 0.618769; 0.311503;, - 0.616754; 0.328794;, - 0.602869; 0.333081;, - 0.605262; 0.316510;, - 0.616754; 0.328794;, - 0.616754; 0.328794;, - 0.614361; 0.345365;, - 0.602869; 0.333081;, - 0.614361; 0.345365;, - 0.616754; 0.328794;, - 0.628246; 0.341078;, - 0.600476; 0.349652;, - 0.602869; 0.333081;, - 0.614361; 0.345365;, - 0.622357; 0.298712;, - 0.634588; 0.293301;, - 0.633432; 0.299899;, - 0.633432; 0.299899;, - 0.621200; 0.305310;, - 0.622357; 0.298712;, - 0.621200; 0.305310;, - 0.633432; 0.299899;, - 0.632275; 0.306497;, - 0.610125; 0.304122;, - 0.622357; 0.298712;, - 0.621200; 0.305310;, - 0.607694; 0.310316;, - 0.610125; 0.304122;, - 0.621200; 0.305310;, - 0.621200; 0.305310;, - 0.618769; 0.311503;, - 0.607694; 0.310316;, - 0.618769; 0.311503;, - 0.621200; 0.305310;, - 0.632275; 0.306497;, - 0.605262; 0.316510;, - 0.607694; 0.310316;, - 0.618769; 0.311503;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.469070; 0.910286;, - 0.467976; 0.935048;, - 0.456801; 0.931549;, - 0.456801; 0.931549;, - 0.457894; 0.906788;, - 0.469070; 0.910286;, - 0.457894; 0.906788;, - 0.456801; 0.931549;, - 0.445626; 0.928051;, - 0.470163; 0.885525;, - 0.469070; 0.910286;, - 0.457894; 0.906788;, - 0.458108; 0.880409;, - 0.470163; 0.885525;, - 0.457894; 0.906788;, - 0.457894; 0.906788;, - 0.445840; 0.901672;, - 0.458108; 0.880409;, - 0.445840; 0.901672;, - 0.457894; 0.906788;, - 0.445626; 0.928051;, - 0.446054; 0.875294;, - 0.458108; 0.880409;, - 0.445840; 0.901672;, - 0.467025; 0.958309;, - 0.466074; 0.981569;, - 0.455638; 0.979590;, - 0.455638; 0.979590;, - 0.456589; 0.956329;, - 0.467025; 0.958309;, - 0.456589; 0.956329;, - 0.455638; 0.979590;, - 0.445202; 0.977610;, - 0.467976; 0.935048;, - 0.467025; 0.958309;, - 0.456589; 0.956329;, - 0.456801; 0.931549;, - 0.467976; 0.935048;, - 0.456589; 0.956329;, - 0.456589; 0.956329;, - 0.445414; 0.952830;, - 0.456801; 0.931549;, - 0.445414; 0.952830;, - 0.456589; 0.956329;, - 0.445202; 0.977610;, - 0.445626; 0.928051;, - 0.456801; 0.931549;, - 0.445414; 0.952830;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.301472;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.301472;, - 0.451021; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.412290; 0.685080;, - 0.404704; 0.687908;, - 0.404748; 0.661287;, - 0.404748; 0.661287;, - 0.412334; 0.658458;, - 0.412290; 0.685080;, - 0.412334; 0.658458;, - 0.404748; 0.661287;, - 0.404792; 0.634665;, - 0.419877; 0.682251;, - 0.412290; 0.685080;, - 0.412334; 0.658458;, - 0.420786; 0.658467;, - 0.419877; 0.682251;, - 0.412334; 0.658458;, - 0.412334; 0.658458;, - 0.413244; 0.634674;, - 0.420786; 0.658467;, - 0.413244; 0.634674;, - 0.412334; 0.658458;, - 0.404792; 0.634665;, - 0.421696; 0.634682;, - 0.420786; 0.658467;, - 0.413244; 0.634674;, - 0.412290; 0.685080;, - 0.419877; 0.682251;, - 0.419743; 0.685745;, - 0.419743; 0.685745;, - 0.412157; 0.688573;, - 0.412290; 0.685080;, - 0.412157; 0.688573;, - 0.419743; 0.685745;, - 0.419609; 0.689239;, - 0.404704; 0.687908;, - 0.412290; 0.685080;, - 0.412157; 0.688573;, - 0.404706; 0.690569;, - 0.404704; 0.687908;, - 0.412157; 0.688573;, - 0.412157; 0.688573;, - 0.412159; 0.691235;, - 0.404706; 0.690569;, - 0.412159; 0.691235;, - 0.412157; 0.688573;, - 0.419609; 0.689239;, - 0.404708; 0.693231;, - 0.404706; 0.690569;, - 0.412159; 0.691235;, - 0.286499; 0.582466;, - 0.416909; 0.575457;, - 0.416912; 0.586432;, - 0.416912; 0.586432;, - 0.286501; 0.593441;, - 0.286499; 0.582466;, - 0.286501; 0.593441;, - 0.416912; 0.586432;, - 0.416915; 0.597408;, - 0.156088; 0.589475;, - 0.286499; 0.582466;, - 0.286501; 0.593441;, - 0.156022; 0.599744;, - 0.156088; 0.589475;, - 0.286501; 0.593441;, - 0.286501; 0.593441;, - 0.286435; 0.603710;, - 0.156022; 0.599744;, - 0.286435; 0.603710;, - 0.286501; 0.593441;, - 0.416915; 0.597408;, - 0.155956; 0.610013;, - 0.156022; 0.599744;, - 0.286435; 0.603710;, - 0.156022; 0.578382;, - 0.155956; 0.567290;, - 0.286433; 0.571373;, - 0.286433; 0.571373;, - 0.286499; 0.582466;, - 0.156022; 0.578382;, - 0.286499; 0.582466;, - 0.286433; 0.571373;, - 0.416909; 0.575457;, - 0.156088; 0.589475;, - 0.156022; 0.578382;, - 0.286499; 0.582466;, - 0.286433; 0.571373;, - 0.155956; 0.567290;, - 0.286429; 0.558248;, - 0.286429; 0.558248;, - 0.416906; 0.562332;, - 0.286433; 0.571373;, - 0.416906; 0.562332;, - 0.286429; 0.558248;, - 0.416903; 0.549206;, - 0.416909; 0.575457;, - 0.286433; 0.571373;, - 0.416906; 0.562332;, - 0.156022; 0.578382;, - 0.156088; 0.589475;, - 0.086914; 0.587294;, - 0.086914; 0.587294;, - 0.086848; 0.576201;, - 0.156022; 0.578382;, - 0.086848; 0.576201;, - 0.086914; 0.587294;, - 0.017741; 0.585113;, - 0.155956; 0.567290;, - 0.156022; 0.578382;, - 0.086848; 0.576201;, - 0.077788; 0.569915;, - 0.155956; 0.567290;, - 0.086848; 0.576201;, - 0.086848; 0.576201;, - 0.008680; 0.578827;, - 0.077788; 0.569915;, - 0.008680; 0.578827;, - 0.086848; 0.576201;, - 0.017741; 0.585113;, - -0.000380; 0.572541;, - 0.077788; 0.569915;, - 0.008680; 0.578827;, - 0.156022; 0.599744;, - 0.155956; 0.610013;, - 0.096282; 0.604108;, - 0.096282; 0.604108;, - 0.096348; 0.593839;, - 0.156022; 0.599744;, - 0.096348; 0.593839;, - 0.096282; 0.604108;, - 0.036609; 0.598203;, - 0.156088; 0.589475;, - 0.156022; 0.599744;, - 0.096348; 0.593839;, - 0.086914; 0.587294;, - 0.156088; 0.589475;, - 0.096348; 0.593839;, - 0.096348; 0.593839;, - 0.027175; 0.591658;, - 0.086914; 0.587294;, - 0.027175; 0.591658;, - 0.096348; 0.593839;, - 0.036609; 0.598203;, - 0.017741; 0.585113;, - 0.086914; 0.587294;, - 0.027175; 0.591658;, - 0.043875; 0.619855;, - 0.036609; 0.598203;, - 0.096282; 0.604108;, - 0.096282; 0.604108;, - 0.103548; 0.625760;, - 0.043875; 0.619855;, - 0.103548; 0.625760;, - 0.096282; 0.604108;, - 0.155956; 0.610013;, - 0.051140; 0.641507;, - 0.043875; 0.619855;, - 0.103548; 0.625760;, - 0.103548; 0.644494;, - 0.051140; 0.641507;, - 0.103548; 0.625760;, - 0.103548; 0.625760;, - 0.155956; 0.628748;, - 0.103548; 0.644494;, - 0.155956; 0.628748;, - 0.103548; 0.625760;, - 0.155956; 0.610013;, - 0.155956; 0.647482;, - 0.103548; 0.644494;, - 0.155956; 0.628748;, - 0.103653; 0.704068;, - 0.052462; 0.704057;, - 0.104209; 0.675770;, - 0.104209; 0.675770;, - 0.155400; 0.675781;, - 0.103653; 0.704068;, - 0.155400; 0.675781;, - 0.104209; 0.675770;, - 0.155956; 0.647482;, - 0.154845; 0.704080;, - 0.103653; 0.704068;, - 0.155400; 0.675781;, - 0.104209; 0.675770;, - 0.052462; 0.704057;, - 0.051801; 0.672782;, - 0.051801; 0.672782;, - 0.103548; 0.644494;, - 0.104209; 0.675770;, - 0.103548; 0.644494;, - 0.051801; 0.672782;, - 0.051140; 0.641507;, - 0.155956; 0.647482;, - 0.104209; 0.675770;, - 0.103548; 0.644494;, - 0.285832; 0.704029;, - 0.154845; 0.704080;, - 0.155400; 0.675781;, - 0.155400; 0.675781;, - 0.286387; 0.675730;, - 0.285832; 0.704029;, - 0.286387; 0.675730;, - 0.155400; 0.675781;, - 0.155956; 0.647482;, - 0.416818; 0.703977;, - 0.285832; 0.704029;, - 0.286387; 0.675730;, - 0.416872; 0.672289;, - 0.416818; 0.703977;, - 0.286387; 0.675730;, - 0.286387; 0.675730;, - 0.286440; 0.644041;, - 0.416872; 0.672289;, - 0.286440; 0.644041;, - 0.286387; 0.675730;, - 0.155956; 0.647482;, - 0.416925; 0.640600;, - 0.416872; 0.672289;, - 0.286440; 0.644041;, - 0.155160; 0.706374;, - 0.155475; 0.708668;, - 0.107271; 0.708768;, - 0.107271; 0.708768;, - 0.106956; 0.706474;, - 0.155160; 0.706374;, - 0.106956; 0.706474;, - 0.107271; 0.708768;, - 0.059067; 0.708869;, - 0.154845; 0.704080;, - 0.155160; 0.706374;, - 0.106956; 0.706474;, - 0.103653; 0.704068;, - 0.154845; 0.704080;, - 0.106956; 0.706474;, - 0.106956; 0.706474;, - 0.055764; 0.706463;, - 0.103653; 0.704068;, - 0.055764; 0.706463;, - 0.106956; 0.706474;, - 0.059067; 0.708869;, - 0.052462; 0.704057;, - 0.103653; 0.704068;, - 0.055764; 0.706463;, - 0.416821; 0.707145;, - 0.416823; 0.710313;, - 0.286149; 0.709491;, - 0.286149; 0.709491;, - 0.286147; 0.706323;, - 0.416821; 0.707145;, - 0.286147; 0.706323;, - 0.286149; 0.709491;, - 0.155475; 0.708668;, - 0.416818; 0.703977;, - 0.416821; 0.707145;, - 0.286147; 0.706323;, - 0.285832; 0.704029;, - 0.416818; 0.703977;, - 0.286147; 0.706323;, - 0.286147; 0.706323;, - 0.155160; 0.706374;, - 0.285832; 0.704029;, - 0.155160; 0.706374;, - 0.286147; 0.706323;, - 0.155475; 0.708668;, - 0.154845; 0.704080;, - 0.285832; 0.704029;, - 0.155160; 0.706374;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.488999; 0.062208;, - 0.501961; 0.061793;, - 0.502672; 0.070817;, - 0.502672; 0.070817;, - 0.489711; 0.071232;, - 0.488999; 0.062208;, - 0.489711; 0.071232;, - 0.502672; 0.070817;, - 0.503383; 0.079841;, - 0.476038; 0.062623;, - 0.488999; 0.062208;, - 0.489711; 0.071232;, - 0.477094; 0.073626;, - 0.476038; 0.062623;, - 0.489711; 0.071232;, - 0.489711; 0.071232;, - 0.490767; 0.082235;, - 0.477094; 0.073626;, - 0.490767; 0.082235;, - 0.489711; 0.071232;, - 0.503383; 0.079841;, - 0.478150; 0.084629;, - 0.477094; 0.073626;, - 0.490767; 0.082235;, - 0.475429; 0.056280;, - 0.474821; 0.049937;, - 0.487916; 0.049840;, - 0.487916; 0.049840;, - 0.488525; 0.056183;, - 0.475429; 0.056280;, - 0.488525; 0.056183;, - 0.487916; 0.049840;, - 0.501011; 0.049743;, - 0.476038; 0.062623;, - 0.475429; 0.056280;, - 0.488525; 0.056183;, - 0.488999; 0.062208;, - 0.476038; 0.062623;, - 0.488525; 0.056183;, - 0.488525; 0.056183;, - 0.501486; 0.055768;, - 0.488999; 0.062208;, - 0.501486; 0.055768;, - 0.488525; 0.056183;, - 0.501011; 0.049743;, - 0.501961; 0.061793;, - 0.488999; 0.062208;, - 0.501486; 0.055768;, - 0.474324; 0.044128;, - 0.473827; 0.038319;, - 0.486969; 0.038319;, - 0.486969; 0.038319;, - 0.487466; 0.044128;, - 0.474324; 0.044128;, - 0.487466; 0.044128;, - 0.486969; 0.038319;, - 0.500111; 0.038319;, - 0.474821; 0.049937;, - 0.474324; 0.044128;, - 0.487466; 0.044128;, - 0.487916; 0.049840;, - 0.474821; 0.049937;, - 0.487466; 0.044128;, - 0.487466; 0.044128;, - 0.500561; 0.044031;, - 0.487916; 0.049840;, - 0.500561; 0.044031;, - 0.487466; 0.044128;, - 0.500111; 0.038319;, - 0.501011; 0.049743;, - 0.487916; 0.049840;, - 0.500561; 0.044031;, - 0.449307; 0.050107;, - 0.423794; 0.050276;, - 0.448810; 0.044297;, - 0.448810; 0.044297;, - 0.474324; 0.044128;, - 0.449307; 0.050107;, - 0.474324; 0.044128;, - 0.448810; 0.044297;, - 0.473827; 0.038319;, - 0.474821; 0.049937;, - 0.449307; 0.050107;, - 0.474324; 0.044128;, - 0.448810; 0.044297;, - 0.423794; 0.050276;, - 0.423321; 0.042867;, - 0.423321; 0.042867;, - 0.448337; 0.036888;, - 0.448810; 0.044297;, - 0.448337; 0.036888;, - 0.423321; 0.042867;, - 0.422848; 0.035458;, - 0.473827; 0.038319;, - 0.448810; 0.044297;, - 0.448337; 0.036888;, - 0.475429; 0.056280;, - 0.476038; 0.062623;, - 0.451217; 0.063589;, - 0.451217; 0.063589;, - 0.450608; 0.057247;, - 0.475429; 0.056280;, - 0.450608; 0.057247;, - 0.451217; 0.063589;, - 0.426395; 0.064556;, - 0.474821; 0.049937;, - 0.475429; 0.056280;, - 0.450608; 0.057247;, - 0.449307; 0.050107;, - 0.474821; 0.049937;, - 0.450608; 0.057247;, - 0.450608; 0.057247;, - 0.425094; 0.057416;, - 0.449307; 0.050107;, - 0.425094; 0.057416;, - 0.450608; 0.057247;, - 0.426395; 0.064556;, - 0.423794; 0.050276;, - 0.449307; 0.050107;, - 0.425094; 0.057416;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.431199; 0.076943;, - 0.426395; 0.064556;, - 0.451217; 0.063589;, - 0.451217; 0.063589;, - 0.456021; 0.075976;, - 0.431199; 0.076943;, - 0.456021; 0.075976;, - 0.451217; 0.063589;, - 0.476038; 0.062623;, - 0.436004; 0.089329;, - 0.431199; 0.076943;, - 0.456021; 0.075976;, - 0.457077; 0.086979;, - 0.436004; 0.089329;, - 0.456021; 0.075976;, - 0.456021; 0.075976;, - 0.477094; 0.073626;, - 0.457077; 0.086979;, - 0.477094; 0.073626;, - 0.456021; 0.075976;, - 0.476038; 0.062623;, - 0.478150; 0.084629;, - 0.457077; 0.086979;, - 0.477094; 0.073626;, - 0.448337; 0.036888;, - 0.422848; 0.035458;, - 0.450310; 0.025286;, - 0.450310; 0.025286;, - 0.475799; 0.026717;, - 0.448337; 0.036888;, - 0.475799; 0.026717;, - 0.450310; 0.025286;, - 0.477771; 0.015114;, - 0.473827; 0.038319;, - 0.448337; 0.036888;, - 0.475799; 0.026717;, - 0.450310; 0.025286;, - 0.422848; 0.035458;, - 0.419063; 0.023641;, - 0.419063; 0.023641;, - 0.446524; 0.013469;, - 0.450310; 0.025286;, - 0.446524; 0.013469;, - 0.419063; 0.023641;, - 0.415278; 0.011823;, - 0.477771; 0.015114;, - 0.450310; 0.025286;, - 0.446524; 0.013469;, - 0.490851; 0.016851;, - 0.503932; 0.018588;, - 0.502021; 0.028454;, - 0.502021; 0.028454;, - 0.488941; 0.026717;, - 0.490851; 0.016851;, - 0.488941; 0.026717;, - 0.502021; 0.028454;, - 0.500111; 0.038319;, - 0.477771; 0.015114;, - 0.490851; 0.016851;, - 0.488941; 0.026717;, - 0.475799; 0.026717;, - 0.477771; 0.015114;, - 0.488941; 0.026717;, - 0.488941; 0.026717;, - 0.486969; 0.038319;, - 0.475799; 0.026717;, - 0.486969; 0.038319;, - 0.488941; 0.026717;, - 0.500111; 0.038319;, - 0.473827; 0.038319;, - 0.475799; 0.026717;, - 0.486969; 0.038319;, - 0.428302; 0.597909;, - 0.421437; 0.598133;, - 0.428190; 0.589149;, - 0.428190; 0.589149;, - 0.435056; 0.588925;, - 0.428302; 0.597909;, - 0.435056; 0.588925;, - 0.428190; 0.589149;, - 0.434944; 0.580165;, - 0.435168; 0.597684;, - 0.428302; 0.597909;, - 0.435056; 0.588925;, - 0.428190; 0.589149;, - 0.421437; 0.598133;, - 0.421373; 0.589166;, - 0.421373; 0.589166;, - 0.428127; 0.580182;, - 0.428190; 0.589149;, - 0.428127; 0.580182;, - 0.421373; 0.589166;, - 0.421310; 0.580200;, - 0.434944; 0.580165;, - 0.428190; 0.589149;, - 0.428127; 0.580182;, - 0.434548; 0.523895;, - 0.440508; 0.523877;, - 0.437725; 0.540881;, - 0.437725; 0.540881;, - 0.431765; 0.540899;, - 0.434548; 0.523895;, - 0.431765; 0.540899;, - 0.437725; 0.540881;, - 0.434942; 0.557885;, - 0.428588; 0.523913;, - 0.434548; 0.523895;, - 0.431765; 0.540899;, - 0.424949; 0.540899;, - 0.428588; 0.523913;, - 0.431765; 0.540899;, - 0.431765; 0.540899;, - 0.428126; 0.557885;, - 0.424949; 0.540899;, - 0.428126; 0.557885;, - 0.431765; 0.540899;, - 0.434942; 0.557885;, - 0.421310; 0.557885;, - 0.424949; 0.540899;, - 0.428126; 0.557885;, - 0.456235; 0.523806;, - 0.471963; 0.523734;, - 0.467713; 0.540810;, - 0.467713; 0.540810;, - 0.451986; 0.540881;, - 0.456235; 0.523806;, - 0.451986; 0.540881;, - 0.467713; 0.540810;, - 0.463463; 0.557885;, - 0.440508; 0.523877;, - 0.456235; 0.523806;, - 0.451986; 0.540881;, - 0.437725; 0.540881;, - 0.440508; 0.523877;, - 0.451985; 0.540881;, - 0.451985; 0.540881;, - 0.449203; 0.557885;, - 0.437725; 0.540881;, - 0.449203; 0.557885;, - 0.451985; 0.540881;, - 0.463463; 0.557885;, - 0.434942; 0.557885;, - 0.437725; 0.540881;, - 0.449203; 0.557885;, - 0.440507; 0.519961;, - 0.440507; 0.516046;, - 0.456186; 0.516419;, - 0.456186; 0.516419;, - 0.456186; 0.520334;, - 0.440507; 0.519961;, - 0.456186; 0.520334;, - 0.456186; 0.516419;, - 0.471865; 0.516792;, - 0.440508; 0.523877;, - 0.440507; 0.519961;, - 0.456186; 0.520334;, - 0.456235; 0.523806;, - 0.440508; 0.523877;, - 0.456186; 0.520335;, - 0.456186; 0.520335;, - 0.471914; 0.520263;, - 0.456235; 0.523806;, - 0.471914; 0.520263;, - 0.456186; 0.520335;, - 0.471865; 0.516792;, - 0.471963; 0.523734;, - 0.456235; 0.523806;, - 0.471914; 0.520263;, - 0.434548; 0.523895;, - 0.428588; 0.523913;, - 0.428589; 0.521141;, - 0.428589; 0.521141;, - 0.434549; 0.521124;, - 0.434548; 0.523895;, - 0.434549; 0.521124;, - 0.428589; 0.521141;, - 0.428591; 0.518370;, - 0.440508; 0.523877;, - 0.434548; 0.523895;, - 0.434549; 0.521124;, - 0.440507; 0.519961;, - 0.440508; 0.523877;, - 0.434549; 0.521124;, - 0.434549; 0.521124;, - 0.434549; 0.517208;, - 0.440507; 0.519961;, - 0.434549; 0.517208;, - 0.434549; 0.521124;, - 0.428591; 0.518370;, - 0.440507; 0.516046;, - 0.440507; 0.519961;, - 0.434549; 0.517208;, - 0.428126; 0.557885;, - 0.434942; 0.557885;, - 0.434943; 0.569025;, - 0.434943; 0.569025;, - 0.428127; 0.569025;, - 0.428126; 0.557885;, - 0.428127; 0.569025;, - 0.434943; 0.569025;, - 0.434944; 0.580165;, - 0.421310; 0.557885;, - 0.428126; 0.557885;, - 0.428127; 0.569025;, - 0.421310; 0.569043;, - 0.421310; 0.557885;, - 0.428127; 0.569025;, - 0.428127; 0.569025;, - 0.428127; 0.580182;, - 0.421310; 0.569043;, - 0.428127; 0.580182;, - 0.428127; 0.569025;, - 0.434944; 0.580165;, - 0.421310; 0.580200;, - 0.421310; 0.569043;, - 0.428127; 0.580182;, - 0.449203; 0.557885;, - 0.463463; 0.557885;, - 0.463451; 0.568980;, - 0.463451; 0.568980;, - 0.449191; 0.568980;, - 0.449203; 0.557885;, - 0.449191; 0.568980;, - 0.463451; 0.568980;, - 0.463439; 0.580074;, - 0.434942; 0.557885;, - 0.449203; 0.557885;, - 0.449191; 0.568980;, - 0.434943; 0.569025;, - 0.434942; 0.557885;, - 0.449191; 0.568980;, - 0.449191; 0.568980;, - 0.449192; 0.580120;, - 0.434943; 0.569025;, - 0.449192; 0.580120;, - 0.449191; 0.568980;, - 0.463439; 0.580074;, - 0.434944; 0.580165;, - 0.434943; 0.569025;, - 0.449192; 0.580120;, - 0.413244; 0.634674;, - 0.404792; 0.634665;, - 0.404787; 0.616522;, - 0.404787; 0.616522;, - 0.413240; 0.616531;, - 0.413244; 0.634674;, - 0.413240; 0.616531;, - 0.404787; 0.616522;, - 0.404783; 0.598379;, - 0.421696; 0.634682;, - 0.413244; 0.634674;, - 0.413240; 0.616531;, - 0.421567; 0.616408;, - 0.421696; 0.634682;, - 0.413240; 0.616531;, - 0.413240; 0.616531;, - 0.413110; 0.598256;, - 0.421567; 0.616408;, - 0.413110; 0.598256;, - 0.413240; 0.616531;, - 0.404783; 0.598379;, - 0.421437; 0.598133;, - 0.421567; 0.616408;, - 0.413110; 0.598256;, - 0.404781; 0.589159;, - 0.404779; 0.579939;, - 0.413044; 0.580069;, - 0.413044; 0.580069;, - 0.413047; 0.589290;, - 0.404781; 0.589159;, - 0.413047; 0.589290;, - 0.413044; 0.580069;, - 0.421310; 0.580200;, - 0.404783; 0.598379;, - 0.404781; 0.589159;, - 0.413047; 0.589290;, - 0.413110; 0.598256;, - 0.404783; 0.598379;, - 0.413047; 0.589290;, - 0.413047; 0.589290;, - 0.421373; 0.589166;, - 0.413110; 0.598256;, - 0.421373; 0.589166;, - 0.413047; 0.589290;, - 0.421310; 0.580200;, - 0.421437; 0.598133;, - 0.413110; 0.598256;, - 0.421373; 0.589166;, - 0.286440; 0.644041;, - 0.155956; 0.647482;, - 0.155956; 0.628748;, - 0.155956; 0.628748;, - 0.286440; 0.625306;, - 0.286440; 0.644041;, - 0.286440; 0.625306;, - 0.155956; 0.628748;, - 0.155956; 0.610013;, - 0.416925; 0.640600;, - 0.286440; 0.644041;, - 0.286440; 0.625306;, - 0.416920; 0.619004;, - 0.416925; 0.640600;, - 0.286440; 0.625306;, - 0.286440; 0.625306;, - 0.286435; 0.603710;, - 0.416920; 0.619004;, - 0.286435; 0.603710;, - 0.286440; 0.625306;, - 0.155956; 0.610013;, - 0.416915; 0.597408;, - 0.416920; 0.619004;, - 0.286435; 0.603710;, - 0.075570; 0.510555;, - 0.155956; 0.507686;, - 0.077788; 0.540113;, - 0.077788; 0.540113;, - -0.002598; 0.542983;, - 0.075570; 0.510555;, - -0.002598; 0.542983;, - 0.077788; 0.540113;, - -0.000380; 0.572541;, - -0.004815; 0.513424;, - 0.075570; 0.510555;, - -0.002598; 0.542983;, - 0.077788; 0.540114;, - 0.155956; 0.507686;, - 0.155956; 0.537488;, - 0.155956; 0.537488;, - 0.077788; 0.569915;, - 0.077788; 0.540114;, - 0.077788; 0.569915;, - 0.155956; 0.537488;, - 0.155956; 0.567290;, - -0.000380; 0.572541;, - 0.077788; 0.540114;, - 0.077788; 0.569915;, - 0.523582; 0.534635;, - 0.521628; 0.537004;, - 0.508720; 0.526340;, - 0.508720; 0.526340;, - 0.510674; 0.523971;, - 0.523582; 0.534635;, - 0.510674; 0.523971;, - 0.508720; 0.526340;, - 0.495813; 0.515676;, - 0.525535; 0.532267;, - 0.523582; 0.534635;, - 0.510674; 0.523971;, - 0.512348; 0.521039;, - 0.525535; 0.532267;, - 0.510674; 0.523971;, - 0.510674; 0.523971;, - 0.497487; 0.512744;, - 0.512348; 0.521039;, - 0.497487; 0.512744;, - 0.510674; 0.523971;, - 0.495813; 0.515676;, - 0.499161; 0.509812;, - 0.512348; 0.521039;, - 0.497487; 0.512744;, - 0.497487; 0.512744;, - 0.495813; 0.515676;, - 0.486249; 0.507775;, - 0.486249; 0.507775;, - 0.487923; 0.504843;, - 0.497487; 0.512744;, - 0.487923; 0.504843;, - 0.486249; 0.507775;, - 0.476685; 0.499874;, - 0.499161; 0.509812;, - 0.497487; 0.512744;, - 0.487923; 0.504843;, - 0.489976; 0.501937;, - 0.499161; 0.509812;, - 0.487923; 0.504843;, - 0.487923; 0.504843;, - 0.478738; 0.496968;, - 0.489976; 0.501937;, - 0.478738; 0.496968;, - 0.487923; 0.504843;, - 0.476685; 0.499874;, - 0.480791; 0.494061;, - 0.489976; 0.501937;, - 0.478738; 0.496968;, - 0.512348; 0.521039;, - 0.499161; 0.509812;, - 0.507537; 0.497030;, - 0.507537; 0.497030;, - 0.520724; 0.508257;, - 0.512348; 0.521039;, - 0.520724; 0.508257;, - 0.507537; 0.497030;, - 0.515913; 0.484247;, - 0.525535; 0.532267;, - 0.512348; 0.521039;, - 0.520724; 0.508257;, - 0.539178; 0.524075;, - 0.525535; 0.532267;, - 0.520724; 0.508257;, - 0.520724; 0.508257;, - 0.534367; 0.500065;, - 0.539178; 0.524075;, - 0.534367; 0.500065;, - 0.520724; 0.508257;, - 0.515913; 0.484247;, - 0.552822; 0.515884;, - 0.539178; 0.524075;, - 0.534367; 0.500065;, - 0.498868; 0.457124;, - 0.504590; 0.449516;, - 0.516361; 0.459183;, - 0.516361; 0.459183;, - 0.510638; 0.466791;, - 0.498868; 0.457124;, - 0.510638; 0.466791;, - 0.516361; 0.459183;, - 0.528131; 0.468850;, - 0.493145; 0.464732;, - 0.498868; 0.457124;, - 0.510638; 0.466791;, - 0.504529; 0.474490;, - 0.493145; 0.464732;, - 0.510638; 0.466791;, - 0.510638; 0.466791;, - 0.522022; 0.476549;, - 0.504529; 0.474490;, - 0.522022; 0.476549;, - 0.510638; 0.466791;, - 0.528131; 0.468850;, - 0.515913; 0.484247;, - 0.504529; 0.474490;, - 0.522022; 0.476549;, - 0.413042; 0.557885;, - 0.404774; 0.557885;, - 0.409570; 0.540899;, - 0.409570; 0.540899;, - 0.417838; 0.540899;, - 0.413042; 0.557885;, - 0.417838; 0.540899;, - 0.409570; 0.540899;, - 0.414366; 0.523913;, - 0.421310; 0.557885;, - 0.413042; 0.557885;, - 0.417838; 0.540899;, - 0.424949; 0.540899;, - 0.421310; 0.557885;, - 0.417838; 0.540899;, - 0.417838; 0.540899;, - 0.421477; 0.523913;, - 0.424949; 0.540899;, - 0.421477; 0.523913;, - 0.417838; 0.540899;, - 0.414366; 0.523913;, - 0.428588; 0.523913;, - 0.424949; 0.540899;, - 0.421477; 0.523913;, - 0.404776; 0.568912;, - 0.404774; 0.557885;, - 0.413042; 0.557885;, - 0.413042; 0.557885;, - 0.413044; 0.568912;, - 0.404776; 0.568912;, - 0.413044; 0.568912;, - 0.413042; 0.557885;, - 0.421310; 0.557885;, - 0.404779; 0.579939;, - 0.404776; 0.568912;, - 0.413044; 0.568912;, - 0.413044; 0.580069;, - 0.404779; 0.579939;, - 0.413044; 0.568912;, - 0.413044; 0.568912;, - 0.421310; 0.569043;, - 0.413044; 0.580069;, - 0.421310; 0.569043;, - 0.413044; 0.568912;, - 0.421310; 0.557885;, - 0.421310; 0.580200;, - 0.413044; 0.580069;, - 0.421310; 0.569043;, - 0.507537; 0.497030;, - 0.499161; 0.509812;, - 0.489976; 0.501937;, - 0.489976; 0.501937;, - 0.498352; 0.489154;, - 0.507537; 0.497030;, - 0.498352; 0.489154;, - 0.489976; 0.501937;, - 0.480791; 0.494061;, - 0.515913; 0.484247;, - 0.507537; 0.497030;, - 0.498352; 0.489154;, - 0.504529; 0.474490;, - 0.515913; 0.484247;, - 0.498352; 0.489154;, - 0.498352; 0.489154;, - 0.486968; 0.479397;, - 0.504529; 0.474490;, - 0.486968; 0.479397;, - 0.498352; 0.489154;, - 0.480791; 0.494061;, - 0.493145; 0.464732;, - 0.504529; 0.474490;, - 0.486968; 0.479397;, - 0.522022; 0.476549;, - 0.528131; 0.468850;, - 0.546872; 0.484928;, - 0.546872; 0.484928;, - 0.540762; 0.492627;, - 0.522022; 0.476549;, - 0.540762; 0.492627;, - 0.546872; 0.484928;, - 0.565612; 0.501006;, - 0.515913; 0.484247;, - 0.522022; 0.476549;, - 0.540762; 0.492627;, - 0.534367; 0.500065;, - 0.515913; 0.484247;, - 0.540762; 0.492627;, - 0.540762; 0.492627;, - 0.559217; 0.508445;, - 0.534367; 0.500065;, - 0.559217; 0.508445;, - 0.540762; 0.492627;, - 0.565612; 0.501006;, - 0.552822; 0.515884;, - 0.534367; 0.500065;, - 0.559217; 0.508445;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.286429; 0.558248;, - 0.155956; 0.567290;, - 0.155956; 0.537488;, - 0.155956; 0.537488;, - 0.286429; 0.528446;, - 0.286429; 0.558248;, - 0.286429; 0.528446;, - 0.155956; 0.537488;, - 0.155956; 0.507686;, - 0.416903; 0.549206;, - 0.286429; 0.558248;, - 0.286429; 0.528446;, - 0.422725; 0.528986;, - 0.416903; 0.549206;, - 0.286429; 0.528446;, - 0.286429; 0.528446;, - 0.292252; 0.508227;, - 0.422725; 0.528986;, - 0.292252; 0.508227;, - 0.286429; 0.528446;, - 0.155956; 0.507686;, - 0.428548; 0.508767;, - 0.422725; 0.528986;, - 0.292252; 0.508227;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.471263; 0.985793;, - 0.466074; 0.981569;, - 0.467025; 0.958309;, - 0.467025; 0.958309;, - 0.472214; 0.962532;, - 0.471263; 0.985793;, - 0.472214; 0.962532;, - 0.467025; 0.958309;, - 0.467976; 0.935048;, - 0.476452; 0.990016;, - 0.471263; 0.985793;, - 0.472214; 0.962532;, - 0.478200; 0.966194;, - 0.476452; 0.990016;, - 0.472214; 0.962532;, - 0.472214; 0.962532;, - 0.473962; 0.938710;, - 0.478200; 0.966194;, - 0.473962; 0.938710;, - 0.472214; 0.962532;, - 0.467976; 0.935048;, - 0.479947; 0.942371;, - 0.478200; 0.966194;, - 0.473962; 0.938710;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.204210; 0.016510;, - 0.204656; 0.016864;, - 0.203597; 0.016727;, - 0.203597; 0.016727;, - 0.203151; 0.016373;, - 0.204210; 0.016510;, - 0.203151; 0.016373;, - 0.203597; 0.016727;, - 0.202539; 0.016590;, - 0.203763; 0.016157;, - 0.204210; 0.016510;, - 0.203151; 0.016373;, - 0.202878; 0.016099;, - 0.203763; 0.016157;, - 0.203151; 0.016373;, - 0.203151; 0.016373;, - 0.202265; 0.016315;, - 0.202878; 0.016099;, - 0.202265; 0.016315;, - 0.203151; 0.016373;, - 0.202539; 0.016590;, - 0.201992; 0.016041;, - 0.202878; 0.016099;, - 0.202265; 0.016315;, - 0.480627; 0.946288;, - 0.480627; 0.950760;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.946288;, - 0.480627; 0.950760;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.480627; 0.950760;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.480627; 0.950760;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.955232;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.489571; 0.946288;, - 0.485099; 0.955232;, - 0.489571; 0.955232;, - 0.489571; 0.950760;, - 0.202265; 0.016315;, - 0.202539; 0.016590;, - 0.201339; 0.016549;, - 0.201339; 0.016549;, - 0.201066; 0.016274;, - 0.202265; 0.016315;, - 0.201066; 0.016274;, - 0.201339; 0.016549;, - 0.200140; 0.016508;, - 0.201992; 0.016041;, - 0.202265; 0.016315;, - 0.201066; 0.016274;, - 0.201066; 0.016009;, - 0.201992; 0.016041;, - 0.201066; 0.016274;, - 0.201066; 0.016274;, - 0.200140; 0.016243;, - 0.201066; 0.016009;, - 0.200140; 0.016243;, - 0.201066; 0.016274;, - 0.200140; 0.016508;, - 0.201066; 0.016009;, - 0.200140; 0.015978;, - 0.200140; 0.016243;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.447530; 0.300262;, - 0.447530; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.300262;, - 0.447530; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.295790;, - 0.456475; 0.295790;, - 0.447530; 0.304734;, - 0.447530; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.304734;, - 0.447530; 0.304734;, - 0.452002; 0.300262;, - 0.452002; 0.300262;, - 0.456475; 0.300262;, - 0.452002; 0.304734;, - 0.456475; 0.300262;, - 0.452002; 0.300262;, - 0.456475; 0.295790;, - 0.456475; 0.304734;, - 0.452002; 0.304734;, - 0.456475; 0.300262;, - 0.446283; 0.300260;, - 0.446283; 0.295788;, - 0.450755; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.304732;, - 0.446283; 0.300260;, - 0.450755; 0.304732;, - 0.450755; 0.300260;, - 0.455227; 0.304732;, - 0.446283; 0.304732;, - 0.446283; 0.300260;, - 0.450755; 0.304732;, - 0.450755; 0.300260;, - 0.446283; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.295788;, - 0.455227; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.300260;, - 0.450755; 0.295788;, - 0.455227; 0.295788;, - 0.455227; 0.304732;, - 0.450755; 0.300260;, - 0.455227; 0.300260;, - 0.480627; 0.946288;, - 0.480627; 0.950760;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.480627; 0.950760;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.447530; 0.300262;, - 0.447530; 0.295790;, - 0.452002; 0.300262;, - 0.452002; 0.300262;, - 0.452002; 0.304734;, - 0.447530; 0.300262;, - 0.452002; 0.304734;, - 0.452002; 0.300262;, - 0.456475; 0.304734;, - 0.447530; 0.304734;, - 0.447530; 0.300262;, - 0.452002; 0.304734;, - 0.452002; 0.300262;, - 0.447530; 0.295790;, - 0.452002; 0.295790;, - 0.452002; 0.295790;, - 0.456475; 0.300262;, - 0.452002; 0.300262;, - 0.456475; 0.300262;, - 0.452002; 0.295790;, - 0.456475; 0.295790;, - 0.456475; 0.304734;, - 0.452002; 0.300262;, - 0.456475; 0.300262;, - 0.446283; 0.300260;, - 0.446283; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.295788;, - 0.450755; 0.300260;, - 0.446283; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.295788;, - 0.455227; 0.295788;, - 0.446283; 0.304732;, - 0.446283; 0.300260;, - 0.450755; 0.300260;, - 0.450755; 0.304732;, - 0.446283; 0.304732;, - 0.450755; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.300260;, - 0.450755; 0.304732;, - 0.455227; 0.300260;, - 0.450755; 0.300260;, - 0.455227; 0.295788;, - 0.455227; 0.304732;, - 0.450755; 0.304732;, - 0.455227; 0.300260;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627458; 0.885274;, - 0.627458; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885342;, - 0.627390; 0.885274;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885342;, - 0.627322; 0.885342;, - 0.627458; 0.885206;, - 0.627458; 0.885274;, - 0.627390; 0.885274;, - 0.627390; 0.885206;, - 0.627458; 0.885206;, - 0.627390; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885274;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.627390; 0.885274;, - 0.627322; 0.885342;, - 0.627322; 0.885206;, - 0.627390; 0.885206;, - 0.627322; 0.885274;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.950760;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.955232;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.955232;, - 0.489571; 0.950760;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.445840; 0.901672;, - 0.445626; 0.928051;, - 0.425792; 0.928083;, - 0.425792; 0.928083;, - 0.426006; 0.901705;, - 0.445840; 0.901672;, - 0.426006; 0.901705;, - 0.425792; 0.928083;, - 0.405959; 0.928115;, - 0.446054; 0.875294;, - 0.445840; 0.901672;, - 0.426006; 0.901705;, - 0.426004; 0.875306;, - 0.446054; 0.875294;, - 0.426006; 0.901705;, - 0.426006; 0.901705;, - 0.405957; 0.901716;, - 0.426004; 0.875306;, - 0.405957; 0.901716;, - 0.426006; 0.901705;, - 0.405959; 0.928115;, - 0.405955; 0.875318;, - 0.426004; 0.875306;, - 0.405957; 0.901716;, - 0.445414; 0.952830;, - 0.445202; 0.977610;, - 0.425581; 0.952863;, - 0.425581; 0.952863;, - 0.425792; 0.928083;, - 0.445414; 0.952830;, - 0.425792; 0.928083;, - 0.425581; 0.952863;, - 0.405959; 0.928115;, - 0.445626; 0.928051;, - 0.445414; 0.952830;, - 0.425792; 0.928083;, - 0.425581; 0.952863;, - 0.445202; 0.977610;, - 0.425583; 0.977402;, - 0.425583; 0.977402;, - 0.405961; 0.952655;, - 0.425581; 0.952863;, - 0.405961; 0.952655;, - 0.425583; 0.977402;, - 0.405964; 0.977194;, - 0.405959; 0.928115;, - 0.425581; 0.952863;, - 0.405961; 0.952655;, - 0.450536; 0.300987;, - 0.450536; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300502;, - 0.451021; 0.300987;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.300502;, - 0.451506; 0.300502;, - 0.450536; 0.301472;, - 0.450536; 0.300987;, - 0.451021; 0.300987;, - 0.451021; 0.301472;, - 0.450536; 0.301472;, - 0.451021; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300987;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.451021; 0.300987;, - 0.451506; 0.300502;, - 0.451506; 0.301472;, - 0.451021; 0.301472;, - 0.451506; 0.300987;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.480627; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.950760;, - 0.485099; 0.950760;, - 0.485099; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.955232;, - 0.480627; 0.955232;, - 0.480627; 0.950760;, - 0.485099; 0.955232;, - 0.485099; 0.950760;, - 0.480627; 0.946288;, - 0.485099; 0.946288;, - 0.485099; 0.946288;, - 0.489571; 0.950760;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.485099; 0.946288;, - 0.489571; 0.946288;, - 0.489571; 0.955232;, - 0.485099; 0.950760;, - 0.489571; 0.950760;, - 0.163332; 0.622617;, - 0.169812; 0.622395;, - 0.174783; 0.666832;, - 0.173687; 0.710330;, - 0.167619; 0.709390;, - 0.165003; 0.694465;, - 0.173690; 0.534458;, - 0.179760; 0.533492;, - 0.174786; 0.577943;, - 0.163332; 0.622617;, - 0.156851; 0.622838;, - 0.159567; 0.594361;, - 0.156851; 0.622838;, - 0.163332; 0.622617;, - 0.174783; 0.666832;, - 0.179755; 0.711270;, - 0.179755; 0.711270;, - 0.159620; 0.651190;, - 0.156851; 0.622838;, - 0.179755; 0.711270;, - 0.162388; 0.679541;, - 0.159620; 0.651190;, - 0.179755; 0.711270;, - 0.173687; 0.710330;, - 0.165003; 0.694465;, - 0.162388; 0.679541;, - 0.167620; 0.535425;, - 0.173690; 0.534458;, - 0.174786; 0.577943;, - 0.169812; 0.622395;, - 0.169812; 0.622395;, - 0.164952; 0.550655;, - 0.167620; 0.535425;, - 0.169812; 0.622395;, - 0.162283; 0.565884;, - 0.164952; 0.550655;, - 0.169812; 0.622395;, - 0.163332; 0.622617;, - 0.159567; 0.594361;, - 0.162283; 0.565884;, - 0.627872; 0.878623;, - 0.598932; 0.839567;, - 0.581076; 0.863714;, - 0.627872; 0.878623;, - 0.674668; 0.863714;, - 0.656813; 0.839567;, - 0.605334; 0.848207;, - 0.588841; 0.866188;, - 0.603734; 0.846047;, - 0.605334; 0.909039;, - 0.603734; 0.911198;, - 0.588841; 0.891057;, - 0.591428; 0.890233;, - 0.592110; 0.890016;, - 0.605755; 0.908470;, - 0.591428; 0.890233;, - 0.605755; 0.908470;, - 0.605334; 0.909039;, - 0.588841; 0.891057;, - 0.605334; 0.848207;, - 0.605755; 0.848775;, - 0.591428; 0.867012;, - 0.588841; 0.866188;, - 0.581076; 0.893531;, - 0.598932; 0.917678;, - 0.627872; 0.878623;, - 0.581076; 0.863714;, - 0.674668; 0.893531;, - 0.674668; 0.863714;, - 0.627872; 0.878623;, - 0.656813; 0.917678;, - 0.627872; 0.926923;, - 0.656813; 0.917678;, - 0.627872; 0.878623;, - 0.598932; 0.917678;, - 0.627872; 0.878623;, - 0.656813; 0.839567;, - 0.627872; 0.830323;, - 0.598932; 0.839567;, - 0.664334; 0.829417;, - 0.662089; 0.832446;, - 0.674951; 0.845053;, - 0.678038; 0.842851;, - 0.674951; 0.845053;, - 0.683201; 0.860996;, - 0.686829; 0.859840;, - 0.678038; 0.842851;, - 0.683201; 0.860996;, - 0.674951; 0.845053;, - 0.671863; 0.847254;, - 0.679572; 0.862152;, - 0.662089; 0.832446;, - 0.659845; 0.835474;, - 0.671863; 0.847254;, - 0.674951; 0.845053;, - 0.686829; 0.859840;, - 0.683201; 0.860996;, - 0.686109; 0.878623;, - 0.689928; 0.878623;, - 0.686109; 0.878623;, - 0.683201; 0.896249;, - 0.686829; 0.897405;, - 0.689928; 0.878623;, - 0.683201; 0.896249;, - 0.686109; 0.878623;, - 0.682290; 0.878623;, - 0.679572; 0.895093;, - 0.683201; 0.860996;, - 0.679572; 0.862152;, - 0.682290; 0.878623;, - 0.686109; 0.878623;, - 0.627872; 0.830323;, - 0.656813; 0.839567;, - 0.659845; 0.835474;, - 0.627872; 0.825261;, - 0.674951; 0.912193;, - 0.678038; 0.914394;, - 0.686829; 0.897405;, - 0.683201; 0.896249;, - 0.674951; 0.912193;, - 0.662089; 0.924800;, - 0.664334; 0.927828;, - 0.678038; 0.914394;, - 0.662089; 0.924800;, - 0.674951; 0.912193;, - 0.671863; 0.909991;, - 0.659845; 0.921771;, - 0.671863; 0.909991;, - 0.674951; 0.912193;, - 0.683201; 0.896249;, - 0.679572; 0.895093;, - 0.659845; 0.921771;, - 0.656813; 0.917678;, - 0.627872; 0.926923;, - 0.627872; 0.931984;, - 0.627872; 0.814135;, - 0.648157; 0.817351;, - 0.649301; 0.813896;, - 0.627872; 0.810499;, - 0.649301; 0.813896;, - 0.648157; 0.817351;, - 0.666512; 0.826477;, - 0.668691; 0.823537;, - 0.648157; 0.817351;, - 0.647013; 0.820806;, - 0.664334; 0.829417;, - 0.666512; 0.826477;, - 0.627872; 0.802907;, - 0.651689; 0.806683;, - 0.654077; 0.799469;, - 0.627872; 0.795314;, - 0.654077; 0.799469;, - 0.651689; 0.806683;, - 0.673240; 0.817398;, - 0.677789; 0.811259;, - 0.651689; 0.806683;, - 0.649301; 0.813896;, - 0.668691; 0.823537;, - 0.673240; 0.817398;, - 0.627872; 0.810499;, - 0.649301; 0.813896;, - 0.651689; 0.806683;, - 0.627872; 0.802907;, - 0.681036; 0.840713;, - 0.684033; 0.838576;, - 0.668691; 0.823537;, - 0.666512; 0.826477;, - 0.693875; 0.857596;, - 0.684033; 0.838576;, - 0.681036; 0.840713;, - 0.690352; 0.858718;, - 0.690352; 0.858718;, - 0.681036; 0.840713;, - 0.678038; 0.842851;, - 0.686829; 0.859840;, - 0.677789; 0.811259;, - 0.673240; 0.817398;, - 0.690292; 0.834113;, - 0.696551; 0.829650;, - 0.690292; 0.834113;, - 0.701231; 0.855252;, - 0.708586; 0.852909;, - 0.696551; 0.829650;, - 0.701231; 0.855252;, - 0.690292; 0.834113;, - 0.684033; 0.838576;, - 0.693875; 0.857596;, - 0.673240; 0.817398;, - 0.668691; 0.823537;, - 0.684033; 0.838576;, - 0.690292; 0.834113;, - 0.678038; 0.842851;, - 0.681036; 0.840713;, - 0.666512; 0.826477;, - 0.664334; 0.829417;, - 0.693636; 0.878623;, - 0.697344; 0.878623;, - 0.693875; 0.857596;, - 0.690352; 0.858718;, - 0.693875; 0.899650;, - 0.697344; 0.878623;, - 0.693636; 0.878623;, - 0.690352; 0.898527;, - 0.690352; 0.898527;, - 0.693636; 0.878623;, - 0.689928; 0.878623;, - 0.686829; 0.897405;, - 0.708586; 0.852909;, - 0.701231; 0.855252;, - 0.705087; 0.878623;, - 0.712829; 0.878623;, - 0.705087; 0.878623;, - 0.701231; 0.901993;, - 0.708586; 0.904336;, - 0.712829; 0.878623;, - 0.701231; 0.901993;, - 0.705087; 0.878623;, - 0.697344; 0.878623;, - 0.693875; 0.899650;, - 0.701231; 0.855252;, - 0.693875; 0.857596;, - 0.697344; 0.878623;, - 0.705087; 0.878623;, - 0.689928; 0.878623;, - 0.693636; 0.878623;, - 0.690352; 0.858718;, - 0.686829; 0.859840;, - 0.627872; 0.793416;, - 0.654674; 0.797666;, - 0.655271; 0.795863;, - 0.627872; 0.791518;, - 0.655271; 0.795863;, - 0.654674; 0.797666;, - 0.678926; 0.809724;, - 0.680064; 0.808189;, - 0.654674; 0.797666;, - 0.654077; 0.799469;, - 0.677789; 0.811259;, - 0.678926; 0.809724;, - 0.627872; 0.791308;, - 0.655338; 0.795662;, - 0.655404; 0.795462;, - 0.627872; 0.791097;, - 0.655404; 0.795462;, - 0.655338; 0.795662;, - 0.680190; 0.808019;, - 0.680316; 0.807848;, - 0.655338; 0.795662;, - 0.655271; 0.795863;, - 0.680064; 0.808189;, - 0.680190; 0.808019;, - 0.627872; 0.791518;, - 0.655271; 0.795863;, - 0.655338; 0.795662;, - 0.627872; 0.791308;, - 0.698116; 0.828534;, - 0.699681; 0.827419;, - 0.680064; 0.808189;, - 0.678926; 0.809724;, - 0.712264; 0.851737;, - 0.699681; 0.827419;, - 0.698116; 0.828534;, - 0.710425; 0.852323;, - 0.710425; 0.852323;, - 0.698116; 0.828534;, - 0.696551; 0.829650;, - 0.708586; 0.852909;, - 0.680316; 0.807848;, - 0.680190; 0.808019;, - 0.699855; 0.827295;, - 0.700028; 0.827171;, - 0.699855; 0.827295;, - 0.712468; 0.851672;, - 0.712673; 0.851607;, - 0.700028; 0.827171;, - 0.712468; 0.851672;, - 0.699855; 0.827295;, - 0.699681; 0.827419;, - 0.712264; 0.851737;, - 0.680190; 0.808019;, - 0.680064; 0.808189;, - 0.699681; 0.827419;, - 0.699855; 0.827295;, - 0.696551; 0.829650;, - 0.698116; 0.828534;, - 0.678926; 0.809724;, - 0.677789; 0.811259;, - 0.714765; 0.878623;, - 0.716700; 0.878623;, - 0.712264; 0.851737;, - 0.710425; 0.852323;, - 0.712264; 0.905508;, - 0.716700; 0.878623;, - 0.714765; 0.878623;, - 0.710425; 0.904922;, - 0.710425; 0.904922;, - 0.714765; 0.878623;, - 0.712829; 0.878623;, - 0.708586; 0.904336;, - 0.712673; 0.851607;, - 0.712468; 0.851672;, - 0.716915; 0.878623;, - 0.717130; 0.878623;, - 0.716915; 0.878623;, - 0.712468; 0.905573;, - 0.712673; 0.905638;, - 0.717130; 0.878623;, - 0.712468; 0.905573;, - 0.716915; 0.878623;, - 0.716700; 0.878623;, - 0.712264; 0.905508;, - 0.712468; 0.851672;, - 0.712264; 0.851737;, - 0.716700; 0.878623;, - 0.716915; 0.878623;, - 0.712829; 0.878623;, - 0.714765; 0.878623;, - 0.710425; 0.852323;, - 0.708586; 0.852909;, - 0.627872; 0.795314;, - 0.654077; 0.799469;, - 0.654674; 0.797666;, - 0.627872; 0.793416;, - 0.681036; 0.916532;, - 0.684033; 0.918669;, - 0.693875; 0.899650;, - 0.690352; 0.898527;, - 0.681036; 0.916532;, - 0.666512; 0.930768;, - 0.668691; 0.933708;, - 0.684033; 0.918669;, - 0.664334; 0.927828;, - 0.666512; 0.930768;, - 0.681036; 0.916532;, - 0.678038; 0.914394;, - 0.690292; 0.923132;, - 0.696551; 0.927595;, - 0.708586; 0.904336;, - 0.701231; 0.901993;, - 0.690292; 0.923132;, - 0.673240; 0.939847;, - 0.677789; 0.945987;, - 0.696551; 0.927595;, - 0.673240; 0.939847;, - 0.690292; 0.923132;, - 0.684033; 0.918669;, - 0.668691; 0.933708;, - 0.684033; 0.918669;, - 0.690292; 0.923132;, - 0.701231; 0.901993;, - 0.693875; 0.899650;, - 0.666512; 0.930768;, - 0.648157; 0.939894;, - 0.649301; 0.943349;, - 0.668691; 0.933708;, - 0.649301; 0.943349;, - 0.648157; 0.939894;, - 0.627872; 0.943111;, - 0.627872; 0.946746;, - 0.648157; 0.939894;, - 0.647013; 0.936440;, - 0.627872; 0.939474;, - 0.627872; 0.943111;, - 0.673240; 0.939847;, - 0.651689; 0.950562;, - 0.654077; 0.957776;, - 0.677789; 0.945987;, - 0.654077; 0.957776;, - 0.651689; 0.950562;, - 0.627872; 0.954339;, - 0.627872; 0.961931;, - 0.651689; 0.950562;, - 0.649301; 0.943349;, - 0.627872; 0.946746;, - 0.627872; 0.954339;, - 0.651689; 0.950562;, - 0.673240; 0.939847;, - 0.668691; 0.933708;, - 0.649301; 0.943349;, - 0.648157; 0.939894;, - 0.666512; 0.930768;, - 0.664334; 0.927828;, - 0.647013; 0.936440;, - 0.698116; 0.928711;, - 0.699681; 0.929827;, - 0.712264; 0.905508;, - 0.710425; 0.904922;, - 0.680064; 0.949056;, - 0.699681; 0.929827;, - 0.698116; 0.928711;, - 0.678926; 0.947521;, - 0.678926; 0.947521;, - 0.698116; 0.928711;, - 0.696551; 0.927595;, - 0.677789; 0.945987;, - 0.712673; 0.905638;, - 0.712468; 0.905573;, - 0.699855; 0.929951;, - 0.700028; 0.930075;, - 0.700028; 0.930075;, - 0.699855; 0.929951;, - 0.680190; 0.949227;, - 0.680316; 0.949397;, - 0.680190; 0.949227;, - 0.699855; 0.929951;, - 0.699681; 0.929827;, - 0.680064; 0.949056;, - 0.712468; 0.905573;, - 0.712264; 0.905508;, - 0.699681; 0.929827;, - 0.699855; 0.929951;, - 0.678926; 0.947521;, - 0.654674; 0.959579;, - 0.655271; 0.961383;, - 0.680064; 0.949056;, - 0.655271; 0.961383;, - 0.654674; 0.959579;, - 0.627872; 0.963829;, - 0.627872; 0.965727;, - 0.654674; 0.959579;, - 0.654077; 0.957776;, - 0.627872; 0.961931;, - 0.627872; 0.963829;, - 0.680190; 0.949227;, - 0.655338; 0.961583;, - 0.655404; 0.961783;, - 0.680316; 0.949397;, - 0.655404; 0.961783;, - 0.655338; 0.961583;, - 0.627872; 0.965938;, - 0.627872; 0.966149;, - 0.655338; 0.961583;, - 0.655271; 0.961383;, - 0.627872; 0.965727;, - 0.627872; 0.965938;, - 0.655338; 0.961583;, - 0.680190; 0.949227;, - 0.680064; 0.949056;, - 0.655271; 0.961383;, - 0.654674; 0.959579;, - 0.678926; 0.947521;, - 0.677789; 0.945987;, - 0.654077; 0.957776;, - 0.696551; 0.927595;, - 0.698116; 0.928711;, - 0.710425; 0.904922;, - 0.708586; 0.904336;, - 0.678038; 0.914394;, - 0.681036; 0.916532;, - 0.690352; 0.898527;, - 0.686829; 0.897405;, - 0.627872; 0.817771;, - 0.647013; 0.820806;, - 0.648157; 0.817351;, - 0.627872; 0.814135;, - 0.591411; 0.927828;, - 0.593655; 0.924800;, - 0.580794; 0.912193;, - 0.577706; 0.914394;, - 0.580794; 0.912193;, - 0.572544; 0.896249;, - 0.568915; 0.897405;, - 0.577706; 0.914394;, - 0.572544; 0.896249;, - 0.580794; 0.912193;, - 0.583881; 0.909991;, - 0.576172; 0.895093;, - 0.593655; 0.924800;, - 0.595899; 0.921771;, - 0.583881; 0.909991;, - 0.580794; 0.912193;, - 0.568915; 0.897405;, - 0.572544; 0.896249;, - 0.569635; 0.878623;, - 0.565816; 0.878623;, - 0.569635; 0.878623;, - 0.572544; 0.860996;, - 0.568915; 0.859840;, - 0.565816; 0.878623;, - 0.572544; 0.860996;, - 0.569635; 0.878623;, - 0.573455; 0.878623;, - 0.576172; 0.862152;, - 0.572544; 0.896249;, - 0.576172; 0.895093;, - 0.573455; 0.878623;, - 0.569635; 0.878623;, - 0.627872; 0.926923;, - 0.598932; 0.917678;, - 0.595899; 0.921771;, - 0.627872; 0.931984;, - 0.580794; 0.845053;, - 0.577706; 0.842851;, - 0.568915; 0.859840;, - 0.572544; 0.860996;, - 0.580794; 0.845053;, - 0.593655; 0.832446;, - 0.591411; 0.829417;, - 0.577706; 0.842851;, - 0.593655; 0.832446;, - 0.580794; 0.845053;, - 0.583881; 0.847254;, - 0.595899; 0.835474;, - 0.583881; 0.847254;, - 0.580794; 0.845053;, - 0.572544; 0.860996;, - 0.576172; 0.862152;, - 0.595899; 0.835474;, - 0.598932; 0.839567;, - 0.627872; 0.830323;, - 0.627872; 0.825261;, - 0.627872; 0.943111;, - 0.607587; 0.939894;, - 0.606443; 0.943349;, - 0.627872; 0.946746;, - 0.589232; 0.930768;, - 0.587054; 0.933708;, - 0.606443; 0.943349;, - 0.607587; 0.939894;, - 0.591411; 0.927828;, - 0.589232; 0.930768;, - 0.607587; 0.939894;, - 0.608731; 0.936440;, - 0.627872; 0.954339;, - 0.604055; 0.950562;, - 0.601667; 0.957776;, - 0.627872; 0.961931;, - 0.601667; 0.957776;, - 0.604055; 0.950562;, - 0.582505; 0.939847;, - 0.577956; 0.945987;, - 0.604055; 0.950562;, - 0.606443; 0.943349;, - 0.587054; 0.933708;, - 0.582505; 0.939847;, - 0.627872; 0.946746;, - 0.606443; 0.943349;, - 0.604055; 0.950562;, - 0.627872; 0.954339;, - 0.574709; 0.916532;, - 0.571711; 0.918669;, - 0.587054; 0.933708;, - 0.589232; 0.930768;, - 0.574709; 0.916532;, - 0.565392; 0.898527;, - 0.561870; 0.899650;, - 0.571711; 0.918669;, - 0.565392; 0.898527;, - 0.574709; 0.916532;, - 0.577706; 0.914394;, - 0.568915; 0.897405;, - 0.565452; 0.923132;, - 0.559193; 0.927595;, - 0.577956; 0.945987;, - 0.582505; 0.939847;, - 0.565452; 0.923132;, - 0.554514; 0.901993;, - 0.547158; 0.904336;, - 0.559193; 0.927595;, - 0.554514; 0.901993;, - 0.565452; 0.923132;, - 0.571711; 0.918669;, - 0.561870; 0.899650;, - 0.571711; 0.918669;, - 0.565452; 0.923132;, - 0.582505; 0.939847;, - 0.587054; 0.933708;, - 0.574709; 0.916532;, - 0.589232; 0.930768;, - 0.591411; 0.927828;, - 0.577706; 0.914394;, - 0.562108; 0.878623;, - 0.558400; 0.878623;, - 0.561870; 0.899650;, - 0.565392; 0.898527;, - 0.562108; 0.878623;, - 0.565392; 0.858718;, - 0.561870; 0.857596;, - 0.558400; 0.878623;, - 0.565392; 0.858718;, - 0.562108; 0.878623;, - 0.565816; 0.878623;, - 0.568915; 0.859840;, - 0.550658; 0.878623;, - 0.542915; 0.878623;, - 0.547158; 0.904336;, - 0.554514; 0.901993;, - 0.550658; 0.878623;, - 0.554514; 0.855252;, - 0.547158; 0.852909;, - 0.542915; 0.878623;, - 0.554514; 0.855252;, - 0.550658; 0.878623;, - 0.558400; 0.878623;, - 0.561870; 0.857596;, - 0.558400; 0.878623;, - 0.550658; 0.878623;, - 0.554514; 0.901993;, - 0.561870; 0.899650;, - 0.565816; 0.878623;, - 0.562108; 0.878623;, - 0.565392; 0.898527;, - 0.568915; 0.897405;, - 0.627872; 0.963829;, - 0.601070; 0.959579;, - 0.600473; 0.961383;, - 0.627872; 0.965727;, - 0.600473; 0.961383;, - 0.601070; 0.959579;, - 0.576818; 0.947521;, - 0.575681; 0.949056;, - 0.601070; 0.959579;, - 0.601667; 0.957776;, - 0.577956; 0.945987;, - 0.576818; 0.947521;, - 0.627872; 0.965938;, - 0.600407; 0.961583;, - 0.600340; 0.961783;, - 0.627872; 0.966149;, - 0.600340; 0.961783;, - 0.600407; 0.961583;, - 0.575555; 0.949227;, - 0.575428; 0.949397;, - 0.600407; 0.961583;, - 0.600473; 0.961383;, - 0.575681; 0.949056;, - 0.575555; 0.949227;, - 0.627872; 0.965727;, - 0.600473; 0.961383;, - 0.600407; 0.961583;, - 0.627872; 0.965938;, - 0.557628; 0.928711;, - 0.556064; 0.929827;, - 0.575681; 0.949056;, - 0.576818; 0.947521;, - 0.543480; 0.905508;, - 0.556064; 0.929827;, - 0.557628; 0.928711;, - 0.545319; 0.904922;, - 0.545319; 0.904922;, - 0.557628; 0.928711;, - 0.559193; 0.927595;, - 0.547158; 0.904336;, - 0.575555; 0.949227;, - 0.555890; 0.929951;, - 0.555716; 0.930075;, - 0.575428; 0.949397;, - 0.555890; 0.929951;, - 0.543276; 0.905573;, - 0.543072; 0.905638;, - 0.555716; 0.930075;, - 0.543276; 0.905573;, - 0.555890; 0.929951;, - 0.556064; 0.929827;, - 0.543480; 0.905508;, - 0.575555; 0.949227;, - 0.575681; 0.949056;, - 0.556064; 0.929827;, - 0.555890; 0.929951;, - 0.559193; 0.927595;, - 0.557628; 0.928711;, - 0.576818; 0.947521;, - 0.577956; 0.945987;, - 0.540980; 0.878623;, - 0.539044; 0.878623;, - 0.543480; 0.905508;, - 0.545319; 0.904922;, - 0.543480; 0.851737;, - 0.539044; 0.878623;, - 0.540980; 0.878623;, - 0.545319; 0.852323;, - 0.545319; 0.852323;, - 0.540980; 0.878623;, - 0.542915; 0.878623;, - 0.547158; 0.852909;, - 0.543072; 0.905638;, - 0.543276; 0.905573;, - 0.538829; 0.878623;, - 0.538614; 0.878623;, - 0.538829; 0.878623;, - 0.543276; 0.851672;, - 0.543072; 0.851607;, - 0.538614; 0.878623;, - 0.543276; 0.851672;, - 0.538829; 0.878623;, - 0.539044; 0.878623;, - 0.543480; 0.851737;, - 0.543276; 0.905573;, - 0.543480; 0.905508;, - 0.539044; 0.878623;, - 0.538829; 0.878623;, - 0.542915; 0.878623;, - 0.540980; 0.878623;, - 0.545319; 0.904922;, - 0.547158; 0.904336;, - 0.627872; 0.961931;, - 0.601667; 0.957776;, - 0.601070; 0.959579;, - 0.627872; 0.963829;, - 0.574709; 0.840713;, - 0.571711; 0.838576;, - 0.561870; 0.857596;, - 0.565392; 0.858718;, - 0.574709; 0.840713;, - 0.589232; 0.826477;, - 0.587054; 0.823537;, - 0.571711; 0.838576;, - 0.591411; 0.829417;, - 0.589232; 0.826477;, - 0.574709; 0.840713;, - 0.577706; 0.842851;, - 0.565452; 0.834113;, - 0.559193; 0.829650;, - 0.547158; 0.852909;, - 0.554514; 0.855252;, - 0.565452; 0.834113;, - 0.582505; 0.817398;, - 0.577956; 0.811259;, - 0.559193; 0.829650;, - 0.582505; 0.817398;, - 0.565452; 0.834113;, - 0.571711; 0.838576;, - 0.587054; 0.823537;, - 0.571711; 0.838576;, - 0.565452; 0.834113;, - 0.554514; 0.855252;, - 0.561870; 0.857596;, - 0.589232; 0.826477;, - 0.607587; 0.817351;, - 0.606443; 0.813896;, - 0.587054; 0.823537;, - 0.606443; 0.813896;, - 0.607587; 0.817351;, - 0.627872; 0.814135;, - 0.627872; 0.810499;, - 0.607587; 0.817351;, - 0.608731; 0.820806;, - 0.627872; 0.817771;, - 0.627872; 0.814135;, - 0.582505; 0.817398;, - 0.604055; 0.806683;, - 0.601667; 0.799469;, - 0.577956; 0.811259;, - 0.601667; 0.799469;, - 0.604055; 0.806683;, - 0.627872; 0.802907;, - 0.627872; 0.795314;, - 0.604055; 0.806683;, - 0.606443; 0.813896;, - 0.627872; 0.810499;, - 0.627872; 0.802907;, - 0.604055; 0.806683;, - 0.582505; 0.817398;, - 0.587054; 0.823537;, - 0.606443; 0.813896;, - 0.607587; 0.817351;, - 0.589232; 0.826477;, - 0.591411; 0.829417;, - 0.608731; 0.820806;, - 0.557628; 0.828534;, - 0.556064; 0.827419;, - 0.543480; 0.851737;, - 0.545319; 0.852323;, - 0.557628; 0.828534;, - 0.576818; 0.809724;, - 0.575681; 0.808189;, - 0.556064; 0.827419;, - 0.576818; 0.809724;, - 0.557628; 0.828534;, - 0.559193; 0.829650;, - 0.577956; 0.811259;, - 0.555890; 0.827295;, - 0.555716; 0.827171;, - 0.543072; 0.851607;, - 0.543276; 0.851672;, - 0.555890; 0.827295;, - 0.575555; 0.808019;, - 0.575428; 0.807848;, - 0.555716; 0.827171;, - 0.575555; 0.808019;, - 0.555890; 0.827295;, - 0.556064; 0.827419;, - 0.575681; 0.808189;, - 0.556064; 0.827419;, - 0.555890; 0.827295;, - 0.543276; 0.851672;, - 0.543480; 0.851737;, - 0.576818; 0.809724;, - 0.601070; 0.797666;, - 0.600473; 0.795863;, - 0.575681; 0.808189;, - 0.600473; 0.795863;, - 0.601070; 0.797666;, - 0.627872; 0.793416;, - 0.627872; 0.791518;, - 0.601070; 0.797666;, - 0.601667; 0.799469;, - 0.627872; 0.795314;, - 0.627872; 0.793416;, - 0.575555; 0.808019;, - 0.600407; 0.795662;, - 0.600340; 0.795462;, - 0.575428; 0.807848;, - 0.600340; 0.795462;, - 0.600407; 0.795662;, - 0.627872; 0.791308;, - 0.627872; 0.791097;, - 0.600407; 0.795662;, - 0.600473; 0.795863;, - 0.627872; 0.791518;, - 0.627872; 0.791308;, - 0.600407; 0.795662;, - 0.575555; 0.808019;, - 0.575681; 0.808189;, - 0.600473; 0.795863;, - 0.601070; 0.797666;, - 0.576818; 0.809724;, - 0.577956; 0.811259;, - 0.601667; 0.799469;, - 0.559193; 0.829650;, - 0.557628; 0.828534;, - 0.545319; 0.852323;, - 0.547158; 0.852909;, - 0.577706; 0.842851;, - 0.574709; 0.840713;, - 0.565392; 0.858718;, - 0.568915; 0.859840;, - 0.607587; 0.939894;, - 0.627872; 0.943111;, - 0.627872; 0.939474;, - 0.608731; 0.936440;, - 0.627872; 0.870182;, - 0.625217; 0.870603;, - 0.622895; 0.863589;, - 0.627872; 0.862800;, - 0.622814; 0.871797;, - 0.618392; 0.865828;, - 0.622895; 0.863589;, - 0.625217; 0.870603;, - 0.622814; 0.871797;, - 0.625217; 0.870603;, - 0.627539; 0.877616;, - 0.622814; 0.871797;, - 0.620913; 0.873661;, - 0.614828; 0.869322;, - 0.618392; 0.865828;, - 0.620913; 0.873661;, - 0.619694; 0.876017;, - 0.612543; 0.873739;, - 0.614828; 0.869322;, - 0.619694; 0.876017;, - 0.620913; 0.873661;, - 0.626845; 0.878295;, - 0.620913; 0.873661;, - 0.622814; 0.871797;, - 0.627237; 0.877766;, - 0.619264; 0.878623;, - 0.611737; 0.878623;, - 0.612543; 0.873739;, - 0.619694; 0.876017;, - 0.619264; 0.878623;, - 0.619694; 0.881228;, - 0.612543; 0.883506;, - 0.611737; 0.878623;, - 0.619694; 0.881228;, - 0.619264; 0.878623;, - 0.626845; 0.878950;, - 0.619264; 0.878623;, - 0.619694; 0.876017;, - 0.626845; 0.878295;, - 0.627872; 0.849725;, - 0.618782; 0.851166;, - 0.616261; 0.843552;, - 0.627872; 0.841711;, - 0.616261; 0.843552;, - 0.618782; 0.851166;, - 0.610557; 0.855256;, - 0.605755; 0.848775;, - 0.618782; 0.851166;, - 0.621303; 0.858780;, - 0.615359; 0.861736;, - 0.610557; 0.855256;, - 0.604049; 0.861635;, - 0.597442; 0.856924;, - 0.605755; 0.848775;, - 0.610557; 0.855256;, - 0.592110; 0.867229;, - 0.597442; 0.856924;, - 0.604049; 0.861635;, - 0.599874; 0.869703;, - 0.599874; 0.869703;, - 0.604049; 0.861635;, - 0.610656; 0.866346;, - 0.607639; 0.872177;, - 0.610656; 0.866346;, - 0.604049; 0.861635;, - 0.610557; 0.855256;, - 0.615359; 0.861736;, - 0.598403; 0.878623;, - 0.590230; 0.878623;, - 0.592110; 0.867229;, - 0.599874; 0.869703;, - 0.592110; 0.890016;, - 0.590230; 0.878623;, - 0.598403; 0.878623;, - 0.599874; 0.887542;, - 0.599874; 0.887542;, - 0.598403; 0.878623;, - 0.606575; 0.878623;, - 0.607639; 0.885069;, - 0.606575; 0.878623;, - 0.598403; 0.878623;, - 0.599874; 0.869703;, - 0.607639; 0.872177;, - 0.627872; 0.857739;, - 0.621303; 0.858780;, - 0.618782; 0.851166;, - 0.627872; 0.849725;, - 0.620913; 0.883585;, - 0.614828; 0.887924;, - 0.612543; 0.883506;, - 0.619694; 0.881228;, - 0.620913; 0.883585;, - 0.622814; 0.885448;, - 0.618392; 0.891417;, - 0.614828; 0.887924;, - 0.622814; 0.885448;, - 0.620913; 0.883585;, - 0.627237; 0.879480;, - 0.622814; 0.885448;, - 0.625217; 0.886643;, - 0.622895; 0.893656;, - 0.618392; 0.891417;, - 0.627872; 0.887064;, - 0.627872; 0.894445;, - 0.622895; 0.893656;, - 0.625217; 0.886643;, - 0.627872; 0.887064;, - 0.625217; 0.886643;, - 0.627539; 0.879630;, - 0.625217; 0.886643;, - 0.622814; 0.885448;, - 0.627539; 0.879630;, - 0.604049; 0.895610;, - 0.597442; 0.900321;, - 0.592110; 0.890016;, - 0.599874; 0.887542;, - 0.597442; 0.900321;, - 0.604049; 0.895610;, - 0.610557; 0.901990;, - 0.605755; 0.908470;, - 0.610557; 0.901990;, - 0.604049; 0.895610;, - 0.610656; 0.890899;, - 0.615359; 0.895509;, - 0.610557; 0.901990;, - 0.618782; 0.906079;, - 0.616261; 0.913693;, - 0.605755; 0.908470;, - 0.616261; 0.913693;, - 0.618782; 0.906079;, - 0.627872; 0.907520;, - 0.627872; 0.915534;, - 0.618782; 0.906079;, - 0.621303; 0.898465;, - 0.627872; 0.899506;, - 0.627872; 0.907520;, - 0.618782; 0.906079;, - 0.610557; 0.901990;, - 0.615359; 0.895509;, - 0.621303; 0.898465;, - 0.610656; 0.890899;, - 0.604049; 0.895610;, - 0.599874; 0.887542;, - 0.607639; 0.885069;, - 0.620913; 0.883585;, - 0.619694; 0.881228;, - 0.626845; 0.878950;, - 0.627872; 0.841008;, - 0.605334; 0.848207;, - 0.603734; 0.846047;, - 0.627872; 0.838337;, - 0.591428; 0.867012;, - 0.591428; 0.890233;, - 0.588841; 0.891057;, - 0.588841; 0.866188;, - 0.591428; 0.867012;, - 0.592110; 0.867229;, - 0.592110; 0.890016;, - 0.591428; 0.890233;, - 0.627872; 0.838337;, - 0.603734; 0.846047;, - 0.602723; 0.844683;, - 0.627872; 0.836650;, - 0.603734; 0.846047;, - 0.588841; 0.866188;, - 0.587206; 0.865667;, - 0.602723; 0.844683;, - 0.588841; 0.866188;, - 0.603734; 0.846047;, - 0.603734; 0.846047;, - 0.588841; 0.866188;, - 0.587206; 0.865667;, - 0.588841; 0.866188;, - 0.588841; 0.891057;, - 0.587206; 0.891578;, - 0.588841; 0.891057;, - 0.588841; 0.866188;, - 0.588841; 0.866188;, - 0.588841; 0.891057;, - 0.627872; 0.838337;, - 0.603734; 0.846047;, - 0.603734; 0.846047;, - 0.627872; 0.838337;, - 0.603734; 0.911198;, - 0.605334; 0.909039;, - 0.627872; 0.916238;, - 0.627872; 0.918909;, - 0.605334; 0.909039;, - 0.605755; 0.908470;, - 0.627872; 0.915534;, - 0.627872; 0.916238;, - 0.587206; 0.891578;, - 0.588841; 0.891057;, - 0.603734; 0.911198;, - 0.602723; 0.912563;, - 0.602723; 0.912563;, - 0.603734; 0.911198;, - 0.627872; 0.918909;, - 0.627872; 0.920596;, - 0.627872; 0.918909;, - 0.603734; 0.911198;, - 0.603734; 0.911198;, - 0.627872; 0.918909;, - 0.603734; 0.911198;, - 0.588841; 0.891057;, - 0.588841; 0.891057;, - 0.603734; 0.911198;, - 0.627872; 0.841711;, - 0.605755; 0.848775;, - 0.605334; 0.848207;, - 0.627872; 0.841008;, - 0.627872; 0.887064;, - 0.630527; 0.886643;, - 0.632849; 0.893656;, - 0.627872; 0.894445;, - 0.632930; 0.885448;, - 0.637353; 0.891417;, - 0.632849; 0.893656;, - 0.630527; 0.886643;, - 0.632930; 0.885448;, - 0.630527; 0.886643;, - 0.628206; 0.879630;, - 0.634831; 0.883585;, - 0.640916; 0.887924;, - 0.637353; 0.891417;, - 0.632930; 0.885448;, - 0.634831; 0.883585;, - 0.636050; 0.881228;, - 0.643202; 0.883506;, - 0.640916; 0.887924;, - 0.636050; 0.881228;, - 0.634831; 0.883585;, - 0.628899; 0.878950;, - 0.634831; 0.883585;, - 0.632930; 0.885448;, - 0.628507; 0.879480;, - 0.636480; 0.878623;, - 0.644008; 0.878623;, - 0.643202; 0.883506;, - 0.636050; 0.881228;, - 0.636480; 0.878623;, - 0.636050; 0.876017;, - 0.643202; 0.873739;, - 0.644008; 0.878623;, - 0.636050; 0.876017;, - 0.636480; 0.878623;, - 0.628899; 0.878295;, - 0.636480; 0.878623;, - 0.636050; 0.881228;, - 0.628899; 0.878950;, - 0.627872; 0.907520;, - 0.636962; 0.906079;, - 0.639483; 0.913693;, - 0.627872; 0.915534;, - 0.639483; 0.913693;, - 0.636962; 0.906079;, - 0.645187; 0.901990;, - 0.649989; 0.908470;, - 0.636962; 0.906079;, - 0.634441; 0.898465;, - 0.640385; 0.895509;, - 0.645187; 0.901990;, - 0.645187; 0.901990;, - 0.651695; 0.895610;, - 0.658302; 0.900321;, - 0.649989; 0.908470;, - 0.663634; 0.890016;, - 0.658302; 0.900321;, - 0.651695; 0.895610;, - 0.655870; 0.887542;, - 0.655870; 0.887542;, - 0.651695; 0.895610;, - 0.645089; 0.890899;, - 0.648106; 0.885069;, - 0.645089; 0.890899;, - 0.651695; 0.895610;, - 0.645187; 0.901990;, - 0.640385; 0.895509;, - 0.657342; 0.878623;, - 0.665514; 0.878623;, - 0.663634; 0.890016;, - 0.655870; 0.887542;, - 0.663634; 0.867229;, - 0.665514; 0.878623;, - 0.657342; 0.878623;, - 0.655870; 0.869703;, - 0.655870; 0.869703;, - 0.657342; 0.878623;, - 0.649169; 0.878623;, - 0.648106; 0.872177;, - 0.649169; 0.878623;, - 0.657342; 0.878623;, - 0.655870; 0.887542;, - 0.648106; 0.885069;, - 0.627872; 0.899506;, - 0.634441; 0.898465;, - 0.636962; 0.906079;, - 0.627872; 0.907520;, - 0.634831; 0.873661;, - 0.640916; 0.869322;, - 0.643202; 0.873739;, - 0.636050; 0.876017;, - 0.632930; 0.871797;, - 0.637353; 0.865828;, - 0.640916; 0.869322;, - 0.634831; 0.873661;, - 0.632930; 0.871797;, - 0.634831; 0.873661;, - 0.628507; 0.877766;, - 0.632930; 0.871797;, - 0.630527; 0.870603;, - 0.632849; 0.863589;, - 0.637353; 0.865828;, - 0.632849; 0.863589;, - 0.630527; 0.870603;, - 0.627872; 0.870182;, - 0.627872; 0.862800;, - 0.630527; 0.870603;, - 0.628206; 0.877616;, - 0.627872; 0.870182;, - 0.630527; 0.870603;, - 0.632930; 0.871797;, - 0.628206; 0.877616;, - 0.651695; 0.861635;, - 0.658302; 0.856924;, - 0.663634; 0.867229;, - 0.655870; 0.869703;, - 0.651695; 0.861635;, - 0.645187; 0.855256;, - 0.649989; 0.848775;, - 0.658302; 0.856924;, - 0.645187; 0.855256;, - 0.651695; 0.861635;, - 0.645089; 0.866346;, - 0.640385; 0.861736;, - 0.645187; 0.855256;, - 0.636962; 0.851166;, - 0.639483; 0.843552;, - 0.649989; 0.848775;, - 0.639483; 0.843552;, - 0.636962; 0.851166;, - 0.627872; 0.849725;, - 0.627872; 0.841711;, - 0.636962; 0.851166;, - 0.634441; 0.858780;, - 0.627872; 0.857739;, - 0.627872; 0.849725;, - 0.636962; 0.851166;, - 0.645187; 0.855256;, - 0.640385; 0.861736;, - 0.634441; 0.858780;, - 0.645089; 0.866346;, - 0.651695; 0.861635;, - 0.655870; 0.869703;, - 0.648106; 0.872177;, - 0.634831; 0.873661;, - 0.636050; 0.876017;, - 0.628899; 0.878295;, - 0.627872; 0.916238;, - 0.650410; 0.909039;, - 0.652011; 0.911198;, - 0.627872; 0.918909;, - 0.650410; 0.909039;, - 0.664316; 0.890233;, - 0.666904; 0.891057;, - 0.652011; 0.911198;, - 0.664316; 0.890233;, - 0.650410; 0.909039;, - 0.649989; 0.908470;, - 0.663634; 0.890016;, - 0.664316; 0.867012;, - 0.666904; 0.866188;, - 0.666904; 0.891057;, - 0.664316; 0.890233;, - 0.664316; 0.867012;, - 0.664316; 0.890233;, - 0.663634; 0.890016;, - 0.663634; 0.867229;, - 0.627872; 0.918909;, - 0.652011; 0.911198;, - 0.653022; 0.912563;, - 0.627872; 0.920596;, - 0.652011; 0.911198;, - 0.666904; 0.891057;, - 0.668538; 0.891578;, - 0.653022; 0.912563;, - 0.666904; 0.891057;, - 0.652011; 0.911198;, - 0.652011; 0.911198;, - 0.666904; 0.891057;, - 0.666904; 0.891057;, - 0.666904; 0.866188;, - 0.668538; 0.865667;, - 0.668538; 0.891578;, - 0.666904; 0.866188;, - 0.666904; 0.891057;, - 0.666904; 0.891057;, - 0.666904; 0.866188;, - 0.627872; 0.918909;, - 0.652011; 0.911198;, - 0.652011; 0.911198;, - 0.627872; 0.918909;, - 0.650410; 0.848207;, - 0.652011; 0.846047;, - 0.666904; 0.866188;, - 0.664316; 0.867012;, - 0.652011; 0.846047;, - 0.650410; 0.848207;, - 0.627872; 0.841008;, - 0.627872; 0.838337;, - 0.650410; 0.848207;, - 0.649989; 0.848775;, - 0.627872; 0.841711;, - 0.627872; 0.841008;, - 0.652011; 0.846047;, - 0.653022; 0.844683;, - 0.668538; 0.865667;, - 0.666904; 0.866188;, - 0.653022; 0.844683;, - 0.652011; 0.846047;, - 0.627872; 0.838337;, - 0.627872; 0.836650;, - 0.627872; 0.838337;, - 0.652011; 0.846047;, - 0.652011; 0.846047;, - 0.627872; 0.838337;, - 0.652011; 0.846047;, - 0.652011; 0.846047;, - 0.666904; 0.866188;, - 0.666904; 0.866188;, - 0.649989; 0.848775;, - 0.650410; 0.848207;, - 0.664316; 0.867012;, - 0.663634; 0.867229;, - 0.650410; 0.909039;, - 0.627872; 0.916238;, - 0.627872; 0.915534;, - 0.649989; 0.908470;, - 0.630527; 0.886643;, - 0.627872; 0.887064;, - 0.628206; 0.879630;, - 0.627872; 0.830745;, - 0.599184; 0.839908;, - 0.598932; 0.839567;, - 0.627872; 0.830323;, - 0.599184; 0.839908;, - 0.581485; 0.863845;, - 0.581076; 0.863714;, - 0.598932; 0.839567;, - 0.581485; 0.863845;, - 0.599184; 0.839908;, - 0.602723; 0.844683;, - 0.587206; 0.865667;, - 0.581485; 0.863845;, - 0.581485; 0.893401;, - 0.581076; 0.893531;, - 0.581076; 0.863714;, - 0.581485; 0.893401;, - 0.581485; 0.863845;, - 0.587206; 0.865667;, - 0.587206; 0.891578;, - 0.593655; 0.832446;, - 0.580794; 0.845053;, - 0.577706; 0.842851;, - 0.591411; 0.829417;, - 0.580794; 0.845053;, - 0.572544; 0.860996;, - 0.568915; 0.859840;, - 0.577706; 0.842851;, - 0.572544; 0.860996;, - 0.580794; 0.845053;, - 0.583881; 0.847254;, - 0.576172; 0.862152;, - 0.593655; 0.832446;, - 0.595899; 0.835474;, - 0.583881; 0.847254;, - 0.580794; 0.845053;, - 0.568915; 0.859840;, - 0.572544; 0.860996;, - 0.569635; 0.878623;, - 0.565816; 0.878623;, - 0.569635; 0.878623;, - 0.572544; 0.896249;, - 0.568915; 0.897405;, - 0.565816; 0.878623;, - 0.572544; 0.896249;, - 0.569635; 0.878623;, - 0.573455; 0.878623;, - 0.576172; 0.895093;, - 0.572544; 0.860996;, - 0.576172; 0.862152;, - 0.573455; 0.878623;, - 0.569635; 0.878623;, - 0.627872; 0.830323;, - 0.598932; 0.839567;, - 0.595899; 0.835474;, - 0.627872; 0.825261;, - 0.599184; 0.917337;, - 0.598932; 0.917678;, - 0.581076; 0.893531;, - 0.581485; 0.893401;, - 0.627872; 0.926501;, - 0.627872; 0.926923;, - 0.598932; 0.917678;, - 0.599184; 0.917337;, - 0.627872; 0.920596;, - 0.627872; 0.926501;, - 0.599184; 0.917337;, - 0.602723; 0.912563;, - 0.580794; 0.912193;, - 0.577706; 0.914394;, - 0.568915; 0.897405;, - 0.572544; 0.896249;, - 0.577706; 0.914394;, - 0.580794; 0.912193;, - 0.593655; 0.924800;, - 0.591411; 0.927828;, - 0.593655; 0.924800;, - 0.580794; 0.912193;, - 0.583881; 0.909991;, - 0.595899; 0.921771;, - 0.583881; 0.909991;, - 0.580794; 0.912193;, - 0.572544; 0.896249;, - 0.576172; 0.895093;, - 0.595899; 0.921771;, - 0.598932; 0.917678;, - 0.627872; 0.926923;, - 0.627872; 0.931984;, - 0.602723; 0.912563;, - 0.599184; 0.917337;, - 0.581485; 0.893401;, - 0.587206; 0.891578;, - 0.627872; 0.814135;, - 0.607587; 0.817351;, - 0.606443; 0.813896;, - 0.627872; 0.810499;, - 0.606443; 0.813896;, - 0.607587; 0.817351;, - 0.589232; 0.826477;, - 0.587054; 0.823537;, - 0.607587; 0.817351;, - 0.608731; 0.820806;, - 0.591411; 0.829417;, - 0.589232; 0.826477;, - 0.627872; 0.802907;, - 0.604055; 0.806683;, - 0.601667; 0.799469;, - 0.627872; 0.795314;, - 0.601667; 0.799469;, - 0.604055; 0.806683;, - 0.582505; 0.817398;, - 0.577956; 0.811259;, - 0.604055; 0.806683;, - 0.606443; 0.813896;, - 0.587054; 0.823537;, - 0.582505; 0.817398;, - 0.627872; 0.810499;, - 0.606443; 0.813896;, - 0.604055; 0.806683;, - 0.627872; 0.802907;, - 0.574709; 0.840713;, - 0.571711; 0.838576;, - 0.587054; 0.823537;, - 0.589232; 0.826477;, - 0.561870; 0.857596;, - 0.571711; 0.838576;, - 0.574709; 0.840713;, - 0.565392; 0.858718;, - 0.565392; 0.858718;, - 0.574709; 0.840713;, - 0.577706; 0.842851;, - 0.568915; 0.859840;, - 0.577956; 0.811259;, - 0.582505; 0.817398;, - 0.565452; 0.834113;, - 0.559193; 0.829650;, - 0.565452; 0.834113;, - 0.554514; 0.855252;, - 0.547158; 0.852909;, - 0.559193; 0.829650;, - 0.554514; 0.855252;, - 0.565452; 0.834113;, - 0.571711; 0.838576;, - 0.561870; 0.857596;, - 0.565452; 0.834113;, - 0.582505; 0.817398;, - 0.587054; 0.823537;, - 0.571711; 0.838576;, - 0.577706; 0.842851;, - 0.574709; 0.840713;, - 0.589232; 0.826477;, - 0.591411; 0.829417;, - 0.562108; 0.878623;, - 0.558400; 0.878623;, - 0.561870; 0.857596;, - 0.565392; 0.858718;, - 0.561870; 0.899650;, - 0.558400; 0.878623;, - 0.562108; 0.878623;, - 0.565392; 0.898527;, - 0.565392; 0.898527;, - 0.562108; 0.878623;, - 0.565816; 0.878623;, - 0.568915; 0.897405;, - 0.547158; 0.852909;, - 0.554514; 0.855252;, - 0.550658; 0.878623;, - 0.542915; 0.878623;, - 0.550658; 0.878623;, - 0.554514; 0.901993;, - 0.547158; 0.904336;, - 0.542915; 0.878623;, - 0.554514; 0.901993;, - 0.550658; 0.878623;, - 0.558400; 0.878623;, - 0.561870; 0.899650;, - 0.554514; 0.855252;, - 0.561870; 0.857596;, - 0.558400; 0.878623;, - 0.550658; 0.878623;, - 0.565816; 0.878623;, - 0.562108; 0.878623;, - 0.565392; 0.858718;, - 0.568915; 0.859840;, - 0.627872; 0.793416;, - 0.601070; 0.797666;, - 0.600473; 0.795863;, - 0.627872; 0.791518;, - 0.600473; 0.795863;, - 0.601070; 0.797666;, - 0.576818; 0.809724;, - 0.575681; 0.808189;, - 0.601070; 0.797666;, - 0.601667; 0.799469;, - 0.577956; 0.811259;, - 0.576818; 0.809724;, - 0.627872; 0.791308;, - 0.600407; 0.795662;, - 0.600340; 0.795462;, - 0.627872; 0.791097;, - 0.600340; 0.795462;, - 0.600407; 0.795662;, - 0.575555; 0.808019;, - 0.575428; 0.807848;, - 0.600407; 0.795662;, - 0.600473; 0.795863;, - 0.575681; 0.808189;, - 0.575555; 0.808019;, - 0.627872; 0.791518;, - 0.600473; 0.795863;, - 0.600407; 0.795662;, - 0.627872; 0.791308;, - 0.557628; 0.828534;, - 0.556064; 0.827419;, - 0.575681; 0.808189;, - 0.576818; 0.809724;, - 0.543480; 0.851737;, - 0.556064; 0.827419;, - 0.557628; 0.828534;, - 0.545319; 0.852323;, - 0.545319; 0.852323;, - 0.557628; 0.828534;, - 0.559193; 0.829650;, - 0.547158; 0.852909;, - 0.575428; 0.807848;, - 0.575555; 0.808019;, - 0.555890; 0.827295;, - 0.555716; 0.827171;, - 0.555890; 0.827295;, - 0.543276; 0.851672;, - 0.543072; 0.851607;, - 0.555716; 0.827171;, - 0.543276; 0.851672;, - 0.555890; 0.827295;, - 0.556064; 0.827419;, - 0.543480; 0.851737;, - 0.575555; 0.808019;, - 0.575681; 0.808189;, - 0.556064; 0.827419;, - 0.555890; 0.827295;, - 0.559193; 0.829650;, - 0.557628; 0.828534;, - 0.576818; 0.809724;, - 0.577956; 0.811259;, - 0.540980; 0.878623;, - 0.539044; 0.878623;, - 0.543480; 0.851737;, - 0.545319; 0.852323;, - 0.543480; 0.905508;, - 0.539044; 0.878623;, - 0.540980; 0.878623;, - 0.545319; 0.904922;, - 0.545319; 0.904922;, - 0.540980; 0.878623;, - 0.542915; 0.878623;, - 0.547158; 0.904336;, - 0.543072; 0.851607;, - 0.543276; 0.851672;, - 0.538829; 0.878623;, - 0.538614; 0.878623;, - 0.538829; 0.878623;, - 0.543276; 0.905573;, - 0.543072; 0.905638;, - 0.538614; 0.878623;, - 0.543276; 0.905573;, - 0.538829; 0.878623;, - 0.539044; 0.878623;, - 0.543480; 0.905508;, - 0.543276; 0.851672;, - 0.543480; 0.851737;, - 0.539044; 0.878623;, - 0.538829; 0.878623;, - 0.542915; 0.878623;, - 0.540980; 0.878623;, - 0.545319; 0.852323;, - 0.547158; 0.852909;, - 0.627872; 0.795314;, - 0.601667; 0.799469;, - 0.601070; 0.797666;, - 0.627872; 0.793416;, - 0.574709; 0.916532;, - 0.571711; 0.918669;, - 0.561870; 0.899650;, - 0.565392; 0.898527;, - 0.574709; 0.916532;, - 0.589232; 0.930768;, - 0.587054; 0.933708;, - 0.571711; 0.918669;, - 0.589232; 0.930768;, - 0.574709; 0.916532;, - 0.577706; 0.914394;, - 0.591411; 0.927828;, - 0.565452; 0.923132;, - 0.559193; 0.927595;, - 0.547158; 0.904336;, - 0.554514; 0.901993;, - 0.565452; 0.923132;, - 0.582505; 0.939847;, - 0.577956; 0.945987;, - 0.559193; 0.927595;, - 0.582505; 0.939847;, - 0.565452; 0.923132;, - 0.571711; 0.918669;, - 0.587054; 0.933708;, - 0.571711; 0.918669;, - 0.565452; 0.923132;, - 0.554514; 0.901993;, - 0.561870; 0.899650;, - 0.589232; 0.930768;, - 0.607587; 0.939894;, - 0.606443; 0.943349;, - 0.587054; 0.933708;, - 0.606443; 0.943349;, - 0.607587; 0.939894;, - 0.627872; 0.943111;, - 0.627872; 0.946746;, - 0.607587; 0.939894;, - 0.608731; 0.936440;, - 0.627872; 0.939474;, - 0.627872; 0.943111;, - 0.582505; 0.939847;, - 0.604055; 0.950562;, - 0.601667; 0.957776;, - 0.577956; 0.945987;, - 0.601667; 0.957776;, - 0.604055; 0.950562;, - 0.627872; 0.954339;, - 0.627872; 0.961931;, - 0.604055; 0.950562;, - 0.606443; 0.943349;, - 0.627872; 0.946746;, - 0.627872; 0.954339;, - 0.604055; 0.950562;, - 0.582505; 0.939847;, - 0.587054; 0.933708;, - 0.606443; 0.943349;, - 0.607587; 0.939894;, - 0.589232; 0.930768;, - 0.591411; 0.927828;, - 0.608731; 0.936440;, - 0.557628; 0.928711;, - 0.556064; 0.929827;, - 0.543480; 0.905508;, - 0.545319; 0.904922;, - 0.575681; 0.949056;, - 0.556064; 0.929827;, - 0.557628; 0.928711;, - 0.576818; 0.947521;, - 0.576818; 0.947521;, - 0.557628; 0.928711;, - 0.559193; 0.927595;, - 0.577956; 0.945987;, - 0.543072; 0.905638;, - 0.543276; 0.905573;, - 0.555890; 0.929951;, - 0.555716; 0.930075;, - 0.555716; 0.930075;, - 0.555890; 0.929951;, - 0.575555; 0.949227;, - 0.575428; 0.949397;, - 0.575555; 0.949227;, - 0.555890; 0.929951;, - 0.556064; 0.929827;, - 0.575681; 0.949056;, - 0.543276; 0.905573;, - 0.543480; 0.905508;, - 0.556064; 0.929827;, - 0.555890; 0.929951;, - 0.576818; 0.947521;, - 0.601070; 0.959579;, - 0.600473; 0.961383;, - 0.575681; 0.949056;, - 0.600473; 0.961383;, - 0.601070; 0.959579;, - 0.627872; 0.963829;, - 0.627872; 0.965727;, - 0.601070; 0.959579;, - 0.601667; 0.957776;, - 0.627872; 0.961931;, - 0.627872; 0.963829;, - 0.575555; 0.949227;, - 0.600407; 0.961583;, - 0.600340; 0.961783;, - 0.575428; 0.949397;, - 0.600340; 0.961783;, - 0.600407; 0.961583;, - 0.627872; 0.965938;, - 0.627872; 0.966149;, - 0.600407; 0.961583;, - 0.600473; 0.961383;, - 0.627872; 0.965727;, - 0.627872; 0.965938;, - 0.600407; 0.961583;, - 0.575555; 0.949227;, - 0.575681; 0.949056;, - 0.600473; 0.961383;, - 0.601070; 0.959579;, - 0.576818; 0.947521;, - 0.577956; 0.945987;, - 0.601667; 0.957776;, - 0.559193; 0.927595;, - 0.557628; 0.928711;, - 0.545319; 0.904922;, - 0.547158; 0.904336;, - 0.577706; 0.914394;, - 0.574709; 0.916532;, - 0.565392; 0.898527;, - 0.568915; 0.897405;, - 0.627872; 0.817771;, - 0.608731; 0.820806;, - 0.607587; 0.817351;, - 0.627872; 0.814135;, - 0.627872; 0.926501;, - 0.656560; 0.917337;, - 0.656813; 0.917678;, - 0.627872; 0.926923;, - 0.656560; 0.917337;, - 0.674259; 0.893401;, - 0.674668; 0.893531;, - 0.656813; 0.917678;, - 0.674259; 0.893401;, - 0.656560; 0.917337;, - 0.653022; 0.912563;, - 0.668538; 0.891578;, - 0.674259; 0.893401;, - 0.674259; 0.863845;, - 0.674668; 0.863714;, - 0.674668; 0.893531;, - 0.668538; 0.865667;, - 0.674259; 0.863845;, - 0.674259; 0.893401;, - 0.668538; 0.891578;, - 0.664334; 0.927828;, - 0.662089; 0.924800;, - 0.674951; 0.912193;, - 0.678038; 0.914394;, - 0.674951; 0.912193;, - 0.683201; 0.896249;, - 0.686829; 0.897405;, - 0.678038; 0.914394;, - 0.683201; 0.896249;, - 0.674951; 0.912193;, - 0.671863; 0.909991;, - 0.679572; 0.895093;, - 0.662089; 0.924800;, - 0.659845; 0.921771;, - 0.671863; 0.909991;, - 0.674951; 0.912193;, - 0.686829; 0.897405;, - 0.683201; 0.896249;, - 0.686109; 0.878623;, - 0.689928; 0.878623;, - 0.686109; 0.878623;, - 0.683201; 0.860996;, - 0.686829; 0.859840;, - 0.689928; 0.878623;, - 0.683201; 0.860996;, - 0.686109; 0.878623;, - 0.682290; 0.878623;, - 0.679572; 0.862152;, - 0.683201; 0.896249;, - 0.679572; 0.895093;, - 0.682290; 0.878623;, - 0.686109; 0.878623;, - 0.627872; 0.926923;, - 0.656813; 0.917678;, - 0.659845; 0.921771;, - 0.627872; 0.931984;, - 0.656560; 0.839908;, - 0.656813; 0.839567;, - 0.674668; 0.863714;, - 0.674259; 0.863845;, - 0.656813; 0.839567;, - 0.656560; 0.839908;, - 0.627872; 0.830745;, - 0.627872; 0.830323;, - 0.656560; 0.839908;, - 0.653022; 0.844683;, - 0.627872; 0.836650;, - 0.627872; 0.830745;, - 0.674951; 0.845053;, - 0.678038; 0.842851;, - 0.686829; 0.859840;, - 0.683201; 0.860996;, - 0.674951; 0.845053;, - 0.662089; 0.832446;, - 0.664334; 0.829417;, - 0.678038; 0.842851;, - 0.662089; 0.832446;, - 0.674951; 0.845053;, - 0.671863; 0.847254;, - 0.659845; 0.835474;, - 0.671863; 0.847254;, - 0.674951; 0.845053;, - 0.683201; 0.860996;, - 0.679572; 0.862152;, - 0.659845; 0.835474;, - 0.656813; 0.839567;, - 0.627872; 0.830323;, - 0.627872; 0.825261;, - 0.653022; 0.844683;, - 0.656560; 0.839908;, - 0.674259; 0.863845;, - 0.668538; 0.865667;, - 0.627872; 0.943111;, - 0.648157; 0.939894;, - 0.649301; 0.943349;, - 0.627872; 0.946746;, - 0.666512; 0.930768;, - 0.668691; 0.933708;, - 0.649301; 0.943349;, - 0.648157; 0.939894;, - 0.664334; 0.927828;, - 0.666512; 0.930768;, - 0.648157; 0.939894;, - 0.647013; 0.936440;, - 0.627872; 0.954339;, - 0.651689; 0.950562;, - 0.654077; 0.957776;, - 0.627872; 0.961931;, - 0.654077; 0.957776;, - 0.651689; 0.950562;, - 0.673240; 0.939847;, - 0.677789; 0.945987;, - 0.651689; 0.950562;, - 0.649301; 0.943349;, - 0.668691; 0.933708;, - 0.673240; 0.939847;, - 0.627872; 0.946746;, - 0.649301; 0.943349;, - 0.651689; 0.950562;, - 0.627872; 0.954339;, - 0.681036; 0.916532;, - 0.684033; 0.918669;, - 0.668691; 0.933708;, - 0.666512; 0.930768;, - 0.681036; 0.916532;, - 0.690352; 0.898527;, - 0.693875; 0.899650;, - 0.684033; 0.918669;, - 0.690352; 0.898527;, - 0.681036; 0.916532;, - 0.678038; 0.914394;, - 0.686829; 0.897405;, - 0.690292; 0.923132;, - 0.696551; 0.927595;, - 0.677789; 0.945987;, - 0.673240; 0.939847;, - 0.690292; 0.923132;, - 0.701231; 0.901993;, - 0.708586; 0.904336;, - 0.696551; 0.927595;, - 0.701231; 0.901993;, - 0.690292; 0.923132;, - 0.684033; 0.918669;, - 0.693875; 0.899650;, - 0.684033; 0.918669;, - 0.690292; 0.923132;, - 0.673240; 0.939847;, - 0.668691; 0.933708;, - 0.681036; 0.916532;, - 0.666512; 0.930768;, - 0.664334; 0.927828;, - 0.678038; 0.914394;, - 0.693636; 0.878623;, - 0.697344; 0.878623;, - 0.693875; 0.899650;, - 0.690352; 0.898527;, - 0.693636; 0.878623;, - 0.690352; 0.858718;, - 0.693875; 0.857596;, - 0.697344; 0.878623;, - 0.690352; 0.858718;, - 0.693636; 0.878623;, - 0.689928; 0.878623;, - 0.686829; 0.859840;, - 0.705087; 0.878623;, - 0.712829; 0.878623;, - 0.708586; 0.904336;, - 0.701231; 0.901993;, - 0.705087; 0.878623;, - 0.701231; 0.855252;, - 0.708586; 0.852909;, - 0.712829; 0.878623;, - 0.701231; 0.855252;, - 0.705087; 0.878623;, - 0.697344; 0.878623;, - 0.693875; 0.857596;, - 0.697344; 0.878623;, - 0.705087; 0.878623;, - 0.701231; 0.901993;, - 0.693875; 0.899650;, - 0.689928; 0.878623;, - 0.693636; 0.878623;, - 0.690352; 0.898527;, - 0.686829; 0.897405;, - 0.627872; 0.963829;, - 0.654674; 0.959579;, - 0.655271; 0.961383;, - 0.627872; 0.965727;, - 0.655271; 0.961383;, - 0.654674; 0.959579;, - 0.678926; 0.947521;, - 0.680064; 0.949056;, - 0.654674; 0.959579;, - 0.654077; 0.957776;, - 0.677789; 0.945987;, - 0.678926; 0.947521;, - 0.627872; 0.965938;, - 0.655338; 0.961583;, - 0.655404; 0.961783;, - 0.627872; 0.966149;, - 0.655404; 0.961783;, - 0.655338; 0.961583;, - 0.680190; 0.949227;, - 0.680316; 0.949397;, - 0.655338; 0.961583;, - 0.655271; 0.961383;, - 0.680064; 0.949056;, - 0.680190; 0.949227;, - 0.627872; 0.965727;, - 0.655271; 0.961383;, - 0.655338; 0.961583;, - 0.627872; 0.965938;, - 0.698116; 0.928711;, - 0.699681; 0.929827;, - 0.680064; 0.949056;, - 0.678926; 0.947521;, - 0.712264; 0.905508;, - 0.699681; 0.929827;, - 0.698116; 0.928711;, - 0.710425; 0.904922;, - 0.710425; 0.904922;, - 0.698116; 0.928711;, - 0.696551; 0.927595;, - 0.708586; 0.904336;, - 0.680190; 0.949227;, - 0.699855; 0.929951;, - 0.700028; 0.930075;, - 0.680316; 0.949397;, - 0.699855; 0.929951;, - 0.712468; 0.905573;, - 0.712673; 0.905638;, - 0.700028; 0.930075;, - 0.712468; 0.905573;, - 0.699855; 0.929951;, - 0.699681; 0.929827;, - 0.712264; 0.905508;, - 0.680190; 0.949227;, - 0.680064; 0.949056;, - 0.699681; 0.929827;, - 0.699855; 0.929951;, - 0.696551; 0.927595;, - 0.698116; 0.928711;, - 0.678926; 0.947521;, - 0.677789; 0.945987;, - 0.714765; 0.878623;, - 0.716700; 0.878623;, - 0.712264; 0.905508;, - 0.710425; 0.904922;, - 0.712264; 0.851737;, - 0.716700; 0.878623;, - 0.714765; 0.878623;, - 0.710425; 0.852323;, - 0.710425; 0.852323;, - 0.714765; 0.878623;, - 0.712829; 0.878623;, - 0.708586; 0.852909;, - 0.712673; 0.905638;, - 0.712468; 0.905573;, - 0.716915; 0.878623;, - 0.717130; 0.878623;, - 0.716915; 0.878623;, - 0.712468; 0.851672;, - 0.712673; 0.851607;, - 0.717130; 0.878623;, - 0.712468; 0.851672;, - 0.716915; 0.878623;, - 0.716700; 0.878623;, - 0.712264; 0.851737;, - 0.712468; 0.905573;, - 0.712264; 0.905508;, - 0.716700; 0.878623;, - 0.716915; 0.878623;, - 0.712829; 0.878623;, - 0.714765; 0.878623;, - 0.710425; 0.904922;, - 0.708586; 0.904336;, - 0.627872; 0.961931;, - 0.654077; 0.957776;, - 0.654674; 0.959579;, - 0.627872; 0.963829;, - 0.681036; 0.840713;, - 0.684033; 0.838576;, - 0.693875; 0.857596;, - 0.690352; 0.858718;, - 0.681036; 0.840713;, - 0.666512; 0.826477;, - 0.668691; 0.823537;, - 0.684033; 0.838576;, - 0.664334; 0.829417;, - 0.666512; 0.826477;, - 0.681036; 0.840713;, - 0.678038; 0.842851;, - 0.690292; 0.834113;, - 0.696551; 0.829650;, - 0.708586; 0.852909;, - 0.701231; 0.855252;, - 0.690292; 0.834113;, - 0.673240; 0.817398;, - 0.677789; 0.811259;, - 0.696551; 0.829650;, - 0.673240; 0.817398;, - 0.690292; 0.834113;, - 0.684033; 0.838576;, - 0.668691; 0.823537;, - 0.684033; 0.838576;, - 0.690292; 0.834113;, - 0.701231; 0.855252;, - 0.693875; 0.857596;, - 0.666512; 0.826477;, - 0.648157; 0.817351;, - 0.649301; 0.813896;, - 0.668691; 0.823537;, - 0.649301; 0.813896;, - 0.648157; 0.817351;, - 0.627872; 0.814135;, - 0.627872; 0.810499;, - 0.648157; 0.817351;, - 0.647013; 0.820806;, - 0.627872; 0.817771;, - 0.627872; 0.814135;, - 0.673240; 0.817398;, - 0.651689; 0.806683;, - 0.654077; 0.799469;, - 0.677789; 0.811259;, - 0.654077; 0.799469;, - 0.651689; 0.806683;, - 0.627872; 0.802907;, - 0.627872; 0.795314;, - 0.651689; 0.806683;, - 0.649301; 0.813896;, - 0.627872; 0.810499;, - 0.627872; 0.802907;, - 0.651689; 0.806683;, - 0.673240; 0.817398;, - 0.668691; 0.823537;, - 0.649301; 0.813896;, - 0.648157; 0.817351;, - 0.666512; 0.826477;, - 0.664334; 0.829417;, - 0.647013; 0.820806;, - 0.698116; 0.828534;, - 0.699681; 0.827419;, - 0.712264; 0.851737;, - 0.710425; 0.852323;, - 0.698116; 0.828534;, - 0.678926; 0.809724;, - 0.680064; 0.808189;, - 0.699681; 0.827419;, - 0.678926; 0.809724;, - 0.698116; 0.828534;, - 0.696551; 0.829650;, - 0.677789; 0.811259;, - 0.699855; 0.827295;, - 0.700028; 0.827171;, - 0.712673; 0.851607;, - 0.712468; 0.851672;, - 0.699855; 0.827295;, - 0.680190; 0.808019;, - 0.680316; 0.807848;, - 0.700028; 0.827171;, - 0.680190; 0.808019;, - 0.699855; 0.827295;, - 0.699681; 0.827419;, - 0.680064; 0.808189;, - 0.699681; 0.827419;, - 0.699855; 0.827295;, - 0.712468; 0.851672;, - 0.712264; 0.851737;, - 0.678926; 0.809724;, - 0.654674; 0.797666;, - 0.655271; 0.795863;, - 0.680064; 0.808189;, - 0.655271; 0.795863;, - 0.654674; 0.797666;, - 0.627872; 0.793416;, - 0.627872; 0.791518;, - 0.654674; 0.797666;, - 0.654077; 0.799469;, - 0.627872; 0.795314;, - 0.627872; 0.793416;, - 0.680190; 0.808019;, - 0.655338; 0.795662;, - 0.655404; 0.795462;, - 0.680316; 0.807848;, - 0.655404; 0.795462;, - 0.655338; 0.795662;, - 0.627872; 0.791308;, - 0.627872; 0.791097;, - 0.655338; 0.795662;, - 0.655271; 0.795863;, - 0.627872; 0.791518;, - 0.627872; 0.791308;, - 0.655338; 0.795662;, - 0.680190; 0.808019;, - 0.680064; 0.808189;, - 0.655271; 0.795863;, - 0.654674; 0.797666;, - 0.678926; 0.809724;, - 0.677789; 0.811259;, - 0.654077; 0.799469;, - 0.696551; 0.829650;, - 0.698116; 0.828534;, - 0.710425; 0.852323;, - 0.708586; 0.852909;, - 0.678038; 0.842851;, - 0.681036; 0.840713;, - 0.690352; 0.858718;, - 0.686829; 0.859840;, - 0.648157; 0.939894;, - 0.627872; 0.943111;, - 0.627872; 0.939474;, - 0.647013; 0.936440;, - 0.656560; 0.917337;, - 0.627872; 0.926501;, - 0.627872; 0.920596;, - 0.653022; 0.912563;, - 0.599184; 0.839908;, - 0.627872; 0.830745;, - 0.627872; 0.836650;, - 0.602723; 0.844683;, - 0.625217; 0.870603;, - 0.627872; 0.870182;, - 0.627539; 0.877616;, - 0.647013; 0.820806;, - 0.627872; 0.817771;, - 0.627872; 0.825261;, - 0.662089; 0.832446;, - 0.664334; 0.829417;, - 0.659845; 0.835474;, - 0.627872; 0.825261;, - 0.659845; 0.835474;, - 0.664334; 0.829417;, - 0.647013; 0.820806;, - 0.671863; 0.847254;, - 0.659845; 0.835474;, - 0.656813; 0.839567;, - 0.674668; 0.863714;, - 0.679572; 0.862152;, - 0.671863; 0.847254;, - 0.656813; 0.839567;, - 0.682290; 0.878623;, - 0.679572; 0.862152;, - 0.674668; 0.863714;, - 0.674668; 0.893531;, - 0.679572; 0.895093;, - 0.682290; 0.878623;, - 0.674668; 0.863714;, - 0.662089; 0.924800;, - 0.659845; 0.921771;, - 0.627872; 0.931984;, - 0.647013; 0.936440;, - 0.627872; 0.931984;, - 0.627872; 0.939474;, - 0.627872; 0.931984;, - 0.647013; 0.936440;, - 0.664334; 0.927828;, - 0.662089; 0.924800;, - 0.659845; 0.921771;, - 0.671863; 0.909991;, - 0.656813; 0.917678;, - 0.656813; 0.917678;, - 0.671863; 0.909991;, - 0.679572; 0.895093;, - 0.674668; 0.893531;, - 0.627872; 0.931984;, - 0.595899; 0.921771;, - 0.593655; 0.924800;, - 0.627872; 0.939474;, - 0.627872; 0.931984;, - 0.608731; 0.936440;, - 0.591411; 0.927828;, - 0.608731; 0.936440;, - 0.627872; 0.931984;, - 0.593655; 0.924800;, - 0.598932; 0.917678;, - 0.583881; 0.909991;, - 0.595899; 0.921771;, - 0.576172; 0.895093;, - 0.583881; 0.909991;, - 0.598932; 0.917678;, - 0.581076; 0.893531;, - 0.581076; 0.863714;, - 0.576172; 0.862152;, - 0.573455; 0.878623;, - 0.573455; 0.878623;, - 0.576172; 0.895093;, - 0.581076; 0.893531;, - 0.581076; 0.863714;, - 0.627872; 0.825261;, - 0.627872; 0.817771;, - 0.608731; 0.820806;, - 0.595899; 0.835474;, - 0.627872; 0.825261;, - 0.593655; 0.832446;, - 0.591411; 0.829417;, - 0.593655; 0.832446;, - 0.627872; 0.825261;, - 0.608731; 0.820806;, - 0.598932; 0.839567;, - 0.595899; 0.835474;, - 0.583881; 0.847254;, - 0.583881; 0.847254;, - 0.576172; 0.862152;, - 0.581076; 0.863714;, - 0.598932; 0.839567;, - 0.618392; 0.865828;, - 0.615359; 0.861736;, - 0.622895; 0.863589;, - 0.627872; 0.862800;, - 0.622895; 0.863589;, - 0.615359; 0.861736;, - 0.621303; 0.858780;, - 0.627872; 0.857739;, - 0.634441; 0.858780;, - 0.627872; 0.862800;, - 0.621303; 0.858780;, - 0.632849; 0.863589;, - 0.640385; 0.861736;, - 0.637353; 0.865828;, - 0.640385; 0.861736;, - 0.632849; 0.863589;, - 0.627872; 0.862800;, - 0.634441; 0.858780;, - 0.618392; 0.865828;, - 0.614828; 0.869322;, - 0.610656; 0.866346;, - 0.615359; 0.861736;, - 0.614828; 0.869322;, - 0.612543; 0.873739;, - 0.607639; 0.872177;, - 0.610656; 0.866346;, - 0.612543; 0.873739;, - 0.611737; 0.878623;, - 0.606575; 0.878623;, - 0.607639; 0.872177;, - 0.612543; 0.883506;, - 0.607639; 0.885069;, - 0.606575; 0.878623;, - 0.611737; 0.878623;, - 0.627872; 0.841711;, - 0.627872; 0.841711;, - 0.616261; 0.843552;, - 0.605755; 0.848775;, - 0.605755; 0.848775;, - 0.627872; 0.841711;, - 0.616261; 0.843552;, - 0.592110; 0.867229;, - 0.605755; 0.848775;, - 0.597442; 0.856924;, - 0.592110; 0.867229;, - 0.597442; 0.856924;, - 0.592110; 0.867229;, - 0.605755; 0.848775;, - 0.605755; 0.848775;, - 0.592110; 0.867229;, - 0.591428; 0.867012;, - 0.592110; 0.890016;, - 0.590230; 0.878623;, - 0.592110; 0.890016;, - 0.592110; 0.867229;, - 0.590230; 0.878623;, - 0.592110; 0.890016;, - 0.592110; 0.867229;, - 0.614828; 0.887924;, - 0.610656; 0.890899;, - 0.607639; 0.885069;, - 0.612543; 0.883506;, - 0.618392; 0.891417;, - 0.615359; 0.895509;, - 0.610656; 0.890899;, - 0.614828; 0.887924;, - 0.615359; 0.895509;, - 0.618392; 0.891417;, - 0.622895; 0.893656;, - 0.621303; 0.898465;, - 0.615359; 0.895509;, - 0.627872; 0.899506;, - 0.627872; 0.894445;, - 0.627872; 0.899506;, - 0.615359; 0.895509;, - 0.622895; 0.893656;, - 0.605755; 0.908470;, - 0.597442; 0.900321;, - 0.605755; 0.908470;, - 0.592110; 0.890016;, - 0.597442; 0.900321;, - 0.605755; 0.908470;, - 0.592110; 0.890016;, - 0.616261; 0.913693;, - 0.627872; 0.915534;, - 0.627872; 0.915534;, - 0.627872; 0.915534;, - 0.605755; 0.908470;, - 0.605755; 0.908470;, - 0.616261; 0.913693;, - 0.632849; 0.893656;, - 0.637353; 0.891417;, - 0.640385; 0.895509;, - 0.627872; 0.899506;, - 0.640385; 0.895509;, - 0.634441; 0.898465;, - 0.640385; 0.895509;, - 0.627872; 0.899506;, - 0.627872; 0.894445;, - 0.632849; 0.893656;, - 0.648106; 0.885069;, - 0.645089; 0.890899;, - 0.640916; 0.887924;, - 0.643202; 0.883506;, - 0.645089; 0.890899;, - 0.640385; 0.895509;, - 0.637353; 0.891417;, - 0.640916; 0.887924;, - 0.649169; 0.878623;, - 0.644008; 0.878623;, - 0.643202; 0.873739;, - 0.648106; 0.872177;, - 0.648106; 0.885069;, - 0.643202; 0.883506;, - 0.644008; 0.878623;, - 0.649169; 0.878623;, - 0.639483; 0.913693;, - 0.649989; 0.908470;, - 0.649989; 0.908470;, - 0.649989; 0.908470;, - 0.627872; 0.915534;, - 0.627872; 0.915534;, - 0.639483; 0.913693;, - 0.649989; 0.908470;, - 0.658302; 0.900321;, - 0.649989; 0.908470;, - 0.649989; 0.908470;, - 0.658302; 0.900321;, - 0.663634; 0.890016;, - 0.663634; 0.890016;, - 0.663634; 0.890016;, - 0.665514; 0.878623;, - 0.663634; 0.890016;, - 0.663634; 0.890016;, - 0.665514; 0.878623;, - 0.663634; 0.867229;, - 0.663634; 0.867229;, - 0.645089; 0.866346;, - 0.640916; 0.869322;, - 0.637353; 0.865828;, - 0.640385; 0.861736;, - 0.648106; 0.872177;, - 0.643202; 0.873739;, - 0.640916; 0.869322;, - 0.645089; 0.866346;, - 0.663634; 0.867229;, - 0.658302; 0.856924;, - 0.663634; 0.867229;, - 0.663634; 0.867229;, - 0.658302; 0.856924;, - 0.649989; 0.848775;, - 0.649989; 0.848775;, - 0.649989; 0.848775;, - 0.649989; 0.848775;, - 0.639483; 0.843552;, - 0.627872; 0.841711;, - 0.627872; 0.841711;, - 0.649989; 0.848775;, - 0.639483; 0.843552;, - 0.608731; 0.820806;, - 0.627872; 0.817771;, - 0.627872; 0.825261;, - 0.593655; 0.832446;, - 0.591411; 0.829417;, - 0.595899; 0.835474;, - 0.627872; 0.825261;, - 0.595899; 0.835474;, - 0.591411; 0.829417;, - 0.608731; 0.820806;, - 0.583881; 0.847254;, - 0.595899; 0.835474;, - 0.598932; 0.839567;, - 0.581076; 0.863714;, - 0.576172; 0.862152;, - 0.583881; 0.847254;, - 0.598932; 0.839567;, - 0.573455; 0.878623;, - 0.576172; 0.862152;, - 0.581076; 0.863714;, - 0.581076; 0.893531;, - 0.576172; 0.895093;, - 0.573455; 0.878623;, - 0.581076; 0.863714;, - 0.593655; 0.924800;, - 0.595899; 0.921771;, - 0.627872; 0.931984;, - 0.608731; 0.936440;, - 0.627872; 0.931984;, - 0.627872; 0.939474;, - 0.627872; 0.931984;, - 0.608731; 0.936440;, - 0.591411; 0.927828;, - 0.593655; 0.924800;, - 0.595899; 0.921771;, - 0.583881; 0.909991;, - 0.598932; 0.917678;, - 0.598932; 0.917678;, - 0.583881; 0.909991;, - 0.576172; 0.895093;, - 0.581076; 0.893531;, - 0.627872; 0.931984;, - 0.659845; 0.921771;, - 0.662089; 0.924800;, - 0.627872; 0.939474;, - 0.627872; 0.931984;, - 0.647013; 0.936440;, - 0.664334; 0.927828;, - 0.647013; 0.936440;, - 0.627872; 0.931984;, - 0.662089; 0.924800;, - 0.656813; 0.917678;, - 0.671863; 0.909991;, - 0.659845; 0.921771;, - 0.679572; 0.895093;, - 0.671863; 0.909991;, - 0.656813; 0.917678;, - 0.674668; 0.893531;, - 0.674668; 0.863714;, - 0.679572; 0.862152;, - 0.682290; 0.878623;, - 0.682290; 0.878623;, - 0.679572; 0.895093;, - 0.674668; 0.893531;, - 0.674668; 0.863714;, - 0.627872; 0.825261;, - 0.627872; 0.817771;, - 0.647013; 0.820806;, - 0.659845; 0.835474;, - 0.664334; 0.829417;, - 0.662089; 0.832446;, - 0.664334; 0.829417;, - 0.659845; 0.835474;, - 0.627872; 0.825261;, - 0.647013; 0.820806;, - 0.656813; 0.839567;, - 0.659845; 0.835474;, - 0.671863; 0.847254;, - 0.671863; 0.847254;, - 0.679572; 0.862152;, - 0.674668; 0.863714;, - 0.656813; 0.839567;, - 0.627853; 0.878381;, - 0.597633; 0.837054;, - 0.578988; 0.862606;, - 0.627853; 0.878381;, - 0.676718; 0.862606;, - 0.658073; 0.837054;, - 0.604318; 0.846196;, - 0.587096; 0.865223;, - 0.602647; 0.843911;, - 0.604318; 0.910566;, - 0.602647; 0.912851;, - 0.587096; 0.891539;, - 0.589798; 0.890666;, - 0.590510; 0.890437;, - 0.604758; 0.909964;, - 0.589798; 0.890666;, - 0.604758; 0.909964;, - 0.604318; 0.910566;, - 0.587096; 0.891539;, - 0.604318; 0.846196;, - 0.604758; 0.846798;, - 0.589798; 0.866096;, - 0.587096; 0.865223;, - 0.578988; 0.894156;, - 0.597633; 0.919708;, - 0.627853; 0.878381;, - 0.578988; 0.862606;, - 0.676718; 0.894156;, - 0.676718; 0.862606;, - 0.627853; 0.878381;, - 0.658073; 0.919708;, - 0.627853; 0.929490;, - 0.658073; 0.919708;, - 0.627853; 0.878381;, - 0.597633; 0.919708;, - 0.627853; 0.878381;, - 0.658073; 0.837054;, - 0.627853; 0.827273;, - 0.597633; 0.837054;, - 0.665926; 0.826314;, - 0.663583; 0.829519;, - 0.677013; 0.842859;, - 0.680237; 0.840529;, - 0.677013; 0.842859;, - 0.685627; 0.859730;, - 0.689416; 0.858506;, - 0.680237; 0.840529;, - 0.685627; 0.859730;, - 0.677013; 0.842859;, - 0.673789; 0.845189;, - 0.681838; 0.860953;, - 0.663583; 0.829519;, - 0.661239; 0.832723;, - 0.673789; 0.845189;, - 0.677013; 0.842859;, - 0.689416; 0.858506;, - 0.685627; 0.859730;, - 0.688664; 0.878381;, - 0.692653; 0.878381;, - 0.688664; 0.878381;, - 0.685627; 0.897032;, - 0.689416; 0.898256;, - 0.692653; 0.878381;, - 0.685627; 0.897032;, - 0.688664; 0.878381;, - 0.684676; 0.878381;, - 0.681838; 0.895809;, - 0.685627; 0.859730;, - 0.681838; 0.860953;, - 0.684676; 0.878381;, - 0.688664; 0.878381;, - 0.627853; 0.827273;, - 0.658073; 0.837054;, - 0.661239; 0.832723;, - 0.627853; 0.821917;, - 0.677013; 0.913903;, - 0.680237; 0.916233;, - 0.689416; 0.898256;, - 0.685627; 0.897032;, - 0.677013; 0.913903;, - 0.663583; 0.927243;, - 0.665926; 0.930448;, - 0.680237; 0.916233;, - 0.663583; 0.927243;, - 0.677013; 0.913903;, - 0.673789; 0.911573;, - 0.661239; 0.924039;, - 0.673789; 0.911573;, - 0.677013; 0.913903;, - 0.685627; 0.897032;, - 0.681838; 0.895809;, - 0.661239; 0.924039;, - 0.658073; 0.919708;, - 0.627853; 0.929490;, - 0.627853; 0.934845;, - 0.627853; 0.810143;, - 0.649035; 0.813546;, - 0.650229; 0.809891;, - 0.627853; 0.806296;, - 0.650229; 0.809891;, - 0.649035; 0.813546;, - 0.668201; 0.823203;, - 0.670476; 0.820092;, - 0.649035; 0.813546;, - 0.647840; 0.817202;, - 0.665926; 0.826314;, - 0.668201; 0.823203;, - 0.627853; 0.798262;, - 0.652723; 0.802258;, - 0.655217; 0.794625;, - 0.627853; 0.790228;, - 0.655217; 0.794625;, - 0.652723; 0.802258;, - 0.675226; 0.813596;, - 0.679976; 0.807100;, - 0.652723; 0.802258;, - 0.650229; 0.809891;, - 0.670476; 0.820092;, - 0.675226; 0.813596;, - 0.627853; 0.806296;, - 0.650229; 0.809891;, - 0.652723; 0.802258;, - 0.627853; 0.798262;, - 0.683367; 0.838267;, - 0.686497; 0.836006;, - 0.670476; 0.820092;, - 0.668201; 0.823203;, - 0.696773; 0.856131;, - 0.686497; 0.836006;, - 0.683367; 0.838267;, - 0.693095; 0.857319;, - 0.693095; 0.857319;, - 0.683367; 0.838267;, - 0.680237; 0.840529;, - 0.689416; 0.858506;, - 0.679976; 0.807100;, - 0.675226; 0.813596;, - 0.693032; 0.831283;, - 0.699568; 0.826561;, - 0.693032; 0.831283;, - 0.704454; 0.853652;, - 0.712135; 0.851172;, - 0.699568; 0.826561;, - 0.704454; 0.853652;, - 0.693032; 0.831283;, - 0.686497; 0.836006;, - 0.696773; 0.856131;, - 0.675226; 0.813596;, - 0.670476; 0.820092;, - 0.686497; 0.836006;, - 0.693032; 0.831283;, - 0.680237; 0.840529;, - 0.683367; 0.838267;, - 0.668201; 0.823203;, - 0.665926; 0.826314;, - 0.696524; 0.878381;, - 0.700396; 0.878381;, - 0.696773; 0.856131;, - 0.693095; 0.857319;, - 0.696773; 0.900631;, - 0.700396; 0.878381;, - 0.696524; 0.878381;, - 0.693095; 0.899443;, - 0.693095; 0.899443;, - 0.696524; 0.878381;, - 0.692653; 0.878381;, - 0.689416; 0.898256;, - 0.712135; 0.851172;, - 0.704454; 0.853652;, - 0.708481; 0.878381;, - 0.716566; 0.878381;, - 0.708481; 0.878381;, - 0.704454; 0.903110;, - 0.712135; 0.905590;, - 0.716566; 0.878381;, - 0.704454; 0.903110;, - 0.708481; 0.878381;, - 0.700396; 0.878381;, - 0.696773; 0.900631;, - 0.704454; 0.853652;, - 0.696773; 0.856131;, - 0.700396; 0.878381;, - 0.708481; 0.878381;, - 0.692653; 0.878381;, - 0.696524; 0.878381;, - 0.693095; 0.857319;, - 0.689416; 0.858506;, - 0.627853; 0.788220;, - 0.655840; 0.792717;, - 0.656463; 0.790808;, - 0.627853; 0.786212;, - 0.656463; 0.790808;, - 0.655840; 0.792717;, - 0.681164; 0.805476;, - 0.682352; 0.803852;, - 0.655840; 0.792717;, - 0.655217; 0.794625;, - 0.679976; 0.807100;, - 0.681164; 0.805476;, - 0.627853; 0.785989;, - 0.656533; 0.790596;, - 0.656602; 0.790384;, - 0.627853; 0.785765;, - 0.656602; 0.790384;, - 0.656533; 0.790596;, - 0.682483; 0.803671;, - 0.682615; 0.803491;, - 0.656533; 0.790596;, - 0.656463; 0.790808;, - 0.682352; 0.803852;, - 0.682483; 0.803671;, - 0.627853; 0.786212;, - 0.656463; 0.790808;, - 0.656533; 0.790596;, - 0.627853; 0.785989;, - 0.701202; 0.825380;, - 0.702836; 0.824199;, - 0.682352; 0.803852;, - 0.681164; 0.805476;, - 0.715976; 0.849932;, - 0.702836; 0.824199;, - 0.701202; 0.825380;, - 0.714056; 0.850552;, - 0.714056; 0.850552;, - 0.701202; 0.825380;, - 0.699568; 0.826561;, - 0.712135; 0.851172;, - 0.682615; 0.803491;, - 0.682483; 0.803671;, - 0.703018; 0.824068;, - 0.703199; 0.823937;, - 0.703018; 0.824068;, - 0.716189; 0.849863;, - 0.716402; 0.849794;, - 0.703199; 0.823937;, - 0.716189; 0.849863;, - 0.703018; 0.824068;, - 0.702836; 0.824199;, - 0.715976; 0.849932;, - 0.682483; 0.803671;, - 0.682352; 0.803852;, - 0.702836; 0.824199;, - 0.703018; 0.824068;, - 0.699568; 0.826561;, - 0.701202; 0.825380;, - 0.681164; 0.805476;, - 0.679976; 0.807100;, - 0.718587; 0.878381;, - 0.720608; 0.878381;, - 0.715976; 0.849932;, - 0.714056; 0.850552;, - 0.715976; 0.906830;, - 0.720608; 0.878381;, - 0.718587; 0.878381;, - 0.714056; 0.906210;, - 0.714056; 0.906210;, - 0.718587; 0.878381;, - 0.716566; 0.878381;, - 0.712135; 0.905590;, - 0.716402; 0.849794;, - 0.716189; 0.849863;, - 0.720833; 0.878381;, - 0.721057; 0.878381;, - 0.720833; 0.878381;, - 0.716189; 0.906899;, - 0.716402; 0.906968;, - 0.721057; 0.878381;, - 0.716189; 0.906899;, - 0.720833; 0.878381;, - 0.720608; 0.878381;, - 0.715976; 0.906830;, - 0.716189; 0.849863;, - 0.715976; 0.849932;, - 0.720608; 0.878381;, - 0.720833; 0.878381;, - 0.716566; 0.878381;, - 0.718587; 0.878381;, - 0.714056; 0.850552;, - 0.712135; 0.851172;, - 0.627853; 0.790228;, - 0.655217; 0.794625;, - 0.655840; 0.792717;, - 0.627853; 0.788220;, - 0.683367; 0.918495;, - 0.686497; 0.920756;, - 0.696773; 0.900631;, - 0.693095; 0.899443;, - 0.683367; 0.918495;, - 0.668201; 0.933559;, - 0.670476; 0.936670;, - 0.686497; 0.920756;, - 0.665926; 0.930448;, - 0.668201; 0.933559;, - 0.683367; 0.918495;, - 0.680237; 0.916233;, - 0.693032; 0.925479;, - 0.699568; 0.930201;, - 0.712135; 0.905590;, - 0.704454; 0.903110;, - 0.693032; 0.925479;, - 0.675226; 0.943166;, - 0.679976; 0.949662;, - 0.699568; 0.930201;, - 0.675226; 0.943166;, - 0.693032; 0.925479;, - 0.686497; 0.920756;, - 0.670476; 0.936670;, - 0.686497; 0.920756;, - 0.693032; 0.925479;, - 0.704454; 0.903110;, - 0.696773; 0.900631;, - 0.668201; 0.933559;, - 0.649035; 0.943216;, - 0.650229; 0.946871;, - 0.670476; 0.936670;, - 0.650229; 0.946871;, - 0.649035; 0.943216;, - 0.627853; 0.946619;, - 0.627853; 0.950466;, - 0.649035; 0.943216;, - 0.647840; 0.939560;, - 0.627853; 0.942771;, - 0.627853; 0.946619;, - 0.675226; 0.943166;, - 0.652723; 0.954504;, - 0.655217; 0.962137;, - 0.679976; 0.949662;, - 0.655217; 0.962137;, - 0.652723; 0.954504;, - 0.627853; 0.958500;, - 0.627853; 0.966533;, - 0.652723; 0.954504;, - 0.650229; 0.946871;, - 0.627853; 0.950466;, - 0.627853; 0.958500;, - 0.652723; 0.954504;, - 0.675226; 0.943166;, - 0.670476; 0.936670;, - 0.650229; 0.946871;, - 0.649035; 0.943216;, - 0.668201; 0.933559;, - 0.665926; 0.930448;, - 0.647840; 0.939560;, - 0.701202; 0.931382;, - 0.702836; 0.932563;, - 0.715976; 0.906830;, - 0.714056; 0.906210;, - 0.682352; 0.952910;, - 0.702836; 0.932563;, - 0.701202; 0.931382;, - 0.681164; 0.951286;, - 0.681164; 0.951286;, - 0.701202; 0.931382;, - 0.699568; 0.930201;, - 0.679976; 0.949662;, - 0.716402; 0.906968;, - 0.716189; 0.906899;, - 0.703018; 0.932694;, - 0.703199; 0.932825;, - 0.703199; 0.932825;, - 0.703018; 0.932694;, - 0.682483; 0.953091;, - 0.682615; 0.953271;, - 0.682483; 0.953091;, - 0.703018; 0.932694;, - 0.702836; 0.932563;, - 0.682352; 0.952910;, - 0.716189; 0.906899;, - 0.715976; 0.906830;, - 0.702836; 0.932563;, - 0.703018; 0.932694;, - 0.681164; 0.951286;, - 0.655840; 0.964045;, - 0.656463; 0.965953;, - 0.682352; 0.952910;, - 0.656463; 0.965953;, - 0.655840; 0.964045;, - 0.627853; 0.968542;, - 0.627853; 0.970550;, - 0.655840; 0.964045;, - 0.655217; 0.962137;, - 0.627853; 0.966533;, - 0.627853; 0.968542;, - 0.682483; 0.953091;, - 0.656533; 0.966165;, - 0.656602; 0.966378;, - 0.682615; 0.953271;, - 0.656602; 0.966378;, - 0.656533; 0.966165;, - 0.627853; 0.970773;, - 0.627853; 0.970997;, - 0.656533; 0.966165;, - 0.656463; 0.965953;, - 0.627853; 0.970550;, - 0.627853; 0.970773;, - 0.656533; 0.966165;, - 0.682483; 0.953091;, - 0.682352; 0.952910;, - 0.656463; 0.965953;, - 0.655840; 0.964045;, - 0.681164; 0.951286;, - 0.679976; 0.949662;, - 0.655217; 0.962137;, - 0.699568; 0.930201;, - 0.701202; 0.931382;, - 0.714056; 0.906210;, - 0.712135; 0.905590;, - 0.680237; 0.916233;, - 0.683367; 0.918495;, - 0.693095; 0.899443;, - 0.689416; 0.898256;, - 0.627853; 0.813991;, - 0.647840; 0.817202;, - 0.649035; 0.813546;, - 0.627853; 0.810143;, - 0.589779; 0.930448;, - 0.592123; 0.927243;, - 0.578693; 0.913903;, - 0.575469; 0.916233;, - 0.578693; 0.913903;, - 0.570078; 0.897032;, - 0.566289; 0.898256;, - 0.575469; 0.916233;, - 0.570078; 0.897032;, - 0.578693; 0.913903;, - 0.581917; 0.911573;, - 0.573867; 0.895809;, - 0.592123; 0.927243;, - 0.594466; 0.924039;, - 0.581917; 0.911573;, - 0.578693; 0.913903;, - 0.566289; 0.898256;, - 0.570078; 0.897032;, - 0.567041; 0.878381;, - 0.563053; 0.878381;, - 0.567041; 0.878381;, - 0.570078; 0.859730;, - 0.566289; 0.858506;, - 0.563053; 0.878381;, - 0.570078; 0.859730;, - 0.567041; 0.878381;, - 0.571030; 0.878381;, - 0.573867; 0.860953;, - 0.570078; 0.897032;, - 0.573867; 0.895809;, - 0.571030; 0.878381;, - 0.567041; 0.878381;, - 0.627853; 0.929490;, - 0.597633; 0.919708;, - 0.594466; 0.924039;, - 0.627853; 0.934845;, - 0.578693; 0.842859;, - 0.575469; 0.840529;, - 0.566289; 0.858506;, - 0.570078; 0.859730;, - 0.578693; 0.842859;, - 0.592123; 0.829519;, - 0.589779; 0.826314;, - 0.575469; 0.840529;, - 0.592123; 0.829519;, - 0.578693; 0.842859;, - 0.581917; 0.845189;, - 0.594466; 0.832723;, - 0.581917; 0.845189;, - 0.578693; 0.842859;, - 0.570078; 0.859730;, - 0.573867; 0.860953;, - 0.594466; 0.832723;, - 0.597633; 0.837054;, - 0.627853; 0.827273;, - 0.627853; 0.821917;, - 0.627853; 0.946619;, - 0.606671; 0.943216;, - 0.605477; 0.946871;, - 0.627853; 0.950466;, - 0.587505; 0.933559;, - 0.585230; 0.936670;, - 0.605477; 0.946871;, - 0.606671; 0.943216;, - 0.589779; 0.930448;, - 0.587505; 0.933559;, - 0.606671; 0.943216;, - 0.607865; 0.939560;, - 0.627853; 0.958500;, - 0.602983; 0.954504;, - 0.600489; 0.962137;, - 0.627853; 0.966533;, - 0.600489; 0.962137;, - 0.602983; 0.954504;, - 0.580479; 0.943166;, - 0.575729; 0.949662;, - 0.602983; 0.954504;, - 0.605477; 0.946871;, - 0.585230; 0.936670;, - 0.580479; 0.943166;, - 0.627853; 0.950466;, - 0.605477; 0.946871;, - 0.602983; 0.954504;, - 0.627853; 0.958500;, - 0.572339; 0.918495;, - 0.569209; 0.920756;, - 0.585230; 0.936670;, - 0.587505; 0.933559;, - 0.572339; 0.918495;, - 0.562611; 0.899443;, - 0.558932; 0.900631;, - 0.569209; 0.920756;, - 0.562611; 0.899443;, - 0.572339; 0.918495;, - 0.575469; 0.916233;, - 0.566289; 0.898256;, - 0.562673; 0.925479;, - 0.556137; 0.930201;, - 0.575729; 0.949662;, - 0.580479; 0.943166;, - 0.562673; 0.925479;, - 0.551251; 0.903110;, - 0.543571; 0.905590;, - 0.556137; 0.930201;, - 0.551251; 0.903110;, - 0.562673; 0.925479;, - 0.569209; 0.920756;, - 0.558932; 0.900631;, - 0.569209; 0.920756;, - 0.562673; 0.925479;, - 0.580479; 0.943166;, - 0.585230; 0.936670;, - 0.572339; 0.918495;, - 0.587505; 0.933559;, - 0.589779; 0.930448;, - 0.575469; 0.916233;, - 0.559181; 0.878381;, - 0.555309; 0.878381;, - 0.558932; 0.900631;, - 0.562611; 0.899443;, - 0.559181; 0.878381;, - 0.562611; 0.857319;, - 0.558932; 0.856131;, - 0.555309; 0.878381;, - 0.562611; 0.857319;, - 0.559181; 0.878381;, - 0.563053; 0.878381;, - 0.566289; 0.858506;, - 0.547225; 0.878381;, - 0.539140; 0.878381;, - 0.543571; 0.905590;, - 0.551251; 0.903110;, - 0.547225; 0.878381;, - 0.551251; 0.853652;, - 0.543571; 0.851172;, - 0.539140; 0.878381;, - 0.551251; 0.853652;, - 0.547225; 0.878381;, - 0.555309; 0.878381;, - 0.558932; 0.856131;, - 0.555309; 0.878381;, - 0.547225; 0.878381;, - 0.551251; 0.903110;, - 0.558932; 0.900631;, - 0.563053; 0.878381;, - 0.559181; 0.878381;, - 0.562611; 0.899443;, - 0.566289; 0.898256;, - 0.627853; 0.968542;, - 0.599866; 0.964045;, - 0.599242; 0.965953;, - 0.627853; 0.970550;, - 0.599242; 0.965953;, - 0.599866; 0.964045;, - 0.574542; 0.951286;, - 0.573354; 0.952910;, - 0.599866; 0.964045;, - 0.600489; 0.962137;, - 0.575729; 0.949662;, - 0.574542; 0.951286;, - 0.627853; 0.970773;, - 0.599173; 0.966165;, - 0.599104; 0.966378;, - 0.627853; 0.970997;, - 0.599104; 0.966378;, - 0.599173; 0.966165;, - 0.573222; 0.953091;, - 0.573090; 0.953271;, - 0.599173; 0.966165;, - 0.599242; 0.965953;, - 0.573354; 0.952910;, - 0.573222; 0.953091;, - 0.627853; 0.970550;, - 0.599242; 0.965953;, - 0.599173; 0.966165;, - 0.627853; 0.970773;, - 0.554503; 0.931382;, - 0.552870; 0.932563;, - 0.573354; 0.952910;, - 0.574542; 0.951286;, - 0.539730; 0.906830;, - 0.552870; 0.932563;, - 0.554503; 0.931382;, - 0.541650; 0.906210;, - 0.541650; 0.906210;, - 0.554503; 0.931382;, - 0.556137; 0.930201;, - 0.543571; 0.905590;, - 0.573222; 0.953091;, - 0.552688; 0.932694;, - 0.552507; 0.932825;, - 0.573090; 0.953271;, - 0.552688; 0.932694;, - 0.539517; 0.906899;, - 0.539303; 0.906968;, - 0.552507; 0.932825;, - 0.539517; 0.906899;, - 0.552688; 0.932694;, - 0.552870; 0.932563;, - 0.539730; 0.906830;, - 0.573222; 0.953091;, - 0.573354; 0.952910;, - 0.552870; 0.932563;, - 0.552688; 0.932694;, - 0.556137; 0.930201;, - 0.554503; 0.931382;, - 0.574542; 0.951286;, - 0.575729; 0.949662;, - 0.537119; 0.878381;, - 0.535098; 0.878381;, - 0.539730; 0.906830;, - 0.541650; 0.906210;, - 0.539730; 0.849932;, - 0.535098; 0.878381;, - 0.537119; 0.878381;, - 0.541650; 0.850552;, - 0.541650; 0.850552;, - 0.537119; 0.878381;, - 0.539140; 0.878381;, - 0.543571; 0.851172;, - 0.539303; 0.906968;, - 0.539517; 0.906899;, - 0.534873; 0.878381;, - 0.534649; 0.878381;, - 0.534873; 0.878381;, - 0.539517; 0.849863;, - 0.539303; 0.849794;, - 0.534649; 0.878381;, - 0.539517; 0.849863;, - 0.534873; 0.878381;, - 0.535098; 0.878381;, - 0.539730; 0.849932;, - 0.539517; 0.906899;, - 0.539730; 0.906830;, - 0.535098; 0.878381;, - 0.534873; 0.878381;, - 0.539140; 0.878381;, - 0.537119; 0.878381;, - 0.541650; 0.906210;, - 0.543571; 0.905590;, - 0.627853; 0.966533;, - 0.600489; 0.962137;, - 0.599866; 0.964045;, - 0.627853; 0.968542;, - 0.572339; 0.838267;, - 0.569209; 0.836006;, - 0.558932; 0.856131;, - 0.562611; 0.857319;, - 0.572339; 0.838267;, - 0.587505; 0.823203;, - 0.585230; 0.820092;, - 0.569209; 0.836006;, - 0.589779; 0.826314;, - 0.587505; 0.823203;, - 0.572339; 0.838267;, - 0.575469; 0.840529;, - 0.562673; 0.831283;, - 0.556137; 0.826561;, - 0.543571; 0.851172;, - 0.551251; 0.853652;, - 0.562673; 0.831283;, - 0.580479; 0.813596;, - 0.575729; 0.807100;, - 0.556137; 0.826561;, - 0.580479; 0.813596;, - 0.562673; 0.831283;, - 0.569209; 0.836006;, - 0.585230; 0.820092;, - 0.569209; 0.836006;, - 0.562673; 0.831283;, - 0.551251; 0.853652;, - 0.558932; 0.856131;, - 0.587505; 0.823203;, - 0.606671; 0.813546;, - 0.605477; 0.809891;, - 0.585230; 0.820092;, - 0.605477; 0.809891;, - 0.606671; 0.813546;, - 0.627853; 0.810143;, - 0.627853; 0.806296;, - 0.606671; 0.813546;, - 0.607865; 0.817202;, - 0.627853; 0.813991;, - 0.627853; 0.810143;, - 0.580479; 0.813596;, - 0.602983; 0.802258;, - 0.600489; 0.794625;, - 0.575729; 0.807100;, - 0.600489; 0.794625;, - 0.602983; 0.802258;, - 0.627853; 0.798262;, - 0.627853; 0.790228;, - 0.602983; 0.802258;, - 0.605477; 0.809891;, - 0.627853; 0.806296;, - 0.627853; 0.798262;, - 0.602983; 0.802258;, - 0.580479; 0.813596;, - 0.585230; 0.820092;, - 0.605477; 0.809891;, - 0.606671; 0.813546;, - 0.587505; 0.823203;, - 0.589779; 0.826314;, - 0.607865; 0.817202;, - 0.554503; 0.825380;, - 0.552870; 0.824199;, - 0.539730; 0.849932;, - 0.541650; 0.850552;, - 0.554503; 0.825380;, - 0.574542; 0.805476;, - 0.573354; 0.803852;, - 0.552870; 0.824199;, - 0.574542; 0.805476;, - 0.554503; 0.825380;, - 0.556137; 0.826561;, - 0.575729; 0.807100;, - 0.552688; 0.824068;, - 0.552507; 0.823937;, - 0.539303; 0.849794;, - 0.539517; 0.849863;, - 0.552688; 0.824068;, - 0.573222; 0.803671;, - 0.573090; 0.803491;, - 0.552507; 0.823937;, - 0.573222; 0.803671;, - 0.552688; 0.824068;, - 0.552870; 0.824199;, - 0.573354; 0.803852;, - 0.552870; 0.824199;, - 0.552688; 0.824068;, - 0.539517; 0.849863;, - 0.539730; 0.849932;, - 0.574542; 0.805476;, - 0.599866; 0.792717;, - 0.599242; 0.790808;, - 0.573354; 0.803852;, - 0.599242; 0.790808;, - 0.599866; 0.792717;, - 0.627853; 0.788220;, - 0.627853; 0.786212;, - 0.599866; 0.792717;, - 0.600489; 0.794625;, - 0.627853; 0.790228;, - 0.627853; 0.788220;, - 0.573222; 0.803671;, - 0.599173; 0.790596;, - 0.599104; 0.790384;, - 0.573090; 0.803491;, - 0.599104; 0.790384;, - 0.599173; 0.790596;, - 0.627853; 0.785989;, - 0.627853; 0.785765;, - 0.599173; 0.790596;, - 0.599242; 0.790808;, - 0.627853; 0.786212;, - 0.627853; 0.785989;, - 0.599173; 0.790596;, - 0.573222; 0.803671;, - 0.573354; 0.803852;, - 0.599242; 0.790808;, - 0.599866; 0.792717;, - 0.574542; 0.805476;, - 0.575729; 0.807100;, - 0.600489; 0.794625;, - 0.556137; 0.826561;, - 0.554503; 0.825380;, - 0.541650; 0.850552;, - 0.543571; 0.851172;, - 0.575469; 0.840529;, - 0.572339; 0.838267;, - 0.562611; 0.857319;, - 0.566289; 0.858506;, - 0.606671; 0.943216;, - 0.627853; 0.946619;, - 0.627853; 0.942771;, - 0.607865; 0.939560;, - 0.622656; 0.862474;, - 0.627853; 0.861639;, - 0.627853; 0.869449;, - 0.625080; 0.869895;, - 0.622571; 0.871159;, - 0.617953; 0.864843;, - 0.622656; 0.862474;, - 0.625080; 0.869895;, - 0.622571; 0.871159;, - 0.625080; 0.869895;, - 0.627505; 0.877315;, - 0.622571; 0.871159;, - 0.620586; 0.873130;, - 0.614232; 0.868539;, - 0.617953; 0.864843;, - 0.620586; 0.873130;, - 0.619313; 0.875624;, - 0.611846; 0.873213;, - 0.614232; 0.868539;, - 0.619313; 0.875624;, - 0.620586; 0.873130;, - 0.626781; 0.878035;, - 0.620586; 0.873130;, - 0.622571; 0.871159;, - 0.627190; 0.877474;, - 0.618864; 0.878381;, - 0.611004; 0.878381;, - 0.611846; 0.873213;, - 0.619313; 0.875624;, - 0.618864; 0.878381;, - 0.619313; 0.881138;, - 0.611846; 0.883549;, - 0.611004; 0.878381;, - 0.619313; 0.881138;, - 0.618864; 0.878381;, - 0.626781; 0.878727;, - 0.619313; 0.875624;, - 0.626781; 0.878035;, - 0.618864; 0.878381;, - 0.627853; 0.847803;, - 0.618361; 0.849328;, - 0.615729; 0.841271;, - 0.627853; 0.839323;, - 0.615729; 0.841271;, - 0.618361; 0.849328;, - 0.609772; 0.853655;, - 0.604758; 0.846798;, - 0.618361; 0.849328;, - 0.620993; 0.857385;, - 0.614786; 0.860512;, - 0.609772; 0.853655;, - 0.602976; 0.860406;, - 0.596078; 0.855421;, - 0.604758; 0.846798;, - 0.609772; 0.853655;, - 0.590510; 0.866325;, - 0.596078; 0.855421;, - 0.602976; 0.860406;, - 0.598617; 0.868943;, - 0.598617; 0.868943;, - 0.602976; 0.860406;, - 0.609875; 0.865391;, - 0.606725; 0.871560;, - 0.609875; 0.865391;, - 0.602976; 0.860406;, - 0.609772; 0.853655;, - 0.614786; 0.860512;, - 0.597080; 0.878381;, - 0.588547; 0.878381;, - 0.590510; 0.866325;, - 0.598617; 0.868943;, - 0.590510; 0.890437;, - 0.588547; 0.878381;, - 0.597080; 0.878381;, - 0.598617; 0.887819;, - 0.598617; 0.887819;, - 0.597080; 0.878381;, - 0.605614; 0.878381;, - 0.606725; 0.885202;, - 0.605614; 0.878381;, - 0.597080; 0.878381;, - 0.598617; 0.868943;, - 0.606725; 0.871560;, - 0.627853; 0.856283;, - 0.620993; 0.857385;, - 0.618361; 0.849328;, - 0.627853; 0.847803;, - 0.620586; 0.883632;, - 0.614232; 0.888223;, - 0.611846; 0.883549;, - 0.619313; 0.881138;, - 0.620586; 0.883632;, - 0.622571; 0.885603;, - 0.617953; 0.891919;, - 0.614232; 0.888223;, - 0.622571; 0.885603;, - 0.620586; 0.883632;, - 0.627190; 0.879288;, - 0.622571; 0.885603;, - 0.625080; 0.886867;, - 0.622656; 0.894288;, - 0.617953; 0.891919;, - 0.627853; 0.887313;, - 0.627853; 0.895123;, - 0.622656; 0.894288;, - 0.625080; 0.886867;, - 0.627853; 0.887313;, - 0.625080; 0.886867;, - 0.627505; 0.879447;, - 0.625080; 0.886867;, - 0.622571; 0.885603;, - 0.627505; 0.879447;, - 0.602976; 0.896356;, - 0.596078; 0.901341;, - 0.590510; 0.890437;, - 0.598617; 0.887819;, - 0.596078; 0.901341;, - 0.602976; 0.896356;, - 0.609772; 0.903107;, - 0.604758; 0.909964;, - 0.609772; 0.903107;, - 0.602976; 0.896356;, - 0.609875; 0.891371;, - 0.614786; 0.896250;, - 0.609772; 0.903107;, - 0.618361; 0.907434;, - 0.615729; 0.915491;, - 0.604758; 0.909964;, - 0.615729; 0.915491;, - 0.618361; 0.907434;, - 0.627853; 0.908959;, - 0.627853; 0.917439;, - 0.618361; 0.907434;, - 0.620993; 0.899377;, - 0.627853; 0.900479;, - 0.627853; 0.908959;, - 0.618361; 0.907434;, - 0.609772; 0.903107;, - 0.614786; 0.896250;, - 0.620993; 0.899377;, - 0.609875; 0.891371;, - 0.602976; 0.896356;, - 0.598617; 0.887819;, - 0.606725; 0.885202;, - 0.620586; 0.883632;, - 0.619313; 0.881138;, - 0.626781; 0.878727;, - 0.627853; 0.838579;, - 0.604318; 0.846196;, - 0.602647; 0.843911;, - 0.627853; 0.835752;, - 0.589798; 0.866096;, - 0.589798; 0.890666;, - 0.587096; 0.891539;, - 0.587096; 0.865223;, - 0.589798; 0.866096;, - 0.590510; 0.866325;, - 0.590510; 0.890437;, - 0.589798; 0.890666;, - 0.627853; 0.835752;, - 0.602647; 0.843911;, - 0.601592; 0.842468;, - 0.627853; 0.833967;, - 0.602647; 0.843911;, - 0.587096; 0.865223;, - 0.585389; 0.864672;, - 0.601592; 0.842468;, - 0.587096; 0.865223;, - 0.602647; 0.843911;, - 0.602647; 0.843911;, - 0.587096; 0.865223;, - 0.585389; 0.864672;, - 0.587096; 0.865223;, - 0.587096; 0.891539;, - 0.585389; 0.892090;, - 0.587096; 0.891539;, - 0.587096; 0.865223;, - 0.587096; 0.865223;, - 0.587096; 0.891539;, - 0.627853; 0.835752;, - 0.602647; 0.843911;, - 0.602647; 0.843911;, - 0.627853; 0.835752;, - 0.602647; 0.912851;, - 0.604318; 0.910566;, - 0.627853; 0.918183;, - 0.627853; 0.921010;, - 0.604318; 0.910566;, - 0.604758; 0.909964;, - 0.627853; 0.917439;, - 0.627853; 0.918183;, - 0.585389; 0.892090;, - 0.587096; 0.891539;, - 0.602647; 0.912851;, - 0.601592; 0.914295;, - 0.601592; 0.914295;, - 0.602647; 0.912851;, - 0.627853; 0.921010;, - 0.627853; 0.922795;, - 0.627853; 0.921010;, - 0.602647; 0.912851;, - 0.602647; 0.912851;, - 0.627853; 0.921010;, - 0.602647; 0.912851;, - 0.587096; 0.891539;, - 0.587096; 0.891539;, - 0.602647; 0.912851;, - 0.627853; 0.839323;, - 0.604758; 0.846798;, - 0.604318; 0.846196;, - 0.627853; 0.838579;, - 0.627853; 0.887313;, - 0.630625; 0.886867;, - 0.633050; 0.894288;, - 0.627853; 0.895123;, - 0.633134; 0.885603;, - 0.637752; 0.891919;, - 0.633050; 0.894288;, - 0.630625; 0.886867;, - 0.633134; 0.885603;, - 0.630625; 0.886867;, - 0.628201; 0.879447;, - 0.635119; 0.883632;, - 0.641473; 0.888223;, - 0.637752; 0.891919;, - 0.633134; 0.885603;, - 0.635119; 0.883632;, - 0.636393; 0.881138;, - 0.643860; 0.883549;, - 0.641473; 0.888223;, - 0.636393; 0.881138;, - 0.635119; 0.883632;, - 0.628925; 0.878727;, - 0.635119; 0.883632;, - 0.633134; 0.885603;, - 0.628516; 0.879288;, - 0.636842; 0.878381;, - 0.644702; 0.878381;, - 0.643860; 0.883549;, - 0.636393; 0.881138;, - 0.636842; 0.878381;, - 0.636393; 0.875624;, - 0.643860; 0.873213;, - 0.644702; 0.878381;, - 0.636393; 0.875624;, - 0.636842; 0.878381;, - 0.628925; 0.878035;, - 0.636842; 0.878381;, - 0.636393; 0.881138;, - 0.628925; 0.878727;, - 0.627853; 0.908959;, - 0.637345; 0.907434;, - 0.639977; 0.915491;, - 0.627853; 0.917439;, - 0.639977; 0.915491;, - 0.637345; 0.907434;, - 0.645933; 0.903107;, - 0.650947; 0.909964;, - 0.637345; 0.907434;, - 0.634712; 0.899377;, - 0.640919; 0.896250;, - 0.645933; 0.903107;, - 0.645933; 0.903107;, - 0.652729; 0.896356;, - 0.659628; 0.901341;, - 0.650947; 0.909964;, - 0.665196; 0.890437;, - 0.659628; 0.901341;, - 0.652729; 0.896356;, - 0.657088; 0.887819;, - 0.657088; 0.887819;, - 0.652729; 0.896356;, - 0.645830; 0.891371;, - 0.648981; 0.885202;, - 0.645830; 0.891371;, - 0.652729; 0.896356;, - 0.645933; 0.903107;, - 0.640919; 0.896250;, - 0.658625; 0.878381;, - 0.667159; 0.878381;, - 0.665196; 0.890437;, - 0.657088; 0.887819;, - 0.665196; 0.866325;, - 0.667159; 0.878381;, - 0.658625; 0.878381;, - 0.657088; 0.868943;, - 0.657088; 0.868943;, - 0.658625; 0.878381;, - 0.650091; 0.878381;, - 0.648981; 0.871560;, - 0.650091; 0.878381;, - 0.658625; 0.878381;, - 0.657088; 0.887819;, - 0.648981; 0.885202;, - 0.627853; 0.900479;, - 0.634712; 0.899377;, - 0.637345; 0.907434;, - 0.627853; 0.908959;, - 0.635119; 0.873130;, - 0.641473; 0.868539;, - 0.643860; 0.873213;, - 0.636393; 0.875624;, - 0.633134; 0.871159;, - 0.637752; 0.864843;, - 0.641473; 0.868539;, - 0.635119; 0.873130;, - 0.633134; 0.871159;, - 0.635119; 0.873130;, - 0.628516; 0.877474;, - 0.633134; 0.871159;, - 0.630625; 0.869895;, - 0.633050; 0.862474;, - 0.637752; 0.864843;, - 0.633050; 0.862474;, - 0.630625; 0.869895;, - 0.627853; 0.869449;, - 0.627853; 0.861639;, - 0.630625; 0.869895;, - 0.628201; 0.877315;, - 0.627853; 0.869449;, - 0.630625; 0.869895;, - 0.633134; 0.871159;, - 0.628201; 0.877315;, - 0.652729; 0.860406;, - 0.659628; 0.855421;, - 0.665196; 0.866325;, - 0.657088; 0.868943;, - 0.652729; 0.860406;, - 0.645933; 0.853655;, - 0.650947; 0.846798;, - 0.659628; 0.855421;, - 0.645933; 0.853655;, - 0.652729; 0.860406;, - 0.645830; 0.865391;, - 0.640919; 0.860512;, - 0.645933; 0.853655;, - 0.637345; 0.849328;, - 0.639977; 0.841271;, - 0.650947; 0.846798;, - 0.639977; 0.841271;, - 0.637345; 0.849328;, - 0.627853; 0.847803;, - 0.627853; 0.839323;, - 0.637345; 0.849328;, - 0.634712; 0.857385;, - 0.627853; 0.856283;, - 0.627853; 0.847803;, - 0.637345; 0.849328;, - 0.645933; 0.853655;, - 0.640919; 0.860512;, - 0.634712; 0.857385;, - 0.645830; 0.865391;, - 0.652729; 0.860406;, - 0.657088; 0.868943;, - 0.648981; 0.871560;, - 0.635119; 0.873130;, - 0.636393; 0.875624;, - 0.628925; 0.878035;, - 0.627853; 0.918183;, - 0.651387; 0.910566;, - 0.653059; 0.912851;, - 0.627853; 0.921010;, - 0.651387; 0.910566;, - 0.665908; 0.890666;, - 0.668610; 0.891539;, - 0.653059; 0.912851;, - 0.665908; 0.890666;, - 0.651387; 0.910566;, - 0.650947; 0.909964;, - 0.665196; 0.890437;, - 0.665908; 0.866096;, - 0.668610; 0.865223;, - 0.668610; 0.891539;, - 0.665908; 0.890666;, - 0.665908; 0.866096;, - 0.665908; 0.890666;, - 0.665196; 0.890437;, - 0.665196; 0.866325;, - 0.627853; 0.921010;, - 0.653059; 0.912851;, - 0.654114; 0.914295;, - 0.627853; 0.922795;, - 0.653059; 0.912851;, - 0.668610; 0.891539;, - 0.670317; 0.892090;, - 0.654114; 0.914295;, - 0.668610; 0.891539;, - 0.653059; 0.912851;, - 0.653059; 0.912851;, - 0.668610; 0.891539;, - 0.668610; 0.891539;, - 0.668610; 0.865223;, - 0.670317; 0.864672;, - 0.670317; 0.892090;, - 0.668610; 0.865223;, - 0.668610; 0.891539;, - 0.668610; 0.891539;, - 0.668610; 0.865223;, - 0.627853; 0.921010;, - 0.653059; 0.912851;, - 0.653059; 0.912851;, - 0.627853; 0.921010;, - 0.651387; 0.846196;, - 0.653059; 0.843911;, - 0.668610; 0.865223;, - 0.665908; 0.866096;, - 0.653059; 0.843911;, - 0.651387; 0.846196;, - 0.627853; 0.838579;, - 0.627853; 0.835752;, - 0.651387; 0.846196;, - 0.650947; 0.846798;, - 0.627853; 0.839323;, - 0.627853; 0.838579;, - 0.653059; 0.843911;, - 0.654114; 0.842468;, - 0.670317; 0.864672;, - 0.668610; 0.865223;, - 0.654114; 0.842468;, - 0.653059; 0.843911;, - 0.627853; 0.835752;, - 0.627853; 0.833967;, - 0.627853; 0.835752;, - 0.653059; 0.843911;, - 0.653059; 0.843911;, - 0.627853; 0.835752;, - 0.653059; 0.843911;, - 0.653059; 0.843911;, - 0.668610; 0.865223;, - 0.668610; 0.865223;, - 0.650947; 0.846798;, - 0.651387; 0.846196;, - 0.665908; 0.866096;, - 0.665196; 0.866325;, - 0.651387; 0.910566;, - 0.627853; 0.918183;, - 0.627853; 0.917439;, - 0.650947; 0.909964;, - 0.630625; 0.886867;, - 0.627853; 0.887313;, - 0.628201; 0.879447;, - 0.627853; 0.827719;, - 0.597897; 0.837415;, - 0.597633; 0.837054;, - 0.627853; 0.827273;, - 0.597897; 0.837415;, - 0.579415; 0.862744;, - 0.578988; 0.862606;, - 0.597633; 0.837054;, - 0.579415; 0.862744;, - 0.597897; 0.837415;, - 0.601592; 0.842468;, - 0.585389; 0.864672;, - 0.579415; 0.862744;, - 0.579415; 0.894018;, - 0.578988; 0.894156;, - 0.578988; 0.862606;, - 0.579415; 0.894018;, - 0.579415; 0.862744;, - 0.585389; 0.864672;, - 0.585389; 0.892090;, - 0.592123; 0.829519;, - 0.578693; 0.842859;, - 0.575469; 0.840529;, - 0.589780; 0.826314;, - 0.578693; 0.842859;, - 0.570078; 0.859730;, - 0.566289; 0.858506;, - 0.575469; 0.840529;, - 0.570078; 0.859730;, - 0.578693; 0.842859;, - 0.581917; 0.845189;, - 0.573867; 0.860953;, - 0.592123; 0.829519;, - 0.594466; 0.832723;, - 0.581917; 0.845189;, - 0.578693; 0.842859;, - 0.566289; 0.858506;, - 0.570078; 0.859730;, - 0.567041; 0.878381;, - 0.563053; 0.878381;, - 0.567041; 0.878381;, - 0.570078; 0.897032;, - 0.566289; 0.898256;, - 0.563053; 0.878381;, - 0.570078; 0.897032;, - 0.567041; 0.878381;, - 0.571030; 0.878381;, - 0.573867; 0.895809;, - 0.570078; 0.859730;, - 0.573867; 0.860953;, - 0.571030; 0.878381;, - 0.567041; 0.878381;, - 0.627853; 0.827273;, - 0.597633; 0.837054;, - 0.594466; 0.832723;, - 0.627853; 0.821917;, - 0.597897; 0.919347;, - 0.597633; 0.919708;, - 0.578988; 0.894156;, - 0.579415; 0.894018;, - 0.627853; 0.929043;, - 0.627853; 0.929490;, - 0.597633; 0.919708;, - 0.597897; 0.919347;, - 0.627853; 0.922795;, - 0.627853; 0.929043;, - 0.597897; 0.919347;, - 0.601592; 0.914295;, - 0.578693; 0.913903;, - 0.575469; 0.916233;, - 0.566289; 0.898256;, - 0.570078; 0.897032;, - 0.575469; 0.916233;, - 0.578693; 0.913903;, - 0.592123; 0.927243;, - 0.589780; 0.930448;, - 0.592123; 0.927243;, - 0.578693; 0.913903;, - 0.581917; 0.911573;, - 0.594466; 0.924039;, - 0.581917; 0.911573;, - 0.578693; 0.913903;, - 0.570078; 0.897032;, - 0.573867; 0.895809;, - 0.594466; 0.924039;, - 0.597633; 0.919708;, - 0.627853; 0.929490;, - 0.627853; 0.934845;, - 0.601592; 0.914295;, - 0.597897; 0.919347;, - 0.579415; 0.894018;, - 0.585389; 0.892090;, - 0.627853; 0.810143;, - 0.606671; 0.813546;, - 0.605476; 0.809891;, - 0.627853; 0.806296;, - 0.605476; 0.809891;, - 0.606671; 0.813546;, - 0.587505; 0.823203;, - 0.585230; 0.820092;, - 0.606671; 0.813546;, - 0.607865; 0.817202;, - 0.589780; 0.826314;, - 0.587505; 0.823203;, - 0.627853; 0.798262;, - 0.602983; 0.802258;, - 0.600489; 0.794625;, - 0.627853; 0.790228;, - 0.600489; 0.794625;, - 0.602983; 0.802258;, - 0.580480; 0.813596;, - 0.575729; 0.807100;, - 0.602983; 0.802258;, - 0.605476; 0.809891;, - 0.585230; 0.820092;, - 0.580480; 0.813596;, - 0.627853; 0.806296;, - 0.605476; 0.809891;, - 0.602983; 0.802258;, - 0.627853; 0.798262;, - 0.572339; 0.838267;, - 0.569209; 0.836006;, - 0.585230; 0.820092;, - 0.587505; 0.823203;, - 0.558932; 0.856131;, - 0.569209; 0.836006;, - 0.572339; 0.838267;, - 0.562611; 0.857319;, - 0.562611; 0.857319;, - 0.572339; 0.838267;, - 0.575469; 0.840529;, - 0.566289; 0.858506;, - 0.575729; 0.807100;, - 0.580480; 0.813596;, - 0.562673; 0.831283;, - 0.556138; 0.826561;, - 0.562673; 0.831283;, - 0.551251; 0.853652;, - 0.543570; 0.851172;, - 0.556138; 0.826561;, - 0.551251; 0.853652;, - 0.562673; 0.831283;, - 0.569209; 0.836006;, - 0.558932; 0.856131;, - 0.562673; 0.831283;, - 0.580480; 0.813596;, - 0.585230; 0.820092;, - 0.569209; 0.836006;, - 0.575469; 0.840529;, - 0.572339; 0.838267;, - 0.587505; 0.823203;, - 0.589780; 0.826314;, - 0.559181; 0.878381;, - 0.555309; 0.878381;, - 0.558932; 0.856131;, - 0.562611; 0.857319;, - 0.558932; 0.900631;, - 0.555309; 0.878381;, - 0.559181; 0.878381;, - 0.562611; 0.899443;, - 0.562611; 0.899443;, - 0.559181; 0.878381;, - 0.563053; 0.878381;, - 0.566289; 0.898256;, - 0.543570; 0.851172;, - 0.551251; 0.853652;, - 0.547225; 0.878381;, - 0.539140; 0.878381;, - 0.547225; 0.878381;, - 0.551251; 0.903110;, - 0.543570; 0.905590;, - 0.539140; 0.878381;, - 0.551251; 0.903110;, - 0.547225; 0.878381;, - 0.555309; 0.878381;, - 0.558932; 0.900631;, - 0.551251; 0.853652;, - 0.558932; 0.856131;, - 0.555309; 0.878381;, - 0.547225; 0.878381;, - 0.563053; 0.878381;, - 0.559181; 0.878381;, - 0.562611; 0.857319;, - 0.566289; 0.858506;, - 0.627853; 0.788220;, - 0.599866; 0.792717;, - 0.599242; 0.790808;, - 0.627853; 0.786212;, - 0.599242; 0.790808;, - 0.599866; 0.792717;, - 0.574542; 0.805476;, - 0.573354; 0.803852;, - 0.599866; 0.792717;, - 0.600489; 0.794625;, - 0.575729; 0.807100;, - 0.574542; 0.805476;, - 0.627853; 0.785989;, - 0.599173; 0.790596;, - 0.599104; 0.790384;, - 0.627853; 0.785765;, - 0.599104; 0.790384;, - 0.599173; 0.790596;, - 0.573222; 0.803671;, - 0.573090; 0.803491;, - 0.599173; 0.790596;, - 0.599242; 0.790808;, - 0.573354; 0.803852;, - 0.573222; 0.803671;, - 0.627853; 0.786212;, - 0.599242; 0.790808;, - 0.599173; 0.790596;, - 0.627853; 0.785989;, - 0.554503; 0.825380;, - 0.552870; 0.824199;, - 0.573354; 0.803852;, - 0.574542; 0.805476;, - 0.539730; 0.849932;, - 0.552870; 0.824199;, - 0.554503; 0.825380;, - 0.541650; 0.850552;, - 0.541650; 0.850552;, - 0.554503; 0.825380;, - 0.556138; 0.826561;, - 0.543570; 0.851172;, - 0.573090; 0.803491;, - 0.573222; 0.803671;, - 0.552688; 0.824068;, - 0.552507; 0.823937;, - 0.552688; 0.824068;, - 0.539517; 0.849863;, - 0.539303; 0.849794;, - 0.552507; 0.823937;, - 0.539517; 0.849863;, - 0.552688; 0.824068;, - 0.552870; 0.824199;, - 0.539730; 0.849932;, - 0.573222; 0.803671;, - 0.573354; 0.803852;, - 0.552870; 0.824199;, - 0.552688; 0.824068;, - 0.556138; 0.826561;, - 0.554503; 0.825380;, - 0.574542; 0.805476;, - 0.575729; 0.807100;, - 0.537119; 0.878381;, - 0.535098; 0.878381;, - 0.539730; 0.849932;, - 0.541650; 0.850552;, - 0.539730; 0.906830;, - 0.535098; 0.878381;, - 0.537119; 0.878381;, - 0.541650; 0.906210;, - 0.541650; 0.906210;, - 0.537119; 0.878381;, - 0.539140; 0.878381;, - 0.543570; 0.905590;, - 0.539303; 0.849794;, - 0.539517; 0.849863;, - 0.534873; 0.878381;, - 0.534649; 0.878381;, - 0.534873; 0.878381;, - 0.539517; 0.906899;, - 0.539303; 0.906968;, - 0.534649; 0.878381;, - 0.539517; 0.906899;, - 0.534873; 0.878381;, - 0.535098; 0.878381;, - 0.539730; 0.906830;, - 0.539517; 0.849863;, - 0.539730; 0.849932;, - 0.535098; 0.878381;, - 0.534873; 0.878381;, - 0.539140; 0.878381;, - 0.537119; 0.878381;, - 0.541650; 0.850552;, - 0.543570; 0.851172;, - 0.627853; 0.790228;, - 0.600489; 0.794625;, - 0.599866; 0.792717;, - 0.627853; 0.788220;, - 0.572339; 0.918495;, - 0.569209; 0.920756;, - 0.558932; 0.900631;, - 0.562611; 0.899443;, - 0.572339; 0.918495;, - 0.587505; 0.933559;, - 0.585230; 0.936670;, - 0.569209; 0.920756;, - 0.587505; 0.933559;, - 0.572339; 0.918495;, - 0.575469; 0.916233;, - 0.589780; 0.930448;, - 0.562673; 0.925479;, - 0.556138; 0.930201;, - 0.543570; 0.905590;, - 0.551251; 0.903110;, - 0.562673; 0.925479;, - 0.580480; 0.943166;, - 0.575729; 0.949662;, - 0.556138; 0.930201;, - 0.580480; 0.943166;, - 0.562673; 0.925479;, - 0.569209; 0.920756;, - 0.585230; 0.936670;, - 0.569209; 0.920756;, - 0.562673; 0.925479;, - 0.551251; 0.903110;, - 0.558932; 0.900631;, - 0.587505; 0.933559;, - 0.606671; 0.943216;, - 0.605476; 0.946871;, - 0.585230; 0.936670;, - 0.605476; 0.946871;, - 0.606671; 0.943216;, - 0.627853; 0.946619;, - 0.627853; 0.950466;, - 0.606671; 0.943216;, - 0.607865; 0.939560;, - 0.627853; 0.942771;, - 0.627853; 0.946619;, - 0.580480; 0.943166;, - 0.602983; 0.954504;, - 0.600489; 0.962137;, - 0.575729; 0.949662;, - 0.600489; 0.962137;, - 0.602983; 0.954504;, - 0.627853; 0.958500;, - 0.627853; 0.966533;, - 0.602983; 0.954504;, - 0.605476; 0.946871;, - 0.627853; 0.950466;, - 0.627853; 0.958500;, - 0.602983; 0.954504;, - 0.580480; 0.943166;, - 0.585230; 0.936670;, - 0.605476; 0.946871;, - 0.606671; 0.943216;, - 0.587505; 0.933559;, - 0.589780; 0.930448;, - 0.607865; 0.939560;, - 0.554503; 0.931382;, - 0.552870; 0.932563;, - 0.539730; 0.906830;, - 0.541650; 0.906210;, - 0.573354; 0.952910;, - 0.552870; 0.932563;, - 0.554503; 0.931382;, - 0.574542; 0.951286;, - 0.574542; 0.951286;, - 0.554503; 0.931382;, - 0.556138; 0.930201;, - 0.575729; 0.949662;, - 0.539303; 0.906968;, - 0.539517; 0.906899;, - 0.552688; 0.932694;, - 0.552507; 0.932825;, - 0.552507; 0.932825;, - 0.552688; 0.932694;, - 0.573222; 0.953091;, - 0.573090; 0.953271;, - 0.573222; 0.953091;, - 0.552688; 0.932694;, - 0.552870; 0.932563;, - 0.573354; 0.952910;, - 0.539517; 0.906899;, - 0.539730; 0.906830;, - 0.552870; 0.932563;, - 0.552688; 0.932694;, - 0.574542; 0.951286;, - 0.599866; 0.964045;, - 0.599242; 0.965953;, - 0.573354; 0.952910;, - 0.599242; 0.965953;, - 0.599866; 0.964045;, - 0.627853; 0.968542;, - 0.627853; 0.970550;, - 0.599866; 0.964045;, - 0.600489; 0.962137;, - 0.627853; 0.966533;, - 0.627853; 0.968542;, - 0.573222; 0.953091;, - 0.599173; 0.966166;, - 0.599104; 0.966378;, - 0.573090; 0.953271;, - 0.599104; 0.966378;, - 0.599173; 0.966166;, - 0.627853; 0.970773;, - 0.627853; 0.970997;, - 0.599173; 0.966166;, - 0.599242; 0.965953;, - 0.627853; 0.970550;, - 0.627853; 0.970773;, - 0.599173; 0.966166;, - 0.573222; 0.953091;, - 0.573354; 0.952910;, - 0.599242; 0.965953;, - 0.599866; 0.964045;, - 0.574542; 0.951286;, - 0.575729; 0.949662;, - 0.600489; 0.962137;, - 0.556138; 0.930201;, - 0.554503; 0.931382;, - 0.541650; 0.906210;, - 0.543570; 0.905590;, - 0.575469; 0.916233;, - 0.572339; 0.918495;, - 0.562611; 0.899443;, - 0.566289; 0.898256;, - 0.627853; 0.813991;, - 0.607865; 0.817202;, - 0.606671; 0.813546;, - 0.627853; 0.810143;, - 0.627853; 0.929043;, - 0.657809; 0.919347;, - 0.658073; 0.919708;, - 0.627853; 0.929490;, - 0.657809; 0.919347;, - 0.676291; 0.894018;, - 0.676718; 0.894156;, - 0.658073; 0.919708;, - 0.676291; 0.894018;, - 0.657809; 0.919347;, - 0.654114; 0.914295;, - 0.670317; 0.892090;, - 0.676291; 0.894018;, - 0.676291; 0.862744;, - 0.676718; 0.862606;, - 0.676718; 0.894156;, - 0.670317; 0.864672;, - 0.676291; 0.862744;, - 0.676291; 0.894018;, - 0.670317; 0.892090;, - 0.665926; 0.930448;, - 0.663583; 0.927243;, - 0.677013; 0.913903;, - 0.680237; 0.916233;, - 0.677013; 0.913903;, - 0.685627; 0.897032;, - 0.689416; 0.898256;, - 0.680237; 0.916233;, - 0.685627; 0.897032;, - 0.677013; 0.913903;, - 0.673789; 0.911573;, - 0.681838; 0.895809;, - 0.663583; 0.927243;, - 0.661239; 0.924039;, - 0.673789; 0.911573;, - 0.677013; 0.913903;, - 0.689416; 0.898256;, - 0.685627; 0.897032;, - 0.688664; 0.878381;, - 0.692653; 0.878381;, - 0.688664; 0.878381;, - 0.685627; 0.859730;, - 0.689416; 0.858506;, - 0.692653; 0.878381;, - 0.685627; 0.859730;, - 0.688664; 0.878381;, - 0.684676; 0.878381;, - 0.681838; 0.860953;, - 0.685627; 0.897032;, - 0.681838; 0.895809;, - 0.684676; 0.878381;, - 0.688664; 0.878381;, - 0.627853; 0.929490;, - 0.658073; 0.919708;, - 0.661239; 0.924039;, - 0.627853; 0.934845;, - 0.657809; 0.837415;, - 0.658073; 0.837054;, - 0.676718; 0.862606;, - 0.676291; 0.862744;, - 0.658073; 0.837054;, - 0.657809; 0.837415;, - 0.627853; 0.827719;, - 0.627853; 0.827273;, - 0.657809; 0.837415;, - 0.654114; 0.842468;, - 0.627853; 0.833967;, - 0.627853; 0.827719;, - 0.677013; 0.842859;, - 0.680237; 0.840529;, - 0.689416; 0.858506;, - 0.685627; 0.859730;, - 0.677013; 0.842859;, - 0.663583; 0.829519;, - 0.665926; 0.826314;, - 0.680237; 0.840529;, - 0.663583; 0.829519;, - 0.677013; 0.842859;, - 0.673789; 0.845189;, - 0.661239; 0.832723;, - 0.673789; 0.845189;, - 0.677013; 0.842859;, - 0.685627; 0.859730;, - 0.681838; 0.860953;, - 0.661239; 0.832723;, - 0.658073; 0.837054;, - 0.627853; 0.827273;, - 0.627853; 0.821917;, - 0.654114; 0.842468;, - 0.657809; 0.837415;, - 0.676291; 0.862744;, - 0.670317; 0.864672;, - 0.627853; 0.946619;, - 0.649035; 0.943216;, - 0.650229; 0.946871;, - 0.627853; 0.950466;, - 0.668201; 0.933559;, - 0.670476; 0.936670;, - 0.650229; 0.946871;, - 0.649035; 0.943216;, - 0.665926; 0.930448;, - 0.668201; 0.933559;, - 0.649035; 0.943216;, - 0.647840; 0.939560;, - 0.627853; 0.958500;, - 0.652723; 0.954504;, - 0.655217; 0.962137;, - 0.627853; 0.966533;, - 0.655217; 0.962137;, - 0.652723; 0.954504;, - 0.675226; 0.943166;, - 0.679976; 0.949662;, - 0.652723; 0.954504;, - 0.650229; 0.946871;, - 0.670476; 0.936670;, - 0.675226; 0.943166;, - 0.627853; 0.950466;, - 0.650229; 0.946871;, - 0.652723; 0.954504;, - 0.627853; 0.958500;, - 0.683367; 0.918495;, - 0.686497; 0.920756;, - 0.670476; 0.936670;, - 0.668201; 0.933559;, - 0.683367; 0.918495;, - 0.693095; 0.899443;, - 0.696773; 0.900631;, - 0.686497; 0.920756;, - 0.693095; 0.899443;, - 0.683367; 0.918495;, - 0.680237; 0.916233;, - 0.689416; 0.898256;, - 0.693032; 0.925479;, - 0.699568; 0.930201;, - 0.679976; 0.949662;, - 0.675226; 0.943166;, - 0.693032; 0.925479;, - 0.704454; 0.903110;, - 0.712135; 0.905590;, - 0.699568; 0.930201;, - 0.704454; 0.903110;, - 0.693032; 0.925479;, - 0.686497; 0.920756;, - 0.696773; 0.900631;, - 0.686497; 0.920756;, - 0.693032; 0.925479;, - 0.675226; 0.943166;, - 0.670476; 0.936670;, - 0.683367; 0.918495;, - 0.668201; 0.933559;, - 0.665926; 0.930448;, - 0.680237; 0.916233;, - 0.696524; 0.878381;, - 0.700396; 0.878381;, - 0.696773; 0.900631;, - 0.693095; 0.899443;, - 0.696524; 0.878381;, - 0.693095; 0.857319;, - 0.696773; 0.856131;, - 0.700396; 0.878381;, - 0.693095; 0.857319;, - 0.696524; 0.878381;, - 0.692653; 0.878381;, - 0.689416; 0.858506;, - 0.708481; 0.878381;, - 0.716566; 0.878381;, - 0.712135; 0.905590;, - 0.704454; 0.903110;, - 0.708481; 0.878381;, - 0.704454; 0.853652;, - 0.712135; 0.851172;, - 0.716566; 0.878381;, - 0.704454; 0.853652;, - 0.708481; 0.878381;, - 0.700396; 0.878381;, - 0.696773; 0.856131;, - 0.700396; 0.878381;, - 0.708481; 0.878381;, - 0.704454; 0.903110;, - 0.696773; 0.900631;, - 0.692653; 0.878381;, - 0.696524; 0.878381;, - 0.693095; 0.899443;, - 0.689416; 0.898256;, - 0.627853; 0.968542;, - 0.655840; 0.964045;, - 0.656463; 0.965953;, - 0.627853; 0.970550;, - 0.656463; 0.965953;, - 0.655840; 0.964045;, - 0.681164; 0.951286;, - 0.682352; 0.952910;, - 0.655840; 0.964045;, - 0.655217; 0.962137;, - 0.679976; 0.949662;, - 0.681164; 0.951286;, - 0.627853; 0.970773;, - 0.656533; 0.966166;, - 0.656602; 0.966378;, - 0.627853; 0.970997;, - 0.656602; 0.966378;, - 0.656533; 0.966166;, - 0.682483; 0.953091;, - 0.682615; 0.953271;, - 0.656533; 0.966166;, - 0.656463; 0.965953;, - 0.682352; 0.952910;, - 0.682483; 0.953091;, - 0.627853; 0.970550;, - 0.656463; 0.965953;, - 0.656533; 0.966166;, - 0.627853; 0.970773;, - 0.701202; 0.931382;, - 0.702836; 0.932563;, - 0.682352; 0.952910;, - 0.681164; 0.951286;, - 0.715976; 0.906830;, - 0.702836; 0.932563;, - 0.701202; 0.931382;, - 0.714056; 0.906210;, - 0.714056; 0.906210;, - 0.701202; 0.931382;, - 0.699568; 0.930201;, - 0.712135; 0.905590;, - 0.682483; 0.953091;, - 0.703018; 0.932694;, - 0.703199; 0.932825;, - 0.682615; 0.953271;, - 0.703018; 0.932694;, - 0.716189; 0.906899;, - 0.716402; 0.906968;, - 0.703199; 0.932825;, - 0.716189; 0.906899;, - 0.703018; 0.932694;, - 0.702836; 0.932563;, - 0.715976; 0.906830;, - 0.682483; 0.953091;, - 0.682352; 0.952910;, - 0.702836; 0.932563;, - 0.703018; 0.932694;, - 0.699568; 0.930201;, - 0.701202; 0.931382;, - 0.681164; 0.951286;, - 0.679976; 0.949662;, - 0.718587; 0.878381;, - 0.720608; 0.878381;, - 0.715976; 0.906830;, - 0.714056; 0.906210;, - 0.715976; 0.849932;, - 0.720608; 0.878381;, - 0.718587; 0.878381;, - 0.714056; 0.850552;, - 0.714056; 0.850552;, - 0.718587; 0.878381;, - 0.716566; 0.878381;, - 0.712135; 0.851172;, - 0.716402; 0.906968;, - 0.716189; 0.906899;, - 0.720833; 0.878381;, - 0.721057; 0.878381;, - 0.720833; 0.878381;, - 0.716189; 0.849863;, - 0.716402; 0.849794;, - 0.721057; 0.878381;, - 0.716189; 0.849863;, - 0.720833; 0.878381;, - 0.720608; 0.878381;, - 0.715976; 0.849932;, - 0.716189; 0.906899;, - 0.715976; 0.906830;, - 0.720608; 0.878381;, - 0.720833; 0.878381;, - 0.716566; 0.878381;, - 0.718587; 0.878381;, - 0.714056; 0.906210;, - 0.712135; 0.905590;, - 0.627853; 0.966533;, - 0.655217; 0.962137;, - 0.655840; 0.964045;, - 0.627853; 0.968542;, - 0.683367; 0.838267;, - 0.686497; 0.836006;, - 0.696773; 0.856131;, - 0.693095; 0.857319;, - 0.683367; 0.838267;, - 0.668201; 0.823203;, - 0.670476; 0.820092;, - 0.686497; 0.836006;, - 0.665926; 0.826314;, - 0.668201; 0.823203;, - 0.683367; 0.838267;, - 0.680237; 0.840529;, - 0.693032; 0.831283;, - 0.699568; 0.826561;, - 0.712135; 0.851172;, - 0.704454; 0.853652;, - 0.693032; 0.831283;, - 0.675226; 0.813596;, - 0.679976; 0.807100;, - 0.699568; 0.826561;, - 0.675226; 0.813596;, - 0.693032; 0.831283;, - 0.686497; 0.836006;, - 0.670476; 0.820092;, - 0.686497; 0.836006;, - 0.693032; 0.831283;, - 0.704454; 0.853652;, - 0.696773; 0.856131;, - 0.668201; 0.823203;, - 0.649035; 0.813546;, - 0.650229; 0.809891;, - 0.670476; 0.820092;, - 0.650229; 0.809891;, - 0.649035; 0.813546;, - 0.627853; 0.810143;, - 0.627853; 0.806296;, - 0.649035; 0.813546;, - 0.647840; 0.817202;, - 0.627853; 0.813991;, - 0.627853; 0.810143;, - 0.675226; 0.813596;, - 0.652723; 0.802258;, - 0.655217; 0.794625;, - 0.679976; 0.807100;, - 0.655217; 0.794625;, - 0.652723; 0.802258;, - 0.627853; 0.798262;, - 0.627853; 0.790228;, - 0.652723; 0.802258;, - 0.650229; 0.809891;, - 0.627853; 0.806296;, - 0.627853; 0.798262;, - 0.652723; 0.802258;, - 0.675226; 0.813596;, - 0.670476; 0.820092;, - 0.650229; 0.809891;, - 0.649035; 0.813546;, - 0.668201; 0.823203;, - 0.665926; 0.826314;, - 0.647840; 0.817202;, - 0.701202; 0.825380;, - 0.702836; 0.824199;, - 0.715976; 0.849932;, - 0.714056; 0.850552;, - 0.701202; 0.825380;, - 0.681164; 0.805476;, - 0.682352; 0.803852;, - 0.702836; 0.824199;, - 0.681164; 0.805476;, - 0.701202; 0.825380;, - 0.699568; 0.826561;, - 0.679976; 0.807100;, - 0.703018; 0.824068;, - 0.703199; 0.823937;, - 0.716402; 0.849794;, - 0.716189; 0.849863;, - 0.703018; 0.824068;, - 0.682483; 0.803671;, - 0.682615; 0.803491;, - 0.703199; 0.823937;, - 0.682483; 0.803671;, - 0.703018; 0.824068;, - 0.702836; 0.824199;, - 0.682352; 0.803852;, - 0.702836; 0.824199;, - 0.703018; 0.824068;, - 0.716189; 0.849863;, - 0.715976; 0.849932;, - 0.681164; 0.805476;, - 0.655840; 0.792717;, - 0.656463; 0.790808;, - 0.682352; 0.803852;, - 0.656463; 0.790808;, - 0.655840; 0.792717;, - 0.627853; 0.788220;, - 0.627853; 0.786212;, - 0.655840; 0.792717;, - 0.655217; 0.794625;, - 0.627853; 0.790228;, - 0.627853; 0.788220;, - 0.682483; 0.803671;, - 0.656533; 0.790596;, - 0.656602; 0.790384;, - 0.682615; 0.803491;, - 0.656602; 0.790384;, - 0.656533; 0.790596;, - 0.627853; 0.785989;, - 0.627853; 0.785765;, - 0.656533; 0.790596;, - 0.656463; 0.790808;, - 0.627853; 0.786212;, - 0.627853; 0.785989;, - 0.656533; 0.790596;, - 0.682483; 0.803671;, - 0.682352; 0.803852;, - 0.656463; 0.790808;, - 0.655840; 0.792717;, - 0.681164; 0.805476;, - 0.679976; 0.807100;, - 0.655217; 0.794625;, - 0.699568; 0.826561;, - 0.701202; 0.825380;, - 0.714056; 0.850552;, - 0.712135; 0.851172;, - 0.680237; 0.840529;, - 0.683367; 0.838267;, - 0.693095; 0.857319;, - 0.689416; 0.858506;, - 0.649035; 0.943216;, - 0.627853; 0.946619;, - 0.627853; 0.942771;, - 0.647840; 0.939560;, - 0.657809; 0.919347;, - 0.627853; 0.929043;, - 0.627853; 0.922795;, - 0.654114; 0.914295;, - 0.597897; 0.837415;, - 0.627853; 0.827719;, - 0.627853; 0.833967;, - 0.601592; 0.842468;, - 0.625080; 0.869895;, - 0.627853; 0.869449;, - 0.627505; 0.877315;, - 0.647840; 0.817202;, - 0.627853; 0.813991;, - 0.627853; 0.821917;, - 0.663583; 0.829519;, - 0.665926; 0.826314;, - 0.661239; 0.832723;, - 0.627853; 0.821917;, - 0.661239; 0.832723;, - 0.665926; 0.826314;, - 0.647840; 0.817202;, - 0.673789; 0.845189;, - 0.661239; 0.832723;, - 0.658073; 0.837054;, - 0.676718; 0.862606;, - 0.681838; 0.860953;, - 0.673789; 0.845189;, - 0.658073; 0.837054;, - 0.684676; 0.878381;, - 0.681838; 0.860953;, - 0.676718; 0.862606;, - 0.676718; 0.894156;, - 0.681838; 0.895809;, - 0.684676; 0.878381;, - 0.676718; 0.862606;, - 0.663583; 0.927243;, - 0.661239; 0.924039;, - 0.627853; 0.934845;, - 0.647840; 0.939560;, - 0.627853; 0.934845;, - 0.627853; 0.942771;, - 0.627853; 0.934845;, - 0.647840; 0.939560;, - 0.665926; 0.930448;, - 0.663583; 0.927243;, - 0.661239; 0.924039;, - 0.673789; 0.911573;, - 0.658073; 0.919708;, - 0.658073; 0.919708;, - 0.673789; 0.911573;, - 0.681838; 0.895809;, - 0.676718; 0.894156;, - 0.627853; 0.934845;, - 0.594466; 0.924039;, - 0.592123; 0.927243;, - 0.627853; 0.942771;, - 0.627853; 0.934845;, - 0.607865; 0.939560;, - 0.589779; 0.930448;, - 0.607865; 0.939560;, - 0.627853; 0.934845;, - 0.592123; 0.927243;, - 0.597633; 0.919708;, - 0.581917; 0.911573;, - 0.594466; 0.924039;, - 0.573867; 0.895809;, - 0.581917; 0.911573;, - 0.597633; 0.919708;, - 0.578988; 0.894156;, - 0.578988; 0.862606;, - 0.573867; 0.860953;, - 0.571030; 0.878381;, - 0.571030; 0.878381;, - 0.573867; 0.895809;, - 0.578988; 0.894156;, - 0.578988; 0.862606;, - 0.627853; 0.821917;, - 0.627853; 0.813991;, - 0.607865; 0.817202;, - 0.594466; 0.832723;, - 0.627853; 0.821917;, - 0.592123; 0.829519;, - 0.589779; 0.826314;, - 0.592123; 0.829519;, - 0.627853; 0.821917;, - 0.607865; 0.817202;, - 0.597633; 0.837054;, - 0.594466; 0.832723;, - 0.581917; 0.845189;, - 0.581917; 0.845189;, - 0.573867; 0.860953;, - 0.578988; 0.862606;, - 0.597633; 0.837054;, - 0.617953; 0.864843;, - 0.614786; 0.860512;, - 0.622656; 0.862474;, - 0.627853; 0.861639;, - 0.622656; 0.862474;, - 0.614786; 0.860512;, - 0.620993; 0.857385;, - 0.627853; 0.856283;, - 0.634712; 0.857385;, - 0.627853; 0.861639;, - 0.620993; 0.857385;, - 0.633050; 0.862474;, - 0.640919; 0.860512;, - 0.637752; 0.864843;, - 0.640919; 0.860512;, - 0.633050; 0.862474;, - 0.627853; 0.861639;, - 0.634712; 0.857385;, - 0.617953; 0.864843;, - 0.614232; 0.868539;, - 0.609875; 0.865391;, - 0.614786; 0.860512;, - 0.614232; 0.868539;, - 0.611846; 0.873213;, - 0.606725; 0.871560;, - 0.609875; 0.865391;, - 0.611846; 0.873213;, - 0.611004; 0.878381;, - 0.605614; 0.878381;, - 0.606725; 0.871560;, - 0.611846; 0.883549;, - 0.606725; 0.885202;, - 0.605614; 0.878381;, - 0.611004; 0.878381;, - 0.627853; 0.839323;, - 0.627853; 0.839323;, - 0.615729; 0.841271;, - 0.604758; 0.846798;, - 0.604758; 0.846798;, - 0.627853; 0.839323;, - 0.615729; 0.841271;, - 0.590510; 0.866325;, - 0.604758; 0.846798;, - 0.596078; 0.855421;, - 0.590510; 0.866325;, - 0.596078; 0.855421;, - 0.590510; 0.866325;, - 0.604758; 0.846798;, - 0.604758; 0.846798;, - 0.590510; 0.866325;, - 0.589798; 0.866096;, - 0.590510; 0.890437;, - 0.588547; 0.878381;, - 0.590510; 0.890437;, - 0.590510; 0.866325;, - 0.588547; 0.878381;, - 0.590510; 0.890437;, - 0.590510; 0.866325;, - 0.614232; 0.888223;, - 0.609875; 0.891371;, - 0.606725; 0.885202;, - 0.611846; 0.883549;, - 0.617953; 0.891919;, - 0.614786; 0.896250;, - 0.609875; 0.891371;, - 0.614232; 0.888223;, - 0.614786; 0.896250;, - 0.617953; 0.891919;, - 0.622656; 0.894288;, - 0.620993; 0.899377;, - 0.614786; 0.896250;, - 0.627853; 0.900479;, - 0.627853; 0.895123;, - 0.627853; 0.900479;, - 0.614786; 0.896250;, - 0.622656; 0.894288;, - 0.604758; 0.909964;, - 0.596078; 0.901341;, - 0.604758; 0.909964;, - 0.590510; 0.890437;, - 0.596078; 0.901341;, - 0.604758; 0.909964;, - 0.590510; 0.890437;, - 0.615729; 0.915491;, - 0.627853; 0.917439;, - 0.627853; 0.917439;, - 0.627853; 0.917439;, - 0.604758; 0.909964;, - 0.604758; 0.909964;, - 0.615729; 0.915491;, - 0.633050; 0.894288;, - 0.637752; 0.891919;, - 0.640919; 0.896250;, - 0.627853; 0.900479;, - 0.640919; 0.896250;, - 0.634712; 0.899377;, - 0.640919; 0.896250;, - 0.627853; 0.900479;, - 0.627853; 0.895123;, - 0.633050; 0.894288;, - 0.648981; 0.885202;, - 0.645830; 0.891371;, - 0.641473; 0.888223;, - 0.643860; 0.883549;, - 0.645830; 0.891371;, - 0.640919; 0.896250;, - 0.637752; 0.891919;, - 0.641473; 0.888223;, - 0.650091; 0.878381;, - 0.644702; 0.878381;, - 0.643860; 0.873213;, - 0.648981; 0.871560;, - 0.648981; 0.885202;, - 0.643860; 0.883549;, - 0.644702; 0.878381;, - 0.650091; 0.878381;, - 0.639977; 0.915491;, - 0.650947; 0.909964;, - 0.650947; 0.909964;, - 0.650947; 0.909964;, - 0.627853; 0.917439;, - 0.627853; 0.917439;, - 0.639977; 0.915491;, - 0.650947; 0.909964;, - 0.659628; 0.901341;, - 0.650947; 0.909964;, - 0.650947; 0.909964;, - 0.659628; 0.901341;, - 0.665196; 0.890437;, - 0.665196; 0.890437;, - 0.665196; 0.890437;, - 0.667159; 0.878381;, - 0.665196; 0.890437;, - 0.665196; 0.890437;, - 0.667159; 0.878381;, - 0.665196; 0.866325;, - 0.665196; 0.866325;, - 0.645830; 0.865391;, - 0.641473; 0.868539;, - 0.637752; 0.864843;, - 0.640919; 0.860512;, - 0.648981; 0.871560;, - 0.643860; 0.873213;, - 0.641473; 0.868539;, - 0.645830; 0.865391;, - 0.665196; 0.866325;, - 0.659628; 0.855421;, - 0.665196; 0.866325;, - 0.665196; 0.866325;, - 0.659628; 0.855421;, - 0.650947; 0.846798;, - 0.650947; 0.846798;, - 0.650947; 0.846798;, - 0.650947; 0.846798;, - 0.639977; 0.841271;, - 0.627853; 0.839323;, - 0.627853; 0.839323;, - 0.650947; 0.846798;, - 0.639977; 0.841271;, - 0.607865; 0.817202;, - 0.627853; 0.813991;, - 0.627853; 0.821917;, - 0.592123; 0.829519;, - 0.589780; 0.826314;, - 0.594466; 0.832723;, - 0.627853; 0.821917;, - 0.594466; 0.832723;, - 0.589780; 0.826314;, - 0.607865; 0.817202;, - 0.581917; 0.845189;, - 0.594466; 0.832723;, - 0.597633; 0.837054;, - 0.578988; 0.862606;, - 0.573867; 0.860953;, - 0.581917; 0.845189;, - 0.597633; 0.837054;, - 0.571030; 0.878381;, - 0.573867; 0.860953;, - 0.578988; 0.862606;, - 0.578988; 0.894156;, - 0.573867; 0.895809;, - 0.571030; 0.878381;, - 0.578988; 0.862606;, - 0.592123; 0.927243;, - 0.594466; 0.924039;, - 0.627853; 0.934845;, - 0.607865; 0.939560;, - 0.627853; 0.934845;, - 0.627853; 0.942771;, - 0.627853; 0.934845;, - 0.607865; 0.939560;, - 0.589780; 0.930448;, - 0.592123; 0.927243;, - 0.594466; 0.924039;, - 0.581917; 0.911573;, - 0.597633; 0.919708;, - 0.597633; 0.919708;, - 0.581917; 0.911573;, - 0.573867; 0.895809;, - 0.578988; 0.894156;, - 0.627853; 0.934845;, - 0.661239; 0.924039;, - 0.663583; 0.927243;, - 0.627853; 0.942771;, - 0.627853; 0.934845;, - 0.647840; 0.939560;, - 0.665926; 0.930448;, - 0.647840; 0.939560;, - 0.627853; 0.934845;, - 0.663583; 0.927243;, - 0.658073; 0.919708;, - 0.673789; 0.911573;, - 0.661239; 0.924039;, - 0.681838; 0.895809;, - 0.673789; 0.911573;, - 0.658073; 0.919708;, - 0.676718; 0.894156;, - 0.676718; 0.862606;, - 0.681838; 0.860953;, - 0.684676; 0.878381;, - 0.684676; 0.878381;, - 0.681838; 0.895809;, - 0.676718; 0.894156;, - 0.676718; 0.862606;, - 0.627853; 0.821917;, - 0.627853; 0.813991;, - 0.647840; 0.817202;, - 0.661239; 0.832723;, - 0.665926; 0.826314;, - 0.663583; 0.829519;, - 0.665926; 0.826314;, - 0.661239; 0.832723;, - 0.627853; 0.821917;, - 0.647840; 0.817202;, - 0.658073; 0.837054;, - 0.661239; 0.832723;, - 0.673789; 0.845189;, - 0.673789; 0.845189;, - 0.681838; 0.860953;, - 0.676718; 0.862606;, - 0.658073; 0.837054;, - 0.627852; 0.878348;, - 0.656397; 0.839063;, - 0.674008; 0.863352;, - 0.627852; 0.878348;, - 0.581695; 0.863352;, - 0.599306; 0.839063;, - 0.650082; 0.847753;, - 0.666350; 0.865840;, - 0.651661; 0.845581;, - 0.650082; 0.908942;, - 0.651661; 0.911115;, - 0.666350; 0.890855;, - 0.663798; 0.890026;, - 0.663125; 0.889808;, - 0.649666; 0.908370;, - 0.663798; 0.890026;, - 0.649666; 0.908370;, - 0.650082; 0.908942;, - 0.666350; 0.890855;, - 0.650082; 0.847753;, - 0.649666; 0.848326;, - 0.663798; 0.866670;, - 0.666350; 0.865840;, - 0.674008; 0.893343;, - 0.656397; 0.917633;, - 0.627852; 0.878348;, - 0.674008; 0.863352;, - 0.581695; 0.893343;, - 0.581695; 0.863352;, - 0.627852; 0.878348;, - 0.599306; 0.917633;, - 0.627852; 0.926931;, - 0.599306; 0.917633;, - 0.627852; 0.878348;, - 0.656397; 0.917633;, - 0.627852; 0.878348;, - 0.599306; 0.839063;, - 0.627852; 0.829765;, - 0.656397; 0.839063;, - 0.591888; 0.828854;, - 0.594102; 0.831900;, - 0.581416; 0.844581;, - 0.578371; 0.842366;, - 0.581416; 0.844581;, - 0.573279; 0.860618;, - 0.569700; 0.859455;, - 0.578371; 0.842366;, - 0.573279; 0.860618;, - 0.581416; 0.844581;, - 0.584461; 0.846796;, - 0.576858; 0.861781;, - 0.594102; 0.831900;, - 0.596315; 0.834946;, - 0.584461; 0.846796;, - 0.581416; 0.844581;, - 0.569700; 0.859455;, - 0.573279; 0.860618;, - 0.570410; 0.878348;, - 0.566643; 0.878348;, - 0.570410; 0.878348;, - 0.573279; 0.896078;, - 0.569700; 0.897240;, - 0.566643; 0.878348;, - 0.573279; 0.896078;, - 0.570410; 0.878348;, - 0.574177; 0.878348;, - 0.576858; 0.894915;, - 0.573279; 0.860618;, - 0.576858; 0.861781;, - 0.574177; 0.878348;, - 0.570410; 0.878348;, - 0.627852; 0.829765;, - 0.599306; 0.839063;, - 0.596315; 0.834946;, - 0.627852; 0.824674;, - 0.581416; 0.912115;, - 0.578371; 0.914329;, - 0.569700; 0.897240;, - 0.573279; 0.896078;, - 0.581416; 0.912115;, - 0.594102; 0.924796;, - 0.591888; 0.927842;, - 0.578371; 0.914329;, - 0.594102; 0.924796;, - 0.581416; 0.912115;, - 0.584461; 0.909900;, - 0.596315; 0.921749;, - 0.584461; 0.909900;, - 0.581416; 0.912115;, - 0.573279; 0.896078;, - 0.576858; 0.894915;, - 0.596315; 0.921749;, - 0.599306; 0.917633;, - 0.627852; 0.926931;, - 0.627852; 0.932022;, - 0.627852; 0.813482;, - 0.607844; 0.816717;, - 0.606716; 0.813242;, - 0.627852; 0.809824;, - 0.606716; 0.813242;, - 0.607844; 0.816717;, - 0.589739; 0.825896;, - 0.587591; 0.822939;, - 0.607844; 0.816717;, - 0.608972; 0.820192;, - 0.591888; 0.828854;, - 0.589739; 0.825896;, - 0.627852; 0.802188;, - 0.604360; 0.805986;, - 0.602004; 0.798730;, - 0.627852; 0.794551;, - 0.602004; 0.798730;, - 0.604360; 0.805986;, - 0.583104; 0.816764;, - 0.578617; 0.810589;, - 0.604360; 0.805986;, - 0.606716; 0.813242;, - 0.587591; 0.822939;, - 0.583104; 0.816764;, - 0.627852; 0.809824;, - 0.606716; 0.813242;, - 0.604360; 0.805986;, - 0.627852; 0.802188;, - 0.575414; 0.840216;, - 0.572457; 0.838066;, - 0.587591; 0.822939;, - 0.589739; 0.825896;, - 0.562751; 0.857197;, - 0.572457; 0.838066;, - 0.575414; 0.840216;, - 0.566225; 0.858326;, - 0.566225; 0.858326;, - 0.575414; 0.840216;, - 0.578371; 0.842366;, - 0.569700; 0.859455;, - 0.578617; 0.810589;, - 0.583104; 0.816764;, - 0.566284; 0.833577;, - 0.560111; 0.829088;, - 0.566284; 0.833577;, - 0.555495; 0.854840;, - 0.548240; 0.852483;, - 0.560111; 0.829088;, - 0.555495; 0.854840;, - 0.566284; 0.833577;, - 0.572457; 0.838066;, - 0.562751; 0.857197;, - 0.583104; 0.816764;, - 0.587591; 0.822939;, - 0.572457; 0.838066;, - 0.566284; 0.833577;, - 0.578371; 0.842366;, - 0.575414; 0.840216;, - 0.589739; 0.825896;, - 0.591888; 0.828854;, - 0.562986; 0.878348;, - 0.559328; 0.878348;, - 0.562751; 0.857197;, - 0.566225; 0.858326;, - 0.562751; 0.899498;, - 0.559328; 0.878348;, - 0.562986; 0.878348;, - 0.566225; 0.898369;, - 0.566225; 0.898369;, - 0.562986; 0.878348;, - 0.566643; 0.878348;, - 0.569700; 0.897240;, - 0.548240; 0.852483;, - 0.555495; 0.854840;, - 0.551692; 0.878348;, - 0.544055; 0.878348;, - 0.551692; 0.878348;, - 0.555495; 0.901855;, - 0.548240; 0.904212;, - 0.544055; 0.878348;, - 0.555495; 0.901855;, - 0.551692; 0.878348;, - 0.559328; 0.878348;, - 0.562751; 0.899498;, - 0.555495; 0.854840;, - 0.562751; 0.857197;, - 0.559328; 0.878348;, - 0.551692; 0.878348;, - 0.566643; 0.878348;, - 0.562986; 0.878348;, - 0.566225; 0.858326;, - 0.569700; 0.859455;, - 0.627852; 0.792642;, - 0.601416; 0.796917;, - 0.600827; 0.795103;, - 0.627852; 0.790733;, - 0.600827; 0.795103;, - 0.601416; 0.796917;, - 0.577495; 0.809045;, - 0.576373; 0.807501;, - 0.601416; 0.796917;, - 0.602004; 0.798730;, - 0.578617; 0.810589;, - 0.577495; 0.809045;, - 0.627852; 0.790521;, - 0.600761; 0.794901;, - 0.600696; 0.794699;, - 0.627852; 0.790309;, - 0.600696; 0.794699;, - 0.600761; 0.794901;, - 0.576249; 0.807330;, - 0.576124; 0.807158;, - 0.600761; 0.794901;, - 0.600827; 0.795103;, - 0.576373; 0.807501;, - 0.576249; 0.807330;, - 0.627852; 0.790733;, - 0.600827; 0.795103;, - 0.600761; 0.794901;, - 0.627852; 0.790521;, - 0.558567; 0.827966;, - 0.557024; 0.826844;, - 0.576373; 0.807501;, - 0.577495; 0.809045;, - 0.544612; 0.851305;, - 0.557024; 0.826844;, - 0.558567; 0.827966;, - 0.546426; 0.851894;, - 0.546426; 0.851894;, - 0.558567; 0.827966;, - 0.560111; 0.829088;, - 0.548240; 0.852483;, - 0.576124; 0.807158;, - 0.576249; 0.807330;, - 0.556852; 0.826719;, - 0.556681; 0.826594;, - 0.556852; 0.826719;, - 0.544411; 0.851239;, - 0.544209; 0.851174;, - 0.556681; 0.826594;, - 0.544411; 0.851239;, - 0.556852; 0.826719;, - 0.557024; 0.826844;, - 0.544612; 0.851305;, - 0.576249; 0.807330;, - 0.576373; 0.807501;, - 0.557024; 0.826844;, - 0.556852; 0.826719;, - 0.560111; 0.829088;, - 0.558567; 0.827966;, - 0.577495; 0.809045;, - 0.578617; 0.810589;, - 0.542146; 0.878348;, - 0.540237; 0.878348;, - 0.544612; 0.851305;, - 0.546426; 0.851894;, - 0.544612; 0.905391;, - 0.540237; 0.878348;, - 0.542146; 0.878348;, - 0.546426; 0.904802;, - 0.546426; 0.904802;, - 0.542146; 0.878348;, - 0.544055; 0.878348;, - 0.548240; 0.904212;, - 0.544209; 0.851174;, - 0.544411; 0.851239;, - 0.540025; 0.878348;, - 0.539813; 0.878348;, - 0.540025; 0.878348;, - 0.544411; 0.905456;, - 0.544209; 0.905522;, - 0.539813; 0.878348;, - 0.544411; 0.905456;, - 0.540025; 0.878348;, - 0.540237; 0.878348;, - 0.544612; 0.905391;, - 0.544411; 0.851239;, - 0.544612; 0.851305;, - 0.540237; 0.878348;, - 0.540025; 0.878348;, - 0.544055; 0.878348;, - 0.542146; 0.878348;, - 0.546426; 0.851894;, - 0.548240; 0.852483;, - 0.627852; 0.794551;, - 0.602004; 0.798730;, - 0.601416; 0.796917;, - 0.627852; 0.792642;, - 0.575414; 0.916479;, - 0.572457; 0.918629;, - 0.562751; 0.899498;, - 0.566225; 0.898369;, - 0.575414; 0.916479;, - 0.589739; 0.930799;, - 0.587591; 0.933756;, - 0.572457; 0.918629;, - 0.591888; 0.927842;, - 0.589739; 0.930799;, - 0.575414; 0.916479;, - 0.578371; 0.914329;, - 0.566284; 0.923118;, - 0.560111; 0.927608;, - 0.548240; 0.904212;, - 0.555495; 0.901855;, - 0.566284; 0.923118;, - 0.583104; 0.939932;, - 0.578617; 0.946107;, - 0.560111; 0.927608;, - 0.583104; 0.939932;, - 0.566284; 0.923118;, - 0.572457; 0.918629;, - 0.587591; 0.933756;, - 0.572457; 0.918629;, - 0.566284; 0.923118;, - 0.555495; 0.901855;, - 0.562751; 0.899498;, - 0.589739; 0.930799;, - 0.607844; 0.939979;, - 0.606716; 0.943454;, - 0.587591; 0.933756;, - 0.606716; 0.943454;, - 0.607844; 0.939979;, - 0.627852; 0.943214;, - 0.627852; 0.946871;, - 0.607844; 0.939979;, - 0.608972; 0.936504;, - 0.627852; 0.939556;, - 0.627852; 0.943214;, - 0.583104; 0.939932;, - 0.604360; 0.950709;, - 0.602004; 0.957965;, - 0.578617; 0.946107;, - 0.602004; 0.957965;, - 0.604360; 0.950709;, - 0.627852; 0.954508;, - 0.627852; 0.962144;, - 0.604360; 0.950709;, - 0.606716; 0.943454;, - 0.627852; 0.946871;, - 0.627852; 0.954508;, - 0.604360; 0.950709;, - 0.583104; 0.939932;, - 0.587591; 0.933756;, - 0.606716; 0.943454;, - 0.607844; 0.939979;, - 0.589739; 0.930799;, - 0.591888; 0.927842;, - 0.608972; 0.936504;, - 0.558567; 0.928730;, - 0.557024; 0.929852;, - 0.544612; 0.905391;, - 0.546426; 0.904802;, - 0.576373; 0.949194;, - 0.557024; 0.929852;, - 0.558567; 0.928730;, - 0.577495; 0.947650;, - 0.577495; 0.947650;, - 0.558567; 0.928730;, - 0.560111; 0.927608;, - 0.578617; 0.946107;, - 0.544209; 0.905522;, - 0.544411; 0.905456;, - 0.556852; 0.929977;, - 0.556681; 0.930102;, - 0.556681; 0.930102;, - 0.556852; 0.929977;, - 0.576249; 0.949366;, - 0.576124; 0.949537;, - 0.576249; 0.949366;, - 0.556852; 0.929977;, - 0.557024; 0.929852;, - 0.576373; 0.949194;, - 0.544411; 0.905456;, - 0.544612; 0.905391;, - 0.557024; 0.929852;, - 0.556852; 0.929977;, - 0.577495; 0.947650;, - 0.601416; 0.959779;, - 0.600827; 0.961593;, - 0.576373; 0.949194;, - 0.600827; 0.961593;, - 0.601416; 0.959779;, - 0.627852; 0.964054;, - 0.627852; 0.965963;, - 0.601416; 0.959779;, - 0.602004; 0.957965;, - 0.627852; 0.962144;, - 0.627852; 0.964054;, - 0.576249; 0.949366;, - 0.600761; 0.961795;, - 0.600696; 0.961996;, - 0.576124; 0.949537;, - 0.600696; 0.961996;, - 0.600761; 0.961795;, - 0.627852; 0.966175;, - 0.627852; 0.966387;, - 0.600761; 0.961795;, - 0.600827; 0.961593;, - 0.627852; 0.965963;, - 0.627852; 0.966175;, - 0.600761; 0.961795;, - 0.576249; 0.949366;, - 0.576373; 0.949194;, - 0.600827; 0.961593;, - 0.601416; 0.959779;, - 0.577495; 0.947650;, - 0.578617; 0.946107;, - 0.602004; 0.957965;, - 0.560111; 0.927608;, - 0.558567; 0.928730;, - 0.546426; 0.904802;, - 0.548240; 0.904212;, - 0.578371; 0.914329;, - 0.575414; 0.916479;, - 0.566225; 0.898369;, - 0.569700; 0.897240;, - 0.627852; 0.817139;, - 0.608972; 0.820192;, - 0.607844; 0.816717;, - 0.627852; 0.813482;, - 0.663815; 0.927842;, - 0.661602; 0.924796;, - 0.674287; 0.912115;, - 0.677333; 0.914329;, - 0.674287; 0.912115;, - 0.682424; 0.896078;, - 0.686004; 0.897240;, - 0.677333; 0.914329;, - 0.682424; 0.896078;, - 0.674287; 0.912115;, - 0.671242; 0.909900;, - 0.678845; 0.894915;, - 0.661602; 0.924796;, - 0.659388; 0.921749;, - 0.671242; 0.909900;, - 0.674287; 0.912115;, - 0.686004; 0.897240;, - 0.682424; 0.896078;, - 0.685293; 0.878348;, - 0.689060; 0.878348;, - 0.685293; 0.878348;, - 0.682424; 0.860618;, - 0.686004; 0.859455;, - 0.689060; 0.878348;, - 0.682424; 0.860618;, - 0.685293; 0.878348;, - 0.681526; 0.878348;, - 0.678845; 0.861781;, - 0.682424; 0.896078;, - 0.678845; 0.894915;, - 0.681526; 0.878348;, - 0.685293; 0.878348;, - 0.627852; 0.926931;, - 0.656397; 0.917633;, - 0.659388; 0.921749;, - 0.627852; 0.932022;, - 0.674287; 0.844581;, - 0.677333; 0.842366;, - 0.686004; 0.859455;, - 0.682424; 0.860618;, - 0.674287; 0.844581;, - 0.661602; 0.831900;, - 0.663815; 0.828854;, - 0.677333; 0.842366;, - 0.661602; 0.831900;, - 0.674287; 0.844581;, - 0.671242; 0.846796;, - 0.659388; 0.834946;, - 0.671242; 0.846796;, - 0.674287; 0.844581;, - 0.682424; 0.860618;, - 0.678845; 0.861781;, - 0.659388; 0.834946;, - 0.656397; 0.839063;, - 0.627852; 0.829765;, - 0.627852; 0.824674;, - 0.627852; 0.943214;, - 0.647860; 0.939979;, - 0.648988; 0.943454;, - 0.627852; 0.946871;, - 0.665964; 0.930799;, - 0.668113; 0.933756;, - 0.648988; 0.943454;, - 0.647860; 0.939979;, - 0.663815; 0.927842;, - 0.665964; 0.930799;, - 0.647860; 0.939979;, - 0.646732; 0.936504;, - 0.627852; 0.954508;, - 0.651343; 0.950709;, - 0.653699; 0.957965;, - 0.627852; 0.962144;, - 0.653699; 0.957965;, - 0.651343; 0.950709;, - 0.672600; 0.939932;, - 0.677087; 0.946107;, - 0.651343; 0.950709;, - 0.648988; 0.943454;, - 0.668113; 0.933756;, - 0.672600; 0.939932;, - 0.627852; 0.946871;, - 0.648988; 0.943454;, - 0.651343; 0.950709;, - 0.627852; 0.954508;, - 0.680289; 0.916479;, - 0.683246; 0.918629;, - 0.668113; 0.933756;, - 0.665964; 0.930799;, - 0.680289; 0.916479;, - 0.689478; 0.898369;, - 0.692953; 0.899498;, - 0.683246; 0.918629;, - 0.689478; 0.898369;, - 0.680289; 0.916479;, - 0.677333; 0.914329;, - 0.686004; 0.897240;, - 0.689419; 0.923118;, - 0.695593; 0.927608;, - 0.677087; 0.946107;, - 0.672600; 0.939932;, - 0.689419; 0.923118;, - 0.700208; 0.901855;, - 0.707463; 0.904212;, - 0.695593; 0.927608;, - 0.700208; 0.901855;, - 0.689419; 0.923118;, - 0.683246; 0.918629;, - 0.692953; 0.899498;, - 0.683246; 0.918629;, - 0.689419; 0.923118;, - 0.672600; 0.939932;, - 0.668113; 0.933756;, - 0.680289; 0.916479;, - 0.665964; 0.930799;, - 0.663815; 0.927842;, - 0.677333; 0.914329;, - 0.692718; 0.878348;, - 0.696375; 0.878348;, - 0.692953; 0.899498;, - 0.689478; 0.898369;, - 0.692718; 0.878348;, - 0.689478; 0.858326;, - 0.692953; 0.857197;, - 0.696375; 0.878348;, - 0.689478; 0.858326;, - 0.692718; 0.878348;, - 0.689060; 0.878348;, - 0.686004; 0.859455;, - 0.704012; 0.878348;, - 0.711648; 0.878348;, - 0.707463; 0.904212;, - 0.700208; 0.901855;, - 0.704012; 0.878348;, - 0.700208; 0.854840;, - 0.707463; 0.852483;, - 0.711648; 0.878348;, - 0.700208; 0.854840;, - 0.704012; 0.878348;, - 0.696375; 0.878348;, - 0.692953; 0.857197;, - 0.696375; 0.878348;, - 0.704012; 0.878348;, - 0.700208; 0.901855;, - 0.692953; 0.899498;, - 0.689060; 0.878348;, - 0.692718; 0.878348;, - 0.689478; 0.898369;, - 0.686004; 0.897240;, - 0.627852; 0.964054;, - 0.654288; 0.959779;, - 0.654877; 0.961593;, - 0.627852; 0.965963;, - 0.654877; 0.961593;, - 0.654288; 0.959779;, - 0.678208; 0.947650;, - 0.679330; 0.949194;, - 0.654288; 0.959779;, - 0.653699; 0.957965;, - 0.677087; 0.946107;, - 0.678208; 0.947650;, - 0.627852; 0.966175;, - 0.654942; 0.961795;, - 0.655007; 0.961996;, - 0.627852; 0.966387;, - 0.655007; 0.961996;, - 0.654942; 0.961795;, - 0.679455; 0.949366;, - 0.679579; 0.949537;, - 0.654942; 0.961795;, - 0.654877; 0.961593;, - 0.679330; 0.949194;, - 0.679455; 0.949366;, - 0.627852; 0.965963;, - 0.654877; 0.961593;, - 0.654942; 0.961795;, - 0.627852; 0.966175;, - 0.697136; 0.928730;, - 0.698679; 0.929852;, - 0.679330; 0.949194;, - 0.678208; 0.947650;, - 0.711091; 0.905391;, - 0.698679; 0.929852;, - 0.697136; 0.928730;, - 0.709277; 0.904802;, - 0.709277; 0.904802;, - 0.697136; 0.928730;, - 0.695593; 0.927608;, - 0.707463; 0.904212;, - 0.679455; 0.949366;, - 0.698851; 0.929977;, - 0.699022; 0.930102;, - 0.679579; 0.949537;, - 0.698851; 0.929977;, - 0.711292; 0.905456;, - 0.711494; 0.905522;, - 0.699022; 0.930102;, - 0.711292; 0.905456;, - 0.698851; 0.929977;, - 0.698679; 0.929852;, - 0.711091; 0.905391;, - 0.679455; 0.949366;, - 0.679330; 0.949194;, - 0.698679; 0.929852;, - 0.698851; 0.929977;, - 0.695593; 0.927608;, - 0.697136; 0.928730;, - 0.678208; 0.947650;, - 0.677087; 0.946107;, - 0.713557; 0.878348;, - 0.715467; 0.878348;, - 0.711091; 0.905391;, - 0.709277; 0.904802;, - 0.711091; 0.851305;, - 0.715467; 0.878348;, - 0.713557; 0.878348;, - 0.709277; 0.851894;, - 0.709277; 0.851894;, - 0.713557; 0.878348;, - 0.711648; 0.878348;, - 0.707463; 0.852483;, - 0.711494; 0.905522;, - 0.711292; 0.905456;, - 0.715679; 0.878348;, - 0.715891; 0.878348;, - 0.715679; 0.878348;, - 0.711292; 0.851239;, - 0.711494; 0.851174;, - 0.715891; 0.878348;, - 0.711292; 0.851239;, - 0.715679; 0.878348;, - 0.715467; 0.878348;, - 0.711091; 0.851305;, - 0.711292; 0.905456;, - 0.711091; 0.905391;, - 0.715467; 0.878348;, - 0.715679; 0.878348;, - 0.711648; 0.878348;, - 0.713557; 0.878348;, - 0.709277; 0.904802;, - 0.707463; 0.904212;, - 0.627852; 0.962144;, - 0.653699; 0.957965;, - 0.654288; 0.959779;, - 0.627852; 0.964054;, - 0.680289; 0.840216;, - 0.683246; 0.838066;, - 0.692953; 0.857197;, - 0.689478; 0.858326;, - 0.680289; 0.840216;, - 0.665964; 0.825896;, - 0.668113; 0.822939;, - 0.683246; 0.838066;, - 0.663815; 0.828854;, - 0.665964; 0.825896;, - 0.680289; 0.840216;, - 0.677333; 0.842366;, - 0.689419; 0.833577;, - 0.695593; 0.829088;, - 0.707463; 0.852483;, - 0.700208; 0.854840;, - 0.689419; 0.833577;, - 0.672600; 0.816764;, - 0.677087; 0.810589;, - 0.695593; 0.829088;, - 0.672600; 0.816764;, - 0.689419; 0.833577;, - 0.683246; 0.838066;, - 0.668113; 0.822939;, - 0.683246; 0.838066;, - 0.689419; 0.833577;, - 0.700208; 0.854840;, - 0.692953; 0.857197;, - 0.665964; 0.825896;, - 0.647860; 0.816717;, - 0.648988; 0.813242;, - 0.668113; 0.822939;, - 0.648988; 0.813242;, - 0.647860; 0.816717;, - 0.627852; 0.813482;, - 0.627852; 0.809824;, - 0.647860; 0.816717;, - 0.646732; 0.820192;, - 0.627852; 0.817139;, - 0.627852; 0.813482;, - 0.672600; 0.816764;, - 0.651343; 0.805986;, - 0.653699; 0.798730;, - 0.677087; 0.810589;, - 0.653699; 0.798730;, - 0.651343; 0.805986;, - 0.627852; 0.802188;, - 0.627852; 0.794551;, - 0.651343; 0.805986;, - 0.648988; 0.813242;, - 0.627852; 0.809824;, - 0.627852; 0.802188;, - 0.651343; 0.805986;, - 0.672600; 0.816764;, - 0.668113; 0.822939;, - 0.648988; 0.813242;, - 0.647860; 0.816717;, - 0.665964; 0.825896;, - 0.663815; 0.828854;, - 0.646732; 0.820192;, - 0.697136; 0.827966;, - 0.698679; 0.826844;, - 0.711091; 0.851305;, - 0.709277; 0.851894;, - 0.697136; 0.827966;, - 0.678208; 0.809045;, - 0.679330; 0.807501;, - 0.698679; 0.826844;, - 0.678208; 0.809045;, - 0.697136; 0.827966;, - 0.695593; 0.829088;, - 0.677087; 0.810589;, - 0.698851; 0.826719;, - 0.699022; 0.826594;, - 0.711494; 0.851174;, - 0.711292; 0.851239;, - 0.698851; 0.826719;, - 0.679455; 0.807330;, - 0.679579; 0.807158;, - 0.699022; 0.826594;, - 0.679455; 0.807330;, - 0.698851; 0.826719;, - 0.698679; 0.826844;, - 0.679330; 0.807501;, - 0.698679; 0.826844;, - 0.698851; 0.826719;, - 0.711292; 0.851239;, - 0.711091; 0.851305;, - 0.678208; 0.809045;, - 0.654288; 0.796917;, - 0.654877; 0.795103;, - 0.679330; 0.807501;, - 0.654877; 0.795103;, - 0.654288; 0.796917;, - 0.627852; 0.792642;, - 0.627852; 0.790733;, - 0.654288; 0.796917;, - 0.653699; 0.798730;, - 0.627852; 0.794551;, - 0.627852; 0.792642;, - 0.679455; 0.807330;, - 0.654942; 0.794901;, - 0.655007; 0.794699;, - 0.679579; 0.807158;, - 0.655007; 0.794699;, - 0.654942; 0.794901;, - 0.627852; 0.790521;, - 0.627852; 0.790309;, - 0.654942; 0.794901;, - 0.654877; 0.795103;, - 0.627852; 0.790733;, - 0.627852; 0.790521;, - 0.654942; 0.794901;, - 0.679455; 0.807330;, - 0.679330; 0.807501;, - 0.654877; 0.795103;, - 0.654288; 0.796917;, - 0.678208; 0.809045;, - 0.677087; 0.810589;, - 0.653699; 0.798730;, - 0.695593; 0.829088;, - 0.697136; 0.827966;, - 0.709277; 0.851894;, - 0.707463; 0.852483;, - 0.677333; 0.842366;, - 0.680289; 0.840216;, - 0.689478; 0.858326;, - 0.686004; 0.859455;, - 0.647860; 0.939979;, - 0.627852; 0.943214;, - 0.627852; 0.939556;, - 0.646732; 0.936504;, - 0.627852; 0.869857;, - 0.630471; 0.870281;, - 0.632761; 0.863226;, - 0.627852; 0.862433;, - 0.632840; 0.871482;, - 0.637203; 0.865479;, - 0.632761; 0.863226;, - 0.630471; 0.870281;, - 0.632840; 0.871482;, - 0.630471; 0.870281;, - 0.628180; 0.877335;, - 0.632840; 0.871482;, - 0.634715; 0.873357;, - 0.640717; 0.868992;, - 0.637203; 0.865479;, - 0.634715; 0.873357;, - 0.635918; 0.875727;, - 0.642972; 0.873435;, - 0.640717; 0.868992;, - 0.635918; 0.875727;, - 0.634715; 0.873357;, - 0.628864; 0.878019;, - 0.634715; 0.873357;, - 0.632840; 0.871482;, - 0.628478; 0.877486;, - 0.636342; 0.878348;, - 0.643767; 0.878348;, - 0.642972; 0.873435;, - 0.635918; 0.875727;, - 0.636342; 0.878348;, - 0.635918; 0.880969;, - 0.642972; 0.883260;, - 0.643767; 0.878348;, - 0.635918; 0.880969;, - 0.636342; 0.878348;, - 0.628864; 0.878677;, - 0.636342; 0.878348;, - 0.635918; 0.875727;, - 0.628864; 0.878019;, - 0.627852; 0.849281;, - 0.636817; 0.850730;, - 0.639304; 0.843071;, - 0.627852; 0.841220;, - 0.639304; 0.843071;, - 0.636817; 0.850730;, - 0.644930; 0.854844;, - 0.649666; 0.848326;, - 0.636817; 0.850730;, - 0.634331; 0.858389;, - 0.640194; 0.861362;, - 0.644930; 0.854844;, - 0.651349; 0.861261;, - 0.657866; 0.856522;, - 0.649666; 0.848326;, - 0.644930; 0.854844;, - 0.663125; 0.866888;, - 0.657866; 0.856522;, - 0.651349; 0.861261;, - 0.655467; 0.869376;, - 0.655467; 0.869376;, - 0.651349; 0.861261;, - 0.644833; 0.865999;, - 0.647809; 0.871864;, - 0.644833; 0.865999;, - 0.651349; 0.861261;, - 0.644930; 0.854844;, - 0.640194; 0.861362;, - 0.656919; 0.878348;, - 0.664980; 0.878348;, - 0.663125; 0.866888;, - 0.655467; 0.869376;, - 0.663125; 0.889808;, - 0.664980; 0.878348;, - 0.656919; 0.878348;, - 0.655467; 0.887320;, - 0.655467; 0.887320;, - 0.656919; 0.878348;, - 0.648858; 0.878348;, - 0.647809; 0.884832;, - 0.648858; 0.878348;, - 0.656919; 0.878348;, - 0.655467; 0.869376;, - 0.647809; 0.871864;, - 0.627852; 0.857342;, - 0.634331; 0.858389;, - 0.636817; 0.850730;, - 0.627852; 0.849281;, - 0.634715; 0.883339;, - 0.640717; 0.887703;, - 0.642972; 0.883260;, - 0.635918; 0.880969;, - 0.634715; 0.883339;, - 0.632840; 0.885213;, - 0.637203; 0.891217;, - 0.640717; 0.887703;, - 0.632840; 0.885213;, - 0.634715; 0.883339;, - 0.628478; 0.879210;, - 0.632840; 0.885213;, - 0.630471; 0.886415;, - 0.632761; 0.893469;, - 0.637203; 0.891217;, - 0.627852; 0.886838;, - 0.627852; 0.894263;, - 0.632761; 0.893469;, - 0.630471; 0.886415;, - 0.627852; 0.886838;, - 0.630471; 0.886415;, - 0.628180; 0.879361;, - 0.630471; 0.886415;, - 0.632840; 0.885213;, - 0.628180; 0.879361;, - 0.651349; 0.895435;, - 0.657866; 0.900174;, - 0.663125; 0.889808;, - 0.655467; 0.887320;, - 0.657866; 0.900174;, - 0.651349; 0.895435;, - 0.644930; 0.901852;, - 0.649666; 0.908370;, - 0.644930; 0.901852;, - 0.651349; 0.895435;, - 0.644833; 0.890696;, - 0.640194; 0.895334;, - 0.644930; 0.901852;, - 0.636817; 0.905965;, - 0.639304; 0.913624;, - 0.649666; 0.908370;, - 0.639304; 0.913624;, - 0.636817; 0.905965;, - 0.627852; 0.907415;, - 0.627852; 0.915476;, - 0.636817; 0.905965;, - 0.634331; 0.898306;, - 0.627852; 0.899354;, - 0.627852; 0.907415;, - 0.636817; 0.905965;, - 0.644930; 0.901852;, - 0.640194; 0.895334;, - 0.634331; 0.898306;, - 0.644833; 0.890696;, - 0.651349; 0.895435;, - 0.655467; 0.887320;, - 0.647809; 0.884832;, - 0.634715; 0.883339;, - 0.635918; 0.880969;, - 0.628864; 0.878677;, - 0.627852; 0.840512;, - 0.650082; 0.847753;, - 0.651661; 0.845581;, - 0.627852; 0.837826;, - 0.663798; 0.866670;, - 0.663798; 0.890026;, - 0.666350; 0.890855;, - 0.666350; 0.865840;, - 0.663798; 0.866670;, - 0.663125; 0.866888;, - 0.663125; 0.889808;, - 0.663798; 0.890026;, - 0.627852; 0.837826;, - 0.651661; 0.845581;, - 0.652658; 0.844209;, - 0.627852; 0.836129;, - 0.651661; 0.845581;, - 0.666350; 0.865840;, - 0.667962; 0.865316;, - 0.652658; 0.844209;, - 0.666350; 0.865840;, - 0.651661; 0.845581;, - 0.651661; 0.845581;, - 0.666350; 0.865840;, - 0.667962; 0.865316;, - 0.666350; 0.865840;, - 0.666350; 0.890855;, - 0.667962; 0.891379;, - 0.666350; 0.890855;, - 0.666350; 0.865840;, - 0.666350; 0.865840;, - 0.666350; 0.890855;, - 0.627852; 0.837826;, - 0.651661; 0.845581;, - 0.651661; 0.845581;, - 0.627852; 0.837826;, - 0.651661; 0.911115;, - 0.650082; 0.908942;, - 0.627852; 0.916183;, - 0.627852; 0.918870;, - 0.650082; 0.908942;, - 0.649666; 0.908370;, - 0.627852; 0.915476;, - 0.627852; 0.916183;, - 0.667962; 0.891379;, - 0.666350; 0.890855;, - 0.651661; 0.911115;, - 0.652658; 0.912487;, - 0.652658; 0.912487;, - 0.651661; 0.911115;, - 0.627852; 0.918870;, - 0.627852; 0.920567;, - 0.627852; 0.918870;, - 0.651661; 0.911115;, - 0.651661; 0.911115;, - 0.627852; 0.918870;, - 0.651661; 0.911115;, - 0.666350; 0.890855;, - 0.666350; 0.890855;, - 0.651661; 0.911115;, - 0.627852; 0.841220;, - 0.649666; 0.848326;, - 0.650082; 0.847753;, - 0.627852; 0.840512;, - 0.627852; 0.886838;, - 0.625233; 0.886415;, - 0.622943; 0.893469;, - 0.627852; 0.894263;, - 0.622863; 0.885213;, - 0.618501; 0.891217;, - 0.622943; 0.893469;, - 0.625233; 0.886415;, - 0.622863; 0.885213;, - 0.625233; 0.886415;, - 0.627523; 0.879361;, - 0.620988; 0.883339;, - 0.614986; 0.887703;, - 0.618501; 0.891217;, - 0.622863; 0.885213;, - 0.620988; 0.883339;, - 0.619785; 0.880969;, - 0.612731; 0.883260;, - 0.614986; 0.887703;, - 0.619785; 0.880969;, - 0.620988; 0.883339;, - 0.626839; 0.878677;, - 0.620988; 0.883339;, - 0.622863; 0.885213;, - 0.627225; 0.879210;, - 0.619361; 0.878348;, - 0.611937; 0.878348;, - 0.612731; 0.883260;, - 0.619785; 0.880969;, - 0.619361; 0.878348;, - 0.619785; 0.875727;, - 0.612731; 0.873435;, - 0.611937; 0.878348;, - 0.619785; 0.875727;, - 0.619361; 0.878348;, - 0.626839; 0.878019;, - 0.619361; 0.878348;, - 0.619785; 0.880969;, - 0.626839; 0.878677;, - 0.627852; 0.907415;, - 0.618886; 0.905965;, - 0.616399; 0.913624;, - 0.627852; 0.915476;, - 0.616399; 0.913624;, - 0.618886; 0.905965;, - 0.610773; 0.901852;, - 0.606037; 0.908370;, - 0.618886; 0.905965;, - 0.621372; 0.898306;, - 0.615509; 0.895334;, - 0.610773; 0.901852;, - 0.610773; 0.901852;, - 0.604354; 0.895435;, - 0.597837; 0.900174;, - 0.606037; 0.908370;, - 0.592578; 0.889808;, - 0.597837; 0.900174;, - 0.604354; 0.895435;, - 0.600236; 0.887320;, - 0.600236; 0.887320;, - 0.604354; 0.895435;, - 0.610870; 0.890696;, - 0.607894; 0.884832;, - 0.610870; 0.890696;, - 0.604354; 0.895435;, - 0.610773; 0.901852;, - 0.615509; 0.895334;, - 0.598784; 0.878348;, - 0.590724; 0.878348;, - 0.592578; 0.889808;, - 0.600236; 0.887320;, - 0.592578; 0.866888;, - 0.590724; 0.878348;, - 0.598784; 0.878348;, - 0.600236; 0.869376;, - 0.600236; 0.869376;, - 0.598784; 0.878348;, - 0.606845; 0.878348;, - 0.607894; 0.871864;, - 0.606845; 0.878348;, - 0.598784; 0.878348;, - 0.600236; 0.887320;, - 0.607894; 0.884832;, - 0.627852; 0.899354;, - 0.621372; 0.898306;, - 0.618886; 0.905965;, - 0.627852; 0.907415;, - 0.620988; 0.873357;, - 0.614986; 0.868992;, - 0.612731; 0.873435;, - 0.619785; 0.875727;, - 0.622863; 0.871482;, - 0.618501; 0.865479;, - 0.614986; 0.868992;, - 0.620988; 0.873357;, - 0.622863; 0.871482;, - 0.620988; 0.873357;, - 0.627225; 0.877486;, - 0.622863; 0.871482;, - 0.625233; 0.870281;, - 0.622943; 0.863226;, - 0.618501; 0.865479;, - 0.622943; 0.863226;, - 0.625233; 0.870281;, - 0.627852; 0.869857;, - 0.627852; 0.862433;, - 0.625233; 0.870281;, - 0.627523; 0.877335;, - 0.627852; 0.869857;, - 0.625233; 0.870281;, - 0.622863; 0.871482;, - 0.627523; 0.877335;, - 0.604354; 0.861261;, - 0.597837; 0.856522;, - 0.592578; 0.866888;, - 0.600236; 0.869376;, - 0.604354; 0.861261;, - 0.610773; 0.854844;, - 0.606037; 0.848326;, - 0.597837; 0.856522;, - 0.610773; 0.854844;, - 0.604354; 0.861261;, - 0.610870; 0.865999;, - 0.615509; 0.861362;, - 0.610773; 0.854844;, - 0.618886; 0.850730;, - 0.616399; 0.843071;, - 0.606037; 0.848326;, - 0.616399; 0.843071;, - 0.618886; 0.850730;, - 0.627852; 0.849281;, - 0.627852; 0.841220;, - 0.618886; 0.850730;, - 0.621372; 0.858389;, - 0.627852; 0.857342;, - 0.627852; 0.849281;, - 0.618886; 0.850730;, - 0.610773; 0.854844;, - 0.615509; 0.861362;, - 0.621372; 0.858389;, - 0.610870; 0.865999;, - 0.604354; 0.861261;, - 0.600236; 0.869376;, - 0.607894; 0.871864;, - 0.620988; 0.873357;, - 0.619785; 0.875727;, - 0.626839; 0.878019;, - 0.627852; 0.916183;, - 0.605621; 0.908942;, - 0.604043; 0.911115;, - 0.627852; 0.918870;, - 0.605621; 0.908942;, - 0.591906; 0.890026;, - 0.589353; 0.890855;, - 0.604043; 0.911115;, - 0.591906; 0.890026;, - 0.605621; 0.908942;, - 0.606037; 0.908370;, - 0.592578; 0.889808;, - 0.591906; 0.866670;, - 0.589353; 0.865840;, - 0.589353; 0.890855;, - 0.591906; 0.890026;, - 0.591906; 0.866670;, - 0.591906; 0.890026;, - 0.592578; 0.889808;, - 0.592578; 0.866888;, - 0.627852; 0.918870;, - 0.604043; 0.911115;, - 0.603046; 0.912487;, - 0.627852; 0.920567;, - 0.604043; 0.911115;, - 0.589353; 0.890855;, - 0.587741; 0.891379;, - 0.603046; 0.912487;, - 0.589353; 0.890855;, - 0.604043; 0.911115;, - 0.604043; 0.911115;, - 0.589353; 0.890855;, - 0.589353; 0.890855;, - 0.589353; 0.865840;, - 0.587741; 0.865316;, - 0.587741; 0.891379;, - 0.589353; 0.865840;, - 0.589353; 0.890855;, - 0.589353; 0.890855;, - 0.589353; 0.865840;, - 0.627852; 0.918870;, - 0.604043; 0.911115;, - 0.604043; 0.911115;, - 0.627852; 0.918870;, - 0.605621; 0.847753;, - 0.604043; 0.845581;, - 0.589353; 0.865840;, - 0.591906; 0.866670;, - 0.604043; 0.845581;, - 0.605621; 0.847753;, - 0.627852; 0.840512;, - 0.627852; 0.837826;, - 0.605621; 0.847753;, - 0.606037; 0.848326;, - 0.627852; 0.841220;, - 0.627852; 0.840512;, - 0.604043; 0.845581;, - 0.603046; 0.844209;, - 0.587741; 0.865316;, - 0.589353; 0.865840;, - 0.603046; 0.844209;, - 0.604043; 0.845581;, - 0.627852; 0.837826;, - 0.627852; 0.836129;, - 0.627852; 0.837826;, - 0.604043; 0.845581;, - 0.604043; 0.845581;, - 0.627852; 0.837826;, - 0.604043; 0.845581;, - 0.604043; 0.845581;, - 0.589353; 0.865840;, - 0.589353; 0.865840;, - 0.606037; 0.848326;, - 0.605621; 0.847753;, - 0.591906; 0.866670;, - 0.592578; 0.866888;, - 0.605621; 0.908942;, - 0.627852; 0.916183;, - 0.627852; 0.915476;, - 0.606037; 0.908370;, - 0.625233; 0.886415;, - 0.627852; 0.886838;, - 0.627523; 0.879361;, - 0.627852; 0.830189;, - 0.656148; 0.839406;, - 0.656397; 0.839063;, - 0.627852; 0.829765;, - 0.656148; 0.839406;, - 0.673605; 0.863483;, - 0.674008; 0.863352;, - 0.656397; 0.839063;, - 0.673605; 0.863483;, - 0.656148; 0.839406;, - 0.652658; 0.844209;, - 0.667962; 0.865316;, - 0.673605; 0.863483;, - 0.673605; 0.893212;, - 0.674008; 0.893343;, - 0.674008; 0.863352;, - 0.673605; 0.893212;, - 0.673605; 0.863483;, - 0.667962; 0.865316;, - 0.667962; 0.891379;, - 0.661602; 0.831900;, - 0.674287; 0.844581;, - 0.677333; 0.842366;, - 0.663815; 0.828854;, - 0.674287; 0.844581;, - 0.682424; 0.860618;, - 0.686004; 0.859455;, - 0.677333; 0.842366;, - 0.682424; 0.860618;, - 0.674287; 0.844581;, - 0.671242; 0.846796;, - 0.678845; 0.861781;, - 0.661602; 0.831900;, - 0.659388; 0.834946;, - 0.671242; 0.846796;, - 0.674287; 0.844581;, - 0.686004; 0.859455;, - 0.682424; 0.860618;, - 0.685293; 0.878348;, - 0.689060; 0.878348;, - 0.685293; 0.878348;, - 0.682424; 0.896078;, - 0.686004; 0.897240;, - 0.689060; 0.878348;, - 0.682424; 0.896078;, - 0.685293; 0.878348;, - 0.681526; 0.878348;, - 0.678845; 0.894915;, - 0.682424; 0.860618;, - 0.678845; 0.861781;, - 0.681526; 0.878348;, - 0.685293; 0.878348;, - 0.627852; 0.829765;, - 0.656397; 0.839063;, - 0.659388; 0.834946;, - 0.627852; 0.824674;, - 0.656148; 0.917290;, - 0.656397; 0.917633;, - 0.674008; 0.893343;, - 0.673605; 0.893212;, - 0.627852; 0.926507;, - 0.627852; 0.926931;, - 0.656397; 0.917633;, - 0.656148; 0.917290;, - 0.627852; 0.920567;, - 0.627852; 0.926507;, - 0.656148; 0.917290;, - 0.652658; 0.912487;, - 0.674287; 0.912115;, - 0.677333; 0.914329;, - 0.686004; 0.897240;, - 0.682424; 0.896078;, - 0.677333; 0.914329;, - 0.674287; 0.912115;, - 0.661602; 0.924796;, - 0.663815; 0.927842;, - 0.661602; 0.924796;, - 0.674287; 0.912115;, - 0.671242; 0.909900;, - 0.659388; 0.921749;, - 0.671242; 0.909900;, - 0.674287; 0.912115;, - 0.682424; 0.896078;, - 0.678845; 0.894915;, - 0.659388; 0.921749;, - 0.656397; 0.917633;, - 0.627852; 0.926931;, - 0.627852; 0.932022;, - 0.652658; 0.912487;, - 0.656148; 0.917290;, - 0.673605; 0.893212;, - 0.667962; 0.891379;, - 0.627852; 0.813482;, - 0.647860; 0.816717;, - 0.648988; 0.813242;, - 0.627852; 0.809824;, - 0.648988; 0.813242;, - 0.647860; 0.816717;, - 0.665964; 0.825896;, - 0.668113; 0.822939;, - 0.647860; 0.816717;, - 0.646732; 0.820192;, - 0.663815; 0.828854;, - 0.665964; 0.825896;, - 0.627852; 0.802188;, - 0.651343; 0.805986;, - 0.653699; 0.798730;, - 0.627852; 0.794551;, - 0.653699; 0.798730;, - 0.651343; 0.805986;, - 0.672599; 0.816764;, - 0.677087; 0.810589;, - 0.651343; 0.805986;, - 0.648988; 0.813242;, - 0.668113; 0.822939;, - 0.672599; 0.816764;, - 0.627852; 0.809824;, - 0.648988; 0.813242;, - 0.651343; 0.805986;, - 0.627852; 0.802188;, - 0.680289; 0.840216;, - 0.683246; 0.838066;, - 0.668113; 0.822939;, - 0.665964; 0.825896;, - 0.692953; 0.857197;, - 0.683246; 0.838066;, - 0.680289; 0.840216;, - 0.689478; 0.858326;, - 0.689478; 0.858326;, - 0.680289; 0.840216;, - 0.677333; 0.842366;, - 0.686004; 0.859455;, - 0.677087; 0.810589;, - 0.672599; 0.816764;, - 0.689419; 0.833577;, - 0.695593; 0.829088;, - 0.689419; 0.833577;, - 0.700208; 0.854840;, - 0.707463; 0.852483;, - 0.695593; 0.829088;, - 0.700208; 0.854840;, - 0.689419; 0.833577;, - 0.683246; 0.838066;, - 0.692953; 0.857197;, - 0.689419; 0.833577;, - 0.672599; 0.816764;, - 0.668113; 0.822939;, - 0.683246; 0.838066;, - 0.677333; 0.842366;, - 0.680289; 0.840216;, - 0.665964; 0.825896;, - 0.663815; 0.828854;, - 0.692718; 0.878348;, - 0.696375; 0.878348;, - 0.692953; 0.857197;, - 0.689478; 0.858326;, - 0.692953; 0.899498;, - 0.696375; 0.878348;, - 0.692718; 0.878348;, - 0.689478; 0.898369;, - 0.689478; 0.898369;, - 0.692718; 0.878348;, - 0.689060; 0.878348;, - 0.686004; 0.897240;, - 0.707463; 0.852483;, - 0.700208; 0.854840;, - 0.704012; 0.878348;, - 0.711648; 0.878348;, - 0.704012; 0.878348;, - 0.700208; 0.901855;, - 0.707463; 0.904212;, - 0.711648; 0.878348;, - 0.700208; 0.901855;, - 0.704012; 0.878348;, - 0.696375; 0.878348;, - 0.692953; 0.899498;, - 0.700208; 0.854840;, - 0.692953; 0.857197;, - 0.696375; 0.878348;, - 0.704012; 0.878348;, - 0.689060; 0.878348;, - 0.692718; 0.878348;, - 0.689478; 0.858326;, - 0.686004; 0.859455;, - 0.627852; 0.792642;, - 0.654288; 0.796917;, - 0.654877; 0.795103;, - 0.627852; 0.790733;, - 0.654877; 0.795103;, - 0.654288; 0.796917;, - 0.678208; 0.809045;, - 0.679330; 0.807501;, - 0.654288; 0.796917;, - 0.653699; 0.798730;, - 0.677087; 0.810589;, - 0.678208; 0.809045;, - 0.627852; 0.790521;, - 0.654942; 0.794901;, - 0.655007; 0.794699;, - 0.627852; 0.790309;, - 0.655007; 0.794699;, - 0.654942; 0.794901;, - 0.679455; 0.807330;, - 0.679579; 0.807158;, - 0.654942; 0.794901;, - 0.654877; 0.795103;, - 0.679330; 0.807501;, - 0.679455; 0.807330;, - 0.627852; 0.790733;, - 0.654877; 0.795103;, - 0.654942; 0.794901;, - 0.627852; 0.790521;, - 0.697136; 0.827966;, - 0.698679; 0.826844;, - 0.679330; 0.807501;, - 0.678208; 0.809045;, - 0.711091; 0.851305;, - 0.698679; 0.826844;, - 0.697136; 0.827966;, - 0.709277; 0.851894;, - 0.709277; 0.851894;, - 0.697136; 0.827966;, - 0.695593; 0.829088;, - 0.707463; 0.852483;, - 0.679579; 0.807158;, - 0.679455; 0.807330;, - 0.698851; 0.826719;, - 0.699022; 0.826594;, - 0.698851; 0.826719;, - 0.711292; 0.851239;, - 0.711494; 0.851174;, - 0.699022; 0.826594;, - 0.711292; 0.851239;, - 0.698851; 0.826719;, - 0.698679; 0.826844;, - 0.711091; 0.851305;, - 0.679455; 0.807330;, - 0.679330; 0.807501;, - 0.698679; 0.826844;, - 0.698851; 0.826719;, - 0.695593; 0.829088;, - 0.697136; 0.827966;, - 0.678208; 0.809045;, - 0.677087; 0.810589;, - 0.713557; 0.878348;, - 0.715466; 0.878348;, - 0.711091; 0.851305;, - 0.709277; 0.851894;, - 0.711091; 0.905391;, - 0.715466; 0.878348;, - 0.713557; 0.878348;, - 0.709277; 0.904802;, - 0.709277; 0.904802;, - 0.713557; 0.878348;, - 0.711648; 0.878348;, - 0.707463; 0.904212;, - 0.711494; 0.851174;, - 0.711292; 0.851239;, - 0.715679; 0.878348;, - 0.715891; 0.878348;, - 0.715679; 0.878348;, - 0.711292; 0.905456;, - 0.711494; 0.905522;, - 0.715891; 0.878348;, - 0.711292; 0.905456;, - 0.715679; 0.878348;, - 0.715466; 0.878348;, - 0.711091; 0.905391;, - 0.711292; 0.851239;, - 0.711091; 0.851305;, - 0.715466; 0.878348;, - 0.715679; 0.878348;, - 0.711648; 0.878348;, - 0.713557; 0.878348;, - 0.709277; 0.851894;, - 0.707463; 0.852483;, - 0.627852; 0.794551;, - 0.653699; 0.798730;, - 0.654288; 0.796917;, - 0.627852; 0.792642;, - 0.680289; 0.916479;, - 0.683246; 0.918629;, - 0.692953; 0.899498;, - 0.689478; 0.898369;, - 0.680289; 0.916479;, - 0.665964; 0.930799;, - 0.668113; 0.933756;, - 0.683246; 0.918629;, - 0.665964; 0.930799;, - 0.680289; 0.916479;, - 0.677333; 0.914329;, - 0.663815; 0.927842;, - 0.689419; 0.923118;, - 0.695593; 0.927608;, - 0.707463; 0.904212;, - 0.700208; 0.901855;, - 0.689419; 0.923118;, - 0.672599; 0.939932;, - 0.677087; 0.946107;, - 0.695593; 0.927608;, - 0.672599; 0.939932;, - 0.689419; 0.923118;, - 0.683246; 0.918629;, - 0.668113; 0.933756;, - 0.683246; 0.918629;, - 0.689419; 0.923118;, - 0.700208; 0.901855;, - 0.692953; 0.899498;, - 0.665964; 0.930799;, - 0.647860; 0.939979;, - 0.648988; 0.943454;, - 0.668113; 0.933756;, - 0.648988; 0.943454;, - 0.647860; 0.939979;, - 0.627852; 0.943214;, - 0.627852; 0.946871;, - 0.647860; 0.939979;, - 0.646732; 0.936504;, - 0.627852; 0.939556;, - 0.627852; 0.943214;, - 0.672599; 0.939932;, - 0.651343; 0.950709;, - 0.653699; 0.957965;, - 0.677087; 0.946107;, - 0.653699; 0.957965;, - 0.651343; 0.950709;, - 0.627852; 0.954508;, - 0.627852; 0.962144;, - 0.651343; 0.950709;, - 0.648988; 0.943454;, - 0.627852; 0.946871;, - 0.627852; 0.954508;, - 0.651343; 0.950709;, - 0.672599; 0.939932;, - 0.668113; 0.933756;, - 0.648988; 0.943454;, - 0.647860; 0.939979;, - 0.665964; 0.930799;, - 0.663815; 0.927842;, - 0.646732; 0.936504;, - 0.697136; 0.928730;, - 0.698679; 0.929852;, - 0.711091; 0.905391;, - 0.709277; 0.904802;, - 0.679330; 0.949194;, - 0.698679; 0.929852;, - 0.697136; 0.928730;, - 0.678208; 0.947650;, - 0.678208; 0.947650;, - 0.697136; 0.928730;, - 0.695593; 0.927608;, - 0.677087; 0.946107;, - 0.711494; 0.905522;, - 0.711292; 0.905456;, - 0.698851; 0.929977;, - 0.699022; 0.930102;, - 0.699022; 0.930102;, - 0.698851; 0.929977;, - 0.679455; 0.949366;, - 0.679579; 0.949537;, - 0.679455; 0.949366;, - 0.698851; 0.929977;, - 0.698679; 0.929852;, - 0.679330; 0.949194;, - 0.711292; 0.905456;, - 0.711091; 0.905391;, - 0.698679; 0.929852;, - 0.698851; 0.929977;, - 0.678208; 0.947650;, - 0.654288; 0.959779;, - 0.654877; 0.961593;, - 0.679330; 0.949194;, - 0.654877; 0.961593;, - 0.654288; 0.959779;, - 0.627852; 0.964054;, - 0.627852; 0.965963;, - 0.654288; 0.959779;, - 0.653699; 0.957965;, - 0.627852; 0.962144;, - 0.627852; 0.964054;, - 0.679455; 0.949366;, - 0.654942; 0.961795;, - 0.655007; 0.961996;, - 0.679579; 0.949537;, - 0.655007; 0.961996;, - 0.654942; 0.961795;, - 0.627852; 0.966175;, - 0.627852; 0.966387;, - 0.654942; 0.961795;, - 0.654877; 0.961593;, - 0.627852; 0.965963;, - 0.627852; 0.966175;, - 0.654942; 0.961795;, - 0.679455; 0.949366;, - 0.679330; 0.949194;, - 0.654877; 0.961593;, - 0.654288; 0.959779;, - 0.678208; 0.947650;, - 0.677087; 0.946107;, - 0.653699; 0.957965;, - 0.695593; 0.927608;, - 0.697136; 0.928730;, - 0.709277; 0.904802;, - 0.707463; 0.904212;, - 0.677333; 0.914329;, - 0.680289; 0.916479;, - 0.689478; 0.898369;, - 0.686004; 0.897240;, - 0.627852; 0.817139;, - 0.646732; 0.820192;, - 0.647860; 0.816717;, - 0.627852; 0.813482;, - 0.627852; 0.926507;, - 0.599556; 0.917290;, - 0.599306; 0.917633;, - 0.627852; 0.926931;, - 0.599556; 0.917290;, - 0.582098; 0.893212;, - 0.581695; 0.893343;, - 0.599306; 0.917633;, - 0.582098; 0.893212;, - 0.599556; 0.917290;, - 0.603046; 0.912487;, - 0.587741; 0.891379;, - 0.582098; 0.893212;, - 0.582098; 0.863483;, - 0.581695; 0.863352;, - 0.581695; 0.893343;, - 0.587741; 0.865316;, - 0.582098; 0.863483;, - 0.582098; 0.893212;, - 0.587741; 0.891379;, - 0.591888; 0.927842;, - 0.594102; 0.924796;, - 0.581416; 0.912115;, - 0.578371; 0.914329;, - 0.581416; 0.912115;, - 0.573279; 0.896078;, - 0.569700; 0.897240;, - 0.578371; 0.914329;, - 0.573279; 0.896078;, - 0.581416; 0.912115;, - 0.584461; 0.909900;, - 0.576858; 0.894915;, - 0.594102; 0.924796;, - 0.596315; 0.921749;, - 0.584461; 0.909900;, - 0.581416; 0.912115;, - 0.569700; 0.897240;, - 0.573279; 0.896078;, - 0.570410; 0.878348;, - 0.566643; 0.878348;, - 0.570410; 0.878348;, - 0.573279; 0.860618;, - 0.569700; 0.859455;, - 0.566643; 0.878348;, - 0.573279; 0.860618;, - 0.570410; 0.878348;, - 0.574177; 0.878348;, - 0.576858; 0.861781;, - 0.573279; 0.896078;, - 0.576858; 0.894915;, - 0.574177; 0.878348;, - 0.570410; 0.878348;, - 0.627852; 0.926931;, - 0.599306; 0.917633;, - 0.596315; 0.921749;, - 0.627852; 0.932022;, - 0.599556; 0.839406;, - 0.599306; 0.839063;, - 0.581695; 0.863352;, - 0.582098; 0.863483;, - 0.599306; 0.839063;, - 0.599556; 0.839406;, - 0.627852; 0.830189;, - 0.627852; 0.829765;, - 0.599556; 0.839406;, - 0.603046; 0.844209;, - 0.627852; 0.836129;, - 0.627852; 0.830189;, - 0.581416; 0.844581;, - 0.578371; 0.842366;, - 0.569700; 0.859455;, - 0.573279; 0.860618;, - 0.581416; 0.844581;, - 0.594102; 0.831900;, - 0.591888; 0.828854;, - 0.578371; 0.842366;, - 0.594102; 0.831900;, - 0.581416; 0.844581;, - 0.584461; 0.846796;, - 0.596315; 0.834946;, - 0.584461; 0.846796;, - 0.581416; 0.844581;, - 0.573279; 0.860618;, - 0.576858; 0.861781;, - 0.596315; 0.834946;, - 0.599306; 0.839063;, - 0.627852; 0.829765;, - 0.627852; 0.824674;, - 0.603046; 0.844209;, - 0.599556; 0.839406;, - 0.582098; 0.863483;, - 0.587741; 0.865316;, - 0.627852; 0.943214;, - 0.607844; 0.939979;, - 0.606716; 0.943454;, - 0.627852; 0.946871;, - 0.589739; 0.930799;, - 0.587591; 0.933756;, - 0.606716; 0.943454;, - 0.607844; 0.939979;, - 0.591888; 0.927842;, - 0.589739; 0.930799;, - 0.607844; 0.939979;, - 0.608972; 0.936504;, - 0.627852; 0.954508;, - 0.604360; 0.950709;, - 0.602004; 0.957965;, - 0.627852; 0.962144;, - 0.602004; 0.957965;, - 0.604360; 0.950709;, - 0.583104; 0.939932;, - 0.578617; 0.946107;, - 0.604360; 0.950709;, - 0.606716; 0.943454;, - 0.587591; 0.933756;, - 0.583104; 0.939932;, - 0.627852; 0.946871;, - 0.606716; 0.943454;, - 0.604360; 0.950709;, - 0.627852; 0.954508;, - 0.575414; 0.916479;, - 0.572457; 0.918629;, - 0.587591; 0.933756;, - 0.589739; 0.930799;, - 0.575414; 0.916479;, - 0.566225; 0.898369;, - 0.562751; 0.899498;, - 0.572457; 0.918629;, - 0.566225; 0.898369;, - 0.575414; 0.916479;, - 0.578371; 0.914329;, - 0.569700; 0.897240;, - 0.566284; 0.923118;, - 0.560111; 0.927608;, - 0.578617; 0.946107;, - 0.583104; 0.939932;, - 0.566284; 0.923118;, - 0.555495; 0.901855;, - 0.548240; 0.904212;, - 0.560111; 0.927608;, - 0.555495; 0.901855;, - 0.566284; 0.923118;, - 0.572457; 0.918629;, - 0.562751; 0.899498;, - 0.572457; 0.918629;, - 0.566284; 0.923118;, - 0.583104; 0.939932;, - 0.587591; 0.933756;, - 0.575414; 0.916479;, - 0.589739; 0.930799;, - 0.591888; 0.927842;, - 0.578371; 0.914329;, - 0.562986; 0.878348;, - 0.559328; 0.878348;, - 0.562751; 0.899498;, - 0.566225; 0.898369;, - 0.562986; 0.878348;, - 0.566225; 0.858326;, - 0.562751; 0.857197;, - 0.559328; 0.878348;, - 0.566225; 0.858326;, - 0.562986; 0.878348;, - 0.566643; 0.878348;, - 0.569700; 0.859455;, - 0.551692; 0.878348;, - 0.544055; 0.878348;, - 0.548240; 0.904212;, - 0.555495; 0.901855;, - 0.551692; 0.878348;, - 0.555495; 0.854840;, - 0.548240; 0.852483;, - 0.544055; 0.878348;, - 0.555495; 0.854840;, - 0.551692; 0.878348;, - 0.559328; 0.878348;, - 0.562751; 0.857197;, - 0.559328; 0.878348;, - 0.551692; 0.878348;, - 0.555495; 0.901855;, - 0.562751; 0.899498;, - 0.566643; 0.878348;, - 0.562986; 0.878348;, - 0.566225; 0.898369;, - 0.569700; 0.897240;, - 0.627852; 0.964054;, - 0.601416; 0.959779;, - 0.600827; 0.961593;, - 0.627852; 0.965963;, - 0.600827; 0.961593;, - 0.601416; 0.959779;, - 0.577495; 0.947650;, - 0.576373; 0.949194;, - 0.601416; 0.959779;, - 0.602004; 0.957965;, - 0.578617; 0.946107;, - 0.577495; 0.947650;, - 0.627852; 0.966175;, - 0.600761; 0.961795;, - 0.600696; 0.961996;, - 0.627852; 0.966387;, - 0.600696; 0.961996;, - 0.600761; 0.961795;, - 0.576249; 0.949366;, - 0.576124; 0.949537;, - 0.600761; 0.961795;, - 0.600827; 0.961593;, - 0.576373; 0.949194;, - 0.576249; 0.949366;, - 0.627852; 0.965963;, - 0.600827; 0.961593;, - 0.600761; 0.961795;, - 0.627852; 0.966175;, - 0.558567; 0.928730;, - 0.557024; 0.929852;, - 0.576373; 0.949194;, - 0.577495; 0.947650;, - 0.544612; 0.905391;, - 0.557024; 0.929852;, - 0.558567; 0.928730;, - 0.546426; 0.904802;, - 0.546426; 0.904802;, - 0.558567; 0.928730;, - 0.560111; 0.927608;, - 0.548240; 0.904212;, - 0.576249; 0.949366;, - 0.556852; 0.929977;, - 0.556681; 0.930102;, - 0.576124; 0.949537;, - 0.556852; 0.929977;, - 0.544411; 0.905456;, - 0.544209; 0.905522;, - 0.556681; 0.930102;, - 0.544411; 0.905456;, - 0.556852; 0.929977;, - 0.557024; 0.929852;, - 0.544612; 0.905391;, - 0.576249; 0.949366;, - 0.576373; 0.949194;, - 0.557024; 0.929852;, - 0.556852; 0.929977;, - 0.560111; 0.927608;, - 0.558567; 0.928730;, - 0.577495; 0.947650;, - 0.578617; 0.946107;, - 0.542146; 0.878348;, - 0.540237; 0.878348;, - 0.544612; 0.905391;, - 0.546426; 0.904802;, - 0.544612; 0.851305;, - 0.540237; 0.878348;, - 0.542146; 0.878348;, - 0.546426; 0.851894;, - 0.546426; 0.851894;, - 0.542146; 0.878348;, - 0.544055; 0.878348;, - 0.548240; 0.852483;, - 0.544209; 0.905522;, - 0.544411; 0.905456;, - 0.540025; 0.878348;, - 0.539813; 0.878348;, - 0.540025; 0.878348;, - 0.544411; 0.851239;, - 0.544209; 0.851174;, - 0.539813; 0.878348;, - 0.544411; 0.851239;, - 0.540025; 0.878348;, - 0.540237; 0.878348;, - 0.544612; 0.851305;, - 0.544411; 0.905456;, - 0.544612; 0.905391;, - 0.540237; 0.878348;, - 0.540025; 0.878348;, - 0.544055; 0.878348;, - 0.542146; 0.878348;, - 0.546426; 0.904802;, - 0.548240; 0.904212;, - 0.627852; 0.962144;, - 0.602004; 0.957965;, - 0.601416; 0.959779;, - 0.627852; 0.964054;, - 0.575414; 0.840216;, - 0.572457; 0.838066;, - 0.562751; 0.857197;, - 0.566225; 0.858326;, - 0.575414; 0.840216;, - 0.589739; 0.825896;, - 0.587591; 0.822939;, - 0.572457; 0.838066;, - 0.591888; 0.828854;, - 0.589739; 0.825896;, - 0.575414; 0.840216;, - 0.578371; 0.842366;, - 0.566284; 0.833577;, - 0.560111; 0.829088;, - 0.548240; 0.852483;, - 0.555495; 0.854840;, - 0.566284; 0.833577;, - 0.583104; 0.816764;, - 0.578617; 0.810589;, - 0.560111; 0.829088;, - 0.583104; 0.816764;, - 0.566284; 0.833577;, - 0.572457; 0.838066;, - 0.587591; 0.822939;, - 0.572457; 0.838066;, - 0.566284; 0.833577;, - 0.555495; 0.854840;, - 0.562751; 0.857197;, - 0.589739; 0.825896;, - 0.607844; 0.816717;, - 0.606716; 0.813242;, - 0.587591; 0.822939;, - 0.606716; 0.813242;, - 0.607844; 0.816717;, - 0.627852; 0.813482;, - 0.627852; 0.809824;, - 0.607844; 0.816717;, - 0.608972; 0.820192;, - 0.627852; 0.817139;, - 0.627852; 0.813482;, - 0.583104; 0.816764;, - 0.604360; 0.805986;, - 0.602004; 0.798730;, - 0.578617; 0.810589;, - 0.602004; 0.798730;, - 0.604360; 0.805986;, - 0.627852; 0.802188;, - 0.627852; 0.794551;, - 0.604360; 0.805986;, - 0.606716; 0.813242;, - 0.627852; 0.809824;, - 0.627852; 0.802188;, - 0.604360; 0.805986;, - 0.583104; 0.816764;, - 0.587591; 0.822939;, - 0.606716; 0.813242;, - 0.607844; 0.816717;, - 0.589739; 0.825896;, - 0.591888; 0.828854;, - 0.608972; 0.820192;, - 0.558567; 0.827966;, - 0.557024; 0.826844;, - 0.544612; 0.851305;, - 0.546426; 0.851894;, - 0.558567; 0.827966;, - 0.577495; 0.809045;, - 0.576373; 0.807501;, - 0.557024; 0.826844;, - 0.577495; 0.809045;, - 0.558567; 0.827966;, - 0.560111; 0.829088;, - 0.578617; 0.810589;, - 0.556852; 0.826719;, - 0.556681; 0.826594;, - 0.544209; 0.851174;, - 0.544411; 0.851239;, - 0.556852; 0.826719;, - 0.576249; 0.807330;, - 0.576124; 0.807158;, - 0.556681; 0.826594;, - 0.576249; 0.807330;, - 0.556852; 0.826719;, - 0.557024; 0.826844;, - 0.576373; 0.807501;, - 0.557024; 0.826844;, - 0.556852; 0.826719;, - 0.544411; 0.851239;, - 0.544612; 0.851305;, - 0.577495; 0.809045;, - 0.601416; 0.796917;, - 0.600827; 0.795103;, - 0.576373; 0.807501;, - 0.600827; 0.795103;, - 0.601416; 0.796917;, - 0.627852; 0.792642;, - 0.627852; 0.790733;, - 0.601416; 0.796917;, - 0.602004; 0.798730;, - 0.627852; 0.794551;, - 0.627852; 0.792642;, - 0.576249; 0.807330;, - 0.600761; 0.794901;, - 0.600696; 0.794699;, - 0.576124; 0.807158;, - 0.600696; 0.794699;, - 0.600761; 0.794901;, - 0.627852; 0.790521;, - 0.627852; 0.790309;, - 0.600761; 0.794901;, - 0.600827; 0.795103;, - 0.627852; 0.790733;, - 0.627852; 0.790521;, - 0.600761; 0.794901;, - 0.576249; 0.807330;, - 0.576373; 0.807501;, - 0.600827; 0.795103;, - 0.601416; 0.796917;, - 0.577495; 0.809045;, - 0.578617; 0.810589;, - 0.602004; 0.798730;, - 0.560111; 0.829088;, - 0.558567; 0.827966;, - 0.546426; 0.851894;, - 0.548240; 0.852483;, - 0.578371; 0.842366;, - 0.575414; 0.840216;, - 0.566225; 0.858326;, - 0.569700; 0.859455;, - 0.607844; 0.939979;, - 0.627852; 0.943214;, - 0.627852; 0.939556;, - 0.608972; 0.936504;, - 0.599556; 0.917290;, - 0.627852; 0.926507;, - 0.627852; 0.920567;, - 0.603046; 0.912487;, - 0.656148; 0.839406;, - 0.627852; 0.830189;, - 0.627852; 0.836129;, - 0.652658; 0.844209;, - 0.630471; 0.870281;, - 0.627852; 0.869857;, - 0.628180; 0.877335;, - 0.608972; 0.820192;, - 0.627852; 0.817139;, - 0.627852; 0.824674;, - 0.594102; 0.831900;, - 0.591888; 0.828854;, - 0.596315; 0.834946;, - 0.627852; 0.824674;, - 0.596315; 0.834946;, - 0.591888; 0.828854;, - 0.608972; 0.820192;, - 0.584461; 0.846796;, - 0.596315; 0.834946;, - 0.599306; 0.839063;, - 0.581695; 0.863352;, - 0.576858; 0.861781;, - 0.584461; 0.846796;, - 0.599306; 0.839063;, - 0.574177; 0.878348;, - 0.576858; 0.861781;, - 0.581695; 0.863352;, - 0.581695; 0.893343;, - 0.576858; 0.894915;, - 0.574177; 0.878348;, - 0.581695; 0.863352;, - 0.594102; 0.924796;, - 0.596315; 0.921749;, - 0.627852; 0.932022;, - 0.608972; 0.936504;, - 0.627852; 0.932022;, - 0.627852; 0.939556;, - 0.627852; 0.932022;, - 0.608972; 0.936504;, - 0.591888; 0.927842;, - 0.594102; 0.924796;, - 0.596315; 0.921749;, - 0.584461; 0.909900;, - 0.599306; 0.917633;, - 0.599306; 0.917633;, - 0.584461; 0.909900;, - 0.576858; 0.894915;, - 0.581695; 0.893343;, - 0.627852; 0.932022;, - 0.659388; 0.921749;, - 0.661602; 0.924796;, - 0.627852; 0.939556;, - 0.627852; 0.932022;, - 0.646732; 0.936504;, - 0.663815; 0.927842;, - 0.646732; 0.936504;, - 0.627852; 0.932022;, - 0.661602; 0.924796;, - 0.656397; 0.917633;, - 0.671242; 0.909900;, - 0.659388; 0.921749;, - 0.678845; 0.894915;, - 0.671242; 0.909900;, - 0.656397; 0.917633;, - 0.674008; 0.893343;, - 0.674008; 0.863352;, - 0.678845; 0.861781;, - 0.681526; 0.878348;, - 0.681526; 0.878348;, - 0.678845; 0.894915;, - 0.674008; 0.893343;, - 0.674008; 0.863352;, - 0.627852; 0.824674;, - 0.627852; 0.817139;, - 0.646732; 0.820192;, - 0.659388; 0.834946;, - 0.627852; 0.824674;, - 0.661602; 0.831900;, - 0.663815; 0.828854;, - 0.661602; 0.831900;, - 0.627852; 0.824674;, - 0.646732; 0.820192;, - 0.656397; 0.839063;, - 0.659388; 0.834946;, - 0.671242; 0.846796;, - 0.671242; 0.846796;, - 0.678845; 0.861781;, - 0.674008; 0.863352;, - 0.656397; 0.839063;, - 0.637203; 0.865479;, - 0.640194; 0.861362;, - 0.632761; 0.863226;, - 0.627852; 0.862433;, - 0.632761; 0.863226;, - 0.640194; 0.861362;, - 0.634331; 0.858389;, - 0.627852; 0.857342;, - 0.621372; 0.858389;, - 0.627852; 0.862433;, - 0.634331; 0.858389;, - 0.622943; 0.863226;, - 0.615509; 0.861362;, - 0.618501; 0.865479;, - 0.615509; 0.861362;, - 0.622943; 0.863226;, - 0.627852; 0.862433;, - 0.621372; 0.858389;, - 0.637203; 0.865479;, - 0.640717; 0.868992;, - 0.644833; 0.865999;, - 0.640194; 0.861362;, - 0.640717; 0.868992;, - 0.642972; 0.873435;, - 0.647809; 0.871864;, - 0.644833; 0.865999;, - 0.642972; 0.873435;, - 0.643767; 0.878348;, - 0.648858; 0.878348;, - 0.647809; 0.871864;, - 0.642972; 0.883260;, - 0.647809; 0.884832;, - 0.648858; 0.878348;, - 0.643767; 0.878348;, - 0.627852; 0.841220;, - 0.627852; 0.841220;, - 0.639304; 0.843071;, - 0.649666; 0.848326;, - 0.649666; 0.848326;, - 0.627852; 0.841220;, - 0.639304; 0.843071;, - 0.663125; 0.866888;, - 0.649666; 0.848326;, - 0.657866; 0.856522;, - 0.663125; 0.866888;, - 0.657866; 0.856522;, - 0.663125; 0.866888;, - 0.649666; 0.848326;, - 0.649666; 0.848326;, - 0.663125; 0.866888;, - 0.663798; 0.866670;, - 0.663125; 0.889808;, - 0.664980; 0.878348;, - 0.663125; 0.889808;, - 0.663125; 0.866888;, - 0.664980; 0.878348;, - 0.663125; 0.889808;, - 0.663125; 0.866888;, - 0.640717; 0.887703;, - 0.644833; 0.890696;, - 0.647809; 0.884832;, - 0.642972; 0.883260;, - 0.637203; 0.891217;, - 0.640194; 0.895334;, - 0.644833; 0.890696;, - 0.640717; 0.887703;, - 0.640194; 0.895334;, - 0.637203; 0.891217;, - 0.632761; 0.893469;, - 0.634331; 0.898306;, - 0.640194; 0.895334;, - 0.627852; 0.899354;, - 0.627852; 0.894263;, - 0.627852; 0.899354;, - 0.640194; 0.895334;, - 0.632761; 0.893469;, - 0.649666; 0.908370;, - 0.657866; 0.900174;, - 0.649666; 0.908370;, - 0.663125; 0.889808;, - 0.657866; 0.900174;, - 0.649666; 0.908370;, - 0.663125; 0.889808;, - 0.639304; 0.913624;, - 0.627852; 0.915476;, - 0.627852; 0.915476;, - 0.627852; 0.915476;, - 0.649666; 0.908370;, - 0.649666; 0.908370;, - 0.639304; 0.913624;, - 0.622943; 0.893469;, - 0.618501; 0.891217;, - 0.615509; 0.895334;, - 0.627852; 0.899354;, - 0.615509; 0.895334;, - 0.621372; 0.898306;, - 0.615509; 0.895334;, - 0.627852; 0.899354;, - 0.627852; 0.894263;, - 0.622943; 0.893469;, - 0.607894; 0.884832;, - 0.610870; 0.890696;, - 0.614986; 0.887703;, - 0.612731; 0.883260;, - 0.610870; 0.890696;, - 0.615509; 0.895334;, - 0.618501; 0.891217;, - 0.614986; 0.887703;, - 0.606845; 0.878348;, - 0.611937; 0.878348;, - 0.612731; 0.873435;, - 0.607894; 0.871864;, - 0.607894; 0.884832;, - 0.612731; 0.883260;, - 0.611937; 0.878348;, - 0.606845; 0.878348;, - 0.616399; 0.913624;, - 0.606037; 0.908370;, - 0.606037; 0.908370;, - 0.606037; 0.908370;, - 0.627852; 0.915476;, - 0.627852; 0.915476;, - 0.616399; 0.913624;, - 0.606037; 0.908370;, - 0.597837; 0.900174;, - 0.606037; 0.908370;, - 0.606037; 0.908370;, - 0.597837; 0.900174;, - 0.592578; 0.889808;, - 0.592578; 0.889808;, - 0.592578; 0.889808;, - 0.590724; 0.878348;, - 0.592578; 0.889808;, - 0.592578; 0.889808;, - 0.590724; 0.878348;, - 0.592578; 0.866888;, - 0.592578; 0.866888;, - 0.610870; 0.865999;, - 0.614986; 0.868992;, - 0.618501; 0.865479;, - 0.615509; 0.861362;, - 0.607894; 0.871864;, - 0.612731; 0.873435;, - 0.614986; 0.868992;, - 0.610870; 0.865999;, - 0.592578; 0.866888;, - 0.597837; 0.856522;, - 0.592578; 0.866888;, - 0.592578; 0.866888;, - 0.597837; 0.856522;, - 0.606037; 0.848326;, - 0.606037; 0.848326;, - 0.606037; 0.848326;, - 0.606037; 0.848326;, - 0.616399; 0.843071;, - 0.627852; 0.841220;, - 0.627852; 0.841220;, - 0.606037; 0.848326;, - 0.616399; 0.843071;, - 0.646732; 0.820192;, - 0.627852; 0.817139;, - 0.627852; 0.824674;, - 0.661602; 0.831900;, - 0.663815; 0.828854;, - 0.659388; 0.834946;, - 0.627852; 0.824674;, - 0.659388; 0.834946;, - 0.663815; 0.828854;, - 0.646732; 0.820192;, - 0.671242; 0.846796;, - 0.659388; 0.834946;, - 0.656397; 0.839063;, - 0.674008; 0.863352;, - 0.678845; 0.861781;, - 0.671242; 0.846796;, - 0.656397; 0.839063;, - 0.681526; 0.878348;, - 0.678845; 0.861781;, - 0.674008; 0.863352;, - 0.674008; 0.893343;, - 0.678845; 0.894915;, - 0.681526; 0.878348;, - 0.674008; 0.863352;, - 0.661602; 0.924796;, - 0.659388; 0.921749;, - 0.627852; 0.932022;, - 0.646732; 0.936504;, - 0.627852; 0.932022;, - 0.627852; 0.939556;, - 0.627852; 0.932022;, - 0.646732; 0.936504;, - 0.663815; 0.927842;, - 0.661602; 0.924796;, - 0.659388; 0.921749;, - 0.671242; 0.909900;, - 0.656397; 0.917633;, - 0.656397; 0.917633;, - 0.671242; 0.909900;, - 0.678845; 0.894915;, - 0.674008; 0.893343;, - 0.627852; 0.932022;, - 0.596315; 0.921749;, - 0.594102; 0.924796;, - 0.627852; 0.939556;, - 0.627852; 0.932022;, - 0.608972; 0.936504;, - 0.591888; 0.927842;, - 0.608972; 0.936504;, - 0.627852; 0.932022;, - 0.594102; 0.924796;, - 0.599306; 0.917633;, - 0.584461; 0.909900;, - 0.596315; 0.921749;, - 0.576858; 0.894915;, - 0.584461; 0.909900;, - 0.599306; 0.917633;, - 0.581695; 0.893343;, - 0.581695; 0.863352;, - 0.576858; 0.861781;, - 0.574177; 0.878348;, - 0.574177; 0.878348;, - 0.576858; 0.894915;, - 0.581695; 0.893343;, - 0.581695; 0.863352;, - 0.627852; 0.824674;, - 0.627852; 0.817139;, - 0.608972; 0.820192;, - 0.596315; 0.834946;, - 0.591888; 0.828854;, - 0.594102; 0.831900;, - 0.591888; 0.828854;, - 0.596315; 0.834946;, - 0.627852; 0.824674;, - 0.608972; 0.820192;, - 0.599306; 0.839063;, - 0.596315; 0.834946;, - 0.584461; 0.846796;, - 0.584461; 0.846796;, - 0.576858; 0.861781;, - 0.581695; 0.863352;, - 0.599306; 0.839063;, - 0.627822; 0.878635;, - 0.655807; 0.840121;, - 0.673073; 0.863933;, - 0.627822; 0.878635;, - 0.582571; 0.863933;, - 0.599837; 0.840121;, - 0.649616; 0.848641;, - 0.665565; 0.866372;, - 0.651164; 0.846511;, - 0.649616; 0.908629;, - 0.651164; 0.910758;, - 0.665565; 0.890897;, - 0.663063; 0.890084;, - 0.662404; 0.889870;, - 0.649209; 0.908068;, - 0.663063; 0.890084;, - 0.649209; 0.908068;, - 0.649616; 0.908629;, - 0.665565; 0.890897;, - 0.649616; 0.848641;, - 0.649209; 0.849201;, - 0.663063; 0.867185;, - 0.665565; 0.866372;, - 0.673073; 0.893336;, - 0.655807; 0.917149;, - 0.627822; 0.878635;, - 0.673073; 0.863933;, - 0.582571; 0.893336;, - 0.582571; 0.863933;, - 0.627822; 0.878635;, - 0.599837; 0.917149;, - 0.627822; 0.926265;, - 0.599837; 0.917149;, - 0.627822; 0.878635;, - 0.655807; 0.917149;, - 0.627822; 0.878635;, - 0.599837; 0.840121;, - 0.627822; 0.831005;, - 0.655807; 0.840121;, - 0.592564; 0.830112;, - 0.594734; 0.833098;, - 0.582298; 0.845530;, - 0.579312; 0.843359;, - 0.582298; 0.845530;, - 0.574320; 0.861253;, - 0.570811; 0.860113;, - 0.579312; 0.843359;, - 0.574320; 0.861253;, - 0.582298; 0.845530;, - 0.585283; 0.847701;, - 0.577829; 0.862393;, - 0.594734; 0.833098;, - 0.596904; 0.836084;, - 0.585283; 0.847701;, - 0.582298; 0.845530;, - 0.570811; 0.860113;, - 0.574320; 0.861253;, - 0.571508; 0.878635;, - 0.567814; 0.878635;, - 0.571508; 0.878635;, - 0.574320; 0.896017;, - 0.570811; 0.897157;, - 0.567814; 0.878635;, - 0.574320; 0.896017;, - 0.571508; 0.878635;, - 0.575201; 0.878635;, - 0.577829; 0.894877;, - 0.574320; 0.861253;, - 0.577829; 0.862393;, - 0.575201; 0.878635;, - 0.571508; 0.878635;, - 0.627822; 0.831005;, - 0.599837; 0.840121;, - 0.596904; 0.836084;, - 0.627822; 0.826013;, - 0.582298; 0.911739;, - 0.579312; 0.913910;, - 0.570811; 0.897157;, - 0.574320; 0.896017;, - 0.582298; 0.911739;, - 0.594734; 0.924171;, - 0.592564; 0.927158;, - 0.579312; 0.913910;, - 0.594734; 0.924171;, - 0.582298; 0.911739;, - 0.585283; 0.909568;, - 0.596904; 0.921185;, - 0.585283; 0.909568;, - 0.582298; 0.911739;, - 0.574320; 0.896017;, - 0.577829; 0.894877;, - 0.596904; 0.921185;, - 0.599837; 0.917149;, - 0.627822; 0.926265;, - 0.627822; 0.931256;, - 0.627822; 0.815041;, - 0.608207; 0.818213;, - 0.607101; 0.814806;, - 0.627822; 0.811456;, - 0.607101; 0.814806;, - 0.608207; 0.818213;, - 0.590458; 0.827212;, - 0.588351; 0.824313;, - 0.608207; 0.818213;, - 0.609313; 0.821620;, - 0.592564; 0.830112;, - 0.590458; 0.827212;, - 0.627822; 0.803969;, - 0.604791; 0.807693;, - 0.602482; 0.800579;, - 0.627822; 0.796482;, - 0.602482; 0.800579;, - 0.604791; 0.807693;, - 0.583952; 0.818259;, - 0.579553; 0.812205;, - 0.604791; 0.807693;, - 0.607101; 0.814806;, - 0.588351; 0.824313;, - 0.583952; 0.818259;, - 0.627822; 0.811456;, - 0.607101; 0.814806;, - 0.604791; 0.807693;, - 0.627822; 0.803969;, - 0.576413; 0.841251;, - 0.573515; 0.839144;, - 0.588351; 0.824313;, - 0.590458; 0.827212;, - 0.563998; 0.857899;, - 0.573515; 0.839144;, - 0.576413; 0.841251;, - 0.567405; 0.859006;, - 0.567405; 0.859006;, - 0.576413; 0.841251;, - 0.579312; 0.843359;, - 0.570811; 0.860113;, - 0.579553; 0.812205;, - 0.583952; 0.818259;, - 0.567463; 0.834742;, - 0.561410; 0.830341;, - 0.567463; 0.834742;, - 0.556885; 0.855588;, - 0.549772; 0.853277;, - 0.561410; 0.830341;, - 0.556885; 0.855588;, - 0.567463; 0.834742;, - 0.573515; 0.839144;, - 0.563998; 0.857899;, - 0.583952; 0.818259;, - 0.588351; 0.824313;, - 0.573515; 0.839144;, - 0.567463; 0.834742;, - 0.579312; 0.843359;, - 0.576413; 0.841251;, - 0.590458; 0.827212;, - 0.592564; 0.830112;, - 0.564229; 0.878635;, - 0.560643; 0.878635;, - 0.563998; 0.857899;, - 0.567405; 0.859006;, - 0.563998; 0.899370;, - 0.560643; 0.878635;, - 0.564229; 0.878635;, - 0.567405; 0.898263;, - 0.567405; 0.898263;, - 0.564229; 0.878635;, - 0.567814; 0.878635;, - 0.570811; 0.897157;, - 0.549772; 0.853277;, - 0.556885; 0.855588;, - 0.553156; 0.878635;, - 0.545670; 0.878635;, - 0.553156; 0.878635;, - 0.556885; 0.901681;, - 0.549772; 0.903992;, - 0.545670; 0.878635;, - 0.556885; 0.901681;, - 0.553156; 0.878635;, - 0.560643; 0.878635;, - 0.563998; 0.899370;, - 0.556885; 0.855588;, - 0.563998; 0.857899;, - 0.560643; 0.878635;, - 0.553156; 0.878635;, - 0.567814; 0.878635;, - 0.564229; 0.878635;, - 0.567405; 0.859006;, - 0.570811; 0.860113;, - 0.627822; 0.794610;, - 0.601905; 0.798801;, - 0.601327; 0.797022;, - 0.627822; 0.792739;, - 0.601327; 0.797022;, - 0.601905; 0.798801;, - 0.578453; 0.810692;, - 0.577354; 0.809178;, - 0.601905; 0.798801;, - 0.602482; 0.800579;, - 0.579553; 0.812205;, - 0.578453; 0.810692;, - 0.627822; 0.792531;, - 0.601263; 0.796825;, - 0.601199; 0.796627;, - 0.627822; 0.792323;, - 0.601199; 0.796627;, - 0.601263; 0.796825;, - 0.577232; 0.809010;, - 0.577109; 0.808842;, - 0.601263; 0.796825;, - 0.601327; 0.797022;, - 0.577354; 0.809178;, - 0.577232; 0.809010;, - 0.627822; 0.792739;, - 0.601327; 0.797022;, - 0.601263; 0.796825;, - 0.627822; 0.792531;, - 0.559897; 0.829241;, - 0.558384; 0.828141;, - 0.577354; 0.809178;, - 0.578453; 0.810692;, - 0.546216; 0.852122;, - 0.558384; 0.828141;, - 0.559897; 0.829241;, - 0.547994; 0.852700;, - 0.547994; 0.852700;, - 0.559897; 0.829241;, - 0.561410; 0.830341;, - 0.549772; 0.853277;, - 0.577109; 0.808842;, - 0.577232; 0.809010;, - 0.558216; 0.828019;, - 0.558048; 0.827896;, - 0.558216; 0.828019;, - 0.546018; 0.852058;, - 0.545821; 0.851994;, - 0.558048; 0.827896;, - 0.546018; 0.852058;, - 0.558216; 0.828019;, - 0.558384; 0.828141;, - 0.546216; 0.852122;, - 0.577232; 0.809010;, - 0.577354; 0.809178;, - 0.558384; 0.828141;, - 0.558216; 0.828019;, - 0.561410; 0.830341;, - 0.559897; 0.829241;, - 0.578453; 0.810692;, - 0.579553; 0.812205;, - 0.543798; 0.878635;, - 0.541926; 0.878635;, - 0.546216; 0.852122;, - 0.547994; 0.852700;, - 0.546216; 0.905147;, - 0.541926; 0.878635;, - 0.543798; 0.878635;, - 0.547994; 0.904569;, - 0.547994; 0.904569;, - 0.543798; 0.878635;, - 0.545670; 0.878635;, - 0.549772; 0.903992;, - 0.545821; 0.851994;, - 0.546018; 0.852058;, - 0.541718; 0.878635;, - 0.541510; 0.878635;, - 0.541718; 0.878635;, - 0.546018; 0.905211;, - 0.545821; 0.905276;, - 0.541510; 0.878635;, - 0.546018; 0.905211;, - 0.541718; 0.878635;, - 0.541926; 0.878635;, - 0.546216; 0.905147;, - 0.546018; 0.852058;, - 0.546216; 0.852122;, - 0.541926; 0.878635;, - 0.541718; 0.878635;, - 0.545670; 0.878635;, - 0.543798; 0.878635;, - 0.547994; 0.852700;, - 0.549772; 0.853277;, - 0.627822; 0.796482;, - 0.602482; 0.800579;, - 0.601905; 0.798801;, - 0.627822; 0.794610;, - 0.576413; 0.916018;, - 0.573515; 0.918126;, - 0.563998; 0.899370;, - 0.567405; 0.898263;, - 0.576413; 0.916018;, - 0.590458; 0.930057;, - 0.588351; 0.932956;, - 0.573515; 0.918126;, - 0.592564; 0.927158;, - 0.590458; 0.930057;, - 0.576413; 0.916018;, - 0.579312; 0.913910;, - 0.567463; 0.922527;, - 0.561410; 0.926928;, - 0.549772; 0.903992;, - 0.556885; 0.901681;, - 0.567463; 0.922527;, - 0.583952; 0.939010;, - 0.579553; 0.945064;, - 0.561410; 0.926928;, - 0.583952; 0.939010;, - 0.567463; 0.922527;, - 0.573515; 0.918126;, - 0.588351; 0.932956;, - 0.573515; 0.918126;, - 0.567463; 0.922527;, - 0.556885; 0.901681;, - 0.563998; 0.899370;, - 0.590458; 0.930057;, - 0.608207; 0.939056;, - 0.607101; 0.942463;, - 0.588351; 0.932956;, - 0.607101; 0.942463;, - 0.608207; 0.939056;, - 0.627822; 0.942228;, - 0.627822; 0.945814;, - 0.608207; 0.939056;, - 0.609313; 0.935650;, - 0.627822; 0.938642;, - 0.627822; 0.942228;, - 0.583952; 0.939010;, - 0.604791; 0.949576;, - 0.602482; 0.956690;, - 0.579553; 0.945064;, - 0.602482; 0.956690;, - 0.604791; 0.949576;, - 0.627822; 0.953300;, - 0.627822; 0.960787;, - 0.604791; 0.949576;, - 0.607101; 0.942463;, - 0.627822; 0.945814;, - 0.627822; 0.953300;, - 0.604791; 0.949576;, - 0.583952; 0.939010;, - 0.588351; 0.932956;, - 0.607101; 0.942463;, - 0.608207; 0.939056;, - 0.590458; 0.930057;, - 0.592564; 0.927158;, - 0.609313; 0.935650;, - 0.559897; 0.928028;, - 0.558384; 0.929128;, - 0.546216; 0.905147;, - 0.547994; 0.904569;, - 0.577354; 0.948091;, - 0.558384; 0.929128;, - 0.559897; 0.928028;, - 0.578453; 0.946578;, - 0.578453; 0.946578;, - 0.559897; 0.928028;, - 0.561410; 0.926928;, - 0.579553; 0.945064;, - 0.545821; 0.905276;, - 0.546018; 0.905211;, - 0.558216; 0.929251;, - 0.558048; 0.929373;, - 0.558048; 0.929373;, - 0.558216; 0.929251;, - 0.577232; 0.948259;, - 0.577109; 0.948427;, - 0.577232; 0.948259;, - 0.558216; 0.929251;, - 0.558384; 0.929128;, - 0.577354; 0.948091;, - 0.546018; 0.905211;, - 0.546216; 0.905147;, - 0.558384; 0.929128;, - 0.558216; 0.929251;, - 0.578453; 0.946578;, - 0.601905; 0.958468;, - 0.601327; 0.960247;, - 0.577354; 0.948091;, - 0.601327; 0.960247;, - 0.601905; 0.958468;, - 0.627822; 0.962659;, - 0.627822; 0.964531;, - 0.601905; 0.958468;, - 0.602482; 0.956690;, - 0.627822; 0.960787;, - 0.627822; 0.962659;, - 0.577232; 0.948259;, - 0.601263; 0.960444;, - 0.601199; 0.960642;, - 0.577109; 0.948427;, - 0.601199; 0.960642;, - 0.601263; 0.960444;, - 0.627822; 0.964739;, - 0.627822; 0.964947;, - 0.601263; 0.960444;, - 0.601327; 0.960247;, - 0.627822; 0.964531;, - 0.627822; 0.964739;, - 0.601263; 0.960444;, - 0.577232; 0.948259;, - 0.577354; 0.948091;, - 0.601327; 0.960247;, - 0.601905; 0.958468;, - 0.578453; 0.946578;, - 0.579553; 0.945064;, - 0.602482; 0.956690;, - 0.561410; 0.926928;, - 0.559897; 0.928028;, - 0.547994; 0.904569;, - 0.549772; 0.903992;, - 0.579312; 0.913910;, - 0.576413; 0.916018;, - 0.567405; 0.898263;, - 0.570811; 0.897157;, - 0.627822; 0.818627;, - 0.609313; 0.821620;, - 0.608207; 0.818213;, - 0.627822; 0.815041;, - 0.663080; 0.927158;, - 0.660910; 0.924171;, - 0.673347; 0.911739;, - 0.676333; 0.913910;, - 0.673347; 0.911739;, - 0.681324; 0.896017;, - 0.684833; 0.897157;, - 0.676333; 0.913910;, - 0.681324; 0.896017;, - 0.673347; 0.911739;, - 0.670361; 0.909568;, - 0.677815; 0.894877;, - 0.660910; 0.924171;, - 0.658740; 0.921185;, - 0.670361; 0.909568;, - 0.673347; 0.911739;, - 0.684833; 0.897157;, - 0.681324; 0.896017;, - 0.684137; 0.878635;, - 0.687830; 0.878635;, - 0.684137; 0.878635;, - 0.681324; 0.861253;, - 0.684833; 0.860113;, - 0.687830; 0.878635;, - 0.681324; 0.861253;, - 0.684137; 0.878635;, - 0.680443; 0.878635;, - 0.677815; 0.862393;, - 0.681324; 0.896017;, - 0.677815; 0.894877;, - 0.680443; 0.878635;, - 0.684137; 0.878635;, - 0.627822; 0.926265;, - 0.655807; 0.917149;, - 0.658740; 0.921185;, - 0.627822; 0.931256;, - 0.673347; 0.845530;, - 0.676333; 0.843359;, - 0.684833; 0.860113;, - 0.681324; 0.861253;, - 0.673347; 0.845530;, - 0.660910; 0.833098;, - 0.663080; 0.830112;, - 0.676333; 0.843359;, - 0.660910; 0.833098;, - 0.673347; 0.845530;, - 0.670361; 0.847701;, - 0.658740; 0.836084;, - 0.670361; 0.847701;, - 0.673347; 0.845530;, - 0.681324; 0.861253;, - 0.677815; 0.862393;, - 0.658740; 0.836084;, - 0.655807; 0.840121;, - 0.627822; 0.831005;, - 0.627822; 0.826013;, - 0.627822; 0.942228;, - 0.647438; 0.939056;, - 0.648544; 0.942463;, - 0.627822; 0.945814;, - 0.665187; 0.930057;, - 0.667293; 0.932956;, - 0.648544; 0.942463;, - 0.647438; 0.939056;, - 0.663080; 0.927158;, - 0.665187; 0.930057;, - 0.647438; 0.939056;, - 0.646332; 0.935650;, - 0.627822; 0.953300;, - 0.650853; 0.949576;, - 0.653162; 0.956690;, - 0.627822; 0.960787;, - 0.653162; 0.956690;, - 0.650853; 0.949576;, - 0.671692; 0.939010;, - 0.676091; 0.945064;, - 0.650853; 0.949576;, - 0.648544; 0.942463;, - 0.667293; 0.932956;, - 0.671692; 0.939010;, - 0.627822; 0.945814;, - 0.648544; 0.942463;, - 0.650853; 0.949576;, - 0.627822; 0.953300;, - 0.679231; 0.916018;, - 0.682130; 0.918126;, - 0.667293; 0.932956;, - 0.665187; 0.930057;, - 0.679231; 0.916018;, - 0.688240; 0.898263;, - 0.691646; 0.899370;, - 0.682130; 0.918126;, - 0.688240; 0.898263;, - 0.679231; 0.916018;, - 0.676333; 0.913910;, - 0.684833; 0.897157;, - 0.688182; 0.922527;, - 0.694234; 0.926928;, - 0.676091; 0.945064;, - 0.671692; 0.939010;, - 0.688182; 0.922527;, - 0.698759; 0.901681;, - 0.705872; 0.903992;, - 0.694234; 0.926928;, - 0.698759; 0.901681;, - 0.688182; 0.922527;, - 0.682130; 0.918126;, - 0.691646; 0.899370;, - 0.682130; 0.918126;, - 0.688182; 0.922527;, - 0.671692; 0.939010;, - 0.667293; 0.932956;, - 0.679231; 0.916018;, - 0.665187; 0.930057;, - 0.663080; 0.927158;, - 0.676333; 0.913910;, - 0.691416; 0.878635;, - 0.695001; 0.878635;, - 0.691646; 0.899370;, - 0.688240; 0.898263;, - 0.691416; 0.878635;, - 0.688240; 0.859006;, - 0.691646; 0.857899;, - 0.695001; 0.878635;, - 0.688240; 0.859006;, - 0.691416; 0.878635;, - 0.687830; 0.878635;, - 0.684833; 0.860113;, - 0.702488; 0.878635;, - 0.709975; 0.878635;, - 0.705872; 0.903992;, - 0.698759; 0.901681;, - 0.702488; 0.878635;, - 0.698759; 0.855588;, - 0.705872; 0.853277;, - 0.709975; 0.878635;, - 0.698759; 0.855588;, - 0.702488; 0.878635;, - 0.695001; 0.878635;, - 0.691646; 0.857899;, - 0.695001; 0.878635;, - 0.702488; 0.878635;, - 0.698759; 0.901681;, - 0.691646; 0.899370;, - 0.687830; 0.878635;, - 0.691416; 0.878635;, - 0.688240; 0.898263;, - 0.684833; 0.897157;, - 0.627822; 0.962659;, - 0.653740; 0.958468;, - 0.654317; 0.960247;, - 0.627822; 0.964531;, - 0.654317; 0.960247;, - 0.653740; 0.958468;, - 0.677191; 0.946578;, - 0.678291; 0.948091;, - 0.653740; 0.958468;, - 0.653162; 0.956690;, - 0.676091; 0.945064;, - 0.677191; 0.946578;, - 0.627822; 0.964739;, - 0.654381; 0.960444;, - 0.654445; 0.960642;, - 0.627822; 0.964947;, - 0.654445; 0.960642;, - 0.654381; 0.960444;, - 0.678413; 0.948259;, - 0.678535; 0.948427;, - 0.654381; 0.960444;, - 0.654317; 0.960247;, - 0.678291; 0.948091;, - 0.678413; 0.948259;, - 0.627822; 0.964531;, - 0.654317; 0.960247;, - 0.654381; 0.960444;, - 0.627822; 0.964739;, - 0.695747; 0.928028;, - 0.697260; 0.929128;, - 0.678291; 0.948091;, - 0.677191; 0.946578;, - 0.709428; 0.905147;, - 0.697260; 0.929128;, - 0.695747; 0.928028;, - 0.707650; 0.904569;, - 0.707650; 0.904569;, - 0.695747; 0.928028;, - 0.694234; 0.926928;, - 0.705872; 0.903992;, - 0.678413; 0.948259;, - 0.697429; 0.929251;, - 0.697597; 0.929373;, - 0.678535; 0.948427;, - 0.697429; 0.929251;, - 0.709626; 0.905211;, - 0.709824; 0.905276;, - 0.697597; 0.929373;, - 0.709626; 0.905211;, - 0.697429; 0.929251;, - 0.697260; 0.929128;, - 0.709428; 0.905147;, - 0.678413; 0.948259;, - 0.678291; 0.948091;, - 0.697260; 0.929128;, - 0.697429; 0.929251;, - 0.694234; 0.926928;, - 0.695747; 0.928028;, - 0.677191; 0.946578;, - 0.676091; 0.945064;, - 0.711847; 0.878635;, - 0.713718; 0.878635;, - 0.709428; 0.905147;, - 0.707650; 0.904569;, - 0.709428; 0.852122;, - 0.713718; 0.878635;, - 0.711847; 0.878635;, - 0.707650; 0.852700;, - 0.707650; 0.852700;, - 0.711847; 0.878635;, - 0.709975; 0.878635;, - 0.705872; 0.853277;, - 0.709824; 0.905276;, - 0.709626; 0.905211;, - 0.713926; 0.878635;, - 0.714134; 0.878635;, - 0.713926; 0.878635;, - 0.709626; 0.852058;, - 0.709824; 0.851994;, - 0.714134; 0.878635;, - 0.709626; 0.852058;, - 0.713926; 0.878635;, - 0.713718; 0.878635;, - 0.709428; 0.852122;, - 0.709626; 0.905211;, - 0.709428; 0.905147;, - 0.713718; 0.878635;, - 0.713926; 0.878635;, - 0.709975; 0.878635;, - 0.711847; 0.878635;, - 0.707650; 0.904569;, - 0.705872; 0.903992;, - 0.627822; 0.960787;, - 0.653162; 0.956690;, - 0.653740; 0.958468;, - 0.627822; 0.962659;, - 0.679231; 0.841251;, - 0.682130; 0.839144;, - 0.691646; 0.857899;, - 0.688240; 0.859006;, - 0.679231; 0.841251;, - 0.665187; 0.827212;, - 0.667293; 0.824313;, - 0.682130; 0.839144;, - 0.663080; 0.830112;, - 0.665187; 0.827212;, - 0.679231; 0.841251;, - 0.676333; 0.843359;, - 0.688182; 0.834742;, - 0.694234; 0.830341;, - 0.705872; 0.853277;, - 0.698759; 0.855588;, - 0.688182; 0.834742;, - 0.671692; 0.818259;, - 0.676091; 0.812205;, - 0.694234; 0.830341;, - 0.671692; 0.818259;, - 0.688182; 0.834742;, - 0.682130; 0.839144;, - 0.667293; 0.824313;, - 0.682130; 0.839144;, - 0.688182; 0.834742;, - 0.698759; 0.855588;, - 0.691646; 0.857899;, - 0.665187; 0.827212;, - 0.647438; 0.818213;, - 0.648544; 0.814806;, - 0.667293; 0.824313;, - 0.648544; 0.814806;, - 0.647438; 0.818213;, - 0.627822; 0.815041;, - 0.627822; 0.811456;, - 0.647438; 0.818213;, - 0.646332; 0.821620;, - 0.627822; 0.818627;, - 0.627822; 0.815041;, - 0.671692; 0.818259;, - 0.650853; 0.807693;, - 0.653162; 0.800579;, - 0.676091; 0.812205;, - 0.653162; 0.800579;, - 0.650853; 0.807693;, - 0.627822; 0.803969;, - 0.627822; 0.796482;, - 0.650853; 0.807693;, - 0.648544; 0.814806;, - 0.627822; 0.811456;, - 0.627822; 0.803969;, - 0.650853; 0.807693;, - 0.671692; 0.818259;, - 0.667293; 0.824313;, - 0.648544; 0.814806;, - 0.647438; 0.818213;, - 0.665187; 0.827212;, - 0.663080; 0.830112;, - 0.646332; 0.821620;, - 0.695747; 0.829241;, - 0.697260; 0.828141;, - 0.709428; 0.852122;, - 0.707650; 0.852700;, - 0.695747; 0.829241;, - 0.677191; 0.810692;, - 0.678291; 0.809178;, - 0.697260; 0.828141;, - 0.677191; 0.810692;, - 0.695747; 0.829241;, - 0.694234; 0.830341;, - 0.676091; 0.812205;, - 0.697429; 0.828019;, - 0.697597; 0.827896;, - 0.709824; 0.851994;, - 0.709626; 0.852058;, - 0.697429; 0.828019;, - 0.678413; 0.809010;, - 0.678535; 0.808842;, - 0.697597; 0.827896;, - 0.678413; 0.809010;, - 0.697429; 0.828019;, - 0.697260; 0.828141;, - 0.678291; 0.809178;, - 0.697260; 0.828141;, - 0.697429; 0.828019;, - 0.709626; 0.852058;, - 0.709428; 0.852122;, - 0.677191; 0.810692;, - 0.653740; 0.798801;, - 0.654317; 0.797022;, - 0.678291; 0.809178;, - 0.654317; 0.797022;, - 0.653740; 0.798801;, - 0.627822; 0.794610;, - 0.627822; 0.792739;, - 0.653740; 0.798801;, - 0.653162; 0.800579;, - 0.627822; 0.796482;, - 0.627822; 0.794610;, - 0.678413; 0.809010;, - 0.654381; 0.796825;, - 0.654445; 0.796627;, - 0.678535; 0.808842;, - 0.654445; 0.796627;, - 0.654381; 0.796825;, - 0.627822; 0.792531;, - 0.627822; 0.792323;, - 0.654381; 0.796825;, - 0.654317; 0.797022;, - 0.627822; 0.792739;, - 0.627822; 0.792531;, - 0.654381; 0.796825;, - 0.678413; 0.809010;, - 0.678291; 0.809178;, - 0.654317; 0.797022;, - 0.653740; 0.798801;, - 0.677191; 0.810692;, - 0.676091; 0.812205;, - 0.653162; 0.800579;, - 0.694234; 0.830341;, - 0.695747; 0.829241;, - 0.707650; 0.852700;, - 0.705872; 0.853277;, - 0.676333; 0.843359;, - 0.679231; 0.841251;, - 0.688240; 0.859006;, - 0.684833; 0.860113;, - 0.647438; 0.939056;, - 0.627822; 0.942228;, - 0.627822; 0.938642;, - 0.646332; 0.935650;, - 0.627822; 0.870311;, - 0.630390; 0.870726;, - 0.632635; 0.863810;, - 0.627822; 0.863032;, - 0.632713; 0.871904;, - 0.636990; 0.866018;, - 0.632635; 0.863810;, - 0.630390; 0.870726;, - 0.632713; 0.871904;, - 0.630390; 0.870726;, - 0.628145; 0.877642;, - 0.632713; 0.871904;, - 0.634551; 0.873741;, - 0.640436; 0.869463;, - 0.636990; 0.866018;, - 0.634551; 0.873741;, - 0.635730; 0.876065;, - 0.642646; 0.873819;, - 0.640436; 0.869463;, - 0.635730; 0.876065;, - 0.634551; 0.873741;, - 0.628815; 0.878312;, - 0.634551; 0.873741;, - 0.632713; 0.871904;, - 0.628436; 0.877790;, - 0.636146; 0.878635;, - 0.643425; 0.878635;, - 0.642646; 0.873819;, - 0.635730; 0.876065;, - 0.636146; 0.878635;, - 0.635730; 0.881204;, - 0.642646; 0.883451;, - 0.643425; 0.878635;, - 0.635730; 0.881204;, - 0.636146; 0.878635;, - 0.628815; 0.878957;, - 0.636146; 0.878635;, - 0.635730; 0.876065;, - 0.628815; 0.878312;, - 0.627822; 0.850138;, - 0.636612; 0.851559;, - 0.639050; 0.844050;, - 0.627822; 0.842235;, - 0.639050; 0.844050;, - 0.636612; 0.851559;, - 0.644566; 0.855592;, - 0.649209; 0.849201;, - 0.636612; 0.851559;, - 0.634175; 0.859068;, - 0.639922; 0.861982;, - 0.644566; 0.855592;, - 0.650859; 0.861883;, - 0.657248; 0.857237;, - 0.649209; 0.849201;, - 0.644566; 0.855592;, - 0.662404; 0.867399;, - 0.657248; 0.857237;, - 0.650859; 0.861883;, - 0.654896; 0.869839;, - 0.654896; 0.869839;, - 0.650859; 0.861883;, - 0.644470; 0.866528;, - 0.647388; 0.872278;, - 0.644470; 0.866528;, - 0.650859; 0.861883;, - 0.644566; 0.855592;, - 0.639922; 0.861982;, - 0.656319; 0.878635;, - 0.664222; 0.878635;, - 0.662404; 0.867399;, - 0.654896; 0.869839;, - 0.662404; 0.889870;, - 0.664222; 0.878635;, - 0.656319; 0.878635;, - 0.654896; 0.887430;, - 0.654896; 0.887430;, - 0.656319; 0.878635;, - 0.648416; 0.878635;, - 0.647388; 0.884991;, - 0.648416; 0.878635;, - 0.656319; 0.878635;, - 0.654896; 0.869839;, - 0.647388; 0.872278;, - 0.627822; 0.858040;, - 0.634175; 0.859068;, - 0.636612; 0.851559;, - 0.627822; 0.850138;, - 0.634551; 0.883528;, - 0.640436; 0.887807;, - 0.642646; 0.883451;, - 0.635730; 0.881204;, - 0.634551; 0.883528;, - 0.632713; 0.885366;, - 0.636990; 0.891251;, - 0.640436; 0.887807;, - 0.632713; 0.885366;, - 0.634551; 0.883528;, - 0.628436; 0.879480;, - 0.632713; 0.885366;, - 0.630390; 0.886543;, - 0.632635; 0.893459;, - 0.636990; 0.891251;, - 0.627822; 0.886959;, - 0.627822; 0.894238;, - 0.632635; 0.893459;, - 0.630390; 0.886543;, - 0.627822; 0.886959;, - 0.630390; 0.886543;, - 0.628145; 0.879628;, - 0.630390; 0.886543;, - 0.632713; 0.885366;, - 0.628145; 0.879628;, - 0.650859; 0.895386;, - 0.657248; 0.900032;, - 0.662404; 0.889870;, - 0.654896; 0.887430;, - 0.657248; 0.900032;, - 0.650859; 0.895386;, - 0.644566; 0.901678;, - 0.649209; 0.908068;, - 0.644566; 0.901678;, - 0.650859; 0.895386;, - 0.644470; 0.890741;, - 0.639922; 0.895287;, - 0.644566; 0.901678;, - 0.636612; 0.905710;, - 0.639050; 0.913219;, - 0.649209; 0.908068;, - 0.639050; 0.913219;, - 0.636612; 0.905710;, - 0.627822; 0.907131;, - 0.627822; 0.915034;, - 0.636612; 0.905710;, - 0.634175; 0.898202;, - 0.627822; 0.899229;, - 0.627822; 0.907131;, - 0.636612; 0.905710;, - 0.644566; 0.901678;, - 0.639922; 0.895287;, - 0.634175; 0.898202;, - 0.644470; 0.890741;, - 0.650859; 0.895386;, - 0.654896; 0.887430;, - 0.647388; 0.884991;, - 0.634551; 0.883528;, - 0.635730; 0.881204;, - 0.628815; 0.878957;, - 0.627822; 0.841541;, - 0.649616; 0.848641;, - 0.651164; 0.846511;, - 0.627822; 0.838907;, - 0.663063; 0.867185;, - 0.663063; 0.890084;, - 0.665565; 0.890897;, - 0.665565; 0.866372;, - 0.663063; 0.867185;, - 0.662404; 0.867399;, - 0.662404; 0.889870;, - 0.663063; 0.890084;, - 0.627822; 0.838907;, - 0.651164; 0.846511;, - 0.652142; 0.845166;, - 0.627822; 0.837244;, - 0.651164; 0.846511;, - 0.665565; 0.866372;, - 0.667146; 0.865859;, - 0.652142; 0.845166;, - 0.665565; 0.866372;, - 0.651164; 0.846511;, - 0.651164; 0.846511;, - 0.665565; 0.866372;, - 0.667146; 0.865859;, - 0.665565; 0.866372;, - 0.665565; 0.890897;, - 0.667146; 0.891410;, - 0.665565; 0.890897;, - 0.665565; 0.866372;, - 0.665565; 0.866372;, - 0.665565; 0.890897;, - 0.627822; 0.838907;, - 0.651164; 0.846511;, - 0.651164; 0.846511;, - 0.627822; 0.838907;, - 0.651164; 0.910758;, - 0.649616; 0.908629;, - 0.627822; 0.915728;, - 0.627822; 0.918362;, - 0.649616; 0.908629;, - 0.649209; 0.908068;, - 0.627822; 0.915034;, - 0.627822; 0.915728;, - 0.667146; 0.891410;, - 0.665565; 0.890897;, - 0.651164; 0.910758;, - 0.652142; 0.912104;, - 0.652142; 0.912104;, - 0.651164; 0.910758;, - 0.627822; 0.918362;, - 0.627822; 0.920025;, - 0.627822; 0.918362;, - 0.651164; 0.910758;, - 0.651164; 0.910758;, - 0.627822; 0.918362;, - 0.651164; 0.910758;, - 0.665565; 0.890897;, - 0.665565; 0.890897;, - 0.651164; 0.910758;, - 0.627822; 0.842235;, - 0.649209; 0.849201;, - 0.649616; 0.848641;, - 0.627822; 0.841541;, - 0.627822; 0.886959;, - 0.625255; 0.886543;, - 0.623009; 0.893459;, - 0.627822; 0.894238;, - 0.622931; 0.885366;, - 0.618655; 0.891251;, - 0.623009; 0.893459;, - 0.625255; 0.886543;, - 0.622931; 0.885366;, - 0.625255; 0.886543;, - 0.627500; 0.879628;, - 0.621093; 0.883528;, - 0.615209; 0.887807;, - 0.618655; 0.891251;, - 0.622931; 0.885366;, - 0.621093; 0.883528;, - 0.619914; 0.881204;, - 0.612998; 0.883451;, - 0.615209; 0.887807;, - 0.619914; 0.881204;, - 0.621093; 0.883528;, - 0.626829; 0.878957;, - 0.621093; 0.883528;, - 0.622931; 0.885366;, - 0.627208; 0.879480;, - 0.619498; 0.878635;, - 0.612219; 0.878635;, - 0.612998; 0.883451;, - 0.619914; 0.881204;, - 0.619498; 0.878635;, - 0.619914; 0.876065;, - 0.612998; 0.873819;, - 0.612219; 0.878635;, - 0.619914; 0.876065;, - 0.619498; 0.878635;, - 0.626829; 0.878312;, - 0.619498; 0.878635;, - 0.619914; 0.881204;, - 0.626829; 0.878957;, - 0.627822; 0.907131;, - 0.619032; 0.905710;, - 0.616595; 0.913219;, - 0.627822; 0.915034;, - 0.616595; 0.913219;, - 0.619032; 0.905710;, - 0.611079; 0.901678;, - 0.606435; 0.908068;, - 0.619032; 0.905710;, - 0.621470; 0.898202;, - 0.615722; 0.895287;, - 0.611079; 0.901678;, - 0.611079; 0.901678;, - 0.604785; 0.895386;, - 0.598397; 0.900032;, - 0.606435; 0.908068;, - 0.593240; 0.889870;, - 0.598397; 0.900032;, - 0.604785; 0.895386;, - 0.600749; 0.887430;, - 0.600749; 0.887430;, - 0.604785; 0.895386;, - 0.611174; 0.890741;, - 0.608257; 0.884991;, - 0.611174; 0.890741;, - 0.604785; 0.895386;, - 0.611079; 0.901678;, - 0.615722; 0.895287;, - 0.599325; 0.878635;, - 0.591423; 0.878635;, - 0.593240; 0.889870;, - 0.600749; 0.887430;, - 0.593240; 0.867399;, - 0.591423; 0.878635;, - 0.599325; 0.878635;, - 0.600749; 0.869839;, - 0.600749; 0.869839;, - 0.599325; 0.878635;, - 0.607228; 0.878635;, - 0.608257; 0.872278;, - 0.607228; 0.878635;, - 0.599325; 0.878635;, - 0.600749; 0.887430;, - 0.608257; 0.884991;, - 0.627822; 0.899229;, - 0.621470; 0.898202;, - 0.619032; 0.905710;, - 0.627822; 0.907131;, - 0.621093; 0.873741;, - 0.615209; 0.869463;, - 0.612998; 0.873819;, - 0.619914; 0.876065;, - 0.622931; 0.871904;, - 0.618655; 0.866018;, - 0.615209; 0.869463;, - 0.621093; 0.873741;, - 0.622931; 0.871904;, - 0.621093; 0.873741;, - 0.627208; 0.877790;, - 0.622931; 0.871904;, - 0.625255; 0.870726;, - 0.623009; 0.863810;, - 0.618655; 0.866018;, - 0.623009; 0.863810;, - 0.625255; 0.870726;, - 0.627822; 0.870311;, - 0.627822; 0.863032;, - 0.625255; 0.870726;, - 0.627500; 0.877642;, - 0.627822; 0.870311;, - 0.625255; 0.870726;, - 0.622931; 0.871904;, - 0.627500; 0.877642;, - 0.604785; 0.861883;, - 0.598397; 0.857237;, - 0.593240; 0.867399;, - 0.600749; 0.869839;, - 0.604785; 0.861883;, - 0.611079; 0.855592;, - 0.606435; 0.849201;, - 0.598397; 0.857237;, - 0.611079; 0.855592;, - 0.604785; 0.861883;, - 0.611174; 0.866528;, - 0.615722; 0.861982;, - 0.611079; 0.855592;, - 0.619032; 0.851559;, - 0.616595; 0.844050;, - 0.606435; 0.849201;, - 0.616595; 0.844050;, - 0.619032; 0.851559;, - 0.627822; 0.850138;, - 0.627822; 0.842235;, - 0.619032; 0.851559;, - 0.621470; 0.859068;, - 0.627822; 0.858040;, - 0.627822; 0.850138;, - 0.619032; 0.851559;, - 0.611079; 0.855592;, - 0.615722; 0.861982;, - 0.621470; 0.859068;, - 0.611174; 0.866528;, - 0.604785; 0.861883;, - 0.600749; 0.869839;, - 0.608257; 0.872278;, - 0.621093; 0.873741;, - 0.619914; 0.876065;, - 0.626829; 0.878312;, - 0.627822; 0.915728;, - 0.606028; 0.908629;, - 0.604480; 0.910758;, - 0.627822; 0.918362;, - 0.606028; 0.908629;, - 0.592581; 0.890084;, - 0.590079; 0.890897;, - 0.604480; 0.910758;, - 0.592581; 0.890084;, - 0.606028; 0.908629;, - 0.606435; 0.908068;, - 0.593240; 0.889870;, - 0.592581; 0.867185;, - 0.590079; 0.866372;, - 0.590079; 0.890897;, - 0.592581; 0.890084;, - 0.592581; 0.867185;, - 0.592581; 0.890084;, - 0.593240; 0.889870;, - 0.593240; 0.867399;, - 0.627822; 0.918362;, - 0.604480; 0.910758;, - 0.603503; 0.912104;, - 0.627822; 0.920025;, - 0.604480; 0.910758;, - 0.590079; 0.890897;, - 0.588498; 0.891410;, - 0.603503; 0.912104;, - 0.590079; 0.890897;, - 0.604480; 0.910758;, - 0.604480; 0.910758;, - 0.590079; 0.890897;, - 0.590079; 0.890897;, - 0.590079; 0.866372;, - 0.588498; 0.865859;, - 0.588498; 0.891410;, - 0.590079; 0.866372;, - 0.590079; 0.890897;, - 0.590079; 0.890897;, - 0.590079; 0.866372;, - 0.627822; 0.918362;, - 0.604480; 0.910758;, - 0.604480; 0.910758;, - 0.627822; 0.918362;, - 0.606028; 0.848641;, - 0.604480; 0.846511;, - 0.590079; 0.866372;, - 0.592581; 0.867185;, - 0.604480; 0.846511;, - 0.606028; 0.848641;, - 0.627822; 0.841541;, - 0.627822; 0.838907;, - 0.606028; 0.848641;, - 0.606435; 0.849201;, - 0.627822; 0.842235;, - 0.627822; 0.841541;, - 0.604480; 0.846511;, - 0.603503; 0.845166;, - 0.588498; 0.865859;, - 0.590079; 0.866372;, - 0.603503; 0.845166;, - 0.604480; 0.846511;, - 0.627822; 0.838907;, - 0.627822; 0.837244;, - 0.627822; 0.838907;, - 0.604480; 0.846511;, - 0.604480; 0.846511;, - 0.627822; 0.838907;, - 0.604480; 0.846511;, - 0.604480; 0.846511;, - 0.590079; 0.866372;, - 0.590079; 0.866372;, - 0.606435; 0.849201;, - 0.606028; 0.848641;, - 0.592581; 0.867185;, - 0.593240; 0.867399;, - 0.606028; 0.908629;, - 0.627822; 0.915728;, - 0.627822; 0.915034;, - 0.606435; 0.908068;, - 0.625255; 0.886543;, - 0.627822; 0.886959;, - 0.627500; 0.879628;, - 0.627822; 0.831421;, - 0.655563; 0.840457;, - 0.655807; 0.840121;, - 0.627822; 0.831005;, - 0.655563; 0.840457;, - 0.672678; 0.864062;, - 0.673073; 0.863933;, - 0.655807; 0.840121;, - 0.672678; 0.864062;, - 0.655563; 0.840457;, - 0.652142; 0.845166;, - 0.667146; 0.865859;, - 0.672678; 0.864062;, - 0.672678; 0.893208;, - 0.673073; 0.893336;, - 0.673073; 0.863933;, - 0.672678; 0.893208;, - 0.672678; 0.864062;, - 0.667146; 0.865859;, - 0.667146; 0.891410;, - 0.660910; 0.833098;, - 0.673347; 0.845530;, - 0.676332; 0.843359;, - 0.663080; 0.830112;, - 0.673347; 0.845530;, - 0.681324; 0.861253;, - 0.684833; 0.860113;, - 0.676332; 0.843359;, - 0.681324; 0.861253;, - 0.673347; 0.845530;, - 0.670361; 0.847701;, - 0.677815; 0.862393;, - 0.660910; 0.833098;, - 0.658740; 0.836084;, - 0.670361; 0.847701;, - 0.673347; 0.845530;, - 0.684833; 0.860113;, - 0.681324; 0.861253;, - 0.684137; 0.878635;, - 0.687830; 0.878635;, - 0.684137; 0.878635;, - 0.681324; 0.896017;, - 0.684833; 0.897157;, - 0.687830; 0.878635;, - 0.681324; 0.896017;, - 0.684137; 0.878635;, - 0.680443; 0.878635;, - 0.677815; 0.894877;, - 0.681324; 0.861253;, - 0.677815; 0.862393;, - 0.680443; 0.878635;, - 0.684137; 0.878635;, - 0.627822; 0.831005;, - 0.655807; 0.840121;, - 0.658740; 0.836084;, - 0.627822; 0.826013;, - 0.655563; 0.916812;, - 0.655807; 0.917149;, - 0.673073; 0.893336;, - 0.672678; 0.893208;, - 0.627822; 0.925849;, - 0.627822; 0.926265;, - 0.655807; 0.917149;, - 0.655563; 0.916812;, - 0.627822; 0.920025;, - 0.627822; 0.925849;, - 0.655563; 0.916812;, - 0.652142; 0.912104;, - 0.673347; 0.911739;, - 0.676332; 0.913910;, - 0.684833; 0.897157;, - 0.681324; 0.896017;, - 0.676332; 0.913910;, - 0.673347; 0.911739;, - 0.660910; 0.924171;, - 0.663080; 0.927158;, - 0.660910; 0.924171;, - 0.673347; 0.911739;, - 0.670361; 0.909568;, - 0.658740; 0.921185;, - 0.670361; 0.909568;, - 0.673347; 0.911739;, - 0.681324; 0.896017;, - 0.677815; 0.894877;, - 0.658740; 0.921185;, - 0.655807; 0.917149;, - 0.627822; 0.926265;, - 0.627822; 0.931256;, - 0.652142; 0.912104;, - 0.655563; 0.916812;, - 0.672678; 0.893208;, - 0.667146; 0.891410;, - 0.627822; 0.815041;, - 0.647438; 0.818213;, - 0.648544; 0.814806;, - 0.627822; 0.811456;, - 0.648544; 0.814806;, - 0.647438; 0.818213;, - 0.665187; 0.827212;, - 0.667293; 0.824313;, - 0.647438; 0.818213;, - 0.646332; 0.821620;, - 0.663080; 0.830112;, - 0.665187; 0.827212;, - 0.627822; 0.803969;, - 0.650853; 0.807693;, - 0.653162; 0.800579;, - 0.627822; 0.796482;, - 0.653162; 0.800579;, - 0.650853; 0.807693;, - 0.671692; 0.818259;, - 0.676091; 0.812205;, - 0.650853; 0.807693;, - 0.648544; 0.814806;, - 0.667293; 0.824313;, - 0.671692; 0.818259;, - 0.627822; 0.811456;, - 0.648544; 0.814806;, - 0.650853; 0.807693;, - 0.627822; 0.803969;, - 0.679231; 0.841251;, - 0.682130; 0.839144;, - 0.667293; 0.824313;, - 0.665187; 0.827212;, - 0.691646; 0.857899;, - 0.682130; 0.839144;, - 0.679231; 0.841251;, - 0.688240; 0.859006;, - 0.688240; 0.859006;, - 0.679231; 0.841251;, - 0.676332; 0.843359;, - 0.684833; 0.860113;, - 0.676091; 0.812205;, - 0.671692; 0.818259;, - 0.688182; 0.834742;, - 0.694234; 0.830341;, - 0.688182; 0.834742;, - 0.698759; 0.855588;, - 0.705872; 0.853277;, - 0.694234; 0.830341;, - 0.698759; 0.855588;, - 0.688182; 0.834742;, - 0.682130; 0.839144;, - 0.691646; 0.857899;, - 0.688182; 0.834742;, - 0.671692; 0.818259;, - 0.667293; 0.824313;, - 0.682130; 0.839144;, - 0.676332; 0.843359;, - 0.679231; 0.841251;, - 0.665187; 0.827212;, - 0.663080; 0.830112;, - 0.691416; 0.878635;, - 0.695001; 0.878635;, - 0.691646; 0.857899;, - 0.688240; 0.859006;, - 0.691646; 0.899370;, - 0.695001; 0.878635;, - 0.691416; 0.878635;, - 0.688240; 0.898263;, - 0.688240; 0.898263;, - 0.691416; 0.878635;, - 0.687830; 0.878635;, - 0.684833; 0.897157;, - 0.705872; 0.853277;, - 0.698759; 0.855588;, - 0.702488; 0.878635;, - 0.709975; 0.878635;, - 0.702488; 0.878635;, - 0.698759; 0.901681;, - 0.705872; 0.903992;, - 0.709975; 0.878635;, - 0.698759; 0.901681;, - 0.702488; 0.878635;, - 0.695001; 0.878635;, - 0.691646; 0.899370;, - 0.698759; 0.855588;, - 0.691646; 0.857899;, - 0.695001; 0.878635;, - 0.702488; 0.878635;, - 0.687830; 0.878635;, - 0.691416; 0.878635;, - 0.688240; 0.859006;, - 0.684833; 0.860113;, - 0.627822; 0.794610;, - 0.653740; 0.798801;, - 0.654317; 0.797022;, - 0.627822; 0.792739;, - 0.654317; 0.797022;, - 0.653740; 0.798801;, - 0.677191; 0.810692;, - 0.678291; 0.809178;, - 0.653740; 0.798801;, - 0.653162; 0.800579;, - 0.676091; 0.812205;, - 0.677191; 0.810692;, - 0.627822; 0.792531;, - 0.654381; 0.796825;, - 0.654445; 0.796627;, - 0.627822; 0.792323;, - 0.654445; 0.796627;, - 0.654381; 0.796825;, - 0.678413; 0.809010;, - 0.678535; 0.808842;, - 0.654381; 0.796825;, - 0.654317; 0.797022;, - 0.678291; 0.809178;, - 0.678413; 0.809010;, - 0.627822; 0.792739;, - 0.654317; 0.797022;, - 0.654381; 0.796825;, - 0.627822; 0.792531;, - 0.695747; 0.829241;, - 0.697260; 0.828141;, - 0.678291; 0.809178;, - 0.677191; 0.810692;, - 0.709429; 0.852122;, - 0.697260; 0.828141;, - 0.695747; 0.829241;, - 0.707650; 0.852700;, - 0.707650; 0.852700;, - 0.695747; 0.829241;, - 0.694234; 0.830341;, - 0.705872; 0.853277;, - 0.678535; 0.808842;, - 0.678413; 0.809010;, - 0.697429; 0.828019;, - 0.697597; 0.827896;, - 0.697429; 0.828019;, - 0.709626; 0.852058;, - 0.709824; 0.851994;, - 0.697597; 0.827896;, - 0.709626; 0.852058;, - 0.697429; 0.828019;, - 0.697260; 0.828141;, - 0.709429; 0.852122;, - 0.678413; 0.809010;, - 0.678291; 0.809178;, - 0.697260; 0.828141;, - 0.697429; 0.828019;, - 0.694234; 0.830341;, - 0.695747; 0.829241;, - 0.677191; 0.810692;, - 0.676091; 0.812205;, - 0.711847; 0.878635;, - 0.713718; 0.878635;, - 0.709429; 0.852122;, - 0.707650; 0.852700;, - 0.709429; 0.905147;, - 0.713718; 0.878635;, - 0.711847; 0.878635;, - 0.707650; 0.904569;, - 0.707650; 0.904569;, - 0.711847; 0.878635;, - 0.709975; 0.878635;, - 0.705872; 0.903992;, - 0.709824; 0.851994;, - 0.709626; 0.852058;, - 0.713926; 0.878635;, - 0.714134; 0.878635;, - 0.713926; 0.878635;, - 0.709626; 0.905211;, - 0.709824; 0.905276;, - 0.714134; 0.878635;, - 0.709626; 0.905211;, - 0.713926; 0.878635;, - 0.713718; 0.878635;, - 0.709429; 0.905147;, - 0.709626; 0.852058;, - 0.709429; 0.852122;, - 0.713718; 0.878635;, - 0.713926; 0.878635;, - 0.709975; 0.878635;, - 0.711847; 0.878635;, - 0.707650; 0.852700;, - 0.705872; 0.853277;, - 0.627822; 0.796482;, - 0.653162; 0.800579;, - 0.653740; 0.798801;, - 0.627822; 0.794610;, - 0.679231; 0.916018;, - 0.682130; 0.918126;, - 0.691646; 0.899370;, - 0.688240; 0.898263;, - 0.679231; 0.916018;, - 0.665187; 0.930057;, - 0.667293; 0.932956;, - 0.682130; 0.918126;, - 0.665187; 0.930057;, - 0.679231; 0.916018;, - 0.676332; 0.913910;, - 0.663080; 0.927158;, - 0.688182; 0.922527;, - 0.694234; 0.926928;, - 0.705872; 0.903992;, - 0.698759; 0.901681;, - 0.688182; 0.922527;, - 0.671692; 0.939010;, - 0.676091; 0.945064;, - 0.694234; 0.926928;, - 0.671692; 0.939010;, - 0.688182; 0.922527;, - 0.682130; 0.918126;, - 0.667293; 0.932956;, - 0.682130; 0.918126;, - 0.688182; 0.922527;, - 0.698759; 0.901681;, - 0.691646; 0.899370;, - 0.665187; 0.930057;, - 0.647438; 0.939056;, - 0.648544; 0.942463;, - 0.667293; 0.932956;, - 0.648544; 0.942463;, - 0.647438; 0.939056;, - 0.627822; 0.942228;, - 0.627822; 0.945814;, - 0.647438; 0.939056;, - 0.646332; 0.935650;, - 0.627822; 0.938642;, - 0.627822; 0.942228;, - 0.671692; 0.939010;, - 0.650853; 0.949576;, - 0.653162; 0.956690;, - 0.676091; 0.945064;, - 0.653162; 0.956690;, - 0.650853; 0.949576;, - 0.627822; 0.953300;, - 0.627822; 0.960787;, - 0.650853; 0.949576;, - 0.648544; 0.942463;, - 0.627822; 0.945814;, - 0.627822; 0.953300;, - 0.650853; 0.949576;, - 0.671692; 0.939010;, - 0.667293; 0.932956;, - 0.648544; 0.942463;, - 0.647438; 0.939056;, - 0.665187; 0.930057;, - 0.663080; 0.927158;, - 0.646332; 0.935650;, - 0.695747; 0.928028;, - 0.697260; 0.929128;, - 0.709429; 0.905147;, - 0.707650; 0.904569;, - 0.678291; 0.948091;, - 0.697260; 0.929128;, - 0.695747; 0.928028;, - 0.677191; 0.946578;, - 0.677191; 0.946578;, - 0.695747; 0.928028;, - 0.694234; 0.926928;, - 0.676091; 0.945064;, - 0.709824; 0.905276;, - 0.709626; 0.905211;, - 0.697429; 0.929251;, - 0.697597; 0.929373;, - 0.697597; 0.929373;, - 0.697429; 0.929251;, - 0.678413; 0.948259;, - 0.678535; 0.948427;, - 0.678413; 0.948259;, - 0.697429; 0.929251;, - 0.697260; 0.929128;, - 0.678291; 0.948091;, - 0.709626; 0.905211;, - 0.709429; 0.905147;, - 0.697260; 0.929128;, - 0.697429; 0.929251;, - 0.677191; 0.946578;, - 0.653740; 0.958468;, - 0.654317; 0.960247;, - 0.678291; 0.948091;, - 0.654317; 0.960247;, - 0.653740; 0.958468;, - 0.627822; 0.962659;, - 0.627822; 0.964531;, - 0.653740; 0.958468;, - 0.653162; 0.956690;, - 0.627822; 0.960787;, - 0.627822; 0.962659;, - 0.678413; 0.948259;, - 0.654381; 0.960444;, - 0.654445; 0.960642;, - 0.678535; 0.948427;, - 0.654445; 0.960642;, - 0.654381; 0.960444;, - 0.627822; 0.964739;, - 0.627822; 0.964947;, - 0.654381; 0.960444;, - 0.654317; 0.960247;, - 0.627822; 0.964531;, - 0.627822; 0.964739;, - 0.654381; 0.960444;, - 0.678413; 0.948259;, - 0.678291; 0.948091;, - 0.654317; 0.960247;, - 0.653740; 0.958468;, - 0.677191; 0.946578;, - 0.676091; 0.945064;, - 0.653162; 0.956690;, - 0.694234; 0.926928;, - 0.695747; 0.928028;, - 0.707650; 0.904569;, - 0.705872; 0.903992;, - 0.676332; 0.913910;, - 0.679231; 0.916018;, - 0.688240; 0.898263;, - 0.684833; 0.897157;, - 0.627822; 0.818627;, - 0.646332; 0.821620;, - 0.647438; 0.818213;, - 0.627822; 0.815041;, - 0.627822; 0.925849;, - 0.600081; 0.916812;, - 0.599837; 0.917149;, - 0.627822; 0.926265;, - 0.600081; 0.916812;, - 0.582966; 0.893208;, - 0.582571; 0.893336;, - 0.599837; 0.917149;, - 0.582966; 0.893208;, - 0.600081; 0.916812;, - 0.603503; 0.912104;, - 0.588498; 0.891410;, - 0.582966; 0.893208;, - 0.582966; 0.864062;, - 0.582571; 0.863933;, - 0.582571; 0.893336;, - 0.588498; 0.865859;, - 0.582966; 0.864062;, - 0.582966; 0.893208;, - 0.588498; 0.891410;, - 0.592564; 0.927158;, - 0.594734; 0.924171;, - 0.582298; 0.911739;, - 0.579312; 0.913910;, - 0.582298; 0.911739;, - 0.574320; 0.896017;, - 0.570811; 0.897157;, - 0.579312; 0.913910;, - 0.574320; 0.896017;, - 0.582298; 0.911739;, - 0.585283; 0.909568;, - 0.577829; 0.894877;, - 0.594734; 0.924171;, - 0.596904; 0.921185;, - 0.585283; 0.909568;, - 0.582298; 0.911739;, - 0.570811; 0.897157;, - 0.574320; 0.896017;, - 0.571508; 0.878635;, - 0.567814; 0.878635;, - 0.571508; 0.878635;, - 0.574320; 0.861253;, - 0.570811; 0.860113;, - 0.567814; 0.878635;, - 0.574320; 0.861253;, - 0.571508; 0.878635;, - 0.575201; 0.878635;, - 0.577829; 0.862393;, - 0.574320; 0.896017;, - 0.577829; 0.894877;, - 0.575201; 0.878635;, - 0.571508; 0.878635;, - 0.627822; 0.926265;, - 0.599837; 0.917149;, - 0.596904; 0.921185;, - 0.627822; 0.931256;, - 0.600081; 0.840457;, - 0.599837; 0.840121;, - 0.582571; 0.863933;, - 0.582966; 0.864062;, - 0.599837; 0.840121;, - 0.600081; 0.840457;, - 0.627822; 0.831421;, - 0.627822; 0.831005;, - 0.600081; 0.840457;, - 0.603503; 0.845166;, - 0.627822; 0.837244;, - 0.627822; 0.831421;, - 0.582298; 0.845530;, - 0.579312; 0.843359;, - 0.570811; 0.860113;, - 0.574320; 0.861253;, - 0.582298; 0.845530;, - 0.594734; 0.833098;, - 0.592564; 0.830112;, - 0.579312; 0.843359;, - 0.594734; 0.833098;, - 0.582298; 0.845530;, - 0.585283; 0.847701;, - 0.596904; 0.836084;, - 0.585283; 0.847701;, - 0.582298; 0.845530;, - 0.574320; 0.861253;, - 0.577829; 0.862393;, - 0.596904; 0.836084;, - 0.599837; 0.840121;, - 0.627822; 0.831005;, - 0.627822; 0.826013;, - 0.603503; 0.845166;, - 0.600081; 0.840457;, - 0.582966; 0.864062;, - 0.588498; 0.865859;, - 0.627822; 0.942228;, - 0.608207; 0.939056;, - 0.607101; 0.942463;, - 0.627822; 0.945814;, - 0.590458; 0.930057;, - 0.588351; 0.932956;, - 0.607101; 0.942463;, - 0.608207; 0.939056;, - 0.592564; 0.927158;, - 0.590458; 0.930057;, - 0.608207; 0.939056;, - 0.609313; 0.935650;, - 0.627822; 0.953300;, - 0.604791; 0.949576;, - 0.602482; 0.956690;, - 0.627822; 0.960787;, - 0.602482; 0.956690;, - 0.604791; 0.949576;, - 0.583952; 0.939010;, - 0.579553; 0.945064;, - 0.604791; 0.949576;, - 0.607101; 0.942463;, - 0.588351; 0.932956;, - 0.583952; 0.939010;, - 0.627822; 0.945814;, - 0.607101; 0.942463;, - 0.604791; 0.949576;, - 0.627822; 0.953300;, - 0.576413; 0.916018;, - 0.573515; 0.918126;, - 0.588351; 0.932956;, - 0.590458; 0.930057;, - 0.576413; 0.916018;, - 0.567405; 0.898263;, - 0.563998; 0.899370;, - 0.573515; 0.918126;, - 0.567405; 0.898263;, - 0.576413; 0.916018;, - 0.579312; 0.913910;, - 0.570811; 0.897157;, - 0.567463; 0.922527;, - 0.561410; 0.926928;, - 0.579553; 0.945064;, - 0.583952; 0.939010;, - 0.567463; 0.922527;, - 0.556885; 0.901681;, - 0.549772; 0.903992;, - 0.561410; 0.926928;, - 0.556885; 0.901681;, - 0.567463; 0.922527;, - 0.573515; 0.918126;, - 0.563998; 0.899370;, - 0.573515; 0.918126;, - 0.567463; 0.922527;, - 0.583952; 0.939010;, - 0.588351; 0.932956;, - 0.576413; 0.916018;, - 0.590458; 0.930057;, - 0.592564; 0.927158;, - 0.579312; 0.913910;, - 0.564229; 0.878635;, - 0.560643; 0.878635;, - 0.563998; 0.899370;, - 0.567405; 0.898263;, - 0.564229; 0.878635;, - 0.567405; 0.859006;, - 0.563998; 0.857899;, - 0.560643; 0.878635;, - 0.567405; 0.859006;, - 0.564229; 0.878635;, - 0.567814; 0.878635;, - 0.570811; 0.860113;, - 0.553156; 0.878635;, - 0.545670; 0.878635;, - 0.549772; 0.903992;, - 0.556885; 0.901681;, - 0.553156; 0.878635;, - 0.556885; 0.855588;, - 0.549772; 0.853277;, - 0.545670; 0.878635;, - 0.556885; 0.855588;, - 0.553156; 0.878635;, - 0.560643; 0.878635;, - 0.563998; 0.857899;, - 0.560643; 0.878635;, - 0.553156; 0.878635;, - 0.556885; 0.901681;, - 0.563998; 0.899370;, - 0.567814; 0.878635;, - 0.564229; 0.878635;, - 0.567405; 0.898263;, - 0.570811; 0.897157;, - 0.627822; 0.962659;, - 0.601905; 0.958468;, - 0.601327; 0.960247;, - 0.627822; 0.964531;, - 0.601327; 0.960247;, - 0.601905; 0.958468;, - 0.578453; 0.946578;, - 0.577354; 0.948091;, - 0.601905; 0.958468;, - 0.602482; 0.956690;, - 0.579553; 0.945064;, - 0.578453; 0.946578;, - 0.627822; 0.964739;, - 0.601263; 0.960444;, - 0.601199; 0.960642;, - 0.627822; 0.964947;, - 0.601199; 0.960642;, - 0.601263; 0.960444;, - 0.577232; 0.948259;, - 0.577109; 0.948427;, - 0.601263; 0.960444;, - 0.601327; 0.960247;, - 0.577354; 0.948091;, - 0.577232; 0.948259;, - 0.627822; 0.964531;, - 0.601327; 0.960247;, - 0.601263; 0.960444;, - 0.627822; 0.964739;, - 0.559897; 0.928028;, - 0.558384; 0.929128;, - 0.577354; 0.948091;, - 0.578453; 0.946578;, - 0.546216; 0.905147;, - 0.558384; 0.929128;, - 0.559897; 0.928028;, - 0.547994; 0.904569;, - 0.547994; 0.904569;, - 0.559897; 0.928028;, - 0.561410; 0.926928;, - 0.549772; 0.903992;, - 0.577232; 0.948259;, - 0.558216; 0.929251;, - 0.558048; 0.929373;, - 0.577109; 0.948427;, - 0.558216; 0.929251;, - 0.546018; 0.905211;, - 0.545821; 0.905276;, - 0.558048; 0.929373;, - 0.546018; 0.905211;, - 0.558216; 0.929251;, - 0.558384; 0.929128;, - 0.546216; 0.905147;, - 0.577232; 0.948259;, - 0.577354; 0.948091;, - 0.558384; 0.929128;, - 0.558216; 0.929251;, - 0.561410; 0.926928;, - 0.559897; 0.928028;, - 0.578453; 0.946578;, - 0.579553; 0.945064;, - 0.543798; 0.878635;, - 0.541926; 0.878635;, - 0.546216; 0.905147;, - 0.547994; 0.904569;, - 0.546216; 0.852122;, - 0.541926; 0.878635;, - 0.543798; 0.878635;, - 0.547994; 0.852700;, - 0.547994; 0.852700;, - 0.543798; 0.878635;, - 0.545670; 0.878635;, - 0.549772; 0.853277;, - 0.545821; 0.905276;, - 0.546018; 0.905211;, - 0.541718; 0.878635;, - 0.541510; 0.878635;, - 0.541718; 0.878635;, - 0.546018; 0.852058;, - 0.545821; 0.851994;, - 0.541510; 0.878635;, - 0.546018; 0.852058;, - 0.541718; 0.878635;, - 0.541926; 0.878635;, - 0.546216; 0.852122;, - 0.546018; 0.905211;, - 0.546216; 0.905147;, - 0.541926; 0.878635;, - 0.541718; 0.878635;, - 0.545670; 0.878635;, - 0.543798; 0.878635;, - 0.547994; 0.904569;, - 0.549772; 0.903992;, - 0.627822; 0.960787;, - 0.602482; 0.956690;, - 0.601905; 0.958468;, - 0.627822; 0.962659;, - 0.576413; 0.841251;, - 0.573515; 0.839144;, - 0.563998; 0.857899;, - 0.567405; 0.859006;, - 0.576413; 0.841251;, - 0.590458; 0.827212;, - 0.588351; 0.824313;, - 0.573515; 0.839144;, - 0.592564; 0.830112;, - 0.590458; 0.827212;, - 0.576413; 0.841251;, - 0.579312; 0.843359;, - 0.567463; 0.834742;, - 0.561410; 0.830341;, - 0.549772; 0.853277;, - 0.556885; 0.855588;, - 0.567463; 0.834742;, - 0.583952; 0.818259;, - 0.579553; 0.812205;, - 0.561410; 0.830341;, - 0.583952; 0.818259;, - 0.567463; 0.834742;, - 0.573515; 0.839144;, - 0.588351; 0.824313;, - 0.573515; 0.839144;, - 0.567463; 0.834742;, - 0.556885; 0.855588;, - 0.563998; 0.857899;, - 0.590458; 0.827212;, - 0.608207; 0.818213;, - 0.607101; 0.814806;, - 0.588351; 0.824313;, - 0.607101; 0.814806;, - 0.608207; 0.818213;, - 0.627822; 0.815041;, - 0.627822; 0.811456;, - 0.608207; 0.818213;, - 0.609313; 0.821620;, - 0.627822; 0.818627;, - 0.627822; 0.815041;, - 0.583952; 0.818259;, - 0.604791; 0.807693;, - 0.602482; 0.800579;, - 0.579553; 0.812205;, - 0.602482; 0.800579;, - 0.604791; 0.807693;, - 0.627822; 0.803969;, - 0.627822; 0.796482;, - 0.604791; 0.807693;, - 0.607101; 0.814806;, - 0.627822; 0.811456;, - 0.627822; 0.803969;, - 0.604791; 0.807693;, - 0.583952; 0.818259;, - 0.588351; 0.824313;, - 0.607101; 0.814806;, - 0.608207; 0.818213;, - 0.590458; 0.827212;, - 0.592564; 0.830112;, - 0.609313; 0.821620;, - 0.559897; 0.829241;, - 0.558384; 0.828141;, - 0.546216; 0.852122;, - 0.547994; 0.852700;, - 0.559897; 0.829241;, - 0.578453; 0.810692;, - 0.577354; 0.809178;, - 0.558384; 0.828141;, - 0.578453; 0.810692;, - 0.559897; 0.829241;, - 0.561410; 0.830341;, - 0.579553; 0.812205;, - 0.558216; 0.828019;, - 0.558048; 0.827896;, - 0.545821; 0.851994;, - 0.546018; 0.852058;, - 0.558216; 0.828019;, - 0.577232; 0.809010;, - 0.577109; 0.808842;, - 0.558048; 0.827896;, - 0.577232; 0.809010;, - 0.558216; 0.828019;, - 0.558384; 0.828141;, - 0.577354; 0.809178;, - 0.558384; 0.828141;, - 0.558216; 0.828019;, - 0.546018; 0.852058;, - 0.546216; 0.852122;, - 0.578453; 0.810692;, - 0.601905; 0.798801;, - 0.601327; 0.797022;, - 0.577354; 0.809178;, - 0.601327; 0.797022;, - 0.601905; 0.798801;, - 0.627822; 0.794610;, - 0.627822; 0.792739;, - 0.601905; 0.798801;, - 0.602482; 0.800579;, - 0.627822; 0.796482;, - 0.627822; 0.794610;, - 0.577232; 0.809010;, - 0.601263; 0.796825;, - 0.601199; 0.796627;, - 0.577109; 0.808842;, - 0.601199; 0.796627;, - 0.601263; 0.796825;, - 0.627822; 0.792531;, - 0.627822; 0.792323;, - 0.601263; 0.796825;, - 0.601327; 0.797022;, - 0.627822; 0.792739;, - 0.627822; 0.792531;, - 0.601263; 0.796825;, - 0.577232; 0.809010;, - 0.577354; 0.809178;, - 0.601327; 0.797022;, - 0.601905; 0.798801;, - 0.578453; 0.810692;, - 0.579553; 0.812205;, - 0.602482; 0.800579;, - 0.561410; 0.830341;, - 0.559897; 0.829241;, - 0.547994; 0.852700;, - 0.549772; 0.853277;, - 0.579312; 0.843359;, - 0.576413; 0.841251;, - 0.567405; 0.859006;, - 0.570811; 0.860113;, - 0.608207; 0.939056;, - 0.627822; 0.942228;, - 0.627822; 0.938642;, - 0.609313; 0.935650;, - 0.600081; 0.916812;, - 0.627822; 0.925849;, - 0.627822; 0.920025;, - 0.603503; 0.912104;, - 0.655563; 0.840457;, - 0.627822; 0.831421;, - 0.627822; 0.837244;, - 0.652142; 0.845166;, - 0.630390; 0.870726;, - 0.627822; 0.870311;, - 0.628145; 0.877642;, - 0.609313; 0.821620;, - 0.627822; 0.818627;, - 0.627822; 0.826013;, - 0.594734; 0.833098;, - 0.592564; 0.830112;, - 0.596904; 0.836084;, - 0.627822; 0.826013;, - 0.596904; 0.836084;, - 0.592564; 0.830112;, - 0.609313; 0.821620;, - 0.585283; 0.847701;, - 0.596904; 0.836084;, - 0.599837; 0.840121;, - 0.582571; 0.863933;, - 0.577829; 0.862393;, - 0.585283; 0.847701;, - 0.599837; 0.840121;, - 0.575201; 0.878635;, - 0.577829; 0.862393;, - 0.582571; 0.863933;, - 0.582571; 0.893336;, - 0.577829; 0.894877;, - 0.575201; 0.878635;, - 0.582571; 0.863933;, - 0.594734; 0.924171;, - 0.596904; 0.921185;, - 0.627822; 0.931256;, - 0.609313; 0.935650;, - 0.627822; 0.931256;, - 0.627822; 0.938642;, - 0.627822; 0.931256;, - 0.609313; 0.935650;, - 0.592564; 0.927158;, - 0.594734; 0.924171;, - 0.596904; 0.921185;, - 0.585283; 0.909568;, - 0.599837; 0.917149;, - 0.599837; 0.917149;, - 0.585283; 0.909568;, - 0.577829; 0.894877;, - 0.582571; 0.893336;, - 0.627822; 0.931256;, - 0.658740; 0.921185;, - 0.660910; 0.924171;, - 0.627822; 0.938642;, - 0.627822; 0.931256;, - 0.646332; 0.935650;, - 0.663080; 0.927158;, - 0.646332; 0.935650;, - 0.627822; 0.931256;, - 0.660910; 0.924171;, - 0.655807; 0.917149;, - 0.670361; 0.909568;, - 0.658740; 0.921185;, - 0.677815; 0.894877;, - 0.670361; 0.909568;, - 0.655807; 0.917149;, - 0.673073; 0.893336;, - 0.673073; 0.863933;, - 0.677815; 0.862393;, - 0.680443; 0.878635;, - 0.680443; 0.878635;, - 0.677815; 0.894877;, - 0.673073; 0.893336;, - 0.673073; 0.863933;, - 0.627822; 0.826013;, - 0.627822; 0.818627;, - 0.646332; 0.821620;, - 0.658740; 0.836084;, - 0.627822; 0.826013;, - 0.660910; 0.833098;, - 0.663080; 0.830112;, - 0.660910; 0.833098;, - 0.627822; 0.826013;, - 0.646332; 0.821620;, - 0.655807; 0.840121;, - 0.658740; 0.836084;, - 0.670361; 0.847701;, - 0.670361; 0.847701;, - 0.677815; 0.862393;, - 0.673073; 0.863933;, - 0.655807; 0.840121;, - 0.636990; 0.866018;, - 0.639922; 0.861982;, - 0.632635; 0.863810;, - 0.627822; 0.863032;, - 0.632635; 0.863810;, - 0.639922; 0.861982;, - 0.634175; 0.859068;, - 0.627822; 0.858040;, - 0.621470; 0.859068;, - 0.627822; 0.863032;, - 0.634175; 0.859068;, - 0.623009; 0.863810;, - 0.615722; 0.861982;, - 0.618655; 0.866018;, - 0.615722; 0.861982;, - 0.623009; 0.863810;, - 0.627822; 0.863032;, - 0.621470; 0.859068;, - 0.636990; 0.866018;, - 0.640436; 0.869463;, - 0.644470; 0.866528;, - 0.639922; 0.861982;, - 0.640436; 0.869463;, - 0.642646; 0.873819;, - 0.647388; 0.872278;, - 0.644470; 0.866528;, - 0.642646; 0.873819;, - 0.643425; 0.878635;, - 0.648416; 0.878635;, - 0.647388; 0.872278;, - 0.642646; 0.883451;, - 0.647388; 0.884991;, - 0.648416; 0.878635;, - 0.643425; 0.878635;, - 0.627822; 0.842235;, - 0.627822; 0.842235;, - 0.639050; 0.844050;, - 0.649209; 0.849201;, - 0.649209; 0.849201;, - 0.627822; 0.842235;, - 0.639050; 0.844050;, - 0.662404; 0.867399;, - 0.649209; 0.849201;, - 0.657248; 0.857237;, - 0.662404; 0.867399;, - 0.657248; 0.857237;, - 0.662404; 0.867399;, - 0.649209; 0.849201;, - 0.649209; 0.849201;, - 0.662404; 0.867399;, - 0.663063; 0.867185;, - 0.662404; 0.889870;, - 0.664222; 0.878635;, - 0.662404; 0.889870;, - 0.662404; 0.867399;, - 0.664222; 0.878635;, - 0.662404; 0.889870;, - 0.662404; 0.867399;, - 0.640436; 0.887807;, - 0.644470; 0.890741;, - 0.647388; 0.884991;, - 0.642646; 0.883451;, - 0.636990; 0.891251;, - 0.639922; 0.895287;, - 0.644470; 0.890741;, - 0.640436; 0.887807;, - 0.639922; 0.895287;, - 0.636990; 0.891251;, - 0.632635; 0.893459;, - 0.634175; 0.898202;, - 0.639922; 0.895287;, - 0.627822; 0.899229;, - 0.627822; 0.894238;, - 0.627822; 0.899229;, - 0.639922; 0.895287;, - 0.632635; 0.893459;, - 0.649209; 0.908068;, - 0.657248; 0.900032;, - 0.649209; 0.908068;, - 0.662404; 0.889870;, - 0.657248; 0.900032;, - 0.649209; 0.908068;, - 0.662404; 0.889870;, - 0.639050; 0.913219;, - 0.627822; 0.915034;, - 0.627822; 0.915034;, - 0.627822; 0.915034;, - 0.649209; 0.908068;, - 0.649209; 0.908068;, - 0.639050; 0.913219;, - 0.623009; 0.893459;, - 0.618655; 0.891251;, - 0.615722; 0.895287;, - 0.627822; 0.899229;, - 0.615722; 0.895287;, - 0.621470; 0.898202;, - 0.615722; 0.895287;, - 0.627822; 0.899229;, - 0.627822; 0.894238;, - 0.623009; 0.893459;, - 0.608257; 0.884991;, - 0.611174; 0.890741;, - 0.615209; 0.887807;, - 0.612998; 0.883451;, - 0.611174; 0.890741;, - 0.615722; 0.895287;, - 0.618655; 0.891251;, - 0.615209; 0.887807;, - 0.607228; 0.878635;, - 0.612219; 0.878635;, - 0.612998; 0.873819;, - 0.608257; 0.872278;, - 0.608257; 0.884991;, - 0.612998; 0.883451;, - 0.612219; 0.878635;, - 0.607228; 0.878635;, - 0.616595; 0.913219;, - 0.606435; 0.908068;, - 0.606435; 0.908068;, - 0.606435; 0.908068;, - 0.627822; 0.915034;, - 0.627822; 0.915034;, - 0.616595; 0.913219;, - 0.606435; 0.908068;, - 0.598397; 0.900032;, - 0.606435; 0.908068;, - 0.606435; 0.908068;, - 0.598397; 0.900032;, - 0.593240; 0.889870;, - 0.593240; 0.889870;, - 0.593240; 0.889870;, - 0.591423; 0.878635;, - 0.593240; 0.889870;, - 0.593240; 0.889870;, - 0.591423; 0.878635;, - 0.593240; 0.867399;, - 0.593240; 0.867399;, - 0.611174; 0.866528;, - 0.615209; 0.869463;, - 0.618655; 0.866018;, - 0.615722; 0.861982;, - 0.608257; 0.872278;, - 0.612998; 0.873819;, - 0.615209; 0.869463;, - 0.611174; 0.866528;, - 0.593240; 0.867399;, - 0.598397; 0.857237;, - 0.593240; 0.867399;, - 0.593240; 0.867399;, - 0.598397; 0.857237;, - 0.606435; 0.849201;, - 0.606435; 0.849201;, - 0.606435; 0.849201;, - 0.606435; 0.849201;, - 0.616595; 0.844050;, - 0.627822; 0.842235;, - 0.627822; 0.842235;, - 0.606435; 0.849201;, - 0.616595; 0.844050;, - 0.646332; 0.821620;, - 0.627822; 0.818627;, - 0.627822; 0.826013;, - 0.660910; 0.833098;, - 0.663080; 0.830112;, - 0.658740; 0.836084;, - 0.627822; 0.826013;, - 0.658740; 0.836084;, - 0.663080; 0.830112;, - 0.646332; 0.821620;, - 0.670361; 0.847701;, - 0.658740; 0.836084;, - 0.655807; 0.840121;, - 0.673073; 0.863933;, - 0.677815; 0.862393;, - 0.670361; 0.847701;, - 0.655807; 0.840121;, - 0.680443; 0.878635;, - 0.677815; 0.862393;, - 0.673073; 0.863933;, - 0.673073; 0.893336;, - 0.677815; 0.894877;, - 0.680443; 0.878635;, - 0.673073; 0.863933;, - 0.660910; 0.924171;, - 0.658740; 0.921185;, - 0.627822; 0.931256;, - 0.646332; 0.935650;, - 0.627822; 0.931256;, - 0.627822; 0.938642;, - 0.627822; 0.931256;, - 0.646332; 0.935650;, - 0.663080; 0.927158;, - 0.660910; 0.924171;, - 0.658740; 0.921185;, - 0.670361; 0.909568;, - 0.655807; 0.917149;, - 0.655807; 0.917149;, - 0.670361; 0.909568;, - 0.677815; 0.894877;, - 0.673073; 0.893336;, - 0.627822; 0.931256;, - 0.596904; 0.921185;, - 0.594734; 0.924171;, - 0.627822; 0.938642;, - 0.627822; 0.931256;, - 0.609313; 0.935650;, - 0.592564; 0.927158;, - 0.609313; 0.935650;, - 0.627822; 0.931256;, - 0.594734; 0.924171;, - 0.599837; 0.917149;, - 0.585283; 0.909568;, - 0.596904; 0.921185;, - 0.577829; 0.894877;, - 0.585283; 0.909568;, - 0.599837; 0.917149;, - 0.582571; 0.893336;, - 0.582571; 0.863933;, - 0.577829; 0.862393;, - 0.575201; 0.878635;, - 0.575201; 0.878635;, - 0.577829; 0.894877;, - 0.582571; 0.893336;, - 0.582571; 0.863933;, - 0.627822; 0.826013;, - 0.627822; 0.818627;, - 0.609313; 0.821620;, - 0.596904; 0.836084;, - 0.592564; 0.830112;, - 0.594734; 0.833098;, - 0.592564; 0.830112;, - 0.596904; 0.836084;, - 0.627822; 0.826013;, - 0.609313; 0.821620;, - 0.599837; 0.840121;, - 0.596904; 0.836084;, - 0.585283; 0.847701;, - 0.585283; 0.847701;, - 0.577829; 0.862393;, - 0.582571; 0.863933;, - 0.599837; 0.840121;; - } //End of Gasprin_001 UV Coordinates - } //End of Gasprin_001 Mesh - } //End of GasprinBody - Frame Rotate { - FrameTransformMatrix { - 1.643129, 0.000000, 0.000000, 0.000000, - 0.000000, 1.643129, 0.000000, 0.000000, - 0.000000, 0.000000, 1.643129, 0.000000, - 0.000000, 0.004207, 0.259556, 1.000000;; - } - Mesh { //Circle_001 Mesh - 0; - 0; - MeshNormals { //Circle_001 Normals - 0; - 0; - } //End of Circle_001 Normals - MeshMaterialList { //Circle_001 Material List - 1; - 1; - 0;; - Material Default_Material { - 0.800000; 0.800000; 0.800000; 0.800000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - } //End of Circle_001 Material List - } //End of Circle_001 Mesh - } //End of Rotate -} //End of Root Frame diff --git a/programs/samples/open_gl/gasprin_tmap.png b/programs/samples/open_gl/gasprin_tmap.png deleted file mode 100644 index 25065cae2..000000000 Binary files a/programs/samples/open_gl/gasprin_tmap.png and /dev/null differ diff --git a/programs/samples/open_gl/marty.x b/programs/samples/open_gl/marty.x deleted file mode 100644 index 790501724..000000000 --- a/programs/samples/open_gl/marty.x +++ /dev/null @@ -1,23213 +0,0 @@ -xof 0303txt 0032 - -Frame Root { - FrameTransformMatrix { - 1.000000, 0.000000, 0.000000, 0.000000, - 0.000000, 0.000000, 1.000000, 0.000000, - 0.000000, 1.000000,-0.000000, 0.000000, - 0.000000, 0.000000, 0.000000, 1.000000;; - } - Frame Armature_Marty { - FrameTransformMatrix { - 1.000000, 0.000000, 0.000000, 0.000000, - 0.000000, 1.000000, 0.000000, 0.000000, - 0.000000, 0.000000, 1.000000, 0.000000, - 0.000000, 0.646762, 1.620802, 1.000000;; - } - Frame Marty { - FrameTransformMatrix { - 1.000000, 0.000000, 0.000000, 0.000000, - 0.000000, 1.000000, 0.000000, 0.000000, - 0.000000, 0.000000, 1.000000, 0.000000, - -0.000000,-0.646762,-1.620802, 1.000000;; - } - Mesh { //Cube_000 Mesh - 5790; - -0.276062; 0.141987;-0.655820;, - -0.307452; 0.120273;-0.592478;, - -0.260590; 0.250227;-0.602692;, - 0.260590; 0.250227;-0.602692;, - 0.307452; 0.120273;-0.592478;, - 0.276062; 0.141987;-0.655820;, - -0.241495; 0.255320;-0.660469;, - -0.276062; 0.141987;-0.655820;, - -0.260590; 0.250227;-0.602692;, - 0.260590; 0.250227;-0.602692;, - 0.276062; 0.141987;-0.655820;, - 0.241495; 0.255320;-0.660469;, - -0.232502; 0.347176;-0.655338;, - -0.241495; 0.255320;-0.660469;, - -0.260590; 0.250227;-0.602692;, - 0.260590; 0.250227;-0.602692;, - 0.241495; 0.255320;-0.660469;, - 0.232502; 0.347176;-0.655338;, - -0.255557; 0.344165;-0.620208;, - -0.232502; 0.347176;-0.655338;, - -0.260590; 0.250227;-0.602692;, - 0.260590; 0.250227;-0.602692;, - 0.232502; 0.347176;-0.655338;, - 0.255557; 0.344165;-0.620208;, - -0.281031; 0.318751;-0.582289;, - -0.255557; 0.344165;-0.620208;, - -0.260590; 0.250227;-0.602692;, - 0.260590; 0.250227;-0.602692;, - 0.255557; 0.344165;-0.620208;, - 0.281031; 0.318751;-0.582289;, - -0.281031; 0.318751;-0.582289;, - -0.260590; 0.250227;-0.602692;, - -0.328996; 0.283659;-0.528229;, - 0.328996; 0.283659;-0.528229;, - 0.260590; 0.250227;-0.602692;, - 0.281031; 0.318751;-0.582289;, - -0.328996; 0.283659;-0.528229;, - -0.260590; 0.250227;-0.602692;, - -0.307452; 0.120273;-0.592478;, - 0.307452; 0.120273;-0.592478;, - 0.260590; 0.250227;-0.602692;, - 0.328996; 0.283659;-0.528229;, - -0.328996; 0.283659;-0.528229;, - -0.307452; 0.120273;-0.592478;, - -0.407982; 0.252241;-0.472992;, - 0.407982; 0.252241;-0.472992;, - 0.307452; 0.120273;-0.592478;, - 0.328996; 0.283659;-0.528229;, - -0.339215; 0.037447;-0.652151;, - -0.307452; 0.120273;-0.592478;, - -0.276062; 0.141987;-0.655820;, - 0.276062; 0.141987;-0.655820;, - 0.307452; 0.120273;-0.592478;, - 0.339215; 0.037447;-0.652151;, - -0.407982;-0.031610;-0.649049;, - -0.307452; 0.120273;-0.592478;, - -0.339215; 0.037447;-0.652151;, - 0.339215; 0.037447;-0.652151;, - 0.307452; 0.120273;-0.592478;, - 0.407982;-0.031610;-0.649049;, - -0.407982; 0.088695;-0.556661;, - -0.307452; 0.120273;-0.592478;, - -0.407982;-0.031610;-0.649049;, - 0.407982;-0.031610;-0.649049;, - 0.307452; 0.120273;-0.592478;, - 0.407982; 0.088695;-0.556661;, - -0.508569; 0.120273;-0.592478;, - -0.407982;-0.031610;-0.649049;, - -0.476806; 0.037447;-0.652151;, - 0.476806; 0.037447;-0.652151;, - 0.407982;-0.031610;-0.649049;, - 0.508569; 0.120273;-0.592478;, - -0.508569; 0.120273;-0.592478;, - -0.407982; 0.088695;-0.556661;, - -0.407982;-0.031610;-0.649049;, - 0.407982;-0.031610;-0.649049;, - 0.407982; 0.088695;-0.556661;, - 0.508569; 0.120273;-0.592478;, - -0.476806; 0.037447;-0.652151;, - -0.539960; 0.141987;-0.655820;, - -0.508569; 0.120273;-0.592478;, - 0.508569; 0.120273;-0.592478;, - 0.539960; 0.141987;-0.655820;, - 0.476806; 0.037447;-0.652151;, - -0.539960; 0.141987;-0.655820;, - -0.555431; 0.250227;-0.602692;, - -0.508569; 0.120273;-0.592478;, - 0.508569; 0.120273;-0.592478;, - 0.555431; 0.250227;-0.602692;, - 0.539960; 0.141987;-0.655820;, - -0.574526; 0.255320;-0.660469;, - -0.555431; 0.250227;-0.602692;, - -0.539960; 0.141987;-0.655820;, - 0.539960; 0.141987;-0.655820;, - 0.555431; 0.250227;-0.602692;, - 0.574526; 0.255320;-0.660469;, - -0.583519; 0.347176;-0.655338;, - -0.555431; 0.250227;-0.602692;, - -0.574526; 0.255320;-0.660469;, - 0.574526; 0.255320;-0.660469;, - 0.555431; 0.250227;-0.602692;, - 0.583519; 0.347176;-0.655338;, - -0.583519; 0.347176;-0.655338;, - -0.560464; 0.344165;-0.620208;, - -0.555431; 0.250227;-0.602692;, - 0.555431; 0.250227;-0.602692;, - 0.560464; 0.344165;-0.620208;, - 0.583519; 0.347176;-0.655338;, - -0.555431; 0.250227;-0.602692;, - -0.560464; 0.344165;-0.620208;, - -0.534990; 0.318751;-0.582289;, - 0.534990; 0.318751;-0.582289;, - 0.560464; 0.344165;-0.620208;, - 0.555431; 0.250227;-0.602692;, - -0.487025; 0.283659;-0.528229;, - -0.555431; 0.250227;-0.602692;, - -0.534990; 0.318751;-0.582289;, - 0.534990; 0.318751;-0.582289;, - 0.555431; 0.250227;-0.602692;, - 0.487025; 0.283659;-0.528229;, - -0.487025; 0.283659;-0.528229;, - -0.508569; 0.120273;-0.592478;, - -0.555431; 0.250227;-0.602692;, - 0.555431; 0.250227;-0.602692;, - 0.508569; 0.120273;-0.592478;, - 0.487025; 0.283659;-0.528229;, - -0.487025; 0.283659;-0.528229;, - -0.407982; 0.252241;-0.472992;, - -0.508569; 0.120273;-0.592478;, - 0.508569; 0.120273;-0.592478;, - 0.407982; 0.252241;-0.472992;, - 0.487025; 0.283659;-0.528229;, - -0.407982; 0.252241;-0.472992;, - -0.307452; 0.120273;-0.592478;, - -0.407982; 0.088695;-0.556661;, - 0.407982; 0.088695;-0.556661;, - 0.307452; 0.120273;-0.592478;, - 0.407982; 0.252241;-0.472992;, - -0.407982; 0.252241;-0.472992;, - -0.407982; 0.088695;-0.556661;, - -0.508569; 0.120273;-0.592478;, - 0.508569; 0.120273;-0.592478;, - 0.407982; 0.088695;-0.556661;, - 0.407982; 0.252241;-0.472992;, - -0.407982; 0.252241;-0.472992;, - -0.458258; 0.294218;-0.527414;, - -0.408393; 0.267988;-0.486987;, - 0.408393; 0.267988;-0.486987;, - 0.458258; 0.294218;-0.527414;, - 0.407982; 0.252241;-0.472992;, - -0.458258; 0.294218;-0.527414;, - -0.407982; 0.252241;-0.472992;, - -0.487025; 0.283659;-0.528229;, - 0.487025; 0.283659;-0.528229;, - 0.407982; 0.252241;-0.472992;, - 0.458258; 0.294218;-0.527414;, - -0.458258; 0.294218;-0.527414;, - -0.487025; 0.283659;-0.528229;, - -0.518899; 0.326494;-0.591868;, - 0.518899; 0.326494;-0.591868;, - 0.487025; 0.283659;-0.528229;, - 0.458258; 0.294218;-0.527414;, - -0.487025; 0.283659;-0.528229;, - -0.534990; 0.318751;-0.582289;, - -0.518899; 0.326494;-0.591868;, - 0.518899; 0.326494;-0.591868;, - 0.534990; 0.318751;-0.582289;, - 0.487025; 0.283659;-0.528229;, - -0.560464; 0.344165;-0.620208;, - -0.518899; 0.326494;-0.591868;, - -0.534990; 0.318751;-0.582289;, - 0.534990; 0.318751;-0.582289;, - 0.518899; 0.326494;-0.591868;, - 0.560464; 0.344165;-0.620208;, - -0.408393; 0.267988;-0.486987;, - -0.328996; 0.283659;-0.528229;, - -0.407982; 0.252241;-0.472992;, - 0.407982; 0.252241;-0.472992;, - 0.328996; 0.283659;-0.528229;, - 0.408393; 0.267988;-0.486987;, - -0.408393; 0.267988;-0.486987;, - -0.359997; 0.294109;-0.527424;, - -0.328996; 0.283659;-0.528229;, - 0.328996; 0.283659;-0.528229;, - 0.359997; 0.294109;-0.527424;, - 0.408393; 0.267988;-0.486987;, - -0.359997; 0.294109;-0.527424;, - -0.299357; 0.326252;-0.591889;, - -0.328996; 0.283659;-0.528229;, - 0.328996; 0.283659;-0.528229;, - 0.299357; 0.326252;-0.591889;, - 0.359997; 0.294109;-0.527424;, - -0.281031; 0.318751;-0.582289;, - -0.328996; 0.283659;-0.528229;, - -0.299357; 0.326252;-0.591889;, - 0.299357; 0.326252;-0.591889;, - 0.328996; 0.283659;-0.528229;, - 0.281031; 0.318751;-0.582289;, - -0.281031; 0.318751;-0.582289;, - -0.299357; 0.326252;-0.591889;, - -0.255557; 0.344165;-0.620208;, - 0.255557; 0.344165;-0.620208;, - 0.299357; 0.326252;-0.591889;, - 0.281031; 0.318751;-0.582289;, - -0.560464; 0.344165;-0.620208;, - -0.408011; 0.343851;-0.621825;, - -0.518899; 0.326494;-0.591868;, - 0.518899; 0.326494;-0.591868;, - 0.408011; 0.343851;-0.621825;, - 0.560464; 0.344165;-0.620208;, - -0.255557; 0.344165;-0.620208;, - -0.299357; 0.326252;-0.591889;, - -0.408011; 0.343851;-0.621825;, - 0.408011; 0.343851;-0.621825;, - 0.299357; 0.326252;-0.591889;, - 0.255557; 0.344165;-0.620208;, - -0.560464; 0.344165;-0.620208;, - -0.583519; 0.347176;-0.655338;, - -0.408011; 0.367610;-0.653568;, - 0.408011; 0.367610;-0.653568;, - 0.583519; 0.347176;-0.655338;, - 0.560464; 0.344165;-0.620208;, - -0.560464; 0.344165;-0.620208;, - -0.408011; 0.367610;-0.653568;, - -0.408011; 0.343851;-0.621825;, - 0.408011; 0.343851;-0.621825;, - 0.408011; 0.367610;-0.653568;, - 0.560464; 0.344165;-0.620208;, - -0.255557; 0.344165;-0.620208;, - -0.408011; 0.343851;-0.621825;, - -0.408011; 0.367610;-0.653568;, - 0.408011; 0.367610;-0.653568;, - 0.408011; 0.343851;-0.621825;, - 0.255557; 0.344165;-0.620208;, - -0.255557; 0.344165;-0.620208;, - -0.408011; 0.367610;-0.653568;, - -0.232502; 0.347176;-0.655338;, - 0.232502; 0.347176;-0.655338;, - 0.408011; 0.367610;-0.653568;, - 0.255557; 0.344165;-0.620208;, - -0.583519; 0.347176;-0.655338;, - -0.408011; 0.180707;-0.644911;, - -0.408011; 0.367610;-0.653568;, - 0.408011; 0.367610;-0.653568;, - 0.408011; 0.180707;-0.644911;, - 0.583519; 0.347176;-0.655338;, - -0.583519; 0.347176;-0.655338;, - -0.574526; 0.255320;-0.660469;, - -0.408011; 0.180707;-0.644911;, - 0.408011; 0.180707;-0.644911;, - 0.574526; 0.255320;-0.660469;, - 0.583519; 0.347176;-0.655338;, - -0.574526; 0.255320;-0.660469;, - -0.539960; 0.141987;-0.655820;, - -0.408011; 0.180707;-0.644911;, - 0.408011; 0.180707;-0.644911;, - 0.539960; 0.141987;-0.655820;, - 0.574526; 0.255320;-0.660469;, - -0.476806; 0.037447;-0.652151;, - -0.408011; 0.180707;-0.644911;, - -0.539960; 0.141987;-0.655820;, - 0.539960; 0.141987;-0.655820;, - 0.408011; 0.180707;-0.644911;, - 0.476806; 0.037447;-0.652151;, - -0.407982;-0.031610;-0.649049;, - -0.408011; 0.180707;-0.644911;, - -0.476806; 0.037447;-0.652151;, - 0.476806; 0.037447;-0.652151;, - 0.408011; 0.180707;-0.644911;, - 0.407982;-0.031610;-0.649049;, - -0.232502; 0.347176;-0.655338;, - -0.408011; 0.367610;-0.653568;, - -0.408011; 0.180707;-0.644911;, - 0.408011; 0.180707;-0.644911;, - 0.408011; 0.367610;-0.653568;, - 0.232502; 0.347176;-0.655338;, - -0.232502; 0.347176;-0.655338;, - -0.408011; 0.180707;-0.644911;, - -0.241495; 0.255320;-0.660469;, - 0.241495; 0.255320;-0.660469;, - 0.408011; 0.180707;-0.644911;, - 0.232502; 0.347176;-0.655338;, - -0.241495; 0.255320;-0.660469;, - -0.408011; 0.180707;-0.644911;, - -0.276062; 0.141987;-0.655820;, - 0.276062; 0.141987;-0.655820;, - 0.408011; 0.180707;-0.644911;, - 0.241495; 0.255320;-0.660469;, - -0.339215; 0.037447;-0.652151;, - -0.276062; 0.141987;-0.655820;, - -0.408011; 0.180707;-0.644911;, - 0.408011; 0.180707;-0.644911;, - 0.276062; 0.141987;-0.655820;, - 0.339215; 0.037447;-0.652151;, - -0.407982;-0.031610;-0.649049;, - -0.339215; 0.037447;-0.652151;, - -0.408011; 0.180707;-0.644911;, - 0.408011; 0.180707;-0.644911;, - 0.339215; 0.037447;-0.652151;, - 0.407982;-0.031610;-0.649049;, - -0.412844; 0.352065;-0.602777;, - -0.359997; 0.294109;-0.527424;, - -0.373445; 0.364740;-0.530269;, - 0.373445; 0.364740;-0.530269;, - 0.359997; 0.294109;-0.527424;, - 0.412844; 0.352065;-0.602777;, - -0.411056; 0.382020;-0.598227;, - -0.412844; 0.352065;-0.602777;, - -0.373445; 0.364740;-0.530269;, - 0.373445; 0.364740;-0.530269;, - 0.412844; 0.352065;-0.602777;, - 0.411056; 0.382020;-0.598227;, - -0.409640; 0.412498;-0.562025;, - -0.411056; 0.382020;-0.598227;, - -0.373445; 0.364740;-0.530269;, - 0.373445; 0.364740;-0.530269;, - 0.411056; 0.382020;-0.598227;, - 0.409640; 0.412498;-0.562025;, - -0.409640; 0.412498;-0.562025;, - -0.373445; 0.364740;-0.530269;, - -0.363446; 0.452460;-0.492669;, - 0.363446; 0.452460;-0.492669;, - 0.373445; 0.364740;-0.530269;, - 0.409640; 0.412498;-0.562025;, - -0.403013; 0.475127;-0.530787;, - -0.409640; 0.412498;-0.562025;, - -0.363446; 0.452460;-0.492669;, - 0.363446; 0.452460;-0.492669;, - 0.409640; 0.412498;-0.562025;, - 0.403013; 0.475127;-0.530787;, - -0.400933; 0.529889;-0.522140;, - -0.344594; 0.502585;-0.455179;, - -0.399238; 0.573122;-0.496200;, - 0.399238; 0.573122;-0.496200;, - 0.344594; 0.502585;-0.455179;, - 0.400933; 0.529889;-0.522140;, - -0.400933; 0.529889;-0.522140;, - -0.363446; 0.452460;-0.492669;, - -0.344594; 0.502585;-0.455179;, - 0.344594; 0.502585;-0.455179;, - 0.363446; 0.452460;-0.492669;, - 0.400933; 0.529889;-0.522140;, - -0.400933; 0.529889;-0.522140;, - -0.403013; 0.475127;-0.530787;, - -0.363446; 0.452460;-0.492669;, - 0.363446; 0.452460;-0.492669;, - 0.403013; 0.475127;-0.530787;, - 0.400933; 0.529889;-0.522140;, - -0.401326; 0.561593;-0.444321;, - -0.399238; 0.573122;-0.496200;, - -0.344594; 0.502585;-0.455179;, - 0.344594; 0.502585;-0.455179;, - 0.399238; 0.573122;-0.496200;, - 0.401326; 0.561593;-0.444321;, - -0.401326; 0.561593;-0.444321;, - -0.344594; 0.502585;-0.455179;, - -0.365035; 0.527648;-0.372358;, - 0.365035; 0.527648;-0.372358;, - 0.344594; 0.502585;-0.455179;, - 0.401326; 0.561593;-0.444321;, - -0.396744; 0.567357;-0.375148;, - -0.401326; 0.561593;-0.444321;, - -0.365035; 0.527648;-0.372358;, - 0.365035; 0.527648;-0.372358;, - 0.401326; 0.561593;-0.444321;, - 0.396744; 0.567357;-0.375148;, - -0.387119; 0.705703;-0.164747;, - -0.396744; 0.567357;-0.375148;, - -0.365035; 0.527648;-0.372358;, - 0.365035; 0.527648;-0.372358;, - 0.396744; 0.567357;-0.375148;, - 0.387119; 0.705703;-0.164747;, - -0.387119; 0.705703;-0.164747;, - -0.365035; 0.527648;-0.372358;, - -0.369050; 0.662987;-0.146759;, - 0.369050; 0.662987;-0.146759;, - 0.365035; 0.527648;-0.372358;, - 0.387119; 0.705703;-0.164747;, - -0.382085; 0.844049; 0.051419;, - -0.369050; 0.662987;-0.146759;, - -0.350240; 0.765744; 0.078745;, - 0.350240; 0.765744; 0.078745;, - 0.369050; 0.662987;-0.146759;, - 0.382085; 0.844049; 0.051419;, - -0.382085; 0.844049; 0.051419;, - -0.387119; 0.705703;-0.164747;, - -0.369050; 0.662987;-0.146759;, - 0.369050; 0.662987;-0.146759;, - 0.387119; 0.705703;-0.164747;, - 0.382085; 0.844049; 0.051419;, - -0.382085; 0.844049; 0.051419;, - -0.350240; 0.765744; 0.078745;, - -0.321943; 0.843439; 0.156354;, - 0.321943; 0.843439; 0.156354;, - 0.350240; 0.765744; 0.078745;, - 0.382085; 0.844049; 0.051419;, - -0.373077; 0.861620; 0.234970;, - -0.321943; 0.843439; 0.156354;, - -0.338039; 0.753047; 0.186509;, - 0.338039; 0.753047; 0.186509;, - 0.321943; 0.843439; 0.156354;, - 0.373077; 0.861620; 0.234970;, - -0.338039; 0.753047; 0.186509;, - -0.321943; 0.843439; 0.156354;, - -0.350240; 0.765744; 0.078745;, - 0.350240; 0.765744; 0.078745;, - 0.321943; 0.843439; 0.156354;, - 0.338039; 0.753047; 0.186509;, - -0.412844; 0.352065;-0.602777;, - -0.299357; 0.326252;-0.591889;, - -0.359997; 0.294109;-0.527424;, - 0.359997; 0.294109;-0.527424;, - 0.299357; 0.326252;-0.591889;, - 0.412844; 0.352065;-0.602777;, - -0.412844; 0.352065;-0.602777;, - -0.408011; 0.343851;-0.621825;, - -0.299357; 0.326252;-0.591889;, - 0.299357; 0.326252;-0.591889;, - 0.408011; 0.343851;-0.621825;, - 0.412844; 0.352065;-0.602777;, - -0.398662; 0.785272; 0.377403;, - -0.338039; 0.753047; 0.186509;, - -0.347885; 0.713059; 0.380352;, - 0.347885; 0.713059; 0.380352;, - 0.338039; 0.753047; 0.186509;, - 0.398662; 0.785272; 0.377403;, - -0.398662; 0.785272; 0.377403;, - -0.373077; 0.861620; 0.234970;, - -0.338039; 0.753047; 0.186509;, - 0.338039; 0.753047; 0.186509;, - 0.373077; 0.861620; 0.234970;, - 0.398662; 0.785272; 0.377403;, - -0.347885; 0.713059; 0.380352;, - -0.338039; 0.753047; 0.186509;, - -0.366003; 0.601548; 0.364210;, - 0.366003; 0.601548; 0.364210;, - 0.338039; 0.753047; 0.186509;, - 0.347885; 0.713059; 0.380352;, - -0.292936; 0.697803; 0.617902;, - -0.347885; 0.713059; 0.380352;, - -0.366003; 0.601548; 0.364210;, - 0.366003; 0.601548; 0.364210;, - 0.347885; 0.713059; 0.380352;, - 0.292936; 0.697803; 0.617902;, - -0.361864; 0.469735; 0.618629;, - -0.292936; 0.697803; 0.617902;, - -0.366003; 0.601548; 0.364210;, - 0.366003; 0.601548; 0.364210;, - 0.292936; 0.697803; 0.617902;, - 0.361864; 0.469735; 0.618629;, - -0.361864; 0.469735; 0.618629;, - -0.274328; 0.576831; 0.760969;, - -0.292936; 0.697803; 0.617902;, - 0.292936; 0.697803; 0.617902;, - 0.274328; 0.576831; 0.760969;, - 0.361864; 0.469735; 0.618629;, - -0.141135; 0.649944; 0.882880;, - -0.235030; 0.477434; 0.905420;, - -0.189008; 0.453526; 1.141130;, - 0.189008; 0.453526; 1.141130;, - 0.235030; 0.477434; 0.905420;, - 0.141135; 0.649944; 0.882880;, - -0.274328; 0.576831; 0.760969;, - -0.235030; 0.477434; 0.905420;, - -0.141135; 0.649944; 0.882880;, - 0.141135; 0.649944; 0.882880;, - 0.235030; 0.477434; 0.905420;, - 0.274328; 0.576831; 0.760969;, - -0.361864; 0.469735; 0.618629;, - -0.235030; 0.477434; 0.905420;, - -0.274328; 0.576831; 0.760969;, - 0.274328; 0.576831; 0.760969;, - 0.235030; 0.477434; 0.905420;, - 0.361864; 0.469735; 0.618629;, - -0.250463; 1.016473; 1.488161;, - -0.286708; 1.077776; 1.355339;, - -0.163374; 1.069692; 1.483244;, - 0.163374; 1.069692; 1.483244;, - 0.286708; 1.077776; 1.355339;, - 0.250463; 1.016473; 1.488161;, - -0.041296; 1.128556; 1.421006;, - -0.163374; 1.069692; 1.483244;, - -0.193823; 1.166734; 1.310443;, - 0.193823; 1.166734; 1.310443;, - 0.163374; 1.069692; 1.483244;, - 0.041296; 1.128556; 1.421006;, - -0.044886; 1.209777; 1.279658;, - -0.041296; 1.128556; 1.421006;, - -0.193823; 1.166734; 1.310443;, - 0.193823; 1.166734; 1.310443;, - 0.041296; 1.128556; 1.421006;, - 0.044886; 1.209777; 1.279658;, - -0.286708; 1.077776; 1.355339;, - -0.193823; 1.166734; 1.310443;, - -0.163374; 1.069692; 1.483244;, - 0.163374; 1.069692; 1.483244;, - 0.193823; 1.166734; 1.310443;, - 0.286708; 1.077776; 1.355339;, - -0.044886; 1.209777; 1.279658;, - -0.193823; 1.166734; 1.310443;, - -0.065744; 1.232959; 1.099483;, - 0.065744; 1.232959; 1.099483;, - 0.193823; 1.166734; 1.310443;, - 0.044886; 1.209777; 1.279658;, - -0.065744; 1.232959; 1.099483;, - -0.193823; 1.166734; 1.310443;, - -0.179427; 1.204342; 1.071271;, - 0.179427; 1.204342; 1.071271;, - 0.193823; 1.166734; 1.310443;, - 0.065744; 1.232959; 1.099483;, - -0.065744; 1.232959; 1.099483;, - -0.179427; 1.204342; 1.071271;, - -0.138101; 1.200861; 0.949676;, - 0.138101; 1.200861; 0.949676;, - 0.179427; 1.204342; 1.071271;, - 0.065744; 1.232959; 1.099483;, - -0.065744; 1.232959; 1.099483;, - -0.138101; 1.200861; 0.949676;, - -0.042333; 1.226816; 1.017269;, - 0.042333; 1.226816; 1.017269;, - 0.138101; 1.200861; 0.949676;, - 0.065744; 1.232959; 1.099483;, - -0.193823; 1.166734; 1.310443;, - -0.286708; 1.077776; 1.355339;, - -0.289629; 1.134422; 1.134634;, - 0.289629; 1.134422; 1.134634;, - 0.286708; 1.077776; 1.355339;, - 0.193823; 1.166734; 1.310443;, - -0.193823; 1.166734; 1.310443;, - -0.289629; 1.134422; 1.134634;, - -0.179427; 1.204342; 1.071271;, - 0.179427; 1.204342; 1.071271;, - 0.289629; 1.134422; 1.134634;, - 0.193823; 1.166734; 1.310443;, - -0.179427; 1.204342; 1.071271;, - -0.245298; 1.160075; 0.946917;, - -0.138101; 1.200861; 0.949676;, - 0.138101; 1.200861; 0.949676;, - 0.245298; 1.160075; 0.946917;, - 0.179427; 1.204342; 1.071271;, - -0.179427; 1.204342; 1.071271;, - -0.289629; 1.134422; 1.134634;, - -0.245298; 1.160075; 0.946917;, - 0.245298; 1.160075; 0.946917;, - 0.289629; 1.134422; 1.134634;, - 0.179427; 1.204342; 1.071271;, - -0.138101; 1.200861; 0.949676;, - -0.081925; 1.142030; 0.895778;, - -0.042333; 1.226816; 1.017269;, - 0.042333; 1.226816; 1.017269;, - 0.081925; 1.142030; 0.895778;, - 0.138101; 1.200861; 0.949676;, - -0.081925; 1.142030; 0.895778;, - -0.036577; 1.115641; 0.885306;, - -0.042333; 1.226816; 1.017269;, - 0.042333; 1.226816; 1.017269;, - 0.036577; 1.115641; 0.885306;, - 0.081925; 1.142030; 0.895778;, - -0.036577; 1.115641; 0.885306;, - -0.081925; 1.142030; 0.895778;, - -0.032572; 1.005451; 0.813342;, - 0.032572; 1.005451; 0.813342;, - 0.081925; 1.142030; 0.895778;, - 0.036577; 1.115641; 0.885306;, - -0.141135; 0.649944; 0.882880;, - -0.144724; 0.817529; 0.765825;, - -0.274328; 0.576831; 0.760969;, - 0.274328; 0.576831; 0.760969;, - 0.144724; 0.817529; 0.765825;, - 0.141135; 0.649944; 0.882880;, - -0.342088; 0.323255; 0.903747;, - -0.235030; 0.477434; 0.905420;, - -0.361864; 0.469735; 0.618629;, - 0.361864; 0.469735; 0.618629;, - 0.235030; 0.477434; 0.905420;, - 0.342088; 0.323255; 0.903747;, - -0.235030; 0.477434; 0.905420;, - -0.342088; 0.323255; 0.903747;, - -0.189008; 0.453526; 1.141130;, - 0.189008; 0.453526; 1.141130;, - 0.342088; 0.323255; 0.903747;, - 0.235030; 0.477434; 0.905420;, - -0.189008; 0.453526; 1.141130;, - -0.342088; 0.323255; 0.903747;, - -0.301561; 0.337700; 1.192649;, - 0.301561; 0.337700; 1.192649;, - 0.342088; 0.323255; 0.903747;, - 0.189008; 0.453526; 1.141130;, - -0.189008; 0.453526; 1.141130;, - -0.301561; 0.337700; 1.192649;, - -0.171156; 0.487851; 1.351040;, - 0.171156; 0.487851; 1.351040;, - 0.301561; 0.337700; 1.192649;, - 0.189008; 0.453526; 1.141130;, - -0.267169; 0.447483; 1.371768;, - -0.171156; 0.487851; 1.351040;, - -0.301561; 0.337700; 1.192649;, - 0.301561; 0.337700; 1.192649;, - 0.171156; 0.487851; 1.351040;, - 0.267169; 0.447483; 1.371768;, - -0.267169; 0.447483; 1.371768;, - -0.405749; 0.273067; 1.189240;, - -0.434369; 0.667962; 1.313605;, - 0.434369; 0.667962; 1.313605;, - 0.405749; 0.273067; 1.189240;, - 0.267169; 0.447483; 1.371768;, - -0.434369; 0.667962; 1.313605;, - -0.333630; 0.868797; 1.437954;, - -0.249127; 0.808046; 1.508595;, - 0.249127; 0.808046; 1.508595;, - 0.333630; 0.868797; 1.437954;, - 0.434369; 0.667962; 1.313605;, - -0.333630; 0.868797; 1.437954;, - -0.250463; 1.016473; 1.488161;, - -0.249127; 0.808046; 1.508595;, - 0.249127; 0.808046; 1.508595;, - 0.250463; 1.016473; 1.488161;, - 0.333630; 0.868797; 1.437954;, - -0.250463; 1.016473; 1.488161;, - -0.333630; 0.868797; 1.437954;, - -0.286708; 1.077776; 1.355339;, - 0.286708; 1.077776; 1.355339;, - 0.333630; 0.868797; 1.437954;, - 0.250463; 1.016473; 1.488161;, - -0.382730; 1.016473; 1.197996;, - -0.286708; 1.077776; 1.355339;, - -0.333630; 0.868797; 1.437954;, - 0.333630; 0.868797; 1.437954;, - 0.286708; 1.077776; 1.355339;, - 0.382730; 1.016473; 1.197996;, - -0.434369; 0.667962; 1.313605;, - -0.382730; 1.016473; 1.197996;, - -0.333630; 0.868797; 1.437954;, - 0.333630; 0.868797; 1.437954;, - 0.382730; 1.016473; 1.197996;, - 0.434369; 0.667962; 1.313605;, - -0.434369; 0.667962; 1.313605;, - -0.494680; 0.829053; 0.993656;, - -0.382730; 1.016473; 1.197996;, - 0.382730; 1.016473; 1.197996;, - 0.494680; 0.829053; 0.993656;, - 0.434369; 0.667962; 1.313605;, - -0.434369; 0.667962; 1.313605;, - -0.563048; 0.457569; 1.071960;, - -0.494680; 0.829053; 0.993656;, - 0.494680; 0.829053; 0.993656;, - 0.563048; 0.457569; 1.071960;, - 0.434369; 0.667962; 1.313605;, - -0.563048; 0.457569; 1.071960;, - -0.606747; 0.457569; 0.951133;, - -0.494680; 0.829053; 0.993656;, - 0.494680; 0.829053; 0.993656;, - 0.606747; 0.457569; 0.951133;, - 0.563048; 0.457569; 1.071960;, - -0.606747; 0.457569; 0.951133;, - -0.579507; 0.632312; 0.834270;, - -0.494680; 0.829053; 0.993656;, - 0.494680; 0.829053; 0.993656;, - 0.579507; 0.632312; 0.834270;, - 0.606747; 0.457569; 0.951133;, - -0.606747; 0.457569; 0.951133;, - -0.621775; 0.500214; 0.805429;, - -0.579507; 0.632312; 0.834270;, - 0.579507; 0.632312; 0.834270;, - 0.621775; 0.500214; 0.805429;, - 0.606747; 0.457569; 0.951133;, - -0.621775; 0.500214; 0.805429;, - -0.573410; 0.640486; 0.658536;, - -0.579507; 0.632312; 0.834270;, - 0.579507; 0.632312; 0.834270;, - 0.573410; 0.640486; 0.658536;, - 0.621775; 0.500214; 0.805429;, - -0.596814; 0.532444; 0.650162;, - -0.573410; 0.640486; 0.658536;, - -0.621775; 0.500214; 0.805429;, - 0.621775; 0.500214; 0.805429;, - 0.573410; 0.640486; 0.658536;, - 0.596814; 0.532444; 0.650162;, - -0.382730; 1.016473; 1.197996;, - -0.289629; 1.134422; 1.134634;, - -0.286708; 1.077776; 1.355339;, - 0.286708; 1.077776; 1.355339;, - 0.289629; 1.134422; 1.134634;, - 0.382730; 1.016473; 1.197996;, - -0.138101; 1.200861; 0.949676;, - -0.338508; 1.036025; 0.822564;, - -0.167721; 1.010500; 0.773141;, - 0.167721; 1.010500; 0.773141;, - 0.338508; 1.036025; 0.822564;, - 0.138101; 1.200861; 0.949676;, - -0.167721; 1.010500; 0.773141;, - -0.338508; 1.036025; 0.822564;, - -0.344357; 0.843628; 0.658803;, - 0.344357; 0.843628; 0.658803;, - 0.338508; 1.036025; 0.822564;, - 0.167721; 1.010500; 0.773141;, - -0.344357; 0.843628; 0.658803;, - -0.338508; 1.036025; 0.822564;, - -0.435251; 0.827514; 0.671833;, - 0.435251; 0.827514; 0.671833;, - 0.338508; 1.036025; 0.822564;, - 0.344357; 0.843628; 0.658803;, - -0.344357; 0.843628; 0.658803;, - -0.435251; 0.827514; 0.671833;, - -0.420364; 0.778734; 0.569186;, - 0.420364; 0.778734; 0.569186;, - 0.435251; 0.827514; 0.671833;, - 0.344357; 0.843628; 0.658803;, - -0.245298; 1.160075; 0.946917;, - -0.338508; 1.036025; 0.822564;, - -0.138101; 1.200861; 0.949676;, - 0.138101; 1.200861; 0.949676;, - 0.338508; 1.036025; 0.822564;, - 0.245298; 1.160075; 0.946917;, - -0.494680; 0.829053; 0.993656;, - -0.579507; 0.632312; 0.834270;, - -0.435251; 0.827514; 0.671833;, - 0.435251; 0.827514; 0.671833;, - 0.579507; 0.632312; 0.834270;, - 0.494680; 0.829053; 0.993656;, - -0.579507; 0.632312; 0.834270;, - -0.573410; 0.640486; 0.658536;, - -0.435251; 0.827514; 0.671833;, - 0.435251; 0.827514; 0.671833;, - 0.573410; 0.640486; 0.658536;, - 0.579507; 0.632312; 0.834270;, - -0.485461; 0.200055; 1.071610;, - -0.557950; 0.302247; 1.071785;, - -0.405749; 0.273067; 1.189240;, - 0.405749; 0.273067; 1.189240;, - 0.557950; 0.302247; 1.071785;, - 0.485461; 0.200055; 1.071610;, - -0.563048; 0.457569; 1.071960;, - -0.557950; 0.302247; 1.071785;, - -0.606747; 0.457569; 0.951133;, - 0.606747; 0.457569; 0.951133;, - 0.557950; 0.302247; 1.071785;, - 0.563048; 0.457569; 1.071960;, - -0.558412; 0.245176; 0.811511;, - -0.605974; 0.324807; 0.881322;, - -0.485461; 0.200055; 1.071610;, - 0.485461; 0.200055; 1.071610;, - 0.605974; 0.324807; 0.881322;, - 0.558412; 0.245176; 0.811511;, - -0.606747; 0.457569; 0.951133;, - -0.605974; 0.324807; 0.881322;, - -0.621775; 0.500214; 0.805429;, - 0.621775; 0.500214; 0.805429;, - 0.605974; 0.324807; 0.881322;, - 0.606747; 0.457569; 0.951133;, - -0.605974; 0.324807; 0.881322;, - -0.558412; 0.245176; 0.811511;, - -0.621775; 0.500214; 0.805429;, - 0.621775; 0.500214; 0.805429;, - 0.558412; 0.245176; 0.811511;, - 0.605974; 0.324807; 0.881322;, - -0.557950; 0.302247; 1.071785;, - -0.485461; 0.200055; 1.071610;, - -0.605974; 0.324807; 0.881322;, - 0.605974; 0.324807; 0.881322;, - 0.485461; 0.200055; 1.071610;, - 0.557950; 0.302247; 1.071785;, - -0.557950; 0.302247; 1.071785;, - -0.605974; 0.324807; 0.881322;, - -0.606747; 0.457569; 0.951133;, - 0.606747; 0.457569; 0.951133;, - 0.605974; 0.324807; 0.881322;, - 0.557950; 0.302247; 1.071785;, - -0.434369; 0.667962; 1.313605;, - -0.405749; 0.273067; 1.189240;, - -0.557950; 0.302247; 1.071785;, - 0.557950; 0.302247; 1.071785;, - 0.405749; 0.273067; 1.189240;, - 0.434369; 0.667962; 1.313605;, - -0.434369; 0.667962; 1.313605;, - -0.557950; 0.302247; 1.071785;, - -0.563048; 0.457569; 1.071960;, - 0.563048; 0.457569; 1.071960;, - 0.557950; 0.302247; 1.071785;, - 0.434369; 0.667962; 1.313605;, - -0.402858; 1.026249; 1.010280;, - -0.382730; 1.016473; 1.197996;, - -0.494680; 0.829053; 0.993656;, - 0.494680; 0.829053; 0.993656;, - 0.382730; 1.016473; 1.197996;, - 0.402858; 1.026249; 1.010280;, - -0.382730; 1.016473; 1.197996;, - -0.402858; 1.026249; 1.010280;, - -0.289629; 1.134422; 1.134634;, - 0.289629; 1.134422; 1.134634;, - 0.402858; 1.026249; 1.010280;, - 0.382730; 1.016473; 1.197996;, - -0.245298; 1.160075; 0.946917;, - -0.289629; 1.134422; 1.134634;, - -0.402858; 1.026249; 1.010280;, - 0.402858; 1.026249; 1.010280;, - 0.289629; 1.134422; 1.134634;, - 0.245298; 1.160075; 0.946917;, - -0.245298; 1.160075; 0.946917;, - -0.402858; 1.026249; 1.010280;, - -0.338508; 1.036025; 0.822564;, - 0.338508; 1.036025; 0.822564;, - 0.402858; 1.026249; 1.010280;, - 0.245298; 1.160075; 0.946917;, - -0.435251; 0.827514; 0.671833;, - -0.338508; 1.036025; 0.822564;, - -0.402858; 1.026249; 1.010280;, - 0.402858; 1.026249; 1.010280;, - 0.338508; 1.036025; 0.822564;, - 0.435251; 0.827514; 0.671833;, - -0.435251; 0.827514; 0.671833;, - -0.402858; 1.026249; 1.010280;, - -0.494680; 0.829053; 0.993656;, - 0.494680; 0.829053; 0.993656;, - 0.402858; 1.026249; 1.010280;, - 0.435251; 0.827514; 0.671833;, - -0.267169; 0.447483; 1.371768;, - -0.301561; 0.337700; 1.192649;, - -0.405749; 0.273067; 1.189240;, - 0.405749; 0.273067; 1.189240;, - 0.301561; 0.337700; 1.192649;, - 0.267169; 0.447483; 1.371768;, - -0.405749; 0.273067; 1.189240;, - -0.301561; 0.337700; 1.192649;, - -0.485461; 0.200055; 1.071610;, - 0.485461; 0.200055; 1.071610;, - 0.301561; 0.337700; 1.192649;, - 0.405749; 0.273067; 1.189240;, - -0.485461; 0.200055; 1.071610;, - -0.301561; 0.337700; 1.192649;, - -0.342088; 0.323255; 0.903747;, - 0.342088; 0.323255; 0.903747;, - 0.301561; 0.337700; 1.192649;, - 0.485461; 0.200055; 1.071610;, - -0.485461; 0.200055; 1.071610;, - -0.342088; 0.323255; 0.903747;, - -0.558412; 0.245176; 0.811511;, - 0.558412; 0.245176; 0.811511;, - 0.342088; 0.323255; 0.903747;, - 0.485461; 0.200055; 1.071610;, - -0.558412; 0.245176; 0.811511;, - -0.342088; 0.323255; 0.903747;, - -0.361864; 0.469735; 0.618629;, - 0.361864; 0.469735; 0.618629;, - 0.342088; 0.323255; 0.903747;, - 0.558412; 0.245176; 0.811511;, - -0.558412; 0.245176; 0.811511;, - -0.361864; 0.469735; 0.618629;, - -0.542159; 0.401541; 0.580517;, - 0.542159; 0.401541; 0.580517;, - 0.361864; 0.469735; 0.618629;, - 0.558412; 0.245176; 0.811511;, - -0.420364; 0.778734; 0.569186;, - -0.435251; 0.827514; 0.671833;, - -0.573410; 0.640486; 0.658536;, - 0.573410; 0.640486; 0.658536;, - 0.435251; 0.827514; 0.671833;, - 0.420364; 0.778734; 0.569186;, - -0.292936; 0.697803; 0.617902;, - -0.274328; 0.576831; 0.760969;, - -0.144724; 0.817529; 0.765825;, - 0.144724; 0.817529; 0.765825;, - 0.274328; 0.576831; 0.760969;, - 0.292936; 0.697803; 0.617902;, - -0.344357; 0.843628; 0.658803;, - -0.420364; 0.778734; 0.569186;, - -0.292936; 0.697803; 0.617902;, - 0.292936; 0.697803; 0.617902;, - 0.420364; 0.778734; 0.569186;, - 0.344357; 0.843628; 0.658803;, - -0.344357; 0.843628; 0.658803;, - -0.292936; 0.697803; 0.617902;, - -0.144724; 0.817529; 0.765825;, - 0.144724; 0.817529; 0.765825;, - 0.292936; 0.697803; 0.617902;, - 0.344357; 0.843628; 0.658803;, - -0.167721; 1.010500; 0.773141;, - -0.344357; 0.843628; 0.658803;, - -0.144724; 0.817529; 0.765825;, - 0.144724; 0.817529; 0.765825;, - 0.344357; 0.843628; 0.658803;, - 0.167721; 1.010500; 0.773141;, - -0.032572; 1.005451; 0.813342;, - -0.167721; 1.010500; 0.773141;, - -0.144724; 0.817529; 0.765825;, - 0.144724; 0.817529; 0.765825;, - 0.167721; 1.010500; 0.773141;, - 0.032572; 1.005451; 0.813342;, - -0.032572; 1.005451; 0.813342;, - -0.081925; 1.142030; 0.895778;, - -0.167721; 1.010500; 0.773141;, - 0.167721; 1.010500; 0.773141;, - 0.081925; 1.142030; 0.895778;, - 0.032572; 1.005451; 0.813342;, - -0.081925; 1.142030; 0.895778;, - -0.138101; 1.200861; 0.949676;, - -0.167721; 1.010500; 0.773141;, - 0.167721; 1.010500; 0.773141;, - 0.138101; 1.200861; 0.949676;, - 0.081925; 1.142030; 0.895778;, - -0.558412; 0.245176; 0.811511;, - -0.542159; 0.401541; 0.580517;, - -0.596814; 0.532444; 0.650162;, - 0.596814; 0.532444; 0.650162;, - 0.542159; 0.401541; 0.580517;, - 0.558412; 0.245176; 0.811511;, - -0.558412; 0.245176; 0.811511;, - -0.596814; 0.532444; 0.650162;, - -0.621775; 0.500214; 0.805429;, - 0.621775; 0.500214; 0.805429;, - 0.596814; 0.532444; 0.650162;, - 0.558412; 0.245176; 0.811511;, - -0.596814; 0.532444; 0.650162;, - -0.542159; 0.401541; 0.580517;, - -0.461164; 0.582428; 0.349505;, - 0.461164; 0.582428; 0.349505;, - 0.542159; 0.401541; 0.580517;, - 0.596814; 0.532444; 0.650162;, - -0.596814; 0.532444; 0.650162;, - -0.461164; 0.582428; 0.349505;, - -0.488650; 0.658141; 0.377255;, - 0.488650; 0.658141; 0.377255;, - 0.461164; 0.582428; 0.349505;, - 0.596814; 0.532444; 0.650162;, - -0.596814; 0.532444; 0.650162;, - -0.488650; 0.658141; 0.377255;, - -0.573410; 0.640486; 0.658536;, - 0.573410; 0.640486; 0.658536;, - 0.488650; 0.658141; 0.377255;, - 0.596814; 0.532444; 0.650162;, - -0.573410; 0.640486; 0.658536;, - -0.488650; 0.658141; 0.377255;, - -0.484390; 0.697150; 0.401372;, - 0.484390; 0.697150; 0.401372;, - 0.488650; 0.658141; 0.377255;, - 0.573410; 0.640486; 0.658536;, - -0.573410; 0.640486; 0.658536;, - -0.484390; 0.697150; 0.401372;, - -0.398662; 0.785272; 0.377403;, - 0.398662; 0.785272; 0.377403;, - 0.484390; 0.697150; 0.401372;, - 0.573410; 0.640486; 0.658536;, - -0.420364; 0.778734; 0.569186;, - -0.573410; 0.640486; 0.658536;, - -0.398662; 0.785272; 0.377403;, - 0.398662; 0.785272; 0.377403;, - 0.573410; 0.640486; 0.658536;, - 0.420364; 0.778734; 0.569186;, - -0.488650; 0.658141; 0.377255;, - -0.432269; 0.773429; 0.187029;, - -0.484390; 0.697150; 0.401372;, - 0.484390; 0.697150; 0.401372;, - 0.432269; 0.773429; 0.187029;, - 0.488650; 0.658141; 0.377255;, - -0.461164; 0.582428; 0.349505;, - -0.405296; 0.680500; 0.190411;, - -0.488650; 0.658141; 0.377255;, - 0.488650; 0.658141; 0.377255;, - 0.405296; 0.680500; 0.190411;, - 0.461164; 0.582428; 0.349505;, - -0.405296; 0.680500; 0.190411;, - -0.432269; 0.773429; 0.187029;, - -0.488650; 0.658141; 0.377255;, - 0.488650; 0.658141; 0.377255;, - 0.432269; 0.773429; 0.187029;, - 0.405296; 0.680500; 0.190411;, - -0.398662; 0.785272; 0.377403;, - -0.484390; 0.697150; 0.401372;, - -0.432269; 0.773429; 0.187029;, - 0.432269; 0.773429; 0.187029;, - 0.484390; 0.697150; 0.401372;, - 0.398662; 0.785272; 0.377403;, - -0.398662; 0.785272; 0.377403;, - -0.432269; 0.773429; 0.187029;, - -0.373077; 0.861620; 0.234970;, - 0.373077; 0.861620; 0.234970;, - 0.432269; 0.773429; 0.187029;, - 0.398662; 0.785272; 0.377403;, - -0.542159; 0.401541; 0.580517;, - -0.361864; 0.469735; 0.618629;, - -0.366003; 0.601548; 0.364210;, - 0.366003; 0.601548; 0.364210;, - 0.361864; 0.469735; 0.618629;, - 0.542159; 0.401541; 0.580517;, - -0.542159; 0.401541; 0.580517;, - -0.366003; 0.601548; 0.364210;, - -0.461164; 0.582428; 0.349505;, - 0.461164; 0.582428; 0.349505;, - 0.366003; 0.601548; 0.364210;, - 0.542159; 0.401541; 0.580517;, - -0.420364; 0.778734; 0.569186;, - -0.347885; 0.713059; 0.380352;, - -0.292936; 0.697803; 0.617902;, - 0.292936; 0.697803; 0.617902;, - 0.347885; 0.713059; 0.380352;, - 0.420364; 0.778734; 0.569186;, - -0.420364; 0.778734; 0.569186;, - -0.398662; 0.785272; 0.377403;, - -0.347885; 0.713059; 0.380352;, - 0.347885; 0.713059; 0.380352;, - 0.398662; 0.785272; 0.377403;, - 0.420364; 0.778734; 0.569186;, - -0.461164; 0.582428; 0.349505;, - -0.366003; 0.601548; 0.364210;, - -0.405296; 0.680500; 0.190411;, - 0.405296; 0.680500; 0.190411;, - 0.366003; 0.601548; 0.364210;, - 0.461164; 0.582428; 0.349505;, - -0.405296; 0.680500; 0.190411;, - -0.366003; 0.601548; 0.364210;, - -0.338039; 0.753047; 0.186509;, - 0.338039; 0.753047; 0.186509;, - 0.366003; 0.601548; 0.364210;, - 0.405296; 0.680500; 0.190411;, - -0.408011; 0.343851;-0.621825;, - -0.412844; 0.352065;-0.602777;, - -0.518899; 0.326494;-0.591868;, - 0.518899; 0.326494;-0.591868;, - 0.412844; 0.352065;-0.602777;, - 0.408011; 0.343851;-0.621825;, - -0.412844; 0.352065;-0.602777;, - -0.458258; 0.294218;-0.527414;, - -0.518899; 0.326494;-0.591868;, - 0.518899; 0.326494;-0.591868;, - 0.458258; 0.294218;-0.527414;, - 0.412844; 0.352065;-0.602777;, - -0.373077; 0.861620; 0.234970;, - -0.432269; 0.773429; 0.187029;, - -0.436183; 0.843439; 0.157034;, - 0.436183; 0.843439; 0.157034;, - 0.432269; 0.773429; 0.187029;, - 0.373077; 0.861620; 0.234970;, - -0.373077; 0.861620; 0.234970;, - -0.436183; 0.843439; 0.157034;, - -0.382085; 0.914670; 0.186550;, - 0.382085; 0.914670; 0.186550;, - 0.436183; 0.843439; 0.157034;, - 0.373077; 0.861620; 0.234970;, - -0.382085; 0.919536; 0.145804;, - -0.382085; 0.914670; 0.186550;, - -0.436183; 0.843439; 0.157034;, - 0.436183; 0.843439; 0.157034;, - 0.382085; 0.914670; 0.186550;, - 0.382085; 0.919536; 0.145804;, - -0.382085; 0.919536; 0.145804;, - -0.436183; 0.843439; 0.157034;, - -0.382085; 0.844049; 0.051419;, - 0.382085; 0.844049; 0.051419;, - 0.436183; 0.843439; 0.157034;, - 0.382085; 0.919536; 0.145804;, - -0.382085; 0.844049; 0.051419;, - -0.436183; 0.843439; 0.157034;, - -0.429377; 0.765744; 0.079253;, - 0.429377; 0.765744; 0.079253;, - 0.436183; 0.843439; 0.157034;, - 0.382085; 0.844049; 0.051419;, - -0.405296; 0.680500; 0.190411;, - -0.405296; 0.689146; 0.106827;, - -0.432269; 0.773429; 0.187029;, - 0.432269; 0.773429; 0.187029;, - 0.405296; 0.689146; 0.106827;, - 0.405296; 0.680500; 0.190411;, - -0.432269; 0.773429; 0.187029;, - -0.405296; 0.689146; 0.106827;, - -0.429377; 0.765744; 0.079253;, - 0.429377; 0.765744; 0.079253;, - 0.405296; 0.689146; 0.106827;, - 0.432269; 0.773429; 0.187029;, - -0.432269; 0.773429; 0.187029;, - -0.429377; 0.765744; 0.079253;, - -0.436183; 0.843439; 0.157034;, - 0.436183; 0.843439; 0.157034;, - 0.429377; 0.765744; 0.079253;, - 0.432269; 0.773429; 0.187029;, - -0.405296; 0.680500; 0.190411;, - -0.338039; 0.753047; 0.186509;, - -0.405296; 0.689146; 0.106827;, - 0.405296; 0.689146; 0.106827;, - 0.338039; 0.753047; 0.186509;, - 0.405296; 0.680500; 0.190411;, - -0.338039; 0.753047; 0.186509;, - -0.350240; 0.765744; 0.078745;, - -0.405296; 0.689146; 0.106827;, - 0.405296; 0.689146; 0.106827;, - 0.350240; 0.765744; 0.078745;, - 0.338039; 0.753047; 0.186509;, - -0.373077; 0.861620; 0.234970;, - -0.382085; 0.914670; 0.186550;, - -0.321943; 0.843439; 0.156354;, - 0.321943; 0.843439; 0.156354;, - 0.382085; 0.914670; 0.186550;, - 0.373077; 0.861620; 0.234970;, - -0.382085; 0.919536; 0.145804;, - -0.321943; 0.843439; 0.156354;, - -0.382085; 0.914670; 0.186550;, - 0.382085; 0.914670; 0.186550;, - 0.321943; 0.843439; 0.156354;, - 0.382085; 0.919536; 0.145804;, - -0.382085; 0.919536; 0.145804;, - -0.382085; 0.844049; 0.051419;, - -0.321943; 0.843439; 0.156354;, - 0.321943; 0.843439; 0.156354;, - 0.382085; 0.844049; 0.051419;, - 0.382085; 0.919536; 0.145804;, - -0.405296; 0.689146; 0.106827;, - -0.408303; 0.625738;-0.138160;, - -0.429377; 0.765744; 0.079253;, - 0.429377; 0.765744; 0.079253;, - 0.408303; 0.625738;-0.138160;, - 0.405296; 0.689146; 0.106827;, - -0.408303; 0.625738;-0.138160;, - -0.425690; 0.662987;-0.146373;, - -0.429377; 0.765744; 0.079253;, - 0.429377; 0.765744; 0.079253;, - 0.425690; 0.662987;-0.146373;, - 0.408303; 0.625738;-0.138160;, - -0.425690; 0.662987;-0.146373;, - -0.387119; 0.705703;-0.164747;, - -0.382085; 0.844049; 0.051419;, - 0.382085; 0.844049; 0.051419;, - 0.387119; 0.705703;-0.164747;, - 0.425690; 0.662987;-0.146373;, - -0.425690; 0.662987;-0.146373;, - -0.382085; 0.844049; 0.051419;, - -0.429377; 0.765744; 0.079253;, - 0.429377; 0.765744; 0.079253;, - 0.382085; 0.844049; 0.051419;, - 0.425690; 0.662987;-0.146373;, - -0.408303; 0.625738;-0.138160;, - -0.350240; 0.765744; 0.078745;, - -0.369050; 0.662987;-0.146759;, - 0.369050; 0.662987;-0.146759;, - 0.350240; 0.765744; 0.078745;, - 0.408303; 0.625738;-0.138160;, - -0.405296; 0.689146; 0.106827;, - -0.350240; 0.765744; 0.078745;, - -0.408303; 0.625738;-0.138160;, - 0.408303; 0.625738;-0.138160;, - 0.350240; 0.765744; 0.078745;, - 0.405296; 0.689146; 0.106827;, - -0.408303; 0.625738;-0.138160;, - -0.444246; 0.527648;-0.371903;, - -0.425690; 0.662987;-0.146373;, - 0.425690; 0.662987;-0.146373;, - 0.444246; 0.527648;-0.371903;, - 0.408303; 0.625738;-0.138160;, - -0.408303; 0.625738;-0.138160;, - -0.404647; 0.498921;-0.371619;, - -0.444246; 0.527648;-0.371903;, - 0.444246; 0.527648;-0.371903;, - 0.404647; 0.498921;-0.371619;, - 0.408303; 0.625738;-0.138160;, - -0.408303; 0.625738;-0.138160;, - -0.365035; 0.527648;-0.372358;, - -0.404647; 0.498921;-0.371619;, - 0.404647; 0.498921;-0.371619;, - 0.365035; 0.527648;-0.372358;, - 0.408303; 0.625738;-0.138160;, - -0.408303; 0.625738;-0.138160;, - -0.369050; 0.662987;-0.146759;, - -0.365035; 0.527648;-0.372358;, - 0.365035; 0.527648;-0.372358;, - 0.369050; 0.662987;-0.146759;, - 0.408303; 0.625738;-0.138160;, - -0.387119; 0.705703;-0.164747;, - -0.425690; 0.662987;-0.146373;, - -0.444246; 0.527648;-0.371903;, - 0.444246; 0.527648;-0.371903;, - 0.425690; 0.662987;-0.146373;, - 0.387119; 0.705703;-0.164747;, - -0.387119; 0.705703;-0.164747;, - -0.444246; 0.527648;-0.371903;, - -0.396744; 0.567357;-0.375148;, - 0.396744; 0.567357;-0.375148;, - 0.444246; 0.527648;-0.371903;, - 0.387119; 0.705703;-0.164747;, - -0.396744; 0.567357;-0.375148;, - -0.444246; 0.527648;-0.371903;, - -0.401326; 0.561593;-0.444321;, - 0.401326; 0.561593;-0.444321;, - 0.444246; 0.527648;-0.371903;, - 0.396744; 0.567357;-0.375148;, - -0.401326; 0.561593;-0.444321;, - -0.444246; 0.527648;-0.371903;, - -0.468477; 0.502585;-0.454496;, - 0.468477; 0.502585;-0.454496;, - 0.444246; 0.527648;-0.371903;, - 0.401326; 0.561593;-0.444321;, - -0.401326; 0.561593;-0.444321;, - -0.468477; 0.502585;-0.454496;, - -0.399238; 0.573122;-0.496200;, - 0.399238; 0.573122;-0.496200;, - 0.468477; 0.502585;-0.454496;, - 0.401326; 0.561593;-0.444321;, - -0.400933; 0.529889;-0.522140;, - -0.449625; 0.452460;-0.492194;, - -0.403013; 0.475127;-0.530787;, - 0.403013; 0.475127;-0.530787;, - 0.449625; 0.452460;-0.492194;, - 0.400933; 0.529889;-0.522140;, - -0.404647; 0.498921;-0.371619;, - -0.406071; 0.458570;-0.409088;, - -0.444246; 0.527648;-0.371903;, - 0.444246; 0.527648;-0.371903;, - 0.406071; 0.458570;-0.409088;, - 0.404647; 0.498921;-0.371619;, - -0.406071; 0.458570;-0.409088;, - -0.468477; 0.502585;-0.454496;, - -0.444246; 0.527648;-0.371903;, - 0.444246; 0.527648;-0.371903;, - 0.468477; 0.502585;-0.454496;, - 0.406071; 0.458570;-0.409088;, - -0.404647; 0.498921;-0.371619;, - -0.365035; 0.527648;-0.372358;, - -0.406071; 0.458570;-0.409088;, - 0.406071; 0.458570;-0.409088;, - 0.365035; 0.527648;-0.372358;, - 0.404647; 0.498921;-0.371619;, - -0.406071; 0.458570;-0.409088;, - -0.365035; 0.527648;-0.372358;, - -0.344594; 0.502585;-0.455179;, - 0.344594; 0.502585;-0.455179;, - 0.365035; 0.527648;-0.372358;, - 0.406071; 0.458570;-0.409088;, - -0.406071; 0.458570;-0.409088;, - -0.449625; 0.452460;-0.492194;, - -0.468477; 0.502585;-0.454496;, - 0.468477; 0.502585;-0.454496;, - 0.449625; 0.452460;-0.492194;, - 0.406071; 0.458570;-0.409088;, - -0.406071; 0.458570;-0.409088;, - -0.408071; 0.426865;-0.458085;, - -0.449625; 0.452460;-0.492194;, - 0.449625; 0.452460;-0.492194;, - 0.408071; 0.426865;-0.458085;, - 0.406071; 0.458570;-0.409088;, - -0.406071; 0.458570;-0.409088;, - -0.363446; 0.452460;-0.492669;, - -0.408071; 0.426865;-0.458085;, - 0.408071; 0.426865;-0.458085;, - 0.363446; 0.452460;-0.492669;, - 0.406071; 0.458570;-0.409088;, - -0.406071; 0.458570;-0.409088;, - -0.344594; 0.502585;-0.455179;, - -0.363446; 0.452460;-0.492669;, - 0.363446; 0.452460;-0.492669;, - 0.344594; 0.502585;-0.455179;, - 0.406071; 0.458570;-0.409088;, - -0.468477; 0.502585;-0.454496;, - -0.449625; 0.452460;-0.492194;, - -0.400933; 0.529889;-0.522140;, - 0.400933; 0.529889;-0.522140;, - 0.449625; 0.452460;-0.492194;, - 0.468477; 0.502585;-0.454496;, - -0.468477; 0.502585;-0.454496;, - -0.400933; 0.529889;-0.522140;, - -0.399238; 0.573122;-0.496200;, - 0.399238; 0.573122;-0.496200;, - 0.400933; 0.529889;-0.522140;, - 0.468477; 0.502585;-0.454496;, - -0.403013; 0.475127;-0.530787;, - -0.449625; 0.452460;-0.492194;, - -0.409640; 0.412498;-0.562025;, - 0.409640; 0.412498;-0.562025;, - 0.449625; 0.452460;-0.492194;, - 0.403013; 0.475127;-0.530787;, - -0.409640; 0.412498;-0.562025;, - -0.449625; 0.452460;-0.492194;, - -0.461468; 0.364740;-0.529783;, - 0.461468; 0.364740;-0.529783;, - 0.449625; 0.452460;-0.492194;, - 0.409640; 0.412498;-0.562025;, - -0.408071; 0.426865;-0.458085;, - -0.363446; 0.452460;-0.492669;, - -0.407724; 0.371727;-0.493173;, - 0.407724; 0.371727;-0.493173;, - 0.363446; 0.452460;-0.492669;, - 0.408071; 0.426865;-0.458085;, - -0.363446; 0.452460;-0.492669;, - -0.373445; 0.364740;-0.530269;, - -0.407724; 0.371727;-0.493173;, - 0.407724; 0.371727;-0.493173;, - 0.373445; 0.364740;-0.530269;, - 0.363446; 0.452460;-0.492669;, - -0.408071; 0.426865;-0.458085;, - -0.407724; 0.371727;-0.493173;, - -0.449625; 0.452460;-0.492194;, - 0.449625; 0.452460;-0.492194;, - 0.407724; 0.371727;-0.493173;, - 0.408071; 0.426865;-0.458085;, - -0.407724; 0.371727;-0.493173;, - -0.461468; 0.364740;-0.529783;, - -0.449625; 0.452460;-0.492194;, - 0.449625; 0.452460;-0.492194;, - 0.461468; 0.364740;-0.529783;, - 0.407724; 0.371727;-0.493173;, - -0.407724; 0.371727;-0.493173;, - -0.373445; 0.364740;-0.530269;, - -0.408393; 0.267988;-0.486987;, - 0.408393; 0.267988;-0.486987;, - 0.373445; 0.364740;-0.530269;, - 0.407724; 0.371727;-0.493173;, - -0.408393; 0.267988;-0.486987;, - -0.373445; 0.364740;-0.530269;, - -0.359997; 0.294109;-0.527424;, - 0.359997; 0.294109;-0.527424;, - 0.373445; 0.364740;-0.530269;, - 0.408393; 0.267988;-0.486987;, - -0.407724; 0.371727;-0.493173;, - -0.408393; 0.267988;-0.486987;, - -0.461468; 0.364740;-0.529783;, - 0.461468; 0.364740;-0.529783;, - 0.408393; 0.267988;-0.486987;, - 0.407724; 0.371727;-0.493173;, - -0.408393; 0.267988;-0.486987;, - -0.458258; 0.294218;-0.527414;, - -0.461468; 0.364740;-0.529783;, - 0.461468; 0.364740;-0.529783;, - 0.458258; 0.294218;-0.527414;, - 0.408393; 0.267988;-0.486987;, - -0.412844; 0.352065;-0.602777;, - -0.461468; 0.364740;-0.529783;, - -0.458258; 0.294218;-0.527414;, - 0.458258; 0.294218;-0.527414;, - 0.461468; 0.364740;-0.529783;, - 0.412844; 0.352065;-0.602777;, - -0.411056; 0.382020;-0.598227;, - -0.461468; 0.364740;-0.529783;, - -0.412844; 0.352065;-0.602777;, - 0.412844; 0.352065;-0.602777;, - 0.461468; 0.364740;-0.529783;, - 0.411056; 0.382020;-0.598227;, - -0.409640; 0.412498;-0.562025;, - -0.461468; 0.364740;-0.529783;, - -0.411056; 0.382020;-0.598227;, - 0.411056; 0.382020;-0.598227;, - 0.461468; 0.364740;-0.529783;, - 0.409640; 0.412498;-0.562025;, - -0.097762; 1.967484; 1.091704;, - 0.097762; 1.967484; 1.091704;, - 0.000000; 2.007389; 1.121828;, - -0.097762; 1.967484; 1.091704;, - -0.144163; 1.863392; 1.065100;, - 0.097762; 1.967484; 1.091704;, - 0.097762; 1.967484; 1.091704;, - -0.144163; 1.863392; 1.065100;, - 0.144163; 1.863392; 1.065100;, - -0.097762; 1.759300; 1.086229;, - 0.144163; 1.863392; 1.065100;, - -0.144163; 1.863392; 1.065100;, - 0.097762; 1.759300; 1.086229;, - 0.144163; 1.863392; 1.065100;, - -0.097762; 1.759300; 1.086229;, - 0.097762; 1.759300; 1.086229;, - -0.097762; 1.759300; 1.086229;, - 0.000000; 1.707636; 1.145491;, - 0.026810;-0.665146; 1.494077;, - -0.038637;-0.640804; 1.908553;, - -0.026810;-0.665146; 1.494077;, - 0.038637;-0.640804; 1.908553;, - -0.038637;-0.640804; 1.908553;, - 0.026810;-0.665146; 1.494077;, - -0.033509;-0.581053; 2.466655;, - -0.038637;-0.640804; 1.908553;, - 0.038637;-0.640804; 1.908553;, - -0.033509;-0.581053; 2.466655;, - 0.038637;-0.640804; 1.908553;, - 0.033509;-0.581053; 2.466655;, - -0.033509;-0.581053; 2.466655;, - 0.033509;-0.581053; 2.466655;, - -0.033509;-0.796317; 2.908326;, - -0.033509;-0.796317; 2.908326;, - 0.033509;-0.581053; 2.466655;, - 0.033509;-0.796317; 2.908326;, - -0.033509;-0.796317; 2.908326;, - 0.033509;-0.796317; 2.908326;, - -0.041202;-1.321878; 3.313078;, - -0.041202;-1.321878; 3.313078;, - 0.033509;-0.796317; 2.908326;, - 0.041202;-1.321878; 3.313078;, - -0.041202;-1.321878; 3.313078;, - 0.041202;-1.321878; 3.313078;, - -0.043607;-1.645926; 3.462256;, - -0.043607;-1.645926; 3.462256;, - 0.041202;-1.321878; 3.313078;, - 0.043607;-1.645926; 3.462256;, - -0.043607;-1.645926; 3.462256;, - 0.043607;-1.645926; 3.462256;, - -0.043766;-1.712323; 3.458616;, - -0.043766;-1.712323; 3.458616;, - 0.043607;-1.645926; 3.462256;, - 0.043766;-1.712323; 3.458616;, - -0.043766;-1.712323; 3.458616;, - 0.043766;-1.712323; 3.458616;, - -0.033592;-1.635944; 3.183450;, - -0.033592;-1.635944; 3.183450;, - 0.043766;-1.712323; 3.458616;, - 0.033592;-1.635944; 3.183450;, - -0.033592;-1.635944; 3.183450;, - 0.033592;-1.635944; 3.183450;, - -0.027989;-1.577745; 2.900939;, - -0.027989;-1.577745; 2.900939;, - 0.033592;-1.635944; 3.183450;, - 0.027989;-1.577745; 2.900939;, - 0.033592;-1.635944; 3.183450;, - 0.026810;-1.457162; 2.840211;, - 0.027989;-1.577745; 2.900939;, - -0.027989;-1.577745; 2.900939;, - -0.026810;-1.457162; 2.840211;, - -0.033592;-1.635944; 3.183450;, - 0.033592;-1.358158; 3.051235;, - 0.026810;-1.457162; 2.840211;, - 0.033592;-1.635944; 3.183450;, - -0.033592;-1.635944; 3.183450;, - -0.026810;-1.457162; 2.840211;, - -0.033592;-1.358158; 3.051235;, - 0.033592;-1.358158; 3.051235;, - 0.030700;-0.962950; 2.735546;, - 0.026810;-1.457162; 2.840211;, - -0.026810;-1.457162; 2.840211;, - -0.030700;-0.962950; 2.735546;, - -0.033592;-1.358158; 3.051235;, - 0.030700;-0.962950; 2.735546;, - 0.026810;-1.161727; 2.598072;, - 0.026810;-1.457162; 2.840211;, - -0.026810;-1.457162; 2.840211;, - -0.026810;-1.161727; 2.598072;, - -0.030700;-0.962950; 2.735546;, - 0.030700;-0.962950; 2.735546;, - 0.031906;-0.766350; 2.397481;, - 0.026810;-1.161727; 2.598072;, - -0.026810;-1.161727; 2.598072;, - -0.031906;-0.766350; 2.397481;, - -0.030700;-0.962950; 2.735546;, - 0.031906;-0.766350; 2.397481;, - 0.026810;-0.990985; 2.231068;, - 0.026810;-1.161727; 2.598072;, - -0.026810;-1.161727; 2.598072;, - -0.026810;-0.990985; 2.231068;, - -0.031906;-0.766350; 2.397481;, - 0.031906;-0.766350; 2.397481;, - 0.031664;-0.771881; 2.037392;, - 0.026810;-0.990985; 2.231068;, - -0.026810;-0.990985; 2.231068;, - -0.031664;-0.771881; 2.037392;, - -0.031906;-0.766350; 2.397481;, - 0.031664;-0.771881; 2.037392;, - 0.026810;-0.823478; 1.764419;, - 0.026810;-0.990985; 2.231068;, - -0.026810;-0.990985; 2.231068;, - -0.026810;-0.823478; 1.764419;, - -0.031664;-0.771881; 2.037392;, - 0.031664;-0.771881; 2.037392;, - 0.038637;-0.640804; 1.908553;, - 0.026810;-0.823478; 1.764419;, - -0.026810;-0.823478; 1.764419;, - -0.038637;-0.640804; 1.908553;, - -0.031664;-0.771881; 2.037392;, - 0.038637;-0.640804; 1.908553;, - 0.026810;-0.665146; 1.494077;, - 0.026810;-0.823478; 1.764419;, - -0.026810;-0.823478; 1.764419;, - -0.026810;-0.665146; 1.494077;, - -0.038637;-0.640804; 1.908553;, - 0.043607;-1.645926; 3.462256;, - 0.033592;-1.358158; 3.051235;, - 0.033592;-1.635944; 3.183450;, - -0.033592;-1.635944; 3.183450;, - -0.033592;-1.358158; 3.051235;, - -0.043607;-1.645926; 3.462256;, - 0.043766;-1.712323; 3.458616;, - 0.043607;-1.645926; 3.462256;, - 0.033592;-1.635944; 3.183450;, - -0.033592;-1.635944; 3.183450;, - -0.043607;-1.645926; 3.462256;, - -0.043766;-1.712323; 3.458616;, - 0.041202;-1.321878; 3.313078;, - 0.033592;-1.358158; 3.051235;, - 0.043607;-1.645926; 3.462256;, - -0.043607;-1.645926; 3.462256;, - -0.033592;-1.358158; 3.051235;, - -0.041202;-1.321878; 3.313078;, - 0.033509;-0.796317; 2.908326;, - 0.033592;-1.358158; 3.051235;, - 0.041202;-1.321878; 3.313078;, - -0.041202;-1.321878; 3.313078;, - -0.033592;-1.358158; 3.051235;, - -0.033509;-0.796317; 2.908326;, - 0.030700;-0.962950; 2.735546;, - 0.033592;-1.358158; 3.051235;, - 0.033509;-0.796317; 2.908326;, - -0.033509;-0.796317; 2.908326;, - -0.033592;-1.358158; 3.051235;, - -0.030700;-0.962950; 2.735546;, - 0.033509;-0.581053; 2.466655;, - 0.030700;-0.962950; 2.735546;, - 0.033509;-0.796317; 2.908326;, - -0.033509;-0.796317; 2.908326;, - -0.030700;-0.962950; 2.735546;, - -0.033509;-0.581053; 2.466655;, - 0.031906;-0.766350; 2.397481;, - 0.030700;-0.962950; 2.735546;, - 0.033509;-0.581053; 2.466655;, - -0.033509;-0.581053; 2.466655;, - -0.030700;-0.962950; 2.735546;, - -0.031906;-0.766350; 2.397481;, - 0.031664;-0.771881; 2.037392;, - 0.031906;-0.766350; 2.397481;, - 0.033509;-0.581053; 2.466655;, - -0.033509;-0.581053; 2.466655;, - -0.031906;-0.766350; 2.397481;, - -0.031664;-0.771881; 2.037392;, - 0.038637;-0.640804; 1.908553;, - 0.031664;-0.771881; 2.037392;, - 0.033509;-0.581053; 2.466655;, - -0.033509;-0.581053; 2.466655;, - -0.031664;-0.771881; 2.037392;, - -0.038637;-0.640804; 1.908553;, - 0.000000; 0.817534; 1.667264;, - 0.050175; 0.800936; 1.692368;, - 0.000000; 0.964414; 1.578387;, - 0.000000; 0.964414; 1.578387;, - -0.050175; 0.800936; 1.692368;, - 0.000000; 0.817534; 1.667264;, - 0.050175; 0.800936; 1.692368;, - 0.044430; 0.947018; 1.627857;, - 0.000000; 0.964414; 1.578387;, - 0.000000; 0.964414; 1.578387;, - -0.044430; 0.947018; 1.627857;, - -0.050175; 0.800936; 1.692368;, - 0.000000; 0.786591; 1.729150;, - 0.000000; 0.929622; 1.667299;, - 0.050175; 0.800936; 1.692368;, - -0.050175; 0.800936; 1.692368;, - 0.000000; 0.929622; 1.667299;, - 0.000000; 0.786591; 1.729150;, - 0.044430; 0.947018; 1.627857;, - 0.050175; 0.800936; 1.692368;, - 0.000000; 0.929622; 1.667299;, - 0.000000; 0.929622; 1.667299;, - -0.050175; 0.800936; 1.692368;, - -0.044430; 0.947018; 1.627857;, - 0.000000; 1.481603; 0.929563;, - 0.000000; 1.369280; 0.921304;, - 0.040844; 1.422627; 0.964686;, - -0.040844; 1.422627; 0.964686;, - 0.000000; 1.369280; 0.921304;, - 0.000000; 1.481603; 0.929563;, - 0.000000; 1.617712; 1.048245;, - 0.000000; 1.575013; 0.980108;, - 0.037415; 1.561378; 1.009037;, - -0.037415; 1.561378; 1.009037;, - 0.000000; 1.575013; 0.980108;, - 0.000000; 1.617712; 1.048245;, - 0.037415; 1.561378; 1.009037;, - 0.040844; 1.422627; 0.964686;, - 0.000000; 1.494581; 1.013376;, - 0.000000; 1.494581; 1.013376;, - -0.040844; 1.422627; 0.964686;, - -0.037415; 1.561378; 1.009037;, - 0.037415; 1.561378; 1.009037;, - 0.000000; 1.494581; 1.013376;, - 0.000000; 1.525800; 1.051119;, - 0.000000; 1.525800; 1.051119;, - 0.000000; 1.494581; 1.013376;, - -0.037415; 1.561378; 1.009037;, - 0.040844; 1.422627; 0.964686;, - 0.000000; 1.429169; 1.005777;, - 0.000000; 1.494581; 1.013376;, - 0.000000; 1.494581; 1.013376;, - 0.000000; 1.429169; 1.005777;, - -0.040844; 1.422627; 0.964686;, - 0.000000; 1.757880; 1.436905;, - 0.000000; 1.620780; 1.489762;, - 0.022056; 1.618469; 1.514380;, - -0.022056; 1.618469; 1.514380;, - 0.000000; 1.620780; 1.489762;, - 0.000000; 1.757880; 1.436905;, - 0.019457; 1.778695; 1.445005;, - 0.000000; 1.757880; 1.436905;, - 0.022056; 1.618469; 1.514380;, - -0.022056; 1.618469; 1.514380;, - 0.000000; 1.757880; 1.436905;, - -0.019457; 1.778695; 1.445005;, - 0.019457; 1.778695; 1.445005;, - 0.022056; 1.618469; 1.514380;, - 0.000000; 1.617248; 1.550962;, - 0.000000; 1.617248; 1.550962;, - -0.022056; 1.618469; 1.514380;, - -0.019457; 1.778695; 1.445005;, - 0.000000; 1.803902; 1.458461;, - 0.019457; 1.778695; 1.445005;, - 0.000000; 1.617248; 1.550962;, - 0.000000; 1.617248; 1.550962;, - -0.019457; 1.778695; 1.445005;, - 0.000000; 1.803902; 1.458461;, - 0.022056; 1.618469; 1.514380;, - 0.000000; 1.518108; 1.476655;, - 0.024777; 1.498321; 1.499089;, - -0.024777; 1.498321; 1.499089;, - 0.000000; 1.518108; 1.476655;, - -0.022056; 1.618469; 1.514380;, - 0.022056; 1.618469; 1.514380;, - 0.000000; 1.620780; 1.489762;, - 0.000000; 1.518108; 1.476655;, - 0.000000; 1.518108; 1.476655;, - 0.000000; 1.620780; 1.489762;, - -0.022056; 1.618469; 1.514380;, - 0.000000; 1.617248; 1.550962;, - 0.024777; 1.498321; 1.499089;, - 0.000000; 1.483992; 1.526933;, - 0.000000; 1.483992; 1.526933;, - -0.024777; 1.498321; 1.499089;, - 0.000000; 1.617248; 1.550962;, - 0.000000; 1.617248; 1.550962;, - 0.022056; 1.618469; 1.514380;, - 0.024777; 1.498321; 1.499089;, - -0.024777; 1.498321; 1.499089;, - -0.022056; 1.618469; 1.514380;, - 0.000000; 1.617248; 1.550962;, - 0.024777; 1.498321; 1.499089;, - 0.000000; 1.459126; 1.435150;, - 0.026183; 1.426232; 1.446661;, - -0.026183; 1.426232; 1.446661;, - 0.000000; 1.459126; 1.435150;, - -0.024777; 1.498321; 1.499089;, - 0.024777; 1.498321; 1.499089;, - 0.000000; 1.518108; 1.476655;, - 0.000000; 1.459126; 1.435150;, - 0.000000; 1.459126; 1.435150;, - 0.000000; 1.518108; 1.476655;, - -0.024777; 1.498321; 1.499089;, - 0.000000; 1.483992; 1.526933;, - 0.026183; 1.426232; 1.446661;, - 0.000000; 1.390059; 1.461397;, - 0.000000; 1.390059; 1.461397;, - -0.026183; 1.426232; 1.446661;, - 0.000000; 1.483992; 1.526933;, - 0.000000; 1.483992; 1.526933;, - 0.024777; 1.498321; 1.499089;, - 0.026183; 1.426232; 1.446661;, - -0.026183; 1.426232; 1.446661;, - -0.024777; 1.498321; 1.499089;, - 0.000000; 1.483992; 1.526933;, - 0.000000; 1.459126; 1.435150;, - 0.000000; 1.465680; 1.363061;, - 0.030053; 1.434970; 1.348358;, - -0.030053; 1.434970; 1.348358;, - 0.000000; 1.465680; 1.363061;, - 0.000000; 1.459126; 1.435150;, - 0.026183; 1.426232; 1.446661;, - 0.000000; 1.459126; 1.435150;, - 0.030053; 1.434970; 1.348358;, - -0.030053; 1.434970; 1.348358;, - 0.000000; 1.459126; 1.435150;, - -0.026183; 1.426232; 1.446661;, - 0.026183; 1.426232; 1.446661;, - 0.030053; 1.434970; 1.348358;, - 0.000000; 1.403166; 1.336880;, - 0.000000; 1.403166; 1.336880;, - -0.030053; 1.434970; 1.348358;, - -0.026183; 1.426232; 1.446661;, - 0.000000; 1.390059; 1.461397;, - 0.026183; 1.426232; 1.446661;, - 0.000000; 1.403166; 1.336880;, - 0.000000; 1.403166; 1.336880;, - -0.026183; 1.426232; 1.446661;, - 0.000000; 1.390059; 1.461397;, - 0.000000; 1.465680; 1.363061;, - 0.000000; 1.570250; 1.194379;, - 0.034739; 1.537642; 1.180150;, - -0.034739; 1.537642; 1.180150;, - 0.000000; 1.570250; 1.194379;, - 0.000000; 1.465680; 1.363061;, - 0.030053; 1.434970; 1.348358;, - 0.000000; 1.465680; 1.363061;, - 0.034739; 1.537642; 1.180150;, - -0.034739; 1.537642; 1.180150;, - 0.000000; 1.465680; 1.363061;, - -0.030053; 1.434970; 1.348358;, - 0.030053; 1.434970; 1.348358;, - 0.034739; 1.537642; 1.180150;, - 0.000000; 1.499571; 1.164779;, - 0.000000; 1.499571; 1.164779;, - -0.034739; 1.537642; 1.180150;, - -0.030053; 1.434970; 1.348358;, - 0.000000; 1.403166; 1.336880;, - 0.030053; 1.434970; 1.348358;, - 0.000000; 1.499571; 1.164779;, - 0.000000; 1.499571; 1.164779;, - -0.030053; 1.434970; 1.348358;, - 0.000000; 1.403166; 1.336880;, - 0.034739; 1.537642; 1.180150;, - 0.000000; 1.617712; 1.048245;, - 0.037415; 1.561378; 1.009037;, - -0.037415; 1.561378; 1.009037;, - 0.000000; 1.617712; 1.048245;, - -0.034739; 1.537642; 1.180150;, - 0.034739; 1.537642; 1.180150;, - 0.000000; 1.570250; 1.194379;, - 0.000000; 1.617712; 1.048245;, - 0.000000; 1.617712; 1.048245;, - 0.000000; 1.570250; 1.194379;, - -0.034739; 1.537642; 1.180150;, - 0.034739; 1.537642; 1.180150;, - 0.037415; 1.561378; 1.009037;, - 0.000000; 1.525800; 1.051119;, - 0.000000; 1.525800; 1.051119;, - -0.037415; 1.561378; 1.009037;, - -0.034739; 1.537642; 1.180150;, - 0.000000; 1.499571; 1.164779;, - 0.034739; 1.537642; 1.180150;, - 0.000000; 1.525800; 1.051119;, - 0.000000; 1.525800; 1.051119;, - -0.034739; 1.537642; 1.180150;, - 0.000000; 1.499571; 1.164779;, - 0.037415; 1.561378; 1.009037;, - 0.000000; 1.481603; 0.929563;, - 0.040844; 1.422627; 0.964686;, - -0.040844; 1.422627; 0.964686;, - 0.000000; 1.481603; 0.929563;, - -0.037415; 1.561378; 1.009037;, - 0.037415; 1.561378; 1.009037;, - 0.000000; 1.575013; 0.980108;, - 0.000000; 1.481603; 0.929563;, - 0.000000; 1.481603; 0.929563;, - 0.000000; 1.575013; 0.980108;, - -0.037415; 1.561378; 1.009037;, - 0.000000; 1.369280; 0.921304;, - 0.000000; 1.228877; 0.998939;, - 0.041910; 1.282224; 1.041412;, - -0.041910; 1.282224; 1.041412;, - 0.000000; 1.228877; 0.998939;, - 0.000000; 1.369280; 0.921304;, - 0.040844; 1.422627; 0.964686;, - 0.000000; 1.369280; 0.921304;, - 0.041910; 1.282224; 1.041412;, - -0.041910; 1.282224; 1.041412;, - 0.000000; 1.369280; 0.921304;, - -0.040844; 1.422627; 0.964686;, - 0.040844; 1.422627; 0.964686;, - 0.041910; 1.282224; 1.041412;, - 0.000000; 1.331795; 1.065738;, - 0.000000; 1.331795; 1.065738;, - -0.041910; 1.282224; 1.041412;, - -0.040844; 1.422627; 0.964686;, - 0.000000; 1.429169; 1.005777;, - 0.040844; 1.422627; 0.964686;, - 0.000000; 1.331795; 1.065738;, - 0.000000; 1.331795; 1.065738;, - -0.040844; 1.422627; 0.964686;, - 0.000000; 1.429169; 1.005777;, - 0.041910; 1.282224; 1.041412;, - 0.000000; 1.197305; 1.377483;, - 0.044061; 1.245696; 1.400134;, - -0.044061; 1.245696; 1.400134;, - 0.000000; 1.197305; 1.377483;, - -0.041910; 1.282224; 1.041412;, - 0.041910; 1.282224; 1.041412;, - 0.000000; 1.228877; 0.998939;, - 0.000000; 1.197305; 1.377483;, - 0.000000; 1.197305; 1.377483;, - 0.000000; 1.228877; 0.998939;, - -0.041910; 1.282224; 1.041412;, - 0.000000; 1.331795; 1.065738;, - 0.044061; 1.245696; 1.400134;, - 0.000000; 1.295268; 1.421156;, - 0.000000; 1.295268; 1.421156;, - -0.044061; 1.245696; 1.400134;, - 0.000000; 1.331795; 1.065738;, - 0.000000; 1.331795; 1.065738;, - 0.041910; 1.282224; 1.041412;, - 0.044061; 1.245696; 1.400134;, - -0.044061; 1.245696; 1.400134;, - -0.041910; 1.282224; 1.041412;, - 0.000000; 1.331795; 1.065738;, - 0.000000; 1.197305; 1.377483;, - 0.000000; 1.084982; 1.519538;, - 0.045925; 1.111900; 1.550448;, - -0.045925; 1.111900; 1.550448;, - 0.000000; 1.084982; 1.519538;, - 0.000000; 1.197305; 1.377483;, - 0.044061; 1.245696; 1.400134;, - 0.000000; 1.197305; 1.377483;, - 0.045925; 1.111900; 1.550448;, - -0.045925; 1.111900; 1.550448;, - 0.000000; 1.197305; 1.377483;, - -0.044061; 1.245696; 1.400134;, - 0.044061; 1.245696; 1.400134;, - 0.045925; 1.111900; 1.550448;, - 0.000000; 1.136695; 1.583033;, - 0.000000; 1.136695; 1.583033;, - -0.045925; 1.111900; 1.550448;, - -0.044061; 1.245696; 1.400134;, - 0.000000; 1.295268; 1.421156;, - 0.044061; 1.245696; 1.400134;, - 0.000000; 1.136695; 1.583033;, - 0.000000; 1.136695; 1.583033;, - -0.044061; 1.245696; 1.400134;, - 0.000000; 1.295268; 1.421156;, - 0.045925; 1.111900; 1.550448;, - 0.000000; 0.964414; 1.578387;, - 0.044430; 0.947018; 1.627857;, - -0.044430; 0.947018; 1.627857;, - 0.000000; 0.964414; 1.578387;, - -0.045925; 1.111900; 1.550448;, - 0.045925; 1.111900; 1.550448;, - 0.000000; 1.084982; 1.519538;, - 0.000000; 0.964414; 1.578387;, - 0.000000; 0.964414; 1.578387;, - 0.000000; 1.084982; 1.519538;, - -0.045925; 1.111900; 1.550448;, - 0.000000; 1.136695; 1.583033;, - 0.044430; 0.947018; 1.627857;, - 0.000000; 0.929622; 1.667299;, - 0.000000; 0.929622; 1.667299;, - -0.044430; 0.947018; 1.627857;, - 0.000000; 1.136695; 1.583033;, - 0.000000; 1.136695; 1.583033;, - 0.045925; 1.111900; 1.550448;, - 0.044430; 0.947018; 1.627857;, - -0.044430; 0.947018; 1.627857;, - -0.045925; 1.111900; 1.550448;, - 0.000000; 1.136695; 1.583033;, - 0.000000; 1.762904; 1.306271;, - 0.000000; 1.757880; 1.436905;, - 0.019457; 1.778695; 1.445005;, - -0.019457; 1.778695; 1.445005;, - 0.000000; 1.757880; 1.436905;, - 0.000000; 1.762904; 1.306271;, - 0.064068; 1.800197; 1.315466;, - 0.000000; 1.762904; 1.306271;, - 0.019457; 1.778695; 1.445005;, - -0.019457; 1.778695; 1.445005;, - 0.000000; 1.762904; 1.306271;, - -0.064068; 1.800197; 1.315466;, - 0.019457; 1.778695; 1.445005;, - 0.064066; 1.879262; 1.340024;, - 0.064068; 1.800197; 1.315466;, - -0.064068; 1.800197; 1.315466;, - -0.064066; 1.879262; 1.340024;, - -0.019457; 1.778695; 1.445005;, - 0.000000; 1.803902; 1.458461;, - 0.064066; 1.879262; 1.340024;, - 0.019457; 1.778695; 1.445005;, - -0.019457; 1.778695; 1.445005;, - -0.064066; 1.879262; 1.340024;, - 0.000000; 1.803902; 1.458461;, - 0.000000; 1.914438; 1.357974;, - 0.064066; 1.879262; 1.340024;, - 0.000000; 1.803902; 1.458461;, - 0.000000; 1.803902; 1.458461;, - -0.064066; 1.879262; 1.340024;, - 0.000000; 1.914438; 1.357974;, - 0.064068; 1.800197; 1.315466;, - 0.000000; 1.707636; 1.145491;, - 0.000000; 1.762904; 1.306271;, - 0.000000; 1.762904; 1.306271;, - 0.000000; 1.707636; 1.145491;, - -0.064068; 1.800197; 1.315466;, - 0.064068; 1.800197; 1.315466;, - 0.097762; 1.759300; 1.086229;, - 0.000000; 1.707636; 1.145491;, - 0.000000; 1.707636; 1.145491;, - -0.097762; 1.759300; 1.086229;, - -0.064068; 1.800197; 1.315466;, - 0.064068; 1.800197; 1.315466;, - 0.144163; 1.863392; 1.065100;, - 0.097762; 1.759300; 1.086229;, - -0.097762; 1.759300; 1.086229;, - -0.144163; 1.863392; 1.065100;, - -0.064068; 1.800197; 1.315466;, - 0.064068; 1.800197; 1.315466;, - 0.064066; 1.879262; 1.340024;, - 0.144163; 1.863392; 1.065100;, - -0.144163; 1.863392; 1.065100;, - -0.064066; 1.879262; 1.340024;, - -0.064068; 1.800197; 1.315466;, - 0.097762; 1.967484; 1.091704;, - 0.144163; 1.863392; 1.065100;, - 0.064066; 1.879262; 1.340024;, - -0.097762; 1.967484; 1.091704;, - -0.064066; 1.879262; 1.340024;, - -0.144163; 1.863392; 1.065100;, - 0.097762; 1.967484; 1.091704;, - 0.064066; 1.879262; 1.340024;, - 0.000000; 2.007389; 1.121828;, - 0.000000; 2.007389; 1.121828;, - -0.064066; 1.879262; 1.340024;, - -0.097762; 1.967484; 1.091704;, - 0.000000; 2.007389; 1.121828;, - 0.064066; 1.879262; 1.340024;, - 0.000000; 1.914438; 1.357974;, - 0.000000; 1.914438; 1.357974;, - -0.064066; 1.879262; 1.340024;, - 0.000000; 2.007389; 1.121828;, - 0.288900;-0.639226; 1.365501;, - 0.371010;-0.658594; 1.325284;, - 0.292441;-0.842386; 1.228215;, - -0.292441;-0.842386; 1.228215;, - -0.371010;-0.658594; 1.325284;, - -0.288900;-0.639226; 1.365501;, - 0.371010;-0.658594; 1.325284;, - 0.359964;-0.785290; 1.183596;, - 0.292441;-0.842386; 1.228215;, - -0.292441;-0.842386; 1.228215;, - -0.359964;-0.785290; 1.183596;, - -0.371010;-0.658594; 1.325284;, - 0.407299;-0.468541; 1.065355;, - 0.407899;-0.596800; 1.263519;, - 0.332133;-0.455501; 1.226028;, - -0.332133;-0.455501; 1.226028;, - -0.407899;-0.596800; 1.263519;, - -0.407299;-0.468541; 1.065355;, - 0.363393;-0.452136; 1.000084;, - 0.407299;-0.468541; 1.065355;, - 0.332133;-0.455501; 1.226028;, - -0.332133;-0.455501; 1.226028;, - -0.407299;-0.468541; 1.065355;, - -0.363393;-0.452136; 1.000084;, - 0.358675;-0.805640; 0.941699;, - 0.359964;-0.785290; 1.183596;, - 0.422339;-0.745464; 1.003495;, - -0.422339;-0.745464; 1.003495;, - -0.359964;-0.785290; 1.183596;, - -0.358675;-0.805640; 0.941699;, - 0.407899;-0.596800; 1.263519;, - 0.422339;-0.745464; 1.003495;, - 0.359964;-0.785290; 1.183596;, - -0.359964;-0.785290; 1.183596;, - -0.422339;-0.745464; 1.003495;, - -0.407899;-0.596800; 1.263519;, - 0.371010;-0.658594; 1.325284;, - 0.407899;-0.596800; 1.263519;, - 0.359964;-0.785290; 1.183596;, - -0.359964;-0.785290; 1.183596;, - -0.407899;-0.596800; 1.263519;, - -0.371010;-0.658594; 1.325284;, - 0.407899;-0.596800; 1.263519;, - 0.439257;-0.535005; 1.003495;, - 0.422339;-0.745464; 1.003495;, - -0.422339;-0.745464; 1.003495;, - -0.439257;-0.535005; 1.003495;, - -0.407899;-0.596800; 1.263519;, - 0.439257;-0.535005; 1.003495;, - 0.407899;-0.596800; 1.263519;, - 0.407299;-0.468541; 1.065355;, - -0.407299;-0.468541; 1.065355;, - -0.407899;-0.596800; 1.263519;, - -0.439257;-0.535005; 1.003495;, - 0.447655;-0.499929; 0.874881;, - 0.439257;-0.535005; 1.003495;, - 0.407299;-0.468541; 1.065355;, - -0.407299;-0.468541; 1.065355;, - -0.439257;-0.535005; 1.003495;, - -0.447655;-0.499929; 0.874881;, - 0.447655;-0.499929; 0.874881;, - 0.407299;-0.468541; 1.065355;, - 0.364816;-0.459772; 0.644437;, - -0.364816;-0.459772; 0.644437;, - -0.407299;-0.468541; 1.065355;, - -0.447655;-0.499929; 0.874881;, - 0.406175;-0.493887; 0.457320;, - 0.447655;-0.499929; 0.874881;, - 0.364816;-0.459772; 0.644437;, - -0.364816;-0.459772; 0.644437;, - -0.447655;-0.499929; 0.874881;, - -0.406175;-0.493887; 0.457320;, - 0.313232;-0.511125; 0.459338;, - 0.406175;-0.493887; 0.457320;, - 0.364816;-0.459772; 0.644437;, - -0.364816;-0.459772; 0.644437;, - -0.406175;-0.493887; 0.457320;, - -0.313232;-0.511125; 0.459338;, - 0.364816;-0.459772; 0.644437;, - 0.407299;-0.468541; 1.065355;, - 0.363393;-0.452136; 1.000084;, - -0.363393;-0.452136; 1.000084;, - -0.407299;-0.468541; 1.065355;, - -0.364816;-0.459772; 0.644437;, - 0.275935;-0.637818; 0.913679;, - 0.364816;-0.459772; 0.644437;, - 0.363393;-0.452136; 1.000084;, - -0.363393;-0.452136; 1.000084;, - -0.364816;-0.459772; 0.644437;, - -0.275935;-0.637818; 0.913679;, - 0.271536;-0.624299; 0.459154;, - 0.313232;-0.511125; 0.459338;, - 0.364816;-0.459772; 0.644437;, - -0.364816;-0.459772; 0.644437;, - -0.313232;-0.511125; 0.459338;, - -0.271536;-0.624299; 0.459154;, - 0.354776;-0.786522; 0.759354;, - 0.275935;-0.637818; 0.913679;, - 0.292441;-0.851990; 1.020433;, - -0.292441;-0.851990; 1.020433;, - -0.275935;-0.637818; 0.913679;, - -0.354776;-0.786522; 0.759354;, - 0.271536;-0.624299; 0.459154;, - 0.354776;-0.786522; 0.759354;, - 0.342133;-0.743866; 0.484317;, - -0.342133;-0.743866; 0.484317;, - -0.354776;-0.786522; 0.759354;, - -0.271536;-0.624299; 0.459154;, - 0.439257;-0.535005; 1.003495;, - 0.447348;-0.620943; 0.713529;, - 0.422339;-0.745464; 1.003495;, - -0.422339;-0.745464; 1.003495;, - -0.447348;-0.620943; 0.713529;, - -0.439257;-0.535005; 1.003495;, - 0.447655;-0.499929; 0.874881;, - 0.447348;-0.620943; 0.713529;, - 0.439257;-0.535005; 1.003495;, - -0.439257;-0.535005; 1.003495;, - -0.447348;-0.620943; 0.713529;, - -0.447655;-0.499929; 0.874881;, - 0.406175;-0.493887; 0.457320;, - 0.447348;-0.620943; 0.713529;, - 0.447655;-0.499929; 0.874881;, - -0.447655;-0.499929; 0.874881;, - -0.447348;-0.620943; 0.713529;, - -0.406175;-0.493887; 0.457320;, - 0.447348;-0.620943; 0.713529;, - 0.431688;-0.711849; 0.579946;, - 0.422339;-0.745464; 1.003495;, - -0.422339;-0.745464; 1.003495;, - -0.431688;-0.711849; 0.579946;, - -0.447348;-0.620943; 0.713529;, - 0.406175;-0.493887; 0.457320;, - 0.413128;-0.640329; 0.459388;, - 0.431688;-0.711849; 0.579946;, - -0.431688;-0.711849; 0.579946;, - -0.413128;-0.640329; 0.459388;, - -0.406175;-0.493887; 0.457320;, - 0.447348;-0.620943; 0.713529;, - 0.406175;-0.493887; 0.457320;, - 0.431688;-0.711849; 0.579946;, - -0.431688;-0.711849; 0.579946;, - -0.406175;-0.493887; 0.457320;, - -0.447348;-0.620943; 0.713529;, - 0.364816;-0.459772; 0.644437;, - 0.273626;-0.615400; 0.686190;, - 0.271536;-0.624299; 0.459154;, - -0.271536;-0.624299; 0.459154;, - -0.273626;-0.615400; 0.686190;, - -0.364816;-0.459772; 0.644437;, - 0.364816;-0.459772; 0.644437;, - 0.275935;-0.637818; 0.913679;, - 0.273626;-0.615400; 0.686190;, - -0.273626;-0.615400; 0.686190;, - -0.275935;-0.637818; 0.913679;, - -0.364816;-0.459772; 0.644437;, - 0.354776;-0.786522; 0.759354;, - 0.273626;-0.615400; 0.686190;, - 0.275935;-0.637818; 0.913679;, - -0.275935;-0.637818; 0.913679;, - -0.273626;-0.615400; 0.686190;, - -0.354776;-0.786522; 0.759354;, - 0.354776;-0.786522; 0.759354;, - 0.271536;-0.624299; 0.459154;, - 0.273626;-0.615400; 0.686190;, - -0.273626;-0.615400; 0.686190;, - -0.271536;-0.624299; 0.459154;, - -0.354776;-0.786522; 0.759354;, - 0.412947;-0.612093; 0.392453;, - 0.413128;-0.640329; 0.459388;, - 0.406175;-0.493887; 0.457320;, - -0.406175;-0.493887; 0.457320;, - -0.413128;-0.640329; 0.459388;, - -0.412947;-0.612093; 0.392453;, - 0.412947;-0.612093; 0.392453;, - 0.406175;-0.493887; 0.457320;, - 0.389262;-0.493379; 0.363559;, - -0.389262;-0.493379; 0.363559;, - -0.406175;-0.493887; 0.457320;, - -0.412947;-0.612093; 0.392453;, - 0.406175;-0.493887; 0.457320;, - 0.313232;-0.511125; 0.459338;, - 0.389262;-0.493379; 0.363559;, - -0.389262;-0.493379; 0.363559;, - -0.313232;-0.511125; 0.459338;, - -0.406175;-0.493887; 0.457320;, - 0.313232;-0.511125; 0.459338;, - 0.298164;-0.506087; 0.364568;, - 0.389262;-0.493379; 0.363559;, - -0.389262;-0.493379; 0.363559;, - -0.298164;-0.506087; 0.364568;, - -0.313232;-0.511125; 0.459338;, - 0.342133;-0.743866; 0.484317;, - 0.337270;-0.737931; 0.445720;, - 0.271536;-0.624299; 0.459154;, - -0.271536;-0.624299; 0.459154;, - -0.337270;-0.737931; 0.445720;, - -0.342133;-0.743866; 0.484317;, - 0.337270;-0.737931; 0.445720;, - 0.269985;-0.612093; 0.392217;, - 0.271536;-0.624299; 0.459154;, - -0.271536;-0.624299; 0.459154;, - -0.269985;-0.612093; 0.392217;, - -0.337270;-0.737931; 0.445720;, - 0.269985;-0.612093; 0.392217;, - 0.313232;-0.511125; 0.459338;, - 0.271536;-0.624299; 0.459154;, - -0.271536;-0.624299; 0.459154;, - -0.313232;-0.511125; 0.459338;, - -0.269985;-0.612093; 0.392217;, - 0.313232;-0.511125; 0.459338;, - 0.269985;-0.612093; 0.392217;, - 0.298164;-0.506087; 0.364568;, - -0.298164;-0.506087; 0.364568;, - -0.269985;-0.612093; 0.392217;, - -0.313232;-0.511125; 0.459338;, - 0.344195;-0.526056; 0.227223;, - 0.384754;-0.507262; 0.301292;, - 0.302673;-0.518712; 0.302201;, - -0.302673;-0.518712; 0.302201;, - -0.384754;-0.507262; 0.301292;, - -0.344195;-0.526056; 0.227223;, - 0.384754;-0.507262; 0.301292;, - 0.412947;-0.612093; 0.392453;, - 0.389262;-0.493379; 0.363559;, - -0.389262;-0.493379; 0.363559;, - -0.412947;-0.612093; 0.392453;, - -0.384754;-0.507262; 0.301292;, - 0.384754;-0.507262; 0.301292;, - 0.389262;-0.493379; 0.363559;, - 0.298164;-0.506087; 0.364568;, - -0.298164;-0.506087; 0.364568;, - -0.389262;-0.493379; 0.363559;, - -0.384754;-0.507262; 0.301292;, - 0.302673;-0.518712; 0.302201;, - 0.384754;-0.507262; 0.301292;, - 0.298164;-0.506087; 0.364568;, - -0.298164;-0.506087; 0.364568;, - -0.384754;-0.507262; 0.301292;, - -0.302673;-0.518712; 0.302201;, - 0.269985;-0.612093; 0.392217;, - 0.302673;-0.518712; 0.302201;, - 0.298164;-0.506087; 0.364568;, - -0.298164;-0.506087; 0.364568;, - -0.302673;-0.518712; 0.302201;, - -0.269985;-0.612093; 0.392217;, - 0.384754;-0.507262; 0.301292;, - 0.344195;-0.526056; 0.227223;, - 0.412947;-0.612093; 0.392453;, - -0.412947;-0.612093; 0.392453;, - -0.344195;-0.526056; 0.227223;, - -0.384754;-0.507262; 0.301292;, - 0.344195;-0.526056; 0.227223;, - 0.302673;-0.518712; 0.302201;, - 0.269985;-0.612093; 0.392217;, - -0.269985;-0.612093; 0.392217;, - -0.302673;-0.518712; 0.302201;, - -0.344195;-0.526056; 0.227223;, - 0.279302;-0.595084; 0.213529;, - 0.344195;-0.526056; 0.227223;, - 0.269985;-0.612093; 0.392217;, - -0.269985;-0.612093; 0.392217;, - -0.344195;-0.526056; 0.227223;, - -0.279302;-0.595084; 0.213529;, - 0.337270;-0.687110; 0.301139;, - 0.279302;-0.595084; 0.213529;, - 0.269985;-0.612093; 0.392217;, - -0.269985;-0.612093; 0.392217;, - -0.279302;-0.595084; 0.213529;, - -0.337270;-0.687110; 0.301139;, - 0.337270;-0.687110; 0.301139;, - 0.336786;-0.657680; 0.193784;, - 0.279302;-0.595084; 0.213529;, - -0.279302;-0.595084; 0.213529;, - -0.336786;-0.657680; 0.193784;, - -0.337270;-0.687110; 0.301139;, - 0.337270;-0.687110; 0.301139;, - 0.269985;-0.612093; 0.392217;, - 0.337270;-0.737931; 0.445720;, - -0.337270;-0.737931; 0.445720;, - -0.269985;-0.612093; 0.392217;, - -0.337270;-0.687110; 0.301139;, - 0.344195;-0.526056; 0.227223;, - 0.403920;-0.595250; 0.213461;, - 0.412947;-0.612093; 0.392453;, - -0.412947;-0.612093; 0.392453;, - -0.403920;-0.595250; 0.213461;, - -0.344195;-0.526056; 0.227223;, - 0.336786;-0.657680; 0.193784;, - 0.336473;-0.596845;-0.027597;, - 0.279302;-0.595084; 0.213529;, - -0.279302;-0.595084; 0.213529;, - -0.336473;-0.596845;-0.027597;, - -0.336786;-0.657680; 0.193784;, - 0.336473;-0.596845;-0.027597;, - 0.296929;-0.542688;-0.043824;, - 0.279302;-0.595084; 0.213529;, - -0.279302;-0.595084; 0.213529;, - -0.296929;-0.542688;-0.043824;, - -0.336473;-0.596845;-0.027597;, - 0.336473;-0.586066;-0.068498;, - 0.296929;-0.542688;-0.043824;, - 0.336473;-0.596845;-0.027597;, - -0.336473;-0.596845;-0.027597;, - -0.296929;-0.542688;-0.043824;, - -0.336473;-0.586066;-0.068498;, - 0.301087;-0.485915;-0.290235;, - 0.296929;-0.542688;-0.043824;, - 0.336473;-0.586066;-0.068498;, - -0.336473;-0.586066;-0.068498;, - -0.296929;-0.542688;-0.043824;, - -0.301087;-0.485915;-0.290235;, - 0.335683;-0.522637;-0.308420;, - 0.301087;-0.485915;-0.290235;, - 0.336473;-0.586066;-0.068498;, - -0.336473;-0.586066;-0.068498;, - -0.301087;-0.485915;-0.290235;, - -0.335683;-0.522637;-0.308420;, - 0.281125;-0.524016;-0.350204;, - 0.301087;-0.485915;-0.290235;, - 0.335683;-0.522637;-0.308420;, - -0.335683;-0.522637;-0.308420;, - -0.301087;-0.485915;-0.290235;, - -0.281125;-0.524016;-0.350204;, - 0.335683;-0.576771;-0.328862;, - 0.281125;-0.524016;-0.350204;, - 0.335683;-0.522637;-0.308420;, - -0.335683;-0.522637;-0.308420;, - -0.281125;-0.524016;-0.350204;, - -0.335683;-0.576771;-0.328862;, - 0.335683;-0.569175;-0.368038;, - 0.281125;-0.524016;-0.350204;, - 0.335683;-0.576771;-0.328862;, - -0.335683;-0.576771;-0.328862;, - -0.281125;-0.524016;-0.350204;, - -0.335683;-0.569175;-0.368038;, - 0.301572;-0.544633;-0.405620;, - 0.281125;-0.524016;-0.350204;, - 0.335683;-0.569175;-0.368038;, - -0.335683;-0.569175;-0.368038;, - -0.281125;-0.524016;-0.350204;, - -0.301572;-0.544633;-0.405620;, - 0.335683;-0.673249;-0.427160;, - 0.301572;-0.544633;-0.405620;, - 0.335683;-0.569175;-0.368038;, - -0.335683;-0.569175;-0.368038;, - -0.301572;-0.544633;-0.405620;, - -0.335683;-0.673249;-0.427160;, - 0.292204;-0.760878;-0.516775;, - 0.301572;-0.544633;-0.405620;, - 0.335683;-0.673249;-0.427160;, - -0.335683;-0.673249;-0.427160;, - -0.301572;-0.544633;-0.405620;, - -0.292204;-0.760878;-0.516775;, - 0.335683;-0.779339;-0.476978;, - 0.292204;-0.760878;-0.516775;, - 0.335683;-0.673249;-0.427160;, - -0.335683;-0.673249;-0.427160;, - -0.292204;-0.760878;-0.516775;, - -0.335683;-0.779339;-0.476978;, - 0.344520;-0.490340;-0.041905;, - 0.403920;-0.595250; 0.213461;, - 0.344195;-0.526056; 0.227223;, - -0.344195;-0.526056; 0.227223;, - -0.403920;-0.595250; 0.213461;, - -0.344520;-0.490340;-0.041905;, - 0.344520;-0.490340;-0.041905;, - 0.386498;-0.542798;-0.043868;, - 0.403920;-0.595250; 0.213461;, - -0.403920;-0.595250; 0.213461;, - -0.386498;-0.542798;-0.043868;, - -0.344520;-0.490340;-0.041905;, - 0.382831;-0.486001;-0.290209;, - 0.386498;-0.542798;-0.043868;, - 0.344520;-0.490340;-0.041905;, - -0.344520;-0.490340;-0.041905;, - -0.386498;-0.542798;-0.043868;, - -0.382831;-0.486001;-0.290209;, - 0.345320;-0.443636;-0.277914;, - 0.382831;-0.486001;-0.290209;, - 0.344520;-0.490340;-0.041905;, - -0.344520;-0.490340;-0.041905;, - -0.382831;-0.486001;-0.290209;, - -0.345320;-0.443636;-0.277914;, - 0.413139;-0.413406;-0.360376;, - 0.382831;-0.486001;-0.290209;, - 0.345320;-0.443636;-0.277914;, - -0.345320;-0.443636;-0.277914;, - -0.382831;-0.486001;-0.290209;, - -0.413139;-0.413406;-0.360376;, - 0.413139;-0.413406;-0.360376;, - 0.402793;-0.524008;-0.350069;, - 0.382831;-0.486001;-0.290209;, - -0.382831;-0.486001;-0.290209;, - -0.402793;-0.524008;-0.350069;, - -0.413139;-0.413406;-0.360376;, - 0.345320;-0.370810;-0.357896;, - 0.413139;-0.413406;-0.360376;, - 0.345320;-0.443636;-0.277914;, - -0.345320;-0.443636;-0.277914;, - -0.413139;-0.413406;-0.360376;, - -0.345320;-0.370810;-0.357896;, - 0.402793;-0.524008;-0.350069;, - 0.413139;-0.413406;-0.360376;, - 0.345320;-0.478465;-0.411900;, - -0.345320;-0.478465;-0.411900;, - -0.413139;-0.413406;-0.360376;, - -0.402793;-0.524008;-0.350069;, - 0.345320;-0.542958;-0.432965;, - 0.402793;-0.524008;-0.350069;, - 0.345320;-0.478465;-0.411900;, - -0.345320;-0.478465;-0.411900;, - -0.402793;-0.524008;-0.350069;, - -0.345320;-0.542958;-0.432965;, - 0.382346;-0.544546;-0.405597;, - 0.402793;-0.524008;-0.350069;, - 0.345320;-0.542958;-0.432965;, - -0.345320;-0.542958;-0.432965;, - -0.402793;-0.524008;-0.350069;, - -0.382346;-0.544546;-0.405597;, - 0.345320;-0.711535;-0.546620;, - 0.382346;-0.544546;-0.405597;, - 0.345320;-0.542958;-0.432965;, - -0.345320;-0.542958;-0.432965;, - -0.382346;-0.544546;-0.405597;, - -0.345320;-0.711535;-0.546620;, - 0.381336;-0.760780;-0.516767;, - 0.382346;-0.544546;-0.405597;, - 0.345320;-0.711535;-0.546620;, - -0.345320;-0.711535;-0.546620;, - -0.382346;-0.544546;-0.405597;, - -0.381336;-0.760780;-0.516767;, - 0.279302;-0.595084; 0.213529;, - 0.344520;-0.490340;-0.041905;, - 0.344195;-0.526056; 0.227223;, - -0.344195;-0.526056; 0.227223;, - -0.344520;-0.490340;-0.041905;, - -0.279302;-0.595084; 0.213529;, - 0.296929;-0.542688;-0.043824;, - 0.344520;-0.490340;-0.041905;, - 0.279302;-0.595084; 0.213529;, - -0.279302;-0.595084; 0.213529;, - -0.344520;-0.490340;-0.041905;, - -0.296929;-0.542688;-0.043824;, - 0.296929;-0.542688;-0.043824;, - 0.301087;-0.485915;-0.290235;, - 0.344520;-0.490340;-0.041905;, - -0.344520;-0.490340;-0.041905;, - -0.301087;-0.485915;-0.290235;, - -0.296929;-0.542688;-0.043824;, - 0.301087;-0.485915;-0.290235;, - 0.345320;-0.443636;-0.277914;, - 0.344520;-0.490340;-0.041905;, - -0.344520;-0.490340;-0.041905;, - -0.345320;-0.443636;-0.277914;, - -0.301087;-0.485915;-0.290235;, - 0.301087;-0.485915;-0.290235;, - 0.270779;-0.413416;-0.360533;, - 0.345320;-0.443636;-0.277914;, - -0.345320;-0.443636;-0.277914;, - -0.270779;-0.413416;-0.360533;, - -0.301087;-0.485915;-0.290235;, - 0.270779;-0.413416;-0.360533;, - 0.345320;-0.370810;-0.357896;, - 0.345320;-0.443636;-0.277914;, - -0.345320;-0.443636;-0.277914;, - -0.345320;-0.370810;-0.357896;, - -0.270779;-0.413416;-0.360533;, - 0.281125;-0.524016;-0.350204;, - 0.270779;-0.413416;-0.360533;, - 0.301087;-0.485915;-0.290235;, - -0.301087;-0.485915;-0.290235;, - -0.270779;-0.413416;-0.360533;, - -0.281125;-0.524016;-0.350204;, - 0.270779;-0.413416;-0.360533;, - 0.281125;-0.524016;-0.350204;, - 0.345320;-0.478465;-0.411900;, - -0.345320;-0.478465;-0.411900;, - -0.281125;-0.524016;-0.350204;, - -0.270779;-0.413416;-0.360533;, - 0.281125;-0.524016;-0.350204;, - 0.345320;-0.542958;-0.432965;, - 0.345320;-0.478465;-0.411900;, - -0.345320;-0.478465;-0.411900;, - -0.345320;-0.542958;-0.432965;, - -0.281125;-0.524016;-0.350204;, - 0.281125;-0.524016;-0.350204;, - 0.301572;-0.544633;-0.405620;, - 0.345320;-0.542958;-0.432965;, - -0.345320;-0.542958;-0.432965;, - -0.301572;-0.544633;-0.405620;, - -0.281125;-0.524016;-0.350204;, - 0.301572;-0.544633;-0.405620;, - 0.345320;-0.711535;-0.546620;, - 0.345320;-0.542958;-0.432965;, - -0.345320;-0.542958;-0.432965;, - -0.345320;-0.711535;-0.546620;, - -0.301572;-0.544633;-0.405620;, - 0.301572;-0.544633;-0.405620;, - 0.292204;-0.760878;-0.516775;, - 0.345320;-0.711535;-0.546620;, - -0.345320;-0.711535;-0.546620;, - -0.292204;-0.760878;-0.516775;, - -0.301572;-0.544633;-0.405620;, - 0.413139;-0.413406;-0.360376;, - 0.345320;-0.438998;-0.419603;, - 0.345320;-0.478465;-0.411900;, - -0.345320;-0.478465;-0.411900;, - -0.345320;-0.438998;-0.419603;, - -0.413139;-0.413406;-0.360376;, - 0.413139;-0.413406;-0.360376;, - 0.345320;-0.370810;-0.357896;, - 0.345320;-0.438998;-0.419603;, - -0.345320;-0.438998;-0.419603;, - -0.345320;-0.370810;-0.357896;, - -0.413139;-0.413406;-0.360376;, - 0.270779;-0.413416;-0.360533;, - 0.345320;-0.438998;-0.419603;, - 0.345320;-0.370810;-0.357896;, - -0.345320;-0.370810;-0.357896;, - -0.345320;-0.438998;-0.419603;, - -0.270779;-0.413416;-0.360533;, - 0.270779;-0.413416;-0.360533;, - 0.345320;-0.478465;-0.411900;, - 0.345320;-0.438998;-0.419603;, - -0.345320;-0.438998;-0.419603;, - -0.345320;-0.478465;-0.411900;, - -0.270779;-0.413416;-0.360533;, - 0.371010;-0.658594; 1.325284;, - 0.288900;-0.639226; 1.365501;, - 0.307361;-0.537888; 1.316611;, - -0.307361;-0.537888; 1.316611;, - -0.288900;-0.639226; 1.365501;, - -0.371010;-0.658594; 1.325284;, - 0.307361;-0.537888; 1.316611;, - 0.332133;-0.455501; 1.226028;, - 0.407899;-0.596800; 1.263519;, - -0.407899;-0.596800; 1.263519;, - -0.332133;-0.455501; 1.226028;, - -0.307361;-0.537888; 1.316611;, - 0.371010;-0.658594; 1.325284;, - 0.307361;-0.537888; 1.316611;, - 0.407899;-0.596800; 1.263519;, - -0.407899;-0.596800; 1.263519;, - -0.307361;-0.537888; 1.316611;, - -0.371010;-0.658594; 1.325284;, - 0.345320;-0.711535;-0.546620;, - 0.340486;-0.715589;-0.583836;, - 0.381336;-0.760780;-0.516767;, - -0.381336;-0.760780;-0.516767;, - -0.340486;-0.715589;-0.583836;, - -0.345320;-0.711535;-0.546620;, - 0.292204;-0.760878;-0.516775;, - 0.340486;-0.715589;-0.583836;, - 0.345320;-0.711535;-0.546620;, - -0.345320;-0.711535;-0.546620;, - -0.340486;-0.715589;-0.583836;, - -0.292204;-0.760878;-0.516775;, - 0.381336;-0.760780;-0.516767;, - 0.335683;-0.779339;-0.476978;, - 0.335683;-0.673249;-0.427160;, - -0.335683;-0.673249;-0.427160;, - -0.335683;-0.779339;-0.476978;, - -0.381336;-0.760780;-0.516767;, - 0.382346;-0.544546;-0.405597;, - 0.381336;-0.760780;-0.516767;, - 0.335683;-0.673249;-0.427160;, - -0.335683;-0.673249;-0.427160;, - -0.381336;-0.760780;-0.516767;, - -0.382346;-0.544546;-0.405597;, - 0.382346;-0.544546;-0.405597;, - 0.335683;-0.673249;-0.427160;, - 0.335683;-0.569175;-0.368038;, - -0.335683;-0.569175;-0.368038;, - -0.335683;-0.673249;-0.427160;, - -0.382346;-0.544546;-0.405597;, - 0.402793;-0.524008;-0.350069;, - 0.382346;-0.544546;-0.405597;, - 0.335683;-0.569175;-0.368038;, - -0.335683;-0.569175;-0.368038;, - -0.382346;-0.544546;-0.405597;, - -0.402793;-0.524008;-0.350069;, - 0.402793;-0.524008;-0.350069;, - 0.335683;-0.569175;-0.368038;, - 0.335683;-0.576771;-0.328862;, - -0.335683;-0.576771;-0.328862;, - -0.335683;-0.569175;-0.368038;, - -0.402793;-0.524008;-0.350069;, - 0.402793;-0.524008;-0.350069;, - 0.335683;-0.576771;-0.328862;, - 0.335683;-0.522637;-0.308420;, - -0.335683;-0.522637;-0.308420;, - -0.335683;-0.576771;-0.328862;, - -0.402793;-0.524008;-0.350069;, - 0.382831;-0.486001;-0.290209;, - 0.402793;-0.524008;-0.350069;, - 0.335683;-0.522637;-0.308420;, - -0.335683;-0.522637;-0.308420;, - -0.402793;-0.524008;-0.350069;, - -0.382831;-0.486001;-0.290209;, - 0.382831;-0.486001;-0.290209;, - 0.335683;-0.522637;-0.308420;, - 0.336473;-0.586066;-0.068498;, - -0.336473;-0.586066;-0.068498;, - -0.335683;-0.522637;-0.308420;, - -0.382831;-0.486001;-0.290209;, - 0.386498;-0.542798;-0.043868;, - 0.382831;-0.486001;-0.290209;, - 0.336473;-0.586066;-0.068498;, - -0.336473;-0.586066;-0.068498;, - -0.382831;-0.486001;-0.290209;, - -0.386498;-0.542798;-0.043868;, - 0.386498;-0.542798;-0.043868;, - 0.336473;-0.586066;-0.068498;, - 0.336473;-0.596845;-0.027597;, - -0.336473;-0.596845;-0.027597;, - -0.336473;-0.586066;-0.068498;, - -0.386498;-0.542798;-0.043868;, - 0.386498;-0.542798;-0.043868;, - 0.336473;-0.596845;-0.027597;, - 0.403920;-0.595250; 0.213461;, - -0.403920;-0.595250; 0.213461;, - -0.336473;-0.596845;-0.027597;, - -0.386498;-0.542798;-0.043868;, - 0.336473;-0.596845;-0.027597;, - 0.336786;-0.657680; 0.193784;, - 0.403920;-0.595250; 0.213461;, - -0.403920;-0.595250; 0.213461;, - -0.336786;-0.657680; 0.193784;, - -0.336473;-0.596845;-0.027597;, - 0.412947;-0.612093; 0.392453;, - 0.337270;-0.687110; 0.301139;, - 0.337270;-0.737931; 0.445720;, - -0.337270;-0.737931; 0.445720;, - -0.337270;-0.687110; 0.301139;, - -0.412947;-0.612093; 0.392453;, - 0.403920;-0.595250; 0.213461;, - 0.337270;-0.687110; 0.301139;, - 0.412947;-0.612093; 0.392453;, - -0.412947;-0.612093; 0.392453;, - -0.337270;-0.687110; 0.301139;, - -0.403920;-0.595250; 0.213461;, - 0.336786;-0.657680; 0.193784;, - 0.337270;-0.687110; 0.301139;, - 0.403920;-0.595250; 0.213461;, - -0.403920;-0.595250; 0.213461;, - -0.337270;-0.687110; 0.301139;, - -0.336786;-0.657680; 0.193784;, - 0.412947;-0.612093; 0.392453;, - 0.337270;-0.737931; 0.445720;, - 0.413128;-0.640329; 0.459388;, - -0.413128;-0.640329; 0.459388;, - -0.337270;-0.737931; 0.445720;, - -0.412947;-0.612093; 0.392453;, - 0.337270;-0.737931; 0.445720;, - 0.342133;-0.743866; 0.484317;, - 0.413128;-0.640329; 0.459388;, - -0.413128;-0.640329; 0.459388;, - -0.342133;-0.743866; 0.484317;, - -0.337270;-0.737931; 0.445720;, - 0.431688;-0.711849; 0.579946;, - 0.413128;-0.640329; 0.459388;, - 0.342133;-0.743866; 0.484317;, - -0.342133;-0.743866; 0.484317;, - -0.413128;-0.640329; 0.459388;, - -0.431688;-0.711849; 0.579946;, - 0.354776;-0.786522; 0.759354;, - 0.431688;-0.711849; 0.579946;, - 0.342133;-0.743866; 0.484317;, - -0.342133;-0.743866; 0.484317;, - -0.431688;-0.711849; 0.579946;, - -0.354776;-0.786522; 0.759354;, - 0.431688;-0.711849; 0.579946;, - 0.354776;-0.786522; 0.759354;, - 0.422339;-0.745464; 1.003495;, - -0.422339;-0.745464; 1.003495;, - -0.354776;-0.786522; 0.759354;, - -0.431688;-0.711849; 0.579946;, - 0.354776;-0.786522; 0.759354;, - 0.358675;-0.805640; 0.941699;, - 0.422339;-0.745464; 1.003495;, - -0.422339;-0.745464; 1.003495;, - -0.358675;-0.805640; 0.941699;, - -0.354776;-0.786522; 0.759354;, - 0.358675;-0.805640; 0.941699;, - 0.354776;-0.786522; 0.759354;, - 0.292441;-0.851990; 1.020433;, - -0.292441;-0.851990; 1.020433;, - -0.354776;-0.786522; 0.759354;, - -0.358675;-0.805640; 0.941699;, - 0.359964;-0.785290; 1.183596;, - 0.358675;-0.805640; 0.941699;, - 0.292441;-0.851990; 1.020433;, - -0.292441;-0.851990; 1.020433;, - -0.358675;-0.805640; 0.941699;, - -0.359964;-0.785290; 1.183596;, - 0.292441;-0.842386; 1.228215;, - 0.359964;-0.785290; 1.183596;, - 0.292441;-0.851990; 1.020433;, - -0.292441;-0.851990; 1.020433;, - -0.359964;-0.785290; 1.183596;, - -0.292441;-0.842386; 1.228215;, - 0.072105; 0.924098; 1.609134;, - 0.081987; 0.695516; 1.643651;, - 0.059543; 0.790243; 1.655778;, - -0.059543; 0.790243; 1.655778;, - -0.081987; 0.695516; 1.643651;, - -0.072105; 0.924098; 1.609134;, - 0.072105; 0.924098; 1.609134;, - 0.059543; 0.790243; 1.655778;, - 0.000000; 0.817534; 1.667264;, - 0.000000; 0.817534; 1.667264;, - -0.059543; 0.790243; 1.655778;, - -0.072105; 0.924098; 1.609134;, - 0.050175; 0.800936; 1.692368;, - 0.000000; 0.817534; 1.667264;, - 0.059543; 0.790243; 1.655778;, - -0.059543; 0.790243; 1.655778;, - 0.000000; 0.817534; 1.667264;, - -0.050175; 0.800936; 1.692368;, - 0.050175; 0.800936; 1.692368;, - 0.059543; 0.790243; 1.655778;, - 0.081987; 0.695516; 1.643651;, - -0.081987; 0.695516; 1.643651;, - -0.059543; 0.790243; 1.655778;, - -0.050175; 0.800936; 1.692368;, - -0.032572; 1.005451; 0.813342;, - 0.032572; 1.005451; 0.813342;, - 0.000000; 1.106889; 0.881869;, - -0.032572; 1.005451; 0.813342;, - 0.000000; 0.752710; 0.732702;, - 0.032572; 1.005451; 0.813342;, - -0.026810;-0.665146; 1.494077;, - 0.000000;-0.587782; 1.437343;, - 0.026810;-0.665146; 1.494077;, - 0.215257;-0.298289; 1.397633;, - 0.332133;-0.455501; 1.226028;, - 0.307361;-0.537888; 1.316611;, - -0.307361;-0.537888; 1.316611;, - -0.332133;-0.455501; 1.226028;, - -0.215257;-0.298289; 1.397633;, - 0.215257;-0.298289; 1.397633;, - 0.307361;-0.537888; 1.316611;, - 0.288900;-0.639226; 1.365501;, - -0.288900;-0.639226; 1.365501;, - -0.307361;-0.537888; 1.316611;, - -0.215257;-0.298289; 1.397633;, - 0.032572; 1.005451; 0.813342;, - 0.036577; 1.115641; 0.885306;, - 0.000000; 1.106889; 0.881869;, - 0.000000; 1.106889; 0.881869;, - -0.036577; 1.115641; 0.885306;, - -0.032572; 1.005451; 0.813342;, - 0.042333; 1.226816; 1.017269;, - 0.000000; 1.106889; 0.881869;, - 0.036577; 1.115641; 0.885306;, - -0.036577; 1.115641; 0.885306;, - 0.000000; 1.106889; 0.881869;, - -0.042333; 1.226816; 1.017269;, - 0.032572; 1.005451; 0.813342;, - 0.119568; 0.750239; 0.787188;, - 0.148245; 0.797670; 0.840422;, - -0.148245; 0.797670; 0.840422;, - -0.119568; 0.750239; 0.787188;, - -0.032572; 1.005451; 0.813342;, - 0.189875; 0.691453; 0.907093;, - 0.148245; 0.797670; 0.840422;, - 0.119568; 0.750239; 0.787188;, - -0.119568; 0.750239; 0.787188;, - -0.148245; 0.797670; 0.840422;, - -0.189875; 0.691453; 0.907093;, - 0.229117; 0.320871; 1.362858;, - 0.165471; 0.561056; 1.501566;, - 0.212250; 0.487851; 1.351040;, - -0.212250; 0.487851; 1.351040;, - -0.165471; 0.561056; 1.501566;, - -0.229117; 0.320871; 1.362858;, - 0.229117; 0.320871; 1.362858;, - 0.212250; 0.487851; 1.351040;, - 0.231310; 0.495035; 1.165344;, - -0.231310; 0.495035; 1.165344;, - -0.212250; 0.487851; 1.351040;, - -0.229117; 0.320871; 1.362858;, - 0.072105; 0.924098; 1.609134;, - 0.000000; 0.817534; 1.667264;, - 0.000000; 0.984044; 1.581655;, - 0.000000; 0.984044; 1.581655;, - 0.000000; 0.817534; 1.667264;, - -0.072105; 0.924098; 1.609134;, - 0.000000; 0.984044; 1.581655;, - 0.057068; 1.034489; 1.539421;, - 0.072105; 0.924098; 1.609134;, - -0.072105; 0.924098; 1.609134;, - -0.057068; 1.034489; 1.539421;, - 0.000000; 0.984044; 1.581655;, - 0.000000; 1.071273; 1.489068;, - 0.057068; 1.034489; 1.539421;, - 0.000000; 0.984044; 1.581655;, - 0.000000; 0.984044; 1.581655;, - -0.057068; 1.034489; 1.539421;, - 0.000000; 1.071273; 1.489068;, - 0.041296; 1.128556; 1.421006;, - 0.057068; 1.034489; 1.539421;, - 0.000000; 1.071273; 1.489068;, - 0.000000; 1.071273; 1.489068;, - -0.057068; 1.034489; 1.539421;, - -0.041296; 1.128556; 1.421006;, - 0.041296; 1.128556; 1.421006;, - 0.000000; 1.071273; 1.489068;, - 0.000000; 1.194629; 1.303304;, - 0.000000; 1.194629; 1.303304;, - 0.000000; 1.071273; 1.489068;, - -0.041296; 1.128556; 1.421006;, - 0.044886; 1.209777; 1.279658;, - 0.041296; 1.128556; 1.421006;, - 0.000000; 1.194629; 1.303304;, - 0.000000; 1.194629; 1.303304;, - -0.041296; 1.128556; 1.421006;, - -0.044886; 1.209777; 1.279658;, - 0.065744; 1.232959; 1.099483;, - 0.044886; 1.209777; 1.279658;, - 0.000000; 1.194629; 1.303304;, - 0.000000; 1.194629; 1.303304;, - -0.044886; 1.209777; 1.279658;, - -0.065744; 1.232959; 1.099483;, - 0.065744; 1.232959; 1.099483;, - 0.000000; 1.194629; 1.303304;, - 0.000000; 1.213970; 1.025055;, - 0.000000; 1.213970; 1.025055;, - 0.000000; 1.194629; 1.303304;, - -0.065744; 1.232959; 1.099483;, - 0.042333; 1.226816; 1.017269;, - 0.065744; 1.232959; 1.099483;, - 0.000000; 1.213970; 1.025055;, - 0.000000; 1.213970; 1.025055;, - -0.065744; 1.232959; 1.099483;, - -0.042333; 1.226816; 1.017269;, - 0.042333; 1.226816; 1.017269;, - 0.000000; 1.213970; 1.025055;, - 0.000000; 1.106889; 0.881869;, - 0.000000; 1.106889; 0.881869;, - 0.000000; 1.213970; 1.025055;, - -0.042333; 1.226816; 1.017269;, - 0.119568; 0.750239; 0.787188;, - 0.032572; 1.005451; 0.813342;, - 0.000000; 0.752710; 0.732702;, - 0.000000; 0.752710; 0.732702;, - -0.032572; 1.005451; 0.813342;, - -0.119568; 0.750239; 0.787188;, - 0.119568; 0.625863; 0.708215;, - 0.119568; 0.750239; 0.787188;, - 0.000000; 0.752710; 0.732702;, - 0.000000; 0.752710; 0.732702;, - -0.119568; 0.750239; 0.787188;, - -0.119568; 0.625863; 0.708215;, - 0.119568; 0.750239; 0.787188;, - 0.119568; 0.625863; 0.708215;, - 0.189875; 0.691453; 0.907093;, - -0.189875; 0.691453; 0.907093;, - -0.119568; 0.625863; 0.708215;, - -0.119568; 0.750239; 0.787188;, - 0.308864;-0.686693; 0.852102;, - 0.275935;-0.637818; 0.913679;, - 0.363393;-0.452136; 1.000084;, - -0.363393;-0.452136; 1.000084;, - -0.275935;-0.637818; 0.913679;, - -0.308864;-0.686693; 0.852102;, - 0.275935;-0.637818; 0.913679;, - 0.308864;-0.686693; 0.852102;, - 0.292441;-0.851990; 1.020433;, - -0.292441;-0.851990; 1.020433;, - -0.308864;-0.686693; 0.852102;, - -0.275935;-0.637818; 0.913679;, - 0.327771; 0.314387; 1.056560;, - 0.229117; 0.320871; 1.362858;, - 0.231310; 0.495035; 1.165344;, - -0.231310; 0.495035; 1.165344;, - -0.229117; 0.320871; 1.362858;, - -0.327771; 0.314387; 1.056560;, - 0.328976; 0.058002; 1.277812;, - 0.229117; 0.320871; 1.362858;, - 0.327771; 0.314387; 1.056560;, - -0.327771; 0.314387; 1.056560;, - -0.229117; 0.320871; 1.362858;, - -0.328976; 0.058002; 1.277812;, - 0.328976; 0.058002; 1.277812;, - 0.327771; 0.314387; 1.056560;, - 0.407957; 0.032190; 0.983111;, - -0.407957; 0.032190; 0.983111;, - -0.327771; 0.314387; 1.056560;, - -0.328976; 0.058002; 1.277812;, - 0.328976; 0.058002; 1.277812;, - 0.407957; 0.032190; 0.983111;, - 0.367653;-0.220330; 1.196632;, - -0.367653;-0.220330; 1.196632;, - -0.407957; 0.032190; 0.983111;, - -0.328976; 0.058002; 1.277812;, - 0.229117; 0.320871; 1.362858;, - 0.142266; 0.353795; 1.531699;, - 0.165471; 0.561056; 1.501566;, - -0.165471; 0.561056; 1.501566;, - -0.142266; 0.353795; 1.531699;, - -0.229117; 0.320871; 1.362858;, - 0.142266; 0.353795; 1.531699;, - 0.229117; 0.320871; 1.362858;, - 0.192123; 0.041289; 1.450684;, - -0.192123; 0.041289; 1.450684;, - -0.229117; 0.320871; 1.362858;, - -0.142266; 0.353795; 1.531699;, - 0.229117; 0.320871; 1.362858;, - 0.328976; 0.058002; 1.277812;, - 0.192123; 0.041289; 1.450684;, - -0.192123; 0.041289; 1.450684;, - -0.328976; 0.058002; 1.277812;, - -0.229117; 0.320871; 1.362858;, - 0.328976; 0.058002; 1.277812;, - 0.288326;-0.174889; 1.354642;, - 0.192123; 0.041289; 1.450684;, - -0.192123; 0.041289; 1.450684;, - -0.288326;-0.174889; 1.354642;, - -0.328976; 0.058002; 1.277812;, - 0.288326;-0.174889; 1.354642;, - 0.328976; 0.058002; 1.277812;, - 0.367653;-0.220330; 1.196632;, - -0.367653;-0.220330; 1.196632;, - -0.328976; 0.058002; 1.277812;, - -0.288326;-0.174889; 1.354642;, - 0.050175; 0.800936; 1.692368;, - 0.081987; 0.695516; 1.643651;, - 0.000000; 0.786591; 1.729150;, - 0.000000; 0.786591; 1.729150;, - -0.081987; 0.695516; 1.643651;, - -0.050175; 0.800936; 1.692368;, - 0.000000; 0.786591; 1.729150;, - 0.081987; 0.695516; 1.643651;, - 0.063385; 0.609089; 1.631486;, - -0.063385; 0.609089; 1.631486;, - -0.081987; 0.695516; 1.643651;, - 0.000000; 0.786591; 1.729150;, - 0.000000; 0.786591; 1.729150;, - 0.063385; 0.609089; 1.631486;, - 0.000000; 0.604777; 1.650908;, - 0.000000; 0.604777; 1.650908;, - -0.063385; 0.609089; 1.631486;, - 0.000000; 0.786591; 1.729150;, - 0.063385; 0.609089; 1.631486;, - 0.081987; 0.695516; 1.643651;, - 0.165471; 0.561056; 1.501566;, - -0.165471; 0.561056; 1.501566;, - -0.081987; 0.695516; 1.643651;, - -0.063385; 0.609089; 1.631486;, - 0.189875; 0.691453; 0.907093;, - 0.119568; 0.625863; 0.708215;, - 0.210712; 0.581932; 0.910432;, - -0.210712; 0.581932; 0.910432;, - -0.119568; 0.625863; 0.708215;, - -0.189875; 0.691453; 0.907093;, - 0.119568; 0.625863; 0.708215;, - 0.000000; 0.752710; 0.732702;, - 0.000000; 0.559424; 0.617612;, - 0.000000; 0.559424; 0.617612;, - 0.000000; 0.752710; 0.732702;, - -0.119568; 0.625863; 0.708215;, - 0.145532; 0.377113; 0.536779;, - 0.119568; 0.625863; 0.708215;, - 0.000000; 0.559424; 0.617612;, - 0.000000; 0.559424; 0.617612;, - -0.119568; 0.625863; 0.708215;, - -0.145532; 0.377113; 0.536779;, - 0.210712; 0.581932; 0.910432;, - 0.119568; 0.625863; 0.708215;, - 0.145532; 0.377113; 0.536779;, - -0.145532; 0.377113; 0.536779;, - -0.119568; 0.625863; 0.708215;, - -0.210712; 0.581932; 0.910432;, - 0.258579; 0.387916; 0.798726;, - 0.210712; 0.581932; 0.910432;, - 0.145532; 0.377113; 0.536779;, - -0.145532; 0.377113; 0.536779;, - -0.210712; 0.581932; 0.910432;, - -0.258579; 0.387916; 0.798726;, - 0.231310; 0.495035; 1.165344;, - 0.189875; 0.691453; 0.907093;, - 0.210712; 0.581932; 0.910432;, - -0.210712; 0.581932; 0.910432;, - -0.189875; 0.691453; 0.907093;, - -0.231310; 0.495035; 1.165344;, - 0.231310; 0.495035; 1.165344;, - 0.210712; 0.581932; 0.910432;, - 0.258579; 0.387916; 0.798726;, - -0.258579; 0.387916; 0.798726;, - -0.210712; 0.581932; 0.910432;, - -0.231310; 0.495035; 1.165344;, - 0.327771; 0.314387; 1.056560;, - 0.231310; 0.495035; 1.165344;, - 0.258579; 0.387916; 0.798726;, - -0.258579; 0.387916; 0.798726;, - -0.231310; 0.495035; 1.165344;, - -0.327771; 0.314387; 1.056560;, - 0.327771; 0.314387; 1.056560;, - 0.258579; 0.387916; 0.798726;, - 0.329207; 0.184419; 0.727147;, - -0.329207; 0.184419; 0.727147;, - -0.258579; 0.387916; 0.798726;, - -0.327771; 0.314387; 1.056560;, - 0.407957; 0.032190; 0.983111;, - 0.327771; 0.314387; 1.056560;, - 0.329207; 0.184419; 0.727147;, - -0.329207; 0.184419; 0.727147;, - -0.327771; 0.314387; 1.056560;, - -0.407957; 0.032190; 0.983111;, - 0.165471; 0.561056; 1.501566;, - 0.142266; 0.353795; 1.531699;, - 0.063385; 0.609089; 1.631486;, - -0.063385; 0.609089; 1.631486;, - -0.142266; 0.353795; 1.531699;, - -0.165471; 0.561056; 1.501566;, - 0.363393;-0.452136; 1.000084;, - 0.332133;-0.455501; 1.226028;, - 0.405135;-0.227063; 0.953023;, - -0.405135;-0.227063; 0.953023;, - -0.332133;-0.455501; 1.226028;, - -0.363393;-0.452136; 1.000084;, - 0.332133;-0.455501; 1.226028;, - 0.367653;-0.220330; 1.196632;, - 0.405135;-0.227063; 0.953023;, - -0.405135;-0.227063; 0.953023;, - -0.367653;-0.220330; 1.196632;, - -0.332133;-0.455501; 1.226028;, - 0.192123; 0.041289; 1.450684;, - 0.288326;-0.174889; 1.354642;, - 0.215257;-0.298289; 1.397633;, - -0.215257;-0.298289; 1.397633;, - -0.288326;-0.174889; 1.354642;, - -0.192123; 0.041289; 1.450684;, - 0.288326;-0.174889; 1.354642;, - 0.367653;-0.220330; 1.196632;, - 0.332133;-0.455501; 1.226028;, - -0.332133;-0.455501; 1.226028;, - -0.367653;-0.220330; 1.196632;, - -0.288326;-0.174889; 1.354642;, - 0.215257;-0.298289; 1.397633;, - 0.288326;-0.174889; 1.354642;, - 0.332133;-0.455501; 1.226028;, - -0.332133;-0.455501; 1.226028;, - -0.288326;-0.174889; 1.354642;, - -0.215257;-0.298289; 1.397633;, - 0.210720;-0.614989; 1.403131;, - 0.215257;-0.298289; 1.397633;, - 0.288900;-0.639226; 1.365501;, - -0.288900;-0.639226; 1.365501;, - -0.215257;-0.298289; 1.397633;, - -0.210720;-0.614989; 1.403131;, - 0.407957; 0.032190; 0.983111;, - 0.405135;-0.227063; 0.953023;, - 0.367653;-0.220330; 1.196632;, - -0.367653;-0.220330; 1.196632;, - -0.405135;-0.227063; 0.953023;, - -0.407957; 0.032190; 0.983111;, - 0.356785;-0.060135; 0.700196;, - 0.407957; 0.032190; 0.983111;, - 0.329207; 0.184419; 0.727147;, - -0.329207; 0.184419; 0.727147;, - -0.407957; 0.032190; 0.983111;, - -0.356785;-0.060135; 0.700196;, - 0.405135;-0.227063; 0.953023;, - 0.407957; 0.032190; 0.983111;, - 0.356785;-0.060135; 0.700196;, - -0.356785;-0.060135; 0.700196;, - -0.407957; 0.032190; 0.983111;, - -0.405135;-0.227063; 0.953023;, - 0.405135;-0.227063; 0.953023;, - 0.356785;-0.060135; 0.700196;, - 0.362138;-0.279698; 0.716437;, - -0.362138;-0.279698; 0.716437;, - -0.356785;-0.060135; 0.700196;, - -0.405135;-0.227063; 0.953023;, - 0.405135;-0.227063; 0.953023;, - 0.362138;-0.279698; 0.716437;, - 0.335152;-0.482264; 0.758233;, - -0.335152;-0.482264; 0.758233;, - -0.362138;-0.279698; 0.716437;, - -0.405135;-0.227063; 0.953023;, - 0.405135;-0.227063; 0.953023;, - 0.335152;-0.482264; 0.758233;, - 0.363393;-0.452136; 1.000084;, - -0.363393;-0.452136; 1.000084;, - -0.335152;-0.482264; 0.758233;, - -0.405135;-0.227063; 0.953023;, - 0.335152;-0.482264; 0.758233;, - 0.308864;-0.686693; 0.852102;, - 0.363393;-0.452136; 1.000084;, - -0.363393;-0.452136; 1.000084;, - -0.308864;-0.686693; 0.852102;, - -0.335152;-0.482264; 0.758233;, - 0.329207; 0.184419; 0.727147;, - 0.258579; 0.387916; 0.798726;, - 0.145532; 0.377113; 0.536779;, - -0.145532; 0.377113; 0.536779;, - -0.258579; 0.387916; 0.798726;, - -0.329207; 0.184419; 0.727147;, - 0.329207; 0.184419; 0.727147;, - 0.145532; 0.377113; 0.536779;, - 0.220875; 0.107988; 0.480121;, - -0.220875; 0.107988; 0.480121;, - -0.145532; 0.377113; 0.536779;, - -0.329207; 0.184419; 0.727147;, - 0.356785;-0.060135; 0.700196;, - 0.329207; 0.184419; 0.727147;, - 0.220875; 0.107988; 0.480121;, - -0.220875; 0.107988; 0.480121;, - -0.329207; 0.184419; 0.727147;, - -0.356785;-0.060135; 0.700196;, - 0.356785;-0.060135; 0.700196;, - 0.220875; 0.107988; 0.480121;, - 0.245306;-0.288617; 0.499007;, - -0.245306;-0.288617; 0.499007;, - -0.220875; 0.107988; 0.480121;, - -0.356785;-0.060135; 0.700196;, - 0.362138;-0.279698; 0.716437;, - 0.356785;-0.060135; 0.700196;, - 0.245306;-0.288617; 0.499007;, - -0.245306;-0.288617; 0.499007;, - -0.356785;-0.060135; 0.700196;, - -0.362138;-0.279698; 0.716437;, - 0.335152;-0.482264; 0.758233;, - 0.362138;-0.279698; 0.716437;, - 0.245306;-0.288617; 0.499007;, - -0.245306;-0.288617; 0.499007;, - -0.362138;-0.279698; 0.716437;, - -0.335152;-0.482264; 0.758233;, - 0.335152;-0.482264; 0.758233;, - 0.245306;-0.288617; 0.499007;, - 0.212903;-0.727716; 0.659538;, - -0.212903;-0.727716; 0.659538;, - -0.245306;-0.288617; 0.499007;, - -0.335152;-0.482264; 0.758233;, - 0.335152;-0.482264; 0.758233;, - 0.212903;-0.727716; 0.659538;, - 0.308864;-0.686693; 0.852102;, - -0.308864;-0.686693; 0.852102;, - -0.212903;-0.727716; 0.659538;, - -0.335152;-0.482264; 0.758233;, - 0.142266; 0.353795; 1.531699;, - 0.000000; 0.341083; 1.564379;, - 0.000000; 0.604777; 1.650908;, - 0.000000; 0.604777; 1.650908;, - 0.000000; 0.341083; 1.564379;, - -0.142266; 0.353795; 1.531699;, - 0.063385; 0.609089; 1.631486;, - 0.142266; 0.353795; 1.531699;, - 0.000000; 0.604777; 1.650908;, - 0.000000; 0.604777; 1.650908;, - -0.142266; 0.353795; 1.531699;, - -0.063385; 0.609089; 1.631486;, - 0.142266; 0.353795; 1.531699;, - 0.192123; 0.041289; 1.450684;, - 0.000000; 0.341083; 1.564379;, - 0.000000; 0.341083; 1.564379;, - -0.192123; 0.041289; 1.450684;, - -0.142266; 0.353795; 1.531699;, - 0.192123; 0.041289; 1.450684;, - 0.000000; 0.041144; 1.486365;, - 0.000000; 0.341083; 1.564379;, - 0.000000; 0.341083; 1.564379;, - 0.000000; 0.041144; 1.486365;, - -0.192123; 0.041289; 1.450684;, - 0.000000; 0.041144; 1.486365;, - 0.192123; 0.041289; 1.450684;, - 0.215257;-0.298289; 1.397633;, - -0.215257;-0.298289; 1.397633;, - -0.192123; 0.041289; 1.450684;, - 0.000000; 0.041144; 1.486365;, - 0.000000; 0.041144; 1.486365;, - 0.215257;-0.298289; 1.397633;, - 0.000000;-0.286736; 1.439396;, - 0.000000;-0.286736; 1.439396;, - -0.215257;-0.298289; 1.397633;, - 0.000000; 0.041144; 1.486365;, - 0.215257;-0.298289; 1.397633;, - 0.210720;-0.614989; 1.403131;, - 0.000000;-0.286736; 1.439396;, - 0.000000;-0.286736; 1.439396;, - -0.210720;-0.614989; 1.403131;, - -0.215257;-0.298289; 1.397633;, - 0.000000;-0.286736; 1.439396;, - 0.210720;-0.614989; 1.403131;, - 0.000000;-0.587782; 1.437343;, - 0.000000;-0.587782; 1.437343;, - -0.210720;-0.614989; 1.403131;, - 0.000000;-0.286736; 1.439396;, - 0.000000;-0.587782; 1.437343;, - 0.210720;-0.614989; 1.403131;, - 0.164306;-0.723645; 1.437280;, - -0.164306;-0.723645; 1.437280;, - -0.210720;-0.614989; 1.403131;, - 0.000000;-0.587782; 1.437343;, - 0.000000;-0.587782; 1.437343;, - 0.164306;-0.723645; 1.437280;, - 0.026810;-0.665146; 1.494077;, - -0.026810;-0.665146; 1.494077;, - -0.164306;-0.723645; 1.437280;, - 0.000000;-0.587782; 1.437343;, - 0.210720;-0.614989; 1.403131;, - 0.288900;-0.639226; 1.365501;, - 0.164306;-0.723645; 1.437280;, - -0.164306;-0.723645; 1.437280;, - -0.288900;-0.639226; 1.365501;, - -0.210720;-0.614989; 1.403131;, - 0.234882;-1.017286; 1.256954;, - 0.164306;-0.723645; 1.437280;, - 0.288900;-0.639226; 1.365501;, - -0.288900;-0.639226; 1.365501;, - -0.164306;-0.723645; 1.437280;, - -0.234882;-1.017286; 1.256954;, - 0.292441;-0.842386; 1.228215;, - 0.234882;-1.017286; 1.256954;, - 0.288900;-0.639226; 1.365501;, - -0.288900;-0.639226; 1.365501;, - -0.234882;-1.017286; 1.256954;, - -0.292441;-0.842386; 1.228215;, - 0.292441;-0.842386; 1.228215;, - 0.292441;-0.851990; 1.020433;, - 0.234882;-1.017286; 1.256954;, - -0.234882;-1.017286; 1.256954;, - -0.292441;-0.851990; 1.020433;, - -0.292441;-0.842386; 1.228215;, - 0.212903;-0.727716; 0.659538;, - 0.190735;-0.962866; 0.872005;, - 0.308864;-0.686693; 0.852102;, - -0.308864;-0.686693; 0.852102;, - -0.190735;-0.962866; 0.872005;, - -0.212903;-0.727716; 0.659538;, - 0.308864;-0.686693; 0.852102;, - 0.190735;-0.962866; 0.872005;, - 0.292441;-0.851990; 1.020433;, - -0.292441;-0.851990; 1.020433;, - -0.190735;-0.962866; 0.872005;, - -0.308864;-0.686693; 0.852102;, - 0.292441;-0.851990; 1.020433;, - 0.190735;-0.962866; 0.872005;, - 0.165946;-1.142283; 1.136409;, - -0.165946;-1.142283; 1.136409;, - -0.190735;-0.962866; 0.872005;, - -0.292441;-0.851990; 1.020433;, - 0.234882;-1.017286; 1.256954;, - 0.292441;-0.851990; 1.020433;, - 0.165946;-1.142283; 1.136409;, - -0.165946;-1.142283; 1.136409;, - -0.292441;-0.851990; 1.020433;, - -0.234882;-1.017286; 1.256954;, - 0.145532; 0.377113; 0.536779;, - 0.000000; 0.559424; 0.617612;, - 0.000000; 0.366574; 0.492036;, - 0.000000; 0.366574; 0.492036;, - 0.000000; 0.559424; 0.617612;, - -0.145532; 0.377113; 0.536779;, - 0.145532; 0.377113; 0.536779;, - 0.000000; 0.366574; 0.492036;, - 0.000000; 0.097482; 0.429247;, - 0.000000; 0.097482; 0.429247;, - 0.000000; 0.366574; 0.492036;, - -0.145532; 0.377113; 0.536779;, - 0.220875; 0.107988; 0.480121;, - 0.145532; 0.377113; 0.536779;, - 0.000000; 0.097482; 0.429247;, - 0.000000; 0.097482; 0.429247;, - -0.145532; 0.377113; 0.536779;, - -0.220875; 0.107988; 0.480121;, - 0.220875; 0.107988; 0.480121;, - 0.000000; 0.097482; 0.429247;, - 0.000000;-0.292703; 0.447187;, - 0.000000;-0.292703; 0.447187;, - 0.000000; 0.097482; 0.429247;, - -0.220875; 0.107988; 0.480121;, - 0.245306;-0.288617; 0.499007;, - 0.220875; 0.107988; 0.480121;, - 0.000000;-0.292703; 0.447187;, - 0.000000;-0.292703; 0.447187;, - -0.220875; 0.107988; 0.480121;, - -0.245306;-0.288617; 0.499007;, - 0.245306;-0.288617; 0.499007;, - 0.000000;-0.292703; 0.447187;, - 0.000000;-0.763616; 0.608642;, - 0.000000;-0.763616; 0.608642;, - 0.000000;-0.292703; 0.447187;, - -0.245306;-0.288617; 0.499007;, - 0.212903;-0.727716; 0.659538;, - 0.245306;-0.288617; 0.499007;, - 0.000000;-0.763616; 0.608642;, - 0.000000;-0.763616; 0.608642;, - -0.245306;-0.288617; 0.499007;, - -0.212903;-0.727716; 0.659538;, - 0.212903;-0.727716; 0.659538;, - 0.000000;-0.763616; 0.608642;, - 0.000000;-1.028224; 0.828402;, - 0.000000;-1.028224; 0.828402;, - 0.000000;-0.763616; 0.608642;, - -0.212903;-0.727716; 0.659538;, - 0.190735;-0.962866; 0.872005;, - 0.212903;-0.727716; 0.659538;, - 0.000000;-1.028224; 0.828402;, - 0.000000;-1.028224; 0.828402;, - -0.212903;-0.727716; 0.659538;, - -0.190735;-0.962866; 0.872005;, - 0.190735;-0.962866; 0.872005;, - 0.000000;-1.028224; 0.828402;, - 0.000000;-1.189679; 1.061615;, - 0.000000;-1.189679; 1.061615;, - 0.000000;-1.028224; 0.828402;, - -0.190735;-0.962866; 0.872005;, - 0.165946;-1.142283; 1.136409;, - 0.190735;-0.962866; 0.872005;, - 0.000000;-1.189679; 1.061615;, - 0.000000;-1.189679; 1.061615;, - -0.190735;-0.962866; 0.872005;, - -0.165946;-1.142283; 1.136409;, - 0.165946;-1.142283; 1.136409;, - 0.000000;-1.189679; 1.061615;, - 0.000000;-1.365178; 1.515733;, - 0.000000;-1.365178; 1.515733;, - 0.000000;-1.189679; 1.061615;, - -0.165946;-1.142283; 1.136409;, - 0.138152;-1.321666; 1.537960;, - 0.165946;-1.142283; 1.136409;, - 0.000000;-1.365178; 1.515733;, - 0.000000;-1.365178; 1.515733;, - -0.165946;-1.142283; 1.136409;, - -0.138152;-1.321666; 1.537960;, - 0.138152;-1.321666; 1.537960;, - 0.000000;-1.365178; 1.515733;, - 0.000000;-1.428196; 1.951539;, - 0.000000;-1.428196; 1.951539;, - 0.000000;-1.365178; 1.515733;, - -0.138152;-1.321666; 1.537960;, - 0.117741;-1.397222; 1.954546;, - 0.138152;-1.321666; 1.537960;, - 0.000000;-1.428196; 1.951539;, - 0.000000;-1.428196; 1.951539;, - -0.138152;-1.321666; 1.537960;, - -0.117741;-1.397222; 1.954546;, - 0.117741;-1.397222; 1.954546;, - 0.000000;-1.428196; 1.951539;, - 0.000000;-1.531275; 2.199937;, - 0.000000;-1.531275; 2.199937;, - 0.000000;-1.428196; 1.951539;, - -0.117741;-1.397222; 1.954546;, - 0.101160;-1.504185; 2.221784;, - 0.117741;-1.397222; 1.954546;, - 0.000000;-1.531275; 2.199937;, - 0.000000;-1.531275; 2.199937;, - -0.117741;-1.397222; 1.954546;, - -0.101160;-1.504185; 2.221784;, - 0.101160;-1.504185; 2.221784;, - 0.000000;-1.531275; 2.199937;, - 0.000000;-1.439404; 2.139428;, - 0.000000;-1.439404; 2.139428;, - 0.000000;-1.531275; 2.199937;, - -0.101160;-1.504185; 2.221784;, - 0.100715;-1.427071; 2.181954;, - 0.101160;-1.504185; 2.221784;, - 0.000000;-1.439404; 2.139428;, - 0.000000;-1.439404; 2.139428;, - -0.101160;-1.504185; 2.221784;, - -0.100715;-1.427071; 2.181954;, - 0.234882;-1.017286; 1.256954;, - 0.165946;-1.142283; 1.136409;, - 0.138152;-1.321666; 1.537960;, - -0.138152;-1.321666; 1.537960;, - -0.165946;-1.142283; 1.136409;, - -0.234882;-1.017286; 1.256954;, - 0.205130;-1.138868; 1.615375;, - 0.234882;-1.017286; 1.256954;, - 0.138152;-1.321666; 1.537960;, - -0.138152;-1.321666; 1.537960;, - -0.234882;-1.017286; 1.256954;, - -0.205130;-1.138868; 1.615375;, - 0.205130;-1.138868; 1.615375;, - 0.138152;-1.321666; 1.537960;, - 0.117741;-1.397222; 1.954546;, - -0.117741;-1.397222; 1.954546;, - -0.138152;-1.321666; 1.537960;, - -0.205130;-1.138868; 1.615375;, - 0.167172;-1.217022; 2.053065;, - 0.205130;-1.138868; 1.615375;, - 0.117741;-1.397222; 1.954546;, - -0.117741;-1.397222; 1.954546;, - -0.205130;-1.138868; 1.615375;, - -0.167172;-1.217022; 2.053065;, - 0.167172;-1.217022; 2.053065;, - 0.117741;-1.397222; 1.954546;, - 0.101160;-1.504185; 2.221784;, - -0.101160;-1.504185; 2.221784;, - -0.117741;-1.397222; 1.954546;, - -0.167172;-1.217022; 2.053065;, - 0.142531;-1.349507; 2.391346;, - 0.167172;-1.217022; 2.053065;, - 0.101160;-1.504185; 2.221784;, - -0.101160;-1.504185; 2.221784;, - -0.167172;-1.217022; 2.053065;, - -0.142531;-1.349507; 2.391346;, - 0.142531;-1.349507; 2.391346;, - 0.101160;-1.504185; 2.221784;, - 0.157463;-1.434863; 2.346243;, - -0.157463;-1.434863; 2.346243;, - -0.101160;-1.504185; 2.221784;, - -0.142531;-1.349507; 2.391346;, - 0.101160;-1.504185; 2.221784;, - 0.100715;-1.427071; 2.181954;, - 0.157463;-1.434863; 2.346243;, - -0.157463;-1.434863; 2.346243;, - -0.100715;-1.427071; 2.181954;, - -0.101160;-1.504185; 2.221784;, - 0.140179;-1.410462; 2.475727;, - 0.142531;-1.349507; 2.391346;, - 0.157463;-1.434863; 2.346243;, - -0.157463;-1.434863; 2.346243;, - -0.142531;-1.349507; 2.391346;, - -0.140179;-1.410462; 2.475727;, - 0.234882;-1.017286; 1.256954;, - 0.205130;-1.138868; 1.615375;, - 0.164306;-0.723645; 1.437280;, - -0.164306;-0.723645; 1.437280;, - -0.205130;-1.138868; 1.615375;, - -0.234882;-1.017286; 1.256954;, - 0.164306;-0.723645; 1.437280;, - 0.205130;-1.138868; 1.615375;, - 0.142748;-0.880074; 1.735467;, - -0.142748;-0.880074; 1.735467;, - -0.205130;-1.138868; 1.615375;, - -0.164306;-0.723645; 1.437280;, - 0.205130;-1.138868; 1.615375;, - 0.167172;-1.217022; 2.053065;, - 0.142748;-0.880074; 1.735467;, - -0.142748;-0.880074; 1.735467;, - -0.167172;-1.217022; 2.053065;, - -0.205130;-1.138868; 1.615375;, - 0.142748;-0.880074; 1.735467;, - 0.167172;-1.217022; 2.053065;, - 0.117526;-1.040969; 2.216855;, - -0.117526;-1.040969; 2.216855;, - -0.167172;-1.217022; 2.053065;, - -0.142748;-0.880074; 1.735467;, - 0.167172;-1.217022; 2.053065;, - 0.142531;-1.349507; 2.391346;, - 0.117526;-1.040969; 2.216855;, - -0.117526;-1.040969; 2.216855;, - -0.142531;-1.349507; 2.391346;, - -0.167172;-1.217022; 2.053065;, - 0.117526;-1.040969; 2.216855;, - 0.142531;-1.349507; 2.391346;, - 0.097239;-1.198361; 2.580092;, - -0.097239;-1.198361; 2.580092;, - -0.142531;-1.349507; 2.391346;, - -0.117526;-1.040969; 2.216855;, - 0.142531;-1.349507; 2.391346;, - 0.140179;-1.410462; 2.475727;, - 0.097239;-1.198361; 2.580092;, - -0.097239;-1.198361; 2.580092;, - -0.140179;-1.410462; 2.475727;, - -0.142531;-1.349507; 2.391346;, - 0.140179;-1.410462; 2.475727;, - 0.157463;-1.434863; 2.346243;, - 0.134998;-1.480021; 2.598695;, - -0.134998;-1.480021; 2.598695;, - -0.157463;-1.434863; 2.346243;, - -0.140179;-1.410462; 2.475727;, - 0.097239;-1.198361; 2.580092;, - 0.140179;-1.410462; 2.475727;, - 0.134998;-1.480021; 2.598695;, - -0.134998;-1.480021; 2.598695;, - -0.140179;-1.410462; 2.475727;, - -0.097239;-1.198361; 2.580092;, - 0.067149;-1.470230; 2.812053;, - 0.097239;-1.198361; 2.580092;, - 0.134998;-1.480021; 2.598695;, - -0.134998;-1.480021; 2.598695;, - -0.097239;-1.198361; 2.580092;, - -0.067149;-1.470230; 2.812053;, - 0.067149;-1.470230; 2.812053;, - 0.134998;-1.480021; 2.598695;, - 0.056849;-1.589789; 2.866309;, - -0.056849;-1.589789; 2.866309;, - -0.134998;-1.480021; 2.598695;, - -0.067149;-1.470230; 2.812053;, - 0.164306;-0.723645; 1.437280;, - 0.142748;-0.880074; 1.735467;, - 0.026810;-0.665146; 1.494077;, - -0.026810;-0.665146; 1.494077;, - -0.142748;-0.880074; 1.735467;, - -0.164306;-0.723645; 1.437280;, - 0.026810;-0.665146; 1.494077;, - 0.142748;-0.880074; 1.735467;, - 0.026810;-0.823478; 1.764419;, - -0.026810;-0.823478; 1.764419;, - -0.142748;-0.880074; 1.735467;, - -0.026810;-0.665146; 1.494077;, - 0.142748;-0.880074; 1.735467;, - 0.117526;-1.040969; 2.216855;, - 0.026810;-0.823478; 1.764419;, - -0.026810;-0.823478; 1.764419;, - -0.117526;-1.040969; 2.216855;, - -0.142748;-0.880074; 1.735467;, - 0.026810;-0.823478; 1.764419;, - 0.117526;-1.040969; 2.216855;, - 0.026810;-0.990985; 2.231068;, - -0.026810;-0.990985; 2.231068;, - -0.117526;-1.040969; 2.216855;, - -0.026810;-0.823478; 1.764419;, - 0.117526;-1.040969; 2.216855;, - 0.097239;-1.198361; 2.580092;, - 0.026810;-0.990985; 2.231068;, - -0.026810;-0.990985; 2.231068;, - -0.097239;-1.198361; 2.580092;, - -0.117526;-1.040969; 2.216855;, - 0.026810;-0.990985; 2.231068;, - 0.097239;-1.198361; 2.580092;, - 0.026810;-1.161727; 2.598072;, - -0.026810;-1.161727; 2.598072;, - -0.097239;-1.198361; 2.580092;, - -0.026810;-0.990985; 2.231068;, - 0.097239;-1.198361; 2.580092;, - 0.067149;-1.470230; 2.812053;, - 0.026810;-1.161727; 2.598072;, - -0.026810;-1.161727; 2.598072;, - -0.067149;-1.470230; 2.812053;, - -0.097239;-1.198361; 2.580092;, - 0.026810;-1.161727; 2.598072;, - 0.067149;-1.470230; 2.812053;, - 0.026810;-1.457162; 2.840211;, - -0.026810;-1.457162; 2.840211;, - -0.067149;-1.470230; 2.812053;, - -0.026810;-1.161727; 2.598072;, - 0.026810;-1.457162; 2.840211;, - 0.067149;-1.470230; 2.812053;, - 0.056849;-1.589789; 2.866309;, - -0.056849;-1.589789; 2.866309;, - -0.067149;-1.470230; 2.812053;, - -0.026810;-1.457162; 2.840211;, - 0.056849;-1.589789; 2.866309;, - 0.027989;-1.577745; 2.900939;, - 0.026810;-1.457162; 2.840211;, - -0.026810;-1.457162; 2.840211;, - -0.027989;-1.577745; 2.900939;, - -0.056849;-1.589789; 2.866309;, - 0.212250; 0.487851; 1.351040;, - 0.165471; 0.561056; 1.501566;, - 0.171156; 0.487851; 1.351040;, - -0.171156; 0.487851; 1.351040;, - -0.165471; 0.561056; 1.501566;, - -0.212250; 0.487851; 1.351040;, - 0.231310; 0.495035; 1.165344;, - 0.212250; 0.487851; 1.351040;, - 0.171156; 0.487851; 1.351040;, - -0.171156; 0.487851; 1.351040;, - -0.212250; 0.487851; 1.351040;, - -0.231310; 0.495035; 1.165344;, - 0.189008; 0.453526; 1.141130;, - 0.231310; 0.495035; 1.165344;, - 0.171156; 0.487851; 1.351040;, - -0.171156; 0.487851; 1.351040;, - -0.231310; 0.495035; 1.165344;, - -0.189008; 0.453526; 1.141130;, - 0.189875; 0.691453; 0.907093;, - 0.141135; 0.649944; 0.882880;, - 0.148245; 0.797670; 0.840422;, - -0.148245; 0.797670; 0.840422;, - -0.141135; 0.649944; 0.882880;, - -0.189875; 0.691453; 0.907093;, - 0.032572; 1.005451; 0.813342;, - 0.148245; 0.797670; 0.840422;, - 0.144724; 0.817529; 0.765825;, - -0.144724; 0.817529; 0.765825;, - -0.148245; 0.797670; 0.840422;, - -0.032572; 1.005451; 0.813342;, - 0.434369; 0.667962; 1.313605;, - 0.267169; 0.447483; 1.371768;, - 0.165471; 0.561056; 1.501566;, - -0.165471; 0.561056; 1.501566;, - -0.267169; 0.447483; 1.371768;, - -0.434369; 0.667962; 1.313605;, - 0.249127; 0.808046; 1.508595;, - 0.434369; 0.667962; 1.313605;, - 0.165471; 0.561056; 1.501566;, - -0.165471; 0.561056; 1.501566;, - -0.434369; 0.667962; 1.313605;, - -0.249127; 0.808046; 1.508595;, - 0.267169; 0.447483; 1.371768;, - 0.171156; 0.487851; 1.351040;, - 0.165471; 0.561056; 1.501566;, - -0.165471; 0.561056; 1.501566;, - -0.171156; 0.487851; 1.351040;, - -0.267169; 0.447483; 1.371768;, - 0.141135; 0.649944; 0.882880;, - 0.144724; 0.817529; 0.765825;, - 0.148245; 0.797670; 0.840422;, - -0.148245; 0.797670; 0.840422;, - -0.144724; 0.817529; 0.765825;, - -0.141135; 0.649944; 0.882880;, - 0.041296; 1.128556; 1.421006;, - 0.163374; 1.069692; 1.483244;, - 0.057068; 1.034489; 1.539421;, - -0.057068; 1.034489; 1.539421;, - -0.163374; 1.069692; 1.483244;, - -0.041296; 1.128556; 1.421006;, - 0.250463; 1.016473; 1.488161;, - 0.249127; 0.808046; 1.508595;, - 0.072105; 0.924098; 1.609134;, - -0.072105; 0.924098; 1.609134;, - -0.249127; 0.808046; 1.508595;, - -0.250463; 1.016473; 1.488161;, - 0.072105; 0.924098; 1.609134;, - 0.249127; 0.808046; 1.508595;, - 0.081987; 0.695516; 1.643651;, - -0.081987; 0.695516; 1.643651;, - -0.249127; 0.808046; 1.508595;, - -0.072105; 0.924098; 1.609134;, - 0.165471; 0.561056; 1.501566;, - 0.081987; 0.695516; 1.643651;, - 0.249127; 0.808046; 1.508595;, - -0.249127; 0.808046; 1.508595;, - -0.081987; 0.695516; 1.643651;, - -0.165471; 0.561056; 1.501566;, - 0.189875; 0.691453; 0.907093;, - 0.231310; 0.495035; 1.165344;, - 0.141135; 0.649944; 0.882880;, - -0.141135; 0.649944; 0.882880;, - -0.231310; 0.495035; 1.165344;, - -0.189875; 0.691453; 0.907093;, - 0.231310; 0.495035; 1.165344;, - 0.189008; 0.453526; 1.141130;, - 0.141135; 0.649944; 0.882880;, - -0.141135; 0.649944; 0.882880;, - -0.189008; 0.453526; 1.141130;, - -0.231310; 0.495035; 1.165344;, - 0.072105; 0.924098; 1.609134;, - 0.057068; 1.034489; 1.539421;, - 0.163374; 1.069692; 1.483244;, - -0.163374; 1.069692; 1.483244;, - -0.057068; 1.034489; 1.539421;, - -0.072105; 0.924098; 1.609134;, - 0.250463; 1.016473; 1.488161;, - 0.072105; 0.924098; 1.609134;, - 0.163374; 1.069692; 1.483244;, - -0.163374; 1.069692; 1.483244;, - -0.072105; 0.924098; 1.609134;, - -0.250463; 1.016473; 1.488161;, - 0.335624;-1.080420;-0.644037;, - 0.335653;-0.868103;-0.639899;, - 0.266857;-1.011364;-0.647138;, - -0.266857;-1.011364;-0.647138;, - -0.335653;-0.868103;-0.639899;, - -0.335624;-1.080420;-0.644037;, - 0.266857;-1.011364;-0.647138;, - 0.335653;-0.868103;-0.639899;, - 0.203704;-0.906823;-0.650807;, - -0.203704;-0.906823;-0.650807;, - -0.335653;-0.868103;-0.639899;, - -0.266857;-1.011364;-0.647138;, - 0.169137;-0.793491;-0.655456;, - 0.203704;-0.906823;-0.650807;, - 0.335653;-0.868103;-0.639899;, - -0.335653;-0.868103;-0.639899;, - -0.203704;-0.906823;-0.650807;, - -0.169137;-0.793491;-0.655456;, - 0.169137;-0.793491;-0.655456;, - 0.335653;-0.868103;-0.639899;, - 0.160144;-0.701634;-0.650325;, - -0.160144;-0.701634;-0.650325;, - -0.335653;-0.868103;-0.639899;, - -0.169137;-0.793491;-0.655456;, - 0.160144;-0.701634;-0.650325;, - 0.335653;-0.868103;-0.639899;, - 0.335653;-0.681200;-0.648556;, - -0.335653;-0.681200;-0.648556;, - -0.335653;-0.868103;-0.639899;, - -0.160144;-0.701634;-0.650325;, - 0.335653;-0.681200;-0.648556;, - 0.335653;-0.868103;-0.639899;, - 0.511161;-0.701634;-0.650325;, - -0.511161;-0.701634;-0.650325;, - -0.335653;-0.868103;-0.639899;, - -0.335653;-0.681200;-0.648556;, - 0.511161;-0.701634;-0.650325;, - 0.335653;-0.868103;-0.639899;, - 0.502168;-0.793491;-0.655456;, - -0.502168;-0.793491;-0.655456;, - -0.335653;-0.868103;-0.639899;, - -0.511161;-0.701634;-0.650325;, - 0.502168;-0.793491;-0.655456;, - 0.335653;-0.868103;-0.639899;, - 0.467602;-0.906823;-0.650807;, - -0.467602;-0.906823;-0.650807;, - -0.335653;-0.868103;-0.639899;, - -0.502168;-0.793491;-0.655456;, - 0.467602;-0.906823;-0.650807;, - 0.335653;-0.868103;-0.639899;, - 0.404448;-1.011364;-0.647138;, - -0.404448;-1.011364;-0.647138;, - -0.335653;-0.868103;-0.639899;, - -0.467602;-0.906823;-0.650807;, - 0.404448;-1.011364;-0.647138;, - 0.335653;-0.868103;-0.639899;, - 0.335624;-1.080420;-0.644037;, - -0.335624;-1.080420;-0.644037;, - -0.335653;-0.868103;-0.639899;, - -0.404448;-1.011364;-0.647138;, - 0.292204;-0.760878;-0.516775;, - 0.226999;-0.722559;-0.586876;, - 0.340486;-0.715589;-0.583836;, - -0.340486;-0.715589;-0.583836;, - -0.226999;-0.722559;-0.586876;, - -0.292204;-0.760878;-0.516775;, - 0.340486;-0.715589;-0.583836;, - 0.226999;-0.722559;-0.586876;, - 0.335653;-0.704959;-0.616812;, - -0.335653;-0.704959;-0.616812;, - -0.226999;-0.722559;-0.586876;, - -0.340486;-0.715589;-0.583836;, - 0.160144;-0.701634;-0.650325;, - 0.335653;-0.681200;-0.648556;, - 0.183199;-0.704645;-0.615195;, - -0.183199;-0.704645;-0.615195;, - -0.335653;-0.681200;-0.648556;, - -0.160144;-0.701634;-0.650325;, - 0.335653;-0.681200;-0.648556;, - 0.335653;-0.704959;-0.616812;, - 0.183199;-0.704645;-0.615195;, - -0.183199;-0.704645;-0.615195;, - -0.335653;-0.704959;-0.616812;, - -0.335653;-0.681200;-0.648556;, - 0.335653;-0.704959;-0.616812;, - 0.226999;-0.722559;-0.586876;, - 0.183199;-0.704645;-0.615195;, - -0.183199;-0.704645;-0.615195;, - -0.226999;-0.722559;-0.586876;, - -0.335653;-0.704959;-0.616812;, - 0.183199;-0.704645;-0.615195;, - 0.226999;-0.722559;-0.586876;, - 0.208673;-0.730060;-0.577277;, - -0.208673;-0.730060;-0.577277;, - -0.226999;-0.722559;-0.586876;, - -0.183199;-0.704645;-0.615195;, - 0.208673;-0.730060;-0.577277;, - 0.226999;-0.722559;-0.586876;, - 0.256638;-0.765151;-0.523216;, - -0.256638;-0.765151;-0.523216;, - -0.226999;-0.722559;-0.586876;, - -0.208673;-0.730060;-0.577277;, - 0.256638;-0.765151;-0.523216;, - 0.226999;-0.722559;-0.586876;, - 0.292204;-0.760878;-0.516775;, - -0.292204;-0.760878;-0.516775;, - -0.226999;-0.722559;-0.586876;, - -0.256638;-0.765151;-0.523216;, - 0.256638;-0.765151;-0.523216;, - 0.292204;-0.760878;-0.516775;, - 0.335683;-0.779339;-0.476978;, - -0.335683;-0.779339;-0.476978;, - -0.292204;-0.760878;-0.516775;, - -0.256638;-0.765151;-0.523216;, - 0.335624;-0.796569;-0.467980;, - 0.256638;-0.765151;-0.523216;, - 0.335683;-0.779339;-0.476978;, - -0.335683;-0.779339;-0.476978;, - -0.256638;-0.765151;-0.523216;, - -0.335624;-0.796569;-0.467980;, - 0.335683;-0.779339;-0.476978;, - 0.381336;-0.760780;-0.516767;, - 0.335624;-0.796569;-0.467980;, - -0.335624;-0.796569;-0.467980;, - -0.381336;-0.760780;-0.516767;, - -0.335683;-0.779339;-0.476978;, - 0.414667;-0.765151;-0.523216;, - 0.335624;-0.796569;-0.467980;, - 0.381336;-0.760780;-0.516767;, - -0.381336;-0.760780;-0.516767;, - -0.335624;-0.796569;-0.467980;, - -0.414667;-0.765151;-0.523216;, - 0.446541;-0.722316;-0.586855;, - 0.414667;-0.765151;-0.523216;, - 0.381336;-0.760780;-0.516767;, - -0.381336;-0.760780;-0.516767;, - -0.414667;-0.765151;-0.523216;, - -0.446541;-0.722316;-0.586855;, - 0.446541;-0.722316;-0.586855;, - 0.462632;-0.730060;-0.577277;, - 0.414667;-0.765151;-0.523216;, - -0.414667;-0.765151;-0.523216;, - -0.462632;-0.730060;-0.577277;, - -0.446541;-0.722316;-0.586855;, - 0.462632;-0.730060;-0.577277;, - 0.446541;-0.722316;-0.586855;, - 0.488106;-0.704645;-0.615195;, - -0.488106;-0.704645;-0.615195;, - -0.446541;-0.722316;-0.586855;, - -0.462632;-0.730060;-0.577277;, - 0.446541;-0.722316;-0.586855;, - 0.335653;-0.704959;-0.616812;, - 0.488106;-0.704645;-0.615195;, - -0.488106;-0.704645;-0.615195;, - -0.335653;-0.704959;-0.616812;, - -0.446541;-0.722316;-0.586855;, - 0.335653;-0.681200;-0.648556;, - 0.511161;-0.701634;-0.650325;, - 0.488106;-0.704645;-0.615195;, - -0.488106;-0.704645;-0.615195;, - -0.511161;-0.701634;-0.650325;, - -0.335653;-0.681200;-0.648556;, - 0.335653;-0.704959;-0.616812;, - 0.335653;-0.681200;-0.648556;, - 0.488106;-0.704645;-0.615195;, - -0.488106;-0.704645;-0.615195;, - -0.335653;-0.681200;-0.648556;, - -0.335653;-0.704959;-0.616812;, - 0.446541;-0.722316;-0.586855;, - 0.340486;-0.715589;-0.583836;, - 0.335653;-0.704959;-0.616812;, - -0.335653;-0.704959;-0.616812;, - -0.340486;-0.715589;-0.583836;, - -0.446541;-0.722316;-0.586855;, - 0.446541;-0.722316;-0.586855;, - 0.381336;-0.760780;-0.516767;, - 0.340486;-0.715589;-0.583836;, - -0.340486;-0.715589;-0.583836;, - -0.381336;-0.760780;-0.516767;, - -0.446541;-0.722316;-0.586855;, - 0.404448;-1.011364;-0.647138;, - 0.335624;-1.080420;-0.644037;, - 0.436211;-0.928537;-0.587466;, - -0.436211;-0.928537;-0.587466;, - -0.335624;-1.080420;-0.644037;, - -0.404448;-1.011364;-0.647138;, - 0.335624;-1.080420;-0.644037;, - 0.335624;-0.960115;-0.551648;, - 0.436211;-0.928537;-0.587466;, - -0.436211;-0.928537;-0.587466;, - -0.335624;-0.960115;-0.551648;, - -0.335624;-1.080420;-0.644037;, - 0.436211;-0.928537;-0.587466;, - 0.467602;-0.906823;-0.650807;, - 0.404448;-1.011364;-0.647138;, - -0.404448;-1.011364;-0.647138;, - -0.467602;-0.906823;-0.650807;, - -0.436211;-0.928537;-0.587466;, - 0.436211;-0.928537;-0.587466;, - 0.483073;-0.798583;-0.597679;, - 0.467602;-0.906823;-0.650807;, - -0.467602;-0.906823;-0.650807;, - -0.483073;-0.798583;-0.597679;, - -0.436211;-0.928537;-0.587466;, - 0.467602;-0.906823;-0.650807;, - 0.483073;-0.798583;-0.597679;, - 0.502168;-0.793491;-0.655456;, - -0.502168;-0.793491;-0.655456;, - -0.483073;-0.798583;-0.597679;, - -0.467602;-0.906823;-0.650807;, - 0.502168;-0.793491;-0.655456;, - 0.483073;-0.798583;-0.597679;, - 0.511161;-0.701634;-0.650325;, - -0.511161;-0.701634;-0.650325;, - -0.483073;-0.798583;-0.597679;, - -0.502168;-0.793491;-0.655456;, - 0.483073;-0.798583;-0.597679;, - 0.488106;-0.704645;-0.615195;, - 0.511161;-0.701634;-0.650325;, - -0.511161;-0.701634;-0.650325;, - -0.488106;-0.704645;-0.615195;, - -0.483073;-0.798583;-0.597679;, - 0.462632;-0.730060;-0.577277;, - 0.488106;-0.704645;-0.615195;, - 0.483073;-0.798583;-0.597679;, - -0.483073;-0.798583;-0.597679;, - -0.488106;-0.704645;-0.615195;, - -0.462632;-0.730060;-0.577277;, - 0.462632;-0.730060;-0.577277;, - 0.483073;-0.798583;-0.597679;, - 0.414667;-0.765151;-0.523216;, - -0.414667;-0.765151;-0.523216;, - -0.483073;-0.798583;-0.597679;, - -0.462632;-0.730060;-0.577277;, - 0.483073;-0.798583;-0.597679;, - 0.436211;-0.928537;-0.587466;, - 0.414667;-0.765151;-0.523216;, - -0.414667;-0.765151;-0.523216;, - -0.436211;-0.928537;-0.587466;, - -0.483073;-0.798583;-0.597679;, - 0.436211;-0.928537;-0.587466;, - 0.335624;-0.796569;-0.467980;, - 0.414667;-0.765151;-0.523216;, - -0.414667;-0.765151;-0.523216;, - -0.335624;-0.796569;-0.467980;, - -0.436211;-0.928537;-0.587466;, - 0.436211;-0.928537;-0.587466;, - 0.335624;-0.960115;-0.551648;, - 0.335624;-0.796569;-0.467980;, - -0.335624;-0.796569;-0.467980;, - -0.335624;-0.960115;-0.551648;, - -0.436211;-0.928537;-0.587466;, - 0.335624;-0.960115;-0.551648;, - 0.235094;-0.928537;-0.587466;, - 0.335624;-0.796569;-0.467980;, - -0.335624;-0.796569;-0.467980;, - -0.235094;-0.928537;-0.587466;, - -0.335624;-0.960115;-0.551648;, - 0.335624;-1.080420;-0.644037;, - 0.235094;-0.928537;-0.587466;, - 0.335624;-0.960115;-0.551648;, - -0.335624;-0.960115;-0.551648;, - -0.235094;-0.928537;-0.587466;, - -0.335624;-1.080420;-0.644037;, - 0.266857;-1.011364;-0.647138;, - 0.235094;-0.928537;-0.587466;, - 0.335624;-1.080420;-0.644037;, - -0.335624;-1.080420;-0.644037;, - -0.235094;-0.928537;-0.587466;, - -0.266857;-1.011364;-0.647138;, - 0.203704;-0.906823;-0.650807;, - 0.235094;-0.928537;-0.587466;, - 0.266857;-1.011364;-0.647138;, - -0.266857;-1.011364;-0.647138;, - -0.235094;-0.928537;-0.587466;, - -0.203704;-0.906823;-0.650807;, - 0.335624;-0.796569;-0.467980;, - 0.235094;-0.928537;-0.587466;, - 0.256638;-0.765151;-0.523216;, - -0.256638;-0.765151;-0.523216;, - -0.235094;-0.928537;-0.587466;, - -0.335624;-0.796569;-0.467980;, - 0.235094;-0.928537;-0.587466;, - 0.188232;-0.798583;-0.597679;, - 0.256638;-0.765151;-0.523216;, - -0.256638;-0.765151;-0.523216;, - -0.188232;-0.798583;-0.597679;, - -0.235094;-0.928537;-0.587466;, - 0.256638;-0.765151;-0.523216;, - 0.188232;-0.798583;-0.597679;, - 0.208673;-0.730060;-0.577277;, - -0.208673;-0.730060;-0.577277;, - -0.188232;-0.798583;-0.597679;, - -0.256638;-0.765151;-0.523216;, - 0.188232;-0.798583;-0.597679;, - 0.183199;-0.704645;-0.615195;, - 0.208673;-0.730060;-0.577277;, - -0.208673;-0.730060;-0.577277;, - -0.183199;-0.704645;-0.615195;, - -0.188232;-0.798583;-0.597679;, - 0.188232;-0.798583;-0.597679;, - 0.160144;-0.701634;-0.650325;, - 0.183199;-0.704645;-0.615195;, - -0.183199;-0.704645;-0.615195;, - -0.160144;-0.701634;-0.650325;, - -0.188232;-0.798583;-0.597679;, - 0.188232;-0.798583;-0.597679;, - 0.169137;-0.793491;-0.655456;, - 0.160144;-0.701634;-0.650325;, - -0.160144;-0.701634;-0.650325;, - -0.169137;-0.793491;-0.655456;, - -0.188232;-0.798583;-0.597679;, - 0.188232;-0.798583;-0.597679;, - 0.203704;-0.906823;-0.650807;, - 0.169137;-0.793491;-0.655456;, - -0.169137;-0.793491;-0.655456;, - -0.203704;-0.906823;-0.650807;, - -0.188232;-0.798583;-0.597679;, - 0.188232;-0.798583;-0.597679;, - 0.235094;-0.928537;-0.587466;, - 0.203704;-0.906823;-0.650807;, - -0.203704;-0.906823;-0.650807;, - -0.235094;-0.928537;-0.587466;, - -0.188232;-0.798583;-0.597679;, - 0.326450;-1.651670; 3.223312;, - 0.202974;-1.589234; 3.088273;, - 0.282577;-1.695694; 3.128920;, - -0.282577;-1.695694; 3.128920;, - -0.202974;-1.589234; 3.088273;, - -0.326450;-1.651670; 3.223312;, - 0.202974;-1.589234; 3.088273;, - 0.326450;-1.651670; 3.223312;, - 0.343419;-1.572495; 3.307000;, - -0.343419;-1.572495; 3.307000;, - -0.326450;-1.651670; 3.223312;, - -0.202974;-1.589234; 3.088273;, - 0.351146;-1.554616; 3.249883;, - 0.202974;-1.589234; 3.088273;, - 0.343419;-1.572495; 3.307000;, - -0.343419;-1.572495; 3.307000;, - -0.202974;-1.589234; 3.088273;, - -0.351146;-1.554616; 3.249883;, - 0.351146;-1.554616; 3.249883;, - 0.341797;-1.550831; 3.148826;, - 0.202974;-1.589234; 3.088273;, - -0.202974;-1.589234; 3.088273;, - -0.341797;-1.550831; 3.148826;, - -0.351146;-1.554616; 3.249883;, - 0.202974;-1.589234; 3.088273;, - 0.341797;-1.550831; 3.148826;, - 0.296877;-1.555579; 3.069713;, - -0.296877;-1.555579; 3.069713;, - -0.341797;-1.550831; 3.148826;, - -0.202974;-1.589234; 3.088273;, - 0.296877;-1.555579; 3.069713;, - 0.220757;-1.565290; 3.006733;, - 0.202974;-1.589234; 3.088273;, - -0.202974;-1.589234; 3.088273;, - -0.220757;-1.565290; 3.006733;, - -0.296877;-1.555579; 3.069713;, - 0.202974;-1.589234; 3.088273;, - 0.220757;-1.565290; 3.006733;, - 0.052767;-1.622468; 2.903241;, - -0.052767;-1.622468; 2.903241;, - -0.220757;-1.565290; 3.006733;, - -0.202974;-1.589234; 3.088273;, - 0.282577;-1.695694; 3.128920;, - 0.202974;-1.589234; 3.088273;, - 0.229029;-1.706647; 3.069872;, - -0.229029;-1.706647; 3.069872;, - -0.202974;-1.589234; 3.088273;, - -0.282577;-1.695694; 3.128920;, - 0.202974;-1.589234; 3.088273;, - 0.052767;-1.622468; 2.903241;, - 0.229029;-1.706647; 3.069872;, - -0.229029;-1.706647; 3.069872;, - -0.052767;-1.622468; 2.903241;, - -0.202974;-1.589234; 3.088273;, - 0.220757;-1.565290; 3.006733;, - 0.027989;-1.577745; 2.900939;, - 0.052767;-1.622468; 2.903241;, - -0.052767;-1.622468; 2.903241;, - -0.027989;-1.577745; 2.900939;, - -0.220757;-1.565290; 3.006733;, - 0.199936;-1.587856; 3.091310;, - 0.027989;-1.577745; 2.900939;, - 0.220757;-1.565290; 3.006733;, - -0.220757;-1.565290; 3.006733;, - -0.027989;-1.577745; 2.900939;, - -0.199936;-1.587856; 3.091310;, - 0.229029;-1.706647; 3.069872;, - 0.052767;-1.622468; 2.903241;, - 0.027988;-1.642239; 2.907866;, - -0.027988;-1.642239; 2.907866;, - -0.052767;-1.622468; 2.903241;, - -0.229029;-1.706647; 3.069872;, - 0.027988;-1.642239; 2.907866;, - 0.027989;-1.577745; 2.900939;, - 0.199936;-1.587856; 3.091310;, - -0.199936;-1.587856; 3.091310;, - -0.027989;-1.577745; 2.900939;, - -0.027988;-1.642239; 2.907866;, - 0.199936;-1.587856; 3.091310;, - 0.229029;-1.706647; 3.069872;, - 0.027988;-1.642239; 2.907866;, - -0.027988;-1.642239; 2.907866;, - -0.229029;-1.706647; 3.069872;, - -0.199936;-1.587856; 3.091310;, - 0.199936;-1.587856; 3.091310;, - 0.326450;-1.651670; 3.223312;, - 0.282577;-1.695694; 3.128920;, - -0.282577;-1.695694; 3.128920;, - -0.326450;-1.651670; 3.223312;, - -0.199936;-1.587856; 3.091310;, - 0.326450;-1.651670; 3.223312;, - 0.199936;-1.587856; 3.091310;, - 0.343419;-1.572495; 3.307000;, - -0.343419;-1.572495; 3.307000;, - -0.199936;-1.587856; 3.091310;, - -0.326450;-1.651670; 3.223312;, - 0.199936;-1.587856; 3.091310;, - 0.351146;-1.554616; 3.249883;, - 0.343419;-1.572495; 3.307000;, - -0.343419;-1.572495; 3.307000;, - -0.351146;-1.554616; 3.249883;, - -0.199936;-1.587856; 3.091310;, - 0.341797;-1.550831; 3.148826;, - 0.351146;-1.554616; 3.249883;, - 0.199936;-1.587856; 3.091310;, - -0.199936;-1.587856; 3.091310;, - -0.351146;-1.554616; 3.249883;, - -0.341797;-1.550831; 3.148826;, - 0.296877;-1.555579; 3.069713;, - 0.341797;-1.550831; 3.148826;, - 0.199936;-1.587856; 3.091310;, - -0.199936;-1.587856; 3.091310;, - -0.341797;-1.550831; 3.148826;, - -0.296877;-1.555579; 3.069713;, - 0.199936;-1.587856; 3.091310;, - 0.220757;-1.565290; 3.006733;, - 0.296877;-1.555579; 3.069713;, - -0.296877;-1.555579; 3.069713;, - -0.220757;-1.565290; 3.006733;, - -0.199936;-1.587856; 3.091310;, - 0.199936;-1.587856; 3.091310;, - 0.282577;-1.695694; 3.128920;, - 0.229029;-1.706647; 3.069872;, - -0.229029;-1.706647; 3.069872;, - -0.282577;-1.695694; 3.128920;, - -0.199936;-1.587856; 3.091310;, - -0.027989;-1.577745; 2.900939;, - 0.027989;-1.577745; 2.900939;, - 0.000000;-1.632983; 2.921556;, - 0.094165;-1.645388; 2.827697;, - 0.073935;-1.741679; 2.830921;, - 0.052767;-1.622468; 2.903241;, - -0.052767;-1.622468; 2.903241;, - -0.073935;-1.741679; 2.830921;, - -0.094165;-1.645388; 2.827697;, - 0.027988;-1.642239; 2.907866;, - 0.052767;-1.622468; 2.903241;, - 0.073935;-1.741679; 2.830921;, - -0.073935;-1.741679; 2.830921;, - -0.052767;-1.622468; 2.903241;, - -0.027988;-1.642239; 2.907866;, - 0.056849;-1.589789; 2.866309;, - 0.052767;-1.622468; 2.903241;, - 0.027989;-1.577745; 2.900939;, - -0.027989;-1.577745; 2.900939;, - -0.052767;-1.622468; 2.903241;, - -0.056849;-1.589789; 2.866309;, - 0.094165;-1.645388; 2.827697;, - 0.052767;-1.622468; 2.903241;, - 0.056849;-1.589789; 2.866309;, - -0.056849;-1.589789; 2.866309;, - -0.052767;-1.622468; 2.903241;, - -0.094165;-1.645388; 2.827697;, - 0.000000;-1.632983; 2.921556;, - 0.027989;-1.577745; 2.900939;, - 0.027988;-1.642239; 2.907866;, - -0.027988;-1.642239; 2.907866;, - -0.027989;-1.577745; 2.900939;, - 0.000000;-1.632983; 2.921556;, - 0.027988;-1.642239; 2.907866;, - 0.073935;-1.741679; 2.830921;, - 0.000000;-1.632983; 2.921556;, - 0.000000;-1.632983; 2.921556;, - -0.073935;-1.741679; 2.830921;, - -0.027988;-1.642239; 2.907866;, - 0.000000;-1.632983; 2.921556;, - 0.073935;-1.741679; 2.830921;, - 0.000000;-1.846697; 2.807856;, - 0.000000;-1.846697; 2.807856;, - -0.073935;-1.741679; 2.830921;, - 0.000000;-1.632983; 2.921556;, - 0.134998;-1.480021; 2.598695;, - 0.094165;-1.645388; 2.827697;, - 0.056849;-1.589789; 2.866309;, - -0.056849;-1.589789; 2.866309;, - -0.094165;-1.645388; 2.827697;, - -0.134998;-1.480021; 2.598695;, - 0.162484;-1.850335; 2.465449;, - 0.203036;-1.843776; 2.245584;, - 0.132730;-1.984984; 2.327319;, - -0.132730;-1.984984; 2.327319;, - -0.203036;-1.843776; 2.245584;, - -0.162484;-1.850335; 2.465449;, - 0.162484;-1.850335; 2.465449;, - 0.109987;-1.840537; 2.667545;, - 0.197319;-1.696583; 2.487761;, - -0.197319;-1.696583; 2.487761;, - -0.109987;-1.840537; 2.667545;, - -0.162484;-1.850335; 2.465449;, - 0.109987;-1.840537; 2.667545;, - 0.067319;-1.847192; 2.769888;, - 0.093981;-1.728886; 2.779789;, - -0.093981;-1.728886; 2.779789;, - -0.067319;-1.847192; 2.769888;, - -0.109987;-1.840537; 2.667545;, - 0.203036;-1.843776; 2.245584;, - 0.162484;-1.850335; 2.465449;, - 0.197319;-1.696583; 2.487761;, - -0.197319;-1.696583; 2.487761;, - -0.162484;-1.850335; 2.465449;, - -0.203036;-1.843776; 2.245584;, - 0.109227;-2.112867; 2.245991;, - 0.132730;-1.984984; 2.327319;, - 0.150770;-1.988906; 2.270680;, - -0.150770;-1.988906; 2.270680;, - -0.132730;-1.984984; 2.327319;, - -0.109227;-2.112867; 2.245991;, - 0.132730;-1.984984; 2.327319;, - 0.203036;-1.843776; 2.245584;, - 0.150770;-1.988906; 2.270680;, - -0.150770;-1.988906; 2.270680;, - -0.203036;-1.843776; 2.245584;, - -0.132730;-1.984984; 2.327319;, - 0.109987;-1.840537; 2.667545;, - 0.146662;-1.712026; 2.661695;, - 0.197319;-1.696583; 2.487761;, - -0.197319;-1.696583; 2.487761;, - -0.146662;-1.712026; 2.661695;, - -0.109987;-1.840537; 2.667545;, - 0.109987;-1.840537; 2.667545;, - 0.093981;-1.728886; 2.779789;, - 0.146662;-1.712026; 2.661695;, - -0.146662;-1.712026; 2.661695;, - -0.093981;-1.728886; 2.779789;, - -0.109987;-1.840537; 2.667545;, - 0.203036;-1.843776; 2.245584;, - 0.255549;-1.687595; 2.319314;, - 0.280957;-1.699261; 2.163758;, - -0.280957;-1.699261; 2.163758;, - -0.255549;-1.687595; 2.319314;, - -0.203036;-1.843776; 2.245584;, - 0.203036;-1.843776; 2.245584;, - 0.197319;-1.696583; 2.487761;, - 0.255549;-1.687595; 2.319314;, - -0.255549;-1.687595; 2.319314;, - -0.197319;-1.696583; 2.487761;, - -0.203036;-1.843776; 2.245584;, - 0.205354;-1.732248; 2.027268;, - 0.096050;-1.843908; 2.004472;, - 0.244661;-1.762793; 2.048848;, - -0.244661;-1.762793; 2.048848;, - -0.096050;-1.843908; 2.004472;, - -0.205354;-1.732248; 2.027268;, - 0.244661;-1.578961; 2.090859;, - 0.205354;-1.732248; 2.027268;, - 0.244661;-1.762793; 2.048848;, - -0.244661;-1.762793; 2.048848;, - -0.205354;-1.732248; 2.027268;, - -0.244661;-1.578961; 2.090859;, - 0.280957;-1.699261; 2.163758;, - 0.244661;-1.578961; 2.090859;, - 0.244661;-1.762793; 2.048848;, - -0.244661;-1.762793; 2.048848;, - -0.244661;-1.578961; 2.090859;, - -0.280957;-1.699261; 2.163758;, - 0.222457;-1.507712; 2.236471;, - 0.244661;-1.578961; 2.090859;, - 0.280957;-1.699261; 2.163758;, - -0.280957;-1.699261; 2.163758;, - -0.244661;-1.578961; 2.090859;, - -0.222457;-1.507712; 2.236471;, - 0.255549;-1.687595; 2.319314;, - 0.222457;-1.507712; 2.236471;, - 0.280957;-1.699261; 2.163758;, - -0.280957;-1.699261; 2.163758;, - -0.222457;-1.507712; 2.236471;, - -0.255549;-1.687595; 2.319314;, - 0.188777;-1.547743; 2.553117;, - 0.222457;-1.507712; 2.236471;, - 0.255549;-1.687595; 2.319314;, - -0.255549;-1.687595; 2.319314;, - -0.222457;-1.507712; 2.236471;, - -0.188777;-1.547743; 2.553117;, - 0.188777;-1.547743; 2.553117;, - 0.255549;-1.687595; 2.319314;, - 0.197319;-1.696583; 2.487761;, - -0.197319;-1.696583; 2.487761;, - -0.255549;-1.687595; 2.319314;, - -0.188777;-1.547743; 2.553117;, - 0.146662;-1.712026; 2.661695;, - 0.188777;-1.547743; 2.553117;, - 0.197319;-1.696583; 2.487761;, - -0.197319;-1.696583; 2.487761;, - -0.188777;-1.547743; 2.553117;, - -0.146662;-1.712026; 2.661695;, - 0.094165;-1.645388; 2.827697;, - 0.188777;-1.547743; 2.553117;, - 0.146662;-1.712026; 2.661695;, - -0.146662;-1.712026; 2.661695;, - -0.188777;-1.547743; 2.553117;, - -0.094165;-1.645388; 2.827697;, - 0.094165;-1.645388; 2.827697;, - 0.146662;-1.712026; 2.661695;, - 0.093981;-1.728886; 2.779789;, - -0.093981;-1.728886; 2.779789;, - -0.146662;-1.712026; 2.661695;, - -0.094165;-1.645388; 2.827697;, - 0.205354;-1.732248; 2.027268;, - 0.135145;-1.656764; 2.019124;, - 0.096050;-1.843908; 2.004472;, - -0.096050;-1.843908; 2.004472;, - -0.135145;-1.656764; 2.019124;, - -0.205354;-1.732248; 2.027268;, - 0.135145;-1.656764; 2.019124;, - 0.205354;-1.732248; 2.027268;, - 0.244661;-1.578961; 2.090859;, - -0.244661;-1.578961; 2.090859;, - -0.205354;-1.732248; 2.027268;, - -0.135145;-1.656764; 2.019124;, - 0.000000;-1.822699; 2.000722;, - 0.096050;-1.843908; 2.004472;, - 0.135145;-1.656764; 2.019124;, - -0.135145;-1.656764; 2.019124;, - -0.096050;-1.843908; 2.004472;, - 0.000000;-1.822699; 2.000722;, - 0.135145;-1.656764; 2.019124;, - 0.000000;-1.515672; 2.052532;, - 0.000000;-1.822699; 2.000722;, - 0.000000;-1.822699; 2.000722;, - 0.000000;-1.515672; 2.052532;, - -0.135145;-1.656764; 2.019124;, - 0.135145;-1.656764; 2.019124;, - 0.244661;-1.578961; 2.090859;, - 0.000000;-1.515672; 2.052532;, - 0.000000;-1.515672; 2.052532;, - -0.244661;-1.578961; 2.090859;, - -0.135145;-1.656764; 2.019124;, - 0.000000;-1.515672; 2.052532;, - 0.244661;-1.578961; 2.090859;, - 0.000000;-1.439404; 2.139428;, - 0.000000;-1.439404; 2.139428;, - -0.244661;-1.578961; 2.090859;, - 0.000000;-1.515672; 2.052532;, - 0.222457;-1.507712; 2.236471;, - 0.188777;-1.547743; 2.553117;, - 0.157463;-1.434863; 2.346243;, - -0.157463;-1.434863; 2.346243;, - -0.188777;-1.547743; 2.553117;, - -0.222457;-1.507712; 2.236471;, - 0.157463;-1.434863; 2.346243;, - 0.188777;-1.547743; 2.553117;, - 0.134998;-1.480021; 2.598695;, - -0.134998;-1.480021; 2.598695;, - -0.188777;-1.547743; 2.553117;, - -0.157463;-1.434863; 2.346243;, - 0.188777;-1.547743; 2.553117;, - 0.094165;-1.645388; 2.827697;, - 0.134998;-1.480021; 2.598695;, - -0.134998;-1.480021; 2.598695;, - -0.094165;-1.645388; 2.827697;, - -0.188777;-1.547743; 2.553117;, - 0.222457;-1.507712; 2.236471;, - 0.209480;-1.488036; 2.151313;, - 0.244661;-1.578961; 2.090859;, - -0.244661;-1.578961; 2.090859;, - -0.209480;-1.488036; 2.151313;, - -0.222457;-1.507712; 2.236471;, - 0.000000;-1.439404; 2.139428;, - 0.209480;-1.488036; 2.151313;, - 0.100715;-1.427071; 2.181954;, - -0.100715;-1.427071; 2.181954;, - -0.209480;-1.488036; 2.151313;, - 0.000000;-1.439404; 2.139428;, - 0.000000;-1.439404; 2.139428;, - 0.244661;-1.578961; 2.090859;, - 0.209480;-1.488036; 2.151313;, - -0.209480;-1.488036; 2.151313;, - -0.244661;-1.578961; 2.090859;, - 0.000000;-1.439404; 2.139428;, - 0.209480;-1.488036; 2.151313;, - 0.222457;-1.507712; 2.236471;, - 0.157463;-1.434863; 2.346243;, - -0.157463;-1.434863; 2.346243;, - -0.222457;-1.507712; 2.236471;, - -0.209480;-1.488036; 2.151313;, - 0.100715;-1.427071; 2.181954;, - 0.209480;-1.488036; 2.151313;, - 0.157463;-1.434863; 2.346243;, - -0.157463;-1.434863; 2.346243;, - -0.209480;-1.488036; 2.151313;, - -0.100715;-1.427071; 2.181954;, - 0.000000;-1.846697; 2.807856;, - 0.073935;-1.741679; 2.830921;, - 0.067319;-1.847192; 2.769888;, - -0.067319;-1.847192; 2.769888;, - -0.073935;-1.741679; 2.830921;, - 0.000000;-1.846697; 2.807856;, - 0.067319;-1.847192; 2.769888;, - 0.073935;-1.741679; 2.830921;, - 0.093981;-1.728886; 2.779789;, - -0.093981;-1.728886; 2.779789;, - -0.073935;-1.741679; 2.830921;, - -0.067319;-1.847192; 2.769888;, - 0.093981;-1.728886; 2.779789;, - 0.073935;-1.741679; 2.830921;, - 0.094165;-1.645388; 2.827697;, - -0.094165;-1.645388; 2.827697;, - -0.073935;-1.741679; 2.830921;, - -0.093981;-1.728886; 2.779789;, - 0.203036;-1.843776; 2.245584;, - 0.199428;-1.907755; 2.204916;, - 0.150770;-1.988906; 2.270680;, - -0.150770;-1.988906; 2.270680;, - -0.199428;-1.907755; 2.204916;, - -0.203036;-1.843776; 2.245584;, - 0.203036;-1.843776; 2.245584;, - 0.280957;-1.699261; 2.163758;, - 0.199428;-1.907755; 2.204916;, - -0.199428;-1.907755; 2.204916;, - -0.280957;-1.699261; 2.163758;, - -0.203036;-1.843776; 2.245584;, - 0.280957;-1.699261; 2.163758;, - 0.244661;-1.762793; 2.048848;, - 0.199428;-1.907755; 2.204916;, - -0.199428;-1.907755; 2.204916;, - -0.244661;-1.762793; 2.048848;, - -0.280957;-1.699261; 2.163758;, - 0.199428;-1.907755; 2.204916;, - 0.244661;-1.762793; 2.048848;, - 0.174126;-1.876993; 2.027051;, - -0.174126;-1.876993; 2.027051;, - -0.244661;-1.762793; 2.048848;, - -0.199428;-1.907755; 2.204916;, - 0.244661;-1.762793; 2.048848;, - 0.096050;-1.843908; 2.004472;, - 0.174126;-1.876993; 2.027051;, - -0.174126;-1.876993; 2.027051;, - -0.096050;-1.843908; 2.004472;, - -0.244661;-1.762793; 2.048848;, - 0.082904;-2.235541; 2.242876;, - 0.102184;-2.224121; 2.156070;, - 0.082904;-2.222739; 2.242876;, - -0.082904;-2.222739; 2.242876;, - -0.102184;-2.224121; 2.156070;, - -0.082904;-2.235541; 2.242876;, - 0.082904;-2.235541; 2.242876;, - 0.082904;-2.222739; 2.242876;, - 0.067450;-2.238019; 2.312873;, - -0.067450;-2.238019; 2.312873;, - -0.082904;-2.222739; 2.242876;, - -0.082904;-2.235541; 2.242876;, - 0.039136;-2.258074; 2.296473;, - 0.067450;-2.238019; 2.312873;, - 0.044026;-2.246496; 2.299417;, - -0.044026;-2.246496; 2.299417;, - -0.067450;-2.238019; 2.312873;, - -0.039136;-2.258074; 2.296473;, - 0.042253;-2.257451; 2.157552;, - 0.103755;-2.234962; 2.156345;, - 0.037833;-2.305804; 2.140145;, - -0.037833;-2.305804; 2.140145;, - -0.103755;-2.234962; 2.156345;, - -0.042253;-2.257451; 2.157552;, - 0.012766;-2.262194; 2.215908;, - 0.042253;-2.257451; 2.157552;, - 0.037833;-2.305804; 2.140145;, - -0.037833;-2.305804; 2.140145;, - -0.042253;-2.257451; 2.157552;, - -0.012766;-2.262194; 2.215908;, - 0.017345;-2.280157; 2.210732;, - 0.012766;-2.262194; 2.215908;, - 0.037833;-2.305804; 2.140145;, - -0.037833;-2.305804; 2.140145;, - -0.012766;-2.262194; 2.215908;, - -0.017345;-2.280157; 2.210732;, - 0.044026;-2.246496; 2.299417;, - 0.012766;-2.262194; 2.215908;, - 0.017345;-2.280157; 2.210732;, - -0.017345;-2.280157; 2.210732;, - -0.012766;-2.262194; 2.215908;, - -0.044026;-2.246496; 2.299417;, - 0.039136;-2.258074; 2.296473;, - 0.044026;-2.246496; 2.299417;, - 0.017345;-2.280157; 2.210732;, - -0.017345;-2.280157; 2.210732;, - -0.044026;-2.246496; 2.299417;, - -0.039136;-2.258074; 2.296473;, - 0.044026;-2.246496; 2.299417;, - 0.042253;-2.248823; 2.208954;, - 0.012766;-2.262194; 2.215908;, - -0.012766;-2.262194; 2.215908;, - -0.042253;-2.248823; 2.208954;, - -0.044026;-2.246496; 2.299417;, - 0.042253;-2.248823; 2.208954;, - 0.042253;-2.257451; 2.157552;, - 0.012766;-2.262194; 2.215908;, - -0.012766;-2.262194; 2.215908;, - -0.042253;-2.257451; 2.157552;, - -0.042253;-2.248823; 2.208954;, - 0.103755;-2.234962; 2.156345;, - 0.102184;-2.224121; 2.156070;, - 0.082904;-2.235541; 2.242876;, - -0.082904;-2.235541; 2.242876;, - -0.102184;-2.224121; 2.156070;, - -0.103755;-2.234962; 2.156345;, - 0.102184;-2.224121; 2.156070;, - 0.070793;-2.230912; 2.195359;, - 0.070793;-2.236433; 2.195500;, - -0.070793;-2.236433; 2.195500;, - -0.070793;-2.230912; 2.195359;, - -0.102184;-2.224121; 2.156070;, - 0.042253;-2.257451; 2.157552;, - 0.102184;-2.224121; 2.156070;, - 0.103755;-2.234962; 2.156345;, - -0.103755;-2.234962; 2.156345;, - -0.102184;-2.224121; 2.156070;, - -0.042253;-2.257451; 2.157552;, - 0.042253;-2.248823; 2.208954;, - 0.042253;-2.241593; 2.208770;, - 0.042253;-2.257451; 2.157552;, - -0.042253;-2.257451; 2.157552;, - -0.042253;-2.241593; 2.208770;, - -0.042253;-2.248823; 2.208954;, - 0.070793;-2.230912; 2.195359;, - 0.042253;-2.241593; 2.208770;, - 0.070793;-2.236433; 2.195500;, - -0.070793;-2.236433; 2.195500;, - -0.042253;-2.241593; 2.208770;, - -0.070793;-2.230912; 2.195359;, - 0.070793;-2.236433; 2.195500;, - 0.042253;-2.241593; 2.208770;, - 0.042253;-2.248823; 2.208954;, - -0.042253;-2.248823; 2.208954;, - -0.042253;-2.241593; 2.208770;, - -0.070793;-2.236433; 2.195500;, - 0.042253;-2.241593; 2.208770;, - 0.070793;-2.230912; 2.195359;, - 0.042253;-2.257451; 2.157552;, - -0.042253;-2.257451; 2.157552;, - -0.070793;-2.230912; 2.195359;, - -0.042253;-2.241593; 2.208770;, - 0.070793;-2.230912; 2.195359;, - 0.102184;-2.224121; 2.156070;, - 0.042253;-2.257451; 2.157552;, - -0.042253;-2.257451; 2.157552;, - -0.102184;-2.224121; 2.156070;, - -0.070793;-2.230912; 2.195359;, - 0.102184;-2.224121; 2.156070;, - 0.070793;-2.236433; 2.195500;, - 0.082904;-2.222739; 2.242876;, - -0.082904;-2.222739; 2.242876;, - -0.070793;-2.236433; 2.195500;, - -0.102184;-2.224121; 2.156070;, - 0.070793;-2.236433; 2.195500;, - 0.042253;-2.248823; 2.208954;, - 0.082904;-2.222739; 2.242876;, - -0.082904;-2.222739; 2.242876;, - -0.042253;-2.248823; 2.208954;, - -0.070793;-2.236433; 2.195500;, - 0.082904;-2.222739; 2.242876;, - 0.042253;-2.248823; 2.208954;, - 0.044026;-2.246496; 2.299417;, - -0.044026;-2.246496; 2.299417;, - -0.042253;-2.248823; 2.208954;, - -0.082904;-2.222739; 2.242876;, - 0.082904;-2.222739; 2.242876;, - 0.044026;-2.246496; 2.299417;, - 0.067450;-2.238019; 2.312873;, - -0.067450;-2.238019; 2.312873;, - -0.044026;-2.246496; 2.299417;, - -0.082904;-2.222739; 2.242876;, - 0.138914;-2.032206; 1.946064;, - 0.133973;-1.967785; 2.022223;, - 0.148135;-2.065737; 1.976115;, - -0.148135;-2.065737; 1.976115;, - -0.133973;-1.967785; 2.022223;, - -0.138914;-2.032206; 1.946064;, - 0.143928;-2.151839; 1.860176;, - 0.138914;-2.032206; 1.946064;, - 0.148135;-2.065737; 1.976115;, - -0.148135;-2.065737; 1.976115;, - -0.138914;-2.032206; 1.946064;, - -0.143928;-2.151839; 1.860176;, - 0.158675;-2.176056; 1.878636;, - 0.143928;-2.151839; 1.860176;, - 0.148135;-2.065737; 1.976115;, - -0.148135;-2.065737; 1.976115;, - -0.143928;-2.151839; 1.860176;, - -0.158675;-2.176056; 1.878636;, - 0.129818;-2.231464; 1.795620;, - 0.143928;-2.151839; 1.860176;, - 0.158675;-2.176056; 1.878636;, - -0.158675;-2.176056; 1.878636;, - -0.143928;-2.151839; 1.860176;, - -0.129818;-2.231464; 1.795620;, - 0.141454;-2.249115; 1.814876;, - 0.129818;-2.231464; 1.795620;, - 0.158675;-2.176056; 1.878636;, - -0.158675;-2.176056; 1.878636;, - -0.129818;-2.231464; 1.795620;, - -0.141454;-2.249115; 1.814876;, - 0.078651;-2.288382; 1.751413;, - 0.129818;-2.231464; 1.795620;, - 0.141454;-2.249115; 1.814876;, - -0.141454;-2.249115; 1.814876;, - -0.129818;-2.231464; 1.795620;, - -0.078651;-2.288382; 1.751413;, - 0.078651;-2.288382; 1.751413;, - 0.141454;-2.249115; 1.814876;, - 0.089875;-2.304900; 1.770369;, - -0.089875;-2.304900; 1.770369;, - -0.141454;-2.249115; 1.814876;, - -0.078651;-2.288382; 1.751413;, - 0.000000;-2.305988; 1.732204;, - 0.078651;-2.288382; 1.751413;, - 0.089875;-2.304900; 1.770369;, - -0.089875;-2.304900; 1.770369;, - -0.078651;-2.288382; 1.751413;, - 0.000000;-2.305988; 1.732204;, - 0.000000;-2.334556; 1.746429;, - 0.000000;-2.305988; 1.732204;, - 0.089875;-2.304900; 1.770369;, - -0.089875;-2.304900; 1.770369;, - 0.000000;-2.305988; 1.732204;, - 0.000000;-2.334556; 1.746429;, - 0.153113;-2.007281; 2.137748;, - 0.120471;-2.070837; 2.093725;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.120471;-2.070837; 2.093725;, - -0.153113;-2.007281; 2.137748;, - 0.120471;-2.070837; 2.093725;, - 0.133969;-2.145086; 2.056030;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.133969;-2.145086; 2.056030;, - -0.120471;-2.070837; 2.093725;, - 0.133969;-2.145086; 2.056030;, - 0.132136;-2.293749; 2.031949;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.132136;-2.293749; 2.031949;, - -0.133969;-2.145086; 2.056030;, - 0.132136;-2.293749; 2.031949;, - 0.141712;-2.298592; 2.027565;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.141712;-2.298592; 2.027565;, - -0.132136;-2.293749; 2.031949;, - 0.141712;-2.298592; 2.027565;, - 0.132136;-2.293749; 2.031949;, - 0.084740;-2.407800; 2.008074;, - -0.084740;-2.407800; 2.008074;, - -0.132136;-2.293749; 2.031949;, - -0.141712;-2.298592; 2.027565;, - 0.092937;-2.422714; 2.007048;, - 0.141712;-2.298592; 2.027565;, - 0.084740;-2.407800; 2.008074;, - -0.084740;-2.407800; 2.008074;, - -0.141712;-2.298592; 2.027565;, - -0.092937;-2.422714; 2.007048;, - 0.000000;-2.464819; 2.001773;, - 0.092937;-2.422714; 2.007048;, - 0.000000;-2.441655; 1.992423;, - 0.000000;-2.441655; 1.992423;, - -0.092937;-2.422714; 2.007048;, - 0.000000;-2.464819; 2.001773;, - 0.084740;-2.407800; 2.008074;, - 0.092937;-2.422714; 2.007048;, - 0.000000;-2.441655; 1.992423;, - 0.000000;-2.441655; 1.992423;, - -0.084740;-2.407800; 2.008074;, - -0.092937;-2.422714; 2.007048;, - 0.000000;-1.886257; 1.827574;, - 0.096050;-1.843908; 2.004472;, - 0.000000;-1.822699; 2.000722;, - 0.000000;-1.822699; 2.000722;, - -0.096050;-1.843908; 2.004472;, - 0.000000;-1.886257; 1.827574;, - 0.046470;-1.919359; 1.805287;, - 0.096050;-1.843908; 2.004472;, - 0.000000;-1.886257; 1.827574;, - 0.000000;-1.886257; 1.827574;, - -0.096050;-1.843908; 2.004472;, - -0.046470;-1.919359; 1.805287;, - 0.096050;-1.843908; 2.004472;, - 0.046470;-1.919359; 1.805287;, - 0.118520;-1.932853; 1.960968;, - -0.118520;-1.932853; 1.960968;, - -0.046470;-1.919359; 1.805287;, - -0.096050;-1.843908; 2.004472;, - 0.096050;-1.843908; 2.004472;, - 0.118520;-1.932853; 1.960968;, - 0.174126;-1.876993; 2.027051;, - -0.174126;-1.876993; 2.027051;, - -0.118520;-1.932853; 1.960968;, - -0.096050;-1.843908; 2.004472;, - 0.046470;-1.919359; 1.805287;, - 0.138658;-2.051511; 1.856934;, - 0.118520;-1.932853; 1.960968;, - -0.118520;-1.932853; 1.960968;, - -0.138658;-2.051511; 1.856934;, - -0.046470;-1.919359; 1.805287;, - 0.046470;-1.919359; 1.805287;, - 0.060824;-2.025175; 1.719181;, - 0.138658;-2.051511; 1.856934;, - -0.138658;-2.051511; 1.856934;, - -0.060824;-2.025175; 1.719181;, - -0.046470;-1.919359; 1.805287;, - 0.138658;-2.051511; 1.856934;, - 0.060824;-2.025175; 1.719181;, - 0.112836;-2.146475; 1.762318;, - -0.112836;-2.146475; 1.762318;, - -0.060824;-2.025175; 1.719181;, - -0.138658;-2.051511; 1.856934;, - 0.000000;-1.952990; 1.722895;, - 0.046470;-1.919359; 1.805287;, - 0.000000;-1.886257; 1.827574;, - 0.000000;-1.886257; 1.827574;, - -0.046470;-1.919359; 1.805287;, - 0.000000;-1.952990; 1.722895;, - 0.046470;-1.919359; 1.805287;, - 0.000000;-1.952990; 1.722895;, - 0.060824;-2.025175; 1.719181;, - -0.060824;-2.025175; 1.719181;, - 0.000000;-1.952990; 1.722895;, - -0.046470;-1.919359; 1.805287;, - 0.060824;-2.025175; 1.719181;, - 0.000000;-1.952990; 1.722895;, - 0.000000;-2.030894; 1.700216;, - 0.000000;-2.030894; 1.700216;, - 0.000000;-1.952990; 1.722895;, - -0.060824;-2.025175; 1.719181;, - 0.112836;-2.146475; 1.762318;, - 0.060824;-2.025175; 1.719181;, - 0.000000;-2.174463; 1.705415;, - 0.000000;-2.174463; 1.705415;, - -0.060824;-2.025175; 1.719181;, - -0.112836;-2.146475; 1.762318;, - 0.060824;-2.025175; 1.719181;, - 0.000000;-2.030894; 1.700216;, - 0.000000;-2.174463; 1.705415;, - 0.000000;-2.174463; 1.705415;, - 0.000000;-2.030894; 1.700216;, - -0.060824;-2.025175; 1.719181;, - 0.121612;-2.204706; 1.734888;, - 0.112836;-2.146475; 1.762318;, - 0.000000;-2.174463; 1.705415;, - 0.000000;-2.174463; 1.705415;, - -0.112836;-2.146475; 1.762318;, - -0.121612;-2.204706; 1.734888;, - 0.121612;-2.204706; 1.734888;, - 0.000000;-2.174463; 1.705415;, - 0.000000;-2.207695; 1.668234;, - 0.000000;-2.207695; 1.668234;, - 0.000000;-2.174463; 1.705415;, - -0.121612;-2.204706; 1.734888;, - 0.098588;-2.262938; 1.707457;, - 0.121612;-2.204706; 1.734888;, - 0.000000;-2.207695; 1.668234;, - 0.000000;-2.207695; 1.668234;, - -0.121612;-2.204706; 1.734888;, - -0.098588;-2.262938; 1.707457;, - 0.000000;-2.291861; 1.664093;, - 0.098588;-2.262938; 1.707457;, - 0.000000;-2.207695; 1.668234;, - 0.000000;-2.207695; 1.668234;, - -0.098588;-2.262938; 1.707457;, - 0.000000;-2.291861; 1.664093;, - 0.155173;-2.237962; 1.787945;, - 0.112836;-2.146475; 1.762318;, - 0.121612;-2.204706; 1.734888;, - -0.121612;-2.204706; 1.734888;, - -0.112836;-2.146475; 1.762318;, - -0.155173;-2.237962; 1.787945;, - 0.155173;-2.237962; 1.787945;, - 0.121612;-2.204706; 1.734888;, - 0.098588;-2.262938; 1.707457;, - -0.098588;-2.262938; 1.707457;, - -0.121612;-2.204706; 1.734888;, - -0.155173;-2.237962; 1.787945;, - 0.112836;-2.146475; 1.762318;, - 0.155173;-2.237962; 1.787945;, - 0.177749;-2.157597; 1.861787;, - -0.177749;-2.157597; 1.861787;, - -0.155173;-2.237962; 1.787945;, - -0.112836;-2.146475; 1.762318;, - 0.138658;-2.051511; 1.856934;, - 0.112836;-2.146475; 1.762318;, - 0.177749;-2.157597; 1.861787;, - -0.177749;-2.157597; 1.861787;, - -0.112836;-2.146475; 1.762318;, - -0.138658;-2.051511; 1.856934;, - 0.152070;-2.025617; 1.973482;, - 0.138658;-2.051511; 1.856934;, - 0.177749;-2.157597; 1.861787;, - -0.177749;-2.157597; 1.861787;, - -0.138658;-2.051511; 1.856934;, - -0.152070;-2.025617; 1.973482;, - 0.118520;-1.932853; 1.960968;, - 0.138658;-2.051511; 1.856934;, - 0.152070;-2.025617; 1.973482;, - -0.152070;-2.025617; 1.973482;, - -0.138658;-2.051511; 1.856934;, - -0.118520;-1.932853; 1.960968;, - 0.154815;-1.928870; 2.046175;, - 0.118520;-1.932853; 1.960968;, - 0.152070;-2.025617; 1.973482;, - -0.152070;-2.025617; 1.973482;, - -0.118520;-1.932853; 1.960968;, - -0.154815;-1.928870; 2.046175;, - 0.118520;-1.932853; 1.960968;, - 0.154815;-1.928870; 2.046175;, - 0.174126;-1.876993; 2.027051;, - -0.174126;-1.876993; 2.027051;, - -0.154815;-1.928870; 2.046175;, - -0.118520;-1.932853; 1.960968;, - 0.169424;-1.956664; 2.096468;, - 0.154815;-1.928870; 2.046175;, - 0.152070;-2.025617; 1.973482;, - -0.152070;-2.025617; 1.973482;, - -0.154815;-1.928870; 2.046175;, - -0.169424;-1.956664; 2.096468;, - 0.154815;-1.928870; 2.046175;, - 0.192609;-1.914098; 2.167707;, - 0.174126;-1.876993; 2.027051;, - -0.174126;-1.876993; 2.027051;, - -0.192609;-1.914098; 2.167707;, - -0.154815;-1.928870; 2.046175;, - 0.192609;-1.914098; 2.167707;, - 0.154815;-1.928870; 2.046175;, - 0.169424;-1.956664; 2.096468;, - -0.169424;-1.956664; 2.096468;, - -0.154815;-1.928870; 2.046175;, - -0.192609;-1.914098; 2.167707;, - 0.192609;-1.914098; 2.167707;, - 0.199428;-1.907755; 2.204916;, - 0.174126;-1.876993; 2.027051;, - -0.174126;-1.876993; 2.027051;, - -0.199428;-1.907755; 2.204916;, - -0.192609;-1.914098; 2.167707;, - 0.155173;-2.237962; 1.787945;, - 0.098588;-2.262938; 1.707457;, - 0.105817;-2.302977; 1.735390;, - -0.105817;-2.302977; 1.735390;, - -0.098588;-2.262938; 1.707457;, - -0.155173;-2.237962; 1.787945;, - 0.098588;-2.262938; 1.707457;, - 0.000000;-2.291861; 1.664093;, - 0.105817;-2.302977; 1.735390;, - -0.105817;-2.302977; 1.735390;, - 0.000000;-2.291861; 1.664093;, - -0.098588;-2.262938; 1.707457;, - 0.105817;-2.302977; 1.735390;, - 0.000000;-2.291861; 1.664093;, - 0.000000;-2.339595; 1.703198;, - 0.000000;-2.339595; 1.703198;, - 0.000000;-2.291861; 1.664093;, - -0.105817;-2.302977; 1.735390;, - 0.000000;-2.339595; 1.703198;, - 0.000000;-2.334556; 1.746429;, - 0.089875;-2.304900; 1.770369;, - -0.089875;-2.304900; 1.770369;, - 0.000000;-2.334556; 1.746429;, - 0.000000;-2.339595; 1.703198;, - 0.105817;-2.302977; 1.735390;, - 0.000000;-2.339595; 1.703198;, - 0.089875;-2.304900; 1.770369;, - -0.089875;-2.304900; 1.770369;, - 0.000000;-2.339595; 1.703198;, - -0.105817;-2.302977; 1.735390;, - 0.141454;-2.249115; 1.814876;, - 0.105817;-2.302977; 1.735390;, - 0.089875;-2.304900; 1.770369;, - -0.089875;-2.304900; 1.770369;, - -0.105817;-2.302977; 1.735390;, - -0.141454;-2.249115; 1.814876;, - 0.141454;-2.249115; 1.814876;, - 0.155173;-2.237962; 1.787945;, - 0.105817;-2.302977; 1.735390;, - -0.105817;-2.302977; 1.735390;, - -0.155173;-2.237962; 1.787945;, - -0.141454;-2.249115; 1.814876;, - 0.155173;-2.237962; 1.787945;, - 0.141454;-2.249115; 1.814876;, - 0.158675;-2.176056; 1.878636;, - -0.158675;-2.176056; 1.878636;, - -0.141454;-2.249115; 1.814876;, - -0.155173;-2.237962; 1.787945;, - 0.177749;-2.157597; 1.861787;, - 0.155173;-2.237962; 1.787945;, - 0.158675;-2.176056; 1.878636;, - -0.158675;-2.176056; 1.878636;, - -0.155173;-2.237962; 1.787945;, - -0.177749;-2.157597; 1.861787;, - 0.177749;-2.157597; 1.861787;, - 0.158675;-2.176056; 1.878636;, - 0.148135;-2.065737; 1.976115;, - -0.148135;-2.065737; 1.976115;, - -0.158675;-2.176056; 1.878636;, - -0.177749;-2.157597; 1.861787;, - 0.152070;-2.025617; 1.973482;, - 0.177749;-2.157597; 1.861787;, - 0.148135;-2.065737; 1.976115;, - -0.148135;-2.065737; 1.976115;, - -0.177749;-2.157597; 1.861787;, - -0.152070;-2.025617; 1.973482;, - 0.152070;-2.025617; 1.973482;, - 0.148135;-2.065737; 1.976115;, - 0.138747;-1.993072; 2.101155;, - -0.138747;-1.993072; 2.101155;, - -0.148135;-2.065737; 1.976115;, - -0.152070;-2.025617; 1.973482;, - 0.169424;-1.956664; 2.096468;, - 0.152070;-2.025617; 1.973482;, - 0.138747;-1.993072; 2.101155;, - -0.138747;-1.993072; 2.101155;, - -0.152070;-2.025617; 1.973482;, - -0.169424;-1.956664; 2.096468;, - 0.169424;-1.956664; 2.096468;, - 0.138747;-1.993072; 2.101155;, - 0.160169;-1.983632; 2.174989;, - -0.160169;-1.983632; 2.174989;, - -0.138747;-1.993072; 2.101155;, - -0.169424;-1.956664; 2.096468;, - 0.192609;-1.914098; 2.167707;, - 0.169424;-1.956664; 2.096468;, - 0.160169;-1.983632; 2.174989;, - -0.160169;-1.983632; 2.174989;, - -0.169424;-1.956664; 2.096468;, - -0.192609;-1.914098; 2.167707;, - 0.199428;-1.907755; 2.204916;, - 0.192609;-1.914098; 2.167707;, - 0.164374;-1.969076; 2.213221;, - -0.164374;-1.969076; 2.213221;, - -0.192609;-1.914098; 2.167707;, - -0.199428;-1.907755; 2.204916;, - 0.192609;-1.914098; 2.167707;, - 0.160169;-1.983632; 2.174989;, - 0.164374;-1.969076; 2.213221;, - -0.164374;-1.969076; 2.213221;, - -0.160169;-1.983632; 2.174989;, - -0.192609;-1.914098; 2.167707;, - 0.160169;-1.983632; 2.174989;, - 0.150349;-2.028008; 2.201137;, - 0.164374;-1.969076; 2.213221;, - -0.164374;-1.969076; 2.213221;, - -0.150349;-2.028008; 2.201137;, - -0.160169;-1.983632; 2.174989;, - 0.150770;-1.988906; 2.270680;, - 0.199428;-1.907755; 2.204916;, - 0.164374;-1.969076; 2.213221;, - -0.164374;-1.969076; 2.213221;, - -0.199428;-1.907755; 2.204916;, - -0.150770;-1.988906; 2.270680;, - 0.150770;-1.988906; 2.270680;, - 0.164374;-1.969076; 2.213221;, - 0.150349;-2.028008; 2.201137;, - -0.150349;-2.028008; 2.201137;, - -0.164374;-1.969076; 2.213221;, - -0.150770;-1.988906; 2.270680;, - 0.150349;-2.028008; 2.201137;, - 0.109227;-2.112867; 2.245991;, - 0.150770;-1.988906; 2.270680;, - -0.150770;-1.988906; 2.270680;, - -0.109227;-2.112867; 2.245991;, - -0.150349;-2.028008; 2.201137;, - 0.146935;-2.057363; 2.148525;, - 0.109227;-2.112867; 2.245991;, - 0.150349;-2.028008; 2.201137;, - -0.150349;-2.028008; 2.201137;, - -0.109227;-2.112867; 2.245991;, - -0.146935;-2.057363; 2.148525;, - 0.109227;-2.112867; 2.245991;, - 0.146935;-2.057363; 2.148525;, - 0.113775;-2.192298; 2.215208;, - -0.113775;-2.192298; 2.215208;, - -0.146935;-2.057363; 2.148525;, - -0.109227;-2.112867; 2.245991;, - 0.146935;-2.057363; 2.148525;, - 0.117780;-2.230145; 2.142250;, - 0.113775;-2.192298; 2.215208;, - -0.113775;-2.192298; 2.215208;, - -0.117780;-2.230145; 2.142250;, - -0.146935;-2.057363; 2.148525;, - 0.146935;-2.057363; 2.148525;, - 0.150349;-2.028008; 2.201137;, - 0.160169;-1.983632; 2.174989;, - -0.160169;-1.983632; 2.174989;, - -0.150349;-2.028008; 2.201137;, - -0.146935;-2.057363; 2.148525;, - 0.146935;-2.057363; 2.148525;, - 0.160169;-1.983632; 2.174989;, - 0.153113;-2.007281; 2.137748;, - -0.153113;-2.007281; 2.137748;, - -0.160169;-1.983632; 2.174989;, - -0.146935;-2.057363; 2.148525;, - 0.146935;-2.057363; 2.148525;, - 0.153113;-2.007281; 2.137748;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.153113;-2.007281; 2.137748;, - -0.146935;-2.057363; 2.148525;, - 0.117780;-2.230145; 2.142250;, - 0.146935;-2.057363; 2.148525;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.146935;-2.057363; 2.148525;, - -0.117780;-2.230145; 2.142250;, - 0.141712;-2.298592; 2.027565;, - 0.117780;-2.230145; 2.142250;, - 0.144647;-2.149120; 2.065664;, - -0.144647;-2.149120; 2.065664;, - -0.117780;-2.230145; 2.142250;, - -0.141712;-2.298592; 2.027565;, - 0.141712;-2.298592; 2.027565;, - 0.099394;-2.279977; 2.112973;, - 0.117780;-2.230145; 2.142250;, - -0.117780;-2.230145; 2.142250;, - -0.099394;-2.279977; 2.112973;, - -0.141712;-2.298592; 2.027565;, - 0.099394;-2.279977; 2.112973;, - 0.141712;-2.298592; 2.027565;, - 0.092937;-2.422714; 2.007048;, - -0.092937;-2.422714; 2.007048;, - -0.141712;-2.298592; 2.027565;, - -0.099394;-2.279977; 2.112973;, - 0.055999;-2.332072; 2.103474;, - 0.099394;-2.279977; 2.112973;, - 0.092937;-2.422714; 2.007048;, - -0.092937;-2.422714; 2.007048;, - -0.099394;-2.279977; 2.112973;, - -0.055999;-2.332072; 2.103474;, - 0.055999;-2.332072; 2.103474;, - 0.092937;-2.422714; 2.007048;, - 0.000000;-2.464819; 2.001773;, - 0.000000;-2.464819; 2.001773;, - -0.092937;-2.422714; 2.007048;, - -0.055999;-2.332072; 2.103474;, - 0.055999;-2.332072; 2.103474;, - 0.000000;-2.464819; 2.001773;, - 0.000000;-2.357722; 2.097697;, - 0.000000;-2.357722; 2.097697;, - 0.000000;-2.464819; 2.001773;, - -0.055999;-2.332072; 2.103474;, - 0.037833;-2.305804; 2.140145;, - 0.099394;-2.279977; 2.112973;, - 0.055999;-2.332072; 2.103474;, - -0.055999;-2.332072; 2.103474;, - -0.099394;-2.279977; 2.112973;, - -0.037833;-2.305804; 2.140145;, - 0.037833;-2.305804; 2.140145;, - 0.055999;-2.332072; 2.103474;, - 0.000000;-2.357722; 2.097697;, - 0.000000;-2.357722; 2.097697;, - -0.055999;-2.332072; 2.103474;, - -0.037833;-2.305804; 2.140145;, - 0.117780;-2.230145; 2.142250;, - 0.099394;-2.279977; 2.112973;, - 0.037833;-2.305804; 2.140145;, - -0.037833;-2.305804; 2.140145;, - -0.099394;-2.279977; 2.112973;, - -0.117780;-2.230145; 2.142250;, - 0.037833;-2.305804; 2.140145;, - 0.000000;-2.357722; 2.097697;, - 0.000000;-2.281533; 2.211258;, - 0.000000;-2.281533; 2.211258;, - 0.000000;-2.357722; 2.097697;, - -0.037833;-2.305804; 2.140145;, - 0.017345;-2.280157; 2.210732;, - 0.037833;-2.305804; 2.140145;, - 0.000000;-2.281533; 2.211258;, - 0.000000;-2.281533; 2.211258;, - -0.037833;-2.305804; 2.140145;, - -0.017345;-2.280157; 2.210732;, - 0.103755;-2.234962; 2.156345;, - 0.117780;-2.230145; 2.142250;, - 0.037833;-2.305804; 2.140145;, - -0.037833;-2.305804; 2.140145;, - -0.117780;-2.230145; 2.142250;, - -0.103755;-2.234962; 2.156345;, - 0.103755;-2.234962; 2.156345;, - 0.082904;-2.235541; 2.242876;, - 0.117780;-2.230145; 2.142250;, - -0.117780;-2.230145; 2.142250;, - -0.082904;-2.235541; 2.242876;, - -0.103755;-2.234962; 2.156345;, - 0.082904;-2.235541; 2.242876;, - 0.076475;-2.229542; 2.334870;, - 0.117780;-2.230145; 2.142250;, - -0.117780;-2.230145; 2.142250;, - -0.076475;-2.229542; 2.334870;, - -0.082904;-2.235541; 2.242876;, - 0.039136;-2.258074; 2.296473;, - 0.027897;-2.264246; 2.315518;, - 0.076475;-2.229542; 2.334870;, - -0.076475;-2.229542; 2.334870;, - -0.027897;-2.264246; 2.315518;, - -0.039136;-2.258074; 2.296473;, - 0.039136;-2.258074; 2.296473;, - 0.017345;-2.280157; 2.210732;, - 0.027897;-2.264246; 2.315518;, - -0.027897;-2.264246; 2.315518;, - -0.017345;-2.280157; 2.210732;, - -0.039136;-2.258074; 2.296473;, - 0.027897;-2.264246; 2.315518;, - 0.017345;-2.280157; 2.210732;, - 0.000000;-2.281533; 2.211258;, - 0.000000;-2.281533; 2.211258;, - -0.017345;-2.280157; 2.210732;, - -0.027897;-2.264246; 2.315518;, - 0.117780;-2.230145; 2.142250;, - 0.076475;-2.229542; 2.334870;, - 0.113775;-2.192298; 2.215208;, - -0.113775;-2.192298; 2.215208;, - -0.076475;-2.229542; 2.334870;, - -0.117780;-2.230145; 2.142250;, - 0.076475;-2.229542; 2.334870;, - 0.056887;-2.150986; 2.254449;, - 0.113775;-2.192298; 2.215208;, - -0.113775;-2.192298; 2.215208;, - -0.056887;-2.150986; 2.254449;, - -0.076475;-2.229542; 2.334870;, - 0.040739;-2.186157; 2.300256;, - 0.056887;-2.150986; 2.254449;, - 0.076475;-2.229542; 2.334870;, - -0.076475;-2.229542; 2.334870;, - -0.056887;-2.150986; 2.254449;, - -0.040739;-2.186157; 2.300256;, - 0.020616;-2.218337; 2.306469;, - 0.040739;-2.186157; 2.300256;, - 0.076475;-2.229542; 2.334870;, - -0.076475;-2.229542; 2.334870;, - -0.040739;-2.186157; 2.300256;, - -0.020616;-2.218337; 2.306469;, - 0.027897;-2.264246; 2.315518;, - 0.020616;-2.218337; 2.306469;, - 0.076475;-2.229542; 2.334870;, - -0.076475;-2.229542; 2.334870;, - -0.020616;-2.218337; 2.306469;, - -0.027897;-2.264246; 2.315518;, - 0.020616;-2.218337; 2.306469;, - 0.027897;-2.264246; 2.315518;, - 0.000000;-2.281533; 2.211258;, - 0.000000;-2.281533; 2.211258;, - -0.027897;-2.264246; 2.315518;, - -0.020616;-2.218337; 2.306469;, - 0.020616;-2.218337; 2.306469;, - 0.000000;-2.281533; 2.211258;, - 0.000000;-2.121084; 2.282716;, - 0.000000;-2.121084; 2.282716;, - 0.000000;-2.281533; 2.211258;, - -0.020616;-2.218337; 2.306469;, - 0.040739;-2.186157; 2.300256;, - 0.020616;-2.218337; 2.306469;, - 0.000000;-2.121084; 2.282716;, - 0.000000;-2.121084; 2.282716;, - -0.020616;-2.218337; 2.306469;, - -0.040739;-2.186157; 2.300256;, - 0.056887;-2.150986; 2.254449;, - 0.040739;-2.186157; 2.300256;, - 0.000000;-2.121084; 2.282716;, - 0.000000;-2.121084; 2.282716;, - -0.040739;-2.186157; 2.300256;, - -0.056887;-2.150986; 2.254449;, - 0.056887;-2.150986; 2.254449;, - 0.109227;-2.112867; 2.245991;, - 0.113775;-2.192298; 2.215208;, - -0.113775;-2.192298; 2.215208;, - -0.109227;-2.112867; 2.245991;, - -0.056887;-2.150986; 2.254449;, - 0.138747;-1.993072; 2.101155;, - 0.148135;-2.065737; 1.976115;, - 0.133973;-1.967785; 2.022223;, - -0.133973;-1.967785; 2.022223;, - -0.148135;-2.065737; 1.976115;, - -0.138747;-1.993072; 2.101155;, - 0.082904;-2.235541; 2.242876;, - 0.067450;-2.238019; 2.312873;, - 0.076475;-2.229542; 2.334870;, - -0.076475;-2.229542; 2.334870;, - -0.067450;-2.238019; 2.312873;, - -0.082904;-2.235541; 2.242876;, - 0.039136;-2.258074; 2.296473;, - 0.076475;-2.229542; 2.334870;, - 0.067450;-2.238019; 2.312873;, - -0.067450;-2.238019; 2.312873;, - -0.076475;-2.229542; 2.334870;, - -0.039136;-2.258074; 2.296473;, - 0.160169;-1.983632; 2.174989;, - 0.138747;-1.993072; 2.101155;, - 0.128875;-1.933315; 2.198711;, - -0.128875;-1.933315; 2.198711;, - -0.138747;-1.993072; 2.101155;, - -0.160169;-1.983632; 2.174989;, - 0.138747;-1.993072; 2.101155;, - 0.096321;-1.847451; 2.150939;, - 0.128875;-1.933315; 2.198711;, - -0.128875;-1.933315; 2.198711;, - -0.096321;-1.847451; 2.150939;, - -0.138747;-1.993072; 2.101155;, - 0.138747;-1.993072; 2.101155;, - 0.090093;-1.830111; 2.087243;, - 0.096321;-1.847451; 2.150939;, - -0.096321;-1.847451; 2.150939;, - -0.090093;-1.830111; 2.087243;, - -0.138747;-1.993072; 2.101155;, - 0.133973;-1.967785; 2.022223;, - 0.090093;-1.830111; 2.087243;, - 0.138747;-1.993072; 2.101155;, - -0.138747;-1.993072; 2.101155;, - -0.090093;-1.830111; 2.087243;, - -0.133973;-1.967785; 2.022223;, - 0.076196;-1.902764; 2.035418;, - 0.090093;-1.830111; 2.087243;, - 0.133973;-1.967785; 2.022223;, - -0.133973;-1.967785; 2.022223;, - -0.090093;-1.830111; 2.087243;, - -0.076196;-1.902764; 2.035418;, - 0.058587;-1.911677; 2.044628;, - 0.090093;-1.830111; 2.087243;, - 0.076196;-1.902764; 2.035418;, - -0.076196;-1.902764; 2.035418;, - -0.090093;-1.830111; 2.087243;, - -0.058587;-1.911677; 2.044628;, - 0.000000;-1.818988; 2.134552;, - 0.096321;-1.847451; 2.150939;, - 0.090093;-1.830111; 2.087243;, - -0.090093;-1.830111; 2.087243;, - -0.096321;-1.847451; 2.150939;, - 0.000000;-1.818988; 2.134552;, - 0.000000;-1.818988; 2.134552;, - 0.090093;-1.830111; 2.087243;, - 0.058587;-1.911677; 2.044628;, - -0.058587;-1.911677; 2.044628;, - -0.090093;-1.830111; 2.087243;, - 0.000000;-1.818988; 2.134552;, - 0.000000;-1.933485; 2.236905;, - 0.096321;-1.847451; 2.150939;, - 0.000000;-1.818988; 2.134552;, - 0.000000;-1.818988; 2.134552;, - -0.096321;-1.847451; 2.150939;, - 0.000000;-1.933485; 2.236905;, - 0.096321;-1.847451; 2.150939;, - 0.000000;-1.933485; 2.236905;, - 0.128875;-1.933315; 2.198711;, - -0.128875;-1.933315; 2.198711;, - 0.000000;-1.933485; 2.236905;, - -0.096321;-1.847451; 2.150939;, - 0.000000;-1.933485; 2.236905;, - 0.115083;-2.006396; 2.149259;, - 0.128875;-1.933315; 2.198711;, - -0.128875;-1.933315; 2.198711;, - -0.115083;-2.006396; 2.149259;, - 0.000000;-1.933485; 2.236905;, - 0.000000;-1.933485; 2.236905;, - 0.120471;-2.070837; 2.093725;, - 0.115083;-2.006396; 2.149259;, - -0.115083;-2.006396; 2.149259;, - -0.120471;-2.070837; 2.093725;, - 0.000000;-1.933485; 2.236905;, - 0.000000;-1.933485; 2.236905;, - 0.000000;-2.141324; 2.162685;, - 0.120471;-2.070837; 2.093725;, - -0.120471;-2.070837; 2.093725;, - 0.000000;-2.141324; 2.162685;, - 0.000000;-1.933485; 2.236905;, - 0.000000;-2.141324; 2.162685;, - 0.133969;-2.145086; 2.056030;, - 0.120471;-2.070837; 2.093725;, - -0.120471;-2.070837; 2.093725;, - -0.133969;-2.145086; 2.056030;, - 0.000000;-2.141324; 2.162685;, - 0.000000;-2.141324; 2.162685;, - 0.132136;-2.293749; 2.031949;, - 0.133969;-2.145086; 2.056030;, - -0.133969;-2.145086; 2.056030;, - -0.132136;-2.293749; 2.031949;, - 0.000000;-2.141324; 2.162685;, - 0.000000;-2.308905; 2.076900;, - 0.000000;-2.141324; 2.162685;, - 0.132136;-2.293749; 2.031949;, - 0.000000;-2.308905; 2.076900;, - -0.132136;-2.293749; 2.031949;, - 0.000000;-2.141324; 2.162685;, - 0.084740;-2.407800; 2.008074;, - 0.000000;-2.308905; 2.076900;, - 0.132136;-2.293749; 2.031949;, - -0.084740;-2.407800; 2.008074;, - -0.132136;-2.293749; 2.031949;, - 0.000000;-2.308905; 2.076900;, - 0.000000;-2.441655; 1.992423;, - 0.000000;-2.308905; 2.076900;, - 0.084740;-2.407800; 2.008074;, - 0.000000;-2.441655; 1.992423;, - -0.084740;-2.407800; 2.008074;, - 0.000000;-2.308905; 2.076900;, - 0.076196;-1.902764; 2.035418;, - 0.061808;-1.991901; 1.915604;, - 0.024316;-2.019655; 1.895002;, - -0.024316;-2.019655; 1.895002;, - -0.061808;-1.991901; 1.915604;, - -0.076196;-1.902764; 2.035418;, - 0.074701;-2.003433; 1.990597;, - 0.076196;-1.902764; 2.035418;, - 0.024316;-2.019655; 1.895002;, - -0.024316;-2.019655; 1.895002;, - -0.076196;-1.902764; 2.035418;, - -0.074701;-2.003433; 1.990597;, - 0.061808;-1.991901; 1.915604;, - 0.076196;-1.902764; 2.035418;, - 0.133973;-1.967785; 2.022223;, - -0.133973;-1.967785; 2.022223;, - -0.076196;-1.902764; 2.035418;, - -0.061808;-1.991901; 1.915604;, - 0.058587;-1.911677; 2.044628;, - 0.076196;-1.902764; 2.035418;, - 0.074701;-2.003433; 1.990597;, - -0.074701;-2.003433; 1.990597;, - -0.076196;-1.902764; 2.035418;, - -0.058587;-1.911677; 2.044628;, - 0.056944;-2.103927; 1.894045;, - 0.074701;-2.003433; 1.990597;, - 0.024316;-2.019655; 1.895002;, - -0.024316;-2.019655; 1.895002;, - -0.074701;-2.003433; 1.990597;, - -0.056944;-2.103927; 1.894045;, - 0.000000;-1.818988; 2.134552;, - 0.058587;-1.911677; 2.044628;, - 0.000000;-1.926765; 2.089402;, - 0.000000;-1.926765; 2.089402;, - -0.058587;-1.911677; 2.044628;, - 0.000000;-1.818988; 2.134552;, - 0.000000;-2.091478; 1.850951;, - 0.056944;-2.103927; 1.894045;, - 0.024316;-2.019655; 1.895002;, - -0.024316;-2.019655; 1.895002;, - -0.056944;-2.103927; 1.894045;, - 0.000000;-2.091478; 1.850951;, - 0.024316;-2.019655; 1.895002;, - 0.061808;-1.991901; 1.915604;, - 0.000000;-2.079986; 1.849036;, - -0.061808;-1.991901; 1.915604;, - 0.000000;-2.079986; 1.849036;, - -0.024316;-2.019655; 1.895002;, - 0.078488;-2.100138; 1.815893;, - 0.061808;-1.991901; 1.915604;, - 0.000000;-2.079986; 1.849036;, - -0.078488;-2.100138; 1.815893;, - 0.000000;-2.079986; 1.849036;, - -0.061808;-1.991901; 1.915604;, - 0.078488;-2.100138; 1.815893;, - 0.000000;-2.079986; 1.849036;, - 0.000000;-2.147978; 1.775298;, - -0.078488;-2.100138; 1.815893;, - 0.000000;-2.147978; 1.775298;, - 0.000000;-2.079986; 1.849036;, - 0.055038;-2.178331; 1.758060;, - 0.078488;-2.100138; 1.815893;, - 0.000000;-2.147978; 1.775298;, - -0.055038;-2.178331; 1.758060;, - 0.000000;-2.147978; 1.775298;, - -0.078488;-2.100138; 1.815893;, - 0.055038;-2.178331; 1.758060;, - 0.000000;-2.147978; 1.775298;, - 0.000000;-2.227462; 1.738908;, - -0.055038;-2.178331; 1.758060;, - 0.000000;-2.227462; 1.738908;, - 0.000000;-2.147978; 1.775298;, - 0.138914;-2.032206; 1.946064;, - 0.061808;-1.991901; 1.915604;, - 0.133973;-1.967785; 2.022223;, - -0.133973;-1.967785; 2.022223;, - -0.061808;-1.991901; 1.915604;, - -0.138914;-2.032206; 1.946064;, - 0.143928;-2.151839; 1.860176;, - 0.061808;-1.991901; 1.915604;, - 0.138914;-2.032206; 1.946064;, - -0.061808;-1.991901; 1.915604;, - -0.138914;-2.032206; 1.946064;, - -0.143928;-2.151839; 1.860176;, - 0.061808;-1.991901; 1.915604;, - 0.078488;-2.100138; 1.815893;, - 0.143928;-2.151839; 1.860176;, - -0.061808;-1.991901; 1.915604;, - -0.143928;-2.151839; 1.860176;, - -0.078488;-2.100138; 1.815893;, - 0.129818;-2.231464; 1.795620;, - 0.078488;-2.100138; 1.815893;, - 0.143928;-2.151839; 1.860176;, - -0.078488;-2.100138; 1.815893;, - -0.143928;-2.151839; 1.860176;, - -0.129818;-2.231464; 1.795620;, - 0.078488;-2.100138; 1.815893;, - 0.055038;-2.178331; 1.758060;, - 0.129818;-2.231464; 1.795620;, - -0.078488;-2.100138; 1.815893;, - -0.129818;-2.231464; 1.795620;, - -0.055038;-2.178331; 1.758060;, - 0.055038;-2.178331; 1.758060;, - 0.078651;-2.288382; 1.751413;, - 0.129818;-2.231464; 1.795620;, - -0.055038;-2.178331; 1.758060;, - -0.129818;-2.231464; 1.795620;, - -0.078651;-2.288382; 1.751413;, - 0.055038;-2.178331; 1.758060;, - 0.000000;-2.227462; 1.738908;, - 0.078651;-2.288382; 1.751413;, - -0.055038;-2.178331; 1.758060;, - -0.078651;-2.288382; 1.751413;, - 0.000000;-2.227462; 1.738908;, - 0.000000;-2.305988; 1.732204;, - 0.000000;-2.227462; 1.738908;, - 0.078651;-2.288382; 1.751413;, - -0.078651;-2.288382; 1.751413;, - 0.000000;-2.227462; 1.738908;, - 0.000000;-2.305988; 1.732204;, - 0.115083;-2.006396; 2.149259;, - 0.120471;-2.070837; 2.093725;, - 0.153113;-2.007281; 2.137748;, - -0.153113;-2.007281; 2.137748;, - -0.120471;-2.070837; 2.093725;, - -0.115083;-2.006396; 2.149259;, - 0.160169;-1.983632; 2.174989;, - 0.115083;-2.006396; 2.149259;, - 0.153113;-2.007281; 2.137748;, - -0.153113;-2.007281; 2.137748;, - -0.115083;-2.006396; 2.149259;, - -0.160169;-1.983632; 2.174989;, - 0.128875;-1.933315; 2.198711;, - 0.115083;-2.006396; 2.149259;, - 0.160169;-1.983632; 2.174989;, - -0.160169;-1.983632; 2.174989;, - -0.115083;-2.006396; 2.149259;, - -0.128875;-1.933315; 2.198711;, - 0.000000;-2.170962; 1.775298;, - 0.056944;-2.103927; 1.894045;, - 0.000000;-2.091478; 1.850951;, - 0.000000;-2.091478; 1.850951;, - -0.056944;-2.103927; 1.894045;, - 0.000000;-2.170962; 1.775298;, - 0.041755;-2.181496; 1.797324;, - 0.056944;-2.103927; 1.894045;, - 0.000000;-2.170962; 1.775298;, - 0.000000;-2.170962; 1.775298;, - -0.056944;-2.103927; 1.894045;, - -0.041755;-2.181496; 1.797324;, - 0.029845;-2.232250; 1.767637;, - 0.041755;-2.181496; 1.797324;, - 0.000000;-2.170962; 1.775298;, - 0.000000;-2.170962; 1.775298;, - -0.041755;-2.181496; 1.797324;, - -0.029845;-2.232250; 1.767637;, - 0.000000;-2.245657; 1.751357;, - 0.029845;-2.232250; 1.767637;, - 0.000000;-2.170962; 1.775298;, - 0.000000;-2.170962; 1.775298;, - -0.029845;-2.232250; 1.767637;, - 0.000000;-2.245657; 1.751357;, - 0.000000;-2.249488; 1.769552;, - 0.029845;-2.232250; 1.767637;, - 0.000000;-2.245657; 1.751357;, - 0.000000;-2.245657; 1.751357;, - -0.029845;-2.232250; 1.767637;, - 0.000000;-2.249488; 1.769552;, - 0.000000;-2.249488; 1.769552;, - 0.000000;-2.189157; 1.820307;, - 0.029845;-2.232250; 1.767637;, - -0.029845;-2.232250; 1.767637;, - 0.000000;-2.189157; 1.820307;, - 0.000000;-2.249488; 1.769552;, - 0.000000;-2.189157; 1.820307;, - 0.041755;-2.181496; 1.797324;, - 0.029845;-2.232250; 1.767637;, - -0.029845;-2.232250; 1.767637;, - -0.041755;-2.181496; 1.797324;, - 0.000000;-2.189157; 1.820307;, - 0.056944;-2.103927; 1.894045;, - 0.041755;-2.181496; 1.797324;, - 0.000000;-2.189157; 1.820307;, - 0.000000;-2.189157; 1.820307;, - -0.041755;-2.181496; 1.797324;, - -0.056944;-2.103927; 1.894045;, - 0.000000;-2.118292; 1.908409;, - 0.056944;-2.103927; 1.894045;, - 0.000000;-2.189157; 1.820307;, - 0.000000;-2.189157; 1.820307;, - -0.056944;-2.103927; 1.894045;, - 0.000000;-2.118292; 1.908409;, - 0.074701;-2.003433; 1.990597;, - 0.056944;-2.103927; 1.894045;, - 0.000000;-2.118292; 1.908409;, - 0.000000;-2.118292; 1.908409;, - -0.056944;-2.103927; 1.894045;, - -0.074701;-2.003433; 1.990597;, - 0.000000;-2.018698; 2.005130;, - 0.074701;-2.003433; 1.990597;, - 0.000000;-2.118292; 1.908409;, - 0.000000;-2.118292; 1.908409;, - -0.074701;-2.003433; 1.990597;, - 0.000000;-2.018698; 2.005130;, - 0.000000;-2.018698; 2.005130;, - 0.000000;-1.926765; 2.089402;, - 0.074701;-2.003433; 1.990597;, - -0.074701;-2.003433; 1.990597;, - 0.000000;-1.926765; 2.089402;, - 0.000000;-2.018698; 2.005130;, - 0.000000;-1.926765; 2.089402;, - 0.058587;-1.911677; 2.044628;, - 0.074701;-2.003433; 1.990597;, - -0.074701;-2.003433; 1.990597;, - -0.058587;-1.911677; 2.044628;, - 0.000000;-1.926765; 2.089402;, - 0.019563;-1.886127; 2.606776;, - 0.003596;-1.907515; 2.552987;, - 0.000000;-1.877629; 2.643814;, - 0.000000;-1.877629; 2.643814;, - -0.003596;-1.907515; 2.552987;, - -0.019563;-1.886127; 2.606776;, - 0.003596;-1.907515; 2.552987;, - 0.000000;-1.933060; 2.485732;, - 0.000000;-1.877629; 2.643814;, - 0.000000;-1.877629; 2.643814;, - 0.000000;-1.933060; 2.485732;, - -0.003596;-1.907515; 2.552987;, - 0.000000;-1.933060; 2.485732;, - 0.013756;-1.943636; 2.448554;, - 0.000000;-1.988582; 2.368933;, - 0.000000;-1.988582; 2.368933;, - -0.013756;-1.943636; 2.448554;, - 0.000000;-1.933060; 2.485732;, - 0.013756;-1.943636; 2.448554;, - 0.060269;-1.942942; 2.437949;, - 0.000000;-1.988582; 2.368933;, - 0.000000;-1.988582; 2.368933;, - -0.060269;-1.942942; 2.437949;, - -0.013756;-1.943636; 2.448554;, - 0.000000;-1.988582; 2.368933;, - 0.060269;-1.942942; 2.437949;, - 0.072079;-1.964915; 2.385532;, - -0.072079;-1.964915; 2.385532;, - -0.060269;-1.942942; 2.437949;, - 0.000000;-1.988582; 2.368933;, - 0.072079;-1.964915; 2.385532;, - 0.060269;-1.942942; 2.437949;, - 0.123174;-1.940886; 2.416166;, - -0.123174;-1.940886; 2.416166;, - -0.060269;-1.942942; 2.437949;, - -0.072079;-1.964915; 2.385532;, - 0.123174;-1.940886; 2.416166;, - 0.060269;-1.942942; 2.437949;, - 0.105416;-1.929131; 2.451559;, - -0.105416;-1.929131; 2.451559;, - -0.060269;-1.942942; 2.437949;, - -0.123174;-1.940886; 2.416166;, - 0.105416;-1.929131; 2.451559;, - 0.135870;-1.878520; 2.510197;, - 0.123174;-1.940886; 2.416166;, - -0.123174;-1.940886; 2.416166;, - -0.135870;-1.878520; 2.510197;, - -0.105416;-1.929131; 2.451559;, - 0.135870;-1.878520; 2.510197;, - 0.112443;-1.887418; 2.548098;, - 0.109987;-1.840537; 2.667545;, - -0.109987;-1.840537; 2.667545;, - -0.112443;-1.887418; 2.548098;, - -0.135870;-1.878520; 2.510197;, - 0.112443;-1.887418; 2.548098;, - 0.089605;-1.867946; 2.616085;, - 0.109987;-1.840537; 2.667545;, - -0.109987;-1.840537; 2.667545;, - -0.089605;-1.867946; 2.616085;, - -0.112443;-1.887418; 2.548098;, - 0.051957;-1.869376; 2.634272;, - 0.067319;-1.847192; 2.769888;, - 0.109987;-1.840537; 2.667545;, - -0.109987;-1.840537; 2.667545;, - -0.067319;-1.847192; 2.769888;, - -0.051957;-1.869376; 2.634272;, - 0.089605;-1.867946; 2.616085;, - 0.051957;-1.869376; 2.634272;, - 0.109987;-1.840537; 2.667545;, - -0.109987;-1.840537; 2.667545;, - -0.051957;-1.869376; 2.634272;, - -0.089605;-1.867946; 2.616085;, - 0.051957;-1.869376; 2.634272;, - 0.019563;-1.886127; 2.606776;, - 0.000000;-1.877629; 2.643814;, - 0.000000;-1.877629; 2.643814;, - -0.019563;-1.886127; 2.606776;, - -0.051957;-1.869376; 2.634272;, - 0.051957;-1.869376; 2.634272;, - 0.000000;-1.877629; 2.643814;, - 0.000000;-1.861331; 2.737994;, - 0.000000;-1.861331; 2.737994;, - 0.000000;-1.877629; 2.643814;, - -0.051957;-1.869376; 2.634272;, - 0.067319;-1.847192; 2.769888;, - 0.051957;-1.869376; 2.634272;, - 0.000000;-1.861331; 2.737994;, - 0.000000;-1.861331; 2.737994;, - -0.051957;-1.869376; 2.634272;, - -0.067319;-1.847192; 2.769888;, - 0.067319;-1.847192; 2.769888;, - 0.000000;-1.861331; 2.737994;, - 0.000000;-1.846697; 2.807856;, - 0.000000;-1.846697; 2.807856;, - 0.000000;-1.861331; 2.737994;, - -0.067319;-1.847192; 2.769888;, - 0.162484;-1.850335; 2.465449;, - 0.135870;-1.878520; 2.510197;, - 0.109987;-1.840537; 2.667545;, - -0.109987;-1.840537; 2.667545;, - -0.135870;-1.878520; 2.510197;, - -0.162484;-1.850335; 2.465449;, - 0.056887;-2.150986; 2.254449;, - 0.132730;-1.984984; 2.327319;, - 0.109227;-2.112867; 2.245991;, - -0.109227;-2.112867; 2.245991;, - -0.132730;-1.984984; 2.327319;, - -0.056887;-2.150986; 2.254449;, - 0.135870;-1.878520; 2.510197;, - 0.115901;-1.905810; 2.499766;, - 0.112443;-1.887418; 2.548098;, - -0.112443;-1.887418; 2.548098;, - -0.115901;-1.905810; 2.499766;, - -0.135870;-1.878520; 2.510197;, - 0.135870;-1.878520; 2.510197;, - 0.105416;-1.929131; 2.451559;, - 0.115901;-1.905810; 2.499766;, - -0.115901;-1.905810; 2.499766;, - -0.105416;-1.929131; 2.451559;, - -0.135870;-1.878520; 2.510197;, - 0.000000;-1.933060; 2.485732;, - 0.005076;-1.927588; 2.495709;, - 0.013756;-1.943636; 2.448554;, - -0.013756;-1.943636; 2.448554;, - -0.005076;-1.927588; 2.495709;, - 0.000000;-1.933060; 2.485732;, - 0.000000;-1.933060; 2.485732;, - 0.003596;-1.907515; 2.552987;, - 0.005076;-1.927588; 2.495709;, - -0.005076;-1.927588; 2.495709;, - -0.003596;-1.907515; 2.552987;, - 0.000000;-1.933060; 2.485732;, - 0.123174;-1.940886; 2.416166;, - 0.135870;-1.878520; 2.510197;, - 0.162484;-1.850335; 2.465449;, - -0.162484;-1.850335; 2.465449;, - -0.135870;-1.878520; 2.510197;, - -0.123174;-1.940886; 2.416166;, - 0.078326;-1.984800; 2.353194;, - 0.072079;-1.964915; 2.385532;, - 0.123174;-1.940886; 2.416166;, - -0.123174;-1.940886; 2.416166;, - -0.072079;-1.964915; 2.385532;, - -0.078326;-1.984800; 2.353194;, - 0.078326;-1.984800; 2.353194;, - 0.132730;-1.984984; 2.327319;, - 0.056887;-2.150986; 2.254449;, - -0.056887;-2.150986; 2.254449;, - -0.132730;-1.984984; 2.327319;, - -0.078326;-1.984800; 2.353194;, - 0.000000;-2.121084; 2.282716;, - 0.078326;-1.984800; 2.353194;, - 0.056887;-2.150986; 2.254449;, - -0.056887;-2.150986; 2.254449;, - -0.078326;-1.984800; 2.353194;, - 0.000000;-2.121084; 2.282716;, - 0.078326;-1.984800; 2.353194;, - 0.000000;-2.121084; 2.282716;, - 0.000000;-1.988582; 2.368933;, - 0.000000;-1.988582; 2.368933;, - 0.000000;-2.121084; 2.282716;, - -0.078326;-1.984800; 2.353194;, - 0.072079;-1.964915; 2.385532;, - 0.078326;-1.984800; 2.353194;, - 0.000000;-1.988582; 2.368933;, - 0.000000;-1.988582; 2.368933;, - -0.078326;-1.984800; 2.353194;, - -0.072079;-1.964915; 2.385532;, - 0.162484;-1.850335; 2.465449;, - 0.128834;-1.958720; 2.363467;, - 0.123174;-1.940886; 2.416166;, - -0.123174;-1.940886; 2.416166;, - -0.128834;-1.958720; 2.363467;, - -0.162484;-1.850335; 2.465449;, - 0.162484;-1.850335; 2.465449;, - 0.132730;-1.984984; 2.327319;, - 0.128834;-1.958720; 2.363467;, - -0.128834;-1.958720; 2.363467;, - -0.132730;-1.984984; 2.327319;, - -0.162484;-1.850335; 2.465449;, - 0.078326;-1.984800; 2.353194;, - 0.128834;-1.958720; 2.363467;, - 0.132730;-1.984984; 2.327319;, - -0.132730;-1.984984; 2.327319;, - -0.128834;-1.958720; 2.363467;, - -0.078326;-1.984800; 2.353194;, - 0.078326;-1.984800; 2.353194;, - 0.123174;-1.940886; 2.416166;, - 0.128834;-1.958720; 2.363467;, - -0.128834;-1.958720; 2.363467;, - -0.123174;-1.940886; 2.416166;, - -0.078326;-1.984800; 2.353194;, - 0.023731;-1.939401; 2.505618;, - 0.013756;-1.943636; 2.448554;, - 0.005076;-1.927588; 2.495709;, - -0.005076;-1.927588; 2.495709;, - -0.013756;-1.943636; 2.448554;, - -0.023731;-1.939401; 2.505618;, - 0.023731;-1.939401; 2.505618;, - 0.005076;-1.927588; 2.495709;, - 0.003596;-1.907515; 2.552987;, - -0.003596;-1.907515; 2.552987;, - -0.005076;-1.927588; 2.495709;, - -0.023731;-1.939401; 2.505618;, - 0.102437;-1.930079; 2.505538;, - 0.112443;-1.887418; 2.548098;, - 0.115901;-1.905810; 2.499766;, - -0.115901;-1.905810; 2.499766;, - -0.112443;-1.887418; 2.548098;, - -0.102437;-1.930079; 2.505538;, - 0.102437;-1.930079; 2.505538;, - 0.115901;-1.905810; 2.499766;, - 0.105416;-1.929131; 2.451559;, - -0.105416;-1.929131; 2.451559;, - -0.115901;-1.905810; 2.499766;, - -0.102437;-1.930079; 2.505538;, - 0.065865;-1.947295; 2.500113;, - 0.023731;-1.939401; 2.505618;, - 0.067397;-1.936774; 2.559233;, - -0.067397;-1.936774; 2.559233;, - -0.023731;-1.939401; 2.505618;, - -0.065865;-1.947295; 2.500113;, - 0.023731;-1.939401; 2.505618;, - 0.028255;-1.924811; 2.557497;, - 0.067397;-1.936774; 2.559233;, - -0.067397;-1.936774; 2.559233;, - -0.028255;-1.924811; 2.557497;, - -0.023731;-1.939401; 2.505618;, - 0.097573;-1.916569; 2.554220;, - 0.102437;-1.930079; 2.505538;, - 0.067397;-1.936774; 2.559233;, - -0.067397;-1.936774; 2.559233;, - -0.102437;-1.930079; 2.505538;, - -0.097573;-1.916569; 2.554220;, - 0.102437;-1.930079; 2.505538;, - 0.065865;-1.947295; 2.500113;, - 0.067397;-1.936774; 2.559233;, - -0.067397;-1.936774; 2.559233;, - -0.065865;-1.947295; 2.500113;, - -0.102437;-1.930079; 2.505538;, - 0.112443;-1.887418; 2.548098;, - 0.102437;-1.930079; 2.505538;, - 0.097573;-1.916569; 2.554220;, - -0.097573;-1.916569; 2.554220;, - -0.102437;-1.930079; 2.505538;, - -0.112443;-1.887418; 2.548098;, - 0.065865;-1.947295; 2.500113;, - 0.102437;-1.930079; 2.505538;, - 0.105416;-1.929131; 2.451559;, - -0.105416;-1.929131; 2.451559;, - -0.102437;-1.930079; 2.505538;, - -0.065865;-1.947295; 2.500113;, - 0.065865;-1.947295; 2.500113;, - 0.013756;-1.943636; 2.448554;, - 0.023731;-1.939401; 2.505618;, - -0.023731;-1.939401; 2.505618;, - -0.013756;-1.943636; 2.448554;, - -0.065865;-1.947295; 2.500113;, - 0.003596;-1.907515; 2.552987;, - 0.028255;-1.924811; 2.557497;, - 0.023731;-1.939401; 2.505618;, - -0.023731;-1.939401; 2.505618;, - -0.028255;-1.924811; 2.557497;, - -0.003596;-1.907515; 2.552987;, - 0.097573;-1.916569; 2.554220;, - 0.089605;-1.867946; 2.616085;, - 0.112443;-1.887418; 2.548098;, - -0.112443;-1.887418; 2.548098;, - -0.089605;-1.867946; 2.616085;, - -0.097573;-1.916569; 2.554220;, - 0.089605;-1.867946; 2.616085;, - 0.097573;-1.916569; 2.554220;, - 0.061931;-1.908368; 2.608064;, - -0.061931;-1.908368; 2.608064;, - -0.097573;-1.916569; 2.554220;, - -0.089605;-1.867946; 2.616085;, - 0.061931;-1.908368; 2.608064;, - 0.051957;-1.869376; 2.634272;, - 0.089605;-1.867946; 2.616085;, - -0.089605;-1.867946; 2.616085;, - -0.051957;-1.869376; 2.634272;, - -0.061931;-1.908368; 2.608064;, - 0.097573;-1.916569; 2.554220;, - 0.067397;-1.936774; 2.559233;, - 0.061931;-1.908368; 2.608064;, - -0.061931;-1.908368; 2.608064;, - -0.067397;-1.936774; 2.559233;, - -0.097573;-1.916569; 2.554220;, - 0.065865;-1.947295; 2.500113;, - 0.105416;-1.929131; 2.451559;, - 0.060269;-1.942942; 2.437949;, - -0.060269;-1.942942; 2.437949;, - -0.105416;-1.929131; 2.451559;, - -0.065865;-1.947295; 2.500113;, - 0.013756;-1.943636; 2.448554;, - 0.065865;-1.947295; 2.500113;, - 0.060269;-1.942942; 2.437949;, - -0.060269;-1.942942; 2.437949;, - -0.065865;-1.947295; 2.500113;, - -0.013756;-1.943636; 2.448554;, - 0.067397;-1.936774; 2.559233;, - 0.028255;-1.924811; 2.557497;, - 0.061931;-1.908368; 2.608064;, - -0.061931;-1.908368; 2.608064;, - -0.028255;-1.924811; 2.557497;, - -0.067397;-1.936774; 2.559233;, - 0.019563;-1.886127; 2.606776;, - 0.028255;-1.924811; 2.557497;, - 0.003596;-1.907515; 2.552987;, - -0.003596;-1.907515; 2.552987;, - -0.028255;-1.924811; 2.557497;, - -0.019563;-1.886127; 2.606776;, - 0.028255;-1.924811; 2.557497;, - 0.019563;-1.886127; 2.606776;, - 0.061931;-1.908368; 2.608064;, - -0.061931;-1.908368; 2.608064;, - -0.019563;-1.886127; 2.606776;, - -0.028255;-1.924811; 2.557497;, - 0.019563;-1.886127; 2.606776;, - 0.051957;-1.869376; 2.634272;, - 0.061931;-1.908368; 2.608064;, - -0.061931;-1.908368; 2.608064;, - -0.051957;-1.869376; 2.634272;, - -0.019563;-1.886127; 2.606776;, - 0.084740;-2.407800; 2.008074;, - 0.094593;-2.420949; 1.931894;, - 0.000000;-2.470648; 1.925395;, - 0.000000;-2.470648; 1.925395;, - -0.094593;-2.420949; 1.931894;, - -0.084740;-2.407800; 2.008074;, - 0.000000;-2.470648; 1.925395;, - 0.000000;-2.441655; 1.992423;, - 0.084740;-2.407800; 2.008074;, - -0.084740;-2.407800; 2.008074;, - 0.000000;-2.441655; 1.992423;, - 0.000000;-2.470648; 1.925395;, - 0.132136;-2.293749; 2.031949;, - 0.094593;-2.420949; 1.931894;, - 0.084740;-2.407800; 2.008074;, - -0.084740;-2.407800; 2.008074;, - -0.094593;-2.420949; 1.931894;, - -0.132136;-2.293749; 2.031949;, - 0.138060;-2.283609; 1.958368;, - 0.094593;-2.420949; 1.931894;, - 0.132136;-2.293749; 2.031949;, - -0.132136;-2.293749; 2.031949;, - -0.094593;-2.420949; 1.931894;, - -0.138060;-2.283609; 1.958368;, - 0.133969;-2.145086; 2.056030;, - 0.138060;-2.283609; 1.958368;, - 0.132136;-2.293749; 2.031949;, - -0.132136;-2.293749; 2.031949;, - -0.138060;-2.283609; 1.958368;, - -0.133969;-2.145086; 2.056030;, - 0.133681;-2.130087; 2.003678;, - 0.138060;-2.283609; 1.958368;, - 0.133969;-2.145086; 2.056030;, - -0.133969;-2.145086; 2.056030;, - -0.138060;-2.283609; 1.958368;, - -0.133681;-2.130087; 2.003678;, - 0.119672;-2.055922; 2.034792;, - 0.133681;-2.130087; 2.003678;, - 0.133969;-2.145086; 2.056030;, - -0.133969;-2.145086; 2.056030;, - -0.133681;-2.130087; 2.003678;, - -0.119672;-2.055922; 2.034792;, - 0.120471;-2.070837; 2.093725;, - 0.119672;-2.055922; 2.034792;, - 0.133969;-2.145086; 2.056030;, - -0.133969;-2.145086; 2.056030;, - -0.119672;-2.055922; 2.034792;, - -0.120471;-2.070837; 2.093725;, - 0.000000;-2.319880; 1.754735;, - 0.080165;-2.302168; 1.768751;, - 0.000000;-2.305988; 1.732204;, - 0.000000;-2.305988; 1.732204;, - -0.080165;-2.302168; 1.768751;, - 0.000000;-2.319880; 1.754735;, - 0.080165;-2.302168; 1.768751;, - 0.078651;-2.288382; 1.751413;, - 0.000000;-2.305988; 1.732204;, - 0.000000;-2.305988; 1.732204;, - -0.078651;-2.288382; 1.751413;, - -0.080165;-2.302168; 1.768751;, - 0.129950;-2.244186; 1.811638;, - 0.078651;-2.288382; 1.751413;, - 0.080165;-2.302168; 1.768751;, - -0.080165;-2.302168; 1.768751;, - -0.078651;-2.288382; 1.751413;, - -0.129950;-2.244186; 1.811638;, - 0.129818;-2.231464; 1.795620;, - 0.078651;-2.288382; 1.751413;, - 0.129950;-2.244186; 1.811638;, - -0.129950;-2.244186; 1.811638;, - -0.078651;-2.288382; 1.751413;, - -0.129818;-2.231464; 1.795620;, - 0.145141;-2.167430; 1.872371;, - 0.129818;-2.231464; 1.795620;, - 0.129950;-2.244186; 1.811638;, - -0.129950;-2.244186; 1.811638;, - -0.129818;-2.231464; 1.795620;, - -0.145141;-2.167430; 1.872371;, - 0.143928;-2.151839; 1.860176;, - 0.129818;-2.231464; 1.795620;, - 0.145141;-2.167430; 1.872371;, - -0.145141;-2.167430; 1.872371;, - -0.129818;-2.231464; 1.795620;, - -0.143928;-2.151839; 1.860176;, - 0.139412;-2.054116; 1.967750;, - 0.143928;-2.151839; 1.860176;, - 0.145141;-2.167430; 1.872371;, - -0.145141;-2.167430; 1.872371;, - -0.143928;-2.151839; 1.860176;, - -0.139412;-2.054116; 1.967750;, - 0.138914;-2.032206; 1.946064;, - 0.143928;-2.151839; 1.860176;, - 0.139412;-2.054116; 1.967750;, - -0.139412;-2.054116; 1.967750;, - -0.143928;-2.151839; 1.860176;, - -0.138914;-2.032206; 1.946064;; - 1930; - 3;0;1;2;, - 3;3;4;5;, - 3;6;7;8;, - 3;9;10;11;, - 3;12;13;14;, - 3;15;16;17;, - 3;18;19;20;, - 3;21;22;23;, - 3;24;25;26;, - 3;27;28;29;, - 3;30;31;32;, - 3;33;34;35;, - 3;36;37;38;, - 3;39;40;41;, - 3;42;43;44;, - 3;45;46;47;, - 3;48;49;50;, - 3;51;52;53;, - 3;54;55;56;, - 3;57;58;59;, - 3;60;61;62;, - 3;63;64;65;, - 3;66;67;68;, - 3;69;70;71;, - 3;72;73;74;, - 3;75;76;77;, - 3;78;79;80;, - 3;81;82;83;, - 3;84;85;86;, - 3;87;88;89;, - 3;90;91;92;, - 3;93;94;95;, - 3;96;97;98;, - 3;99;100;101;, - 3;102;103;104;, - 3;105;106;107;, - 3;108;109;110;, - 3;111;112;113;, - 3;114;115;116;, - 3;117;118;119;, - 3;120;121;122;, - 3;123;124;125;, - 3;126;127;128;, - 3;129;130;131;, - 3;132;133;134;, - 3;135;136;137;, - 3;138;139;140;, - 3;141;142;143;, - 3;144;145;146;, - 3;147;148;149;, - 3;150;151;152;, - 3;153;154;155;, - 3;156;157;158;, - 3;159;160;161;, - 3;162;163;164;, - 3;165;166;167;, - 3;168;169;170;, - 3;171;172;173;, - 3;174;175;176;, - 3;177;178;179;, - 3;180;181;182;, - 3;183;184;185;, - 3;186;187;188;, - 3;189;190;191;, - 3;192;193;194;, - 3;195;196;197;, - 3;198;199;200;, - 3;201;202;203;, - 3;204;205;206;, - 3;207;208;209;, - 3;210;211;212;, - 3;213;214;215;, - 3;216;217;218;, - 3;219;220;221;, - 3;222;223;224;, - 3;225;226;227;, - 3;228;229;230;, - 3;231;232;233;, - 3;234;235;236;, - 3;237;238;239;, - 3;240;241;242;, - 3;243;244;245;, - 3;246;247;248;, - 3;249;250;251;, - 3;252;253;254;, - 3;255;256;257;, - 3;258;259;260;, - 3;261;262;263;, - 3;264;265;266;, - 3;267;268;269;, - 3;270;271;272;, - 3;273;274;275;, - 3;276;277;278;, - 3;279;280;281;, - 3;282;283;284;, - 3;285;286;287;, - 3;288;289;290;, - 3;291;292;293;, - 3;294;295;296;, - 3;297;298;299;, - 3;300;301;302;, - 3;303;304;305;, - 3;306;307;308;, - 3;309;310;311;, - 3;312;313;314;, - 3;315;316;317;, - 3;318;319;320;, - 3;321;322;323;, - 3;324;325;326;, - 3;327;328;329;, - 3;330;331;332;, - 3;333;334;335;, - 3;336;337;338;, - 3;339;340;341;, - 3;342;343;344;, - 3;345;346;347;, - 3;348;349;350;, - 3;351;352;353;, - 3;354;355;356;, - 3;357;358;359;, - 3;360;361;362;, - 3;363;364;365;, - 3;366;367;368;, - 3;369;370;371;, - 3;372;373;374;, - 3;375;376;377;, - 3;378;379;380;, - 3;381;382;383;, - 3;384;385;386;, - 3;387;388;389;, - 3;390;391;392;, - 3;393;394;395;, - 3;396;397;398;, - 3;399;400;401;, - 3;402;403;404;, - 3;405;406;407;, - 3;408;409;410;, - 3;411;412;413;, - 3;414;415;416;, - 3;417;418;419;, - 3;420;421;422;, - 3;423;424;425;, - 3;426;427;428;, - 3;429;430;431;, - 3;432;433;434;, - 3;435;436;437;, - 3;438;439;440;, - 3;441;442;443;, - 3;444;445;446;, - 3;447;448;449;, - 3;450;451;452;, - 3;453;454;455;, - 3;456;457;458;, - 3;459;460;461;, - 3;462;463;464;, - 3;465;466;467;, - 3;468;469;470;, - 3;471;472;473;, - 3;474;475;476;, - 3;477;478;479;, - 3;480;481;482;, - 3;483;484;485;, - 3;486;487;488;, - 3;489;490;491;, - 3;492;493;494;, - 3;495;496;497;, - 3;498;499;500;, - 3;501;502;503;, - 3;504;505;506;, - 3;507;508;509;, - 3;510;511;512;, - 3;513;514;515;, - 3;516;517;518;, - 3;519;520;521;, - 3;522;523;524;, - 3;525;526;527;, - 3;528;529;530;, - 3;531;532;533;, - 3;534;535;536;, - 3;537;538;539;, - 3;540;541;542;, - 3;543;544;545;, - 3;546;547;548;, - 3;549;550;551;, - 3;552;553;554;, - 3;555;556;557;, - 3;558;559;560;, - 3;561;562;563;, - 3;564;565;566;, - 3;567;568;569;, - 3;570;571;572;, - 3;573;574;575;, - 3;576;577;578;, - 3;579;580;581;, - 3;582;583;584;, - 3;585;586;587;, - 3;588;589;590;, - 3;591;592;593;, - 3;594;595;596;, - 3;597;598;599;, - 3;600;601;602;, - 3;603;604;605;, - 3;606;607;608;, - 3;609;610;611;, - 3;612;613;614;, - 3;615;616;617;, - 3;618;619;620;, - 3;621;622;623;, - 3;624;625;626;, - 3;627;628;629;, - 3;630;631;632;, - 3;633;634;635;, - 3;636;637;638;, - 3;639;640;641;, - 3;642;643;644;, - 3;645;646;647;, - 3;648;649;650;, - 3;651;652;653;, - 3;654;655;656;, - 3;657;658;659;, - 3;660;661;662;, - 3;663;664;665;, - 3;666;667;668;, - 3;669;670;671;, - 3;672;673;674;, - 3;675;676;677;, - 3;678;679;680;, - 3;681;682;683;, - 3;684;685;686;, - 3;687;688;689;, - 3;690;691;692;, - 3;693;694;695;, - 3;696;697;698;, - 3;699;700;701;, - 3;702;703;704;, - 3;705;706;707;, - 3;708;709;710;, - 3;711;712;713;, - 3;714;715;716;, - 3;717;718;719;, - 3;720;721;722;, - 3;723;724;725;, - 3;726;727;728;, - 3;729;730;731;, - 3;732;733;734;, - 3;735;736;737;, - 3;738;739;740;, - 3;741;742;743;, - 3;744;745;746;, - 3;747;748;749;, - 3;750;751;752;, - 3;753;754;755;, - 3;756;757;758;, - 3;759;760;761;, - 3;762;763;764;, - 3;765;766;767;, - 3;768;769;770;, - 3;771;772;773;, - 3;774;775;776;, - 3;777;778;779;, - 3;780;781;782;, - 3;783;784;785;, - 3;786;787;788;, - 3;789;790;791;, - 3;792;793;794;, - 3;795;796;797;, - 3;798;799;800;, - 3;801;802;803;, - 3;804;805;806;, - 3;807;808;809;, - 3;810;811;812;, - 3;813;814;815;, - 3;816;817;818;, - 3;819;820;821;, - 3;822;823;824;, - 3;825;826;827;, - 3;828;829;830;, - 3;831;832;833;, - 3;834;835;836;, - 3;837;838;839;, - 3;840;841;842;, - 3;843;844;845;, - 3;846;847;848;, - 3;849;850;851;, - 3;852;853;854;, - 3;855;856;857;, - 3;858;859;860;, - 3;861;862;863;, - 3;864;865;866;, - 3;867;868;869;, - 3;870;871;872;, - 3;873;874;875;, - 3;876;877;878;, - 3;879;880;881;, - 3;882;883;884;, - 3;885;886;887;, - 3;888;889;890;, - 3;891;892;893;, - 3;894;895;896;, - 3;897;898;899;, - 3;900;901;902;, - 3;903;904;905;, - 3;906;907;908;, - 3;909;910;911;, - 3;912;913;914;, - 3;915;916;917;, - 3;918;919;920;, - 3;921;922;923;, - 3;924;925;926;, - 3;927;928;929;, - 3;930;931;932;, - 3;933;934;935;, - 3;936;937;938;, - 3;939;940;941;, - 3;942;943;944;, - 3;945;946;947;, - 3;948;949;950;, - 3;951;952;953;, - 3;954;955;956;, - 3;957;958;959;, - 3;960;961;962;, - 3;963;964;965;, - 3;966;967;968;, - 3;969;970;971;, - 3;972;973;974;, - 3;975;976;977;, - 3;978;979;980;, - 3;981;982;983;, - 3;984;985;986;, - 3;987;988;989;, - 3;990;991;992;, - 3;993;994;995;, - 3;996;997;998;, - 3;999;1000;1001;, - 3;1002;1003;1004;, - 3;1005;1006;1007;, - 3;1008;1009;1010;, - 3;1011;1012;1013;, - 3;1014;1015;1016;, - 3;1017;1018;1019;, - 3;1020;1021;1022;, - 3;1023;1024;1025;, - 3;1026;1027;1028;, - 3;1029;1030;1031;, - 3;1032;1033;1034;, - 3;1035;1036;1037;, - 3;1038;1039;1040;, - 3;1041;1042;1043;, - 3;1044;1045;1046;, - 3;1047;1048;1049;, - 3;1050;1051;1052;, - 3;1053;1054;1055;, - 3;1056;1057;1058;, - 3;1059;1060;1061;, - 3;1062;1063;1064;, - 3;1065;1066;1067;, - 3;1068;1069;1070;, - 3;1071;1072;1073;, - 3;1074;1075;1076;, - 3;1077;1078;1079;, - 3;1080;1081;1082;, - 3;1083;1084;1085;, - 3;1086;1087;1088;, - 3;1089;1090;1091;, - 3;1092;1093;1094;, - 3;1095;1096;1097;, - 3;1098;1099;1100;, - 3;1101;1102;1103;, - 3;1104;1105;1106;, - 3;1107;1108;1109;, - 3;1110;1111;1112;, - 3;1113;1114;1115;, - 3;1116;1117;1118;, - 3;1119;1120;1121;, - 3;1122;1123;1124;, - 3;1125;1126;1127;, - 3;1128;1129;1130;, - 3;1131;1132;1133;, - 3;1134;1135;1136;, - 3;1137;1138;1139;, - 3;1140;1141;1142;, - 3;1143;1144;1145;, - 3;1146;1147;1148;, - 3;1149;1150;1151;, - 3;1152;1153;1154;, - 3;1155;1156;1157;, - 3;1158;1159;1160;, - 3;1161;1162;1163;, - 3;1164;1165;1166;, - 3;1167;1168;1169;, - 3;1170;1171;1172;, - 3;1173;1174;1175;, - 3;1176;1177;1178;, - 3;1179;1180;1181;, - 3;1182;1183;1184;, - 3;1185;1186;1187;, - 3;1188;1189;1190;, - 3;1191;1192;1193;, - 3;1194;1195;1196;, - 3;1197;1198;1199;, - 3;1200;1201;1202;, - 3;1203;1204;1205;, - 3;1206;1207;1208;, - 3;1209;1210;1211;, - 3;1212;1213;1214;, - 3;1215;1216;1217;, - 3;1218;1219;1220;, - 3;1221;1222;1223;, - 3;1224;1225;1226;, - 3;1227;1228;1229;, - 3;1230;1231;1232;, - 3;1233;1234;1235;, - 3;1236;1237;1238;, - 3;1239;1240;1241;, - 3;1242;1243;1244;, - 3;1245;1246;1247;, - 3;1248;1249;1250;, - 3;1251;1252;1253;, - 3;1254;1255;1256;, - 3;1257;1258;1259;, - 3;1260;1261;1262;, - 3;1263;1264;1265;, - 3;1266;1267;1268;, - 3;1269;1270;1271;, - 3;1272;1273;1274;, - 3;1275;1276;1277;, - 3;1278;1279;1280;, - 3;1281;1282;1283;, - 3;1284;1285;1286;, - 3;1287;1288;1289;, - 3;1290;1291;1292;, - 3;1293;1294;1295;, - 3;1296;1297;1298;, - 3;1299;1300;1301;, - 3;1302;1303;1304;, - 3;1305;1306;1307;, - 3;1308;1309;1310;, - 3;1311;1312;1313;, - 3;1314;1315;1316;, - 3;1317;1318;1319;, - 3;1320;1321;1322;, - 3;1323;1324;1325;, - 3;1326;1327;1328;, - 3;1329;1330;1331;, - 3;1332;1333;1334;, - 3;1335;1336;1337;, - 3;1338;1339;1340;, - 3;1341;1342;1343;, - 3;1344;1345;1346;, - 3;1347;1348;1349;, - 3;1350;1351;1352;, - 3;1353;1354;1355;, - 3;1356;1357;1358;, - 3;1359;1360;1361;, - 3;1362;1363;1364;, - 3;1365;1366;1367;, - 3;1368;1369;1370;, - 3;1371;1372;1373;, - 3;1374;1375;1376;, - 3;1377;1378;1379;, - 3;1380;1381;1382;, - 3;1383;1384;1385;, - 3;1386;1387;1388;, - 3;1389;1390;1391;, - 3;1392;1393;1394;, - 3;1395;1396;1397;, - 3;1398;1399;1400;, - 3;1401;1402;1403;, - 3;1404;1405;1406;, - 3;1407;1408;1409;, - 3;1410;1411;1412;, - 3;1413;1414;1415;, - 3;1416;1417;1418;, - 3;1419;1420;1421;, - 3;1422;1423;1424;, - 3;1425;1426;1427;, - 3;1428;1429;1430;, - 3;1431;1432;1433;, - 3;1434;1435;1436;, - 3;1437;1438;1439;, - 3;1440;1441;1442;, - 3;1443;1444;1445;, - 3;1446;1447;1448;, - 3;1449;1450;1451;, - 3;1452;1453;1454;, - 3;1455;1456;1457;, - 3;1458;1459;1460;, - 3;1461;1462;1463;, - 3;1464;1465;1466;, - 3;1467;1468;1469;, - 3;1470;1471;1472;, - 3;1473;1474;1475;, - 3;1476;1477;1478;, - 3;1479;1480;1481;, - 3;1482;1483;1484;, - 3;1485;1486;1487;, - 3;1488;1489;1490;, - 3;1491;1492;1493;, - 3;1494;1495;1496;, - 3;1497;1498;1499;, - 3;1500;1501;1502;, - 3;1503;1504;1505;, - 3;1506;1507;1508;, - 3;1509;1510;1511;, - 3;1512;1513;1514;, - 3;1515;1516;1517;, - 3;1518;1519;1520;, - 3;1521;1522;1523;, - 3;1524;1525;1526;, - 3;1527;1528;1529;, - 3;1530;1531;1532;, - 3;1533;1534;1535;, - 3;1536;1537;1538;, - 3;1539;1540;1541;, - 3;1542;1543;1544;, - 3;1545;1546;1547;, - 3;1548;1549;1550;, - 3;1551;1552;1553;, - 3;1554;1555;1556;, - 3;1557;1558;1559;, - 3;1560;1561;1562;, - 3;1563;1564;1565;, - 3;1566;1567;1568;, - 3;1569;1570;1571;, - 3;1572;1573;1574;, - 3;1575;1576;1577;, - 3;1578;1579;1580;, - 3;1581;1582;1583;, - 3;1584;1585;1586;, - 3;1587;1588;1589;, - 3;1590;1591;1592;, - 3;1593;1594;1595;, - 3;1596;1597;1598;, - 3;1599;1600;1601;, - 3;1602;1603;1604;, - 3;1605;1606;1607;, - 3;1608;1609;1610;, - 3;1611;1612;1613;, - 3;1614;1615;1616;, - 3;1617;1618;1619;, - 3;1620;1621;1622;, - 3;1623;1624;1625;, - 3;1626;1627;1628;, - 3;1629;1630;1631;, - 3;1632;1633;1634;, - 3;1635;1636;1637;, - 3;1638;1639;1640;, - 3;1641;1642;1643;, - 3;1644;1645;1646;, - 3;1647;1648;1649;, - 3;1650;1651;1652;, - 3;1653;1654;1655;, - 3;1656;1657;1658;, - 3;1659;1660;1661;, - 3;1662;1663;1664;, - 3;1665;1666;1667;, - 3;1668;1669;1670;, - 3;1671;1672;1673;, - 3;1674;1675;1676;, - 3;1677;1678;1679;, - 3;1680;1681;1682;, - 3;1683;1684;1685;, - 3;1686;1687;1688;, - 3;1689;1690;1691;, - 3;1692;1693;1694;, - 3;1695;1696;1697;, - 3;1698;1699;1700;, - 3;1701;1702;1703;, - 3;1704;1705;1706;, - 3;1707;1708;1709;, - 3;1710;1711;1712;, - 3;1713;1714;1715;, - 3;1716;1717;1718;, - 3;1719;1720;1721;, - 3;1722;1723;1724;, - 3;1725;1726;1727;, - 3;1728;1729;1730;, - 3;1731;1732;1733;, - 3;1734;1735;1736;, - 3;1737;1738;1739;, - 3;1740;1741;1742;, - 3;1743;1744;1745;, - 3;1746;1747;1748;, - 3;1749;1750;1751;, - 3;1752;1753;1754;, - 3;1755;1756;1757;, - 3;1758;1759;1760;, - 3;1761;1762;1763;, - 3;1764;1765;1766;, - 3;1767;1768;1769;, - 3;1770;1771;1772;, - 3;1773;1774;1775;, - 3;1776;1777;1778;, - 3;1779;1780;1781;, - 3;1782;1783;1784;, - 3;1785;1786;1787;, - 3;1788;1789;1790;, - 3;1791;1792;1793;, - 3;1794;1795;1796;, - 3;1797;1798;1799;, - 3;1800;1801;1802;, - 3;1803;1804;1805;, - 3;1806;1807;1808;, - 3;1809;1810;1811;, - 3;1812;1813;1814;, - 3;1815;1816;1817;, - 3;1818;1819;1820;, - 3;1821;1822;1823;, - 3;1824;1825;1826;, - 3;1827;1828;1829;, - 3;1830;1831;1832;, - 3;1833;1834;1835;, - 3;1836;1837;1838;, - 3;1839;1840;1841;, - 3;1842;1843;1844;, - 3;1845;1846;1847;, - 3;1848;1849;1850;, - 3;1851;1852;1853;, - 3;1854;1855;1856;, - 3;1857;1858;1859;, - 3;1860;1861;1862;, - 3;1863;1864;1865;, - 3;1866;1867;1868;, - 3;1869;1870;1871;, - 3;1872;1873;1874;, - 3;1875;1876;1877;, - 3;1878;1879;1880;, - 3;1881;1882;1883;, - 3;1884;1885;1886;, - 3;1887;1888;1889;, - 3;1890;1891;1892;, - 3;1893;1894;1895;, - 3;1896;1897;1898;, - 3;1899;1900;1901;, - 3;1902;1903;1904;, - 3;1905;1906;1907;, - 3;1908;1909;1910;, - 3;1911;1912;1913;, - 3;1914;1915;1916;, - 3;1917;1918;1919;, - 3;1920;1921;1922;, - 3;1923;1924;1925;, - 3;1926;1927;1928;, - 3;1929;1930;1931;, - 3;1932;1933;1934;, - 3;1935;1936;1937;, - 3;1938;1939;1940;, - 3;1941;1942;1943;, - 3;1944;1945;1946;, - 3;1947;1948;1949;, - 3;1950;1951;1952;, - 3;1953;1954;1955;, - 3;1956;1957;1958;, - 3;1959;1960;1961;, - 3;1962;1963;1964;, - 3;1965;1966;1967;, - 3;1968;1969;1970;, - 3;1971;1972;1973;, - 3;1974;1975;1976;, - 3;1977;1978;1979;, - 3;1980;1981;1982;, - 3;1983;1984;1985;, - 3;1986;1987;1988;, - 3;1989;1990;1991;, - 3;1992;1993;1994;, - 3;1995;1996;1997;, - 3;1998;1999;2000;, - 3;2001;2002;2003;, - 3;2004;2005;2006;, - 3;2007;2008;2009;, - 3;2010;2011;2012;, - 3;2013;2014;2015;, - 3;2016;2017;2018;, - 3;2019;2020;2021;, - 3;2022;2023;2024;, - 3;2025;2026;2027;, - 3;2028;2029;2030;, - 3;2031;2032;2033;, - 3;2034;2035;2036;, - 3;2037;2038;2039;, - 3;2040;2041;2042;, - 3;2043;2044;2045;, - 3;2046;2047;2048;, - 3;2049;2050;2051;, - 3;2052;2053;2054;, - 3;2055;2056;2057;, - 3;2058;2059;2060;, - 3;2061;2062;2063;, - 3;2064;2065;2066;, - 3;2067;2068;2069;, - 3;2070;2071;2072;, - 3;2073;2074;2075;, - 3;2076;2077;2078;, - 3;2079;2080;2081;, - 3;2082;2083;2084;, - 3;2085;2086;2087;, - 3;2088;2089;2090;, - 3;2091;2092;2093;, - 3;2094;2095;2096;, - 3;2097;2098;2099;, - 3;2100;2101;2102;, - 3;2103;2104;2105;, - 3;2106;2107;2108;, - 3;2109;2110;2111;, - 3;2112;2113;2114;, - 3;2115;2116;2117;, - 3;2118;2119;2120;, - 3;2121;2122;2123;, - 3;2124;2125;2126;, - 3;2127;2128;2129;, - 3;2130;2131;2132;, - 3;2133;2134;2135;, - 3;2136;2137;2138;, - 3;2139;2140;2141;, - 3;2142;2143;2144;, - 3;2145;2146;2147;, - 3;2148;2149;2150;, - 3;2151;2152;2153;, - 3;2154;2155;2156;, - 3;2157;2158;2159;, - 3;2160;2161;2162;, - 3;2163;2164;2165;, - 3;2166;2167;2168;, - 3;2169;2170;2171;, - 3;2172;2173;2174;, - 3;2175;2176;2177;, - 3;2178;2179;2180;, - 3;2181;2182;2183;, - 3;2184;2185;2186;, - 3;2187;2188;2189;, - 3;2190;2191;2192;, - 3;2193;2194;2195;, - 3;2196;2197;2198;, - 3;2199;2200;2201;, - 3;2202;2203;2204;, - 3;2205;2206;2207;, - 3;2208;2209;2210;, - 3;2211;2212;2213;, - 3;2214;2215;2216;, - 3;2217;2218;2219;, - 3;2220;2221;2222;, - 3;2223;2224;2225;, - 3;2226;2227;2228;, - 3;2229;2230;2231;, - 3;2232;2233;2234;, - 3;2235;2236;2237;, - 3;2238;2239;2240;, - 3;2241;2242;2243;, - 3;2244;2245;2246;, - 3;2247;2248;2249;, - 3;2250;2251;2252;, - 3;2253;2254;2255;, - 3;2256;2257;2258;, - 3;2259;2260;2261;, - 3;2262;2263;2264;, - 3;2265;2266;2267;, - 3;2268;2269;2270;, - 3;2271;2272;2273;, - 3;2274;2275;2276;, - 3;2277;2278;2279;, - 3;2280;2281;2282;, - 3;2283;2284;2285;, - 3;2286;2287;2288;, - 3;2289;2290;2291;, - 3;2292;2293;2294;, - 3;2295;2296;2297;, - 3;2298;2299;2300;, - 3;2301;2302;2303;, - 3;2304;2305;2306;, - 3;2307;2308;2309;, - 3;2310;2311;2312;, - 3;2313;2314;2315;, - 3;2316;2317;2318;, - 3;2319;2320;2321;, - 3;2322;2323;2324;, - 3;2325;2326;2327;, - 3;2328;2329;2330;, - 3;2331;2332;2333;, - 3;2334;2335;2336;, - 3;2337;2338;2339;, - 3;2340;2341;2342;, - 3;2343;2344;2345;, - 3;2346;2347;2348;, - 3;2349;2350;2351;, - 3;2352;2353;2354;, - 3;2355;2356;2357;, - 3;2358;2359;2360;, - 3;2361;2362;2363;, - 3;2364;2365;2366;, - 3;2367;2368;2369;, - 3;2370;2371;2372;, - 3;2373;2374;2375;, - 3;2376;2377;2378;, - 3;2379;2380;2381;, - 3;2382;2383;2384;, - 3;2385;2386;2387;, - 3;2388;2389;2390;, - 3;2391;2392;2393;, - 3;2394;2395;2396;, - 3;2397;2398;2399;, - 3;2400;2401;2402;, - 3;2403;2404;2405;, - 3;2406;2407;2408;, - 3;2409;2410;2411;, - 3;2412;2413;2414;, - 3;2415;2416;2417;, - 3;2418;2419;2420;, - 3;2421;2422;2423;, - 3;2424;2425;2426;, - 3;2427;2428;2429;, - 3;2430;2431;2432;, - 3;2433;2434;2435;, - 3;2436;2437;2438;, - 3;2439;2440;2441;, - 3;2442;2443;2444;, - 3;2445;2446;2447;, - 3;2448;2449;2450;, - 3;2451;2452;2453;, - 3;2454;2455;2456;, - 3;2457;2458;2459;, - 3;2460;2461;2462;, - 3;2463;2464;2465;, - 3;2466;2467;2468;, - 3;2469;2470;2471;, - 3;2472;2473;2474;, - 3;2475;2476;2477;, - 3;2478;2479;2480;, - 3;2481;2482;2483;, - 3;2484;2485;2486;, - 3;2487;2488;2489;, - 3;2490;2491;2492;, - 3;2493;2494;2495;, - 3;2496;2497;2498;, - 3;2499;2500;2501;, - 3;2502;2503;2504;, - 3;2505;2506;2507;, - 3;2508;2509;2510;, - 3;2511;2512;2513;, - 3;2514;2515;2516;, - 3;2517;2518;2519;, - 3;2520;2521;2522;, - 3;2523;2524;2525;, - 3;2526;2527;2528;, - 3;2529;2530;2531;, - 3;2532;2533;2534;, - 3;2535;2536;2537;, - 3;2538;2539;2540;, - 3;2541;2542;2543;, - 3;2544;2545;2546;, - 3;2547;2548;2549;, - 3;2550;2551;2552;, - 3;2553;2554;2555;, - 3;2556;2557;2558;, - 3;2559;2560;2561;, - 3;2562;2563;2564;, - 3;2565;2566;2567;, - 3;2568;2569;2570;, - 3;2571;2572;2573;, - 3;2574;2575;2576;, - 3;2577;2578;2579;, - 3;2580;2581;2582;, - 3;2583;2584;2585;, - 3;2586;2587;2588;, - 3;2589;2590;2591;, - 3;2592;2593;2594;, - 3;2595;2596;2597;, - 3;2598;2599;2600;, - 3;2601;2602;2603;, - 3;2604;2605;2606;, - 3;2607;2608;2609;, - 3;2610;2611;2612;, - 3;2613;2614;2615;, - 3;2616;2617;2618;, - 3;2619;2620;2621;, - 3;2622;2623;2624;, - 3;2625;2626;2627;, - 3;2628;2629;2630;, - 3;2631;2632;2633;, - 3;2634;2635;2636;, - 3;2637;2638;2639;, - 3;2640;2641;2642;, - 3;2643;2644;2645;, - 3;2646;2647;2648;, - 3;2649;2650;2651;, - 3;2652;2653;2654;, - 3;2655;2656;2657;, - 3;2658;2659;2660;, - 3;2661;2662;2663;, - 3;2664;2665;2666;, - 3;2667;2668;2669;, - 3;2670;2671;2672;, - 3;2673;2674;2675;, - 3;2676;2677;2678;, - 3;2679;2680;2681;, - 3;2682;2683;2684;, - 3;2685;2686;2687;, - 3;2688;2689;2690;, - 3;2691;2692;2693;, - 3;2694;2695;2696;, - 3;2697;2698;2699;, - 3;2700;2701;2702;, - 3;2703;2704;2705;, - 3;2706;2707;2708;, - 3;2709;2710;2711;, - 3;2712;2713;2714;, - 3;2715;2716;2717;, - 3;2718;2719;2720;, - 3;2721;2722;2723;, - 3;2724;2725;2726;, - 3;2727;2728;2729;, - 3;2730;2731;2732;, - 3;2733;2734;2735;, - 3;2736;2737;2738;, - 3;2739;2740;2741;, - 3;2742;2743;2744;, - 3;2745;2746;2747;, - 3;2748;2749;2750;, - 3;2751;2752;2753;, - 3;2754;2755;2756;, - 3;2757;2758;2759;, - 3;2760;2761;2762;, - 3;2763;2764;2765;, - 3;2766;2767;2768;, - 3;2769;2770;2771;, - 3;2772;2773;2774;, - 3;2775;2776;2777;, - 3;2778;2779;2780;, - 3;2781;2782;2783;, - 3;2784;2785;2786;, - 3;2787;2788;2789;, - 3;2790;2791;2792;, - 3;2793;2794;2795;, - 3;2796;2797;2798;, - 3;2799;2800;2801;, - 3;2802;2803;2804;, - 3;2805;2806;2807;, - 3;2808;2809;2810;, - 3;2811;2812;2813;, - 3;2814;2815;2816;, - 3;2817;2818;2819;, - 3;2820;2821;2822;, - 3;2823;2824;2825;, - 3;2826;2827;2828;, - 3;2829;2830;2831;, - 3;2832;2833;2834;, - 3;2835;2836;2837;, - 3;2838;2839;2840;, - 3;2841;2842;2843;, - 3;2844;2845;2846;, - 3;2847;2848;2849;, - 3;2850;2851;2852;, - 3;2853;2854;2855;, - 3;2856;2857;2858;, - 3;2859;2860;2861;, - 3;2862;2863;2864;, - 3;2865;2866;2867;, - 3;2868;2869;2870;, - 3;2871;2872;2873;, - 3;2874;2875;2876;, - 3;2877;2878;2879;, - 3;2880;2881;2882;, - 3;2883;2884;2885;, - 3;2886;2887;2888;, - 3;2889;2890;2891;, - 3;2892;2893;2894;, - 3;2895;2896;2897;, - 3;2898;2899;2900;, - 3;2901;2902;2903;, - 3;2904;2905;2906;, - 3;2907;2908;2909;, - 3;2910;2911;2912;, - 3;2913;2914;2915;, - 3;2916;2917;2918;, - 3;2919;2920;2921;, - 3;2922;2923;2924;, - 3;2925;2926;2927;, - 3;2928;2929;2930;, - 3;2931;2932;2933;, - 3;2934;2935;2936;, - 3;2937;2938;2939;, - 3;2940;2941;2942;, - 3;2943;2944;2945;, - 3;2946;2947;2948;, - 3;2949;2950;2951;, - 3;2952;2953;2954;, - 3;2955;2956;2957;, - 3;2958;2959;2960;, - 3;2961;2962;2963;, - 3;2964;2965;2966;, - 3;2967;2968;2969;, - 3;2970;2971;2972;, - 3;2973;2974;2975;, - 3;2976;2977;2978;, - 3;2979;2980;2981;, - 3;2982;2983;2984;, - 3;2985;2986;2987;, - 3;2988;2989;2990;, - 3;2991;2992;2993;, - 3;2994;2995;2996;, - 3;2997;2998;2999;, - 3;3000;3001;3002;, - 3;3003;3004;3005;, - 3;3006;3007;3008;, - 3;3009;3010;3011;, - 3;3012;3013;3014;, - 3;3015;3016;3017;, - 3;3018;3019;3020;, - 3;3021;3022;3023;, - 3;3024;3025;3026;, - 3;3027;3028;3029;, - 3;3030;3031;3032;, - 3;3033;3034;3035;, - 3;3036;3037;3038;, - 3;3039;3040;3041;, - 3;3042;3043;3044;, - 3;3045;3046;3047;, - 3;3048;3049;3050;, - 3;3051;3052;3053;, - 3;3054;3055;3056;, - 3;3057;3058;3059;, - 3;3060;3061;3062;, - 3;3063;3064;3065;, - 3;3066;3067;3068;, - 3;3069;3070;3071;, - 3;3072;3073;3074;, - 3;3075;3076;3077;, - 3;3078;3079;3080;, - 3;3081;3082;3083;, - 3;3084;3085;3086;, - 3;3087;3088;3089;, - 3;3090;3091;3092;, - 3;3093;3094;3095;, - 3;3096;3097;3098;, - 3;3099;3100;3101;, - 3;3102;3103;3104;, - 3;3105;3106;3107;, - 3;3108;3109;3110;, - 3;3111;3112;3113;, - 3;3114;3115;3116;, - 3;3117;3118;3119;, - 3;3120;3121;3122;, - 3;3123;3124;3125;, - 3;3126;3127;3128;, - 3;3129;3130;3131;, - 3;3132;3133;3134;, - 3;3135;3136;3137;, - 3;3138;3139;3140;, - 3;3141;3142;3143;, - 3;3144;3145;3146;, - 3;3147;3148;3149;, - 3;3150;3151;3152;, - 3;3153;3154;3155;, - 3;3156;3157;3158;, - 3;3159;3160;3161;, - 3;3162;3163;3164;, - 3;3165;3166;3167;, - 3;3168;3169;3170;, - 3;3171;3172;3173;, - 3;3174;3175;3176;, - 3;3177;3178;3179;, - 3;3180;3181;3182;, - 3;3183;3184;3185;, - 3;3186;3187;3188;, - 3;3189;3190;3191;, - 3;3192;3193;3194;, - 3;3195;3196;3197;, - 3;3198;3199;3200;, - 3;3201;3202;3203;, - 3;3204;3205;3206;, - 3;3207;3208;3209;, - 3;3210;3211;3212;, - 3;3213;3214;3215;, - 3;3216;3217;3218;, - 3;3219;3220;3221;, - 3;3222;3223;3224;, - 3;3225;3226;3227;, - 3;3228;3229;3230;, - 3;3231;3232;3233;, - 3;3234;3235;3236;, - 3;3237;3238;3239;, - 3;3240;3241;3242;, - 3;3243;3244;3245;, - 3;3246;3247;3248;, - 3;3249;3250;3251;, - 3;3252;3253;3254;, - 3;3255;3256;3257;, - 3;3258;3259;3260;, - 3;3261;3262;3263;, - 3;3264;3265;3266;, - 3;3267;3268;3269;, - 3;3270;3271;3272;, - 3;3273;3274;3275;, - 3;3276;3277;3278;, - 3;3279;3280;3281;, - 3;3282;3283;3284;, - 3;3285;3286;3287;, - 3;3288;3289;3290;, - 3;3291;3292;3293;, - 3;3294;3295;3296;, - 3;3297;3298;3299;, - 3;3300;3301;3302;, - 3;3303;3304;3305;, - 3;3306;3307;3308;, - 3;3309;3310;3311;, - 3;3312;3313;3314;, - 3;3315;3316;3317;, - 3;3318;3319;3320;, - 3;3321;3322;3323;, - 3;3324;3325;3326;, - 3;3327;3328;3329;, - 3;3330;3331;3332;, - 3;3333;3334;3335;, - 3;3336;3337;3338;, - 3;3339;3340;3341;, - 3;3342;3343;3344;, - 3;3345;3346;3347;, - 3;3348;3349;3350;, - 3;3351;3352;3353;, - 3;3354;3355;3356;, - 3;3357;3358;3359;, - 3;3360;3361;3362;, - 3;3363;3364;3365;, - 3;3366;3367;3368;, - 3;3369;3370;3371;, - 3;3372;3373;3374;, - 3;3375;3376;3377;, - 3;3378;3379;3380;, - 3;3381;3382;3383;, - 3;3384;3385;3386;, - 3;3387;3388;3389;, - 3;3390;3391;3392;, - 3;3393;3394;3395;, - 3;3396;3397;3398;, - 3;3399;3400;3401;, - 3;3402;3403;3404;, - 3;3405;3406;3407;, - 3;3408;3409;3410;, - 3;3411;3412;3413;, - 3;3414;3415;3416;, - 3;3417;3418;3419;, - 3;3420;3421;3422;, - 3;3423;3424;3425;, - 3;3426;3427;3428;, - 3;3429;3430;3431;, - 3;3432;3433;3434;, - 3;3435;3436;3437;, - 3;3438;3439;3440;, - 3;3441;3442;3443;, - 3;3444;3445;3446;, - 3;3447;3448;3449;, - 3;3450;3451;3452;, - 3;3453;3454;3455;, - 3;3456;3457;3458;, - 3;3459;3460;3461;, - 3;3462;3463;3464;, - 3;3465;3466;3467;, - 3;3468;3469;3470;, - 3;3471;3472;3473;, - 3;3474;3475;3476;, - 3;3477;3478;3479;, - 3;3480;3481;3482;, - 3;3483;3484;3485;, - 3;3486;3487;3488;, - 3;3489;3490;3491;, - 3;3492;3493;3494;, - 3;3495;3496;3497;, - 3;3498;3499;3500;, - 3;3501;3502;3503;, - 3;3504;3505;3506;, - 3;3507;3508;3509;, - 3;3510;3511;3512;, - 3;3513;3514;3515;, - 3;3516;3517;3518;, - 3;3519;3520;3521;, - 3;3522;3523;3524;, - 3;3525;3526;3527;, - 3;3528;3529;3530;, - 3;3531;3532;3533;, - 3;3534;3535;3536;, - 3;3537;3538;3539;, - 3;3540;3541;3542;, - 3;3543;3544;3545;, - 3;3546;3547;3548;, - 3;3549;3550;3551;, - 3;3552;3553;3554;, - 3;3555;3556;3557;, - 3;3558;3559;3560;, - 3;3561;3562;3563;, - 3;3564;3565;3566;, - 3;3567;3568;3569;, - 3;3570;3571;3572;, - 3;3573;3574;3575;, - 3;3576;3577;3578;, - 3;3579;3580;3581;, - 3;3582;3583;3584;, - 3;3585;3586;3587;, - 3;3588;3589;3590;, - 3;3591;3592;3593;, - 3;3594;3595;3596;, - 3;3597;3598;3599;, - 3;3600;3601;3602;, - 3;3603;3604;3605;, - 3;3606;3607;3608;, - 3;3609;3610;3611;, - 3;3612;3613;3614;, - 3;3615;3616;3617;, - 3;3618;3619;3620;, - 3;3621;3622;3623;, - 3;3624;3625;3626;, - 3;3627;3628;3629;, - 3;3630;3631;3632;, - 3;3633;3634;3635;, - 3;3636;3637;3638;, - 3;3639;3640;3641;, - 3;3642;3643;3644;, - 3;3645;3646;3647;, - 3;3648;3649;3650;, - 3;3651;3652;3653;, - 3;3654;3655;3656;, - 3;3657;3658;3659;, - 3;3660;3661;3662;, - 3;3663;3664;3665;, - 3;3666;3667;3668;, - 3;3669;3670;3671;, - 3;3672;3673;3674;, - 3;3675;3676;3677;, - 3;3678;3679;3680;, - 3;3681;3682;3683;, - 3;3684;3685;3686;, - 3;3687;3688;3689;, - 3;3690;3691;3692;, - 3;3693;3694;3695;, - 3;3696;3697;3698;, - 3;3699;3700;3701;, - 3;3702;3703;3704;, - 3;3705;3706;3707;, - 3;3708;3709;3710;, - 3;3711;3712;3713;, - 3;3714;3715;3716;, - 3;3717;3718;3719;, - 3;3720;3721;3722;, - 3;3723;3724;3725;, - 3;3726;3727;3728;, - 3;3729;3730;3731;, - 3;3732;3733;3734;, - 3;3735;3736;3737;, - 3;3738;3739;3740;, - 3;3741;3742;3743;, - 3;3744;3745;3746;, - 3;3747;3748;3749;, - 3;3750;3751;3752;, - 3;3753;3754;3755;, - 3;3756;3757;3758;, - 3;3759;3760;3761;, - 3;3762;3763;3764;, - 3;3765;3766;3767;, - 3;3768;3769;3770;, - 3;3771;3772;3773;, - 3;3774;3775;3776;, - 3;3777;3778;3779;, - 3;3780;3781;3782;, - 3;3783;3784;3785;, - 3;3786;3787;3788;, - 3;3789;3790;3791;, - 3;3792;3793;3794;, - 3;3795;3796;3797;, - 3;3798;3799;3800;, - 3;3801;3802;3803;, - 3;3804;3805;3806;, - 3;3807;3808;3809;, - 3;3810;3811;3812;, - 3;3813;3814;3815;, - 3;3816;3817;3818;, - 3;3819;3820;3821;, - 3;3822;3823;3824;, - 3;3825;3826;3827;, - 3;3828;3829;3830;, - 3;3831;3832;3833;, - 3;3834;3835;3836;, - 3;3837;3838;3839;, - 3;3840;3841;3842;, - 3;3843;3844;3845;, - 3;3846;3847;3848;, - 3;3849;3850;3851;, - 3;3852;3853;3854;, - 3;3855;3856;3857;, - 3;3858;3859;3860;, - 3;3861;3862;3863;, - 3;3864;3865;3866;, - 3;3867;3868;3869;, - 3;3870;3871;3872;, - 3;3873;3874;3875;, - 3;3876;3877;3878;, - 3;3879;3880;3881;, - 3;3882;3883;3884;, - 3;3885;3886;3887;, - 3;3888;3889;3890;, - 3;3891;3892;3893;, - 3;3894;3895;3896;, - 3;3897;3898;3899;, - 3;3900;3901;3902;, - 3;3903;3904;3905;, - 3;3906;3907;3908;, - 3;3909;3910;3911;, - 3;3912;3913;3914;, - 3;3915;3916;3917;, - 3;3918;3919;3920;, - 3;3921;3922;3923;, - 3;3924;3925;3926;, - 3;3927;3928;3929;, - 3;3930;3931;3932;, - 3;3933;3934;3935;, - 3;3936;3937;3938;, - 3;3939;3940;3941;, - 3;3942;3943;3944;, - 3;3945;3946;3947;, - 3;3948;3949;3950;, - 3;3951;3952;3953;, - 3;3954;3955;3956;, - 3;3957;3958;3959;, - 3;3960;3961;3962;, - 3;3963;3964;3965;, - 3;3966;3967;3968;, - 3;3969;3970;3971;, - 3;3972;3973;3974;, - 3;3975;3976;3977;, - 3;3978;3979;3980;, - 3;3981;3982;3983;, - 3;3984;3985;3986;, - 3;3987;3988;3989;, - 3;3990;3991;3992;, - 3;3993;3994;3995;, - 3;3996;3997;3998;, - 3;3999;4000;4001;, - 3;4002;4003;4004;, - 3;4005;4006;4007;, - 3;4008;4009;4010;, - 3;4011;4012;4013;, - 3;4014;4015;4016;, - 3;4017;4018;4019;, - 3;4020;4021;4022;, - 3;4023;4024;4025;, - 3;4026;4027;4028;, - 3;4029;4030;4031;, - 3;4032;4033;4034;, - 3;4035;4036;4037;, - 3;4038;4039;4040;, - 3;4041;4042;4043;, - 3;4044;4045;4046;, - 3;4047;4048;4049;, - 3;4050;4051;4052;, - 3;4053;4054;4055;, - 3;4056;4057;4058;, - 3;4059;4060;4061;, - 3;4062;4063;4064;, - 3;4065;4066;4067;, - 3;4068;4069;4070;, - 3;4071;4072;4073;, - 3;4074;4075;4076;, - 3;4077;4078;4079;, - 3;4080;4081;4082;, - 3;4083;4084;4085;, - 3;4086;4087;4088;, - 3;4089;4090;4091;, - 3;4092;4093;4094;, - 3;4095;4096;4097;, - 3;4098;4099;4100;, - 3;4101;4102;4103;, - 3;4104;4105;4106;, - 3;4107;4108;4109;, - 3;4110;4111;4112;, - 3;4113;4114;4115;, - 3;4116;4117;4118;, - 3;4119;4120;4121;, - 3;4122;4123;4124;, - 3;4125;4126;4127;, - 3;4128;4129;4130;, - 3;4131;4132;4133;, - 3;4134;4135;4136;, - 3;4137;4138;4139;, - 3;4140;4141;4142;, - 3;4143;4144;4145;, - 3;4146;4147;4148;, - 3;4149;4150;4151;, - 3;4152;4153;4154;, - 3;4155;4156;4157;, - 3;4158;4159;4160;, - 3;4161;4162;4163;, - 3;4164;4165;4166;, - 3;4167;4168;4169;, - 3;4170;4171;4172;, - 3;4173;4174;4175;, - 3;4176;4177;4178;, - 3;4179;4180;4181;, - 3;4182;4183;4184;, - 3;4185;4186;4187;, - 3;4188;4189;4190;, - 3;4191;4192;4193;, - 3;4194;4195;4196;, - 3;4197;4198;4199;, - 3;4200;4201;4202;, - 3;4203;4204;4205;, - 3;4206;4207;4208;, - 3;4209;4210;4211;, - 3;4212;4213;4214;, - 3;4215;4216;4217;, - 3;4218;4219;4220;, - 3;4221;4222;4223;, - 3;4224;4225;4226;, - 3;4227;4228;4229;, - 3;4230;4231;4232;, - 3;4233;4234;4235;, - 3;4236;4237;4238;, - 3;4239;4240;4241;, - 3;4242;4243;4244;, - 3;4245;4246;4247;, - 3;4248;4249;4250;, - 3;4251;4252;4253;, - 3;4254;4255;4256;, - 3;4257;4258;4259;, - 3;4260;4261;4262;, - 3;4263;4264;4265;, - 3;4266;4267;4268;, - 3;4269;4270;4271;, - 3;4272;4273;4274;, - 3;4275;4276;4277;, - 3;4278;4279;4280;, - 3;4281;4282;4283;, - 3;4284;4285;4286;, - 3;4287;4288;4289;, - 3;4290;4291;4292;, - 3;4293;4294;4295;, - 3;4296;4297;4298;, - 3;4299;4300;4301;, - 3;4302;4303;4304;, - 3;4305;4306;4307;, - 3;4308;4309;4310;, - 3;4311;4312;4313;, - 3;4314;4315;4316;, - 3;4317;4318;4319;, - 3;4320;4321;4322;, - 3;4323;4324;4325;, - 3;4326;4327;4328;, - 3;4329;4330;4331;, - 3;4332;4333;4334;, - 3;4335;4336;4337;, - 3;4338;4339;4340;, - 3;4341;4342;4343;, - 3;4344;4345;4346;, - 3;4347;4348;4349;, - 3;4350;4351;4352;, - 3;4353;4354;4355;, - 3;4356;4357;4358;, - 3;4359;4360;4361;, - 3;4362;4363;4364;, - 3;4365;4366;4367;, - 3;4368;4369;4370;, - 3;4371;4372;4373;, - 3;4374;4375;4376;, - 3;4377;4378;4379;, - 3;4380;4381;4382;, - 3;4383;4384;4385;, - 3;4386;4387;4388;, - 3;4389;4390;4391;, - 3;4392;4393;4394;, - 3;4395;4396;4397;, - 3;4398;4399;4400;, - 3;4401;4402;4403;, - 3;4404;4405;4406;, - 3;4407;4408;4409;, - 3;4410;4411;4412;, - 3;4413;4414;4415;, - 3;4416;4417;4418;, - 3;4419;4420;4421;, - 3;4422;4423;4424;, - 3;4425;4426;4427;, - 3;4428;4429;4430;, - 3;4431;4432;4433;, - 3;4434;4435;4436;, - 3;4437;4438;4439;, - 3;4440;4441;4442;, - 3;4443;4444;4445;, - 3;4446;4447;4448;, - 3;4449;4450;4451;, - 3;4452;4453;4454;, - 3;4455;4456;4457;, - 3;4458;4459;4460;, - 3;4461;4462;4463;, - 3;4464;4465;4466;, - 3;4467;4468;4469;, - 3;4470;4471;4472;, - 3;4473;4474;4475;, - 3;4476;4477;4478;, - 3;4479;4480;4481;, - 3;4482;4483;4484;, - 3;4485;4486;4487;, - 3;4488;4489;4490;, - 3;4491;4492;4493;, - 3;4494;4495;4496;, - 3;4497;4498;4499;, - 3;4500;4501;4502;, - 3;4503;4504;4505;, - 3;4506;4507;4508;, - 3;4509;4510;4511;, - 3;4512;4513;4514;, - 3;4515;4516;4517;, - 3;4518;4519;4520;, - 3;4521;4522;4523;, - 3;4524;4525;4526;, - 3;4527;4528;4529;, - 3;4530;4531;4532;, - 3;4533;4534;4535;, - 3;4536;4537;4538;, - 3;4539;4540;4541;, - 3;4542;4543;4544;, - 3;4545;4546;4547;, - 3;4548;4549;4550;, - 3;4551;4552;4553;, - 3;4554;4555;4556;, - 3;4557;4558;4559;, - 3;4560;4561;4562;, - 3;4563;4564;4565;, - 3;4566;4567;4568;, - 3;4569;4570;4571;, - 3;4572;4573;4574;, - 3;4575;4576;4577;, - 3;4578;4579;4580;, - 3;4581;4582;4583;, - 3;4584;4585;4586;, - 3;4587;4588;4589;, - 3;4590;4591;4592;, - 3;4593;4594;4595;, - 3;4596;4597;4598;, - 3;4599;4600;4601;, - 3;4602;4603;4604;, - 3;4605;4606;4607;, - 3;4608;4609;4610;, - 3;4611;4612;4613;, - 3;4614;4615;4616;, - 3;4617;4618;4619;, - 3;4620;4621;4622;, - 3;4623;4624;4625;, - 3;4626;4627;4628;, - 3;4629;4630;4631;, - 3;4632;4633;4634;, - 3;4635;4636;4637;, - 3;4638;4639;4640;, - 3;4641;4642;4643;, - 3;4644;4645;4646;, - 3;4647;4648;4649;, - 3;4650;4651;4652;, - 3;4653;4654;4655;, - 3;4656;4657;4658;, - 3;4659;4660;4661;, - 3;4662;4663;4664;, - 3;4665;4666;4667;, - 3;4668;4669;4670;, - 3;4671;4672;4673;, - 3;4674;4675;4676;, - 3;4677;4678;4679;, - 3;4680;4681;4682;, - 3;4683;4684;4685;, - 3;4686;4687;4688;, - 3;4689;4690;4691;, - 3;4692;4693;4694;, - 3;4695;4696;4697;, - 3;4698;4699;4700;, - 3;4701;4702;4703;, - 3;4704;4705;4706;, - 3;4707;4708;4709;, - 3;4710;4711;4712;, - 3;4713;4714;4715;, - 3;4716;4717;4718;, - 3;4719;4720;4721;, - 3;4722;4723;4724;, - 3;4725;4726;4727;, - 3;4728;4729;4730;, - 3;4731;4732;4733;, - 3;4734;4735;4736;, - 3;4737;4738;4739;, - 3;4740;4741;4742;, - 3;4743;4744;4745;, - 3;4746;4747;4748;, - 3;4749;4750;4751;, - 3;4752;4753;4754;, - 3;4755;4756;4757;, - 3;4758;4759;4760;, - 3;4761;4762;4763;, - 3;4764;4765;4766;, - 3;4767;4768;4769;, - 3;4770;4771;4772;, - 3;4773;4774;4775;, - 3;4776;4777;4778;, - 3;4779;4780;4781;, - 3;4782;4783;4784;, - 3;4785;4786;4787;, - 3;4788;4789;4790;, - 3;4791;4792;4793;, - 3;4794;4795;4796;, - 3;4797;4798;4799;, - 3;4800;4801;4802;, - 3;4803;4804;4805;, - 3;4806;4807;4808;, - 3;4809;4810;4811;, - 3;4812;4813;4814;, - 3;4815;4816;4817;, - 3;4818;4819;4820;, - 3;4821;4822;4823;, - 3;4824;4825;4826;, - 3;4827;4828;4829;, - 3;4830;4831;4832;, - 3;4833;4834;4835;, - 3;4836;4837;4838;, - 3;4839;4840;4841;, - 3;4842;4843;4844;, - 3;4845;4846;4847;, - 3;4848;4849;4850;, - 3;4851;4852;4853;, - 3;4854;4855;4856;, - 3;4857;4858;4859;, - 3;4860;4861;4862;, - 3;4863;4864;4865;, - 3;4866;4867;4868;, - 3;4869;4870;4871;, - 3;4872;4873;4874;, - 3;4875;4876;4877;, - 3;4878;4879;4880;, - 3;4881;4882;4883;, - 3;4884;4885;4886;, - 3;4887;4888;4889;, - 3;4890;4891;4892;, - 3;4893;4894;4895;, - 3;4896;4897;4898;, - 3;4899;4900;4901;, - 3;4902;4903;4904;, - 3;4905;4906;4907;, - 3;4908;4909;4910;, - 3;4911;4912;4913;, - 3;4914;4915;4916;, - 3;4917;4918;4919;, - 3;4920;4921;4922;, - 3;4923;4924;4925;, - 3;4926;4927;4928;, - 3;4929;4930;4931;, - 3;4932;4933;4934;, - 3;4935;4936;4937;, - 3;4938;4939;4940;, - 3;4941;4942;4943;, - 3;4944;4945;4946;, - 3;4947;4948;4949;, - 3;4950;4951;4952;, - 3;4953;4954;4955;, - 3;4956;4957;4958;, - 3;4959;4960;4961;, - 3;4962;4963;4964;, - 3;4965;4966;4967;, - 3;4968;4969;4970;, - 3;4971;4972;4973;, - 3;4974;4975;4976;, - 3;4977;4978;4979;, - 3;4980;4981;4982;, - 3;4983;4984;4985;, - 3;4986;4987;4988;, - 3;4989;4990;4991;, - 3;4992;4993;4994;, - 3;4995;4996;4997;, - 3;4998;4999;5000;, - 3;5001;5002;5003;, - 3;5004;5005;5006;, - 3;5007;5008;5009;, - 3;5010;5011;5012;, - 3;5013;5014;5015;, - 3;5016;5017;5018;, - 3;5019;5020;5021;, - 3;5022;5023;5024;, - 3;5025;5026;5027;, - 3;5028;5029;5030;, - 3;5031;5032;5033;, - 3;5034;5035;5036;, - 3;5037;5038;5039;, - 3;5040;5041;5042;, - 3;5043;5044;5045;, - 3;5046;5047;5048;, - 3;5049;5050;5051;, - 3;5052;5053;5054;, - 3;5055;5056;5057;, - 3;5058;5059;5060;, - 3;5061;5062;5063;, - 3;5064;5065;5066;, - 3;5067;5068;5069;, - 3;5070;5071;5072;, - 3;5073;5074;5075;, - 3;5076;5077;5078;, - 3;5079;5080;5081;, - 3;5082;5083;5084;, - 3;5085;5086;5087;, - 3;5088;5089;5090;, - 3;5091;5092;5093;, - 3;5094;5095;5096;, - 3;5097;5098;5099;, - 3;5100;5101;5102;, - 3;5103;5104;5105;, - 3;5106;5107;5108;, - 3;5109;5110;5111;, - 3;5112;5113;5114;, - 3;5115;5116;5117;, - 3;5118;5119;5120;, - 3;5121;5122;5123;, - 3;5124;5125;5126;, - 3;5127;5128;5129;, - 3;5130;5131;5132;, - 3;5133;5134;5135;, - 3;5136;5137;5138;, - 3;5139;5140;5141;, - 3;5142;5143;5144;, - 3;5145;5146;5147;, - 3;5148;5149;5150;, - 3;5151;5152;5153;, - 3;5154;5155;5156;, - 3;5157;5158;5159;, - 3;5160;5161;5162;, - 3;5163;5164;5165;, - 3;5166;5167;5168;, - 3;5169;5170;5171;, - 3;5172;5173;5174;, - 3;5175;5176;5177;, - 3;5178;5179;5180;, - 3;5181;5182;5183;, - 3;5184;5185;5186;, - 3;5187;5188;5189;, - 3;5190;5191;5192;, - 3;5193;5194;5195;, - 3;5196;5197;5198;, - 3;5199;5200;5201;, - 3;5202;5203;5204;, - 3;5205;5206;5207;, - 3;5208;5209;5210;, - 3;5211;5212;5213;, - 3;5214;5215;5216;, - 3;5217;5218;5219;, - 3;5220;5221;5222;, - 3;5223;5224;5225;, - 3;5226;5227;5228;, - 3;5229;5230;5231;, - 3;5232;5233;5234;, - 3;5235;5236;5237;, - 3;5238;5239;5240;, - 3;5241;5242;5243;, - 3;5244;5245;5246;, - 3;5247;5248;5249;, - 3;5250;5251;5252;, - 3;5253;5254;5255;, - 3;5256;5257;5258;, - 3;5259;5260;5261;, - 3;5262;5263;5264;, - 3;5265;5266;5267;, - 3;5268;5269;5270;, - 3;5271;5272;5273;, - 3;5274;5275;5276;, - 3;5277;5278;5279;, - 3;5280;5281;5282;, - 3;5283;5284;5285;, - 3;5286;5287;5288;, - 3;5289;5290;5291;, - 3;5292;5293;5294;, - 3;5295;5296;5297;, - 3;5298;5299;5300;, - 3;5301;5302;5303;, - 3;5304;5305;5306;, - 3;5307;5308;5309;, - 3;5310;5311;5312;, - 3;5313;5314;5315;, - 3;5316;5317;5318;, - 3;5319;5320;5321;, - 3;5322;5323;5324;, - 3;5325;5326;5327;, - 3;5328;5329;5330;, - 3;5331;5332;5333;, - 3;5334;5335;5336;, - 3;5337;5338;5339;, - 3;5340;5341;5342;, - 3;5343;5344;5345;, - 3;5346;5347;5348;, - 3;5349;5350;5351;, - 3;5352;5353;5354;, - 3;5355;5356;5357;, - 3;5358;5359;5360;, - 3;5361;5362;5363;, - 3;5364;5365;5366;, - 3;5367;5368;5369;, - 3;5370;5371;5372;, - 3;5373;5374;5375;, - 3;5376;5377;5378;, - 3;5379;5380;5381;, - 3;5382;5383;5384;, - 3;5385;5386;5387;, - 3;5388;5389;5390;, - 3;5391;5392;5393;, - 3;5394;5395;5396;, - 3;5397;5398;5399;, - 3;5400;5401;5402;, - 3;5403;5404;5405;, - 3;5406;5407;5408;, - 3;5409;5410;5411;, - 3;5412;5413;5414;, - 3;5415;5416;5417;, - 3;5418;5419;5420;, - 3;5421;5422;5423;, - 3;5424;5425;5426;, - 3;5427;5428;5429;, - 3;5430;5431;5432;, - 3;5433;5434;5435;, - 3;5436;5437;5438;, - 3;5439;5440;5441;, - 3;5442;5443;5444;, - 3;5445;5446;5447;, - 3;5448;5449;5450;, - 3;5451;5452;5453;, - 3;5454;5455;5456;, - 3;5457;5458;5459;, - 3;5460;5461;5462;, - 3;5463;5464;5465;, - 3;5466;5467;5468;, - 3;5469;5470;5471;, - 3;5472;5473;5474;, - 3;5475;5476;5477;, - 3;5478;5479;5480;, - 3;5481;5482;5483;, - 3;5484;5485;5486;, - 3;5487;5488;5489;, - 3;5490;5491;5492;, - 3;5493;5494;5495;, - 3;5496;5497;5498;, - 3;5499;5500;5501;, - 3;5502;5503;5504;, - 3;5505;5506;5507;, - 3;5508;5509;5510;, - 3;5511;5512;5513;, - 3;5514;5515;5516;, - 3;5517;5518;5519;, - 3;5520;5521;5522;, - 3;5523;5524;5525;, - 3;5526;5527;5528;, - 3;5529;5530;5531;, - 3;5532;5533;5534;, - 3;5535;5536;5537;, - 3;5538;5539;5540;, - 3;5541;5542;5543;, - 3;5544;5545;5546;, - 3;5547;5548;5549;, - 3;5550;5551;5552;, - 3;5553;5554;5555;, - 3;5556;5557;5558;, - 3;5559;5560;5561;, - 3;5562;5563;5564;, - 3;5565;5566;5567;, - 3;5568;5569;5570;, - 3;5571;5572;5573;, - 3;5574;5575;5576;, - 3;5577;5578;5579;, - 3;5580;5581;5582;, - 3;5583;5584;5585;, - 3;5586;5587;5588;, - 3;5589;5590;5591;, - 3;5592;5593;5594;, - 3;5595;5596;5597;, - 3;5598;5599;5600;, - 3;5601;5602;5603;, - 3;5604;5605;5606;, - 3;5607;5608;5609;, - 3;5610;5611;5612;, - 3;5613;5614;5615;, - 3;5616;5617;5618;, - 3;5619;5620;5621;, - 3;5622;5623;5624;, - 3;5625;5626;5627;, - 3;5628;5629;5630;, - 3;5631;5632;5633;, - 3;5634;5635;5636;, - 3;5637;5638;5639;, - 3;5640;5641;5642;, - 3;5643;5644;5645;, - 3;5646;5647;5648;, - 3;5649;5650;5651;, - 3;5652;5653;5654;, - 3;5655;5656;5657;, - 3;5658;5659;5660;, - 3;5661;5662;5663;, - 3;5664;5665;5666;, - 3;5667;5668;5669;, - 3;5670;5671;5672;, - 3;5673;5674;5675;, - 3;5676;5677;5678;, - 3;5679;5680;5681;, - 3;5682;5683;5684;, - 3;5685;5686;5687;, - 3;5688;5689;5690;, - 3;5691;5692;5693;, - 3;5694;5695;5696;, - 3;5697;5698;5699;, - 3;5700;5701;5702;, - 3;5703;5704;5705;, - 3;5706;5707;5708;, - 3;5709;5710;5711;, - 3;5712;5713;5714;, - 3;5715;5716;5717;, - 3;5718;5719;5720;, - 3;5721;5722;5723;, - 3;5724;5725;5726;, - 3;5727;5728;5729;, - 3;5730;5731;5732;, - 3;5733;5734;5735;, - 3;5736;5737;5738;, - 3;5739;5740;5741;, - 3;5742;5743;5744;, - 3;5745;5746;5747;, - 3;5748;5749;5750;, - 3;5751;5752;5753;, - 3;5754;5755;5756;, - 3;5757;5758;5759;, - 3;5760;5761;5762;, - 3;5763;5764;5765;, - 3;5766;5767;5768;, - 3;5769;5770;5771;, - 3;5772;5773;5774;, - 3;5775;5776;5777;, - 3;5778;5779;5780;, - 3;5781;5782;5783;, - 3;5784;5785;5786;, - 3;5787;5788;5789;; - MeshNormals { //Cube_000 Normals - 5790; - 0.736015;-0.332713;-0.589496;, - 0.697623;-0.426252; 0.575823;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.697623;-0.426252; 0.575823;, - -0.736015;-0.332713;-0.589496;, - 0.765404;-0.129521;-0.630360;, - 0.736015;-0.332713;-0.589496;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.736015;-0.332713;-0.589496;, - -0.765404;-0.129521;-0.630360;, - 0.738578; 0.539323;-0.404462;, - 0.765404;-0.129521;-0.630360;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.765404;-0.129521;-0.630360;, - -0.738578; 0.539323;-0.404462;, - 0.518326; 0.662831; 0.540300;, - 0.738578; 0.539323;-0.404462;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.738578; 0.539323;-0.404462;, - -0.518326; 0.662831; 0.540300;, - 0.495651; 0.498917; 0.710868;, - 0.518326; 0.662831; 0.540300;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.518326; 0.662831; 0.540300;, - -0.495651; 0.498917; 0.710868;, - 0.495651; 0.498917; 0.710868;, - 0.845454;-0.139927; 0.515336;, - 0.533494; 0.300088; 0.790765;, - -0.533494; 0.300088; 0.790765;, - -0.845454;-0.139927; 0.515336;, - -0.495651; 0.498917; 0.710868;, - 0.533494; 0.300088; 0.790765;, - 0.845454;-0.139927; 0.515336;, - 0.697623;-0.426252; 0.575823;, - -0.697623;-0.426252; 0.575823;, - -0.845454;-0.139927; 0.515336;, - -0.533494; 0.300088; 0.790765;, - 0.533494; 0.300088; 0.790765;, - 0.697623;-0.426252; 0.575823;, - 0.000946; 0.071383; 0.997436;, - -0.000946; 0.071383; 0.997436;, - -0.697623;-0.426252; 0.575823;, - -0.533494; 0.300088; 0.790765;, - 0.624378;-0.581347;-0.521683;, - 0.697623;-0.426252; 0.575823;, - 0.736015;-0.332713;-0.589496;, - -0.736015;-0.332713;-0.589496;, - -0.697623;-0.426252; 0.575823;, - -0.624378;-0.581347;-0.521683;, - 0.000122;-0.968535;-0.248787;, - 0.697623;-0.426252; 0.575823;, - 0.624378;-0.581347;-0.521683;, - -0.624378;-0.581347;-0.521683;, - -0.697623;-0.426252; 0.575823;, - -0.000122;-0.968535;-0.248787;, - 0.000092;-0.537645; 0.843135;, - 0.697623;-0.426252; 0.575823;, - 0.000122;-0.968535;-0.248787;, - -0.000122;-0.968535;-0.248787;, - -0.697623;-0.426252; 0.575823;, - -0.000092;-0.537645; 0.843135;, - -0.697531;-0.426313; 0.575915;, - 0.000122;-0.968535;-0.248787;, - -0.624287;-0.581622;-0.521470;, - 0.624287;-0.581622;-0.521470;, - -0.000122;-0.968535;-0.248787;, - 0.697531;-0.426313; 0.575915;, - -0.697531;-0.426313; 0.575915;, - 0.000092;-0.537645; 0.843135;, - 0.000122;-0.968535;-0.248787;, - -0.000122;-0.968535;-0.248787;, - -0.000092;-0.537645; 0.843135;, - 0.697531;-0.426313; 0.575915;, - -0.624287;-0.581622;-0.521470;, - -0.736015;-0.332713;-0.589496;, - -0.697531;-0.426313; 0.575915;, - 0.697531;-0.426313; 0.575915;, - 0.736015;-0.332713;-0.589496;, - 0.624287;-0.581622;-0.521470;, - -0.736015;-0.332713;-0.589496;, - -0.845454;-0.139927; 0.515336;, - -0.697531;-0.426313; 0.575915;, - 0.697531;-0.426313; 0.575915;, - 0.845454;-0.139927; 0.515336;, - 0.736015;-0.332713;-0.589496;, - -0.765404;-0.129521;-0.630360;, - -0.845454;-0.139927; 0.515336;, - -0.736015;-0.332713;-0.589496;, - 0.736015;-0.332713;-0.589496;, - 0.845454;-0.139927; 0.515336;, - 0.765404;-0.129521;-0.630360;, - -0.738578; 0.539323;-0.404462;, - -0.845454;-0.139927; 0.515336;, - -0.765404;-0.129521;-0.630360;, - 0.765404;-0.129521;-0.630360;, - 0.845454;-0.139927; 0.515336;, - 0.738578; 0.539323;-0.404462;, - -0.738578; 0.539323;-0.404462;, - -0.518967; 0.662893; 0.539628;, - -0.845454;-0.139927; 0.515336;, - 0.845454;-0.139927; 0.515336;, - 0.518967; 0.662893; 0.539628;, - 0.738578; 0.539323;-0.404462;, - -0.845454;-0.139927; 0.515336;, - -0.518967; 0.662893; 0.539628;, - -0.500381; 0.493820; 0.711142;, - 0.500381; 0.493820; 0.711142;, - 0.518967; 0.662893; 0.539628;, - 0.845454;-0.139927; 0.515336;, - -0.538957; 0.288705; 0.791284;, - -0.845454;-0.139927; 0.515336;, - -0.500381; 0.493820; 0.711142;, - 0.500381; 0.493820; 0.711142;, - 0.845454;-0.139927; 0.515336;, - 0.538957; 0.288705; 0.791284;, - -0.538957; 0.288705; 0.791284;, - -0.697531;-0.426313; 0.575915;, - -0.845454;-0.139927; 0.515336;, - 0.845454;-0.139927; 0.515336;, - 0.697531;-0.426313; 0.575915;, - 0.538957; 0.288705; 0.791284;, - -0.538957; 0.288705; 0.791284;, - 0.000946; 0.071383; 0.997436;, - -0.697531;-0.426313; 0.575915;, - 0.697531;-0.426313; 0.575915;, - -0.000946; 0.071383; 0.997436;, - 0.538957; 0.288705; 0.791284;, - 0.000946; 0.071383; 0.997436;, - 0.697623;-0.426252; 0.575823;, - 0.000092;-0.537645; 0.843135;, - -0.000092;-0.537645; 0.843135;, - -0.697623;-0.426252; 0.575823;, - -0.000946; 0.071383; 0.997436;, - 0.000946; 0.071383; 0.997436;, - 0.000092;-0.537645; 0.843135;, - -0.697531;-0.426313; 0.575915;, - 0.697531;-0.426313; 0.575915;, - -0.000092;-0.537645; 0.843135;, - -0.000946; 0.071383; 0.997436;, - 0.000946; 0.071383; 0.997436;, - -0.532914; 0.520035; 0.667470;, - 0.005127; 0.520402; 0.853877;, - -0.005127; 0.520402; 0.853877;, - 0.532914; 0.520035; 0.667470;, - -0.000946; 0.071383; 0.997436;, - -0.532914; 0.520035; 0.667470;, - 0.000946; 0.071383; 0.997436;, - -0.538957; 0.288705; 0.791284;, - 0.538957; 0.288705; 0.791284;, - -0.000946; 0.071383; 0.997436;, - 0.532914; 0.520035; 0.667470;, - -0.532914; 0.520035; 0.667470;, - -0.538957; 0.288705; 0.791284;, - -0.064608; 0.841395; 0.536485;, - 0.064608; 0.841395; 0.536485;, - 0.538957; 0.288705; 0.791284;, - 0.532914; 0.520035; 0.667470;, - -0.538957; 0.288705; 0.791284;, - -0.500381; 0.493820; 0.711142;, - -0.064608; 0.841395; 0.536485;, - 0.064608; 0.841395; 0.536485;, - 0.500381; 0.493820; 0.711142;, - 0.538957; 0.288705; 0.791284;, - -0.518967; 0.662893; 0.539628;, - -0.064608; 0.841395; 0.536485;, - -0.500381; 0.493820; 0.711142;, - 0.500381; 0.493820; 0.711142;, - 0.064608; 0.841395; 0.536485;, - 0.518967; 0.662893; 0.539628;, - 0.005127; 0.520402; 0.853877;, - 0.533494; 0.300088; 0.790765;, - 0.000946; 0.071383; 0.997436;, - -0.000946; 0.071383; 0.997436;, - -0.533494; 0.300088; 0.790765;, - -0.005127; 0.520402; 0.853877;, - 0.005127; 0.520402; 0.853877;, - 0.467269; 0.600543; 0.648823;, - 0.533494; 0.300088; 0.790765;, - -0.533494; 0.300088; 0.790765;, - -0.467269; 0.600543; 0.648823;, - -0.005127; 0.520402; 0.853877;, - 0.467269; 0.600543; 0.648823;, - 0.057649; 0.842799; 0.535081;, - 0.533494; 0.300088; 0.790765;, - -0.533494; 0.300088; 0.790765;, - -0.057649; 0.842799; 0.535081;, - -0.467269; 0.600543; 0.648823;, - 0.495651; 0.498917; 0.710868;, - 0.533494; 0.300088; 0.790765;, - 0.057649; 0.842799; 0.535081;, - -0.057649; 0.842799; 0.535081;, - -0.533494; 0.300088; 0.790765;, - -0.495651; 0.498917; 0.710868;, - 0.495651; 0.498917; 0.710868;, - 0.057649; 0.842799; 0.535081;, - 0.518326; 0.662831; 0.540300;, - -0.518326; 0.662831; 0.540300;, - -0.057649; 0.842799; 0.535081;, - -0.495651; 0.498917; 0.710868;, - -0.518967; 0.662893; 0.539628;, - 0.015870; 0.978576; 0.205145;, - -0.064608; 0.841395; 0.536485;, - 0.064608; 0.841395; 0.536485;, - -0.015870; 0.978576; 0.205145;, - 0.518967; 0.662893; 0.539628;, - 0.518326; 0.662831; 0.540300;, - 0.057649; 0.842799; 0.535081;, - 0.015870; 0.978576; 0.205145;, - -0.015870; 0.978576; 0.205145;, - -0.057649; 0.842799; 0.535081;, - -0.518326; 0.662831; 0.540300;, - -0.518967; 0.662893; 0.539628;, - -0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - 0.000000; 0.884915;-0.465712;, - 0.738578; 0.539323;-0.404462;, - 0.518967; 0.662893; 0.539628;, - -0.518967; 0.662893; 0.539628;, - 0.000000; 0.884915;-0.465712;, - 0.015870; 0.978576; 0.205145;, - -0.015870; 0.978576; 0.205145;, - 0.000000; 0.884915;-0.465712;, - 0.518967; 0.662893; 0.539628;, - 0.518326; 0.662831; 0.540300;, - 0.015870; 0.978576; 0.205145;, - 0.000000; 0.884915;-0.465712;, - 0.000000; 0.884915;-0.465712;, - -0.015870; 0.978576; 0.205145;, - -0.518326; 0.662831; 0.540300;, - 0.518326; 0.662831; 0.540300;, - 0.000000; 0.884915;-0.465712;, - 0.738578; 0.539323;-0.404462;, - -0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - -0.518326; 0.662831; 0.540300;, - -0.738578; 0.539323;-0.404462;, - 0.000000;-0.001770;-0.999969;, - 0.000000; 0.884915;-0.465712;, - 0.000000; 0.884915;-0.465712;, - 0.000000;-0.001770;-0.999969;, - 0.738578; 0.539323;-0.404462;, - -0.738578; 0.539323;-0.404462;, - -0.765404;-0.129521;-0.630360;, - 0.000000;-0.001770;-0.999969;, - 0.000000;-0.001770;-0.999969;, - 0.765404;-0.129521;-0.630360;, - 0.738578; 0.539323;-0.404462;, - -0.765404;-0.129521;-0.630360;, - -0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - 0.000000;-0.001770;-0.999969;, - 0.736015;-0.332713;-0.589496;, - 0.765404;-0.129521;-0.630360;, - -0.624287;-0.581622;-0.521470;, - 0.000000;-0.001770;-0.999969;, - -0.736015;-0.332713;-0.589496;, - 0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - 0.624287;-0.581622;-0.521470;, - 0.000122;-0.968535;-0.248787;, - 0.000000;-0.001770;-0.999969;, - -0.624287;-0.581622;-0.521470;, - 0.624287;-0.581622;-0.521470;, - 0.000000;-0.001770;-0.999969;, - -0.000122;-0.968535;-0.248787;, - 0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - 0.000000;-0.001770;-0.999969;, - 0.000000;-0.001770;-0.999969;, - 0.000000; 0.884915;-0.465712;, - -0.738578; 0.539323;-0.404462;, - 0.738578; 0.539323;-0.404462;, - 0.000000;-0.001770;-0.999969;, - 0.765404;-0.129521;-0.630360;, - -0.765404;-0.129521;-0.630360;, - 0.000000;-0.001770;-0.999969;, - -0.738578; 0.539323;-0.404462;, - 0.765404;-0.129521;-0.630360;, - 0.000000;-0.001770;-0.999969;, - 0.736015;-0.332713;-0.589496;, - -0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - -0.765404;-0.129521;-0.630360;, - 0.624378;-0.581347;-0.521683;, - 0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - 0.000000;-0.001770;-0.999969;, - -0.736015;-0.332713;-0.589496;, - -0.624378;-0.581347;-0.521683;, - 0.000122;-0.968535;-0.248787;, - 0.624378;-0.581347;-0.521683;, - 0.000000;-0.001770;-0.999969;, - 0.000000;-0.001770;-0.999969;, - -0.624378;-0.581347;-0.521683;, - -0.000122;-0.968535;-0.248787;, - -0.022279; 0.883785;-0.467330;, - 0.467269; 0.600543; 0.648823;, - 0.996216; 0.072878; 0.047304;, - -0.996216; 0.072878; 0.047304;, - -0.467269; 0.600543; 0.648823;, - 0.022279; 0.883785;-0.467330;, - 0.068056; 0.451369;-0.889737;, - -0.022279; 0.883785;-0.467330;, - 0.996216; 0.072878; 0.047304;, - -0.996216; 0.072878; 0.047304;, - 0.022279; 0.883785;-0.467330;, - -0.068056; 0.451369;-0.889737;, - 0.053041; 0.567919;-0.821345;, - 0.068056; 0.451369;-0.889737;, - 0.996216; 0.072878; 0.047304;, - -0.996216; 0.072878; 0.047304;, - -0.068056; 0.451369;-0.889737;, - -0.053041; 0.567919;-0.821345;, - 0.053041; 0.567919;-0.821345;, - 0.996216; 0.072878; 0.047304;, - 0.971435;-0.202429;-0.123753;, - -0.971435;-0.202429;-0.123753;, - -0.996216; 0.072878; 0.047304;, - -0.053041; 0.567919;-0.821345;, - 0.047395; 0.283822;-0.957671;, - 0.053041; 0.567919;-0.821345;, - 0.971435;-0.202429;-0.123753;, - -0.971435;-0.202429;-0.123753;, - -0.053041; 0.567919;-0.821345;, - -0.047395; 0.283822;-0.957671;, - 0.038514; 0.368236;-0.928922;, - 0.999695; 0.022156;-0.010559;, - 0.057161; 0.906796;-0.417646;, - -0.057161; 0.906796;-0.417646;, - -0.999695; 0.022156;-0.010559;, - -0.038514; 0.368236;-0.928922;, - 0.038514; 0.368236;-0.928922;, - 0.971435;-0.202429;-0.123753;, - 0.999695; 0.022156;-0.010559;, - -0.999695; 0.022156;-0.010559;, - -0.971435;-0.202429;-0.123753;, - -0.038514; 0.368236;-0.928922;, - 0.038514; 0.368236;-0.928922;, - 0.047395; 0.283822;-0.957671;, - 0.971435;-0.202429;-0.123753;, - -0.971435;-0.202429;-0.123753;, - -0.047395; 0.283822;-0.957671;, - -0.038514; 0.368236;-0.928922;, - 0.034242; 0.996765; 0.072665;, - 0.057161; 0.906796;-0.417646;, - 0.999695; 0.022156;-0.010559;, - -0.999695; 0.022156;-0.010559;, - -0.057161; 0.906796;-0.417646;, - -0.034242; 0.996765; 0.072665;, - 0.034242; 0.996765; 0.072665;, - 0.999695; 0.022156;-0.010559;, - 0.972350;-0.104343; 0.208869;, - -0.972350;-0.104343; 0.208869;, - -0.999695; 0.022156;-0.010559;, - -0.034242; 0.996765; 0.072665;, - 0.111026; 0.925352;-0.362438;, - 0.034242; 0.996765; 0.072665;, - 0.972350;-0.104343; 0.208869;, - -0.972350;-0.104343; 0.208869;, - -0.034242; 0.996765; 0.072665;, - -0.111026; 0.925352;-0.362438;, - 0.160680; 0.848750;-0.503739;, - 0.111026; 0.925352;-0.362438;, - 0.972350;-0.104343; 0.208869;, - -0.972350;-0.104343; 0.208869;, - -0.111026; 0.925352;-0.362438;, - -0.160680; 0.848750;-0.503739;, - 0.160680; 0.848750;-0.503739;, - 0.972350;-0.104343; 0.208869;, - 0.979308;-0.192419; 0.062288;, - -0.979308;-0.192419; 0.062288;, - -0.972350;-0.104343; 0.208869;, - -0.160680; 0.848750;-0.503739;, - 0.044099; 0.732017;-0.679800;, - 0.979308;-0.192419; 0.062288;, - 0.965209;-0.185492;-0.184210;, - -0.965209;-0.185492;-0.184210;, - -0.979308;-0.192419; 0.062288;, - -0.044099; 0.732017;-0.679800;, - 0.044099; 0.732017;-0.679800;, - 0.160680; 0.848750;-0.503739;, - 0.979308;-0.192419; 0.062288;, - -0.979308;-0.192419; 0.062288;, - -0.160680; 0.848750;-0.503739;, - -0.044099; 0.732017;-0.679800;, - 0.044099; 0.732017;-0.679800;, - 0.965209;-0.185492;-0.184210;, - 0.968749; 0.247383; 0.016388;, - -0.968749; 0.247383; 0.016388;, - -0.965209;-0.185492;-0.184210;, - -0.044099; 0.732017;-0.679800;, - 0.142369; 0.649037; 0.747276;, - 0.968749; 0.247383; 0.016388;, - 0.962889;-0.269753; 0.006897;, - -0.962889;-0.269753; 0.006897;, - -0.968749; 0.247383; 0.016388;, - -0.142369; 0.649037; 0.747276;, - 0.962889;-0.269753; 0.006897;, - 0.968749; 0.247383; 0.016388;, - 0.965209;-0.185492;-0.184210;, - -0.965209;-0.185492;-0.184210;, - -0.968749; 0.247383; 0.016388;, - -0.962889;-0.269753; 0.006897;, - -0.022279; 0.883785;-0.467330;, - 0.057649; 0.842799; 0.535081;, - 0.467269; 0.600543; 0.648823;, - -0.467269; 0.600543; 0.648823;, - -0.057649; 0.842799; 0.535081;, - 0.022279; 0.883785;-0.467330;, - -0.022279; 0.883785;-0.467330;, - 0.015870; 0.978576; 0.205145;, - 0.057649; 0.842799; 0.535081;, - -0.057649; 0.842799; 0.535081;, - -0.015870; 0.978576; 0.205145;, - 0.022279; 0.883785;-0.467330;, - 0.086947; 0.983612; 0.157872;, - 0.962889;-0.269753; 0.006897;, - 0.964232; 0.264718;-0.011017;, - -0.964232; 0.264718;-0.011017;, - -0.962889;-0.269753; 0.006897;, - -0.086947; 0.983612; 0.157872;, - 0.086947; 0.983612; 0.157872;, - 0.142369; 0.649037; 0.747276;, - 0.962889;-0.269753; 0.006897;, - -0.962889;-0.269753; 0.006897;, - -0.142369; 0.649037; 0.747276;, - -0.086947; 0.983612; 0.157872;, - 0.964232; 0.264718;-0.011017;, - 0.962889;-0.269753; 0.006897;, - 0.715934;-0.598712;-0.359111;, - -0.715934;-0.598712;-0.359111;, - -0.962889;-0.269753; 0.006897;, - -0.964232; 0.264718;-0.011017;, - 0.865352; 0.076937;-0.495163;, - 0.964232; 0.264718;-0.011017;, - 0.715934;-0.598712;-0.359111;, - -0.715934;-0.598712;-0.359111;, - -0.964232; 0.264718;-0.011017;, - -0.865352; 0.076937;-0.495163;, - 0.698416;-0.597186;-0.394360;, - 0.865352; 0.076937;-0.495163;, - 0.715934;-0.598712;-0.359111;, - -0.715934;-0.598712;-0.359111;, - -0.865352; 0.076937;-0.495163;, - -0.698416;-0.597186;-0.394360;, - 0.698416;-0.597186;-0.394360;, - 0.834346;-0.329112;-0.442152;, - 0.865352; 0.076937;-0.495163;, - -0.865352; 0.076937;-0.495163;, - -0.834346;-0.329112;-0.442152;, - -0.698416;-0.597186;-0.394360;, - 0.996979;-0.076113; 0.014740;, - 0.814783;-0.489395;-0.310770;, - 0.980956;-0.184667; 0.059755;, - -0.980956;-0.184667; 0.059755;, - -0.814783;-0.489395;-0.310770;, - -0.996979;-0.076113; 0.014740;, - 0.834346;-0.329112;-0.442152;, - 0.814783;-0.489395;-0.310770;, - 0.996979;-0.076113; 0.014740;, - -0.996979;-0.076113; 0.014740;, - -0.814783;-0.489395;-0.310770;, - -0.834346;-0.329112;-0.442152;, - 0.698416;-0.597186;-0.394360;, - 0.814783;-0.489395;-0.310770;, - 0.834346;-0.329112;-0.442152;, - -0.834346;-0.329112;-0.442152;, - -0.814783;-0.489395;-0.310770;, - -0.698416;-0.597186;-0.394360;, - -0.596271; 0.441908; 0.670156;, - -0.698355; 0.608570; 0.376690;, - -0.267067; 0.718619; 0.642048;, - 0.267067; 0.718619; 0.642048;, - 0.698355; 0.608570; 0.376690;, - 0.596271; 0.441908; 0.670156;, - 0.036775; 0.834468; 0.549791;, - -0.267067; 0.718619; 0.642048;, - -0.385510; 0.863247; 0.325785;, - 0.385510; 0.863247; 0.325785;, - 0.267067; 0.718619; 0.642048;, - -0.036775; 0.834468; 0.549791;, - 0.004913; 0.963012; 0.269356;, - 0.036775; 0.834468; 0.549791;, - -0.385510; 0.863247; 0.325785;, - 0.385510; 0.863247; 0.325785;, - -0.036775; 0.834468; 0.549791;, - -0.004913; 0.963012; 0.269356;, - -0.698355; 0.608570; 0.376690;, - -0.385510; 0.863247; 0.325785;, - -0.267067; 0.718619; 0.642048;, - 0.267067; 0.718619; 0.642048;, - 0.385510; 0.863247; 0.325785;, - 0.698355; 0.608570; 0.376690;, - 0.004913; 0.963012; 0.269356;, - -0.385510; 0.863247; 0.325785;, - 0.013398; 0.999054; 0.041047;, - -0.013398; 0.999054; 0.041047;, - 0.385510; 0.863247; 0.325785;, - -0.004913; 0.963012; 0.269356;, - 0.013398; 0.999054; 0.041047;, - -0.385510; 0.863247; 0.325785;, - -0.372936; 0.927824; 0.000366;, - 0.372936; 0.927824; 0.000366;, - 0.385510; 0.863247; 0.325785;, - -0.013398; 0.999054; 0.041047;, - 0.013398; 0.999054; 0.041047;, - -0.372936; 0.927824; 0.000366;, - -0.103610; 0.883938;-0.455947;, - 0.103610; 0.883938;-0.455947;, - 0.372936; 0.927824; 0.000366;, - -0.013398; 0.999054; 0.041047;, - 0.013398; 0.999054; 0.041047;, - -0.103610; 0.883938;-0.455947;, - 0.148045; 0.943724;-0.295694;, - -0.148045; 0.943724;-0.295694;, - 0.103610; 0.883938;-0.455947;, - -0.013398; 0.999054; 0.041047;, - -0.385510; 0.863247; 0.325785;, - -0.698355; 0.608570; 0.376690;, - -0.631336; 0.770867; 0.084445;, - 0.631336; 0.770867; 0.084445;, - 0.698355; 0.608570; 0.376690;, - 0.385510; 0.863247; 0.325785;, - -0.385510; 0.863247; 0.325785;, - -0.631336; 0.770867; 0.084445;, - -0.372936; 0.927824; 0.000366;, - 0.372936; 0.927824; 0.000366;, - 0.631336; 0.770867; 0.084445;, - 0.385510; 0.863247; 0.325785;, - -0.372936; 0.927824; 0.000366;, - -0.474837; 0.830683;-0.290597;, - -0.103610; 0.883938;-0.455947;, - 0.103610; 0.883938;-0.455947;, - 0.474837; 0.830683;-0.290597;, - 0.372936; 0.927824; 0.000366;, - -0.372936; 0.927824; 0.000366;, - -0.631336; 0.770867; 0.084445;, - -0.474837; 0.830683;-0.290597;, - 0.474837; 0.830683;-0.290597;, - 0.631336; 0.770867; 0.084445;, - 0.372936; 0.927824; 0.000366;, - -0.103610; 0.883938;-0.455947;, - 0.164495; 0.688192;-0.706626;, - 0.148045; 0.943724;-0.295694;, - -0.148045; 0.943724;-0.295694;, - -0.164495; 0.688192;-0.706626;, - 0.103610; 0.883938;-0.455947;, - 0.164495; 0.688192;-0.706626;, - 0.138951; 0.649129;-0.747856;, - 0.148045; 0.943724;-0.295694;, - -0.148045; 0.943724;-0.295694;, - -0.138951; 0.649129;-0.747856;, - -0.164495; 0.688192;-0.706626;, - 0.138951; 0.649129;-0.747856;, - 0.164495; 0.688192;-0.706626;, - 0.096011; 0.385571;-0.917661;, - -0.096011; 0.385571;-0.917661;, - -0.164495; 0.688192;-0.706626;, - -0.138951; 0.649129;-0.747856;, - 0.996979;-0.076113; 0.014740;, - 0.793390;-0.163518;-0.586291;, - 0.834346;-0.329112;-0.442152;, - -0.834346;-0.329112;-0.442152;, - -0.793390;-0.163518;-0.586291;, - -0.996979;-0.076113; 0.014740;, - 0.633198;-0.728599;-0.261055;, - 0.814783;-0.489395;-0.310770;, - 0.698416;-0.597186;-0.394360;, - -0.698416;-0.597186;-0.394360;, - -0.814783;-0.489395;-0.310770;, - -0.633198;-0.728599;-0.261055;, - 0.814783;-0.489395;-0.310770;, - 0.633198;-0.728599;-0.261055;, - 0.980956;-0.184667; 0.059755;, - -0.980956;-0.184667; 0.059755;, - -0.633198;-0.728599;-0.261055;, - -0.814783;-0.489395;-0.310770;, - 0.980956;-0.184667; 0.059755;, - 0.633198;-0.728599;-0.261055;, - 0.604480;-0.780633; 0.158666;, - -0.604480;-0.780633; 0.158666;, - -0.633198;-0.728599;-0.261055;, - -0.980956;-0.184667; 0.059755;, - 0.980956;-0.184667; 0.059755;, - 0.604480;-0.780633; 0.158666;, - 0.966002; 0.185797; 0.179632;, - -0.966002; 0.185797; 0.179632;, - -0.604480;-0.780633; 0.158666;, - -0.980956;-0.184667; 0.059755;, - -0.124699;-0.683798; 0.718925;, - 0.966002; 0.185797; 0.179632;, - 0.604480;-0.780633; 0.158666;, - -0.604480;-0.780633; 0.158666;, - -0.966002; 0.185797; 0.179632;, - 0.124699;-0.683798; 0.718925;, - -0.124699;-0.683798; 0.718925;, - -0.067171;-0.770623; 0.633717;, - -0.826624;-0.011536; 0.562578;, - 0.826624;-0.011536; 0.562578;, - 0.067171;-0.770623; 0.633717;, - 0.124699;-0.683798; 0.718925;, - -0.826624;-0.011536; 0.562578;, - -0.793573; 0.135258; 0.593219;, - -0.623829;-0.051790; 0.779809;, - 0.623829;-0.051790; 0.779809;, - 0.793573; 0.135258; 0.593219;, - 0.826624;-0.011536; 0.562578;, - -0.793573; 0.135258; 0.593219;, - -0.596271; 0.441908; 0.670156;, - -0.623829;-0.051790; 0.779809;, - 0.623829;-0.051790; 0.779809;, - 0.596271; 0.441908; 0.670156;, - 0.793573; 0.135258; 0.593219;, - -0.596271; 0.441908; 0.670156;, - -0.793573; 0.135258; 0.593219;, - -0.698355; 0.608570; 0.376690;, - 0.698355; 0.608570; 0.376690;, - 0.793573; 0.135258; 0.593219;, - 0.596271; 0.441908; 0.670156;, - -0.853450; 0.464431; 0.236335;, - -0.698355; 0.608570; 0.376690;, - -0.793573; 0.135258; 0.593219;, - 0.793573; 0.135258; 0.593219;, - 0.698355; 0.608570; 0.376690;, - 0.853450; 0.464431; 0.236335;, - -0.826624;-0.011536; 0.562578;, - -0.853450; 0.464431; 0.236335;, - -0.793573; 0.135258; 0.593219;, - 0.793573; 0.135258; 0.593219;, - 0.853450; 0.464431; 0.236335;, - 0.826624;-0.011536; 0.562578;, - -0.826624;-0.011536; 0.562578;, - -0.930601; 0.357189; 0.079836;, - -0.853450; 0.464431; 0.236335;, - 0.853450; 0.464431; 0.236335;, - 0.930601; 0.357189; 0.079836;, - 0.826624;-0.011536; 0.562578;, - -0.826624;-0.011536; 0.562578;, - -0.918851; 0.075716; 0.387249;, - -0.930601; 0.357189; 0.079836;, - 0.930601; 0.357189; 0.079836;, - 0.918851; 0.075716; 0.387249;, - 0.826624;-0.011536; 0.562578;, - -0.918851; 0.075716; 0.387249;, - -0.970794; 0.075961; 0.227485;, - -0.930601; 0.357189; 0.079836;, - 0.930601; 0.357189; 0.079836;, - 0.970794; 0.075961; 0.227485;, - 0.918851; 0.075716; 0.387249;, - -0.970794; 0.075961; 0.227485;, - -0.925596; 0.376293; 0.040315;, - -0.930601; 0.357189; 0.079836;, - 0.930601; 0.357189; 0.079836;, - 0.925596; 0.376293; 0.040315;, - 0.970794; 0.075961; 0.227485;, - -0.970794; 0.075961; 0.227485;, - -0.998108; 0.048677;-0.037263;, - -0.925596; 0.376293; 0.040315;, - 0.925596; 0.376293; 0.040315;, - 0.998108; 0.048677;-0.037263;, - 0.970794; 0.075961; 0.227485;, - -0.998108; 0.048677;-0.037263;, - -0.892209; 0.430097;-0.137638;, - -0.925596; 0.376293; 0.040315;, - 0.925596; 0.376293; 0.040315;, - 0.892209; 0.430097;-0.137638;, - 0.998108; 0.048677;-0.037263;, - -0.967040;-0.007569;-0.254463;, - -0.892209; 0.430097;-0.137638;, - -0.998108; 0.048677;-0.037263;, - 0.998108; 0.048677;-0.037263;, - 0.892209; 0.430097;-0.137638;, - 0.967040;-0.007569;-0.254463;, - -0.853450; 0.464431; 0.236335;, - -0.631336; 0.770867; 0.084445;, - -0.698355; 0.608570; 0.376690;, - 0.698355; 0.608570; 0.376690;, - 0.631336; 0.770867; 0.084445;, - 0.853450; 0.464431; 0.236335;, - -0.103610; 0.883938;-0.455947;, - -0.494003; 0.699240;-0.516709;, - 0.145848; 0.456740;-0.877529;, - -0.145848; 0.456740;-0.877529;, - 0.494003; 0.699240;-0.516709;, - 0.103610; 0.883938;-0.455947;, - 0.145848; 0.456740;-0.877529;, - -0.494003; 0.699240;-0.516709;, - 0.159520; 0.574023;-0.803125;, - -0.159520; 0.574023;-0.803125;, - 0.494003; 0.699240;-0.516709;, - -0.145848; 0.456740;-0.877529;, - 0.159520; 0.574023;-0.803125;, - -0.494003; 0.699240;-0.516709;, - -0.621021; 0.679006;-0.391491;, - 0.621021; 0.679006;-0.391491;, - 0.494003; 0.699240;-0.516709;, - -0.159520; 0.574023;-0.803125;, - 0.159520; 0.574023;-0.803125;, - -0.621021; 0.679006;-0.391491;, - -0.164830; 0.919248;-0.357433;, - 0.164830; 0.919248;-0.357433;, - 0.621021; 0.679006;-0.391491;, - -0.159520; 0.574023;-0.803125;, - -0.474837; 0.830683;-0.290597;, - -0.494003; 0.699240;-0.516709;, - -0.103610; 0.883938;-0.455947;, - 0.103610; 0.883938;-0.455947;, - 0.494003; 0.699240;-0.516709;, - 0.474837; 0.830683;-0.290597;, - -0.930601; 0.357189; 0.079836;, - -0.925596; 0.376293; 0.040315;, - -0.621021; 0.679006;-0.391491;, - 0.621021; 0.679006;-0.391491;, - 0.925596; 0.376293; 0.040315;, - 0.930601; 0.357189; 0.079836;, - -0.925596; 0.376293; 0.040315;, - -0.892209; 0.430097;-0.137638;, - -0.621021; 0.679006;-0.391491;, - 0.621021; 0.679006;-0.391491;, - 0.892209; 0.430097;-0.137638;, - 0.925596; 0.376293; 0.040315;, - -0.159215;-0.954924; 0.250465;, - -0.834132;-0.336924; 0.436659;, - -0.067171;-0.770623; 0.633717;, - 0.067171;-0.770623; 0.633717;, - 0.834132;-0.336924; 0.436659;, - 0.159215;-0.954924; 0.250465;, - -0.918851; 0.075716; 0.387249;, - -0.834132;-0.336924; 0.436659;, - -0.970794; 0.075961; 0.227485;, - 0.970794; 0.075961; 0.227485;, - 0.834132;-0.336924; 0.436659;, - 0.918851; 0.075716; 0.387249;, - -0.368236;-0.860103;-0.352947;, - -0.948576;-0.316019;-0.017029;, - -0.159215;-0.954924; 0.250465;, - 0.159215;-0.954924; 0.250465;, - 0.948576;-0.316019;-0.017029;, - 0.368236;-0.860103;-0.352947;, - -0.970794; 0.075961; 0.227485;, - -0.948576;-0.316019;-0.017029;, - -0.998108; 0.048677;-0.037263;, - 0.998108; 0.048677;-0.037263;, - 0.948576;-0.316019;-0.017029;, - 0.970794; 0.075961; 0.227485;, - -0.948576;-0.316019;-0.017029;, - -0.368236;-0.860103;-0.352947;, - -0.998108; 0.048677;-0.037263;, - 0.998108; 0.048677;-0.037263;, - 0.368236;-0.860103;-0.352947;, - 0.948576;-0.316019;-0.017029;, - -0.834132;-0.336924; 0.436659;, - -0.159215;-0.954924; 0.250465;, - -0.948576;-0.316019;-0.017029;, - 0.948576;-0.316019;-0.017029;, - 0.159215;-0.954924; 0.250465;, - 0.834132;-0.336924; 0.436659;, - -0.834132;-0.336924; 0.436659;, - -0.948576;-0.316019;-0.017029;, - -0.970794; 0.075961; 0.227485;, - 0.970794; 0.075961; 0.227485;, - 0.948576;-0.316019;-0.017029;, - 0.834132;-0.336924; 0.436659;, - -0.826624;-0.011536; 0.562578;, - -0.067171;-0.770623; 0.633717;, - -0.834132;-0.336924; 0.436659;, - 0.834132;-0.336924; 0.436659;, - 0.067171;-0.770623; 0.633717;, - 0.826624;-0.011536; 0.562578;, - -0.826624;-0.011536; 0.562578;, - -0.834132;-0.336924; 0.436659;, - -0.918851; 0.075716; 0.387249;, - 0.918851; 0.075716; 0.387249;, - 0.834132;-0.336924; 0.436659;, - 0.826624;-0.011536; 0.562578;, - -0.813623; 0.579333;-0.048280;, - -0.853450; 0.464431; 0.236335;, - -0.930601; 0.357189; 0.079836;, - 0.930601; 0.357189; 0.079836;, - 0.853450; 0.464431; 0.236335;, - 0.813623; 0.579333;-0.048280;, - -0.853450; 0.464431; 0.236335;, - -0.813623; 0.579333;-0.048280;, - -0.631336; 0.770867; 0.084445;, - 0.631336; 0.770867; 0.084445;, - 0.813623; 0.579333;-0.048280;, - 0.853450; 0.464431; 0.236335;, - -0.474837; 0.830683;-0.290597;, - -0.631336; 0.770867; 0.084445;, - -0.813623; 0.579333;-0.048280;, - 0.813623; 0.579333;-0.048280;, - 0.631336; 0.770867; 0.084445;, - 0.474837; 0.830683;-0.290597;, - -0.474837; 0.830683;-0.290597;, - -0.813623; 0.579333;-0.048280;, - -0.494003; 0.699240;-0.516709;, - 0.494003; 0.699240;-0.516709;, - 0.813623; 0.579333;-0.048280;, - 0.474837; 0.830683;-0.290597;, - -0.621021; 0.679006;-0.391491;, - -0.494003; 0.699240;-0.516709;, - -0.813623; 0.579333;-0.048280;, - 0.813623; 0.579333;-0.048280;, - 0.494003; 0.699240;-0.516709;, - 0.621021; 0.679006;-0.391491;, - -0.621021; 0.679006;-0.391491;, - -0.813623; 0.579333;-0.048280;, - -0.930601; 0.357189; 0.079836;, - 0.930601; 0.357189; 0.079836;, - 0.813623; 0.579333;-0.048280;, - 0.621021; 0.679006;-0.391491;, - -0.124699;-0.683798; 0.718925;, - 0.604480;-0.780633; 0.158666;, - -0.067171;-0.770623; 0.633717;, - 0.067171;-0.770623; 0.633717;, - -0.604480;-0.780633; 0.158666;, - 0.124699;-0.683798; 0.718925;, - -0.067171;-0.770623; 0.633717;, - 0.604480;-0.780633; 0.158666;, - -0.159215;-0.954924; 0.250465;, - 0.159215;-0.954924; 0.250465;, - -0.604480;-0.780633; 0.158666;, - 0.067171;-0.770623; 0.633717;, - -0.159215;-0.954924; 0.250465;, - 0.604480;-0.780633; 0.158666;, - 0.633198;-0.728599;-0.261055;, - -0.633198;-0.728599;-0.261055;, - -0.604480;-0.780633; 0.158666;, - 0.159215;-0.954924; 0.250465;, - -0.159215;-0.954924; 0.250465;, - 0.633198;-0.728599;-0.261055;, - -0.368236;-0.860103;-0.352947;, - 0.368236;-0.860103;-0.352947;, - -0.633198;-0.728599;-0.261055;, - 0.159215;-0.954924; 0.250465;, - -0.368236;-0.860103;-0.352947;, - 0.633198;-0.728599;-0.261055;, - 0.698416;-0.597186;-0.394360;, - -0.698416;-0.597186;-0.394360;, - -0.633198;-0.728599;-0.261055;, - 0.368236;-0.860103;-0.352947;, - -0.368236;-0.860103;-0.352947;, - 0.698416;-0.597186;-0.394360;, - -0.418378;-0.700919;-0.577593;, - 0.418378;-0.700919;-0.577593;, - -0.698416;-0.597186;-0.394360;, - 0.368236;-0.860103;-0.352947;, - -0.164830; 0.919248;-0.357433;, - -0.621021; 0.679006;-0.391491;, - -0.892209; 0.430097;-0.137638;, - 0.892209; 0.430097;-0.137638;, - 0.621021; 0.679006;-0.391491;, - 0.164830; 0.919248;-0.357433;, - 0.865352; 0.076937;-0.495163;, - 0.834346;-0.329112;-0.442152;, - 0.793390;-0.163518;-0.586291;, - -0.793390;-0.163518;-0.586291;, - -0.834346;-0.329112;-0.442152;, - -0.865352; 0.076937;-0.495163;, - 0.159520; 0.574023;-0.803125;, - -0.164830; 0.919248;-0.357433;, - 0.865352; 0.076937;-0.495163;, - -0.865352; 0.076937;-0.495163;, - 0.164830; 0.919248;-0.357433;, - -0.159520; 0.574023;-0.803125;, - 0.159520; 0.574023;-0.803125;, - 0.865352; 0.076937;-0.495163;, - 0.793390;-0.163518;-0.586291;, - -0.793390;-0.163518;-0.586291;, - -0.865352; 0.076937;-0.495163;, - -0.159520; 0.574023;-0.803125;, - 0.145848; 0.456740;-0.877529;, - 0.159520; 0.574023;-0.803125;, - 0.793390;-0.163518;-0.586291;, - -0.793390;-0.163518;-0.586291;, - -0.159520; 0.574023;-0.803125;, - -0.145848; 0.456740;-0.877529;, - 0.096011; 0.385571;-0.917661;, - 0.145848; 0.456740;-0.877529;, - 0.793390;-0.163518;-0.586291;, - -0.793390;-0.163518;-0.586291;, - -0.145848; 0.456740;-0.877529;, - -0.096011; 0.385571;-0.917661;, - 0.096011; 0.385571;-0.917661;, - 0.164495; 0.688192;-0.706626;, - 0.145848; 0.456740;-0.877529;, - -0.145848; 0.456740;-0.877529;, - -0.164495; 0.688192;-0.706626;, - -0.096011; 0.385571;-0.917661;, - 0.164495; 0.688192;-0.706626;, - -0.103610; 0.883938;-0.455947;, - 0.145848; 0.456740;-0.877529;, - -0.145848; 0.456740;-0.877529;, - 0.103610; 0.883938;-0.455947;, - -0.164495; 0.688192;-0.706626;, - -0.368236;-0.860103;-0.352947;, - -0.418378;-0.700919;-0.577593;, - -0.967040;-0.007569;-0.254463;, - 0.967040;-0.007569;-0.254463;, - 0.418378;-0.700919;-0.577593;, - 0.368236;-0.860103;-0.352947;, - -0.368236;-0.860103;-0.352947;, - -0.967040;-0.007569;-0.254463;, - -0.998108; 0.048677;-0.037263;, - 0.998108; 0.048677;-0.037263;, - 0.967040;-0.007569;-0.254463;, - 0.368236;-0.860103;-0.352947;, - -0.967040;-0.007569;-0.254463;, - -0.418378;-0.700919;-0.577593;, - -0.441969;-0.652974;-0.615009;, - 0.441969;-0.652974;-0.615009;, - 0.418378;-0.700919;-0.577593;, - 0.967040;-0.007569;-0.254463;, - -0.967040;-0.007569;-0.254463;, - -0.441969;-0.652974;-0.615009;, - -0.943449; 0.017090;-0.330973;, - 0.943449; 0.017090;-0.330973;, - 0.441969;-0.652974;-0.615009;, - 0.967040;-0.007569;-0.254463;, - -0.967040;-0.007569;-0.254463;, - -0.943449; 0.017090;-0.330973;, - -0.892209; 0.430097;-0.137638;, - 0.892209; 0.430097;-0.137638;, - 0.943449; 0.017090;-0.330973;, - 0.967040;-0.007569;-0.254463;, - -0.892209; 0.430097;-0.137638;, - -0.943449; 0.017090;-0.330973;, - -0.867519; 0.477462;-0.139348;, - 0.867519; 0.477462;-0.139348;, - 0.943449; 0.017090;-0.330973;, - 0.892209; 0.430097;-0.137638;, - -0.892209; 0.430097;-0.137638;, - -0.867519; 0.477462;-0.139348;, - 0.086947; 0.983612; 0.157872;, - -0.086947; 0.983612; 0.157872;, - 0.867519; 0.477462;-0.139348;, - 0.892209; 0.430097;-0.137638;, - -0.164830; 0.919248;-0.357433;, - -0.892209; 0.430097;-0.137638;, - 0.086947; 0.983612; 0.157872;, - -0.086947; 0.983612; 0.157872;, - 0.892209; 0.430097;-0.137638;, - 0.164830; 0.919248;-0.357433;, - -0.943449; 0.017090;-0.330973;, - -0.997620; 0.057680; 0.037477;, - -0.867519; 0.477462;-0.139348;, - 0.867519; 0.477462;-0.139348;, - 0.997620; 0.057680; 0.037477;, - 0.943449; 0.017090;-0.330973;, - -0.441969;-0.652974;-0.615009;, - -0.199530;-0.849025;-0.489181;, - -0.943449; 0.017090;-0.330973;, - 0.943449; 0.017090;-0.330973;, - 0.199530;-0.849025;-0.489181;, - 0.441969;-0.652974;-0.615009;, - -0.199530;-0.849025;-0.489181;, - -0.997620; 0.057680; 0.037477;, - -0.943449; 0.017090;-0.330973;, - 0.943449; 0.017090;-0.330973;, - 0.997620; 0.057680; 0.037477;, - 0.199530;-0.849025;-0.489181;, - 0.086947; 0.983612; 0.157872;, - -0.867519; 0.477462;-0.139348;, - -0.997620; 0.057680; 0.037477;, - 0.997620; 0.057680; 0.037477;, - 0.867519; 0.477462;-0.139348;, - -0.086947; 0.983612; 0.157872;, - 0.086947; 0.983612; 0.157872;, - -0.997620; 0.057680; 0.037477;, - 0.142369; 0.649037; 0.747276;, - -0.142369; 0.649037; 0.747276;, - 0.997620; 0.057680; 0.037477;, - -0.086947; 0.983612; 0.157872;, - -0.418378;-0.700919;-0.577593;, - 0.698416;-0.597186;-0.394360;, - 0.715934;-0.598712;-0.359111;, - -0.715934;-0.598712;-0.359111;, - -0.698416;-0.597186;-0.394360;, - 0.418378;-0.700919;-0.577593;, - -0.418378;-0.700919;-0.577593;, - 0.715934;-0.598712;-0.359111;, - -0.441969;-0.652974;-0.615009;, - 0.441969;-0.652974;-0.615009;, - -0.715934;-0.598712;-0.359111;, - 0.418378;-0.700919;-0.577593;, - -0.164830; 0.919248;-0.357433;, - 0.964232; 0.264718;-0.011017;, - 0.865352; 0.076937;-0.495163;, - -0.865352; 0.076937;-0.495163;, - -0.964232; 0.264718;-0.011017;, - 0.164830; 0.919248;-0.357433;, - -0.164830; 0.919248;-0.357433;, - 0.086947; 0.983612; 0.157872;, - 0.964232; 0.264718;-0.011017;, - -0.964232; 0.264718;-0.011017;, - -0.086947; 0.983612; 0.157872;, - 0.164830; 0.919248;-0.357433;, - -0.441969;-0.652974;-0.615009;, - 0.715934;-0.598712;-0.359111;, - -0.199530;-0.849025;-0.489181;, - 0.199530;-0.849025;-0.489181;, - -0.715934;-0.598712;-0.359111;, - 0.441969;-0.652974;-0.615009;, - -0.199530;-0.849025;-0.489181;, - 0.715934;-0.598712;-0.359111;, - 0.962889;-0.269753; 0.006897;, - -0.962889;-0.269753; 0.006897;, - -0.715934;-0.598712;-0.359111;, - 0.199530;-0.849025;-0.489181;, - 0.015870; 0.978576; 0.205145;, - -0.022279; 0.883785;-0.467330;, - -0.064608; 0.841395; 0.536485;, - 0.064608; 0.841395; 0.536485;, - 0.022279; 0.883785;-0.467330;, - -0.015870; 0.978576; 0.205145;, - -0.022279; 0.883785;-0.467330;, - -0.532914; 0.520035; 0.667470;, - -0.064608; 0.841395; 0.536485;, - 0.064608; 0.841395; 0.536485;, - 0.532914; 0.520035; 0.667470;, - 0.022279; 0.883785;-0.467330;, - 0.142369; 0.649037; 0.747276;, - -0.997620; 0.057680; 0.037477;, - -0.945189; 0.317301; 0.076754;, - 0.945189; 0.317301; 0.076754;, - 0.997620; 0.057680; 0.037477;, - -0.142369; 0.649037; 0.747276;, - 0.142369; 0.649037; 0.747276;, - -0.945189; 0.317301; 0.076754;, - -0.043641; 0.892148; 0.449568;, - 0.043641; 0.892148; 0.449568;, - 0.945189; 0.317301; 0.076754;, - -0.142369; 0.649037; 0.747276;, - -0.021912; 0.966887;-0.254158;, - -0.043641; 0.892148; 0.449568;, - -0.945189; 0.317301; 0.076754;, - 0.945189; 0.317301; 0.076754;, - 0.043641; 0.892148; 0.449568;, - 0.021912; 0.966887;-0.254158;, - -0.021912; 0.966887;-0.254158;, - -0.945189; 0.317301; 0.076754;, - 0.044099; 0.732017;-0.679800;, - -0.044099; 0.732017;-0.679800;, - 0.945189; 0.317301; 0.076754;, - 0.021912; 0.966887;-0.254158;, - 0.044099; 0.732017;-0.679800;, - -0.945189; 0.317301; 0.076754;, - -0.990295; 0.050295;-0.129490;, - 0.990295; 0.050295;-0.129490;, - 0.945189; 0.317301; 0.076754;, - -0.044099; 0.732017;-0.679800;, - -0.199530;-0.849025;-0.489181;, - -0.200964;-0.979400; 0.018769;, - -0.997620; 0.057680; 0.037477;, - 0.997620; 0.057680; 0.037477;, - 0.200964;-0.979400; 0.018769;, - 0.199530;-0.849025;-0.489181;, - -0.997620; 0.057680; 0.037477;, - -0.200964;-0.979400; 0.018769;, - -0.990295; 0.050295;-0.129490;, - 0.990295; 0.050295;-0.129490;, - 0.200964;-0.979400; 0.018769;, - 0.997620; 0.057680; 0.037477;, - -0.997620; 0.057680; 0.037477;, - -0.990295; 0.050295;-0.129490;, - -0.945189; 0.317301; 0.076754;, - 0.945189; 0.317301; 0.076754;, - 0.990295; 0.050295;-0.129490;, - 0.997620; 0.057680; 0.037477;, - -0.199530;-0.849025;-0.489181;, - 0.962889;-0.269753; 0.006897;, - -0.200964;-0.979400; 0.018769;, - 0.200964;-0.979400; 0.018769;, - -0.962889;-0.269753; 0.006897;, - 0.199530;-0.849025;-0.489181;, - 0.962889;-0.269753; 0.006897;, - 0.965209;-0.185492;-0.184210;, - -0.200964;-0.979400; 0.018769;, - 0.200964;-0.979400; 0.018769;, - -0.965209;-0.185492;-0.184210;, - -0.962889;-0.269753; 0.006897;, - 0.142369; 0.649037; 0.747276;, - -0.043641; 0.892148; 0.449568;, - 0.968749; 0.247383; 0.016388;, - -0.968749; 0.247383; 0.016388;, - 0.043641; 0.892148; 0.449568;, - -0.142369; 0.649037; 0.747276;, - -0.021912; 0.966887;-0.254158;, - 0.968749; 0.247383; 0.016388;, - -0.043641; 0.892148; 0.449568;, - 0.043641; 0.892148; 0.449568;, - -0.968749; 0.247383; 0.016388;, - 0.021912; 0.966887;-0.254158;, - -0.021912; 0.966887;-0.254158;, - 0.044099; 0.732017;-0.679800;, - 0.968749; 0.247383; 0.016388;, - -0.968749; 0.247383; 0.016388;, - -0.044099; 0.732017;-0.679800;, - 0.021912; 0.966887;-0.254158;, - -0.200964;-0.979400; 0.018769;, - -0.184149;-0.869015; 0.459181;, - -0.990295; 0.050295;-0.129490;, - 0.990295; 0.050295;-0.129490;, - 0.184149;-0.869015; 0.459181;, - 0.200964;-0.979400; 0.018769;, - -0.184149;-0.869015; 0.459181;, - -0.990722; 0.123234;-0.056764;, - -0.990295; 0.050295;-0.129490;, - 0.990295; 0.050295;-0.129490;, - 0.990722; 0.123234;-0.056764;, - 0.184149;-0.869015; 0.459181;, - -0.990722; 0.123234;-0.056764;, - 0.160680; 0.848750;-0.503739;, - 0.044099; 0.732017;-0.679800;, - -0.044099; 0.732017;-0.679800;, - -0.160680; 0.848750;-0.503739;, - 0.990722; 0.123234;-0.056764;, - -0.990722; 0.123234;-0.056764;, - 0.044099; 0.732017;-0.679800;, - -0.990295; 0.050295;-0.129490;, - 0.990295; 0.050295;-0.129490;, - -0.044099; 0.732017;-0.679800;, - 0.990722; 0.123234;-0.056764;, - -0.184149;-0.869015; 0.459181;, - 0.965209;-0.185492;-0.184210;, - 0.979308;-0.192419; 0.062288;, - -0.979308;-0.192419; 0.062288;, - -0.965209;-0.185492;-0.184210;, - 0.184149;-0.869015; 0.459181;, - -0.200964;-0.979400; 0.018769;, - 0.965209;-0.185492;-0.184210;, - -0.184149;-0.869015; 0.459181;, - 0.184149;-0.869015; 0.459181;, - -0.965209;-0.185492;-0.184210;, - 0.200964;-0.979400; 0.018769;, - -0.184149;-0.869015; 0.459181;, - -0.972320;-0.006745; 0.233467;, - -0.990722; 0.123234;-0.056764;, - 0.990722; 0.123234;-0.056764;, - 0.972320;-0.006745; 0.233467;, - 0.184149;-0.869015; 0.459181;, - -0.184149;-0.869015; 0.459181;, - 0.011475;-0.764916; 0.644002;, - -0.972320;-0.006745; 0.233467;, - 0.972320;-0.006745; 0.233467;, - -0.011475;-0.764916; 0.644002;, - 0.184149;-0.869015; 0.459181;, - -0.184149;-0.869015; 0.459181;, - 0.972350;-0.104343; 0.208869;, - 0.011475;-0.764916; 0.644002;, - -0.011475;-0.764916; 0.644002;, - -0.972350;-0.104343; 0.208869;, - 0.184149;-0.869015; 0.459181;, - -0.184149;-0.869015; 0.459181;, - 0.979308;-0.192419; 0.062288;, - 0.972350;-0.104343; 0.208869;, - -0.972350;-0.104343; 0.208869;, - -0.979308;-0.192419; 0.062288;, - 0.184149;-0.869015; 0.459181;, - 0.160680; 0.848750;-0.503739;, - -0.990722; 0.123234;-0.056764;, - -0.972320;-0.006745; 0.233467;, - 0.972320;-0.006745; 0.233467;, - 0.990722; 0.123234;-0.056764;, - -0.160680; 0.848750;-0.503739;, - 0.160680; 0.848750;-0.503739;, - -0.972320;-0.006745; 0.233467;, - 0.111026; 0.925352;-0.362438;, - -0.111026; 0.925352;-0.362438;, - 0.972320;-0.006745; 0.233467;, - -0.160680; 0.848750;-0.503739;, - 0.111026; 0.925352;-0.362438;, - -0.972320;-0.006745; 0.233467;, - 0.034242; 0.996765; 0.072665;, - -0.034242; 0.996765; 0.072665;, - 0.972320;-0.006745; 0.233467;, - -0.111026; 0.925352;-0.362438;, - 0.034242; 0.996765; 0.072665;, - -0.972320;-0.006745; 0.233467;, - -0.997406; 0.067721;-0.023286;, - 0.997406; 0.067721;-0.023286;, - 0.972320;-0.006745; 0.233467;, - -0.034242; 0.996765; 0.072665;, - 0.034242; 0.996765; 0.072665;, - -0.997406; 0.067721;-0.023286;, - 0.057161; 0.906796;-0.417646;, - -0.057161; 0.906796;-0.417646;, - 0.997406; 0.067721;-0.023286;, - -0.034242; 0.996765; 0.072665;, - 0.038514; 0.368236;-0.928922;, - -0.987274;-0.111240;-0.113559;, - 0.047395; 0.283822;-0.957671;, - -0.047395; 0.283822;-0.957671;, - 0.987274;-0.111240;-0.113559;, - -0.038514; 0.368236;-0.928922;, - 0.011475;-0.764916; 0.644002;, - 0.001343;-0.808008; 0.589129;, - -0.972320;-0.006745; 0.233467;, - 0.972320;-0.006745; 0.233467;, - -0.001343;-0.808008; 0.589129;, - -0.011475;-0.764916; 0.644002;, - 0.001343;-0.808008; 0.589129;, - -0.997406; 0.067721;-0.023286;, - -0.972320;-0.006745; 0.233467;, - 0.972320;-0.006745; 0.233467;, - 0.997406; 0.067721;-0.023286;, - -0.001343;-0.808008; 0.589129;, - 0.011475;-0.764916; 0.644002;, - 0.972350;-0.104343; 0.208869;, - 0.001343;-0.808008; 0.589129;, - -0.001343;-0.808008; 0.589129;, - -0.972350;-0.104343; 0.208869;, - -0.011475;-0.764916; 0.644002;, - 0.001343;-0.808008; 0.589129;, - 0.972350;-0.104343; 0.208869;, - 0.999695; 0.022156;-0.010559;, - -0.999695; 0.022156;-0.010559;, - -0.972350;-0.104343; 0.208869;, - -0.001343;-0.808008; 0.589129;, - 0.001343;-0.808008; 0.589129;, - -0.987274;-0.111240;-0.113559;, - -0.997406; 0.067721;-0.023286;, - 0.997406; 0.067721;-0.023286;, - 0.987274;-0.111240;-0.113559;, - -0.001343;-0.808008; 0.589129;, - 0.001343;-0.808008; 0.589129;, - -0.029054;-0.714652; 0.698843;, - -0.987274;-0.111240;-0.113559;, - 0.987274;-0.111240;-0.113559;, - 0.029054;-0.714652; 0.698843;, - -0.001343;-0.808008; 0.589129;, - 0.001343;-0.808008; 0.589129;, - 0.971435;-0.202429;-0.123753;, - -0.029054;-0.714652; 0.698843;, - 0.029054;-0.714652; 0.698843;, - -0.971435;-0.202429;-0.123753;, - -0.001343;-0.808008; 0.589129;, - 0.001343;-0.808008; 0.589129;, - 0.999695; 0.022156;-0.010559;, - 0.971435;-0.202429;-0.123753;, - -0.971435;-0.202429;-0.123753;, - -0.999695; 0.022156;-0.010559;, - -0.001343;-0.808008; 0.589129;, - -0.997406; 0.067721;-0.023286;, - -0.987274;-0.111240;-0.113559;, - 0.038514; 0.368236;-0.928922;, - -0.038514; 0.368236;-0.928922;, - 0.987274;-0.111240;-0.113559;, - 0.997406; 0.067721;-0.023286;, - -0.997406; 0.067721;-0.023286;, - 0.038514; 0.368236;-0.928922;, - 0.057161; 0.906796;-0.417646;, - -0.057161; 0.906796;-0.417646;, - -0.038514; 0.368236;-0.928922;, - 0.997406; 0.067721;-0.023286;, - 0.047395; 0.283822;-0.957671;, - -0.987274;-0.111240;-0.113559;, - 0.053041; 0.567919;-0.821345;, - -0.053041; 0.567919;-0.821345;, - 0.987274;-0.111240;-0.113559;, - -0.047395; 0.283822;-0.957671;, - 0.053041; 0.567919;-0.821345;, - -0.987274;-0.111240;-0.113559;, - -0.992035; 0.091433; 0.086367;, - 0.992035; 0.091433; 0.086367;, - 0.987274;-0.111240;-0.113559;, - -0.053041; 0.567919;-0.821345;, - -0.029054;-0.714652; 0.698843;, - 0.971435;-0.202429;-0.123753;, - 0.090518;-0.243294; 0.965697;, - -0.090518;-0.243294; 0.965697;, - -0.971435;-0.202429;-0.123753;, - 0.029054;-0.714652; 0.698843;, - 0.971435;-0.202429;-0.123753;, - 0.996216; 0.072878; 0.047304;, - 0.090518;-0.243294; 0.965697;, - -0.090518;-0.243294; 0.965697;, - -0.996216; 0.072878; 0.047304;, - -0.971435;-0.202429;-0.123753;, - -0.029054;-0.714652; 0.698843;, - 0.090518;-0.243294; 0.965697;, - -0.987274;-0.111240;-0.113559;, - 0.987274;-0.111240;-0.113559;, - -0.090518;-0.243294; 0.965697;, - 0.029054;-0.714652; 0.698843;, - 0.090518;-0.243294; 0.965697;, - -0.992035; 0.091433; 0.086367;, - -0.987274;-0.111240;-0.113559;, - 0.987274;-0.111240;-0.113559;, - 0.992035; 0.091433; 0.086367;, - -0.090518;-0.243294; 0.965697;, - 0.090518;-0.243294; 0.965697;, - 0.996216; 0.072878; 0.047304;, - 0.005127; 0.520402; 0.853877;, - -0.005127; 0.520402; 0.853877;, - -0.996216; 0.072878; 0.047304;, - -0.090518;-0.243294; 0.965697;, - 0.005127; 0.520402; 0.853877;, - 0.996216; 0.072878; 0.047304;, - 0.467269; 0.600543; 0.648823;, - -0.467269; 0.600543; 0.648823;, - -0.996216; 0.072878; 0.047304;, - -0.005127; 0.520402; 0.853877;, - 0.090518;-0.243294; 0.965697;, - 0.005127; 0.520402; 0.853877;, - -0.992035; 0.091433; 0.086367;, - 0.992035; 0.091433; 0.086367;, - -0.005127; 0.520402; 0.853877;, - -0.090518;-0.243294; 0.965697;, - 0.005127; 0.520402; 0.853877;, - -0.532914; 0.520035; 0.667470;, - -0.992035; 0.091433; 0.086367;, - 0.992035; 0.091433; 0.086367;, - 0.532914; 0.520035; 0.667470;, - -0.005127; 0.520402; 0.853877;, - -0.022279; 0.883785;-0.467330;, - -0.992035; 0.091433; 0.086367;, - -0.532914; 0.520035; 0.667470;, - 0.532914; 0.520035; 0.667470;, - 0.992035; 0.091433; 0.086367;, - 0.022279; 0.883785;-0.467330;, - 0.068056; 0.451369;-0.889737;, - -0.992035; 0.091433; 0.086367;, - -0.022279; 0.883785;-0.467330;, - 0.022279; 0.883785;-0.467330;, - 0.992035; 0.091433; 0.086367;, - -0.068056; 0.451369;-0.889737;, - 0.053041; 0.567919;-0.821345;, - -0.992035; 0.091433; 0.086367;, - 0.068056; 0.451369;-0.889737;, - -0.068056; 0.451369;-0.889737;, - 0.992035; 0.091433; 0.086367;, - -0.053041; 0.567919;-0.821345;, - -0.578661; 0.696707;-0.423933;, - 0.578661; 0.696707;-0.423933;, - 0.000000; 0.990081;-0.140385;, - -0.578661; 0.696707;-0.423933;, - -0.808100; 0.018525;-0.588702;, - 0.578661; 0.696707;-0.423933;, - 0.578661; 0.696707;-0.423933;, - -0.808100; 0.018525;-0.588702;, - 0.808100; 0.018525;-0.588702;, - -0.574480;-0.645741;-0.502914;, - 0.808100; 0.018525;-0.588702;, - -0.808100; 0.018525;-0.588702;, - 0.574480;-0.645741;-0.502914;, - 0.808100; 0.018525;-0.588702;, - -0.574480;-0.645741;-0.502914;, - 0.574480;-0.645741;-0.502914;, - -0.574480;-0.645741;-0.502914;, - 0.000000;-0.998016;-0.062807;, - 0.395764; 0.791955; 0.464888;, - -0.733879; 0.676260;-0.063570;, - -0.395764; 0.791955; 0.464888;, - 0.733879; 0.676260;-0.063570;, - -0.733879; 0.676260;-0.063570;, - 0.395764; 0.791955; 0.464888;, - -0.652760; 0.746055; 0.131443;, - -0.733879; 0.676260;-0.063570;, - 0.733879; 0.676260;-0.063570;, - -0.652760; 0.746055; 0.131443;, - 0.733879; 0.676260;-0.063570;, - 0.652760; 0.746055; 0.131443;, - -0.652760; 0.746055; 0.131443;, - 0.652760; 0.746055; 0.131443;, - -0.662038; 0.582324; 0.471725;, - -0.662038; 0.582324; 0.471725;, - 0.652760; 0.746055; 0.131443;, - 0.662038; 0.582324; 0.471725;, - -0.662038; 0.582324; 0.471725;, - 0.662038; 0.582324; 0.471725;, - -0.692465; 0.378399; 0.614215;, - -0.692465; 0.378399; 0.614215;, - 0.662038; 0.582324; 0.471725;, - 0.692465; 0.378399; 0.614215;, - -0.692465; 0.378399; 0.614215;, - 0.692465; 0.378399; 0.614215;, - -0.668294; 0.141453; 0.730308;, - -0.668294; 0.141453; 0.730308;, - 0.692465; 0.378399; 0.614215;, - 0.668294; 0.141453; 0.730308;, - -0.668294; 0.141453; 0.730308;, - 0.668294; 0.141453; 0.730308;, - -0.577868;-0.665456; 0.472457;, - -0.577868;-0.665456; 0.472457;, - 0.668294; 0.141453; 0.730308;, - 0.577868;-0.665456; 0.472457;, - -0.577868;-0.665456; 0.472457;, - 0.577868;-0.665456; 0.472457;, - -0.705222;-0.683981;-0.186560;, - -0.705222;-0.683981;-0.186560;, - 0.577868;-0.665456; 0.472457;, - 0.705222;-0.683981;-0.186560;, - -0.705222;-0.683981;-0.186560;, - 0.705222;-0.683981;-0.186560;, - -0.833277; 0.099796; 0.543748;, - -0.833277; 0.099796; 0.543748;, - 0.705222;-0.683981;-0.186560;, - 0.833277; 0.099796; 0.543748;, - 0.705222;-0.683981;-0.186560;, - 0.919980; 0.200079; 0.336955;, - 0.833277; 0.099796; 0.543748;, - -0.833277; 0.099796; 0.543748;, - -0.919980; 0.200079; 0.336955;, - -0.705222;-0.683981;-0.186560;, - 0.999573;-0.010132;-0.026856;, - 0.919980; 0.200079; 0.336955;, - 0.705222;-0.683981;-0.186560;, - -0.705222;-0.683981;-0.186560;, - -0.919980; 0.200079; 0.336955;, - -0.999573;-0.010132;-0.026856;, - 0.999573;-0.010132;-0.026856;, - 0.999878;-0.010010;-0.009705;, - 0.919980; 0.200079; 0.336955;, - -0.919980; 0.200079; 0.336955;, - -0.999878;-0.010010;-0.009705;, - -0.999573;-0.010132;-0.026856;, - 0.999878;-0.010010;-0.009705;, - 0.900906; 0.343638; 0.265023;, - 0.919980; 0.200079; 0.336955;, - -0.919980; 0.200079; 0.336955;, - -0.900906; 0.343638; 0.265023;, - -0.999878;-0.010010;-0.009705;, - 0.999878;-0.010010;-0.009705;, - 0.999908;-0.012543;-0.002411;, - 0.900906; 0.343638; 0.265023;, - -0.900906; 0.343638; 0.265023;, - -0.999908;-0.012543;-0.002411;, - -0.999878;-0.010010;-0.009705;, - 0.999908;-0.012543;-0.002411;, - 0.876461; 0.444624; 0.184606;, - 0.900906; 0.343638; 0.265023;, - -0.900906; 0.343638; 0.265023;, - -0.876461; 0.444624; 0.184606;, - -0.999908;-0.012543;-0.002411;, - 0.999908;-0.012543;-0.002411;, - 0.999329;-0.036042;-0.000855;, - 0.876461; 0.444624; 0.184606;, - -0.876461; 0.444624; 0.184606;, - -0.999329;-0.036042;-0.000855;, - -0.999908;-0.012543;-0.002411;, - 0.999329;-0.036042;-0.000855;, - 0.859706; 0.461806; 0.218116;, - 0.876461; 0.444624; 0.184606;, - -0.876461; 0.444624; 0.184606;, - -0.859706; 0.461806; 0.218116;, - -0.999329;-0.036042;-0.000855;, - 0.999329;-0.036042;-0.000855;, - 0.733879; 0.676260;-0.063570;, - 0.859706; 0.461806; 0.218116;, - -0.859706; 0.461806; 0.218116;, - -0.733879; 0.676260;-0.063570;, - -0.999329;-0.036042;-0.000855;, - 0.733879; 0.676260;-0.063570;, - 0.395764; 0.791955; 0.464888;, - 0.859706; 0.461806; 0.218116;, - -0.859706; 0.461806; 0.218116;, - -0.395764; 0.791955; 0.464888;, - -0.733879; 0.676260;-0.063570;, - 0.668294; 0.141453; 0.730308;, - 0.999573;-0.010132;-0.026856;, - 0.705222;-0.683981;-0.186560;, - -0.705222;-0.683981;-0.186560;, - -0.999573;-0.010132;-0.026856;, - -0.668294; 0.141453; 0.730308;, - 0.577868;-0.665456; 0.472457;, - 0.668294; 0.141453; 0.730308;, - 0.705222;-0.683981;-0.186560;, - -0.705222;-0.683981;-0.186560;, - -0.668294; 0.141453; 0.730308;, - -0.577868;-0.665456; 0.472457;, - 0.692465; 0.378399; 0.614215;, - 0.999573;-0.010132;-0.026856;, - 0.668294; 0.141453; 0.730308;, - -0.668294; 0.141453; 0.730308;, - -0.999573;-0.010132;-0.026856;, - -0.692465; 0.378399; 0.614215;, - 0.662038; 0.582324; 0.471725;, - 0.999573;-0.010132;-0.026856;, - 0.692465; 0.378399; 0.614215;, - -0.692465; 0.378399; 0.614215;, - -0.999573;-0.010132;-0.026856;, - -0.662038; 0.582324; 0.471725;, - 0.999878;-0.010010;-0.009705;, - 0.999573;-0.010132;-0.026856;, - 0.662038; 0.582324; 0.471725;, - -0.662038; 0.582324; 0.471725;, - -0.999573;-0.010132;-0.026856;, - -0.999878;-0.010010;-0.009705;, - 0.652760; 0.746055; 0.131443;, - 0.999878;-0.010010;-0.009705;, - 0.662038; 0.582324; 0.471725;, - -0.662038; 0.582324; 0.471725;, - -0.999878;-0.010010;-0.009705;, - -0.652760; 0.746055; 0.131443;, - 0.999908;-0.012543;-0.002411;, - 0.999878;-0.010010;-0.009705;, - 0.652760; 0.746055; 0.131443;, - -0.652760; 0.746055; 0.131443;, - -0.999878;-0.010010;-0.009705;, - -0.999908;-0.012543;-0.002411;, - 0.999329;-0.036042;-0.000855;, - 0.999908;-0.012543;-0.002411;, - 0.652760; 0.746055; 0.131443;, - -0.652760; 0.746055; 0.131443;, - -0.999908;-0.012543;-0.002411;, - -0.999329;-0.036042;-0.000855;, - 0.733879; 0.676260;-0.063570;, - 0.999329;-0.036042;-0.000855;, - 0.652760; 0.746055; 0.131443;, - -0.652760; 0.746055; 0.131443;, - -0.999329;-0.036042;-0.000855;, - -0.733879; 0.676260;-0.063570;, - 0.000000; 0.853542;-0.520981;, - 0.845637; 0.301614; 0.440321;, - 0.000000;-0.428877;-0.903348;, - 0.000000;-0.428877;-0.903348;, - -0.845637; 0.301614; 0.440321;, - 0.000000; 0.853542;-0.520981;, - 0.845637; 0.301614; 0.440321;, - 0.997803; 0.028474; 0.059511;, - 0.000000;-0.428877;-0.903348;, - 0.000000;-0.428877;-0.903348;, - -0.997803; 0.028474; 0.059511;, - -0.845637; 0.301614; 0.440321;, - 0.000000; 0.014649; 0.999878;, - 0.000000; 0.405438; 0.914121;, - 0.845637; 0.301614; 0.440321;, - -0.845637; 0.301614; 0.440321;, - 0.000000; 0.405438; 0.914121;, - 0.000000; 0.014649; 0.999878;, - 0.997803; 0.028474; 0.059511;, - 0.845637; 0.301614; 0.440321;, - 0.000000; 0.405438; 0.914121;, - 0.000000; 0.405438; 0.914121;, - -0.845637; 0.301614; 0.440321;, - -0.997803; 0.028474; 0.059511;, - 0.000000; 0.282540;-0.959227;, - 0.000000;-0.290750;-0.956786;, - 0.992004; 0.056612;-0.112613;, - -0.992004; 0.056612;-0.112613;, - 0.000000;-0.290750;-0.956786;, - 0.000000; 0.282540;-0.959227;, - 0.000000; 0.998596;-0.052705;, - 0.000000; 0.663167;-0.748436;, - 0.959807; 0.208167;-0.188177;, - -0.959807; 0.208167;-0.188177;, - 0.000000; 0.663167;-0.748436;, - 0.000000; 0.998596;-0.052705;, - 0.959807; 0.208167;-0.188177;, - 0.992004; 0.056612;-0.112613;, - 0.000000;-0.377117; 0.926145;, - 0.000000;-0.377117; 0.926145;, - -0.992004; 0.056612;-0.112613;, - -0.959807; 0.208167;-0.188177;, - 0.959807; 0.208167;-0.188177;, - 0.000000;-0.377117; 0.926145;, - 0.000000;-0.994293; 0.106601;, - 0.000000;-0.994293; 0.106601;, - 0.000000;-0.377117; 0.926145;, - -0.959807; 0.208167;-0.188177;, - 0.992004; 0.056612;-0.112613;, - 0.000000; 0.227607; 0.973724;, - 0.000000;-0.377117; 0.926145;, - 0.000000;-0.377117; 0.926145;, - 0.000000; 0.227607; 0.973724;, - -0.992004; 0.056612;-0.112613;, - 0.000000;-0.761864;-0.647694;, - 0.000000;-0.149815;-0.988708;, - 0.999176; 0.040407; 0.000214;, - -0.999176; 0.040407; 0.000214;, - 0.000000;-0.149815;-0.988708;, - 0.000000;-0.761864;-0.647694;, - 0.951689;-0.107852; 0.287423;, - 0.000000;-0.761864;-0.647694;, - 0.999176; 0.040407; 0.000214;, - -0.999176; 0.040407; 0.000214;, - 0.000000;-0.761864;-0.647694;, - -0.951689;-0.107852; 0.287423;, - 0.951689;-0.107852; 0.287423;, - 0.999176; 0.040407; 0.000214;, - 0.000000; 0.137028; 0.990539;, - 0.000000; 0.137028; 0.990539;, - -0.999176; 0.040407; 0.000214;, - -0.951689;-0.107852; 0.287423;, - 0.000000; 0.487472; 0.873104;, - 0.951689;-0.107852; 0.287423;, - 0.000000; 0.137028; 0.990539;, - 0.000000; 0.137028; 0.990539;, - -0.951689;-0.107852; 0.287423;, - 0.000000; 0.487472; 0.873104;, - 0.999176; 0.040407; 0.000214;, - 0.000000; 0.327677;-0.944762;, - 0.997436;-0.010224; 0.070803;, - -0.997436;-0.010224; 0.070803;, - 0.000000; 0.327677;-0.944762;, - -0.999176; 0.040407; 0.000214;, - 0.999176; 0.040407; 0.000214;, - 0.000000;-0.149815;-0.988708;, - 0.000000; 0.327677;-0.944762;, - 0.000000; 0.327677;-0.944762;, - 0.000000;-0.149815;-0.988708;, - -0.999176; 0.040407; 0.000214;, - 0.000000; 0.137028; 0.990539;, - 0.997436;-0.010224; 0.070803;, - 0.000000;-0.390576; 0.920560;, - 0.000000;-0.390576; 0.920560;, - -0.997436;-0.010224; 0.070803;, - 0.000000; 0.137028; 0.990539;, - 0.000000; 0.137028; 0.990539;, - 0.999176; 0.040407; 0.000214;, - 0.997436;-0.010224; 0.070803;, - -0.997436;-0.010224; 0.070803;, - -0.999176; 0.040407; 0.000214;, - 0.000000; 0.137028; 0.990539;, - 0.997436;-0.010224; 0.070803;, - 0.000000; 0.909207;-0.416272;, - 0.985900;-0.141301; 0.089511;, - -0.985900;-0.141301; 0.089511;, - 0.000000; 0.909207;-0.416272;, - -0.997436;-0.010224; 0.070803;, - 0.997436;-0.010224; 0.070803;, - 0.000000; 0.327677;-0.944762;, - 0.000000; 0.909207;-0.416272;, - 0.000000; 0.909207;-0.416272;, - 0.000000; 0.327677;-0.944762;, - -0.997436;-0.010224; 0.070803;, - 0.000000;-0.390576; 0.920560;, - 0.985900;-0.141301; 0.089511;, - 0.000000;-0.912931; 0.408063;, - 0.000000;-0.912931; 0.408063;, - -0.985900;-0.141301; 0.089511;, - 0.000000;-0.390576; 0.920560;, - 0.000000;-0.390576; 0.920560;, - 0.997436;-0.010224; 0.070803;, - 0.985900;-0.141301; 0.089511;, - -0.985900;-0.141301; 0.089511;, - -0.997436;-0.010224; 0.070803;, - 0.000000;-0.390576; 0.920560;, - 0.000000; 0.909207;-0.416272;, - 0.000000; 0.950591; 0.310343;, - 0.994385;-0.105747; 0.003082;, - -0.994385;-0.105747; 0.003082;, - 0.000000; 0.950591; 0.310343;, - 0.000000; 0.909207;-0.416272;, - 0.985900;-0.141301; 0.089511;, - 0.000000; 0.909207;-0.416272;, - 0.994385;-0.105747; 0.003082;, - -0.994385;-0.105747; 0.003082;, - 0.000000; 0.909207;-0.416272;, - -0.985900;-0.141301; 0.089511;, - 0.985900;-0.141301; 0.089511;, - 0.994385;-0.105747; 0.003082;, - 0.000000;-0.957640;-0.287881;, - 0.000000;-0.957640;-0.287881;, - -0.994385;-0.105747; 0.003082;, - -0.985900;-0.141301; 0.089511;, - 0.000000;-0.912931; 0.408063;, - 0.985900;-0.141301; 0.089511;, - 0.000000;-0.957640;-0.287881;, - 0.000000;-0.957640;-0.287881;, - -0.985900;-0.141301; 0.089511;, - 0.000000;-0.912931; 0.408063;, - 0.000000; 0.950591; 0.310343;, - 0.000000; 0.907559; 0.419874;, - 0.995209; 0.075808; 0.061373;, - -0.995209; 0.075808; 0.061373;, - 0.000000; 0.907559; 0.419874;, - 0.000000; 0.950591; 0.310343;, - 0.994385;-0.105747; 0.003082;, - 0.000000; 0.950591; 0.310343;, - 0.995209; 0.075808; 0.061373;, - -0.995209; 0.075808; 0.061373;, - 0.000000; 0.950591; 0.310343;, - -0.994385;-0.105747; 0.003082;, - 0.994385;-0.105747; 0.003082;, - 0.995209; 0.075808; 0.061373;, - 0.000000;-0.931578;-0.363445;, - 0.000000;-0.931578;-0.363445;, - -0.995209; 0.075808; 0.061373;, - -0.994385;-0.105747; 0.003082;, - 0.000000;-0.957640;-0.287881;, - 0.994385;-0.105747; 0.003082;, - 0.000000;-0.931578;-0.363445;, - 0.000000;-0.931578;-0.363445;, - -0.994385;-0.105747; 0.003082;, - 0.000000;-0.957640;-0.287881;, - 0.995209; 0.075808; 0.061373;, - 0.000000; 0.998596;-0.052705;, - 0.959807; 0.208167;-0.188177;, - -0.959807; 0.208167;-0.188177;, - 0.000000; 0.998596;-0.052705;, - -0.995209; 0.075808; 0.061373;, - 0.995209; 0.075808; 0.061373;, - 0.000000; 0.907559; 0.419874;, - 0.000000; 0.998596;-0.052705;, - 0.000000; 0.998596;-0.052705;, - 0.000000; 0.907559; 0.419874;, - -0.995209; 0.075808; 0.061373;, - 0.995209; 0.075808; 0.061373;, - 0.959807; 0.208167;-0.188177;, - 0.000000;-0.994293; 0.106601;, - 0.000000;-0.994293; 0.106601;, - -0.959807; 0.208167;-0.188177;, - -0.995209; 0.075808; 0.061373;, - 0.000000;-0.931578;-0.363445;, - 0.995209; 0.075808; 0.061373;, - 0.000000;-0.994293; 0.106601;, - 0.000000;-0.994293; 0.106601;, - -0.995209; 0.075808; 0.061373;, - 0.000000;-0.931578;-0.363445;, - 0.959807; 0.208167;-0.188177;, - 0.000000; 0.282540;-0.959227;, - 0.992004; 0.056612;-0.112613;, - -0.992004; 0.056612;-0.112613;, - 0.000000; 0.282540;-0.959227;, - -0.959807; 0.208167;-0.188177;, - 0.959807; 0.208167;-0.188177;, - 0.000000; 0.663167;-0.748436;, - 0.000000; 0.282540;-0.959227;, - 0.000000; 0.282540;-0.959227;, - 0.000000; 0.663167;-0.748436;, - -0.959807; 0.208167;-0.188177;, - 0.000000;-0.290750;-0.956786;, - 0.000000;-0.829402;-0.558611;, - 0.992065;-0.110446;-0.059572;, - -0.992065;-0.110446;-0.059572;, - 0.000000;-0.829402;-0.558611;, - 0.000000;-0.290750;-0.956786;, - 0.992004; 0.056612;-0.112613;, - 0.000000;-0.290750;-0.956786;, - 0.992065;-0.110446;-0.059572;, - -0.992065;-0.110446;-0.059572;, - 0.000000;-0.290750;-0.956786;, - -0.992004; 0.056612;-0.112613;, - 0.992004; 0.056612;-0.112613;, - 0.992065;-0.110446;-0.059572;, - 0.000000; 0.814936; 0.579516;, - 0.000000; 0.814936; 0.579516;, - -0.992065;-0.110446;-0.059572;, - -0.992004; 0.056612;-0.112613;, - 0.000000; 0.227607; 0.973724;, - 0.992004; 0.056612;-0.112613;, - 0.000000; 0.814936; 0.579516;, - 0.000000; 0.814936; 0.579516;, - -0.992004; 0.056612;-0.112613;, - 0.000000; 0.227607; 0.973724;, - 0.992065;-0.110446;-0.059572;, - 0.000000;-0.916318;-0.400372;, - 0.991791; 0.113041; 0.059694;, - -0.991791; 0.113041; 0.059694;, - 0.000000;-0.916318;-0.400372;, - -0.992065;-0.110446;-0.059572;, - 0.992065;-0.110446;-0.059572;, - 0.000000;-0.829402;-0.558611;, - 0.000000;-0.916318;-0.400372;, - 0.000000;-0.916318;-0.400372;, - 0.000000;-0.829402;-0.558611;, - -0.992065;-0.110446;-0.059572;, - 0.000000; 0.814936; 0.579516;, - 0.991791; 0.113041; 0.059694;, - 0.000000; 0.907346; 0.420301;, - 0.000000; 0.907346; 0.420301;, - -0.991791; 0.113041; 0.059694;, - 0.000000; 0.814936; 0.579516;, - 0.000000; 0.814936; 0.579516;, - 0.992065;-0.110446;-0.059572;, - 0.991791; 0.113041; 0.059694;, - -0.991791; 0.113041; 0.059694;, - -0.992065;-0.110446;-0.059572;, - 0.000000; 0.814936; 0.579516;, - 0.000000;-0.916318;-0.400372;, - 0.000000;-0.623859;-0.781487;, - 0.994629; 0.048250; 0.091403;, - -0.994629; 0.048250; 0.091403;, - 0.000000;-0.623859;-0.781487;, - 0.000000;-0.916318;-0.400372;, - 0.991791; 0.113041; 0.059694;, - 0.000000;-0.916318;-0.400372;, - 0.994629; 0.048250; 0.091403;, - -0.994629; 0.048250; 0.091403;, - 0.000000;-0.916318;-0.400372;, - -0.991791; 0.113041; 0.059694;, - 0.991791; 0.113041; 0.059694;, - 0.994629; 0.048250; 0.091403;, - 0.000000; 0.591113; 0.806574;, - 0.000000; 0.591113; 0.806574;, - -0.994629; 0.048250; 0.091403;, - -0.991791; 0.113041; 0.059694;, - 0.000000; 0.907346; 0.420301;, - 0.991791; 0.113041; 0.059694;, - 0.000000; 0.591113; 0.806574;, - 0.000000; 0.591113; 0.806574;, - -0.991791; 0.113041; 0.059694;, - 0.000000; 0.907346; 0.420301;, - 0.994629; 0.048250; 0.091403;, - 0.000000;-0.428877;-0.903348;, - 0.997803; 0.028474; 0.059511;, - -0.997803; 0.028474; 0.059511;, - 0.000000;-0.428877;-0.903348;, - -0.994629; 0.048250; 0.091403;, - 0.994629; 0.048250; 0.091403;, - 0.000000;-0.623859;-0.781487;, - 0.000000;-0.428877;-0.903348;, - 0.000000;-0.428877;-0.903348;, - 0.000000;-0.623859;-0.781487;, - -0.994629; 0.048250; 0.091403;, - 0.000000; 0.591113; 0.806574;, - 0.997803; 0.028474; 0.059511;, - 0.000000; 0.405438; 0.914121;, - 0.000000; 0.405438; 0.914121;, - -0.997803; 0.028474; 0.059511;, - 0.000000; 0.591113; 0.806574;, - 0.000000; 0.591113; 0.806574;, - 0.994629; 0.048250; 0.091403;, - 0.997803; 0.028474; 0.059511;, - -0.997803; 0.028474; 0.059511;, - -0.994629; 0.048250; 0.091403;, - 0.000000; 0.591113; 0.806574;, - 0.000000;-0.980041; 0.198767;, - 0.000000;-0.761864;-0.647694;, - 0.951689;-0.107852; 0.287423;, - -0.951689;-0.107852; 0.287423;, - 0.000000;-0.761864;-0.647694;, - 0.000000;-0.980041; 0.198767;, - 0.829859;-0.498062; 0.251473;, - 0.000000;-0.980041; 0.198767;, - 0.951689;-0.107852; 0.287423;, - -0.951689;-0.107852; 0.287423;, - 0.000000;-0.980041; 0.198767;, - -0.829859;-0.498062; 0.251473;, - 0.951689;-0.107852; 0.287423;, - 0.808649; 0.398663; 0.432539;, - 0.829859;-0.498062; 0.251473;, - -0.829859;-0.498062; 0.251473;, - -0.808649; 0.398663; 0.432539;, - -0.951689;-0.107852; 0.287423;, - 0.000000; 0.487472; 0.873104;, - 0.808649; 0.398663; 0.432539;, - 0.951689;-0.107852; 0.287423;, - -0.951689;-0.107852; 0.287423;, - -0.808649; 0.398663; 0.432539;, - 0.000000; 0.487472; 0.873104;, - 0.000000; 0.828150; 0.560472;, - 0.808649; 0.398663; 0.432539;, - 0.000000; 0.487472; 0.873104;, - 0.000000; 0.487472; 0.873104;, - -0.808649; 0.398663; 0.432539;, - 0.000000; 0.828150; 0.560472;, - 0.829859;-0.498062; 0.251473;, - 0.000000;-0.998016;-0.062807;, - 0.000000;-0.980041; 0.198767;, - 0.000000;-0.980041; 0.198767;, - 0.000000;-0.998016;-0.062807;, - -0.829859;-0.498062; 0.251473;, - 0.829859;-0.498062; 0.251473;, - 0.574480;-0.645741;-0.502914;, - 0.000000;-0.998016;-0.062807;, - 0.000000;-0.998016;-0.062807;, - -0.574480;-0.645741;-0.502914;, - -0.829859;-0.498062; 0.251473;, - 0.829859;-0.498062; 0.251473;, - 0.808100; 0.018525;-0.588702;, - 0.574480;-0.645741;-0.502914;, - -0.574480;-0.645741;-0.502914;, - -0.808100; 0.018525;-0.588702;, - -0.829859;-0.498062; 0.251473;, - 0.829859;-0.498062; 0.251473;, - 0.808649; 0.398663; 0.432539;, - 0.808100; 0.018525;-0.588702;, - -0.808100; 0.018525;-0.588702;, - -0.808649; 0.398663; 0.432539;, - -0.829859;-0.498062; 0.251473;, - 0.578661; 0.696707;-0.423933;, - 0.808100; 0.018525;-0.588702;, - 0.808649; 0.398663; 0.432539;, - -0.578661; 0.696707;-0.423933;, - -0.808649; 0.398663; 0.432539;, - -0.808100; 0.018525;-0.588702;, - 0.578661; 0.696707;-0.423933;, - 0.808649; 0.398663; 0.432539;, - 0.000000; 0.990081;-0.140385;, - 0.000000; 0.990081;-0.140385;, - -0.808649; 0.398663; 0.432539;, - -0.578661; 0.696707;-0.423933;, - 0.000000; 0.990081;-0.140385;, - 0.808649; 0.398663; 0.432539;, - 0.000000; 0.828150; 0.560472;, - 0.000000; 0.828150; 0.560472;, - -0.808649; 0.398663; 0.432539;, - 0.000000; 0.990081;-0.140385;, - 0.550066;-0.067446; 0.832362;, - 0.681478;-0.187597; 0.707358;, - 0.858669;-0.434797; 0.271218;, - -0.858669;-0.434797; 0.271218;, - -0.681478;-0.187597; 0.707358;, - -0.550066;-0.067446; 0.832362;, - 0.681478;-0.187597; 0.707358;, - 0.789911;-0.572710; 0.219062;, - 0.858669;-0.434797; 0.271218;, - -0.858669;-0.434797; 0.271218;, - -0.789911;-0.572710; 0.219062;, - -0.681478;-0.187597; 0.707358;, - 0.694296; 0.706504; 0.136967;, - 0.890500; 0.143498; 0.431684;, - 0.882046; 0.237587; 0.406842;, - -0.882046; 0.237587; 0.406842;, - -0.890500; 0.143498; 0.431684;, - -0.694296; 0.706504; 0.136967;, - 0.849696; 0.526170; 0.033357;, - 0.694296; 0.706504; 0.136967;, - 0.882046; 0.237587; 0.406842;, - -0.882046; 0.237587; 0.406842;, - -0.694296; 0.706504; 0.136967;, - -0.849696; 0.526170; 0.033357;, - 0.617725;-0.784661;-0.051576;, - 0.789911;-0.572710; 0.219062;, - 0.890774;-0.449324; 0.067537;, - -0.890774;-0.449324; 0.067537;, - -0.789911;-0.572710; 0.219062;, - -0.617725;-0.784661;-0.051576;, - 0.890500; 0.143498; 0.431684;, - 0.890774;-0.449324; 0.067537;, - 0.789911;-0.572710; 0.219062;, - -0.789911;-0.572710; 0.219062;, - -0.890774;-0.449324; 0.067537;, - -0.890500; 0.143498; 0.431684;, - 0.681478;-0.187597; 0.707358;, - 0.890500; 0.143498; 0.431684;, - 0.789911;-0.572710; 0.219062;, - -0.789911;-0.572710; 0.219062;, - -0.890500; 0.143498; 0.431684;, - -0.681478;-0.187597; 0.707358;, - 0.890500; 0.143498; 0.431684;, - 0.986663; 0.113224; 0.116703;, - 0.890774;-0.449324; 0.067537;, - -0.890774;-0.449324; 0.067537;, - -0.986663; 0.113224; 0.116703;, - -0.890500; 0.143498; 0.431684;, - 0.986663; 0.113224; 0.116703;, - 0.890500; 0.143498; 0.431684;, - 0.694296; 0.706504; 0.136967;, - -0.694296; 0.706504; 0.136967;, - -0.890500; 0.143498; 0.431684;, - -0.986663; 0.113224; 0.116703;, - 0.885952; 0.463698; 0.002228;, - 0.986663; 0.113224; 0.116703;, - 0.694296; 0.706504; 0.136967;, - -0.694296; 0.706504; 0.136967;, - -0.986663; 0.113224; 0.116703;, - -0.885952; 0.463698; 0.002228;, - 0.885952; 0.463698; 0.002228;, - 0.694296; 0.706504; 0.136967;, - -0.246010; 0.968871;-0.027436;, - 0.246010; 0.968871;-0.027436;, - -0.694296; 0.706504; 0.136967;, - -0.885952; 0.463698; 0.002228;, - 0.636921; 0.757439;-0.143406;, - 0.885952; 0.463698; 0.002228;, - -0.246010; 0.968871;-0.027436;, - 0.246010; 0.968871;-0.027436;, - -0.885952; 0.463698; 0.002228;, - -0.636921; 0.757439;-0.143406;, - -0.678365; 0.732017; 0.062441;, - 0.636921; 0.757439;-0.143406;, - -0.246010; 0.968871;-0.027436;, - 0.246010; 0.968871;-0.027436;, - -0.636921; 0.757439;-0.143406;, - 0.678365; 0.732017; 0.062441;, - -0.246010; 0.968871;-0.027436;, - 0.694296; 0.706504; 0.136967;, - 0.849696; 0.526170; 0.033357;, - -0.849696; 0.526170; 0.033357;, - -0.694296; 0.706504; 0.136967;, - 0.246010; 0.968871;-0.027436;, - -0.620075;-0.321757; 0.715476;, - -0.246010; 0.968871;-0.027436;, - 0.849696; 0.526170; 0.033357;, - -0.849696; 0.526170; 0.033357;, - 0.246010; 0.968871;-0.027436;, - 0.620075;-0.321757; 0.715476;, - -0.995972;-0.087191; 0.020112;, - -0.678365; 0.732017; 0.062441;, - -0.246010; 0.968871;-0.027436;, - 0.246010; 0.968871;-0.027436;, - 0.678365; 0.732017; 0.062441;, - 0.995972;-0.087191; 0.020112;, - -0.187964;-0.972259;-0.139103;, - -0.620075;-0.321757; 0.715476;, - 0.757408;-0.639241;-0.132786;, - -0.757408;-0.639241;-0.132786;, - 0.620075;-0.321757; 0.715476;, - 0.187964;-0.972259;-0.139103;, - -0.995972;-0.087191; 0.020112;, - -0.187964;-0.972259;-0.139103;, - -0.120701;-0.963286;-0.239784;, - 0.120701;-0.963286;-0.239784;, - 0.187964;-0.972259;-0.139103;, - 0.995972;-0.087191; 0.020112;, - 0.986663; 0.113224; 0.116703;, - 0.998627;-0.027070;-0.044465;, - 0.890774;-0.449324; 0.067537;, - -0.890774;-0.449324; 0.067537;, - -0.998627;-0.027070;-0.044465;, - -0.986663; 0.113224; 0.116703;, - 0.885952; 0.463698; 0.002228;, - 0.998627;-0.027070;-0.044465;, - 0.986663; 0.113224; 0.116703;, - -0.986663; 0.113224; 0.116703;, - -0.998627;-0.027070;-0.044465;, - -0.885952; 0.463698; 0.002228;, - 0.636921; 0.757439;-0.143406;, - 0.998627;-0.027070;-0.044465;, - 0.885952; 0.463698; 0.002228;, - -0.885952; 0.463698; 0.002228;, - -0.998627;-0.027070;-0.044465;, - -0.636921; 0.757439;-0.143406;, - 0.998627;-0.027070;-0.044465;, - 0.853084;-0.485275;-0.191565;, - 0.890774;-0.449324; 0.067537;, - -0.890774;-0.449324; 0.067537;, - -0.853084;-0.485275;-0.191565;, - -0.998627;-0.027070;-0.044465;, - 0.636921; 0.757439;-0.143406;, - 0.939451;-0.276711;-0.202063;, - 0.853084;-0.485275;-0.191565;, - -0.853084;-0.485275;-0.191565;, - -0.939451;-0.276711;-0.202063;, - -0.636921; 0.757439;-0.143406;, - 0.998627;-0.027070;-0.044465;, - 0.636921; 0.757439;-0.143406;, - 0.853084;-0.485275;-0.191565;, - -0.853084;-0.485275;-0.191565;, - -0.636921; 0.757439;-0.143406;, - -0.998627;-0.027070;-0.044465;, - -0.246010; 0.968871;-0.027436;, - -0.997497; 0.067873; 0.018921;, - -0.995972;-0.087191; 0.020112;, - 0.995972;-0.087191; 0.020112;, - 0.997497; 0.067873; 0.018921;, - 0.246010; 0.968871;-0.027436;, - -0.246010; 0.968871;-0.027436;, - -0.620075;-0.321757; 0.715476;, - -0.997497; 0.067873; 0.018921;, - 0.997497; 0.067873; 0.018921;, - 0.620075;-0.321757; 0.715476;, - 0.246010; 0.968871;-0.027436;, - -0.187964;-0.972259;-0.139103;, - -0.997497; 0.067873; 0.018921;, - -0.620075;-0.321757; 0.715476;, - 0.620075;-0.321757; 0.715476;, - 0.997497; 0.067873; 0.018921;, - 0.187964;-0.972259;-0.139103;, - -0.187964;-0.972259;-0.139103;, - -0.995972;-0.087191; 0.020112;, - -0.997497; 0.067873; 0.018921;, - 0.997497; 0.067873; 0.018921;, - 0.995972;-0.087191; 0.020112;, - 0.187964;-0.972259;-0.139103;, - 0.968078;-0.204321;-0.145116;, - 0.939451;-0.276711;-0.202063;, - 0.636921; 0.757439;-0.143406;, - -0.636921; 0.757439;-0.143406;, - -0.939451;-0.276711;-0.202063;, - -0.968078;-0.204321;-0.145116;, - 0.968078;-0.204321;-0.145116;, - 0.636921; 0.757439;-0.143406;, - 0.540635; 0.829554;-0.139653;, - -0.540635; 0.829554;-0.139653;, - -0.636921; 0.757439;-0.143406;, - -0.968078;-0.204321;-0.145116;, - 0.636921; 0.757439;-0.143406;, - -0.678365; 0.732017; 0.062441;, - 0.540635; 0.829554;-0.139653;, - -0.540635; 0.829554;-0.139653;, - 0.678365; 0.732017; 0.062441;, - -0.636921; 0.757439;-0.143406;, - -0.678365; 0.732017; 0.062441;, - -0.663106; 0.747612;-0.036622;, - 0.540635; 0.829554;-0.139653;, - -0.540635; 0.829554;-0.139653;, - 0.663106; 0.747612;-0.036622;, - 0.678365; 0.732017; 0.062441;, - -0.120701;-0.963286;-0.239784;, - -0.087985;-0.971160;-0.221473;, - -0.995972;-0.087191; 0.020112;, - 0.995972;-0.087191; 0.020112;, - 0.087985;-0.971160;-0.221473;, - 0.120701;-0.963286;-0.239784;, - -0.087985;-0.971160;-0.221473;, - -0.992889;-0.102969;-0.059511;, - -0.995972;-0.087191; 0.020112;, - 0.995972;-0.087191; 0.020112;, - 0.992889;-0.102969;-0.059511;, - 0.087985;-0.971160;-0.221473;, - -0.992889;-0.102969;-0.059511;, - -0.678365; 0.732017; 0.062441;, - -0.995972;-0.087191; 0.020112;, - 0.995972;-0.087191; 0.020112;, - 0.678365; 0.732017; 0.062441;, - 0.992889;-0.102969;-0.059511;, - -0.678365; 0.732017; 0.062441;, - -0.992889;-0.102969;-0.059511;, - -0.663106; 0.747612;-0.036622;, - 0.663106; 0.747612;-0.036622;, - 0.992889;-0.102969;-0.059511;, - 0.678365; 0.732017; 0.062441;, - 0.018128; 0.995453;-0.093265;, - 0.645589; 0.648457;-0.403363;, - -0.737999; 0.559252;-0.377544;, - 0.737999; 0.559252;-0.377544;, - -0.645589; 0.648457;-0.403363;, - -0.018128; 0.995453;-0.093265;, - 0.645589; 0.648457;-0.403363;, - 0.968078;-0.204321;-0.145116;, - 0.540635; 0.829554;-0.139653;, - -0.540635; 0.829554;-0.139653;, - -0.968078;-0.204321;-0.145116;, - -0.645589; 0.648457;-0.403363;, - 0.645589; 0.648457;-0.403363;, - 0.540635; 0.829554;-0.139653;, - -0.663106; 0.747612;-0.036622;, - 0.663106; 0.747612;-0.036622;, - -0.540635; 0.829554;-0.139653;, - -0.645589; 0.648457;-0.403363;, - -0.737999; 0.559252;-0.377544;, - 0.645589; 0.648457;-0.403363;, - -0.663106; 0.747612;-0.036622;, - 0.663106; 0.747612;-0.036622;, - -0.645589; 0.648457;-0.403363;, - 0.737999; 0.559252;-0.377544;, - -0.992889;-0.102969;-0.059511;, - -0.737999; 0.559252;-0.377544;, - -0.663106; 0.747612;-0.036622;, - 0.663106; 0.747612;-0.036622;, - 0.737999; 0.559252;-0.377544;, - 0.992889;-0.102969;-0.059511;, - 0.645589; 0.648457;-0.403363;, - 0.018128; 0.995453;-0.093265;, - 0.968078;-0.204321;-0.145116;, - -0.968078;-0.204321;-0.145116;, - -0.018128; 0.995453;-0.093265;, - -0.645589; 0.648457;-0.403363;, - 0.018128; 0.995453;-0.093265;, - -0.737999; 0.559252;-0.377544;, - -0.992889;-0.102969;-0.059511;, - 0.992889;-0.102969;-0.059511;, - 0.737999; 0.559252;-0.377544;, - -0.018128; 0.995453;-0.093265;, - -0.997620; 0.013306;-0.067598;, - 0.018128; 0.995453;-0.093265;, - -0.992889;-0.102969;-0.059511;, - 0.992889;-0.102969;-0.059511;, - -0.018128; 0.995453;-0.093265;, - 0.997620; 0.013306;-0.067598;, - -0.031343;-0.970397;-0.239448;, - -0.997620; 0.013306;-0.067598;, - -0.992889;-0.102969;-0.059511;, - 0.992889;-0.102969;-0.059511;, - 0.997620; 0.013306;-0.067598;, - 0.031343;-0.970397;-0.239448;, - -0.031343;-0.970397;-0.239448;, - -0.039979;-0.963591;-0.264351;, - -0.997620; 0.013306;-0.067598;, - 0.997620; 0.013306;-0.067598;, - 0.039979;-0.963591;-0.264351;, - 0.031343;-0.970397;-0.239448;, - -0.031343;-0.970397;-0.239448;, - -0.992889;-0.102969;-0.059511;, - -0.087985;-0.971160;-0.221473;, - 0.087985;-0.971160;-0.221473;, - 0.992889;-0.102969;-0.059511;, - 0.031343;-0.970397;-0.239448;, - 0.018128; 0.995453;-0.093265;, - 0.995758;-0.045747;-0.079745;, - 0.968078;-0.204321;-0.145116;, - -0.968078;-0.204321;-0.145116;, - -0.995758;-0.045747;-0.079745;, - -0.018128; 0.995453;-0.093265;, - -0.039979;-0.963591;-0.264351;, - -0.055788;-0.963103;-0.263161;, - -0.997620; 0.013306;-0.067598;, - 0.997620; 0.013306;-0.067598;, - 0.055788;-0.963103;-0.263161;, - 0.039979;-0.963591;-0.264351;, - -0.055788;-0.963103;-0.263161;, - -0.998871; 0.029054;-0.037294;, - -0.997620; 0.013306;-0.067598;, - 0.997620; 0.013306;-0.067598;, - 0.998871; 0.029054;-0.037294;, - 0.055788;-0.963103;-0.263161;, - -0.060030;-0.966948;-0.247688;, - -0.998871; 0.029054;-0.037294;, - -0.055788;-0.963103;-0.263161;, - 0.055788;-0.963103;-0.263161;, - 0.998871; 0.029054;-0.037294;, - 0.060030;-0.966948;-0.247688;, - -0.926298;-0.050264; 0.373363;, - -0.998871; 0.029054;-0.037294;, - -0.060030;-0.966948;-0.247688;, - 0.060030;-0.966948;-0.247688;, - 0.998871; 0.029054;-0.037294;, - 0.926298;-0.050264; 0.373363;, - -0.076540;-0.827235; 0.556566;, - -0.926298;-0.050264; 0.373363;, - -0.060030;-0.966948;-0.247688;, - 0.060030;-0.966948;-0.247688;, - 0.926298;-0.050264; 0.373363;, - 0.076540;-0.827235; 0.556566;, - -0.930387;-0.366527; 0.005554;, - -0.926298;-0.050264; 0.373363;, - -0.076540;-0.827235; 0.556566;, - 0.076540;-0.827235; 0.556566;, - 0.926298;-0.050264; 0.373363;, - 0.930387;-0.366527; 0.005554;, - -0.041475;-0.884335; 0.464949;, - -0.930387;-0.366527; 0.005554;, - -0.076540;-0.827235; 0.556566;, - 0.076540;-0.827235; 0.556566;, - 0.930387;-0.366527; 0.005554;, - 0.041475;-0.884335; 0.464949;, - -0.086825;-0.945311; 0.314310;, - -0.930387;-0.366527; 0.005554;, - -0.041475;-0.884335; 0.464949;, - 0.041475;-0.884335; 0.464949;, - 0.930387;-0.366527; 0.005554;, - 0.086825;-0.945311; 0.314310;, - -0.903989; 0.317057;-0.286782;, - -0.930387;-0.366527; 0.005554;, - -0.086825;-0.945311; 0.314310;, - 0.086825;-0.945311; 0.314310;, - 0.930387;-0.366527; 0.005554;, - 0.903989; 0.317057;-0.286782;, - -0.042482;-0.445814; 0.894101;, - -0.903989; 0.317057;-0.286782;, - -0.086825;-0.945311; 0.314310;, - 0.086825;-0.945311; 0.314310;, - 0.903989; 0.317057;-0.286782;, - 0.042482;-0.445814; 0.894101;, - -0.517563; 0.690786; 0.504868;, - -0.903989; 0.317057;-0.286782;, - -0.042482;-0.445814; 0.894101;, - 0.042482;-0.445814; 0.894101;, - 0.903989; 0.317057;-0.286782;, - 0.517563; 0.690786; 0.504868;, - 0.042940; 0.169897; 0.984497;, - -0.517563; 0.690786; 0.504868;, - -0.042482;-0.445814; 0.894101;, - 0.042482;-0.445814; 0.894101;, - 0.517563; 0.690786; 0.504868;, - -0.042940; 0.169897; 0.984497;, - 0.031404; 0.985351; 0.167577;, - 0.995758;-0.045747;-0.079745;, - 0.018128; 0.995453;-0.093265;, - -0.018128; 0.995453;-0.093265;, - -0.995758;-0.045747;-0.079745;, - -0.031404; 0.985351; 0.167577;, - 0.031404; 0.985351; 0.167577;, - 0.996582;-0.060030;-0.056520;, - 0.995758;-0.045747;-0.079745;, - -0.995758;-0.045747;-0.079745;, - -0.996582;-0.060030;-0.056520;, - -0.031404; 0.985351; 0.167577;, - 0.917844;-0.141057; 0.370983;, - 0.996582;-0.060030;-0.056520;, - 0.031404; 0.985351; 0.167577;, - -0.031404; 0.985351; 0.167577;, - -0.996582;-0.060030;-0.056520;, - -0.917844;-0.141057; 0.370983;, - 0.041627; 0.813135; 0.580554;, - 0.917844;-0.141057; 0.370983;, - 0.031404; 0.985351; 0.167577;, - -0.031404; 0.985351; 0.167577;, - -0.917844;-0.141057; 0.370983;, - -0.041627; 0.813135; 0.580554;, - 0.879238; 0.460128;-0.123234;, - 0.917844;-0.141057; 0.370983;, - 0.041627; 0.813135; 0.580554;, - -0.041627; 0.813135; 0.580554;, - -0.917844;-0.141057; 0.370983;, - -0.879238; 0.460128;-0.123234;, - 0.879238; 0.460128;-0.123234;, - 0.906095;-0.421125; 0.040010;, - 0.917844;-0.141057; 0.370983;, - -0.917844;-0.141057; 0.370983;, - -0.906095;-0.421125; 0.040010;, - -0.879238; 0.460128;-0.123234;, - 0.017182; 0.999390;-0.029511;, - 0.879238; 0.460128;-0.123234;, - 0.041627; 0.813135; 0.580554;, - -0.041627; 0.813135; 0.580554;, - -0.879238; 0.460128;-0.123234;, - -0.017182; 0.999390;-0.029511;, - 0.906095;-0.421125; 0.040010;, - 0.879238; 0.460128;-0.123234;, - 0.028993;-0.014985;-0.999451;, - -0.028993;-0.014985;-0.999451;, - -0.879238; 0.460128;-0.123234;, - -0.906095;-0.421125; 0.040010;, - 0.033937; 0.553178;-0.832362;, - 0.906095;-0.421125; 0.040010;, - 0.028993;-0.014985;-0.999451;, - -0.028993;-0.014985;-0.999451;, - -0.906095;-0.421125; 0.040010;, - -0.033937; 0.553178;-0.832362;, - 0.941984; 0.243080;-0.231361;, - 0.906095;-0.421125; 0.040010;, - 0.033937; 0.553178;-0.832362;, - -0.033937; 0.553178;-0.832362;, - -0.906095;-0.421125; 0.040010;, - -0.941984; 0.243080;-0.231361;, - 0.162816; 0.800836;-0.576281;, - 0.941984; 0.243080;-0.231361;, - 0.033937; 0.553178;-0.832362;, - -0.033937; 0.553178;-0.832362;, - -0.941984; 0.243080;-0.231361;, - -0.162816; 0.800836;-0.576281;, - 0.568621; 0.578387; 0.584887;, - 0.941984; 0.243080;-0.231361;, - 0.162816; 0.800836;-0.576281;, - -0.162816; 0.800836;-0.576281;, - -0.941984; 0.243080;-0.231361;, - -0.568621; 0.578387; 0.584887;, - -0.997620; 0.013306;-0.067598;, - 0.031404; 0.985351; 0.167577;, - 0.018128; 0.995453;-0.093265;, - -0.018128; 0.995453;-0.093265;, - -0.031404; 0.985351; 0.167577;, - 0.997620; 0.013306;-0.067598;, - -0.998871; 0.029054;-0.037294;, - 0.031404; 0.985351; 0.167577;, - -0.997620; 0.013306;-0.067598;, - 0.997620; 0.013306;-0.067598;, - -0.031404; 0.985351; 0.167577;, - 0.998871; 0.029054;-0.037294;, - -0.998871; 0.029054;-0.037294;, - -0.926298;-0.050264; 0.373363;, - 0.031404; 0.985351; 0.167577;, - -0.031404; 0.985351; 0.167577;, - 0.926298;-0.050264; 0.373363;, - 0.998871; 0.029054;-0.037294;, - -0.926298;-0.050264; 0.373363;, - 0.041627; 0.813135; 0.580554;, - 0.031404; 0.985351; 0.167577;, - -0.031404; 0.985351; 0.167577;, - -0.041627; 0.813135; 0.580554;, - 0.926298;-0.050264; 0.373363;, - -0.926298;-0.050264; 0.373363;, - -0.870235; 0.474441;-0.132603;, - 0.041627; 0.813135; 0.580554;, - -0.041627; 0.813135; 0.580554;, - 0.870235; 0.474441;-0.132603;, - 0.926298;-0.050264; 0.373363;, - -0.870235; 0.474441;-0.132603;, - 0.017182; 0.999390;-0.029511;, - 0.041627; 0.813135; 0.580554;, - -0.041627; 0.813135; 0.580554;, - -0.017182; 0.999390;-0.029511;, - 0.870235; 0.474441;-0.132603;, - -0.930387;-0.366527; 0.005554;, - -0.870235; 0.474441;-0.132603;, - -0.926298;-0.050264; 0.373363;, - 0.926298;-0.050264; 0.373363;, - 0.870235; 0.474441;-0.132603;, - 0.930387;-0.366527; 0.005554;, - -0.870235; 0.474441;-0.132603;, - -0.930387;-0.366527; 0.005554;, - 0.028993;-0.014985;-0.999451;, - -0.028993;-0.014985;-0.999451;, - 0.930387;-0.366527; 0.005554;, - 0.870235; 0.474441;-0.132603;, - -0.930387;-0.366527; 0.005554;, - 0.033937; 0.553178;-0.832362;, - 0.028993;-0.014985;-0.999451;, - -0.028993;-0.014985;-0.999451;, - -0.033937; 0.553178;-0.832362;, - 0.930387;-0.366527; 0.005554;, - -0.930387;-0.366527; 0.005554;, - -0.903989; 0.317057;-0.286782;, - 0.033937; 0.553178;-0.832362;, - -0.033937; 0.553178;-0.832362;, - 0.903989; 0.317057;-0.286782;, - 0.930387;-0.366527; 0.005554;, - -0.903989; 0.317057;-0.286782;, - 0.162816; 0.800836;-0.576281;, - 0.033937; 0.553178;-0.832362;, - -0.033937; 0.553178;-0.832362;, - -0.162816; 0.800836;-0.576281;, - 0.903989; 0.317057;-0.286782;, - -0.903989; 0.317057;-0.286782;, - -0.517563; 0.690786; 0.504868;, - 0.162816; 0.800836;-0.576281;, - -0.162816; 0.800836;-0.576281;, - 0.517563; 0.690786; 0.504868;, - 0.903989; 0.317057;-0.286782;, - 0.879238; 0.460128;-0.123234;, - 0.020783; 0.170476;-0.985137;, - 0.028993;-0.014985;-0.999451;, - -0.028993;-0.014985;-0.999451;, - -0.020783; 0.170476;-0.985137;, - -0.879238; 0.460128;-0.123234;, - 0.879238; 0.460128;-0.123234;, - 0.017182; 0.999390;-0.029511;, - 0.020783; 0.170476;-0.985137;, - -0.020783; 0.170476;-0.985137;, - -0.017182; 0.999390;-0.029511;, - -0.879238; 0.460128;-0.123234;, - -0.870235; 0.474441;-0.132603;, - 0.020783; 0.170476;-0.985137;, - 0.017182; 0.999390;-0.029511;, - -0.017182; 0.999390;-0.029511;, - -0.020783; 0.170476;-0.985137;, - 0.870235; 0.474441;-0.132603;, - -0.870235; 0.474441;-0.132603;, - 0.028993;-0.014985;-0.999451;, - 0.020783; 0.170476;-0.985137;, - -0.020783; 0.170476;-0.985137;, - -0.028993;-0.014985;-0.999451;, - 0.870235; 0.474441;-0.132603;, - 0.681478;-0.187597; 0.707358;, - 0.550066;-0.067446; 0.832362;, - 0.740532; 0.277169; 0.612171;, - -0.740532; 0.277169; 0.612171;, - -0.550066;-0.067446; 0.832362;, - -0.681478;-0.187597; 0.707358;, - 0.740532; 0.277169; 0.612171;, - 0.882046; 0.237587; 0.406842;, - 0.890500; 0.143498; 0.431684;, - -0.890500; 0.143498; 0.431684;, - -0.882046; 0.237587; 0.406842;, - -0.740532; 0.277169; 0.612171;, - 0.681478;-0.187597; 0.707358;, - 0.740532; 0.277169; 0.612171;, - 0.890500; 0.143498; 0.431684;, - -0.890500; 0.143498; 0.431684;, - -0.740532; 0.277169; 0.612171;, - -0.681478;-0.187597; 0.707358;, - 0.162816; 0.800836;-0.576281;, - 0.002533; 0.948424; 0.316965;, - 0.568621; 0.578387; 0.584887;, - -0.568621; 0.578387; 0.584887;, - -0.002533; 0.948424; 0.316965;, - -0.162816; 0.800836;-0.576281;, - -0.517563; 0.690786; 0.504868;, - 0.002533; 0.948424; 0.316965;, - 0.162816; 0.800836;-0.576281;, - -0.162816; 0.800836;-0.576281;, - -0.002533; 0.948424; 0.316965;, - 0.517563; 0.690786; 0.504868;, - 0.568621; 0.578387; 0.584887;, - 0.042940; 0.169897; 0.984497;, - -0.042482;-0.445814; 0.894101;, - 0.042482;-0.445814; 0.894101;, - -0.042940; 0.169897; 0.984497;, - -0.568621; 0.578387; 0.584887;, - 0.941984; 0.243080;-0.231361;, - 0.568621; 0.578387; 0.584887;, - -0.042482;-0.445814; 0.894101;, - 0.042482;-0.445814; 0.894101;, - -0.568621; 0.578387; 0.584887;, - -0.941984; 0.243080;-0.231361;, - 0.941984; 0.243080;-0.231361;, - -0.042482;-0.445814; 0.894101;, - -0.086825;-0.945311; 0.314310;, - 0.086825;-0.945311; 0.314310;, - 0.042482;-0.445814; 0.894101;, - -0.941984; 0.243080;-0.231361;, - 0.906095;-0.421125; 0.040010;, - 0.941984; 0.243080;-0.231361;, - -0.086825;-0.945311; 0.314310;, - 0.086825;-0.945311; 0.314310;, - -0.941984; 0.243080;-0.231361;, - -0.906095;-0.421125; 0.040010;, - 0.906095;-0.421125; 0.040010;, - -0.086825;-0.945311; 0.314310;, - -0.041475;-0.884335; 0.464949;, - 0.041475;-0.884335; 0.464949;, - 0.086825;-0.945311; 0.314310;, - -0.906095;-0.421125; 0.040010;, - 0.906095;-0.421125; 0.040010;, - -0.041475;-0.884335; 0.464949;, - -0.076540;-0.827235; 0.556566;, - 0.076540;-0.827235; 0.556566;, - 0.041475;-0.884335; 0.464949;, - -0.906095;-0.421125; 0.040010;, - 0.917844;-0.141057; 0.370983;, - 0.906095;-0.421125; 0.040010;, - -0.076540;-0.827235; 0.556566;, - 0.076540;-0.827235; 0.556566;, - -0.906095;-0.421125; 0.040010;, - -0.917844;-0.141057; 0.370983;, - 0.917844;-0.141057; 0.370983;, - -0.076540;-0.827235; 0.556566;, - -0.060030;-0.966948;-0.247688;, - 0.060030;-0.966948;-0.247688;, - 0.076540;-0.827235; 0.556566;, - -0.917844;-0.141057; 0.370983;, - 0.996582;-0.060030;-0.056520;, - 0.917844;-0.141057; 0.370983;, - -0.060030;-0.966948;-0.247688;, - 0.060030;-0.966948;-0.247688;, - -0.917844;-0.141057; 0.370983;, - -0.996582;-0.060030;-0.056520;, - 0.996582;-0.060030;-0.056520;, - -0.060030;-0.966948;-0.247688;, - -0.055788;-0.963103;-0.263161;, - 0.055788;-0.963103;-0.263161;, - 0.060030;-0.966948;-0.247688;, - -0.996582;-0.060030;-0.056520;, - 0.996582;-0.060030;-0.056520;, - -0.055788;-0.963103;-0.263161;, - 0.995758;-0.045747;-0.079745;, - -0.995758;-0.045747;-0.079745;, - 0.055788;-0.963103;-0.263161;, - -0.996582;-0.060030;-0.056520;, - -0.055788;-0.963103;-0.263161;, - -0.039979;-0.963591;-0.264351;, - 0.995758;-0.045747;-0.079745;, - -0.995758;-0.045747;-0.079745;, - 0.039979;-0.963591;-0.264351;, - 0.055788;-0.963103;-0.263161;, - 0.968078;-0.204321;-0.145116;, - -0.031343;-0.970397;-0.239448;, - -0.087985;-0.971160;-0.221473;, - 0.087985;-0.971160;-0.221473;, - 0.031343;-0.970397;-0.239448;, - -0.968078;-0.204321;-0.145116;, - 0.995758;-0.045747;-0.079745;, - -0.031343;-0.970397;-0.239448;, - 0.968078;-0.204321;-0.145116;, - -0.968078;-0.204321;-0.145116;, - 0.031343;-0.970397;-0.239448;, - -0.995758;-0.045747;-0.079745;, - -0.039979;-0.963591;-0.264351;, - -0.031343;-0.970397;-0.239448;, - 0.995758;-0.045747;-0.079745;, - -0.995758;-0.045747;-0.079745;, - 0.031343;-0.970397;-0.239448;, - 0.039979;-0.963591;-0.264351;, - 0.968078;-0.204321;-0.145116;, - -0.087985;-0.971160;-0.221473;, - 0.939451;-0.276711;-0.202063;, - -0.939451;-0.276711;-0.202063;, - 0.087985;-0.971160;-0.221473;, - -0.968078;-0.204321;-0.145116;, - -0.087985;-0.971160;-0.221473;, - -0.120701;-0.963286;-0.239784;, - 0.939451;-0.276711;-0.202063;, - -0.939451;-0.276711;-0.202063;, - 0.120701;-0.963286;-0.239784;, - 0.087985;-0.971160;-0.221473;, - 0.853084;-0.485275;-0.191565;, - 0.939451;-0.276711;-0.202063;, - -0.120701;-0.963286;-0.239784;, - 0.120701;-0.963286;-0.239784;, - -0.939451;-0.276711;-0.202063;, - -0.853084;-0.485275;-0.191565;, - -0.187964;-0.972259;-0.139103;, - 0.853084;-0.485275;-0.191565;, - -0.120701;-0.963286;-0.239784;, - 0.120701;-0.963286;-0.239784;, - -0.853084;-0.485275;-0.191565;, - 0.187964;-0.972259;-0.139103;, - 0.853084;-0.485275;-0.191565;, - -0.187964;-0.972259;-0.139103;, - 0.890774;-0.449324; 0.067537;, - -0.890774;-0.449324; 0.067537;, - 0.187964;-0.972259;-0.139103;, - -0.853084;-0.485275;-0.191565;, - -0.187964;-0.972259;-0.139103;, - 0.617725;-0.784661;-0.051576;, - 0.890774;-0.449324; 0.067537;, - -0.890774;-0.449324; 0.067537;, - -0.617725;-0.784661;-0.051576;, - 0.187964;-0.972259;-0.139103;, - 0.617725;-0.784661;-0.051576;, - -0.187964;-0.972259;-0.139103;, - 0.757408;-0.639241;-0.132786;, - -0.757408;-0.639241;-0.132786;, - 0.187964;-0.972259;-0.139103;, - -0.617725;-0.784661;-0.051576;, - 0.789911;-0.572710; 0.219062;, - 0.617725;-0.784661;-0.051576;, - 0.757408;-0.639241;-0.132786;, - -0.757408;-0.639241;-0.132786;, - -0.617725;-0.784661;-0.051576;, - -0.789911;-0.572710; 0.219062;, - 0.858669;-0.434797; 0.271218;, - 0.789911;-0.572710; 0.219062;, - 0.757408;-0.639241;-0.132786;, - -0.757408;-0.639241;-0.132786;, - -0.789911;-0.572710; 0.219062;, - -0.858669;-0.434797; 0.271218;, - 0.313883; 0.360576; 0.878292;, - 0.667959;-0.138981; 0.731071;, - 0.809290; 0.344340; 0.475845;, - -0.809290; 0.344340; 0.475845;, - -0.667959;-0.138981; 0.731071;, - -0.313883; 0.360576; 0.878292;, - 0.313883; 0.360576; 0.878292;, - 0.809290; 0.344340; 0.475845;, - 0.000000; 0.853542;-0.520981;, - 0.000000; 0.853542;-0.520981;, - -0.809290; 0.344340; 0.475845;, - -0.313883; 0.360576; 0.878292;, - 0.845637; 0.301614; 0.440321;, - 0.000000; 0.853542;-0.520981;, - 0.809290; 0.344340; 0.475845;, - -0.809290; 0.344340; 0.475845;, - 0.000000; 0.853542;-0.520981;, - -0.845637; 0.301614; 0.440321;, - 0.845637; 0.301614; 0.440321;, - 0.809290; 0.344340; 0.475845;, - 0.667959;-0.138981; 0.731071;, - -0.667959;-0.138981; 0.731071;, - -0.809290; 0.344340; 0.475845;, - -0.845637; 0.301614; 0.440321;, - 0.096011; 0.385571;-0.917661;, - -0.096011; 0.385571;-0.917661;, - 0.000000; 0.651997;-0.758171;, - 0.096011; 0.385571;-0.917661;, - 0.000000; 0.408032;-0.912961;, - -0.096011; 0.385571;-0.917661;, - -0.395764; 0.791955; 0.464888;, - 0.000000; 0.253487; 0.967315;, - 0.395764; 0.791955; 0.464888;, - 0.490249;-0.071322; 0.868648;, - 0.882046; 0.237587; 0.406842;, - 0.740532; 0.277169; 0.612171;, - -0.740532; 0.277169; 0.612171;, - -0.882046; 0.237587; 0.406842;, - -0.490249;-0.071322; 0.868648;, - 0.490249;-0.071322; 0.868648;, - 0.740532; 0.277169; 0.612171;, - 0.550066;-0.067446; 0.832362;, - -0.550066;-0.067446; 0.832362;, - -0.740532; 0.277169; 0.612171;, - -0.490249;-0.071322; 0.868648;, - -0.096011; 0.385571;-0.917661;, - -0.138951; 0.649129;-0.747856;, - 0.000000; 0.651997;-0.758171;, - 0.000000; 0.651997;-0.758171;, - 0.138951; 0.649129;-0.747856;, - 0.096011; 0.385571;-0.917661;, - -0.148045; 0.943724;-0.295694;, - 0.000000; 0.651997;-0.758171;, - -0.138951; 0.649129;-0.747856;, - 0.138951; 0.649129;-0.747856;, - 0.000000; 0.651997;-0.758171;, - 0.148045; 0.943724;-0.295694;, - -0.096011; 0.385571;-0.917661;, - 0.683828; 0.286905;-0.670827;, - -0.438429; 0.150029;-0.886135;, - 0.438429; 0.150029;-0.886135;, - -0.683828; 0.286905;-0.670827;, - 0.096011; 0.385571;-0.917661;, - 0.485275; 0.767907; 0.418043;, - -0.438429; 0.150029;-0.886135;, - 0.683828; 0.286905;-0.670827;, - -0.683828; 0.286905;-0.670827;, - 0.438429; 0.150029;-0.886135;, - -0.485275; 0.767907; 0.418043;, - 0.920927; 0.124668; 0.369182;, - 0.735527;-0.173406; 0.654897;, - 0.737144; 0.674947; 0.031587;, - -0.737144; 0.674947; 0.031587;, - -0.735527;-0.173406; 0.654897;, - -0.920927; 0.124668; 0.369182;, - 0.920927; 0.124668; 0.369182;, - 0.737144; 0.674947; 0.031587;, - 0.358592; 0.902646; 0.237922;, - -0.358592; 0.902646; 0.237922;, - -0.737144; 0.674947; 0.031587;, - -0.920927; 0.124668; 0.369182;, - 0.313883; 0.360576; 0.878292;, - 0.000000; 0.853542;-0.520981;, - 0.000000; 0.568987; 0.822321;, - 0.000000; 0.568987; 0.822321;, - 0.000000; 0.853542;-0.520981;, - -0.313883; 0.360576; 0.878292;, - 0.000000; 0.568987; 0.822321;, - 0.067293; 0.672170; 0.737297;, - 0.313883; 0.360576; 0.878292;, - -0.313883; 0.360576; 0.878292;, - -0.067293; 0.672170; 0.737297;, - 0.000000; 0.568987; 0.822321;, - 0.000000; 0.775872; 0.630879;, - 0.067293; 0.672170; 0.737297;, - 0.000000; 0.568987; 0.822321;, - 0.000000; 0.568987; 0.822321;, - -0.067293; 0.672170; 0.737297;, - 0.000000; 0.775872; 0.630879;, - -0.036775; 0.834468; 0.549791;, - 0.067293; 0.672170; 0.737297;, - 0.000000; 0.775872; 0.630879;, - 0.000000; 0.775872; 0.630879;, - -0.067293; 0.672170; 0.737297;, - 0.036775; 0.834468; 0.549791;, - -0.036775; 0.834468; 0.549791;, - 0.000000; 0.775872; 0.630879;, - 0.000000; 0.926389; 0.376476;, - 0.000000; 0.926389; 0.376476;, - 0.000000; 0.775872; 0.630879;, - 0.036775; 0.834468; 0.549791;, - -0.004913; 0.963012; 0.269356;, - -0.036775; 0.834468; 0.549791;, - 0.000000; 0.926389; 0.376476;, - 0.000000; 0.926389; 0.376476;, - 0.036775; 0.834468; 0.549791;, - 0.004913; 0.963012; 0.269356;, - -0.013398; 0.999054; 0.041047;, - -0.004913; 0.963012; 0.269356;, - 0.000000; 0.926389; 0.376476;, - 0.000000; 0.926389; 0.376476;, - 0.004913; 0.963012; 0.269356;, - 0.013398; 0.999054; 0.041047;, - -0.013398; 0.999054; 0.041047;, - 0.000000; 0.926389; 0.376476;, - 0.000000; 0.959716;-0.280953;, - 0.000000; 0.959716;-0.280953;, - 0.000000; 0.926389; 0.376476;, - 0.013398; 0.999054; 0.041047;, - -0.148045; 0.943724;-0.295694;, - -0.013398; 0.999054; 0.041047;, - 0.000000; 0.959716;-0.280953;, - 0.000000; 0.959716;-0.280953;, - 0.013398; 0.999054; 0.041047;, - 0.148045; 0.943724;-0.295694;, - -0.148045; 0.943724;-0.295694;, - 0.000000; 0.959716;-0.280953;, - 0.000000; 0.651997;-0.758171;, - 0.000000; 0.651997;-0.758171;, - 0.000000; 0.959716;-0.280953;, - 0.148045; 0.943724;-0.295694;, - 0.683828; 0.286905;-0.670827;, - -0.096011; 0.385571;-0.917661;, - 0.000000; 0.408032;-0.912961;, - 0.000000; 0.408032;-0.912961;, - 0.096011; 0.385571;-0.917661;, - -0.683828; 0.286905;-0.670827;, - 0.656148; 0.427442;-0.621876;, - 0.683828; 0.286905;-0.670827;, - 0.000000; 0.408032;-0.912961;, - 0.000000; 0.408032;-0.912961;, - -0.683828; 0.286905;-0.670827;, - -0.656148; 0.427442;-0.621876;, - 0.683828; 0.286905;-0.670827;, - 0.656148; 0.427442;-0.621876;, - 0.485275; 0.767907; 0.418043;, - -0.485275; 0.767907; 0.418043;, - -0.656148; 0.427442;-0.621876;, - -0.683828; 0.286905;-0.670827;, - 0.967284;-0.244606;-0.066836;, - -0.620075;-0.321757; 0.715476;, - 0.849696; 0.526170; 0.033357;, - -0.849696; 0.526170; 0.033357;, - 0.620075;-0.321757; 0.715476;, - -0.967284;-0.244606;-0.066836;, - -0.620075;-0.321757; 0.715476;, - 0.967284;-0.244606;-0.066836;, - 0.757408;-0.639241;-0.132786;, - -0.757408;-0.639241;-0.132786;, - -0.967284;-0.244606;-0.066836;, - 0.620075;-0.321757; 0.715476;, - 0.932707; 0.353923; 0.069033;, - 0.920927; 0.124668; 0.369182;, - 0.358592; 0.902646; 0.237922;, - -0.358592; 0.902646; 0.237922;, - -0.920927; 0.124668; 0.369182;, - -0.932707; 0.353923; 0.069033;, - 0.896359; 0.120060; 0.426710;, - 0.920927; 0.124668; 0.369182;, - 0.932707; 0.353923; 0.069033;, - -0.932707; 0.353923; 0.069033;, - -0.920927; 0.124668; 0.369182;, - -0.896359; 0.120060; 0.426710;, - 0.896359; 0.120060; 0.426710;, - 0.932707; 0.353923; 0.069033;, - 0.991485; 0.128605; 0.018921;, - -0.991485; 0.128605; 0.018921;, - -0.932707; 0.353923; 0.069033;, - -0.896359; 0.120060; 0.426710;, - 0.896359; 0.120060; 0.426710;, - 0.991485; 0.128605; 0.018921;, - 0.951415;-0.050691; 0.303690;, - -0.951415;-0.050691; 0.303690;, - -0.991485; 0.128605; 0.018921;, - -0.896359; 0.120060; 0.426710;, - 0.920927; 0.124668; 0.369182;, - 0.625568;-0.132084; 0.768853;, - 0.735527;-0.173406; 0.654897;, - -0.735527;-0.173406; 0.654897;, - -0.625568;-0.132084; 0.768853;, - -0.920927; 0.124668; 0.369182;, - 0.625568;-0.132084; 0.768853;, - 0.920927; 0.124668; 0.369182;, - 0.533769;-0.066469; 0.842982;, - -0.533769;-0.066469; 0.842982;, - -0.920927; 0.124668; 0.369182;, - -0.625568;-0.132084; 0.768853;, - 0.920927; 0.124668; 0.369182;, - 0.896359; 0.120060; 0.426710;, - 0.533769;-0.066469; 0.842982;, - -0.533769;-0.066469; 0.842982;, - -0.896359; 0.120060; 0.426710;, - -0.920927; 0.124668; 0.369182;, - 0.896359; 0.120060; 0.426710;, - 0.770959;-0.060274; 0.633961;, - 0.533769;-0.066469; 0.842982;, - -0.533769;-0.066469; 0.842982;, - -0.770959;-0.060274; 0.633961;, - -0.896359; 0.120060; 0.426710;, - 0.770959;-0.060274; 0.633961;, - 0.896359; 0.120060; 0.426710;, - 0.951415;-0.050691; 0.303690;, - -0.951415;-0.050691; 0.303690;, - -0.896359; 0.120060; 0.426710;, - -0.770959;-0.060274; 0.633961;, - 0.845637; 0.301614; 0.440321;, - 0.667959;-0.138981; 0.731071;, - 0.000000; 0.014649; 0.999878;, - 0.000000; 0.014649; 0.999878;, - -0.667959;-0.138981; 0.731071;, - -0.845637; 0.301614; 0.440321;, - 0.000000; 0.014649; 0.999878;, - 0.667959;-0.138981; 0.731071;, - 0.526383;-0.252388; 0.811884;, - -0.526383;-0.252388; 0.811884;, - -0.667959;-0.138981; 0.731071;, - 0.000000; 0.014649; 0.999878;, - 0.000000; 0.014649; 0.999878;, - 0.526383;-0.252388; 0.811884;, - 0.000000;-0.344127; 0.938902;, - 0.000000;-0.344127; 0.938902;, - -0.526383;-0.252388; 0.811884;, - 0.000000; 0.014649; 0.999878;, - 0.526383;-0.252388; 0.811884;, - 0.667959;-0.138981; 0.731071;, - 0.735527;-0.173406; 0.654897;, - -0.735527;-0.173406; 0.654897;, - -0.667959;-0.138981; 0.731071;, - -0.526383;-0.252388; 0.811884;, - 0.485275; 0.767907; 0.418043;, - 0.656148; 0.427442;-0.621876;, - 0.957549; 0.240059;-0.159551;, - -0.957549; 0.240059;-0.159551;, - -0.656148; 0.427442;-0.621876;, - -0.485275; 0.767907; 0.418043;, - 0.656148; 0.427442;-0.621876;, - 0.000000; 0.408032;-0.912961;, - 0.000000; 0.558275;-0.829615;, - 0.000000; 0.558275;-0.829615;, - 0.000000; 0.408032;-0.912961;, - -0.656148; 0.427442;-0.621876;, - 0.551225; 0.415998;-0.723228;, - 0.656148; 0.427442;-0.621876;, - 0.000000; 0.558275;-0.829615;, - 0.000000; 0.558275;-0.829615;, - -0.656148; 0.427442;-0.621876;, - -0.551225; 0.415998;-0.723228;, - 0.957549; 0.240059;-0.159551;, - 0.656148; 0.427442;-0.621876;, - 0.551225; 0.415998;-0.723228;, - -0.551225; 0.415998;-0.723228;, - -0.656148; 0.427442;-0.621876;, - -0.957549; 0.240059;-0.159551;, - 0.883175; 0.399731;-0.245247;, - 0.957549; 0.240059;-0.159551;, - 0.551225; 0.415998;-0.723228;, - -0.551225; 0.415998;-0.723228;, - -0.957549; 0.240059;-0.159551;, - -0.883175; 0.399731;-0.245247;, - 0.358592; 0.902646; 0.237922;, - 0.485275; 0.767907; 0.418043;, - 0.957549; 0.240059;-0.159551;, - -0.957549; 0.240059;-0.159551;, - -0.485275; 0.767907; 0.418043;, - -0.358592; 0.902646; 0.237922;, - 0.358592; 0.902646; 0.237922;, - 0.957549; 0.240059;-0.159551;, - 0.883175; 0.399731;-0.245247;, - -0.883175; 0.399731;-0.245247;, - -0.957549; 0.240059;-0.159551;, - -0.358592; 0.902646; 0.237922;, - 0.932707; 0.353923; 0.069033;, - 0.358592; 0.902646; 0.237922;, - 0.883175; 0.399731;-0.245247;, - -0.883175; 0.399731;-0.245247;, - -0.358592; 0.902646; 0.237922;, - -0.932707; 0.353923; 0.069033;, - 0.932707; 0.353923; 0.069033;, - 0.883175; 0.399731;-0.245247;, - 0.911344; 0.277596;-0.303873;, - -0.911344; 0.277596;-0.303873;, - -0.883175; 0.399731;-0.245247;, - -0.932707; 0.353923; 0.069033;, - 0.991485; 0.128605; 0.018921;, - 0.932707; 0.353923; 0.069033;, - 0.911344; 0.277596;-0.303873;, - -0.911344; 0.277596;-0.303873;, - -0.932707; 0.353923; 0.069033;, - -0.991485; 0.128605; 0.018921;, - 0.735527;-0.173406; 0.654897;, - 0.625568;-0.132084; 0.768853;, - 0.526383;-0.252388; 0.811884;, - -0.526383;-0.252388; 0.811884;, - -0.625568;-0.132084; 0.768853;, - -0.735527;-0.173406; 0.654897;, - 0.849696; 0.526170; 0.033357;, - 0.882046; 0.237587; 0.406842;, - 0.996643;-0.079989;-0.016449;, - -0.996643;-0.079989;-0.016449;, - -0.882046; 0.237587; 0.406842;, - -0.849696; 0.526170; 0.033357;, - 0.882046; 0.237587; 0.406842;, - 0.951415;-0.050691; 0.303690;, - 0.996643;-0.079989;-0.016449;, - -0.996643;-0.079989;-0.016449;, - -0.951415;-0.050691; 0.303690;, - -0.882046; 0.237587; 0.406842;, - 0.533769;-0.066469; 0.842982;, - 0.770959;-0.060274; 0.633961;, - 0.490249;-0.071322; 0.868648;, - -0.490249;-0.071322; 0.868648;, - -0.770959;-0.060274; 0.633961;, - -0.533769;-0.066469; 0.842982;, - 0.770959;-0.060274; 0.633961;, - 0.951415;-0.050691; 0.303690;, - 0.882046; 0.237587; 0.406842;, - -0.882046; 0.237587; 0.406842;, - -0.951415;-0.050691; 0.303690;, - -0.770959;-0.060274; 0.633961;, - 0.490249;-0.071322; 0.868648;, - 0.770959;-0.060274; 0.633961;, - 0.882046; 0.237587; 0.406842;, - -0.882046; 0.237587; 0.406842;, - -0.770959;-0.060274; 0.633961;, - -0.490249;-0.071322; 0.868648;, - 0.334056; 0.072390; 0.939756;, - 0.490249;-0.071322; 0.868648;, - 0.550066;-0.067446; 0.832362;, - -0.550066;-0.067446; 0.832362;, - -0.490249;-0.071322; 0.868648;, - -0.334056; 0.072390; 0.939756;, - 0.991485; 0.128605; 0.018921;, - 0.996643;-0.079989;-0.016449;, - 0.951415;-0.050691; 0.303690;, - -0.951415;-0.050691; 0.303690;, - -0.996643;-0.079989;-0.016449;, - -0.991485; 0.128605; 0.018921;, - 0.936094; 0.057833;-0.346934;, - 0.991485; 0.128605; 0.018921;, - 0.911344; 0.277596;-0.303873;, - -0.911344; 0.277596;-0.303873;, - -0.991485; 0.128605; 0.018921;, - -0.936094; 0.057833;-0.346934;, - 0.996643;-0.079989;-0.016449;, - 0.991485; 0.128605; 0.018921;, - 0.936094; 0.057833;-0.346934;, - -0.936094; 0.057833;-0.346934;, - -0.991485; 0.128605; 0.018921;, - -0.996643;-0.079989;-0.016449;, - 0.996643;-0.079989;-0.016449;, - 0.936094; 0.057833;-0.346934;, - 0.941679;-0.099399;-0.321390;, - -0.941679;-0.099399;-0.321390;, - -0.936094; 0.057833;-0.346934;, - -0.996643;-0.079989;-0.016449;, - 0.996643;-0.079989;-0.016449;, - 0.941679;-0.099399;-0.321390;, - 0.932310;-0.213996;-0.291513;, - -0.932310;-0.213996;-0.291513;, - -0.941679;-0.099399;-0.321390;, - -0.996643;-0.079989;-0.016449;, - 0.996643;-0.079989;-0.016449;, - 0.932310;-0.213996;-0.291513;, - 0.849696; 0.526170; 0.033357;, - -0.849696; 0.526170; 0.033357;, - -0.932310;-0.213996;-0.291513;, - -0.996643;-0.079989;-0.016449;, - 0.932310;-0.213996;-0.291513;, - 0.967284;-0.244606;-0.066836;, - 0.849696; 0.526170; 0.033357;, - -0.849696; 0.526170; 0.033357;, - -0.967284;-0.244606;-0.066836;, - -0.932310;-0.213996;-0.291513;, - 0.911344; 0.277596;-0.303873;, - 0.883175; 0.399731;-0.245247;, - 0.551225; 0.415998;-0.723228;, - -0.551225; 0.415998;-0.723228;, - -0.883175; 0.399731;-0.245247;, - -0.911344; 0.277596;-0.303873;, - 0.911344; 0.277596;-0.303873;, - 0.551225; 0.415998;-0.723228;, - 0.591662; 0.157079;-0.790704;, - -0.591662; 0.157079;-0.790704;, - -0.551225; 0.415998;-0.723228;, - -0.911344; 0.277596;-0.303873;, - 0.936094; 0.057833;-0.346934;, - 0.911344; 0.277596;-0.303873;, - 0.591662; 0.157079;-0.790704;, - -0.591662; 0.157079;-0.790704;, - -0.911344; 0.277596;-0.303873;, - -0.936094; 0.057833;-0.346934;, - 0.936094; 0.057833;-0.346934;, - 0.591662; 0.157079;-0.790704;, - 0.587542;-0.154424;-0.794305;, - -0.587542;-0.154424;-0.794305;, - -0.591662; 0.157079;-0.790704;, - -0.936094; 0.057833;-0.346934;, - 0.941679;-0.099399;-0.321390;, - 0.936094; 0.057833;-0.346934;, - 0.587542;-0.154424;-0.794305;, - -0.587542;-0.154424;-0.794305;, - -0.936094; 0.057833;-0.346934;, - -0.941679;-0.099399;-0.321390;, - 0.932310;-0.213996;-0.291513;, - 0.941679;-0.099399;-0.321390;, - 0.587542;-0.154424;-0.794305;, - -0.587542;-0.154424;-0.794305;, - -0.941679;-0.099399;-0.321390;, - -0.932310;-0.213996;-0.291513;, - 0.932310;-0.213996;-0.291513;, - 0.587542;-0.154424;-0.794305;, - 0.602893;-0.436293;-0.667928;, - -0.602893;-0.436293;-0.667928;, - -0.587542;-0.154424;-0.794305;, - -0.932310;-0.213996;-0.291513;, - 0.932310;-0.213996;-0.291513;, - 0.602893;-0.436293;-0.667928;, - 0.967284;-0.244606;-0.066836;, - -0.967284;-0.244606;-0.066836;, - -0.602893;-0.436293;-0.667928;, - -0.932310;-0.213996;-0.291513;, - 0.625568;-0.132084; 0.768853;, - 0.000000;-0.269143; 0.963073;, - 0.000000;-0.344127; 0.938902;, - 0.000000;-0.344127; 0.938902;, - 0.000000;-0.269143; 0.963073;, - -0.625568;-0.132084; 0.768853;, - 0.526383;-0.252388; 0.811884;, - 0.625568;-0.132084; 0.768853;, - 0.000000;-0.344127; 0.938902;, - 0.000000;-0.344127; 0.938902;, - -0.625568;-0.132084; 0.768853;, - -0.526383;-0.252388; 0.811884;, - 0.625568;-0.132084; 0.768853;, - 0.533769;-0.066469; 0.842982;, - 0.000000;-0.269143; 0.963073;, - 0.000000;-0.269143; 0.963073;, - -0.533769;-0.066469; 0.842982;, - -0.625568;-0.132084; 0.768853;, - 0.533769;-0.066469; 0.842982;, - 0.000000;-0.198401; 0.980102;, - 0.000000;-0.269143; 0.963073;, - 0.000000;-0.269143; 0.963073;, - 0.000000;-0.198401; 0.980102;, - -0.533769;-0.066469; 0.842982;, - 0.000000;-0.198401; 0.980102;, - 0.533769;-0.066469; 0.842982;, - 0.490249;-0.071322; 0.868648;, - -0.490249;-0.071322; 0.868648;, - -0.533769;-0.066469; 0.842982;, - 0.000000;-0.198401; 0.980102;, - 0.000000;-0.198401; 0.980102;, - 0.490249;-0.071322; 0.868648;, - 0.000000;-0.070986; 0.997467;, - 0.000000;-0.070986; 0.997467;, - -0.490249;-0.071322; 0.868648;, - 0.000000;-0.198401; 0.980102;, - 0.490249;-0.071322; 0.868648;, - 0.334056; 0.072390; 0.939756;, - 0.000000;-0.070986; 0.997467;, - 0.000000;-0.070986; 0.997467;, - -0.334056; 0.072390; 0.939756;, - -0.490249;-0.071322; 0.868648;, - 0.000000;-0.070986; 0.997467;, - 0.334056; 0.072390; 0.939756;, - 0.000000; 0.253487; 0.967315;, - 0.000000; 0.253487; 0.967315;, - -0.334056; 0.072390; 0.939756;, - 0.000000;-0.070986; 0.997467;, - 0.000000; 0.253487; 0.967315;, - 0.334056; 0.072390; 0.939756;, - 0.686758; 0.243446; 0.684866;, - -0.686758; 0.243446; 0.684866;, - -0.334056; 0.072390; 0.939756;, - 0.000000; 0.253487; 0.967315;, - 0.000000; 0.253487; 0.967315;, - 0.686758; 0.243446; 0.684866;, - 0.395764; 0.791955; 0.464888;, - -0.395764; 0.791955; 0.464888;, - -0.686758; 0.243446; 0.684866;, - 0.000000; 0.253487; 0.967315;, - 0.334056; 0.072390; 0.939756;, - 0.550066;-0.067446; 0.832362;, - 0.686758; 0.243446; 0.684866;, - -0.686758; 0.243446; 0.684866;, - -0.550066;-0.067446; 0.832362;, - -0.334056; 0.072390; 0.939756;, - 0.961119;-0.268929; 0.062380;, - 0.686758; 0.243446; 0.684866;, - 0.550066;-0.067446; 0.832362;, - -0.550066;-0.067446; 0.832362;, - -0.686758; 0.243446; 0.684866;, - -0.961119;-0.268929; 0.062380;, - 0.858669;-0.434797; 0.271218;, - 0.961119;-0.268929; 0.062380;, - 0.550066;-0.067446; 0.832362;, - -0.550066;-0.067446; 0.832362;, - -0.961119;-0.268929; 0.062380;, - -0.858669;-0.434797; 0.271218;, - 0.858669;-0.434797; 0.271218;, - 0.757408;-0.639241;-0.132786;, - 0.961119;-0.268929; 0.062380;, - -0.961119;-0.268929; 0.062380;, - -0.757408;-0.639241;-0.132786;, - -0.858669;-0.434797; 0.271218;, - 0.602893;-0.436293;-0.667928;, - 0.646016;-0.600085;-0.471725;, - 0.967284;-0.244606;-0.066836;, - -0.967284;-0.244606;-0.066836;, - -0.646016;-0.600085;-0.471725;, - -0.602893;-0.436293;-0.667928;, - 0.967284;-0.244606;-0.066836;, - 0.646016;-0.600085;-0.471725;, - 0.757408;-0.639241;-0.132786;, - -0.757408;-0.639241;-0.132786;, - -0.646016;-0.600085;-0.471725;, - -0.967284;-0.244606;-0.066836;, - 0.757408;-0.639241;-0.132786;, - 0.646016;-0.600085;-0.471725;, - 0.685049;-0.669271;-0.287667;, - -0.685049;-0.669271;-0.287667;, - -0.646016;-0.600085;-0.471725;, - -0.757408;-0.639241;-0.132786;, - 0.961119;-0.268929; 0.062380;, - 0.757408;-0.639241;-0.132786;, - 0.685049;-0.669271;-0.287667;, - -0.685049;-0.669271;-0.287667;, - -0.757408;-0.639241;-0.132786;, - -0.961119;-0.268929; 0.062380;, - 0.551225; 0.415998;-0.723228;, - 0.000000; 0.558275;-0.829615;, - 0.000000; 0.374798;-0.927091;, - 0.000000; 0.374798;-0.927091;, - 0.000000; 0.558275;-0.829615;, - -0.551225; 0.415998;-0.723228;, - 0.551225; 0.415998;-0.723228;, - 0.000000; 0.374798;-0.927091;, - 0.000000; 0.097232;-0.995239;, - 0.000000; 0.097232;-0.995239;, - 0.000000; 0.374798;-0.927091;, - -0.551225; 0.415998;-0.723228;, - 0.591662; 0.157079;-0.790704;, - 0.551225; 0.415998;-0.723228;, - 0.000000; 0.097232;-0.995239;, - 0.000000; 0.097232;-0.995239;, - -0.551225; 0.415998;-0.723228;, - -0.591662; 0.157079;-0.790704;, - 0.591662; 0.157079;-0.790704;, - 0.000000; 0.097232;-0.995239;, - 0.000000;-0.181341;-0.983398;, - 0.000000;-0.181341;-0.983398;, - 0.000000; 0.097232;-0.995239;, - -0.591662; 0.157079;-0.790704;, - 0.587542;-0.154424;-0.794305;, - 0.591662; 0.157079;-0.790704;, - 0.000000;-0.181341;-0.983398;, - 0.000000;-0.181341;-0.983398;, - -0.591662; 0.157079;-0.790704;, - -0.587542;-0.154424;-0.794305;, - 0.587542;-0.154424;-0.794305;, - 0.000000;-0.181341;-0.983398;, - 0.000000;-0.503464;-0.864009;, - 0.000000;-0.503464;-0.864009;, - 0.000000;-0.181341;-0.983398;, - -0.587542;-0.154424;-0.794305;, - 0.602893;-0.436293;-0.667928;, - 0.587542;-0.154424;-0.794305;, - 0.000000;-0.503464;-0.864009;, - 0.000000;-0.503464;-0.864009;, - -0.587542;-0.154424;-0.794305;, - -0.602893;-0.436293;-0.667928;, - 0.602893;-0.436293;-0.667928;, - 0.000000;-0.503464;-0.864009;, - 0.000000;-0.753441;-0.657491;, - 0.000000;-0.753441;-0.657491;, - 0.000000;-0.503464;-0.864009;, - -0.602893;-0.436293;-0.667928;, - 0.646016;-0.600085;-0.471725;, - 0.602893;-0.436293;-0.667928;, - 0.000000;-0.753441;-0.657491;, - 0.000000;-0.753441;-0.657491;, - -0.602893;-0.436293;-0.667928;, - -0.646016;-0.600085;-0.471725;, - 0.646016;-0.600085;-0.471725;, - 0.000000;-0.753441;-0.657491;, - 0.000000;-0.883358;-0.468642;, - 0.000000;-0.883358;-0.468642;, - 0.000000;-0.753441;-0.657491;, - -0.646016;-0.600085;-0.471725;, - 0.685049;-0.669271;-0.287667;, - 0.646016;-0.600085;-0.471725;, - 0.000000;-0.883358;-0.468642;, - 0.000000;-0.883358;-0.468642;, - -0.646016;-0.600085;-0.471725;, - -0.685049;-0.669271;-0.287667;, - 0.685049;-0.669271;-0.287667;, - 0.000000;-0.883358;-0.468642;, - 0.000000;-0.963134;-0.268929;, - 0.000000;-0.963134;-0.268929;, - 0.000000;-0.883358;-0.468642;, - -0.685049;-0.669271;-0.287667;, - 0.681875;-0.712027;-0.167333;, - 0.685049;-0.669271;-0.287667;, - 0.000000;-0.963134;-0.268929;, - 0.000000;-0.963134;-0.268929;, - -0.685049;-0.669271;-0.287667;, - -0.681875;-0.712027;-0.167333;, - 0.681875;-0.712027;-0.167333;, - 0.000000;-0.963134;-0.268929;, - 0.000000;-0.960723;-0.277413;, - 0.000000;-0.960723;-0.277413;, - 0.000000;-0.963134;-0.268929;, - -0.681875;-0.712027;-0.167333;, - 0.720603;-0.678030;-0.144810;, - 0.681875;-0.712027;-0.167333;, - 0.000000;-0.960723;-0.277413;, - 0.000000;-0.960723;-0.277413;, - -0.681875;-0.712027;-0.167333;, - -0.720603;-0.678030;-0.144810;, - 0.720603;-0.678030;-0.144810;, - 0.000000;-0.960723;-0.277413;, - 0.000000;-0.768242; 0.640126;, - 0.000000;-0.768242; 0.640126;, - 0.000000;-0.960723;-0.277413;, - -0.720603;-0.678030;-0.144810;, - 0.410230;-0.454390; 0.790674;, - 0.720603;-0.678030;-0.144810;, - 0.000000;-0.768242; 0.640126;, - 0.000000;-0.768242; 0.640126;, - -0.720603;-0.678030;-0.144810;, - -0.410230;-0.454390; 0.790674;, - 0.410230;-0.454390; 0.790674;, - 0.000000;-0.768242; 0.640126;, - 0.000000; 0.997497;-0.070467;, - 0.000000; 0.997497;-0.070467;, - 0.000000;-0.768242; 0.640126;, - -0.410230;-0.454390; 0.790674;, - -0.134281; 0.990936;-0.001923;, - 0.410230;-0.454390; 0.790674;, - 0.000000; 0.997497;-0.070467;, - 0.000000; 0.997497;-0.070467;, - -0.410230;-0.454390; 0.790674;, - 0.134281; 0.990936;-0.001923;, - 0.961119;-0.268929; 0.062380;, - 0.685049;-0.669271;-0.287667;, - 0.681875;-0.712027;-0.167333;, - -0.681875;-0.712027;-0.167333;, - -0.685049;-0.669271;-0.287667;, - -0.961119;-0.268929; 0.062380;, - 0.993988;-0.093814; 0.056307;, - 0.961119;-0.268929; 0.062380;, - 0.681875;-0.712027;-0.167333;, - -0.681875;-0.712027;-0.167333;, - -0.961119;-0.268929; 0.062380;, - -0.993988;-0.093814; 0.056307;, - 0.993988;-0.093814; 0.056307;, - 0.681875;-0.712027;-0.167333;, - 0.720603;-0.678030;-0.144810;, - -0.720603;-0.678030;-0.144810;, - -0.681875;-0.712027;-0.167333;, - -0.993988;-0.093814; 0.056307;, - 0.997467;-0.033082; 0.062899;, - 0.993988;-0.093814; 0.056307;, - 0.720603;-0.678030;-0.144810;, - -0.720603;-0.678030;-0.144810;, - -0.993988;-0.093814; 0.056307;, - -0.997467;-0.033082; 0.062899;, - 0.997467;-0.033082; 0.062899;, - 0.720603;-0.678030;-0.144810;, - 0.410230;-0.454390; 0.790674;, - -0.410230;-0.454390; 0.790674;, - -0.720603;-0.678030;-0.144810;, - -0.997467;-0.033082; 0.062899;, - 0.994446; 0.094211; 0.046327;, - 0.997467;-0.033082; 0.062899;, - 0.410230;-0.454390; 0.790674;, - -0.410230;-0.454390; 0.790674;, - -0.997467;-0.033082; 0.062899;, - -0.994446; 0.094211; 0.046327;, - 0.994446; 0.094211; 0.046327;, - 0.410230;-0.454390; 0.790674;, - 0.831385; 0.542833;-0.118717;, - -0.831385; 0.542833;-0.118717;, - -0.410230;-0.454390; 0.790674;, - -0.994446; 0.094211; 0.046327;, - 0.410230;-0.454390; 0.790674;, - -0.134281; 0.990936;-0.001923;, - 0.831385; 0.542833;-0.118717;, - -0.831385; 0.542833;-0.118717;, - 0.134281; 0.990936;-0.001923;, - -0.410230;-0.454390; 0.790674;, - 0.984954; 0.127934; 0.116031;, - 0.994446; 0.094211; 0.046327;, - 0.831385; 0.542833;-0.118717;, - -0.831385; 0.542833;-0.118717;, - -0.994446; 0.094211; 0.046327;, - -0.984954; 0.127934; 0.116031;, - 0.961119;-0.268929; 0.062380;, - 0.993988;-0.093814; 0.056307;, - 0.686758; 0.243446; 0.684866;, - -0.686758; 0.243446; 0.684866;, - -0.993988;-0.093814; 0.056307;, - -0.961119;-0.268929; 0.062380;, - 0.686758; 0.243446; 0.684866;, - 0.993988;-0.093814; 0.056307;, - 0.811029; 0.516129; 0.275307;, - -0.811029; 0.516129; 0.275307;, - -0.993988;-0.093814; 0.056307;, - -0.686758; 0.243446; 0.684866;, - 0.993988;-0.093814; 0.056307;, - 0.997467;-0.033082; 0.062899;, - 0.811029; 0.516129; 0.275307;, - -0.811029; 0.516129; 0.275307;, - -0.997467;-0.033082; 0.062899;, - -0.993988;-0.093814; 0.056307;, - 0.811029; 0.516129; 0.275307;, - 0.997467;-0.033082; 0.062899;, - 0.805048; 0.537309; 0.251289;, - -0.805048; 0.537309; 0.251289;, - -0.997467;-0.033082; 0.062899;, - -0.811029; 0.516129; 0.275307;, - 0.997467;-0.033082; 0.062899;, - 0.994446; 0.094211; 0.046327;, - 0.805048; 0.537309; 0.251289;, - -0.805048; 0.537309; 0.251289;, - -0.994446; 0.094211; 0.046327;, - -0.997467;-0.033082; 0.062899;, - 0.805048; 0.537309; 0.251289;, - 0.994446; 0.094211; 0.046327;, - 0.777703; 0.477279; 0.409009;, - -0.777703; 0.477279; 0.409009;, - -0.994446; 0.094211; 0.046327;, - -0.805048; 0.537309; 0.251289;, - 0.994446; 0.094211; 0.046327;, - 0.984954; 0.127934; 0.116031;, - 0.777703; 0.477279; 0.409009;, - -0.777703; 0.477279; 0.409009;, - -0.984954; 0.127934; 0.116031;, - -0.994446; 0.094211; 0.046327;, - 0.984954; 0.127934; 0.116031;, - 0.831385; 0.542833;-0.118717;, - 0.918882; 0.282052; 0.275796;, - -0.918882; 0.282052; 0.275796;, - -0.831385; 0.542833;-0.118717;, - -0.984954; 0.127934; 0.116031;, - 0.777703; 0.477279; 0.409009;, - 0.984954; 0.127934; 0.116031;, - 0.918882; 0.282052; 0.275796;, - -0.918882; 0.282052; 0.275796;, - -0.984954; 0.127934; 0.116031;, - -0.777703; 0.477279; 0.409009;, - 0.802118; 0.272164; 0.531480;, - 0.777703; 0.477279; 0.409009;, - 0.918882; 0.282052; 0.275796;, - -0.918882; 0.282052; 0.275796;, - -0.777703; 0.477279; 0.409009;, - -0.802118; 0.272164; 0.531480;, - 0.802118; 0.272164; 0.531480;, - 0.918882; 0.282052; 0.275796;, - 0.838343; 0.304514; 0.452132;, - -0.838343; 0.304514; 0.452132;, - -0.918882; 0.282052; 0.275796;, - -0.802118; 0.272164; 0.531480;, - 0.686758; 0.243446; 0.684866;, - 0.811029; 0.516129; 0.275307;, - 0.395764; 0.791955; 0.464888;, - -0.395764; 0.791955; 0.464888;, - -0.811029; 0.516129; 0.275307;, - -0.686758; 0.243446; 0.684866;, - 0.395764; 0.791955; 0.464888;, - 0.811029; 0.516129; 0.275307;, - 0.859706; 0.461806; 0.218116;, - -0.859706; 0.461806; 0.218116;, - -0.811029; 0.516129; 0.275307;, - -0.395764; 0.791955; 0.464888;, - 0.811029; 0.516129; 0.275307;, - 0.805048; 0.537309; 0.251289;, - 0.859706; 0.461806; 0.218116;, - -0.859706; 0.461806; 0.218116;, - -0.805048; 0.537309; 0.251289;, - -0.811029; 0.516129; 0.275307;, - 0.859706; 0.461806; 0.218116;, - 0.805048; 0.537309; 0.251289;, - 0.876461; 0.444624; 0.184606;, - -0.876461; 0.444624; 0.184606;, - -0.805048; 0.537309; 0.251289;, - -0.859706; 0.461806; 0.218116;, - 0.805048; 0.537309; 0.251289;, - 0.777703; 0.477279; 0.409009;, - 0.876461; 0.444624; 0.184606;, - -0.876461; 0.444624; 0.184606;, - -0.777703; 0.477279; 0.409009;, - -0.805048; 0.537309; 0.251289;, - 0.876461; 0.444624; 0.184606;, - 0.777703; 0.477279; 0.409009;, - 0.900906; 0.343638; 0.265023;, - -0.900906; 0.343638; 0.265023;, - -0.777703; 0.477279; 0.409009;, - -0.876461; 0.444624; 0.184606;, - 0.777703; 0.477279; 0.409009;, - 0.802118; 0.272164; 0.531480;, - 0.900906; 0.343638; 0.265023;, - -0.900906; 0.343638; 0.265023;, - -0.802118; 0.272164; 0.531480;, - -0.777703; 0.477279; 0.409009;, - 0.900906; 0.343638; 0.265023;, - 0.802118; 0.272164; 0.531480;, - 0.919980; 0.200079; 0.336955;, - -0.919980; 0.200079; 0.336955;, - -0.802118; 0.272164; 0.531480;, - -0.900906; 0.343638; 0.265023;, - 0.919980; 0.200079; 0.336955;, - 0.802118; 0.272164; 0.531480;, - 0.838343; 0.304514; 0.452132;, - -0.838343; 0.304514; 0.452132;, - -0.802118; 0.272164; 0.531480;, - -0.919980; 0.200079; 0.336955;, - 0.838343; 0.304514; 0.452132;, - 0.833277; 0.099796; 0.543748;, - 0.919980; 0.200079; 0.336955;, - -0.919980; 0.200079; 0.336955;, - -0.833277; 0.099796; 0.543748;, - -0.838343; 0.304514; 0.452132;, - 0.737144; 0.674947; 0.031587;, - 0.735527;-0.173406; 0.654897;, - -0.966002; 0.185797; 0.179632;, - 0.966002; 0.185797; 0.179632;, - -0.735527;-0.173406; 0.654897;, - -0.737144; 0.674947; 0.031587;, - 0.358592; 0.902646; 0.237922;, - 0.737144; 0.674947; 0.031587;, - -0.966002; 0.185797; 0.179632;, - 0.966002; 0.185797; 0.179632;, - -0.737144; 0.674947; 0.031587;, - -0.358592; 0.902646; 0.237922;, - -0.980956;-0.184667; 0.059755;, - 0.358592; 0.902646; 0.237922;, - -0.966002; 0.185797; 0.179632;, - 0.966002; 0.185797; 0.179632;, - -0.358592; 0.902646; 0.237922;, - 0.980956;-0.184667; 0.059755;, - 0.485275; 0.767907; 0.418043;, - -0.996979;-0.076113; 0.014740;, - -0.438429; 0.150029;-0.886135;, - 0.438429; 0.150029;-0.886135;, - 0.996979;-0.076113; 0.014740;, - -0.485275; 0.767907; 0.418043;, - -0.096011; 0.385571;-0.917661;, - -0.438429; 0.150029;-0.886135;, - -0.793390;-0.163518;-0.586291;, - 0.793390;-0.163518;-0.586291;, - 0.438429; 0.150029;-0.886135;, - 0.096011; 0.385571;-0.917661;, - 0.826624;-0.011536; 0.562578;, - 0.124699;-0.683798; 0.718925;, - 0.735527;-0.173406; 0.654897;, - -0.735527;-0.173406; 0.654897;, - -0.124699;-0.683798; 0.718925;, - -0.826624;-0.011536; 0.562578;, - 0.623829;-0.051790; 0.779809;, - 0.826624;-0.011536; 0.562578;, - 0.735527;-0.173406; 0.654897;, - -0.735527;-0.173406; 0.654897;, - -0.826624;-0.011536; 0.562578;, - -0.623829;-0.051790; 0.779809;, - 0.124699;-0.683798; 0.718925;, - -0.966002; 0.185797; 0.179632;, - 0.735527;-0.173406; 0.654897;, - -0.735527;-0.173406; 0.654897;, - 0.966002; 0.185797; 0.179632;, - -0.124699;-0.683798; 0.718925;, - -0.996979;-0.076113; 0.014740;, - -0.793390;-0.163518;-0.586291;, - -0.438429; 0.150029;-0.886135;, - 0.438429; 0.150029;-0.886135;, - 0.793390;-0.163518;-0.586291;, - 0.996979;-0.076113; 0.014740;, - -0.036775; 0.834468; 0.549791;, - 0.267067; 0.718619; 0.642048;, - 0.067293; 0.672170; 0.737297;, - -0.067293; 0.672170; 0.737297;, - -0.267067; 0.718619; 0.642048;, - 0.036775; 0.834468; 0.549791;, - 0.596271; 0.441908; 0.670156;, - 0.623829;-0.051790; 0.779809;, - 0.313883; 0.360576; 0.878292;, - -0.313883; 0.360576; 0.878292;, - -0.623829;-0.051790; 0.779809;, - -0.596271; 0.441908; 0.670156;, - 0.313883; 0.360576; 0.878292;, - 0.623829;-0.051790; 0.779809;, - 0.667959;-0.138981; 0.731071;, - -0.667959;-0.138981; 0.731071;, - -0.623829;-0.051790; 0.779809;, - -0.313883; 0.360576; 0.878292;, - 0.735527;-0.173406; 0.654897;, - 0.667959;-0.138981; 0.731071;, - 0.623829;-0.051790; 0.779809;, - -0.623829;-0.051790; 0.779809;, - -0.667959;-0.138981; 0.731071;, - -0.735527;-0.173406; 0.654897;, - 0.485275; 0.767907; 0.418043;, - 0.358592; 0.902646; 0.237922;, - -0.996979;-0.076113; 0.014740;, - 0.996979;-0.076113; 0.014740;, - -0.358592; 0.902646; 0.237922;, - -0.485275; 0.767907; 0.418043;, - 0.358592; 0.902646; 0.237922;, - -0.980956;-0.184667; 0.059755;, - -0.996979;-0.076113; 0.014740;, - 0.996979;-0.076113; 0.014740;, - 0.980956;-0.184667; 0.059755;, - -0.358592; 0.902646; 0.237922;, - 0.313883; 0.360576; 0.878292;, - 0.067293; 0.672170; 0.737297;, - 0.267067; 0.718619; 0.642048;, - -0.267067; 0.718619; 0.642048;, - -0.067293; 0.672170; 0.737297;, - -0.313883; 0.360576; 0.878292;, - 0.596271; 0.441908; 0.670156;, - 0.313883; 0.360576; 0.878292;, - 0.267067; 0.718619; 0.642048;, - -0.267067; 0.718619; 0.642048;, - -0.313883; 0.360576; 0.878292;, - -0.596271; 0.441908; 0.670156;, - -0.000122;-0.968535;-0.248787;, - 0.000000;-0.001770;-0.999969;, - -0.624378;-0.581347;-0.521683;, - 0.624378;-0.581347;-0.521683;, - 0.000000;-0.001770;-0.999969;, - 0.000122;-0.968535;-0.248787;, - -0.624378;-0.581347;-0.521683;, - 0.000000;-0.001770;-0.999969;, - -0.736015;-0.332713;-0.589496;, - 0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - 0.624378;-0.581347;-0.521683;, - -0.765404;-0.129521;-0.630360;, - -0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - 0.000000;-0.001770;-0.999969;, - 0.736015;-0.332713;-0.589496;, - 0.765404;-0.129521;-0.630360;, - -0.765404;-0.129521;-0.630360;, - 0.000000;-0.001770;-0.999969;, - -0.738578; 0.539323;-0.404462;, - 0.738578; 0.539323;-0.404462;, - 0.000000;-0.001770;-0.999969;, - 0.765404;-0.129521;-0.630360;, - -0.738578; 0.539323;-0.404462;, - 0.000000;-0.001770;-0.999969;, - 0.000000; 0.884915;-0.465712;, - 0.000000; 0.884915;-0.465712;, - 0.000000;-0.001770;-0.999969;, - 0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - 0.000000;-0.001770;-0.999969;, - 0.738578; 0.539323;-0.404462;, - -0.738578; 0.539323;-0.404462;, - 0.000000;-0.001770;-0.999969;, - 0.000000; 0.884915;-0.465712;, - 0.738578; 0.539323;-0.404462;, - 0.000000;-0.001770;-0.999969;, - 0.765404;-0.129521;-0.630360;, - -0.765404;-0.129521;-0.630360;, - 0.000000;-0.001770;-0.999969;, - -0.738578; 0.539323;-0.404462;, - 0.765404;-0.129521;-0.630360;, - 0.000000;-0.001770;-0.999969;, - 0.736015;-0.332713;-0.589496;, - -0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - -0.765404;-0.129521;-0.630360;, - 0.736015;-0.332713;-0.589496;, - 0.000000;-0.001770;-0.999969;, - 0.624287;-0.581622;-0.521470;, - -0.624287;-0.581622;-0.521470;, - 0.000000;-0.001770;-0.999969;, - -0.736015;-0.332713;-0.589496;, - 0.624287;-0.581622;-0.521470;, - 0.000000;-0.001770;-0.999969;, - -0.000122;-0.968535;-0.248787;, - 0.000122;-0.968535;-0.248787;, - 0.000000;-0.001770;-0.999969;, - -0.624287;-0.581622;-0.521470;, - -0.517563; 0.690786; 0.504868;, - -0.035951; 0.840938; 0.539903;, - 0.002533; 0.948424; 0.316965;, - -0.002533; 0.948424; 0.316965;, - 0.035951; 0.840938; 0.539903;, - 0.517563; 0.690786; 0.504868;, - 0.002533; 0.948424; 0.316965;, - -0.035951; 0.840938; 0.539903;, - -0.002441; 0.877071; 0.480300;, - 0.002441; 0.877071; 0.480300;, - 0.035951; 0.840938; 0.539903;, - -0.002533; 0.948424; 0.316965;, - -0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - -0.518326; 0.662831; 0.540300;, - 0.518326; 0.662831; 0.540300;, - 0.000000; 0.884915;-0.465712;, - 0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - -0.002441; 0.877071; 0.480300;, - -0.518326; 0.662831; 0.540300;, - 0.518326; 0.662831; 0.540300;, - 0.002441; 0.877071; 0.480300;, - 0.000000; 0.884915;-0.465712;, - -0.002441; 0.877071; 0.480300;, - -0.035951; 0.840938; 0.539903;, - -0.518326; 0.662831; 0.540300;, - 0.518326; 0.662831; 0.540300;, - 0.035951; 0.840938; 0.539903;, - 0.002441; 0.877071; 0.480300;, - -0.518326; 0.662831; 0.540300;, - -0.035951; 0.840938; 0.539903;, - -0.495651; 0.498917; 0.710868;, - 0.495651; 0.498917; 0.710868;, - 0.035951; 0.840938; 0.539903;, - 0.518326; 0.662831; 0.540300;, - -0.495651; 0.498917; 0.710868;, - -0.035951; 0.840938; 0.539903;, - -0.521714; 0.324168; 0.789087;, - 0.521714; 0.324168; 0.789087;, - 0.035951; 0.840938; 0.539903;, - 0.495651; 0.498917; 0.710868;, - -0.521714; 0.324168; 0.789087;, - -0.035951; 0.840938; 0.539903;, - -0.517563; 0.690786; 0.504868;, - 0.517563; 0.690786; 0.504868;, - 0.035951; 0.840938; 0.539903;, - 0.521714; 0.324168; 0.789087;, - -0.521714; 0.324168; 0.789087;, - -0.517563; 0.690786; 0.504868;, - 0.042940; 0.169897; 0.984497;, - -0.042940; 0.169897; 0.984497;, - 0.517563; 0.690786; 0.504868;, - 0.521714; 0.324168; 0.789087;, - 0.009919;-0.002747; 0.999939;, - -0.521714; 0.324168; 0.789087;, - 0.042940; 0.169897; 0.984497;, - -0.042940; 0.169897; 0.984497;, - 0.521714; 0.324168; 0.789087;, - -0.009919;-0.002747; 0.999939;, - 0.042940; 0.169897; 0.984497;, - 0.568621; 0.578387; 0.584887;, - 0.009919;-0.002747; 0.999939;, - -0.009919;-0.002747; 0.999939;, - -0.568621; 0.578387; 0.584887;, - -0.042940; 0.169897; 0.984497;, - 0.521622; 0.313974; 0.793298;, - 0.009919;-0.002747; 0.999939;, - 0.568621; 0.578387; 0.584887;, - -0.568621; 0.578387; 0.584887;, - -0.009919;-0.002747; 0.999939;, - -0.521622; 0.313974; 0.793298;, - 0.041780; 0.839747; 0.541337;, - 0.521622; 0.313974; 0.793298;, - 0.568621; 0.578387; 0.584887;, - -0.568621; 0.578387; 0.584887;, - -0.521622; 0.313974; 0.793298;, - -0.041780; 0.839747; 0.541337;, - 0.041780; 0.839747; 0.541337;, - 0.500381; 0.493820; 0.711142;, - 0.521622; 0.313974; 0.793298;, - -0.521622; 0.313974; 0.793298;, - -0.500381; 0.493820; 0.711142;, - -0.041780; 0.839747; 0.541337;, - 0.500381; 0.493820; 0.711142;, - 0.041780; 0.839747; 0.541337;, - 0.518967; 0.662893; 0.539628;, - -0.518967; 0.662893; 0.539628;, - -0.041780; 0.839747; 0.541337;, - -0.500381; 0.493820; 0.711142;, - 0.041780; 0.839747; 0.541337;, - -0.002441; 0.877071; 0.480300;, - 0.518967; 0.662893; 0.539628;, - -0.518967; 0.662893; 0.539628;, - 0.002441; 0.877071; 0.480300;, - -0.041780; 0.839747; 0.541337;, - 0.000000; 0.884915;-0.465712;, - 0.738578; 0.539323;-0.404462;, - 0.518967; 0.662893; 0.539628;, - -0.518967; 0.662893; 0.539628;, - -0.738578; 0.539323;-0.404462;, - 0.000000; 0.884915;-0.465712;, - -0.002441; 0.877071; 0.480300;, - 0.000000; 0.884915;-0.465712;, - 0.518967; 0.662893; 0.539628;, - -0.518967; 0.662893; 0.539628;, - 0.000000; 0.884915;-0.465712;, - 0.002441; 0.877071; 0.480300;, - 0.041780; 0.839747; 0.541337;, - 0.002533; 0.948424; 0.316965;, - -0.002441; 0.877071; 0.480300;, - 0.002441; 0.877071; 0.480300;, - -0.002533; 0.948424; 0.316965;, - -0.041780; 0.839747; 0.541337;, - 0.041780; 0.839747; 0.541337;, - 0.568621; 0.578387; 0.584887;, - 0.002533; 0.948424; 0.316965;, - -0.002533; 0.948424; 0.316965;, - -0.568621; 0.578387; 0.584887;, - -0.041780; 0.839747; 0.541337;, - 0.624287;-0.581622;-0.521470;, - -0.000122;-0.968535;-0.248787;, - 0.697531;-0.426313; 0.575915;, - -0.697531;-0.426313; 0.575915;, - 0.000122;-0.968535;-0.248787;, - -0.624287;-0.581622;-0.521470;, - -0.000122;-0.968535;-0.248787;, - -0.000092;-0.537645; 0.843135;, - 0.697531;-0.426313; 0.575915;, - -0.697531;-0.426313; 0.575915;, - 0.000092;-0.537645; 0.843135;, - 0.000122;-0.968535;-0.248787;, - 0.697531;-0.426313; 0.575915;, - 0.736015;-0.332713;-0.589496;, - 0.624287;-0.581622;-0.521470;, - -0.624287;-0.581622;-0.521470;, - -0.736015;-0.332713;-0.589496;, - -0.697531;-0.426313; 0.575915;, - 0.697531;-0.426313; 0.575915;, - 0.845454;-0.139927; 0.515336;, - 0.736015;-0.332713;-0.589496;, - -0.736015;-0.332713;-0.589496;, - -0.845454;-0.139927; 0.515336;, - -0.697531;-0.426313; 0.575915;, - 0.736015;-0.332713;-0.589496;, - 0.845454;-0.139927; 0.515336;, - 0.765404;-0.129521;-0.630360;, - -0.765404;-0.129521;-0.630360;, - -0.845454;-0.139927; 0.515336;, - -0.736015;-0.332713;-0.589496;, - 0.765404;-0.129521;-0.630360;, - 0.845454;-0.139927; 0.515336;, - 0.738578; 0.539323;-0.404462;, - -0.738578; 0.539323;-0.404462;, - -0.845454;-0.139927; 0.515336;, - -0.765404;-0.129521;-0.630360;, - 0.845454;-0.139927; 0.515336;, - 0.518967; 0.662893; 0.539628;, - 0.738578; 0.539323;-0.404462;, - -0.738578; 0.539323;-0.404462;, - -0.518967; 0.662893; 0.539628;, - -0.845454;-0.139927; 0.515336;, - 0.500381; 0.493820; 0.711142;, - 0.518967; 0.662893; 0.539628;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.518967; 0.662893; 0.539628;, - -0.500381; 0.493820; 0.711142;, - 0.500381; 0.493820; 0.711142;, - 0.845454;-0.139927; 0.515336;, - 0.521622; 0.313974; 0.793298;, - -0.521622; 0.313974; 0.793298;, - -0.845454;-0.139927; 0.515336;, - -0.500381; 0.493820; 0.711142;, - 0.845454;-0.139927; 0.515336;, - 0.697531;-0.426313; 0.575915;, - 0.521622; 0.313974; 0.793298;, - -0.521622; 0.313974; 0.793298;, - -0.697531;-0.426313; 0.575915;, - -0.845454;-0.139927; 0.515336;, - 0.697531;-0.426313; 0.575915;, - 0.009919;-0.002747; 0.999939;, - 0.521622; 0.313974; 0.793298;, - -0.521622; 0.313974; 0.793298;, - -0.009919;-0.002747; 0.999939;, - -0.697531;-0.426313; 0.575915;, - 0.697531;-0.426313; 0.575915;, - -0.000092;-0.537645; 0.843135;, - 0.009919;-0.002747; 0.999939;, - -0.009919;-0.002747; 0.999939;, - 0.000092;-0.537645; 0.843135;, - -0.697531;-0.426313; 0.575915;, - -0.000092;-0.537645; 0.843135;, - -0.697623;-0.426252; 0.575823;, - 0.009919;-0.002747; 0.999939;, - -0.009919;-0.002747; 0.999939;, - 0.697623;-0.426252; 0.575823;, - 0.000092;-0.537645; 0.843135;, - -0.000122;-0.968535;-0.248787;, - -0.697623;-0.426252; 0.575823;, - -0.000092;-0.537645; 0.843135;, - 0.000092;-0.537645; 0.843135;, - 0.697623;-0.426252; 0.575823;, - 0.000122;-0.968535;-0.248787;, - -0.624378;-0.581347;-0.521683;, - -0.697623;-0.426252; 0.575823;, - -0.000122;-0.968535;-0.248787;, - 0.000122;-0.968535;-0.248787;, - 0.697623;-0.426252; 0.575823;, - 0.624378;-0.581347;-0.521683;, - -0.736015;-0.332713;-0.589496;, - -0.697623;-0.426252; 0.575823;, - -0.624378;-0.581347;-0.521683;, - 0.624378;-0.581347;-0.521683;, - 0.697623;-0.426252; 0.575823;, - 0.736015;-0.332713;-0.589496;, - 0.009919;-0.002747; 0.999939;, - -0.697623;-0.426252; 0.575823;, - -0.521714; 0.324168; 0.789087;, - 0.521714; 0.324168; 0.789087;, - 0.697623;-0.426252; 0.575823;, - -0.009919;-0.002747; 0.999939;, - -0.697623;-0.426252; 0.575823;, - -0.845454;-0.139927; 0.515336;, - -0.521714; 0.324168; 0.789087;, - 0.521714; 0.324168; 0.789087;, - 0.845454;-0.139927; 0.515336;, - 0.697623;-0.426252; 0.575823;, - -0.521714; 0.324168; 0.789087;, - -0.845454;-0.139927; 0.515336;, - -0.495651; 0.498917; 0.710868;, - 0.495651; 0.498917; 0.710868;, - 0.845454;-0.139927; 0.515336;, - 0.521714; 0.324168; 0.789087;, - -0.845454;-0.139927; 0.515336;, - -0.518326; 0.662831; 0.540300;, - -0.495651; 0.498917; 0.710868;, - 0.495651; 0.498917; 0.710868;, - 0.518326; 0.662831; 0.540300;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.738578; 0.539323;-0.404462;, - -0.518326; 0.662831; 0.540300;, - 0.518326; 0.662831; 0.540300;, - 0.738578; 0.539323;-0.404462;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.765404;-0.129521;-0.630360;, - -0.738578; 0.539323;-0.404462;, - 0.738578; 0.539323;-0.404462;, - 0.765404;-0.129521;-0.630360;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.736015;-0.332713;-0.589496;, - -0.765404;-0.129521;-0.630360;, - 0.765404;-0.129521;-0.630360;, - 0.736015;-0.332713;-0.589496;, - 0.845454;-0.139927; 0.515336;, - -0.845454;-0.139927; 0.515336;, - -0.697623;-0.426252; 0.575823;, - -0.736015;-0.332713;-0.589496;, - 0.736015;-0.332713;-0.589496;, - 0.697623;-0.426252; 0.575823;, - 0.845454;-0.139927; 0.515336;, - 0.612232;-0.706015; 0.355876;, - 0.726768;-0.449019;-0.519730;, - 0.495590;-0.867946; 0.032014;, - -0.495590;-0.867946; 0.032014;, - -0.726768;-0.449019;-0.519730;, - -0.612232;-0.706015; 0.355876;, - 0.726768;-0.449019;-0.519730;, - 0.612232;-0.706015; 0.355876;, - 0.393384; 0.117618; 0.911802;, - -0.393384; 0.117618; 0.911802;, - -0.612232;-0.706015; 0.355876;, - -0.726768;-0.449019;-0.519730;, - 0.899411; 0.421033; 0.117283;, - 0.726768;-0.449019;-0.519730;, - 0.393384; 0.117618; 0.911802;, - -0.393384; 0.117618; 0.911802;, - -0.726768;-0.449019;-0.519730;, - -0.899411; 0.421033; 0.117283;, - 0.899411; 0.421033; 0.117283;, - 0.936583; 0.287240;-0.200629;, - 0.726768;-0.449019;-0.519730;, - -0.726768;-0.449019;-0.519730;, - -0.936583; 0.287240;-0.200629;, - -0.899411; 0.421033; 0.117283;, - 0.726768;-0.449019;-0.519730;, - 0.936583; 0.287240;-0.200629;, - 0.754875; 0.303598;-0.581317;, - -0.754875; 0.303598;-0.581317;, - -0.936583; 0.287240;-0.200629;, - -0.726768;-0.449019;-0.519730;, - 0.754875; 0.303598;-0.581317;, - 0.904874; 0.340587;-0.255257;, - 0.726768;-0.449019;-0.519730;, - -0.726768;-0.449019;-0.519730;, - -0.904874; 0.340587;-0.255257;, - -0.754875; 0.303598;-0.581317;, - 0.726768;-0.449019;-0.519730;, - 0.904874; 0.340587;-0.255257;, - 0.969726;-0.159612;-0.184729;, - -0.969726;-0.159612;-0.184729;, - -0.904874; 0.340587;-0.255257;, - -0.726768;-0.449019;-0.519730;, - 0.495590;-0.867946; 0.032014;, - 0.726768;-0.449019;-0.519730;, - 0.505051;-0.844783; 0.176672;, - -0.505051;-0.844783; 0.176672;, - -0.726768;-0.449019;-0.519730;, - -0.495590;-0.867946; 0.032014;, - 0.726768;-0.449019;-0.519730;, - 0.969726;-0.159612;-0.184729;, - 0.505051;-0.844783; 0.176672;, - -0.505051;-0.844783; 0.176672;, - -0.969726;-0.159612;-0.184729;, - -0.726768;-0.449019;-0.519730;, - 0.904874; 0.340587;-0.255257;, - 0.833277; 0.099796; 0.543748;, - 0.969726;-0.159612;-0.184729;, - -0.969726;-0.159612;-0.184729;, - -0.833277; 0.099796; 0.543748;, - -0.904874; 0.340587;-0.255257;, - -0.679464; 0.458296; 0.572924;, - 0.833277; 0.099796; 0.543748;, - 0.904874; 0.340587;-0.255257;, - -0.904874; 0.340587;-0.255257;, - -0.833277; 0.099796; 0.543748;, - 0.679464; 0.458296; 0.572924;, - 0.505051;-0.844783; 0.176672;, - 0.969726;-0.159612;-0.184729;, - 0.178106;-0.459914; 0.869900;, - -0.178106;-0.459914; 0.869900;, - -0.969726;-0.159612;-0.184729;, - -0.505051;-0.844783; 0.176672;, - 0.178106;-0.459914; 0.869900;, - 0.833277; 0.099796; 0.543748;, - -0.679464; 0.458296; 0.572924;, - 0.679464; 0.458296; 0.572924;, - -0.833277; 0.099796; 0.543748;, - -0.178106;-0.459914; 0.869900;, - -0.679464; 0.458296; 0.572924;, - 0.505051;-0.844783; 0.176672;, - 0.178106;-0.459914; 0.869900;, - -0.178106;-0.459914; 0.869900;, - -0.505051;-0.844783; 0.176672;, - 0.679464; 0.458296; 0.572924;, - -0.679464; 0.458296; 0.572924;, - 0.612232;-0.706015; 0.355876;, - 0.495590;-0.867946; 0.032014;, - -0.495590;-0.867946; 0.032014;, - -0.612232;-0.706015; 0.355876;, - 0.679464; 0.458296; 0.572924;, - 0.612232;-0.706015; 0.355876;, - -0.679464; 0.458296; 0.572924;, - 0.393384; 0.117618; 0.911802;, - -0.393384; 0.117618; 0.911802;, - 0.679464; 0.458296; 0.572924;, - -0.612232;-0.706015; 0.355876;, - -0.679464; 0.458296; 0.572924;, - 0.899411; 0.421033; 0.117283;, - 0.393384; 0.117618; 0.911802;, - -0.393384; 0.117618; 0.911802;, - -0.899411; 0.421033; 0.117283;, - 0.679464; 0.458296; 0.572924;, - 0.936583; 0.287240;-0.200629;, - 0.899411; 0.421033; 0.117283;, - -0.679464; 0.458296; 0.572924;, - 0.679464; 0.458296; 0.572924;, - -0.899411; 0.421033; 0.117283;, - -0.936583; 0.287240;-0.200629;, - 0.754875; 0.303598;-0.581317;, - 0.936583; 0.287240;-0.200629;, - -0.679464; 0.458296; 0.572924;, - 0.679464; 0.458296; 0.572924;, - -0.936583; 0.287240;-0.200629;, - -0.754875; 0.303598;-0.581317;, - -0.679464; 0.458296; 0.572924;, - 0.904874; 0.340587;-0.255257;, - 0.754875; 0.303598;-0.581317;, - -0.754875; 0.303598;-0.581317;, - -0.904874; 0.340587;-0.255257;, - 0.679464; 0.458296; 0.572924;, - -0.679464; 0.458296; 0.572924;, - 0.495590;-0.867946; 0.032014;, - 0.505051;-0.844783; 0.176672;, - -0.505051;-0.844783; 0.176672;, - -0.495590;-0.867946; 0.032014;, - 0.679464; 0.458296; 0.572924;, - -0.833277; 0.099796; 0.543748;, - 0.833277; 0.099796; 0.543748;, - 0.000000;-0.104556; 0.994507;, - 0.907407; 0.043580; 0.417951;, - 0.710257;-0.342143; 0.615162;, - 0.969726;-0.159612;-0.184729;, - -0.969726;-0.159612;-0.184729;, - -0.710257;-0.342143; 0.615162;, - -0.907407; 0.043580; 0.417951;, - 0.178106;-0.459914; 0.869900;, - 0.969726;-0.159612;-0.184729;, - 0.710257;-0.342143; 0.615162;, - -0.710257;-0.342143; 0.615162;, - -0.969726;-0.159612;-0.184729;, - -0.178106;-0.459914; 0.869900;, - 0.838343; 0.304514; 0.452132;, - 0.969726;-0.159612;-0.184729;, - 0.833277; 0.099796; 0.543748;, - -0.833277; 0.099796; 0.543748;, - -0.969726;-0.159612;-0.184729;, - -0.838343; 0.304514; 0.452132;, - 0.907407; 0.043580; 0.417951;, - 0.969726;-0.159612;-0.184729;, - 0.838343; 0.304514; 0.452132;, - -0.838343; 0.304514; 0.452132;, - -0.969726;-0.159612;-0.184729;, - -0.907407; 0.043580; 0.417951;, - 0.000000;-0.104556; 0.994507;, - 0.833277; 0.099796; 0.543748;, - 0.178106;-0.459914; 0.869900;, - -0.178106;-0.459914; 0.869900;, - -0.833277; 0.099796; 0.543748;, - 0.000000;-0.104556; 0.994507;, - 0.178106;-0.459914; 0.869900;, - 0.710257;-0.342143; 0.615162;, - 0.000000;-0.104556; 0.994507;, - 0.000000;-0.104556; 0.994507;, - -0.710257;-0.342143; 0.615162;, - -0.178106;-0.459914; 0.869900;, - 0.000000;-0.104556; 0.994507;, - 0.710257;-0.342143; 0.615162;, - 0.000000;-0.750877; 0.660421;, - 0.000000;-0.750877; 0.660421;, - -0.710257;-0.342143; 0.615162;, - 0.000000;-0.104556; 0.994507;, - 0.918882; 0.282052; 0.275796;, - 0.907407; 0.043580; 0.417951;, - 0.838343; 0.304514; 0.452132;, - -0.838343; 0.304514; 0.452132;, - -0.907407; 0.043580; 0.417951;, - -0.918882; 0.282052; 0.275796;, - 0.911985;-0.350444; 0.213172;, - 0.908231;-0.318979; 0.270821;, - 0.701468;-0.512680; 0.495041;, - -0.701468;-0.512680; 0.495041;, - -0.908231;-0.318979; 0.270821;, - -0.911985;-0.350444; 0.213172;, - 0.911985;-0.350444; 0.213172;, - 0.743156;-0.600757; 0.294565;, - 0.945311;-0.182134; 0.270516;, - -0.945311;-0.182134; 0.270516;, - -0.743156;-0.600757; 0.294565;, - -0.911985;-0.350444; 0.213172;, - 0.743156;-0.600757; 0.294565;, - 0.566210;-0.705313; 0.426435;, - 0.912961;-0.218909; 0.344279;, - -0.912961;-0.218909; 0.344279;, - -0.566210;-0.705313; 0.426435;, - -0.743156;-0.600757; 0.294565;, - 0.908231;-0.318979; 0.270821;, - 0.911985;-0.350444; 0.213172;, - 0.945311;-0.182134; 0.270516;, - -0.945311;-0.182134; 0.270516;, - -0.911985;-0.350444; 0.213172;, - -0.908231;-0.318979; 0.270821;, - 0.751701;-0.361248; 0.551714;, - 0.701468;-0.512680; 0.495041;, - 0.912625;-0.325816; 0.246773;, - -0.912625;-0.325816; 0.246773;, - -0.701468;-0.512680; 0.495041;, - -0.751701;-0.361248; 0.551714;, - 0.701468;-0.512680; 0.495041;, - 0.908231;-0.318979; 0.270821;, - 0.912625;-0.325816; 0.246773;, - -0.912625;-0.325816; 0.246773;, - -0.908231;-0.318979; 0.270821;, - -0.701468;-0.512680; 0.495041;, - 0.743156;-0.600757; 0.294565;, - 0.937986;-0.159490; 0.307718;, - 0.945311;-0.182134; 0.270516;, - -0.945311;-0.182134; 0.270516;, - -0.937986;-0.159490; 0.307718;, - -0.743156;-0.600757; 0.294565;, - 0.743156;-0.600757; 0.294565;, - 0.912961;-0.218909; 0.344279;, - 0.937986;-0.159490; 0.307718;, - -0.937986;-0.159490; 0.307718;, - -0.912961;-0.218909; 0.344279;, - -0.743156;-0.600757; 0.294565;, - 0.908231;-0.318979; 0.270821;, - 0.971526;-0.104617; 0.212531;, - 0.998016;-0.057863;-0.023865;, - -0.998016;-0.057863;-0.023865;, - -0.971526;-0.104617; 0.212531;, - -0.908231;-0.318979; 0.270821;, - 0.908231;-0.318979; 0.270821;, - 0.945311;-0.182134; 0.270516;, - 0.971526;-0.104617; 0.212531;, - -0.971526;-0.104617; 0.212531;, - -0.945311;-0.182134; 0.270516;, - -0.908231;-0.318979; 0.270821;, - 0.388531; 0.063021;-0.919248;, - 0.364452; 0.384259;-0.848201;, - 0.794214;-0.175787;-0.581591;, - -0.794214;-0.175787;-0.581591;, - -0.364452; 0.384259;-0.848201;, - -0.388531; 0.063021;-0.919248;, - 0.726798; 0.418226;-0.544786;, - 0.388531; 0.063021;-0.919248;, - 0.794214;-0.175787;-0.581591;, - -0.794214;-0.175787;-0.581591;, - -0.388531; 0.063021;-0.919248;, - -0.726798; 0.418226;-0.544786;, - 0.998016;-0.057863;-0.023865;, - 0.726798; 0.418226;-0.544786;, - 0.794214;-0.175787;-0.581591;, - -0.794214;-0.175787;-0.581591;, - -0.726798; 0.418226;-0.544786;, - -0.998016;-0.057863;-0.023865;, - 0.893307; 0.444624; 0.065127;, - 0.726798; 0.418226;-0.544786;, - 0.998016;-0.057863;-0.023865;, - -0.998016;-0.057863;-0.023865;, - -0.726798; 0.418226;-0.544786;, - -0.893307; 0.444624; 0.065127;, - 0.971526;-0.104617; 0.212531;, - 0.893307; 0.444624; 0.065127;, - 0.998016;-0.057863;-0.023865;, - -0.998016;-0.057863;-0.023865;, - -0.893307; 0.444624; 0.065127;, - -0.971526;-0.104617; 0.212531;, - 0.926450; 0.260445; 0.271676;, - 0.893307; 0.444624; 0.065127;, - 0.971526;-0.104617; 0.212531;, - -0.971526;-0.104617; 0.212531;, - -0.893307; 0.444624; 0.065127;, - -0.926450; 0.260445; 0.271676;, - 0.926450; 0.260445; 0.271676;, - 0.971526;-0.104617; 0.212531;, - 0.945311;-0.182134; 0.270516;, - -0.945311;-0.182134; 0.270516;, - -0.971526;-0.104617; 0.212531;, - -0.926450; 0.260445; 0.271676;, - 0.937986;-0.159490; 0.307718;, - 0.926450; 0.260445; 0.271676;, - 0.945311;-0.182134; 0.270516;, - -0.945311;-0.182134; 0.270516;, - -0.926450; 0.260445; 0.271676;, - -0.937986;-0.159490; 0.307718;, - 0.907407; 0.043580; 0.417951;, - 0.926450; 0.260445; 0.271676;, - 0.937986;-0.159490; 0.307718;, - -0.937986;-0.159490; 0.307718;, - -0.926450; 0.260445; 0.271676;, - -0.907407; 0.043580; 0.417951;, - 0.907407; 0.043580; 0.417951;, - 0.937986;-0.159490; 0.307718;, - 0.912961;-0.218909; 0.344279;, - -0.912961;-0.218909; 0.344279;, - -0.937986;-0.159490; 0.307718;, - -0.907407; 0.043580; 0.417951;, - 0.388531; 0.063021;-0.919248;, - 0.168950; 0.241188;-0.955626;, - 0.364452; 0.384259;-0.848201;, - -0.364452; 0.384259;-0.848201;, - -0.168950; 0.241188;-0.955626;, - -0.388531; 0.063021;-0.919248;, - 0.168950; 0.241188;-0.955626;, - 0.388531; 0.063021;-0.919248;, - 0.726798; 0.418226;-0.544786;, - -0.726798; 0.418226;-0.544786;, - -0.388531; 0.063021;-0.919248;, - -0.168950; 0.241188;-0.955626;, - 0.000000; 0.571368;-0.820673;, - 0.364452; 0.384259;-0.848201;, - 0.168950; 0.241188;-0.955626;, - -0.168950; 0.241188;-0.955626;, - -0.364452; 0.384259;-0.848201;, - 0.000000; 0.571368;-0.820673;, - 0.168950; 0.241188;-0.955626;, - 0.000000; 0.562639;-0.826655;, - 0.000000; 0.571368;-0.820673;, - 0.000000; 0.571368;-0.820673;, - 0.000000; 0.562639;-0.826655;, - -0.168950; 0.241188;-0.955626;, - 0.168950; 0.241188;-0.955626;, - 0.726798; 0.418226;-0.544786;, - 0.000000; 0.562639;-0.826655;, - 0.000000; 0.562639;-0.826655;, - -0.726798; 0.418226;-0.544786;, - -0.168950; 0.241188;-0.955626;, - 0.000000; 0.562639;-0.826655;, - 0.726798; 0.418226;-0.544786;, - 0.000000; 0.997497;-0.070467;, - 0.000000; 0.997497;-0.070467;, - -0.726798; 0.418226;-0.544786;, - 0.000000; 0.562639;-0.826655;, - 0.893307; 0.444624; 0.065127;, - 0.926450; 0.260445; 0.271676;, - 0.831385; 0.542833;-0.118717;, - -0.831385; 0.542833;-0.118717;, - -0.926450; 0.260445; 0.271676;, - -0.893307; 0.444624; 0.065127;, - 0.831385; 0.542833;-0.118717;, - 0.926450; 0.260445; 0.271676;, - 0.918882; 0.282052; 0.275796;, - -0.918882; 0.282052; 0.275796;, - -0.926450; 0.260445; 0.271676;, - -0.831385; 0.542833;-0.118717;, - 0.926450; 0.260445; 0.271676;, - 0.907407; 0.043580; 0.417951;, - 0.918882; 0.282052; 0.275796;, - -0.918882; 0.282052; 0.275796;, - -0.907407; 0.043580; 0.417951;, - -0.926450; 0.260445; 0.271676;, - 0.893307; 0.444624; 0.065127;, - 0.607959; 0.683004;-0.404736;, - 0.726798; 0.418226;-0.544786;, - -0.726798; 0.418226;-0.544786;, - -0.607959; 0.683004;-0.404736;, - -0.893307; 0.444624; 0.065127;, - 0.000000; 0.997497;-0.070467;, - 0.607959; 0.683004;-0.404736;, - -0.134281; 0.990936;-0.001923;, - 0.134281; 0.990936;-0.001923;, - -0.607959; 0.683004;-0.404736;, - 0.000000; 0.997497;-0.070467;, - 0.000000; 0.997497;-0.070467;, - 0.726798; 0.418226;-0.544786;, - 0.607959; 0.683004;-0.404736;, - -0.607959; 0.683004;-0.404736;, - -0.726798; 0.418226;-0.544786;, - 0.000000; 0.997497;-0.070467;, - 0.607959; 0.683004;-0.404736;, - 0.893307; 0.444624; 0.065127;, - 0.831385; 0.542833;-0.118717;, - -0.831385; 0.542833;-0.118717;, - -0.893307; 0.444624; 0.065127;, - -0.607959; 0.683004;-0.404736;, - -0.134281; 0.990936;-0.001923;, - 0.607959; 0.683004;-0.404736;, - 0.831385; 0.542833;-0.118717;, - -0.831385; 0.542833;-0.118717;, - -0.607959; 0.683004;-0.404736;, - 0.134281; 0.990936;-0.001923;, - 0.000000;-0.750877; 0.660421;, - 0.710257;-0.342143; 0.615162;, - 0.566210;-0.705313; 0.426435;, - -0.566210;-0.705313; 0.426435;, - -0.710257;-0.342143; 0.615162;, - 0.000000;-0.750877; 0.660421;, - 0.566210;-0.705313; 0.426435;, - 0.710257;-0.342143; 0.615162;, - 0.912961;-0.218909; 0.344279;, - -0.912961;-0.218909; 0.344279;, - -0.710257;-0.342143; 0.615162;, - -0.566210;-0.705313; 0.426435;, - 0.912961;-0.218909; 0.344279;, - 0.710257;-0.342143; 0.615162;, - 0.907407; 0.043580; 0.417951;, - -0.907407; 0.043580; 0.417951;, - -0.710257;-0.342143; 0.615162;, - -0.912961;-0.218909; 0.344279;, - 0.908231;-0.318979; 0.270821;, - 0.919980;-0.379284; 0.098544;, - 0.912625;-0.325816; 0.246773;, - -0.912625;-0.325816; 0.246773;, - -0.919980;-0.379284; 0.098544;, - -0.908231;-0.318979; 0.270821;, - 0.908231;-0.318979; 0.270821;, - 0.998016;-0.057863;-0.023865;, - 0.919980;-0.379284; 0.098544;, - -0.919980;-0.379284; 0.098544;, - -0.998016;-0.057863;-0.023865;, - -0.908231;-0.318979; 0.270821;, - 0.998016;-0.057863;-0.023865;, - 0.794214;-0.175787;-0.581591;, - 0.919980;-0.379284; 0.098544;, - -0.919980;-0.379284; 0.098544;, - -0.794214;-0.175787;-0.581591;, - -0.998016;-0.057863;-0.023865;, - 0.919980;-0.379284; 0.098544;, - 0.794214;-0.175787;-0.581591;, - 0.753807;-0.197363;-0.626698;, - -0.753807;-0.197363;-0.626698;, - -0.794214;-0.175787;-0.581591;, - -0.919980;-0.379284; 0.098544;, - 0.794214;-0.175787;-0.581591;, - 0.364452; 0.384259;-0.848201;, - 0.753807;-0.197363;-0.626698;, - -0.753807;-0.197363;-0.626698;, - -0.364452; 0.384259;-0.848201;, - -0.794214;-0.175787;-0.581591;, - -0.533341;-0.837306;-0.120151;, - -0.468764;-0.705222; 0.531877;, - -0.452467;-0.875576;-0.169073;, - 0.452467;-0.875576;-0.169073;, - 0.468764;-0.705222; 0.531877;, - 0.533341;-0.837306;-0.120151;, - -0.533341;-0.837306;-0.120151;, - -0.452467;-0.875576;-0.169073;, - 0.509354;-0.860439; 0.013733;, - -0.509354;-0.860439; 0.013733;, - 0.452467;-0.875576;-0.169073;, - 0.533341;-0.837306;-0.120151;, - 0.742485;-0.664144;-0.087191;, - 0.509354;-0.860439; 0.013733;, - 0.689047;-0.519791;-0.504929;, - -0.689047;-0.519791;-0.504929;, - -0.509354;-0.860439; 0.013733;, - -0.742485;-0.664144;-0.087191;, - 0.561571;-0.546068; 0.621601;, - 0.182989;-0.798639; 0.573290;, - 0.501206;-0.609119; 0.614551;, - -0.501206;-0.609119; 0.614551;, - -0.182989;-0.798639; 0.573290;, - -0.561571;-0.546068; 0.621601;, - 0.935972;-0.349620;-0.041292;, - 0.561571;-0.546068; 0.621601;, - 0.501206;-0.609119; 0.614551;, - -0.501206;-0.609119; 0.614551;, - -0.561571;-0.546068; 0.621601;, - -0.935972;-0.349620;-0.041292;, - 0.771203;-0.601032; 0.209632;, - 0.935972;-0.349620;-0.041292;, - 0.501206;-0.609119; 0.614551;, - -0.501206;-0.609119; 0.614551;, - -0.935972;-0.349620;-0.041292;, - -0.771203;-0.601032; 0.209632;, - 0.689047;-0.519791;-0.504929;, - 0.935972;-0.349620;-0.041292;, - 0.771203;-0.601032; 0.209632;, - -0.771203;-0.601032; 0.209632;, - -0.935972;-0.349620;-0.041292;, - -0.689047;-0.519791;-0.504929;, - 0.742485;-0.664144;-0.087191;, - 0.689047;-0.519791;-0.504929;, - 0.771203;-0.601032; 0.209632;, - -0.771203;-0.601032; 0.209632;, - -0.689047;-0.519791;-0.504929;, - -0.742485;-0.664144;-0.087191;, - 0.689047;-0.519791;-0.504929;, - 0.609790;-0.784509;-0.112491;, - 0.935972;-0.349620;-0.041292;, - -0.935972;-0.349620;-0.041292;, - -0.609790;-0.784509;-0.112491;, - -0.689047;-0.519791;-0.504929;, - 0.609790;-0.784509;-0.112491;, - 0.561571;-0.546068; 0.621601;, - 0.935972;-0.349620;-0.041292;, - -0.935972;-0.349620;-0.041292;, - -0.561571;-0.546068; 0.621601;, - -0.609790;-0.784509;-0.112491;, - 0.182989;-0.798639; 0.573290;, - -0.468764;-0.705222; 0.531877;, - -0.533341;-0.837306;-0.120151;, - 0.533341;-0.837306;-0.120151;, - 0.468764;-0.705222; 0.531877;, - -0.182989;-0.798639; 0.573290;, - -0.468764;-0.705222; 0.531877;, - -0.221564;-0.812647;-0.538926;, - -0.035035;-0.831690;-0.554125;, - 0.035035;-0.831690;-0.554125;, - 0.221564;-0.812647;-0.538926;, - 0.468764;-0.705222; 0.531877;, - 0.561571;-0.546068; 0.621601;, - -0.468764;-0.705222; 0.531877;, - 0.182989;-0.798639; 0.573290;, - -0.182989;-0.798639; 0.573290;, - 0.468764;-0.705222; 0.531877;, - -0.561571;-0.546068; 0.621601;, - 0.609790;-0.784509;-0.112491;, - 0.509751;-0.543443;-0.666921;, - 0.561571;-0.546068; 0.621601;, - -0.561571;-0.546068; 0.621601;, - -0.509751;-0.543443;-0.666921;, - -0.609790;-0.784509;-0.112491;, - -0.221564;-0.812647;-0.538926;, - 0.509751;-0.543443;-0.666921;, - -0.035035;-0.831690;-0.554125;, - 0.035035;-0.831690;-0.554125;, - -0.509751;-0.543443;-0.666921;, - 0.221564;-0.812647;-0.538926;, - -0.035035;-0.831690;-0.554125;, - 0.509751;-0.543443;-0.666921;, - 0.609790;-0.784509;-0.112491;, - -0.609790;-0.784509;-0.112491;, - -0.509751;-0.543443;-0.666921;, - 0.035035;-0.831690;-0.554125;, - 0.509751;-0.543443;-0.666921;, - -0.221564;-0.812647;-0.538926;, - 0.561571;-0.546068; 0.621601;, - -0.561571;-0.546068; 0.621601;, - 0.221564;-0.812647;-0.538926;, - -0.509751;-0.543443;-0.666921;, - -0.221564;-0.812647;-0.538926;, - -0.468764;-0.705222; 0.531877;, - 0.561571;-0.546068; 0.621601;, - -0.561571;-0.546068; 0.621601;, - 0.468764;-0.705222; 0.531877;, - 0.221564;-0.812647;-0.538926;, - -0.468764;-0.705222; 0.531877;, - -0.035035;-0.831690;-0.554125;, - -0.452467;-0.875576;-0.169073;, - 0.452467;-0.875576;-0.169073;, - 0.035035;-0.831690;-0.554125;, - 0.468764;-0.705222; 0.531877;, - -0.035035;-0.831690;-0.554125;, - 0.609790;-0.784509;-0.112491;, - -0.452467;-0.875576;-0.169073;, - 0.452467;-0.875576;-0.169073;, - -0.609790;-0.784509;-0.112491;, - 0.035035;-0.831690;-0.554125;, - -0.452467;-0.875576;-0.169073;, - 0.609790;-0.784509;-0.112491;, - 0.689047;-0.519791;-0.504929;, - -0.689047;-0.519791;-0.504929;, - -0.609790;-0.784509;-0.112491;, - 0.452467;-0.875576;-0.169073;, - -0.452467;-0.875576;-0.169073;, - 0.689047;-0.519791;-0.504929;, - 0.509354;-0.860439; 0.013733;, - -0.509354;-0.860439; 0.013733;, - -0.689047;-0.519791;-0.504929;, - 0.452467;-0.875576;-0.169073;, - -0.698782;-0.504593; 0.507004;, - -0.864284;-0.421155; 0.274911;, - -0.045595;-0.582629; 0.811426;, - 0.045595;-0.582629; 0.811426;, - 0.864284;-0.421155; 0.274911;, - 0.929594;-0.365856;-0.043916;, - -0.232398;-0.536210; 0.811426;, - -0.698782;-0.504593; 0.507004;, - -0.045595;-0.582629; 0.811426;, - 0.045595;-0.582629; 0.811426;, - 0.929594;-0.365856;-0.043916;, - -0.915769; 0.208441;-0.343303;, - -0.022584;-0.676168; 0.736381;, - -0.232398;-0.536210; 0.811426;, - -0.045595;-0.582629; 0.811426;, - 0.045595;-0.582629; 0.811426;, - -0.915769; 0.208441;-0.343303;, - 0.022584;-0.676168; 0.736381;, - 0.779443;-0.601001;-0.176672;, - -0.232398;-0.536210; 0.811426;, - -0.022584;-0.676168; 0.736381;, - 0.022584;-0.676168; 0.736381;, - -0.915769; 0.208441;-0.343303;, - -0.858943;-0.019501;-0.511643;, - 0.069399;-0.636555; 0.768059;, - 0.779443;-0.601001;-0.176672;, - -0.022584;-0.676168; 0.736381;, - 0.022584;-0.676168; 0.736381;, - -0.858943;-0.019501;-0.511643;, - -0.069399;-0.636555; 0.768059;, - 0.957244;-0.288980;-0.010987;, - 0.779443;-0.601001;-0.176672;, - 0.069399;-0.636555; 0.768059;, - -0.069399;-0.636555; 0.768059;, - -0.858943;-0.019501;-0.511643;, - -0.957244;-0.288980;-0.010987;, - 0.957244;-0.288980;-0.010987;, - 0.069399;-0.636555; 0.768059;, - -0.044008;-0.599841; 0.798883;, - 0.044008;-0.599841; 0.798883;, - -0.069399;-0.636555; 0.768059;, - -0.957244;-0.288980;-0.010987;, - 0.000000;-0.286538; 0.958037;, - 0.957244;-0.288980;-0.010987;, - -0.044008;-0.599841; 0.798883;, - 0.044008;-0.599841; 0.798883;, - -0.957244;-0.288980;-0.010987;, - 0.000000;-0.286538; 0.958037;, - 0.000000;-0.649312; 0.760491;, - 0.000000;-0.286538; 0.958037;, - -0.044008;-0.599841; 0.798883;, - 0.044008;-0.599841; 0.798883;, - 0.000000;-0.286538; 0.958037;, - 0.000000;-0.649312; 0.760491;, - 0.605274; 0.519303;-0.603259;, - 0.095737; 0.474105;-0.875240;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.095737; 0.474105;-0.875240;, - -0.605274; 0.519303;-0.603259;, - 0.095737; 0.474105;-0.875240;, - 0.656697; 0.292428;-0.695120;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.656697; 0.292428;-0.695120;, - -0.095737; 0.474105;-0.875240;, - 0.656697; 0.292428;-0.695120;, - 0.784753;-0.099826;-0.611682;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.784753;-0.099826;-0.611682;, - -0.656697; 0.292428;-0.695120;, - 0.784753;-0.099826;-0.611682;, - 0.775414;-0.090457;-0.624897;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.775414;-0.090457;-0.624897;, - -0.784753;-0.099826;-0.611682;, - 0.775414;-0.090457;-0.624897;, - 0.784753;-0.099826;-0.611682;, - 0.570055;-0.659627; 0.489761;, - -0.739494;-0.626545;-0.246040;, - -0.784753;-0.099826;-0.611682;, - -0.775414;-0.090457;-0.624897;, - 0.381542;-0.611744; 0.692923;, - 0.775414;-0.090457;-0.624897;, - 0.570055;-0.659627; 0.489761;, - -0.739494;-0.626545;-0.246040;, - -0.775414;-0.090457;-0.624897;, - -0.680898;-0.649953;-0.337474;, - 0.000000;-0.985809;-0.167730;, - 0.381542;-0.611744; 0.692923;, - -0.007752;-0.998505; 0.053591;, - -0.007752;-0.998505; 0.053591;, - -0.680898;-0.649953;-0.337474;, - 0.000000;-0.985809;-0.167730;, - 0.570055;-0.659627; 0.489761;, - 0.381542;-0.611744; 0.692923;, - -0.007752;-0.998505; 0.053591;, - -0.007752;-0.998505; 0.053591;, - -0.739494;-0.626545;-0.246040;, - -0.680898;-0.649953;-0.337474;, - 0.000000; 0.889187;-0.457472;, - 0.364452; 0.384259;-0.848201;, - 0.000000; 0.571368;-0.820673;, - 0.000000; 0.571368;-0.820673;, - -0.364452; 0.384259;-0.848201;, - 0.000000; 0.889187;-0.457472;, - 0.605853; 0.650014;-0.458632;, - 0.364452; 0.384259;-0.848201;, - 0.000000; 0.889187;-0.457472;, - 0.000000; 0.889187;-0.457472;, - -0.364452; 0.384259;-0.848201;, - -0.605853; 0.650014;-0.458632;, - 0.364452; 0.384259;-0.848201;, - 0.605853; 0.650014;-0.458632;, - 0.852412; 0.317972;-0.414991;, - -0.852412; 0.317972;-0.414991;, - -0.605853; 0.650014;-0.458632;, - -0.364452; 0.384259;-0.848201;, - 0.364452; 0.384259;-0.848201;, - 0.852412; 0.317972;-0.414991;, - 0.753807;-0.197363;-0.626698;, - -0.753807;-0.197363;-0.626698;, - -0.852412; 0.317972;-0.414991;, - -0.364452; 0.384259;-0.848201;, - 0.605853; 0.650014;-0.458632;, - 0.879879; 0.339518;-0.332377;, - 0.852412; 0.317972;-0.414991;, - -0.852412; 0.317972;-0.414991;, - -0.879879; 0.339518;-0.332377;, - -0.605853; 0.650014;-0.458632;, - 0.605853; 0.650014;-0.458632;, - 0.610675; 0.238807;-0.754967;, - 0.879879; 0.339518;-0.332377;, - -0.879879; 0.339518;-0.332377;, - -0.610675; 0.238807;-0.754967;, - -0.605853; 0.650014;-0.458632;, - 0.879879; 0.339518;-0.332377;, - 0.610675; 0.238807;-0.754967;, - 0.711478; 0.233345;-0.662801;, - -0.711478; 0.233345;-0.662801;, - -0.610675; 0.238807;-0.754967;, - -0.879879; 0.339518;-0.332377;, - 0.000000; 0.624073;-0.781335;, - 0.605853; 0.650014;-0.458632;, - 0.000000; 0.889187;-0.457472;, - 0.000000; 0.889187;-0.457472;, - -0.605853; 0.650014;-0.458632;, - 0.000000; 0.624073;-0.781335;, - 0.605853; 0.650014;-0.458632;, - 0.000000; 0.624073;-0.781335;, - 0.610675; 0.238807;-0.754967;, - -0.610675; 0.238807;-0.754967;, - 0.000000; 0.624073;-0.781335;, - -0.605853; 0.650014;-0.458632;, - 0.610675; 0.238807;-0.754967;, - 0.000000; 0.624073;-0.781335;, - 0.000000; 0.111087;-0.993805;, - 0.000000; 0.111087;-0.993805;, - 0.000000; 0.624073;-0.781335;, - -0.610675; 0.238807;-0.754967;, - 0.711478; 0.233345;-0.662801;, - 0.610675; 0.238807;-0.754967;, - 0.000000; 0.416791;-0.908963;, - 0.000000; 0.416791;-0.908963;, - -0.610675; 0.238807;-0.754967;, - -0.711478; 0.233345;-0.662801;, - 0.610675; 0.238807;-0.754967;, - 0.000000; 0.111087;-0.993805;, - 0.000000; 0.416791;-0.908963;, - 0.000000; 0.416791;-0.908963;, - 0.000000; 0.111087;-0.993805;, - -0.610675; 0.238807;-0.754967;, - 0.690939; 0.266793;-0.671834;, - 0.711478; 0.233345;-0.662801;, - 0.000000; 0.416791;-0.908963;, - 0.000000; 0.416791;-0.908963;, - -0.711478; 0.233345;-0.662801;, - -0.690939; 0.266793;-0.671834;, - 0.690939; 0.266793;-0.671834;, - 0.000000; 0.416791;-0.908963;, - 0.000000; 0.412580;-0.910886;, - 0.000000; 0.412580;-0.910886;, - 0.000000; 0.416791;-0.908963;, - -0.690939; 0.266793;-0.671834;, - 0.614765;-0.121860;-0.779199;, - 0.690939; 0.266793;-0.671834;, - 0.000000; 0.412580;-0.910886;, - 0.000000; 0.412580;-0.910886;, - -0.690939; 0.266793;-0.671834;, - -0.614765;-0.121860;-0.779199;, - 0.000000;-0.320597;-0.947203;, - 0.614765;-0.121860;-0.779199;, - 0.000000; 0.412580;-0.910886;, - 0.000000; 0.412580;-0.910886;, - -0.614765;-0.121860;-0.779199;, - 0.000000;-0.320597;-0.947203;, - 0.948729;-0.254006;-0.188086;, - 0.711478; 0.233345;-0.662801;, - 0.690939; 0.266793;-0.671834;, - -0.690939; 0.266793;-0.671834;, - -0.711478; 0.233345;-0.662801;, - -0.948729;-0.254006;-0.188086;, - 0.948729;-0.254006;-0.188086;, - 0.690939; 0.266793;-0.671834;, - 0.614765;-0.121860;-0.779199;, - -0.614765;-0.121860;-0.779199;, - -0.690939; 0.266793;-0.671834;, - -0.948729;-0.254006;-0.188086;, - 0.711478; 0.233345;-0.662801;, - 0.948729;-0.254006;-0.188086;, - 0.996277;-0.085421;-0.008637;, - -0.996277;-0.085421;-0.008637;, - -0.948729;-0.254006;-0.188086;, - -0.711478; 0.233345;-0.662801;, - 0.879879; 0.339518;-0.332377;, - 0.711478; 0.233345;-0.662801;, - 0.996277;-0.085421;-0.008637;, - -0.996277;-0.085421;-0.008637;, - -0.711478; 0.233345;-0.662801;, - -0.879879; 0.339518;-0.332377;, - 0.994079; 0.097934;-0.046724;, - 0.879879; 0.339518;-0.332377;, - 0.996277;-0.085421;-0.008637;, - -0.996277;-0.085421;-0.008637;, - -0.879879; 0.339518;-0.332377;, - -0.994079; 0.097934;-0.046724;, - 0.852412; 0.317972;-0.414991;, - 0.879879; 0.339518;-0.332377;, - 0.994079; 0.097934;-0.046724;, - -0.994079; 0.097934;-0.046724;, - -0.879879; 0.339518;-0.332377;, - -0.852412; 0.317972;-0.414991;, - 0.946471;-0.142186;-0.289712;, - 0.852412; 0.317972;-0.414991;, - 0.994079; 0.097934;-0.046724;, - -0.994079; 0.097934;-0.046724;, - -0.852412; 0.317972;-0.414991;, - -0.946471;-0.142186;-0.289712;, - 0.852412; 0.317972;-0.414991;, - 0.946471;-0.142186;-0.289712;, - 0.753807;-0.197363;-0.626698;, - -0.753807;-0.197363;-0.626698;, - -0.946471;-0.142186;-0.289712;, - -0.852412; 0.317972;-0.414991;, - 0.944639;-0.303079;-0.125462;, - 0.946471;-0.142186;-0.289712;, - 0.994079; 0.097934;-0.046724;, - -0.994079; 0.097934;-0.046724;, - -0.946471;-0.142186;-0.289712;, - -0.944639;-0.303079;-0.125462;, - 0.946471;-0.142186;-0.289712;, - 0.950743;-0.285928;-0.119541;, - 0.753807;-0.197363;-0.626698;, - -0.753807;-0.197363;-0.626698;, - -0.950743;-0.285928;-0.119541;, - -0.946471;-0.142186;-0.289712;, - 0.950743;-0.285928;-0.119541;, - 0.946471;-0.142186;-0.289712;, - 0.944639;-0.303079;-0.125462;, - -0.944639;-0.303079;-0.125462;, - -0.946471;-0.142186;-0.289712;, - -0.950743;-0.285928;-0.119541;, - 0.950743;-0.285928;-0.119541;, - 0.919980;-0.379284; 0.098544;, - 0.753807;-0.197363;-0.626698;, - -0.753807;-0.197363;-0.626698;, - -0.919980;-0.379284; 0.098544;, - -0.950743;-0.285928;-0.119541;, - 0.948729;-0.254006;-0.188086;, - 0.614765;-0.121860;-0.779199;, - 0.649129;-0.696860;-0.304880;, - -0.649129;-0.696860;-0.304880;, - -0.614765;-0.121860;-0.779199;, - -0.948729;-0.254006;-0.188086;, - 0.614765;-0.121860;-0.779199;, - 0.000000;-0.320597;-0.947203;, - 0.649129;-0.696860;-0.304880;, - -0.649129;-0.696860;-0.304880;, - 0.000000;-0.320597;-0.947203;, - -0.614765;-0.121860;-0.779199;, - 0.649129;-0.696860;-0.304880;, - 0.000000;-0.320597;-0.947203;, - 0.000000;-0.911924;-0.410321;, - 0.000000;-0.911924;-0.410321;, - 0.000000;-0.320597;-0.947203;, - -0.649129;-0.696860;-0.304880;, - 0.000000;-0.911924;-0.410321;, - 0.000000;-0.649312; 0.760491;, - -0.044008;-0.599841; 0.798883;, - 0.044008;-0.599841; 0.798883;, - 0.000000;-0.649312; 0.760491;, - 0.000000;-0.911924;-0.410321;, - 0.649129;-0.696860;-0.304880;, - 0.000000;-0.911924;-0.410321;, - -0.044008;-0.599841; 0.798883;, - 0.044008;-0.599841; 0.798883;, - 0.000000;-0.911924;-0.410321;, - -0.649129;-0.696860;-0.304880;, - 0.069399;-0.636555; 0.768059;, - 0.649129;-0.696860;-0.304880;, - -0.044008;-0.599841; 0.798883;, - 0.044008;-0.599841; 0.798883;, - -0.649129;-0.696860;-0.304880;, - -0.069399;-0.636555; 0.768059;, - 0.069399;-0.636555; 0.768059;, - 0.948729;-0.254006;-0.188086;, - 0.649129;-0.696860;-0.304880;, - -0.649129;-0.696860;-0.304880;, - -0.948729;-0.254006;-0.188086;, - -0.069399;-0.636555; 0.768059;, - 0.948729;-0.254006;-0.188086;, - 0.069399;-0.636555; 0.768059;, - -0.022584;-0.676168; 0.736381;, - 0.022584;-0.676168; 0.736381;, - -0.069399;-0.636555; 0.768059;, - -0.948729;-0.254006;-0.188086;, - 0.996277;-0.085421;-0.008637;, - 0.948729;-0.254006;-0.188086;, - -0.022584;-0.676168; 0.736381;, - 0.022584;-0.676168; 0.736381;, - -0.948729;-0.254006;-0.188086;, - -0.996277;-0.085421;-0.008637;, - 0.996277;-0.085421;-0.008637;, - -0.022584;-0.676168; 0.736381;, - -0.045595;-0.582629; 0.811426;, - 0.045595;-0.582629; 0.811426;, - 0.022584;-0.676168; 0.736381;, - -0.996277;-0.085421;-0.008637;, - 0.994079; 0.097934;-0.046724;, - 0.996277;-0.085421;-0.008637;, - -0.045595;-0.582629; 0.811426;, - 0.045595;-0.582629; 0.811426;, - -0.996277;-0.085421;-0.008637;, - -0.994079; 0.097934;-0.046724;, - 0.994079; 0.097934;-0.046724;, - -0.045595;-0.582629; 0.811426;, - -0.279763;-0.950682; 0.133671;, - 0.279763;-0.950682; 0.133671;, - 0.045595;-0.582629; 0.811426;, - -0.994079; 0.097934;-0.046724;, - 0.944639;-0.303079;-0.125462;, - 0.994079; 0.097934;-0.046724;, - -0.279763;-0.950682; 0.133671;, - 0.279763;-0.950682; 0.133671;, - -0.994079; 0.097934;-0.046724;, - -0.944639;-0.303079;-0.125462;, - 0.944639;-0.303079;-0.125462;, - -0.279763;-0.950682; 0.133671;, - 0.902249;-0.332438;-0.274545;, - -0.902249;-0.332438;-0.274545;, - 0.279763;-0.950682; 0.133671;, - -0.944639;-0.303079;-0.125462;, - 0.950743;-0.285928;-0.119541;, - 0.944639;-0.303079;-0.125462;, - 0.902249;-0.332438;-0.274545;, - -0.902249;-0.332438;-0.274545;, - -0.944639;-0.303079;-0.125462;, - -0.950743;-0.285928;-0.119541;, - 0.919980;-0.379284; 0.098544;, - 0.950743;-0.285928;-0.119541;, - 0.920988;-0.386822; 0.045961;, - -0.920988;-0.386822; 0.045961;, - -0.950743;-0.285928;-0.119541;, - -0.919980;-0.379284; 0.098544;, - 0.950743;-0.285928;-0.119541;, - 0.902249;-0.332438;-0.274545;, - 0.920988;-0.386822; 0.045961;, - -0.920988;-0.386822; 0.045961;, - -0.902249;-0.332438;-0.274545;, - -0.950743;-0.285928;-0.119541;, - 0.902249;-0.332438;-0.274545;, - 0.950957;-0.288369; 0.111759;, - 0.920988;-0.386822; 0.045961;, - -0.920988;-0.386822; 0.045961;, - -0.950957;-0.288369; 0.111759;, - -0.902249;-0.332438;-0.274545;, - 0.912625;-0.325816; 0.246773;, - 0.919980;-0.379284; 0.098544;, - 0.920988;-0.386822; 0.045961;, - -0.920988;-0.386822; 0.045961;, - -0.919980;-0.379284; 0.098544;, - -0.912625;-0.325816; 0.246773;, - 0.912625;-0.325816; 0.246773;, - 0.920988;-0.386822; 0.045961;, - 0.950957;-0.288369; 0.111759;, - -0.950957;-0.288369; 0.111759;, - -0.920988;-0.386822; 0.045961;, - -0.912625;-0.325816; 0.246773;, - 0.950957;-0.288369; 0.111759;, - 0.751701;-0.361248; 0.551714;, - 0.912625;-0.325816; 0.246773;, - -0.912625;-0.325816; 0.246773;, - -0.751701;-0.361248; 0.551714;, - -0.950957;-0.288369; 0.111759;, - 0.978515;-0.173315; 0.111484;, - 0.751701;-0.361248; 0.551714;, - 0.950957;-0.288369; 0.111759;, - -0.950957;-0.288369; 0.111759;, - -0.751701;-0.361248; 0.551714;, - -0.978515;-0.173315; 0.111484;, - 0.751701;-0.361248; 0.551714;, - 0.978515;-0.173315; 0.111484;, - 0.930387;-0.108280; 0.350169;, - -0.930387;-0.108280; 0.350169;, - -0.978515;-0.173315; 0.111484;, - -0.751701;-0.361248; 0.551714;, - 0.978515;-0.173315; 0.111484;, - 0.859462;-0.408429; 0.307352;, - 0.930387;-0.108280; 0.350169;, - -0.930387;-0.108280; 0.350169;, - -0.859462;-0.408429; 0.307352;, - -0.978515;-0.173315; 0.111484;, - 0.978515;-0.173315; 0.111484;, - 0.950957;-0.288369; 0.111759;, - 0.902249;-0.332438;-0.274545;, - -0.902249;-0.332438;-0.274545;, - -0.950957;-0.288369; 0.111759;, - -0.978515;-0.173315; 0.111484;, - 0.978515;-0.173315; 0.111484;, - 0.902249;-0.332438;-0.274545;, - 0.605274; 0.519303;-0.603259;, - -0.605274; 0.519303;-0.603259;, - -0.902249;-0.332438;-0.274545;, - -0.978515;-0.173315; 0.111484;, - 0.978515;-0.173315; 0.111484;, - 0.605274; 0.519303;-0.603259;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.605274; 0.519303;-0.603259;, - -0.978515;-0.173315; 0.111484;, - 0.859462;-0.408429; 0.307352;, - 0.978515;-0.173315; 0.111484;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.978515;-0.173315; 0.111484;, - -0.859462;-0.408429; 0.307352;, - 0.775414;-0.090457;-0.624897;, - 0.859462;-0.408429; 0.307352;, - 0.938139; 0.095889;-0.332682;, - -0.938139; 0.095889;-0.332682;, - -0.859462;-0.408429; 0.307352;, - -0.775414;-0.090457;-0.624897;, - 0.775414;-0.090457;-0.624897;, - 0.619739;-0.533158; 0.575854;, - 0.859462;-0.408429; 0.307352;, - -0.859462;-0.408429; 0.307352;, - -0.619739;-0.533158; 0.575854;, - -0.775414;-0.090457;-0.624897;, - 0.619739;-0.533158; 0.575854;, - 0.775414;-0.090457;-0.624897;, - 0.381542;-0.611744; 0.692923;, - -0.680898;-0.649953;-0.337474;, - -0.775414;-0.090457;-0.624897;, - -0.619739;-0.533158; 0.575854;, - 0.385968;-0.616718; 0.686026;, - 0.619739;-0.533158; 0.575854;, - 0.381542;-0.611744; 0.692923;, - -0.680898;-0.649953;-0.337474;, - -0.619739;-0.533158; 0.575854;, - -0.385968;-0.616718; 0.686026;, - 0.385968;-0.616718; 0.686026;, - 0.381542;-0.611744; 0.692923;, - 0.000000;-0.985809;-0.167730;, - 0.000000;-0.985809;-0.167730;, - -0.680898;-0.649953;-0.337474;, - -0.385968;-0.616718; 0.686026;, - 0.385968;-0.616718; 0.686026;, - 0.000000;-0.985809;-0.167730;, - 0.000000;-0.714347; 0.699759;, - 0.000000;-0.714347; 0.699759;, - 0.000000;-0.985809;-0.167730;, - -0.385968;-0.616718; 0.686026;, - 0.501206;-0.609119; 0.614551;, - 0.619739;-0.533158; 0.575854;, - 0.385968;-0.616718; 0.686026;, - -0.385968;-0.616718; 0.686026;, - -0.619739;-0.533158; 0.575854;, - -0.501206;-0.609119; 0.614551;, - 0.501206;-0.609119; 0.614551;, - 0.385968;-0.616718; 0.686026;, - 0.000000;-0.714347; 0.699759;, - 0.000000;-0.714347; 0.699759;, - -0.385968;-0.616718; 0.686026;, - -0.501206;-0.609119; 0.614551;, - 0.859462;-0.408429; 0.307352;, - 0.619739;-0.533158; 0.575854;, - 0.501206;-0.609119; 0.614551;, - -0.501206;-0.609119; 0.614551;, - -0.619739;-0.533158; 0.575854;, - -0.859462;-0.408429; 0.307352;, - 0.501206;-0.609119; 0.614551;, - 0.000000;-0.714347; 0.699759;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.714347; 0.699759;, - -0.501206;-0.609119; 0.614551;, - 0.771203;-0.601032; 0.209632;, - 0.501206;-0.609119; 0.614551;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.928709; 0.370769;, - -0.501206;-0.609119; 0.614551;, - -0.771203;-0.601032; 0.209632;, - 0.182989;-0.798639; 0.573290;, - 0.859462;-0.408429; 0.307352;, - 0.501206;-0.609119; 0.614551;, - -0.501206;-0.609119; 0.614551;, - -0.859462;-0.408429; 0.307352;, - -0.182989;-0.798639; 0.573290;, - 0.182989;-0.798639; 0.573290;, - -0.533341;-0.837306;-0.120151;, - 0.859462;-0.408429; 0.307352;, - -0.859462;-0.408429; 0.307352;, - 0.533341;-0.837306;-0.120151;, - -0.182989;-0.798639; 0.573290;, - -0.533341;-0.837306;-0.120151;, - 0.482986;-0.131108; 0.865719;, - 0.859462;-0.408429; 0.307352;, - -0.859462;-0.408429; 0.307352;, - -0.482986;-0.131108; 0.865719;, - 0.533341;-0.837306;-0.120151;, - 0.742485;-0.664144;-0.087191;, - -0.302805;-0.714530; 0.630634;, - 0.482986;-0.131108; 0.865719;, - -0.482986;-0.131108; 0.865719;, - 0.302805;-0.714530; 0.630634;, - -0.742485;-0.664144;-0.087191;, - 0.742485;-0.664144;-0.087191;, - 0.771203;-0.601032; 0.209632;, - -0.302805;-0.714530; 0.630634;, - 0.302805;-0.714530; 0.630634;, - -0.771203;-0.601032; 0.209632;, - -0.742485;-0.664144;-0.087191;, - -0.302805;-0.714530; 0.630634;, - 0.771203;-0.601032; 0.209632;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.928709; 0.370769;, - -0.771203;-0.601032; 0.209632;, - 0.302805;-0.714530; 0.630634;, - 0.859462;-0.408429; 0.307352;, - 0.482986;-0.131108; 0.865719;, - 0.930387;-0.108280; 0.350169;, - -0.930387;-0.108280; 0.350169;, - -0.482986;-0.131108; 0.865719;, - -0.859462;-0.408429; 0.307352;, - 0.482986;-0.131108; 0.865719;, - 0.559435; 0.071444; 0.825770;, - 0.930387;-0.108280; 0.350169;, - -0.930387;-0.108280; 0.350169;, - -0.559435; 0.071444; 0.825770;, - -0.482986;-0.131108; 0.865719;, - 0.103549; 0.517197; 0.849574;, - 0.559435; 0.071444; 0.825770;, - 0.482986;-0.131108; 0.865719;, - -0.482986;-0.131108; 0.865719;, - -0.559435; 0.071444; 0.825770;, - -0.103549; 0.517197; 0.849574;, - -0.720267; 0.081332; 0.688864;, - 0.103549; 0.517197; 0.849574;, - 0.482986;-0.131108; 0.865719;, - -0.482986;-0.131108; 0.865719;, - -0.103549; 0.517197; 0.849574;, - 0.720267; 0.081332; 0.688864;, - -0.302805;-0.714530; 0.630634;, - -0.720267; 0.081332; 0.688864;, - 0.482986;-0.131108; 0.865719;, - -0.482986;-0.131108; 0.865719;, - 0.720267; 0.081332; 0.688864;, - 0.302805;-0.714530; 0.630634;, - -0.720267; 0.081332; 0.688864;, - -0.302805;-0.714530; 0.630634;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.928709; 0.370769;, - 0.302805;-0.714530; 0.630634;, - 0.720267; 0.081332; 0.688864;, - -0.720267; 0.081332; 0.688864;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.243141; 0.969970;, - 0.000000;-0.243141; 0.969970;, - 0.000000;-0.928709; 0.370769;, - 0.720267; 0.081332; 0.688864;, - 0.103549; 0.517197; 0.849574;, - -0.720267; 0.081332; 0.688864;, - 0.000000;-0.243141; 0.969970;, - 0.000000;-0.243141; 0.969970;, - 0.720267; 0.081332; 0.688864;, - -0.103549; 0.517197; 0.849574;, - 0.559435; 0.071444; 0.825770;, - 0.103549; 0.517197; 0.849574;, - 0.000000;-0.243141; 0.969970;, - 0.000000;-0.243141; 0.969970;, - -0.103549; 0.517197; 0.849574;, - -0.559435; 0.071444; 0.825770;, - 0.559435; 0.071444; 0.825770;, - 0.751701;-0.361248; 0.551714;, - 0.930387;-0.108280; 0.350169;, - -0.930387;-0.108280; 0.350169;, - -0.751701;-0.361248; 0.551714;, - -0.559435; 0.071444; 0.825770;, - -0.279763;-0.950682; 0.133671;, - -0.045595;-0.582629; 0.811426;, - -0.864284;-0.421155; 0.274911;, - 0.864284;-0.421155; 0.274911;, - 0.045595;-0.582629; 0.811426;, - 0.279763;-0.950682; 0.133671;, - -0.533341;-0.837306;-0.120151;, - 0.509354;-0.860439; 0.013733;, - 0.482986;-0.131108; 0.865719;, - -0.482986;-0.131108; 0.865719;, - -0.509354;-0.860439; 0.013733;, - 0.533341;-0.837306;-0.120151;, - 0.742485;-0.664144;-0.087191;, - 0.482986;-0.131108; 0.865719;, - 0.509354;-0.860439; 0.013733;, - -0.509354;-0.860439; 0.013733;, - -0.482986;-0.131108; 0.865719;, - -0.742485;-0.664144;-0.087191;, - 0.902249;-0.332438;-0.274545;, - -0.279763;-0.950682; 0.133671;, - -0.708884;-0.111515;-0.696402;, - 0.708884;-0.111515;-0.696402;, - 0.279763;-0.950682; 0.133671;, - -0.902249;-0.332438;-0.274545;, - -0.279763;-0.950682; 0.133671;, - -0.605426;-0.683218;-0.408216;, - -0.708884;-0.111515;-0.696402;, - 0.708884;-0.111515;-0.696402;, - 0.605426;-0.683218;-0.408216;, - 0.279763;-0.950682; 0.133671;, - -0.279763;-0.950682; 0.133671;, - -0.412305;-0.813044; 0.410993;, - -0.605426;-0.683218;-0.408216;, - 0.605426;-0.683218;-0.408216;, - 0.412305;-0.813044; 0.410993;, - 0.279763;-0.950682; 0.133671;, - -0.864284;-0.421155; 0.274911;, - -0.412305;-0.813044; 0.410993;, - -0.279763;-0.950682; 0.133671;, - 0.279763;-0.950682; 0.133671;, - 0.412305;-0.813044; 0.410993;, - 0.864284;-0.421155; 0.274911;, - 0.165990;-0.595355; 0.786096;, - -0.412305;-0.813044; 0.410993;, - -0.864284;-0.421155; 0.274911;, - 0.864284;-0.421155; 0.274911;, - 0.412305;-0.813044; 0.410993;, - -0.165990;-0.595355; 0.786096;, - 0.573992;-0.391705; 0.719047;, - -0.412305;-0.813044; 0.410993;, - 0.165990;-0.595355; 0.786096;, - -0.165990;-0.595355; 0.786096;, - 0.412305;-0.813044; 0.410993;, - -0.573992;-0.391705; 0.719047;, - 0.000000;-0.998840;-0.048006;, - -0.605426;-0.683218;-0.408216;, - -0.412305;-0.813044; 0.410993;, - 0.412305;-0.813044; 0.410993;, - 0.605426;-0.683218;-0.408216;, - 0.000000;-0.998840;-0.048006;, - 0.000000;-0.998840;-0.048006;, - -0.412305;-0.813044; 0.410993;, - 0.573992;-0.391705; 0.719047;, - -0.573992;-0.391705; 0.719047;, - 0.412305;-0.813044; 0.410993;, - 0.000000;-0.998840;-0.048006;, - 0.000000;-0.066073;-0.997803;, - -0.605426;-0.683218;-0.408216;, - 0.000000;-0.998840;-0.048006;, - 0.000000;-0.998840;-0.048006;, - 0.605426;-0.683218;-0.408216;, - 0.000000;-0.066073;-0.997803;, - -0.605426;-0.683218;-0.408216;, - 0.000000;-0.066073;-0.997803;, - -0.708884;-0.111515;-0.696402;, - 0.708884;-0.111515;-0.696402;, - 0.000000;-0.066073;-0.997803;, - 0.605426;-0.683218;-0.408216;, - 0.000000;-0.066073;-0.997803;, - -0.139317; 0.651631;-0.745628;, - -0.708884;-0.111515;-0.696402;, - 0.708884;-0.111515;-0.696402;, - 0.139317; 0.651631;-0.745628;, - 0.000000;-0.066073;-0.997803;, - 0.000000;-0.066073;-0.997803;, - 0.095737; 0.474105;-0.875240;, - -0.139317; 0.651631;-0.745628;, - 0.139317; 0.651631;-0.745628;, - -0.095737; 0.474105;-0.875240;, - 0.000000;-0.066073;-0.997803;, - 0.000000;-0.066073;-0.997803;, - 0.000000; 0.223395;-0.974700;, - 0.095737; 0.474105;-0.875240;, - -0.095737; 0.474105;-0.875240;, - 0.000000; 0.223395;-0.974700;, - 0.000000;-0.066073;-0.997803;, - 0.000000; 0.223395;-0.974700;, - 0.656697; 0.292428;-0.695120;, - 0.095737; 0.474105;-0.875240;, - -0.095737; 0.474105;-0.875240;, - -0.656697; 0.292428;-0.695120;, - 0.000000; 0.223395;-0.974700;, - 0.000000; 0.223395;-0.974700;, - 0.784753;-0.099826;-0.611682;, - 0.656697; 0.292428;-0.695120;, - -0.656697; 0.292428;-0.695120;, - -0.784753;-0.099826;-0.611682;, - 0.000000; 0.223395;-0.974700;, - 0.000000;-0.442244; 0.896878;, - 0.000000; 0.223395;-0.974700;, - 0.784753;-0.099826;-0.611682;, - 0.000000;-0.442244; 0.896878;, - -0.784753;-0.099826;-0.611682;, - 0.000000; 0.223395;-0.974700;, - 0.570055;-0.659627; 0.489761;, - 0.000000;-0.442244; 0.896878;, - 0.784753;-0.099826;-0.611682;, - -0.739494;-0.626545;-0.246040;, - -0.784753;-0.099826;-0.611682;, - 0.000000;-0.442244; 0.896878;, - -0.007752;-0.998505; 0.053591;, - 0.000000;-0.442244; 0.896878;, - 0.570055;-0.659627; 0.489761;, - -0.007752;-0.998505; 0.053591;, - -0.739494;-0.626545;-0.246040;, - 0.000000;-0.442244; 0.896878;, - 0.165990;-0.595355; 0.786096;, - -0.098148;-0.774743; 0.624561;, - 0.856685;-0.438795; 0.271096;, - -0.515091; 0.428449;-0.742332;, - -0.340220;-0.883450; 0.322092;, - -0.165990;-0.595355; 0.786096;, - 0.917997;-0.321512; 0.232124;, - 0.165990;-0.595355; 0.786096;, - 0.856685;-0.438795; 0.271096;, - -0.515091; 0.428449;-0.742332;, - -0.165990;-0.595355; 0.786096;, - -0.917997;-0.321512; 0.232124;, - -0.098148;-0.774743; 0.624561;, - 0.165990;-0.595355; 0.786096;, - -0.864284;-0.421155; 0.274911;, - 0.864284;-0.421155; 0.274911;, - -0.165990;-0.595355; 0.786096;, - -0.340220;-0.883450; 0.322092;, - 0.573992;-0.391705; 0.719047;, - 0.165990;-0.595355; 0.786096;, - 0.917997;-0.321512; 0.232124;, - -0.917997;-0.321512; 0.232124;, - -0.165990;-0.595355; 0.786096;, - -0.573992;-0.391705; 0.719047;, - 0.948485;-0.316538; 0.011109;, - 0.917997;-0.321512; 0.232124;, - 0.856685;-0.438795; 0.271096;, - -0.515091; 0.428449;-0.742332;, - -0.917997;-0.321512; 0.232124;, - -0.948485;-0.316538; 0.011109;, - 0.000000;-0.998840;-0.048006;, - 0.573992;-0.391705; 0.719047;, - 0.000000;-0.458754; 0.888546;, - 0.000000;-0.458754; 0.888546;, - -0.573992;-0.391705; 0.719047;, - 0.000000;-0.998840;-0.048006;, - 0.000000; 0.560320;-0.828272;, - 0.948485;-0.316538; 0.011109;, - 0.856685;-0.438795; 0.271096;, - -0.515091; 0.428449;-0.742332;, - -0.948485;-0.316538; 0.011109;, - 0.000000; 0.560320;-0.828272;, - 0.856685;-0.438795; 0.271096;, - -0.098148;-0.774743; 0.624561;, - 0.001251; 0.696249;-0.717765;, - -0.340220;-0.883450; 0.322092;, - 0.001251; 0.696249;-0.717765;, - -0.515091; 0.428449;-0.742332;, - 0.228339; 0.672536;-0.703909;, - -0.098148;-0.774743; 0.624561;, - 0.001251; 0.696249;-0.717765;, - -0.375835; 0.606708;-0.700430;, - 0.001251; 0.696249;-0.717765;, - -0.340220;-0.883450; 0.322092;, - 0.228339; 0.672536;-0.703909;, - 0.001251; 0.696249;-0.717765;, - 0.000000; 0.579455;-0.814997;, - -0.375835; 0.606708;-0.700430;, - 0.000000; 0.579455;-0.814997;, - 0.001251; 0.696249;-0.717765;, - 0.292764; 0.362835;-0.884640;, - 0.228339; 0.672536;-0.703909;, - 0.000000; 0.579455;-0.814997;, - -0.292764; 0.362835;-0.884640;, - 0.000000; 0.579455;-0.814997;, - -0.375835; 0.606708;-0.700430;, - 0.292764; 0.362835;-0.884640;, - 0.000000; 0.579455;-0.814997;, - 0.000000; 0.336253;-0.941740;, - -0.292764; 0.362835;-0.884640;, - 0.000000; 0.336253;-0.941740;, - 0.000000; 0.579455;-0.814997;, - -0.698782;-0.504593; 0.507004;, - -0.098148;-0.774743; 0.624561;, - -0.864284;-0.421155; 0.274911;, - 0.864284;-0.421155; 0.274911;, - -0.340220;-0.883450; 0.322092;, - 0.929594;-0.365856;-0.043916;, - -0.232398;-0.536210; 0.811426;, - -0.098148;-0.774743; 0.624561;, - -0.698782;-0.504593; 0.507004;, - -0.340220;-0.883450; 0.322092;, - 0.929594;-0.365856;-0.043916;, - -0.915769; 0.208441;-0.343303;, - -0.098148;-0.774743; 0.624561;, - 0.228339; 0.672536;-0.703909;, - -0.232398;-0.536210; 0.811426;, - -0.340220;-0.883450; 0.322092;, - -0.915769; 0.208441;-0.343303;, - -0.375835; 0.606708;-0.700430;, - 0.779443;-0.601001;-0.176672;, - 0.228339; 0.672536;-0.703909;, - -0.232398;-0.536210; 0.811426;, - -0.375835; 0.606708;-0.700430;, - -0.915769; 0.208441;-0.343303;, - -0.858943;-0.019501;-0.511643;, - 0.228339; 0.672536;-0.703909;, - 0.292764; 0.362835;-0.884640;, - 0.779443;-0.601001;-0.176672;, - -0.375835; 0.606708;-0.700430;, - -0.858943;-0.019501;-0.511643;, - -0.292764; 0.362835;-0.884640;, - 0.292764; 0.362835;-0.884640;, - 0.957244;-0.288980;-0.010987;, - 0.779443;-0.601001;-0.176672;, - -0.292764; 0.362835;-0.884640;, - -0.858943;-0.019501;-0.511643;, - -0.957244;-0.288980;-0.010987;, - 0.292764; 0.362835;-0.884640;, - 0.000000; 0.336253;-0.941740;, - 0.957244;-0.288980;-0.010987;, - -0.292764; 0.362835;-0.884640;, - -0.957244;-0.288980;-0.010987;, - 0.000000; 0.336253;-0.941740;, - 0.000000;-0.286538; 0.958037;, - 0.000000; 0.336253;-0.941740;, - 0.957244;-0.288980;-0.010987;, - -0.957244;-0.288980;-0.010987;, - 0.000000; 0.336253;-0.941740;, - 0.000000;-0.286538; 0.958037;, - -0.139317; 0.651631;-0.745628;, - 0.095737; 0.474105;-0.875240;, - 0.605274; 0.519303;-0.603259;, - -0.605274; 0.519303;-0.603259;, - -0.095737; 0.474105;-0.875240;, - 0.139317; 0.651631;-0.745628;, - 0.902249;-0.332438;-0.274545;, - -0.139317; 0.651631;-0.745628;, - 0.605274; 0.519303;-0.603259;, - -0.605274; 0.519303;-0.603259;, - 0.139317; 0.651631;-0.745628;, - -0.902249;-0.332438;-0.274545;, - -0.708884;-0.111515;-0.696402;, - -0.139317; 0.651631;-0.745628;, - 0.902249;-0.332438;-0.274545;, - -0.902249;-0.332438;-0.274545;, - 0.139317; 0.651631;-0.745628;, - 0.708884;-0.111515;-0.696402;, - 0.000000; 0.548906;-0.835841;, - 0.948485;-0.316538; 0.011109;, - 0.000000; 0.560320;-0.828272;, - 0.000000; 0.560320;-0.828272;, - -0.948485;-0.316538; 0.011109;, - 0.000000; 0.548906;-0.835841;, - 0.989227;-0.042512;-0.139897;, - 0.948485;-0.316538; 0.011109;, - 0.000000; 0.548906;-0.835841;, - 0.000000; 0.548906;-0.835841;, - -0.948485;-0.316538; 0.011109;, - -0.989227;-0.042512;-0.139897;, - 0.881069;-0.406934;-0.240944;, - 0.989227;-0.042512;-0.139897;, - 0.000000; 0.548906;-0.835841;, - 0.000000; 0.548906;-0.835841;, - -0.989227;-0.042512;-0.139897;, - -0.881069;-0.406934;-0.240944;, - 0.000000;-0.529710;-0.848140;, - 0.881069;-0.406934;-0.240944;, - 0.000000; 0.548906;-0.835841;, - 0.000000; 0.548906;-0.835841;, - -0.881069;-0.406934;-0.240944;, - 0.000000;-0.529710;-0.848140;, - 0.000000;-0.954527; 0.298074;, - 0.881069;-0.406934;-0.240944;, - 0.000000;-0.529710;-0.848140;, - 0.000000;-0.529710;-0.848140;, - -0.881069;-0.406934;-0.240944;, - 0.000000;-0.954527; 0.298074;, - 0.000000;-0.954527; 0.298074;, - 0.000000;-0.731071; 0.682272;, - 0.881069;-0.406934;-0.240944;, - -0.881069;-0.406934;-0.240944;, - 0.000000;-0.731071; 0.682272;, - 0.000000;-0.954527; 0.298074;, - 0.000000;-0.731071; 0.682272;, - 0.989227;-0.042512;-0.139897;, - 0.881069;-0.406934;-0.240944;, - -0.881069;-0.406934;-0.240944;, - -0.989227;-0.042512;-0.139897;, - 0.000000;-0.731071; 0.682272;, - 0.948485;-0.316538; 0.011109;, - 0.989227;-0.042512;-0.139897;, - 0.000000;-0.731071; 0.682272;, - 0.000000;-0.731071; 0.682272;, - -0.989227;-0.042512;-0.139897;, - -0.948485;-0.316538; 0.011109;, - 0.000000;-0.747887; 0.663808;, - 0.948485;-0.316538; 0.011109;, - 0.000000;-0.731071; 0.682272;, - 0.000000;-0.731071; 0.682272;, - -0.948485;-0.316538; 0.011109;, - 0.000000;-0.747887; 0.663808;, - 0.917997;-0.321512; 0.232124;, - 0.948485;-0.316538; 0.011109;, - 0.000000;-0.747887; 0.663808;, - 0.000000;-0.747887; 0.663808;, - -0.948485;-0.316538; 0.011109;, - -0.917997;-0.321512; 0.232124;, - 0.000000;-0.686361; 0.727226;, - 0.917997;-0.321512; 0.232124;, - 0.000000;-0.747887; 0.663808;, - 0.000000;-0.747887; 0.663808;, - -0.917997;-0.321512; 0.232124;, - 0.000000;-0.686361; 0.727226;, - 0.000000;-0.686361; 0.727226;, - 0.000000;-0.458754; 0.888546;, - 0.917997;-0.321512; 0.232124;, - -0.917997;-0.321512; 0.232124;, - 0.000000;-0.458754; 0.888546;, - 0.000000;-0.686361; 0.727226;, - 0.000000;-0.458754; 0.888546;, - 0.573992;-0.391705; 0.719047;, - 0.917997;-0.321512; 0.232124;, - -0.917997;-0.321512; 0.232124;, - -0.573992;-0.391705; 0.719047;, - 0.000000;-0.458754; 0.888546;, - -0.066775;-0.881680; 0.467025;, - -0.040376;-0.926084; 0.375072;, - 0.000000;-0.970275; 0.241951;, - 0.000000;-0.970275; 0.241951;, - 0.040376;-0.926084; 0.375072;, - 0.066775;-0.881680; 0.467025;, - -0.040376;-0.926084; 0.375072;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.970275; 0.241951;, - 0.000000;-0.970275; 0.241951;, - 0.000000;-0.928709; 0.370769;, - 0.040376;-0.926084; 0.375072;, - 0.000000;-0.928709; 0.370769;, - 0.162664;-0.936064; 0.311930;, - 0.000000;-0.747795; 0.663869;, - 0.000000;-0.747795; 0.663869;, - -0.162664;-0.936064; 0.311930;, - 0.000000;-0.928709; 0.370769;, - 0.162664;-0.936064; 0.311930;, - 0.160405;-0.961394; 0.223457;, - 0.000000;-0.747795; 0.663869;, - 0.000000;-0.747795; 0.663869;, - -0.160405;-0.961394; 0.223457;, - -0.162664;-0.936064; 0.311930;, - 0.000000;-0.747795; 0.663869;, - 0.160405;-0.961394; 0.223457;, - 0.142491;-0.864162; 0.482559;, - -0.142491;-0.864162; 0.482559;, - -0.160405;-0.961394; 0.223457;, - 0.000000;-0.747795; 0.663869;, - 0.142491;-0.864162; 0.482559;, - 0.160405;-0.961394; 0.223457;, - 0.546556;-0.753746; 0.364849;, - -0.546556;-0.753746; 0.364849;, - -0.160405;-0.961394; 0.223457;, - -0.142491;-0.864162; 0.482559;, - 0.546556;-0.753746; 0.364849;, - 0.160405;-0.961394; 0.223457;, - 0.410596;-0.872311; 0.265358;, - -0.410596;-0.872311; 0.265358;, - -0.160405;-0.961394; 0.223457;, - -0.546556;-0.753746; 0.364849;, - 0.410596;-0.872311; 0.265358;, - 0.799097;-0.544267; 0.255318;, - 0.546556;-0.753746; 0.364849;, - -0.546556;-0.753746; 0.364849;, - -0.799097;-0.544267; 0.255318;, - -0.410596;-0.872311; 0.265358;, - 0.799097;-0.544267; 0.255318;, - 0.776666;-0.554308; 0.299203;, - 0.743156;-0.600757; 0.294565;, - -0.743156;-0.600757; 0.294565;, - -0.776666;-0.554308; 0.299203;, - -0.799097;-0.544267; 0.255318;, - 0.776666;-0.554308; 0.299203;, - 0.410535;-0.768181; 0.491195;, - 0.743156;-0.600757; 0.294565;, - -0.743156;-0.600757; 0.294565;, - -0.410535;-0.768181; 0.491195;, - -0.776666;-0.554308; 0.299203;, - 0.191321;-0.867367; 0.459395;, - 0.566210;-0.705313; 0.426435;, - 0.743156;-0.600757; 0.294565;, - -0.743156;-0.600757; 0.294565;, - -0.566210;-0.705313; 0.426435;, - -0.191321;-0.867367; 0.459395;, - 0.410535;-0.768181; 0.491195;, - 0.191321;-0.867367; 0.459395;, - 0.743156;-0.600757; 0.294565;, - -0.743156;-0.600757; 0.294565;, - -0.191321;-0.867367; 0.459395;, - -0.410535;-0.768181; 0.491195;, - 0.191321;-0.867367; 0.459395;, - -0.066775;-0.881680; 0.467025;, - 0.000000;-0.970275; 0.241951;, - 0.000000;-0.970275; 0.241951;, - 0.066775;-0.881680; 0.467025;, - -0.191321;-0.867367; 0.459395;, - 0.191321;-0.867367; 0.459395;, - 0.000000;-0.970275; 0.241951;, - 0.000000;-0.985321; 0.170598;, - 0.000000;-0.985321; 0.170598;, - 0.000000;-0.970275; 0.241951;, - -0.191321;-0.867367; 0.459395;, - 0.566210;-0.705313; 0.426435;, - 0.191321;-0.867367; 0.459395;, - 0.000000;-0.985321; 0.170598;, - 0.000000;-0.985321; 0.170598;, - -0.191321;-0.867367; 0.459395;, - -0.566210;-0.705313; 0.426435;, - 0.566210;-0.705313; 0.426435;, - 0.000000;-0.985321; 0.170598;, - 0.000000;-0.750877; 0.660421;, - 0.000000;-0.750877; 0.660421;, - 0.000000;-0.985321; 0.170598;, - -0.566210;-0.705313; 0.426435;, - 0.911985;-0.350444; 0.213172;, - 0.799097;-0.544267; 0.255318;, - 0.743156;-0.600757; 0.294565;, - -0.743156;-0.600757; 0.294565;, - -0.799097;-0.544267; 0.255318;, - -0.911985;-0.350444; 0.213172;, - 0.559435; 0.071444; 0.825770;, - 0.701468;-0.512680; 0.495041;, - 0.751701;-0.361248; 0.551714;, - -0.751701;-0.361248; 0.551714;, - -0.701468;-0.512680; 0.495041;, - -0.559435; 0.071444; 0.825770;, - 0.799097;-0.544267; 0.255318;, - 0.819971;-0.548082; 0.165014;, - 0.776666;-0.554308; 0.299203;, - -0.776666;-0.554308; 0.299203;, - -0.819971;-0.548082; 0.165014;, - -0.799097;-0.544267; 0.255318;, - 0.799097;-0.544267; 0.255318;, - 0.410596;-0.872311; 0.265358;, - 0.819971;-0.548082; 0.165014;, - -0.819971;-0.548082; 0.165014;, - -0.410596;-0.872311; 0.265358;, - -0.799097;-0.544267; 0.255318;, - 0.000000;-0.928709; 0.370769;, - -0.136967;-0.943785; 0.300760;, - 0.162664;-0.936064; 0.311930;, - -0.162664;-0.936064; 0.311930;, - 0.136967;-0.943785; 0.300760;, - 0.000000;-0.928709; 0.370769;, - 0.000000;-0.928709; 0.370769;, - -0.040376;-0.926084; 0.375072;, - -0.136967;-0.943785; 0.300760;, - 0.136967;-0.943785; 0.300760;, - 0.040376;-0.926084; 0.375072;, - 0.000000;-0.928709; 0.370769;, - 0.546556;-0.753746; 0.364849;, - 0.799097;-0.544267; 0.255318;, - 0.911985;-0.350444; 0.213172;, - -0.911985;-0.350444; 0.213172;, - -0.799097;-0.544267; 0.255318;, - -0.546556;-0.753746; 0.364849;, - 0.245094;-0.704184; 0.666341;, - 0.142491;-0.864162; 0.482559;, - 0.546556;-0.753746; 0.364849;, - -0.546556;-0.753746; 0.364849;, - -0.142491;-0.864162; 0.482559;, - -0.245094;-0.704184; 0.666341;, - 0.245094;-0.704184; 0.666341;, - 0.701468;-0.512680; 0.495041;, - 0.559435; 0.071444; 0.825770;, - -0.559435; 0.071444; 0.825770;, - -0.701468;-0.512680; 0.495041;, - -0.245094;-0.704184; 0.666341;, - 0.000000;-0.243141; 0.969970;, - 0.245094;-0.704184; 0.666341;, - 0.559435; 0.071444; 0.825770;, - -0.559435; 0.071444; 0.825770;, - -0.245094;-0.704184; 0.666341;, - 0.000000;-0.243141; 0.969970;, - 0.245094;-0.704184; 0.666341;, - 0.000000;-0.243141; 0.969970;, - 0.000000;-0.747795; 0.663869;, - 0.000000;-0.747795; 0.663869;, - 0.000000;-0.243141; 0.969970;, - -0.245094;-0.704184; 0.666341;, - 0.142491;-0.864162; 0.482559;, - 0.245094;-0.704184; 0.666341;, - 0.000000;-0.747795; 0.663869;, - 0.000000;-0.747795; 0.663869;, - -0.245094;-0.704184; 0.666341;, - -0.142491;-0.864162; 0.482559;, - 0.911985;-0.350444; 0.213172;, - 0.469222;-0.743675; 0.476180;, - 0.546556;-0.753746; 0.364849;, - -0.546556;-0.753746; 0.364849;, - -0.469222;-0.743675; 0.476180;, - -0.911985;-0.350444; 0.213172;, - 0.911985;-0.350444; 0.213172;, - 0.701468;-0.512680; 0.495041;, - 0.469222;-0.743675; 0.476180;, - -0.469222;-0.743675; 0.476180;, - -0.701468;-0.512680; 0.495041;, - -0.911985;-0.350444; 0.213172;, - 0.245094;-0.704184; 0.666341;, - 0.469222;-0.743675; 0.476180;, - 0.701468;-0.512680; 0.495041;, - -0.701468;-0.512680; 0.495041;, - -0.469222;-0.743675; 0.476180;, - -0.245094;-0.704184; 0.666341;, - 0.245094;-0.704184; 0.666341;, - 0.546556;-0.753746; 0.364849;, - 0.469222;-0.743675; 0.476180;, - -0.469222;-0.743675; 0.476180;, - -0.546556;-0.753746; 0.364849;, - -0.245094;-0.704184; 0.666341;, - -0.394696;-0.897885; 0.194922;, - 0.162664;-0.936064; 0.311930;, - -0.136967;-0.943785; 0.300760;, - 0.136967;-0.943785; 0.300760;, - -0.162664;-0.936064; 0.311930;, - 0.394696;-0.897885; 0.194922;, - -0.394696;-0.897885; 0.194922;, - -0.136967;-0.943785; 0.300760;, - -0.040376;-0.926084; 0.375072;, - 0.040376;-0.926084; 0.375072;, - 0.136967;-0.943785; 0.300760;, - 0.394696;-0.897885; 0.194922;, - 0.687124;-0.715110; 0.128239;, - 0.776666;-0.554308; 0.299203;, - 0.819971;-0.548082; 0.165014;, - -0.819971;-0.548082; 0.165014;, - -0.776666;-0.554308; 0.299203;, - -0.687124;-0.715110; 0.128239;, - 0.687124;-0.715110; 0.128239;, - 0.819971;-0.548082; 0.165014;, - 0.410596;-0.872311; 0.265358;, - -0.410596;-0.872311; 0.265358;, - -0.819971;-0.548082; 0.165014;, - -0.687124;-0.715110; 0.128239;, - 0.138890;-0.987548; 0.073458;, - -0.394696;-0.897885; 0.194922;, - 0.155187;-0.913602; 0.375805;, - -0.155187;-0.913602; 0.375805;, - 0.394696;-0.897885; 0.194922;, - -0.138890;-0.987548; 0.073458;, - -0.394696;-0.897885; 0.194922;, - -0.437849;-0.816034; 0.377270;, - 0.155187;-0.913602; 0.375805;, - -0.155187;-0.913602; 0.375805;, - 0.437849;-0.816034; 0.377270;, - 0.394696;-0.897885; 0.194922;, - 0.735801;-0.580432; 0.348796;, - 0.687124;-0.715110; 0.128239;, - 0.155187;-0.913602; 0.375805;, - -0.155187;-0.913602; 0.375805;, - -0.687124;-0.715110; 0.128239;, - -0.735801;-0.580432; 0.348796;, - 0.687124;-0.715110; 0.128239;, - 0.138890;-0.987548; 0.073458;, - 0.155187;-0.913602; 0.375805;, - -0.155187;-0.913602; 0.375805;, - -0.138890;-0.987548; 0.073458;, - -0.687124;-0.715110; 0.128239;, - 0.776666;-0.554308; 0.299203;, - 0.687124;-0.715110; 0.128239;, - 0.735801;-0.580432; 0.348796;, - -0.735801;-0.580432; 0.348796;, - -0.687124;-0.715110; 0.128239;, - -0.776666;-0.554308; 0.299203;, - 0.138890;-0.987548; 0.073458;, - 0.687124;-0.715110; 0.128239;, - 0.410596;-0.872311; 0.265358;, - -0.410596;-0.872311; 0.265358;, - -0.687124;-0.715110; 0.128239;, - -0.138890;-0.987548; 0.073458;, - 0.138890;-0.987548; 0.073458;, - 0.162664;-0.936064; 0.311930;, - -0.394696;-0.897885; 0.194922;, - 0.394696;-0.897885; 0.194922;, - -0.162664;-0.936064; 0.311930;, - -0.138890;-0.987548; 0.073458;, - -0.040376;-0.926084; 0.375072;, - -0.437849;-0.816034; 0.377270;, - -0.394696;-0.897885; 0.194922;, - 0.394696;-0.897885; 0.194922;, - 0.437849;-0.816034; 0.377270;, - 0.040376;-0.926084; 0.375072;, - 0.735801;-0.580432; 0.348796;, - 0.410535;-0.768181; 0.491195;, - 0.776666;-0.554308; 0.299203;, - -0.776666;-0.554308; 0.299203;, - -0.410535;-0.768181; 0.491195;, - -0.735801;-0.580432; 0.348796;, - 0.410535;-0.768181; 0.491195;, - 0.735801;-0.580432; 0.348796;, - 0.129948;-0.725089; 0.676260;, - -0.129948;-0.725089; 0.676260;, - -0.735801;-0.580432; 0.348796;, - -0.410535;-0.768181; 0.491195;, - 0.129948;-0.725089; 0.676260;, - 0.191321;-0.867367; 0.459395;, - 0.410535;-0.768181; 0.491195;, - -0.410535;-0.768181; 0.491195;, - -0.191321;-0.867367; 0.459395;, - -0.129948;-0.725089; 0.676260;, - 0.735801;-0.580432; 0.348796;, - 0.155187;-0.913602; 0.375805;, - 0.129948;-0.725089; 0.676260;, - -0.129948;-0.725089; 0.676260;, - -0.155187;-0.913602; 0.375805;, - -0.735801;-0.580432; 0.348796;, - 0.138890;-0.987548; 0.073458;, - 0.410596;-0.872311; 0.265358;, - 0.160405;-0.961394; 0.223457;, - -0.160405;-0.961394; 0.223457;, - -0.410596;-0.872311; 0.265358;, - -0.138890;-0.987548; 0.073458;, - 0.162664;-0.936064; 0.311930;, - 0.138890;-0.987548; 0.073458;, - 0.160405;-0.961394; 0.223457;, - -0.160405;-0.961394; 0.223457;, - -0.138890;-0.987548; 0.073458;, - -0.162664;-0.936064; 0.311930;, - 0.155187;-0.913602; 0.375805;, - -0.437849;-0.816034; 0.377270;, - 0.129948;-0.725089; 0.676260;, - -0.129948;-0.725089; 0.676260;, - 0.437849;-0.816034; 0.377270;, - -0.155187;-0.913602; 0.375805;, - -0.066775;-0.881680; 0.467025;, - -0.437849;-0.816034; 0.377270;, - -0.040376;-0.926084; 0.375072;, - 0.040376;-0.926084; 0.375072;, - 0.437849;-0.816034; 0.377270;, - 0.066775;-0.881680; 0.467025;, - -0.437849;-0.816034; 0.377270;, - -0.066775;-0.881680; 0.467025;, - 0.129948;-0.725089; 0.676260;, - -0.129948;-0.725089; 0.676260;, - 0.066775;-0.881680; 0.467025;, - 0.437849;-0.816034; 0.377270;, - -0.066775;-0.881680; 0.467025;, - 0.191321;-0.867367; 0.459395;, - 0.129948;-0.725089; 0.676260;, - -0.129948;-0.725089; 0.676260;, - -0.191321;-0.867367; 0.459395;, - 0.066775;-0.881680; 0.467025;, - 0.570055;-0.659627; 0.489761;, - 0.696127;-0.693564; 0.185217;, - 0.000000;-0.945830; 0.324564;, - 0.000000;-0.945830; 0.324564;, - -0.696127;-0.693564; 0.185217;, - -0.739494;-0.626545;-0.246040;, - 0.000000;-0.945830; 0.324564;, - -0.007752;-0.998505; 0.053591;, - 0.570055;-0.659627; 0.489761;, - -0.739494;-0.626545;-0.246040;, - -0.007752;-0.998505; 0.053591;, - 0.000000;-0.945830; 0.324564;, - 0.784753;-0.099826;-0.611682;, - 0.696127;-0.693564; 0.185217;, - 0.570055;-0.659627; 0.489761;, - -0.739494;-0.626545;-0.246040;, - -0.696127;-0.693564; 0.185217;, - -0.784753;-0.099826;-0.611682;, - 0.984191;-0.170751; 0.046724;, - 0.696127;-0.693564; 0.185217;, - 0.784753;-0.099826;-0.611682;, - -0.784753;-0.099826;-0.611682;, - -0.696127;-0.693564; 0.185217;, - -0.984191;-0.170751; 0.046724;, - 0.656697; 0.292428;-0.695120;, - 0.984191;-0.170751; 0.046724;, - 0.784753;-0.099826;-0.611682;, - -0.784753;-0.099826;-0.611682;, - -0.984191;-0.170751; 0.046724;, - -0.656697; 0.292428;-0.695120;, - 0.995178; 0.095340; 0.021851;, - 0.984191;-0.170751; 0.046724;, - 0.656697; 0.292428;-0.695120;, - -0.656697; 0.292428;-0.695120;, - -0.984191;-0.170751; 0.046724;, - -0.995178; 0.095340; 0.021851;, - 0.985534; 0.166021; 0.033570;, - 0.995178; 0.095340; 0.021851;, - 0.656697; 0.292428;-0.695120;, - -0.656697; 0.292428;-0.695120;, - -0.995178; 0.095340; 0.021851;, - -0.985534; 0.166021; 0.033570;, - 0.095737; 0.474105;-0.875240;, - 0.985534; 0.166021; 0.033570;, - 0.656697; 0.292428;-0.695120;, - -0.656697; 0.292428;-0.695120;, - -0.985534; 0.166021; 0.033570;, - -0.095737; 0.474105;-0.875240;, - 0.000000;-0.851192;-0.524827;, - 0.600696;-0.608448;-0.518540;, - 0.000000;-0.286538; 0.958037;, - 0.000000;-0.286538; 0.958037;, - -0.600696;-0.608448;-0.518540;, - 0.000000;-0.851192;-0.524827;, - 0.600696;-0.608448;-0.518540;, - 0.957244;-0.288980;-0.010987;, - 0.000000;-0.286538; 0.958037;, - 0.000000;-0.286538; 0.958037;, - -0.957244;-0.288980;-0.010987;, - -0.600696;-0.608448;-0.518540;, - 0.926084;-0.289071;-0.242409;, - 0.957244;-0.288980;-0.010987;, - 0.600696;-0.608448;-0.518540;, - -0.600696;-0.608448;-0.518540;, - -0.957244;-0.288980;-0.010987;, - -0.926084;-0.289071;-0.242409;, - 0.779443;-0.601001;-0.176672;, - 0.957244;-0.288980;-0.010987;, - 0.926084;-0.289071;-0.242409;, - -0.926084;-0.289071;-0.242409;, - -0.957244;-0.288980;-0.010987;, - -0.858943;-0.019501;-0.511643;, - 0.995575;-0.003265;-0.093692;, - 0.779443;-0.601001;-0.176672;, - 0.926084;-0.289071;-0.242409;, - -0.926084;-0.289071;-0.242409;, - -0.858943;-0.019501;-0.511643;, - -0.995575;-0.003265;-0.093692;, - -0.232398;-0.536210; 0.811426;, - 0.779443;-0.601001;-0.176672;, - 0.995575;-0.003265;-0.093692;, - -0.995575;-0.003265;-0.093692;, - -0.858943;-0.019501;-0.511643;, - -0.915769; 0.208441;-0.343303;, - 0.999298; 0.036287; 0.008942;, - -0.232398;-0.536210; 0.811426;, - 0.995575;-0.003265;-0.093692;, - -0.995575;-0.003265;-0.093692;, - -0.915769; 0.208441;-0.343303;, - -0.999298; 0.036287; 0.008942;, - -0.698782;-0.504593; 0.507004;, - -0.232398;-0.536210; 0.811426;, - 0.999298; 0.036287; 0.008942;, - -0.999298; 0.036287; 0.008942;, - -0.915769; 0.208441;-0.343303;, - 0.929594;-0.365856;-0.043916;; - 1930; - 3;0;1;2;, - 3;3;4;5;, - 3;6;7;8;, - 3;9;10;11;, - 3;12;13;14;, - 3;15;16;17;, - 3;18;19;20;, - 3;21;22;23;, - 3;24;25;26;, - 3;27;28;29;, - 3;30;31;32;, - 3;33;34;35;, - 3;36;37;38;, - 3;39;40;41;, - 3;42;43;44;, - 3;45;46;47;, - 3;48;49;50;, - 3;51;52;53;, - 3;54;55;56;, - 3;57;58;59;, - 3;60;61;62;, - 3;63;64;65;, - 3;66;67;68;, - 3;69;70;71;, - 3;72;73;74;, - 3;75;76;77;, - 3;78;79;80;, - 3;81;82;83;, - 3;84;85;86;, - 3;87;88;89;, - 3;90;91;92;, - 3;93;94;95;, - 3;96;97;98;, - 3;99;100;101;, - 3;102;103;104;, - 3;105;106;107;, - 3;108;109;110;, - 3;111;112;113;, - 3;114;115;116;, - 3;117;118;119;, - 3;120;121;122;, - 3;123;124;125;, - 3;126;127;128;, - 3;129;130;131;, - 3;132;133;134;, - 3;135;136;137;, - 3;138;139;140;, - 3;141;142;143;, - 3;144;145;146;, - 3;147;148;149;, - 3;150;151;152;, - 3;153;154;155;, - 3;156;157;158;, - 3;159;160;161;, - 3;162;163;164;, - 3;165;166;167;, - 3;168;169;170;, - 3;171;172;173;, - 3;174;175;176;, - 3;177;178;179;, - 3;180;181;182;, - 3;183;184;185;, - 3;186;187;188;, - 3;189;190;191;, - 3;192;193;194;, - 3;195;196;197;, - 3;198;199;200;, - 3;201;202;203;, - 3;204;205;206;, - 3;207;208;209;, - 3;210;211;212;, - 3;213;214;215;, - 3;216;217;218;, - 3;219;220;221;, - 3;222;223;224;, - 3;225;226;227;, - 3;228;229;230;, - 3;231;232;233;, - 3;234;235;236;, - 3;237;238;239;, - 3;240;241;242;, - 3;243;244;245;, - 3;246;247;248;, - 3;249;250;251;, - 3;252;253;254;, - 3;255;256;257;, - 3;258;259;260;, - 3;261;262;263;, - 3;264;265;266;, - 3;267;268;269;, - 3;270;271;272;, - 3;273;274;275;, - 3;276;277;278;, - 3;279;280;281;, - 3;282;283;284;, - 3;285;286;287;, - 3;288;289;290;, - 3;291;292;293;, - 3;294;295;296;, - 3;297;298;299;, - 3;300;301;302;, - 3;303;304;305;, - 3;306;307;308;, - 3;309;310;311;, - 3;312;313;314;, - 3;315;316;317;, - 3;318;319;320;, - 3;321;322;323;, - 3;324;325;326;, - 3;327;328;329;, - 3;330;331;332;, - 3;333;334;335;, - 3;336;337;338;, - 3;339;340;341;, - 3;342;343;344;, - 3;345;346;347;, - 3;348;349;350;, - 3;351;352;353;, - 3;354;355;356;, - 3;357;358;359;, - 3;360;361;362;, - 3;363;364;365;, - 3;366;367;368;, - 3;369;370;371;, - 3;372;373;374;, - 3;375;376;377;, - 3;378;379;380;, - 3;381;382;383;, - 3;384;385;386;, - 3;387;388;389;, - 3;390;391;392;, - 3;393;394;395;, - 3;396;397;398;, - 3;399;400;401;, - 3;402;403;404;, - 3;405;406;407;, - 3;408;409;410;, - 3;411;412;413;, - 3;414;415;416;, - 3;417;418;419;, - 3;420;421;422;, - 3;423;424;425;, - 3;426;427;428;, - 3;429;430;431;, - 3;432;433;434;, - 3;435;436;437;, - 3;438;439;440;, - 3;441;442;443;, - 3;444;445;446;, - 3;447;448;449;, - 3;450;451;452;, - 3;453;454;455;, - 3;456;457;458;, - 3;459;460;461;, - 3;462;463;464;, - 3;465;466;467;, - 3;468;469;470;, - 3;471;472;473;, - 3;474;475;476;, - 3;477;478;479;, - 3;480;481;482;, - 3;483;484;485;, - 3;486;487;488;, - 3;489;490;491;, - 3;492;493;494;, - 3;495;496;497;, - 3;498;499;500;, - 3;501;502;503;, - 3;504;505;506;, - 3;507;508;509;, - 3;510;511;512;, - 3;513;514;515;, - 3;516;517;518;, - 3;519;520;521;, - 3;522;523;524;, - 3;525;526;527;, - 3;528;529;530;, - 3;531;532;533;, - 3;534;535;536;, - 3;537;538;539;, - 3;540;541;542;, - 3;543;544;545;, - 3;546;547;548;, - 3;549;550;551;, - 3;552;553;554;, - 3;555;556;557;, - 3;558;559;560;, - 3;561;562;563;, - 3;564;565;566;, - 3;567;568;569;, - 3;570;571;572;, - 3;573;574;575;, - 3;576;577;578;, - 3;579;580;581;, - 3;582;583;584;, - 3;585;586;587;, - 3;588;589;590;, - 3;591;592;593;, - 3;594;595;596;, - 3;597;598;599;, - 3;600;601;602;, - 3;603;604;605;, - 3;606;607;608;, - 3;609;610;611;, - 3;612;613;614;, - 3;615;616;617;, - 3;618;619;620;, - 3;621;622;623;, - 3;624;625;626;, - 3;627;628;629;, - 3;630;631;632;, - 3;633;634;635;, - 3;636;637;638;, - 3;639;640;641;, - 3;642;643;644;, - 3;645;646;647;, - 3;648;649;650;, - 3;651;652;653;, - 3;654;655;656;, - 3;657;658;659;, - 3;660;661;662;, - 3;663;664;665;, - 3;666;667;668;, - 3;669;670;671;, - 3;672;673;674;, - 3;675;676;677;, - 3;678;679;680;, - 3;681;682;683;, - 3;684;685;686;, - 3;687;688;689;, - 3;690;691;692;, - 3;693;694;695;, - 3;696;697;698;, - 3;699;700;701;, - 3;702;703;704;, - 3;705;706;707;, - 3;708;709;710;, - 3;711;712;713;, - 3;714;715;716;, - 3;717;718;719;, - 3;720;721;722;, - 3;723;724;725;, - 3;726;727;728;, - 3;729;730;731;, - 3;732;733;734;, - 3;735;736;737;, - 3;738;739;740;, - 3;741;742;743;, - 3;744;745;746;, - 3;747;748;749;, - 3;750;751;752;, - 3;753;754;755;, - 3;756;757;758;, - 3;759;760;761;, - 3;762;763;764;, - 3;765;766;767;, - 3;768;769;770;, - 3;771;772;773;, - 3;774;775;776;, - 3;777;778;779;, - 3;780;781;782;, - 3;783;784;785;, - 3;786;787;788;, - 3;789;790;791;, - 3;792;793;794;, - 3;795;796;797;, - 3;798;799;800;, - 3;801;802;803;, - 3;804;805;806;, - 3;807;808;809;, - 3;810;811;812;, - 3;813;814;815;, - 3;816;817;818;, - 3;819;820;821;, - 3;822;823;824;, - 3;825;826;827;, - 3;828;829;830;, - 3;831;832;833;, - 3;834;835;836;, - 3;837;838;839;, - 3;840;841;842;, - 3;843;844;845;, - 3;846;847;848;, - 3;849;850;851;, - 3;852;853;854;, - 3;855;856;857;, - 3;858;859;860;, - 3;861;862;863;, - 3;864;865;866;, - 3;867;868;869;, - 3;870;871;872;, - 3;873;874;875;, - 3;876;877;878;, - 3;879;880;881;, - 3;882;883;884;, - 3;885;886;887;, - 3;888;889;890;, - 3;891;892;893;, - 3;894;895;896;, - 3;897;898;899;, - 3;900;901;902;, - 3;903;904;905;, - 3;906;907;908;, - 3;909;910;911;, - 3;912;913;914;, - 3;915;916;917;, - 3;918;919;920;, - 3;921;922;923;, - 3;924;925;926;, - 3;927;928;929;, - 3;930;931;932;, - 3;933;934;935;, - 3;936;937;938;, - 3;939;940;941;, - 3;942;943;944;, - 3;945;946;947;, - 3;948;949;950;, - 3;951;952;953;, - 3;954;955;956;, - 3;957;958;959;, - 3;960;961;962;, - 3;963;964;965;, - 3;966;967;968;, - 3;969;970;971;, - 3;972;973;974;, - 3;975;976;977;, - 3;978;979;980;, - 3;981;982;983;, - 3;984;985;986;, - 3;987;988;989;, - 3;990;991;992;, - 3;993;994;995;, - 3;996;997;998;, - 3;999;1000;1001;, - 3;1002;1003;1004;, - 3;1005;1006;1007;, - 3;1008;1009;1010;, - 3;1011;1012;1013;, - 3;1014;1015;1016;, - 3;1017;1018;1019;, - 3;1020;1021;1022;, - 3;1023;1024;1025;, - 3;1026;1027;1028;, - 3;1029;1030;1031;, - 3;1032;1033;1034;, - 3;1035;1036;1037;, - 3;1038;1039;1040;, - 3;1041;1042;1043;, - 3;1044;1045;1046;, - 3;1047;1048;1049;, - 3;1050;1051;1052;, - 3;1053;1054;1055;, - 3;1056;1057;1058;, - 3;1059;1060;1061;, - 3;1062;1063;1064;, - 3;1065;1066;1067;, - 3;1068;1069;1070;, - 3;1071;1072;1073;, - 3;1074;1075;1076;, - 3;1077;1078;1079;, - 3;1080;1081;1082;, - 3;1083;1084;1085;, - 3;1086;1087;1088;, - 3;1089;1090;1091;, - 3;1092;1093;1094;, - 3;1095;1096;1097;, - 3;1098;1099;1100;, - 3;1101;1102;1103;, - 3;1104;1105;1106;, - 3;1107;1108;1109;, - 3;1110;1111;1112;, - 3;1113;1114;1115;, - 3;1116;1117;1118;, - 3;1119;1120;1121;, - 3;1122;1123;1124;, - 3;1125;1126;1127;, - 3;1128;1129;1130;, - 3;1131;1132;1133;, - 3;1134;1135;1136;, - 3;1137;1138;1139;, - 3;1140;1141;1142;, - 3;1143;1144;1145;, - 3;1146;1147;1148;, - 3;1149;1150;1151;, - 3;1152;1153;1154;, - 3;1155;1156;1157;, - 3;1158;1159;1160;, - 3;1161;1162;1163;, - 3;1164;1165;1166;, - 3;1167;1168;1169;, - 3;1170;1171;1172;, - 3;1173;1174;1175;, - 3;1176;1177;1178;, - 3;1179;1180;1181;, - 3;1182;1183;1184;, - 3;1185;1186;1187;, - 3;1188;1189;1190;, - 3;1191;1192;1193;, - 3;1194;1195;1196;, - 3;1197;1198;1199;, - 3;1200;1201;1202;, - 3;1203;1204;1205;, - 3;1206;1207;1208;, - 3;1209;1210;1211;, - 3;1212;1213;1214;, - 3;1215;1216;1217;, - 3;1218;1219;1220;, - 3;1221;1222;1223;, - 3;1224;1225;1226;, - 3;1227;1228;1229;, - 3;1230;1231;1232;, - 3;1233;1234;1235;, - 3;1236;1237;1238;, - 3;1239;1240;1241;, - 3;1242;1243;1244;, - 3;1245;1246;1247;, - 3;1248;1249;1250;, - 3;1251;1252;1253;, - 3;1254;1255;1256;, - 3;1257;1258;1259;, - 3;1260;1261;1262;, - 3;1263;1264;1265;, - 3;1266;1267;1268;, - 3;1269;1270;1271;, - 3;1272;1273;1274;, - 3;1275;1276;1277;, - 3;1278;1279;1280;, - 3;1281;1282;1283;, - 3;1284;1285;1286;, - 3;1287;1288;1289;, - 3;1290;1291;1292;, - 3;1293;1294;1295;, - 3;1296;1297;1298;, - 3;1299;1300;1301;, - 3;1302;1303;1304;, - 3;1305;1306;1307;, - 3;1308;1309;1310;, - 3;1311;1312;1313;, - 3;1314;1315;1316;, - 3;1317;1318;1319;, - 3;1320;1321;1322;, - 3;1323;1324;1325;, - 3;1326;1327;1328;, - 3;1329;1330;1331;, - 3;1332;1333;1334;, - 3;1335;1336;1337;, - 3;1338;1339;1340;, - 3;1341;1342;1343;, - 3;1344;1345;1346;, - 3;1347;1348;1349;, - 3;1350;1351;1352;, - 3;1353;1354;1355;, - 3;1356;1357;1358;, - 3;1359;1360;1361;, - 3;1362;1363;1364;, - 3;1365;1366;1367;, - 3;1368;1369;1370;, - 3;1371;1372;1373;, - 3;1374;1375;1376;, - 3;1377;1378;1379;, - 3;1380;1381;1382;, - 3;1383;1384;1385;, - 3;1386;1387;1388;, - 3;1389;1390;1391;, - 3;1392;1393;1394;, - 3;1395;1396;1397;, - 3;1398;1399;1400;, - 3;1401;1402;1403;, - 3;1404;1405;1406;, - 3;1407;1408;1409;, - 3;1410;1411;1412;, - 3;1413;1414;1415;, - 3;1416;1417;1418;, - 3;1419;1420;1421;, - 3;1422;1423;1424;, - 3;1425;1426;1427;, - 3;1428;1429;1430;, - 3;1431;1432;1433;, - 3;1434;1435;1436;, - 3;1437;1438;1439;, - 3;1440;1441;1442;, - 3;1443;1444;1445;, - 3;1446;1447;1448;, - 3;1449;1450;1451;, - 3;1452;1453;1454;, - 3;1455;1456;1457;, - 3;1458;1459;1460;, - 3;1461;1462;1463;, - 3;1464;1465;1466;, - 3;1467;1468;1469;, - 3;1470;1471;1472;, - 3;1473;1474;1475;, - 3;1476;1477;1478;, - 3;1479;1480;1481;, - 3;1482;1483;1484;, - 3;1485;1486;1487;, - 3;1488;1489;1490;, - 3;1491;1492;1493;, - 3;1494;1495;1496;, - 3;1497;1498;1499;, - 3;1500;1501;1502;, - 3;1503;1504;1505;, - 3;1506;1507;1508;, - 3;1509;1510;1511;, - 3;1512;1513;1514;, - 3;1515;1516;1517;, - 3;1518;1519;1520;, - 3;1521;1522;1523;, - 3;1524;1525;1526;, - 3;1527;1528;1529;, - 3;1530;1531;1532;, - 3;1533;1534;1535;, - 3;1536;1537;1538;, - 3;1539;1540;1541;, - 3;1542;1543;1544;, - 3;1545;1546;1547;, - 3;1548;1549;1550;, - 3;1551;1552;1553;, - 3;1554;1555;1556;, - 3;1557;1558;1559;, - 3;1560;1561;1562;, - 3;1563;1564;1565;, - 3;1566;1567;1568;, - 3;1569;1570;1571;, - 3;1572;1573;1574;, - 3;1575;1576;1577;, - 3;1578;1579;1580;, - 3;1581;1582;1583;, - 3;1584;1585;1586;, - 3;1587;1588;1589;, - 3;1590;1591;1592;, - 3;1593;1594;1595;, - 3;1596;1597;1598;, - 3;1599;1600;1601;, - 3;1602;1603;1604;, - 3;1605;1606;1607;, - 3;1608;1609;1610;, - 3;1611;1612;1613;, - 3;1614;1615;1616;, - 3;1617;1618;1619;, - 3;1620;1621;1622;, - 3;1623;1624;1625;, - 3;1626;1627;1628;, - 3;1629;1630;1631;, - 3;1632;1633;1634;, - 3;1635;1636;1637;, - 3;1638;1639;1640;, - 3;1641;1642;1643;, - 3;1644;1645;1646;, - 3;1647;1648;1649;, - 3;1650;1651;1652;, - 3;1653;1654;1655;, - 3;1656;1657;1658;, - 3;1659;1660;1661;, - 3;1662;1663;1664;, - 3;1665;1666;1667;, - 3;1668;1669;1670;, - 3;1671;1672;1673;, - 3;1674;1675;1676;, - 3;1677;1678;1679;, - 3;1680;1681;1682;, - 3;1683;1684;1685;, - 3;1686;1687;1688;, - 3;1689;1690;1691;, - 3;1692;1693;1694;, - 3;1695;1696;1697;, - 3;1698;1699;1700;, - 3;1701;1702;1703;, - 3;1704;1705;1706;, - 3;1707;1708;1709;, - 3;1710;1711;1712;, - 3;1713;1714;1715;, - 3;1716;1717;1718;, - 3;1719;1720;1721;, - 3;1722;1723;1724;, - 3;1725;1726;1727;, - 3;1728;1729;1730;, - 3;1731;1732;1733;, - 3;1734;1735;1736;, - 3;1737;1738;1739;, - 3;1740;1741;1742;, - 3;1743;1744;1745;, - 3;1746;1747;1748;, - 3;1749;1750;1751;, - 3;1752;1753;1754;, - 3;1755;1756;1757;, - 3;1758;1759;1760;, - 3;1761;1762;1763;, - 3;1764;1765;1766;, - 3;1767;1768;1769;, - 3;1770;1771;1772;, - 3;1773;1774;1775;, - 3;1776;1777;1778;, - 3;1779;1780;1781;, - 3;1782;1783;1784;, - 3;1785;1786;1787;, - 3;1788;1789;1790;, - 3;1791;1792;1793;, - 3;1794;1795;1796;, - 3;1797;1798;1799;, - 3;1800;1801;1802;, - 3;1803;1804;1805;, - 3;1806;1807;1808;, - 3;1809;1810;1811;, - 3;1812;1813;1814;, - 3;1815;1816;1817;, - 3;1818;1819;1820;, - 3;1821;1822;1823;, - 3;1824;1825;1826;, - 3;1827;1828;1829;, - 3;1830;1831;1832;, - 3;1833;1834;1835;, - 3;1836;1837;1838;, - 3;1839;1840;1841;, - 3;1842;1843;1844;, - 3;1845;1846;1847;, - 3;1848;1849;1850;, - 3;1851;1852;1853;, - 3;1854;1855;1856;, - 3;1857;1858;1859;, - 3;1860;1861;1862;, - 3;1863;1864;1865;, - 3;1866;1867;1868;, - 3;1869;1870;1871;, - 3;1872;1873;1874;, - 3;1875;1876;1877;, - 3;1878;1879;1880;, - 3;1881;1882;1883;, - 3;1884;1885;1886;, - 3;1887;1888;1889;, - 3;1890;1891;1892;, - 3;1893;1894;1895;, - 3;1896;1897;1898;, - 3;1899;1900;1901;, - 3;1902;1903;1904;, - 3;1905;1906;1907;, - 3;1908;1909;1910;, - 3;1911;1912;1913;, - 3;1914;1915;1916;, - 3;1917;1918;1919;, - 3;1920;1921;1922;, - 3;1923;1924;1925;, - 3;1926;1927;1928;, - 3;1929;1930;1931;, - 3;1932;1933;1934;, - 3;1935;1936;1937;, - 3;1938;1939;1940;, - 3;1941;1942;1943;, - 3;1944;1945;1946;, - 3;1947;1948;1949;, - 3;1950;1951;1952;, - 3;1953;1954;1955;, - 3;1956;1957;1958;, - 3;1959;1960;1961;, - 3;1962;1963;1964;, - 3;1965;1966;1967;, - 3;1968;1969;1970;, - 3;1971;1972;1973;, - 3;1974;1975;1976;, - 3;1977;1978;1979;, - 3;1980;1981;1982;, - 3;1983;1984;1985;, - 3;1986;1987;1988;, - 3;1989;1990;1991;, - 3;1992;1993;1994;, - 3;1995;1996;1997;, - 3;1998;1999;2000;, - 3;2001;2002;2003;, - 3;2004;2005;2006;, - 3;2007;2008;2009;, - 3;2010;2011;2012;, - 3;2013;2014;2015;, - 3;2016;2017;2018;, - 3;2019;2020;2021;, - 3;2022;2023;2024;, - 3;2025;2026;2027;, - 3;2028;2029;2030;, - 3;2031;2032;2033;, - 3;2034;2035;2036;, - 3;2037;2038;2039;, - 3;2040;2041;2042;, - 3;2043;2044;2045;, - 3;2046;2047;2048;, - 3;2049;2050;2051;, - 3;2052;2053;2054;, - 3;2055;2056;2057;, - 3;2058;2059;2060;, - 3;2061;2062;2063;, - 3;2064;2065;2066;, - 3;2067;2068;2069;, - 3;2070;2071;2072;, - 3;2073;2074;2075;, - 3;2076;2077;2078;, - 3;2079;2080;2081;, - 3;2082;2083;2084;, - 3;2085;2086;2087;, - 3;2088;2089;2090;, - 3;2091;2092;2093;, - 3;2094;2095;2096;, - 3;2097;2098;2099;, - 3;2100;2101;2102;, - 3;2103;2104;2105;, - 3;2106;2107;2108;, - 3;2109;2110;2111;, - 3;2112;2113;2114;, - 3;2115;2116;2117;, - 3;2118;2119;2120;, - 3;2121;2122;2123;, - 3;2124;2125;2126;, - 3;2127;2128;2129;, - 3;2130;2131;2132;, - 3;2133;2134;2135;, - 3;2136;2137;2138;, - 3;2139;2140;2141;, - 3;2142;2143;2144;, - 3;2145;2146;2147;, - 3;2148;2149;2150;, - 3;2151;2152;2153;, - 3;2154;2155;2156;, - 3;2157;2158;2159;, - 3;2160;2161;2162;, - 3;2163;2164;2165;, - 3;2166;2167;2168;, - 3;2169;2170;2171;, - 3;2172;2173;2174;, - 3;2175;2176;2177;, - 3;2178;2179;2180;, - 3;2181;2182;2183;, - 3;2184;2185;2186;, - 3;2187;2188;2189;, - 3;2190;2191;2192;, - 3;2193;2194;2195;, - 3;2196;2197;2198;, - 3;2199;2200;2201;, - 3;2202;2203;2204;, - 3;2205;2206;2207;, - 3;2208;2209;2210;, - 3;2211;2212;2213;, - 3;2214;2215;2216;, - 3;2217;2218;2219;, - 3;2220;2221;2222;, - 3;2223;2224;2225;, - 3;2226;2227;2228;, - 3;2229;2230;2231;, - 3;2232;2233;2234;, - 3;2235;2236;2237;, - 3;2238;2239;2240;, - 3;2241;2242;2243;, - 3;2244;2245;2246;, - 3;2247;2248;2249;, - 3;2250;2251;2252;, - 3;2253;2254;2255;, - 3;2256;2257;2258;, - 3;2259;2260;2261;, - 3;2262;2263;2264;, - 3;2265;2266;2267;, - 3;2268;2269;2270;, - 3;2271;2272;2273;, - 3;2274;2275;2276;, - 3;2277;2278;2279;, - 3;2280;2281;2282;, - 3;2283;2284;2285;, - 3;2286;2287;2288;, - 3;2289;2290;2291;, - 3;2292;2293;2294;, - 3;2295;2296;2297;, - 3;2298;2299;2300;, - 3;2301;2302;2303;, - 3;2304;2305;2306;, - 3;2307;2308;2309;, - 3;2310;2311;2312;, - 3;2313;2314;2315;, - 3;2316;2317;2318;, - 3;2319;2320;2321;, - 3;2322;2323;2324;, - 3;2325;2326;2327;, - 3;2328;2329;2330;, - 3;2331;2332;2333;, - 3;2334;2335;2336;, - 3;2337;2338;2339;, - 3;2340;2341;2342;, - 3;2343;2344;2345;, - 3;2346;2347;2348;, - 3;2349;2350;2351;, - 3;2352;2353;2354;, - 3;2355;2356;2357;, - 3;2358;2359;2360;, - 3;2361;2362;2363;, - 3;2364;2365;2366;, - 3;2367;2368;2369;, - 3;2370;2371;2372;, - 3;2373;2374;2375;, - 3;2376;2377;2378;, - 3;2379;2380;2381;, - 3;2382;2383;2384;, - 3;2385;2386;2387;, - 3;2388;2389;2390;, - 3;2391;2392;2393;, - 3;2394;2395;2396;, - 3;2397;2398;2399;, - 3;2400;2401;2402;, - 3;2403;2404;2405;, - 3;2406;2407;2408;, - 3;2409;2410;2411;, - 3;2412;2413;2414;, - 3;2415;2416;2417;, - 3;2418;2419;2420;, - 3;2421;2422;2423;, - 3;2424;2425;2426;, - 3;2427;2428;2429;, - 3;2430;2431;2432;, - 3;2433;2434;2435;, - 3;2436;2437;2438;, - 3;2439;2440;2441;, - 3;2442;2443;2444;, - 3;2445;2446;2447;, - 3;2448;2449;2450;, - 3;2451;2452;2453;, - 3;2454;2455;2456;, - 3;2457;2458;2459;, - 3;2460;2461;2462;, - 3;2463;2464;2465;, - 3;2466;2467;2468;, - 3;2469;2470;2471;, - 3;2472;2473;2474;, - 3;2475;2476;2477;, - 3;2478;2479;2480;, - 3;2481;2482;2483;, - 3;2484;2485;2486;, - 3;2487;2488;2489;, - 3;2490;2491;2492;, - 3;2493;2494;2495;, - 3;2496;2497;2498;, - 3;2499;2500;2501;, - 3;2502;2503;2504;, - 3;2505;2506;2507;, - 3;2508;2509;2510;, - 3;2511;2512;2513;, - 3;2514;2515;2516;, - 3;2517;2518;2519;, - 3;2520;2521;2522;, - 3;2523;2524;2525;, - 3;2526;2527;2528;, - 3;2529;2530;2531;, - 3;2532;2533;2534;, - 3;2535;2536;2537;, - 3;2538;2539;2540;, - 3;2541;2542;2543;, - 3;2544;2545;2546;, - 3;2547;2548;2549;, - 3;2550;2551;2552;, - 3;2553;2554;2555;, - 3;2556;2557;2558;, - 3;2559;2560;2561;, - 3;2562;2563;2564;, - 3;2565;2566;2567;, - 3;2568;2569;2570;, - 3;2571;2572;2573;, - 3;2574;2575;2576;, - 3;2577;2578;2579;, - 3;2580;2581;2582;, - 3;2583;2584;2585;, - 3;2586;2587;2588;, - 3;2589;2590;2591;, - 3;2592;2593;2594;, - 3;2595;2596;2597;, - 3;2598;2599;2600;, - 3;2601;2602;2603;, - 3;2604;2605;2606;, - 3;2607;2608;2609;, - 3;2610;2611;2612;, - 3;2613;2614;2615;, - 3;2616;2617;2618;, - 3;2619;2620;2621;, - 3;2622;2623;2624;, - 3;2625;2626;2627;, - 3;2628;2629;2630;, - 3;2631;2632;2633;, - 3;2634;2635;2636;, - 3;2637;2638;2639;, - 3;2640;2641;2642;, - 3;2643;2644;2645;, - 3;2646;2647;2648;, - 3;2649;2650;2651;, - 3;2652;2653;2654;, - 3;2655;2656;2657;, - 3;2658;2659;2660;, - 3;2661;2662;2663;, - 3;2664;2665;2666;, - 3;2667;2668;2669;, - 3;2670;2671;2672;, - 3;2673;2674;2675;, - 3;2676;2677;2678;, - 3;2679;2680;2681;, - 3;2682;2683;2684;, - 3;2685;2686;2687;, - 3;2688;2689;2690;, - 3;2691;2692;2693;, - 3;2694;2695;2696;, - 3;2697;2698;2699;, - 3;2700;2701;2702;, - 3;2703;2704;2705;, - 3;2706;2707;2708;, - 3;2709;2710;2711;, - 3;2712;2713;2714;, - 3;2715;2716;2717;, - 3;2718;2719;2720;, - 3;2721;2722;2723;, - 3;2724;2725;2726;, - 3;2727;2728;2729;, - 3;2730;2731;2732;, - 3;2733;2734;2735;, - 3;2736;2737;2738;, - 3;2739;2740;2741;, - 3;2742;2743;2744;, - 3;2745;2746;2747;, - 3;2748;2749;2750;, - 3;2751;2752;2753;, - 3;2754;2755;2756;, - 3;2757;2758;2759;, - 3;2760;2761;2762;, - 3;2763;2764;2765;, - 3;2766;2767;2768;, - 3;2769;2770;2771;, - 3;2772;2773;2774;, - 3;2775;2776;2777;, - 3;2778;2779;2780;, - 3;2781;2782;2783;, - 3;2784;2785;2786;, - 3;2787;2788;2789;, - 3;2790;2791;2792;, - 3;2793;2794;2795;, - 3;2796;2797;2798;, - 3;2799;2800;2801;, - 3;2802;2803;2804;, - 3;2805;2806;2807;, - 3;2808;2809;2810;, - 3;2811;2812;2813;, - 3;2814;2815;2816;, - 3;2817;2818;2819;, - 3;2820;2821;2822;, - 3;2823;2824;2825;, - 3;2826;2827;2828;, - 3;2829;2830;2831;, - 3;2832;2833;2834;, - 3;2835;2836;2837;, - 3;2838;2839;2840;, - 3;2841;2842;2843;, - 3;2844;2845;2846;, - 3;2847;2848;2849;, - 3;2850;2851;2852;, - 3;2853;2854;2855;, - 3;2856;2857;2858;, - 3;2859;2860;2861;, - 3;2862;2863;2864;, - 3;2865;2866;2867;, - 3;2868;2869;2870;, - 3;2871;2872;2873;, - 3;2874;2875;2876;, - 3;2877;2878;2879;, - 3;2880;2881;2882;, - 3;2883;2884;2885;, - 3;2886;2887;2888;, - 3;2889;2890;2891;, - 3;2892;2893;2894;, - 3;2895;2896;2897;, - 3;2898;2899;2900;, - 3;2901;2902;2903;, - 3;2904;2905;2906;, - 3;2907;2908;2909;, - 3;2910;2911;2912;, - 3;2913;2914;2915;, - 3;2916;2917;2918;, - 3;2919;2920;2921;, - 3;2922;2923;2924;, - 3;2925;2926;2927;, - 3;2928;2929;2930;, - 3;2931;2932;2933;, - 3;2934;2935;2936;, - 3;2937;2938;2939;, - 3;2940;2941;2942;, - 3;2943;2944;2945;, - 3;2946;2947;2948;, - 3;2949;2950;2951;, - 3;2952;2953;2954;, - 3;2955;2956;2957;, - 3;2958;2959;2960;, - 3;2961;2962;2963;, - 3;2964;2965;2966;, - 3;2967;2968;2969;, - 3;2970;2971;2972;, - 3;2973;2974;2975;, - 3;2976;2977;2978;, - 3;2979;2980;2981;, - 3;2982;2983;2984;, - 3;2985;2986;2987;, - 3;2988;2989;2990;, - 3;2991;2992;2993;, - 3;2994;2995;2996;, - 3;2997;2998;2999;, - 3;3000;3001;3002;, - 3;3003;3004;3005;, - 3;3006;3007;3008;, - 3;3009;3010;3011;, - 3;3012;3013;3014;, - 3;3015;3016;3017;, - 3;3018;3019;3020;, - 3;3021;3022;3023;, - 3;3024;3025;3026;, - 3;3027;3028;3029;, - 3;3030;3031;3032;, - 3;3033;3034;3035;, - 3;3036;3037;3038;, - 3;3039;3040;3041;, - 3;3042;3043;3044;, - 3;3045;3046;3047;, - 3;3048;3049;3050;, - 3;3051;3052;3053;, - 3;3054;3055;3056;, - 3;3057;3058;3059;, - 3;3060;3061;3062;, - 3;3063;3064;3065;, - 3;3066;3067;3068;, - 3;3069;3070;3071;, - 3;3072;3073;3074;, - 3;3075;3076;3077;, - 3;3078;3079;3080;, - 3;3081;3082;3083;, - 3;3084;3085;3086;, - 3;3087;3088;3089;, - 3;3090;3091;3092;, - 3;3093;3094;3095;, - 3;3096;3097;3098;, - 3;3099;3100;3101;, - 3;3102;3103;3104;, - 3;3105;3106;3107;, - 3;3108;3109;3110;, - 3;3111;3112;3113;, - 3;3114;3115;3116;, - 3;3117;3118;3119;, - 3;3120;3121;3122;, - 3;3123;3124;3125;, - 3;3126;3127;3128;, - 3;3129;3130;3131;, - 3;3132;3133;3134;, - 3;3135;3136;3137;, - 3;3138;3139;3140;, - 3;3141;3142;3143;, - 3;3144;3145;3146;, - 3;3147;3148;3149;, - 3;3150;3151;3152;, - 3;3153;3154;3155;, - 3;3156;3157;3158;, - 3;3159;3160;3161;, - 3;3162;3163;3164;, - 3;3165;3166;3167;, - 3;3168;3169;3170;, - 3;3171;3172;3173;, - 3;3174;3175;3176;, - 3;3177;3178;3179;, - 3;3180;3181;3182;, - 3;3183;3184;3185;, - 3;3186;3187;3188;, - 3;3189;3190;3191;, - 3;3192;3193;3194;, - 3;3195;3196;3197;, - 3;3198;3199;3200;, - 3;3201;3202;3203;, - 3;3204;3205;3206;, - 3;3207;3208;3209;, - 3;3210;3211;3212;, - 3;3213;3214;3215;, - 3;3216;3217;3218;, - 3;3219;3220;3221;, - 3;3222;3223;3224;, - 3;3225;3226;3227;, - 3;3228;3229;3230;, - 3;3231;3232;3233;, - 3;3234;3235;3236;, - 3;3237;3238;3239;, - 3;3240;3241;3242;, - 3;3243;3244;3245;, - 3;3246;3247;3248;, - 3;3249;3250;3251;, - 3;3252;3253;3254;, - 3;3255;3256;3257;, - 3;3258;3259;3260;, - 3;3261;3262;3263;, - 3;3264;3265;3266;, - 3;3267;3268;3269;, - 3;3270;3271;3272;, - 3;3273;3274;3275;, - 3;3276;3277;3278;, - 3;3279;3280;3281;, - 3;3282;3283;3284;, - 3;3285;3286;3287;, - 3;3288;3289;3290;, - 3;3291;3292;3293;, - 3;3294;3295;3296;, - 3;3297;3298;3299;, - 3;3300;3301;3302;, - 3;3303;3304;3305;, - 3;3306;3307;3308;, - 3;3309;3310;3311;, - 3;3312;3313;3314;, - 3;3315;3316;3317;, - 3;3318;3319;3320;, - 3;3321;3322;3323;, - 3;3324;3325;3326;, - 3;3327;3328;3329;, - 3;3330;3331;3332;, - 3;3333;3334;3335;, - 3;3336;3337;3338;, - 3;3339;3340;3341;, - 3;3342;3343;3344;, - 3;3345;3346;3347;, - 3;3348;3349;3350;, - 3;3351;3352;3353;, - 3;3354;3355;3356;, - 3;3357;3358;3359;, - 3;3360;3361;3362;, - 3;3363;3364;3365;, - 3;3366;3367;3368;, - 3;3369;3370;3371;, - 3;3372;3373;3374;, - 3;3375;3376;3377;, - 3;3378;3379;3380;, - 3;3381;3382;3383;, - 3;3384;3385;3386;, - 3;3387;3388;3389;, - 3;3390;3391;3392;, - 3;3393;3394;3395;, - 3;3396;3397;3398;, - 3;3399;3400;3401;, - 3;3402;3403;3404;, - 3;3405;3406;3407;, - 3;3408;3409;3410;, - 3;3411;3412;3413;, - 3;3414;3415;3416;, - 3;3417;3418;3419;, - 3;3420;3421;3422;, - 3;3423;3424;3425;, - 3;3426;3427;3428;, - 3;3429;3430;3431;, - 3;3432;3433;3434;, - 3;3435;3436;3437;, - 3;3438;3439;3440;, - 3;3441;3442;3443;, - 3;3444;3445;3446;, - 3;3447;3448;3449;, - 3;3450;3451;3452;, - 3;3453;3454;3455;, - 3;3456;3457;3458;, - 3;3459;3460;3461;, - 3;3462;3463;3464;, - 3;3465;3466;3467;, - 3;3468;3469;3470;, - 3;3471;3472;3473;, - 3;3474;3475;3476;, - 3;3477;3478;3479;, - 3;3480;3481;3482;, - 3;3483;3484;3485;, - 3;3486;3487;3488;, - 3;3489;3490;3491;, - 3;3492;3493;3494;, - 3;3495;3496;3497;, - 3;3498;3499;3500;, - 3;3501;3502;3503;, - 3;3504;3505;3506;, - 3;3507;3508;3509;, - 3;3510;3511;3512;, - 3;3513;3514;3515;, - 3;3516;3517;3518;, - 3;3519;3520;3521;, - 3;3522;3523;3524;, - 3;3525;3526;3527;, - 3;3528;3529;3530;, - 3;3531;3532;3533;, - 3;3534;3535;3536;, - 3;3537;3538;3539;, - 3;3540;3541;3542;, - 3;3543;3544;3545;, - 3;3546;3547;3548;, - 3;3549;3550;3551;, - 3;3552;3553;3554;, - 3;3555;3556;3557;, - 3;3558;3559;3560;, - 3;3561;3562;3563;, - 3;3564;3565;3566;, - 3;3567;3568;3569;, - 3;3570;3571;3572;, - 3;3573;3574;3575;, - 3;3576;3577;3578;, - 3;3579;3580;3581;, - 3;3582;3583;3584;, - 3;3585;3586;3587;, - 3;3588;3589;3590;, - 3;3591;3592;3593;, - 3;3594;3595;3596;, - 3;3597;3598;3599;, - 3;3600;3601;3602;, - 3;3603;3604;3605;, - 3;3606;3607;3608;, - 3;3609;3610;3611;, - 3;3612;3613;3614;, - 3;3615;3616;3617;, - 3;3618;3619;3620;, - 3;3621;3622;3623;, - 3;3624;3625;3626;, - 3;3627;3628;3629;, - 3;3630;3631;3632;, - 3;3633;3634;3635;, - 3;3636;3637;3638;, - 3;3639;3640;3641;, - 3;3642;3643;3644;, - 3;3645;3646;3647;, - 3;3648;3649;3650;, - 3;3651;3652;3653;, - 3;3654;3655;3656;, - 3;3657;3658;3659;, - 3;3660;3661;3662;, - 3;3663;3664;3665;, - 3;3666;3667;3668;, - 3;3669;3670;3671;, - 3;3672;3673;3674;, - 3;3675;3676;3677;, - 3;3678;3679;3680;, - 3;3681;3682;3683;, - 3;3684;3685;3686;, - 3;3687;3688;3689;, - 3;3690;3691;3692;, - 3;3693;3694;3695;, - 3;3696;3697;3698;, - 3;3699;3700;3701;, - 3;3702;3703;3704;, - 3;3705;3706;3707;, - 3;3708;3709;3710;, - 3;3711;3712;3713;, - 3;3714;3715;3716;, - 3;3717;3718;3719;, - 3;3720;3721;3722;, - 3;3723;3724;3725;, - 3;3726;3727;3728;, - 3;3729;3730;3731;, - 3;3732;3733;3734;, - 3;3735;3736;3737;, - 3;3738;3739;3740;, - 3;3741;3742;3743;, - 3;3744;3745;3746;, - 3;3747;3748;3749;, - 3;3750;3751;3752;, - 3;3753;3754;3755;, - 3;3756;3757;3758;, - 3;3759;3760;3761;, - 3;3762;3763;3764;, - 3;3765;3766;3767;, - 3;3768;3769;3770;, - 3;3771;3772;3773;, - 3;3774;3775;3776;, - 3;3777;3778;3779;, - 3;3780;3781;3782;, - 3;3783;3784;3785;, - 3;3786;3787;3788;, - 3;3789;3790;3791;, - 3;3792;3793;3794;, - 3;3795;3796;3797;, - 3;3798;3799;3800;, - 3;3801;3802;3803;, - 3;3804;3805;3806;, - 3;3807;3808;3809;, - 3;3810;3811;3812;, - 3;3813;3814;3815;, - 3;3816;3817;3818;, - 3;3819;3820;3821;, - 3;3822;3823;3824;, - 3;3825;3826;3827;, - 3;3828;3829;3830;, - 3;3831;3832;3833;, - 3;3834;3835;3836;, - 3;3837;3838;3839;, - 3;3840;3841;3842;, - 3;3843;3844;3845;, - 3;3846;3847;3848;, - 3;3849;3850;3851;, - 3;3852;3853;3854;, - 3;3855;3856;3857;, - 3;3858;3859;3860;, - 3;3861;3862;3863;, - 3;3864;3865;3866;, - 3;3867;3868;3869;, - 3;3870;3871;3872;, - 3;3873;3874;3875;, - 3;3876;3877;3878;, - 3;3879;3880;3881;, - 3;3882;3883;3884;, - 3;3885;3886;3887;, - 3;3888;3889;3890;, - 3;3891;3892;3893;, - 3;3894;3895;3896;, - 3;3897;3898;3899;, - 3;3900;3901;3902;, - 3;3903;3904;3905;, - 3;3906;3907;3908;, - 3;3909;3910;3911;, - 3;3912;3913;3914;, - 3;3915;3916;3917;, - 3;3918;3919;3920;, - 3;3921;3922;3923;, - 3;3924;3925;3926;, - 3;3927;3928;3929;, - 3;3930;3931;3932;, - 3;3933;3934;3935;, - 3;3936;3937;3938;, - 3;3939;3940;3941;, - 3;3942;3943;3944;, - 3;3945;3946;3947;, - 3;3948;3949;3950;, - 3;3951;3952;3953;, - 3;3954;3955;3956;, - 3;3957;3958;3959;, - 3;3960;3961;3962;, - 3;3963;3964;3965;, - 3;3966;3967;3968;, - 3;3969;3970;3971;, - 3;3972;3973;3974;, - 3;3975;3976;3977;, - 3;3978;3979;3980;, - 3;3981;3982;3983;, - 3;3984;3985;3986;, - 3;3987;3988;3989;, - 3;3990;3991;3992;, - 3;3993;3994;3995;, - 3;3996;3997;3998;, - 3;3999;4000;4001;, - 3;4002;4003;4004;, - 3;4005;4006;4007;, - 3;4008;4009;4010;, - 3;4011;4012;4013;, - 3;4014;4015;4016;, - 3;4017;4018;4019;, - 3;4020;4021;4022;, - 3;4023;4024;4025;, - 3;4026;4027;4028;, - 3;4029;4030;4031;, - 3;4032;4033;4034;, - 3;4035;4036;4037;, - 3;4038;4039;4040;, - 3;4041;4042;4043;, - 3;4044;4045;4046;, - 3;4047;4048;4049;, - 3;4050;4051;4052;, - 3;4053;4054;4055;, - 3;4056;4057;4058;, - 3;4059;4060;4061;, - 3;4062;4063;4064;, - 3;4065;4066;4067;, - 3;4068;4069;4070;, - 3;4071;4072;4073;, - 3;4074;4075;4076;, - 3;4077;4078;4079;, - 3;4080;4081;4082;, - 3;4083;4084;4085;, - 3;4086;4087;4088;, - 3;4089;4090;4091;, - 3;4092;4093;4094;, - 3;4095;4096;4097;, - 3;4098;4099;4100;, - 3;4101;4102;4103;, - 3;4104;4105;4106;, - 3;4107;4108;4109;, - 3;4110;4111;4112;, - 3;4113;4114;4115;, - 3;4116;4117;4118;, - 3;4119;4120;4121;, - 3;4122;4123;4124;, - 3;4125;4126;4127;, - 3;4128;4129;4130;, - 3;4131;4132;4133;, - 3;4134;4135;4136;, - 3;4137;4138;4139;, - 3;4140;4141;4142;, - 3;4143;4144;4145;, - 3;4146;4147;4148;, - 3;4149;4150;4151;, - 3;4152;4153;4154;, - 3;4155;4156;4157;, - 3;4158;4159;4160;, - 3;4161;4162;4163;, - 3;4164;4165;4166;, - 3;4167;4168;4169;, - 3;4170;4171;4172;, - 3;4173;4174;4175;, - 3;4176;4177;4178;, - 3;4179;4180;4181;, - 3;4182;4183;4184;, - 3;4185;4186;4187;, - 3;4188;4189;4190;, - 3;4191;4192;4193;, - 3;4194;4195;4196;, - 3;4197;4198;4199;, - 3;4200;4201;4202;, - 3;4203;4204;4205;, - 3;4206;4207;4208;, - 3;4209;4210;4211;, - 3;4212;4213;4214;, - 3;4215;4216;4217;, - 3;4218;4219;4220;, - 3;4221;4222;4223;, - 3;4224;4225;4226;, - 3;4227;4228;4229;, - 3;4230;4231;4232;, - 3;4233;4234;4235;, - 3;4236;4237;4238;, - 3;4239;4240;4241;, - 3;4242;4243;4244;, - 3;4245;4246;4247;, - 3;4248;4249;4250;, - 3;4251;4252;4253;, - 3;4254;4255;4256;, - 3;4257;4258;4259;, - 3;4260;4261;4262;, - 3;4263;4264;4265;, - 3;4266;4267;4268;, - 3;4269;4270;4271;, - 3;4272;4273;4274;, - 3;4275;4276;4277;, - 3;4278;4279;4280;, - 3;4281;4282;4283;, - 3;4284;4285;4286;, - 3;4287;4288;4289;, - 3;4290;4291;4292;, - 3;4293;4294;4295;, - 3;4296;4297;4298;, - 3;4299;4300;4301;, - 3;4302;4303;4304;, - 3;4305;4306;4307;, - 3;4308;4309;4310;, - 3;4311;4312;4313;, - 3;4314;4315;4316;, - 3;4317;4318;4319;, - 3;4320;4321;4322;, - 3;4323;4324;4325;, - 3;4326;4327;4328;, - 3;4329;4330;4331;, - 3;4332;4333;4334;, - 3;4335;4336;4337;, - 3;4338;4339;4340;, - 3;4341;4342;4343;, - 3;4344;4345;4346;, - 3;4347;4348;4349;, - 3;4350;4351;4352;, - 3;4353;4354;4355;, - 3;4356;4357;4358;, - 3;4359;4360;4361;, - 3;4362;4363;4364;, - 3;4365;4366;4367;, - 3;4368;4369;4370;, - 3;4371;4372;4373;, - 3;4374;4375;4376;, - 3;4377;4378;4379;, - 3;4380;4381;4382;, - 3;4383;4384;4385;, - 3;4386;4387;4388;, - 3;4389;4390;4391;, - 3;4392;4393;4394;, - 3;4395;4396;4397;, - 3;4398;4399;4400;, - 3;4401;4402;4403;, - 3;4404;4405;4406;, - 3;4407;4408;4409;, - 3;4410;4411;4412;, - 3;4413;4414;4415;, - 3;4416;4417;4418;, - 3;4419;4420;4421;, - 3;4422;4423;4424;, - 3;4425;4426;4427;, - 3;4428;4429;4430;, - 3;4431;4432;4433;, - 3;4434;4435;4436;, - 3;4437;4438;4439;, - 3;4440;4441;4442;, - 3;4443;4444;4445;, - 3;4446;4447;4448;, - 3;4449;4450;4451;, - 3;4452;4453;4454;, - 3;4455;4456;4457;, - 3;4458;4459;4460;, - 3;4461;4462;4463;, - 3;4464;4465;4466;, - 3;4467;4468;4469;, - 3;4470;4471;4472;, - 3;4473;4474;4475;, - 3;4476;4477;4478;, - 3;4479;4480;4481;, - 3;4482;4483;4484;, - 3;4485;4486;4487;, - 3;4488;4489;4490;, - 3;4491;4492;4493;, - 3;4494;4495;4496;, - 3;4497;4498;4499;, - 3;4500;4501;4502;, - 3;4503;4504;4505;, - 3;4506;4507;4508;, - 3;4509;4510;4511;, - 3;4512;4513;4514;, - 3;4515;4516;4517;, - 3;4518;4519;4520;, - 3;4521;4522;4523;, - 3;4524;4525;4526;, - 3;4527;4528;4529;, - 3;4530;4531;4532;, - 3;4533;4534;4535;, - 3;4536;4537;4538;, - 3;4539;4540;4541;, - 3;4542;4543;4544;, - 3;4545;4546;4547;, - 3;4548;4549;4550;, - 3;4551;4552;4553;, - 3;4554;4555;4556;, - 3;4557;4558;4559;, - 3;4560;4561;4562;, - 3;4563;4564;4565;, - 3;4566;4567;4568;, - 3;4569;4570;4571;, - 3;4572;4573;4574;, - 3;4575;4576;4577;, - 3;4578;4579;4580;, - 3;4581;4582;4583;, - 3;4584;4585;4586;, - 3;4587;4588;4589;, - 3;4590;4591;4592;, - 3;4593;4594;4595;, - 3;4596;4597;4598;, - 3;4599;4600;4601;, - 3;4602;4603;4604;, - 3;4605;4606;4607;, - 3;4608;4609;4610;, - 3;4611;4612;4613;, - 3;4614;4615;4616;, - 3;4617;4618;4619;, - 3;4620;4621;4622;, - 3;4623;4624;4625;, - 3;4626;4627;4628;, - 3;4629;4630;4631;, - 3;4632;4633;4634;, - 3;4635;4636;4637;, - 3;4638;4639;4640;, - 3;4641;4642;4643;, - 3;4644;4645;4646;, - 3;4647;4648;4649;, - 3;4650;4651;4652;, - 3;4653;4654;4655;, - 3;4656;4657;4658;, - 3;4659;4660;4661;, - 3;4662;4663;4664;, - 3;4665;4666;4667;, - 3;4668;4669;4670;, - 3;4671;4672;4673;, - 3;4674;4675;4676;, - 3;4677;4678;4679;, - 3;4680;4681;4682;, - 3;4683;4684;4685;, - 3;4686;4687;4688;, - 3;4689;4690;4691;, - 3;4692;4693;4694;, - 3;4695;4696;4697;, - 3;4698;4699;4700;, - 3;4701;4702;4703;, - 3;4704;4705;4706;, - 3;4707;4708;4709;, - 3;4710;4711;4712;, - 3;4713;4714;4715;, - 3;4716;4717;4718;, - 3;4719;4720;4721;, - 3;4722;4723;4724;, - 3;4725;4726;4727;, - 3;4728;4729;4730;, - 3;4731;4732;4733;, - 3;4734;4735;4736;, - 3;4737;4738;4739;, - 3;4740;4741;4742;, - 3;4743;4744;4745;, - 3;4746;4747;4748;, - 3;4749;4750;4751;, - 3;4752;4753;4754;, - 3;4755;4756;4757;, - 3;4758;4759;4760;, - 3;4761;4762;4763;, - 3;4764;4765;4766;, - 3;4767;4768;4769;, - 3;4770;4771;4772;, - 3;4773;4774;4775;, - 3;4776;4777;4778;, - 3;4779;4780;4781;, - 3;4782;4783;4784;, - 3;4785;4786;4787;, - 3;4788;4789;4790;, - 3;4791;4792;4793;, - 3;4794;4795;4796;, - 3;4797;4798;4799;, - 3;4800;4801;4802;, - 3;4803;4804;4805;, - 3;4806;4807;4808;, - 3;4809;4810;4811;, - 3;4812;4813;4814;, - 3;4815;4816;4817;, - 3;4818;4819;4820;, - 3;4821;4822;4823;, - 3;4824;4825;4826;, - 3;4827;4828;4829;, - 3;4830;4831;4832;, - 3;4833;4834;4835;, - 3;4836;4837;4838;, - 3;4839;4840;4841;, - 3;4842;4843;4844;, - 3;4845;4846;4847;, - 3;4848;4849;4850;, - 3;4851;4852;4853;, - 3;4854;4855;4856;, - 3;4857;4858;4859;, - 3;4860;4861;4862;, - 3;4863;4864;4865;, - 3;4866;4867;4868;, - 3;4869;4870;4871;, - 3;4872;4873;4874;, - 3;4875;4876;4877;, - 3;4878;4879;4880;, - 3;4881;4882;4883;, - 3;4884;4885;4886;, - 3;4887;4888;4889;, - 3;4890;4891;4892;, - 3;4893;4894;4895;, - 3;4896;4897;4898;, - 3;4899;4900;4901;, - 3;4902;4903;4904;, - 3;4905;4906;4907;, - 3;4908;4909;4910;, - 3;4911;4912;4913;, - 3;4914;4915;4916;, - 3;4917;4918;4919;, - 3;4920;4921;4922;, - 3;4923;4924;4925;, - 3;4926;4927;4928;, - 3;4929;4930;4931;, - 3;4932;4933;4934;, - 3;4935;4936;4937;, - 3;4938;4939;4940;, - 3;4941;4942;4943;, - 3;4944;4945;4946;, - 3;4947;4948;4949;, - 3;4950;4951;4952;, - 3;4953;4954;4955;, - 3;4956;4957;4958;, - 3;4959;4960;4961;, - 3;4962;4963;4964;, - 3;4965;4966;4967;, - 3;4968;4969;4970;, - 3;4971;4972;4973;, - 3;4974;4975;4976;, - 3;4977;4978;4979;, - 3;4980;4981;4982;, - 3;4983;4984;4985;, - 3;4986;4987;4988;, - 3;4989;4990;4991;, - 3;4992;4993;4994;, - 3;4995;4996;4997;, - 3;4998;4999;5000;, - 3;5001;5002;5003;, - 3;5004;5005;5006;, - 3;5007;5008;5009;, - 3;5010;5011;5012;, - 3;5013;5014;5015;, - 3;5016;5017;5018;, - 3;5019;5020;5021;, - 3;5022;5023;5024;, - 3;5025;5026;5027;, - 3;5028;5029;5030;, - 3;5031;5032;5033;, - 3;5034;5035;5036;, - 3;5037;5038;5039;, - 3;5040;5041;5042;, - 3;5043;5044;5045;, - 3;5046;5047;5048;, - 3;5049;5050;5051;, - 3;5052;5053;5054;, - 3;5055;5056;5057;, - 3;5058;5059;5060;, - 3;5061;5062;5063;, - 3;5064;5065;5066;, - 3;5067;5068;5069;, - 3;5070;5071;5072;, - 3;5073;5074;5075;, - 3;5076;5077;5078;, - 3;5079;5080;5081;, - 3;5082;5083;5084;, - 3;5085;5086;5087;, - 3;5088;5089;5090;, - 3;5091;5092;5093;, - 3;5094;5095;5096;, - 3;5097;5098;5099;, - 3;5100;5101;5102;, - 3;5103;5104;5105;, - 3;5106;5107;5108;, - 3;5109;5110;5111;, - 3;5112;5113;5114;, - 3;5115;5116;5117;, - 3;5118;5119;5120;, - 3;5121;5122;5123;, - 3;5124;5125;5126;, - 3;5127;5128;5129;, - 3;5130;5131;5132;, - 3;5133;5134;5135;, - 3;5136;5137;5138;, - 3;5139;5140;5141;, - 3;5142;5143;5144;, - 3;5145;5146;5147;, - 3;5148;5149;5150;, - 3;5151;5152;5153;, - 3;5154;5155;5156;, - 3;5157;5158;5159;, - 3;5160;5161;5162;, - 3;5163;5164;5165;, - 3;5166;5167;5168;, - 3;5169;5170;5171;, - 3;5172;5173;5174;, - 3;5175;5176;5177;, - 3;5178;5179;5180;, - 3;5181;5182;5183;, - 3;5184;5185;5186;, - 3;5187;5188;5189;, - 3;5190;5191;5192;, - 3;5193;5194;5195;, - 3;5196;5197;5198;, - 3;5199;5200;5201;, - 3;5202;5203;5204;, - 3;5205;5206;5207;, - 3;5208;5209;5210;, - 3;5211;5212;5213;, - 3;5214;5215;5216;, - 3;5217;5218;5219;, - 3;5220;5221;5222;, - 3;5223;5224;5225;, - 3;5226;5227;5228;, - 3;5229;5230;5231;, - 3;5232;5233;5234;, - 3;5235;5236;5237;, - 3;5238;5239;5240;, - 3;5241;5242;5243;, - 3;5244;5245;5246;, - 3;5247;5248;5249;, - 3;5250;5251;5252;, - 3;5253;5254;5255;, - 3;5256;5257;5258;, - 3;5259;5260;5261;, - 3;5262;5263;5264;, - 3;5265;5266;5267;, - 3;5268;5269;5270;, - 3;5271;5272;5273;, - 3;5274;5275;5276;, - 3;5277;5278;5279;, - 3;5280;5281;5282;, - 3;5283;5284;5285;, - 3;5286;5287;5288;, - 3;5289;5290;5291;, - 3;5292;5293;5294;, - 3;5295;5296;5297;, - 3;5298;5299;5300;, - 3;5301;5302;5303;, - 3;5304;5305;5306;, - 3;5307;5308;5309;, - 3;5310;5311;5312;, - 3;5313;5314;5315;, - 3;5316;5317;5318;, - 3;5319;5320;5321;, - 3;5322;5323;5324;, - 3;5325;5326;5327;, - 3;5328;5329;5330;, - 3;5331;5332;5333;, - 3;5334;5335;5336;, - 3;5337;5338;5339;, - 3;5340;5341;5342;, - 3;5343;5344;5345;, - 3;5346;5347;5348;, - 3;5349;5350;5351;, - 3;5352;5353;5354;, - 3;5355;5356;5357;, - 3;5358;5359;5360;, - 3;5361;5362;5363;, - 3;5364;5365;5366;, - 3;5367;5368;5369;, - 3;5370;5371;5372;, - 3;5373;5374;5375;, - 3;5376;5377;5378;, - 3;5379;5380;5381;, - 3;5382;5383;5384;, - 3;5385;5386;5387;, - 3;5388;5389;5390;, - 3;5391;5392;5393;, - 3;5394;5395;5396;, - 3;5397;5398;5399;, - 3;5400;5401;5402;, - 3;5403;5404;5405;, - 3;5406;5407;5408;, - 3;5409;5410;5411;, - 3;5412;5413;5414;, - 3;5415;5416;5417;, - 3;5418;5419;5420;, - 3;5421;5422;5423;, - 3;5424;5425;5426;, - 3;5427;5428;5429;, - 3;5430;5431;5432;, - 3;5433;5434;5435;, - 3;5436;5437;5438;, - 3;5439;5440;5441;, - 3;5442;5443;5444;, - 3;5445;5446;5447;, - 3;5448;5449;5450;, - 3;5451;5452;5453;, - 3;5454;5455;5456;, - 3;5457;5458;5459;, - 3;5460;5461;5462;, - 3;5463;5464;5465;, - 3;5466;5467;5468;, - 3;5469;5470;5471;, - 3;5472;5473;5474;, - 3;5475;5476;5477;, - 3;5478;5479;5480;, - 3;5481;5482;5483;, - 3;5484;5485;5486;, - 3;5487;5488;5489;, - 3;5490;5491;5492;, - 3;5493;5494;5495;, - 3;5496;5497;5498;, - 3;5499;5500;5501;, - 3;5502;5503;5504;, - 3;5505;5506;5507;, - 3;5508;5509;5510;, - 3;5511;5512;5513;, - 3;5514;5515;5516;, - 3;5517;5518;5519;, - 3;5520;5521;5522;, - 3;5523;5524;5525;, - 3;5526;5527;5528;, - 3;5529;5530;5531;, - 3;5532;5533;5534;, - 3;5535;5536;5537;, - 3;5538;5539;5540;, - 3;5541;5542;5543;, - 3;5544;5545;5546;, - 3;5547;5548;5549;, - 3;5550;5551;5552;, - 3;5553;5554;5555;, - 3;5556;5557;5558;, - 3;5559;5560;5561;, - 3;5562;5563;5564;, - 3;5565;5566;5567;, - 3;5568;5569;5570;, - 3;5571;5572;5573;, - 3;5574;5575;5576;, - 3;5577;5578;5579;, - 3;5580;5581;5582;, - 3;5583;5584;5585;, - 3;5586;5587;5588;, - 3;5589;5590;5591;, - 3;5592;5593;5594;, - 3;5595;5596;5597;, - 3;5598;5599;5600;, - 3;5601;5602;5603;, - 3;5604;5605;5606;, - 3;5607;5608;5609;, - 3;5610;5611;5612;, - 3;5613;5614;5615;, - 3;5616;5617;5618;, - 3;5619;5620;5621;, - 3;5622;5623;5624;, - 3;5625;5626;5627;, - 3;5628;5629;5630;, - 3;5631;5632;5633;, - 3;5634;5635;5636;, - 3;5637;5638;5639;, - 3;5640;5641;5642;, - 3;5643;5644;5645;, - 3;5646;5647;5648;, - 3;5649;5650;5651;, - 3;5652;5653;5654;, - 3;5655;5656;5657;, - 3;5658;5659;5660;, - 3;5661;5662;5663;, - 3;5664;5665;5666;, - 3;5667;5668;5669;, - 3;5670;5671;5672;, - 3;5673;5674;5675;, - 3;5676;5677;5678;, - 3;5679;5680;5681;, - 3;5682;5683;5684;, - 3;5685;5686;5687;, - 3;5688;5689;5690;, - 3;5691;5692;5693;, - 3;5694;5695;5696;, - 3;5697;5698;5699;, - 3;5700;5701;5702;, - 3;5703;5704;5705;, - 3;5706;5707;5708;, - 3;5709;5710;5711;, - 3;5712;5713;5714;, - 3;5715;5716;5717;, - 3;5718;5719;5720;, - 3;5721;5722;5723;, - 3;5724;5725;5726;, - 3;5727;5728;5729;, - 3;5730;5731;5732;, - 3;5733;5734;5735;, - 3;5736;5737;5738;, - 3;5739;5740;5741;, - 3;5742;5743;5744;, - 3;5745;5746;5747;, - 3;5748;5749;5750;, - 3;5751;5752;5753;, - 3;5754;5755;5756;, - 3;5757;5758;5759;, - 3;5760;5761;5762;, - 3;5763;5764;5765;, - 3;5766;5767;5768;, - 3;5769;5770;5771;, - 3;5772;5773;5774;, - 3;5775;5776;5777;, - 3;5778;5779;5780;, - 3;5781;5782;5783;, - 3;5784;5785;5786;, - 3;5787;5788;5789;; - } //End of Cube_000 Normals - MeshMaterialList { //Cube_000 Material List - 2; - 1930; - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1;; - Material Default_Material { - 0.800000; 0.800000; 0.800000; 0.800000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - Material Material_TF_514 { - 0.640000; 0.640000; 0.640000; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - } //End of Cube_000 Material List - MeshTextureCoords { //Cube_000 UV Coordinates - 5790; - 0.130433; 0.654433;, - 0.108083; 0.654494;, - 0.119951; 0.689974;, - 0.119951; 0.689974;, - 0.108083; 0.654494;, - 0.130433; 0.654433;, - 0.137883; 0.693203;, - 0.130433; 0.654433;, - 0.119951; 0.689974;, - 0.119951; 0.689974;, - 0.130433; 0.654433;, - 0.137883; 0.693203;, - 0.129946; 0.722649;, - 0.137883; 0.693203;, - 0.119951; 0.689974;, - 0.119951; 0.689974;, - 0.137883; 0.693203;, - 0.129946; 0.722649;, - 0.115692; 0.715947;, - 0.129946; 0.722649;, - 0.119951; 0.689974;, - 0.119951; 0.689974;, - 0.129946; 0.722649;, - 0.115692; 0.715947;, - 0.109140; 0.706283;, - 0.115692; 0.715947;, - 0.119951; 0.689974;, - 0.119951; 0.689974;, - 0.115692; 0.715947;, - 0.109140; 0.706283;, - 0.109140; 0.706283;, - 0.119951; 0.689974;, - 0.094583; 0.693945;, - 0.094583; 0.693945;, - 0.119951; 0.689974;, - 0.109140; 0.706283;, - 0.094583; 0.693945;, - 0.119951; 0.689974;, - 0.108083; 0.654494;, - 0.108083; 0.654494;, - 0.119951; 0.689974;, - 0.094583; 0.693945;, - 0.094583; 0.693945;, - 0.108083; 0.654494;, - 0.078261; 0.684645;, - 0.078261; 0.684645;, - 0.108083; 0.654494;, - 0.094583; 0.693945;, - 0.104623; 0.622497;, - 0.108083; 0.654494;, - 0.130433; 0.654433;, - 0.130433; 0.654433;, - 0.108083; 0.654494;, - 0.104623; 0.622497;, - 0.079011; 0.601508;, - 0.108083; 0.654494;, - 0.104623; 0.622497;, - 0.104623; 0.622497;, - 0.108083; 0.654494;, - 0.079011; 0.601508;, - 0.078542; 0.649312;, - 0.108083; 0.654494;, - 0.079011; 0.601508;, - 0.079011; 0.601508;, - 0.108083; 0.654494;, - 0.078542; 0.649312;, - 0.048824; 0.653926;, - 0.079011; 0.601508;, - 0.052948; 0.621962;, - 0.052948; 0.621962;, - 0.079011; 0.601508;, - 0.048824; 0.653926;, - 0.048824; 0.653926;, - 0.078542; 0.649312;, - 0.079011; 0.601508;, - 0.079011; 0.601508;, - 0.078542; 0.649312;, - 0.048824; 0.653926;, - 0.052948; 0.621962;, - 0.026368; 0.653431;, - 0.048824; 0.653926;, - 0.048824; 0.653926;, - 0.026368; 0.653431;, - 0.052948; 0.621962;, - 0.026368; 0.653431;, - 0.036262; 0.689352;, - 0.048824; 0.653926;, - 0.048824; 0.653926;, - 0.036262; 0.689352;, - 0.026368; 0.653431;, - 0.018137; 0.692338;, - 0.036262; 0.689352;, - 0.026368; 0.653431;, - 0.026368; 0.653431;, - 0.036262; 0.689352;, - 0.018137; 0.692338;, - 0.025758; 0.722222;, - 0.036262; 0.689352;, - 0.018137; 0.692338;, - 0.018137; 0.692338;, - 0.036262; 0.689352;, - 0.025758; 0.722222;, - 0.025758; 0.722222;, - 0.040217; 0.715593;, - 0.036262; 0.689352;, - 0.036262; 0.689352;, - 0.040217; 0.715593;, - 0.025758; 0.722222;, - 0.036262; 0.689352;, - 0.040217; 0.715593;, - 0.046916; 0.705937;, - 0.046916; 0.705937;, - 0.040217; 0.715593;, - 0.036262; 0.689352;, - 0.061829; 0.693620;, - 0.036262; 0.689352;, - 0.046916; 0.705937;, - 0.046916; 0.705937;, - 0.036262; 0.689352;, - 0.061829; 0.693620;, - 0.061829; 0.693620;, - 0.048824; 0.653926;, - 0.036262; 0.689352;, - 0.036262; 0.689352;, - 0.048824; 0.653926;, - 0.061829; 0.693620;, - 0.061829; 0.693620;, - 0.078261; 0.684645;, - 0.048824; 0.653926;, - 0.048824; 0.653926;, - 0.078261; 0.684645;, - 0.061829; 0.693620;, - 0.078261; 0.684645;, - 0.108083; 0.654494;, - 0.078542; 0.649312;, - 0.078542; 0.649312;, - 0.108083; 0.654494;, - 0.078261; 0.684645;, - 0.078261; 0.684645;, - 0.078542; 0.649312;, - 0.048824; 0.653926;, - 0.048824; 0.653926;, - 0.078542; 0.649312;, - 0.078261; 0.684645;, - 0.078261; 0.684645;, - 0.068040; 0.696275;, - 0.078237; 0.688195;, - 0.078237; 0.688195;, - 0.068040; 0.696275;, - 0.078261; 0.684645;, - 0.068040; 0.696275;, - 0.078261; 0.684645;, - 0.061829; 0.693620;, - 0.061829; 0.693620;, - 0.078261; 0.684645;, - 0.068040; 0.696275;, - 0.068040; 0.696275;, - 0.061829; 0.693620;, - 0.050433; 0.708895;, - 0.050433; 0.708895;, - 0.061829; 0.693620;, - 0.068040; 0.696275;, - 0.061829; 0.693620;, - 0.046916; 0.705937;, - 0.050433; 0.708895;, - 0.050433; 0.708895;, - 0.046916; 0.705937;, - 0.061829; 0.693620;, - 0.040217; 0.715593;, - 0.050433; 0.708895;, - 0.046916; 0.705937;, - 0.046916; 0.705937;, - 0.050433; 0.708895;, - 0.040217; 0.715593;, - 0.078237; 0.688195;, - 0.094583; 0.693945;, - 0.078261; 0.684645;, - 0.078261; 0.684645;, - 0.094583; 0.693945;, - 0.078237; 0.688195;, - 0.078237; 0.688195;, - 0.088305; 0.696254;, - 0.094583; 0.693945;, - 0.094583; 0.693945;, - 0.088305; 0.696254;, - 0.078237; 0.688195;, - 0.088305; 0.696254;, - 0.105079; 0.709256;, - 0.094583; 0.693945;, - 0.094583; 0.693945;, - 0.105079; 0.709256;, - 0.088305; 0.696254;, - 0.109140; 0.706283;, - 0.094583; 0.693945;, - 0.105079; 0.709256;, - 0.105079; 0.709256;, - 0.094583; 0.693945;, - 0.109140; 0.706283;, - 0.109140; 0.706283;, - 0.105079; 0.709256;, - 0.115692; 0.715947;, - 0.115692; 0.715947;, - 0.105079; 0.709256;, - 0.109140; 0.706283;, - 0.040217; 0.715593;, - 0.078081; 0.723572;, - 0.050433; 0.708895;, - 0.050433; 0.708895;, - 0.078081; 0.723572;, - 0.040217; 0.715593;, - 0.115692; 0.715947;, - 0.105079; 0.709256;, - 0.078081; 0.723572;, - 0.078081; 0.723572;, - 0.105079; 0.709256;, - 0.115692; 0.715947;, - 0.040217; 0.715593;, - 0.025758; 0.722222;, - 0.078016; 0.735815;, - 0.078016; 0.735815;, - 0.025758; 0.722222;, - 0.040217; 0.715593;, - 0.040217; 0.715593;, - 0.078016; 0.735815;, - 0.078081; 0.723572;, - 0.078081; 0.723572;, - 0.078016; 0.735815;, - 0.040217; 0.715593;, - 0.115692; 0.715947;, - 0.078081; 0.723572;, - 0.078016; 0.735815;, - 0.078016; 0.735815;, - 0.078081; 0.723572;, - 0.115692; 0.715947;, - 0.115692; 0.715947;, - 0.078016; 0.735815;, - 0.129946; 0.722649;, - 0.129946; 0.722649;, - 0.078016; 0.735815;, - 0.115692; 0.715947;, - 0.141567; 0.614718;, - 0.169192; 0.641863;, - 0.169711; 0.611941;, - 0.169711; 0.611941;, - 0.169192; 0.641863;, - 0.141567; 0.614718;, - 0.141567; 0.614718;, - 0.142654; 0.629472;, - 0.169192; 0.641863;, - 0.169192; 0.641863;, - 0.142654; 0.629472;, - 0.141567; 0.614718;, - 0.142654; 0.629472;, - 0.147919; 0.647702;, - 0.169192; 0.641863;, - 0.169192; 0.641863;, - 0.147919; 0.647702;, - 0.142654; 0.629472;, - 0.157765; 0.664594;, - 0.169192; 0.641863;, - 0.147919; 0.647702;, - 0.147919; 0.647702;, - 0.169192; 0.641863;, - 0.157765; 0.664594;, - 0.168609; 0.675824;, - 0.169192; 0.641863;, - 0.157765; 0.664594;, - 0.157765; 0.664594;, - 0.169192; 0.641863;, - 0.168609; 0.675824;, - 0.197741; 0.615691;, - 0.169711; 0.611941;, - 0.169192; 0.641863;, - 0.169192; 0.641863;, - 0.169711; 0.611941;, - 0.197741; 0.615691;, - 0.197741; 0.615691;, - 0.169192; 0.641863;, - 0.196144; 0.630399;, - 0.196144; 0.630399;, - 0.169192; 0.641863;, - 0.197741; 0.615691;, - 0.196144; 0.630399;, - 0.169192; 0.641863;, - 0.190251; 0.648435;, - 0.190251; 0.648435;, - 0.169192; 0.641863;, - 0.196144; 0.630399;, - 0.179826; 0.664977;, - 0.190251; 0.648435;, - 0.169192; 0.641863;, - 0.169192; 0.641863;, - 0.190251; 0.648435;, - 0.179826; 0.664977;, - 0.168609; 0.675824;, - 0.179826; 0.664977;, - 0.169192; 0.641863;, - 0.169192; 0.641863;, - 0.179826; 0.664977;, - 0.168609; 0.675824;, - 0.722096; 0.574535;, - 0.743644; 0.565221;, - 0.734631; 0.559798;, - 0.734631; 0.559798;, - 0.743644; 0.565221;, - 0.722096; 0.574535;, - 0.721141; 0.566577;, - 0.722096; 0.574535;, - 0.734631; 0.559798;, - 0.734631; 0.559798;, - 0.722096; 0.574535;, - 0.721141; 0.566577;, - 0.720379; 0.556914;, - 0.721141; 0.566577;, - 0.734631; 0.559798;, - 0.734631; 0.559798;, - 0.721141; 0.566577;, - 0.720379; 0.556914;, - 0.720379; 0.556914;, - 0.734631; 0.559798;, - 0.732229; 0.541585;, - 0.732229; 0.541585;, - 0.734631; 0.559798;, - 0.720379; 0.556914;, - 0.720842; 0.541436;, - 0.720379; 0.556914;, - 0.732229; 0.541585;, - 0.732229; 0.541585;, - 0.720379; 0.556914;, - 0.720842; 0.541436;, - 0.721083; 0.533445;, - 0.734142; 0.528325;, - 0.721046; 0.528525;, - 0.721046; 0.528525;, - 0.734142; 0.528325;, - 0.721083; 0.533445;, - 0.721083; 0.533445;, - 0.732229; 0.541585;, - 0.734142; 0.528325;, - 0.734142; 0.528325;, - 0.732229; 0.541585;, - 0.721083; 0.533445;, - 0.721083; 0.533445;, - 0.720842; 0.541436;, - 0.732229; 0.541585;, - 0.732229; 0.541585;, - 0.720842; 0.541436;, - 0.721083; 0.533445;, - 0.720779; 0.522357;, - 0.721046; 0.528525;, - 0.734142; 0.528325;, - 0.734142; 0.528325;, - 0.721046; 0.528525;, - 0.720779; 0.522357;, - 0.720779; 0.522357;, - 0.734142; 0.528325;, - 0.730998; 0.510878;, - 0.730998; 0.510878;, - 0.734142; 0.528325;, - 0.720779; 0.522357;, - 0.720594; 0.508819;, - 0.720779; 0.522357;, - 0.730998; 0.510878;, - 0.730998; 0.510878;, - 0.720779; 0.522357;, - 0.720594; 0.508819;, - 0.722395; 0.452242;, - 0.720594; 0.508819;, - 0.730998; 0.510878;, - 0.730998; 0.510878;, - 0.720594; 0.508819;, - 0.722395; 0.452242;, - 0.722395; 0.452242;, - 0.730998; 0.510878;, - 0.732528; 0.454662;, - 0.732528; 0.454662;, - 0.730998; 0.510878;, - 0.722395; 0.452242;, - 0.730247; 0.400833;, - 0.732528; 0.454662;, - 0.746805; 0.404186;, - 0.746805; 0.404186;, - 0.732528; 0.454662;, - 0.730247; 0.400833;, - 0.730247; 0.400833;, - 0.722395; 0.452242;, - 0.732528; 0.454662;, - 0.732528; 0.454662;, - 0.722395; 0.452242;, - 0.730247; 0.400833;, - 0.730247; 0.400833;, - 0.746805; 0.404186;, - 0.740646; 0.387562;, - 0.740646; 0.387562;, - 0.746805; 0.404186;, - 0.730247; 0.400833;, - 0.735656; 0.375039;, - 0.740646; 0.387562;, - 0.755201; 0.384189;, - 0.755201; 0.384189;, - 0.740646; 0.387562;, - 0.735656; 0.375039;, - 0.755201; 0.384189;, - 0.740646; 0.387562;, - 0.746805; 0.404186;, - 0.746805; 0.404186;, - 0.740646; 0.387562;, - 0.755201; 0.384189;, - 0.722096; 0.574535;, - 0.746507; 0.578209;, - 0.743644; 0.565221;, - 0.743644; 0.565221;, - 0.746507; 0.578209;, - 0.722096; 0.574535;, - 0.722096; 0.574535;, - 0.724492; 0.578924;, - 0.746507; 0.578209;, - 0.746507; 0.578209;, - 0.724492; 0.578924;, - 0.722096; 0.574535;, - 0.744518; 0.337057;, - 0.755201; 0.384189;, - 0.766877; 0.341238;, - 0.766877; 0.341238;, - 0.755201; 0.384189;, - 0.744518; 0.337057;, - 0.744518; 0.337057;, - 0.735656; 0.375039;, - 0.755201; 0.384189;, - 0.755201; 0.384189;, - 0.735656; 0.375039;, - 0.744518; 0.337057;, - 0.766877; 0.341238;, - 0.755201; 0.384189;, - 0.788977; 0.352223;, - 0.788977; 0.352223;, - 0.755201; 0.384189;, - 0.766877; 0.341238;, - 0.801284; 0.286834;, - 0.766877; 0.341238;, - 0.788977; 0.352223;, - 0.788977; 0.352223;, - 0.766877; 0.341238;, - 0.801284; 0.286834;, - 0.836795; 0.330116;, - 0.801284; 0.286834;, - 0.788977; 0.352223;, - 0.788977; 0.352223;, - 0.801284; 0.286834;, - 0.836795; 0.330116;, - 0.836795; 0.330116;, - 0.847675; 0.292492;, - 0.801284; 0.286834;, - 0.801284; 0.286834;, - 0.847675; 0.292492;, - 0.836795; 0.330116;, - 0.867078; 0.257919;, - 0.883667; 0.291452;, - 0.926747; 0.276292;, - 0.926747; 0.276292;, - 0.883667; 0.291452;, - 0.867078; 0.257919;, - 0.847675; 0.292492;, - 0.883667; 0.291452;, - 0.867078; 0.257919;, - 0.867078; 0.257919;, - 0.883667; 0.291452;, - 0.847675; 0.292492;, - 0.836795; 0.330116;, - 0.883667; 0.291452;, - 0.847675; 0.292492;, - 0.847675; 0.292492;, - 0.883667; 0.291452;, - 0.836795; 0.330116;, - 0.722119; 0.100416;, - 0.739367; 0.117050;, - 0.737796; 0.088032;, - 0.737796; 0.088032;, - 0.739367; 0.117050;, - 0.722119; 0.100416;, - 0.763625; 0.075223;, - 0.737796; 0.088032;, - 0.762063; 0.109735;, - 0.762063; 0.109735;, - 0.737796; 0.088032;, - 0.763625; 0.075223;, - 0.786190; 0.095096;, - 0.763625; 0.075223;, - 0.762063; 0.109735;, - 0.762063; 0.109735;, - 0.763625; 0.075223;, - 0.786190; 0.095096;, - 0.739367; 0.117050;, - 0.762063; 0.109735;, - 0.737796; 0.088032;, - 0.737796; 0.088032;, - 0.762063; 0.109735;, - 0.739367; 0.117050;, - 0.786190; 0.095096;, - 0.762063; 0.109735;, - 0.804698; 0.124189;, - 0.804698; 0.124189;, - 0.762063; 0.109735;, - 0.786190; 0.095096;, - 0.804698; 0.124189;, - 0.762063; 0.109735;, - 0.788542; 0.139664;, - 0.788542; 0.139664;, - 0.762063; 0.109735;, - 0.804698; 0.124189;, - 0.804698; 0.124189;, - 0.788542; 0.139664;, - 0.803922; 0.154814;, - 0.803922; 0.154814;, - 0.788542; 0.139664;, - 0.804698; 0.124189;, - 0.804698; 0.124189;, - 0.803922; 0.154814;, - 0.815281; 0.136967;, - 0.815281; 0.136967;, - 0.803922; 0.154814;, - 0.804698; 0.124189;, - 0.762063; 0.109735;, - 0.739367; 0.117050;, - 0.764760; 0.142758;, - 0.764760; 0.142758;, - 0.739367; 0.117050;, - 0.762063; 0.109735;, - 0.762063; 0.109735;, - 0.764760; 0.142758;, - 0.788542; 0.139664;, - 0.788542; 0.139664;, - 0.764760; 0.142758;, - 0.762063; 0.109735;, - 0.788542; 0.139664;, - 0.787434; 0.163665;, - 0.803922; 0.154814;, - 0.803922; 0.154814;, - 0.787434; 0.163665;, - 0.788542; 0.139664;, - 0.788542; 0.139664;, - 0.764760; 0.142758;, - 0.787434; 0.163665;, - 0.787434; 0.163665;, - 0.764760; 0.142758;, - 0.788542; 0.139664;, - 0.803922; 0.154814;, - 0.817206; 0.164448;, - 0.815281; 0.136967;, - 0.815281; 0.136967;, - 0.817206; 0.164448;, - 0.803922; 0.154814;, - 0.817206; 0.164448;, - 0.826627; 0.166209;, - 0.815281; 0.136967;, - 0.815281; 0.136967;, - 0.826627; 0.166209;, - 0.817206; 0.164448;, - 0.826627; 0.166209;, - 0.817206; 0.164448;, - 0.835218; 0.188590;, - 0.835218; 0.188590;, - 0.817206; 0.164448;, - 0.826627; 0.166209;, - 0.867078; 0.257919;, - 0.831980; 0.235024;, - 0.847675; 0.292492;, - 0.847675; 0.292492;, - 0.831980; 0.235024;, - 0.867078; 0.257919;, - 0.627030; 0.224067;, - 0.596386; 0.226127;, - 0.630828; 0.278239;, - 0.630828; 0.278239;, - 0.596386; 0.226127;, - 0.627030; 0.224067;, - 0.596386; 0.226127;, - 0.627030; 0.224067;, - 0.602289; 0.179946;, - 0.602289; 0.179946;, - 0.627030; 0.224067;, - 0.596386; 0.226127;, - 0.602289; 0.179946;, - 0.627030; 0.224067;, - 0.631201; 0.184467;, - 0.631201; 0.184467;, - 0.627030; 0.224067;, - 0.602289; 0.179946;, - 0.602289; 0.179946;, - 0.631201; 0.184467;, - 0.621867; 0.142840;, - 0.621867; 0.142840;, - 0.631201; 0.184467;, - 0.602289; 0.179946;, - 0.638831; 0.152251;, - 0.621867; 0.142840;, - 0.631201; 0.184467;, - 0.631201; 0.184467;, - 0.621867; 0.142840;, - 0.638831; 0.152251;, - 0.638831; 0.152251;, - 0.644609; 0.192386;, - 0.683717; 0.155295;, - 0.683717; 0.155295;, - 0.644609; 0.192386;, - 0.638831; 0.152251;, - 0.683717; 0.155295;, - 0.703582; 0.121238;, - 0.688038; 0.106794;, - 0.688038; 0.106794;, - 0.703582; 0.121238;, - 0.683717; 0.155295;, - 0.703582; 0.121238;, - 0.722119; 0.100416;, - 0.688038; 0.106794;, - 0.688038; 0.106794;, - 0.722119; 0.100416;, - 0.703582; 0.121238;, - 0.722119; 0.100416;, - 0.703582; 0.121238;, - 0.739367; 0.117050;, - 0.739367; 0.117050;, - 0.703582; 0.121238;, - 0.722119; 0.100416;, - 0.739538; 0.147467;, - 0.739367; 0.117050;, - 0.703582; 0.121238;, - 0.703582; 0.121238;, - 0.739367; 0.117050;, - 0.739538; 0.147467;, - 0.683717; 0.155295;, - 0.739538; 0.147467;, - 0.703582; 0.121238;, - 0.703582; 0.121238;, - 0.739538; 0.147467;, - 0.683717; 0.155295;, - 0.683717; 0.155295;, - 0.726257; 0.192234;, - 0.739538; 0.147467;, - 0.739538; 0.147467;, - 0.726257; 0.192234;, - 0.683717; 0.155295;, - 0.683717; 0.155295;, - 0.674168; 0.199456;, - 0.726257; 0.192234;, - 0.726257; 0.192234;, - 0.674168; 0.199456;, - 0.683717; 0.155295;, - 0.674168; 0.199456;, - 0.678028; 0.214172;, - 0.726257; 0.192234;, - 0.726257; 0.192234;, - 0.678028; 0.214172;, - 0.674168; 0.199456;, - 0.678028; 0.214172;, - 0.704299; 0.225051;, - 0.726257; 0.192234;, - 0.726257; 0.192234;, - 0.704299; 0.225051;, - 0.678028; 0.214172;, - 0.678028; 0.214172;, - 0.684816; 0.231753;, - 0.704299; 0.225051;, - 0.704299; 0.225051;, - 0.684816; 0.231753;, - 0.678028; 0.214172;, - 0.684816; 0.231753;, - 0.708694; 0.255047;, - 0.704299; 0.225051;, - 0.704299; 0.225051;, - 0.708694; 0.255047;, - 0.684816; 0.231753;, - 0.689089; 0.255175;, - 0.708694; 0.255047;, - 0.684816; 0.231753;, - 0.684816; 0.231753;, - 0.708694; 0.255047;, - 0.689089; 0.255175;, - 0.739538; 0.147467;, - 0.764760; 0.142758;, - 0.739367; 0.117050;, - 0.739367; 0.117050;, - 0.764760; 0.142758;, - 0.739538; 0.147467;, - 0.803922; 0.154814;, - 0.779152; 0.196225;, - 0.811422; 0.200093;, - 0.811422; 0.200093;, - 0.779152; 0.196225;, - 0.803922; 0.154814;, - 0.811422; 0.200093;, - 0.779152; 0.196225;, - 0.778773; 0.251647;, - 0.778773; 0.251647;, - 0.779152; 0.196225;, - 0.811422; 0.200093;, - 0.778773; 0.251647;, - 0.779152; 0.196225;, - 0.756989; 0.250188;, - 0.756989; 0.250188;, - 0.779152; 0.196225;, - 0.778773; 0.251647;, - 0.778773; 0.251647;, - 0.756989; 0.250188;, - 0.754765; 0.281981;, - 0.754765; 0.281981;, - 0.756989; 0.250188;, - 0.778773; 0.251647;, - 0.787434; 0.163665;, - 0.779152; 0.196225;, - 0.803922; 0.154814;, - 0.803922; 0.154814;, - 0.779152; 0.196225;, - 0.787434; 0.163665;, - 0.726257; 0.192234;, - 0.704299; 0.225051;, - 0.756989; 0.250188;, - 0.756989; 0.250188;, - 0.704299; 0.225051;, - 0.726257; 0.192234;, - 0.704299; 0.225051;, - 0.708694; 0.255047;, - 0.756989; 0.250188;, - 0.756989; 0.250188;, - 0.708694; 0.255047;, - 0.704299; 0.225051;, - 0.647918; 0.207388;, - 0.658689; 0.205160;, - 0.644609; 0.192386;, - 0.644609; 0.192386;, - 0.658689; 0.205160;, - 0.647918; 0.207388;, - 0.674168; 0.199456;, - 0.658689; 0.205160;, - 0.678028; 0.214172;, - 0.678028; 0.214172;, - 0.658689; 0.205160;, - 0.674168; 0.199456;, - 0.655119; 0.230546;, - 0.664408; 0.222782;, - 0.647918; 0.207388;, - 0.647918; 0.207388;, - 0.664408; 0.222782;, - 0.655119; 0.230546;, - 0.678028; 0.214172;, - 0.664408; 0.222782;, - 0.684816; 0.231753;, - 0.684816; 0.231753;, - 0.664408; 0.222782;, - 0.678028; 0.214172;, - 0.664408; 0.222782;, - 0.655119; 0.230546;, - 0.684816; 0.231753;, - 0.684816; 0.231753;, - 0.655119; 0.230546;, - 0.664408; 0.222782;, - 0.658689; 0.205160;, - 0.647918; 0.207388;, - 0.664408; 0.222782;, - 0.664408; 0.222782;, - 0.647918; 0.207388;, - 0.658689; 0.205160;, - 0.658689; 0.205160;, - 0.664408; 0.222782;, - 0.678028; 0.214172;, - 0.678028; 0.214172;, - 0.664408; 0.222782;, - 0.658689; 0.205160;, - 0.683717; 0.155295;, - 0.644609; 0.192386;, - 0.658689; 0.205160;, - 0.658689; 0.205160;, - 0.644609; 0.192386;, - 0.683717; 0.155295;, - 0.683717; 0.155295;, - 0.658689; 0.205160;, - 0.674168; 0.199456;, - 0.674168; 0.199456;, - 0.658689; 0.205160;, - 0.683717; 0.155295;, - 0.754770; 0.172869;, - 0.739538; 0.147467;, - 0.726257; 0.192234;, - 0.726257; 0.192234;, - 0.739538; 0.147467;, - 0.754770; 0.172869;, - 0.739538; 0.147467;, - 0.754770; 0.172869;, - 0.764760; 0.142758;, - 0.764760; 0.142758;, - 0.754770; 0.172869;, - 0.739538; 0.147467;, - 0.787434; 0.163665;, - 0.764760; 0.142758;, - 0.754770; 0.172869;, - 0.754770; 0.172869;, - 0.764760; 0.142758;, - 0.787434; 0.163665;, - 0.787434; 0.163665;, - 0.754770; 0.172869;, - 0.779152; 0.196225;, - 0.779152; 0.196225;, - 0.754770; 0.172869;, - 0.787434; 0.163665;, - 0.756989; 0.250188;, - 0.779152; 0.196225;, - 0.754770; 0.172869;, - 0.754770; 0.172869;, - 0.779152; 0.196225;, - 0.756989; 0.250188;, - 0.756989; 0.250188;, - 0.754770; 0.172869;, - 0.726257; 0.192234;, - 0.726257; 0.192234;, - 0.754770; 0.172869;, - 0.756989; 0.250188;, - 0.638831; 0.152251;, - 0.631201; 0.184467;, - 0.644609; 0.192386;, - 0.644609; 0.192386;, - 0.631201; 0.184467;, - 0.638831; 0.152251;, - 0.644609; 0.192386;, - 0.631201; 0.184467;, - 0.647918; 0.207388;, - 0.647918; 0.207388;, - 0.631201; 0.184467;, - 0.644609; 0.192386;, - 0.647918; 0.207388;, - 0.631201; 0.184467;, - 0.627030; 0.224067;, - 0.627030; 0.224067;, - 0.631201; 0.184467;, - 0.647918; 0.207388;, - 0.647918; 0.207388;, - 0.627030; 0.224067;, - 0.655119; 0.230546;, - 0.655119; 0.230546;, - 0.627030; 0.224067;, - 0.647918; 0.207388;, - 0.655119; 0.230546;, - 0.627030; 0.224067;, - 0.630828; 0.278239;, - 0.630828; 0.278239;, - 0.627030; 0.224067;, - 0.655119; 0.230546;, - 0.655119; 0.230546;, - 0.630828; 0.278239;, - 0.665405; 0.263454;, - 0.665405; 0.263454;, - 0.630828; 0.278239;, - 0.655119; 0.230546;, - 0.754765; 0.281981;, - 0.756989; 0.250188;, - 0.708694; 0.255047;, - 0.708694; 0.255047;, - 0.756989; 0.250188;, - 0.754765; 0.281981;, - 0.801284; 0.286834;, - 0.847675; 0.292492;, - 0.831980; 0.235024;, - 0.831980; 0.235024;, - 0.847675; 0.292492;, - 0.801284; 0.286834;, - 0.778773; 0.251647;, - 0.754765; 0.281981;, - 0.801284; 0.286834;, - 0.801284; 0.286834;, - 0.754765; 0.281981;, - 0.778773; 0.251647;, - 0.778773; 0.251647;, - 0.801284; 0.286834;, - 0.831980; 0.235024;, - 0.831980; 0.235024;, - 0.801284; 0.286834;, - 0.778773; 0.251647;, - 0.811422; 0.200093;, - 0.778773; 0.251647;, - 0.831980; 0.235024;, - 0.831980; 0.235024;, - 0.778773; 0.251647;, - 0.811422; 0.200093;, - 0.835218; 0.188590;, - 0.811422; 0.200093;, - 0.831980; 0.235024;, - 0.831980; 0.235024;, - 0.811422; 0.200093;, - 0.835218; 0.188590;, - 0.835218; 0.188590;, - 0.817206; 0.164448;, - 0.811422; 0.200093;, - 0.811422; 0.200093;, - 0.817206; 0.164448;, - 0.835218; 0.188590;, - 0.817206; 0.164448;, - 0.803922; 0.154814;, - 0.811422; 0.200093;, - 0.811422; 0.200093;, - 0.803922; 0.154814;, - 0.817206; 0.164448;, - 0.655119; 0.230546;, - 0.665405; 0.263454;, - 0.689089; 0.255175;, - 0.689089; 0.255175;, - 0.665405; 0.263454;, - 0.655119; 0.230546;, - 0.655119; 0.230546;, - 0.689089; 0.255175;, - 0.684816; 0.231753;, - 0.684816; 0.231753;, - 0.689089; 0.255175;, - 0.655119; 0.230546;, - 0.689089; 0.255175;, - 0.665405; 0.263454;, - 0.684645; 0.323073;, - 0.684645; 0.323073;, - 0.665405; 0.263454;, - 0.689089; 0.255175;, - 0.689089; 0.255175;, - 0.684645; 0.323073;, - 0.703771; 0.320600;, - 0.703771; 0.320600;, - 0.684645; 0.323073;, - 0.689089; 0.255175;, - 0.689089; 0.255175;, - 0.703771; 0.320600;, - 0.708694; 0.255047;, - 0.708694; 0.255047;, - 0.703771; 0.320600;, - 0.689089; 0.255175;, - 0.708694; 0.255047;, - 0.703771; 0.320600;, - 0.714298; 0.317684;, - 0.714298; 0.317684;, - 0.703771; 0.320600;, - 0.708694; 0.255047;, - 0.708694; 0.255047;, - 0.714298; 0.317684;, - 0.744518; 0.337057;, - 0.744518; 0.337057;, - 0.714298; 0.317684;, - 0.708694; 0.255047;, - 0.754765; 0.281981;, - 0.708694; 0.255047;, - 0.744518; 0.337057;, - 0.744518; 0.337057;, - 0.708694; 0.255047;, - 0.754765; 0.281981;, - 0.703771; 0.320600;, - 0.713772; 0.375948;, - 0.714298; 0.317684;, - 0.714298; 0.317684;, - 0.713772; 0.375948;, - 0.703771; 0.320600;, - 0.684645; 0.323073;, - 0.689980; 0.373666;, - 0.703771; 0.320600;, - 0.703771; 0.320600;, - 0.689980; 0.373666;, - 0.684645; 0.323073;, - 0.689980; 0.373666;, - 0.713772; 0.375948;, - 0.703771; 0.320600;, - 0.703771; 0.320600;, - 0.713772; 0.375948;, - 0.689980; 0.373666;, - 0.744518; 0.337057;, - 0.714298; 0.317684;, - 0.713772; 0.375948;, - 0.713772; 0.375948;, - 0.714298; 0.317684;, - 0.744518; 0.337057;, - 0.744518; 0.337057;, - 0.713772; 0.375948;, - 0.735656; 0.375039;, - 0.735656; 0.375039;, - 0.713772; 0.375948;, - 0.744518; 0.337057;, - 0.665405; 0.263454;, - 0.630828; 0.278239;, - 0.665834; 0.331799;, - 0.665834; 0.331799;, - 0.630828; 0.278239;, - 0.665405; 0.263454;, - 0.665405; 0.263454;, - 0.665834; 0.331799;, - 0.684645; 0.323073;, - 0.684645; 0.323073;, - 0.665834; 0.331799;, - 0.665405; 0.263454;, - 0.754765; 0.281981;, - 0.766877; 0.341238;, - 0.801284; 0.286834;, - 0.801284; 0.286834;, - 0.766877; 0.341238;, - 0.754765; 0.281981;, - 0.754765; 0.281981;, - 0.744518; 0.337057;, - 0.766877; 0.341238;, - 0.766877; 0.341238;, - 0.744518; 0.337057;, - 0.754765; 0.281981;, - 0.684645; 0.323073;, - 0.665834; 0.331799;, - 0.689980; 0.373666;, - 0.689980; 0.373666;, - 0.665834; 0.331799;, - 0.684645; 0.323073;, - 0.689980; 0.373666;, - 0.665834; 0.331799;, - 0.669269; 0.383824;, - 0.669269; 0.383824;, - 0.665834; 0.331799;, - 0.689980; 0.373666;, - 0.724492; 0.578924;, - 0.722096; 0.574535;, - 0.700921; 0.589318;, - 0.700921; 0.589318;, - 0.722096; 0.574535;, - 0.724492; 0.578924;, - 0.722096; 0.574535;, - 0.697278; 0.574896;, - 0.700921; 0.589318;, - 0.700921; 0.589318;, - 0.697278; 0.574896;, - 0.722096; 0.574535;, - 0.735656; 0.375039;, - 0.713772; 0.375948;, - 0.724213; 0.384560;, - 0.724213; 0.384560;, - 0.713772; 0.375948;, - 0.735656; 0.375039;, - 0.735656; 0.375039;, - 0.724213; 0.384560;, - 0.733022; 0.384177;, - 0.733022; 0.384177;, - 0.724213; 0.384560;, - 0.735656; 0.375039;, - 0.732483; 0.387193;, - 0.733022; 0.384177;, - 0.724213; 0.384560;, - 0.724213; 0.384560;, - 0.733022; 0.384177;, - 0.732483; 0.387193;, - 0.732483; 0.387193;, - 0.724213; 0.384560;, - 0.730247; 0.400833;, - 0.730247; 0.400833;, - 0.724213; 0.384560;, - 0.732483; 0.387193;, - 0.730247; 0.400833;, - 0.724213; 0.384560;, - 0.712242; 0.398475;, - 0.712242; 0.398475;, - 0.724213; 0.384560;, - 0.730247; 0.400833;, - 0.689980; 0.373666;, - 0.693603; 0.395407;, - 0.713772; 0.375948;, - 0.713772; 0.375948;, - 0.693603; 0.395407;, - 0.689980; 0.373666;, - 0.713772; 0.375948;, - 0.693603; 0.395407;, - 0.712242; 0.398475;, - 0.712242; 0.398475;, - 0.693603; 0.395407;, - 0.713772; 0.375948;, - 0.713772; 0.375948;, - 0.712242; 0.398475;, - 0.724213; 0.384560;, - 0.724213; 0.384560;, - 0.712242; 0.398475;, - 0.713772; 0.375948;, - 0.689980; 0.373666;, - 0.669269; 0.383824;, - 0.693603; 0.395407;, - 0.693603; 0.395407;, - 0.669269; 0.383824;, - 0.689980; 0.373666;, - 0.669269; 0.383824;, - 0.673613; 0.403700;, - 0.693603; 0.395407;, - 0.693603; 0.395407;, - 0.673613; 0.403700;, - 0.669269; 0.383824;, - 0.735656; 0.375039;, - 0.733022; 0.384177;, - 0.740646; 0.387562;, - 0.740646; 0.387562;, - 0.733022; 0.384177;, - 0.735656; 0.375039;, - 0.732483; 0.387193;, - 0.740646; 0.387562;, - 0.733022; 0.384177;, - 0.733022; 0.384177;, - 0.740646; 0.387562;, - 0.732483; 0.387193;, - 0.732483; 0.387193;, - 0.730247; 0.400833;, - 0.740646; 0.387562;, - 0.740646; 0.387562;, - 0.730247; 0.400833;, - 0.732483; 0.387193;, - 0.693603; 0.395407;, - 0.700614; 0.454575;, - 0.712242; 0.398475;, - 0.712242; 0.398475;, - 0.700614; 0.454575;, - 0.693603; 0.395407;, - 0.700614; 0.454575;, - 0.709657; 0.452816;, - 0.712242; 0.398475;, - 0.712242; 0.398475;, - 0.709657; 0.452816;, - 0.700614; 0.454575;, - 0.709657; 0.452816;, - 0.722395; 0.452242;, - 0.730247; 0.400833;, - 0.730247; 0.400833;, - 0.722395; 0.452242;, - 0.709657; 0.452816;, - 0.709657; 0.452816;, - 0.730247; 0.400833;, - 0.712242; 0.398475;, - 0.712242; 0.398475;, - 0.730247; 0.400833;, - 0.709657; 0.452816;, - 0.700614; 0.454575;, - 0.673613; 0.403700;, - 0.688243; 0.453758;, - 0.688243; 0.453758;, - 0.673613; 0.403700;, - 0.700614; 0.454575;, - 0.693603; 0.395407;, - 0.673613; 0.403700;, - 0.700614; 0.454575;, - 0.700614; 0.454575;, - 0.673613; 0.403700;, - 0.693603; 0.395407;, - 0.700614; 0.454575;, - 0.706881; 0.512435;, - 0.709657; 0.452816;, - 0.709657; 0.452816;, - 0.706881; 0.512435;, - 0.700614; 0.454575;, - 0.700614; 0.454575;, - 0.696402; 0.515252;, - 0.706881; 0.512435;, - 0.706881; 0.512435;, - 0.696402; 0.515252;, - 0.700614; 0.454575;, - 0.700614; 0.454575;, - 0.687321; 0.510443;, - 0.696402; 0.515252;, - 0.696402; 0.515252;, - 0.687321; 0.510443;, - 0.700614; 0.454575;, - 0.700614; 0.454575;, - 0.688243; 0.453758;, - 0.687321; 0.510443;, - 0.687321; 0.510443;, - 0.688243; 0.453758;, - 0.700614; 0.454575;, - 0.722395; 0.452242;, - 0.709657; 0.452816;, - 0.706881; 0.512435;, - 0.706881; 0.512435;, - 0.709657; 0.452816;, - 0.722395; 0.452242;, - 0.722395; 0.452242;, - 0.706881; 0.512435;, - 0.720594; 0.508819;, - 0.720594; 0.508819;, - 0.706881; 0.512435;, - 0.722395; 0.452242;, - 0.720594; 0.508819;, - 0.706881; 0.512435;, - 0.720779; 0.522357;, - 0.720779; 0.522357;, - 0.706881; 0.512435;, - 0.720594; 0.508819;, - 0.720779; 0.522357;, - 0.706881; 0.512435;, - 0.709663; 0.528853;, - 0.709663; 0.528853;, - 0.706881; 0.512435;, - 0.720779; 0.522357;, - 0.720779; 0.522357;, - 0.709663; 0.528853;, - 0.721046; 0.528525;, - 0.721046; 0.528525;, - 0.709663; 0.528853;, - 0.720779; 0.522357;, - 0.721083; 0.533445;, - 0.707340; 0.541429;, - 0.720842; 0.541436;, - 0.720842; 0.541436;, - 0.707340; 0.541429;, - 0.721083; 0.533445;, - 0.696402; 0.515252;, - 0.694980; 0.526396;, - 0.706881; 0.512435;, - 0.706881; 0.512435;, - 0.694980; 0.526396;, - 0.696402; 0.515252;, - 0.694980; 0.526396;, - 0.709663; 0.528853;, - 0.706881; 0.512435;, - 0.706881; 0.512435;, - 0.709663; 0.528853;, - 0.694980; 0.526396;, - 0.696402; 0.515252;, - 0.687321; 0.510443;, - 0.694980; 0.526396;, - 0.694980; 0.526396;, - 0.687321; 0.510443;, - 0.696402; 0.515252;, - 0.694980; 0.526396;, - 0.687321; 0.510443;, - 0.677813; 0.525096;, - 0.677813; 0.525096;, - 0.687321; 0.510443;, - 0.694980; 0.526396;, - 0.694980; 0.526396;, - 0.707340; 0.541429;, - 0.709663; 0.528853;, - 0.709663; 0.528853;, - 0.707340; 0.541429;, - 0.694980; 0.526396;, - 0.694980; 0.526396;, - 0.693878; 0.538655;, - 0.707340; 0.541429;, - 0.707340; 0.541429;, - 0.693878; 0.538655;, - 0.694980; 0.526396;, - 0.694980; 0.526396;, - 0.680762; 0.537417;, - 0.693878; 0.538655;, - 0.693878; 0.538655;, - 0.680762; 0.537417;, - 0.694980; 0.526396;, - 0.694980; 0.526396;, - 0.677813; 0.525096;, - 0.680762; 0.537417;, - 0.680762; 0.537417;, - 0.677813; 0.525096;, - 0.694980; 0.526396;, - 0.709663; 0.528853;, - 0.707340; 0.541429;, - 0.721083; 0.533445;, - 0.721083; 0.533445;, - 0.707340; 0.541429;, - 0.709663; 0.528853;, - 0.709663; 0.528853;, - 0.721083; 0.533445;, - 0.721046; 0.528525;, - 0.721046; 0.528525;, - 0.721083; 0.533445;, - 0.709663; 0.528853;, - 0.720842; 0.541436;, - 0.707340; 0.541429;, - 0.720379; 0.556914;, - 0.720379; 0.556914;, - 0.707340; 0.541429;, - 0.720842; 0.541436;, - 0.720379; 0.556914;, - 0.707340; 0.541429;, - 0.703247; 0.562596;, - 0.703247; 0.562596;, - 0.707340; 0.541429;, - 0.720379; 0.556914;, - 0.693878; 0.538655;, - 0.680762; 0.537417;, - 0.690551; 0.554903;, - 0.690551; 0.554903;, - 0.680762; 0.537417;, - 0.693878; 0.538655;, - 0.680762; 0.537417;, - 0.679600; 0.555426;, - 0.690551; 0.554903;, - 0.690551; 0.554903;, - 0.679600; 0.555426;, - 0.680762; 0.537417;, - 0.693878; 0.538655;, - 0.690551; 0.554903;, - 0.707340; 0.541429;, - 0.707340; 0.541429;, - 0.690551; 0.554903;, - 0.693878; 0.538655;, - 0.690551; 0.554903;, - 0.703247; 0.562596;, - 0.707340; 0.541429;, - 0.707340; 0.541429;, - 0.703247; 0.562596;, - 0.690551; 0.554903;, - 0.690551; 0.554903;, - 0.679600; 0.555426;, - 0.684169; 0.575558;, - 0.684169; 0.575558;, - 0.679600; 0.555426;, - 0.690551; 0.554903;, - 0.684169; 0.575558;, - 0.679600; 0.555426;, - 0.674328; 0.567647;, - 0.674328; 0.567647;, - 0.679600; 0.555426;, - 0.684169; 0.575558;, - 0.690551; 0.554903;, - 0.684169; 0.575558;, - 0.703247; 0.562596;, - 0.703247; 0.562596;, - 0.684169; 0.575558;, - 0.690551; 0.554903;, - 0.684169; 0.575558;, - 0.697278; 0.574896;, - 0.703247; 0.562596;, - 0.703247; 0.562596;, - 0.697278; 0.574896;, - 0.684169; 0.575558;, - 0.722096; 0.574535;, - 0.703247; 0.562596;, - 0.697278; 0.574896;, - 0.697278; 0.574896;, - 0.703247; 0.562596;, - 0.722096; 0.574535;, - 0.721141; 0.566577;, - 0.703247; 0.562596;, - 0.722096; 0.574535;, - 0.722096; 0.574535;, - 0.703247; 0.562596;, - 0.721141; 0.566577;, - 0.720379; 0.556914;, - 0.703247; 0.562596;, - 0.721141; 0.566577;, - 0.721141; 0.566577;, - 0.703247; 0.562596;, - 0.720379; 0.556914;, - 0.909541; 0.627677;, - 0.880645; 0.617059;, - 0.895370; 0.611566;, - 0.909541; 0.627677;, - 0.905382; 0.652936;, - 0.880645; 0.617059;, - 0.880645; 0.617059;, - 0.905382; 0.652936;, - 0.873209; 0.623614;, - 0.879014; 0.660518;, - 0.873209; 0.623614;, - 0.905382; 0.652936;, - 0.866405; 0.629930;, - 0.873209; 0.623614;, - 0.879014; 0.660518;, - 0.866405; 0.629930;, - 0.879014; 0.660518;, - 0.854063; 0.644546;, - 0.502845; 0.683216;, - 0.488713; 0.588392;, - 0.513438; 0.676330;, - 0.474435; 0.591778;, - 0.488713; 0.588392;, - 0.502845; 0.683216;, - 0.468708; 0.486968;, - 0.488713; 0.588392;, - 0.474435; 0.591778;, - 0.468708; 0.486968;, - 0.474435; 0.591778;, - 0.456722; 0.491433;, - 0.468708; 0.486968;, - 0.456722; 0.491433;, - 0.419030; 0.408815;, - 0.419030; 0.408815;, - 0.456722; 0.491433;, - 0.408621; 0.418586;, - 0.419030; 0.408815;, - 0.408621; 0.418586;, - 0.326190; 0.334974;, - 0.326190; 0.334974;, - 0.408621; 0.418586;, - 0.318050; 0.348237;, - 0.326190; 0.334974;, - 0.318050; 0.348237;, - 0.265191; 0.309341;, - 0.265191; 0.309341;, - 0.318050; 0.348237;, - 0.266962; 0.326707;, - 0.265191; 0.309341;, - 0.266962; 0.326707;, - 0.248563; 0.313945;, - 0.248563; 0.313945;, - 0.266962; 0.326707;, - 0.258618; 0.328442;, - 0.248563; 0.313945;, - 0.258618; 0.328442;, - 0.244994; 0.367320;, - 0.244994; 0.367320;, - 0.258618; 0.328442;, - 0.258760; 0.366710;, - 0.244994; 0.367320;, - 0.258760; 0.366710;, - 0.254878; 0.424403;, - 0.254878; 0.424403;, - 0.258760; 0.366710;, - 0.265351; 0.422836;, - 0.258760; 0.366710;, - 0.287686; 0.435908;, - 0.265351; 0.422836;, - 0.265351; 0.422836;, - 0.287686; 0.435908;, - 0.258760; 0.366710;, - 0.308178; 0.396323;, - 0.287686; 0.435908;, - 0.258760; 0.366710;, - 0.258760; 0.366710;, - 0.287686; 0.435908;, - 0.308178; 0.396323;, - 0.308178; 0.396323;, - 0.381116; 0.452914;, - 0.287686; 0.435908;, - 0.287686; 0.435908;, - 0.381116; 0.452914;, - 0.308178; 0.396323;, - 0.381116; 0.452914;, - 0.345380; 0.481456;, - 0.287686; 0.435908;, - 0.287686; 0.435908;, - 0.345380; 0.481456;, - 0.381116; 0.452914;, - 0.381116; 0.452914;, - 0.424893; 0.509643;, - 0.345380; 0.481456;, - 0.345380; 0.481456;, - 0.424893; 0.509643;, - 0.381116; 0.452914;, - 0.424893; 0.509643;, - 0.389921; 0.548305;, - 0.345380; 0.481456;, - 0.345380; 0.481456;, - 0.389921; 0.548305;, - 0.424893; 0.509643;, - 0.424893; 0.509643;, - 0.441650; 0.574732;, - 0.389921; 0.548305;, - 0.389921; 0.548305;, - 0.441650; 0.574732;, - 0.424893; 0.509643;, - 0.441650; 0.574732;, - 0.447121; 0.631544;, - 0.389921; 0.548305;, - 0.389921; 0.548305;, - 0.447121; 0.631544;, - 0.441650; 0.574732;, - 0.441650; 0.574732;, - 0.474435; 0.591778;, - 0.447121; 0.631544;, - 0.447121; 0.631544;, - 0.474435; 0.591778;, - 0.441650; 0.574732;, - 0.474435; 0.591778;, - 0.502845; 0.683216;, - 0.447121; 0.631544;, - 0.447121; 0.631544;, - 0.502845; 0.683216;, - 0.474435; 0.591778;, - 0.266962; 0.326707;, - 0.308178; 0.396323;, - 0.258760; 0.366710;, - 0.258760; 0.366710;, - 0.308178; 0.396323;, - 0.266962; 0.326707;, - 0.258618; 0.328442;, - 0.266962; 0.326707;, - 0.258760; 0.366710;, - 0.258760; 0.366710;, - 0.266962; 0.326707;, - 0.258618; 0.328442;, - 0.318050; 0.348237;, - 0.308178; 0.396323;, - 0.266962; 0.326707;, - 0.266962; 0.326707;, - 0.308178; 0.396323;, - 0.318050; 0.348237;, - 0.408621; 0.418586;, - 0.308178; 0.396323;, - 0.318050; 0.348237;, - 0.318050; 0.348237;, - 0.308178; 0.396323;, - 0.408621; 0.418586;, - 0.381116; 0.452914;, - 0.308178; 0.396323;, - 0.408621; 0.418586;, - 0.408621; 0.418586;, - 0.308178; 0.396323;, - 0.381116; 0.452914;, - 0.456722; 0.491433;, - 0.381116; 0.452914;, - 0.408621; 0.418586;, - 0.408621; 0.418586;, - 0.381116; 0.452914;, - 0.456722; 0.491433;, - 0.424893; 0.509643;, - 0.381116; 0.452914;, - 0.456722; 0.491433;, - 0.456722; 0.491433;, - 0.381116; 0.452914;, - 0.424893; 0.509643;, - 0.441650; 0.574732;, - 0.424893; 0.509643;, - 0.456722; 0.491433;, - 0.456722; 0.491433;, - 0.424893; 0.509643;, - 0.441650; 0.574732;, - 0.474435; 0.591778;, - 0.441650; 0.574732;, - 0.456722; 0.491433;, - 0.456722; 0.491433;, - 0.441650; 0.574732;, - 0.474435; 0.591778;, - 0.576244; 0.665649;, - 0.571221; 0.655577;, - 0.609260; 0.666339;, - 0.609260; 0.666339;, - 0.571221; 0.655577;, - 0.576244; 0.665649;, - 0.571221; 0.655577;, - 0.601992; 0.655222;, - 0.609260; 0.666339;, - 0.609260; 0.666339;, - 0.601992; 0.655222;, - 0.571221; 0.655577;, - 0.566101; 0.644518;, - 0.595842; 0.645002;, - 0.571221; 0.655577;, - 0.571221; 0.655577;, - 0.595842; 0.645002;, - 0.566101; 0.644518;, - 0.601992; 0.655222;, - 0.571221; 0.655577;, - 0.595842; 0.645002;, - 0.595842; 0.645002;, - 0.571221; 0.655577;, - 0.601992; 0.655222;, - 0.770065; 0.715887;, - 0.751051; 0.725808;, - 0.755516; 0.711203;, - 0.755516; 0.711203;, - 0.751051; 0.725808;, - 0.770065; 0.715887;, - 0.790956; 0.687938;, - 0.784291; 0.701640;, - 0.777916; 0.694871;, - 0.777916; 0.694871;, - 0.784291; 0.701640;, - 0.790956; 0.687938;, - 0.777916; 0.694871;, - 0.755516; 0.711203;, - 0.763458; 0.694625;, - 0.763458; 0.694625;, - 0.755516; 0.711203;, - 0.777916; 0.694871;, - 0.777916; 0.694871;, - 0.763458; 0.694625;, - 0.768354; 0.686735;, - 0.768354; 0.686735;, - 0.763458; 0.694625;, - 0.777916; 0.694871;, - 0.755516; 0.711203;, - 0.752373; 0.700456;, - 0.763458; 0.694625;, - 0.763458; 0.694625;, - 0.752373; 0.700456;, - 0.755516; 0.711203;, - 0.825674; 0.593715;, - 0.796589; 0.593837;, - 0.794276; 0.587743;, - 0.794276; 0.587743;, - 0.796589; 0.593837;, - 0.825674; 0.593715;, - 0.829693; 0.588906;, - 0.825674; 0.593715;, - 0.794276; 0.587743;, - 0.794276; 0.587743;, - 0.825674; 0.593715;, - 0.829693; 0.588906;, - 0.829693; 0.588906;, - 0.794276; 0.587743;, - 0.791622; 0.580202;, - 0.791622; 0.580202;, - 0.794276; 0.587743;, - 0.829693; 0.588906;, - 0.832887; 0.582905;, - 0.829693; 0.588906;, - 0.791622; 0.580202;, - 0.791622; 0.580202;, - 0.829693; 0.588906;, - 0.832887; 0.582905;, - 0.794276; 0.587743;, - 0.778451; 0.601708;, - 0.772838; 0.596928;, - 0.772838; 0.596928;, - 0.778451; 0.601708;, - 0.794276; 0.587743;, - 0.794276; 0.587743;, - 0.796589; 0.593837;, - 0.778451; 0.601708;, - 0.778451; 0.601708;, - 0.796589; 0.593837;, - 0.794276; 0.587743;, - 0.791622; 0.580202;, - 0.772838; 0.596928;, - 0.768218; 0.590923;, - 0.768218; 0.590923;, - 0.772838; 0.596928;, - 0.791622; 0.580202;, - 0.791622; 0.580202;, - 0.794276; 0.587743;, - 0.772838; 0.596928;, - 0.772838; 0.596928;, - 0.794276; 0.587743;, - 0.791622; 0.580202;, - 0.772838; 0.596928;, - 0.768778; 0.611384;, - 0.760765; 0.609021;, - 0.760765; 0.609021;, - 0.768778; 0.611384;, - 0.772838; 0.596928;, - 0.772838; 0.596928;, - 0.778451; 0.601708;, - 0.768778; 0.611384;, - 0.768778; 0.611384;, - 0.778451; 0.601708;, - 0.772838; 0.596928;, - 0.768218; 0.590923;, - 0.760765; 0.609021;, - 0.752362; 0.605883;, - 0.752362; 0.605883;, - 0.760765; 0.609021;, - 0.768218; 0.590923;, - 0.768218; 0.590923;, - 0.772838; 0.596928;, - 0.760765; 0.609021;, - 0.760765; 0.609021;, - 0.772838; 0.596928;, - 0.768218; 0.590923;, - 0.768778; 0.611384;, - 0.769663; 0.625108;, - 0.761522; 0.627862;, - 0.761522; 0.627862;, - 0.769663; 0.625108;, - 0.768778; 0.611384;, - 0.760765; 0.609021;, - 0.768778; 0.611384;, - 0.761522; 0.627862;, - 0.761522; 0.627862;, - 0.768778; 0.611384;, - 0.760765; 0.609021;, - 0.760765; 0.609021;, - 0.761522; 0.627862;, - 0.753175; 0.629661;, - 0.753175; 0.629661;, - 0.761522; 0.627862;, - 0.760765; 0.609021;, - 0.752362; 0.605883;, - 0.760765; 0.609021;, - 0.753175; 0.629661;, - 0.753175; 0.629661;, - 0.760765; 0.609021;, - 0.752362; 0.605883;, - 0.769663; 0.625108;, - 0.784406; 0.659597;, - 0.775425; 0.662365;, - 0.775425; 0.662365;, - 0.784406; 0.659597;, - 0.769663; 0.625108;, - 0.761522; 0.627862;, - 0.769663; 0.625108;, - 0.775425; 0.662365;, - 0.775425; 0.662365;, - 0.769663; 0.625108;, - 0.761522; 0.627862;, - 0.761522; 0.627862;, - 0.775425; 0.662365;, - 0.765551; 0.664827;, - 0.765551; 0.664827;, - 0.775425; 0.662365;, - 0.761522; 0.627862;, - 0.753175; 0.629661;, - 0.761522; 0.627862;, - 0.765551; 0.664827;, - 0.765551; 0.664827;, - 0.761522; 0.627862;, - 0.753175; 0.629661;, - 0.775425; 0.662365;, - 0.790956; 0.687938;, - 0.777916; 0.694871;, - 0.777916; 0.694871;, - 0.790956; 0.687938;, - 0.775425; 0.662365;, - 0.775425; 0.662365;, - 0.784406; 0.659597;, - 0.790956; 0.687938;, - 0.790956; 0.687938;, - 0.784406; 0.659597;, - 0.775425; 0.662365;, - 0.775425; 0.662365;, - 0.777916; 0.694871;, - 0.768354; 0.686735;, - 0.768354; 0.686735;, - 0.777916; 0.694871;, - 0.775425; 0.662365;, - 0.765551; 0.664827;, - 0.775425; 0.662365;, - 0.768354; 0.686735;, - 0.768354; 0.686735;, - 0.775425; 0.662365;, - 0.765551; 0.664827;, - 0.777916; 0.694871;, - 0.770065; 0.715887;, - 0.755516; 0.711203;, - 0.755516; 0.711203;, - 0.770065; 0.715887;, - 0.777916; 0.694871;, - 0.777916; 0.694871;, - 0.784291; 0.701640;, - 0.770065; 0.715887;, - 0.770065; 0.715887;, - 0.784291; 0.701640;, - 0.777916; 0.694871;, - 0.751051; 0.725808;, - 0.720486; 0.727134;, - 0.724686; 0.712385;, - 0.724686; 0.712385;, - 0.720486; 0.727134;, - 0.751051; 0.725808;, - 0.755516; 0.711203;, - 0.751051; 0.725808;, - 0.724686; 0.712385;, - 0.724686; 0.712385;, - 0.751051; 0.725808;, - 0.755516; 0.711203;, - 0.755516; 0.711203;, - 0.724686; 0.712385;, - 0.730547; 0.700438;, - 0.730547; 0.700438;, - 0.724686; 0.712385;, - 0.755516; 0.711203;, - 0.752373; 0.700456;, - 0.755516; 0.711203;, - 0.730547; 0.700438;, - 0.730547; 0.700438;, - 0.755516; 0.711203;, - 0.752373; 0.700456;, - 0.724686; 0.712385;, - 0.667777; 0.676968;, - 0.673932; 0.665295;, - 0.673932; 0.665295;, - 0.667777; 0.676968;, - 0.724686; 0.712385;, - 0.724686; 0.712385;, - 0.720486; 0.727134;, - 0.667777; 0.676968;, - 0.667777; 0.676968;, - 0.720486; 0.727134;, - 0.724686; 0.712385;, - 0.730547; 0.700438;, - 0.673932; 0.665295;, - 0.680575; 0.653797;, - 0.680575; 0.653797;, - 0.673932; 0.665295;, - 0.730547; 0.700438;, - 0.730547; 0.700438;, - 0.724686; 0.712385;, - 0.673932; 0.665295;, - 0.673932; 0.665295;, - 0.724686; 0.712385;, - 0.730547; 0.700438;, - 0.667777; 0.676968;, - 0.634869; 0.666696;, - 0.637009; 0.655191;, - 0.637009; 0.655191;, - 0.634869; 0.666696;, - 0.667777; 0.676968;, - 0.673932; 0.665295;, - 0.667777; 0.676968;, - 0.637009; 0.655191;, - 0.637009; 0.655191;, - 0.667777; 0.676968;, - 0.673932; 0.665295;, - 0.673932; 0.665295;, - 0.637009; 0.655191;, - 0.638659; 0.643626;, - 0.638659; 0.643626;, - 0.637009; 0.655191;, - 0.673932; 0.665295;, - 0.680575; 0.653797;, - 0.673932; 0.665295;, - 0.638659; 0.643626;, - 0.638659; 0.643626;, - 0.673932; 0.665295;, - 0.680575; 0.653797;, - 0.637009; 0.655191;, - 0.609260; 0.666339;, - 0.601992; 0.655222;, - 0.601992; 0.655222;, - 0.609260; 0.666339;, - 0.637009; 0.655191;, - 0.637009; 0.655191;, - 0.634869; 0.666696;, - 0.609260; 0.666339;, - 0.609260; 0.666339;, - 0.634869; 0.666696;, - 0.637009; 0.655191;, - 0.638659; 0.643626;, - 0.601992; 0.655222;, - 0.595842; 0.645002;, - 0.595842; 0.645002;, - 0.601992; 0.655222;, - 0.638659; 0.643626;, - 0.638659; 0.643626;, - 0.637009; 0.655191;, - 0.601992; 0.655222;, - 0.601992; 0.655222;, - 0.637009; 0.655191;, - 0.638659; 0.643626;, - 0.838248; 0.616057;, - 0.825674; 0.593715;, - 0.829693; 0.588906;, - 0.829693; 0.588906;, - 0.825674; 0.593715;, - 0.838248; 0.616057;, - 0.848244; 0.607642;, - 0.838248; 0.616057;, - 0.829693; 0.588906;, - 0.829693; 0.588906;, - 0.838248; 0.616057;, - 0.848244; 0.607642;, - 0.829693; 0.588906;, - 0.856342; 0.597344;, - 0.848244; 0.607642;, - 0.848244; 0.607642;, - 0.856342; 0.597344;, - 0.829693; 0.588906;, - 0.832887; 0.582905;, - 0.856342; 0.597344;, - 0.829693; 0.588906;, - 0.829693; 0.588906;, - 0.856342; 0.597344;, - 0.832887; 0.582905;, - 0.861297; 0.585688;, - 0.856342; 0.597344;, - 0.832887; 0.582905;, - 0.832887; 0.582905;, - 0.856342; 0.597344;, - 0.861297; 0.585688;, - 0.848244; 0.607642;, - 0.854063; 0.644546;, - 0.838248; 0.616057;, - 0.838248; 0.616057;, - 0.854063; 0.644546;, - 0.848244; 0.607642;, - 0.848244; 0.607642;, - 0.866405; 0.629930;, - 0.854063; 0.644546;, - 0.854063; 0.644546;, - 0.866405; 0.629930;, - 0.848244; 0.607642;, - 0.848244; 0.607642;, - 0.873209; 0.623614;, - 0.866405; 0.629930;, - 0.866405; 0.629930;, - 0.873209; 0.623614;, - 0.848244; 0.607642;, - 0.848244; 0.607642;, - 0.856342; 0.597344;, - 0.873209; 0.623614;, - 0.873209; 0.623614;, - 0.856342; 0.597344;, - 0.848244; 0.607642;, - 0.880645; 0.617059;, - 0.873209; 0.623614;, - 0.856342; 0.597344;, - 0.880645; 0.617059;, - 0.856342; 0.597344;, - 0.873209; 0.623614;, - 0.880645; 0.617059;, - 0.856342; 0.597344;, - 0.895370; 0.611566;, - 0.895370; 0.611566;, - 0.856342; 0.597344;, - 0.880645; 0.617059;, - 0.895370; 0.611566;, - 0.856342; 0.597344;, - 0.861297; 0.585688;, - 0.861297; 0.585688;, - 0.856342; 0.597344;, - 0.895370; 0.611566;, - 0.495405; 0.239624;, - 0.495600; 0.255626;, - 0.460502; 0.265782;, - 0.460502; 0.265782;, - 0.495600; 0.255626;, - 0.495405; 0.239624;, - 0.495600; 0.255626;, - 0.474803; 0.276650;, - 0.460502; 0.265782;, - 0.460502; 0.265782;, - 0.474803; 0.276650;, - 0.495600; 0.255626;, - 0.528823; 0.294027;, - 0.505773; 0.265521;, - 0.534509; 0.263777;, - 0.534509; 0.263777;, - 0.505773; 0.265521;, - 0.528823; 0.294027;, - 0.538585; 0.304114;, - 0.528823; 0.294027;, - 0.534509; 0.263777;, - 0.534509; 0.263777;, - 0.528823; 0.294027;, - 0.538585; 0.304114;, - 0.470928; 0.316734;, - 0.474803; 0.276650;, - 0.484835; 0.306615;, - 0.484835; 0.306615;, - 0.474803; 0.276650;, - 0.470928; 0.316734;, - 0.505773; 0.265521;, - 0.484835; 0.306615;, - 0.474803; 0.276650;, - 0.474803; 0.276650;, - 0.484835; 0.306615;, - 0.505773; 0.265521;, - 0.495600; 0.255626;, - 0.505773; 0.265521;, - 0.474803; 0.276650;, - 0.474803; 0.276650;, - 0.505773; 0.265521;, - 0.495600; 0.255626;, - 0.505773; 0.265521;, - 0.517735; 0.305115;, - 0.484835; 0.306615;, - 0.484835; 0.306615;, - 0.517735; 0.305115;, - 0.505773; 0.265521;, - 0.517735; 0.305115;, - 0.505773; 0.265521;, - 0.528823; 0.294027;, - 0.528823; 0.294027;, - 0.505773; 0.265521;, - 0.517735; 0.305115;, - 0.524293; 0.324785;, - 0.517735; 0.305115;, - 0.528823; 0.294027;, - 0.528823; 0.294027;, - 0.517735; 0.305115;, - 0.524293; 0.324785;, - 0.524293; 0.324785;, - 0.528823; 0.294027;, - 0.541975; 0.360343;, - 0.541975; 0.360343;, - 0.528823; 0.294027;, - 0.524293; 0.324785;, - 0.534946; 0.391208;, - 0.524293; 0.324785;, - 0.541975; 0.360343;, - 0.541975; 0.360343;, - 0.524293; 0.324785;, - 0.534946; 0.391208;, - 0.550658; 0.391772;, - 0.534946; 0.391208;, - 0.541975; 0.360343;, - 0.541975; 0.360343;, - 0.534946; 0.391208;, - 0.550658; 0.391772;, - 0.541975; 0.360343;, - 0.528823; 0.294027;, - 0.538585; 0.304114;, - 0.538585; 0.304114;, - 0.528823; 0.294027;, - 0.541975; 0.360343;, - 0.574212; 0.316488;, - 0.541975; 0.360343;, - 0.538585; 0.304114;, - 0.538585; 0.304114;, - 0.541975; 0.360343;, - 0.574212; 0.316488;, - 0.571314; 0.393613;, - 0.550658; 0.391772;, - 0.541975; 0.360343;, - 0.541975; 0.360343;, - 0.550658; 0.391772;, - 0.571314; 0.393613;, - 0.603611; 0.342551;, - 0.574212; 0.316488;, - 0.609691; 0.295406;, - 0.609691; 0.295406;, - 0.574212; 0.316488;, - 0.603611; 0.342551;, - 0.571314; 0.393613;, - 0.603611; 0.342551;, - 0.595268; 0.390313;, - 0.595268; 0.390313;, - 0.603611; 0.342551;, - 0.571314; 0.393613;, - 0.517735; 0.305115;, - 0.508374; 0.350912;, - 0.484835; 0.306615;, - 0.484835; 0.306615;, - 0.508374; 0.350912;, - 0.517735; 0.305115;, - 0.524293; 0.324785;, - 0.508374; 0.350912;, - 0.517735; 0.305115;, - 0.517735; 0.305115;, - 0.508374; 0.350912;, - 0.524293; 0.324785;, - 0.534946; 0.391208;, - 0.508374; 0.350912;, - 0.524293; 0.324785;, - 0.524293; 0.324785;, - 0.508374; 0.350912;, - 0.534946; 0.391208;, - 0.508374; 0.350912;, - 0.495443; 0.374038;, - 0.484835; 0.306615;, - 0.484835; 0.306615;, - 0.495443; 0.374038;, - 0.508374; 0.350912;, - 0.534946; 0.391208;, - 0.508756; 0.393980;, - 0.495443; 0.374038;, - 0.495443; 0.374038;, - 0.508756; 0.393980;, - 0.534946; 0.391208;, - 0.508374; 0.350912;, - 0.534946; 0.391208;, - 0.495443; 0.374038;, - 0.495443; 0.374038;, - 0.534946; 0.391208;, - 0.508374; 0.350912;, - 0.541975; 0.360343;, - 0.571168; 0.354526;, - 0.571314; 0.393613;, - 0.571314; 0.393613;, - 0.571168; 0.354526;, - 0.541975; 0.360343;, - 0.541975; 0.360343;, - 0.574212; 0.316488;, - 0.571168; 0.354526;, - 0.571168; 0.354526;, - 0.574212; 0.316488;, - 0.541975; 0.360343;, - 0.603611; 0.342551;, - 0.571168; 0.354526;, - 0.574212; 0.316488;, - 0.574212; 0.316488;, - 0.571168; 0.354526;, - 0.603611; 0.342551;, - 0.603611; 0.342551;, - 0.571314; 0.393613;, - 0.571168; 0.354526;, - 0.571168; 0.354526;, - 0.571314; 0.393613;, - 0.603611; 0.342551;, - 0.515630; 0.405695;, - 0.508756; 0.393980;, - 0.534946; 0.391208;, - 0.534946; 0.391208;, - 0.508756; 0.393980;, - 0.515630; 0.405695;, - 0.515630; 0.405695;, - 0.534946; 0.391208;, - 0.537087; 0.405914;, - 0.537087; 0.405914;, - 0.534946; 0.391208;, - 0.515630; 0.405695;, - 0.534946; 0.391208;, - 0.550658; 0.391772;, - 0.537087; 0.405914;, - 0.537087; 0.405914;, - 0.550658; 0.391772;, - 0.534946; 0.391208;, - 0.550658; 0.391772;, - 0.550431; 0.406789;, - 0.537087; 0.405914;, - 0.537087; 0.405914;, - 0.550431; 0.406789;, - 0.550658; 0.391772;, - 0.595268; 0.390313;, - 0.593685; 0.396942;, - 0.571314; 0.393613;, - 0.571314; 0.393613;, - 0.593685; 0.396942;, - 0.595268; 0.390313;, - 0.593685; 0.396942;, - 0.568668; 0.405059;, - 0.571314; 0.393613;, - 0.571314; 0.393613;, - 0.568668; 0.405059;, - 0.593685; 0.396942;, - 0.568668; 0.405059;, - 0.550658; 0.391772;, - 0.571314; 0.393613;, - 0.571314; 0.393613;, - 0.550658; 0.391772;, - 0.568668; 0.405059;, - 0.550658; 0.391772;, - 0.568668; 0.405059;, - 0.550431; 0.406789;, - 0.550431; 0.406789;, - 0.568668; 0.405059;, - 0.550658; 0.391772;, - 0.543594; 0.434257;, - 0.537612; 0.415765;, - 0.550085; 0.416197;, - 0.550085; 0.416197;, - 0.537612; 0.415765;, - 0.543594; 0.434257;, - 0.537612; 0.415765;, - 0.515630; 0.405695;, - 0.537087; 0.405914;, - 0.537087; 0.405914;, - 0.515630; 0.405695;, - 0.537612; 0.415765;, - 0.537612; 0.415765;, - 0.537087; 0.405914;, - 0.550431; 0.406789;, - 0.550431; 0.406789;, - 0.537087; 0.405914;, - 0.537612; 0.415765;, - 0.550085; 0.416197;, - 0.537612; 0.415765;, - 0.550431; 0.406789;, - 0.550431; 0.406789;, - 0.537612; 0.415765;, - 0.550085; 0.416197;, - 0.568668; 0.405059;, - 0.550085; 0.416197;, - 0.550431; 0.406789;, - 0.550431; 0.406789;, - 0.550085; 0.416197;, - 0.568668; 0.405059;, - 0.537612; 0.415765;, - 0.543594; 0.434257;, - 0.515630; 0.405695;, - 0.515630; 0.405695;, - 0.543594; 0.434257;, - 0.537612; 0.415765;, - 0.543594; 0.434257;, - 0.550085; 0.416197;, - 0.568668; 0.405059;, - 0.568668; 0.405059;, - 0.550085; 0.416197;, - 0.543594; 0.434257;, - 0.562932; 0.436772;, - 0.543594; 0.434257;, - 0.568668; 0.405059;, - 0.568668; 0.405059;, - 0.543594; 0.434257;, - 0.562932; 0.436772;, - 0.584351; 0.422162;, - 0.562932; 0.436772;, - 0.568668; 0.405059;, - 0.568668; 0.405059;, - 0.562932; 0.436772;, - 0.584351; 0.422162;, - 0.584351; 0.422162;, - 0.578959; 0.441065;, - 0.562932; 0.436772;, - 0.562932; 0.436772;, - 0.578959; 0.441065;, - 0.584351; 0.422162;, - 0.584351; 0.422162;, - 0.568668; 0.405059;, - 0.593685; 0.396942;, - 0.593685; 0.396942;, - 0.568668; 0.405059;, - 0.584351; 0.422162;, - 0.543594; 0.434257;, - 0.524923; 0.438518;, - 0.515630; 0.405695;, - 0.515630; 0.405695;, - 0.524923; 0.438518;, - 0.543594; 0.434257;, - 0.578959; 0.441065;, - 0.572556; 0.483107;, - 0.562932; 0.436772;, - 0.562932; 0.436772;, - 0.572556; 0.483107;, - 0.578959; 0.441065;, - 0.572556; 0.483107;, - 0.560134; 0.487705;, - 0.562932; 0.436772;, - 0.562932; 0.436772;, - 0.560134; 0.487705;, - 0.572556; 0.483107;, - 0.571940; 0.490947;, - 0.560134; 0.487705;, - 0.572556; 0.483107;, - 0.572556; 0.483107;, - 0.560134; 0.487705;, - 0.571940; 0.490947;, - 0.560881; 0.538986;, - 0.560134; 0.487705;, - 0.571940; 0.490947;, - 0.571940; 0.490947;, - 0.560134; 0.487705;, - 0.560881; 0.538986;, - 0.571350; 0.542506;, - 0.560881; 0.538986;, - 0.571940; 0.490947;, - 0.571940; 0.490947;, - 0.560881; 0.538986;, - 0.571350; 0.542506;, - 0.562824; 0.551570;, - 0.560881; 0.538986;, - 0.571350; 0.542506;, - 0.571350; 0.542506;, - 0.560881; 0.538986;, - 0.562824; 0.551570;, - 0.576705; 0.553756;, - 0.562824; 0.551570;, - 0.571350; 0.542506;, - 0.571350; 0.542506;, - 0.562824; 0.551570;, - 0.576705; 0.553756;, - 0.571886; 0.560441;, - 0.562824; 0.551570;, - 0.576705; 0.553756;, - 0.576705; 0.553756;, - 0.562824; 0.551570;, - 0.571886; 0.560441;, - 0.560105; 0.561910;, - 0.562824; 0.551570;, - 0.571886; 0.560441;, - 0.571886; 0.560441;, - 0.562824; 0.551570;, - 0.560105; 0.561910;, - 0.577008; 0.584500;, - 0.560105; 0.561910;, - 0.571886; 0.560441;, - 0.571886; 0.560441;, - 0.560105; 0.561910;, - 0.577008; 0.584500;, - 0.571925; 0.610487;, - 0.560105; 0.561910;, - 0.577008; 0.584500;, - 0.577008; 0.584500;, - 0.560105; 0.561910;, - 0.571925; 0.610487;, - 0.583722; 0.606909;, - 0.571925; 0.610487;, - 0.577008; 0.584500;, - 0.577008; 0.584500;, - 0.571925; 0.610487;, - 0.583722; 0.606909;, - 0.546433; 0.489648;, - 0.524923; 0.438518;, - 0.543594; 0.434257;, - 0.543594; 0.434257;, - 0.524923; 0.438518;, - 0.546433; 0.489648;, - 0.546433; 0.489648;, - 0.533298; 0.489263;, - 0.524923; 0.438518;, - 0.524923; 0.438518;, - 0.533298; 0.489263;, - 0.546433; 0.489648;, - 0.538941; 0.540548;, - 0.533298; 0.489263;, - 0.546433; 0.489648;, - 0.546433; 0.489648;, - 0.533298; 0.489263;, - 0.538941; 0.540548;, - 0.549389; 0.536580;, - 0.538941; 0.540548;, - 0.546433; 0.489648;, - 0.546433; 0.489648;, - 0.538941; 0.540548;, - 0.549389; 0.536580;, - 0.548315; 0.548673;, - 0.538941; 0.540548;, - 0.549389; 0.536580;, - 0.549389; 0.536580;, - 0.538941; 0.540548;, - 0.548315; 0.548673;, - 0.548315; 0.548673;, - 0.539348; 0.553277;, - 0.538941; 0.540548;, - 0.538941; 0.540548;, - 0.539348; 0.553277;, - 0.548315; 0.548673;, - 0.550627; 0.548093;, - 0.548315; 0.548673;, - 0.549389; 0.536580;, - 0.549389; 0.536580;, - 0.548315; 0.548673;, - 0.550627; 0.548093;, - 0.539348; 0.553277;, - 0.548315; 0.548673;, - 0.551034; 0.554972;, - 0.551034; 0.554972;, - 0.548315; 0.548673;, - 0.539348; 0.553277;, - 0.551715; 0.566616;, - 0.539348; 0.553277;, - 0.551034; 0.554972;, - 0.551034; 0.554972;, - 0.539348; 0.553277;, - 0.551715; 0.566616;, - 0.543782; 0.563120;, - 0.539348; 0.553277;, - 0.551715; 0.566616;, - 0.551715; 0.566616;, - 0.539348; 0.553277;, - 0.543782; 0.563120;, - 0.555110; 0.613394;, - 0.543782; 0.563120;, - 0.551715; 0.566616;, - 0.551715; 0.566616;, - 0.543782; 0.563120;, - 0.555110; 0.613394;, - 0.540605; 0.614088;, - 0.543782; 0.563120;, - 0.555110; 0.613394;, - 0.555110; 0.613394;, - 0.543782; 0.563120;, - 0.540605; 0.614088;, - 0.562932; 0.436772;, - 0.546433; 0.489648;, - 0.543594; 0.434257;, - 0.543594; 0.434257;, - 0.546433; 0.489648;, - 0.562932; 0.436772;, - 0.560134; 0.487705;, - 0.546433; 0.489648;, - 0.562932; 0.436772;, - 0.562932; 0.436772;, - 0.546433; 0.489648;, - 0.560134; 0.487705;, - 0.560134; 0.487705;, - 0.560881; 0.538986;, - 0.546433; 0.489648;, - 0.546433; 0.489648;, - 0.560881; 0.538986;, - 0.560134; 0.487705;, - 0.560881; 0.538986;, - 0.549389; 0.536580;, - 0.546433; 0.489648;, - 0.546433; 0.489648;, - 0.549389; 0.536580;, - 0.560881; 0.538986;, - 0.560881; 0.538986;, - 0.553135; 0.548318;, - 0.549389; 0.536580;, - 0.549389; 0.536580;, - 0.553135; 0.548318;, - 0.560881; 0.538986;, - 0.553135; 0.548318;, - 0.550627; 0.548093;, - 0.549389; 0.536580;, - 0.549389; 0.536580;, - 0.550627; 0.548093;, - 0.553135; 0.548318;, - 0.562824; 0.551570;, - 0.553135; 0.548318;, - 0.560881; 0.538986;, - 0.560881; 0.538986;, - 0.553135; 0.548318;, - 0.562824; 0.551570;, - 0.553135; 0.548318;, - 0.562824; 0.551570;, - 0.551034; 0.554972;, - 0.551034; 0.554972;, - 0.562824; 0.551570;, - 0.553135; 0.548318;, - 0.562824; 0.551570;, - 0.551715; 0.566616;, - 0.551034; 0.554972;, - 0.551034; 0.554972;, - 0.551715; 0.566616;, - 0.562824; 0.551570;, - 0.562824; 0.551570;, - 0.560105; 0.561910;, - 0.551715; 0.566616;, - 0.551715; 0.566616;, - 0.560105; 0.561910;, - 0.562824; 0.551570;, - 0.560105; 0.561910;, - 0.555110; 0.613394;, - 0.551715; 0.566616;, - 0.551715; 0.566616;, - 0.555110; 0.613394;, - 0.560105; 0.561910;, - 0.560105; 0.561910;, - 0.571925; 0.610487;, - 0.555110; 0.613394;, - 0.555110; 0.613394;, - 0.571925; 0.610487;, - 0.560105; 0.561910;, - 0.548315; 0.548673;, - 0.550796; 0.550719;, - 0.551034; 0.554972;, - 0.551034; 0.554972;, - 0.550796; 0.550719;, - 0.548315; 0.548673;, - 0.548315; 0.548673;, - 0.550627; 0.548093;, - 0.550796; 0.550719;, - 0.550796; 0.550719;, - 0.550627; 0.548093;, - 0.548315; 0.548673;, - 0.553135; 0.548318;, - 0.550796; 0.550719;, - 0.550627; 0.548093;, - 0.550627; 0.548093;, - 0.550796; 0.550719;, - 0.553135; 0.548318;, - 0.553135; 0.548318;, - 0.551034; 0.554972;, - 0.550796; 0.550719;, - 0.550796; 0.550719;, - 0.551034; 0.554972;, - 0.553135; 0.548318;, - 0.495600; 0.255626;, - 0.495405; 0.239624;, - 0.517026; 0.246092;, - 0.517026; 0.246092;, - 0.495405; 0.239624;, - 0.495600; 0.255626;, - 0.517026; 0.246092;, - 0.534509; 0.263777;, - 0.505773; 0.265521;, - 0.505773; 0.265521;, - 0.534509; 0.263777;, - 0.517026; 0.246092;, - 0.495600; 0.255626;, - 0.517026; 0.246092;, - 0.505773; 0.265521;, - 0.505773; 0.265521;, - 0.517026; 0.246092;, - 0.495600; 0.255626;, - 0.555110; 0.613394;, - 0.557109; 0.620937;, - 0.540605; 0.614088;, - 0.540605; 0.614088;, - 0.557109; 0.620937;, - 0.555110; 0.613394;, - 0.571925; 0.610487;, - 0.557109; 0.620937;, - 0.555110; 0.613394;, - 0.555110; 0.613394;, - 0.557109; 0.620937;, - 0.571925; 0.610487;, - 0.540605; 0.614088;, - 0.527811; 0.612969;, - 0.529840; 0.589291;, - 0.529840; 0.589291;, - 0.527811; 0.612969;, - 0.540605; 0.614088;, - 0.543782; 0.563120;, - 0.540605; 0.614088;, - 0.529840; 0.589291;, - 0.529840; 0.589291;, - 0.540605; 0.614088;, - 0.543782; 0.563120;, - 0.543782; 0.563120;, - 0.529840; 0.589291;, - 0.529893; 0.564389;, - 0.529893; 0.564389;, - 0.529840; 0.589291;, - 0.543782; 0.563120;, - 0.539348; 0.553277;, - 0.543782; 0.563120;, - 0.529893; 0.564389;, - 0.529893; 0.564389;, - 0.543782; 0.563120;, - 0.539348; 0.553277;, - 0.539348; 0.553277;, - 0.529893; 0.564389;, - 0.524252; 0.558186;, - 0.524252; 0.558186;, - 0.529893; 0.564389;, - 0.539348; 0.553277;, - 0.539348; 0.553277;, - 0.524252; 0.558186;, - 0.526999; 0.545794;, - 0.526999; 0.545794;, - 0.524252; 0.558186;, - 0.539348; 0.553277;, - 0.538941; 0.540548;, - 0.539348; 0.553277;, - 0.526999; 0.545794;, - 0.526999; 0.545794;, - 0.539348; 0.553277;, - 0.538941; 0.540548;, - 0.538941; 0.540548;, - 0.526999; 0.545794;, - 0.520578; 0.494092;, - 0.520578; 0.494092;, - 0.526999; 0.545794;, - 0.538941; 0.540548;, - 0.533298; 0.489263;, - 0.538941; 0.540548;, - 0.520578; 0.494092;, - 0.520578; 0.494092;, - 0.538941; 0.540548;, - 0.533298; 0.489263;, - 0.533298; 0.489263;, - 0.520578; 0.494092;, - 0.519059; 0.486341;, - 0.519059; 0.486341;, - 0.520578; 0.494092;, - 0.533298; 0.489263;, - 0.533298; 0.489263;, - 0.519059; 0.486341;, - 0.524923; 0.438518;, - 0.524923; 0.438518;, - 0.519059; 0.486341;, - 0.533298; 0.489263;, - 0.519059; 0.486341;, - 0.507929; 0.445110;, - 0.524923; 0.438518;, - 0.524923; 0.438518;, - 0.507929; 0.445110;, - 0.519059; 0.486341;, - 0.515630; 0.405695;, - 0.500318; 0.426304;, - 0.486665; 0.401222;, - 0.486665; 0.401222;, - 0.500318; 0.426304;, - 0.515630; 0.405695;, - 0.524923; 0.438518;, - 0.500318; 0.426304;, - 0.515630; 0.405695;, - 0.515630; 0.405695;, - 0.500318; 0.426304;, - 0.524923; 0.438518;, - 0.507929; 0.445110;, - 0.500318; 0.426304;, - 0.524923; 0.438518;, - 0.524923; 0.438518;, - 0.500318; 0.426304;, - 0.507929; 0.445110;, - 0.515630; 0.405695;, - 0.486665; 0.401222;, - 0.508756; 0.393980;, - 0.508756; 0.393980;, - 0.486665; 0.401222;, - 0.515630; 0.405695;, - 0.486665; 0.401222;, - 0.484800; 0.394170;, - 0.508756; 0.393980;, - 0.508756; 0.393980;, - 0.484800; 0.394170;, - 0.486665; 0.401222;, - 0.495443; 0.374038;, - 0.508756; 0.393980;, - 0.484800; 0.394170;, - 0.484800; 0.394170;, - 0.508756; 0.393980;, - 0.495443; 0.374038;, - 0.474158; 0.347782;, - 0.495443; 0.374038;, - 0.484800; 0.394170;, - 0.484800; 0.394170;, - 0.495443; 0.374038;, - 0.474158; 0.347782;, - 0.495443; 0.374038;, - 0.474158; 0.347782;, - 0.484835; 0.306615;, - 0.484835; 0.306615;, - 0.474158; 0.347782;, - 0.495443; 0.374038;, - 0.474158; 0.347782;, - 0.470928; 0.316734;, - 0.484835; 0.306615;, - 0.484835; 0.306615;, - 0.470928; 0.316734;, - 0.474158; 0.347782;, - 0.470928; 0.316734;, - 0.474158; 0.347782;, - 0.456685; 0.303753;, - 0.456685; 0.303753;, - 0.474158; 0.347782;, - 0.470928; 0.316734;, - 0.474803; 0.276650;, - 0.470928; 0.316734;, - 0.456685; 0.303753;, - 0.456685; 0.303753;, - 0.470928; 0.316734;, - 0.474803; 0.276650;, - 0.460502; 0.265782;, - 0.474803; 0.276650;, - 0.456685; 0.303753;, - 0.456685; 0.303753;, - 0.474803; 0.276650;, - 0.460502; 0.265782;, - 0.800656; 0.815259;, - 0.766666; 0.787930;, - 0.783225; 0.793366;, - 0.783225; 0.793366;, - 0.766666; 0.787930;, - 0.800656; 0.815259;, - 0.800603; 0.815371;, - 0.783332; 0.793302;, - 0.797055; 0.792578;, - 0.797055; 0.792578;, - 0.783332; 0.793302;, - 0.800603; 0.815371;, - 0.789984; 0.786056;, - 0.797055; 0.792578;, - 0.783332; 0.793302;, - 0.783332; 0.793302;, - 0.797055; 0.792578;, - 0.789984; 0.786056;, - 0.789984; 0.786056;, - 0.783332; 0.793302;, - 0.766597; 0.787670;, - 0.766597; 0.787670;, - 0.783332; 0.793302;, - 0.789984; 0.786056;, - 0.765826; 0.957187;, - 0.769239; 0.970509;, - 0.791349; 0.956445;, - 0.769239; 0.970509;, - 0.714174; 0.972738;, - 0.765826; 0.957187;, - 0.513438; 0.676330;, - 0.522646; 0.693331;, - 0.502845; 0.683216;, - 0.564809; 0.753624;, - 0.521914; 0.788072;, - 0.509674; 0.766079;, - 0.509674; 0.766079;, - 0.521914; 0.788072;, - 0.564809; 0.753624;, - 0.564809; 0.753624;, - 0.509674; 0.766079;, - 0.491564; 0.750501;, - 0.491564; 0.750501;, - 0.509674; 0.766079;, - 0.564809; 0.753624;, - 0.765826; 0.957187;, - 0.791324; 0.946995;, - 0.791349; 0.956445;, - 0.791349; 0.956445;, - 0.791324; 0.946995;, - 0.765826; 0.957187;, - 0.818095; 0.930833;, - 0.791349; 0.956445;, - 0.791324; 0.946995;, - 0.791324; 0.946995;, - 0.791349; 0.956445;, - 0.818095; 0.930833;, - 0.765826; 0.957187;, - 0.713043; 0.945984;, - 0.724402; 0.935566;, - 0.724402; 0.935566;, - 0.713043; 0.945984;, - 0.765826; 0.957187;, - 0.707810; 0.916560;, - 0.724402; 0.935566;, - 0.713043; 0.945984;, - 0.713043; 0.945984;, - 0.724402; 0.935566;, - 0.707810; 0.916560;, - 0.673394; 0.809472;, - 0.727915; 0.803559;, - 0.702134; 0.824370;, - 0.702134; 0.824370;, - 0.727915; 0.803559;, - 0.673394; 0.809472;, - 0.673394; 0.809472;, - 0.702134; 0.824370;, - 0.689216; 0.857435;, - 0.689216; 0.857435;, - 0.702134; 0.824370;, - 0.673394; 0.809472;, - 0.800603; 0.815371;, - 0.797055; 0.792578;, - 0.819454; 0.819324;, - 0.819454; 0.819324;, - 0.797055; 0.792578;, - 0.800603; 0.815371;, - 0.819454; 0.819324;, - 0.817371; 0.838872;, - 0.800603; 0.815371;, - 0.800603; 0.815371;, - 0.817371; 0.838872;, - 0.819454; 0.819324;, - 0.832476; 0.846452;, - 0.817371; 0.838872;, - 0.819454; 0.819324;, - 0.819454; 0.819324;, - 0.817371; 0.838872;, - 0.832476; 0.846452;, - 0.827325; 0.865174;, - 0.817371; 0.838872;, - 0.832476; 0.846452;, - 0.832476; 0.846452;, - 0.817371; 0.838872;, - 0.827325; 0.865174;, - 0.827325; 0.865174;, - 0.832476; 0.846452;, - 0.838107; 0.886875;, - 0.838107; 0.886875;, - 0.832476; 0.846452;, - 0.827325; 0.865174;, - 0.828449; 0.891023;, - 0.827325; 0.865174;, - 0.838107; 0.886875;, - 0.838107; 0.886875;, - 0.827325; 0.865174;, - 0.828449; 0.891023;, - 0.821535; 0.918305;, - 0.828449; 0.891023;, - 0.838107; 0.886875;, - 0.838107; 0.886875;, - 0.828449; 0.891023;, - 0.821535; 0.918305;, - 0.821535; 0.918305;, - 0.838107; 0.886875;, - 0.826222; 0.936439;, - 0.826222; 0.936439;, - 0.838107; 0.886875;, - 0.821535; 0.918305;, - 0.818095; 0.930833;, - 0.821535; 0.918305;, - 0.826222; 0.936439;, - 0.826222; 0.936439;, - 0.821535; 0.918305;, - 0.818095; 0.930833;, - 0.818095; 0.930833;, - 0.826222; 0.936439;, - 0.791349; 0.956445;, - 0.791349; 0.956445;, - 0.826222; 0.936439;, - 0.818095; 0.930833;, - 0.713043; 0.945984;, - 0.765826; 0.957187;, - 0.714174; 0.972738;, - 0.714174; 0.972738;, - 0.765826; 0.957187;, - 0.713043; 0.945984;, - 0.684226; 0.953198;, - 0.713043; 0.945984;, - 0.714174; 0.972738;, - 0.714174; 0.972738;, - 0.713043; 0.945984;, - 0.684226; 0.953198;, - 0.713043; 0.945984;, - 0.684226; 0.953198;, - 0.707810; 0.916560;, - 0.707810; 0.916560;, - 0.684226; 0.953198;, - 0.713043; 0.945984;, - 0.463994; 0.847229;, - 0.473374; 0.834579;, - 0.512640; 0.831452;, - 0.512640; 0.831452;, - 0.473374; 0.834579;, - 0.463994; 0.847229;, - 0.473374; 0.834579;, - 0.463994; 0.847229;, - 0.436813; 0.811843;, - 0.436813; 0.811843;, - 0.463994; 0.847229;, - 0.473374; 0.834579;, - 0.646695; 0.863419;, - 0.673394; 0.809472;, - 0.689216; 0.857435;, - 0.689216; 0.857435;, - 0.673394; 0.809472;, - 0.646695; 0.863419;, - 0.617750; 0.809463;, - 0.673394; 0.809472;, - 0.646695; 0.863419;, - 0.646695; 0.863419;, - 0.673394; 0.809472;, - 0.617750; 0.809463;, - 0.617750; 0.809463;, - 0.646695; 0.863419;, - 0.594033; 0.858465;, - 0.594033; 0.858465;, - 0.646695; 0.863419;, - 0.617750; 0.809463;, - 0.617750; 0.809463;, - 0.594033; 0.858465;, - 0.563819; 0.808002;, - 0.563819; 0.808002;, - 0.594033; 0.858465;, - 0.617750; 0.809463;, - 0.673394; 0.809472;, - 0.696113; 0.777063;, - 0.727915; 0.803559;, - 0.727915; 0.803559;, - 0.696113; 0.777063;, - 0.673394; 0.809472;, - 0.696113; 0.777063;, - 0.673394; 0.809472;, - 0.632240; 0.767496;, - 0.632240; 0.767496;, - 0.673394; 0.809472;, - 0.696113; 0.777063;, - 0.673394; 0.809472;, - 0.617750; 0.809463;, - 0.632240; 0.767496;, - 0.632240; 0.767496;, - 0.617750; 0.809463;, - 0.673394; 0.809472;, - 0.617750; 0.809463;, - 0.582513; 0.778796;, - 0.632240; 0.767496;, - 0.632240; 0.767496;, - 0.582513; 0.778796;, - 0.617750; 0.809463;, - 0.582513; 0.778796;, - 0.617750; 0.809463;, - 0.563819; 0.808002;, - 0.563819; 0.808002;, - 0.617750; 0.809463;, - 0.582513; 0.778796;, - 0.789984; 0.786056;, - 0.766597; 0.787670;, - 0.792259; 0.774231;, - 0.792259; 0.774231;, - 0.766597; 0.787670;, - 0.789984; 0.786056;, - 0.792259; 0.774231;, - 0.766597; 0.787670;, - 0.751806; 0.778186;, - 0.751806; 0.778186;, - 0.766597; 0.787670;, - 0.792259; 0.774231;, - 0.792259; 0.774231;, - 0.751806; 0.778186;, - 0.755086; 0.766010;, - 0.755086; 0.766010;, - 0.751806; 0.778186;, - 0.792259; 0.774231;, - 0.751806; 0.778186;, - 0.766597; 0.787670;, - 0.727915; 0.803559;, - 0.727915; 0.803559;, - 0.766597; 0.787670;, - 0.751806; 0.778186;, - 0.707810; 0.916560;, - 0.684226; 0.953198;, - 0.688151; 0.908794;, - 0.688151; 0.908794;, - 0.684226; 0.953198;, - 0.707810; 0.916560;, - 0.684226; 0.953198;, - 0.714174; 0.972738;, - 0.669854; 0.982604;, - 0.669854; 0.982604;, - 0.714174; 0.972738;, - 0.684226; 0.953198;, - 0.628098; 0.963244;, - 0.684226; 0.953198;, - 0.669854; 0.982604;, - 0.669854; 0.982604;, - 0.684226; 0.953198;, - 0.628098; 0.963244;, - 0.688151; 0.908794;, - 0.684226; 0.953198;, - 0.628098; 0.963244;, - 0.628098; 0.963244;, - 0.684226; 0.953198;, - 0.688151; 0.908794;, - 0.645187; 0.913588;, - 0.688151; 0.908794;, - 0.628098; 0.963244;, - 0.628098; 0.963244;, - 0.688151; 0.908794;, - 0.645187; 0.913588;, - 0.689216; 0.857435;, - 0.707810; 0.916560;, - 0.688151; 0.908794;, - 0.688151; 0.908794;, - 0.707810; 0.916560;, - 0.689216; 0.857435;, - 0.689216; 0.857435;, - 0.688151; 0.908794;, - 0.645187; 0.913588;, - 0.645187; 0.913588;, - 0.688151; 0.908794;, - 0.689216; 0.857435;, - 0.646695; 0.863419;, - 0.689216; 0.857435;, - 0.645187; 0.913588;, - 0.645187; 0.913588;, - 0.689216; 0.857435;, - 0.646695; 0.863419;, - 0.646695; 0.863419;, - 0.645187; 0.913588;, - 0.605393; 0.909908;, - 0.605393; 0.909908;, - 0.645187; 0.913588;, - 0.646695; 0.863419;, - 0.594033; 0.858465;, - 0.646695; 0.863419;, - 0.605393; 0.909908;, - 0.605393; 0.909908;, - 0.646695; 0.863419;, - 0.594033; 0.858465;, - 0.727915; 0.803559;, - 0.696113; 0.777063;, - 0.751806; 0.778186;, - 0.751806; 0.778186;, - 0.696113; 0.777063;, - 0.727915; 0.803559;, - 0.512640; 0.831452;, - 0.521914; 0.788072;, - 0.549870; 0.849961;, - 0.549870; 0.849961;, - 0.521914; 0.788072;, - 0.512640; 0.831452;, - 0.521914; 0.788072;, - 0.563819; 0.808002;, - 0.549870; 0.849961;, - 0.549870; 0.849961;, - 0.563819; 0.808002;, - 0.521914; 0.788072;, - 0.632240; 0.767496;, - 0.582513; 0.778796;, - 0.564809; 0.753624;, - 0.564809; 0.753624;, - 0.582513; 0.778796;, - 0.632240; 0.767496;, - 0.582513; 0.778796;, - 0.563819; 0.808002;, - 0.521914; 0.788072;, - 0.521914; 0.788072;, - 0.563819; 0.808002;, - 0.582513; 0.778796;, - 0.564809; 0.753624;, - 0.582513; 0.778796;, - 0.521914; 0.788072;, - 0.521914; 0.788072;, - 0.582513; 0.778796;, - 0.564809; 0.753624;, - 0.500063; 0.734341;, - 0.564809; 0.753624;, - 0.491564; 0.750501;, - 0.491564; 0.750501;, - 0.564809; 0.753624;, - 0.500063; 0.734341;, - 0.594033; 0.858465;, - 0.549870; 0.849961;, - 0.563819; 0.808002;, - 0.563819; 0.808002;, - 0.549870; 0.849961;, - 0.594033; 0.858465;, - 0.564453; 0.900243;, - 0.594033; 0.858465;, - 0.605393; 0.909908;, - 0.605393; 0.909908;, - 0.594033; 0.858465;, - 0.564453; 0.900243;, - 0.549870; 0.849961;, - 0.594033; 0.858465;, - 0.564453; 0.900243;, - 0.564453; 0.900243;, - 0.594033; 0.858465;, - 0.549870; 0.849961;, - 0.549870; 0.849961;, - 0.564453; 0.900243;, - 0.529833; 0.886906;, - 0.529833; 0.886906;, - 0.564453; 0.900243;, - 0.549870; 0.849961;, - 0.549870; 0.849961;, - 0.529833; 0.886906;, - 0.496886; 0.871712;, - 0.496886; 0.871712;, - 0.529833; 0.886906;, - 0.549870; 0.849961;, - 0.549870; 0.849961;, - 0.496886; 0.871712;, - 0.512640; 0.831452;, - 0.512640; 0.831452;, - 0.496886; 0.871712;, - 0.549870; 0.849961;, - 0.496886; 0.871712;, - 0.463994; 0.847229;, - 0.512640; 0.831452;, - 0.512640; 0.831452;, - 0.463994; 0.847229;, - 0.496886; 0.871712;, - 0.605393; 0.909908;, - 0.645187; 0.913588;, - 0.628098; 0.963244;, - 0.628098; 0.963244;, - 0.645187; 0.913588;, - 0.605393; 0.909908;, - 0.605393; 0.909908;, - 0.628098; 0.963244;, - 0.579604; 0.950096;, - 0.579604; 0.950096;, - 0.628098; 0.963244;, - 0.605393; 0.909908;, - 0.564453; 0.900243;, - 0.605393; 0.909908;, - 0.579604; 0.950096;, - 0.579604; 0.950096;, - 0.605393; 0.909908;, - 0.564453; 0.900243;, - 0.564453; 0.900243;, - 0.579604; 0.950096;, - 0.516326; 0.926478;, - 0.516326; 0.926478;, - 0.579604; 0.950096;, - 0.564453; 0.900243;, - 0.529833; 0.886906;, - 0.564453; 0.900243;, - 0.516326; 0.926478;, - 0.516326; 0.926478;, - 0.564453; 0.900243;, - 0.529833; 0.886906;, - 0.496886; 0.871712;, - 0.529833; 0.886906;, - 0.516326; 0.926478;, - 0.516326; 0.926478;, - 0.529833; 0.886906;, - 0.496886; 0.871712;, - 0.496886; 0.871712;, - 0.516326; 0.926478;, - 0.445993; 0.883830;, - 0.445993; 0.883830;, - 0.516326; 0.926478;, - 0.496886; 0.871712;, - 0.496886; 0.871712;, - 0.445993; 0.883830;, - 0.463994; 0.847229;, - 0.463994; 0.847229;, - 0.445993; 0.883830;, - 0.496886; 0.871712;, - 0.696113; 0.777063;, - 0.703219; 0.749637;, - 0.755086; 0.766010;, - 0.755086; 0.766010;, - 0.703219; 0.749637;, - 0.696113; 0.777063;, - 0.751806; 0.778186;, - 0.696113; 0.777063;, - 0.755086; 0.766010;, - 0.755086; 0.766010;, - 0.696113; 0.777063;, - 0.751806; 0.778186;, - 0.696113; 0.777063;, - 0.632240; 0.767496;, - 0.703219; 0.749637;, - 0.703219; 0.749637;, - 0.632240; 0.767496;, - 0.696113; 0.777063;, - 0.632240; 0.767496;, - 0.644046; 0.731162;, - 0.703219; 0.749637;, - 0.703219; 0.749637;, - 0.644046; 0.731162;, - 0.632240; 0.767496;, - 0.644046; 0.731162;, - 0.632240; 0.767496;, - 0.564809; 0.753624;, - 0.564809; 0.753624;, - 0.632240; 0.767496;, - 0.644046; 0.731162;, - 0.644046; 0.731162;, - 0.564809; 0.753624;, - 0.580270; 0.712561;, - 0.580270; 0.712561;, - 0.564809; 0.753624;, - 0.644046; 0.731162;, - 0.564809; 0.753624;, - 0.500063; 0.734341;, - 0.580270; 0.712561;, - 0.580270; 0.712561;, - 0.500063; 0.734341;, - 0.564809; 0.753624;, - 0.580270; 0.712561;, - 0.500063; 0.734341;, - 0.522646; 0.693331;, - 0.522646; 0.693331;, - 0.500063; 0.734341;, - 0.580270; 0.712561;, - 0.522646; 0.693331;, - 0.500063; 0.734341;, - 0.476770; 0.714976;, - 0.476770; 0.714976;, - 0.500063; 0.734341;, - 0.522646; 0.693331;, - 0.522646; 0.693331;, - 0.476770; 0.714976;, - 0.502845; 0.683216;, - 0.502845; 0.683216;, - 0.476770; 0.714976;, - 0.522646; 0.693331;, - 0.500063; 0.734341;, - 0.491564; 0.750501;, - 0.476770; 0.714976;, - 0.476770; 0.714976;, - 0.491564; 0.750501;, - 0.500063; 0.734341;, - 0.406129; 0.758840;, - 0.476770; 0.714976;, - 0.491564; 0.750501;, - 0.491564; 0.750501;, - 0.476770; 0.714976;, - 0.406129; 0.758840;, - 0.444504; 0.772471;, - 0.406129; 0.758840;, - 0.491564; 0.750501;, - 0.491564; 0.750501;, - 0.406129; 0.758840;, - 0.444504; 0.772471;, - 0.444504; 0.772471;, - 0.436813; 0.811843;, - 0.406129; 0.758840;, - 0.406129; 0.758840;, - 0.436813; 0.811843;, - 0.444504; 0.772471;, - 0.445993; 0.883830;, - 0.402240; 0.837904;, - 0.463994; 0.847229;, - 0.463994; 0.847229;, - 0.402240; 0.837904;, - 0.445993; 0.883830;, - 0.463994; 0.847229;, - 0.402240; 0.837904;, - 0.436813; 0.811843;, - 0.436813; 0.811843;, - 0.402240; 0.837904;, - 0.463994; 0.847229;, - 0.436813; 0.811843;, - 0.402240; 0.837904;, - 0.370299; 0.783867;, - 0.370299; 0.783867;, - 0.402240; 0.837904;, - 0.436813; 0.811843;, - 0.406129; 0.758840;, - 0.436813; 0.811843;, - 0.370299; 0.783867;, - 0.370299; 0.783867;, - 0.436813; 0.811843;, - 0.406129; 0.758840;, - 0.628098; 0.963244;, - 0.669854; 0.982604;, - 0.625792; 0.991519;, - 0.625792; 0.991519;, - 0.669854; 0.982604;, - 0.628098; 0.963244;, - 0.628098; 0.963244;, - 0.625792; 0.991519;, - 0.571595; 0.990954;, - 0.571595; 0.990954;, - 0.625792; 0.991519;, - 0.628098; 0.963244;, - 0.579604; 0.950096;, - 0.628098; 0.963244;, - 0.571595; 0.990954;, - 0.571595; 0.990954;, - 0.628098; 0.963244;, - 0.579604; 0.950096;, - 0.579604; 0.950096;, - 0.571595; 0.990954;, - 0.498012; 0.969736;, - 0.498012; 0.969736;, - 0.571595; 0.990954;, - 0.579604; 0.950096;, - 0.516326; 0.926478;, - 0.579604; 0.950096;, - 0.498012; 0.969736;, - 0.498012; 0.969736;, - 0.579604; 0.950096;, - 0.516326; 0.926478;, - 0.516326; 0.926478;, - 0.498012; 0.969736;, - 0.416537; 0.915191;, - 0.416537; 0.915191;, - 0.498012; 0.969736;, - 0.516326; 0.926478;, - 0.445993; 0.883830;, - 0.516326; 0.926478;, - 0.416537; 0.915191;, - 0.416537; 0.915191;, - 0.516326; 0.926478;, - 0.445993; 0.883830;, - 0.445993; 0.883830;, - 0.416537; 0.915191;, - 0.370870; 0.861832;, - 0.370870; 0.861832;, - 0.416537; 0.915191;, - 0.445993; 0.883830;, - 0.402240; 0.837904;, - 0.445993; 0.883830;, - 0.370870; 0.861832;, - 0.370870; 0.861832;, - 0.445993; 0.883830;, - 0.402240; 0.837904;, - 0.402240; 0.837904;, - 0.370870; 0.861832;, - 0.343067; 0.809415;, - 0.343067; 0.809415;, - 0.370870; 0.861832;, - 0.402240; 0.837904;, - 0.370299; 0.783867;, - 0.402240; 0.837904;, - 0.343067; 0.809415;, - 0.343067; 0.809415;, - 0.402240; 0.837904;, - 0.370299; 0.783867;, - 0.370299; 0.783867;, - 0.343067; 0.809415;, - 0.309070; 0.717755;, - 0.309070; 0.717755;, - 0.343067; 0.809415;, - 0.370299; 0.783867;, - 0.336360; 0.705954;, - 0.370299; 0.783867;, - 0.309070; 0.717755;, - 0.309070; 0.717755;, - 0.370299; 0.783867;, - 0.336360; 0.705954;, - 0.336360; 0.705954;, - 0.309070; 0.717755;, - 0.281642; 0.633878;, - 0.281642; 0.633878;, - 0.309070; 0.717755;, - 0.336360; 0.705954;, - 0.305455; 0.624360;, - 0.336360; 0.705954;, - 0.281642; 0.633878;, - 0.281642; 0.633878;, - 0.336360; 0.705954;, - 0.305455; 0.624360;, - 0.305455; 0.624360;, - 0.281642; 0.633878;, - 0.253692; 0.586614;, - 0.253692; 0.586614;, - 0.281642; 0.633878;, - 0.305455; 0.624360;, - 0.269882; 0.570196;, - 0.305455; 0.624360;, - 0.253692; 0.586614;, - 0.253692; 0.586614;, - 0.305455; 0.624360;, - 0.269882; 0.570196;, - 0.269882; 0.570196;, - 0.253692; 0.586614;, - 0.239170; 0.572450;, - 0.239170; 0.572450;, - 0.253692; 0.586614;, - 0.269882; 0.570196;, - 0.254018; 0.559263;, - 0.269882; 0.570196;, - 0.239170; 0.572450;, - 0.239170; 0.572450;, - 0.269882; 0.570196;, - 0.254018; 0.559263;, - 0.406129; 0.758840;, - 0.370299; 0.783867;, - 0.336360; 0.705954;, - 0.336360; 0.705954;, - 0.370299; 0.783867;, - 0.406129; 0.758840;, - 0.373659; 0.685568;, - 0.406129; 0.758840;, - 0.336360; 0.705954;, - 0.336360; 0.705954;, - 0.406129; 0.758840;, - 0.373659; 0.685568;, - 0.373659; 0.685568;, - 0.336360; 0.705954;, - 0.305455; 0.624360;, - 0.305455; 0.624360;, - 0.336360; 0.705954;, - 0.373659; 0.685568;, - 0.340519; 0.598379;, - 0.373659; 0.685568;, - 0.305455; 0.624360;, - 0.305455; 0.624360;, - 0.373659; 0.685568;, - 0.340519; 0.598379;, - 0.340519; 0.598379;, - 0.305455; 0.624360;, - 0.269882; 0.570196;, - 0.269882; 0.570196;, - 0.305455; 0.624360;, - 0.340519; 0.598379;, - 0.303159; 0.530697;, - 0.340519; 0.598379;, - 0.269882; 0.570196;, - 0.269882; 0.570196;, - 0.340519; 0.598379;, - 0.303159; 0.530697;, - 0.303159; 0.530697;, - 0.269882; 0.570196;, - 0.284663; 0.538918;, - 0.284663; 0.538918;, - 0.269882; 0.570196;, - 0.303159; 0.530697;, - 0.269882; 0.570196;, - 0.254018; 0.559263;, - 0.284663; 0.538918;, - 0.284663; 0.538918;, - 0.254018; 0.559263;, - 0.269882; 0.570196;, - 0.290657; 0.512628;, - 0.303159; 0.530697;, - 0.284663; 0.538918;, - 0.284663; 0.538918;, - 0.303159; 0.530697;, - 0.290657; 0.512628;, - 0.406129; 0.758840;, - 0.373659; 0.685568;, - 0.476770; 0.714976;, - 0.476770; 0.714976;, - 0.373659; 0.685568;, - 0.406129; 0.758840;, - 0.476770; 0.714976;, - 0.373659; 0.685568;, - 0.425632; 0.650127;, - 0.425632; 0.650127;, - 0.373659; 0.685568;, - 0.476770; 0.714976;, - 0.373659; 0.685568;, - 0.340519; 0.598379;, - 0.425632; 0.650127;, - 0.425632; 0.650127;, - 0.340519; 0.598379;, - 0.373659; 0.685568;, - 0.425632; 0.650127;, - 0.340519; 0.598379;, - 0.371357; 0.559099;, - 0.371357; 0.559099;, - 0.340519; 0.598379;, - 0.425632; 0.650127;, - 0.340519; 0.598379;, - 0.303159; 0.530697;, - 0.371357; 0.559099;, - 0.371357; 0.559099;, - 0.303159; 0.530697;, - 0.340519; 0.598379;, - 0.371357; 0.559099;, - 0.303159; 0.530697;, - 0.332621; 0.491073;, - 0.332621; 0.491073;, - 0.303159; 0.530697;, - 0.371357; 0.559099;, - 0.303159; 0.530697;, - 0.290657; 0.512628;, - 0.332621; 0.491073;, - 0.332621; 0.491073;, - 0.290657; 0.512628;, - 0.303159; 0.530697;, - 0.290657; 0.512628;, - 0.284663; 0.538918;, - 0.277201; 0.487212;, - 0.277201; 0.487212;, - 0.284663; 0.538918;, - 0.290657; 0.512628;, - 0.332621; 0.491073;, - 0.290657; 0.512628;, - 0.277201; 0.487212;, - 0.277201; 0.487212;, - 0.290657; 0.512628;, - 0.332621; 0.491073;, - 0.283121; 0.444244;, - 0.332621; 0.491073;, - 0.277201; 0.487212;, - 0.277201; 0.487212;, - 0.332621; 0.491073;, - 0.283121; 0.444244;, - 0.283121; 0.444244;, - 0.277201; 0.487212;, - 0.261708; 0.430875;, - 0.261708; 0.430875;, - 0.277201; 0.487212;, - 0.283121; 0.444244;, - 0.476770; 0.714976;, - 0.425632; 0.650127;, - 0.502845; 0.683216;, - 0.502845; 0.683216;, - 0.425632; 0.650127;, - 0.476770; 0.714976;, - 0.502845; 0.683216;, - 0.425632; 0.650127;, - 0.447121; 0.631544;, - 0.447121; 0.631544;, - 0.425632; 0.650127;, - 0.502845; 0.683216;, - 0.425632; 0.650127;, - 0.371357; 0.559099;, - 0.447121; 0.631544;, - 0.447121; 0.631544;, - 0.371357; 0.559099;, - 0.425632; 0.650127;, - 0.447121; 0.631544;, - 0.371357; 0.559099;, - 0.389921; 0.548305;, - 0.389921; 0.548305;, - 0.371357; 0.559099;, - 0.447121; 0.631544;, - 0.371357; 0.559099;, - 0.332621; 0.491073;, - 0.389921; 0.548305;, - 0.389921; 0.548305;, - 0.332621; 0.491073;, - 0.371357; 0.559099;, - 0.389921; 0.548305;, - 0.332621; 0.491073;, - 0.345380; 0.481456;, - 0.345380; 0.481456;, - 0.332621; 0.491073;, - 0.389921; 0.548305;, - 0.332621; 0.491073;, - 0.283121; 0.444244;, - 0.345380; 0.481456;, - 0.345380; 0.481456;, - 0.283121; 0.444244;, - 0.332621; 0.491073;, - 0.345380; 0.481456;, - 0.283121; 0.444244;, - 0.287686; 0.435908;, - 0.287686; 0.435908;, - 0.283121; 0.444244;, - 0.345380; 0.481456;, - 0.287686; 0.435908;, - 0.283121; 0.444244;, - 0.261708; 0.430875;, - 0.261708; 0.430875;, - 0.283121; 0.444244;, - 0.287686; 0.435908;, - 0.261708; 0.430875;, - 0.265351; 0.422836;, - 0.287686; 0.435908;, - 0.287686; 0.435908;, - 0.265351; 0.422836;, - 0.261708; 0.430875;, - 0.614763; 0.138994;, - 0.639371; 0.114997;, - 0.621867; 0.142840;, - 0.621867; 0.142840;, - 0.639371; 0.114997;, - 0.614763; 0.138994;, - 0.594720; 0.170074;, - 0.614763; 0.138994;, - 0.621867; 0.142840;, - 0.621867; 0.142840;, - 0.614763; 0.138994;, - 0.594720; 0.170074;, - 0.602289; 0.179946;, - 0.594720; 0.170074;, - 0.621867; 0.142840;, - 0.621867; 0.142840;, - 0.594720; 0.170074;, - 0.602289; 0.179946;, - 0.871563; 0.245425;, - 0.867078; 0.257919;, - 0.848440; 0.234282;, - 0.848440; 0.234282;, - 0.867078; 0.257919;, - 0.871563; 0.245425;, - 0.835218; 0.188590;, - 0.848440; 0.234282;, - 0.831980; 0.235024;, - 0.831980; 0.235024;, - 0.848440; 0.234282;, - 0.835218; 0.188590;, - 0.683717; 0.155295;, - 0.638831; 0.152251;, - 0.639371; 0.114997;, - 0.639371; 0.114997;, - 0.638831; 0.152251;, - 0.683717; 0.155295;, - 0.688038; 0.106794;, - 0.683717; 0.155295;, - 0.639371; 0.114997;, - 0.639371; 0.114997;, - 0.683717; 0.155295;, - 0.688038; 0.106794;, - 0.638831; 0.152251;, - 0.621867; 0.142840;, - 0.639371; 0.114997;, - 0.639371; 0.114997;, - 0.621867; 0.142840;, - 0.638831; 0.152251;, - 0.867078; 0.257919;, - 0.831980; 0.235024;, - 0.848440; 0.234282;, - 0.848440; 0.234282;, - 0.831980; 0.235024;, - 0.867078; 0.257919;, - 0.763625; 0.075223;, - 0.737796; 0.088032;, - 0.733723; 0.065587;, - 0.733723; 0.065587;, - 0.737796; 0.088032;, - 0.763625; 0.075223;, - 0.722119; 0.100416;, - 0.688038; 0.106794;, - 0.700486; 0.064648;, - 0.700486; 0.064648;, - 0.688038; 0.106794;, - 0.722119; 0.100416;, - 0.700486; 0.064648;, - 0.688038; 0.106794;, - 0.655158; 0.075084;, - 0.655158; 0.075084;, - 0.688038; 0.106794;, - 0.700486; 0.064648;, - 0.639371; 0.114997;, - 0.655158; 0.075084;, - 0.688038; 0.106794;, - 0.688038; 0.106794;, - 0.655158; 0.075084;, - 0.639371; 0.114997;, - 0.871563; 0.245425;, - 0.930465; 0.264571;, - 0.867078; 0.257919;, - 0.867078; 0.257919;, - 0.930465; 0.264571;, - 0.871563; 0.245425;, - 0.930465; 0.264571;, - 0.926747; 0.276292;, - 0.867078; 0.257919;, - 0.867078; 0.257919;, - 0.926747; 0.276292;, - 0.930465; 0.264571;, - 0.700486; 0.064648;, - 0.733723; 0.065587;, - 0.737796; 0.088032;, - 0.737796; 0.088032;, - 0.733723; 0.065587;, - 0.700486; 0.064648;, - 0.722119; 0.100416;, - 0.700486; 0.064648;, - 0.737796; 0.088032;, - 0.737796; 0.088032;, - 0.700486; 0.064648;, - 0.722119; 0.100416;, - 0.168603; 0.676030;, - 0.169187; 0.642069;, - 0.179820; 0.665182;, - 0.179820; 0.665182;, - 0.169187; 0.642069;, - 0.168603; 0.676030;, - 0.179820; 0.665182;, - 0.169187; 0.642069;, - 0.190245; 0.648641;, - 0.190245; 0.648641;, - 0.169187; 0.642069;, - 0.179820; 0.665182;, - 0.196139; 0.630605;, - 0.190245; 0.648641;, - 0.169187; 0.642069;, - 0.169187; 0.642069;, - 0.190245; 0.648641;, - 0.196139; 0.630605;, - 0.196139; 0.630605;, - 0.169187; 0.642069;, - 0.197735; 0.615897;, - 0.197735; 0.615897;, - 0.169187; 0.642069;, - 0.196139; 0.630605;, - 0.197735; 0.615897;, - 0.169187; 0.642069;, - 0.169705; 0.612146;, - 0.169705; 0.612146;, - 0.169187; 0.642069;, - 0.197735; 0.615897;, - 0.169705; 0.612146;, - 0.169187; 0.642069;, - 0.141562; 0.614924;, - 0.141562; 0.614924;, - 0.169187; 0.642069;, - 0.169705; 0.612146;, - 0.141562; 0.614924;, - 0.169187; 0.642069;, - 0.142648; 0.629678;, - 0.142648; 0.629678;, - 0.169187; 0.642069;, - 0.141562; 0.614924;, - 0.142648; 0.629678;, - 0.169187; 0.642069;, - 0.147914; 0.647907;, - 0.147914; 0.647907;, - 0.169187; 0.642069;, - 0.142648; 0.629678;, - 0.147914; 0.647907;, - 0.169187; 0.642069;, - 0.157759; 0.664800;, - 0.157759; 0.664800;, - 0.169187; 0.642069;, - 0.147914; 0.647907;, - 0.157759; 0.664800;, - 0.169187; 0.642069;, - 0.168603; 0.676030;, - 0.168603; 0.676030;, - 0.169187; 0.642069;, - 0.157759; 0.664800;, - 0.087719; 0.694645;, - 0.105407; 0.709553;, - 0.077296; 0.713430;, - 0.077296; 0.713430;, - 0.105407; 0.709553;, - 0.087719; 0.694645;, - 0.077296; 0.713430;, - 0.105407; 0.709553;, - 0.078321; 0.722837;, - 0.078321; 0.722837;, - 0.105407; 0.709553;, - 0.077296; 0.713430;, - 0.130053; 0.723485;, - 0.078202; 0.734868;, - 0.115902; 0.716437;, - 0.115902; 0.716437;, - 0.078202; 0.734868;, - 0.130053; 0.723485;, - 0.078202; 0.734868;, - 0.078321; 0.722837;, - 0.115902; 0.716437;, - 0.115902; 0.716437;, - 0.078321; 0.722837;, - 0.078202; 0.734868;, - 0.078321; 0.722837;, - 0.105407; 0.709553;, - 0.115902; 0.716437;, - 0.115902; 0.716437;, - 0.105407; 0.709553;, - 0.078321; 0.722837;, - 0.115902; 0.716437;, - 0.105407; 0.709553;, - 0.109530; 0.706634;, - 0.109530; 0.706634;, - 0.105407; 0.709553;, - 0.115902; 0.716437;, - 0.109530; 0.706634;, - 0.105407; 0.709553;, - 0.095126; 0.693909;, - 0.095126; 0.693909;, - 0.105407; 0.709553;, - 0.109530; 0.706634;, - 0.095126; 0.693909;, - 0.105407; 0.709553;, - 0.087719; 0.694645;, - 0.087719; 0.694645;, - 0.105407; 0.709553;, - 0.095126; 0.693909;, - 0.095126; 0.693909;, - 0.087719; 0.694645;, - 0.078900; 0.687969;, - 0.078900; 0.687969;, - 0.087719; 0.694645;, - 0.095126; 0.693909;, - 0.078825; 0.684634;, - 0.095126; 0.693909;, - 0.078900; 0.687969;, - 0.078900; 0.687969;, - 0.095126; 0.693909;, - 0.078825; 0.684634;, - 0.078900; 0.687969;, - 0.069446; 0.694529;, - 0.078825; 0.684634;, - 0.078825; 0.684634;, - 0.069446; 0.694529;, - 0.078900; 0.687969;, - 0.062171; 0.693580;, - 0.078825; 0.684634;, - 0.069446; 0.694529;, - 0.069446; 0.694529;, - 0.078825; 0.684634;, - 0.062171; 0.693580;, - 0.051000; 0.708949;, - 0.062171; 0.693580;, - 0.069446; 0.694529;, - 0.069446; 0.694529;, - 0.062171; 0.693580;, - 0.051000; 0.708949;, - 0.051000; 0.708949;, - 0.047468; 0.706026;, - 0.062171; 0.693580;, - 0.062171; 0.693580;, - 0.047468; 0.706026;, - 0.051000; 0.708949;, - 0.047468; 0.706026;, - 0.051000; 0.708949;, - 0.040892; 0.715683;, - 0.040892; 0.715683;, - 0.051000; 0.708949;, - 0.047468; 0.706026;, - 0.051000; 0.708949;, - 0.078321; 0.722837;, - 0.040892; 0.715683;, - 0.040892; 0.715683;, - 0.078321; 0.722837;, - 0.051000; 0.708949;, - 0.078202; 0.734868;, - 0.026576; 0.722442;, - 0.040892; 0.715683;, - 0.040892; 0.715683;, - 0.026576; 0.722442;, - 0.078202; 0.734868;, - 0.078321; 0.722837;, - 0.078202; 0.734868;, - 0.040892; 0.715683;, - 0.040892; 0.715683;, - 0.078202; 0.734868;, - 0.078321; 0.722837;, - 0.051000; 0.708949;, - 0.077296; 0.713430;, - 0.078321; 0.722837;, - 0.078321; 0.722837;, - 0.077296; 0.713430;, - 0.051000; 0.708949;, - 0.051000; 0.708949;, - 0.069446; 0.694529;, - 0.077296; 0.713430;, - 0.077296; 0.713430;, - 0.069446; 0.694529;, - 0.051000; 0.708949;, - 0.053423; 0.621239;, - 0.079765; 0.600567;, - 0.049271; 0.653552;, - 0.049271; 0.653552;, - 0.079765; 0.600567;, - 0.053423; 0.621239;, - 0.079765; 0.600567;, - 0.079197; 0.648950;, - 0.049271; 0.653552;, - 0.049271; 0.653552;, - 0.079197; 0.648950;, - 0.079765; 0.600567;, - 0.049271; 0.653552;, - 0.026505; 0.653135;, - 0.053423; 0.621239;, - 0.053423; 0.621239;, - 0.026505; 0.653135;, - 0.049271; 0.653552;, - 0.049271; 0.653552;, - 0.036643; 0.689465;, - 0.026505; 0.653135;, - 0.026505; 0.653135;, - 0.036643; 0.689465;, - 0.049271; 0.653552;, - 0.026505; 0.653135;, - 0.036643; 0.689465;, - 0.018469; 0.692624;, - 0.018469; 0.692624;, - 0.036643; 0.689465;, - 0.026505; 0.653135;, - 0.018469; 0.692624;, - 0.036643; 0.689465;, - 0.026576; 0.722442;, - 0.026576; 0.722442;, - 0.036643; 0.689465;, - 0.018469; 0.692624;, - 0.036643; 0.689465;, - 0.040892; 0.715683;, - 0.026576; 0.722442;, - 0.026576; 0.722442;, - 0.040892; 0.715683;, - 0.036643; 0.689465;, - 0.047468; 0.706026;, - 0.040892; 0.715683;, - 0.036643; 0.689465;, - 0.036643; 0.689465;, - 0.040892; 0.715683;, - 0.047468; 0.706026;, - 0.047468; 0.706026;, - 0.036643; 0.689465;, - 0.062171; 0.693580;, - 0.062171; 0.693580;, - 0.036643; 0.689465;, - 0.047468; 0.706026;, - 0.036643; 0.689465;, - 0.049271; 0.653552;, - 0.062171; 0.693580;, - 0.062171; 0.693580;, - 0.049271; 0.653552;, - 0.036643; 0.689465;, - 0.049271; 0.653552;, - 0.078825; 0.684634;, - 0.062171; 0.693580;, - 0.062171; 0.693580;, - 0.078825; 0.684634;, - 0.049271; 0.653552;, - 0.049271; 0.653552;, - 0.079197; 0.648950;, - 0.078825; 0.684634;, - 0.078825; 0.684634;, - 0.079197; 0.648950;, - 0.049271; 0.653552;, - 0.079197; 0.648950;, - 0.108946; 0.654242;, - 0.078825; 0.684634;, - 0.078825; 0.684634;, - 0.108946; 0.654242;, - 0.079197; 0.648950;, - 0.079765; 0.600567;, - 0.108946; 0.654242;, - 0.079197; 0.648950;, - 0.079197; 0.648950;, - 0.108946; 0.654242;, - 0.079765; 0.600567;, - 0.105576; 0.621863;, - 0.108946; 0.654242;, - 0.079765; 0.600567;, - 0.079765; 0.600567;, - 0.108946; 0.654242;, - 0.105576; 0.621863;, - 0.131663; 0.654358;, - 0.108946; 0.654242;, - 0.105576; 0.621863;, - 0.105576; 0.621863;, - 0.108946; 0.654242;, - 0.131663; 0.654358;, - 0.078825; 0.684634;, - 0.108946; 0.654242;, - 0.095126; 0.693909;, - 0.095126; 0.693909;, - 0.108946; 0.654242;, - 0.078825; 0.684634;, - 0.108946; 0.654242;, - 0.120703; 0.690351;, - 0.095126; 0.693909;, - 0.095126; 0.693909;, - 0.120703; 0.690351;, - 0.108946; 0.654242;, - 0.095126; 0.693909;, - 0.120703; 0.690351;, - 0.109530; 0.706634;, - 0.109530; 0.706634;, - 0.120703; 0.690351;, - 0.095126; 0.693909;, - 0.120703; 0.690351;, - 0.115902; 0.716437;, - 0.109530; 0.706634;, - 0.109530; 0.706634;, - 0.115902; 0.716437;, - 0.120703; 0.690351;, - 0.120703; 0.690351;, - 0.130053; 0.723485;, - 0.115902; 0.716437;, - 0.115902; 0.716437;, - 0.130053; 0.723485;, - 0.120703; 0.690351;, - 0.120703; 0.690351;, - 0.138769; 0.693906;, - 0.130053; 0.723485;, - 0.130053; 0.723485;, - 0.138769; 0.693906;, - 0.120703; 0.690351;, - 0.120703; 0.690351;, - 0.131663; 0.654358;, - 0.138769; 0.693906;, - 0.138769; 0.693906;, - 0.131663; 0.654358;, - 0.120703; 0.690351;, - 0.120703; 0.690351;, - 0.108946; 0.654242;, - 0.131663; 0.654358;, - 0.131663; 0.654358;, - 0.108946; 0.654242;, - 0.120703; 0.690351;, - 0.529248; 0.085090;, - 0.546418; 0.119797;, - 0.522031; 0.106157;, - 0.522031; 0.106157;, - 0.546418; 0.119797;, - 0.529248; 0.085090;, - 0.546418; 0.119797;, - 0.529248; 0.085090;, - 0.544294; 0.067887;, - 0.544294; 0.067887;, - 0.529248; 0.085090;, - 0.546418; 0.119797;, - 0.553002; 0.075892;, - 0.546418; 0.119797;, - 0.544294; 0.067887;, - 0.544294; 0.067887;, - 0.546418; 0.119797;, - 0.553002; 0.075892;, - 0.553002; 0.075892;, - 0.563079; 0.093159;, - 0.546418; 0.119797;, - 0.546418; 0.119797;, - 0.563079; 0.093159;, - 0.553002; 0.075892;, - 0.546418; 0.119797;, - 0.563079; 0.093159;, - 0.565004; 0.111097;, - 0.565004; 0.111097;, - 0.563079; 0.093159;, - 0.546418; 0.119797;, - 0.565004; 0.111097;, - 0.560473; 0.130357;, - 0.546418; 0.119797;, - 0.546418; 0.119797;, - 0.560473; 0.130357;, - 0.565004; 0.111097;, - 0.546418; 0.119797;, - 0.560473; 0.130357;, - 0.544414; 0.168478;, - 0.544414; 0.168478;, - 0.560473; 0.130357;, - 0.546418; 0.119797;, - 0.522031; 0.106157;, - 0.546418; 0.119797;, - 0.522031; 0.122028;, - 0.522031; 0.122028;, - 0.546418; 0.119797;, - 0.522031; 0.106157;, - 0.546418; 0.119797;, - 0.544414; 0.168478;, - 0.522031; 0.122028;, - 0.522031; 0.122028;, - 0.544414; 0.168478;, - 0.546418; 0.119797;, - 0.472082; 0.137531;, - 0.490873; 0.179823;, - 0.480276; 0.180094;, - 0.480276; 0.180094;, - 0.490873; 0.179823;, - 0.472082; 0.137531;, - 0.487012; 0.125037;, - 0.490873; 0.179823;, - 0.472082; 0.137531;, - 0.472082; 0.137531;, - 0.490873; 0.179823;, - 0.487012; 0.125037;, - 0.513393; 0.122434;, - 0.511192; 0.176149;, - 0.503851; 0.177432;, - 0.503851; 0.177432;, - 0.511192; 0.176149;, - 0.513393; 0.122434;, - 0.503851; 0.177432;, - 0.490873; 0.179823;, - 0.487012; 0.125037;, - 0.487012; 0.125037;, - 0.490873; 0.179823;, - 0.503851; 0.177432;, - 0.487012; 0.125037;, - 0.513393; 0.122434;, - 0.503851; 0.177432;, - 0.503851; 0.177432;, - 0.513393; 0.122434;, - 0.487012; 0.125037;, - 0.487012; 0.125037;, - 0.499555; 0.086135;, - 0.510466; 0.106322;, - 0.510466; 0.106322;, - 0.499555; 0.086135;, - 0.487012; 0.125037;, - 0.499555; 0.086135;, - 0.487012; 0.125037;, - 0.481634; 0.071050;, - 0.481634; 0.071050;, - 0.487012; 0.125037;, - 0.499555; 0.086135;, - 0.487012; 0.125037;, - 0.473838; 0.080307;, - 0.481634; 0.071050;, - 0.481634; 0.071050;, - 0.473838; 0.080307;, - 0.487012; 0.125037;, - 0.465646; 0.099178;, - 0.473838; 0.080307;, - 0.487012; 0.125037;, - 0.487012; 0.125037;, - 0.473838; 0.080307;, - 0.465646; 0.099178;, - 0.465646; 0.117883;, - 0.465646; 0.099178;, - 0.487012; 0.125037;, - 0.487012; 0.125037;, - 0.465646; 0.099178;, - 0.465646; 0.117883;, - 0.487012; 0.125037;, - 0.472082; 0.137531;, - 0.465646; 0.117883;, - 0.465646; 0.117883;, - 0.472082; 0.137531;, - 0.487012; 0.125037;, - 0.487012; 0.125037;, - 0.510466; 0.106322;, - 0.513393; 0.122434;, - 0.513393; 0.122434;, - 0.510466; 0.106322;, - 0.487012; 0.125037;, - 0.241463; 0.305151;, - 0.236368; 0.317723;, - 0.208443; 0.304125;, - 0.199206; 0.336935;, - 0.173765; 0.323155;, - 0.213446; 0.323438;, - 0.213446; 0.323438;, - 0.173765; 0.323155;, - 0.199206; 0.336935;, - 0.202956; 0.316184;, - 0.213446; 0.323438;, - 0.173765; 0.323155;, - 0.173765; 0.323155;, - 0.213446; 0.323438;, - 0.202956; 0.316184;, - 0.226834; 0.332213;, - 0.213446; 0.323438;, - 0.236591; 0.324109;, - 0.236591; 0.324109;, - 0.213446; 0.323438;, - 0.226834; 0.332213;, - 0.199206; 0.336935;, - 0.213446; 0.323438;, - 0.226834; 0.332213;, - 0.226834; 0.332213;, - 0.213446; 0.323438;, - 0.199206; 0.336935;, - 0.208443; 0.304125;, - 0.236368; 0.317723;, - 0.202956; 0.316184;, - 0.202956; 0.316184;, - 0.236368; 0.317723;, - 0.208443; 0.304125;, - 0.202956; 0.316184;, - 0.173765; 0.323155;, - 0.208443; 0.304125;, - 0.208443; 0.304125;, - 0.173765; 0.323155;, - 0.202956; 0.316184;, - 0.208443; 0.304125;, - 0.173765; 0.323155;, - 0.149077; 0.303591;, - 0.149077; 0.303591;, - 0.173765; 0.323155;, - 0.208443; 0.304125;, - 0.218876; 0.405629;, - 0.199206; 0.336935;, - 0.226834; 0.332213;, - 0.226834; 0.332213;, - 0.199206; 0.336935;, - 0.218876; 0.405629;, - 0.103634; 0.394744;, - 0.081990; 0.444641;, - 0.049829; 0.412318;, - 0.049829; 0.412318;, - 0.081990; 0.444641;, - 0.103634; 0.394744;, - 0.103634; 0.394744;, - 0.132898; 0.348788;, - 0.146521; 0.407218;, - 0.146521; 0.407218;, - 0.132898; 0.348788;, - 0.103634; 0.394744;, - 0.132898; 0.348788;, - 0.146056; 0.323401;, - 0.169378; 0.336762;, - 0.169378; 0.336762;, - 0.146056; 0.323401;, - 0.132898; 0.348788;, - 0.081990; 0.444641;, - 0.103634; 0.394744;, - 0.146521; 0.407218;, - 0.146521; 0.407218;, - 0.103634; 0.394744;, - 0.081990; 0.444641;, - 0.006435; 0.419596;, - 0.049829; 0.412318;, - 0.044122; 0.426527;, - 0.044122; 0.426527;, - 0.049829; 0.412318;, - 0.006435; 0.419596;, - 0.049829; 0.412318;, - 0.081990; 0.444641;, - 0.044122; 0.426527;, - 0.044122; 0.426527;, - 0.081990; 0.444641;, - 0.049829; 0.412318;, - 0.132898; 0.348788;, - 0.160756; 0.365835;, - 0.146521; 0.407218;, - 0.146521; 0.407218;, - 0.160756; 0.365835;, - 0.132898; 0.348788;, - 0.132898; 0.348788;, - 0.169378; 0.336762;, - 0.160756; 0.365835;, - 0.160756; 0.365835;, - 0.169378; 0.336762;, - 0.132898; 0.348788;, - 0.081990; 0.444641;, - 0.129715; 0.444885;, - 0.113432; 0.472386;, - 0.113432; 0.472386;, - 0.129715; 0.444885;, - 0.081990; 0.444641;, - 0.081990; 0.444641;, - 0.146521; 0.407218;, - 0.129715; 0.444885;, - 0.129715; 0.444885;, - 0.146521; 0.407218;, - 0.081990; 0.444641;, - 0.096186; 0.499413;, - 0.061238; 0.516152;, - 0.091685; 0.489830;, - 0.091685; 0.489830;, - 0.061238; 0.516152;, - 0.096186; 0.499413;, - 0.131488; 0.493687;, - 0.096186; 0.499413;, - 0.091685; 0.489830;, - 0.091685; 0.489830;, - 0.096186; 0.499413;, - 0.131488; 0.493687;, - 0.113432; 0.472386;, - 0.131488; 0.493687;, - 0.091685; 0.489830;, - 0.091685; 0.489830;, - 0.131488; 0.493687;, - 0.113432; 0.472386;, - 0.161444; 0.475749;, - 0.131488; 0.493687;, - 0.113432; 0.472386;, - 0.113432; 0.472386;, - 0.131488; 0.493687;, - 0.161444; 0.475749;, - 0.129715; 0.444885;, - 0.161444; 0.475749;, - 0.113432; 0.472386;, - 0.113432; 0.472386;, - 0.161444; 0.475749;, - 0.129715; 0.444885;, - 0.192474; 0.409074;, - 0.161444; 0.475749;, - 0.129715; 0.444885;, - 0.129715; 0.444885;, - 0.161444; 0.475749;, - 0.192474; 0.409074;, - 0.192474; 0.409074;, - 0.129715; 0.444885;, - 0.146521; 0.407218;, - 0.146521; 0.407218;, - 0.129715; 0.444885;, - 0.192474; 0.409074;, - 0.160756; 0.365835;, - 0.192474; 0.409074;, - 0.146521; 0.407218;, - 0.146521; 0.407218;, - 0.192474; 0.409074;, - 0.160756; 0.365835;, - 0.199206; 0.336935;, - 0.192474; 0.409074;, - 0.160756; 0.365835;, - 0.160756; 0.365835;, - 0.192474; 0.409074;, - 0.199206; 0.336935;, - 0.199206; 0.336935;, - 0.160756; 0.365835;, - 0.169378; 0.336762;, - 0.169378; 0.336762;, - 0.160756; 0.365835;, - 0.199206; 0.336935;, - 0.096186; 0.499413;, - 0.110962; 0.514572;, - 0.061238; 0.516152;, - 0.061238; 0.516152;, - 0.110962; 0.514572;, - 0.096186; 0.499413;, - 0.110962; 0.514572;, - 0.096186; 0.499413;, - 0.131488; 0.493687;, - 0.131488; 0.493687;, - 0.096186; 0.499413;, - 0.110962; 0.514572;, - 0.063846; 0.538959;, - 0.061238; 0.516152;, - 0.110962; 0.514572;, - 0.110962; 0.514572;, - 0.061238; 0.516152;, - 0.063846; 0.538959;, - 0.110962; 0.514572;, - 0.151076; 0.541731;, - 0.063846; 0.538959;, - 0.063846; 0.538959;, - 0.151076; 0.541731;, - 0.110962; 0.514572;, - 0.110962; 0.514572;, - 0.131488; 0.493687;, - 0.151076; 0.541731;, - 0.151076; 0.541731;, - 0.131488; 0.493687;, - 0.110962; 0.514572;, - 0.151076; 0.541731;, - 0.131488; 0.493687;, - 0.182765; 0.532350;, - 0.182765; 0.532350;, - 0.131488; 0.493687;, - 0.151076; 0.541731;, - 0.161444; 0.475749;, - 0.192474; 0.409074;, - 0.196841; 0.465083;, - 0.196841; 0.465083;, - 0.192474; 0.409074;, - 0.161444; 0.475749;, - 0.196841; 0.465083;, - 0.192474; 0.409074;, - 0.218876; 0.405629;, - 0.218876; 0.405629;, - 0.192474; 0.409074;, - 0.196841; 0.465083;, - 0.192474; 0.409074;, - 0.199206; 0.336935;, - 0.218876; 0.405629;, - 0.218876; 0.405629;, - 0.199206; 0.336935;, - 0.192474; 0.409074;, - 0.161444; 0.475749;, - 0.156413; 0.492602;, - 0.131488; 0.493687;, - 0.131488; 0.493687;, - 0.156413; 0.492602;, - 0.161444; 0.475749;, - 0.182765; 0.532350;, - 0.156413; 0.492602;, - 0.182416; 0.506627;, - 0.182416; 0.506627;, - 0.156413; 0.492602;, - 0.182765; 0.532350;, - 0.182765; 0.532350;, - 0.131488; 0.493687;, - 0.156413; 0.492602;, - 0.156413; 0.492602;, - 0.131488; 0.493687;, - 0.182765; 0.532350;, - 0.156413; 0.492602;, - 0.161444; 0.475749;, - 0.196841; 0.465083;, - 0.196841; 0.465083;, - 0.161444; 0.475749;, - 0.156413; 0.492602;, - 0.182416; 0.506627;, - 0.156413; 0.492602;, - 0.196841; 0.465083;, - 0.196841; 0.465083;, - 0.156413; 0.492602;, - 0.182416; 0.506627;, - 0.149077; 0.303591;, - 0.173765; 0.323155;, - 0.146056; 0.323401;, - 0.146056; 0.323401;, - 0.173765; 0.323155;, - 0.149077; 0.303591;, - 0.146056; 0.323401;, - 0.173765; 0.323155;, - 0.169378; 0.336762;, - 0.169378; 0.336762;, - 0.173765; 0.323155;, - 0.146056; 0.323401;, - 0.169378; 0.336762;, - 0.173765; 0.323155;, - 0.199206; 0.336935;, - 0.199206; 0.336935;, - 0.173765; 0.323155;, - 0.169378; 0.336762;, - 0.081990; 0.444641;, - 0.061518; 0.449659;, - 0.044122; 0.426527;, - 0.044122; 0.426527;, - 0.061518; 0.449659;, - 0.081990; 0.444641;, - 0.081990; 0.444641;, - 0.113432; 0.472386;, - 0.061518; 0.449659;, - 0.061518; 0.449659;, - 0.113432; 0.472386;, - 0.081990; 0.444641;, - 0.113432; 0.472386;, - 0.091685; 0.489830;, - 0.061518; 0.449659;, - 0.061518; 0.449659;, - 0.091685; 0.489830;, - 0.113432; 0.472386;, - 0.061518; 0.449659;, - 0.091685; 0.489830;, - 0.058357; 0.495365;, - 0.058357; 0.495365;, - 0.091685; 0.489830;, - 0.061518; 0.449659;, - 0.091685; 0.489830;, - 0.061238; 0.516152;, - 0.058357; 0.495365;, - 0.058357; 0.495365;, - 0.061238; 0.516152;, - 0.091685; 0.489830;, - 0.124036; 0.034878;, - 0.124790; 0.067239;, - 0.117837; 0.037900;, - 0.117837; 0.037900;, - 0.124790; 0.067239;, - 0.124036; 0.034878;, - 0.124036; 0.034878;, - 0.117837; 0.037900;, - 0.098539; 0.005332;, - 0.098539; 0.005332;, - 0.117837; 0.037900;, - 0.124036; 0.034878;, - 0.083211; 0.019261;, - 0.098539; 0.005332;, - 0.089817; 0.017841;, - 0.089817; 0.017841;, - 0.098539; 0.005332;, - 0.083211; 0.019261;, - 0.100562; 0.079885;, - 0.129356; 0.070777;, - 0.084319; 0.110635;, - 0.084319; 0.110635;, - 0.129356; 0.070777;, - 0.100562; 0.079885;, - 0.084873; 0.057222;, - 0.100562; 0.079885;, - 0.084319; 0.110635;, - 0.084319; 0.110635;, - 0.100562; 0.079885;, - 0.084873; 0.057222;, - 0.076103; 0.062552;, - 0.084873; 0.057222;, - 0.084319; 0.110635;, - 0.084319; 0.110635;, - 0.084873; 0.057222;, - 0.076103; 0.062552;, - 0.089817; 0.017841;, - 0.084873; 0.057222;, - 0.076103; 0.062552;, - 0.076103; 0.062552;, - 0.084873; 0.057222;, - 0.089817; 0.017841;, - 0.083211; 0.019261;, - 0.089817; 0.017841;, - 0.076103; 0.062552;, - 0.076103; 0.062552;, - 0.089817; 0.017841;, - 0.083211; 0.019261;, - 0.089817; 0.017841;, - 0.099381; 0.057367;, - 0.084873; 0.057222;, - 0.084873; 0.057222;, - 0.099381; 0.057367;, - 0.089817; 0.017841;, - 0.099381; 0.057367;, - 0.100562; 0.079885;, - 0.084873; 0.057222;, - 0.084873; 0.057222;, - 0.100562; 0.079885;, - 0.099381; 0.057367;, - 0.129356; 0.070777;, - 0.124790; 0.067239;, - 0.124036; 0.034878;, - 0.124036; 0.034878;, - 0.124790; 0.067239;, - 0.129356; 0.070777;, - 0.124790; 0.067239;, - 0.113056; 0.060884;, - 0.113352; 0.058222;, - 0.113352; 0.058222;, - 0.113056; 0.060884;, - 0.124790; 0.067239;, - 0.100562; 0.079885;, - 0.124790; 0.067239;, - 0.129356; 0.070777;, - 0.129356; 0.070777;, - 0.124790; 0.067239;, - 0.100562; 0.079885;, - 0.099381; 0.057367;, - 0.102356; 0.059494;, - 0.100562; 0.079885;, - 0.100562; 0.079885;, - 0.102356; 0.059494;, - 0.099381; 0.057367;, - 0.113056; 0.060884;, - 0.102356; 0.059494;, - 0.113352; 0.058222;, - 0.113352; 0.058222;, - 0.102356; 0.059494;, - 0.113056; 0.060884;, - 0.113352; 0.058222;, - 0.102356; 0.059494;, - 0.099381; 0.057367;, - 0.099381; 0.057367;, - 0.102356; 0.059494;, - 0.113352; 0.058222;, - 0.102356; 0.059494;, - 0.113056; 0.060884;, - 0.100562; 0.079885;, - 0.100562; 0.079885;, - 0.113056; 0.060884;, - 0.102356; 0.059494;, - 0.113056; 0.060884;, - 0.124790; 0.067239;, - 0.100562; 0.079885;, - 0.100562; 0.079885;, - 0.124790; 0.067239;, - 0.113056; 0.060884;, - 0.124790; 0.067239;, - 0.113352; 0.058222;, - 0.117837; 0.037900;, - 0.117837; 0.037900;, - 0.113352; 0.058222;, - 0.124790; 0.067239;, - 0.113352; 0.058222;, - 0.099381; 0.057367;, - 0.117837; 0.037900;, - 0.117837; 0.037900;, - 0.099381; 0.057367;, - 0.113352; 0.058222;, - 0.117837; 0.037900;, - 0.099381; 0.057367;, - 0.089817; 0.017841;, - 0.089817; 0.017841;, - 0.099381; 0.057367;, - 0.117837; 0.037900;, - 0.117837; 0.037900;, - 0.089817; 0.017841;, - 0.098539; 0.005332;, - 0.098539; 0.005332;, - 0.089817; 0.017841;, - 0.117837; 0.037900;, - 0.225903; 0.151593;, - 0.249676; 0.135387;, - 0.237278; 0.163429;, - 0.237278; 0.163429;, - 0.249676; 0.135387;, - 0.225903; 0.151593;, - 0.192857; 0.185070;, - 0.225903; 0.151593;, - 0.237278; 0.163429;, - 0.237278; 0.163429;, - 0.225903; 0.151593;, - 0.192857; 0.185070;, - 0.197862; 0.193633;, - 0.192857; 0.185070;, - 0.237278; 0.163429;, - 0.237278; 0.163429;, - 0.192857; 0.185070;, - 0.197862; 0.193633;, - 0.170002; 0.205773;, - 0.192857; 0.185070;, - 0.197862; 0.193633;, - 0.197862; 0.193633;, - 0.192857; 0.185070;, - 0.170002; 0.205773;, - 0.175892; 0.211536;, - 0.170002; 0.205773;, - 0.197862; 0.193633;, - 0.197862; 0.193633;, - 0.170002; 0.205773;, - 0.175892; 0.211536;, - 0.149849; 0.221923;, - 0.170002; 0.205773;, - 0.175892; 0.211536;, - 0.175892; 0.211536;, - 0.170002; 0.205773;, - 0.149849; 0.221923;, - 0.149849; 0.221923;, - 0.175892; 0.211536;, - 0.156186; 0.226530;, - 0.156186; 0.226530;, - 0.175892; 0.211536;, - 0.149849; 0.221923;, - 0.129357; 0.234704;, - 0.149849; 0.221923;, - 0.156186; 0.226530;, - 0.156186; 0.226530;, - 0.149849; 0.221923;, - 0.129357; 0.234704;, - 0.133504; 0.242923;, - 0.129357; 0.234704;, - 0.156186; 0.226530;, - 0.156186; 0.226530;, - 0.129357; 0.234704;, - 0.133504; 0.242923;, - 0.269909; 0.113270;, - 0.247314; 0.129764;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.247314; 0.129764;, - 0.269909; 0.113270;, - 0.247314; 0.129764;, - 0.217228; 0.132459;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.217228; 0.132459;, - 0.247314; 0.129764;, - 0.217228; 0.132459;, - 0.169919; 0.134036;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.169919; 0.134036;, - 0.217228; 0.132459;, - 0.169919; 0.134036;, - 0.168056; 0.128649;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.168056; 0.128649;, - 0.169919; 0.134036;, - 0.168056; 0.128649;, - 0.169919; 0.134036;, - 0.130779; 0.129770;, - 0.130779; 0.129770;, - 0.169919; 0.134036;, - 0.168056; 0.128649;, - 0.129431; 0.124170;, - 0.168056; 0.128649;, - 0.130779; 0.129770;, - 0.130779; 0.129770;, - 0.168056; 0.128649;, - 0.129431; 0.124170;, - 0.095320; 0.116048;, - 0.129431; 0.124170;, - 0.097186; 0.127025;, - 0.097186; 0.127025;, - 0.129431; 0.124170;, - 0.095320; 0.116048;, - 0.130779; 0.129770;, - 0.129431; 0.124170;, - 0.097186; 0.127025;, - 0.097186; 0.127025;, - 0.130779; 0.129770;, - 0.129431; 0.124170;, - 0.298338; 0.243732;, - 0.319645; 0.179470;, - 0.342357; 0.201128;, - 0.342357; 0.201128;, - 0.319645; 0.179470;, - 0.298338; 0.243732;, - 0.279079; 0.238572;, - 0.319645; 0.179470;, - 0.298338; 0.243732;, - 0.298338; 0.243732;, - 0.319645; 0.179470;, - 0.279079; 0.238572;, - 0.319645; 0.179470;, - 0.279079; 0.238572;, - 0.285226; 0.180344;, - 0.285226; 0.180344;, - 0.279079; 0.238572;, - 0.319645; 0.179470;, - 0.319645; 0.179470;, - 0.285226; 0.180344;, - 0.307525; 0.155944;, - 0.307525; 0.155944;, - 0.285226; 0.180344;, - 0.319645; 0.179470;, - 0.279079; 0.238572;, - 0.237062; 0.206541;, - 0.285226; 0.180344;, - 0.285226; 0.180344;, - 0.237062; 0.206541;, - 0.279079; 0.238572;, - 0.279079; 0.238572;, - 0.240797; 0.254535;, - 0.237062; 0.206541;, - 0.237062; 0.206541;, - 0.240797; 0.254535;, - 0.279079; 0.238572;, - 0.237062; 0.206541;, - 0.240797; 0.254535;, - 0.205814; 0.234508;, - 0.205814; 0.234508;, - 0.240797; 0.254535;, - 0.237062; 0.206541;, - 0.266118; 0.268122;, - 0.279079; 0.238572;, - 0.298338; 0.243732;, - 0.298338; 0.243732;, - 0.279079; 0.238572;, - 0.266118; 0.268122;, - 0.279079; 0.238572;, - 0.266118; 0.268122;, - 0.240797; 0.254535;, - 0.240797; 0.254535;, - 0.266118; 0.268122;, - 0.279079; 0.238572;, - 0.240797; 0.254535;, - 0.266118; 0.268122;, - 0.240610; 0.273799;, - 0.240610; 0.273799;, - 0.266118; 0.268122;, - 0.240797; 0.254535;, - 0.205814; 0.234508;, - 0.240797; 0.254535;, - 0.195183; 0.273146;, - 0.195183; 0.273146;, - 0.240797; 0.254535;, - 0.205814; 0.234508;, - 0.240797; 0.254535;, - 0.240610; 0.273799;, - 0.195183; 0.273146;, - 0.195183; 0.273146;, - 0.240610; 0.273799;, - 0.240797; 0.254535;, - 0.187221; 0.236659;, - 0.205814; 0.234508;, - 0.195183; 0.273146;, - 0.195183; 0.273146;, - 0.205814; 0.234508;, - 0.187221; 0.236659;, - 0.187221; 0.236659;, - 0.195183; 0.273146;, - 0.179694; 0.276169;, - 0.179694; 0.276169;, - 0.195183; 0.273146;, - 0.187221; 0.236659;, - 0.170950; 0.242802;, - 0.187221; 0.236659;, - 0.179694; 0.276169;, - 0.179694; 0.276169;, - 0.187221; 0.236659;, - 0.170950; 0.242802;, - 0.152445; 0.268454;, - 0.170950; 0.242802;, - 0.179694; 0.276169;, - 0.179694; 0.276169;, - 0.170950; 0.242802;, - 0.152445; 0.268454;, - 0.180891; 0.219118;, - 0.205814; 0.234508;, - 0.187221; 0.236659;, - 0.187221; 0.236659;, - 0.205814; 0.234508;, - 0.180891; 0.219118;, - 0.180891; 0.219118;, - 0.187221; 0.236659;, - 0.170950; 0.242802;, - 0.170950; 0.242802;, - 0.187221; 0.236659;, - 0.180891; 0.219118;, - 0.205814; 0.234508;, - 0.180891; 0.219118;, - 0.204281; 0.200074;, - 0.204281; 0.200074;, - 0.180891; 0.219118;, - 0.205814; 0.234508;, - 0.237062; 0.206541;, - 0.205814; 0.234508;, - 0.204281; 0.200074;, - 0.204281; 0.200074;, - 0.205814; 0.234508;, - 0.237062; 0.206541;, - 0.251599; 0.166386;, - 0.237062; 0.206541;, - 0.204281; 0.200074;, - 0.204281; 0.200074;, - 0.237062; 0.206541;, - 0.251599; 0.166386;, - 0.285226; 0.180344;, - 0.237062; 0.206541;, - 0.251599; 0.166386;, - 0.251599; 0.166386;, - 0.237062; 0.206541;, - 0.285226; 0.180344;, - 0.290775; 0.148958;, - 0.285226; 0.180344;, - 0.251599; 0.166386;, - 0.251599; 0.166386;, - 0.285226; 0.180344;, - 0.290775; 0.148958;, - 0.285226; 0.180344;, - 0.290775; 0.148958;, - 0.307525; 0.155944;, - 0.307525; 0.155944;, - 0.290775; 0.148958;, - 0.285226; 0.180344;, - 0.285556; 0.130284;, - 0.290775; 0.148958;, - 0.251599; 0.166386;, - 0.251599; 0.166386;, - 0.290775; 0.148958;, - 0.285556; 0.130284;, - 0.290775; 0.148958;, - 0.304451; 0.110615;, - 0.307525; 0.155944;, - 0.307525; 0.155944;, - 0.304451; 0.110615;, - 0.290775; 0.148958;, - 0.304451; 0.110615;, - 0.290775; 0.148958;, - 0.285556; 0.130284;, - 0.285556; 0.130284;, - 0.290775; 0.148958;, - 0.304451; 0.110615;, - 0.304451; 0.110615;, - 0.310299; 0.098587;, - 0.307525; 0.155944;, - 0.307525; 0.155944;, - 0.310299; 0.098587;, - 0.304451; 0.110615;, - 0.180891; 0.219118;, - 0.170950; 0.242802;, - 0.161992; 0.234452;, - 0.161992; 0.234452;, - 0.170950; 0.242802;, - 0.180891; 0.219118;, - 0.170950; 0.242802;, - 0.152445; 0.268454;, - 0.161992; 0.234452;, - 0.161992; 0.234452;, - 0.152445; 0.268454;, - 0.170950; 0.242802;, - 0.161992; 0.234452;, - 0.152445; 0.268454;, - 0.137802; 0.254674;, - 0.137802; 0.254674;, - 0.152445; 0.268454;, - 0.161992; 0.234452;, - 0.137802; 0.254674;, - 0.133504; 0.242923;, - 0.156186; 0.226530;, - 0.156186; 0.226530;, - 0.133504; 0.242923;, - 0.137802; 0.254674;, - 0.161992; 0.234452;, - 0.137802; 0.254674;, - 0.156186; 0.226530;, - 0.156186; 0.226530;, - 0.137802; 0.254674;, - 0.161992; 0.234452;, - 0.175892; 0.211536;, - 0.161992; 0.234452;, - 0.156186; 0.226530;, - 0.156186; 0.226530;, - 0.161992; 0.234452;, - 0.175892; 0.211536;, - 0.175892; 0.211536;, - 0.180891; 0.219118;, - 0.161992; 0.234452;, - 0.161992; 0.234452;, - 0.180891; 0.219118;, - 0.175892; 0.211536;, - 0.180891; 0.219118;, - 0.175892; 0.211536;, - 0.197862; 0.193633;, - 0.197862; 0.193633;, - 0.175892; 0.211536;, - 0.180891; 0.219118;, - 0.204281; 0.200074;, - 0.180891; 0.219118;, - 0.197862; 0.193633;, - 0.197862; 0.193633;, - 0.180891; 0.219118;, - 0.204281; 0.200074;, - 0.204281; 0.200074;, - 0.197862; 0.193633;, - 0.237278; 0.163429;, - 0.237278; 0.163429;, - 0.197862; 0.193633;, - 0.204281; 0.200074;, - 0.251599; 0.166386;, - 0.204281; 0.200074;, - 0.237278; 0.163429;, - 0.237278; 0.163429;, - 0.204281; 0.200074;, - 0.251599; 0.166386;, - 0.251599; 0.166386;, - 0.237278; 0.163429;, - 0.270224; 0.125409;, - 0.270224; 0.125409;, - 0.237278; 0.163429;, - 0.251599; 0.166386;, - 0.285556; 0.130284;, - 0.251599; 0.166386;, - 0.270224; 0.125409;, - 0.270224; 0.125409;, - 0.251599; 0.166386;, - 0.285556; 0.130284;, - 0.285556; 0.130284;, - 0.270224; 0.125409;, - 0.280802; 0.102437;, - 0.280802; 0.102437;, - 0.270224; 0.125409;, - 0.285556; 0.130284;, - 0.304451; 0.110615;, - 0.285556; 0.130284;, - 0.280802; 0.102437;, - 0.280802; 0.102437;, - 0.285556; 0.130284;, - 0.304451; 0.110615;, - 0.310299; 0.098587;, - 0.304451; 0.110615;, - 0.288575; 0.090608;, - 0.288575; 0.090608;, - 0.304451; 0.110615;, - 0.310299; 0.098587;, - 0.304451; 0.110615;, - 0.280802; 0.102437;, - 0.288575; 0.090608;, - 0.288575; 0.090608;, - 0.280802; 0.102437;, - 0.304451; 0.110615;, - 0.280802; 0.102437;, - 0.267345; 0.090380;, - 0.288575; 0.090608;, - 0.288575; 0.090608;, - 0.267345; 0.090380;, - 0.280802; 0.102437;, - 0.285121; 0.069480;, - 0.310299; 0.098587;, - 0.288575; 0.090608;, - 0.288575; 0.090608;, - 0.310299; 0.098587;, - 0.285121; 0.069480;, - 0.285121; 0.069480;, - 0.288575; 0.090608;, - 0.267345; 0.090380;, - 0.267345; 0.090380;, - 0.288575; 0.090608;, - 0.285121; 0.069480;, - 0.267345; 0.090380;, - 0.239440; 0.067955;, - 0.285121; 0.069480;, - 0.285121; 0.069480;, - 0.239440; 0.067955;, - 0.267345; 0.090380;, - 0.253604; 0.105929;, - 0.239440; 0.067955;, - 0.267345; 0.090380;, - 0.267345; 0.090380;, - 0.239440; 0.067955;, - 0.253604; 0.105929;, - 0.239440; 0.067955;, - 0.253604; 0.105929;, - 0.209529; 0.074272;, - 0.209529; 0.074272;, - 0.253604; 0.105929;, - 0.239440; 0.067955;, - 0.253604; 0.105929;, - 0.196002; 0.091827;, - 0.209529; 0.074272;, - 0.209529; 0.074272;, - 0.196002; 0.091827;, - 0.253604; 0.105929;, - 0.253604; 0.105929;, - 0.267345; 0.090380;, - 0.280802; 0.102437;, - 0.280802; 0.102437;, - 0.267345; 0.090380;, - 0.253604; 0.105929;, - 0.253604; 0.105929;, - 0.280802; 0.102437;, - 0.269909; 0.113270;, - 0.269909; 0.113270;, - 0.280802; 0.102437;, - 0.253604; 0.105929;, - 0.253604; 0.105929;, - 0.269909; 0.113270;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.269909; 0.113270;, - 0.253604; 0.105929;, - 0.196002; 0.091827;, - 0.253604; 0.105929;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.253604; 0.105929;, - 0.196002; 0.091827;, - 0.168056; 0.128649;, - 0.196002; 0.091827;, - 0.216253; 0.126808;, - 0.216253; 0.126808;, - 0.196002; 0.091827;, - 0.168056; 0.128649;, - 0.168056; 0.128649;, - 0.174208; 0.097634;, - 0.196002; 0.091827;, - 0.196002; 0.091827;, - 0.174208; 0.097634;, - 0.168056; 0.128649;, - 0.174208; 0.097634;, - 0.168056; 0.128649;, - 0.129431; 0.124170;, - 0.129431; 0.124170;, - 0.168056; 0.128649;, - 0.174208; 0.097634;, - 0.150414; 0.092366;, - 0.174208; 0.097634;, - 0.129431; 0.124170;, - 0.129431; 0.124170;, - 0.174208; 0.097634;, - 0.150414; 0.092366;, - 0.150414; 0.092366;, - 0.129431; 0.124170;, - 0.095320; 0.116048;, - 0.095320; 0.116048;, - 0.129431; 0.124170;, - 0.150414; 0.092366;, - 0.150414; 0.092366;, - 0.095320; 0.116048;, - 0.132305; 0.081337;, - 0.132305; 0.081337;, - 0.095320; 0.116048;, - 0.150414; 0.092366;, - 0.157914; 0.079031;, - 0.174208; 0.097634;, - 0.150414; 0.092366;, - 0.150414; 0.092366;, - 0.174208; 0.097634;, - 0.157914; 0.079031;, - 0.157914; 0.079031;, - 0.150414; 0.092366;, - 0.132305; 0.081337;, - 0.132305; 0.081337;, - 0.150414; 0.092366;, - 0.157914; 0.079031;, - 0.196002; 0.091827;, - 0.174208; 0.097634;, - 0.157914; 0.079031;, - 0.157914; 0.079031;, - 0.174208; 0.097634;, - 0.196002; 0.091827;, - 0.157914; 0.079031;, - 0.132305; 0.081337;, - 0.172231; 0.054242;, - 0.172231; 0.054242;, - 0.132305; 0.081337;, - 0.157914; 0.079031;, - 0.174981; 0.059145;, - 0.157914; 0.079031;, - 0.172231; 0.054242;, - 0.172231; 0.054242;, - 0.157914; 0.079031;, - 0.174981; 0.059145;, - 0.193421; 0.084943;, - 0.196002; 0.091827;, - 0.157914; 0.079031;, - 0.157914; 0.079031;, - 0.196002; 0.091827;, - 0.193421; 0.084943;, - 0.193421; 0.084943;, - 0.194964; 0.069712;, - 0.196002; 0.091827;, - 0.196002; 0.091827;, - 0.194964; 0.069712;, - 0.193421; 0.084943;, - 0.194964; 0.069712;, - 0.201054; 0.055296;, - 0.196002; 0.091827;, - 0.196002; 0.091827;, - 0.201054; 0.055296;, - 0.194964; 0.069712;, - 0.190718; 0.057942;, - 0.194970; 0.052320;, - 0.201054; 0.055296;, - 0.201054; 0.055296;, - 0.194970; 0.052320;, - 0.190718; 0.057942;, - 0.190718; 0.057942;, - 0.174981; 0.059145;, - 0.194970; 0.052320;, - 0.194970; 0.052320;, - 0.174981; 0.059145;, - 0.190718; 0.057942;, - 0.194970; 0.052320;, - 0.174981; 0.059145;, - 0.172231; 0.054242;, - 0.172231; 0.054242;, - 0.174981; 0.059145;, - 0.194970; 0.052320;, - 0.196002; 0.091827;, - 0.201054; 0.055296;, - 0.209529; 0.074272;, - 0.209529; 0.074272;, - 0.201054; 0.055296;, - 0.196002; 0.091827;, - 0.201054; 0.055296;, - 0.225707; 0.050061;, - 0.209529; 0.074272;, - 0.209529; 0.074272;, - 0.225707; 0.050061;, - 0.201054; 0.055296;, - 0.208018; 0.046561;, - 0.225707; 0.050061;, - 0.201054; 0.055296;, - 0.201054; 0.055296;, - 0.225707; 0.050061;, - 0.208018; 0.046561;, - 0.198845; 0.046372;, - 0.208018; 0.046561;, - 0.201054; 0.055296;, - 0.201054; 0.055296;, - 0.208018; 0.046561;, - 0.198845; 0.046372;, - 0.194970; 0.052320;, - 0.198845; 0.046372;, - 0.201054; 0.055296;, - 0.201054; 0.055296;, - 0.198845; 0.046372;, - 0.194970; 0.052320;, - 0.198845; 0.046372;, - 0.194970; 0.052320;, - 0.172231; 0.054242;, - 0.172231; 0.054242;, - 0.194970; 0.052320;, - 0.198845; 0.046372;, - 0.198845; 0.046372;, - 0.172231; 0.054242;, - 0.216848; 0.022616;, - 0.216848; 0.022616;, - 0.172231; 0.054242;, - 0.198845; 0.046372;, - 0.208018; 0.046561;, - 0.198845; 0.046372;, - 0.216848; 0.022616;, - 0.216848; 0.022616;, - 0.198845; 0.046372;, - 0.208018; 0.046561;, - 0.225707; 0.050061;, - 0.208018; 0.046561;, - 0.216848; 0.022616;, - 0.216848; 0.022616;, - 0.208018; 0.046561;, - 0.225707; 0.050061;, - 0.225707; 0.050061;, - 0.239440; 0.067955;, - 0.209529; 0.074272;, - 0.209529; 0.074272;, - 0.239440; 0.067955;, - 0.225707; 0.050061;, - 0.270224; 0.125409;, - 0.237278; 0.163429;, - 0.249676; 0.135387;, - 0.249676; 0.135387;, - 0.237278; 0.163429;, - 0.270224; 0.125409;, - 0.194964; 0.069712;, - 0.194439; 0.059634;, - 0.201054; 0.055296;, - 0.201054; 0.055296;, - 0.194439; 0.059634;, - 0.194964; 0.069712;, - 0.190718; 0.057942;, - 0.201054; 0.055296;, - 0.194439; 0.059634;, - 0.194439; 0.059634;, - 0.201054; 0.055296;, - 0.190718; 0.057942;, - 0.381774; 0.109028;, - 0.386205; 0.129164;, - 0.395400; 0.102506;, - 0.395400; 0.102506;, - 0.386205; 0.129164;, - 0.381774; 0.109028;, - 0.386205; 0.129164;, - 0.414780; 0.108106;, - 0.395400; 0.102506;, - 0.395400; 0.102506;, - 0.414780; 0.108106;, - 0.386205; 0.129164;, - 0.386205; 0.129164;, - 0.420745; 0.118219;, - 0.414780; 0.108106;, - 0.414780; 0.108106;, - 0.420745; 0.118219;, - 0.386205; 0.129164;, - 0.401843; 0.146056;, - 0.420745; 0.118219;, - 0.386205; 0.129164;, - 0.386205; 0.129164;, - 0.420745; 0.118219;, - 0.401843; 0.146056;, - 0.422981; 0.136759;, - 0.420745; 0.118219;, - 0.401843; 0.146056;, - 0.401843; 0.146056;, - 0.420745; 0.118219;, - 0.422981; 0.136759;, - 0.427519; 0.136884;, - 0.420745; 0.118219;, - 0.422981; 0.136759;, - 0.422981; 0.136759;, - 0.420745; 0.118219;, - 0.427519; 0.136884;, - 0.437193; 0.103991;, - 0.414780; 0.108106;, - 0.420745; 0.118219;, - 0.420745; 0.118219;, - 0.414780; 0.108106;, - 0.437193; 0.103991;, - 0.437193; 0.103991;, - 0.420745; 0.118219;, - 0.427519; 0.136884;, - 0.427519; 0.136884;, - 0.420745; 0.118219;, - 0.437193; 0.103991;, - 0.410630; 0.074035;, - 0.414780; 0.108106;, - 0.437193; 0.103991;, - 0.437193; 0.103991;, - 0.414780; 0.108106;, - 0.410630; 0.074035;, - 0.414780; 0.108106;, - 0.410630; 0.074035;, - 0.395400; 0.102506;, - 0.395400; 0.102506;, - 0.410630; 0.074035;, - 0.414780; 0.108106;, - 0.410630; 0.074035;, - 0.375033; 0.095583;, - 0.395400; 0.102506;, - 0.395400; 0.102506;, - 0.375033; 0.095583;, - 0.410630; 0.074035;, - 0.410630; 0.074035;, - 0.353120; 0.091385;, - 0.375033; 0.095583;, - 0.375033; 0.095583;, - 0.353120; 0.091385;, - 0.410630; 0.074035;, - 0.410630; 0.074035;, - 0.358188; 0.051417;, - 0.353120; 0.091385;, - 0.353120; 0.091385;, - 0.358188; 0.051417;, - 0.410630; 0.074035;, - 0.358188; 0.051417;, - 0.331740; 0.086983;, - 0.353120; 0.091385;, - 0.353120; 0.091385;, - 0.331740; 0.086983;, - 0.358188; 0.051417;, - 0.358188; 0.051417;, - 0.298065; 0.067366;, - 0.331740; 0.086983;, - 0.331740; 0.086983;, - 0.298065; 0.067366;, - 0.358188; 0.051417;, - 0.312656; 0.034098;, - 0.358188; 0.051417;, - 0.298065; 0.067366;, - 0.312656; 0.034098;, - 0.298065; 0.067366;, - 0.358188; 0.051417;, - 0.275761; 0.043660;, - 0.312656; 0.034098;, - 0.298065; 0.067366;, - 0.275761; 0.043660;, - 0.298065; 0.067366;, - 0.312656; 0.034098;, - 0.274561; 0.019735;, - 0.312656; 0.034098;, - 0.275761; 0.043660;, - 0.274561; 0.019735;, - 0.275761; 0.043660;, - 0.312656; 0.034098;, - 0.422981; 0.136759;, - 0.414330; 0.171853;, - 0.420014; 0.181296;, - 0.420014; 0.181296;, - 0.414330; 0.171853;, - 0.422981; 0.136759;, - 0.432669; 0.161483;, - 0.422981; 0.136759;, - 0.420014; 0.181296;, - 0.420014; 0.181296;, - 0.422981; 0.136759;, - 0.432669; 0.161483;, - 0.414330; 0.171853;, - 0.422981; 0.136759;, - 0.401843; 0.146056;, - 0.401843; 0.146056;, - 0.422981; 0.136759;, - 0.414330; 0.171853;, - 0.427519; 0.136884;, - 0.422981; 0.136759;, - 0.432669; 0.161483;, - 0.432669; 0.161483;, - 0.422981; 0.136759;, - 0.427519; 0.136884;, - 0.437102; 0.192831;, - 0.432669; 0.161483;, - 0.420014; 0.181296;, - 0.420014; 0.181296;, - 0.432669; 0.161483;, - 0.437102; 0.192831;, - 0.437193; 0.103991;, - 0.427519; 0.136884;, - 0.444771; 0.130706;, - 0.444771; 0.130706;, - 0.427519; 0.136884;, - 0.437193; 0.103991;, - 0.424149; 0.201497;, - 0.437102; 0.192831;, - 0.420014; 0.181296;, - 0.420014; 0.181296;, - 0.437102; 0.192831;, - 0.424149; 0.201497;, - 0.420014; 0.181296;, - 0.414330; 0.171853;, - 0.420386; 0.198896;, - 0.414330; 0.171853;, - 0.420386; 0.198896;, - 0.420014; 0.181296;, - 0.401565; 0.200797;, - 0.414330; 0.171853;, - 0.420386; 0.198896;, - 0.401565; 0.200797;, - 0.420386; 0.198896;, - 0.414330; 0.171853;, - 0.401565; 0.200797;, - 0.420386; 0.198896;, - 0.412254; 0.219849;, - 0.401565; 0.200797;, - 0.412254; 0.219849;, - 0.420386; 0.198896;, - 0.398080; 0.221560;, - 0.401565; 0.200797;, - 0.412254; 0.219849;, - 0.398080; 0.221560;, - 0.412254; 0.219849;, - 0.401565; 0.200797;, - 0.398080; 0.221560;, - 0.412254; 0.219849;, - 0.403216; 0.237458;, - 0.398080; 0.221560;, - 0.403216; 0.237458;, - 0.412254; 0.219849;, - 0.394874; 0.166993;, - 0.414330; 0.171853;, - 0.401843; 0.146056;, - 0.401843; 0.146056;, - 0.414330; 0.171853;, - 0.394874; 0.166993;, - 0.381588; 0.196317;, - 0.414330; 0.171853;, - 0.394874; 0.166993;, - 0.414330; 0.171853;, - 0.394874; 0.166993;, - 0.381588; 0.196317;, - 0.414330; 0.171853;, - 0.401565; 0.200797;, - 0.381588; 0.196317;, - 0.414330; 0.171853;, - 0.381588; 0.196317;, - 0.401565; 0.200797;, - 0.376442; 0.218952;, - 0.401565; 0.200797;, - 0.381588; 0.196317;, - 0.401565; 0.200797;, - 0.381588; 0.196317;, - 0.376442; 0.218952;, - 0.401565; 0.200797;, - 0.398080; 0.221560;, - 0.376442; 0.218952;, - 0.401565; 0.200797;, - 0.376442; 0.218952;, - 0.398080; 0.221560;, - 0.398080; 0.221560;, - 0.380346; 0.238940;, - 0.376442; 0.218952;, - 0.398080; 0.221560;, - 0.376442; 0.218952;, - 0.380346; 0.238940;, - 0.398080; 0.221560;, - 0.403216; 0.237458;, - 0.380346; 0.238940;, - 0.398080; 0.221560;, - 0.380346; 0.238940;, - 0.403216; 0.237458;, - 0.393461; 0.252602;, - 0.403216; 0.237458;, - 0.380346; 0.238940;, - 0.380346; 0.238940;, - 0.403216; 0.237458;, - 0.393461; 0.252602;, - 0.375033; 0.095583;, - 0.353120; 0.091385;, - 0.370531; 0.105048;, - 0.370531; 0.105048;, - 0.353120; 0.091385;, - 0.375033; 0.095583;, - 0.381774; 0.109028;, - 0.375033; 0.095583;, - 0.370531; 0.105048;, - 0.370531; 0.105048;, - 0.375033; 0.095583;, - 0.381774; 0.109028;, - 0.395400; 0.102506;, - 0.375033; 0.095583;, - 0.381774; 0.109028;, - 0.381774; 0.109028;, - 0.375033; 0.095583;, - 0.395400; 0.102506;, - 0.431100; 0.226312;, - 0.437102; 0.192831;, - 0.424149; 0.201497;, - 0.424149; 0.201497;, - 0.437102; 0.192831;, - 0.431100; 0.226312;, - 0.439620; 0.221537;, - 0.437102; 0.192831;, - 0.431100; 0.226312;, - 0.431100; 0.226312;, - 0.437102; 0.192831;, - 0.439620; 0.221537;, - 0.442753; 0.232223;, - 0.439620; 0.221537;, - 0.431100; 0.226312;, - 0.431100; 0.226312;, - 0.439620; 0.221537;, - 0.442753; 0.232223;, - 0.442602; 0.238786;, - 0.442753; 0.232223;, - 0.431100; 0.226312;, - 0.431100; 0.226312;, - 0.442753; 0.232223;, - 0.442602; 0.238786;, - 0.446947; 0.236482;, - 0.442753; 0.232223;, - 0.442602; 0.238786;, - 0.442602; 0.238786;, - 0.442753; 0.232223;, - 0.446947; 0.236482;, - 0.446947; 0.236482;, - 0.449046; 0.219510;, - 0.442753; 0.232223;, - 0.442753; 0.232223;, - 0.449046; 0.219510;, - 0.446947; 0.236482;, - 0.449046; 0.219510;, - 0.439620; 0.221537;, - 0.442753; 0.232223;, - 0.442753; 0.232223;, - 0.439620; 0.221537;, - 0.449046; 0.219510;, - 0.437102; 0.192831;, - 0.439620; 0.221537;, - 0.449046; 0.219510;, - 0.449046; 0.219510;, - 0.439620; 0.221537;, - 0.437102; 0.192831;, - 0.449698; 0.192591;, - 0.437102; 0.192831;, - 0.449046; 0.219510;, - 0.449046; 0.219510;, - 0.437102; 0.192831;, - 0.449698; 0.192591;, - 0.432669; 0.161483;, - 0.437102; 0.192831;, - 0.449698; 0.192591;, - 0.449698; 0.192591;, - 0.437102; 0.192831;, - 0.432669; 0.161483;, - 0.448613; 0.160340;, - 0.432669; 0.161483;, - 0.449698; 0.192591;, - 0.449698; 0.192591;, - 0.432669; 0.161483;, - 0.448613; 0.160340;, - 0.448613; 0.160340;, - 0.444771; 0.130706;, - 0.432669; 0.161483;, - 0.432669; 0.161483;, - 0.444771; 0.130706;, - 0.448613; 0.160340;, - 0.444771; 0.130706;, - 0.427519; 0.136884;, - 0.432669; 0.161483;, - 0.432669; 0.161483;, - 0.427519; 0.136884;, - 0.444771; 0.130706;, - 0.015880; 0.188112;, - 0.012234; 0.209144;, - 0.007310; 0.173941;, - 0.007310; 0.173941;, - 0.012234; 0.209144;, - 0.015880; 0.188112;, - 0.012234; 0.209144;, - 0.008762; 0.238328;, - 0.007310; 0.173941;, - 0.007310; 0.173941;, - 0.008762; 0.238328;, - 0.012234; 0.209144;, - 0.008762; 0.238328;, - 0.017030; 0.253304;, - 0.008517; 0.291057;, - 0.008517; 0.291057;, - 0.017030; 0.253304;, - 0.008762; 0.238328;, - 0.017030; 0.253304;, - 0.032172; 0.257081;, - 0.008517; 0.291057;, - 0.008517; 0.291057;, - 0.032172; 0.257081;, - 0.017030; 0.253304;, - 0.008517; 0.291057;, - 0.032172; 0.257081;, - 0.037279; 0.282870;, - 0.037279; 0.282870;, - 0.032172; 0.257081;, - 0.008517; 0.291057;, - 0.037279; 0.282870;, - 0.032172; 0.257081;, - 0.057898; 0.265979;, - 0.057898; 0.265979;, - 0.032172; 0.257081;, - 0.037279; 0.282870;, - 0.057898; 0.265979;, - 0.032172; 0.257081;, - 0.049873; 0.249830;, - 0.049873; 0.249830;, - 0.032172; 0.257081;, - 0.057898; 0.265979;, - 0.049873; 0.249830;, - 0.065417; 0.219880;, - 0.057898; 0.265979;, - 0.057898; 0.265979;, - 0.065417; 0.219880;, - 0.049873; 0.249830;, - 0.065417; 0.219880;, - 0.051234; 0.207778;, - 0.048482; 0.157202;, - 0.048482; 0.157202;, - 0.051234; 0.207778;, - 0.065417; 0.219880;, - 0.051234; 0.207778;, - 0.040949; 0.181116;, - 0.048482; 0.157202;, - 0.048482; 0.157202;, - 0.040949; 0.181116;, - 0.051234; 0.207778;, - 0.026518; 0.175603;, - 0.031664; 0.121244;, - 0.048482; 0.157202;, - 0.048482; 0.157202;, - 0.031664; 0.121244;, - 0.026518; 0.175603;, - 0.040949; 0.181116;, - 0.026518; 0.175603;, - 0.048482; 0.157202;, - 0.048482; 0.157202;, - 0.026518; 0.175603;, - 0.040949; 0.181116;, - 0.026518; 0.175603;, - 0.015880; 0.188112;, - 0.007310; 0.173941;, - 0.007310; 0.173941;, - 0.015880; 0.188112;, - 0.026518; 0.175603;, - 0.026518; 0.175603;, - 0.007310; 0.173941;, - 0.007330; 0.138126;, - 0.007330; 0.138126;, - 0.007310; 0.173941;, - 0.026518; 0.175603;, - 0.031664; 0.121244;, - 0.026518; 0.175603;, - 0.007330; 0.138126;, - 0.007330; 0.138126;, - 0.026518; 0.175603;, - 0.031664; 0.121244;, - 0.031664; 0.121244;, - 0.007330; 0.138126;, - 0.007604; 0.109240;, - 0.007604; 0.109240;, - 0.007330; 0.138126;, - 0.031664; 0.121244;, - 0.086275; 0.236780;, - 0.065417; 0.219880;, - 0.048482; 0.157202;, - 0.048482; 0.157202;, - 0.065417; 0.219880;, - 0.086275; 0.236780;, - 0.030034; 0.375562;, - 0.059752; 0.314325;, - 0.055422; 0.367437;, - 0.055422; 0.367437;, - 0.059752; 0.314325;, - 0.030034; 0.375562;, - 0.065417; 0.219880;, - 0.053162; 0.228098;, - 0.051234; 0.207778;, - 0.051234; 0.207778;, - 0.053162; 0.228098;, - 0.065417; 0.219880;, - 0.065417; 0.219880;, - 0.049873; 0.249830;, - 0.053162; 0.228098;, - 0.053162; 0.228098;, - 0.049873; 0.249830;, - 0.065417; 0.219880;, - 0.008762; 0.238328;, - 0.012443; 0.233282;, - 0.017030; 0.253304;, - 0.017030; 0.253304;, - 0.012443; 0.233282;, - 0.008762; 0.238328;, - 0.008762; 0.238328;, - 0.012234; 0.209144;, - 0.012443; 0.233282;, - 0.012443; 0.233282;, - 0.012234; 0.209144;, - 0.008762; 0.238328;, - 0.057898; 0.265979;, - 0.065417; 0.219880;, - 0.086275; 0.236780;, - 0.086275; 0.236780;, - 0.065417; 0.219880;, - 0.057898; 0.265979;, - 0.038125; 0.307791;, - 0.037279; 0.282870;, - 0.057898; 0.265979;, - 0.057898; 0.265979;, - 0.037279; 0.282870;, - 0.038125; 0.307791;, - 0.038125; 0.307791;, - 0.059752; 0.314325;, - 0.030034; 0.375562;, - 0.030034; 0.375562;, - 0.059752; 0.314325;, - 0.038125; 0.307791;, - 0.008990; 0.356106;, - 0.038125; 0.307791;, - 0.030034; 0.375562;, - 0.030034; 0.375562;, - 0.038125; 0.307791;, - 0.008990; 0.356106;, - 0.038125; 0.307791;, - 0.008990; 0.356106;, - 0.008517; 0.291057;, - 0.008517; 0.291057;, - 0.008990; 0.356106;, - 0.038125; 0.307791;, - 0.037279; 0.282870;, - 0.038125; 0.307791;, - 0.008517; 0.291057;, - 0.008517; 0.291057;, - 0.038125; 0.307791;, - 0.037279; 0.282870;, - 0.086275; 0.236780;, - 0.058634; 0.297687;, - 0.057898; 0.265979;, - 0.057898; 0.265979;, - 0.058634; 0.297687;, - 0.086275; 0.236780;, - 0.086275; 0.236780;, - 0.059752; 0.314325;, - 0.058634; 0.297687;, - 0.058634; 0.297687;, - 0.059752; 0.314325;, - 0.086275; 0.236780;, - 0.038125; 0.307791;, - 0.058634; 0.297687;, - 0.059752; 0.314325;, - 0.059752; 0.314325;, - 0.058634; 0.297687;, - 0.038125; 0.307791;, - 0.038125; 0.307791;, - 0.057898; 0.265979;, - 0.058634; 0.297687;, - 0.058634; 0.297687;, - 0.057898; 0.265979;, - 0.038125; 0.307791;, - 0.014255; 0.070468;, - 0.012321; 0.095900;, - 0.004533; 0.072371;, - 0.004533; 0.072371;, - 0.012321; 0.095900;, - 0.014255; 0.070468;, - 0.014255; 0.070468;, - 0.004533; 0.072371;, - 0.003533; 0.043811;, - 0.003533; 0.043811;, - 0.004533; 0.072371;, - 0.014255; 0.070468;, - 0.046865; 0.067748;, - 0.061326; 0.043118;, - 0.061326; 0.067606;, - 0.061326; 0.067606;, - 0.061326; 0.043118;, - 0.046865; 0.067748;, - 0.046865; 0.067748;, - 0.061326; 0.067606;, - 0.052788; 0.092365;, - 0.052788; 0.092365;, - 0.061326; 0.067606;, - 0.046865; 0.067748;, - 0.031784; 0.071846;, - 0.014255; 0.070468;, - 0.031961; 0.055527;, - 0.031961; 0.055527;, - 0.014255; 0.070468;, - 0.031784; 0.071846;, - 0.014255; 0.070468;, - 0.015723; 0.053730;, - 0.031961; 0.055527;, - 0.031961; 0.055527;, - 0.015723; 0.053730;, - 0.014255; 0.070468;, - 0.046620; 0.054316;, - 0.046865; 0.067748;, - 0.031961; 0.055527;, - 0.031961; 0.055527;, - 0.046865; 0.067748;, - 0.046620; 0.054316;, - 0.046865; 0.067748;, - 0.031784; 0.071846;, - 0.031961; 0.055527;, - 0.031961; 0.055527;, - 0.031784; 0.071846;, - 0.046865; 0.067748;, - 0.061326; 0.043118;, - 0.046865; 0.067748;, - 0.046620; 0.054316;, - 0.046620; 0.054316;, - 0.046865; 0.067748;, - 0.061326; 0.043118;, - 0.031784; 0.071846;, - 0.046865; 0.067748;, - 0.052788; 0.092365;, - 0.052788; 0.092365;, - 0.046865; 0.067748;, - 0.031784; 0.071846;, - 0.031784; 0.071846;, - 0.012321; 0.095900;, - 0.014255; 0.070468;, - 0.014255; 0.070468;, - 0.012321; 0.095900;, - 0.031784; 0.071846;, - 0.003533; 0.043811;, - 0.015723; 0.053730;, - 0.014255; 0.070468;, - 0.014255; 0.070468;, - 0.015723; 0.053730;, - 0.003533; 0.043811;, - 0.046620; 0.054316;, - 0.050474; 0.006759;, - 0.061326; 0.043118;, - 0.061326; 0.043118;, - 0.050474; 0.006759;, - 0.046620; 0.054316;, - 0.050474; 0.006759;, - 0.046620; 0.054316;, - 0.031110; 0.013691;, - 0.031110; 0.013691;, - 0.046620; 0.054316;, - 0.050474; 0.006759;, - 0.031110; 0.013691;, - 0.029667; 0.001065;, - 0.050474; 0.006759;, - 0.050474; 0.006759;, - 0.029667; 0.001065;, - 0.031110; 0.013691;, - 0.046620; 0.054316;, - 0.031961; 0.055527;, - 0.031110; 0.013691;, - 0.031110; 0.013691;, - 0.031961; 0.055527;, - 0.046620; 0.054316;, - 0.031784; 0.071846;, - 0.052788; 0.092365;, - 0.030937; 0.100504;, - 0.030937; 0.100504;, - 0.052788; 0.092365;, - 0.031784; 0.071846;, - 0.012321; 0.095900;, - 0.031784; 0.071846;, - 0.030937; 0.100504;, - 0.030937; 0.100504;, - 0.031784; 0.071846;, - 0.012321; 0.095900;, - 0.031961; 0.055527;, - 0.015723; 0.053730;, - 0.031110; 0.013691;, - 0.031110; 0.013691;, - 0.015723; 0.053730;, - 0.031961; 0.055527;, - 0.011013; 0.012296;, - 0.015723; 0.053730;, - 0.003533; 0.043811;, - 0.003533; 0.043811;, - 0.015723; 0.053730;, - 0.011013; 0.012296;, - 0.015723; 0.053730;, - 0.011013; 0.012296;, - 0.031110; 0.013691;, - 0.031110; 0.013691;, - 0.011013; 0.012296;, - 0.015723; 0.053730;, - 0.011013; 0.012296;, - 0.029667; 0.001065;, - 0.031110; 0.013691;, - 0.031110; 0.013691;, - 0.029667; 0.001065;, - 0.011013; 0.012296;, - 0.424173; 0.014445;, - 0.417246; 0.051254;, - 0.378566; 0.037055;, - 0.378566; 0.037055;, - 0.417246; 0.051254;, - 0.424173; 0.014445;, - 0.378566; 0.037055;, - 0.395605; 0.006963;, - 0.424173; 0.014445;, - 0.424173; 0.014445;, - 0.395605; 0.006963;, - 0.378566; 0.037055;, - 0.470424; 0.016237;, - 0.417246; 0.051254;, - 0.424173; 0.014445;, - 0.424173; 0.014445;, - 0.417246; 0.051254;, - 0.470424; 0.016237;, - 0.468960; 0.051491;, - 0.417246; 0.051254;, - 0.470424; 0.016237;, - 0.470424; 0.016237;, - 0.417246; 0.051254;, - 0.468960; 0.051491;, - 0.516296; 0.016946;, - 0.468960; 0.051491;, - 0.470424; 0.016237;, - 0.470424; 0.016237;, - 0.468960; 0.051491;, - 0.516296; 0.016946;, - 0.518901; 0.047152;, - 0.468960; 0.051491;, - 0.516296; 0.016946;, - 0.516296; 0.016946;, - 0.468960; 0.051491;, - 0.518901; 0.047152;, - 0.550334; 0.042333;, - 0.518901; 0.047152;, - 0.516296; 0.016946;, - 0.516296; 0.016946;, - 0.518901; 0.047152;, - 0.550334; 0.042333;, - 0.548268; 0.013617;, - 0.550334; 0.042333;, - 0.516296; 0.016946;, - 0.516296; 0.016946;, - 0.550334; 0.042333;, - 0.548268; 0.013617;, - 0.382028; 0.036327;, - 0.426504; 0.049764;, - 0.393672; 0.006205;, - 0.393672; 0.006205;, - 0.426504; 0.049764;, - 0.382028; 0.036327;, - 0.426504; 0.049764;, - 0.430285; 0.015997;, - 0.393672; 0.006205;, - 0.393672; 0.006205;, - 0.430285; 0.015997;, - 0.426504; 0.049764;, - 0.458826; 0.053725;, - 0.430285; 0.015997;, - 0.426504; 0.049764;, - 0.426504; 0.049764;, - 0.430285; 0.015997;, - 0.458826; 0.053725;, - 0.458886; 0.016720;, - 0.430285; 0.015997;, - 0.458826; 0.053725;, - 0.458826; 0.053725;, - 0.430285; 0.015997;, - 0.458886; 0.016720;, - 0.498581; 0.050015;, - 0.458886; 0.016720;, - 0.458826; 0.053725;, - 0.458826; 0.053725;, - 0.458886; 0.016720;, - 0.498581; 0.050015;, - 0.495342; 0.014889;, - 0.458886; 0.016720;, - 0.498581; 0.050015;, - 0.498581; 0.050015;, - 0.458886; 0.016720;, - 0.495342; 0.014889;, - 0.552845; 0.037345;, - 0.495342; 0.014889;, - 0.498581; 0.050015;, - 0.498581; 0.050015;, - 0.495342; 0.014889;, - 0.552845; 0.037345;, - 0.547111; 0.013276;, - 0.495342; 0.014889;, - 0.552845; 0.037345;, - 0.552845; 0.037345;, - 0.495342; 0.014889;, - 0.547111; 0.013276;; - } //End of Cube_000 UV Coordinates - } //End of Cube_000 Mesh - } //End of Marty - } //End of Armature_Marty -} //End of Root Frame diff --git a/programs/samples/open_gl/marty_tmap.png b/programs/samples/open_gl/marty_tmap.png deleted file mode 100644 index 1f9bbb761..000000000 Binary files a/programs/samples/open_gl/marty_tmap.png and /dev/null differ diff --git a/programs/samples/open_gl/piggy_mini3.x b/programs/samples/open_gl/piggy_mini3.x deleted file mode 100644 index 538e6e173..000000000 --- a/programs/samples/open_gl/piggy_mini3.x +++ /dev/null @@ -1,20559 +0,0 @@ -xof 0303txt 0032 - -Frame Root { - FrameTransformMatrix { - 1.000000, 0.000000, 0.000000, 0.000000, - 0.000000, 0.000000, 1.000000, 0.000000, - 0.000000, 1.000000,-0.000000, 0.000000, - 0.000000, 0.000000, 0.000000, 1.000000;; - } - Frame Cube { - FrameTransformMatrix { - 1.000000, 0.000000, 0.000000, 0.000000, - 0.000000, 1.000000, 0.000000, 0.000000, - 0.000000, 0.000000, 1.000000, 0.000000, - -3.908527, 2.806077, 2.743712, 1.000000;; - } - Mesh { //Cube_000 Mesh - 5684; - 3.205532;-2.708731;-2.119421;, - 3.193004;-2.714389;-2.119663;, - 3.193677;-2.716940;-2.107023;, - 3.206229;-2.711373;-2.106335;, - 3.199002;-2.695445;-2.141409;, - 3.186696;-2.701555;-2.140901;, - 3.190623;-2.709141;-2.131218;, - 3.203067;-2.703299;-2.131384;, - 3.185206;-2.592010;-2.168130;, - 3.211486;-2.571247;-2.167422;, - 3.206983;-2.567536;-2.133771;, - 3.180856;-2.588425;-2.135626;, - 3.388188;-1.536683;-2.175224;, - 3.417458;-1.552953;-2.174304;, - 3.417750;-1.549457;-2.140313;, - 3.388470;-1.533306;-2.142391;, - 3.204781;-2.678042;-2.146446;, - 3.193614;-2.685706;-2.148812;, - 3.199002;-2.695445;-2.141409;, - 3.209985;-2.687450;-2.139294;, - 3.156110;-2.632246;-2.074503;, - 3.145265;-2.640509;-2.076276;, - 3.142884;-2.635262;-2.087831;, - 3.153645;-2.626814;-2.086466;, - 3.129429;-2.658079;-2.093487;, - 3.134624;-2.645926;-2.090225;, - 3.136759;-2.650631;-2.079865;, - 3.140280;-2.657432;-2.071184;, - 3.134047;-2.667474;-2.077939;, - 3.131172;-2.661920;-2.085028;, - 3.273308;-1.706846;-2.100236;, - 3.262435;-1.715262;-2.100270;, - 3.258033;-1.709258;-2.089168;, - 3.269056;-1.701047;-2.089511;, - 3.194499;-1.686036;-2.146762;, - 3.199036;-1.676389;-2.155066;, - 3.191930;-1.666260;-2.140987;, - 3.189474;-1.678874;-2.136807;, - 3.191675;-1.681876;-2.142358;, - 3.182999;-2.642940;-2.215849;, - 3.205411;-2.619239;-2.223530;, - 3.193582;-2.602520;-2.198112;, - 3.185206;-2.592010;-2.168130;, - 3.164884;-2.618528;-2.166179;, - 3.147110;-2.686769;-2.105208;, - 3.148419;-2.671687;-2.097979;, - 3.153666;-2.682224;-2.081059;, - 3.157939;-2.668926;-2.071626;, - 3.177147;-2.703450;-2.046242;, - 3.165002;-2.719836;-2.073361;, - 3.993438;-2.585402;-1.352396;, - 3.990779;-2.582369;-1.355608;, - 3.991785;-2.518877;-1.339505;, - 3.994450;-2.520920;-1.334486;, - 3.001429;-1.779122;-2.083893;, - 2.992584;-1.792646;-2.181420;, - 3.003719;-1.789433;-2.183043;, - 3.012612;-1.775989;-2.084978;, - 2.970012;-1.906466;-2.237253;, - 2.980808;-1.849096;-2.245423;, - 2.983496;-1.821352;-2.215788;, - 2.979302;-2.088733;-2.327899;, - 2.981524;-2.330729;-2.303392;, - 2.992528;-2.331874;-2.306501;, - 2.990279;-2.088188;-2.331293;, - 2.983729;-2.089845;-1.988046;, - 2.995037;-2.075505;-1.997235;, - 2.995837;-2.060942;-1.988415;, - 2.986454;-2.059357;-1.972336;, - 3.013632;-2.045215;-1.991597;, - 3.016923;-2.047863;-1.995331;, - 3.016784;-2.000425;-2.001745;, - 3.013197;-1.995445;-1.998838;, - 3.015958;-1.985882;-2.012165;, - 3.012255;-1.980330;-2.009874;, - 3.013197;-1.995445;-1.998838;, - 3.016784;-2.000425;-2.001745;, - 3.009700;-2.359773;-2.038862;, - 3.013600;-2.353553;-2.039802;, - 3.014795;-2.346278;-2.025988;, - 3.015767;-2.334681;-2.014244;, - 3.012063;-2.340342;-2.011982;, - 3.010986;-2.352304;-2.024373;, - 3.994031;-1.813639;-1.663927;, - 3.995091;-1.759432;-1.602625;, - 3.996895;-1.767949;-1.606108;, - 3.995920;-1.824791;-1.659440;, - 3.984267;-2.427986;-1.547032;, - 3.986162;-2.438816;-1.552245;, - 3.984134;-2.430696;-1.550965;, - 3.006477;-2.344570;-2.009600;, - 3.012063;-2.340342;-2.011982;, - 3.012793;-2.325387;-2.003233;, - 3.007299;-2.329091;-2.000360;, - 3.006851;-2.077971;-2.104382;, - 3.007577;-2.093207;-2.093967;, - 3.003959;-2.093453;-2.096045;, - 3.003054;-2.077053;-2.107230;, - 3.006477;-2.344570;-2.009600;, - 3.007299;-2.329091;-2.000360;, - 2.998000;-2.329960;-1.997366;, - 2.997128;-2.345936;-2.006979;, - 3.221320;-2.661185;-2.133183;, - 3.225566;-2.653140;-2.123190;, - 3.218960;-2.641941;-2.125759;, - 3.211978;-2.645347;-2.136815;, - 3.216835;-2.653434;-2.136207;, - 3.998363;-2.516359;-1.420675;, - 3.998598;-2.501605;-1.425376;, - 3.985281;-2.500739;-1.414180;, - 3.984756;-2.533478;-1.407703;, - 3.998133;-2.530802;-1.419040;, - 3.357580;-2.657492;-1.887907;, - 3.338416;-2.634334;-1.894926;, - 3.363832;-2.682963;-1.908057;, - 3.377345;-2.719692;-1.928657;, - 3.386669;-2.776143;-1.981835;, - 3.399021;-2.750812;-1.926888;, - 3.397342;-2.735985;-1.911472;, - 3.391374;-2.715329;-1.896822;, - 3.380139;-2.692559;-1.889423;, - 2.980808;-1.849096;-2.245423;, - 2.970012;-1.906466;-2.237253;, - 2.970044;-2.416495;-2.220491;, - 2.980872;-2.442103;-2.244720;, - 2.976156;-2.327348;-2.296721;, - 2.978579;-1.886328;-2.270002;, - 3.279143;-1.649439;-2.145651;, - 3.272161;-1.652844;-2.156708;, - 3.277017;-1.660931;-2.156100;, - 3.282577;-1.655157;-2.145221;, - 3.189909;-1.663942;-2.132049;, - 3.188045;-1.677234;-2.130486;, - 3.189474;-1.678874;-2.136807;, - 3.191930;-1.666260;-2.140987;, - 3.414689;-1.601629;-2.050883;, - 3.389566;-1.579510;-2.049504;, - 3.403312;-1.563203;-2.075711;, - 3.427967;-1.585878;-2.076197;, - 4.014580;-2.580492;-1.365877;, - 4.015474;-2.522730;-1.349835;, - 4.031638;-2.523432;-1.370785;, - 4.030874;-2.572837;-1.384509;, - 4.020977;-1.847659;-1.653648;, - 4.030293;-1.874436;-1.664936;, - 4.020869;-1.854423;-1.658459;, - 4.011595;-1.837035;-1.653570;, - 4.002554;-1.829084;-1.654836;, - 3.995920;-1.824791;-1.659440;, - 3.996895;-1.767949;-1.606108;, - 4.010099;-1.777850;-1.605124;, - 4.009969;-1.786067;-1.614532;, - 4.009613;-1.808466;-1.634660;, - 4.012018;-1.798299;-1.626554;, - 4.014148;-1.817553;-1.638782;, - 3.278996;-1.560613;-2.080968;, - 3.268233;-1.560673;-2.094092;, - 3.283577;-1.541894;-2.117024;, - 3.288383;-1.536769;-2.132510;, - 3.319342;-1.528306;-2.123277;, - 3.302825;-1.547084;-2.082844;, - 3.289310;-1.547676;-2.092933;, - 3.200567;-2.006592;-2.374852;, - 3.210271;-2.023336;-2.374852;, - 3.204415;-2.034864;-2.399446;, - 3.218777;-2.071708;-2.399446;, - 3.225949;-2.063556;-2.374852;, - 3.231654;-2.086342;-2.374852;, - 3.246657;-2.074108;-2.261767;, - 3.210453;-1.981230;-2.261767;, - 3.993438;-2.585402;-1.352396;, - 3.993047;-2.610248;-1.369934;, - 3.992669;-2.634174;-1.394752;, - 3.992094;-2.670248;-1.459224;, - 3.989455;-2.665712;-1.458346;, - 3.990779;-2.582369;-1.355608;, - 4.011209;-2.462267;-1.523499;, - 4.018464;-2.465564;-1.569979;, - 4.018465;-2.465518;-1.568580;, - 3.012063;-2.340342;-2.011982;, - 3.015767;-2.334681;-2.014244;, - 3.016385;-2.320265;-2.006044;, - 3.016624;-2.292110;-1.999433;, - 3.013282;-2.295740;-1.995856;, - 3.012793;-2.325387;-2.003233;, - 3.265099;-1.658540;-2.249588;, - 3.250427;-1.676943;-2.232566;, - 3.270642;-1.702500;-2.240402;, - 3.287007;-1.681973;-2.259388;, - 3.001108;-2.362445;-2.069003;, - 3.002523;-2.366118;-2.053438;, - 2.992986;-2.368244;-2.052652;, - 2.991514;-2.364424;-2.068884;, - 3.161327;-2.633785;-2.136612;, - 3.150304;-2.641996;-2.136268;, - 3.155759;-2.650033;-2.144776;, - 3.166973;-2.642105;-2.145420;, - 3.223983;-1.722817;-2.109074;, - 3.212138;-1.718865;-2.114241;, - 3.209937;-1.715863;-2.108690;, - 3.220870;-1.718572;-2.101223;, - 4.030027;-1.891209;-1.655235;, - 4.030027;-1.891225;-1.651495;, - 4.010139;-1.916526;-1.566837;, - 2.997772;-2.517889;-2.058357;, - 3.003752;-2.526238;-2.058270;, - 2.999050;-2.527817;-2.110128;, - 2.994195;-2.515328;-2.163659;, - 2.988465;-2.507517;-2.160990;, - 2.993171;-2.519514;-2.109097;, - 4.014545;-1.792579;-1.622564;, - 4.021320;-1.826064;-1.645136;, - 4.028078;-1.860622;-1.664978;, - 4.014435;-1.799516;-1.629434;, - 3.463943;-1.560923;-1.978467;, - 3.403137;-1.503893;-1.953626;, - 3.377899;-1.537154;-1.939041;, - 3.438706;-1.594184;-1.963882;, - 3.180828;-2.592010;-2.102814;, - 3.206953;-2.571247;-2.099802;, - 3.211400;-2.582127;-2.067831;, - 3.185122;-2.602520;-2.071933;, - 4.030202;-2.614227;-1.577150;, - 4.030626;-2.587488;-1.603575;, - 3.999762;-2.602933;-1.634484;, - 3.999220;-2.636981;-1.600843;, - 4.013797;-2.628877;-1.591102;, - 3.012091;-2.243619;-2.040189;, - 3.010317;-2.241808;-2.059480;, - 2.989474;-2.236827;-2.058576;, - 2.991543;-2.238936;-2.035766;, - 2.998534;-2.340662;-2.096065;, - 3.004542;-2.336594;-2.094514;, - 3.005663;-2.350068;-2.082907;, - 2.999756;-2.354596;-2.083802;, - 4.017525;-2.395806;-1.462314;, - 4.017150;-2.418193;-1.405975;, - 4.016943;-2.430708;-1.388433;, - 3.996088;-2.418198;-1.377575;, - 3.996315;-2.404239;-1.397150;, - 3.996723;-2.379231;-1.460097;, - 4.003275;-2.383217;-1.460604;, - 2.992528;-2.331874;-2.306501;, - 3.003871;-2.330385;-2.305442;, - 3.001641;-2.088742;-2.330027;, - 2.990279;-2.088188;-2.331293;, - 3.007577;-2.093207;-2.093967;, - 3.008815;-2.098776;-2.078430;, - 2.987585;-2.104482;-2.079404;, - 2.985895;-2.097097;-2.098039;, - 3.003959;-2.093453;-2.096045;, - 4.258196;-2.415531;-1.595792;, - 4.051947;-2.311198;-1.479042;, - 4.051947;-2.107468;-1.479042;, - 4.258196;-2.003136;-1.595792;, - 4.303000;-2.209333;-1.595792;, - 4.030327;-1.872319;-1.663299;, - 4.030293;-1.874436;-1.664936;, - 4.030324;-1.872530;-1.664236;, - 4.030369;-1.869696;-1.665979;, - 4.030389;-1.868456;-1.665229;, - 4.030405;-1.867455;-1.663238;, - 4.030432;-1.865764;-1.655737;, - 4.030416;-1.866765;-1.657729;, - 3.438706;-1.594184;-1.963882;, - 3.377899;-1.537154;-1.939041;, - 3.325266;-1.594769;-1.935603;, - 3.386073;-1.651800;-1.960444;, - 3.008461;-1.978545;-2.095049;, - 3.004399;-1.972816;-2.096615;, - 3.006032;-1.960733;-2.079072;, - 3.010058;-1.966867;-2.078367;, - 3.312707;-1.703368;-2.261437;, - 3.340450;-1.721267;-2.255595;, - 3.358787;-1.697363;-2.266958;, - 3.331691;-1.678621;-2.273202;, - 3.240164;-1.624172;-2.129879;, - 3.226763;-1.626421;-2.131620;, - 3.229524;-1.629588;-2.143830;, - 3.242639;-1.627012;-2.140827;, - 3.127863;-2.669737;-2.110594;, - 3.129524;-2.682895;-2.108510;, - 3.131403;-2.685297;-2.114655;, - 3.131493;-2.674378;-2.122466;, - 3.179982;-2.616674;-2.109987;, - 3.166581;-2.618924;-2.111727;, - 3.169341;-2.622091;-2.123937;, - 3.182457;-2.619514;-2.120934;, - 3.194801;-2.623383;-2.080638;, - 3.197675;-2.628937;-2.073550;, - 3.185272;-2.630182;-2.068080;, - 3.181752;-2.623381;-2.076761;, - 3.179617;-2.618676;-2.087121;, - 3.193058;-2.619542;-2.089097;, - 2.996212;-2.012338;-2.115192;, - 3.002756;-2.015020;-2.112898;, - 3.003054;-2.077053;-2.107230;, - 2.984748;-2.078852;-2.110696;, - 2.984589;-2.012272;-2.116549;, - 3.017637;-1.821771;-2.218126;, - 3.021067;-1.801734;-2.180293;, - 3.014966;-1.792468;-2.182996;, - 3.011447;-1.813030;-2.221821;, - 3.008571;-1.842638;-2.253547;, - 3.006283;-1.881469;-2.278793;, - 3.012606;-1.888460;-2.273642;, - 3.993131;-2.604484;-1.638497;, - 3.992575;-2.639438;-1.603964;, - 3.999220;-2.636981;-1.600843;, - 3.999762;-2.602933;-1.634484;, - 4.573459;-2.575008;-2.254237;, - 4.524392;-2.550187;-2.397807;, - 4.316871;-2.823530;-2.397807;, - 4.350827;-2.868256;-2.254237;, - 2.986040;-2.254133;-2.096442;, - 3.007776;-2.255708;-2.091168;, - 3.007287;-2.270165;-2.099252;, - 3.003506;-2.272329;-2.102087;, - 2.985195;-2.271832;-2.105763;, - 4.030405;-1.867455;-1.663238;, - 4.030389;-1.868456;-1.665229;, - 4.028108;-1.858703;-1.663956;, - 4.021320;-1.826064;-1.645136;, - 4.014545;-1.792579;-1.622564;, - 4.012305;-1.780290;-1.610040;, - 4.012395;-1.774611;-1.598792;, - 3.398159;-2.666129;-2.153014;, - 3.398116;-2.671570;-2.103218;, - 3.393780;-2.666129;-2.087698;, - 3.393960;-2.651225;-2.095386;, - 3.391768;-2.648195;-2.090080;, - 3.390941;-2.635736;-2.099164;, - 3.393817;-2.635736;-2.142057;, - 3.395849;-2.648195;-2.150939;, - 3.397310;-2.651225;-2.145374;, - 3.216835;-2.653434;-2.136207;, - 3.208737;-2.660185;-2.144819;, - 3.214231;-2.669678;-2.141115;, - 3.221320;-2.661185;-2.133183;, - 3.261562;-1.665512;-2.077111;, - 3.250629;-1.672530;-2.072765;, - 3.243996;-1.661483;-2.073595;, - 3.255615;-1.655608;-2.077857;, - 3.669576;-1.376339;-2.087381;, - 3.669074;-1.374029;-2.125896;, - 3.669236;-1.374773;-2.162286;, - 3.672038;-1.387670;-2.254237;, - 4.029113;-1.387670;-2.254237;, - 4.031575;-1.376339;-2.087381;, - 3.996723;-2.379231;-1.460097;, - 3.996789;-2.375545;-1.509620;, - 3.996772;-2.376614;-1.539441;, - 4.003327;-2.380665;-1.537867;, - 4.003275;-2.383217;-1.460604;, - 2.987208;-2.039366;-1.971199;, - 2.986454;-2.059357;-1.972336;, - 2.995837;-2.060942;-1.988415;, - 2.996571;-2.044477;-1.984415;, - 3.153645;-2.626814;-2.086466;, - 3.142884;-2.635262;-2.087831;, - 3.142211;-2.632711;-2.100471;, - 3.152948;-2.624172;-2.099552;, - 3.998363;-2.516359;-1.420675;, - 4.001312;-2.471997;-1.448540;, - 3.999027;-2.474556;-1.442588;, - 3.998598;-2.501605;-1.425376;, - 3.175185;-2.042439;-2.441194;, - 3.158460;-2.028802;-2.441194;, - 3.149563;-2.025323;-2.441194;, - 3.147947;-2.049498;-2.457637;, - 3.155561;-2.109347;-2.480069;, - 3.164886;-2.123842;-2.479908;, - 3.185699;-2.092404;-2.457637;, - 3.788187;-1.922211;-2.750684;, - 3.912964;-1.922211;-2.750684;, - 3.965010;-1.682684;-2.640707;, - 3.736141;-1.682684;-2.640706;, - 3.003942;-2.364612;-2.037755;, - 2.994468;-2.366689;-2.036313;, - 2.992986;-2.368244;-2.052652;, - 3.002523;-2.366118;-2.053438;, - 3.070753;-2.297978;-2.374852;, - 3.080458;-2.314722;-2.374852;, - 3.091185;-2.328840;-2.374852;, - 3.100237;-2.297978;-2.421694;, - 3.091478;-2.286450;-2.421694;, - 3.098299;-2.268951;-2.441194;, - 3.080458;-2.228910;-2.441194;, - 3.076448;-2.212894;-2.441194;, - 3.057022;-2.228733;-2.399446;, - 3.076609;-2.286450;-2.399446;, - 3.028586;-2.243925;-1.784442;, - 3.023648;-2.377887;-1.838879;, - 3.020891;-2.417092;-1.869283;, - 3.014447;-2.412195;-1.874474;, - 3.022039;-2.242898;-1.790757;, - 4.020518;-2.489552;-1.595666;, - 3.999768;-2.569115;-1.557696;, - 4.020562;-2.486774;-1.598170;, - 3.221017;-1.815763;-2.053544;, - 3.229093;-1.860287;-1.964509;, - 3.067724;-1.853657;-1.947374;, - 3.059466;-1.808128;-2.038419;, - 4.559834;-2.568116;-1.983812;, - 4.341398;-2.855837;-1.983812;, - 4.304189;-2.806826;-1.873017;, - 4.506066;-2.540917;-1.873017;, - 2.998379;-1.968483;-2.097898;, - 3.004399;-1.972816;-2.096615;, - 3.003321;-1.990538;-2.107697;, - 2.997022;-1.986880;-2.109592;, - 4.027549;-1.893863;-1.651788;, - 4.010392;-1.912704;-1.614970;, - 4.027549;-1.893863;-1.651788;, - 4.020869;-1.854423;-1.658459;, - 4.020869;-1.854423;-1.658459;, - 4.030293;-1.874436;-1.664936;, - 4.027921;-1.870480;-1.664061;, - 3.208538;-1.819215;-2.191152;, - 3.046705;-1.811658;-2.179131;, - 3.043371;-1.831131;-2.215900;, - 3.205278;-1.838259;-2.227109;, - 4.001479;-2.461463;-1.458357;, - 3.992532;-2.459714;-1.451349;, - 3.992695;-2.449459;-1.465474;, - 3.986143;-2.445522;-1.461092;, - 3.985281;-2.500739;-1.414180;, - 3.998598;-2.501605;-1.425376;, - 3.999027;-2.474556;-1.442588;, - 4.001312;-2.471997;-1.448540;, - 3.999427;-2.590586;-1.508035;, - 3.997187;-2.590340;-1.523940;, - 3.999459;-2.588610;-1.524234;, - 3.994581;-1.914238;-1.523432;, - 4.010329;-1.904618;-1.528780;, - 4.010510;-1.893198;-1.513050;, - 4.011009;-1.861807;-1.488967;, - 3.995346;-1.866962;-1.479398;, - 3.994763;-1.901883;-1.506079;, - 3.062248;-2.071708;-2.399446;, - 3.055075;-2.063556;-2.374852;, - 3.049371;-2.086342;-2.374852;, - 3.034367;-2.074108;-2.261767;, - 3.034367;-2.247206;-2.261767;, - 3.057022;-2.228733;-2.399446;, - 3.054720;-2.013198;-1.809245;, - 3.049504;-2.009493;-1.802195;, - 3.047559;-1.964838;-1.823636;, - 3.037163;-1.836822;-1.938258;, - 3.032964;-1.808377;-1.984546;, - 3.038604;-1.817235;-1.986923;, - 3.042695;-1.844950;-1.941821;, - 3.052824;-1.969686;-1.830137;, - 4.004150;-1.911627;-1.425686;, - 4.025336;-1.904149;-1.437687;, - 4.024984;-1.925979;-1.451075;, - 4.024515;-1.954904;-1.482690;, - 4.003242;-1.968301;-1.475941;, - 4.003760;-1.936004;-1.440634;, - 3.241934;-2.557653;-2.164103;, - 3.237584;-2.554068;-2.131599;, - 3.206983;-2.567536;-2.133771;, - 3.211486;-2.571247;-2.167422;, - 4.012018;-1.798299;-1.626554;, - 4.009969;-1.786067;-1.614532;, - 4.012178;-1.788222;-1.618588;, - 4.014435;-1.799516;-1.629434;, - 4.014299;-1.808021;-1.634187;, - 4.014148;-1.817553;-1.638782;, - 2.989756;-2.103851;-2.055469;, - 2.987585;-2.104482;-2.079404;, - 3.008815;-2.098776;-2.078430;, - 3.010619;-2.097890;-2.057669;, - 3.225157;-2.691906;-2.104329;, - 3.216966;-2.702835;-2.105416;, - 3.215886;-2.702516;-2.092553;, - 3.224188;-2.691621;-2.092796;, - 2.966298;-2.334145;-2.154763;, - 2.973206;-2.286079;-2.118433;, - 2.973933;-2.310206;-2.117594;, - 2.973225;-2.452587;-2.189520;, - 2.970044;-2.416495;-2.220491;, - 2.970012;-1.906466;-2.237253;, - 2.983496;-1.821352;-2.215788;, - 2.995525;-1.788345;-2.083136;, - 3.004508;-1.817490;-1.984084;, - 3.020539;-2.012505;-1.807301;, - 3.003961;-2.026110;-1.846477;, - 3.006023;-2.242874;-1.823746;, - 2.990221;-1.981937;-1.988220;, - 2.988887;-1.964842;-2.002925;, - 2.983875;-1.939258;-2.058193;, - 2.981338;-1.943606;-2.086169;, - 2.978604;-1.957771;-2.109146;, - 2.975305;-1.978001;-2.123995;, - 2.972208;-2.083688;-2.129435;, - 2.973229;-2.109650;-2.118178;, - 2.974053;-2.129106;-2.094744;, - 2.983729;-2.089845;-1.988046;, - 2.972758;-2.241735;-2.101233;, - 3.028586;-2.243925;-1.784442;, - 3.027127;-2.009352;-1.800528;, - 3.038544;-2.008280;-1.799057;, - 3.039991;-2.244279;-1.783122;, - 3.198489;-2.624471;-2.124556;, - 3.195377;-2.620226;-2.116705;, - 3.182457;-2.619514;-2.120934;, - 3.186270;-2.624713;-2.130549;, - 3.191160;-2.631919;-2.138177;, - 3.202482;-2.630355;-2.130785;, - 2.978604;-1.957771;-2.109146;, - 2.981338;-1.943606;-2.086169;, - 2.990553;-1.953971;-2.079484;, - 2.988446;-1.966943;-2.098617;, - 3.197134;-2.675786;-2.055399;, - 3.185697;-2.683370;-2.054554;, - 3.178775;-2.672238;-2.051937;, - 3.190447;-2.665033;-2.052872;, - 4.043968;-1.747561;-1.474957;, - 4.028047;-1.731585;-1.461573;, - 4.028228;-1.719984;-1.477485;, - 4.028583;-1.698269;-1.555647;, - 4.044425;-1.719061;-1.555421;, - 4.020855;-2.468367;-1.581089;, - 4.018465;-2.465518;-1.568580;, - 4.018464;-2.465564;-1.569979;, - 4.020855;-2.468367;-1.581089;, - 4.018464;-2.465564;-1.569979;, - 4.020851;-2.468617;-1.581663;, - 3.200462;-1.664930;-2.091076;, - 3.194229;-1.674971;-2.097832;, - 3.191355;-1.669418;-2.104920;, - 3.196942;-1.658128;-2.099758;, - 4.002737;-2.000074;-1.594920;, - 4.000090;-1.996450;-1.595612;, - 4.000137;-1.993443;-1.547091;, - 4.002768;-1.998023;-1.545823;, - 4.020853;-2.468491;-1.581752;, - 4.020851;-2.468630;-1.580616;, - 4.020840;-2.469292;-1.579672;, - 4.030027;-1.891225;-1.651495;, - 4.030027;-1.891209;-1.655235;, - 4.027549;-1.893863;-1.651788;, - 4.027549;-1.893863;-1.651788;, - 4.030027;-1.891209;-1.655235;, - 4.030282;-1.875183;-1.636418;, - 4.030233;-1.878269;-1.636417;, - 4.030182;-1.881454;-1.637553;, - 4.030134;-1.884469;-1.639480;, - 4.030233;-1.878269;-1.636417;, - 3.007721;-2.043707;-1.987934;, - 3.013632;-2.045215;-1.991597;, - 3.013197;-1.995445;-1.998838;, - 3.007704;-1.991802;-1.995914;, - 3.216293;-2.700283;-2.118056;, - 3.205532;-2.708731;-2.119421;, - 3.206229;-2.711373;-2.106335;, - 3.216966;-2.702835;-2.105416;, - 4.030027;-1.891209;-1.655235;, - 4.030027;-1.891225;-1.651495;, - 4.030038;-1.890504;-1.647928;, - 4.030038;-1.890504;-1.647928;, - 4.030027;-1.891225;-1.651495;, - 4.020855;-2.468316;-1.592277;, - 4.020859;-2.468104;-1.589609;, - 4.020855;-2.468316;-1.592277;, - 4.020855;-2.468316;-1.592277;, - 4.020855;-2.468316;-1.592277;, - 4.018452;-2.466290;-1.588789;, - 3.386669;-2.776143;-1.981836;, - 3.399021;-2.750812;-1.926888;, - 3.332827;-2.794918;-1.891675;, - 3.320475;-2.820248;-1.946624;, - 3.192020;-2.656407;-2.151408;, - 3.180403;-2.663307;-2.153949;, - 3.187270;-2.674744;-2.153089;, - 3.198653;-2.667454;-2.150577;, - 2.992584;-1.792646;-2.181420;, - 2.989091;-1.812998;-2.219939;, - 3.000170;-1.810165;-2.222188;, - 3.003719;-1.789433;-2.183043;, - 2.998379;-1.968483;-2.097898;, - 2.997022;-1.986880;-2.109592;, - 2.986231;-1.985998;-2.110747;, - 2.988446;-1.966943;-2.098617;, - 2.983875;-1.939258;-2.058193;, - 2.988887;-1.964842;-2.002925;, - 2.997310;-1.974599;-2.004977;, - 2.995210;-1.959129;-2.028129;, - 2.992744;-1.950295;-2.055328;, - 3.401871;-1.690019;-2.255108;, - 3.377846;-1.671711;-2.269926;, - 3.358787;-1.697363;-2.266958;, - 3.384783;-1.713018;-2.252448;, - 2.989008;-2.298225;-1.972887;, - 2.984540;-2.242354;-1.993448;, - 2.979253;-2.218866;-2.037402;, - 2.977530;-2.220845;-2.070751;, - 2.972758;-2.241735;-2.101233;, - 2.983729;-2.089845;-1.988046;, - 2.986454;-2.059357;-1.972336;, - 2.987208;-2.039366;-1.971199;, - 2.990221;-1.981937;-1.988220;, - 3.006023;-2.242874;-1.823746;, - 3.022039;-2.242898;-1.790757;, - 3.014447;-2.412195;-1.874474;, - 2.997772;-2.517889;-2.058357;, - 2.993171;-2.519514;-2.109097;, - 2.973225;-2.452587;-2.189520;, - 2.973933;-2.310206;-2.117594;, - 2.979382;-2.355247;-2.100561;, - 2.982490;-2.374919;-2.073463;, - 2.984600;-2.380187;-2.038805;, - 2.989165;-2.354721;-1.999860;, - 3.984049;-2.577489;-1.564713;, - 3.999768;-2.569115;-1.557696;, - 3.999459;-2.588610;-1.524234;, - 3.997187;-2.590340;-1.523940;, - 3.983688;-2.599617;-1.526998;, - 4.030439;-1.865268;-1.646772;, - 4.030432;-1.865764;-1.655737;, - 4.030405;-1.867455;-1.663238;, - 4.030414;-1.866868;-1.660376;, - 4.030416;-1.866700;-1.657202;, - 4.030413;-1.866958;-1.654273;, - 4.030402;-1.867646;-1.651583;, - 4.030364;-1.870025;-1.646145;, - 4.030346;-1.871125;-1.641886;, - 4.030322;-1.872650;-1.638070;, - 4.030282;-1.875183;-1.636418;, - 4.030325;-1.872438;-1.637132;, - 4.030360;-1.870279;-1.638136;, - 4.030387;-1.868545;-1.639582;, - 4.030411;-1.867076;-1.641624;, - 3.046705;-1.811658;-2.179131;, - 3.055057;-1.799030;-2.087030;, - 3.029661;-1.788740;-2.085524;, - 3.021067;-1.801734;-2.180293;, - 3.994031;-1.813639;-1.663927;, - 3.995920;-1.824791;-1.659440;, - 3.993865;-1.818372;-1.664564;, - 4.559834;-2.568116;-1.983812;, - 4.583427;-2.580050;-2.087381;, - 4.357725;-2.877342;-2.087381;, - 4.341398;-2.855837;-1.983812;, - 3.189909;-1.663942;-2.132049;, - 3.189119;-1.663709;-2.122633;, - 3.189611;-1.665577;-2.113379;, - 3.187834;-1.678390;-2.117285;, - 3.188045;-1.677234;-2.130486;, - 2.990279;-2.088188;-2.331293;, - 3.001641;-2.088742;-2.330027;, - 3.006283;-1.881469;-2.278793;, - 2.994962;-1.879169;-2.279630;, - 2.980872;-2.442103;-2.244720;, - 2.970044;-2.416495;-2.220491;, - 2.973225;-2.452587;-2.189520;, - 2.993171;-2.519514;-2.109097;, - 2.988465;-2.507517;-2.160990;, - 2.984187;-2.481760;-2.208158;, - 3.984756;-2.533478;-1.407703;, - 3.984558;-2.548171;-1.410280;, - 3.997927;-2.543816;-1.420871;, - 3.998133;-2.530802;-1.419040;, - 3.125463;-2.109347;-2.480069;, - 3.118716;-2.057073;-2.457637;, - 3.133078;-2.049498;-2.457637;, - 3.131461;-2.025323;-2.441194;, - 3.122564;-2.028802;-2.441194;, - 3.105840;-2.042439;-2.441194;, - 3.112033;-2.063556;-2.457637;, - 3.095326;-2.092404;-2.457637;, - 3.116139;-2.123842;-2.479908;, - 3.076111;-2.365633;-1.854934;, - 3.237295;-2.360963;-1.874110;, - 3.234753;-2.397141;-1.902147;, - 3.073511;-2.402628;-1.883605;, - 4.015782;-2.503154;-1.351948;, - 4.015474;-2.522730;-1.349835;, - 3.994450;-2.520920;-1.334486;, - 3.994796;-2.499079;-1.336850;, - 3.197851;-2.701760;-2.069275;, - 3.185584;-2.707654;-2.071225;, - 3.180129;-2.699618;-2.062717;, - 3.192204;-2.693439;-2.060467;, - 3.285313;-1.675569;-2.147840;, - 3.288442;-1.665507;-2.139381;, - 3.282577;-1.655157;-2.145221;, - 3.277017;-1.660931;-2.156100;, - 3.281503;-1.668682;-2.153075;, - 3.239195;-1.623886;-2.118347;, - 3.225683;-1.626103;-2.118757;, - 3.226763;-1.626421;-2.131620;, - 3.240164;-1.624172;-2.129879;, - 3.233776;-1.635388;-2.154554;, - 3.221509;-1.641283;-2.156505;, - 3.227155;-1.649603;-2.165313;, - 3.239230;-1.643425;-2.163062;, - 3.393960;-2.651225;-2.095386;, - 3.393780;-2.666129;-2.087698;, - 3.380162;-2.646197;-2.064644;, - 3.363163;-2.618968;-2.057059;, - 3.370527;-2.615131;-2.071936;, - 3.367276;-2.609691;-2.072598;, - 3.373680;-2.608599;-2.086844;, - 3.390941;-2.635736;-2.099164;, - 3.391768;-2.648195;-2.090080;, - 3.240311;-1.707116;-2.082610;, - 3.228200;-1.711123;-2.087602;, - 3.222565;-1.702403;-2.082481;, - 3.234026;-1.697389;-2.076898;, - 4.021320;-1.826064;-1.645136;, - 4.028108;-1.858703;-1.663956;, - 4.028078;-1.860622;-1.664978;, - 3.194229;-1.674971;-2.097832;, - 3.202525;-1.689609;-2.089572;, - 3.196965;-1.695384;-2.100451;, - 3.191099;-1.685033;-2.106292;, - 3.996772;-2.376614;-1.539441;, - 3.996789;-2.375545;-1.509620;, - 3.995013;-2.377256;-1.519543;, - 3.993996;-2.380162;-1.540186;, - 4.021170;-1.835496;-1.649585;, - 4.014148;-1.817553;-1.638782;, - 4.014299;-1.808021;-1.634187;, - 4.021170;-1.835496;-1.649585;, - 4.014299;-1.808021;-1.634187;, - 4.014435;-1.799516;-1.629434;, - 3.291497;-1.673306;-2.115185;, - 3.289632;-1.686598;-2.113623;, - 3.287611;-1.684280;-2.104685;, - 3.290068;-1.671667;-2.108865;, - 3.012013;-1.963593;-2.057059;, - 3.010058;-1.966867;-2.078367;, - 3.006032;-1.960733;-2.079072;, - 3.008065;-1.957359;-2.056780;, - 3.052818;-2.507687;-2.111768;, - 3.214516;-2.499881;-2.125275;, - 3.210011;-2.488256;-2.174958;, - 3.048212;-2.495800;-2.162571;, - 3.006667;-1.976122;-2.007505;, - 3.007704;-1.991802;-1.995914;, - 3.013197;-1.995445;-1.998838;, - 3.012255;-1.980330;-2.009874;, - 3.008461;-1.978545;-2.095049;, - 3.007374;-1.995583;-2.105432;, - 3.003321;-1.990538;-2.107697;, - 3.004399;-1.972816;-2.096615;, - 4.021170;-1.835496;-1.649585;, - 4.028011;-1.864812;-1.661203;, - 4.014148;-1.817553;-1.638782;, - 4.030027;-1.891209;-1.655235;, - 4.010139;-1.916526;-1.566837;, - 3.994382;-1.927269;-1.565174;, - 3.994287;-1.926526;-1.608837;, - 4.001117;-1.919515;-1.609051;, - 4.010392;-1.912704;-1.614970;, - 4.027549;-1.893863;-1.651788;, - 3.234753;-2.397141;-1.902147;, - 3.223178;-2.485069;-2.029774;, - 3.061675;-2.492540;-2.014112;, - 3.073511;-2.402628;-1.883605;, - 2.986245;-1.842316;-2.251331;, - 2.997270;-1.840016;-2.254175;, - 3.000170;-1.810165;-2.222188;, - 2.989091;-1.812998;-2.219939;, - 3.003942;-2.364612;-2.037755;, - 3.009700;-2.359773;-2.038862;, - 3.010986;-2.352304;-2.024373;, - 3.005309;-2.356920;-2.022604;, - 4.020851;-2.468630;-1.580616;, - 4.018453;-2.466278;-1.567345;, - 4.011209;-2.462267;-1.523499;, - 4.018465;-2.465518;-1.568580;, - 4.020855;-2.468367;-1.581089;, - 3.140512;-2.048535;-2.457637;, - 3.147947;-2.049498;-2.457637;, - 3.149563;-2.025323;-2.441194;, - 3.151026;-2.003455;-2.421694;, - 3.140512;-2.002092;-2.421694;, - 3.129999;-2.003455;-2.421694;, - 3.131461;-2.025323;-2.441194;, - 3.133078;-2.049498;-2.457637;, - 3.006667;-1.976122;-2.007505;, - 2.997310;-1.974599;-2.004977;, - 2.998400;-1.990833;-1.992958;, - 3.007704;-1.991802;-1.995914;, - 3.997504;-2.570372;-1.435224;, - 3.984107;-2.578274;-1.427415;, - 3.983863;-2.591911;-1.442410;, - 3.997314;-2.582368;-1.448381;, - 3.008410;-2.511840;-2.006917;, - 3.019657;-2.514511;-2.007330;, - 3.014965;-2.529078;-2.059070;, - 3.003752;-2.526238;-2.058270;, - 3.214516;-2.499881;-2.125275;, - 3.052818;-2.507687;-2.111768;, - 3.057268;-2.506219;-2.062703;, - 3.218868;-2.498446;-2.077293;, - 3.362270;-2.709958;-2.042372;, - 3.339858;-2.733660;-2.034692;, - 3.325380;-2.711872;-2.015572;, - 3.349289;-2.690424;-2.025230;, - 3.993131;-2.604484;-1.638497;, - 3.990474;-2.601520;-1.636312;, - 3.989935;-2.635406;-1.601458;, - 3.992575;-2.639438;-1.603964;, - 3.210185;-2.775986;-2.077047;, - 3.201061;-2.762255;-2.064997;, - 3.190889;-2.746264;-2.057737;, - 3.201177;-2.743315;-2.044536;, - 3.225230;-2.734048;-2.022681;, - 3.239700;-2.756797;-2.033009;, - 3.252681;-2.776332;-2.050152;, - 3.223591;-2.777839;-2.066966;, - 3.992007;-2.675579;-1.487321;, - 3.989367;-2.671202;-1.485960;, - 3.989455;-2.665712;-1.458346;, - 3.992094;-2.670248;-1.459224;, - 4.053371;-1.897962;-1.489159;, - 4.041350;-1.913830;-1.465979;, - 4.041651;-1.895158;-1.454529;, - 4.053602;-1.883553;-1.480324;, - 3.529938;-2.631673;-2.640706;, - 3.736141;-2.735982;-2.640706;, - 3.788187;-2.496456;-2.750684;, - 3.597971;-2.337115;-2.750684;, - 3.387240;-2.443714;-2.640706;, - 3.993366;-2.419482;-1.383084;, - 3.991090;-2.390164;-1.542317;, - 3.993996;-2.380162;-1.540186;, - 3.995013;-2.377256;-1.519543;, - 4.003327;-2.380665;-1.537867;, - 4.033432;-2.412859;-1.527665;, - 4.033071;-2.434015;-1.418801;, - 4.017150;-2.418193;-1.405975;, - 4.017525;-2.395806;-1.462314;, - 4.003275;-2.383217;-1.460604;, - 3.313944;-2.736663;-1.854210;, - 3.291385;-2.701597;-1.852692;, - 3.272221;-2.678440;-1.859714;, - 3.297637;-2.727068;-1.872844;, - 3.311151;-2.763797;-1.893444;, - 3.320475;-2.820248;-1.946622;, - 3.332827;-2.794917;-1.891675;, - 3.331148;-2.780089;-1.876259;, - 3.325179;-2.759434;-1.861608;, - 4.006309;-1.775514;-1.416655;, - 4.003596;-1.775837;-1.421030;, - 4.004461;-1.721226;-1.457200;, - 4.007196;-1.718899;-1.452344;, - 3.250309;-2.568163;-2.194086;, - 3.241934;-2.557653;-2.164103;, - 3.211486;-2.571247;-2.167422;, - 3.220157;-2.582127;-2.198462;, - 3.398159;-2.666129;-2.153014;, - 3.396850;-2.681211;-2.160243;, - 3.399557;-2.687835;-2.140780;, - 3.396569;-2.703906;-2.144334;, - 3.393364;-2.703906;-2.096520;, - 3.398116;-2.671570;-2.103218;, - 3.014966;-1.792468;-2.182996;, - 3.003719;-1.789433;-2.183043;, - 3.000170;-1.810165;-2.222188;, - 3.011447;-1.813030;-2.221821;, - 3.258836;-1.674951;-2.170470;, - 3.247452;-1.682242;-2.172982;, - 3.253796;-1.693204;-2.168705;, - 3.264964;-1.685539;-2.166338;, - 3.192204;-2.693439;-2.060467;, - 3.180129;-2.699618;-2.062717;, - 3.173844;-2.689891;-2.057006;, - 3.185697;-2.683370;-2.054554;, - 2.998379;-1.968483;-2.097898;, - 2.988446;-1.966943;-2.098617;, - 2.990553;-1.953971;-2.079484;, - 3.000149;-1.955976;-2.079527;, - 3.289384;-1.579609;-2.239072;, - 3.315199;-1.591111;-2.257387;, - 3.330124;-1.569679;-2.244972;, - 3.342386;-1.551275;-2.226038;, - 3.311582;-1.547084;-2.213475;, - 3.192596;-2.716621;-2.094159;, - 3.179195;-2.718871;-2.095900;, - 3.176720;-2.716031;-2.084953;, - 3.189836;-2.713454;-2.081950;, - 3.265764;-1.631191;-2.111910;, - 3.266996;-1.633908;-2.105928;, - 3.254983;-1.630881;-2.100531;, - 3.253240;-1.627039;-2.108990;, - 3.252747;-1.625172;-2.118243;, - 3.265415;-1.629871;-2.118453;, - 4.031638;-2.523432;-1.370785;, - 4.043437;-2.522058;-1.402162;, - 4.042052;-2.610309;-1.475865;, - 4.029849;-2.637803;-1.466305;, - 4.030874;-2.572837;-1.384509;, - 3.424413;-1.479054;-1.958567;, - 3.485219;-1.536085;-1.983408;, - 3.472802;-1.562364;-1.953471;, - 3.411995;-1.505334;-1.928631;, - 3.044011;-2.470646;-2.208903;, - 3.040778;-2.432315;-2.244557;, - 3.014969;-2.440383;-2.247613;, - 3.018295;-2.479824;-2.210927;, - 3.265714;-1.716229;-2.139314;, - 3.253186;-1.721886;-2.139555;, - 3.253859;-1.724438;-2.126915;, - 3.266412;-1.718871;-2.126228;, - 3.245454;-1.637680;-2.087973;, - 3.232664;-1.641488;-2.084878;, - 3.228737;-1.633902;-2.094562;, - 3.241934;-1.630879;-2.096654;, - 3.226763;-1.626421;-2.131620;, - 3.214248;-1.632000;-2.132761;, - 3.217106;-1.635279;-2.145402;, - 3.229524;-1.629588;-2.143830;, - 2.995956;-2.281770;-1.991196;, - 2.997286;-2.297609;-1.988836;, - 3.007612;-2.298022;-1.992312;, - 3.013282;-2.295740;-1.995856;, - 3.012949;-2.281602;-1.998274;, - 3.202393;-1.640208;-2.120363;, - 3.194203;-1.651136;-2.121450;, - 3.195172;-1.651422;-2.132983;, - 3.203473;-1.640527;-2.133226;, - 3.010256;-2.325861;-2.299608;, - 3.003871;-2.330385;-2.305442;, - 3.008708;-2.447918;-2.252079;, - 3.012122;-2.488395;-2.214431;, - 3.018295;-2.479824;-2.210927;, - 3.014969;-2.440383;-2.247613;, - 3.137856;-2.674361;-2.072704;, - 3.142342;-2.682112;-2.069679;, - 3.147198;-2.690199;-2.069072;, - 3.140217;-2.693604;-2.080128;, - 3.133611;-2.682405;-2.082697;, - 3.219980;-1.668470;-2.178372;, - 3.230197;-1.699942;-2.183045;, - 3.250427;-1.676943;-2.232566;, - 3.236498;-1.649692;-2.218805;, - 3.025176;-1.964569;-1.822026;, - 3.036582;-1.963252;-1.820678;, - 3.038544;-2.008280;-1.799057;, - 3.027127;-2.009352;-1.800528;, - 3.302348;-1.757544;-2.085114;, - 3.273262;-1.740925;-2.084943;, - 3.283380;-1.724619;-2.057041;, - 3.312122;-1.741793;-2.058164;, - 4.020585;-2.485354;-1.571178;, - 4.020620;-2.483118;-1.570867;, - 4.020660;-2.480618;-1.571153;, - 4.020740;-2.475592;-1.573276;, - 4.020840;-2.469292;-1.579672;, - 4.020851;-2.468630;-1.580616;, - 4.020855;-2.468367;-1.581089;, - 4.020851;-2.468617;-1.581663;, - 4.020785;-2.472751;-1.579529;, - 4.020744;-2.475323;-1.578706;, - 4.020705;-2.477822;-1.578420;, - 4.020669;-2.480059;-1.578731;, - 4.020634;-2.482253;-1.579654;, - 4.020597;-2.484627;-1.581206;, - 4.020564;-2.486703;-1.583490;, - 4.020523;-2.489268;-1.589195;, - 4.020471;-2.492510;-1.590444;, - 4.020484;-2.491707;-1.592734;, - 4.020461;-2.493172;-1.589500;, - 4.020449;-2.493881;-1.586092;, - 4.020459;-2.493299;-1.579058;, - 4.020480;-2.491998;-1.575937;, - 4.020513;-2.489922;-1.573653;, - 3.391373;-2.715329;-1.896822;, - 3.380139;-2.692559;-1.889422;, - 3.313944;-2.736664;-1.854210;, - 3.325179;-2.759434;-1.861608;, - 3.264432;-1.663546;-2.254237;, - 3.255779;-1.673555;-2.249337;, - 3.236078;-1.693836;-2.229350;, - 3.219295;-1.708433;-2.202874;, - 3.208374;-1.718101;-2.171770;, - 3.203723;-1.722031;-2.137999;, - 3.206208;-1.720503;-2.103618;, - 3.210395;-1.716551;-2.087381;, - 3.117724;-1.838616;-2.087381;, - 3.127692;-1.843659;-2.254237;, - 3.297143;-1.767445;-2.116061;, - 3.296861;-1.770822;-2.148894;, - 3.267581;-1.754672;-2.150972;, - 3.267873;-1.751176;-2.116981;, - 4.000137;-1.993443;-1.547091;, - 4.000090;-1.996450;-1.595612;, - 3.991911;-1.937239;-1.607132;, - 3.993387;-1.872757;-1.475339;, - 3.993883;-1.850964;-1.468047;, - 3.994872;-1.779970;-1.485483;, - 3.995033;-1.769117;-1.498571;, - 3.995236;-1.754376;-1.588851;, - 3.995091;-1.759432;-1.602625;, - 3.994031;-1.813639;-1.663927;, - 3.993865;-1.818372;-1.664564;, - 4.000711;-1.784749;-1.688827;, - 4.005012;-1.686638;-1.560080;, - 4.004461;-1.721226;-1.457200;, - 4.003596;-1.775837;-1.421030;, - 4.001498;-1.907912;-1.428421;, - 4.001114;-1.932040;-1.442927;, - 2.989756;-2.103851;-2.055469;, - 2.974053;-2.129106;-2.094744;, - 2.973229;-2.109650;-2.118178;, - 2.985895;-2.097097;-2.098039;, - 2.987585;-2.104482;-2.079404;, - 4.020564;-2.486703;-1.583490;, - 4.020597;-2.484627;-1.581206;, - 4.020634;-2.482253;-1.579654;, - 4.020669;-2.480059;-1.578731;, - 4.020705;-2.477822;-1.578420;, - 4.020744;-2.475323;-1.578706;, - 4.020785;-2.472751;-1.579529;, - 4.020851;-2.468617;-1.581663;, - 4.018464;-2.465564;-1.569979;, - 4.011209;-2.462267;-1.523499;, - 4.001479;-2.461463;-1.458357;, - 4.001312;-2.471997;-1.448540;, - 3.998363;-2.516359;-1.420675;, - 3.998133;-2.530802;-1.419040;, - 3.997927;-2.543816;-1.420871;, - 3.997504;-2.570372;-1.435224;, - 3.997314;-2.582368;-1.448381;, - 3.999427;-2.590586;-1.508035;, - 3.999459;-2.588610;-1.524234;, - 4.020471;-2.492510;-1.590444;, - 4.020523;-2.489268;-1.589195;, - 3.348866;-1.548489;-2.037413;, - 3.349750;-1.549654;-2.031197;, - 3.346416;-1.554046;-2.031197;, - 3.347581;-1.551857;-2.032942;, - 4.030182;-1.881454;-1.637553;, - 4.030134;-1.884469;-1.639480;, - 4.030093;-1.887050;-1.641853;, - 4.030061;-1.889095;-1.644669;, - 4.030134;-1.884469;-1.639480;, - 3.279600;-1.644307;-2.107967;, - 3.271723;-1.642704;-2.097214;, - 3.266996;-1.633908;-2.105928;, - 3.265764;-1.631191;-2.111910;, - 3.276515;-1.638348;-2.115573;, - 4.030293;-1.874436;-1.664936;, - 4.030327;-1.872319;-1.663299;, - 4.030293;-1.874436;-1.664936;, - 4.027921;-1.870480;-1.664061;, - 4.030093;-1.887050;-1.641853;, - 4.030061;-1.889095;-1.644669;, - 4.030038;-1.890504;-1.647928;, - 4.030038;-1.890504;-1.647928;, - 4.030061;-1.889095;-1.644669;, - 3.021422;-2.527508;-2.111860;, - 3.010227;-2.530641;-2.111313;, - 3.014965;-2.529078;-2.059070;, - 3.026121;-2.525958;-2.060048;, - 3.355816;-1.528276;-2.174129;, - 3.388188;-1.536683;-2.175224;, - 3.388470;-1.533306;-2.142391;, - 3.383810;-1.536683;-2.109909;, - 3.351890;-1.528276;-2.115568;, - 4.020859;-2.468081;-1.586709;, - 4.020859;-2.468104;-1.589609;, - 4.020855;-2.468316;-1.592277;, - 4.020859;-2.468104;-1.589609;, - 3.266412;-1.718871;-2.126228;, - 3.253859;-1.724438;-2.126915;, - 3.252779;-1.724119;-2.114052;, - 3.265293;-1.718541;-2.112911;, - 2.999050;-2.527817;-2.110128;, - 3.003752;-2.526238;-2.058270;, - 3.014965;-2.529078;-2.059070;, - 3.010227;-2.530641;-2.111313;, - 3.396021;-1.756452;-2.198352;, - 3.406334;-1.743516;-2.210317;, - 3.417891;-1.728451;-2.217479;, - 3.407910;-1.724519;-2.230659;, - 3.384783;-1.713018;-2.252448;, - 3.368343;-1.734450;-2.242259;, - 3.353670;-1.752853;-2.225237;, - 3.382506;-1.757044;-2.208441;, - 3.138854;-2.668892;-2.135174;, - 3.146167;-2.659169;-2.141281;, - 3.141277;-2.651963;-2.133653;, - 3.137464;-2.646764;-2.124038;, - 3.131748;-2.658763;-2.121094;, - 3.134861;-2.663009;-2.128945;, - 3.241852;-2.236904;-1.823877;, - 3.237295;-2.360963;-1.874110;, - 3.076111;-2.365633;-1.854934;, - 3.080771;-2.238774;-1.803568;, - 4.012002;-1.799356;-1.496141;, - 4.009583;-1.810364;-1.485659;, - 4.011816;-1.811021;-1.487604;, - 3.290068;-1.671667;-2.108865;, - 3.289096;-1.659299;-2.113997;, - 3.289945;-1.659550;-2.124103;, - 3.291708;-1.672150;-2.128387;, - 3.291497;-1.673306;-2.115185;, - 4.028011;-1.864812;-1.661203;, - 4.020977;-1.847659;-1.653648;, - 4.014148;-1.817553;-1.638782;, - 4.042000;-2.613460;-1.492472;, - 4.029779;-2.641885;-1.487826;, - 4.029849;-2.637803;-1.466305;, - 4.042052;-2.610309;-1.475865;, - 2.981524;-2.330729;-2.303392;, - 2.979302;-2.088733;-2.327899;, - 2.983957;-1.880982;-2.276562;, - 2.978579;-1.886328;-2.270002;, - 2.976156;-2.327348;-2.296721;, - 3.276068;-1.710013;-2.112445;, - 3.265293;-1.718541;-2.112911;, - 3.262435;-1.715262;-2.100270;, - 3.273308;-1.706846;-2.100236;, - 3.127692;-2.575008;-2.254237;, - 3.176759;-2.550187;-2.397807;, - 3.102696;-2.209333;-2.397807;, - 3.048236;-2.209333;-2.254237;, - 3.435393;-1.686962;-2.228708;, - 3.418443;-1.667020;-2.250059;, - 3.401871;-1.690019;-2.255108;, - 3.384783;-1.713018;-2.252448;, - 3.407910;-1.724519;-2.230659;, - 4.012305;-1.780290;-1.610040;, - 4.014545;-1.792579;-1.622564;, - 4.014435;-1.799516;-1.629434;, - 4.012305;-1.780290;-1.610040;, - 4.014435;-1.799516;-1.629434;, - 4.012178;-1.788222;-1.618588;, - 4.025748;-1.403156;-1.983812;, - 4.031575;-1.376339;-2.087381;, - 4.357725;-1.541324;-2.087381;, - 4.341398;-1.562829;-1.983812;, - 2.972208;-2.083688;-2.129435;, - 2.984748;-2.078852;-2.110696;, - 2.985895;-2.097097;-2.098039;, - 2.973229;-2.109650;-2.118178;, - 2.989756;-2.103851;-2.055469;, - 2.993729;-2.087900;-2.011659;, - 2.995037;-2.075505;-1.997235;, - 2.983729;-2.089845;-1.988046;, - 2.974053;-2.129106;-2.094744;, - 3.312707;-1.703368;-2.261437;, - 3.287007;-1.681973;-2.259388;, - 3.270642;-1.702500;-2.240402;, - 3.295765;-1.724619;-2.241781;, - 3.951250;-2.672654;-1.595792;, - 4.012468;-2.954394;-1.873017;, - 3.688683;-2.954395;-1.873017;, - 3.749902;-2.672654;-1.595792;, - 3.912964;-2.496456;-2.750684;, - 3.788187;-2.496456;-2.750684;, - 3.736141;-2.735982;-2.640706;, - 3.965010;-2.735982;-2.640706;, - 4.020869;-1.854423;-1.658459;, - 4.020869;-1.854423;-1.658459;, - 4.011595;-1.837035;-1.653570;, - 2.998534;-2.340662;-2.096065;, - 2.996926;-2.294406;-2.107031;, - 3.003397;-2.292240;-2.104686;, - 3.004542;-2.336594;-2.094514;, - 4.020857;-2.468219;-1.583961;, - 4.020853;-2.468491;-1.581752;, - 4.020840;-2.469292;-1.579672;, - 4.020853;-2.468491;-1.581752;, - 4.020857;-2.468219;-1.583961;, - 3.222225;-1.667257;-2.170381;, - 3.211984;-1.675387;-2.166295;, - 3.217980;-1.685028;-2.168561;, - 3.228912;-1.678010;-2.172907;, - 3.007721;-2.043707;-1.987934;, - 2.996571;-2.044477;-1.984415;, - 2.995837;-2.060942;-1.988415;, - 3.013197;-2.060053;-1.995339;, - 3.013632;-2.045215;-1.991597;, - 3.152363;-2.709135;-2.119851;, - 3.142206;-2.703289;-2.113302;, - 3.142844;-2.704695;-2.110206;, - 3.153595;-2.711851;-2.113870;, - 4.028078;-1.860622;-1.664978;, - 4.021170;-1.835496;-1.649585;, - 4.014435;-1.799516;-1.629434;, - 3.142972;-2.612384;-2.185548;, - 3.158580;-2.627739;-2.211766;, - 3.178176;-2.647882;-2.231750;, - 3.199370;-2.672323;-2.244003;, - 3.220691;-2.699400;-2.247552;, - 3.240622;-2.727216;-2.242043;, - 3.257719;-2.753777;-2.227793;, - 3.270733;-2.777161;-2.205787;, - 3.280587;-2.794821;-2.177613;, - 3.286604;-2.805572;-2.145130;, - 3.289295;-2.808258;-2.110425;, - 3.288290;-2.804717;-2.087381;, - 3.343426;-2.877342;-2.087381;, - 3.350325;-2.868256;-2.254237;, - 3.127692;-2.575008;-2.254237;, - 3.117724;-2.580051;-2.087381;, - 3.132235;-2.599164;-2.087381;, - 3.132209;-2.599139;-2.087482;, - 3.128925;-2.598086;-2.121487;, - 3.132849;-2.602734;-2.154723;, - 3.423430;-1.686962;-2.050262;, - 3.395947;-1.724519;-2.052213;, - 3.370132;-1.713018;-2.033898;, - 3.386703;-1.690019;-2.028848;, - 3.403792;-1.667020;-2.031509;, - 2.972208;-2.083688;-2.129435;, - 2.975305;-1.978001;-2.123995;, - 2.986231;-1.985998;-2.110747;, - 2.984589;-2.012272;-2.116549;, - 2.984748;-2.078852;-2.110696;, - 3.239230;-1.643425;-2.163062;, - 3.227155;-1.649603;-2.165313;, - 3.233662;-1.659673;-2.171227;, - 3.245515;-1.653151;-2.168774;, - 3.014447;-2.412195;-1.874474;, - 3.020891;-2.417092;-1.869283;, - 3.008410;-2.511840;-2.006917;, - 3.003752;-2.526238;-2.058270;, - 2.997772;-2.517889;-2.058357;, - 4.024984;-1.925979;-1.451075;, - 4.025336;-1.904149;-1.437687;, - 4.041651;-1.895158;-1.454529;, - 4.041350;-1.913830;-1.465979;, - 3.185333;-2.645654;-2.148882;, - 3.173480;-2.652175;-2.151334;, - 3.180403;-2.663307;-2.153949;, - 3.192020;-2.656407;-2.151408;, - 3.185697;-2.683370;-2.054554;, - 3.173844;-2.689891;-2.057006;, - 3.167157;-2.679138;-2.054479;, - 3.178775;-2.672238;-2.051937;, - 3.989935;-2.635406;-1.601458;, - 3.990474;-2.601520;-1.636312;, - 3.982123;-2.553131;-1.600336;, - 3.981714;-2.607305;-1.463974;, - 3.982010;-2.598047;-1.442937;, - 3.982835;-2.537404;-1.402111;, - 3.983093;-2.520420;-1.402878;, - 3.984281;-2.443695;-1.452676;, - 3.984324;-2.436901;-1.465681;, - 3.984267;-2.427986;-1.547032;, - 3.984134;-2.430696;-1.550965;, - 3.991090;-2.390164;-1.542317;, - 3.993366;-2.419482;-1.383084;, - 3.991785;-2.518877;-1.339505;, - 3.990779;-2.582369;-1.355608;, - 3.989455;-2.665712;-1.458346;, - 3.989367;-2.671202;-1.485960;, - 3.194824;-2.773862;-2.159747;, - 3.208345;-2.781091;-2.166487;, - 3.190453;-2.748025;-2.198334;, - 3.182106;-2.733930;-2.201163;, - 3.174742;-2.737768;-2.186286;, - 3.171435;-2.732328;-2.186089;, - 3.166967;-2.736632;-2.171706;, - 3.182421;-2.763769;-2.157063;, - 3.193362;-2.770832;-2.165312;, - 3.380139;-2.692559;-1.889422;, - 3.357579;-2.657492;-1.887907;, - 3.291385;-2.701597;-1.852693;, - 3.313944;-2.736664;-1.854210;, - 3.281392;-2.676449;-2.259742;, - 3.264102;-2.648260;-2.256497;, - 3.236029;-2.666400;-2.254169;, - 3.252730;-2.693628;-2.257304;, - 3.040648;-1.859171;-2.245945;, - 3.202615;-1.865679;-2.256492;, - 3.205278;-1.838259;-2.227109;, - 3.043371;-1.831131;-2.215900;, - 3.303009;-1.537750;-2.188407;, - 3.287956;-1.541894;-2.182339;, - 3.267200;-1.573046;-2.214390;, - 3.289384;-1.579609;-2.239072;, - 3.311582;-1.547084;-2.213475;, - 3.296849;-1.547676;-2.205392;, - 3.185272;-2.630182;-2.068080;, - 3.172481;-2.633990;-2.064986;, - 3.168555;-2.626404;-2.074669;, - 3.181752;-2.623381;-2.076761;, - 3.321679;-2.575059;-2.191256;, - 3.306887;-2.555127;-2.150700;, - 3.274473;-2.552155;-2.158400;, - 3.292589;-2.576567;-2.208070;, - 4.016943;-2.430708;-1.388433;, - 4.017150;-2.418193;-1.405975;, - 4.033071;-2.434015;-1.418801;, - 4.032893;-2.444721;-1.403797;, - 3.297143;-1.767445;-2.116061;, - 3.329515;-1.775852;-2.117157;, - 3.333441;-1.775852;-2.175717;, - 3.301521;-1.767445;-2.181376;, - 3.296861;-1.770822;-2.148894;, - 3.163745;-2.687435;-2.147923;, - 3.153206;-2.691971;-2.140597;, - 3.157691;-2.699722;-2.137572;, - 3.169239;-2.696928;-2.144219;, - 3.396962;-1.611841;-1.873017;, - 3.359753;-1.562829;-1.983812;, - 3.675403;-1.403156;-1.983812;, - 3.688683;-1.464272;-1.873017;, - 3.399557;-2.687835;-2.140780;, - 3.396850;-2.681211;-2.160243;, - 3.391603;-2.670675;-2.177163;, - 3.387330;-2.683973;-2.186595;, - 3.372995;-2.709958;-2.202362;, - 3.384311;-2.734371;-2.150603;, - 3.396569;-2.703906;-2.144334;, - 3.353640;-1.625507;-2.018083;, - 3.372624;-1.600760;-2.029848;, - 3.398324;-1.622155;-2.031897;, - 3.379987;-1.646059;-2.020533;, - 4.258196;-2.003136;-1.595792;, - 4.132658;-1.837779;-1.595792;, - 4.304189;-1.611841;-1.873017;, - 4.506066;-1.877750;-1.873017;, - 3.268919;-1.667683;-2.164712;, - 3.258836;-1.674951;-2.170470;, - 3.264964;-1.685539;-2.166338;, - 3.274413;-1.677176;-2.161007;, - 3.146052;-2.636196;-2.125543;, - 3.137464;-2.646764;-2.124038;, - 3.141277;-2.651963;-2.133653;, - 3.150304;-2.641996;-2.136268;, - 3.175185;-2.042439;-2.441194;, - 3.185699;-2.092404;-2.457637;, - 3.189840;-2.104596;-2.457637;, - 3.200567;-2.092404;-2.441194;, - 3.232348;-2.777839;-2.197597;, - 3.263406;-2.776332;-2.210141;, - 3.252836;-2.756797;-2.228956;, - 3.239881;-2.734048;-2.241230;, - 3.213140;-2.743315;-2.222981;, - 3.247452;-1.682242;-2.172982;, - 3.235546;-1.689057;-2.172077;, - 3.241673;-1.699645;-2.167945;, - 3.253796;-1.693204;-2.168705;, - 3.426652;-1.601629;-2.229328;, - 3.445630;-1.627185;-2.218709;, - 3.459060;-1.604186;-2.166800;, - 3.441631;-1.575977;-2.171431;, - 3.436426;-1.585878;-2.202378;, - 3.370558;-1.625507;-2.270443;, - 3.396329;-1.646059;-2.264294;, - 3.412976;-1.622156;-2.250447;, - 3.387792;-1.600761;-2.256108;, - 3.325266;-1.594768;-1.935604;, - 3.368884;-1.559533;-1.909729;, - 3.383640;-1.543964;-1.909353;, - 3.399806;-1.524332;-1.914852;, - 3.411996;-1.505333;-1.928631;, - 3.424413;-1.479053;-1.958567;, - 3.427452;-1.464121;-1.985410;, - 3.403137;-1.503891;-1.953625;, - 3.377899;-1.537153;-1.939041;, - 3.213912;-2.695036;-2.129611;, - 3.203067;-2.703299;-2.131384;, - 3.205532;-2.708731;-2.119421;, - 3.216293;-2.700283;-2.118056;, - 3.192565;-2.617674;-2.098351;, - 3.205233;-2.622373;-2.098560;, - 3.206814;-2.626410;-2.086035;, - 3.194801;-2.623383;-2.080638;, - 3.193058;-2.619542;-2.089097;, - 3.356159;-2.649449;-2.033535;, - 3.334819;-2.667675;-2.014902;, - 3.319845;-2.643263;-2.012091;, - 3.305388;-2.618850;-2.016991;, - 3.332129;-2.609584;-2.035240;, - 3.240346;-1.726654;-2.127325;, - 3.239743;-1.724367;-2.138658;, - 3.237608;-1.719662;-2.149018;, - 3.224558;-1.719660;-2.145141;, - 3.226794;-1.725369;-2.127429;, - 3.231525;-2.664653;-2.108494;, - 3.229748;-2.677466;-2.112400;, - 3.229450;-2.679101;-2.093730;, - 3.231314;-2.665809;-2.095293;, - 3.224003;-2.092581;-2.399446;, - 3.214929;-2.099979;-2.421694;, - 3.210271;-2.081375;-2.421694;, - 3.200567;-2.092404;-2.441194;, - 3.189840;-2.104596;-2.457637;, - 3.189840;-2.216718;-2.457637;, - 3.200567;-2.228910;-2.441194;, - 3.204576;-2.212894;-2.441194;, - 3.214929;-2.221335;-2.421694;, - 3.210271;-2.239939;-2.421694;, - 3.218777;-2.249606;-2.399446;, - 3.224003;-2.228733;-2.399446;, - 4.030389;-1.868456;-1.665229;, - 4.030369;-1.869696;-1.665979;, - 4.028078;-1.860622;-1.664978;, - 4.028108;-1.858703;-1.663956;, - 3.224188;-2.691621;-2.092796;, - 3.215886;-2.702516;-2.092553;, - 3.213126;-2.699349;-2.080343;, - 3.221713;-2.688781;-2.081849;, - 3.179013;-2.616389;-2.098454;, - 3.165500;-2.618605;-2.098864;, - 3.166581;-2.618924;-2.111727;, - 3.179982;-2.616674;-2.109987;, - 3.180856;-2.588425;-2.135626;, - 3.206983;-2.567536;-2.133771;, - 3.206953;-2.571247;-2.099802;, - 3.180828;-2.592010;-2.102814;, - 3.370558;-1.625507;-2.270443;, - 3.342886;-1.606766;-2.268087;, - 3.324403;-1.632417;-2.273719;, - 3.351423;-1.652064;-2.276273;, - 3.023786;-1.779133;-2.085739;, - 3.028442;-1.788741;-2.034405;, - 3.017307;-1.785677;-2.033216;, - 3.012612;-1.775989;-2.084978;, - 3.098299;-2.268951;-2.441194;, - 3.091478;-2.286450;-2.421694;, - 3.100237;-2.297978;-2.421694;, - 3.091185;-2.328840;-2.374852;, - 3.102760;-2.340069;-2.374852;, - 3.114979;-2.348241;-2.374852;, - 3.122565;-2.292512;-2.441194;, - 3.105840;-2.278875;-2.441194;, - 3.355207;-1.734449;-2.046313;, - 3.325798;-1.721267;-2.037045;, - 3.342445;-1.697363;-2.023198;, - 3.370132;-1.713018;-2.033898;, - 3.221607;-2.651972;-2.076061;, - 3.215722;-2.659533;-2.066532;, - 3.205971;-2.643574;-2.065290;, - 3.214712;-2.640688;-2.075182;, - 3.177147;-2.703450;-2.046242;, - 3.157939;-2.668926;-2.071626;, - 3.172274;-2.642940;-2.055859;, - 3.182844;-2.662475;-2.037045;, - 3.195799;-2.685224;-2.024770;, - 3.298628;-1.614109;-2.262437;, - 3.281540;-1.637108;-2.259777;, - 3.305344;-1.658069;-2.270752;, - 3.324403;-1.632417;-2.273719;, - 3.208532;-1.691381;-2.161098;, - 3.201213;-1.696637;-2.151027;, - 3.204647;-1.702355;-2.150597;, - 3.213388;-1.699468;-2.160489;, - 3.154396;-2.657503;-2.059441;, - 3.144946;-2.665867;-2.064772;, - 3.140280;-2.657432;-2.071184;, - 3.149192;-2.648095;-2.066592;, - 4.583427;-2.580050;-2.087381;, - 4.663980;-2.209333;-2.087381;, - 4.652915;-2.209333;-2.254237;, - 4.573459;-2.575008;-2.254237;, - 3.245515;-1.653151;-2.168774;, - 3.233662;-1.659673;-2.171227;, - 3.240585;-1.670805;-2.173842;, - 3.252202;-1.663904;-2.171301;, - 3.295765;-1.724619;-2.241781;, - 3.324085;-1.741793;-2.236609;, - 3.340450;-1.721267;-2.255595;, - 3.312707;-1.703368;-2.261437;, - 3.034086;-2.092211;-2.318368;, - 3.036198;-2.321019;-2.295088;, - 3.198262;-2.317333;-2.304550;, - 3.196198;-2.093576;-2.327316;, - 3.306887;-2.555127;-2.150700;, - 3.303682;-2.555127;-2.102886;, - 3.270547;-2.552155;-2.099839;, - 3.274473;-2.552155;-2.158400;, - 3.488259;-1.521152;-2.010250;, - 3.485219;-1.536085;-1.983408;, - 3.424413;-1.479054;-1.958567;, - 3.427453;-1.464122;-1.985409;, - 3.399021;-2.750812;-1.926888;, - 3.397342;-2.735985;-1.911473;, - 3.331148;-2.780090;-1.876259;, - 3.332827;-2.794918;-1.891675;, - 4.663980;-2.209333;-2.087381;, - 4.583427;-1.838616;-2.087381;, - 4.573459;-1.843659;-2.254237;, - 4.652915;-2.209333;-2.254237;, - 3.205233;-2.622373;-2.098560;, - 3.192565;-2.617674;-2.098351;, - 3.193356;-2.617907;-2.107767;, - 3.205792;-2.622538;-2.105218;, - 3.396947;-1.767360;-2.158775;, - 3.401754;-1.762235;-2.174261;, - 3.417098;-1.743456;-2.197193;, - 3.406334;-1.743516;-2.210317;, - 3.396021;-1.756452;-2.198352;, - 3.382506;-1.757044;-2.208441;, - 3.365989;-1.775823;-2.168008;, - 3.997195;-2.589849;-1.466271;, - 3.997314;-2.582368;-1.448381;, - 3.983863;-2.591911;-1.442410;, - 3.983690;-2.600415;-1.462392;, - 3.350325;-2.868256;-2.254237;, - 3.672038;-3.030997;-2.254237;, - 3.684157;-2.975225;-2.397807;, - 3.384280;-2.823531;-2.397807;, - 3.303682;-2.555127;-2.102886;, - 3.319592;-2.559753;-2.105098;, - 3.322298;-2.566376;-2.085636;, - 3.327545;-2.576913;-2.068716;, - 3.312921;-2.575060;-2.060625;, - 3.281863;-2.576567;-2.048080;, - 3.270547;-2.552155;-2.099839;, - 3.198653;-2.667454;-2.150577;, - 3.187270;-2.674744;-2.153089;, - 3.193614;-2.685706;-2.148812;, - 3.204781;-2.678042;-2.146446;, - 3.140512;-1.966456;-2.374852;, - 3.140512;-1.934486;-2.261767;, - 3.125516;-1.936429;-2.261767;, - 3.127636;-1.968124;-2.374852;, - 3.217106;-1.635279;-2.145402;, - 3.206234;-1.643694;-2.145436;, - 3.210486;-1.649494;-2.156161;, - 3.221509;-1.641283;-2.156505;, - 3.189839;-1.992474;-2.374852;, - 3.200567;-2.006592;-2.374852;, - 3.210453;-1.981230;-2.261767;, - 3.184479;-1.951710;-2.261767;, - 3.178264;-1.981245;-2.374852;, - 3.271723;-1.642704;-2.097214;, - 3.279600;-1.644307;-2.107967;, - 3.284811;-1.652986;-2.107314;, - 3.281790;-1.659470;-2.095953;, - 3.274895;-1.648185;-2.095075;, - 3.226678;-2.646092;-2.111817;, - 3.225566;-2.653140;-2.123190;, - 3.228260;-2.658010;-2.119488;, - 3.228073;-2.648613;-2.109901;, - 3.125516;-2.384885;-2.261767;, - 3.140512;-2.386828;-2.261767;, - 3.140512;-2.354858;-2.374852;, - 3.127636;-2.353190;-2.374852;, - 3.142884;-2.635262;-2.087831;, - 3.134624;-2.645926;-2.090225;, - 3.134021;-2.643639;-2.101558;, - 3.142211;-2.632711;-2.100471;, - 3.247184;-2.648260;-2.004137;, - 3.276415;-2.632042;-2.006382;, - 3.292539;-2.659271;-2.000917;, - 3.263877;-2.676449;-1.998480;, - 3.986214;-2.440061;-1.474305;, - 3.986143;-2.445522;-1.461092;, - 3.992695;-2.449459;-1.465474;, - 3.992532;-2.459714;-1.451349;, - 4.001479;-2.461463;-1.458357;, - 4.001662;-2.449945;-1.479606;, - 3.688683;-2.954395;-1.873017;, - 4.012468;-2.954394;-1.873017;, - 4.025748;-3.015511;-1.983812;, - 3.675403;-3.015511;-1.983812;, - 3.162043;-2.659759;-2.150488;, - 3.151802;-2.667890;-2.146403;, - 3.157798;-2.677531;-2.148668;, - 3.168730;-2.670512;-2.153015;, - 3.196965;-1.695384;-2.100451;, - 3.194324;-1.699787;-2.112855;, - 3.191287;-1.694429;-2.115879;, - 3.191099;-1.685033;-2.106292;, - 3.178775;-2.672238;-2.051937;, - 3.167157;-2.679138;-2.054479;, - 3.160524;-2.668091;-2.055309;, - 3.171907;-2.660801;-2.052798;, - 3.292433;-2.596102;-2.029266;, - 3.261965;-2.606669;-2.020073;, - 3.250176;-2.584881;-2.041058;, - 3.281863;-2.576567;-2.048080;, - 3.306289;-1.531510;-2.168904;, - 3.303009;-1.537750;-2.188407;, - 3.296849;-1.547676;-2.205392;, - 3.311582;-1.547084;-2.213475;, - 3.342386;-1.551275;-2.226038;, - 3.355816;-1.528276;-2.174129;, - 3.322548;-1.528306;-2.171092;, - 3.314773;-1.678621;-2.020842;, - 3.297539;-1.703368;-2.035178;, - 3.272355;-1.681973;-2.040838;, - 3.289002;-1.658069;-2.026991;, - 3.026099;-1.834160;-1.936264;, - 3.037163;-1.836822;-1.938258;, - 3.047559;-1.964838;-1.823636;, - 3.036582;-1.963252;-1.820678;, - 3.453122;-1.668118;-2.081305;, - 3.442808;-1.681055;-2.069340;, - 3.431252;-1.696119;-2.062178;, - 3.423430;-1.686962;-2.050262;, - 3.403792;-1.667020;-2.031509;, - 3.420232;-1.645589;-2.041697;, - 3.434905;-1.627185;-2.058720;, - 3.448833;-1.654437;-2.072480;, - 3.182457;-2.619514;-2.120934;, - 3.195377;-2.620226;-2.116705;, - 3.193356;-2.617907;-2.107767;, - 3.192565;-2.617674;-2.098351;, - 3.179013;-2.616389;-2.098454;, - 3.179982;-2.616674;-2.109987;, - 3.295093;-2.768017;-2.217164;, - 3.263406;-2.776332;-2.210141;, - 3.274722;-2.800744;-2.158382;, - 3.307714;-2.795246;-2.159434;, - 3.303419;-2.784736;-2.190316;, - 3.181752;-2.623381;-2.076761;, - 3.168555;-2.626404;-2.074669;, - 3.166174;-2.621156;-2.086224;, - 3.179617;-2.618676;-2.087121;, - 3.166696;-2.668926;-2.202257;, - 3.161205;-2.682224;-2.193517;, - 3.170329;-2.695955;-2.205567;, - 3.180501;-2.711945;-2.212827;, - 3.189110;-2.703450;-2.224687;, - 3.210450;-2.685224;-2.243320;, - 3.195980;-2.662475;-2.232991;, - 3.182999;-2.642940;-2.215849;, - 3.384783;-1.713018;-2.252448;, - 3.358787;-1.697363;-2.266958;, - 3.340450;-1.721267;-2.255595;, - 3.368343;-1.734450;-2.242259;, - 3.284735;-1.697117;-2.135554;, - 3.276475;-1.707781;-2.137949;, - 3.277149;-1.710332;-2.125309;, - 3.285339;-1.699404;-2.124222;, - 3.270642;-1.702500;-2.240402;, - 3.250427;-1.676943;-2.232566;, - 3.230197;-1.699942;-2.183045;, - 3.248079;-1.728152;-2.185170;, - 3.257364;-1.718250;-2.215088;, - 4.524392;-1.868479;-2.397807;, - 4.313911;-1.974952;-2.640706;, - 4.364839;-2.209333;-2.640706;, - 4.598455;-2.209333;-2.397807;, - 3.168555;-2.626404;-2.074669;, - 3.156110;-2.632246;-2.074503;, - 3.153645;-2.626814;-2.086466;, - 3.166174;-2.621156;-2.086224;, - 3.152948;-2.624172;-2.099552;, - 3.142211;-2.632711;-2.100471;, - 3.143291;-2.633029;-2.113334;, - 3.154066;-2.624502;-2.112869;, - 3.205111;-2.711043;-2.093018;, - 3.192596;-2.716621;-2.094159;, - 3.189836;-2.713454;-2.081950;, - 3.202253;-2.707764;-2.080378;, - 2.996926;-2.294406;-2.107031;, - 2.985319;-2.293953;-2.108496;, - 2.985195;-2.271832;-2.105763;, - 3.003506;-2.272329;-2.102087;, - 3.003397;-2.292240;-2.104686;, - 3.044011;-2.470646;-2.208903;, - 3.018295;-2.479824;-2.210927;, - 3.022618;-2.505706;-2.163253;, - 3.048212;-2.495800;-2.162571;, - 3.331691;-1.678621;-2.273202;, - 3.358787;-1.697363;-2.266958;, - 3.377846;-1.671711;-2.269926;, - 3.351423;-1.652064;-2.276273;, - 3.134990;-2.643924;-2.113091;, - 3.134021;-2.643639;-2.101558;, - 3.128936;-2.656211;-2.102740;, - 3.129727;-2.656445;-2.112156;, - 3.131748;-2.658763;-2.121094;, - 3.137464;-2.646764;-2.124038;, - 3.134047;-2.667474;-2.077939;, - 3.137856;-2.674361;-2.072704;, - 3.133611;-2.682405;-2.082697;, - 3.128884;-2.673609;-2.091411;, - 3.131172;-2.661920;-2.085028;, - 3.242639;-1.627012;-2.140827;, - 3.229524;-1.629588;-2.143830;, - 3.233776;-1.635388;-2.154554;, - 3.246452;-1.632211;-2.150442;, - 3.274895;-1.648185;-2.095075;, - 3.266154;-1.651072;-2.085183;, - 3.261668;-1.643321;-2.088208;, - 3.271723;-1.642704;-2.097214;, - 3.377846;-1.671711;-2.269926;, - 3.396329;-1.646059;-2.264294;, - 3.370558;-1.625507;-2.270443;, - 3.351423;-1.652064;-2.276273;, - 3.386703;-1.690019;-2.028848;, - 3.370132;-1.713018;-2.033898;, - 3.342445;-1.697363;-2.023198;, - 3.360928;-1.671711;-2.017566;, - 3.143291;-2.633029;-2.113334;, - 3.134990;-2.643924;-2.113091;, - 3.137464;-2.646764;-2.124038;, - 3.146052;-2.636196;-2.125543;, - 3.008346;-2.361249;-2.053905;, - 3.002523;-2.366118;-2.053438;, - 3.001108;-2.362445;-2.069003;, - 2.999756;-2.354596;-2.083802;, - 3.005663;-2.350068;-2.082907;, - 3.314773;-1.678621;-2.020842;, - 3.289002;-1.658069;-2.026991;, - 3.307485;-1.632417;-2.021359;, - 3.333908;-1.652064;-2.015012;, - 3.281168;-2.704638;-2.001725;, - 3.297876;-2.730906;-2.013651;, - 3.268652;-2.746229;-2.019598;, - 3.252513;-2.720856;-2.008079;, - 3.201061;-2.762255;-2.064997;, - 3.190349;-2.761159;-2.078117;, - 3.173349;-2.733930;-2.070532;, - 3.165002;-2.719836;-2.073361;, - 3.177147;-2.703450;-2.046242;, - 3.201177;-2.743315;-2.044536;, - 3.190889;-2.746264;-2.057737;, - 4.011294;-1.843855;-1.482580;, - 4.011572;-1.826391;-1.482605;, - 3.996059;-1.826189;-1.472267;, - 3.995709;-1.846457;-1.472256;, - 3.290068;-1.671667;-2.108865;, - 3.287611;-1.684280;-2.104685;, - 3.280506;-1.674151;-2.090606;, - 3.285043;-1.664505;-2.098910;, - 3.008708;-2.447918;-2.252079;, - 3.003871;-2.330385;-2.305442;, - 2.992528;-2.331874;-2.306501;, - 2.997407;-2.450392;-2.252693;, - 3.175185;-2.042439;-2.441194;, - 3.189839;-1.992474;-2.374852;, - 3.178264;-1.981245;-2.374852;, - 3.166046;-1.973073;-2.374852;, - 3.158460;-2.028802;-2.441194;, - 3.283131;-2.768017;-2.038718;, - 3.312865;-2.753463;-2.033446;, - 3.325112;-2.770771;-2.059759;, - 3.294960;-2.784736;-2.064136;, - 3.183814;-2.653986;-2.053703;, - 3.171907;-2.660801;-2.052798;, - 3.165563;-2.649839;-2.057075;, - 3.177686;-2.643398;-2.057834;, - 3.800841;-2.438222;-1.479042;, - 3.749902;-2.672654;-1.595792;, - 3.568493;-2.580888;-1.595792;, - 3.442955;-2.415531;-1.595792;, - 3.649204;-2.311198;-1.479042;, - 3.213126;-2.699349;-2.080343;, - 3.202253;-2.707764;-2.080378;, - 3.197851;-2.701760;-2.069275;, - 3.208873;-2.693549;-2.069619;, - 3.152363;-2.709135;-2.119851;, - 3.147636;-2.700339;-2.128566;, - 3.141031;-2.689139;-2.131134;, - 3.136340;-2.692938;-2.119143;, - 3.142206;-2.703289;-2.113302;, - 3.185122;-2.602520;-2.071933;, - 3.211400;-2.582127;-2.067831;, - 3.220020;-2.599436;-2.040036;, - 3.193449;-2.619239;-2.045084;, - 4.024515;-1.954904;-1.482690;, - 4.024085;-1.981513;-1.545239;, - 4.009437;-1.994096;-1.545621;, - 4.002768;-1.998023;-1.545823;, - 4.002882;-1.990836;-1.520272;, - 4.003242;-1.968301;-1.475941;, - 3.294960;-2.784736;-2.064136;, - 3.325112;-2.770771;-2.059759;, - 3.333783;-2.781652;-2.090800;, - 3.303335;-2.795246;-2.094118;, - 3.218777;-2.249606;-2.399446;, - 3.210271;-2.239939;-2.421694;, - 3.214929;-2.221335;-2.421694;, - 3.204576;-2.212894;-2.441194;, - 3.200567;-2.228910;-2.441194;, - 3.182725;-2.268951;-2.441194;, - 3.189547;-2.286450;-2.421694;, - 3.180788;-2.297978;-2.421694;, - 3.189839;-2.328840;-2.374852;, - 3.200567;-2.314722;-2.374852;, - 3.210271;-2.297978;-2.374852;, - 3.204415;-2.286450;-2.399446;, - 3.193677;-2.716940;-2.107023;, - 3.180164;-2.719157;-2.107433;, - 3.179195;-2.718871;-2.095900;, - 3.192596;-2.716621;-2.094159;, - 3.262435;-1.715262;-2.100270;, - 3.250018;-1.720952;-2.101842;, - 3.245766;-1.715153;-2.091118;, - 3.258033;-1.709258;-2.089168;, - 4.652915;-2.209333;-2.254237;, - 4.573459;-1.843659;-2.254237;, - 4.524392;-1.868479;-2.397807;, - 4.598455;-2.209333;-2.397807;, - 3.204647;-1.702355;-2.150597;, - 3.201213;-1.696637;-2.151027;, - 3.194499;-1.686036;-2.146762;, - 3.191675;-1.681876;-2.142358;, - 3.191585;-1.692795;-2.134548;, - 3.198300;-1.703396;-2.138813;, - 3.270547;-2.552155;-2.099839;, - 3.237555;-2.557653;-2.098788;, - 3.237584;-2.554068;-2.131599;, - 3.241934;-2.557653;-2.164103;, - 3.274473;-2.552155;-2.158400;, - 4.341398;-1.562829;-1.983812;, - 4.357725;-1.541324;-2.087381;, - 4.583427;-1.838616;-2.087381;, - 4.559834;-1.850551;-1.983812;, - 3.331691;-1.678621;-2.273202;, - 3.305344;-1.658069;-2.270752;, - 3.287007;-1.681973;-2.259388;, - 3.312707;-1.703368;-2.261437;, - 3.375798;-1.523179;-2.160904;, - 3.669236;-1.374773;-2.162286;, - 3.669074;-1.374029;-2.125896;, - 3.378348;-1.521095;-2.125896;, - 3.983863;-2.591911;-1.442410;, - 3.984107;-2.578274;-1.427415;, - 3.984558;-2.548171;-1.410280;, - 3.984756;-2.533478;-1.407703;, - 3.982835;-2.537404;-1.402111;, - 3.982010;-2.598047;-1.442937;, - 3.140512;-2.319222;-2.421694;, - 3.140512;-2.354858;-2.374852;, - 3.153389;-2.353190;-2.374852;, - 3.166046;-2.348241;-2.374852;, - 3.158460;-2.292512;-2.441194;, - 3.149563;-2.295990;-2.441194;, - 3.151026;-2.317859;-2.421694;, - 3.986214;-2.440061;-1.474305;, - 3.984324;-2.436901;-1.465681;, - 3.984281;-2.443695;-1.452676;, - 3.983093;-2.520420;-1.402878;, - 3.982835;-2.537404;-1.402111;, - 3.984756;-2.533478;-1.407703;, - 3.985281;-2.500739;-1.414180;, - 3.986143;-2.445522;-1.461092;, - 2.989474;-2.236827;-2.058576;, - 3.010317;-2.241808;-2.059480;, - 3.008833;-2.246047;-2.077192;, - 2.987553;-2.242179;-2.079758;, - 3.270168;-1.694947;-2.159187;, - 3.259184;-1.702943;-2.161301;, - 3.263249;-1.710797;-2.151277;, - 3.274095;-1.702533;-2.149504;, - 3.243996;-1.661483;-2.073595;, - 3.232089;-1.668299;-2.072690;, - 3.225745;-1.657337;-2.076967;, - 3.237868;-1.650895;-2.077727;, - 4.559834;-1.850551;-1.983812;, - 4.583427;-1.838616;-2.087381;, - 4.663980;-2.209333;-2.087381;, - 4.637794;-2.209333;-1.983812;, - 3.195172;-1.651422;-2.132983;, - 3.194203;-1.651136;-2.121450;, - 3.189119;-1.663709;-2.122633;, - 3.189909;-1.663942;-2.132049;, - 3.191930;-1.666260;-2.140987;, - 3.197647;-1.654261;-2.143930;, - 3.225424;-2.709636;-2.246130;, - 3.252730;-2.693628;-2.257304;, - 3.236029;-2.666400;-2.254169;, - 3.210450;-2.685224;-2.243320;, - 3.245879;-1.690868;-2.074446;, - 3.234026;-1.697389;-2.076898;, - 3.227340;-1.686636;-2.074371;, - 3.238956;-1.679736;-2.071830;, - 3.175364;-2.681559;-2.152184;, - 3.163745;-2.687435;-2.147923;, - 3.169239;-2.696928;-2.144219;, - 3.181491;-2.692147;-2.148052;, - 3.208846;-2.630337;-2.081023;, - 3.197675;-2.628937;-2.073550;, - 3.194801;-2.623383;-2.080638;, - 3.206814;-2.626410;-2.086035;, - 3.210453;-2.340084;-2.261767;, - 3.200567;-2.314722;-2.374852;, - 3.189839;-2.328840;-2.374852;, - 3.178264;-2.340069;-2.374852;, - 3.184479;-2.369604;-2.261767;, - 3.209985;-2.687450;-2.139294;, - 3.199002;-2.695445;-2.141409;, - 3.203067;-2.703299;-2.131384;, - 3.213912;-2.695036;-2.129611;, - 4.020977;-1.847659;-1.653648;, - 4.028011;-1.864812;-1.661203;, - 4.030324;-1.872530;-1.664236;, - 4.030293;-1.874436;-1.664936;, - 3.262972;-1.657778;-2.165457;, - 3.272161;-1.652844;-2.156708;, - 3.262665;-1.637852;-2.150677;, - 3.251342;-1.639417;-2.158070;, - 3.256977;-1.648137;-2.163191;, - 3.164884;-2.618528;-2.166179;, - 3.185206;-2.592010;-2.168130;, - 3.180856;-2.588425;-2.135626;, - 3.180828;-2.592010;-2.102814;, - 3.160959;-2.618528;-2.107618;, - 3.360063;-2.760889;-2.090091;, - 3.364413;-2.764473;-2.122596;, - 3.338286;-2.785363;-2.124451;, - 3.333783;-2.781652;-2.090800;, - 3.395947;-1.724519;-2.052213;, - 3.373749;-1.757044;-2.077810;, - 3.342945;-1.752853;-2.065247;, - 3.355207;-1.734449;-2.046313;, - 3.370132;-1.713018;-2.033898;, - 3.215940;-1.657531;-2.164669;, - 3.206350;-1.666667;-2.161174;, - 3.211984;-1.675387;-2.166295;, - 3.222225;-1.667257;-2.170381;, - 4.583427;-2.580050;-2.087381;, - 4.573459;-2.575008;-2.254237;, - 4.350827;-2.868256;-2.254237;, - 4.357725;-2.877342;-2.087381;, - 3.373749;-1.757044;-2.077810;, - 3.388482;-1.756452;-2.085893;, - 3.382322;-1.766378;-2.102878;, - 3.379042;-1.772618;-2.122381;, - 3.362783;-1.775823;-2.120193;, - 3.329515;-1.775852;-2.117157;, - 3.342945;-1.752853;-2.065247;, - 3.177425;-2.712164;-2.129125;, - 3.164376;-2.712162;-2.125248;, - 3.166119;-2.716004;-2.116790;, - 3.179560;-2.716869;-2.118765;, - 3.951250;-1.746012;-1.595792;, - 4.012468;-1.464272;-1.873017;, - 4.304189;-1.611841;-1.873017;, - 4.132658;-1.837779;-1.595792;, - 4.051947;-2.107468;-1.479042;, - 3.900310;-1.980445;-1.479042;, - 3.951250;-1.746012;-1.595792;, - 4.132658;-1.837779;-1.595792;, - 4.258196;-2.003136;-1.595792;, - 3.164376;-2.712162;-2.125248;, - 3.157691;-2.699722;-2.137572;, - 3.147636;-2.700339;-2.128566;, - 3.152363;-2.709135;-2.119851;, - 3.353640;-1.625507;-2.018083;, - 3.326545;-1.606765;-2.024327;, - 3.344882;-1.582862;-2.035690;, - 3.372624;-1.600760;-2.029848;, - 3.253240;-1.627039;-2.108990;, - 3.239799;-1.626174;-2.107014;, - 3.239195;-1.623886;-2.118347;, - 3.252747;-1.625172;-2.118243;, - 3.441631;-1.575977;-2.171431;, - 3.441913;-1.572600;-2.138598;, - 3.417750;-1.549457;-2.140313;, - 3.417458;-1.552953;-2.174304;, - 3.181491;-2.692147;-2.148052;, - 3.169239;-2.696928;-2.144219;, - 3.173905;-2.705363;-2.137807;, - 3.186696;-2.701555;-2.140901;, - 3.193614;-2.685706;-2.148812;, - 3.181491;-2.692147;-2.148052;, - 3.186696;-2.701555;-2.140901;, - 3.199002;-2.695445;-2.141409;, - 3.140512;-2.354858;-2.374852;, - 3.140512;-2.319222;-2.421694;, - 3.129999;-2.317859;-2.421694;, - 3.131461;-2.295990;-2.441194;, - 3.122565;-2.292512;-2.441194;, - 3.114979;-2.348241;-2.374852;, - 3.127636;-2.353190;-2.374852;, - 3.297876;-2.730906;-2.013651;, - 3.312865;-2.753463;-2.033446;, - 3.283131;-2.768017;-2.038718;, - 3.268652;-2.746229;-2.019598;, - 3.151489;-2.686769;-2.170523;, - 3.147154;-2.681329;-2.155003;, - 3.147110;-2.686769;-2.105208;, - 3.147959;-2.701674;-2.112848;, - 3.149421;-2.704704;-2.107282;, - 3.151452;-2.717163;-2.116164;, - 3.154328;-2.717163;-2.159057;, - 3.153501;-2.704704;-2.168142;, - 3.151310;-2.701674;-2.162836;, - 3.675403;-3.015511;-1.983812;, - 3.359753;-2.855837;-1.983812;, - 3.396962;-2.806826;-1.873017;, - 3.688683;-2.954395;-1.873017;, - 3.224077;-1.615939;-2.179174;, - 3.222930;-1.630755;-2.186955;, - 3.238275;-1.611976;-2.209887;, - 3.257632;-1.586324;-2.217305;, - 3.250635;-1.581935;-2.202402;, - 3.246856;-1.587060;-2.202238;, - 3.242786;-1.582462;-2.187827;, - 3.228460;-1.600803;-2.175297;, - 3.226530;-1.613085;-2.184461;, - 3.342445;-1.697363;-2.023198;, - 3.325798;-1.721267;-2.037045;, - 3.297539;-1.703368;-2.035178;, - 3.314773;-1.678621;-2.020842;, - 3.201380;-2.658015;-2.057219;, - 3.190447;-2.665033;-2.052872;, - 3.183814;-2.653986;-2.053703;, - 3.195433;-2.648110;-2.057964;, - 3.221684;-1.714106;-2.152229;, - 3.210513;-1.712706;-2.144757;, - 3.212546;-1.716633;-2.139744;, - 3.224558;-1.719660;-2.145141;, - 3.230292;-2.661937;-2.114476;, - 3.228005;-2.673625;-2.120859;, - 3.229748;-2.677466;-2.112400;, - 3.231525;-2.664653;-2.108494;, - 4.313911;-1.974952;-2.640706;, - 4.171214;-1.786994;-2.640707;, - 3.965010;-1.682684;-2.640707;, - 3.912964;-1.922211;-2.750684;, - 4.103180;-2.081552;-2.750684;, - 3.091185;-1.992474;-2.374852;, - 3.105840;-2.042439;-2.441194;, - 3.122564;-2.028802;-2.441194;, - 3.114979;-1.973073;-2.374852;, - 3.102760;-1.981245;-2.374852;, - 3.221509;-1.641283;-2.156505;, - 3.210486;-1.649494;-2.156161;, - 3.215940;-1.657531;-2.164669;, - 3.227155;-1.649603;-2.165313;, - 3.091185;-2.328840;-2.374852;, - 3.080458;-2.314722;-2.374852;, - 3.070571;-2.340084;-2.261767;, - 3.096545;-2.369604;-2.261767;, - 3.102760;-2.340069;-2.374852;, - 3.174742;-2.737768;-2.186286;, - 3.182106;-2.733930;-2.201163;, - 3.165107;-2.706702;-2.193577;, - 3.151489;-2.686769;-2.170523;, - 3.151310;-2.701674;-2.162836;, - 3.153501;-2.704704;-2.168142;, - 3.154328;-2.717163;-2.159057;, - 3.166967;-2.736632;-2.171706;, - 3.171435;-2.732328;-2.186089;, - 3.373209;-1.562335;-2.233122;, - 3.359533;-1.582862;-2.254240;, - 3.387792;-1.600761;-2.256108;, - 3.401951;-1.579510;-2.234244;, - 3.193582;-2.602520;-2.198112;, - 3.205411;-2.619239;-2.223530;, - 3.232404;-2.599436;-2.224776;, - 3.220157;-2.582127;-2.198462;, - 3.193449;-2.619239;-2.045084;, - 3.220020;-2.599436;-2.040036;, - 3.232224;-2.621993;-2.018311;, - 3.205238;-2.641027;-2.024100;, - 3.268855;-2.720856;-2.251839;, - 3.283304;-2.746229;-2.238148;, - 3.313045;-2.730906;-2.239910;, - 3.298085;-2.704638;-2.254084;, - 3.203419;-2.685512;-2.061111;, - 3.192204;-2.693439;-2.060467;, - 3.185697;-2.683370;-2.054554;, - 3.197134;-2.675786;-2.055399;, - 3.279080;-1.685611;-2.154596;, - 3.270168;-1.694947;-2.159187;, - 3.274095;-1.702533;-2.149504;, - 3.282600;-1.692412;-2.145914;, - 3.201213;-1.696637;-2.151027;, - 3.208532;-1.691381;-2.161098;, - 3.199036;-1.676389;-2.155066;, - 3.194499;-1.686036;-2.146762;, - 3.333908;-1.652064;-2.015012;, - 3.307485;-1.632417;-2.021359;, - 3.326545;-1.606765;-2.024327;, - 3.353640;-1.625507;-2.018083;, - 3.319342;-1.528306;-2.123277;, - 3.351890;-1.528276;-2.115568;, - 3.331661;-1.551275;-2.066048;, - 3.302825;-1.547084;-2.082844;, - 3.298085;-2.704638;-2.254084;, - 3.313045;-2.730906;-2.239910;, - 3.340031;-2.711872;-2.234122;, - 3.325582;-2.686499;-2.247813;, - 4.010099;-1.777850;-1.605124;, - 3.996895;-1.767949;-1.606108;, - 3.997009;-1.761843;-1.593180;, - 4.010191;-1.772055;-1.593666;, - 3.214127;-1.720670;-2.127219;, - 3.226794;-1.725369;-2.127429;, - 3.224558;-1.719660;-2.145141;, - 3.212546;-1.716633;-2.139744;, - 3.213778;-1.719349;-2.133763;, - 3.467207;-1.668248;-2.119817;, - 3.462401;-1.673374;-2.104330;, - 3.447056;-1.692152;-2.081398;, - 3.442808;-1.681055;-2.069340;, - 3.453122;-1.668118;-2.081305;, - 3.448833;-1.654437;-2.072480;, - 3.465351;-1.635658;-2.112913;, - 3.166174;-2.621156;-2.086224;, - 3.153645;-2.626814;-2.086466;, - 3.152948;-2.624172;-2.099552;, - 3.165500;-2.618605;-2.098864;, - 3.047559;-1.964838;-1.823636;, - 3.049504;-2.009493;-1.802195;, - 3.038544;-2.008280;-1.799057;, - 3.036582;-1.963252;-1.820678;, - 3.288442;-1.665507;-2.139381;, - 3.285313;-1.675569;-2.147840;, - 3.288187;-1.681123;-2.140752;, - 3.289930;-1.684964;-2.132293;, - 3.291708;-1.672150;-2.128387;, - 3.300548;-1.591110;-2.038837;, - 3.326545;-1.606765;-2.024327;, - 3.307485;-1.632417;-2.021359;, - 3.283460;-1.614109;-2.036177;, - 3.206229;-2.711373;-2.106335;, - 3.193677;-2.716940;-2.107023;, - 3.192596;-2.716621;-2.094159;, - 3.205111;-2.711043;-2.093018;, - 3.234087;-1.712860;-2.157699;, - 3.229421;-1.704426;-2.164111;, - 3.217874;-1.707219;-2.157465;, - 3.221684;-1.714106;-2.152229;, - 3.224558;-1.719660;-2.145141;, - 3.237608;-1.719662;-2.149018;, - 4.012018;-1.798299;-1.626554;, - 4.009613;-1.808466;-1.634660;, - 4.009969;-1.786067;-1.614532;, - 3.165500;-2.618605;-2.098864;, - 3.152948;-2.624172;-2.099552;, - 3.154066;-2.624502;-2.112869;, - 3.166581;-2.618924;-2.111727;, - 3.008410;-2.511840;-2.006917;, - 3.020891;-2.417092;-1.869283;, - 3.032260;-2.418764;-1.868351;, - 3.019657;-2.514511;-2.007330;, - 4.010237;-1.769182;-1.542712;, - 4.012447;-1.771296;-1.582726;, - 4.012395;-1.774611;-1.598792;, - 4.010191;-1.772055;-1.593666;, - 3.997009;-1.761843;-1.593180;, - 3.997056;-1.759674;-1.537207;, - 3.016923;-2.047863;-1.995331;, - 3.013632;-2.045215;-1.991597;, - 3.013197;-2.060053;-1.995339;, - 3.016402;-2.061713;-1.998973;, - 3.176720;-2.716031;-2.084953;, - 3.179195;-2.718871;-2.095900;, - 3.165821;-2.717638;-2.098120;, - 3.163800;-2.715320;-2.089182;, - 3.160687;-2.711074;-2.081331;, - 3.172908;-2.710832;-2.075337;, - 3.225949;-2.063556;-2.374852;, - 3.218777;-2.071708;-2.399446;, - 3.224003;-2.092581;-2.399446;, - 3.224003;-2.228733;-2.399446;, - 3.246657;-2.247206;-2.261767;, - 3.246657;-2.074108;-2.261767;, - 3.231654;-2.086342;-2.374852;, - 3.057268;-2.506219;-2.062703;, - 3.061675;-2.492540;-2.014112;, - 3.223178;-2.485069;-2.029774;, - 3.218868;-2.498446;-2.077293;, - 3.160524;-2.668091;-2.055309;, - 3.150440;-2.675360;-2.061067;, - 3.144946;-2.665867;-2.064772;, - 3.154396;-2.657503;-2.059441;, - 4.020562;-2.486774;-1.598170;, - 3.999768;-2.569115;-1.557696;, - 3.984049;-2.577489;-1.564713;, - 3.984463;-2.544676;-1.593526;, - 3.991259;-2.539839;-1.588401;, - 4.000567;-2.530926;-1.587231;, - 4.018058;-2.491096;-1.597845;, - 3.228912;-1.678010;-2.172907;, - 3.217980;-1.685028;-2.168561;, - 3.223927;-1.694933;-2.167815;, - 3.235546;-1.689057;-2.172077;, - 3.359753;-1.562829;-1.983812;, - 3.349750;-1.549654;-2.031197;, - 3.374084;-1.525542;-2.091497;, - 3.378348;-1.521095;-2.125896;, - 3.669074;-1.374029;-2.125896;, - 3.669576;-1.376339;-2.087381;, - 3.675403;-1.403156;-1.983812;, - 4.027265;-1.782299;-1.429603;, - 4.026850;-1.808880;-1.423697;, - 4.005841;-1.805201;-1.410057;, - 4.006309;-1.775514;-1.416655;, - 3.314773;-1.678621;-2.020842;, - 3.333908;-1.652064;-2.015012;, - 3.360928;-1.671711;-2.017566;, - 3.342445;-1.697363;-2.023198;, - 3.228005;-2.673625;-2.120859;, - 3.222418;-2.684914;-2.126022;, - 3.224553;-2.689619;-2.115661;, - 3.229748;-2.677466;-2.112400;, - 3.245766;-1.715153;-2.091118;, - 3.233090;-1.718329;-2.095230;, - 3.228200;-1.711123;-2.087602;, - 3.240311;-1.707116;-2.082610;, - 3.403792;-1.667020;-2.031509;, - 3.379987;-1.646059;-2.020533;, - 3.398324;-1.622155;-2.031897;, - 3.420232;-1.645589;-2.041697;, - 3.096545;-1.951710;-2.261767;, - 3.102760;-1.981245;-2.374852;, - 3.114979;-1.973073;-2.374852;, - 3.127636;-1.968124;-2.374852;, - 3.125516;-1.936429;-2.261767;, - 3.006023;-2.242874;-1.823746;, - 3.003961;-2.026110;-1.846477;, - 3.020539;-2.012505;-1.807301;, - 3.022039;-2.242898;-1.790757;, - 4.005295;-1.839657;-1.409036;, - 4.005841;-1.805201;-1.410057;, - 4.026850;-1.808880;-1.423697;, - 4.025336;-1.904149;-1.437687;, - 4.004150;-1.911627;-1.425686;, - 3.164886;-2.197472;-2.479908;, - 3.155561;-2.211967;-2.480069;, - 3.152269;-2.216529;-2.479908;, - 3.162308;-2.264241;-2.457637;, - 3.168991;-2.257758;-2.457637;, - 3.175185;-2.278875;-2.441194;, - 3.182725;-2.268951;-2.441194;, - 3.200567;-2.228910;-2.441194;, - 3.189840;-2.216718;-2.457637;, - 3.178264;-2.203563;-2.470714;, - 3.175095;-2.212894;-2.470714;, - 3.300548;-1.591110;-2.038837;, - 3.316988;-1.569679;-2.049026;, - 3.344882;-1.582862;-2.035690;, - 3.326545;-1.606765;-2.024327;, - 3.301521;-1.767445;-2.181376;, - 3.310807;-1.757544;-2.211294;, - 3.282019;-1.740925;-2.215574;, - 3.272406;-1.751176;-2.184601;, - 3.193449;-2.619239;-2.045084;, - 3.172274;-2.642940;-2.055859;, - 3.160959;-2.618528;-2.107618;, - 3.180828;-2.592010;-2.102814;, - 3.185122;-2.602520;-2.071933;, - 3.166967;-2.736632;-2.171706;, - 3.154328;-2.717163;-2.159057;, - 3.151452;-2.717163;-2.116164;, - 3.166906;-2.744300;-2.101521;, - 3.179545;-2.763769;-2.114170;, - 3.182421;-2.763769;-2.157063;, - 3.035029;-2.379369;-1.837821;, - 3.023648;-2.377887;-1.838879;, - 3.028586;-2.243925;-1.784442;, - 3.039991;-2.244279;-1.783122;, - 3.036198;-2.321019;-2.295088;, - 3.034086;-2.092211;-2.318368;, - 3.008083;-2.090418;-2.323563;, - 3.010256;-2.325861;-2.299608;, - 3.129999;-2.317859;-2.421694;, - 3.140512;-2.319222;-2.421694;, - 3.151026;-2.317859;-2.421694;, - 3.149563;-2.295990;-2.441194;, - 3.147947;-2.271816;-2.457637;, - 3.140512;-2.272779;-2.457637;, - 3.133078;-2.271816;-2.457637;, - 3.131461;-2.295990;-2.441194;, - 3.672038;-3.030997;-2.254237;, - 4.029113;-3.030997;-2.254237;, - 4.016994;-2.975225;-2.397807;, - 3.684157;-2.975225;-2.397807;, - 4.024085;-1.981513;-1.545239;, - 4.024515;-1.954904;-1.482690;, - 4.024984;-1.925979;-1.451075;, - 4.041350;-1.913830;-1.465979;, - 4.040578;-1.961336;-1.546518;, - 3.383640;-1.543964;-1.909354;, - 3.444446;-1.600995;-1.934195;, - 3.429690;-1.616565;-1.934570;, - 3.368884;-1.559535;-1.909728;, - 3.202615;-1.865679;-2.256492;, - 3.040648;-1.859171;-2.245945;, - 3.038482;-1.895944;-2.269854;, - 3.200496;-1.901641;-2.279873;, - 3.056120;-2.241231;-1.793847;, - 3.050941;-2.243526;-1.786392;, - 3.049504;-2.009493;-1.802195;, - 3.054720;-2.013198;-1.809245;, - 3.289096;-1.659299;-2.113997;, - 3.284811;-1.652986;-2.107314;, - 3.279600;-1.644307;-2.107967;, - 3.276515;-1.638348;-2.115573;, - 3.278503;-1.640152;-2.128552;, - 3.285218;-1.650753;-2.132817;, - 3.289945;-1.659550;-2.124103;, - 2.993729;-2.087900;-2.011659;, - 2.989756;-2.103851;-2.055469;, - 3.010619;-2.097890;-2.057669;, - 3.014209;-2.084172;-2.019294;, - 4.028228;-1.719984;-1.477485;, - 4.028047;-1.731585;-1.461573;, - 4.007196;-1.718899;-1.452344;, - 4.007401;-1.705961;-1.470101;, - 3.368122;-2.649449;-2.211980;, - 3.344092;-2.609584;-2.213686;, - 3.320039;-2.618850;-2.235541;, - 3.335013;-2.643263;-2.238351;, - 3.349470;-2.667675;-2.233452;, - 3.364413;-2.764473;-2.122596;, - 3.364442;-2.760889;-2.155407;, - 3.338316;-2.781652;-2.158419;, - 3.338286;-2.785363;-2.124451;, - 3.228200;-1.711123;-2.087602;, - 3.233090;-1.718329;-2.095230;, - 3.220870;-1.718572;-2.101223;, - 3.212276;-1.705568;-2.090813;, - 3.222565;-1.702403;-2.082481;, - 3.250629;-1.672530;-2.072765;, - 3.238956;-1.679736;-2.071830;, - 3.232089;-1.668299;-2.072690;, - 3.243996;-1.661483;-2.073595;, - 3.229748;-2.677466;-2.112400;, - 3.224553;-2.689619;-2.115661;, - 3.225157;-2.691906;-2.104329;, - 3.224188;-2.691621;-2.092796;, - 3.229450;-2.679101;-2.093730;, - 3.141317;-2.568116;-1.983812;, - 3.117724;-2.580051;-2.087381;, - 3.037171;-2.209333;-2.087381;, - 3.063358;-2.209333;-1.983812;, - 3.235546;-1.689057;-2.172077;, - 3.223927;-1.694933;-2.167815;, - 3.229421;-1.704426;-2.164111;, - 3.241673;-1.699645;-2.167945;, - 2.986040;-2.254133;-2.096442;, - 2.987553;-2.242179;-2.079758;, - 3.008833;-2.246047;-2.077192;, - 3.007776;-2.255708;-2.091168;, - 3.016172;-2.278947;-2.001903;, - 3.012949;-2.281602;-1.998274;, - 3.013282;-2.295740;-1.995856;, - 3.016624;-2.292110;-1.999433;, - 3.217874;-1.707219;-2.157465;, - 3.213388;-1.699468;-2.160489;, - 3.204647;-1.702355;-2.150597;, - 3.210513;-1.712706;-2.144757;, - 3.221684;-1.714106;-2.152229;, - 3.247393;-2.621993;-2.244571;, - 3.219889;-2.641027;-2.242650;, - 3.236029;-2.666400;-2.254169;, - 3.264102;-2.648260;-2.256497;, - 3.156924;-2.627781;-2.125509;, - 3.146052;-2.636196;-2.125543;, - 3.150304;-2.641996;-2.136268;, - 3.161327;-2.633785;-2.136612;, - 3.048650;-2.409833;-1.876203;, - 3.073511;-2.402628;-1.883605;, - 3.061675;-2.492540;-2.014112;, - 3.036471;-2.502351;-2.010493;, - 3.211978;-2.645347;-2.136815;, - 3.207083;-2.637475;-2.134966;, - 3.196795;-2.640640;-2.143299;, - 3.202790;-2.650280;-2.145564;, - 3.208737;-2.660185;-2.144819;, - 3.216835;-2.653434;-2.136207;, - 3.418131;-1.731082;-2.076895;, - 3.397375;-1.762234;-2.108946;, - 3.382322;-1.766378;-2.102878;, - 3.388482;-1.756452;-2.085893;, - 3.373749;-1.757044;-2.077810;, - 3.395947;-1.724519;-2.052213;, - 3.203066;-1.642760;-2.107723;, - 3.194807;-1.653424;-2.110118;, - 3.194203;-1.651136;-2.121450;, - 3.202393;-1.640208;-2.120363;, - 3.203966;-2.781091;-2.101172;, - 3.208302;-2.786532;-2.116692;, - 3.208345;-2.781091;-2.166487;, - 3.194824;-2.773862;-2.159747;, - 3.193362;-2.770832;-2.165312;, - 3.182421;-2.763769;-2.157063;, - 3.179545;-2.763769;-2.114170;, - 3.189282;-2.770832;-2.104453;, - 3.191473;-2.773862;-2.109759;, - 3.246878;-1.709053;-2.160794;, - 3.234087;-1.712860;-2.157699;, - 3.237608;-1.719662;-2.149018;, - 3.250804;-1.716639;-2.151111;, - 3.057022;-2.228733;-2.399446;, - 3.076448;-2.212894;-2.441194;, - 3.080458;-2.228910;-2.441194;, - 3.091185;-2.216718;-2.457637;, - 3.091185;-2.104596;-2.457637;, - 3.062248;-2.071708;-2.399446;, - 3.224553;-2.689619;-2.115661;, - 3.216293;-2.700283;-2.118056;, - 3.216966;-2.702835;-2.105416;, - 3.225157;-2.691906;-2.104329;, - 3.046705;-1.811658;-2.179131;, - 3.021067;-1.801734;-2.180293;, - 3.017637;-1.821771;-2.218126;, - 3.043371;-1.831131;-2.215900;, - 3.239799;-1.626174;-2.107014;, - 3.226356;-1.628654;-2.106117;, - 3.225683;-1.626103;-2.118757;, - 3.239195;-1.623886;-2.118347;, - 3.399805;-1.524334;-1.914852;, - 3.460612;-1.581363;-1.939692;, - 3.444446;-1.600995;-1.934195;, - 3.383640;-1.543964;-1.909354;, - 3.233662;-1.659673;-2.171227;, - 3.222225;-1.667257;-2.170381;, - 3.228912;-1.678010;-2.172907;, - 3.240585;-1.670805;-2.173842;, - 3.203473;-1.640527;-2.133226;, - 3.195172;-1.651422;-2.132983;, - 3.197647;-1.654261;-2.143930;, - 3.206234;-1.643694;-2.145436;, - 3.070571;-2.340084;-2.261767;, - 3.080458;-2.314722;-2.374852;, - 3.070753;-2.297978;-2.374852;, - 3.076609;-2.286450;-2.399446;, - 3.057022;-2.228733;-2.399446;, - 3.034367;-2.247206;-2.261767;, - 3.446023;-1.704526;-2.201696;, - 3.466779;-1.673374;-2.169646;, - 3.466820;-1.658192;-2.176779;, - 3.460661;-1.668118;-2.193763;, - 3.457591;-1.654437;-2.203111;, - 3.435393;-1.686962;-2.228708;, - 3.312122;-1.741793;-2.058164;, - 3.342945;-1.752853;-2.065247;, - 3.329515;-1.775852;-2.117157;, - 3.297143;-1.767445;-2.116061;, - 3.302348;-1.757544;-2.085114;, - 3.239799;-1.626174;-2.107014;, - 3.253240;-1.627039;-2.108990;, - 3.254983;-1.630881;-2.100531;, - 3.257858;-1.636434;-2.093443;, - 3.245454;-1.637680;-2.087973;, - 3.241934;-1.630879;-2.096654;, - 3.208873;-2.693549;-2.069619;, - 3.197851;-2.701760;-2.069275;, - 3.192204;-2.693439;-2.060467;, - 3.203419;-2.685512;-2.061111;, - 3.336924;-2.571807;-2.091734;, - 3.336967;-2.566367;-2.141530;, - 3.341303;-2.571807;-2.157050;, - 3.353796;-2.579037;-2.148463;, - 3.355987;-2.582067;-2.153769;, - 3.365724;-2.589130;-2.144051;, - 3.362848;-2.589130;-2.101159;, - 3.351907;-2.582067;-2.092909;, - 3.350445;-2.579036;-2.098474;, - 3.184479;-2.369604;-2.261767;, - 3.178264;-2.340069;-2.374852;, - 3.166046;-2.348241;-2.374852;, - 3.153389;-2.353190;-2.374852;, - 3.155509;-2.384885;-2.261767;, - 2.995956;-2.281770;-1.991196;, - 3.012949;-2.281602;-1.998274;, - 3.016172;-2.278947;-2.001903;, - 3.015216;-2.264118;-2.009678;, - 2.994782;-2.263804;-2.000046;, - 3.387792;-1.600761;-2.256108;, - 3.359533;-1.582862;-2.254240;, - 3.342886;-1.606766;-2.268087;, - 3.370558;-1.625507;-2.270443;, - 3.034197;-1.798102;-2.035505;, - 3.038604;-1.817235;-1.986923;, - 3.032964;-1.808377;-1.984546;, - 3.028442;-1.788741;-2.034405;, - 3.023786;-1.779133;-2.085739;, - 3.014966;-1.792468;-2.182996;, - 3.021067;-1.801734;-2.180293;, - 3.029661;-1.788740;-2.085524;, - 3.996555;-1.793266;-1.483029;, - 4.009780;-1.797948;-1.492218;, - 4.009938;-1.788000;-1.501324;, - 3.996707;-1.781478;-1.492171;, - 3.418443;-1.667020;-2.250059;, - 3.396329;-1.646059;-2.264294;, - 3.377846;-1.671711;-2.269926;, - 3.401871;-1.690019;-2.255108;, - 3.048650;-2.409833;-1.876203;, - 3.043274;-2.416561;-1.870913;, - 3.046020;-2.377493;-1.840636;, - 3.050941;-2.243526;-1.786392;, - 3.056120;-2.241231;-1.793847;, - 3.051326;-2.371767;-1.846702;, - 3.295093;-2.768017;-2.217164;, - 3.325250;-2.753463;-2.218185;, - 3.313045;-2.730906;-2.239910;, - 3.283304;-2.746229;-2.238148;, - 3.240346;-1.726654;-2.127325;, - 3.226794;-1.725369;-2.127429;, - 3.226003;-1.725136;-2.118012;, - 3.239378;-1.726368;-2.115793;, - 3.231314;-2.665809;-2.095293;, - 3.229450;-2.679101;-2.093730;, - 3.224316;-2.672537;-2.076941;, - 3.227684;-2.661167;-2.083421;, - 3.303335;-2.795246;-2.094118;, - 3.333783;-2.781652;-2.090800;, - 3.338286;-2.785363;-2.124451;, - 3.307686;-2.798831;-2.126623;, - 3.179617;-2.618676;-2.087121;, - 3.166174;-2.621156;-2.086224;, - 3.165500;-2.618605;-2.098864;, - 3.179013;-2.616389;-2.098454;, - 3.220870;-1.718572;-2.101223;, - 3.233090;-1.718329;-2.095230;, - 3.236903;-1.723529;-2.104845;, - 3.239378;-1.726368;-2.115793;, - 3.226003;-1.725136;-2.118012;, - 3.223983;-1.722817;-2.109074;, - 3.298085;-2.704638;-2.254084;, - 3.281392;-2.676449;-2.259742;, - 3.252730;-2.693628;-2.257304;, - 3.268855;-2.720856;-2.251839;, - 3.055057;-1.799030;-2.087030;, - 3.059466;-1.808128;-2.038419;, - 3.034197;-1.798102;-2.035505;, - 3.029661;-1.788740;-2.085524;, - 3.130053;-2.684899;-2.098580;, - 3.128884;-2.673609;-2.091411;, - 3.133611;-2.682405;-2.082697;, - 3.140217;-2.693604;-2.080128;, - 3.135919;-2.695250;-2.092740;, - 3.436426;-1.585878;-2.202378;, - 3.441631;-1.575977;-2.171431;, - 3.417458;-1.552953;-2.174304;, - 3.412069;-1.563203;-2.206342;, - 3.102696;-2.209333;-2.397807;, - 3.336312;-2.209333;-2.640706;, - 3.387240;-1.974952;-2.640707;, - 3.176759;-1.868480;-2.397807;, - 4.506066;-2.540917;-1.873017;, - 4.578115;-2.209333;-1.873017;, - 4.637794;-2.209333;-1.983812;, - 4.559834;-2.568116;-1.983812;, - 3.220870;-1.718572;-2.101223;, - 3.209937;-1.715863;-2.108690;, - 3.207114;-1.711703;-2.104285;, - 3.203861;-1.706668;-2.101329;, - 3.212276;-1.705568;-2.090813;, - 3.131850;-2.190193;-2.485347;, - 3.132926;-2.196710;-2.484699;, - 3.136028;-2.193600;-2.485347;, - 3.137925;-2.199347;-2.484699;, - 3.140512;-2.194762;-2.485347;, - 3.140512;-2.126552;-2.485347;, - 3.137925;-2.121967;-2.484699;, - 3.136028;-2.127714;-2.485347;, - 3.132926;-2.124604;-2.484699;, - 3.131850;-2.131121;-2.485347;, - 3.125463;-2.109347;-2.480069;, - 3.116139;-2.123842;-2.479908;, - 3.116139;-2.197472;-2.479908;, - 3.125463;-2.211967;-2.480069;, - 3.010993;-2.351555;-2.068475;, - 3.012312;-2.355007;-2.054213;, - 3.008346;-2.361249;-2.053905;, - 3.005663;-2.350068;-2.082907;, - 3.009702;-2.344113;-2.081842;, - 3.225745;-1.657337;-2.076967;, - 3.214578;-1.665001;-2.079334;, - 3.209374;-1.655593;-2.086485;, - 3.220357;-1.647598;-2.084371;, - 3.157939;-2.668926;-2.071626;, - 3.153666;-2.682224;-2.081059;, - 3.148419;-2.671687;-2.097979;, - 3.145712;-2.665064;-2.117441;, - 3.148700;-2.648993;-2.113887;, - 3.160959;-2.618528;-2.107618;, - 3.172274;-2.642940;-2.055859;, - 3.312122;-1.741793;-2.058164;, - 3.283380;-1.724619;-2.057041;, - 3.297539;-1.703368;-2.035178;, - 3.325798;-1.721267;-2.037045;, - 3.214712;-2.640688;-2.075182;, - 3.221060;-2.639647;-2.086967;, - 3.224629;-2.645488;-2.087421;, - 3.221607;-2.651972;-2.076061;, - 3.180129;-2.699618;-2.062717;, - 3.168018;-2.703626;-2.067709;, - 3.162383;-2.694906;-2.062588;, - 3.173844;-2.689891;-2.057006;, - 3.194324;-1.699787;-2.112855;, - 3.196965;-1.695384;-2.100451;, - 3.203861;-1.706668;-2.101329;, - 3.207114;-1.711703;-2.104285;, - 3.199577;-1.708235;-2.114840;, - 3.263601;-1.693010;-2.081003;, - 3.252386;-1.700938;-2.080359;, - 3.245879;-1.690868;-2.074446;, - 3.257317;-1.683283;-2.075291;, - 3.342386;-1.551275;-2.226038;, - 3.373209;-1.562335;-2.233122;, - 3.382983;-1.546584;-2.206171;, - 3.388188;-1.536683;-2.175224;, - 3.355816;-1.528276;-2.174129;, - 3.263877;-2.676449;-1.998480;, - 3.235812;-2.693628;-2.004944;, - 3.219687;-2.666399;-2.010409;, - 3.247184;-2.648260;-2.004137;, - 3.251342;-1.639417;-2.158070;, - 3.239230;-1.643425;-2.163062;, - 3.245515;-1.653151;-2.168774;, - 3.256977;-1.648137;-2.163191;, - 3.127303;-2.669572;-2.103935;, - 3.128936;-2.656211;-2.102740;, - 3.129429;-2.658079;-2.093487;, - 3.131172;-2.661920;-2.085028;, - 3.128884;-2.673609;-2.091411;, - 4.006356;-1.773537;-1.696987;, - 4.006718;-1.750749;-1.677725;, - 4.004835;-1.759234;-1.683110;, - 4.003590;-1.776461;-1.694829;, - 3.221713;-2.688781;-2.081849;, - 3.213126;-2.699349;-2.080343;, - 3.208873;-2.693549;-2.069619;, - 3.217901;-2.683581;-2.072234;, - 3.167157;-2.679138;-2.054479;, - 3.156387;-2.685264;-2.060323;, - 3.150440;-2.675360;-2.061067;, - 3.160524;-2.668091;-2.055309;, - 3.170329;-2.695955;-2.205567;, - 3.165107;-2.706702;-2.193577;, - 3.182106;-2.733930;-2.201163;, - 3.190453;-2.748025;-2.198334;, - 3.213140;-2.743315;-2.222981;, - 3.189110;-2.703450;-2.224687;, - 3.180501;-2.711945;-2.212827;, - 3.205792;-2.622538;-2.105218;, - 3.207221;-2.624178;-2.111538;, - 3.217182;-2.631100;-2.105785;, - 3.216971;-2.632256;-2.092584;, - 3.206814;-2.626410;-2.086035;, - 3.205233;-2.622373;-2.098560;, - 3.239700;-2.756797;-2.033009;, - 3.225230;-2.734048;-2.022681;, - 3.252513;-2.720856;-2.008079;, - 3.268652;-2.746229;-2.019598;, - 3.800841;-1.980445;-1.479042;, - 3.749902;-1.746012;-1.595792;, - 3.951250;-1.746012;-1.595792;, - 3.900310;-1.980445;-1.479042;, - 3.208532;-1.691381;-2.161098;, - 3.217980;-1.685028;-2.168561;, - 3.211984;-1.675387;-2.166295;, - 3.206350;-1.666667;-2.161174;, - 3.199036;-1.676389;-2.155066;, - 4.016994;-2.975225;-2.397807;, - 3.965010;-2.735982;-2.640706;, - 3.736141;-2.735982;-2.640706;, - 3.684157;-2.975225;-2.397807;, - 3.269604;-1.634677;-2.136982;, - 3.278503;-1.640152;-2.128552;, - 3.276515;-1.638348;-2.115573;, - 3.265764;-1.631191;-2.111910;, - 3.265415;-1.629871;-2.118453;, - 3.267403;-1.631675;-2.131431;, - 3.007721;-2.043707;-1.987934;, - 3.007704;-1.991802;-1.995914;, - 2.998400;-1.990833;-1.992958;, - 2.996571;-2.044477;-1.984415;, - 3.397342;-2.735985;-1.911473;, - 3.391373;-2.715329;-1.896822;, - 3.325179;-2.759434;-1.861608;, - 3.331148;-2.780090;-1.876259;, - 3.168040;-2.737768;-2.086309;, - 3.173349;-2.733930;-2.070532;, - 3.190349;-2.761159;-2.078117;, - 3.203966;-2.781091;-2.101172;, - 3.191473;-2.773862;-2.109759;, - 3.189282;-2.770832;-2.104453;, - 3.179545;-2.763769;-2.114170;, - 3.166906;-2.744300;-2.101521;, - 3.171348;-2.743208;-2.086506;, - 3.209422;-2.627180;-2.117090;, - 3.198489;-2.624471;-2.124556;, - 3.202482;-2.630355;-2.130785;, - 3.212245;-2.631340;-2.121494;, - 3.228737;-1.633902;-2.094562;, - 3.216292;-1.639744;-2.094395;, - 3.213827;-1.634311;-2.106359;, - 3.226356;-1.628654;-2.106117;, - 3.411488;-1.756197;-2.115644;, - 3.397375;-1.762234;-2.108946;, - 3.418131;-1.731082;-2.076895;, - 3.427699;-1.717804;-2.073980;, - 3.434696;-1.722193;-2.088884;, - 3.438475;-1.717068;-2.089047;, - 3.442545;-1.721667;-2.103459;, - 3.424741;-1.747232;-2.118268;, - 3.413213;-1.753343;-2.110060;, - 3.191160;-2.631919;-2.138177;, - 3.179048;-2.635927;-2.143169;, - 3.185333;-2.645654;-2.148882;, - 3.196795;-2.640640;-2.143299;, - 4.524392;-1.868479;-2.397807;, - 4.316871;-1.595136;-2.397807;, - 4.171214;-1.786994;-2.640707;, - 4.313911;-1.974952;-2.640706;, - 3.442955;-2.003136;-1.595792;, - 3.649204;-2.107468;-1.479042;, - 3.649204;-2.311198;-1.479042;, - 3.442955;-2.415531;-1.595792;, - 3.398150;-2.209333;-1.595792;, - 3.212276;-1.705568;-2.090813;, - 3.203861;-1.706668;-2.101329;, - 3.196965;-1.695384;-2.100451;, - 3.202525;-1.689609;-2.089572;, - 3.172274;-2.642940;-2.055859;, - 3.193449;-2.619239;-2.045084;, - 3.205238;-2.641027;-2.024100;, - 3.182844;-2.662475;-2.037045;, - 3.189119;-1.663709;-2.122633;, - 3.194203;-1.651136;-2.121450;, - 3.194807;-1.653424;-2.110118;, - 3.196942;-1.658128;-2.099758;, - 3.191355;-1.669418;-2.104920;, - 3.189611;-1.665577;-2.113379;, - 3.180164;-2.719157;-2.107433;, - 3.179560;-2.716869;-2.118765;, - 3.166119;-2.716004;-2.116790;, - 3.166612;-2.717871;-2.107537;, - 3.165821;-2.717638;-2.098120;, - 3.179195;-2.718871;-2.095900;, - 3.287956;-1.541894;-2.182339;, - 3.303009;-1.537750;-2.188407;, - 3.306289;-1.531510;-2.168904;, - 3.322548;-1.528306;-2.171092;, - 3.319342;-1.528306;-2.123277;, - 3.288383;-1.536769;-2.132510;, - 3.177686;-2.643398;-2.057834;, - 3.165563;-2.649839;-2.057075;, - 3.160175;-2.640100;-2.064479;, - 3.172481;-2.633990;-2.064986;, - 3.150304;-2.641996;-2.136268;, - 3.141277;-2.651963;-2.133653;, - 3.146167;-2.659169;-2.141281;, - 3.155759;-2.650033;-2.144776;, - 3.239701;-1.676943;-2.072576;, - 3.251963;-1.658540;-2.053642;, - 3.272355;-1.681973;-2.040838;, - 3.258679;-1.702500;-2.061957;, - 3.374524;-1.546584;-2.079991;, - 3.383810;-1.536683;-2.109909;, - 3.412925;-1.552953;-2.106685;, - 3.403312;-1.563203;-2.075711;, - 3.393364;-2.703906;-2.096520;, - 3.380385;-2.734371;-2.092043;, - 3.362270;-2.709958;-2.042372;, - 3.378573;-2.683973;-2.055964;, - 3.145265;-2.640509;-2.076276;, - 3.136759;-2.650631;-2.079865;, - 3.134624;-2.645926;-2.090225;, - 3.142884;-2.635262;-2.087831;, - 4.103180;-2.081552;-2.750684;, - 4.103180;-2.337115;-2.750684;, - 4.313911;-2.443714;-2.640706;, - 4.364839;-2.209333;-2.640706;, - 4.313911;-1.974952;-2.640706;, - 3.220706;-1.675589;-2.075202;, - 3.210622;-1.682858;-2.080960;, - 3.205128;-1.673365;-2.084665;, - 3.214578;-1.665001;-2.079334;, - 3.187270;-2.674744;-2.153089;, - 3.175364;-2.681559;-2.152184;, - 3.181491;-2.692147;-2.148052;, - 3.193614;-2.685706;-2.148812;, - 3.189939;-2.638617;-2.061668;, - 3.177686;-2.643398;-2.057834;, - 3.172481;-2.633990;-2.064986;, - 3.185272;-2.630182;-2.068080;, - 3.146167;-2.659169;-2.141281;, - 3.138854;-2.668892;-2.135174;, - 3.143455;-2.676012;-2.139355;, - 3.151802;-2.667890;-2.146403;, - 3.351423;-1.652064;-2.276273;, - 3.324403;-1.632417;-2.273719;, - 3.305344;-1.658069;-2.270752;, - 3.331691;-1.678621;-2.273202;, - 3.382322;-1.766378;-2.102878;, - 3.397375;-1.762234;-2.108946;, - 3.396947;-1.767360;-2.158775;, - 3.365989;-1.775823;-2.168008;, - 3.362783;-1.775823;-2.120193;, - 3.379042;-1.772618;-2.122381;, - 3.245454;-1.637680;-2.087973;, - 3.257858;-1.636434;-2.093443;, - 3.261668;-1.643321;-2.088208;, - 3.266154;-1.651072;-2.085183;, - 3.255615;-1.655608;-2.077857;, - 3.250121;-1.646115;-2.081561;, - 3.675403;-3.015511;-1.983812;, - 3.669576;-3.042327;-2.087381;, - 3.343426;-2.877342;-2.087381;, - 3.359753;-2.855837;-1.983812;, - 3.199036;-1.676389;-2.155066;, - 3.206350;-1.666667;-2.161174;, - 3.201459;-1.659461;-2.153546;, - 3.197647;-1.654261;-2.143930;, - 3.191930;-1.666260;-2.140987;, - 3.281168;-2.704638;-2.001725;, - 3.252513;-2.720856;-2.008079;, - 3.235812;-2.693628;-2.004944;, - 3.263877;-2.676449;-1.998480;, - 2.982490;-2.374919;-2.073463;, - 2.992986;-2.368244;-2.052652;, - 2.994468;-2.366689;-2.036313;, - 2.984600;-2.380187;-2.038805;, - 3.282600;-1.692412;-2.145914;, - 3.288187;-1.681123;-2.140752;, - 3.285313;-1.675569;-2.147840;, - 3.281503;-1.668682;-2.153075;, - 3.274413;-1.677176;-2.161007;, - 3.279080;-1.685611;-2.154596;, - 3.335013;-2.643263;-2.238351;, - 3.309457;-2.659271;-2.253277;, - 3.325582;-2.686499;-2.247813;, - 3.349470;-2.667675;-2.233452;, - 3.182457;-2.619514;-2.120934;, - 3.169341;-2.622091;-2.123937;, - 3.173594;-2.627890;-2.134661;, - 3.186270;-2.624713;-2.130549;, - 3.232224;-2.621993;-2.018311;, - 3.247184;-2.648260;-2.004137;, - 3.219687;-2.666399;-2.010409;, - 3.205238;-2.641027;-2.024100;, - 3.232404;-2.599436;-2.224776;, - 3.205411;-2.619239;-2.223530;, - 3.219889;-2.641027;-2.242650;, - 3.247393;-2.621993;-2.244571;, - 3.195980;-2.662475;-2.232991;, - 3.219889;-2.641027;-2.242650;, - 3.205411;-2.619239;-2.223530;, - 3.182999;-2.642940;-2.215849;, - 3.163800;-2.715320;-2.089182;, - 3.165821;-2.717638;-2.098120;, - 3.166612;-2.717871;-2.107537;, - 3.153944;-2.713172;-2.107327;, - 3.151956;-2.711368;-2.094349;, - 3.246452;-1.632211;-2.150442;, - 3.233776;-1.635388;-2.154554;, - 3.239230;-1.643425;-2.163062;, - 3.251342;-1.639417;-2.158070;, - 3.189611;-1.665577;-2.113379;, - 3.191355;-1.669418;-2.104920;, - 3.194229;-1.674971;-2.097832;, - 3.191099;-1.685033;-2.106292;, - 3.187834;-1.678390;-2.117285;, - 3.342386;-1.551275;-2.226038;, - 3.330124;-1.569679;-2.244972;, - 3.359533;-1.582862;-2.254240;, - 3.373209;-1.562335;-2.233122;, - 2.992528;-2.331874;-2.306501;, - 2.981524;-2.330729;-2.303392;, - 2.986362;-2.448292;-2.250043;, - 2.997407;-2.450392;-2.252693;, - 4.006718;-1.750749;-1.677725;, - 4.007255;-1.716578;-1.641695;, - 4.007716;-1.686811;-1.580854;, - 4.007792;-1.681711;-1.557357;, - 4.005012;-1.686638;-1.560080;, - 4.004835;-1.759234;-1.683110;, - 3.322298;-2.566376;-2.085636;, - 3.336924;-2.571807;-2.091734;, - 3.354816;-2.604874;-2.059887;, - 3.332129;-2.609584;-2.035240;, - 3.312921;-2.575060;-2.060625;, - 3.327545;-2.576913;-2.068716;, - 3.010613;-1.808520;-1.982615;, - 3.014805;-1.836940;-1.936395;, - 3.025176;-1.964569;-1.822026;, - 3.027127;-2.009352;-1.800528;, - 3.020539;-2.012505;-1.807301;, - 3.004508;-1.817490;-1.984084;, - 3.153206;-2.691971;-2.140597;, - 3.163745;-2.687435;-2.147923;, - 3.157798;-2.677531;-2.148668;, - 3.151802;-2.667890;-2.146403;, - 3.143455;-2.676012;-2.139355;, - 3.148350;-2.683884;-2.141205;, - 3.253796;-1.693204;-2.168705;, - 3.241673;-1.699645;-2.167945;, - 3.246878;-1.709053;-2.160794;, - 3.259184;-1.702943;-2.161301;, - 3.374940;-2.656944;-2.052655;, - 3.380162;-2.646197;-2.064644;, - 3.393780;-2.666129;-2.087698;, - 3.398116;-2.671570;-2.103218;, - 3.393364;-2.703906;-2.096520;, - 3.378573;-2.683973;-2.055964;, - 3.384064;-2.670675;-2.064704;, - 3.214578;-1.665001;-2.079334;, - 3.205128;-1.673365;-2.084665;, - 3.200462;-1.664930;-2.091076;, - 3.209374;-1.655593;-2.086485;, - 3.396850;-2.681211;-2.160243;, - 3.398159;-2.666129;-2.153014;, - 3.380267;-2.633063;-2.184861;, - 3.368122;-2.649449;-2.211980;, - 3.387330;-2.683973;-2.186595;, - 3.391603;-2.670675;-2.177163;, - 3.239881;-2.734048;-2.241230;, - 3.268855;-2.720856;-2.251839;, - 3.252730;-2.693628;-2.257304;, - 3.225424;-2.709636;-2.246130;, - 3.281392;-2.676449;-2.259742;, - 3.298085;-2.704638;-2.254084;, - 3.325582;-2.686499;-2.247813;, - 3.309457;-2.659271;-2.253277;, - 3.218511;-1.645936;-2.114506;, - 3.218552;-1.630755;-2.121639;, - 3.239308;-1.599603;-2.089589;, - 3.249938;-1.617166;-2.062577;, - 3.227740;-1.649692;-2.088174;, - 3.224670;-1.636010;-2.097522;, - 3.213130;-1.631670;-2.119444;, - 3.202393;-1.640208;-2.120363;, - 3.203473;-1.640527;-2.133226;, - 3.214248;-1.632000;-2.132761;, - 3.168018;-2.703626;-2.067709;, - 3.172908;-2.710832;-2.075337;, - 3.160687;-2.711074;-2.081331;, - 3.156694;-2.705191;-2.075103;, - 3.152094;-2.698071;-2.070921;, - 3.162383;-2.694906;-2.062588;, - 3.465351;-1.635658;-2.112913;, - 3.455134;-1.604186;-2.108240;, - 3.459060;-1.604186;-2.166800;, - 3.468556;-1.635658;-2.160727;, - 3.225230;-2.734048;-2.022681;, - 3.210256;-2.709636;-2.019871;, - 3.235812;-2.693628;-2.004944;, - 3.252513;-2.720856;-2.008079;, - 3.464605;-1.688189;-2.162100;, - 3.466779;-1.673374;-2.169646;, - 3.446023;-1.704526;-2.201696;, - 3.436456;-1.717804;-2.204611;, - 3.441398;-1.722193;-2.188860;, - 3.445119;-1.717068;-2.188165;, - 3.447228;-1.721667;-2.173315;, - 3.459746;-1.703325;-2.158880;, - 3.462881;-1.691043;-2.167684;, - 3.253859;-1.724438;-2.126915;, - 3.240346;-1.726654;-2.127325;, - 3.239378;-1.726368;-2.115793;, - 3.252779;-1.724119;-2.114052;, - 3.248875;-1.586324;-2.086674;, - 3.239308;-1.599603;-2.089589;, - 3.218552;-1.630755;-2.121639;, - 3.220725;-1.615939;-2.129185;, - 3.222450;-1.613085;-2.123601;, - 3.225585;-1.600803;-2.132405;, - 3.243389;-1.575238;-2.117595;, - 3.247712;-1.576810;-2.102588;, - 3.243933;-1.581935;-2.102425;, - 3.322548;-1.528306;-2.171092;, - 3.355816;-1.528276;-2.174129;, - 3.351890;-1.528276;-2.115568;, - 3.319342;-1.528306;-2.123277;, - 3.270547;-2.552155;-2.099839;, - 3.281863;-2.576567;-2.048080;, - 3.250176;-2.584881;-2.041058;, - 3.241850;-2.568163;-2.067906;, - 3.237555;-2.557653;-2.098788;, - 3.038544;-2.008280;-1.799057;, - 3.049504;-2.009493;-1.802195;, - 3.050941;-2.243526;-1.786392;, - 3.039991;-2.244279;-1.783122;, - 3.262139;-2.584881;-2.219503;, - 3.250309;-2.568163;-2.194086;, - 3.220157;-2.582127;-2.198462;, - 3.232404;-2.599436;-2.224776;, - 3.133078;-2.271816;-2.457637;, - 3.140512;-2.272779;-2.457637;, - 3.140512;-2.246469;-2.470714;, - 3.146202;-2.245731;-2.470714;, - 3.144522;-2.220615;-2.479908;, - 3.140512;-2.219905;-2.480069;, - 3.140512;-2.194762;-2.485347;, - 3.137925;-2.199347;-2.484699;, - 3.136028;-2.193600;-2.485347;, - 3.132926;-2.196710;-2.484699;, - 3.131850;-2.190193;-2.485347;, - 3.125463;-2.211967;-2.480069;, - 3.128756;-2.216529;-2.479908;, - 3.118716;-2.264241;-2.457637;, - 3.030775;-2.511512;-2.008735;, - 3.026121;-2.525958;-2.060048;, - 3.014965;-2.529078;-2.059070;, - 3.019657;-2.514511;-2.007330;, - 3.127692;-2.575008;-2.254237;, - 3.350325;-2.868256;-2.254237;, - 3.384280;-2.823531;-2.397807;, - 3.176759;-2.550187;-2.397807;, - 3.232224;-2.621993;-2.018311;, - 3.261965;-2.606669;-2.020073;, - 3.276415;-2.632042;-2.006382;, - 3.247184;-2.648260;-2.004137;, - 3.226271;-1.699942;-2.124485;, - 3.239701;-1.676943;-2.072576;, - 3.258679;-1.702500;-2.061957;, - 3.248905;-1.718250;-2.088908;, - 3.243700;-1.728152;-2.119854;, - 3.228005;-2.673625;-2.120859;, - 3.230292;-2.661937;-2.114476;, - 3.228260;-2.658010;-2.119488;, - 3.225566;-2.653140;-2.123190;, - 3.221320;-2.661185;-2.133183;, - 3.168730;-2.670512;-2.153015;, - 3.157798;-2.677531;-2.148668;, - 3.163745;-2.687435;-2.147923;, - 3.175364;-2.681559;-2.152184;, - 3.205447;-1.648007;-2.096168;, - 3.196942;-1.658128;-2.099758;, - 3.194807;-1.653424;-2.110118;, - 3.203066;-1.642760;-2.107723;, - 3.403792;-1.667020;-2.031509;, - 3.386703;-1.690019;-2.028848;, - 3.360928;-1.671711;-2.017566;, - 3.379987;-1.646059;-2.020533;, - 3.412976;-1.622156;-2.250447;, - 3.426652;-1.601629;-2.229328;, - 3.401951;-1.579510;-2.234244;, - 3.387792;-1.600761;-2.256108;, - 3.202253;-2.707764;-2.080378;, - 3.189836;-2.713454;-2.081950;, - 3.185584;-2.707654;-2.071225;, - 3.197851;-2.701760;-2.069275;, - 3.025176;-1.964569;-1.822026;, - 3.014805;-1.836940;-1.936395;, - 3.026099;-1.834160;-1.936264;, - 3.036582;-1.963252;-1.820678;, - 3.287956;-1.541894;-2.182339;, - 3.288383;-1.536769;-2.132510;, - 3.283577;-1.541894;-2.117024;, - 3.270492;-1.547931;-2.125653;, - 3.268039;-1.550786;-2.120365;, - 3.257715;-1.556896;-2.130124;, - 3.260590;-1.556896;-2.173017;, - 3.272118;-1.550786;-2.181225;, - 3.273843;-1.547931;-2.175641;, - 3.214231;-2.669678;-2.141115;, - 3.204781;-2.678042;-2.146446;, - 3.209985;-2.687450;-2.139294;, - 3.218898;-2.678113;-2.134703;, - 3.257317;-1.683283;-2.075291;, - 3.245879;-1.690868;-2.074446;, - 3.238956;-1.679736;-2.071830;, - 3.250629;-1.672530;-2.072765;, - 3.281790;-1.659470;-2.095953;, - 3.284811;-1.652986;-2.107314;, - 3.289096;-1.659299;-2.113997;, - 3.290068;-1.671667;-2.108865;, - 3.285043;-1.664505;-2.098910;, - 3.360270;-1.535119;-2.201960;, - 3.350325;-1.550411;-2.254237;, - 3.384280;-1.595136;-2.397807;, - 3.684157;-1.443442;-2.397807;, - 3.672038;-1.387670;-2.254237;, - 3.669236;-1.374773;-2.162286;, - 3.375798;-1.523179;-2.160904;, - 3.263406;-2.776332;-2.210141;, - 3.295093;-2.768017;-2.217164;, - 3.283304;-2.746229;-2.238148;, - 3.252836;-2.756797;-2.228956;, - 3.277149;-1.710332;-2.125309;, - 3.266412;-1.718871;-2.126228;, - 3.265293;-1.718541;-2.112911;, - 3.276068;-1.710013;-2.112445;, - 3.237555;-2.557653;-2.098788;, - 3.241850;-2.568163;-2.067906;, - 3.211400;-2.582127;-2.067831;, - 3.206953;-2.571247;-2.099802;, - 3.250121;-1.646115;-2.081561;, - 3.237868;-1.650895;-2.077727;, - 3.232664;-1.641488;-2.084878;, - 3.245454;-1.637680;-2.087973;, - 3.252836;-2.756797;-2.228956;, - 3.283304;-2.746229;-2.238148;, - 3.268855;-2.720856;-2.251839;, - 3.239881;-2.734048;-2.241230;, - 3.215886;-2.702516;-2.092553;, - 3.205111;-2.711043;-2.093018;, - 3.202253;-2.707764;-2.080378;, - 3.213126;-2.699349;-2.080343;, - 3.248875;-1.586324;-2.086674;, - 3.268233;-1.560673;-2.094092;, - 3.278996;-1.560613;-2.080968;, - 3.267440;-1.575677;-2.073806;, - 3.277421;-1.579609;-2.060627;, - 3.249938;-1.617166;-2.062577;, - 3.239308;-1.599603;-2.089589;, - 3.186696;-2.701555;-2.140901;, - 3.173905;-2.705363;-2.137807;, - 3.177425;-2.712164;-2.129125;, - 3.190623;-2.709141;-2.131218;, - 3.338416;-2.634335;-1.894926;, - 3.363832;-2.682964;-1.908058;, - 3.297637;-2.727068;-1.872844;, - 3.272221;-2.678440;-1.859714;, - 3.131461;-2.295990;-2.441194;, - 3.133078;-2.271816;-2.457637;, - 3.118716;-2.264241;-2.457637;, - 3.112033;-2.257758;-2.457637;, - 3.105840;-2.278875;-2.441194;, - 3.122565;-2.292512;-2.441194;, - 3.248079;-1.728152;-2.185170;, - 3.243418;-1.731529;-2.152687;, - 3.267581;-1.754672;-2.150972;, - 3.272406;-1.751176;-2.184601;, - 3.148350;-2.683884;-2.141205;, - 3.143455;-2.676012;-2.139355;, - 3.138854;-2.668892;-2.135174;, - 3.134316;-2.678538;-2.126870;, - 3.141031;-2.689139;-2.131134;, - 3.248905;-1.718250;-2.088908;, - 3.258679;-1.702500;-2.061957;, - 3.283380;-1.724619;-2.057041;, - 3.273262;-1.740925;-2.084943;, - 3.179048;-2.635927;-2.143169;, - 3.166973;-2.642105;-2.145420;, - 3.173480;-2.652175;-2.151334;, - 3.185333;-2.645654;-2.148882;, - 3.285043;-1.664505;-2.098910;, - 3.280506;-1.674151;-2.090606;, - 3.275905;-1.667031;-2.086424;, - 3.281790;-1.659470;-2.095953;, - 3.248079;-1.728152;-2.185170;, - 3.230197;-1.699942;-2.183045;, - 3.226271;-1.699942;-2.124485;, - 3.243700;-1.728152;-2.119854;, - 3.243418;-1.731529;-2.152687;, - 3.297143;-1.767445;-2.116061;, - 3.267873;-1.751176;-2.116981;, - 3.273262;-1.740925;-2.084943;, - 3.302348;-1.757544;-2.085114;, - 3.008571;-1.842638;-2.253547;, - 3.011447;-1.813030;-2.221821;, - 3.000170;-1.810165;-2.222188;, - 2.997270;-1.840016;-2.254175;, - 3.154066;-2.624502;-2.112869;, - 3.143291;-2.633029;-2.113334;, - 3.146052;-2.636196;-2.125543;, - 3.156924;-2.627781;-2.125509;, - 3.185584;-2.707654;-2.071225;, - 3.172908;-2.710832;-2.075337;, - 3.168018;-2.703626;-2.067709;, - 3.180129;-2.699618;-2.062717;, - 3.353796;-2.579037;-2.148463;, - 3.341303;-2.571807;-2.157050;, - 3.354921;-2.591740;-2.180104;, - 3.371920;-2.618968;-2.187689;, - 3.377229;-2.615131;-2.171913;, - 3.373921;-2.609691;-2.171716;, - 3.378363;-2.608599;-2.156700;, - 3.365724;-2.589130;-2.144051;, - 3.355987;-2.582067;-2.153769;, - 3.173905;-2.705363;-2.137807;, - 3.169239;-2.696928;-2.144219;, - 3.157691;-2.699722;-2.137572;, - 3.164376;-2.712162;-2.125248;, - 3.177425;-2.712164;-2.129125;, - 3.208737;-2.660185;-2.144819;, - 3.198653;-2.667454;-2.150577;, - 3.204781;-2.678042;-2.146446;, - 3.214231;-2.669678;-2.141115;, - 3.459060;-1.604186;-2.166800;, - 3.455134;-1.604186;-2.108240;, - 3.437253;-1.575977;-2.106115;, - 3.441913;-1.572600;-2.138598;, - 3.441631;-1.575977;-2.171431;, - 3.258033;-1.709258;-2.089168;, - 3.245766;-1.715153;-2.091118;, - 3.240311;-1.707116;-2.082610;, - 3.252386;-1.700938;-2.080359;, - 3.140512;-1.934486;-2.261767;, - 3.140512;-1.966456;-2.374852;, - 3.153389;-1.968124;-2.374852;, - 3.155509;-1.936429;-2.261767;, - 3.140512;-2.354858;-2.374852;, - 3.140512;-2.386828;-2.261767;, - 3.155509;-2.384885;-2.261767;, - 3.153389;-2.353190;-2.374852;, - 4.007751;-1.684109;-1.533401;, - 4.007792;-1.681711;-1.557357;, - 4.028583;-1.698269;-1.555647;, - 4.028228;-1.719984;-1.477485;, - 4.007401;-1.705961;-1.470101;, - 3.342945;-1.752853;-2.065247;, - 3.312122;-1.741793;-2.058164;, - 3.325798;-1.721267;-2.037045;, - 3.355207;-1.734449;-2.046313;, - 3.252386;-1.700938;-2.080359;, - 3.240311;-1.707116;-2.082610;, - 3.234026;-1.697389;-2.076898;, - 3.245879;-1.690868;-2.074446;, - 3.193004;-2.714389;-2.119663;, - 3.179560;-2.716869;-2.118765;, - 3.180164;-2.719157;-2.107433;, - 3.193677;-2.716940;-2.107023;, - 3.255615;-1.655608;-2.077857;, - 3.243996;-1.661483;-2.073595;, - 3.237868;-1.650895;-2.077727;, - 3.250121;-1.646115;-2.081561;, - 3.334819;-2.667675;-2.014902;, - 3.309241;-2.686499;-2.004052;, - 3.292539;-2.659271;-2.000917;, - 3.319845;-2.643263;-2.012091;, - 4.014580;-2.580492;-1.365877;, - 4.014234;-2.602738;-1.381582;, - 3.993047;-2.610248;-1.369934;, - 3.993438;-2.585402;-1.352396;, - 3.200567;-2.092404;-2.441194;, - 3.210271;-2.081375;-2.421694;, - 3.214929;-2.099979;-2.421694;, - 3.224003;-2.092581;-2.399446;, - 3.218777;-2.071708;-2.399446;, - 3.204415;-2.034864;-2.399446;, - 3.210271;-2.023336;-2.374852;, - 3.200567;-2.006592;-2.374852;, - 3.189839;-1.992474;-2.374852;, - 3.175185;-2.042439;-2.441194;, - 3.365724;-2.589130;-2.144051;, - 3.378363;-2.608599;-2.156700;, - 3.393817;-2.635736;-2.142057;, - 3.390941;-2.635736;-2.099164;, - 3.373680;-2.608599;-2.086844;, - 3.362848;-2.589130;-2.101159;, - 3.996789;-2.375545;-1.509620;, - 3.996723;-2.379231;-1.460097;, - 3.996315;-2.404239;-1.397150;, - 3.996088;-2.418198;-1.377575;, - 3.993366;-2.419482;-1.383084;, - 3.995013;-2.377256;-1.519543;, - 3.999427;-2.590586;-1.508035;, - 3.997138;-2.593463;-1.486172;, - 3.997187;-2.590340;-1.523940;, - 3.034086;-2.092211;-2.318368;, - 3.038482;-1.895944;-2.269854;, - 3.012606;-1.888460;-2.273642;, - 3.008083;-2.090418;-2.323563;, - 3.247393;-2.621993;-2.244571;, - 3.264102;-2.648260;-2.256497;, - 3.292756;-2.632042;-2.250143;, - 3.276617;-2.606669;-2.238623;, - 3.330124;-1.569679;-2.244972;, - 3.315199;-1.591111;-2.257387;, - 3.342886;-1.606766;-2.268087;, - 3.359533;-1.582862;-2.254240;, - 3.368122;-2.649449;-2.211980;, - 3.349470;-2.667675;-2.233452;, - 3.362425;-2.690424;-2.221176;, - 3.372995;-2.709958;-2.202362;, - 3.387330;-2.683973;-2.186595;, - 3.270492;-1.547931;-2.125653;, - 3.283577;-1.541894;-2.117024;, - 3.268233;-1.560673;-2.094092;, - 3.248875;-1.586324;-2.086674;, - 3.243933;-1.581935;-2.102425;, - 3.247712;-1.576810;-2.102588;, - 3.243389;-1.575238;-2.117595;, - 3.257715;-1.556896;-2.130124;, - 3.268039;-1.550786;-2.120365;, - 3.195799;-2.685224;-2.024770;, - 3.219687;-2.666399;-2.010409;, - 3.235812;-2.693628;-2.004944;, - 3.210256;-2.709636;-2.019871;, - 4.051612;-2.458216;-1.523471;, - 4.053639;-2.470585;-1.532176;, - 4.053287;-2.478345;-1.543972;, - 4.053278;-2.478667;-1.536761;, - 4.053232;-2.481326;-1.530084;, - 4.053205;-2.482832;-1.527984;, - 4.053170;-2.484913;-1.526437;, - 4.053061;-2.491475;-1.523627;, - 4.053021;-2.493824;-1.523380;, - 4.052907;-2.500716;-1.525295;, - 4.052822;-2.505904;-1.529802;, - 4.052763;-2.509734;-1.536646;, - 4.052757;-2.510301;-1.539643;, - 4.052770;-2.509838;-1.544723;, - 4.052833;-2.506478;-1.552052;, - 4.052865;-2.504708;-1.553988;, - 4.052846;-2.509501;-1.555596;, - 4.050123;-2.551108;-1.563847;, - 4.042663;-2.571511;-1.581782;, - 4.042000;-2.613460;-1.492472;, - 4.042052;-2.610309;-1.475865;, - 4.043437;-2.522058;-1.402162;, - 4.050644;-2.517020;-1.440183;, - 3.999768;-2.569115;-1.557696;, - 4.020518;-2.489552;-1.595666;, - 4.020484;-2.491707;-1.592734;, - 4.020471;-2.492510;-1.590444;, - 3.999459;-2.588610;-1.524234;, - 3.218552;-1.630755;-2.121639;, - 3.218511;-1.645936;-2.114506;, - 3.215230;-1.652176;-2.134009;, - 3.216775;-1.668470;-2.130558;, - 3.219980;-1.668470;-2.178372;, - 3.218124;-1.635880;-2.171468;, - 3.242786;-1.582462;-2.187827;, - 3.260590;-1.556896;-2.173017;, - 3.257715;-1.556896;-2.130124;, - 3.243389;-1.575238;-2.117595;, - 3.225585;-1.600803;-2.132405;, - 3.228460;-1.600803;-2.175297;, - 3.252779;-1.724119;-2.114052;, - 3.239378;-1.726368;-2.115793;, - 3.236903;-1.723529;-2.104845;, - 3.250018;-1.720952;-2.101842;, - 4.258196;-2.003136;-1.595792;, - 4.506066;-1.877750;-1.873017;, - 4.578115;-2.209333;-1.873017;, - 4.303000;-2.209333;-1.595792;, - 3.349470;-2.667675;-2.233452;, - 3.325582;-2.686499;-2.247813;, - 3.340031;-2.711872;-2.234122;, - 3.362425;-2.690424;-2.221176;, - 3.209374;-1.655593;-2.086485;, - 3.200462;-1.664930;-2.091076;, - 3.196942;-1.658128;-2.099758;, - 3.205447;-1.648007;-2.096168;, - 3.012122;-2.488395;-2.214431;, - 3.008708;-2.447918;-2.252079;, - 2.997407;-2.450392;-2.252693;, - 3.000849;-2.491205;-2.214732;, - 3.463943;-1.560922;-1.978467;, - 3.438706;-1.594183;-1.963882;, - 3.386072;-1.651798;-1.960445;, - 3.429690;-1.616564;-1.934569;, - 3.444446;-1.600994;-1.934195;, - 3.460612;-1.581362;-1.939693;, - 3.472802;-1.562363;-1.953473;, - 3.485219;-1.536085;-1.983409;, - 3.488259;-1.521151;-2.010250;, - 2.984187;-2.481760;-2.208158;, - 2.989772;-2.488808;-2.212439;, - 2.986362;-2.448292;-2.250043;, - 2.981524;-2.330729;-2.303392;, - 2.976156;-2.327348;-2.296721;, - 2.980872;-2.442103;-2.244720;, - 3.274095;-1.702533;-2.149504;, - 3.263249;-1.710797;-2.151277;, - 3.265714;-1.716229;-2.139314;, - 3.276475;-1.707781;-2.137949;, - 3.212138;-1.718865;-2.114241;, - 3.223983;-1.722817;-2.109074;, - 3.226003;-1.725136;-2.118012;, - 3.226794;-1.725369;-2.127429;, - 3.214127;-1.720670;-2.127219;, - 3.213567;-1.720505;-2.120561;, - 2.991543;-2.238936;-2.035766;, - 2.993424;-2.248072;-2.015023;, - 3.013831;-2.251162;-2.022520;, - 3.012091;-2.243619;-2.040189;, - 4.010237;-1.769182;-1.542712;, - 4.012439;-1.771796;-1.548582;, - 4.012447;-1.771296;-1.582726;, - 3.203067;-2.703299;-2.131384;, - 3.190623;-2.709141;-2.131218;, - 3.193004;-2.714389;-2.119663;, - 3.205532;-2.708731;-2.119421;, - 3.333908;-1.652064;-2.015012;, - 3.353640;-1.625507;-2.018083;, - 3.379987;-1.646059;-2.020533;, - 3.360928;-1.671711;-2.017566;, - 3.171907;-2.660801;-2.052798;, - 3.160524;-2.668091;-2.055309;, - 3.154396;-2.657503;-2.059441;, - 3.165563;-2.649839;-2.057075;, - 3.240585;-1.670805;-2.173842;, - 3.228912;-1.678010;-2.172907;, - 3.235546;-1.689057;-2.172077;, - 3.247452;-1.682242;-2.172982;, - 3.056120;-2.241231;-1.793847;, - 3.080771;-2.238774;-1.803568;, - 3.076111;-2.365633;-1.854934;, - 3.051326;-2.371767;-1.846702;, - 3.213010;-2.676376;-2.064606;, - 3.203419;-2.685512;-2.061111;, - 3.197134;-2.675786;-2.055399;, - 3.207375;-2.667655;-2.059484;, - 3.173844;-2.689891;-2.057006;, - 3.162383;-2.694906;-2.062588;, - 3.156387;-2.685264;-2.060323;, - 3.167157;-2.679138;-2.054479;, - 3.271723;-1.642704;-2.097214;, - 3.261668;-1.643321;-2.088208;, - 3.257858;-1.636434;-2.093443;, - 3.254983;-1.630881;-2.100531;, - 3.266996;-1.633908;-2.105928;, - 3.218898;-2.678113;-2.134703;, - 3.209985;-2.687450;-2.139294;, - 3.213912;-2.695036;-2.129611;, - 3.222418;-2.684914;-2.126022;, - 3.222418;-2.684914;-2.126022;, - 3.228005;-2.673625;-2.120859;, - 3.221320;-2.661185;-2.133183;, - 3.214231;-2.669678;-2.141115;, - 3.218898;-2.678113;-2.134703;, - 3.037171;-2.209333;-2.087381;, - 3.048236;-2.209333;-2.254237;, - 3.127692;-1.843659;-2.254237;, - 3.117724;-1.838616;-2.087381;, - 3.193058;-2.619542;-2.089097;, - 3.179617;-2.618676;-2.087121;, - 3.179013;-2.616389;-2.098454;, - 3.192565;-2.617674;-2.098351;, - 3.117724;-2.580051;-2.087381;, - 3.127692;-2.575008;-2.254237;, - 3.048236;-2.209333;-2.254237;, - 3.037171;-2.209333;-2.087381;, - 3.436456;-1.717804;-2.204611;, - 3.417098;-1.743456;-2.197193;, - 3.401754;-1.762235;-2.174261;, - 3.414839;-1.756197;-2.165632;, - 3.417293;-1.753343;-2.170920;, - 3.427616;-1.747232;-2.161161;, - 3.447228;-1.721667;-2.173315;, - 3.445119;-1.717068;-2.188165;, - 3.441398;-1.722193;-2.188860;, - 3.281895;-1.696279;-2.101742;, - 3.273308;-1.706846;-2.100236;, - 3.269056;-1.701047;-2.089511;, - 3.278082;-1.691079;-2.092126;, - 3.232664;-1.641488;-2.084878;, - 3.220357;-1.647598;-2.084371;, - 3.216292;-1.639744;-2.094395;, - 3.228737;-1.633902;-2.094562;, - 4.012002;-1.799356;-1.496141;, - 4.012439;-1.771796;-1.548582;, - 4.010237;-1.769182;-1.542712;, - 4.009938;-1.788000;-1.501324;, - 4.013300;-2.661220;-1.486673;, - 4.013381;-2.656448;-1.461510;, - 4.029849;-2.637803;-1.466305;, - 4.029779;-2.641885;-1.487826;, - 3.258679;-1.702500;-2.061957;, - 3.272355;-1.681973;-2.040838;, - 3.297539;-1.703368;-2.035178;, - 3.283380;-1.724619;-2.057041;, - 3.457591;-1.654437;-2.203111;, - 3.445630;-1.627185;-2.218709;, - 3.433368;-1.645589;-2.237644;, - 3.418443;-1.667020;-2.250059;, - 3.435393;-1.686962;-2.228708;, - 3.382506;-1.757044;-2.208441;, - 3.353670;-1.752853;-2.225237;, - 3.333441;-1.775852;-2.175717;, - 3.365989;-1.775823;-2.168008;, - 3.213827;-1.634311;-2.106359;, - 3.203066;-1.642760;-2.107723;, - 3.202393;-1.640208;-2.120363;, - 3.213130;-1.631670;-2.119444;, - 3.237868;-1.650895;-2.077727;, - 3.225745;-1.657337;-2.076967;, - 3.220357;-1.647598;-2.084371;, - 3.232664;-1.641488;-2.084878;, - 3.372624;-1.600760;-2.029848;, - 3.344882;-1.582862;-2.035690;, - 3.361247;-1.562335;-2.054677;, - 3.389566;-1.579510;-2.049504;, - 3.360063;-2.760889;-2.090091;, - 3.380385;-2.734371;-2.092043;, - 3.384311;-2.734371;-2.150603;, - 3.364442;-2.760889;-2.155407;, - 3.364413;-2.764473;-2.122596;, - 3.265415;-1.629871;-2.118453;, - 3.252747;-1.625172;-2.118243;, - 3.255559;-1.627723;-2.136598;, - 3.267403;-1.631675;-2.131431;, - 4.021170;-1.835496;-1.649585;, - 4.028078;-1.860622;-1.664978;, - 4.030369;-1.869696;-1.665979;, - 4.030324;-1.872530;-1.664236;, - 4.028011;-1.864812;-1.661203;, - 3.173480;-2.652175;-2.151334;, - 3.162043;-2.659759;-2.150488;, - 3.168730;-2.670512;-2.153015;, - 3.180403;-2.663307;-2.153949;, - 3.046020;-2.377493;-1.840636;, - 3.043274;-2.416561;-1.870913;, - 3.032260;-2.418764;-1.868351;, - 3.035029;-2.379369;-1.837821;, - 3.021422;-2.527508;-2.111860;, - 3.016558;-2.514956;-2.165506;, - 3.005322;-2.517985;-2.165403;, - 3.010227;-2.530641;-2.111313;, - 3.202790;-2.650280;-2.145564;, - 3.192020;-2.656407;-2.151408;, - 3.198653;-2.667454;-2.150577;, - 3.208737;-2.660185;-2.144819;, - 3.269604;-1.634677;-2.136982;, - 3.267403;-1.631675;-2.131431;, - 3.255559;-1.627723;-2.136598;, - 3.262665;-1.637852;-2.150677;, - 3.272428;-1.638837;-2.141387;, - 3.195433;-2.648110;-2.057964;, - 3.183814;-2.653986;-2.053703;, - 3.177686;-2.643398;-2.057834;, - 3.189939;-2.638617;-2.061668;, - 3.466820;-1.658192;-2.176779;, - 3.466779;-1.673374;-2.169646;, - 3.467207;-1.668248;-2.119817;, - 3.465351;-1.635658;-2.112913;, - 3.468556;-1.635658;-2.160727;, - 3.470101;-1.651952;-2.157276;, - 3.134624;-2.645926;-2.090225;, - 3.129429;-2.658079;-2.093487;, - 3.128936;-2.656211;-2.102740;, - 3.134021;-2.643639;-2.101558;, - 3.996895;-1.767949;-1.606108;, - 3.995091;-1.759432;-1.602625;, - 3.995236;-1.754376;-1.588851;, - 3.995033;-1.769117;-1.498571;, - 3.994872;-1.779970;-1.485483;, - 3.996707;-1.781478;-1.492171;, - 3.997056;-1.759674;-1.537207;, - 3.997009;-1.761843;-1.593180;, - 3.361247;-1.562335;-2.054677;, - 3.374524;-1.546584;-2.079991;, - 3.403312;-1.563203;-2.075711;, - 3.389566;-1.579510;-2.049504;, - 3.202482;-2.630355;-2.130785;, - 3.191160;-2.631919;-2.138177;, - 3.196795;-2.640640;-2.143299;, - 3.207083;-2.637475;-2.134966;, - 3.267557;-1.675153;-2.079377;, - 3.257317;-1.683283;-2.075291;, - 3.250629;-1.672530;-2.072765;, - 3.261562;-1.665512;-2.077111;, - 3.227155;-1.649603;-2.165313;, - 3.215940;-1.657531;-2.164669;, - 3.222225;-1.667257;-2.170381;, - 3.233662;-1.659673;-2.171227;, - 3.284370;-1.699119;-2.112689;, - 3.276068;-1.710013;-2.112445;, - 3.273308;-1.706846;-2.100236;, - 3.281895;-1.696279;-2.101742;, - 3.229654;-2.652650;-2.097377;, - 3.224629;-2.645488;-2.087421;, - 3.221060;-2.639647;-2.086967;, - 3.216971;-2.632256;-2.092584;, - 3.217182;-2.631100;-2.105785;, - 3.219783;-2.634808;-2.110939;, - 3.226678;-2.646092;-2.111817;, - 3.228073;-2.648613;-2.109901;, - 2.995037;-2.075505;-1.997235;, - 3.012365;-2.073053;-2.003459;, - 3.013197;-2.060053;-1.995339;, - 2.995837;-2.060942;-1.988415;, - 3.153389;-1.968124;-2.374852;, - 3.166046;-1.973073;-2.374852;, - 3.178264;-1.981245;-2.374852;, - 3.184479;-1.951710;-2.261767;, - 3.155509;-1.936429;-2.261767;, - 2.972758;-2.241735;-2.101233;, - 2.986040;-2.254133;-2.096442;, - 2.985195;-2.271832;-2.105763;, - 2.973206;-2.286079;-2.118433;, - 3.134861;-2.663009;-2.128945;, - 3.131493;-2.674378;-2.122466;, - 3.134316;-2.678538;-2.126870;, - 3.138854;-2.668892;-2.135174;, - 4.043342;-1.789305;-1.662302;, - 4.044371;-1.722966;-1.573436;, - 4.028518;-1.702835;-1.576707;, - 4.028114;-1.729475;-1.631163;, - 4.013821;-1.719668;-1.639163;, - 4.012950;-1.775131;-1.693008;, - 3.225683;-1.626103;-2.118757;, - 3.213130;-1.631670;-2.119444;, - 3.214248;-1.632000;-2.132761;, - 3.226763;-1.626421;-2.131620;, - 3.273192;-1.683874;-2.084498;, - 3.263601;-1.693010;-2.081003;, - 3.257317;-1.683283;-2.075291;, - 3.267557;-1.675153;-2.079377;, - 3.241673;-1.699645;-2.167945;, - 3.229421;-1.704426;-2.164111;, - 3.234087;-1.712860;-2.157699;, - 3.246878;-1.709053;-2.160794;, - 4.029779;-2.641885;-1.487826;, - 4.042000;-2.613460;-1.492472;, - 4.042663;-2.571511;-1.581782;, - 4.030626;-2.587488;-1.603575;, - 4.030202;-2.614227;-1.577150;, - 3.190447;-2.665033;-2.052872;, - 3.178775;-2.672238;-2.051937;, - 3.171907;-2.660801;-2.052798;, - 3.183814;-2.653986;-2.053703;, - 3.362783;-1.775823;-2.120193;, - 3.365989;-1.775823;-2.168008;, - 3.333441;-1.775852;-2.175717;, - 3.329515;-1.775852;-2.117157;, - 3.207375;-2.667655;-2.059484;, - 3.197134;-2.675786;-2.055399;, - 3.190447;-2.665033;-2.052872;, - 3.201380;-2.658015;-2.057219;, - 3.186270;-2.624713;-2.130549;, - 3.173594;-2.627890;-2.134661;, - 3.179048;-2.635927;-2.143169;, - 3.191160;-2.631919;-2.138177;, - 3.217182;-2.631100;-2.105785;, - 3.207221;-2.624178;-2.111538;, - 3.209422;-2.627180;-2.117090;, - 3.212245;-2.631340;-2.121494;, - 3.219783;-2.634808;-2.110939;, - 3.185272;-2.630182;-2.068080;, - 3.197675;-2.628937;-2.073550;, - 3.205971;-2.643574;-2.065290;, - 3.195433;-2.648110;-2.057964;, - 3.189939;-2.638617;-2.061668;, - 3.281895;-1.696279;-2.101742;, - 3.287611;-1.684280;-2.104685;, - 3.289632;-1.686598;-2.113623;, - 3.290423;-1.686832;-2.123039;, - 3.285339;-1.699404;-2.124222;, - 3.284370;-1.699119;-2.112689;, - 3.281168;-2.704638;-2.001725;, - 3.309241;-2.686499;-2.004052;, - 3.325380;-2.711872;-2.015572;, - 3.297876;-2.730906;-2.013651;, - 3.371920;-2.618968;-2.187689;, - 3.380267;-2.633063;-2.184861;, - 3.398159;-2.666129;-2.153014;, - 3.397310;-2.651225;-2.145374;, - 3.395849;-2.648195;-2.150939;, - 3.393817;-2.635736;-2.142057;, - 3.378363;-2.608599;-2.156700;, - 3.373921;-2.609691;-2.171716;, - 3.377229;-2.615131;-2.171913;, - 3.262972;-1.657778;-2.165457;, - 3.252202;-1.663904;-2.171301;, - 3.258836;-1.674951;-2.170470;, - 3.268919;-1.667683;-2.164712;, - 3.216966;-2.702835;-2.105416;, - 3.206229;-2.711373;-2.106335;, - 3.205111;-2.711043;-2.093018;, - 3.215886;-2.702516;-2.092553;, - 4.013353;-2.657274;-1.529344;, - 4.013797;-2.628877;-1.591102;, - 3.999220;-2.636981;-1.600843;, - 3.992575;-2.639438;-1.603964;, - 3.992351;-2.653514;-1.581462;, - 3.992073;-2.671168;-1.534970;, - 3.149192;-2.648095;-2.066592;, - 3.140280;-2.657432;-2.071184;, - 3.136759;-2.650631;-2.079865;, - 3.145265;-2.640509;-2.076276;, - 3.206234;-1.643694;-2.145436;, - 3.197647;-1.654261;-2.143930;, - 3.201459;-1.659461;-2.153546;, - 3.210486;-1.649494;-2.156161;, - 3.427453;-1.464122;-1.985409;, - 3.403137;-1.503893;-1.953626;, - 3.463943;-1.560923;-1.978467;, - 3.488259;-1.521152;-2.010250;, - 3.206814;-2.626410;-2.086035;, - 3.216971;-2.632256;-2.092584;, - 3.221060;-2.639647;-2.086967;, - 3.214712;-2.640688;-2.075182;, - 3.208846;-2.630337;-2.081023;, - 3.282577;-1.655157;-2.145221;, - 3.285218;-1.650753;-2.132817;, - 3.278503;-1.640152;-2.128552;, - 3.269604;-1.634677;-2.136982;, - 3.272428;-1.638837;-2.141387;, - 3.279143;-1.649439;-2.145651;, - 3.320039;-2.618850;-2.235541;, - 3.292756;-2.632042;-2.250143;, - 3.309457;-2.659271;-2.253277;, - 3.335013;-2.643263;-2.238351;, - 3.202525;-1.689609;-2.089572;, - 3.210622;-1.682858;-2.080960;, - 3.216570;-1.692762;-2.080215;, - 3.222565;-1.702403;-2.082481;, - 3.212276;-1.705568;-2.090813;, - 3.229654;-2.652650;-2.097377;, - 3.231314;-2.665809;-2.095293;, - 3.227684;-2.661167;-2.083421;, - 3.221607;-2.651972;-2.076061;, - 3.224629;-2.645488;-2.087421;, - 3.217901;-2.683581;-2.072234;, - 3.208873;-2.693549;-2.069619;, - 3.203419;-2.685512;-2.061111;, - 3.213010;-2.676376;-2.064606;, - 3.223927;-1.694933;-2.167815;, - 3.217980;-1.685028;-2.168561;, - 3.208532;-1.691381;-2.161098;, - 3.213388;-1.699468;-2.160489;, - 3.217874;-1.707219;-2.157465;, - 3.229421;-1.704426;-2.164111;, - 3.077568;-1.974879;-1.838836;, - 3.067724;-1.853657;-1.947374;, - 3.229093;-1.860287;-1.964509;, - 3.238720;-1.978833;-1.858366;, - 3.442955;-2.415531;-1.595792;, - 3.568493;-2.580888;-1.595792;, - 3.396962;-2.806826;-1.873017;, - 3.195085;-2.540917;-1.873017;, - 3.983863;-2.591911;-1.442410;, - 3.982010;-2.598047;-1.442937;, - 3.981714;-2.607305;-1.463974;, - 3.982123;-2.553131;-1.600336;, - 3.984463;-2.544676;-1.593526;, - 3.984049;-2.577489;-1.564713;, - 3.983688;-2.599617;-1.526998;, - 3.983602;-2.604151;-1.506184;, - 3.983690;-2.600415;-1.462392;, - 3.232348;-2.777839;-2.197597;, - 3.217724;-2.775986;-2.189505;, - 3.222971;-2.786522;-2.172585;, - 3.225678;-2.793146;-2.153123;, - 3.241587;-2.797772;-2.155335;, - 3.274722;-2.800744;-2.158382;, - 3.263406;-2.776332;-2.210141;, - 3.442808;-1.681055;-2.069340;, - 3.447056;-1.692152;-2.081398;, - 3.427699;-1.717804;-2.073980;, - 3.418131;-1.731082;-2.076895;, - 3.395947;-1.724519;-2.052213;, - 3.423430;-1.686962;-2.050262;, - 3.431252;-1.696119;-2.062178;, - 3.197675;-2.628937;-2.073550;, - 3.208846;-2.630337;-2.081023;, - 3.214712;-2.640688;-2.075182;, - 3.205971;-2.643574;-2.065290;, - 3.070571;-1.981230;-2.261767;, - 3.034367;-2.074108;-2.261767;, - 3.049371;-2.086342;-2.374852;, - 3.055075;-2.063556;-2.374852;, - 3.062248;-2.071708;-2.399446;, - 3.076609;-2.034864;-2.399446;, - 3.070753;-2.023336;-2.374852;, - 3.080458;-2.006592;-2.374852;, - 3.271009;-1.659159;-2.084575;, - 3.261562;-1.665512;-2.077111;, - 3.255615;-1.655608;-2.077857;, - 3.266154;-1.651072;-2.085183;, - 3.269056;-1.701047;-2.089511;, - 3.258033;-1.709258;-2.089168;, - 3.252386;-1.700938;-2.080359;, - 3.263601;-1.693010;-2.081003;, - 4.028583;-1.698269;-1.555647;, - 4.028518;-1.702835;-1.576707;, - 4.044371;-1.722966;-1.573436;, - 4.044425;-1.719061;-1.555421;, - 3.142211;-2.632711;-2.100471;, - 3.134021;-2.643639;-2.101558;, - 3.134990;-2.643924;-2.113091;, - 3.143291;-2.633029;-2.113334;, - 3.166581;-2.618924;-2.111727;, - 3.154066;-2.624502;-2.112869;, - 3.156924;-2.627781;-2.125509;, - 3.169341;-2.622091;-2.123937;, - 3.151956;-2.711368;-2.094349;, - 3.153944;-2.713172;-2.107327;, - 3.153595;-2.711851;-2.113870;, - 3.142844;-2.704695;-2.110206;, - 3.140856;-2.702891;-2.097227;, - 3.149755;-2.708366;-2.088797;, - 3.008571;-1.842638;-2.253547;, - 2.997270;-1.840016;-2.254175;, - 2.994962;-1.879169;-2.279630;, - 3.006283;-1.881469;-2.278793;, - 3.141031;-2.689139;-2.131134;, - 3.134316;-2.678538;-2.126870;, - 3.131493;-2.674378;-2.122466;, - 3.131403;-2.685297;-2.114655;, - 3.136340;-2.692938;-2.119143;, - 3.250018;-1.720952;-2.101842;, - 3.236903;-1.723529;-2.104845;, - 3.233090;-1.718329;-2.095230;, - 3.245766;-1.715153;-2.091118;, - 3.129524;-2.682895;-2.108510;, - 3.127863;-2.669737;-2.110594;, - 3.127303;-2.669572;-2.103935;, - 3.128884;-2.673609;-2.091411;, - 3.130053;-2.684899;-2.098580;, - 3.189474;-1.678874;-2.136807;, - 3.188045;-1.677234;-2.130486;, - 3.189706;-1.690392;-2.128403;, - 3.191585;-1.692795;-2.134548;, - 3.191675;-1.681876;-2.142358;, - 3.332129;-2.609584;-2.035240;, - 3.305388;-2.618850;-2.016991;, - 3.292433;-2.596102;-2.029266;, - 3.281863;-2.576567;-2.048080;, - 3.312921;-2.575060;-2.060625;, - 3.261901;-1.617166;-2.241023;, - 3.254079;-1.608009;-2.229107;, - 3.242523;-1.623074;-2.221945;, - 3.232209;-1.636010;-2.209980;, - 3.236498;-1.649692;-2.218805;, - 3.250427;-1.676943;-2.232566;, - 3.265099;-1.658540;-2.249588;, - 3.281540;-1.637108;-2.259777;, - 3.232089;-1.668299;-2.072690;, - 3.220706;-1.675589;-2.075202;, - 3.214578;-1.665001;-2.079334;, - 3.225745;-1.657337;-2.076967;, - 3.140217;-2.693604;-2.080128;, - 3.146931;-2.704206;-2.084393;, - 3.149755;-2.708366;-2.088797;, - 3.140856;-2.702891;-2.097227;, - 3.135919;-2.695250;-2.092740;, - 3.250804;-1.716639;-2.151111;, - 3.237608;-1.719662;-2.149018;, - 3.239743;-1.724367;-2.138658;, - 3.253186;-1.721886;-2.139555;, - 3.231314;-2.665809;-2.095293;, - 3.229654;-2.652650;-2.097377;, - 3.228073;-2.648613;-2.109901;, - 3.228260;-2.658010;-2.119488;, - 3.230292;-2.661937;-2.114476;, - 3.231525;-2.664653;-2.108494;, - 3.131403;-2.685297;-2.114655;, - 3.129524;-2.682895;-2.108510;, - 3.130053;-2.684899;-2.098580;, - 3.135919;-2.695250;-2.092740;, - 3.140856;-2.702891;-2.097227;, - 3.142844;-2.704695;-2.110206;, - 3.142206;-2.703289;-2.113302;, - 3.136340;-2.692938;-2.119143;, - 3.203026;-1.712193;-2.130099;, - 3.198300;-1.703396;-2.138813;, - 3.191585;-1.692795;-2.134548;, - 3.189706;-1.690392;-2.128403;, - 3.191287;-1.694429;-2.115879;, - 3.194324;-1.699787;-2.112855;, - 3.199577;-1.708235;-2.114840;, - 3.202918;-1.712791;-2.123265;, - 3.241852;-2.236904;-1.823877;, - 3.080771;-2.238774;-1.803568;, - 3.080524;-2.065316;-1.806267;, - 3.241611;-2.067274;-1.826516;, - 2.989772;-2.488808;-2.212439;, - 3.000849;-2.491205;-2.214732;, - 2.997407;-2.450392;-2.252693;, - 2.986362;-2.448292;-2.250043;, - 3.006667;-1.976122;-2.007505;, - 3.004643;-1.961103;-2.029948;, - 2.995210;-1.959129;-2.028129;, - 2.997310;-1.974599;-2.004977;, - 3.006477;-2.344570;-2.009600;, - 2.997128;-2.345936;-2.006979;, - 2.995900;-2.358716;-2.020525;, - 3.005309;-2.356920;-2.022604;, - 3.050941;-2.243526;-1.786392;, - 3.046020;-2.377493;-1.840636;, - 3.035029;-2.379369;-1.837821;, - 3.039991;-2.244279;-1.783122;, - 4.012305;-1.780290;-1.610040;, - 4.010099;-1.777850;-1.605124;, - 4.010191;-1.772055;-1.593666;, - 4.012395;-1.774611;-1.598792;, - 2.986245;-1.842316;-2.251331;, - 2.983957;-1.880982;-2.276562;, - 2.994962;-1.879169;-2.279630;, - 2.997270;-1.840016;-2.254175;, - 3.003942;-2.364612;-2.037755;, - 3.005309;-2.356920;-2.022604;, - 2.995900;-2.358716;-2.020525;, - 2.994468;-2.366689;-2.036313;, - 4.007792;-1.681711;-1.557357;, - 4.007751;-1.684109;-1.533401;, - 4.007401;-1.705961;-1.470101;, - 4.007196;-1.718899;-1.452344;, - 4.004461;-1.721226;-1.457200;, - 4.005012;-1.686638;-1.560080;, - 3.044011;-2.470646;-2.208903;, - 3.205903;-2.463658;-2.220268;, - 3.202742;-2.426172;-2.255134;, - 3.040778;-2.432315;-2.244557;, - 3.246657;-2.247206;-2.261767;, - 3.224003;-2.228733;-2.399446;, - 3.218777;-2.249606;-2.399446;, - 3.204415;-2.286450;-2.399446;, - 3.210271;-2.297978;-2.374852;, - 3.200567;-2.314722;-2.374852;, - 3.210453;-2.340084;-2.261767;, - 4.573459;-1.843659;-2.254237;, - 4.350826;-1.550410;-2.254237;, - 4.316871;-1.595136;-2.397807;, - 4.524392;-1.868479;-2.397807;, - 3.361247;-1.562335;-2.054677;, - 3.331661;-1.551275;-2.066048;, - 3.351890;-1.528276;-2.115568;, - 3.383810;-1.536683;-2.109909;, - 3.374524;-1.546584;-2.079991;, - 3.997195;-2.589849;-1.466271;, - 3.983690;-2.600415;-1.462392;, - 3.983602;-2.604151;-1.506184;, - 3.983688;-2.599617;-1.526998;, - 3.997187;-2.590340;-1.523940;, - 3.997138;-2.593463;-1.486172;, - 3.992094;-2.670248;-1.459224;, - 4.013381;-2.656448;-1.461510;, - 4.013300;-2.661220;-1.486673;, - 4.013353;-2.657274;-1.529344;, - 3.992073;-2.671168;-1.534970;, - 3.992007;-2.675579;-1.487321;, - 3.001429;-1.779122;-2.083893;, - 3.012612;-1.775989;-2.084978;, - 3.017307;-1.785677;-2.033216;, - 3.006092;-1.788791;-2.032472;, - 2.996212;-2.012338;-2.115192;, - 2.997022;-1.986880;-2.109592;, - 3.003321;-1.990538;-2.107697;, - 3.002756;-2.015020;-2.112898;, - 2.972758;-2.241735;-2.101233;, - 2.973206;-2.286079;-2.118433;, - 2.966298;-2.334145;-2.154763;, - 3.448833;-1.654437;-2.072480;, - 3.434905;-1.627185;-2.058720;, - 3.455134;-1.604186;-2.108240;, - 3.465351;-1.635658;-2.112913;, - 3.152269;-2.216529;-2.479908;, - 3.155561;-2.211967;-2.480069;, - 3.149175;-2.190193;-2.485347;, - 3.148099;-2.196710;-2.484699;, - 3.144996;-2.193600;-2.485347;, - 3.143100;-2.199347;-2.484699;, - 3.140512;-2.194762;-2.485347;, - 3.140512;-2.219905;-2.480069;, - 3.144522;-2.220615;-2.479908;, - 3.146202;-2.245731;-2.470714;, - 3.140512;-2.246469;-2.470714;, - 3.140512;-2.272779;-2.457637;, - 3.147947;-2.271816;-2.457637;, - 3.162308;-2.264241;-2.457637;, - 2.999050;-2.527817;-2.110128;, - 3.010227;-2.530641;-2.111313;, - 3.005322;-2.517985;-2.165403;, - 2.994195;-2.515328;-2.163659;, - 3.013600;-2.353553;-2.039802;, - 3.009700;-2.359773;-2.038862;, - 3.008346;-2.361249;-2.053905;, - 3.012312;-2.355007;-2.054213;, - 3.015958;-1.985882;-2.012165;, - 3.014173;-1.971768;-2.032797;, - 3.012013;-1.963593;-2.057059;, - 3.008065;-1.957359;-2.056780;, - 3.012255;-1.980330;-2.009874;, - 3.002260;-1.952477;-2.056277;, - 3.008065;-1.957359;-2.056780;, - 3.006032;-1.960733;-2.079072;, - 3.000149;-1.955976;-2.079527;, - 3.193582;-2.602520;-2.198112;, - 3.220157;-2.582127;-2.198462;, - 3.211486;-2.571247;-2.167422;, - 3.185206;-2.592010;-2.168130;, - 4.020855;-2.468316;-1.592277;, - 4.011251;-2.459600;-1.573221;, - 4.018452;-2.466290;-1.588789;, - 4.001830;-2.451476;-1.557175;, - 3.992763;-2.445145;-1.552249;, - 3.986162;-2.438816;-1.552245;, - 3.986214;-2.440061;-1.474305;, - 4.001662;-2.449945;-1.479606;, - 4.020859;-2.468104;-1.589609;, - 2.998534;-2.340662;-2.096065;, - 2.999756;-2.354596;-2.083802;, - 2.990112;-2.356272;-2.084352;, - 2.988578;-2.341838;-2.097162;, - 3.003054;-2.077053;-2.107230;, - 3.003959;-2.093453;-2.096045;, - 2.985895;-2.097097;-2.098039;, - 2.984748;-2.078852;-2.110696;, - 3.007300;-2.288764;-2.101902;, - 3.003397;-2.292240;-2.104686;, - 3.003506;-2.272329;-2.102087;, - 3.007287;-2.270165;-2.099252;, - 3.140512;-1.966456;-2.374852;, - 3.140512;-2.002092;-2.421694;, - 3.151026;-2.003455;-2.421694;, - 3.149563;-2.025323;-2.441194;, - 3.158460;-2.028802;-2.441194;, - 3.166046;-1.973073;-2.374852;, - 3.153389;-1.968124;-2.374852;, - 3.426652;-1.601629;-2.229328;, - 3.436426;-1.585878;-2.202378;, - 3.412069;-1.563203;-2.206342;, - 3.401951;-1.579510;-2.234244;, - 4.044827;-2.436709;-1.523187;, - 4.051612;-2.458216;-1.523471;, - 4.050644;-2.517020;-1.440183;, - 4.043437;-2.522058;-1.402162;, - 4.031638;-2.523432;-1.370785;, - 4.032893;-2.444721;-1.403797;, - 2.986245;-1.842316;-2.251331;, - 2.989091;-1.812998;-2.219939;, - 2.983496;-1.821352;-2.215788;, - 2.980808;-1.849096;-2.245423;, - 2.978579;-1.886328;-2.270002;, - 2.983957;-1.880982;-2.276562;, - 4.028114;-1.729475;-1.631163;, - 4.028518;-1.702835;-1.576707;, - 4.028583;-1.698269;-1.555647;, - 4.007792;-1.681711;-1.557357;, - 4.007716;-1.686811;-1.580854;, - 4.007255;-1.716578;-1.641695;, - 4.013821;-1.719668;-1.639163;, - 3.189840;-2.216718;-2.457637;, - 3.189840;-2.104596;-2.457637;, - 3.185699;-2.092404;-2.457637;, - 3.164886;-2.123842;-2.479908;, - 3.164886;-2.197472;-2.479908;, - 3.175095;-2.212894;-2.470714;, - 3.178264;-2.203563;-2.470714;, - 3.003942;-2.364612;-2.037755;, - 3.002523;-2.366118;-2.053438;, - 3.008346;-2.361249;-2.053905;, - 3.009700;-2.359773;-2.038862;, - 2.988887;-1.964842;-2.002925;, - 2.990221;-1.981937;-1.988220;, - 2.998400;-1.990833;-1.992958;, - 2.997310;-1.974599;-2.004977;, - 3.015509;-2.073754;-2.006713;, - 3.016402;-2.061713;-1.998973;, - 3.013197;-2.060053;-1.995339;, - 3.012365;-2.073053;-2.003459;, - 2.973933;-2.310206;-2.117594;, - 2.973206;-2.286079;-2.118433;, - 2.985195;-2.271832;-2.105763;, - 2.973933;-2.310206;-2.117594;, - 2.985195;-2.271832;-2.105763;, - 2.985319;-2.293953;-2.108496;, - 2.979253;-2.218866;-2.037402;, - 2.989474;-2.236827;-2.058576;, - 2.987553;-2.242179;-2.079758;, - 2.979253;-2.218866;-2.037402;, - 2.987553;-2.242179;-2.079758;, - 2.977530;-2.220845;-2.070751;, - 3.275905;-1.667031;-2.086424;, - 3.280506;-1.674151;-2.090606;, - 3.273192;-1.683874;-2.084498;, - 3.267557;-1.675153;-2.079377;, - 3.261562;-1.665512;-2.077111;, - 3.271009;-1.659159;-2.084575;, - 2.996926;-2.294406;-2.107031;, - 2.998534;-2.340662;-2.096065;, - 2.988578;-2.341838;-2.097162;, - 2.985319;-2.293953;-2.108496;, - 3.095326;-2.092404;-2.457637;, - 3.091185;-2.104596;-2.457637;, - 3.091185;-2.216718;-2.457637;, - 3.102760;-2.203563;-2.470714;, - 3.105930;-2.212894;-2.470714;, - 3.116139;-2.197472;-2.479908;, - 3.116139;-2.123842;-2.479908;, - 4.026850;-1.808880;-1.423697;, - 4.027265;-1.782299;-1.429603;, - 4.028047;-1.731585;-1.461573;, - 4.043968;-1.747561;-1.474957;, - 4.042946;-1.813674;-1.442563;, - 3.002260;-1.952477;-2.056277;, - 3.004643;-1.961103;-2.029948;, - 3.006667;-1.976122;-2.007505;, - 3.012255;-1.980330;-2.009874;, - 3.008065;-1.957359;-2.056780;, - 2.979253;-2.218866;-2.037402;, - 2.991543;-2.238936;-2.035766;, - 2.989474;-2.236827;-2.058576;, - 2.998400;-1.990833;-1.992958;, - 2.990221;-1.981937;-1.988220;, - 2.987208;-2.039366;-1.971199;, - 2.996571;-2.044477;-1.984415;, - 4.011009;-1.861807;-1.488967;, - 4.011294;-1.843855;-1.482580;, - 3.995709;-1.846457;-1.472256;, - 3.995346;-1.866962;-1.479398;, - 3.241611;-2.067274;-1.826516;, - 3.080524;-2.065316;-1.806267;, - 3.079411;-2.017165;-1.818532;, - 3.077568;-1.974879;-1.838836;, - 3.238720;-1.978833;-1.858366;, - 3.032964;-1.808377;-1.984546;, - 3.037163;-1.836822;-1.938258;, - 3.026099;-1.834160;-1.936264;, - 3.017307;-1.785677;-2.033216;, - 3.028442;-1.788741;-2.034405;, - 2.979253;-2.218866;-2.037402;, - 2.984540;-2.242354;-1.993448;, - 2.993424;-2.248072;-2.015023;, - 2.991543;-2.238936;-2.035766;, - 4.010139;-1.916526;-1.566837;, - 4.030027;-1.891225;-1.651495;, - 4.030038;-1.890504;-1.647928;, - 4.030061;-1.889095;-1.644669;, - 4.030093;-1.887050;-1.641853;, - 4.010510;-1.893198;-1.513050;, - 4.010329;-1.904618;-1.528780;, - 2.989772;-2.488808;-2.212439;, - 2.994195;-2.515328;-2.163659;, - 3.005322;-2.517985;-2.165403;, - 3.000849;-2.491205;-2.214732;, - 3.210011;-2.488256;-2.174958;, - 3.205903;-2.463658;-2.220268;, - 3.044011;-2.470646;-2.208903;, - 3.048212;-2.495800;-2.162571;, - 4.350827;-2.868256;-2.254237;, - 4.316871;-2.823530;-2.397807;, - 4.016994;-2.975225;-2.397807;, - 4.029113;-3.030997;-2.254237;, - 4.040578;-1.961336;-1.546518;, - 4.040552;-1.962911;-1.584080;, - 4.009406;-1.996096;-1.593447;, - 4.009437;-1.994096;-1.545621;, - 4.024085;-1.981513;-1.545239;, - 3.014966;-1.792468;-2.182996;, - 3.023786;-1.779133;-2.085739;, - 3.012612;-1.775989;-2.084978;, - 3.003719;-1.789433;-2.183043;, - 4.003760;-1.936004;-1.440634;, - 4.001114;-1.932040;-1.442927;, - 4.001498;-1.907912;-1.428421;, - 4.004150;-1.911627;-1.425686;, - 2.979382;-2.355247;-2.100561;, - 2.973933;-2.310206;-2.117594;, - 2.985319;-2.293953;-2.108496;, - 2.988578;-2.341838;-2.097162;, - 3.002260;-1.952477;-2.056277;, - 3.000149;-1.955976;-2.079527;, - 2.990553;-1.953971;-2.079484;, - 2.992744;-1.950295;-2.055328;, - 3.006477;-2.344570;-2.009600;, - 3.005309;-2.356920;-2.022604;, - 3.010986;-2.352304;-2.024373;, - 3.012063;-2.340342;-2.011982;, - 2.972758;-2.241735;-2.101233;, - 2.977530;-2.220845;-2.070751;, - 2.987553;-2.242179;-2.079758;, - 2.986040;-2.254133;-2.096442;, - 2.978604;-1.957771;-2.109146;, - 2.988446;-1.966943;-2.098617;, - 2.986231;-1.985998;-2.110747;, - 2.975305;-1.978001;-2.123995;, - 2.989772;-2.488808;-2.212439;, - 2.984187;-2.481760;-2.208158;, - 2.988465;-2.507517;-2.160990;, - 2.994195;-2.515328;-2.163659;, - 3.216705;-1.806865;-2.101083;, - 3.055057;-1.799030;-2.087030;, - 3.046705;-1.811658;-2.179131;, - 3.208538;-1.819215;-2.191152;, - 3.001108;-2.362445;-2.069003;, - 2.991514;-2.364424;-2.068884;, - 2.990112;-2.356272;-2.084352;, - 2.999756;-2.354596;-2.083802;, - 2.998379;-1.968483;-2.097898;, - 3.000149;-1.955976;-2.079527;, - 3.006032;-1.960733;-2.079072;, - 3.004399;-1.972816;-2.096615;, - 2.983875;-1.939258;-2.058193;, - 2.992744;-1.950295;-2.055328;, - 2.990553;-1.953971;-2.079484;, - 2.981338;-1.943606;-2.086169;, - 3.195433;-2.648110;-2.057964;, - 3.205971;-2.643574;-2.065290;, - 3.215722;-2.659533;-2.066532;, - 3.207375;-2.667655;-2.059484;, - 3.201380;-2.658015;-2.057219;, - 4.001479;-2.461463;-1.458357;, - 4.011209;-2.462267;-1.523499;, - 4.018453;-2.466278;-1.567345;, - 4.001662;-2.449945;-1.479606;, - 3.265293;-1.718541;-2.112911;, - 3.252779;-1.724119;-2.114052;, - 3.250018;-1.720952;-2.101842;, - 3.262435;-1.715262;-2.100270;, - 3.276475;-1.707781;-2.137949;, - 3.265714;-1.716229;-2.139314;, - 3.266412;-1.718871;-2.126228;, - 3.277149;-1.710332;-2.125309;, - 3.002260;-1.952477;-2.056277;, - 2.992744;-1.950295;-2.055328;, - 2.995210;-1.959129;-2.028129;, - 3.004643;-1.961103;-2.029948;, - 3.023648;-2.377887;-1.838879;, - 3.035029;-2.379369;-1.837821;, - 3.032260;-2.418764;-1.868351;, - 3.020891;-2.417092;-1.869283;, - 3.255559;-1.627723;-2.136598;, - 3.242639;-1.627012;-2.140827;, - 3.246452;-1.632211;-2.150442;, - 3.251342;-1.639417;-2.158070;, - 3.262665;-1.637852;-2.150677;, - 2.996212;-2.012338;-2.115192;, - 2.984589;-2.012272;-2.116549;, - 2.986231;-1.985998;-2.110747;, - 2.997022;-1.986880;-2.109592;, - 2.989091;-1.812998;-2.219939;, - 2.992584;-1.792646;-2.181420;, - 3.001429;-1.779122;-2.083893;, - 2.995525;-1.788345;-2.083136;, - 2.983496;-1.821352;-2.215788;, - 3.994581;-1.914238;-1.523432;, - 3.994382;-1.927269;-1.565174;, - 4.010139;-1.916526;-1.566837;, - 4.010329;-1.904618;-1.528780;, - 3.252747;-1.625172;-2.118243;, - 3.239195;-1.623886;-2.118347;, - 3.240164;-1.624172;-2.129879;, - 3.242639;-1.627012;-2.140827;, - 3.255559;-1.627723;-2.136598;, - 3.238956;-1.679736;-2.071830;, - 3.227340;-1.686636;-2.074371;, - 3.220706;-1.675589;-2.075202;, - 3.232089;-1.668299;-2.072690;, - 3.272428;-1.638837;-2.141387;, - 3.262665;-1.637852;-2.150677;, - 3.272161;-1.652844;-2.156708;, - 3.279143;-1.649439;-2.145651;, - 4.001114;-1.932040;-1.442927;, - 4.003760;-1.936004;-1.440634;, - 4.003242;-1.968301;-1.475941;, - 4.002882;-1.990836;-1.520272;, - 4.002768;-1.998023;-1.545823;, - 4.000137;-1.993443;-1.547091;, - 3.214248;-1.632000;-2.132761;, - 3.203473;-1.640527;-2.133226;, - 3.206234;-1.643694;-2.145436;, - 3.217106;-1.635279;-2.145402;, - 3.241850;-2.568163;-2.067906;, - 3.250176;-2.584881;-2.041058;, - 3.220020;-2.599436;-2.040036;, - 3.211400;-2.582127;-2.067831;, - 3.442955;-2.415531;-1.595792;, - 3.195085;-2.540917;-1.873017;, - 3.123036;-2.209333;-1.873017;, - 3.398150;-2.209333;-1.595792;, - 3.339858;-2.733660;-2.034692;, - 3.351688;-2.750379;-2.060109;, - 3.325112;-2.770771;-2.059759;, - 3.312865;-2.753463;-2.033446;, - 3.411995;-1.505334;-1.928631;, - 3.472802;-1.562364;-1.953471;, - 3.460612;-1.581363;-1.939692;, - 3.399805;-1.524334;-1.914852;, - 3.462401;-1.673374;-2.104330;, - 3.467207;-1.668248;-2.119817;, - 3.466779;-1.673374;-2.169646;, - 3.464605;-1.688189;-2.162100;, - 3.462881;-1.691043;-2.167684;, - 3.459746;-1.703325;-2.158880;, - 3.456871;-1.703325;-2.115988;, - 3.458801;-1.691043;-2.106824;, - 3.461254;-1.688189;-2.112112;, - 3.264964;-1.685539;-2.166338;, - 3.253796;-1.693204;-2.168705;, - 3.259184;-1.702943;-2.161301;, - 3.270168;-1.694947;-2.159187;, - 3.127692;-1.843659;-2.254237;, - 3.048236;-2.209333;-2.254237;, - 3.102696;-2.209333;-2.397807;, - 3.176759;-1.868480;-2.397807;, - 3.140512;-2.002092;-2.421694;, - 3.140512;-1.966456;-2.374852;, - 3.127636;-1.968124;-2.374852;, - 3.114979;-1.973073;-2.374852;, - 3.122564;-2.028802;-2.441194;, - 3.131461;-2.025323;-2.441194;, - 3.129999;-2.003455;-2.421694;, - 3.223591;-2.777839;-2.066966;, - 3.252681;-2.776332;-2.050152;, - 3.270796;-2.800744;-2.099822;, - 3.238382;-2.797772;-2.107521;, - 3.180403;-2.663307;-2.153949;, - 3.168730;-2.670512;-2.153015;, - 3.175364;-2.681559;-2.152184;, - 3.187270;-2.674744;-2.153089;, - 3.315199;-1.591111;-2.257387;, - 3.298628;-1.614109;-2.262437;, - 3.324403;-1.632417;-2.273719;, - 3.342886;-1.606766;-2.268087;, - 3.237584;-2.554068;-2.131599;, - 3.237555;-2.557653;-2.098788;, - 3.206953;-2.571247;-2.099802;, - 3.206983;-2.567536;-2.133771;, - 3.222971;-2.786522;-2.172585;, - 3.208345;-2.781091;-2.166487;, - 3.208302;-2.786532;-2.116692;, - 3.238382;-2.797772;-2.107521;, - 3.241587;-2.797772;-2.155335;, - 3.225678;-2.793146;-2.153123;, - 4.013797;-2.628877;-1.591102;, - 4.013353;-2.657274;-1.529344;, - 4.013300;-2.661220;-1.486673;, - 4.029779;-2.641885;-1.487826;, - 4.030202;-2.614227;-1.577150;, - 3.427967;-1.585878;-2.076197;, - 3.403312;-1.563203;-2.075711;, - 3.412925;-1.552953;-2.106685;, - 3.437253;-1.575977;-2.106115;, - 4.132658;-2.580888;-1.595792;, - 4.304189;-2.806826;-1.873017;, - 4.012468;-2.954394;-1.873017;, - 3.951250;-2.672654;-1.595792;, - 3.267440;-1.575677;-2.073806;, - 3.278996;-1.560613;-2.080968;, - 3.289310;-1.547676;-2.092933;, - 3.302825;-1.547084;-2.082844;, - 3.331661;-1.551275;-2.066048;, - 3.316988;-1.569679;-2.049026;, - 3.300548;-1.591110;-2.038837;, - 3.277421;-1.579609;-2.060627;, - 4.583427;-1.838616;-2.087381;, - 4.357725;-1.541324;-2.087381;, - 4.350826;-1.550410;-2.254237;, - 4.573459;-1.843659;-2.254237;, - 4.031575;-1.376339;-2.087381;, - 4.029113;-1.387670;-2.254237;, - 4.350826;-1.550410;-2.254237;, - 4.357725;-1.541324;-2.087381;, - 3.597971;-2.337115;-2.750684;, - 3.788187;-2.496456;-2.750684;, - 3.850068;-2.206997;-2.778643;, - 3.851083;-2.206997;-2.778643;, - 3.851998;-2.207460;-2.778643;, - 3.852631;-2.208293;-2.778643;, - 3.852857;-2.209333;-2.778643;, - 3.852631;-2.210373;-2.778643;, - 3.851998;-2.211207;-2.778643;, - 3.851083;-2.211670;-2.778643;, - 3.912964;-1.922211;-2.750684;, - 3.788187;-1.922211;-2.750684;, - 3.597970;-2.081552;-2.750684;, - 2.993424;-2.248072;-2.015023;, - 2.984540;-2.242354;-1.993448;, - 2.989008;-2.298225;-1.972887;, - 2.997286;-2.297609;-1.988836;, - 2.995956;-2.281770;-1.991196;, - 2.994782;-2.263804;-2.000046;, - 4.573459;-2.575008;-2.254237;, - 4.652915;-2.209333;-2.254237;, - 4.598455;-2.209333;-2.397807;, - 4.524392;-2.550187;-2.397807;, - 3.220357;-1.647598;-2.084371;, - 3.209374;-1.655593;-2.086485;, - 3.205447;-1.648007;-2.096168;, - 3.216292;-1.639744;-2.094395;, - 3.190623;-2.709141;-2.131218;, - 3.177425;-2.712164;-2.129125;, - 3.179560;-2.716869;-2.118765;, - 3.193004;-2.714389;-2.119663;, - 3.285339;-1.699404;-2.124222;, - 3.277149;-1.710332;-2.125309;, - 3.276068;-1.710013;-2.112445;, - 3.284370;-1.699119;-2.112689;, - 3.176759;-1.868480;-2.397807;, - 3.387240;-1.974952;-2.640707;, - 3.529937;-1.786994;-2.640706;, - 3.384280;-1.595136;-2.397807;, - 3.370527;-2.615131;-2.071936;, - 3.363163;-2.618968;-2.057059;, - 3.354816;-2.604874;-2.059887;, - 3.336924;-2.571807;-2.091734;, - 3.350445;-2.579036;-2.098474;, - 3.351907;-2.582067;-2.092909;, - 3.362848;-2.589130;-2.101159;, - 3.373680;-2.608599;-2.086844;, - 3.367276;-2.609691;-2.072598;, - 3.995709;-1.846457;-1.472256;, - 3.993883;-1.850964;-1.468047;, - 3.993387;-1.872757;-1.475339;, - 3.991911;-1.937239;-1.607132;, - 3.994287;-1.926526;-1.608837;, - 3.994382;-1.927269;-1.565174;, - 3.994581;-1.914238;-1.523432;, - 3.994763;-1.901883;-1.506079;, - 3.995346;-1.866962;-1.479398;, - 3.283460;-1.614109;-2.036177;, - 3.307485;-1.632417;-2.021359;, - 3.289002;-1.658069;-2.026991;, - 3.266888;-1.637108;-2.041227;, - 3.141316;-1.850551;-1.983812;, - 3.063358;-2.209333;-1.983812;, - 3.037171;-2.209333;-2.087381;, - 3.117724;-1.838616;-2.087381;, - 3.455134;-1.604186;-2.108240;, - 3.434905;-1.627185;-2.058720;, - 3.414689;-1.601629;-2.050883;, - 3.427967;-1.585878;-2.076197;, - 3.437253;-1.575977;-2.106115;, - 4.007255;-1.716578;-1.641695;, - 4.006718;-1.750749;-1.677725;, - 4.006356;-1.773537;-1.696987;, - 4.012950;-1.775131;-1.693008;, - 4.013821;-1.719668;-1.639163;, - 3.364769;-2.640954;-2.045394;, - 3.374940;-2.656944;-2.052655;, - 3.384064;-2.670675;-2.064704;, - 3.378573;-2.683973;-2.055964;, - 3.362270;-2.709958;-2.042372;, - 3.349289;-2.690424;-2.025230;, - 3.334819;-2.667675;-2.014902;, - 3.356159;-2.649449;-2.033535;, - 3.257632;-1.586324;-2.217305;, - 3.238275;-1.611976;-2.209887;, - 3.242523;-1.623074;-2.221945;, - 3.254079;-1.608009;-2.229107;, - 3.261901;-1.617166;-2.241023;, - 3.289384;-1.579609;-2.239072;, - 3.267200;-1.573046;-2.214390;, - 3.339858;-2.733660;-2.034692;, - 3.362270;-2.709958;-2.042372;, - 3.380385;-2.734371;-2.092043;, - 3.360063;-2.760889;-2.090091;, - 3.351688;-2.750379;-2.060109;, - 3.303419;-2.784736;-2.190316;, - 3.333869;-2.770771;-2.190390;, - 3.325250;-2.753463;-2.218185;, - 3.295093;-2.768017;-2.217164;, - 3.270642;-1.702500;-2.240402;, - 3.257364;-1.718250;-2.215088;, - 3.282019;-1.740925;-2.215574;, - 3.295765;-1.724619;-2.241781;, - 3.434905;-1.627185;-2.058720;, - 3.420232;-1.645589;-2.041697;, - 3.398324;-1.622155;-2.031897;, - 3.414689;-1.601629;-2.050883;, - 3.597970;-2.081552;-2.750684;, - 3.788187;-1.922211;-2.750684;, - 3.736141;-1.682684;-2.640706;, - 3.529937;-1.786994;-2.640706;, - 3.387240;-1.974952;-2.640707;, - 3.257364;-1.718250;-2.215088;, - 3.248079;-1.728152;-2.185170;, - 3.272406;-1.751176;-2.184601;, - 3.282019;-1.740925;-2.215574;, - 3.442955;-2.003136;-1.595792;, - 3.195085;-1.877750;-1.873017;, - 3.396962;-1.611841;-1.873017;, - 3.568493;-1.837779;-1.595792;, - 3.984267;-2.427986;-1.547032;, - 3.984324;-2.436901;-1.465681;, - 3.986214;-2.440061;-1.474305;, - 3.986162;-2.438816;-1.552245;, - 4.005012;-1.686638;-1.560080;, - 4.000711;-1.784749;-1.688827;, - 4.003590;-1.776461;-1.694829;, - 4.004835;-1.759234;-1.683110;, - 4.524392;-2.550187;-2.397807;, - 4.598455;-2.209333;-2.397807;, - 4.364839;-2.209333;-2.640706;, - 4.313911;-2.443714;-2.640706;, - 4.410334;-2.492490;-2.553583;, - 3.277017;-1.660931;-2.156100;, - 3.272161;-1.652844;-2.156708;, - 3.262972;-1.657778;-2.165457;, - 3.268919;-1.667683;-2.164712;, - 3.274413;-1.677176;-2.161007;, - 3.281503;-1.668682;-2.153075;, - 4.000567;-2.530926;-1.587231;, - 4.018058;-2.491096;-1.597845;, - 4.018058;-2.491096;-1.597845;, - 4.006309;-1.775514;-1.416655;, - 4.005841;-1.805201;-1.410057;, - 4.005295;-1.839657;-1.409036;, - 4.004150;-1.911627;-1.425686;, - 4.001498;-1.907912;-1.428421;, - 4.003596;-1.775837;-1.421030;, - 4.132658;-2.580888;-1.595792;, - 4.258196;-2.415531;-1.595792;, - 4.506066;-2.540917;-1.873017;, - 4.304189;-2.806826;-1.873017;, - 4.031575;-3.042327;-2.087381;, - 4.029113;-3.030997;-2.254237;, - 3.672038;-3.030997;-2.254237;, - 3.669576;-3.042327;-2.087381;, - 4.030282;-1.875183;-1.636418;, - 4.030233;-1.878269;-1.636417;, - 4.030282;-1.875183;-1.636418;, - 4.030325;-1.872438;-1.637132;, - 3.800841;-2.438222;-1.479042;, - 3.900310;-2.438222;-1.479042;, - 3.951250;-2.672654;-1.595792;, - 3.749902;-2.672654;-1.595792;, - 3.176759;-2.550187;-2.397807;, - 3.384280;-2.823531;-2.397807;, - 3.529938;-2.631673;-2.640706;, - 3.387240;-2.443714;-2.640706;, - 3.800841;-2.438222;-1.479042;, - 3.649204;-2.311198;-1.479042;, - 3.649204;-2.107468;-1.479042;, - 3.800841;-1.980445;-1.479042;, - 3.900310;-1.980445;-1.479042;, - 4.051947;-2.107468;-1.479042;, - 4.051947;-2.311198;-1.479042;, - 3.900310;-2.438222;-1.479042;, - 3.142342;-2.682112;-2.069679;, - 3.150440;-2.675360;-2.061067;, - 3.156387;-2.685264;-2.060323;, - 3.162383;-2.694906;-2.062588;, - 3.152094;-2.698071;-2.070921;, - 3.147198;-2.690199;-2.069072;, - 4.020518;-2.489552;-1.595666;, - 4.020518;-2.489552;-1.595666;, - 4.020562;-2.486774;-1.598170;, - 4.018058;-2.491096;-1.597845;, - 4.018058;-2.491096;-1.597845;, - 4.020562;-2.486774;-1.598170;, - 3.387240;-2.443714;-2.640706;, - 3.597971;-2.337115;-2.750684;, - 3.597970;-2.081552;-2.750684;, - 3.387240;-1.974952;-2.640707;, - 3.336312;-2.209333;-2.640706;, - 3.354816;-2.604874;-2.059887;, - 3.363163;-2.618968;-2.057059;, - 3.380162;-2.646197;-2.064644;, - 3.374940;-2.656944;-2.052655;, - 3.364769;-2.640954;-2.045394;, - 3.356159;-2.649449;-2.033535;, - 3.332129;-2.609584;-2.035240;, - 3.334819;-2.667675;-2.014902;, - 3.349289;-2.690424;-2.025230;, - 3.325380;-2.711872;-2.015572;, - 3.309241;-2.686499;-2.004052;, - 4.016994;-1.443442;-2.397807;, - 3.965010;-1.682684;-2.640707;, - 4.171214;-1.786994;-2.640707;, - 4.316871;-1.595136;-2.397807;, - 3.350325;-1.550411;-2.254237;, - 3.360270;-1.535119;-2.201960;, - 3.347014;-1.546049;-2.223484;, - 4.020859;-2.468081;-1.586709;, - 4.020857;-2.468219;-1.583961;, - 4.020857;-2.468219;-1.583961;, - 4.020859;-2.468104;-1.589609;, - 3.996707;-1.781478;-1.492171;, - 4.009938;-1.788000;-1.501324;, - 4.010237;-1.769182;-1.542712;, - 3.997056;-1.759674;-1.537207;, - 3.350325;-1.550411;-2.254237;, - 3.360270;-1.535119;-2.201960;, - 4.410334;-2.492490;-2.553583;, - 3.669074;-1.374029;-2.125896;, - 3.378348;-1.521095;-2.125896;, - 3.378358;-1.521091;-2.125952;, - 3.375277;-1.523474;-2.162286;, - 3.669236;-1.374773;-2.162286;, - 3.375798;-1.523179;-2.160904;, - 4.020484;-2.491707;-1.592734;, - 4.020518;-2.489552;-1.595666;, - 4.020518;-2.489552;-1.595666;, - 4.020461;-2.493172;-1.589500;, - 3.168991;-2.257758;-2.457637;, - 3.162308;-2.264241;-2.457637;, - 3.147947;-2.271816;-2.457637;, - 3.149563;-2.295990;-2.441194;, - 3.158460;-2.292512;-2.441194;, - 3.175185;-2.278875;-2.441194;, - 3.165563;-2.649839;-2.057075;, - 3.154396;-2.657503;-2.059441;, - 3.149192;-2.648095;-2.066592;, - 3.160175;-2.640100;-2.064479;, - 3.157691;-2.699722;-2.137572;, - 3.153206;-2.691971;-2.140597;, - 3.148350;-2.683884;-2.141205;, - 3.141031;-2.689139;-2.131134;, - 3.147636;-2.700339;-2.128566;, - 3.266888;-1.637108;-2.041227;, - 3.289002;-1.658069;-2.026991;, - 3.272355;-1.681973;-2.040838;, - 3.251963;-1.658540;-2.053642;, - 2.997128;-2.345936;-2.006979;, - 2.989165;-2.354721;-1.999860;, - 2.984600;-2.380187;-2.038805;, - 2.994468;-2.366689;-2.036313;, - 2.995900;-2.358716;-2.020525;, - 4.025748;-3.015511;-1.983812;, - 4.031575;-3.042327;-2.087381;, - 3.669576;-3.042327;-2.087381;, - 3.675403;-3.015511;-1.983812;, - 3.259184;-1.702943;-2.161301;, - 3.246878;-1.709053;-2.160794;, - 3.250804;-1.716639;-2.151111;, - 3.263249;-1.710797;-2.151277;, - 3.357579;-2.657492;-1.887907;, - 3.338416;-2.634335;-1.894926;, - 3.272221;-2.678440;-1.859714;, - 3.291385;-2.701597;-1.852693;, - 3.169341;-2.622091;-2.123937;, - 3.156924;-2.627781;-2.125509;, - 3.161327;-2.633785;-2.136612;, - 3.173594;-2.627890;-2.134661;, - 3.278082;-1.691079;-2.092126;, - 3.269056;-1.701047;-2.089511;, - 3.263601;-1.693010;-2.081003;, - 3.273192;-1.683874;-2.084498;, - 4.637794;-2.209333;-1.983812;, - 4.663980;-2.209333;-2.087381;, - 4.583427;-2.580050;-2.087381;, - 4.559834;-2.568116;-1.983812;, - 3.951250;-2.672654;-1.595792;, - 3.900310;-2.438222;-1.479042;, - 4.051947;-2.311198;-1.479042;, - 4.258196;-2.415531;-1.595792;, - 4.132658;-2.580888;-1.595792;, - 3.210486;-1.649494;-2.156161;, - 3.201459;-1.659461;-2.153546;, - 3.206350;-1.666667;-2.161174;, - 3.215940;-1.657531;-2.164669;, - 3.344092;-2.609584;-2.213686;, - 3.354380;-2.606634;-2.200484;, - 3.344208;-2.590644;-2.193224;, - 3.335084;-2.576913;-2.181175;, - 3.321679;-2.575059;-2.191256;, - 3.292589;-2.576567;-2.208070;, - 3.305569;-2.596102;-2.225212;, - 3.320039;-2.618850;-2.235541;, - 4.026850;-1.808880;-1.423697;, - 4.042946;-1.813674;-1.442563;, - 4.041651;-1.895158;-1.454529;, - 4.025336;-1.904149;-1.437687;, - 2.983957;-1.880982;-2.276562;, - 2.979302;-2.088733;-2.327899;, - 2.990279;-2.088188;-2.331293;, - 2.994962;-1.879169;-2.279630;, - 3.307714;-2.795246;-2.159434;, - 3.274722;-2.800744;-2.158382;, - 3.270796;-2.800744;-2.099822;, - 3.303335;-2.795246;-2.094118;, - 3.307686;-2.798831;-2.126623;, - 3.265142;-2.739432;-1.997327;, - 3.249220;-2.711212;-1.985404;, - 3.229613;-2.682980;-1.981993;, - 3.206921;-2.656650;-1.987301;, - 3.182922;-2.633509;-2.001238;, - 3.160465;-2.616868;-2.025288;, - 3.143050;-2.605379;-2.054732;, - 3.132235;-2.599164;-2.087381;, - 3.117724;-2.580051;-2.087381;, - 3.141317;-2.568116;-1.983812;, - 3.195085;-2.540917;-1.873017;, - 3.396962;-2.806826;-1.873017;, - 3.359753;-2.855837;-1.983812;, - 3.343426;-2.877342;-2.087381;, - 3.288290;-2.804717;-2.087381;, - 3.288784;-2.802491;-2.075682;, - 3.284473;-2.787740;-2.043759;, - 3.276575;-2.765908;-2.017123;, - 3.182844;-2.662475;-2.037045;, - 3.205238;-2.641027;-2.024100;, - 3.219687;-2.666399;-2.010409;, - 3.195799;-2.685224;-2.024770;, - 3.749902;-1.746012;-1.595792;, - 3.800841;-1.980445;-1.479042;, - 3.649204;-2.107468;-1.479042;, - 3.442955;-2.003136;-1.595792;, - 3.568493;-1.837779;-1.595792;, - 3.040778;-2.432315;-2.244557;, - 3.036198;-2.321019;-2.295088;, - 3.010256;-2.325861;-2.299608;, - 3.014969;-2.440383;-2.247613;, - 3.203966;-2.781091;-2.101172;, - 3.190349;-2.761159;-2.078117;, - 3.201061;-2.762255;-2.064997;, - 3.210185;-2.775986;-2.077047;, - 3.223591;-2.777839;-2.066966;, - 3.238382;-2.797772;-2.107521;, - 3.208302;-2.786532;-2.116692;, - 3.749902;-2.672654;-1.595792;, - 3.688683;-2.954395;-1.873017;, - 3.396962;-2.806826;-1.873017;, - 3.568493;-2.580888;-1.595792;, - 3.316988;-1.569679;-2.049026;, - 3.331661;-1.551275;-2.066048;, - 3.361247;-1.562335;-2.054677;, - 3.344882;-1.582862;-2.035690;, - 4.350826;-1.550410;-2.254237;, - 4.029113;-1.387670;-2.254237;, - 4.016994;-1.443442;-2.397807;, - 4.316871;-1.595136;-2.397807;, - 3.351688;-2.750379;-2.060109;, - 3.360063;-2.760889;-2.090091;, - 3.333783;-2.781652;-2.090800;, - 3.325112;-2.770771;-2.059759;, - 4.029849;-2.637803;-1.466305;, - 4.013381;-2.656448;-1.461510;, - 4.014234;-2.602738;-1.381582;, - 4.014580;-2.580492;-1.365877;, - 4.030874;-2.572837;-1.384509;, - 3.353670;-1.752853;-2.225237;, - 3.324085;-1.741793;-2.236609;, - 3.310807;-1.757544;-2.211294;, - 3.301521;-1.767445;-2.181376;, - 3.333441;-1.775852;-2.175717;, - 3.252202;-1.663904;-2.171301;, - 3.240585;-1.670805;-2.173842;, - 3.247452;-1.682242;-2.172982;, - 3.258836;-1.674951;-2.170470;, - 3.307714;-2.795246;-2.159434;, - 3.338316;-2.781652;-2.158419;, - 3.333869;-2.770771;-2.190390;, - 3.303419;-2.784736;-2.190316;, - 3.043274;-2.416561;-1.870913;, - 3.030775;-2.511512;-2.008735;, - 3.019657;-2.514511;-2.007330;, - 3.032260;-2.418764;-1.868351;, - 3.205128;-1.673365;-2.084665;, - 3.210622;-1.682858;-2.080960;, - 3.202525;-1.689609;-2.089572;, - 3.194229;-1.674971;-2.097832;, - 3.200462;-1.664930;-2.091076;, - 4.012305;-1.780290;-1.610040;, - 4.012178;-1.788222;-1.618588;, - 4.009969;-1.786067;-1.614532;, - 4.010099;-1.777850;-1.605124;, - 3.675403;-1.403156;-1.983812;, - 3.669576;-1.376339;-2.087381;, - 4.031575;-1.376339;-2.087381;, - 4.025748;-1.403156;-1.983812;, - 3.225566;-2.653140;-2.123190;, - 3.226678;-2.646092;-2.111817;, - 3.219783;-2.634808;-2.110939;, - 3.212245;-2.631340;-2.121494;, - 3.218960;-2.641941;-2.125759;, - 3.203026;-1.712193;-2.130099;, - 3.213778;-1.719349;-2.133763;, - 3.212546;-1.716633;-2.139744;, - 3.210513;-1.712706;-2.144757;, - 3.204647;-1.702355;-2.150597;, - 3.198300;-1.703396;-2.138813;, - 3.273192;-1.683874;-2.084498;, - 3.280506;-1.674151;-2.090606;, - 3.287611;-1.684280;-2.104685;, - 3.281895;-1.696279;-2.101742;, - 3.278082;-1.691079;-2.092126;, - 3.222418;-2.684914;-2.126022;, - 3.213912;-2.695036;-2.129611;, - 3.216293;-2.700283;-2.118056;, - 3.224553;-2.689619;-2.115661;, - 3.989367;-2.671202;-1.485960;, - 3.992007;-2.675579;-1.487321;, - 3.992073;-2.671168;-1.534970;, - 3.992351;-2.653514;-1.581462;, - 3.992575;-2.639438;-1.603964;, - 3.989935;-2.635406;-1.601458;, - 3.012122;-2.488395;-2.214431;, - 3.000849;-2.491205;-2.214732;, - 3.005322;-2.517985;-2.165403;, - 3.016558;-2.514956;-2.165506;, - 3.036471;-2.502351;-2.010493;, - 3.061675;-2.492540;-2.014112;, - 3.057268;-2.506219;-2.062703;, - 3.052818;-2.507687;-2.111768;, - 3.027358;-2.517937;-2.110978;, - 3.031936;-2.516427;-2.060492;, - 3.383810;-1.536683;-2.109909;, - 3.388470;-1.533306;-2.142391;, - 3.417750;-1.549457;-2.140313;, - 3.412925;-1.552953;-2.106685;, - 2.988578;-2.341838;-2.097162;, - 2.990112;-2.356272;-2.084352;, - 2.991514;-2.364424;-2.068884;, - 2.992986;-2.368244;-2.052652;, - 2.982490;-2.374919;-2.073463;, - 2.979382;-2.355247;-2.100561;, - 3.281790;-1.659470;-2.095953;, - 3.275905;-1.667031;-2.086424;, - 3.271009;-1.659159;-2.084575;, - 3.266154;-1.651072;-2.085183;, - 3.274895;-1.648185;-2.095075;, - 3.250176;-2.584881;-2.041058;, - 3.261965;-2.606669;-2.020073;, - 3.232224;-2.621993;-2.018311;, - 3.220020;-2.599436;-2.040036;, - 4.303000;-2.209333;-1.595792;, - 4.578115;-2.209333;-1.873017;, - 4.506066;-2.540917;-1.873017;, - 4.258196;-2.415531;-1.595792;, - 3.406334;-1.743516;-2.210317;, - 3.417098;-1.743456;-2.197193;, - 3.436456;-1.717804;-2.204611;, - 3.446023;-1.704526;-2.201696;, - 3.435393;-1.686962;-2.228708;, - 3.407910;-1.724519;-2.230659;, - 3.417891;-1.728451;-2.217479;, - 3.015509;-2.073754;-2.006713;, - 3.012365;-2.073053;-2.003459;, - 2.995037;-2.075505;-1.997235;, - 2.993729;-2.087900;-2.011659;, - 3.014209;-2.084172;-2.019294;, - 4.011572;-1.826391;-1.482605;, - 4.011816;-1.811021;-1.487604;, - 4.009583;-1.810364;-1.485659;, - 4.009780;-1.797948;-1.492218;, - 3.996555;-1.793266;-1.483029;, - 3.996059;-1.826189;-1.472267;, - 3.055057;-1.799030;-2.087030;, - 3.216705;-1.806865;-2.101083;, - 3.221017;-1.815763;-2.053544;, - 3.059466;-1.808128;-2.038419;, - 4.316871;-2.823530;-2.397807;, - 4.171214;-2.631673;-2.640706;, - 3.965010;-2.735982;-2.640706;, - 4.016994;-2.975225;-2.397807;, - 3.965010;-2.735982;-2.640706;, - 4.171214;-2.631673;-2.640706;, - 4.313911;-2.443714;-2.640706;, - 4.103180;-2.337115;-2.750684;, - 3.912964;-2.496456;-2.750684;, - 3.177147;-2.703450;-2.046242;, - 3.195799;-2.685224;-2.024770;, - 3.210256;-2.709636;-2.019871;, - 3.225230;-2.734048;-2.022681;, - 3.201177;-2.743315;-2.044536;, - 3.210450;-2.685224;-2.243320;, - 3.236029;-2.666400;-2.254169;, - 3.219889;-2.641027;-2.242650;, - 3.195980;-2.662475;-2.232991;, - 3.311151;-2.763797;-1.893445;, - 3.377345;-2.719692;-1.928657;, - 3.386669;-2.776143;-1.981836;, - 3.320475;-2.820248;-1.946624;, - 3.297876;-2.730906;-2.013651;, - 3.325380;-2.711872;-2.015572;, - 3.339858;-2.733660;-2.034692;, - 3.312865;-2.753463;-2.033446;, - 3.305388;-2.618850;-2.016991;, - 3.276415;-2.632042;-2.006382;, - 3.261965;-2.606669;-2.020073;, - 3.292433;-2.596102;-2.029266;, - 3.003321;-1.990538;-2.107697;, - 3.007374;-1.995583;-2.105432;, - 3.006760;-2.019009;-2.110135;, - 3.006851;-2.077971;-2.104382;, - 3.003054;-2.077053;-2.107230;, - 3.002756;-2.015020;-2.112898;, - 3.346416;-1.554046;-2.031197;, - 3.349750;-1.549654;-2.031197;, - 3.359753;-1.562829;-1.983812;, - 3.396962;-1.611841;-1.873017;, - 3.195085;-1.877750;-1.873017;, - 3.141316;-1.850551;-1.983812;, - 3.117724;-1.838616;-2.087381;, - 3.210395;-1.716551;-2.087381;, - 3.215760;-1.713582;-2.070723;, - 3.231644;-1.701384;-2.041434;, - 3.252549;-1.683822;-2.018344;, - 3.275726;-1.661177;-2.004102;, - 3.298139;-1.635124;-1.998395;, - 3.318122;-1.606942;-2.001454;, - 3.334564;-1.578284;-2.013126;, - 3.243418;-1.731529;-2.152687;, - 3.243700;-1.728152;-2.119854;, - 3.267873;-1.751176;-2.116981;, - 3.267581;-1.754672;-2.150972;, - 3.252681;-2.776332;-2.050152;, - 3.239700;-2.756797;-2.033009;, - 3.268652;-2.746229;-2.019598;, - 3.283131;-2.768017;-2.038718;, - 4.012468;-1.464272;-1.873017;, - 4.025748;-1.403156;-1.983812;, - 4.341398;-1.562829;-1.983812;, - 4.304189;-1.611841;-1.873017;, - 3.672038;-1.387670;-2.254237;, - 3.684157;-1.443442;-2.397807;, - 4.016994;-1.443442;-2.397807;, - 4.029113;-1.387670;-2.254237;, - 3.396569;-2.703906;-2.144334;, - 3.384311;-2.734371;-2.150603;, - 3.380385;-2.734371;-2.092043;, - 3.393364;-2.703906;-2.096520;, - 3.012606;-1.888460;-2.273642;, - 3.006283;-1.881469;-2.278793;, - 3.001641;-2.088742;-2.330027;, - 3.003871;-2.330385;-2.305442;, - 3.010256;-2.325861;-2.299608;, - 3.008083;-2.090418;-2.323563;, - 3.372624;-1.600760;-2.029848;, - 3.389566;-1.579510;-2.049504;, - 3.414689;-1.601629;-2.050883;, - 3.398324;-1.622155;-2.031897;, - 3.749902;-1.746012;-1.595792;, - 3.688683;-1.464272;-1.873017;, - 4.012468;-1.464272;-1.873017;, - 3.951250;-1.746012;-1.595792;, - 4.044827;-2.436709;-1.523187;, - 4.032893;-2.444721;-1.403797;, - 4.033071;-2.434015;-1.418801;, - 4.033432;-2.412859;-1.527665;, - 3.568493;-1.837779;-1.595792;, - 3.396962;-1.611841;-1.873017;, - 3.688683;-1.464272;-1.873017;, - 3.749902;-1.746012;-1.595792;, - 3.007300;-2.288764;-2.101902;, - 3.008576;-2.331079;-2.092735;, - 3.004542;-2.336594;-2.094514;, - 3.003397;-2.292240;-2.104686;, - 3.442955;-2.003136;-1.595792;, - 3.398150;-2.209333;-1.595792;, - 3.123036;-2.209333;-1.873017;, - 3.195085;-1.877750;-1.873017;, - 4.016994;-1.443442;-2.397807;, - 3.684157;-1.443442;-2.397807;, - 3.736141;-1.682684;-2.640706;, - 3.965010;-1.682684;-2.640707;, - 4.011251;-2.459600;-1.573221;, - 4.020855;-2.468316;-1.592277;, - 4.018452;-2.466290;-1.588789;, - 3.147959;-2.701674;-2.112848;, - 3.147110;-2.686769;-2.105208;, - 3.165002;-2.719836;-2.073361;, - 3.173349;-2.733930;-2.070532;, - 3.168040;-2.737768;-2.086309;, - 3.171348;-2.743208;-2.086506;, - 3.166906;-2.744300;-2.101521;, - 3.151452;-2.717163;-2.116164;, - 3.149421;-2.704704;-2.107282;, - 3.247393;-2.621993;-2.244571;, - 3.276617;-2.606669;-2.238623;, - 3.262139;-2.584881;-2.219503;, - 3.232404;-2.599436;-2.224776;, - 3.052818;-2.507687;-2.111768;, - 3.048212;-2.495800;-2.162571;, - 3.022618;-2.505706;-2.163253;, - 3.027358;-2.517937;-2.110978;, - 3.401754;-1.762235;-2.174261;, - 3.396947;-1.767360;-2.158775;, - 3.397375;-1.762234;-2.108946;, - 3.411488;-1.756197;-2.115644;, - 3.413213;-1.753343;-2.110060;, - 3.424741;-1.747232;-2.118268;, - 3.427616;-1.747232;-2.161161;, - 3.417293;-1.753343;-2.170920;, - 3.414839;-1.756197;-2.165632;, - 3.148419;-2.671687;-2.097979;, - 3.147110;-2.686769;-2.105208;, - 3.147154;-2.681329;-2.155003;, - 3.151905;-2.648993;-2.161701;, - 3.148700;-2.648993;-2.113887;, - 3.145712;-2.665064;-2.117441;, - 4.506066;-1.877750;-1.873017;, - 4.559834;-1.850551;-1.983812;, - 4.637794;-2.209333;-1.983812;, - 4.578115;-2.209333;-1.873017;, - 3.212245;-2.631340;-2.121494;, - 3.202482;-2.630355;-2.130785;, - 3.207083;-2.637475;-2.134966;, - 3.211978;-2.645347;-2.136815;, - 3.218960;-2.641941;-2.125759;, - 3.999427;-2.590586;-1.508035;, - 3.997314;-2.582368;-1.448381;, - 3.997195;-2.589849;-1.466271;, - 3.997138;-2.593463;-1.486172;, - 3.189839;-2.328840;-2.374852;, - 3.180788;-2.297978;-2.421694;, - 3.189547;-2.286450;-2.421694;, - 3.182725;-2.268951;-2.441194;, - 3.175185;-2.278875;-2.441194;, - 3.158460;-2.292512;-2.441194;, - 3.166046;-2.348241;-2.374852;, - 3.178264;-2.340069;-2.374852;, - 3.307686;-2.798831;-2.126623;, - 3.338286;-2.785363;-2.124451;, - 3.338316;-2.781652;-2.158419;, - 3.307714;-2.795246;-2.159434;, - 4.025748;-3.015511;-1.983812;, - 4.341398;-2.855837;-1.983812;, - 4.357725;-2.877342;-2.087381;, - 4.031575;-3.042327;-2.087381;, - 4.304189;-2.806826;-1.873017;, - 4.341398;-2.855837;-1.983812;, - 4.025748;-3.015511;-1.983812;, - 4.012468;-2.954394;-1.873017;, - 3.460661;-1.668118;-2.193763;, - 3.466820;-1.658192;-2.176779;, - 3.470101;-1.651952;-2.157276;, - 3.468556;-1.635658;-2.160727;, - 3.459060;-1.604186;-2.166800;, - 3.445630;-1.627185;-2.218709;, - 3.457591;-1.654437;-2.203111;, - 3.077568;-1.974879;-1.838836;, - 3.079411;-2.017165;-1.818532;, - 3.054720;-2.013198;-1.809245;, - 3.052824;-1.969686;-1.830137;, - 3.675403;-1.403156;-1.983812;, - 4.025748;-1.403156;-1.983812;, - 4.012468;-1.464272;-1.873017;, - 3.688683;-1.464272;-1.873017;, - 3.160175;-2.640100;-2.064479;, - 3.149192;-2.648095;-2.066592;, - 3.145265;-2.640509;-2.076276;, - 3.156110;-2.632246;-2.074503;, - 3.134047;-2.667474;-2.077939;, - 3.140280;-2.657432;-2.071184;, - 3.144946;-2.665867;-2.064772;, - 3.150440;-2.675360;-2.061067;, - 3.142342;-2.682112;-2.069679;, - 3.137856;-2.674361;-2.072704;, - 3.359027;-1.539246;-2.053224;, - 3.349750;-1.549654;-2.031197;, - 3.346416;-1.554046;-2.031197;, - 3.995777;-2.437540;-1.363240;, - 3.996088;-2.418198;-1.377575;, - 4.016943;-2.430708;-1.388433;, - 4.015782;-2.503154;-1.351948;, - 3.994796;-2.499079;-1.336850;, - 3.128936;-2.656211;-2.102740;, - 3.127303;-2.669572;-2.103935;, - 3.127863;-2.669737;-2.110594;, - 3.129727;-2.656445;-2.112156;, - 3.218552;-1.630755;-2.121639;, - 3.218124;-1.635880;-2.171468;, - 3.222930;-1.630755;-2.186955;, - 3.224077;-1.615939;-2.179174;, - 3.226530;-1.613085;-2.184461;, - 3.228460;-1.600803;-2.175297;, - 3.225585;-1.600803;-2.132405;, - 3.222450;-1.613085;-2.123601;, - 3.220725;-1.615939;-2.129185;, - 3.207221;-2.624178;-2.111538;, - 3.205792;-2.622538;-2.105218;, - 3.193356;-2.617907;-2.107767;, - 3.195377;-2.620226;-2.116705;, - 3.198489;-2.624471;-2.124556;, - 3.209422;-2.627180;-2.117090;, - 3.148700;-2.648993;-2.113887;, - 3.151905;-2.648993;-2.161701;, - 3.164884;-2.618528;-2.166179;, - 3.160959;-2.618528;-2.107618;, - 3.305569;-2.596102;-2.225212;, - 3.276617;-2.606669;-2.238623;, - 3.292756;-2.632042;-2.250143;, - 3.320039;-2.618850;-2.235541;, - 3.270796;-2.800744;-2.099822;, - 3.252681;-2.776332;-2.050152;, - 3.283131;-2.768017;-2.038718;, - 3.294960;-2.784736;-2.064136;, - 3.303335;-2.795246;-2.094118;, - 3.213567;-1.720505;-2.120561;, - 3.214127;-1.720670;-2.127219;, - 3.213778;-1.719349;-2.133763;, - 3.203026;-1.712193;-2.130099;, - 3.202918;-1.712791;-2.123265;, - 4.002737;-2.000074;-1.594920;, - 4.002768;-1.998023;-1.545823;, - 4.009437;-1.994096;-1.545621;, - 4.009406;-1.996096;-1.593447;, - 3.669576;-3.042327;-2.087381;, - 3.672038;-3.030997;-2.254237;, - 3.350325;-2.868256;-2.254237;, - 3.343426;-2.877342;-2.087381;, - 3.027127;-2.009352;-1.800528;, - 3.028586;-2.243925;-1.784442;, - 3.022039;-2.242898;-1.790757;, - 3.020539;-2.012505;-1.807301;, - 3.263249;-1.710797;-2.151277;, - 3.250804;-1.716639;-2.151111;, - 3.253186;-1.721886;-2.139555;, - 3.265714;-1.716229;-2.139314;, - 3.190453;-2.748025;-2.198334;, - 3.208345;-2.781091;-2.166487;, - 3.222971;-2.786522;-2.172585;, - 3.217724;-2.775986;-2.189505;, - 3.232348;-2.777839;-2.197597;, - 3.213140;-2.743315;-2.222981;, - 3.227684;-2.661167;-2.083421;, - 3.224316;-2.672537;-2.076941;, - 3.215722;-2.659533;-2.066532;, - 3.221607;-2.651972;-2.076061;, - 4.014580;-2.580492;-1.365877;, - 3.993438;-2.585402;-1.352396;, - 3.994450;-2.520920;-1.334486;, - 4.015474;-2.522730;-1.349835;, - 3.176759;-2.550187;-2.397807;, - 3.387240;-2.443714;-2.640706;, - 3.336312;-2.209333;-2.640706;, - 3.102696;-2.209333;-2.397807;, - 3.227340;-1.686636;-2.074371;, - 3.216570;-1.692762;-2.080215;, - 3.210622;-1.682858;-2.080960;, - 3.220706;-1.675589;-2.075202;, - 4.341398;-1.562829;-1.983812;, - 4.559834;-1.850551;-1.983812;, - 4.506066;-1.877750;-1.873017;, - 4.304189;-1.611841;-1.873017;, - 3.213140;-2.743315;-2.222981;, - 3.239881;-2.734048;-2.241230;, - 3.225424;-2.709636;-2.246130;, - 3.210450;-2.685224;-2.243320;, - 3.189110;-2.703450;-2.224687;, - 3.995709;-1.846457;-1.472256;, - 3.996059;-1.826189;-1.472267;, - 3.996555;-1.793266;-1.483029;, - 3.996707;-1.781478;-1.492171;, - 3.994872;-1.779970;-1.485483;, - 3.993883;-1.850964;-1.468047;, - 3.172481;-2.633990;-2.064986;, - 3.160175;-2.640100;-2.064479;, - 3.156110;-2.632246;-2.074503;, - 3.168555;-2.626404;-2.074669;, - 3.226356;-1.628654;-2.106117;, - 3.213827;-1.634311;-2.106359;, - 3.213130;-1.631670;-2.119444;, - 3.225683;-1.626103;-2.118757;, - 3.274413;-1.677176;-2.161007;, - 3.264964;-1.685539;-2.166338;, - 3.270168;-1.694947;-2.159187;, - 3.279080;-1.685611;-2.154596;, - 3.127636;-2.353190;-2.374852;, - 3.114979;-2.348241;-2.374852;, - 3.102760;-2.340069;-2.374852;, - 3.096545;-2.369604;-2.261767;, - 3.125516;-2.384885;-2.261767;, - 3.141317;-2.568116;-1.983812;, - 3.063358;-2.209333;-1.983812;, - 3.123036;-2.209333;-1.873017;, - 3.195085;-2.540917;-1.873017;, - 3.217901;-2.683581;-2.072234;, - 3.224316;-2.672537;-2.076941;, - 3.229450;-2.679101;-2.093730;, - 3.224188;-2.691621;-2.092796;, - 3.221713;-2.688781;-2.081849;, - 3.166973;-2.642105;-2.145420;, - 3.155759;-2.650033;-2.144776;, - 3.162043;-2.659759;-2.150488;, - 3.173480;-2.652175;-2.151334;, - 3.215230;-1.652176;-2.134009;, - 3.218511;-1.645936;-2.114506;, - 3.224670;-1.636010;-2.097522;, - 3.227740;-1.649692;-2.088174;, - 3.239701;-1.676943;-2.072576;, - 3.226271;-1.699942;-2.124485;, - 3.216775;-1.668470;-2.130558;, - 3.151905;-2.648993;-2.161701;, - 3.166696;-2.668926;-2.202257;, - 3.182999;-2.642940;-2.215849;, - 3.164884;-2.618528;-2.166179;, - 3.189706;-1.690392;-2.128403;, - 3.188045;-1.677234;-2.130486;, - 3.187834;-1.678390;-2.117285;, - 3.191099;-1.685033;-2.106292;, - 3.191287;-1.694429;-2.115879;, - 4.054917;-1.801836;-1.640651;, - 4.055750;-1.747663;-1.558192;, - 4.044425;-1.719061;-1.555421;, - 4.044371;-1.722966;-1.573436;, - 4.043342;-1.789305;-1.662302;, - 3.234026;-1.697389;-2.076898;, - 3.222565;-1.702403;-2.082481;, - 3.216570;-1.692762;-2.080215;, - 3.227340;-1.686636;-2.074371;, - 4.103180;-2.081552;-2.750684;, - 3.912964;-1.922211;-2.750684;, - 3.851083;-2.211670;-2.778643;, - 3.850068;-2.211670;-2.778643;, - 3.849153;-2.211207;-2.778643;, - 3.848520;-2.210373;-2.778643;, - 3.848294;-2.209333;-2.778643;, - 3.848520;-2.208293;-2.778643;, - 3.849153;-2.207460;-2.778643;, - 3.850068;-2.206997;-2.778643;, - 3.788187;-2.496456;-2.750684;, - 3.912964;-2.496456;-2.750684;, - 4.103180;-2.337115;-2.750684;, - 3.372995;-2.709958;-2.202362;, - 3.351821;-2.733660;-2.213137;, - 3.360147;-2.750379;-2.186289;, - 3.364442;-2.760889;-2.155407;, - 3.384311;-2.734371;-2.150603;, - 3.296861;-1.770822;-2.148894;, - 3.301521;-1.767445;-2.181376;, - 3.272406;-1.751176;-2.184601;, - 3.267581;-1.754672;-2.150972;, - 3.249938;-1.617166;-2.062577;, - 3.266888;-1.637108;-2.041227;, - 3.251963;-1.658540;-2.053642;, - 3.239701;-1.676943;-2.072576;, - 3.227740;-1.649692;-2.088174;, - 3.070571;-1.981230;-2.261767;, - 3.080458;-2.006592;-2.374852;, - 3.091185;-1.992474;-2.374852;, - 3.102760;-1.981245;-2.374852;, - 3.096545;-1.951710;-2.261767;, - 4.012002;-1.799356;-1.496141;, - 4.009938;-1.788000;-1.501324;, - 4.009780;-1.797948;-1.492218;, - 4.009583;-1.810364;-1.485659;, - 4.316871;-2.823530;-2.397807;, - 4.524392;-2.550187;-2.397807;, - 4.410334;-2.492490;-2.553583;, - 4.313911;-2.443714;-2.640706;, - 4.171214;-2.631673;-2.640706;, - 3.368343;-1.734450;-2.242259;, - 3.340450;-1.721267;-2.255595;, - 3.324085;-1.741793;-2.236609;, - 3.353670;-1.752853;-2.225237;, - 3.042695;-1.844950;-1.941821;, - 3.067724;-1.853657;-1.947374;, - 3.077568;-1.974879;-1.838836;, - 3.052824;-1.969686;-1.830137;, - 3.166119;-2.716004;-2.116790;, - 3.164376;-2.712162;-2.125248;, - 3.152363;-2.709135;-2.119851;, - 3.153595;-2.711851;-2.113870;, - 3.153944;-2.713172;-2.107327;, - 3.166612;-2.717871;-2.107537;, - 3.091185;-2.104596;-2.457637;, - 3.095326;-2.092404;-2.457637;, - 3.112033;-2.063556;-2.457637;, - 3.105840;-2.042439;-2.441194;, - 3.091185;-1.992474;-2.374852;, - 3.080458;-2.006592;-2.374852;, - 3.070753;-2.023336;-2.374852;, - 3.076609;-2.034864;-2.399446;, - 3.062248;-2.071708;-2.399446;, - 3.196198;-2.093576;-2.327316;, - 3.200496;-1.901641;-2.279873;, - 3.038482;-1.895944;-2.269854;, - 3.034086;-2.092211;-2.318368;, - 3.433368;-1.645589;-2.237644;, - 3.445630;-1.627185;-2.218709;, - 3.426652;-1.601629;-2.229328;, - 3.412976;-1.622156;-2.250447;, - 3.147154;-2.681329;-2.155003;, - 3.151489;-2.686769;-2.170523;, - 3.165107;-2.706702;-2.193577;, - 3.170329;-2.695955;-2.205567;, - 3.161205;-2.682224;-2.193517;, - 3.166696;-2.668926;-2.202257;, - 3.151905;-2.648993;-2.161701;, - 3.319845;-2.643263;-2.012091;, - 3.292539;-2.659271;-2.000917;, - 3.276415;-2.632042;-2.006382;, - 3.305388;-2.618850;-2.016991;, - 3.281540;-1.637108;-2.259777;, - 3.265099;-1.658540;-2.249588;, - 3.287007;-1.681973;-2.259388;, - 3.305344;-1.658069;-2.270752;, - 3.310807;-1.757544;-2.211294;, - 3.324085;-1.741793;-2.236609;, - 3.295765;-1.724619;-2.241781;, - 3.282019;-1.740925;-2.215574;, - 4.027265;-1.782299;-1.429603;, - 4.006309;-1.775514;-1.416655;, - 4.007196;-1.718899;-1.452344;, - 4.028047;-1.731585;-1.461573;, - 2.997286;-2.297609;-1.988836;, - 2.989008;-2.298225;-1.972887;, - 2.989165;-2.354721;-1.999860;, - 2.997128;-2.345936;-2.006979;, - 2.998000;-2.329960;-1.997366;, - 3.146931;-2.704206;-2.084393;, - 3.156694;-2.705191;-2.075103;, - 3.160687;-2.711074;-2.081331;, - 3.163800;-2.715320;-2.089182;, - 3.151956;-2.711368;-2.094349;, - 3.149755;-2.708366;-2.088797;, - 3.040648;-1.859171;-2.245945;, - 3.043371;-1.831131;-2.215900;, - 3.017637;-1.821771;-2.218126;, - 3.012606;-1.888460;-2.273642;, - 3.038482;-1.895944;-2.269854;, - 3.282600;-1.692412;-2.145914;, - 3.274095;-1.702533;-2.149504;, - 3.276475;-1.707781;-2.137949;, - 3.284735;-1.697117;-2.135554;, - 3.264102;-2.648260;-2.256497;, - 3.281392;-2.676449;-2.259742;, - 3.309457;-2.659271;-2.253277;, - 3.292756;-2.632042;-2.250143;, - 3.292539;-2.659271;-2.000917;, - 3.309241;-2.686499;-2.004052;, - 3.281168;-2.704638;-2.001725;, - 3.263877;-2.676449;-1.998480;, - 3.289930;-1.684964;-2.132293;, - 3.288187;-1.681123;-2.140752;, - 3.282600;-1.692412;-2.145914;, - 3.284735;-1.697117;-2.135554;, - 3.285339;-1.699404;-2.124222;, - 3.290423;-1.686832;-2.123039;, - 3.164886;-2.123842;-2.479908;, - 3.155561;-2.109347;-2.480069;, - 3.149175;-2.131121;-2.485347;, - 3.148099;-2.124604;-2.484699;, - 3.144996;-2.127714;-2.485347;, - 3.143100;-2.121967;-2.484699;, - 3.140512;-2.126552;-2.485347;, - 3.140512;-2.194762;-2.485347;, - 3.143100;-2.199347;-2.484699;, - 3.144996;-2.193600;-2.485347;, - 3.148099;-2.196710;-2.484699;, - 3.149175;-2.190193;-2.485347;, - 3.155561;-2.211967;-2.480069;, - 3.164886;-2.197472;-2.479908;, - 3.371920;-2.618968;-2.187689;, - 3.354921;-2.591740;-2.180104;, - 3.344208;-2.590644;-2.193224;, - 3.354380;-2.606634;-2.200484;, - 3.344092;-2.609584;-2.213686;, - 3.368122;-2.649449;-2.211980;, - 3.380267;-2.633063;-2.184861;, - 3.207375;-2.667655;-2.059484;, - 3.215722;-2.659533;-2.066532;, - 3.224316;-2.672537;-2.076941;, - 3.217901;-2.683581;-2.072234;, - 3.213010;-2.676376;-2.064606;, - 3.229524;-1.629588;-2.143830;, - 3.217106;-1.635279;-2.145402;, - 3.221509;-1.641283;-2.156505;, - 3.233776;-1.635388;-2.154554;, - 3.262139;-2.584881;-2.219503;, - 3.292589;-2.576567;-2.208070;, - 3.274473;-2.552155;-2.158400;, - 3.241934;-2.557653;-2.164103;, - 3.250309;-2.568163;-2.194086;, - 3.155759;-2.650033;-2.144776;, - 3.146167;-2.659169;-2.141281;, - 3.151802;-2.667890;-2.146403;, - 3.162043;-2.659759;-2.150488;, - 3.067724;-1.853657;-1.947374;, - 3.042695;-1.844950;-1.941821;, - 3.038604;-1.817235;-1.986923;, - 3.034197;-1.798102;-2.035505;, - 3.059466;-1.808128;-2.038419;, - 3.336924;-2.571807;-2.091734;, - 3.322298;-2.566376;-2.085636;, - 3.319592;-2.559753;-2.105098;, - 3.303682;-2.555127;-2.102886;, - 3.306887;-2.555127;-2.150700;, - 3.336967;-2.566367;-2.141530;, - 4.018453;-2.466278;-1.567345;, - 4.020851;-2.468630;-1.580616;, - 4.020853;-2.468491;-1.581752;, - 4.020857;-2.468219;-1.583961;, - 4.020859;-2.468081;-1.586709;, - 4.020859;-2.468104;-1.589609;, - 4.001662;-2.449945;-1.479606;, - 3.076111;-2.365633;-1.854934;, - 3.073511;-2.402628;-1.883605;, - 3.048650;-2.409833;-1.876203;, - 3.051326;-2.371767;-1.846702;, - 3.364442;-2.760889;-2.155407;, - 3.360147;-2.750379;-2.186289;, - 3.333869;-2.770771;-2.190390;, - 3.338316;-2.781652;-2.158419;, - 3.289945;-1.659550;-2.124103;, - 3.285218;-1.650753;-2.132817;, - 3.282577;-1.655157;-2.145221;, - 3.288442;-1.665507;-2.139381;, - 3.291708;-1.672150;-2.128387;, - 3.256977;-1.648137;-2.163191;, - 3.245515;-1.653151;-2.168774;, - 3.252202;-1.663904;-2.171301;, - 3.262972;-1.657778;-2.165457;, - 3.196795;-2.640640;-2.143299;, - 3.185333;-2.645654;-2.148882;, - 3.192020;-2.656407;-2.151408;, - 3.202790;-2.650280;-2.145564;, - 3.241934;-1.630879;-2.096654;, - 3.228737;-1.633902;-2.094562;, - 3.226356;-1.628654;-2.106117;, - 3.239799;-1.626174;-2.107014;, - 3.433368;-1.645589;-2.237644;, - 3.412976;-1.622156;-2.250447;, - 3.396329;-1.646059;-2.264294;, - 3.418443;-1.667020;-2.250059;, - 3.373209;-1.562335;-2.233122;, - 3.401951;-1.579510;-2.234244;, - 3.412069;-1.563203;-2.206342;, - 3.382983;-1.546584;-2.206171;, - 3.198262;-2.317333;-2.304550;, - 3.036198;-2.321019;-2.295088;, - 3.040778;-2.432315;-2.244557;, - 3.202742;-2.426172;-2.255134;, - 3.173594;-2.627890;-2.134661;, - 3.161327;-2.633785;-2.136612;, - 3.166973;-2.642105;-2.145420;, - 3.179048;-2.635927;-2.143169;, - 4.055750;-1.747663;-1.558192;, - 4.055394;-1.769665;-1.496089;, - 4.043968;-1.747561;-1.474957;, - 4.044425;-1.719061;-1.555421;, - 3.238382;-2.797772;-2.107521;, - 3.270796;-2.800744;-2.099822;, - 3.274722;-2.800744;-2.158382;, - 3.241587;-2.797772;-2.155335;, - 3.152094;-2.698071;-2.070921;, - 3.156694;-2.705191;-2.075103;, - 3.146931;-2.704206;-2.084393;, - 3.140217;-2.693604;-2.080128;, - 3.147198;-2.690199;-2.069072;, - 3.257632;-1.586324;-2.217305;, - 3.267200;-1.573046;-2.214390;, - 3.287956;-1.541894;-2.182339;, - 3.273843;-1.547931;-2.175641;, - 3.272118;-1.550786;-2.181225;, - 3.260590;-1.556896;-2.173017;, - 3.242786;-1.582462;-2.187827;, - 3.246856;-1.587060;-2.202238;, - 3.250635;-1.581935;-2.202402;, - 3.997504;-2.570372;-1.435224;, - 3.997927;-2.543816;-1.420871;, - 3.984558;-2.548171;-1.410280;, - 3.984107;-2.578274;-1.427415;, - 3.209937;-1.715863;-2.108690;, - 3.212138;-1.718865;-2.114241;, - 3.213567;-1.720505;-2.120561;, - 3.202918;-1.712791;-2.123265;, - 3.199577;-1.708235;-2.114840;, - 3.207114;-1.711703;-2.104285;, - 3.441913;-1.572600;-2.138598;, - 3.437253;-1.575977;-2.106115;, - 3.412925;-1.552953;-2.106685;, - 3.417750;-1.549457;-2.140313;, - 3.996088;-2.418198;-1.377575;, - 3.995777;-2.437540;-1.363240;, - 3.994796;-2.499079;-1.336850;, - 3.994450;-2.520920;-1.334486;, - 3.991785;-2.518877;-1.339505;, - 3.993366;-2.419482;-1.383084;, - 4.031638;-2.523432;-1.370785;, - 4.015474;-2.522730;-1.349835;, - 4.015782;-2.503154;-1.351948;, - 4.016943;-2.430708;-1.388433;, - 4.032893;-2.444721;-1.403797;, - 3.289632;-1.686598;-2.113623;, - 3.291497;-1.673306;-2.115185;, - 3.291708;-1.672150;-2.128387;, - 3.289930;-1.684964;-2.132293;, - 3.290423;-1.686832;-2.123039;, - 4.041350;-1.913830;-1.465979;, - 4.053371;-1.897962;-1.489159;, - 4.052765;-1.935848;-1.580268;, - 4.040552;-1.962911;-1.584080;, - 4.040578;-1.961336;-1.546518;, - 3.360147;-2.750379;-2.186289;, - 3.351821;-2.733660;-2.213137;, - 3.325250;-2.753463;-2.218185;, - 3.333869;-2.770771;-2.190390;, - 3.015216;-2.264118;-2.009678;, - 3.013831;-2.251162;-2.022520;, - 2.993424;-2.248072;-2.015023;, - 2.994782;-2.263804;-2.000046;, - 3.253186;-1.721886;-2.139555;, - 3.239743;-1.724367;-2.138658;, - 3.240346;-1.726654;-2.127325;, - 3.253859;-1.724438;-2.126915;, - 3.216292;-1.639744;-2.094395;, - 3.205447;-1.648007;-2.096168;, - 3.203066;-1.642760;-2.107723;, - 3.213827;-1.634311;-2.106359;, - 3.292589;-2.576567;-2.208070;, - 3.262139;-2.584881;-2.219503;, - 3.276617;-2.606669;-2.238623;, - 3.305569;-2.596102;-2.225212;, - 3.131748;-2.658763;-2.121094;, - 3.129727;-2.656445;-2.112156;, - 3.127863;-2.669737;-2.110594;, - 3.131493;-2.674378;-2.122466;, - 3.134861;-2.663009;-2.128945;, - 3.219980;-1.668470;-2.178372;, - 3.216775;-1.668470;-2.130558;, - 3.226271;-1.699942;-2.124485;, - 3.230197;-1.699942;-2.183045;, - 3.382983;-1.546584;-2.206171;, - 3.412069;-1.563203;-2.206342;, - 3.417458;-1.552953;-2.174304;, - 3.388188;-1.536683;-2.175224;, - 3.116139;-2.197472;-2.479908;, - 3.105930;-2.212894;-2.470714;, - 3.102760;-2.203563;-2.470714;, - 3.091185;-2.216718;-2.457637;, - 3.080458;-2.228910;-2.441194;, - 3.098299;-2.268951;-2.441194;, - 3.105840;-2.278875;-2.441194;, - 3.112033;-2.257758;-2.457637;, - 3.118716;-2.264241;-2.457637;, - 3.128756;-2.216529;-2.479908;, - 3.125463;-2.211967;-2.480069;, - 3.001429;-1.779122;-2.083893;, - 3.006092;-1.788791;-2.032472;, - 3.010613;-1.808520;-1.982615;, - 3.004508;-1.817490;-1.984084;, - 2.995525;-1.788345;-2.083136;, - 3.242523;-1.623074;-2.221945;, - 3.238275;-1.611976;-2.209887;, - 3.222930;-1.630755;-2.186955;, - 3.218124;-1.635880;-2.171468;, - 3.219980;-1.668470;-2.178372;, - 3.236498;-1.649692;-2.218805;, - 3.232209;-1.636010;-2.209980;, - 3.325266;-1.594769;-1.935603;, - 3.368884;-1.559535;-1.909728;, - 3.429690;-1.616565;-1.934570;, - 3.386073;-1.651800;-1.960444;, - 3.347014;-1.546049;-2.223484;, - 3.335104;-1.567563;-2.244027;, - 3.318489;-1.594254;-2.258655;, - 3.299094;-1.622384;-2.264621;, - 3.277545;-1.649381;-2.261417;, - 3.264432;-1.663546;-2.254237;, - 3.127692;-1.843659;-2.254237;, - 3.176759;-1.868480;-2.397807;, - 3.384280;-1.595136;-2.397807;, - 3.350325;-1.550411;-2.254237;, - 3.189836;-2.713454;-2.081950;, - 3.176720;-2.716031;-2.084953;, - 3.172908;-2.710832;-2.075337;, - 3.185584;-2.707654;-2.071225;, - 3.684157;-2.975225;-2.397807;, - 3.736141;-2.735982;-2.640706;, - 3.529938;-2.631673;-2.640706;, - 3.384280;-2.823531;-2.397807;, - 3.344208;-2.590644;-2.193224;, - 3.354921;-2.591740;-2.180104;, - 3.341303;-2.571807;-2.157050;, - 3.336967;-2.566367;-2.141530;, - 3.306887;-2.555127;-2.150700;, - 3.321679;-2.575059;-2.191256;, - 3.335084;-2.576913;-2.181175;, - 3.434696;-1.722193;-2.088884;, - 3.427699;-1.717804;-2.073980;, - 3.447056;-1.692152;-2.081398;, - 3.462401;-1.673374;-2.104330;, - 3.461254;-1.688189;-2.112112;, - 3.458801;-1.691043;-2.106824;, - 3.456871;-1.703325;-2.115988;, - 3.442545;-1.721667;-2.103459;, - 3.438475;-1.717068;-2.089047;, - 3.340031;-2.711872;-2.234122;, - 3.313045;-2.730906;-2.239910;, - 3.325250;-2.753463;-2.218185;, - 3.351821;-2.733660;-2.213137;, - 3.008576;-2.331079;-2.092735;, - 3.009702;-2.344113;-2.081842;, - 3.005663;-2.350068;-2.082907;, - 3.004542;-2.336594;-2.094514;, - 3.363832;-2.682964;-1.908058;, - 3.377345;-2.719692;-1.928657;, - 3.311151;-2.763797;-1.893445;, - 3.297637;-2.727068;-1.872844;, - 3.277421;-1.579609;-2.060627;, - 3.300548;-1.591110;-2.038837;, - 3.283460;-1.614109;-2.036177;, - 3.266888;-1.637108;-2.041227;, - 3.249938;-1.617166;-2.062577;, - 3.261901;-1.617166;-2.241023;, - 3.281540;-1.637108;-2.259777;, - 3.298628;-1.614109;-2.262437;, - 3.315199;-1.591111;-2.257387;, - 3.289384;-1.579609;-2.239072;, - 4.011572;-1.826391;-1.482605;, - 4.011294;-1.843855;-1.482580;, - 4.011009;-1.861807;-1.488967;, - 4.010510;-1.893198;-1.513050;, - 4.030093;-1.887050;-1.641853;, - 4.030134;-1.884469;-1.639480;, - 4.030182;-1.881454;-1.637553;, - 4.030233;-1.878269;-1.636417;, - 4.030282;-1.875183;-1.636418;, - 4.030322;-1.872650;-1.638070;, - 4.030346;-1.871125;-1.641886;, - 4.030364;-1.870025;-1.646145;, - 4.030402;-1.867646;-1.651583;, - 4.030413;-1.866958;-1.654273;, - 4.030416;-1.866700;-1.657202;, - 4.030414;-1.866868;-1.660376;, - 4.030405;-1.867455;-1.663238;, - 4.012395;-1.774611;-1.598792;, - 4.012447;-1.771296;-1.582726;, - 4.012439;-1.771796;-1.548582;, - 4.012002;-1.799356;-1.496141;, - 4.011816;-1.811021;-1.487604;, - 3.992669;-2.634174;-1.394752;, - 3.993047;-2.610248;-1.369934;, - 4.014234;-2.602738;-1.381582;, - 4.013381;-2.656448;-1.461510;, - 3.992094;-2.670248;-1.459224;, - 4.031575;-3.042327;-2.087381;, - 4.357725;-2.877342;-2.087381;, - 4.350827;-2.868256;-2.254237;, - 4.029113;-3.030997;-2.254237;, - 3.384280;-1.595136;-2.397807;, - 3.529937;-1.786994;-2.640706;, - 3.736141;-1.682684;-2.640706;, - 3.684157;-1.443442;-2.397807;, - 3.013282;-2.295740;-1.995856;, - 3.007612;-2.298022;-1.992312;, - 3.007299;-2.329091;-2.000360;, - 3.012793;-2.325387;-2.003233;, - 3.022618;-2.505706;-2.163253;, - 3.018295;-2.479824;-2.210927;, - 3.012122;-2.488395;-2.214431;, - 3.016558;-2.514956;-2.165506;, - 3.021422;-2.527508;-2.111860;, - 3.026121;-2.525958;-2.060048;, - 3.031936;-2.516427;-2.060492;, - 3.027358;-2.517937;-2.110978;, - 3.063358;-2.209333;-1.983812;, - 3.141316;-1.850551;-1.983812;, - 3.195085;-1.877750;-1.873017;, - 3.123036;-2.209333;-1.873017;, - 3.362425;-2.690424;-2.221176;, - 3.340031;-2.711872;-2.234122;, - 3.351821;-2.733660;-2.213137;, - 3.372995;-2.709958;-2.202362;, - 2.998000;-2.329960;-1.997366;, - 3.007299;-2.329091;-2.000360;, - 3.007612;-2.298022;-1.992312;, - 2.997286;-2.297609;-1.988836;, - 3.079411;-2.017165;-1.818532;, - 3.080524;-2.065316;-1.806267;, - 3.080771;-2.238774;-1.803568;, - 3.056120;-2.241231;-1.793847;, - 3.054720;-2.013198;-1.809245;, - 4.043968;-1.747561;-1.474957;, - 4.055394;-1.769665;-1.496089;, - 4.053602;-1.883553;-1.480324;, - 4.041651;-1.895158;-1.454529;, - 4.042946;-1.813674;-1.442563;, - 3.447228;-1.721667;-2.173315;, - 3.427616;-1.747232;-2.161161;, - 3.424741;-1.747232;-2.118268;, - 3.442545;-1.721667;-2.103459;, - 3.456871;-1.703325;-2.115988;, - 3.459746;-1.703325;-2.158880;, - 3.243700;-1.728152;-2.119854;, - 3.248905;-1.718250;-2.088908;, - 3.273262;-1.740925;-2.084943;, - 3.267873;-1.751176;-2.116981;, - 4.063804;-1.830980;-1.620231;, - 4.063354;-1.844926;-1.622417;, - 4.063431;-1.839807;-1.617329;, - 4.063477;-1.836653;-1.610871;, - 4.063483;-1.836112;-1.608344;, - 4.063477;-1.836366;-1.605764;, - 4.063435;-1.838699;-1.599016;, - 4.063410;-1.840096;-1.597111;, - 4.063310;-1.846148;-1.593297;, - 4.063199;-1.852972;-1.592488;, - 4.063080;-1.860612;-1.594255;, - 4.063041;-1.863212;-1.595850;, - 4.062991;-1.866660;-1.599609;, - 4.062951;-1.869824;-1.607025;, - 4.062950;-1.870066;-1.609637;, - 4.062938;-1.874480;-1.607171;, - 4.062895;-1.887760;-1.594643;, - 4.060333;-1.908638;-1.582271;, - 4.052765;-1.935848;-1.580268;, - 4.053371;-1.897962;-1.489159;, - 4.053602;-1.883553;-1.480324;, - 4.055394;-1.769665;-1.496089;, - 4.055750;-1.747663;-1.558192;, - 4.054917;-1.801836;-1.640651;, - 4.061814;-1.816293;-1.623882;, - 3.147947;-2.049498;-2.457637;, - 3.140512;-2.048535;-2.457637;, - 3.140512;-2.074846;-2.470714;, - 3.146202;-2.075583;-2.470714;, - 3.144522;-2.100699;-2.479908;, - 3.140512;-2.101409;-2.480069;, - 3.140512;-2.126552;-2.485347;, - 3.143100;-2.121967;-2.484699;, - 3.144996;-2.127714;-2.485347;, - 3.148099;-2.124604;-2.484699;, - 3.149175;-2.131121;-2.485347;, - 3.155561;-2.109347;-2.480069;, - 3.125463;-2.109347;-2.480069;, - 3.131850;-2.131121;-2.485347;, - 3.132926;-2.124604;-2.484699;, - 3.136028;-2.127714;-2.485347;, - 3.137925;-2.121967;-2.484699;, - 3.140512;-2.126552;-2.485347;, - 3.140512;-2.101409;-2.480069;, - 3.144522;-2.100699;-2.479908;, - 3.146202;-2.075583;-2.470714;, - 3.140512;-2.074846;-2.470714;, - 3.140512;-2.048535;-2.457637;, - 3.133078;-2.049498;-2.457637;, - 3.118716;-2.057073;-2.457637;, - 3.026099;-1.834160;-1.936264;, - 3.014805;-1.836940;-1.936395;, - 3.010613;-1.808520;-1.982615;, - 3.006092;-1.788791;-2.032472;, - 3.017307;-1.785677;-2.033216;, - 3.031936;-2.516427;-2.060492;, - 3.026121;-2.525958;-2.060048;, - 3.030775;-2.511512;-2.008735;, - 3.043274;-2.416561;-1.870913;, - 3.048650;-2.409833;-1.876203;, - 3.036471;-2.502351;-2.010493;; - 1148; - 4;0;1;2;3;, - 4;4;5;6;7;, - 4;8;9;10;11;, - 4;12;13;14;15;, - 4;16;17;18;19;, - 4;20;21;22;23;, - 6;24;25;26;27;28;29;, - 4;30;31;32;33;, - 5;34;35;36;37;38;, - 5;39;40;41;42;43;, - 6;44;45;46;47;48;49;, - 4;50;51;52;53;, - 4;54;55;56;57;, - 3;58;59;60;, - 4;61;62;63;64;, - 4;65;66;67;68;, - 4;69;70;71;72;, - 4;73;74;75;76;, - 6;77;78;79;80;81;82;, - 4;83;84;85;86;, - 3;87;88;89;, - 4;90;91;92;93;, - 4;94;95;96;97;, - 4;98;99;100;101;, - 5;102;103;104;105;106;, - 5;107;108;109;110;111;, - 9;112;113;114;115;116;117;118;119;120;, - 6;121;122;123;124;125;126;, - 4;127;128;129;130;, - 4;131;132;133;134;, - 4;135;136;137;138;, - 4;139;140;141;142;, - 12;143;144;145;146;147;148;149;150;151;152;153;154;, - 7;155;156;157;158;159;160;161;, - 8;162;163;164;165;166;167;168;169;, - 6;170;171;172;173;174;175;, - 3;176;177;178;, - 6;179;180;181;182;183;184;, - 4;185;186;187;188;, - 4;189;190;191;192;, - 4;193;194;195;196;, - 4;197;198;199;200;, - 3;201;202;203;, - 6;204;205;206;207;208;209;, - 4;210;211;212;213;, - 4;214;215;216;217;, - 4;218;219;220;221;, - 5;222;223;224;225;226;, - 4;227;228;229;230;, - 4;231;232;233;234;, - 7;235;236;237;238;239;240;241;, - 4;242;243;244;245;, - 5;246;247;248;249;250;, - 5;251;252;253;254;255;, - 8;256;257;258;259;260;261;262;263;, - 4;264;265;266;267;, - 4;268;269;270;271;, - 4;272;273;274;275;, - 4;276;277;278;279;, - 4;280;281;282;283;, - 4;284;285;286;287;, - 6;288;289;290;291;292;293;, - 5;294;295;296;297;298;, - 7;299;300;301;302;303;304;305;, - 4;306;307;308;309;, - 4;310;311;312;313;, - 5;314;315;316;317;318;, - 7;319;320;321;322;323;324;325;, - 9;326;327;328;329;330;331;332;333;334;, - 4;335;336;337;338;, - 4;339;340;341;342;, - 6;343;344;345;346;347;348;, - 5;349;350;351;352;353;, - 4;354;355;356;357;, - 4;358;359;360;361;, - 4;362;363;364;365;, - 7;366;367;368;369;370;371;372;, - 4;373;374;375;376;, - 4;377;378;379;380;, - 10;381;382;383;384;385;386;387;388;389;390;, - 5;391;392;393;394;395;, - 3;396;397;398;, - 4;399;400;401;402;, - 4;403;404;405;406;, - 4;407;408;409;410;, - 3;411;412;413;, - 4;414;415;416;417;, - 4;418;419;420;421;, - 8;422;423;424;425;426;427;428;429;, - 3;430;431;432;, - 6;433;434;435;436;437;438;, - 6;439;440;441;442;443;444;, - 8;445;446;447;448;449;450;451;452;, - 6;453;454;455;456;457;458;, - 4;459;460;461;462;, - 6;463;464;465;466;467;468;, - 4;469;470;471;472;, - 4;473;474;475;476;, - 23;477;478;479;480;481;482;483;484;485;486;487;488;489;490;491;492;493;494;495;496;497;498;499;, - 4;500;501;502;503;, - 6;504;505;506;507;508;509;, - 4;510;511;512;513;, - 4;514;515;516;517;, - 5;518;519;520;521;522;, - 3;523;524;525;, - 3;526;527;528;, - 4;529;530;531;532;, - 4;533;534;535;536;, - 3;537;538;539;, - 5;540;541;542;543;544;, - 5;545;546;547;548;549;, - 4;550;551;552;553;, - 4;554;555;556;557;, - 5;558;559;560;561;562;, - 3;563;564;565;, - 3;566;567;568;, - 4;569;570;571;572;, - 4;573;574;575;576;, - 4;577;578;579;580;, - 4;581;582;583;584;, - 5;585;586;587;588;589;, - 4;590;591;592;593;, - 20;594;595;596;597;598;599;600;601;602;603;604;605;606;607;608;609;610;611;612;613;, - 5;614;615;616;617;618;, - 15;619;620;621;622;623;624;625;626;627;628;629;630;631;632;633;, - 4;634;635;636;637;, - 3;638;639;640;, - 4;641;642;643;644;, - 5;645;646;647;648;649;, - 4;650;651;652;653;, - 6;654;655;656;657;658;659;, - 4;660;661;662;663;, - 9;664;665;666;667;668;669;670;671;672;, - 4;673;674;675;676;, - 4;677;678;679;680;, - 4;681;682;683;684;, - 5;685;686;687;688;689;, - 4;690;691;692;693;, - 4;694;695;696;697;, - 9;698;699;700;701;702;703;704;705;706;, - 4;707;708;709;710;, - 3;711;712;713;, - 4;714;715;716;717;, - 4;718;719;720;721;, - 3;722;723;724;, - 3;725;726;727;, - 4;728;729;730;731;, - 4;732;733;734;735;, - 4;736;737;738;739;, - 4;740;741;742;743;, - 4;744;745;746;747;, - 3;748;749;750;, - 7;751;752;753;754;755;756;757;, - 4;758;759;760;761;, - 4;762;763;764;765;, - 4;766;767;768;769;, - 5;770;771;772;773;774;, - 8;775;776;777;778;779;780;781;782;, - 4;783;784;785;786;, - 4;787;788;789;790;, - 4;791;792;793;794;, - 4;795;796;797;798;, - 4;799;800;801;802;, - 4;803;804;805;806;, - 8;807;808;809;810;811;812;813;814;, - 4;815;816;817;818;, - 4;819;820;821;822;, - 5;823;824;825;826;827;, - 4;828;829;830;831;, - 6;832;833;834;835;836;837;, - 9;838;839;840;841;842;843;844;845;846;, - 4;847;848;849;850;, - 4;851;852;853;854;, - 6;855;856;857;858;859;860;, - 4;861;862;863;864;, - 4;865;866;867;868;, - 4;869;870;871;872;, - 4;873;874;875;876;, - 5;877;878;879;880;881;, - 4;882;883;884;885;, - 6;886;887;888;889;890;891;, - 5;892;893;894;895;896;, - 4;897;898;899;900;, - 4;901;902;903;904;, - 4;905;906;907;908;, - 4;909;910;911;912;, - 4;913;914;915;916;, - 5;917;918;919;920;921;, - 4;922;923;924;925;, - 6;926;927;928;929;930;931;, - 5;932;933;934;935;936;, - 4;937;938;939;940;, - 4;941;942;943;944;, - 4;945;946;947;948;, - 23;949;950;951;952;953;954;955;956;957;958;959;960;961;962;963;964;965;966;967;968;969;970;971;, - 4;972;973;974;975;, - 10;976;977;978;979;980;981;982;983;984;985;, - 4;986;987;988;989;, - 17;990;991;992;993;994;995;996;997;998;999;1000;1001;1002;1003;1004;1005;1006;, - 5;1007;1008;1009;1010;1011;, - 21;1012;1013;1014;1015;1016;1017;1018;1019;1020;1021;1022;1023;1024;1025;1026;1027;1028;1029;1030;1031;1032;, - 4;1033;1034;1035;1036;, - 5;1037;1038;1039;1040;1041;, - 5;1042;1043;1044;1045;1046;, - 4;1047;1048;1049;1050;, - 5;1051;1052;1053;1054;1055;, - 4;1056;1057;1058;1059;, - 5;1060;1061;1062;1063;1064;, - 4;1065;1066;1067;1068;, - 4;1069;1070;1071;1072;, - 4;1073;1074;1075;1076;, - 8;1077;1078;1079;1080;1081;1082;1083;1084;, - 6;1085;1086;1087;1088;1089;1090;, - 4;1091;1092;1093;1094;, - 3;1095;1096;1097;, - 5;1098;1099;1100;1101;1102;, - 3;1103;1104;1105;, - 4;1106;1107;1108;1109;, - 5;1110;1111;1112;1113;1114;, - 4;1115;1116;1117;1118;, - 4;1119;1120;1121;1122;, - 5;1123;1124;1125;1126;1127;, - 3;1128;1129;1130;, - 3;1131;1132;1133;, - 4;1134;1135;1136;1137;, - 4;1138;1139;1140;1141;, - 5;1142;1143;1144;1145;1146;, - 4;1147;1148;1149;1150;, - 4;1151;1152;1153;1154;, - 4;1155;1156;1157;1158;, - 3;1159;1160;1161;, - 4;1162;1163;1164;1165;, - 5;1166;1167;1168;1169;1170;, - 4;1171;1172;1173;1174;, - 5;1175;1176;1177;1178;1179;, - 4;1180;1181;1182;1183;, - 3;1184;1185;1186;, - 20;1187;1188;1189;1190;1191;1192;1193;1194;1195;1196;1197;1198;1199;1200;1201;1202;1203;1204;1205;1206;, - 5;1207;1208;1209;1210;1211;, - 5;1212;1213;1214;1215;1216;, - 4;1217;1218;1219;1220;, - 5;1221;1222;1223;1224;1225;, - 4;1226;1227;1228;1229;, - 4;1230;1231;1232;1233;, - 4;1234;1235;1236;1237;, - 17;1238;1239;1240;1241;1242;1243;1244;1245;1246;1247;1248;1249;1250;1251;1252;1253;1254;, - 9;1255;1256;1257;1258;1259;1260;1261;1262;1263;, - 4;1264;1265;1266;1267;, - 4;1268;1269;1270;1271;, - 4;1272;1273;1274;1275;, - 6;1276;1277;1278;1279;1280;1281;, - 4;1282;1283;1284;1285;, - 4;1286;1287;1288;1289;, - 4;1290;1291;1292;1293;, - 5;1294;1295;1296;1297;1298;, - 4;1299;1300;1301;1302;, - 4;1303;1304;1305;1306;, - 7;1307;1308;1309;1310;1311;1312;1313;, - 4;1314;1315;1316;1317;, - 4;1318;1319;1320;1321;, - 4;1322;1323;1324;1325;, - 4;1326;1327;1328;1329;, - 4;1330;1331;1332;1333;, - 5;1334;1335;1336;1337;1338;, - 4;1339;1340;1341;1342;, - 5;1343;1344;1345;1346;1347;, - 4;1348;1349;1350;1351;, - 9;1352;1353;1354;1355;1356;1357;1358;1359;1360;, - 4;1361;1362;1363;1364;, - 5;1365;1366;1367;1368;1369;, - 5;1370;1371;1372;1373;1374;, - 5;1375;1376;1377;1378;1379;, - 4;1380;1381;1382;1383;, - 12;1384;1385;1386;1387;1388;1389;1390;1391;1392;1393;1394;1395;, - 4;1396;1397;1398;1399;, - 4;1400;1401;1402;1403;, - 4;1404;1405;1406;1407;, - 4;1408;1409;1410;1411;, - 4;1412;1413;1414;1415;, - 4;1416;1417;1418;1419;, - 8;1420;1421;1422;1423;1424;1425;1426;1427;, - 4;1428;1429;1430;1431;, - 4;1432;1433;1434;1435;, - 5;1436;1437;1438;1439;1440;, - 4;1441;1442;1443;1444;, - 4;1445;1446;1447;1448;, - 4;1449;1450;1451;1452;, - 4;1453;1454;1455;1456;, - 4;1457;1458;1459;1460;, - 4;1461;1462;1463;1464;, - 4;1465;1466;1467;1468;, - 4;1469;1470;1471;1472;, - 4;1473;1474;1475;1476;, - 4;1477;1478;1479;1480;, - 4;1481;1482;1483;1484;, - 4;1485;1486;1487;1488;, - 7;1489;1490;1491;1492;1493;1494;1495;, - 4;1496;1497;1498;1499;, - 4;1500;1501;1502;1503;, - 7;1504;1505;1506;1507;1508;1509;1510;, - 4;1511;1512;1513;1514;, - 4;1515;1516;1517;1518;, - 4;1519;1520;1521;1522;, - 5;1523;1524;1525;1526;1527;, - 5;1528;1529;1530;1531;1532;, - 4;1533;1534;1535;1536;, - 4;1537;1538;1539;1540;, - 4;1541;1542;1543;1544;, - 4;1545;1546;1547;1548;, - 6;1549;1550;1551;1552;1553;1554;, - 4;1555;1556;1557;1558;, - 4;1559;1560;1561;1562;, - 4;1563;1564;1565;1566;, - 4;1567;1568;1569;1570;, - 4;1571;1572;1573;1574;, - 7;1575;1576;1577;1578;1579;1580;1581;, - 4;1582;1583;1584;1585;, - 4;1586;1587;1588;1589;, - 8;1590;1591;1592;1593;1594;1595;1596;1597;, - 6;1598;1599;1600;1601;1602;1603;, - 5;1604;1605;1606;1607;1608;, - 4;1609;1610;1611;1612;, - 8;1613;1614;1615;1616;1617;1618;1619;1620;, - 4;1621;1622;1623;1624;, - 4;1625;1626;1627;1628;, - 5;1629;1630;1631;1632;1633;, - 4;1634;1635;1636;1637;, - 4;1638;1639;1640;1641;, - 4;1642;1643;1644;1645;, - 4;1646;1647;1648;1649;, - 5;1650;1651;1652;1653;1654;, - 4;1655;1656;1657;1658;, - 4;1659;1660;1661;1662;, - 6;1663;1664;1665;1666;1667;1668;, - 5;1669;1670;1671;1672;1673;, - 4;1674;1675;1676;1677;, - 4;1678;1679;1680;1681;, - 4;1682;1683;1684;1685;, - 4;1686;1687;1688;1689;, - 4;1690;1691;1692;1693;, - 5;1694;1695;1696;1697;1698;, - 4;1699;1700;1701;1702;, - 4;1703;1704;1705;1706;, - 7;1707;1708;1709;1710;1711;1712;1713;, - 4;1714;1715;1716;1717;, - 4;1718;1719;1720;1721;, - 4;1722;1723;1724;1725;, - 5;1726;1727;1728;1729;1730;, - 4;1731;1732;1733;1734;, - 4;1735;1736;1737;1738;, - 5;1739;1740;1741;1742;1743;, - 4;1744;1745;1746;1747;, - 5;1748;1749;1750;1751;1752;, - 4;1753;1754;1755;1756;, - 6;1757;1758;1759;1760;1761;1762;, - 4;1763;1764;1765;1766;, - 12;1767;1768;1769;1770;1771;1772;1773;1774;1775;1776;1777;1778;, - 4;1779;1780;1781;1782;, - 4;1783;1784;1785;1786;, - 4;1787;1788;1789;1790;, - 6;1791;1792;1793;1794;1795;1796;, - 5;1797;1798;1799;1800;1801;, - 4;1802;1803;1804;1805;, - 4;1806;1807;1808;1809;, - 4;1810;1811;1812;1813;, - 6;1814;1815;1816;1817;1818;1819;, - 7;1820;1821;1822;1823;1824;1825;1826;, - 8;1827;1828;1829;1830;1831;1832;1833;1834;, - 4;1835;1836;1837;1838;, - 4;1839;1840;1841;1842;, - 4;1843;1844;1845;1846;, - 4;1847;1848;1849;1850;, - 6;1851;1852;1853;1854;1855;1856;, - 4;1857;1858;1859;1860;, - 4;1861;1862;1863;1864;, - 4;1865;1866;1867;1868;, - 4;1869;1870;1871;1872;, - 5;1873;1874;1875;1876;1877;, - 4;1878;1879;1880;1881;, - 4;1882;1883;1884;1885;, - 5;1886;1887;1888;1889;1890;, - 5;1891;1892;1893;1894;1895;, - 4;1896;1897;1898;1899;, - 5;1900;1901;1902;1903;1904;, - 4;1905;1906;1907;1908;, - 4;1909;1910;1911;1912;, - 7;1913;1914;1915;1916;1917;1918;1919;, - 4;1920;1921;1922;1923;, - 4;1924;1925;1926;1927;, - 5;1928;1929;1930;1931;1932;, - 4;1933;1934;1935;1936;, - 4;1937;1938;1939;1940;, - 4;1941;1942;1943;1944;, - 4;1945;1946;1947;1948;, - 4;1949;1950;1951;1952;, - 4;1953;1954;1955;1956;, - 7;1957;1958;1959;1960;1961;1962;1963;, - 4;1964;1965;1966;1967;, - 9;1968;1969;1970;1971;1972;1973;1974;1975;1976;, - 4;1977;1978;1979;1980;, - 9;1981;1982;1983;1984;1985;1986;1987;1988;1989;, - 4;1990;1991;1992;1993;, - 4;1994;1995;1996;1997;, - 4;1998;1999;2000;2001;, - 4;2002;2003;2004;2005;, - 5;2006;2007;2008;2009;2010;, - 5;2011;2012;2013;2014;2015;, - 4;2016;2017;2018;2019;, - 5;2020;2021;2022;2023;2024;, - 9;2025;2026;2027;2028;2029;2030;2031;2032;2033;, - 4;2034;2035;2036;2037;, - 4;2038;2039;2040;2041;, - 4;2042;2043;2044;2045;, - 4;2046;2047;2048;2049;, - 4;2050;2051;2052;2053;, - 4;2054;2055;2056;2057;, - 4;2058;2059;2060;2061;, - 4;2062;2063;2064;2065;, - 4;2066;2067;2068;2069;, - 4;2070;2071;2072;2073;, - 4;2074;2075;2076;2077;, - 5;2078;2079;2080;2081;2082;, - 7;2083;2084;2085;2086;2087;2088;2089;, - 4;2090;2091;2092;2093;, - 4;2094;2095;2096;2097;, - 5;2098;2099;2100;2101;2102;, - 4;2103;2104;2105;2106;, - 4;2107;2108;2109;2110;, - 6;2111;2112;2113;2114;2115;2116;, - 3;2117;2118;2119;, - 4;2120;2121;2122;2123;, - 4;2124;2125;2126;2127;, - 6;2128;2129;2130;2131;2132;2133;, - 4;2134;2135;2136;2137;, - 6;2138;2139;2140;2141;2142;2143;, - 7;2144;2145;2146;2147;2148;2149;2150;, - 4;2151;2152;2153;2154;, - 4;2155;2156;2157;2158;, - 7;2159;2160;2161;2162;2163;2164;2165;, - 4;2166;2167;2168;2169;, - 7;2170;2171;2172;2173;2174;2175;2176;, - 4;2177;2178;2179;2180;, - 4;2181;2182;2183;2184;, - 4;2185;2186;2187;2188;, - 4;2189;2190;2191;2192;, - 4;2193;2194;2195;2196;, - 5;2197;2198;2199;2200;2201;, - 4;2202;2203;2204;2205;, - 5;2206;2207;2208;2209;2210;, - 11;2211;2212;2213;2214;2215;2216;2217;2218;2219;2220;2221;, - 4;2222;2223;2224;2225;, - 4;2226;2227;2228;2229;, - 5;2230;2231;2232;2233;2234;, - 6;2235;2236;2237;2238;2239;2240;, - 4;2241;2242;2243;2244;, - 4;2245;2246;2247;2248;, - 8;2249;2250;2251;2252;2253;2254;2255;2256;, - 4;2257;2258;2259;2260;, - 5;2261;2262;2263;2264;2265;, - 4;2266;2267;2268;2269;, - 4;2270;2271;2272;2273;, - 4;2274;2275;2276;2277;, - 7;2278;2279;2280;2281;2282;2283;2284;, - 4;2285;2286;2287;2288;, - 4;2289;2290;2291;2292;, - 5;2293;2294;2295;2296;2297;, - 4;2298;2299;2300;2301;, - 5;2302;2303;2304;2305;2306;, - 4;2307;2308;2309;2310;, - 5;2311;2312;2313;2314;2315;, - 4;2316;2317;2318;2319;, - 4;2320;2321;2322;2323;, - 4;2324;2325;2326;2327;, - 4;2328;2329;2330;2331;, - 5;2332;2333;2334;2335;2336;, - 4;2337;2338;2339;2340;, - 4;2341;2342;2343;2344;, - 4;2345;2346;2347;2348;, - 6;2349;2350;2351;2352;2353;2354;, - 6;2355;2356;2357;2358;2359;2360;, - 4;2361;2362;2363;2364;, - 9;2365;2366;2367;2368;2369;2370;2371;2372;2373;, - 4;2374;2375;2376;2377;, - 6;2378;2379;2380;2381;2382;2383;, - 4;2384;2385;2386;2387;, - 4;2388;2389;2390;2391;, - 4;2392;2393;2394;2395;, - 4;2396;2397;2398;2399;, - 4;2400;2401;2402;2403;, - 4;2404;2405;2406;2407;, - 6;2408;2409;2410;2411;2412;2413;, - 6;2414;2415;2416;2417;2418;2419;, - 5;2420;2421;2422;2423;2424;, - 6;2425;2426;2427;2428;2429;2430;, - 4;2431;2432;2433;2434;, - 9;2435;2436;2437;2438;2439;2440;2441;2442;2443;, - 5;2444;2445;2446;2447;2448;, - 5;2449;2450;2451;2452;2453;, - 4;2454;2455;2456;2457;, - 8;2458;2459;2460;2461;2462;2463;2464;2465;, - 4;2466;2467;2468;2469;, - 4;2470;2471;2472;2473;, - 6;2474;2475;2476;2477;2478;2479;, - 4;2480;2481;2482;2483;, - 4;2484;2485;2486;2487;, - 4;2488;2489;2490;2491;, - 4;2492;2493;2494;2495;, - 4;2496;2497;2498;2499;, - 6;2500;2501;2502;2503;2504;2505;, - 4;2506;2507;2508;2509;, - 4;2510;2511;2512;2513;, - 5;2514;2515;2516;2517;2518;, - 4;2519;2520;2521;2522;, - 4;2523;2524;2525;2526;, - 4;2527;2528;2529;2530;, - 5;2531;2532;2533;2534;2535;, - 14;2536;2537;2538;2539;2540;2541;2542;2543;2544;2545;2546;2547;2548;2549;, - 5;2550;2551;2552;2553;2554;, - 4;2555;2556;2557;2558;, - 7;2559;2560;2561;2562;2563;2564;2565;, - 4;2566;2567;2568;2569;, - 4;2570;2571;2572;2573;, - 4;2574;2575;2576;2577;, - 5;2578;2579;2580;2581;2582;, - 4;2583;2584;2585;2586;, - 5;2587;2588;2589;2590;2591;, - 4;2592;2593;2594;2595;, - 4;2596;2597;2598;2599;, - 5;2600;2601;2602;2603;2604;, - 4;2605;2606;2607;2608;, - 4;2609;2610;2611;2612;, - 4;2613;2614;2615;2616;, - 7;2617;2618;2619;2620;2621;2622;2623;, - 6;2624;2625;2626;2627;2628;2629;, - 4;2630;2631;2632;2633;, - 4;2634;2635;2636;2637;, - 5;2638;2639;2640;2641;2642;, - 4;2643;2644;2645;2646;, - 6;2647;2648;2649;2650;2651;2652;, - 4;2653;2654;2655;2656;, - 4;2657;2658;2659;2660;, - 9;2661;2662;2663;2664;2665;2666;2667;2668;2669;, - 4;2670;2671;2672;2673;, - 4;2674;2675;2676;2677;, - 9;2678;2679;2680;2681;2682;2683;2684;2685;2686;, - 4;2687;2688;2689;2690;, - 4;2691;2692;2693;2694;, - 5;2695;2696;2697;2698;2699;, - 4;2700;2701;2702;2703;, - 4;2704;2705;2706;2707;, - 6;2708;2709;2710;2711;2712;2713;, - 6;2714;2715;2716;2717;2718;2719;, - 6;2720;2721;2722;2723;2724;2725;, - 4;2726;2727;2728;2729;, - 4;2730;2731;2732;2733;, - 4;2734;2735;2736;2737;, - 4;2738;2739;2740;2741;, - 4;2742;2743;2744;2745;, - 4;2746;2747;2748;2749;, - 5;2750;2751;2752;2753;2754;, - 4;2755;2756;2757;2758;, - 4;2759;2760;2761;2762;, - 4;2763;2764;2765;2766;, - 4;2767;2768;2769;2770;, - 4;2771;2772;2773;2774;, - 6;2775;2776;2777;2778;2779;2780;, - 6;2781;2782;2783;2784;2785;2786;, - 4;2787;2788;2789;2790;, - 5;2791;2792;2793;2794;2795;, - 4;2796;2797;2798;2799;, - 4;2800;2801;2802;2803;, - 6;2804;2805;2806;2807;2808;2809;, - 4;2810;2811;2812;2813;, - 4;2814;2815;2816;2817;, - 4;2818;2819;2820;2821;, - 4;2822;2823;2824;2825;, - 4;2826;2827;2828;2829;, - 5;2830;2831;2832;2833;2834;, - 4;2835;2836;2837;2838;, - 5;2839;2840;2841;2842;2843;, - 4;2844;2845;2846;2847;, - 4;2848;2849;2850;2851;, - 6;2852;2853;2854;2855;2856;2857;, - 6;2858;2859;2860;2861;2862;2863;, - 6;2864;2865;2866;2867;2868;2869;, - 6;2870;2871;2872;2873;2874;2875;, - 4;2876;2877;2878;2879;, - 7;2880;2881;2882;2883;2884;2885;2886;, - 4;2887;2888;2889;2890;, - 6;2891;2892;2893;2894;2895;2896;, - 4;2897;2898;2899;2900;, - 4;2901;2902;2903;2904;, - 6;2905;2906;2907;2908;2909;2910;, - 4;2911;2912;2913;2914;, - 6;2915;2916;2917;2918;2919;2920;, - 4;2921;2922;2923;2924;, - 4;2925;2926;2927;2928;, - 9;2929;2930;2931;2932;2933;2934;2935;2936;2937;, - 4;2938;2939;2940;2941;, - 9;2942;2943;2944;2945;2946;2947;2948;2949;2950;, - 4;2951;2952;2953;2954;, - 5;2955;2956;2957;2958;2959;, - 4;2960;2961;2962;2963;, - 4;2964;2965;2966;2967;, - 14;2968;2969;2970;2971;2972;2973;2974;2975;2976;2977;2978;2979;2980;2981;, - 4;2982;2983;2984;2985;, - 4;2986;2987;2988;2989;, - 4;2990;2991;2992;2993;, - 5;2994;2995;2996;2997;2998;, - 5;2999;3000;3001;3002;3003;, - 4;3004;3005;3006;3007;, - 4;3008;3009;3010;3011;, - 4;3012;3013;3014;3015;, - 4;3016;3017;3018;3019;, - 4;3020;3021;3022;3023;, - 4;3024;3025;3026;3027;, - 9;3028;3029;3030;3031;3032;3033;3034;3035;3036;, - 4;3037;3038;3039;3040;, - 4;3041;3042;3043;3044;, - 5;3045;3046;3047;3048;3049;, - 7;3050;3051;3052;3053;3054;3055;3056;, - 4;3057;3058;3059;3060;, - 4;3061;3062;3063;3064;, - 4;3065;3066;3067;3068;, - 4;3069;3070;3071;3072;, - 4;3073;3074;3075;3076;, - 4;3077;3078;3079;3080;, - 7;3081;3082;3083;3084;3085;3086;3087;, - 4;3088;3089;3090;3091;, - 4;3092;3093;3094;3095;, - 6;3096;3097;3098;3099;3100;3101;, - 4;3102;3103;3104;3105;, - 5;3106;3107;3108;3109;3110;, - 4;3111;3112;3113;3114;, - 4;3115;3116;3117;3118;, - 4;3119;3120;3121;3122;, - 5;3123;3124;3125;3126;3127;, - 4;3128;3129;3130;3131;, - 4;3132;3133;3134;3135;, - 4;3136;3137;3138;3139;, - 4;3140;3141;3142;3143;, - 9;3144;3145;3146;3147;3148;3149;3150;3151;3152;, - 5;3153;3154;3155;3156;3157;, - 4;3158;3159;3160;3161;, - 5;3162;3163;3164;3165;3166;, - 4;3167;3168;3169;3170;, - 4;3171;3172;3173;3174;, - 4;3175;3176;3177;3178;, - 5;3179;3180;3181;3182;3183;, - 4;3184;3185;3186;3187;, - 4;3188;3189;3190;3191;, - 4;3192;3193;3194;3195;, - 4;3196;3197;3198;3199;, - 4;3200;3201;3202;3203;, - 4;3204;3205;3206;3207;, - 10;3208;3209;3210;3211;3212;3213;3214;3215;3216;3217;, - 6;3218;3219;3220;3221;3222;3223;, - 6;3224;3225;3226;3227;3228;3229;, - 3;3230;3231;3232;, - 4;3233;3234;3235;3236;, - 4;3237;3238;3239;3240;, - 4;3241;3242;3243;3244;, - 5;3245;3246;3247;3248;3249;, - 9;3250;3251;3252;3253;3254;3255;3256;3257;3258;, - 4;3259;3260;3261;3262;, - 23;3263;3264;3265;3266;3267;3268;3269;3270;3271;3272;3273;3274;3275;3276;3277;3278;3279;3280;3281;3282;3283;3284;3285;, - 5;3286;3287;3288;3289;3290;, - 6;3291;3292;3293;3294;3295;3296;, - 6;3297;3298;3299;3300;3301;3302;, - 4;3303;3304;3305;3306;, - 4;3307;3308;3309;3310;, - 4;3311;3312;3313;3314;, - 4;3315;3316;3317;3318;, - 4;3319;3320;3321;3322;, - 9;3323;3324;3325;3326;3327;3328;3329;3330;3331;, - 6;3332;3333;3334;3335;3336;3337;, - 4;3338;3339;3340;3341;, - 6;3342;3343;3344;3345;3346;3347;, - 4;3348;3349;3350;3351;, - 3;3352;3353;3354;, - 4;3355;3356;3357;3358;, - 4;3359;3360;3361;3362;, - 4;3363;3364;3365;3366;, - 4;3367;3368;3369;3370;, - 4;3371;3372;3373;3374;, - 4;3375;3376;3377;3378;, - 4;3379;3380;3381;3382;, - 5;3383;3384;3385;3386;3387;, - 4;3388;3389;3390;3391;, - 5;3392;3393;3394;3395;3396;, - 4;3397;3398;3399;3400;, - 4;3401;3402;3403;3404;, - 4;3405;3406;3407;3408;, - 9;3409;3410;3411;3412;3413;3414;3415;3416;3417;, - 4;3418;3419;3420;3421;, - 4;3422;3423;3424;3425;, - 4;3426;3427;3428;3429;, - 4;3430;3431;3432;3433;, - 4;3434;3435;3436;3437;, - 5;3438;3439;3440;3441;3442;, - 4;3443;3444;3445;3446;, - 4;3447;3448;3449;3450;, - 4;3451;3452;3453;3454;, - 4;3455;3456;3457;3458;, - 5;3459;3460;3461;3462;3463;, - 4;3464;3465;3466;3467;, - 5;3468;3469;3470;3471;3472;, - 4;3473;3474;3475;3476;, - 4;3477;3478;3479;3480;, - 4;3481;3482;3483;3484;, - 4;3485;3486;3487;3488;, - 5;3489;3490;3491;3492;3493;, - 4;3494;3495;3496;3497;, - 6;3498;3499;3500;3501;3502;3503;, - 4;3504;3505;3506;3507;, - 8;3508;3509;3510;3511;3512;3513;3514;3515;, - 4;3516;3517;3518;3519;, - 4;3520;3521;3522;3523;, - 4;3524;3525;3526;3527;, - 4;3528;3529;3530;3531;, - 4;3532;3533;3534;3535;, - 8;3536;3537;3538;3539;3540;3541;3542;3543;, - 4;3544;3545;3546;3547;, - 5;3548;3549;3550;3551;3552;, - 4;3553;3554;3555;3556;, - 4;3557;3558;3559;3560;, - 6;3561;3562;3563;3564;3565;3566;, - 4;3567;3568;3569;3570;, - 4;3571;3572;3573;3574;, - 4;3575;3576;3577;3578;, - 5;3579;3580;3581;3582;3583;, - 4;3584;3585;3586;3587;, - 4;3588;3589;3590;3591;, - 4;3592;3593;3594;3595;, - 4;3596;3597;3598;3599;, - 5;3600;3601;3602;3603;3604;, - 5;3605;3606;3607;3608;3609;, - 6;3610;3611;3612;3613;3614;3615;, - 4;3616;3617;3618;3619;, - 9;3620;3621;3622;3623;3624;3625;3626;3627;3628;, - 4;3629;3630;3631;3632;, - 4;3633;3634;3635;3636;, - 6;3637;3638;3639;3640;3641;3642;, - 4;3643;3644;3645;3646;, - 4;3647;3648;3649;3650;, - 4;3651;3652;3653;3654;, - 5;3655;3656;3657;3658;3659;, - 6;3660;3661;3662;3663;3664;3665;, - 4;3666;3667;3668;3669;, - 5;3670;3671;3672;3673;3674;, - 5;3675;3676;3677;3678;3679;, - 4;3680;3681;3682;3683;, - 6;3684;3685;3686;3687;3688;3689;, - 4;3690;3691;3692;3693;, - 4;3694;3695;3696;3697;, - 9;3698;3699;3700;3701;3702;3703;3704;3705;3706;, - 7;3707;3708;3709;3710;3711;3712;3713;, - 7;3714;3715;3716;3717;3718;3719;3720;, - 4;3721;3722;3723;3724;, - 8;3725;3726;3727;3728;3729;3730;3731;3732;, - 4;3733;3734;3735;3736;, - 4;3737;3738;3739;3740;, - 4;3741;3742;3743;3744;, - 4;3745;3746;3747;3748;, - 4;3749;3750;3751;3752;, - 6;3753;3754;3755;3756;3757;3758;, - 4;3759;3760;3761;3762;, - 5;3763;3764;3765;3766;3767;, - 4;3768;3769;3770;3771;, - 5;3772;3773;3774;3775;3776;, - 5;3777;3778;3779;3780;3781;, - 5;3782;3783;3784;3785;3786;, - 8;3787;3788;3789;3790;3791;3792;3793;3794;, - 4;3795;3796;3797;3798;, - 5;3799;3800;3801;3802;3803;, - 4;3804;3805;3806;3807;, - 6;3808;3809;3810;3811;3812;3813;, - 8;3814;3815;3816;3817;3818;3819;3820;3821;, - 8;3822;3823;3824;3825;3826;3827;3828;3829;, - 4;3830;3831;3832;3833;, - 4;3834;3835;3836;3837;, - 4;3838;3839;3840;3841;, - 4;3842;3843;3844;3845;, - 4;3846;3847;3848;3849;, - 4;3850;3851;3852;3853;, - 4;3854;3855;3856;3857;, - 4;3858;3859;3860;3861;, - 6;3862;3863;3864;3865;3866;3867;, - 4;3868;3869;3870;3871;, - 7;3872;3873;3874;3875;3876;3877;3878;, - 4;3879;3880;3881;3882;, - 5;3883;3884;3885;3886;3887;, - 6;3888;3889;3890;3891;3892;3893;, - 6;3894;3895;3896;3897;3898;3899;, - 4;3900;3901;3902;3903;, - 4;3904;3905;3906;3907;, - 3;3908;3909;3910;, - 4;3911;3912;3913;3914;, - 14;3915;3916;3917;3918;3919;3920;3921;3922;3923;3924;3925;3926;3927;3928;, - 4;3929;3930;3931;3932;, - 4;3933;3934;3935;3936;, - 5;3937;3938;3939;3940;3941;, - 4;3942;3943;3944;3945;, - 4;3946;3947;3948;3949;, - 9;3950;3951;3952;3953;3954;3955;3956;3957;3958;, - 4;3959;3960;3961;3962;, - 4;3963;3964;3965;3966;, - 4;3967;3968;3969;3970;, - 7;3971;3972;3973;3974;3975;3976;3977;, - 4;3978;3979;3980;3981;, - 6;3982;3983;3984;3985;3986;3987;, - 6;3988;3989;3990;3991;3992;3993;, - 7;3994;3995;3996;3997;3998;3999;4000;, - 7;4001;4002;4003;4004;4005;4006;4007;, - 4;4008;4009;4010;4011;, - 4;4012;4013;4014;4015;, - 4;4016;4017;4018;4019;, - 3;4020;4021;4022;, - 3;4023;4024;4025;, - 3;4026;4027;4028;, - 3;4029;4030;4031;, - 6;4032;4033;4034;4035;4036;4037;, - 4;4038;4039;4040;4041;, - 7;4042;4043;4044;4045;4046;4047;4048;, - 5;4049;4050;4051;4052;4053;, - 5;4054;4055;4056;4057;4058;, - 3;4059;4060;4061;, - 4;4062;4063;4064;4065;, - 4;4066;4067;4068;4069;, - 5;4070;4071;4072;4073;4074;, - 5;4075;4076;4077;4078;4079;, - 4;4080;4081;4082;4083;, - 7;4084;4085;4086;4087;4088;4089;4090;, - 4;4091;4092;4093;4094;, - 4;4095;4096;4097;4098;, - 4;4099;4100;4101;4102;, - 5;4103;4104;4105;4106;4107;, - 4;4108;4109;4110;4111;, - 4;4112;4113;4114;4115;, - 4;4116;4117;4118;4119;, - 4;4120;4121;4122;4123;, - 4;4124;4125;4126;4127;, - 4;4128;4129;4130;4131;, - 4;4132;4133;4134;4135;, - 4;4136;4137;4138;4139;, - 4;4140;4141;4142;4143;, - 4;4144;4145;4146;4147;, - 4;4148;4149;4150;4151;, - 4;4152;4153;4154;4155;, - 5;4156;4157;4158;4159;4160;, - 4;4161;4162;4163;4164;, - 4;4165;4166;4167;4168;, - 4;4169;4170;4171;4172;, - 4;4173;4174;4175;4176;, - 4;4177;4178;4179;4180;, - 5;4181;4182;4183;4184;4185;, - 4;4186;4187;4188;4189;, - 5;4190;4191;4192;4193;4194;, - 4;4195;4196;4197;4198;, - 5;4199;4200;4201;4202;4203;, - 4;4204;4205;4206;4207;, - 4;4208;4209;4210;4211;, - 6;4212;4213;4214;4215;4216;4217;, - 4;4218;4219;4220;4221;, - 4;4222;4223;4224;4225;, - 4;4226;4227;4228;4229;, - 4;4230;4231;4232;4233;, - 4;4234;4235;4236;4237;, - 9;4238;4239;4240;4241;4242;4243;4244;4245;4246;, - 4;4247;4248;4249;4250;, - 4;4251;4252;4253;4254;, - 7;4255;4256;4257;4258;4259;4260;4261;, - 4;4262;4263;4264;4265;, - 4;4266;4267;4268;4269;, - 4;4270;4271;4272;4273;, - 4;4274;4275;4276;4277;, - 6;4278;4279;4280;4281;4282;4283;, - 5;4284;4285;4286;4287;4288;, - 4;4289;4290;4291;4292;, - 4;4293;4294;4295;4296;, - 8;4297;4298;4299;4300;4301;4302;4303;4304;, - 4;4305;4306;4307;4308;, - 4;4309;4310;4311;4312;, - 13;4313;4314;4315;4316;4317;4318;4319;4320;4321;4322;4323;4324;4325;, - 6;4326;4327;4328;4329;4330;4331;, - 4;4332;4333;4334;4335;, - 4;4336;4337;4338;4339;, - 4;4340;4341;4342;4343;, - 4;4344;4345;4346;4347;, - 4;4348;4349;4350;4351;, - 9;4352;4353;4354;4355;4356;4357;4358;4359;4360;, - 9;4361;4362;4363;4364;4365;4366;4367;4368;4369;, - 4;4370;4371;4372;4373;, - 4;4374;4375;4376;4377;, - 5;4378;4379;4380;4381;4382;, - 5;4383;4384;4385;4386;4387;, - 8;4388;4389;4390;4391;4392;4393;4394;4395;, - 7;4396;4397;4398;4399;4400;4401;4402;, - 5;4403;4404;4405;4406;4407;, - 4;4408;4409;4410;4411;, - 4;4412;4413;4414;4415;, - 4;4416;4417;4418;4419;, - 5;4420;4421;4422;4423;4424;, - 4;4425;4426;4427;4428;, - 4;4429;4430;4431;4432;, - 4;4433;4434;4435;4436;, - 4;4437;4438;4439;4440;, - 5;4441;4442;4443;4444;4445;, - 6;4446;4447;4448;4449;4450;4451;, - 3;4452;4453;4454;, - 6;4455;4456;4457;4458;4459;4460;, - 4;4461;4462;4463;4464;, - 4;4465;4466;4467;4468;, - 4;4469;4470;4471;4472;, - 4;4473;4474;4475;4476;, - 4;4477;4478;4479;4480;, - 8;4481;4482;4483;4484;4485;4486;4487;4488;, - 6;4489;4490;4491;4492;4493;4494;, - 6;4495;4496;4497;4498;4499;4500;, - 5;4501;4502;4503;4504;4505;, - 7;4506;4507;4508;4509;4510;4511;4512;, - 4;4513;4514;4515;4516;, - 4;4517;4518;4519;4520;, - 3;4521;4522;4523;, - 4;4524;4525;4526;4527;, - 4;4528;4529;4530;4531;, - 3;4532;4533;4534;, - 3;4535;4536;4537;, - 3;4538;4539;4540;, - 4;4541;4542;4543;4544;, - 6;4545;4546;4547;4548;4549;4550;, - 4;4551;4552;4553;4554;, - 5;4555;4556;4557;4558;4559;, - 4;4560;4561;4562;4563;, - 5;4564;4565;4566;4567;4568;, - 4;4569;4570;4571;4572;, - 4;4573;4574;4575;4576;, - 4;4577;4578;4579;4580;, - 4;4581;4582;4583;4584;, - 4;4585;4586;4587;4588;, - 4;4589;4590;4591;4592;, - 5;4593;4594;4595;4596;4597;, - 4;4598;4599;4600;4601;, - 8;4602;4603;4604;4605;4606;4607;4608;4609;, - 4;4610;4611;4612;4613;, - 4;4614;4615;4616;4617;, - 5;4618;4619;4620;4621;4622;, - 18;4623;4624;4625;4626;4627;4628;4629;4630;4631;4632;4633;4634;4635;4636;4637;4638;4639;4640;, - 4;4641;4642;4643;4644;, - 5;4645;4646;4647;4648;4649;, - 4;4650;4651;4652;4653;, - 7;4654;4655;4656;4657;4658;4659;4660;, - 4;4661;4662;4663;4664;, - 4;4665;4666;4667;4668;, - 4;4669;4670;4671;4672;, - 4;4673;4674;4675;4676;, - 5;4677;4678;4679;4680;4681;, - 5;4682;4683;4684;4685;4686;, - 4;4687;4688;4689;4690;, - 4;4691;4692;4693;4694;, - 4;4695;4696;4697;4698;, - 5;4699;4700;4701;4702;4703;, - 4;4704;4705;4706;4707;, - 4;4708;4709;4710;4711;, - 5;4712;4713;4714;4715;4716;, - 6;4717;4718;4719;4720;4721;4722;, - 5;4723;4724;4725;4726;4727;, - 4;4728;4729;4730;4731;, - 6;4732;4733;4734;4735;4736;4737;, - 4;4738;4739;4740;4741;, - 6;4742;4743;4744;4745;4746;4747;, - 4;4748;4749;4750;4751;, - 6;4752;4753;4754;4755;4756;4757;, - 5;4758;4759;4760;4761;4762;, - 4;4763;4764;4765;4766;, - 4;4767;4768;4769;4770;, - 7;4771;4772;4773;4774;4775;4776;4777;, - 5;4778;4779;4780;4781;4782;, - 6;4783;4784;4785;4786;4787;4788;, - 4;4789;4790;4791;4792;, - 4;4793;4794;4795;4796;, - 5;4797;4798;4799;4800;4801;, - 5;4802;4803;4804;4805;4806;, - 4;4807;4808;4809;4810;, - 4;4811;4812;4813;4814;, - 4;4815;4816;4817;4818;, - 4;4819;4820;4821;4822;, - 6;4823;4824;4825;4826;4827;4828;, - 15;4829;4830;4831;4832;4833;4834;4835;4836;4837;4838;4839;4840;4841;4842;4843;, - 4;4844;4845;4846;4847;, - 4;4848;4849;4850;4851;, - 4;4852;4853;4854;4855;, - 4;4856;4857;4858;4859;, - 4;4860;4861;4862;4863;, - 6;4864;4865;4866;4867;4868;4869;, - 4;4870;4871;4872;4873;, - 4;4874;4875;4876;4877;, - 4;4878;4879;4880;4881;, - 4;4882;4883;4884;4885;, - 4;4886;4887;4888;4889;, - 4;4890;4891;4892;4893;, - 4;4894;4895;4896;4897;, - 3;4898;4899;4900;, - 9;4901;4902;4903;4904;4905;4906;4907;4908;4909;, - 4;4910;4911;4912;4913;, - 4;4914;4915;4916;4917;, - 9;4918;4919;4920;4921;4922;4923;4924;4925;4926;, - 6;4927;4928;4929;4930;4931;4932;, - 4;4933;4934;4935;4936;, - 5;4937;4938;4939;4940;4941;, - 4;4942;4943;4944;4945;, - 8;4946;4947;4948;4949;4950;4951;4952;4953;, - 4;4954;4955;4956;4957;, - 4;4958;4959;4960;4961;, - 4;4962;4963;4964;4965;, - 7;4966;4967;4968;4969;4970;4971;4972;, - 4;4973;4974;4975;4976;, - 4;4977;4978;4979;4980;, - 4;4981;4982;4983;4984;, - 6;4985;4986;4987;4988;4989;4990;, - 3;4991;4992;4993;, - 5;4994;4995;4996;4997;4998;, - 4;4999;5000;5001;5002;, - 9;5003;5004;5005;5006;5007;5008;5009;5010;5011;, - 6;5012;5013;5014;5015;5016;5017;, - 4;5018;5019;5020;5021;, - 4;5022;5023;5024;5025;, - 5;5026;5027;5028;5029;5030;, - 5;5031;5032;5033;5034;5035;, - 4;5036;5037;5038;5039;, - 4;5040;5041;5042;5043;, - 4;5044;5045;5046;5047;, - 4;5048;5049;5050;5051;, - 6;5052;5053;5054;5055;5056;5057;, - 4;5058;5059;5060;5061;, - 4;5062;5063;5064;5065;, - 4;5066;5067;5068;5069;, - 4;5070;5071;5072;5073;, - 4;5074;5075;5076;5077;, - 5;5078;5079;5080;5081;5082;, - 6;5083;5084;5085;5086;5087;5088;, - 4;5089;5090;5091;5092;, - 4;5093;5094;5095;5096;, - 4;5097;5098;5099;5100;, - 5;5101;5102;5103;5104;5105;, - 4;5106;5107;5108;5109;, - 5;5110;5111;5112;5113;5114;, - 4;5115;5116;5117;5118;, - 7;5119;5120;5121;5122;5123;5124;5125;, - 4;5126;5127;5128;5129;, - 5;5130;5131;5132;5133;5134;, - 5;5135;5136;5137;5138;5139;, - 4;5140;5141;5142;5143;, - 13;5144;5145;5146;5147;5148;5149;5150;5151;5152;5153;5154;5155;5156;, - 5;5157;5158;5159;5160;5161;, - 4;5162;5163;5164;5165;, - 5;5166;5167;5168;5169;5170;, - 5;5171;5172;5173;5174;5175;, - 4;5176;5177;5178;5179;, - 5;5180;5181;5182;5183;5184;, - 4;5185;5186;5187;5188;, - 4;5189;5190;5191;5192;, - 6;5193;5194;5195;5196;5197;5198;, - 9;5199;5200;5201;5202;5203;5204;5205;5206;5207;, - 4;5208;5209;5210;5211;, - 4;5212;5213;5214;5215;, - 7;5216;5217;5218;5219;5220;5221;5222;, - 4;5223;5224;5225;5226;, - 4;5227;5228;5229;5230;, - 4;5231;5232;5233;5234;, - 4;5235;5236;5237;5238;, - 5;5239;5240;5241;5242;5243;, - 6;5244;5245;5246;5247;5248;5249;, - 5;5250;5251;5252;5253;5254;, - 4;5255;5256;5257;5258;, - 4;5259;5260;5261;5262;, - 4;5263;5264;5265;5266;, - 6;5267;5268;5269;5270;5271;5272;, - 14;5273;5274;5275;5276;5277;5278;5279;5280;5281;5282;5283;5284;5285;5286;, - 7;5287;5288;5289;5290;5291;5292;5293;, - 5;5294;5295;5296;5297;5298;, - 4;5299;5300;5301;5302;, - 5;5303;5304;5305;5306;5307;, - 4;5308;5309;5310;5311;, - 5;5312;5313;5314;5315;5316;, - 6;5317;5318;5319;5320;5321;5322;, - 7;5323;5324;5325;5326;5327;5328;5329;, - 4;5330;5331;5332;5333;, - 4;5334;5335;5336;5337;, - 5;5338;5339;5340;5341;5342;, - 4;5343;5344;5345;5346;, - 4;5347;5348;5349;5350;, - 4;5351;5352;5353;5354;, - 4;5355;5356;5357;5358;, - 4;5359;5360;5361;5362;, - 4;5363;5364;5365;5366;, - 4;5367;5368;5369;5370;, - 4;5371;5372;5373;5374;, - 4;5375;5376;5377;5378;, - 5;5379;5380;5381;5382;5383;, - 9;5384;5385;5386;5387;5388;5389;5390;5391;5392;, - 4;5393;5394;5395;5396;, - 6;5397;5398;5399;5400;5401;5402;, - 4;5403;5404;5405;5406;, - 6;5407;5408;5409;5410;5411;5412;, - 5;5413;5414;5415;5416;5417;, - 5;5418;5419;5420;5421;5422;, - 5;5423;5424;5425;5426;5427;, - 4;5428;5429;5430;5431;, - 4;5432;5433;5434;5435;, - 4;5436;5437;5438;5439;, - 4;5440;5441;5442;5443;, - 4;5444;5445;5446;5447;, - 5;5448;5449;5450;5451;5452;, - 4;5453;5454;5455;5456;, - 4;5457;5458;5459;5460;, - 11;5461;5462;5463;5464;5465;5466;5467;5468;5469;5470;5471;, - 5;5472;5473;5474;5475;5476;, - 7;5477;5478;5479;5480;5481;5482;5483;, - 4;5484;5485;5486;5487;, - 10;5488;5489;5490;5491;5492;5493;5494;5495;5496;5497;, - 4;5498;5499;5500;5501;, - 4;5502;5503;5504;5505;, - 7;5506;5507;5508;5509;5510;5511;5512;, - 9;5513;5514;5515;5516;5517;5518;5519;5520;5521;, - 4;5522;5523;5524;5525;, - 4;5526;5527;5528;5529;, - 4;5530;5531;5532;5533;, - 5;5534;5535;5536;5537;5538;, - 5;5539;5540;5541;5542;5543;, - 22;5544;5545;5546;5547;5548;5549;5550;5551;5552;5553;5554;5555;5556;5557;5558;5559;5560;5561;5562;5563;5564;5565;, - 5;5566;5567;5568;5569;5570;, - 4;5571;5572;5573;5574;, - 4;5575;5576;5577;5578;, - 4;5579;5580;5581;5582;, - 8;5583;5584;5585;5586;5587;5588;5589;5590;, - 4;5591;5592;5593;5594;, - 4;5595;5596;5597;5598;, - 4;5599;5600;5601;5602;, - 5;5603;5604;5605;5606;5607;, - 5;5608;5609;5610;5611;5612;, - 6;5613;5614;5615;5616;5617;5618;, - 4;5619;5620;5621;5622;, - 25;5623;5624;5625;5626;5627;5628;5629;5630;5631;5632;5633;5634;5635;5636;5637;5638;5639;5640;5641;5642;5643;5644;5645;5646;5647;, - 12;5648;5649;5650;5651;5652;5653;5654;5655;5656;5657;5658;5659;, - 13;5660;5661;5662;5663;5664;5665;5666;5667;5668;5669;5670;5671;5672;, - 5;5673;5674;5675;5676;5677;, - 6;5678;5679;5680;5681;5682;5683;; - MeshNormals { //Cube_000 Normals - 5684; - 0.506607;-0.799860;-0.321757;, - 0.277383;-0.903623;-0.326273;, - 0.290567;-0.953581;-0.078829;, - 0.520218;-0.851436;-0.066225;, - 0.379101;-0.540391;-0.751152;, - 0.153905;-0.652394;-0.742058;, - 0.230781;-0.800897;-0.552477;, - 0.458480;-0.693747;-0.555376;, - -0.703177; 0.648976;-0.290414;, - -0.481613; 0.828578;-0.285409;, - -0.515915; 0.855922;-0.034639;, - -0.729820; 0.681845;-0.049074;, - 0.337718; 0.915098;-0.220191;, - 0.588488; 0.779839;-0.213294;, - 0.590075; 0.806360; 0.039613;, - 0.347545; 0.937346; 0.023164;, - 0.478378;-0.209967;-0.852657;, - 0.273873;-0.350169;-0.895718;, - 0.379101;-0.540391;-0.751152;, - 0.580279;-0.394147;-0.712638;, - -0.458480; 0.693747; 0.555376;, - -0.657155; 0.542680; 0.523087;, - -0.703757; 0.645405; 0.296854;, - -0.506607; 0.799860; 0.321757;, - -0.955870; 0.200476; 0.214698;, - -0.855708; 0.437849; 0.275674;, - -0.814142; 0.357280; 0.457686;, - -0.749596; 0.216712; 0.625355;, - -0.870205; 0.020020; 0.492233;, - -0.928831; 0.122196; 0.349681;, - 0.641743;-0.627094; 0.441420;, - 0.442579;-0.780938; 0.440657;, - 0.356609;-0.663717; 0.657460;, - 0.558519;-0.513565; 0.651357;, - -0.837825;-0.217902;-0.500534;, - -0.776025;-0.006836;-0.630634;, - -0.908231; 0.189276;-0.373119;, - -0.952727;-0.043031;-0.300638;, - -0.908444;-0.121189;-0.399976;, - -0.734550; 0.270363;-0.622333;, - -0.551622; 0.467605;-0.690664;, - -0.634907; 0.575976;-0.514878;, - -0.703177; 0.648976;-0.290414;, - -0.854274; 0.441389;-0.274514;, - -0.979003;-0.121586; 0.163518;, - -0.958098; 0.110569; 0.264138;, - -0.924497; 0.053407; 0.377392;, - -0.895718; 0.093814; 0.434584;, - -0.763939;-0.227302; 0.603870;, - -0.862423;-0.303964; 0.404736;, - -0.288430;-0.424024; 0.858455;, - -0.969939;-0.093875; 0.224403;, - -0.973357; 0.012879; 0.228919;, - -0.239753;-0.069155; 0.968352;, - -0.629383; 0.773034; 0.079165;, - -0.657857; 0.734764;-0.165319;, - -0.026276; 0.952574;-0.303079;, - 0.000702; 0.999725; 0.022279;, - -0.998932; 0.030549;-0.033845;, - -0.938200; 0.255287;-0.233589;, - -0.962920; 0.252632;-0.094363;, - -0.736259; 0.048769;-0.674886;, - -0.651479;-0.240425;-0.719535;, - -0.084567;-0.267739;-0.959746;, - -0.092502; 0.074190;-0.992920;, - -0.973144; 0.220588;-0.065401;, - -0.591968; 0.581164;-0.558367;, - -0.629353; 0.324686;-0.705985;, - -0.974639; 0.077670;-0.209815;, - -0.590594; 0.050935;-0.805322;, - -0.704978; 0.101413;-0.701895;, - -0.784539;-0.189581;-0.590350;, - -0.701071;-0.284616;-0.653768;, - -0.803003;-0.473647;-0.361675;, - -0.743248;-0.543352;-0.390240;, - -0.701071;-0.284616;-0.653768;, - -0.784539;-0.189581;-0.590350;, - -0.754814; 0.640553;-0.141148;, - -0.854823; 0.500778;-0.135868;, - -0.846461; 0.462325;-0.264046;, - -0.825312; 0.314127;-0.469192;, - -0.739647; 0.449080;-0.501175;, - -0.749779; 0.561968;-0.349254;, - -0.988800;-0.053621; 0.139042;, - -0.980163;-0.197546; 0.014649;, - -0.824519;-0.468184; 0.317728;, - -0.778558;-0.385479; 0.495193;, - -0.990081;-0.133854; 0.042177;, - -0.824946;-0.564714; 0.022309;, - -0.962523;-0.206275; 0.175970;, - -0.468612; 0.578814;-0.667318;, - -0.739647; 0.449080;-0.501175;, - -0.691671; 0.264321;-0.672079;, - -0.458571; 0.364818;-0.810297;, - -0.516861; 0.312296; 0.797052;, - -0.337748; 0.777551; 0.530381;, - -0.309580; 0.718131; 0.623218;, - -0.370403; 0.267708; 0.889431;, - -0.468612; 0.578814;-0.667318;, - -0.458571; 0.364818;-0.810297;, - -0.564898; 0.323313;-0.759148;, - -0.574114; 0.528306;-0.625477;, - 0.806543; 0.090762;-0.584124;, - 0.861873; 0.290628;-0.415540;, - 0.745201; 0.490463;-0.451735;, - 0.616871; 0.428266;-0.660298;, - 0.690786; 0.288247;-0.663076;, - -0.869686;-0.057344;-0.490219;, - -0.779595;-0.287240;-0.556505;, - -0.759972;-0.288552;-0.582385;, - -0.744255; 0.010285;-0.667776;, - -0.866970; 0.017823;-0.498001;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - -0.938200; 0.255287;-0.233589;, - -0.998932; 0.030549;-0.033845;, - -0.998169;-0.044618;-0.040773;, - -0.922330;-0.241401;-0.301675;, - -0.970946;-0.076693;-0.226630;, - -0.976226; 0.092654;-0.195807;, - 0.705649; 0.546587;-0.450850;, - 0.601489; 0.440931;-0.666158;, - 0.716941; 0.250740;-0.650441;, - 0.828272; 0.366985;-0.423383;, - -0.957701; 0.239051;-0.160131;, - -0.993927;-0.020142;-0.108066;, - -0.952727;-0.043031;-0.300638;, - -0.908231; 0.189276;-0.373119;, - 0.590930; 0.412336; 0.693350;, - 0.373882; 0.578417; 0.724967;, - 0.480178; 0.703604; 0.523759;, - 0.683584; 0.513962; 0.518174;, - 0.680807;-0.355358; 0.640431;, - 0.698050;-0.034822; 0.715171;, - 0.897763;-0.000580; 0.440443;, - 0.874325;-0.293466; 0.386517;, - -0.368755;-0.518998; 0.771111;, - -0.559282;-0.358470; 0.747429;, - -0.509445;-0.528886; 0.678732;, - -0.489853;-0.553301; 0.673696;, - -0.489853;-0.553301; 0.673696;, - -0.778558;-0.385479; 0.495193;, - -0.824519;-0.468184; 0.317728;, - -0.239051;-0.801477; 0.548112;, - 0.027833;-0.680837; 0.731864;, - -0.091800;-0.651204; 0.753319;, - 0.450789;-0.555376; 0.698782;, - -0.103488;-0.530320; 0.841426;, - -0.444655; 0.713584; 0.541337;, - -0.580462; 0.717765; 0.384503;, - -0.480544; 0.849269; 0.218543;, - -0.422926; 0.904691; 0.051302;, - -0.179449; 0.969176; 0.168706;, - -0.282907; 0.821802; 0.494552;, - -0.359478; 0.805902; 0.470382;, - 0.809351; 0.462844;-0.361522;, - 0.848262; 0.392743;-0.355144;, - 0.848262; 0.392743;-0.355144;, - 0.887875; 0.289743;-0.357341;, - 0.969268; 0.179662;-0.167943;, - 0.969268; 0.179662;-0.167943;, - 0.967467; 0.189154;-0.167913;, - 0.830897; 0.523362;-0.188879;, - -0.288430;-0.424024; 0.858455;, - -0.336680;-0.679708; 0.651631;, - -0.336802;-0.768853; 0.543474;, - -0.230750;-0.935270; 0.268319;, - -0.978118;-0.181402; 0.101718;, - -0.969939;-0.093875; 0.224403;, - -0.988037;-0.092990;-0.122868;, - -0.346141; 0.925748;-0.152196;, - 0.711570; 0.700095; 0.058992;, - -0.739647; 0.449080;-0.501175;, - -0.825312; 0.314127;-0.469192;, - -0.790551; 0.222846;-0.570391;, - -0.718009;-0.030427;-0.695334;, - -0.620045; 0.041566;-0.783441;, - -0.691671; 0.264321;-0.672079;, - -0.626118;-0.042940;-0.778527;, - -0.755577;-0.199957;-0.623768;, - -0.590930;-0.412305;-0.693350;, - -0.441054;-0.244484;-0.863521;, - -0.435438; 0.828150; 0.352855;, - -0.444777; 0.887539; 0.120090;, - -0.527543; 0.839198; 0.131809;, - -0.487533; 0.769921; 0.411664;, - -0.356609; 0.663717;-0.657460;, - -0.558489; 0.513565;-0.651357;, - -0.451735; 0.356243;-0.817927;, - -0.246345; 0.501236;-0.829493;, - -0.277047;-0.926420; 0.254891;, - -0.512040;-0.841151; 0.173986;, - -0.548570;-0.784814; 0.288247;, - -0.349895;-0.825495; 0.442793;, - -0.168828; 0.977477;-0.126499;, - -0.449232; 0.893307;-0.011475;, - -0.783715; 0.612354;-0.103671;, - -0.943327;-0.290506; 0.160314;, - -0.583819;-0.793664; 0.170812;, - -0.553178;-0.832331;-0.034211;, - -0.569536;-0.789788;-0.227607;, - -0.899655;-0.425153;-0.099033;, - -0.934568;-0.349498; 0.066439;, - -0.547380;-0.631764; 0.548814;, - -0.755547;-0.450240; 0.475784;, - 0.196661;-0.170171; 0.965575;, - 0.133824;-0.570879; 0.810022;, - -0.505631;-0.170751;-0.845668;, - -0.505631;-0.170751;-0.845668;, - -0.339152; 0.047578;-0.939512;, - -0.339152; 0.047578;-0.939512;, - -0.736534; 0.648122; 0.193487;, - -0.516831; 0.827815; 0.218116;, - -0.483993; 0.745506; 0.458144;, - -0.699942; 0.574694; 0.423994;, - 0.857418;-0.448988;-0.251381;, - 0.836756;-0.420118;-0.351146;, - 0.609546;-0.555071;-0.565935;, - 0.629597;-0.636250;-0.445784;, - 0.724296;-0.575579;-0.379559;, - -0.257057;-0.942778;-0.212287;, - -0.224982;-0.970183; 0.089785;, - -0.526780;-0.836940; 0.148259;, - -0.606616;-0.777184;-0.167180;, - -0.307108; 0.439375; 0.844142;, - -0.578722; 0.339000; 0.741691;, - -0.677633; 0.568102; 0.466933;, - -0.396771; 0.721244; 0.567736;, - 0.715903; 0.664663; 0.213721;, - 0.715079; 0.634419; 0.293466;, - 0.729545; 0.458083; 0.507797;, - -0.305307; 0.661367; 0.685080;, - -0.337657; 0.860988; 0.380352;, - -0.305338; 0.923826; 0.230842;, - 0.670095; 0.715598; 0.197028;, - -0.084567;-0.267739;-0.959746;, - 0.450942;-0.221778;-0.864528;, - 0.418500; 0.055605;-0.906491;, - -0.092502; 0.074190;-0.992920;, - -0.337748; 0.777551; 0.530381;, - -0.260262; 0.950713; 0.168371;, - -0.622730; 0.750145; 0.222419;, - -0.662130; 0.561113; 0.496689;, - -0.309580; 0.718131; 0.623218;, - 0.528764;-0.243843; 0.812952;, - 0.236244;-0.106784; 0.965789;, - 0.236244; 0.106784; 0.965789;, - 0.528764; 0.243843; 0.812952;, - 0.599475; 0.000000; 0.800378;, - -0.999847; 0.015961; 0.000000;, - -0.559282;-0.358470; 0.747429;, - -0.201880;-0.221381; 0.954039;, - -0.139348; 0.368053; 0.919279;, - -0.959868;-0.152806; 0.235084;, - -0.993408;-0.109439; 0.033509;, - 0.999847;-0.015900; 0.000000;, - -0.999847; 0.015961; 0.000000;, - -0.339152; 0.047578;-0.939512;, - -0.339152; 0.047578;-0.939512;, - -0.712027;-0.674917;-0.193487;, - -0.712027;-0.674947;-0.193457;, - -0.755913;-0.384228; 0.530015;, - -0.648396;-0.491470; 0.581378;, - -0.711112;-0.627888; 0.316263;, - -0.816645;-0.498306; 0.291086;, - -0.240394;-0.411695;-0.879025;, - -0.023652;-0.550645;-0.834376;, - 0.123875;-0.360454;-0.924497;, - -0.088473;-0.214087;-0.972777;, - -0.008606; 0.990234;-0.138981;, - -0.269417; 0.947356;-0.172948;, - -0.215369; 0.885342;-0.412000;, - 0.048585; 0.935179;-0.350749;, - -0.986969;-0.017609;-0.159917;, - -0.947661;-0.307321;-0.086245;, - -0.906766;-0.359630;-0.220008;, - -0.920713;-0.102268;-0.376507;, - -0.023499; 0.989685;-0.141179;, - -0.269417; 0.947325;-0.172979;, - -0.215369; 0.885342;-0.412000;, - 0.033845; 0.934263;-0.354900;, - 0.270241; 0.866390; 0.419874;, - 0.336558; 0.735557; 0.587939;, - 0.095828; 0.726951; 0.679952;, - 0.011414; 0.857295; 0.514634;, - -0.022340; 0.942595; 0.333171;, - 0.239296; 0.924345; 0.297128;, - -0.231941;-0.069735; 0.970214;, - -0.421644;-0.005646; 0.906735;, - -0.370403; 0.267708; 0.889431;, - -0.587970; 0.225776; 0.776696;, - -0.481643;-0.030183; 0.875820;, - 0.597552; 0.586718;-0.546464;, - 0.670553; 0.686819;-0.280374;, - 0.586688; 0.753533;-0.296579;, - 0.567095; 0.624470;-0.537034;, - 0.552293; 0.531327;-0.642323;, - 0.504227; 0.339030;-0.794214;, - 0.555986; 0.317362;-0.768181;, - -0.329386;-0.663930;-0.671316;, - -0.269082;-0.779015;-0.566301;, - 0.629597;-0.636250;-0.445784;, - 0.609546;-0.555071;-0.565935;, - 0.887692;-0.409558;-0.210334;, - 0.772271;-0.356029;-0.526109;, - 0.537614;-0.655049;-0.530900;, - 0.624836;-0.750786;-0.214087;, - -0.438856;-0.534745; 0.722098;, - -0.219703;-0.660665; 0.717795;, - -0.331156;-0.365856; 0.869747;, - -0.330149;-0.273476; 0.903439;, - -0.401410;-0.289499; 0.868923;, - -0.993408;-0.109439; 0.033509;, - -0.959868;-0.152806; 0.235084;, - -0.551775;-0.487777; 0.676443;, - -0.755547;-0.450240; 0.475784;, - -0.547380;-0.631764; 0.548814;, - -0.362377;-0.755943; 0.545122;, - -0.681356;-0.688131; 0.249367;, - 0.979003; 0.121586;-0.163518;, - 0.988464; 0.038575; 0.146306;, - 0.943876; 0.109378; 0.311563;, - 0.940001; 0.248695; 0.233497;, - 0.940001; 0.248695; 0.233497;, - 0.925077; 0.337138; 0.174780;, - 0.940947; 0.334147;-0.053926;, - 0.963286; 0.243660;-0.112522;, - 0.963286; 0.243660;-0.112522;, - 0.690786; 0.288247;-0.663076;, - 0.535051; 0.154759;-0.830500;, - 0.670858;-0.067049;-0.738517;, - 0.806543; 0.090762;-0.584124;, - 0.415845; 0.154942; 0.896115;, - 0.197790; 0.044649; 0.979217;, - 0.067904; 0.260933; 0.962951;, - 0.273324; 0.392315; 0.878262;, - -0.218513; 0.964385; 0.148869;, - -0.227454; 0.973693; 0.012757;, - -0.226997; 0.967437;-0.111728;, - -0.213843; 0.944182;-0.250526;, - 0.228706; 0.948973;-0.217017;, - 0.233100; 0.968017; 0.092441;, - -0.305338; 0.923826; 0.230842;, - -0.323985; 0.943297; 0.072115;, - -0.173528; 0.984710;-0.014588;, - 0.694388; 0.717948; 0.048189;, - 0.670095; 0.715598; 0.197028;, - -0.966857;-0.041963;-0.251717;, - -0.974639; 0.077670;-0.209815;, - -0.629353; 0.324686;-0.705985;, - -0.614734; 0.044801;-0.787439;, - -0.506607; 0.799860; 0.321757;, - -0.703757; 0.645405; 0.296854;, - -0.716941; 0.695334; 0.049409;, - -0.520249; 0.851436; 0.066225;, - -0.869686;-0.057344;-0.490219;, - -0.873226;-0.250313;-0.418043;, - -0.767052;-0.374065;-0.521226;, - -0.779595;-0.287240;-0.556505;, - 0.572741; 0.448378;-0.686209;, - 0.423444; 0.545244;-0.723441;, - 0.181280; 0.614795;-0.767541;, - 0.256630; 0.427808;-0.866665;, - 0.300882; 0.302103;-0.904508;, - 0.443251; 0.084567;-0.892361;, - 0.593310; 0.303629;-0.745476;, - -0.112888; 0.228797;-0.966887;, - 0.082247; 0.224189;-0.971038;, - 0.151738; 0.555071;-0.817805;, - -0.151738; 0.555071;-0.817805;, - -0.451521; 0.867794;-0.207404;, - -0.541429; 0.812433;-0.216193;, - -0.527543; 0.839198; 0.131809;, - -0.444777; 0.887539; 0.120090;, - -0.870846;-0.355052;-0.339915;, - -0.832545;-0.433180;-0.345225;, - -0.688345;-0.605762;-0.398968;, - -0.645619;-0.513474;-0.565203;, - -0.645619;-0.513474;-0.565203;, - -0.624897;-0.403088;-0.668569;, - -0.749474;-0.282601;-0.598621;, - -0.850368;-0.173620;-0.496689;, - -0.922544;-0.185888;-0.338084;, - -0.870846;-0.355052;-0.339915;, - -0.475539;-0.128239; 0.870266;, - -0.532884;-0.386639; 0.752647;, - -0.565600;-0.558702; 0.606555;, - -0.939726;-0.185492; 0.287149;, - -0.877560;-0.050203; 0.476791;, - -0.969909; 0.241523;-0.029572;, - -0.769616; 0.502731; 0.393567;, - -0.729179; 0.306009;-0.612079;, - 0.074038; 0.946898; 0.312845;, - 0.096316; 0.794305; 0.599811;, - 0.262825; 0.774071; 0.575915;, - 0.254158; 0.922666; 0.289956;, - 0.847438;-0.390637; 0.359508;, - 0.595752;-0.715171; 0.365459;, - 0.514145;-0.616230; 0.596545;, - 0.733818;-0.337718; 0.589435;, - -0.346324;-0.642415; 0.683615;, - -0.648396;-0.491470; 0.581378;, - -0.558824;-0.267251; 0.784997;, - -0.287240;-0.364574; 0.885739;, - -0.313517; 0.947844;-0.057039;, - -0.637623; 0.768609; 0.051454;, - 0.427869; 0.872677;-0.235206;, - -0.546403;-0.479537; 0.686605;, - -0.509445;-0.528886; 0.678732;, - -0.559282;-0.358470; 0.747429;, - -0.546403;-0.479537; 0.686605;, - 0.021485; 0.951048;-0.308267;, - 0.195196; 0.928343;-0.316324;, - 0.135502; 0.779504;-0.611530;, - -0.004334; 0.814203;-0.580523;, - -0.845607;-0.392956;-0.361217;, - -0.539994;-0.642384;-0.543779;, - -0.539994;-0.642384;-0.543779;, - -0.750511;-0.454543;-0.479629;, - -0.759972;-0.288552;-0.582385;, - -0.779595;-0.287240;-0.556505;, - -0.767052;-0.374065;-0.521226;, - -0.873226;-0.250313;-0.418043;, - -0.832209; 0.554216;-0.016266;, - -0.594806; 0.774194; 0.216285;, - -0.845851; 0.513565; 0.144047;, - 0.269509; 0.818476;-0.507370;, - -0.789605; 0.534989;-0.300363;, - -0.862850; 0.331126;-0.381848;, - -0.857814; 0.230293;-0.459395;, - 0.272927; 0.616535;-0.738487;, - 0.291208; 0.712485;-0.638356;, - -0.910092; 0.208258;-0.358226;, - -0.967864; 0.179662;-0.175817;, - -0.967864; 0.179662;-0.175817;, - -0.966155; 0.189154;-0.175359;, - -0.966918;-0.179815;-0.180792;, - -0.922544;-0.185888;-0.338084;, - 0.628346; 0.243324; 0.738884;, - 0.592029; 0.265023; 0.761071;, - 0.590869; 0.506912; 0.627583;, - 0.545762; 0.653310; 0.524674;, - 0.535173; 0.778283; 0.328349;, - 0.695761; 0.657765; 0.288522;, - 0.653218; 0.600116; 0.461654;, - 0.635365; 0.491379; 0.595630;, - -0.222694;-0.429212; 0.875301;, - 0.678762;-0.291604; 0.673940;, - 0.688284;-0.499710; 0.525834;, - 0.704459;-0.589099; 0.395795;, - -0.321451;-0.779809; 0.537126;, - -0.299844;-0.634541; 0.712333;, - -0.220801; 0.940519;-0.258065;, - -0.262703; 0.964690;-0.017457;, - -0.515915; 0.855922;-0.034639;, - -0.481613; 0.828578;-0.285409;, - 0.450789;-0.555376; 0.698782;, - 0.027833;-0.680837; 0.731864;, - 0.174230;-0.658559; 0.732047;, - 0.133824;-0.570879; 0.810022;, - 0.344523;-0.485519; 0.803461;, - -0.103488;-0.530320; 0.841426;, - -0.535722; 0.829127;-0.159673;, - -0.622730; 0.750145; 0.222419;, - -0.260262; 0.950713; 0.168371;, - -0.279519; 0.946562;-0.160741;, - 0.875546;-0.482253;-0.028230;, - 0.716941;-0.695334;-0.049409;, - 0.695791;-0.689108; 0.202368;, - 0.861080;-0.468673; 0.197058;, - -0.970122;-0.056642; 0.235786;, - -0.850215;-0.102451; 0.516312;, - -0.907529; 0.061922; 0.415357;, - -0.989807;-0.140996; 0.018586;, - -0.998169;-0.044618;-0.040773;, - -0.998932; 0.030549;-0.033845;, - -0.962920; 0.252632;-0.094363;, - -0.960784; 0.260231; 0.095676;, - -0.962188; 0.195715; 0.189276;, - -0.905118; 0.088992; 0.415723;, - -0.967956; 0.037538; 0.248238;, - -0.968596;-0.013916; 0.248146;, - -0.959258;-0.154698;-0.236335;, - -0.932707;-0.323557;-0.159093;, - -0.943114;-0.329234; 0.045930;, - -0.947508;-0.250069; 0.199103;, - -0.944304;-0.156652; 0.289346;, - -0.935087;-0.048189; 0.351115;, - -0.940245; 0.080752; 0.330729;, - -0.959136; 0.174841; 0.222419;, - -0.959899; 0.252510; 0.121677;, - -0.973144; 0.220588;-0.065401;, - -0.917478;-0.201239; 0.343089;, - -0.475539;-0.128239; 0.870266;, - -0.523606; 0.211737; 0.825220;, - 0.077395; 0.260598; 0.962310;, - 0.084353;-0.160741; 0.983367;, - 0.336253; 0.846644;-0.412427;, - 0.279366; 0.920133;-0.274300;, - 0.033845; 0.934263;-0.354900;, - 0.100589; 0.831019;-0.547044;, - 0.190252; 0.707053;-0.681051;, - 0.418195; 0.726493;-0.545213;, - -0.944304;-0.156652; 0.289346;, - -0.947508;-0.250069; 0.199103;, - -0.556780;-0.759056; 0.337352;, - -0.549638;-0.549638; 0.629078;, - 0.328684;-0.165807; 0.929746;, - 0.119266;-0.304575; 0.944975;, - -0.015870;-0.087191; 0.996063;, - 0.197790; 0.044649; 0.979217;, - 0.893094; 0.320475; 0.315653;, - 0.715812; 0.488174; 0.499252;, - 0.723838; 0.631275; 0.278451;, - 0.732322; 0.680868;-0.006592;, - 0.874691; 0.484634; 0.002838;, - 0.457595; 0.837489;-0.298654;, - 0.711570; 0.700095; 0.058992;, - -0.346141; 0.925748;-0.152196;, - 0.457595; 0.837489;-0.298654;, - -0.346141; 0.925748;-0.152196;, - 0.031495; 0.745018;-0.666250;, - -0.743217; 0.197821; 0.639088;, - -0.860195; 0.000885; 0.509903;, - -0.931669; 0.147160; 0.332102;, - -0.822871; 0.365490; 0.435041;, - -0.333781;-0.941618; 0.043794;, - -0.969329;-0.241859; 0.043001;, - -0.977203;-0.200751; 0.068819;, - -0.271676;-0.941588; 0.198859;, - -0.689810;-0.723655;-0.020783;, - 0.409619;-0.894955; 0.176672;, - 0.999847;-0.015931;-0.000031;, - 0.088412; 0.996063;-0.001251;, - -0.168828; 0.977477;-0.126499;, - -0.313517; 0.947844;-0.057039;, - 0.427869; 0.872677;-0.235206;, - 0.427869; 0.872677;-0.235206;, - -0.993561;-0.058992;-0.096438;, - -0.998932;-0.016877;-0.042329;, - -0.998932;-0.016877;-0.042329;, - -0.999847; 0.016449;-0.000061;, - -0.999847; 0.015839;-0.000153;, - -0.405805; 0.042940;-0.912931;, - -0.590594; 0.050935;-0.805322;, - -0.701071;-0.284616;-0.653768;, - -0.458113;-0.369213;-0.808557;, - 0.703757;-0.645405;-0.296854;, - 0.506607;-0.799860;-0.321757;, - 0.520218;-0.851436;-0.066225;, - 0.716941;-0.695334;-0.049409;, - -0.168828; 0.977477;-0.126499;, - 0.088412; 0.996063;-0.001251;, - 0.997528; 0.070162; 0.003571;, - -0.920347; 0.363842;-0.143223;, - -0.449232; 0.893307;-0.011475;, - 0.411267;-0.911466; 0.007202;, - -0.999817; 0.017701; 0.000000;, - -0.573534;-0.819147; 0.000000;, - 0.411267;-0.911466; 0.007202;, - -0.573534;-0.819147; 0.000000;, - -0.553270;-0.827113; 0.098636;, - 0.041597; 0.584460; 0.810327;, - -0.645772; 0.651875;-0.397473;, - -0.645772; 0.651875;-0.397473;, - 0.041597; 0.584490; 0.810327;, - 0.228584; 0.213538;-0.949797;, - 0.015900; 0.087191;-0.996063;, - 0.149998;-0.136143;-0.979247;, - 0.358409;-0.002686;-0.933531;, - -0.657857; 0.734764;-0.165319;, - -0.650838; 0.647511;-0.396374;, - -0.047731; 0.817896;-0.573321;, - -0.026276; 0.952574;-0.303079;, - -0.346324;-0.642415; 0.683615;, - -0.287240;-0.364574; 0.885739;, - -0.524033;-0.255776; 0.812372;, - -0.549638;-0.549638; 0.629078;, - -0.943114;-0.329234; 0.045930;, - -0.932707;-0.323557;-0.159093;, - -0.528245;-0.646870;-0.549974;, - -0.467269;-0.812769;-0.347880;, - -0.521775;-0.849147;-0.081545;, - 0.473312;-0.303385;-0.826960;, - 0.277718;-0.154027;-0.948210;, - 0.123875;-0.360454;-0.924497;, - 0.348552;-0.491653;-0.797967;, - -0.978484;-0.042451;-0.201849;, - -0.967254;-0.227241;-0.112766;, - -0.948210;-0.310617; 0.066347;, - -0.942808;-0.283364; 0.175390;, - -0.917478;-0.201239; 0.343089;, - -0.973144; 0.220588;-0.065401;, - -0.974639; 0.077670;-0.209815;, - -0.966857;-0.041963;-0.251717;, - -0.959258;-0.154698;-0.236335;, - -0.968596;-0.013916; 0.248146;, - -0.877560;-0.050203; 0.476791;, - -0.939726;-0.185492; 0.287149;, - -0.943327;-0.290506; 0.160314;, - -0.934568;-0.349498; 0.066439;, - -0.989807;-0.140996; 0.018586;, - -0.907529; 0.061922; 0.415357;, - -0.910977; 0.190222; 0.365917;, - -0.925443; 0.266152; 0.269570;, - -0.945799; 0.320353; 0.052614;, - -0.962066; 0.218390;-0.163366;, - 0.246773; 0.809046; 0.533403;, - -0.769616; 0.502731; 0.393567;, - -0.845851; 0.513565; 0.144047;, - -0.594806; 0.774194; 0.216285;, - 0.256142; 0.929106; 0.266640;, - 0.999847;-0.015931; 0.000000;, - 0.999847;-0.015900; 0.000000;, - -0.993408;-0.109439; 0.033509;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - -0.993561;-0.058992;-0.096438;, - 0.999847;-0.015931; 0.000000;, - 0.999847;-0.015931; 0.000000;, - 0.999847;-0.015931; 0.000000;, - 0.999847;-0.015931; 0.000000;, - 0.195196; 0.928343;-0.316324;, - 0.219214; 0.975646; 0.005615;, - 0.640370; 0.767571;-0.026399;, - 0.670553; 0.686819;-0.280374;, - -0.988800;-0.053621; 0.139042;, - -0.778558;-0.385479; 0.495193;, - -0.959319;-0.003479; 0.282235;, - 0.847438;-0.390637; 0.359508;, - 0.904294;-0.417371; 0.089450;, - 0.636860;-0.765557; 0.091067;, - 0.595752;-0.715171; 0.365459;, - -0.957701; 0.239051;-0.160131;, - -0.970489; 0.241005; 0.005585;, - -0.962767; 0.196966; 0.185034;, - -0.992828;-0.042879; 0.111484;, - -0.993927;-0.020142;-0.108066;, - -0.092502; 0.074190;-0.992920;, - 0.418500; 0.055605;-0.906491;, - 0.504227; 0.339030;-0.794214;, - -0.082369; 0.408460;-0.909024;, - -0.922330;-0.241401;-0.301675;, - -0.998169;-0.044618;-0.040773;, - -0.989807;-0.140996; 0.018586;, - -0.934568;-0.349498; 0.066439;, - -0.899655;-0.425153;-0.099033;, - -0.904508;-0.352245;-0.240333;, - -0.744255; 0.010285;-0.667776;, - -0.521897; 0.384930;-0.761193;, - -0.863582; 0.179205;-0.471267;, - -0.866970; 0.017823;-0.498001;, - -0.274026; 0.308237;-0.910977;, - -0.292764; 0.359142;-0.886135;, - -0.207190; 0.425977;-0.880673;, - -0.181524; 0.614795;-0.767479;, - -0.423963; 0.545183;-0.723197;, - -0.594989; 0.446944;-0.667989;, - -0.581103; 0.391217;-0.713614;, - -0.628224; 0.331065;-0.704062;, - -0.443464; 0.084536;-0.892270;, - 0.253029;-0.489303; 0.834559;, - 0.116611;-0.498886; 0.858760;, - 0.102786;-0.726951; 0.678915;, - 0.248054;-0.713645; 0.655080;, - 0.718589; 0.214118; 0.661611;, - 0.698050;-0.034822; 0.715171;, - -0.239753;-0.069155; 0.968352;, - -0.282113; 0.299417; 0.911435;, - 0.356609;-0.663717; 0.657460;, - 0.132145;-0.771813; 0.621937;, - 0.025361;-0.614460; 0.788507;, - 0.246345;-0.501206; 0.829493;, - 0.872890;-0.014069;-0.487686;, - 0.928465; 0.173772;-0.328166;, - 0.828272; 0.366985;-0.423383;, - 0.716941; 0.250740;-0.650441;, - 0.795465; 0.115085;-0.594958;, - -0.029206; 0.997589; 0.062899;, - -0.290567; 0.953581; 0.078829;, - -0.269417; 0.947356;-0.172948;, - -0.008606; 0.990234;-0.138981;, - -0.132115; 0.771813;-0.621937;, - -0.356609; 0.663686;-0.657491;, - -0.246345; 0.501206;-0.829493;, - -0.025361; 0.614460;-0.788507;, - 0.940001; 0.248695; 0.233497;, - 0.943876; 0.109378; 0.311563;, - 0.843806; 0.247169; 0.476302;, - 0.715751; 0.452162; 0.532151;, - 0.764336; 0.500076; 0.406995;, - 0.764336; 0.500076; 0.406995;, - 0.810663; 0.510971; 0.285836;, - 0.925077; 0.337138; 0.174780;, - 0.940001; 0.248695; 0.233497;, - 0.025361;-0.614460; 0.788507;, - -0.210120;-0.691855; 0.690756;, - -0.327738;-0.523881; 0.786187;, - -0.097659;-0.424055; 0.900327;, - -0.755547;-0.450240; 0.475784;, - -0.551775;-0.487777; 0.676443;, - 0.196661;-0.170171; 0.965575;, - -0.860195; 0.000885; 0.509903;, - -0.709098;-0.268715; 0.651845;, - -0.802393;-0.378765; 0.461135;, - -0.933897;-0.160955; 0.319163;, - -0.173528; 0.984710;-0.014588;, - -0.323985; 0.943297; 0.072115;, - -0.884640; 0.466170; 0.006653;, - -0.906857; 0.421155; 0.013825;, - 0.654622;-0.214545; 0.724845;, - -0.103488;-0.530320; 0.841426;, - 0.344523;-0.485519; 0.803461;, - 0.654622;-0.214545; 0.724845;, - 0.344523;-0.485519; 0.803461;, - 0.133824;-0.570879; 0.810022;, - 0.994476; 0.005829; 0.104556;, - 0.957701;-0.239051; 0.160131;, - 0.909635;-0.186010; 0.371410;, - 0.953795; 0.054231; 0.295480;, - -0.800989;-0.596179;-0.054323;, - -0.816645;-0.498306; 0.291086;, - -0.711112;-0.627888; 0.316263;, - -0.758019;-0.651418;-0.032441;, - 0.211890;-0.973479;-0.086154;, - 0.039338;-0.993866;-0.103061;, - 0.016175;-0.933866;-0.357189;, - 0.186132;-0.912168;-0.365062;, - -0.512894;-0.662404;-0.545976;, - -0.458113;-0.369213;-0.808557;, - -0.701071;-0.284616;-0.653768;, - -0.743248;-0.543352;-0.390240;, - -0.755913;-0.384228; 0.530015;, - -0.640675;-0.106632; 0.760338;, - -0.558824;-0.267251; 0.784997;, - -0.648396;-0.491470; 0.581378;, - 0.654622;-0.214545; 0.724845;, - 0.722068;-0.086734; 0.686331;, - -0.103488;-0.530320; 0.841426;, - -0.168828; 0.977477;-0.126499;, - -0.783715; 0.612354;-0.103671;, - 0.249489; 0.937742;-0.241615;, - 0.164769; 0.980407;-0.107639;, - -0.637623; 0.768609; 0.051454;, - -0.637623; 0.768609; 0.051454;, - -0.313517; 0.947844;-0.057039;, - 0.102786;-0.726951; 0.678915;, - 0.082430;-0.904355; 0.418683;, - 0.239509;-0.895566; 0.374889;, - 0.248054;-0.713645; 0.655080;, - -0.607929; 0.534837;-0.586779;, - -0.064730; 0.648183;-0.758721;, - -0.047731; 0.817896;-0.573321;, - -0.650838; 0.647511;-0.396374;, - -0.451521; 0.867794;-0.207404;, - -0.754814; 0.640553;-0.141148;, - -0.749779; 0.561968;-0.349254;, - -0.465651; 0.745689;-0.476485;, - 0.409619;-0.894955; 0.176672;, - 0.299966;-0.929563; 0.214179;, - -0.988037;-0.092990;-0.122868;, - 0.711570; 0.700095; 0.058992;, - 0.457595; 0.837489;-0.298654;, - 0.011383; 0.483993;-0.874966;, - 0.256630; 0.427808;-0.866665;, - 0.181280; 0.614795;-0.767541;, - 0.153813; 0.685080;-0.711997;, - 0.000000; 0.698386;-0.715690;, - -0.153813; 0.685080;-0.711997;, - -0.181524; 0.614795;-0.767479;, - -0.207190; 0.425977;-0.880673;, - -0.512894;-0.662404;-0.545976;, - -0.528245;-0.646870;-0.549974;, - -0.566332;-0.313089;-0.762352;, - -0.458113;-0.369213;-0.808557;, - -0.861812; 0.309366;-0.401868;, - -0.516587; 0.500229;-0.694876;, - -0.356883; 0.714866;-0.601306;, - -0.862331; 0.416395;-0.287973;, - -0.587848;-0.700522; 0.404492;, - 0.046754;-0.908597; 0.414991;, - 0.024476;-0.988830; 0.147008;, - -0.583819;-0.793664; 0.170812;, - 0.039338;-0.993866;-0.103061;, - 0.211890;-0.973479;-0.086154;, - 0.217536;-0.967467; 0.129093;, - 0.060701;-0.987335; 0.146489;, - 0.734550;-0.270363; 0.622333;, - 0.551622;-0.467605; 0.690664;, - 0.417249;-0.288186; 0.861843;, - 0.619587;-0.103397; 0.778069;, - -0.329386;-0.663930;-0.671316;, - -0.968505;-0.189428;-0.161443;, - -0.976897;-0.180853;-0.113742;, - -0.269082;-0.779015;-0.566301;, - -0.429853;-0.773553; 0.465590;, - -0.506516;-0.674459; 0.537126;, - -0.569597;-0.564501; 0.597339;, - -0.543870;-0.531541; 0.649312;, - -0.391095;-0.463637; 0.795007;, - -0.272195;-0.642445; 0.716330;, - -0.161779;-0.811853; 0.560961;, - -0.355022;-0.796350; 0.489639;, - -0.304910;-0.952361; 0.005860;, - -0.970824;-0.236976; 0.036195;, - -0.978118;-0.181402; 0.101718;, - -0.230750;-0.935270; 0.268319;, - 0.972869;-0.171514; 0.155156;, - 0.861873;-0.369152; 0.347606;, - 0.854274;-0.171941; 0.490524;, - 0.975860;-0.047212; 0.213172;, - -0.376232;-0.447279;-0.811365;, - -0.151738;-0.555071;-0.817805;, - -0.082247;-0.224189;-0.971038;, - -0.243446;-0.092563;-0.965484;, - -0.524552;-0.241737;-0.816309;, - -0.988739; 0.111850; 0.099155;, - -0.994018; 0.097812; 0.048097;, - -0.906857; 0.421155; 0.013825;, - -0.884640; 0.466170; 0.006653;, - 0.694388; 0.717948; 0.048189;, - 0.854885; 0.511795; 0.084780;, - 0.865200; 0.475875; 0.157842;, - 0.715079; 0.634419; 0.293466;, - 0.715903; 0.664663; 0.213721;, - 0.670095; 0.715598; 0.197028;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - 0.760949; 0.507004;-0.404797;, - -0.276101; 0.351634; 0.894467;, - -0.966735; 0.107974; 0.231788;, - -0.970641; 0.183142; 0.155828;, - -0.227973; 0.671346; 0.705161;, - -0.164495; 0.860164;-0.482711;, - -0.220801; 0.940519;-0.258065;, - -0.481613; 0.828578;-0.285409;, - -0.415448; 0.746757;-0.519333;, - 0.979003; 0.121586;-0.163518;, - 0.958098;-0.110569;-0.264138;, - 0.974914;-0.169591;-0.143925;, - 0.956847;-0.258339;-0.132786;, - 0.944731;-0.218268; 0.244484;, - 0.988464; 0.038575; 0.146306;, - 0.586688; 0.753533;-0.296579;, - -0.026276; 0.952574;-0.303079;, - -0.047731; 0.817896;-0.573321;, - 0.567095; 0.624470;-0.537034;, - 0.358440;-0.002686;-0.933531;, - 0.149998;-0.136113;-0.979247;, - 0.273873;-0.350200;-0.895718;, - 0.478408;-0.209967;-0.852657;, - 0.246345;-0.501206; 0.829493;, - 0.025361;-0.614460; 0.788507;, - -0.097659;-0.424055; 0.900327;, - 0.119266;-0.304575; 0.944975;, - -0.346324;-0.642415; 0.683615;, - -0.549638;-0.549638; 0.629078;, - -0.556780;-0.759056; 0.337352;, - -0.398297;-0.842677; 0.362194;, - -0.440291; 0.578478;-0.686605;, - -0.227607; 0.490890;-0.840938;, - -0.099948; 0.656667;-0.747490;, - -0.011994; 0.818934;-0.573717;, - -0.209815; 0.834223;-0.509903;, - 0.269417;-0.947325; 0.172979;, - 0.014740;-0.990051; 0.139897;, - -0.025330;-0.933653; 0.357250;, - 0.215369;-0.885342; 0.412000;, - 0.496719; 0.844630; 0.199622;, - 0.509018; 0.785119; 0.352702;, - 0.278481; 0.856777; 0.433973;, - 0.231941; 0.925779; 0.298502;, - 0.228645; 0.971557; 0.061495;, - 0.474502; 0.879421; 0.037477;, - 0.897763;-0.000580; 0.440443;, - 0.984313;-0.003204; 0.176244;, - 0.970275;-0.215552; 0.109867;, - 0.865596;-0.453780; 0.211615;, - 0.874325;-0.293466; 0.386517;, - 0.686514; 0.503464; 0.524583;, - 0.686514; 0.503464; 0.524583;, - 0.604022; 0.327555; 0.726524;, - 0.604022; 0.327555; 0.726524;, - 0.155675;-0.771447;-0.616932;, - 0.116214;-0.540422;-0.833308;, - 0.529252;-0.437300;-0.727042;, - 0.611011;-0.589099;-0.528764;, - 0.506607;-0.799860;-0.321757;, - 0.277383;-0.903623;-0.326273;, - 0.290567;-0.953581;-0.078829;, - 0.520218;-0.851436;-0.066225;, - 0.089145; 0.724723; 0.683218;, - -0.153905; 0.652394; 0.742058;, - -0.230781; 0.800897; 0.552477;, - 0.011414; 0.857295; 0.514634;, - -0.269417; 0.947356;-0.172948;, - -0.498398; 0.844966;-0.193823;, - -0.442579; 0.780938;-0.440657;, - -0.215369; 0.885342;-0.412000;, - -0.642170;-0.309397;-0.701315;, - -0.649159; 0.001343;-0.760613;, - -0.424787; 0.044252;-0.904172;, - -0.620045; 0.041566;-0.783441;, - -0.486740;-0.286905;-0.825068;, - -0.716941; 0.695334; 0.049409;, - -0.872555; 0.487655; 0.028748;, - -0.849055; 0.489669;-0.198126;, - -0.695791; 0.689108;-0.202368;, - 0.518784;-0.185797;-0.834437;, - 0.450942;-0.221778;-0.864528;, - 0.473678;-0.446944;-0.758843;, - 0.536241;-0.647664;-0.541215;, - 0.611011;-0.589099;-0.528764;, - 0.529252;-0.437300;-0.727042;, - -0.798730;-0.119968; 0.589587;, - -0.707419;-0.267190; 0.654286;, - -0.616871;-0.428266; 0.660298;, - -0.755394;-0.485458; 0.440077;, - -0.875393;-0.269753; 0.401105;, - -0.960356;-0.131748;-0.245552;, - -0.890133;-0.361858;-0.276955;, - -0.755577;-0.199957;-0.623768;, - -0.821680;-0.010834;-0.569811;, - -0.608112; 0.435652; 0.663594;, - 0.066439; 0.556993; 0.827845;, - 0.077395; 0.260598; 0.962310;, - -0.523606; 0.211737; 0.825220;, - -0.306467;-0.838282; 0.450911;, - -0.548509;-0.702292; 0.453749;, - -0.471603;-0.577136; 0.666677;, - -0.246590;-0.731407; 0.635762;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015931;-0.000031;, - 0.409619;-0.894955; 0.176672;, - 0.457595; 0.837489;-0.298654;, - 0.031495; 0.745018;-0.666250;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - -0.948088; 0.308847; 0.075594;, - -0.980193; 0.174963; 0.092532;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - 0.999847;-0.015900; 0.000000;, - -0.557237; 0.191229;-0.808008;, - -0.428419;-0.075838;-0.900357;, - -0.428419;-0.075838;-0.900357;, - -0.557237; 0.191229;-0.808008;, - -0.755974; 0.570360;-0.321177;, - -0.808740; 0.583422;-0.074404;, - -0.808740; 0.583422;-0.074404;, - -0.808740; 0.583422;-0.074404;, - -0.808740; 0.583422;-0.074404;, - -0.808740; 0.583422;-0.074404;, - -0.808740; 0.583422;-0.074404;, - -0.784112; 0.580248; 0.220099;, - -0.904599; 0.406232; 0.128941;, - -0.889981; 0.403607;-0.212073;, - -0.337718;-0.915098; 0.220191;, - -0.347545;-0.937346;-0.023164;, - -0.590075;-0.806360;-0.039613;, - -0.588488;-0.779839; 0.213294;, - -0.977203;-0.200751; 0.068819;, - -0.969329;-0.241859; 0.043001;, - -0.797388; 0.574419;-0.184820;, - -0.179083; 0.913572;-0.365062;, - -0.675558; 0.448500;-0.585162;, - -0.931211;-0.174688;-0.319773;, - -0.974487;-0.224189;-0.008637;, - -0.974487;-0.224189;-0.008637;, - -0.980163;-0.197546; 0.014649;, - -0.988800;-0.053621; 0.139042;, - -0.959319;-0.003479; 0.282235;, - -0.993896; 0.106571;-0.028352;, - -0.988067; 0.153752;-0.004456;, - -0.970641; 0.183142; 0.155828;, - -0.966735; 0.107974; 0.231788;, - -0.975890;-0.041627; 0.214179;, - -0.969085;-0.127537; 0.211158;, - -0.535722; 0.829127;-0.159673;, - -0.959899; 0.252510; 0.121677;, - -0.959136; 0.174841; 0.222419;, - -0.662130; 0.561113; 0.496689;, - -0.622730; 0.750145; 0.222419;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.064028; 0.411420;-0.909177;, - 0.031495; 0.745018;-0.666250;, - -0.346141; 0.925748;-0.152196;, - -0.988037;-0.092990;-0.122868;, - -0.845607;-0.392956;-0.361217;, - -0.873226;-0.250313;-0.418043;, - -0.869686;-0.057344;-0.490219;, - -0.866970; 0.017823;-0.498001;, - -0.863582; 0.179205;-0.471267;, - -0.861812; 0.309366;-0.401868;, - -0.862331; 0.416395;-0.287973;, - -0.832209; 0.554216;-0.016266;, - -0.845851; 0.513565; 0.144047;, - -0.948088; 0.308847; 0.075594;, - 0.064028; 0.411420;-0.909177;, - -0.776727; 0.589709; 0.221076;, - -0.685751; 0.704764; 0.181616;, - -0.765282; 0.578295; 0.282601;, - -0.776727; 0.589709; 0.221076;, - -0.998932;-0.016877;-0.042329;, - -0.998962;-0.016572;-0.042268;, - -0.991211; 0.117588;-0.060213;, - 0.194250;-0.980926; 0.002411;, - -0.999847; 0.016449;-0.000061;, - 0.769341; 0.583148; 0.260750;, - 0.591723; 0.638905; 0.491531;, - 0.509018; 0.785119; 0.352702;, - 0.496719; 0.844630; 0.199622;, - 0.718253; 0.686270; 0.114414;, - -0.559282;-0.358470; 0.747429;, - -0.999847; 0.015961; 0.000000;, - 0.849117;-0.394910;-0.350749;, - -0.546403;-0.479537; 0.686605;, - -0.991211; 0.117588;-0.060213;, - -0.722983;-0.680380;-0.119755;, - -0.920347; 0.363842;-0.143223;, - 0.997528; 0.070162; 0.003571;, - 0.194250;-0.980926; 0.002411;, - 0.580309;-0.796777;-0.168401;, - 0.005158;-0.994934;-0.100284;, - 0.024476;-0.988830; 0.147008;, - 0.599292;-0.798059; 0.062685;, - 0.078372; 0.974761;-0.208930;, - 0.337718; 0.915098;-0.220191;, - 0.347545; 0.937346; 0.023164;, - 0.303598; 0.915555; 0.263649;, - 0.057039; 0.973662; 0.220679;, - -0.946013;-0.323557;-0.017914;, - -0.999817; 0.017701; 0.000000;, - 0.411267;-0.911466; 0.007202;, - -0.622181;-0.782830; 0.006867;, - 0.520218;-0.851436;-0.066225;, - 0.290567;-0.953581;-0.078829;, - 0.269417;-0.947356; 0.172979;, - 0.498398;-0.844997; 0.193823;, - -0.553178;-0.832331;-0.034211;, - -0.583819;-0.793664; 0.170812;, - 0.024476;-0.988830; 0.147008;, - 0.005158;-0.994934;-0.100284;, - 0.359478;-0.805902;-0.470382;, - 0.444655;-0.713584;-0.541337;, - 0.517319;-0.609272;-0.600940;, - 0.494644;-0.573809;-0.652699;, - 0.348552;-0.491653;-0.797967;, - 0.214179;-0.659688;-0.720328;, - 0.089053;-0.819605;-0.565935;, - 0.282907;-0.821802;-0.494552;, - -0.778375; 0.001770;-0.627766;, - -0.643086; 0.202338;-0.738548;, - -0.724967; 0.331004;-0.604022;, - -0.804895; 0.426252;-0.412763;, - -0.915311; 0.190954;-0.354534;, - -0.861415; 0.118107;-0.493942;, - 0.125034;-0.183447; 0.975036;, - 0.116611;-0.498886; 0.858760;, - 0.253029;-0.489303; 0.834559;, - 0.210974;-0.165410; 0.963378;, - -0.950713;-0.184423;-0.249153;, - -0.638722;-0.341594;-0.689413;, - -0.858425;-0.237648;-0.454482;, - 0.953795; 0.054231; 0.295480;, - 0.932066; 0.326273; 0.157414;, - 0.943571; 0.329691;-0.030274;, - 0.991546; 0.058565;-0.115604;, - 0.994476; 0.005829; 0.104556;, - 0.722068;-0.086734; 0.686331;, - -0.368755;-0.518998; 0.771111;, - -0.103488;-0.530320; 0.841426;, - 0.966704;-0.254952;-0.020966;, - 0.862362;-0.505417;-0.029237;, - 0.865596;-0.453780; 0.211615;, - 0.970275;-0.215552; 0.109867;, - -0.651479;-0.240425;-0.719535;, - -0.736259; 0.048769;-0.674886;, - -0.668264; 0.344646;-0.659261;, - -0.976226; 0.092654;-0.195807;, - -0.970946;-0.076693;-0.226630;, - 0.695791;-0.689108; 0.202399;, - 0.498398;-0.844997; 0.193823;, - 0.442579;-0.780938; 0.440657;, - 0.641743;-0.627094; 0.441420;, - -0.886288;-0.408673;-0.217780;, - -0.772576;-0.355937;-0.525712;, - -0.852412; 0.000000;-0.522843;, - -0.977966; 0.000000;-0.208686;, - 0.740898;-0.290628;-0.605457;, - 0.609638;-0.125523;-0.782647;, - 0.473312;-0.303385;-0.826960;, - 0.348552;-0.491653;-0.797967;, - 0.494644;-0.573809;-0.652699;, - -0.362377;-0.755943; 0.545122;, - -0.547380;-0.631764; 0.548814;, - 0.133824;-0.570879; 0.810022;, - -0.362377;-0.755943; 0.545122;, - 0.133824;-0.570879; 0.810022;, - 0.174230;-0.658559; 0.732047;, - 0.215369; 0.903531; 0.370434;, - 0.233100; 0.968017; 0.092441;, - 0.636860; 0.765557; 0.091098;, - 0.595752; 0.715171; 0.365459;, - -0.940245; 0.080752; 0.330729;, - -0.587970; 0.225776; 0.776696;, - -0.662130; 0.561113; 0.496689;, - -0.959136; 0.174841; 0.222419;, - -0.535722; 0.829127;-0.159673;, - -0.504166; 0.786645;-0.356243;, - -0.591968; 0.581164;-0.558367;, - -0.973144; 0.220588;-0.065401;, - -0.959899; 0.252510; 0.121677;, - -0.240394;-0.411695;-0.879025;, - -0.441054;-0.244484;-0.863521;, - -0.590930;-0.412305;-0.693350;, - -0.373882;-0.578417;-0.724967;, - 0.154210;-0.558733; 0.814844;, - 0.185369;-0.776360; 0.602405;, - -0.185369;-0.776360; 0.602374;, - -0.154210;-0.558733; 0.814844;, - 0.112888;-0.228797;-0.966887;, - -0.082247;-0.224189;-0.971038;, - -0.151738;-0.555071;-0.817805;, - 0.151738;-0.555071;-0.817805;, - -0.509445;-0.528886; 0.678732;, - -0.546403;-0.479537; 0.686605;, - -0.489853;-0.553301; 0.673696;, - -0.307108; 0.439375; 0.844142;, - -0.232856; 0.055971; 0.970885;, - -0.435499; 0.036561; 0.899441;, - -0.578722; 0.339000; 0.741691;, - -0.828944;-0.558946;-0.019898;, - -0.689810;-0.723655;-0.020783;, - 0.999847;-0.015931;-0.000031;, - -0.526658;-0.850002;-0.007324;, - -0.877957;-0.478683;-0.004181;, - -0.328684; 0.165807;-0.929746;, - -0.527512; 0.007599;-0.849483;, - -0.410627;-0.182867;-0.893246;, - -0.197790;-0.044679;-0.979217;, - -0.405805; 0.042940;-0.912931;, - -0.614734; 0.044801;-0.787439;, - -0.629353; 0.324686;-0.705985;, - -0.502976; 0.346416;-0.791803;, - -0.590594; 0.050935;-0.805322;, - -0.511399;-0.780725;-0.359020;, - -0.744194;-0.630909;-0.219245;, - -0.717521;-0.691671;-0.081851;, - -0.486587;-0.855220;-0.178350;, - 0.196661;-0.170171; 0.965575;, - 0.654622;-0.214545; 0.724845;, - 0.133824;-0.570879; 0.810022;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.782464;-0.593829; 0.187262;, - -0.631581;-0.764641; 0.127903;, - -0.623707;-0.749565;-0.221595;, - -0.886288;-0.408673;-0.217780;, - -0.902097;-0.412458; 0.126774;, - -0.776879;-0.589618; 0.220893;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - -0.793023;-0.601733;-0.094638;, - 0.633473;-0.255074; 0.730491;, - 0.440291;-0.578478; 0.686605;, - 0.227607;-0.490890; 0.840938;, - 0.353008;-0.304300; 0.884732;, - 0.498520;-0.130528; 0.856960;, - -0.940245; 0.080752; 0.330729;, - -0.935087;-0.048189; 0.351115;, - -0.524033;-0.255776; 0.812372;, - -0.481643;-0.030183; 0.875820;, - -0.587970; 0.225776; 0.776696;, - -0.025361; 0.614460;-0.788507;, - -0.246345; 0.501206;-0.829493;, - -0.119266; 0.304575;-0.944975;, - 0.097659; 0.424055;-0.900327;, - -0.939726;-0.185492; 0.287149;, - -0.565600;-0.558702; 0.606555;, - -0.587848;-0.700522; 0.404492;, - -0.583819;-0.793664; 0.170812;, - -0.943327;-0.290506; 0.160314;, - 0.688284;-0.499710; 0.525834;, - 0.678762;-0.291604; 0.673940;, - 0.854274;-0.171941; 0.490524;, - 0.861873;-0.369152; 0.347606;, - 0.097659; 0.424055;-0.900327;, - -0.119266; 0.304575;-0.944975;, - 0.015900; 0.087191;-0.996063;, - 0.228584; 0.213538;-0.949797;, - 0.119266;-0.304575; 0.944975;, - -0.097659;-0.424055; 0.900327;, - -0.228553;-0.213538; 0.949797;, - -0.015870;-0.087191; 0.996063;, - -0.976897;-0.180853;-0.113742;, - -0.968505;-0.189428;-0.161443;, - -0.798120; 0.527238; 0.291482;, - -0.179540; 0.885464; 0.428571;, - -0.670980; 0.738182;-0.069460;, - -0.929960; 0.130894;-0.343516;, - -0.980132;-0.121189;-0.156957;, - -0.980132;-0.121189;-0.156957;, - -0.984222;-0.123600;-0.126438;, - -0.990081;-0.133854; 0.042177;, - -0.962523;-0.206275; 0.175970;, - -0.994018; 0.097812; 0.048097;, - -0.988739; 0.111850; 0.099155;, - -0.973357; 0.012879; 0.228919;, - -0.969939;-0.093875; 0.224403;, - -0.978118;-0.181402; 0.101718;, - -0.970824;-0.236976; 0.036195;, - -0.645619;-0.731010;-0.220740;, - -0.539781;-0.798639;-0.265999;, - -0.623402;-0.596362;-0.505631;, - -0.723808;-0.439863;-0.531571;, - -0.780023;-0.475570;-0.406629;, - -0.780023;-0.475570;-0.406629;, - -0.816858;-0.501144;-0.285592;, - -0.721183;-0.672597;-0.165716;, - -0.645619;-0.731010;-0.220740;, - -0.428419;-0.075838;-0.900357;, - -0.276406;-0.311075;-0.909268;, - -0.276406;-0.311075;-0.909268;, - -0.428419;-0.075838;-0.900357;, - 0.070681; 0.000000;-0.997497;, - -0.068758; 0.227241;-0.971404;, - -0.288919; 0.084841;-0.953551;, - -0.154424;-0.134892;-0.978729;, - 0.082461; 0.635914;-0.767296;, - -0.024018; 0.642811;-0.765618;, - -0.004334; 0.814203;-0.580523;, - 0.135502; 0.779504;-0.611530;, - -0.234504; 0.909024;-0.344462;, - -0.466445; 0.845119;-0.261025;, - -0.567614; 0.652608;-0.501846;, - -0.440291; 0.578478;-0.686605;, - -0.209815; 0.834223;-0.509903;, - -0.263680; 0.848933;-0.457930;, - 0.095828; 0.726951; 0.679952;, - -0.153905; 0.652394; 0.742058;, - -0.230781; 0.800897; 0.552507;, - 0.011414; 0.857295; 0.514634;, - 0.355022; 0.796350;-0.489639;, - 0.265023; 0.950346;-0.162938;, - 0.029878; 0.976165;-0.214820;, - 0.161779; 0.811853;-0.560961;, - 0.729545; 0.458083; 0.507797;, - 0.715079; 0.634419; 0.293466;, - 0.865200; 0.475875; 0.157842;, - 0.890652; 0.303385; 0.338633;, - -0.337718;-0.915098; 0.220191;, - -0.078372;-0.974761; 0.208930;, - -0.057039;-0.973662;-0.220679;, - -0.303598;-0.915555;-0.263649;, - -0.347545;-0.937346;-0.023164;, - -0.298257;-0.349956;-0.887997;, - -0.504379;-0.435591;-0.745537;, - -0.394391;-0.634358;-0.664815;, - -0.173833;-0.578661;-0.796777;, - -0.524583; 0.623890; 0.579241;, - -0.587939; 0.715018; 0.378185;, - -0.216102; 0.908170; 0.358440;, - -0.185369; 0.776360; 0.602374;, - 0.974914;-0.169591;-0.143925;, - 0.958098;-0.110569;-0.264138;, - 0.924497;-0.053407;-0.377392;, - 0.895718;-0.093814;-0.434584;, - 0.813471;-0.265755;-0.517289;, - 0.888119;-0.432905;-0.154271;, - 0.956847;-0.258339;-0.132786;, - 0.088473; 0.214087; 0.972777;, - 0.240394; 0.411695; 0.879025;, - 0.441054; 0.244484; 0.863521;, - 0.295083; 0.052767; 0.954009;, - 0.528764; 0.243843; 0.812952;, - 0.379620; 0.451277; 0.807581;, - 0.514145; 0.616230; 0.596545;, - 0.733818; 0.337718; 0.589435;, - 0.544084; 0.130833;-0.828730;, - 0.358440;-0.002686;-0.933531;, - 0.478408;-0.209967;-0.852657;, - 0.657949;-0.051027;-0.751305;, - -0.641743; 0.627094;-0.441420;, - -0.804895; 0.426252;-0.412763;, - -0.724967; 0.331004;-0.604022;, - -0.558489; 0.513565;-0.651357;, - 0.572741; 0.448378;-0.686209;, - 0.593310; 0.303629;-0.745476;, - 0.752892; 0.074862;-0.653829;, - 0.806543; 0.190619;-0.559557;, - -0.283151;-0.809107;-0.514878;, - -0.084689;-0.811121;-0.578692;, - -0.157842;-0.640553;-0.751488;, - -0.270180;-0.463454;-0.843898;, - -0.489914;-0.532731;-0.690023;, - 0.149998;-0.136113;-0.979247;, - -0.067934;-0.260933;-0.962951;, - 0.052004;-0.468215;-0.882046;, - 0.273873;-0.350200;-0.895718;, - 0.680990; 0.411023;-0.606006;, - 0.834010; 0.195532;-0.515885;, - 0.923154; 0.353099;-0.151921;, - 0.791314; 0.581164;-0.189795;, - 0.748375; 0.512711;-0.420728;, - 0.224586; 0.213843;-0.950682;, - 0.425794; 0.052644;-0.903256;, - 0.556993; 0.243751;-0.793908;, - 0.361431; 0.410901;-0.836940;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.657155;-0.542680;-0.523087;, - 0.458480;-0.693747;-0.555376;, - 0.506607;-0.799860;-0.321757;, - 0.703757;-0.645405;-0.296854;, - 0.227302; 0.970580; 0.079073;, - 0.473403; 0.874233; 0.107517;, - 0.507492; 0.806818; 0.302438;, - 0.270241; 0.866390; 0.419874;, - 0.239296; 0.924345; 0.297128;, - 0.653493; 0.193060; 0.731864;, - 0.507920; 0.080233; 0.857631;, - 0.378491; 0.266091; 0.886502;, - 0.270180; 0.463454; 0.843898;, - 0.489914; 0.532731; 0.690023;, - 0.029969;-0.993408;-0.110416;, - 0.015748;-0.951048;-0.308542;, - -0.027741;-0.858516;-0.512009;, - -0.265145;-0.866939;-0.421979;, - -0.224006;-0.967620;-0.116245;, - 0.995544; 0.025422;-0.090640;, - 0.963591;-0.224311;-0.145268;, - 0.955809;-0.233192; 0.178838;, - 0.988556; 0.023041; 0.149022;, - 0.924131; 0.124241;-0.361217;, - 0.822352; 0.208808;-0.529221;, - 0.822352; 0.208808;-0.529221;, - 0.806543; 0.190619;-0.559557;, - 0.752892; 0.074862;-0.653829;, - 0.694571;-0.157018;-0.702048;, - 0.733696;-0.299264;-0.610004;, - 0.831996;-0.201331;-0.516923;, - 0.831996;-0.201331;-0.516923;, - 0.831996;-0.201331;-0.516923;, - 0.891354;-0.286966;-0.350871;, - 0.937925;-0.085177;-0.336131;, - -0.959868;-0.152806; 0.235084;, - -0.139348; 0.368053; 0.919279;, - 0.196661;-0.170171; 0.965575;, - -0.551775;-0.487777; 0.676443;, - 0.861080;-0.468673; 0.197058;, - 0.695791;-0.689108; 0.202368;, - 0.641743;-0.627094; 0.441420;, - 0.808161;-0.421094; 0.411756;, - -0.036805; 0.997406; 0.061556;, - -0.290567; 0.953581; 0.078829;, - -0.269417; 0.947325;-0.172979;, - -0.023499; 0.989685;-0.141179;, - -0.729820; 0.681845;-0.049074;, - -0.515915; 0.855922;-0.034639;, - -0.516831; 0.827815; 0.218116;, - -0.736534; 0.648122; 0.193487;, - 0.224586; 0.213843;-0.950682;, - 0.007691; 0.360607;-0.932676;, - -0.141514; 0.154271;-0.977813;, - 0.070681; 0.000000;-0.997497;, - 0.585681; 0.810327;-0.017121;, - 0.561205; 0.812891; 0.155644;, - 0.024689; 0.949248; 0.313486;, - 0.000702; 0.999725; 0.022279;, - -0.624897;-0.403088;-0.668569;, - -0.645619;-0.513474;-0.565203;, - -0.645619;-0.513474;-0.565203;, - -0.688345;-0.605762;-0.398968;, - -0.559160;-0.713187;-0.422712;, - -0.423902;-0.791345;-0.440474;, - -0.376629;-0.604175;-0.702200;, - -0.448988;-0.541276;-0.710898;, - 0.099948;-0.656667; 0.747490;, - -0.141057;-0.550371; 0.822901;, - -0.007691;-0.360607; 0.932676;, - 0.227607;-0.490890; 0.840938;, - 0.802515; 0.271706; 0.531114;, - 0.687368; 0.149449; 0.710746;, - 0.496689; 0.461531; 0.735008;, - 0.646260; 0.520463; 0.558031;, - -0.763939;-0.227302; 0.603870;, - -0.895718; 0.093814; 0.434584;, - -0.813471; 0.265755; 0.517289;, - -0.714042; 0.111301; 0.691183;, - -0.618610;-0.075655; 0.782037;, - -0.353008; 0.304300;-0.884732;, - -0.498520; 0.130528;-0.856960;, - -0.295083;-0.052767;-0.954009;, - -0.141514; 0.154271;-0.977813;, - -0.597980;-0.285531;-0.748894;, - -0.760674;-0.341502;-0.552019;, - -0.662252;-0.534532;-0.525040;, - -0.484481;-0.476913;-0.733329;, - -0.478378; 0.209998; 0.852657;, - -0.652547; 0.056551; 0.755608;, - -0.749596; 0.216712; 0.625355;, - -0.580279; 0.394147; 0.712638;, - 0.904294;-0.417371; 0.089450;, - 0.996033; 0.000000; 0.088717;, - 0.977966; 0.000000;-0.208686;, - 0.887692;-0.409558;-0.210334;, - 0.097659; 0.424055;-0.900327;, - -0.119266; 0.304575;-0.944975;, - 0.015900; 0.087191;-0.996063;, - 0.228584; 0.213538;-0.949797;, - -0.373882;-0.578417;-0.724967;, - -0.154729;-0.732047;-0.663411;, - -0.023652;-0.550645;-0.834376;, - -0.240394;-0.411695;-0.879025;, - 0.075533; 0.067354;-0.994842;, - 0.082736;-0.253029;-0.963897;, - -0.050356;-0.260140;-0.964232;, - -0.054384; 0.069979;-0.996063;, - 0.265023; 0.950346;-0.162938;, - 0.196844; 0.957549; 0.210486;, - 0.008606; 0.976592; 0.214789;, - 0.029878; 0.976165;-0.214820;, - 0.273537; 0.614093;-0.740287;, - 0.686514; 0.503464; 0.524583;, - 0.686514; 0.503464; 0.524583;, - 0.273537; 0.614093;-0.740287;, - -0.645772; 0.651875;-0.397473;, - -0.630024; 0.428419;-0.647664;, - -0.630024; 0.428419;-0.647664;, - -0.645772; 0.651875;-0.397473;, - 0.996033; 0.000000; 0.088717;, - 0.904294; 0.417371; 0.089450;, - 0.887692; 0.409558;-0.210334;, - 0.977966; 0.000000;-0.208686;, - 0.473403; 0.874233; 0.107517;, - 0.227302; 0.970580; 0.079073;, - 0.245827; 0.962249;-0.116733;, - 0.486282; 0.873470;-0.023103;, - 0.422926;-0.904691;-0.051302;, - 0.487075;-0.846370;-0.215339;, - 0.591388;-0.711783;-0.378918;, - 0.444655;-0.713584;-0.541337;, - 0.359478;-0.805902;-0.470382;, - 0.282907;-0.821802;-0.494552;, - 0.179449;-0.969176;-0.168706;, - -0.843440; 0.526078;-0.108676;, - -0.862331; 0.416395;-0.287973;, - -0.356883; 0.714866;-0.601306;, - 0.240852; 0.969787;-0.038026;, - -0.623707;-0.749565;-0.221595;, - -0.226112;-0.949553;-0.217200;, - -0.195624;-0.820093;-0.537706;, - -0.542009;-0.650258;-0.532304;, - 0.196844; 0.957549; 0.210486;, - 0.282144; 0.931730; 0.228523;, - 0.314432; 0.882443; 0.349864;, - 0.338115; 0.819300; 0.462996;, - 0.283151; 0.809107; 0.514878;, - 0.084689; 0.811121; 0.578692;, - 0.008606; 0.976592; 0.214789;, - 0.358409;-0.002686;-0.933531;, - 0.149998;-0.136143;-0.979247;, - 0.273873;-0.350169;-0.895718;, - 0.478378;-0.209967;-0.852657;, - 0.000000; 0.889492;-0.456893;, - 0.000000; 0.962279;-0.272042;, - -0.285531; 0.922147;-0.260842;, - -0.306070; 0.845576;-0.437330;, - -0.442579; 0.780938;-0.440657;, - -0.641774; 0.627094;-0.441389;, - -0.558519; 0.513565;-0.651357;, - -0.356609; 0.663686;-0.657491;, - 0.685018; 0.609455;-0.399030;, - 0.809351; 0.462844;-0.361522;, - 0.830897; 0.523362;-0.188879;, - 0.592669; 0.772301;-0.228584;, - 0.574725; 0.706809;-0.412397;, - 0.591723; 0.638905; 0.491531;, - 0.769341; 0.583148; 0.260750;, - 0.858638; 0.434462; 0.271950;, - 0.787774; 0.310587; 0.531877;, - 0.679159; 0.474593; 0.559862;, - 0.870327; 0.465835;-0.159673;, - 0.861873; 0.290628;-0.415540;, - 0.939360; 0.146397;-0.310007;, - 0.931639; 0.355846;-0.073489;, - -0.285531;-0.922147;-0.260842;, - 0.000000;-0.962279;-0.272011;, - 0.000000;-0.889492;-0.456893;, - -0.306070;-0.845576;-0.437330;, - -0.703757; 0.645405; 0.296854;, - -0.855708; 0.437849; 0.275674;, - -0.870174; 0.492691; 0.004059;, - -0.716941; 0.695334; 0.049409;, - -0.204962; 0.226997; 0.952055;, - 0.024171; 0.353984; 0.934904;, - 0.154424; 0.134892; 0.978729;, - -0.070681; 0.000000; 0.997497;, - -0.849605;-0.504196;-0.154637;, - -0.750511;-0.454543;-0.479629;, - -0.539994;-0.642384;-0.543779;, - -0.539994;-0.642384;-0.543779;, - -0.845607;-0.392956;-0.361217;, - -0.792810;-0.587970;-0.160283;, - -0.185369;-0.776360; 0.602374;, - 0.185369;-0.776360; 0.602405;, - 0.215369;-0.903531; 0.370434;, - -0.215369;-0.903531; 0.370434;, - -0.328684; 0.165838;-0.929746;, - -0.508042;-0.006623;-0.861263;, - -0.398846;-0.173650;-0.900388;, - -0.197760;-0.044679;-0.979217;, - -0.802393;-0.378765; 0.461135;, - -0.857479;-0.485458; 0.170324;, - -0.928556;-0.359691; 0.091372;, - -0.933897;-0.160955; 0.319163;, - -0.015870;-0.087191; 0.996063;, - -0.228553;-0.213538; 0.949797;, - -0.358409; 0.002716; 0.933531;, - -0.149998; 0.136143; 0.979247;, - 0.157842; 0.640553; 0.751488;, - -0.091739; 0.555620; 0.826350;, - -0.180700; 0.746544; 0.640278;, - 0.084689; 0.811121; 0.578692;, - -0.198004; 0.954497;-0.222877;, - -0.234504; 0.909024;-0.344462;, - -0.263680; 0.848933;-0.457930;, - -0.209815; 0.834223;-0.509903;, - -0.011994; 0.818934;-0.573717;, - 0.078372; 0.974761;-0.208930;, - -0.110782; 0.972503;-0.204688;, - -0.224586;-0.213843; 0.950682;, - -0.361431;-0.410901; 0.836940;, - -0.556993;-0.243751; 0.793908;, - -0.425794;-0.052644; 0.903256;, - 0.047121; 0.802332; 0.594989;, - 0.545762; 0.653310; 0.524674;, - 0.590869; 0.506912; 0.627583;, - 0.066439; 0.556993; 0.827845;, - 0.831355;-0.068392; 0.551500;, - 0.762230;-0.172643; 0.623798;, - 0.678793;-0.269509; 0.683035;, - 0.633473;-0.255074; 0.730491;, - 0.498520;-0.130528; 0.856960;, - 0.626118; 0.042940; 0.778527;, - 0.755577; 0.199957; 0.623768;, - 0.821680; 0.010834; 0.569811;, - 0.033845; 0.934263;-0.354900;, - 0.279366; 0.920133;-0.274300;, - 0.245827; 0.962249;-0.116733;, - 0.227302; 0.970580; 0.079073;, - -0.036805; 0.997406; 0.061556;, - -0.023499; 0.989685;-0.141179;, - 0.180700;-0.746544;-0.640278;, - -0.084689;-0.811121;-0.578692;, - -0.008606;-0.976592;-0.214789;, - 0.255013;-0.940184;-0.225776;, - 0.230781;-0.859493;-0.456038;, - 0.011414; 0.857295; 0.514634;, - -0.230781; 0.800897; 0.552507;, - -0.277383; 0.903623; 0.326273;, - -0.022340; 0.942595; 0.333171;, - -0.817286; 0.087497;-0.569506;, - -0.833979; 0.009339;-0.551683;, - -0.774438;-0.100162;-0.624653;, - -0.699942;-0.203711;-0.684500;, - -0.653493;-0.193060;-0.731864;, - -0.507920;-0.080233;-0.857631;, - -0.619587; 0.103397;-0.778069;, - -0.734550; 0.270363;-0.622333;, - 0.348552;-0.491653;-0.797967;, - 0.123875;-0.360454;-0.924497;, - -0.023652;-0.550645;-0.834376;, - 0.214179;-0.659688;-0.720328;, - 0.856288;-0.450148;-0.253182;, - 0.703757;-0.645405;-0.296854;, - 0.716941;-0.695334;-0.049409;, - 0.872555;-0.487655;-0.028748;, - -0.590930;-0.412305;-0.693350;, - -0.755577;-0.199957;-0.623768;, - -0.890133;-0.361858;-0.276955;, - -0.758110;-0.581988;-0.294137;, - -0.683584;-0.513962;-0.518174;, - 0.772576; 0.355937;-0.525712;, - 0.524552; 0.241737;-0.816309;, - 0.596088; 0.007599;-0.802850;, - 0.853389; 0.006378;-0.521195;, - -0.230781; 0.800897; 0.552507;, - -0.458480; 0.693747; 0.555376;, - -0.506607; 0.799860; 0.321757;, - -0.277383; 0.903623; 0.326273;, - -0.520249; 0.851436; 0.066225;, - -0.716941; 0.695334; 0.049409;, - -0.695791; 0.689108;-0.202368;, - -0.498398; 0.844997;-0.193823;, - 0.498398;-0.844997; 0.193823;, - 0.269417;-0.947325; 0.172979;, - 0.215369;-0.885342; 0.412000;, - 0.442579;-0.780969; 0.440657;, - -0.232856; 0.055971; 0.970885;, - -0.387921;-0.003510; 0.921659;, - -0.401410;-0.289499; 0.868923;, - -0.330149;-0.273476; 0.903439;, - -0.435499; 0.036561; 0.899441;, - 0.155675;-0.771447;-0.616932;, - 0.611011;-0.589099;-0.528764;, - 0.621326;-0.725425;-0.296060;, - 0.186132;-0.912168;-0.365062;, - -0.088473;-0.214087;-0.972777;, - 0.123875;-0.360454;-0.924497;, - 0.277718;-0.154027;-0.948210;, - 0.070681; 0.000000;-0.997497;, - -0.849055; 0.489669;-0.198126;, - -0.870174; 0.492691; 0.004059;, - -0.969268; 0.245857;-0.003449;, - -0.951872; 0.233772;-0.198096;, - -0.915311; 0.190954;-0.354534;, - -0.804895; 0.426252;-0.412763;, - -0.870205; 0.020020; 0.492233;, - -0.798730;-0.119968; 0.589587;, - -0.875393;-0.269753; 0.401105;, - -0.966704;-0.112583; 0.229682;, - -0.928831; 0.122196; 0.349681;, - 0.048585; 0.935179;-0.350749;, - -0.215369; 0.885342;-0.412000;, - -0.132115; 0.771813;-0.621937;, - 0.114414; 0.832881;-0.541429;, - 0.679159; 0.474593; 0.559862;, - 0.486557; 0.467483; 0.738029;, - 0.397565; 0.627735; 0.669179;, - 0.591723; 0.638905; 0.491531;, - 0.277718;-0.154027;-0.948210;, - 0.425794; 0.052644;-0.903256;, - 0.224586; 0.213843;-0.950682;, - 0.070681; 0.000000;-0.997497;, - 0.353008;-0.304300; 0.884732;, - 0.227607;-0.490890; 0.840938;, - -0.007691;-0.360607; 0.932676;, - 0.141514;-0.154271; 0.977813;, - -0.695791; 0.689108;-0.202368;, - -0.849055; 0.489669;-0.198126;, - -0.804895; 0.426252;-0.412763;, - -0.641743; 0.627094;-0.441420;, - -0.738212; 0.656026; 0.156926;, - -0.444777; 0.887539; 0.120090;, - -0.435438; 0.828150; 0.352855;, - -0.396771; 0.721244; 0.567736;, - -0.677633; 0.568102; 0.466933;, - -0.224586;-0.213843; 0.950682;, - -0.425794;-0.052644; 0.903256;, - -0.277718; 0.154027; 0.948210;, - -0.070681; 0.000000; 0.997497;, - 0.068758;-0.227241; 0.971404;, - 0.202521;-0.436964; 0.876370;, - -0.025666;-0.555742; 0.830927;, - -0.155705;-0.353771; 0.922239;, - -0.506516;-0.674459; 0.537126;, - -0.642079;-0.665609; 0.380322;, - -0.772942;-0.466659; 0.429792;, - -0.862423;-0.303964; 0.404736;, - -0.763939;-0.227302; 0.603870;, - -0.543870;-0.531541; 0.649312;, - -0.569597;-0.564501; 0.597339;, - -0.845119; 0.060152;-0.531144;, - -0.841090;-0.108463;-0.529832;, - -0.475753;-0.182226;-0.860469;, - -0.310831; 0.045381;-0.949370;, - 0.953795; 0.054231; 0.295480;, - 0.909635;-0.186010; 0.371410;, - 0.783471;-0.006165; 0.621387;, - 0.878567; 0.147923; 0.454054;, - 0.473678;-0.446944;-0.758843;, - 0.450942;-0.221778;-0.864528;, - -0.084567;-0.267739;-0.959746;, - -0.065401;-0.562853;-0.823939;, - 0.572741; 0.448378;-0.686209;, - 0.685018; 0.609455;-0.399030;, - 0.574725; 0.706809;-0.412397;, - 0.431562; 0.789453;-0.436445;, - 0.423444; 0.545244;-0.723441;, - 0.088748;-0.746971; 0.658895;, - 0.320658;-0.613880; 0.721305;, - 0.415448;-0.746757; 0.519333;, - 0.164495;-0.860164; 0.482711;, - 0.067904; 0.260933; 0.962951;, - -0.149998; 0.136143; 0.979247;, - -0.273873; 0.350200; 0.895718;, - -0.052034; 0.468215; 0.882046;, - -0.092196;-0.240394; 0.966277;, - -0.154210;-0.558733; 0.814844;, - -0.379620;-0.451277; 0.807581;, - -0.528764;-0.243843; 0.812952;, - -0.236244;-0.106784; 0.965789;, - 0.641743;-0.627094; 0.441420;, - 0.442579;-0.780969; 0.440657;, - 0.356609;-0.663717; 0.657460;, - 0.558519;-0.513565; 0.651357;, - -0.511399;-0.780725;-0.359020;, - -0.591815;-0.625080;-0.508896;, - -0.730552;-0.414533;-0.542589;, - -0.819880;-0.498398;-0.281686;, - -0.744194;-0.630909;-0.219245;, - -0.699942; 0.574694; 0.423994;, - -0.483993; 0.745506; 0.458144;, - -0.418592; 0.612690; 0.670339;, - -0.641926; 0.466231; 0.608692;, - 0.704459;-0.589099; 0.395795;, - 0.722587;-0.672048; 0.161809;, - 0.627888;-0.760888; 0.163610;, - -0.271676;-0.941588; 0.198859;, - -0.329081;-0.853481; 0.404004;, - -0.321451;-0.779809; 0.537126;, - 0.164495;-0.860164; 0.482711;, - 0.415448;-0.746757; 0.519333;, - 0.481613;-0.828578; 0.285409;, - 0.220801;-0.940519; 0.258065;, - 0.891354;-0.286966;-0.350871;, - 0.831996;-0.201331;-0.516923;, - 0.831996;-0.201331;-0.516923;, - 0.831996;-0.201331;-0.516923;, - 0.733696;-0.299264;-0.610004;, - 0.616108;-0.409589;-0.672750;, - 0.632405;-0.522660;-0.571703;, - 0.632405;-0.522660;-0.571703;, - 0.683126;-0.609638;-0.402020;, - 0.823237;-0.444655;-0.352855;, - 0.862850;-0.367229;-0.347270;, - 0.862850;-0.367229;-0.347270;, - 0.290567;-0.953581;-0.078829;, - 0.042604;-0.995331;-0.086428;, - 0.014740;-0.990051; 0.139897;, - 0.269417;-0.947325; 0.172979;, - 0.442579;-0.780938; 0.440657;, - 0.215369;-0.885342; 0.412000;, - 0.132115;-0.771813; 0.621937;, - 0.356609;-0.663717; 0.657460;, - 0.977966; 0.000000;-0.208686;, - 0.887692; 0.409558;-0.210334;, - 0.772576; 0.355937;-0.525712;, - 0.853389; 0.006378;-0.521195;, - -0.662252;-0.534532;-0.525040;, - -0.760674;-0.341502;-0.552019;, - -0.837825;-0.217902;-0.500534;, - -0.908444;-0.121189;-0.399976;, - -0.898587;-0.376141;-0.225867;, - -0.801080;-0.534349;-0.269631;, - 0.008606; 0.976592; 0.214789;, - -0.255013; 0.940184; 0.225776;, - -0.262703; 0.964690;-0.017457;, - -0.220801; 0.940519;-0.258065;, - 0.029878; 0.976165;-0.214820;, - 0.595752; 0.715171; 0.365459;, - 0.636860; 0.765557; 0.091098;, - 0.904294; 0.417371; 0.089450;, - 0.847438; 0.390637; 0.359508;, - -0.088473;-0.214087;-0.972777;, - -0.295083;-0.052767;-0.954009;, - -0.441054;-0.244484;-0.863521;, - -0.240394;-0.411695;-0.879025;, - -0.448042; 0.886502;-0.115421;, - -0.226997; 0.967437;-0.111728;, - -0.227454; 0.973693; 0.012757;, - -0.449202; 0.891263; 0.061678;, - -0.356883; 0.714866;-0.601306;, - -0.516587; 0.500229;-0.694876;, - -0.521897; 0.384930;-0.761193;, - -0.744255; 0.010285;-0.667776;, - -0.929960; 0.130894;-0.343516;, - -0.670980; 0.738182;-0.069460;, - 0.000000;-0.698386;-0.715690;, - 0.000000;-0.889492;-0.456893;, - 0.306070;-0.845576;-0.437330;, - 0.423902;-0.791345;-0.440474;, - 0.376629;-0.604175;-0.702200;, - 0.164800;-0.638630;-0.751610;, - 0.153813;-0.685080;-0.711997;, - -0.849605;-0.504196;-0.154637;, - -0.984222;-0.123600;-0.126438;, - -0.980132;-0.121189;-0.156957;, - -0.980132;-0.121189;-0.156957;, - -0.929960; 0.130894;-0.343516;, - -0.744255; 0.010285;-0.667776;, - -0.759972;-0.288552;-0.582385;, - -0.750511;-0.454543;-0.479629;, - -0.526780;-0.836940; 0.148259;, - -0.224982;-0.970183; 0.089785;, - -0.210242;-0.887753; 0.409436;, - -0.523637;-0.739586; 0.422803;, - 0.580279;-0.394147;-0.712638;, - 0.379101;-0.540391;-0.751152;, - 0.458480;-0.693747;-0.555376;, - 0.657155;-0.542650;-0.523087;, - 0.067904; 0.260933; 0.962951;, - -0.149998; 0.136113; 0.979247;, - -0.273873; 0.350200; 0.895718;, - -0.052004; 0.468215; 0.882046;, - 0.847438; 0.390637; 0.359508;, - 0.904294; 0.417371; 0.089450;, - 0.996033; 0.000000; 0.088717;, - 0.934111; 0.000000; 0.356914;, - -0.849055; 0.489669;-0.198126;, - -0.872555; 0.487655; 0.028748;, - -0.970489; 0.241005; 0.005585;, - -0.957701; 0.239051;-0.160131;, - -0.908231; 0.189276;-0.373119;, - -0.809259; 0.420270;-0.410382;, - -0.378491;-0.266091;-0.886502;, - -0.154424;-0.134892;-0.978729;, - -0.288919; 0.084841;-0.953551;, - -0.507920;-0.080233;-0.857631;, - 0.119266;-0.304575; 0.944975;, - -0.097659;-0.424055; 0.900327;, - -0.228584;-0.213538; 0.949797;, - -0.015900;-0.087191; 0.996063;, - -0.067904;-0.260933;-0.962951;, - -0.298257;-0.349956;-0.887997;, - -0.173833;-0.578661;-0.796777;, - 0.052034;-0.468215;-0.882077;, - 0.549089; 0.689932; 0.471633;, - 0.336558; 0.735557; 0.587939;, - 0.270241; 0.866390; 0.419874;, - 0.507492; 0.806818; 0.302438;, - 0.837428;-0.511368;-0.192724;, - 0.823237;-0.444655;-0.352855;, - 0.683126;-0.609638;-0.402020;, - 0.559160;-0.713187;-0.422712;, - 0.592669;-0.772301;-0.228584;, - 0.580279;-0.394147;-0.712638;, - 0.379101;-0.540391;-0.751152;, - 0.458480;-0.693747;-0.555376;, - 0.657155;-0.542680;-0.523087;, - -0.368755;-0.518998; 0.771111;, - 0.722068;-0.086734; 0.686331;, - -0.201880;-0.221381; 0.954039;, - -0.559282;-0.358470; 0.747429;, - 0.439497; 0.332011;-0.834590;, - 0.601489; 0.440931;-0.666158;, - 0.425031; 0.720573;-0.547777;, - 0.218055; 0.693655;-0.686483;, - 0.320414; 0.521165;-0.790979;, - -0.854274; 0.441389;-0.274514;, - -0.703177; 0.648976;-0.290414;, - -0.729820; 0.681845;-0.049074;, - -0.736534; 0.648122; 0.193487;, - -0.888119; 0.432905; 0.154271;, - 0.703177;-0.648976; 0.290414;, - 0.729820;-0.681845; 0.049074;, - 0.515915;-0.855922; 0.034639;, - 0.481613;-0.828578; 0.285409;, - 0.440291;-0.578478; 0.686605;, - 0.209815;-0.834223; 0.509903;, - 0.011994;-0.818934; 0.573717;, - 0.099948;-0.656667; 0.747490;, - 0.227607;-0.490890; 0.840938;, - -0.451735; 0.356212;-0.817927;, - -0.643452; 0.171880;-0.745903;, - -0.527512; 0.007599;-0.849483;, - -0.328684; 0.165807;-0.929746;, - 0.904294;-0.417371; 0.089450;, - 0.887692;-0.409558;-0.210334;, - 0.624836;-0.750786;-0.214087;, - 0.636860;-0.765557; 0.091067;, - 0.209815;-0.834223; 0.509903;, - 0.263680;-0.848933; 0.457930;, - 0.234504;-0.909024; 0.344462;, - 0.198035;-0.954497; 0.222877;, - 0.110782;-0.972503; 0.204688;, - -0.078372;-0.974761; 0.208930;, - 0.011994;-0.818934; 0.573717;, - -0.029908;-0.846553;-0.531419;, - -0.278878;-0.843287;-0.459395;, - -0.225318;-0.942686;-0.246010;, - 0.028321;-0.957854;-0.285806;, - 0.154210; 0.558733; 0.814844;, - 0.185369; 0.776360; 0.602374;, - 0.514145; 0.616230; 0.596545;, - 0.379620; 0.451277; 0.807581;, - 0.236244; 0.106784; 0.965789;, - 0.092196; 0.240394; 0.966277;, - 0.154210; 0.558733; 0.814844;, - 0.379620; 0.451277; 0.807581;, - 0.528764; 0.243843; 0.812952;, - -0.278878;-0.843287;-0.459395;, - -0.394391;-0.634358;-0.664815;, - -0.591815;-0.625080;-0.508896;, - -0.511399;-0.780725;-0.359020;, - 0.088473; 0.214087; 0.972777;, - -0.123875; 0.360454; 0.924497;, - 0.023652; 0.550645; 0.834376;, - 0.240394; 0.411695; 0.879025;, - 0.231941; 0.925779; 0.298502;, - -0.022340; 0.942595; 0.333140;, - -0.029206; 0.997589; 0.062899;, - 0.228645; 0.971557; 0.061495;, - 0.791314; 0.581164;-0.189795;, - 0.787622; 0.613849; 0.052919;, - 0.590075; 0.806360; 0.039613;, - 0.588488; 0.779839;-0.213294;, - 0.052034;-0.468215;-0.882077;, - -0.173833;-0.578661;-0.796777;, - -0.094882;-0.725852;-0.681234;, - 0.153905;-0.652394;-0.742058;, - 0.273873;-0.350169;-0.895718;, - 0.052034;-0.468215;-0.882077;, - 0.153905;-0.652394;-0.742058;, - 0.379101;-0.540391;-0.751152;, - 0.000000;-0.889492;-0.456893;, - 0.000000;-0.698386;-0.715690;, - -0.153813;-0.685080;-0.711997;, - -0.164800;-0.638630;-0.751610;, - -0.376629;-0.604175;-0.702200;, - -0.423902;-0.791345;-0.440474;, - -0.306070;-0.845576;-0.437330;, - 0.202521;-0.436964; 0.876370;, - 0.320658;-0.613880; 0.721305;, - 0.088748;-0.746971; 0.658895;, - -0.025666;-0.555742; 0.830927;, - -0.943785;-0.102023;-0.314371;, - -0.988464;-0.038545;-0.146306;, - -0.979003;-0.121586; 0.163518;, - -0.963286;-0.243660; 0.112522;, - -0.963286;-0.243660; 0.112522;, - -0.940947;-0.334147; 0.053926;, - -0.927244;-0.332591;-0.171941;, - -0.942137;-0.234016;-0.239967;, - -0.942137;-0.234016;-0.239967;, - -0.215369;-0.903531; 0.370434;, - -0.581225;-0.711356; 0.395062;, - -0.522507;-0.623310; 0.581744;, - -0.185369;-0.776360; 0.602374;, - -0.917478; 0.318491;-0.238289;, - -0.930845; 0.187628;-0.313517;, - -0.820276; 0.311686;-0.479537;, - -0.681570; 0.505844;-0.528703;, - -0.734428; 0.545610;-0.403546;, - -0.734428; 0.545610;-0.403546;, - -0.768853; 0.573626;-0.282388;, - -0.893887; 0.414869;-0.169713;, - -0.917478; 0.318491;-0.238289;, - -0.007691;-0.360607; 0.932676;, - -0.141057;-0.550371; 0.822901;, - -0.361431;-0.410901; 0.836940;, - -0.224586;-0.213843; 0.950682;, - 0.410169; 0.181097; 0.893826;, - 0.197790; 0.044649; 0.979217;, - 0.067904; 0.260933; 0.962951;, - 0.301248; 0.378430; 0.875210;, - -0.338298;-0.734855;-0.587786;, - -0.553392;-0.703635;-0.445631;, - -0.507523;-0.787011;-0.350688;, - -0.265145;-0.866939;-0.421979;, - 0.973449; 0.081973;-0.213660;, - 0.911039;-0.114383;-0.396069;, - 0.963591;-0.224311;-0.145268;, - 0.995544; 0.025422;-0.090640;, - 0.524552; 0.241737;-0.816309;, - 0.376232; 0.447279;-0.811365;, - 0.151738; 0.555071;-0.817805;, - 0.082247; 0.224189;-0.971038;, - 0.243446; 0.092563;-0.965484;, - -0.683523; 0.606555;-0.405988;, - -0.594989; 0.446944;-0.667989;, - -0.423963; 0.545183;-0.723197;, - -0.431562; 0.789453;-0.436445;, - -0.574725; 0.706809;-0.412397;, - -0.356609; 0.663686;-0.657491;, - -0.558519; 0.513565;-0.651357;, - -0.451735; 0.356212;-0.817927;, - -0.246345; 0.501206;-0.829493;, - -0.688345;-0.605762;-0.398968;, - -0.832545;-0.433180;-0.345225;, - -0.837062;-0.511246;-0.194678;, - -0.592669;-0.772301;-0.228584;, - -0.559160;-0.713187;-0.422712;, - -0.780023;-0.475570;-0.406629;, - -0.723808;-0.439863;-0.531571;, - -0.844661;-0.234413;-0.481185;, - -0.943785;-0.102023;-0.314371;, - -0.942137;-0.234016;-0.239967;, - -0.942137;-0.234016;-0.239967;, - -0.927244;-0.332591;-0.171941;, - -0.816858;-0.501144;-0.285592;, - -0.780023;-0.475570;-0.406629;, - 0.246590; 0.731407;-0.635762;, - 0.141057; 0.550371;-0.822901;, - 0.361431; 0.410901;-0.836940;, - 0.471603; 0.577136;-0.666677;, - -0.634907; 0.575976;-0.514878;, - -0.551622; 0.467605;-0.690664;, - -0.320658; 0.613880;-0.721305;, - -0.415448; 0.746757;-0.519333;, - -0.641926; 0.466231; 0.608692;, - -0.418592; 0.612690; 0.670339;, - -0.323710; 0.436232; 0.839564;, - -0.533341; 0.287362; 0.795556;, - -0.024171;-0.353984;-0.934904;, - 0.091739;-0.555620;-0.826350;, - 0.323710;-0.436232;-0.839564;, - 0.204962;-0.226997;-0.952055;, - 0.451704;-0.356243; 0.817927;, - 0.246345;-0.501206; 0.829493;, - 0.119266;-0.304575; 0.944975;, - 0.328684;-0.165807; 0.929746;, - 0.744652;-0.223029;-0.629048;, - 0.580279;-0.394147;-0.712638;, - 0.657155;-0.542650;-0.523087;, - 0.818751;-0.350291;-0.454848;, - -0.760674;-0.341502;-0.552019;, - -0.597980;-0.285531;-0.748894;, - -0.776025;-0.006836;-0.630634;, - -0.837825;-0.217902;-0.500534;, - -0.070681; 0.000000; 0.997497;, - -0.277718; 0.154027; 0.948210;, - -0.123875; 0.360454; 0.924497;, - 0.088473; 0.214087; 0.972777;, - -0.179449; 0.969176; 0.168706;, - 0.057039; 0.973662; 0.220679;, - -0.089053; 0.819605; 0.565935;, - -0.282907; 0.821802; 0.494552;, - 0.204962;-0.226997;-0.952055;, - 0.323710;-0.436232;-0.839564;, - 0.533341;-0.287362;-0.795556;, - 0.419691;-0.084658;-0.903684;, - -0.239051;-0.801477; 0.548112;, - -0.824519;-0.468184; 0.317728;, - -0.749901;-0.658345; 0.064730;, - -0.530442;-0.818537; 0.220405;, - -0.462325;-0.882473;-0.086520;, - -0.224006;-0.967620;-0.116245;, - -0.265145;-0.866939;-0.421979;, - -0.507523;-0.787011;-0.350688;, - -0.481918;-0.844325;-0.234107;, - 0.981079;-0.127323; 0.145787;, - 0.930845;-0.187628; 0.313517;, - 0.820276;-0.311686; 0.479537;, - 0.762230;-0.172643; 0.623798;, - 0.831355;-0.068392; 0.551500;, - 0.821680; 0.010834; 0.569811;, - 0.960356; 0.131748; 0.245552;, - -0.277383; 0.903623; 0.326273;, - -0.506607; 0.799860; 0.321757;, - -0.520249; 0.851436; 0.066225;, - -0.290567; 0.953581; 0.078829;, - 0.590869; 0.506912; 0.627583;, - 0.592029; 0.265023; 0.761071;, - 0.077395; 0.260598; 0.962310;, - 0.066439; 0.556993; 0.827845;, - 0.928465; 0.173772;-0.328166;, - 0.872890;-0.014069;-0.487686;, - 0.926603;-0.129002;-0.353130;, - 0.962767;-0.196966;-0.185034;, - 0.991546; 0.058565;-0.115604;, - -0.348552; 0.491653; 0.797967;, - -0.123875; 0.360454; 0.924497;, - -0.277718; 0.154027; 0.948210;, - -0.473312; 0.303385; 0.826960;, - 0.520218;-0.851436;-0.066225;, - 0.290567;-0.953581;-0.078829;, - 0.269417;-0.947325; 0.172979;, - 0.498398;-0.844997; 0.193823;, - -0.080905;-0.723045;-0.685995;, - -0.180792;-0.559038;-0.809168;, - -0.406232;-0.612720;-0.677847;, - -0.338298;-0.734855;-0.587786;, - -0.265145;-0.866939;-0.421979;, - -0.027741;-0.858516;-0.512009;, - 0.450789;-0.555376; 0.698782;, - -0.091800;-0.651204; 0.753319;, - 0.027833;-0.680837; 0.731864;, - -0.290567; 0.953581; 0.078829;, - -0.520249; 0.851436; 0.066225;, - -0.498398; 0.844997;-0.193823;, - -0.269417; 0.947325;-0.172979;, - -0.587848;-0.700522; 0.404492;, - -0.565600;-0.558702; 0.606555;, - 0.066500;-0.728263; 0.682028;, - 0.046754;-0.908597; 0.414991;, - -0.773888;-0.619831;-0.129856;, - -0.867153;-0.497482;-0.022217;, - -0.681356;-0.688131; 0.249367;, - -0.530442;-0.818537; 0.220405;, - -0.749901;-0.658345; 0.064730;, - -0.758446;-0.639058;-0.127689;, - -0.704978; 0.101413;-0.701895;, - -0.590594; 0.050935;-0.805322;, - -0.502976; 0.346416;-0.791803;, - -0.603992; 0.386944;-0.696707;, - -0.025330;-0.933653; 0.357250;, - 0.014740;-0.990051; 0.139897;, - -0.246742;-0.964263; 0.096255;, - -0.290170;-0.917753; 0.271035;, - -0.340892;-0.836207; 0.429518;, - -0.108707;-0.832148; 0.543779;, - 0.969268; 0.179662;-0.167943;, - 0.887875; 0.289743;-0.357341;, - 0.924131; 0.124241;-0.361217;, - 0.937925;-0.085177;-0.336131;, - 0.968627;-0.179968;-0.171209;, - 0.967467; 0.189154;-0.167913;, - 0.969268; 0.179662;-0.167943;, - 0.217536;-0.967467; 0.129093;, - 0.239509;-0.895566; 0.374889;, - 0.082430;-0.904355; 0.418683;, - 0.060701;-0.987335; 0.146489;, - -0.358409; 0.002716; 0.933531;, - -0.550035;-0.135411; 0.824061;, - -0.652547; 0.056551; 0.755608;, - -0.478378; 0.209998; 0.852657;, - -0.729179; 0.306009;-0.612079;, - -0.769616; 0.502731; 0.393567;, - 0.246773; 0.809046; 0.533403;, - 0.160924; 0.738151; 0.655110;, - -0.642170; 0.482131; 0.595904;, - -0.642170; 0.482131; 0.595904;, - -0.825220; 0.545610; 0.145878;, - -0.197790;-0.044679;-0.979217;, - -0.410627;-0.182867;-0.893246;, - -0.281472;-0.369182;-0.885678;, - -0.067934;-0.260933;-0.962951;, - -0.587939; 0.715018; 0.378185;, - -0.685751; 0.704764; 0.181616;, - -0.438490; 0.875668; 0.202277;, - -0.449202; 0.891263; 0.061678;, - -0.227454; 0.973693; 0.012757;, - -0.218513; 0.964385; 0.148869;, - -0.216102; 0.908170; 0.358440;, - 0.692557; 0.279733; 0.664876;, - 0.693655; 0.048647; 0.718619;, - -0.325449; 0.026856; 0.945158;, - -0.276101; 0.351634; 0.894467;, - -0.224586;-0.213843; 0.950682;, - -0.070681; 0.000000; 0.997497;, - 0.141514;-0.154271; 0.977813;, - -0.007691;-0.360607; 0.932676;, - 0.911039;-0.114383;-0.396069;, - 0.814814;-0.334941;-0.473128;, - 0.865352;-0.446303;-0.227851;, - 0.963591;-0.224311;-0.145268;, - 0.132115;-0.771813; 0.621937;, - -0.115299;-0.833735; 0.539964;, - -0.210120;-0.691855; 0.690756;, - 0.025361;-0.614460; 0.788507;, - 0.498520;-0.130528; 0.856960;, - 0.295083; 0.052767; 0.954009;, - 0.441054; 0.244484; 0.863521;, - 0.626118; 0.042940; 0.778527;, - -0.592669; 0.772301;-0.228584;, - -0.574725; 0.706809;-0.412397;, - -0.431562; 0.789453;-0.436445;, - -0.306070; 0.845576;-0.437330;, - -0.285531; 0.922147;-0.260842;, - -0.968596;-0.013916; 0.248146;, - -0.967956; 0.037538; 0.248238;, - -0.905118; 0.088992; 0.415723;, - -0.877560;-0.050203; 0.476791;, - -0.326365;-0.113102; 0.938444;, - -0.325449; 0.026856; 0.945158;, - 0.693655; 0.048647; 0.718619;, - 0.678762;-0.291604; 0.673940;, - -0.222694;-0.429212; 0.875301;, - 0.471145;-0.054872;-0.880306;, - 0.377209;-0.283731;-0.881558;, - 0.370647;-0.331187;-0.867702;, - 0.332743;-0.423139;-0.842738;, - 0.443129;-0.413099;-0.795556;, - 0.448988;-0.541276;-0.710898;, - 0.616108;-0.409589;-0.672750;, - 0.733696;-0.299264;-0.610004;, - 0.694571;-0.157018;-0.702048;, - 0.609302;-0.148045;-0.778954;, - 0.609302;-0.148045;-0.778954;, - -0.348552; 0.491653; 0.797967;, - -0.214179; 0.659688; 0.720328;, - 0.023652; 0.550645; 0.834376;, - -0.123875; 0.360454; 0.924497;, - -0.303598;-0.915555;-0.263649;, - -0.240303;-0.839167;-0.487869;, - -0.480178;-0.703604;-0.523759;, - -0.553423;-0.780663;-0.290262;, - -0.641926; 0.466231; 0.608692;, - -0.813471; 0.265755; 0.517289;, - -0.888119; 0.432905; 0.154271;, - -0.736534; 0.648122; 0.193487;, - -0.699942; 0.574694; 0.423994;, - -0.816858;-0.501144;-0.285592;, - -0.927244;-0.332591;-0.171941;, - -0.940947;-0.334147; 0.053926;, - -0.845149;-0.505478; 0.173681;, - -0.735801;-0.674490; 0.060121;, - -0.721183;-0.672597;-0.165716;, - 0.078707;-0.503281; 0.860500;, - -0.532884;-0.386639; 0.752647;, - -0.475539;-0.128239; 0.870266;, - 0.084353;-0.160741; 0.983367;, - 0.082736;-0.253029;-0.963897;, - 0.075533; 0.067354;-0.994842;, - 0.467696; 0.058199;-0.881954;, - 0.518784;-0.185797;-0.834437;, - -0.153813;-0.685080;-0.711997;, - 0.000000;-0.698386;-0.715690;, - 0.153813;-0.685080;-0.711997;, - 0.164800;-0.638630;-0.751610;, - 0.192236;-0.466506;-0.863338;, - 0.008972;-0.486984;-0.873348;, - -0.176275;-0.466933;-0.866512;, - -0.164800;-0.638630;-0.751610;, - -0.226112;-0.949553;-0.217200;, - 0.226112;-0.949553;-0.217200;, - 0.195624;-0.820093;-0.537706;, - -0.195624;-0.820093;-0.537706;, - 0.722587;-0.672048; 0.161809;, - 0.704459;-0.589099; 0.395795;, - 0.688284;-0.499710; 0.525834;, - 0.861873;-0.369152; 0.347606;, - 0.856197;-0.492996; 0.154332;, - 0.276894;-0.120029; 0.953368;, - 0.276894;-0.120029; 0.953368;, - 0.043031;-0.360057; 0.931913;, - 0.043031;-0.360057; 0.931913;, - -0.024018; 0.642811;-0.765618;, - 0.082461; 0.635914;-0.767296;, - 0.084140; 0.411359;-0.907559;, - -0.042726; 0.396985;-0.916807;, - 0.625141;-0.136021; 0.768548;, - 0.581408;-0.149144; 0.799799;, - 0.592029; 0.265023; 0.761071;, - 0.628346; 0.243324; 0.738884;, - 0.932066; 0.326273; 0.157414;, - 0.858638; 0.434462; 0.271950;, - 0.769341; 0.583148; 0.260750;, - 0.718253; 0.686270; 0.114414;, - 0.756310; 0.648640;-0.084933;, - 0.866604; 0.473739;-0.156621;, - 0.943571; 0.329691;-0.030274;, - -0.504166; 0.786645;-0.356243;, - -0.535722; 0.829127;-0.159673;, - -0.279519; 0.946562;-0.160741;, - -0.314676; 0.843379;-0.435469;, - 0.723838; 0.631275; 0.278451;, - 0.715812; 0.488174; 0.499252;, - -0.227973; 0.671346; 0.705161;, - -0.272927; 0.877346; 0.394604;, - 0.763939; 0.227302;-0.603870;, - 0.543870; 0.531541;-0.649312;, - 0.391095; 0.463637;-0.795007;, - 0.498642; 0.265236;-0.825220;, - 0.618610; 0.075655;-0.782037;, - 0.729820;-0.681845; 0.049074;, - 0.736534;-0.648122;-0.193487;, - 0.516831;-0.827815;-0.218116;, - 0.515915;-0.855922; 0.034639;, - -0.210120;-0.691855; 0.690756;, - -0.115299;-0.833735; 0.539964;, - -0.349895;-0.825495; 0.442793;, - -0.515305;-0.580859; 0.630055;, - -0.327738;-0.523881; 0.786187;, - 0.197790; 0.044649; 0.979217;, - -0.015900;-0.087191; 0.996063;, - -0.149998; 0.136113; 0.979247;, - 0.067904; 0.260933; 0.962951;, - 0.963591;-0.224311;-0.145268;, - 0.865352;-0.446303;-0.227851;, - 0.875546;-0.482253;-0.028230;, - 0.861080;-0.468673; 0.197058;, - 0.955809;-0.233192; 0.178838;, - -0.840785;-0.377728; 0.387738;, - -0.902097;-0.412458; 0.126774;, - -0.996033; 0.000000; 0.088717;, - -0.934111; 0.000000; 0.356914;, - -0.067934;-0.260933;-0.962951;, - -0.281472;-0.369182;-0.885678;, - -0.180792;-0.559038;-0.809168;, - 0.052004;-0.468215;-0.882046;, - -0.438856;-0.534745; 0.722098;, - -0.523637;-0.739586; 0.422803;, - -0.210242;-0.887753; 0.409436;, - -0.219703;-0.660665; 0.717795;, - -0.467330;-0.370952;-0.802454;, - -0.486740;-0.286905;-0.825068;, - -0.620045; 0.041566;-0.783441;, - -0.718009;-0.030427;-0.695334;, - -0.406232;-0.612720;-0.677847;, - -0.484481;-0.476913;-0.733329;, - -0.662252;-0.534532;-0.525040;, - -0.553392;-0.703635;-0.445631;, - -0.338298;-0.734855;-0.587786;, - -0.202521; 0.436964;-0.876370;, - -0.417249; 0.288186;-0.861843;, - -0.288919; 0.084841;-0.953551;, - -0.068758; 0.227241;-0.971404;, - -0.442579; 0.780969;-0.440657;, - -0.641743; 0.627094;-0.441420;, - -0.558489; 0.513565;-0.651357;, - -0.356609; 0.663717;-0.657460;, - 0.664144;-0.553514; 0.502487;, - 0.248054;-0.713645; 0.655080;, - 0.239509;-0.895566; 0.374889;, - 0.641713;-0.719535; 0.265389;, - 0.616871; 0.428266;-0.660298;, - 0.526536; 0.557085;-0.642170;, - 0.325297; 0.498062;-0.803797;, - 0.426710; 0.326334;-0.843440;, - 0.535051; 0.154759;-0.830500;, - 0.690786; 0.288247;-0.663076;, - 0.567614;-0.652608; 0.501846;, - 0.466445;-0.845119; 0.261025;, - 0.234504;-0.909024; 0.344462;, - 0.263680;-0.848933; 0.457930;, - 0.209815;-0.834223; 0.509903;, - 0.440291;-0.578478; 0.686605;, - -0.703757; 0.645375; 0.296854;, - -0.856288; 0.450148; 0.253182;, - -0.872555; 0.487655; 0.028748;, - -0.716941; 0.695334; 0.049409;, - -0.554277;-0.804437; 0.213599;, - -0.501785;-0.863735; 0.046022;, - -0.539781;-0.798639;-0.265999;, - -0.645619;-0.731010;-0.220740;, - -0.645619;-0.731010;-0.220740;, - -0.721183;-0.672597;-0.165716;, - -0.735801;-0.674490; 0.060121;, - -0.662374;-0.737419; 0.131993;, - -0.662374;-0.737419; 0.131993;, - 0.153905;-0.652394;-0.742058;, - -0.080905;-0.723045;-0.685995;, - -0.027741;-0.858516;-0.512009;, - 0.230750;-0.800897;-0.552507;, - -0.922544;-0.185888;-0.338084;, - -0.850368;-0.173620;-0.496689;, - -0.749474;-0.282601;-0.598621;, - -0.702506;-0.145665;-0.696585;, - -0.764977; 0.102481;-0.635823;, - -0.910092; 0.208258;-0.358226;, - 0.865352;-0.446303;-0.227851;, - 0.703757;-0.645405;-0.296854;, - 0.716941;-0.695334;-0.049409;, - 0.875546;-0.482253;-0.028230;, - 0.195196; 0.928343;-0.316324;, - 0.670553; 0.686819;-0.280374;, - 0.597552; 0.586718;-0.546464;, - 0.135502; 0.779504;-0.611530;, - -0.022340; 0.942595; 0.333140;, - -0.277383; 0.903623; 0.326273;, - -0.290567; 0.953581; 0.078829;, - -0.029206; 0.997589; 0.062899;, - 0.457411; 0.103000; 0.883236;, - 0.457411; 0.103000; 0.883236;, - 0.276894;-0.120029; 0.953368;, - 0.276894;-0.120029; 0.953368;, - -0.119266; 0.304575;-0.944975;, - -0.328684; 0.165807;-0.929746;, - -0.197790;-0.044679;-0.979217;, - 0.015900; 0.087191;-0.996063;, - -0.695791; 0.689108;-0.202368;, - -0.849055; 0.489669;-0.198126;, - -0.809259; 0.420270;-0.410382;, - -0.641774; 0.627094;-0.441389;, - -0.837062;-0.511246;-0.194678;, - -0.832545;-0.433180;-0.345225;, - -0.870846;-0.355052;-0.339915;, - -0.870846;-0.355052;-0.339915;, - -0.922544;-0.185888;-0.338084;, - -0.966918;-0.179815;-0.180792;, - 0.835231;-0.363353;-0.412671;, - 0.965270;-0.200598;-0.167333;, - 0.964202; 0.026490;-0.263710;, - 0.925687;-0.026704;-0.377300;, - 0.900632; 0.016449;-0.434248;, - 0.740898;-0.290628;-0.605457;, - -0.246590;-0.731407; 0.635762;, - 0.011994;-0.818934; 0.573717;, - -0.078372;-0.974761; 0.208930;, - -0.337718;-0.915098; 0.220191;, - -0.306467;-0.838282; 0.450911;, - -0.022340; 0.942595; 0.333140;, - 0.231941; 0.925779; 0.298502;, - 0.278481; 0.856777; 0.433973;, - 0.331492; 0.747856; 0.575121;, - 0.089145; 0.724723; 0.683218;, - 0.011414; 0.857295; 0.514634;, - 0.558519;-0.513565; 0.651357;, - 0.356609;-0.663717; 0.657460;, - 0.246345;-0.501206; 0.829493;, - 0.451704;-0.356243; 0.817927;, - 0.533769; 0.801874; 0.268471;, - 0.501785; 0.863735;-0.046022;, - 0.554277; 0.804437;-0.213569;, - 0.662343; 0.737449;-0.131993;, - 0.662343; 0.737449;-0.131993;, - 0.735801; 0.674520;-0.060121;, - 0.717704; 0.676931; 0.163091;, - 0.631977; 0.740806; 0.227485;, - 0.631977; 0.740806; 0.227485;, - 0.592669;-0.772301;-0.228584;, - 0.559160;-0.713187;-0.422712;, - 0.423902;-0.791345;-0.440474;, - 0.306070;-0.845576;-0.437330;, - 0.285531;-0.922147;-0.260842;, - -0.642170;-0.309397;-0.701315;, - -0.486740;-0.286905;-0.825068;, - -0.467330;-0.370952;-0.802454;, - -0.355022;-0.579608;-0.733451;, - -0.631855;-0.438734;-0.638905;, - 0.361431; 0.410901;-0.836940;, - 0.141057; 0.550371;-0.822901;, - 0.007691; 0.360607;-0.932676;, - 0.224586; 0.213843;-0.950682;, - 0.666005; 0.737144; 0.114078;, - 0.695761; 0.657765; 0.288522;, - 0.535173; 0.778283; 0.328349;, - 0.561205; 0.812891; 0.155644;, - 0.585681; 0.810327;-0.017121;, - 0.586688; 0.753533;-0.296579;, - 0.670553; 0.686819;-0.280374;, - 0.640370; 0.767571;-0.026399;, - -0.497848;-0.318674;-0.806574;, - -0.745628;-0.342204;-0.571734;, - -0.801386;-0.487625;-0.346324;, - -0.735557;-0.520188;-0.433943;, - 0.609638;-0.125523;-0.782647;, - 0.425794; 0.052644;-0.903256;, - 0.277718;-0.154027;-0.948210;, - 0.473312;-0.303385;-0.826960;, - 0.664144;-0.553514; 0.502487;, - 0.597613;-0.597674; 0.534410;, - 0.586077;-0.406110; 0.701102;, - 0.581408;-0.149144; 0.799799;, - 0.625141;-0.136021; 0.768548;, - 0.630696;-0.396496; 0.667043;, - 0.180700;-0.746544;-0.640278;, - 0.418592;-0.612690;-0.670339;, - 0.323710;-0.436232;-0.839564;, - 0.091739;-0.555620;-0.826350;, - 0.029969;-0.993408;-0.110416;, - -0.224006;-0.967620;-0.116245;, - -0.238716;-0.962920; 0.125645;, - 0.014374;-0.986175; 0.164892;, - 0.988556; 0.023041; 0.149022;, - 0.955809;-0.233192; 0.178838;, - 0.855434;-0.104831; 0.507157;, - 0.914640; 0.095889; 0.392651;, - 0.220801;-0.940519; 0.258065;, - 0.481613;-0.828578; 0.285409;, - 0.515915;-0.855922; 0.034639;, - 0.262703;-0.964690; 0.017457;, - -0.022340; 0.942595; 0.333171;, - -0.277383; 0.903623; 0.326273;, - -0.290567; 0.953581; 0.078829;, - -0.036805; 0.997406; 0.061556;, - -0.349895;-0.825495; 0.442793;, - -0.115299;-0.833735; 0.539964;, - -0.025330;-0.933622; 0.357280;, - 0.014374;-0.986175; 0.164892;, - -0.238716;-0.962920; 0.125645;, - -0.277047;-0.926420; 0.254891;, - 0.204962;-0.226997;-0.952055;, - 0.070681; 0.000000;-0.997497;, - -0.154424;-0.134892;-0.978729;, - -0.024171;-0.353984;-0.934904;, - 0.219214; 0.975646; 0.005615;, - 0.254158; 0.922666; 0.289956;, - 0.666005; 0.737144; 0.114078;, - 0.640370; 0.767571;-0.026399;, - -0.930692;-0.356700; 0.080721;, - -0.966704;-0.112583; 0.229682;, - -0.875393;-0.269753; 0.401105;, - -0.755394;-0.485458; 0.440077;, - -0.844142;-0.509415; 0.166875;, - 0.748375; 0.512711;-0.420728;, - 0.791314; 0.581164;-0.189795;, - 0.588488; 0.779839;-0.213294;, - 0.548509; 0.702292;-0.453749;, - -0.852412; 0.000000;-0.522843;, - -0.593921; 0.000000;-0.804498;, - -0.524552; 0.241737;-0.816309;, - -0.772698; 0.355998;-0.525529;, - 0.733818;-0.337718; 0.589435;, - 0.810053; 0.000000; 0.586322;, - 0.934111; 0.000000; 0.356914;, - 0.847438;-0.390637; 0.359508;, - -0.349895;-0.825495; 0.442793;, - -0.548570;-0.784814; 0.288247;, - -0.609973;-0.699606; 0.372082;, - -0.677450;-0.580218; 0.452010;, - -0.515305;-0.580859; 0.630055;, - -0.191168;-0.172674;-0.966216;, - -0.191168;-0.172674;-0.966216;, - -0.191168;-0.172674;-0.966216;, - -0.191168;-0.172674;-0.966216;, - 0.002960;-0.057588;-0.998321;, - 0.003754; 0.056154;-0.998413;, - -0.200812; 0.172155;-0.964354;, - -0.200812; 0.172155;-0.964354;, - -0.200812; 0.172155;-0.964354;, - -0.200812; 0.172155;-0.964354;, - -0.274026; 0.308237;-0.910977;, - -0.443464; 0.084536;-0.892270;, - -0.471145;-0.054872;-0.880337;, - -0.365246;-0.284707;-0.886288;, - -0.757408; 0.581317; 0.297220;, - -0.808283; 0.564989; 0.165654;, - -0.738212; 0.656026; 0.156926;, - -0.677633; 0.568102; 0.466933;, - -0.759423; 0.471694; 0.448012;, - -0.273873; 0.350200; 0.895718;, - -0.478408; 0.209998; 0.852626;, - -0.580279; 0.394147; 0.712638;, - -0.379101; 0.540391; 0.751152;, - -0.895718; 0.093814; 0.434584;, - -0.924497; 0.053407; 0.377392;, - -0.958098; 0.110569; 0.264138;, - -0.974914; 0.169622; 0.143925;, - -0.956847; 0.258339; 0.132786;, - -0.888119; 0.432905; 0.154271;, - -0.813471; 0.265755; 0.517289;, - -0.246590;-0.731407; 0.635762;, - -0.471603;-0.577136; 0.666677;, - -0.361431;-0.410901; 0.836940;, - -0.141057;-0.550371; 0.822901;, - 0.646260; 0.520463; 0.558031;, - 0.788659; 0.547899; 0.278848;, - 0.874630; 0.408643; 0.260781;, - 0.802515; 0.271706; 0.531114;, - 0.025361;-0.614460; 0.788507;, - -0.197119;-0.688772; 0.697653;, - -0.315470;-0.519303; 0.794214;, - -0.097659;-0.424055; 0.900327;, - -0.857479;-0.485458; 0.170324;, - -0.802393;-0.378765; 0.461135;, - -0.677450;-0.580218; 0.452010;, - -0.609973;-0.699606; 0.372082;, - -0.777520;-0.615436; 0.129093;, - 0.451735;-0.356243; 0.817927;, - 0.246345;-0.501236; 0.829493;, - 0.119266;-0.304575; 0.944975;, - 0.328684;-0.165807; 0.929746;, - -0.011994; 0.818934;-0.573717;, - 0.246590; 0.731407;-0.635762;, - 0.306467; 0.838282;-0.450911;, - 0.337718; 0.915098;-0.220191;, - 0.078372; 0.974761;-0.208930;, - -0.070681; 0.000000; 0.997497;, - -0.290567;-0.134678; 0.947295;, - -0.419691; 0.084658; 0.903684;, - -0.204962; 0.226997; 0.952055;, - 0.218055; 0.693655;-0.686483;, - -0.025361; 0.614460;-0.788507;, - 0.097659; 0.424055;-0.900327;, - 0.320414; 0.521165;-0.790979;, - -0.999481;-0.012818; 0.029084;, - -0.969268; 0.245857;-0.003449;, - -0.955870; 0.200476; 0.214698;, - -0.928831; 0.122196; 0.349681;, - -0.966704;-0.112583; 0.229682;, - -0.178808; 0.652333;-0.736503;, - -0.327982; 0.689474;-0.645741;, - -0.886929; 0.323038;-0.330088;, - -0.908811; 0.298196;-0.291696;, - 0.808161;-0.421094; 0.411756;, - 0.641743;-0.627094; 0.441420;, - 0.558519;-0.513565; 0.651357;, - 0.738670;-0.312143; 0.597400;, - -0.228553;-0.213538; 0.949797;, - -0.426679;-0.326334; 0.843440;, - -0.550035;-0.135411; 0.824061;, - -0.358409; 0.002716; 0.933531;, - -0.774438;-0.100162;-0.624653;, - -0.844661;-0.234413;-0.481185;, - -0.723808;-0.439863;-0.531571;, - -0.623402;-0.596362;-0.505631;, - -0.489914;-0.532731;-0.690023;, - -0.653493;-0.193060;-0.731864;, - -0.699942;-0.203711;-0.684500;, - 0.486282; 0.873470;-0.023103;, - 0.519913; 0.841609;-0.146062;, - 0.726676; 0.686880;-0.010285;, - 0.726981; 0.665761; 0.168004;, - 0.507492; 0.806818; 0.302438;, - 0.473403; 0.874233; 0.107517;, - -0.272195;-0.642445; 0.716330;, - -0.391095;-0.463637; 0.795007;, - -0.155705;-0.353771; 0.922239;, - -0.025666;-0.555742; 0.830927;, - -0.092196; 0.240394; 0.966277;, - -0.154210; 0.558733; 0.814844;, - 0.154210; 0.558733; 0.814844;, - 0.092196; 0.240394; 0.966277;, - -0.597980;-0.285531;-0.748894;, - -0.410627;-0.182867;-0.893246;, - -0.527512; 0.007599;-0.849483;, - -0.643452; 0.171880;-0.745903;, - -0.776025;-0.006836;-0.630634;, - 0.195624;-0.820093;-0.537706;, - 0.151738;-0.555071;-0.817805;, - -0.151738;-0.555071;-0.817805;, - -0.195624;-0.820093;-0.537706;, - 0.565203; 0.777947;-0.274392;, - 0.756310; 0.648640;-0.084933;, - 0.718253; 0.686270; 0.114414;, - 0.496719; 0.844630; 0.199622;, - 0.474502; 0.879421; 0.037477;, - 0.493149; 0.859401;-0.134922;, - -0.405805; 0.042940;-0.912931;, - -0.458113;-0.369213;-0.808557;, - -0.566332;-0.313089;-0.762352;, - -0.614734; 0.044801;-0.787439;, - -0.630024; 0.428419;-0.647664;, - -0.557237; 0.191229;-0.808008;, - -0.557237; 0.191229;-0.808008;, - -0.630024; 0.428419;-0.647664;, - -0.817652;-0.492080; 0.298746;, - -0.772942;-0.466659; 0.429792;, - -0.642079;-0.665609; 0.380322;, - -0.554277;-0.804437; 0.213599;, - -0.662374;-0.737419; 0.131993;, - -0.662374;-0.737419; 0.131993;, - -0.735801;-0.674490; 0.060121;, - -0.845149;-0.505478; 0.173681;, - -0.817652;-0.492080; 0.298746;, - 0.541765; 0.795801;-0.270394;, - 0.336253; 0.846644;-0.412427;, - 0.418195; 0.726493;-0.545213;, - 0.634541; 0.669759;-0.385693;, - -0.230781; 0.800897; 0.552477;, - -0.458480; 0.693747; 0.555376;, - -0.506638; 0.799829; 0.321757;, - -0.277383; 0.903623; 0.326273;, - 0.577899;-0.786920; 0.216193;, - 0.466445;-0.845119; 0.261025;, - 0.567614;-0.652608; 0.501846;, - 0.681600;-0.505844; 0.528703;, - 0.734428;-0.545610; 0.403546;, - 0.734428;-0.545610; 0.403546;, - 0.768883;-0.573626; 0.282388;, - 0.658376;-0.735130; 0.161504;, - 0.577899;-0.786920; 0.216193;, - 0.190252; 0.707053;-0.681051;, - -0.025361; 0.614460;-0.788507;, - 0.097659; 0.424055;-0.900327;, - 0.325297; 0.498062;-0.803797;, - 0.772576; 0.355937;-0.525712;, - 0.542009; 0.650258;-0.532304;, - 0.376232; 0.447279;-0.811365;, - 0.524552; 0.241737;-0.816309;, - -0.528764; 0.243843; 0.812952;, - -0.236244; 0.106784; 0.965789;, - -0.236244;-0.106784; 0.965789;, - -0.528764;-0.243843; 0.812952;, - -0.599475; 0.000000; 0.800378;, - -0.515305;-0.580859; 0.630055;, - -0.677450;-0.580218; 0.452010;, - -0.802393;-0.378765; 0.461135;, - -0.709098;-0.268715; 0.651845;, - -0.813471; 0.265755; 0.517289;, - -0.641926; 0.466231; 0.608692;, - -0.533341; 0.287362; 0.795556;, - -0.714042; 0.111301; 0.691183;, - -0.970489; 0.241005; 0.005585;, - -0.872555; 0.487655; 0.028748;, - -0.856288; 0.450148; 0.253182;, - -0.822871; 0.365490; 0.435041;, - -0.931669; 0.147160; 0.332102;, - -0.962767; 0.196966; 0.185034;, - 0.042604;-0.995331;-0.086428;, - 0.028321;-0.957854;-0.285806;, - -0.225318;-0.942686;-0.246010;, - -0.234993;-0.967864;-0.089328;, - -0.246742;-0.964263; 0.096255;, - 0.014740;-0.990051; 0.139897;, - -0.466445; 0.845119;-0.261025;, - -0.234504; 0.909024;-0.344462;, - -0.198004; 0.954497;-0.222877;, - -0.110782; 0.972503;-0.204688;, - -0.179449; 0.969176; 0.168706;, - -0.422926; 0.904691; 0.051302;, - -0.052034; 0.468215; 0.882046;, - -0.273873; 0.350200; 0.895718;, - -0.379101; 0.540391; 0.751122;, - -0.153905; 0.652394; 0.742058;, - -0.558489; 0.513565;-0.651357;, - -0.724967; 0.331004;-0.604022;, - -0.643086; 0.202338;-0.738548;, - -0.451735; 0.356243;-0.817927;, - -0.834010;-0.195532; 0.515885;, - -0.721305;-0.051637; 0.690664;, - -0.556993;-0.243751; 0.793908;, - -0.680990;-0.411023; 0.606006;, - 0.240303; 0.839167; 0.487869;, - 0.303598; 0.915555; 0.263649;, - 0.553423; 0.780663; 0.290231;, - 0.480178; 0.703604; 0.523759;, - 0.944731;-0.218268; 0.244484;, - 0.854274;-0.441389; 0.274514;, - 0.734550;-0.270363; 0.622333;, - 0.817286;-0.087497; 0.569506;, - -0.657155; 0.542680; 0.523087;, - -0.814142; 0.357280; 0.457686;, - -0.855708; 0.437849; 0.275674;, - -0.703757; 0.645405; 0.296854;, - 0.243446; 0.092563;-0.965484;, - 0.243171;-0.103885;-0.964385;, - 0.525101;-0.241707;-0.815973;, - 0.596088; 0.007599;-0.802850;, - 0.524552; 0.241737;-0.816309;, - -0.358440; 0.002686; 0.933531;, - -0.560259;-0.143345; 0.815790;, - -0.661733; 0.047182; 0.748222;, - -0.478408; 0.209998; 0.852626;, - 0.149998;-0.136143;-0.979247;, - -0.067904;-0.260933;-0.962951;, - 0.052034;-0.468215;-0.882077;, - 0.273873;-0.350169;-0.895718;, - 0.186224; 0.560747; 0.806726;, - -0.052034; 0.468215; 0.882046;, - -0.153905; 0.652394; 0.742058;, - 0.095828; 0.726951; 0.679952;, - -0.643086; 0.202338;-0.738548;, - -0.778375; 0.001770;-0.627766;, - -0.668630;-0.166753;-0.724631;, - -0.508042;-0.006623;-0.861263;, - 0.070681; 0.000000;-0.997497;, - -0.141514; 0.154271;-0.977813;, - -0.295083;-0.052767;-0.954009;, - -0.088473;-0.214087;-0.972777;, - 0.234504;-0.909024; 0.344462;, - 0.466445;-0.845119; 0.261025;, - 0.422926;-0.904691;-0.051302;, - 0.179449;-0.969176;-0.168706;, - 0.110782;-0.972503; 0.204688;, - 0.198035;-0.954497; 0.222877;, - 0.089145; 0.724723; 0.683218;, - 0.331492; 0.747856; 0.575121;, - 0.397565; 0.627735; 0.669179;, - 0.486557; 0.467483; 0.738029;, - 0.273324; 0.392315; 0.878262;, - 0.173009; 0.556566; 0.812555;, - -0.215369;-0.903531; 0.370434;, - -0.230567;-0.968627; 0.092441;, - -0.631581;-0.764641; 0.127903;, - -0.581225;-0.711356; 0.395062;, - -0.776025;-0.006836;-0.630634;, - -0.643452; 0.171880;-0.745903;, - -0.733543; 0.319315;-0.599933;, - -0.809259; 0.420270;-0.410382;, - -0.908231; 0.189276;-0.373119;, - 0.068758;-0.227241; 0.971404;, - -0.155705;-0.353771; 0.922239;, - -0.290567;-0.134678; 0.947295;, - -0.070681; 0.000000; 0.997497;, - -0.925443; 0.266152; 0.269570;, - -0.527543; 0.839198; 0.131809;, - -0.541429; 0.812433;-0.216193;, - -0.945799; 0.320353; 0.052614;, - 0.818751;-0.350291;-0.454848;, - 0.926603;-0.129002;-0.353130;, - 0.872890;-0.014069;-0.487686;, - 0.795465; 0.115085;-0.594958;, - 0.657949;-0.051027;-0.751305;, - 0.744652;-0.223029;-0.629048;, - 0.498642; 0.265236;-0.825220;, - 0.290567; 0.134678;-0.947295;, - 0.419691;-0.084658;-0.903684;, - 0.618610; 0.075655;-0.782037;, - 0.033845; 0.934263;-0.354900;, - -0.215369; 0.885342;-0.412000;, - -0.132145; 0.771813;-0.621937;, - 0.100589; 0.831019;-0.547044;, - -0.323710; 0.436232; 0.839564;, - -0.204962; 0.226997; 0.952055;, - -0.419691; 0.084658; 0.903684;, - -0.533341; 0.287362; 0.795556;, - -0.320658; 0.613880;-0.721305;, - -0.551622; 0.467605;-0.690664;, - -0.417249; 0.288186;-0.861843;, - -0.202521; 0.436964;-0.876370;, - -0.619587; 0.103397;-0.778069;, - -0.417249; 0.288186;-0.861843;, - -0.551622; 0.467605;-0.690664;, - -0.734550; 0.270363;-0.622333;, - -0.290170;-0.917753; 0.271035;, - -0.246742;-0.964263; 0.096255;, - -0.234993;-0.967864;-0.089328;, - -0.482742;-0.874874;-0.039247;, - -0.508286;-0.851680; 0.127476;, - 0.114414; 0.832881;-0.541429;, - -0.132115; 0.771813;-0.621937;, - -0.025361; 0.614460;-0.788507;, - 0.218055; 0.693655;-0.686483;, - -0.962767; 0.196966; 0.185034;, - -0.931669; 0.147160; 0.332102;, - -0.860195; 0.000885; 0.509903;, - -0.933897;-0.160955; 0.319163;, - -0.992828;-0.042879; 0.111484;, - -0.011994; 0.818934;-0.573717;, - -0.099948; 0.656667;-0.747490;, - 0.141057; 0.550371;-0.822901;, - 0.246590; 0.731407;-0.635762;, - -0.084567;-0.267739;-0.959746;, - -0.651479;-0.240425;-0.719535;, - -0.571032;-0.457930;-0.681295;, - -0.065401;-0.562853;-0.823939;, - -0.327982; 0.689474;-0.645741;, - -0.307382; 0.793725;-0.524827;, - -0.337626; 0.862270;-0.377422;, - -0.300638; 0.953398;-0.025147;, - -0.988067; 0.153752;-0.004456;, - -0.886929; 0.323038;-0.330088;, - 0.314432; 0.882443; 0.349864;, - 0.533769; 0.801874; 0.268471;, - 0.611438; 0.604144; 0.510971;, - 0.489914; 0.532731; 0.690023;, - 0.283151; 0.809107; 0.514878;, - 0.338115; 0.819300; 0.462996;, - -0.546190; 0.728507; 0.413434;, - -0.585284; 0.595508; 0.550218;, - -0.608112; 0.435652; 0.663594;, - -0.523606; 0.211737; 0.825220;, - -0.905118; 0.088992; 0.415723;, - -0.962188; 0.195715; 0.189276;, - -0.504379;-0.435591;-0.745537;, - -0.298257;-0.349956;-0.887997;, - -0.398846;-0.173650;-0.900388;, - -0.508042;-0.006623;-0.861263;, - -0.668630;-0.166753;-0.724631;, - -0.594440;-0.305338;-0.743889;, - 0.273873;-0.350200;-0.895718;, - 0.052004;-0.468215;-0.882046;, - 0.153905;-0.652394;-0.742058;, - 0.379101;-0.540391;-0.751152;, - 0.774438; 0.100192; 0.624653;, - 0.843806; 0.247169; 0.476302;, - 0.943876; 0.109378; 0.311563;, - 0.988464; 0.038575; 0.146306;, - 0.944731;-0.218268; 0.244484;, - 0.817286;-0.087497; 0.569506;, - 0.833979;-0.009339; 0.551683;, - -0.478408; 0.209998; 0.852626;, - -0.661733; 0.047182; 0.748222;, - -0.743217; 0.197821; 0.639088;, - -0.580279; 0.394147; 0.712638;, - 0.958098;-0.110569;-0.264138;, - 0.979003; 0.121586;-0.163518;, - 0.862423; 0.303964;-0.404736;, - 0.763939; 0.227302;-0.603870;, - 0.895718;-0.093814;-0.434584;, - 0.924497;-0.053407;-0.377392;, - -0.270180;-0.463454;-0.843898;, - -0.024171;-0.353984;-0.934904;, - -0.154424;-0.134892;-0.978729;, - -0.378491;-0.266091;-0.886502;, - 0.070681; 0.000000;-0.997497;, - 0.204962;-0.226997;-0.952055;, - 0.419691;-0.084658;-0.903684;, - 0.290567; 0.134678;-0.947295;, - -0.964202;-0.026490; 0.263710;, - -0.964354; 0.207221; 0.164525;, - -0.832087; 0.376965; 0.406781;, - -0.740898; 0.290628; 0.605457;, - -0.900632;-0.016449; 0.434248;, - -0.925687; 0.026704; 0.377331;, - -0.520249; 0.851436; 0.066225;, - -0.716941; 0.695334; 0.049409;, - -0.695791; 0.689108;-0.202368;, - -0.498398; 0.844966;-0.193823;, - -0.197119;-0.688772; 0.697653;, - -0.108707;-0.832148; 0.543779;, - -0.340892;-0.836207; 0.429518;, - -0.428449;-0.720664; 0.545000;, - -0.516098;-0.580309; 0.629933;, - -0.315470;-0.519303; 0.794214;, - 0.960356; 0.131748; 0.245552;, - 0.890103; 0.361858; 0.276955;, - 0.923154; 0.353099;-0.151921;, - 0.976104; 0.172948;-0.131504;, - -0.391095;-0.463637; 0.795007;, - -0.498642;-0.265236; 0.825220;, - -0.290567;-0.134678; 0.947295;, - -0.155705;-0.353771; 0.922239;, - 0.942289;-0.311869;-0.121555;, - 0.965270;-0.200598;-0.167333;, - 0.835231;-0.363353;-0.412671;, - 0.736839;-0.518845;-0.433363;, - 0.787408;-0.537248;-0.302194;, - 0.787408;-0.537248;-0.302194;, - 0.803644;-0.568133;-0.177099;, - 0.909909;-0.411267;-0.053621;, - 0.942289;-0.311869;-0.121555;, - 0.290567;-0.953581;-0.078829;, - 0.029969;-0.993408;-0.110416;, - 0.014374;-0.986175; 0.164892;, - 0.269417;-0.947356; 0.172979;, - -0.728507; 0.530931; 0.432813;, - -0.832087; 0.376965; 0.406781;, - -0.964354; 0.207221; 0.164525;, - -0.937803; 0.327738; 0.114231;, - -0.937803; 0.327738; 0.114231;, - -0.907498; 0.416272; 0.056185;, - -0.796899; 0.577593; 0.176916;, - -0.770745; 0.561052; 0.301889;, - -0.770745; 0.561052; 0.301889;, - -0.110782; 0.972503;-0.204688;, - 0.078372; 0.974761;-0.208930;, - 0.057039; 0.973662; 0.220679;, - -0.179449; 0.969176; 0.168706;, - 0.008606; 0.976592; 0.214789;, - 0.084689; 0.811121; 0.578692;, - -0.180700; 0.746544; 0.640278;, - -0.230781; 0.859493; 0.456038;, - -0.255013; 0.940184; 0.225776;, - 0.077395; 0.260598; 0.962310;, - 0.592029; 0.265023; 0.761071;, - 0.581408;-0.149144; 0.799799;, - 0.084353;-0.160741; 0.983367;, - -0.088748; 0.746971;-0.658895;, - -0.164495; 0.860164;-0.482711;, - -0.415448; 0.746757;-0.519333;, - -0.320658; 0.613880;-0.721305;, - -0.176275;-0.466933;-0.866512;, - 0.008972;-0.486984;-0.873348;, - 0.017823;-0.344890;-0.938444;, - 0.017823;-0.344890;-0.938444;, - 0.017823;-0.344890;-0.938444;, - 0.017823;-0.344890;-0.938444;, - 0.002960;-0.057588;-0.998321;, - -0.191168;-0.172674;-0.966216;, - -0.191168;-0.172674;-0.966216;, - -0.191168;-0.172674;-0.966216;, - -0.191168;-0.172674;-0.966216;, - -0.365246;-0.284707;-0.886288;, - -0.354045;-0.332652;-0.874050;, - -0.322062;-0.424116;-0.846370;, - 0.587451;-0.740562; 0.326243;, - 0.599292;-0.798059; 0.062685;, - 0.024476;-0.988830; 0.147008;, - 0.046754;-0.908597; 0.414991;, - -0.886288;-0.408673;-0.217780;, - -0.623707;-0.749565;-0.221595;, - -0.542009;-0.650258;-0.532304;, - -0.772576;-0.355937;-0.525712;, - -0.323710; 0.436232; 0.839564;, - -0.091739; 0.555620; 0.826350;, - 0.024171; 0.353984; 0.934904;, - -0.204962; 0.226997; 0.952055;, - -0.923154;-0.353099; 0.151921;, - -0.834010;-0.195532; 0.515885;, - -0.680990;-0.411023; 0.606006;, - -0.748375;-0.512711; 0.420728;, - -0.791314;-0.581164; 0.189795;, - 0.911039;-0.114383;-0.396069;, - 0.973449; 0.081973;-0.213660;, - 0.939360; 0.146397;-0.310007;, - 0.861873; 0.290628;-0.415540;, - 0.806543; 0.090762;-0.584124;, - -0.197760;-0.044679;-0.979217;, - -0.398846;-0.173650;-0.900388;, - -0.298257;-0.349956;-0.887997;, - -0.067904;-0.260933;-0.962951;, - -0.657155; 0.542650; 0.523087;, - -0.822871; 0.365490; 0.435041;, - -0.856288; 0.450148; 0.253182;, - -0.703757; 0.645375; 0.296854;, - 0.498520;-0.130528; 0.856960;, - 0.353008;-0.304300; 0.884732;, - 0.141514;-0.154271; 0.977813;, - 0.295083; 0.052767; 0.954009;, - 0.556993; 0.243751;-0.793908;, - 0.680990; 0.411023;-0.606006;, - 0.471603; 0.577136;-0.666677;, - 0.361431; 0.410901;-0.836940;, - 0.442579;-0.780969; 0.440657;, - 0.215369;-0.885342; 0.412000;, - 0.132145;-0.771813; 0.621937;, - 0.356609;-0.663717; 0.657460;, - -0.608112; 0.435652; 0.663594;, - -0.585284; 0.595508; 0.550218;, - 0.047121; 0.802332; 0.594989;, - 0.066439; 0.556993; 0.827845;, - -0.466445; 0.845119;-0.261025;, - -0.422926; 0.904691; 0.051302;, - -0.480544; 0.849269; 0.218543;, - -0.594134; 0.792657; 0.136570;, - -0.594134; 0.792657; 0.136570;, - -0.672842; 0.736961; 0.064364;, - -0.658376; 0.735130;-0.161504;, - -0.577899; 0.786920;-0.216193;, - -0.577899; 0.786920;-0.216193;, - 0.670858;-0.067049;-0.738517;, - 0.478378;-0.209967;-0.852657;, - 0.580279;-0.394147;-0.712638;, - 0.753044;-0.212287;-0.622730;, - 0.328684;-0.165807; 0.929746;, - 0.119266;-0.304575; 0.944975;, - -0.015900;-0.087191; 0.996063;, - 0.197790; 0.044649; 0.979217;, - 0.787774; 0.310587; 0.531877;, - 0.858638; 0.434462; 0.271950;, - 0.932066; 0.326273; 0.157414;, - 0.953795; 0.054231; 0.295480;, - 0.878567; 0.147923; 0.454054;, - -0.744774; 0.648335;-0.157964;, - -0.819605; 0.526841;-0.225043;, - -0.548357; 0.660939;-0.512253;, - -0.200018; 0.831935;-0.517533;, - -0.213843; 0.944182;-0.250526;, - -0.226997; 0.967437;-0.111728;, - -0.448042; 0.886502;-0.115421;, - -0.084689;-0.811121;-0.578692;, - 0.180700;-0.746544;-0.640278;, - 0.091739;-0.555620;-0.826350;, - -0.157842;-0.640553;-0.751488;, - 0.716941;-0.695334;-0.049409;, - 0.520218;-0.851436;-0.066225;, - 0.498398;-0.844997; 0.193823;, - 0.695791;-0.689108; 0.202399;, - -0.255013; 0.940184; 0.225776;, - -0.230781; 0.859493; 0.456038;, - -0.483993; 0.745506; 0.458144;, - -0.516831; 0.827815; 0.218116;, - 0.173009; 0.556566; 0.812555;, - -0.052004; 0.468215; 0.882046;, - -0.153905; 0.652394; 0.742058;, - 0.089145; 0.724723; 0.683218;, - -0.157842;-0.640553;-0.751488;, - 0.091739;-0.555620;-0.826350;, - -0.024171;-0.353984;-0.934904;, - -0.270180;-0.463454;-0.843898;, - 0.695791;-0.689108; 0.202368;, - 0.498398;-0.844997; 0.193823;, - 0.442579;-0.780969; 0.440657;, - 0.641743;-0.627094; 0.441420;, - -0.728507; 0.530931; 0.432813;, - -0.580462; 0.717765; 0.384503;, - -0.444655; 0.713584; 0.541337;, - -0.517319; 0.609272; 0.600909;, - -0.494644; 0.573809; 0.652699;, - -0.740898; 0.290628; 0.605457;, - -0.832087; 0.376965; 0.406781;, - 0.153905;-0.652394;-0.742058;, - -0.094882;-0.725852;-0.681234;, - -0.029908;-0.846553;-0.531419;, - 0.230781;-0.800897;-0.552477;, - 0.553453;-0.832850;-0.002716;, - 0.524644;-0.113834; 0.843654;, - 0.524644;-0.113834; 0.843654;, - 0.553453;-0.832850;-0.002747;, - -0.164800;-0.638630;-0.751610;, - -0.176275;-0.466933;-0.866512;, - -0.322062;-0.424116;-0.846370;, - -0.443129;-0.413099;-0.795556;, - -0.448988;-0.541276;-0.710898;, - -0.376629;-0.604175;-0.702200;, - -0.758110;-0.581988;-0.294137;, - -0.787622;-0.613849;-0.052919;, - -0.590075;-0.806360;-0.039613;, - -0.553423;-0.780663;-0.290262;, - -0.594440;-0.305338;-0.743889;, - -0.668630;-0.166753;-0.724631;, - -0.778375; 0.001770;-0.627766;, - -0.837703;-0.219642;-0.499954;, - -0.730552;-0.414533;-0.542589;, - -0.748375;-0.512711; 0.420728;, - -0.680990;-0.411023; 0.606006;, - -0.471603;-0.577136; 0.666677;, - -0.548509;-0.702292; 0.453749;, - -0.025361; 0.614460;-0.788507;, - -0.246345; 0.501236;-0.829493;, - -0.119266; 0.304575;-0.944975;, - 0.097659; 0.424055;-0.900327;, - 0.878567; 0.147923; 0.454054;, - 0.783471;-0.006165; 0.621387;, - 0.675649; 0.162938; 0.718955;, - 0.787774; 0.310587; 0.531877;, - -0.758110;-0.581988;-0.294137;, - -0.890133;-0.361858;-0.276955;, - -0.923154;-0.353099; 0.151921;, - -0.791314;-0.581164; 0.189795;, - -0.787622;-0.613849;-0.052919;, - -0.337718;-0.915098; 0.220191;, - -0.588488;-0.779839; 0.213294;, - -0.548509;-0.702292; 0.453749;, - -0.306467;-0.838282; 0.450911;, - 0.552293; 0.531327;-0.642323;, - 0.567095; 0.624470;-0.537034;, - -0.047731; 0.817896;-0.573321;, - -0.064730; 0.648183;-0.758721;, - -0.498398; 0.844997;-0.193823;, - -0.695791; 0.689108;-0.202368;, - -0.641743; 0.627094;-0.441420;, - -0.442579; 0.780969;-0.440657;, - 0.132145;-0.771813; 0.621937;, - -0.108707;-0.832148; 0.543779;, - -0.197119;-0.688772; 0.697653;, - 0.025361;-0.614460; 0.788507;, - 0.662343; 0.737449;-0.131993;, - 0.554277; 0.804437;-0.213569;, - 0.642079; 0.665609;-0.380322;, - 0.772942; 0.466659;-0.429792;, - 0.817652; 0.492080;-0.298746;, - 0.817652; 0.492080;-0.298746;, - 0.845149; 0.505478;-0.173681;, - 0.735801; 0.674520;-0.060121;, - 0.662343; 0.737449;-0.131993;, - -0.094882;-0.725852;-0.681234;, - -0.173833;-0.578661;-0.796777;, - -0.394391;-0.634358;-0.664815;, - -0.278878;-0.843287;-0.459395;, - -0.029908;-0.846553;-0.531419;, - 0.535051; 0.154759;-0.830500;, - 0.358409;-0.002686;-0.933531;, - 0.478378;-0.209967;-0.852657;, - 0.670858;-0.067049;-0.738517;, - 0.923154; 0.353099;-0.151921;, - 0.890103; 0.361858; 0.276955;, - 0.758110; 0.581988; 0.294137;, - 0.787622; 0.613849; 0.052919;, - 0.791314; 0.581164;-0.189795;, - 0.356609;-0.663717; 0.657460;, - 0.132115;-0.771813; 0.621937;, - 0.025361;-0.614460; 0.788507;, - 0.246345;-0.501236; 0.829493;, - 0.000000; 0.962279;-0.272042;, - 0.000000; 0.889492;-0.456893;, - 0.306070; 0.845576;-0.437330;, - 0.285531; 0.922147;-0.260842;, - 0.000000;-0.889492;-0.456893;, - 0.000000;-0.962279;-0.272011;, - 0.285531;-0.922147;-0.260842;, - 0.306070;-0.845576;-0.437330;, - -0.284433; 0.919828; 0.270150;, - -0.300638; 0.953398;-0.025147;, - 0.732322; 0.680868;-0.006592;, - 0.723838; 0.631275; 0.278451;, - -0.272927; 0.877346; 0.394604;, - 0.011994;-0.818934; 0.573717;, - -0.246590;-0.731407; 0.635762;, - -0.141057;-0.550371; 0.822901;, - 0.099948;-0.656667; 0.747490;, - 0.246345;-0.501236; 0.829493;, - 0.025361;-0.614460; 0.788507;, - -0.097659;-0.424055; 0.900327;, - 0.119266;-0.304575; 0.944975;, - 0.277383;-0.903623;-0.326273;, - 0.028321;-0.957854;-0.285806;, - 0.042604;-0.995331;-0.086428;, - 0.290567;-0.953581;-0.078829;, - 0.273324; 0.392315; 0.878262;, - 0.067904; 0.260933; 0.962951;, - -0.052004; 0.468215; 0.882046;, - 0.173009; 0.556566; 0.812555;, - 0.507920; 0.080233; 0.857631;, - 0.288919;-0.084841; 0.953551;, - 0.154424; 0.134892; 0.978729;, - 0.378491; 0.266091; 0.886502;, - 0.680807;-0.355358; 0.640431;, - 0.688070;-0.545610; 0.478347;, - -0.336680;-0.679708; 0.651631;, - -0.288430;-0.424024; 0.858455;, - 0.806543; 0.190619;-0.559557;, - 0.822352; 0.208808;-0.529221;, - 0.822352; 0.208808;-0.529221;, - 0.924131; 0.124241;-0.361217;, - 0.887875; 0.289743;-0.357341;, - 0.848262; 0.392743;-0.355144;, - 0.848262; 0.392743;-0.355144;, - 0.809351; 0.462844;-0.361522;, - 0.685018; 0.609455;-0.399030;, - 0.572741; 0.448378;-0.686209;, - 0.735801; 0.674520;-0.060121;, - 0.845149; 0.505478;-0.173681;, - 0.940947; 0.334147;-0.053926;, - 0.925077; 0.337138; 0.174780;, - 0.810663; 0.510971; 0.285836;, - 0.717704; 0.676931; 0.163091;, - -0.323985; 0.943297; 0.072115;, - -0.305338; 0.923826; 0.230842;, - -0.337657; 0.860988; 0.380352;, - -0.305307; 0.661367; 0.685080;, - -0.988739; 0.111850; 0.099155;, - -0.884640; 0.466170; 0.006653;, - -0.832209; 0.554216;-0.016266;, - -0.839778; 0.542253;-0.026246;, - -0.594806; 0.774194; 0.216285;, - 0.075533; 0.067354;-0.994842;, - 0.084140; 0.411359;-0.907559;, - 0.555986; 0.317362;-0.768181;, - 0.467696; 0.058199;-0.881954;, - -0.202521; 0.436964;-0.876370;, - -0.068758; 0.227241;-0.971404;, - 0.155736; 0.353771;-0.922239;, - 0.025666; 0.555742;-0.830927;, - -0.099948; 0.656667;-0.747490;, - -0.227607; 0.490890;-0.840938;, - 0.007691; 0.360607;-0.932676;, - 0.141057; 0.550371;-0.822901;, - 0.763939; 0.227302;-0.603870;, - 0.618610; 0.075655;-0.782037;, - 0.714042;-0.111301;-0.691183;, - 0.813471;-0.265755;-0.517289;, - 0.895718;-0.093814;-0.434584;, - -0.594134; 0.792657; 0.136570;, - -0.480544; 0.849269; 0.218543;, - -0.580462; 0.717765; 0.384503;, - -0.728507; 0.530931; 0.432813;, - -0.770745; 0.561052; 0.301889;, - -0.770745; 0.561052; 0.301889;, - -0.796899; 0.577593; 0.176916;, - -0.672842; 0.736961; 0.064364;, - -0.594134; 0.792657; 0.136570;, - -0.618610;-0.075655; 0.782037;, - -0.419691; 0.084658; 0.903684;, - -0.290567;-0.134678; 0.947295;, - -0.498642;-0.265236; 0.825220;, - 0.991028; 0.063784; 0.117222;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.994720;-0.097720; 0.030976;, - 0.966369;-0.244240;-0.080081;, - 0.966704;-0.254952;-0.020966;, - 0.970275;-0.215552; 0.109867;, - 0.984313;-0.003204; 0.176244;, - 0.993469; 0.042207; 0.105869;, - -0.769616; 0.502731; 0.393567;, - -0.969909; 0.241523;-0.029572;, - -0.980193; 0.174963; 0.092532;, - -0.948088; 0.308847; 0.075594;, - -0.845851; 0.513565; 0.144047;, - -0.964354; 0.207221; 0.164525;, - -0.964202;-0.026490; 0.263710;, - -0.986175;-0.083071; 0.143162;, - -0.976104;-0.172948; 0.131504;, - -0.960356;-0.131748;-0.245552;, - -0.981079; 0.127323;-0.145817;, - -0.768853; 0.573626;-0.282388;, - -0.658376; 0.735130;-0.161504;, - -0.672842; 0.736961; 0.064364;, - -0.796899; 0.577593; 0.176916;, - -0.907498; 0.416272; 0.056185;, - -0.893887; 0.414869;-0.169713;, - 0.269417;-0.947356; 0.172979;, - 0.014374;-0.986175; 0.164892;, - -0.025330;-0.933622; 0.357280;, - 0.215369;-0.885342; 0.412000;, - 0.528764; 0.243843; 0.812952;, - 0.733818; 0.337718; 0.589435;, - 0.810053; 0.000000; 0.586322;, - 0.599475; 0.000000; 0.800378;, - 0.618610; 0.075655;-0.782037;, - 0.419691;-0.084658;-0.903684;, - 0.533341;-0.287362;-0.795556;, - 0.714042;-0.111301;-0.691183;, - -0.580279; 0.394147; 0.712638;, - -0.743217; 0.197821; 0.639088;, - -0.822871; 0.365490; 0.435041;, - -0.657155; 0.542650; 0.523087;, - 0.536241;-0.647664;-0.541215;, - 0.473678;-0.446944;-0.758843;, - -0.065401;-0.562853;-0.823939;, - -0.040468;-0.794183;-0.606311;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - 0.698996;-0.655599;-0.285562;, - -0.904508;-0.352245;-0.240333;, - -0.578661;-0.650502;-0.491867;, - -0.571032;-0.457930;-0.681295;, - -0.651479;-0.240425;-0.719535;, - -0.970946;-0.076693;-0.226630;, - -0.922330;-0.241401;-0.301675;, - 0.657155;-0.542650;-0.523087;, - 0.458480;-0.693747;-0.555376;, - 0.506607;-0.799860;-0.321757;, - 0.703757;-0.645405;-0.296854;, - -0.512040;-0.841151; 0.173986;, - -0.277047;-0.926420; 0.254891;, - -0.238716;-0.962920; 0.125645;, - -0.224006;-0.967620;-0.116245;, - -0.462325;-0.882473;-0.086520;, - -0.494400;-0.867397; 0.056215;, - -0.606616;-0.777184;-0.167180;, - -0.634724;-0.649251;-0.418989;, - -0.306894;-0.804376;-0.508652;, - -0.257057;-0.942778;-0.212287;, - -0.773888;-0.619831;-0.129856;, - -0.936827;-0.343608;-0.065310;, - -0.867153;-0.497482;-0.022217;, - 0.458480;-0.693747;-0.555376;, - 0.230781;-0.800897;-0.552477;, - 0.277383;-0.903623;-0.326273;, - 0.506607;-0.799860;-0.321757;, - -0.070681; 0.000000; 0.997497;, - 0.088473; 0.214087; 0.972777;, - 0.295083; 0.052767; 0.954009;, - 0.141514;-0.154271; 0.977813;, - -0.149998; 0.136143; 0.979247;, - -0.358409; 0.002716; 0.933531;, - -0.478378; 0.209998; 0.852657;, - -0.273873; 0.350200; 0.895718;, - 0.015900; 0.087191;-0.996063;, - -0.197790;-0.044679;-0.979217;, - -0.067934;-0.260933;-0.962951;, - 0.149998;-0.136113;-0.979247;, - 0.625141;-0.136021; 0.768548;, - 0.210974;-0.165410; 0.963378;, - 0.253029;-0.489303; 0.834559;, - 0.630696;-0.396496; 0.667043;, - 0.637806;-0.178259; 0.749229;, - 0.451704;-0.356243; 0.817927;, - 0.328684;-0.165807; 0.929746;, - 0.533738;-0.002075; 0.845607;, - -0.097659;-0.424055; 0.900327;, - -0.315470;-0.519303; 0.794214;, - -0.426679;-0.326334; 0.843440;, - -0.228553;-0.213538; 0.949797;, - 0.591723; 0.638905; 0.491531;, - 0.397565; 0.627735; 0.669179;, - 0.331492; 0.747856; 0.575121;, - 0.278481; 0.856777; 0.433973;, - 0.509018; 0.785119; 0.352702;, - 0.753044;-0.212287;-0.622730;, - 0.580279;-0.394147;-0.712638;, - 0.657155;-0.542680;-0.523087;, - 0.814814;-0.334941;-0.473128;, - 0.814814;-0.334941;-0.473128;, - 0.911039;-0.114383;-0.396069;, - 0.806543; 0.090762;-0.584124;, - 0.670858;-0.067049;-0.738517;, - 0.753044;-0.212287;-0.622730;, - -0.996033; 0.000000; 0.088717;, - -0.977966; 0.000000;-0.208686;, - -0.889981; 0.403607;-0.212073;, - -0.904599; 0.406232; 0.128941;, - 0.239296; 0.924345; 0.297128;, - -0.022340; 0.942595; 0.333171;, - -0.036805; 0.997406; 0.061556;, - 0.227302; 0.970580; 0.079073;, - -0.902097;-0.412458; 0.126774;, - -0.886288;-0.408673;-0.217780;, - -0.977966; 0.000000;-0.208686;, - -0.996033; 0.000000; 0.088717;, - 0.736839;-0.518845;-0.433363;, - 0.591388;-0.711783;-0.378918;, - 0.487075;-0.846370;-0.215339;, - 0.606220;-0.784661;-0.129490;, - 0.606220;-0.784661;-0.129490;, - 0.676473;-0.733390;-0.067080;, - 0.803644;-0.568133;-0.177099;, - 0.787408;-0.537248;-0.302194;, - 0.787408;-0.537248;-0.302194;, - 0.809259;-0.420270; 0.410382;, - 0.641743;-0.627094; 0.441420;, - 0.558519;-0.513565; 0.651357;, - 0.733543;-0.319315; 0.599933;, - -0.153905; 0.652394; 0.742058;, - -0.379101; 0.540391; 0.751152;, - -0.458480; 0.693747; 0.555376;, - -0.230781; 0.800897; 0.552477;, - -0.950713;-0.184423;-0.249153;, - -0.936827;-0.343608;-0.065310;, - -0.773888;-0.619831;-0.129856;, - -0.801386;-0.487625;-0.346324;, - 0.686209;-0.727317;-0.007599;, - 0.689901;-0.680837; 0.245857;, - 0.865596;-0.453780; 0.211615;, - 0.862362;-0.505417;-0.029237;, - -0.680990;-0.411023; 0.606006;, - -0.556993;-0.243751; 0.793908;, - -0.361431;-0.410901; 0.836940;, - -0.471603;-0.577136; 0.666677;, - 0.900632; 0.016449;-0.434248;, - 0.834010; 0.195532;-0.515885;, - 0.721305; 0.051637;-0.690664;, - 0.609638;-0.125523;-0.782647;, - 0.740898;-0.290628;-0.605457;, - 0.282907;-0.821802;-0.494552;, - 0.089053;-0.819605;-0.565935;, - -0.057039;-0.973662;-0.220679;, - 0.179449;-0.969176;-0.168706;, - -0.506638; 0.799829; 0.321757;, - -0.703757; 0.645375; 0.296854;, - -0.716941; 0.695334; 0.049409;, - -0.520249; 0.851436; 0.066225;, - -0.052004; 0.468215; 0.882046;, - -0.273873; 0.350200; 0.895718;, - -0.379101; 0.540391; 0.751152;, - -0.153905; 0.652394; 0.742058;, - 0.240394; 0.411695; 0.879025;, - 0.023652; 0.550645; 0.834376;, - 0.154729; 0.732047; 0.663411;, - 0.373882; 0.578417; 0.724967;, - 0.703177;-0.648976; 0.290414;, - 0.854274;-0.441389; 0.274514;, - 0.888119;-0.432905;-0.154271;, - 0.736534;-0.648122;-0.193487;, - 0.729820;-0.681845; 0.049074;, - 0.474502; 0.879421; 0.037477;, - 0.228645; 0.971557; 0.061495;, - 0.286111; 0.918607;-0.272530;, - 0.493149; 0.859401;-0.134922;, - 0.654622;-0.214545; 0.724845;, - 0.196661;-0.170171; 0.965575;, - -0.139348; 0.368053; 0.919279;, - -0.201880;-0.221381; 0.954039;, - 0.722068;-0.086734; 0.686331;, - -0.119266; 0.304575;-0.944975;, - -0.328684; 0.165838;-0.929746;, - -0.197760;-0.044679;-0.979217;, - 0.015900; 0.087191;-0.996063;, - 0.586077;-0.406110; 0.701102;, - 0.597613;-0.597674; 0.534410;, - 0.066500;-0.728263; 0.682028;, - 0.078707;-0.503281; 0.860500;, - 0.580309;-0.796777;-0.168401;, - 0.566729;-0.764061;-0.308206;, - -0.015412;-0.935545;-0.352824;, - 0.005158;-0.994934;-0.100284;, - 0.426710; 0.326334;-0.843440;, - 0.228584; 0.213538;-0.949797;, - 0.358409;-0.002686;-0.933531;, - 0.535051; 0.154759;-0.830500;, - 0.565203; 0.777947;-0.274392;, - 0.493149; 0.859401;-0.134922;, - 0.286111; 0.918607;-0.272530;, - 0.425031; 0.720573;-0.547777;, - 0.626667; 0.669057;-0.399487;, - 0.301248; 0.378430; 0.875210;, - 0.067904; 0.260933; 0.962951;, - -0.052034; 0.468215; 0.882046;, - 0.186224; 0.560747; 0.806726;, - 0.964202; 0.026490;-0.263710;, - 0.965270;-0.200598;-0.167333;, - 0.981079;-0.127323; 0.145787;, - 0.960356; 0.131748; 0.245552;, - 0.976104; 0.172948;-0.131504;, - 0.986175; 0.083041;-0.143162;, - -0.855708; 0.437849; 0.275674;, - -0.955870; 0.200476; 0.214698;, - -0.969268; 0.245857;-0.003449;, - -0.870174; 0.492691; 0.004059;, - -0.824519;-0.468184; 0.317728;, - -0.980163;-0.197546; 0.014649;, - -0.974487;-0.224189;-0.008637;, - -0.974487;-0.224189;-0.008637;, - -0.931211;-0.174688;-0.319773;, - -0.735557;-0.520188;-0.433943;, - -0.758446;-0.639058;-0.127689;, - -0.749901;-0.658345; 0.064730;, - 0.154729; 0.732047; 0.663411;, - 0.240303; 0.839167; 0.487869;, - 0.480178; 0.703604; 0.523759;, - 0.373882; 0.578417; 0.724967;, - 0.418195; 0.726493;-0.545213;, - 0.190252; 0.707053;-0.681051;, - 0.325297; 0.498062;-0.803797;, - 0.526536; 0.557085;-0.642170;, - 0.517197;-0.016602; 0.855678;, - 0.328684;-0.165807; 0.929746;, - 0.197790; 0.044649; 0.979217;, - 0.415845; 0.154942; 0.896115;, - -0.246345; 0.501206;-0.829493;, - -0.451735; 0.356212;-0.817927;, - -0.328684; 0.165807;-0.929746;, - -0.119266; 0.304575;-0.944975;, - 0.849086;-0.489669; 0.198126;, - 0.695791;-0.689108; 0.202399;, - 0.641743;-0.627094; 0.441420;, - 0.809259;-0.420270; 0.410382;, - 0.942045; 0.319803; 0.101077;, - 0.874630; 0.408643; 0.260781;, - 0.788659; 0.547899; 0.278848;, - 0.726981; 0.665761; 0.168004;, - 0.726676; 0.686880;-0.010285;, - 0.792901; 0.591784;-0.144993;, - 0.870327; 0.465835;-0.159673;, - 0.931639; 0.355846;-0.073489;, - -0.591968; 0.581164;-0.558367;, - -0.423231; 0.602039;-0.677023;, - -0.502976; 0.346416;-0.791803;, - -0.629353; 0.324686;-0.705985;, - 0.306070; 0.845576;-0.437330;, - 0.431562; 0.789453;-0.436445;, - 0.574725; 0.706809;-0.412397;, - 0.592669; 0.772301;-0.228584;, - 0.285531; 0.922147;-0.260842;, - -0.917478;-0.201239; 0.343089;, - -0.438856;-0.534745; 0.722098;, - -0.401410;-0.289499; 0.868923;, - -0.850215;-0.102451; 0.516312;, - -0.861415; 0.118107;-0.493942;, - -0.920713;-0.102268;-0.376507;, - -0.837703;-0.219642;-0.499954;, - -0.778375; 0.001770;-0.627766;, - 0.846370; 0.411481;-0.338115;, - 0.857479; 0.442701;-0.262093;, - 0.715629; 0.639424;-0.281014;, - 0.715842; 0.600635;-0.356029;, - 0.669118; 0.623218;-0.404706;, - 0.691763; 0.514328;-0.506821;, - -0.290567; 0.953581; 0.078829;, - -0.520249; 0.851436; 0.066225;, - -0.498398; 0.844966;-0.193823;, - -0.269417; 0.947356;-0.172948;, - 0.638142;-0.176366; 0.749413;, - 0.451735;-0.356243; 0.817927;, - 0.328684;-0.165807; 0.929746;, - 0.517197;-0.016602; 0.855678;, - 0.052004;-0.468215;-0.882046;, - -0.180792;-0.559038;-0.809168;, - -0.080905;-0.723045;-0.685995;, - 0.153905;-0.652394;-0.742058;, - 0.862362;-0.505417;-0.029237;, - 0.966704;-0.254952;-0.020966;, - 0.966369;-0.244240;-0.080081;, - 0.836756;-0.420118;-0.351146;, - 0.857418;-0.448988;-0.251381;, - 0.197790; 0.044649; 0.979217;, - -0.015870;-0.087191; 0.996063;, - -0.149998; 0.136143; 0.979247;, - 0.067904; 0.260933; 0.962951;, - 0.110782;-0.972503; 0.204688;, - 0.179449;-0.969176;-0.168706;, - -0.057039;-0.973662;-0.220679;, - -0.078372;-0.974761; 0.208930;, - 0.533738;-0.002075; 0.845607;, - 0.328684;-0.165807; 0.929746;, - 0.197790; 0.044649; 0.979217;, - 0.410169; 0.181097; 0.893826;, - 0.100589; 0.831019;-0.547044;, - -0.132145; 0.771813;-0.621937;, - -0.025361; 0.614460;-0.788507;, - 0.190252; 0.707053;-0.681051;, - 0.726676; 0.686880;-0.010285;, - 0.519913; 0.841609;-0.146062;, - 0.541765; 0.795801;-0.270394;, - 0.634541; 0.669759;-0.385693;, - 0.792901; 0.591784;-0.144993;, - 0.095828; 0.726951; 0.679952;, - 0.336558; 0.735557; 0.587939;, - 0.496689; 0.461531; 0.735008;, - 0.301248; 0.378430; 0.875210;, - 0.186224; 0.560747; 0.806726;, - 0.809259;-0.420270; 0.410382;, - 0.909635;-0.186010; 0.371410;, - 0.957701;-0.239051; 0.160131;, - 0.970489;-0.241005;-0.005585;, - 0.872555;-0.487655;-0.028748;, - 0.849086;-0.489669; 0.198126;, - 0.068758;-0.227241; 0.971404;, - 0.288919;-0.084841; 0.953551;, - 0.417249;-0.288186; 0.861843;, - 0.202521;-0.436964; 0.876370;, - 0.772942; 0.466659;-0.429792;, - 0.862423; 0.303964;-0.404736;, - 0.979003; 0.121586;-0.163518;, - 0.963286; 0.243660;-0.112522;, - 0.963286; 0.243660;-0.112522;, - 0.940947; 0.334147;-0.053926;, - 0.845149; 0.505478;-0.173681;, - 0.817652; 0.492080;-0.298746;, - 0.817652; 0.492080;-0.298746;, - 0.439497; 0.332011;-0.834590;, - 0.228584; 0.213538;-0.949797;, - 0.358440;-0.002686;-0.933531;, - 0.544084; 0.130833;-0.828730;, - 0.716941;-0.695334;-0.049409;, - 0.520218;-0.851436;-0.066225;, - 0.498398;-0.844997; 0.193823;, - 0.695791;-0.689108; 0.202368;, - 0.703574;-0.692038;-0.161260;, - 0.724296;-0.575579;-0.379559;, - 0.629597;-0.636250;-0.445784;, - -0.269082;-0.779015;-0.566301;, - -0.329386;-0.871273;-0.363811;, - -0.323679;-0.920286;-0.219672;, - -0.580279; 0.394147; 0.712638;, - -0.749596; 0.216712; 0.625355;, - -0.814142; 0.357280; 0.457686;, - -0.657155; 0.542680; 0.523087;, - -0.641774; 0.627094;-0.441389;, - -0.809259; 0.420270;-0.410382;, - -0.733543; 0.319315;-0.599933;, - -0.558519; 0.513565;-0.651357;, - 0.273537; 0.614093;-0.740287;, - -0.505631;-0.170751;-0.845668;, - -0.505631;-0.170751;-0.845668;, - 0.273537; 0.614093;-0.740287;, - 0.507492; 0.806818; 0.302438;, - 0.726981; 0.665761; 0.168004;, - 0.788659; 0.547899; 0.278848;, - 0.646260; 0.520463; 0.558031;, - 0.549089; 0.689932; 0.471633;, - 0.828272; 0.366985;-0.423383;, - 0.866604; 0.473739;-0.156621;, - 0.756310; 0.648640;-0.084933;, - 0.565203; 0.777947;-0.274392;, - 0.626667; 0.669057;-0.399487;, - 0.705649; 0.546587;-0.450850;, - 0.391095; 0.463637;-0.795007;, - 0.155736; 0.353771;-0.922239;, - 0.290567; 0.134678;-0.947295;, - 0.498642; 0.265236;-0.825220;, - -0.709098;-0.268715; 0.651845;, - -0.560259;-0.143345; 0.815790;, - -0.437788;-0.332469; 0.835322;, - -0.327738;-0.523881; 0.786187;, - -0.515305;-0.580859; 0.630055;, - 0.942045; 0.319803; 0.101077;, - 0.988556; 0.023041; 0.149022;, - 0.914640; 0.095889; 0.392651;, - 0.802515; 0.271706; 0.531114;, - 0.874630; 0.408643; 0.260781;, - 0.738670;-0.312143; 0.597400;, - 0.558519;-0.513565; 0.651357;, - 0.451704;-0.356243; 0.817927;, - 0.637806;-0.178259; 0.749229;, - -0.281472;-0.369182;-0.885678;, - -0.410627;-0.182867;-0.893246;, - -0.597980;-0.285531;-0.748894;, - -0.484481;-0.476913;-0.733329;, - -0.406232;-0.612720;-0.677847;, - -0.180792;-0.559038;-0.809168;, - 0.255531; 0.525742; 0.811304;, - 0.262825; 0.774071; 0.575915;, - 0.096316; 0.794305; 0.599811;, - 0.123203; 0.512742; 0.849635;, - -0.528764;-0.243843; 0.812952;, - -0.379620;-0.451277; 0.807581;, - -0.522507;-0.623310; 0.581744;, - -0.742515;-0.343638; 0.574938;, - -0.356883; 0.714866;-0.601306;, - -0.670980; 0.738182;-0.069460;, - -0.179540; 0.885464; 0.428571;, - -0.798120; 0.527238; 0.291482;, - 0.160924; 0.738151; 0.655110;, - 0.246773; 0.809046; 0.533403;, - 0.256142; 0.929106; 0.266640;, - 0.266671; 0.958678; 0.098941;, - 0.240852; 0.969787;-0.038026;, - -0.283151;-0.809107;-0.514878;, - -0.338115;-0.819300;-0.462996;, - -0.314432;-0.882443;-0.349864;, - -0.282144;-0.931730;-0.228553;, - -0.196844;-0.957549;-0.210486;, - -0.008606;-0.976592;-0.214789;, - -0.084689;-0.811121;-0.578692;, - 0.762230;-0.172643; 0.623798;, - 0.820276;-0.311686; 0.479537;, - 0.681600;-0.505844; 0.528703;, - 0.567614;-0.652608; 0.501846;, - 0.440291;-0.578478; 0.686605;, - 0.633473;-0.255074; 0.730491;, - 0.678793;-0.269509; 0.683035;, - 0.336558; 0.735557; 0.587939;, - 0.549089; 0.689932; 0.471633;, - 0.646260; 0.520463; 0.558031;, - 0.496689; 0.461531; 0.735008;, - -0.830897; 0.523362;-0.188879;, - -0.966155; 0.189154;-0.175359;, - -0.967864; 0.179662;-0.175817;, - -0.967864; 0.179662;-0.175817;, - -0.910092; 0.208258;-0.358226;, - -0.844722; 0.384381;-0.372326;, - -0.844722; 0.384381;-0.372326;, - -0.806024; 0.455031;-0.378460;, - 0.600696; 0.276009; 0.750298;, - 0.415845; 0.154942; 0.896115;, - 0.273324; 0.392315; 0.878262;, - 0.486557; 0.467483; 0.738029;, - 0.558519;-0.513565; 0.651357;, - 0.356609;-0.663717; 0.657460;, - 0.246345;-0.501236; 0.829493;, - 0.451735;-0.356243; 0.817927;, - 0.732322; 0.680868;-0.006592;, - 0.715629; 0.639424;-0.281014;, - 0.857479; 0.442701;-0.262093;, - 0.874691; 0.484634; 0.002838;, - -0.716941; 0.695334; 0.049409;, - -0.870174; 0.492691; 0.004059;, - -0.849055; 0.489669;-0.198126;, - -0.695791; 0.689108;-0.202368;, - -0.269417; 0.947325;-0.172979;, - -0.498398; 0.844997;-0.193823;, - -0.442579; 0.780969;-0.440657;, - -0.215369; 0.885342;-0.412000;, - -0.508286;-0.851680; 0.127476;, - -0.482742;-0.874874;-0.039247;, - -0.486587;-0.855220;-0.178350;, - -0.717521;-0.691671;-0.081851;, - -0.747581;-0.659658; 0.076968;, - -0.567492;-0.780358; 0.262520;, - 0.552293; 0.531327;-0.642323;, - -0.064730; 0.648183;-0.758721;, - -0.082369; 0.408460;-0.909024;, - 0.504227; 0.339030;-0.794214;, - -0.730552;-0.414533;-0.542589;, - -0.837703;-0.219642;-0.499954;, - -0.920713;-0.102268;-0.376507;, - -0.906766;-0.359630;-0.220008;, - -0.819880;-0.498398;-0.281686;, - 0.215369;-0.885342; 0.412000;, - -0.025330;-0.933622; 0.357280;, - -0.115299;-0.833735; 0.539964;, - 0.132115;-0.771813; 0.621937;, - -0.947661;-0.307321;-0.086245;, - -0.986969;-0.017609;-0.159917;, - -0.999481;-0.012818; 0.029084;, - -0.966704;-0.112583; 0.229682;, - -0.930692;-0.356700; 0.080721;, - -0.952727;-0.043031;-0.300638;, - -0.993927;-0.020142;-0.108066;, - -0.947600;-0.312204;-0.067507;, - -0.898587;-0.376141;-0.225867;, - -0.908444;-0.121189;-0.399976;, - 0.489914; 0.532731; 0.690023;, - 0.270180; 0.463454; 0.843898;, - 0.157842; 0.640553; 0.751488;, - 0.084689; 0.811121; 0.578692;, - 0.283151; 0.809107; 0.514878;, - -0.633473; 0.255074;-0.730491;, - -0.678793; 0.269509;-0.683035;, - -0.762230; 0.172643;-0.623798;, - -0.831355; 0.068392;-0.551500;, - -0.821680;-0.010834;-0.569811;, - -0.755577;-0.199957;-0.623768;, - -0.626118;-0.042940;-0.778527;, - -0.498520; 0.130528;-0.856960;, - -0.149998; 0.136113; 0.979247;, - -0.358440; 0.002686; 0.933531;, - -0.478408; 0.209998; 0.852626;, - -0.273873; 0.350200; 0.895718;, - -0.755394;-0.485458; 0.440077;, - -0.621815;-0.682760; 0.383557;, - -0.567492;-0.780358; 0.262520;, - -0.747581;-0.659658; 0.076968;, - -0.844142;-0.509415; 0.166875;, - 0.230750;-0.800897;-0.552507;, - -0.027741;-0.858516;-0.512009;, - 0.015748;-0.951048;-0.308542;, - 0.277383;-0.903623;-0.326273;, - 0.988556; 0.023041; 0.149022;, - 0.942045; 0.319803; 0.101077;, - 0.931639; 0.355846;-0.073489;, - 0.939360; 0.146397;-0.310007;, - 0.973449; 0.081973;-0.213660;, - 0.995544; 0.025422;-0.090640;, - -0.906766;-0.359630;-0.220008;, - -0.947661;-0.307321;-0.086245;, - -0.930692;-0.356700; 0.080721;, - -0.844142;-0.509415; 0.166875;, - -0.747581;-0.659658; 0.076968;, - -0.717521;-0.691671;-0.081851;, - -0.744194;-0.630909;-0.219245;, - -0.819880;-0.498398;-0.281686;, - -0.725333;-0.669851;-0.158483;, - -0.801080;-0.534349;-0.269631;, - -0.898587;-0.376141;-0.225867;, - -0.947600;-0.312204;-0.067507;, - -0.928556;-0.359691; 0.091372;, - -0.857479;-0.485458; 0.170324;, - -0.777520;-0.615436; 0.129093;, - -0.724479;-0.689291; 0.001007;, - 0.125034;-0.183447; 0.975036;, - 0.210974;-0.165410; 0.963378;, - 0.165197; 0.126041; 0.978149;, - 0.132298; 0.179479; 0.974792;, - -0.578661;-0.650502;-0.491867;, - -0.040468;-0.794183;-0.606311;, - -0.065401;-0.562853;-0.823939;, - -0.571032;-0.457930;-0.681295;, - -0.512894;-0.662404;-0.545976;, - -0.523148;-0.783959;-0.334147;, - -0.467269;-0.812769;-0.347880;, - -0.528245;-0.646870;-0.549974;, - -0.468612; 0.578814;-0.667318;, - -0.574114; 0.528306;-0.625477;, - -0.516068; 0.728050;-0.451155;, - -0.465651; 0.745689;-0.476485;, - 0.581408;-0.149144; 0.799799;, - 0.586077;-0.406110; 0.701102;, - 0.078707;-0.503281; 0.860500;, - 0.084353;-0.160741; 0.983367;, - -0.362377;-0.755943; 0.545122;, - -0.239051;-0.801477; 0.548112;, - -0.530442;-0.818537; 0.220405;, - -0.681356;-0.688131; 0.249367;, - -0.607929; 0.534837;-0.586779;, - -0.668264; 0.344646;-0.659261;, - -0.082369; 0.408460;-0.909024;, - -0.064730; 0.648183;-0.758721;, - -0.451521; 0.867794;-0.207404;, - -0.465651; 0.745689;-0.476485;, - -0.516068; 0.728050;-0.451155;, - -0.541429; 0.812433;-0.216193;, - -0.300638; 0.953398;-0.025147;, - -0.284433; 0.919828; 0.270150;, - -0.272927; 0.877346; 0.394604;, - -0.227973; 0.671346; 0.705161;, - -0.970641; 0.183142; 0.155828;, - -0.988067; 0.153752;-0.004456;, - 0.155675;-0.771447;-0.616932;, - -0.008911;-0.789941;-0.613086;, - -0.033296;-0.553941;-0.831874;, - 0.116214;-0.540422;-0.833308;, - 0.968627;-0.179968;-0.171209;, - 0.937925;-0.085177;-0.336131;, - 0.891354;-0.286966;-0.350871;, - 0.862850;-0.367229;-0.347270;, - 0.862850;-0.367229;-0.347270;, - 0.823237;-0.444655;-0.352855;, - 0.837428;-0.511368;-0.192724;, - 0.887692; 0.409558;-0.210334;, - 0.624836; 0.750786;-0.214087;, - 0.542009; 0.650258;-0.532304;, - 0.772576; 0.355937;-0.525712;, - 0.154729; 0.732047; 0.663411;, - -0.089053; 0.819605; 0.565935;, - 0.057039; 0.973662; 0.220679;, - 0.303598; 0.915555; 0.263649;, - 0.240303; 0.839167; 0.487869;, - -0.843440; 0.526078;-0.108676;, - 0.240852; 0.969787;-0.038026;, - 0.266671; 0.958678; 0.098941;, - 0.256142; 0.929106; 0.266640;, - -0.594806; 0.774194; 0.216285;, - -0.839778; 0.542253;-0.026246;, - -0.230750;-0.935270; 0.268319;, - 0.689901;-0.680837; 0.245857;, - 0.686209;-0.727317;-0.007599;, - 0.703574;-0.692038;-0.161260;, - -0.323679;-0.920286;-0.219672;, - -0.304910;-0.952361; 0.005860;, - -0.629383; 0.773034; 0.079165;, - 0.000702; 0.999725; 0.022279;, - 0.024689; 0.949248; 0.313486;, - -0.548570; 0.778314; 0.305399;, - -0.231941;-0.069735; 0.970214;, - -0.287240;-0.364574; 0.885739;, - -0.558824;-0.267251; 0.784997;, - -0.421644;-0.005646; 0.906735;, - -0.917478;-0.201239; 0.343089;, - -0.850215;-0.102451; 0.516312;, - -0.970122;-0.056642; 0.235786;, - 0.821680; 0.010834; 0.569811;, - 0.755577; 0.199957; 0.623768;, - 0.890103; 0.361858; 0.276955;, - 0.960356; 0.131748; 0.245552;, - 0.370647;-0.331187;-0.867702;, - 0.377209;-0.283731;-0.881558;, - 0.208930;-0.172338;-0.962615;, - 0.208930;-0.172338;-0.962615;, - 0.208930;-0.172338;-0.962615;, - 0.208930;-0.172338;-0.962615;, - 0.002960;-0.057588;-0.998321;, - 0.017823;-0.344890;-0.938444;, - 0.017823;-0.344890;-0.938444;, - 0.017823;-0.344890;-0.938444;, - 0.017823;-0.344890;-0.938444;, - 0.008972;-0.486984;-0.873348;, - 0.192236;-0.466506;-0.863338;, - 0.332743;-0.423139;-0.842738;, - -0.553178;-0.832331;-0.034211;, - 0.005158;-0.994934;-0.100284;, - -0.015412;-0.935545;-0.352824;, - -0.569536;-0.789788;-0.227607;, - -0.854823; 0.500778;-0.135868;, - -0.754814; 0.640553;-0.141148;, - -0.738212; 0.656026; 0.156926;, - -0.808283; 0.564989; 0.165654;, - -0.803003;-0.473647;-0.361675;, - -0.737571;-0.629353;-0.244697;, - -0.800989;-0.596179;-0.054323;, - -0.758019;-0.651418;-0.032441;, - -0.743248;-0.543352;-0.390240;, - -0.472671;-0.880154;-0.043367;, - -0.758019;-0.651418;-0.032441;, - -0.711112;-0.627888; 0.316263;, - -0.398297;-0.842677; 0.362194;, - -0.634907; 0.575976;-0.514878;, - -0.415448; 0.746757;-0.519333;, - -0.481613; 0.828578;-0.285409;, - -0.703177; 0.648976;-0.290414;, - 0.411267;-0.911466; 0.007202;, - -0.581317;-0.811762; 0.055208;, - -0.553270;-0.827113; 0.098636;, - -0.608600;-0.793390; 0.010041;, - -0.608600;-0.793390; 0.010041;, - -0.824946;-0.564714; 0.022309;, - -0.849605;-0.504196;-0.154637;, - -0.792810;-0.587970;-0.160283;, - -0.622181;-0.782830; 0.006867;, - -0.307108; 0.439375; 0.844142;, - -0.396771; 0.721244; 0.567736;, - -0.471633; 0.686331; 0.553575;, - -0.471999; 0.378430; 0.796197;, - -0.370403; 0.267708; 0.889431;, - -0.309580; 0.718131; 0.623218;, - -0.662130; 0.561113; 0.496689;, - -0.587970; 0.225776; 0.776696;, - -0.564745;-0.026124; 0.824824;, - -0.435499; 0.036561; 0.899441;, - -0.330149;-0.273476; 0.903439;, - -0.331156;-0.365856; 0.869747;, - 0.000000; 0.889492;-0.456893;, - 0.000000; 0.698386;-0.715690;, - 0.153813; 0.685080;-0.711997;, - 0.181280; 0.614795;-0.767541;, - 0.423444; 0.545244;-0.723441;, - 0.431562; 0.789453;-0.436445;, - 0.306070; 0.845576;-0.437330;, - 0.680990; 0.411023;-0.606006;, - 0.748375; 0.512711;-0.420728;, - 0.548509; 0.702292;-0.453749;, - 0.471603; 0.577136;-0.666677;, - 0.951872; 0.275124; 0.134892;, - 0.991028; 0.063784; 0.117222;, - 0.993469; 0.042207; 0.105869;, - 0.984313;-0.003204; 0.176244;, - 0.897763;-0.000580; 0.440443;, - 0.890652; 0.303385; 0.338633;, - -0.607929; 0.534837;-0.586779;, - -0.650838; 0.647511;-0.396374;, - -0.962920; 0.252632;-0.094363;, - -0.938200; 0.255287;-0.233589;, - -0.976226; 0.092654;-0.195807;, - -0.668264; 0.344646;-0.659261;, - 0.715842; 0.600635;-0.356029;, - 0.715629; 0.639424;-0.281014;, - 0.732322; 0.680868;-0.006592;, - -0.300638; 0.953398;-0.025147;, - -0.337626; 0.862270;-0.377422;, - -0.307382; 0.793725;-0.524827;, - 0.669118; 0.623218;-0.404706;, - 0.694571;-0.157018;-0.702048;, - 0.752892; 0.074862;-0.653829;, - 0.593310; 0.303629;-0.745476;, - 0.443251; 0.084567;-0.892361;, - 0.471145;-0.054872;-0.880306;, - 0.609302;-0.148045;-0.778954;, - 0.609302;-0.148045;-0.778954;, - -0.451521; 0.867794;-0.207404;, - -0.444777; 0.887539; 0.120090;, - -0.738212; 0.656026; 0.156926;, - -0.754814; 0.640553;-0.141148;, - -0.932707;-0.323557;-0.159093;, - -0.959258;-0.154698;-0.236335;, - -0.566332;-0.313089;-0.762352;, - -0.528245;-0.646870;-0.549974;, - -0.420057; 0.660573;-0.622211;, - -0.603992; 0.386944;-0.696707;, - -0.502976; 0.346416;-0.791803;, - -0.423231; 0.602039;-0.677023;, - -0.907529; 0.061922; 0.415357;, - -0.850215;-0.102451; 0.516312;, - -0.401410;-0.289499; 0.868923;, - -0.907529; 0.061922; 0.415357;, - -0.401410;-0.289499; 0.868923;, - -0.387921;-0.003510; 0.921659;, - -0.948210;-0.310617; 0.066347;, - -0.526780;-0.836940; 0.148259;, - -0.523637;-0.739586; 0.422803;, - -0.948210;-0.310617; 0.066347;, - -0.523637;-0.739586; 0.422803;, - -0.942808;-0.283364; 0.175390;, - 0.675649; 0.162938; 0.718955;, - 0.783471;-0.006165; 0.621387;, - 0.638142;-0.176366; 0.749413;, - 0.517197;-0.016602; 0.855678;, - 0.415845; 0.154942; 0.896115;, - 0.600696; 0.276009; 0.750298;, - -0.232856; 0.055971; 0.970885;, - -0.307108; 0.439375; 0.844142;, - -0.471999; 0.378430; 0.796197;, - -0.387921;-0.003510; 0.921659;, - -0.628224; 0.331065;-0.704062;, - -0.764977; 0.102481;-0.635823;, - -0.702506;-0.145665;-0.696585;, - -0.609302;-0.148045;-0.778954;, - -0.609302;-0.148045;-0.778954;, - -0.471145;-0.054872;-0.880337;, - -0.443464; 0.084536;-0.892270;, - 0.693655; 0.048647; 0.718619;, - 0.692557; 0.279733; 0.664876;, - 0.715812; 0.488174; 0.499252;, - 0.893094; 0.320475; 0.315653;, - 0.872555; 0.048616; 0.486068;, - -0.472671;-0.880154;-0.043367;, - -0.523148;-0.783959;-0.334147;, - -0.512894;-0.662404;-0.545976;, - -0.743248;-0.543352;-0.390240;, - -0.758019;-0.651418;-0.032441;, - -0.948210;-0.310617; 0.066347;, - -0.606616;-0.777184;-0.167180;, - -0.526780;-0.836940; 0.148259;, - -0.566332;-0.313089;-0.762352;, - -0.959258;-0.154698;-0.236335;, - -0.966857;-0.041963;-0.251717;, - -0.614734; 0.044801;-0.787439;, - -0.857814; 0.230293;-0.459395;, - -0.845119; 0.060152;-0.531144;, - -0.310831; 0.045381;-0.949370;, - 0.272927; 0.616535;-0.738487;, - 0.132298; 0.179479; 0.974792;, - 0.165197; 0.126041; 0.978149;, - 0.217597; 0.289804; 0.932005;, - 0.255531; 0.525742; 0.811304;, - 0.123203; 0.512742; 0.849635;, - 0.535173; 0.778283; 0.328349;, - 0.545762; 0.653310; 0.524674;, - 0.047121; 0.802332; 0.594989;, - 0.024689; 0.949248; 0.313486;, - 0.561205; 0.812891; 0.155644;, - -0.948210;-0.310617; 0.066347;, - -0.967254;-0.227241;-0.112766;, - -0.634724;-0.649251;-0.418989;, - -0.606616;-0.777184;-0.167180;, - -0.783715; 0.612354;-0.103671;, - -0.449232; 0.893307;-0.011475;, - -0.920347; 0.363842;-0.143223;, - -0.722983;-0.680380;-0.119755;, - -0.991211; 0.117588;-0.060213;, - -0.862850; 0.331126;-0.381848;, - -0.789605; 0.534989;-0.300363;, - -0.578661;-0.650502;-0.491867;, - -0.569536;-0.789788;-0.227607;, - -0.015412;-0.935545;-0.352824;, - -0.040468;-0.794183;-0.606311;, - 0.016175;-0.933866;-0.357189;, - -0.008911;-0.789941;-0.613086;, - 0.155675;-0.771447;-0.616932;, - 0.186132;-0.912168;-0.365062;, - 0.624836;-0.750786;-0.214087;, - 0.537614;-0.655049;-0.530900;, - 0.195624;-0.820093;-0.537706;, - 0.226112;-0.949553;-0.217200;, - 0.856197;-0.492996; 0.154332;, - 0.833003;-0.549516; 0.064089;, - 0.605823;-0.795251; 0.022950;, - 0.627888;-0.760888; 0.163610;, - 0.722587;-0.672048; 0.161809;, - 0.586688; 0.753533;-0.296579;, - 0.585681; 0.810327;-0.017121;, - 0.000702; 0.999725; 0.022279;, - -0.026276; 0.952574;-0.303079;, - -0.299844;-0.634541; 0.712333;, - -0.969085;-0.127537; 0.211158;, - -0.975890;-0.041627; 0.214179;, - -0.222694;-0.429212; 0.875301;, - -0.910977; 0.190222; 0.365917;, - -0.907529; 0.061922; 0.415357;, - -0.387921;-0.003510; 0.921659;, - -0.471999; 0.378430; 0.796197;, - -0.472671;-0.880154;-0.043367;, - -0.398297;-0.842677; 0.362194;, - -0.556780;-0.759056; 0.337352;, - -0.521775;-0.849147;-0.081545;, - -0.468612; 0.578814;-0.667318;, - -0.465651; 0.745689;-0.476485;, - -0.749779; 0.561968;-0.349254;, - -0.739647; 0.449080;-0.501175;, - -0.917478;-0.201239; 0.343089;, - -0.942808;-0.283364; 0.175390;, - -0.523637;-0.739586; 0.422803;, - -0.438856;-0.534745; 0.722098;, - -0.944304;-0.156652; 0.289346;, - -0.549638;-0.549638; 0.629078;, - -0.524033;-0.255776; 0.812372;, - -0.935087;-0.048189; 0.351115;, - -0.578661;-0.650502;-0.491867;, - -0.904508;-0.352245;-0.240333;, - -0.899655;-0.425153;-0.099033;, - -0.569536;-0.789788;-0.227607;, - 0.050142; 0.998505; 0.020295;, - 0.219214; 0.975646; 0.005615;, - 0.195196; 0.928343;-0.316324;, - 0.021485; 0.951048;-0.308267;, - -0.435438; 0.828150; 0.352855;, - -0.487533; 0.769921; 0.411664;, - -0.471633; 0.686331; 0.553575;, - -0.396771; 0.721244; 0.567736;, - -0.346324;-0.642415; 0.683615;, - -0.398297;-0.842677; 0.362194;, - -0.711112;-0.627888; 0.316263;, - -0.648396;-0.491470; 0.581378;, - -0.943114;-0.329234; 0.045930;, - -0.521775;-0.849147;-0.081545;, - -0.556780;-0.759056; 0.337352;, - -0.947508;-0.250069; 0.199103;, - 0.301248; 0.378430; 0.875210;, - 0.496689; 0.461531; 0.735008;, - 0.687368; 0.149449; 0.710746;, - 0.533738;-0.002075; 0.845607;, - 0.410169; 0.181097; 0.893826;, - -0.845607;-0.392956;-0.361217;, - -0.988037;-0.092990;-0.122868;, - 0.299966;-0.929563; 0.214179;, - -0.792810;-0.587970;-0.160283;, - 0.498398;-0.844997; 0.193823;, - 0.269417;-0.947356; 0.172979;, - 0.215369;-0.885342; 0.412000;, - 0.442579;-0.780938; 0.440657;, - 0.703757;-0.645405;-0.296854;, - 0.506607;-0.799860;-0.321757;, - 0.520218;-0.851436;-0.066225;, - 0.716941;-0.695334;-0.049409;, - -0.472671;-0.880154;-0.043367;, - -0.521775;-0.849147;-0.081545;, - -0.467269;-0.812769;-0.347880;, - -0.523148;-0.783959;-0.334147;, - -0.532884;-0.386639; 0.752647;, - 0.078707;-0.503281; 0.860500;, - 0.066500;-0.728263; 0.682028;, - -0.565600;-0.558702; 0.606555;, - 0.286111; 0.918607;-0.272530;, - 0.048585; 0.935179;-0.350749;, - 0.114414; 0.832881;-0.541429;, - 0.218055; 0.693655;-0.686483;, - 0.425031; 0.720573;-0.547777;, - -0.231941;-0.069735; 0.970214;, - -0.481643;-0.030183; 0.875820;, - -0.524033;-0.255776; 0.812372;, - -0.287240;-0.364574; 0.885739;, - -0.650838; 0.647511;-0.396374;, - -0.657857; 0.734764;-0.165319;, - -0.629383; 0.773034; 0.079165;, - -0.960784; 0.260231; 0.095676;, - -0.962920; 0.252632;-0.094363;, - 0.269509; 0.818476;-0.507370;, - 0.249489; 0.937742;-0.241615;, - -0.783715; 0.612354;-0.103671;, - -0.789605; 0.534989;-0.300363;, - 0.228645; 0.971557; 0.061495;, - -0.029206; 0.997589; 0.062899;, - -0.008606; 0.990234;-0.138981;, - 0.048585; 0.935179;-0.350749;, - 0.286111; 0.918607;-0.272530;, - -0.015900;-0.087191; 0.996063;, - -0.228584;-0.213538; 0.949797;, - -0.358440; 0.002686; 0.933531;, - -0.149998; 0.136113; 0.979247;, - 0.626667; 0.669057;-0.399487;, - 0.425031; 0.720573;-0.547777;, - 0.601489; 0.440931;-0.666158;, - 0.705649; 0.546587;-0.450850;, - -0.969085;-0.127537; 0.211158;, - -0.299844;-0.634541; 0.712333;, - -0.321451;-0.779809; 0.537126;, - -0.329081;-0.853481; 0.404004;, - -0.271676;-0.941588; 0.198859;, - -0.977203;-0.200751; 0.068819;, - -0.498398; 0.844966;-0.193823;, - -0.695791; 0.689108;-0.202368;, - -0.641774; 0.627094;-0.441389;, - -0.442579; 0.780938;-0.440657;, - -0.230781; 0.859493; 0.456038;, - -0.180700; 0.746544; 0.640278;, - -0.418592; 0.612690; 0.670339;, - -0.483993; 0.745506; 0.458144;, - -0.528764;-0.243843; 0.812952;, - -0.742515;-0.343638; 0.574938;, - -0.810053; 0.000000; 0.586322;, - -0.599475; 0.000000; 0.800378;, - 0.551622;-0.467605; 0.690664;, - 0.634907;-0.575976; 0.514878;, - 0.415448;-0.746757; 0.519333;, - 0.320658;-0.613880; 0.721305;, - 0.604022; 0.327555; 0.726524;, - 0.604022; 0.327555; 0.726524;, - 0.457411; 0.103000; 0.883236;, - 0.457411; 0.103000; 0.883236;, - 0.930845;-0.187628; 0.313517;, - 0.981079;-0.127323; 0.145787;, - 0.965270;-0.200598;-0.167333;, - 0.942289;-0.311869;-0.121555;, - 0.942289;-0.311869;-0.121555;, - 0.909909;-0.411267;-0.053621;, - 0.893887;-0.414869; 0.169713;, - 0.917478;-0.318461; 0.238289;, - 0.917478;-0.318461; 0.238289;, - 0.478408;-0.209967;-0.852657;, - 0.273873;-0.350200;-0.895718;, - 0.379101;-0.540391;-0.751152;, - 0.580279;-0.394147;-0.712638;, - -0.889981; 0.403607;-0.212073;, - -0.977966; 0.000000;-0.208686;, - -0.852412; 0.000000;-0.522843;, - -0.772698; 0.355998;-0.525529;, - 0.000000; 0.698386;-0.715690;, - 0.000000; 0.889492;-0.456893;, - -0.306070; 0.845576;-0.437330;, - -0.431562; 0.789453;-0.436445;, - -0.423963; 0.545183;-0.723197;, - -0.181524; 0.614795;-0.767479;, - -0.153813; 0.685080;-0.711997;, - -0.355022;-0.796350; 0.489639;, - -0.161779;-0.811853; 0.560961;, - -0.029878;-0.976165; 0.214820;, - -0.265053;-0.950346; 0.162938;, - 0.015900; 0.087191;-0.996063;, - -0.197760;-0.044679;-0.979217;, - -0.067904;-0.260933;-0.962951;, - 0.149998;-0.136143;-0.979247;, - -0.227607; 0.490890;-0.840938;, - -0.353008; 0.304300;-0.884732;, - -0.141514; 0.154271;-0.977813;, - 0.007691; 0.360607;-0.932676;, - -0.262703; 0.964690;-0.017457;, - -0.255013; 0.940184; 0.225776;, - -0.516831; 0.827815; 0.218116;, - -0.515915; 0.855922;-0.034639;, - -0.314432;-0.882443;-0.349864;, - -0.539781;-0.798639;-0.265999;, - -0.501785;-0.863735; 0.046022;, - -0.265053;-0.950346; 0.162938;, - -0.196844;-0.957549;-0.210486;, - -0.282144;-0.931730;-0.228553;, - 0.724296;-0.575579;-0.379559;, - 0.703574;-0.692038;-0.161260;, - 0.686209;-0.727317;-0.007599;, - 0.862362;-0.505417;-0.029237;, - 0.857418;-0.448988;-0.251381;, - 0.683584; 0.513962; 0.518174;, - 0.480178; 0.703604; 0.523759;, - 0.553423; 0.780663; 0.290231;, - 0.758110; 0.581988; 0.294137;, - 0.379620;-0.451277; 0.807581;, - 0.514145;-0.616230; 0.596545;, - 0.185369;-0.776360; 0.602405;, - 0.154210;-0.558733; 0.814844;, - -0.517319; 0.609272; 0.600909;, - -0.444655; 0.713584; 0.541337;, - -0.359478; 0.805902; 0.470382;, - -0.282907; 0.821802; 0.494552;, - -0.089053; 0.819605; 0.565935;, - -0.214179; 0.659688; 0.720328;, - -0.348552; 0.491653; 0.797967;, - -0.494644; 0.573809; 0.652699;, - 0.904294; 0.417371; 0.089450;, - 0.636860; 0.765557; 0.091098;, - 0.624836; 0.750786;-0.214087;, - 0.887692; 0.409558;-0.210334;, - 0.233100; 0.968017; 0.092441;, - 0.228706; 0.948973;-0.217017;, - 0.624836; 0.750786;-0.214087;, - 0.636860; 0.765557; 0.091098;, - -0.243446;-0.092563;-0.965484;, - -0.082247;-0.224189;-0.971038;, - -0.022919; 0.005066;-0.999695;, - -0.069216; 0.015259;-0.997467;, - -0.069216; 0.015259;-0.997467;, - -0.069216; 0.015259;-0.997467;, - -0.069216; 0.015259;-0.997467;, - -0.069216; 0.015259;-0.997467;, - -0.069216; 0.015259;-0.997467;, - 0.022919;-0.005066;-0.999695;, - 0.082247; 0.224189;-0.971038;, - -0.112888; 0.228797;-0.966887;, - -0.243171; 0.103885;-0.964385;, - -0.634724;-0.649251;-0.418989;, - -0.967254;-0.227241;-0.112766;, - -0.978484;-0.042451;-0.201849;, - -0.649159; 0.001343;-0.760613;, - -0.642170;-0.309397;-0.701315;, - -0.631855;-0.438734;-0.638905;, - 0.887692;-0.409558;-0.210334;, - 0.977966; 0.000000;-0.208686;, - 0.853389; 0.006378;-0.521195;, - 0.772271;-0.356029;-0.526109;, - -0.379101; 0.540391; 0.751152;, - -0.580279; 0.394147; 0.712638;, - -0.657155; 0.542650; 0.523087;, - -0.458480; 0.693747; 0.555376;, - 0.230781;-0.800897;-0.552477;, - -0.029908;-0.846553;-0.531419;, - 0.028321;-0.957854;-0.285806;, - 0.277383;-0.903623;-0.326273;, - 0.872555;-0.487655;-0.028748;, - 0.716941;-0.695334;-0.049409;, - 0.695791;-0.689108; 0.202399;, - 0.849086;-0.489669; 0.198126;, - -0.772698; 0.355998;-0.525529;, - -0.524552; 0.241737;-0.816309;, - -0.376232; 0.447279;-0.811365;, - -0.548357; 0.660939;-0.512253;, - 0.764336; 0.500076; 0.406995;, - 0.715751; 0.452162; 0.532151;, - 0.611438; 0.604144; 0.510971;, - 0.533769; 0.801874; 0.268471;, - 0.631977; 0.740806; 0.227485;, - 0.631977; 0.740806; 0.227485;, - 0.717704; 0.676931; 0.163091;, - 0.810663; 0.510971; 0.285836;, - 0.764336; 0.500076; 0.406995;, - -0.310831; 0.045381;-0.949370;, - -0.675558; 0.448500;-0.585162;, - -0.179083; 0.913572;-0.365062;, - -0.797388; 0.574419;-0.184820;, - 0.164769; 0.980407;-0.107639;, - 0.249489; 0.937742;-0.241615;, - 0.269509; 0.818476;-0.507370;, - 0.291208; 0.712485;-0.638356;, - 0.272927; 0.616535;-0.738487;, - -0.473312; 0.303385; 0.826960;, - -0.277718; 0.154027; 0.948210;, - -0.425794;-0.052644; 0.903256;, - -0.609638; 0.125523; 0.782647;, - -0.843287; 0.377697; 0.382336;, - -0.934111; 0.000000; 0.356914;, - -0.996033; 0.000000; 0.088717;, - -0.904599; 0.406232; 0.128941;, - 0.890103; 0.361858; 0.276955;, - 0.755577; 0.199957; 0.623768;, - 0.590930; 0.412336; 0.693350;, - 0.683584; 0.513962; 0.518174;, - 0.758110; 0.581988; 0.294137;, - -0.307382; 0.793725;-0.524827;, - -0.327982; 0.689474;-0.645741;, - -0.178808; 0.652333;-0.736503;, - 0.691763; 0.514328;-0.506821;, - 0.669118; 0.623218;-0.404706;, - 0.699942; 0.203711; 0.684500;, - 0.774438; 0.100192; 0.624653;, - 0.833979;-0.009339; 0.551683;, - 0.817286;-0.087497; 0.569506;, - 0.734550;-0.270363; 0.622333;, - 0.619587;-0.103397; 0.778069;, - 0.507920; 0.080233; 0.857631;, - 0.653493; 0.193060; 0.731864;, - -0.681570; 0.505844;-0.528703;, - -0.820276; 0.311686;-0.479537;, - -0.762230; 0.172643;-0.623798;, - -0.678793; 0.269509;-0.683035;, - -0.633473; 0.255074;-0.730491;, - -0.440291; 0.578478;-0.686605;, - -0.567614; 0.652608;-0.501846;, - 0.551622;-0.467605; 0.690664;, - 0.734550;-0.270363; 0.622333;, - 0.854274;-0.441389; 0.274514;, - 0.703177;-0.648976; 0.290414;, - 0.634907;-0.575976; 0.514878;, - 0.230781;-0.859493;-0.456038;, - 0.483993;-0.745506;-0.458144;, - 0.418592;-0.612690;-0.670339;, - 0.180700;-0.746544;-0.640278;, - -0.590930;-0.412305;-0.693350;, - -0.683584;-0.513962;-0.518174;, - -0.480178;-0.703604;-0.523759;, - -0.373882;-0.578417;-0.724967;, - 0.755577; 0.199957; 0.623768;, - 0.626118; 0.042940; 0.778527;, - 0.441054; 0.244484; 0.863521;, - 0.590930; 0.412336; 0.693350;, - -0.243171; 0.103885;-0.964385;, - -0.112888; 0.228797;-0.966887;, - -0.151738; 0.555071;-0.817805;, - -0.376232; 0.447279;-0.811365;, - -0.524552; 0.241737;-0.816309;, - -0.683584;-0.513962;-0.518174;, - -0.758110;-0.581988;-0.294137;, - -0.553423;-0.780663;-0.290262;, - -0.480178;-0.703604;-0.523759;, - -0.528764; 0.243843; 0.812952;, - -0.744438; 0.343852; 0.572314;, - -0.524583; 0.623890; 0.579241;, - -0.379620; 0.451277; 0.807581;, - -0.990081;-0.133854; 0.042177;, - -0.984222;-0.123600;-0.126438;, - -0.849605;-0.504196;-0.154637;, - -0.824946;-0.564714; 0.022309;, - -0.988067; 0.153752;-0.004456;, - -0.993896; 0.106571;-0.028352;, - -0.908811; 0.298196;-0.291696;, - -0.886929; 0.323038;-0.330088;, - 0.772271;-0.356029;-0.526109;, - 0.853389; 0.006378;-0.521195;, - 0.596088; 0.007599;-0.802850;, - 0.525101;-0.241707;-0.815973;, - 0.649831;-0.305429;-0.695975;, - 0.716941; 0.250740;-0.650441;, - 0.601489; 0.440931;-0.666158;, - 0.439497; 0.332011;-0.834590;, - 0.544084; 0.130833;-0.828730;, - 0.657949;-0.051027;-0.751305;, - 0.795465; 0.115085;-0.594958;, - -0.642170; 0.482131; 0.595904;, - 0.222907;-0.254891;-0.940916;, - -0.825220; 0.545610; 0.145878;, - -0.276101; 0.351634; 0.894467;, - -0.325449; 0.026856; 0.945158;, - -0.326365;-0.113102; 0.938444;, - -0.222694;-0.429212; 0.875301;, - -0.975890;-0.041627; 0.214179;, - -0.966735; 0.107974; 0.231788;, - 0.379620;-0.451277; 0.807581;, - 0.528764;-0.243843; 0.812952;, - 0.733818;-0.337718; 0.589435;, - 0.514145;-0.616230; 0.596545;, - 0.230567;-0.968627; 0.092441;, - 0.226112;-0.949553;-0.217200;, - -0.226112;-0.949553;-0.217200;, - -0.230567;-0.968627; 0.092441;, - -0.993561;-0.058992;-0.096438;, - -0.999847; 0.015839;-0.000153;, - 0.850826;-0.395856;-0.345439;, - 0.999847;-0.015931; 0.000000;, - -0.092196;-0.240394; 0.966277;, - 0.092196;-0.240394; 0.966277;, - 0.154210;-0.558733; 0.814844;, - -0.154210;-0.558733; 0.814844;, - -0.772576;-0.355937;-0.525712;, - -0.542009;-0.650258;-0.532304;, - -0.376232;-0.447279;-0.811365;, - -0.524552;-0.241737;-0.816309;, - -0.092196;-0.240394; 0.966277;, - -0.236244;-0.106784; 0.965789;, - -0.236244; 0.106784; 0.965789;, - -0.092196; 0.240394; 0.966277;, - 0.092196; 0.240394; 0.966277;, - 0.236244; 0.106784; 0.965789;, - 0.236244;-0.106784; 0.965789;, - 0.092196;-0.240394; 0.966277;, - -0.707419;-0.267190; 0.654286;, - -0.550035;-0.135411; 0.824061;, - -0.426679;-0.326334; 0.843440;, - -0.315470;-0.519303; 0.794214;, - -0.516098;-0.580309; 0.629933;, - -0.616871;-0.428266; 0.660298;, - -0.624683;-0.192602;-0.756737;, - -0.969909; 0.241523;-0.029572;, - -0.729179; 0.306009;-0.612079;, - -0.825220; 0.545610; 0.145878;, - 0.222907;-0.254891;-0.940916;, - 0.222907;-0.254891;-0.940916;, - -0.524552;-0.241737;-0.816309;, - -0.243446;-0.092563;-0.965484;, - -0.243171; 0.103885;-0.964385;, - -0.524552; 0.241737;-0.816309;, - -0.593921; 0.000000;-0.804498;, - 0.611438; 0.604144; 0.510971;, - 0.715751; 0.452162; 0.532151;, - 0.843806; 0.247169; 0.476302;, - 0.774438; 0.100192; 0.624653;, - 0.699942; 0.203711; 0.684500;, - 0.653493; 0.193060; 0.731864;, - 0.489914; 0.532731; 0.690023;, - 0.507920; 0.080233; 0.857631;, - 0.619587;-0.103397; 0.778069;, - 0.417249;-0.288186; 0.861843;, - 0.288919;-0.084841; 0.953551;, - 0.195624; 0.820093;-0.537706;, - 0.151738; 0.555071;-0.817805;, - 0.376232; 0.447279;-0.811365;, - 0.542009; 0.650258;-0.532304;, - -0.819605; 0.526841;-0.225043;, - -0.744774; 0.648335;-0.157964;, - -0.530717; 0.817988;-0.221809;, - -0.946013;-0.323557;-0.017914;, - -0.828944;-0.558946;-0.019898;, - -0.877957;-0.478683;-0.004181;, - -0.999817; 0.017701; 0.000000;, - -0.735557;-0.520188;-0.433943;, - -0.801386;-0.487625;-0.346324;, - -0.773888;-0.619831;-0.129856;, - -0.758446;-0.639058;-0.127689;, - -0.819605; 0.526841;-0.225043;, - -0.744774; 0.648335;-0.157964;, - 0.649831;-0.305429;-0.695975;, - -0.227454; 0.973693; 0.012757;, - -0.449202; 0.891263; 0.061678;, - -0.451308; 0.892178;-0.018036;, - -0.451277; 0.892117;-0.020173;, - -0.226997; 0.967437;-0.111728;, - -0.448042; 0.886502;-0.115421;, - -0.980193; 0.174963; 0.092532;, - -0.969909; 0.241523;-0.029572;, - -0.624683;-0.192602;-0.756737;, - 0.999847;-0.015900; 0.000000;, - 0.443129;-0.413099;-0.795556;, - 0.332743;-0.423139;-0.842738;, - 0.192236;-0.466506;-0.863338;, - 0.164800;-0.638630;-0.751610;, - 0.376629;-0.604175;-0.702200;, - 0.448988;-0.541276;-0.710898;, - -0.273873; 0.350200; 0.895718;, - -0.478378; 0.209998; 0.852657;, - -0.580279; 0.394147; 0.712638;, - -0.379101; 0.540391; 0.751122;, - -0.394391;-0.634358;-0.664815;, - -0.504379;-0.435591;-0.745537;, - -0.594440;-0.305338;-0.743889;, - -0.730552;-0.414533;-0.542589;, - -0.591815;-0.625080;-0.508896;, - -0.609638; 0.125523; 0.782647;, - -0.425794;-0.052644; 0.903256;, - -0.556993;-0.243751; 0.793908;, - -0.721305;-0.051637; 0.690664;, - -0.574114; 0.528306;-0.625477;, - -0.962066; 0.218390;-0.163366;, - -0.945799; 0.320353; 0.052614;, - -0.541429; 0.812433;-0.216193;, - -0.516068; 0.728050;-0.451155;, - 0.215369;-0.903531; 0.370434;, - 0.230567;-0.968627; 0.092441;, - -0.230567;-0.968627; 0.092441;, - -0.215369;-0.903531; 0.370434;, - 0.379101;-0.540391;-0.751152;, - 0.153905;-0.652394;-0.742058;, - 0.230750;-0.800897;-0.552507;, - 0.458480;-0.693747;-0.555376;, - -0.276406;-0.311075;-0.909268;, - 0.553453;-0.832850;-0.002716;, - 0.553453;-0.832850;-0.002747;, - -0.276406;-0.311075;-0.909268;, - -0.215369; 0.885342;-0.412000;, - -0.442579; 0.780969;-0.440657;, - -0.356609; 0.663717;-0.657460;, - -0.132145; 0.771813;-0.621937;, - 0.733543;-0.319315; 0.599933;, - 0.558519;-0.513565; 0.651357;, - 0.451735;-0.356243; 0.817927;, - 0.638142;-0.176366; 0.749413;, - 0.934111; 0.000000; 0.356914;, - 0.996033; 0.000000; 0.088717;, - 0.904294;-0.417371; 0.089450;, - 0.847438;-0.390637; 0.359508;, - 0.154210;-0.558733; 0.814844;, - 0.092196;-0.240394; 0.966277;, - 0.236244;-0.106784; 0.965789;, - 0.528764;-0.243843; 0.812952;, - 0.379620;-0.451277; 0.807581;, - -0.558519; 0.513565;-0.651357;, - -0.733543; 0.319315;-0.599933;, - -0.643452; 0.171880;-0.745903;, - -0.451735; 0.356212;-0.817927;, - 0.543870; 0.531541;-0.649312;, - 0.569628; 0.564501;-0.597339;, - 0.506516; 0.674459;-0.537126;, - 0.429853; 0.773553;-0.465590;, - 0.355022; 0.796350;-0.489639;, - 0.161779; 0.811853;-0.560961;, - 0.272195; 0.642445;-0.716330;, - 0.391095; 0.463637;-0.795007;, - 0.693655; 0.048647; 0.718619;, - 0.872555; 0.048616; 0.486068;, - 0.854274;-0.171941; 0.490524;, - 0.678762;-0.291604; 0.673940;, - -0.668264; 0.344646;-0.659261;, - -0.736259; 0.048769;-0.674886;, - -0.092502; 0.074190;-0.992920;, - -0.082369; 0.408460;-0.909024;, - 0.255013;-0.940184;-0.225776;, - -0.008606;-0.976592;-0.214789;, - -0.029878;-0.976165; 0.214820;, - 0.220801;-0.940519; 0.258065;, - 0.262703;-0.964690; 0.017457;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.776879;-0.589618; 0.220893;, - -0.902097;-0.412458; 0.126774;, - -0.840785;-0.377728; 0.387738;, - -0.742515;-0.343638; 0.574938;, - -0.522507;-0.623310; 0.581744;, - -0.581225;-0.711356; 0.395062;, - -0.631581;-0.764641; 0.127903;, - -0.782464;-0.593829; 0.187262;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.725547;-0.550737; 0.412549;, - -0.714042; 0.111301; 0.691183;, - -0.533341; 0.287362; 0.795556;, - -0.419691; 0.084658; 0.903684;, - -0.618610;-0.075655; 0.782037;, - -0.154210; 0.558733; 0.814844;, - -0.092196; 0.240394; 0.966277;, - -0.236244; 0.106784; 0.965789;, - -0.528764; 0.243843; 0.812952;, - -0.379620; 0.451277; 0.807581;, - 0.116214;-0.540422;-0.833308;, - 0.082736;-0.253029;-0.963897;, - 0.518784;-0.185797;-0.834437;, - 0.529252;-0.437300;-0.727042;, - -0.554277;-0.804437; 0.213599;, - -0.642079;-0.665609; 0.380322;, - -0.506516;-0.674459; 0.537126;, - -0.429853;-0.773553; 0.465590;, - -0.355022;-0.796350; 0.489639;, - -0.265053;-0.950346; 0.162938;, - -0.501785;-0.863735; 0.046022;, - -0.154210;-0.558733; 0.814844;, - -0.185369;-0.776360; 0.602374;, - -0.522507;-0.623310; 0.581744;, - -0.379620;-0.451277; 0.807581;, - -0.214179; 0.659688; 0.720328;, - -0.089053; 0.819605; 0.565935;, - 0.154729; 0.732047; 0.663411;, - 0.023652; 0.550645; 0.834376;, - 0.624836; 0.750786;-0.214087;, - 0.228706; 0.948973;-0.217017;, - 0.195624; 0.820093;-0.537706;, - 0.542009; 0.650258;-0.532304;, - 0.634907;-0.575976; 0.514878;, - 0.703177;-0.648976; 0.290414;, - 0.481613;-0.828578; 0.285409;, - 0.415448;-0.746757; 0.519333;, - 0.865596;-0.453780; 0.211615;, - 0.689901;-0.680837; 0.245857;, - 0.688070;-0.545610; 0.478347;, - 0.680807;-0.355358; 0.640431;, - 0.874325;-0.293466; 0.386517;, - 0.089053;-0.819605;-0.565935;, - -0.154729;-0.732047;-0.663411;, - -0.240303;-0.839167;-0.487869;, - -0.303598;-0.915555;-0.263649;, - -0.057039;-0.973662;-0.220679;, - 0.228584; 0.213538;-0.949797;, - 0.015900; 0.087191;-0.996063;, - 0.149998;-0.136113;-0.979247;, - 0.358440;-0.002686;-0.933531;, - 0.255013;-0.940184;-0.225776;, - 0.516831;-0.827815;-0.218116;, - 0.483993;-0.745506;-0.458144;, - 0.230781;-0.859493;-0.456038;, - 0.597613;-0.597674; 0.534410;, - 0.587451;-0.740562; 0.326243;, - 0.046754;-0.908597; 0.414991;, - 0.066500;-0.728263; 0.682028;, - -0.661733; 0.047182; 0.748222;, - -0.560259;-0.143345; 0.815790;, - -0.709098;-0.268715; 0.651845;, - -0.860195; 0.000885; 0.509903;, - -0.743217; 0.197821; 0.639088;, - -0.362377;-0.755943; 0.545122;, - 0.174230;-0.658559; 0.732047;, - 0.027833;-0.680837; 0.731864;, - -0.239051;-0.801477; 0.548112;, - -0.216102; 0.908170; 0.358440;, - -0.218513; 0.964385; 0.148869;, - 0.233100; 0.968017; 0.092441;, - 0.215369; 0.903531; 0.370434;, - 0.861873; 0.290628;-0.415540;, - 0.870327; 0.465835;-0.159673;, - 0.792901; 0.591784;-0.144993;, - 0.634541; 0.669759;-0.385693;, - 0.745201; 0.490463;-0.451735;, - -0.725333;-0.669851;-0.158483;, - -0.481918;-0.844325;-0.234107;, - -0.507523;-0.787011;-0.350688;, - -0.553392;-0.703635;-0.445631;, - -0.662252;-0.534532;-0.525040;, - -0.801080;-0.534349;-0.269631;, - 0.638142;-0.176366; 0.749413;, - 0.783471;-0.006165; 0.621387;, - 0.909635;-0.186010; 0.371410;, - 0.809259;-0.420270; 0.410382;, - 0.733543;-0.319315; 0.599933;, - 0.814814;-0.334941;-0.473128;, - 0.657155;-0.542680;-0.523087;, - 0.703757;-0.645405;-0.296854;, - 0.865352;-0.446303;-0.227851;, - -0.970824;-0.236976; 0.036195;, - -0.304910;-0.952361; 0.005860;, - -0.323679;-0.920286;-0.219672;, - -0.329386;-0.871273;-0.363811;, - -0.269082;-0.779015;-0.566301;, - -0.976897;-0.180853;-0.113742;, - 0.536241;-0.647664;-0.541215;, - -0.040468;-0.794183;-0.606311;, - -0.015412;-0.935545;-0.352824;, - 0.566729;-0.764061;-0.308206;, - 0.641713;-0.719535; 0.265389;, - 0.239509;-0.895566; 0.374889;, - 0.217536;-0.967467; 0.129093;, - 0.211890;-0.973479;-0.086154;, - 0.638630;-0.756523;-0.140629;, - 0.672506;-0.737175; 0.065096;, - 0.303598; 0.915555; 0.263649;, - 0.347545; 0.937346; 0.023164;, - 0.590075; 0.806360; 0.039613;, - 0.553423; 0.780663; 0.290231;, - -0.471999; 0.378430; 0.796197;, - -0.471633; 0.686331; 0.553575;, - -0.487533; 0.769921; 0.411664;, - -0.527543; 0.839198; 0.131809;, - -0.925443; 0.266152; 0.269570;, - -0.910977; 0.190222; 0.365917;, - 0.787774; 0.310587; 0.531877;, - 0.675649; 0.162938; 0.718955;, - 0.600696; 0.276009; 0.750298;, - 0.486557; 0.467483; 0.738029;, - 0.679159; 0.474593; 0.559862;, - -0.180700; 0.746544; 0.640278;, - -0.091739; 0.555620; 0.826350;, - -0.323710; 0.436232; 0.839564;, - -0.418592; 0.612690; 0.670339;, - 0.599475; 0.000000; 0.800378;, - 0.810053; 0.000000; 0.586322;, - 0.733818;-0.337718; 0.589435;, - 0.528764;-0.243843; 0.812952;, - 0.444655;-0.713584;-0.541337;, - 0.591388;-0.711783;-0.378918;, - 0.736839;-0.518845;-0.433363;, - 0.835231;-0.363353;-0.412671;, - 0.740898;-0.290628;-0.605457;, - 0.494644;-0.573809;-0.652699;, - 0.517319;-0.609272;-0.600940;, - -0.420057; 0.660573;-0.622211;, - -0.423231; 0.602039;-0.677023;, - -0.591968; 0.581164;-0.558367;, - -0.504166; 0.786645;-0.356243;, - -0.314676; 0.843379;-0.435469;, - -0.841090;-0.108463;-0.529832;, - -0.858425;-0.237648;-0.454482;, - -0.638722;-0.341594;-0.689413;, - -0.745628;-0.342204;-0.571734;, - -0.497848;-0.318674;-0.806574;, - -0.475753;-0.182226;-0.860469;, - 0.219214; 0.975646; 0.005615;, - 0.050142; 0.998505; 0.020295;, - 0.074038; 0.946898; 0.312845;, - 0.254158; 0.922666; 0.289956;, - 0.537614;-0.655049;-0.530900;, - 0.371380;-0.454024;-0.809870;, - 0.151738;-0.555071;-0.817805;, - 0.195624;-0.820093;-0.537706;, - 0.151738;-0.555071;-0.817805;, - 0.371380;-0.454024;-0.809870;, - 0.525101;-0.241707;-0.815973;, - 0.243171;-0.103885;-0.964385;, - 0.112888;-0.228797;-0.966887;, - -0.763939;-0.227302; 0.603870;, - -0.618610;-0.075655; 0.782037;, - -0.498642;-0.265236; 0.825220;, - -0.391095;-0.463637; 0.795007;, - -0.543870;-0.531541; 0.649312;, - -0.507920;-0.080233;-0.857631;, - -0.288919; 0.084841;-0.953551;, - -0.417249; 0.288186;-0.861843;, - -0.619587; 0.103397;-0.778069;, - 0.612140;-0.354350; 0.706870;, - 0.612140;-0.354350; 0.706870;, - 0.041597; 0.584460; 0.810327;, - 0.041597; 0.584490; 0.810327;, - 0.202521;-0.436964; 0.876370;, - 0.417249;-0.288186; 0.861843;, - 0.551622;-0.467605; 0.690664;, - 0.320658;-0.613880; 0.721305;, - 0.270180; 0.463454; 0.843898;, - 0.024171; 0.353984; 0.934904;, - -0.091739; 0.555620; 0.826350;, - 0.157842; 0.640553; 0.751488;, - -0.558824;-0.267251; 0.784997;, - -0.640675;-0.106632; 0.760338;, - -0.580035; 0.007935; 0.814539;, - -0.516861; 0.312296; 0.797052;, - -0.370403; 0.267708; 0.889431;, - -0.421644;-0.005646; 0.906735;, - -0.765282; 0.578295; 0.282601;, - -0.685751; 0.704764; 0.181616;, - -0.587939; 0.715018; 0.378185;, - -0.524583; 0.623890; 0.579241;, - -0.744438; 0.343852; 0.572314;, - -0.843287; 0.377697; 0.382336;, - -0.904599; 0.406232; 0.128941;, - -0.784112; 0.580248; 0.220099;, - -0.731284; 0.550981; 0.401990;, - -0.731284; 0.550981; 0.401990;, - -0.731284; 0.550981; 0.401990;, - -0.731284; 0.550981; 0.401990;, - -0.731284; 0.550981; 0.401990;, - -0.731284; 0.550981; 0.401990;, - -0.731284; 0.550981; 0.401990;, - -0.787622;-0.613849;-0.052919;, - -0.791314;-0.581164; 0.189795;, - -0.588488;-0.779839; 0.213294;, - -0.590075;-0.806360;-0.039613;, - -0.161779;-0.811853; 0.560961;, - -0.272195;-0.642445; 0.716330;, - -0.025666;-0.555742; 0.830927;, - 0.088748;-0.746971; 0.658895;, - 0.185369; 0.776360; 0.602374;, - 0.215369; 0.903531; 0.370434;, - 0.595752; 0.715171; 0.365459;, - 0.514145; 0.616230; 0.596545;, - -0.213843; 0.944182;-0.250526;, - -0.200018; 0.831935;-0.517533;, - 0.195624; 0.820093;-0.537706;, - 0.228706; 0.948973;-0.217017;, - 0.956847;-0.258339;-0.132786;, - 0.888119;-0.432905;-0.154271;, - 0.854274;-0.441389; 0.274514;, - 0.944731;-0.218268; 0.244484;, - 0.555986; 0.317362;-0.768181;, - 0.504227; 0.339030;-0.794214;, - 0.418500; 0.055605;-0.906491;, - 0.450942;-0.221778;-0.864528;, - 0.518784;-0.185797;-0.834437;, - 0.467696; 0.058199;-0.881954;, - 0.240394; 0.411695; 0.879025;, - 0.373882; 0.578417; 0.724967;, - 0.590930; 0.412336; 0.693350;, - 0.441054; 0.244484; 0.863521;, - -0.154210; 0.558733; 0.814844;, - -0.185369; 0.776360; 0.602374;, - 0.185369; 0.776360; 0.602374;, - 0.154210; 0.558733; 0.814844;, - 0.951872; 0.275124; 0.134892;, - 0.890652; 0.303385; 0.338633;, - 0.865200; 0.475875; 0.157842;, - 0.854885; 0.511795; 0.084780;, - -0.379620; 0.451277; 0.807581;, - -0.524583; 0.623890; 0.579241;, - -0.185369; 0.776360; 0.602374;, - -0.154210; 0.558733; 0.814844;, - -0.564745;-0.026124; 0.824824;, - -0.670461; 0.236946; 0.703055;, - -0.578722; 0.339000; 0.741691;, - -0.435499; 0.036561; 0.899441;, - -0.528764; 0.243843; 0.812952;, - -0.599475; 0.000000; 0.800378;, - -0.810053; 0.000000; 0.586322;, - -0.744438; 0.343852; 0.572314;, - 0.195624; 0.820093;-0.537706;, - -0.200018; 0.831935;-0.517533;, - -0.151738; 0.555071;-0.817805;, - 0.151738; 0.555071;-0.817805;, - -0.581317;-0.811762; 0.055208;, - 0.411267;-0.911466; 0.007202;, - -0.553270;-0.827113; 0.098636;, - -0.963286;-0.243660; 0.112522;, - -0.979003;-0.121586; 0.163518;, - -0.862423;-0.303964; 0.404736;, - -0.772942;-0.466659; 0.429792;, - -0.817652;-0.492080; 0.298746;, - -0.817652;-0.492080; 0.298746;, - -0.845149;-0.505478; 0.173681;, - -0.940947;-0.334147; 0.053926;, - -0.963286;-0.243660; 0.112522;, - -0.202521; 0.436964;-0.876370;, - 0.025666; 0.555742;-0.830927;, - -0.088748; 0.746971;-0.658895;, - -0.320658; 0.613880;-0.721305;, - 0.211890;-0.973479;-0.086154;, - 0.186132;-0.912168;-0.365062;, - 0.621326;-0.725425;-0.296060;, - 0.638630;-0.756523;-0.140629;, - 0.487075;-0.846370;-0.215339;, - 0.422926;-0.904691;-0.051302;, - 0.466445;-0.845119; 0.261025;, - 0.577899;-0.786920; 0.216193;, - 0.577899;-0.786920; 0.216193;, - 0.658376;-0.735130; 0.161504;, - 0.676473;-0.733390;-0.067080;, - 0.606220;-0.784661;-0.129490;, - 0.606220;-0.784661;-0.129490;, - -0.958098; 0.110569; 0.264138;, - -0.979003;-0.121586; 0.163518;, - -0.988464;-0.038545;-0.146306;, - -0.944731; 0.218268;-0.244484;, - -0.956847; 0.258339; 0.132786;, - -0.974914; 0.169622; 0.143925;, - 0.733818; 0.337718; 0.589435;, - 0.847438; 0.390637; 0.359508;, - 0.934111; 0.000000; 0.356914;, - 0.810053; 0.000000; 0.586322;, - 0.634541; 0.669759;-0.385693;, - 0.418195; 0.726493;-0.545213;, - 0.526536; 0.557085;-0.642170;, - 0.616871; 0.428266;-0.660298;, - 0.745201; 0.490463;-0.451735;, - -0.832209; 0.554216;-0.016266;, - -0.862331; 0.416395;-0.287973;, - -0.843440; 0.526078;-0.108676;, - -0.839778; 0.542253;-0.026246;, - 0.683126;-0.609638;-0.402020;, - 0.632405;-0.522660;-0.571703;, - 0.632405;-0.522660;-0.571703;, - 0.616108;-0.409589;-0.672750;, - 0.448988;-0.541276;-0.710898;, - 0.376629;-0.604175;-0.702200;, - 0.423902;-0.791345;-0.440474;, - 0.559160;-0.713187;-0.422712;, - 0.262703;-0.964690; 0.017457;, - 0.515915;-0.855922; 0.034639;, - 0.516831;-0.827815;-0.218116;, - 0.255013;-0.940184;-0.225776;, - 0.215369;-0.903531; 0.370434;, - 0.595752;-0.715171; 0.365459;, - 0.636860;-0.765557; 0.091067;, - 0.230567;-0.968627; 0.092441;, - 0.514145;-0.616230; 0.596545;, - 0.595752;-0.715171; 0.365459;, - 0.215369;-0.903531; 0.370434;, - 0.185369;-0.776360; 0.602405;, - 0.925687;-0.026704;-0.377300;, - 0.964202; 0.026490;-0.263710;, - 0.986175; 0.083041;-0.143162;, - 0.976104; 0.172948;-0.131504;, - 0.923154; 0.353099;-0.151921;, - 0.834010; 0.195532;-0.515885;, - 0.900632; 0.016449;-0.434248;, - 0.255531; 0.525742; 0.811304;, - 0.217597; 0.289804; 0.932005;, - 0.628346; 0.243324; 0.738884;, - 0.635365; 0.491379; 0.595630;, - -0.216102; 0.908170; 0.358440;, - 0.215369; 0.903531; 0.370434;, - 0.185369; 0.776360; 0.602374;, - -0.185369; 0.776360; 0.602374;, - -0.379101; 0.540391; 0.751122;, - -0.580279; 0.394147; 0.712638;, - -0.657155; 0.542680; 0.523087;, - -0.458480; 0.693747; 0.555376;, - -0.870205; 0.020020; 0.492233;, - -0.749596; 0.216712; 0.625355;, - -0.652547; 0.056551; 0.755608;, - -0.550035;-0.135411; 0.824061;, - -0.707419;-0.267190; 0.654286;, - -0.798730;-0.119968; 0.589587;, - -0.795465; 0.603931;-0.049623;, - -0.685751; 0.704764; 0.181616;, - -0.765282; 0.578295; 0.282601;, - -0.292367; 0.420148; 0.859035;, - -0.305307; 0.661367; 0.685080;, - 0.729545; 0.458083; 0.507797;, - 0.718589; 0.214118; 0.661611;, - -0.282113; 0.299417; 0.911435;, - -0.969268; 0.245857;-0.003449;, - -0.999481;-0.012818; 0.029084;, - -0.986969;-0.017609;-0.159917;, - -0.951872; 0.233772;-0.198096;, - -0.964354; 0.207221; 0.164525;, - -0.981079; 0.127323;-0.145817;, - -0.930845; 0.187628;-0.313517;, - -0.917478; 0.318491;-0.238289;, - -0.917478; 0.318491;-0.238289;, - -0.893887; 0.414869;-0.169713;, - -0.907498; 0.416272; 0.056185;, - -0.937803; 0.327738; 0.114231;, - -0.937803; 0.327738; 0.114231;, - 0.519913; 0.841609;-0.146062;, - 0.486282; 0.873470;-0.023103;, - 0.245827; 0.962249;-0.116733;, - 0.279366; 0.920133;-0.274300;, - 0.336253; 0.846644;-0.412427;, - 0.541765; 0.795801;-0.270394;, - -0.956847; 0.258339; 0.132786;, - -0.944731; 0.218268;-0.244484;, - -0.854274; 0.441389;-0.274514;, - -0.888119; 0.432905; 0.154271;, - 0.272195; 0.642445;-0.716330;, - 0.025666; 0.555742;-0.830927;, - 0.155736; 0.353771;-0.922239;, - 0.391095; 0.463637;-0.795007;, - -0.029878;-0.976165; 0.214820;, - -0.161779;-0.811853; 0.560961;, - 0.088748;-0.746971; 0.658895;, - 0.164495;-0.860164; 0.482711;, - 0.220801;-0.940519; 0.258065;, - -0.494400;-0.867397; 0.056215;, - -0.462325;-0.882473;-0.086520;, - -0.481918;-0.844325;-0.234107;, - -0.725333;-0.669851;-0.158483;, - -0.724479;-0.689291; 0.001007;, - -0.333781;-0.941618; 0.043794;, - -0.271676;-0.941588; 0.198859;, - 0.627888;-0.760888; 0.163610;, - 0.605823;-0.795251; 0.022950;, - -0.230567;-0.968627; 0.092441;, - -0.226112;-0.949553;-0.217200;, - -0.623707;-0.749565;-0.221595;, - -0.631581;-0.764641; 0.127903;, - -0.523606; 0.211737; 0.825220;, - -0.475539;-0.128239; 0.870266;, - -0.877560;-0.050203; 0.476791;, - -0.905118; 0.088992; 0.415723;, - 0.458480;-0.693747;-0.555376;, - 0.230750;-0.800897;-0.552507;, - 0.277383;-0.903623;-0.326273;, - 0.506607;-0.799860;-0.321757;, - -0.623402;-0.596362;-0.505631;, - -0.539781;-0.798639;-0.265999;, - -0.314432;-0.882443;-0.349864;, - -0.338115;-0.819300;-0.462996;, - -0.283151;-0.809107;-0.514878;, - -0.489914;-0.532731;-0.690023;, - 0.914640; 0.095889; 0.392651;, - 0.855434;-0.104831; 0.507157;, - 0.687368; 0.149449; 0.710746;, - 0.802515; 0.271706; 0.531114;, - 0.680807;-0.355358; 0.640431;, - -0.288430;-0.424024; 0.858455;, - -0.239753;-0.069155; 0.968352;, - 0.698050;-0.034822; 0.715171;, - -0.772576;-0.355937;-0.525712;, - -0.524552;-0.241737;-0.816309;, - -0.593921; 0.000000;-0.804498;, - -0.852412; 0.000000;-0.522843;, - -0.228584;-0.213538; 0.949797;, - -0.437788;-0.332469; 0.835322;, - -0.560259;-0.143345; 0.815790;, - -0.358440; 0.002686; 0.933531;, - 0.595752; 0.715171; 0.365459;, - 0.847438; 0.390637; 0.359508;, - 0.733818; 0.337718; 0.589435;, - 0.514145; 0.616230; 0.596545;, - -0.489914;-0.532731;-0.690023;, - -0.270180;-0.463454;-0.843898;, - -0.378491;-0.266091;-0.886502;, - -0.507920;-0.080233;-0.857631;, - -0.653493;-0.193060;-0.731864;, - -0.310831; 0.045381;-0.949370;, - -0.475753;-0.182226;-0.860469;, - -0.497848;-0.318674;-0.806574;, - -0.735557;-0.520188;-0.433943;, - -0.931211;-0.174688;-0.319773;, - -0.675558; 0.448500;-0.585162;, - -0.153905; 0.652394; 0.742058;, - -0.379101; 0.540391; 0.751122;, - -0.458480; 0.693747; 0.555376;, - -0.230781; 0.800897; 0.552507;, - -0.277383; 0.903623; 0.326273;, - -0.506638; 0.799829; 0.321757;, - -0.520249; 0.851436; 0.066225;, - -0.290567; 0.953581; 0.078829;, - 0.657949;-0.051027;-0.751305;, - 0.478408;-0.209967;-0.852657;, - 0.580279;-0.394147;-0.712638;, - 0.744652;-0.223029;-0.629048;, - -0.306070;-0.845576;-0.437330;, - -0.423902;-0.791345;-0.440474;, - -0.559160;-0.713187;-0.422712;, - -0.592669;-0.772301;-0.228584;, - -0.285531;-0.922147;-0.260842;, - -0.840785;-0.377728; 0.387738;, - -0.934111; 0.000000; 0.356914;, - -0.810053; 0.000000; 0.586322;, - -0.742515;-0.343638; 0.574938;, - 0.738670;-0.312143; 0.597400;, - 0.855434;-0.104831; 0.507157;, - 0.955809;-0.233192; 0.178838;, - 0.861080;-0.468673; 0.197058;, - 0.808161;-0.421094; 0.411756;, - -0.246345; 0.501236;-0.829493;, - -0.451735; 0.356243;-0.817927;, - -0.328684; 0.165838;-0.929746;, - -0.119266; 0.304575;-0.944975;, - -0.986175;-0.083071; 0.143162;, - -0.964202;-0.026490; 0.263710;, - -0.925687; 0.026704; 0.377331;, - -0.900632;-0.016449; 0.434248;, - -0.834010;-0.195532; 0.515885;, - -0.923154;-0.353099; 0.151921;, - -0.976104;-0.172948; 0.131504;, - -0.944731; 0.218268;-0.244484;, - -0.817286; 0.087497;-0.569506;, - -0.734550; 0.270363;-0.622333;, - -0.854274; 0.441389;-0.274514;, - -0.947600;-0.312204;-0.067507;, - -0.993927;-0.020142;-0.108066;, - -0.992828;-0.042879; 0.111484;, - -0.933897;-0.160955; 0.319163;, - -0.928556;-0.359691; 0.091372;, - 0.970885; 0.207739;-0.119205;, - 0.973418; 0.227668;-0.024171;, - 0.874691; 0.484634; 0.002838;, - 0.857479; 0.442701;-0.262093;, - 0.846370; 0.411481;-0.338115;, - -0.097659;-0.424055; 0.900327;, - -0.327738;-0.523881; 0.786187;, - -0.437788;-0.332469; 0.835322;, - -0.228584;-0.213538; 0.949797;, - 0.243446; 0.092563;-0.965484;, - 0.082247; 0.224189;-0.971038;, - 0.022919;-0.005066;-0.999695;, - 0.069216;-0.015259;-0.997467;, - 0.069216;-0.015259;-0.997467;, - 0.069216;-0.015259;-0.997467;, - 0.069216;-0.015259;-0.997467;, - 0.069216;-0.015259;-0.997467;, - 0.069216;-0.015259;-0.997467;, - -0.022919; 0.005066;-0.999695;, - -0.082247;-0.224189;-0.971038;, - 0.112888;-0.228797;-0.966887;, - 0.243171;-0.103885;-0.964385;, - 0.813471;-0.265755;-0.517289;, - 0.641926;-0.466231;-0.608692;, - 0.699942;-0.574694;-0.423994;, - 0.736534;-0.648122;-0.193487;, - 0.888119;-0.432905;-0.154271;, - -0.347545;-0.937346;-0.023164;, - -0.303598;-0.915555;-0.263649;, - -0.553423;-0.780663;-0.290262;, - -0.590075;-0.806360;-0.039613;, - -0.740898; 0.290628; 0.605457;, - -0.609638; 0.125523; 0.782647;, - -0.721305;-0.051637; 0.690664;, - -0.834010;-0.195532; 0.515885;, - -0.900632;-0.016449; 0.434248;, - -0.830897; 0.523362;-0.188879;, - -0.806024; 0.455031;-0.378460;, - -0.683523; 0.606555;-0.405988;, - -0.574725; 0.706809;-0.412397;, - -0.592669; 0.772301;-0.228584;, - -0.950713;-0.184423;-0.249153;, - -0.801386;-0.487625;-0.346324;, - -0.745628;-0.342204;-0.571734;, - -0.638722;-0.341594;-0.689413;, - 0.537614;-0.655049;-0.530900;, - 0.772271;-0.356029;-0.526109;, - 0.649831;-0.305429;-0.695975;, - 0.525101;-0.241707;-0.815973;, - 0.371380;-0.454024;-0.809870;, - 0.214179;-0.659688;-0.720328;, - -0.023652;-0.550645;-0.834376;, - -0.154729;-0.732047;-0.663411;, - 0.089053;-0.819605;-0.565935;, - 0.653218; 0.600116; 0.461654;, - 0.262825; 0.774071; 0.575915;, - 0.255531; 0.525742; 0.811304;, - 0.635365; 0.491379; 0.595630;, - -0.225318;-0.942686;-0.246010;, - -0.278878;-0.843287;-0.459395;, - -0.511399;-0.780725;-0.359020;, - -0.486587;-0.855220;-0.178350;, - -0.482742;-0.874874;-0.039247;, - -0.234993;-0.967864;-0.089328;, - -0.764977; 0.102481;-0.635823;, - -0.628224; 0.331065;-0.704062;, - -0.581103; 0.391217;-0.713614;, - -0.594989; 0.446944;-0.667989;, - -0.683523; 0.606555;-0.405988;, - -0.806024; 0.455031;-0.378460;, - -0.844722; 0.384381;-0.372326;, - -0.844722; 0.384381;-0.372326;, - -0.910092; 0.208258;-0.358226;, - -0.054384; 0.069979;-0.996063;, - -0.042726; 0.396985;-0.916807;, - 0.084140; 0.411359;-0.907559;, - 0.075533; 0.067354;-0.994842;, - 0.721305; 0.051637;-0.690664;, - 0.834010; 0.195532;-0.515885;, - 0.680990; 0.411023;-0.606006;, - 0.556993; 0.243751;-0.793908;, - -0.988464;-0.038545;-0.146306;, - -0.943785;-0.102023;-0.314371;, - -0.844661;-0.234413;-0.481185;, - -0.774438;-0.100162;-0.624653;, - -0.833979; 0.009339;-0.551683;, - -0.817286; 0.087497;-0.569506;, - -0.944731; 0.218268;-0.244484;, - 0.378491; 0.266091; 0.886502;, - 0.154424; 0.134892; 0.978729;, - 0.024171; 0.353984; 0.934904;, - 0.270180; 0.463454; 0.843898;, - -0.498520; 0.130528;-0.856960;, - -0.626118;-0.042940;-0.778527;, - -0.441054;-0.244484;-0.863521;, - -0.295083;-0.052767;-0.954009;, - -0.240303;-0.839167;-0.487869;, - -0.154729;-0.732047;-0.663411;, - -0.373882;-0.578417;-0.724967;, - -0.480178;-0.703604;-0.523759;, - 0.692557; 0.279733; 0.664876;, - -0.276101; 0.351634; 0.894467;, - -0.227973; 0.671346; 0.705161;, - 0.715812; 0.488174; 0.499252;, - -0.649159; 0.001343;-0.760613;, - -0.978484;-0.042451;-0.201849;, - -0.962066; 0.218390;-0.163366;, - -0.574114; 0.528306;-0.625477;, - -0.564898; 0.323313;-0.759148;, - -0.621815;-0.682760; 0.383557;, - -0.428449;-0.720664; 0.545000;, - -0.340892;-0.836207; 0.429518;, - -0.290170;-0.917753; 0.271035;, - -0.508286;-0.851680; 0.127476;, - -0.567492;-0.780358; 0.262520;, - 0.082461; 0.635914;-0.767296;, - 0.135502; 0.779504;-0.611530;, - 0.597552; 0.586718;-0.546464;, - 0.555986; 0.317362;-0.768181;, - 0.084140; 0.411359;-0.907559;, - 0.818751;-0.350291;-0.454848;, - 0.657155;-0.542650;-0.523087;, - 0.703757;-0.645405;-0.296854;, - 0.856288;-0.450148;-0.253182;, - -0.068758; 0.227241;-0.971404;, - 0.070681; 0.000000;-0.997497;, - 0.290567; 0.134678;-0.947295;, - 0.155736; 0.353771;-0.922239;, - 0.154424; 0.134892; 0.978729;, - 0.288919;-0.084841; 0.953551;, - 0.068758;-0.227241; 0.971404;, - -0.070681; 0.000000; 0.997497;, - 0.962767;-0.196966;-0.185034;, - 0.926603;-0.129002;-0.353130;, - 0.818751;-0.350291;-0.454848;, - 0.856288;-0.450148;-0.253182;, - 0.872555;-0.487655;-0.028748;, - 0.970489;-0.241005;-0.005585;, - 0.443251; 0.084567;-0.892361;, - 0.300882; 0.302103;-0.904508;, - 0.222968; 0.163854;-0.960936;, - 0.222968; 0.163854;-0.960936;, - 0.222968; 0.163854;-0.960936;, - 0.222968; 0.163854;-0.960936;, - 0.003754; 0.056154;-0.998413;, - 0.002960;-0.057588;-0.998321;, - 0.208930;-0.172338;-0.962615;, - 0.208930;-0.172338;-0.962615;, - 0.208930;-0.172338;-0.962615;, - 0.208930;-0.172338;-0.962615;, - 0.377209;-0.283731;-0.881558;, - 0.471145;-0.054872;-0.880306;, - 0.772942; 0.466659;-0.429792;, - 0.642079; 0.665609;-0.380322;, - 0.506516; 0.674459;-0.537126;, - 0.569628; 0.564501;-0.597339;, - 0.543870; 0.531541;-0.649312;, - 0.763939; 0.227302;-0.603870;, - 0.862423; 0.303964;-0.404736;, - 0.533738;-0.002075; 0.845607;, - 0.687368; 0.149449; 0.710746;, - 0.855434;-0.104831; 0.507157;, - 0.738670;-0.312143; 0.597400;, - 0.637806;-0.178259; 0.749229;, - -0.215369; 0.885342;-0.412000;, - -0.442579; 0.780938;-0.440657;, - -0.356609; 0.663686;-0.657491;, - -0.132115; 0.771813;-0.621937;, - -0.088748; 0.746971;-0.658895;, - 0.161779; 0.811853;-0.560961;, - 0.029878; 0.976165;-0.214820;, - -0.220801; 0.940519;-0.258065;, - -0.164495; 0.860164;-0.482711;, - -0.451735; 0.356243;-0.817927;, - -0.643086; 0.202338;-0.738548;, - -0.508042;-0.006623;-0.861263;, - -0.328684; 0.165838;-0.929746;, - 0.262825; 0.774071; 0.575915;, - 0.653218; 0.600116; 0.461654;, - 0.695761; 0.657765; 0.288522;, - 0.666005; 0.737144; 0.114078;, - 0.254158; 0.922666; 0.289956;, - 0.533769; 0.801874; 0.268471;, - 0.314432; 0.882443; 0.349864;, - 0.282144; 0.931730; 0.228523;, - 0.196844; 0.957549; 0.210486;, - 0.265023; 0.950346;-0.162938;, - 0.501785; 0.863735;-0.046022;, - 0.299966;-0.929563; 0.214179;, - 0.409619;-0.894955; 0.176672;, - -0.689810;-0.723655;-0.020783;, - -0.828944;-0.558946;-0.019898;, - -0.946013;-0.323557;-0.017914;, - -0.622181;-0.782830; 0.006867;, - -0.792810;-0.587970;-0.160283;, - 0.253029;-0.489303; 0.834559;, - 0.248054;-0.713645; 0.655080;, - 0.664144;-0.553514; 0.502487;, - 0.630696;-0.396496; 0.667043;, - 0.736534;-0.648122;-0.193487;, - 0.699942;-0.574694;-0.423994;, - 0.483993;-0.745506;-0.458144;, - 0.516831;-0.827815;-0.218116;, - 0.943571; 0.329691;-0.030274;, - 0.866604; 0.473739;-0.156621;, - 0.828272; 0.366985;-0.423383;, - 0.928465; 0.173772;-0.328166;, - 0.991546; 0.058565;-0.115604;, - 0.320414; 0.521165;-0.790979;, - 0.097659; 0.424055;-0.900327;, - 0.228584; 0.213538;-0.949797;, - 0.439497; 0.332011;-0.834590;, - 0.325297; 0.498062;-0.803797;, - 0.097659; 0.424055;-0.900327;, - 0.228584; 0.213538;-0.949797;, - 0.426710; 0.326334;-0.843440;, - 0.011414; 0.857295; 0.514634;, - -0.230781; 0.800897; 0.552477;, - -0.277383; 0.903623; 0.326273;, - -0.022340; 0.942595; 0.333140;, - 0.721305; 0.051637;-0.690664;, - 0.556993; 0.243751;-0.793908;, - 0.425794; 0.052644;-0.903256;, - 0.609638;-0.125523;-0.782647;, - 0.246590; 0.731407;-0.635762;, - 0.471603; 0.577136;-0.666677;, - 0.548509; 0.702292;-0.453749;, - 0.306467; 0.838282;-0.450911;, - -0.050356;-0.260140;-0.964232;, - 0.082736;-0.253029;-0.963897;, - 0.116214;-0.540422;-0.833308;, - -0.033296;-0.553941;-0.831874;, - -0.132145; 0.771813;-0.621937;, - -0.356609; 0.663717;-0.657460;, - -0.246345; 0.501236;-0.829493;, - -0.025361; 0.614460;-0.788507;, - 0.973418; 0.227668;-0.024171;, - 0.977691; 0.126469; 0.167608;, - 0.893094; 0.320475; 0.315653;, - 0.874691; 0.484634; 0.002838;, - -0.265053;-0.950346; 0.162938;, - -0.029878;-0.976165; 0.214820;, - -0.008606;-0.976592;-0.214789;, - -0.196844;-0.957549;-0.210486;, - -0.516098;-0.580309; 0.629933;, - -0.428449;-0.720664; 0.545000;, - -0.621815;-0.682760; 0.383557;, - -0.755394;-0.485458; 0.440077;, - -0.616871;-0.428266; 0.660298;, - -0.681570; 0.505844;-0.528703;, - -0.567614; 0.652608;-0.501846;, - -0.466445; 0.845119;-0.261025;, - -0.577899; 0.786920;-0.216193;, - -0.577899; 0.786920;-0.216193;, - -0.658376; 0.735130;-0.161504;, - -0.768853; 0.573626;-0.282388;, - -0.734428; 0.545610;-0.403546;, - -0.734428; 0.545610;-0.403546;, - -0.861812; 0.309366;-0.401868;, - -0.863582; 0.179205;-0.471267;, - -0.521897; 0.384930;-0.761193;, - -0.516587; 0.500229;-0.694876;, - -0.548570;-0.784814; 0.288247;, - -0.512040;-0.841151; 0.173986;, - -0.494400;-0.867397; 0.056215;, - -0.724479;-0.689291; 0.001007;, - -0.777520;-0.615436; 0.129093;, - -0.609973;-0.699606; 0.372082;, - 0.787622; 0.613849; 0.052919;, - 0.758110; 0.581988; 0.294137;, - 0.553423; 0.780663; 0.290231;, - 0.590075; 0.806360; 0.039613;, - -0.305307; 0.661367; 0.685080;, - -0.292367; 0.420148; 0.859035;, - -0.282113; 0.299417; 0.911435;, - -0.239753;-0.069155; 0.968352;, - -0.973357; 0.012879; 0.228919;, - -0.988739; 0.111850; 0.099155;, - 0.897763;-0.000580; 0.440443;, - 0.698050;-0.034822; 0.715171;, - 0.718589; 0.214118; 0.661611;, - 0.729545; 0.458083; 0.507797;, - 0.890652; 0.303385; 0.338633;, - 0.957701;-0.239051; 0.160131;, - 0.994476; 0.005829; 0.104556;, - 0.991546; 0.058565;-0.115604;, - 0.962767;-0.196966;-0.185034;, - 0.970489;-0.241005;-0.005585;, - 0.861873;-0.369152; 0.347606;, - 0.972869;-0.171514; 0.155156;, - 0.971313;-0.212867; 0.105838;, - 0.833003;-0.549516; 0.064089;, - 0.856197;-0.492996; 0.154332;, - 0.699942;-0.574694;-0.423994;, - 0.641926;-0.466231;-0.608692;, - 0.418592;-0.612690;-0.670339;, - 0.483993;-0.745506;-0.458144;, - -0.355022;-0.579608;-0.733451;, - -0.306894;-0.804376;-0.508652;, - -0.634724;-0.649251;-0.418989;, - -0.631855;-0.438734;-0.638905;, - 0.277383;-0.903623;-0.326273;, - 0.015748;-0.951048;-0.308542;, - 0.029969;-0.993408;-0.110416;, - 0.290567;-0.953581;-0.078829;, - -0.458480; 0.693747; 0.555376;, - -0.657155; 0.542650; 0.523087;, - -0.703757; 0.645375; 0.296854;, - -0.506638; 0.799829; 0.321757;, - 0.161779; 0.811853;-0.560961;, - -0.088748; 0.746971;-0.658895;, - 0.025666; 0.555742;-0.830927;, - 0.272195; 0.642445;-0.716330;, - -0.915311; 0.190954;-0.354534;, - -0.951872; 0.233772;-0.198096;, - -0.986969;-0.017609;-0.159917;, - -0.920713;-0.102268;-0.376507;, - -0.861415; 0.118107;-0.493942;, - -0.960356;-0.131748;-0.245552;, - -0.976104;-0.172948; 0.131504;, - -0.923154;-0.353099; 0.151921;, - -0.890133;-0.361858;-0.276955;, - 0.306467; 0.838282;-0.450911;, - 0.548509; 0.702292;-0.453749;, - 0.588488; 0.779839;-0.213294;, - 0.337718; 0.915098;-0.220191;, - -0.471145;-0.054872;-0.880337;, - -0.609302;-0.148045;-0.778954;, - -0.609302;-0.148045;-0.778954;, - -0.702506;-0.145665;-0.696585;, - -0.749474;-0.282601;-0.598621;, - -0.624897;-0.403088;-0.668569;, - -0.448988;-0.541276;-0.710898;, - -0.443129;-0.413099;-0.795556;, - -0.322062;-0.424116;-0.846370;, - -0.354045;-0.332652;-0.874050;, - -0.365246;-0.284707;-0.886288;, - -0.629383; 0.773034; 0.079165;, - -0.548570; 0.778314; 0.305399;, - -0.546190; 0.728507; 0.413434;, - -0.962188; 0.195715; 0.189276;, - -0.960784; 0.260231; 0.095676;, - -0.762230; 0.172643;-0.623798;, - -0.820276; 0.311686;-0.479537;, - -0.930845; 0.187628;-0.313517;, - -0.981079; 0.127323;-0.145817;, - -0.960356;-0.131748;-0.245552;, - -0.821680;-0.010834;-0.569811;, - -0.831355; 0.068392;-0.551500;, - -0.712027;-0.674917;-0.193487;, - 0.043031;-0.360057; 0.931913;, - 0.043031;-0.360057; 0.931913;, - -0.712027;-0.674947;-0.193457;, - -0.530717; 0.817988;-0.221809;, - -0.745567; 0.565996;-0.351726;, - -0.745567; 0.565996;-0.351726;, - -0.745567; 0.565996;-0.351726;, - -0.745567; 0.565996;-0.351726;, - -0.755974; 0.570360;-0.321177;, - -0.889981; 0.403607;-0.212073;, - -0.772698; 0.355998;-0.525529;, - -0.548357; 0.660939;-0.512253;, - -0.819605; 0.526841;-0.225043;, - 0.215369;-0.885342; 0.412000;, - -0.025330;-0.933653; 0.357250;, - -0.108707;-0.832148; 0.543779;, - 0.132145;-0.771813; 0.621937;, - -0.195624;-0.820093;-0.537706;, - -0.151738;-0.555071;-0.817805;, - -0.376232;-0.447279;-0.811365;, - -0.542009;-0.650258;-0.532304;, - 0.506516; 0.674459;-0.537126;, - 0.642079; 0.665609;-0.380322;, - 0.554277; 0.804437;-0.213569;, - 0.501785; 0.863735;-0.046022;, - 0.265023; 0.950346;-0.162938;, - 0.355022; 0.796350;-0.489639;, - 0.429853; 0.773553;-0.465590;, - 0.734428;-0.545610; 0.403546;, - 0.681600;-0.505844; 0.528703;, - 0.820276;-0.311686; 0.479537;, - 0.930845;-0.187628; 0.313517;, - 0.917478;-0.318461; 0.238289;, - 0.917478;-0.318461; 0.238289;, - 0.893887;-0.414869; 0.169713;, - 0.768883;-0.573626; 0.282388;, - 0.734428;-0.545610; 0.403546;, - 0.533341;-0.287362;-0.795556;, - 0.323710;-0.436232;-0.839564;, - 0.418592;-0.612690;-0.670339;, - 0.641926;-0.466231;-0.608692;, - -0.670461; 0.236946; 0.703055;, - -0.759423; 0.471694; 0.448012;, - -0.677633; 0.568102; 0.466933;, - -0.578722; 0.339000; 0.741691;, - 0.524644;-0.113834; 0.843654;, - 0.612140;-0.354350; 0.706870;, - 0.612140;-0.354350; 0.706870;, - 0.524644;-0.113834; 0.843654;, - -0.494644; 0.573809; 0.652699;, - -0.348552; 0.491653; 0.797967;, - -0.473312; 0.303385; 0.826960;, - -0.609638; 0.125523; 0.782647;, - -0.740898; 0.290628; 0.605457;, - -0.633473; 0.255074;-0.730491;, - -0.498520; 0.130528;-0.856960;, - -0.353008; 0.304300;-0.884732;, - -0.227607; 0.490890;-0.840938;, - -0.440291; 0.578478;-0.686605;, - -0.841090;-0.108463;-0.529832;, - -0.845119; 0.060152;-0.531144;, - -0.857814; 0.230293;-0.459395;, - -0.862850; 0.331126;-0.381848;, - -0.991211; 0.117588;-0.060213;, - -0.998962;-0.016572;-0.042268;, - -0.998932;-0.016877;-0.042329;, - -0.998932;-0.016877;-0.042329;, - -0.993561;-0.058992;-0.096438;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - 0.043703;-0.612873;-0.788934;, - -0.993408;-0.109439; 0.033509;, - -0.681356;-0.688131; 0.249367;, - -0.867153;-0.497482;-0.022217;, - -0.936827;-0.343608;-0.065310;, - -0.950713;-0.184423;-0.249153;, - -0.858425;-0.237648;-0.454482;, - -0.336802;-0.768853; 0.543474;, - -0.336680;-0.679708; 0.651631;, - 0.688070;-0.545610; 0.478347;, - 0.689901;-0.680837; 0.245857;, - -0.230750;-0.935270; 0.268319;, - 0.230567;-0.968627; 0.092441;, - 0.636860;-0.765557; 0.091067;, - 0.624836;-0.750786;-0.214087;, - 0.226112;-0.949553;-0.217200;, - -0.548357; 0.660939;-0.512253;, - -0.376232; 0.447279;-0.811365;, - -0.151738; 0.555071;-0.817805;, - -0.200018; 0.831935;-0.517533;, - -0.620045; 0.041566;-0.783441;, - -0.424787; 0.044252;-0.904172;, - -0.458571; 0.364818;-0.810297;, - -0.691671; 0.264321;-0.672079;, - 0.621326;-0.725425;-0.296060;, - 0.611011;-0.589099;-0.528764;, - 0.536241;-0.647664;-0.541215;, - 0.566729;-0.764061;-0.308206;, - 0.580309;-0.796777;-0.168401;, - 0.599292;-0.798059; 0.062685;, - 0.672506;-0.737175; 0.065096;, - 0.638630;-0.756523;-0.140629;, - -0.934111; 0.000000; 0.356914;, - -0.843287; 0.377697; 0.382336;, - -0.744438; 0.343852; 0.572314;, - -0.810053; 0.000000; 0.586322;, - 0.714042;-0.111301;-0.691183;, - 0.533341;-0.287362;-0.795556;, - 0.641926;-0.466231;-0.608692;, - 0.813471;-0.265755;-0.517289;, - -0.564898; 0.323313;-0.759148;, - -0.458571; 0.364818;-0.810297;, - -0.424787; 0.044252;-0.904172;, - -0.649159; 0.001343;-0.760613;, - 0.217597; 0.289804; 0.932005;, - 0.165197; 0.126041; 0.978149;, - 0.210974;-0.165410; 0.963378;, - 0.625141;-0.136021; 0.768548;, - 0.628346; 0.243324; 0.738884;, - 0.893094; 0.320475; 0.315653;, - 0.977691; 0.126469; 0.167608;, - 0.975860;-0.047212; 0.213172;, - 0.854274;-0.171941; 0.490524;, - 0.872555; 0.048616; 0.486068;, - 0.803644;-0.568133;-0.177099;, - 0.676473;-0.733390;-0.067080;, - 0.658376;-0.735130; 0.161504;, - 0.768883;-0.573626; 0.282388;, - 0.893887;-0.414869; 0.169713;, - 0.909909;-0.411267;-0.053621;, - -0.791314;-0.581164; 0.189795;, - -0.748375;-0.512711; 0.420728;, - -0.548509;-0.702292; 0.453749;, - -0.588488;-0.779839; 0.213294;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.998596; 0.007538; 0.051973;, - 0.971313;-0.212867; 0.105838;, - 0.972869;-0.171514; 0.155156;, - 0.975860;-0.047212; 0.213172;, - 0.977691; 0.126469; 0.167608;, - 0.973418; 0.227668;-0.024171;, - 0.970885; 0.207739;-0.119205;, - 0.998596; 0.007538; 0.051973;, - 0.256630; 0.427808;-0.866665;, - 0.011383; 0.483993;-0.874966;, - 0.022584; 0.337718;-0.940947;, - 0.022584; 0.337718;-0.940947;, - 0.022584; 0.337718;-0.940947;, - 0.022584; 0.337718;-0.940947;, - 0.003754; 0.056154;-0.998413;, - 0.222968; 0.163854;-0.960936;, - 0.222968; 0.163854;-0.960936;, - 0.222968; 0.163854;-0.960936;, - 0.222968; 0.163854;-0.960936;, - 0.300882; 0.302103;-0.904508;, - -0.274026; 0.308237;-0.910977;, - -0.200812; 0.172155;-0.964354;, - -0.200812; 0.172155;-0.964354;, - -0.200812; 0.172155;-0.964354;, - -0.200812; 0.172155;-0.964354;, - 0.003754; 0.056154;-0.998413;, - 0.022584; 0.337718;-0.940947;, - 0.022584; 0.337718;-0.940947;, - 0.022584; 0.337718;-0.940947;, - 0.022584; 0.337718;-0.940947;, - 0.011383; 0.483993;-0.874966;, - -0.207190; 0.425977;-0.880673;, - -0.292764; 0.359142;-0.886135;, - 0.047121; 0.802332; 0.594989;, - -0.585284; 0.595508; 0.550218;, - -0.546190; 0.728507; 0.413434;, - -0.548570; 0.778314; 0.305399;, - 0.024689; 0.949248; 0.313486;, - 0.672506;-0.737175; 0.065096;, - 0.599292;-0.798059; 0.062685;, - 0.587451;-0.740562; 0.326243;, - 0.597613;-0.597674; 0.534410;, - 0.664144;-0.553514; 0.502487;, - 0.641713;-0.719535; 0.265389;; - 1148; - 4;0;1;2;3;, - 4;4;5;6;7;, - 4;8;9;10;11;, - 4;12;13;14;15;, - 4;16;17;18;19;, - 4;20;21;22;23;, - 6;24;25;26;27;28;29;, - 4;30;31;32;33;, - 5;34;35;36;37;38;, - 5;39;40;41;42;43;, - 6;44;45;46;47;48;49;, - 4;50;51;52;53;, - 4;54;55;56;57;, - 3;58;59;60;, - 4;61;62;63;64;, - 4;65;66;67;68;, - 4;69;70;71;72;, - 4;73;74;75;76;, - 6;77;78;79;80;81;82;, - 4;83;84;85;86;, - 3;87;88;89;, - 4;90;91;92;93;, - 4;94;95;96;97;, - 4;98;99;100;101;, - 5;102;103;104;105;106;, - 5;107;108;109;110;111;, - 9;112;113;114;115;116;117;118;119;120;, - 6;121;122;123;124;125;126;, - 4;127;128;129;130;, - 4;131;132;133;134;, - 4;135;136;137;138;, - 4;139;140;141;142;, - 12;143;144;145;146;147;148;149;150;151;152;153;154;, - 7;155;156;157;158;159;160;161;, - 8;162;163;164;165;166;167;168;169;, - 6;170;171;172;173;174;175;, - 3;176;177;178;, - 6;179;180;181;182;183;184;, - 4;185;186;187;188;, - 4;189;190;191;192;, - 4;193;194;195;196;, - 4;197;198;199;200;, - 3;201;202;203;, - 6;204;205;206;207;208;209;, - 4;210;211;212;213;, - 4;214;215;216;217;, - 4;218;219;220;221;, - 5;222;223;224;225;226;, - 4;227;228;229;230;, - 4;231;232;233;234;, - 7;235;236;237;238;239;240;241;, - 4;242;243;244;245;, - 5;246;247;248;249;250;, - 5;251;252;253;254;255;, - 8;256;257;258;259;260;261;262;263;, - 4;264;265;266;267;, - 4;268;269;270;271;, - 4;272;273;274;275;, - 4;276;277;278;279;, - 4;280;281;282;283;, - 4;284;285;286;287;, - 6;288;289;290;291;292;293;, - 5;294;295;296;297;298;, - 7;299;300;301;302;303;304;305;, - 4;306;307;308;309;, - 4;310;311;312;313;, - 5;314;315;316;317;318;, - 7;319;320;321;322;323;324;325;, - 9;326;327;328;329;330;331;332;333;334;, - 4;335;336;337;338;, - 4;339;340;341;342;, - 6;343;344;345;346;347;348;, - 5;349;350;351;352;353;, - 4;354;355;356;357;, - 4;358;359;360;361;, - 4;362;363;364;365;, - 7;366;367;368;369;370;371;372;, - 4;373;374;375;376;, - 4;377;378;379;380;, - 10;381;382;383;384;385;386;387;388;389;390;, - 5;391;392;393;394;395;, - 3;396;397;398;, - 4;399;400;401;402;, - 4;403;404;405;406;, - 4;407;408;409;410;, - 3;411;412;413;, - 4;414;415;416;417;, - 4;418;419;420;421;, - 8;422;423;424;425;426;427;428;429;, - 3;430;431;432;, - 6;433;434;435;436;437;438;, - 6;439;440;441;442;443;444;, - 8;445;446;447;448;449;450;451;452;, - 6;453;454;455;456;457;458;, - 4;459;460;461;462;, - 6;463;464;465;466;467;468;, - 4;469;470;471;472;, - 4;473;474;475;476;, - 23;477;478;479;480;481;482;483;484;485;486;487;488;489;490;491;492;493;494;495;496;497;498;499;, - 4;500;501;502;503;, - 6;504;505;506;507;508;509;, - 4;510;511;512;513;, - 4;514;515;516;517;, - 5;518;519;520;521;522;, - 3;523;524;525;, - 3;526;527;528;, - 4;529;530;531;532;, - 4;533;534;535;536;, - 3;537;538;539;, - 5;540;541;542;543;544;, - 5;545;546;547;548;549;, - 4;550;551;552;553;, - 4;554;555;556;557;, - 5;558;559;560;561;562;, - 3;563;564;565;, - 3;566;567;568;, - 4;569;570;571;572;, - 4;573;574;575;576;, - 4;577;578;579;580;, - 4;581;582;583;584;, - 5;585;586;587;588;589;, - 4;590;591;592;593;, - 20;594;595;596;597;598;599;600;601;602;603;604;605;606;607;608;609;610;611;612;613;, - 5;614;615;616;617;618;, - 15;619;620;621;622;623;624;625;626;627;628;629;630;631;632;633;, - 4;634;635;636;637;, - 3;638;639;640;, - 4;641;642;643;644;, - 5;645;646;647;648;649;, - 4;650;651;652;653;, - 6;654;655;656;657;658;659;, - 4;660;661;662;663;, - 9;664;665;666;667;668;669;670;671;672;, - 4;673;674;675;676;, - 4;677;678;679;680;, - 4;681;682;683;684;, - 5;685;686;687;688;689;, - 4;690;691;692;693;, - 4;694;695;696;697;, - 9;698;699;700;701;702;703;704;705;706;, - 4;707;708;709;710;, - 3;711;712;713;, - 4;714;715;716;717;, - 4;718;719;720;721;, - 3;722;723;724;, - 3;725;726;727;, - 4;728;729;730;731;, - 4;732;733;734;735;, - 4;736;737;738;739;, - 4;740;741;742;743;, - 4;744;745;746;747;, - 3;748;749;750;, - 7;751;752;753;754;755;756;757;, - 4;758;759;760;761;, - 4;762;763;764;765;, - 4;766;767;768;769;, - 5;770;771;772;773;774;, - 8;775;776;777;778;779;780;781;782;, - 4;783;784;785;786;, - 4;787;788;789;790;, - 4;791;792;793;794;, - 4;795;796;797;798;, - 4;799;800;801;802;, - 4;803;804;805;806;, - 8;807;808;809;810;811;812;813;814;, - 4;815;816;817;818;, - 4;819;820;821;822;, - 5;823;824;825;826;827;, - 4;828;829;830;831;, - 6;832;833;834;835;836;837;, - 9;838;839;840;841;842;843;844;845;846;, - 4;847;848;849;850;, - 4;851;852;853;854;, - 6;855;856;857;858;859;860;, - 4;861;862;863;864;, - 4;865;866;867;868;, - 4;869;870;871;872;, - 4;873;874;875;876;, - 5;877;878;879;880;881;, - 4;882;883;884;885;, - 6;886;887;888;889;890;891;, - 5;892;893;894;895;896;, - 4;897;898;899;900;, - 4;901;902;903;904;, - 4;905;906;907;908;, - 4;909;910;911;912;, - 4;913;914;915;916;, - 5;917;918;919;920;921;, - 4;922;923;924;925;, - 6;926;927;928;929;930;931;, - 5;932;933;934;935;936;, - 4;937;938;939;940;, - 4;941;942;943;944;, - 4;945;946;947;948;, - 23;949;950;951;952;953;954;955;956;957;958;959;960;961;962;963;964;965;966;967;968;969;970;971;, - 4;972;973;974;975;, - 10;976;977;978;979;980;981;982;983;984;985;, - 4;986;987;988;989;, - 17;990;991;992;993;994;995;996;997;998;999;1000;1001;1002;1003;1004;1005;1006;, - 5;1007;1008;1009;1010;1011;, - 21;1012;1013;1014;1015;1016;1017;1018;1019;1020;1021;1022;1023;1024;1025;1026;1027;1028;1029;1030;1031;1032;, - 4;1033;1034;1035;1036;, - 5;1037;1038;1039;1040;1041;, - 5;1042;1043;1044;1045;1046;, - 4;1047;1048;1049;1050;, - 5;1051;1052;1053;1054;1055;, - 4;1056;1057;1058;1059;, - 5;1060;1061;1062;1063;1064;, - 4;1065;1066;1067;1068;, - 4;1069;1070;1071;1072;, - 4;1073;1074;1075;1076;, - 8;1077;1078;1079;1080;1081;1082;1083;1084;, - 6;1085;1086;1087;1088;1089;1090;, - 4;1091;1092;1093;1094;, - 3;1095;1096;1097;, - 5;1098;1099;1100;1101;1102;, - 3;1103;1104;1105;, - 4;1106;1107;1108;1109;, - 5;1110;1111;1112;1113;1114;, - 4;1115;1116;1117;1118;, - 4;1119;1120;1121;1122;, - 5;1123;1124;1125;1126;1127;, - 3;1128;1129;1130;, - 3;1131;1132;1133;, - 4;1134;1135;1136;1137;, - 4;1138;1139;1140;1141;, - 5;1142;1143;1144;1145;1146;, - 4;1147;1148;1149;1150;, - 4;1151;1152;1153;1154;, - 4;1155;1156;1157;1158;, - 3;1159;1160;1161;, - 4;1162;1163;1164;1165;, - 5;1166;1167;1168;1169;1170;, - 4;1171;1172;1173;1174;, - 5;1175;1176;1177;1178;1179;, - 4;1180;1181;1182;1183;, - 3;1184;1185;1186;, - 20;1187;1188;1189;1190;1191;1192;1193;1194;1195;1196;1197;1198;1199;1200;1201;1202;1203;1204;1205;1206;, - 5;1207;1208;1209;1210;1211;, - 5;1212;1213;1214;1215;1216;, - 4;1217;1218;1219;1220;, - 5;1221;1222;1223;1224;1225;, - 4;1226;1227;1228;1229;, - 4;1230;1231;1232;1233;, - 4;1234;1235;1236;1237;, - 17;1238;1239;1240;1241;1242;1243;1244;1245;1246;1247;1248;1249;1250;1251;1252;1253;1254;, - 9;1255;1256;1257;1258;1259;1260;1261;1262;1263;, - 4;1264;1265;1266;1267;, - 4;1268;1269;1270;1271;, - 4;1272;1273;1274;1275;, - 6;1276;1277;1278;1279;1280;1281;, - 4;1282;1283;1284;1285;, - 4;1286;1287;1288;1289;, - 4;1290;1291;1292;1293;, - 5;1294;1295;1296;1297;1298;, - 4;1299;1300;1301;1302;, - 4;1303;1304;1305;1306;, - 7;1307;1308;1309;1310;1311;1312;1313;, - 4;1314;1315;1316;1317;, - 4;1318;1319;1320;1321;, - 4;1322;1323;1324;1325;, - 4;1326;1327;1328;1329;, - 4;1330;1331;1332;1333;, - 5;1334;1335;1336;1337;1338;, - 4;1339;1340;1341;1342;, - 5;1343;1344;1345;1346;1347;, - 4;1348;1349;1350;1351;, - 9;1352;1353;1354;1355;1356;1357;1358;1359;1360;, - 4;1361;1362;1363;1364;, - 5;1365;1366;1367;1368;1369;, - 5;1370;1371;1372;1373;1374;, - 5;1375;1376;1377;1378;1379;, - 4;1380;1381;1382;1383;, - 12;1384;1385;1386;1387;1388;1389;1390;1391;1392;1393;1394;1395;, - 4;1396;1397;1398;1399;, - 4;1400;1401;1402;1403;, - 4;1404;1405;1406;1407;, - 4;1408;1409;1410;1411;, - 4;1412;1413;1414;1415;, - 4;1416;1417;1418;1419;, - 8;1420;1421;1422;1423;1424;1425;1426;1427;, - 4;1428;1429;1430;1431;, - 4;1432;1433;1434;1435;, - 5;1436;1437;1438;1439;1440;, - 4;1441;1442;1443;1444;, - 4;1445;1446;1447;1448;, - 4;1449;1450;1451;1452;, - 4;1453;1454;1455;1456;, - 4;1457;1458;1459;1460;, - 4;1461;1462;1463;1464;, - 4;1465;1466;1467;1468;, - 4;1469;1470;1471;1472;, - 4;1473;1474;1475;1476;, - 4;1477;1478;1479;1480;, - 4;1481;1482;1483;1484;, - 4;1485;1486;1487;1488;, - 7;1489;1490;1491;1492;1493;1494;1495;, - 4;1496;1497;1498;1499;, - 4;1500;1501;1502;1503;, - 7;1504;1505;1506;1507;1508;1509;1510;, - 4;1511;1512;1513;1514;, - 4;1515;1516;1517;1518;, - 4;1519;1520;1521;1522;, - 5;1523;1524;1525;1526;1527;, - 5;1528;1529;1530;1531;1532;, - 4;1533;1534;1535;1536;, - 4;1537;1538;1539;1540;, - 4;1541;1542;1543;1544;, - 4;1545;1546;1547;1548;, - 6;1549;1550;1551;1552;1553;1554;, - 4;1555;1556;1557;1558;, - 4;1559;1560;1561;1562;, - 4;1563;1564;1565;1566;, - 4;1567;1568;1569;1570;, - 4;1571;1572;1573;1574;, - 7;1575;1576;1577;1578;1579;1580;1581;, - 4;1582;1583;1584;1585;, - 4;1586;1587;1588;1589;, - 8;1590;1591;1592;1593;1594;1595;1596;1597;, - 6;1598;1599;1600;1601;1602;1603;, - 5;1604;1605;1606;1607;1608;, - 4;1609;1610;1611;1612;, - 8;1613;1614;1615;1616;1617;1618;1619;1620;, - 4;1621;1622;1623;1624;, - 4;1625;1626;1627;1628;, - 5;1629;1630;1631;1632;1633;, - 4;1634;1635;1636;1637;, - 4;1638;1639;1640;1641;, - 4;1642;1643;1644;1645;, - 4;1646;1647;1648;1649;, - 5;1650;1651;1652;1653;1654;, - 4;1655;1656;1657;1658;, - 4;1659;1660;1661;1662;, - 6;1663;1664;1665;1666;1667;1668;, - 5;1669;1670;1671;1672;1673;, - 4;1674;1675;1676;1677;, - 4;1678;1679;1680;1681;, - 4;1682;1683;1684;1685;, - 4;1686;1687;1688;1689;, - 4;1690;1691;1692;1693;, - 5;1694;1695;1696;1697;1698;, - 4;1699;1700;1701;1702;, - 4;1703;1704;1705;1706;, - 7;1707;1708;1709;1710;1711;1712;1713;, - 4;1714;1715;1716;1717;, - 4;1718;1719;1720;1721;, - 4;1722;1723;1724;1725;, - 5;1726;1727;1728;1729;1730;, - 4;1731;1732;1733;1734;, - 4;1735;1736;1737;1738;, - 5;1739;1740;1741;1742;1743;, - 4;1744;1745;1746;1747;, - 5;1748;1749;1750;1751;1752;, - 4;1753;1754;1755;1756;, - 6;1757;1758;1759;1760;1761;1762;, - 4;1763;1764;1765;1766;, - 12;1767;1768;1769;1770;1771;1772;1773;1774;1775;1776;1777;1778;, - 4;1779;1780;1781;1782;, - 4;1783;1784;1785;1786;, - 4;1787;1788;1789;1790;, - 6;1791;1792;1793;1794;1795;1796;, - 5;1797;1798;1799;1800;1801;, - 4;1802;1803;1804;1805;, - 4;1806;1807;1808;1809;, - 4;1810;1811;1812;1813;, - 6;1814;1815;1816;1817;1818;1819;, - 7;1820;1821;1822;1823;1824;1825;1826;, - 8;1827;1828;1829;1830;1831;1832;1833;1834;, - 4;1835;1836;1837;1838;, - 4;1839;1840;1841;1842;, - 4;1843;1844;1845;1846;, - 4;1847;1848;1849;1850;, - 6;1851;1852;1853;1854;1855;1856;, - 4;1857;1858;1859;1860;, - 4;1861;1862;1863;1864;, - 4;1865;1866;1867;1868;, - 4;1869;1870;1871;1872;, - 5;1873;1874;1875;1876;1877;, - 4;1878;1879;1880;1881;, - 4;1882;1883;1884;1885;, - 5;1886;1887;1888;1889;1890;, - 5;1891;1892;1893;1894;1895;, - 4;1896;1897;1898;1899;, - 5;1900;1901;1902;1903;1904;, - 4;1905;1906;1907;1908;, - 4;1909;1910;1911;1912;, - 7;1913;1914;1915;1916;1917;1918;1919;, - 4;1920;1921;1922;1923;, - 4;1924;1925;1926;1927;, - 5;1928;1929;1930;1931;1932;, - 4;1933;1934;1935;1936;, - 4;1937;1938;1939;1940;, - 4;1941;1942;1943;1944;, - 4;1945;1946;1947;1948;, - 4;1949;1950;1951;1952;, - 4;1953;1954;1955;1956;, - 7;1957;1958;1959;1960;1961;1962;1963;, - 4;1964;1965;1966;1967;, - 9;1968;1969;1970;1971;1972;1973;1974;1975;1976;, - 4;1977;1978;1979;1980;, - 9;1981;1982;1983;1984;1985;1986;1987;1988;1989;, - 4;1990;1991;1992;1993;, - 4;1994;1995;1996;1997;, - 4;1998;1999;2000;2001;, - 4;2002;2003;2004;2005;, - 5;2006;2007;2008;2009;2010;, - 5;2011;2012;2013;2014;2015;, - 4;2016;2017;2018;2019;, - 5;2020;2021;2022;2023;2024;, - 9;2025;2026;2027;2028;2029;2030;2031;2032;2033;, - 4;2034;2035;2036;2037;, - 4;2038;2039;2040;2041;, - 4;2042;2043;2044;2045;, - 4;2046;2047;2048;2049;, - 4;2050;2051;2052;2053;, - 4;2054;2055;2056;2057;, - 4;2058;2059;2060;2061;, - 4;2062;2063;2064;2065;, - 4;2066;2067;2068;2069;, - 4;2070;2071;2072;2073;, - 4;2074;2075;2076;2077;, - 5;2078;2079;2080;2081;2082;, - 7;2083;2084;2085;2086;2087;2088;2089;, - 4;2090;2091;2092;2093;, - 4;2094;2095;2096;2097;, - 5;2098;2099;2100;2101;2102;, - 4;2103;2104;2105;2106;, - 4;2107;2108;2109;2110;, - 6;2111;2112;2113;2114;2115;2116;, - 3;2117;2118;2119;, - 4;2120;2121;2122;2123;, - 4;2124;2125;2126;2127;, - 6;2128;2129;2130;2131;2132;2133;, - 4;2134;2135;2136;2137;, - 6;2138;2139;2140;2141;2142;2143;, - 7;2144;2145;2146;2147;2148;2149;2150;, - 4;2151;2152;2153;2154;, - 4;2155;2156;2157;2158;, - 7;2159;2160;2161;2162;2163;2164;2165;, - 4;2166;2167;2168;2169;, - 7;2170;2171;2172;2173;2174;2175;2176;, - 4;2177;2178;2179;2180;, - 4;2181;2182;2183;2184;, - 4;2185;2186;2187;2188;, - 4;2189;2190;2191;2192;, - 4;2193;2194;2195;2196;, - 5;2197;2198;2199;2200;2201;, - 4;2202;2203;2204;2205;, - 5;2206;2207;2208;2209;2210;, - 11;2211;2212;2213;2214;2215;2216;2217;2218;2219;2220;2221;, - 4;2222;2223;2224;2225;, - 4;2226;2227;2228;2229;, - 5;2230;2231;2232;2233;2234;, - 6;2235;2236;2237;2238;2239;2240;, - 4;2241;2242;2243;2244;, - 4;2245;2246;2247;2248;, - 8;2249;2250;2251;2252;2253;2254;2255;2256;, - 4;2257;2258;2259;2260;, - 5;2261;2262;2263;2264;2265;, - 4;2266;2267;2268;2269;, - 4;2270;2271;2272;2273;, - 4;2274;2275;2276;2277;, - 7;2278;2279;2280;2281;2282;2283;2284;, - 4;2285;2286;2287;2288;, - 4;2289;2290;2291;2292;, - 5;2293;2294;2295;2296;2297;, - 4;2298;2299;2300;2301;, - 5;2302;2303;2304;2305;2306;, - 4;2307;2308;2309;2310;, - 5;2311;2312;2313;2314;2315;, - 4;2316;2317;2318;2319;, - 4;2320;2321;2322;2323;, - 4;2324;2325;2326;2327;, - 4;2328;2329;2330;2331;, - 5;2332;2333;2334;2335;2336;, - 4;2337;2338;2339;2340;, - 4;2341;2342;2343;2344;, - 4;2345;2346;2347;2348;, - 6;2349;2350;2351;2352;2353;2354;, - 6;2355;2356;2357;2358;2359;2360;, - 4;2361;2362;2363;2364;, - 9;2365;2366;2367;2368;2369;2370;2371;2372;2373;, - 4;2374;2375;2376;2377;, - 6;2378;2379;2380;2381;2382;2383;, - 4;2384;2385;2386;2387;, - 4;2388;2389;2390;2391;, - 4;2392;2393;2394;2395;, - 4;2396;2397;2398;2399;, - 4;2400;2401;2402;2403;, - 4;2404;2405;2406;2407;, - 6;2408;2409;2410;2411;2412;2413;, - 6;2414;2415;2416;2417;2418;2419;, - 5;2420;2421;2422;2423;2424;, - 6;2425;2426;2427;2428;2429;2430;, - 4;2431;2432;2433;2434;, - 9;2435;2436;2437;2438;2439;2440;2441;2442;2443;, - 5;2444;2445;2446;2447;2448;, - 5;2449;2450;2451;2452;2453;, - 4;2454;2455;2456;2457;, - 8;2458;2459;2460;2461;2462;2463;2464;2465;, - 4;2466;2467;2468;2469;, - 4;2470;2471;2472;2473;, - 6;2474;2475;2476;2477;2478;2479;, - 4;2480;2481;2482;2483;, - 4;2484;2485;2486;2487;, - 4;2488;2489;2490;2491;, - 4;2492;2493;2494;2495;, - 4;2496;2497;2498;2499;, - 6;2500;2501;2502;2503;2504;2505;, - 4;2506;2507;2508;2509;, - 4;2510;2511;2512;2513;, - 5;2514;2515;2516;2517;2518;, - 4;2519;2520;2521;2522;, - 4;2523;2524;2525;2526;, - 4;2527;2528;2529;2530;, - 5;2531;2532;2533;2534;2535;, - 14;2536;2537;2538;2539;2540;2541;2542;2543;2544;2545;2546;2547;2548;2549;, - 5;2550;2551;2552;2553;2554;, - 4;2555;2556;2557;2558;, - 7;2559;2560;2561;2562;2563;2564;2565;, - 4;2566;2567;2568;2569;, - 4;2570;2571;2572;2573;, - 4;2574;2575;2576;2577;, - 5;2578;2579;2580;2581;2582;, - 4;2583;2584;2585;2586;, - 5;2587;2588;2589;2590;2591;, - 4;2592;2593;2594;2595;, - 4;2596;2597;2598;2599;, - 5;2600;2601;2602;2603;2604;, - 4;2605;2606;2607;2608;, - 4;2609;2610;2611;2612;, - 4;2613;2614;2615;2616;, - 7;2617;2618;2619;2620;2621;2622;2623;, - 6;2624;2625;2626;2627;2628;2629;, - 4;2630;2631;2632;2633;, - 4;2634;2635;2636;2637;, - 5;2638;2639;2640;2641;2642;, - 4;2643;2644;2645;2646;, - 6;2647;2648;2649;2650;2651;2652;, - 4;2653;2654;2655;2656;, - 4;2657;2658;2659;2660;, - 9;2661;2662;2663;2664;2665;2666;2667;2668;2669;, - 4;2670;2671;2672;2673;, - 4;2674;2675;2676;2677;, - 9;2678;2679;2680;2681;2682;2683;2684;2685;2686;, - 4;2687;2688;2689;2690;, - 4;2691;2692;2693;2694;, - 5;2695;2696;2697;2698;2699;, - 4;2700;2701;2702;2703;, - 4;2704;2705;2706;2707;, - 6;2708;2709;2710;2711;2712;2713;, - 6;2714;2715;2716;2717;2718;2719;, - 6;2720;2721;2722;2723;2724;2725;, - 4;2726;2727;2728;2729;, - 4;2730;2731;2732;2733;, - 4;2734;2735;2736;2737;, - 4;2738;2739;2740;2741;, - 4;2742;2743;2744;2745;, - 4;2746;2747;2748;2749;, - 5;2750;2751;2752;2753;2754;, - 4;2755;2756;2757;2758;, - 4;2759;2760;2761;2762;, - 4;2763;2764;2765;2766;, - 4;2767;2768;2769;2770;, - 4;2771;2772;2773;2774;, - 6;2775;2776;2777;2778;2779;2780;, - 6;2781;2782;2783;2784;2785;2786;, - 4;2787;2788;2789;2790;, - 5;2791;2792;2793;2794;2795;, - 4;2796;2797;2798;2799;, - 4;2800;2801;2802;2803;, - 6;2804;2805;2806;2807;2808;2809;, - 4;2810;2811;2812;2813;, - 4;2814;2815;2816;2817;, - 4;2818;2819;2820;2821;, - 4;2822;2823;2824;2825;, - 4;2826;2827;2828;2829;, - 5;2830;2831;2832;2833;2834;, - 4;2835;2836;2837;2838;, - 5;2839;2840;2841;2842;2843;, - 4;2844;2845;2846;2847;, - 4;2848;2849;2850;2851;, - 6;2852;2853;2854;2855;2856;2857;, - 6;2858;2859;2860;2861;2862;2863;, - 6;2864;2865;2866;2867;2868;2869;, - 6;2870;2871;2872;2873;2874;2875;, - 4;2876;2877;2878;2879;, - 7;2880;2881;2882;2883;2884;2885;2886;, - 4;2887;2888;2889;2890;, - 6;2891;2892;2893;2894;2895;2896;, - 4;2897;2898;2899;2900;, - 4;2901;2902;2903;2904;, - 6;2905;2906;2907;2908;2909;2910;, - 4;2911;2912;2913;2914;, - 6;2915;2916;2917;2918;2919;2920;, - 4;2921;2922;2923;2924;, - 4;2925;2926;2927;2928;, - 9;2929;2930;2931;2932;2933;2934;2935;2936;2937;, - 4;2938;2939;2940;2941;, - 9;2942;2943;2944;2945;2946;2947;2948;2949;2950;, - 4;2951;2952;2953;2954;, - 5;2955;2956;2957;2958;2959;, - 4;2960;2961;2962;2963;, - 4;2964;2965;2966;2967;, - 14;2968;2969;2970;2971;2972;2973;2974;2975;2976;2977;2978;2979;2980;2981;, - 4;2982;2983;2984;2985;, - 4;2986;2987;2988;2989;, - 4;2990;2991;2992;2993;, - 5;2994;2995;2996;2997;2998;, - 5;2999;3000;3001;3002;3003;, - 4;3004;3005;3006;3007;, - 4;3008;3009;3010;3011;, - 4;3012;3013;3014;3015;, - 4;3016;3017;3018;3019;, - 4;3020;3021;3022;3023;, - 4;3024;3025;3026;3027;, - 9;3028;3029;3030;3031;3032;3033;3034;3035;3036;, - 4;3037;3038;3039;3040;, - 4;3041;3042;3043;3044;, - 5;3045;3046;3047;3048;3049;, - 7;3050;3051;3052;3053;3054;3055;3056;, - 4;3057;3058;3059;3060;, - 4;3061;3062;3063;3064;, - 4;3065;3066;3067;3068;, - 4;3069;3070;3071;3072;, - 4;3073;3074;3075;3076;, - 4;3077;3078;3079;3080;, - 7;3081;3082;3083;3084;3085;3086;3087;, - 4;3088;3089;3090;3091;, - 4;3092;3093;3094;3095;, - 6;3096;3097;3098;3099;3100;3101;, - 4;3102;3103;3104;3105;, - 5;3106;3107;3108;3109;3110;, - 4;3111;3112;3113;3114;, - 4;3115;3116;3117;3118;, - 4;3119;3120;3121;3122;, - 5;3123;3124;3125;3126;3127;, - 4;3128;3129;3130;3131;, - 4;3132;3133;3134;3135;, - 4;3136;3137;3138;3139;, - 4;3140;3141;3142;3143;, - 9;3144;3145;3146;3147;3148;3149;3150;3151;3152;, - 5;3153;3154;3155;3156;3157;, - 4;3158;3159;3160;3161;, - 5;3162;3163;3164;3165;3166;, - 4;3167;3168;3169;3170;, - 4;3171;3172;3173;3174;, - 4;3175;3176;3177;3178;, - 5;3179;3180;3181;3182;3183;, - 4;3184;3185;3186;3187;, - 4;3188;3189;3190;3191;, - 4;3192;3193;3194;3195;, - 4;3196;3197;3198;3199;, - 4;3200;3201;3202;3203;, - 4;3204;3205;3206;3207;, - 10;3208;3209;3210;3211;3212;3213;3214;3215;3216;3217;, - 6;3218;3219;3220;3221;3222;3223;, - 6;3224;3225;3226;3227;3228;3229;, - 3;3230;3231;3232;, - 4;3233;3234;3235;3236;, - 4;3237;3238;3239;3240;, - 4;3241;3242;3243;3244;, - 5;3245;3246;3247;3248;3249;, - 9;3250;3251;3252;3253;3254;3255;3256;3257;3258;, - 4;3259;3260;3261;3262;, - 23;3263;3264;3265;3266;3267;3268;3269;3270;3271;3272;3273;3274;3275;3276;3277;3278;3279;3280;3281;3282;3283;3284;3285;, - 5;3286;3287;3288;3289;3290;, - 6;3291;3292;3293;3294;3295;3296;, - 6;3297;3298;3299;3300;3301;3302;, - 4;3303;3304;3305;3306;, - 4;3307;3308;3309;3310;, - 4;3311;3312;3313;3314;, - 4;3315;3316;3317;3318;, - 4;3319;3320;3321;3322;, - 9;3323;3324;3325;3326;3327;3328;3329;3330;3331;, - 6;3332;3333;3334;3335;3336;3337;, - 4;3338;3339;3340;3341;, - 6;3342;3343;3344;3345;3346;3347;, - 4;3348;3349;3350;3351;, - 3;3352;3353;3354;, - 4;3355;3356;3357;3358;, - 4;3359;3360;3361;3362;, - 4;3363;3364;3365;3366;, - 4;3367;3368;3369;3370;, - 4;3371;3372;3373;3374;, - 4;3375;3376;3377;3378;, - 4;3379;3380;3381;3382;, - 5;3383;3384;3385;3386;3387;, - 4;3388;3389;3390;3391;, - 5;3392;3393;3394;3395;3396;, - 4;3397;3398;3399;3400;, - 4;3401;3402;3403;3404;, - 4;3405;3406;3407;3408;, - 9;3409;3410;3411;3412;3413;3414;3415;3416;3417;, - 4;3418;3419;3420;3421;, - 4;3422;3423;3424;3425;, - 4;3426;3427;3428;3429;, - 4;3430;3431;3432;3433;, - 4;3434;3435;3436;3437;, - 5;3438;3439;3440;3441;3442;, - 4;3443;3444;3445;3446;, - 4;3447;3448;3449;3450;, - 4;3451;3452;3453;3454;, - 4;3455;3456;3457;3458;, - 5;3459;3460;3461;3462;3463;, - 4;3464;3465;3466;3467;, - 5;3468;3469;3470;3471;3472;, - 4;3473;3474;3475;3476;, - 4;3477;3478;3479;3480;, - 4;3481;3482;3483;3484;, - 4;3485;3486;3487;3488;, - 5;3489;3490;3491;3492;3493;, - 4;3494;3495;3496;3497;, - 6;3498;3499;3500;3501;3502;3503;, - 4;3504;3505;3506;3507;, - 8;3508;3509;3510;3511;3512;3513;3514;3515;, - 4;3516;3517;3518;3519;, - 4;3520;3521;3522;3523;, - 4;3524;3525;3526;3527;, - 4;3528;3529;3530;3531;, - 4;3532;3533;3534;3535;, - 8;3536;3537;3538;3539;3540;3541;3542;3543;, - 4;3544;3545;3546;3547;, - 5;3548;3549;3550;3551;3552;, - 4;3553;3554;3555;3556;, - 4;3557;3558;3559;3560;, - 6;3561;3562;3563;3564;3565;3566;, - 4;3567;3568;3569;3570;, - 4;3571;3572;3573;3574;, - 4;3575;3576;3577;3578;, - 5;3579;3580;3581;3582;3583;, - 4;3584;3585;3586;3587;, - 4;3588;3589;3590;3591;, - 4;3592;3593;3594;3595;, - 4;3596;3597;3598;3599;, - 5;3600;3601;3602;3603;3604;, - 5;3605;3606;3607;3608;3609;, - 6;3610;3611;3612;3613;3614;3615;, - 4;3616;3617;3618;3619;, - 9;3620;3621;3622;3623;3624;3625;3626;3627;3628;, - 4;3629;3630;3631;3632;, - 4;3633;3634;3635;3636;, - 6;3637;3638;3639;3640;3641;3642;, - 4;3643;3644;3645;3646;, - 4;3647;3648;3649;3650;, - 4;3651;3652;3653;3654;, - 5;3655;3656;3657;3658;3659;, - 6;3660;3661;3662;3663;3664;3665;, - 4;3666;3667;3668;3669;, - 5;3670;3671;3672;3673;3674;, - 5;3675;3676;3677;3678;3679;, - 4;3680;3681;3682;3683;, - 6;3684;3685;3686;3687;3688;3689;, - 4;3690;3691;3692;3693;, - 4;3694;3695;3696;3697;, - 9;3698;3699;3700;3701;3702;3703;3704;3705;3706;, - 7;3707;3708;3709;3710;3711;3712;3713;, - 7;3714;3715;3716;3717;3718;3719;3720;, - 4;3721;3722;3723;3724;, - 8;3725;3726;3727;3728;3729;3730;3731;3732;, - 4;3733;3734;3735;3736;, - 4;3737;3738;3739;3740;, - 4;3741;3742;3743;3744;, - 4;3745;3746;3747;3748;, - 4;3749;3750;3751;3752;, - 6;3753;3754;3755;3756;3757;3758;, - 4;3759;3760;3761;3762;, - 5;3763;3764;3765;3766;3767;, - 4;3768;3769;3770;3771;, - 5;3772;3773;3774;3775;3776;, - 5;3777;3778;3779;3780;3781;, - 5;3782;3783;3784;3785;3786;, - 8;3787;3788;3789;3790;3791;3792;3793;3794;, - 4;3795;3796;3797;3798;, - 5;3799;3800;3801;3802;3803;, - 4;3804;3805;3806;3807;, - 6;3808;3809;3810;3811;3812;3813;, - 8;3814;3815;3816;3817;3818;3819;3820;3821;, - 8;3822;3823;3824;3825;3826;3827;3828;3829;, - 4;3830;3831;3832;3833;, - 4;3834;3835;3836;3837;, - 4;3838;3839;3840;3841;, - 4;3842;3843;3844;3845;, - 4;3846;3847;3848;3849;, - 4;3850;3851;3852;3853;, - 4;3854;3855;3856;3857;, - 4;3858;3859;3860;3861;, - 6;3862;3863;3864;3865;3866;3867;, - 4;3868;3869;3870;3871;, - 7;3872;3873;3874;3875;3876;3877;3878;, - 4;3879;3880;3881;3882;, - 5;3883;3884;3885;3886;3887;, - 6;3888;3889;3890;3891;3892;3893;, - 6;3894;3895;3896;3897;3898;3899;, - 4;3900;3901;3902;3903;, - 4;3904;3905;3906;3907;, - 3;3908;3909;3910;, - 4;3911;3912;3913;3914;, - 14;3915;3916;3917;3918;3919;3920;3921;3922;3923;3924;3925;3926;3927;3928;, - 4;3929;3930;3931;3932;, - 4;3933;3934;3935;3936;, - 5;3937;3938;3939;3940;3941;, - 4;3942;3943;3944;3945;, - 4;3946;3947;3948;3949;, - 9;3950;3951;3952;3953;3954;3955;3956;3957;3958;, - 4;3959;3960;3961;3962;, - 4;3963;3964;3965;3966;, - 4;3967;3968;3969;3970;, - 7;3971;3972;3973;3974;3975;3976;3977;, - 4;3978;3979;3980;3981;, - 6;3982;3983;3984;3985;3986;3987;, - 6;3988;3989;3990;3991;3992;3993;, - 7;3994;3995;3996;3997;3998;3999;4000;, - 7;4001;4002;4003;4004;4005;4006;4007;, - 4;4008;4009;4010;4011;, - 4;4012;4013;4014;4015;, - 4;4016;4017;4018;4019;, - 3;4020;4021;4022;, - 3;4023;4024;4025;, - 3;4026;4027;4028;, - 3;4029;4030;4031;, - 6;4032;4033;4034;4035;4036;4037;, - 4;4038;4039;4040;4041;, - 7;4042;4043;4044;4045;4046;4047;4048;, - 5;4049;4050;4051;4052;4053;, - 5;4054;4055;4056;4057;4058;, - 3;4059;4060;4061;, - 4;4062;4063;4064;4065;, - 4;4066;4067;4068;4069;, - 5;4070;4071;4072;4073;4074;, - 5;4075;4076;4077;4078;4079;, - 4;4080;4081;4082;4083;, - 7;4084;4085;4086;4087;4088;4089;4090;, - 4;4091;4092;4093;4094;, - 4;4095;4096;4097;4098;, - 4;4099;4100;4101;4102;, - 5;4103;4104;4105;4106;4107;, - 4;4108;4109;4110;4111;, - 4;4112;4113;4114;4115;, - 4;4116;4117;4118;4119;, - 4;4120;4121;4122;4123;, - 4;4124;4125;4126;4127;, - 4;4128;4129;4130;4131;, - 4;4132;4133;4134;4135;, - 4;4136;4137;4138;4139;, - 4;4140;4141;4142;4143;, - 4;4144;4145;4146;4147;, - 4;4148;4149;4150;4151;, - 4;4152;4153;4154;4155;, - 5;4156;4157;4158;4159;4160;, - 4;4161;4162;4163;4164;, - 4;4165;4166;4167;4168;, - 4;4169;4170;4171;4172;, - 4;4173;4174;4175;4176;, - 4;4177;4178;4179;4180;, - 5;4181;4182;4183;4184;4185;, - 4;4186;4187;4188;4189;, - 5;4190;4191;4192;4193;4194;, - 4;4195;4196;4197;4198;, - 5;4199;4200;4201;4202;4203;, - 4;4204;4205;4206;4207;, - 4;4208;4209;4210;4211;, - 6;4212;4213;4214;4215;4216;4217;, - 4;4218;4219;4220;4221;, - 4;4222;4223;4224;4225;, - 4;4226;4227;4228;4229;, - 4;4230;4231;4232;4233;, - 4;4234;4235;4236;4237;, - 9;4238;4239;4240;4241;4242;4243;4244;4245;4246;, - 4;4247;4248;4249;4250;, - 4;4251;4252;4253;4254;, - 7;4255;4256;4257;4258;4259;4260;4261;, - 4;4262;4263;4264;4265;, - 4;4266;4267;4268;4269;, - 4;4270;4271;4272;4273;, - 4;4274;4275;4276;4277;, - 6;4278;4279;4280;4281;4282;4283;, - 5;4284;4285;4286;4287;4288;, - 4;4289;4290;4291;4292;, - 4;4293;4294;4295;4296;, - 8;4297;4298;4299;4300;4301;4302;4303;4304;, - 4;4305;4306;4307;4308;, - 4;4309;4310;4311;4312;, - 13;4313;4314;4315;4316;4317;4318;4319;4320;4321;4322;4323;4324;4325;, - 6;4326;4327;4328;4329;4330;4331;, - 4;4332;4333;4334;4335;, - 4;4336;4337;4338;4339;, - 4;4340;4341;4342;4343;, - 4;4344;4345;4346;4347;, - 4;4348;4349;4350;4351;, - 9;4352;4353;4354;4355;4356;4357;4358;4359;4360;, - 9;4361;4362;4363;4364;4365;4366;4367;4368;4369;, - 4;4370;4371;4372;4373;, - 4;4374;4375;4376;4377;, - 5;4378;4379;4380;4381;4382;, - 5;4383;4384;4385;4386;4387;, - 8;4388;4389;4390;4391;4392;4393;4394;4395;, - 7;4396;4397;4398;4399;4400;4401;4402;, - 5;4403;4404;4405;4406;4407;, - 4;4408;4409;4410;4411;, - 4;4412;4413;4414;4415;, - 4;4416;4417;4418;4419;, - 5;4420;4421;4422;4423;4424;, - 4;4425;4426;4427;4428;, - 4;4429;4430;4431;4432;, - 4;4433;4434;4435;4436;, - 4;4437;4438;4439;4440;, - 5;4441;4442;4443;4444;4445;, - 6;4446;4447;4448;4449;4450;4451;, - 3;4452;4453;4454;, - 6;4455;4456;4457;4458;4459;4460;, - 4;4461;4462;4463;4464;, - 4;4465;4466;4467;4468;, - 4;4469;4470;4471;4472;, - 4;4473;4474;4475;4476;, - 4;4477;4478;4479;4480;, - 8;4481;4482;4483;4484;4485;4486;4487;4488;, - 6;4489;4490;4491;4492;4493;4494;, - 6;4495;4496;4497;4498;4499;4500;, - 5;4501;4502;4503;4504;4505;, - 7;4506;4507;4508;4509;4510;4511;4512;, - 4;4513;4514;4515;4516;, - 4;4517;4518;4519;4520;, - 3;4521;4522;4523;, - 4;4524;4525;4526;4527;, - 4;4528;4529;4530;4531;, - 3;4532;4533;4534;, - 3;4535;4536;4537;, - 3;4538;4539;4540;, - 4;4541;4542;4543;4544;, - 6;4545;4546;4547;4548;4549;4550;, - 4;4551;4552;4553;4554;, - 5;4555;4556;4557;4558;4559;, - 4;4560;4561;4562;4563;, - 5;4564;4565;4566;4567;4568;, - 4;4569;4570;4571;4572;, - 4;4573;4574;4575;4576;, - 4;4577;4578;4579;4580;, - 4;4581;4582;4583;4584;, - 4;4585;4586;4587;4588;, - 4;4589;4590;4591;4592;, - 5;4593;4594;4595;4596;4597;, - 4;4598;4599;4600;4601;, - 8;4602;4603;4604;4605;4606;4607;4608;4609;, - 4;4610;4611;4612;4613;, - 4;4614;4615;4616;4617;, - 5;4618;4619;4620;4621;4622;, - 18;4623;4624;4625;4626;4627;4628;4629;4630;4631;4632;4633;4634;4635;4636;4637;4638;4639;4640;, - 4;4641;4642;4643;4644;, - 5;4645;4646;4647;4648;4649;, - 4;4650;4651;4652;4653;, - 7;4654;4655;4656;4657;4658;4659;4660;, - 4;4661;4662;4663;4664;, - 4;4665;4666;4667;4668;, - 4;4669;4670;4671;4672;, - 4;4673;4674;4675;4676;, - 5;4677;4678;4679;4680;4681;, - 5;4682;4683;4684;4685;4686;, - 4;4687;4688;4689;4690;, - 4;4691;4692;4693;4694;, - 4;4695;4696;4697;4698;, - 5;4699;4700;4701;4702;4703;, - 4;4704;4705;4706;4707;, - 4;4708;4709;4710;4711;, - 5;4712;4713;4714;4715;4716;, - 6;4717;4718;4719;4720;4721;4722;, - 5;4723;4724;4725;4726;4727;, - 4;4728;4729;4730;4731;, - 6;4732;4733;4734;4735;4736;4737;, - 4;4738;4739;4740;4741;, - 6;4742;4743;4744;4745;4746;4747;, - 4;4748;4749;4750;4751;, - 6;4752;4753;4754;4755;4756;4757;, - 5;4758;4759;4760;4761;4762;, - 4;4763;4764;4765;4766;, - 4;4767;4768;4769;4770;, - 7;4771;4772;4773;4774;4775;4776;4777;, - 5;4778;4779;4780;4781;4782;, - 6;4783;4784;4785;4786;4787;4788;, - 4;4789;4790;4791;4792;, - 4;4793;4794;4795;4796;, - 5;4797;4798;4799;4800;4801;, - 5;4802;4803;4804;4805;4806;, - 4;4807;4808;4809;4810;, - 4;4811;4812;4813;4814;, - 4;4815;4816;4817;4818;, - 4;4819;4820;4821;4822;, - 6;4823;4824;4825;4826;4827;4828;, - 15;4829;4830;4831;4832;4833;4834;4835;4836;4837;4838;4839;4840;4841;4842;4843;, - 4;4844;4845;4846;4847;, - 4;4848;4849;4850;4851;, - 4;4852;4853;4854;4855;, - 4;4856;4857;4858;4859;, - 4;4860;4861;4862;4863;, - 6;4864;4865;4866;4867;4868;4869;, - 4;4870;4871;4872;4873;, - 4;4874;4875;4876;4877;, - 4;4878;4879;4880;4881;, - 4;4882;4883;4884;4885;, - 4;4886;4887;4888;4889;, - 4;4890;4891;4892;4893;, - 4;4894;4895;4896;4897;, - 3;4898;4899;4900;, - 9;4901;4902;4903;4904;4905;4906;4907;4908;4909;, - 4;4910;4911;4912;4913;, - 4;4914;4915;4916;4917;, - 9;4918;4919;4920;4921;4922;4923;4924;4925;4926;, - 6;4927;4928;4929;4930;4931;4932;, - 4;4933;4934;4935;4936;, - 5;4937;4938;4939;4940;4941;, - 4;4942;4943;4944;4945;, - 8;4946;4947;4948;4949;4950;4951;4952;4953;, - 4;4954;4955;4956;4957;, - 4;4958;4959;4960;4961;, - 4;4962;4963;4964;4965;, - 7;4966;4967;4968;4969;4970;4971;4972;, - 4;4973;4974;4975;4976;, - 4;4977;4978;4979;4980;, - 4;4981;4982;4983;4984;, - 6;4985;4986;4987;4988;4989;4990;, - 3;4991;4992;4993;, - 5;4994;4995;4996;4997;4998;, - 4;4999;5000;5001;5002;, - 9;5003;5004;5005;5006;5007;5008;5009;5010;5011;, - 6;5012;5013;5014;5015;5016;5017;, - 4;5018;5019;5020;5021;, - 4;5022;5023;5024;5025;, - 5;5026;5027;5028;5029;5030;, - 5;5031;5032;5033;5034;5035;, - 4;5036;5037;5038;5039;, - 4;5040;5041;5042;5043;, - 4;5044;5045;5046;5047;, - 4;5048;5049;5050;5051;, - 6;5052;5053;5054;5055;5056;5057;, - 4;5058;5059;5060;5061;, - 4;5062;5063;5064;5065;, - 4;5066;5067;5068;5069;, - 4;5070;5071;5072;5073;, - 4;5074;5075;5076;5077;, - 5;5078;5079;5080;5081;5082;, - 6;5083;5084;5085;5086;5087;5088;, - 4;5089;5090;5091;5092;, - 4;5093;5094;5095;5096;, - 4;5097;5098;5099;5100;, - 5;5101;5102;5103;5104;5105;, - 4;5106;5107;5108;5109;, - 5;5110;5111;5112;5113;5114;, - 4;5115;5116;5117;5118;, - 7;5119;5120;5121;5122;5123;5124;5125;, - 4;5126;5127;5128;5129;, - 5;5130;5131;5132;5133;5134;, - 5;5135;5136;5137;5138;5139;, - 4;5140;5141;5142;5143;, - 13;5144;5145;5146;5147;5148;5149;5150;5151;5152;5153;5154;5155;5156;, - 5;5157;5158;5159;5160;5161;, - 4;5162;5163;5164;5165;, - 5;5166;5167;5168;5169;5170;, - 5;5171;5172;5173;5174;5175;, - 4;5176;5177;5178;5179;, - 5;5180;5181;5182;5183;5184;, - 4;5185;5186;5187;5188;, - 4;5189;5190;5191;5192;, - 6;5193;5194;5195;5196;5197;5198;, - 9;5199;5200;5201;5202;5203;5204;5205;5206;5207;, - 4;5208;5209;5210;5211;, - 4;5212;5213;5214;5215;, - 7;5216;5217;5218;5219;5220;5221;5222;, - 4;5223;5224;5225;5226;, - 4;5227;5228;5229;5230;, - 4;5231;5232;5233;5234;, - 4;5235;5236;5237;5238;, - 5;5239;5240;5241;5242;5243;, - 6;5244;5245;5246;5247;5248;5249;, - 5;5250;5251;5252;5253;5254;, - 4;5255;5256;5257;5258;, - 4;5259;5260;5261;5262;, - 4;5263;5264;5265;5266;, - 6;5267;5268;5269;5270;5271;5272;, - 14;5273;5274;5275;5276;5277;5278;5279;5280;5281;5282;5283;5284;5285;5286;, - 7;5287;5288;5289;5290;5291;5292;5293;, - 5;5294;5295;5296;5297;5298;, - 4;5299;5300;5301;5302;, - 5;5303;5304;5305;5306;5307;, - 4;5308;5309;5310;5311;, - 5;5312;5313;5314;5315;5316;, - 6;5317;5318;5319;5320;5321;5322;, - 7;5323;5324;5325;5326;5327;5328;5329;, - 4;5330;5331;5332;5333;, - 4;5334;5335;5336;5337;, - 5;5338;5339;5340;5341;5342;, - 4;5343;5344;5345;5346;, - 4;5347;5348;5349;5350;, - 4;5351;5352;5353;5354;, - 4;5355;5356;5357;5358;, - 4;5359;5360;5361;5362;, - 4;5363;5364;5365;5366;, - 4;5367;5368;5369;5370;, - 4;5371;5372;5373;5374;, - 4;5375;5376;5377;5378;, - 5;5379;5380;5381;5382;5383;, - 9;5384;5385;5386;5387;5388;5389;5390;5391;5392;, - 4;5393;5394;5395;5396;, - 6;5397;5398;5399;5400;5401;5402;, - 4;5403;5404;5405;5406;, - 6;5407;5408;5409;5410;5411;5412;, - 5;5413;5414;5415;5416;5417;, - 5;5418;5419;5420;5421;5422;, - 5;5423;5424;5425;5426;5427;, - 4;5428;5429;5430;5431;, - 4;5432;5433;5434;5435;, - 4;5436;5437;5438;5439;, - 4;5440;5441;5442;5443;, - 4;5444;5445;5446;5447;, - 5;5448;5449;5450;5451;5452;, - 4;5453;5454;5455;5456;, - 4;5457;5458;5459;5460;, - 11;5461;5462;5463;5464;5465;5466;5467;5468;5469;5470;5471;, - 5;5472;5473;5474;5475;5476;, - 7;5477;5478;5479;5480;5481;5482;5483;, - 4;5484;5485;5486;5487;, - 10;5488;5489;5490;5491;5492;5493;5494;5495;5496;5497;, - 4;5498;5499;5500;5501;, - 4;5502;5503;5504;5505;, - 7;5506;5507;5508;5509;5510;5511;5512;, - 9;5513;5514;5515;5516;5517;5518;5519;5520;5521;, - 4;5522;5523;5524;5525;, - 4;5526;5527;5528;5529;, - 4;5530;5531;5532;5533;, - 5;5534;5535;5536;5537;5538;, - 5;5539;5540;5541;5542;5543;, - 22;5544;5545;5546;5547;5548;5549;5550;5551;5552;5553;5554;5555;5556;5557;5558;5559;5560;5561;5562;5563;5564;5565;, - 5;5566;5567;5568;5569;5570;, - 4;5571;5572;5573;5574;, - 4;5575;5576;5577;5578;, - 4;5579;5580;5581;5582;, - 8;5583;5584;5585;5586;5587;5588;5589;5590;, - 4;5591;5592;5593;5594;, - 4;5595;5596;5597;5598;, - 4;5599;5600;5601;5602;, - 5;5603;5604;5605;5606;5607;, - 5;5608;5609;5610;5611;5612;, - 6;5613;5614;5615;5616;5617;5618;, - 4;5619;5620;5621;5622;, - 25;5623;5624;5625;5626;5627;5628;5629;5630;5631;5632;5633;5634;5635;5636;5637;5638;5639;5640;5641;5642;5643;5644;5645;5646;5647;, - 12;5648;5649;5650;5651;5652;5653;5654;5655;5656;5657;5658;5659;, - 13;5660;5661;5662;5663;5664;5665;5666;5667;5668;5669;5670;5671;5672;, - 5;5673;5674;5675;5676;5677;, - 6;5678;5679;5680;5681;5682;5683;; - } //End of Cube_000 Normals - MeshMaterialList { //Cube_000 Material List - 5; - 1148; - 0, - 0, - 1, - 1, - 0, - 0, - 0, - 0, - 0, - 1, - 1, - 2, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 2, - 2, - 3, - 3, - 3, - 0, - 2, - 0, - 3, - 0, - 0, - 1, - 2, - 2, - 1, - 2, - 2, - 2, - 3, - 1, - 3, - 0, - 0, - 2, - 3, - 2, - 0, - 1, - 2, - 3, - 3, - 2, - 3, - 3, - 4, - 2, - 0, - 3, - 1, - 0, - 0, - 0, - 0, - 3, - 3, - 2, - 4, - 3, - 2, - 1, - 0, - 0, - 4, - 2, - 3, - 0, - 2, - 2, - 4, - 3, - 2, - 3, - 2, - 3, - 4, - 3, - 2, - 2, - 3, - 2, - 2, - 2, - 2, - 3, - 2, - 1, - 2, - 3, - 0, - 3, - 3, - 0, - 3, - 0, - 2, - 2, - 2, - 0, - 2, - 2, - 2, - 2, - 3, - 0, - 2, - 2, - 2, - 0, - 0, - 3, - 3, - 3, - 1, - 3, - 2, - 2, - 3, - 2, - 4, - 0, - 3, - 3, - 2, - 2, - 3, - 2, - 0, - 0, - 0, - 0, - 1, - 0, - 2, - 0, - 2, - 2, - 2, - 0, - 3, - 3, - 3, - 3, - 2, - 2, - 3, - 3, - 3, - 2, - 2, - 3, - 2, - 3, - 3, - 1, - 2, - 1, - 2, - 2, - 4, - 2, - 2, - 0, - 2, - 1, - 1, - 3, - 0, - 0, - 3, - 1, - 0, - 0, - 2, - 0, - 3, - 0, - 0, - 0, - 3, - 0, - 3, - 0, - 1, - 3, - 1, - 2, - 0, - 4, - 1, - 2, - 3, - 2, - 4, - 2, - 0, - 2, - 2, - 3, - 1, - 2, - 0, - 3, - 1, - 0, - 3, - 2, - 0, - 2, - 2, - 3, - 0, - 4, - 1, - 2, - 2, - 4, - 3, - 3, - 1, - 4, - 4, - 2, - 3, - 2, - 0, - 3, - 0, - 2, - 4, - 1, - 3, - 0, - 3, - 2, - 0, - 0, - 2, - 1, - 0, - 1, - 3, - 1, - 0, - 1, - 2, - 1, - 0, - 4, - 1, - 1, - 4, - 0, - 0, - 2, - 1, - 0, - 1, - 1, - 0, - 0, - 0, - 1, - 0, - 0, - 2, - 2, - 0, - 0, - 1, - 1, - 3, - 2, - 1, - 0, - 1, - 1, - 0, - 0, - 4, - 0, - 1, - 3, - 1, - 0, - 0, - 4, - 0, - 1, - 2, - 4, - 1, - 0, - 2, - 0, - 2, - 0, - 0, - 2, - 0, - 1, - 2, - 4, - 0, - 0, - 0, - 1, - 1, - 1, - 3, - 1, - 0, - 1, - 0, - 1, - 1, - 0, - 1, - 4, - 0, - 0, - 0, - 3, - 3, - 1, - 0, - 0, - 0, - 0, - 1, - 1, - 0, - 3, - 1, - 1, - 1, - 2, - 0, - 3, - 2, - 1, - 0, - 4, - 0, - 0, - 1, - 2, - 1, - 2, - 0, - 0, - 4, - 0, - 1, - 4, - 1, - 4, - 2, - 2, - 2, - 3, - 0, - 0, - 4, - 0, - 1, - 0, - 0, - 0, - 2, - 0, - 2, - 0, - 1, - 1, - 1, - 0, - 4, - 1, - 0, - 4, - 4, - 0, - 1, - 0, - 1, - 0, - 0, - 2, - 1, - 1, - 4, - 1, - 1, - 0, - 0, - 0, - 4, - 2, - 0, - 2, - 1, - 1, - 1, - 1, - 1, - 0, - 0, - 0, - 1, - 1, - 1, - 2, - 0, - 1, - 0, - 3, - 0, - 1, - 0, - 0, - 2, - 0, - 3, - 2, - 3, - 0, - 2, - 3, - 0, - 2, - 0, - 4, - 2, - 1, - 0, - 0, - 1, - 2, - 3, - 2, - 2, - 1, - 1, - 1, - 1, - 3, - 3, - 2, - 4, - 2, - 0, - 3, - 3, - 0, - 3, - 2, - 1, - 1, - 0, - 0, - 0, - 4, - 0, - 3, - 3, - 0, - 1, - 0, - 3, - 0, - 1, - 0, - 1, - 0, - 2, - 0, - 3, - 0, - 0, - 0, - 0, - 2, - 1, - 1, - 0, - 0, - 1, - 2, - 3, - 1, - 3, - 2, - 1, - 3, - 1, - 0, - 0, - 1, - 0, - 0, - 1, - 3, - 0, - 1, - 4, - 4, - 0, - 2, - 3, - 0, - 1, - 1, - 0, - 0, - 0, - 0, - 1, - 1, - 0, - 0, - 2, - 0, - 0, - 1, - 0, - 1, - 4, - 0, - 4, - 0, - 3, - 0, - 1, - 0, - 0, - 1, - 0, - 4, - 4, - 0, - 1, - 0, - 0, - 1, - 0, - 0, - 1, - 1, - 1, - 0, - 4, - 0, - 0, - 0, - 0, - 1, - 1, - 0, - 4, - 0, - 1, - 3, - 0, - 1, - 0, - 1, - 1, - 1, - 0, - 0, - 0, - 1, - 3, - 2, - 1, - 3, - 0, - 0, - 1, - 0, - 1, - 1, - 1, - 1, - 0, - 0, - 1, - 1, - 1, - 0, - 1, - 1, - 1, - 3, - 1, - 2, - 3, - 4, - 1, - 1, - 0, - 0, - 0, - 1, - 1, - 0, - 3, - 1, - 0, - 0, - 0, - 4, - 1, - 0, - 1, - 0, - 1, - 0, - 1, - 0, - 0, - 2, - 1, - 0, - 1, - 0, - 0, - 1, - 1, - 3, - 0, - 0, - 1, - 0, - 0, - 1, - 0, - 2, - 2, - 2, - 1, - 0, - 0, - 0, - 1, - 2, - 2, - 1, - 2, - 2, - 3, - 1, - 1, - 1, - 1, - 1, - 2, - 2, - 1, - 1, - 0, - 4, - 1, - 0, - 3, - 0, - 3, - 0, - 0, - 3, - 2, - 0, - 1, - 0, - 0, - 3, - 0, - 0, - 0, - 0, - 0, - 4, - 0, - 4, - 1, - 0, - 0, - 2, - 2, - 1, - 1, - 1, - 0, - 0, - 1, - 1, - 0, - 2, - 0, - 3, - 3, - 0, - 0, - 0, - 1, - 0, - 2, - 1, - 0, - 0, - 0, - 0, - 0, - 3, - 2, - 3, - 0, - 2, - 0, - 0, - 0, - 2, - 0, - 1, - 0, - 0, - 0, - 0, - 0, - 1, - 1, - 0, - 0, - 2, - 0, - 0, - 0, - 0, - 0, - 1, - 0, - 0, - 0, - 0, - 3, - 4, - 2, - 1, - 1, - 0, - 2, - 0, - 0, - 2, - 0, - 0, - 0, - 3, - 0, - 0, - 0, - 0, - 1, - 1, - 0, - 0, - 0, - 0, - 0, - 0, - 3, - 3, - 3, - 3, - 3, - 2, - 3, - 3, - 2, - 3, - 2, - 4, - 1, - 2, - 2, - 3, - 3, - 3, - 1, - 2, - 3, - 3, - 3, - 3, - 1, - 2, - 3, - 3, - 3, - 2, - 1, - 2, - 3, - 2, - 2, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 0, - 3, - 2, - 2, - 3, - 3, - 3, - 2, - 3, - 3, - 3, - 2, - 3, - 3, - 4, - 2, - 3, - 2, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 0, - 2, - 0, - 0, - 3, - 3, - 0, - 3, - 3, - 2, - 0, - 0, - 0, - 2, - 0, - 1, - 4, - 1, - 0, - 1, - 0, - 4, - 2, - 1, - 0, - 1, - 1, - 1, - 2, - 1, - 4, - 1, - 4, - 4, - 4, - 3, - 4, - 0, - 0, - 0, - 4, - 1, - 2, - 1, - 4, - 1, - 2, - 1, - 1, - 1, - 1, - 1, - 1, - 4, - 1, - 4, - 2, - 2, - 4, - 0, - 2, - 2, - 4, - 4, - 2, - 4, - 4, - 4, - 0, - 2, - 4, - 1, - 1, - 4, - 4, - 2, - 2, - 4, - 4, - 4, - 2, - 2, - 0, - 0, - 1, - 3, - 4, - 0, - 0, - 0, - 0, - 4, - 4, - 0, - 1, - 2, - 3, - 1, - 4, - 1, - 4, - 3, - 1, - 4, - 1, - 4, - 1, - 2, - 1, - 0, - 1, - 3, - 0, - 2, - 4, - 0, - 0, - 0, - 0, - 2, - 3, - 3, - 1, - 3, - 0, - 1, - 4, - 1, - 3, - 2, - 3, - 4, - 4, - 1, - 1, - 0, - 1, - 1, - 3, - 4, - 1, - 1, - 4, - 4, - 1, - 3, - 1, - 4, - 2, - 4, - 3, - 4, - 4, - 2, - 1, - 1, - 3, - 1, - 1, - 4, - 0, - 2, - 2, - 1, - 4, - 4, - 1, - 3, - 4, - 0, - 0, - 4, - 2, - 0, - 1, - 0, - 1, - 1, - 1, - 0, - 2, - 4, - 3, - 0, - 1, - 0, - 2, - 4, - 0, - 4, - 1, - 2, - 0, - 0, - 0, - 2, - 4, - 0, - 0, - 1, - 1, - 0, - 2, - 0, - 4, - 1, - 1, - 1, - 2, - 2, - 4, - 1, - 3, - 0, - 2, - 3, - 1, - 1, - 1, - 1, - 1, - 2, - 3, - 0, - 3, - 0, - 1, - 1, - 0, - 2, - 1, - 0, - 0, - 1, - 0, - 3, - 1, - 2, - 3, - 1, - 0, - 0, - 0, - 0, - 1, - 1, - 3, - 0, - 2, - 1, - 0, - 1, - 2, - 0, - 1, - 2, - 2, - 0, - 2, - 1, - 3, - 0, - 0, - 1, - 0, - 1, - 1, - 2, - 3, - 1, - 0, - 4, - 0, - 4, - 1, - 1, - 1, - 3, - 0, - 1, - 1, - 2, - 2, - 4, - 4, - 3, - 3, - 4, - 1, - 3, - 3, - 2, - 1, - 1, - 2, - 2, - 2, - 3, - 3;; - Material _2_001 { - 0.000000; 0.000000; 0.000000; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - Material _1_001 { - 0.800000; 0.800000; 0.800000; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - Material _5_001 { - 0.168111; 0.619355; 0.088479; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - Material _4_001 { - 0.329082; 0.705376; 0.095170; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - Material _3_001 { - 0.420637; 0.662366; 0.194504; 1.000000;; - 96.078431; - 0.500000; 0.500000; 0.500000;; - 0.000000; 0.000000; 0.000000;; - } - } //End of Cube_000 Material List - MeshTextureCoords { //Cube_000 UV Coordinates - 5684; - 0.416667; 0.500000;, - 0.416667; 0.416667;, - 0.458333; 0.416667;, - 0.458333; 0.500000;, - 0.333333; 0.500000;, - 0.333333; 0.416667;, - 0.375000; 0.416667;, - 0.375000; 0.500000;, - 0.291667; 0.415983;, - 0.291666; 0.500000;, - 0.250000; 0.500000;, - 0.250000; 0.415983;, - 0.259125; 0.703989;, - 0.259623; 0.712592;, - 0.253727; 0.713423;, - 0.253609; 0.704792;, - 0.291667; 0.583333;, - 0.291667; 0.500000;, - 0.333333; 0.500000;, - 0.333333; 0.583333;, - 0.875000; 0.500000;, - 0.875000; 0.416667;, - 0.916667; 0.416667;, - 0.916667; 0.500000;, - 0.916667; 0.250000;, - 0.916667; 0.333333;, - 0.875000; 0.333333;, - 0.833333; 0.333333;, - 0.833333; 0.250000;, - 0.875000; 0.250000;, - 0.541667; 0.583333;, - 0.541667; 0.500000;, - 0.583333; 0.500000;, - 0.583333; 0.583333;, - 0.125000; 0.166667;, - 0.125000; 0.250000;, - 0.041667; 0.250000;, - 0.041667; 0.166667;, - 0.083333; 0.166667;, - 0.375000; 0.332152;, - 0.375000; 0.415983;, - 0.333333; 0.415983;, - 0.291667; 0.415983;, - 0.291666; 0.332152;, - 0.166666; 0.165490;, - 0.166666; 0.207020;, - 0.125000; 0.207020;, - 0.125000; 0.248639;, - 0.041667; 0.248639;, - 0.041667; 0.165491;, - 0.995864; 0.166921;, - 1.000000; 0.171103;, - 1.000000; 0.264059;, - 0.997442; 0.259848;, - 0.495805; 0.565454;, - 0.495637; 0.649384;, - 0.490438; 0.648443;, - 0.490800; 0.564867;, - 0.505826; 0.753578;, - 0.498129; 0.722362;, - 0.498296; 0.687455;, - 0.464910; 0.957929;, - 0.007331; 0.808972;, - 0.016101; 0.808583;, - 0.427497; 0.954079;, - 0.563827; 0.359334;, - 0.514387; 0.428460;, - 0.511365; 0.404724;, - 0.534878; 0.351218;, - 0.475663; 0.427780;, - 0.468111; 0.438554;, - 0.479089; 0.475732;, - 0.484333; 0.470526;, - 0.481050; 0.501022;, - 0.485844; 0.496864;, - 0.484333; 0.470526;, - 0.479089; 0.475732;, - 0.009287; 0.538018;, - 0.012357; 0.539831;, - 0.012729; 0.521005;, - 0.013376; 0.503958;, - 0.010086; 0.500961;, - 0.009578; 0.518666;, - 0.011844; 0.668581;, - 0.008734; 0.497995;, - 0.007144; 0.508879;, - 0.010118; 0.679386;, - 0.011844; 0.668582;, - 0.010118; 0.679386;, - 0.012423; 0.677149;, - 1.005613; 0.498174;, - 0.010086; 0.500961;, - 0.010805; 0.486771;, - 1.006036; 0.483226;, - 0.451131; 0.831219;, - 0.433705; 0.855813;, - 0.446134; 0.863941;, - 0.461754; 0.836011;, - 1.005613; 0.498174;, - 1.006036; 0.483226;, - 0.998425; 0.479888;, - 0.998542; 0.495580;, - 0.291667; 0.750000;, - 0.291667; 0.833333;, - 0.208333; 0.833333;, - 0.208333; 0.750000;, - 0.250000; 0.750000;, - 0.991426; 0.308035;, - 0.992042; 0.341243;, - 0.007895; 0.332452;, - 0.009496; 0.265143;, - 0.990579; 0.276853;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.498129; 0.722362;, - 0.505826; 0.753578;, - 0.994631; 0.702765;, - 1.001685; 0.705588;, - 1.002663; 0.808484;, - 0.497844; 0.760673;, - 0.208333; 0.833333;, - 0.208333; 0.750000;, - 0.250000; 0.750000;, - 0.250000; 0.833333;, - 1.000000; 0.250000;, - 1.000000; 0.166667;, - 0.041667; 0.166667;, - 0.041667; 0.250000;, - 0.237566; 0.715783;, - 0.237463; 0.707780;, - 0.242300; 0.710940;, - 0.242415; 0.718770;, - 0.962893; 0.177456;, - 0.976057; 0.264130;, - 0.957018; 0.274731;, - 0.937159; 0.197654;, - 0.966060; 0.710602;, - 0.931921; 0.784929;, - 0.963784; 0.734213;, - 0.985147; 0.690938;, - 0.000330; 0.678924;, - 0.010118; 0.679386;, - 0.007144; 0.508879;, - 0.992737; 0.512087;, - 0.992421; 0.537979;, - 0.991316; 0.605148;, - 0.989081; 0.575335;, - 0.984063; 0.626428;, - 0.242261; 0.675568;, - 0.244300; 0.672332;, - 0.248192; 0.676287;, - 0.250720; 0.677330;, - 0.249595; 0.686025;, - 0.242834; 0.682218;, - 0.244356; 0.678289;, - 0.354167; 0.333333;, - 0.375000; 0.333333;, - 0.375000; 0.291667;, - 0.416667; 0.291667;, - 0.416667; 0.333333;, - 0.437500; 0.333333;, - 0.437500; 0.500000;, - 0.354167; 0.500000;, - 0.995864; 0.166921;, - 0.994136; 0.123507;, - 0.989077; 0.071395;, - 0.515621; 0.061627;, - 1.499890; 0.052825;, - 1.000000; 0.171103;, - 0.972564; 0.591844;, - 0.948512; 0.722506;, - 0.949032; 0.718391;, - 0.010086; 0.500961;, - 0.013376; 0.503958;, - 0.014279; 0.490558;, - 0.016395; 0.476071;, - 0.012560; 0.470342;, - 0.010805; 0.486771;, - 0.270927; 0.666938;, - 0.267982; 0.662879;, - 0.270343; 0.668784;, - 0.273707; 0.673233;, - 1.005194; 0.578333;, - 1.005115; 0.557032;, - 0.998678; 0.556663;, - 0.998657; 0.578690;, - 0.083333; 0.500000;, - 0.083333; 0.416667;, - 0.125000; 0.416667;, - 0.125000; 0.500000;, - 0.541667; 0.250000;, - 0.541667; 0.166667;, - 0.583333; 0.166667;, - 0.583333; 0.250000;, - 0.908267; 0.815511;, - 0.906846; 0.810588;, - 0.732043; 0.448911;, - 0.001356; 0.539281;, - 0.003716; 0.537956;, - 0.003701; 0.578038;, - 0.003821; 0.620504;, - 1.001393; 0.621235;, - 1.001351; 0.579271;, - 0.986557; 0.560808;, - 0.972147; 0.652085;, - 0.947513; 0.754453;, - 0.986003; 0.582721;, - 0.854205; 1.000000;, - 0.854205; 0.000000;, - 0.740089; 0.000000;, - 0.740089; 1.000000;, - 0.208333; 0.415983;, - 0.208333; 0.500000;, - 0.166667; 0.500000;, - 0.166666; 0.415983;, - 0.609262; 0.444369;, - 0.620982; 0.633729;, - 0.520212; 0.665625;, - 0.518101; 0.480337;, - 0.552792; 0.464108;, - 0.022162; 0.578099;, - 0.022483; 0.628175;, - 0.992643; 0.636974;, - 0.992785; 0.574998;, - 1.005640; 0.622789;, - 0.010241; 0.622055;, - 0.009665; 0.600284;, - 1.005368; 0.600334;, - 0.980788; 0.532358;, - 0.982074; 0.442097;, - 0.982066; 0.411272;, - 0.998110; 0.414353;, - 0.998108; 0.446648;, - 0.997959; 0.541561;, - 0.992844; 0.539471;, - 0.016101; 0.808583;, - 0.024966; 0.807561;, - 0.395779; 0.948422;, - 0.427497; 0.954079;, - 0.433705; 0.855813;, - 0.424203; 0.846416;, - 0.530423; 0.886765;, - 0.523712; 0.885733;, - 0.446134; 0.863941;, - 0.209752; 0.928571;, - 0.098449; 0.928571;, - 0.098449; 0.071429;, - 0.209752; 0.071429;, - 0.209752; 1.000000;, - 0.933538; 0.777567;, - 0.931921; 0.784929;, - 0.933538; 0.779373;, - 0.936340; 0.774999;, - 0.937221; 0.771047;, - 0.937666; 0.765852;, - 0.937666; 0.750158;, - 0.937221; 0.755812;, - 0.740089; 1.000000;, - 0.740089; 0.000000;, - 0.537755; 0.000000;, - 0.537755; 1.000000;, - 0.481940; 0.659806;, - 0.486508; 0.658264;, - 0.487428; 0.621235;, - 0.483142; 0.623295;, - 0.275321; 0.681343;, - 0.275524; 0.690788;, - 0.277548; 0.695637;, - 0.277343; 0.686533;, - 1.000000; 0.666667;, - 1.000000; 0.583333;, - 0.041667; 0.583333;, - 0.041667; 0.666667;, - 1.000000; 0.166667;, - 1.000000; 0.083333;, - 0.083333; 0.083333;, - 0.083333; 0.166667;, - 1.000000; 0.666667;, - 1.000000; 0.583333;, - 0.041667; 0.583333;, - 0.041667; 0.666667;, - 0.875000; 0.750000;, - 0.833333; 0.750000;, - 0.833333; 0.666667;, - 0.875000; 0.666667;, - 0.916667; 0.666667;, - 0.916667; 0.750000;, - 0.490702; 0.731412;, - 0.481821; 0.729898;, - 0.461754; 0.836011;, - 0.515322; 0.850680;, - 0.506175; 0.735058;, - 0.480724; 0.686045;, - 0.481891; 0.649304;, - 0.485104; 0.648464;, - 0.484144; 0.685290;, - 0.482522; 0.721530;, - 0.479818; 0.760037;, - 0.475475; 0.760527;, - 0.505590; 0.667341;, - 0.505013; 0.485157;, - 0.518101; 0.480337;, - 0.520212; 0.665625;, - 0.553039; 0.928571;, - 0.619803; 0.928571;, - 0.619803; 0.857143;, - 0.553039; 0.857143;, - 0.993668; 0.694657;, - 0.020438; 0.679024;, - 0.018620; 0.677455;, - 0.014457; 0.680722;, - 0.994458; 0.690035;, - 0.937666; 0.765852;, - 0.937221; 0.771047;, - 0.948558; 0.748590;, - 0.972147; 0.652085;, - 0.986557; 0.560808;, - 0.990154; 0.524106;, - 0.990363; 0.496767;, - 0.666667; 0.834510;, - 0.791667; 0.834510;, - 0.833334; 0.834510;, - 0.833334; 0.875960;, - 0.854167; 0.875964;, - 0.854167; 0.913916;, - 0.645834; 0.913916;, - 0.645834; 0.875964;, - 0.666667; 0.875960;, - 0.250000; 0.750000;, - 0.250000; 0.666667;, - 0.291667; 0.666667;, - 0.291667; 0.750000;, - 0.708333; 0.666667;, - 0.708333; 0.583333;, - 0.750000; 0.583333;, - 0.750000; 0.666667;, - 1.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 1.000000; 0.000000;, - 0.553039; 0.214286;, - 0.480305; 0.214286;, - 0.997959; 0.541561;, - 0.997674; 0.615563;, - 0.997423; 0.663288;, - 0.991001; 0.659782;, - 0.992844; 0.539471;, - 0.526251; 0.375973;, - 0.534878; 0.351218;, - 0.511365; 0.404724;, - 0.508496; 0.408175;, - 0.916667; 0.500000;, - 0.916667; 0.416667;, - 0.958333; 0.416667;, - 0.958333; 0.500000;, - 0.991426; 0.308035;, - 0.990139; 0.422728;, - 0.992727; 0.410091;, - 0.992042; 0.341243;, - 0.333333; 0.208333;, - 0.291667; 0.208333;, - 0.270833; 0.208333;, - 0.270833; 0.166667;, - 0.333333; 0.083333;, - 0.395833; 0.083333;, - 0.395833; 0.166667;, - 0.879001; 0.285714;, - 0.879001; 0.214286;, - 0.766693; 0.214286;, - 0.766693; 0.285714;, - 1.005146; 0.536504;, - 0.998670; 0.535434;, - 0.998678; 0.556663;, - 1.005115; 0.557032;, - 0.875000; 0.333333;, - 0.854167; 0.333333;, - 0.833333; 0.333333;, - 0.833333; 0.250000;, - 0.854167; 0.250000;, - 0.854167; 0.208333;, - 0.916667; 0.208333;, - 0.937500; 0.208333;, - 0.937500; 0.291667;, - 0.875000; 0.291667;, - 0.012899; 0.148202;, - 0.005938; 0.306312;, - 0.005127; 0.353603;, - 0.001863; 0.356571;, - 1.004656; 0.150616;, - 0.906846; 0.810588;, - 0.732043; 0.448921;, - 0.908267; 0.815512;, - 0.401038; 0.519043;, - 0.389279; 0.440687;, - 0.464358; 0.424270;, - 0.469266; 0.521980;, - 0.433869; 0.928571;, - 0.433869; 0.857143;, - 0.379312; 0.857143;, - 0.379312; 0.928571;, - 0.492636; 0.657784;, - 0.486508; 0.658264;, - 0.484886; 0.692370;, - 0.492019; 0.692734;, - 0.908927; 0.822465;, - 0.905854; 0.890218;, - 0.908927; 0.822465;, - 0.963784; 0.734213;, - 0.963784; 0.734213;, - 0.931921; 0.784929;, - 0.940330; 0.776353;, - 0.400204; 0.626659;, - 0.468934; 0.648926;, - 0.466965; 0.685187;, - 0.395378; 0.656542;, - 0.990343; 0.454160;, - 0.000227; 0.445690;, - 0.000227; 0.482361;, - 0.006984; 0.480189;, - 0.007895; 0.332452;, - 0.992042; 0.341243;, - 0.992727; 0.410091;, - 0.990139; 0.422728;, - 0.885010; 0.076014;, - 0.773713; 0.050396;, - 0.790104; 0.070761;, - 0.392671; 0.077229;, - 0.790104; 0.068841;, - 0.885010; 0.070272;, - 0.961251; 0.122859;, - 0.038163; 0.091096;, - 0.257230; 0.034033;, - 0.083333; 0.291667;, - 0.083333; 0.333333;, - 0.062500; 0.333333;, - 0.062500; 0.500000;, - 0.937500; 0.500000;, - 0.937500; 0.291667;, - 0.450537; 0.171586;, - 0.459079; 0.169368;, - 0.469834; 0.230519;, - 0.482866; 0.420673;, - 0.484371; 0.471930;, - 0.481001; 0.473068;, - 0.479173; 0.421892;, - 0.463414; 0.232235;, - 0.515621; 0.061626;, - 0.650758; 0.070383;, - 0.593971; 0.115548;, - 0.563106; 0.218312;, - 0.505970; 0.235092;, - 0.508942; 0.120727;, - 0.291666; 0.584017;, - 0.250000; 0.584017;, - 0.250000; 0.500000;, - 0.291666; 0.500000;, - 0.989081; 0.575335;, - 0.992421; 0.537979;, - 0.989730; 0.548441;, - 0.986003; 0.582721;, - 0.985160; 0.603172;, - 0.984063; 0.626428;, - 0.529706; 0.832866;, - 0.530423; 0.886765;, - 0.424203; 0.846416;, - 0.426314; 0.789934;, - 0.458333; 0.666667;, - 0.458333; 0.583333;, - 0.500000; 0.583333;, - 0.500000; 0.666667;, - 0.984969; 0.697951;, - 0.984006; 0.694893;, - 0.986704; 0.673011;, - 0.995414; 0.662674;, - 0.994631; 0.702765;, - 0.505826; 0.753578;, - 0.498296; 0.687455;, - 0.498461; 0.566992;, - 0.498318; 0.473110;, - 0.495526; 0.166422;, - 0.514767; 0.180856;, - 0.986399; 0.173901;, - 0.511322; 0.455150;, - 0.510154; 0.487906;, - 0.508795; 0.580236;, - 0.508999; 0.624939;, - 0.510334; 0.667729;, - 0.513728; 0.706264;, - 0.552119; 0.877882;, - 0.604712; 0.926783;, - 0.741526; 0.938024;, - 0.563827; 0.359334;, - 0.974943; 0.719148;, - 0.012899; 0.148202;, - 0.487820; 0.165550;, - 0.473460; 0.166670;, - 0.028242; 0.148891;, - 0.083333; 0.750000;, - 0.041667; 0.750000;, - 0.041667; 0.666667;, - 0.083333; 0.666667;, - 0.125000; 0.666667;, - 0.125000; 0.750000;, - 0.510334; 0.667729;, - 0.508999; 0.624939;, - 0.501788; 0.620157;, - 0.502291; 0.659087;, - 0.666667; 0.583333;, - 0.666667; 0.500000;, - 0.708333; 0.500000;, - 0.708333; 0.583333;, - 0.957018; 0.274260;, - 0.976057; 0.264130;, - 0.978103; 0.292658;, - 0.982066; 0.411272;, - 0.966991; 0.410293;, - 0.937620; 0.753864;, - 0.949032; 0.718391;, - 0.948512; 0.722506;, - 0.937620; 0.753864;, - 0.948512; 0.722506;, - 0.937178; 0.755612;, - 0.833333; 0.333333;, - 0.833333; 0.250000;, - 0.875000; 0.250000;, - 0.875000; 0.333333;, - 0.505590; 0.667340;, - 0.499922; 0.673904;, - 0.500000; 0.485224;, - 0.505013; 0.485156;, - 0.937221; 0.755812;, - 0.937666; 0.752617;, - 0.937666; 0.750159;, - 0.906846; 0.810588;, - 0.908267; 0.815511;, - 0.908927; 0.822465;, - 0.908927; 0.822465;, - 0.908267; 0.815511;, - 0.924436; 0.737993;, - 0.920730; 0.746864;, - 0.916894; 0.758608;, - 0.913223; 0.771394;, - 0.920730; 0.746864;, - 0.487392; 0.417618;, - 0.475663; 0.427780;, - 0.484333; 0.470526;, - 0.491309; 0.465701;, - 0.416667; 0.583333;, - 0.416667; 0.500000;, - 0.458333; 0.500000;, - 0.458333; 0.583333;, - 0.908267; 0.815511;, - 0.906846; 0.810588;, - 0.906707; 0.803426;, - 0.906707; 0.803426;, - 0.906846; 0.810588;, - 0.931921; 0.784930;, - 0.933538; 0.777568;, - 0.931921; 0.784930;, - 0.931921; 0.784930;, - 0.931921; 0.784930;, - 0.940330; 0.776353;, - 0.537755; 1.000000;, - 0.377995; 1.000000;, - 0.377995; 0.000000;, - 0.537755; 0.000000;, - 0.208333; 0.583333;, - 0.208333; 0.500000;, - 0.250000; 0.500000;, - 0.250000; 0.583333;, - 0.495637; 0.649384;, - 0.495357; 0.686041;, - 0.489819; 0.685364;, - 0.490438; 0.648443;, - 0.492636; 0.657784;, - 0.492019; 0.692734;, - 0.503822; 0.695125;, - 0.502291; 0.659087;, - 0.508795; 0.580236;, - 0.510154; 0.487906;, - 0.502025; 0.489746;, - 0.501842; 0.533844;, - 0.501751; 0.579007;, - 0.276427; 0.709563;, - 0.277938; 0.700831;, - 0.277548; 0.695637;, - 0.276042; 0.705056;, - 0.987589; 0.432696;, - 0.977849; 0.457224;, - 0.969857; 0.598470;, - 0.972697; 0.689138;, - 0.974943; 0.719148;, - 0.563827; 0.359334;, - 0.534878; 0.351218;, - 0.526251; 0.375973;, - 0.511322; 0.455150;, - 0.986399; 0.173901;, - 1.004656; 0.150616;, - 0.001863; 0.356571;, - 0.001356; 0.539281;, - 1.001351; 0.579271;, - 0.995414; 0.662674;, - 0.986704; 0.673011;, - 0.992092; 0.623061;, - 0.993147; 0.581943;, - 0.992638; 0.537736;, - 0.992532; 0.486752;, - 0.418163; 0.485521;, - 0.732043; 0.448921;, - 0.790104; 0.070761;, - 0.773713; 0.050396;, - 0.392671; 0.077229;, - 0.936422; 0.732905;, - 0.937666; 0.750158;, - 0.937666; 0.765852;, - 0.937620; 0.760193;, - 0.937178; 0.754810;, - 0.936422; 0.750612;, - 0.935328; 0.747687;, - 0.932086; 0.743827;, - 0.930093; 0.738367;, - 0.927644; 0.734510;, - 0.924436; 0.737993;, - 0.927644; 0.731881;, - 0.930093; 0.728191;, - 0.932086; 0.726699;, - 0.933859; 0.727184;, - 0.468934; 0.648926;, - 0.470091; 0.566559;, - 0.482574; 0.566055;, - 0.481891; 0.649304;, - 0.011844; 0.668581;, - 0.010118; 0.679386;, - 0.012423; 0.677149;, - 0.433869; 0.928571;, - 0.000000; 1.000000;, - 0.480305; 0.857143;, - 0.433869; 0.857143;, - 1.000000; 0.250000;, - 0.958333; 0.250000;, - 0.916667; 0.250000;, - 0.916667; 0.166667;, - 1.000000; 0.166667;, - 0.427497; 0.954079;, - 0.395779; 0.948422;, - 0.479818; 0.760037;, - 0.487029; 0.760427;, - 1.001685; 0.705588;, - 0.994631; 0.702765;, - 0.995414; 0.662674;, - 1.001351; 0.579271;, - 1.001393; 0.621235;, - 0.001495; 0.663553;, - 0.009496; 0.265143;, - 0.010713; 0.235801;, - 0.989459; 0.249222;, - 0.990579; 0.276853;, - 0.166667; 0.083333;, - 0.187500; 0.166667;, - 0.229167; 0.166667;, - 0.229167; 0.208333;, - 0.208333; 0.208333;, - 0.166667; 0.208333;, - 0.166667; 0.166667;, - 0.104167; 0.166667;, - 0.104167; 0.083333;, - 0.041551; 0.313770;, - 0.122997; 0.355808;, - 0.111481; 0.387529;, - 0.036118; 0.358969;, - 0.978103; 0.292658;, - 0.976057; 0.264130;, - 0.997442; 0.259848;, - 0.997674; 0.289926;, - 0.583333; 0.500000;, - 0.583333; 0.416667;, - 0.625000; 0.416667;, - 0.625000; 0.500000;, - 0.333333; 0.750000;, - 0.333333; 0.833333;, - 0.250000; 0.833333;, - 0.250000; 0.750000;, - 0.291667; 0.750000;, - 0.958333; 0.666667;, - 0.958333; 0.583333;, - 1.000000; 0.583333;, - 1.000000; 0.666667;, - 0.083333; 0.583333;, - 0.083333; 0.500000;, - 0.125000; 0.500000;, - 0.125000; 0.583333;, - 0.833334; 0.875960;, - 0.833334; 0.834510;, - 0.916667; 0.834509;, - 1.000000; 0.834510;, - 1.000000; 0.875960;, - 0.020833; 0.875964;, - 0.020833; 0.913916;, - 0.854167; 0.913916;, - 0.854167; 0.875964;, - 0.625000; 0.416667;, - 0.625000; 0.333333;, - 0.666667; 0.333333;, - 0.666667; 0.416667;, - 0.972147; 0.652085;, - 0.948558; 0.748590;, - 0.947513; 0.754453;, - 0.833333; 0.250000;, - 0.750000; 0.250000;, - 0.750000; 0.166667;, - 0.833333; 0.166667;, - 0.997423; 0.663288;, - 0.997674; 0.615563;, - 0.999145; 0.630655;, - 1.000000; 0.663963;, - 0.969825; 0.677993;, - 0.984063; 0.626428;, - 0.985160; 0.603172;, - 0.969825; 0.677993;, - 0.985160; 0.603172;, - 0.986003; 0.582721;, - 0.500000; 0.833333;, - 0.500000; 0.750000;, - 0.541667; 0.750000;, - 0.541667; 0.833333;, - 0.483449; 0.584572;, - 0.483142; 0.623295;, - 0.487428; 0.621235;, - 0.487662; 0.581976;, - 0.026285; 0.578459;, - 0.087046; 0.568870;, - 0.089320; 0.605129;, - 0.027124; 0.620290;, - 0.492178; 0.493110;, - 0.491309; 0.465701;, - 0.484333; 0.470526;, - 0.485844; 0.496864;, - 0.481940; 0.659806;, - 0.479843; 0.693239;, - 0.484886; 0.692370;, - 0.486508; 0.658264;, - 0.969825; 0.677993;, - 0.944135; 0.758536;, - 0.984063; 0.626428;, - 0.908267; 0.815511;, - 0.732043; 0.448911;, - 0.418163; 0.485514;, - 0.289469; 0.946069;, - 0.006501; 0.958980;, - 0.905854; 0.890218;, - 0.908927; 0.822465;, - 0.111481; 0.387529;, - 0.089962; 0.499461;, - 0.027363; 0.498509;, - 0.036118; 0.358969;, - 0.494884; 0.722097;, - 0.488774; 0.721728;, - 0.489819; 0.685364;, - 0.495357; 0.686041;, - 1.005146; 0.536504;, - 0.009287; 0.538018;, - 0.009578; 0.518666;, - 1.005315; 0.516563;, - 0.937666; 0.752617;, - 0.949084; 0.714841;, - 0.972564; 0.591844;, - 0.949032; 0.718391;, - 0.937620; 0.753864;, - 0.250000; 0.166667;, - 0.270833; 0.166667;, - 0.270833; 0.208333;, - 0.270833; 0.250000;, - 0.250000; 0.250000;, - 0.229167; 0.250000;, - 0.229167; 0.208333;, - 0.229167; 0.166667;, - 0.492178; 0.493110;, - 0.502025; 0.489746;, - 0.502261; 0.461143;, - 0.491309; 0.465701;, - 0.984853; 0.187764;, - 0.016204; 0.168595;, - 0.023134; 0.129090;, - 0.979729; 0.152764;, - 0.003856; 0.496601;, - 0.008474; 0.496129;, - 0.008165; 0.537480;, - 0.003716; 0.537956;, - 0.087046; 0.568870;, - 0.026285; 0.578459;, - 0.026386; 0.539080;, - 0.087321; 0.534512;, - 0.875000; 0.667848;, - 0.875000; 0.584016;, - 0.916667; 0.584016;, - 0.916667; 0.667848;, - 0.505590; 0.667341;, - 0.500000; 0.673905;, - 0.500000; 0.485225;, - 0.505013; 0.485157;, - 0.875000; 0.207020;, - 0.916667; 0.207020;, - 0.958334; 0.207020;, - 0.958333; 0.248639;, - 0.958333; 0.332152;, - 0.916667; 0.332152;, - 0.875000; 0.332152;, - 0.875000; 0.248639;, - 0.508942; 0.120728;, - 0.499945; 0.111715;, - 1.499890; 0.052825;, - 0.515621; 0.061627;, - 0.752156; 0.180040;, - 0.675889; 0.133141;, - 0.732678; 0.106277;, - 0.788677; 0.165215;, - 0.766693; 0.642857;, - 0.766693; 0.714286;, - 0.879001; 0.714286;, - 0.879001; 0.571429;, - 0.766693; 0.571429;, - 1.000000; 0.417797;, - 0.002848; 0.666007;, - 1.000000; 0.663963;, - 0.999145; 0.630655;, - 0.991001; 0.659782;, - 0.957115; 0.628338;, - 0.967011; 0.439532;, - 0.982074; 0.442097;, - 0.980788; 0.532358;, - 0.992844; 0.539471;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.995865; 0.166921;, - 1.000000; 0.171103;, - 1.000000; 0.264059;, - 0.997442; 0.259847;, - 0.333333; 0.584017;, - 0.291666; 0.584017;, - 0.291666; 0.500000;, - 0.333333; 0.500000;, - 0.666667; 0.834510;, - 0.666667; 0.792981;, - 0.708334; 0.792981;, - 0.708334; 0.751362;, - 0.791667; 0.751361;, - 0.791667; 0.834510;, - 0.485104; 0.648464;, - 0.490438; 0.648443;, - 0.489819; 0.685364;, - 0.484144; 0.685290;, - 0.250000; 0.583333;, - 0.250000; 0.500000;, - 0.291667; 0.500000;, - 0.291667; 0.583333;, - 0.625000; 0.500000;, - 0.625000; 0.416667;, - 0.666667; 0.416667;, - 0.666667; 0.500000;, - 0.492636; 0.657784;, - 0.502291; 0.659087;, - 0.501788; 0.620157;, - 0.493070; 0.620014;, - 0.268283; 0.674783;, - 0.272086; 0.681541;, - 0.269976; 0.686105;, - 0.266833; 0.690010;, - 0.264123; 0.681794;, - 0.500000; 0.416667;, - 0.500000; 0.333333;, - 0.541667; 0.333333;, - 0.541667; 0.416667;, - 0.916667; 0.833333;, - 0.875000; 0.833333;, - 0.875000; 0.750000;, - 0.916667; 0.750000;, - 0.958333; 0.750000;, - 0.958333; 0.833333;, - 0.957018; 0.274731;, - 0.938670; 0.297772;, - 0.788677; 0.167502;, - 0.732678; 0.106605;, - 0.937159; 0.197654;, - 0.079637; 0.000000;, - 0.079637; 1.000000;, - 0.187283; 1.000000;, - 0.187283; 0.000000;, - 0.029084; 0.662412;, - 0.032675; 0.703561;, - 0.019148; 0.705204;, - 0.017006; 0.663310;, - 0.416667; 0.500000;, - 0.416667; 0.416667;, - 0.458333; 0.416667;, - 0.458333; 0.500000;, - 0.833333; 0.666667;, - 0.833333; 0.583333;, - 0.875000; 0.583333;, - 0.875000; 0.666667;, - 1.000000; 0.583333;, - 1.000000; 0.500000;, - 0.041667; 0.500000;, - 0.041667; 0.583333;, - 0.995208; 0.461177;, - 0.996716; 0.460179;, - 1.006758; 0.465025;, - 0.012560; 0.470342;, - 0.013607; 0.472668;, - 0.958333; 0.416667;, - 0.958333; 0.333333;, - 1.000000; 0.333333;, - 1.000000; 0.416667;, - 0.030129; 0.806842;, - 0.024966; 0.807561;, - 0.015813; 0.705117;, - 0.014037; 0.663015;, - 0.017006; 0.663310;, - 0.019148; 0.705204;, - 0.791667; 0.250000;, - 0.750000; 0.250000;, - 0.708333; 0.250000;, - 0.708333; 0.166667;, - 0.791667; 0.166667;, - 0.257872; 0.655234;, - 0.259131; 0.657822;, - 0.267982; 0.662879;, - 0.264885; 0.659390;, - 0.491109; 0.228517;, - 0.480543; 0.228743;, - 0.473460; 0.166670;, - 0.487820; 0.165550;, - 0.241610; 0.684087;, - 0.241485; 0.674022;, - 0.236393; 0.677679;, - 0.236502; 0.687498;, - 0.930093; 0.728192;, - 0.932086; 0.726700;, - 0.933859; 0.727184;, - 0.936422; 0.732906;, - 0.937666; 0.750159;, - 0.937666; 0.752617;, - 0.937620; 0.753864;, - 0.937178; 0.755612;, - 0.935328; 0.751120;, - 0.933859; 0.749662;, - 0.932086; 0.749767;, - 0.930093; 0.751657;, - 0.927644; 0.755567;, - 0.924436; 0.761733;, - 0.920730; 0.770313;, - 0.913223; 0.790402;, - 0.907828; 0.796810;, - 0.906707; 0.803426;, - 0.907828; 0.794258;, - 0.910100; 0.783443;, - 0.916894; 0.758609;, - 0.920730; 0.746865;, - 0.924436; 0.737994;, - 0.255516; 1.000000;, - 0.187283; 1.000000;, - 0.187283; 0.000000;, - 0.255516; 0.000000;, - 0.553039; 0.384700;, - 0.550884; 0.387275;, - 0.542096; 0.392747;, - 0.530455; 0.396967;, - 0.516920; 0.399714;, - 0.502268; 0.400849;, - 0.487353; 0.400330;, - 0.480305; 0.399244;, - 0.480305; 0.428571;, - 0.553039; 0.428571;, - 0.247719; 0.681857;, - 0.254346; 0.680981;, - 0.254187; 0.670712;, - 0.247577; 0.671635;, - 0.500000; 0.485224;, - 0.499922; 0.673904;, - 0.400244; 0.888168;, - 0.061583; 0.071838;, - 0.032688; 0.113695;, - 0.012081; 0.255141;, - 0.010824; 0.288104;, - 0.008569; 0.469527;, - 0.008734; 0.497995;, - 0.011844; 0.668581;, - 0.012423; 0.677149;, - 0.002848; 0.666006;, - 1.000055; 0.417796;, - 1.000000; 0.264059;, - 1.000000; 0.171103;, - 1.499877; 0.052825;, - 0.499922; 0.111715;, - 0.529706; 0.832866;, - 0.741526; 0.938024;, - 0.604712; 0.926783;, - 0.523712; 0.885733;, - 0.530423; 0.886765;, - 0.920730; 0.770313;, - 0.924436; 0.761733;, - 0.927644; 0.755567;, - 0.930093; 0.751657;, - 0.932086; 0.749767;, - 0.933859; 0.749662;, - 0.935328; 0.751120;, - 0.937178; 0.755612;, - 0.948512; 0.722506;, - 0.972564; 0.591844;, - 0.990343; 0.454160;, - 0.990139; 0.422728;, - 0.991426; 0.308035;, - 0.990579; 0.276853;, - 0.989459; 0.249222;, - 0.984853; 0.187764;, - 0.979729; 0.152764;, - 0.885010; 0.076014;, - 0.790104; 0.070761;, - 0.907828; 0.796810;, - 0.913223; 0.790402;, - 0.458315; 0.357143;, - 0.000000; 0.000000;, - 1.000000; 1.000000;, - 0.456328; 0.357758;, - 0.916894; 0.758608;, - 0.913223; 0.771394;, - 0.910100; 0.783442;, - 0.907828; 0.794257;, - 0.913223; 0.771394;, - 0.791667; 0.916667;, - 0.791667; 0.833333;, - 0.875000; 0.833333;, - 0.916667; 0.833333;, - 0.916667; 0.916667;, - 0.931921; 0.784929;, - 0.933538; 0.777567;, - 0.931921; 0.784929;, - 0.940330; 0.776353;, - 0.910100; 0.783442;, - 0.907828; 0.794257;, - 0.906707; 0.803426;, - 0.906707; 0.803426;, - 0.907828; 0.794257;, - 0.012662; 0.577657;, - 0.008133; 0.577560;, - 0.008165; 0.537480;, - 0.012711; 0.537676;, - 0.258339; 0.694936;, - 0.259125; 0.703989;, - 0.253609; 0.704792;, - 0.248098; 0.704229;, - 0.248702; 0.695137;, - 0.935065; 0.769570;, - 0.933538; 0.777568;, - 0.931921; 0.784930;, - 0.933538; 0.777568;, - 0.458333; 0.500000;, - 0.458333; 0.416667;, - 0.500000; 0.416667;, - 0.500000; 0.500000;, - 0.003701; 0.578038;, - 0.003716; 0.537956;, - 0.008165; 0.537480;, - 0.008133; 0.577560;, - 0.266515; 0.712934;, - 0.269019; 0.715279;, - 0.270476; 0.718054;, - 0.272758; 0.714013;, - 0.276042; 0.705056;, - 0.274140; 0.700874;, - 0.270785; 0.697309;, - 0.268261; 0.707950;, - 0.125000; 0.250000;, - 0.125000; 0.333333;, - 0.083333; 0.333333;, - 0.041667; 0.333333;, - 0.041667; 0.250000;, - 0.083333; 0.250000;, - 0.179472; 0.279074;, - 0.122997; 0.355808;, - 0.041551; 0.313770;, - 0.083508; 0.169579;, - 0.985779; 0.253277;, - 0.987778; 0.218063;, - 0.983562; 0.221196;, - 0.541667; 0.833333;, - 0.541667; 0.916667;, - 0.416667; 0.916667;, - 0.416667; 0.833333;, - 0.500000; 0.833333;, - 0.944135; 0.758536;, - 0.966060; 0.710602;, - 0.984063; 0.626428;, - 0.752156; 0.182794;, - 0.675889; 0.133594;, - 0.732678; 0.106605;, - 0.788677; 0.167502;, - 0.007331; 0.808972;, - 0.464910; 0.957929;, - 0.494090; 0.760775;, - 0.497844; 0.760673;, - 1.002663; 0.808484;, - 0.500000; 0.583333;, - 0.500000; 0.500000;, - 0.541667; 0.500000;, - 0.541667; 0.583333;, - 0.553039; 0.571429;, - 0.619803; 0.571429;, - 0.619803; 0.500000;, - 0.553039; 0.500000;, - 0.272233; 0.721156;, - 0.275334; 0.714085;, - 0.276427; 0.709563;, - 0.276042; 0.705056;, - 0.272758; 0.714013;, - 0.990154; 0.524106;, - 0.986557; 0.560808;, - 0.986003; 0.582721;, - 0.990154; 0.524106;, - 0.986003; 0.582721;, - 0.989730; 0.548441;, - 0.433869; 0.214286;, - 0.480305; 0.214286;, - 0.480305; 0.142857;, - 0.433869; 0.142857;, - 0.552119; 0.877882;, - 0.515322; 0.850680;, - 0.523712; 0.885733;, - 0.604712; 0.926783;, - 0.529706; 0.832866;, - 0.518587; 0.514780;, - 0.514387; 0.428460;, - 0.563827; 0.359334;, - 0.741526; 0.938024;, - 0.275321; 0.681343;, - 0.273707; 0.673233;, - 0.270343; 0.668784;, - 0.271731; 0.676866;, - 0.209752; 0.785714;, - 0.379312; 0.785714;, - 0.379312; 0.714286;, - 0.209752; 0.714286;, - 0.879001; 0.785714;, - 0.879001; 0.714286;, - 0.766693; 0.714286;, - 0.766693; 0.785714;, - 0.963784; 0.734213;, - 0.963784; 0.734213;, - 0.985147; 0.690938;, - 1.005640; 0.622789;, - 0.006635; 0.669078;, - 0.012814; 0.666342;, - 0.010241; 0.622055;, - 0.936340; 0.761955;, - 0.937221; 0.755812;, - 0.937666; 0.750159;, - 0.937221; 0.755812;, - 0.936340; 0.761955;, - 0.166667; 0.416667;, - 0.166667; 0.333333;, - 0.208333; 0.333333;, - 0.208333; 0.416667;, - 0.487392; 0.417618;, - 0.508496; 0.408175;, - 0.511365; 0.404724;, - 0.470817; 0.429416;, - 0.475663; 0.427780;, - 0.375000; 0.166667;, - 0.375000; 0.083333;, - 0.416667; 0.083333;, - 0.416667; 0.166667;, - 0.947513; 0.754453;, - 0.969825; 0.677993;, - 0.986003; 0.582721;, - 0.522914; 0.579264;, - 0.534365; 0.583350;, - 0.543152; 0.588665;, - 0.548539; 0.594884;, - 0.550100; 0.601556;, - 0.547677; 0.608173;, - 0.541412; 0.614222;, - 0.531736; 0.619241;, - 0.519462; 0.623004;, - 0.505358; 0.625284;, - 0.490307; 0.626020;, - 0.480305; 0.625408;, - 0.480305; 0.642857;, - 0.553039; 0.642857;, - 0.553039; 0.571429;, - 0.480305; 0.571429;, - 0.480305; 0.576021;, - 0.480349; 0.576014;, - 0.495109; 0.575533;, - 0.509516; 0.576684;, - 0.236313; 0.722110;, - 0.235988; 0.715003;, - 0.232402; 0.706176;, - 0.231892; 0.710698;, - 0.232885; 0.715160;, - 0.552119; 0.877882;, - 0.513728; 0.706264;, - 0.503822; 0.695125;, - 0.506175; 0.735058;, - 0.515322; 0.850680;, - 0.125000; 0.583333;, - 0.125000; 0.500000;, - 0.166667; 0.500000;, - 0.166667; 0.583333;, - 0.001863; 0.356571;, - 0.005127; 0.353603;, - 0.003856; 0.496601;, - 0.003716; 0.537956;, - 0.001356; 0.539281;, - 0.593971; 0.115548;, - 0.650758; 0.070383;, - 0.732678; 0.106277;, - 0.675889; 0.133141;, - 0.166667; 0.583333;, - 0.166667; 0.500000;, - 0.208333; 0.500000;, - 0.208333; 0.583333;, - 0.666667; 0.500000;, - 0.666667; 0.416667;, - 0.708333; 0.416667;, - 0.708333; 0.500000;, - 0.500000; 0.485225;, - 0.500000; 0.673905;, - 0.400244; 0.888168;, - 0.061583; 0.071839;, - 0.032688; 0.113696;, - 0.012081; 0.255142;, - 0.010824; 0.288104;, - 0.008568; 0.469527;, - 0.008734; 0.497995;, - 0.011844; 0.668582;, - 0.012423; 0.677149;, - 0.002848; 0.666007;, - 1.000000; 0.417797;, - 1.000000; 0.264059;, - 1.000000; 0.171103;, - 1.499890; 0.052825;, - 0.499945; 0.111715;, - 0.666668; 0.124040;, - 0.666667; 0.165490;, - 0.541667; 0.165490;, - 0.500000; 0.165489;, - 0.499945; 0.124040;, - 0.479166; 0.124036;, - 0.479166; 0.086083;, - 0.645834; 0.086083;, - 0.645834; 0.124035;, - 0.187283; 1.000000;, - 0.079637; 1.000000;, - 0.079637; 0.000000;, - 0.187283; 0.000000;, - 0.500000; 0.500000;, - 0.458333; 0.500000;, - 0.458333; 0.415983;, - 0.500000; 0.415983;, - 0.463656; 0.720698;, - 0.387695; 0.684250;, - 0.395378; 0.656542;, - 0.466965; 0.685187;, - 0.259855; 0.680091;, - 0.258676; 0.676084;, - 0.263752; 0.669277;, - 0.268283; 0.674783;, - 0.264123; 0.681794;, - 0.262560; 0.677933;, - 0.833333; 0.666667;, - 0.833333; 0.583333;, - 0.875000; 0.583333;, - 0.875000; 0.666667;, - 0.375000; 0.751362;, - 0.291666; 0.751361;, - 0.291666; 0.667848;, - 0.375000; 0.667848;, - 0.982066; 0.411272;, - 0.982074; 0.442097;, - 0.967011; 0.439532;, - 0.966991; 0.410875;, - 0.247719; 0.681857;, - 0.248352; 0.693310;, - 0.260587; 0.692988;, - 0.260940; 0.681529;, - 0.254346; 0.680981;, - 0.250000; 0.333333;, - 0.250000; 0.250000;, - 0.291667; 0.250000;, - 0.291667; 0.333333;, - 0.379312; 0.357143;, - 0.433869; 0.357143;, - 0.433869; 0.285714;, - 0.379312; 0.285714;, - 0.708334; 0.792981;, - 0.666667; 0.792981;, - 0.625000; 0.792981;, - 0.625000; 0.751362;, - 0.625000; 0.667848;, - 0.708334; 0.667848;, - 0.708334; 0.751362;, - 0.231065; 0.698598;, - 0.233630; 0.703578;, - 0.233725; 0.711811;, - 0.231155; 0.707112;, - 0.209752; 0.071429;, - 0.209752; 0.142857;, - 0.379312; 0.142857;, - 0.379312; 0.071429;, - 0.250000; 0.666667;, - 0.250000; 0.583333;, - 0.291667; 0.583333;, - 0.291667; 0.666667;, - 0.041667; 0.416667;, - 0.041667; 0.333333;, - 0.083333; 0.333333;, - 0.083333; 0.416667;, - 0.333333; 0.208333;, - 0.395833; 0.166667;, - 0.416667; 0.166667;, - 0.416667; 0.208333;, - 0.625000; 0.248638;, - 0.625000; 0.332151;, - 0.583333; 0.332151;, - 0.541667; 0.332151;, - 0.541667; 0.248638;, - 0.250000; 0.500000;, - 0.250000; 0.416667;, - 0.291667; 0.416667;, - 0.291667; 0.500000;, - 0.270213; 0.715001;, - 0.269267; 0.721975;, - 0.259537; 0.726664;, - 0.259777; 0.720301;, - 0.265337; 0.718222;, - 0.276547; 0.697560;, - 0.276744; 0.706015;, - 0.274102; 0.710842;, - 0.273913; 0.702660;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.375000; 0.583333;, - 0.375000; 0.500000;, - 0.416667; 0.500000;, - 0.416667; 0.583333;, - 0.958333; 0.750000;, - 0.958333; 0.833333;, - 0.875000; 0.833333;, - 0.875000; 0.750000;, - 0.916667; 0.750000;, - 0.958334; 0.751361;, - 0.958333; 0.667848;, - 1.000000; 0.667848;, - 0.041667; 0.667848;, - 0.041667; 0.751361;, - 0.458333; 0.333333;, - 0.416667; 0.333333;, - 0.375000; 0.333333;, - 0.375000; 0.250000;, - 0.458333; 0.250000;, - 0.416667; 0.833333;, - 0.416667; 0.750000;, - 0.500000; 0.750000;, - 0.500000; 0.833333;, - 0.437500; 0.291667;, - 0.437500; 0.250000;, - 0.416667; 0.250000;, - 0.416667; 0.208333;, - 0.416667; 0.166667;, - 0.583333; 0.166667;, - 0.583333; 0.208333;, - 0.562500; 0.208333;, - 0.562500; 0.250000;, - 0.583333; 0.250000;, - 0.583333; 0.291667;, - 0.562500; 0.291667;, - 0.937221; 0.771047;, - 0.936340; 0.774999;, - 0.947513; 0.754453;, - 0.948558; 0.748590;, - 0.500000; 0.666667;, - 0.500000; 0.583333;, - 0.541667; 0.583333;, - 0.541667; 0.666667;, - 0.958333; 0.666667;, - 0.958333; 0.583333;, - 1.000000; 0.583333;, - 1.000000; 0.666667;, - 0.250000; 0.415983;, - 0.250000; 0.500000;, - 0.208333; 0.500000;, - 0.208333; 0.415983;, - 0.276547; 0.697560;, - 0.274920; 0.689254;, - 0.276009; 0.683839;, - 0.277736; 0.692064;, - 0.485667; 0.565063;, - 0.485266; 0.519930;, - 0.490542; 0.519639;, - 0.490800; 0.564867;, - 0.854167; 0.208333;, - 0.854167; 0.250000;, - 0.833333; 0.250000;, - 0.833333; 0.333333;, - 0.812500; 0.333333;, - 0.791667; 0.333333;, - 0.791667; 0.208333;, - 0.833333; 0.208333;, - 0.234445; 0.701900;, - 0.232755; 0.691833;, - 0.230583; 0.696778;, - 0.232402; 0.706176;, - 0.666667; 0.833333;, - 0.666667; 0.750000;, - 0.750000; 0.750000;, - 0.750000; 0.833333;, - 0.041667; 0.248639;, - 0.125000; 0.248639;, - 0.125000; 0.332152;, - 0.083333; 0.332152;, - 0.041667; 0.332152;, - 0.273002; 0.676607;, - 0.272623; 0.671626;, - 0.275617; 0.678374;, - 0.276009; 0.683839;, - 0.208333; 0.250000;, - 0.208333; 0.166667;, - 0.250000; 0.166667;, - 0.250000; 0.250000;, - 0.791667; 0.416667;, - 0.791667; 0.333333;, - 0.833333; 0.333333;, - 0.833333; 0.416667;, - 0.000000; 1.000000;, - 0.000000; 0.000000;, - 0.553039; 1.000000;, - 0.553039; 0.928571;, - 0.166667; 0.583333;, - 0.166667; 0.500000;, - 0.208333; 0.500000;, - 0.208333; 0.583333;, - 0.271731; 0.676866;, - 0.271929; 0.686628;, - 0.275524; 0.690788;, - 0.275321; 0.681343;, - 0.336070; 0.924506;, - 0.050671; 0.801952;, - 0.139577; 0.740066;, - 0.275530; 0.792047;, - 0.291666; 0.751361;, - 0.208333; 0.751361;, - 0.208333; 0.667848;, - 0.291666; 0.667848;, - 1.000000; 1.000000;, - 0.079637; 1.000000;, - 0.079637; 0.000000;, - 1.000000; 0.000000;, - 0.377995; 1.000000;, - 0.322642; 1.000000;, - 0.322642; 0.000000;, - 0.377995; 0.000000;, - 0.000000; 0.000000;, - 0.480305; 0.071429;, - 0.553039; 0.071429;, - 0.553039; 1.000000;, - 0.958333; 0.833333;, - 0.958333; 0.750000;, - 1.000000; 0.750000;, - 1.000000; 0.833333;, - 0.258299; 0.715271;, - 0.261661; 0.716114;, - 0.266581; 0.719423;, - 0.269019; 0.715279;, - 0.266515; 0.712934;, - 0.268261; 0.707950;, - 0.259690; 0.704613;, - 0.970279; 0.120548;, - 0.979729; 0.152764;, - 0.023134; 0.129090;, - 0.038163; 0.091097;, - 0.553039; 0.642857;, - 0.553039; 0.714286;, - 0.619803; 0.714286;, - 0.619803; 0.642857;, - 0.208333; 0.751361;, - 0.208333; 0.792980;, - 0.166666; 0.792980;, - 0.125000; 0.792980;, - 0.125000; 0.751361;, - 0.125000; 0.667848;, - 0.208333; 0.667848;, - 0.250000; 0.583333;, - 0.250000; 0.500000;, - 0.291667; 0.500000;, - 0.291667; 0.583333;, - 0.250000; 0.333333;, - 0.250000; 0.500000;, - 0.229167; 0.500000;, - 0.229167; 0.333333;, - 0.041667; 0.500000;, - 0.041667; 0.416667;, - 0.083333; 0.416667;, - 0.083333; 0.500000;, - 0.333333; 0.333333;, - 0.354167; 0.333333;, - 0.354167; 0.500000;, - 0.312500; 0.500000;, - 0.312500; 0.333333;, - 0.791667; 0.833333;, - 0.791667; 0.916667;, - 0.666667; 0.916667;, - 0.666667; 0.833333;, - 0.750000; 0.833333;, - 0.291667; 0.916667;, - 0.291667; 0.833333;, - 0.333333; 0.833333;, - 0.333333; 0.916667;, - 0.770833; 0.500000;, - 0.750000; 0.500000;, - 0.750000; 0.333333;, - 0.770833; 0.333333;, - 0.916667; 0.416667;, - 0.916667; 0.333333;, - 0.958333; 0.333333;, - 0.958333; 0.416667;, - 0.041667; 0.500000;, - 0.041667; 0.584016;, - 1.000000; 0.584016;, - 1.000000; 0.500000;, - 0.007144; 0.508880;, - 0.006984; 0.480189;, - 0.000227; 0.482361;, - 0.000227; 0.445690;, - 0.990343; 0.454160;, - 0.990155; 0.506879;, - 0.379312; 0.714286;, - 0.379312; 0.785714;, - 0.433869; 0.785714;, - 0.433869; 0.714286;, - 0.166667; 0.416667;, - 0.166667; 0.333333;, - 0.208333; 0.333333;, - 0.208333; 0.416667;, - 0.750000; 0.166667;, - 0.750000; 0.083333;, - 0.833333; 0.083333;, - 0.833333; 0.166667;, - 0.708333; 0.500000;, - 0.708333; 0.416667;, - 0.750000; 0.416667;, - 0.750000; 0.500000;, - 0.083333; 0.667848;, - 0.083333; 0.584016;, - 0.125000; 0.584016;, - 0.125000; 0.667848;, - 0.256748; 0.681469;, - 0.259855; 0.680091;, - 0.262560; 0.677933;, - 0.264123; 0.681794;, - 0.266833; 0.690010;, - 0.258339; 0.694936;, - 0.257324; 0.685871;, - 0.230492; 0.687605;, - 0.232657; 0.682322;, - 0.233993; 0.674090;, - 0.231956; 0.679317;, - 0.488996; 0.420105;, - 0.482866; 0.420673;, - 0.469834; 0.230519;, - 0.480543; 0.228743;, - 0.242976; 0.730078;, - 0.240356; 0.727730;, - 0.238640; 0.724962;, - 0.236313; 0.722110;, - 0.232885; 0.715160;, - 0.235261; 0.719265;, - 0.238830; 0.722740;, - 0.241301; 0.728133;, - 0.041667; 0.666667;, - 0.041667; 0.750000;, - 1.000000; 0.750000;, - 0.958333; 0.750000;, - 0.958333; 0.666667;, - 1.000000; 0.666667;, - 0.625000; 0.415983;, - 0.625000; 0.332151;, - 0.708333; 0.332152;, - 0.708333; 0.415983;, - 0.666667; 0.415983;, - 0.875000; 0.666667;, - 0.875000; 0.583333;, - 0.916667; 0.583333;, - 0.916667; 0.666667;, - 0.375000; 0.248638;, - 0.375000; 0.207019;, - 0.416666; 0.207019;, - 0.458333; 0.207019;, - 0.458333; 0.248638;, - 0.458333; 0.332152;, - 0.416666; 0.332151;, - 0.375000; 0.332152;, - 0.276042; 0.705056;, - 0.277548; 0.695637;, - 0.275524; 0.690788;, - 0.274140; 0.700874;, - 0.416667; 0.666667;, - 0.416667; 0.583333;, - 0.458333; 0.583333;, - 0.458333; 0.666667;, - 0.270343; 0.668784;, - 0.267982; 0.662879;, - 0.259131; 0.657822;, - 0.260130; 0.663252;, - 0.265712; 0.665366;, - 0.619803; 0.071429;, - 0.766693; 0.071429;, - 0.766693; 1.000000;, - 0.619803; 1.000000;, - 0.875000; 0.583333;, - 0.875000; 0.500000;, - 0.916667; 0.500000;, - 0.916667; 0.583333;, - 0.958333; 0.500000;, - 0.958333; 0.416667;, - 1.000000; 0.416667;, - 1.000000; 0.500000;, - 0.500000; 0.500000;, - 0.500000; 0.416667;, - 0.541667; 0.416667;, - 0.541667; 0.500000;, - 0.006635; 0.669078;, - 0.995564; 0.673116;, - 0.994458; 0.690035;, - 0.014457; 0.680722;, - 0.012814; 0.666342;, - 0.029084; 0.662412;, - 0.017006; 0.663310;, - 0.015843; 0.620618;, - 0.027124; 0.620290;, - 0.277343; 0.686533;, - 0.277548; 0.695637;, - 0.277938; 0.700831;, - 0.277736; 0.692064;, - 1.000000; 0.333333;, - 0.958333; 0.333333;, - 0.958333; 0.250000;, - 1.000000; 0.250000;, - 0.041667; 0.250000;, - 0.041667; 0.333333;, - 0.833333; 0.250000;, - 0.791667; 0.250000;, - 0.791667; 0.166667;, - 0.875000; 0.166667;, - 0.875000; 0.250000;, - 0.041667; 0.666667;, - 0.041667; 0.583333;, - 0.083333; 0.583333;, - 0.083333; 0.666667;, - 0.750000; 0.833333;, - 0.750000; 0.750000;, - 0.791667; 0.750000;, - 0.791667; 0.833333;, - 0.277938; 0.700831;, - 0.276744; 0.706015;, - 0.276547; 0.697560;, - 0.277736; 0.692064;, - 0.231892; 0.710698;, - 0.232402; 0.706176;, - 0.230583; 0.696778;, - 0.230063; 0.701988;, - 1.000000; 0.416667;, - 1.000000; 0.333333;, - 0.041667; 0.333333;, - 0.041667; 0.416667;, - 0.009235; 0.558060;, - 1.005115; 0.557032;, - 1.005194; 0.578333;, - 1.005368; 0.600334;, - 0.009665; 0.600284;, - 0.230492; 0.687605;, - 0.231956; 0.679317;, - 0.231453; 0.684802;, - 0.229975; 0.693155;, - 0.958333; 0.500000;, - 0.916667; 0.500000;, - 0.916667; 0.415983;, - 0.958333; 0.415983;, - 0.916667; 0.207020;, - 0.916667; 0.165491;, - 1.000000; 0.165491;, - 0.041667; 0.165491;, - 0.041667; 0.248639;, - 0.958333; 0.248639;, - 0.958334; 0.207020;, - 0.973121; 0.153447;, - 0.979733; 0.187232;, - 0.016204; 0.168594;, - 0.023134; 0.129090;, - 0.541667; 0.833333;, - 0.541667; 0.750000;, - 0.625000; 0.750000;, - 0.625000; 0.833333;, - 0.015813; 0.705117;, - 0.024966; 0.807561;, - 0.016101; 0.808583;, - 0.010165; 0.705411;, - 0.333333; 0.208333;, - 0.333333; 0.333333;, - 0.312500; 0.333333;, - 0.291667; 0.333333;, - 0.291667; 0.208333;, - 0.875000; 0.415983;, - 0.875000; 0.500000;, - 0.833334; 0.500000;, - 0.833334; 0.415983;, - 0.750000; 0.583333;, - 0.750000; 0.500000;, - 0.791667; 0.500000;, - 0.791667; 0.583333;, - 0.098449; 0.714286;, - 0.209752; 0.714286;, - 0.209752; 0.642857;, - 0.209752; 0.571429;, - 0.098449; 0.571429;, - 0.541667; 0.583333;, - 0.541667; 0.500000;, - 0.583333; 0.500000;, - 0.583333; 0.583333;, - 0.375000; 0.166667;, - 0.291667; 0.166667;, - 0.208333; 0.166667;, - 0.208333; 0.083333;, - 0.375000; 0.083333;, - 0.166666; 0.415983;, - 0.166667; 0.500000;, - 0.125000; 0.500000;, - 0.125000; 0.415983;, - 0.563106; 0.218312;, - 0.552792; 0.464106;, - 0.518101; 0.480336;, - 0.505013; 0.485156;, - 0.505096; 0.389029;, - 0.505970; 0.235092;, - 0.833334; 0.415983;, - 0.833334; 0.500000;, - 0.791667; 0.500000;, - 0.791667; 0.415983;, - 0.583333; 0.291667;, - 0.583333; 0.250000;, - 0.562500; 0.250000;, - 0.562500; 0.208333;, - 0.583333; 0.208333;, - 0.645833; 0.208333;, - 0.645833; 0.250000;, - 0.666667; 0.250000;, - 0.666667; 0.333333;, - 0.645833; 0.333333;, - 0.625000; 0.333333;, - 0.625000; 0.291667;, - 0.458333; 0.416667;, - 0.458333; 0.333333;, - 0.500000; 0.333333;, - 0.500000; 0.416667;, - 0.541667; 0.500000;, - 0.541667; 0.416667;, - 0.583333; 0.416667;, - 0.583333; 0.500000;, - 0.553039; 1.000000;, - 0.553039; 0.071429;, - 0.619803; 0.071429;, - 0.619803; 1.000000;, - 0.250000; 0.166667;, - 0.208333; 0.166667;, - 0.125000; 0.166667;, - 0.083333; 0.166667;, - 0.083333; 0.083333;, - 0.250000; 0.083333;, - 0.208333; 0.667848;, - 0.208333; 0.584016;, - 0.250000; 0.584017;, - 0.291666; 0.584017;, - 0.291666; 0.667848;, - 0.433869; 0.142857;, - 0.480305; 0.142857;, - 0.480305; 0.071429;, - 0.433869; 0.071429;, - 0.277343; 0.686533;, - 0.275617; 0.678374;, - 0.273707; 0.673233;, - 0.275321; 0.681343;, - 0.000000; 1.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 1.000000;, - 0.023134; 0.129090;, - 0.016204; 0.168595;, - 0.010713; 0.235801;, - 0.009496; 0.265143;, - 0.012081; 0.255142;, - 0.032688; 0.113696;, - 0.750000; 0.250000;, - 0.750000; 0.333333;, - 0.729167; 0.333333;, - 0.708333; 0.333333;, - 0.708333; 0.208333;, - 0.729167; 0.208333;, - 0.729167; 0.250000;, - 0.007144; 0.508880;, - 0.008734; 0.497995;, - 0.008568; 0.469527;, - 0.010824; 0.288104;, - 0.012081; 0.255142;, - 0.009496; 0.265143;, - 0.007895; 0.332452;, - 0.006984; 0.480189;, - 0.992643; 0.636974;, - 0.022483; 0.628175;, - 0.021836; 0.663065;, - 0.992994; 0.678169;, - 0.333333; 0.583333;, - 0.333333; 0.500000;, - 0.375000; 0.500000;, - 0.375000; 0.583333;, - 0.750000; 0.583333;, - 0.750000; 0.500000;, - 0.791667; 0.500000;, - 0.791667; 0.583333;, - 0.433869; 0.071429;, - 0.480305; 0.071429;, - 0.000000; 0.000000;, - 0.433869; 1.000000;, - 1.000000; 0.333333;, - 0.958333; 0.333333;, - 0.958333; 0.250000;, - 1.000000; 0.250000;, - 0.041667; 0.250000;, - 0.041667; 0.333333;, - 0.500000; 0.332152;, - 0.500000; 0.415983;, - 0.458333; 0.415983;, - 0.458333; 0.332152;, - 0.666667; 0.500000;, - 0.666667; 0.416667;, - 0.708333; 0.416667;, - 0.708333; 0.500000;, - 0.250000; 0.416667;, - 0.250000; 0.333333;, - 0.291667; 0.333333;, - 0.291667; 0.416667;, - 0.833333; 0.833333;, - 0.833333; 0.750000;, - 0.875000; 0.750000;, - 0.875000; 0.833333;, - 0.645833; 0.500000;, - 0.645833; 0.333333;, - 0.666667; 0.333333;, - 0.687500; 0.333333;, - 0.687500; 0.500000;, - 0.333333; 0.583333;, - 0.333333; 0.500000;, - 0.375000; 0.500000;, - 0.375000; 0.583333;, - 0.966060; 0.710602;, - 0.944135; 0.758536;, - 0.933538; 0.779373;, - 0.931921; 0.784929;, - 0.208333; 0.666667;, - 0.208333; 0.750000;, - 0.125000; 0.750000;, - 0.125000; 0.666667;, - 0.166667; 0.666667;, - 0.291666; 0.332152;, - 0.291667; 0.415983;, - 0.250000; 0.415983;, - 0.208333; 0.415983;, - 0.208333; 0.332152;, - 0.791667; 0.584016;, - 0.750000; 0.584016;, - 0.750000; 0.500000;, - 0.791667; 0.500000;, - 0.235988; 0.715003;, - 0.240722; 0.708703;, - 0.237943; 0.698164;, - 0.234445; 0.701900;, - 0.232402; 0.706176;, - 0.125000; 0.416667;, - 0.125000; 0.333333;, - 0.166667; 0.333333;, - 0.166667; 0.416667;, - 0.000000; 1.000000;, - 0.553039; 0.928571;, - 0.553039; 0.857143;, - 0.480305; 0.857143;, - 0.240722; 0.708703;, - 0.242569; 0.713600;, - 0.246055; 0.711655;, - 0.250177; 0.710378;, - 0.249463; 0.704895;, - 0.248352; 0.693310;, - 0.237943; 0.698164;, - 0.375000; 0.333333;, - 0.375000; 0.250000;, - 0.416667; 0.250000;, - 0.416667; 0.333333;, - 0.209752; 0.214286;, - 0.379312; 0.214286;, - 0.379312; 0.142857;, - 0.209752; 0.142857;, - 0.098449; 0.071429;, - 0.098449; 0.214286;, - 0.209752; 0.214286;, - 0.209752; 0.142857;, - 0.209752; 0.071429;, - 0.375000; 0.250000;, - 0.291667; 0.250000;, - 0.291667; 0.166667;, - 0.375000; 0.166667;, - 0.231065; 0.698598;, - 0.232451; 0.690174;, - 0.234832; 0.695084;, - 0.233630; 0.703578;, - 0.916667; 0.750000;, - 0.916667; 0.666667;, - 0.958333; 0.666667;, - 0.958333; 0.750000;, - 0.259777; 0.720301;, - 0.253867; 0.721105;, - 0.253727; 0.713423;, - 0.259623; 0.712592;, - 0.291667; 0.416667;, - 0.291667; 0.333333;, - 0.333333; 0.333333;, - 0.333333; 0.416667;, - 0.291667; 0.500000;, - 0.291667; 0.416667;, - 0.333333; 0.416667;, - 0.333333; 0.500000;, - 0.750000; 0.333333;, - 0.750000; 0.250000;, - 0.770833; 0.250000;, - 0.770833; 0.208333;, - 0.791667; 0.208333;, - 0.791667; 0.333333;, - 0.770833; 0.333333;, - 0.916667; 0.500000;, - 0.875000; 0.500000;, - 0.875000; 0.415983;, - 0.916667; 0.415983;, - 0.333333; 0.165490;, - 0.291666; 0.165490;, - 0.166666; 0.165490;, - 0.166666; 0.124040;, - 0.145833; 0.124037;, - 0.145833; 0.086084;, - 0.354166; 0.086084;, - 0.354166; 0.124036;, - 0.333333; 0.124040;, - 0.433869; 0.714286;, - 0.433869; 0.642857;, - 0.379312; 0.642857;, - 0.379312; 0.714286;, - 0.257691; 0.657319;, - 0.259074; 0.656533;, - 0.262946; 0.660700;, - 0.264207; 0.666365;, - 0.261622; 0.664834;, - 0.261581; 0.663704;, - 0.259146; 0.662978;, - 0.257025; 0.658930;, - 0.258578; 0.657947;, - 0.230583; 0.696778;, - 0.232755; 0.691833;, - 0.232657; 0.682322;, - 0.230492; 0.687605;, - 0.708333; 0.666667;, - 0.708333; 0.583333;, - 0.750000; 0.583333;, - 0.750000; 0.666667;, - 0.333333; 0.250000;, - 0.333333; 0.166667;, - 0.375000; 0.166667;, - 0.375000; 0.250000;, - 0.375000; 0.833333;, - 0.375000; 0.750000;, - 0.416667; 0.750000;, - 0.416667; 0.833333;, - 0.766693; 0.071429;, - 0.766693; 0.142857;, - 0.766693; 0.214286;, - 0.879001; 0.214286;, - 0.879001; 0.071429;, - 0.166667; 0.333333;, - 0.166667; 0.208333;, - 0.208333; 0.208333;, - 0.208333; 0.333333;, - 0.187500; 0.333333;, - 0.083333; 0.500000;, - 0.083333; 0.416667;, - 0.125000; 0.416667;, - 0.125000; 0.500000;, - 0.833333; 0.333333;, - 0.854167; 0.333333;, - 0.854167; 0.500000;, - 0.812500; 0.500000;, - 0.812500; 0.333333;, - 0.499945; 0.124040;, - 0.500000; 0.165489;, - 0.416666; 0.165490;, - 0.333333; 0.165490;, - 0.333333; 0.124040;, - 0.354166; 0.124036;, - 0.354166; 0.086084;, - 0.479166; 0.086083;, - 0.479166; 0.124036;, - 0.268857; 0.698561;, - 0.272473; 0.694267;, - 0.273913; 0.702660;, - 0.270034; 0.707038;, - 0.333333; 0.415983;, - 0.375000; 0.415983;, - 0.375000; 0.500000;, - 0.333333; 0.500000;, - 0.125000; 0.415983;, - 0.125000; 0.500000;, - 0.083333; 0.500000;, - 0.083333; 0.415983;, - 0.541667; 0.415983;, - 0.583333; 0.415983;, - 0.583333; 0.500000;, - 0.541667; 0.500000;, - 0.625000; 0.583333;, - 0.625000; 0.500000;, - 0.666667; 0.500000;, - 0.666667; 0.583333;, - 0.333333; 0.666667;, - 0.333333; 0.583333;, - 0.375000; 0.583333;, - 0.375000; 0.666667;, - 0.208333; 0.166667;, - 0.208333; 0.250000;, - 0.125000; 0.250000;, - 0.125000; 0.166667;, - 0.229975; 0.693155;, - 0.231453; 0.684802;, - 0.232451; 0.690174;, - 0.231065; 0.698598;, - 0.249595; 0.686025;, - 0.248702; 0.695137;, - 0.240248; 0.690561;, - 0.242834; 0.682218;, - 0.541667; 0.500000;, - 0.583333; 0.500000;, - 0.583333; 0.584017;, - 0.541667; 0.584017;, - 0.992737; 0.512087;, - 0.007144; 0.508879;, - 0.006984; 0.480188;, - 0.992893; 0.484692;, - 0.458333; 0.166667;, - 0.458333; 0.250000;, - 0.375000; 0.250000;, - 0.375000; 0.166667;, - 0.416667; 0.166667;, - 0.250914; 0.733737;, - 0.247703; 0.732876;, - 0.242744; 0.729539;, - 0.240356; 0.727730;, - 0.242976; 0.730078;, - 0.241301; 0.728133;, - 0.249509; 0.731470;, - 0.916667; 0.583333;, - 0.916667; 0.500000;, - 0.958333; 0.500000;, - 0.958333; 0.583333;, - 0.469834; 0.230519;, - 0.459079; 0.169368;, - 0.473460; 0.166670;, - 0.480543; 0.228743;, - 0.333333; 0.833333;, - 0.333333; 0.750000;, - 0.375000; 0.750000;, - 0.416667; 0.750000;, - 0.416667; 0.833333;, - 0.235096; 0.682304;, - 0.232451; 0.690174;, - 0.231453; 0.684802;, - 0.234258; 0.677403;, - 0.458333; 0.500000;, - 0.458333; 0.416667;, - 0.500000; 0.416667;, - 0.500000; 0.500000;, - 0.333333; 0.333333;, - 0.291667; 0.333333;, - 0.291667; 0.250000;, - 0.333333; 0.250000;, - 0.375000; 0.250000;, - 0.375000; 0.333333;, - 0.989081; 0.575335;, - 0.991316; 0.605148;, - 0.992421; 0.537979;, - 0.958333; 0.583333;, - 0.958333; 0.500000;, - 1.000000; 0.500000;, - 1.000000; 0.583333;, - 0.003856; 0.496601;, - 0.005127; 0.353603;, - 0.011275; 0.352862;, - 0.008474; 0.496129;, - 0.992458; 0.374254;, - 0.990343; 0.460818;, - 0.990363; 0.496767;, - 0.992893; 0.484692;, - 0.006984; 0.480188;, - 0.007460; 0.366622;, - 0.468111; 0.438554;, - 0.475663; 0.427780;, - 0.470817; 0.429416;, - 0.462289; 0.443031;, - 0.541667; 0.333333;, - 0.500000; 0.333333;, - 0.500000; 0.250000;, - 0.541667; 0.250000;, - 0.583333; 0.250000;, - 0.583333; 0.333333;, - 0.416667; 0.333333;, - 0.416667; 0.291667;, - 0.437500; 0.291667;, - 0.562500; 0.291667;, - 0.562500; 0.500000;, - 0.437500; 0.500000;, - 0.437500; 0.333333;, - 0.026386; 0.539080;, - 0.027363; 0.498509;, - 0.089962; 0.499461;, - 0.087321; 0.534512;, - 0.750000; 0.416667;, - 0.750000; 0.333333;, - 0.791667; 0.333333;, - 0.791667; 0.416667;, - 0.908267; 0.815512;, - 0.732043; 0.448921;, - 0.418163; 0.485521;, - 0.289469; 0.946069;, - 0.006501; 0.958980;, - 0.905854; 0.890218;, - 0.908927; 0.822465;, - 0.208333; 0.416667;, - 0.208333; 0.333333;, - 0.250000; 0.333333;, - 0.250000; 0.416667;, - 0.433869; 0.357143;, - 0.000000; 0.000000;, - 1.000000; 1.000000;, - 0.000000; 1.000000;, - 0.000000; 0.000000;, - 1.000000; 0.000000;, - 0.433869; 0.285714;, - 0.962893; 0.177456;, - 0.949783; 0.138440;, - 0.994136; 0.123507;, - 0.995865; 0.166921;, - 0.230492; 0.687605;, - 0.229975; 0.693155;, - 0.230063; 0.701988;, - 0.230583; 0.696778;, - 0.375000; 0.750000;, - 0.375000; 0.666667;, - 0.416667; 0.666667;, - 0.416667; 0.750000;, - 0.583333; 0.416667;, - 0.583333; 0.333333;, - 0.625000; 0.333333;, - 0.625000; 0.416667;, - 0.232885; 0.715160;, - 0.231155; 0.707112;, - 0.233725; 0.711811;, - 0.235261; 0.719265;, - 0.187500; 0.500000;, - 0.187500; 0.333333;, - 0.208333; 0.333333;, - 0.229167; 0.333333;, - 0.229167; 0.500000;, - 0.986399; 0.173901;, - 0.514767; 0.180856;, - 0.495526; 0.166422;, - 1.004656; 0.150616;, - 0.989077; 0.071395;, - 0.994136; 0.123507;, - 0.949783; 0.138440;, - 0.650758; 0.070383;, - 0.515621; 0.061626;, - 0.604167; 0.083333;, - 0.666667; 0.083333;, - 0.687500; 0.083333;, - 0.687500; 0.166667;, - 0.666667; 0.166667;, - 0.666667; 0.208333;, - 0.645833; 0.208333;, - 0.583333; 0.208333;, - 0.583333; 0.166667;, - 0.583333; 0.125000;, - 0.604167; 0.125000;, - 0.235096; 0.682304;, - 0.237147; 0.686784;, - 0.234832; 0.695084;, - 0.232451; 0.690174;, - 0.260940; 0.681529;, - 0.266955; 0.683462;, - 0.266767; 0.673439;, - 0.260764; 0.671330;, - 0.125000; 0.415983;, - 0.125000; 0.332152;, - 0.208333; 0.332152;, - 0.208333; 0.415983;, - 0.166666; 0.415983;, - 0.479166; 0.086083;, - 0.354166; 0.086084;, - 0.145833; 0.086084;, - 0.979167; 0.086084;, - 0.854168; 0.086084;, - 0.645834; 0.086083;, - 0.013049; 0.305813;, - 0.005938; 0.306312;, - 0.012899; 0.148202;, - 0.028242; 0.148891;, - 0.050671; 0.801952;, - 0.336070; 0.924506;, - 0.379276; 0.944781;, - 0.030129; 0.806842;, - 0.770833; 0.250000;, - 0.750000; 0.250000;, - 0.729167; 0.250000;, - 0.729167; 0.208333;, - 0.729167; 0.166667;, - 0.750000; 0.166667;, - 0.770833; 0.166667;, - 0.770833; 0.208333;, - 0.553039; 0.714286;, - 0.553039; 0.785714;, - 0.619803; 0.785714;, - 0.619803; 0.714286;, - 0.552792; 0.464106;, - 0.563106; 0.218312;, - 0.593971; 0.115548;, - 0.675889; 0.133141;, - 0.609262; 0.442487;, - 0.322642; 0.000000;, - 0.322642; 1.000000;, - 0.377995; 1.000000;, - 0.377995; 0.000000;, - 0.387695; 0.684250;, - 0.463656; 0.720698;, - 0.458188; 0.758113;, - 0.376112; 0.711005;, - 0.051790; 0.155655;, - 0.043333; 0.152118;, - 0.459079; 0.169368;, - 0.450537; 0.171586;, - 0.541667; 0.916667;, - 0.666667; 0.916667;, - 0.791667; 0.916667;, - 0.916667; 0.916667;, - 0.083333; 0.916667;, - 0.250000; 0.916667;, - 0.416667; 0.916667;, - 0.518587; 0.514780;, - 0.529706; 0.832866;, - 0.426314; 0.789934;, - 0.446107; 0.550167;, - 0.978103; 0.292658;, - 0.976057; 0.264130;, - 0.997442; 0.259847;, - 0.997674; 0.289926;, - 0.541667; 0.751362;, - 0.458333; 0.751362;, - 0.458333; 0.667848;, - 0.500000; 0.667849;, - 0.541667; 0.667849;, - 0.750000; 0.584016;, - 0.708334; 0.584017;, - 0.708333; 0.500000;, - 0.750000; 0.500000;, - 0.625000; 0.333333;, - 0.583333; 0.333333;, - 0.583333; 0.250000;, - 0.666667; 0.250000;, - 0.666667; 0.333333;, - 0.708333; 0.583333;, - 0.708333; 0.500000;, - 0.750000; 0.500000;, - 0.750000; 0.583333;, - 0.416667; 0.750000;, - 0.416667; 0.666667;, - 0.458333; 0.666667;, - 0.500000; 0.666667;, - 0.500000; 0.750000;, - 0.433869; 0.571429;, - 0.480305; 0.571429;, - 0.480305; 0.500000;, - 0.433869; 0.500000;, - 0.250000; 0.416667;, - 0.250000; 0.333333;, - 0.291667; 0.333333;, - 0.291667; 0.416667;, - 0.993668; 0.694657;, - 0.992994; 0.678169;, - 0.021836; 0.663065;, - 0.020438; 0.679024;, - 0.017592; 0.479269;, - 0.013607; 0.472668;, - 0.012560; 0.470342;, - 0.016395; 0.476071;, - 0.291667; 0.250000;, - 0.250000; 0.250000;, - 0.250000; 0.166667;, - 0.333333; 0.166667;, - 0.333333; 0.250000;, - 0.416667; 0.500000;, - 0.416666; 0.415983;, - 0.458333; 0.415983;, - 0.458333; 0.500000;, - 0.041667; 0.500000;, - 0.041667; 0.416667;, - 0.083333; 0.416667;, - 0.083333; 0.500000;, - 0.021215; 0.355379;, - 0.036118; 0.358969;, - 0.027363; 0.498509;, - 0.015985; 0.497405;, - 0.208333; 0.750000;, - 0.166667; 0.750000;, - 0.166667; 0.666667;, - 0.208333; 0.666667;, - 0.250000; 0.666667;, - 0.250000; 0.750000;, - 0.241182; 0.722408;, - 0.247567; 0.716514;, - 0.246055; 0.711655;, - 0.242569; 0.713600;, - 0.240722; 0.708703;, - 0.235988; 0.715003;, - 0.916667; 0.416667;, - 0.916667; 0.333333;, - 0.958333; 0.333333;, - 0.958333; 0.416667;, - 0.833334; 0.165490;, - 0.791667; 0.165490;, - 0.666667; 0.165490;, - 0.666668; 0.124040;, - 0.645834; 0.124035;, - 0.645834; 0.086083;, - 0.854168; 0.086084;, - 0.854168; 0.124036;, - 0.833334; 0.124040;, - 0.333333; 0.416667;, - 0.333333; 0.333333;, - 0.375000; 0.333333;, - 0.375000; 0.416667;, - 0.937500; 0.291667;, - 0.937500; 0.208333;, - 0.916667; 0.208333;, - 0.916667; 0.166667;, - 0.083333; 0.166667;, - 0.083333; 0.291667;, - 0.416667; 0.666667;, - 0.416667; 0.583333;, - 0.458333; 0.583333;, - 0.458333; 0.666667;, - 0.468934; 0.648926;, - 0.481891; 0.649304;, - 0.480724; 0.686045;, - 0.466965; 0.685187;, - 0.916667; 0.666667;, - 0.916667; 0.583333;, - 0.958333; 0.583333;, - 0.958333; 0.666667;, - 0.255516; 0.000000;, - 0.255516; 1.000000;, - 0.322642; 1.000000;, - 0.322642; 0.000000;, - 0.166667; 0.500000;, - 0.166667; 0.416667;, - 0.208333; 0.416667;, - 0.208333; 0.500000;, - 1.000000; 0.416667;, - 1.000000; 0.333333;, - 0.041667; 0.333333;, - 0.041667; 0.416667;, - 0.854167; 0.500000;, - 0.854167; 0.333333;, - 0.875000; 0.333333;, - 0.875000; 0.291667;, - 0.937500; 0.291667;, - 0.937500; 0.500000;, - 0.267514; 0.726573;, - 0.261013; 0.732513;, - 0.262243; 0.731420;, - 0.265616; 0.729471;, - 0.267128; 0.727454;, - 0.272233; 0.721156;, - 0.236502; 0.687498;, - 0.237943; 0.698164;, - 0.248352; 0.693310;, - 0.247719; 0.681857;, - 0.241610; 0.684087;, - 0.916667; 0.666667;, - 0.916667; 0.750000;, - 0.875000; 0.750000;, - 0.833333; 0.750000;, - 0.833333; 0.666667;, - 0.875000; 0.666667;, - 0.583333; 0.583333;, - 0.583333; 0.500000;, - 0.625000; 0.500000;, - 0.625000; 0.583333;, - 0.166666; 0.834509;, - 0.291666; 0.834510;, - 0.333333; 0.834510;, - 0.333333; 0.875960;, - 0.354166; 0.875964;, - 0.354166; 0.913916;, - 0.145833; 0.913916;, - 0.145833; 0.875964;, - 0.166666; 0.875960;, - 0.687500; 0.500000;, - 0.687500; 0.333333;, - 0.708333; 0.333333;, - 0.729167; 0.333333;, - 0.729167; 0.500000;, - 0.995208; 0.461177;, - 0.013607; 0.472668;, - 0.017592; 0.479269;, - 0.019227; 0.495422;, - 0.994125; 0.477001;, - 0.273913; 0.702660;, - 0.272473; 0.694267;, - 0.274920; 0.689254;, - 0.276547; 0.697560;, - 0.482087; 0.520995;, - 0.481001; 0.473068;, - 0.484371; 0.471930;, - 0.485266; 0.519930;, - 0.485667; 0.565063;, - 0.485104; 0.648464;, - 0.481891; 0.649304;, - 0.482574; 0.566055;, - 0.010714; 0.235800;, - 0.989459; 0.247072;, - 0.990579; 0.275802;, - 0.009496; 0.265143;, - 0.275334; 0.714085;, - 0.276744; 0.706015;, - 0.277938; 0.700831;, - 0.276427; 0.709563;, - 0.021215; 0.355379;, - 0.017531; 0.353719;, - 0.020270; 0.306952;, - 0.043333; 0.152118;, - 0.051790; 0.155655;, - 0.024507; 0.308888;, - 0.625000; 0.415983;, - 0.625000; 0.500000;, - 0.583333; 0.500000;, - 0.583333; 0.415983;, - 0.458333; 0.333333;, - 0.458333; 0.250000;, - 0.500000; 0.250000;, - 0.500000; 0.333333;, - 0.500000; 0.833333;, - 0.500000; 0.750000;, - 0.583333; 0.750000;, - 0.583333; 0.833333;, - 0.791667; 0.415983;, - 0.791667; 0.500000;, - 0.750000; 0.500000;, - 0.750000; 0.415983;, - 0.916667; 0.666667;, - 0.916667; 0.583333;, - 0.958333; 0.583333;, - 0.958333; 0.666667;, - 0.583333; 0.250000;, - 0.583333; 0.333333;, - 0.541667; 0.333333;, - 0.500000; 0.333333;, - 0.500000; 0.250000;, - 0.541667; 0.250000;, - 0.541667; 0.500000;, - 0.500000; 0.500000;, - 0.500000; 0.415983;, - 0.541667; 0.415983;, - 0.470091; 0.566559;, - 0.469266; 0.521980;, - 0.482087; 0.520995;, - 0.482574; 0.566055;, - 0.875000; 0.083333;, - 0.875000; 0.166667;, - 0.791667; 0.166667;, - 0.708333; 0.166667;, - 0.708333; 0.083333;, - 0.265337; 0.718222;, - 0.259777; 0.720301;, - 0.259623; 0.712592;, - 0.265170; 0.710418;, - 0.619803; 0.500000;, - 0.766693; 0.500000;, - 0.766693; 0.428571;, - 0.619803; 0.428571;, - 0.379312; 0.928571;, - 0.379312; 1.000000;, - 0.433869; 1.000000;, - 0.433869; 0.928571;, - 0.583333; 0.250000;, - 0.583333; 0.166667;, - 0.625000; 0.166667;, - 0.666667; 0.166667;, - 0.666667; 0.250000;, - 0.833333; 0.041667;, - 0.805556; 0.055556;, - 0.791667; 0.041667;, - 0.763889; 0.055556;, - 0.750000; 0.041667;, - 0.250000; 0.041667;, - 0.222222; 0.055556;, - 0.208333; 0.041667;, - 0.180556; 0.055556;, - 0.166667; 0.041667;, - 0.166667; 0.083333;, - 0.104167; 0.083333;, - 0.895833; 0.083333;, - 0.833333; 0.083333;, - 0.012463; 0.579916;, - 0.012291; 0.559488;, - 0.009235; 0.558060;, - 0.009665; 0.600284;, - 0.012836; 0.600846;, - 0.791667; 0.500000;, - 0.791667; 0.416667;, - 0.833333; 0.416667;, - 0.833333; 0.500000;, - 0.125000; 0.248639;, - 0.125000; 0.207020;, - 0.166666; 0.207020;, - 0.208333; 0.207020;, - 0.208333; 0.248639;, - 0.208333; 0.332152;, - 0.125000; 0.332152;, - 0.236502; 0.687498;, - 0.236393; 0.677679;, - 0.232657; 0.682322;, - 0.232755; 0.691833;, - 0.750000; 0.833333;, - 0.750000; 0.916667;, - 0.666667; 0.916667;, - 0.666667; 0.833333;, - 0.625000; 0.416667;, - 0.625000; 0.333333;, - 0.666667; 0.333333;, - 0.666667; 0.416667;, - 0.750000; 0.083333;, - 0.750000; 0.166667;, - 0.666667; 0.166667;, - 0.625000; 0.166667;, - 0.625000; 0.083333;, - 0.625000; 0.583333;, - 0.625000; 0.500000;, - 0.666667; 0.500000;, - 0.666667; 0.583333;, - 0.266833; 0.690010;, - 0.268857; 0.698561;, - 0.264312; 0.701869;, - 0.259125; 0.703989;, - 0.258339; 0.694936;, - 1.000000; 0.500000;, - 1.000000; 0.415983;, - 0.041667; 0.415983;, - 0.041667; 0.500000;, - 0.125000; 0.666667;, - 0.125000; 0.583333;, - 0.166667; 0.583333;, - 0.166667; 0.666667;, - 0.958333; 0.166667;, - 0.958333; 0.250000;, - 0.916667; 0.250000;, - 0.875000; 0.250000;, - 0.875000; 0.166667;, - 0.997423; 0.663288;, - 0.997674; 0.615563;, - 0.999143; 0.630655;, - 1.000000; 0.663963;, - 0.541667; 0.666667;, - 0.541667; 0.583333;, - 0.583333; 0.583333;, - 0.583333; 0.666667;, - 0.708333; 0.416667;, - 0.708333; 0.333333;, - 0.750000; 0.333333;, - 0.750000; 0.416667;, - 0.416666; 0.207019;, - 0.416666; 0.165490;, - 0.500000; 0.165489;, - 0.541667; 0.165490;, - 0.541667; 0.248638;, - 0.458333; 0.248638;, - 0.458333; 0.207019;, - 1.000000; 0.833333;, - 0.041667; 0.833333;, - 0.041667; 0.916667;, - 0.875000; 0.916667;, - 0.875000; 0.833333;, - 0.958333; 0.833333;, - 0.916667; 0.332152;, - 0.958333; 0.332152;, - 0.958333; 0.415983;, - 0.916667; 0.415983;, - 0.098449; 0.285714;, - 0.209752; 0.285714;, - 0.209752; 0.214286;, - 0.098449; 0.214286;, - 0.208333; 0.250000;, - 0.208333; 0.333333;, - 0.166667; 0.333333;, - 0.125000; 0.333333;, - 0.125000; 0.250000;, - 0.619803; 0.785714;, - 0.766693; 0.785714;, - 0.766693; 0.714286;, - 0.619803; 0.714286;, - 0.083333; 0.833333;, - 0.083333; 0.916667;, - 0.916667; 0.916667;, - 0.916667; 0.833333;, - 0.958333; 0.833333;, - 0.041667; 0.833333;, - 0.487392; 0.417618;, - 0.491309; 0.465701;, - 0.502261; 0.461143;, - 0.508496; 0.408175;, - 0.322642; 1.000000;, - 0.255516; 1.000000;, - 0.255516; 0.000000;, - 0.322642; 0.000000;, - 1.000000; 0.124041;, - 1.000000; 0.165491;, - 0.916667; 0.165491;, - 0.833334; 0.165490;, - 0.833334; 0.124040;, - 0.854168; 0.124036;, - 0.854168; 0.086084;, - 0.979167; 0.086084;, - 0.979167; 0.124037;, - 0.083333; 0.833333;, - 0.083333; 0.750000;, - 0.125000; 0.750000;, - 0.125000; 0.833333;, - 0.875000; 0.583333;, - 0.875000; 0.500000;, - 0.916667; 0.500000;, - 0.916667; 0.583333;, - 0.249221; 0.720867;, - 0.247567; 0.716514;, - 0.241182; 0.722408;, - 0.240792; 0.724862;, - 0.243946; 0.727188;, - 0.244057; 0.728118;, - 0.247122; 0.729464;, - 0.249990; 0.724775;, - 0.248047; 0.721417;, - 0.125000; 0.666667;, - 0.125000; 0.583333;, - 0.166667; 0.583333;, - 0.166667; 0.666667;, - 0.619803; 0.071429;, - 0.619803; 0.142857;, - 0.766693; 0.142857;, - 0.766693; 0.071429;, - 0.209752; 0.428571;, - 0.098449; 0.428571;, - 0.098449; 0.571429;, - 0.209752; 0.571429;, - 0.209752; 0.500000;, - 0.666667; 0.250000;, - 0.666667; 0.166667;, - 0.750000; 0.166667;, - 0.750000; 0.250000;, - 0.125000; 0.332152;, - 0.125000; 0.415983;, - 0.083333; 0.415983;, - 0.083333; 0.332152;, - 0.958333; 0.250000;, - 0.958333; 0.333333;, - 0.916667; 0.333333;, - 0.875000; 0.333333;, - 0.875000; 0.250000;, - 0.916667; 0.250000;, - 0.458333; 0.333333;, - 0.416667; 0.333333;, - 0.416667; 0.250000;, - 0.458333; 0.250000;, - 0.500000; 0.250000;, - 0.500000; 0.333333;, - 0.258676; 0.676084;, - 0.259855; 0.680091;, - 0.256748; 0.681469;, - 0.257324; 0.685871;, - 0.249595; 0.686025;, - 0.250720; 0.677330;, - 0.791667; 0.583333;, - 0.791667; 0.500000;, - 0.833333; 0.500000;, - 0.833333; 0.583333;, - 0.083333; 0.416667;, - 0.083333; 0.333333;, - 0.125000; 0.333333;, - 0.125000; 0.416667;, - 0.239579; 0.663458;, - 0.236531; 0.667640;, - 0.233993; 0.674090;, - 0.237485; 0.669493;, - 0.242924; 0.702334;, - 0.248098; 0.704229;, - 0.247835; 0.712860;, - 0.242300; 0.710940;, - 0.791667; 0.751361;, - 0.791667; 0.667848;, - 0.875000; 0.667848;, - 0.875000; 0.751361;, - 0.875000; 0.416667;, - 0.875000; 0.333333;, - 0.916667; 0.333333;, - 0.916667; 0.416667;, - 0.879001; 0.071429;, - 0.879001; 0.928571;, - 0.766693; 0.928571;, - 0.766693; 1.000000;, - 0.766693; 0.071429;, - 0.750000; 0.416667;, - 0.750000; 0.333333;, - 0.791667; 0.333333;, - 0.791667; 0.416667;, - 0.250000; 0.500000;, - 0.250000; 0.416667;, - 0.291667; 0.416667;, - 0.291667; 0.500000;, - 0.791667; 0.666667;, - 0.791667; 0.583333;, - 0.833333; 0.583333;, - 0.833333; 0.666667;, - 0.125000; 0.333333;, - 0.125000; 0.250000;, - 0.166667; 0.250000;, - 0.166667; 0.333333;, - 0.277736; 0.692064;, - 0.276009; 0.683839;, - 0.275617; 0.678374;, - 0.277343; 0.686533;, - 0.246055; 0.711655;, - 0.247567; 0.716514;, - 0.258299; 0.715271;, - 0.259690; 0.704613;, - 0.249463; 0.704895;, - 0.250177; 0.710378;, - 0.833333; 0.666667;, - 0.833333; 0.750000;, - 0.791667; 0.750000;, - 0.750000; 0.750000;, - 0.750000; 0.666667;, - 0.791667; 0.666667;, - 0.433869; 0.714286;, - 0.480305; 0.714286;, - 0.480305; 0.642857;, - 0.433869; 0.642857;, - 0.125000; 0.250000;, - 0.125000; 0.333333;, - 0.083333; 0.333333;, - 0.041667; 0.333333;, - 0.041667; 0.250000;, - 0.958333; 0.500000;, - 0.958333; 0.415983;, - 1.000000; 0.415983;, - 1.000000; 0.500000;, - 0.993147; 0.581943;, - 0.998678; 0.556663;, - 0.998670; 0.535434;, - 0.992638; 0.537736;, - 0.375000; 0.666667;, - 0.375000; 0.750000;, - 0.333333; 0.750000;, - 0.291667; 0.750000;, - 0.291667; 0.666667;, - 0.333333; 0.666667;, - 0.500000; 0.667849;, - 0.500000; 0.584017;, - 0.541667; 0.584017;, - 0.541667; 0.667849;, - 0.041667; 0.666667;, - 0.041667; 0.583333;, - 0.083333; 0.583333;, - 0.083333; 0.666667;, - 0.083333; 0.500000;, - 0.041667; 0.500000;, - 0.041667; 0.415983;, - 0.083333; 0.415983;, - 0.375000; 0.500000;, - 0.375000; 0.415983;, - 0.416666; 0.415983;, - 0.416667; 0.500000;, - 0.416666; 0.332151;, - 0.416666; 0.415983;, - 0.375000; 0.415983;, - 0.375000; 0.332152;, - 0.541667; 0.250000;, - 0.500000; 0.250000;, - 0.458333; 0.250000;, - 0.458333; 0.166667;, - 0.541667; 0.166667;, - 0.083333; 0.666667;, - 0.083333; 0.583333;, - 0.125000; 0.583333;, - 0.125000; 0.666667;, - 0.916667; 0.250000;, - 0.875000; 0.250000;, - 0.833333; 0.250000;, - 0.833333; 0.166667;, - 0.916667; 0.166667;, - 0.266833; 0.690010;, - 0.269976; 0.686105;, - 0.272473; 0.694267;, - 0.268857; 0.698561;, - 0.016101; 0.808583;, - 0.007331; 0.808972;, - 0.004625; 0.705622;, - 0.010165; 0.705411;, - 0.997674; 0.615563;, - 0.997959; 0.541561;, - 0.998108; 0.446648;, - 0.998111; 0.414353;, - 1.000055; 0.417796;, - 0.999143; 0.630655;, - 0.166666; 0.792980;, - 0.166666; 0.834509;, - 0.041667; 0.834509;, - 0.041667; 0.751361;, - 0.125000; 0.751361;, - 0.125000; 0.792980;, - 0.495421; 0.471887;, - 0.494978; 0.420404;, - 0.491109; 0.228517;, - 0.487820; 0.165550;, - 0.495526; 0.166422;, - 0.498318; 0.473110;, - 0.250000; 0.250000;, - 0.250000; 0.333333;, - 0.208333; 0.333333;, - 0.166667; 0.333333;, - 0.166667; 0.250000;, - 0.208333; 0.250000;, - 0.291667; 0.500000;, - 0.291667; 0.416667;, - 0.333333; 0.416667;, - 0.333333; 0.500000;, - 0.916667; 0.792980;, - 0.916667; 0.834509;, - 0.833334; 0.834510;, - 0.791667; 0.834510;, - 0.791667; 0.751361;, - 0.875000; 0.751361;, - 0.875000; 0.792980;, - 0.791667; 0.416667;, - 0.791667; 0.333333;, - 0.833333; 0.333333;, - 0.833333; 0.416667;, - 0.666667; 0.792981;, - 0.666667; 0.834510;, - 0.541667; 0.834510;, - 0.541667; 0.751362;, - 0.625000; 0.751362;, - 0.625000; 0.792981;, - 0.541667; 0.332151;, - 0.541667; 0.415983;, - 0.500000; 0.415983;, - 0.500000; 0.332152;, - 0.500000; 0.500000;, - 0.541667; 0.500000;, - 0.541667; 0.584017;, - 0.500000; 0.584017;, - 0.246871; 0.656619;, - 0.248109; 0.656740;, - 0.243110; 0.663835;, - 0.238541; 0.667182;, - 0.242445; 0.659826;, - 0.244096; 0.658931;, - 0.958333; 0.500000;, - 0.958333; 0.416667;, - 1.000000; 0.416667;, - 1.000000; 0.500000;, - 0.625000; 0.333333;, - 0.583333; 0.333333;, - 0.583333; 0.250000;, - 0.625000; 0.250000;, - 0.666667; 0.250000;, - 0.666667; 0.333333;, - 0.249509; 0.731470;, - 0.248515; 0.726940;, - 0.259537; 0.726664;, - 0.258873; 0.731225;, - 0.958333; 0.332152;, - 1.000000; 0.332152;, - 1.000000; 0.415983;, - 0.958333; 0.415983;, - 0.259605; 0.732963;, - 0.261013; 0.732513;, - 0.267514; 0.726573;, - 0.268124; 0.724105;, - 0.265080; 0.726593;, - 0.264940; 0.727532;, - 0.261963; 0.729043;, - 0.258999; 0.732452;, - 0.260747; 0.732408;, - 0.458333; 0.416667;, - 0.458333; 0.333333;, - 0.500000; 0.333333;, - 0.500000; 0.416667;, - 0.242791; 0.666773;, - 0.243110; 0.663835;, - 0.248109; 0.656740;, - 0.249404; 0.657473;, - 0.248504; 0.658135;, - 0.249993; 0.659060;, - 0.247809; 0.664785;, - 0.245421; 0.666267;, - 0.245339; 0.665141;, - 0.257324; 0.685871;, - 0.258339; 0.694936;, - 0.248702; 0.695137;, - 0.249595; 0.686025;, - 0.208333; 0.667848;, - 0.125000; 0.667848;, - 0.125000; 0.584016;, - 0.166666; 0.584017;, - 0.208333; 0.584016;, - 0.473460; 0.166670;, - 0.459079; 0.169368;, - 0.043333; 0.152118;, - 0.028242; 0.148891;, - 0.375000; 0.584017;, - 0.333333; 0.584017;, - 0.333333; 0.500000;, - 0.375000; 0.500000;, - 0.770833; 0.166667;, - 0.750000; 0.166667;, - 0.750000; 0.125000;, - 0.729167; 0.125000;, - 0.729167; 0.083333;, - 0.750000; 0.083333;, - 0.750000; 0.041667;, - 0.763889; 0.055556;, - 0.791667; 0.041667;, - 0.805556; 0.055556;, - 0.833333; 0.041667;, - 0.833333; 0.083333;, - 0.812500; 0.083333;, - 0.812500; 0.166667;, - 0.013190; 0.496435;, - 0.012711; 0.537676;, - 0.008165; 0.537480;, - 0.008474; 0.496129;, - 0.553039; 0.571429;, - 0.553039; 0.642857;, - 0.619803; 0.642857;, - 0.619803; 0.571429;, - 0.083333; 0.500000;, - 0.083333; 0.584016;, - 0.041667; 0.584016;, - 0.041667; 0.500000;, - 0.248579; 0.658036;, - 0.239579; 0.663458;, - 0.237485; 0.669493;, - 0.242228; 0.665873;, - 0.247888; 0.663516;, - 0.375000; 0.750000;, - 0.375000; 0.833333;, - 0.333333; 0.833333;, - 0.291667; 0.833333;, - 0.291667; 0.750000;, - 0.208333; 0.416667;, - 0.208333; 0.333333;, - 0.250000; 0.333333;, - 0.250000; 0.416667;, - 0.875000; 0.416667;, - 0.875000; 0.333333;, - 0.916667; 0.333333;, - 0.916667; 0.416667;, - 0.232885; 0.715160;, - 0.231892; 0.710698;, - 0.230063; 0.701988;, - 0.231155; 0.707112;, - 0.274102; 0.710842;, - 0.270213; 0.715001;, - 0.270034; 0.707038;, - 0.273913; 0.702660;, - 0.541667; 0.500000;, - 0.541667; 0.416667;, - 0.583333; 0.416667;, - 0.583333; 0.500000;, - 0.491109; 0.228517;, - 0.494978; 0.420404;, - 0.488996; 0.420105;, - 0.480543; 0.228743;, - 0.258676; 0.676084;, - 0.250720; 0.677330;, - 0.248192; 0.676287;, - 0.249424; 0.672468;, - 0.248550; 0.671870;, - 0.249993; 0.668756;, - 0.256873; 0.668626;, - 0.258315; 0.671684;, - 0.257434; 0.672315;, - 0.291667; 0.666667;, - 0.291667; 0.583333;, - 0.333333; 0.583333;, - 0.333333; 0.666667;, - 0.666667; 0.583333;, - 0.666667; 0.500000;, - 0.708333; 0.500000;, - 0.708333; 0.583333;, - 0.666667; 0.833333;, - 0.666667; 0.916667;, - 0.541667; 0.916667;, - 0.541667; 0.833333;, - 0.625000; 0.833333;, - 0.000000; 1.000000;, - 1.000000; 1.000000;, - 0.619803; 0.357143;, - 0.619803; 0.285714;, - 1.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 1.000000;, - 0.625000; 0.332151;, - 0.625000; 0.415983;, - 0.583333; 0.415983;, - 0.583333; 0.332151;, - 0.458333; 0.583333;, - 0.458333; 0.500000;, - 0.500000; 0.500000;, - 0.500000; 0.583333;, - 0.208333; 0.584016;, - 0.166666; 0.584017;, - 0.166667; 0.500000;, - 0.208333; 0.500000;, - 0.791667; 0.666667;, - 0.791667; 0.583333;, - 0.833333; 0.583333;, - 0.833333; 0.666667;, - 0.583333; 0.332151;, - 0.583333; 0.415983;, - 0.541667; 0.415983;, - 0.541667; 0.332151;, - 0.500000; 0.583333;, - 0.500000; 0.500000;, - 0.541667; 0.500000;, - 0.541667; 0.583333;, - 0.242791; 0.666773;, - 0.244300; 0.672332;, - 0.242261; 0.675568;, - 0.240899; 0.672348;, - 0.238760; 0.675367;, - 0.238541; 0.667182;, - 0.243110; 0.663835;, - 0.333333; 0.416667;, - 0.333333; 0.333333;, - 0.375000; 0.333333;, - 0.375000; 0.416667;, - 1.000000; 1.000000;, - 0.854205; 1.000000;, - 0.854205; 0.000000;, - 1.000000; 0.000000;, - 0.770833; 0.208333;, - 0.770833; 0.166667;, - 0.812500; 0.166667;, - 0.833333; 0.166667;, - 0.833333; 0.208333;, - 0.791667; 0.208333;, - 0.260130; 0.663252;, - 0.254023; 0.662617;, - 0.254187; 0.670712;, - 0.260764; 0.671330;, - 0.208333; 0.250000;, - 0.166667; 0.250000;, - 0.125000; 0.250000;, - 0.125000; 0.166667;, - 0.208333; 0.166667;, - 0.242228; 0.665873;, - 0.237485; 0.669493;, - 0.236393; 0.677679;, - 0.241485; 0.674022;, - 0.125000; 0.583333;, - 0.125000; 0.500000;, - 0.166667; 0.500000;, - 0.166667; 0.583333;, - 0.625000; 0.833333;, - 0.625000; 0.750000;, - 0.666667; 0.750000;, - 0.666667; 0.833333;, - 0.260130; 0.663252;, - 0.259131; 0.657822;, - 0.248579; 0.658036;, - 0.247888; 0.663516;, - 0.254023; 0.662617;, - 0.247719; 0.681857;, - 0.247577; 0.671635;, - 0.241485; 0.674022;, - 0.241610; 0.684087;, - 0.482522; 0.721530;, - 0.484144; 0.685290;, - 0.489819; 0.685364;, - 0.488774; 0.721728;, - 1.000000; 0.500000;, - 1.000000; 0.416667;, - 0.041667; 0.416667;, - 0.041667; 0.500000;, - 0.583333; 0.416667;, - 0.583333; 0.333333;, - 0.625000; 0.333333;, - 0.625000; 0.416667;, - 0.333333; 0.875960;, - 0.333333; 0.834510;, - 0.416666; 0.834510;, - 0.500000; 0.834510;, - 0.500000; 0.875960;, - 0.479167; 0.875964;, - 0.479166; 0.913917;, - 0.354166; 0.913916;, - 0.354166; 0.875964;, - 0.333333; 0.333333;, - 0.291667; 0.333333;, - 0.291667; 0.250000;, - 0.375000; 0.250000;, - 0.375000; 0.333333;, - 0.250000; 0.666667;, - 0.250000; 0.583333;, - 0.291667; 0.583333;, - 0.291667; 0.666667;, - 0.259537; 0.726664;, - 0.248515; 0.726940;, - 0.247962; 0.720583;, - 0.253867; 0.721105;, - 0.259777; 0.720301;, - 0.583333; 0.500000;, - 0.583333; 0.416667;, - 0.625000; 0.416667;, - 0.625000; 0.500000;, - 0.250000; 0.500000;, - 0.250000; 0.333333;, - 0.270833; 0.333333;, - 0.270833; 0.500000;, - 0.750000; 0.333333;, - 0.750000; 0.500000;, - 0.729167; 0.500000;, - 0.729167; 0.333333;, - 0.998048; 0.381638;, - 0.998111; 0.414353;, - 0.982066; 0.411272;, - 0.978103; 0.292658;, - 0.997674; 0.289926;, - 0.237943; 0.698164;, - 0.236502; 0.687498;, - 0.232755; 0.691833;, - 0.234445; 0.701900;, - 0.625000; 0.500000;, - 0.625000; 0.416667;, - 0.666667; 0.416667;, - 0.666667; 0.500000;, - 0.416667; 0.416667;, - 0.416667; 0.333333;, - 0.458333; 0.333333;, - 0.458333; 0.416667;, - 0.750000; 0.666667;, - 0.750000; 0.583333;, - 0.791667; 0.583333;, - 0.791667; 0.666667;, - 0.958333; 0.667848;, - 0.958334; 0.584016;, - 1.000000; 0.584016;, - 1.000000; 0.667848;, - 0.962893; 0.177456;, - 0.949783; 0.138440;, - 0.994136; 0.123507;, - 0.995864; 0.166921;, - 0.416667; 0.208333;, - 0.416667; 0.250000;, - 0.437500; 0.250000;, - 0.437500; 0.291667;, - 0.416667; 0.291667;, - 0.375000; 0.291667;, - 0.375000; 0.333333;, - 0.354167; 0.333333;, - 0.333333; 0.333333;, - 0.333333; 0.208333;, - 0.354166; 0.913916;, - 0.479166; 0.913917;, - 0.645834; 0.913916;, - 0.854167; 0.913916;, - 0.020833; 0.913916;, - 0.145833; 0.913916;, - 0.997674; 0.615563;, - 0.997959; 0.541561;, - 0.998108; 0.446648;, - 0.998110; 0.414353;, - 1.000000; 0.417797;, - 0.999145; 0.630655;, - 0.885010; 0.076014;, - 0.950114; 0.088565;, - 0.773713; 0.050396;, - 0.336070; 0.924506;, - 0.458188; 0.758113;, - 0.475475; 0.760527;, - 0.379276; 0.944781;, - 0.416667; 0.500000;, - 0.458333; 0.500000;, - 0.458333; 0.584017;, - 0.416666; 0.584017;, - 0.269976; 0.686105;, - 0.272086; 0.681541;, - 0.274920; 0.689254;, - 0.272473; 0.694267;, - 0.541667; 0.751362;, - 0.541667; 0.667849;, - 0.583333; 0.667848;, - 0.625000; 0.667848;, - 0.625000; 0.751362;, - 0.249424; 0.672468;, - 0.248192; 0.676287;, - 0.244300; 0.672332;, - 0.242791; 0.666773;, - 0.245339; 0.665141;, - 0.245421; 0.666267;, - 0.247809; 0.664785;, - 0.249993; 0.668756;, - 0.248550; 0.671870;, - 0.041667; 0.332152;, - 0.041667; 0.415983;, - 1.000000; 0.415983;, - 1.000000; 0.332152;, - 0.921904; 0.586256;, - 0.909102; 0.594958;, - 0.898321; 0.618762;, - 0.901824; 0.599118;, - 0.903261; 0.578609;, - 0.903240; 0.571320;, - 0.902542; 0.564688;, - 0.899201; 0.548367;, - 0.897547; 0.544272;, - 0.890841; 0.538906;, - 0.883255; 0.543556;, - 0.874463; 0.558425;, - 0.871528; 0.567191;, - 0.867983; 0.584670;, - 0.865871; 0.613646;, - 0.866359; 0.622165;, - 0.858971; 0.621538;, - 0.779092; 0.575226;, - 0.701592; 0.598447;, - 0.752156; 0.182794;, - 0.788677; 0.167502;, - 0.938670; 0.297772;, - 0.921739; 0.342353;, - 0.732043; 0.448921;, - 0.906846; 0.810588;, - 0.906707; 0.803426;, - 0.907828; 0.796810;, - 0.790104; 0.070761;, - 0.248109; 0.656740;, - 0.246871; 0.656619;, - 0.250140; 0.655127;, - 0.249564; 0.655395;, - 0.257872; 0.655234;, - 0.256450; 0.655414;, - 0.259146; 0.662978;, - 0.256873; 0.668626;, - 0.249993; 0.668756;, - 0.247809; 0.664785;, - 0.249993; 0.659060;, - 0.257025; 0.658930;, - 0.500000; 0.416667;, - 0.500000; 0.333333;, - 0.541667; 0.333333;, - 0.541667; 0.416667;, - 0.209752; 0.071429;, - 0.379312; 0.071429;, - 0.379312; 1.000000;, - 0.209752; 1.000000;, - 0.541667; 0.667849;, - 0.541667; 0.584017;, - 0.583333; 0.584017;, - 0.583333; 0.667848;, - 0.833333; 0.416667;, - 0.833333; 0.333333;, - 0.875000; 0.333333;, - 0.875000; 0.416667;, - 0.014037; 0.663015;, - 0.015813; 0.705117;, - 0.010165; 0.705411;, - 0.009019; 0.663148;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.000000; 0.000000;, - 0.001495; 0.663553;, - 0.004103; 0.663367;, - 0.004625; 0.705622;, - 0.007331; 0.808972;, - 1.002663; 0.808484;, - 1.001685; 0.705588;, - 0.375000; 0.583333;, - 0.375000; 0.500000;, - 0.416667; 0.500000;, - 0.416667; 0.583333;, - 0.541667; 0.166667;, - 0.541667; 0.250000;, - 0.500000; 0.250000;, - 0.458333; 0.250000;, - 0.458333; 0.166667;, - 0.500000; 0.166667;, - 0.992785; 0.574998;, - 0.993343; 0.514398;, - 0.020976; 0.528501;, - 0.022162; 0.578099;, - 0.992458; 0.374254;, - 0.989778; 0.386023;, - 0.990343; 0.460818;, - 0.375000; 0.500000;, - 0.375000; 0.416667;, - 0.416667; 0.416667;, - 0.416667; 0.500000;, - 0.229975; 0.693155;, - 0.231065; 0.698598;, - 0.231155; 0.707112;, - 0.230063; 0.701988;, - 0.750000; 0.500000;, - 0.750000; 0.416667;, - 0.791667; 0.416667;, - 0.791667; 0.500000;, - 0.208333; 0.500000;, - 0.208333; 0.416667;, - 0.250000; 0.416667;, - 0.250000; 0.500000;, - 0.051790; 0.155655;, - 0.083508; 0.169579;, - 0.041551; 0.313770;, - 0.024507; 0.308888;, - 0.625000; 0.666667;, - 0.625000; 0.583333;, - 0.666667; 0.583333;, - 0.666667; 0.666667;, - 0.666667; 0.416667;, - 0.666667; 0.333333;, - 0.708333; 0.333333;, - 0.708333; 0.416667;, - 0.791667; 0.833333;, - 0.791667; 0.750000;, - 0.833333; 0.750000;, - 0.875000; 0.750000;, - 0.875000; 0.833333;, - 0.333333; 0.666667;, - 0.333333; 0.583333;, - 0.375000; 0.583333;, - 0.375000; 0.666667;, - 0.375000; 0.666667;, - 0.375000; 0.750000;, - 0.291667; 0.750000;, - 0.291667; 0.666667;, - 0.333333; 0.666667;, - 0.480305; 0.500000;, - 0.553039; 0.500000;, - 0.553039; 0.428571;, - 0.480305; 0.428571;, - 0.916667; 0.750000;, - 0.916667; 0.666667;, - 0.958333; 0.666667;, - 0.958333; 0.750000;, - 0.480305; 0.571429;, - 0.553039; 0.571429;, - 0.553039; 0.500000;, - 0.480305; 0.500000;, - 0.268124; 0.724105;, - 0.266581; 0.719423;, - 0.261661; 0.716114;, - 0.260039; 0.720557;, - 0.261190; 0.721041;, - 0.259261; 0.724509;, - 0.261963; 0.729043;, - 0.264940; 0.727532;, - 0.265080; 0.726593;, - 0.541667; 0.666667;, - 0.541667; 0.583333;, - 0.583333; 0.583333;, - 0.583333; 0.666667;, - 0.833333; 0.583333;, - 0.833333; 0.500000;, - 0.875000; 0.500000;, - 0.875000; 0.583333;, - 0.985779; 0.253277;, - 0.989778; 0.386023;, - 0.992458; 0.374254;, - 0.990579; 0.275802;, - 0.593971; 0.115548;, - 0.650758; 0.070384;, - 0.732678; 0.106605;, - 0.675889; 0.133594;, - 0.237485; 0.669493;, - 0.233993; 0.674090;, - 0.232657; 0.682322;, - 0.236393; 0.677679;, - 0.267128; 0.727454;, - 0.269267; 0.721975;, - 0.272885; 0.718316;, - 0.275334; 0.714085;, - 0.272233; 0.721156;, - 0.268261; 0.707950;, - 0.270785; 0.697309;, - 0.260587; 0.692988;, - 0.259690; 0.704613;, - 0.916667; 0.500000;, - 0.916667; 0.416667;, - 0.958333; 0.416667;, - 0.958333; 0.500000;, - 0.791667; 0.583333;, - 0.791667; 0.500000;, - 0.833333; 0.500000;, - 0.833333; 0.583333;, - 0.233630; 0.703578;, - 0.234832; 0.695084;, - 0.238405; 0.699222;, - 0.237463; 0.707780;, - 0.791667; 0.584016;, - 0.791667; 0.667848;, - 0.708334; 0.667848;, - 0.708334; 0.584017;, - 0.750000; 0.584016;, - 0.958333; 0.833333;, - 0.958333; 0.750000;, - 0.041667; 0.750000;, - 0.041667; 0.833333;, - 0.969825; 0.677993;, - 0.947513; 0.754453;, - 0.936340; 0.774999;, - 0.933538; 0.779373;, - 0.944135; 0.758536;, - 0.166667; 0.500000;, - 0.166667; 0.416667;, - 0.208333; 0.416667;, - 0.208333; 0.500000;, - 0.020270; 0.306952;, - 0.017531; 0.353719;, - 0.011275; 0.352862;, - 0.013049; 0.305813;, - 0.012662; 0.577657;, - 0.013073; 0.620144;, - 0.008398; 0.620153;, - 0.008133; 0.577560;, - 0.208333; 0.666667;, - 0.208333; 0.583333;, - 0.250000; 0.583333;, - 0.250000; 0.666667;, - 0.083333; 0.833333;, - 0.041667; 0.833333;, - 0.041667; 0.750000;, - 0.125000; 0.750000;, - 0.125000; 0.833333;, - 0.750000; 0.666667;, - 0.750000; 0.583333;, - 0.791667; 0.583333;, - 0.791667; 0.666667;, - 0.262243; 0.731420;, - 0.261013; 0.732513;, - 0.250914; 0.733737;, - 0.249509; 0.731470;, - 0.258873; 0.731225;, - 0.258380; 0.732691;, - 0.916667; 0.333333;, - 0.916667; 0.250000;, - 0.958333; 0.250000;, - 0.958333; 0.333333;, - 0.007144; 0.508879;, - 0.008734; 0.497995;, - 0.008569; 0.469527;, - 0.010824; 0.288104;, - 0.012081; 0.255141;, - 0.009496; 0.265143;, - 0.007460; 0.366622;, - 0.006984; 0.480188;, - 0.238405; 0.699222;, - 0.242924; 0.702334;, - 0.242300; 0.710940;, - 0.237463; 0.707780;, - 0.125000; 0.750000;, - 0.125000; 0.666667;, - 0.166667; 0.666667;, - 0.166667; 0.750000;, - 0.666667; 0.666667;, - 0.666667; 0.583333;, - 0.708333; 0.583333;, - 0.708333; 0.666667;, - 0.125000; 0.500000;, - 0.125000; 0.416667;, - 0.166667; 0.416667;, - 0.166667; 0.500000;, - 0.500000; 0.666667;, - 0.500000; 0.583333;, - 0.541667; 0.583333;, - 0.541667; 0.666667;, - 0.500000; 0.916667;, - 0.666667; 0.916667;, - 0.750000; 0.916667;, - 0.875000; 0.916667;, - 0.041667; 0.916667;, - 0.125000; 0.916667;, - 0.291667; 0.916667;, - 0.333333; 0.916667;, - 0.514387; 0.428460;, - 0.464610; 0.457309;, - 0.470817; 0.429416;, - 0.511365; 0.404724;, - 0.270833; 0.333333;, - 0.291667; 0.333333;, - 0.312500; 0.333333;, - 0.312500; 0.500000;, - 0.270833; 0.500000;, - 0.974943; 0.719148;, - 0.993668; 0.694657;, - 0.994458; 0.690035;, - 0.984006; 0.694893;, - 0.083333; 0.250000;, - 0.083333; 0.166667;, - 0.125000; 0.166667;, - 0.125000; 0.250000;, - 0.957115; 0.627647;, - 0.967011; 0.438925;, - 0.982074; 0.442096;, - 0.980788; 0.532357;, - 0.992844; 0.539471;, - 0.991001; 0.659782;, - 0.958333; 0.583333;, - 0.958333; 0.500000;, - 1.000000; 0.500000;, - 1.000000; 0.583333;, - 0.625000; 0.666667;, - 0.625000; 0.583333;, - 0.666667; 0.583333;, - 0.666667; 0.666667;, - 0.291667; 0.416667;, - 0.291667; 0.333333;, - 0.333333; 0.333333;, - 0.333333; 0.416667;, - 0.675889; 0.133594;, - 0.752156; 0.182794;, - 0.701592; 0.598447;, - 0.620982; 0.633729;, - 0.609262; 0.444369;, - 0.708333; 0.583333;, - 0.708333; 0.500000;, - 0.750000; 0.500000;, - 0.750000; 0.583333;, - 0.249463; 0.704895;, - 0.259690; 0.704613;, - 0.260587; 0.692988;, - 0.248352; 0.693310;, - 0.666667; 0.666667;, - 0.666667; 0.583333;, - 0.708333; 0.583333;, - 0.708333; 0.666667;, - 0.083333; 0.666667;, - 0.083333; 0.583333;, - 0.125000; 0.583333;, - 0.125000; 0.666667;, - 0.041667; 0.916667;, - 0.041667; 0.833333;, - 0.083333; 0.833333;, - 0.125000; 0.833333;, - 0.125000; 0.916667;, - 0.833333; 0.666667;, - 0.833333; 0.750000;, - 0.750000; 0.750000;, - 0.750000; 0.666667;, - 0.791667; 0.666667;, - 0.541667; 0.666667;, - 0.541667; 0.750000;, - 0.500000; 0.750000;, - 0.458333; 0.750000;, - 0.458333; 0.666667;, - 0.500000; 0.666667;, - 0.958333; 0.500000;, - 0.958334; 0.584016;, - 0.916667; 0.584016;, - 0.916667; 0.500000;, - 0.500000; 0.834510;, - 0.541667; 0.834510;, - 0.666667; 0.834510;, - 0.666667; 0.875960;, - 0.645834; 0.875964;, - 0.645834; 0.913916;, - 0.479166; 0.913917;, - 0.479167; 0.875964;, - 0.500000; 0.875960;, - 0.208333; 0.666667;, - 0.208333; 0.583333;, - 0.250000; 0.583333;, - 0.250000; 0.666667;, - 0.458333; 0.583333;, - 0.458333; 0.500000;, - 0.500000; 0.500000;, - 0.500000; 0.583333;, - 0.563106; 0.218312;, - 0.552792; 0.464108;, - 0.518101; 0.480337;, - 0.505013; 0.485157;, - 0.505095; 0.389030;, - 0.505970; 0.235093;, - 0.833333; 0.416667;, - 0.833333; 0.333333;, - 0.875000; 0.333333;, - 0.875000; 0.416667;, - 0.041667; 0.416667;, - 0.041667; 0.333333;, - 0.083333; 0.333333;, - 0.083333; 0.416667;, - 1.000000; 0.000000;, - 0.854205; 0.000000;, - 0.854205; 1.000000;, - 1.000000; 1.000000;, - 0.875000; 0.833333;, - 0.875000; 0.916667;, - 0.750000; 0.916667;, - 0.750000; 0.833333;, - 0.833333; 0.833333;, - 0.250000; 0.833333;, - 0.250000; 0.916667;, - 0.083333; 0.916667;, - 0.083333; 0.833333;, - 0.125000; 0.833333;, - 0.208333; 0.833333;, - 0.458333; 0.667848;, - 0.458333; 0.584017;, - 0.500000; 0.584017;, - 0.500000; 0.667849;, - 0.750000; 0.250000;, - 0.750000; 0.333333;, - 0.708333; 0.333333;, - 0.666667; 0.333333;, - 0.666667; 0.250000;, - 0.500000; 0.916667;, - 0.500000; 0.833333;, - 0.583333; 0.833333;, - 0.666667; 0.833333;, - 0.666667; 0.916667;, - 0.583333; 0.666667;, - 0.583333; 0.583333;, - 0.625000; 0.583333;, - 0.625000; 0.666667;, - 0.250000; 0.333333;, - 0.208333; 0.333333;, - 0.208333; 0.250000;, - 0.250000; 0.250000;, - 0.291667; 0.250000;, - 0.291667; 0.333333;, - 0.438652; 0.240505;, - 0.464358; 0.424270;, - 0.389279; 0.440687;, - 0.344094; 0.319427;, - 0.209752; 0.571429;, - 0.209752; 0.642857;, - 0.379312; 0.642857;, - 0.379312; 0.571429;, - 0.023134; 0.129090;, - 0.032688; 0.113696;, - 0.061583; 0.071839;, - 0.400244; 0.888168;, - 0.289469; 0.946069;, - 0.418163; 0.485521;, - 0.392671; 0.077229;, - 0.257229; 0.034033;, - 0.038163; 0.091097;, - 0.625000; 0.248638;, - 0.625000; 0.207019;, - 0.666667; 0.207019;, - 0.708334; 0.207019;, - 0.708334; 0.248638;, - 0.708333; 0.332152;, - 0.625000; 0.332151;, - 0.240356; 0.727730;, - 0.242744; 0.729539;, - 0.240792; 0.724862;, - 0.241182; 0.722408;, - 0.235988; 0.715003;, - 0.236313; 0.722110;, - 0.238640; 0.724962;, - 0.833333; 0.750000;, - 0.833333; 0.833333;, - 0.750000; 0.833333;, - 0.750000; 0.750000;, - 0.145833; 0.500000;, - 0.062500; 0.500000;, - 0.062500; 0.333333;, - 0.083333; 0.333333;, - 0.083333; 0.291667;, - 0.125000; 0.291667;, - 0.125000; 0.333333;, - 0.145833; 0.333333;, - 0.708333; 0.750000;, - 0.708333; 0.666667;, - 0.750000; 0.666667;, - 0.750000; 0.750000;, - 0.583333; 0.583333;, - 0.583333; 0.500000;, - 0.625000; 0.500000;, - 0.625000; 0.583333;, - 0.982066; 0.411272;, - 0.982074; 0.442096;, - 0.967011; 0.438925;, - 0.966991; 0.410293;, - 0.958333; 0.416667;, - 0.958333; 0.333333;, - 1.000000; 0.333333;, - 1.000000; 0.416667;, - 1.000000; 0.583333;, - 1.000000; 0.500000;, - 0.041667; 0.500000;, - 0.041667; 0.583333;, - 0.541667; 0.166667;, - 0.458333; 0.166667;, - 0.416667; 0.166667;, - 0.416667; 0.083333;, - 0.583333; 0.083333;, - 0.583333; 0.166667;, - 0.482522; 0.721530;, - 0.488774; 0.721728;, - 0.487029; 0.760427;, - 0.479818; 0.760037;, - 0.208333; 0.166667;, - 0.125000; 0.166667;, - 0.083333; 0.166667;, - 0.083333; 0.083333;, - 0.208333; 0.083333;, - 0.541667; 0.416667;, - 0.541667; 0.333333;, - 0.583333; 0.333333;, - 0.583333; 0.416667;, - 1.000000; 0.083333;, - 1.000000; 0.166667;, - 0.958333; 0.166667;, - 0.875000; 0.166667;, - 0.875000; 0.083333;, - 0.041667; 0.166667;, - 1.000000; 0.166667;, - 1.000000; 0.083333;, - 0.083333; 0.083333;, - 0.083333; 0.166667;, - 0.041667; 0.751361;, - 0.041667; 0.667848;, - 0.083333; 0.667848;, - 0.125000; 0.667848;, - 0.125000; 0.751361;, - 0.268637; 0.666592;, - 0.266359; 0.664775;, - 0.265160; 0.661442;, - 0.263136; 0.658567;, - 0.264885; 0.659390;, - 0.267982; 0.662879;, - 0.270927; 0.666938;, - 0.272623; 0.671626;, - 0.750000; 0.500000;, - 0.750000; 0.416667;, - 0.791667; 0.416667;, - 0.791667; 0.500000;, - 0.708333; 0.166667;, - 0.625000; 0.166667;, - 0.583333; 0.166667;, - 0.583333; 0.083333;, - 0.708333; 0.083333;, - 0.375000; 0.416667;, - 0.375000; 0.333333;, - 0.416667; 0.333333;, - 0.416667; 0.416667;, - 0.500000; 0.833333;, - 0.500000; 0.916667;, - 0.333333; 0.916667;, - 0.333333; 0.833333;, - 0.375000; 0.833333;, - 0.416667; 0.833333;, - 0.083333; 0.083333;, - 1.000000; 0.083333;, - 0.875000; 0.083333;, - 0.708333; 0.083333;, - 0.583333; 0.083333;, - 0.416667; 0.083333;, - 0.375000; 0.083333;, - 0.208333; 0.083333;, - 0.416667; 0.083333;, - 0.250000; 0.083333;, - 0.083333; 0.083333;, - 1.000000; 0.083333;, - 0.833333; 0.083333;, - 0.750000; 0.083333;, - 0.625000; 0.083333;, - 0.500000; 0.083333;, - 0.179472; 0.279074;, - 0.083508; 0.169579;, - 0.377180; 0.128995;, - 0.293242; 0.271002;, - 0.004103; 0.663367;, - 0.009019; 0.663148;, - 0.010165; 0.705411;, - 0.004625; 0.705622;, - 0.492178; 0.493110;, - 0.492862; 0.535988;, - 0.501842; 0.533844;, - 0.502025; 0.489746;, - 1.005613; 0.498174;, - 0.998542; 0.495580;, - 0.998622; 0.514747;, - 1.005315; 0.516563;, - 0.043333; 0.152118;, - 0.020270; 0.306952;, - 0.013049; 0.305813;, - 0.028242; 0.148891;, - 0.990154; 0.524106;, - 0.992737; 0.512087;, - 0.992893; 0.484692;, - 0.990363; 0.496767;, - 0.494884; 0.722097;, - 0.494090; 0.760775;, - 0.487029; 0.760427;, - 0.488774; 0.721728;, - 1.005146; 0.536504;, - 1.005315; 0.516563;, - 0.998622; 0.514747;, - 0.998670; 0.535434;, - 0.998111; 0.414353;, - 0.998048; 0.381638;, - 0.997674; 0.289926;, - 0.997442; 0.259847;, - 1.000000; 0.264059;, - 1.000055; 0.417796;, - 0.029084; 0.662412;, - 0.094497; 0.640740;, - 0.103473; 0.673487;, - 0.032675; 0.703561;, - 0.562500; 0.500000;, - 0.562500; 0.291667;, - 0.583333; 0.291667;, - 0.625000; 0.291667;, - 0.625000; 0.333333;, - 0.645833; 0.333333;, - 0.645833; 0.500000;, - 0.553039; 0.071429;, - 0.553039; 0.142857;, - 0.619803; 0.142857;, - 0.619803; 0.071429;, - 0.238405; 0.699222;, - 0.240248; 0.690561;, - 0.248702; 0.695137;, - 0.248098; 0.704229;, - 0.242924; 0.702334;, - 0.970279; 0.120548;, - 0.038163; 0.091097;, - 0.257229; 0.034033;, - 0.392671; 0.077229;, - 0.773713; 0.050396;, - 0.950114; 0.088565;, - 0.515621; 0.061627;, - 0.650758; 0.070384;, - 0.593971; 0.115548;, - 0.563106; 0.218312;, - 0.505970; 0.235093;, - 0.508942; 0.120728;, - 0.495805; 0.565454;, - 0.490800; 0.564867;, - 0.490542; 0.519639;, - 0.495686; 0.520098;, - 0.490702; 0.731412;, - 0.492019; 0.692734;, - 0.484886; 0.692370;, - 0.481821; 0.729898;, - 0.974943; 0.719148;, - 0.984006; 0.694893;, - 0.984969; 0.697951;, - 0.241301; 0.728133;, - 0.238830; 0.722740;, - 0.248515; 0.726940;, - 0.249509; 0.731470;, - 0.687500; 0.083333;, - 0.666667; 0.083333;, - 0.666667; 0.041667;, - 0.680556; 0.055556;, - 0.708333; 0.041667;, - 0.722222; 0.055556;, - 0.750000; 0.041667;, - 0.750000; 0.083333;, - 0.729167; 0.083333;, - 0.729167; 0.125000;, - 0.750000; 0.125000;, - 0.750000; 0.166667;, - 0.729167; 0.166667;, - 0.687500; 0.166667;, - 0.003701; 0.578038;, - 0.008133; 0.577560;, - 0.008398; 0.620153;, - 0.003821; 0.620504;, - 0.012357; 0.539831;, - 0.009287; 0.538018;, - 0.009235; 0.558060;, - 0.012291; 0.559488;, - 0.481050; 0.501022;, - 0.482640; 0.542094;, - 0.483449; 0.584572;, - 0.487662; 0.581976;, - 0.485844; 0.496864;, - 0.493204; 0.580017;, - 0.487662; 0.581976;, - 0.487428; 0.621235;, - 0.493070; 0.620014;, - 0.333333; 0.415983;, - 0.333333; 0.500000;, - 0.291666; 0.500000;, - 0.291667; 0.415983;, - 0.931921; 0.784930;, - 0.963784; 0.734214;, - 0.940330; 0.776353;, - 0.985146; 0.690939;, - 0.000330; 0.678925;, - 0.010118; 0.679386;, - 0.007144; 0.508880;, - 0.990155; 0.506879;, - 0.933538; 0.777568;, - 1.005640; 0.622789;, - 1.005368; 0.600334;, - 0.998609; 0.601492;, - 0.998236; 0.624798;, - 0.461754; 0.836011;, - 0.446134; 0.863941;, - 0.523712; 0.885733;, - 0.515322; 0.850680;, - 0.016706; 0.664348;, - 0.012814; 0.666342;, - 0.014457; 0.680722;, - 0.018620; 0.677455;, - 0.250000; 0.333333;, - 0.250000; 0.250000;, - 0.270833; 0.250000;, - 0.270833; 0.208333;, - 0.291667; 0.208333;, - 0.291667; 0.333333;, - 0.270833; 0.333333;, - 0.270213; 0.715001;, - 0.265337; 0.718222;, - 0.265170; 0.710418;, - 0.270034; 0.707038;, - 0.938810; 0.604038;, - 0.921904; 0.586256;, - 0.921739; 0.342353;, - 0.938670; 0.297772;, - 0.957018; 0.274731;, - 0.966991; 0.410875;, - 0.494884; 0.722097;, - 0.495357; 0.686041;, - 0.498296; 0.687455;, - 0.498129; 0.722362;, - 0.497844; 0.760673;, - 0.494090; 0.760775;, - 0.980788; 0.532357;, - 0.982074; 0.442096;, - 0.982066; 0.411272;, - 0.998111; 0.414353;, - 0.998108; 0.446648;, - 0.997959; 0.541561;, - 0.992844; 0.539471;, - 0.583333; 0.166667;, - 0.416667; 0.166667;, - 0.395833; 0.166667;, - 0.395833; 0.083333;, - 0.604167; 0.083333;, - 0.604167; 0.125000;, - 0.583333; 0.125000;, - 1.005146; 0.536504;, - 1.005115; 0.557032;, - 0.009235; 0.558060;, - 0.009287; 0.538018;, - 0.510154; 0.487906;, - 0.511322; 0.455150;, - 0.502261; 0.461143;, - 0.502025; 0.489746;, - 0.455108; 0.473312;, - 0.462289; 0.443031;, - 0.470817; 0.429416;, - 0.464610; 0.457309;, - 0.986704; 0.673011;, - 0.984006; 0.694893;, - 0.994458; 0.690035;, - 0.986704; 0.673011;, - 0.994458; 0.690035;, - 0.995564; 0.673116;, - 0.969857; 0.598470;, - 0.992643; 0.636974;, - 0.992994; 0.678169;, - 0.969857; 0.598470;, - 0.992994; 0.678169;, - 0.972697; 0.689138;, - 0.666667; 0.750000;, - 0.625000; 0.750000;, - 0.625000; 0.666667;, - 0.666667; 0.666667;, - 0.708333; 0.666667;, - 0.708333; 0.750000;, - 0.006635; 0.669078;, - 1.005640; 0.622789;, - 0.998236; 0.624798;, - 0.995564; 0.673116;, - 0.104167; 0.166667;, - 0.083333; 0.166667;, - 0.916667; 0.166667;, - 0.916667; 0.125000;, - 0.895833; 0.125000;, - 0.895833; 0.083333;, - 0.104167; 0.083333;, - 0.949783; 0.138440;, - 0.962893; 0.177456;, - 0.976057; 0.264130;, - 0.957018; 0.274260;, - 0.919886; 0.164740;, - 0.493204; 0.580017;, - 0.492862; 0.535988;, - 0.492178; 0.493110;, - 0.485844; 0.496864;, - 0.487662; 0.581976;, - 0.969857; 0.598470;, - 0.992785; 0.574998;, - 0.992643; 0.636974;, - 0.502261; 0.461143;, - 0.511322; 0.455150;, - 0.526251; 0.375973;, - 0.508496; 0.408175;, - 0.961251; 0.122859;, - 0.973121; 0.153447;, - 0.023134; 0.129090;, - 0.038163; 0.091096;, - 0.293242; 0.271002;, - 0.377180; 0.128995;, - 0.419019; 0.183974;, - 0.438652; 0.240505;, - 0.344094; 0.319427;, - 0.484371; 0.471930;, - 0.482866; 0.420673;, - 0.488996; 0.420105;, - 0.490542; 0.519639;, - 0.485266; 0.519930;, - 0.969857; 0.598470;, - 0.977849; 0.457224;, - 0.993343; 0.514398;, - 0.992785; 0.574998;, - 0.732043; 0.448911;, - 0.906846; 0.810588;, - 0.906707; 0.803426;, - 0.907828; 0.794257;, - 0.910100; 0.783442;, - 0.885010; 0.070272;, - 0.790104; 0.068841;, - 0.004103; 0.663367;, - 0.003821; 0.620504;, - 0.008398; 0.620153;, - 0.009019; 0.663148;, - 0.089320; 0.605129;, - 0.094497; 0.640740;, - 0.029084; 0.662412;, - 0.027124; 0.620290;, - 0.553039; 0.857143;, - 0.619803; 0.857143;, - 0.619803; 0.785714;, - 0.553039; 0.785714;, - 0.609262; 0.442487;, - 0.620982; 0.631964;, - 0.520212; 0.665624;, - 0.518101; 0.480336;, - 0.552792; 0.464106;, - 0.485104; 0.648464;, - 0.485667; 0.565063;, - 0.490800; 0.564867;, - 0.490438; 0.648443;, - 0.508942; 0.120727;, - 0.499922; 0.111715;, - 1.499877; 0.052825;, - 0.515621; 0.061626;, - 0.992092; 0.623061;, - 0.986704; 0.673011;, - 0.995564; 0.673116;, - 0.998236; 0.624798;, - 0.493204; 0.580017;, - 0.493070; 0.620014;, - 0.501788; 0.620157;, - 0.501751; 0.579007;, - 1.005613; 0.498174;, - 1.005315; 0.516563;, - 0.009578; 0.518666;, - 0.010086; 0.500961;, - 0.974943; 0.719148;, - 0.972697; 0.689138;, - 0.992994; 0.678169;, - 0.993668; 0.694657;, - 0.510334; 0.667729;, - 0.502291; 0.659087;, - 0.503822; 0.695125;, - 0.513728; 0.706264;, - 0.004103; 0.663367;, - 0.001495; 0.663553;, - 1.001393; 0.621235;, - 0.003821; 0.620504;, - 0.403132; 0.556683;, - 0.470091; 0.566559;, - 0.468934; 0.648926;, - 0.400204; 0.626659;, - 1.005194; 0.578333;, - 0.998657; 0.578690;, - 0.998609; 0.601492;, - 1.005368; 0.600334;, - 0.492636; 0.657784;, - 0.493070; 0.620014;, - 0.487428; 0.621235;, - 0.486508; 0.658264;, - 0.508795; 0.580236;, - 0.501751; 0.579007;, - 0.501788; 0.620157;, - 0.508999; 0.624939;, - 0.750000; 0.666667;, - 0.750000; 0.750000;, - 0.666667; 0.750000;, - 0.666667; 0.666667;, - 0.708333; 0.666667;, - 0.990343; 0.454160;, - 0.972564; 0.591844;, - 0.949084; 0.714841;, - 0.990155; 0.506879;, - 0.500000; 0.500000;, - 0.500000; 0.416667;, - 0.541667; 0.416667;, - 0.541667; 0.500000;, - 0.416667; 0.583333;, - 0.416667; 0.500000;, - 0.458333; 0.500000;, - 0.458333; 0.583333;, - 0.493204; 0.580017;, - 0.501751; 0.579007;, - 0.501842; 0.533844;, - 0.492862; 0.535988;, - 0.005938; 0.306312;, - 0.013049; 0.305813;, - 0.011275; 0.352862;, - 0.005127; 0.353603;, - 0.041667; 0.750000;, - 0.041667; 0.666667;, - 0.083333; 0.666667;, - 0.125000; 0.666667;, - 0.125000; 0.750000;, - 0.490702; 0.731412;, - 0.506175; 0.735058;, - 0.503822; 0.695125;, - 0.492019; 0.692734;, - 0.495357; 0.686041;, - 0.495637; 0.649384;, - 0.495805; 0.565454;, - 0.498461; 0.566992;, - 0.498296; 0.687455;, - 0.392671; 0.077229;, - 0.418163; 0.485514;, - 0.732043; 0.448911;, - 0.790104; 0.068841;, - 0.958333; 0.750000;, - 0.958333; 0.666667;, - 1.000000; 0.666667;, - 0.041667; 0.666667;, - 0.041667; 0.750000;, - 0.708333; 0.500000;, - 0.708333; 0.416667;, - 0.750000; 0.416667;, - 0.750000; 0.500000;, - 0.125000; 0.833333;, - 0.125000; 0.750000;, - 0.208333; 0.750000;, - 0.208333; 0.833333;, - 0.499922; 0.111715;, - 0.508942; 0.120727;, - 0.505970; 0.235092;, - 0.505096; 0.389029;, - 0.505013; 0.485156;, - 0.500000; 0.485224;, - 1.000000; 0.500000;, - 1.000000; 0.416667;, - 0.041667; 0.416667;, - 0.041667; 0.500000;, - 0.166666; 0.584017;, - 0.125000; 0.584016;, - 0.125000; 0.500000;, - 0.166667; 0.500000;, - 0.209752; 0.571429;, - 0.379312; 0.571429;, - 0.379312; 0.500000;, - 0.209752; 0.500000;, - 0.875000; 0.584016;, - 0.833334; 0.584017;, - 0.833334; 0.500000;, - 0.875000; 0.500000;, - 0.187283; 0.000000;, - 0.187283; 1.000000;, - 0.255516; 1.000000;, - 0.255516; 0.000000;, - 0.247703; 0.732876;, - 0.250914; 0.733737;, - 0.261013; 0.732513;, - 0.259605; 0.732963;, - 0.260747; 0.732408;, - 0.258999; 0.732452;, - 0.249990; 0.732705;, - 0.248125; 0.732758;, - 0.249255; 0.733250;, - 0.291667; 0.583333;, - 0.291667; 0.500000;, - 0.333333; 0.500000;, - 0.333333; 0.583333;, - 0.553039; 0.428571;, - 0.553039; 0.500000;, - 0.619803; 0.500000;, - 0.619803; 0.428571;, - 0.250000; 0.250000;, - 0.250000; 0.333333;, - 0.229167; 0.333333;, - 0.208333; 0.333333;, - 0.208333; 0.208333;, - 0.229167; 0.208333;, - 0.229167; 0.250000;, - 0.875000; 0.248639;, - 0.875000; 0.332152;, - 0.791667; 0.332152;, - 0.791667; 0.248638;, - 0.208333; 0.500000;, - 0.208333; 0.416667;, - 0.250000; 0.416667;, - 0.250000; 0.500000;, - 0.272086; 0.681541;, - 0.273002; 0.676607;, - 0.276009; 0.683839;, - 0.274920; 0.689254;, - 0.250000; 0.584017;, - 0.208333; 0.584016;, - 0.208333; 0.500000;, - 0.250000; 0.500000;, - 0.666667; 0.207019;, - 0.666667; 0.165490;, - 0.791667; 0.165490;, - 0.791667; 0.248638;, - 0.708334; 0.248638;, - 0.708334; 0.207019;, - 0.552792; 0.464108;, - 0.563106; 0.218312;, - 0.593971; 0.115548;, - 0.675889; 0.133594;, - 0.609262; 0.444369;, - 0.242415; 0.718770;, - 0.242300; 0.710940;, - 0.247835; 0.712860;, - 0.247962; 0.720583;, - 0.209752; 0.857143;, - 0.379312; 0.857143;, - 0.379312; 0.785714;, - 0.209752; 0.785714;, - 0.240899; 0.672348;, - 0.242261; 0.675568;, - 0.244356; 0.678289;, - 0.242834; 0.682218;, - 0.240248; 0.690561;, - 0.237147; 0.686784;, - 0.235096; 0.682304;, - 0.238760; 0.675367;, - 0.480305; 0.071429;, - 0.480305; 0.142857;, - 0.553039; 0.142857;, - 0.553039; 0.071429;, - 0.480305; 0.214286;, - 0.553039; 0.214286;, - 0.553039; 0.142857;, - 0.480305; 0.142857;, - 0.879001; 0.571429;, - 0.879001; 0.714286;, - 1.000000; 0.285714;, - 1.000000; 0.214286;, - 1.000000; 0.142857;, - 1.000000; 0.071429;, - 1.000000; 1.000000;, - 1.000000; 0.928571;, - 1.000000; 0.857143;, - 1.000000; 0.785714;, - 0.879001; 0.214286;, - 0.879001; 0.285714;, - 0.879001; 0.428571;, - 0.993343; 0.514398;, - 0.977849; 0.457224;, - 0.987589; 0.432696;, - 0.996716; 0.460179;, - 0.995208; 0.461177;, - 0.994125; 0.477001;, - 0.553039; 0.928571;, - 0.553039; 1.000000;, - 0.619803; 1.000000;, - 0.619803; 0.928571;, - 0.833333; 0.500000;, - 0.833333; 0.416667;, - 0.875000; 0.416667;, - 0.875000; 0.500000;, - 0.375000; 0.416667;, - 0.375000; 0.333333;, - 0.416667; 0.333333;, - 0.416667; 0.416667;, - 0.458333; 0.666667;, - 0.458333; 0.583333;, - 0.500000; 0.583333;, - 0.500000; 0.666667;, - 0.619803; 0.428571;, - 0.766693; 0.428571;, - 0.766693; 0.357143;, - 0.619803; 0.357143;, - 1.000000; 0.875960;, - 1.000000; 0.834510;, - 0.041667; 0.834509;, - 0.166666; 0.834509;, - 0.166666; 0.875960;, - 0.145833; 0.875964;, - 0.145833; 0.913916;, - 0.020833; 0.913916;, - 0.020833; 0.875964;, - 0.023134; 0.129090;, - 0.032688; 0.113695;, - 0.061583; 0.071838;, - 0.400244; 0.888168;, - 0.289469; 0.946069;, - 0.418163; 0.485514;, - 0.392671; 0.077229;, - 0.257230; 0.034033;, - 0.038163; 0.091096;, - 0.234258; 0.677403;, - 0.231453; 0.684802;, - 0.231956; 0.679317;, - 0.234731; 0.672402;, - 0.433869; 0.428571;, - 0.433869; 0.500000;, - 0.480305; 0.500000;, - 0.480305; 0.428571;, - 0.248515; 0.726940;, - 0.238830; 0.722740;, - 0.237566; 0.715783;, - 0.242415; 0.718770;, - 0.247962; 0.720583;, - 0.997959; 0.541561;, - 0.997674; 0.615563;, - 0.997423; 0.663288;, - 0.991001; 0.659782;, - 0.992844; 0.539471;, - 0.958334; 0.792980;, - 0.916667; 0.792980;, - 0.875000; 0.792980;, - 0.875000; 0.751361;, - 0.875000; 0.667848;, - 0.916667; 0.667848;, - 0.958333; 0.667848;, - 0.958334; 0.751361;, - 0.264207; 0.666365;, - 0.262946; 0.660700;, - 0.265160; 0.661442;, - 0.266359; 0.664775;, - 0.268637; 0.666592;, - 0.268283; 0.674783;, - 0.263752; 0.669277;, - 0.875000; 0.584016;, - 0.875000; 0.667848;, - 0.791667; 0.667848;, - 0.791667; 0.584016;, - 0.833334; 0.584017;, - 0.666667; 0.415983;, - 0.666667; 0.500000;, - 0.625000; 0.500000;, - 0.625000; 0.415983;, - 0.270343; 0.668784;, - 0.265712; 0.665366;, - 0.266767; 0.673439;, - 0.271731; 0.676866;, - 0.238830; 0.722740;, - 0.235261; 0.719265;, - 0.233725; 0.711811;, - 0.237566; 0.715783;, - 0.879001; 0.428571;, - 0.879001; 0.285714;, - 0.766693; 0.285714;, - 0.766693; 0.357143;, - 0.766693; 0.428571;, - 0.265712; 0.665366;, - 0.260130; 0.663252;, - 0.260764; 0.671330;, - 0.266767; 0.673439;, - 0.209752; 0.428571;, - 0.379312; 0.428571;, - 0.379312; 0.357143;, - 0.209752; 0.357143;, - 0.011844; 0.668582;, - 0.008734; 0.497995;, - 0.007144; 0.508880;, - 0.010118; 0.679386;, - 1.000055; 0.417796;, - 0.002848; 0.666006;, - 1.000000; 0.663963;, - 0.999143; 0.630655;, - 0.619803; 0.928571;, - 0.619803; 1.000000;, - 0.766693; 1.000000;, - 0.766693; 0.928571;, - 0.706977; 0.928571;, - 0.250000; 0.750000;, - 0.208333; 0.750000;, - 0.208333; 0.666667;, - 0.250000; 0.666667;, - 0.291667; 0.666667;, - 0.291667; 0.750000;, - 0.905854; 0.890218;, - 0.908927; 0.822465;, - 0.908927; 0.822465;, - 0.995865; 0.166921;, - 0.994136; 0.123507;, - 0.989077; 0.071395;, - 0.515621; 0.061626;, - 1.499877; 0.052825;, - 1.000000; 0.171103;, - 0.209752; 0.857143;, - 0.209752; 0.928571;, - 0.379312; 0.928571;, - 0.379312; 0.857143;, - 0.480305; 0.785714;, - 0.553039; 0.785714;, - 0.553039; 0.714286;, - 0.480305; 0.714286;, - 0.924436; 0.737993;, - 0.920730; 0.746864;, - 0.924436; 0.737993;, - 0.927644; 0.731881;, - 0.098449; 0.714286;, - 0.098449; 0.785714;, - 0.209752; 0.785714;, - 0.209752; 0.714286;, - 0.619803; 0.571429;, - 0.619803; 0.642857;, - 0.766693; 0.642857;, - 0.766693; 0.571429;, - 0.098449; 0.714286;, - 0.098449; 0.571429;, - 0.098449; 0.428571;, - 0.098449; 0.285714;, - 0.098449; 0.214286;, - 0.098449; 0.071429;, - 0.098449; 0.928571;, - 0.098449; 0.785714;, - 0.750000; 0.250000;, - 0.750000; 0.333333;, - 0.708333; 0.333333;, - 0.666667; 0.333333;, - 0.666667; 0.250000;, - 0.708333; 0.250000;, - 0.906846; 0.810588;, - 0.906846; 0.810588;, - 0.908267; 0.815512;, - 0.908927; 0.822465;, - 0.908927; 0.822465;, - 0.908267; 0.815512;, - 0.766693; 0.571429;, - 0.879001; 0.571429;, - 0.879001; 0.428571;, - 0.766693; 0.428571;, - 0.766693; 0.500000;, - 0.041667; 0.834509;, - 1.000000; 0.834510;, - 0.916667; 0.834509;, - 0.916667; 0.792980;, - 0.958334; 0.792980;, - 0.958334; 0.751361;, - 0.041667; 0.751361;, - 0.958333; 0.667848;, - 0.916667; 0.667848;, - 0.916667; 0.584016;, - 0.958334; 0.584016;, - 0.619803; 0.214286;, - 0.766693; 0.214286;, - 0.766693; 0.142857;, - 0.619803; 0.142857;, - 1.000000; 1.000000;, - 0.000000; 1.000000;, - 0.539517; 0.357143;, - 0.935065; 0.769570;, - 0.936340; 0.761955;, - 0.936340; 0.761955;, - 0.933538; 0.777568;, - 0.009496; 0.265143;, - 0.990579; 0.275802;, - 0.992458; 0.374254;, - 0.007460; 0.366622;, - 1.000000; 1.000000;, - 0.000000; 1.000000;, - 0.706977; 0.928571;, - 0.000000; 0.000000;, - 0.000000; 1.000000;, - 0.497047; 0.349207;, - 0.512794; 0.349972;, - 0.000000; 0.000000;, - 0.000000; 1.000000;, - 0.906707; 0.803426;, - 0.906846; 0.810588;, - 0.906846; 0.810588;, - 0.907828; 0.794258;, - 0.666667; 0.166667;, - 0.687500; 0.166667;, - 0.729167; 0.166667;, - 0.729167; 0.208333;, - 0.708333; 0.208333;, - 0.666667; 0.208333;, - 0.791667; 0.500000;, - 0.791667; 0.416667;, - 0.833333; 0.416667;, - 0.833333; 0.500000;, - 0.291667; 0.250000;, - 0.250000; 0.250000;, - 0.208333; 0.250000;, - 0.208333; 0.166667;, - 0.291667; 0.166667;, - 0.234731; 0.672402;, - 0.231956; 0.679317;, - 0.233993; 0.674090;, - 0.236531; 0.667640;, - 0.998542; 0.495580;, - 0.992532; 0.486752;, - 0.992638; 0.537736;, - 0.998670; 0.535434;, - 0.998622; 0.514747;, - 0.433869; 0.785714;, - 0.480305; 0.785714;, - 0.480305; 0.714286;, - 0.433869; 0.714286;, - 0.333333; 0.500000;, - 0.333333; 0.416667;, - 0.375000; 0.416667;, - 0.375000; 0.500000;, - 0.079637; 1.000000;, - 1.000000; 1.000000;, - 1.000000; 0.000000;, - 0.079637; 0.000000;, - 0.041667; 0.583333;, - 0.041667; 0.500000;, - 0.083333; 0.500000;, - 0.083333; 0.583333;, - 0.583333; 0.666667;, - 0.583333; 0.583333;, - 0.625000; 0.583333;, - 0.625000; 0.666667;, - 0.433869; 1.000000;, - 0.000000; 0.000000;, - 0.000000; 1.000000;, - 0.433869; 0.928571;, - 0.209752; 0.785714;, - 0.098449; 0.785714;, - 0.098449; 0.928571;, - 0.209752; 0.928571;, - 0.209752; 0.857143;, - 0.083333; 0.416667;, - 0.083333; 0.333333;, - 0.125000; 0.333333;, - 0.125000; 0.416667;, - 0.458333; 0.751362;, - 0.458333; 0.792981;, - 0.416666; 0.792980;, - 0.375000; 0.792981;, - 0.375000; 0.751362;, - 0.375000; 0.667848;, - 0.416666; 0.667848;, - 0.458333; 0.667848;, - 0.949783; 0.138440;, - 0.919886; 0.164740;, - 0.732678; 0.106277;, - 0.650758; 0.070383;, - 0.494090; 0.760775;, - 0.464910; 0.957929;, - 0.427497; 0.954079;, - 0.487029; 0.760427;, - 0.708333; 0.415983;, - 0.708333; 0.332152;, - 0.791667; 0.332152;, - 0.791667; 0.415983;, - 0.750000; 0.415983;, - 0.440111; 0.613128;, - 0.434605; 0.606860;, - 0.432995; 0.600075;, - 0.435481; 0.593226;, - 0.441917; 0.586807;, - 0.452887; 0.581723;, - 0.466002; 0.578090;, - 0.480305; 0.576021;, - 0.480305; 0.571429;, - 0.433869; 0.571429;, - 0.379312; 0.571429;, - 0.379312; 0.642857;, - 0.433869; 0.642857;, - 0.480305; 0.642857;, - 0.480305; 0.625408;, - 0.475180; 0.625181;, - 0.461135; 0.622583;, - 0.449203; 0.618465;, - 0.083333; 0.332152;, - 0.083333; 0.415983;, - 0.041667; 0.415983;, - 0.041667; 0.332152;, - 0.209752; 0.285714;, - 0.098449; 0.285714;, - 0.098449; 0.428571;, - 0.209752; 0.428571;, - 0.209752; 0.357143;, - 0.032675; 0.703561;, - 0.050671; 0.801952;, - 0.030129; 0.806842;, - 0.019148; 0.705204;, - 0.833334; 0.165490;, - 0.916667; 0.165491;, - 0.916667; 0.207020;, - 0.875000; 0.207020;, - 0.875000; 0.248639;, - 0.791667; 0.248638;, - 0.791667; 0.165490;, - 0.209752; 0.714286;, - 0.379312; 0.714286;, - 0.379312; 0.642857;, - 0.209752; 0.642857;, - 0.237147; 0.686784;, - 0.240248; 0.690561;, - 0.238405; 0.699222;, - 0.234832; 0.695084;, - 0.553039; 0.142857;, - 0.553039; 0.214286;, - 0.619803; 0.214286;, - 0.619803; 0.142857;, - 0.833334; 0.584017;, - 0.791667; 0.584016;, - 0.791667; 0.500000;, - 0.833334; 0.500000;, - 0.732678; 0.106605;, - 0.650758; 0.070384;, - 0.949783; 0.138440;, - 0.962893; 0.177456;, - 0.937159; 0.197654;, - 0.270785; 0.697309;, - 0.271929; 0.686628;, - 0.266955; 0.683462;, - 0.260940; 0.681529;, - 0.260587; 0.692988;, - 0.208333; 0.583333;, - 0.208333; 0.500000;, - 0.250000; 0.500000;, - 0.250000; 0.583333;, - 0.708333; 0.415983;, - 0.708333; 0.500000;, - 0.666667; 0.500000;, - 0.666667; 0.415983;, - 0.017531; 0.353719;, - 0.013190; 0.496435;, - 0.008474; 0.496129;, - 0.011275; 0.352862;, - 0.791667; 0.333333;, - 0.750000; 0.333333;, - 0.750000; 0.250000;, - 0.833333; 0.250000;, - 0.833333; 0.333333;, - 0.990154; 0.524106;, - 0.989730; 0.548441;, - 0.992421; 0.537979;, - 0.992737; 0.512087;, - 0.433869; 0.285714;, - 1.000000; 0.000000;, - 0.480305; 0.214286;, - 0.433869; 0.214286;, - 0.291667; 0.833333;, - 0.291667; 0.916667;, - 0.125000; 0.916667;, - 0.125000; 0.833333;, - 0.208333; 0.833333;, - 0.416667; 0.083333;, - 0.416667; 0.166667;, - 0.375000; 0.166667;, - 0.333333; 0.166667;, - 0.250000; 0.166667;, - 0.250000; 0.083333;, - 0.625000; 0.666667;, - 0.625000; 0.750000;, - 0.541667; 0.750000;, - 0.541667; 0.666667;, - 0.583333; 0.666667;, - 0.375000; 0.666667;, - 0.375000; 0.583333;, - 0.416667; 0.583333;, - 0.416667; 0.666667;, - 0.499945; 0.111715;, - 0.508942; 0.120728;, - 0.505970; 0.235093;, - 0.505095; 0.389030;, - 0.505013; 0.485157;, - 0.500000; 0.485225;, - 0.014037; 0.663015;, - 0.009019; 0.663148;, - 0.008398; 0.620153;, - 0.013073; 0.620144;, - 0.015985; 0.497405;, - 0.027363; 0.498509;, - 0.026386; 0.539080;, - 0.026285; 0.578459;, - 0.015346; 0.578297;, - 0.015406; 0.538472;, - 0.248098; 0.704229;, - 0.253609; 0.704792;, - 0.253727; 0.713423;, - 0.247835; 0.712860;, - 0.998236; 0.624798;, - 0.998609; 0.601492;, - 0.998657; 0.578690;, - 0.998678; 0.556663;, - 0.993147; 0.581943;, - 0.992092; 0.623061;, - 0.666667; 0.833333;, - 0.666667; 0.750000;, - 0.708333; 0.750000;, - 0.750000; 0.750000;, - 0.750000; 0.833333;, - 0.125000; 0.584016;, - 0.083333; 0.584016;, - 0.083333; 0.500000;, - 0.125000; 0.500000;, - 0.209752; 1.000000;, - 0.379312; 1.000000;, - 0.379312; 0.928571;, - 0.209752; 0.928571;, - 0.269019; 0.715279;, - 0.266581; 0.719423;, - 0.268124; 0.724105;, - 0.267514; 0.726573;, - 0.272233; 0.721156;, - 0.272758; 0.714013;, - 0.270476; 0.718054;, - 0.455108; 0.473312;, - 0.464610; 0.457309;, - 0.514387; 0.428460;, - 0.518587; 0.514780;, - 0.446107; 0.550167;, - 0.979733; 0.187232;, - 0.983562; 0.221196;, - 0.987778; 0.218063;, - 0.989459; 0.247072;, - 0.010714; 0.235800;, - 0.016204; 0.168594;, - 0.470091; 0.566559;, - 0.403132; 0.556683;, - 0.401038; 0.519043;, - 0.469266; 0.521980;, - 0.619803; 0.857143;, - 0.766693; 0.857143;, - 0.766693; 0.785714;, - 0.619803; 0.785714;, - 0.766693; 0.785714;, - 0.766693; 0.857143;, - 0.766693; 0.928571;, - 0.879001; 0.928571;, - 0.879001; 0.785714;, - 0.041667; 0.248639;, - 0.041667; 0.332152;, - 1.000000; 0.332152;, - 0.958333; 0.332152;, - 0.958333; 0.248639;, - 0.458333; 0.332152;, - 0.458333; 0.415983;, - 0.416666; 0.415983;, - 0.416666; 0.332151;, - 0.740089; 0.000000;, - 0.740089; 1.000000;, - 0.537755; 1.000000;, - 0.537755; 0.000000;, - 0.916667; 0.500000;, - 0.916667; 0.584016;, - 0.875000; 0.584016;, - 0.875000; 0.500000;, - 0.041667; 0.667848;, - 0.041667; 0.584016;, - 0.083333; 0.584016;, - 0.083333; 0.667848;, - 0.484886; 0.692370;, - 0.479843; 0.693239;, - 0.475911; 0.729795;, - 0.451131; 0.831219;, - 0.461754; 0.836011;, - 0.481821; 0.729898;, - 1.000000; 1.000000;, - 0.000000; 0.000000;, - 0.433869; 0.357143;, - 0.379312; 0.357143;, - 0.379312; 0.428571;, - 0.433869; 0.428571;, - 0.480305; 0.428571;, - 0.480305; 0.399244;, - 0.473007; 0.398164;, - 0.460101; 0.394417;, - 0.449754; 0.389188;, - 0.443240; 0.382844;, - 0.440604; 0.376061;, - 0.442017; 0.369324;, - 0.447400; 0.363098;, - 0.254023; 0.662617;, - 0.247888; 0.663516;, - 0.247577; 0.671635;, - 0.254187; 0.670712;, - 0.875000; 0.332152;, - 0.916667; 0.332152;, - 0.916667; 0.415983;, - 0.875000; 0.415983;, - 0.379312; 0.214286;, - 0.433869; 0.214286;, - 0.433869; 0.142857;, - 0.379312; 0.142857;, - 1.000000; 0.000000;, - 0.619803; 0.285714;, - 0.619803; 0.214286;, - 0.553039; 0.214286;, - 0.708334; 0.751362;, - 0.708334; 0.667848;, - 0.791667; 0.667848;, - 0.791667; 0.751361;, - 0.475475; 0.760527;, - 0.479818; 0.760037;, - 0.395779; 0.948422;, - 0.024966; 0.807561;, - 0.030129; 0.806842;, - 0.379276; 0.944781;, - 0.233630; 0.703578;, - 0.237463; 0.707780;, - 0.237566; 0.715783;, - 0.233725; 0.711811;, - 0.209752; 0.285714;, - 0.379312; 0.285714;, - 0.379312; 0.214286;, - 0.209752; 0.214286;, - 0.938810; 0.604038;, - 0.966991; 0.410875;, - 0.967011; 0.439532;, - 0.957115; 0.628338;, - 0.209752; 0.357143;, - 0.379312; 0.357143;, - 0.379312; 0.285714;, - 0.209752; 0.285714;, - 0.016706; 0.664348;, - 0.013557; 0.622009;, - 0.010241; 0.622055;, - 0.012814; 0.666342;, - 0.209752; 0.428571;, - 0.209752; 0.500000;, - 0.379312; 0.500000;, - 0.379312; 0.428571;, - 0.619803; 0.214286;, - 0.619803; 0.285714;, - 0.766693; 0.285714;, - 0.766693; 0.214286;, - 0.963784; 0.734214;, - 0.931921; 0.784930;, - 0.940330; 0.776353;, - 0.166666; 0.124040;, - 0.166666; 0.165490;, - 0.041667; 0.165491;, - 1.000000; 0.165491;, - 1.000000; 0.124041;, - 0.979167; 0.124037;, - 0.979167; 0.086084;, - 0.145833; 0.086084;, - 0.145833; 0.124037;, - 0.416667; 0.500000;, - 0.416666; 0.584017;, - 0.375000; 0.584017;, - 0.375000; 0.500000;, - 0.026285; 0.578459;, - 0.027124; 0.620290;, - 0.015843; 0.620618;, - 0.015346; 0.578297;, - 0.261661; 0.716114;, - 0.258299; 0.715271;, - 0.247567; 0.716514;, - 0.249221; 0.720867;, - 0.248047; 0.721417;, - 0.249990; 0.724775;, - 0.259261; 0.724509;, - 0.261190; 0.721041;, - 0.260039; 0.720557;, - 0.166666; 0.207020;, - 0.166666; 0.165490;, - 0.291666; 0.165490;, - 0.291666; 0.248638;, - 0.208333; 0.248639;, - 0.208333; 0.207020;, - 0.379312; 0.071429;, - 0.433869; 0.071429;, - 0.433869; 1.000000;, - 0.379312; 1.000000;, - 0.125000; 0.833333;, - 0.125000; 0.750000;, - 0.166667; 0.750000;, - 0.208333; 0.750000;, - 0.208333; 0.833333;, - 0.885010; 0.076014;, - 0.979729; 0.152764;, - 0.970279; 0.120548;, - 0.950114; 0.088565;, - 0.666667; 0.333333;, - 0.666667; 0.250000;, - 0.645833; 0.250000;, - 0.645833; 0.208333;, - 0.666667; 0.208333;, - 0.708333; 0.208333;, - 0.708333; 0.333333;, - 0.687500; 0.333333;, - 0.750000; 0.415983;, - 0.750000; 0.500000;, - 0.708333; 0.500000;, - 0.708333; 0.415983;, - 0.433869; 0.785714;, - 0.433869; 0.857143;, - 0.480305; 0.857143;, - 0.480305; 0.785714;, - 0.379312; 0.857143;, - 0.433869; 0.857143;, - 0.433869; 0.785714;, - 0.379312; 0.785714;, - 0.265616; 0.729471;, - 0.262243; 0.731420;, - 0.258380; 0.732691;, - 0.258873; 0.731225;, - 0.259537; 0.726664;, - 0.269267; 0.721975;, - 0.267128; 0.727454;, - 0.438652; 0.240505;, - 0.419019; 0.183974;, - 0.450537; 0.171586;, - 0.463414; 0.232235;, - 0.433869; 0.285714;, - 0.433869; 0.214286;, - 0.379312; 0.214286;, - 0.379312; 0.285714;, - 0.833333; 0.500000;, - 0.833333; 0.416667;, - 0.875000; 0.416667;, - 0.875000; 0.500000;, - 0.833333; 0.250000;, - 0.833333; 0.333333;, - 0.791667; 0.333333;, - 0.750000; 0.333333;, - 0.750000; 0.250000;, - 0.791667; 0.250000;, - 1.000000; 0.000000;, - 0.000000; 0.000000;, - 1.000000; 1.000000;, - 0.998047; 0.381638;, - 0.998110; 0.414353;, - 0.982066; 0.411272;, - 0.978103; 0.292658;, - 0.997674; 0.289926;, - 0.958333; 0.250000;, - 0.958333; 0.166667;, - 1.000000; 0.166667;, - 1.000000; 0.250000;, - 0.248109; 0.656740;, - 0.256450; 0.655414;, - 0.259074; 0.656533;, - 0.257691; 0.657319;, - 0.258578; 0.657947;, - 0.257025; 0.658930;, - 0.249993; 0.659060;, - 0.248504; 0.658135;, - 0.249404; 0.657473;, - 0.041667; 0.833333;, - 1.000000; 0.833333;, - 1.000000; 0.750000;, - 0.041667; 0.750000;, - 0.083333; 0.750000;, - 0.083333; 0.833333;, - 0.208333; 0.248639;, - 0.291666; 0.248638;, - 0.291666; 0.332152;, - 0.208333; 0.332152;, - 0.416666; 0.667848;, - 0.416666; 0.584017;, - 0.458333; 0.584017;, - 0.458333; 0.667848;, - 0.791667; 0.332152;, - 0.875000; 0.332152;, - 0.875000; 0.415983;, - 0.833334; 0.415983;, - 0.791667; 0.415983;, - 0.500000; 0.166667;, - 0.458333; 0.166667;, - 0.416667; 0.166667;, - 0.416667; 0.083333;, - 0.500000; 0.083333;, - 0.505590; 0.667340;, - 0.505013; 0.485156;, - 0.518101; 0.480336;, - 0.520212; 0.665624;, - 0.480305; 0.714286;, - 0.553039; 0.714286;, - 0.553039; 0.642857;, - 0.480305; 0.642857;, - 0.487820; 0.165550;, - 0.012899; 0.148202;, - 1.004656; 0.150616;, - 0.495526; 0.166422;, - 0.375000; 0.500000;, - 0.375000; 0.416667;, - 0.416667; 0.416667;, - 0.416667; 0.500000;, - 0.541667; 0.165490;, - 0.666667; 0.165490;, - 0.666667; 0.207019;, - 0.625000; 0.207019;, - 0.625000; 0.248638;, - 0.541667; 0.248638;, - 0.583333; 0.833333;, - 0.583333; 0.750000;, - 0.666667; 0.750000;, - 0.666667; 0.833333;, - 0.962893; 0.177456;, - 0.995864; 0.166921;, - 0.997442; 0.259848;, - 0.976057; 0.264130;, - 0.619803; 0.571429;, - 0.766693; 0.571429;, - 0.766693; 0.500000;, - 0.619803; 0.500000;, - 0.708333; 0.416667;, - 0.708333; 0.333333;, - 0.750000; 0.333333;, - 0.750000; 0.416667;, - 0.433869; 0.142857;, - 0.433869; 0.071429;, - 0.379312; 0.071429;, - 0.379312; 0.142857;, - 0.541667; 0.248638;, - 0.541667; 0.332151;, - 0.500000; 0.332152;, - 0.458333; 0.332152;, - 0.458333; 0.248638;, - 0.023134; 0.129090;, - 0.016204; 0.168594;, - 0.010714; 0.235800;, - 0.009496; 0.265143;, - 0.012081; 0.255141;, - 0.032688; 0.113695;, - 0.833333; 0.583333;, - 0.833333; 0.500000;, - 0.875000; 0.500000;, - 0.875000; 0.583333;, - 0.916667; 0.583333;, - 0.916667; 0.500000;, - 0.958333; 0.500000;, - 0.958333; 0.583333;, - 0.291667; 0.666667;, - 0.291667; 0.583333;, - 0.333333; 0.583333;, - 0.333333; 0.666667;, - 0.770833; 0.333333;, - 0.791667; 0.333333;, - 0.812500; 0.333333;, - 0.812500; 0.500000;, - 0.770833; 0.500000;, - 0.433869; 0.571429;, - 0.433869; 0.500000;, - 0.379312; 0.500000;, - 0.379312; 0.571429;, - 0.583333; 0.666667;, - 0.583333; 0.750000;, - 0.500000; 0.750000;, - 0.500000; 0.666667;, - 0.541667; 0.666667;, - 0.125000; 0.500000;, - 0.125000; 0.416667;, - 0.166667; 0.416667;, - 0.166667; 0.500000;, - 0.250140; 0.655127;, - 0.246871; 0.656619;, - 0.244096; 0.658931;, - 0.242445; 0.659826;, - 0.239579; 0.663458;, - 0.248579; 0.658036;, - 0.249564; 0.655395;, - 0.291666; 0.248638;, - 0.375000; 0.248638;, - 0.375000; 0.332152;, - 0.291666; 0.332152;, - 1.000000; 0.083333;, - 1.000000; 0.166667;, - 0.916667; 0.166667;, - 0.833333; 0.166667;, - 0.833333; 0.083333;, - 0.938810; 0.600847;, - 0.950998; 0.414133;, - 0.966991; 0.410293;, - 0.967011; 0.438925;, - 0.957115; 0.627647;, - 0.666667; 0.416667;, - 0.666667; 0.333333;, - 0.708333; 0.333333;, - 0.708333; 0.416667;, - 0.879001; 0.071429;, - 0.879001; 0.214286;, - 1.000000; 0.785714;, - 1.000000; 0.714286;, - 1.000000; 0.642857;, - 1.000000; 0.571429;, - 1.000000; 0.500000;, - 1.000000; 0.428571;, - 1.000000; 0.357143;, - 1.000000; 0.285714;, - 0.879001; 0.714286;, - 0.879001; 0.785714;, - 0.879001; 0.928571;, - 0.625000; 0.667848;, - 0.625000; 0.584017;, - 0.666667; 0.584017;, - 0.708334; 0.584017;, - 0.708334; 0.667848;, - 0.254346; 0.680981;, - 0.260940; 0.681529;, - 0.260764; 0.671330;, - 0.254187; 0.670712;, - 0.238541; 0.667182;, - 0.234731; 0.672402;, - 0.236531; 0.667640;, - 0.239579; 0.663458;, - 0.242445; 0.659826;, - 0.145833; 0.500000;, - 0.145833; 0.333333;, - 0.166667; 0.333333;, - 0.187500; 0.333333;, - 0.187500; 0.500000;, - 0.985779; 0.253277;, - 0.990579; 0.275802;, - 0.989459; 0.247072;, - 0.987778; 0.218063;, - 0.619803; 0.857143;, - 0.619803; 0.928571;, - 0.706977; 0.928571;, - 0.766693; 0.928571;, - 0.766693; 0.857143;, - 0.274140; 0.700874;, - 0.275524; 0.690788;, - 0.271929; 0.686628;, - 0.270785; 0.697309;, - 0.479173; 0.421892;, - 0.464358; 0.424270;, - 0.438652; 0.240505;, - 0.463414; 0.232235;, - 0.416667; 0.250000;, - 0.375000; 0.250000;, - 0.375000; 0.166667;, - 0.416667; 0.166667;, - 0.458333; 0.166667;, - 0.458333; 0.250000;, - 0.083333; 0.166667;, - 0.104167; 0.166667;, - 0.166667; 0.166667;, - 0.166667; 0.208333;, - 0.166667; 0.333333;, - 0.145833; 0.333333;, - 0.125000; 0.333333;, - 0.125000; 0.291667;, - 0.083333; 0.291667;, - 0.275530; 0.792047;, - 0.376112; 0.711005;, - 0.458188; 0.758113;, - 0.336070; 0.924506;, - 0.272885; 0.718316;, - 0.269267; 0.721975;, - 0.270213; 0.715001;, - 0.274102; 0.710842;, - 0.291666; 0.165490;, - 0.333333; 0.165490;, - 0.416666; 0.165490;, - 0.416666; 0.207019;, - 0.375000; 0.207019;, - 0.375000; 0.248638;, - 0.291666; 0.248638;, - 1.000000; 0.667848;, - 1.000000; 0.584016;, - 0.041667; 0.584016;, - 0.041667; 0.667848;, - 0.272623; 0.671626;, - 0.270927; 0.666938;, - 0.273707; 0.673233;, - 0.275617; 0.678374;, - 0.266955; 0.683462;, - 0.271929; 0.686628;, - 0.271731; 0.676866;, - 0.266767; 0.673439;, - 0.962893; 0.177456;, - 0.995865; 0.166921;, - 0.997442; 0.259847;, - 0.976057; 0.264130;, - 0.996716; 0.460179;, - 0.987589; 0.432696;, - 0.992532; 0.486752;, - 0.998542; 0.495580;, - 0.998425; 0.479888;, - 0.625000; 0.166667;, - 0.625000; 0.250000;, - 0.583333; 0.250000;, - 0.541667; 0.250000;, - 0.541667; 0.166667;, - 0.583333; 0.166667;, - 0.463656; 0.720698;, - 0.466965; 0.685187;, - 0.480724; 0.686045;, - 0.475475; 0.760527;, - 0.458188; 0.758113;, - 0.375000; 0.666667;, - 0.375000; 0.583333;, - 0.416667; 0.583333;, - 0.416667; 0.666667;, - 0.458333; 0.500000;, - 0.500000; 0.500000;, - 0.500000; 0.584017;, - 0.458333; 0.584017;, - 1.000000; 0.584016;, - 0.958334; 0.584016;, - 0.958333; 0.500000;, - 1.000000; 0.500000;, - 0.416667; 0.750000;, - 0.375000; 0.750000;, - 0.375000; 0.666667;, - 0.416667; 0.666667;, - 0.458333; 0.666667;, - 0.458333; 0.750000;, - 0.395833; 0.083333;, - 0.333333; 0.083333;, - 0.333333; 0.041667;, - 0.305556; 0.055556;, - 0.291667; 0.041667;, - 0.263889; 0.055556;, - 0.250000; 0.041667;, - 0.750000; 0.041667;, - 0.722222; 0.055556;, - 0.708333; 0.041667;, - 0.680556; 0.055556;, - 0.666667; 0.041667;, - 0.666667; 0.083333;, - 0.604167; 0.083333;, - 0.500000; 0.834510;, - 0.416666; 0.834510;, - 0.416666; 0.792980;, - 0.458333; 0.792981;, - 0.458333; 0.751362;, - 0.541667; 0.751362;, - 0.541667; 0.834510;, - 0.666667; 0.666667;, - 0.666667; 0.750000;, - 0.583333; 0.750000;, - 0.583333; 0.666667;, - 0.625000; 0.666667;, - 0.041667; 0.583333;, - 0.041667; 0.500000;, - 0.083333; 0.500000;, - 0.083333; 0.583333;, - 0.375000; 0.584017;, - 0.375000; 0.667848;, - 0.291666; 0.667848;, - 0.291666; 0.584017;, - 0.333333; 0.584017;, - 0.125000; 0.416667;, - 0.125000; 0.333333;, - 0.166667; 0.333333;, - 0.166667; 0.416667;, - 0.464358; 0.424270;, - 0.479173; 0.421892;, - 0.481001; 0.473068;, - 0.482087; 0.520995;, - 0.469266; 0.521980;, - 0.166666; 0.834509;, - 0.166666; 0.792980;, - 0.208333; 0.792980;, - 0.208333; 0.751361;, - 0.291666; 0.751361;, - 0.291666; 0.834510;, - 0.949084; 0.714841;, - 0.937666; 0.752617;, - 0.937221; 0.755812;, - 0.936340; 0.761955;, - 0.935065; 0.769570;, - 0.933538; 0.777568;, - 0.990155; 0.506879;, - 0.041551; 0.313770;, - 0.036118; 0.358969;, - 0.021215; 0.355379;, - 0.024507; 0.308888;, - 0.708334; 0.584017;, - 0.666667; 0.584017;, - 0.666667; 0.500000;, - 0.708333; 0.500000;, - 0.416667; 0.916667;, - 0.250000; 0.916667;, - 0.250000; 0.833333;, - 0.333333; 0.833333;, - 0.416667; 0.833333;, - 0.166667; 0.666667;, - 0.166667; 0.583333;, - 0.208333; 0.583333;, - 0.208333; 0.666667;, - 0.166667; 0.666667;, - 0.166667; 0.583333;, - 0.208333; 0.583333;, - 0.208333; 0.666667;, - 0.875000; 0.666667;, - 0.875000; 0.583333;, - 0.916667; 0.583333;, - 0.916667; 0.666667;, - 0.272885; 0.718316;, - 0.274102; 0.710842;, - 0.276744; 0.706015;, - 0.275334; 0.714085;, - 0.268857; 0.698561;, - 0.270034; 0.707038;, - 0.265170; 0.710418;, - 0.264312; 0.701869;, - 0.139577; 0.740066;, - 0.050671; 0.801952;, - 0.032675; 0.703561;, - 0.103473; 0.673487;, - 0.083333; 0.583333;, - 0.083333; 0.500000;, - 0.125000; 0.500000;, - 0.125000; 0.583333;, - 0.950998; 0.414133;, - 0.938670; 0.295481;, - 0.957018; 0.274260;, - 0.966991; 0.410293;, - 0.791667; 0.248638;, - 0.791667; 0.332152;, - 0.708333; 0.332152;, - 0.708334; 0.248638;, - 0.666667; 0.250000;, - 0.625000; 0.250000;, - 0.625000; 0.166667;, - 0.708333; 0.166667;, - 0.708333; 0.250000;, - 0.264207; 0.666365;, - 0.263752; 0.669277;, - 0.258676; 0.676084;, - 0.257434; 0.672315;, - 0.258315; 0.671684;, - 0.256873; 0.668626;, - 0.259146; 0.662978;, - 0.261581; 0.663704;, - 0.261622; 0.664834;, - 0.984853; 0.187764;, - 0.989459; 0.249222;, - 0.010713; 0.235801;, - 0.016204; 0.168595;, - 0.583333; 0.166667;, - 0.541667; 0.166667;, - 0.500000; 0.166667;, - 0.500000; 0.083333;, - 0.625000; 0.083333;, - 0.625000; 0.166667;, - 0.253867; 0.721105;, - 0.247962; 0.720583;, - 0.247835; 0.712860;, - 0.253727; 0.713423;, - 0.998110; 0.414353;, - 0.998047; 0.381638;, - 0.997674; 0.289926;, - 0.997442; 0.259848;, - 1.000000; 0.264059;, - 1.000000; 0.417797;, - 0.957018; 0.274731;, - 0.976057; 0.264130;, - 0.978103; 0.292658;, - 0.982066; 0.411272;, - 0.966991; 0.410875;, - 0.500000; 0.750000;, - 0.500000; 0.833333;, - 0.416667; 0.833333;, - 0.416667; 0.750000;, - 0.458333; 0.750000;, - 0.675889; 0.133141;, - 0.752156; 0.180040;, - 0.701592; 0.590193;, - 0.620982; 0.631964;, - 0.609262; 0.442487;, - 0.666667; 0.584017;, - 0.625000; 0.584017;, - 0.625000; 0.500000;, - 0.666667; 0.500000;, - 0.019227; 0.495422;, - 0.020976; 0.528501;, - 0.993343; 0.514398;, - 0.994125; 0.477001;, - 0.416667; 0.416667;, - 0.416667; 0.333333;, - 0.458333; 0.333333;, - 0.458333; 0.416667;, - 0.875000; 0.500000;, - 0.875000; 0.416667;, - 0.916667; 0.416667;, - 0.916667; 0.500000;, - 0.375000; 0.667848;, - 0.375000; 0.584017;, - 0.416666; 0.584017;, - 0.416666; 0.667848;, - 0.041667; 0.250000;, - 1.000000; 0.250000;, - 1.000000; 0.166667;, - 0.083333; 0.166667;, - 0.083333; 0.250000;, - 0.257872; 0.655234;, - 0.249564; 0.655395;, - 0.248579; 0.658036;, - 0.259131; 0.657822;, - 0.264312; 0.701869;, - 0.265170; 0.710418;, - 0.259623; 0.712592;, - 0.259125; 0.703989;, - 0.895833; 0.083333;, - 0.895833; 0.125000;, - 0.916667; 0.125000;, - 0.916667; 0.166667;, - 0.916667; 0.208333;, - 0.854167; 0.208333;, - 0.833333; 0.208333;, - 0.833333; 0.166667;, - 0.812500; 0.166667;, - 0.812500; 0.083333;, - 0.833333; 0.083333;, - 0.495805; 0.565454;, - 0.495686; 0.520098;, - 0.495421; 0.471887;, - 0.498318; 0.473110;, - 0.498461; 0.566992;, - 0.265160; 0.661442;, - 0.262946; 0.660700;, - 0.259074; 0.656533;, - 0.256450; 0.655414;, - 0.257872; 0.655234;, - 0.264885; 0.659390;, - 0.263136; 0.658567;, - 0.537755; 0.000000;, - 0.377995; 0.000000;, - 0.377995; 1.000000;, - 0.537755; 1.000000;, - 0.539517; 0.357143;, - 0.548550; 0.361664;, - 0.555018; 0.367605;, - 0.557691; 0.374185;, - 0.556255; 0.380927;, - 0.553039; 0.384700;, - 0.553039; 0.428571;, - 0.619803; 0.428571;, - 0.619803; 0.357143;, - 1.000000; 1.000000;, - 0.541667; 0.416667;, - 0.541667; 0.333333;, - 0.583333; 0.333333;, - 0.583333; 0.416667;, - 0.619803; 0.714286;, - 0.766693; 0.714286;, - 0.766693; 0.642857;, - 0.619803; 0.642857;, - 0.416666; 0.792980;, - 0.416666; 0.834510;, - 0.333333; 0.834510;, - 0.291666; 0.834510;, - 0.291666; 0.751361;, - 0.375000; 0.751362;, - 0.375000; 0.792981;, - 0.243946; 0.727188;, - 0.240792; 0.724862;, - 0.242744; 0.729539;, - 0.247703; 0.732876;, - 0.249255; 0.733250;, - 0.248125; 0.732758;, - 0.249990; 0.732705;, - 0.247122; 0.729464;, - 0.244057; 0.728118;, - 0.583333; 0.584017;, - 0.583333; 0.500000;, - 0.625000; 0.500000;, - 0.625000; 0.584017;, - 0.013557; 0.622009;, - 0.012836; 0.600846;, - 0.009665; 0.600284;, - 0.010241; 0.622055;, - 0.854205; 1.000000;, - 0.740089; 1.000000;, - 0.740089; 0.000000;, - 0.854205; 0.000000;, - 0.238760; 0.675367;, - 0.235096; 0.682304;, - 0.234258; 0.677403;, - 0.234731; 0.672402;, - 0.238541; 0.667182;, - 0.268637; 0.666592;, - 0.272623; 0.671626;, - 0.273002; 0.676607;, - 0.272086; 0.681541;, - 0.268283; 0.674783;, - 0.979733; 0.187232;, - 0.973121; 0.153447;, - 0.961251; 0.122859;, - 0.885010; 0.070272;, - 0.910100; 0.783442;, - 0.913223; 0.771394;, - 0.916894; 0.758608;, - 0.920730; 0.746864;, - 0.924436; 0.737993;, - 0.927644; 0.734510;, - 0.930093; 0.738367;, - 0.932086; 0.743827;, - 0.935328; 0.747687;, - 0.936422; 0.750612;, - 0.937178; 0.754810;, - 0.937620; 0.760193;, - 0.937666; 0.765852;, - 0.990363; 0.496767;, - 0.990343; 0.460818;, - 0.989778; 0.386023;, - 0.985779; 0.253277;, - 0.983562; 0.221196;, - 0.989077; 0.071395;, - 0.994136; 0.123507;, - 0.949783; 0.138440;, - 0.650758; 0.070384;, - 0.515621; 0.061627;, - 0.480305; 0.785714;, - 0.480305; 0.857143;, - 0.553039; 0.857143;, - 0.553039; 0.785714;, - 0.619803; 0.357143;, - 0.766693; 0.357143;, - 0.766693; 0.285714;, - 0.619803; 0.285714;, - 0.012560; 0.470342;, - 1.006758; 0.465025;, - 1.006036; 0.483226;, - 0.010805; 0.486771;, - 0.015843; 0.620618;, - 0.017006; 0.663310;, - 0.014037; 0.663015;, - 0.013073; 0.620144;, - 0.012662; 0.577657;, - 0.012711; 0.537676;, - 0.015406; 0.538472;, - 0.015346; 0.578297;, - 0.433869; 0.500000;, - 0.433869; 0.428571;, - 0.379312; 0.428571;, - 0.379312; 0.500000;, - 0.583333; 0.667848;, - 0.583333; 0.584017;, - 0.625000; 0.584017;, - 0.625000; 0.667848;, - 0.998425; 0.479888;, - 1.006036; 0.483226;, - 1.006758; 0.465025;, - 0.996716; 0.460179;, - 0.419019; 0.183974;, - 0.377180; 0.128995;, - 0.083508; 0.169579;, - 0.051790; 0.155655;, - 0.450537; 0.171586;, - 0.957018; 0.274260;, - 0.938670; 0.295481;, - 0.788677; 0.165215;, - 0.732678; 0.106277;, - 0.919886; 0.164740;, - 0.261963; 0.729043;, - 0.259261; 0.724509;, - 0.249990; 0.724775;, - 0.247122; 0.729464;, - 0.249990; 0.732705;, - 0.258999; 0.732452;, - 0.247888; 0.663516;, - 0.242228; 0.665873;, - 0.241485; 0.674022;, - 0.247577; 0.671635;, - 0.909102; 0.586991;, - 0.898321; 0.610368;, - 0.901824; 0.590623;, - 0.903261; 0.569920;, - 0.903240; 0.562539;, - 0.902542; 0.555776;, - 0.899200; 0.539031;, - 0.897547; 0.534772;, - 0.890841; 0.528839;, - 0.883255; 0.532947;, - 0.874463; 0.547331;, - 0.871528; 0.556007;, - 0.867983; 0.573531;, - 0.865871; 0.602986;, - 0.866359; 0.611745;, - 0.858971; 0.610684;, - 0.830869; 0.585301;, - 0.779092; 0.561578;, - 0.701592; 0.590193;, - 0.752156; 0.180040;, - 0.788677; 0.165215;, - 0.938670; 0.295481;, - 0.950998; 0.414133;, - 0.938810; 0.600847;, - 0.921904; 0.579861;, - 0.270833; 0.166667;, - 0.250000; 0.166667;, - 0.250000; 0.125000;, - 0.270833; 0.125000;, - 0.270833; 0.083333;, - 0.250000; 0.083333;, - 0.250000; 0.041667;, - 0.263889; 0.055556;, - 0.291667; 0.041667;, - 0.305556; 0.055556;, - 0.333333; 0.041667;, - 0.333333; 0.083333;, - 0.166667; 0.083333;, - 0.166667; 0.041667;, - 0.180556; 0.055556;, - 0.208333; 0.041667;, - 0.222222; 0.055556;, - 0.250000; 0.041667;, - 0.250000; 0.083333;, - 0.270833; 0.083333;, - 0.270833; 0.125000;, - 0.250000; 0.125000;, - 0.250000; 0.166667;, - 0.229167; 0.166667;, - 0.187500; 0.166667;, - 0.488996; 0.420105;, - 0.494978; 0.420404;, - 0.495421; 0.471887;, - 0.495686; 0.520098;, - 0.490542; 0.519639;, - 0.015406; 0.538472;, - 0.012711; 0.537676;, - 0.013190; 0.496435;, - 0.017531; 0.353719;, - 0.021215; 0.355379;, - 0.015985; 0.497405;; - } //End of Cube_000 UV Coordinates - } //End of Cube_000 Mesh - } //End of Cube -} //End of Root Frame diff --git a/programs/samples/open_gl/simple_example.bas b/programs/samples/open_gl/simple_example.bas deleted file mode 100644 index 0efed31de..000000000 --- a/programs/samples/open_gl/simple_example.bas +++ /dev/null @@ -1,147 +0,0 @@ -CHDIR "programs\samples\open_gl" - -DIM SHARED AllowSubGL 'we'll set this after we finish our setup immediately below, just in case -'there is anything here (there isn't currently though) that SUB _GL will depend on - -TYPE DONT_USE_GLH_Handle_TYPE - in_use AS _BYTE - handle AS LONG -END TYPE -REDIM SHARED DONT_USE_GLH_Handle(1000) AS DONT_USE_GLH_Handle_TYPE - - -SCREEN _NEWIMAGE(1024, 768, 32) - - - -backdrop = _LOADIMAGE("xcom_backdrop.jpg") -_PUTIMAGE , backdrop -_FREEIMAGE backdrop - -_DONTBLEND -LINE (200, 200)-(500, 500), _RGBA(0, 255, 255, 0), BF 'create a see-through window (press 1) -_BLEND - -AllowSubGL = 1 - -DO - 'This is our program's main loop - _LIMIT 100 - LOCATE 1, 1 - c = c + 1: PRINT "Mainloop has done nothing"; c; "times" - PRINT "Press 1[GL behind], 2[GL on top] or 3[GL only, good for speed] to switch rendering order." - k$ = INKEY$ - IF k$ = "1" THEN _GLRENDER _BEHIND - IF k$ = "2" THEN _GLRENDER _ONTOP - IF k$ = "3" THEN _GLRENDER _ONLY -LOOP UNTIL k$ = CHR$(27) -END - -'this specially named sub "_GL" is detected by QB64 and adds support for OpenGL commands -'it is called automatically whenever the underlying software deems an update is possible -'usually/ideally, this is in sync with your monitor's refresh rate -SUB _GL STATIC -'STATIC was used above to make all variables in this sub maintain their values between calls to this sub - -IF AllowSubGL = 0 THEN EXIT SUB 'we aren't ready yet! - -'timing is everything, we don't know how fast the 3D renderer will call this sub to we use timers to smooth things out -T# = TIMER(0.001) -IF ETT# = 0 THEN ETT# = T# -ET# = T# - ETT# -ETT# = T# - -IF sub_gl_called = 0 THEN - sub_gl_called = 1 'we only need to perform the following code once - i = _LOADIMAGE("xcom256.png", 32) - mytex = GLH_Image_to_Texture(i) 'this helper function converts the image to a texture - _FREEIMAGE i -END IF - -'These settings affect how OpenGL will render our content -'!!! THESE SETTINGS ARE TO SHOW HOW ALPHA CAN WORK, BUT IT IS 10x FASTER WHEN ALPHA OPTIONS ARE DISABLED !!! -'*** every setting must be reset because SUB _GL cannot guarantee settings have not changed since last time *** -_glMatrixMode _GL_PROJECTION 'Select The Projection Matrix -_glLoadIdentity 'Reset The Projection Matrix -_gluPerspective 45, _WIDTH(0) / _HEIGHT(0), 1, 100 'QB64 internally supports this GLU command for convenience sake, but does not support GLU -_glEnable _GL_TEXTURE_2D -_glEnable _GL_BLEND -_glBlendFunc _GL_SRC_ALPHA, _GL_ONE_MINUS_SRC_ALPHA 'how alpha values are interpretted -_glEnable _GL_DEPTH_TEST 'use the zbuffer -_glDepthMask _GL_TRUE -_glAlphaFunc _GL_GREATER, 0.5 'dont do anything if alpha isn't greater than 0.5 (or 128) -_glEnable _GL_ALPHA_TEST -_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR -_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR -'************************************************************************************************************** - - -GLH_Select_Texture mytex - -_glMatrixMode _GL_MODELVIEW 'Select The Modelview Matrix -_glLoadIdentity 'Reset The Modelview Matrix -_glTranslatef 0, 0, -10 'Translate Into The Screen - -_glRotatef rotation1, 0, 1, 0 'spin, spin, spin... -_glRotatef rotation2, 1, 0, 0 - -_glBegin _GL_QUADS 'we will be drawing rectangles aka. QUADs -_glTexCoord2f 0, 0: _glVertex3f 0, 0, 4 'the texture position and the position in 3D space of a vertex -_glTexCoord2f 1, 0: _glVertex3f 5, 0, 4 -_glTexCoord2f 1, 1: _glVertex3f 5, -5, 4 -_glTexCoord2f 0, 1: _glVertex3f 0, -5, 4 -_glEnd - -RANDOMIZE USING 1 'generate the same set of random numbers each time -_glBegin _GL_TRIANGLES 'the png (almost) only consumes a triangular region of its rectangle -FOR t = 1 TO 10 - _glTexCoord2f 0, 0: _glVertex3f RND * 6 - 3, RND * 6 - 3, RND * 6 - 3 - _glTexCoord2f 1, 0: _glVertex3f RND * 6 - 3, RND * 6 - 3, RND * 6 - 3 - _glTexCoord2f 0.5, 1: _glVertex3f RND * 6 - 3, RND * 6 - 3, RND * 6 - 3 -NEXT -_glEnd - -rotation1 = rotation1 + 100 * ET# -rotation2 = rotation2 + 200 * ET# - -END SUB - - - -'QB64 OPEN-GL HELPER MACROS (aka. GLH macros) - -SUB GLH_Select_Texture (texture_handle AS LONG) 'turn an image handle into a texture handle -IF texture_handle < 1 OR texture_handle > UBOUND(DONT_USE_GLH_HANDLE) THEN ERROR 258: EXIT FUNCTION -IF DONT_USE_GLH_Handle(texture_handle).in_use = 0 THEN ERROR 258: EXIT FUNCTION -_glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(texture_handle).handle -END SUB - -FUNCTION GLH_Image_to_Texture (image_handle AS LONG) 'turn an image handle into a texture handle -IF image_handle >= 0 THEN ERROR 258: EXIT FUNCTION 'don't allow screen pages -DIM m AS _MEM -m = _MEMIMAGE(image_handle) -DIM h AS LONG -h = DONT_USE_GLH_New_Texture_Handle -GLH_Image_to_Texture = h -_glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(h).handle -_glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _WIDTH(image_handle), _HEIGHT(image_handle), 0, &H80E1&&, _GL_UNSIGNED_BYTE, m.OFFSET -_MEMFREE m -END FUNCTION - -FUNCTION DONT_USE_GLH_New_Texture_Handle -handle&& = 0 -_glGenTextures 1, _OFFSET(handle&&) -DONT_USE_GLH_New_Texture_Handle = handle&& -FOR h = 1 TO UBOUND(DONT_USE_GLH_Handle) - IF DONT_USE_GLH_Handle(h).in_use = 0 THEN - DONT_USE_GLH_Handle(h).in_use = 1 - DONT_USE_GLH_Handle(h).handle = handle&& - DONT_USE_GLH_New_Texture_Handle = h - EXIT FUNCTION - END IF -NEXT -REDIM _PRESERVE DONT_USE_GLH_Handle(UBOUND(DONT_USE_GLH_HANDLE) * 2) AS DONT_USE_GLH_Handle_TYPE -DONT_USE_GLH_Handle(h).in_use = 1 -DONT_USE_GLH_Handle(h).handle = handle&& -DONT_USE_GLH_New_Texture_Handle = h -END FUNCTION diff --git a/programs/samples/open_gl/xcom256.png b/programs/samples/open_gl/xcom256.png deleted file mode 100644 index 3e8d603cf..000000000 Binary files a/programs/samples/open_gl/xcom256.png and /dev/null differ diff --git a/programs/samples/open_gl/xcom_backdrop.jpg b/programs/samples/open_gl/xcom_backdrop.jpg deleted file mode 100644 index 6c3b46e0e..000000000 Binary files a/programs/samples/open_gl/xcom_backdrop.jpg and /dev/null differ diff --git a/programs/samples/pete/25lines/3dcube25.bas b/programs/samples/pete/25lines/3dcube25.bas deleted file mode 100644 index bed476a7d..000000000 --- a/programs/samples/pete/25lines/3dcube25.bas +++ /dev/null @@ -1,34 +0,0 @@ -'3d cube -'polygon filled using paint. ;*) -'I could probably shorten the code in less than 20 lines but -'I'd rather make another 25 liner. ;*) -'Relsoft 2003 - -1 IF C& = 0 THEN SCREEN 9, , 1, 0 ELSE DIM CubeM!(8, 7), CubeV(12, 2) -2 FOR V = 1 TO 8 + 12 -3 IF V < 9 THEN READ CubeM!(V, 0), CubeM!(V, 1), CubeM!(V, 2) ELSE READ CubeV(V - 8, 0), CubeV(V - 8, 1), CubeV(V - 8, 2) -4 NEXT V -5 DO -6 ax! = (ax! + .01) * -(ax! < 6.283186) -7 ay! = (ay! + .01) * -(ay! < 6.283186) -8 az! = (az! + .01) * -(az! < 6.283186) -9 FOR I = 1 TO 8 -10 CubeM!(I, 6) = (256 * ((CubeM!(I, 0) * (COS(ay!) * COS(az!)) + CubeM!(I, 1) * (COS(ax!) * -SIN(az!) + SIN(ax!) * SIN(ay!) * COS(az!)) + CubeM!(I, 2) * (-SIN(ax!) * -SIN(az!) + COS(ax!) * SIN(ay!) * COS(az!)))) \ (256 - ((CubeM!(I, 0) * ( _ --SIN(ay!)) + CubeM!(I, 1) * (SIN(ax!) * COS(ay!)) + CubeM!(I, 2) * (COS(ax!) * COS(ay!)))))) + 320 -11 CubeM!(I, 7) = -(256 * ((CubeM!(I, 0) * (COS(ay!) * SIN(az!)) + CubeM!(I, 1) * (COS(ax!) * COS(az!) + SIN(ax!) * SIN(ay!) * SIN(az!)) + CubeM!(I, 2) * (-SIN(ax!) * COS(az!) + COS(az!) * SIN(ay!) * SIN(az!)))) \ (256 - ((CubeM!(I, 0) * (- _ -SIN(ay!)) + CubeM!(I, 1) * (SIN(ax!) * COS(ay!)) + CubeM!(I, 2) * (COS(ax!) * COS(ay!)))))) + 175 -12 NEXT I -13 LINE (0, 0)-(639, 350), 0, BF -14 FOR I = 1 TO 12 -15 IF (CubeM!(CubeV(I, 2), 6) - CubeM!(CubeV(I, 0), 6)) * (CubeM!(CubeV(I, 1), 7) - CubeM!(CubeV(I, 0), 7)) - (CubeM!(CubeV(I, 1), 6) - CubeM!(CubeV(I, 0), 6)) * (CubeM!(CubeV(I, 2), 7) - CubeM!(CubeV(I, 0), 7)) < -256 THEN -16 LINE (CubeM!(CubeV(I, 0), 6), CubeM!(CubeV(I, 0), 7))-(CubeM!(CubeV(I, 1), 6), CubeM!(CubeV(I, 1), 7)), I + 2 -17 LINE (CubeM!(CubeV(I, 1), 6), CubeM!(CubeV(I, 1), 7))-(CubeM!(CubeV(I, 2), 6), CubeM!(CubeV(I, 2), 7)), I + 2 -18 LINE (CubeM!(CubeV(I, 2), 6), CubeM!(CubeV(I, 2), 7))-(CubeM!(CubeV(I, 0), 6), CubeM!(CubeV(I, 0), 7)), I + 2 -19 PAINT ((CubeM!(CubeV(I, 0), 6) + CubeM!(CubeV(I, 1), 6) + CubeM!(CubeV(I, 2), 6)) \ 3, (CubeM!(CubeV(I, 0), 7) + CubeM!(CubeV(I, 1), 7) + CubeM!(CubeV(I, 2), 7)) \ 3), I + 2 -20 END IF -21 NEXT I -22 PCOPY 1, 0 -23 LOOP UNTIL INKEY$ <> "" -DATA -80,-80,-80,80,-80,-80,80, 80,-80,-80, 80,-80,-80,-80, 80,80,-80, 80,80, 80, 80, -80, 80, 80 -DATA 5,1,8,1,4,8,6,5,7,5,8,7,2,6,3,6,7,3,1,2,4,2,3,4,4,3,8,3,7,8,5,6,1,6,2,1 - diff --git a/programs/samples/pete/25lines/npplasma.bas b/programs/samples/pete/25lines/npplasma.bas deleted file mode 100644 index 93c375650..000000000 --- a/programs/samples/pete/25lines/npplasma.bas +++ /dev/null @@ -1,30 +0,0 @@ -'///Non Palette rotated plasma -'///Relsoft 2003 -'///Compile and see the speed. Didn't optimize it as much as I want though... - -1 SCREEN 13 -2 DIM Lsin1%(-1024 TO 1024), Lsin2%(-1024 TO 1024), Lsin3%(-1024 TO 1024) -3 FOR I% = -1024 TO 1024 -4 Lsin1%(I%) = SIN(I% / (128)) * 256 'Play with these values -5 Lsin2%(I%) = SIN(I% / (64)) * 128 'for different types of fx -6 Lsin3%(I%) = SIN(I% / (32)) * 64 ';*) -7 IF I% > -1 AND I% < 256 THEN PALETTE I%, 65536 * (INT(32 - 31 * SIN(I% * 3.14151693# / 128))) + 256 * (INT(32 - 31 * SIN(I% * 3.14151693# / 64))) + (INT(32 - 31 * SIN(I% * 3.14151693# / 32))) -8 NEXT I% -9 DEF SEG = &HA000 -10 Dir% = 1 -11 DO -12 Counter& = (Counter& + Dir%) -13 IF Counter& > 600 THEN Dir% = -Dir% -14 IF Counter& < -600 THEN Dir% = -Dir% -15 Rot% = 64 * (((Counter& AND 1) = 1) OR 1) -16 StartOff& = 0 -17 FOR y% = 0 TO 199 -18 FOR x% = 0 TO 318 -19 Rot% = -Rot% -20 C% = Lsin3%(x% + Rot% - Counter&) + Lsin1%(x% + Rot% + Counter&) + Lsin2%(y% + Rot%) -21 POKE StartOff& + x%, C% -22 NEXT x% -23 StartOff& = StartOff& + 320 -24 NEXT y% -25 LOOP UNTIL INKEY$ <> "" - diff --git a/programs/samples/pete/25lines/starfild.bas b/programs/samples/pete/25lines/starfild.bas deleted file mode 100644 index 3af19694f..000000000 --- a/programs/samples/pete/25lines/starfild.bas +++ /dev/null @@ -1,29 +0,0 @@ -'This is my starfield entry hacked down to 25 lines -'It needs a pretty fast computer...looks OK on my 1.5 GHz -'JKC 2003 - -1 TYPE star - x AS INTEGER - y AS INTEGER - z AS INTEGER - END TYPE -6 DIM astar(0 TO 300) AS star -7 DIM oldstar(0 TO 300) AS star -8 FOR i = 0 TO 300 -9 astar(i).x = RND * 640 -10 astar(i).y = RND * 480 -11 astar(i).z = RND * 300 -12 NEXT i -13 SCREEN 11 -14 DO -15 FOR i = 0 TO 300 -16 IF astar(i).z < 1 THEN astar(i).z = 300 ELSE astar(i).z = astar(i).z - 1 -17 FOR p% = 0 TO oldstar(i).z -18 CIRCLE (oldstar(i).x, oldstar(i).y), p%, 0 -19 IF astar(i).z <> 300 THEN CIRCLE (INT(2 * astar(i).z + astar(i).x / (1 + astar(i).z / 30)), INT(astar(i).z + astar(i).y / (1 + astar(i).z / 30))), p% -20 NEXT p% -21 oldstar(i).x = INT(2 * astar(i).z + astar(i).x / (1 + astar(i).z / 30)) -22 oldstar(i).y = INT(astar(i).z + astar(i).y / (1 + astar(i).z / 30)) -23 oldstar(i).z = 5 / (1 + astar(i).z / 20) -24 NEXT i -25 LOOP UNTIL INKEY$ <> "" \ No newline at end of file diff --git a/programs/samples/pete/alyman.bas b/programs/samples/pete/alyman.bas deleted file mode 100644 index 5c47345f7..000000000 --- a/programs/samples/pete/alyman.bas +++ /dev/null @@ -1,424 +0,0 @@ -DECLARE SUB endDemo () -DECLARE SUB intro () -DECLARE SUB howToPlay () -DECLARE SUB level2 () -DECLARE FUNCTION rand! (c!) -DECLARE SUB level1 () -DIM SHARED heart(10) -DIM SHARED missile(4) -COMMON SHARED L$, r$, u$, d$ -locked = 1 -CALL intro -COLOR 3, 0 -CLS -LOCATE 18, 30 -PRINT "KEY CONFIGURATION..." -LOCATE 24, 18 -PRINT "Enter the key that you want to move LEFT with..." -DO -L$ = INKEY$ -LOOP UNTIL L$ <> "" -CLS -LOCATE 18, 30 -PRINT "KEY CONFIGURATION..." -LOCATE 24, 18 -PRINT "Enter the key that you want to move RIGHT with..." -DO -r$ = INKEY$ -LOOP UNTIL r$ <> "" -CLS -LOCATE 18, 30 -PRINT "KEY CONFIGURATION..." -LOCATE 24, 18 -PRINT "Enter the key that you want to move UP with..." -DO -u$ = INKEY$ -LOOP UNTIL u$ <> "" -CLS -LOCATE 18, 30 -PRINT "KEY CONFIGURATION..." -LOCATE 24, 18 -PRINT "Enter the key that you want to move DOWN with..." -DO -d$ = INKEY$ -LOOP UNTIL d$ <> "" -CALL level1 - -SUB endDemo -COLOR 3, 0 -CLS -LOCATE 20, 20 -PRINT "WELL DONE, YOU HAVE COMPLETED LEVEL ONE OF ALYMAN...." -LOCATE 22, 20 -PRINT "Level One is the only level available on the demo, so" -LOCATE 23, 20 -PRINT "remember to wait for the full game to be completed on" -LOCATE 24, 20 -PRINT "Sunday 24th July 2005 for four additional levels, each" -LOCATE 25, 20 -PRINT "one more difficult than the last..." -PLAY "o3l16ef+g+al8b" -DO -LOOP UNTIL INKEY$ = CHR$(13) -END -END SUB - -SUB howToPlay -COLOR 3, 0 -CLS -PRINT "HOW TO PLAY..." -PRINT -PRINT -PRINT "Dr. Evil and his troublesome followers plan to blow up the" -PRINT "world! You, ALYMAN, must put an end to his terrifying plans" -PRINT "and save the earth from destruction!" -PRINT -PRINT "To do so, you must demobilize the bomb at the end of each" -PRINT "level. To demobilize the bomb, it is vital that you collect" -PRINT "all ten hearts on your way. If you fail to collect just one" -PRINT "one of the hearts, then you will not be able to complete" -PRINT "the level. In order to open doors, you must hit a" -PRINT "corrosponding switch." -PRINT -PRINT "On your way through each level, there are a number of" -PRINT "enemies, weapons, traps and lasers which will kill ALYMAN" -PRINT "with just one blow, so be very careful!" -PRINT -PRINT "Each bomb will not wait forever to explode! In fact, you" -PRINT "must demobilize the bomb on each level within 40 seconds" -PRINT "before it detonates." -PRINT -PRINT "Before beginning the game, you will be asked to select" -PRINT "a custom key configuration (a key to move left, a key" -PRINT "to move right, a key to move up and a key to move down)." -PRINT "It is advised that you use the keypad direction keys," -PRINT "although the selection your choice." -PRINT -PRINT "Good luck!" -PRINT -PRINT -PRINT "Press RETURN to continue..." -DO -LOOP UNTIL INKEY$ = CHR$(13) -COLOR 3, 0 -CLS -END SUB - -SUB intro -COLOR 3, 0 -CLS -DO -LOCATE 14, 34 -COLOR rand(15), 0 -PRINT "ALYMAN" -COLOR 3, 0 -LOCATE 16, 30 -PRINT "(Demo Version)" -LOCATE 18, 18 -PRINT "Full Game due for completion on 24th July 2005" -COLOR 3, 1 -LOCATE 30, 28 -PRINT "1 - HOW TO PLAY " -LOCATE 32, 28 -PRINT "2 - PLAY DEMO NOW" -FOR t = 1 TO 50 -NEXT t -SELECT CASE INKEY$ -CASE IS = "1" -CALL howToPlay -CASE IS = "2" -z = 1 -END SELECT -LOOP UNTIL z = 1 -END SUB - -SUB level1 -60 FOR i = 1 TO 10 -heart(i) = 0 -NEXT i -hearts = 0 -a = 2 -b = 4 -c = 14 -d = 76 -laser = 0 -ends = 0 -missile = -1 -locked = 1 -CLS -COLOR 3, 0 -LOCATE 22, 36 -PRINT "LEVEL ONE" -LOCATE 24, 27 -PRINT "Press RETURN to begin level..." -DO -LOOP UNTIL INKEY$ = CHR$(13) - -COLOR 7, 0 -CLS -t = TIMER -u = TIMER -v = TIMER -100 DO -times = times + 1 -SELECT CASE TIMER - u -CASE IS >= .01 -missile = missile - 1 -IF missile = -6 THEN missile = 44 -u = TIMER -CLS -END SELECT - -SELECT CASE TIMER - v -CASE IS >= 3 -IF laser = 1 THEN laser = 0 ELSE laser = 1 -v = TIMER -END SELECT - -COLOR 4, 0 -LOCATE 34, 1 -PRINT CHR$(16) -LOCATE 34, 44 -PRINT CHR$(17) -SELECT CASE laser -CASE IS = 1 -FOR i = 2 TO 43 -LOCATE 34, i -PRINT CHR$(196) -NEXT i -END SELECT - -ttt = tt -tt = INT(40 - (TIMER - t)) -IF tt < 11 AND tt < ttt THEN PLAY "o4l8d-" -LOCATE 1, 1 -COLOR 14, 0 -PRINT tt -LOCATE 1, 10 -COLOR 13, 0 -PRINT CHR$(3); hearts - -COLOR 3, 0 -LOCATE a, b -PRINT CHR$(2) -LOCATE a + 1, b - 1 -PRINT "/"; CHR$(179); "\" -LOCATE a + 2, b -PRINT CHR$(234) - -COLOR 4, 0 -LOCATE c, d -PRINT CHR$(1) -LOCATE c + 1, d - 1 -PRINT "/"; CHR$(179); "\" -LOCATE c + 2, d -PRINT CHR$(234) - - -LOCATE 8, 44 -COLOR 6, 0 -PRINT CHR$(17) -IF missile < 1 THEN GOTO 70 -LOCATE 8, missile -COLOR 0, 6 -PRINT CHR$(8) -70 IF a > 5 AND a < 9 AND b = missile THEN GOTO 80 - - -COLOR 13, 0 -LOCATE 5, 68 -IF heart(1) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 9, 14 -IF heart(2) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 11, 75 -IF heart(3) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 22, 57 -IF heart(4) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 29, 39 -IF heart(5) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 33, 74 -IF heart(6) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 36, 75 -IF heart(7) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 37, 9 -IF heart(8) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 41, 20 -IF heart(9) = 1 THEN PRINT "" ELSE PRINT CHR$(3) -LOCATE 44, 17 -IF heart(10) = 1 THEN PRINT "" ELSE PRINT CHR$(3) - -IF a > 2 AND a < 6 AND b = 68 THEN heart(1) = 1 -IF a > 6 AND a < 10 AND b = 14 THEN heart(2) = 1 -IF a > 8 AND a < 12 AND b = 75 THEN heart(3) = 1 -IF a > 19 AND a < 23 AND b = 57 THEN heart(4) = 1 -IF a > 26 AND a < 30 AND b = 39 THEN heart(5) = 1 -IF a > 30 AND a < 34 AND b = 74 THEN heart(6) = 1 -IF a > 33 AND a < 37 AND b = 75 THEN heart(7) = 1 -IF a > 34 AND a < 38 AND b = 9 THEN heart(8) = 1 -IF a > 38 AND a < 42 AND b = 20 THEN heart(9) = 1 -IF a > 41 AND a < 45 AND b = 17 THEN heart(10) = 1 - -hearts = 0 -FOR i = 1 TO 10 -IF heart(i) = 1 THEN hearts = hearts + 1 -NEXT i - -COLOR 7, 0 -FOR i = 1 TO 48 -IF locked = 1 THEN GOTO 30 -IF i = 17 OR i = 18 OR i = 19 THEN GOTO 10 -30 LOCATE i, 45 -IF i = 17 OR i = 18 OR i = 19 THEN COLOR 4 ELSE COLOR 7 -IF i = 17 OR i = 18 OR i = 19 THEN PRINT CHR$(186) ELSE PRINT CHR$(179) -10 NEXT i - -IF locked = 0 THEN GOTO 40 -LOCATE 43, 7 -COLOR 4, 7 -PRINT CHR$(254) -COLOR 7, 0 -40 IF a > 40 AND a < 44 AND b = 7 THEN locked = 0 -IF b = 76 AND a > 41 AND a < 46 AND hearts = 10 THEN fin = 1 - -LOCATE 44, 76 -COLOR 7, 0 -PRINT CHR$(218) -LOCATE 45, 76 -COLOR 4, 0 -PRINT CHR$(219) - -SELECT CASE ends -CASE IS = 1 -COLOR 0, 0 -FOR t = 1 TO 300 -LOCATE 1, 1 -PRINT " " -NEXT t -GOTO 80 -END SELECT - -IF (c - a) < 3 AND (a - c) < 3 AND b = d THEN ends = 1 -IF (c - a) < 3 AND (a - c) < 3 AND b = d THEN GOTO 100 - -IF laser = 0 OR a < 32 OR a > 34 OR b > 44 THEN GOTO 90 -FOR t = 1 TO 1000000 -NEXT t -ends = 1 -GOTO 100 - -90 SELECT CASE INKEY$ -CASE IS = L$ -b = b - 1 -CLS -CASE IS = r$ -b = b + 1 -CLS -CASE IS = u$ -a = a - 1 -CLS -CASE IS = d$ -a = a + 1 -CLS -END SELECT - -IF b < 45 THEN GOTO 110 - -timenow! = TIMER -IF timenow! <> oldtime! THEN -'chance = rand(130) -chance = CINT(RND * 8) -SELECT CASE chance -CASE IS = 1 -IF a > c THEN c = c + 1 -IF a < c THEN c = c - 1 -CLS -CASE IS = 2 -IF b > d THEN d = d + 1 -IF b < d THEN d = d - 1 -CLS -END SELECT -END IF -oldtime! = timenow! - -110 IF d < 47 THEN d = 47 -IF d > 79 THEN d = 79 -IF c > 46 THEN c = 46 -IF c < 12 THEN c = 12 -IF a < 2 THEN a = 2 -IF a > 46 THEN a = 46 -IF b < 4 THEN b = 4 -IF b > 79 THEN b = 79 -IF a = 17 AND locked = 0 THEN GOTO 20 -IF b = 44 THEN b = 43 -IF b = 46 THEN b = 47 -20 LOOP UNTIL tt <= 0 OR fin = 1 - -SELECT CASE fin -CASE IS = 1 -FOR t = 1 TO 30000 -NEXT t -CALL endDemo -END SELECT - -80 SELECT CASE tt -CASE IS <= 0 -FOR i = 1 TO 48 -FOR j = 1 TO 80 -COLOR 14, 0 -LOCATE i, j -PRINT CHR$(176) -NEXT j -NEXT i -SOUND 40, 5 -SOUND 45, 5 -SOUND 50, 5 -SOUND 55, 5 -SOUND 50, 5 -SOUND 45, 5 -SOUND 40, 5 -FOR t = 1 TO 10000 -NEXT t -COLOR 3, 0 -CLS -LOCATE 22, 34 -PRINT "GAME OVER" -LOCATE 24, 27 -PRINT "Try this level again? (y/n)" -50 SELECT CASE INKEY$ -CASE IS = "y" -GOTO 60 -CASE IS = "Y" -GOTO 60 -CASE IS = "n" -END -CASE IS = "N" -END -CASE ELSE -GOTO 50 -END SELECT -CASE ELSE -COLOR 3, 0 -CLS -LOCATE 22, 34 -PRINT "GAME OVER" -LOCATE 24, 27 -PRINT "Try this level again? (y/n)" -SELECT CASE INKEY$ -CASE IS = "y" -GOTO 60 -CASE IS = "Y" -GOTO 60 -CASE IS = "n" -END -CASE IS = "N" -END -CASE ELSE -GOTO 50 -END SELECT -END SELECT -END SUB - -FUNCTION rand (c) -RANDOMIZE TIMER -rand = INT(c * RND(1)) + 1 -END FUNCTION diff --git a/programs/samples/pete/asciiconversion.bas b/programs/samples/pete/asciiconversion.bas deleted file mode 100644 index 57d08809d..000000000 --- a/programs/samples/pete/asciiconversion.bas +++ /dev/null @@ -1,44 +0,0 @@ -CLS -'Start of Declarations -DIM num AS INTEGER -DIM code AS STRING -DIM code1 AS INTEGER -DIM num1 AS STRING -'End of Declarations - -start: - -PRINT "ASCII code ----> ASCII Character & ASCII Character ----> ASCII Code Converter" -PRINT -PRINT "1) ASCII code ----> ASCII Character" -PRINT -PRINT "2) ASCII Character ----> ASCII code" -PRINT -INPUT "Enter your choice"; selection - -SELECT CASE selection - - CASE 1 - CLS - PRINT "ASCII code ----> ASCII Character" - PRINT - INPUT "Enter ASCII code"; num - PRINT - code = CHR$(num) - PRINT "The ASCII Character is:"; code - - CASE 2 - CLS - PRINT "ASCII Character ----> ASCII Code Converter" - PRINT - INPUT "Enter ASCII Character"; num1 - PRINT - code1 = ASC(num1) - PRINT "The ASCII Code is:"; code1 - -CASE ELSE - -PRINT "Invalid Selection" -GOTO start -END SELECT - diff --git a/programs/samples/pete/averager.bas b/programs/samples/pete/averager.bas deleted file mode 100644 index ffa05d592..000000000 --- a/programs/samples/pete/averager.bas +++ /dev/null @@ -1,10 +0,0 @@ -DO -50 REM THIS PROGAM INPUTS QUIZ SCORES AND FINDS THE AVERAGE SCORE -60 PRINT "LISTING OF STUDENT NAMES AND QUIZ SCORES" -100 INPUT "ENTER NAME AND SCORES: "; STUDENT$, SCORE1, SCORE2, SCORE3, SCORE4, SCORE5 -200 PRINT "STUDENTS NAME: "; STUDENT$ -300 PRINT "STUDENT'S SCORES: "; SCORE1; SCORE2; SCORE3; SCORE4; SCORE5 -400 AVERAGE = (SCORE1 + SCORE2 + SCORE3 + SCORE4 + SCORE5) / 5'FIND THE AVERAGE SCORE -500 PRINT "STUDENT'S AVERAGE SCORE IS: "; AVERAGE -LOOP UNTIL INKEY$ = "w" - diff --git a/programs/samples/pete/battleship.bas b/programs/samples/pete/battleship.bas deleted file mode 100644 index 77170aa9e..000000000 --- a/programs/samples/pete/battleship.bas +++ /dev/null @@ -1,238 +0,0 @@ -RANDOMIZE TIMER -DIM playerbd(0 TO 9, 0 TO 9) AS STRING -DIM compbd(0 TO 9, 0 TO 9) AS STRING -DIM comphits(0 TO 9, 0 TO 9) AS STRING -PRINT "Co-ordinates range from 0 to 9" -PRINT "* represents part of ship" -PRINT "+ represents hit part of ship." -PRINT "------------------------------" -PRINT "PLACE SHIP [LENGTH 2]" -INPUT "X CO-ORDINATE [0-9]:", x -INPUT "Y CO-ORDINATE [0-9]:", y -INPUT "DIRECTION [N,S,E,W]:", DIRECTION$ -playerbd(x, y) = "*" -IF LCASE$(DIRECTION$) = "w" THEN -playerbd(x - 1, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "e" THEN -playerbd(x + 1, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "s" THEN -playerbd(x, y + 1) = "*" -END IF -IF LCASE$(DIRECTION$) = "n" THEN -playerbd(x, y - 1) = "*" -END IF -PRINT "PLACE SHIP [LENGTH 3]" -INPUT "X CO-ORDINATE [0-9]:", x -INPUT "Y CO-ORDINATE [0-9]:", y -INPUT "DIRECTION [N,S,E,W]:", DIRECTION$ -playerbd(x, y) = "*" -IF LCASE$(DIRECTION$) = "w" THEN -playerbd(x - 1, y) = "*" -playerbd(x - 2, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "e" THEN -playerbd(x + 1, y) = "*" -playerbd(x + 2, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "s" THEN -playerbd(x, y + 1) = "*" -playerbd(x, y + 2) = "*" -END IF -IF LCASE$(DIRECTION$) = "n" THEN -playerbd(x, y - 1) = "*" -playerbd(x, y - 2) = "*" -END IF -PRINT "PLACE SHIP [LENGTH 3]" -INPUT "X CO-ORDINATE [0-9]:", x -INPUT "Y CO-ORDINATE [0-9]:", y -INPUT "DIRECTION [N,S,E,W]:", DIRECTION$ -playerbd(x, y) = "*" -IF LCASE$(DIRECTION$) = "w" THEN -playerbd(x - 1, y) = "*" -playerbd(x - 2, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "e" THEN -playerbd(x + 1, y) = "*" -playerbd(x + 2, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "s" THEN -playerbd(x, y + 1) = "*" -playerbd(x, y + 2) = "*" -END IF -IF LCASE$(DIRECTION$) = "n" THEN -playerbd(x, y - 1) = "*" -playerbd(x, y - 2) = "*" -END IF -PRINT "PLACE SHIP [LENGTH 4]" -INPUT "X CO-ORDINATE [0-9]:", x -INPUT "Y CO-ORDINATE [0-9]:", y -INPUT "DIRECTION [N,S,E,W]:", DIRECTION$ -playerbd(x, y) = "*" -IF LCASE$(DIRECTION$) = "W" THEN -playerbd(x - 1, y) = "*" -playerbd(x - 2, y) = "*" -playerbd(x - 3, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "E" THEN -playerbd(x + 1, y) = "*" -playerbd(x + 2, y) = "*" -playerbd(x + 3, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "S" THEN -playerbd(x, y + 1) = "*" -playerbd(x, y + 2) = "*" -playerbd(x, y + 3) = "*" -END IF -IF LCASE$(DIRECTION$) = "N" THEN -playerbd(x, y - 1) = "*" -playerbd(x, y - 2) = "*" -playerbd(x, y - 3) = "*" -END IF -PRINT "PLACE SHIP [LENGTH 5]" -INPUT "X CO-ORDINATE [0-9]:", x -INPUT "Y CO-ORDINATE [0-9]:", y -INPUT "DIRECTION [N,S,E,W]:", DIRECTION$ -playerbd(x, y) = "*" -IF LCASE$(DIRECTION$) = "w" THEN -playerbd(x - 1, y) = "*" -playerbd(x - 2, y) = "*" -playerbd(x - 3, y) = "*" -playerbd(x - 4, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "e" THEN -playerbd(x + 1, y) = "*" -playerbd(x + 2, y) = "*" -playerbd(x + 3, y) = "*" -playerbd(x + 4, y) = "*" -END IF -IF LCASE$(DIRECTION$) = "s" THEN -playerbd(x, y + 1) = "*" -playerbd(x, y + 2) = "*" -playerbd(x, y + 3) = "*" -playerbd(x, y + 4) = "*" -END IF -IF LCASE$(DIRECTION$) = "n" THEN -playerbd(x, y - 1) = "*" -playerbd(x, y - 2) = "*" -playerbd(x, y - 3) = "*" -playerbd(x, y - 4) = "*" -END IF -a = INT(RND(1) * 10) -b = INT(RND(1) * 10) -FOR c = 1 TO 4 -compbd(a, b) = "*" -DO -x = INT(RND(1) * 4) -IF x = 0 AND a - c >= 0 THEN -FOR d = 1 TO c -compbd(a - c, b) = "*" -NEXT -EXIT DO -END IF -IF x = 1 AND a + c <= 9 THEN -FOR d = 1 TO c -compbd(a + c, b) = "*" -NEXT -EXIT DO -END IF -IF x = 2 AND b - c >= 0 THEN -FOR d = 1 TO c -compbd(a, b - c) = "*" -NEXT -EXIT DO -END IF -IF x = 3 AND b + c <= 9 THEN -FOR d = 1 TO c -compbd(a, b + c) = "*" -NEXT -EXIT DO -END IF -LOOP -NEXT -c = 2 -compbd(a, b) = "*" -DO -x = INT(RND(1) * 4) -IF x = 0 AND a - c >= 0 THEN -FOR d = 1 TO c -compbd(a - c, b) = "*" -NEXT -EXIT DO -END IF -IF x = 1 AND a + c <= 9 THEN -FOR d = 1 TO c -compbd(a + c, b) = "*" -NEXT -EXIT DO -END IF -IF x = 2 AND b - c >= 0 THEN -FOR d = 1 TO c -compbd(a, b - c) = "*" -NEXT -EXIT DO -END IF -IF x = 3 AND b + c <= 9 THEN -FOR d = 1 TO c -compbd(a, b + c) = "*" -NEXT -EXIT DO -END IF -LOOP -DO -PRINT " 0123456789" -FOR a = 0 TO 9 -PRINT a; -FOR b = 0 TO 9 -IF b < 9 AND playerbd(b, a) = "*" THEN PRINT "*"; -IF b < 9 AND playerbd(b, a) = "+" THEN PRINT "+"; -IF b < 9 AND playerbd(b, a) = "" THEN PRINT " "; -IF b = 9 AND playerbd(b, a) = "*" THEN PRINT "*" -IF b = 9 AND playerbd(b, a) = "" THEN PRINT " " -IF b = 9 AND playerbd(b, a) = "+" THEN PRINT "+" -NEXT -NEXT -PRINT "-----------" -PRINT " 0123456789" -FOR a = 0 TO 9 -PRINT a, -FOR b = 0 TO 9 -IF b < 9 AND comphits(b, a) = "+" THEN PRINT "+"; -IF b < 9 AND comphits(b, a) = "" THEN PRINT " "; -IF b = 9 AND comphits(b, a) = "" THEN PRINT " " -IF b = 9 AND comphits(b, a) = "+" THEN PRINT "+" -NEXT -NEXT -INPUT "FIRE X CO-ORDINATE [0-9]:", x -INPUT "FIRE Y CO-ORDINATE [0-9]:", y -IF compbd(x, y) = "*" THEN -compbd(x, y) = "+" -comphits(x, y) = "+" -END IF -a = INT(RND(1) * 10) -b = INT(RND(1) * 10) -IF playerbd(a, b) = "*" THEN -playerbd(a, b) = "+" -END IF -countera = 0 -counterb = 0 -FOR a = 0 TO 9 -FOR b = 0 TO 9 -IF compbd(a, b) = "*" THEN countera = countera + 1 -NEXT -NEXT -IF countera = 0 THEN -PRINT "YOU WIN" -EXIT DO -END IF -FOR a = 0 TO 9 -FOR b = 0 TO 9 -IF playerbd(a, b) = "*" THEN counterb = counterb + 1 -NEXT -NEXT -IF counterb = 0 THEN -PRINT "YOU LOSE" -EXIT DO -END IF -LOOP \ No newline at end of file diff --git a/programs/samples/pete/beatdown/bdt.bas b/programs/samples/pete/beatdown/bdt.bas deleted file mode 100644 index a027a8776..000000000 --- a/programs/samples/pete/beatdown/bdt.bas +++ /dev/null @@ -1,523 +0,0 @@ -' +--+ +---- + --+-- +--+ +-+ | | | | -' | + | | | | | + + + | | || | -' | + + + + | | | | | | | | | | -' +--+ +--- +---+ | | | | | | | | | | | -' | + | | | | | | | | | | | | || -' | + | | | | | + + + | | | | || -' +--+ +---- | | | +--+ +-+ +-+-+ | | -' Beat Down -' 1998 MicroTrip -' Version T1.0 Origanally availible on -' -' 12-14-98 -' Made in the U.S.A. -' Visit our Web Site At -' At -' http://www.geocities.com/SiliconValley/Platform/8409/qbasic.html -' E-Mail me at microtrip@geocities.com -' ***Hit `F5' to play!!*** - - - - - -DECLARE SUB title () -title: -CALL title - -COLOR 14 -LOCATE 24, 32: PRINT "Beat Down V1T" - - -FOR i = 1 TO 2 - FOR x = 550 TO 37 STEP -5 - SOUND x + 5, .2 - a$ = INKEY$: IF a$ <> "" THEN LET d = 1: EXIT FOR - NEXT x - IF d = 1 THEN EXIT FOR - FOR x = 37 TO 550 STEP 5 - SOUND x + 5, .2 - a$ = INKEY$: IF a$ <> "" THEN LET d = 1: EXIT FOR - NEXT x - IF d = 1 THEN EXIT FOR -NEXT i - IF d = 1 THEN GOTO you - -'/Title - -'MicroTrip's Title - CLS - FOR i = 1 TO 15 - COLOR i - LOCATE 12, 35: PRINT "MicroTrip" - FOR ii = 1 TO 100000 - NEXT ii - NEXT i -'/MicroTrip's Title - GOSUB intro - IF nn = 0 GOTO you - IF nn = 1 GOTO title - -you: -'Main Menu -snd$ = "on" -speed$ = "normale" -num = 9 -oldnum = 9 -mainmenu: -COLOR 14 -CLS -LINE (50, 45)-(550, 150), 14, B -LOCATE 5, 33: PRINT "Menu Principale" -LINE (60, 55)-(540, 140), 14, B -PAINT (51, 46), 10, 14 -LOCATE 9, 15: PRINT "Comincia il gioco" -LOCATE 10, 15: PRINT "Veiw Controls" '******************* -LOCATE 11, 15: PRINT "Vilocita" -LOCATE 12, 15: PRINT "Suani" -LOCATE 13, 15: PRINT "Crediti" -LOCATE 14, 15: PRINT "Esci" - -LISTEN$ = "mb T180 o2 P2 P8 L8 GGG L2 E-" -FATE$ = "mb P24 P8 L8 FFF L2 D" -PLAY LISTEN$ + FATE$ - -mm2: - LOCATE 11, 24: PRINT " ": LOCATE 11, 24: PRINT speed$ - LOCATE 12, 21: PRINT " ": LOCATE 12, 21: PRINT snd$; "" - IF oldnum <> num THEN LOCATE 14, 13: PRINT " ": LOCATE 9, 13: PRINT " ": LOCATE 10, 13: PRINT " ": LOCATE 11, 13: PRINT " ": LOCATE 12, 13: PRINT " ": LOCATE 13, 13: PRINT " ": oldnum = num - LOCATE num, 13: PRINT "o" - DO - a$ = INKEY$ - LOOP UNTIL a$ <> "" - IF a$ = "" THEN GOTO mm2 - IF a$ = "8" AND num = 9 THEN num = 14: GOTO mm2 - IF a$ = "8" THEN num = num - 1: GOTO mm2 - IF a$ = "2" AND num = 14 THEN num = 9: GOTO mm2 - IF a$ = "2" THEN num = num + 1: GOTO mm2 - IF a$ = "5" AND num = 9 THEN GOTO start - IF a$ = "4" AND num = 12 THEN - IF snd$ = "on" THEN snd$ = "off": GOTO mm2 - IF snd$ = "off" THEN snd$ = "on": GOTO mm2 - END IF - IF a$ = "6" AND num = 12 THEN - IF snd$ = "on" THEN snd$ = "off": GOTO mm2 - IF snd$ = "off" THEN snd$ = "on": GOTO mm2 - END IF - IF a$ = "4" AND num = 11 THEN - IF speed$ = "malto veloce" THEN speed$ = "veloce": GOTO mm2 - IF speed$ = "veloce" THEN speed$ = "normale": GOTO mm2 - IF speed$ = "normale" THEN speed$ = "molto lento": GOTO mm2 - IF speed$ = "molto lento" THEN speed$ = "lento": GOTO mm2 - IF speed$ = "lento" THEN speed$ = "malto veloce": GOTO mm2 - END IF - IF a$ = "6" AND num = 11 THEN - IF speed$ = "malto veloce" THEN speed$ = "malto lento": GOTO mm2 - IF speed$ = "veloce" THEN speed$ = "malto veloce": GOTO mm2 - IF speed$ = "normale" THEN speed$ = "veloce": GOTO mm2 - IF speed$ = "lento" THEN speed$ = "normale": GOTO mm2 - IF speed$ = "malto lento" THEN speed$ = "lento": GOTO mm2 - END IF - IF a$ = "5" AND num = 13 THEN GOTO credits - IF a$ = "5" AND num = 10 THEN GOTO controls - IF a$ = "5" AND num = 14 THEN GOTO 666 - GOTO mm2 - -'***********Credits************** -credits: -CLS -PRINT "Direttore della grafica...........Jacob Suckow" -PRINT " Titoli..........................Jacob Suckow" -PRINT " Menu Principale.................Brian Murphy" -PRINT " Sezione combattimento...........Brian Murphy" -PRINT " Ending..........................Brian Murphy" -PRINT "Direttore della programmazione....Brian Murphy" -PRINT " Motore..........................Brian Murphy" -PRINT " Menu di systema.................Brian Murphy" -PRINT " Altro...........................Brian Murphy" -PRINT "Direttore del suono...............Jeremy Suckow" -PRINT " Immagine della schermata........Brian Murphy" -PRINT " Combattere......................Brian Murphy" -PRINT "Traduzione" -PRINT " Traduzione in italiano..........Marco Motenelli" -PRINT -PRINT " 1998 MicroTrip" -PRINT " Premu un tasto percontinuare..." -WHILE INKEY$ = "": WEND -GOTO mainmenu -'***********/Credits************* - -'***********Controls************* -controls: -CLS -PRINT "Giocatore 1" -PRINT "Sposta a Sinistra...........................................a" -PRINT "Sposta a Destra.............................................s" -PRINT "Pugno.......................................................q" -PRINT "Calcio......................................................w" -PRINT -PRINT "Giocatore 2" -PRINT "Sposta a Sinistra...........................................4" -PRINT "Sposta a Destra.............................................6" -PRINT "Pugno.......................................................8" -PRINT "Calcio......................................................2" -PRINT -PRINT "Premere Esc in ogni momento per uscire dal combattimeno.....Esc" -PRINT -PRINT " Premu un tasto percontinuare..." -WHILE INKEY$ = "": WEND -GOTO mainmenu -'************/Controls************* - -start: -IF speed$ = "malto lento" THEN speed = 100000 -IF speed$ = "lento" THEN speed = 50000 -IF speed$ = "normale" THEN speed = 25000 -IF speed$ = "veloce" THEN speed = 10000 -IF speed$ = "malto veloce" THEN speed = 1000 - -IF snd$ = "on" THEN snd = 1 -IF snd$ = "off" THEN snd = 0 - -CLS -SCREEN 8 -DEFINT A-F -LET a = 20 -LET B = 20 -LET c = 20 -LET d = c -LET e = 600 -LET f = e - -COLOR 15 - -'********Ground******** -LINE (0, 151)-(640, 161), 2, BF -LINE (0, 161)-(640, 171), 10, BF -LINE (0, 171)-(640, 200), 6, BF - -'********/Ground******* - -1 -10 IF a <= 0 THEN GOTO 600 -20 IF B <= 0 THEN GOTO 610 - -30 LINE (c, 110)-(c, 130) 'body - LINE (c, 130)-(c - 20, 150) 'leg - LINE (c, 130)-(c + 20, 150) 'other leg - IF c < e THEN LINE (c, 120)-(c + 15, 110)'arm - IF c > e THEN LINE (c, 120)-(c - 15, 110)'arm other - CIRCLE (c, 105), 10 'head -60 LINE (e, 110)-(e, 130) - LINE (e, 130)-(e - 20, 150) - LINE (e, 130)-(e + 20, 150) - IF e > c THEN LINE (e, 120)-(e - 15, 110) - IF e < c THEN LINE (e, 120)-(e + 15, 110) - CIRCLE (e, 105), 10 - -90 LINE (1, 1)-(a * 5, 7), 14, BF 'Life Bar - LINE ((a * 5) + 1, 1)-(100, 7), 4, BF - - LINE (540, 1)-((B * 5) + 540, 7), 14, BF 'Life Bar P2 - LINE ((B * 5) + 540 + 1, 1)-(640, 7), 4, BF - -130 a$ = INKEY$ -140 IF a$ = "" THEN GOTO 1 -150 IF a$ = "q" THEN GOTO 200 'punch 1 -160 IF a$ = "w" THEN GOTO 210 'kick 1 -170 IF a$ = "a" THEN GOTO 220 'left 1 -175 IF a$ = "s" THEN GOTO 270 'right 1 -180 IF a$ = "4" THEN GOTO 230 'left 2 -185 IF a$ = "6" THEN GOTO 240 'right 2 -190 IF a$ = "8" THEN GOTO 250 'punch 2 -195 IF a$ = "2" THEN GOTO 260 'kick 2 -196 IF a$ = CHR$(27) THEN GOTO 616 -197 GOTO 1 - -200 IF c > e THEN GOTO 205 - LINE (c, 120)-(c + 15, 110), 0 - LINE (c, 120)-(c + 30, 120) - FOR i = 1 TO speed - NEXT i - LINE (c, 120)-(c + 15, 110) - LINE (c, 120)-(c + 30, 120), 0 - GOTO 209 -205 LINE (c, 120)-(c - 30, 120) - LINE (c, 120)-(c - 15, 110), 0 - FOR i = 1 TO speed - NEXT i - LINE (c, 120)-(c - 15, 110) - LINE (c, 120)-(c - 30, 120), 0 - GOTO 209 -209 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - B = B - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - B = B - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - B = B - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - -210 IF c > e THEN GOTO 215 - LINE (c, 130)-(c + 20, 150), 0 - LINE (c, 130)-(c + 30, 130) - FOR i = 1 TO speed - NEXT i - LINE (c, 130)-(c + 20, 150) - LINE (c, 130)-(c + 30, 130), 0 - GOTO 219 -215 LINE (c, 130)-(c - 20, 150), 0 - LINE (c, 130)-(c - 30, 130) - FOR i = 1 TO speed - NEXT i - LINE (c, 130)-(c - 20, 150) - LINE (c, 130)-(c - 30, 130), 0 - GOTO 219 -219 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - B = B - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - B = B - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - B = B - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - -220 IF c < 6 THEN GOTO 1 -221 c = c - 5 -222 LINE (d, 110)-(d, 130), 0 - LINE (d, 130)-(d - 20, 150), 0 - LINE (d, 130)-(d + 20, 150), 0 -223 LINE (d, 120)-(d - 15, 110), 0 - LINE (d, 120)-(d + 15, 110), 0 -224 CIRCLE (d, 105), 10, 0 -225 d = c -226 GOTO 1 - -270 IF c > 595 THEN GOTO 1 -271 c = c + 5 -272 LINE (d, 110)-(d, 130), 0 - LINE (d, 130)-(d - 20, 150), 0 - LINE (d, 130)-(d + 20, 150), 0 -273 CIRCLE (d, 105), 10, 0 -274 LINE (d, 120)-(d - 15, 110), 0 - LINE (d, 120)-(d + 15, 110), 0 -275 d = c -276 GOTO 1 - -230 IF e < 5 THEN GOTO 1 -231 e = e - 5 -232 LINE (f, 110)-(f, 130), 0 - LINE (f, 130)-(f - 20, 150), 0 - LINE (f, 130)-(f + 20, 150), 0 -233 CIRCLE (f, 105), 10, 0 -234 LINE (f, 120)-(f - 15, 110), 0 - LINE (f, 120)-(f + 15, 110), 0 -235 f = e -236 GOTO 1 - -240 IF e > 595 THEN GOTO 1 -241 e = e + 5 -242 LINE (f, 110)-(f, 130), 0 - LINE (f, 130)-(f - 20, 150), 0 - LINE (f, 130)-(f + 20, 150), 0 -243 CIRCLE (f, 105), 10, 0 -244 LINE (f, 120)-(f - 15, 110), 0 - LINE (f, 120)-(f + 15, 110), 0 -245 f = e -246 GOTO 1 - -250 IF c < e THEN GOTO 255 - LINE (e, 120)-(e + 15, 110), 0 - LINE (e, 120)-(e + 30, 120) - FOR i = 1 TO speed - NEXT i - LINE (e, 120)-(e + 15, 110) - LINE (e, 120)-(e + 30, 120), 0 - GOTO 259 -255 LINE (e, 120)-(e - 30, 120) - LINE (e, 120)-(e - 15, 110), 0 - FOR i = 1 TO speed - NEXT i - LINE (e, 120)-(e - 30, 120) - LINE (e, 120)-(e - 30, 120), 0 - GOTO 259 -259 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - a = a - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - a = a - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 25 = e THEN - a = a - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - -260 IF c < e THEN GOTO 265 - LINE (e, 130)-(e + 20, 150), 0 - LINE (e, 130)-(e + 30, 130) - FOR i = 1 TO speed - NEXT i - LINE (e, 130)-(e + 20, 150) - LINE (e, 130)-(e + 30, 130), 0 - GOTO 269 -265 LINE (e, 130)-(e - 20, 150), 0 - LINE (e, 130)-(e - 30, 130) - FOR i = 1 TO speed - NEXT i - LINE (e, 130)-(e - 20, 150) - LINE (e, 130)-(e - 30, 130), 0 - GOTO 269 -269 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - a = a - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - a = a - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - a = a - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - -600 LOCATE 15, 30: PRINT " Player 2 Wins" - FOR i = 1 TO speed - NEXT i - GOTO 615 -610 LOCATE 15, 30: PRINT "Player 1 Wins" - FOR i = 1 TO speed - NEXT i - GOTO 615 - -615 - FOR i = 400 TO 1 STEP -1 - CIRCLE (320, 100), i - PAINT (1, 1), 0 - CIRCLE (320, 100), i + 1, 0 - FOR ii = 1 TO speed / 10 - NEXT ii - NEXT i - -616 GOTO mainmenu - -intro: - - 'MicroTrip - CLS - SCREEN 8 - LOCATE 12, 35: PRINT "MicroTrip" - LINE (260, 85)-(350, 97), 1, B - PAINT (259, 84), 9, 1 - PLAY "mb L16 ed L4 e P64 L4 L16 fe L32 f P8 e P8 L4 d P4" - PLAY "mb L16 ed L4 e P64 L4 L17 fe L32 f P8 e P8 L4 d P4" - IF a$ <> "" THEN RETURN - - 'Move Guy - - c = 5 - e = 1000 -moveguy: - LINE (c, 110)-(c, 130) 'body - LINE (c, 130)-(c - 20, 150) 'leg - LINE (c, 130)-(c + 20, 150) 'other leg - IF c < e THEN LINE (c, 120)-(c + 15, 110)'arm - IF c > e THEN LINE (c, 120)-(c - 15, 110)'arm other - CIRCLE (c, 105), 10 'head - FOR i = 1 TO 9000 - NEXT i - LINE (c, 110)-(c, 130), 9 'body - LINE (c, 130)-(c - 20, 150), 9 'leg - LINE (c, 130)-(c + 20, 150), 9 'other leg - IF c < e THEN LINE (c, 120)-(c + 15, 110), 9'arm - IF c > e THEN LINE (c, 120)-(c - 15, 110), 9'arm other - CIRCLE (c, 105), 10, 9 'head - c = c + 1 - a$ = INKEY$ - IF a$ <> "" THEN LET nn = 0: RETURN - IF c >= 595 THEN LET nn = 1: RETURN - GOTO moveguy - -666 - -SUB title - -'Beat Down Title Screen 3D -'By Brian Murphy of MicroTrip - -SCREEN 8 -LINE (50, 50)-(50, 100), 14 -LINE (50, 50)-(70, 50), 14 -LINE (50, 100)-(70, 100), 14 -LINE (70, 50)-(80, 55), 14 -LINE (70, 100)-(80, 95), 14 -LINE (80, 55)-(80, 70), 14 -LINE (80, 95)-(80, 80), 14 -LINE (80, 70)-(75, 75), 14 -LINE (80, 80)-(75, 75), 14 -LINE (75, 75)-(50, 75), 14 - -'**************E************* - -LINE (90, 50)-(90, 100), 14 -LINE (90, 50)-(120, 50), 14 -LINE (90, 75)-(110, 75), 14 -LINE (90, 100)-(120, 100), 14 - -'**************A************* -LINE (145, 50)-(130, 100), 14 -LINE (145, 50)-(160, 100), 14 -LINE (137.5, 75)-(152.5, 75), 14 - -'*************T************** - -LINE (170, 50)-(200, 50), 14 -LINE (185, 50)-(185, 100), 14 - -'***************D************ -LINE (260, 50)-(260, 100), 14 -LINE (260, 50)-(280, 50), 14 -LINE (260, 100)-(280, 100), 14 -LINE (280, 50)-(290, 55), 14 -LINE (280, 100)-(290, 95), 14 -LINE (290, 55)-(290, 95), 14 - -'***************O************ -LINE (300, 55)-(300, 95), 14 -LINE (300, 55)-(310, 50), 14 -LINE (300, 95)-(310, 100), 14 -LINE (330, 55)-(330, 95), 14 -LINE (320, 50)-(330, 55), 14 -LINE (320, 100)-(330, 95), 14 -LINE (320, 100)-(310, 100), 14 -LINE (310, 50)-(320, 50), 14 - -'**************W************* -LINE (340, 50)-(340, 100), 14 -LINE (370, 50)-(370, 100), 14 -LINE (340, 100)-(355, 75), 14 -LINE (370, 100)-(355, 75), 14 - -'**************N************* -LINE (380, 50)-(380, 100), 14 -LINE (410, 50)-(410, 100), 14 -LINE (380, 50)-(410, 100), 14 - -'All done - -END SUB - diff --git a/programs/samples/pete/beatdown/bdv11readme.html b/programs/samples/pete/beatdown/bdv11readme.html deleted file mode 100644 index 7ab5b0ada..000000000 --- a/programs/samples/pete/beatdown/bdv11readme.html +++ /dev/null @@ -1,77 +0,0 @@ - - -Beat Down V1.1 ReadMe - -
    Beat Down

    -
    Version 1.1

    -
    By MicroTrip

    - -Story:

    - You were framed in the vicious murder of Joe Melzer. Nobody believes that you didn't do it. Why would you, Joe's best friend, kill him? One week before Joe's death on Devil's Night 1998, you and Joe got in a huge fight. He said that Coal Chamber was the best band in the world, and thought that it should be Rammstein. After you both agreed that neither was the best, you asked Joe for your money that he owed you. - Joe borrowed some money from you some time ago and never paid you back. He swore on the Bible that he paid back the loan. You two got in a fight again and this time Joe kicked your @$$. Every body knew that you two had been having disagreements. - One week later you were brought home by a police officer for being outside at 2:00 AM on Devil's Night. The next Monday at school you found out that Joe had been killed. It was definitaly a murder and it happened at about 2 in the morning on Oct. 30th. - On your way back from school you were stopped by the cops. They hauled you to jail for killing your friend, Joe Melzer. At about 10:45 PM you excaped and ran about 3 miles from the jail. - The police cought up to you and tried to re-arrest you. Because you were a wanted murderer, he tried to take you down. - That's where the fighting begins. - -

    -

    Controls:

    - Menu:
    - On the main menu, you have to use:
    -2 to move cursor down.
    -8 to move cursor up.
    -6 to scroll between sound on and off and to choose speed.
    -4 to scroll between sound on and off and to choose speed.
    -5 to select an object. (i.e. To start)
    - - In the fighting screen:
    - -Escape to quit fight.
    - -Player 1:
    -a to move left.
    -s to move right.
    -q to punch.
    -w to kick.
    -z to long punch.
    -x to long kick.
    - -Player 2:
    -4 to move left.
    -6 to move right.
    -8 to punch.
    -2 to kick.
    -/ to long punch.
    -0 to long kick.
    - - -You can hit any button to exit the intro.
    -

    -Contact:

    - You can contact us at:

    - microtrip@geocities.com

    - Visit our web site at:
    - HTTP://www.geocities.com/SiliconValley/Platform/8409/qbasic.html

    - -Beat Down V1.2

    - Beat Down V1.2 will be released in mid to late January. It will have new features such as:

    - -

    - -Go to our web site frequently to download more games and updates!

    - -Other Games:

    - MicroTrip is currently working on the engine to Stunt Racer BMX. We also would like to get a good graphics artist (for QBasic) to help on our 1st person game, Last Dreams (working title).
    - If you'd like to help on Last Dreams, e-mail us at microtrip@geocities.com. We'll give you more info then!

    - - -Please don't use any part of Beat Down in your own scripts. Ask permission first please! And give us credit for making Beat Down!

    -

    >Beat Down (C) MicroTrip, 1998
    - - - - \ No newline at end of file diff --git a/programs/samples/pete/beatdown/beatdown.bas b/programs/samples/pete/beatdown/beatdown.bas deleted file mode 100644 index 8472ff7d2..000000000 --- a/programs/samples/pete/beatdown/beatdown.bas +++ /dev/null @@ -1,737 +0,0 @@ -' **** ***** * ***** **** *** * * * * -' * * * * * * * * * * * * ** * -' * * * * * * * * * * * * ** * -' **** **** ***** * * * * * * * * * * * -' * * * * * * * * * * * * * * * * -' * * * * * * * * * * * * * * ** -' **** ***** * * * **** *** ***** * ** -' Beat Down -' 1998 MicroTrip -' V1.1 Origanally availible on -' 12-14-98 -' -' Visit our Web Site At -' At -' http://www.geocities.com/SiliconValley/Platform/8409/qbasic.html -' E-Mail me at microtrip@geocities.com -' ***Hit `F5' to play!!*** - - - - - -title: -'Beat Down Title Screen -'By Brian Murphy of MicroTrip - -SCREEN 8 -CLS -LINE (50, 50)-(50, 100), 14 -LINE (50, 50)-(70, 50), 14 -LINE (50, 100)-(70, 100), 14 -LINE (70, 50)-(80, 55), 14 -LINE (70, 100)-(80, 95), 14 -LINE (80, 55)-(80, 70), 14 -LINE (80, 95)-(80, 80), 14 -LINE (80, 70)-(75, 75), 14 -LINE (80, 80)-(75, 75), 14 -LINE (75, 75)-(50, 75), 14 - -'**************E************* -LINE (90, 50)-(90, 100), 14 -LINE (90, 50)-(120, 50), 14 -LINE (90, 75)-(110, 75), 14 -LINE (90, 100)-(120, 100), 14 - -'**************A************* -LINE (145, 50)-(130, 100), 14 -LINE (145, 50)-(160, 100), 14 -LINE (137.5, 75)-(152.5, 75), 14 - -'*************T************** -LINE (170, 50)-(200, 50), 14 -LINE (185, 50)-(185, 100), 14 - -'***************D************ -LINE (260, 50)-(260, 100), 14 -LINE (260, 50)-(280, 50), 14 -LINE (260, 100)-(280, 100), 14 -LINE (280, 50)-(290, 55), 14 -LINE (280, 100)-(290, 95), 14 -LINE (290, 55)-(290, 95), 14 - -'***************O************ -LINE (300, 55)-(300, 95), 14 -LINE (300, 55)-(310, 50), 14 -LINE (300, 95)-(310, 100), 14 -LINE (330, 55)-(330, 95), 14 -LINE (320, 50)-(330, 55), 14 -LINE (320, 100)-(330, 95), 14 -LINE (320, 100)-(310, 100), 14 -LINE (310, 50)-(320, 50), 14 - -'**************W************* -LINE (340, 50)-(340, 100), 14 -LINE (370, 50)-(370, 100), 14 -LINE (340, 100)-(355, 75), 14 -LINE (370, 100)-(355, 75), 14 - -'**************N************* -LINE (380, 50)-(380, 100), 14 -LINE (410, 50)-(410, 100), 14 -LINE (380, 50)-(410, 100), 14 - -'************************All done - - -COLOR 14 -LOCATE 24, 32: PRINT "Beat Down V1.1" - - -FOR i = 1 TO 2 - FOR x = 550 TO 37 STEP -5 - SOUND x + 5, .2 - a$ = INKEY$: IF a$ <> "" THEN LET d = 1: EXIT FOR - NEXT x - IF d = 1 THEN EXIT FOR - FOR x = 37 TO 550 STEP 5 - SOUND x + 5, .2 - a$ = INKEY$: IF a$ <> "" THEN LET d = 1: EXIT FOR - NEXT x - IF d = 1 THEN EXIT FOR -NEXT i - IF d = 1 THEN GOTO you - -'/Title - - -GOSUB intro - IF nn = 0 GOTO you - IF nn = 1 GOTO title - -you: -'Main Menu -snd$ = "on" -speed$ = "normal" -num = 9 -oldnum = 9 -colour1 = 1 -colour2 = 1 -mainmenu: -COLOR 14 -CLS -LINE (50, 45)-(550, 150), 14, B -LOCATE 5, 33: PRINT "Main Menu" -LINE (60, 55)-(540, 140), 14, B -PAINT (51, 46), 10, 14 -LOCATE 9, 15: PRINT "Start Game" -LOCATE 10, 15: PRINT "Veiw Controls" -LOCATE 11, 15: PRINT "Speed" -LOCATE 12, 15: PRINT "Sound" -LOCATE 13, 15: PRINT "Credits" -LOCATE 14, 15: PRINT "Color of player 1" -LOCATE 15, 15: PRINT "Color of player 2" -LOCATE 16, 15: PRINT "Quit" - -LISTEN$ = "mb T180 o2 P2 P8 L8 GGG L2 E-" -FATE$ = "mb P24 P8 L8 FFF L2 D" -PLAY LISTEN$ + FATE$ - -mm2: - LOCATE 11, 21: PRINT " ": LOCATE 11, 21: PRINT speed$ - LOCATE 12, 21: PRINT " ": LOCATE 12, 21: PRINT snd$; "" - LOCATE 14, 33: PRINT " ": LOCATE 14, 33: COLOR colour1: PRINT colour1 - LOCATE 15, 33: PRINT " ": LOCATE 15, 33: COLOR colour2: PRINT colour2 - COLOR 14 - IF oldnum <> num THEN LOCATE 14, 13: PRINT " ": LOCATE 9, 13: PRINT " ": LOCATE 10, 13: PRINT " ": LOCATE 11, 13: PRINT " ": LOCATE 12, 13: PRINT " ": LOCATE 13, 13: PRINT " ": LOCATE 15, 13: PRINT " ": LOCATE 16, 13: PRINT " ": oldnum = num - LOCATE num, 13: PRINT "o" - DO - a$ = INKEY$ - LOOP UNTIL a$ <> "" - IF a$ = "" THEN GOTO mm2 - IF a$ = "8" AND num = 9 THEN num = 16: GOTO mm2 - IF a$ = "8" THEN num = num - 1: GOTO mm2 - IF a$ = "2" AND num = 16 THEN num = 9: GOTO mm2 - IF a$ = "2" THEN num = num + 1: GOTO mm2 - IF a$ = "5" AND num = 9 THEN GOTO start - IF a$ = "4" AND num = 12 THEN - IF snd$ = "on" THEN snd$ = "off": GOTO mm2 - IF snd$ = "off" THEN snd$ = "on": GOTO mm2 - END IF - IF a$ = "6" AND num = 12 THEN - IF snd$ = "on" THEN snd$ = "off": GOTO mm2 - IF snd$ = "off" THEN snd$ = "on": GOTO mm2 - END IF - IF a$ = "4" AND num = 11 THEN - IF speed$ = "fastest" THEN speed$ = "mid-fast": GOTO mm2 - IF speed$ = "mid-fast" THEN speed$ = "normal": GOTO mm2 - IF speed$ = "normal" THEN speed$ = "mid-slow": GOTO mm2 - IF speed$ = "mid-slow" THEN speed$ = "slow": GOTO mm2 - IF speed$ = "slow" THEN speed$ = "fastest": GOTO mm2 - END IF - IF a$ = "6" AND num = 11 THEN - IF speed$ = "fastest" THEN speed$ = "slow": GOTO mm2 - IF speed$ = "mid-fast" THEN speed$ = "fastest": GOTO mm2 - IF speed$ = "normal" THEN speed$ = "mid-fast": GOTO mm2 - IF speed$ = "mid-slow" THEN speed$ = "normal": GOTO mm2 - IF speed$ = "slow" THEN speed$ = "mid-slow": GOTO mm2 - END IF - IF a$ = "6" AND num = 14 THEN - IF colour1 = 15 THEN colour1 = 0: GOTO mm2 - IF colour1 = 10 THEN colour1 = 12: GOTO mm2 - colour1 = colour1 + 1 - END IF - IF a$ = "4" AND num = 14 THEN - IF colour1 = 0 THEN colour1 = 15: GOTO mm2 - IF colour1 = 12 THEN colour1 = 10: GOTO mm2 - colour1 = colour1 - 1 - END IF - IF a$ = "6" AND num = 15 THEN - IF colour2 = 15 THEN colour2 = 0: GOTO mm2 - IF colour2 = 10 THEN colour2 = 12: GOTO mm2 - colour2 = colour2 + 1 - END IF - IF a$ = "4" AND num = 15 THEN - IF colour2 = 0 THEN colour2 = 15: GOTO mm2 - IF colour2 = 12 THEN colour2 = 10: GOTO mm2 - colour2 = colour2 - 1 - END IF - IF a$ = "5" AND num = 13 THEN GOTO credits - IF a$ = "5" AND num = 10 THEN GOTO controls - IF a$ = "5" AND num = 16 THEN GOTO 666 - GOTO mm2 - -'***********Credits************** -credits: -CLS -PRINT "Graphics Director...........Jacob Suckow" -PRINT " Title Screen Picture......Brian Murphy" -PRINT " Main Menu.................Brian Murphy" -PRINT " Fighting Section..........Brian Murphy" -PRINT " Ending (Circle)...........Brian Murphy" -PRINT "Programming Director........Brian Murphy" -PRINT " Engine....................Brian Murphy" -PRINT " Menu System...............Brian Murphy" -PRINT " Other.....................Brian Murphy" -PRINT "Sound Director..............Jeremy Suckow" -PRINT " Title Screen..............Brian Murphy" -PRINT " MicroTrip Screen..........Brian Murphy" -PRINT " Fighting..................Brian Murphy" -PRINT -PRINT " 1998 MicroTrip" -PRINT " Any key to continue..." -WHILE INKEY$ = "": WEND -GOTO mainmenu -'***********/Credits************* - -'***********Controls************* -controls: -CLS -PRINT "Player One" -PRINT "Move left.....a" -PRINT "Move right....s" -PRINT "Punch.........q" -PRINT "High Punch....z" -PRINT "Kick..........w" -PRINT "Low Kick.....x" -PRINT -PRINT "Player Two" -PRINT "Move Left.....4" -PRINT "Move Right....6" -PRINT "Punch.........8" -PRINT "High Punch..../" -PRINT "Kick..........2" -PRINT "Low Kick......0" -PRINT -PRINT "To quit.....Esc" -PRINT -PRINT "Any key to continue..." -WHILE INKEY$ = "": WEND -GOTO mainmenu -'************/Controls************* - -start: -IF speed$ = "slow" THEN speed = 100000 -IF speed$ = "mid-slow" THEN speed = 50000 -IF speed$ = "normal" THEN speed = 25000 -IF speed$ = "mid-fast" THEN speed = 10000 -IF speed$ = "fastest" THEN speed = 1000 - -IF snd$ = "on" THEN snd = 1 -IF snd$ = "off" THEN snd = 0 - -CLS -SCREEN 8 - -LET a = 50 -LET B = 50 -LET c = 20 -LET d = c -LET e = 600 -LET f = e - -COLOR 15 - -'********Ground******** -LINE (0, 151)-(640, 161), 2, BF -LINE (0, 161)-(640, 171), 10, BF -LINE (0, 171)-(640, 200), 6, BF -'********/Ground******* - -'********Top Thing***** -LINE (0, 0)-(640, 20), 13, B -PAINT (2, 2), 13, 13 -'********/Top Thing**** -'********Background**** -LINE (0, 150)-(640, 21), 11, BF -'********/BackGround*** - -1 -10 IF a <= 0 THEN GOTO 600 -20 IF B <= 0 THEN GOTO 610 - -30 LINE (c, 110)-(c, 130), colour1 'body - LINE (c, 130)-(c - 20, 150), colour1 'leg - LINE (c, 130)-(c + 20, 150), colour1 'other leg - IF c < e THEN LINE (c, 120)-(c + 15, 110), colour1'arm - IF c > e THEN LINE (c, 120)-(c - 15, 110), colour1'arm other - CIRCLE (c, 105), 10, colour1 'head -60 LINE (e, 110)-(e, 130), colour2 - LINE (e, 130)-(e - 20, 150), colour2 - LINE (e, 130)-(e + 20, 150), colour2 - IF e > c THEN LINE (e, 120)-(e - 15, 110), colour2 - IF e < c THEN LINE (e, 120)-(e + 15, 110), colour2 - CIRCLE (e, 105), 10, colour2 - -90 LINE (5, 4)-((a * 5) + 5, 10), 14, BF 'Life Bar - IF a <> 50 THEN LINE ((a * 5) + 1 + 5, 4)-(255, 10), 4, BF - LINE (4, 3)-((a * 5) + 6, 11), 14, B - - LINE (390, 4)-((B * 5) + 390, 10), 14, BF 'Life Bar P2 - LINE ((B * 5) + 390 + 1, 4)-(640, 10), 4, BF - LINE (389, 3)-((B * 5) + 390 + 1, 11), 14, B - -130 a$ = INKEY$ -140 IF a$ = "" THEN GOTO 1 -150 IF a$ = "q" THEN GOTO 200 'punch 1 -155 IF a$ = "z" THEN GOTO highpunch1 -160 IF a$ = "w" THEN GOTO 210 'kick 1 -165 IF a$ = "x" THEN GOTO highkick1 -170 IF a$ = "a" THEN GOTO 220 'left 1 -175 IF a$ = "s" THEN GOTO 270 'right 1 -180 IF a$ = "4" THEN GOTO 230 'left 2 -185 IF a$ = "6" THEN GOTO 240 'right 2 -190 IF a$ = "8" THEN GOTO 250 'punch 2 - IF a$ = "/" THEN GOTO highpunch2 -195 IF a$ = "2" THEN GOTO 260 'kick 2 - IF a$ = "0" THEN GOTO highkick2 -196 IF a$ = CHR$(27) THEN GOTO 616 -197 GOTO 1 - -200 IF c > e THEN GOTO 205 - LINE (c, 120)-(c + 15, 110), 11 - LINE (c, 120)-(c + 30, 120), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 120)-(c + 15, 110), colour1 - LINE (c, 120)-(c + 30, 120), 11 - GOTO 209 -205 LINE (c, 120)-(c - 30, 120), colour1 - LINE (c, 120)-(c - 15, 110), 11 - FOR i = 1 TO speed - NEXT i - LINE (c, 120)-(c - 15, 110), colour1 - LINE (c, 120)-(c - 30, 120), 11 - GOTO 209 -209 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - B = B - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - B = B - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - B = B - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - - -highkick1: - IF c > e THEN GOTO hk1 - LINE (c, 130)-(c + 20, 150), 11 - LINE (c, 130)-(c + 30, 140), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 130)-(c + 20, 150), colour1 - LINE (c, 130)-(c + 30, 140), 11 - GOTO hk1x -hk1: - LINE (c, 130)-(c - 20, 150), 11 - LINE (c, 130)-(c - 30, 140), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 130)-(c - 20, 150), colour1 - LINE (c, 130)-(c - 30, 140), 11 - GOTO hk1x -hk1x: - IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - B = B - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - B = B - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - B = B - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - -highpunch1: - IF c > e THEN GOTO hp1 - LINE (c, 120)-(c + 15, 110), 11 - LINE (c, 120)-(c + 30, 110), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 120)-(c + 15, 110), colour1 - LINE (c, 120)-(c + 30, 110), 11 - GOTO hp1x -hp1: - LINE (c, 120)-(c - 15, 110), 11 - LINE (c, 120)-(c - 30, 110), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 120)-(c - 15, 110), colour1 - LINE (c, 120)-(c - 30, 110), 11 - GOTO hp1x -hp1x: - IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - B = B - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - B = B - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - B = B - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - -210 IF c > e THEN GOTO 215 - LINE (c, 130)-(c + 20, 150), 11 - LINE (c, 130)-(c + 30, 130), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 130)-(c + 20, 150), colour1 - LINE (c, 130)-(c + 30, 130), 11 - GOTO 219 -215 LINE (c, 130)-(c - 20, 150), 11 - LINE (c, 130)-(c - 30, 130), colour1 - FOR i = 1 TO speed - NEXT i - LINE (c, 130)-(c - 20, 150), colour1 - LINE (c, 130)-(c - 30, 130), 11 - GOTO 219 -219 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - B = B - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - B = B - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - B = B - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - -220 IF c < 6 THEN GOTO 1 -221 c = c - 5 -222 LINE (d, 110)-(d, 130), 11 - LINE (d, 130)-(d - 20, 150), 11 - LINE (d, 130)-(d + 20, 150), 11 -223 LINE (d, 120)-(d - 15, 110), 11 - LINE (d, 120)-(d + 15, 110), 11 -224 CIRCLE (d, 105), 10, 11 -225 d = c -226 GOTO 1 - -270 IF c > 595 THEN GOTO 1 -271 c = c + 5 -272 LINE (d, 110)-(d, 130), 11 - LINE (d, 130)-(d - 20, 150), 11 - LINE (d, 130)-(d + 20, 150), 11 -273 CIRCLE (d, 105), 10, 11 -274 LINE (d, 120)-(d - 15, 110), 11 - LINE (d, 120)-(d + 15, 110), 11 -275 d = c -276 GOTO 1 - -230 IF e < 5 THEN GOTO 1 -231 e = e - 5 -232 LINE (f, 110)-(f, 130), 11 - LINE (f, 130)-(f - 20, 150), 11 - LINE (f, 130)-(f + 20, 150), 11 -233 CIRCLE (f, 105), 10, 11 -234 LINE (f, 120)-(f - 15, 110), 11 - LINE (f, 120)-(f + 15, 110), 11 -235 f = e -236 GOTO 1 - -240 IF e > 595 THEN GOTO 1 -241 e = e + 5 -242 LINE (f, 110)-(f, 130), 11 - LINE (f, 130)-(f - 20, 150), 11 - LINE (f, 130)-(f + 20, 150), 11 -243 CIRCLE (f, 105), 10, 11 -244 LINE (f, 120)-(f - 15, 110), 11 - LINE (f, 120)-(f + 15, 110), 11 -245 f = e -246 GOTO 1 - -250 IF c < e THEN GOTO 255 - LINE (e, 120)-(e + 15, 110), 11 - LINE (e, 120)-(e + 30, 120), colour2 - FOR i = 1 TO speed - NEXT i - LINE (e, 120)-(e + 15, 110), colour2 - LINE (e, 120)-(e + 30, 120), 11 - GOTO 259 -255 LINE (e, 120)-(e - 30, 120), colour2 - LINE (e, 120)-(e - 15, 110), 11 - FOR i = 1 TO speed - NEXT i - LINE (e, 120)-(e - 30, 120), colour2 - LINE (e, 120)-(e - 30, 120), 11 - GOTO 259 -259 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - a = a - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - a = a - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 25 = e THEN - a = a - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - -260 IF c < e THEN GOTO 265 - LINE (e, 130)-(e + 20, 150), 11 - LINE (e, 130)-(e + 30, 130), colour2 - FOR i = 1 TO speed - NEXT i - LINE (e, 130)-(e + 20, 150), colour2 - LINE (e, 130)-(e + 30, 130), 11 - GOTO 269 -265 LINE (e, 130)-(e - 20, 150), 11 - LINE (e, 130)-(e - 30, 130), colour2 - FOR i = 1 TO speed - NEXT i - LINE (e, 130)-(e - 20, 150), colour2 - LINE (e, 130)-(e - 30, 130), 11 - GOTO 269 -269 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN - a = a - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN - a = a - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN - a = a - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - -highkick2: - IF c < e THEN GOTO hk2 - LINE (e, 130)-(e + 20, 150), 11 - LINE (e, 130)-(e + 30, 140), colour2 - FOR i = 1 TO speed - NEXT i - LINE (e, 130)-(e + 20, 150), colour2 - LINE (e, 130)-(e + 30, 140), 11 - GOTO hk2x -hk2: - LINE (e, 130)-(e - 20, 150), 11 - LINE (e, 130)-(e - 30, 140), colour2 - FOR i = 1 TO speed - NEXT i - LINE (e, 130)-(e - 20, 150), colour1 - LINE (e, 130)-(e - 30, 140), 11 - GOTO hk2x -hk2x: - IF e + 29 = c OR e - 29 = c OR e + 30 = c OR e - 30 = c THEN - a = a - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF e + 24 = c OR e - 24 = c OR e + 25 = c OR e - 25 = c THEN - a = a - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF e + 19 = c OR e - 19 = c OR e + 20 = c OR e - 20 = c THEN - a = a - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - -highpunch2: - IF c < e THEN GOTO hp2 - LINE (e, 120)-(e + 15, 110), 11 - LINE (e, 120)-(e + 30, 110), colour1 - FOR i = 1 TO speed - NEXT i - LINE (e, 120)-(e + 15, 110), colour1 - LINE (e, 120)-(e + 30, 110), 11 - GOTO hp2x -hp2: - LINE (e, 120)-(e - 15, 110), 11 - LINE (e, 120)-(e - 30, 110), colour1 - FOR i = 1 TO speed - NEXT i - LINE (e, 120)-(e - 15, 110), colour1 - LINE (e, 120)-(e - 30, 110), 11 - GOTO hp2x -hp2x: - IF e + 29 = c OR e - 29 = c OR e + 30 = c OR e - 30 = c THEN - a = a - 2 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF e + 24 = c OR e - 24 = c OR e + 25 = c OR e - 25 = c THEN - a = a - 3 - IF snd = 1 THEN SOUND 50, 1 - END IF - IF e + 19 = c OR e - 19 = c OR e + 20 = c OR e - 20 = c THEN - a = a - 1 - IF snd = 1 THEN SOUND 50, 1 - END IF - GOTO 1 - - - -600 FOR iii = 1 TO 8000 - LOCATE 12, 32: PRINT "Player 1 Losses!" - NEXT iii - FOR ii = 10 TO 1 STEP -1 - CIRCLE (c, 105), ii + 1, 11 - CIRCLE (c, 105), ii, colour1 - FOR i = 1 TO speed - NEXT i - NEXT ii - GOTO 615 -610 FOR iii = 1 TO 8000 - LOCATE 12, 32: PRINT "Player 2 Losses!" - NEXT iii - FOR ii = 10 TO 1 STEP -1 - CIRCLE (e, 105), ii + 1, 11 - CIRCLE (e, 105), ii, colour2 - FOR i = 1 TO speed - NEXT i - NEXT ii - GOTO 615 - -615 - FOR i = 400 TO 1 STEP -1 - CIRCLE (320, 100), i - PAINT (1, 1), 11 - CIRCLE (320, 100), i + 1, 11 - FOR ii = 1 TO speed / 10 - NEXT ii - NEXT i - -616 GOTO mainmenu - -intro: - - 'MicroTrip - CLS - SCREEN 8 - COLOR 15 - LOCATE 12, 35: PRINT "MicroTrip" - LINE (260, 85)-(350, 97), 1, B - PAINT (259, 84), 9, 1 - PLAY "mb L16 ed L4 e P64 L4 L16 fe L32 f P8 e P8 L4 d P4" - PLAY "mb L16 ed L4 e P64 L4 L17 fe L32 f P8 e P8 L4 d P4" - IF a$ <> "" THEN RETURN - - 'Move Guy - - c = 5 - e = 1000 -moveguy: - LINE (c, 110)-(c, 130) 'body - LINE (c, 130)-(c - 20, 150) 'leg - LINE (c, 130)-(c + 20, 150) 'other leg - IF c < e THEN LINE (c, 120)-(c + 15, 110)'arm - IF c > e THEN LINE (c, 120)-(c - 15, 110)'arm other - CIRCLE (c, 105), 10 'head - FOR i = 1 TO 9000 - NEXT i - LINE (c, 110)-(c, 130), 9 'body - LINE (c, 130)-(c - 20, 150), 9 'leg - LINE (c, 130)-(c + 20, 150), 9 'other leg - IF c < e THEN LINE (c, 120)-(c + 15, 110), 9'arm - IF c > e THEN LINE (c, 120)-(c - 15, 110), 9'arm other - CIRCLE (c, 105), 10, 9 'head - c = c + 1 - a$ = INKEY$ - IF a$ <> "" THEN LET nn = 0: RETURN - IF c >= 595 THEN LET nn = 1: RETURN - GOTO moveguy - -'****I have to fill this in later. It won't work right.**** -story: - CLS - fart = 0 - PAINT (1, 1), 0 - COLOR 4 - LOCATE 1, 1: PRINT "It was the year 1998 when you and Jake decided to start your" - GOTO yeah -first: - PRINT "own 'wrestling' association. You were sick of how fake all of the " - GOTO yeah -second: - PRINT "others including WCW, WWF and NWO, were. Then, simoultaniously, you both" - GOTO yeah -third: - PRINT "had a good idea. What if your 'wrestling' association wasn't fake? What" - GOTO yeah -fourth: - PRINT "if you had all of the 'wrestlers' sign a Beat Down contract saying that " - GOTO yeah -fifth: - PRINT "they would fight to the death? This was gonna' be a kick @$$ 'fighting'" - GOTO yeah -sixth: - PRINT "association! It would be known as the Beat Down Fighting Association!(BDFA)" - GOTO yeah - -endofstory: - IF nn = 0 THEN RETURN - LET nn = 1: RETURN - -yeah: - a$ = INKEY$ - IF a$ <> "" THEN nn = 0: GOTO endofstory - FOR i = 1 TO 1000000 - NEXT i - fart = fart + 1 - ON poop GOTO first, second, third, fourth, fifth, sixth - -666 - diff --git a/programs/samples/pete/beatdown/clickme.bas b/programs/samples/pete/beatdown/clickme.bas deleted file mode 100644 index 1bbd08ffe..000000000 --- a/programs/samples/pete/beatdown/clickme.bas +++ /dev/null @@ -1,7 +0,0 @@ -CLS -PRINT "1. English 2. Italian" -INPUT "#", n -IF n = 1 THEN CHAIN "beatdown.bas" -IF n = 2 THEN CHAIN "bdt.bas" -STOP - diff --git a/programs/samples/pete/bj.bas b/programs/samples/pete/bj.bas deleted file mode 100644 index 803bea3b9..000000000 --- a/programs/samples/pete/bj.bas +++ /dev/null @@ -1,350 +0,0 @@ -REM M-AZN BLACKJACK -REM May 27, 2005 -REM by M-AZN -REM -REM dealer hits on 16, stands on 17. -REM bet*0.5 bonus for blackjack (Ace and value-10 card) -REM when betting, you can press ENTER to bid last bet-- -REM unless you cant afford it. double-down doubles your bet for that play. -REM to quit, enter -1 when betting, or enter q or Q at hit/stand/double. -REM ENTER is same as stand. S to stand. H to hit. D to double down. -REM can't split (yet). - -startgame: - 'INITIALIZE - - RANDOMIZE TIMER - heart$ = CHR$(3): diamond$ = CHR$(4): club$ = CHR$(5): spade$ = CHR$(6) - playerquit = 0 - oldbet = 10 - maxhand = 13 - DIM playercards(maxhand), dealercards(maxhand), deck(52) - - 'MAIN LOOP - DO - CLS - playermoney = 500 - GOSUB splashscreen - GOSUB shuffledeck - 'deckindex = 1 - GOSUB rungame - LOOP -END - -rungame: - 'GAME LOOP - DO - COLOR 4: PRINT " "; heart$; - COLOR 2: PRINT " "; club$; - COLOR 5: PRINT " "; diamond$; - COLOR 3: PRINT " "; spade$ - COLOR 7 - playercardindex = 0 - dealercardindex = 0 - done = 0 - BLACKJACK = 0 - GOSUB getbet - GOSUB getnewhand - GOSUB printhand - GOSUB printdealerhand - GOSUB checkplayerhand - GOSUB getcommand - GOSUB comparehands - IF playermoney = 0 THEN - GOSUB playerlost - EXIT DO - END IF - LOOP -RETURN - -getbet: - IF oldbet > playermoney THEN oldbet = playermoney - IF oldbet = 0 THEN oldbet = -1 - DO - COLOR 10 - PRINT "You have $"; playermoney - COLOR 7 - PRINT "Your bet (-1 to quit) (ENTER = $"; oldbet; ")"; - INPUT playerbet - IF playerbet = 0 THEN playerbet = oldbet - LOOP UNTIL playerbet <= playermoney - IF playerbet = -1 THEN END - oldbet = playerbet - playermoney = playermoney - playerbet -RETURN - -getcommand: - WHILE done = 0 - PRINT "Your hand value: "; playerhandvalue - PRINT "[H]it [S]tand "; - IF playercardindex = 2 THEN PRINT "[D]ouble"; - INPUT nkey$ - SELECT CASE nkey$ - CASE "quit", "q", "Q" - END - CASE "h" - GOSUB getnewplayercard - CASE "s", "" - done = 1 - CASE "d" - IF playercardindex = 2 THEN - IF playermoney >= playerbet THEN - playermoney = playermoney - playerbet - playerbet = playerbet * 2 - done = 1 - GOSUB getnewplayercard - ELSE - PRINT "Not enough money to double down." - END IF - END IF - END SELECT - GOSUB printhand - GOSUB checkplayerhand - WEND -RETURN - -shuffledeck: - 'first card - deck(1) = INT(RND * 52) - deckindex = 2 - DO - DO - cardok = 1 - newcard = INT(RND * 52) - FOR j = 1 TO (deckindex - 1) STEP 1 - IF newcard = deck(j) THEN - cardok = 0 - EXIT FOR - END IF - NEXT j - LOOP UNTIL cardok = 1 - deck(deckindex) = newcard - deckindex = deckindex + 1 - LOOP UNTIL deckindex > 52 - deckindex = 1 - PRINT "* * * DECK SHUFFLED * * *" -RETURN - -getnewcard: - IF deckindex > 52 THEN - GOSUB shuffledeck - deckindex = 1 - END IF - newcard = deck(deckindex) - deckindex = deckindex + 1 -RETURN - -getnewplayercard: - GOSUB getnewcard - playercardindex = playercardindex + 1 - playercards(playercardindex) = newcard -RETURN - -getnewdealercard: - GOSUB getnewcard - dealercardindex = dealercardindex + 1 - dealercards(dealercardindex) = newcard -RETURN - -getnewhand: - IF (deckindex > 42) THEN GOSUB shuffledeck - GOSUB getnewplayercard - GOSUB getnewdealercard - GOSUB getnewplayercard - GOSUB getnewdealercard -RETURN - -printhand: - PRINT "Your cards:" - FOR i = 1 TO playercardindex - d = playercards(i) MOD 13 + 1 - s% = playercards(i) \ 13 - GOSUB printcard - NEXT i -RETURN - -printdealerhand: - PRINT "Dealer cards:" - FOR i = 1 TO dealercardindex - d = dealercards(i) MOD 13 + 1 - s% = dealercards(i) \ 13 - IF done = 0 AND i > 1 THEN - ELSE GOSUB printcard - END IF - NEXT i -RETURN - -printcard: - SELECT CASE d - CASE 1: PRINT " A "; - CASE 2 TO 9: PRINT " "; d; - CASE 10: PRINT d; - CASE 11: PRINT " J "; - CASE 12: PRINT " Q "; - CASE 13: PRINT " K "; - END SELECT - REM PRINT "s"; s% - SELECT CASE s% - CASE 0 - COLOR 4 - PRINT heart$; - COLOR 7 - CASE 1 - COLOR 5 - PRINT diamond$; - COLOR 7 - CASE 2 - COLOR 2 - PRINT club$; - COLOR 7 - CASE 3 - COLOR 3 - PRINT spade$; - COLOR 7 - END SELECT - PRINT -RETURN - -checkplayerhand: - rerun = 0 - acefound = 0 - playerdone = 0 - WHILE playerdone = 0 - playerhandvalue = 0 - FOR i = 1 TO playercardindex - cardvalue = playercards(i) MOD 13 + 1 - IF cardvalue > 10 THEN cardvalue = 10 - IF cardvalue = 1 AND acefound = 0 THEN - cardvalue = 11 - acefound = 1 - END IF - playerhandvalue = playerhandvalue + cardvalue - NEXT i - playerdone = 1 - IF playerhandvalue > 21 AND acefound = 0 THEN done = 1 - IF playerhandvalue = 21 THEN - done = 1 - IF playercardindex = 2 THEN - COLOR 15: PRINT "BLACKJACK "; - COLOR 13: PRINT "BLACKJACK "; - COLOR 11: PRINT "BLACKJACK "; - COLOR 9: PRINT "BLACKJACK " - COLOR 7 - BLACKJACK = 1 - END IF - END IF - IF playerhandvalue > 21 AND acefound = 1 THEN playerdone = 0 - IF rerun = 1 THEN - IF playerhandvalue > 21 THEN done = 1 - playerdone = 1 - END IF - rerun = 1 - WEND -RETURN - -checkdealerhand: - rerun = 0 - acefound = 0 - donehere = 0 - WHILE donehere = 0 - dealerhandvalue = 0 - FOR i = 1 TO dealercardindex - cardvalue = dealercards(i) MOD 13 + 1 - IF cardvalue > 10 THEN cardvalue = 10 - IF cardvalue = 1 AND acefound = 0 THEN - cardvalue = 11 - acefound = 1 - END IF - dealerhandvalue = dealerhandvalue + cardvalue - NEXT i - donehere = 1 - IF acefound = 1 AND dealerhandvalue > 21 THEN donehere = 0 - IF rerun = 1 THEN donehere = 1 - rerun = 1 - WEND -RETURN - -comparehands: - GOSUB checkdealerhand - WHILE dealerhandvalue < 17 AND playerhandvalue <= 21 AND BLACKJACK = 0 - GOSUB getnewdealercard - GOSUB checkdealerhand - WEND - GOSUB printdealerhand - PRINT "Your hand value "; playerhandvalue - PRINT "Dealer hand value "; dealerhandvalue - IF playerhandvalue > 21 THEN - COLOR 6 - PRINT "You busted" - COLOR 7 - ELSEIF dealerhandvalue > 21 THEN - PRINT "Dealer busted" - GOSUB playerwins - ELSEIF BLACKJACK = 1 THEN - COLOR 15 - PRINT "You have Blackjack!" - COLOR 7 - IF dealerhandvalue = 21 AND dealercardindex = 2 THEN - COLOR 15 - PRINT "Dealer has Blackjack!" - COLOR 14 - PRINT "Push" - COLOR 7 - ELSE - GOSUB playerwins - END IF - ELSEIF dealerhandvalue > playerhandvalue THEN - COLOR 6 - PRINT "You lost" - COLOR 7 - ELSEIF dealerhandvalue < playerhandvalue THEN - PRINT "You won" - GOSUB playerwins - ELSEIF dealerhandvalue = playerhandvalue THEN - COLOR 14 - PRINT "Push" - COLOR 7 - playermoney = playermoney + playerbet - END IF -RETURN - -playerwins: - bonus = 0 - IF BLACKJACK = 1 THEN bonus = playerbet / 2 - COLOR 13 - PRINT "You win $"; playerbet + bonus - IF bonus THEN PRINT " ($"; bonus; "bonus)" - COLOR 7 - playermoney = playermoney + 2 * playerbet + bonus -RETURN - -playerlost: - PRINT : PRINT "ALL YOUR MONEY ARE BELONG TO US" - DO - INPUT "Do you want to play again"; nkey$ - SELECT CASE nkey$ - CASE "n", "N", "no" - END - CASE "y", "Y", "yes" - playerquit = 1 - EXIT DO - END SELECT - LOOP -RETURN - -splashscreen: - LOCATE 3, 38 - COLOR 13: PRINT "M-AZN" - LOCATE 5, 36 - COLOR 1: PRINT "B"; - COLOR 2: PRINT "L"; - COLOR 3: PRINT "A"; - COLOR 4: PRINT "C"; - COLOR 5: PRINT "K"; - COLOR 6: PRINT "J"; - COLOR 7: PRINT "A"; - COLOR 8: PRINT "C"; - COLOR 9: PRINT "K"; - COLOR 7 - PRINT : PRINT -RETURN \ No newline at end of file diff --git a/programs/samples/pete/booger/booger.bas b/programs/samples/pete/booger/booger.bas deleted file mode 100644 index 864f111ac..000000000 --- a/programs/samples/pete/booger/booger.bas +++ /dev/null @@ -1,636 +0,0 @@ -CHDIR ".\programs\samples\pete\booger" - -REM -REM -REM REALiTY Software -REM -REM BOOGER and the Martians -REM -REM -REM Coded By M.Ware -REM -REM -REM SWFX & GIF Routines used (Thanks dudes !!) -REM -REM All other coding by REALiTY Software -REM -REM -REM -REM This is the 1st game from REALiTY Software -REM soon to be one of many ,i already have another BOOGER -REM game in the pipeline and have began work on it -REM hopefully it wont be too long coming. -REM -REM BOOGER and the Martians was written in QB4.5 on a 133Mhz -REM Pentium but should run on anything Pentium even 486 im not -REM sure about 386's etc maybe you could EMAIL me about how -REM it works on another machine ? -REM -REM Anyone out there who knows how to program music ,mail me please -REM i havent dabbled in it yet but someone who knows can save a -REM lot of time !. -REM -REM Hope you enjoy the GAME sorry there are not many REMARKS but hey -REM thats one of the joys of programming !. -REM -REM Best of luck .......................... -REM -REM P.S Maybe someone would like to join forces and make a really -REM really really good game ??? -REM -REM EMail me on : Matthew.Ware@virgin.net -REM -REM As Booger would say L8rs DUDES !!! - - - - - - - -REM -Set Up Those Variables- - -DEFINT A-Z -RANDOMIZE TIMER - -DIM SHARED c$(8) 'FM register information for 9 channels -c$(0) = "&hB0&h20&h23&h40&h43&h60&h63&h80&h83&hA0&HBD&HC0&HE0&HE3&hB0" -c$(1) = "&hB1&h21&h24&h41&h44&h61&h64&h81&h84&hA1&HBD&HC1&HE1&HE4&hB1" -c$(2) = "&hB2&h22&h25&h42&h45&h62&h65&h82&h85&hA2&HBD&HC2&HE2&HE5&hB2" -c$(3) = "&hB3&h28&h2B&h48&h4B&h68&h6B&h88&h8B&hA3&HBD&HC3&HE8&HEB&hB3" -c$(4) = "&hB4&h29&h2C&h49&h4C&h69&h6C&h89&h8C&hA4&HBD&HC4&HE9&HEC&hB4" -c$(5) = "&hB5&h2A&h2D&h4A&h4D&h6A&h6D&h8A&h8D&hA5&HBD&HC5&HEA&HED&hB5" -c$(6) = "&hB6&h30&h33&h50&h53&h70&h73&h90&h93&hA6&HBD&HC6&HF0&HF3&hB6" -c$(7) = "&hB7&h31&h34&h51&h54&h71&h74&h91&h94&hA7&HBD&HC7&HF1&HF4&hB7" -c$(8) = "&hB8&h32&h35&h52&h55&h72&h75&h92&h95&hA8&HBD&HC8&HF2&HF5&hB8" -DIM sfx$(25) -OPEN ".\data\noise.set" FOR INPUT AS #1 -FOR fxnum% = 0 TO 25 - INPUT #1, sfx$(fxnum%) -NEXT -CLOSE #1 - - -DIM Prefix(4095), Suffix(4095), OutStack(4095), shiftout%(8) -DIM Ybase AS LONG, powersof2(11) AS LONG, WorkCode AS LONG - -graphics = 39 -DIM grid(10, 10) -DIM sprite(74, 40) -DIM spriteback(74, 40) -DIM spritemask(74, 40) -DIM default(74): frame = 0 - -DIM greenback(74) -DIM greenmask(74) -DIM greensprite(74) -aliens = 50 -DIM alienx!(aliens): DIM alieny!(aliens) -DIM alienmove(aliens): DIM aliengrap(aliens) -DIM alienspeed!(aliens) -DIM floor(8) -DIM scroller(1000) -DIM comment$(10) -DIM word$(32) - - -comment$(1) = "Wake up dude!" -comment$(2) = "Are You Asleep Again!" -comment$(3) = "Were sposed to save the world!" -comment$(4) = "I need a LEAK !!" -comment$(5) = "G E T A M O V E O N" -comment$(6) = "I'm the one in danger !!!!" -comment$(7) = "Stop thinking and play !" -comment$(8) = "The Bikes Overheating !!!" -comment$(9) = "PHHURRRP oops ,sorry!" -comment$(10) = "Fffarrt ,slipped out!" -word$(1) = "Easy Street Dude !!!" -leveltoo = 1 -sndon = 1 -size = 74 -level = 1 -SCREEN 13: CLS: GOSUB grabsprites - - - - -REM -Main Prog Starts Here !!!- - -mainstart: -jpdet = 9 -look1 = 0 -lives = 3 - -SCREEN 13: CLS - -GOSUB titlescreen - -CLS - -restart: - -CLS -GOSUB loadlevel ' Gets level data from disc - -PALETTE: CLS - - - -REM -Draw Level Contents- - -FOR ground = 200 TO 40 STEP -50 - FOR layer = 1 TO 8 - LINE (1, ground - layer)-(319, ground - layer), floor(9 - layer) - NEXT layer -NEXT ground -moving! = 0: movingy! = 0 -counter = 0: movgot = 0: movgot1 = 3 - -FOR howmany = 1 TO 50 - IF alienx!(howmany) <> 0 AND alienmove(howmany) = 0 THEN PUT (alienx!(howmany), alieny!(howmany)), sprite(size, aliengrap(howmany)), PSET -NEXT howmany - - - - -REM -Okey Here Goes the main Routine !!!(HELP)- - -gx! = 4: gy! = 32: anim = 0: jump = 0 - -GET (gx!, gy!)-(gx! + 10, gy! + 10), greenback() -REM snd = 19: GOSUB snd - - -mainloop: - -counter = counter + 1: IF counter = 50 THEN counter = 0 - -WAIT &H3DA, 8 - -PUT (gx!, gy!), greenback(), PSET -gx! = gx! + moving! -gy! = gy! + movingy! - -IF POINT(gx! + 10, gy! + 10 + movingy!) = 0 AND POINT(gx!, gy! + 10 + movingy!) = 0 THEN movingy! = movingy! + .125 -IF POINT(gx! + 9, gy! + 9 + movingy!) = land AND POINT(gx!, gy! + 9 + movingy!) = land THEN movingy! = 0: jump = 0 -IF POINT(gx! - 3, gy! + 4) = land THEN jpdet = 9: GOSUB missit - -IF passd <> 0 THEN GOTO missit - -IF POINT(gx! - 3, gy! + 4) <> 0 OR POINT(gx! - movgot1, gy! + 9) <> 0 THEN GOSUB dead -IF POINT(gx! + 11, gy! + 4) <> 0 OR POINT(gx! + movgot, gy! + jpdet) <> 0 THEN GOSUB dead -IF POINT(gx! + 4, gy! + 9) <> 0 THEN GOSUB dead - -missit: - -IF POINT(gx! + 5, gy! - 2) <> 0 THEN a$ = "DEFAULT": GOSUB dead -IF gx! > 305 AND gy! > 162 THEN GOTO leveldone -IF gx! > 305 THEN gx! = 4: gy! = gy! + 50 -GET (gx!, gy!)-(gx! + 10, gy! + 10), greenback() -PUT (gx!, gy!), greenmask(), AND -PUT (gx!, gy!), sprite(size, anim), OR - -IF counter > 25 THEN frame = 1 ELSE frame = 0 - -GOSUB alienmove - - -a$ = INKEY$ -a$ = LCASE$(a$) -IF a$ = "x" AND moving! < 2 THEN moving! = moving! + .5 -IF a$ = "z" AND moving! > 0 THEN moving! = moving! - .25 -IF a$ = " " AND jump <> 1 THEN jump = 1: jpdet = 4: movingy! = -1.8 - -IF a$ = "q" THEN END -IF a$ = "s" THEN sndon = sndon + 1: IF sndon > 1 THEN sndon = 0 - -IF moving! <> 0 THEN IF anim1 = INT(5 / moving!) THEN anim = anim + 1: IF anim > 1 THEN anim = 0 -IF moving! <> 0 THEN movgot1 = -3: movgot = 0: look1 = 0: anim1 = anim1 + 1: IF anim1 > INT(5 / moving!) THEN anim1 = 0: snd = 5: GOSUB snd -IF jump = 1 THEN jpdet = 4: anim = 11 -IF jump = 0 THEN jpdet = 9 -IF moving! = 0 AND look1 = 0 THEN anim = 0: look1 = 1 -IF moving! = 0 AND jump = 1 THEN anim = 0 -IF moving! = 0 THEN tick = tick + 1: IF tick = 35 THEN tick = 0: snd = 5: GOSUB snd -IF moving! = 0 AND look = 950 THEN anim = 10: snd = 7: GOSUB snd: COLOR 15: t$ = comment$(INT(RND(1) * 9) + 1): v = 1: GOSUB centre -IF moving! = 0 THEN movgot1 = 4: movgot = 12 -IF look = 1290 THEN look1 = 0: anim = 0: v = 1: t$ = " ": look = 0: GOSUB centre -look = look + 1: IF look = 1300 THEN look = 0 - - -GOTO mainloop - - -REM -Routine for alien movement- - -alienmove: - -FOR howmany = 1 TO 50 - - GET (0, 0)-(10, 9), default() - - IF alienmove(howmany) = 0 THEN GOTO skip - - PUT (alienx!(howmany), alieny!(howmany)), default(), PSET - - IF alienmove(howmany) = 1 THEN GOTO vert - - IF alienx!(howmany) < 10 OR alienx!(howmany) > 300 THEN alienspeed!(howmany) = -alienspeed!(howmany) - IF POINT(alienx!(howmany) - 2, alieny!(howmany) + 4) <> 0 OR POINT(alienx!(howmany) + 12, alieny!(howmany) + 4) <> 0 THEN alienspeed!(howmany) = -alienspeed!(howmany): GOTO turned - - IF POINT(alienx!(howmany) - 2, alieny!(howmany) + 9) <> 0 OR POINT(alienx!(howmany) + 12, alieny!(howmany) + 9) <> 0 THEN alienspeed!(howmany) = -alienspeed!(howmany) - - turned: - - alienx!(howmany) = alienx!(howmany) + alienspeed!(howmany) - GOTO placealien - - vert: - - alieny!(howmany) = alieny!(howmany) - alienspeed!(howmany) - IF POINT(alienx!(howmany) + 4, alieny!(howmany) - 1) <> 0 OR POINT(alienx!(howmany) + 4, alieny!(howmany) + 10) <> 0 THEN alienspeed!(howmany) = -alienspeed!(howmany) - - placealien: - - PUT (alienx!(howmany), alieny!(howmany)), spritemask(size, aliengrap(howmany)), AND - PUT (alienx!(howmany), alieny!(howmany)), sprite(size, aliengrap(howmany) + frame), OR - - - skip: -NEXT howmany -RETURN - - - - - -dead: - -PUT (gx!, gy!), sprite(size, 21) -snd = 4 -GOSUB snd -GOSUB delay -GOSUB delay - -IF lives = 0 THEN GOSUB completedead - -pic$ = ".\data\crashed1.bgr" -IF lives > 1 THEN pic$ = ".\data\crashed.bgr" - -GOSUB picture -GOSUB keypress -lives = lives - 1: IF lives > -1 THEN GOTO restart - -completedead: - - -pic$ = ".\data\totalled.bgr" -GOSUB picture -GOSUB keypress - -GOTO mainstart - - -gamecomplete: - -CLS -pic$ = ".\data\COMPLETE.bgr" -GOSUB picture -GOSUB keypress -level = 1 -GOSUB mainstart - - - -titlescreen: - -pic$ = ".\data\title.bgr": GOSUB picture -GOSUB delay -pic$ = ".\data\title1.bgr": GOSUB picture -snd = 24 -GOSUB snd -GOSUB keypress -pic$ = ".\data\title2.bgr": GOSUB picture -GOSUB keypress -pic$ = ".\data\title3.bgr": GOSUB picture -GOSUB keypress -pic$ = ".\data\title4.bgr": GOSUB picture -snd = 25: GOSUB snd - - -x$ = " Right ,now dude ,this is the idea ,i've got this plan !!! ..... Firstly il'e get the Harley out of the garage ,won't go anywhere quick " -x$ = x$ + "on a pair of legs !! ,then what ,well lets get to the mothership i thinks and sort the main geezer out ,that bit you can leave to me but i need" -x$ = x$ + " your elp getting there !,basically we start at the top and the idea is to get to the bottom and onto the next street but just in case we meet" -x$ = x$ + " any Alien dudes i guess we ortta dodge em if poss i don't want to total my bike !, and we don't know what else to expect ,so only one way to find out" -x$ = x$ + " and thats to GO FOR IT !!! , OK,OK just in case i thinks the Harley will be alright for a couple of smashes ,maybe 4 i think ,but best none eh ,just hope" -x$ = x$ + " it's enuff to get us through the 30 streets !! ,and also finally" -x$ = x$ + " THE DUDE (almighty) said that the 'S' key will turn the sound on and off and 'Q' during the game will Quit and most finally if you want to get into the game" -x$ = x$ + " quick and the delays between screens and when we crash etc are toooo looonnnggg just hit the SPACEBAR !! L8rs Dude ! " - -scroll = LEN(x$) - -DO - - COLOR 37: v = 23: t$ = word$(level): GOSUB centre - - FOR r = 1 TO scroll - - COLOR 9: LOCATE 19, 37: PRINT MID$(x$, r, 1) - IF MID$(x$, r, 1) <> " " THEN snd = 18: GOSUB snd - - FOR left = 1 TO 8 - - - GET (80, 144)-(300, 152), scroller() - PUT (79, 144), scroller(), PSET - WAIT &H3DA, 8 - - a$ = INKEY$ - a$ = LCASE$(a$) - - IF a$ = "x" AND word$(level + 1) <> "" THEN level = level + 1: v = 23: t$ = " ": GOSUB centre - IF a$ = "z" AND level > 1 THEN level = level - 1: v = 23: t$ = " ": GOSUB centre - - IF a$ = "z" OR a$ = "x" THEN v = 23: t$ = word$(level): GOSUB centre - IF a$ = " " THEN GOTO doit - IF a$ = "q" THEN END - - - NEXT left - NEXT r -LOOP - -doit: -snd = 25 -GOSUB snd -PALETTE -RETURN - - -leveldone: - -pic$ = ".\data\doneit.bgr": GOSUB picture -GOSUB delay -GOSUB delay -level = level + 1 -GOTO restart - -keypress: -a$ = INKEY$ -IF a$ = " " THEN RETURN -GOTO keypress - -delay: - -FOR r = 1 TO 300 - FOR rr = 1 TO 20000 - NEXT rr -NEXT r -RETURN - -centre: - -place = INT(40 - LEN(t$)) / 2 -place = place -LOCATE v, place: PRINT t$ -RETURN - - - - -REM -Sound Routine (Thanks DUDE!) - -snd: - -IF sndon = 0 THEN RETURN -sfxnum% = snd -chan% = VAL(MID$(sfx$(sfxnum%), 61, 4)) -FOR in = 1 TO 60 STEP 4 - reg$ = MID$(c$(chan%), in, 4): reg% = VAL(reg$) - dat$ = MID$(sfx$(sfxnum%), in, 4): dat% = VAL(dat$) - OUT &H388, reg%: FOR d% = 1 TO 6: b% = INP(&H388): NEXT - OUT &H389, dat%: FOR d% = 1 TO 35: b% = INP(&H388): NEXT -NEXT - -RETURN - - - - - - -REM -Level Loader- - -loadlevel: - - -IF level = 31 THEN GOSUB gamecomplete -pic$ = ".\data\loading.bgr": GOSUB picture - -GOSUB delay - -lev$ = STR$(level) + ".lev": lev$ = RIGHT$(lev$, LEN(lev$) - 1) -OPEN ".\levels\" + lev$ FOR INPUT AS #1 -INPUT #1, levelname$ -t$ = levelname$: word$(level) = t$: v = 5: COLOR 155: GOSUB centre -GOSUB delay: GOSUB delay - -FOR r = 1 TO aliens - INPUT #1, alienx!(r) - INPUT #1, alieny!(r) - INPUT #1, alienmove(r) - INPUT #1, aliengrap(r) - INPUT #1, alienspeed!(r) - IF alienmove(r) = 1 THEN alieny!(r) = alieny!(r) - 2 - IF alienmove(r) <> 1 THEN alieny!(r) = alieny!(r) - 1 - aliengrap(r) = aliengrap(r) - 1 -NEXT r -FOR r = 1 TO 8 - INPUT #1, floor(r) -NEXT r -CLOSE #1 -land = floor(1) - -RETURN - -REM -Routine to load and grab all sprite/mask etc data- - -grabsprites: -FOR howmany = 1 TO graphics - fa$ = STR$(howmany) + ".spr" - fb$ = RIGHT$(fa$, LEN(fa$) - 1) - f$ = ".\data\" + fb$ - OPEN f$ FOR INPUT AS #1 - FOR x = 1 TO 10 - FOR Y = 1 TO 10 - INPUT #1, grid(x, Y): PSET (x, Y), grid(x, Y) - NEXT Y - NEXT x - CLOSE #1 - GET (1, 1)-(10, 10), sprite(size, spriteno) - IF howmany = 1 THEN GET (1, 1)-(10, 10), greensprite() - FOR x = 1 TO 10 - FOR Y = 1 TO 10 - IF POINT(x, Y) = 0 THEN PSET (x, Y), 255 - NEXT Y - NEXT x - GET (1, 1)-(10, 10), spritemask(size, spriteno) - IF howmany = 1 THEN GET (1, 1)-(10, 10), greenmask() - spriteno = spriteno + 1 -NEXT howmany -CLS -RETURN - -REM -Routine to load pics (Thanks DUDE !) - -picture: - -FOR a% = 0 TO 7: shiftout%(8 - a%) = 2 ^ a%: NEXT a% -FOR a% = 0 TO 11: powersof2(a%) = 2 ^ a%: NEXT a% -OPEN pic$ FOR BINARY AS #1 -pic$ = " ": GET #1, , pic$ -GET #1, , TotalX: GET #1, , TotalY: GOSUB GetByte -NumColors = 2 ^ ((a% AND 7) + 1): nopalette = (a% AND 128) = 0 -GOSUB GetByte: Background = a% -GOSUB GetByte: IF a% <> 0 THEN PRINT "Bad screen descriptor.": END -IF nopalette = 0 THEN p$ = SPACE$(NumColors * 3): GET #1, , p$ -DO - GOSUB GetByte - IF a% = 44 THEN - EXIT DO - ELSEIF a% <> 33 THEN - PRINT "Unknown extension type.": END - END IF - GOSUB GetByte - DO: GOSUB GetByte: pic$ = SPACE$(a%): GET #1, , pic$: LOOP UNTIL a% = 0 -LOOP -GET #1, , XStart: GET #1, , YStart: GET #1, , XLength: GET #1, , YLength -XEnd = XStart + XLength: YEnd = YStart + YLength: GOSUB GetByte -IF a% AND 128 THEN PRINT "Can't handle local colormaps.": END -Interlaced = a% AND 64: PassNumber = 0: PassStep = 8 -GOSUB GetByte -ClearCode = 2 ^ a% -EOSCode = ClearCode + 1 -FirstCode = ClearCode + 2: NextCode = FirstCode -StartCodeSize = a% + 1: CodeSize = StartCodeSize -StartMaxCode = 2 ^ (a% + 1) - 1: MaxCode = StartMaxCode - -BitsIn = 0: BlockSize = 0: BlockPointer = 1 -x% = XStart: Y% = YStart: Ybase = Y% * 320& - -SCREEN 13: DEF SEG = &HA000 -IF nopalette = 0 THEN - OUT &H3C7, 0: OUT &H3C8, 0 - FOR a% = 1 TO NumColors * 3: OUT &H3C9, ASC(MID$(p$, a%, 1)) \ 4: NEXT a% -END IF -LINE (0, 0)-(319, 199), Background, BF -DO - GOSUB GetCode - IF Code <> EOSCode THEN - IF Code = ClearCode THEN - NextCode = FirstCode - CodeSize = StartCodeSize - MaxCode = StartMaxCode - GOSUB GetCode - CurCode = Code: LastCode = Code: LastPixel = Code - IF x% < 320 THEN POKE x% + Ybase, LastPixel - x% = x% + 1: IF x% = XEnd THEN GOSUB NextScanLine - ELSE - CurCode = Code: StackPointer = 0 - IF Code > NextCode THEN EXIT DO - IF Code = NextCode THEN - CurCode = LastCode - OutStack(StackPointer) = LastPixel - StackPointer = StackPointer + 1 - END IF - - DO WHILE CurCode >= FirstCode - OutStack(StackPointer) = Suffix(CurCode) - StackPointer = StackPointer + 1 - CurCode = Prefix(CurCode) - LOOP - - LastPixel = CurCode - IF x% < 320 THEN POKE x% + Ybase, LastPixel - x% = x% + 1: IF x% = XEnd THEN GOSUB NextScanLine - - FOR a% = StackPointer - 1 TO 0 STEP -1 - IF x% < 320 THEN POKE x% + Ybase, OutStack(a%) - x% = x% + 1: IF x% = XEnd THEN GOSUB NextScanLine - NEXT a% - - IF NextCode < 4096 THEN - Prefix(NextCode) = LastCode - Suffix(NextCode) = LastPixel - NextCode = NextCode + 1 - IF NextCode > MaxCode AND CodeSize < 12 THEN - CodeSize = CodeSize + 1 - MaxCode = MaxCode * 2 + 1 - END IF - END IF - LastCode = Code - END IF - END IF -LOOP UNTIL doneflag OR Code = EOSCode - - - -CLOSE #1 -doneflag = 0 -RETURN - - -GetByte: pic$ = " ": GET #1, , pic$: a% = ASC(pic$): RETURN - -NextScanLine: -IF Interlaced THEN - Y% = Y% + PassStep - IF Y% >= YEnd THEN - PassNumber = PassNumber + 1 - SELECT CASE PassNumber - CASE 1: Y% = 4: PassStep = 8 - CASE 2: Y% = 2: PassStep = 4 - CASE 3: Y% = 1: PassStep = 2 - END SELECT - END IF -ELSE - Y% = Y% + 1 -END IF -x% = XStart: Ybase = Y% * 320&: doneflag = Y% > 199 -RETURN -GetCode: -IF BitsIn = 0 THEN GOSUB ReadBufferedByte: LastChar = a%: BitsIn = 8 -WorkCode = LastChar \ shiftout%(BitsIn) -DO WHILE CodeSize > BitsIn - GOSUB ReadBufferedByte: LastChar = a% - WorkCode = WorkCode OR LastChar * powersof2(BitsIn) - BitsIn = BitsIn + 8 -LOOP -BitsIn = BitsIn - CodeSize -Code = WorkCode AND MaxCode -RETURN -ReadBufferedByte: -IF BlockPointer > BlockSize THEN - GOSUB GetByte: BlockSize = a% - pic$ = SPACE$(BlockSize): GET #1, , pic$ - BlockPointer = 1 -END IF -a% = ASC(MID$(pic$, BlockPointer, 1)): BlockPointer = BlockPointer + 1 -RETURN - - -REM - I Guess this is the end (FOR NOW!) - - - -SUB playsfx (sfx$) - -chan = VAL(MID$(sfx$, 61, 4)) -FOR in = 1 TO 60 STEP 4 - reg$ = MID$(c$(chan), in, 4): reg = VAL(reg$) - dat$ = MID$(sfx$, in, 4): dat = VAL(dat$) - OUT &H388, reg: FOR i1 = 1 TO 6: p = INP(&H388): NEXT - OUT &H389, dat: FOR i1 = 1 TO 35: p = INP(&H388): NEXT -NEXT - -END SUB - diff --git a/programs/samples/pete/booger/data/1.spr b/programs/samples/pete/booger/data/1.spr deleted file mode 100644 index 4a5d18f56..000000000 --- a/programs/samples/pete/booger/data/1.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 26 - 26 - 26 - 0 - 0 - 0 - 0 - 0 - 0 - 20 - 8 - 8 - 26 - 1 - 1 - 10 - 4 - 4 - 20 - 20 - 8 - 8 - 26 - 1 - 10 - 10 - 4 - 4 - 9 - 20 - 20 - 20 - 0 - 1 - 65 - 65 - 0 - 4 - 9 - 9 - 9 - 20 - 0 - 0 - 65 - 0 - 0 - 4 - 0 - 20 - 9 - 20 - 0 - 0 - 0 - 0 - 0 - 65 - 0 - 0 - 20 - 20 - 0 - 0 - 0 - 0 - 0 - 0 - 20 - 20 - 26 - 26 - 26 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 20 - 20 - 26 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 26 diff --git a/programs/samples/pete/booger/data/10.spr b/programs/samples/pete/booger/data/10.spr deleted file mode 100644 index 0e299f020..000000000 --- a/programs/samples/pete/booger/data/10.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 0 - 0 - 0 - 16 - 16 - 16 - 16 - 16 - 16 - 16 - 16 - 0 - 0 - 16 - 19 - 19 - 19 - 19 - 19 - 19 - 16 - 16 - 19 - 19 - 17 - 17 - 17 - 17 - 17 - 17 - 19 - 19 - 19 - 21 - 4 - 17 - 14 - 17 - 10 - 17 - 21 - 17 - 21 - 21 - 4 - 17 - 14 - 17 - 10 - 17 - 21 - 17 - 21 - 24 - 17 - 17 - 17 - 17 - 17 - 17 - 24 - 24 - 24 - 16 - 24 - 24 - 24 - 24 - 24 - 24 - 16 - 16 - 24 - 16 - 16 - 16 - 16 - 16 - 16 - 16 - 16 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/11.spr b/programs/samples/pete/booger/data/11.spr deleted file mode 100644 index 1e49e731d..000000000 --- a/programs/samples/pete/booger/data/11.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 65 - 0 - 0 - 0 - 0 - 0 - 26 - 26 - 26 - 0 - 65 - 4 - 4 - 0 - 0 - 20 - 8 - 8 - 26 - 0 - 0 - 0 - 0 - 4 - 20 - 20 - 8 - 8 - 26 - 1 - 10 - 10 - 10 - 4 - 9 - 20 - 20 - 20 - 0 - 1 - 65 - 65 - 4 - 4 - 9 - 9 - 9 - 20 - 0 - 1 - 65 - 65 - 4 - 4 - 0 - 20 - 9 - 20 - 0 - 1 - 10 - 10 - 10 - 4 - 0 - 0 - 20 - 20 - 0 - 0 - 0 - 0 - 4 - 0 - 20 - 20 - 26 - 26 - 26 - 0 - 0 - 65 - 0 - 0 - 0 - 0 - 20 - 20 - 26 - 0 - 0 - 65 - 0 - 0 - 0 - 0 - 8 - 8 - 26 diff --git a/programs/samples/pete/booger/data/12.spr b/programs/samples/pete/booger/data/12.spr deleted file mode 100644 index f41356cd1..000000000 --- a/programs/samples/pete/booger/data/12.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 1 - 1 - 10 - 0 - 0 - 0 - 7 - 8 - 8 - 1 - 1 - 65 - 65 - 4 - 4 - 0 - 7 - 22 - 8 - 1 - 10 - 65 - 65 - 4 - 4 - 9 - 7 - 7 - 28 - 0 - 0 - 65 - 4 - 4 - 9 - 9 - 20 - 20 - 0 - 0 - 0 - 0 - 65 - 4 - 20 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 65 - 0 - 20 - 20 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 28 - 21 - 22 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 28 - 22 - 22 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 28 - 28 - 28 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/13.spr b/programs/samples/pete/booger/data/13.spr deleted file mode 100644 index 6fb39483c..000000000 --- a/programs/samples/pete/booger/data/13.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 4 - 0 - 4 - 0 - 0 - 0 - 4 - 4 - 0 - 4 - 4 - 4 - 4 - 4 - 4 - 0 - 0 - 4 - 4 - 15 - 0 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 4 - 15 - 15 - 4 - 10 - 4 - 4 - 0 - 4 - 4 - 4 - 4 - 4 - 4 - 10 - 10 - 4 - 4 - 0 - 0 - 4 - 4 - 4 - 4 - 10 - 10 - 4 - 0 - 0 - 4 - 0 - 15 - 0 - 4 - 10 - 4 - 4 - 0 - 4 - 4 - 4 - 15 - 15 - 4 - 4 - 4 - 0 - 4 - 0 - 0 - 0 - 4 - 4 - 4 - 0 - 4 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 4 - 0 - 4 - 0 - 0 diff --git a/programs/samples/pete/booger/data/14.spr b/programs/samples/pete/booger/data/14.spr deleted file mode 100644 index b6de202cb..000000000 --- a/programs/samples/pete/booger/data/14.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 4 - 0 - 0 - 4 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 0 - 4 - 0 - 0 - 4 - 4 - 4 - 15 - 15 - 4 - 4 - 4 - 0 - 4 - 0 - 4 - 0 - 15 - 0 - 4 - 10 - 4 - 4 - 0 - 0 - 0 - 4 - 4 - 4 - 4 - 10 - 10 - 4 - 0 - 4 - 4 - 4 - 4 - 4 - 4 - 10 - 10 - 4 - 4 - 0 - 0 - 4 - 15 - 15 - 4 - 10 - 4 - 4 - 0 - 0 - 4 - 4 - 15 - 0 - 4 - 4 - 4 - 0 - 0 - 4 - 4 - 0 - 4 - 4 - 4 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 4 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/15.spr b/programs/samples/pete/booger/data/15.spr deleted file mode 100644 index 6c42fb02a..000000000 --- a/programs/samples/pete/booger/data/15.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 40 - 0 - 0 - 0 - 0 - 0 - 25 - 25 - 4 - 40 - 40 - 0 - 0 - 0 - 4 - 4 - 30 - 30 - 40 - 40 - 40 - 0 - 4 - 4 - 40 - 40 - 30 - 30 - 40 - 40 - 40 - 0 - 40 - 40 - 40 - 40 - 30 - 30 - 40 - 40 - 40 - 0 - 0 - 0 - 40 - 40 - 30 - 30 - 40 - 40 - 40 - 0 - 0 - 0 - 0 - 0 - 30 - 30 - 40 - 40 - 40 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 40 - 40 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 40 diff --git a/programs/samples/pete/booger/data/16.spr b/programs/samples/pete/booger/data/16.spr deleted file mode 100644 index 76d8a6a21..000000000 --- a/programs/samples/pete/booger/data/16.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 9 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 19 - 15 - 9 - 0 - 9 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 9 - 0 - 9 - 0 - 0 - 0 - 0 - 0 - 19 - 15 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 0 diff --git a/programs/samples/pete/booger/data/17.spr b/programs/samples/pete/booger/data/17.spr deleted file mode 100644 index 2b9f69cca..000000000 --- a/programs/samples/pete/booger/data/17.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 9 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 19 - 15 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 9 - 0 - 9 - 0 - 0 - 0 - 0 - 0 - 19 - 15 - 9 - 0 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 0 diff --git a/programs/samples/pete/booger/data/18.spr b/programs/samples/pete/booger/data/18.spr deleted file mode 100644 index 5ed758164..000000000 --- a/programs/samples/pete/booger/data/18.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 0 - 0 - 0 - 14 - 0 - 0 - 0 - 13 - 13 - 0 - 0 - 0 - 5 - 0 - 0 - 0 - 0 - 13 - 0 - 0 - 0 - 9 - 5 - 0 - 20 - 15 - 0 - 13 - 5 - 5 - 9 - 0 - 0 - 5 - 15 - 15 - 5 - 5 - 5 - 5 - 5 - 9 - 0 - 0 - 0 - 0 - 5 - 5 - 5 - 5 - 5 - 9 - 0 - 5 - 15 - 15 - 0 - 13 - 5 - 5 - 9 - 0 - 0 - 5 - 15 - 20 - 0 - 13 - 0 - 0 - 0 - 9 - 0 - 5 - 0 - 0 - 0 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 14 - 0 - 0 - 0 - 13 - 13 - 0 - 0 diff --git a/programs/samples/pete/booger/data/19.spr b/programs/samples/pete/booger/data/19.spr deleted file mode 100644 index 516ba081a..000000000 --- a/programs/samples/pete/booger/data/19.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 14 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 0 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 5 - 15 - 20 - 0 - 13 - 0 - 0 - 9 - 0 - 0 - 5 - 15 - 15 - 0 - 13 - 5 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 5 - 5 - 5 - 9 - 0 - 0 - 5 - 15 - 15 - 5 - 5 - 5 - 5 - 9 - 0 - 5 - 0 - 20 - 15 - 0 - 13 - 5 - 9 - 0 - 0 - 5 - 0 - 0 - 0 - 0 - 13 - 0 - 0 - 9 - 0 - 0 - 14 - 0 - 0 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/2.spr b/programs/samples/pete/booger/data/2.spr deleted file mode 100644 index fffc26baf..000000000 --- a/programs/samples/pete/booger/data/2.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 20 - 7 - 8 - 8 - 1 - 1 - 10 - 4 - 4 - 20 - 20 - 7 - 7 - 7 - 1 - 10 - 10 - 4 - 4 - 9 - 20 - 20 - 20 - 0 - 1 - 65 - 65 - 0 - 4 - 9 - 9 - 9 - 20 - 0 - 0 - 65 - 0 - 4 - 0 - 0 - 20 - 9 - 20 - 0 - 0 - 0 - 0 - 65 - 0 - 0 - 0 - 20 - 20 - 0 - 0 - 0 - 0 - 0 - 21 - 20 - 20 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 20 - 20 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 7 diff --git a/programs/samples/pete/booger/data/20.spr b/programs/samples/pete/booger/data/20.spr deleted file mode 100644 index c3868da1a..000000000 --- a/programs/samples/pete/booger/data/20.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 16 - 16 - 16 - 14 - 16 - 0 - 0 - 0 - 0 - 0 - 16 - 9 - 14 - 14 - 14 - 16 - 0 - 0 - 0 - 16 - 9 - 9 - 22 - 14 - 22 - 23 - 0 - 0 - 16 - 9 - 15 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 16 - 9 - 1 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 16 - 9 - 1 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 0 - 9 - 15 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 0 - 16 - 9 - 9 - 22 - 23 - 23 - 23 - 0 - 0 - 0 - 0 - 16 - 9 - 22 - 23 - 23 - 16 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 22 - 16 - 0 - 0 diff --git a/programs/samples/pete/booger/data/21.spr b/programs/samples/pete/booger/data/21.spr deleted file mode 100644 index bcd0ef5f9..000000000 --- a/programs/samples/pete/booger/data/21.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 16 - 0 - 22 - 16 - 0 - 0 - 0 - 0 - 0 - 16 - 9 - 22 - 23 - 23 - 16 - 0 - 0 - 0 - 16 - 9 - 9 - 22 - 23 - 23 - 23 - 0 - 0 - 0 - 9 - 15 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 16 - 9 - 1 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 16 - 9 - 1 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 16 - 9 - 15 - 1 - 23 - 24 - 23 - 23 - 0 - 0 - 0 - 16 - 9 - 9 - 22 - 14 - 22 - 23 - 0 - 0 - 0 - 0 - 16 - 9 - 14 - 14 - 14 - 16 - 0 - 0 - 0 - 0 - 16 - 16 - 16 - 14 - 16 - 0 - 0 diff --git a/programs/samples/pete/booger/data/22.spr b/programs/samples/pete/booger/data/22.spr deleted file mode 100644 index 4044f47b3..000000000 --- a/programs/samples/pete/booger/data/22.spr +++ /dev/null @@ -1,100 +0,0 @@ - 65 - 65 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 65 - 65 - 4 - 4 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 4 - 4 - 0 - 0 - 9 - 9 - 15 - 1 - 10 - 10 - 10 - 4 - 4 - 9 - 9 - 0 - 0 - 1 - 65 - 0 - 4 - 4 - 4 - 9 - 0 - 0 - 0 - 1 - 65 - 0 - 4 - 4 - 4 - 9 - 0 - 0 - 0 - 1 - 10 - 10 - 10 - 4 - 4 - 9 - 9 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 0 - 0 - 9 - 9 - 15 - 65 - 12 - 4 - 4 - 0 - 0 - 0 - 0 - 15 - 15 - 65 - 65 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 diff --git a/programs/samples/pete/booger/data/23.spr b/programs/samples/pete/booger/data/23.spr deleted file mode 100644 index 225cb81d6..000000000 --- a/programs/samples/pete/booger/data/23.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 33 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 33 - 0 - 43 - 43 - 0 - 15 - 0 - 15 - 15 - 0 - 43 - 43 - 14 - 14 - 43 - 0 - 15 - 15 - 0 - 43 - 43 - 14 - 16 - 14 - 14 - 0 - 0 - 0 - 43 - 14 - 14 - 14 - 16 - 16 - 14 - 0 - 0 - 0 - 14 - 14 - 14 - 14 - 16 - 16 - 14 - 0 - 15 - 15 - 0 - 14 - 14 - 14 - 16 - 14 - 14 - 15 - 15 - 0 - 15 - 0 - 14 - 14 - 14 - 14 - 14 - 0 - 15 - 15 - 0 - 0 - 33 - 0 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 33 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/24.spr b/programs/samples/pete/booger/data/24.spr deleted file mode 100644 index 052bdefb9..000000000 --- a/programs/samples/pete/booger/data/24.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 33 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 33 - 0 - 43 - 43 - 0 - 15 - 15 - 0 - 15 - 0 - 43 - 43 - 14 - 14 - 43 - 0 - 15 - 15 - 0 - 43 - 14 - 14 - 16 - 14 - 14 - 0 - 0 - 0 - 43 - 14 - 14 - 14 - 16 - 16 - 14 - 0 - 0 - 0 - 14 - 14 - 14 - 14 - 16 - 16 - 14 - 0 - 15 - 15 - 0 - 14 - 14 - 14 - 16 - 14 - 14 - 15 - 0 - 15 - 15 - 0 - 14 - 14 - 14 - 14 - 14 - 0 - 15 - 15 - 0 - 0 - 33 - 0 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 33 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/25.spr b/programs/samples/pete/booger/data/25.spr deleted file mode 100644 index 644b2a48c..000000000 --- a/programs/samples/pete/booger/data/25.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 2 - 0 - 2 - 2 - 0 - 0 - 0 - 0 - 0 - 2 - 10 - 2 - 2 - 2 - 2 - 0 - 0 - 0 - 0 - 2 - 10 - 10 - 2 - 10 - 10 - 2 - 2 - 0 - 0 - 2 - 10 - 2 - 10 - 10 - 10 - 10 - 2 - 6 - 2 - 10 - 10 - 10 - 10 - 10 - 2 - 2 - 6 - 6 - 2 - 10 - 10 - 2 - 10 - 10 - 10 - 42 - 42 - 42 - 2 - 10 - 10 - 10 - 2 - 10 - 10 - 2 - 2 - 42 - 2 - 10 - 2 - 10 - 10 - 10 - 2 - 2 - 0 - 42 - 2 - 10 - 10 - 2 - 2 - 10 - 2 - 2 - 0 - 0 - 0 - 2 - 2 - 0 - 0 - 2 - 2 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/26.spr b/programs/samples/pete/booger/data/26.spr deleted file mode 100644 index e8c6a5218..000000000 --- a/programs/samples/pete/booger/data/26.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 9 - 9 - 9 - 9 - 9 - 9 - 9 - 9 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 15 - 15 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 15 - 0 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 8 - 1 - 15 - 0 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 15 - 15 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 diff --git a/programs/samples/pete/booger/data/27.spr b/programs/samples/pete/booger/data/27.spr deleted file mode 100644 index a88cf3042..000000000 --- a/programs/samples/pete/booger/data/27.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 9 - 9 - 9 - 9 - 9 - 9 - 9 - 9 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 15 - 0 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 15 - 15 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 8 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 8 - 8 - 8 - 1 - 15 - 15 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 15 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 diff --git a/programs/samples/pete/booger/data/28.spr b/programs/samples/pete/booger/data/28.spr deleted file mode 100644 index c11971725..000000000 --- a/programs/samples/pete/booger/data/28.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 30 - 30 - 30 - 30 - 30 - 30 - 30 - 30 - 30 - 0 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 0 - 15 - 0 - 28 - 28 - 31 - 31 - 31 - 28 - 28 - 0 - 15 - 15 - 28 - 31 - 0 - 14 - 13 - 31 - 28 - 0 - 28 - 28 - 28 - 31 - 9 - 0 - 13 - 31 - 28 - 0 - 15 - 0 - 28 - 31 - 9 - 0 - 9 - 31 - 28 - 0 - 15 - 15 - 28 - 28 - 15 - 31 - 31 - 28 - 28 - 0 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 0 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 0 - 22 - 22 - 22 - 22 - 22 - 22 - 22 - 22 - 22 diff --git a/programs/samples/pete/booger/data/29.spr b/programs/samples/pete/booger/data/29.spr deleted file mode 100644 index 2b99b75b7..000000000 --- a/programs/samples/pete/booger/data/29.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 30 - 30 - 30 - 30 - 30 - 30 - 30 - 30 - 30 - 0 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 0 - 31 - 15 - 28 - 28 - 31 - 31 - 31 - 28 - 28 - 0 - 31 - 0 - 28 - 31 - 13 - 13 - 0 - 31 - 28 - 0 - 28 - 28 - 28 - 31 - 0 - 0 - 9 - 31 - 28 - 0 - 31 - 15 - 28 - 31 - 14 - 0 - 9 - 31 - 28 - 0 - 31 - 0 - 28 - 28 - 15 - 31 - 31 - 28 - 28 - 0 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 0 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 28 - 0 - 22 - 22 - 22 - 22 - 22 - 22 - 22 - 22 - 22 diff --git a/programs/samples/pete/booger/data/3.spr b/programs/samples/pete/booger/data/3.spr deleted file mode 100644 index a8be83ae1..000000000 --- a/programs/samples/pete/booger/data/3.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 7 - 7 - 7 - 7 - 0 - 0 - 0 - 0 - 15 - 7 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 7 - 7 - 7 - 7 - 7 - 0 - 0 - 0 - 0 - 6 - 6 - 7 - 7 - 7 - 7 - 0 - 0 - 0 - 0 - 6 - 6 - 8 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 6 - 8 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 6 - 8 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 diff --git a/programs/samples/pete/booger/data/30.spr b/programs/samples/pete/booger/data/30.spr deleted file mode 100644 index 812cf4a63..000000000 --- a/programs/samples/pete/booger/data/30.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 21 - 21 - 21 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 21 - 1 - 32 - 1 - 0 - 0 - 15 - 0 - 4 - 4 - 21 - 32 - 32 - 32 - 0 - 15 - 15 - 15 - 4 - 0 - 24 - 1 - 32 - 1 - 0 - 4 - 4 - 4 - 4 - 0 - 24 - 24 - 24 - 0 - 0 - 4 - 4 - 4 - 4 - 4 - 24 - 24 - 24 - 0 - 0 - 15 - 15 - 0 - 4 - 4 - 24 - 1 - 32 - 1 - 0 - 0 - 15 - 15 - 4 - 4 - 27 - 32 - 32 - 32 - 0 - 0 - 0 - 4 - 4 - 4 - 14 - 1 - 32 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 27 - 0 diff --git a/programs/samples/pete/booger/data/31.spr b/programs/samples/pete/booger/data/31.spr deleted file mode 100644 index 95acb0c32..000000000 --- a/programs/samples/pete/booger/data/31.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 21 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 14 - 33 - 1 - 33 - 0 - 0 - 15 - 15 - 4 - 4 - 21 - 1 - 32 - 1 - 0 - 15 - 15 - 0 - 4 - 4 - 24 - 33 - 1 - 33 - 0 - 4 - 4 - 4 - 4 - 0 - 24 - 24 - 24 - 0 - 0 - 4 - 4 - 4 - 4 - 0 - 24 - 24 - 24 - 0 - 0 - 15 - 15 - 15 - 4 - 4 - 24 - 33 - 1 - 33 - 0 - 0 - 15 - 0 - 4 - 4 - 27 - 1 - 32 - 1 - 0 - 0 - 0 - 4 - 4 - 4 - 27 - 33 - 1 - 33 - 0 - 0 - 0 - 0 - 0 - 0 - 27 - 27 - 27 - 0 diff --git a/programs/samples/pete/booger/data/32.spr b/programs/samples/pete/booger/data/32.spr deleted file mode 100644 index 9aaae0a6b..000000000 --- a/programs/samples/pete/booger/data/32.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 10 - 16 - 16 - 10 - 16 - 16 - 10 - 0 - 0 - 0 - 10 - 10 - 16 - 16 - 2 - 10 - 2 - 39 - 39 - 0 - 16 - 10 - 6 - 16 - 16 - 2 - 2 - 39 - 39 - 39 - 16 - 16 - 16 - 6 - 2 - 2 - 2 - 0 - 39 - 39 - 6 - 6 - 6 - 6 - 6 - 2 - 2 - 0 - 0 - 0 - 16 - 16 - 16 - 6 - 2 - 2 - 10 - 0 - 0 - 0 - 16 - 6 - 6 - 16 - 16 - 2 - 2 - 0 - 0 - 9 - 9 - 16 - 16 - 16 - 6 - 10 - 2 - 0 - 9 - 9 - 9 - 16 - 16 - 6 - 2 - 2 - 2 - 0 - 9 - 9 - 16 - 16 - 16 - 16 - 16 - 16 - 2 diff --git a/programs/samples/pete/booger/data/33.spr b/programs/samples/pete/booger/data/33.spr deleted file mode 100644 index b4396f87a..000000000 --- a/programs/samples/pete/booger/data/33.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 24 - 24 - 24 - 24 - 24 - 0 - 0 - 0 - 0 - 24 - 31 - 31 - 31 - 31 - 31 - 24 - 0 - 0 - 0 - 31 - 31 - 27 - 27 - 31 - 31 - 31 - 0 - 0 - 24 - 31 - 27 - 31 - 31 - 31 - 31 - 31 - 24 - 0 - 31 - 31 - 27 - 31 - 31 - 31 - 31 - 31 - 31 - 0 - 31 - 31 - 31 - 31 - 31 - 31 - 27 - 31 - 31 - 0 - 31 - 31 - 31 - 31 - 31 - 31 - 27 - 31 - 31 - 0 - 0 - 31 - 31 - 31 - 27 - 27 - 31 - 31 - 0 - 0 - 0 - 31 - 31 - 31 - 31 - 31 - 31 - 31 - 0 - 0 - 0 - 0 - 31 - 31 - 31 - 31 - 31 - 0 - 0 diff --git a/programs/samples/pete/booger/data/34.spr b/programs/samples/pete/booger/data/34.spr deleted file mode 100644 index 97d3ff0ec..000000000 --- a/programs/samples/pete/booger/data/34.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 24 - 24 - 24 - 24 - 24 - 0 - 0 - 0 - 0 - 24 - 31 - 31 - 31 - 31 - 31 - 24 - 0 - 0 - 0 - 31 - 31 - 31 - 27 - 27 - 31 - 31 - 0 - 0 - 24 - 31 - 31 - 31 - 31 - 31 - 27 - 31 - 24 - 0 - 31 - 31 - 31 - 31 - 31 - 31 - 27 - 31 - 31 - 0 - 31 - 31 - 27 - 31 - 31 - 31 - 31 - 31 - 31 - 0 - 31 - 31 - 27 - 31 - 31 - 31 - 31 - 31 - 31 - 0 - 0 - 31 - 31 - 27 - 27 - 31 - 31 - 31 - 0 - 0 - 0 - 31 - 31 - 31 - 31 - 31 - 31 - 31 - 0 - 0 - 0 - 0 - 31 - 31 - 31 - 31 - 31 - 0 - 0 diff --git a/programs/samples/pete/booger/data/35.spr b/programs/samples/pete/booger/data/35.spr deleted file mode 100644 index 621356086..000000000 --- a/programs/samples/pete/booger/data/35.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 22 - 22 - 0 - 0 - 0 - 0 - 0 - 33 - 0 - 0 - 0 - 22 - 22 - 25 - 25 - 25 - 25 - 33 - 0 - 0 - 0 - 0 - 25 - 31 - 31 - 31 - 31 - 31 - 0 - 25 - 25 - 40 - 31 - 31 - 31 - 31 - 31 - 15 - 40 - 18 - 31 - 9 - 31 - 31 - 31 - 0 - 15 - 15 - 40 - 31 - 0 - 15 - 40 - 15 - 31 - 31 - 31 - 15 - 40 - 18 - 31 - 31 - 9 - 9 - 31 - 31 - 31 - 31 - 40 - 40 - 31 - 0 - 31 - 9 - 31 - 31 - 31 - 31 - 0 - 0 - 0 - 0 - 0 - 40 - 31 - 31 - 31 - 33 - 0 - 0 - 0 - 0 - 0 - 0 - 22 - 22 - 0 - 33 diff --git a/programs/samples/pete/booger/data/36.spr b/programs/samples/pete/booger/data/36.spr deleted file mode 100644 index 0efec21e4..000000000 --- a/programs/samples/pete/booger/data/36.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 31 - 16 - 31 - 0 - 0 - 0 - 0 - 0 - 16 - 16 - 16 - 26 - 16 - 16 - 16 - 16 - 0 - 0 - 16 - 26 - 16 - 26 - 16 - 26 - 16 - 16 - 0 - 31 - 16 - 16 - 28 - 15 - 28 - 0 - 16 - 31 - 0 - 16 - 26 - 26 - 31 - 15 - 15 - 26 - 26 - 16 - 0 - 31 - 16 - 16 - 28 - 15 - 28 - 16 - 16 - 31 - 0 - 0 - 16 - 26 - 16 - 26 - 16 - 26 - 16 - 16 - 0 - 0 - 16 - 16 - 16 - 26 - 16 - 0 - 16 - 16 - 0 - 0 - 0 - 0 - 31 - 16 - 31 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/37.spr b/programs/samples/pete/booger/data/37.spr deleted file mode 100644 index bbbf13c91..000000000 --- a/programs/samples/pete/booger/data/37.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 28 - 28 - 28 - 28 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 28 - 0 - 0 - 0 - 0 - 2 - 0 - 2 - 2 - 2 - 28 - 0 - 0 - 10 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 2 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 2 - 10 - 2 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 2 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 10 - 0 - 0 - 0 - 2 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 diff --git a/programs/samples/pete/booger/data/38.spr b/programs/samples/pete/booger/data/38.spr deleted file mode 100644 index b1ad74266..000000000 --- a/programs/samples/pete/booger/data/38.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 10 - 0 - 2 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 2 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 2 - 10 - 2 - 0 - 2 - 2 - 2 - 2 - 25 - 0 - 0 - 2 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 10 - 0 - 10 - 2 - 2 - 25 - 0 - 2 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 diff --git a/programs/samples/pete/booger/data/39.spr b/programs/samples/pete/booger/data/39.spr deleted file mode 100644 index a90220732..000000000 --- a/programs/samples/pete/booger/data/39.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 10 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 10 - 0 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 2 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 10 - 0 - 0 - 2 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 2 - 10 - 2 - 10 - 2 - 2 - 8 - 0 - 0 - 0 - 0 - 2 - 0 - 2 - 2 - 2 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 diff --git a/programs/samples/pete/booger/data/4.spr b/programs/samples/pete/booger/data/4.spr deleted file mode 100644 index 24bcf7afa..000000000 --- a/programs/samples/pete/booger/data/4.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 50 - 50 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 10 - 40 - 10 - 50 - 0 - 6 - 0 - 0 - 50 - 10 - 10 - 10 - 10 - 6 - 6 - 6 - 0 - 0 - 10 - 40 - 10 - 42 - 42 - 42 - 42 - 42 - 0 - 0 - 2 - 10 - 10 - 40 - 42 - 42 - 42 - 42 - 0 - 0 - 0 - 10 - 10 - 10 - 10 - 2 - 42 - 42 - 0 - 0 - 0 - 2 - 2 - 10 - 40 - 0 - 0 - 42 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/5.spr b/programs/samples/pete/booger/data/5.spr deleted file mode 100644 index 78662e202..000000000 --- a/programs/samples/pete/booger/data/5.spr +++ /dev/null @@ -1,100 +0,0 @@ - 42 - 42 - 42 - 42 - 4 - 40 - 42 - 42 - 42 - 42 - 42 - 4 - 4 - 42 - 4 - 40 - 42 - 4 - 4 - 42 - 42 - 4 - 40 - 42 - 4 - 40 - 42 - 4 - 40 - 42 - 42 - 4 - 40 - 42 - 42 - 42 - 42 - 4 - 40 - 42 - 42 - 4 - 40 - 42 - 4 - 4 - 42 - 4 - 40 - 42 - 42 - 42 - 42 - 42 - 4 - 40 - 42 - 42 - 42 - 42 - 42 - 4 - 4 - 42 - 4 - 40 - 42 - 4 - 4 - 42 - 42 - 4 - 40 - 42 - 4 - 40 - 42 - 4 - 40 - 42 - 42 - 4 - 40 - 42 - 42 - 42 - 42 - 4 - 40 - 42 - 42 - 4 - 40 - 42 - 4 - 40 - 42 - 4 - 40 - 42 diff --git a/programs/samples/pete/booger/data/6.spr b/programs/samples/pete/booger/data/6.spr deleted file mode 100644 index 4beec5c09..000000000 --- a/programs/samples/pete/booger/data/6.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 9 - 9 - 9 - 9 - 9 - 9 - 9 - 9 - 0 - 9 - 1 - 15 - 15 - 15 - 1 - 1 - 1 - 1 - 9 - 1 - 15 - 15 - 0 - 0 - 15 - 1 - 0 - 0 - 1 - 1 - 15 - 15 - 15 - 15 - 15 - 4 - 0 - 0 - 1 - 1 - 1 - 15 - 15 - 15 - 4 - 4 - 4 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 4 - 4 - 4 - 1 - 1 - 1 - 1 - 15 - 15 - 15 - 4 - 4 - 4 - 1 - 1 - 1 - 15 - 15 - 0 - 0 - 15 - 4 - 1 - 1 - 1 - 1 - 15 - 15 - 15 - 15 - 15 - 1 - 1 - 1 - 1 - 0 - 1 - 15 - 15 - 15 - 1 - 1 - 1 - 1 - 0 diff --git a/programs/samples/pete/booger/data/7.spr b/programs/samples/pete/booger/data/7.spr deleted file mode 100644 index 383c91c6e..000000000 --- a/programs/samples/pete/booger/data/7.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 9 - 15 - 15 - 15 - 9 - 9 - 9 - 9 - 0 - 9 - 15 - 15 - 15 - 15 - 15 - 1 - 1 - 1 - 9 - 1 - 15 - 15 - 0 - 0 - 15 - 4 - 1 - 1 - 1 - 1 - 1 - 15 - 15 - 15 - 4 - 4 - 4 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 4 - 4 - 4 - 1 - 1 - 1 - 1 - 15 - 15 - 15 - 4 - 4 - 4 - 1 - 1 - 1 - 15 - 15 - 15 - 15 - 15 - 4 - 0 - 0 - 1 - 1 - 15 - 15 - 0 - 0 - 15 - 1 - 0 - 0 - 1 - 1 - 1 - 15 - 15 - 15 - 1 - 1 - 1 - 1 - 1 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 diff --git a/programs/samples/pete/booger/data/8.spr b/programs/samples/pete/booger/data/8.spr deleted file mode 100644 index ef5000644..000000000 --- a/programs/samples/pete/booger/data/8.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 diff --git a/programs/samples/pete/booger/data/9.spr b/programs/samples/pete/booger/data/9.spr deleted file mode 100644 index ba9a2df10..000000000 --- a/programs/samples/pete/booger/data/9.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/data/99.spr b/programs/samples/pete/booger/data/99.spr deleted file mode 100644 index 15f60d853..000000000 --- a/programs/samples/pete/booger/data/99.spr +++ /dev/null @@ -1,100 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 25 - 25 - 25 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 2 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 2 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 2 - 0 - 2 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 2 - 0 - 0 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 2 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 25 diff --git a/programs/samples/pete/booger/data/complete.bgr b/programs/samples/pete/booger/data/complete.bgr deleted file mode 100644 index afb33dfb0..000000000 Binary files a/programs/samples/pete/booger/data/complete.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/crashed.bgr b/programs/samples/pete/booger/data/crashed.bgr deleted file mode 100644 index 77b068091..000000000 Binary files a/programs/samples/pete/booger/data/crashed.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/crashed1.bgr b/programs/samples/pete/booger/data/crashed1.bgr deleted file mode 100644 index 97068cc1b..000000000 Binary files a/programs/samples/pete/booger/data/crashed1.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/doneit.bgr b/programs/samples/pete/booger/data/doneit.bgr deleted file mode 100644 index e7c147a13..000000000 Binary files a/programs/samples/pete/booger/data/doneit.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/loading.bgr b/programs/samples/pete/booger/data/loading.bgr deleted file mode 100644 index e09f2aaeb..000000000 Binary files a/programs/samples/pete/booger/data/loading.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/noise.set b/programs/samples/pete/booger/data/noise.set deleted file mode 100644 index af33c5173..000000000 --- a/programs/samples/pete/booger/data/noise.set +++ /dev/null @@ -1,26 +0,0 @@ -"&H00&H00&H00&H00&H00&HF0&H5C&H78&H06&H0F&HC0&H0E&H00&H03&H37&H0" -"&H00&HC0&H40&H00&H00&HC1&HC5&HB4&HD4&H74&HC0&H00&H00&H00&H21&H1" -"&H00&H0C&H01&H06&H02&H5E&H8D&H5B&H9F&H80&HC0&H08&H00&H00&H36&H4" -"&H00&H03&H03&H00&H03&HF2&HE3&H23&H25&H25&HC0&H00&H00&H00&H3F&H3" -"&H00&H80&H00&H00&H00&HF0&HB9&HA2&H04&H89&HC0&H0E&H00&H00&H20&H1" -"&H00&H00&H00&H00&H00&H82&H34&HA2&HC7&H89&HC0&H02&H00&H02&H24&H0" -"&H00&H00&H00&H03&H00&H42&H81&HA9&H23&H06&HC0&H06&H01&H01&H2A&H3" -"&H00&H00&H00&H03&H03&H82&H75&HA9&H28&H25&HC0&H02&H00&H00&H3F&H0" -"&H00&H00&H00&H03&H03&H82&H75&HA4&H24&H25&HC0&H04&H00&H00&H2F&H0" -"&H00&H0F&H00&H03&H03&H82&H72&HA9&H28&H25&HC0&H0E&H03&H03&H3F&H0" -"&H00&H04&H00&H00&H00&H85&H00&HCF&H00&HFF&HC0&H09&H01&H00&H33&H0" -"&H00&H06&H00&H03&H03&HEC&HE2&H28&H28&H00&HC0&H01&H00&H00&H39&H0" -"&H00&H00&H00&H03&H03&H82&H73&HA9&H28&H25&HC0&H04&H01&H03&H23&H0" -"&H00&H40&H00&H00&H00&H45&HC2&H64&H04&HF4&HC0&H00&H00&H03&H25&H0" -"&H00&H00&H00&H03&H00&HA3&H54&HA5&HA6&HDC&HC0&H00&H00&H00&H27&H0" -"&H00&H00&H00&H03&H03&H64&H65&HA9&H68&H25&HC0&H05&H01&H01&H33&H0" -"&H00&HC0&HC0&H03&H03&H64&H65&HA9&H68&H25&HC0&H05&H01&H01&H33&H0" -"&H00&H00&H00&H00&H03&H56&H65&HAB&HA1&H25&HC0&H00&H00&H00&H27&H0" -"&H00&H00&H00&H00&H03&H4D&HAC&H49&H18&H25&HC0&H02&H01&H01&H3B&H0" -"&H00&H00&H00&H00&H00&HA4&H10&H49&H58&H89&HC0&H01&H01&H03&H24&H1" -"&H00&H00&H00&H00&H00&H82&H34&HA2&HC7&H89&HC0&H0E&H00&H03&H20&H0" -"&H00&H00&H00&H00&H1E&H49&H88&H5B&H2F&H00&HC0&H07&H03&H00&H2E&H0" -"&H00&H00&H00&H00&H1E&H55&H88&H5B&H2F&H00&HC0&H07&H03&H00&H2E&H0" -"&H00&H00&H00&H06&H02&H55&H8D&H5B&H9F&HCF&HC0&H08&H00&H00&H38&H0" -"&H00&HC1&HC0&H0C&H11&HA0&H30&H5B&H9F&HCF&HC0&H08&H00&H00&H30&H1" -"&H00&H00&H00&H00&H00&H00&H00&H00&H00&H00&HC0&H00&H00&H00&H20&H1" diff --git a/programs/samples/pete/booger/data/title.bgr b/programs/samples/pete/booger/data/title.bgr deleted file mode 100644 index aa04209d2..000000000 Binary files a/programs/samples/pete/booger/data/title.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/title1.bgr b/programs/samples/pete/booger/data/title1.bgr deleted file mode 100644 index 8cc8c5718..000000000 Binary files a/programs/samples/pete/booger/data/title1.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/title2.bgr b/programs/samples/pete/booger/data/title2.bgr deleted file mode 100644 index 48cb96111..000000000 Binary files a/programs/samples/pete/booger/data/title2.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/title3.bgr b/programs/samples/pete/booger/data/title3.bgr deleted file mode 100644 index a5cfab256..000000000 Binary files a/programs/samples/pete/booger/data/title3.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/title4.bgr b/programs/samples/pete/booger/data/title4.bgr deleted file mode 100644 index 3e47b6de0..000000000 Binary files a/programs/samples/pete/booger/data/title4.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/data/totalled.bgr b/programs/samples/pete/booger/data/totalled.bgr deleted file mode 100644 index 2710bb5c9..000000000 Binary files a/programs/samples/pete/booger/data/totalled.bgr and /dev/null differ diff --git a/programs/samples/pete/booger/levels/1.lev b/programs/samples/pete/booger/levels/1.lev deleted file mode 100644 index aa8bb47ed..000000000 --- a/programs/samples/pete/booger/levels/1.lev +++ /dev/null @@ -1,259 +0,0 @@ -Easy Street Dude !!! - 149 - 33 - 0 - 4 - 0 - 79 - 83 - 0 - 4 - 0 - 223 - 83 - 0 - 3 - 0 - 234 - 83 - 0 - 4 - 0 - 110 - 133 - 0 - 4 - 0 - 198 - 133 - 0 - 25 - 0 - 64 - 183 - 0 - 25 - 0 - 243 - 183 - 0 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 33 - 1 - 105 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/10.lev b/programs/samples/pete/booger/levels/10.lev deleted file mode 100644 index f17029287..000000000 --- a/programs/samples/pete/booger/levels/10.lev +++ /dev/null @@ -1,259 +0,0 @@ -Mutated Floppy's WOW ! - 99 - 33 - 0 - 5 - 0 - 214 - 33 - 0 - 5 - 0 - 51 - 83 - 0 - 5 - 0 - 51 - 83 - 0 - 5 - 0 - 261 - 133 - 0 - 5 - 0 - 149 - 183 - 0 - 5 - 0 - 149 - 183 - 0 - 5 - 0 - 126 - 33 - 2 - 26 - .5 - 72 - 83 - 2 - 26 - .8 - 163 - 83 - 2 - 26 --.8 - 265 - 83 - 2 - 26 --1 - 24 - 133 - 2 - 26 - 2 - 219 - 167 - 1 - 26 - .4 - 233 - 167 - 1 - 26 - .5 - 247 - 167 - 1 - 26 - .6 - 260 - 167 - 1 - 26 - .7 - 58 - 183 - 2 - 26 - .1 - 135 - 114 - 1 - 26 - .5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 48 - 2 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/11.lev b/programs/samples/pete/booger/levels/11.lev deleted file mode 100644 index 069d847d5..000000000 --- a/programs/samples/pete/booger/levels/11.lev +++ /dev/null @@ -1,259 +0,0 @@ -Watch the drops dude !! - 112 - 43 - 0 - 9 - 0 - 122 - 43 - 0 - 9 - 0 - 132 - 43 - 0 - 9 - 0 - 144 - 93 - 0 - 9 - 0 - 134 - 93 - 0 - 9 - 0 - 124 - 93 - 0 - 9 - 0 - 174 - 93 - 0 - 9 - 0 - 184 - 93 - 0 - 9 - 0 - 194 - 93 - 0 - 9 - 0 - 203 - 33 - 0 - 10 - 0 - 160 - 133 - 0 - 10 - 0 - 159 - 68 - 1 - 13 - .2 - 52 - 68 - 1 - 13 - .7 - 6 - 133 - 0 - 15 - 0 - 304 - 133 - 0 - 15 - 0 - 26 - 133 - 2 - 16 - .3 - 142 - 133 - 2 - 16 --.2 - 207 - 116 - 1 - 16 - .5 - 261 - 115 - 1 - 16 --.6 - 290 - 20 - 2 - 20 --2 - 17 - 9 - 2 - 20 - 4 - 159 - 182 - 2 - 20 - 1 - 159 - 170 - 2 - 20 --2 - 159 - 158 - 2 - 20 - 3 - 48 - 33 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 42 - 42 - 6 - 114 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/12.lev b/programs/samples/pete/booger/levels/12.lev deleted file mode 100644 index 3c9e16fac..000000000 --- a/programs/samples/pete/booger/levels/12.lev +++ /dev/null @@ -1,259 +0,0 @@ -Dude - Washing Day Blues ! - 13 - 83 - 2 - 28 - 1 - 95 - 83 - 2 - 28 - 1 - 173 - 83 - 2 - 28 - .6 - 259 - 83 - 2 - 28 - .6 - 150 - 33 - 2 - 28 - 1 - 75 - 133 - 0 - 25 - 0 - 152 - 133 - 0 - 25 - 0 - 227 - 133 - 0 - 25 - 0 - 153 - 118 - 2 - 20 - 2 - 153 - 109 - 2 - 20 --3 - 110 - 20 - 2 - 20 - 2 - 227 - 33 - 0 - 8 - 0 - 237 - 33 - 0 - 8 - 0 - 247 - 33 - 0 - 8 - 0 - 251 - 33 - 0 - 8 - 0 - 93 - 167 - 1 - 6 - .2 - 153 - 166 - 1 - 6 - .3 - 213 - 167 - 1 - 6 - .1 - 299 - 183 - 0 - 10 - 0 - 189 - 183 - 0 - 8 - 0 - 131 - 183 - 0 - 8 - 0 - 72 - 183 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 44 - 115 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/13.lev b/programs/samples/pete/booger/levels/13.lev deleted file mode 100644 index 201325422..000000000 --- a/programs/samples/pete/booger/levels/13.lev +++ /dev/null @@ -1,259 +0,0 @@ -Flying Thing's ENCOUNTER 2 - 69 - 33 - 0 - 5 - 0 - 235 - 33 - 0 - 5 - 0 - 138 - 83 - 0 - 8 - 0 - 150 - 93 - 0 - 9 - 0 - 150 - 93 - 0 - 9 - 0 - 160 - 93 - 0 - 9 - 0 - 160 - 93 - 0 - 9 - 0 - 42 - 133 - 0 - 4 - 0 - 76 - 133 - 0 - 4 - 0 - 111 - 133 - 0 - 4 - 0 - 177 - 133 - 0 - 15 - 0 - 229 - 133 - 0 - 25 - 0 - 295 - 133 - 0 - 25 - 0 - 281 - 70 - 2 - 18 --.6 - 89 - 33 - 2 - 16 - .2 - 215 - 33 - 2 - 16 --.2 - 155 - 91 - 1 - 20 - .3 - 57 - 165 - 1 - 18 - .5 - 134 - 164 - 1 - 18 - .6 - 216 - 164 - 1 - 18 - .7 - 286 - 183 - 2 - 16 --.5 - 56 - 83 - 2 - 13 - .3 - 89 - 183 - 0 - 8 - 0 - 95 - 183 - 0 - 8 - 0 - 169 - 183 - 0 - 8 - 0 - 176 - 183 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 21 - 20 - 19 - 18 - 17 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/14.lev b/programs/samples/pete/booger/levels/14.lev deleted file mode 100644 index f80a14939..000000000 --- a/programs/samples/pete/booger/levels/14.lev +++ /dev/null @@ -1,259 +0,0 @@ -SNOW ??? in July ??? WOW!! - 88 - 33 - 0 - 35 - 0 - 224 - 83 - 0 - 35 - 0 - 40 - 133 - 0 - 35 - 0 - 40 - 133 - 0 - 35 - 0 - 146 - 183 - 0 - 35 - 0 - 60 - 133 - 2 - 33 - 1 - 130 - 83 - 2 - 33 - 2 - 124 - 33 - 2 - 33 - 1.5 - 289 - 67 - 2 - 20 --.5 - 11 - 116 - 2 - 20 - .6 - 292 - 167 - 2 - 20 --.8 - 170 - 183 - 2 - 33 - .5 - 121 - 183 - 2 - 33 --.8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 31 - 31 - 27 - 24 - 20 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/15.lev b/programs/samples/pete/booger/levels/15.lev deleted file mode 100644 index 8fadbef04..000000000 --- a/programs/samples/pete/booger/levels/15.lev +++ /dev/null @@ -1,259 +0,0 @@ -Still blinking cold !! - 47 - 33 - 0 - 8 - 0 - 104 - 33 - 0 - 8 - 0 - 157 - 33 - 0 - 8 - 0 - 213 - 33 - 0 - 35 - 0 - 307 - 33 - 0 - 35 - 0 - 83 - 83 - 0 - 35 - 0 - 216 - 133 - 0 - 35 - 0 - 217 - 183 - 0 - 35 - 0 - 263 - 183 - 0 - 35 - 0 - 108 - 83 - 2 - 33 - 2 - 10 - 133 - 2 - 33 - 2 - 123 - 183 - 2 - 33 - .8 - 110 - 183 - 2 - 33 --.8 - 116 - 157 - 1 - 33 - .5 - 43 - 66 - 1 - 33 - .3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 31 - 31 - 26 - 23 - 20 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/16.lev b/programs/samples/pete/booger/levels/16.lev deleted file mode 100644 index b884d1b26..000000000 --- a/programs/samples/pete/booger/levels/16.lev +++ /dev/null @@ -1,259 +0,0 @@ -Watch out for the ACID !!! - 64 - 83 - 0 - 32 - 0 - 151 - 33 - 0 - 32 - 0 - 151 - 83 - 0 - 37 - 0 - 151 - 83 - 0 - 37 - 0 - 161 - 83 - 0 - 39 - 0 - 131 - 133 - 0 - 37 - 0 - 141 - 133 - 0 - 39 - 0 - 137 - 187 - 0 - 37 - 0 - 147 - 187 - 0 - 38 - 0 - 157 - 187 - 0 - 39 - 0 - 290 - 16 - 2 - 20 --2 - 20 - 118 - 2 - 20 - 2 - 212 - 167 - 1 - 26 - .3 - 229 - 167 - 1 - 26 - .3 - 246 - 167 - 1 - 26 - .5 - 263 - 167 - 1 - 26 --.2 - 305 - 83 - 0 - 25 - 0 - 162 - 133 - 2 - 18 - .7 - 132 - 33 - 2 - 18 --.2 - 56 - 166 - 1 - 18 - .4 - 111 - 67 - 1 - 13 - .4 - 232 - 65 - 1 - 13 --.4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 47 - 2 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/17.lev b/programs/samples/pete/booger/levels/17.lev deleted file mode 100644 index 8d78daca4..000000000 --- a/programs/samples/pete/booger/levels/17.lev +++ /dev/null @@ -1,259 +0,0 @@ -Hey New Yellow Duders !! - 71 - 83 - 0 - 15 - 0 - 110 - 83 - 0 - 15 - 0 - 150 - 83 - 0 - 15 - 0 - 190 - 83 - 0 - 15 - 0 - 234 - 83 - 0 - 15 - 0 - 271 - 33 - 0 - 8 - 0 - 271 - 33 - 0 - 8 - 0 - 281 - 33 - 0 - 8 - 0 - 291 - 33 - 0 - 8 - 0 - 62 - 183 - 0 - 3 - 0 - 73 - 183 - 0 - 4 - 0 - 240 - 183 - 0 - 4 - 0 - 251 - 183 - 0 - 3 - 0 - 131 - 33 - 2 - 23 - .5 - 254 - 133 - 2 - 23 --1.5 - 119 - 166 - 1 - 23 - .4 - 156 - 165 - 1 - 23 - .8 - 196 - 166 - 1 - 23 - .2 - 95 - 143 - 0 - 9 - 0 - 105 - 143 - 0 - 9 - 0 - 105 - 143 - 0 - 9 - 0 - 149 - 117 - 2 - 20 - 1 - 282 - 87 - 0 - 37 - 0 - 292 - 87 - 0 - 39 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 55 - 1 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/18.lev b/programs/samples/pete/booger/levels/18.lev deleted file mode 100644 index 427db7814..000000000 --- a/programs/samples/pete/booger/levels/18.lev +++ /dev/null @@ -1,259 +0,0 @@ -Were getting closer ! - 55 - 93 - 0 - 9 - 0 - 65 - 92 - 0 - 9 - 0 - 156 - 91 - 0 - 9 - 0 - 165 - 90 - 0 - 9 - 0 - 217 - 142 - 0 - 9 - 0 - 226 - 141 - 0 - 9 - 0 - 148 - 133 - 0 - 25 - 0 - 161 - 91 - 1 - 20 - 1 - 60 - 93 - 1 - 20 --1 - 93 - 183 - 2 - 23 - 1 - 221 - 141 - 1 - 20 - .6 - 302 - 83 - 0 - 10 - 0 - 218 - 83 - 0 - 10 - 0 - 262 - 69 - 1 - 13 - .5 - 0 - 0 - 0 - 0 - 1 - 302 - 33 - 0 - 25 - 0 - 159 - 183 - 0 - 25 - 0 - 202 - 183 - 0 - 25 - 0 - 74 - 33 - 0 - 15 - 0 - 126 - 33 - 2 - 16 - .3 - 52 - 142 - 0 - 9 - 0 - 60 - 143 - 0 - 9 - 0 - 70 - 143 - 0 - 9 - 0 - 304 - 183 - 0 - 8 - 0 - 114 - 117 - 1 - 13 - .1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 19 - 19 - 21 - 1 - 21 - 19 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/19.lev b/programs/samples/pete/booger/levels/19.lev deleted file mode 100644 index f3d98ea63..000000000 --- a/programs/samples/pete/booger/levels/19.lev +++ /dev/null @@ -1,259 +0,0 @@ -Hey Weird Motorised Dudes ! - 150 - 33 - 0 - 25 - 0 - 150 - 83 - 0 - 25 - 0 - 150 - 133 - 0 - 25 - 0 - 150 - 183 - 0 - 25 - 0 - 172 - 33 - 2 - 30 - 1 - 236 - 83 - 2 - 30 - 1 - 292 - 133 - 2 - 30 --2 - 237 - 183 - 2 - 30 --1 - 36 - 83 - 2 - 30 - .5 - 94 - 133 - 2 - 30 - 1 - 36 - 183 - 2 - 30 --.8 - 303 - 83 - 0 - 8 - 0 - 5 - 83 - 0 - 8 - 0 - 6 - 183 - 0 - 8 - 0 - 65 - 37 - 0 - 37 - 0 - 75 - 37 - 0 - 39 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 32 - 1 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/2.lev b/programs/samples/pete/booger/levels/2.lev deleted file mode 100644 index ac5622111..000000000 --- a/programs/samples/pete/booger/levels/2.lev +++ /dev/null @@ -1,259 +0,0 @@ -Where are all these Aliens ?!? - 89 - 33 - 0 - 3 - 0 - 99 - 33 - 0 - 25 - 0 - 211 - 33 - 0 - 25 - 0 - 153 - 83 - 0 - 25 - 0 - 63 - 83 - 0 - 25 - 0 - 105 - 133 - 0 - 25 - 0 - 243 - 83 - 0 - 25 - 0 - 200 - 133 - 0 - 3 - 0 - 200 - 133 - 0 - 3 - 0 - 211 - 133 - 0 - 4 - 0 - 211 - 133 - 0 - 4 - 0 - 142 - 183 - 0 - 4 - 0 - 142 - 183 - 0 - 4 - 0 - 152 - 183 - 0 - 4 - 0 - 261 - 183 - 0 - 25 - 0 - 28 - 183 - 0 - 25 - 0 - 28 - 183 - 0 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 32 - 1 - 105 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/20.lev b/programs/samples/pete/booger/levels/20.lev deleted file mode 100644 index 178af2c8b..000000000 --- a/programs/samples/pete/booger/levels/20.lev +++ /dev/null @@ -1,259 +0,0 @@ -Were even closer now dude !!! - 157 - 83 - 2 - 20 - 3 - 77 - 117 - 1 - 20 - .4 - 92 - 117 - 1 - 20 - .5 - 108 - 117 - 1 - 20 - .6 - 205 - 117 - 1 - 20 --.5 - 222 - 117 - 1 - 20 --.6 - 239 - 117 - 1 - 20 --.7 - 204 - 143 - 0 - 9 - 0 - 209 - 143 - 0 - 9 - 0 - 200 - 143 - 0 - 9 - 0 - 77 - 33 - 0 - 10 - 0 - 157 - 33 - 0 - 10 - 0 - 239 - 33 - 0 - 10 - 0 - 65 - 183 - 0 - 10 - 0 - 182 - 183 - 0 - 10 - 0 - 95 - 183 - 2 - 6 - .6 - 288 - 183 - 0 - 4 - 0 - 298 - 183 - 0 - 3 - 0 - 151 - 133 - 0 - 8 - 0 - 161 - 133 - 0 - 8 - 0 - 301 - 83 - 0 - 25 - 0 - 200 - 33 - 0 - 8 - 0 - 117 - 33 - 0 - 8 - 0 - 267 - 167 - 1 - 13 - .1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 117 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/21.lev b/programs/samples/pete/booger/levels/21.lev deleted file mode 100644 index 8b638a57b..000000000 --- a/programs/samples/pete/booger/levels/21.lev +++ /dev/null @@ -1,259 +0,0 @@ -Things are VERY quiet ?? - 49 - 83 - 0 - 10 - 0 - 100 - 83 - 0 - 10 - 0 - 149 - 83 - 0 - 10 - 0 - 203 - 83 - 0 - 10 - 0 - 254 - 83 - 0 - 10 - 0 - 135 - 137 - 0 - 37 - 0 - 135 - 137 - 0 - 37 - 0 - 145 - 137 - 0 - 38 - 0 - 155 - 137 - 0 - 39 - 0 - 235 - 133 - 0 - 37 - 0 - 245 - 133 - 0 - 39 - 0 - 48 - 183 - 0 - 37 - 0 - 58 - 183 - 0 - 39 - 0 - 139 - 33 - 0 - 37 - 0 - 149 - 33 - 0 - 39 - 0 - 161 - 183 - 2 - 30 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/22.lev b/programs/samples/pete/booger/levels/22.lev deleted file mode 100644 index e12a7ffcb..000000000 --- a/programs/samples/pete/booger/levels/22.lev +++ /dev/null @@ -1,259 +0,0 @@ -WHooooww Now i know why !!! - 39 - 116 - 1 - 20 - .1 - 53 - 116 - 1 - 20 - .2 - 67 - 116 - 1 - 20 - .3 - 82 - 116 - 1 - 20 - .4 - 98 - 116 - 1 - 20 - .5 - 202 - 115 - 1 - 20 --.5 - 218 - 115 - 1 - 20 --.4 - 235 - 115 - 1 - 20 --.3 - 52 - 83 - 2 - 16 - 1 - 156 - 83 - 2 - 16 --.5 - 263 - 83 - 2 - 16 --1 - 86 - 183 - 2 - 23 - .5 - 219 - 183 - 2 - 23 --.6 - 84 - 33 - 0 - 25 - 0 - 155 - 33 - 0 - 25 - 0 - 228 - 33 - 0 - 25 - 0 - 302 - 133 - 0 - 15 - 0 - 296 - 183 - 0 - 15 - 0 - 254 - 168 - 2 - 20 --.3 - 0 - 0 - 0 - 0 - 0 - 292 - 19 - 2 - 20 --1.5 - 186 - 115 - 1 - 20 - .8 - 170 - 115 - 1 - 20 - .6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 2 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/23.lev b/programs/samples/pete/booger/levels/23.lev deleted file mode 100644 index 5be610a4d..000000000 --- a/programs/samples/pete/booger/levels/23.lev +++ /dev/null @@ -1,259 +0,0 @@ -Things are going great ?!?! - 84 - 33 - 0 - 3 - 0 - 135 - 33 - 0 - 25 - 0 - 135 - 33 - 0 - 25 - 0 - 185 - 33 - 0 - 25 - 0 - 234 - 33 - 0 - 25 - 0 - 285 - 33 - 0 - 25 - 0 - 285 - 33 - 0 - 25 - 0 - 59 - 83 - 0 - 25 - 0 - 124 - 83 - 0 - 25 - 0 - 230 - 83 - 0 - 25 - 0 - 304 - 83 - 0 - 25 - 0 - 143 - 83 - 2 - 26 - .2 - 108 - 143 - 0 - 9 - 0 - 118 - 143 - 0 - 9 - 0 - 215 - 143 - 0 - 9 - 0 - 215 - 143 - 0 - 9 - 0 - 225 - 143 - 0 - 9 - 0 - 225 - 143 - 0 - 9 - 0 - 113 - 140 - 1 - 13 - 2 - 220 - 140 - 1 - 13 --2 - 92 - 66 - 1 - 6 --.2 - 269 - 65 - 1 - 6 - .2 - 291 - 120 - 2 - 20 --1 - 168 - 133 - 0 - 10 - 0 - 95 - 183 - 0 - 15 - 0 - 206 - 183 - 0 - 15 - 0 - 119 - 183 - 2 - 16 - .6 - 267 - 166 - 1 - 6 - .3 - 283 - 166 - 1 - 6 --.5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 37 - 37 - 35 - 107 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/24.lev b/programs/samples/pete/booger/levels/24.lev deleted file mode 100644 index ba6f185bc..000000000 --- a/programs/samples/pete/booger/levels/24.lev +++ /dev/null @@ -1,259 +0,0 @@ -Watch those mobile dudes ! - 44 - 33 - 0 - 25 - 0 - 160 - 33 - 0 - 25 - 0 - 272 - 33 - 0 - 25 - 0 - 103 - 133 - 0 - 25 - 0 - 234 - 133 - 0 - 25 - 0 - 154 - 93 - 0 - 9 - 0 - 164 - 93 - 0 - 9 - 0 - 170 - 92 - 0 - 9 - 0 - 170 - 92 - 0 - 9 - 0 - 154 - 143 - 0 - 9 - 0 - 164 - 141 - 0 - 9 - 0 - 164 - 141 - 0 - 9 - 0 - 171 - 140 - 0 - 9 - 0 - 171 - 140 - 0 - 9 - 0 - 171 - 140 - 0 - 9 - 0 - 171 - 140 - 0 - 9 - 0 - 163 - 107 - 1 - 18 - 1.6 - 220 - 83 - 0 - 25 - 0 - 220 - 83 - 0 - 25 - 0 - 276 - 83 - 0 - 25 - 0 - 276 - 83 - 0 - 25 - 0 - 67 - 83 - 0 - 25 - 0 - 10 - 83 - 2 - 16 - .5 - 178 - 33 - 2 - 16 - .5 - 16 - 183 - 2 - 30 - 1 - 289 - 133 - 2 - 16 --.5 - 101 - 183 - 2 - 30 --1 - 214 - 183 - 2 - 30 --.4 - 253 - 183 - 2 - 30 - .2 - 302 - 183 - 0 - 32 - 0 - 96 - 37 - 0 - 37 - 0 - 106 - 37 - 0 - 39 - 0 - 106 - 37 - 0 - 39 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 23 - 23 - 23 - 20 - 18 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/25.lev b/programs/samples/pete/booger/levels/25.lev deleted file mode 100644 index 391516f8b..000000000 --- a/programs/samples/pete/booger/levels/25.lev +++ /dev/null @@ -1,259 +0,0 @@ -Appliance Attack !!! - 64 - 83 - 0 - 5 - 0 - 253 - 83 - 0 - 5 - 0 - 89 - 83 - 2 - 28 - 1 - 123 - 117 - 1 - 28 - .7 - 230 - 116 - 1 - 28 --.7 - 86 - 133 - 0 - 32 - 0 - 175 - 133 - 0 - 32 - 0 - 263 - 133 - 0 - 32 - 0 - 259 - 33 - 2 - 30 --.8 - 111 - 37 - 0 - 37 - 0 - 121 - 37 - 0 - 38 - 0 - 131 - 37 - 0 - 39 - 0 - 42 - 187 - 0 - 37 - 0 - 52 - 187 - 0 - 39 - 0 - 101 - 187 - 0 - 37 - 0 - 101 - 187 - 0 - 37 - 0 - 111 - 187 - 0 - 38 - 0 - 121 - 187 - 0 - 39 - 0 - 170 - 187 - 0 - 37 - 0 - 180 - 187 - 0 - 39 - 0 - 180 - 187 - 0 - 39 - 0 - 285 - 187 - 0 - 37 - 0 - 295 - 187 - 0 - 39 - 0 - 295 - 187 - 0 - 39 - 0 - 217 - 165 - 1 - 26 - .5 - 253 - 165 - 1 - 26 --.6 - 289 - 65 - 1 - 26 - .8 - 30 - 68 - 1 - 26 --.6 - 23 - 133 - 2 - 16 - .5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 53 - 125 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/26.lev b/programs/samples/pete/booger/levels/26.lev deleted file mode 100644 index 73f2c682d..000000000 --- a/programs/samples/pete/booger/levels/26.lev +++ /dev/null @@ -1,259 +0,0 @@ -Time for another breather !!! - 33 - 83 - 2 - 6 - 1 - 283 - 119 - 2 - 20 --1 - 18 - 169 - 2 - 20 - 2 - 279 - 33 - 2 - 23 --.1 - 263 - 33 - 2 - 23 --.3 - 247 - 33 - 2 - 23 --.5 - 147 - 33 - 0 - 25 - 0 - 149 - 83 - 0 - 25 - 0 - 151 - 133 - 0 - 25 - 0 - 154 - 183 - 0 - 32 - 0 - 154 - 183 - 0 - 32 - 0 - 236 - 183 - 0 - 32 - 0 - 236 - 183 - 0 - 32 - 0 - 303 - 183 - 0 - 32 - 0 - 303 - 183 - 0 - 32 - 0 - 196 - 167 - 1 - 13 - .2 - 39 - 137 - 0 - 37 - 0 - 39 - 137 - 0 - 37 - 0 - 49 - 137 - 0 - 39 - 0 - 49 - 137 - 0 - 39 - 0 - 221 - 87 - 0 - 37 - 0 - 231 - 87 - 0 - 39 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 44 - 44 - 43 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/27.lev b/programs/samples/pete/booger/levels/27.lev deleted file mode 100644 index f2f0400f4..000000000 --- a/programs/samples/pete/booger/levels/27.lev +++ /dev/null @@ -1,259 +0,0 @@ -A need for timing ! - 56 - 33 - 0 - 10 - 0 - 96 - 33 - 0 - 10 - 0 - 134 - 33 - 0 - 10 - 0 - 172 - 33 - 0 - 10 - 0 - 172 - 33 - 0 - 10 - 0 - 211 - 33 - 0 - 10 - 0 - 249 - 33 - 0 - 10 - 0 - 249 - 33 - 0 - 10 - 0 - 78 - 83 - 0 - 15 - 0 - 116 - 83 - 0 - 15 - 0 - 116 - 83 - 0 - 15 - 0 - 155 - 83 - 0 - 15 - 0 - 155 - 83 - 0 - 15 - 0 - 201 - 87 - 0 - 37 - 0 - 211 - 87 - 0 - 39 - 0 - 211 - 87 - 0 - 39 - 0 - 265 - 87 - 0 - 37 - 0 - 265 - 87 - 0 - 37 - 0 - 275 - 87 - 0 - 38 - 0 - 275 - 87 - 0 - 38 - 0 - 285 - 87 - 0 - 39 - 0 - 52 - 133 - 0 - 32 - 0 - 52 - 133 - 0 - 32 - 0 - 95 - 133 - 0 - 25 - 0 - 137 - 117 - 1 - 23 - .4 - 175 - 133 - 0 - 25 - 0 - 223 - 133 - 2 - 26 - .6 - 48 - 183 - 0 - 37 - 0 - 58 - 183 - 0 - 39 - 0 - 105 - 183 - 0 - 37 - 0 - 115 - 183 - 0 - 39 - 0 - 253 - 183 - 0 - 37 - 0 - 263 - 183 - 0 - 38 - 0 - 273 - 183 - 0 - 39 - 0 - 167 - 168 - 1 - 20 - .2 - 186 - 168 - 1 - 20 - .3 - 206 - 168 - 1 - 20 - .4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 36 - 36 - 5 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/28.lev b/programs/samples/pete/booger/levels/28.lev deleted file mode 100644 index 585b3bccf..000000000 --- a/programs/samples/pete/booger/levels/28.lev +++ /dev/null @@ -1,259 +0,0 @@ -Aliens revenge ! - 18 - 83 - 2 - 16 - 1 - 155 - 83 - 2 - 16 --1 - 290 - 83 - 2 - 16 --1 - 42 - 164 - 1 - 16 - .3 - 79 - 164 - 1 - 16 - .5 - 119 - 164 - 1 - 16 - .7 - 160 - 164 - 1 - 16 - .9 - 202 - 164 - 1 - 16 - 1 - 238 - 183 - 0 - 25 - 0 - 301 - 183 - 0 - 25 - 0 - 111 - 143 - 0 - 9 - 0 - 121 - 143 - 0 - 9 - 0 - 121 - 143 - 0 - 9 - 0 - 128 - 143 - 0 - 9 - 0 - 128 - 143 - 0 - 9 - 0 - 204 - 133 - 0 - 4 - 0 - 303 - 133 - 0 - 4 - 0 - 303 - 133 - 0 - 4 - 0 - 235 - 115 - 1 - 20 - .6 - 274 - 114 - 1 - 20 - .3 - 81 - 133 - 2 - 18 - .7 - 95 - 33 - 0 - 15 - 0 - 137 - 33 - 0 - 15 - 0 - 180 - 33 - 0 - 15 - 0 - 224 - 33 - 0 - 15 - 0 - 268 - 33 - 0 - 15 - 0 - 224 - 83 - 0 - 5 - 0 - 94 - 83 - 0 - 5 - 0 - 288 - 65 - 2 - 20 --.9 - 270 - 168 - 1 - 20 --.1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/29.lev b/programs/samples/pete/booger/levels/29.lev deleted file mode 100644 index 1efa1463b..000000000 --- a/programs/samples/pete/booger/levels/29.lev +++ /dev/null @@ -1,259 +0,0 @@ -Total ACID Bath dude !!! - 137 - 187 - 0 - 37 - 0 - 137 - 187 - 0 - 37 - 0 - 147 - 187 - 0 - 38 - 0 - 157 - 187 - 0 - 39 - 0 - 157 - 187 - 0 - 39 - 0 - 44 - 133 - 0 - 32 - 0 - 44 - 133 - 0 - 32 - 0 - 112 - 133 - 0 - 32 - 0 - 112 - 133 - 0 - 32 - 0 - 198 - 133 - 0 - 32 - 0 - 263 - 132 - 0 - 32 - 0 - 263 - 132 - 0 - 32 - 0 - 263 - 133 - 0 - 32 - 0 - 263 - 133 - 0 - 32 - 0 - 64 - 35 - 0 - 37 - 0 - 74 - 35 - 0 - 39 - 0 - 74 - 35 - 0 - 39 - 0 - 141 - 33 - 0 - 37 - 0 - 141 - 33 - 0 - 37 - 0 - 151 - 33 - 0 - 39 - 0 - 213 - 35 - 0 - 37 - 0 - 223 - 35 - 0 - 39 - 0 - 100 - 83 - 0 - 37 - 0 - 100 - 83 - 0 - 37 - 0 - 100 - 83 - 0 - 37 - 0 - 110 - 83 - 0 - 39 - 0 - 179 - 83 - 0 - 37 - 0 - 189 - 83 - 0 - 39 - 0 - 189 - 83 - 0 - 39 - 0 - 216 - 83 - 2 - 30 - .7 - 298 - 33 - 2 - 30 --.6 - 79 - 83 - 2 - 30 --.4 - 146 - 62 - 1 - 26 - .4 - 78 - 117 - 1 - 26 - .5 - 231 - 117 - 1 - 26 --.5 - 178 - 183 - 2 - 16 - .8 - 288 - 183 - 2 - 16 --.6 - 304 - 183 - 0 - 25 - 0 - 304 - 183 - 0 - 25 - 0 - 62 - 167 - 1 - 20 --.6 - 102 - 167 - 1 - 20 - .7 - 288 - 17 - 2 - 20 --1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 1 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/3.lev b/programs/samples/pete/booger/levels/3.lev deleted file mode 100644 index b1c0ec8d1..000000000 --- a/programs/samples/pete/booger/levels/3.lev +++ /dev/null @@ -1,259 +0,0 @@ -Ooooh i'm SOooo Scared !! - 134 - 33 - 0 - 8 - 0 - 144 - 33 - 0 - 8 - 0 - 154 - 33 - 0 - 8 - 0 - 237 - 33 - 0 - 8 - 0 - 247 - 33 - 0 - 8 - 0 - 240 - 83 - 0 - 4 - 0 - 250 - 83 - 0 - 4 - 0 - 45 - 83 - 0 - 3 - 0 - 55 - 83 - 0 - 4 - 0 - 55 - 83 - 0 - 4 - 0 - 86 - 133 - 0 - 25 - 0 - 204 - 133 - 0 - 25 - 0 - 204 - 133 - 0 - 25 - 0 - 17 - 183 - 0 - 25 - 0 - 17 - 183 - 0 - 25 - 0 - 74 - 83 - 2 - 16 - .6 - 286 - 183 - 2 - 16 --1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 32 - 1 - 105 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/30.lev b/programs/samples/pete/booger/levels/30.lev deleted file mode 100644 index 2906a6cbd..000000000 --- a/programs/samples/pete/booger/levels/30.lev +++ /dev/null @@ -1,259 +0,0 @@ -The LAST yes LAST LEVEL !!! - 59 - 33 - 0 - 4 - 0 - 100 - 33 - 2 - 6 - 1 - 300 - 33 - 0 - 10 - 0 - 88 - 92 - 0 - 9 - 0 - 88 - 92 - 0 - 9 - 0 - 98 - 92 - 0 - 9 - 0 - 98 - 92 - 0 - 9 - 0 - 218 - 93 - 0 - 9 - 0 - 228 - 93 - 0 - 9 - 0 - 228 - 93 - 0 - 9 - 0 - 154 - 142 - 0 - 9 - 0 - 154 - 142 - 0 - 9 - 0 - 163 - 141 - 0 - 9 - 0 - 93 - 91 - 1 - 13 - 1 - 213 - 133 - 2 - 16 - 1 - 223 - 91 - 1 - 18 --1 - 289 - 12 - 2 - 20 --1 - 24 - 119 - 2 - 20 - 1 - 158 - 150 - 1 - 23 - 1.4 - 149 - 66 - 1 - 26 --.5 - 163 - 66 - 1 - 26 --.3 - 225 - 33 - 2 - 28 - .6 - 74 - 183 - 2 - 30 --.6 - 229 - 183 - 2 - 30 - .6 - 42 - 68 - 1 - 33 --.7 - 273 - 67 - 1 - 33 - .6 - 6 - 183 - 0 - 37 - 1 - 16 - 183 - 0 - 39 - 0 - 113 - 183 - 0 - 37 - 0 - 123 - 183 - 0 - 39 - 0 - 123 - 183 - 0 - 39 - 0 - 304 - 182 - 0 - 35 - 0 - 57 - 133 - 0 - 32 - 0 - 57 - 133 - 0 - 32 - 0 - 176 - 33 - 0 - 25 - 0 - 307 - 133 - 0 - 10 - 0 - 307 - 133 - 0 - 10 - 0 - 50 - 33 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 4 - 5 - 6 - 7 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/4.lev b/programs/samples/pete/booger/levels/4.lev deleted file mode 100644 index 05ca7ed37..000000000 --- a/programs/samples/pete/booger/levels/4.lev +++ /dev/null @@ -1,259 +0,0 @@ -Maybe I spoke TOO soon !!! - 57 - 33 - 0 - 4 - 0 - 133 - 33 - 0 - 25 - 0 - 213 - 33 - 0 - 4 - 0 - 296 - 33 - 0 - 8 - 0 - 306 - 33 - 0 - 8 - 0 - 306 - 33 - 0 - 8 - 0 - 288 - 33 - 0 - 8 - 0 - 288 - 33 - 0 - 8 - 0 - 90 - 83 - 0 - 4 - 0 - 225 - 83 - 0 - 4 - 0 - 75 - 133 - 0 - 3 - 0 - 86 - 133 - 0 - 4 - 0 - 189 - 133 - 0 - 25 - 0 - 86 - 183 - 0 - 25 - 0 - 165 - 183 - 0 - 25 - 0 - 245 - 183 - 0 - 25 - 0 - 105 - 83 - 2 - 16 - 1 - 302 - 116 - 1 - 16 --1 - 136 - 121 - 1 - 16 --.8 - 166 - 163 - 1 - 16 --.3 - 293 - 61 - 2 - 20 --2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 40 - 40 - 4 - 111 - 183 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/5.lev b/programs/samples/pete/booger/levels/5.lev deleted file mode 100644 index ebbf1962c..000000000 --- a/programs/samples/pete/booger/levels/5.lev +++ /dev/null @@ -1,259 +0,0 @@ -Things are getting Hairy !!! - 91 - 33 - 0 - 25 - 0 - 160 - 33 - 0 - 25 - 0 - 207 - 83 - 0 - 25 - 0 - 88 - 181 - 0 - 8 - 0 - 29 - 133 - 0 - 25 - 0 - 275 - 133 - 0 - 25 - 0 - 75 - 183 - 0 - 8 - 0 - 85 - 183 - 0 - 8 - 0 - 95 - 183 - 0 - 8 - 0 - 102 - 183 - 0 - 8 - 0 - 161 - 183 - 0 - 4 - 0 - 270 - 183 - 0 - 25 - 0 - 13 - 70 - 2 - 20 - 2 - 291 - 58 - 2 - 20 --2.5 - 180 - 33 - 2 - 16 - 1 - 50 - 133 - 2 - 13 - 1 - 254 - 133 - 2 - 13 --1 - 140 - 167 - 1 - 13 --.4 - 106 - 83 - 2 - 16 - .6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 36 - 36 - 5 - 107 - 179 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/6.lev b/programs/samples/pete/booger/levels/6.lev deleted file mode 100644 index 0b1518ef7..000000000 --- a/programs/samples/pete/booger/levels/6.lev +++ /dev/null @@ -1,259 +0,0 @@ -Mutated Roadcones !!!! - 82 - 33 - 0 - 4 - 0 - 120 - 33 - 0 - 4 - 0 - 120 - 33 - 0 - 4 - 0 - 157 - 33 - 0 - 4 - 0 - 241 - 33 - 0 - 15 - 0 - 241 - 33 - 0 - 15 - 0 - 6 - 83 - 0 - 15 - 0 - 6 - 83 - 0 - 15 - 0 - 85 - 83 - 0 - 15 - 0 - 243 - 83 - 0 - 15 - 0 - 32 - 133 - 0 - 25 - 0 - 32 - 133 - 0 - 25 - 0 - 42 - 133 - 0 - 8 - 0 - 251 - 133 - 0 - 15 - 0 - 4 - 183 - 0 - 15 - 0 - 191 - 183 - 0 - 15 - 0 - 226 - 183 - 0 - 15 - 0 - 226 - 183 - 0 - 15 - 0 - 261 - 183 - 0 - 15 - 0 - 296 - 183 - 0 - 15 - 0 - 296 - 183 - 0 - 15 - 0 - 31 - 167 - 1 - 13 --.2 - 80 - 167 - 1 - 13 - .2 - 109 - 167 - 1 - 13 - .3 - 141 - 167 - 1 - 13 - .4 - 67 - 133 - 2 - 16 - 2 - 110 - 83 - 2 - 16 - 2 - 293 - 17 - 2 - 20 --2 - 205 - 117 - 1 - 20 - .7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 40 - 40 - 4 - 112 - 183 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/7.lev b/programs/samples/pete/booger/levels/7.lev deleted file mode 100644 index 937668220..000000000 --- a/programs/samples/pete/booger/levels/7.lev +++ /dev/null @@ -1,259 +0,0 @@ -Flying Thingies 1st Encounter - 110 - 33 - 0 - 25 - 0 - 195 - 33 - 0 - 25 - 0 - 50 - 83 - 0 - 25 - 0 - 110 - 83 - 0 - 25 - 0 - 195 - 83 - 0 - 25 - 0 - 255 - 83 - 0 - 25 - 0 - 255 - 83 - 0 - 25 - 0 - 151 - 183 - 0 - 25 - 0 - 140 - 183 - 0 - 3 - 0 - 84 - 133 - 0 - 8 - 0 - 94 - 133 - 0 - 8 - 0 - 73 - 133 - 0 - 8 - 0 - 74 - 133 - 0 - 8 - 0 - 154 - 67 - 1 - 18 - .6 - 260 - 167 - 2 - 18 - 2 - 139 - 116 - 1 - 18 - 1 - 158 - 116 - 1 - 18 - .9 - 180 - 115 - 1 - 18 - .8 - 202 - 114 - 1 - 18 - .7 - 226 - 112 - 1 - 18 - .6 - 250 - 110 - 1 - 18 - .5 - 70 - 167 - 1 - 18 - .3 - 173 - 33 - 2 - 16 --.1 - 206 - 33 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 36 - 5 - 108 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/8.lev b/programs/samples/pete/booger/levels/8.lev deleted file mode 100644 index a2b5a0efb..000000000 --- a/programs/samples/pete/booger/levels/8.lev +++ /dev/null @@ -1,259 +0,0 @@ -Time for a break dude ! - 98 - 83 - 0 - 3 - 0 - 205 - 83 - 0 - 3 - 0 - 153 - 33 - 0 - 3 - 0 - 153 - 33 - 0 - 3 - 0 - 156 - 133 - 0 - 3 - 0 - 156 - 133 - 0 - 3 - 0 - 22 - 183 - 2 - 16 - 1 - 291 - 66 - 2 - 20 --2 - 21 - 56 - 2 - 20 - 3 - 166 - 133 - 0 - 4 - 0 - 109 - 83 - 0 - 4 - 0 - 269 - 183 - 0 - 25 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 32 - 1 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/booger/levels/9.lev b/programs/samples/pete/booger/levels/9.lev deleted file mode 100644 index cd59f9d5a..000000000 --- a/programs/samples/pete/booger/levels/9.lev +++ /dev/null @@ -1,259 +0,0 @@ -Man ! Big Blue Dudes !!! - 78 - 33 - 0 - 15 - 0 - 216 - 33 - 0 - 15 - 0 - 41 - 83 - 0 - 15 - 0 - 41 - 83 - 0 - 15 - 0 - 5 - 133 - 0 - 15 - 0 - 5 - 183 - 0 - 15 - 0 - 172 - 83 - 0 - 25 - 0 - 302 - 183 - 0 - 25 - 0 - 98 - 33 - 2 - 6 - .4 - 32 - 133 - 2 - 6 - 2 - 68 - 167 - 1 - 6 - .2 - 104 - 167 - 1 - 6 - 1 - 142 - 166 - 1 - 6 --1 - 180 - 167 - 1 - 6 - 1 - 219 - 167 - 1 - 6 --1 - 255 - 166 - 1 - 6 --1 - 296 - 65 - 2 - 18 --1 - 11 - 15 - 2 - 18 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 9 - 33 - 1 - 0 - 0 - 0 - 0 diff --git a/programs/samples/pete/bush.bas b/programs/samples/pete/bush.bas deleted file mode 100644 index 2fd93fc31..000000000 --- a/programs/samples/pete/bush.bas +++ /dev/null @@ -1,346 +0,0 @@ - -DECLARE SUB CentrarTexto (t$, y%) - - -menu: -COLOR 10, 0 -CLS -CentrarTexto "ÛÛÛÛÛÛ» ÛÛÛÛÛÛÛ» ÛÛ» ÛÛ»", 2 -CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛ» ÛÛ» ÛÛÉÍÍÍͼ ÛÛº ÛÛº", 3 -CentrarTexto "ÛÛÛÛÛÛɼ ÛÛº ÛÛº ÛÛÛÛÛÛÛ» ÛÛÛÛÛÛº", 4 -CentrarTexto "ÛÛÉÍÍÛÛ» ÛÛº ÛÛº ÈÍÍÍÍÛÛº ÛÛÉ ÛÛº", 5 -CentrarTexto "ÛÛÛÛÛÛɼ ÛÛÛÛÛÛÛº ÛÛÛÛÛÛÛº ÛÛº ÛÛº", 6 -CentrarTexto "ÈÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ Èͼ Èͼ", 7 -COLOR 30 -CentrarTexto "BOMBER - BOMBER - BOMBER - BOMBER", 8 -COLOR 9 -CentrarTexto "Ayuda a Bush en su mision de matar inocentes por el mundo!", 10 -CentrarTexto "Pero ten cuidado! La gente cada vez corre mas rapido...", 11 -CentrarTexto "Y tu helicoptero tambien!", 12 - -CentrarTexto "La unica tecla necesaria es Arriba (para dejar bombas).", 13 -CentrarTexto "Este programa esta hecho 100% en Qbasic, y es un poco aburrido...", 14 - -COLOR 15 -PLAY "o2 l16 df+af+df+af+df+af+df+af+eac+aeac+aeac+aeac+adf+bf+df+bf+df+bf+df+bf+d-f+ap16 d-f+ap16 d-f+ap16 d-f+aa" -CentrarTexto "(Presione cualquier tecla para continuar, ESC para salir)", 20 - -DO WHILE INKEY$ = "" -SELECT CASE INKEY$ -CASE CHR$(27) -END -END SELECT -LOOP - -RANDOMIZE TIMER -CLS -bombas = 50 -ac = 16000 -columna = 1 -linea = 3 -lineaa = 3 -x = 0 -mn = 30 -op = 4 -dd = 1 -we = 0 - -DO - -IF dd = 1 THEN -COLOR 31 -CentrarTexto "Afghanistan", 10 -END IF - -IF dd = 2 THEN -COLOR 31 -CentrarTexto "Irak", 10 -END IF - -IF dd = 3 THEN -COLOR 31 -CentrarTexto "Iran", 10 -END IF - -IF dd = 4 THEN -COLOR 31 -CentrarTexto "Arabia Saudita", 10 -END IF - -IF dd = 5 THEN -COLOR 31 -CentrarTexto "Venezuela", 10 -END IF - -IF dd = 6 THEN -COLOR 31 -CentrarTexto "Colombia", 10 -END IF - -IF dd = 7 THEN -COLOR 31 -CentrarTexto "Brasil", 10 -END IF - -IF dd = 8 THEN -COLOR 31 -CentrarTexto "Cuba", 10 -END IF - -IF dd = 9 THEN -COLOR 31 -CentrarTexto "Uruguay", 10 -END IF - -IF dd = 10 THEN -COLOR 31 -CentrarTexto "India", 10 -END IF - -IF dd = 11 THEN -COLOR 31 -CentrarTexto "Libia", 10 -END IF - -IF dd = 12 THEN -COLOR 31 -CentrarTexto "Sudafrica", 10 -END IF - -IF dd = 13 THEN -COLOR 31 -CentrarTexto "Alemania", 10 -END IF - -IF dd = 14 THEN -COLOR 31 -CentrarTexto "Japon", 10 -END IF - -IF dd = 15 THEN -COLOR 31 -CentrarTexto "Rusia", 10 -END IF - - -IF bombas = 0 THEN -COLOR 4 -CentrarTexto "Sin municiones!", 12 -op = op - 1 -bombas = 50 -DO WHILE INKEY$ = "" -LOOP -END IF - -COLOR 12 -LOCATE 1, 1 -PRINT "Nivel: " -LOCATE 1, 8 -PRINT dd - -IF op = 0 THEN -COLOR 2, 0 -CLS -CentrarTexto "Perdiste!", 12 -DO WHILE INKEY$ = "" -LOOP -SLEEP -GOTO menu -END IF - -LOCATE 1, 30 -COLOR 9 -PRINT "Oportunidades:" -LOCATE 1, 45 -PRINT op - -LOCATE 1, 60 -COLOR 10 -PRINT "Bombas:" -LOCATE 1, 69 -PRINT bombas - -IF we = 15 THEN -COLOR 30 -CentrarTexto "Ultimo Nivel!", 12 -END IF - -IF we = 16 THEN -COLOR 4, 0 -CLS -COLOR 15 -CentrarTexto "È=XO", 10 -COLOR 4 -CentrarTexto "*", 14 -COLOR 10 -LOCATE 23, 45 -PRINT "" -LOCATE 23, 46 -PRINT "" -LOCATE 23, 33 -PRINT "" -LOCATE 23, 34 -PRINT "" -COLOR 9 -CentrarTexto "ÉÍÍÍÍÍÍ»", 16 -CentrarTexto "ºÍþÍþÍþº", 17 -CentrarTexto "ºþÍþÍþͺ", 18 -CentrarTexto "ºÍþÍþÍþº", 19 -CentrarTexto "ºþÍþÍþͺ", 20 -CentrarTexto "ºÍþÍþÍþº", 21 -CentrarTexto "ºþÍþÍþͺ", 22 -CentrarTexto "ºÍþÍÛÍþº", 23 -COLOR 28 -CentrarTexto "Congratulations!", 1 -COLOR 2 -CentrarTexto "Lo has hecho, ahora todo el petroleo del mundo es de Bush!", 3 -CentrarTexto "Los Bush vuelven a ganar... Pero no se si felicitarte", 4 -CentrarTexto "por matar gente... Que deberia hacer?", 5 -CentrarTexto "Ganaste! GRACIAS POR JUGAR!", 6 -PLAY "T120 O2 L4" -PLAY "F8 D8 D F B-2 >D8 C8 D. C8 F8 D8 D F B-2 >D8 C8" -PLAY "D. C8 >D8 D8 D D E- F2. E-8 D8 C C D E-2 E- D2 C8 C E-8 D8 C8 C8 D8 E-8 F2 C8 D. E-8 C cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg" -dd = dd + 1 -we = we + 1 -bombas = 50 -END IF - -IF tipitoc = sd THEN -we = we + 1 -dd = dd + 1 -ac = ac - 1000 -COLOR 9 -CentrarTexto " ", 10 -COLOR 4 -CentrarTexto "Le diste!", 10 -bombas = 50 -PLAY "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg" -END IF - -IF tipitoc = fd THEN -COLOR 4 -ac = ac - 1000 -COLOR 9 -CentrarTexto " ", 10 -COLOR 4 -CentrarTexto "Le diste!", 10 -dd = dd + 1 -we = we + 1 -PLAY "o3 l15 cc < b > cc < b > cc < b > cc < b > c < b > c < bffeffeffeffefefg" -bombas = 50 -END IF - - -m = 2 -lineaa = 2 -END IF - -LOCATE lineaa, tipitoc -COLOR 4 -PRINT "*" -END IF - -COLOR 15, 9 -columna = columna + 1 -IF columna = 78 THEN -columna = 1 -END IF -LOCATE linea, columna -PRINT "È=XO" -BEEP - -FOR i = 1 TO ac -NEXT i - -CLS -vuelta: - -IF we = 1 THEN -we = 2 -END IF - -IF x = 1 THEN -COLOR x -LOCATE 23, z -PRINT "" -LOCATE 23, zy -PRINT "" -LOCATE 23, zu -PRINT "" -LOCATE 23, zi -PRINT "" -LOCATE 23, zo -PRINT "" -END IF - -SELECT CASE INKEY$ -CASE CHR$(0) + CHR$(72) -tipitoc = columna -m = 1 -bombas = bombas - 1 -CASE CHR$(27) -END -END SELECT - - -RANDOMIZE TIMER -h = INT(RND * 2) + 1 -sd = mn + 1 -fd = mn + 2 - -IF h = 1 THEN -mn = mn + 1 -sd = sd + 1 -fd = fd + 1 -END IF -IF h = 2 THEN -mn = mn - 1 -END IF - -IF mn = 0 THEN -mn = mn + 1 -END IF - -COLOR we -LOCATE 23, mn -PRINT "" - -IF mn = 0 THEN -mn = mn + 1 -END IF - -IF mn = 70 THEN -mn = mn - 1 -END IF - -LOOP - -SUB CentrarTexto (t$, y%) -xnum% = (80 - LEN(t$)) / 2 -xspc% = INT((80 - LEN(t$)) / 2) -IF y% = 0 THEN PRINT TAB(xspc%); t$: EXIT SUB -LOCATE y%, xnum%: PRINT t$ -' - -END SUB - diff --git a/programs/samples/pete/calc.bas b/programs/samples/pete/calc.bas deleted file mode 100644 index 96f6c6d8e..000000000 --- a/programs/samples/pete/calc.bas +++ /dev/null @@ -1,53 +0,0 @@ -5 CLS -PRINT "1) ADD" -PRINT "2) MULTIPLY" -PRINT "3) DIVIDE" -PRINT "4) SQUARE ROOT" -PRINT "5) EXIT" -INPUT I -IF I = 1 GOTO 10 -IF I = 2 GOTO 20 -IF I = 3 GOTO 30 -IF I = 4 GOTO 40 -IF I = 5 GOTO 50 -END -10 CLS : PRINT "INPUT NUMBER" -INPUT A -CLS -PRINT "INPUT NEXT NUMBER" -INPUT B -CLS -PRINT A + B -PRINT "PRESS SPACE TO RUN" -SLEEP 0 -GOTO 5 -20 CLS : PRINT "INPUT NUMBER" -INPUT C -CLS -PRINT "INPUT NEXT NUMBER" -INPUT D -CLS -PRINT C * D -PRINT "PRESS SPACE TO RUN" -SLEEP 0 -GOTO 5 -30 CLS : PRINT "INPUT NUMBER" -INPUT E -CLS -PRINT "INPUT NEXT NUMBER" -INPUT F -CLS -PRINT E / F -PRINT "PRESS SPACE TO RUN" -SLEEP 0 -GOTO 5 -40 CLS : PRINT "INPUT NUMBER" -INPUT G -CLS -PRINT SQR(G) -PRINT "PRESS SPACE TO RUN" -SLEEP 0 -GOTO 5 -50 END - - diff --git a/programs/samples/pete/calc_2.bas b/programs/samples/pete/calc_2.bas deleted file mode 100644 index 852b38da6..000000000 --- a/programs/samples/pete/calc_2.bas +++ /dev/null @@ -1,68 +0,0 @@ - -DECLARE SUB CentrarTexto (t$, y%) - - -ini: -CLS -COLOR 9 -CentrarTexto "L.M.S Calculadora", 3 -COLOR 15, 1 -CentrarTexto " 1. Sumar ", 5 -CentrarTexto " 2. Restar ", 6 -CentrarTexto " 3. Dividir ", 7 -CentrarTexto " 4. Multiplicar", 8 -CentrarTexto " 5. Salir ", 9 - -COLOR 4, 0 -LOCATE 11, 32 -INPUT "Numero de opci¢n:", opci - -SELECT CASE opci -CASE 1 -CASE 2 -CASE 3 -CASE 4 -CASE 5 -END -CASE ELSE -GOTO ini -END SELECT - - -CLS -COLOR 15 -INPUT "Numero 1: ", num1 -INPUT "Numero 2: ", num2 - -SELECT CASE opci -CASE 1 -resultado = num1 + num2 -CASE 2 -resultado = num1 - num2 -CASE 3 -resultado = num1 / num2 -CASE 4 -resultado = num1 * num2 -CASE 5 -END -CASE ELSE -GOTO ini -END SELECT - - -COLOR 10 -PRINT -PRINT "Resultado = ", resultado -DO WHILE INKEY$ = "" -LOOP -GOTO ini - -SUB CentrarTexto (t$, y%) -xnum% = (80 - LEN(t$)) / 2 -xspc% = INT((80 - LEN(t$)) / 2) -IF y% = 0 THEN PRINT TAB(xspc%); t$: EXIT SUB -LOCATE y%, xnum%: PRINT t$ -' - -END SUB - diff --git a/programs/samples/pete/carracingenglish.bas b/programs/samples/pete/carracingenglish.bas deleted file mode 100644 index 3ba45a2f8..000000000 --- a/programs/samples/pete/carracingenglish.bas +++ /dev/null @@ -1,220 +0,0 @@ -DECLARE SUB again (x!) -DECLARE SUB summer.day () -DECLARE SUB summer.nite () -DECLARE SUB winter.day () -DECLARE SUB Race () -DECLARE SUB nitedraw () -DECLARE SUB day1draw () - -SCREEN 13 -DIM SHARED lap -DIM SHARED lap2 -DIM SHARED lap3 - -FOR y = 1 TO 5 -FOR x = 1 TO 5 -READ c -PSET (x, y), c -NEXT -NEXT - -DATA 0,2,2,2,0 -DATA 2,2,2,2,2 -DATA 0,2,2,2,0 -DATA 0,0,6,0,0 -DATA 0,6,6,6,0 - -DIM SHARED Tree%(50) -GET (1, 1)-(10, 5), Tree% -CLS - -FOR y = 1 TO 5 -FOR x = 1 TO 10 -READ c -PSET (x, y), c -NEXT -NEXT - -DATA 0,0,0,0,0,0,0,0,0,0 -DATA 0,0,4,4,4,4,4,4,0,0 -DATA 0,4,4,4,4,4,4,4,4,0 -DATA 0,4,4,4,4,4,4,4,4,0 -DATA 0,0,7,0,0,0,0,7,0,0 -DIM SHARED RedCar%(50) -GET (1, 1)-(10, 5), RedCar% -CLS - -FOR y = 1 TO 5 -FOR x = 1 TO 10 -READ c -PSET (x, y), c -NEXT -NEXT - -DATA 0,0,0,0,0,0,0,0,0,0 -DATA 0,0,2,2,2,2,2,2,0,0 -DATA 0,2,2,2,2,2,2,2,2,0 -DATA 0,2,2,2,2,2,2,2,2,0 -DATA 0,0,7,0,0,0,0,7,0,0 -DIM SHARED GrnCar%(50) -GET (1, 1)-(10, 5), GrnCar% -CLS - - -FOR y = 1 TO 5 -FOR x = 1 TO 10 -READ c -PSET (x, y), c -NEXT -NEXT - -DATA 0,0,0,0,0,0,0,0,0,0 -DATA 0,0,1,1,1,1,1,1,0,0 -DATA 0,1,1,1,1,1,1,1,1,0 -DATA 0,1,1,1,1,1,1,1,1,0 -DATA 0,0,7,0,0,0,0,7,0,0 -DIM SHARED BlueCar%(50) -GET (1, 1)-(10, 5), BlueCar% -CLS - -date = VAL(LEFT$(DATE$, 2)) -time = VAL(LEFT$(TIME$, 2)) -IF time > 7 AND time < 20 AND date > 4 AND date < 9 THEN summer.day -IF time <= 7 OR time >= 20 AND date > 4 AND date < 9 THEN summer.nite -IF date <= 4 OR date >= 9 THEN winter.day -Race - -IF lap = 3 THEN LOCATE 20, 1: PRINT "Red wins!" -IF lap2 = 3 THEN LOCATE 20, 1: PRINT "Blue wins!" -IF lap3 = 3 THEN LOCATE 20, 1: PRINT "Green wins!" -again (0) - -SUB again (x) -CLS -IF x = 1 THEN PRINT "You hit a car!" -IF x = 2 THEN PRINT "You hit a tree!" - -x = 20 -DO -LOCATE 2, 1: PRINT "Race again" -LOCATE 3, 1: PRINT " Yes No" -LOCATE 4, 1: PRINT "Press 5 to confirm selection." -SELECT CASE INKEY$ -CASE IS = "4" -x = 20 -CASE IS = "6" -x = 120 -CASE IS = "5" -IF x = 20 THEN RUN ELSE END -END SELECT -PUT (x, 17), BlueCar% -LOOP -END SUB - -SUB Race -x = 299 -x2 = 299 -x3 = 309 -lane = 2 -go = 1 - - -RANDOMIZE TIMER -badcar = INT(RND * 250 + 1) - - -DO - SOUND 100, 1 - 'Check For Crashes - IF lane > 2 OR lane < 1 THEN BEEP: again (2) - IF x2 > x AND x2 < (x + 10) AND lane = 1 THEN BEEP: again (1) - IF x2 < x AND x2 > (x - 10) AND lane = 1 THEN BEEP: again (1) - IF x2 > x3 AND x2 < (x3 + 10) AND lane = 1 THEN BEEP: again (1) - IF x2 < x3 AND x2 > (x3 - 10) AND lane = 1 THEN BEEP: again (1) - - IF x > x3 AND x < (x3 + 10) AND lane = 1 THEN BEEP: gout = 1: x3 = 700 - IF x < x3 AND x > (x3 - 10) AND lane = 1 THEN BEEP: gout = 1: x3 = 700 - - IF x2 > badcar AND x2 < (badcar + 10) AND lane = 2 THEN BEEP: again (1) - - PUT (badcar, 41), RedCar% - - RANDOMIZE TIMER - x = x - INT(RND * 3) - IF go = 1 THEN x2 = x2 - INT(RND * 3) - IF gout = 0 THEN x3 = x3 - INT(RND * 3) - - IF x <= 0 THEN lap = lap + 1: x = 309 - IF x2 <= 0 THEN lap2 = lap2 + 1: x2 = 309: badcar = INT(RND * 100 + 1) - IF x3 <= 0 THEN lap3 = lap3 + 1: x3 = 309 - - IF lap = 3 THEN EXIT DO - IF lap2 = 3 THEN EXIT DO - IF lap3 = 3 THEN EXIT DO - - LINE (0, 30)-(319, 50), 8, BF - FOR y = 0 TO 300 STEP 20 - LINE (y, 40)-(y + 20, 40), 14 - NEXT - - PUT (x, 31), RedCar% - IF gout = 0 THEN PUT (x3, 31), GrnCar% - IF lane = 1 THEN PUT (x2, 31), BlueCar% - IF lane = 2 THEN PUT (x2, 43), BlueCar% - - SELECT CASE INKEY$ - CASE IS = "8" - lane = lane - 1 - CASE IS = "2" - lane = lane + 1 - CASE IS = "4" - go = 1 - CASE IS = "6" - go = 0 - END SELECT - - LOCATE 15: PRINT "Red car:"; (lap + 1); "/ 3" - LOCATE 16: PRINT "Green car:"; (lap3 + 1); "/ 3" - LOCATE 17: PRINT "Blue car:"; (lap2 + 1); "/ 3" - - LOCATE 19 - IF x2 < x AND x2 < x3 AND lap2 >= lap AND lap2 >= lap3 THEN - PRINT "You are winning!" - ELSE PRINT "You are losing." - END IF - -LOOP - -END SUB - -SUB summer.day -LINE (0, 0)-(319, 20), 9, BF -LINE (0, 20)-(319, 199), 2, BF - -FOR x = 1 TO 309 STEP 10 -PUT (x, 57), Tree% -PUT (x, 22), Tree% -NEXT - -END SUB - -SUB summer.nite -FOR a = 1 TO 50 -RANDOMIZE TIMER -x = INT(RND * 300 + 1) -y = INT(RND * 20 + 1) -PSET (x, y), 15 -NEXT -END SUB - -SUB winter.day - -FOR y = 1 TO 30 -FOR x = 1 TO 310 -c = INT(RND * 2 + 1) -IF c = 2 THEN c = 15 -PSET (x, y), c -NEXT -NEXT - -END SUB \ No newline at end of file diff --git a/programs/samples/pete/cc2.bas b/programs/samples/pete/cc2.bas deleted file mode 100644 index 344870db8..000000000 --- a/programs/samples/pete/cc2.bas +++ /dev/null @@ -1,21 +0,0 @@ -CLS -REM I HAVE FIXED THE BLANK LINE COUNTING BUG -PRINT "********************************" -PRINT "CODE COUNTER BY MURRAY PARKINSON" -PRINT "********************************" -PRINT -PRINT "ENTER FILE NAME:"; -INPUT FILEN$ -CLS -OPEN FILEN$ FOR INPUT AS #1 -WHILE NOT EOF(1) -INPUT #1, A$ -IF A$ <> "" THEN LN = LN + 1 -WEND -CLOSE -PRINT "********************************" -PRINT "CODE COUNTER BY MURRAY PARKINSON" -PRINT "********************************" -PRINT -IF LN = 1 THEN PRINT "YOUR PROGRAM HAS ONLY 1 LINE OF CODE!" -PRINT "YOUR PROGRAM HAS"; LN; "LINES OF CODE" \ No newline at end of file diff --git a/programs/samples/pete/coolscr.bas b/programs/samples/pete/coolscr.bas deleted file mode 100644 index 6e2f53b02..000000000 --- a/programs/samples/pete/coolscr.bas +++ /dev/null @@ -1,24 +0,0 @@ -CLS -SCREEN 12 -RANDOMIZE TIMER -DO -CLS -LET X = 15 -LET Y = 10 -LET DX = 1 -LET DY = 1 -C = INT(RND * 14) + 1 -FOR L = 1 TO 100 -210 LET XN = X + DX -LET YN = Y + DY -IF XN = 0 OR XN = 640 THEN LET DX = -DX: C = INT(RND * 14) + 1: SOUND 500, 2 -IF YN = 0 OR YN = 480 THEN LET DY = -DY: C = INT(RND * 14) + 1: SOUND 500, 2 -REM CIRCLE (X, Y), 100, 0 -CIRCLE (XN, YN), 100, C -REM PSET (XN, YN), 2 -LET X = XN: LET Y = YN -REM FOR I = 1 TO 600: NEXT I -IF INKEY$ <> "" THEN END -GOTO 210 -NEXT L -LOOP \ No newline at end of file diff --git a/programs/samples/pete/cr/cr-e.txt b/programs/samples/pete/cr/cr-e.txt deleted file mode 100644 index 8c1336235..000000000 --- a/programs/samples/pete/cr/cr-e.txt +++ /dev/null @@ -1,238 +0,0 @@ - **************************************************************************** - ************************** C A V E R A I D E R ************* Version 1.4 * - **************************************************************************** - ******************* Copyright (c) 2004 by Paul Redling ******************** - **************************************************************************** - -Cave Raider is a fun and amazing ASCII adventure game. You are a young man -or a young woman and enter a dangerous underground cave system with six -consecutive caves. You'll find a lot of gold in these caves, but also -terrible cave monsters that guard the gold. Your intention is to raid cave -after cave, get all the gold and leave the cave system alive. The layout of -the individual caves is randomly generated. This means that each game will -offer you a new challenge! In addition, you can choose between three -difficulty settings (Easy, Normal and Hard). If you have some spare time, -then give this game a try. The best cave raiders will get an entry in the -Hall of Fame. - -This program is freeware, i.e. you can freely use and distribute it. However, -you must leave all files as they are and must not charge any money for the -program. - -CR.ZIP contains the following files: - - CR.EXE - The executable program - CR-E.TXT - The documentation in English - CR-G.TXT - The documentation in German - CR.BAS - The source code - -The file CR.DAT is created after you run CR.EXE. It's used for the -configuration data and the Hall of Fame data. - -The program was written in Microsoft QBasic 1.1 and compiled with Microsoft -Basic PDS 7.1. - -It is offered without any warranty. The program has been tested and should -not cause any undesirable operation. However, you are using it at your own -risk. - - -System Requirements -------------------- - -Don't worry! All you need is a computer with an EGA/VGA compatible graphics -card. The game should run fine under DOS as well as under Windows (including -Windows NT/2000/XP). - - -Running the Game ----------------- - -DOS: Switch to the directory into which you installed the game, type "CR" and - then press Enter. - -Windows: Open the folder that contains the game and double-click on the CR - icon. The game should be played in fullscreen mode. - - -Options -------- - - 1) Cave Raider - Male (yellow) or Female (pink) - - 2) Difficulty Setting - Easy, Normal or Hard - - 3) Sound - on/off - -If you make a change, you can save the new settings. If you want to clear the -table in the Hall of Fame, then go there and press F1. - - -Keys ----- - - The arrow keys - Move the cave raider - - Spacebar - Fires a grenade. Use the arrow keys to pick a direction. - Press Spacebar again to cause an immediate explosion of - the grenade. - - M - Magic (Stone Spell) - - S - Sound on/off - - H - Help - - Q - Quit - -Every time you start a new game, you'll be asked for your name. It can have a -maximum length of eight characters (A-Z, a-z and spaces). Use Backspace to -delete a character. Press Return if your name is less than eight characters. - - -Symbols -------- - -(The actual ASCII characters can be found in the in-game instructions.) - - Smiley - You - - Rock - If you run into it, your health will decrease by 80 (cave - wall), 60 (rock formation) or 40 (damaged rock formation). - If your health is zero, you'll die. - - Gold - 50 points. As soon as you've collected all the gold, the - magic wall around the magic scroll will disappear and you - can get the scroll. - - Chest of - Depending on the difficulty setting, you'll get 5 (Easy), - grenades 3 (Normal) or 2 (Hard) extra grenades. You also begin a - a game with 5, 3 or 2 grenades. The number of grenades is - the only difference between the three difficulty settings, - but you'll see that this difference really influences the - difficulty of the game. - - Grenade - You are equipped with a grenade launcher. Use a grenade to - kill a green or a red monsters or to block its way with a - sign. A grenade has no effect on a black monster, but a - sign will also block its way. Be careful not to hit a - piece of gold. If a grenade blows up one of the pieces of - gold, you can no longer get the magic scroll to leave the - cave and your adventure has come to an end. In rare cases - you'll have to blow up either the leftmost rock or the - rightmost rock of a rock formation to get a piece of gold. - These two rocks are the only ones that can be blown up by - a grenade, provided there's no rock below them. All the - other rocks of a rock formation can only be damaged by a - grenade. A grenade has no effect on the cave walls and on - everything of magic origin. - - Explosion - If you run into it, you'll die. - - Sign - A white star on blue background. This sign is left behind - on the ground after you cause an immediate explosion of a - grenade by pressing a button (Spacebar) on your grenade - launcher. It's absolutely harmless, but the cave monsters - are afraid of it and won't walk over it. Therefore, you - can use the sign as a barrier, e.g. at the magic door. - - Magic gem - 100 points. It gives you two spells. Press "M" to - temporarily turn the red monsters into stone. This also - applies to the black monsters. You need the gem to leave - the cave through the magic door. - - Magic scroll - 100 points. It generates magic fields of quicksand - every few seconds. If you take the scroll, the magic - fields of quicksand will disappear immediately and the - magic monsters, i.e. the black monsters, will turn into - gems worth 100 points each. You need the scroll to leave - the cave through the magic door. - - Magic wall - It protects the magic scroll. If you walk into it, you'll - die. - - Magic field of - It's near the magic scroll and protects it. If you walk - quicksand into it, you'll die. - - Green monster - 60 points. Maximum number: 10. The green monster is slow - and not very intelligent, but it moves towards the magic - door and once it reaches its destination, it stays there - and hinders your escape. If you're in the way, it'll eat - you. - - Red monster - 80 points. Maximum number: 10. The red monster is always - in the same cave as the green monster. It's a skilled and - pretty fast hunter that adjusts to the speed of your - movements. If it gets you, it'll eat you. - - Black monster - 100 points as gem. Maximum number: 15. The black monster - is a magic creature that can't be killed by grenades. - However, as soon as you take the magic scroll, the black - monster will turn into a black gem. Similar to the red - monster, the black monster is a skilled hunter, but it - moves continuously, at a quick speed. This means that you - should also move quickly if you don't want to get eaten by - it. Luckily, the black monster never appears together with - green or red monsters because it doesn't get along with - them. - - Magic door - You'll get 200 points if you leave one of the first five - caves and 1000 points if you leave the sixth cave, i.e. - the cave system. You need both the magic gem and the magic - scroll in order to leave a cave. In addition, there must - be no cave monster at the magic door when you want to - leave the cave. If these conditions are not met and you - walk into the magic door, you'll die. - - -Notes ------ - -1) As I wanted the possibility to escape from the cave system, I decided that - there should be a total of six caves and three difficulty settings (Easy, - Normal and Hard). If you play well, you should be able to escape from the - cave system in Easy Mode. If you play very well, an escape should also be - possible in Normal Mode. In Hard Mode, however, an escape is almost - impossible. If it says "Cave:X" in the Hall of Fame, it means that he or - she escaped from the cave system. That's great, but remember: There's - always a next time. You can never be sure if you'll leave those dangerous - caves alive. - -2) There's one cheat code in this game. - - -Program Updates ---------------- - -Version 1.4 12/01/2004 - - - Changed the behavior of the magic door - - Improved some routines - - Made a few corrections in the documentation - -Version 1.2 10/24/2004 - - - Fixed bugs with the grenade - - Optimized several routines - -Version 1.1 10/04/2004 - - - Fixed bug with the initial positions of the monsters - - Fixed a few other bugs - - Improved the AI of the hunters - - Optimized parts of the code - - Made some minor cosmetic changes - - Improved the story - - Revised the documentation - -Version 1.0 08/04/2004 - - - First public release - - -Contact -------- - -Email: paul.redling@gmx.net - -I welcome your comments. diff --git a/programs/samples/pete/cr/cr-g.txt b/programs/samples/pete/cr/cr-g.txt deleted file mode 100644 index f6fde5d39..000000000 --- a/programs/samples/pete/cr/cr-g.txt +++ /dev/null @@ -1,271 +0,0 @@ - **************************************************************************** - ************************** C A V E R A I D E R ************* Version 1.4 * - **************************************************************************** - ******************* Copyright (c) 2004 by Paul Redling ******************** - **************************************************************************** - -Cave Raider ist ein unterhaltsames und verblüffendes ASCII-Abenteuerspiel. -Ihr seid ein junger Mann oder eine junge Frau und betretet ein gefährliches -Untergrund-Höhlensystem mit sechs aufeinander folgenden Höhlen. Ihr werdet -in diesen Höhlen viel Gold finden, aber auch schreckliche Höhlenmonster, die -dieses Gold bewachen. Eure Absicht ist es, eine Höhle nach der anderen zu -überfallen, das ganze Gold zu holen und das Höhlensystem lebendig zu -verlassen. Die Ausgestaltung der einzelnen Höhlen wird zufällig generiert. -Das bedeutet, dass euch jedes Spiel eine neue Herausforderung bietet! -Außerdem könnt ihr zwischen drei Schwierigkeitsgraden (Einfach, Normal und -Schwierig) auswählen. Wenn ihr etwas freie Zeit habt, dann probiert dieses -Spiel aus. Die besten Höhlenräuber und Höhlenräuberinnen bekommen einen -Eintrag in der Ruhmeshalle. - -Dieses Programm ist Freeware, d.h. ihr könnt es ohne Einschränkung benützen -und weitergeben. Ihr müsst jedoch alle Dateien so belassen wie sie sind und -dürft kein Geld für das Programm verlangen. - -CR.ZIP enthält die folgenden Dateien: - - CR.EXE - Das ausführbare Programm - CR-E.TXT - Die Dokumentation auf Englisch - CR-G.TXT - Die Dokumentation auf Deutsch - CR.BAS - Der Quellcode - -Die Datei CR.DAT wird erstellt nachdem ihr CR.EXE ausführt. Sie wird für die -Konfigurations-Daten und die Ruhmeshalle-Daten verwendet. - -Das Programm wurde mit Microsoft QBasic 1.1 geschrieben und mit Microsoft -Basic PDS 7.1 kompiliert. - -Es wird ohne Garantie angeboten. Das Programm wurde getestet und sollte keine -unerwünschte Funktionsweise verursachen. Ihr benützt es jedoch auf eigenes -Risiko. - - -Systemanforderungen -------------------- - -Keine Sorge! Alles was ihr braucht ist ein Computer mit einer EGA/VGA- -kompatiblen Grafikkarte. Das Spiel sollte sowohl unter DOS als auch unter -Windows (einschließlich Windows NT/2000/XP) einwandfrei funktionieren. - - -Das Spiel beginnen ------------------- - -DOS: Wechselt in das Verzeichnis, in dem ihr das Spiel installiert habt, - tippt "CR" ein und drückt dann EINGABE. - -Windows: Öffnet den Ordner, der das Spiel enthält, und klickt doppelt auf das - Icon "CR". Das Spiel sollte im Vollbildschirmmodus gespielt werden. - - -Optionen --------- - - 1) Cave Raider - Männlich (gelb) oder Weiblich (rosa) - - 2) Schwierigkeitseinstellung - Einfach, Normal oder Schwierig - - 3) Sound - an/aus - -Wenn ihr eine Veränderung vornehmt, könnt ihr die neuen Einstellungen -abspeichern. Wenn ihr die Tabelle in der Ruhmeshalle löschen wollt, dann geht -dorthin und drückt F1. - - -Tasten ------- - - Die Pfeiltasten - Bewegen den Cave Raider - - LEERTASTE - Feuert eine Granate ab. Benützt die Pfeiltasten um eine - Richtung zu wählen. Drückt erneut die LEERTASTE um eine - sofortige Explosion der Granate zu verursachen. - - M - Magie (Stein-Zauberspruch) - - S - Sound an/aus - - H - Hilfe - - Q - Aufhören - -Jedes Mal wenn ihr ein neues Spiel beginnt, werdet ihr nach eurem Namen -gefragt. Er kann eine maximale Länge von acht Zeichen haben (A-z, a-z und -Leerzeichen). Benützt die RÜCKTASTE um ein Zeichen zu löschen. Drückt EINGABE -wenn euer Name weniger als acht Zeichen hat. - - -Symbole -------- - -(Die wirklichen ASCII-Zeichen könnt ihr in der Anleitung im Spiel sehen.) - - Smiley - Ihr - - Felsen - Wenn ihr gegen ihn läuft, nimmt eure Gesundheit - um 80 (Höhlenwand), 60 (Felsenformation) oder 40 - (beschädigte Felsenformation) ab. Wenn eure - Gesundheit null ist, sterbt ihr. - - Gold - 50 Punkte. Sobald ihr das ganze Gold eingesammelt - habt, verschwindet die magische Wand ringsum der - magischen Schriftrolle und ihr könnt die - Schriftrolle holen. - - Kiste mit Granaten - Abhängig vom Schwierigkeitsgrad, bekommt ihr 5 - (Einfach), 3 (Normal) oder 2 (Schwierig) - zusätzliche Granaten. Ihr beginnt auch ein Spiel - mit 5, 3 oder 2 Granaten. Die Anzahl der Granaten - ist der einzige Unterschied zwischen den drei - Schwierigkeitsgraden, aber ihr werdet sehen, dass - dieser Unterschied tatsächlich die Schwierigkeit - des Spiels beeinflusst. - - Granate - Ihr seid mit einem Granatenwerfer ausgerüstet. - Benützt eine Granate um ein grünes oder ein rotes - Monster zu vernichten oder um seinen Weg durch - ein Zeichen zu blockieren. Eine Granate hat keine - Auswirkung auf ein schwarzes Monster, aber ein - Zeichen blockiert ebenfalls seinen Weg. Passt - auf, dass ihr nicht ein Goldstück trefft. Wenn - eine Granate ein Goldstück in die Luft jagt, - könnt ihr die magische Schriftrolle nicht mehr - holen um die Höhle zu verlassen. Euer Abenteuer - ist dann zu Ende. In seltenen Fällen müsst ihr - entweder den ganz linken Felsen oder den ganz - rechten Felsen einer Felsenformation sprengen um - ein Goldstück zu holen. Diese zwei Felsen sind - die einzigen, die durch eine Granate gesprengt - werden können, vorausgesetzt es befindet sich - kein Felsen unter ihnen. Alle anderen Felsen - einer Felsenformation können durch eine Granate - nur beschädigt werden. Eine Granate hat keine - Auswirkung auf die Höhlenwände und auf alles, - was von magischem Ursprung ist. - - Explosion - Wenn ihr in sie hineinläuft, sterbt ihr. - - Zeichen - Ein weißer Stern auf blauem Hintergrund. Dieses - Zeichen bleibt auf dem Boden zurück wenn ihr eine - sofortige Explosion einer Granate verursacht, - indem ihr einen Knopf (LEERTASTE) auf eurem - Granatenwerfer drückt. Es ist absolut harmlos, - aber die Höhlenmonster haben Angst davor und - überqueren es nicht. Deshalb könnt ihr das - Zeichen als Barriere benützen, z.B. an der - magischen Tür. - - Magischer Edelstein - 100 Punkte. Er verleiht euch zwei Zaubersprüche. - Drückt "M" um die roten Monster vorübergehend in - Stein zu verwandeln. Das gilt auch für die - schwarzen Monster. Ihr braucht den Edelstein um - die Höhle durch die magische Tür zu verlassen. - - Magische Schriftrolle - 100 Punkte. Sie erzeugt alle paar Sekunden - magische Treibsandfelder. Wenn ihr die - Schriftrolle nehmt, verschwinden die magischen - Treibsandfelder sofort und die magischen Monster, - d.h. die schwarzen Monster, verwandeln sich in - Edelsteine, die jeweils 100 Punkte wert sind. Ihr - braucht die Schriftrolle um die Höhle durch die - magische Tür zu verlassen. - - Magische Wand - Sie beschützt die magische Schriftrolle. Wenn ihr - in sie hineinläuft, sterbt ihr. - - Magisches Treibsandfeld - Es ist in der Nähe der magischen Schriftrolle und - beschützt sie. Wenn ihr in eins hineinläuft, - sterbt ihr. - - Grünes Monster - 60 Punkte. Maximale Anzahl: 10. Das grüne Monster - ist langsam und nicht sehr intelligent, aber es - bewegt sich in Richtung magische Tür und wenn es - einmal sein Ziel erreicht, bleibt es dort und - behindert eure Flucht. Wenn ihr im Weg seid, - frisst es euch. - - Rotes Monster - 80 Punkte. Maximale Anzahl: 10. Das rote Monster - ist immer in der gleichen Höhle wie das grüne - Monster. Es ist ein geschickter und ziemlich - schneller Jäger, der sich an die Geschwindigkeit - von euren Bewegungen anpasst. Wenn es euch - erwischt, frisst es euch. - - Schwarzes Monster - 100 Punkte als Edelstein. Maximale Anzahl: 15. - Das schwarze Monster ist eine magische Kreatur, - die nicht durch Granaten vernichtet werden kann. - Sobald ihr jedoch die magische Schriftrolle - nehmt, verwandelt sich das schwarze Monster in - einen schwarzen Edelstein. Ähnlich wie das rote - Monster ist das schwarze Monster ein geschickter - Jäger, aber es bewegt sich kontinuierlich, in - einem schnellen Tempo. Das bedeutet, dass ihr - euch ebenfalls schnell bewegen solltet, wenn ihr - nicht von ihm gefressen werden wollt. - Glücklicherweise erscheint das schwarze Monster - niemals zusammen mit grünen oder roten Monstern, - weil es sich mit ihnen nicht versteht. - - Magische Tür - Ihr bekommt 200 Punkte wenn ihr eine von den - ersten fünf Höhlen verlasst und 1000 Punkte wenn - ihr die sechste Höhle verlasst, d.h. das - Höhlensystem. Ihr braucht sowohl den magischen - Edelstein als auch die magische Schriftrolle um - eine Höhle zu verlassen. Außerdem darf sich kein - Höhlenmonster an der magischen Tür befinden wenn - ihr die Höhle verlassen wollt. Wenn diese - Bedingungen nicht erfüllt sind und ihr in die - magische Tür hineinläuft, sterbt ihr. - - -Bemerkungen ------------ - -1) Da ich die Möglichkeit wollte, aus dem Höhlensystem zu entkommen, - beschloss ich, dass es insgesamt sechs Höhlen und drei Schwierigkeitsgrade - (Einfach, Normal und Schwierig) geben sollte. Wenn ihr gut spielt, solltet - ihr in der Lage sein, im Einfach-Modus aus dem Höhlensystem zu entkommen. - Wenn ihr sehr gut spielt, sollte eine Flucht auch im Normal-Modus möglich - sein. Im Schwierig-Modus ist eine Flucht jedoch fast unmöglich. Wenn in - der Ruhmeshalle "Cave:X" steht, bedeutet das, dass er oder sie aus dem - Höhlensystem entkommen ist. Das ist großartig, aber denkt daran: Es gibt - immer ein nächstes Mal. Ihr könnt niemals sicher sein, ob ihr diese - gefährlichen Höhlen lebendig verlasst. - -2) Es gibt in diesem Spiel einen Mogelcode ("cheat code"). - - -Aktualisierungen des Programms ------------------------------- - -Version 1.4 01.12.2004 - - - Änderte das Verhalten der magischen Tür - - Verbesserte ein paar Routinen - - Machte ein paar Verbesserungen in der Dokumentation - -Version 1.2 24.10.2004 - - - Behob Fehler mit der Granate - - Optimierte mehrere Routinen - -Version 1.1 04.10.2004 - - - Behob Fehler mit den Anfangspositionen der Monster - - Behob ein paar andere Fehler - - Verbesserte die KI der Jäger - - Optimierte Teile des Codes - - Machte ein paar kleinere kosmetische Änderungen - - Verbesserte die Geschichte - - Überarbeitete die Dokumentation - -Version 1.0 04.08.2004 - - - Erste Veröffentlichung - - -Kontakt -------- - -E-Mail: paul.redling@gmx.net - -Ich begrüße eure Kommentare. diff --git a/programs/samples/pete/cr/cr.bas b/programs/samples/pete/cr/cr.bas deleted file mode 100644 index 377d6ae38..000000000 --- a/programs/samples/pete/cr/cr.bas +++ /dev/null @@ -1,1902 +0,0 @@ -' *************************************** -' * * -' * CAVE RAIDER Version 1.4 * -' * =========== * -' * Copyright (c) 2004 by Paul Redling * -' * * -' *************************************** - -DEFINT A-Z - -DECLARE SUB TextBlink () -DECLARE SUB Initialize () -DECLARE SUB Story () -DECLARE SUB Instructions () -DECLARE SUB HallOfFame () -DECLARE SUB Options () -DECLARE SUB Game () -DECLARE SUB NextCave () -DECLARE SUB MoveCR () -DECLARE SUB MoveLGM () -DECLARE SUB MoveLRM () -DECLARE SUB MoveBM () -DECLARE SUB NewPositions () -DECLARE SUB HitDetection () -DECLARE SUB Explosion () -DECLARE SUB SetTimers () -DECLARE SUB QuickStop () -DECLARE SUB TheEnd () -DECLARE SUB EndScreen () -DECLARE SUB Highscore () -DECLARE SUB Pause () -DECLARE SUB Grenade (direction) -DECLARE SUB Quicksand (fields) -DECLARE SUB SetSound (number) -DECLARE SUB PCSound (number) -DECLARE SUB Delay (seconds!) -DECLARE SUB Center (row, text$) -DECLARE FUNCTION MainMenu () -DECLARE FUNCTION RandomInt (low, high) - -DIM SHARED table, cr!(3), crname$(3), hscore!(3), cave!(3), hscore, nohscore -DIM SHARED cr, ds, speaker, fe, crname$, rq1, rq2, rq3, dy, dx, y, x, oldy -DIM SHARED oldx, sy, sx, fields, lgmonsters, lrmonsters, bmonsters, health -DIM SHARED score, hit, gy, gx, ftime, trigger, mcounter, explode, xcounter -DIM SHARED tlgm!, tlrm!, tbm!, ts!, tq!, te!, tb!, grenades, magic, stone -DIM SHARED treasure, pgold, gem, scroll, death, cave, newcave, dkey$ - -RANDOMIZE TIMER -SCREEN 13 'Fullscreen mode in Windows -SCREEN 0 -WIDTH 40, 43 -PALETTE 1, 56 -PALETTE 9, 6 -Initialize - -DO - choice = MainMenu - IF choice = 1 THEN Game - IF choice = 2 THEN Story - IF choice = 3 THEN Instructions - IF choice = 4 THEN HallOfFame - IF choice = 5 THEN Options - IF choice = 6 THEN EXIT DO -LOOP - -SCREEN 13 -SCREEN 0 -WIDTH 80, 25 -COLOR 7, 0 -END - -FileError: -fe = 1 -RESUME NEXT - -SUB Center (row, text$) - -LOCATE row, (40 - LEN(text$)) \ 2 + 1 -PRINT text$; - -END SUB - -SUB Delay (seconds!) - -'Delays the program or sleeps -' If seconds! > 0, then it delays the program -' If seconds! <= 0, then it sleeps -' Delay 0 = Sleep, Delay -1 = Sleep 1, Delay -1.5 = Sleep 1.5 -' Unlike the SLEEP statement, the keyboard buffer is cleared after a key is -' pressed. - -secs! = ABS(seconds!) -IF secs! = 0 THEN secs! = 86400 -t! = TIMER -DO - IF seconds! > 0 THEN 'Delay - WHILE INKEY$ <> "": WEND 'Clear the keyboard buffer (no beeps!) - ELSE 'Sleep - dkey$ = INKEY$ 'To read a keystroke, make "dkey$" DIM - IF dkey$ <> "" THEN EXIT DO 'SHARED in the main module. - END IF -LOOP UNTIL ABS(TIMER - t!) >= secs! 'No endless loop at midnight! - -END SUB - -SUB EndScreen - -COLOR 8, 0 -FOR row = 1 TO 43: LOCATE row, 1: PRINT STRING$(40, 170); : NEXT row -FOR row = 10 TO 35: LOCATE row, 11: PRINT STRING$(20, 177): NEXT row -FOR row = 11 TO 34: LOCATE row, 12: PRINT SPACE$(18): NEXT row - -PALETTE 5, 57 -IF cave <> 7 THEN - COLOR 5 - FOR row = 12 TO 19: LOCATE row, 13: PRINT STRING$(16, 219); : NEXT row - COLOR 0, 2 - FOR row = 20 TO 21: LOCATE row, 13: PRINT STRING$(16, 177); : NEXT row - COLOR 0, 1 - LOCATE 13, 18: PRINT STRING$(6, 176) - FOR row = 14 TO 20: LOCATE row, 17: PRINT STRING$(8, 176); : NEXT row - COLOR 1 - FOR row = 15 TO 20: LOCATE row, 18: PRINT STRING$(6, 219); : NEXT row - COLOR 0 - LOCATE 15, 19: PRINT "REST" - LOCATE 17, 20: PRINT "IN" - LOCATE 19, 19: PRINT "PEACE" - COLOR 15, 0: Center 23, "A Hero!" - COLOR 7 - Center 25, "On " + DATE$ + ", " - Center 27, "at " + TIME$ + ", " - LOCATE 29, 13: PRINT crname$ - LOCATE 29, 14 + LEN(RTRIM$(crname$)): PRINT "fell." - COLOR 3: Center 31, "Score:" + LTRIM$(STR$(score)) -ELSE - COLOR 5 - FOR row = 12 TO 19: LOCATE row, 13: PRINT STRING$(16, 219); : NEXT row - COLOR 0, 2 - FOR row = 20 TO 21: LOCATE row, 13: PRINT STRING$(16, 177); : NEXT row - IF cr = 1 THEN COLOR 14 ELSE COLOR 13 - LOCATE 13, 16: PRINT STRING$(6, 219) - FOR row = 14 TO 19: LOCATE row, 15: PRINT STRING$(8, 219); : NEXT row - LOCATE 20, 16: PRINT STRING$(6, 219) - COLOR 0, 0 - LOCATE 15, 17: PRINT " ": LOCATE 15, 20: PRINT " " - LOCATE 17, 17: PRINT " " - LOCATE 18, 18: PRINT " " - COLOR 9, 5 - LOCATE 18, 25: PRINT "$" - LOCATE 19, 24: PRINT "$$$" - COLOR 15, 0: Center 23, "A Legend!" - COLOR 7 - Center 25, "On " + DATE$ + ", " - Center 27, "at " + TIME$ + ", " - LOCATE 29, 13: PRINT crname$ - LOCATE 29, 14 + LEN(RTRIM$(crname$)): PRINT "escaped." - COLOR 3: Center 31, "Score:" + LTRIM$(STR$(score)) -END IF -COLOR 8: Center 33, "Press any key" -LOCATE 33, 27: COLOR 24: PRINT "_" - -Delay 0 - -END SUB - -SUB Explosion STATIC - -IF firsttime = 0 THEN check = SCREEN(gy, gx): firsttime = 1 -LOCATE gy, gx -IF RND > .5 THEN COLOR 14 ELSE COLOR 4 -SELECT CASE check - CASE 249, 234, 36, 42, 254, 178, 176, 177: PRINT CHR$(15) - CASE ELSE -END SELECT -te! = TIMER -xcounter = xcounter + 1 - -IF xcounter = 10 THEN - explode = 0: xcounter = 0: firsttime = 0 - LOCATE gy, gx: COLOR 7 - SELECT CASE check - CASE 249: COLOR 7, 5: PRINT CHR$(42): COLOR 7, 1 'White star - CASE 234, 36, 42, 254: PRINT " " - CASE 178, 176: PRINT CHR$(176) - CASE 177: COLOR 15: PRINT CHR$(177) - CASE ELSE - END SELECT - IF check = 178 THEN - up = SCREEN(gy - 1, gx) - down = SCREEN(gy + 1, gx) - IF up <> 178 AND up <> 176 AND down <> 178 AND down <> 176 THEN LOCATE gy, gx: PRINT " " - END IF - gy = 1: gx = 1 -END IF - -END SUB - -SUB Game - -DO - -SCREEN 0, , 0, 0 - -IF cave = 7 THEN 'You've escaped from the cave system - EndScreen - Highscore - cave = 1 - EXIT SUB -END IF - -NextCave -PALETTE 5, 25 - -cheat$ = "cave6" - -newcave = 1 -oldcave = cave -health = 100 -treasure = 0 -gem = 0 -magic = 0 -stone = 0 -scroll = 0 -Quicksand -1 -SELECT CASE ds - CASE 1: grenades = 5 'Easy - CASE 2: grenades = 3 'Normal - CASE 3: grenades = 2 'Hard -END SELECT -IF cave = 1 THEN - PALETTE 12, 60 - score = 0 - pgold = 10 - lgmonsters = 6 - lrmonsters = 4 -ELSEIF cave MOD 3 = 0 THEN - PALETTE 12, 0 - pgold = 15 - IF cave = 3 THEN bmonsters = 10 - IF cave = 6 THEN bmonsters = 15 -ELSE - PALETTE 12, 60 - pgold = 10 - IF lgmonsters <= 8 THEN lgmonsters = lgmonsters + 2 - IF lrmonsters <= 8 THEN lrmonsters = lrmonsters + 2 -END IF - -'Build the screen -SCREEN 0, , 1, 0 -COLOR 7, 0: CLS -COLOR 15, 1 -FOR row = 1 TO 40: LOCATE row, 1: PRINT STRING$(40, 177); : NEXT row -FOR row = 2 TO 39: LOCATE row, 2: PRINT SPACE$(38); : NEXT row -COLOR 3, 0 -LOCATE 41, 2: PRINT "Health:100" -LOCATE 41, 18: PRINT "Score:" + LTRIM$(STR$(score)); -LOCATE 41, 34: PRINT "Cave:" + LTRIM$(STR$(cave)); -LOCATE 42, 2: PRINT "Grenades:" + LTRIM$(STR$(grenades)); -LOCATE 42, 15: PRINT "Gem:" + LTRIM$(STR$(gem)); -LOCATE 42, 22: PRINT "Scroll:" + LTRIM$(STR$(scroll)); -LOCATE 42, 33: PRINT "Magic:" + LTRIM$(STR$(magic)); - -'Starting positions -COLOR 11, 1 -gmy = RandomInt(2, 39) -gmx = RandomInt(2, 39) -LOCATE gmy, gmx: PRINT CHR$(4) 'Magic gem - -DO - sy = RandomInt(3, 38) - sx = RandomInt(3, 38) - IF sy > gmy + 15 OR sy < gmy - 15 THEN - IF SCREEN(sy, sx) = 32 THEN EXIT DO - END IF -LOOP -LOCATE sy, sx: PRINT CHR$(236) 'Magic scroll - -COLOR 9 -LOCATE sy - 1, sx - 1: PRINT STRING$(3, 250) -LOCATE sy, sx - 1: PRINT CHR$(250) 'Magic wall around scroll -LOCATE sy, sx + 1: PRINT CHR$(250) -LOCATE sy + 1, sx - 1: PRINT STRING$(3, 250) - -rq1 = RandomInt(1, 4) 'Random quadrant of lgmonsters -rq2 = RandomInt(1, 4) 'Random quadrant of lrmonsters -rq3 = RandomInt(1, 4) 'Random quadrant of bmonsters - -COLOR 15 -DO - rq = RandomInt(1, 4) 'Random quadrant of magic door - IF cave MOD 3 <> 0 THEN - IF rq <> rq1 AND rq <> rq2 THEN EXIT DO - ELSE - IF rq <> rq3 THEN EXIT DO - END IF -LOOP -DO - SELECT CASE rq - CASE 1: dy = RandomInt(2, 20): dx = RandomInt(4, 20) - CASE 2: dy = RandomInt(21, 39): dx = RandomInt(4, 20) - CASE 3: dy = RandomInt(2, 20): dx = RandomInt(23, 39) - CASE 4: dy = RandomInt(21, 39): dx = RandomInt(23, 39) - END SELECT - IF SCREEN(dy, dx) = 32 AND SCREEN(dy, dx - 2) = 32 THEN EXIT DO -LOOP -LOCATE dy, dx: PRINT "X" 'Magic door - -y = dy -x = dx - 2 -IF cr = 1 THEN COLOR 14 'Male CR -IF cr = 2 THEN COLOR 13 'Female CR -LOCATE y, x: PRINT CHR$(2) - -COLOR 7 -FOR n = 1 TO 22 'Rock formations - DO - ry = RandomInt(2, 35) - rx = RandomInt(4, 36) - IF SCREEN(ry, rx) = 32 THEN - FOR rfx = rx - 3 TO rx + 3 - FOR rfy = ry TO ry + 4 - IF SCREEN(rfy, rfx) = 32 THEN counter = counter + 1 - NEXT rfy - NEXT rfx - END IF - IF counter = 35 THEN EXIT DO - counter = 0 - LOOP - LOCATE ry, rx: PRINT CHR$(178) - LOCATE ry + 1, rx - 1: PRINT STRING$(3, 178) - LOCATE ry + 2, rx - 2: PRINT STRING$(5, 178) - rn = RandomInt(1, 2) - IF rn = 2 THEN LOCATE ry + 3, rx - 3: PRINT STRING$(7, 178) - counter = 0 -NEXT n - -IF cave MOD 3 <> 0 THEN - COLOR 2 - DO - cy = RandomInt(2, 39) - cx = RandomInt(2, 39) - IF SCREEN(cy, cx) = 32 THEN EXIT DO - LOOP - LOCATE cy, cx: PRINT CHR$(254) 'Chest of grenades -END IF - -COLOR 9 -FOR n = 1 TO pgold 'Pieces of gold - DO - pgy = RandomInt(2, 39) - pgx = RandomInt(2, 39) - IF SCREEN(pgy, pgx) = 32 THEN EXIT DO - LOOP - LOCATE pgy, pgx: PRINT "$" -NEXT n - -IF cave MOD 3 <> 0 THEN - MoveLGM 'Monsters - MoveLRM -ELSE - MoveBM -END IF - -gy = 1: gx = 1 -hit = 1: mcounter = 0: ftime = 0 -newcave = 0 - -PCOPY 1, 0 -Pause -tq! = TIMER - -'Main loop -DO - k$ = UCASE$(INKEY$) - IF k$ <> "" THEN - k = k + 1 - IF MID$(cheat$, k, 1) = LCASE$(k$) THEN cheat = cheat + 1 ELSE k = 0: cheat = 0 - IF cheat = 5 THEN cave = 6: score = 0: nohscore = 1: EXIT DO - END IF - oldy = y: oldx = x - COLOR 7, 1 - SELECT CASE k$ - CASE CHR$(0) + CHR$(75) 'Left - LOCATE y, x: PRINT " ": x = x - 1: MoveCR - CASE CHR$(0) + CHR$(77) 'Right - LOCATE y, x: PRINT " ": x = x + 1: MoveCR - CASE CHR$(0) + CHR$(72) 'Up - LOCATE y, x: PRINT " ": y = y - 1: MoveCR - CASE CHR$(0) + CHR$(80) 'Down - LOCATE y, x: PRINT " ": y = y + 1: MoveCR - CASE CHR$(32) 'Spacebar - IF hit = 0 THEN - trigger = 1: Grenade (direction) - ELSEIF hit = 1 THEN - IF grenades > 0 THEN - hit = 0 - COLOR 2, 0 - LOCATE 43, 1: PRINT SPACE$(40); - Center 43, "Which direction?" - COLOR 2, 1 - PCOPY 1, 0 - DO - d$ = UCASE$(INKEY$) - IF d$ = CHR$(0) + CHR$(72) THEN direction = 1: EXIT DO - IF d$ = CHR$(0) + CHR$(80) THEN direction = 2: EXIT DO - IF d$ = CHR$(0) + CHR$(75) THEN direction = 3: EXIT DO - IF d$ = CHR$(0) + CHR$(77) THEN direction = 4: EXIT DO - IF explode = 1 AND ABS(TIMER - te!) >= .01 AND xcounter < 10 THEN Explosion - NewPositions - PCOPY 1, 0 - IF d$ = CHR$(32) THEN hit = 1: EXIT DO - IF death = 1 THEN death = 0: EXIT SUB - LOOP - IF explode = 1 THEN xcounter = 9: Explosion - IF d$ <> CHR$(32) THEN - PCSound 7 - Grenade (direction) - IF grenades > 0 THEN grenades = grenades - 1 - COLOR 3, 0 - LOCATE 42, 2: PRINT "Grenades:" + LTRIM$(STR$(grenades)) + " "; - tg! = TIMER - END IF - SetSound 1 - ELSE - COLOR 3, 7: LOCATE 42, 11: PRINT "0"; - PCOPY 1, 0 - Delay .1 - COLOR 3, 0: LOCATE 42, 11: PRINT "0"; - COLOR 3, 1 - END IF - END IF - CASE "M" 'Magic - IF magic > 0 THEN - PCSound 9 - magic = magic - 1 - ts! = TIMER - stone = 1 - COLOR 3, 0 - LOCATE 42, 33: PRINT "Magic:" + LTRIM$(STR$(magic)); - COLOR 3, 1 - PALETTE 1, 7: Delay .1: PALETTE 1, 56 - PALETTE 12, 7 - ELSE - COLOR 3, 7 - LOCATE 42, 39: PRINT "0"; - PCOPY 1, 0 - Delay .1 - COLOR 3, 0 - LOCATE 42, 39: PRINT "0"; - COLOR 3, 1 - END IF - CASE "S" 'Sound on/off - SetSound 2 - CASE "P" 'Pause - Pause - CASE "H" 'Help - QuickStop - PCOPY 1, 0 - Instructions - PCOPY 0, 1 - SCREEN 0, , 1, 0 - PALETTE 5, 25 - COLOR 7, 1 - SetTimers - CASE "Q" 'Quit game - QuickStop - COLOR 7, 0 - LOCATE 43, 1: PRINT SPACE$(40); - Center 43, "Do you really want to quit? (Y/N)" - LOCATE 43, 37: COLOR 23: PRINT "_"; - PCOPY 1, 0 - COLOR 7 - DO - q$ = UCASE$(INKEY$) - IF q$ = "Y" THEN cave = 1: score = 0: nohscore = 0: EXIT SUB - IF q$ = "N" THEN SetSound 1: SetTimers: EXIT DO - LOOP - CASE ELSE - END SELECT - IF gy = y AND gx = x THEN TheEnd - IF death = 1 THEN death = 0: EXIT SUB - IF cave <> oldcave AND death = 0 THEN EXIT DO - IF hit = 0 AND ABS(TIMER - tg!) >= .01 THEN Grenade (direction): tg! = TIMER - IF explode = 1 AND ABS(TIMER - te!) >= .01 AND xcounter < 10 THEN Explosion - IF (TIMER AND 3) = 0 THEN LOCATE dy, dx: COLOR 0: PRINT "X" ELSE LOCATE dy, dx: COLOR 15: PRINT "X" - IF score <> oldscore THEN - LOCATE 41, 18: COLOR 3, 0: PRINT "Score:" + LTRIM$(STR$(score)); : COLOR 7, 1 - oldscore = score - END IF - NewPositions - PCOPY 1, 0 -LOOP - -LOOP - -END SUB - -SUB Grenade (direction) - -COLOR 2 - -'Manual explosion of grenade -IF trigger = 1 THEN - trigger = 0 - IF SCREEN(gy, gx) = 32 THEN LOCATE gy, gx: PRINT CHR$(249) - HitDetection - EXIT SUB -END IF - -'Move the grenade -mcounter = mcounter + 1 -SELECT CASE direction - CASE 1 - IF ftime = 0 THEN gy = y - 1: gx = x: ftime = 1 - IF mcounter = 1 THEN - HitDetection - ELSE - IF SCREEN(gy, gx) = 249 THEN LOCATE gy, gx: PRINT " " - gy = gy - 1 - mcounter = 0 - END IF - CASE 2 - IF ftime = 0 THEN gy = y + 1: gx = x: ftime = 1 - IF mcounter = 1 THEN - HitDetection - ELSE - IF SCREEN(gy, gx) = 249 THEN LOCATE gy, gx: PRINT " " - gy = gy + 1 - mcounter = 0 - END IF - CASE 3 - IF ftime = 0 THEN gy = y: gx = x - 1: ftime = 1 - IF mcounter = 1 THEN - HitDetection - ELSE - IF SCREEN(gy, gx) = 249 THEN LOCATE gy, gx: PRINT " " - gx = gx - 1 - mcounter = 0 - END IF - CASE 4 - IF ftime = 0 THEN gy = y: gx = x + 1: ftime = 1 - IF mcounter = 1 THEN - HitDetection - ELSE - IF SCREEN(gy, gx) = 249 THEN LOCATE gy, gx: PRINT " " - gx = gx + 1 - mcounter = 0 - END IF -END SELECT - -END SUB - -SUB HallOfFame - -DO - -SCREEN 0, , 1, 0 - -'Title -PALETTE 6, 48 -COLOR 15, 6 -FOR row = 1 TO 14: LOCATE row, 1: PRINT STRING$(40, 177); : NEXT row -FOR row = 2 TO 13: LOCATE row, 2: PRINT SPACE$(38); : NEXT row -COLOR 7 -Center 8, "H A L L O F F A M E" - -'Dots -COLOR 15, 0 -FOR row = 15 TO 43: LOCATE row, 1: PRINT STRING$(40, 176); : NEXT row -FOR row = 20 TO 34: LOCATE row, 1: PRINT SPACE$(40); : NEXT row - -'Table -COLOR 7, 0 -FOR i = 1 TO 3 - IF i = 1 THEN yi = 22: ds$ = "Easy" - IF i = 2 THEN yi = 25: ds$ = "Normal" - IF i = 3 THEN yi = 28: ds$ = "Hard" - LOCATE yi, 2: IF cr!(i) = 1 THEN COLOR 14: PRINT CHR$(2) ELSE COLOR 13: PRINT CHR$(2) - COLOR 7 - LOCATE yi, 4: PRINT crname$(i) - LOCATE yi, 14: PRINT "Score:" + LTRIM$(STR$(hscore!(i))) - IF cave!(i) <> 7 THEN - LOCATE yi, 26: PRINT "Cave:" + LTRIM$(STR$(cave!(i))) - ELSE - LOCATE yi, 26: PRINT "Cave:" + "X" - END IF - LOCATE yi, 34: PRINT ds$ -NEXT i - -SELECT CASE hscore - CASE 0 - CASE 1: LOCATE 22, 1: COLOR 22: PRINT "V" - CASE 2: LOCATE 25, 1: COLOR 22: PRINT "V" - CASE 3: LOCATE 28, 1: COLOR 22: PRINT "V" -END SELECT -IF hscore <> 0 THEN - COLOR 6 - Center 31, "CONGRATULATIONS," - Center 32, "you're among the victors." - PCOPY 1, 0 - hscore = 0 - IF speaker = 0 THEN Delay -10 - PCSound 13 - SOUND 0, 0 - LOCATE 22, 1: PRINT " " - LOCATE 25, 1: PRINT " " - LOCATE 28, 1: PRINT " " - LOCATE 31, 1: PRINT SPACE$(40) - LOCATE 32, 1: PRINT SPACE$(40) -END IF - -COLOR 8 -Center 31, "Press F1 to clear the table or any" -Center 32, "other key to return to the main menu" -LOCATE 32, 39: COLOR 24: PRINT "_" -PCOPY 1, 0 -Delay 0 -IF dkey$ = CHR$(0) + CHR$(59) THEN - fe = 1: table = 1: Initialize: table = 0 -ELSE - EXIT DO -END IF - -LOOP - -PALETTE 6, 20 - -END SUB - -SUB Highscore - -'If a new highscore has been achieved, then save the HoF data -IF nohscore = 1 THEN score = 0: nohscore = 0 -ON ERROR GOTO FileError -SELECT CASE ds - CASE 1 - IF score > hscore!(1) THEN - cr!(1) = cr: crname$(1) = crname$ - hscore!(1) = score: cave!(1) = cave: hscore = 1 - OPEN "cr.dat" FOR BINARY AS #1 - SEEK #1, 15 - PUT #1, , cr!(1) - FOR n = 1 TO 8 - letter! = ASC(MID$(crname$(1), n, 1)) / 4 - PUT #1, , letter! - NEXT n - PUT #1, , hscore!(1) - PUT #1, , cave!(1) - CLOSE #1 - HallOfFame - END IF - CASE 2 - IF score > hscore!(2) THEN - cr!(2) = cr: crname$(2) = crname$ - hscore!(2) = score: cave!(2) = cave: hscore = 2 - OPEN "cr.dat" FOR BINARY AS #1 - SEEK #1, 59 - PUT #1, , cr!(2) - FOR n = 1 TO 8 - letter! = ASC(MID$(crname$(2), n, 1)) / 4 - PUT #1, , letter! - NEXT n - PUT #1, , hscore!(2) - PUT #1, , cave!(2) - CLOSE #1 - HallOfFame - END IF - CASE 3 - IF score > hscore!(3) THEN - cr!(3) = cr: crname$(3) = crname$ - hscore!(3) = score: cave!(3) = cave: hscore = 3 - OPEN "cr.dat" FOR BINARY AS #1 - SEEK #1, 103 - PUT #1, , cr!(3) - FOR n = 1 TO 8 - letter! = ASC(MID$(crname$(3), n, 1)) / 4 - PUT #1, , letter! - NEXT n - PUT #1, , hscore!(3) - PUT #1, , cave!(3) - CLOSE #1 - HallOfFame - END IF -END SELECT -ON ERROR GOTO 0 - -END SUB - -SUB HitDetection - -check = SCREEN(gy, gx) -IF check <> 32 THEN - hit = 1: mcounter = 0: ftime = 0 - SELECT CASE check - CASE 234 - IF cave MOD 3 <> 0 THEN - PCSound 8 - check = SCREEN(gy, gx, 1) - IF check = 26 THEN - score = score + 60: MoveLGM - ELSE - score = score + 80: MoveLRM - END IF - END IF - CASE 249, 36, 42, 254, 178, 177, 176 - PCSound 8 - CASE ELSE - END SELECT - IF cave MOD 3 = 0 AND check = 234 THEN gy = 1: gx = 1 ELSE explode = 1 -ELSE - LOCATE gy, gx: PRINT CHR$(249) -END IF - -END SUB - -SUB Initialize - -ON ERROR GOTO FileError - -OPEN "cr.dat" FOR BINARY AS #1 -GET #1, 1, check -IF check <> 1234 THEN fe = 1 -GET #1, 5, cr -GET #1, 9, ds -GET #1, 13, speaker -FOR i = 1 TO 3 - GET #1, , cr!(i) - FOR n = 1 TO 8 - GET #1, , letter! - crname$(i) = crname$(i) + CHR$(letter! * 4) - NEXT n - GET #1, , hscore!(i) - GET #1, , cave!(i) -NEXT i -CLOSE #1 - -'If a file error has occurred, then use the standard settings -IF fe = 1 THEN - fe = 0 - check = 1234 - IF table = 0 THEN 'Not F1 from the HoF - cr = 1 'Male CR - ds = 2 'Normal - speaker = 1 'Sound on - END IF - OPEN "cr.dat" FOR BINARY AS #1 - PUT #1, 1, check - PUT #1, 5, cr - PUT #1, 9, ds - PUT #1, 13, speaker - FOR i = 1 TO 3 - cr!(i) = 1 - PUT #1, , cr!(i) - FOR n = 1 TO 8 - crname$(i) = "........" - letter! = ASC(MID$(crname$(i), n, 1)) / 4 - PUT #1, , letter! - NEXT n - hscore!(i) = 0 - PUT #1, , hscore!(i) - cave!(i) = 0 - PUT #1, , cave!(i) - NEXT i - CLOSE #1 -END IF - -ON ERROR GOTO 0 -PLAY "mb" -cave = 1 - -END SUB - -SUB Instructions - -SCREEN 0, , 1, 1 -COLOR 8, 0 -FOR row = 1 TO 43: LOCATE row, 1: PRINT STRING$(40, 242); : NEXT row -FOR row = 3 TO 41: LOCATE row, 9: PRINT STRING$(24, 177): NEXT row -FOR row = 4 TO 40: LOCATE row, 10: PRINT SPACE$(22): NEXT row -COLOR 3 -Center 5, "How to Play the Game" -Center 6, "--------------------" - -COLOR 7 -Center 8, "Objective: Get the " -Center 10, "magic gem, all the " -Center 12, "gold in the cave and" -Center 14, "finally the magic " -Center 16, "scroll. Then head " -Center 18, "for the magic door. " -Center 20, "Don't forget to pick" -Center 22, "up the green chest " -Center 24, "of grenades because " -Center 26, "you're not alone. " -Center 28, "Those cave monsters " -Center 30, "not only love their " -Center 32, "gold but also fresh " -Center 34, "meat. Therefore, be " -Center 36, "careful. " -LOCATE 8, 11: COLOR 15: PRINT "Objective:" -COLOR 8 -Center 39, "Press any key (1/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -PALETTE 5, 5 -COLOR 7 -Center 8, "Keys: You move the " -Center 10, "cave raider with the" -Center 12, "arrow keys. If you " -Center 14, "press Spacebar, " -Center 16, "you'll be asked in " -Center 18, "which direction you " -Center 20, "want to launch a " -Center 22, "grenade. Press an " -Center 24, "arrow key to fire a " -Center 26, "grenade or Spacebar " -Center 28, "if you changed your " -Center 30, "mind. If you press " -Center 32, "Spacebar while a " -Center 34, "grenade is flying " -Center 36, "through the air, the" -LOCATE 8, 11: COLOR 15: PRINT "Keys:" -COLOR 5 -LOCATE 12, 11: PRINT "arrow keys" -LOCATE 14, 17: PRINT "Spacebar" -COLOR 8 -Center 39, "Press any key (2/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "grenade will explode" -Center 10, "immediately and " -Center 12, "leave a sign (a " -Center 14, "white star) on the " -Center 16, "ground. The magic " -Center 18, "gem gives you two " -Center 20, "spells. If you press" -Center 22, "M, the red monsters " -Center 24, "will temporarily " -Center 26, "turn into stone. " -Center 28, "The same is true for" -Center 30, "the black monsters " -Center 32, "that can't be killed" -Center 34, "by grenades due to " -Center 36, "their magic origin. " -LOCATE 22, 11: COLOR 5: PRINT "M" -COLOR 8 -Center 39, "Press any key (3/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -PALETTE 5, 25 -COLOR 7 -Center 8, "ASCII characters: " -Center 10, " - Male CR " -Center 12, " - Female CR " -Center 14, " - Rock " -Center 16, " (-80 health) " -Center 18, " - Rock " -Center 20, " (-60 health) " -Center 22, " - Rock " -Center 24, " (-40 health) " -Center 26, " - Gold (50 points)" -Center 28, " - Chest of " -Center 30, " grenades " -Center 32, " - Grenade " -Center 34, " - Explosion " -Center 36, " - Sign " -LOCATE 8, 11: COLOR 15: PRINT "ASCII characters:" -LOCATE 10, 11: COLOR 14: PRINT CHR$(2) -LOCATE 12, 11: COLOR 13: PRINT CHR$(2) -LOCATE 14, 11: COLOR 15: PRINT CHR$(177) -LOCATE 18, 11: COLOR 7: PRINT CHR$(178) -LOCATE 22, 11: PRINT CHR$(176) -LOCATE 26, 11: COLOR 9: PRINT CHR$(36) -LOCATE 28, 11: COLOR 2: PRINT CHR$(254) -LOCATE 32, 11: PRINT CHR$(249) -LOCATE 34, 11: COLOR 4: PRINT CHR$(15) -LOCATE 36, 11: COLOR 7, 5: PRINT CHR$(42) -COLOR 8, 0 -Center 39, "Press any key (4/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -PALETTE 5, 60 -COLOR 7 -Center 8, " - Magic gem " -Center 10, " (100 points) " -Center 12, " - Magic scroll " -Center 14, " (100 points) " -Center 16, " - Magic wall " -Center 18, " - Magic field of " -Center 20, " quicksand " -Center 22, " - Cave monster " -Center 24, " (60 points) " -Center 26, " - Cave monster " -Center 28, " (80 points) " -Center 30, " - Cave monster " -Center 32, " (100 points) " -Center 34, " - Magic door " -Center 36, " (200 points) " -LOCATE 8, 11: COLOR 11: PRINT CHR$(4) -LOCATE 12, 11: PRINT CHR$(236) -LOCATE 16, 11: COLOR 9: PRINT CHR$(250) -LOCATE 18, 11: COLOR 6: PRINT CHR$(247) -LOCATE 22, 11: COLOR 10, 1: PRINT CHR$(234) -LOCATE 26, 11: COLOR 5: PRINT CHR$(234) -LOCATE 30, 11: COLOR 0: PRINT CHR$(234) -LOCATE 34, 11: COLOR 15, 0: PRINT "X" -COLOR 8 -Center 39, "Press any key (5/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "Hints: Analyze each " -Center 10, "cave before you " -Center 12, "begin. Remember that" -Center 14, "you can't leave a " -Center 16, "cave if there's a " -Center 18, "monster at the magic" -Center 20, "door. This is the " -Center 22, "aim of the green " -Center 24, "monsters. The others" -Center 26, "will hunt you. It " -Center 28, "can be a good idea " -Center 30, "to use one or two " -Center 32, "signs as barriers. " -Center 34, " " -Center 36, " Have fun!" -COLOR 15 -LOCATE 8, 11: PRINT "Hints:" -LOCATE 36, 22: PRINT "Have fun!" -COLOR 8 -Center 39, "Press any key (6/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 - -END SUB - -FUNCTION MainMenu - -SCREEN 0, , 0, 0 - -'Title -COLOR 15, 1 -FOR row = 1 TO 21: LOCATE row, 1: PRINT STRING$(40, 177): NEXT row -FOR row = 2 TO 20: LOCATE row, 2: PRINT SPACE$(38): NEXT row - -COLOR 7 -Center 4, " @@@@ @@@ @ @ @@@@@" -Center 5, "@ @ @ @ @ @ " -Center 6, "@ @@@@@ @ @ @@@@ " -Center 7, "@ @ @ @ @ @ " -Center 8, " @@@@ @ @ @ @@@@@" - -Center 11, "@@@@ @@@ @ @@@@ @@@@@ @@@@ " -Center 12, "@ @ @ @ @ @ @ @ @ @" -Center 13, "@@@@ @@@@@ @ @ @ @@@@ @@@@ " -Center 14, "@ @ @ @ @ @ @ @ @ @ " -Center 15, "@ @ @ @ @ @@@@ @@@@@ @ @" - -COLOR 0 -Center 18, "Copyright (c) 2004 by paul redling" - -'Main menu -COLOR 8, 0 -FOR row = 22 TO 43: LOCATE row, 1: PRINT STRING$(40, 242); : NEXT row -FOR row = 25 TO 39: LOCATE row, 13: PRINT STRING$(16, 177): NEXT row -FOR row = 26 TO 38: LOCATE row, 14: PRINT SPACE$(14): NEXT row - -COLOR 9 -LOCATE 29, 8: PRINT "$" -LOCATE 30, 7: PRINT "$$$$" -LOCATE 31, 6: PRINT "$" -LOCATE 31, 8: PRINT "$" -LOCATE 32, 7: PRINT "$$$" -LOCATE 33, 8: PRINT "$" -LOCATE 33, 10: PRINT "$" -LOCATE 34, 6: PRINT "$$$$" -LOCATE 35, 8: PRINT "$" - -LOCATE 29, 33: PRINT "$" -LOCATE 30, 32: PRINT "$$$$" -LOCATE 31, 31: PRINT "$" -LOCATE 31, 33: PRINT "$" -LOCATE 32, 32: PRINT "$$$" -LOCATE 33, 33: PRINT "$" -LOCATE 33, 35: PRINT "$" -LOCATE 34, 31: PRINT "$$$$" -LOCATE 35, 33: PRINT "$" - -COLOR 3 -ty = 27 -DO - IF ty = 27 THEN TextBlink: Center 27, "Play ": COLOR 3 ELSE Center 27, "Play " - IF ty = 29 THEN TextBlink: Center 29, "Story ": COLOR 3 ELSE Center 29, "Story " - IF ty = 31 THEN TextBlink: Center 31, "Instructions": COLOR 3 ELSE Center 31, "Instructions" - IF ty = 33 THEN TextBlink: Center 33, "Hall of Fame": COLOR 3 ELSE Center 33, "Hall of Fame" - IF ty = 35 THEN TextBlink: Center 35, "Options ": COLOR 3 ELSE Center 35, "Options " - IF ty = 37 THEN TextBlink: Center 37, "Quit ": COLOR 3 ELSE Center 37, "Quit " - IF k$ <> "" THEN Delay .1 - k$ = INKEY$ - IF k$ = CHR$(0) + CHR$(72) THEN ty = ty - 2 'Up - IF k$ = CHR$(0) + CHR$(80) THEN ty = ty + 2 'Down - IF k$ = CHR$(13) AND ty = 27 THEN MainMenu = 1: EXIT FUNCTION 'Play - IF k$ = CHR$(13) AND ty = 29 THEN MainMenu = 2: EXIT FUNCTION 'Story - IF k$ = CHR$(13) AND ty = 31 THEN MainMenu = 3: EXIT FUNCTION 'Instructions - IF k$ = CHR$(13) AND ty = 33 THEN MainMenu = 4: EXIT FUNCTION 'HallOfFame - IF k$ = CHR$(13) AND ty = 35 THEN MainMenu = 5: EXIT FUNCTION 'Options - IF k$ = CHR$(13) AND ty = 37 THEN MainMenu = 6: EXIT FUNCTION 'Quit - IF ty > 37 THEN ty = 27 - IF ty < 27 THEN ty = 37 -LOOP - -END FUNCTION - -SUB MoveBM STATIC - -DIM y(15), x(15), oldy(15), oldx(15) - -COLOR 12 -IF newcave THEN - FOR i = 1 TO bmonsters 'The initial positions of the invincible black - DO 'monsters that hunt the cave raider. - SELECT CASE rq3 - CASE 1: y(i) = RandomInt(2, 20): x(i) = RandomInt(2, 20) - CASE 2: y(i) = RandomInt(21, 39): x(i) = RandomInt(2, 20) - CASE 3: y(i) = RandomInt(2, 20): x(i) = RandomInt(21, 39) - CASE 4: y(i) = RandomInt(21, 39): x(i) = RandomInt(21, 39) - END SELECT - IF SCREEN(y(i), x(i)) = 32 THEN EXIT DO - LOOP - LOCATE y(i), x(i): PRINT CHR$(234) - oldy(i) = y(i): oldx(i) = x(i) - NEXT i - EXIT SUB -END IF - -IF scroll = 1 THEN 'If the scroll has been taken, the magic black - COLOR 0 'monsters will turn into gems. - FOR i = 1 TO bmonsters - LOCATE y(i), x(i): PRINT CHR$(4) - NEXT i - EXIT SUB -END IF - -'The movements of the black monsters -FOR i = 1 TO bmonsters - left = SCREEN(y(i), x(i) - 1) 'Look for possible directions - right = SCREEN(y(i), x(i) + 1) - up = SCREEN(y(i) - 1, x(i)) - down = SCREEN(y(i) + 1, x(i)) - IF left = 32 OR left = 2 THEN left = 0 - IF right = 32 OR right = 2 THEN right = 0 - IF up = 32 OR up = 2 THEN up = 0 - IF down = 32 OR down = 2 THEN down = 0 - FOR try = 1 TO 2 'Try to pick a direction towards cave raider - IF y(i) < y OR y(i) > y THEN - IF RND > .7 THEN - IF left = 0 AND x(i) > x THEN x(i) = x(i) - 1: EXIT FOR - IF right = 0 AND x(i) < x THEN x(i) = x(i) + 1: EXIT FOR - ELSE - IF up = 0 AND y(i) > y THEN y(i) = y(i) - 1: EXIT FOR - IF down = 0 AND y(i) < y THEN y(i) = y(i) + 1: EXIT FOR - END IF - ELSE - IF left = 0 AND x(i) > x THEN x(i) = x(i) - 1: EXIT FOR - IF right = 0 AND x(i) < x THEN x(i) = x(i) + 1: EXIT FOR - END IF - NEXT try - IF y(i) = oldy(i) AND x(i) = oldx(i) THEN 'If you didn't pick a - FOR try = 1 TO 8 'direction already, - rn = RandomInt(1, 4) 'then try to pick a - IF rn = 1 AND left = 0 THEN x(i) = x(i) - 1: EXIT FOR 'random - IF rn = 2 AND right = 0 THEN x(i) = x(i) + 1: EXIT FOR 'direction. - IF rn = 3 AND up = 0 THEN y(i) = y(i) - 1: EXIT FOR - IF rn = 4 AND down = 0 THEN y(i) = y(i) + 1: EXIT FOR - NEXT try - END IF - IF y(i) <> oldy(i) OR x(i) <> oldx(i) THEN - LOCATE oldy(i), oldx(i): PRINT " " 'Erase old position - LOCATE y(i), x(i): PRINT CHR$(234) 'Move to new position - oldy(i) = y(i): oldx(i) = x(i) - END IF - IF y(i) = y AND x(i) = x THEN TheEnd: EXIT SUB 'You got cave raider -NEXT i - -tbm! = TIMER - -END SUB - -SUB MoveCR - -check = SCREEN(y, x) -IF check = 234 THEN TheEnd 'Monster -IF check = 178 OR check = 177 OR check = 176 THEN 'Rock - SELECT CASE check - CASE 178: health = health - 60 - CASE 177: health = health - 80 - CASE 176: health = health - 40 - END SELECT - IF health < 0 THEN health = 0 - COLOR 3, 0 - LOCATE 41, 2: PRINT "Health:" + LTRIM$(STR$(health)) + " "; - COLOR 3, 1 - IF health > 0 THEN - PCSound 10 - y = oldy: x = oldx - PCOPY 1, 0 - Delay .5 - ELSE - TheEnd - END IF -END IF -IF check = 247 THEN TheEnd 'Quicksand -IF check = 15 THEN xcounter = 9: Explosion: TheEnd 'Explosion -IF check = 88 THEN 'Magic door - IF SCREEN(y, x - 1) <> 234 AND SCREEN(y, x + 1) <> 234 AND SCREEN(y - 1, x) <> 234 AND SCREEN(y + 1, x) <> 234 AND gem = 1 AND scroll = 1 THEN - QuickStop - LOCATE dy, dx: COLOR 11: PRINT "X" - IF cave < 6 THEN PCSound 11 ELSE PCSound 12 - IF cave < 6 THEN score = score + 200 ELSE score = score + 1000 - LOCATE 41, 18: COLOR 3, 0: PRINT "Score:" + LTRIM$(STR$(score)); : COLOR 7, 1 - IF SCREEN(gy, gx) = 249 THEN LOCATE gy, gx: PRINT " " - PCOPY 1, 0 - Delay 2 - cave = cave + 1 - EXIT SUB - ELSE - TheEnd - END IF -END IF -IF check = 36 THEN 'Piece of gold - PCSound 1 - score = score + 50 - treasure = treasure + 1 - IF treasure = pgold THEN 'If all the gold has been collected, - LOCATE sy - 1, sx - 1: PRINT SPACE$(3) 'then erase the magic wall - LOCATE sy, sx - 1: PRINT " " 'around the scroll. - LOCATE sy, sx + 1: PRINT " " - LOCATE sy + 1, sx - 1: PRINT SPACE$(3) - PCSound 6 - END IF -END IF -IF check = 254 THEN 'Chest of grenades - PCSound 2 - SELECT CASE ds - CASE 1: grenades = grenades + 5 - CASE 2: grenades = grenades + 3 - CASE 3: grenades = grenades + 2 - END SELECT - COLOR 3, 0 - LOCATE 42, 2: PRINT "Grenades:" + LTRIM$(STR$(grenades)); - COLOR 3, 1 -END IF -IF check = 4 THEN 'Magic gem - PCSound 3 - score = score + 100 - check = SCREEN(y, x, 1) - IF check = 27 THEN gem = gem + 1: magic = 2 - COLOR 3, 0 - LOCATE 42, 15: PRINT "Gem:" + LTRIM$(STR$(gem)); - LOCATE 42, 33: PRINT "Magic:" + LTRIM$(STR$(magic)); - COLOR 3, 1 -END IF -IF check = 236 THEN 'Magic scroll - PCSound 3 - score = score + 100 - scroll = 1 - Quicksand 0 - COLOR 3, 0 - LOCATE 42, 22: PRINT "Scroll:" + LTRIM$(STR$(scroll)); - COLOR 3, 1 - IF cave MOD 3 = 0 THEN MoveBM -END IF -IF check = 250 THEN TheEnd 'Magic wall around scroll - -IF death = 1 THEN EXIT SUB -IF cr = 1 THEN COLOR 14 ELSE COLOR 13 -LOCATE y, x: PRINT CHR$(2) -IF stone = 0 AND cave MOD 3 <> 0 THEN MoveLRM - -END SUB - -SUB MoveLGM STATIC - -DIM y(10), x(10), oldy(10), oldx(10), mdoor(10) - -COLOR 10 -IF newcave THEN - FOR i = 1 TO lgmonsters 'The initial positions of the light green - DO 'monsters that move towards the magic door. - SELECT CASE rq1 - CASE 1: y(i) = RandomInt(2, 20): x(i) = RandomInt(2, 20) - CASE 2: y(i) = RandomInt(21, 39): x(i) = RandomInt(2, 20) - CASE 3: y(i) = RandomInt(2, 20): x(i) = RandomInt(21, 39) - CASE 4: y(i) = RandomInt(21, 39): x(i) = RandomInt(21, 39) - END SELECT - IF SCREEN(y(i), x(i)) = 32 THEN EXIT DO - LOOP - LOCATE y(i), x(i): PRINT CHR$(234) - oldy(i) = y(i): oldx(i) = x(i) - mdoor(i) = 0 - NEXT i - EXIT SUB -END IF - -FOR i = 1 TO lgmonsters - IF y(i) = gy AND x(i) = gx THEN 'A grenade hit you - y(i) = 0: x(i) = 0 - EXIT SUB - END IF -NEXT i - -'The movements of the light green monsters -FOR i = 1 TO lgmonsters - IF y(i) <> 0 AND x(i) <> 0 THEN - left = SCREEN(y(i), x(i) - 1) 'Look for possible directions - right = SCREEN(y(i), x(i) + 1) - up = SCREEN(y(i) - 1, x(i)) - down = SCREEN(y(i) + 1, x(i)) - IF left = 88 OR right = 88 OR up = 88 OR down = 88 THEN mdoor(i) = 1 - IF left = 32 OR left = 2 THEN left = 0 - IF right = 32 OR right = 2 THEN right = 0 - IF up = 32 OR up = 2 THEN up = 0 - IF down = 32 OR down = 2 THEN down = 0 - rn = RandomInt(1, 4) 'Try to pick a direction towards the magic door - IF rn = 1 AND left = 0 AND x(i) > dx THEN x(i) = x(i) - 1 - IF rn = 2 AND right = 0 AND x(i) < dx THEN x(i) = x(i) + 1 - IF rn = 3 AND up = 0 AND y(i) > dy THEN y(i) = y(i) - 1 - IF rn = 4 AND down = 0 AND y(i) < dy THEN y(i) = y(i) + 1 - IF y(i) = oldy(i) AND x(i) = oldx(i) AND mdoor(i) = 0 THEN 'If you - IF RND > .7 THEN 'didn't pick a - rn = RandomInt(1, 4) 'direction already - IF rn = 1 AND left = 0 THEN x(i) = x(i) - 1 'and you're not at - IF rn = 2 AND right = 0 THEN x(i) = x(i) + 1 'the magic door, - IF rn = 3 AND up = 0 THEN y(i) = y(i) - 1 'then pick a random - IF rn = 4 AND down = 0 THEN y(i) = y(i) + 1 'direction or no - END IF 'direction at all. - END IF - IF y(i) <> oldy(i) OR x(i) <> oldx(i) THEN - LOCATE oldy(i), oldx(i): PRINT " " 'Erase old position - LOCATE y(i), x(i): PRINT CHR$(234) 'Move to new position - oldy(i) = y(i): oldx(i) = x(i) - END IF - IF y(i) = y AND x(i) = x THEN TheEnd: EXIT SUB 'You got cave raider - END IF -NEXT i - -tlgm! = TIMER - -END SUB - -SUB MoveLRM STATIC - -DIM y(10), x(10), oldy(10), oldx(10) - -COLOR 12 -IF newcave THEN - FOR i = 1 TO lrmonsters 'The initial positions of the light red - DO 'monsters that hunt the cave raider. - SELECT CASE rq2 - CASE 1: y(i) = RandomInt(2, 20): x(i) = RandomInt(2, 20) - CASE 2: y(i) = RandomInt(21, 39): x(i) = RandomInt(2, 20) - CASE 3: y(i) = RandomInt(2, 20): x(i) = RandomInt(21, 39) - CASE 4: y(i) = RandomInt(21, 39): x(i) = RandomInt(21, 39) - END SELECT - IF SCREEN(y(i), x(i)) = 32 THEN EXIT DO - LOOP - LOCATE y(i), x(i): PRINT CHR$(234) - oldy(i) = y(i): oldx(i) = x(i) - NEXT i - EXIT SUB -END IF - -FOR i = 1 TO lrmonsters - IF y(i) = gy AND x(i) = gx THEN 'A grenade hit you - y(i) = 0: x(i) = 0 - EXIT SUB - END IF -NEXT i - -'The movements of the light red monsters -FOR i = 1 TO lrmonsters - IF y(i) <> 0 AND x(i) <> 0 THEN - left = SCREEN(y(i), x(i) - 1) 'Look for possible directions - right = SCREEN(y(i), x(i) + 1) - up = SCREEN(y(i) - 1, x(i)) - down = SCREEN(y(i) + 1, x(i)) - IF left = 32 OR left = 2 THEN left = 0 - IF right = 32 OR right = 2 THEN right = 0 - IF up = 32 OR up = 2 THEN up = 0 - IF down = 32 OR down = 2 THEN down = 0 - FOR try = 1 TO 2 'Try to pick a direction towards cave raider - IF y(i) < y OR y(i) > y THEN - IF RND > .7 THEN - IF left = 0 AND x(i) > x THEN x(i) = x(i) - 1: EXIT FOR - IF right = 0 AND x(i) < x THEN x(i) = x(i) + 1: EXIT FOR - ELSE - IF up = 0 AND y(i) > y THEN y(i) = y(i) - 1: EXIT FOR - IF down = 0 AND y(i) < y THEN y(i) = y(i) + 1: EXIT FOR - END IF - ELSE - IF left = 0 AND x(i) > x THEN x(i) = x(i) - 1: EXIT FOR - IF right = 0 AND x(i) < x THEN x(i) = x(i) + 1: EXIT FOR - END IF - NEXT try - IF y(i) = oldy(i) AND x(i) = oldx(i) THEN 'If you didn't pick a - FOR try = 1 TO 8 'direction already, - rn = RandomInt(1, 4) 'then try to pick a - IF rn = 1 AND left = 0 THEN x(i) = x(i) - 1: EXIT FOR 'random - IF rn = 2 AND right = 0 THEN x(i) = x(i) + 1: EXIT FOR 'direction. - IF rn = 3 AND up = 0 THEN y(i) = y(i) - 1: EXIT FOR - IF rn = 4 AND down = 0 THEN y(i) = y(i) + 1: EXIT FOR - NEXT try - END IF - IF y(i) <> oldy(i) OR x(i) <> oldx(i) THEN - LOCATE oldy(i), oldx(i): PRINT " " 'Erase old position - LOCATE y(i), x(i): PRINT CHR$(234) 'Move to new position - oldy(i) = y(i): oldx(i) = x(i) - END IF - IF y(i) = y AND x(i) = x THEN TheEnd: EXIT SUB 'You got cave raider - END IF -NEXT i - -tlrm! = TIMER - -END SUB - -SUB NewPositions - -'Checks the TIMER and calls "MoveLGM/MoveLRM/MoveBM" as well as "Quicksand" -IF cave MOD 3 <> 0 THEN - IF ABS(TIMER - tlgm!) >= .8 THEN MoveLGM - IF stone = 1 AND ABS(TIMER - ts!) >= 3 THEN PALETTE 12, 60: stone = 0 - IF stone = 0 AND ABS(TIMER - tlrm!) >= 2 THEN MoveLRM -ELSEIF scroll = 0 THEN - IF stone = 1 AND ABS(TIMER - ts!) >= 3 THEN PALETTE 12, 0: stone = 0 - IF stone = 0 AND ABS(TIMER - tbm!) >= .25 THEN MoveBM -END IF -IF scroll = 0 THEN - IF ABS(TIMER - tq!) >= 3 THEN LOCATE sy, sx: COLOR 27: PRINT CHR$(236) - IF ABS(TIMER - tq!) >= 4 THEN - Quicksand 20 - tq! = TIMER - LOCATE sy, sx: COLOR 11: PRINT CHR$(236) - END IF -END IF - -END SUB - -SUB NextCave - -COLOR 8, 0 -IF cave = 1 THEN - FOR row = 1 TO 43: LOCATE row, 1: PRINT STRING$(40, 170); : NEXT row - FOR row = 10 TO 35: LOCATE row, 11: PRINT STRING$(20, 177): NEXT row - FOR row = 11 TO 34: LOCATE row, 12: PRINT SPACE$(18): NEXT row - COLOR 7 - Center 12, "You are about to" - Center 14, "raid a dangerous" - Center 16, "cave system. " - Center 18, "Fame and riches " - Center 20, "lie before you. " - COLOR 3 - Center 24, "What's your " - Center 26, "name? " - COLOR 7 - LOCATE 26, 19: PRINT "........" - crname$ = "": column = 19 - DO - name$ = INKEY$ - IF name$ <> "" AND name$ <> CHR$(8) AND name$ <> CHR$(13) THEN - SELECT CASE ASC(name$) - CASE 32: letter = 1 - CASE 65 TO 90: letter = 1 - CASE 97 TO 122: letter = 1 - CASE ELSE - END SELECT - IF letter = 1 THEN - LOCATE 26, column: COLOR 7: PRINT name$: column = column + 1 - LOCATE 26, column: COLOR 23: PRINT "_" - crname$ = crname$ + name$ - letter = 0 - END IF - END IF - IF name$ = CHR$(8) THEN - IF column > 19 THEN - LOCATE 26, column: COLOR 7: PRINT "." - column = column - 1 - LOCATE 26, column: COLOR 23: PRINT "_" - l = LEN(crname$) - 1 - crname$ = MID$(crname$, 1, l) - END IF - END IF - IF name$ = CHR$(13) THEN - crname$ = crname$ + SPACE$(8 - LEN(crname$)) - LOCATE 26, 19: COLOR 7: PRINT crname$ - EXIT DO - END IF - IF LEN(crname$) = 8 THEN LOCATE 26, 27: PRINT " ": EXIT DO - LOOP - IF LEN(LTRIM$(crname$)) = 0 THEN crname$ = "........" - LOCATE 30, 14: COLOR 7: PRINT "Here's" - LOCATE 30, 21: COLOR 3: PRINT "Cave:1" - COLOR 15: Center 33, "Good luck!" - LOCATE 33, 25: COLOR 31: PRINT "!" -ELSE - FOR row = 1 TO 43: LOCATE row, 1: PRINT STRING$(40, 170); : NEXT row - FOR row = 10 TO 35: LOCATE row, 11: PRINT STRING$(20, 177): NEXT row - FOR row = 11 TO 34: LOCATE row, 12: PRINT SPACE$(18): NEXT row - COLOR 7 - Center 12, "You're standing " - Center 14, "at the entrance " - Center 16, "of " - LOCATE 16, 16: COLOR 3: PRINT "Cave:" + LTRIM$(STR$(cave)) - COLOR 7: Center 20, "Your current " - COLOR 3: Center 22, "Score:" + LTRIM$(STR$(score)) - COLOR 7 - Center 26, "You're ready to " - Center 28, "go on. " - COLOR 8: Center 33, "Press any key" - LOCATE 33, 27: COLOR 24: PRINT "_" -END IF - -Delay 0 -CLS -Delay .5 - -END SUB - -SUB Options - -PCOPY 0, 1 -SCREEN 0, , 1, 1 -COLOR 3, 0 -FOR row = 26 TO 38: LOCATE row, 14: PRINT SPACE$(14): NEXT row -Center 27, "Options" -Center 28, "-------" - -COLOR 7 -IF cr = 1 THEN - Center 30, "1) CR:Male " -ELSE - Center 30, "1) CR:Female" -END IF -IF ds = 2 THEN - Center 32, "2) DS:Normal" -ELSEIF ds = 3 THEN - Center 32, "2) DS:Hard " -ELSEIF ds = 1 THEN - Center 32, "2) DS:Easy " -END IF -IF speaker = 1 THEN - Center 34, "3) Sound on " -ELSE - Center 34, "3) Sound off" -END IF -COLOR 8: Center 36, "Esc to quit " -LOCATE 36, 26: COLOR 24: PRINT "_" - -COLOR 7 -DO - o$ = INKEY$ - SELECT CASE o$ - CASE "1" - IF cr = 1 THEN - Center 30, "1) CR:Female" - cr = 2 - ELSE - Center 30, "1) CR:Male " - cr = 1 - END IF - change = 1 - CASE "2" - IF ds = 2 THEN - Center 32, "2) DS:Hard " - ds = 3 - ELSEIF ds = 3 THEN - Center 32, "2) DS:Easy " - ds = 1 - ELSEIF ds = 1 THEN - Center 32, "2) DS:Normal" - ds = 2 - END IF - change = 1 - CASE "3" - IF speaker = 1 THEN - Center 34, "3) Sound off" - speaker = 0 - ELSE - Center 34, "3) Sound on " - speaker = 1 - END IF - change = 1 - CASE CHR$(27) - IF change = 1 THEN - COLOR 8: Center 36, "Save (Y/N) " - LOCATE 36, 25: COLOR 24: PRINT "_" - DO - s$ = UCASE$(INKEY$) - IF s$ = "N" THEN EXIT DO - IF s$ = "Y" THEN - ON ERROR GOTO FileError - OPEN "cr.dat" FOR BINARY AS #1 - PUT #1, 5, cr - PUT #1, 9, ds - PUT #1, 13, speaker - CLOSE #1 - ON ERROR GOTO 0 - EXIT DO - END IF - LOOP - END IF - EXIT DO - CASE ELSE - END SELECT -LOOP - -END SUB - -SUB Pause - -QuickStop -IF cr = 1 THEN COLOR 30 ELSE COLOR 29 -LOCATE y, x: PRINT CHR$(2) -COLOR 7, 0 -LOCATE 43, 1: PRINT SPACE$(40); -Center 43, "The game is paused." -PCOPY 1, 0 -SLEEP -SetTimers -SetSound 1 -IF cr = 1 THEN COLOR 14 ELSE COLOR 13 -LOCATE y, x: PRINT CHR$(2) - -END SUB - -SUB PCSound (number) - -IF speaker = 0 THEN EXIT SUB - -SELECT CASE number - CASE 1 'Treasure - PLAY "mlt80o4l64ce" - CASE 2 'Chest of grenades - PLAY "mst120o1l16cl8mlc" - CASE 3 'Gem/scroll - PLAY "mlt250o4l64agagag>egg>g" - CASE 4 'Male CR - FOR n! = 10.8 TO 8 STEP -.1: SOUND (TAN(n!) + 50) * 25, .5: NEXT n! - CASE 5 'Female CR - FOR n! = 10.8 TO 8 STEP -.1: SOUND (TAN(n!) + 50) * 28, .5: NEXT n! - CASE 6 'Magic wall - PLAY "mnt180o4l64ed "" THEN EXIT FOR - PLAY "l2>cl4d.l8cl2 "" THEN EXIT FOR - PLAY "l4fgafgal2a#l4gaa#gaa#l2>cl4d.l8 "" THEN EXIT FOR - PLAY "l4aa#fga>c -1 THEN LOCATE fqy, fqx: COLOR 7, 1: PRINT " "; - fieldq(fqy, fqx) = 0 - END IF - NEXT fqx -NEXT fqy - -'Put new fields of quicksand randomly around the magic scroll -IF fields > 0 THEN - COLOR 6 - FOR n = 1 TO fields - DO - fqx = RandomInt(sx - 5, sx + 5) - fqy = RandomInt(sy - 5, sy + 5) - IF fqx >= 2 AND fqx <= 39 AND fqy >= 2 AND fqy <= 39 THEN - IF SCREEN(fqy, fqx) = 32 THEN EXIT DO - counter = counter + 1 - IF counter > 10 THEN EXIT DO - END IF - LOOP - IF counter <= 10 THEN - LOCATE fqy, fqx: PRINT CHR$(247) - fieldq(fqy, fqx) = 1 - END IF - counter = 0 - NEXT n -END IF - -END SUB - -SUB QuickStop - -'If the scroll is blinking, stop it -IF scroll = 0 THEN LOCATE sy, sx: COLOR 11: PRINT CHR$(236) - -'If there's an explosion, stop it -IF explode = 1 THEN xcounter = 9: Explosion - -'Start the timer for the break -tb! = TIMER - -END SUB - -FUNCTION RandomInt (low, high) - -RandomInt = INT(RND * (high - low + 1)) + low - -END FUNCTION - -SUB SetSound (number) - -IF number = 1 THEN - COLOR 7, 0 - LOCATE 43, 1: PRINT SPACE$(40); - IF speaker = 1 THEN - Center 43, "S)ound off P)ause H)elp Q)uit" - ELSE - Center 43, " S)ound on P)ause H)elp Q)uit" - END IF - COLOR 7, 1 - PCOPY 1, 0 -ELSE - COLOR 7, 0 - IF speaker = 1 THEN - speaker = 0 - Center 43, " S)ound on P)ause H)elp Q)uit" - ELSE - speaker = 1 - Center 43, "S)ound off P)ause H)elp Q)uit" - END IF - COLOR 7, 1 - PCOPY 1, 0 -END IF - -END SUB - -SUB SetTimers - -'Monsters -tlgm! = TIMER -tlrm! = TIMER -tbm! = TIMER - -'Quicksand -tq! = tq! + ABS(TIMER - tb!) - -'Magic -IF stone = 1 THEN ts! = ts! + ABS(TIMER - tb!) - -END SUB - -SUB Story - -SCREEN 0, , 1, 1 -COLOR 8, 0 -FOR row = 1 TO 43: LOCATE row, 1: PRINT STRING$(40, 242); : NEXT row -FOR row = 3 TO 41: LOCATE row, 9: PRINT STRING$(24, 177): NEXT row -FOR row = 4 TO 40: LOCATE row, 10: PRINT SPACE$(22): NEXT row -COLOR 3 -Center 5, "Cave Raider" -Center 6, "-----------" - -COLOR 7 -Center 8, "You are a young man " -Center 10, "( ) or his young " -Center 12, "girlfriend ( ). You " -Center 14, "both live in a small" -Center 16, "cave near the Rocky " -Center 18, "Mountains and don't " -Center 20, "mind that people " -Center 22, "think you are a " -Center 24, "little bit strange. " -Center 26, "You always tell " -Center 28, "visitors that you " -Center 30, "work for the state " -Center 32, "and explore caves. " -Center 34, "In reality, however," -Center 36, "each of you is a " -LOCATE 10, 12: COLOR 14: PRINT CHR$(2) -LOCATE 12, 23: COLOR 13: PRINT CHR$(2) -COLOR 8 -Center 39, "Press any key (1/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "skilled cave raider." -Center 10, "Your home is full of" -Center 12, "objects from various" -Center 14, "caves, but none of " -Center 16, "them is worth a lot " -Center 18, "of money. Therefore," -Center 20, "you're both nearly " -Center 22, "broke. One morning, " -Center 24, "you read the " -Center 26, "following short " -Center 28, "article in the local" -Center 30, "newspaper: " -Center 32, " " -Center 34, "''Great Discovery in" -Center 36, "the Rocky Mountains!" -COLOR 8 -Center 39, "Press any key (2/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "Yesterday, a film " -Center 10, "crew of 20 people " -Center 12, "found an underground" -Center 14, "cave system right " -Center 16, "next to the place " -Center 18, "where a small meteor" -Center 20, "allegedly hit the " -Center 22, "ground a few days " -Center 24, "ago. 15 people " -Center 26, "entered the cave " -Center 28, "system and never " -Center 30, "returned. The other " -Center 32, "5 people went back " -Center 34, "home, informed the " -Center 36, "police and showed " -COLOR 8 -Center 39, "Press any key (3/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "some reporters the " -Center 10, "big piece of gold " -Center 12, "that lay in front of" -Center 14, "the cave system. Now" -Center 16, "the military is " -Center 18, "guarding the entire " -Center 20, "area and making " -Center 22, "investigations.'' " -Center 24, " " -Center 26, "Both of you are " -Center 28, "skeptical at first, " -Center 30, "but after you watch " -Center 32, "a report about this " -Center 34, "discovery on TV, all" -Center 36, "your doubts are " -COLOR 8 -Center 39, "Press any key (4/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "gone. You're eager " -Center 10, "to raid these caves" -Center 12, "as soon as possible." -Center 14, "With the little " -Center 16, "money that is left, " -Center 18, "you drive to the " -Center 20, "city to buy some " -Center 22, "grenades for your " -Center 24, "grenade launcher. " -Center 26, "It's not only your " -Center 28, "favorite weapon but " -Center 30, "also very useful for" -Center 32, "blowing up big " -Center 34, "rocks. On your way " -Center 36, "home, you decide to " -COLOR 8 -Center 39, "Press any key (5/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 -IF dkey$ = CHR$(27) THEN EXIT SUB - -COLOR 7 -Center 8, "raid the cave system" -Center 10, "in the middle of the" -Center 12, "night to avoid any " -Center 14, "contact with the " -Center 16, "military. Secretly, " -Center 18, "however, both of you" -Center 20, "have made plans to " -Center 22, "try it on your own. " -Center 24, "At dusk, one of you " -Center 26, "grabs the grenade " -Center 28, "launcher and sets " -Center 30, "out. " -FOR row = 32 TO 36 - LOCATE row, 11: PRINT SPACE$(20) -NEXT row -COLOR 8 -Center 39, "Press any key (6/6)" -LOCATE 39, 24: COLOR 24: PRINT "_" - -Delay 0 - -END SUB - -SUB TextBlink - -'MainMenu -IF (TIMER * 100) MOD 6 = 0 THEN COLOR 7 ELSE COLOR 15 - -END SUB - -SUB TheEnd - -QuickStop -COLOR 3, 0 -LOCATE 41, 2: PRINT "Health:0 "; -COLOR 15, 1 -LOCATE dy, dx: PRINT "X" -IF SCREEN(gy, gx) = 249 THEN LOCATE gy, gx: PRINT " " - -check = SCREEN(y, x) -IF check <> 32 AND check <> 42 AND check <> 2 THEN IF cr = 1 THEN PCSound 4 ELSE PCSound 5 -SELECT CASE check - CASE 234 'Monster - check = SCREEN(y, x, 1) - IF check = 26 THEN - COLOR 10, 4 - ELSE - COLOR 12, 4 - IF cave MOD 3 <> 0 THEN PALETTE 12, 60 ELSE PALETTE 12, 0 - END IF - LOCATE y, x: PRINT CHR$(234) - CASE 247 'Quicksand - CASE 32, 42, 2 '"Explosion" or "grenade" - IF check = 2 THEN PCSound 8 - LOCATE y, x: COLOR 14: PRINT CHR$(15): PCOPY 1, 0: Delay .2 - LOCATE y, x: COLOR 4: PRINT CHR$(15): PCOPY 1, 0: Delay .2 - LOCATE y, x: PRINT " " - CASE ELSE 'Rock, magic door or magic wall around scroll - PCOPY 1, 0 - Delay .5 - LOCATE oldy, oldx: COLOR 4: PRINT CHR$(2) -END SELECT -PCOPY 1, 0 - -Delay 2 -SCREEN 0, , 0, 0 - -EndScreen -Highscore - -SetTimers -cave = 1 -oldcave = cave -score = 0 -death = 1 - -END SUB - diff --git a/programs/samples/pete/darokin.bas b/programs/samples/pete/darokin.bas deleted file mode 100644 index c95955591..000000000 --- a/programs/samples/pete/darokin.bas +++ /dev/null @@ -1,97 +0,0 @@ -'simple program in qbasic -'02/01/99 -'if you want to tell me something on my prog or something else -'e mail me -'darokin@infonie.fr -'darokin use it free and learn (i know you can't learn -' whith this but if that could help -' someone ....) -'darokin '99 - -SCREEN 13 - -etoile% = 150 -DIM x%(1 TO etoile%) -DIM y%(1 TO etoile%) -DIM c%(1 TO etoile%) -DIM v%(1 TO etoile%) -FOR i% = 1 TO etoile% -x%(i%) = INT(RND * 320) -y%(i%) = INT(RND * 129) + 40 -c%(i%) = INT(RND * 15) + 15 -v%(i%) = INT(RND * 3) + 2 -NEXT i% - -DIM txt(97) -PRINT "darokin" -GET (0, 0)-(54, 6), txt - -CLS - -DIM balle(120) -DATA 00,00,00,00,04,04,04,00,00,00,00 -DATA 00,00,04,04,04,04,04,04,04,00,00 -DATA 00,04,04,15,15,04,04,04,04,04,00 -DATA 00,04,04,15,15,04,04,04,04,04,00 -DATA 04,04,04,04,04,04,04,04,04,04,04 -DATA 04,04,04,04,04,04,04,04,04,04,04 -DATA 00,04,04,04,04,04,04,04,04,04,00 -DATA 00,04,04,04,04,04,04,04,04,04,00 -DATA 00,00,04,04,04,04,04,04,04,00,00 -DATA 00,00,00,00,04,04,04,00,00,00,00 - -xlenght = 11 -ylenght = 10 - -FOR y% = 1 TO ylenght - FOR x% = 1 TO xlenght - READ z - PSET (x%, y%), z - NEXT x% -NEXT y% - - -x = 15: y = 55: xtxt = 35: ytxt = 3 - xmax = 305: ymax = 160: xtxtmax = 200: ytxtmax = 15 - a = 1: b = 1: c = 1: d = 1: e = 1 - xmin = 5: ymin = 39: xtxtmin = 30: ytxtmin = 1 -GET (0, 0)-(11, 10), balle -CLS -PUT (20, 5), txt -RANDOMIZE TIMER -DO -PUT (x, y), balle - FOR i% = 1 TO etoile% - PSET (x%(i%), y%(i%)), c%(i%) - PSET (x%(i%), y%(i%)), 0 - x%(i%) = x%(i%) + v%(i%) - IF x%(i%) >= 320 THEN - x%(i%) = 1 - y%(i%) = INT(RND * 129) + 40 - c%(i%) = INT(RND * 15) + 15 - v%(i%) = INT(RND * 3) + 2 - END IF - PSET (x%(i%), y%(i%)), c%(i%) - NEXT i% - PUT (xtxt, ytxt), txt - IF c = 1 THEN CLS - c = c + 1 - IF xtxt < xtxtmin THEN d = -d - IF x < xmin THEN a = -a - IF xtxt > xtxtmax THEN d = -d - IF x > xmax THEN a = -a - IF ytxt < ytxtmin THEN e = -e - IF y < ymin THEN b = -b - IF ytxt > ytxtmax THEN e = -e - IF y > ymax THEN b = -b - x = x + a - y = y + b - xtxt = xtxt + d - ytxt = ytxt + e - PUT (x, y), balle - PUT (xtxt, ytxt), txt - FOR i = 1 TO 5000 - NEXT i -LOOP WHILE INKEY$ = "" - - diff --git a/programs/samples/pete/darpong/darpong.bas b/programs/samples/pete/darpong/darpong.bas deleted file mode 100644 index e91cb4515..000000000 --- a/programs/samples/pete/darpong/darpong.bas +++ /dev/null @@ -1,168 +0,0 @@ -'little game I made, just for fun -'and also to be rated on future software -'I hope you'll learn something with this little prog -'author : darokin Adrien Rebuzzi -'any comment or suggest here : darokin@infonie.fr -'darokin '99 -RANDOMIZE TIMER -CLS -cx = 17 -a = 1 -bx = INT(RND * 318) + 1: by = INT(RND * 100) + 12 -DO -px = INT(RND * 3) - 1: py = -1 -LOOP UNTIL px <> 0 AND py <> 0 -jx = 10 -attente = 5000 -moins = 200 -SCREEN 13 -DIM cache(120) -GET (0, 0)-(11, 10), cache - -DIM balle(120) -DATA 00,00,00,00,04,04,04,00,00,00,00 -DATA 00,00,04,04,04,04,04,04,04,00,00 -DATA 00,04,04,15,15,04,04,04,04,04,00 -DATA 00,04,04,15,15,04,04,04,04,04,00 -DATA 04,04,04,04,04,04,04,04,04,04,04 -DATA 04,04,04,04,04,04,04,04,04,04,04 -DATA 00,04,04,04,04,04,04,04,04,04,00 -DATA 00,04,04,04,04,04,04,04,04,04,00 -DATA 00,00,04,04,04,04,04,04,04,00,00 -DATA 00,00,00,00,04,04,04,00,00,00,00 - -xlenght = 11 -ylenght = 10 - -FOR y% = 1 TO ylenght - FOR x% = 1 TO xlenght - READ z - PSET (x%, y%), z - NEXT x% -NEXT y% -GET (0, 0)-(11, 10), balle -CLS -LOCATE 1, 28 -PRINT "" -COLOR 2 -PRINT " ___" -PRINT " / _ \___ ________ ___ ___ ___ _" -COLOR 14 -PRINT " / // / _ `/ __/ _ | _ \/ _ | _ `/" -COLOR 4 -PRINT " /____/\_,_/_/ / ___|___/_//_|_, /" -PRINT " /_/ /___/" -PRINT "" -COLOR 10 -PRINT " (c)darokin '99" -LOCATE 12, 10 -COLOR 32 -PRINT "Choose your level" -COLOR 50 -PRINT " " -LOCATE 15, 15 -PRINT "easy" -COLOR 51 -LOCATE 17, 15 -PRINT "medium" -COLOR 52 -LOCATE 19, 15 -PRINT "difficult" -COLOR 53 -LOCATE 21, 15 -PRINT "impossible" -LOCATE cx, 13 -PRINT "*" -LOCATE 23, 8: PRINT "Hit Space Bar To Continue" -DO -a$ = INKEY$ -IF a$ = CHR$(0) + CHR$(80) AND cx <> 21 THEN : LOCATE cx, 13: PRINT " ": cx = cx + 2: LOCATE cx, 13: PRINT "*" -IF a$ = CHR$(0) + CHR$(72) AND cx <> 15 THEN : LOCATE cx, 13: PRINT " ": cx = cx - 2: LOCATE cx, 13: PRINT "*" -IF a$ = " " THEN GOTO sorti -LOOP -sorti: -SELECT CASE cx -CASE IS = 15 - attente = 6000 -CASE IS = 17 - attente = 4000 -CASE IS = 29 - attente = 3300 -CASE IS = 21 - attente = 1000 -END SELECT -CLS -COLOR 17 -PRINT " " -PRINT " ___" -PRINT " / _ \___ ________ ___ ___ ___ _" -PRINT " / // / _ `/ __/ _ | _ \/ _ | _ `/" -PRINT " /____/\_,_/_/ / ___|___/_//_|_, /" -PRINT " /_/ /___/" - -LOCATE 1, 28 -COLOR 4 -PRINT "darokin pong" -COLOR 2 -LOCATE 1, 1 -PRINT "score" -DO -COLOR 14 -LOCATE 1, 15 -PRINT score -LINE (1, 10)-(319, 10), 10 -LINE (jx, 199)-(jx + 50, 199), 30 -PUT (bx, by), cache -PUT (bx, by), balle - -FOR a = 1 TO attente - -delayrequired = delayrequired + 1 -IF delayrequired > 10000 THEN WAIT &H3DA, 8: WAIT &H3DA, 8, 8: delayrequired = 0 - -NEXT a - -PUT (bx, by), balle -bx = bx + px: by = by + py -IF bx <= 0 OR bx >= 307 THEN px = -px: BEEP -IF by <= 11 THEN py = -py: BEEP -IF by >= 188 AND (bx + 8 > jx AND bx < jx + 50) THEN py = -py: attente = attente - moins: BEEP: score = score + 10: IF attente <= 3000 THEN moins = 250 -IF by > 189 THEN GOTO fin - - -a$ = INKEY$ -IF a$ = CHR$(27) THEN GOTO fin -IF a$ = CHR$(0) + "M" THEN LINE (jx, 199)-(jx + 50, 199), 0: jx = jx + 30: LINE (jx, 199)-(jx + 50, 199), 26 -IF a$ = CHR$(0) + "K" THEN LINE (jx, 199)-(jx + 50, 199), 0: jx = jx - 30: LINE (jx, 199)-(jx + 50, 199), 26 -IF jx < 0 THEN jx = 0 -IF jx > 270 THEN jx = 270 -LOOP -fin: -CLS -COLOR 30 -PRINT " " -PRINT " _____" -PRINT " / __/___ ___ _ ___" -PRINT " / (_ / _ `/ ' | -_)" -PRINT " \___/\_,_/_/_/_|__/" -PRINT " / __ \_ _ __ ____" -PRINT " / /_/ |/ / -_) __/" -PRINT " \____/|___/\__/_/" -PRINT " " -PRINT "" -COLOR 2 -PRINT " GAME OVER" -PRINT "" -COLOR 14 -PRINT " Your score is: " -COLOR 4 -LOCATE 16, 20 -PRINT score -LOCATE 23, 8: PRINT "Hit Space Bar To Continue" -DO -a$ = INKEY$: IF a$ = " " AND a$ <> CHR$(0) + "M" AND a$ <> CHR$(0) + "K" THEN GOTO totalend -LOOP -totalend: -SYSTEM - - diff --git a/programs/samples/pete/darpong/info.txt b/programs/samples/pete/darpong/info.txt deleted file mode 100644 index a8802099e..000000000 --- a/programs/samples/pete/darpong/info.txt +++ /dev/null @@ -1,8 +0,0 @@ - Darpong - author: darokin - Adrien Rebuzzi - e-mail : darokin@infonie.fr - -Darpong is a simple 1 player pong game with the score and speed increasing -each time you save the ball. -suggest or request etc..: darokin@infonie.fr -Thanks to future software to rank prog in qbasic. \ No newline at end of file diff --git a/programs/samples/pete/degrees.bas b/programs/samples/pete/degrees.bas deleted file mode 100644 index 08697b3f6..000000000 --- a/programs/samples/pete/degrees.bas +++ /dev/null @@ -1,16 +0,0 @@ -REM This is a program that converts Fahrenheit temperatures to Celsius -REM temperatures. - -CONST SHIFT# = 32# -CONST SCALE = 1.8# -CONST TFChar = "F " -CONST TCchar = "C " - -DIM TF AS DOUBLE -DIM TC AS DOUBLE -CLS -INPUT "Enter the temperature in Fahrenheit "; TF -TC = (TF - SHIFT) / SCALE -PRINT TF; TFChar; "="; TC; TCchar -END - diff --git a/programs/samples/pete/diceit.bas b/programs/samples/pete/diceit.bas deleted file mode 100644 index 5b4acb8f0..000000000 --- a/programs/samples/pete/diceit.bas +++ /dev/null @@ -1,21 +0,0 @@ -'This is a very simple dice game. I am still new at Qb so please humor me. -'Also, Thank You for downloading this! - -REM Created 8/27/04 - - -CLS -RANDOMIZE TIMER -PRINT "Version 1.5" -PRINT -Dice = INT(RND(1) * 6) + 1 -PRINT "Your dice throws came up as numbers "; Dice; -Dice = INT(RND(1) * 6) + 1 -PRINT " and "; Dice -PRINT -PRINT "(C) 2004 John Mendoza" -PRINT "ALL RIGHTS RESERVED" -END - -' Email me at falconboy16@hotmail.com - diff --git a/programs/samples/pete/drug3d.bas b/programs/samples/pete/drug3d.bas deleted file mode 100644 index 833968715..000000000 --- a/programs/samples/pete/drug3d.bas +++ /dev/null @@ -1,467 +0,0 @@ -DECLARE SUB DrawBackGround (Maps!(), GroundColor!, LevelPos!) -DECLARE SUB Fall (Jump$, Dead$) -DECLARE SUB coolPrint (CP$, LineNumber!) -DECLARE SUB die () -DECLARE SUB CheckDead (Dead$) -DECLARE SUB BUSCheck (Bus$) -DECLARE SUB DrawSquare (X!, Y!, Z!, ColorOfSquare!) -DECLARE SUB LoadMap (Level!) -DECLARE SUB Move (Movement$, GY!, Jump$) -DECLARE SUB DrawShip (ShipColor!) -DECLARE SUB Game () -DECLARE SUB Menu (ChoiceCounter!, Movement$) -DIM SHARED Maps(5, 5, 106) -DIM SHARED PX(4) -DIM SHARED PY(4) -DIM SHARED PZ(4) -DIM SHARED LevelPos -DIM SHARED Level -DIM SHARED Speed -DIM SHARED GY -DIM SHARED JumpAgain$ -DIM SHARED Score - -SCREEN 12 -COLOR 4 -PRINT " Canibal Gopher inc. presents " -PRINT " Drug Runner 3d demo" -PRINT " Demo version 1.00 " -PRINT " Copyright Kevin B. Kohler " -PRINT " 1998 " -PRINT -PRINT -PRINT " Arrow keys move" -PRINT -PRINT " Escape quits" -PRINT -PRINT " Space jumps" -PRINT -PRINT " " -DO -LOOP UNTIL INKEY$ <> "" -CLS -SCREEN 12 -LOCATE 5, 40 -PRINT "Start Game" -LOCATE 10, 40 -PRINT "Veiw high Scores" -LOCATE 15, 40 -PRINT "Veiw intro" -LOCATE 20, 40 -PRINT "quit game" -ChoiceCounter = 1 -CIRCLE (180, ChoiceCounter * 80 - 10), 20, 1 -PAINT (180, ChoiceCounter * 80 - 10), 1 -DO - Level = 1 - Menu ChoiceCounter, Movement$ - IF ChoiceCounter = 1 AND Movement$ = CHR$(13) THEN - Game - SCREEN 9 - SCREEN 12 - LOCATE 5, 40 - PRINT "Start Game" - LOCATE 10, 40 - PRINT "Veiw high Scores" - LOCATE 15, 40 - PRINT "Veiw intro" - LOCATE 20, 40 - PRINT "quit game" - ChoiceCounter = 1 - CIRCLE (180, ChoiceCounter * 80 - 10), 20, 1 - PAINT (180, ChoiceCounter * 80 - 10), 1 - END IF -LOOP UNTIL (ChoiceCounter = 4 AND Movement$ = CHR$(13)) -CLS -PRINT " Thank you for playing" -PRINT " Drug Runner 3d demo" -PRINT " Demo version 1.00 " -PRINT " Copyright Kevin B. Kohler " -PRINT " 1998 " -PRINT -PRINT "For more shareware games by cginc go to" -PRINT "www.geocities.com/silconvalley/bay/8360" -PRINT -PRINT " if you liked this game feel free to" -PRINT " send money to 17 #6 road Leverett MA" -PRINT " 01054. help me get to and through College" -PRINT " " -DO -LOOP UNTIL INKEY$ = CHR$(27) -END - -SUB BUSCheck (Bus$) - ZCheck = 1 + (INT(LevelPos)) - FOR Times = 1 TO 5 - X = Times * 128 - 384 - IF X - 64 < PX(3) AND X + 64 > PX(3) THEN - FOR Times2 = 1 TO 4 - Y = Times2 * 24 + 240 - (Times2 * 100) - IF Y - 30 < (PY(1) + 10) AND Y + 30 > (PY(1) + 10) THEN - IF Maps(Times, Times2, ZCheck) = 1 THEN - Bus$ = "y" - JumpAgain$ = "y" - END IF - END IF - NEXT Times2 - END IF - NEXT Times -END SUB - -SUB CheckDead (Dead$) - ZCheck = 1 + (INT(LevelPos)) - FOR Times = 1 TO 5 - X = Times * 128 - 384 - IF X - 64 < PX(3) AND X + 64 > PX(3) THEN - FOR Times2 = 1 TO 4 - Y = Times2 * 24 + 240 - (Times2 * 100) - IF Y - 30 < PY(1) AND Y + 60 > PY(1) THEN - IF Maps(Times, Times2, ZCheck) = 1 THEN Dead$ = "y" - IF Maps(Times, Times2, ZCheck) = 2 THEN - Maps(Times, Times2, ZCheck) = 0 - Score = Score + 1 - END IF - END IF - NEXT Times2 - END IF - NEXT Times -END SUB - -SUB coolPrint (CP$, LineNumber) - COLOR 2 - PALETTE 2, 0 - LOCATE 1, 1 - PRINT " " - LOCATE 1, 1 - PRINT CP$ - FOR Times = 1 TO 300 - FOR Times2 = 1 TO 30 - IF POINT(Times, Times2) = 2 THEN - CIRCLE (Times * 2 + 50, Times2 * 2 + (LineNumber * 50)), 1, 5 - END IF - NEXT Times2 - NEXT Times -END SUB - -SUB die - coolPrint " You have failed in your mission", 1 - coolPrint "To suply the world with the finest", 2 - coolPrint " quality Drugs", 3 - coolPrint " GAME OVER", 4 - coolPrint " Press any key to continue", 5 - DO - LOOP UNTIL INKEY$ <> "" -END SUB - -SUB DrawBackGround (Maps(), GroundColor, LevelPos) - FOR Times = 1 TO 5 - FOR Times2 = 1 TO 4 - FOR Times3 = 1 + (INT(LevelPos)) TO 10 + (INT(LevelPos)) - IF Maps(Times, Times2, Times3) = 1 THEN - IF Times2 = 1 THEN GroundColor = 4 - IF Times2 = 2 THEN GroundColor = 0 - IF Times2 = 3 THEN GroundColor = 14 - IF Times2 = 4 THEN GroundColor = 15 - DrawSquare Times, Times2, Times3 - LevelPos, GroundColor - END IF - IF Maps(Times, Times2, Times3) = 2 THEN - DrawSquare Times, Times2, Times3 - LevelPos, 10 - END IF - NEXT Times3 - NEXT Times2 - NEXT Times -END SUB - -SUB DrawShip (ShipColor) - LINE (PX(1) / PZ(1) + 320, PY(1) / PZ(1) + 240)-(PX(2) / PZ(2) + 320, PY(2) / PZ(2) + 240), ShipColor - LINE -(PX(3) / PZ(3) + 320, PY(3) / PZ(3) + 240), ShipColor - LINE -(PX(4) / PZ(4) + 320, PY(4) / PZ(4) + 240), ShipColor - LINE -(PX(1) / PZ(1) + 320, PY(1) / PZ(1) + 240), ShipColor - LINE (PX(1) / PZ(1) + 320, PY(1) / PZ(1) + 240)-(PX(3) / PZ(3) + 320, PY(3) / PZ(3) + 240), ShipColor - LINE (PX(4) / PZ(4) + 320, PY(4) / PZ(4) + 240)-(PX(2) / PZ(2) + 320, PY(2) / PZ(2) + 240), ShipColor -END SUB - -SUB DrawSquare (TX, TY, Z, ColorOfSquare) - X = TX * 128 - 384 - Y = TY * 24 + 240 - (TY * 100) - IF Z <= .1 THEN Z = .1 - 'square 1 - LINE ((X - 64) / Z + 320, (Y - 30) / Z + 240)-((X + 64) / Z + 320, (Y - 30) / Z + 240), ColorOfSquare - LINE -((X + 64) / Z + 320, (Y + 30) / Z + 240), ColorOfSquare - LINE -((X - 64) / Z + 320, (Y + 30) / Z + 240), ColorOfSquare - LINE -((X - 64) / Z + 320, (Y - 30) / Z + 240), ColorOfSquare - 'Square 2 - LINE ((X - 64) / (Z + 1) + 320, (Y - 30) / (Z + 1) + 240)-((X + 64) / (Z + 1) + 320, (Y - 30) / (Z + 1) + 240), ColorOfSquare - LINE -((X + 64) / (Z + 1) + 320, (Y + 30) / (Z + 1) + 240), ColorOfSquare - LINE -((X - 64) / (Z + 1) + 320, (Y + 30) / (Z + 1) + 240), ColorOfSquare - LINE -((X - 64) / (Z + 1) + 320, (Y - 30) / (Z + 1) + 240), ColorOfSquare - 'connecting squares - LINE ((X - 64) / (Z + 1) + 320, (Y - 30) / (Z + 1) + 240)-((X - 64) / Z + 320, (Y - 30) / Z + 240), ColorOfSquare - LINE ((X + 64) / (Z + 1) + 320, (Y - 30) / (Z + 1) + 240)-((X + 64) / Z + 320, (Y - 30) / Z + 240), ColorOfSquare - LINE ((X + 64) / (Z + 1) + 320, (Y + 30) / (Z + 1) + 240)-((X + 64) / Z + 320, (Y + 30) / Z + 240), ColorOfSquare - LINE ((X - 64) / (Z + 1) + 320, (Y + 30) / (Z + 1) + 240)-((X - 64) / Z + 320, (Y + 30) / Z + 240), ColorOfSquare -END SUB - -SUB Fall (Jump$, Dead$) - IF Jump$ = "y" THEN - FOR Times = 1 TO 4 - PY(Times) = PY(Times) - 10 - NEXT Times - IF PY(1) < GY - 120 THEN - Jump$ = "n" - END IF - END IF - IF Jump$ = "n" THEN - BUSCheck Bus$ - IF PY(1) < 220 AND Bus$ <> "y" THEN - JumpAgain$ = "n" - FOR Times = 1 TO 4 - PY(Times) = PY(Times) + 10 - NEXT Times - END IF - END IF - IF PY(1) >= 220 THEN - JumpAgain$ = "y" - Dead$ = "y" - END IF -END SUB - -SUB Game - CLS - Score = 0 - PX(1) = -40 - PY(1) = 30 - PZ(1) = 1 - PX(2) = 40 - PY(2) = 30 - PZ(2) = 1 - PX(3) = 0 - PY(3) = 0 - PZ(3) = 1 - PX(4) = 0 - PY(4) = 30 - PZ(4) = 1.25 - Start = TIMER - Jump$ = "n" - LevelPos = 1 - Speed = .1 - DO - FOR Times = 1 TO 5 - FOR Times2 = 1 TO 5 - FOR Times3 = 1 TO 106 - Maps(Times, Times2, Times3) = 0 - NEXT Times3 - NEXT Times2 - NEXT Times - LoadMap Level - IF LevelPos >= 94 THEN LevelPos = 1 - IF LevelPos <= 0 THEN LevelPos = 93 - 'IF Level = 1 THEN LevelPos = 90 - DO - StartTurn = TIMER - Movement$ = INKEY$ - 'DrawBackGround Map(), 0, LevelPos - 'DrawShip 0 - IF Movement$ <> "" THEN - Move Movement$, GY, Jump$ - END IF - Fall Jump$, Dead$ - LevelPos = LevelPos + Speed - 'cls - 'PSub - LINE (0, 0)-(640, 240), 9, BF - LINE (0, 240)-(640, 480), 8, BF - LOCATE 1, 1 - PRINT Score - PRINT INT(TIMER - Start) - DrawShip 1 - DrawBackGround Maps(), 2, LevelPos - CheckDead Dead$ - DO - LOOP UNTIL TIMER - StartTurn > .1 - LOOP UNTIL Movement$ = CHR$(27) OR LevelPos >= 90 OR LevelPos <= 0 OR Dead$ = "y" - IF LevelPos >= 94 THEN Level = Level + 1 - IF LevelPos <= 0 THEN Level = Level - 1 - LOOP UNTIL Movement$ = CHR$(27) OR Dead$ = "y" OR Level > 3 - Time = TIMER - Start - CLS - IF Level > 3 THEN - CLS - coolPrint " You Win!!!!", 1 - coolPrint " Press any key to continue", 3 - DO - LOOP UNTIL INKEY$ <> "" - DO - LOOP UNTIL INKEY$ <> "" - CLS - PRINT "Your score Was - "; Score - PRINT "Your Time Was - "; Time - DO - LOOP UNTIL INKEY$ <> "" - END IF - IF Dead$ = "y" THEN - Times = 9.999999999999998# - CLS - die - CLS - END IF - PRINT Time - 'ScoreBoard -END SUB - -SUB LoadMap (Level) - Maps(3, 2, 15) = 2 - FOR Times = 1 TO 50 - X = INT(RND * 5) + 1 - Y = INT(RND * 3) + 2 - Z = INT(RND * 80) + 11 - Maps(X, Y, Z) = 2 - NEXT Times - IF Level = 1 THEN - FOR Times = 1 TO 5 STEP 3 - FOR Times2 = 1 TO 95 STEP 3 - Maps(Times, 1, Times2) = 1 - NEXT Times2 - NEXT Times - FOR Times = 1 TO 5 STEP 2 - FOR Times2 = 1 TO 95 STEP 2 - Maps(Times, 1, Times2) = 1 - NEXT Times2 - NEXT Times - FOR Times2 = 1 TO 95 STEP 13 - Maps(2, 1, Times2) = 1 - NEXT Times2 - FOR Times = 1 TO 5 - FOR Times2 = 1 TO 95 STEP 10 - Maps(Times, 2, Times2) = 1 - NEXT Times2 - NEXT Times - FOR Times = 1 TO 5 STEP 2 - FOR Times2 = 20 TO 40 - Maps(Times, 2, Times2) = 1 - Maps(Times, 1, Times2) = 1 - NEXT Times2 - FOR Times2 = 30 TO 40 - Maps(Times, 3, Times2) = 1 - NEXT Times2 - NEXT Times - FOR Times = 1 TO 5 - FOR Times2 = 1 TO 3 - Maps(Times, 1, Times2 + 95) = 1 - NEXT Times2 - NEXT Times - FOR Times = 90 TO 100 - FOR Times2 = 1 TO 5 - Maps(Times2, 1, Times) = 1 - NEXT Times2 - NEXT Times - END IF - IF Level = 2 THEN - Maps(5, 2, 9) = 1 - FOR Times = 1 TO 5 - FOR Times2 = 1 TO 100 - Maps(Times, 1, Times2) = 1 - 'maps(times,3,times2)= 1 - NEXT - NEXT - FOR Times = 1 TO 5 - FOR Times2 = 10 TO 50 - Maps(Times, 3, Times2) = 1 - NEXT Times2 - NEXT Times - FOR Times = 1 TO 5 STEP 2 - FOR Times2 = 10 TO 50 STEP 4 - Maps(Times, 2, Times2) = 1 - 'maps (times,3,times2 +2)= 1 - NEXT Times2 - NEXT Times - FOR Times = 2 TO 5 STEP 2 - FOR Times2 = 12 TO 50 STEP 4 - Maps(Times, 2, Times2) = 1 - 'maps(times, 3, Times2 + 2) = 1 - NEXT Times2 - NEXT - FOR Times = 55 TO 90 STEP 4 - Maps(1, 2, Times) = 1 - Maps(2, 3, Times) = 1 - Maps(3, 2, Times) = 1 - Maps(4, 3, Times) = 1 - Maps(5, 2, Times) = 1 - NEXT Times - FOR Times = 57 TO 90 STEP 4 - Maps(1, 3, Times) = 1 - Maps(2, 2, Times) = 1 - Maps(3, 3, Times) = 1 - Maps(4, 2, Times) = 1 - Maps(5, 3, Times) = 1 - NEXT Times - END IF - IF Level = 3 THEN - FOR Times = 1 TO 10 - FOR Times2 = 1 TO 5 - Maps(Times2, 1, Times) = 1 - NEXT Times2 - NEXT Times - FOR Times = 10 TO 50 STEP 5 - FOR Times2 = 1 TO 5 - Maps(Times2, 1, Times + Times2) = 1 - Maps(5 - Times2, 2, Times + Times2) = 1 - NEXT Times2 - NEXT Times - FOR Times = 90 TO 100 - FOR Times2 = 1 TO 5 - Maps(Times2, 1, Times) = 1 - NEXT Times2 - NEXT Times - FOR Times = 50 TO 90 - Maps((Times / 5 - INT(Times / 5) * 10), 1, Times) = 1 - Maps((Times / 5 - INT(Times / 5) * 10), 3, Times) = 1 - NEXT Times - END IF -END SUB - -SUB Menu (ChoiceCounter, Movement$) - Movement$ = INKEY$ - IF LEN(Movement$) >= 2 THEN Movement$ = MID$(Movement$, 2, 1) - LOCATE 1, 1 - IF Movement$ = "H" THEN - PAINT (180, ChoiceCounter * 80 - 10), 0 - ChoiceCounter = ChoiceCounter - 1 - IF ChoiceCounter = 0 THEN ChoiceCounter = 4 - CIRCLE (180, ChoiceCounter * 80 - 10), 20, 1 - PAINT (180, ChoiceCounter * 80 - 10), 1 - END IF - IF Movement$ = "P" THEN - PAINT (180, ChoiceCounter * 80 - 10), 0 - ChoiceCounter = ChoiceCounter + 1 - IF ChoiceCounter = 5 THEN ChoiceCounter = 1 - CIRCLE (180, ChoiceCounter * 80 - 10), 20, 1 - PAINT (180, ChoiceCounter * 80 - 10), 1 - END IF -END SUB - -SUB Move (Movement$, GY, Jump$) - IF LEN(Movement$) >= 2 THEN Movement$ = MID$(Movement$, 2, 1) - IF Movement$ = "K" AND PX(1) > -320 THEN - FOR Times = 1 TO 4 - PX(Times) = PX(Times) - 40 - NEXT Times - END IF - IF Movement$ = "M" AND PX(2) < 320 THEN - FOR Times = 1 TO 4 - PX(Times) = PX(Times) + 40 - NEXT Times - END IF - IF Movement$ = "H" THEN - IF Speed <= .9 THEN Speed = Speed + .05 - END IF - IF Movement$ = "P" THEN - IF Speed >= -.9 THEN Speed = Speed - .05 - END IF - IF Movement$ = " " AND JumpAgain$ <> "n" THEN - Jump$ = "y" - JumpAgain$ = "n" - GY = PY(1) - END IF -END SUB - diff --git a/programs/samples/pete/fight.bas b/programs/samples/pete/fight.bas deleted file mode 100644 index 123e1bc6f..000000000 --- a/programs/samples/pete/fight.bas +++ /dev/null @@ -1,167 +0,0 @@ -life: -DATA 0,4,0,0,4,0 -DATA 4,4,4,4,4,4 -DATA 4,4,4,4,4,4 -DATA 0,4,4,4,4,0 -DATA 0,0,4,4,0,0 -DATA 0,0,0,0,0,0 -fighters: -DATA 0,0,0,0,0,0,0,0,6,6,6,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,6,7,7,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,6,7,7,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,4,4,4,7,7,4,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,7,4,4,4,4,4,0,7,7,0,0,0,0,0 -DATA 0,0,0,0,0,7,7,4,4,4,4,7,8,7,7,0,0,0,0,0 -DATA 0,0,0,0,7,7,0,4,4,4,4,7,7,7,0,0,0,0,0,0 -DATA 0,0,0,0,7,7,0,4,4,4,4,0,7,7,0,0,0,0,0,0 -DATA 0,0,0,0,7,7,0,4,4,4,4,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,7,7,8,8,8,8,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,7,7,1,1,1,1,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,1,1,1,0,0,0,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,6,6,0,0,0,0,6,6,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,6,6,6,0,0,0,6,6,6,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -fighters2: -DATA 0,0,0,0,0,0,0,0,6,6,6,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,6,7,7,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,6,7,7,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,4,4,4,7,7,4,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,7,4,4,4,4,4,7,7,7,7,7,0,0,0 -DATA 0,0,0,0,0,7,7,4,4,4,4,7,7,7,8,7,7,0,0,0 -DATA 0,0,0,0,7,7,0,4,4,4,4,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,7,7,0,4,4,4,4,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,7,7,0,4,4,4,4,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,7,7,8,8,8,8,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,7,7,1,1,1,1,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,1,1,1,0,0,0,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,6,6,0,0,0,0,6,6,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,6,6,6,0,0,0,6,6,6,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -SCREEN 9, 0, 1, 0: DIM f(20, 20), fp(20, 20), f2(20, 20), fp2(20, 20), life2(6, 6), life(6, 6) -RESTORE life -FOR y = 1 TO 6: FOR x = 1 TO 6 -READ z: PSET (x, y), z -NEXT: NEXT -GET (1, 1)-(6, 6), life -RESTORE life -FOR y = 1 TO 6: FOR x = 1 TO 6 -READ z -IF z = 4 THEN z = 14 -PSET (x, y), z -NEXT: NEXT -GET (1, 1)-(6, 6), life2 - -RESTORE fighters: CLS -FOR y = 1 TO 20: FOR x = 1 TO 20 -READ z: PSET (x, y), z -NEXT: NEXT -GET (1, 1)-(20, 20), f -RESTORE fighters2: CLS -FOR y = 1 TO 20: FOR x = 1 TO 20 -READ z: PSET (x, y), z -NEXT: NEXT -GET (1, 1)-(20, 20), fp -RESTORE fighters: CLS -FOR y = 1 TO 20: FOR x = 20 TO 1 STEP -1 -READ z -IF z = 4 THEN z = 14 -PSET (x, y), z -NEXT: NEXT -GET (1, 1)-(20, 20), f2 -RESTORE fighters2: CLS -FOR y = 1 TO 20 -FOR x = 20 TO 1 STEP -1 -READ z -IF z = 4 THEN z = 14 -PSET (x, y), z -NEXT: NEXT -GET (1, 1)-(20, 20), fp2 - -StartFight: -CLS -DIM SHARED plife, oplife, px, py, opx, opy: plife = 10: oplife = 10 -VIEW (10, 10)-(110, 50), , 4 -VIEW PRINT 7 TO 12 -Fighting: -DO -FOR x = 1 TO oplife -PUT (x * 7, 1), life2 -NEXT -FOR x = 1 TO plife -PUT (x * 7, 30), life -NEXT -px = 10: py = 10: opx = 60: opy = 10 -PUT (px, py), f -PUT (opx, opy), f2 -PCOPY 1, 0 -DO -IF oplife <= 0 THEN PRINT "You Win!": GOTO fe -IF plife <= 0 THEN PRINT "You; Lose!": GOTO fe -g$ = INPUT$(1) -IF g$ = CHR$(27) GOTO fe -IF g$ = "a" THEN - GOSUB pa -END IF -IF g$ = "s" THEN - IF plife > 12 THEN - PRINT "Can't use any more medicine" - ELSE - plife = plife + 2 - PRINT "Used some medicine...You've gained some health!" - END IF -END IF -IF g$ <> "" THEN EXIT DO -LOOP -CLS -a = INT(RND * 3) -IF a = 2 THEN GOSUB opa -IF a = 1 THEN - IF oplife > 12 THEN - PRINT "Oponent: I can beat you as I am now!" - ELSE - oplife = oplife + 2 - PRINT "Oponent: That feals better..." - END IF -END IF -LOOP -fe: -PRINT "Game End." -END - -pa: -FOR x = 10 TO 50 STEP 4 -CLS -px = x -PUT (opx, opy), f2 -PUT (px, py), fp -PCOPY 1, 0 -NEXT -oplife = oplife - 1 -CLS -px = 10: py = 10: opx = 60: opy = 10 -PRINT "Oponent: Ow!" -RETURN - -opa: -FOR x = 50 TO 10 STEP -4 -CLS -opx = x -PUT (px, py), f -PUT (opx, opy), fp2 -PCOPY 1, 0 -NEXT -plife = plife - 1 -CLS -px = 10: py = 10: opx = 60: opy = 10 -PRINT "Player: Ouch!" -RETURN \ No newline at end of file diff --git a/programs/samples/pete/gravity.bas b/programs/samples/pete/gravity.bas deleted file mode 100644 index 3f75aaa4e..000000000 --- a/programs/samples/pete/gravity.bas +++ /dev/null @@ -1,75 +0,0 @@ -CLS -SCREEN 12 -LET pi = 3.14159 - -LET accely = 0 -LET ballx = 100 -LET bally = 100 - -INPUT "Initial X Acceleration: ", accelx -CLS - -LINE (0, 0)-(640, 480), 15, BF - -FOR w = 1 TO 1000000 -NEXT w - -DO -CIRCLE (ballx, bally), 20, 15 -LINE (COS(ballangle) * 20 + ballx, SIN(ballangle) * 20 + bally)-(COS(ballangle) * -20 + ballx, SIN(ballangle) * -20 + bally), 15 - -IF ballangle >= 2 * pi THEN LET ballangle = ballangle - 2 * pi - -'###################### Y CONTROL ####################### - -IF bally + 20 < 480 AND accely < 4 THEN - LET accely = accely + .06 -END IF - -IF accely <> 0 THEN - LET bally = bally + accely -END IF - -'###################### X CONTROL ####################### - -'This should work -IF ballx + 20 >= 640 AND accelx > 0 THEN - LET accelx = accelx * -.5 -ELSEIF ballx - 20 <= 0 AND accelx < 0 THEN - LET accelx = accelx * -.5 -END IF - - -IF accely > 0 AND bally + 20 >= 480 THEN -LET accely = accely * -.6 -IF accelx > 0 THEN - LET accelx = accelx - .05 - ELSEIF accelx < 0 THEN - LET accelx = accelx + .05 -END IF -ELSEIF accely <= 0 THEN - IF accelx > 0 THEN - LET accelx = accelx - .002 - ELSEIF accelx < 0 THEN - LET accelx = accelx + .002 - END IF -END IF - -IF accelx <> 0 THEN -LET ballx = ballx + accelx -LET ballangle = ballangle + accelx / pi / 10 -END IF - - -'###################### DRAW ####################### - -CIRCLE (ballx, bally), 20, 0 -LINE (COS(ballangle) * 20 + ballx, SIN(ballangle) * 20 + bally)-(COS(ballangle) * -20 + ballx, SIN(ballangle) * -20 + bally), 0 - -LET key$ = INKEY$ -FOR w = 1 TO 40000 -IF key$ <> "" THEN END -NEXT w - -LOOP - diff --git a/programs/samples/pete/hgm30e/about.hlp b/programs/samples/pete/hgm30e/about.hlp deleted file mode 100644 index 7b3e6f4d0..000000000 --- a/programs/samples/pete/hgm30e/about.hlp +++ /dev/null @@ -1,64 +0,0 @@ -About the game -============== - -"Hegemony 3.0.e" is a turn-based strategy game that simulates the hegemonic -efforts of medieval empires. "The game of the middle ages" requires correct -decisions in fields of economics, science, diplomacy, and military. Finding a -healthy balance among these fields is essential to achive the final goal: -The establishment of a perfect hegemony. -A goal that so many empires pursued unsuccesfully in history. Now, it's your -turn to rewrite history... - - -Apologies ---------- - -"The first thought of God was an angel. - The first word of God was a man." - (Kahlil Gibran) - -I have always been a fan of strategy war games and have tried many of them. -There were bad ones, mediocre ones and good ones, but none was perfectly -fitting for my taste. So after a time I realized I myself have to make the -"game of my dreams". -Well, my thought was the "game of my dreams"... - ... and what I realized is: "Hegemony"! - -Like God's creation, man, isn't a perfect incarnation of an imagined project, -so my game isn't either. But like man, so my game has the soul of a superior -virtual being. (And of course, as I am a little speck of dust in comparison to -God, so is my creation in comparison to His. ;-)) - -But enough of this sentimental philosophy. - - -Expression of gratitude ------------------------ - -Some people helped me in creating this game. -This is the place to express my grateful thanks to them: - -MickJW (Australia) - programming advices -XiberLord (Sweden) - Sweden's data for the default scenario -CheetahRunner (Hungary) - programming advices, algorithms, testing, ideas, - opening picture -Larry (USA) - testing, grammar/spelling control -Storm-Master (Germany) - victory music -El_Gazza (UK) - Great Britain's data for the default scenario -Creactive (Luxembourg) - algorithm for the help menu - -Thank you all! - - -Other information ------------------ - -The program was written in QuickBasic 4.5 but compiled in 7.1. - -"Hegemony 3.0.e" is FREEWARE under one condition: Should you ever make a -similar game by using my idea, let me have a free copy of it. - -If you have any comments, ideas or questions about the game, let me know: -Akos Ivanyi -ivanyiakos@hotmail.com -http://www.angelfire.com/ego/akos diff --git a/programs/samples/pete/hgm30e/ai.txt b/programs/samples/pete/hgm30e/ai.txt deleted file mode 100644 index 57a8a03f1..000000000 --- a/programs/samples/pete/hgm30e/ai.txt +++ /dev/null @@ -1,48 +0,0 @@ -How to change the AI of the game? ---------------------------------- - -"Hegemony 3.0.e" has a non-cheating AI (artificial intelligence) included in the main block of the program. So the framework of the AI is rather stiff, but on the other hand, there are several changeable variables that are loaded from external files. These ".ai" files give the AI different behaviours. The variables, and their recommended range are listed below: - - -1. foodweight (0-1) = significance of food when evaluating a territory -2. prodweight (0-1) = significance of resources when evaluating a territory -3. hateweight (0-10) = importance of hate (for conquered territories) in diplomatic actions -4. diplweight (0-10) = importance of diplomacy in evaluating a situation -5. friendliness (0-10) = proneness to improve diplomatic relations -6. chance (0-1) = unpredictability -7. trustweight (0-10) = importance of diplomatic trust of other empires -8. remoteweight (0-10) = proneness to improve relations with not neighbouring countries -9. mintrust (0-1) = trust value that prevents negative diplomatic actions -10. aitrade (0-1) = the wish to make trade -11. aifriend (0-1) = the wish to make friends -12. aially (0-1) = the wish to make alliance -13. minmorale (0-1) = the minimum limit of morale in case of full employment -14. mintax (0-1) = minimum limit of tax -15. feardipl(1) (0-1) = fear that an enemy attacks -16. feardipl(2) (0-1) = fear that a neutral country attacks -17. feardipl(3) (0-1) = fear that a trading partner attacks -18. feardipl(4) (0-1) = fear that a friend attacks -19. feardipl(5) (0-1) = fear that an ally attacks -20. warmilitary (0-1) = the weight (proportion) of military investments at war -21. peacemilitary (0-1) = the weight (proportion) of military investments at peace -22. aibuilding (0-1) = the chance that the rest of money (after the military investments) will be spent on building churches, productive properties and ships, AND NOT on science -23. aichurch (0-1) = the proportion of money to be spent on churches, if the AI decides on building -24. aimill (0-1) = the proportion of money to be spent on mills, if the AI decides on building -25. ainavy (0-1) = the proportion of money to be spent on navy, if the AI decides on building -26. aiuni (0-1) = the chance that the AI builds universities instead of developing sciences -27. aiscience(1) (0-1) = the proportion of agriculture in science developments -28. aiscience(2) (0-1) = the proportion of industry in science developments -29. aiscience(3) (0-1) = the proportion of trade in science developments -30. aiscience(4) (0-1) = the proportion of sailing in science developments -31. aiscience(5) (0-1) = the proportion of military in science developments -32. aiscience(6) (0-1) = the proportion of medicine in science developments -33. landorsea (0-1) = the importance of land compared to sea (1 = absolute priority for land; 0 = absolute priority for sea) -34. planning (0-100) = the length of foresight in turns, for military investments -35. myfactor (1-999) = the AI begins to turn against the most powerful country and tries to make alliances with other countries, if the biggest empire is stronger than "myfactor" times its own value, and... -36. avgfactor (1-999) = ..."avgfactor" times stronger than the average value of a country. - - -If you need more info, send me an e-mail. I will try to give you a more detailed description. - -Akos Ivanyi -ivanyiakos@hotmail.com diff --git a/programs/samples/pete/hgm30e/bestturn.txt b/programs/samples/pete/hgm30e/bestturn.txt deleted file mode 100644 index 3f5cd02fd..000000000 --- a/programs/samples/pete/hgm30e/bestturn.txt +++ /dev/null @@ -1,9 +0,0 @@ -"England",999,"seatrade.ai","05-13-2003" -"Spain",999,"default.ai","05-13-2003" -"France",999,"default.ai","05-13-2003" -"Sweden",999,"seatrade.ai","05-13-2003" -"Germany",999,"land.ai","05-13-2003" -"Italy",999,"default.ai","05-13-2003" -"Hungary",999,"land.ai","05-13-2003" -"Poland",999,"default.ai","05-13-2003" -"Balcan",999,"default.ai","05-13-2003" diff --git a/programs/samples/pete/hgm30e/default.ai b/programs/samples/pete/hgm30e/default.ai deleted file mode 100644 index f7a29b902..000000000 --- a/programs/samples/pete/hgm30e/default.ai +++ /dev/null @@ -1,38 +0,0 @@ -1 -0.75 -1 -1 -0.1 -0.05 -2 -1 -0.9 -0.5 -0.2 -0.1 -0.85 -0.05 -1 -0.8 -0.5 -0.3 -0.1 -0.5 -0.1 -0.6 -0.4 -0.4 -0.2 -0.5 -0.2 -0.2 -0.2 -0.2 -0 -0.2 -0.75 -5 -1.4 -2.5 - - diff --git a/programs/samples/pete/hgm30e/default.scn b/programs/samples/pete/hgm30e/default.scn deleted file mode 100644 index 01249a048..000000000 --- a/programs/samples/pete/hgm30e/default.scn +++ /dev/null @@ -1,441 +0,0 @@ -9 -1 -1 -0 -0 -0 -0 -0 -0 -England -seatrade.ai -1851 -4810 -21 -0 -0 -0.1 -1 -1.4 -1.6 -1.7 -1.6 -1.5 -1.5 -5 -3 -2 -3 -3 -3 -2 -2 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Spain -default.ai -4102 -4600 -23 -0 -0 -0.1 -1 -1.4 -1.3 -1.6 -1.5 -1.4 -1.3 -3 -5 -3 -2 -2 -2 -2 -2 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -France -default.ai -3770 -4015 -16 -0 -0 -0.1 -1 -1.5 -1.4 -1.4 -1.4 -1.4 -1.4 -2 -3 -5 -3 -2 -3 -2 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Sweden -seatrade.ai -1059 -1425 -24 -0 -0 -0.1 -1 -1.3 -1.2 -1.7 -1.7 -1.2 -1.0 -3 -2 -3 -5 -3 -2 -2 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Germany -land.ai -2633 -2772 -9 -0 -0 -0.1 -1 -1.3 -1.6 -1.3 -1.1 -1.5 -1.5 -3 -2 -2 -3 -5 -3 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Italy -default.ai -2297 -3458 -19 -0 -0 -0.1 -1 -1.3 -1.5 -1.6 -1.5 -1.3 -1.4 -3 -2 -3 -2 -3 -5 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Hungary -land.ai -1689 -1140 -2 -0 -0 -0.1 -1 -1.2 -1 -1 -0.8 -1.2 -1 -2 -2 -2 -2 -3 -3 -5 -4 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Poland -default.ai -1602 -1362 -5 -0 -0 -0.1 -1 -1.1 -1.1 -1 -1.1 -1 -0.9 -2 -2 -3 -3 -3 -3 -4 -5 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -Balcan -default.ai -1121 -973 -7 -0 -0 -0.1 -1 -1 -0.9 -1.2 -1.1 -1 -0.8 -3 -3 -2 -2 -2 -3 -3 -2 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0, 0, 0, 1, 1, 0, 0, 0, 4, 4, 4, 4, 4, 0, 0 -0, 1, 0, 1, 1, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0 -0, 1, 0, 1, 1, 0, 0, 0, 4, 0, 4, 4, 0, 0, 0 -0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 4, 4, 0, 0, 0 -0, 0, 1, 1, 1, 1, 0, 0, 5, 0, 0, 0, 0, 8, 8 -0, 0, 0, 0, 0, 0, 3, 5, 5, 5, 5, 5, 8, 8, 8 -0, 0, 0, 3, 3, 3, 3, 5, 5, 5, 5, 8, 8, 8, 8 -0, 0, 0, 0, 3, 3, 3, 3, 5, 5, 5, 7, 7, 7, 7 -0, 0, 0, 0, 3, 3, 3, 3, 5, 5, 5, 7, 7, 7, 7 -0, 0, 0, 0, 3, 3, 3, 3, 6, 6, 6, 7, 7, 9, 9 -0, 2, 2, 2, 3, 3, 0, 0, 6, 6, 6, 0, 9, 9, 9 -2, 2, 2, 2, 2, 2, 0, 0, 0, 6, 6, 0, 0, 9, 9 -2, 2, 2, 2, 2, 0, 0, 6, 0, 0, 6, 6, 0, 0, 9 -2, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 6, 6, 0, 0 -0, 2, 2, 2, 0, 0, 0, 0, 6, 0, 6, 6, 0, 0, 0 -0, 0, 0, 1, 1, 0, 0, 0, 4, 4, 4, 4, 4, 0, 0 -0, 1, 0, 1, 1, 0, 0, 0, 4, 4, 4, 4, 0, 0, 0 -0, 1, 0, 1, 1, 0, 0, 0, 4, 0, 4, 4, 0, 0, 0 -0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 4, 4, 0, 0, 0 -0, 0, 1, 1, 1, 1, 0, 0, 5, 0, 0, 0, 0, 8, 8 -0, 0, 0, 0, 0, 0, 3, 5, 5, 5, 5, 5, 8, 8, 8 -0, 0, 0, 3, 3, 3, 3, 5, 5, 5, 5, 8, 8, 8, 8 -0, 0, 0, 0, 3, 3, 3, 3, 5, 5, 5, 7, 7, 7, 7 -0, 0, 0, 0, 3, 3, 3, 3, 5, 5, 5, 7, 7, 7, 7 -0, 0, 0, 0, 3, 3, 3, 3, 6, 6, 6, 7, 7, 9, 9 -0, 2, 2, 2, 3, 3, 0, 0, 6, 6, 6, 0, 9, 9, 9 -2, 2, 2, 2, 2, 2, 0, 0, 0, 6, 6, 0, 0, 9, 9 -2, 2, 2, 2, 2, 0, 0, 6, 0, 0, 6, 6, 0, 0, 9 -2, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 6, 6, 0, 0 -0, 2, 2, 2, 0, 0, 0, 0, 6, 0, 6, 6, 0, 0, 0 -0, 0, 0, 7, 7, 0, 0, 0, 8, 9, 9, 9, 9, 0, 0 -0, 2, 0, 7, 6, 0, 0, 0, 7, 6, 6, 6, 0, 0, 0 -0, 6, 0, 6, 6, 0, 0, 0, 6, 0, 2, 2, 0, 0, 0 -0, 0, 0, 6, 3, 3, 0, 0, 0, 0, 3, 2, 0, 0, 0 -0, 0, 2, 1, 6, 3, 0, 0, 3, 0, 0, 0, 0, 2, 2 -0, 0, 0, 0, 0, 0, 3, 3, 3, 3, 3, 3, 3, 3, 2 -0, 0, 0, 6, 6, 3, 3, 3, 6, 3, 7, 6, 6, 3, 6 -0, 0, 0, 0, 3, 3, 6, 6, 7, 6, 6, 6, 7, 7, 7 -0, 0, 0, 0, 3, 6, 7, 8, 8, 7, 7, 3, 3, 4, 6 -0, 0, 0, 0, 6, 3, 6, 7, 7, 6, 6, 3, 6, 6, 6 -0, 7, 7, 6, 8, 7, 0, 0, 7, 3, 3, 0, 7, 3, 2 -2, 6, 1, 7, 6, 8, 0, 0, 0, 7, 2, 0, 0, 7, 2 -3, 2, 7, 6, 7, 0, 0, 6, 0, 0, 6, 6, 0, 0, 6 -3, 2, 3, 6, 0, 0, 0, 0, 0, 0, 0, 6, 2, 0, 0 -0, 3, 2, 7, 0, 0, 0, 0, 6, 0, 6, 2, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 1, 0, 1, 1, 0, 0, 0, 2, 0, 1, 1, 0, 0, 0 -0, 0, 0, 2, 1, 2, 0, 0, 0, 0, 1, 1, 0, 0, 0 -0, 0, 2, 1, 2, 3, 0, 0, 1, 0, 0, 0, 0, 1, 1 -0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 1, 1, 0, 0, 0 -0, 0, 0, 1, 0, 1, 2, 2, 1, 0, 1, 0, 1, 1, 1 -0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1 -0, 0, 0, 0, 1, 1, 0, 1, 1, 2, 1, 1, 1, 0, 1 -0, 0, 0, 0, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1 -0, 1, 1, 2, 1, 2, 0, 0, 1, 0, 1, 0, 1, 0, 0 -1, 0, 0, 0, 2, 2, 0, 0, 0, 1, 1, 0, 0, 1, 0 -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1 -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 -0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0 -0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0 -0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0 -0, 0, 0, 2, 2, 0, 0, 0, 2, 0, 1, 2, 0, 0, 0 -0, 0, 0, 2, 3, 3, 0, 0, 0, 0, 2, 2, 0, 0, 0 -0, 0, 2, 2, 2, 4, 0, 0, 1, 0, 0, 0, 0, 2, 2 -0, 0, 0, 0, 0, 0, 1, 2, 2, 2, 1, 1, 2, 3, 1 -0, 0, 0, 1, 3, 2, 1, 3, 3, 2, 1, 1, 2, 2, 1 -0, 0, 0, 0, 2, 3, 1, 1, 2, 2, 1, 1, 2, 1, 1 -0, 0, 0, 0, 2, 3, 1, 0, 0, 1, 1, 2, 3, 2, 1 -0, 0, 0, 0, 2, 3, 2, 2, 1, 2, 2, 2, 1, 1, 1 -0, 1, 1, 1, 0, 1, 0, 0, 1, 3, 3, 0, 2, 2, 1 -2, 2, 1, 2, 1, 1, 0, 0, 0, 2, 2, 0, 0, 2, 1 -2, 2, 1, 1, 1, 0, 0, 1, 0, 0, 3, 2, 0, 0, 2 -1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, 0 -0, 2, 3, 2, 0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0 -0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0 -0, 0, 1, 1, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1 -0, 0, 0, 0, 0, 0, 1, 1, 2, 1, 1, 0, 1, 1, 0 -0, 0, 0, 0, 1, 1, 2, 1, 1, 1, 1, 1, 0, 0, 0 -0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0 -0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1 -0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0 -0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 2, 0, 1, 0, 0 -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 -1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 -0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0 -0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 1, 0, 1, 2, 0, 0, 0, 2, 4, 3, 3, 0, 0, 0 -0, 1, 0, 2, 2, 0, 0, 0, 4, 0, 2, 1, 0, 0, 0 -0, 0, 0, 3, 2, 3, 0, 0, 0, 0, 3, 2, 0, 0, 0 -0, 0, 2, 1, 2, 3, 0, 0, 2, 0, 0, 0, 0, 1, 0 -0, 0, 0, 0, 0, 0, 1, 1, 2, 2, 2, 1, 1, 1, 1 -0, 0, 0, 1, 2, 3, 2, 2, 3, 2, 1, 0, 1, 1, 1 -0, 0, 0, 0, 1, 2, 1, 1, 2, 2, 1, 0, 1, 1, 0 -0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2 -0, 0, 0, 0, 2, 1, 3, 2, 1, 2, 1, 1, 1, 0, 1 -0, 1, 0, 1, 1, 1, 0, 0, 1, 2, 3, 0, 1, 2, 1 -2, 2, 0, 1, 1, 1, 0, 0, 0, 2, 2, 0, 0, 1, 0 -1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 1 -2, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0 -0, 1, 2, 2, 0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 1, 0, 1, 1, 0, 0, 0, 1, 3, 1, 2, 0, 0, 0 -0, 1, 0, 1, 2, 0, 0, 0, 7, 0, 2, 3, 0, 0, 0 -0, 0, 0, 2, 3, 4, 0, 0, 0, 0, 5, 3, 0, 0, 0 -0, 0, 2, 4, 5, 6, 0, 0, 2, 0, 0, 0, 0, 2, 1 -0, 0, 0, 0, 0, 0, 3, 2, 1, 1, 1, 2, 2, 2, 1 -0, 0, 0, 1, 2, 1, 2, 3, 2, 0, 2, 2, 2, 1, 2 -0, 0, 0, 0, 1, 2, 0, 2, 3, 1, 3, 2, 2, 1, 1 -0, 0, 0, 0, 2, 1, 1, 2, 2, 1, 2, 2, 3, 2, 1 -0, 0, 0, 0, 2, 1, 1, 3, 2, 2, 3, 3, 1, 2, 2 -0, 1, 2, 3, 3, 4, 0, 0, 1, 1, 3, 0, 3, 1, 1 -2, 1, 2, 3, 3, 3, 0, 0, 0, 1, 2, 0, 0, 2, 0 -1, 0, 1, 1, 2, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1 -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0 -0, 2, 2, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 -0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 diff --git a/programs/samples/pete/hgm30e/dipl.hlp b/programs/samples/pete/hgm30e/dipl.hlp deleted file mode 100644 index 963334374..000000000 --- a/programs/samples/pete/hgm30e/dipl.hlp +++ /dev/null @@ -1,74 +0,0 @@ -Diplomacy -========= - -The important field of diplomacy should never be neglected, since brute force -alone is not enough to conquer all other empires. There are five possible -relationships between countries: - - war - - neutrality - - trade - - friendship - - alliance - - -What is the significance of the various relationships? ------------------------------------------------------- - -1. War - - You can attack and be attacked any time. - - All allies of your enemy declare war on you, and all your allies declare - war on your enemy. -2. Neutrality - - Nothing special. -3. Trade - - You get general information from your trading partner. - - Your trading area increases, and this means more merchants and more - revenue. If you trade with a neighbouring country you can use all of - her territory (by trading caravans), otherwise you will need your - fleet, and the bonus trading area is modified by the proportion of your - territorial waters. -4. Friendship - - You get general information from your friend. - - You can trade with your friend. -5. Alliance - - You get full information from your ally. - - You can trade with your ally. - - All enemies of your ally declare war on you, and all your enemies declare - war on your ally. - - You liberate the territories originally owned by your ally, and so does - your ally. - - -How can the diplomatic relations be changed? --------------------------------------------- - -Diplomatic relations can be improved if both parties have a positive attitude to -each other, but one party is enough to spoil it. In latter case, the responsible -side loses 5% diplomatic trust. -IMPORTANT: Attacks without a declaration of war are also possible, but there is -an extra penalty on the diplomatic trust. This loss of trust depends on the -previous level of relationship. Stabbing a friend in the back is regarded a much -more treacherous offense than attacking a neutral neighbour without any -diplomatic signals. In case of neutral countries it is even possible without -extra penalty that you attack them in the same turn when you declare war. - - -About spying ------------- - -Knowledge is power. You need information to be able to make reasonable -decisions. Normally, you have only limited knowledge about other empires: - - Size of land-area - - Diplomatic trust - - Diplomatic relations - - Territorial data of neighbouring regions. - -If your diplomatic relation to a country is "trade" or "friendship" you get -"general" (non-territory-related) information, in case of allies you get "full" -information. If this is not enough (and why would it be enough, when you need -the most knowledge just about your enemies?) you can hire spies. -The cost of information depends on: - - the diplomatic relation (the more hostile the country the bigger the risk of - being caught) - - the size of country (larger countries have better defence against spies) - - whether you want "general" or "full" information (latter costs double). \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/hgm.bmp b/programs/samples/pete/hgm30e/hgm.bmp deleted file mode 100644 index cd8f21e6a..000000000 Binary files a/programs/samples/pete/hgm30e/hgm.bmp and /dev/null differ diff --git a/programs/samples/pete/hgm30e/hgm30e.bas b/programs/samples/pete/hgm30e/hgm30e.bas deleted file mode 100644 index 74e5e34b1..000000000 --- a/programs/samples/pete/hgm30e/hgm30e.bas +++ /dev/null @@ -1,2895 +0,0 @@ -chdir ".\programs\samples\pete\hgm30e" - -'HEGEMONY 3.0.e -'Copyright: Akos Ivanyi (21.07.2003) - - -'-----=====GENERAL GAMEFLOW=====----- - -' variables: -' | -' opening: -' | -' choosecontrol:<----O -' / \ | -' human: ai: | -' \ / | -' nextturn:------>O - -' (gosubs) - - -'-----=====THE GAME=====----- - -variables: -'------------------------------------------------ -DECLARE FUNCTION fixcolor (col AS INTEGER) -DIM rca AS STRING * 1 - -'$DYNAMIC -DIM pic(32000) AS INTEGER -'$STATIC - -DIM control$(9) -DIM c$(9) -DIM name$(9) -DIM land%(9) -DIM sea(9) -DIM navy%(9) -DIM seaarmy%(9) -DIM seamoved%(9) -DIM money&(9) -DIM population&(9) -DIM tax(9) -DIM morale(9) -DIM trust(9) -DIM science(6, 9) -DIM sciencename$(6) -DIM sciencemoney&(6) -DIM ownercolor%(9) -DIM peasant&(9) -DIM fisher&(9) -DIM worker&(9) -DIM merchant&(9) -DIM soldier&(9) -DIM unemployed&(9) -DIM fo%(9) -DIM chu%(9) -DIM uni%(9) -DIM mil%(9) -DIM allfood&(9) -DIM spy%(9) -DIM spycost%(9) -DIM landtrade(9) -DIM value(9) -DIM lostvalue(9) -DIM diplinterest(9) -DIM hate(9) -DIM fear(9) -DIM diplplan(9) -DIM property&(9) -DIM level(9) -DIM bestname$(9) -DIM bestturn(9) -DIM bestcontrol$(9) -DIM bestdate$(9) - -DIM dipl%(9, 9) -DIM diplaction%(9, 9) -DIM border%(9, 9) - -DIM owner%(15, 15) -DIM original%(15, 15) -DIM terrain%(15, 15) -DIM fort%(15, 15) -DIM church%(15, 15) -DIM university%(15, 15) -DIM mill%(15, 15) -DIM army%(15, 15) -DIM moved%(16, 16) -DIM localmorale(15, 15) -DIM threat(16, 16) -DIM ed%(15, 15) - -DIM tername$(9) -DIM foodpot(9) -DIM prodpot(9) -DIM terdefense(9) -DIM tercolor(9) -DIM size%(7) - -DIM i AS INTEGER -DIM j AS INTEGER -DIM x AS INTEGER -DIM y AS INTEGER - -ownercolor%(0) = 0 -ownercolor%(1) = 2 -ownercolor%(2) = 4 -ownercolor%(3) = 1 -ownercolor%(4) = 14 -ownercolor%(5) = 8 -ownercolor%(6) = 15 -ownercolor%(7) = 11 -ownercolor%(8) = 13 -ownercolor%(9) = 12 - -sciencename$(1) = "agriculture" -sciencename$(2) = "industry" -sciencename$(3) = "trade" -sciencename$(4) = "sailing" -sciencename$(5) = "military" -sciencename$(6) = "medicine" - -size%(1) = 1 -size%(2) = 2 -size%(3) = 5 -size%(4) = 10 -size%(5) = 20 -size%(6) = 50 -size%(7) = 100 - -tername$(0) = "sea" -tercolor(0) = 1 -x = 8 -y = 8 -BF = 700: mf = 30: sf = 70 -bc = 100: mc = 3: sc = 10 -bu = 500: mu = 25: su = 250 -bm = 200: mm = -20: sm = 180 -bn = 200: mn = 20: sn = 180 -ba = 150: ma = 30: sa = 75 -message$ = "Welcome, Majesty." - - -opening: -'------------------------------------------------ -save% = 1 -code% = 1 -SCREEN 12 -CLS - -LOCATE 1, 1 -OPEN "motto.txt" FOR INPUT AS #1 - WHILE NOT EOF(1) - LINE INPUT #1, text$ - PRINT text$ - WEND -CLOSE -GOSUB press - -CLS -OPEN "hgm.bmp" FOR BINARY AS #1 -SEEK #1, 119 -FOR i = 299 TO 0 STEP -1 - FOR j = 0 TO 399 STEP 2 - GET #1, , rca - PSET (j + 120, i + 90), fixcolor(FIX(ASC(rca) / 16)) - PSET (j + 121, i + 90), fixcolor(ASC(rca) - FIX(ASC(rca) / 16) * 16) - NEXT j -NEXT i -CLOSE #1 -LINE (0, 0)-(639, 479), 2, B -rca = INPUT$(1) - -RANDOMIZE TIMER -CLS -GOSUB title -LOCATE 7, 1: PRINT "(Press 'ENTER' for default.)" -LOCATE 6, 1 -scen$ = "default.scn" -INPUT "Which scenario do you wish to play"; scen$ -IF scen$ = "" THEN scen$ = "default.scn" -LOCATE 9, 1 -PRINT "Opening file..." -OPEN scen$ FOR INPUT AS #1 - INPUT #1, players% - INPUT #1, player% - INPUT #1, turn% - FOR i = 1 TO 6 - INPUT #1, sciencemoney&(i) - NEXT i - FOR i = 1 TO players% - LINE INPUT #1, name$(i) - INPUT #1, control$(i) - INPUT #1, population&(i) - INPUT #1, money&(i) - INPUT #1, navy%(i) - INPUT #1, seaarmy%(i) - INPUT #1, seamoved%(i) - INPUT #1, tax(i) - INPUT #1, trust(i) - FOR j = 1 TO 6 - INPUT #1, science(j, i) - NEXT j - FOR j = 1 TO players% - INPUT #1, dipl%(i, j) - NEXT j - FOR j = 1 TO players% - INPUT #1, diplaction%(i, j) - NEXT j - NEXT i - FOR k = 1 TO 9 - FOR i = 1 TO 15 - FOR j = 1 TO 15 - SELECT CASE k - CASE 1 - INPUT #1, owner%(i, j) - CASE 2 - INPUT #1, original%(i, j) - CASE 3 - INPUT #1, terrain%(i, j) - CASE 4 - INPUT #1, fort%(i, j) - CASE 5 - INPUT #1, church%(i, j) - CASE 6 - INPUT #1, university%(i, j) - CASE 7 - INPUT #1, mill%(i, j) - CASE 8 - INPUT #1, army%(i, j) - CASE 9 - INPUT #1, moved%(i, j) - END SELECT - NEXT j - NEXT i - NEXT k -CLOSE -OPEN "terrain.typ" FOR INPUT AS #1 - FOR i = 1 TO 9 - LINE INPUT #1, tername$(i) - INPUT #1, foodpot(i) - INPUT #1, prodpot(i) - INPUT #1, terdefense(i) - INPUT #1, tercolor(i) - NEXT i -CLOSE -PRINT -GOSUB spy -GOSUB chooseplayer -GOSUB enemydistance - - -choosecontrol: -'------------------------------------------------ -GOSUB countproperties: -active% = 0 -human% = 0 -FOR i = 1 TO players% - IF land%(i) > 0 THEN active% = active% + 1 - IF control$(i) = "human" THEN human% = human% + 1 -NEXT i -IF human% = 0 THEN GOTO aicombat -IF active% = 1 THEN GOTO victory -IF land%(player%) = 0 THEN - WHILE land%(player%) = 0 - IF player% < players% THEN - player% = player% + 1 - ELSE - player% = 1 - turn% = turn% + 1 - revoltnation = INT(RND * players%) + 1 - revoltlevel = RND * RND * 10 - END IF - FOR i = 1 TO players% - diplaction%(player%, i) = 0 - NEXT i - WEND -END IF -GOSUB spy -IF control$(player%) = "human" THEN - BEEP - IF human% > 1 THEN - CLS - COLOR ownercolor%(player%) - LOCATE player% * 3, player% * 6 - PRINT name$(player%); "'s turn!" - BEEP - GOSUB press - CLS - END IF - GOSUB countproperties - GOTO human -ELSE - GOTO ai -END IF - - -human: -'------------------------------------------------ -LOCATE 1, 1 -GOSUB title -GOSUB see -GOSUB morale -GOSUB drawmap -LINE (450, 100)-(640, 360), 0, BF -LINE (129 + x * 20, 79 + y * 20)-(151 + x * 20, 101 + y * 20), 0, B -RESTORE eye -FOR i = 1 TO 7 - FOR j = 1 TO 12 - READ pixel% - IF pixel% < 16 THEN PSET (134 + x * 20 + j, 83 + y * 20 + i), pixel% - NEXT j -NEXT i -LINE (455, 380)-(639, 404), 7, B -LOCATE 5, 29 -COLOR ownercolor%(player%) -PRINT name$(player%); "'s turn:"; turn% -COLOR 7 -LOCATE 5, 1 -PRINT "Empires" -PRINT "-------" -PRINT "i = Information" -PRINT "t = Treasury" -PRINT "s = Science" -PRINT "d = Diplomacy" -PRINT -PRINT "Territories" -PRINT "-----------" -PRINT "Examine: numbers" -PRINT "Move army: arrows" -PRINT "Build:" -PRINT " f = Fort" -PRINT " c = Church" -PRINT " u = University" -PRINT " m = Mills, Mines" -PRINT " Mints..." -PRINT " a = Army" -PRINT " n = Navy" -PRINT "Sell/Destroy:" -PRINT " F, C, U, M, A, N" -PRINT -PRINT "Military unit size: + = increase, - = decrease" -PRINT "E = End turn, g = save Game, h = Help, Q = Quit"; -COLOR 14 -PRINT " Gold:"; money&(player%); " " -COLOR 7 -LOCATE 5, 59 -PRINT "Territory info" -LOCATE 6, 59 -PRINT "--------------" -LOCATE 7, 59 -PRINT "Location:"; x; y; " " -COLOR ownercolor%(owner%(y, x)) -IF terrain%(y, x) <> 0 THEN - LOCATE 8, 59 - PRINT "Province of..." - LOCATE 9, 61 - PRINT name$(owner%(y, x)) - LOCATE 10, 59 - COLOR ownercolor%(original%(y, x)) - PRINT "Original owner:" - LOCATE 11, 61 - PRINT name$(original%(y, x)) -END IF -LOCATE 12, 59 -COLOR tercolor(terrain%(y, x)) -PRINT "Terrain: "; tername$(terrain%(y, x)) -IF terrain%(y, x) <> 0 THEN - LOCATE 13, 61 - PRINT "food:"; foodpot(terrain%(y, x)) - LOCATE 14, 61 - PRINT "resources:"; prodpot(terrain%(y, x)) - LOCATE 15, 61 - PRINT "defence bonus:"; terdefense(terrain%(y, x)) * 100; "%" - LOCATE 16, 59 - COLOR ownercolor%(owner%(y, x)) - PRINT "Forts:"; - IF see% = 1 THEN PRINT fort%(y, x) - LOCATE 17, 59 - PRINT "Churches:"; - IF see% = 1 THEN PRINT church%(y, x) - LOCATE 18, 59 - PRINT "Universities:"; - IF see% = 1 THEN PRINT university%(y, x) - LOCATE 19, 59 - PRINT "Mills, etc.:"; - IF see% = 1 THEN PRINT mill%(y, x) -END IF -LOCATE 20, 59 -IF owner%(y, x) <> 0 THEN - PRINT "Army:"; - IF see% = 1 THEN PRINT army%(y, x) -ELSE - COLOR ownercolor%(player%) - PRINT "Army:"; seaarmy%(player%) -END IF -LOCATE 21, 59 -PRINT "Morale:"; -IF see% = 1 THEN PRINT INT(localmorale(y, x) * 100 + .5); "% " -LOCATE 22, 59 -COLOR ownercolor%(player%) -IF owner%(y, x) = player% THEN - PRINT "Reinforcement:"; moved%(y, x) -ELSEIF owner%(y, x) <> 0 THEN - PRINT "Attackers:"; moved%(y, x) -ELSE - PRINT "Just embarked:"; seamoved%(player%) -END IF -LOCATE 23, 59 -IF terrain%(y, x) = 0 THEN - PRINT "Navy:"; navy%(player%); " " -ELSE - PRINT " " -END IF -COLOR 7 -LOCATE 25, 59 -PRINT message$ -LOCATE 27, 20 -IF code% > 1 THEN COLOR ownercolor%(player%) -PRINT size%(code%); " " -COLOR 7 - -k$ = "" -WHILE k$ = "" - k$ = INKEY$ -WEND -message$ = " " -SELECT CASE k$ - CASE "q" - message$ = "'Q' instead of 'q'. " - CASE "Q" - GOTO bye - CASE "1" TO "9" - IF VAL(k$) < 4 THEN - IF y < 15 THEN y = y + 1 - END IF - IF k$ = "1" OR k$ = "4" OR k$ = "7" THEN - IF x > 1 THEN x = x - 1 - END IF - IF k$ = "3" OR k$ = "6" OR k$ = "9" THEN - IF x < 15 THEN x = x + 1 - END IF - IF VAL(k$) > 6 THEN - IF y > 1 THEN y = y - 1 - END IF - CASE CHR$(0) + "H" - IF y > 1 THEN - IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN - IF terrain%(y - 1, x) <> 0 THEN - moved%(y - 1, x) = moved%(y - 1, x) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN - seamoved%(player%) = seamoved%(player%) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - message$ = "Not enough ships. " - END IF - END IF - ELSEIF terrain%(y, x) = 0 AND terrain%(y - 1, x) <> 0 AND seaarmy%(player%) >= size%(code%) THEN - seaarmy%(player%) = seaarmy%(player%) - size%(code%) - moved%(y - 1, x) = moved%(y - 1, x) + size%(code%) - END IF - END IF - CASE CHR$(0) + "P" - IF y < 15 THEN - IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN - IF terrain%(y + 1, x) <> 0 THEN - moved%(y + 1, x) = moved%(y + 1, x) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN - seamoved%(player%) = seamoved%(player%) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - message$ = "Not enough ships. " - END IF - END IF - ELSEIF terrain%(y, x) = 0 AND terrain%(y + 1, x) <> 0 AND seaarmy%(player%) >= size%(code%) THEN - seaarmy%(player%) = seaarmy%(player%) - size%(code%) - moved%(y + 1, x) = moved%(y + 1, x) + size%(code%) - END IF - END IF - CASE CHR$(0) + "K" - IF x > 1 THEN - IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN - IF terrain%(y, x - 1) <> 0 THEN - moved%(y, x - 1) = moved%(y, x - 1) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN - seamoved%(player%) = seamoved%(player%) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - message$ = "Not enough ships. " - END IF - END IF - ELSEIF terrain%(y, x) = 0 AND terrain%(y, x - 1) <> 0 AND seaarmy%(player%) >= size%(code%) THEN - seaarmy%(player%) = seaarmy%(player%) - size%(code%) - moved%(y, x - 1) = moved%(y, x - 1) + size%(code%) - END IF - END IF - CASE CHR$(0) + "M" - IF x < 15 THEN - IF owner%(y, x) = player% AND army%(y, x) >= size%(code%) THEN - IF terrain%(y, x + 1) <> 0 THEN - moved%(y, x + 1) = moved%(y, x + 1) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - IF seamoved%(player%) + seaarmy%(player%) + size%(code%) <= navy%(player%) THEN - seamoved%(player%) = seamoved%(player%) + size%(code%) - army%(y, x) = army%(y, x) - size%(code%) - ELSE - message$ = "Not enough ships. " - END IF - END IF - ELSEIF terrain%(y, x) = 0 AND terrain%(y, x + 1) <> 0 AND seaarmy%(player%) >= size%(code%) THEN - seaarmy%(player%) = seaarmy%(player%) - size%(code%) - moved%(y, x + 1) = moved%(y, x + 1) + size%(code%) - END IF - END IF - CASE "f" - IF owner%(y, x) = player% THEN - fort%(y, x) = fort%(y, x) + 1 - money&(player%) = money&(player%) - BF - message$ = "Cost:" + STR$(BF) + " " - END IF - CASE "c" - IF owner%(y, x) = player% THEN - church%(y, x) = church%(y, x) + 1 - money&(player%) = money&(player%) - bc - message$ = "Cost:" + STR$(bc) + " " - END IF - CASE "u" - IF owner%(y, x) = player% THEN - university%(y, x) = university%(y, x) + 1 - money&(player%) = money&(player%) - bu - message$ = "Cost:" + STR$(bu) + " " - END IF - CASE "m" - IF owner%(y, x) = player% AND prodpot(terrain%(y, x)) > mill%(y, x) THEN - mill%(y, x) = mill%(y, x) + 1 - money&(player%) = money&(player%) - bm - message$ = "Cost:" + STR$(bm) + " " - ELSEIF owner%(y, x) = player% THEN - message$ = "No more resources. " - END IF - CASE "n" - IF owner%(y, x) = 0 THEN - navy%(player%) = navy%(player%) + size%(code%) - money&(player%) = money&(player%) - bn * size%(code%) - message$ = "Cost:" + STR$(bn * size%(code%)) + " " - END IF - CASE "a" - IF owner%(y, x) = player% THEN - GOSUB countproperties - IF soldier&(player%) >= population&(player%) THEN - message$ = "No more people! " - ELSE - moved%(y, x) = moved%(y, x) + size%(code%) - money&(player%) = money&(player%) - ba * size%(code%) - message$ = "Cost:" + STR$(ba * size%(code%)) + " " - END IF - END IF - CASE "F" - IF owner%(y, x) = player% AND fort%(y, x) > 0 THEN - fort%(y, x) = fort%(y, x) - 1 - money&(player%) = money&(player%) + sf - message$ = "Income:" + STR$(sf) + " " - END IF - CASE "C" - IF owner%(y, x) = player% AND church%(y, x) > 0 THEN - church%(y, x) = church%(y, x) - 1 - money&(player%) = money&(player%) + sc - message$ = "Income:" + STR$(sc) + " " - END IF - CASE "U" - IF owner%(y, x) = player% AND university%(y, x) > 0 THEN - university%(y, x) = university%(y, x) - 1 - money&(player%) = money&(player%) + su - message$ = "Income:" + STR$(su) + " " - END IF - CASE "M" - IF owner%(y, x) = player% AND mill%(y, x) > 0 THEN - mill%(y, x) = mill%(y, x) - 1 - money&(player%) = money&(player%) + sm - message$ = "Income:" + STR$(sm) + " " - END IF - CASE "N" - IF owner%(y, x) = 0 AND navy%(player%) > 0 THEN - IF seamoved%(player%) + seaarmy%(player%) < navy%(player%) THEN - navy%(player%) = navy%(player%) - 1 - money&(player%) = money&(player%) + sn - message$ = "Income:" + STR$(sn) + " " - ELSE - message$ = "Disembark first. " - END IF - END IF - CASE "A" - IF owner%(y, x) = player% AND army%(y, x) > 0 THEN - army%(y, x) = army%(y, x) - 1 - money&(player%) = money&(player%) + sa - message$ = "Income:" + STR$(sa) + " " - END IF - CASE "i" - GOSUB info - CASE "s" - GOSUB science - CASE "t" - GOSUB treasury - CASE "d" - GOSUB diplomacy - CASE "E" - GOTO nextturn - CASE "e" - message$ = "'E' instead of 'e'. " - CASE "g" - GOSUB savegame - CASE "h" - GOSUB help - CASE "+" - IF code% < 7 THEN code% = code% + 1 - CASE "-" - IF code% > 1 THEN code% = code% - 1 -END SELECT -GOTO human - - -ai: -'------------------------------------------------ -IF human% > 0 THEN PRINT name$(player%); "'s turn..." -'-- ai load variables -- -OPEN control$(player%) FOR INPUT AS #1 - INPUT #1, foodweight - INPUT #1, prodweight - INPUT #1, hateweight - INPUT #1, diplweight - INPUT #1, friendliness - INPUT #1, chance - INPUT #1, trustweight - INPUT #1, remoteweight - INPUT #1, mintrust - INPUT #1, aitrade - INPUT #1, aifriend - INPUT #1, aially - INPUT #1, minmorale - INPUT #1, mintax - FOR i = 1 TO 5 - INPUT #1, feardipl(i) - NEXT i - INPUT #1, warmilitary - INPUT #1, peacemilitary - INPUT #1, aibuilding - INPUT #1, aichurch - INPUT #1, aimill - INPUT #1, ainavy - INPUT #1, aiuni - FOR i = 1 TO 6 - INPUT #1, aiscience(i) - NEXT i - INPUT #1, landorsea - INPUT #1, planning - INPUT #1, myfactor - INPUT #1, avgfactor -CLOSE - -'-- ai tax -- -GOSUB countproperties -GOSUB professions -limit = minmorale * (1 - unemployed&(player%) / (population&(player%) + .001)) -besttax = 0 -FOR try = 1 TO 25 - tax(player%) = try / 100 - GOSUB morale - IF morale(player%) > limit THEN besttax = try / 100 -NEXT try -IF besttax < mintax THEN besttax = mintax -tax(player%) = besttax -GOSUB morale - -'-- ai diplomacy -- -FOR i = 1 TO players% - value(i) = 0 - lostvalue(i) = 0 - diplaction%(player%, i) = 0 -NEXT i -origvalue = 0 -FOR i = 1 TO 15 - FOR j = 1 TO 15 - value(owner%(i, j)) = value(owner%(i, j)) + foodpot(terrain%(i, j)) * foodweight + prodpot(terrain%(i, j)) * prodweight - IF original%(i, j) = player% THEN - origvalue = origvalue + foodpot(terrain%(i, j)) * foodweight + prodpot(terrain%(i, j)) * prodweight - IF owner%(i, j) <> player% THEN lostvalue(owner%(i, j)) = lostvalue(owner%(i, j)) + foodpot(terrain%(i, j)) * foodweight + prodpot(terrain%(i, j)) * prodweight - END IF - NEXT j -NEXT i - -maxvalue = 0 -maxcountry = 0 -FOR i = 1 TO players% - IF value(i) > maxvalue THEN - maxvalue = value(i) - maxcountry = i - END IF - diplinterest(i) = 0 - hate(i) = 0 - modifyme = 0 - modifytarget = 0 - allvalue = 0 - enemyvalue = 0 - tradevalue = value(player%) - friendvalue = value(player%) - allyvalue = 0 - FOR j = 1 TO players% - IF j <> player% AND j <> i THEN diplinterest(i) = diplinterest(i) + (dipl%(player%, j) - 3) * (dipl%(j, i) - 3) / 2 + 3 - IF dipl%(player%, j) = 5 THEN modifyme = modifyme + value(j) - IF dipl%(player%, j) = 1 THEN modifyme = modifyme - value(j) - IF dipl%(i, j) = 5 THEN modifytarget = modifytarget + value(j) - IF dipl%(i, j) = 1 THEN modifytarget = modifytarget - value(j) - allvalue = allvalue + value(j) - IF dipl%(player%, j) = 1 THEN enemyvalue = enemyvalue + value(j) - IF dipl%(player%, j) = 3 THEN tradevalue = tradevalue + value(j) - IF dipl%(player%, j) = 4 THEN friendvalue = friendvalue + value(j) - IF dipl%(player%, j) = 5 THEN allyvalue = allyvalue + value(j) - NEXT j - diplinterest(i) = diplinterest(i) / (players% - 2) - IF active% < 3 THEN diplinterest(i) = 2 - hate(i) = lostvalue(i) / origvalue - IF dipl%(player%, i) = 4 THEN hate(i) = -lostvalue(i) / origvalue - fear(i) = (value(i) + modifytarget) / (value(player%) + modifyme) -NEXT i -avgvalue = allvalue / players% -target% = 0 -min = 999 -FOR i = 1 TO players% - diplplan(i) = fear(i) * (1 - hate(i) * hateweight) * (1 + (diplinterest(i) - dipl%(player%, i)) / 10 * diplweight) * (1 - (1 - trust(i)) * trustweight) - IF diplplan(i) < 0 THEN diplplan(i) = 0 - IF border%(player%, i) = 0 AND navy%(player%) < soldier&(player%) THEN diplplan(i) = diplplan(i) * soldier&(player%) / (navy%(player%) + .001) - IF border%(player%, i) = 0 THEN diplplan(i) = diplplan(i) * (1 + remoteweight) - diplplan(i) = diplplan(i) * (1 + friendliness) * (1 - chance + RND * 2 * chance) - 1 - IF diplplan(i) < min AND i <> player% AND land%(i) > 0 THEN - min = diplplan(i) - target% = i - END IF -NEXT i - -overlimit = 0 -IF maxvalue > value(player%) * myfactor AND maxvalue > avgvalue * avgfactor THEN - overlimit = 1 - IF dipl%(player%, maxcountry) > 2 OR allyvalue > maxvalue / 2 THEN target% = maxcountry -END IF - -IF trust(player%) > mintrust THEN diplaction%(player%, target%) = -1 - -FOR i = 1 TO players% - IF (min > 0 OR money&(player%) < 0 OR enemyvalue > allyvalue) AND (overlimit = 0 OR target% <> i) THEN diplaction%(player%, i) = 1 - IF overlimit = 1 AND i <> maxcountry THEN diplaction%(player%, i) = 1 - IF dipl%(player%, i) = 2 AND diplaction%(player%, i) > -1 AND diplplan(i) > 0 AND aitrade * (1 - (1 - trust(i)) * trustweight) / (value(player%) / avgvalue) / (tradevalue / avgvalue) * (1 + friendliness) > RND THEN diplaction%(player%, i) = 1 - IF dipl%(player%, i) = 3 AND diplaction%(player%, i) > -1 AND diplplan(i) > 0 AND aifriend * (1 - (1 - trust(i)) * trustweight) / (value(player%) / avgvalue) / (friendvalue / avgvalue) * (1 + friendliness) > RND THEN diplaction%(player%, i) = 1 - IF dipl%(player%, i) = 4 AND diplaction%(player%, i) > -1 AND diplplan(i) > 0 AND aially * (1 - (1 - trust(i)) * trustweight) / (value(player%) / avgvalue) / (allyvalue / avgvalue) * (1 + friendliness) > RND THEN diplaction%(player%, i) = 1 - IF overlimit = 1 AND i = maxcountry AND diplaction%(player%, i) > -1 THEN diplaction%(player%, i) = 0 -NEXT i - -'-- ai movements -- -'- analysing - -seafear = 0 -FOR i = 1 TO players% - a = soldier&(player%) / land%(player%) ^ 2 * land%(i) * feardipl(dipl%(player%, i)) * (1 - sea(player%)) - IF a > seafear THEN seafear = a -NEXT i -ownmill% = 1 -maxrnd = 0 -unii = 0 -unij = 0 -max2rnd = 0 -disi = 0 -disj = 0 -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% AND original%(i, j) = player% AND prodpot(terrain%(i, j)) > mill%(i, j) THEN ownmill% = 0 - threat(i, j) = 0 - coast = 0 - a = 1 - IF owner%(i, j) = player% THEN - IF i > 1 AND i < 15 AND j > 1 AND j < 15 THEN a = (dipl%(player%, owner%(i - 1, j)) - 1) * (dipl%(player%, owner%(i + 1, j)) - 1) * (dipl%(player%, owner%(i, j - 1)) - 1) * (dipl%(player%, owner%(i, j + 1)) - 1) - IF original%(i, j) <> player% THEN - threat(i, j) = (population&(player%) / (allfood&(player%) + .001) * foodpot(terrain%(i, j)) / 40) * (1 - morale(player%) ^ 2) - IF threat(i, j) < foodpot(terrain%(i, j)) THEN threat(i, j) = foodpot(terrain%(i, j)) - IF threat(i, j) < 1 THEN threat(i, j) = 1 - END IF - threat(i, j) = threat(i, j) - army%(i, j) * (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3) - currentrnd = RND - IF original%(i, j) = player% AND currentrnd > maxrnd THEN - maxrnd = currentrnd - unii = i - unij = j - END IF - IF i > 1 THEN - IF owner%(i - 1, j) = 0 THEN - coast = 1 - ELSEIF owner%(i - 1, j) <> player% THEN - threat(i, j) = threat(i, j) + army%(i - 1, j) * feardipl(dipl%(player%, owner%(i - 1, j))) - END IF - END IF - IF i < 15 THEN - IF owner%(i + 1, j) = 0 THEN - coast = 1 - ELSEIF owner%(i + 1, j) <> player% THEN - threat(i, j) = threat(i, j) + army%(i + 1, j) * feardipl(dipl%(player%, owner%(i + 1, j))) - END IF - END IF - IF j > 1 THEN - IF owner%(i, j - 1) = 0 THEN - coast = 1 - ELSEIF owner%(i, j - 1) <> player% THEN - threat(i, j) = threat(i, j) + army%(i, j - 1) * feardipl(dipl%(player%, owner%(i, j - 1))) - END IF - END IF - IF j < 15 THEN - IF owner%(i, j + 1) = 0 THEN - coast = 1 - ELSEIF owner%(i, j + 1) <> player% THEN - threat(i, j) = threat(i, j) + army%(i, j + 1) * feardipl(dipl%(player%, owner%(i, j + 1))) - END IF - END IF - IF coast = 1 THEN threat(i, j) = threat(i, j) + seafear - ELSEIF dipl%(owner%(i, j), player%) = 1 THEN - IF i > 1 THEN - current2rnd = RND - IF owner%(i - 1, j) = 0 AND current2rnd > max2rnd THEN - max2rnd = current2rnd - disi = i - disj = j - END IF - END IF - IF i < 15 THEN - current2rnd = RND - IF owner%(i + 1, j) = 0 AND current2rnd > max2rnd THEN - max2rnd = current2rnd - disi = i - disj = j - END IF - END IF - IF j > 1 THEN - current2rnd = RND - IF owner%(i, j - 1) = 0 AND current2rnd > max2rnd THEN - maxrnd = current2rnd - disi = i - disj = j - END IF - END IF - IF j < 15 THEN - current2rnd = RND - IF owner%(i, j + 1) = 0 AND current2rnd > maxrnd THEN - max2rnd = current2rnd - disi = i - disj = j - END IF - END IF - END IF - NEXT j -NEXT i -'- reinforcing and attacking - -maxthreat = 0 -threati = 0 -threatj = 0 -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% THEN - IF threat(i, j) > maxthreat THEN - maxthreat = threat(i, j) - threati = i - threatj = j - END IF - END IF - max = 1 - coast = 0 - a = 0: ' help neighbouring zone - minforce = 9999 - minarmy = 9999 - B = 0: ' attack enemy - c = 0: ' concentrate forces next to enemy - excess = INT(-threat(i, j) / (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3)) - 1 - IF excess > army%(i, j) THEN excess = army%(i, j) - IF excess >= 1 THEN - IF i > 1 THEN - IF threat(i - 1, j) > max THEN - max = threat(i - 1, j) - a = 1 - END IF - force = army%(i - 1, j) * (1 + terdefense(terrain%(i - 1, j)) + fort%(i - 1, j) * .3) - IF dipl%(player%, owner%(i - 1, j)) = 1 AND force < minforce THEN - minforce = force - minarmy = army%(i - 1, j) - B = 1 - END IF - IF ed%(i - 1, j) < ed%(i, j) AND owner%(i - 1, j) = player% THEN c = 1 - IF owner%(i - 1, j) = 0 THEN coast = 1 - END IF - IF i < 15 THEN - IF threat(i + 1, j) > max THEN - max = threat(i + 1, j) - a = 2 - END IF - force = army%(i + 1, j) * (1 + terdefense(terrain%(i + 1, j)) + fort%(i + 1, j) * .3) - IF dipl%(player%, owner%(i + 1, j)) = 1 AND force < minforce THEN - minforce = force - minarmy = army%(i + 1, j) - B = 2 - END IF - IF ed%(i + 1, j) < ed%(i, j) AND owner%(i + 1, j) = player% THEN c = 2 - IF owner%(i + 1, j) = 0 THEN coast = 1 - END IF - IF j > 1 THEN - IF threat(i, j - 1) > max THEN - max = threat(i, j - 1) - a = 3 - END IF - force = army%(i, j - 1) * (1 + terdefense(terrain%(i, j - 1)) + fort%(i, j - 1) * .3) - IF dipl%(player%, owner%(i, j - 1)) = 1 AND force < minforce THEN - minforce = force - minarmy = army%(i, j - 1) - B = 3 - END IF - IF ed%(i, j - 1) < ed%(i, j) AND owner%(i, j - 1) = player% THEN c = 3 - IF owner%(i, j - 1) = 0 THEN coast = 1 - END IF - IF j < 15 THEN - IF threat(i, j + 1) > max THEN - max = threat(i, j + 1) - a = 4 - END IF - force = army%(i, j + 1) * (1 + terdefense(terrain%(i, j + 1)) + fort%(i, j + 1) * .3) - IF dipl%(player%, owner%(i, j + 1)) = 1 AND force < minforce THEN - minforce = force - minarmy = army%(i, j + 1) - B = 4 - END IF - IF ed%(i, j + 1) < ed%(i, j) AND owner%(i, j + 1) = player% THEN c = 4 - IF owner%(i, j + 1) = 0 THEN coast = 1 - END IF - END IF - 'first round to help neighbours - d = a - IF max > excess THEN send = excess ELSE send = INT(max) - excess = excess - send - round = 1 -movements: - IF send < 1 THEN d = 0 - SELECT CASE d - CASE 0 - 'embark if you don't know where to go - IF round = 2 AND send > 0 AND coast = 1 THEN - emb = navy%(player%) - seaarmy%(player%) - seamoved%(player%) - IF emb > send THEN emb = send - army%(i, j) = army%(i, j) - emb - seamoved%(player%) = seamoved%(player%) + emb - END IF - CASE 1 - moved%(i - 1, j) = moved%(i - 1, j) + send - army%(i, j) = army%(i, j) - send - CASE 2 - moved%(i + 1, j) = moved%(i + 1, j) + send - army%(i, j) = army%(i, j) - send - CASE 3 - moved%(i, j - 1) = moved%(i, j - 1) + send - army%(i, j) = army%(i, j) - send - CASE 4 - moved%(i, j + 1) = moved%(i, j + 1) + send - army%(i, j) = army%(i, j) - send - END SELECT - 'second round to attack enemy or concentrate forces - round = round + 1 - send = excess - d = 0 - IF c > 0 THEN d = c - IF B > 0 AND minforce < excess THEN - d = B - send = send + INT(minarmy / (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3)) - END IF - IF send >= 1 AND round = 2 THEN GOTO movements - NEXT j -NEXT i -'- embarking - -landenemy% = 0 -seaenemy% = 0 -enemyvalue = 0 -FOR i = 1 TO players% - IF dipl%(player%, i) = 1 THEN - IF border%(player%, i) > 0 THEN landenemy% = landenemy% + 1 - IF border%(i, 0) > 0 AND border%(player%, 0) > 0 THEN seaenemy% = seaenemy% + 1 - enemyvalue = enemyvalue + value(i) - END IF -NEXT i -IF allyvalue / (enemyvalue + .01) > RND AND landenemy% = 0 AND seaenemy% > 0 AND sea(player%) * active% > RND THEN - FOR i = 1 TO 15 - FOR j = 1 TO 15 - emb = 0 - IF i > 1 THEN - IF owner%(i - 1, j) = 0 THEN emb = 1 - END IF - IF i < 15 THEN - IF owner%(i + 1, j) = 0 THEN emb = 1 - END IF - IF j > 1 THEN - IF owner%(i, j - 1) = 0 THEN emb = 1 - END IF - IF j < 15 THEN - IF owner%(i, j + 1) = 0 THEN emb = 1 - END IF - IF owner%(i, j) = player% AND emb = 1 THEN - emb = navy%(player%) - seaarmy%(player%) - seamoved%(player%) - ELSE - emb = 0 - END IF - IF army%(i, j) - 5 < emb THEN emb = army%(i, j) - 5 - IF emb > 0 THEN - army%(i, j) = army%(i, j) - emb - seamoved%(player%) = seamoved%(player%) + emb - END IF - NEXT j - NEXT i -END IF -'- disembarking - -IF disi > 0 AND disj > 0 AND seaarmy%(player%) > 5 AND seaarmy%(player%) > soldier&(player%) / land%(player%) * 2 THEN - moved%(disi, disj) = seaarmy%(player%) - seaarmy%(player%) = 0 - IF human% > 0 THEN - COLOR ownercolor%(player%) - PRINT name$(player%); - COLOR 7 - PRINT " disembarks on"; disj; disi - GOSUB press - END IF -END IF - -'-- ai money spending -- -IF money&(player%) < -population&(player%) / 3 THEN GOSUB debt -IF money&(player%) > 0 THEN - IF enemyvalue > 0 THEN - spend& = INT(money&(player%) * warmilitary) - ELSE - spend& = INT(money&(player%) * peacemilitary) - END IF - GOSUB military -END IF -IF money&(player%) > 0 THEN - IF aibuilding > RND OR morale(player%) < RND THEN - GOSUB building - ELSE - GOSUB developscience - END IF -END IF - - -nextturn: -'------------------------------------------------ -GOSUB countproperties -GOSUB morale -IF human% > 0 THEN CLS - -'-- science -- -FOR i = 1 TO 6 - aa& = INT(science(i, player%) ^ 3 * 1000) - IF sciencemoney&(i) > aa& THEN sciencemoney&(i) = aa& - IF uni%(player%) / 100 > RND AND population&(player%) > 0 THEN sciencemoney&(i) = sciencemoney&(i) + RND * 1000 * (1 + (uni%(player%) / population&(player%) * 50)) - IF population&(player%) < 100 THEN - plus = 0 - ELSE - plus = sciencemoney&(i) / 10000 / science(i, player%) ^ 3 * (1 + uni%(player%) / population&(player%) * 50) - END IF - IF plus > .3 THEN plus = .3 - science(i, player%) = science(i, player%) + plus - IF control$(player%) = "human" AND plus > 0 THEN - PRINT "Your level of "; sciencename$(i); " has increased by:"; - PRINT USING "##.###"; plus - GOSUB press - END IF -NEXT i - -'-- war -- -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) <> 0 THEN - attack = 0 - defend = 0 - IF owner%(i, j) = player% THEN - army%(i, j) = army%(i, j) + moved%(i, j) - moved%(i, j) = 0 - END IF - rebels% = INT(population&(owner%(i, j)) / (allfood&(owner%(i, j)) + .001) * foodpot(terrain%(i, j)) / 20 * RND * morale(original%(i, j)) ^ 2) - IF owner%(i, j) <> player% AND moved%(i, j) > 0 THEN - attack = attack + moved%(i, j) * science(5, player%) * (.9 + RND / 5) - IF human% > 0 THEN - PRINT - PRINT "Location:"; j; i - COLOR ownercolor%(player%) - PRINT name$(player%); - COLOR 7 - PRINT " starts an attack against "; - COLOR ownercolor%(owner%(i, j)) - PRINT name$(owner%(i, j)); - COLOR 7 - PRINT " with"; moved%(i, j); "soldiers." - END IF - IF dipl%(player%, owner%(i, j)) > 1 THEN - IF diplaction%(player%, owner%(i, j)) = -1 AND dipl%(player%, owner%(i, j)) = 2 THEN - IF human% > 0 THEN PRINT "...shortly after a declaration of war." - ELSE - IF human% > 0 THEN PRINT "...WITHOUT A DECLARATION OF WAR! (Diplomatic trust: "; - penalty = -2 * ((dipl%(player%, owner%(i, j)) - 1) ^ 2) - 5 - trust(player%) = trust(player%) + penalty / 100 + .05 - diplaction%(player%, owner%(i, j)) = -1 - dipl%(player%, owner%(i, j)) = 2 - dipl%(owner%(i, j), player%) = 2 - IF human% > 0 THEN PRINT INT(penalty + .5); "%)" - END IF - END IF - IF human% > 0 THEN - PRINT name$(owner%(i, j)); " defends the territory with"; army%(i, j); "soldiers." - PRINT "Defence bonuses:"; INT(terdefense(terrain%(i, j)) * 100 + .5); "% for terrain,"; fort%(i, j) * 30; "% for forts." - END IF - END IF - GOSUB revolt - IF owner%(i, j) <> original%(i, j) AND RND < (revoltbonus / 5 / players%) AND INT(rebels% * (1 - morale(owner%(i, j)) ^ 2)) > 0 AND attack = 0 THEN - attack = rebels% * science(5, original%(i, j)) * revoltbonus * (1 - morale(owner%(i, j)) ^ 2) * (.9 + RND / 5) - IF human% > 0 THEN - PRINT - PRINT "Location:"; j; i; " "; - COLOR ownercolor%(owner%(i, j)) - PRINT name$(owner%(i, j)); - COLOR 7 - PRINT " (Original owner: "; - COLOR ownercolor%(original%(i, j)) - PRINT name$(original%(i, j)); - COLOR 7 - PRINT ")" - PRINT "A rebellion breakes out in the occupied territory:"; INT(attack + .5); "rebels!" - PRINT name$(owner%(i, j)); " defends with"; army%(i, j); "soldiers." - PRINT "Defence bonuses:"; INT(terdefense(terrain%(i, j)) * 100 + .5); "% for terrain,"; fort%(i, j) * 30; "% for forts." - END IF - END IF - IF attack > 0 THEN - defend = army%(i, j) * science(5, owner%(i, j)) * (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3) * (.9 + RND / 5) + .001 - IF owner%(i, j) = original%(i, j) THEN - defend = defend + rebels% - army%(i, j) = army%(i, j) + rebels% - IF human% > 0 AND rebels% > 0 THEN PRINT "The defender army is reinforced by"; rebels%; "volunteers." - END IF - IF attack > defend THEN - IF moved%(i, j) = 0 THEN - IF allfood&(player%) < 1 THEN allfood&(player%) = foodpot(terrain%(i, j)) * 2 - pop% = INT(population&(player%) * foodpot(terrain%(i, j)) / (allfood&(player%) + .001)) - IF human% > 0 THEN - PRINT name$(owner%(i, j)); " loses the fight against the rebels."; - COLOR ownercolor%(original%(i, j)) - PRINT " The territory is liberated." - COLOR 7 - PRINT "Lost population:"; pop% - GOSUB press - END IF - owner%(i, j) = original%(i, j) - population&(player%) = population&(player%) - pop% - population&(owner%(i, j)) = population&(owner%(i, j)) + pop% - army%(i, j) = INT(attack - defend) - ELSE - IF allfood&(owner%(i, j)) < 1 THEN allfood&(owner%(i, j)) = foodpot(terrain%(i, j)) * 2 - pop% = INT(population&(owner%(i, j)) * foodpot(terrain%(i, j)) / (allfood&(owner%(i, j)) + .001)) - IF human% > 0 THEN - COLOR ownercolor%(player%) - PRINT name$(player%); - COLOR 7 - PRINT " wins the battle, and conqueres the territory." - PRINT "Gained population:"; pop% - GOSUB press - END IF - population&(owner%(i, j)) = population&(owner%(i, j)) - pop% - population&(player%) = population&(player%) + pop% - army%(i, j) = INT(moved%(i, j) * (1 - defend / attack)) - moved%(i, j) = 0 - owner%(i, j) = player% - END IF - ELSE - IF moved%(i, j) = 0 THEN - IF human% > 0 THEN - PRINT "The guarding forces manage to supress the rebellion." - GOSUB press - END IF - army%(i, j) = INT(army%(i, j) * (1 - attack / defend)) - ELSE - IF human% > 0 THEN - PRINT "The attacking forces lose the battle." - GOSUB press - END IF - army%(i, j) = INT(army%(i, j) * (1 - attack / defend)) - moved%(i, j) = 0 - END IF - END IF - IF defend > 1 AND attack > defend / 4 THEN - a = INT(fort%(i, j) / 2 * RND + .5) - fort%(i, j) = fort%(i, j) - a - IF human% > 0 AND a > 0 THEN - PRINT a; "forts are destroyed in the battle." - GOSUB press - END IF - END IF - END IF - END IF - NEXT j -NEXT i -' sea battles -FOR i = 1 TO players% - IF RND > .9 AND dipl%(player%, i) = 1 AND navy%(i) > 0 AND navy%(player%) > 0 THEN - attack = navy%(player%) * science(5, player%) * science(4, player%) * (.9 + RND / 5) - defend = navy%(i) * science(5, i) * science(4, i) * (.9 + RND / 5) - IF attack > defend THEN - navy%(player%) = INT(navy%(player%) * (1 - (defend / attack) ^ 2 / 3)) - navy%(i) = INT(navy%(i) * (1 - 1 / 3)) - IF human% > 0 THEN - COLOR ownercolor%(player%) - PRINT - PRINT name$(player%); - COLOR 7 - PRINT " wins a naval battle against "; name$(i); "." - IF control$(player%) = "human" THEN PRINT "Losses:"; INT(100 * (defend / attack) ^ 2 / 3); "%" - GOSUB press - END IF - ELSE - navy%(i) = INT(navy%(i) * (1 - (attack / defend) ^ 2 / 3)) - navy%(player%) = INT(navy%(player%) * (1 - 1 / 3)) - IF human% > 0 THEN - PRINT - PRINT name$(player%); " loses a third of her fleet in a naval battle against "; - COLOR ownercolor%(i) - PRINT name$(i); "." - COLOR 7 - GOSUB press - END IF - END IF - IF seamoved%(player%) + seaarmy%(player%) > navy%(player%) THEN - seamoved%(player%) = 0 - seaarmy%(player%) = navy%(player%) - END IF - IF seamoved%(i) + seaarmy%(i) > navy%(i) THEN - seamoved%(i) = 0 - seaarmy%(i) = navy%(i) - END IF - END IF - seaarmy%(i) = seaarmy%(i) + seamoved%(i) - seamoved%(i) = 0 - IF seaarmy%(i) > navy%(i) THEN seaarmy%(i) = navy%(i) -NEXT i - -'-- diplomacy -- -FOR i = 1 TO players% - dipl%(i, i) = 5 - IF land%(i) = 0 THEN - FOR j = 1 TO players% - dipl%(i, j) = 2 - dipl%(j, i) = 2 - dipl%(i, i) = 5 - NEXT j - END IF - IF diplaction%(player%, i) = -1 AND dipl%(player%, i) > 1 AND i <> player% THEN - dipl%(player%, i) = dipl%(player%, i) - 1 - dipl%(i, player%) = dipl%(player%, i) - diplaction%(player%, i) = 0 - diplaction%(i, player%) = 0 - trust(player%) = trust(player%) - .05 - IF human% > 0 THEN - PRINT - PRINT name$(player%); " spoils her relationship with "; name$(i); " to: "; - SELECT CASE dipl%(player%, i) - CASE 1 - PRINT "war!" - CASE 2 - PRINT "neutrality." - CASE 3 - PRINT "trade." - CASE 4 - PRINT "friendship." - END SELECT - GOSUB press - END IF - IF trust(player%) < 0 THEN trust(player%) = 0 - IF dipl%(player%, i) = 1 THEN - FOR j = 1 TO players% - IF dipl%(i, j) = 5 AND j <> i AND dipl%(player%, j) > 1 THEN - IF human% > 0 THEN - PRINT name$(j); ", as an ally of "; name$(i); ", declares war to "; name$(player%); "." - GOSUB press - END IF - dipl%(player%, j) = 1 - dipl%(j, player%) = 1 - END IF - IF dipl%(player%, j) = 5 AND j <> player% AND dipl%(i, j) > 1 THEN - IF human% > 0 THEN - PRINT name$(j); ", as an ally of "; name$(player%); ", declares war to "; name$(i); "." - GOSUB press - END IF - dipl%(i, j) = 1 - dipl%(j, i) = 1 - END IF - NEXT j - END IF - END IF - prevent = 0 - FOR j = 1 TO players% - IF dipl%(player%, j) = 1 AND dipl%(i, j) = 5 THEN prevent = 1 - IF dipl%(player%, j) = 5 AND dipl%(i, j) = 1 THEN prevent = 1 - NEXT j - IF diplaction%(player%, i) = 1 AND diplaction%(i, player%) = 1 AND prevent = 0 AND dipl%(player%, i) < 5 THEN - dipl%(player%, i) = dipl%(player%, i) + 1 - dipl%(i, player%) = dipl%(player%, i) - diplaction%(player%, i) = 0 - diplaction%(i, player%) = 0 - IF human% > 0 THEN - PRINT - PRINT name$(player%); " and "; name$(i); " improve their relationship to: "; - SELECT CASE dipl%(player%, i) - CASE 2 - PRINT "neutrality." - CASE 3 - PRINT "trade." - CASE 4 - PRINT "friendship." - CASE 5 - PRINT "alliance!" - END SELECT - GOSUB press - END IF - IF dipl%(player%, i) = 5 THEN - FOR j = 1 TO players% - IF dipl%(i, j) = 1 AND player% <> i AND dipl%(player%, j) > 1 THEN - IF human% > 0 THEN - PRINT name$(player%); ", as an ally of "; name$(i); ", declares war to "; name$(j); "." - GOSUB press - END IF - dipl%(player%, j) = 1 - dipl%(j, player%) = 1 - END IF - IF dipl%(player%, j) = 1 AND i <> player% AND dipl%(i, j) > 1 THEN - IF human% > 0 THEN - PRINT name$(i); ", as an ally of "; name$(player%); ", declares war to "; name$(j); "." - GOSUB press - END IF - dipl%(i, j) = 1 - dipl%(j, i) = 1 - END IF - NEXT j - END IF - END IF - IF dipl%(player%, i) = 1 THEN - FOR j = 1 TO players% - IF dipl%(player%, j) = 5 AND dipl%(i, j) > 1 AND j <> player% THEN - IF human% > 0 THEN - PRINT - PRINT name$(j); ", as an ally of "; name$(player%); ", declares war to "; name$(i); "." - GOSUB press - END IF - dipl%(i, j) = 1 - dipl%(j, i) = 1 - END IF - IF dipl%(i, j) = 5 AND dipl%(player%, j) > 1 AND j <> i THEN - IF human% > 0 THEN - PRINT - PRINT name$(j); ", as an ally of "; name$(i); ", declares war to "; name$(player%); "." - GOSUB press - END IF - dipl%(player%, j) = 1 - dipl%(j, player%) = 1 - END IF - NEXT j - END IF -NEXT i - -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF dipl%(owner%(i, j), original%(i, j)) = 5 AND owner%(i, j) <> original%(i, j) THEN - IF allfood&(owner%(i, j)) < 1 THEN allfood&(owner%(i, j)) = foodpot(terrain%(i, j)) * 2 - pop% = INT(population&(owner%(i, j)) * foodpot(terrain%(i, j)) / allfood&(owner%(i, j))) - population&(owner%(i, j)) = population&(owner%(i, j)) - pop% - population&(original%(i, j)) = population&(original%(i, j)) + pop% - popmoney% = INT(pop% * RND * 3) - money&(owner%(i, j)) = money&(owner%(i, j)) + popmoney% - IF human% > 0 THEN - PRINT - PRINT "Location:"; j; i - PRINT name$(owner%(i, j)); " liberates a territory of her ally, "; - COLOR ownercolor%(original%(i, j)) - PRINT name$(original%(i, j)); "!" - COLOR 7 - PRINT "The grateful population sends "; popmoney%; "golds to "; name$(owner%(i, j)); "." - GOSUB press - END IF - owner%(i, j) = original%(i, j) - END IF - NEXT j -NEXT i - - -'-- other variables -- -IF trust(player%) <= .99 THEN trust(player%) = trust(player%) + .01 -GOSUB countproperties -IF control$(player%) = "human" AND landtrade(player%) > land%(player%) THEN - PRINT - PRINT "Thanks to your diplomatic relations with other empires, you can trade on" - PRINT INT(landtrade(player%) / land%(player%) * 100); "% of the area of your own country." - GOSUB press -END IF -FOR i = 1 TO players% - IF dipl%(player%, i) > 2 AND player% <> i THEN - FOR j = 1 TO 6 - IF (RND < ((dipl%(player%, i) - 2) ^ 2) * science(3, player%) / 100) AND science(j, player%) < science(j, i) THEN - a = (science(j, i) - science(j, player%)) / 10 - science(j, player%) = science(j, player%) + a - IF control$(player%) = "human" THEN - PRINT - PRINT "By copying an invention from "; name$(i); " your "; sciencename$(j); " develops by:"; - PRINT USING "##.###"; a - GOSUB press - END IF - END IF - NEXT j - END IF -NEXT i -GOSUB morale -GOSUB professions -i = player% -GOSUB finances -money&(player%) = money&(player%) + total& -IF control$(player%) = "human" AND human% > 0 THEN - PRINT - PRINT "Change in your treasury:"; total&; "gold" - PRINT - GOSUB press -END IF - -'-- reproduction -- -allfood&(player%) = INT(allfood&(player%) * science(1, player%) + border%(player%, 0) * (1 + sea(player%)) * science(4, player%)) -a = allfood&(player%) * 50 / (population&(player%) + .001) -IF a > 2 THEN a = 2 -population&(player%) = INT(population&(player%) * (.9 + (a / 10))) -IF control$(player%) = "human" THEN - IF a > 1 THEN - PRINT "Your empire produced enough food for the population to grow by"; INT((a - 1) * 10); "%." - ELSE - PRINT "There is not enough food in your empire."; INT((1 - a) * 10); "% fell victim of starvation!" - END IF -END IF -IF morale(player%) < 1 THEN - population&(player%) = INT(population&(player%) * (1 - (1 - morale(player%)) ^ 2)) - IF control$(player%) = "human" THEN - PRINT INT(((1 - morale(player%)) ^ 2) * 100); "% of the population leaves your land because of discontent." - END IF -END IF -epidemic = 0 -IF land%(player%) > 0 THEN epidemic = (RND / 10) * (population&(player%) / 250 / land%(player%)) / science(6, player%) -population&(player%) = INT(population&(player%) * (1 - epidemic)) -IF control$(player%) = "human" THEN - PRINT "Epidemics have"; INT(epidemic * 100); "% death toll in the country." - GOSUB press -END IF -IF population&(player%) < 0 THEN population&(player%) = 0 -IF population&(player%) = 0 THEN - peasant&(player%) = 0 - fisher&(player%) = 0 - worker&(player%) = 0 - merchant&(player%) = 0 - soldier&(player%) = 0 - unemployed&(player%) = 0 - money&(player%) = 0 -END IF - -'-- human player eliminated -- -IF control$(player%) = "human" THEN - IF land%(player%) = 0 THEN - CLS - PRINT "The last remains of your empire are conquered by the enemy," - PRINT "so the struggle for hegemony continues without you." - control$(player%) = "default.ai" - GOSUB death - GOSUB press - ELSEIF population&(player%) <= 0 THEN - CLS - PRINT "You have run out of population." - PRINT "Hmmm, a rather funny way of political suicide..." - control$(player%) = "default.ai" - population&(player%) = 0 - GOSUB death - GOSUB press - ELSEIF morale(player%) < .33 THEN - CLS - PRINT "The discontent masses don't endure your tyranny any more." - PRINT "A great revolution breaks out and sweeps your evil regime away." - PRINT "The new leader begins with a neutral relationship to all empires." - control$(player%) = "default.ai" - GOSUB neutral - GOSUB death - GOSUB press - END IF -ELSE - IF morale(player%) < .33 THEN - COLOR ownercolor%(player%) - IF human% > 0 THEN - PRINT - PRINT "There is a revolution in "; name$(player%); "!" - COLOR 7 - PRINT "The new leader begins with a neutral relationship to all empires." - GOSUB beethoven - GOSUB press - END IF - GOSUB neutral - END IF -END IF -human% = 0 -FOR i = 1 TO players% - IF control$(i) = "human" THEN human% = human% + 1 -NEXT i - -FOR i = 1 TO players% - IF land%(i) = 0 THEN - navy%(i) = 0 - money&(i) = 0 - population&(i) = 0 - peasant&(i) = 0 - fisher&(i) = 0 - worker&(i) = 0 - merchant&(i) = 0 - soldier&(i) = 0 - seaarmy%(i) = 0 - unemployed&(i) = 0 - ELSE - IF population&(i) <= 0 THEN population&(i) = allfood&(i) * 50 - IF population&(i) <= 0 THEN population&(i) = 1 - IF soldier&(i) > population&(i) THEN soldier&(i) = population&(i) - END IF -NEXT i - -FOR i = 1 TO 6 - sciencemoney&(i) = 0 -NEXT i -message$ = "Welcome, Majesty." -IF player% < players% THEN - player% = player% + 1 -ELSE - player% = 1 - turn% = turn% + 1 - revoltnation = INT(RND * players%) + 1 - revoltlevel = RND * RND * 10 -END IF -FOR i = 1 TO players% - diplaction%(player%, i) = 0 -NEXT i -GOSUB spy -IF human% > 0 THEN CLS -GOSUB enemydistance -GOTO choosecontrol - - -'-----=====GOSUBS=====----- - - -chooseplayer: -FOR i = 1 TO players% - c$(i) = control$(i) -NEXT i -cprefresh: -LOCATE 12, 1 -PRINT "Choose control for the empires." -PRINT : PRINT " Empire / Control Best results Turns Date" -LINE (0, 222)-(640, 222), 7 -OPEN "bestturn.txt" FOR INPUT AS #1 -FOR i = 1 TO players% - PRINT i; "- "; name$(i); SPC(8 - LEN(name$(i))); - IF c$(i) = "human" THEN COLOR 15 - PRINT " / "; c$(i); " " - COLOR 7 - INPUT #1, bestname$(i) - INPUT #1, bestturn(i) - INPUT #1, bestcontrol$(i) - INPUT #1, bestdate$(i) - LOCATE (14 + i), 37 - PRINT bestcontrol$(i) - LOCATE (14 + i), 55 - PRINT bestturn(i) - LOCATE (14 + i), 67 - PRINT bestdate$(i) -NEXT i -CLOSE -PRINT : PRINT " 0 - Let the game begin!" -PRINT : PRINT "Press a number." -k$ = "" -WHILE k$ = "" - k$ = INKEY$ -WEND -k = VAL(k$) -IF k <= players% THEN - IF c$(k) = "human" THEN - c$(k) = control$(k) - IF c$(k) = "human" THEN c$(k) = "default.ai" - ELSE - c$(k) = "human" - END IF -END IF -IF k$ <> "0" THEN GOTO cprefresh -human% = 0 -FOR i = 1 TO players% - IF c$(i) = "human" THEN human% = human% + 1 - control$(i) = c$(i) -NEXT i -CLS -RETURN - - -title: -COLOR 4 -PRINT "HEGEMONY 3.0.e Copyright: Akos Ivanyi (21.07.2003)" -COLOR 15 -PRINT "============== ivanyiakos@hotmail.com" -COLOR 2 -PRINT "The Game of the Middle Ages www.angelfire.com/ego/akos" -COLOR 7 -LINE (0, 50)-(640, 50), 7 -FOR i = 1 TO 15 - FOR j = 1 TO 15 - LINE (280 + j * 3, i * 3)-(281 + j * 3, 1 + i * 3), ownercolor%(owner%(i, j)), BF - NEXT j -NEXT i -RETURN - - -countproperties: -allsea% = 0 -allship% = 0 -FOR i = 0 TO players% - land%(i) = 0 - fo%(i) = 0 - chu%(i) = 0 - uni%(i) = 0 - mil%(i) = 0 - allfood&(i) = 0 - soldier&(i) = 0 - sea(i) = 0 - FOR j = 0 TO players% - border%(i, j) = 0 - NEXT j - allship% = allship% + navy%(i) -NEXT i - -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = 0 THEN allsea% = allsea% + 1 - land%(owner%(i, j)) = land%(owner%(i, j)) + 1 - fo%(owner%(i, j)) = fo%(owner%(i, j)) + fort%(i, j) - chu%(owner%(i, j)) = chu%(owner%(i, j)) + church%(i, j) - uni%(owner%(i, j)) = uni%(owner%(i, j)) + university%(i, j) - mil%(owner%(i, j)) = mil%(owner%(i, j)) + mill%(i, j) - allfood&(owner%(i, j)) = allfood&(owner%(i, j)) + foodpot(terrain%(i, j)) - soldier&(owner%(i, j)) = soldier&(owner%(i, j)) + army%(i, j) - soldier&(player%) = soldier&(player%) + moved%(i, j) - FOR k = 0 TO players% - a = 0 - IF i > 1 THEN - IF owner%(i - 1, j) = k THEN a = a + 1 - END IF - IF i < 15 THEN - IF owner%(i + 1, j) = k THEN a = a + 1 - END IF - IF j > 1 THEN - IF owner%(i, j - 1) = k THEN a = a + 1 - END IF - IF j < 15 THEN - IF owner%(i, j + 1) = k THEN a = a + 1 - END IF - border%(owner%(i, j), k) = border%(owner%(i, j), k) + a - NEXT k - NEXT j -NEXT i -FOR i = 1 TO players% - IF allsea% = 0 OR allship% = 0 THEN - sea(i) = 0 - ELSE - sea(i) = navy%(i) / allship% - END IF - soldier&(i) = soldier&(i) + seaarmy%(i) + seamoved%(i) - IF land%(i) = 0 THEN navy%(i) = 0 -NEXT i - -FOR i = 1 TO players% - landtrade(i) = 0 - FOR j = 1 TO players% - IF dipl%(i, j) > 2 THEN - IF border%(i, j) > 0 THEN - landtrade(i) = landtrade(i) + land%(j) - ELSE - landtrade(i) = landtrade(i) + land%(j) * sea(i) - END IF - END IF - NEXT j -NEXT i -RETURN - - -professions: -FOR i = 1 TO players% - IF land%(i) > 0 THEN - merchant&(i) = INT(population&(i) / 50 * science(3, i) * landtrade(i) / land%(i)) - IF merchant&(i) > population&(i) / 5 THEN merchant&(i) = INT(population&(i) / 5) - worker&(i) = INT(population&(i) / 10 * science(2, i)) - IF worker&(i) > population&(i) * .5 THEN worker&(i) = INT(population&(i) * .5) - peasant&(i) = INT((population&(i) - soldier&(i) - merchant&(i) - worker&(i)) / (allfood&(i) * science(1, i) + border%(i, 0) * (1 + sea(i)) * science(4, i) + .0001) * allfood&(i) * science(1, i)) - IF peasant&(i) > allfood&(i) * science(1, i) * 80 THEN peasant&(i) = INT(allfood&(i) * science(1, i) * 80) - fisher&(i) = INT(population&(i) - soldier&(i) - merchant&(i) - worker&(i) - peasant&(i)) - IF fisher&(i) > border%(i, 0) * (1 + sea(i)) * science(4, i) * 25 THEN fisher&(i) = INT(border%(i, 0) * (1 + sea(i)) * science(4, i) * 25) - unemployed&(i) = population&(i) - soldier&(i) - merchant&(i) - worker&(i) - peasant&(i) - fisher&(i) - IF unemployed&(i) < 0 THEN unemployed&(i) = 0 - END IF -NEXT i -RETURN - - -morale: -FOR i = 1 TO players% - morale(i) = 0 -NEXT i -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) <> 0 THEN - pop% = INT(population&(owner%(i, j)) * foodpot(terrain%(i, j)) / (allfood&(owner%(i, j)) + .001)) - bonus = church%(i, j) * 20 / (pop% + .001) - IF bonus > 1 THEN bonus = 1 - localmorale(i, j) = (1 - tax(owner%(i, j)) * 2) * (1 - unemployed&(owner%(i, j)) / (population&(owner%(i, j)) + .001)) * (1 + bonus) * (.5 + trust(owner%(i, j)) / 2) - IF money&(owner%(i, j)) < 0 THEN localmorale(i, j) = localmorale(i, j) + money&(owner%(i, j)) / 10 / (population&(owner%(i, j)) + .001) - IF localmorale(i, j) > 1 THEN localmorale(i, j) = 1 - IF original%(i, j) <> owner%(i, j) THEN localmorale(i, j) = localmorale(i, j) - .1 - IF localmorale(i, j) < 0 THEN localmorale(i, j) = 0 - morale(owner%(i, j)) = morale(owner%(i, j)) + localmorale(i, j) - END IF - NEXT j -NEXT i -FOR i = 1 TO players% - IF land%(i) = 0 THEN morale(i) = 1 ELSE morale(i) = morale(i) / land%(i) -NEXT i -RETURN - - -science: -sciencerefresh: -CLS -GOSUB title -LOCATE 7, 1 -PRINT "Agricult" -PRINT "Industry" -PRINT "Trade" -PRINT "Sailing" -PRINT "Military" -PRINT "Medicine" -FOR i = 1 TO players% - COLOR ownercolor%(i) - a = 1 + i * 8 - LOCATE 5, a - PRINT name$(i) - IF spy%(i) > 0 THEN - FOR j = 1 TO 6 - LOCATE (6 + j), a - PRINT INT(science(j, i) * 1000) / 1000; - NEXT j - END IF -NEXT i -LOCATE 14, 1 -COLOR 14 -PRINT "Your money:"; money&(player%); " " -COLOR 7 -PRINT -FOR i = 1 TO 6 - aa& = INT(science(i, player%) ^ 3 * 1000) - IF sciencemoney&(i) < aa& THEN COLOR 7 ELSE COLOR 4 - PRINT "Spent on "; sciencename$(i); ":"; sciencemoney&(i); " "; - LOCATE 15 + i, 30 - PRINT i; "= spend 100; "; CHR$(96 + i); " = spend 1000 (max:"; aa&; ") " -NEXT i -LOCATE 28, 1 -COLOR 7 -PRINT " Agriculture Industry Trade Sailing Military Medicine" -max = 0 -FOR i = 1 TO players% - FOR j = 1 TO 6 - IF science(j, i) > max THEN max = science(j, i) - NEXT j -NEXT i -FOR i = 1 TO players% - IF spy%(i) > 0 THEN - FOR j = 1 TO 6 - LINE (-50 + j * 100 + i * 5, 430)-(-50 + j * 100 + i * 5, 430 - science(j, i) / max * 90), ownercolor%(i) - NEXT j - END IF -NEXT i -k$ = "" -WHILE k$ = "" - k$ = INKEY$ -WEND -SELECT CASE k$ - CASE "1" TO "6" - sciencemoney&(VAL(k$)) = sciencemoney&(VAL(k$)) + 100 - money&(player%) = money&(player%) - 100 - CASE "a" TO "f" - sciencemoney&(ASC(k$) - 96) = sciencemoney&(ASC(k$) - 96) + 1000 - money&(player%) = money&(player%) - 1000 - CASE ELSE - CLS - RETURN -END SELECT -GOTO sciencerefresh - - -treasury: -treasuryrefresh: -CLS -GOSUB countproperties -GOSUB professions -GOSUB morale -GOSUB title -LOCATE 5, 1 -PRINT "FLOW OF" -PRINT "COINS:" -PRINT -PRINT "Peasants" -PRINT "Fishers" -PRINT "Workers" -PRINT "Merchant" -PRINT "Mills..." -PRINT -PRINT "Interest" -PRINT -PRINT "Forts" -PRINT "Churches" -PRINT "Univers." -PRINT "Navy" -PRINT "Army" -PRINT -PRINT "Total" -PRINT -PRINT -PRINT "TREASURY" -PRINT -PRINT -COLOR ownercolor%(player%) -PRINT "Tax rate:"; INT(tax(player%) * 100 + .5); "% Morale:"; INT(morale(player%) * 100 + .5); "% "; -COLOR 7 -PRINT "t = reduce tax T = raise tax" -FOR i = 1 TO players% - GOSUB finances - COLOR ownercolor%(i) - a = 1 + i * 8 - LOCATE 5, a - PRINT name$(i) - IF spy%(i) > 0 THEN - LOCATE 8, a - PRINT peas& - LOCATE 9, a - PRINT fish& - LOCATE 10, a - PRINT work& - LOCATE 11, a - PRINT merc& - LOCATE 12, a - PRINT mmil& - LOCATE 14, a - PRINT interest& - LOCATE 16, a - PRINT mfor& - LOCATE 17, a - PRINT mchu& - LOCATE 18, a - PRINT muni& - LOCATE 19, a - PRINT mnav& - LOCATE 20, a - PRINT marm& - LOCATE 22, a - PRINT total& - LOCATE 25, a - PRINT money&(i) - END IF -NEXT i -COLOR 7 -k$ = "" -WHILE k$ = "" - k$ = INKEY$ -WEND -SELECT CASE k$ - CASE "t" - tax(player%) = tax(player%) - .01 - IF tax(player%) < 0 THEN tax(player%) = 0 - CASE "T" - tax(player%) = tax(player%) + .01 - IF tax(player%) > 1 THEN tax(player%) = 1 - CASE ELSE - CLS - RETURN -END SELECT -GOTO treasuryrefresh - - -finances: -peas& = INT(peasant&(i) * tax(i) * morale(i) * science(1, i) * 4) -fish& = INT(fisher&(i) * tax(i) * morale(i) * science(4, i) * 4) -work& = INT(worker&(i) * tax(i) * morale(i) * science(2, i) * 8) -merc& = INT(merchant&(i) * tax(i) * morale(i) * science(3, i) * 16) -mmil& = -INT(mil%(i) * science(2, i) * mm) -IF money&(i) > 0 THEN - interest& = INT(money&(i) * .04) -ELSE - interest& = INT(money&(i) * .12) -END IF -mfor& = -INT(fo%(i) * mf) -mchu& = -INT(chu%(i) * mc) -muni& = -INT(uni%(i) * mu) -mnav& = -INT(navy%(i) * mn) -marm& = -INT(soldier&(i) * ma) -total& = peas& + fish& + work& + merc& + mmil& + interest& + mfor& + mchu& + muni& + mnav& + marm& -RETURN - - -diplomacy: -change% = 1 -diplomacyrefresh: -CLS -GOSUB title -GOSUB countproperties -GOSUB spycost -LOCATE 5, 1 -PRINT "Diplomatic relations" -PRINT "--------------------" -LOCATE 10, 1 -FOR i = 1 TO players% - COLOR ownercolor%(i) - PRINT name$(i) -NEXT i -COLOR ownercolor%(player%) -PRINT -PRINT "Your" -PRINT "attitude" -PRINT -PRINT "Your" -PRINT "Info" -FOR i = 1 TO players% - COLOR ownercolor%(i) - a = 1 + i * 8 - LOCATE 7, a - PRINT "("; i; ")" - LOCATE 8, a - PRINT name$(i) - FOR j = 1 TO players% - LOCATE (9 + j), a - SELECT CASE dipl%(i, j) - CASE 1 - PRINT "war" - CASE 2 - PRINT "neutr." - CASE 3 - PRINT "trade" - CASE 4 - PRINT "friend" - CASE 5 - PRINT "ally" - END SELECT - LOCATE 21, (a + 2) - IF diplaction%(player%, i) = -1 THEN PRINT "-"; - IF diplaction%(player%, i) = 0 THEN PRINT "0"; - IF diplaction%(player%, i) = 1 THEN PRINT "+"; - LOCATE 24, a - IF spy%(i) = 0 THEN PRINT "none" - IF spy%(i) = 1 THEN PRINT "general" - IF spy%(i) = 2 THEN PRINT "full" - NEXT j -NEXT i -COLOR 7 -LOCATE 26, 1 -PRINT "1-9 = choose target country (currently: "; -COLOR ownercolor%(change%) -PRINT name$(change%); -COLOR 7 -PRINT ")" -PRINT "Change attitude: + = positive, - = negative, 0 = neutral" -PRINT "Spying: g = general info "; -SELECT CASE spy%(change%) - CASE 0 - PRINT "("; INT(spycost%(change%) / 2); " gold)"; - CASE ELSE - PRINT "(you already have)"; -END SELECT -PRINT " f = full info "; -SELECT CASE spy%(change%) - CASE 0 - PRINT "("; spycost%(change%); " gold)" - CASE 1 - PRINT "("; INT(spycost%(change%) / 2); " gold)" - CASE ELSE - PRINT "(you already have)" -END SELECT - -k$ = "" -WHILE k$ = "" -k$ = INKEY$ -WEND -SELECT CASE k$ - CASE "1" TO "9" - change% = VAL(k$) - CASE "+" - diplaction%(player%, change%) = 1 - CASE "0" - diplaction%(player%, change%) = 0 - CASE "-" - diplaction%(player%, change%) = -1 - CASE "g" - IF spy%(change%) = 0 THEN - money&(player%) = money&(player%) - spycost%(change%) / 2 - spy%(change%) = 1 - END IF - CASE "f" - IF spy%(change%) = 0 THEN - money&(player%) = money&(player%) - spycost%(change%) - ELSEIF spy%(change%) = 1 THEN - money&(player%) = money&(player%) - spycost%(change%) / 2 - END IF - spy%(change%) = 2 - CASE ELSE - CLS - RETURN -END SELECT -GOTO diplomacyrefresh - - -spycost: -FOR i = 1 TO players% - spycost%(i) = INT((5 - dipl%(i, player%)) ^ 2 * 10 * land%(i)) -NEXT i -RETURN - - -spy: -FOR i = 1 TO players% - SELECT CASE dipl%(player%, i) - CASE 1 TO 2 - spy%(i) = 0 - CASE 3 TO 4 - spy%(i) = 1 - CASE 5 - spy%(i) = 2 - END SELECT -NEXT i -RETURN - - -see: -see% = 0 -IF spy%(owner%(y, x)) = 2 THEN see% = 1 -IF y > 1 THEN - IF owner%(y - 1, x) = player% THEN see% = 1 -END IF -IF y < 15 THEN - IF owner%(y + 1, x) = player% THEN see% = 1 -END IF -IF x > 1 THEN - IF owner%(y, x - 1) = player% THEN see% = 1 -END IF -IF x < 15 THEN - IF owner%(y, x + 1) = player% THEN see% = 1 -END IF -IF owner%(y, x) = 0 THEN see% = 0 -RETURN - - -press: -WHILE INKEY$ = "": WEND -RETURN - - -savegame: -save$ = "save" + RIGHT$(STR$(save%), LEN(STR$(save%)) - 1) + ".scn" -OPEN save$ FOR OUTPUT AS #1 - PRINT #1, players% - PRINT #1, player% - PRINT #1, turn% - FOR i = 1 TO 6 - PRINT #1, sciencemoney&(i) - NEXT i - FOR i = 1 TO players% - PRINT #1, name$(i) - PRINT #1, control$(i) - PRINT #1, population&(i) - PRINT #1, money&(i) - PRINT #1, navy%(i) - PRINT #1, seaarmy%(i) - PRINT #1, seamoved%(i) - PRINT #1, tax(i) - PRINT #1, trust(i) - FOR j = 1 TO 6 - PRINT #1, science(j, i) - NEXT j - FOR j = 1 TO players% - PRINT #1, dipl%(i, j) - NEXT j - FOR j = 1 TO players% - PRINT #1, diplaction%(i, j) - NEXT j - NEXT i - FOR k = 1 TO 9 - FOR i = 1 TO 15 - FOR j = 1 TO 15 - SELECT CASE k - CASE 1 - PRINT #1, owner%(i, j); - CASE 2 - PRINT #1, original%(i, j); - CASE 3 - PRINT #1, terrain%(i, j); - CASE 4 - PRINT #1, fort%(i, j); - CASE 5 - PRINT #1, church%(i, j); - CASE 6 - PRINT #1, university%(i, j); - CASE 7 - PRINT #1, mill%(i, j); - CASE 8 - PRINT #1, army%(i, j); - CASE 9 - PRINT #1, moved%(i, j); - END SELECT - NEXT j - PRINT #1, - NEXT i - NEXT k -CLOSE -message$ = "Saved as: " + save$ -save% = save% + 1 -RETURN - - -help: -helprefresh: -CLS -GOSUB title -LOCATE 6, 1 -PRINT "HELP" -PRINT "----" -PRINT "1 - About the game" -PRINT "2 - How to play?" -PRINT "3 - Money matters (income, costs, investments)" -PRINT "4 - Professions" -PRINT "5 - Science and development" -PRINT "6 - Diplomacy" -PRINT "7 - Military and war" -PRINT "8 - Other things to know..." -PRINT "9 - Back to the game" -k = 0 -WHILE k = 0 -k = VAL(INKEY$) -WEND -CLS -SELECT CASE k - CASE 1 - help$ = "about.hlp" - CASE 2 - help$ = "how.hlp" - CASE 3 - help$ = "money.hlp" - CASE 4 - help$ = "jobs.hlp" - CASE 5 - help$ = "science.hlp" - CASE 6 - help$ = "dipl.hlp" - CASE 7 - help$ = "military.hlp" - CASE 8 - help$ = "other.hlp" - CASE 9 - CLS - RETURN -END SELECT - -IF k <> 9 THEN - linesmax = 0 - OPEN help$ FOR INPUT AS #1 - DO UNTIL EOF(1) - LINE INPUT #1, memo$ - linesmax = linesmax + 1 - LOOP - CLOSE - memo$ = "" - upper = 1: lower = 25 - -hscroll: - lines = 0 - CLS - LOCATE 1, 1 - OPEN help$ FOR INPUT AS #1 - DO UNTIL EOF(1) - lines = lines + 1 - LINE INPUT #1, text$ - IF lines >= upper AND lines <= lower THEN PRINT text$ - IF lines > lower THEN EXIT DO - LOOP - CLOSE - LOCATE 28, 1 - PRINT "Possible keys: Page up, Page down, Arrow up, Arrow down, Escape..." - LINE (0, 420)-(640, 420), ownercolor%(player%) - -waitforkey: - nothing = 0 - k$ = INKEY$ - IF k$ = (CHR$(0) + "H") THEN - IF upper > 1 THEN - upper = upper - 1 - lower = lower - 1 - GOTO hscroll - END IF - ELSEIF k$ = (CHR$(0) + "P") THEN - IF lower < linesmax THEN - upper = upper + 1 - lower = lower + 1 - GOTO hscroll - END IF - ELSEIF k$ = (CHR$(0) + CHR$(73)) THEN - upper = upper - 24 - lower = lower - 24 - IF upper < 1 THEN upper = 1 - IF lower < 25 THEN lower = 25 - ELSEIF k$ = (CHR$(0) + CHR$(81)) THEN - upper = upper + 24 - lower = lower + 24 - IF upper > linesmax - 24 THEN upper = linesmax - 24 - IF lower > linesmax THEN lower = linesmax - ELSE - nothing = 1 - END IF - IF k$ = CHR$(27) THEN - GOTO helprefresh - ELSEIF nothing = 1 THEN - GOTO waitforkey - ELSE - GOTO hscroll - END IF -END IF -GOTO helprefresh - - -info: -CLS -GOSUB countproperties -GOSUB professions -GOSUB morale -GOSUB title -LOCATE 7, 1 -PRINT "Land" -PRINT "Sea" -PRINT "Popul." -PRINT "Money" -PRINT : PRINT "Tax" -PRINT "Morale" -PRINT "Trust" -PRINT : PRINT "Forts" -PRINT "Church" -PRINT "Univer." -PRINT "Mills" -PRINT "Ships" -PRINT : PRINT "Peasant" -PRINT "Fisher" -PRINT "Worker" -PRINT "Merchant" -PRINT "Soldier" -COLOR 8 -PRINT "Embarked" -COLOR 7 -PRINT "Unempl." -FOR i = 1 TO players% - COLOR ownercolor%(i) - a = 1 + i * 8 - LOCATE 5, a - PRINT name$(i) - LOCATE 7, a - PRINT land%(i) - IF spy%(i) > 0 THEN - LOCATE 8, a - PRINT INT(sea(i) * 100 + .5); "%" - LOCATE 9, a - PRINT population&(i) - LOCATE 10, a - PRINT money&(i) - LOCATE 12, a - PRINT INT(tax(i) * 100 + .5); "%" - LOCATE 13, a - PRINT INT(morale(i) * 100 + .5); "%" - END IF - LOCATE 14, a - PRINT INT(trust(i) * 100 + .5); "%" - IF spy%(i) > 0 THEN - LOCATE 16, a - PRINT fo%(i) - LOCATE 17, a - PRINT chu%(i) - LOCATE 18, a - PRINT uni%(i) - LOCATE 19, a - PRINT mil%(i) - LOCATE 20, a - PRINT navy%(i) - LOCATE 22, a - PRINT peasant&(i) - LOCATE 23, a - PRINT fisher&(i) - LOCATE 24, a - PRINT worker&(i) - LOCATE 25, a - PRINT merchant&(i) - LOCATE 26, a - PRINT soldier&(i) - LOCATE 27, a - PRINT seaarmy%(i) + seamoved%(i) - LOCATE 28, a - PRINT unemployed&(i) - END IF -NEXT i -GOSUB press -CLS -RETURN - - -bye: -CLS -LOCATE 14, 24 -PRINT "Would you like to play a new game?" -k$ = INKEY$ -WHILE k$ <> "y" AND k$ <> "n" - k$ = INKEY$ -WEND -IF k$ = "y" THEN GOTO opening: -CLS -COLOR (RND * 14 + 1) -LOCATE RND * 28 + 1, RND * 74 + 1 -PRINT "BYE!" -GOSUB dragnet -SLEEP 1 -SYSTEM -END - - -aicombat: -IF active% = 1 THEN GOTO victory -IF land%(player%) = 0 THEN - WHILE land%(player%) = 0 - IF player% < players% THEN - player% = player% + 1 - ELSE - player% = 1 - turn% = turn% + 1 - END IF - WEND -END IF -LINE (30, 400)-(110, 100), 0, BF -LINE (510, 400)-(590, 100), 0, BF -LOCATE 1, 1 -GOSUB title -GOSUB drawmap -LOCATE 5, 35 -PRINT "AI COMBAT" -LOCATE 6, 25 -PRINT "Turn:"; turn% -LOCATE 6, 45 -COLOR ownercolor%(player%) -PRINT name$(player%); " " -COLOR 7 -maxprop& = 0 -maxsc = 0 -FOR i = 1 TO players% - property&(i) = fo%(i) * BF + chu%(i) * bc + uni%(i) * bu + mil%(i) * bm + navy%(i) * bn + soldier&(i) * ba + money&(i) - level(i) = 0 - FOR j = 1 TO 6 - level(i) = level(i) + science(j, i) - NEXT j - level(i) = level(i) / 6 - IF property&(i) > maxprop& THEN maxprop& = property&(i) - IF level(i) > maxsc THEN maxsc = level(i) -NEXT i -FOR i = 1 TO players% - LINE (20 + i * 10, 400)-(20 + i * 10, 400 - property&(i) / maxprop& * 300), ownercolor%(i) - LINE (500 + i * 10, 400)-(500 + i * 10, 400 - level(i) / maxsc * 300), ownercolor%(i) -NEXT i -LOCATE 27, 1 -PRINT "Value of properties Average science level" -LOCATE 27, 35 -PRINT save$ -LOCATE 6, 1 -PRINT " max ="; maxprop&; "gold " -LOCATE 6, 63 -PRINT " max ="; INT(maxsc * 1000) / 1000; " " -LOCATE 28, 21 -PRINT "n = next player N = next turn" -LOCATE 29, 21 -PRINT "s = save q = quit"; -IF turn% < nextturn THEN GOTO ai -k$ = INKEY$ -WHILE k$ <> "n" AND k$ <> "N" AND k$ <> "s" AND k$ <> "q" - k$ = INKEY$ -WEND -nextturn = 0 -IF k$ = "N" THEN nextturn = turn% + 1 -IF k$ = "n" OR k$ = "N" THEN GOTO ai -IF k$ = "s" THEN GOSUB savegame -IF k$ = "q" THEN GOTO bye -GOTO aicombat - - -victory: -FOR i = 1 TO players% - IF land%(i) > 0 THEN winner% = i -NEXT i -CLS -GOSUB title -GOSUB drawmap -LOCATE 14, 4 -PRINT "HEGEMONY!!!" -PRINT " -----------" -LOCATE 14, 61 -PRINT "HEGEMONY!!!" -LOCATE 15, 61 -PRINT "-----------" -LOCATE 5, 1 -COLOR 15 -PRINT " Eternal glory to the victorious leader of "; name$(winner%); ", the most" -PRINT " magnificent emperor in history, who brought us unity, peace and wealth!" -LOCATE 26, 1 -COLOR 8 -PRINT " (The vicious oppressor shall burn in the flames of hell forever, for all" -PRINT " the sorrow and misery he caused us!)" -GOSUB organ -GOSUB press -OPEN "bestturn.txt" FOR INPUT AS #1 - FOR i = 1 TO players% - INPUT #1, bestname$(i) - INPUT #1, bestturn(i) - INPUT #1, bestcontrol$(i) - INPUT #1, bestdate$(i) - NEXT i -CLOSE -IF bestturn(winner%) >= turn% THEN - bestname$(winner%) = name$(winner%) - bestturn(winner%) = turn% - bestcontrol$(winner%) = control$(winner%) - bestdate$(winner%) = DATE$ - OPEN "bestturn.txt" FOR OUTPUT AS #1 - FOR i = 1 TO players% - WRITE #1, bestname$(i), bestturn(i), bestcontrol$(i), bestdate$(i) - NEXT i - CLOSE -END IF -GOTO bye - - -debt: -FOR i = 1 TO players% - diplaction%(player%, i) = 1 -NEXT i -money&(player%) = money&(player%) + sn * navy%(player%) -navy%(player%) = 0 -IF money&(player%) < 0 THEN - FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% AND threat(i, j) = (-1) * army%(i, j) * (1 + terdefense(terrain%(i, j)) + fort%(i, j) * .3) THEN - money&(player%) = money&(player%) + sf * fort%(i, j) - fort%(i, j) = 0 - END IF - IF owner%(i, j) = player% AND army%(i, j) > 1 THEN - a = INT(army%(i, j) / 10) - IF enemyvalue = 0 THEN a = a * 3 - IF a = 0 AND army%(i, j) > 1 THEN a = 1 - army%(i, j) = army%(i, j) - a - money&(player%) = money&(player%) + sa * a - END IF - IF owner%(i, j) = player% AND university%(i, j) > 0 THEN - IF original%(i, j) <> player% OR RND < .5 THEN - university%(i, j) = university%(i, j) - 1 - money&(player%) = money&(player%) + su - END IF - END IF - NEXT j - NEXT i -END IF -RETURN - - -military: -i = player% -GOSUB finances -IF total& < 0 THEN RETURN -IF RND > landorsea AND sea(player%) < .6 AND (navy%(player%) < (10 * (1 - landorsea) * soldier&(player%)) OR sea(player%) < (1 / active%)) AND landenemy% = 0 THEN - 'sea forces - 'effects of a 10000 gold invention: a=navy, b=sailing, c=military - a = 10000 / (bn + planning * mn) * science(4, player%) * science(5, player%) - B = (1 + uni%(player%) / (population&(player%) + .001) * 50) / (science(4, player%) ^ 3) * navy%(player%) * science(5, player%) - c = (1 + uni%(player%) / (population&(player%) + .001) * 50) / (science(5, player%) ^ 3) * navy%(player%) * science(4, player%) - IF a > B AND a > c THEN - d = INT(spend& / bn) - navy%(player%) = navy%(player%) + d - money&(player%) = money&(player%) - d * bn - ELSEIF B > a AND B > c THEN - d = INT(science(4, player%) ^ 3 * 1000) - IF spend& < d THEN d = spend& - sciencemoney&(4) = d - money&(player%) = money&(player%) - d - ELSE - d = INT(science(5, player%) ^ 3 * 1000) - IF spend& < d THEN d = spend& - sciencemoney&(5) = d - money&(player%) = money&(player%) - d - END IF -ELSE - 'land forces - 'effects of a 10000 gold invention: a=forts, b=soldiers, c=military - a = 10000 / (BF + planning * mf) * .3 * soldier&(player%) * science(5, player%) - B = 10000 / (ba + planning * ma) * (1 + fo%(player%) * .3) * science(5, player%) - c = (1 + uni%(player%) / (population&(player%) + .001) * 50) / (science(5, player%) ^ 3) * (1 + fo%(player%) * .3) * soldier&(player%) - IF c > a AND c > B THEN - 'develop military - d = INT(science(5, player%) ^ 3 * 1000) - IF spend& < d THEN d = spend& - sciencemoney&(5) = d - money&(player%) = money&(player%) - d - ELSE - 'build forts - FOR i = 1 TO 15 - FOR j = 1 TO 15 - a = 10000 / (BF + planning * mf) * .3 * army%(i, j) - B = 10000 / (ba + planning * ma) * (1 + fort%(i, j) * .3) - IF a > B AND owner%(i, j) = player% AND threat(i, j) > 0 AND spend& >= BF THEN - fort%(i, j) = fort%(i, j) + 1 - money&(player%) = money&(player%) - BF - spend& = spend& - BF - END IF - NEXT j - NEXT i - 'build army - IF maxthreat > 0 AND spend& >= ba THEN - IF maxthreat > (spend& / ba) THEN d = INT(spend& / ba) ELSE d = INT(maxthreat) - e& = population&(player%) - soldier&(player%) - IF e& < d THEN d = e& - army%(threati, threatj) = army%(threati, threatj) + d - money&(player%) = money&(player%) - d * ba - spend& = spend& - d * ba - END IF - FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% AND threat(i, j) > 0 AND spend& >= ba THEN - IF maxthreat > spend& / ba THEN d = INT(spend& / ba) ELSE d = INT(maxthreat) - army%(i, j) = army%(i, j) + d - money&(player%) = money&(player%) - d * ba - spend& = spend& - d * ba - END IF - NEXT j - NEXT i - FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% AND spend& >= ba THEN - d = INT(spend& / ba / land%(player%)) + 1 - army%(i, j) = army%(i, j) + d - money&(player%) = money&(player%) - d * ba - spend& = spend& - d * ba - END IF - NEXT j - NEXT i - END IF -END IF -RETURN - - -building: -spendchurch& = money&(player%) * aichurch -spendmill& = money&(player%) * aimill -spendnavy& = money&(player%) * ainavy -round = 0 -buildmore: -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% THEN - IF (ownmill% = 0 AND original%(i, j) = player%) OR ownmill% = 1 THEN - IF mill%(i, j) < prodpot(terrain%(i, j)) AND spendmill& >= bm THEN - mill%(i, j) = mill%(i, j) + 1 - spendmill& = spendmill& - bm - money&(player%) = money&(player%) - bm - END IF - END IF - maxmor = .5 + trust(player%) / 2 - IF money&(player%) < 0 THEN maxmor = maxmor + money&(player%) / 10 / population&(player%) - IF original%(i, j) <> player% THEN maxmor = maxmor - .1 - IF maxmor < 0 THEN maxmor = 0 - a = (1 - localmorale(i, j)) * 2 - IF original%(i, j) <> player% THEN - IF localmorale(i, j) + .005 < maxmor THEN - a = 1 - ELSE - a = 0 - END IF - END IF - IF RND < a THEN - IF spendchurch& >= bc THEN - church%(i, j) = church%(i, j) + 1 - spendchurch& = spendchurch& - bc - money&(player%) = money&(player%) - bc - END IF - END IF - END IF - NEXT j -NEXT i -round = round + 1 -IF (spendmill& > bm OR spendchurch& > bc) AND round < 5 THEN GOTO buildmore -i = player% -GOSUB finances -IF sea(player%) < .6 AND (navy%(player%) < (10 * (1 - landorsea) * soldier&(player%)) OR sea(player%) < (1 / active%)) AND total& > 0 THEN - a = INT(spendnavy& / bn) - navy%(player%) = navy%(player%) + a - money&(player%) = money&(player%) - a * bn -END IF -RETURN - - -developscience: -IF aiuni > RND THEN - IF unii > 0 AND unij > 0 THEN - a = INT(money&(player%) / bu) - university%(unii, unij) = university%(unii, unij) + a - money&(player%) = money&(player%) - a * bu - END IF -ELSE - FOR i = 1 TO 6 - aa& = INT(science(i, player%) ^ 3 * 1000) - sciencemoney&(i) - bb& = INT(money&(player%) * aiscience(i)) - IF unemployed&(player%) > 6 AND i = 6 THEN bb& = 0 - IF bb& > aa& THEN - sciencemoney&(i) = sciencemoney&(i) + aa& - money&(player%) = money&(player%) - aa& - ELSE - sciencemoney&(i) = sciencemoney&(i) + bb& - money&(player%) = money&(player%) - bb& - END IF - NEXT i -END IF -RETURN - - -drawmap: -FOR i = 1 TO 15 - FOR j = 1 TO 15 - LINE (130 + j * 20, 80 + i * 20)-(150 + j * 20, 100 + i * 20), 0, B - LINE (131 + j * 20, 81 + i * 20)-(149 + j * 20, 99 + i * 20), tercolor(terrain%(i, j)), BF - IF owner%(i, j) <> 0 THEN LINE (145 + j * 20, 95 + i * 20)-(150 + j * 20, 100 + i * 20), 0, B - IF owner%(i, j) <> 0 THEN LINE (146 + j * 20, 96 + i * 20)-(150 + j * 20, 100 + i * 20), ownercolor%(owner%(i, j)), BF - NEXT j -NEXT i -RETURN - - -neutral: -FOR i = 1 TO players% - IF i <> player% THEN - dipl%(player%, i) = 2 - dipl%(i, player%) = 2 - END IF -NEXT i -IF money&(player%) < 0 THEN - money&(player%) = money&(player%) + sn * navy%(player%) - navy%(player%) = 0 -END IF -IF money&(player%) < 0 THEN - FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = player% THEN - army%(i, j) = INT(army%(i, j) / 2) - money&(player%) = money&(player%) + sa * army%(i, j) - university%(i, j) = INT(university%(i, j) / 2) - money&(player%) = money&(player%) + su * university%(i, j) - fort%(i, j) = INT(fort%(i, j) / 2) - money&(player%) = money&(player%) + sf * fort%(i, j) - IF church%(i, j) > 5 THEN church%(i, j) = church%(i, j) - 1 - money&(player%) = money&(player%) + sc - END IF - NEXT j - NEXT i -END IF -IF money&(player%) < 0 THEN money&(player%) = INT(RND * 1000) -GOSUB countproperties -population&(player%) = allfood&(player%) * 50 -RETURN - - -revolt: -revoltbonus = 1 - a = original%(i, j) -IF i > 1 THEN - B = owner%(i - 1, j) - c = original%(i - 1, j) - IF a = c AND B = c THEN revoltbonus = revoltbonus + 1 -END IF -IF i < 15 THEN - B = owner%(i + 1, j) - c = original%(i + 1, j) - IF a = c AND B = c THEN revoltbonus = revoltbonus + 1 -END IF -IF j > 1 THEN - B = owner%(i, j - 1) - c = original%(i, j - 1) - IF a = c AND B = c THEN revoltbonus = revoltbonus + 1 -END IF -IF j < 15 THEN - B = owner%(i, j + 1) - c = original%(i, j + 1) - IF a = c AND B = c THEN revoltbonus = revoltbonus + 1 -END IF -IF revoltnation = original%(i, j) THEN revoltbonus = revoltbonus + revoltlevel -RETURN - - -enemydistance: -FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF owner%(i, j) = 0 THEN ed%(i, j) = 0 ELSE ed%(i, j) = 99 - IF i > 1 THEN - IF owner%(i - 1, j) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1 - IF ed%(i, j) > dipl%(owner%(i - 1, j), owner%(i, j)) - 1 AND owner%(i - 1, j) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i - 1, j), owner%(i, j)) - 1 - END IF - IF i < 15 THEN - IF owner%(i + 1, j) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1 - IF ed%(i, j) > dipl%(owner%(i + 1, j), owner%(i, j)) - 1 AND owner%(i + 1, j) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i + 1, j), owner%(i, j)) - 1 - END IF - IF j > 1 THEN - IF owner%(i, j - 1) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1 - IF ed%(i, j) > dipl%(owner%(i, j - 1), owner%(i, j)) - 1 AND owner%(i, j - 1) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i, j - 1), owner%(i, j)) - 1 - END IF - IF j < 15 THEN - IF owner%(i, j + 1) = 0 AND ed%(i, j) > 1 THEN ed%(i, j) = 1 - IF ed%(i, j) > dipl%(owner%(i, j + 1), owner%(i, j)) - 1 AND owner%(i, j + 1) <> 0 AND owner%(i, j) <> 0 THEN ed%(i, j) = dipl%(owner%(i, j + 1), owner%(i, j)) - 1 - END IF - NEXT j -NEXT i -FOR k = 1 TO 9 - FOR i = 1 TO 15 - FOR j = 1 TO 15 - IF i > 1 THEN - IF ed%(i - 1, j) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i - 1, j) + 1 - END IF - IF i < 15 THEN - IF ed%(i + 1, j) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i + 1, j) + 1 - END IF - IF j > 1 THEN - IF ed%(i, j - 1) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i, j - 1) + 1 - END IF - IF j < 15 THEN - IF ed%(i, j + 1) + 1 < ed%(i, j) THEN ed%(i, j) = ed%(i, j + 1) + 1 - END IF - NEXT j - NEXT i -NEXT k -RETURN - - -beethoven: -'Beethoven's Fifth -PLAY "T180 o2 P2 P8 L8 GGG L2 E-" -PLAY "P24 P8 L8 FFF L2 D" -RETURN - - -death: -'Dead March from Saul -PLAY "l8t200mlo1c..p16c.p32cp32c.p8e..dp32d.cp32c.o0bo1c..mn" -RETURN - - -dragnet: -'Dragnet -PLAY "t255o2l2cl8dd#p8cp8l2f#" -RETURN - - -organ: -PLAY "T110ML" -PLAY "O2e-16c16e-16g16O3c16e-16d16c16O2b16g16b16O3d16g16f16e-16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "O3e-16c16e-16g16O4c16e-16d16c16d16c16O3b16a16g16f16e-16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "O3e-16c16e-16g16O4c16e-16d16c16O3b16g16b16O4d16g16f16e-16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "O4e-16c16e-16g16O5c16e-16d16c16d16c16O4b16a16g16f16e-16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "O4e-16c16O3g16e-16c16O5c16O4g16e-16a-16O2f16a16O3c16f16a-16" -PLAY "O4c16e-16" -IF INKEY$ <> "" THEN RETURN -PLAY "O4d16O3b-16f16d16O2b-16O4b-16f16d16g16O2e-16g16b-16O3e-16g16b-16" -PLAY "O4d16" -IF INKEY$ <> "" THEN RETURN -PLAY "O4c16O3a16g+16a16O4c16O3a16g+16a16O4e-16c16O3g16a16O4e-16c16O3" -PLAY "g16a16" -IF INKEY$ <> "" THEN RETURN -PLAY "O4d16c16O3f+16a16O4a16c16O3f+16a16O4f+16c16O3d16a16O4c16O3a16" -PLAY "f+16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "O3b-16O1g16b-16O2d16g16b-16a16g16f+16d16f+16a16O3d16c16O2b-16a16" -IF INKEY$ <> "" THEN RETURN -PLAY "O2b-16g16b-16O3d16g16b-16a16g16a16g16f+16e16d16c16O2b-16a16" -IF INKEY$ <> "" THEN RETURN -PLAY "O2b-16g16b-16O3d16g16b-16a16g16f+16d16f+16a16O4d16c16O3b-16a16" -IF INKEY$ <> "" THEN RETURN -PLAY "O3b-16g16b-16O4d16g16b-16a16g16a16g16f+16e16d16c16O3b-16a16" -IF INKEY$ <> "" THEN RETURN -PLAY "O3b-16g16b-16O4d16g16d16O3b-16g16O2f16O4g16d16O3b16g16b16O4d16g16" -IF INKEY$ <> "" THEN RETURN -PLAY "o4c16o3g16o4g16o3g16o4c16o3g16o4g16o3g16b16g16o4f16o3g16b16g16" -IF INKEY$ <> "" THEN RETURN -PLAY "o4f16o3g16" -PLAY "o4e-16c16e-16g16o5c16o4g16e-16c16o2b-16o5c16o4g16e16c16e16g16" -IF INKEY$ <> "" THEN RETURN -PLAY "o5c16" -PLAY "o4f16c16o5c16o4c16f16c16o5c16o4c16e16c16b-16c16e16c16b-16c16" -IF INKEY$ <> "" THEN RETURN -PLAY "o2a-16f16a-16o3c16f16a-16g16f16g16f16e16d16c16o2b-16a-16g16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3a-16f16a-16o4c16f16a-16g16f16g16f16e16d16c16o3b-16a-16g16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3a-16o4f16c16o3a-16f16o4c16o3a-16f16c16a-16f16c16o2a-16o3f16" -PLAY "c16o2a-16" -IF INKEY$ <> "" THEN RETURN -PLAY "o2d-2o4a-16f16e16f16g16f16e16f16" -PLAY "o1b2o5d16o4f16g16a-16g16f16e-16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "o4e-16g16o5c16o4g16b-16a-16g16f16e-4d4" -IF INKEY$ <> "" THEN RETURN -PLAY "o4c16o3g16o4g16o3g16o4c16o3g16o4g16o3g16b16g16o4f16o3g16b16g16" -PLAY "o4g16o3g16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3b-16g16o4e16o3g16b-16g16o4e16o3g16a16o4e-16o5c16o4e-16o3a16" -PLAY "o4e-16o5c16o4e-16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3a-16f16o4d16o3f16a-16f16o4d16o3f16g16o4d-16b-16d-16o3g16o4d-16" -PLAY "b-16d-16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3f+16e-16o4c16o3e-16f+16e-16o4c16o3e-16e-16o4c16o5c16o4c16o3e-16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3e-16o4c16e-16g16o5c16g16e-16c16g16e-16c16o3g16o4f16d16o3b16f16" -IF INKEY$ <> "" THEN RETURN -PLAY "o3e-16c16e-16g16o4c16e-16d16c16d16c16o3b16a16g16f16e-16d16" -IF INKEY$ <> "" THEN RETURN -PLAY "o4e-16c16e-16g16o5c16e-16d16o4b16o5c16o4g16e-16d16c16o3g16e-16d16" -PLAY "o3c16.p4" -RETURN - - -eye: -DATA 16,16,16,16,00,00,00,00,16,16,16,16 -DATA 16,16,00,00,00,15,15,00,00,00,16,16 -DATA 16,00,00,15,15,06,06,15,15,00,00,16 -DATA 00,00,15,15,06,06,06,06,15,15,00,00 -DATA 16,00,00,15,06,06,06,06,15,00,00,16 -DATA 16,16,00,00,00,06,06,00,00,00,16,16 -DATA 16,16,16,16,00,00,00,00,16,16,16,16 - - -'-----=====END OF GAME=====----- - -FUNCTION fixcolor (col AS INTEGER) - SELECT CASE col - CASE 1 - fixcolor = 4 - CASE 3 - fixcolor = 6 - CASE 4 - fixcolor = 1 - CASE 6 - fixcolor = 3 - CASE 9 - fixcolor = 12 - CASE 11 - fixcolor = 14 - CASE 12 - fixcolor = 9 - CASE 14 - fixcolor = 11 - CASE ELSE - fixcolor = col - END SELECT -END FUNCTION - diff --git a/programs/samples/pete/hgm30e/hgm30e.exe b/programs/samples/pete/hgm30e/hgm30e.exe deleted file mode 100644 index 7810385a7..000000000 Binary files a/programs/samples/pete/hgm30e/hgm30e.exe and /dev/null differ diff --git a/programs/samples/pete/hgm30e/how.hlp b/programs/samples/pete/hgm30e/how.hlp deleted file mode 100644 index c39a8dabc..000000000 --- a/programs/samples/pete/hgm30e/how.hlp +++ /dev/null @@ -1,100 +0,0 @@ -How to play? -============ - -When you start the game, you have to choose a scenario-file, which can also be -a former saved game. It is very important that you give the exact name, eg.: -"save4.scn". You can also omit the filename and press for the default -scenario. -Then you have to decide which empires shall be controlled by human players. The -rest is directed by a non-cheating artificial intelligence (AI) that can have -several behaviours. You can also choose to watch an "AI combat", alone, leaning -back in your chair at home, or you can arrange a cool "live" competition in a -party, among your friends! -On the same screen, you also see the best performances of empires. Who (human or -AI) won the game fastest (in how many turns) and when (date of victory)? This is -a hint for those who love to beat the records. - -The players take their turns in sequence, and the results of their actions are -calculated after each turn. If there are more human players, they should change -places when the screen shows whose turn begins. If the AI doesn't cheat, why -would you? - -If it's your turn you see the main screen of the game. There is a grided map in -the middle. The main colours represent the terrain types, and the little -coloured squares in the lower right corners of the land areas indicate the -owners of the territories. In the middle of the map there is an 'eye' to show -which area you are just examining. The information you have about that territory -is shown on the right side of the screen. You can move the 'eye' with the -numeric keyboard. -In the heading, there is also a miniaturized political map, to give you a -permanent view about the situation (in case you leave the main screen) and to -make you accustomed to the colours of empires. - - -What are the keys to direct your empire? ----------------------------------------- - -i = Information screen (general) - You cannot make any decision here. -t = Treasury screen (incomes, costs, balance) - You can change the tax rate and see how it influences the morale. -s = Science screen (levels) - You can spend money to develop the branches of science. -d = Diplomacy screen (relations between nations) - You can change your relations by changing your attitude. - You can get more information from your rivals by spying. - -f = Build fort -c = Build church -u = Establish university -m = Build productive properties (mills, mines, mints, etc.) -a = Recruit army -n = Build ships (navy) - -F = Destroy fort -C = Destroy church -U = Sell university building -M = Sell productive properties (mills, mines, mints, etc.) -A = Demolbilize army -N = Sell ships (navy) - -+ = Increase military unit size - In order to enable a faster managing of great armies, there is a - possibility to buy and move soldiers and ships in larger units. - Possible military unit sizes are: 1, 2, 5, 10, 20, 50, 100. -- = Decrease military unit size - (See above.) - -E = End turn - If you have made all your decisions, you press "E" (not "e"!) and lean - back to see the results of your actions. Then your rivals make their best - to cross your plans. -g = Save game - The name of the saved game is: "save1.scn", "save2.scn", etc. - When you run Hegemony next time the old files will be owerwritten, so - change their names after the game, if you want to preserve them (eg. - "save12.scn" -> "veryhard.scn"). Note: You shouldn't use longer filenames - than 8 characters. -h = Help - This is what you are reading just now... -Q = Quit - You can leave the game by pressing "Q" (not "q"!). - - -Advanced use of the game ------------------------- - -Saving and replaying offer a wonderful opportunity for experiments. You can -save a game, even in AI-combat mode, any time when you feel like changing the -roles. Then you quit and reload the last "save*.scn" file. You let the AI (or -your friend) control your former empire, and choose another one for yourself. -So you can test a lot of "what would have happened"-s. -Of course if you are tired of playing yourself or you want a fast insight into -the possible "future", you can also make the AI finish the game for you. - -The ".scn" files are the scenarios (and saved games). By editing them you can -make your own scenarios. The "terrain.typ" file defines the various terrain -types. The ".ai" files contain special data for the AI. These parameters give -the AI different characters. -You find more information on this topic in the "scn.txt", "typ.txt", and -"ai.txt" files. \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/jobs.hlp b/programs/samples/pete/hgm30e/jobs.hlp deleted file mode 100644 index b6118aa2a..000000000 --- a/programs/samples/pete/hgm30e/jobs.hlp +++ /dev/null @@ -1,54 +0,0 @@ -Professions -=========== - -The population's potential activities are: - - agriculture - - fishing - - industrial work - - trading - - serving in the army - - being unemployed - -You determine only the number of soldiers directly, but indirectly you can -influence all of the professions. It is very important because the various -activites provide different incomes, and thus the tax revenues are affected -as well. Provided that all sciences have the same level, the ratio of revenues -are following: - unemployed : peasant : fisher : worker : merchant - 0 : 1 : 1 : 2 : 4 -And of course we shouldn't forget that unemployment spoils the morale. To be a -bit more exact: The morale is multiplied by the employment rate. - - -What factors (and in which sequence) influence the professions? ---------------------------------------------------------------- - -1. Soldiers - You can set their number exactly by recruiting and demobilizing. -2. Merchants - Their number is calculated by the following formula: - (2% of the population) * (science level of trade) * (trading area) - The size of trading area depends on the position of the countries you - trade with, and on the strength of your fleet: - - neighbouring empires count with 100% of their land area - - the land areas of empires that can be reached by sea are modified by - the proportion of your territorial waters - - unapproachable (or neutral or enemy) countries don't count at all - The proportion of merchants cannot exceed 20% of the population. -3. Workers - Their number: - (10% of the population) * (science level of industry) - Maximum limit: 50% of population -4. Peasants - The rest of your subjects is divided between peasants and fishermen in the - ratio of the food producing potential of your land and sea territories. - The maximum number of peasants: - (food potential of your lands) * (level of agriculture) * 80 -5. Fishermen - Their maximum number: - (length of coast) * (1 + sea proportion) * (level of sailing) * 25 -6. Unemployed - If some people still don't have a job, they remain unemployed. - -So to make a long story short, the best way to decrease unemployment is to -develop the various branches of science - with exception of medicine! diff --git a/programs/samples/pete/hgm30e/land.ai b/programs/samples/pete/hgm30e/land.ai deleted file mode 100644 index de0d47590..000000000 --- a/programs/samples/pete/hgm30e/land.ai +++ /dev/null @@ -1,40 +0,0 @@ -1 -0.75 -1 -1 -0.1 -0.05 -2 -1 -0.9 -0.5 -0.2 -0.1 -0.85 -0.05 -1 -0.8 -0.5 -0.3 -0.1 -0.5 -0.1 -0.6 -0.45 -0.45 -0.1 -0.5 -0.25 -0.25 -0.2 -0.1 -0 -0.2 -0.9 -5 -1.4 -2.5 - -This AI concentrates on land areas and neglects navy. - - diff --git a/programs/samples/pete/hgm30e/military.hlp b/programs/samples/pete/hgm30e/military.hlp deleted file mode 100644 index 77fc5355d..000000000 --- a/programs/samples/pete/hgm30e/military.hlp +++ /dev/null @@ -1,77 +0,0 @@ -Military and war -================ - -The pursuit for hegemony will sooner or later lead to armed conflicts. Finally, -only the outcome of sea and land battles count. Only military victories can -bring you the final triumph. So, what do you need to know about wars? -"Three things are needed to make war: money, money and money." (Montecuccoli) -Yes, true, but a good general should be familiar with the deeper connections of -wars. - - -Armies and land battles ------------------------ - -1. Regular attacks - You can simply attack your neighbours by sending your soldiers there. - The attacking force depends on: - - the number of soldiers - - the science level of military - - a random factor (between 90% and 110%) - This three factors are multiplied to calculate the attacking force. -2. Rebellions - If a territory is conquered by a foreign power, rebellions can occur. The - frequency of revolts and the number of rebels is influenced by: - - the population of the territory (the more people the more rebels) - - the morale of the original owner (people sacrifice their lifes only for - a country they love) - - the morale in the conquered territory (content people never revolt) - - the neighborhood (free homeland territories increase the risk and - extent of revolts) - - the momentary mood of the population (which is absolutely random) -3. Defence - In case of an attack, the defending army might be reinforced by volunteers. - (Naturally, this happens only in unconquered regions.) Also the number of - volunteers depends on the population density and the morale of that area. - The defending force is calculated from: - - the number of soldiers - - the science level of military - - the defence bonus of territory - - 30% bonus for every fort - - a random factor (between 90% and 110%) - - the number of volunteers - The first five factors are multiplicated, but the last one is simply added - to them, to simulate that unorganized peasants with forks and axes cannot - take advantage of terrain, forts or the latest weapons. - -The result of battles depend on the proportion of attacking and defending -forces (considering all modifying factors). Sometimes the attacking army -destroyes some forts in a siege. - - -Fleets and sea battles ----------------------- - -Sea battles, in contrast to land attacks, occur on a random basis. The fleets of -enemy powers try to find each other (or rather the weaker side tries to escape) -but they meet only by chance. -The outcome of battles are decided by the forces of fleets, that is calculated -from following factors: - - number of ships - - science level of sailing - - science level of military - - a random factor (between 90% and 110%) - -The weaker fleet loses a third of its ships, the stronger one only a smaller -part of it, depending on the proportion of forces. If the fleet carried -soldiers, and after the battle there are not enough ships to carry them all... -Well, I think you can guess what happens... - - -Sea invasions -------------- - -Ships are not only for naval battles good but as well for transporting soldiers -to remote places. You simply have to move your forces to the sea, and in the -next turn you can move your embarked soldiers to any coastal territory. So easy! -There is only one restriction: You need one ship for every soldier. diff --git a/programs/samples/pete/hgm30e/money.hlp b/programs/samples/pete/hgm30e/money.hlp deleted file mode 100644 index 10aa16495..000000000 --- a/programs/samples/pete/hgm30e/money.hlp +++ /dev/null @@ -1,142 +0,0 @@ -Money matters -============= - -How to make money? ------------------- - -1. Taxes - Your income from taxes depends on following factors: - - Tax rate - You can increase your revenues by raising taxes. Unfortunately, with - higher taxes the morale sinks and this influences the population's - willingness to pay taxes. Thus, you won't get the maximum by setting the - tax rate to 100%. ;-) - - Size of working population - The more people work the more people pay taxes... - - Proportion of professions - Provided that all sciences have the same level, the ratio of - revenues are following: - peasant : fisher : worker : merchant - 1 : 1 : 2 : 4 - So it is very important how many people have more profitable jobs. - - Morale - As mentioned above, the morale affects the willingness to tax-paying. - So every rise in the morale means automatically more money. But if you - want you can also spoil the higher morale back to its initial level by - raising the tax rate, and so increasing the revenue. - - Level of science - The development of science influences the profitability of the - professions, and so the tax-incomes as well. - The connections should be self-evident, but I might be mistaken, so - here is the list: - agriculture -> peasants - sailing -> fishermen - industry -> workers - trade -> merchants - Well, would you have guessed it? - -2. Productive properties - Every mill, mine, mint, and other productive property produces basically - 20 gold net revenue in every turn. If the level of industry is higher than - 1.0 the income is modified proportionally. - -3. Interest - You get automatically 4% interest for your money after each turn. - -4. Selling properties - If things are very bad you might be forced to sell your properties. - - Selling - Property price Loss Remark - -------------------------------------------------------------- - fort 70 (90%) only as building material - church 10 (90%) only as building material - univers. 250 (50%) not very good for other purposes - mill 180 (10%) a trader makes profit out of you - ship 180 (10%) a trader makes profit out of you - army 75 (50%) a part of the weapons - - -How to spend money? -------------------- - -1. Costs - The maintenance of your buildings and the upkeeping of your fleet and - army cost you some money. In addition, should you at any time have debts - you also have to pay 12% interest. - - These are the maintenance and upkeeping costs for each turn: - fort 30 gold - church 3 gold - university 25 gold - ship 20 gold - army 30 gold - -2. Investments - After every turn the balance of revenues and costs is added to your - treasury. (Your treasurer can predict the prospective changes if you - press "t" in the main screen.) - If you manage your economy well, you will have some surplus money for - investments. You can even spend more money than you actually possess, - but never forget that you will have to pay for your debts not only - with your money (interests) but also with the morale (unpaid soldiers - start to pillage, etc). - What are your possibilities? - - a. Material investments (and their benefits) - - Forts: 700 gold - Every fort adds 30% bonus to the defending force. - - Churches: 100 gold - Every church makes 20 people happier (doubles their morale!) in - the area where it is loacted. This way you get a morale-bonus up - to 100% but you cannot exceed this bonus however many churches - you have. - - Universities: 500 gold - Universities have two effects: 1.) Every university gives you 1% - chance (in every turn) that a scientist makes a new invention. - 2.) Universities make your investments on science more efficient. - If you have a university for every 50 people, this gives you 100% - bonus (this means: every gold spent on science counts as 2 golds). - Note: There is no limit to this benefit, so more than 100% is also - possible! - - Mills, mines, mints...: 200 gold - Productive properties provide (20 gold) * (sc. level of industry) - net revenue in every turn. - - Army: 150 gold - Sooner or later you will need an army to build up your hegemony - or to defend yourself from other empires. Soldiers are also useful - in supressing revolts in occupied territories. - - Navy: 200 gold - Ships have multiple effects: - = They are your naval army. Besides, they enable you to - transport your land forces to remote places. (You will need a - ship for every soldier.) - = They offer jobs to your fishermen, and through them some extra - food to the population (The length of your coast is also an - important factor.) - = They let you make trade with not-neighbouring countries, which - increases the proportion of merchants in the population, and - so indirectly also your revenues. (Not the absolute number of - ships is important but the proportion to other empires.) - - b. Developing the level of sciences - You can develop your science level by spending money on it. You can - choose how much money you spend on each branch of science, but there - are two important restrictions you should be aware of: - - The higher your momentary level, the more expensive it gets to - achieve further development. (The invention of a spear is cheaper - than that of a nuclear-powered submarine.) - - The maximum amount of money you can usefully spend on a branch of - science is limited. (You cannot invent the nuclear-powered - submarine immediately after the spear, no matter how much gold - you own.) - The efficiency of your money spent on science is influenced by the - number of universities. - - c. Gathering information (spying) - If you need some information about your competitors, you have spies - at your service. Simply pay the price and your problem is solved... - The price of spying depends on three factors: - - The size of the target-country. - - Your diplomatic relation to that country. - - Whether you need "general" or "full" data. \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/motto.txt b/programs/samples/pete/hgm30e/motto.txt deleted file mode 100644 index 338da50d2..000000000 --- a/programs/samples/pete/hgm30e/motto.txt +++ /dev/null @@ -1,15 +0,0 @@ -"Every power is animated by the wish to be the only power, because in the nature -of its being it deems itself absolute and consequently opposes any bar which -reminds it of the limits of its influence. Power is active consciousness of -authority. Like God, it cannot endure any other God beside it. This is the -reason why a struggle for hegemony immediately breaks out as soon as different -power groups appear together or have to keep inside of territories adjacent to -one another. Once a state has attained the strength which permits it to make -decisive use of its power it will not rest satisfied until it has achieved -dominance over all neighbouring states and has subjected them to its will. While -not yet strong enough for this it is willing to compromise, but as soon as it -feels itself powerful it will not hesitate to use any means to extend its rule, -for the will to power follows its own laws, which it may mask but can never -deny." - - (Rudolf Rocker: Nationalism and Culture) \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/other.hlp b/programs/samples/pete/hgm30e/other.hlp deleted file mode 100644 index a7e4bce82..000000000 --- a/programs/samples/pete/hgm30e/other.hlp +++ /dev/null @@ -1,80 +0,0 @@ -Other things to know... -======================= - -1. 1 + 1 = 2 -2. (a-b)^2 = a^2 + b^2 - 2*a*b -3. e = m*c^2 -4. ... -Ooh, do you mean the game? - - -Reproduction rate ------------------ - -Three factors determine the reproduction rate of the population: -1. Food - The quantity of food is calcualted by this formula: - (land food) * agricult. + (length of coast) * (1 + sea proport.) * sailing - The minimally demanded quantity of food: 1 unit for every 50 people - The possible change in population after the comparison: +-10% -2. Migration - If the morale is lower than 100% a part of the population leaves the - country. The emigration rate is proportional with the square of the - extent of dissatisfaction. - Eg. 90% morale -> 10% dissatisfaction -> 1% emmigration - 80% morale -> 20% dissatisfaction -> 4% emmigration - 70% morale -> 30% dissatisfaction -> 9% emmigration -3. Mortality - The incidence of epidemics depends on the population density and the - science level of medicine. The exact formula of mortality: - (random number) * (population / 250 / land) / (science level of medicine) - - -Morale ------- - -A country's morale is the average value of the morale of all territories. -The local value depends on six factors: -1. Tax - More exactly: (1 - tax * 2) -2. Unemployment - (I hope this requires no further explanation.) -3. Church bonus - More exactly: (1 + churches * 20 / (population of the area)) - But maximum: 2.0 (If you have more than one church for every 20 people.) -4. Diplomatic trust - More exactly: (0.5 + trust / 2) -5. Possible debts - More exactly: (debt / 10 / population) -6. Freedom or occupation - More exactly: -10% for occupation - -The first four factors are always multiplied; in case of debt and/or occupation -the fifth and/or sixth factors are deducted. - - -Liberation of allied territories --------------------------------- -If you conquer a territory originally owned by your ally, you automatically set -it free. In return, you receive a little "thank-you money" that is a random sum -between zero and 3 times the number of liberated population. This is usually -less than the value of your liberating army (that you lose by this action), but -you may hope for a similar favour of your ally. Anyway, a stronger ally can -help you better... -WARNING! If you conclude an alliance with a country, you may lose (or win) a lot -of territory by this rule, so be careful! - - -How to get back "lost" diplomatic trust? ----------------------------------------- -If a country makes no negative diplomatic actions, the diplomatic trust improves -by 1% every turn. - - -Ways of losing the game ------------------------ - -1. The most evident way of defeat is losing all the territory. -2. The most funny way of defeat is losing all the population. -3. The most humiliating way of defeat is being expelled from the country, by a - revolution that certainly breaks out as soon as the morale sinks below 33%. \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/readme.txt b/programs/samples/pete/hgm30e/readme.txt deleted file mode 100644 index b7526fb1f..000000000 --- a/programs/samples/pete/hgm30e/readme.txt +++ /dev/null @@ -1,12 +0,0 @@ -Hegemony 3.0.e was written in QuickBasic which runs under DOS. This makes the program DOS-depending, even in the "exe" form, and even if you run it from Windows. The program requires that it is placed in a directory (folder) of your PC, containing no longer names than 8 characters. - -Example: -C:\games\turnbasedstrategy\hegemony30e -> WRONG!!! -C:\games\tbs\hegem30e -> POSSIBLE - -As far as I know this is the only thing that can cause the game "freeze" (BSOD). Let me know if you find other bugs as well. - - -Akos Ivanyi -ivanyiakos@hotmail.com -www.angelfire.com/ego/akos \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/science.hlp b/programs/samples/pete/hgm30e/science.hlp deleted file mode 100644 index 8c1d252d0..000000000 --- a/programs/samples/pete/hgm30e/science.hlp +++ /dev/null @@ -1,79 +0,0 @@ -Science and development -======================= - -There are six main branches of science that influece medieval life: - - Agriculture - - Industry - - Trade - - Military - - Sailing - - Medicine - - -What are the effects of science? --------------------------------- - -1. Agriculture - - Raises the maximum limit of peasants. - - Increases the quantity of produced food. - - Makes agriculture more profitable and so increases tax revenues. -2. Industry - - Raises the number of workers. - - Increases the revenues from productive properties. - - Makes industry more profitable and so increases tax revenues. -3. Trade - - Raises the number of merchants. - - Increases the chance of copying an invention from other empires. - - Makes trade more profitable and so increases tax revenues. -4. Military - - Strengthens your army and fleet. -5. Sailing - - Strengthens your fleet. - - Raises the maximum limit of fishermen. - - Enhances the effectivity of fishing and so contributes to catering the - population. - - Makes fishing more profitable and so increases tax revenues. -6. Medicine - - Decreases the incidence of epidemics and hereby improves the reproduction - rate. WARNING: Too high a reproduction rate can lead to unemployment! - - -How can you develop science? ----------------------------- - -1. Spending money on science - You can improve your various branches of science separately by paying the - costs of scientific experiments. These costs are rather high so the - investment may seem inefficient at first sight, but the resulting advanced - technologies bring such permanent benefits (without any maintaining costs!) - that you get your money back in the long run. - Development is not cheap in the beginning but as you reach higher levels it - gets even more costly. The only way to make it a bit less expensive is to - build more universities. - - The exact formula of computing the rise in science level: - (spent money) / 10000 / ((sc. level) ^ 3) * (1 + univers. * 50 / popul.) - - The maximum amount of money you can usefully spend on a branch of science - in a turn is limited. The limit is: - ((science level) ^ 3) * 1000 - - This means: you can develop your science level in a turn by more than 0.1 - only if you have universities. Even so, the rise cannot exceed 0.3 - to - prevent stupid results in case of a very low population density. - -2. Inventions of scientists - If you keep universities, your scientists may invent something without your - extra financial assistance as well. Every university means a 1% chance of - a new invention in every branches of science. The invention's effect on the - science level is a random number that is modified by the proportion of - universities. - -3. Copying inventions from other empires - International trade can help you copy some inventions from other countries. - The chance of such a favourable event depends on your diplomatic - relationships. War and neutrality make it impossible but trade, friendship - and alliance (in this sequence) mean a growing probability. - Also the science level of trade influences your ability to copy inventions. - The extent of rise in science level is 10% of the difference between the - levels of the two concerned countries. \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/scn.txt b/programs/samples/pete/hgm30e/scn.txt deleted file mode 100644 index 298bbacb1..000000000 --- a/programs/samples/pete/hgm30e/scn.txt +++ /dev/null @@ -1,77 +0,0 @@ -How to make/edit scenarios? ---------------------------- - -The scenarios of "Hegemony 3.0.e" are described in external scenario files. Basically, there is only one scenario file: "default.scn". If you open it by any text-editor, you can see a lot of data. Here is a short explanation of their meaning (in sequence): - - -number of players -active player -turn - -active player's money spent on agriculture -... industry -... trade -... sailing -... military -... medicine - -[player1's data] -name of player1 -control of player1 (human or one of the ai-s) -population of ... -money... -ships -embarked soldiers (ready to disembark) -just embarked soldiers -tax -diplomatic trust - -development level of agriculture -... industry -... trade -... sailing -... military -... medicine - -code of diplomatic relation to player1 (1=war, 5=alliance) -... to player2 -... to player3 -... -(to all players) - -code of diplomatic action to player1 (-1=spoil, 1=improve) -... to player2 -... to player3 -... -(to all players) -[end of player1's data] - -[player2's data] - -[player3's data] - -[... for all (max: 9) players] - -15*15 map of owners - -15*15 map of original owners - -15*15 map of terrain - -15*15 map of forts - -15*15 map of churches - -15*15 map of universities - -15*15 map of productive properties - -15*15 map of soldiers (ready to be moved) - -15*15 map of moved soldiers - - -I know, this is a rather imperfect description. If you want to know more, send me an e-mail. I will gladly help you if you try to make a new scenario. - -Akos Ivanyi -ivanyiakos@hotmail.com \ No newline at end of file diff --git a/programs/samples/pete/hgm30e/seatrade.ai b/programs/samples/pete/hgm30e/seatrade.ai deleted file mode 100644 index 183558bfa..000000000 --- a/programs/samples/pete/hgm30e/seatrade.ai +++ /dev/null @@ -1,40 +0,0 @@ -1 -0.75 -1 -1 -0.1 -0.05 -2 -1 -0.9 -0.8 -0.2 -0.1 -0.85 -0.05 -1 -0.8 -0.5 -0.3 -0.1 -0.5 -0.1 -0.6 -0.35 -0.35 -0.3 -0.5 -0.2 -0.15 -0.25 -0.25 -0 -0.15 -0.65 -5 -1.4 -2.5 - -This AI concentrates on trading at sea. It will try to establish a naval power. - - diff --git a/programs/samples/pete/hgm30e/terrain.typ b/programs/samples/pete/hgm30e/terrain.typ deleted file mode 100644 index ad0ebdd97..000000000 --- a/programs/samples/pete/hgm30e/terrain.typ +++ /dev/null @@ -1,45 +0,0 @@ -infertile -0.2 -1 -0 -14 -lean soil -3 -3 -0 -10 -fertile plain -6 -4 -0 -2 -swamp -2 -2 -0.5 -3 -lake -2 -2 -0 -9 -hills -2 -5 -0.3 -6 -mountains -1 -3 -0.7 -8 -high mount. -0.2 -2 -1 -7 -snow -1 -1 -0.5 -15 diff --git a/programs/samples/pete/hgm30e/typ.txt b/programs/samples/pete/hgm30e/typ.txt deleted file mode 100644 index aead6e4e2..000000000 --- a/programs/samples/pete/hgm30e/typ.txt +++ /dev/null @@ -1,18 +0,0 @@ -How to change the terrain types? --------------------------------- - -"Hegemony 3.0.e" uses the "terrain.typ" file to read important data of the nine possible terrain types. If you examine a scenario file (see scn.txt for further explanation) you see that numbers from 1 to 9 define the terrain types. Well, number 1 means the first type, 2 the second type, etc. Every type has five attributes, as follows: - -name of terrain type -food production potential -resources -defence bonus -colour code - -This is repeated for all nine types. - - -If this wasn't clear enough, send me an e-mail. - -Akos Ivanyi -ivanyiakos@hotmail.com \ No newline at end of file diff --git a/programs/samples/pete/html/htmlgendos.ico b/programs/samples/pete/html/htmlgendos.ico deleted file mode 100644 index e14c7faad..000000000 Binary files a/programs/samples/pete/html/htmlgendos.ico and /dev/null differ diff --git a/programs/samples/pete/html/readme.txt b/programs/samples/pete/html/readme.txt deleted file mode 100644 index 60e759cb6..000000000 --- a/programs/samples/pete/html/readme.txt +++ /dev/null @@ -1,9 +0,0 @@ -The HTML file is saved in C:\name_you_specified.html - -The modern Windows version for the file may be found at www.freewebs.com/teamerx/newsite/htmlgen.exe - -This software may not be distributed under any other name without consent of the author - -Contact me at qbfreak2000@hotmail.com for questions/comments - -Enjoy! \ No newline at end of file diff --git a/programs/samples/pete/html/test.bas b/programs/samples/pete/html/test.bas deleted file mode 100644 index bdc5484e8..000000000 --- a/programs/samples/pete/html/test.bas +++ /dev/null @@ -1,30 +0,0 @@ -CLS -COLOR 10 -PRINT " HTML About Page Generator:: William Chamberlain" -SLEEP 1 -CLS -INPUT "Please enter your name (displayed at top of page):"; n$ -INPUT "Page will be displayed in what color letters?"; c$ -INPUT "Page background color will be:"; b$ -INPUT "Please, state a font type:"; w$ -INPUT "Please enter your e-mail:"; e$ -INPUT "Specify an age:"; a$ -INPUT "Please state your favorite food:"; f$ -OPEN "c:\" + n$ + ".html" FOR OUTPUT AS #1 -PRINT #1, "" + n$ + "'s Page" -PRINT #1, "

    " + n$; "

    " -PRINT #1, "
    " -PRINT #1, "Age:" + a$ + "
    " -PRINT #1, "Fav. Food:" + f$ + "
    " -PRINT #1, "
    My Email" -PRINT #1, "" -CLOSE 1 -CLS -COLOR 14 -PRINT " Page processed, Thank you for using this program." -SLEEP 2 -PRINT " Page will be found in E:\yourname.html" -SLEEP 3 -END - - diff --git a/programs/samples/pete/invader1/invader.bas b/programs/samples/pete/invader1/invader.bas deleted file mode 100644 index 31f10ec87..000000000 --- a/programs/samples/pete/invader1/invader.bas +++ /dev/null @@ -1,1316 +0,0 @@ -' Taito Space Invaders -' ÛÛÛ -' ÛÛÛÛÛÛÛ -' ÛÛÛÛÛÛÛÛÛÛÛ -' Û ÛÛÛ Û -' ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ -' ÛÛ ÛÛ -' ÛÛ ÛÛ ÛÛ ÛÛ -' ÛÛ ÛÛ ÛÛ ÛÛ -' v1 -' anarky - anarky.tk, 2005 - -DEFINT A-Z - -DECLARE FUNCTION ArrayBytes (x, y) -DECLARE SUB DefineGraphics () -DECLARE SUB SetColour (colour, r, g, b) -DECLARE SUB Display (x, y, a$) -DECLARE SUB DisplayLife (life, visible) -DECLARE SUB DisplayScore () -DECLARE SUB DrawPlanet (visible) -DECLARE SUB DrawShelters (visible) -DECLARE SUB Delay (seconds!) -DECLARE SUB ClearScreen () -DECLARE SUB ClearScreenToCRT () -DECLARE SUB IncScore (scoregain) -DECLARE SUB ErodeShelter (x, y) - -DECLARE FUNCTION sbvoicetoreg (voice) -DECLARE SUB sbwritereg (register, byte) -DECLARE SUB sbresetcard () -DECLARE SUB sbsetupvoice (voice) -DECLARE SUB sbvoiceoff (voice) -DECLARE SUB sbplaynote (voice, octave, note) -DECLARE SUB sbvolume (voice, volume) -DECLARE SUB sbmodulate (voice, volume) - -DEF SEG = 0 -RANDOMIZE TIMER -SCREEN 13 - -true = -1 -false = NOT true - -screenwidth = 256 -screenorgx = 32 -shipwidth = 15 -shipheight = 8 -shipminx = 50 -shipmaxx = 270 - shipwidth -bulletheight = 3 -bulletd = 3 -invwidth = 12 -invheight = 8 -invbombheight = 5 -invdiry = 7 -invzaptime = 15 -saucerwidth = 16 -saucerheight = 7 -saucery = 28 -sheltery = 156 -shelterwidth = 24 -shelterheight = 16 - -shipcolour = 255 -bulletcolour = 254 -bombcolour = 253 -shipexplodecolour = 252 -sheltercolour = 251 -textcolour = 250 -invexplodewhitecolour = 249 -invexplodegreencolour = 248 -planetcolour = 247 -saucercolour = 246 -crtcolour = 245 - -SetColour shipcolour, 0, 63, 0 -SetColour bulletcolour, 63, 63, 63 -SetColour bombcolour, 63, 63, 63 -SetColour shipexplodecolour, 0, 63, 0 -SetColour sheltercolour, 0, 63, 0 -SetColour textcolour, 63, 63, 63 -SetColour invexplodewhitecolour, 63, 63, 63 -SetColour invexplodegreencolour, 0, 63, 0 -SetColour planetcolour, 0, 63, 0 -SetColour saucercolour, 63, 0, 0 -SetColour crtcolour, 14, 14, 14 - -shipgsize = ArrayBytes(shipwidth - 4, shipheight - 4) -DIM shipg(shipgsize) -DIM shipexpg(2 * shipgsize) -invgsize = ArrayBytes(invwidth - 3, invheight - 3) -DIM invg(4 * 55 * invgsize) -DIM invg2(4 * 55 * invgsize) -invbombgsize = ArrayBytes(1, 3) -DIM invbombg(2 * invbombgsize) -DIM invexpg(3 * invgsize) -DIM saucerg(ArrayBytes(saucerwidth - 3, saucerheight - 3)) -DIM shelterg(ArrayBytes(shelterwidth - 6, shelterheight - 6)) -chargsize = ArrayBytes(2, 5) -DIM charset(chargsize * 39) - -DIM damagex(255), damagey(255) -FOR i = 0 TO 255 - damagex(i) = RND * 4 - damagey(i) = RND * 6 -NEXT - -invvoice = 1 -bulletvoice = 2 -invzapvoice = 3 -saucervoice = 4 -shipexpvoice = 5 - -DIM invnote(3) -FOR i = 0 TO 3 - READ invnote(i) -NEXT -DATA &H2AE,&H287,&H263,&H241 -sbresetcard -FOR i = 1 TO 5 - sbsetupvoice i -NEXT -sbmodulate invvoice, 40 -sbmodulate bulletvoice, 45 -sbvolume bulletvoice, 45 -sbmodulate invzapvoice, 20 -sbvolume invzapvoice, 53 -sbvolume saucervoice, 55 -sbmodulate shipexpvoice, 63 - -DefineGraphics -DIM invx(55), invy(55), invs(55) -DIM bombx(20), bomby(20), bombs(20), bombtype(20) - -speedtest = false -score = 0 - -WHILE NOT switchoff - ClearScreen - WHILE INKEY$ > "" - WEND - Display 0, 0, "SCORE" - DisplayScore - a$ = "" - WHILE a$ = "" - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - Display 11 * 8, 10 * 9, "GAME OVER" - FOR i = 1 TO 2 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - NEXT - Display 11 * 8, 10 * 9, " " - a$ = INKEY$ - switchoff = (a$ = CHR$(27)) - WEND - - '------------------ Next Game --------------- - - IF NOT switchoff THEN - score = 0 - lives = 3 - level = 1 - damagecounter = RND * 200 - maxbombs = 12 - bombchance = 95 - gameover = false - ClearScreen - Display 0, 0, "SCORE" - DisplayScore - Display 16 * 8, 0, "LIVES" - FOR i = 1 TO lives - DisplayLife i, true - NEXT - END IF - - '------------------ Next Level -------------- - - WHILE NOT gameover AND NOT switchoff - DrawPlanet true - IF level < 5 THEN - DrawShelters true - END IF - maxbombs = maxbombs - (maxbombs < 20) - bombchance = bombchance + (bombchance > 80) - shipx = shipminx - shipy = 199 - shipheight * 2 - canfire = false - saucers = false - inv = 1 - FOR y = 0 TO 4 - FOR x = 0 TO 10 - invx(inv) = shipminx + shipwidth + x * 16 - invy(inv) = shipy - 2 - invheight - (6 - level) * 14 - y * 14 - invs(inv) = true - inv = inv + 1 - NEXT - NEXT - invleft = 55 - inv = 0 - invanim = 0 - invnote = 0 - invnotelength = 12 - invnoted = 1 - invnotes = true - invdirx = 2 - changedir = 0 - numbombs = 0 - FOR i = 1 TO maxbombs - bombs(i) = false - NEXT - endinglevel = false - Delay .6 - saucercycles = 0 - shots = 0 - saucercount = 0 - - '------------------ Next Cycle -------------- - - WHILE NOT endlevel AND NOT gameover AND NOT switchoff - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - IF speedtest THEN - SetColour 0, 32, 16, 16 - END IF - - 'move invaders - - IF (NOT dying) AND (NOT endinglevel) AND (invzapticks = 0) THEN - inv = inv + 1 - oldinvanim = invanim - IF inv = 56 THEN - inv = 1 - invanim = invanim XOR 1 - SELECT CASE changedir - CASE 1 - changedir = 2 - CASE 2 - invdirx = -invdirx - changedir = 0 - END SELECT - END IF - WHILE invs(inv) = false - inv = inv + 1 - IF inv = 56 THEN - inv = 1 - invanim = invanim XOR 1 - SELECT CASE changedir - CASE 1 - changedir = 2 - CASE 2 - invdirx = -invdirx - changedir = 0 - END SELECT - END IF - WEND - LINE (invx(inv), invy(inv))-STEP(invwidth - 1, invheight - 1), crtcolour, BF - IF changedir = 2 THEN - invy(inv) = invy(inv) + invdiry - IF invy(inv) > shipy - invheight THEN - lives = 1 - LINE (shipx, shipy)-STEP(shipwidth - 1, shipheight - 1), crtcolour, BF - dying = true - deathroes = 0 - END IF - ELSE - invx(inv) = invx(inv) + invdirx - IF invx(inv) <= shipminx - invwidth OR invx(inv) >= shipmaxx + shipwidth THEN - changedir = 1 - END IF - END IF - IF invy(inv) < sheltery - invheight THEN - PUT (invx(inv), invy(inv)), invg((inv - 1) * invgsize * 4 + invanim * 2 * invgsize), PSET - ELSEIF invy(inv) < sheltery THEN - PUT (invx(inv), invy(inv)), invg((inv - 1) * invgsize * 4 + invanim * 2 * invgsize + invgsize), PSET - ELSE - PUT (invx(inv), invy(inv)), invg2((inv - 1) * invgsize * 4 + invanim * 2 * invgsize), PSET - END IF - END IF - - 'invader move sound - - invnoted = invnoted - 1 - IF invnoted = 0 THEN - IF invnotes THEN - IF invleft > 11 THEN - sbvoiceoff invvoice - END IF - invnoted = invleft - invnotelength - IF invnoted < 1 THEN - invnoted = 1 - END IF - ELSE - IF invleft > 0 AND NOT dying AND NOT endinglevel THEN - sbplaynote invvoice, 1, invnote(invnote) - invnote = (invnote + 1) AND 3 - END IF - invnoted = invnotelength - END IF - invnotes = NOT invnotes - END IF - - 'drop bomb - - IF NOT dying AND NOT endinglevel THEN - IF numbombs < maxbombs AND RND * 100 > bombchance THEN - obstructed = false - FOR i = inv - 11 TO 1 STEP -11 - IF invs(i) THEN - obstructed = true - i = 1 - END IF - NEXT - IF NOT obstructed THEN - i = 1 - WHILE bombs(i) - i = i + 1 - WEND - bombx(i) = invx(inv) + 5 - bomby(i) = invy(inv) + 8 - bombs(i) = true - IF RND * 100 > 85 THEN - bombtype(i) = 1 - ELSE - bombtype(i) = 0 - END IF - numbombs = numbombs + 1 - END IF - END IF - END IF - - 'move bombs - - FOR i = 1 TO maxbombs - IF bombs(i) THEN - LINE (bombx(i), bomby(i))-STEP(2, 4), crtcolour, BF - IF bombtype(i) = 0 THEN - bomby(i) = bomby(i) + 1 - ELSE - bomby(i) = bomby(i) + 2 - END IF - a = POINT(bombx(i), bomby(i) + 5) - b = POINT(bombx(i) + 2, bomby(i) + 5) - IF bomby(i) > 194 THEN - bombs(i) = false - numbombs = numbombs - 1 - ELSEIF a = sheltercolour OR b = sheltercolour THEN - ErodeShelter bombx(i), bomby(i) + 7 - bombs(i) = false - numbombs = numbombs - 1 - ELSEIF a = shipcolour OR b = shipcolour THEN - bombs(i) = false - numbombs = numbombs - 1 - DisplayLife lives, false - LINE (shipx, shipy)-STEP(shipwidth - 1, shipheight - 1), crtcolour, BF - sbvoiceoff invvoice - dying = true - deathroes = 0 - ELSE - PUT (bombx(i), bomby(i)), invbombg(bombtype(i) * invbombgsize), PSET - END IF - END IF - NEXT - - 'launch saucer - - IF NOT saucers AND NOT saucerdying THEN - IF saucercycles = 25 * 70 AND invleft > 9 THEN - IF RND > .5 THEN - saucerx = screenorgx - saucerdx = 1 - ELSE - saucerx = screenorgx + screenwidth - saucerwidth - saucerdx = -1 - END IF - saucernote = &H202 - saucerd = 1 - saucers = true - saucercount = saucercount + 1 - END IF - END IF - - 'move saucer - - IF saucers THEN - saucerd = saucerd - 1 - IF saucerd = 0 THEN - LINE (saucerx, saucery)-STEP(saucerwidth - 1, saucerheight - 1), crtcolour, BF - saucerx = saucerx + saucerdx - IF saucerx > screenorgx + screenwidth - saucerwidth OR saucerx < screenorgx THEN - sbvoiceoff saucervoice - saucers = false - saucercycles = 0 - ELSE - PUT (saucerx, saucery), saucerg(0), PSET - saucernote = saucernote - 15 - IF saucernote < &H1B0 THEN - saucernote = &H202 - END IF - sbplaynote saucervoice, 5, saucernote - saucerd = 2 - END IF - END IF - END IF - - 'explode saucer - - IF saucerdying THEN - saucerdeathroes = saucerdeathroes - 1 - IF saucerdeathroes = 0 THEN - LINE (saucerx, saucery)-STEP(3 * 8, 1 * 9), crtcolour, BF - sbvoiceoff saucervoice - saucercycles = 0 - saucerdying = false - ELSE - saucernote = saucernote + 4 - IF saucernote > &H202 THEN - saucernote = &H1B0 - END IF - sbplaynote saucervoice, 4, saucernote - END IF - END IF - - 'move player and fire bullet - - IF NOT dying THEN - k = PEEK(&H417) - LINE (shipx, shipy)-STEP(14, 7), crtcolour, BF - IF (k AND 4) AND shipx > shipminx THEN shipx = shipx - 1 - IF (k AND 8) AND shipx < shipmaxx THEN shipx = shipx + 1 - PUT (shipx, shipy), shipg, PSET - IF canfire AND (k AND 1) AND (bullets = false) AND (invzapticks = 0) THEN - bulletx = shipx + 7 - bullety = shipy - bulletheight - bulletsound = true - bulletsoundd = 10 - bullets = true - shots = shots + 1 - END IF - canfire = (bullets = false) AND (invzapticks = 0) AND (k AND 1) = 0 - END IF - - 'move bullet - - IF bullets THEN - LINE (bulletx, bullety)-STEP(0, bulletheight), crtcolour - bullety = bullety - bulletd - IF bulletsound THEN - bulletsoundd = bulletsoundd - 1 - IF bulletsoundd = 0 THEN - sbvoiceoff bulletvoice - bulletsound = false - ELSE - sbplaynote bulletvoice, 5, RND * 255 + 256 - END IF - END IF - IF bullety < saucery THEN - bullets = false - ELSE - a = POINT(bulletx, bullety) - b = POINT(bulletx, bullety + 2) - IF (a > 0 AND a < 111) OR (b > 0 AND b < 111) THEN - bulletsound = false - sbvoiceoff bulletvoice - IF a = crtcolour THEN a = b - a = (a - 1) \ 2 + 1 - invs(a) = false - invleft = invleft - 1 - invzapx = invx(a) - invzapy = invy(a) - LINE (invzapx, invzapy)-STEP(invwidth - 1, invheight - 1), crtcolour, BF - IF invzapy < sheltery - invheight THEN - PUT (invzapx, invzapy), invexpg(0), PSET - ELSEIF invzapy < sheltery THEN - PUT (invzapx, invzapy), invexpg(invgsize), PSET - ELSE - PUT (invzapx, invzapy), invexpg(2 * invgsize), PSET - END IF - invzapticks = invzaptime - IF invleft > 11 THEN - invnotelength = 12 - ELSEIF invleft > 0 THEN - invnotelength = VAL("&H" + MID$("6778899AABB", invleft, 1)) - ELSE - sbvoiceoff invvoice - END IF - SELECT CASE a - CASE 1 TO 22 - IncScore 10 - CASE 23 TO 44 - IncScore 20 - CASE ELSE - IncScore 30 - END SELECT - bullets = false - ELSEIF a = sheltercolour THEN - ErodeShelter bulletx, bullety - bulletsound = false - sbvoiceoff bulletvoice - bullets = false - ELSEIF a = saucercolour OR b = saucercolour THEN - LINE (saucerx, saucery)-STEP(saucerwidth - 1, saucerheight - 1), crtcolour, BF - IF (shots = 23 AND saucercount = 1) OR (shots = 15 AND saucercount >= 2) THEN - saucerscore = 300 - ELSE - saucerscore = INT(RND * 3 + 1) * 50 - END IF - Display saucerx - screenorgx, saucery, MID$(STR$(saucerscore), 2) - IncScore saucerscore - saucers = false - saucerdying = true - saucerdeathroes = 120 - saucernote = &H1B0 - bullets = false - shots = 0 - ELSE - LINE (bulletx, bullety)-STEP(0, bulletheight), bulletcolour - END IF - END IF - END IF - - 'explode ship - - IF dying THEN - deathroes = deathroes + 1 - IF deathroes < 130 OR numbombs > 0 THEN - LINE (shipx, shipy)-STEP(shipwidth - 1, shipheight - 1), crtcolour, BF - PUT (shipx, shipy), shipexpg((deathroes AND 4) / 4 * shipgsize), PSET - sbplaynote shipexpvoice, 1, RND * 255 + &H100 - ELSE - sbvoiceoff shipexpvoice - sbvoiceoff saucervoice - LINE (shipx, shipy)-STEP(shipwidth - 1, shipheight - 1), crtcolour, BF - dying = false - lives = lives - 1 - IF lives = 0 THEN - sbvoiceoff invvoice - gameover = true - ELSE - shipx = shipminx - shipy = 199 - shipheight * 2 - Delay 1 - END IF - END IF - END IF - - 'count down exploding invader - - IF invzapticks THEN - invzapticks = invzapticks - 1 - sbplaynote invzapvoice, 6, &H280 + invzapticks * 40 - IF invzapticks = 0 THEN - sbvoiceoff invzapvoice - LINE (invzapx, invzapy)-STEP(invwidth - 1, invheight - 1), crtcolour, BF - IF invleft = 0 THEN - endinglevel = true - endingleveld = 0 - END IF - END IF - END IF - - 'counting down at end of level - - IF endinglevel THEN - endingleveld = endingleveld + 1 - IF endingleveld > 200 AND numbombs = 0 AND NOT bullets AND dying = false THEN - LINE (shipx, shipy)-STEP(shipwidth - 1, shipheight - 1), crtcolour, BF - endinglevel = false - endlevel = true - END IF - END IF - - IF speedtest THEN - SetColour 0, 0, 0, 0 - END IF - - key$ = INKEY$ - switchoff = (key$ = CHR$(27)) - IF key$ = "=" THEN - speedtest = NOT speedtest - END IF - saucercycles = saucercycles + 1 - - WEND '(cycle) - - IF gameover THEN - a$ = "GAME OVER" - FOR i = 1 TO LEN(a$) - Display 10 * 8 + i * 8, 4 * 9, MID$(a$, i, 1) - Delay .15 - NEXT - Delay 3 - END IF - - IF endlevel THEN - DrawPlanet true - DrawShelters false - Delay .9 - level = level + 1 - IF level > 6 THEN - level = 6 - END IF - endlevel = false - END IF - - WEND '(level) - -WEND '(game/attract) - -FOR i = 1 TO 5 - sbvoiceoff i -NEXT -sbresetcard - -SYSTEM - - -DATA " # " -DATA " ### " -DATA " ### " -DATA " ############# " -DATA "###############" -DATA "###############" -DATA "###############" -DATA "###############" - -DATA " # " -DATA " # # # " -DATA " # # # " -DATA " # # # " -DATA " # ## # " -DATA "# ######## " -DATA " ########## " -DATA " ############ " - -DATA " # # # " -DATA " # " -DATA " # # # " -DATA " # # " -DATA " # ## # #" -DATA " ###### # " -DATA " ######## " -DATA " ############ " - -DATA " #### " -DATA " ########## " -DATA "############" -DATA "### ## ###" -DATA "############" -DATA " ## ## " -DATA " ## ## ## " -DATA "## ##" - -DATA " #### " -DATA " ########## " -DATA "############" -DATA "### ## ###" -DATA "############" -DATA " ### ### " -DATA " ## ## ## " -DATA " ## ## " - -DATA " # # " -DATA "# # # # " -DATA "# ####### # " -DATA "### ### ### " -DATA "########### " -DATA " ######### " -DATA " # # " -DATA " # # " - -DATA " # # " -DATA " # # " -DATA " ####### " -DATA " ## ### ## " -DATA "########### " -DATA "# ####### # " -DATA "# # # # " -DATA " ## ## " - -DATA " ## " -DATA " #### " -DATA " ###### " -DATA " ## ## ## " -DATA " ######## " -DATA " # # " -DATA " # ## # " -DATA " # # # # " - -DATA " ## " -DATA " #### " -DATA " ###### " -DATA " ## ## ## " -DATA " ######## " -DATA " # ## # " -DATA " # # " -DATA " # # " - -DATA " # # " -DATA " # # # #" -DATA " # # # " -DATA "### " -DATA " # ##" -DATA " ## # " -DATA " # # # " -DATA " # # " - -DATA " # " -DATA " # " -DATA " # " -DATA "###" -DATA " # " - -DATA " # " -DATA "# " -DATA " # " -DATA " #" -DATA " # " - -DATA " ###### " -DATA " ########## " -DATA " ############ " -DATA " ## ## ## ## ## " -DATA "################" -DATA " ### ## ### " -DATA " # # " - - -DATA " ################ " -DATA " ################## " -DATA " #################### " -DATA " ###################### " -DATA "########################" -DATA "########################" -DATA "########################" -DATA "########################" -DATA "########################" -DATA "########################" -DATA "########################" -DATA "########################" -DATA "####### #######" -DATA "###### ######" -DATA "##### #####" -DATA "##### #####" - -DATA A -DATA " # " -DATA " # # " -DATA "# #" -DATA "#####" -DATA "# #" -DATA "# #" -DATA "# #" - -DATA C -DATA " ### " -DATA "# #" -DATA "# " -DATA "# " -DATA "# " -DATA "# #" -DATA " ### " - -DATA E -DATA "#####" -DATA "# " -DATA "# " -DATA "#### " -DATA "# " -DATA "# " -DATA "#####" - -DATA G -DATA " ### " -DATA "# #" -DATA "# " -DATA "# ###" -DATA "# #" -DATA "# #" -DATA " ### " - -DATA I -DATA " ### " -DATA " # " -DATA " # " -DATA " # " -DATA " # " -DATA " # " -DATA " ### " - -DATA L -DATA "# " -DATA "# " -DATA "# " -DATA "# " -DATA "# " -DATA "# " -DATA "#####" - -DATA M -DATA "# #" -DATA "## ##" -DATA "# # #" -DATA "# # #" -DATA "# #" -DATA "# #" -DATA "# #" - -DATA O -DATA " ### " -DATA "# #" -DATA "# #" -DATA "# #" -DATA "# #" -DATA "# #" -DATA " ### " - -DATA R -DATA "#### " -DATA "# #" -DATA "# #" -DATA "#### " -DATA "# # " -DATA "# # " -DATA "# #" - -DATA S -DATA " ### " -DATA "# #" -DATA "# " -DATA " ### " -DATA " #" -DATA "# #" -DATA " ### " - -DATA V -DATA "# #" -DATA "# #" -DATA "# #" -DATA "# #" -DATA "# #" -DATA " # # " -DATA " # " - -DATA 0 -DATA " ### " -DATA "# #" -DATA "# ##" -DATA "# # #" -DATA "## #" -DATA "# #" -DATA " ### " - -DATA 1 -DATA " # " -DATA " ## " -DATA " # " -DATA " # " -DATA " # " -DATA " # " -DATA " ### " - -DATA 2 -DATA " ### " -DATA "# #" -DATA " #" -DATA " ### " -DATA "# " -DATA "# " -DATA "#####" - -DATA 3 -DATA " ### " -DATA "# #" -DATA " #" -DATA " ## " -DATA " #" -DATA "# #" -DATA " ### " - -DATA 4 -DATA "# " -DATA "# " -DATA "# # " -DATA "#####" -DATA " # " -DATA " # " -DATA " # " - -DATA 5 -DATA "#####" -DATA "# " -DATA "#### " -DATA " #" -DATA " #" -DATA "# #" -DATA " ### " - -DATA 6 -DATA " ### " -DATA "# #" -DATA "# " -DATA "#### " -DATA "# #" -DATA "# #" -DATA " ### " - -DATA 7 -DATA "#####" -DATA " #" -DATA " # " -DATA " # " -DATA " # " -DATA " # " -DATA " # " - -DATA 8 -DATA " ### " -DATA "# #" -DATA "# #" -DATA " ### " -DATA "# #" -DATA "# #" -DATA " ### " - -DATA 9 -DATA " ### " -DATA "# #" -DATA "# #" -DATA " ####" -DATA " #" -DATA "# #" -DATA " ### " - -FUNCTION ArrayBytes (x, y) - -ArrayBytes = 4 + INT(((PMAP(x, 0) - PMAP(0, 0) + 1) * 8 + 7) / 8) * (PMAP(y, 1) - PMAP(0, 1) + 1) - -END FUNCTION - -SUB ClearScreen - -SHARED screenwidth, screenorgx, crtcolour - -LINE (0, 0)-(319, 199), 0, BF -LINE (screenorgx, 0)-STEP(screenwidth, 199), crtcolour, BF - -END SUB - -SUB ClearScreenToCRT - -SHARED crtcolour - -LINE (0, 0)-(319, 199), crtcolour, BF - -END SUB - -SUB DefineGraphics - -SHARED shipwidth, shipheight, shipgsize, shipg(), shipexpg() -SHARED invwidth, invheight, invgsize, invg(), invg2() -SHARED invexpg(), invbombheight, invbombgsize, invbombg() -SHARED saucerwidth, saucerheight, saucerg() -SHARED shelterwidth, shelterheight, shelterg() -SHARED chargsize, charset() - -SHARED shipcolour, bulletcolour, bombcolour, shipexplodecolour -SHARED sheltercolour, textcolour, invexplodewhitecolour -SHARED invexplodegreencolour, saucercolour, crtcolour - -'define ship - -ClearScreenToCRT -FOR y = 1 TO shipheight - READ a$ - FOR x = 1 TO shipwidth - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), shipcolour - NEXT -NEXT -GET (1, 1)-STEP(shipwidth - 1, shipheight - 1), shipg(0) - -'define ship explosion - -FOR i = 1 TO 2 - LINE (1, 1)-STEP(shipwidth - 1, shipheight - 1), crtcolour, BF - FOR y = 1 TO shipheight - READ a$ - FOR x = 1 TO shipwidth - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), shipexplodecolour - NEXT - NEXT - GET (1, 1)-STEP(shipwidth - 1, shipheight - 1), shipexpg((i - 1) * shipgsize) -NEXT - -'define invaders - -ClearScreenToCRT -FOR invtype = 0 TO 2 - FOR anim = 0 TO 1 - LINE (1, 1)-STEP(invwidth - 1, invheight - 1), crtcolour, BF - FOR y = 1 TO invheight - READ a$ - FOR x = 1 TO invwidth - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), 255 - NEXT - NEXT - IF invtype = 2 THEN rows = 1 ELSE rows = 2 - FOR inv = invtype * 22 TO invtype * 22 + rows * 11 - 1 - arraypointer = inv * invgsize * 4 + anim * invgsize * 2 - invcolour = inv * 2 + 1 - SetColour invcolour, 63, 63, 63 - SetColour invcolour + 1, 0, 63, 0 - FOR y = 1 TO invheight - FOR x = 1 TO invwidth - IF POINT(x, y) <> crtcolour THEN PSET (x, y), invcolour - NEXT - NEXT - GET (1, 1)-STEP(invwidth - 1, invheight - 1), invg(arraypointer) - FOR y = 5 TO invheight - FOR x = 1 TO invwidth - IF POINT(x, y) <> crtcolour THEN PSET (x, y), invcolour + 1 - NEXT - NEXT - GET (1, 1)-STEP(invwidth - 1, invheight - 1), invg(arraypointer + invgsize) - FOR y = 1 TO 4 - FOR x = 1 TO invwidth - IF POINT(x, y) <> crtcolour THEN PSET (x, y), invcolour + 1 - NEXT - NEXT - GET (1, 1)-STEP(invwidth - 1, invheight - 1), invg2(arraypointer) - NEXT - NEXT -NEXT - -'define invader explosion - -ClearScreenToCRT -FOR y = 1 TO invheight - READ a$ - FOR x = 1 TO invwidth - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), invexplodewhitecolour - NEXT -NEXT -GET (1, 1)-STEP(invwidth - 1, invheight - 1), invexpg(0) -FOR y = 5 TO invheight - FOR x = 1 TO invwidth - IF POINT(x, y) <> crtcolour THEN PSET (x, y), invexplodegreencolour - NEXT -NEXT -GET (1, 1)-STEP(invwidth - 1, invheight - 1), invexpg(invgsize) -FOR y = 1 TO 4 - FOR x = 1 TO invwidth - IF POINT(x, y) <> crtcolour THEN PSET (x, y), invexplodegreencolour - NEXT -NEXT -GET (1, 1)-STEP(invwidth - 1, invheight - 1), invexpg(2 * invgsize) - -'define bombs - -ClearScreenToCRT -FOR i = 1 TO 2 - FOR y = 1 TO invbombheight - READ a$ - FOR x = 1 TO 3 - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), bombcolour - NEXT - NEXT - GET (1, 1)-STEP(2, invbombheight - 1), invbombg((i - 1) * invbombgsize) - ClearScreenToCRT -NEXT - -'define saucer - -ClearScreenToCRT -FOR y = 1 TO saucerheight - READ a$ - FOR x = 1 TO saucerwidth - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), saucercolour - NEXT -NEXT -GET (1, 1)-STEP(saucerwidth, saucerheight), saucerg(0) - -'define shelter - -ClearScreenToCRT -FOR y = 1 TO shelterheight - READ a$ - FOR x = 1 TO shelterwidth - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), sheltercolour - NEXT -NEXT -GET (1, 1)-STEP(shelterwidth - 1, shelterheight - 1), shelterg(0) - -'define character set - -ClearScreenToCRT -FOR i = 1 TO 21 - READ a$ - a = ASC(a$) - FOR y = 1 TO 7 - READ a$ - FOR x = 1 TO 5 - IF MID$(a$, x, 1) = "#" THEN PSET (x, y), textcolour - NEXT - NEXT - GET (1, 1)-STEP(4, 7), charset((a - 48) * chargsize) - LINE (1, 1)-STEP(4, 7), crtcolour, BF -NEXT - -ClearScreenToCRT - -END SUB - -SUB Delay (seconds!) - -SHARED true, switchoff - -t# = TIMER -DO - IF INKEY$ = CHR$(27) THEN - switchoff = true - END IF -LOOP UNTIL TIMER > t# + seconds! OR switchoff - -END SUB - -SUB Display (x, y, a$) - -SHARED screenorgx, chargsize, charset(), crtcolour - -FOR i = 1 TO LEN(a$) - LINE (screenorgx + x + (i - 1) * 8, y)-STEP(5, 7), crtcolour, BF - a = ASC(MID$(a$, i)) - IF a <> 32 THEN - PUT (screenorgx + x + (i - 1) * 8, y), charset((a - 48) * chargsize), PSET - END IF -NEXT - -END SUB - -SUB DisplayLife (life, visible) - -SHARED screenorgx, shipwidth, shipheight, shipg(), crtcolour - -IF visible THEN - PUT (screenorgx + 16 * 8 + (life - 1) * shipwidth * 1.5, 1.5 * 8), shipg(0), PSET - ELSE - LINE (screenorgx + 16 * 8 + (life - 1) * shipwidth * 1.5, 1.5 * 8)-STEP(shipwidth, shipheight), crtcolour, BF -END IF - -END SUB - -SUB DisplayScore - -SHARED score - -Display 0, 1 * 9, RIGHT$("000" + MID$(STR$(score), 2), 4) - -END SUB - -SUB DrawPlanet (visible) - -SHARED screenwidth, screenorgx, planetcolour, crtcolour - -IF visible THEN - LINE (screenorgx, 199)-STEP(screenwidth - 1, 0), planetcolour - ELSE - LINE (screenorgx, 199)-STEP(screenwidth - 1, 0), crtcolour -END IF - -END SUB - -SUB DrawShelters (visible) - -SHARED shipwidth, sheltery, shelterwidth, shelterheight, shelterg() -SHARED shipminx, shipmaxx, crtcolour - -shelterspace = (shipmaxx + shipwidth - shipwidth * .9) - (shipminx + shipwidth * .9) -xstep = (shelterspace - 4 * shelterwidth) / 3 + shelterwidth - -FOR i = 0 TO 3 - x = shipminx + shipwidth * .9 + i * xstep - IF visible THEN - PUT (x, sheltery), shelterg(0), PSET - ELSE - LINE (x, sheltery)-STEP(shelterwidth - 1, shelterheight - 1), crtcolour, BF - END IF -NEXT - -END SUB - -SUB ErodeShelter (x, y) - -SHARED damagex(), damagey(), damagecounter, crtcolour - -FOR i = 1 TO 35 - PSET (x + damagex(damagecounter + i) - 2, y + damagey(damagecounter + i + 1) - 4), crtcolour -NEXT -damagecounter = damagecounter + 20 -IF damagecounter > 255 - i THEN - damagecounter = 0 -END IF - -END SUB - -SUB IncScore (scoregain) - -SHARED true, score, lives - -score = score + scoregain -IF score >= 1000 AND score < 1000 + scoregain THEN - lives = lives + 1 - DisplayLife lives, true -END IF - -DisplayScore - -END SUB - -SUB sbmodulate (voice, volume) - -sbwritereg &H40 + sbvoicetoreg(voice), &H3F - volume - -END SUB - -SUB sbplaynote (voice, octave, note) - -sbwritereg &HA0 - 1 + voice, note AND 255 -sbwritereg &HB0 - 1 + voice, &H20 OR (octave * 4) OR ((note AND &H300) / 256) - -END SUB - -SUB sbresetcard - -FOR i = 1 TO &HF5 - sbwritereg i, 0 -NEXT - -END SUB - -SUB sbsetupvoice (voice) - -'Sets up one voice. - -'Modulator volume = silent -'Modulator attack = fastest -'Modulator decay = slowest -'Modulator sustain = medium -'Modulator release = medium -'Tone volume = loudest -'Tone attack = fastest -'Tone decay = slowest -'Tone sustain = medium -'Tone release = medium - -sbwritereg &H20 + sbvoicetoreg(voice), &H1 -sbwritereg &H40 + sbvoicetoreg(voice), &H3F -sbwritereg &H60 + sbvoicetoreg(voice), &HF0 -sbwritereg &H80 + sbvoicetoreg(voice), &H77 -sbwritereg &H23 + sbvoicetoreg(voice), &H1 -sbwritereg &H43 + sbvoicetoreg(voice), &H0 -sbwritereg &H63 + sbvoicetoreg(voice), &HF0 -sbwritereg &H83 + sbvoicetoreg(voice), &H77 - -END SUB - -SUB sbvoiceoff (voice) - -sbwritereg &HB0 - 1 + voice, 0 - -END SUB - -FUNCTION sbvoicetoreg (voice) - -IF voice <= 3 THEN - offset = -1 - ELSEIF voice <= 6 THEN - offset = 4 - ELSE - offset = 9 -END IF - -sbvoicetoreg = voice + offset - -END FUNCTION - -SUB sbvolume (voice, volume) - -sbwritereg &H43 + sbvoicetoreg(voice), &H3F - volume - -END SUB - -SUB sbwritereg (register, byte) - -OUT &H388, register -FOR i = 1 TO 6 - a = INP(&H388) -NEXT -OUT &H389, byte -FOR i = 1 TO 35 - a = INP(&H388) -NEXT - -END SUB - -SUB SetColour (colour, r, g, b) - -OUT &H3C6, &HFF -OUT &H3C8, colour -OUT &H3C9, r -OUT &H3C9, g -OUT &H3C9, b - -END SUB - diff --git a/programs/samples/pete/invader1/readme.txt b/programs/samples/pete/invader1/readme.txt deleted file mode 100644 index cfcd1d29f..000000000 --- a/programs/samples/pete/invader1/readme.txt +++ /dev/null @@ -1,153 +0,0 @@ -Taito's Space Invaders - - - ## The Invaders march ... - #### Bom bom bom bom ... - ###### Left, right, fire! - ## ## ## Faster, faster they march ... - ######## Suddenly you're 11 again! - # # Dodge the bombs ... - # ## # They're turning green ... - # # # # Get them before they land! - - -A version of Taito's original Space Invaders(TM) for the PC - -anarky, April 2005 - -http://www.anarky.tk/ -anarkynet@hotmail.com - -Disclaimer - -This game is mailware. That is, it's free to use and distribute anywhere you -like, but only on condition that you keep the two files together and that you -don't charge any payment for it. Also, when you download it, email me on the -above address. - -Also, I cannot be held responsible if this program does anything nasty to your -machine. It hasn't damaged anyone's PC that I'm aware of and there's no reason -why it should, really. - - -Playing - -Start QuickBasic and load invader1.bas. Now press F5. - -Left - Left CTRL -Right - Left ALT -Fire - Right SHIFT -Stop program - Esc - - -History - -What's to be said? I remember as a kid playing the original on the big consoles. -So I thought, "Why not port it to the PC?" Heh, so I did. - - -Needs - -Basically, don't worry - it'll almost certainly work on your PC. - -Requires: ---------- - -DOS - tested with MS-DOS 7.1 and Windows 95. No known lower limit. I don't -know if it works with Windows 2000 or Windows ME. - -VGA - tested with generic standard low-grade video card. It uses screen 13: -320x200x256, so it should work on yours no matter what it is. - -Supports: ---------- - -Soundblaster - tested with AWE32. Make sure you've got your soundcard driver -set up for DOS (e.g. if you have a Soundblaster, a line starting 'SET BLASTER=' in your -c:\autoexec.bat file). - - -Technical - -Uses ports: ------------ - -&H3DA - for vertical retrace - -&H388 -&H389 - for Adlib sound - -&H3C6 -&H3C8 -&H3C9 - for palette setting - -Uses memory locations: ----------------------- - -&H417 - to read the keyboard - -Machine speed requirements: ---------------------------- - -Should run at full speed on any x86 processor. - -When interpreted, rather than compiled, the program does all its work -within 15% of the vertical retrace cycle on a 486DX/66. The compiled -version should keep up with the vertical retrace on an 8086. - -If you press the '=' key, the game will display how much of the vertical -retrace time the game takes up each cycle. Exciting, eh? - -Unknown requirements: ---------------------- - -Base memory - tested with 479K free base memory -Memory manager - tested with himem.sys and emm386.exe - - -Notes - -1. The program does not attempt to detect a soundcard; it assumes a -Soundblaster is installed. Apparently it works ok on machines without a -soundcard, but I can't guarantee it'll work on yours. - -2. The player's bullet fire and explosion sound effects are pretty -dismal. But so were the original sound effects. - -3. The demo mode is none. I might add one in future. - -4. The program simulates a monitor 256 pixels wide, as per the original (I -think). The background colour for this is set to a dark grey to attempt to -simulate a little bit of monitor wear and burn-in. I found the jet black of a -modern PC monitor was not quite authentic enough :-) If you cannot see the -grey background, try increasing your brightness and contrast controls. - -5. There's no high-score table, because the original game didn't have one. - -6. You can't re-assign the keys and it doesn't work with a joystick, sorry. - -7. Quake it ain't. It's just a nostalgia trip. - - -Source Notes - -The file invader1.bas is the source code for the game. It's for QBASIC and it -compiles with QuickBasic 4.5. It runs, interpreted, within QBASIC easily at -full speed on a 486/66, probably on lower-powered machines, too. - -The code is reasonably structured. I tend to suffix variables with "s" -to mean "status", so the variable 'saucers' means 'saucer status'. - -The SUBs and FUNCTIONs that start with "sb", e.g. "sbreset" are general- -purpose SoundBlaster routines that can be plugged into any program -without modification. - -What else? Well, not much - it's a very simple program. Hope you find -it useful, though, if you're into this sort of thing! - - -History - -v1 - Feb 2002 ---------------- -Version 1.0 ;) \ No newline at end of file diff --git a/programs/samples/pete/kbdparse.bas b/programs/samples/pete/kbdparse.bas deleted file mode 100644 index 64c2e4641..000000000 --- a/programs/samples/pete/kbdparse.bas +++ /dev/null @@ -1,104 +0,0 @@ -'*************************************************************************** -'* -'* Keyboard input parsing routine -'* -'* The idea here was to create a program that will capture input from the -'* keyboard and convert it into a list of words as individual strings as -'* the user enters text from the keyboard. Exit from the program occurs -'* when a carraige return is encountered. -'* -'* Using the backspace key will back up thru the text that was entered, but -'* for some reason it takes three key presses of backspace to go past a word -'* boundry. The function works so I didn't worry about it. -'* -'* -'* -'* Placed in the public domain by -'* William W. Sindel -'* April 6, 2005 -'* Version 1.0 -'* -'*************************************************************************** - - - -PRGSTART: - DIM word$(30) '* Max number of words we can parse - CLS '* - PRINT "start": PRINT '* Just show us where we start - WX = 1 '* Set word counter var to 1 - -GETKEY: - IF WX < 1 THEN WX = 1 '* To many backspaces would push - '* would push wx out of range - KB$ = INKEY$ '* - IF KB$ <> "" THEN GOTO printit '* Loop here until a key is pressed - GOTO GETKEY - -printit: - TESTNUM = ASC(KB$) '* Find the numeric value of the - IF TESTNUM = 13 THEN GOTO ENDGET '* key that was pressed. This will - '* let us identify carraige returns - '* 13 = carraige return - - - '* Check for backspace key - IF TESTNUM <> 8 THEN GOTO SKIPBACK - - '* - '* When backspace key pushes past a - '* word boundry - IF word$(WX) = "" THEN WX = WX - 1: GOTO GETKEY - - WL = LEN(word$(WX)) '* Find the length of the word - WL = WL - 1 '* Shorten the wordlength by one char - TW$ = word$(WX) '* Get string out of the array - TW$ = LEFT$(TW$, WL) '* Shorten the string - word$(WX) = TW$ '* Put the string back in the array - KB$ = "" '* Get rid of the backspace char - GOTO RFRSH '* Update the screen - - -SKIPBACK: '* Don't accept special characters - IF TESTNUM < 32 OR TESTNUM > 122 THEN GOTO GETKEY - - - '* Convert lower case to upper - IF KB$ >= "a" AND KB$ <= "z" THEN KB$ = CHR$(ASC(KB$) - 32) - - word$(WX) = word$(WX) + KB$ '* Build the word - '* 13 = no leading spaces - IF word$(1) = " " THEN word$(1) = "": GOTO GETKEY - '* Start the next word - IF KB$ = " " THEN WX = WX + 1: GOTO GETKEY - - -RFRSH: '* Loop thru the array to display - FOR J = 1 TO WX '* the words as they are parsed - LOCATE 10 + J, 1 - PRINT SPC(78); - LOCATE 10 + J, 1 - PRINT word$(J) - NEXT J - - - - GOTO GETKEY '* Go get another character - - - -ENDGET: - - LOCATE 35, 1 '* When a carraige return is - FOR J = 1 TO WX '* detected print out the words - PRINT word$(J); '* as a sentence - NEXT J - - INPUT KB$ '* This will leave the results on - '* the screen until a carraige - '* is entered - - - END - - \ No newline at end of file diff --git a/programs/samples/pete/lineswin.bas b/programs/samples/pete/lineswin.bas deleted file mode 100644 index 08ad77ada..000000000 --- a/programs/samples/pete/lineswin.bas +++ /dev/null @@ -1,68 +0,0 @@ -'************************************************ -'* -'* This program simulates a swinging motion -'* -'* "04 PMG -'* - -SCREEN 12 - -' VIEW (10, 10)-(300, 180), , 1 '341 -' PRINT "A big graphics viewport"; -' cnt1 = cnt1 + 1 -' VIEW SCREEN (80, 80)-(200, 125), , 1 -' LOCATE 11, 11: PRINT "A small graphics viewport"; - -'SCREEN 12 - -x = 100 -y = 0 -radii = 10 -cnt = 1 -cnt2 = 0 -delay = 10000000 - -WHILE cnt > 0 -cnt2 = 0 -x = 0 -cnt = 0 -WHILE cnt2 < 5010 - -cnt2 = cnt2 + 1 - -xw = 200 * SIN(2 * pi + cnt2 / 50) -yw = 200 * SIN(2 * pi + cnt2 / 50) - -'PRINT "xw = ", xw -'WINDOW (0, 0)-(500 + xw, 400 + yw) - -VIEW (100, 100)-(500, 450), , 1 -LINE (200, 100)-(200, 100) - -WHILE delcnt > 0 -delcnt = delay - 1 -WEND - -CLS - -LINE (200, 100)-(posx, posy), 1 -CIRCLE (posx, posy), 20 -LINE (200, 100)-(posx2, posy), 2 -CIRCLE (posx2, posy), radii -LINE (200, 100)-(posx3, posy), 4 -CIRCLE (posx3, posy), 40 - -posx = 200 + (50 - x / 100) * SIN(2 * pi + x / 50) -posx2 = 200 + (100 - x / 100) * SIN(2 * pi + x / 60) -posx3 = 200 + (50 - x / 100) * SIN(2 * pi + x / 70) -posy = 300 + 10 * SIN(2 * pi + x / 100) -radii = 10 + 10 * SIN(2 * pi + x / 100) - -'PRINT "x = ", posx - -x = x + 1 -cnt = cnt + 1 - -WEND - -WEND \ No newline at end of file diff --git a/programs/samples/pete/makebig.bas b/programs/samples/pete/makebig.bas deleted file mode 100644 index 48e2a6e93..000000000 --- a/programs/samples/pete/makebig.bas +++ /dev/null @@ -1,34 +0,0 @@ -'MakeBig.bas: -'This program reads data statements and uses pset to draw the -'pixel color they represent.This is familiar to a few people -'but I altered it to make the image twice as large as it is normaly -CLS : SCREEN 12 -DATA 00,00,00,14,14,14,14,00,00,00 -DATA 00,14,14,14,14,14,14,14,14,00 -DATA 00,14,00,00,14,14,00,00,14,00 -DATA 14,14,00,00,14,14,00,00,14,14 -DATA 14,14,00,00,14,14,00,00,14,14 -DATA 14,00,14,14,14,14,14,14,00,14 -DATA 14,00,00,14,14,14,14,00,00,14 -DATA 00,14,00,00,00,00,00,00,14,00 -DATA 00,14,14,00,00,00,00,14,14,00 -DATA 00,00,00,14,14,14,14,00,00,00 -FOR y = 1 TO 20 STEP 2 - FOR x = 1 TO 20 STEP 2 - READ z - PSET (x, y), z - PSET (x + 1, y), z - PSET (x, y + 1), z - PSET (x + 1, y + 1), z - NEXT -NEXT -DIM g%(200) -GET (0, 0)-(20, 20), g% -LOCATE 1, 5 -INPUT "File: "; file$ -IF file$ = "" THEN END -OPEN file$ FOR BINARY AS #1 -FOR I = 0 TO 200 - PUT #1, , g%(I) -NEXT -CLOSE #1 \ No newline at end of file diff --git a/programs/samples/pete/monopoly/monopoly.bas b/programs/samples/pete/monopoly/monopoly.bas deleted file mode 100644 index c8700cadb..000000000 --- a/programs/samples/pete/monopoly/monopoly.bas +++ /dev/null @@ -1,3212 +0,0 @@ -DEFINT A-Z -DECLARE FUNCTION ak$ () -DECLARE FUNCTION chot (t) -DECLARE FUNCTION chou (t) -DECLARE FUNCTION cr (t) -DECLARE FUNCTION cw (t) -DECLARE FUNCTION di (d1, d2) -DECLARE FUNCTION lts$ (nu) -DECLARE FUNCTION ltsb$ (nu&) -DECLARE FUNCTION ner (dn, max) -DECLARE FUNCTION nerb& (dn, max&) -DECLARE FUNCTION nerk$ () -DECLARE FUNCTION txk$ () -DECLARE SUB act (rl, t) -DECLARE SUB ar (t) -DECLARE SUB auc (t) -DECLARE SUB b () -DECLARE SUB bca (t, houf, hotf) -DECLARE SUB box () -DECLARE SUB broke (t) -DECLARE SUB buhot (t) -DECLARE SUB buhou (t) -DECLARE SUB ce (dn, tx$) -DECLARE SUB chk (l, m, h) -DECLARE SUB clk (se!) -DECLARE SUB cont (t, nos) -DECLARE SUB crd () -DECLARE SUB dcha (t) -DECLARE SUB dche (t) -DECLARE SUB dy (wt) -DECLARE SUB fd (rl1, rl2, d1, d2, d3, d4) -DECLARE SUB gov (t) -DECLARE SUB inc (t) -DECLARE SUB init () -DECLARE SUB inv () -DECLARE SUB lil (wt) -DECLARE SUB lop (rl, t) -DECLARE SUB mb () -DECLARE SUB md () -DECLARE SUB mini (gr) -DECLARE SUB mob (t) -DECLARE SUB more (t) -DECLARE SUB mort (t) -DECLARE SUB move (dist, t) -DECLARE SUB noo (t) -DECLARE SUB opt (t) -DECLARE SUB p () -DECLARE SUB pay (t, cge) -DECLARE SUB pim (gr, l, m, h) -DECLARE SUB popp (t, cge) -DECLARE SUB quit () -DECLARE SUB rlc (t) -DECLARE SUB rules () -DECLARE SUB save (t) -DECLARE SUB scha () -DECLARE SUB sche () -DECLARE SUB short (t, l, m, h) -DECLARE SUB shot (t) -DECLARE SUB shou (t) -DECLARE SUB sml (wt) -DECLARE SUB swbd () -DECLARE SUB swbs () -DECLARE SUB tiny (wt) -DECLARE SUB tj (t) -DECLARE SUB tn (t) -DECLARE SUB trade () -DECLARE SUB unm (t) -DECLARE SUB upd () -DECLARE SUB utc (t) -DECLARE SUB vwd () -TYPE dd -ttl AS STRING * 21 -ab AS STRING * 5 -sty AS STRING * 1 -c AS INTEGER -r AS INTEGER -r1 AS INTEGER -r2 AS INTEGER -r3 AS INTEGER -r4 AS INTEGER -rhot AS INTEGER -bc AS INTEGER -hue AS INTEGER -od AS INTEGER -oa AS INTEGER -id AS INTEGER -ia AS INTEGER -bdn AS INTEGER -bac AS INTEGER -own AS INTEGER -stat AS INTEGER -mop AS INTEGER -hk AS INTEGER -END TYPE -TYPE pl -ft AS STRING * 8 -tk AS STRING * 1 -c AS LONG -whr AS INTEGER -jc AS INTEGER -dc AS INTEGER -chag AS INTEGER -cheg AS INTEGER -END TYPE -ON ERROR GOTO 1 -RANDOMIZE TIMER -DIM SHARED sf!, uf!, j, bn, x, q, fr&, bhu, bht, top(1 TO 6) AS STRING * 7, mdd(1 TO 6) AS STRING * 7, bot(1 TO 6) AS STRING * 7, cha(1 TO 16), che(1 TO 16), lot(39) AS dd, st(1 TO 2) AS pl -CLS -mb -md -swbd -cont t, nos -IF nos THEN -rules -bhu = 32 -bht = 12 -init -t = 1 -END IF -IF st(1).whr > -10 THEN -LOCATE lot(st(1).whr).od, lot(st(1).whr).oa -PRINT st(1).tk -END IF -IF st(2).whr > -10 THEN -LOCATE lot(st(2).whr).id, lot(st(2).whr).ia -PRINT st(2).tk -END IF -DO -IF st(t).whr > -10 THEN tn t ELSE tj t -t = 3 - t -LOOP -1 -SELECT CASE ERR -CASE 53 -nos = -1 -RESUME NEXT -CASE 255 -ce 10, "The save is faulty." -ce 11, "I will delete it." -p -nos = -1 -CLOSE -KILL "monopoly.dat" -RESUME NEXT -CASE ELSE -box -ce 5, "Crash " + lts(ERR) + " has happened." -ce 7, "Take note of what was going on just before the crash." -ce 9, "Contact me at grahambhg@yahoo.com," -ce 10, "and I will see what I can do." -crd -END SELECT -DATA ,,o,,,,,,,,,,23,78,21,72,, -DATA Mediterranean Avenue,MEDIT,b,60,2,10,30,90,160,250,50,5,23,68,21,68,22,65 -DATA ,,o,,,,,,,,,,23,61,21,61,, -DATA Baltic Avenue,BALTI,b,60,4,20,60,180,320,450,50,5,23,54,21,54,22,51 -DATA ,,o,,,,,,,,,,23,47,21,47,, -DATA Reading Railroad,READR,r,200,,25,50,100,200,,,7,23,40,21,40,, -DATA Oriental Avenue,ORIEN,b,100,6,30,90,270,400,550,50,11,23,33,21,33,22,30 -DATA ,,o,,,,,,,,,,23,26,21,26,, -DATA Vermont Avenue,VERMO,b,100,6,30,90,270,400,550,50,11,23,19,21,19,22,16 -DATA Conneticut Avenue,CONNE,b,120,8,40,100,300,450,600,50,11,23,12,21,12,22,9 -DATA ,,o,,,,,,,,,,23,2,21,8,, -DATA Saint Charles Place,STCHA,b,140,10,50,150,450,625,750,100,13,20,2,20,9,20,8 -DATA Electric Company,ELECT,u,150,,,,,,,,7,18,2,18,9,, -DATA States Avenue,STATE,b,140,10,50,150,450,625,750,100,13,16,2,16,9,16,8 -DATA Virginia Avenue,VIRGI,b,160,12,60,180,500,700,900,100,13,14,2,14,9,14,8 -DATA Pennsylvania Railroad,PENRR,r,200,,25,50,100,200,,,7,12,2,12,9,, -DATA Saint James Place,STJAM,b,180,14,70,200,550,750,950,100,12,10,2,10,9,10,8 -DATA ,,o,,,,,,,,,,8,2,8,9,, -DATA Tennessee Avenue,TENNE,b,180,14,70,200,550,750,950,100,12,6,2,6,9,6,8 -DATA New York Avenue,NEWYO,b,200,16,80,220,600,800,1000,100,12,4,2,4,9,4,8 -DATA ,,o,,,,,,,,,,1,2,3,8,, -DATA Kentucky Avenue,KENTU,b,220,18,90,250,700,875,1050,150,4,1,12,3,12,2,15 -DATA ,,o,,,,,,,,,,1,19,3,19,, -DATA Indiana Avenue,INDIA,b,220,18,90,250,700,875,1050,150,4,1,26,3,26,2,29 -DATA Illinois Avenue,ILLIN,b,240,20,100,300,750,925,1100,150,4,1,33,3,33,2,36 -DATA B. & O. Railroad,B&ORR,r,200,,25,50,100,200,,,7,1,40,3,40,, -DATA Atlantic Avenue,ATLAN,b,260,22,110,330,800,975,1150,150,14,1,47,3,47,2,50 -DATA Ventnor Avenue,VENTN,b,260,22,110,330,800,975,1150,150,14,1,54,3,54,2,57 -DATA Water Works,WATER,u,150,,,,,,,,7,1,61,3,61,, -DATA Marvin Gardens,MARVI,b,280,24,120,360,850,1025,1200,150,14,1,68,3,68,2,71 -DATA ,,o,,,,,,,,,,1,78,3,72,, -DATA Pacific Avenue,PACIF,b,300,26,130,390,900,1100,1275,200,10,4,78,4,71,4,72 -DATA North Carolina Avenue,NORTH,b,300,26,130,390,900,1100,1275,200,10,6,78,6,71,6,72 -DATA ,,o,,,,,,,,,,8,78,8,71,, -DATA Pennsylvania Avenue,PENAV,b,320,28,150,450,1000,1200,1400,200,10,10,78,10,71,10,72 -DATA Short Line,SHORT,r,200,,25,50,100,200,,,7,12,78,12,71,, -DATA ,,o,,,,,,,,,,14,78,14,71,, -DATA Park Place,PARKP,b,350,35,175,500,1100,1300,1500,200,9,16,78,16,71,16,72 -DATA ,,o,,,,,,,,,,18,78,18,71,, -DATA Boardwalk,BOARD,b,400,50,200,600,1400,1700,2000,200,9,20,78,20,71,20,72 - -SUB act (rl, t) -SELECT CASE st(t).whr -CASE 0 -ce 10, "You landed on Go." -IF bn THEN -st(t).c = st(t).c + 200 -ce 11, "Collect $400." -ELSE -ce 11, "Collect $200." -END IF -p -CASE 2, 17, 33 -dche t -CASE 4 -inc t -CASE 7, 22, 36 -dcha t -CASE 10 -ce 10, "Just visiting" -p -CASE 20 -ce 10, "Free Parking" -IF j THEN -ce 11, "You get $" + ltsb(fr&) -st(t).c = st(t).c + fr& -fr& = 500 -END IF -p -CASE 30 -ar t -CASE 38 -ce 10, "Luxury Tax. Pay $75." -p -pay t, 75 -IF j THEN fr& = fr& + 75 -p -CASE ELSE -lop rl, t -END SELECT -END SUB - -FUNCTION ak$ -DO -LOOP UNTIL INKEY$ = "" -DO -tx$ = LCASE$(INKEY$) -LOOP UNTIL tx$ > "" -ak = tx$ -END FUNCTION - -SUB ar (t) -ce 9, RTRIM$(st(t).ft) + " will be sent directly to Jail." -p -IF t = 1 THEN LOCATE lot(st(1).whr).od, lot(st(1).whr).oa ELSE LOCATE lot(st(2).whr).id, lot(st(2).whr).ia -PRINT " " -st(t).whr = -10 -st(t).dc = 0 -box -END SUB - -SUB auc (t) -lwst = INT(.5 + lot(st(t).whr).c / 10) -bj = INT(.5 + lwst / 2) -nw = lwst -box -COLOR lot(st(t).whr).hue -ce 5, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 6, RTRIM$(st(1).ft) + ", you have $" + ltsb(st(1).c) -ce 7, "Do I hear $" + lts(nw) + "?" -IF cr(1) + st(1).c >= nw THEN ce 8, "(Y/N)" ELSE ce 8, "press N to Not bid." -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "n" OR (yn$ = "y" AND cr(1) + st(1).c >= nw) -IF yn$ = "y" THEN -ce 10, " I hear $" + lts(nw) -nw = nw + bj -bidder = 1 -ELSE -ce 10, RTRIM$(st(1).ft) + " passes first bid." -END IF -clk .5 -box -COLOR lot(st(t).whr).hue -ce 5, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 6, RTRIM$(st(2).ft) + ", you have $" + ltsb(st(2).c) -ce 7, "Do I hear $" + lts(nw) + "?" -IF cr(2) + st(2).c >= nw THEN ce 8, "(Y/N)" ELSE ce 8, "press N to Not bid." -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "n" OR (yn$ = "y" AND cr(2) + st(2).c >= nw) -IF yn$ = "y" THEN -ce 10, " I hear $" + lts(nw) -nw = nw + bj -bidder = 2 -ELSE -ce 9, "Going, going, going..." -END IF -clk .5 -SELECT CASE bidder -CASE 0 -ce 11, "No sale!" -p -CASE 1 -pay 1, lwst -COLOR lot(st(t).whr).hue -ce 10, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -lot(st(t).whr).own = 1 -p -CASE 2 -who = 1 -DO -box -COLOR lot(st(t).whr).hue -ce 5, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 6, RTRIM$(st(who).ft) + ", you have $" + ltsb(st(who).c) -ce 7, "Do I hear $" + lts(nw) + "?" -IF cr(who) + st(who).c >= nw THEN ce 8, "(Y/N)" ELSE ce 8, "press N to Not bid." -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "n" OR (yn$ = "y" AND cr(who) + st(who).c >= nw) -IF yn$ = "y" THEN -ce 10, " I hear $" + lts(nw) -nw = nw + bj -bidder = who -ELSE -ce 9, "Going, going, going..." -done = -1 -END IF -clk .5 -who = 3 - who -LOOP UNTIL done -COLOR lot(st(t).whr).hue -ce 10, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -pay bidder, nw - bj -lot(st(t).whr).own = bidder -p -END SELECT -END SUB - -SUB b -DO -LOOP UNTIL INKEY$ = "" -FOR al = 300 TO 500 STEP 100 -SOUND al, 2 -NEXT -END SUB - -SUB bca (t, houf, hotf) -hss = chou(t) -hts = chot(t) -ce 8, RTRIM$(st(t).ft) + ", you have " + lts(hss) + " house(s) and " + lts(hts) + " hotel(s)." -fee = hss * houf + hts * hotf -ce 9, "$" + lts(fee) + " due." -p -IF fee = 0 THEN EXIT SUB -pay t, fee -p -IF j THEN fr& = fr& + fee -END SUB - -SUB box -COLOR 8 -ce 4, CHR$(201) + STRING$(59, 205) + CHR$(187) -FOR sides = 5 TO 17 -ce sides, CHR$(186) + SPACE$(59) + CHR$(186) -NEXT -ce 18, CHR$(204) + STRING$(8, 205) + CHR$(187) + SPACE$(50) + CHR$(186) -ce 19, CHR$(186) + SPACE$(8) + CHR$(186) + SPACE$(50) + CHR$(186) -ce 20, CHR$(200) + STRING$(8, 205) + CHR$(202) + STRING$(50, 205) + CHR$(188) -COLOR 6 -LOCATE 19, 11 -PRINT "JAIL:" -COLOR 15 -IF st(1).whr = -10 THEN -LOCATE 19, 16 -PRINT st(1).tk -END IF -IF st(2).whr = -10 THEN -LOCATE 19, 18 -PRINT st(2).tk -END IF -IF (NOT x) THEN -LOCATE 18, 61 -PRINT USING "houses:##"; bhu -END IF -IF (NOT x) THEN -LOCATE 19, 61 -PRINT USING "hotels:##"; bht -END IF -END SUB - -SUB broke (t) -DO -box -owe = ABS(st(t).c) -v = cr(t) -ce 5, RTRIM$(st(t).ft) + ", you need to raise $" + lts(ABS(owe)) -ce 6, "You can raise $" + lts(v) -IF owe > v THEN -ce 12, "YOU ARE BROKE!!" -ce 16, "press Q to Quit game" -DO -LOOP UNTIL INKEY$ = "" -DO -done$ = LCASE$(INKEY$) -LOOP UNTIL done$ = "q" -gov 3 - t -END IF -ce 9, "press 4 to mortgage properties" -ce 10, "press 5 to sell houses" -ce 11, "press 6 to sell hotels" -ce 13, "press 8 to see inventories" -ce 14, "press 9 to view deeds" -ce 16, "press Q to Quit game" -DO -LOOP UNTIL INKEY$ = "" -DO -wtn$ = LCASE$(INKEY$) -wtn = VAL(wtn$) -LOOP UNTIL wtn$ > "" -IF wtn$ = "q" THEN quit -SELECT CASE wtn -CASE 4 -mort t -CASE 5 -shou t -swbs -CASE 6 -shot t -swbs -CASE 8 -inv -CASE 9 -vwd -END SELECT -LOOP UNTIL st(t).c >= 0 -box -END SUB - -SUB buhot (t) -DIM gm(9) -gm(0) = -1 -box -IF lot(1).own = t AND lot(1).stat = 4 AND st(t).c >= 50 AND bht > 0 THEN -gm(1) = -1 -mini 1 -END IF -IF lot(6).own = t AND lot(6).stat = 4 AND st(t).c >= 50 AND bht > 0 THEN -gm(2) = -1 -mini 2 -END IF -IF lot(11).own = t AND lot(11).stat = 4 AND st(t).c >= 100 AND bht > 0 THEN -gm(3) = -1 -mini 3 -END IF -IF lot(16).own = t AND lot(16).stat = 4 AND st(t).c >= 100 AND bht > 0 THEN -gm(4) = -1 -mini 4 -END IF -IF lot(21).own = t AND lot(21).stat = 4 AND st(t).c >= 150 AND bht > 0 THEN -gm(5) = -1 -mini 5 -END IF -IF lot(26).own = t AND lot(26).stat = 4 AND st(t).c >= 150 AND bht > 0 THEN -gm(6) = -1 -mini 6 -END IF -IF lot(31).own = t AND lot(31).stat = 4 AND st(t).c >= 200 AND bht > 0 THEN -gm(7) = -1 -mini 7 -END IF -IF lot(37).own = t AND lot(37).stat = 4 AND st(t).c >= 200 AND bht > 0 THEN -gm(8) = -1 -mini 8 -END IF -ce 9, RTRIM$(st(t).ft) -ce 10, "Choose a monopoly to buy hotels for" -ce 11, "or 0 to continue" -DO -IF wlb > 0 AND (NOT q) THEN b -DO -LOOP UNTIL INKEY$ = "" -DO -wlb$ = INKEY$ -IF wlb$ = CHR$(13) THEN wlb$ = "0" -LOOP UNTIL wlb$ > "" -IF wlb$ >= "0" AND wlb$ <= "8" THEN wlb = VAL(wlb$) ELSE wlb = 9 -LOOP UNTIL gm(wlb) -IF wlb = 0 THEN EXIT SUB -box -ce 5, RTRIM$(st(t).ft) -pim wlb, l, m, h -SELECT CASE m -CASE 2 -IF lot(h).stat = 5 THEN max = 1 ELSE max = 2 -CASE ELSE -max = 3 -IF lot(h).stat = 5 THEN max = 2 -IF lot(m).stat = 5 THEN max = 1 -END SELECT -IF max > bht THEN max = bht -IF max > INT(st(t).c / lot(l).bc) THEN max = INT(st(t).c / lot(l).bc) -ce 7, "you can buy up to " + lts(max) + " hotel(s)." -ce 8, "or 0 to continue" -ce 10, "you have $" + ltsb(st(t).c) -ce 11, "hotels cost $" + lts(lot(l).bc) + " (plus four houses) each." -quan = ner(9, max) -IF quan = 0 THEN EXIT SUB -tot = lot(l).stat + lot(m).stat + lot(h).stat + quan -SELECT CASE m -CASE 2 -lot(h).stat = INT(tot / 2) -lot(l).stat = INT(tot / 2) -IF lot(h).stat + lot(l).stat < tot THEN lot(h).stat = lot(h).stat + 1 -CASE ELSE -lot(h).stat = INT(tot / 3) -lot(m).stat = INT(tot / 3) -lot(l).stat = INT(tot / 3) -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(h).stat = lot(h).stat + 1 -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(m).stat = lot(m).stat + 1 -END SELECT -pay t, lot(l).bc * quan -p -IF (NOT x) THEN -bht = bht - quan -bhu = bhu + quan * 4 -END IF -END SUB - -SUB buhou (t) -DIM gm(9) -gm(0) = -1 -box -IF lot(1).own = t AND lot(1).mop AND (NOT lot(1).hk) AND (NOT lot(3).hk) AND lot(1).stat < 4 AND st(t).c >= 50 AND bhu > 0 THEN -gm(1) = -1 -mini 1 -END IF -IF lot(6).own = t AND lot(6).mop AND (NOT lot(6).hk) AND (NOT lot(8).hk) AND (NOT lot(9).hk) AND lot(6).stat < 4 AND st(t).c >= 50 AND bhu > 0 THEN -gm(2) = -1 -mini 2 -END IF -IF lot(11).own = t AND lot(11).mop AND (NOT lot(11).hk) AND (NOT lot(13).hk) AND (NOT lot(14).hk) AND lot(11).stat < 4 AND st(t).c >= 100 AND bhu > 0 THEN -gm(3) = -1 -mini 3 -END IF -IF lot(16).own = t AND lot(16).mop AND (NOT lot(16).hk) AND (NOT lot(18).hk) AND (NOT lot(19).hk) AND lot(16).stat < 4 AND st(t).c >= 100 AND bhu > 0 THEN -gm(4) = -1 -mini 4 -END IF -IF lot(21).own = t AND lot(21).mop AND (NOT lot(21).hk) AND (NOT lot(23).hk) AND (NOT lot(24).hk) AND lot(21).stat < 4 AND st(t).c >= 150 AND bhu > 0 THEN -gm(5) = -1 -mini 5 -END IF -IF lot(26).own = t AND lot(26).mop AND (NOT lot(26).hk) AND (NOT lot(27).hk) AND (NOT lot(29).hk) AND lot(26).stat < 4 AND st(t).c >= 150 AND bhu > 0 THEN -gm(6) = -1 -mini 6 -END IF -IF lot(31).own = t AND lot(31).mop AND (NOT lot(31).hk) AND (NOT lot(32).hk) AND (NOT lot(34).hk) AND lot(31).stat < 4 AND st(t).c >= 200 AND bhu > 0 THEN -gm(7) = -1 -mini 7 -END IF -IF lot(37).own = t AND lot(37).mop AND (NOT lot(37).hk) AND (NOT lot(39).hk) AND lot(37).stat < 4 AND st(t).c >= 200 AND bhu > 0 THEN -gm(8) = -1 -mini 8 -END IF -ce 9, RTRIM$(st(t).ft) -ce 10, "Choose a monopoly to buy houses for" -ce 11, "or 0 to continue" -DO -IF wlb > 0 AND (NOT q) THEN b -DO -LOOP UNTIL INKEY$ = "" -DO -wlb$ = INKEY$ -IF wlb$ = CHR$(13) THEN wlb$ = "0" -LOOP UNTIL wlb$ > "" -IF wlb$ >= "0" AND wlb$ <= "8" THEN wlb = VAL(wlb$) ELSE wlb = 9 -LOOP UNTIL gm(wlb) -IF wlb = 0 THEN EXIT SUB -box -ce 5, RTRIM$(st(t).ft) -pim wlb, l, m, h -SELECT CASE m -CASE 2 -max = 8 - lot(l).stat - lot(h).stat -CASE ELSE -max = 12 - lot(l).stat - lot(m).stat - lot(h).stat -END SELECT -IF max > bhu THEN max = bhu -IF max > INT(st(t).c / lot(l).bc) THEN max = INT(st(t).c / lot(l).bc) -ce 7, "you can buy up to " + lts(max) + " house(s)." -ce 8, "or 0 to continue" -ce 10, "you have $" + ltsb(st(t).c) -ce 11, "houses cost $" + lts(lot(l).bc) + " each." -quan = ner(9, max) -IF quan = 0 THEN EXIT SUB -tot = lot(l).stat + lot(m).stat + lot(h).stat + quan -SELECT CASE m -CASE 2 -lot(h).stat = INT(tot / 2) -lot(l).stat = INT(tot / 2) -IF lot(h).stat + lot(l).stat < tot THEN lot(h).stat = lot(h).stat + 1 -CASE ELSE -lot(h).stat = INT(tot / 3) -lot(m).stat = INT(tot / 3) -lot(l).stat = INT(tot / 3) -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(h).stat = lot(h).stat + 1 -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(m).stat = lot(m).stat + 1 -END SELECT -pay t, lot(l).bc * quan -p -IF (NOT x) THEN bhu = bhu - quan -END SUB - -SUB ce (dn, tx$) -LOCATE dn, 40 - INT(LEN(tx$) / 2) -PRINT tx$ -END SUB - -SUB chk (l, m, h) -IF lot(l).own = lot(m).own AND lot(m).own = lot(h).own AND lot(l).own > 0 THEN -lot(l).mop = -1 -lot(m).mop = -1 -lot(h).mop = -1 -ELSE -lot(l).mop = 0 -lot(m).mop = 0 -lot(h).mop = 0 -END IF -END SUB - -FUNCTION chot (t) -FOR sq = 1 TO 39 -IF lot(sq).sty = "b" AND lot(sq).own = t AND lot(sq).stat = 5 THEN ced = ced + 1 -NEXT -chot = ced -END FUNCTION - -FUNCTION chou (t) -FOR sq = 1 TO 39 -IF lot(sq).sty = "b" AND lot(sq).own = t AND lot(sq).stat < 5 THEN ced = ced + lot(sq).stat -NEXT -chou = ced -END FUNCTION - -SUB clk (se!) -start# = TIMER -DO -IF se! >= .1 THEN -DO -LOOP UNTIL INKEY$ = "" -END IF -LOOP UNTIL TIMER < start# OR TIMER - start# >= se! -END SUB - -SUB cont (t, nos) -OPEN "monopoly.dat" FOR INPUT AS #1 -IF (NOT nos) THEN -ce 5, "I found a save." -ce 7, "Do you want to continue prior game? (Y/N)" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 8, UCASE$(yn$) -p -IF yn$ = "n" THEN -CLOSE -nos = -1 -EXIT SUB -END IF -INPUT #1, sf! -IF sf! <> 1 AND sf! <> .5 THEN GOTO oops -INPUT #1, uf! -IF uf! <> .5 AND uf! <> .55 THEN GOTO oops -INPUT #1, t -IF t < 1 OR t > 2 THEN GOTO oops -INPUT #1, fr& -IF fr& < 0 THEN GOTO oops -INPUT #1, bhu -IF bhu < 0 OR bhu > 32 THEN GOTO oops -INPUT #1, bht -IF bht < 0 OR bht > 12 THEN GOTO oops -INPUT #1, j -IF j < -1 OR j > 0 THEN GOTO oops -INPUT #1, bn -IF bn < -1 OR bn > 0 THEN GOTO oops -INPUT #1, x -IF x < -1 OR x > 0 THEN GOTO oops -INPUT #1, q -IF q < -1 OR q > 0 THEN GOTO oops -FOR sq = 0 TO 39 -INPUT #1, lot(sq).own -IF lot(sq).own < 0 OR lot(sq).own > 2 THEN GOTO oops -INPUT #1, lot(sq).stat -IF lot(sq).stat < 0 OR lot(sq).stat > 5 THEN GOTO oops -INPUT #1, lot(sq).mop -IF lot(sq).mop < -1 OR lot(sq).mop > 0 THEN GOTO oops -INPUT #1, lot(sq).hk -IF lot(sq).hk < -1 OR lot(sq).hk > 0 THEN GOTO oops -NEXT -FOR sq = 1 TO 2 -INPUT #1, st(sq).ft -INPUT #1, st(sq).tk -INPUT #1, st(sq).c -IF st(sq).c < 0 THEN GOTO oops -INPUT #1, st(sq).whr -IF (st(sq).whr < 0 OR st(sq).whr > 39) AND st(sq).whr <> -10 THEN GOTO oops -INPUT #1, st(sq).jc -IF st(sq).jc < 0 OR st(sq).jc > 2 THEN GOTO oops -INPUT #1, st(sq).dc -IF st(sq).dc < 0 OR st(sq).dc > 2 THEN GOTO oops -INPUT #1, st(sq).chag -IF st(sq).chag < -1 OR st(sq).chag > 0 THEN GOTO oops -INPUT #1, st(sq).cheg -IF st(sq).cheg < -1 OR st(sq).cheg > 0 THEN GOTO oops -NEXT -FOR sq = 1 TO 16 -INPUT #1, cha(sq) -IF cha(sq) < 0 OR cha(sq) > 2 THEN GOTO oops -INPUT #1, che(sq) -IF che(sq) < 0 OR che(sq) > 2 THEN GOTO oops -NEXT -CLOSE -KILL "monopoly.dat" -upd -END IF -EXIT SUB -oops: -ERROR 255 -END SUB - -FUNCTION cr (t) -FOR sq = 1 TO 39 -IF lot(sq).own = t THEN -IF (NOT lot(sq).hk) THEN current = current + lot(sq).c / 2 -IF lot(sq).sty = "b" THEN current = current + lot(sq).bc * lot(sq).stat * sf! -END IF -NEXT -cr = current -END FUNCTION - -SUB crd -ce 12, "Program written by Brian H. Graham." -ce 13, "Based on the board game 'Monopoly' by Parker Brothers." -p -LOCATE 25, 1 -COLOR 7 -SYSTEM -END SUB - -FUNCTION cw (t) -FOR sq = 1 TO 39 -IF lot(sq).own = t THEN -IF lot(sq).hk THEN current = current + lot(sq).c / 2 ELSE current = current + lot(sq).c -IF lot(sq).sty = "b" THEN current = current + lot(sq).bc * lot(sq).stat -END IF -NEXT -cw = current + st(t).c -END FUNCTION - -SUB dcha (t) -FOR look = 1 TO 16 -IF cha(look) > 0 THEN ucha = ucha + 1 -NEXT -IF ucha = 16 THEN scha -box -ce 5, RTRIM$(st(t).ft) -DO -cd = INT(RND * 16) + 1 -LOOP UNTIL cha(cd) = 0 -cha(cd) = 1 -COLOR 12 -ce 6, "Chance" -COLOR 15 -SELECT CASE cd -CASE 1 -ce 7, "Advance to Go. (Collect $200.)" -p -move 40 - st(t).whr, t -p -CASE 2 -ce 7, "Advance to Illinois Avenue." -p -IF st(t).whr < 24 THEN move 24 - st(t).whr, t ELSE move 64 - st(t).whr, t -lop rl, t -CASE 3 -ce 7, "Advance to the nearest Utility." -ce 8, "If it is owned, roll the dice," -ce 9, "and pay the own ten times the amount shown." -ce 10, "If it is not owned, you may buy it." -p -SELECT CASE st(t).whr -CASE 7 -move 12 - st(t).whr, t -CASE 22 -move 28 - st(t).whr, t -CASE 36 -move 52 - st(t).whr, t -END SELECT -utc t -CASE 4, 5 -ce 7, "Advance to the next Railroad." -ce 8, "If it is owned, pay the own double" -ce 9, "the rent he/she is usually entitled." -ce 10, "If it is not owned, you may buy it." -p -SELECT CASE st(t).whr -CASE 7 -move 15 - st(t).whr, t -CASE 22 -move 25 - st(t).whr, t -CASE 36 -move 45 - st(t).whr, t -END SELECT -rlc t -CASE 6 -ce 7, "Advance to Saint Charles Place." -ce 8, "If you pass Go, collect $200." -p -IF st(t).whr < 11 THEN move 11 - st(t).whr, t ELSE move 51 - st(t).whr, t -lop rl, t -CASE 7 -ce 7, "Bank pays you dividend of $50." -st(t).c = st(t).c + 50 -p -CASE 8 -ce 7, "Get out of Jail free." -ce 8, "This card may be kept until used or traded." -cha(8) = 2 -st(t).chag = -1 -p -CASE 9 -ce 7, "Go back three spaces." -p -mob t -act rl, t -CASE 10 -ce 7, "Go directly to Jail." -ce 8, "Do not pass Go, Do not collect $200." -p -ar t -CASE 11 -ce 7, "Make general repairs on all you properties." -ce 8, "Pay $25 per house, $100 per hotel." -bca t, 25, 100 -CASE 12 -ce 7, "Pay poor tax of $15." -p -pay t, 15 -IF j THEN fr& = fr& + 15 -p -CASE 13 -ce 7, "Take a ride on the Reading." -ce 8, "Advance to Reading Railroad." -ce 9, "Collect $200 if you pass Go." -p -move 45 - st(t).whr, t -lop rl, t -CASE 14 -ce 7, "Take a walk on the boardwalk." -ce 8, "Advance to Boardwalk." -p -move 39 - st(t).whr, t -lop rl, t -CASE 15 -ce 7, "You have been elected chairman of the board." -ce 8, "Pay each player $50." -p -popp t, 50 -CASE 16 -ce 7, "Your building and loan matures. Collect $150." -st(t).c = st(t).c + 150 -p -END SELECT -END SUB - -SUB dche (t) -FOR look = 1 TO 16 -IF che(look) > 0 THEN uche = uche + 1 -NEXT -IF uche = 16 THEN sche -box -ce 5, RTRIM$(st(t).ft) -DO -cd = INT(RND * 16) + 1 -LOOP UNTIL che(cd) = 0 -che(cd) = 1 -COLOR 14 -ce 6, "Community Chest" -COLOR 15 -SELECT CASE cd -CASE 1 -ce 7, "Advance to Go. (Collect $200.)" -p -move 40 - st(t).whr, t -p -CASE 2 -ce 7, "Bank error in your favor. Collect $200." -p -st(t).c = st(t).c + 200 -CASE 3 -ce 7, "Christmas fund matures. Collect $100." -p -st(t).c = st(t).c + 100 -CASE 4 -ce 7, "Doctor's fee. Pay $50." -p -pay t, 50 -p -IF j THEN fr& = fr& + 50 -CASE 5 -ce 7, "From sale of stock you get $45." -p -st(t).c = st(t).c + 45 -CASE 6 -ce 7, "Get out of Jail free." -ce 8, "This card may be kept until used or traded." -che(6) = 2 -st(t).cheg = -1 -p -CASE 7 -ce 7, "Go directly to Jail." -ce 8, "Do not pass Go, Do not collect $200." -p -ar t -CASE 8 -ce 7, "Grand opera opening. Collect $50 from every player." -p -popp 3 - t, 50 -CASE 9 -ce 7, "Income tax refund. Collect $20." -p -st(t).c = st(t).c + 20 -CASE 10 -ce 7, "Life insurance matures. Collect $100." -p -st(t).c = st(t).c + 100 -CASE 11 -ce 7, "Pay hospital $100." -p -pay t, 100 -p -IF j THEN fr& = fr& + 100 -CASE 12 -ce 7, "Pay school tax of $150." -p -pay t, 150 -p -IF j THEN fr& = fr& + 150 -CASE 13 -ce 7, "Recieve for services $25." -p -st(t).c = st(t).c + 25 -CASE 14 -ce 7, "You are assesed for street repairs." -ce 8, "$40 per house, $115 per hotel." -bca t, 40, 115 -CASE 15 -ce 7, "You have won second prize in a beauty contest." -ce 8, "Collect $10." -p -st(t).c = st(t).c + 10 -CASE 16 -ce 7, "You inherit $100." -p -st(t).c = st(t).c + 100 -END SELECT -END SUB - -FUNCTION di (d1, d2) -d1 = INT(RND * 6) + 1 -d2 = INT(RND * 6) + 1 -di = d1 + d2 -ce 14, CHR$(218) + STRING$(5, 196) + CHR$(191) + CHR$(218) + STRING$(5, 196) + CHR$(191) -ce 15, top(d1) + top(d2) -ce 16, mdd(d1) + mdd(d2) -ce 17, bot(d1) + bot(d2) -ce 18, CHR$(192) + STRING$(5, 196) + CHR$(217) + CHR$(192) + STRING$(5, 196) + CHR$(217) -END FUNCTION - -SUB dy (wt) -PRINT wt; -COLOR lot(wt).hue -PRINT lot(wt).ab; -COLOR 15 -PRINT " $"; -IF lot(wt).hk THEN PRINT lts(INT(.5 + lot(wt).c * uf!)) ELSE PRINT lts(lot(wt).c / 2) -END SUB - -SUB fd (rl1, rl2, d1, d2, d3, d4) -d1 = INT(RND * 6) + 1 -d2 = INT(RND * 6) + 1 -d3 = INT(RND * 6) + 1 -d4 = INT(RND * 6) + 1 -rl1 = d1 + d2 -rl2 = d3 + d4 -ce 13, RTRIM$(st(1).ft) + SPACE$(6) + RTRIM$(st(2).ft) -ce 14, CHR$(218) + STRING$(5, 196) + CHR$(191) + CHR$(218) + STRING$(5, 196) + CHR$(191) + SPACE$(6) + CHR$(218) + STRING$(5, 196) + CHR$(191) + CHR$(218) + STRING$(5, 196) + CHR$(191) -ce 15, top(d1) + top(d2) + SPACE$(6) + top(d3) + top(d4) -ce 16, mdd(d1) + mdd(d2) + SPACE$(6) + mdd(d3) + mdd(d4) -ce 17, bot(d1) + bot(d2) + SPACE$(6) + bot(d3) + bot(d4) -ce 18, CHR$(192) + STRING$(5, 196) + CHR$(217) + CHR$(192) + STRING$(5, 196) + CHR$(217) + SPACE$(6) + CHR$(192) + STRING$(5, 196) + CHR$(217) + CHR$(192) + STRING$(5, 196) + CHR$(217) -END SUB - -SUB gov (t) -st(1).whr = 0 -st(2).whr = 0 -x = -1 -CLS -swbd -IF t = 0 THEN -ce 5, "This game was a tie!" -ce 7, "Thank you for playing " + RTRIM$(st(1).ft) + " and " + RTRIM$(st(2).ft) -ELSE -ce 5, RTRIM$(st(t).ft) + " has won!!!" -ce 8, "Better luck next time " + RTRIM$(st(3 - t).ft) -END IF -crd -END SUB - -SUB inc (t) -box -ce 5, RTRIM$(st(t).ft) -ce 6, "Income Tax" -ce 8, "press W to pay 10% of your Worth" -ce 9, "press F to pay $200 Flat rate" -DO -LOOP UNTIL INKEY$ = "" -DO -taxopt$ = LCASE$(INKEY$) -LOOP UNTIL taxopt$ = "f" OR taxopt$ = "w" -IF taxopt$ = "f" THEN fee = 200 ELSE fee = INT(.5 + cw(t) / 10) -ce 10, UCASE$(taxopt$) + ", $" + lts(fee) + " due." -p -pay t, fee -p -IF j THEN fr& = fr& + fee -END SUB - -SUB init -alto$ = CHR$(2) + CHR$(3) + CHR$(4) + CHR$(5) + CHR$(6) + CHR$(21) + CHR$(157) + CHR$(232) + CHR$(233) + CHR$(236) -FOR wide = 1 TO 10 -wide$ = wide$ + MID$(alto$, wide, 1) + " " -NEXT -wide$ = RTRIM$(wide$) -FOR sq = 1 TO 2 -DO -box -ce 5, "Player " + lts(sq) + " first name" -who$ = "" -DO -ltr$ = txk -IF ltr$ = CHR$(8) AND LEN(who$) > 0 THEN -who$ = LEFT$(who$, (LEN(who$) - 1)) -ELSE -IF ltr$ <> CHR$(13) AND ltr$ <> CHR$(8) THEN who$ = who$ + ltr$ -END IF -IF LEN(who$) < 9 THEN -ce 6, SPACE$(10) -ce 6, who$ -END IF -LOOP UNTIL ltr$ = CHR$(13) OR LEN(who$) = 10 -st(sq).ft = who$ -LOOP UNTIL st(1).ft <> st(2).ft AND st(sq).ft <> SPACE$(8) -ce 7, "pick a token" -ce 8, wide$ -ce 9, "1 2 3 4 5 6 7 8 9 0" -IF hide > 0 THEN -LOCATE 8, hide * 2 + 29 -PRINT " " -LOCATE 9, hide * 2 + 29 -PRINT " " -END IF -DO -LOOP UNTIL INKEY$ = "" -DO -pick$ = INKEY$ -pick = VAL(pick$) -IF pick = 0 THEN pick = 10 -LOOP UNTIL pick$ >= "0" AND pick$ <= "9" AND pick <> hide -hide = pick -st(sq).tk = MID$(alto$, hide, 1) -st(sq).c = 1500 -ce 11, lts(pick) + ", " + st(sq).tk -p -NEXT -DO -box -fd rl1, rl2, d1, d2, d3, d4 -ce 5, "Determining who goes first:" -ce 7, RTRIM$(st(1).ft) + " rolls " + lts(d1) + " + " + lts(d2) + " = " + lts(rl1) -ce 8, RTRIM$(st(2).ft) + " rolls " + lts(d3) + " + " + lts(d4) + " + " + lts(rl2) -IF rl1 = rl2 THEN -ce 10, "No decision. I will try again." -p -END IF -LOOP UNTIL rl1 <> rl2 -IF rl2 > rl1 THEN SWAP st(1), st(2) -ce 10, "This means " + RTRIM$(st(1).ft) + " goes first." -p -END SUB - -SUB inv -FOR look = 0 TO 2 -box -IF lot(1).own = look THEN -LOCATE 5, 11 -lil 1 -END IF -IF lot(3).own = look THEN -LOCATE 6, 11 -lil 3 -END IF -IF lot(5).own = look THEN -LOCATE 7, 11 -lil 5 -END IF -IF lot(6).own = look THEN -LOCATE 8, 11 -lil 6 -END IF -IF lot(8).own = look THEN -LOCATE 9, 11 -lil 8 -END IF -IF lot(9).own = look THEN -LOCATE 10, 11 -lil 9 -END IF -IF lot(11).own = look THEN -LOCATE 5, 26 -lil 11 -END IF -IF lot(12).own = look THEN -LOCATE 6, 26 -lil 12 -END IF -IF lot(13).own = look THEN -LOCATE 7, 26 -lil 13 -END IF -IF lot(14).own = look THEN -LOCATE 8, 26 -lil 14 -END IF -IF lot(15).own = look THEN -LOCATE 9, 26 -lil 15 -END IF -IF lot(16).own = look THEN -LOCATE 10, 26 -lil 16 -END IF -IF lot(18).own = look THEN -LOCATE 11, 26 -lil 18 -END IF -IF lot(19).own = look THEN -LOCATE 12, 26 -lil 19 -END IF -IF lot(21).own = look THEN -LOCATE 5, 41 -lil 21 -END IF -IF lot(23).own = look THEN -LOCATE 6, 41 -lil 23 -END IF -IF lot(24).own = look THEN -LOCATE 7, 41 -lil 24 -END IF -IF lot(25).own = look THEN -LOCATE 8, 41 -lil 25 -END IF -IF lot(26).own = look THEN -LOCATE 9, 41 -lil 26 -END IF -IF lot(27).own = look THEN -LOCATE 10, 41 -lil 27 -END IF -IF lot(28).own = look THEN -LOCATE 11, 41 -lil 28 -END IF -IF lot(29).own = look THEN -LOCATE 12, 41 -lil 29 -END IF -IF lot(31).own = look THEN -LOCATE 5, 56 -lil 31 -END IF -IF lot(32).own = look THEN -LOCATE 6, 56 -lil 32 -END IF -IF lot(34).own = look THEN -LOCATE 7, 56 -lil 34 -END IF -IF lot(35).own = look THEN -LOCATE 8, 56 -lil 35 -END IF -IF lot(37).own = look THEN -LOCATE 9, 56 -lil 37 -END IF -IF lot(39).own = look THEN -LOCATE 10, 56 -lil 39 -END IF -SELECT CASE look -CASE 0 -ce 14, "unowned properties" -IF j THEN ce 16, "Free Parking has $" + ltsb(fr&) -CASE 1, 2 -IF st(look).chag THEN -COLOR 12 -LOCATE 12, 11 -PRINT "GOOJF"; -COLOR 15 -PRINT " Chance" -END IF -IF st(look).cheg THEN -COLOR 14 -LOCATE 12, 56 -PRINT "GOOJF"; -COLOR 15 -PRINT " Cm Chst" -END IF -ce 14, RTRIM$(st(look).ft) + ", your properties" -ce 15, "you are the " + st(look).tk -IF st(look).c >= 0 THEN ce 16, "you have $" + ltsb(st(look).c) ELSE ce 16, "you need to raise $" + lts(ABS(st(look).c)) -END SELECT -p -NEXT -END SUB - -SUB lil (wt) -COLOR lot(wt).hue -PRINT lot(wt).ab; -COLOR 15 -IF lot(wt).hk THEN -PRINT " mort" -ELSE -IF lot(wt).own > 0 THEN -SELECT CASE lot(wt).stat -CASE 0 -IF lot(wt).mop THEN PRINT " doubl" ELSE PRINT " plain" -CASE 1 -SELECT CASE lot(wt).sty -CASE "b" -PRINT " 1 hse" -CASE "r" -PRINT " 1 rr" -CASE "u" -PRINT " 1 utl" -END SELECT -CASE 2 -SELECT CASE lot(wt).sty -CASE "b" -PRINT " 2 hses" -CASE "r" -PRINT " 2 rrs" -CASE "u" -PRINT " 2 utls" -END SELECT -CASE 3 -SELECT CASE lot(wt).sty -CASE "b" -PRINT " 3 hses" -CASE "r" -PRINT " 3 rrs" -END SELECT -CASE 4 -SELECT CASE lot(wt).sty -CASE "b" -PRINT " 4 hses" -CASE "r" -PRINT " 4 rrs" -END SELECT -CASE 5 -PRINT " hotel" -END SELECT -END IF -END IF -END SUB - -SUB lop (rl, t) -IF lot(st(t).whr).own = 0 THEN -noo t -EXIT SUB -END IF -IF lot(st(t).whr).own = t THEN -COLOR lot(st(t).whr).hue -ce 12, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 13, "is yours." -p -EXIT SUB -END IF -IF lot(st(t).whr).hk THEN -COLOR lot(st(t).whr).hue -ce 12, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 13, "is mortgaged." -p -EXIT SUB -END IF -SELECT CASE lot(st(t).whr).stat -CASE 0 -IF lot(st(t).whr).mop THEN popp t, lot(st(t).whr).r * 2 ELSE popp t, lot(st(t).whr).r -CASE 1 -IF lot(st(t).whr).sty = "u" THEN popp t, 4 * rl ELSE popp t, lot(st(t).whr).r1 -CASE 2 -IF lot(st(t).whr).sty = "u" THEN popp t, 10 * rl ELSE popp t, lot(st(t).whr).r2 -CASE 3 -popp t, lot(st(t).whr).r3 -CASE 4 -popp t, lot(st(t).whr).r4 -CASE 5 -popp t, lot(st(t).whr).rhot -END SELECT -END SUB - -FUNCTION lts$ (nu) -lts = LTRIM$(STR$(nu)) -END FUNCTION - -FUNCTION ltsb$ (nu&) -ltsb = LTRIM$(STR$(nu&)) -END FUNCTION - -SUB mb -FOR sq = 0 TO 39 -READ lot(sq).ttl -READ lot(sq).ab -READ lot(sq).sty -READ lot(sq).c -READ lot(sq).r -READ lot(sq).r1 -READ lot(sq).r2 -READ lot(sq).r3 -READ lot(sq).r4 -READ lot(sq).rhot -READ lot(sq).bc -READ lot(sq).hue -READ lot(sq).od -READ lot(sq).oa -READ lot(sq).id -READ lot(sq).ia -READ lot(sq).bdn -READ lot(sq).bac -NEXT -END SUB - -SUB md -p0$ = CHR$(179) + SPACE$(5) + CHR$(179) -p1a$ = CHR$(179) + "@" + SPACE$(4) + CHR$(179) -p1b$ = CHR$(179) + SPACE$(2) + "@" + SPACE$(2) + CHR$(179) -p1c$ = CHR$(179) + SPACE$(4) + "@" + CHR$(179) -p2$ = CHR$(179) + "@" + SPACE$(3) + "@" + CHR$(179) -top(1) = p0$ -mdd(1) = p1b$ -bot(1) = p0$ -top(2) = p1a$ -mdd(2) = p0$ -bot(2) = p1c$ -top(3) = p1a$ -mdd(3) = p1b$ -bot(3) = p1c$ -top(4) = p2$ -mdd(4) = p0$ -bot(4) = p2$ -top(5) = p2$ -mdd(5) = p1b$ -bot(5) = p2$ -top(6) = p2$ -mdd(6) = p2$ -bot(6) = p2$ -END SUB - -SUB mini (gr) -SELECT CASE gr -CASE 1 -dn = 5 -ac = 11 -mophue = 5 -mopstr$ = "MEDIT/BALTI" -CASE 2 -dn = 6 -ac = 11 -mophue = 11 -mopstr$ = "OREIN/VERMO/CONNE" -CASE 3 -dn = 7 -ac = 11 -mophue = 13 -mopstr$ = "STCHA/STATE/VIRGI" -CASE 4 -dn = 8 -ac = 11 -mophue = 12 -mopstr$ = "STJAM/TENNE/NEWYO" -CASE 5 -dn = 5 -ac = 41 -mophue = 4 -mopstr$ = "KENTU/INDIA/ILLIN" -CASE 6 -dn = 6 -ac = 41 -mophue = 14 -mopstr$ = "ATLAN/VENTN/MARVI" -CASE 7 -dn = 7 -ac = 41 -mophue = 10 -mopstr$ = "PACIF/NORTH/PENAV" -CASE 8 -dn = 8 -ac = 41 -mophue = 9 -mopstr$ = "PARKP/BOARD" -END SELECT -LOCATE dn, ac -PRINT gr; -COLOR mophue -PRINT mopstr$ -COLOR 15 -END SUB - -SUB mob (t) -FOR sq = 0 TO 2 -IF t = 1 THEN LOCATE lot(st(1).whr - sq).od, lot(st(1).whr - sq).oa ELSE LOCATE lot(st(2).whr - sq).id, lot(st(2).whr - sq).ia -PRINT " " -IF t = 1 THEN LOCATE lot(st(1).whr - sq - 1).od, lot(st(1).whr - sq - 1).oa ELSE LOCATE lot(st(2).whr - sq - 1).id, lot(st(2).whr - sq - 1).ia -PRINT st(t).tk -clk .1 -NEXT -st(t).whr = (st(t).whr - 3) -END SUB - -SUB more (t) -DO -box -ce 5, RTRIM$(st(t).ft) + ", you have $" + ltsb(st(t).c) -ce 6, "press 1 to unmortgage properties" -ce 7, "press 2 to buy houses" -ce 8, "press 3 to buy hotels" -ce 9, "press 4 to mortgage properties" -ce 10, "press 5 to sell houses" -ce 11, "press 6 to sell hotels" -ce 12, "press 7 to trade" -ce 13, "press 8 to see inventories" -ce 14, "press 9 to view deeds" -ce 15, "press any other key to continue" -wtn = VAL(ak) -SELECT CASE wtn -CASE 1 -unm t -CASE 2 -buhou t -swbs -CASE 3 -buhot t -swbs -CASE 4 -mort t -CASE 5 -shou t -swbs -CASE 6 -shot t -swbs -CASE 7 -trade -upd -CASE 8 -inv -CASE 9 -vwd -END SELECT -LOOP UNTIL wtn = 0 -END SUB - -SUB mort (t) -DIM gp(39) -gp(0) = -1 -box -IF lot(1).own = t AND (NOT lot(1).hk) AND lot(3).stat = 0 THEN -LOCATE 5, 11 -dy 1 -gp(1) = -1 -END IF -IF lot(3).own = t AND (NOT lot(3).hk) AND lot(3).stat = 0 THEN -LOCATE 6, 11 -dy 3 -gp(3) = -1 -END IF -IF lot(5).own = t AND (NOT lot(5).hk) THEN -LOCATE 7, 11 -dy 5 -gp(5) = -1 -END IF -IF lot(6).own = t AND (NOT lot(6).hk) AND lot(9).stat = 0 THEN -LOCATE 8, 11 -dy 6 -gp(6) = -1 -END IF -IF lot(8).own = t AND (NOT lot(8).hk) AND lot(9).stat = 0 THEN -LOCATE 9, 11 -dy 8 -gp(8) = -1 -END IF -IF lot(9).own = t AND (NOT lot(9).hk) AND lot(9).stat = 0 THEN -LOCATE 10, 11 -dy 9 -gp(9) = -1 -END IF -IF lot(11).own = t AND (NOT lot(11).hk) AND lot(14).stat = 0 THEN -LOCATE 5, 26 -dy 11 -gp(11) = -1 -END IF -IF lot(12).own = t AND (NOT lot(12).hk) THEN -LOCATE 6, 26 -dy 12 -gp(12) = -1 -END IF -IF lot(13).own = t AND (NOT lot(13).hk) AND lot(14).stat = 0 THEN -LOCATE 7, 26 -dy 13 -gp(13) = -1 -END IF -IF lot(14).own = t AND (NOT lot(14).hk) AND lot(14).stat = 0 THEN -LOCATE 8, 26 -dy 14 -gp(14) = -1 -END IF -IF lot(15).own = t AND (NOT lot(15).hk) THEN -LOCATE 9, 26 -dy 15 -gp(15) = -1 -END IF -IF lot(16).own = t AND (NOT lot(16).hk) AND lot(19).stat = 0 THEN -LOCATE 10, 26 -dy 16 -gp(16) = -1 -END IF -IF lot(18).own = t AND (NOT lot(18).hk) AND lot(19).stat = 0 THEN -LOCATE 11, 26 -dy 18 -gp(18) = -1 -END IF -IF lot(19).own = t AND (NOT lot(19).hk) AND lot(19).stat = 0 THEN -LOCATE 12, 26 -dy 19 -gp(19) = -1 -END IF -IF lot(21).own = t AND (NOT lot(21).hk) AND lot(24).stat = 0 THEN -LOCATE 5, 41 -dy 21 -gp(21) = -1 -END IF -IF lot(23).own = t AND (NOT lot(23).hk) AND lot(24).stat = 0 THEN -LOCATE 6, 41 -dy 23 -gp(23) = -1 -END IF -IF lot(24).own = t AND (NOT lot(24).hk) AND lot(24).stat = 0 THEN -LOCATE 7, 41 -dy 24 -gp(24) = -1 -END IF -IF lot(25).own = t AND (NOT lot(25).hk) THEN -LOCATE 8, 41 -dy 25 -gp(25) = -1 -END IF -IF lot(26).own = t AND (NOT lot(26).hk) AND lot(29).stat = 0 THEN -LOCATE 9, 41 -dy 26 -gp(26) = -1 -END IF -IF lot(27).own = t AND (NOT lot(27).hk) AND lot(29).stat = 0 THEN -LOCATE 10, 41 -dy 27 -gp(27) = -1 -END IF -IF lot(28).own = t AND (NOT lot(28).hk) THEN -LOCATE 11, 41 -dy 28 -gp(28) = -1 -END IF -IF lot(29).own = t AND (NOT lot(29).hk) AND lot(29).stat = 0 THEN -LOCATE 12, 41 -dy 29 -gp(29) = -1 -END IF -IF lot(31).own = t AND (NOT lot(31).hk) AND lot(34).stat = 0 THEN -LOCATE 5, 56 -dy 31 -gp(31) = -1 -END IF -IF lot(32).own = t AND (NOT lot(32).hk) AND lot(34).stat = 0 THEN -LOCATE 6, 56 -dy 32 -gp(32) = -1 -END IF -IF lot(34).own = t AND (NOT lot(34).hk) AND lot(34).stat = 0 THEN -LOCATE 7, 56 -dy 34 -gp(34) = -1 -END IF -IF lot(35).own = t AND (NOT lot(35).hk) THEN -LOCATE 8, 56 -dy 35 -gp(35) = -1 -END IF -IF lot(37).own = t AND (NOT lot(37).hk) AND lot(39).stat = 0 THEN -LOCATE 9, 56 -dy 37 -gp(37) = -1 -END IF -IF lot(39).own = t AND (NOT lot(39).hk) AND lot(39).stat = 0 THEN -LOCATE 10, 56 -dy 39 -gp(39) = -1 -END IF -ce 13, RTRIM$(st(t).ft) -ce 14, "Choose a deed to mortgage or 0 to continue" -IF st(t).c >= 0 THEN ce 17, "you have $" + ltsb(st(t).c) ELSE ce 17, "you need to raise $" + lts(-st(t).c) -DO -IF (NOT gp(pick)) AND (NOT q) THEN b -pick = ner(15, 39) -LOOP UNTIL gp(pick) -IF pick = 0 THEN EXIT SUB -lot(pick).hk = -1 -st(t).c = st(t).c + lot(pick).c / 2 -END SUB - -SUB move (dist, t) -FOR sq = 0 TO dist - 1 -IF t = 1 THEN LOCATE lot((st(1).whr + sq) MOD 40).od, lot((st(1).whr + sq) MOD 40).oa ELSE LOCATE lot((st(2).whr + sq) MOD 40).id, lot((st(2).whr + sq) MOD 40).ia -PRINT " " -IF t = 1 THEN LOCATE lot((st(1).whr + sq + 1) MOD 40).od, lot((st(1).whr + sq + 1) MOD 40).oa ELSE LOCATE lot((st(2).whr + sq + 1) MOD 40).id, lot((st(2).whr + sq + 1) MOD 40).ia -PRINT st(t).tk -clk .1 -NEXT -IF st(t).whr + dist >= 40 THEN st(t).c = st(t).c + 200 -IF st(t).whr + dist > 40 THEN -box -ce 5, RTRIM$(st(t).ft) + ", you collect $200 for passing Go." -clk .9 -END IF -st(t).whr = (st(t).whr + dist) MOD 40 -END SUB - -FUNCTION ner (dn, max) -IF max = 0 THEN mk = 2 ELSE mk = INT(LOG(max) / LOG(10)) + 2 -DO -ce dn, SPACE$(10) -IF num > 0 AND (NOT q) THEN b -num = 0 -num$ = "" -DO -numk$ = nerk -IF numk$ = CHR$(8) AND LEN(num$) > 0 THEN -num$ = LEFT$(num$, (LEN(num$) - 1)) -ELSE -IF numk$ <> CHR$(13) AND numk$ <> CHR$(8) THEN num$ = num$ + numk$ -END IF -IF LEN(num$) < mk THEN -ce dn, SPACE$(10) -ce dn, num$ -END IF -LOOP UNTIL numk$ = CHR$(13) OR LEN(num$) = mk -num = VAL(num$) -LOOP UNTIL num <= max -ner = num -END FUNCTION - -FUNCTION nerb& (dn, max&) -IF max& = 0 THEN mk = 2 ELSE mk = INT(LOG(max&) / LOG(10)) + 2 -DO -ce dn, SPACE$(10) -IF num& > 0 AND (NOT q) THEN b -num& = 0 -num$ = "" -DO -numk$ = nerk -IF numk$ = CHR$(8) AND LEN(num$) > 0 THEN -num$ = LEFT$(num$, (LEN(num$) - 1)) -ELSE -IF numk$ <> CHR$(13) AND numk$ <> CHR$(8) THEN num$ = num$ + numk$ -END IF -IF LEN(num$) < mk THEN -ce dn, SPACE$(10) -ce dn, num$ -END IF -LOOP UNTIL numk$ = CHR$(13) OR LEN(num$) = mk -num& = VAL(num$) -LOOP UNTIL num& <= max& -nerb& = num& -END FUNCTION - -FUNCTION nerk$ -DO -DO -LOOP UNTIL INKEY$ = "" -DO -tx$ = INKEY$ -LOOP UNTIL tx$ > "" -SELECT CASE tx$ -CASE "0" TO "9", CHR$(13), CHR$(8) -valid = -1 -CASE ELSE -valid = 0 -IF (NOT q) THEN b -END SELECT -LOOP UNTIL valid -nerk = tx$ -END FUNCTION - -SUB noo (t) -box -COLOR lot(st(t).whr).hue -ce 5, RTRIM$(lot(st(t).whr).ttl) -COLOR 7 -ce 6, "cost $" + lts(lot(st(t).whr).c) -ce 7, "mortgage value $" + lts(lot(st(t).whr).c / 2) -SELECT CASE lot(st(t).whr).sty -CASE "b" -ce 8, "rent $" + lts(lot(st(t).whr).r) -ce 9, "rent with one house $" + lts(lot(st(t).whr).r1) -ce 10, "rent with two houses $" + lts(lot(st(t).whr).r2) -ce 11, "rent with three houses $" + lts(lot(st(t).whr).r3) -ce 12, "rent with four houses $" + lts(lot(st(t).whr).r4) -ce 13, "rent with hotel $" + lts(lot(st(t).whr).rhot) -ce 14, "houses cost $" + lts(lot(st(t).whr).bc) + " each" -ce 15, "hotel costs $" + lts(lot(st(t).whr).bc) + " plus 4 houses" -COLOR 15 -CASE "u" -COLOR 15 -ce 8, "rent with one Utility, four times dice" -ce 9, "rent with two Utilities, ten times dice" -CASE "r" -COLOR 15 -ce 8, "rent with one Railroad $25" -ce 9, "rent with two Railroads $50" -ce 10, "rent with three Railroads $100" -ce 11, "rent with four Railroads $200" -END SELECT -ce 16, RTRIM$(st(t).ft) + ", you have $" + ltsb(st(t).c) -IF cr(t) + st(t).c >= lot(st(t).whr).c THEN ce 17, "press B to Buy" -ce 18, "press A to Auction" -DO -LOOP UNTIL INKEY$ = "" -DO -wt$ = LCASE$(INKEY$) -LOOP UNTIL wt$ = "a" OR (wt$ = "b" AND cr(t) + st(t).c >= lot(st(t).whr).c) -box -IF wt$ = "b" THEN -pay t, lot(st(t).whr).c -COLOR lot(st(t).whr).hue -ce 10, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -lot(st(t).whr).own = t -p -ELSE -auc t -END IF -upd -END SUB - -SUB opt (t) -DO -box -ce 5, RTRIM$(st(t).ft) + ", you have $" + ltsb(st(t).c) -ce 6, "press P for Property options" -ce 7, "press S to Save and exit" -ce 8, "press Q to Quit game early" -ce 9, "press any other key to continue" -wt$ = ak -SELECT CASE wt$ -CASE "s" -save t -CASE "p" -more t -CASE "q" -quit -CASE ELSE -done = -1 -END SELECT -LOOP UNTIL done -END SUB - -SUB p -ce 19, "press any key." -DO -LOOP UNTIL INKEY$ > "" -ce 19, SPACE$(14) -END SUB - -SUB pay (t, cge) -st(t).c = st(t).c - cge -IF st(t).c < 0 THEN broke t -ce 12, RTRIM$(st(t).ft) + " paid $" + lts(cge) -END SUB - -SUB pim (gr, l, m, h) -SELECT CASE gr -CASE 1 -l = 1 -m = 2 -h = 3 -COLOR 5 -ce 6, "MEDIT/BALTI" -CASE 2 -l = 6 -m = 8 -h = 9 -COLOR 11 -ce 6, "OREIN/VERMO/CONNE" -CASE 3 -l = 11 -m = 13 -h = 14 -COLOR 13 -ce 6, "STCHA/STATE/VIRGI" -CASE 4 -l = 16 -m = 18 -h = 19 -COLOR 12 -ce 6, "STJAM/TENNE/NEWYO" -CASE 5 -l = 21 -m = 23 -h = 24 -COLOR 4 -ce 6, "KENTU/INDIA/ILLIN" -CASE 6 -l = 26 -m = 27 -h = 29 -COLOR 14 -ce 6, "ATLAN/VENTN/MARVI" -CASE 7 -l = 31 -m = 32 -h = 34 -COLOR 10 -ce 6, "PACIF/NORTH/PENAV" -CASE 8 -l = 37 -m = 2 -h = 39 -COLOR 9 -ce 6, "PARKP/BOARD" -END SELECT -COLOR 15 -END SUB - -SUB popp (t, cge) -pay t, cge -st(3 - t).c = st(3 - t).c + cge -ce 13, " to " + RTRIM$(st(3 - t).ft) -p -END SUB - -SUB quit -DO -LOOP UNTIL INKEY$ = "" -DO -quithue = ((quithue + 1) AND 15) OR 8 -COLOR quithue -ce 17, "ARE YOU SURE YOU WANT TO QUIT? (Y/N)" -clk .09 -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -COLOR 15 -IF yn$ = "y" THEN -IF st(1).c < 0 THEN gov 2 -IF st(2).c < 0 THEN gov 1 -worth1 = cw(1) -worth2 = cw(2) -IF worth1 > worth2 THEN gov 1 -IF worth2 > worth1 THEN gov 2 -gov 0 -END IF -END SUB - -SUB rlc (t) -IF lot(st(t).whr).own = 0 THEN -noo t -EXIT SUB -END IF -IF lot(st(t).whr).own = t THEN -COLOR lot(st(t).whr).hue -ce 12, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 13, "is yours." -p -EXIT SUB -END IF -IF lot(st(t).whr).hk THEN -COLOR lot(st(t).whr).hue -ce 12, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 13, "is mortgaged." -p -EXIT SUB -END IF -SELECT CASE lot(st(t).whr).stat -CASE 1 -popp t, 50 -CASE 2 -popp t, 100 -CASE 3 -popp t, 200 -CASE 4 -popp t, 400 -END SELECT -END SUB - -SUB rules -x = -1 -box -ce 5, "I will start a new game." -ce 7, "Do you want the Free Parking jackpot? (Y/N)" -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 8, UCASE$(yn$) -IF yn$ = "y" THEN -j = -1 -fr& = 500 -END IF -ce 9, "Do you want the land on Go bonus? (Y/N)" -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 10, UCASE$(yn$) -IF yn$ = "y" THEN bn = -1 -ce 11, "Do you want unlimited buildings in the bank? (Y/N)" -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 12, UCASE$(yn$) -IF yn$ = "n" THEN x = 0 -ce 13, "Do you want to suspend mortgage interest? (Y/N)" -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 14, UCASE$(yn$) -IF yn$ = "y" THEN uf! = .5 ELSE uf! = .55 -ce 15, "Should builings sell back at full price? (Y/N)" -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 16, UCASE$(yn$) -IF yn$ = "y" THEN sf! = 1 ELSE sf! = .5 -ce 17, "Do you want quiet mode? (Y/N)" -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ce 18, UCASE$(yn$) -IF yn$ = "y" THEN q = -1 -p -END SUB - -SUB save (t) -ce 10, "to be continued." -OPEN "monopoly.dat" FOR OUTPUT AS #1 -PRINT #1, sf! -PRINT #1, uf! -PRINT #1, t -PRINT #1, fr& -PRINT #1, bhu -PRINT #1, bht -PRINT #1, j -PRINT #1, bn -PRINT #1, x -PRINT #1, q -FOR sq = 0 TO 39 -PRINT #1, lot(sq).own -PRINT #1, lot(sq).stat -PRINT #1, lot(sq).mop -PRINT #1, lot(sq).hk -NEXT -FOR sq = 1 TO 2 -PRINT #1, st(sq).ft -PRINT #1, st(sq).tk -PRINT #1, st(sq).c -PRINT #1, st(sq).whr -PRINT #1, st(sq).jc -PRINT #1, st(sq).dc -PRINT #1, st(sq).chag -PRINT #1, st(sq).cheg -NEXT -FOR sq = 1 TO 16 -PRINT #1, cha(sq) -PRINT #1, che(sq) -NEXT -CLOSE -crd -END SUB - -SUB scha -box -ce 5, "Shuffling Chance cards." -ce 6, "Please wait." -clk 2 -IF cha(8) = 2 THEN goojfflag = -1 -FOR flip = 1 TO 16 -cha(flip) = 0 -NEXT -IF goojfflag THEN cha(8) = 2 -END SUB - -SUB sche -box -ce 5, "Shuffling Community Chest cards." -ce 6, "Please wait." -clk 2 -IF che(6) = 2 THEN goojfflag = -1 -FOR flip = 1 TO 16 -che(flip) = 0 -NEXT -IF goojfflag THEN che(6) = 2 -END SUB - -SUB short (t, l, m, h) -IF lot(h).stat = 5 THEN -lot(h).stat = 4 -bht = bht + 1 -st(t).c = st(t).c + lot(l).bc * sf! -END IF -IF lot(m).stat = 5 THEN -lot(m).stat = 4 -bht = bht + 1 -st(t).c = st(t).c + lot(l).bc * sf! -END IF -IF lot(l).stat = 5 THEN -lot(l).stat = 4 -bht = bht + 1 -st(t).c = st(t).c + lot(l).bc * sf! -END IF -quan = chou(1) + chou(2) - 32 -tot = lot(l).stat + lot(m).stat + lot(h).stat - quan -SELECT CASE m -CASE 2 -lot(h).stat = INT(tot / 2) -lot(l).stat = INT(tot / 2) -IF lot(h).stat + lot(l).stat < tot THEN lot(h).stat = lot(h).stat + 1 -CASE ELSE -lot(h).stat = INT(tot / 3) -lot(m).stat = INT(tot / 3) -lot(l).stat = INT(tot / 3) -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(h).stat = lot(h).stat + 1 -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(m).stat = lot(m).stat + 1 -END SELECT -st(t).c = st(t).c + lot(l).bc * quan * sf! -bhu = 0 -box -ce 5, RTRIM$(st(t).ft) -ce 7, "a housing shortage sale taken place." -p -END SUB - -SUB shot (t) -DIM gm(9) -gm(0) = -1 -box -IF lot(3).own = t AND lot(3).stat = 5 THEN -gm(1) = -1 -mini 1 -END IF -IF lot(9).own = t AND lot(9).stat = 5 THEN -gm(2) = -1 -mini 2 -END IF -IF lot(14).own = t AND lot(14).stat = 5 THEN -gm(3) = -1 -mini 3 -END IF -IF lot(19).own = t AND lot(19).stat = 5 THEN -gm(4) = -1 -mini 4 -END IF -IF lot(24).own = t AND lot(24).stat = 5 THEN -gm(5) = -1 -mini 5 -END IF -IF lot(29).own = t AND lot(29).stat = 5 THEN -gm(6) = -1 -mini 6 -END IF -IF lot(34).own = t AND lot(34).stat = 5 THEN -gm(7) = -1 -mini 7 -END IF -IF lot(39).own = t AND lot(39).stat = 5 THEN -gm(8) = -1 -mini 8 -END IF -ce 9, RTRIM$(st(t).ft) -ce 10, "Choose a monopoly to sell hotels from" -ce 11, "or 0 to continue" -DO -IF ws > 0 AND (NOT q) THEN b -DO -LOOP UNTIL INKEY$ = "" -DO -ws$ = INKEY$ -IF ws$ = CHR$(13) THEN ws$ = "0" -LOOP UNTIL ws$ > "" -IF ws$ >= "0" AND ws$ <= "8" THEN ws = VAL(ws$) ELSE ws = 9 -LOOP UNTIL gm(ws) -IF ws = 0 THEN EXIT SUB -box -ce 5, RTRIM$(st(t).ft) -pim ws, l, m, h -SELECT CASE m -CASE 2 -IF lot(l).stat = 5 THEN max = 2 ELSE max = 1 -CASE ELSE -max = 1 -IF lot(m).stat = 5 THEN max = 2 -IF lot(l).stat = 5 THEN max = 3 -END SELECT -ce 7, "you can sell up to " + lts(max) + " hotel(s)." -ce 8, "or 0 to continue" -IF st(t).c >= 0 THEN ce 11, "you have $" + ltsb(st(t).c) ELSE ce 11, "you need to raise $" + lts(-st(t).c) -ce 12, "hotels sell for $" + lts(lot(l).bc * sf!) + " (minus four houses) each." -quan = ner(9, max) -IF quan = 0 THEN EXIT SUB -tot = lot(l).stat + lot(m).stat + lot(h).stat - quan -SELECT CASE m -CASE 2 -lot(h).stat = INT(tot / 2) -lot(l).stat = INT(tot / 2) -IF lot(h).stat + lot(l).stat < tot THEN lot(h).stat = lot(h).stat + 1 -CASE ELSE -lot(h).stat = INT(tot / 3) -lot(m).stat = INT(tot / 3) -lot(l).stat = INT(tot / 3) -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(h).stat = lot(h).stat + 1 -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(m).stat = lot(m).stat + 1 -END SELECT -st(t).c = st(t).c + lot(l).bc * quan * sf! -IF (NOT x) THEN -bht = bht + quan -bhu = bhu - 4 * quan -IF bhu < 0 THEN short t, l, m, h -END IF -END SUB - -SUB shou (t) -DIM gm(9) -gm(0) = -1 -box -IF lot(3).own = t AND lot(3).stat > 0 AND lot(3).stat < 5 THEN -gm(1) = -1 -mini 1 -END IF -IF lot(9).own = t AND lot(9).stat > 0 AND lot(9).stat < 5 THEN -gm(2) = -1 -mini 2 -END IF -IF lot(14).own = t AND lot(14).stat > 0 AND lot(14).stat < 5 THEN -gm(3) = -1 -mini 3 -END IF -IF lot(19).own = t AND lot(19).stat > 0 AND lot(19).stat < 5 THEN -gm(4) = -1 -mini 4 -END IF -IF lot(24).own = t AND lot(24).stat > 0 AND lot(24).stat < 5 THEN -gm(5) = -1 -mini 5 -END IF -IF lot(29).own = t AND lot(29).stat > 0 AND lot(29).stat < 5 THEN -gm(6) = -1 -mini 6 -END IF -IF lot(34).own = t AND lot(34).stat > 0 AND lot(34).stat < 5 THEN -gm(7) = -1 -mini 7 -END IF -IF lot(39).own = t AND lot(39).stat > 0 AND lot(39).stat < 5 THEN -gm(8) = -1 -mini 8 -END IF -ce 9, RTRIM$(st(t).ft) -ce 10, "Choose a monopoly to sell houses from" -ce 11, "or 0 to continue" -DO -IF ws > 0 AND (NOT q) THEN b -DO -LOOP UNTIL INKEY$ = "" -DO -ws$ = INKEY$ -IF ws$ = CHR$(13) THEN ws$ = "0" -LOOP UNTIL ws$ > "" -IF ws$ >= "0" AND ws$ <= "8" THEN ws = VAL(ws$) ELSE ws = 9 -LOOP UNTIL gm(ws) -IF ws = 0 THEN EXIT SUB -box -ce 5, RTRIM$(st(t).ft) -pim ws, l, m, h -SELECT CASE m -CASE 2 -max = lot(l).stat + lot(h).stat -CASE ELSE -max = lot(l).stat + lot(m).stat + lot(h).stat -END SELECT -ce 7, "you can sell up to " + lts(max) + " house(s)." -ce 8, "or 0 to continue" -IF st(t).c >= 0 THEN ce 11, "you have $" + ltsb(st(t).c) ELSE ce 11, "you need to raise $" + lts(-st(t).c) -ce 12, "houses sell for $" + lts(lot(l).bc * sf!) + " each." -quan = ner(9, max) -IF quan = 0 THEN EXIT SUB -tot = lot(l).stat + lot(m).stat + lot(h).stat - quan -SELECT CASE m -CASE 2 -lot(h).stat = INT(tot / 2) -lot(l).stat = INT(tot / 2) -IF lot(h).stat + lot(l).stat < tot THEN lot(h).stat = lot(h).stat + 1 -CASE ELSE -lot(h).stat = INT(tot / 3) -lot(m).stat = INT(tot / 3) -lot(l).stat = INT(tot / 3) -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(h).stat = lot(h).stat + 1 -IF lot(h).stat + lot(l).stat + lot(m).stat < tot THEN lot(m).stat = lot(m).stat + 1 -END SELECT -st(t).c = st(t).c + lot(l).bc * quan * sf! -IF (NOT x) THEN bhu = bhu + quan -END SUB - -SUB sml (wt) -PRINT wt; -lil wt -END SUB - -SUB swbd -box -COLOR 5 -LOCATE 22, 66 -PRINT "MEDIT" -LOCATE 22, 52 -PRINT "BALTI" -COLOR 11 -LOCATE 22, 31 -PRINT "ORIEN" -LOCATE 22, 17 -PRINT "VERMO" -LOCATE 22, 10 -PRINT "CONNE" -COLOR 13 -LOCATE 20, 3 -PRINT "STCHA" -LOCATE 16, 3 -PRINT "STATE" -LOCATE 14, 3 -PRINT "VIRGI" -COLOR 12 -LOCATE 10, 3 -PRINT "STJAM" -LOCATE 6, 3 -PRINT "TENNE" -LOCATE 4, 3 -PRINT "NEWYO" -COLOR 4 -LOCATE 2, 10 -PRINT "KENTU" -LOCATE 2, 24 -PRINT "INDIA" -LOCATE 2, 31 -PRINT "ILLIN" -COLOR 14 -LOCATE 2, 45 -PRINT "ATLAN" -LOCATE 2, 52 -PRINT "VENTN" -LOCATE 2, 66 -PRINT "MARVI" -COLOR 10 -LOCATE 4, 73 -PRINT "PACIF" -LOCATE 6, 73 -PRINT "NORTH" -LOCATE 10, 73 -PRINT "PENAV" -COLOR 9 -LOCATE 16, 73 -PRINT "PARKP" -LOCATE 20, 73 -PRINT "BOARD" -COLOR 7 -LOCATE 22, 38 -PRINT "READR" -LOCATE 18, 3 -PRINT "ELECT" -LOCATE 12, 3 -PRINT "PENRR" -LOCATE 2, 38 -PRINT "B&ORR" -LOCATE 2, 59 -PRINT "WATER" -LOCATE 12, 73 -PRINT "SHORT" -COLOR 15 -LOCATE 22, 73 -PRINT "<-GO<" -LOCATE 22, 59 -PRINT "COMMU" -LOCATE 22, 45 -PRINT "INCTX" -LOCATE 22, 24 -PRINT "CHANC" -LOCATE 22, 3 -PRINT "JUSTV" -LOCATE 8, 3 -PRINT "COMMU" -LOCATE 2, 3 -PRINT "FREEP" -LOCATE 2, 17 -PRINT "CHANC" -LOCATE 2, 73 -PRINT "GOTOJ" -LOCATE 8, 73 -PRINT "COMMU" -LOCATE 14, 73 -PRINT "CHANC" -LOCATE 18, 73 -PRINT "LUXTX" -END SUB - -SUB swbs -FOR sq = 1 TO 39 -IF lot(sq).sty = "b" THEN -LOCATE lot(sq).bdn, lot(sq).bac -IF (NOT lot(sq).mop) THEN -PRINT " " -ELSE -SELECT CASE lot(sq).stat -CASE 0 TO 4 -COLOR 0, 10 -PRINT USING "#"; lot(sq).stat -CASE 5 -COLOR 0, 4 -PRINT "H" -END SELECT -COLOR 15, 0 -END IF -END IF -NEXT -END SUB - -SUB tiny (wt) -PRINT wt; -COLOR lot(wt).hue -PRINT lot(wt).ab -COLOR 15 -END SUB - -SUB tj (t) -st(t).jc = st(t).jc + 1 -box -ce 5, RTRIM$(st(t).ft) + ", in Jail, turn " + lts(st(t).jc) + " with $" + ltsb(st(t).c) -IF cr(t) + st(t).c >= 50 THEN ce 6, "press M to Make bail (pay $50)" -IF st(t).chag OR st(t).cheg THEN ce 7, "press C to use 'get out of jail free' Card" -ce 8, "press R to Roll dice" -DO -LOOP UNTIL INKEY$ = "" -DO -how$ = LCASE$(INKEY$) -LOOP UNTIL how$ = "r" OR (how$ = "m" AND cr(t) + st(t).c >= 50) OR (how$ = "c" AND (st(t).chag OR st(t).cheg)) -box -SELECT CASE how$ -CASE "r" -ce 5, RTRIM$(st(t).ft) + ", roll " + lts(st(t).jc) + " done, with $" + ltsb(st(t).c) -rlout = di(d1, d2) -ce 10, lts(d1) + " + " + lts(d2) + " = " + lts(rlout) -p -IF d1 = d2 THEN -st(t).jc = 0 -st(t).whr = 10 -box -IF t = 1 THEN LOCATE lot(10).od, lot(10).oa ELSE LOCATE lot(10).id, lot(10).ia -PRINT st(t).tk -move rlout, t -act rlout, t -END IF -IF st(t).jc = 3 THEN -IF st(t).chag OR st(t).cheg THEN -ce 6, "press M to Make bail (pay $50)" -ce 7, "press C to use 'get out of jail free' Card" -END IF -DO -LOOP UNTIL INKEY$ = "" -DO -payout$ = LCASE$(INKEY$) -IF (NOT st(t).chag) AND (NOT st(t).cheg) THEN payout$ = "m" -LOOP UNTIL payout$ = "m" OR payout$ = "c" -SELECT CASE payout$ -CASE "m" -pay t, 50 -IF j THEN fr& = fr& + 50 -CASE "c" -IF st(t).chag AND st(t).cheg THEN -ce 10, "Pick a card." -ce 11, "Press A for chAnce" -ce 12, "press O for cOmmunity che" -END IF -DO -LOOP UNTIL INKEY$ = "" -DO -wtc$ = LCASE$(INKEY$) -IF (NOT st(t).chag) THEN wtc$ = "o" -IF (NOT st(t).cheg) THEN wtc$ = "a" -LOOP UNTIL wtc$ = "a" OR wtc$ = "o" -IF wtc$ = "a" THEN -ce 13, "Chance card used." -st(t).chag = 0 -cha(8) = 1 -ELSE -ce 13, "Community Chest card used." -st(t).cheg = 0 -che(6) = 1 -END IF -END SELECT -p -st(t).jc = 0 -st(t).whr = 10 -box -IF t = 1 THEN LOCATE lot(10).od, lot(10).oa ELSE LOCATE lot(10).id, lot(10).ia -PRINT st(t).tk -move rlout, t -act rlout, t -END IF -opt t -CASE "m" -pay t, 50 -IF j THEN fr& = fr& + 50 -st(t).jc = 0 -p -box -IF t = 1 THEN LOCATE lot(10).od, lot(10).oa ELSE LOCATE lot(10).id, lot(10).ia -PRINT st(t).tk -st(t).whr = 10 -tn t -CASE "c" -IF st(t).chag AND st(t).cheg THEN -ce 10, "Pick a card." -ce 11, "Press A for chAnce" -ce 12, "press O for cOmmunity che" -END IF -DO -LOOP UNTIL INKEY$ = "" -DO -wtc$ = LCASE$(INKEY$) -IF (NOT st(t).chag) THEN wtc$ = "o" -IF (NOT st(t).cheg) THEN wtc$ = "a" -LOOP UNTIL wtc$ = "a" OR wtc$ = "o" -IF wtc$ = "a" THEN -ce 13, "Chance card used." -st(t).chag = 0 -cha(8) = 1 -ELSE -ce 13, "Community Chest card used." -st(t).cheg = 0 -che(6) = 1 -END IF -p -box -IF t = 1 THEN LOCATE lot(10).od, lot(10).oa ELSE LOCATE lot(10).id, lot(10).ia -PRINT st(t).tk -st(t).jc = 0 -st(t).whr = 10 -tn t -END SELECT -END SUB - -SUB tn (t) -DO -box -ce 5, RTRIM$(st(t).ft) + " press any key to roll the dice." -p -box -ce 5, RTRIM$(st(t).ft) -rl = di(d1, d2) -ce 7, lts(d1) + " + " + lts(d2) + " = " + lts(rl) -IF d1 = d2 THEN st(t).dc = st(t).dc + 1 ELSE st(t).dc = 0 -SELECT CASE st(t).dc -CASE 0 -clk 1.5 -CASE 1 -ce 8, "first doubles" -clk 1.5 -CASE 2 -ce 8, "second doubles" -clk 1.5 -CASE 3 -ce 8, "Third doubles" -ar t -END SELECT -IF st(t).whr > -10 THEN -move rl, t -act rl, t -END IF -opt t -LOOP UNTIL st(t).dc = 0 -END SUB - -SUB trade -DIM wit(41), cg(1 TO 2) -FOR gvr = 1 TO 2 -DO -REDIM mt(41) -mt(0) = -1 -box -IF lot(1).own = gvr AND lot(3).stat = 0 THEN -LOCATE 5, 11 -sml 1 -mt(1) = -1 -END IF -IF lot(3).own = gvr AND lot(3).stat = 0 THEN -LOCATE 6, 11 -sml 3 -mt(3) = -1 -END IF -IF lot(5).own = gvr THEN -LOCATE 7, 11 -sml 5 -mt(5) = -1 -END IF -IF lot(6).own = gvr AND lot(9).stat = 0 THEN -LOCATE 8, 11 -sml 6 -mt(6) = -1 -END IF -IF lot(8).own = gvr AND lot(9).stat = 0 THEN -LOCATE 9, 11 -sml 8 -mt(8) = -1 -END IF -IF lot(9).own = gvr AND lot(9).stat = 0 THEN -LOCATE 10, 11 -sml 9 -mt(9) = -1 -END IF -IF lot(11).own = gvr AND lot(14).stat = 0 THEN -LOCATE 5, 25 -sml 11 -mt(11) = -1 -END IF -IF lot(12).own = gvr THEN -LOCATE 6, 25 -sml 12 -mt(12) = -1 -END IF -IF lot(13).own = gvr AND lot(14).stat = 0 THEN -LOCATE 7, 25 -sml 13 -mt(13) = -1 -END IF -IF lot(14).own = gvr AND lot(14).stat = 0 THEN -LOCATE 8, 25 -sml 14 -mt(14) = -1 -END IF -IF lot(15).own = gvr THEN -LOCATE 9, 25 -sml 15 -mt(15) = -1 -END IF -IF lot(16).own = gvr AND lot(19).stat = 0 THEN -LOCATE 10, 25 -sml 16 -mt(16) = -1 -END IF -IF lot(18).own = gvr AND lot(19).stat = 0 THEN -LOCATE 11, 25 -sml 18 -mt(18) = -1 -END IF -IF lot(19).own = gvr AND lot(19).stat = 0 THEN -LOCATE 12, 25 -sml 19 -mt(19) = -1 -END IF -IF lot(21).own = gvr AND lot(24).stat = 0 THEN -LOCATE 5, 40 -sml 21 -mt(21) = -1 -END IF -IF lot(23).own = gvr AND lot(24).stat = 0 THEN -LOCATE 6, 40 -sml 23 -mt(23) = -1 -END IF -IF lot(24).own = gvr AND lot(24).stat = 0 THEN -LOCATE 7, 40 -sml 24 -mt(24) = -1 -END IF -IF lot(25).own = gvr THEN -LOCATE 8, 40 -sml 25 -mt(25) = -1 -END IF -IF lot(26).own = gvr AND lot(29).stat = 0 THEN -LOCATE 9, 40 -sml 26 -mt(26) = -1 -END IF -IF lot(27).own = gvr AND lot(29).stat = 0 THEN -LOCATE 10, 40 -sml 27 -mt(27) = -1 -END IF -IF lot(28).own = gvr THEN -LOCATE 11, 40 -sml 28 -mt(28) = -1 -END IF -IF lot(29).own = gvr AND lot(29).stat = 0 THEN -LOCATE 12, 40 -sml 29 -mt(29) = -1 -END IF -IF lot(31).own = gvr AND lot(34).stat = 0 THEN -LOCATE 5, 55 -sml 31 -mt(31) = -1 -END IF -IF lot(32).own = gvr AND lot(34).stat = 0 THEN -LOCATE 6, 55 -sml 32 -mt(32) = -1 -END IF -IF lot(34).own = gvr AND lot(34).stat = 0 THEN -LOCATE 7, 55 -sml 34 -mt(34) = -1 -END IF -IF lot(35).own = gvr THEN -LOCATE 8, 55 -sml 35 -mt(35) = -1 -END IF -IF lot(37).own = gvr AND lot(39).stat = 0 THEN -LOCATE 9, 55 -sml 37 -mt(37) = -1 -END IF -IF lot(39).own = gvr AND lot(39).stat = 0 THEN -LOCATE 10, 55 -sml 39 -mt(39) = -1 -END IF -IF st(gvr).chag THEN -LOCATE 12, 11 -PRINT 40; -COLOR 12 -PRINT "GOOJF" -COLOR 15 -mt(40) = -1 -END IF -IF st(gvr).cheg THEN -LOCATE 12, 55 -PRINT 41; -COLOR 14 -PRINT "GOOJF" -COLOR 15 -mt(41) = -1 -END IF -ce 13, RTRIM$(st(gvr).ft) + ", you have $" + ltsb(st(gvr).c) -ce 14, "Choose a deed to trade or 0 to continue" -DO -pick = 0 -IF (NOT mt(pick)) AND (NOT q) THEN b -pick = ner(15, 41) -LOOP UNTIL mt(pick) -SELECT CASE pick -CASE 1 TO 39 -lot(pick).own = 0 -CASE 40 -st(gvr).chag = 0 -CASE 41 -st(gvr).cheg = 0 -END SELECT -wit(pick) = gvr -LOOP UNTIL pick = 0 -ce 16, "cash to give" -cg(gvr) = nerb(17, st(gvr).c) -NEXT -IF cg(1) > cg(2) THEN -box -popp 1, cg(1) - cg(2) -END IF -IF cg(2) > cg(1) THEN -box -popp 2, cg(2) - cg(1) -END IF -IF wit(40) > 0 THEN st(3 - wit(40)).chag = -1 -IF wit(41) > 0 THEN st(3 - wit(41)).cheg = -1 -FOR flip = 1 TO 39 -IF wit(flip) > 0 AND (NOT lot(flip).hk) THEN -lot(flip).own = 3 - wit(flip) -wit(flip) = 0 -END IF -NEXT -FOR flip = 1 TO 39 -IF wit(flip) > 0 THEN -lot(flip).own = 3 - wit(flip) -box -ce 5, RTRIM$(st(3 - wit(flip)).ft) + ", you have $" + ltsb(st(3 - wit(flip)).c) -COLOR lot(flip).hue -ce 6, RTRIM$(lot(flip).ttl) -COLOR 15 -ce 7, "is mortgaged." -IF st(3 - wit(flip)).c >= INT(.5 + lot(flip).c * uf!) THEN -ce 8, "Do you want to unmortgage it now? (Y/N)" -y = INT(.5 + lot(flip).c * uf!) -n = INT(.5 + lot(flip).c * (uf! - .5)) -ce 9, "Y will cost $" + lts(y) -IF n > 0 THEN ce 10, "N will cost $" + lts(n) -DO -LOOP UNTIL INKEY$ = "" -DO -yn$ = LCASE$(INKEY$) -LOOP UNTIL yn$ = "y" OR yn$ = "n" -ELSE -yn$ = "n" -END IF -IF yn$ = "y" THEN -pay 3 - wit(flip), y -lot(flip).hk = 0 -ELSE -IF n > 0 THEN -pay 3 - wit(flip), n -ce 14, "mortgaged property fee." -END IF -p -END IF -END IF -NEXT -END SUB - -FUNCTION txk$ -DO -DO -LOOP UNTIL INKEY$ = "" -DO -tx$ = INKEY$ -LOOP UNTIL tx$ > "" -SELECT CASE LCASE$(tx$) -CASE "a" TO "z", CHR$(13), CHR$(8) -valid = -1 -CASE ELSE -valid = 0 -IF (NOT q) THEN b -END SELECT -LOOP UNTIL valid -txk = tx$ -END FUNCTION - -SUB unm (t) -DIM gp(39) -gp(0) = -1 -box -IF lot(1).own = t AND lot(1).hk AND st(t).c >= INT(.5 + lot(1).c * uf!) THEN -LOCATE 5, 11 -dy 1 -gp(1) = -1 -END IF -IF lot(3).own = t AND lot(3).hk AND st(t).c >= INT(.5 + lot(3).c * uf!) THEN -LOCATE 6, 11 -dy 3 -gp(3) = -1 -END IF -IF lot(5).own = t AND lot(5).hk AND st(t).c >= INT(.5 + lot(5).c * uf!) THEN -LOCATE 7, 11 -dy 5 -gp(5) = -1 -END IF -IF lot(6).own = t AND lot(6).hk AND st(t).c >= INT(.5 + lot(6).c * uf!) THEN -LOCATE 8, 11 -dy 6 -gp(6) = -1 -END IF -IF lot(8).own = t AND lot(8).hk AND st(t).c >= INT(.5 + lot(8).c * uf!) THEN -LOCATE 9, 11 -dy 8 -gp(8) = -1 -END IF -IF lot(9).own = t AND lot(9).hk AND st(t).c >= INT(.5 + lot(9).c * uf!) THEN -LOCATE 10, 11 -dy 9 -gp(9) = -1 -END IF -IF lot(11).own = t AND lot(11).hk AND st(t).c >= INT(.5 + lot(11).c * uf!) THEN -LOCATE 5, 26 -dy 11 -gp(11) = -1 -END IF -IF lot(12).own = t AND lot(12).hk AND st(t).c >= INT(.5 + lot(12).c * uf!) THEN -LOCATE 6, 26 -dy 12 -gp(12) = -1 -END IF -IF lot(13).own = t AND lot(13).hk AND st(t).c >= INT(.5 + lot(13).c * uf!) THEN -LOCATE 7, 26 -dy 13 -gp(13) = -1 -END IF -IF lot(14).own = t AND lot(14).hk AND st(t).c >= INT(.5 + lot(14).c * uf!) THEN -LOCATE 8, 26 -dy 14 -gp(14) = -1 -END IF -IF lot(15).own = t AND lot(15).hk AND st(t).c >= INT(.5 + lot(15).c * uf!) THEN -LOCATE 9, 26 -dy 15 -gp(15) = -1 -END IF -IF lot(16).own = t AND lot(16).hk AND st(t).c >= INT(.5 + lot(16).c * uf!) THEN -LOCATE 10, 26 -dy 16 -gp(16) = -1 -END IF -IF lot(18).own = t AND lot(18).hk AND st(t).c >= INT(.5 + lot(18).c * uf!) THEN -LOCATE 11, 26 -dy 18 -gp(18) = -1 -END IF -IF lot(19).own = t AND lot(19).hk AND st(t).c >= INT(.5 + lot(19).c * uf!) THEN -LOCATE 12, 26 -dy 19 -gp(19) = -1 -END IF -IF lot(21).own = t AND lot(21).hk AND st(t).c >= INT(.5 + lot(21).c * uf!) THEN -LOCATE 5, 41 -dy 21 -gp(21) = -1 -END IF -IF lot(23).own = t AND lot(23).hk AND st(t).c >= INT(.5 + lot(23).c * uf!) THEN -LOCATE 6, 41 -dy 23 -gp(23) = -1 -END IF -IF lot(24).own = t AND lot(24).hk AND st(t).c >= INT(.5 + lot(24).c * uf!) THEN -LOCATE 7, 41 -dy 24 -gp(24) = -1 -END IF -IF lot(25).own = t AND lot(25).hk AND st(t).c >= INT(.5 + lot(25).c * uf!) THEN -LOCATE 8, 41 -dy 25 -gp(25) = -1 -END IF -IF lot(26).own = t AND lot(26).hk AND st(t).c >= INT(.5 + lot(26).c * uf!) THEN -LOCATE 9, 41 -dy 26 -gp(26) = -1 -END IF -IF lot(27).own = t AND lot(27).hk AND st(t).c >= INT(.5 + lot(27).c * uf!) THEN -LOCATE 10, 41 -dy 27 -gp(27) = -1 -END IF -IF lot(28).own = t AND lot(28).hk AND st(t).c >= INT(.5 + lot(28).c * uf!) THEN -LOCATE 11, 41 -dy 28 -gp(28) = -1 -END IF -IF lot(29).own = t AND lot(29).hk AND st(t).c >= INT(.5 + lot(29).c * uf!) THEN -LOCATE 12, 41 -dy 29 -gp(29) = -1 -END IF -IF lot(31).own = t AND lot(31).hk AND st(t).c >= INT(.5 + lot(31).c * uf!) THEN -LOCATE 5, 56 -dy 31 -gp(31) = -1 -END IF -IF lot(32).own = t AND lot(32).hk AND st(t).c >= INT(.5 + lot(32).c * uf!) THEN -LOCATE 6, 56 -dy 32 -gp(32) = -1 -END IF -IF lot(34).own = t AND lot(34).hk AND st(t).c >= INT(.5 + lot(34).c * uf!) THEN -LOCATE 7, 56 -dy 34 -gp(34) = -1 -END IF -IF lot(35).own = t AND lot(35).hk AND st(t).c >= INT(.5 + lot(35).c * uf!) THEN -LOCATE 8, 56 -dy 35 -gp(35) = -1 -END IF -IF lot(37).own = t AND lot(37).hk AND st(t).c >= INT(.5 + lot(37).c * uf!) THEN -LOCATE 9, 56 -dy 37 -gp(37) = -1 -END IF -IF lot(39).own = t AND lot(39).hk AND st(t).c >= INT(.5 + lot(39).c * uf!) THEN -LOCATE 10, 56 -dy 39 -gp(39) = -1 -END IF -ce 13, RTRIM$(st(t).ft) -ce 14, "Choose a deed to unmortgage or 0 to continue" -ce 17, "you have $" + ltsb(st(t).c) -DO -IF (NOT gp(pick)) AND (NOT q) THEN b -pick = ner(15, 39) -LOOP UNTIL gp(pick) -IF pick = 0 THEN EXIT SUB -lot(pick).hk = 0 -box -pay t, INT(.5 + lot(pick).c * uf!) -p -END SUB - -SUB upd -chk 1, 1, 3 -chk 6, 8, 9 -chk 11, 13, 14 -chk 16, 18, 19 -chk 21, 23, 24 -chk 26, 27, 29 -chk 31, 32, 34 -chk 37, 37, 39 -IF lot(12).own = lot(28).own AND lot(12).own > 0 THEN -lot(12).stat = 2 -lot(28).stat = 2 -ELSE -lot(12).stat = SGN(lot(12).own) -lot(28).stat = SGN(lot(28).own) -END IF -FOR rtt = 5 TO 35 STEP 10 -rro = rro * 10 + lot(rtt).own -lot(rtt).stat = 0 -NEXT -SELECT CASE rro -CASE 1111, 2222 -lot(5).stat = 4 -lot(15).stat = 4 -lot(25).stat = 4 -lot(35).stat = 4 -CASE 111, 222, 1222, 2111 -lot(15).stat = 3 -lot(25).stat = 3 -lot(35).stat = 3 -CASE 1011, 1211, 2022, 2122 -lot(5).stat = 3 -lot(25).stat = 3 -lot(35).stat = 3 -CASE 1101, 1121, 2202, 2212 -lot(5).stat = 3 -lot(15).stat = 3 -lot(35).stat = 3 -CASE 1110, 1112, 2220, 2221 -lot(5).stat = 3 -lot(15).stat = 3 -lot(25).stat = 3 -CASE ELSE -IF lot(5).own = lot(15).own AND lot(5).own > 0 THEN -lot(5).stat = 2 -lot(15).stat = 2 -END IF -IF lot(5).own = lot(25).own AND lot(5).own > 0 THEN -lot(5).stat = 2 -lot(25).stat = 2 -END IF -IF lot(5).own = lot(35).own AND lot(5).own > 0 THEN -lot(5).stat = 2 -lot(35).stat = 2 -END IF -IF lot(15).own = lot(25).own AND lot(15).own > 0 THEN -lot(15).stat = 2 -lot(25).stat = 2 -END IF -IF lot(15).own = lot(35).own AND lot(15).own > 0 THEN -lot(15).stat = 2 -lot(35).stat = 2 -END IF -IF lot(25).own = lot(35).own AND lot(25).own > 0 THEN -lot(25).stat = 2 -lot(35).stat = 2 -END IF -END SELECT -FOR rtt = 5 TO 35 STEP 10 -IF lot(rtt).stat = 0 THEN lot(rtt).stat = SGN(lot(rtt).own) -NEXT -swbs -END SUB - -SUB utc (t) -IF lot(st(t).whr).own = 0 THEN -noo t -EXIT SUB -END IF -IF lot(st(t).whr).own = t THEN -COLOR lot(st(t).whr).hue -ce 12, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 13, "is yours." -p -EXIT SUB -END IF -IF lot(st(t).whr).hk THEN -COLOR lot(st(t).whr).hue -ce 12, RTRIM$(lot(st(t).whr).ttl) -COLOR 15 -ce 13, "is mortgaged." -p -EXIT SUB -END IF -crl = di(d1, d2) -ce 11, lts(d1) + " + " + lts(d2) + " = " + lts(crl) + ", $" + lts(10 * crl) + " due." -p -popp t, 10 * crl -END SUB - -SUB vwd -DO -box -LOCATE 5, 11 -tiny 1 -LOCATE 6, 11 -tiny 3 -LOCATE 7, 11 -tiny 5 -LOCATE 8, 11 -tiny 6 -LOCATE 9, 11 -tiny 8 -LOCATE 10, 11 -tiny 9 -LOCATE 5, 25 -tiny 11 -LOCATE 6, 25 -tiny 12 -LOCATE 7, 25 -tiny 13 -LOCATE 8, 25 -tiny 14 -LOCATE 9, 25 -tiny 15 -LOCATE 10, 25 -tiny 16 -LOCATE 11, 25 -tiny 18 -LOCATE 12, 25 -tiny 19 -LOCATE 5, 40 -tiny 21 -LOCATE 6, 40 -tiny 23 -LOCATE 7, 40 -tiny 24 -LOCATE 8, 40 -tiny 25 -LOCATE 9, 40 -tiny 26 -LOCATE 10, 40 -tiny 27 -LOCATE 11, 40 -tiny 28 -LOCATE 12, 40 -tiny 29 -LOCATE 5, 55 -tiny 31 -LOCATE 6, 55 -tiny 32 -LOCATE 7, 55 -tiny 34 -LOCATE 8, 55 -tiny 35 -LOCATE 9, 55 -tiny 37 -LOCATE 10, 55 -tiny 39 -ce 13, "choose a deed to view or 0 to continue" -wt = ner(14, 39) -IF wt = 0 THEN EXIT DO -SELECT CASE lot(wt).sty -CASE "b" -box -COLOR lot(wt).hue -ce 5, RTRIM$(lot(wt).ttl) -COLOR 7 -ce 6, "cost $" + lts(lot(wt).c) -ce 7, "mortgage value $" + lts(lot(wt).c / 2) -ce 8, "rent $" + lts(lot(wt).r) -ce 9, "rent with one house $" + lts(lot(wt).r1) -ce 10, "rent with two houses $" + lts(lot(wt).r2) -ce 11, "rent with three houses $" + lts(lot(wt).r3) -ce 12, "rent with four houses $" + lts(lot(wt).r4) -ce 13, "rent with hotel $" + lts(lot(wt).rhot) -ce 14, "houses cost $" + lts(lot(wt).bc) + " each" -ce 15, "hotel costs $" + lts(lot(wt).bc) + " plus 4 houses" -COLOR 15 -IF lot(wt).own = 0 THEN -ce 16, "unowned" -ELSE -ce 16, "owned by " + RTRIM$(st(lot(wt).own).ft) -IF lot(wt).hk THEN -ce 17, "mortgaged, $" + lts(INT(.5 + lot(wt).c * uf!)) + " to unmortgage." -ELSE -SELECT CASE lot(wt).stat -CASE 0 -ce 17, "with no buildings" -CASE 1 -ce 17, "with one house" -CASE 2 -ce 17, "with two houses" -CASE 3 -ce 17, "with three houses" -CASE 4 -ce 17, "with four houses" -CASE 5 -ce 17, "with hotel" -END SELECT -END IF -END IF -p -CASE "u" -box -COLOR lot(wt).hue -ce 5, RTRIM$(lot(wt).ttl) -COLOR 15 -ce 6, "cost $150" -ce 7, "mortgage value $75" -ce 8, "rent with one Utility, four times dice" -ce 9, "rent with two Utilities, ten times dice" -IF lot(wt).own = 0 THEN -ce 16, "unowned" -ELSE -ce 16, "owned by " + RTRIM$(st(lot(wt).own).ft) -IF lot(wt).hk THEN ce 17, "mortgaged, $" + lts(INT(.5 + lot(wt).c * uf!)) + " to unmortgage." -SELECT CASE lot(wt).stat -CASE 1 -ce 18, "one Utility" -CASE 2 -ce 18, "two utlities" -END SELECT -END IF -p -CASE "r" -box -COLOR lot(wt).hue -ce 5, RTRIM$(lot(wt).ttl) -COLOR 15 -ce 6, "cost $200" -ce 7, "mortgage value $100" -ce 8, "rent with one Railroad $25" -ce 9, "rent with two Railroads $50" -ce 10, "rent with three Railroads $100" -ce 11, "rent with four Railroads $200" -IF lot(wt).own = 0 THEN -ce 16, "unowned" -ELSE -ce 16, "owned by " + RTRIM$(st(lot(wt).own).ft) -IF lot(wt).hk THEN ce 17, "mortgaged, $" + lts(INT(.5 + lot(wt).c * uf!)) + " to unmortgage." -SELECT CASE lot(wt).stat -CASE 1 -ce 18, "one Railroad" -CASE 2 -ce 18, "two Railroads" -CASE 3 -ce 18, "three Railroads" -CASE 4 -ce 18, "four Railroads" -END SELECT -END IF -p -CASE "o" -IF (NOT q) THEN b -END SELECT -LOOP UNTIL wt = 0 -END SUB - diff --git a/programs/samples/pete/monopoly/monopoly.txt b/programs/samples/pete/monopoly/monopoly.txt deleted file mode 100644 index c2881f675..000000000 --- a/programs/samples/pete/monopoly/monopoly.txt +++ /dev/null @@ -1,11 +0,0 @@ -This version of monopoly allows several house rules:(y/n choice for each) free parking jackpot , sell back houses/hotels at full price, unmortgage interest, unlimited houses/hotels, land on go bonus, and beep on bad input. - -It also has a larger board, and three new options: trading, quick inventories, and deed viewing. - -When you are raising cash, it shows how much you need/have. - -Everything happens on the board now. - -Sorry: no trading to raise cash, no choosing the spot for an odd building, only one save slot, no comments in code. - -Any other questions? grahambhg@yahoo.com diff --git a/programs/samples/pete/mooncr/gameinfo.txt b/programs/samples/pete/mooncr/gameinfo.txt deleted file mode 100644 index 26424f5dd..000000000 --- a/programs/samples/pete/mooncr/gameinfo.txt +++ /dev/null @@ -1,19 +0,0 @@ -- - - Mooncrap 1999 - - - -- -- written by Daniel Kupfer -- Runs in Qbasic / QUICK BASIC 4.5 -- - -Controls: - -move left = left arrow / NUM 4 (use NUM 4) -move right = right arrow / NUM 6 (use NUM 6) -fire laser = left Strg -S = Toggle Sound -P = Pause Game - -Press F1 in Title Screen - -- For any questions mail to: -- Email adress: dk1000000@aol.com -- or: dku1000000@cs.com diff --git a/programs/samples/pete/mooncr/mooncr.bas b/programs/samples/pete/mooncr/mooncr.bas deleted file mode 100644 index 1254d0703..000000000 --- a/programs/samples/pete/mooncr/mooncr.bas +++ /dev/null @@ -1,2181 +0,0 @@ -REM - written for QBasic / QuickBasic (freeware) - -REM - V.26 -REM - by Daniel Kupfer -REM - for more info look at the end / press f1 in title -REM - any problems / questions ? mail: dk1000000@aol.com - -SCREEN 7 -DEFINT A-Z -scx = 159: scy = 99 -xp = scx: yp = 172: vp = 6: vsh = 6 -xpmin = 0: xpmax = 319: shmax = 15: emax = 7: esmax = 3: fmax = 15 -stmax = 31: exmax = 7 -SND = 1: bonplay& = 20000 -pi! = 3.14158: pi2! = pi! / 2: pi4! = pi! / 4 -cts1 = 0: cts2 = 4: cts3 = 10 - -DIM tae(201), tne(201): n = shmax -DIM xsh(n), ysh(n): n = stmax -DIM xst(n), yst(n), xst!(n), yst!(n), cst(n), vst(n): n = emax -DIM xe!(n), ye!(n), ae(n), dae(n), ne(n), ce(n), ste(n) -DIM ze(n), zze(n), tpe(n), tce(n): n = exmax -DIM xex(n), yex(n), stex(n), zex(n), tex(n): n = esmax -DIM xes!(n), yes!(n), dxes!(n), dyes!(n), stes(n), tes(n) -DIM aes(n), des(n): n = fmax -DIM fx!(n), fy!(n), dfx!(n), dfy!(n), fc(n), ft(n): n = 11 -DIM ptse(n), dble(n), anie(n), adde(n), zoome(n) -DIM table(n), c1e(n), c2e(n), expe(n), c1ee(2, n), c2ee(2, n): n = 7 -DIM tce0(n), xec(n), yec(n), aec(n): n = 12 -DIM xc!(n), yc!(n), zc!(n), cc(n), ac(n), nc(n) -DIM ENEMY$(20, 3), CRASH$(4), bin(4), CH$(42): n = 7 -DIM vbos(n), vsbos(n), tsbos(n), fsbos(n), ptsbos(n), hrbos(n) -DIM BOSS$(n), STAGE$(n) -DIM cp(95), SFINAL$(2, 9), CREDIT$(50) -A5$ = STRING$(4, CHR$(170)) + STRING$(4, CHR$(85)) - -FOR e = 1 TO 11: READ p, d, m, a, z, T, ex -ptse(e) = p: dble(e) = d: anie(e) = m: adde(e) = a: zoome(e) = z -table(e) = T: expe(e) = ex: NEXT e -DATA 10,0,0,0,64,1,1, 20,0,0,0,64,2,1, 25,0,0,0,64,2,1 -DATA 40,0,0,0,64,5,1, 50,0,0,0,64,4,1, 200,0,0,0,64,6,1 -DATA 250,0,0,0,64,7,1, 100,1,0,1,64,2,1, 120,0,0,0,64,3,1 -DATA 120,1,3,1,64,2,1, 160,0,2,0,48,3,1 - -FOR s = 0 TO 2 -FOR e = 1 TO 11: READ c1, c2: c1ee(s, e) = c1: c2ee(s, e) = c2: NEXT e: NEXT s -DATA 7,13, 6,14, 5,15, 5,11, 3,15, 2,10, 2,10, 4,12, 1,14, 2,14, 9,15 -DATA 4,13, 2,10, 1,4, 7,15, 4,14, 3,11, 3,11, 5,13, 2,15, 2,14, 9,15 -DATA 5,14, 3,11, 2,14, 12,14, 14,4, 4,12, 4,12, 6,14, 3,15, 6,14, 4,12 - -REM - - - - BOSS SETUP - - - - - - - -FOR n = 1 TO 7: READ a$, s$: BOSS$(n) = a$: STAGE$(n) = s$: NEXT n -DATA "MYKOR MASTER","VEGA SYSTEM","PHOENIX","ALPHA CENTAURI" -DATA "EVIL BATSY","DARK PLANET","QUARRIOR","AQUARUIS" -DATA "MC FISHKING","NEPTUN","BEEBOP QUEEN","MOONBASE" -DATA "MOTHERSHIP","EARTH" -FOR n = 1 TO 7: READ v, ts, f, p, r: vbos(n) = v: tsbos(n) = ts -fsbos(n) = f: ptsbos(n) = p: hrbos(n) = r: NEXT n -DATA 1,1,4,1000,20, 1,4,6,2500,20, 2,1,8,4000,20, 1,5,10,7500,20 -DATA 1,3,100,10000,24, 2,2,10,16000,20, 1,0,0,25000,40 -FOR n = 0 TO 3: READ c: csb(n) = c: NEXT n -DATA 4,12,14,10 - -REM - - - - ESHOT SETUP - - - - -FOR n = 1 TO 5: READ v, d: ves(n) = v: ses(n) = d: NEXT n -DATA 5,2, 4,2, 2,4, 3,2, 3,2 - -n = 1 -DO: READ a, T: tae(n) = a: tne(n) = T: n = n + 1 -LOOP UNTIL a = -1 AND T = -1 -nte = n - 1 -PATTERN1: -DATA 0,100, -900,1, 0,32, -900,1, 0,50, -900,1, 0,8, -900,1 -DATA 0,70, 900,1, 0,10, 900,1, 0,50, -900,1, 30,60 ,0,90 -DATA 30,30, 0,50, 900,1, 0,14, 900,1, 0,20, 900,1, 0,16 -DATA 900,1, 0,20, 900,1, 0,14, 900,1, 0,20, 900,1, 0,16 -DATA 900,1, 0,20, 900,1, 0,14, 900,1, 0,40, 900,2, 0,0 -PATTERN2: -DATA -30,30, 30,75, 0,34, -30,95, 0,34, 30,95, 0,34, -30,95 -DATA 0,34, 30,95, 0,34, -30,95, 0,34, 30,50, 0,25, 30,30 -DATA 0,60, 60,30, 0,110, -60,31, 0,90, 60,31, 0,60, -60,32 -DATA 0,30, 60,32, 30,28, 0,20, 0,0, 0,0, 0,0, 0,0 -PATTERN3: -DATA -90,20, 90,30, -90,30, 90,20, -90,20, 90,40, 90,10, -90,20 -DATA 90,20, -90,30, 90,20, -90,20, 90,20, -90,21, 0,20, 0,0 -DATA 90,20, -90,30, 90,30, -90,20, 90,20, -90,40, -90,10, 90,20 -DATA -90,20, 90,30, -90,20, 90,20, -90,20, 90,21, 0,20, 0,0 -PATTERN4: -DATA 30,60, -30,-30, 30,60, 0,40, 30,20, 0,30, 30,90, -30,90 -DATA -30,90, 30,45, 0,20, -30,15, 0,10, 30,15, -30,15, 30,15 -DATA 0,80, 30,5, 0,40, 30,5, 0,40, 30,5, 0,40, 30,5 -DATA 0,40, 30,180, 0,120, 0,0, 0,0, 0,0, 0,0, 0,0 -PATTERN5: -DATA 0,130, 30,60, 0,105, 90,20, 0,60, -90,20, 0,20, 90,20 -DATA 0,60, 90,10, 0,80, 90,20, 0,80, -90,20, 0,80, 90,20 -DATA 0,60, 30,270, 0,50, 0,0, 0,0, 0,0, 0,0, 0,0 -PATTERN6: -DATA -30,85, 0,50, 30,0, -30,80, 0,60, 30,80, 0,60, -30,80 -DATA 0,60, 30,80, 0,60, -30,80, 0,60, 30,50, 0,25, 30,30 -DATA 0,60, 60,30, 0,110, -60,31, 0,90, 60,31, 0,60, -60,32 -DATA 0,30, 60,32, 30,28, 0,20, 0,0, 0,0, 0,0, 0,0 -PATTERN7: -DATA -30,60, 0,80, 0,0, 0,0, 30,60, 0,80, 0,0, 0,0 -DATA -1,-1 - -FOR n = 1 TO 7: READ T, x, y, a, v, c: tce0(n) = T: xec(n) = x: yec(n) = y -aec(n) = a: vec(n) = v: crec(n) = c: NEXT n -DATA 0,0,20,0,4,7, 40,159,119,900,4,7 -DATA 72,159,119,900,4,7, 104,149,109,900,4,7 -DATA 136,320,20,1800,4,7 -DATA 160,159,50,900,4,7, 192,159,50,900,4,7 - -FOR n = 0 TO 9: READ x, y: pcx(n) = x: pcy(n) = y: NEXT n -DATA 0,-2, -10,-2, 10,-2, -10,3, 10,3 -DATA 0,-5, -14,-4, 14,-4, -14,3, 14,3 - -RANDOMIZE TIMER -GOSUB LOAD.SPRITES -GOSUB LOAD.SOUNDS -GOSUB LOAD.CHARSET - -FOR n = 0 TO shmax: ysh(n) = -1: NEXT n -FOR n = 0 TO stmax: GOSUB CREATE.STAR: NEXT n -FOR n = 0 TO emax: ste(n) = -1: ce(n) = 2: NEXT n -FOR n = 0 TO esmax: stes(n) = -1: NEXT n - - -REM - - - - - - - - TITLE SCREEN - - - - - - - - -x = -40: zmax = 40 -FOR n = 0 TO 7: READ nc, cc -xc!(n) = x: yc!(n) = 26: zc!(n) = 200: nc(n) = nc: cc(n) = cc -x = x + 7: NEXT n -FOR n = 8 TO 9: READ nc, cc -xc!(n) = x + 55: yc!(n) = yc!(1) + 30: zc!(n) = zmax: nc(n) = nc: cc(n) = cc -x = x + 7: NEXT n -DATA 29,15, 31,15, 31,15, 30,15, 19,15, 34,15, 17,15, 32,15, 9,15, 9,15 - -REM - - - LEVEL SETUP - - - -FOR n = 1 TO 9: READ T, r, s, h -ltpe(n) = T: lrad(n) = r: lsum(n) = s: lhit(n) = h: NEXT n -DATA 1,14,1,1, 1,14,2,1, 2,12,2,1, 3,12,2,1 -DATA 4,12,2,1, 5,14,2,1, 8,16,1,3, 10,14,1,3 -DATA 6,12,4,1 - -RESTORE CREDITS -FOR n = 1 TO 34: READ a$: CREDIT$(n) = a$: NEXT n - -x = 100: y = 100: c1 = 6: c2 = 14: a = 0: z = 4 -e = 6: f = 0: GOSUB DRAW.ESPRITE -REM END - -GOSUB WAITKEY0: GOSUB TITLE - -STAGE = 1: LEVEL = 1: stbos = -1: tbos = 1 -GOSUB LOAD.LEVEL -REM ---> player setup -ssec(1) = 1: ssec(2) = 0: ssec(3) = 0: GOSUB SETUP.SHIP -stp = 0: REM status player -score& = 0 -GOSUB DRAW.PLAYER1 -n = INT(2 * RND) -IF n = 0 AND SND = 1 THEN PLAY SLAUNCH$ -IF n = 1 AND SND = 1 THEN PLAY SNEWPL1$ -GOSUB WAITFIRE: REM GOTO GAME.FINISH -GOSUB ENTER.STAGE - -MAIN: -k0 = k: k = INP(96): k$ = INKEY$ -IF k = 1 THEN END -IF k = 31 THEN SND = 1 - SND: GOSUB WAITKEY0 -IF k = 25 THEN GOSUB PAUSE.MODE -IF k = 29 AND k0 <> 29 THEN GOSUB FIRE.SHOT -GOSUB KEYS -GOSUB MOVE.PLAYER -GOSUB MOVE.SHOT -GOSUB MOVE.ENEMY -GOSUB MOVE.BOSS -GOSUB MOVE.ESHOT -GOSUB REFR.SCREEN -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -GOSUB DRAW.ESHOT -GOSUB DRAW.ENEMY -GOSUB DRAW.BOSS -GOSUB TEST.HIT.SHOT -GOSUB TEST.HIT.PLAYER -GOSUB DRAW.SHOT -GOSUB DRAW.EVENT -GOSUB DRAW.PLAYER -GOSUB DRAW.EXP -GOSUB DRAW.STAR -LOCATE 1, 30: PRINT score& -GOSUB CREATE.ESHOT -crec1 = crec1 - 1: IF crec1 = 0 THEN crec1 = crec0: GOSUB CREATE.ENEMY -cnt1 = (cnt1 + 1) AND 255 -GOSUB BINARY.CNT -GOSUB TEST.LEVELEND -REM GOSUB DOCKING -GOTO MAIN - - -MOVE.BOSS: -IF stbos < 0 THEN RETURN -xbos! = xbos! + dxbos!: ybos! = ybos! + dybos! -IF hbos = 1 AND ybos! > 10 AND tbos < 7 THEN ybos! = ybos! - 3 -IF xbos! < 10 THEN dxbos! = 1 -IF xbos! > 309 THEN dxbos! = -1 -IF ybos! < 10 THEN dybos! = 1 -IF ybos! > 99 THEN dybos! = -1 -GOSUB SHOT.BOSS -IF INT(100 * RND) < 1 THEN GOSUB ACTIV.BOSS -RETURN - -SHOT.BOSS: -IF tbos = 7 THEN GOTO SHOT.SUPERBOSS -r = fsbos(tbos) * STAGE -IF INT(1000 * RND) > r THEN RETURN -x = xbos!: y = ybos!: T = tsbos(tbos): s = ses(T) -IF T = 3 THEN s = 2 + INT(5 * RND) -GOSUB FIRE.ESHOT -RETURN - -SHOT.SUPERBOSS: -GOSUB CREATE.SUPERENEMY -RETURN - -CREATE.SUPERENEMY: -IF INT(8 * RND) > 0 THEN RETURN -n = (eptr + 1) AND emax: IF ste(n) <> -1 THEN RETURN -T = tpe + 1: mt = table(T) -ye!(n) = ybos!: ae(n) = 900 + 180 * RND - 90 -xe!(n) = xbos! -ze(n) = 64: zze(n) = zoome(T) -ste(n) = 0: tpe(n) = T -tce(n) = tce0(mt) + INT(2 * RND) * 4 -GOSUB LOADPTR.ENEMY -RETURN - -ACTIV.BOSS: -a! = INT(8 * RND) * pi4! -dxbos! = COS(a!) * vbos(tbos): dybos! = SIN(a!) * vbos(tbos) -IF tbos = 7 THEN dybos! = 0 -RETURN - -DRAW.BOSS: -IF stbos = -1 THEN RETURN -IF stbos < 0 THEN GOTO DRAW.BOSS1 -x = xbos!: y = ybos! -ON tbos GOSUB DBOSS1, DBOSS2, DBOSS3, DBOSS4, DBOSS5, DBOSS6, DBOSS7 -IF bin(1) = 0 THEN hbos = 0 -RETURN -DRAW.BOSS1: -stbos = stbos + 1: GOSUB DRAW.BDOTS -IF stbos < -100 AND SND = 1 THEN SOUND 37 + 120 * RND, .4 -IF stbos = -90 THEN GOTO DRAW.BOSS2 -IF stbos > -96 AND stbos < -48 AND PLAY(0) = 0 AND SND = 1 THEN PLAY SBOSPTS$ -RETURN -DRAW.BOSS2: -FOR e = 0 TO emax: ste(e) = -1: NEXT e: cresum = 0 -pts& = ptsbos(tbos): GOSUB LOAD.SCORE -evcnt = 50: evpts = pts&: evtpe = 1 -RETURN - -DRAW.BDOTS: -FOR m = 0 TO fmax -x = fx!(m): y = fy!(m) -LINE (x, y)-(x + 1, y + 1), fc(m), BF -fx!(m) = fx!(m) + dfx!(m): fy!(m) = fy!(m) + dfy!(m) -NEXT m -RETURN - -DRAW.EVENT: -IF evcnt <= 0 THEN RETURN -evcnt = evcnt - 1: yc! = 70: ac = 0: sc = 4: T$ = evtxt$ -IF evtpe = 1 THEN xc! = 160: i = evpts: cc = 15 * RND: GOSUB DRAW.INTF -IF evtpe = 2 THEN xc! = 159 - LEN(T$) * 4: cc = 15: GOSUB DRAW.TXTZ -RETURN - -BINARY.CNT: -bin(1) = 1 - bin(1): b2 = bin(2): b3 = bin(3) -IF bin(1) = 0 THEN bin(2) = 1 - bin(2) -IF bin(2) < b2 THEN bin(3) = 1 - bin(3) -IF bin(3) < b3 THEN bin(4) = 1 - bin(4) -RETURN - -TEST.LEVELEND: -IF emovcnt > 0 OR expcnt > 0 OR stbos <> -1 THEN etimer = 0: RETURN -etimer = etimer + 1: IF etimer < 25 THEN RETURN -etimer = 0 -IF (LEVEL AND 7) = 5 THEN GOSUB DOCKING: REM level 3 + 7 -GOSUB ADVANCE.LEVEL -GOTO MAIN - -PAUSE: -DO: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: c = c - 1: LOOP UNTIL c = 0 -RETURN - -WAITFIRE: -GOSUB WAITKEY0 -t0! = TIMER -DO -k = INP(96): k$ = INKEY$ -t1! = TIMER - t0! -LOOP UNTIL k = 29 OR t1! > 4 -GOSUB WAITKEY0 -RETURN - -KEYS: -REM IF k0 = 75 OR k0 = 77 THEN RETURN -IF k = 75 THEN dxp = -vp: k1 = 203 -IF k = 77 THEN dxp = vp: k1 = 205 -IF k = k1 THEN dxp = 0 -RETURN - -MOVE.PLAYER: -IF stp < 0 THEN GOTO CREATE.PLAYER -xp = xp + dxp -IF xp > xpmax THEN xp = xpmax -IF xp < xpmin THEN xp = xpmin -RETURN - -CREATE.PLAYER: -IF stp < -1 THEN RETURN -stp = 0: f = 0 -FOR q = 1 TO 3 -IF ssec(q) > -1 THEN f = 1 -IF ssec(q) = 0 THEN ssec(q) = 1: f = 1: EXIT FOR -NEXT q -IF f = 0 THEN stp = 1 -IF f = 1 AND SND = 1 THEN PLAY SNEWPL2$ -GOSUB SETUP.SHIP -RETURN - -SETUP.SHIP: -sss0 = 0: sss1 = 0: s = 0 -IF ssec(1) = 1 THEN s = s OR 1 -IF ssec(2) = 1 THEN s = s OR 2 -IF ssec(3) = 1 THEN s = s OR 2 -IF s = 3 THEN sss0 = 1 -IF s = 2 THEN sss1 = 1 -RETURN - -FIRE.SHOT: -IF stp > 0 THEN RETURN -IF sss0 = 1 THEN sss1 = 1 - sss1 -IF sss1 = 0 AND ssec(1) = 1 THEN GOSUB FIRE.SHOT1: s = 1 -IF sss1 = 1 AND ssec(2) = 1 THEN GOSUB FIRE.SHOT2: s = 2 -IF sss1 = 1 AND ssec(3) = 1 THEN GOSUB FIRE.SHOT3: s = 2 -RETURN -FIRE.SHOT1: -IF ysh(cts1) > 0 THEN RETURN -xsh(cts1) = xp: ysh(cts1) = yp - 4 -cts1 = cts1 + 1: IF cts1 = 4 THEN cts1 = 0 -IF PLAY(0) = 0 AND SND = 1 THEN PLAY SLASER1$ -RETURN -FIRE.SHOT2: -IF ysh(cts2) > 0 OR ysh(cts2 + 1) > 0 THEN RETURN -xsh(cts2) = xp - 9: ysh(cts2) = yp + 3 -xsh(cts2 + 1) = xp + 9: ysh(cts2 + 1) = yp + 3 -cts2 = cts2 + 2: IF cts2 = 10 THEN cts2 = 4 -IF PLAY(0) = 0 AND SND = 1 THEN PLAY SLASER2$ -RETURN -FIRE.SHOT3: -IF ysh(cts3) > 0 OR ysh(cts3 + 1) > 0 THEN RETURN -xsh(cts3) = xp - 14: ysh(cts3) = yp + 10 -xsh(cts3 + 1) = xp + 14: ysh(cts3 + 1) = yp + 10 -cts3 = cts3 + 2: IF cts3 = 16 THEN cts3 = 10 -IF PLAY(0) = 0 AND SND = 1 THEN PLAY SLASER2$ -RETURN - -REFR.SCREEN: -WAIT &H3DA, 8, 8: WAIT &H3DA, 8 -scr = 1 - scr: SCREEN 7, 0, 1 - scr, scr: CLS -RETURN -REFR.DOCKSCREEN: -WAIT &H3DA, 8, 8: WAIT &H3DA, 8 -scr = 1 - scr: SCREEN 7, 0, 1 - scr, scr -VIEW (1, 25)-(318, 198), 0, 0: VIEW -RETURN - -MOVE.SHOT: -FOR n = 0 TO shmax: ys = ysh(n) -IF ys < 0 THEN GOTO MOVE.SHOT1 - ys = ys - vsh: ysh(n) = ys -MOVE.SHOT1: -NEXT n - -MOVE.ENEMY: -emovcnt = 0 -FOR n = 0 TO emax -IF ste(n) < 0 THEN GOTO MOVE.ENEMY1 -ne(n) = ne(n) - 1: IF ne(n) <= 0 THEN GOSUB LOADPTR.ENEMY - a! = ae(n) * (pi! / 1800): emovcnt = emovcnt + 1 - dx! = COS(a!) * vec: dy! = -SIN(a!) * vec - xe!(n) = xe!(n) + dx! / 2: ye!(n) = ye!(n) + dy! / 2 - ae(n) = (ae(n) + dae(n)) MOD 3600 - IF ze(n) < zze(n) THEN ze(n) = ze(n) + 1 - IF ABS(xe!(n) - scx) > 180 OR ABS(ye!(n) - scy) > 120 THEN GOSUB RESET.ENEMY -MOVE.ENEMY1: -NEXT n -RETURN - -MOVE.ESHOT: -FOR n = 0 TO esmax -IF stes(n) < 0 THEN GOTO MOVE.ESHOT1 - xes!(n) = xes!(n) + dxes!(n): yes!(n) = yes!(n) + dyes!(n) - aes(n) = aes(n) + 1 - IF ABS(xes!(n) - scx) > 160 OR ABS(yes!(n) - scy) > 100 THEN stes(n) = -1 -MOVE.ESHOT1: -NEXT n -RETURN - -DRAW.ESHOT: -FOR n = 0 TO esmax -IF stes(n) < 0 THEN GOTO DRAW.ESHOT1 - x = xes!(n): y = yes!(n): a = aes(n): d = des(n) - T = tes(n) - ON T GOSUB DESHOT1, DESHOT2, DESHOT3, DESHOT4, DESHOT5 -DRAW.ESHOT1: -NEXT n -RETURN - -DESHOT1: -c = 1 -LINE (x - 1, y - 2)-(x + 1, y + 2), c, B -LINE (x, y - 3)-(x, y + 3), c -LINE (x, y - 2)-(x, y + 2), 15 -RETURN -DESHOT2: -CIRCLE (x, y), d, 4: PAINT (x, y), 10, 4 -RETURN -DESHOT3: -f! = 1 + SIN(a / 4) * .4: f2! = d * .7 -CIRCLE (x, y), d + .5, 7, , , f! -CIRCLE (x, y), d, 15, , , f! -LINE (x - d * .1 / f! - 1, y - d * .3 * f!)-(x - 1, y), 7, B -RETURN -DESHOT4: -a = (a * 30) MOD 360: z = 4: c = 15: e = 1: GOSUB DRAW.SSPRITE -RETURN -DESHOT5: -a = (a * 9) MOD 360: z = 4: c = 15: e = 2: GOSUB DRAW.SSPRITE -RETURN - -CREATE.ESHOT: -IF STAGE <= 1 THEN RETURN -r = (20 / STAGE) * RND: IF r > 0 THEN RETURN -e = INT((emax + 1) * RND) -IF ye!(e) > 80 OR ste(e) < 0 THEN RETURN -x = xe!(e): y = ye!(e) -T = 1 - (tpe = 10): s = ses(T): GOSUB FIRE.ESHOT -RETURN -FIRE.ESHOT: -escnt = (escnt + 1) AND esmax: n = escnt -IF stes(n) > -1 THEN RETURN - xes!(n) = x: yes!(n) = y: v = ves(T) - a! = pi2! - (pi! / 8) * RND + pi4!: dx! = COS(a!) * v: dy! = SIN(a!) * v - IF SGN(xp - x) <> SGN(dx!) THEN dx! = -dx! - dxes!(n) = dx!: dyes!(n) = dy! - stes(n) = 0: tes(n) = T: aes(n) = 0: des(n) = s -IF PLAY(0) > 0 OR SND = 0 THEN RETURN -ON T GOSUB SESHOT1, SESHOT2, SESHOT3, SESHOT3, SESHOT3 -RETURN - -SESHOT1: -PLAY SSHOOT2$: RETURN -SESHOT2: -PLAY SSHOOT2$: RETURN -SESHOT3: -PLAY SSHOOT3$: RETURN - -RESET.STAR: -xst(n) = 320 * RND: yst(n) = 0 * RND: cst(n) = INT(15 * RND) + 1 -RETURN -CREATE.STAR: -xst(n) = 320 * RND: yst(n) = 200 * RND: cst(n) = INT(8 * RND) -RETURN - -RESET.ENEMY: -IF tbos = 7 THEN GOSUB RESET.SUPERENEMY -mt = table(tpe) -xe!(n) = xec(mt): ye!(n) = yec(mt): ze(n) = 9 -RETURN -RESET.SUPERENEMY: -IF (n AND 1) = 1 THEN ste(n) = -1 -RETURN - -CREATE.ENEMY: -n = eptr: eptr = (eptr + 2) AND emax -IF ste(n) <> -1 THEN RETURN -crecnt = crecnt + 1: IF crecnt > cresum THEN RETURN -T = tpe: mt = table(T) -xe!(n) = xec(mt): ye!(n) = yec(mt): ae(n) = aec(mt) -ze(n) = 9: zze(n) = zoome(T) -ste(n) = 0: tpe(n) = T: tce(n) = tce0(mt) -GOSUB LOADPTR.ENEMY -IF PLAY(0) = 0 AND SND = 1 THEN PLAY SNEW1$ -RETURN - -LOADPTR.ENEMY: -c = tce(n): dae(n) = tae(c): ne(n) = tne(c) -c = c + 1: IF tae(c) = 0 AND tne(c) = 0 THEN c = tce0(mt) -tce(n) = c -RETURN - -DRAW.STAR: -dy = (cnt1 AND 1) -FOR n = 0 TO stmax -x = xst(n): y = yst(n): c = cst(n): y = y + dy -IF POINT(x, y) = 0 THEN PSET (x, y), c -yst(n) = y: IF y > 200 THEN GOSUB RESET.STAR -NEXT n -stcnt = (stcnt + 1) AND stmax: n = stcnt -IF INT(2 * RND) = 0 THEN n = stmax * RND: GOSUB CREATE.STAR -RETURN - -DRAW.PLAYER: -IF stp > 0 THEN GOTO DRAW.GAMEOVER -IF stp < 0 THEN GOTO DRAW.SHIPEXPLODE -IF ssec(1) = 1 THEN x = xp: y = yp + 0: c = 4: GOSUB DRAW.SHIP1 -IF ssec(2) = 1 THEN x = xp: y = yp + 6: c = 9: GOSUB DRAW.SHIP2 -IF ssec(3) = 1 THEN x = xp: y = yp + 15: c = 5: GOSUB DRAW.SHIP3 -RETURN - -DRAW.ESTAR: -FOR n = 0 TO stmax -x = xst(n): y = yst(n): c = cst(n) -x = x + 1: IF x > 320 THEN x = 0: yst(n) = 10 + 180 * RND -PSET (x, y), c: xst(n) = x -NEXT n -c = 12 + INT(4 * RND): IF c = 13 OR c < 12 THEN c = 0 -n = stmax * RND: cst(n) = c -RETURN - - -DRAW.SHIPEXPLODE: -stp = stp + 1: IF stp > -10 THEN RETURN -x0 = xp: y0 = yp + 6 -IF SND = 1 THEN SOUND 37 + f1! * RND, .5 -f1! = f1! * .85 -FOR n = 1 TO 5 -x = fx!(n): y = fy!(n): a = ft(n): c = fc(n): z = dfx!(n) -e$ = CRASH$(1): GOSUB DRAW.SPRITE -NEXT n -IF bin(2) = 1 THEN GOSUB CREATE.SHIPEXPLODE -RETURN - -CREATE.SHIPEXPLODE: -FOR n = 1 TO 5 -fx!(n) = x0 + 24 * RND - 12: fy!(n) = y0 + 14 * RND - 7 -ft(n) = 360 * RND: c = 12 + INT(4 * RND): IF c = 13 THEN c = 15 -fc(n) = c: dfx!(n) = INT(3 * RND) + 2 -NEXT n -RETURN - -DRAW.SHIP1: -LINE (x, y - 3)-(x - 6, y + 3), c -LINE (x, y - 3)-(x + 6, y + 3), c -LINE (x - 6, y + 4)-(x + 6, y + 4), c -PAINT (x, y), c, c -REM c = SGN(cnt1 AND 8) * 14 -LINE (x, y + 0)-(x, y + 2), 14 -LINE (x - 5, y + 5)-(x - 5, y + 5), c -LINE (x + 5, y + 5)-(x + 5, y + 5), c -RETURN -DRAW.SHIP2: -LINE (x - 4, y - 1)-(x + 4, y + 4), c, BF -LINE (x - 10, y - 2)-(x - 9, y + 3), c, B -LINE (x + 9, y - 2)-(x + 10, y + 3), c, B -LINE (x - 9, y + 4)-(x + 9, y + 4), c -LINE (x - 1, y + 0)-(x - 1, y + 2), 14 -LINE (x + 1, y + 0)-(x + 1, y + 2), 14 -RETURN -DRAW.SHIP3: -LINE (x - 8, y)-(x - 4, y - 4), c -LINE (x - 4, y - 4)-(x + 4, y - 4), c -LINE (x + 4, y - 4)-(x + 8, y), c -LINE (x - 8, y)-(x - 4, y + 4), c -LINE (x - 4, y + 4)-(x + 4, y + 4), c -LINE (x + 4, y + 4)-(x + 8, y), c -PAINT (x, y), c, c -LINE (x - 13, y)-(x + 13, y), c -LINE (x - 14, y - 4)-(x - 13, y + 3), c, B -LINE (x + 13, y - 4)-(x + 14, y + 3), c, B -PSET (x - 13, y + 3), 0: PSET (x + 13, y + 3), 0 -LINE (x - 2, y - 1)-(x - 2, y + 1), 14 -LINE (x, y - 1)-(x, y + 1), 14 -LINE (x + 2, y - 1)-(x + 2, y + 1), 14 -RETURN - -DRAW.SHOT: -FOR n = 0 TO shmax: xs = xsh(n): ys = ysh(n) -IF ys < 0 THEN GOTO DRAW.SHOT1 - LINE (xs, ys)-(xs, ys + 3), 14 -DRAW.SHOT1: -NEXT n -RETURN - -DRAW.EXP: -expcnt = 0 -FOR n = 0 TO exmax -IF stex(n) = 0 THEN GOTO DRAW.EXP1 - T = tex(n): c = 12 + (cnt1 AND 1) * 4: a = ae(n) / 10 - x = xex(n): y = yex(n): z = zex(n) / 16 - e$ = CRASH$(T): GOSUB DRAW.SPRITE - ae(n) = (ae(n) + 0) MOD 3600: stex(n) = stex(n) - 1 - expcnt = expcnt + 1 -DRAW.EXP1: -NEXT n -RETURN - -DRAW.ENEMY: -FOR n = 0 TO emax -s = ste(n): IF s < 0 THEN GOTO DRAW.ENEMY1 - a = ae(n) / 10: z = ze(n) / 16 - x = xe!(n): y = ye!(n) - e = tpe(n): f = bin(anie(e)) * 2 - c1 = c1e(e): c2 = c2e(e): GOSUB DRAW.ESPRITE -DRAW.ENEMY1: -NEXT n -RETURN - -DRAW.GAMEOVER: -stp = stp + 1 -IF k = 29 AND stp > 50 THEN GOTO GAME.OVER -IF stp > 400 THEN GOTO GAME.OVER -ac = 0: sc = 4: cc = 15 -yc! = 90 -xc! = 120: T$ = "GAME": GOSUB DRAW.TXTF -xc! = 168: T$ = "OVER": GOSUB DRAW.TXTF -RETURN - -GAME.OVER: -IF SND = 1 THEN PLAY SEND$ -GOSUB WAITKEY0 -sc = 8: ac = 0 -DO -k = INP(96): k$ = INKEY$ -GOSUB DRAW.ESTAR -cc = 16 * RND -T$ = "WELL DONE": xc! = 80: yc! = 60: GOSUB DRAW.TXTZ -LOCATE 14, 11 -PRINT "SCORE: "; score&; "PTS" -GOSUB REFR.SCREEN -LOOP UNTIL k = 29 -RUN - -DRAW.SPRITE: -x$ = LTRIM$(STR$(x)): y$ = LTRIM$(STR$(y)) -a$ = LTRIM$(STR$(a)): c$ = LTRIM$(STR$(c)) -z$ = LTRIM$(STR$(z)) -s$ = "S" + z$ + "TA" + a$ + "C" + c$ + "bm" + x$ + "," + y$ + e$ -IF z > 1 THEN s$ = s$ + "P" + c$ + "," + c$ -DRAW s$ -RETURN -DRAW.SSPRITE: -x$ = LTRIM$(STR$(x)): y$ = LTRIM$(STR$(y)) -a$ = LTRIM$(STR$(a)): c$ = LTRIM$(STR$(c)): z$ = LTRIM$(STR$(z)) -s$ = "S" + z$ + "TA" + a$ + "C" + c$ + "bm" + x$ + "," + y$ + SHOT$(e) -DRAW s$ -RETURN -DRAW.ESPRITE: -x$ = LTRIM$(STR$(x)): y$ = LTRIM$(STR$(y)) -a$ = LTRIM$(STR$(a)): c1$ = LTRIM$(STR$(c1)): c2$ = LTRIM$(STR$(c2)) -z$ = LTRIM$(STR$(z)) -e1$ = ENEMY$(e, f): e2$ = ENEMY$(e, f + 1) -s$ = "S" + z$ + "TA" + a$ + "C" + c1$ + "bm" + x$ + "," + y$ + e1$ -IF z > 1 THEN s$ = s$ + "P" + c1$ + "," + c1$ -s$ = s$ + "C" + c2$ + e2$ -IF z > 1 THEN s$ = s$ + "P" + c2$ + "," + c2$ -DRAW s$ -RETURN - -DRAW.PLAYER1: -SCREEN 7, 0, 0, 0: CLS -cc = 15: yc! = 90 -xc! = 120: T$ = "PLAYER": GOSUB DRAW.TXT -xc! = 182: i = 1: GOSUB DRAW.INTF -RETURN - -TEST.HIT.SHOT: -FOR n = 0 TO shmax: xs = xsh(n): ys = ysh(n) -IF ys < 0 THEN GOTO TEST.HIT.SHOT1 - c = POINT(xs, ys) + POINT(xs, ys + 1) + POINT(xs, ys + 2) - IF c > 0 THEN GOSUB HIT.SHOT -TEST.HIT.SHOT1: -NEXT n -RETURN - -TEST.HIT.PLAYER: -IF stp <> 0 THEN RETURN -c = POINT(xp, yp - 3) + POINT(xp, yp + 2) + POINT(xp - 3, yp) + POINT(xp + 3, yp) -IF c <= 0 THEN RETURN -c1 = POINT(319, 199) * 4 -c2 = POINT(0, 0) + POINT(319, 0) + POINT(0, 199) + POINT(319, 199) -IF c1 = c2 AND c1 > 0 THEN RETURN -GOSUB HIT.PLAYER -RETURN - -HIT.SHOT: -x! = xs: y! = ys: r1! = hitrad -FOR e = 0 TO emax -IF ste(e) <> 0 THEN GOTO HIT.SHOT1 - dx! = xe!(e) - x!: dy! = ye!(e) - y! - r! = SQR(dx! * dx! + dy! * dy!) - IF r! < r1! THEN ysh(n) = -1: GOSUB HIT.ENEMY: EXIT FOR -HIT.SHOT1: -NEXT e -IF stbos < 0 THEN RETURN -dx! = xbos! - x!: dy! = ybos! - y! -rr! = SQR(dx! * dx! + dy! * dy!) -IF rr! < hrbos(tbos) THEN ysh(n) = -1: GOSUB HIT.BOSS -RETURN - -HIT.BOSS: -IF PLAY(0) = 0 AND SND = 1 THEN PLAY SHITBOS1$ -IF stbos < 0 THEN RETURN -IF stbos = 0 THEN GOTO EXP.BOSS -stbos = stbos - 1: hbos = 1 -xex(0) = x!: yex(0) = y!: stex(0) = 12 -zex(0) = 32: tex(0) = 2 -GOSUB ACTIV.BOSS -RETURN - -EXP.BOSS: -stbos = -160: dx = 48: d = 2 -IF tbos = 7 THEN dx = 120: d = 4 -FOR m = 0 TO exmax -xex(m) = xbos! + dx * RND - dx * .5: yex(m) = ybos! + 32 * RND - 16 -stex(m) = 30 + 30 * RND -zex(m) = (3 + INT(d * RND)) * 16: tex(m) = 1 -NEXT m -FOR m = 0 TO fmax -fx!(m) = xbos!: fy!(m) = ybos!: a! = pi! * 2 * RND -dfx!(m) = COS(a!) * 4: dfy!(m) = SIN(a!) * 4 -fc(m) = 15 -NEXT m -RETURN - -PLAY.ENEMY.CRASH: -IF T = 1 THEN PLAY SETYPE1$ -IF T = 2 THEN PLAY SETYPE2$ -IF T = 3 THEN PLAY SETYPE3$ -IF T = 4 THEN PLAY SETYPE4$ -IF T = 5 THEN PLAY SETYPE1$ -IF T = 6 THEN PLAY SETYPE1$ -IF T = 7 THEN PLAY SETYPE1$ -IF T = 8 THEN PLAY SETYPE8$ -IF T = 9 THEN PLAY SETYPE9$ -IF T = 10 THEN PLAY SETYPE10$ -IF T = 11 THEN PLAY SETYPE11$ -RETURN - -HIT.ENEMY: -IF PLAY(0) = 0 AND SND = 1 THEN T = tpe(e): GOSUB PLAY.ENEMY.CRASH -ste(e) = -1: GOSUB CREATE.EXP -hitcnt = hitcnt + 1: pts& = ptse(tpe(e)) * STAGE: GOSUB LOAD.SCORE -T = tpe(e) -IF dble(T) = 0 THEN RETURN ' unteilbar/teilbar -SPLIT.ENEMY: -f = e + 1 -ste(e) = 0: ae(e) = 900: ze(e) = zoome(T + 1): zze(e) = ze(e) -ste(f) = 0: ae(f) = 900: ze(f) = zoome(T + 1): zze(f) = ze(f) -tpe(e) = T + 1: tpe(f) = T + 1 -mt1 = table(T + 1): mt2 = table(T + 1) -tce(e) = tce0(mt1): tce(f) = tce0(mt2): tce(e) = 72: tce(f) = 88 -dae(e) = tae(tce(e)): ne(e) = tne(tce(e)) -dae(f) = tae(tce(f)): ne(f) = tne(tce(f)) -xe!(f) = xe!(e): ye!(f) = ye!(e) -IF PLAY(0) = 0 AND SND = 1 THEN PLAY SSPLIT$ -RETURN - -HIT.PLAYER: -REM LOCATE 2, 1: PRINT "HIT ON PLAYER!" -stp = -35: f1! = 600 -FOR q = 1 TO 3 -IF ssec(q) = 1 THEN ssec(q) = -1: EXIT FOR -NEXT q -GOSUB SETUP.SHIP -x0 = xp: y0 = yp + 6: GOSUB CREATE.SHIPEXPLODE -RETURN - -CREATE.EXP: -exptr = (exptr + 1) AND exmax -IF stex(exptr) > 0 THEN RETURN -xex(e) = xe!(e): yex(e) = ye!(e): stex(e) = 30 -zex(e) = ze(e): tex(e) = 1 -RETURN - -LOAD.SCORE: -B& = bonplay& -s& = score&: score& = score& + pts& -IF (score& MOD B&) > (s& MOD B&) THEN RETURN -SCREEN 7, 0, scr, scr -FOR q = 1 TO 3: IF ssec(q) = -1 THEN ssec(q) = 0: EXIT FOR -NEXT q -x = 160: y = 20: c = 4 -ON q GOSUB DRAW.SHIP1, DRAW.SHIP2, DRAW.SHIP3 -sc = 4: ac = 0: cc = 15 -T$ = "BONUS PLAYER": xc! = 178: yc! = 17: GOSUB DRAW.TXTZ -IF ssec(1) = 0 THEN ssec(1) = 1: ssec(2) = 0: ssec(3) = 0: GOSUB SETUP.SHIP -IF SND = 1 THEN PLAY SBONPLAY$ -c = 50: GOSUB PAUSE: SCREEN 7, 0, 1 - scr, scr -RETURN - -REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -DOCKING: -REM REM PLAY SDOCK1$: DO: LOOP UNTIL PLAY(0) = 0 -ss1 = 0: ss2 = 0 -IF ssec(1) = 1 THEN ss1 = ss1 OR 1 -IF ssec(2) = 1 THEN ss1 = ss1 OR 2 -IF ssec(3) = 1 THEN GOTO DOCK.END -IF ssec(3) = 0 THEN ss2 = 4: dp = 5 -IF ssec(2) = 0 THEN ss2 = 2: dp = 0 -IF ss2 = 0 THEN GOTO DOCK.END -xb = scx: yb = 172 -xp! = xb - 30 + 60 * RND: yp! = 100: vxp! = 0: vyp! = 0 -dyp! = 0: IF ss1 = 3 THEN dyp! = 6 -fcnt = 0: FOR n = 0 TO fmax: ft(n) = -1: NEXT n -grav! = .01 + ss1 * .006 -dfuel = 1000: dtime! = 10 -FOR n = 0 TO 1: SCREEN 7, 0, n, n: CLS -LOCATE 4, 9: PRINT "Time": LOCATE 4, 27: PRINT "Fuel" -GOSUB DRAW.VALUES: LOCATE 9, 12: PRINT "Docking Sequence" -NEXT n -GOSUB WAITFIRE: timer0! = TIMER + dtime! - -DOCK.MAIN: -k0 = k: k = INP(96): k$ = INKEY$ -IF k = 1 THEN END -IF k = 29 THEN GOSUB THRUST -IF k = 75 THEN vxp! = vxp! - .03 -IF k = 77 THEN vxp! = vxp! + .03 -vyp! = vyp! + grav! -GOSUB MOVE.SECTION -GOSUB MOVE.FIRE -GOSUB REFR.DOCKSCREEN -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -GOSUB DRAW.SECTION -GOTO TEST.HIT.BASE -DOCK.MAIN1: -dtime! = timer0! - TIMER -GOSUB DRAW.DSTAR -GOSUB DRAW.VALUES: GOSUB DRAW.FIRE -GOSUB DRAW.BASE: GOSUB DRAW.SECTION -cnt1 = (cnt1 + 1) AND 255 -GOTO TEST.DOCK.OUT -GOTO DOCK.MAIN - -THRUST: -IF dfuel = 0 THEN RETURN -vyp! = vyp! - .07: dfuel = dfuel - 8: IF dfuel < 0 THEN dfuel = 0 -IF SND = 1 THEN SOUND 37 + 80 * RND, .3 -GOSUB CREATE.FIRE -RETURN - -DRAW.DSTAR: -FOR n = 0 TO stmax -x = xst(n): y = yst(n): c = cst(n) -IF POINT(x, y) = 0 THEN PSET (x, y), c -NEXT n -IF cnt1 = 0 THEN RETURN -n = stmax * RND: xst(n) = 300 * RND + 10: yst(n) = 180 * RND + 10 -RETURN - -TEST.DOCK.OUT: -IF xp! < 0 OR xp! > 319 OR yp! < 32 OR yp! > 199 THEN GOTO DOCK.OUT -IF dtime! < .1 THEN GOTO DOCK.OUT -GOTO DOCK.MAIN - -DRAW.VALUES: -LOCATE 6, 8: PRINT INT(dtime! * 10) / 10 -LOCATE 6, 26: PRINT INT(dfuel / 10) -RETURN - -DOCK.END: -RETURN - -MOVE.FIRE: -FOR n = 0 TO fmax: IF ft(n) < 0 THEN GOTO MOVE.FIRE1 -fx!(n) = fx!(n) + dfx!(n): fy!(n) = fy!(n) + dfy!(n): ft(n) = ft(n) - 1 -IF POINT(fx!(n), fy!(n)) = 9 THEN dfy!(n) = -dfy!(n) / 2 -MOVE.FIRE1: -NEXT n -RETURN -CREATE.FIRE: -IF ft(fcnt) >= 0 THEN RETURN -a! = pi2! + 1 * RND - .5: dv! = ABS(pi2! - a!) * 2: v! = 2 - dv! -fx!(fcnt) = xp!: fy!(fcnt) = yp! + 4 -dfx!(fcnt) = COS(a!) * v! + vxp!: dfy!(fcnt) = SIN(a!) * v! + vyp! -ft(fcnt) = 8: fc(fcnt) = 14 - INT(2 * RND) * 8 -fcnt = (fcnt + 1) AND fmax -RETURN -DRAW.FIRE: -FOR n = 0 TO fmax: IF ft(n) < 0 THEN GOTO DRAW.FIRE1 -x = fx!(n): y = fy!(n): PSET (x, y), fc(n) -DRAW.FIRE1: -NEXT n - -MOVE.SECTION: -xp! = xp! + vxp!: yp! = yp! + vyp! -RETURN - -DRAW.SECTION: -IF (ss1 AND 1) = 1 THEN x = xp!: y = yp! - dyp!: c = 4: GOSUB DRAW.SHIP1 -IF (ss1 AND 2) = 2 THEN x = xp!: y = yp!: c = 9: GOSUB DRAW.SHIP2 -RETURN -DRAW.BASE: -IF ss2 = 2 THEN x = xb: y = yb: c = 9: GOSUB DRAW.SHIP2 -IF ss2 = 4 THEN x = xb: y = yb: c = 5: GOSUB DRAW.SHIP3 -RETURN - -TEST.HIT.BASE: -n = dp -x = xb + pcx(n): y = yb + pcy(n) -IF POINT(x, y) > 0 THEN GOTO TEST.DOCK.OK -c = 14: IF (cnt1 AND 16) = 0 THEN c = 0 -PSET (x, y), c -FOR n = dp + 1 TO dp + 4 -x = xb + pcx(n): y = yb + pcy(n) -IF POINT(x, y) > 0 THEN GOTO DOCK.CRASH -REM PSET (x, y), 14 -NEXT n -GOTO DOCK.MAIN1 - -TEST.DOCK.OK: -IF ABS(xp! - xb) > 3 THEN GOTO DOCK.CRASH -IF vyp! > .8 THEN GOTO DOCK.CRASH -GOTO DOCK.OK - -DOCK.OK: -xp! = xb: yp! = yb + pcy(db) - 4 -IF (ss1 AND 2) = 2 THEN yp! = yp! - 3 -GOSUB REFR.DOCKSCREEN: SCREEN 7, 0, scr, scr: CLS -GOSUB DRAW.VALUES -GOSUB DRAW.BASE: GOSUB DRAW.SECTION -LOCATE 9, 15: PRINT "Right On !" -IF ss2 = 2 THEN ssec(2) = 1: GOSUB SETUP.SHIP -IF ss2 = 4 THEN ssec(3) = 1: GOSUB SETUP.SHIP -IF SND = 1 THEN PLAY SDOCK2$ -DO: LOOP WHILE PLAY(0) > 0: c = 20: GOSUB PAUSE -T = INT(dtime! * 10) / 10: f = dfuel / 10: s = 200 * T + 10 * f -LOCATE 13, 6: PRINT "Bonus = 200 x"; T -LOCATE 15, 6: PRINT " + 10 x"; f; " ="; s; "x"; STAGE -pts& = s * STAGE: GOSUB LOAD.SCORE -IF SND = 1 THEN PLAY SRGTON$ -GOSUB WAITFIRE -RETURN - -DOCK.OUT: -SCREEN 7, 0, scr, scr -LOCATE 9, 10: PRINT "Section Out of Range" -GOSUB WAITFIRE -RETURN - -DOCK.CRASH: -s = 0: z1 = 4: f1! = 40 -FOR n = 1 TO 200 -a1 = 3600 * RND: c1 = (s AND 1) * 3 + 12 -c2 = 15 - (s AND 1) * 3 -IF s = 0 THEN z2 = 3 + 4 * RND: a2 = 3600 * RND: c2 = 15 -GOSUB REFR.DOCKSCREEN: GOSUB DRAW.VALUES -LOCATE 9, 13: PRINT "Sorry, no Bonus" -x = xp!: y = yp!: a = a1 / 10: c = c1: z = z1 -e$ = CRASH$(1): GOSUB DRAW.SPRITE -x = xb: y = yb: a = a2 / 10: c = c2: z = z2 -e$ = CRASH$(1): GOSUB DRAW.SPRITE -s = (s + 1) AND 7 -GOSUB DOCK.CRASH.SND -NEXT n -GOSUB WAITFIRE -RETURN - -DOCK.CRASH.SND: -f2! = f1! * RND: f1! = f1! * .98 -IF n < 150 AND SND = 1 THEN SOUND 37 + f2! * f2!, .3 -RETURN - -REM - - - - - - - - - - - - - - - - - - - - - - - - - - -ADVANCE.LEVEL: -LEVEL = LEVEL + 1 -IF STAGE = 6 AND LEVEL = 10 THEN GOTO SUPER.LEVEL -IF LEVEL = 9 THEN GOTO BOSS.LEVEL -IF LEVEL = 10 THEN GOTO WARP.LEVEL -IF LEVEL = 11 THEN GOTO GAME.FINISH -GOSUB LOAD.LEVEL -RETURN - -SUPER.LEVEL: -STAGE = 7: GOSUB ENTER.STAGE -tbos = tbos + 1: GOSUB BOSS.LEVEL -stbos = 50 -LEVEL = 9: GOSUB LOAD.LEVEL -LEVEL = 10: cresum = 24: hitsum = 24 -c1e(6) = 4: c2e(6) = 12 -c1e(7) = 12: c2e(7) = 14 -RETURN - -BOSS.LEVEL: -evcnt = 70: evtpe = 2: evtxt$ = BOSS$(STAGE) -stbos = 8 + tbos * 4: abos = 0 -xbos! = scx: ybos! = 50: dxbos! = 0: dybos! = 0 -cresum = 0: crecnt = 0: hitcnt = 0: hitsum = 0 -RETURN - -LOAD.LEVEL: -n = LEVEL -hitrad = lrad(n): tpe = ltpe(n): mt = table(tpe) -vec = vec(mt) -cresum = lsum(n) + (STAGE - 1) * 2 -crecnt = 0: hitcnt = 0: hitsum = cresum * lhit(n) -crec0 = crec(mt): crec1 = crec0 -s = (STAGE - 1) MOD 3: REM LOAD COLOR TABLE -FOR e = 1 TO 11: c1e(e) = c1ee(s, e): c2e(e) = c2ee(s, e): NEXT e -RETURN - -WARP.LEVEL: -dyp! = .5: dys! = .5: ypp = yp: yp! = yp -f1! = 0 -GOSUB SAVE.PALETTE -FOR o = 1 TO 260 -IF INP(96) = 1 THEN END -GOSUB DRAW.WARPSTAR -GOSUB DRAW.PLAYER -yp = yp!: yp! = yp! - dyp!: dyp! = dyp! * 1.01: dys! = dys! + .1 -WAIT &H3DA, 8, 8: WAIT &H3DA, 8 -SCREEN 7, 0, 1 - scr, scr: scr = 1 - scr: CLS -IF o > 30 AND o < 150 THEN LOCATE 10, 14: PRINT " WARP OUT ! " -IF o < 180 THEN f1! = f1! + 3 -IF o = 180 THEN f1! = 5000 -IF o > 60 THEN c1 = 1: c2 = 31: c3 = 2: GOSUB INC.PALETTE -IF o > 180 THEN c1 = 0: c2 = 0: c3 = 4: GOSUB INC.PALETTE: f1! = f1! * .92 -IF SND = 1 THEN SOUND 37 + f1! * RND, .3 -NEXT o -SCREEN 7, 0, scr, scr: CLS -c1 = 0: c2 = 0: c3 = 4 -FOR o = 1 TO 16: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: GOSUB DEC.PALETTE: NEXT o -GOSUB LOAD.PALETTE -yp = ypp -REM IF SND = 1 THEN PLAY SFAROUT2$: PLAY SFAROUT2$ -REM c = 70: GOSUB PAUSE -REM DO: LOOP UNTIL PLAY(0) < 4 -LEVEL = 2: STAGE = STAGE + 1 -GOSUB LOAD.LEVEL -tbos = tbos + 1: IF tbos > 6 THEN tbos = 1 -c = 20: GOSUB PAUSE -GOSUB ENTER.STAGE -RETURN - -ENTER.STAGE: -evcnt = 70: evtpe = 2: evtxt$ = "STAGE " + LTRIM$(STR$(STAGE)) -GOSUB LOAD.3DSTAR -SCREEN 7, 0, 2, 0: CLS -xs! = 159: ys! = 160: rs! = 20 -ON STAGE GOSUB DSTG1, DSTG2, DSTG3, DSTG4, DSTG5, DSTG6, DSTG7 -REM IF SND = 1 THEN PLAY SSTAGE1$ - -ENTER.STAGE1: -xs! = 159: ys! = 99: rs! = 8: rsmax! = 40: cnt = 0 -u$ = "STAGE " + LTRIM$(STR$(STAGE)): tptr = 0: mode = 0 -sss = -(STAGE > 2 AND STAGE < 7): fs! = 1.02: cnt1 = 10: cnt2 = 0 -DO -k = INP(96): k$ = INKEY$ -rs! = rs! * fs!: vs! = 1.08 -IF rs! >= rsmax! AND mode = 0 THEN rs! = rsmax!: vs! = 1.02 -GOSUB ENTER.STAGE2 -IF cnt < 160 AND mode = 0 THEN GOSUB ENTER.STAGE3 -IF (cnt AND 7) = 7 THEN GOSUB ENTER.STAGE5 -cnt = cnt + 1: IF cnt > 300 THEN GOSUB ENTER.STAGE4 -GOSUB REFR.SCREEN -IF mode = 1 AND sss = 1 AND SND = 1 THEN SOUND 37 + cnt1 * RND, 1: cnt1 = (cnt1 * 1.2) MOD 32000 -IF cnt2 = 4 AND SND = 1 THEN PLAY SSTAGE2$ -IF k = 29 AND rs! >= rsmax! THEN GOSUB ENTER.STAGE4 -LOOP WHILE rs! < 200 -RETURN - -ENTER.STAGE2: -IF sss = 0 THEN PCOPY 2, 1 - scr: RETURN -GOSUB DRAW.3DSTAR -ON STAGE - 2 GOSUB DSTG3, DSTG4, DSTG5, DSTG6 -RETURN -ENTER.STAGE3: -T$ = LEFT$(u$, tptr) -xc! = 136: yc! = 24: ac = 0: sc = 4: cc = 15 -GOSUB DRAW.TXTZ -T$ = STAGE$(STAGE) -xc! = 159 - LEN(T$) * 4: yc! = 44: ac = 0: sc = 4: cc = 15 -s = (cnt AND 8) -IF tptr <= 8 OR s > 0 AND cnt2 < 24 THEN RETURN -GOSUB DRAW.TXTZ: cnt2 = cnt2 + 1 -RETURN -ENTER.STAGE4: REM launch -mode = 1: fs! = 1.04: RETURN -ENTER.STAGE5: -tptr = tptr + 1: IF tptr < 8 THEN SOUND 622, 1 -RETURN - - -SAVE.PALETTE: -OUT &H3C7, 0 -FOR c = 0 TO 95: cp(c) = INP(&H3C9): NEXT c -RETURN -LOAD.PALETTE: -OUT &H3C8, 0 -FOR c = 0 TO 95: OUT &H3C9, cp(c): NEXT c -RETURN -INC.PALETTE: -FOR c = c1 TO c2: OUT &H3C7, c -a = INP(&H3C9): a = a + c3: IF a > 63 THEN a = 63 -B = INP(&H3C9): B = B + c3: IF B > 63 THEN B = 63 -d = INP(&H3C9): d = d + c3: IF d > 63 THEN d = 63 -OUT &H3C8, c: OUT &H3C9, a: OUT &H3C9, B: OUT &H3C9, d -NEXT c -RETURN -DEC.PALETTE: -FOR c = c1 TO c2: OUT &H3C7, c -a = INP(&H3C9): a = a - c3: IF a < 0 THEN a = 0 -B = INP(&H3C9): B = B - c3: IF B < 0 THEN B = 0 -d = INP(&H3C9): d = d - c3: IF d < 0 THEN d = 0 -OUT &H3C8, c: OUT &H3C9, a: OUT &H3C9, B: OUT &H3C9, d -NEXT c -RETURN - -DRAW.WARPSTAR: -dys = dys! -FOR n = 0 TO stmax -x = xst(n): y = yst(n) -LINE (x, y)-(x, y + dys), cst(n) -y = y + dys: yst(n) = y: IF y > 200 THEN yst(n) = -20: xst(n) = 320 * RND -NEXT n -RETURN - - -REM - - - - - - - - - - - - - - - - - - - - - -REM - - - - - - CREDITS - - - - - - - - -GAME.FINISH: -GOSUB WAITKEY0 -sc = 8: ac = 0: s = 1: GOSUB LOAD.SONG: GOSUB LOAD.3DSTAR -tcnt = 24: tptr = 0: cnt1 = -100: dy = 24: vs! = 1.06: cnt2 = 120 -DO -k = INP(96): k$ = INKEY$ -GOSUB DRAW.3DSTAR -d = 2: cc = 13 -IF cnt1 < 0 THEN cnt1 = cnt1 + 1: cc = 16 * RND: d = 0 -IF tptr > 28 THEN d = 0: cnt2 = cnt2 - 1 -IF cnt2 = 0 THEN s = 2: GOSUB LOAD.SONG -tcnt = tcnt - d -IF tcnt = 0 THEN tcnt = dy: tptr = tptr + 1 -yc! = tcnt - dy -FOR n = 1 TO 11 -T$ = CREDIT$(n + tptr) -xc! = 20: GOSUB DRAW.TXTZ -yc! = yc! + dy -NEXT n -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -GOSUB REFR.SCREEN: GOSUB PLAY.SONG -LOOP UNTIL (k = 29 AND cnt1 >= 0) -GOTO GAME.OVER - -LOAD.SONG: -nsong = s: stsong = 1: tsong = 1: RETURN - -PLAY.SONG: -IF stsong < 1 THEN RETURN -IF PLAY(0) > 0 THEN RETURN -PLAY SFINAL$(nsong, tsong) -tsong = tsong + 1: IF tsong > 7 THEN stsong = 0 -RETURN - -LOAD.3DSTAR: -FOR n = 0 TO stmax -x = 26 * RND - 13: y = 20 * RND - 10 -xst!(n) = x * x * SGN(x): yst!(n) = y * y * SGN(y) -NEXT n -RETURN -DRAW.3DSTAR: -FOR n = 0 TO stmax -x! = xst!(n): y! = yst!(n): c = cst(n) -r! = SQR(x! * x! + y! * y!) -x! = x! * vs!: y! = y! * vs! -IF r! > 160 THEN r! = 2 + 6 * RND: a! = pi! * 2 * RND: x! = COS(a!) * r!: y! = SIN(a!) * r! -PSET (scx + x!, scy - y!), 15 -xst!(n) = x!: yst!(n) = y! -NEXT n -RETURN - - - - -REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -TITLE: -a = 0: CH = 0: mode1 = 1: mode2 = 6: cnt = 35 -TITLE.MAIN: -k = INP(96): k$ = INKEY$: IF k = 1 THEN END -IF k = 29 THEN RETURN -IF k = 31 THEN SND = 1 - SND: GOSUB WAITKEY0 -IF k = 59 THEN GOSUB TITLE.HELP -GOSUB CARE.TITLE -GOSUB CARE.MENU -GOTO TITLE.MAIN - -CARE.TITLE: -GOSUB MOVE.TITLE: IF mode1 > 4 THEN RETURN -cc = 15: GOSUB DRAW.TITLE: GOSUB DRAW.YEAR -WAIT &H3DA, 8, 8: WAIT &H3DA, 8 -GOSUB REFR.TITLE -RETURN - -DRAW.TITLE: -FOR n = 0 TO 7 -nc = nc(n): ac = 0 -xc! = xc!(n): yc! = yc!(n): zc! = zc!(n) -GOSUB DRAW.CHAR3D -NEXT n -RETURN -DRAW.YEAR: -IF CH < 8 THEN RETURN -FOR n = 8 TO 9 -nc = nc(n): ac = 0 -xc! = xc!(n): yc! = yc!(n): zc! = zc!(n) -GOSUB DRAW.CHAR3D -NEXT n -RETURN - -MOVE.TITLE: -ON mode1 GOTO MTIT1, MTIT2, MTIT3, MTIT4 -RETURN -MTIT1: -zc!(CH) = zc!(CH) - 12: IF zc!(CH) <= zmax AND SND = 1 THEN PLAY SCRASH8$ -IF zc!(CH) <= zmax THEN CH = CH + 1 -IF CH > 7 THEN mode1 = mode1 + 1: cnt = 2000 -RETURN -MTIT2: -xc!(8) = xc!(8) - 2: yc!(8) = yc!(8) - 1 -xc!(9) = xc!(9) - 2: yc!(9) = yc!(9) - 1 -SOUND cnt, .4: cnt = cnt - 44 -IF yc!(8) <= yc!(7) + 8 THEN mode1 = mode1 + 1: cnt = 35 -RETURN -MTIT3: -cnt = cnt - 1: IF cnt = 34 AND SND = 1 THEN PLAY SCRASH9$ -IF cnt = 0 THEN cnt = 35: mode1 = mode1 + 1 -RETURN -MTIT4: -SCREEN 7, 0, scr, scr -scx = scx - 1: cc = 14: GOSUB DRAW.TITLE -scx = scx + 2: cc = 14: GOSUB DRAW.TITLE: scx = scx - 1 -scy = scy - 1: cc = 14: GOSUB DRAW.TITLE -scy = scy + 2: cc = 14: GOSUB DRAW.TITLE: scy = scy - 1 -cc = 4: GOSUB DRAW.TITLE -mode1 = mode1 + 1: mode2 = 1 -sss = scx -FOR scx = sss - 2 TO sss + 2: cc = 15: GOSUB DRAW.YEAR: NEXT scx -x = 214: y = 15 -CIRCLE (x, y), 5, 15: PAINT (x, y), 15, 15 -CIRCLE (x - 3, y - 1), 5, 1: PAINT (x - 3, y - 1), 1, 1 -RETURN - -REFR.TITLE: -SCREEN 7, 0, scr, 1 - scr: scr = 1 - scr -LINE (0, 0)-(319, 120), 0, BF -RETURN - -CARE.MENU: -IF mode2 < 6 THEN GOTO DRAW.MENU -RETURN -DRAW.MENU: -WAIT &H3DA, 8, 8: WAIT &H3DA, 8 -ON mode2 GOTO DMEN1, DMEN2, DMEN3, DMEN4, DMEN5 -RETURN -DMEN1: -cnt = cnt - 1: IF cnt = 0 THEN cnt = 35: mode2 = mode2 + 1 -RETURN -DMEN2: -SCREEN 7, 0, scr, scr -x = 40: y = 66: a = 90: c1 = 8: c2 = 15: f = 0: z = 4 -FOR e = 1 TO 5: GOSUB DRAW.ESPRITE: REM PSET (x, y), 10 -y = y + 18: NEXT e -mode2 = mode2 + 1: x = 58 -RETURN -DMEN3: -IF (x AND 7) > 0 THEN GOTO DMEN31 -y = 70: c1 = 15 -FOR e = 1 TO 5 -REM LINE (x, y)-(x + 1, y + 1), 7, BF -REM PSET (x, y + 1), 15: PSET (x + 1, y), 8 -LINE (x, y)-(x + 1, y), 8 -LINE (x, y + 1)-(x + 1, y + 1), 15 -y = y + 18: NEXT e -DMEN31: -x = x + 1: IF x >= 208 THEN mode2 = mode2 + 1 -RETURN -DMEN4: -ac = 0: sc = 4: cc = 15: yc! = 64 -FOR e = 1 TO 5 -i = ptse(e): xc! = 220: GOSUB DRAW.INTF -T$ = "PTS": xc! = 234: GOSUB DRAW.TXTF: yc! = yc! + 18 -NEXT e -ac = 0: sc = 4: cc = 7 -xc! = 54: yc! = 162: T$ = "PRESS F1 FOR BRIEFING": GOSUB DRAW.TXTZ -mode2 = mode2 + 1 -RETURN -DMEN5: -ac = 0: sc = 4: cc = 16 * RND -xc! = 100: yc! = 180: T$ = "PRESS FIRE": GOSUB DRAW.TXTZ -RETURN - - -REM - - - - - - - - - - - - - - - - - - -DRAW.CHAR3D: -zf! = 100 / zc!: sc = zf! * 4 -xd = INT(scx + xc! * zf!): yd = INT(scy - yc! * zf!) -x$ = LTRIM$(STR$(xd)): y$ = LTRIM$(STR$(yd)) -ta$ = LTRIM$(STR$(ac)): c$ = LTRIM$(STR$(cc)) -zs$ = LTRIM$(STR$(sc)) -s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc) -DRAW s$ -RETURN - -DRAW.CHAR: -xd = xc!: yd = yc! -x$ = LTRIM$(STR$(xd)): y$ = LTRIM$(STR$(yd)) -ta$ = LTRIM$(STR$(ac)): c$ = LTRIM$(STR$(cc)) -zs$ = LTRIM$(STR$(sc)) -s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc) -DRAW s$ -RETURN - -DRAW.FCHAR: -xd = xc!: yd = yc! -x$ = LTRIM$(STR$(xd)): y$ = LTRIM$(STR$(yd)) -ta$ = LTRIM$(STR$(ac)): c$ = LTRIM$(STR$(cc)) -zs$ = LTRIM$(STR$(sc)) -s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc) -DRAW s$: x$ = LTRIM$(STR$(xd - 1)) -s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc) -DRAW s$: x$ = LTRIM$(STR$(xd + 1)) -s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc) -DRAW s$ -RETURN - -DRAW.INTF: -sc = 4: x! = xc!: ac = 0: sc = 4 -FOR m = 0 TO 5 -nc = i MOD 10 -GOSUB DRAW.FCHAR -xc! = xc! - 10: i = INT(i / 10): IF i = 0 THEN EXIT FOR -NEXT m: xc! = x! -RETURN - -DRAW.TXTF: -sc = 4: l = LEN(T$) -FOR m = 1 TO l -nc = ASC(MID$(T$, m, 1)) - 48 -GOSUB DRAW.FCHAR -xc! = xc! + 9 -NEXT m -RETURN - -DRAW.TXT: -sc = 4: l = LEN(T$) -FOR m = 1 TO l -nc = ASC(MID$(T$, m, 1)) - 48 -GOSUB DRAW.CHAR -xc! = xc! + 9 -NEXT m -RETURN - -DRAW.TXTZ: -l = LEN(T$) -FOR m = 1 TO l: nc = ASC(MID$(T$, m, 1)) - 48 -IF nc >= 0 THEN GOSUB DRAW.CHAR -xc! = xc! + sc * 2 -NEXT m -RETURN - -WAITKEY0: -DO: k = INP(96): k$ = INKEY$: LOOP WHILE k < 128 -RETURN - -PAUSE.MODE: -GOSUB WAITKEY0: SCREEN 7, 0, scr, scr -LOCATE 11, 16: COLOR 14: PRINT "- PAUSE -" -DO: k$ = INKEY$: k = INP(96): LOOP UNTIL k = 25 -GOSUB WAITKEY0 -RETURN - -REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -DBOSS1: -c1 = 13: c2 = 12: IF hbos = 1 THEN c1 = 15: c2 = 15 -LINE (x - 10, y - 25)-(x, y - 32), 1 -LINE (x, y - 32)-(x + 10, y - 25), 1 -LINE (x - 10, y - 25)-(x + 10, y - 25), 1 -PAINT (x, y - 30), c1, 1 -LINE (x - 16, y)-(x, y + 16), 5 -LINE (x, y + 16)-(x + 16, y), 5 -LINE (x - 16, y)-(x + 16, y), 5 -PAINT (x, y + 8), c1, 5 -LINE (x, y + 15)-(x + 15, y), 5 -LINE (x - 15, y)-(x, y + 15), 5 -CIRCLE (x, y), 30, 5, -pi! * 2, -pi!, .85 -PAINT (x, y - 10), c2, 5 -CIRCLE (x - 11, y - 17), 4, 14: PAINT (x - 11, y - 17), 15, 14 -CIRCLE (x + 10, y - 12), 8, 14: PAINT (x + 10, y - 12), 15, 14 -CIRCLE (x - 15, y), 8, 14, -pi! * 2, -pi!, .85: PAINT (x - 15, y - 4), 15, 14 -CIRCLE (x + 30, y), 8, 14, -pi! * .55, -pi!, .85: PAINT (x + 26, y - 3), 15, 14 -s = SIN(cnt1 / 1) * 20 + 30 -IF PLAY(0) = 0 AND s > 37 THEN SOUND s, .2 -RETURN - -DBOSS2: -c1 = 6: c2 = 14: IF hbos = 1 THEN c1 = 15 -s = SGN(dybos!) -IF s > 0 THEN abos = abos + 2 -IF s = 0 THEN abos = abos + 15 -IF s < 0 THEN abos = abos + 30 -dy1 = SIN(abos / 100) * 5: dy2 = SIN(abos / 100) * 10 -LINE (x, y - 9)-(x + 20, y - 6 + dy1), c1 -LINE (x + 20, y - 6 + dy1)-(x + 32, y - 1 + dy2), c1 -LINE (x + 32, y - 1 + dy2)-(x + 32, y + 3 + dy2), c1 -LINE (x + 32, y + 3 + dy2)-(x, y + 7), c1 -LINE (x, y + 7)-(x - 32, y + 3 + dy2), c1 -LINE (x - 32, y + 3 + dy2)-(x - 32, y - 1 + dy2), c1 -LINE (x - 32, y - 1 + dy2)-(x - 20, y - 6 + dy1), c1 -LINE (x - 20, y - 6 + dy1)-(x, y - 9), c1 -PAINT (x, y), c1, c1 -yy! = y + 4: dy! = dy2 / 7 -FOR xx = 2 TO 32 STEP 4 -x1 = x + xx: x2 = x - xx -LINE (x1, yy!)-(x1 + 1, yy! + 5), c1, B -LINE (x2 - 1, yy!)-(x2, yy! + 5), c1, B -yy! = yy! + dy! -NEXT xx -LINE (x, y - 9)-(x - 6, y - 3), c2 -LINE (x - 6, y - 3)-(x, y + 12), c2 -LINE (x, y + 12)-(x + 6, y - 3), c2 -LINE (x + 6, y - 3)-(x, y - 9), c2 -PAINT (x, y), c2, c2 -CIRCLE (x, y - 13), 4, c1, , , 1: PAINT (x, y - 13), c2, c1 -LINE (x, y + 11)-(x - 11, y + 23), c1 -LINE (x - 11, y + 23)-(x, y + 19), c1 -LINE (x, y + 19)-(x + 11, y + 23), c1 -LINE (x + 11, y + 23)-(x, y + 11), c1 -PAINT (x, y + 16), c2, c1 -LINE (x - 1, y - 11)-(x + 1, y - 11), c1 -PSET (x - 4, y - 17), c1 -PSET (x + 4, y - 17), c1 -LINE (x - 2, y - 14)-(x + 2, y - 14), c1 -LINE (x - 2, y - 11)-(x - 2, y - 10), 0 -LINE (x + 2, y - 11)-(x + 2, y - 10), 0 -RETURN - -DBOSS3: -c1 = 6: c2 = 14: IF hbos = 1 THEN c1 = 15: c2 = 15 -c3 = 4: abos = abos + 1: d = abos AND 63 -IF d < 4 THEN c3 = 15 - d / 2 -LINE (x, y - 6)-(x + 7, y - 7), c1 -LINE (x + 7, y - 7)-(x + 12, y - 10), c1 -LINE (x + 12, y - 10)-(x + 20, y - 7), c1 -LINE (x + 20, y - 7)-(x + 24, y + 1), c1 -LINE (x + 24, y + 1)-(x + 25, y + 9), c1 -LINE (x + 25, y + 9)-(x + 20, y + 16), c1 -LINE (x + 19, y + 16)-(x + 15, y + 7), c1 -LINE (x + 15, y + 7)-(x + 6, y + 2), c1 -LINE (x + 6, y + 2)-(x, y + 6), c1 -LINE (x, y - 6)-(x - 7, y - 7), c1 -LINE (x - 7, y - 7)-(x - 12, y - 10), c1 -LINE (x - 12, y - 10)-(x - 20, y - 7), c1 -LINE (x - 20, y - 7)-(x - 24, y + 1), c1 -LINE (x - 24, y + 1)-(x - 25, y + 9), c1 -LINE (x - 25, y + 9)-(x - 20, y + 16), c1 -LINE (x - 19, y + 16)-(x - 15, y + 7), c1 -LINE (x - 15, y + 7)-(x - 6, y + 2), c1 -LINE (x - 6, y + 2)-(x, y + 6), c1 - -LINE (x + 18, y + 11)-(x + 24, y + 9), c1 -PAINT (x + 20, y + 13), c2, c1 -LINE (x - 18, y + 11)-(x - 24, y + 9), c1 -PAINT (x - 20, y + 13), c2, c1 -PAINT (x, y), 2, c1 -LINE (x + 3, y)-(x + 5, y - 2), c3 -LINE (x - 3, y)-(x - 5, y - 2), c3 -LINE (x + 6, y + 2)-(x, y + 6), 4 -LINE (x - 6, y + 2)-(x, y + 6), 4 -RETURN - -DBOSS4: -c1 = 9: c2 = 11: c3 = 15: IF hbos = 1 THEN c1 = 15 -CIRCLE (x, y), 30, c1, 0, pi!, .85 -CIRCLE (x, y), 30, c1, pi!, pi! * 2, .1 -PAINT (x, y - 10), 0, c1 -abos = (abos + 1) AND 255 -FOR xx = x - 24 TO x + 24 STEP 5 -a1! = abos + xx + 1: r1! = SIN(a1! / 4.33) -a2! = abos + xx + 2: r2! = SIN(a2! / 3.97) -a3! = abos + xx + 3: r3! = SIN(a3! / 3.67) -yy = y - 4 - r2!: f1 = 40 - ABS(xx - x): f2 = f1 / 5 -x1 = xx + f2 * r1!: x2 = xx + f2 * r2!: x3 = xx + f2 * r3! -LINE (xx, yy)-(x1, yy + 16), c2 -LINE (x1, yy + 16)-(x2, yy + 30), c2 -LINE (x2, yy + 30)-(x3, yy + 30 + f2 * 2), c2 -NEXT xx -CIRCLE (x, y), 30, c3, 0, pi!, .1 -RETURN - -DBOSS5: -c1 = 9: dy = 0: abos = abos + 1 -IF (abos AND 63) > 40 THEN dy = 1 -IF hbos = 1 THEN c1 = 15: dy = -2 -CIRCLE (x, y), 20, c1, , , .6 -PAINT (x, y), c1, c1 -LINE (x - 6, y - 12)-(x + 11, y - 24), c1 -LINE (x + 11, y - 24)-(x + 8, y - 14), c1 -LINE (x + 8, y - 14)-(x + 16, y - 8), c1 -PAINT (x + 3, y - 16), c1, c1 -LINE (x - 7, y + 12)-(x + 2, y + 20), c1 -LINE (x + 2, y + 20)-(x + 7, y + 12), c1 -PAINT (x, y + 16), c1, c1 -LINE (x + 18, y)-(x + 40, y - 12), c1 -LINE (x + 18, y)-(x + 40, y + 12), c1 -LINE (x + 40, y - 12)-(x + 36, y), c1 -LINE (x + 36, y)-(x + 40, y + 12), c1 -PAINT (x + 24, y), c1, c1 -CIRCLE (x - 7, y - 4), 5, 15, , , .9: PAINT (x - 7, y - 4), 15, 15 -CIRCLE (x - 7, y - 4 + dy), 2, 0, , , .9: PAINT (x - 7, y - 4 + dy), 0, 0 -RETURN - -DBOSS6: -a = ((abos MOD 7) - 3) * 12: abos = abos + 1 -c1 = 6: c2 = 14: c3 = 11: IF hbos = 1 THEN c1 = 15 -a! = a * pi! / 180: r = 20: s = 1 -FOR q = -2 TO 1 -s = SGN(q + .5): a! = -a! -x1 = COS(a!) * r * s: y1 = SIN(a!) * r -CIRCLE (x + x1, y - y1), 8, c3: PAINT (x + x1, y - y1), c3, c3 -x2 = COS(a! - .36) * r * s: y2 = SIN(a! - .36) * r -LINE (x, y)-(x + x2, y - y2), c3 -x3 = COS(a! + .36) * r * s: y3 = SIN(a! + .36) * r -LINE (x, y)-(x + x3, y - y3), c3 -PAINT (x + x1 * .4, y - y1 * .4), c3, c3 -NEXT q -CIRCLE (x, y), 11, c1, , , 1.2: PAINT (x, y), c1, c1 -CIRCLE (x, y - 12), 8, c1, -pi! * 1.9, -pi! * 1.1, .8 -PAINT (x, y - 14), c1, c1 -CIRCLE (x - 5, y - 14), 4, 7, , , .8 -PAINT (x - 5, y - 14), A5$, 7 -CIRCLE (x + 5, y - 14), 4, 7, , , .8 -PAINT (x + 5, y - 14), A5$, 7 -LINE (x - 8, y - 3)-(x + 8, y - 1), c2, BF -LINE (x - 7, y + 4)-(x + 7, y + 6), c2, BF -c = cnt1 AND 127 -IF PLAY(0) = 0 AND SND = 1 AND c < 32 THEN SOUND 1600 + 200 * RND, .6 -RETURN - -DBOSS7: -c1 = 4: c2 = 12: abos = abos + 1: s = SGN(abos AND 16) * 10 -c3 = 4: IF hbos = 1 THEN c3 = 15 -IF stbos < 12 THEN c3 = 1 -c4 = csb(stbos / 16) -CIRCLE (x - 32, y - 14), 4, 2, , , 1 -CIRCLE (x, y - 12), 20, 15 -CIRCLE (x + 32, y - 14), 4, 2, , , 1 -CIRCLE (x, y - 13), 7, 15, -pi! * 2, -pi! -PAINT (x, y - 14), c4, 15 -PAINT (x - 32, y - 15), s, 2 -PAINT (x + 32, y - 15), 10 - s, 2 -LINE (x - 50, y - 10)-(x + 50, y - 10), c1 -LINE (x - 25, y + 10)-(x + 25, y + 10), c1 -LINE (x - 50, y - 10)-(x - 80, y), c1 -LINE (x - 80, y)-(x - 80, y + 4), c1 -LINE (x - 80, y + 4)-(x - 25, y + 10), c1 -LINE (x + 50, y - 10)-(x + 80, y), c1 -LINE (x + 80, y)-(x + 80, y + 4), c1 -LINE (x + 80, y + 4)-(x + 25, y + 10), c1 -PAINT (x, y), c1, c1 -PAINT (x - 40, y), c1, c1: PAINT (x + 40, y), c1, c1 -LINE (x - 40, y - 13)-(x - 43, y - 11), c1 -LINE (x - 40, y - 13)-(x + 40, y - 13), c1 -LINE (x + 40, y - 13)-(x + 43, y - 11), c1 -PAINT (x, y - 12), c2, c1 -LINE (x - 80, y - 1)-(x + 80, y + 3), 14, BF -xx = x - 88 + (abos MOD 24) -FOR q = 1 TO 7 -LINE (xx, y - 1)-(xx + 11, y + 3), 0, BF -xx = xx + 24 -NEXT q -LINE (x - 80, y + 4)-(x - 25, y + 10), c3 -LINE (x - 25, y + 10)-(x + 25, y + 10), c3 -LINE (x + 80, y + 4)-(x + 25, y + 10), c3 -RETURN - -REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - -DSTG1: -a1! = pi! - .7 -FOR n = 1 TO 21 -r1 = 400 + 20 * RND -x1 = COS(a1!) * r1 + 300: y1 = 450 - SIN(a1!) * r1 -FOR m = 1 TO 20 - a2! = pi! * 2 * RND - r = 36 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r - PSET (x2, y2), 1 - r = 28 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r - PSET (x2, y2), 9 - r = 16 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r - PSET (x2, y2), 11 - r = 12 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r - PSET (x2, y2), 15 -NEXT m -a1! = a1! - .05 -NEXT n -RETURN - -DSTG2: -c1 = 11: c2 = 9: c3 = 1 -FOR n = 1 TO 32 -x = 320 * RND: y = 200 * RND -c = 12 + INT(4 * RND): IF c = 13 THEN c = 4 -PSET (x, y), c -NEXT n -x = 169: y = 109 -CIRCLE (x, y), 36, 9, , , 1 -CIRCLE (x, y), 37, 1, , , .94 -CIRCLE (x - 19, y - 16), 18, c1, pi2! * 3, pi2! * 4 -CIRCLE (x + 19, y - 16), 18, c1, pi2! * 2, pi2! * 3 -CIRCLE (x - 19, y + 16), 18, c1, pi2! * 0, pi2! * 1 -CIRCLE (x + 19, y + 16), 18, c1, pi2! * 1, pi2! * 2 -LINE (x, y - 17)-(x, y - 50), c1 -LINE (x, y + 17)-(x, y + 42), c1 -LINE (x - 20, y)-(x - 48, y), c1 -LINE (x + 20, y)-(x + 44, y), c1 -LINE (x, y - 40)-(x, y - 50), c2 -LINE (x, y + 40)-(x, y + 45), c2 -LINE (x - 34, y)-(x - 48, y), c2 -LINE (x + 34, y)-(x + 44, y), c2 -LINE (x, y - 50)-(x, y - 54), c3 -LINE (x, y + 45)-(x, y + 50), c3 -LINE (x - 48, y)-(x - 52, y), c3 -LINE (x + 44, y)-(x + 48, y), c3 -PAINT (x, y), 15, c1 -RETURN - -DSTG3: -x = xs!: y = ys!: r1 = rs!: rsmax! = 30 -c1 = 4: c2 = 14: c3 = 4: a2! = 0 - -a2! = a2! + .03 -r2 = 0: n = 0: a! = 0 -FOR a! = 0 TO pi! * 2 STEP .2 - x0 = x1: y0 = y1 - f = (r1 / 6) * RND: a1! = a! + .1 * RND - r = r1 + r2 * f: r2 = 1 - r2 - x1 = SIN(a1! + a2!) * r + x: y1 = COS(a1! + a2!) * r + y - IF n = 0 THEN x2 = x1: y2 = y1 - IF n > 0 THEN LINE (x0, y0)-(x1, y1), c1 - n = n + 1 -NEXT a! -LINE (x1, y1)-(x2, y2), c1 -PAINT (x, y), c2, c1 -CIRCLE (x, y), r1 - 2, c3, , , 1 -PAINT (x, y), 0, c3 -RETURN - - -DSTG4: -x = xs!: y = ys!: r1 = rs!: rsmax! = 60 -c1 = 1: c2 = 9: c3 = 11: c4 = 11 - -CIRCLE (x, y), r1, c1 -CIRCLE (x, y), r1, c2, pi2! * 3, pi2! - -CIRCLE (x, y), r1 * .84, c1, pi2!, pi2! * 3, 3 -PAINT (x - r1 * .5, y), c1, c1 -CIRCLE (x, y), r1 * .84, c2, pi2!, pi2! * 3, 3 -PAINT (x + r1 * .5, y), c2, c2 - -x1 = x - r1 * .36: y1 = y - r1 * .16 -CIRCLE (x1, y1), r1 * .16, c2, , , .7: PAINT (x1, y1), c2, c2 -x1 = x - r1 * .8: y1 = y - r1 * .05 -CIRCLE (x1, y1), r1 * .16, c2, , , 1.8: PAINT (x1, y1), c2, c2 -x1 = x - r1 * .6: y1 = y + r1 * .05 -CIRCLE (x1, y1), r1 * .2, c2, , , 1: PAINT (x1, y1), c2, c2 -x1 = x - r1 * .3: y1 = y + r1 * .1 -CIRCLE (x1, y1), r1 * .3, c2: PAINT (x1, y1), c2, c2 -x1 = x - r1 * .3: y1 = y + r1 * .1 -CIRCLE (x1, y1), r1 * .3, c3, -pi2! * 3.1, -pi2! * .95 -PAINT (x1 + r1 * .1, y1), c3, c3 - -x1 = x + r1 * .24: y1 = y - r1 * .5 -CIRCLE (x1, y1), r1 * .16, c3, , , .8: PAINT (x1, y1), c3, c3 -x1 = x + r1 * .33: y1 = y - r1 * .3 -CIRCLE (x1, y1), r1 * .2, c3, , , .9: PAINT (x1, y1), c3, c3 -x1 = x + r1 * .46: y1 = y - r1 * .46 -CIRCLE (x1, y1), r1 * .14, c3, , , .9: PAINT (x1, y1), c3, c3 - -x1 = x + r1 * .02: y1 = y + r1 * .75 -CIRCLE (x1, y1), r1 * .12, c3, , , .4: PAINT (x1, y1), c3, c3 -x1 = x + r1 * .07: y1 = y + r1 * .67 -CIRCLE (x1, y1), r1 * .15, c3, , , .4: PAINT (x1, y1), c3, c3 -x1 = x + r1 * .2: y1 = y + r1 * .6 -CIRCLE (x1, y1), r1 * .15, c3, , , .66: PAINT (x1, y1), c3, c3 - -x1 = x + r1 * .9: y1 = y + r1 * .02 -CIRCLE (x1, y1), r1 * .14, c3, , , 3: PAINT (x1, y1), c3, c3 -x1 = x + r1 * .7: y1 = y + r1 * .13 -CIRCLE (x1, y1), r1 * .17, c3, , , 1.2: PAINT (x1, y1), c3, c3 - -x1 = x - r1 * .01: y1 = y - r1 * .8 -CIRCLE (x1, y1), r1 * .12, c3, -pi2! * 2.5, -pi2! * 1.3, .2: PAINT (x1 + r1 * .06, y1), c3, c3 -x1 = x - r1 * .08: y1 = y - r1 * .8 -CIRCLE (x1, y1), r1 * .12, c2, -pi2! * 1, -pi2! * 2.8, .2 -PAINT (x1 - r1 * .04, y1), c2, c2 - -CIRCLE (x, y), r1, c4, pi2! * .28, pi2! * .7 -RETURN - - -DSTG5: -x = xs!: y = ys!: r1 = rs!: rsmax! = 50 -c1 = 6: c2 = 4: c3 = 12: c4 = 4 -a1! = pi2! * 2: a2! = pi2! * 4: f! = .2 -CIRCLE (x, y), r1, c2 -PAINT (x, y), c1, c2 -CIRCLE (x, y - r1 * .8), r1 * .2, c2, a1!, a2!, f! -CIRCLE (x, y - r1 * .7), r1 * .5, c2, a1!, a2!, f! -CIRCLE (x, y - r1 * .56), r1 * .74, c2, a1!, a2!, f! -CIRCLE (x, y - r1 * .4), r1 * .89, c2, a1!, a2!, f! -CIRCLE (x, y - r1 * .32), r1 * .93, c2, a1!, a2!, f! -CIRCLE (x, y - r1 * .16), r1 * .98, c2, a1!, a2!, f! -CIRCLE (x, y + r1 * .06), r1 * 1, c2, a1!, a2!, f! -CIRCLE (x, y + r1 * .29), r1 * .94, c2, a1!, a2!, f! -CIRCLE (x, y + r1 * .42), r1 * .87, c2, a1!, a2!, f! -CIRCLE (x, y + r1 * .6), r1 * .69, c2, a1!, a2!, f! -PAINT (x, y - r1 * .16), c2, c2 -PAINT (x, y + r1 * .38), c2, c2 -PAINT (x, y + r1 * .78), c2, c2 -CIRCLE (x, y), r1, c3, pi2! * .2, pi2! * 1.4 -a1! = pi2! * 1.5: a2! = pi2! * .5 -CIRCLE (x, y + r1 * .04), r1 * 1.6, c4, pi2! * 1.42, pi2! * .58, f! -CIRCLE (x, y + r1 * .04), r1 * 1.76, c1, pi2! * 1.36, pi2! * .64, f! -CIRCLE (x, y + r1 * .04), r1 * 1.8, c4, pi2! * 1.36, pi2! * .64, f! -RETURN - - -DSTG6: -x = xs!: y = ys!: r1 = rs!: rsmax! = 60 -c1 = 8: c2 = 7: c3 = 15: c4 = 8 -a1! = -pi2! * 1.1: a2! = -pi2! * 3 * .9 - -CIRCLE (x, y), r1, c1 -CIRCLE (x, y), r1, c2, pi2!, pi2! * 3 - -CIRCLE (x, y), r1 * .84, c2, pi2! * 3, pi2!, 1.6 -PAINT (x - r1 * .5, y), c2, c2 -CIRCLE (x, y), r1 * .84, c1, pi2! * 3, pi2!, 1.6 -PAINT (x + r1 * .8, y), c1, c1 - -x1 = x - r1 * .25: y1 = y - r1 * .2 -CIRCLE (x1, y1), r1 * .24, c1: PAINT (x1, y1), c1, c1 -CIRCLE (x1, y1), r1 * .24, c3, a1!, a2!: PAINT (x1 - r1 * .05, y1), c3, c3 -CIRCLE (x1 - r1 * .02, y1), r1 * .18, c2: PAINT (x1, y1), c2, c2 -x1 = x - r1 * .8: y1 = y - r1 * .04 -CIRCLE (x1, y1), r1 * .13, c1, , , 1.6: PAINT (x1, y1), c1, c1 -CIRCLE (x1, y1), r1 * .13, c3, a1!, a2!, 1.6: PAINT (x1 - r1 * .05, y1), c3, c3 -CIRCLE (x1 - r1 * .01, y1), r1 * .08, c2, , , 1.6: PAINT (x1, y1), c2, c2 -x1 = x - r1 * .5: y1 = y + r1 * .3 -CIRCLE (x1, y1), r1 * .1, c1, , , 1: PAINT (x1, y1), c1, c1 -CIRCLE (x1, y1), r1 * .1, c3, -a1!, -a2!, 1 - -x1 = x + r1 * .14: y1 = y - r1 * .55 -CIRCLE (x1, y1), r1 * .13, c1, , , .66: PAINT (x1, y1), c1, c1 -x1 = x + r1 * .3: y1 = y + r1 * .1 -CIRCLE (x1, y1), r1 * .2, c1, , , .9: PAINT (x1, y1), c1, c1 -x1 = x + r1 * .02: y1 = y + r1 * .75 -CIRCLE (x1, y1), r1 * .12, c1, , , .4: PAINT (x1, y1), c1, c1 -x1 = x - r1 * .07: y1 = y + r1 * .5 -CIRCLE (x1, y1), r1 * .15, c1, , , .8: PAINT (x1, y1), c1, c1 -x1 = x - r1 * .01: y1 = y - r1 * .8 -CIRCLE (x1, y1), r1 * .12, c1, , , .2: PAINT (x1 + r1 * .06, y1), c1, c1 -CIRCLE (x1, y1), r1 * .12, c3, -a1!, -a2!, .2 - -x1 = x + r1 * .9: y1 = y + r1 * .05 -CIRCLE (x1, y1), r1 * .1, c4, , , 3: PAINT (x1, y1), c4, c4 -CIRCLE (x1, y1), r1 * .1, c2, -a1!, -a2!, 3 -CIRCLE (x1 + r1 * .02, y1), r1 * .1, c2, -a1!, -a2!, 3 -x1 = x + r1 * .7: y1 = y + r1 * .2 -CIRCLE (x1, y1), r1 * .15, c4, , , 1.5: PAINT (x1, y1), c4, c4 -CIRCLE (x1, y1), r1 * .15, c2, -a1!, -a2!, 1.5 -CIRCLE (x1 + r1 * .02, y1), r1 * .15, c2, -a1!, -a2!, 1.5 -x1 = x + r1 * .62: y1 = y - r1 * .35 -CIRCLE (x1, y1), r1 * .05, c4, , , 1.2: PAINT (x1, y1), c4, c4 -CIRCLE (x1, y1), r1 * .05, c2, -a1!, -a2!, 1.2 -CIRCLE (x1 + r1 * .02, y1), r1 * .05, c2, -a1!, -a2!, 1.2 -RETURN - -DSTG7: -c1 = 1: c2 = 9: c3 = 11: c4 = 15: c5 = 2: c6 = 10 -FOR n = 1 TO 32 -x = 320 * RND: y = 200 * RND: c = 7 + INT(2 * RND) * 8 -PSET (x, y), c -NEXT n -x = -20: y = 330: r1 = 300 -CIRCLE (x, y), r1, c1: PAINT (0, 199), c1, c1 -CIRCLE (x, y), r1 * .985, c2: PAINT (0, 199), c2, c2 -CIRCLE (x, y), r1 * .97, c3: PAINT (0, 199), c3, c3 -CIRCLE (x, y), r1 * .955, c4: PAINT (0, 199), c4, c4 -CIRCLE (x, y), r1 * .94, c3: PAINT (0, 199), c3, c3 -CIRCLE (x, y), r1 * .925, c2: PAINT (0, 199), c2, c2 -CIRCLE (x, y), r1 * .91, c1: PAINT (0, 199), c1, c1 -y1 = 0 -RESTORE EARTH -DO -x0 = x1: y0 = y1: READ x1, y1 -IF y0 > 0 AND y1 > 0 THEN LINE (x0, y0)-(x1, y1), c5 -LOOP UNTIL x1 = -1 AND y1 = -1 -PAINT (0, 199), c6, c5 -PAINT (130, 199), c6, c5 -RETURN - -EARTH: -DATA 0,119, 24,121, 40,124, 70,134, 69,138, 62,140, 79,148, 73,148, 84,155 -DATA 82,154, 86,157, 88,162, 80,161, 70,158, 73,164, 88,172, 70,182 -DATA 52,180, 48,183, 52,187, 51,193, 46,193, 62,199, 0,0 -DATA 108,199, 114,186, 124,177, 123,172, 131,172, 138,185, 144,186, 147,192 -DATA 154,194, 161,195, 165,199 -DATA -1,-1 - -REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - -LOAD.SPRITES: -ENEMY$(1, 0) = "br5h8d4g4f4d4e8bl5" -ENEMY$(1, 1) = "br4h5d3g2f2d3e5bl4" -ENEMY$(1, 2) = "br6h5l2d10r2e5bl2" -ENEMY$(1, 3) = "bl1h7d5g2f2d5e7bl3" -ENEMY$(2, 0) = "br4e2h8g6f4g4f6e8h2bl4" -ENEMY$(2, 1) = "bl4e4f4g4h4br4" -ENEMY$(3, 0) = "e7l14f3d8g3r14h7bl1" -ENEMY$(3, 1) = "br6bu5l10bd10r10" -ENEMY$(4, 0) = "bu3br5d6g6l6e6u6h6r6f6bd3bl3" -ENEMY$(4, 1) = "bl5d3g5r4e5u6h5l4f5d3br2" -ENEMY$(5, 0) = "br3f3g3h3g5h3e5h5e3f5e3f3g3bl2" -ENEMY$(5, 1) = "br2e3d6h3br1" -ENEMY$(6, 0) = "g9l5e3u3e3h3u3h3r5f9bl4" -ENEMY$(6, 1) = "bl7e2r8f2g2l8h2br7" -ENEMY$(7, 0) = "h5l5f5g5r5e5bl3" -ENEMY$(7, 1) = "bl4u2r16f1r4f1g1l4g1l16u2l3br8" -ENEMY$(8, 0) = "bu4br7d8g4l6h5u8e4r6 f5" -ENEMY$(8, 1) = "bl1bd1g5l8e5r8bl7bd3" -ENEMY$(9, 0) = "bd5br6g2l4h5u7e4r2 l1" -ENEMY$(9, 1) = "bd10bl4e3r5g4l4u1br3bu2" -ENEMY$(10, 0) = "br7g9l3h3u3e3h3u3e3r3f9bl7" -ENEMY$(10, 1) = "br7g3l6h3e3r6f3bl8" -ENEMY$(10, 2) = "br6g4l10h2u4e2r10f4bl6" -ENEMY$(10, 3) = "br7g3l6h3e3r6f3bl7" -ENEMY$(11, 0) = "br7g9l3h3u3e3h3u3e3r3f9bl7" -ENEMY$(11, 1) = "br7g3l6h3e3r6f3bl8" -ENEMY$(11, 2) = "br6g4l10h2u4e2r10f4bl6" -ENEMY$(11, 3) = "br7g3l6h3e3r6f3bl7" - -CRASH$(1) = "br4bu4h8d8g8r8f8u8e8l8bd4" -CRASH$(2) = "br4f4l4d4h4g4u4l4e4h4r4u4f4e4d4r4g4bl4" -CRASH$(3) = "br4d8h4l8e4u8f4r8g4bl4" - -SHOT$(1) = "bl2bu2r2d4r2" -SHOT$(2) = "bl2bu2r4d4l4u4" -RETURN - -LOAD.CHARSET: -CH$(0) = "br1r3f2d4g1l3h2u4e1" -CH$(1) = "br3ng1d7nl2r2" -CH$(2) = "bd2u1e1r3f1d1g2l1g2d1r5" -CH$(3) = "r5g3r2f1d2g1l3h1" -CH$(4) = "br4bd7u7g4d1r5" -CH$(5) = "br5l5d2r4f1d3g1l3h1" -CH$(6) = "br5l2g3d2f2r3e1u1h2l3g1" -CH$(7) = "r5d1g3d3" -CH$(8) = "br2r2f1d1g1l3g1d2f1r4e1u1h2l2h2e1r1" -CH$(9) = "bd7br1r2e3u2h2l3g1d1f2r3e1" -CH$(17) = "bd7u3nr5u2e2r1f2d5" -CH$(18) = "nd7r3f1d1g1bl3r4f1d2g1l4" -CH$(19) = "br4l2g2d4f1r3e1" -CH$(20) = "bd7u7r4f1d4g2l3" -CH$(21) = "nr4d3nr3d3f1r4" -CH$(22) = "br5l4g1d2nr3d4" -CH$(23) = "br4l2g2d4f1r3e1u3l2" -CH$(24) = "d7bu4r5bu3d7" -CH$(25) = "br2r2bl1d7bl1r2" -CH$(26) = "br1r4d5g2l2u1" -CH$(27) = "d7bu4r1ne3nf4" -CH$(28) = "d7r5" -CH$(29) = "bd7u6e1f2e2f1d6" -CH$(30) = "bd7u7f5nd2u5" -CH$(31) = "br2r2f1d4g2l2h1u4e2" -CH$(32) = "bd7u7r4f1d2g1l4" -CH$(33) = "br1r2f2d4nh2nf1g1l2h2u4e1" -CH$(34) = "bd7u7r4f1d1g1l4br1f4" -CH$(35) = "br5l3g2f1r3f1d2g1l5" -CH$(36) = "r6bl3d7" -CH$(37) = "d5f2r3e1u6" -CH$(38) = "d6f1e4u3" -CH$(39) = "d6f1e2nu2f2e1u6" -CH$(40) = "r1f2d3f2r1bl6r1e2bu3e2r1" -CH$(41) = "d2f3nd2e3u2" -CH$(42) = "r6d1g6r6" -RETURN - -LOAD.SOUNDS: -REM 2,7,10,13,15,19,22,25,27,31,34,39,43,46,58 -SLASER1$ = "MBT255l64n58n57n56n55n54" -SLASER2$ = "MBT255l48n58n56n54n52n58n56n54n52" -SSHOOT1$ = "MBT255l64n63n61n58n55n58" -SSHOOT2$ = "MBT255l64n61n58n55" -SSHOOT3$ = "MBT255l48n7n10n7" -SETYPE1$ = "MBT255l32n39n34n31n27n25n22n19n15n13n10n7n2" -SETYPE2$ = "MBT255l40n60n59n58n57n19n13n10n7n2n7n5n1n3n1n2n1" -SETYPE3$ = "MBT255l32n36n24n1n17n2n19n0n11n1n15n3n17n2n9n1n6n2n4n1n3n1" -SETYPE4$ = "MBT255l64n50n48n45n41n36n50n47n43n37n33n26n19n12n1n9n1n7n1n5n1n3n1" -SETYPE6$ = "MBT255l40n39n31n25n19n13n7n2n7n10n7n13n15n19n15n22n25n27n25n31n34n39n34n43n46" -SETYPE8$ = "MBT255l32n2n7n10n13n15n19n22n25n27n31n34n39n43n46n58" -SETYPE9$ = "MBT255l40n58n46n43n39n34n31n27n25n22n19n15n13" -SETYPE10$ = "MBT255l32n56n55n53n50n45n43n41n40n41n43n45n50n53n55n56" -SETYPE11$ = "MBT255l64n70n69n68n67n66n65n64n63n62n61n60" -SCRASH8$ = "MBT255l64n58n25n19n13n10n7n2n7n5n1n3n1n2n1" -SCRASH9$ = "MBT255l32n30n1n23n2n19n3n14n2n15n1n11n1n7n1n4n1n5n1n3n1n2n1n0n1n3n1n2n1" -SNEW1$ = "MBT255l24n58n57n58n53n57n58" -SNEWPL1$ = "MBT255l3n25n32" -SNEWPL2$ = "MBT255l8n25n32" -SDOCK2$ = "MBT255l32n15n17n15n17n20n25n29n32n37" -SRGTON$ = "MBT80l24n27n0l24n27n29n34n31n34n31l12n29l24n29n32l6n36l24n38n34n31n38n34n31n38n34l12n39l24n38l8n39" -SLAUNCH$ = "MBT96l64n27l8n22l16n22l4n27n34l16n0n22MLl4n27n34MSl24n39n0n0l32n39n0l48n39n0l64n39n0n39n0l32n39n0n39n0l48n39n0n39n0l24n51MN" -SFAROUT1$ = "MBT80l8n22l12n22l8n26l12n26l8n29l12n29l8n34l12n34l8n22l12n22l8n26l12n26l8n29l12n29l8n34l12n34" -SFAROUT2$ = "MBT80l64n17l8n22l12n22l64n17l8n26l12n26l64n17l8n29l12n29l64n17l8n34l12n34" -SEND$ = "MBT96l6n22l16n27l2n25l16n27l8n25n27n29l16n25n27l48n25n27l12n29l32n27n29n27n29l4n34" -SBONPLAY$ = "MBT64l64n15n22n19n22n19n22n27l32n34" -SHITBOS1$ = "MBT255l64n63n62n61n60n50n40n30n20n13n10n8n7n5n4n3n2n1n1n1" -SBOSPTS$ = "MBT255l64n46n45n44n43n42n41n40n39n38n37n36n35n34" -SSTAGE1$ = "MBMST64l32n40n0n40n40n0n40n40n40n40n0n40n40n0n40n0n40n0n40n40n40n0n40n0MN" -SSTAGE2$ = "MBT255l32n19n22n25n27n31n34n39n43n46" - -SFINAL$(1, 1) = "MBMNT64l4n25l24n18n18l4n25l24n18n18l24n25n0n30n0l4n25" -SFINAL$(1, 2) = "MBMNT64l24n18n18l24n25n0n30n0l3n32" -SFINAL$(1, 3) = "MBMNT64l24n23n23l24n28n0n30n0l8n32l24n34l4n35" -SFINAL$(1, 4) = "MBMNT64l6n37l6n34l8n30n28n32n35" -SFINAL$(1, 5) = "MBMLT64l8n39l6n37l6n34l8n30n28n32n35n39l6n42" -SFINAL$(1, 6) = "MBMLT64l64n37n42n49n37n42n49n37n42n49n37n42n49n37n42n49n37n42n49l16n42" -SFINAL$(1, 7) = "MBMLT64" -SFINAL$(2, 1) = "MBMNT64l6n13n15n18n20n25l24n23n22l12n20l6n23l24n22n20l12n18n22n18l6n20" -SFINAL$(2, 2) = "MBMLT64l64n25n30n37MNl16n0l24n13n13n18n0n18n18n20n0n20n20n25n0n25n25n23n22n20n0" -SFINAL$(2, 3) = "MBMNT64l24n23n0n23n23n22n20n18n0l12n22l24n23n0n18n0n22n0l4n20" -SFINAL$(2, 4) = "MBMNT64l16n8n8n8n0n8n0n8n0n8n8n8n0n8n0" -SFINAL$(2, 5) = "MBMNT48l64n20l4n32MLl12n32n30n29n27n25l4n30l24n32n34l4n32" -SFINAL$(2, 6) = "MBMNT48l12n8l4n32MLl12n32n30n29n27T64n25l4n35l24n37n39" -SFINAL$(2, 7) = "MBMLT64l64n25n37n25n37n25n37n25n37n25n37n25n37n25n37n25n37l8n37" -RETURN - -CREDITS: -DATA " ", " ", " " -DATA " YOU SAVED", " THE GALAXY", " ", " ", " ", " " -DATA " CONGRATULATIONS", " ", " THE MISSION", "IS ACCOMPLISHED" -DATA " ", "THE ALIENS HAVE", " LEFT", " AND THE EARTH" -DATA " IS NOW FREE", " ", "YOU HAVE BROUGHT", " BACK PEACE TO" -DATA " OUR GALAXY", " ", "WE WILL THANK", " YOU FOREVER" -DATA " ", " THE FORCE", "WILL BE WITH YOU", " ALWAYS" -DATA " ", " ", " ", " ", " THE END" - - -TITLE.HELP: -RESTORE THELP.TEXT -SCREEN 7, 0, 2, 2: tcnt = 0: tpos = 0: sss = 0 -CLS : COLOR 15, 1 - -THELP.MAIN: -k = INP(96): k$ = INKEY$: da = 0 -IF k = 1 THEN COLOR 15, 0: SCREEN 7, 0, scr, scr: GOTO WAITKEY0 -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF tcnt < 22 THEN GOSUB THELP.SOFT -IF k = 80 OR k = 77 OR tcnt < 22 THEN GOSUB THELP.SCROLL -IF k = 72 THEN RESTORE THELP.TEXT: CLS : tcnt = 0: tpos = 0: sss = 0 -GOTO THELP.MAIN - -THELP.SOFT: -a = 16024 + (tpos) * 80 -OUT &H3D4, 12: OUT &H3D5, INT(a / 256) -OUT &H3D4, 13: OUT &H3D5, a AND 255 -RETURN - -THELP.SCROLL: -tpos = (tpos + 1) AND 3 -IF tpos <> 2 OR sss > 0 THEN RETURN -LOCATE 24, 1: READ T$: PRINT T$: tcnt = tcnt + 1 -IF T$ = "XXX" THEN sss = 1 -IF SND = 1 THEN SOUND 600, .2 -RETURN - -THELP.TEXT: -DATA "- INCOMING MESSAGE -" -DATA "" -DATA " 16.Dec. 2011" -DATA "" -DATA "THE UNITED EARTH ADMINISTRATION" -DATA "- - - - - - - - - - - - - - - -" -DATA "" -DATA "" -DATA "ALIENS HAVE INVADED TO OUR GALAXY." -DATA "THEY BUILD BASES TO NEARBY STARS " -DATA "IN RANGE OF SEVERAL LIGHT YEARS." -DATA "BEFORE WE COULD START ANY COUNTER" -DATA "MEASURES TO PROTECT OURSELF," -DATA "THEY NOTICED OUR TELEMITRY SIGNALS," -DATA "SENT BETWEEN THE EARTH AND OUR" -DATA "SATELLITES " -DATA "" -DATA "THEY REACHED OUR SOLAY SYSTEM AND" -DATA "INSTANTLY OCCUPIED ONE PLANET" -DATA "AFTER ANOTHER, STARTING WITH PLUTO" -DATA "OVER TO NEPTUN, SATURN, JUPITER AND" -DATA "FINALLY THE EARTH MOON, WHERE THEY >>" -DATA "LOCATED THEIR GIANT NEXUS MOTHERSHIP" -DATA "" -DATA "WITH DESTROYING OUR SPACE STATION" -DATA "AND SEVERAL ORBIT SHUTTLES, COSTING" -DATA "OVER 10.000 HUMAN LIFES, THEYïVE" -DATA "DEMONSTRATED THEIR EXTREMELY AGRESSIVE -DATA "INTENTIONS" -DATA "" -DATA "ITS ASSUMED FOR CLEAR THAT THE" -DATA "MOTHERSHIP PREPARES FOR THE FINAL" -DATA "ATTACK ON THE EARTH" -DATA "AND IF THIS HAPPENS MANKIND CAN KISS" -DATA "THE DAYïS GOODBYE, THATS FOR SURE" -DATA "" -DATA "GOD, WE NEED SOMEONE WHO BLOWS THESE" -DATA "BASTARDS TO PIECES !" -DATA "WE NEED TO DESTROY ALL THEIR HOMEBASES" -DATA "TO BREAK UP THEIR SUPPLY LINE," -DATA "STARTING AT THE VEGA CONSTELLATION" -DATA "37 LIGHTYEARS AWAY" -DATA "" -DATA ">> So, fine, but what has all this" -DATA "to do with me ? << YOU ASK -DATA "" -DATA "CAUSE ALL OUR ASTRONAUTS HAVE SUDDENLY" -DATA "GONE ON VACATION 3 DAYS AGO," -DATA "WE ENGAGED YOU. YOUïRE OUR LAST HOPE !" -DATA "" -DATA "ALTHOUGH YOURE NO ASTRONAUT, NOT EVEN -DATA "A PILOT, THAT DOESNïT REALLY MATTER." -DATA "" -DATA "WEïVE SIMPLIFIED THE SHIPïS CONTROLS SO" -DATA "THAT EVEN AN AVERAGE CLEVER SPACE-COW" -DATA "CAN FLY IT" -DATA "LOOK, ITS REALLY EASY:" -DATA "","","" -DATA "- - - - - - - - - - - - - - - - - - -" -DATA "Lunar Module Control Keys" -DATA "","","" -DATA "Arrow Left / Num 4 = Move Left " -DATA "Arrow Left / Num 6 = Move Right" -DATA "Left Strg = Fire / Thrust" -DATA "S = Sound On/Off" -DATA "P = Pause" -DATA " -DATA "Hint:" -DATA "Use the Num-Keys for better control" -DATA "","","" -DATA "Bonus Ship given every 20000 Pts" -DATA "Successful Docking increases Firepower" -DATA "Hitpoints increase every Stage" -DATA "" -DATA "- - - - - - - - - - - - - - - - - - -" -DATA "","","","" -DATA "YOU ARE SUPPLIED WITH 3 SEPERATE LUNAR" -DATA "MODULES, OUTFITTET WITH A STAR-DRIVE" -DATA "AND HIGH-VOLTAGE PLASMA LAUNCHERS" -DATA "" -DATA "THE MODULES CAN BE FLOWN SEPERATLY OR" -DATA "CONNECTED, WHICH GIVES AN EXTRA -DATA "FIRE-POWER." -DATA "HOWEVER, TO SAVE MODULES, THEY ARE" -DATA "DISCONNECTED AUTOMATICALLY WHEN POSSIBLE" -DATA "OR WHEN ONE OF THEM GETS DESTROYED." -DATA "" -DATA "IF THIS HAPPENS, YOU SHOULD BE EJECTED" -DATA "AND WHEN YOUïVE BEEN EJECTED, YOU -DATA "SHOULD ENTER THE NEXT INTACT SECTION" -DATA "AUTOMATICALLY." -DATA "" -DATA "- Why SHOULD ? -DATA "" -DATA "THE SYSTEMïS NOT PERFECT YET, CAUSE" -DATA "THE SHIPïS COMPUTER CRASHES FROM" -DATA "TIME TO TIME. BUT DONïT PANIC," -DATA "OUR ENGINEERS WILL FIX THAT BY SENDING" -DATA "YOU UPDATE VERSIONS OF THE SHIPïS" -DATA "COMPUTERïS OPERATING SYSTEM" -DATA "(Windows 2011 v4.1.0.2.1-beta-beta)" -DATA "" -DATA "" -DATA "THE EARTH BASE WILL TRY TO SUPPLY YOU" -DATA "CONSTANTLY WITH NEW MODULES" -DATA "" -DATA "BUT PLEASE HANDLE WITH CARE," -DATA "WE CANïT BAKE THEM LIKE BREADS" -DATA "" -DATA "GOOD LUCK!" -DATA "","","","","" -DATA "END OF MESSAGE." -DATA "","","","","","","","","","","","" -DATA "GAME INFO" -DATA "" -DATA "This programm was intended as a tutorial" -DATA "for beginners who want to learn" -DATA "programming in Qbasic, demonstrating" -DATA "some of its capabillities for making" -DATA "sound and graphics." -DATA "It uses PLAY and SOUND for music and" -DATA "most of the Graphic functions," -DATA "exspecially the DRAW Command for Sprites" -DATA "(which lets you rotate and scale)." -DATA "Even if some of the letters look like" -DATA "vectors, but they are all DRAW-Sprites" -DATA "" -DATA "The inspiration and ideas i lend -DATA "(took, stole) from following games:" -DATA "Mooncresta arcade game (1983)" -DATA "Galaga 88 arcade" -DATA "Space Pilot I-II (C64)" -DATA "(They belong to my all-time favorite -DATA "shoot-em-ups)" -DATA "" -DATA "In the beginning i just wanted to make" -DATA "a simple shooter (what it still is) but" -DATA "then those old shooting games came to" -DATA "mind, exspecially Mooncresta (obviously" -DATA "you can see where i got the title)," -DATA "which i played as a kid totally" -DATA "fascinated me." -DATA "Those games had great graphics and -DATA "sound (for this time) and where FUN" -DATA "to play." -DATA "So i also wanted to put in something of" -DATA "these games, and as the programm grew" -DATA "bigger and bigger, i decided to make a" -DATA "complete game of it, and hereïs whats" -DATA "the result. -DATA "(hope you like this piece of ïcrapï)" -DATA "","" -DATA "Mooncr.99 made by Daniel Kupfer -DATA "in Nov.1999" -DATA "Mail me if U like" -DATA "EMail dk1000000@aol.com" -DATA " or dku1000000@cs.com" -DATA "","","","" -DATA "Machine Requirements:" -DATA "","" -DATA "Qbasic: Pentium 200" -DATA "Compiled: 486-66 / Pentium 66" -DATA "" -DATA "As its Qbasic you need decent computer" -DATA "power to run at full speed (35 frames)" -DATA "It works just fine on my P-II 233" -DATA "Iïve never tried to compile this" -DATA "with Quick Basic" -DATA "ïcause i donït own Quick Basic, but if" -DATA "it works, i guess its gonna be 5 times" -DATA "faster or so (however it never runs" -DATA "more than 35 frames)" -DATA "","" -DATA "Enjoy !" -DATA "If you liked it, ask for upcoming" -DATA "mooncr.2000" -DATA "" -DATA "SEE YA!" -DATA "","","" -DATA "PRESS ESC" -DATA "XXX" - diff --git a/programs/samples/pete/mooncr/spielinfo.txt b/programs/samples/pete/mooncr/spielinfo.txt deleted file mode 100644 index 142b7bc17..000000000 --- a/programs/samples/pete/mooncr/spielinfo.txt +++ /dev/null @@ -1,64 +0,0 @@ - -Moonshot 1999 (Versions-Nr.26) - -ein Shoot-em-up - Spiel für -Qbasic / QUICK BASIC 4.5 - -Autor: Daniel Kupfer - - -Hintergrundgeschichte: - -Die Aliens, wie Wir auf der Suche nach neuen Lebensformen, -haben im Jahre 2009 unsere Galaxie entdeckt und kurze Zeit -spaeter unser Sonnensystem, nachdem sie unsere Radiosignale -aufgefangen haben. Das Dumme ist nur, daß Sie es sich zum -Ziel gesetzt haben, neue Lebensformen für gewoehnlich -auszuradieren und ihre Welten zu besetzen. - -Heute ist der 19.Dezember 2011 - -- - - Nachricht fuer Sie - - - - -Die Vereinte Erd Administration (UEA) bittet Dich deshalb -um deine Hilfe. -Ihre Mission wird sein die Aliens kraeftig aufzumischen -d.h. Sie wegzublasen, damit wir bis Weihnachten wieder -unsere Ruhe haben. -Denn soviel ist sicher: -Solltest du die Mission nicht schaffen, kann die Menschheit -Hund und Esel gute Nacht sagen! -Also, bitte tu dein Bestes! -Du bekommst von uns ein mehrteiliges Spezial-Raumschiff, das -mit gefaerlichen (maechtig, maechtig gefaehrlichen) Waffen -ausgestattet ist. -Wenn eins davon im Gefecht kaputt gehen sollte, versucht dich -die Erde staending mit neuen Sektionen zu versorgen. - -Trotzdem, bitte sei vorsichtig damit, -wir sind keine Raumschiff-Bäckerei! - -Viel Glueck...! - --- Nachricht Ende -- - - - - -Spiel - Steuerung: - -nach links = NUM 4 (oder pfeil links) -nach rechts = NUM 6 (oder pfeil rechts) -Feuer = Strg-Taste links -Sound = S -Pause = P - - -- D.Kupfer -- Email adresse: - dk1000000@aol.com - oder - dku1000000@cs.com - -- Tel.: 09133-1746 -- Fax.: 09133-4155 \ No newline at end of file diff --git a/programs/samples/pete/move.bas b/programs/samples/pete/move.bas deleted file mode 100644 index 15d5070e7..000000000 --- a/programs/samples/pete/move.bas +++ /dev/null @@ -1,168 +0,0 @@ -RANDOMIZE TIMER -start: -CLS -PRINT "Welcome to the ultimate ASCII-player game: MOVE!" -PRINT "v.1.0 by mxmm" -SLEEP 5 -CLS -PRINT "Choose one of the following:" -PRINT " 1. Play the Game!" -PRINT " 2. View the instructions!" -INPUT " So what is it going to be"; choice -CLS -IF (choice = 1) THEN -GOTO game -ELSEIF (choice = 2) THEN -GOTO instructions -ELSE -SOUND 1000, 15 -PRINT "ERROR: YOU HAVE NOT TYPED IN A VALID CHARACTER. GAME WILL RESTART IN 5 SECONDS OR WHEN YOU PRESS A KEY" -SLEEP 5 -CLS -GOTO start -END IF -instructions: -PRINT "The controls of this game are simple:" -PRINT " W: Move up" -PRINT " S: Move down" -PRINT " A: Move left" -PRINT " D: Move right" -PRINT " Q: Quit" -PRINT " Collect Items and avoid enemies" -PRINT "ITEMS:" -PRINT " T: Gives more time" -PRINT " F: Freezes the enemy" -PRINT " O: The enemy" -PRINT "" -PRINT "PRESS ANY BUTTON TO GO BACK TO THE MAIN SCREEN" -SLEEP -CLS -GOTO start -END -game: -INPUT "How much freeze to you want to start out with"; x -CLS -INPUT "What do you want the handicap to be (Higher is easier)"; y -CLS -freezel = 10 * y -freeze = 0 -freezer = INT(RND * 21 + 1) -freezec = INT(RND * 71 + 1) -hurt = 1 -playerc = 1 'Main player's column -playerr = 1 'Main player's row -enemyc = 20 'Enemy's column -enemyr = 20 'Enemy's row -turns = 35 * y'The starting amount of turns -turnitemr = INT(RND * 21 + 1) -turnitemc = INT(RND * 71 + 1) -compturn = 1 -die = 0 -death: -IF (die = 1) THEN -PRINT "GAME OVER!" -SOUND 500, 3 -SOUND 250, 3 -SOUND 90, 3 -INPUT "Continue(y/n)"; cont$ -IF (cont$ = "y") THEN -CLS -GOTO start -ELSEIF (cont$ = "n") THEN -CLS -END -END IF -END IF -DO -in$ = INKEY$ -IF (compturn = 1) THEN -compturn = 0 -ELSEIF (compturn = 0) THEN -compturn = 1 -END IF -IF (playerr = enemyr) AND (playerc = enemyc) AND (hurt = 1) THEN -die = 1 -GOTO death -END IF -IF (in$ = "a") AND (playerc > 1) THEN 'input -playerc = playerc - 1 -turns = turns - 1 -ELSEIF (in$ = "d") AND (playerc < 79) THEN -playerc = playerc + 1 -turns = turns - 1 -ELSEIF (in$ = "s") AND (playerr < 24) THEN -playerr = playerr + 1 -turns = turns - 1 -ELSEIF (in$ = "w") AND (playerr > 1) THEN -playerr = playerr - 1 -turns = turns - 1 -ELSEIF (in$ = "q") THEN -die = 1 -GOTO death -END IF -IF (playerr = turnitemr) AND (playerc = turnitemc) THEN -turns = turns + 25 * y -turnitemr = INT(RND * 21 + 1) -turnitemc = INT(RND * 71 + 1) -END IF -IF (freezer = playerr) AND (freezec = playerc) THEN -freezel = freezel + 5 * y -freezer = INT(RND * 21 + 1) -freezec = INT(RND * 71 + 1) -END IF -IF (freeze = 0) THEN -IF (compturn = 1) THEN -IF (enemyc > playerc) THEN -enemyc = enemyc - 1 -ELSEIF (enemyc < playerc) THEN -enemyc = enemyc + 1 -END IF -IF (enemyr > playerr) THEN -enemyr = enemyr - 1 -ELSEIF (enemyr < playerr) THEN -enemyr = enemyr + 1 -END IF -END IF -END IF -CLS -LOCATE 25, 1 -IF (turns = 0) THEN -GOTO death -END IF -freezer2 = freezer + 2 -LOCATE freezer2, freezec -PRINT "F" -LOCATE 25, 1 -PRINT "Freeze: "; freezel -LOCATE 24, 1 -PRINT "Turns: "; turns -LOCATE turnitemr, turnitemc -PRINT "T" -LOCATE playerr, playerc -PRINT "X" -LOCATE enemyr, enemyc -PRINT "O" -IF (freezel > 0) THEN -freezel = freezel - 1 -freeze = 1 -END IF -IF (freezel = 0) THEN -freeze = 0 -END IF -SLEEP 1 -LOOP UNTIL (in$ = "q") -END - - - - - - - - - - - - - - diff --git a/programs/samples/pete/mrguessit.bas b/programs/samples/pete/mrguessit.bas deleted file mode 100644 index cfb98a3d7..000000000 --- a/programs/samples/pete/mrguessit.bas +++ /dev/null @@ -1,25 +0,0 @@ -RANDOMIZE TIMER -a = INT(RND * 50) -CLS -PRINT "This is a guessing game between the numbers 0 and 50." -PRINT "I will tell you if you are higher orlower." -PRINT "Now lets begin!" -PRINT "type 999 to end (just in case...)" -WHILE iput <> a -INPUT "Type in a number please. ", iput -IF iput = 999 GOTO loser -IF iput < a THEN PRINT "You are below sea level (that means you're too low!)" -IF iput > a THEN PRINT "You are burning in the sun! (That means too high!)" -WEND -PRINT "Great job! You got it! The number was "; a -END -loser: -PRINT "The number was "; a -PRINT "Come back and play again soon! :-)" -PRINT -PRINT -PRINT -PRINT -PRINT "(C) 2004 John Mendoza" -PRINT "ALL RIGHTS RESERVED" -END \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/der.txt b/programs/samples/pete/nlcm2006/der.txt deleted file mode 100644 index 71bd43110..000000000 --- a/programs/samples/pete/nlcm2006/der.txt +++ /dev/null @@ -1,247 +0,0 @@ -DERBYSHIRE -6 -3 -5 -5 -3 -2 -7 -7 -10 -11 -1 -4 -M. Di Venuto -81 -74 -14 -12 -0 -74 -2 -3 -0 -3 -0 -3800 -S. Stubbings -73 -67 -13 -11 -0 -68 -2 -1 -0 -4 -0 -1900 -H. Adnan -71 -76 -19 -18 -0 -71 -1 -1 -0 -1 -0 -1800 -J. Moss -78 -82 -42 -49 -1 -77 -1 -3 -0 -2 -0 -3500 -J. Bryant -72 -69 -11 -15 -0 -71 -1 -3 -0 -3 -0 -1800 -T. Friend -52 -57 -64 -67 -2 -70 -1 -4 -0 -3 -0 -2400 -L. Sutton -54 -45 -1 -1 -0 -91 -1 -13 -1 -4 -0 -2700 -A. Botha -39 -32 -65 -73 -2 -69 -2 -7 -0 -2 -0 -2000 -G. Welch -24 -25 -71 -67 -3 -63 -1 -4 -0 -5 -0 -2100 -T. Lungley -15 -12 -68 -69 -3 -66 -1 -4 -0 -1 -0 -1700 -K. Dean -12 -11 -70 -73 -3 -67 -2 -10 -0 -4 -0 -2000 -C. Bassano -69 -74 -14 -11 -0 -70 -1 -2 -0 -3 -0 -1700 -B. France -72 -64 -21 -17 -0 -66 -2 -3 -0 -1 -0 -1700 -M. Sheikh -56 -63 -58 -67 -2 -69 -2 -3 -0 -3 -0 -1900 -L. Goddard -43 -41 -1 -1 -0 -90 -1 -13 -1 -1 -0 -1600 -C. Paget -27 -22 -62 -66 -2 -65 -1 -1 -0 -1 -0 -1400 -I. Hunter -13 -14 -70 -65 -3 -64 -1 -4 -0 -4 -0 -1700 -P. Havell -14 -16 -69 -63 -3 -69 -1 -4 -0 -2 -0 -1900 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/description.txt b/programs/samples/pete/nlcm2006/description.txt deleted file mode 100644 index a6d4083f3..000000000 --- a/programs/samples/pete/nlcm2006/description.txt +++ /dev/null @@ -1 +0,0 @@ -NATIONAL LEAGUE CRICKET MANAGER 2006 - an entertaining cricket manager game based on England's domestic National League competition. Deal with a whole host of managerial aspects, both on and off pitch, as you attempt to bring success to your county! The game, which was created in QBasic, features all 19 National League teams and a total of 342 domestic players, each with personalised player attributes and ratings. \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/dur.txt b/programs/samples/pete/nlcm2006/dur.txt deleted file mode 100644 index 80b12074f..000000000 --- a/programs/samples/pete/nlcm2006/dur.txt +++ /dev/null @@ -1,247 +0,0 @@ -DURHAM -14 -1 -8 -1 -8 -1 -6 -1 -10 -9 -3 -9 -J. Lewis -77 -72 -12 -14 -0 -74 -1 -3 -0 -3 -0 -3500 -M. Gough -74 -76 -15 -13 -0 -76 -1 -1 -0 -3 -0 -1900 -M. Hussey -89 -84 -31 -36 -0 -81 -2 -3 -0 -2 -0 -4200 -P. Collingwood -83 -86 -65 -68 -1 -85 -1 -3 -0 -3 -1 -4600 -D. Benkenstein -79 -74 -15 -16 -0 -72 -1 -1 -0 -4 -0 -3100 -A. Pratt -65 -57 -1 -1 -0 -91 -2 -13 -1 -4 -0 -2100 -G. Breese -57 -64 -69 -63 -2 -67 -1 -1 -0 -3 -0 -2200 -L. Plunkett -36 -35 -74 -72 -3 -64 -1 -5 -0 -1 -0 -2200 -C. Thorp -32 -27 -77 -73 -3 -70 -1 -4 -0 -2 -0 -4300 -S. Harmison -13 -16 -91 -86 -3 -66 -1 -6 -0 -2 -1 -5400 -N. Killeen -12 -14 -75 -78 -3 -65 -1 -4 -0 -3 -0 -1900 -G. Muchall -74 -67 -17 -14 -0 -72 -1 -3 -0 -2 -0 -1700 -G. Pratt -71 -74 -13 -11 -0 -77 -2 -1 -0 -2 -0 -1900 -P. Mustard -53 -46 -1 -1 -0 -92 -2 -13 -1 -4 -0 -2000 -M. Turner -56 -60 -68 -61 -3 -71 -1 -4 -0 -2 -0 -1800 -G. Bridge -31 -24 -62 -69 -2 -66 -1 -7 -0 -2 -0 -1900 -A. Walker -16 -15 -71 -73 -3 -67 -2 -4 -0 -2 -0 -1700 -M. Davies -13 -12 -74 -66 -3 -64 -1 -4 -0 -1 -0 -1600 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/ess.txt b/programs/samples/pete/nlcm2006/ess.txt deleted file mode 100644 index 1e2a0e693..000000000 --- a/programs/samples/pete/nlcm2006/ess.txt +++ /dev/null @@ -1,247 +0,0 @@ -ESSEX -24 -14 -4 -14 -1 -2 -7 -2 -10 -9 -8 -11 -W. Jefferson -77 -81 -15 -13 -0 -74 -1 -3 -0 -1 -0 -2200 -R. Irani -72 -83 -66 -61 -1 -70 -1 -3 -0 -5 -0 -3400 -A. Flower -84 -82 -15 -13 -0 -80 -2 -1 -0 -4 -0 -2800 -A. Cook -78 -72 -14 -11 -0 -74 -2 -3 -0 -1 -0 -2200 -G. Flower -76 -79 -25 -20 -0 -77 -1 -1 -0 -4 -0 -2400 -R. Bopara -69 -75 -53 -58 -1 -76 -1 -3 -0 -2 -0 -2000 -J. Foster -73 -65 -1 -1 -0 -92 -1 -13 -1 -3 -0 -2200 -A. Adams -51 -59 -80 -76 -3 -68 -1 -4 -0 -3 -0 -3400 -A. Tudor -25 -24 -82 -80 -3 -65 -1 -4 -0 -3 -0 -2200 -D. Gough -14 -15 -86 -83 -3 -63 -1 -5 -0 -4 -0 -2800 -D. Kaneria -12 -16 -85 -78 -2 -69 -1 -2 -0 -2 -0 -3600 -M. Pettini -76 -72 -14 -12 -0 -75 -1 -3 -0 -2 -0 -1900 -R. Ten Doeschate -68 -77 -47 -41 -1 -76 -1 -3 -0 -1 -0 -1600 -J. Middlebrook -70 -62 -61 -60 -2 -67 -1 -1 -0 -5 -0 -2200 -T. Phillips -42 -33 -58 -67 -2 -74 -2 -7 -0 -2 -0 -1600 -G. Napier -35 -44 -63 -59 -2 -68 -1 -4 -0 -4 -0 -2000 -A. Palladino -13 -12 -73 -74 -3 -65 -1 -4 -0 -1 -0 -1700 -A. Clarke -12 -14 -77 -75 -3 -62 -1 -4 -0 -3 -0 -1700 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/file1.txt b/programs/samples/pete/nlcm2006/file1.txt deleted file mode 100644 index 2edeafb09..000000000 --- a/programs/samples/pete/nlcm2006/file1.txt +++ /dev/null @@ -1 +0,0 @@ -20 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/file2.txt b/programs/samples/pete/nlcm2006/file2.txt deleted file mode 100644 index 2edeafb09..000000000 --- a/programs/samples/pete/nlcm2006/file2.txt +++ /dev/null @@ -1 +0,0 @@ -20 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/file3.txt b/programs/samples/pete/nlcm2006/file3.txt deleted file mode 100644 index 2edeafb09..000000000 --- a/programs/samples/pete/nlcm2006/file3.txt +++ /dev/null @@ -1 +0,0 @@ -20 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/file4.txt b/programs/samples/pete/nlcm2006/file4.txt deleted file mode 100644 index 2edeafb09..000000000 --- a/programs/samples/pete/nlcm2006/file4.txt +++ /dev/null @@ -1 +0,0 @@ -20 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/file5.txt b/programs/samples/pete/nlcm2006/file5.txt deleted file mode 100644 index 2edeafb09..000000000 --- a/programs/samples/pete/nlcm2006/file5.txt +++ /dev/null @@ -1 +0,0 @@ -20 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/fix.txt b/programs/samples/pete/nlcm2006/fix.txt deleted file mode 100644 index 3a4544726..000000000 --- a/programs/samples/pete/nlcm2006/fix.txt +++ /dev/null @@ -1,324 +0,0 @@ -1 -18 -6 -5 -9 -13 -14 -7 -15 -19 -2 -12 -3 -11 -4 -10 -8 -17 -5 -1 -6 -7 -9 -15 -13 -18 -19 -14 -3 -16 -8 -11 -10 -2 -17 -12 -1 -19 -7 -9 -13 -14 -15 -5 -18 -6 -3 -8 -10 -17 -11 -4 -12 -16 -7 -1 -9 -5 -13 -6 -15 -14 -19 -18 -2 -8 -3 -10 -4 -12 -16 -11 -1 -9 -14 -6 -15 -13 -18 -7 -19 -5 -2 -4 -10 -8 -11 -12 -17 -16 -1 -15 -5 -13 -6 -9 -7 -19 -18 -14 -2 -3 -4 -8 -16 -10 -17 -11 -1 -13 -6 -19 -14 -5 -15 -7 -18 -9 -3 -4 -8 -16 -10 -12 -17 -2 -5 -7 -6 -1 -9 -14 -13 -19 -18 -15 -2 -11 -8 -12 -16 -4 -17 -3 -1 -14 -5 -18 -7 -13 -15 -6 -19 -9 -4 -17 -11 -10 -12 -3 -16 -2 -18 -1 -5 -6 -13 -9 -7 -14 -19 -15 -12 -2 -11 -3 -10 -4 -17 -8 -1 -5 -7 -6 -15 -9 -18 -13 -14 -19 -16 -3 -11 -8 -2 -10 -12 -17 -19 -1 -9 -7 -14 -13 -5 -15 -6 -18 -8 -3 -17 -10 -4 -11 -16 -12 -1 -7 -5 -9 -6 -13 -14 -15 -18 -19 -8 -2 -10 -3 -12 -4 -11 -16 -9 -1 -6 -14 -13 -15 -7 -18 -5 -19 -4 -2 -8 -10 -12 -11 -16 -17 -15 -1 -5 -13 -9 -6 -19 -7 -14 -18 -3 -2 -8 -4 -10 -16 -11 -17 -13 -1 -19 -6 -5 -14 -7 -15 -9 -18 -4 -3 -16 -8 -12 -10 -2 -17 -7 -5 -1 -6 -14 -9 -19 -13 -15 -18 -11 -2 -12 -8 -4 -16 -3 -17 -14 -1 -18 -5 -13 -7 -6 -15 -9 -19 -17 -4 -10 -11 -3 -12 -2 -16 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/gla.txt b/programs/samples/pete/nlcm2006/gla.txt deleted file mode 100644 index 52554e58d..000000000 --- a/programs/samples/pete/nlcm2006/gla.txt +++ /dev/null @@ -1,247 +0,0 @@ -GLAMORGAN -18 -4 -7 -4 -8 -1 -7 -2 -11 -8 -1 -3 -M. Elliot -85 -77 -11 -14 -0 -81 -2 -9 -0 -4 -0 -4000 -R. Croft -67 -85 -69 -65 -2 -72 -1 -1 -0 -4 -0 -3200 -S. Ganguly -84 -86 -37 -43 -1 -79 -2 -3 -0 -4 -0 -5200 -D. Hemp -75 -72 -18 -16 -0 -73 -1 -3 -0 -3 -0 -2300 -D. Cherry -77 -70 -11 -13 -0 -80 -2 -3 -0 -1 -0 -1800 -I. Thomas -66 -80 -27 -20 -0 -74 -2 -1 -0 -3 -0 -1900 -M. Wallace -61 -57 -1 -1 -0 -90 -2 -13 -1 -3 -0 -2000 -A. Wharf -44 -62 -83 -79 -3 -70 -1 -4 -0 -4 -0 -2200 -D. Harrison -29 -36 -73 -71 -3 -64 -1 -4 -0 -3 -0 -1900 -D. Cosker -26 -19 -68 -76 -2 -61 -1 -7 -0 -4 -0 -2400 -S. Jones -14 -17 -86 -89 -3 -70 -1 -6 -0 -3 -1 -3300 -J. Hughes -71 -76 -12 -16 -0 -76 -1 -3 -0 -2 -0 -1500 -M. Powell -73 -74 -17 -15 -0 -64 -1 -1 -0 -5 -0 -2100 -R. Grant -64 -67 -31 -34 -1 -73 -1 -3 -0 -1 -0 -1500 -A. Shaw -47 -55 -1 -1 -0 -87 -1 -13 -1 -3 -0 -1600 -D. Thomas -40 -49 -68 -64 -2 -71 -1 -4 -0 -3 -0 -1800 -A. Davies -19 -25 -76 -68 -3 -65 -1 -4 -0 -2 -0 -2000 -B. Wright -16 -13 -72 -69 -3 -62 -1 -4 -0 -1 -0 -1400 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/glo.txt b/programs/samples/pete/nlcm2006/glo.txt deleted file mode 100644 index b8464b20c..000000000 --- a/programs/samples/pete/nlcm2006/glo.txt +++ /dev/null @@ -1,247 +0,0 @@ -GLOUCESTERSHIRE -12 -3 -1 -3 -1 -1 -6 -2 -9 -11 -1 -8 -C. Spearman -81 -87 -14 -12 -0 -79 -1 -3 -0 -3 -0 -3800 -C. Taylor -78 -73 -17 -16 -0 -74 -1 -1 -0 -2 -0 -3600 -M. Windows -74 -68 -13 -11 -0 -75 -1 -7 -0 -3 -0 -2100 -A. Gidman -67 -76 -58 -60 -1 -76 -1 -3 -0 -1 -0 -1900 -W. Weston -71 -66 -13 -15 -0 -68 -2 -9 -0 -4 -0 -1900 -S. Adshead -64 -74 -1 -1 -0 -93 -1 -13 -1 -2 -0 -1800 -M. Alleyne -57 -64 -69 -62 -1 -65 -1 -3 -0 -5 -0 -2300 -U. Chandana -42 -51 -76 -73 -2 -63 -1 -2 -0 -2 -0 -3400 -J. Lewis -19 -15 -82 -81 -3 -69 -1 -4 -0 -2 -1 -2600 -S. Kirby -15 -13 -77 -69 -3 -66 -1 -5 -0 -2 -0 -2100 -C. Greenidge -14 -17 -75 -74 -3 -63 -1 -4 -0 -2 -0 -1900 -J. Pearson -70 -64 -15 -12 -0 -74 -2 -9 -0 -1 -0 -1600 -M. Hardinges -67 -69 -23 -27 -0 -70 -1 -3 -0 -3 -0 -1800 -S. Snell -47 -41 -1 -1 -0 -91 -1 -13 -1 -1 -0 -1700 -I. Fisher -45 -46 -65 -60 -2 -66 -2 -7 -0 -1 -0 -2100 -R. Sillence -21 -27 -66 -68 -2 -68 -1 -4 -0 -2 -0 -1700 -M. Ball -17 -14 -69 -75 -2 -65 -1 -1 -0 -4 -0 -1900 -W. Rudge -14 -12 -72 -67 -3 -62 -1 -4 -0 -2 -0 -1600 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/groups.txt b/programs/samples/pete/nlcm2006/groups.txt deleted file mode 100644 index 00dff45bb..000000000 --- a/programs/samples/pete/nlcm2006/groups.txt +++ /dev/null @@ -1,19 +0,0 @@ -2 -3 -4 -8 -10 -11 -12 -16 -17 -1 -5 -6 -7 -9 -13 -14 -15 -18 -19 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/ham.txt b/programs/samples/pete/nlcm2006/ham.txt deleted file mode 100644 index b2a954d35..000000000 --- a/programs/samples/pete/nlcm2006/ham.txt +++ /dev/null @@ -1,247 +0,0 @@ -HAMPSHIRE -15 -6 -1 -1 -6 -1 -1 -9 -10 -11 -2 -9 -N. Pothas -72 -79 -1 -1 -0 -94 -1 -13 -1 -3 -0 -2300 -S. Katich -82 -87 -28 -23 -0 -79 -2 -8 -0 -3 -0 -4200 -J. Crawley -81 -72 -11 -15 -0 -64 -1 -3 -0 -5 -0 -2400 -K. Pietersen -89 -93 -22 -17 -0 -75 -1 -1 -0 -2 -1 -5200 -S. Ervine -69 -75 -66 -61 -1 -76 -1 -4 -0 -4 -0 -2100 -G. Lamb -64 -71 -28 -22 -0 -69 -1 -1 -0 -3 -0 -2000 -D. Mascarenhas -51 -58 -81 -75 -2 -73 -1 -4 -0 -3 -0 -2100 -S. Udal -40 -33 -69 -74 -2 -67 -1 -1 -0 -4 -0 -2300 -S. Warne -35 -41 -94 -88 -3 -70 -1 -2 -0 -4 -0 -5600 -C. Tremlett -14 -13 -82 -81 -3 -64 -1 -4 -0 -2 -1 -2400 -B. Taylor -11 -14 -76 -71 -3 -67 -2 -4 -0 -4 -0 -1900 -D. Kenway -75 -69 -14 -12 -0 -68 -1 -3 -0 -5 -0 -1800 -K. Latouf -73 -67 -17 -18 -0 -75 -1 -3 -0 -1 -0 -1600 -L. Prittipaul -58 -63 -53 -47 -1 -74 -1 -3 -0 -4 -0 -1900 -T. Burrows -45 -40 -1 -1 -0 -91 -1 -13 -1 -2 -0 -1400 -J. Tomlinson -17 -15 -73 -69 -3 -70 -2 -10 -0 -1 -0 -1700 -J. Logan -19 -17 -71 -76 -3 -67 -1 -4 -0 -2 -0 -1900 -J. Bruce -14 -12 -70 -72 -3 -64 -1 -4 -0 -1 -0 -1600 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/kent.txt b/programs/samples/pete/nlcm2006/kent.txt deleted file mode 100644 index 56e5c4fee..000000000 --- a/programs/samples/pete/nlcm2006/kent.txt +++ /dev/null @@ -1,247 +0,0 @@ -KENT -12 -4 -6 -4 -6 -1 -5 -3 -6 -10 -2 -6 -R. Key -78 -76 -13 -11 -0 -70 -1 -1 -0 -2 -0 -2600 -M. Van Jaarsveld -81 -83 -15 -13 -0 -76 -1 -3 -0 -4 -0 -3500 -D. Fulton -77 -72 -12 -14 -0 -72 -1 -7 -0 -5 -0 -2300 -M. Carberry -71 -73 -19 -17 -0 -75 -2 -1 -0 -2 -0 -1800 -G. Jones -75 -82 -1 -1 -0 -93 -1 -13 -1 -2 -1 -4800 -A. Hall -68 -78 -79 -83 -3 -77 -1 -4 -0 -3 -0 -4100 -M. Walker -61 -65 -56 -58 -1 -68 -1 -3 -0 -4 -0 -1900 -J. Tredwell -43 -41 -63 -66 -2 -65 -1 -1 -0 -3 -0 -2000 -S. Cook -34 -27 -78 -75 -3 -64 -1 -4 -0 -4 -0 -2300 -M. Saggers -15 -13 -81 -74 -3 -62 -1 -4 -0 -5 -0 -2400 -R. Joseph -12 -14 -74 -71 -3 -65 -1 -4 -0 -4 -0 -1900 -J. Denly -73 -67 -15 -12 -0 -68 -1 -2 -0 -1 -0 -1700 -D. Stevens -68 -74 -35 -40 -0 -66 -1 -3 -0 -4 -0 -1900 -M. Dennington -47 -50 -67 -61 -1 -69 -1 -3 -0 -2 -0 -1600 -N. O'Brien -40 -47 -1 -1 -0 -91 -2 -13 -1 -1 -0 -1600 -R. Ferley -36 -33 -68 -74 -2 -65 -1 -7 -0 -2 -0 -1800 -A. Sheriyar -13 -12 -73 -70 -3 -64 -1 -10 -0 -3 -0 -1700 -D. Stiff -12 -15 -72 -69 -3 -67 -1 -5 -0 -1 -0 -1500 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/lan.txt b/programs/samples/pete/nlcm2006/lan.txt deleted file mode 100644 index f59a941a5..000000000 --- a/programs/samples/pete/nlcm2006/lan.txt +++ /dev/null @@ -1,247 +0,0 @@ -LANCASHIRE -22 -1 -4 -4 -9 -2 -7 -6 -11 -8 -4 -10 -M. Loye -82 -84 -12 -16 -0 -78 -1 -1 -0 -4 -0 -2600 -I. Sutcliffe -74 -66 -16 -14 -0 -69 -2 -2 -0 -4 -0 -2200 -S. Law -84 -76 -17 -12 -0 -72 -1 -1 -0 -4 -0 -2500 -A. Symonds -81 -88 -63 -67 -1 -81 -1 -1 -0 -3 -0 -5400 -A. Flintoff -88 -94 -91 -93 -3 -84 -1 -5 -0 -3 -1 -5800 -M. Chilton -72 -77 -13 -15 -0 -75 -1 -3 -0 -3 -0 -2700 -G. Cross -48 -54 -1 -1 -0 -91 -1 -13 -1 -2 -0 -1800 -D. Cork -42 -57 -77 -81 -3 -70 -1 -4 -0 -4 -0 -2700 -S. Mahmood -27 -24 -78 -74 -2 -62 -1 -5 -0 -2 -0 -1900 -M. Muralitheran -13 -18 -94 -89 -3 -68 -1 -1 -0 -4 -0 -6000 -J. Anderson -15 -11 -83 -76 -3 -65 -2 -5 -0 -2 -1 -2400 -P. Horton -75 -62 -13 -17 -0 -78 -1 -3 -0 -1 -0 -1400 -T. Rees -70 -72 -17 -14 -0 -69 -1 -1 -0 -1 -0 -1200 -G. Chapple -47 -51 -69 -66 -3 -65 -1 -4 -0 -5 -0 -2100 -A. Crook -38 -37 -64 -68 -2 -68 -1 -1 -0 -1 -0 -1200 -K. Hogg -36 -45 -71 -65 -3 -69 -2 -4 -0 -2 -0 -1400 -S. Croft -15 -12 -72 -68 -3 -74 -1 -4 -0 -1 -0 -1300 -G. Keedy -13 -11 -75 -78 -2 -63 -2 -7 -0 -4 -0 -1900 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/lei.txt b/programs/samples/pete/nlcm2006/lei.txt deleted file mode 100644 index af27510ea..000000000 --- a/programs/samples/pete/nlcm2006/lei.txt +++ /dev/null @@ -1,247 +0,0 @@ -LEICESTERSHIRE -12 -2 -4 -2 -14 -2 -6 -3 -8 -11 -3 -4 -D. Maddy -76 -82 -48 -45 -1 -79 -1 -3 -0 -3 -0 -2200 -D. Robinson -73 -70 -12 -14 -0 -74 -1 -3 -0 -4 -0 -1900 -H. Ackerman -78 -74 -15 -12 -0 -73 -1 -3 -0 -4 -0 -3200 -D. Mongia -75 -84 -55 -63 -1 -78 -2 -7 -0 -2 -0 -3000 -A. Habib -71 -77 -16 -18 -0 -77 -1 -3 -0 -3 -0 -2000 -P. Nixon -59 -56 -1 -1 -0 -92 -2 -13 -1 -4 -0 -2200 -J. Snape -45 -61 -72 -74 -2 -68 -1 -1 -0 -3 -0 -2500 -O. Gibson -41 -48 -76 -69 -3 -65 -1 -4 -0 -4 -0 -1900 -C. Henderson -23 -18 -67 -77 -2 -62 -1 -7 -0 -3 -0 -2300 -C. Dagnall -13 -16 -74 -73 -3 -68 -1 -4 -0 -2 -0 -1800 -C. Willoughby -11 -13 -81 -79 -3 -65 -2 -11 -0 -3 -0 -2400 -J. Sadler -71 -72 -15 -12 -0 -70 -2 -2 -0 -5 -0 -1600 -J. Maunders -64 -67 -26 -30 -0 -74 -2 -3 -0 -1 -0 -1500 -T. New -72 -65 -1 -1 -0 -90 -2 -13 -1 -1 -0 -1700 -C. Liddle -38 -34 -61 -66 -2 -68 -1 -7 -0 -1 -0 -1400 -S. Broad -19 -22 -69 -65 -3 -62 -2 -10 -0 -1 -0 -1800 -D. Brignull -13 -12 -73 -76 -3 -63 -1 -4 -0 -3 -0 -1700 -D. Masters -15 -14 -77 -71 -3 -66 -1 -4 -0 -5 -0 -1800 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/mid.txt b/programs/samples/pete/nlcm2006/mid.txt deleted file mode 100644 index a4e21bdc9..000000000 --- a/programs/samples/pete/nlcm2006/mid.txt +++ /dev/null @@ -1,247 +0,0 @@ -MIDDLESEX -24 -1 -4 -1 -4 -1 -9 -1 -10 -7 -5 -7 -E. Smith -81 -74 -13 -15 -0 -76 -1 -3 -0 -3 -0 -2700 -A. Strauss -89 -84 -12 -16 -0 -80 -2 -9 -0 -3 -1 -4400 -O. Shah -76 -80 -28 -23 -0 -75 -1 -1 -0 -3 -0 -2200 -E. Joyce -75 -77 -14 -11 -0 -77 -1 -3 -0 -2 -0 -2300 -S. Styris -78 -86 -70 -74 -2 -77 -1 -3 -0 -3 -0 -4100 -J. Dalrymple -68 -76 -59 -55 -1 -80 -1 -1 -0 -2 -0 -1800 -I. Pathan -53 -67 -84 -82 -3 -74 -2 -11 -0 -3 -0 -4200 -B. Hutton -45 -43 -66 -72 -2 -75 -2 -4 -0 -1 -0 -2500 -B. Scott -43 -39 -1 -1 -0 -92 -1 -13 -1 -1 -0 -1700 -A. Richardson -16 -17 -78 -73 -3 -65 -1 -4 -0 -4 -0 -1800 -C. Whelan -11 -13 -74 -71 -3 -68 -1 -4 -0 -2 -0 -1600 -N. Compton -71 -67 -13 -17 -0 -74 -1 -1 -0 -1 -0 -1700 -E. Morgan -70 -75 -11 -12 -0 -76 -1 -3 -0 -1 -0 -1400 -P. Weekes -68 -74 -43 -50 -1 -67 -1 -1 -0 -5 -0 -2000 -D. Nash -51 -55 -1 -1 -0 -90 -1 -13 -1 -4 -0 -1800 -B. Godleman -29 -27 -73 -68 -2 -66 -2 -2 -0 -1 -0 -1500 -M. Betts -14 -12 -71 -74 -3 -63 -1 -4 -0 -4 -0 -1800 -C. Keegan -15 -16 -76 -69 -3 -69 -1 -4 -0 -2 -0 -2100 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/nlcm.bas b/programs/samples/pete/nlcm2006/nlcm.bas deleted file mode 100644 index 30383089c..000000000 --- a/programs/samples/pete/nlcm2006/nlcm.bas +++ /dev/null @@ -1,3791 +0,0 @@ -CHDIR ".\programs\samples\pete\nlcm2006" - -DECLARE SUB managerInfo () -DECLARE SUB playerSalary () -DECLARE SUB finance () -DECLARE SUB endOfSeason () -DECLARE SUB training () -DECLARE SUB loadGame () -DECLARE SUB saveGame () -DECLARE SUB batOrder () -DECLARE SUB statistics () -DECLARE SUB groupTables () -DECLARE SUB matchSimulator () -DECLARE SUB manhattan () -DECLARE SUB figures2 () -DECLARE SUB scorecard2 () -DECLARE SUB changeBowler () -DECLARE SUB figures () -DECLARE SUB scorecard () -DECLARE FUNCTION rand! (c!) -DECLARE SUB matchDay () -DECLARE SUB fixtures () -DECLARE SUB getInfo () -DECLARE SUB teamSheet () -DIM SHARED overSeas1(19) -DIM SHARED overSeas2(19) -DIM SHARED points(19) -DIM SHARED ta(18) -DIM SHARED ti(18) -DIM SHARED f$(19) -DIM SHARED team$(19) -DIM SHARED rating(19) -DIM SHARED shirt1(19) -DIM SHARED shirt2(19) -DIM SHARED trousers1(19) -DIM SHARED trousers2(19) -DIM SHARED cs(19) -DIM SHARED wk(19) -DIM SHARED cp(19) -DIM SHARED ob1(19) -DIM SHARED ob2(19) -DIM SHARED player$(18, 19) -DIM SHARED gb(18, 19) -DIM SHARED rs(18, 19) -DIM SHARED wt(18, 19) -DIM SHARED eb(18, 19) -DIM SHARED ba(18, 19) -DIM SHARED fa(18, 19) -DIM SHARED bat(18, 19) -DIM SHARED bowl(18, 19) -DIM SHARED wicketKeeper(18, 19) -DIM SHARED peak(18, 19) -DIM SHARED international(18, 19) -DIM SHARED sm(18) -DIM SHARED salary(18, 19) -DIM SHARED sRuns(18) -DIM SHARED sBalls(18) -DIM SHARED sInnings(18) -DIM SHARED sOuts(18) -DIM SHARED hs(18) -DIM SHARED batAve(18) -DIM SHARED sOvers(18) -DIM SHARED sWickets(18) -DIM SHARED sConceded(18) -DIM SHARED strRte(18) -DIM SHARED ecnRte(18) -DIM SHARED bbw(18) -DIM SHARED bbr(18) -DIM SHARED bowlAve(18) -DIM SHARED bat$(2) -DIM SHARED bowl$(13) -DIM SHARED attribute$(6) -DIM SHARED tAttribute$(6) -DIM SHARED fixture(2, 9, 18) -DIM SHARED pitch$(5) -DIM SHARED pr(5) -DIM SHARED truns(19) -DIM SHARED tWickets(19) -DIM SHARED tovers(19) -DIM SHARED tBalls(19) -DIM SHARED runs(11, 19) -DIM SHARED balls(11, 19) -DIM SHARED o(11, 19) -DIM SHARED b(11, 19) -DIM SHARED m(11, 19) -DIM SHARED r(11, 19) -DIM SHARED w(11, 19) -DIM SHARED extras(19) -DIM SHARED wides(19) -DIM SHARED noBalls(19) -DIM SHARED byes(19) -DIM SHARED legByes(19) -DIM SHARED ball$(8) -DIM SHARED howOut1$(18, 19) -DIM SHARED howOut2$(18, 19) -DIM SHARED howOut3$(18, 19) -DIM SHARED howOut4$(18, 19) -DIM SHARED speed(8) -DIM SHARED bowlChange(12, 19) -DIM SHARED bowlers(19) -DIM SHARED fow(10, 19) -DIM SHARED cb(18, 19) -DIM SHARED fatigue(18, 19) -DIM SHARED in(18, 19) -DIM SHARED rpo(50, 2) -DIM SHARED groupTeam(10, 2) -DIM SHARED rank(19) -DIM SHARED position(19) -DIM SHARED played(19) -DIM SHARED wins(19) -DIM SHARED losses(19) -DIM SHARED ties(19) -DIM SHARED field$(3) -DIM SHARED career$(5) -DIM SHARED morale(18) -DIM SHARED iWeeks(18) -DIM SHARED duty(18) -COMMON SHARED directorsRating, fansRating, weekIn, weekOut, money, coinCheat, os, pr, battingSide, bowlingSide, lastSub, gt, bat1, bat2, team, name$, week, year, u$, d$, l$, r$, batSide, bowlSide, opponents, bowler, lbowler, momDone -CALL getInfo -fansRating = 40 -directorsRating = 40 - -COLOR 11, 0 -CLS -LOCATE 16, 20 -PRINT "NATIONAL LEAGUE CRICKET MANAGER 2006" -LOCATE 19, 28 -COLOR 3, 0 -PRINT "By Alex Beighton" -DO -LOOP UNTIL INKEY$ = CHR$(13) - -COLOR 11, 0 -CLS -LOCATE 16, 28 -PRINT "KEY CONFIGURATION:" -COLOR 3, 0 -LOCATE 20, 22 -PRINT "Enter the "; CHR$(34); "up"; CHR$(34); " key on your keypad" -DO -u$ = INKEY$ -LOOP UNTIL u$ <> "" -COLOR 11, 0 -CLS -LOCATE 16, 28 -PRINT "KEY CONFIGURATION:" -COLOR 3, 0 -LOCATE 20, 22 -PRINT "Enter the "; CHR$(34); "down"; CHR$(34); " key on your keypad" -DO -d$ = INKEY$ -LOOP UNTIL d$ <> "" -COLOR 11, 0 -CLS -LOCATE 16, 28 -PRINT "KEY CONFIGURATION:" -COLOR 3, 0 -LOCATE 20, 22 -PRINT "Enter the "; CHR$(34); "left"; CHR$(34); " key on your keypad" -DO -l$ = INKEY$ -LOOP UNTIL l$ <> "" -COLOR 11, 0 -CLS -LOCATE 16, 28 -PRINT "KEY CONFIGURATION:" -COLOR 3, 0 -LOCATE 20, 22 -PRINT "Enter the "; CHR$(34); "right"; CHR$(34); " key on your keypad" -DO -r$ = INKEY$ -LOOP UNTIL r$ <> "" - -gc = 1 -910 COLOR 11, 0 -CLS -LOCATE 16, 20 -PRINT "NATIONAL LEAGUE CRICKET MANAGER 2006" -LOCATE 19, 28 -COLOR 3, 0 -PRINT "By Alex Beighton" - -IF gc = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE 25, 30 -PRINT "NEW GAME" -IF gc = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE 27, 30 -PRINT "LOAD GAME" -IF gc = 3 THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE 29, 30 -PRINT "QUIT GAME" - -900 SELECT CASE INKEY$ -CASE IS = u$ -gc = gc - 1 -IF gc < 1 THEN gc = 3 -GOTO 910 -CASE IS = d$ -gc = gc + 1 -IF gc > 3 THEN gc = 1 -GOTO 910 -CASE IS = CHR$(13) -CASE ELSE -GOTO 900 -END SELECT - -SELECT CASE gc -CASE IS = 2 -CALL loadGame -os = 1 -GOTO 970 -CASE IS = 3 -END -END SELECT - -COLOR 11, 0 -CLS -LOCATE 16, 26 -PRINT "ENTER YOUR NAME" -COLOR 3, 0 -LOCATE 20, 26 -PRINT "My name is" -DO -LOCATE 20, 36 -INPUT name$ -LOOP UNTIL name$ <> "" - -COLOR 3, 0 -CLS -ct = 1 -20 COLOR 11, 0 -LOCATE 3, 5 -PRINT "SELECT YOUR TEAM..." -COLOR 3, 0 -FOR i = 1 TO 19 -IF ct = i THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE 6 + (i * 2), 5 -PRINT team$(i) -NEXT i - -COLOR shirt1(ct), 0 -FOR i = 18 TO 27 -FOR j = 38 TO 46 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i -COLOR shirt2(ct), 0 -LOCATE 22, 40 -PRINT CHR$(219); CHR$(219); CHR$(219); CHR$(219); CHR$(219) -LOCATE 18, 42 -PRINT CHR$(219) -FOR i = 18 TO 24 -FOR j = 36 TO 37 -LOCATE i, j -PRINT CHR$(219) -NEXT j -FOR j = 47 TO 48 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i - -COLOR trousers1(ct), 0 -FOR i = 28 TO 38 -FOR j = 38 TO 46 -IF i > 30 AND j > 41 AND j < 43 THEN GOTO 440 -LOCATE i, j -PRINT CHR$(219) -440 NEXT j -NEXT i - -SELECT CASE cs(ct) -CASE IS = 1 -COLOR trousers2(ct), trousers1(ct) -FOR i = 28 TO 38 -LOCATE i, 38 -PRINT CHR$(221) -LOCATE i, 46 -PRINT CHR$(222) -NEXT i -CASE IS = 2 -COLOR trousers1(ct), trousers2(ct) -FOR i = 28 TO 38 -LOCATE i, 38 -PRINT CHR$(222) -LOCATE i, 46 -PRINT CHR$(221) -NEXT i -END SELECT - -COLOR 11, 0 -LOCATE 8, 36 -PRINT "TEAM :" -COLOR 3, 0 -LOCATE 8, 47 -PRINT team$(ct) -COLOR 11, 0 -LOCATE 10, 36 -PRINT "CAPTAIN :" -COLOR 3, 0 -LOCATE 10, 47 -PRINT player$(cp(ct), ct) -COLOR 11, 0 -LOCATE 12, 36 -PRINT "GROUP :" -COLOR 3, 0 -LOCATE 12, 47 -IF groupTeam(1, 1) = ct OR groupTeam(2, 1) = ct OR groupTeam(3, 1) = ct OR groupTeam(4, 1) = ct OR groupTeam(5, 1) = ct OR groupTeam(6, 1) = ct OR groupTeam(7, 1) = ct OR groupTeam(8, 1) = ct OR groupTeam(9, 1) = ct THEN PRINT "DIVISION 1" ELSE PRINT "DIVISION 2" - -10 SELECT CASE INKEY$ -CASE IS = u$ -CLS -ct = ct - 1 -IF ct < 1 THEN ct = 19 -GOTO 20 -CASE IS = d$ -CLS -ct = ct + 1 -IF ct > 19 THEN ct = 1 -GOTO 20 -CASE IS = CHR$(13) -CASE ELSE -GOTO 10 -END SELECT -team = ct - -week = 1 -year = 2006 -os = 1 -FOR i = 1 TO 18 -morale(i) = rand(10) + 65 -NEXT i -970 DO -FOR i = 1 TO 18 -IF morale(i) < 25 THEN morale(i) = 25 -IF morale(i) > 95 THEN morale(i) = 95 -NEXT i -SELECT CASE os -CASE IS = 9 -FOR i = 1 TO 18 -IF iWeeks(i) > 0 THEN iWeeks(i) = iWeeks(i) - 1 -NEXT i -FOR i = 1 TO 18 -IF i > 11 THEN morale(i) = morale(i) + (rand(4) - 3) ELSE morale(i) = morale(i) + rand(4) -IF morale(i) < 25 THEN morale(i) = 25 -IF morale(i) > 95 THEN morale(i) = 95 -NEXT i -weekOut = 0 -weekIn = 0 -FOR i = 1 TO 18 -money = money - salary(i, team) -weekOut = weekOut + salary(i, team) -NEXT i -weekIn = rand(12000) + 40000 -money = money + weekIn -week = week + 1 -os = 1 -FOR i = 1 TO 18 -IF peak(i, team) = 1 THEN ir = 4 -IF peak(i, team) = 2 THEN ir = 8 -IF peak(i, team) = 3 THEN ir = 12 -IF peak(i, team) = 4 THEN ir = 16 -IF peak(i, team) = 5 THEN ir = 20 -IF ti(i) < 3 THEN ir = ir + 1 -IF ti(i) > 3 THEN ir = ir - 1 -cogb = rand(ir) -SELECT CASE ir -CASE IS = 1 -IF ta(i) = 1 THEN gb(i, team) = gb(i, team) + 1 -IF ta(i) = 2 THEN rs(i, team) = rs(i, team) + 1 -IF ta(i) = 3 THEN wt(i, team) = wt(i, team) + 1 -IF ta(i) = 4 THEN eb(i, team) = eb(i, team) + 1 -IF ta(i) = 5 THEN fa(i, team) = fa(i, team) + 1 -IF ta(i) = 6 THEN fa(i, team) = fa(i, team) + 1 -END SELECT -NEXT i - -injuryChance = rand(6) -SELECT CASE injuryChance -CASE IS = 1 -injuries = 0 -FOR j = 1 TO 18 -IF iWeeks(j) > 0 THEN injuries = injuries + 1 -NEXT j -IF injuries >= 3 THEN GOTO 3000 -DO -injuredPlayer = rand(18) -LOOP UNTIL iWeeks(injuredPlayer) = 0 -iWeeks(injuredPlayer) = rand(5) - -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 8, 5 -PRINT "FOR YOUR INFORMATION:" -COLOR 3, 0 -LOCATE 10, 5 -PRINT player$(injuredPlayer, team); " has picked up an injury and will be out for "; iWeeks(injuredPlayer); " weeks." -DO -LOOP UNTIL INKEY$ = CHR$(13) -3000 END SELECT - -internationals = 0 -FOR i = 1 TO 18 -IF international(i, team) = 1 THEN internationals = 1 -NEXT i -IF internationals = 0 THEN GOTO 3300 -SELECT CASE week -CASE IS = 5 -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 8, 5 -PRINT "FOR YOUR INFORMATION:" -COLOR 3, 0 -LOCATE 12, 5 -PRINT "The following player(s) are from now on international duty and are" -LOCATE 13, 5 -PRINT "unavailable for selection:" -internationalTotal = 0 -FOR i = 1 TO 18 -IF international(i, team) = 1 THEN internationalTotal = internationalTotal + 1 -LOCATE 14 + internationalTotal, 5 -IF international(i, team) = 1 THEN PRINT player$(i, team) -IF international(i, team) = 1 THEN duty(i) = 1 -NEXT i -DO -LOOP UNTIL INKEY$ = CHR$(13) - -CASE IS = 12 -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 8, 5 -PRINT "FOR YOUR INFORMATION:" -COLOR 3, 0 -LOCATE 12, 5 -PRINT "The following player(s) have returned from international duty and are" -LOCATE 13, 5 -PRINT "now available for selection:" -internationalTotal = 0 -FOR i = 1 TO 18 -IF international(i, team) = 1 THEN internationalTotal = internationalTotal + 1 -LOCATE 14 + internationalTotal, 5 -IF international(i, team) = 1 THEN PRINT player$(i, team) -IF international(i, team) = 1 THEN duty(i) = 0 -NEXT i -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SELECT -3300 END SELECT - -IF week = 53 THEN year = year + 1 -IF week = 53 THEN week = 1 - -totalMorale = 0 -FOR i = 1 TO 18 -totalMorale = totalMorale + morale(i) -NEXT i -directorsRating = (fansRating / 2) -SELECT CASE totalMorale -CASE IS >= 1250 -directorsRating = directorsRating + 25 -CASE 1200 TO 1249 -directorsRating = directorsRating + 15 -CASE 1150 TO 1199 -directorsRating = directorsRating + 5 -END SELECT - -SELECT CASE money -CASE IS >= 18000 -directorsRating = directorsRating + 25 -CASE 16000 TO 17999 -directorsRating = directorsRating + 20 -CASE 14000 TO 15999 -directorsRating = directorsRating + 15 -CASE 12000 TO 13999 -directorsRating = directorsRating + 10 -CASE 10000 TO 11999 -directorsRating = directorsRating + 5 -END SELECT - - -IF fansRating > 100 THEN fansRating = 100 -IF directorsRating > 100 THEN directorsRating = 100 -IF fansRating < 5 THEN fansRating = 5 -IF directorsRating < 5 THEN directorsRating = 5 - -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year - -COLOR shirt1(team), 0 -FOR i = 8 TO 17 -FOR j = 44 TO 52 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i -COLOR shirt2(team), 0 -LOCATE 12, 46 -PRINT CHR$(219); CHR$(219); CHR$(219); CHR$(219); CHR$(219) -LOCATE 8, 48 -PRINT CHR$(219) -FOR i = 8 TO 14 -FOR j = 42 TO 43 -LOCATE i, j -PRINT CHR$(219) -NEXT j -FOR j = 53 TO 54 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i - -COLOR trousers1(team), 0 -FOR i = 18 TO 28 -FOR j = 44 TO 52 -IF i > 20 AND j > 47 AND j < 49 THEN GOTO 70 -LOCATE i, j -PRINT CHR$(219) -70 NEXT j -NEXT i - -SELECT CASE cs(team) -CASE IS = 1 -COLOR trousers2(team), trousers1(team) -FOR i = 18 TO 28 -LOCATE i, 44 -PRINT CHR$(221) -LOCATE i, 52 -PRINT CHR$(222) -NEXT i -CASE IS = 2 -COLOR trousers1(team), trousers2(team) -FOR i = 18 TO 28 -LOCATE i, 44 -PRINT CHR$(222) -LOCATE i, 52 -PRINT CHR$(221) -NEXT i -END SELECT - -40 LOCATE 8, 5 -IF os = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Team Sheet" -LOCATE 10, 5 -IF os = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Training" -LOCATE 12, 5 -IF os = 3 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Finance" -LOCATE 14, 5 -IF os = 4 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Fixtures" -LOCATE 16, 5 -IF os = 5 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "League Tables" -LOCATE 18, 5 -IF os = 6 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Statistics" -LOCATE 20, 5 -IF os = 7 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Manager Info" -LOCATE 22, 5 -IF os = 8 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Save Game" -LOCATE 24, 5 -IF os = 9 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "GO TO MATCHDAY" - -30 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 9 -GOTO 40 -CASE IS = d$ -os = os + 1 -IF os > 9 THEN os = 1 -GOTO 40 -CASE IS = CHR$(13) -CASE ELSE -GOTO 30 -END SELECT - -SELECT CASE os -CASE IS = 1 -CALL teamSheet -CASE IS = 2 -CALL training -CASE IS = 3 -CALL finance -CASE IS = 4 -CALL fixtures -CASE IS = 5 -CALL groupTables -CASE IS = 6 -CALL statistics -CASE IS = 7 -CALL managerInfo -CASE IS = 8 -CALL saveGame -CASE IS = 9 -injuryTeam = 0 -FOR i = 1 TO 11 -IF iWeeks(i) > 0 THEN injuryTeam = 1 -IF duty(i) > 0 THEN injuryTeam = 1 -NEXT i -SELECT CASE injuryTeam -CASE IS = 0 -CALL matchDay -CASE IS = 1 -COLOR 3, 0 -LOCATE 40, 5 -PRINT "You cannot play a match, as you do not have 11 valid players in your team." -GOTO 30 -END SELECT -CASE ELSE -END SELECT -LOOP - -SUB batOrder -ps = tWickets(batSide) + 3 -22 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT team$(batSide); " - CHANGE BATTING ORDER" - -FOR i = 1 TO 11 -LOCATE i * 2 + 6, 5 -IF in(i, batSide) = 1 THEN COLOR 11, 0 ELSE COLOR 3, 0 -PRINT player$(i, batSide) -LOCATE i * 2 + 6, 3 -IF i = ps THEN PRINT CHR$(16) ELSE PRINT " " -NEXT i - -COLOR 11, 0 -LOCATE 40, 5 -PRINT "Move the cursor to the player you want to swap, then press RETURN." - -21 SELECT CASE INKEY$ -CASE IS = u$ -ps = ps - 1 -IF ps - tWickets(batSide) < 3 THEN ps = 11 -GOTO 22 -CASE IS = d$ -ps = ps + 1 -IF ps > 11 THEN ps = tWickets(batSide) + 3 -GOTO 22 -CASE IS = CHR$(13) -CASE ELSE -GOTO 21 -END SELECT - -ps2 = tWickets(batSide) + 3 -24 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT team$(batSide); " - CHANGE BATTING ORDER" - -FOR i = 1 TO 11 -LOCATE i * 2 + 6, 5 -IF in(i, batSide) = 1 THEN COLOR 11, 0 ELSE COLOR 3, 0 -PRINT player$(i, batSide) -COLOR 3, 0 -LOCATE i * 2 + 6, 3 -IF i = ps THEN PRINT CHR$(16) -COLOR 9, 0 -LOCATE i * 2 + 6, 3 -IF i = ps2 THEN PRINT CHR$(16) -LOCATE i * 2 + 6, 3 -IF i <> ps AND i <> ps2 THEN PRINT " " -NEXT i - -COLOR 11, 0 -LOCATE 40, 5 -PRINT "Move the cursor to the player you want to swap, then press RETURN." - -23 SELECT CASE INKEY$ -CASE IS = u$ -ps2 = ps2 - 1 -IF ps2 - tWickets(batSide) < 3 THEN ps2 = 11 -GOTO 24 -CASE IS = d$ -ps2 = ps2 + 1 -IF ps2 > 11 THEN ps2 = tWickets(batSide) + 3 -GOTO 24 -CASE IS = CHR$(13) -CASE ELSE -GOTO 23 -END SELECT - -player2$ = player$(ps2, team) -gb2 = gb(ps2, team) -rs2 = rs(ps2, team) -eb2 = eb(ps2, team) -wt2 = wt(ps2, team) -ba2 = ba(ps2, team) -fa2 = fa(ps2, team) -bats2 = bat(ps2, team) -bowl2 = bowl(ps2, team) -wicketKeeper2 = wicketKeeper(ps2, team) -international2 = international(ps2, team) -salary2 = salary(ps2, team) -peak2 = peak(ps2, team) -sm2 = sm(ps2) -sInnings2 = sInnings(ps2) -sRuns2 = sRuns(ps2) -sOuts2 = sOuts(ps2) -hs2 = hs(ps2) -sBalls2 = sBalls(ps2) -sWickets2 = sWickets(ps2) -bbw2 = bbw(ps2) -bbr2 = bbr(ps2) -sOvers2 = sOvers(ps2) -sConceded2 = sConceded(ps2) -morale2 = morale(ps2) -iWeeks2 = iWeeks(ps2) -duty2 = duty(ps2) -o2 = o(ps2, team) -b2 = b(ps2, team) -m2 = m(ps2, team) -r2 = r(ps2, team) -w2 = w(ps2, team) - -player$(ps2, team) = player$(ps, team) -player$(ps2, team) = player$(ps, team) -gb(ps2, team) = gb(ps, team) -rs(ps2, team) = rs(ps, team) -eb(ps2, team) = eb(ps, team) -wt(ps2, team) = wt(ps, team) -ba(ps2, team) = ba(ps, team) -fa(ps2, team) = fa(ps, team) -bat(ps2, team) = bat(ps, team) -bowl(ps2, team) = bowl(ps, team) -wicketKeeper(ps2, team) = wicketKeeper(ps, team) -international(ps2, team) = international(ps, team) -salary(ps2, team) = salary(ps, team) -peak(ps2, team) = peak(ps, team) -sm(ps2) = sm(ps) -sInnings(ps2) = sInnings(ps) -sRuns(ps2) = sRuns(ps) -sOuts(ps2) = sOuts(ps) -hs(ps2) = hs(ps) -sBalls(ps2) = sBalls(ps) -sWickets(ps2) = sWickets(ps) -bbw(ps2) = bbw(ps) -bbr(ps2) = bbr(ps) -sOvers(ps2) = sOvers(ps) -sConceded(ps2) = sConceded(ps) -morale(ps2) = morale(ps) -iWeeks(ps2) = iWeeks(ps) -duty(ps2) = duty(ps) -o(ps2, team) = o(ps, team) -b(ps2, team) = b(ps, team) -m(ps2, team) = m(ps, team) -r(ps2, team) = r(ps, team) -w(ps2, team) = w(ps, team) - -player$(ps, team) = player2$ -gb(ps, team) = gb2 -rs(ps, team) = rs2 -eb(ps, team) = eb2 -wt(ps, team) = wt2 -ba(ps, team) = ba2 -fa(ps, team) = fa2 -bat(ps, team) = bats2 -bowl(ps, team) = bowl2 -wicketKeeper(ps, team) = wicketKeeper2 -international(ps, team) = international2 -salary(ps, team) = salary2 -peak(ps, team) = peak2 -sm(ps) = sm2 -sInnings(ps) = sInnings2 -sRuns(ps) = sRuns2 -sOuts(ps) = sOuts2 -hs(ps) = hs2 -sBalls(ps) = sBalls2 -sWickets(ps) = sWickets2 -bbw(ps) = bbw2 -bbr(ps) = bbr2 -sOvers(ps) = sOvers2 -sConceded(ps) = sConceded2 -morale(ps) = morale2 -iWeeks(ps) = iWeeks2 -duty(ps) = duty2 -o(ps, team) = o2 -b(ps, team) = b2 -m(ps, team) = m2 -r(ps, team) = r2 -w(ps, team) = w2 - -SELECT CASE wk(team) -CASE IS = ps -IF ps2 < 12 THEN wk(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN wk(team) = ps -END SELECT -SELECT CASE cp(team) -CASE IS = ps -IF ps2 < 12 THEN cp(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN cp(team) = ps -END SELECT -SELECT CASE ob1(team) -CASE IS = ps -IF ps2 < 12 THEN ob1(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN ob1(team) = ps -END SELECT -SELECT CASE ob2(team) -CASE IS = ps -IF ps2 < 12 THEN ob2(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN ob2(team) = ps -END SELECT -FOR i = 1 TO 10 -SELECT CASE bowlChange(i, team) -CASE IS = ps -bowlChange(i, team) = ps2 -CASE IS = ps2 -bowlChange(i, team) = ps -END SELECT -NEXT i -25 COLOR 3, 0 -CLS -END SUB - -SUB changeBowler -choose = 1 -260 COLOR 11, 0 -CLS -DO -LOCATE 2, 5 -PRINT team$(bowlSide); " - CHANGE BOWLER" -LOCATE 6, 5 -PRINT "PLAYER" -LOCATE 6, 26 -PRINT "BOWL" -LOCATE 6, 33 -PRINT "O" -LOCATE 6, 36 -PRINT "M" -LOCATE 6, 39 -PRINT "R" -LOCATE 6, 43 -PRINT "W" -LOCATE 6, 50 -PRINT "FATIGUE" - -FOR i = 1 TO 11 -IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 THEN COLOR 3, 0 ELSE COLOR 11, 0 -LOCATE 6 + (i * 2), 5 -PRINT player$(i, bowlSide) -LOCATE 6 + (i * 2), 26 -PRINT bowl$(bowl(i, bowlSide)) -LOCATE 6 + (i * 2), 32 -PRINT o(i, bowlSide) -LOCATE 6 + (i * 2), 35 -PRINT m(i, bowlSide) -LOCATE 6 + (i * 2), 38 -PRINT r(i, bowlSide) -LOCATE 6 + (i * 2), 42 -PRINT w(i, bowlSide) -FOR j = 1 TO 10 -LOCATE 6 + (i * 2), 49 + j -IF fatigue(i, bowlSide) > j THEN PRINT CHR$(219) -NEXT j -NEXT i - -COLOR 11, 0 -LOCATE 6 + (choose * 2), 3 -PRINT CHR$(16) - -250 SELECT CASE INKEY$ -CASE IS = u$ -choose = choose - 1 -IF choose < 1 THEN choose = 11 -GOTO 260 -CASE IS = d$ -choose = choose + 1 -IF choose > 11 THEN choose = 1 -GOTO 260 -CASE IS = CHR$(13) -CASE ELSE -GOTO 250 -END SELECT - -COLOR 11, 0 -LOCATE 38, 5 -IF bowl(choose, bowlSide) = 13 THEN PRINT player$(choose, bowlSide); " does not bowl." -LOCATE 40, 5 -IF o(choose, bowlSide) >= 10 THEN PRINT player$(choose, bowlSide); " has bowled his maximum 10 overs." -LOCATE 42, 5 -IF choose = lbowler THEN PRINT player$(choose, bowlSide); " bowled the last over." -LOOP UNTIL o(choose, bowlSide) < 9 AND bowl(choose, bowlSide) < 13 AND choose <> lbowler -bowler = choose -COLOR 3, 0 -CLS -pr = r(bowler, bowlSide) -END SUB - -SUB endOfSeason -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year - -FOR i = 1 TO 19 -rank(i) = (15 - i) / 100 -NEXT i -FOR k = 1 TO 2 -IF k = 1 THEN t = 9 ELSE t = 10 -FOR i = 1 TO t -position(groupTeam(i, k)) = 11 -FOR j = 1 TO t -IF points(groupTeam(i, k)) + rank(groupTeam(i, k)) >= points(groupTeam(j, k)) + rank(groupTeam(j, k)) THEN position(groupTeam(i, k)) = position(groupTeam(i, k)) - 1 -NEXT j -NEXT i -NEXT k -COLOR 11, 0 -CLS -LOCATE 2, 3 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 3 -PRINT "END OF SEASON - NATIONAL LEAGUE TABLES" -LOCATE 9, 3 -PRINT "DIVISION 1" -LOCATE 11, 3 -PRINT "TEAM" -LOCATE 11, 21 -PRINT "P" -LOCATE 11, 25 -PRINT "W" -LOCATE 11, 29 -PRINT "L" -LOCATE 11, 33 -PRINT "T" -LOCATE 11, 38 -PRINT "PTS" - -FOR i = 1 TO 9 -IF position(groupTeam(i, 1)) > 7 THEN COLOR 1, 0 ELSE COLOR 3, 0 -IF groupTeam(i, 1) = team THEN COLOR 11, 0 -LOCATE position(groupTeam(i, 1)) + 11, 3 -PRINT team$(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 20 -PRINT played(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 24 -PRINT wins(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 28 -PRINT losses(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 32 -PRINT ties(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 37 -PRINT points(groupTeam(i, 1)) -NEXT i - -COLOR 11, 0 -LOCATE 29, 3 -PRINT "DIVISION 2" -LOCATE 31, 3 -PRINT "TEAM" -LOCATE 31, 21 -PRINT "P" -LOCATE 31, 25 -PRINT "W" -LOCATE 31, 29 -PRINT "L" -LOCATE 31, 33 -PRINT "T" -LOCATE 31, 38 -PRINT "PTS" - -FOR i = 1 TO 10 -IF position(groupTeam(i, 2)) > 3 THEN COLOR 1, 0 ELSE COLOR 3, 0 -IF groupTeam(i, 2) = team THEN COLOR 11, 0 -LOCATE position(groupTeam(i, 2)) + 31, 3 -PRINT team$(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 20 -PRINT played(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 24 -PRINT wins(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 28 -PRINT losses(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 32 -PRINT ties(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 37 -PRINT points(groupTeam(i, 2)) -NEXT i - -DO -LOOP UNTIL INKEY$ = CHR$(13) -END -END SUB - -SUB figures -o((bowlChange(i, bowlSide)), bowlSide) = 10 -COLOR 11, 0 -CLS -LOCATE 2, 4 -PRINT team$(bowlSide) -LOCATE 5, 27 -PRINT "O" -LOCATE 5, 35 -PRINT "M" -LOCATE 5, 43 -PRINT "R" -LOCATE 5, 51 -PRINT "W" - -COLOR 3, 0 -FOR i = 1 TO bowlers(bowlSide) -LOCATE 5 + (i * 2), 4 -PRINT player$((bowlChange(i, bowlSide)), bowlSide) -IF o((bowlChange(i, bowlSide)), bowlSide) >= 10 THEN LOCATE 5 + (i * 2), 23 ELSE LOCATE 5 + (i * 2), 24 -PRINT o((bowlChange(i, bowlSide)), bowlSide); "."; b((bowlChange(i, bowlSide)), bowlSide) -LOCATE 5 + (i * 2), 34 -PRINT m((bowlChange(i, bowlSide)), bowlSide) -LOCATE 5 + (i * 2), 42 -PRINT r((bowlChange(i, bowlSide)), bowlSide) -LOCATE 5 + (i * 2), 50 -PRINT w((bowlChange(i, bowlSide)), bowlSide) -NEXT i - -COLOR 11, 0 -LOCATE 16 + (i * 2), 4 -PRINT "FOW:" -COLOR 3, 0 -LOCATE 16 + (i * 2), 10 -IF tWickets(batSide) = 0 THEN PRINT "-" -FOR j = 1 TO 5 -LOCATE 16 + (i * 2), (12 * j) -IF tWickets(batSide) >= j THEN PRINT j; " - "; fow(j, batSide) -NEXT j -FOR j = 1 TO 5 -LOCATE 17 + (i * 2), (12 * j) -IF tWickets(batSide) >= (j + 5) THEN PRINT j + 5; " - "; fow(j + 5, batSide) -NEXT j - -LOCATE 48, 27 -COLOR 3, 0 -PRINT " MAIN MENU " -LOCATE 48, 4 -COLOR 3, 0 -PRINT " BATTING SCORECARD " -LOCATE 48, 50 -COLOR 0, 3 -PRINT " BOWLING FIGURES " -LOCATE 46, 37 -PRINT CHR$(17); " "; CHR$(16) - -220 SELECT CASE INKEY$ -CASE IS = l$ -CASE ELSE -GOTO 220 -END SELECT -END SUB - -SUB figures2 -o((bowlChange(i, bowlingSide)), bowlingSide) = 10 -COLOR 11, 0 -CLS -LOCATE 2, 4 -PRINT team$(bowlingSide) -LOCATE 5, 27 -PRINT "O" -LOCATE 5, 35 -PRINT "M" -LOCATE 5, 43 -PRINT "R" -LOCATE 5, 51 -PRINT "W" - -COLOR 3, 0 -FOR i = 1 TO bowlers(bowlingSide) -LOCATE 5 + (i * 2), 4 -PRINT player$((bowlChange(i, bowlingSide)), bowlingSide) -IF o((bowlChange(i, bowlingSide)), bowlingSide) >= 10 THEN LOCATE 5 + (i * 2), 23 ELSE LOCATE 5 + (i * 2), 24 -PRINT o((bowlChange(i, bowlingSide)), bowlingSide); "."; b((bowlChange(i, bowlingSide)), bowlingSide) -LOCATE 5 + (i * 2), 34 -PRINT m((bowlChange(i, bowlingSide)), bowlingSide) -LOCATE 5 + (i * 2), 42 -PRINT r((bowlChange(i, bowlingSide)), bowlingSide) -LOCATE 5 + (i * 2), 50 -PRINT w((bowlChange(i, bowlingSide)), bowlingSide) -NEXT i - -COLOR 11, 0 -LOCATE 16 + (i * 2), 4 -PRINT "FOW:" -COLOR 3, 0 -LOCATE 16 + (i * 2), 10 -IF tWickets(battingSide) = 0 THEN PRINT "-" -FOR j = 1 TO 5 -LOCATE 16 + (i * 2), (12 * j) -IF tWickets(battingSide) >= j THEN PRINT j; " - "; fow(j, battingSide) -NEXT j -FOR j = 1 TO 5 -LOCATE 17 + (i * 2), (12 * j) -IF tWickets(battingSide) >= (j + 5) THEN PRINT j + 5; " - "; fow(j + 5, battingSide) -NEXT j - -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB finance -2110 cfo = 1 -2100 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "FINANCE" -LOCATE 8, 5 -IF cfo = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Finance Information" -LOCATE 10, 5 -IF cfo = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Player Salaries" -LOCATE 12, 5 -IF cfo = 3 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Back to the Main Menu" - -2000 SELECT CASE INKEY$ -CASE IS = u$ -cfo = cfo - 1 -IF cfo < 1 THEN cfo = 3 -GOTO 2100 -CASE IS = d$ -cfo = cfo + 1 -IF cfo > 3 THEN cfo = 1 -GOTO 2100 -CASE IS = CHR$(13) -CASE ELSE -GOTO 2000 -END SELECT - -SELECT CASE cfo -CASE IS = 2 -CALL playerSalary -GOTO 2110 -CASE IS = 3 -GOTO 2200 -END SELECT - -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "FINANCE INFORMATION" -COLOR 3, 0 -LOCATE 12, 5 -PRINT "WEEKLY INCOME : "; weekIn; "pounds" -COLOR 9, 0 -LOCATE 14, 5 -PRINT "WEEKLY OUTGOINGS : "; weekOut; "pounds" -COLOR 3, 0 -LOCATE 16, 5 -PRINT "________________________________________________________" -COLOR 3, 0 -LOCATE 18, 5 -PRINT "TOTAL FINANCE AT START OF SEASON : 20000 pounds" -COLOR 9, 0 -LOCATE 20, 5 -PRINT "TOTAL CURRENT FINANCE : "; money; "pounds" -DO -LOOP UNTIL INKEY$ = CHR$(13) -GOTO 2110 -2200 END SUB - -SUB fixtures -IF week = 19 THEN GOTO 18 -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "THIS WEEK'S NATIONAL LEAGUE FIXTURES:" -LOCATE 10, 5 -PRINT "DIVISION 1:" -FOR i = 6 TO 9 -COLOR 3, 0 -LOCATE (i * 2), 5 -PRINT team$(fixture(1, i, week)) -LOCATE (i * 2), 23 -PRINT "V" -LOCATE (i * 2), 27 -PRINT team$(fixture(2, i, week)) -NEXT i - -COLOR 11, 0 -LOCATE 22, 5 -PRINT "DIVISION 2:" -FOR i = 1 TO 5 -COLOR 3, 0 -LOCATE (i * 2) + 22, 5 -PRINT team$(fixture(1, i, week)) -LOCATE (i * 2) + 22, 23 -PRINT "V" -LOCATE (i * 2) + 22, 27 -PRINT team$(fixture(2, i, week)) -NEXT i - -DO -LOOP UNTIL INKEY$ = CHR$(13) -18 END SUB - -SUB getInfo -f$(1) = "der.txt" -f$(2) = "dur.txt" -f$(3) = "ess.txt" -f$(4) = "gla.txt" -f$(5) = "glo.txt" -f$(6) = "ham.txt" -f$(7) = "kent.txt" -f$(8) = "lan.txt" -f$(9) = "lei.txt" -f$(10) = "mid.txt" -f$(11) = "nor.txt" -f$(12) = "not.txt" -f$(13) = "sco.txt" -f$(14) = "som.txt" -f$(15) = "sur.txt" -f$(16) = "sus.txt" -f$(17) = "war.txt" -f$(18) = "wor.txt" -f$(19) = "yor.txt" - -FOR i = 1 TO 19 -OPEN f$(i) FOR INPUT AS #1 -INPUT #1, team$(i) -INPUT #1, rating(i) -INPUT #1, shirt1(i) -INPUT #1, shirt2(i) -INPUT #1, trousers1(i) -INPUT #1, trousers2(i) -INPUT #1, cs(i) -INPUT #1, wk(i) -INPUT #1, cp(i) -INPUT #1, ob1(i) -INPUT #1, ob2(i) -INPUT #1, overSeas1(i) -INPUT #1, overSeas2(i) -FOR j = 1 TO 18 -INPUT #1, player$(j, i) -INPUT #1, gb(j, i) -INPUT #1, rs(j, i) -INPUT #1, wt(j, i) -INPUT #1, eb(j, i) -INPUT #1, ba(j, i) -INPUT #1, fa(j, i) -INPUT #1, bat(j, i) -INPUT #1, bowl(j, i) -INPUT #1, wicketKeeper(j, i) -INPUT #1, peak(j, i) -INPUT #1, international(j, i) -INPUT #1, salary(j, i) -NEXT j -CLOSE -NEXT i - -OPEN "fix.txt" FOR INPUT AS #1 -FOR i = 1 TO 18 -FOR j = 1 TO 9 -INPUT #1, fixture(1, j, i) -INPUT #1, fixture(2, j, i) -NEXT j -NEXT i - -bat$(1) = "RHB" -bat$(2) = "LHB" -bowl$(1) = "OS" -bowl$(2) = "LS" -bowl$(3) = "RM" -bowl$(4) = "RMF" -bowl$(5) = "RFM" -bowl$(6) = "RF" -bowl$(7) = "LO" -bowl$(8) = "LC" -bowl$(9) = "LM" -bowl$(10) = "LMF" -bowl$(11) = "LFM" -bowl$(12) = "LF" -bowl$(13) = "-" -attribute$(1) = "General Batting " -attribute$(2) = "Run Scoring " -attribute$(3) = "Wicket Taking " -attribute$(4) = "Economic Bowling" -attribute$(5) = "Fielding " -attribute$(6) = "Morale " -tAttribute$(1) = "General Batting " -tAttribute$(2) = "Run Scoring " -tAttribute$(3) = "Wicket Taking " -tAttribute$(4) = "Economic Bowling" -tAttribute$(5) = "Fielding " -tAttribute$(6) = "Fitness " - -pitch$(1) = "HARD" -pitch$(2) = "NORMAL" -pitch$(3) = "DUSTY" -pitch$(4) = "GREEN" -pitch$(5) = "DAMP" -pr(1) = 1 -pr(2) = 0 -pr(3) = -1 -pr(4) = -1 -pr(5) = 0 - -OPEN "groups.txt" FOR INPUT AS #2 -FOR i = 1 TO 9 -INPUT #2, groupTeam(i, 1) -NEXT i -FOR i = 1 TO 10 -INPUT #2, groupTeam(i, 2) -NEXT i -CLOSE - -field$(1) = "Set Attacking Field" -field$(2) = "Set Open Field" -field$(3) = "Set Defensive Field" - -career$(1) = "Beginning of Career" -career$(2) = "Nearly at Peak" -career$(3) = "Currently at Peak" -career$(4) = "Just After Peak" -career$(5) = "Toward End of Career" - -FOR i = 1 TO 18 -ta(i) = 6 -ti(i) = 3 -NEXT i -money = 20000 -END SUB - -SUB groupTables -FOR i = 1 TO 19 -rank(i) = (15 - i) / 100 -NEXT i - -FOR k = 1 TO 2 -IF k = 1 THEN t = 9 ELSE t = 10 -FOR i = 1 TO t -position(groupTeam(i, k)) = 11 -FOR j = 1 TO t -IF points(groupTeam(i, k)) + rank(groupTeam(i, k)) >= points(groupTeam(j, k)) + rank(groupTeam(j, k)) THEN position(groupTeam(i, k)) = position(groupTeam(i, k)) - 1 -NEXT j -NEXT i -NEXT k - - -COLOR 11, 0 -CLS -LOCATE 2, 3 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 3 -PRINT "NATIONAL LEAGUE TABLES" -LOCATE 9, 3 -PRINT "DIVISION 1" -LOCATE 11, 3 -PRINT "TEAM" -LOCATE 11, 21 -PRINT "P" -LOCATE 11, 25 -PRINT "W" -LOCATE 11, 29 -PRINT "L" -LOCATE 11, 33 -PRINT "T" -LOCATE 11, 38 -PRINT "PTS" - -FOR i = 1 TO 9 -IF position(groupTeam(i, 1)) > 7 THEN COLOR 1, 0 ELSE COLOR 3, 0 -LOCATE position(groupTeam(i, 1)) + 11, 3 -PRINT team$(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 20 -PRINT played(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 24 -PRINT wins(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 28 -PRINT losses(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 32 -PRINT ties(groupTeam(i, 1)) -LOCATE position(groupTeam(i, 1)) + 11, 37 -PRINT points(groupTeam(i, 1)) -NEXT i - -COLOR 11, 0 -LOCATE 29, 3 -PRINT "DIVISION 2" -LOCATE 31, 3 -PRINT "TEAM" -LOCATE 31, 21 -PRINT "P" -LOCATE 31, 25 -PRINT "W" -LOCATE 31, 29 -PRINT "L" -LOCATE 31, 33 -PRINT "T" -LOCATE 31, 38 -PRINT "PTS" - -FOR i = 1 TO 10 -IF position(groupTeam(i, 2)) > 3 THEN COLOR 1, 0 ELSE COLOR 3, 0 -LOCATE position(groupTeam(i, 2)) + 31, 3 -PRINT team$(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 20 -PRINT played(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 24 -PRINT wins(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 28 -PRINT losses(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 32 -PRINT ties(groupTeam(i, 2)) -LOCATE position(groupTeam(i, 2)) + 31, 37 -PRINT points(groupTeam(i, 2)) -NEXT i - -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB loadGame -12 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT "LOAD GAME" -oss = 1 - -1060 FOR i = 1 TO 5 -IF oss = i THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE (i * 2 + 6), 5 -PRINT "LOAD GAME FROM FILE "; i -NEXT i - -1050 SELECT CASE INKEY$ -CASE IS = u$ -oss = oss - 1 -IF oss < 1 THEN oss = 5 -GOTO 1060 -CASE IS = d$ -oss = oss + 1 -IF oss > 5 THEN oss = 1 -GOTO 1060 -CASE IS = CHR$(13) -CASE ELSE -GOTO 1050 -END SELECT - -SELECT CASE oss -CASE IS = 6 -CASE ELSE -IF oss = 1 THEN fi$ = "file1.txt" -IF oss = 2 THEN fi$ = "file2.txt" -IF oss = 3 THEN fi$ = "file3.txt" -IF oss = 4 THEN fi$ = "file4.txt" -IF oss = 5 THEN fi$ = "file5.txt" - -gls = 0 -OPEN fi$ FOR INPUT AS #1 -INPUT #1, team -IF team = 20 THEN GOTO 11 -INPUT #1, name$ -INPUT #1, week -INPUT #1, year -INPUT #1, fansRating -INPUT #1, directorsRating -FOR i = 1 TO 18 -INPUT #1, sm(i) -INPUT #1, sInnings(i) -INPUT #1, sRuns(i) -INPUT #1, sOuts(i) -INPUT #1, hs(i) -INPUT #1, sBalls(i) -INPUT #1, sOvers(i) -INPUT #1, sWickets(i) -INPUT #1, sConceded(i) -INPUT #1, bbw(i) -INPUT #1, bbr(i) -INPUT #1, iWeeks(i) -INPUT #1, duty(i) -INPUT #1, morale(i) -NEXT i -FOR i = 1 TO 19 -INPUT #1, team$(i) -INPUT #1, rating(i) -INPUT #1, shirt1(i) -INPUT #1, shirt2(i) -INPUT #1, trousers1(i) -INPUT #1, trousers2(i) -INPUT #1, cs(i) -INPUT #1, wk(i) -INPUT #1, cp(i) -INPUT #1, ob1(i) -INPUT #1, ob2(i) -INPUT #1, overSeas1(i) -INPUT #1, overSeas2(i) -FOR j = 1 TO 18 -INPUT #1, player$(j, i) -INPUT #1, gb(j, i) -INPUT #1, rs(j, i) -INPUT #1, wt(j, i) -INPUT #1, eb(j, i) -INPUT #1, ba(j, i) -INPUT #1, fa(j, i) -INPUT #1, bat(j, i) -INPUT #1, bowl(j, i) -INPUT #1, wicketKeeper(j, i) -INPUT #1, peak(j, i) -INPUT #1, international(j, i) -INPUT #1, salary(j, i) -NEXT j -INPUT #1, points(i) -INPUT #1, wins(i) -INPUT #1, ties(i) -INPUT #1, losses(i) -INPUT #1, played(i) -NEXT i -CLOSE -gls = 1 -11 SELECT CASE gls -CASE IS = 1 -COLOR 11, 0 -CLS -LOCATE 20, 20 -PRINT "GAME LOADED SUCCESFULLY FROM FILE "; oss -DO -LOOP UNTIL INKEY$ = CHR$(13) -CASE ELSE -CLOSE -COLOR 11, 0 -CLS -LOCATE 20, 20 -PRINT "NO SAVED GAME IN FILE "; oss -DO -LOOP UNTIL INKEY$ = CHR$(13) -GOTO 12 -END SELECT -END SELECT -END SUB - -SUB managerInfo -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year - -COLOR 3, 0 -LOCATE 8, 5 -PRINT "MANAGER'S NAME : "; name$ -LOCATE 10, 5 -PRINT "CLUB MANAGED : "; team$(team) -LOCATE 12, 5 -PRINT "WEEK'S AT CLUB : "; week -LOCATE 16, 5 -PRINT "DIRECTOR'S RATING :" -LOCATE 18, 5 -PRINT "FANS RATING :" - -FOR i = 1 TO 50 -SELECT CASE directorsRating -CASE IS > (i * 2 - 1) -COLOR 1, 0 -LOCATE 16, i + 25 -PRINT CHR$(219) -CASE IS = (i * 2 - 1) -COLOR 1, 0 -LOCATE 16, i + 25 -PRINT CHR$(221) -CASE ELSE -COLOR 3, 0 -LOCATE 16, i + 25 -PRINT CHR$(196) -END SELECT -NEXT i - -FOR i = 1 TO 50 -SELECT CASE fansRating -CASE IS > (i * 2 - 1) -COLOR 1, 0 -LOCATE 18, i + 25 -PRINT CHR$(219) -CASE IS = (i * 2 - 1) -COLOR 1, 0 -LOCATE 18, i + 25 -PRINT CHR$(219) -CASE ELSE -COLOR 3, 0 -LOCATE 18, i + 25 -PRINT CHR$(196) -END SELECT -NEXT i - - -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB manhattan -COLOR 11, 0 -CLS -LOCATE 2, 3 -PRINT team$(battingSide); " INNINGS MANHATTAN GRAPH" -FOR i = 1 TO 50 -mgcc = mgcc + 1 -IF mgcc = 3 THEN mgcc = 1 -FOR j = 1 TO 30 -COLOR 11, 0 -LOCATE (41 - j), 3 -IF j = 2 OR j = 4 OR j = 6 OR j = 8 OR j = 10 OR j = 12 OR j = 14 OR j = 16 OR j = 18 OR j = 20 THEN PRINT j -IF mgcc = 1 THEN COLOR 11, 0 ELSE COLOR 3, 0 -LOCATE (41 - j), i + 6 -IF rpo(i, battingSide) >= j THEN PRINT CHR$(219) -NEXT j -NEXT i -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB matchDay -IF week = 19 THEN CALL endOfSeason -SELECT CASE gt -CASE IS = 1 -gt = 0 -GOTO 170 -END SELECT - -FOR i = 1 TO 9 -IF fixture(1, i, week) = team OR fixture(2, i, week) = team THEN match = i -NEXT i - -IF match > 0 THEN GOTO 410 -COLOR 11, 0 -CLS -LOCATE 1, 3 -PRINT "MATCHDAY:" -COLOR 3, 0 -LOCATE 16, 3 -PRINT team$(team); " DO NOT HAVE A FIXTURE FOR TODAY..." -DO -LOOP UNTIL INKEY$ = CHR$(13) -GOTO 420 - -410 COLOR 11, 0 -CLS -LOCATE 1, 22 -PRINT "MATCHDAY:" - -COLOR shirt1(fixture(1, match, week)), 0 -FOR i = 8 TO 17 -FOR j = 24 TO 32 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i -COLOR shirt2(fixture(1, match, week)), 6 -LOCATE 12, 26 -PRINT CHR$(219); CHR$(219); CHR$(219); CHR$(219); CHR$(219) -LOCATE 8, 28 -PRINT CHR$(219) -FOR i = 8 TO 14 -FOR j = 22 TO 23 -LOCATE i, j -PRINT CHR$(219) -NEXT j -FOR j = 33 TO 34 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i - -COLOR trousers1(fixture(1, match, week)), 0 -FOR i = 18 TO 28 -FOR j = 24 TO 32 -IF i > 20 AND j > 27 AND j < 29 THEN GOTO 80 -LOCATE i, j -PRINT CHR$(219) -80 NEXT j -NEXT i - -SELECT CASE cs(fixture(1, match, week)) -CASE IS = 1 -COLOR trousers2(fixture(1, match, week)), trousers1(fixture(1, match, week)) -FOR i = 18 TO 28 -LOCATE i, 24 -PRINT CHR$(221) -LOCATE i, 32 -PRINT CHR$(222) -NEXT i -CASE IS = 2 -COLOR trousers1(fixture(1, match, week)), trousers2(fixture(1, match, week)) -FOR i = 18 TO 28 -LOCATE i, 24 -PRINT CHR$(222) -LOCATE i, 32 -PRINT CHR$(221) -NEXT i -END SELECT - -COLOR 11, 0 -LOCATE 14, 38 -PRINT "V" - -COLOR shirt1(fixture(2, match, week)), 0 -FOR i = 8 TO 17 -FOR j = 44 TO 52 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i -COLOR shirt2(fixture(2, match, week)), 0 -LOCATE 12, 46 -PRINT CHR$(219); CHR$(219); CHR$(219); CHR$(219); CHR$(219) -LOCATE 8, 48 -PRINT CHR$(219) -FOR i = 8 TO 14 -FOR j = 42 TO 43 -LOCATE i, j -PRINT CHR$(219) -NEXT j -FOR j = 53 TO 54 -LOCATE i, j -PRINT CHR$(219) -NEXT j -NEXT i - -COLOR trousers1(fixture(2, match, week)), 0 -FOR i = 18 TO 28 -FOR j = 44 TO 52 -IF i > 20 AND j > 47 AND j < 49 THEN GOTO 90 -LOCATE i, j -PRINT CHR$(219) -90 NEXT j -NEXT i - -SELECT CASE cs(fixture(2, match, week)) -CASE IS = 1 -COLOR trousers2(fixture(2, match, week)), trousers1(fixture(2, match, week)) -FOR i = 18 TO 28 -LOCATE i, 44 -PRINT CHR$(221) -LOCATE i, 52 -PRINT CHR$(222) -NEXT i -CASE IS = 2 -COLOR trousers1(fixture(2, match, week)), trousers2(fixture(2, match, week)) -FOR i = 18 TO 28 -LOCATE i, 44 -PRINT CHR$(222) -LOCATE i, 52 -PRINT CHR$(221) -NEXT i -END SELECT - -pitch = rand(5) -COLOR 3, 0 -LOCATE 36, 22 -PRINT team$(fixture(1, match, week)); " V "; team$(fixture(2, match, week)) -LOCATE 38, 22 -PRINT "PITCH TYPE: "; pitch$(pitch) -LOCATE 40, 22 -PRINT "Press RETURN to go to the match..." -DO -LOOP UNTIL INKEY$ = CHR$(13) - -COLOR 11, 0 -CLS -LOCATE 3, 22 -PRINT "MATCHDAY:" -LOCATE 12, 22 -PRINT "COIN TOSS: "; team$(team); " TO CALL" -tc = 1 - -110 LOCATE 14, 22 -IF tc = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "HEADS" -LOCATE 16, 22 -IF tc = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "TAILS" - -100 SELECT CASE INKEY$ -CASE IS = u$ -tc = tc - 1 -IF tc < 1 THEN tc = 2 -GOTO 110 -CASE IS = d$ -tc = tc + 1 -IF tc > 2 THEN tc = 1 -GOTO 110 -CASE IS = CHR$(13) -CASE ELSE -GOTO 100 -END SELECT - -IF coinCheat = 1 THEN result = 2 ELSE result = rand(2) -SELECT CASE result -CASE IS = 1 -SELECT CASE pitch -CASE IS = 1 -cc = 2 -CASE IS = 2 -cc = rand(2) -CASE IS = 3 -cc = 1 -CASE IS = 4 -cc = 1 -CASE IS = 5 -cc = rand(2) -END SELECT -COLOR 11, 0 -LOCATE 20, 22 -IF cc = 1 THEN PRINT "YOU HAVE LOST THE COIN TOSS - YOU WILL BAT FIRST" -IF cc = 2 THEN PRINT "YOU HAVE LOST THE COIN TOSS - YOU WILL FIELD FIRST" -DO -LOOP UNTIL INKEY$ = CHR$(13) -CASE ELSE - -LOCATE 22, 22 -COLOR 11, 0 -PRINT "YOU HAVE WON THE TOSS" -COLOR 3, 0 -tc = 1 - -130 LOCATE 24, 22 -IF tc = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "BAT FIRST" -LOCATE 26, 22 -IF tc = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "FIELD FIRST" - -120 SELECT CASE INKEY$ -CASE IS = u$ -tc = tc - 1 -IF tc < 1 THEN tc = 2 -GOTO 130 -CASE IS = d$ -tc = tc + 1 -IF tc > 2 THEN tc = 1 -GOTO 130 -CASE IS = CHR$(13) -CASE ELSE -GOTO 120 -END SELECT -cc = tc -END SELECT - -IF fixture(1, match, week) = team THEN opponents = fixture(2, match, week) -IF fixture(2, match, week) = team THEN opponents = fixture(1, match, week) - -FOR i = 1 TO 50 -rpo(i, 1) = 0 -rpo(i, 2) = 0 -NEXT i - -ft = 1 -truns(team) = 0 -tWickets(team) = 0 -tovers(team) = 0 -tBalls(team) = 0 -bowlers(team) = 0 -FOR i = 1 TO 10 -bowlChange(i, team) = 0 -NEXT i -FOR j = 1 TO 11 -IF j = 1 OR j = 2 THEN in(j, team) = 1 ELSE in(j, team) = 2 -runs(j, team) = 0 -balls(j, team) = 0 -howOut1$(j, team) = "" -howOut2$(j, team) = "" -howOut3$(j, team) = "" -howOut4$(j, team) = "" -o(j, team) = 0 -b(j, team) = 0 -m(j, team) = 0 -w(j, team) = 0 -r(j, team) = 0 -fatigue(j, team) = 10 -NEXT j -extras(team) = 0 -wides(team) = 0 -noBalls(team) = 0 -legByes(team) = 0 -byes(team) = 0 - -truns(opponents) = 0 -tWickets(opponents) = 0 -tovers(opponents) = 0 -tBalls(opponents) = 0 -bowlers(opponents) = 0 -FOR i = 1 TO 10 -bowlChange(i, opponents) = 0 -NEXT i -FOR j = 1 TO 11 -IF j = 1 OR j = 2 THEN in(j, opponents) = 1 ELSE in(j, opponents) = 2 -runs(j, opponents) = 0 -balls(j, opponents) = 0 -howOut1$(j, opponents) = "" -howOut2$(j, opponents) = "" -howOut3$(j, opponents) = "" -howOut4$(j, opponents) = "" -o(j, opponents) = 0 -m(j, opponents) = 0 -w(j, opponents) = 0 -r(j, opponents) = 0 -fatigue(j, opponents) = 10 -NEXT j -extras(opponents) = 0 -wides(opponents) = 0 -noBalls(opponents) = 0 -legByes(opponents) = 0 -byes(opponents) = 0 - -FOR innings = 1 TO 2 -retain = 3 -mindset = 2 -SELECT CASE innings -CASE IS = 1 -IF cc = 1 THEN batSide = team ELSE batSide = opponents -IF cc = 1 THEN bowlSide = opponents ELSE bowlSide = team -CASE IS = 2 -neitherSide = batSide -batSide = bowlSide -bowlSide = neitherSide -END SELECT - -finish = 0 -bat1 = 1 -bat2 = 2 -bowler = ob1(bowlSide) -lbowler = ob2(bowlSide) -strike = 1 -menu = 1 - -overBalls = 0 -IF innings = 1 THEN hours = 11 ELSE hours = 14 -IF innings = 1 THEN minutes = 0 ELSE minutes = 20 -FOR j = 1 TO 11 -NEXT j -FOR j = 1 TO 8 -ball$(j) = "" -NEXT j - -DO -170 COLOR 11, 0 -CLS -SELECT CASE tBalls(batSide) -CASE IS = 6 -IF innings = 1 THEN rpo(tovers(batSide), 1) = truns(batSide) - rbo -IF innings = 2 THEN rpo(tovers(batSide), 2) = truns(batSide) - rbo -rbo = truns(batSide) -fatigue(bowler, bowlSide) = fatigue(bowler, bowlSide) - 2 -fatigue(lbowler, bowlSide) = fatigue(lbowler, bowlSide) - 1 -FOR E = 1 TO 11 -fatigue(E, bowlSide) = fatigue(E, bowlSide) + 1 -IF fatigue(E, bowlSide) < 2 THEN fatigue(E, bowlSide) = 2 -IF fatigue(E, bowlSide) > 10 THEN fatigue(E, bowlSide) = 10 -NEXT E -overBouncers = 0 -tovers(batSide) = tovers(batSide) + 1 -tBalls(batSide) = 0 -strike = strike + 1 -IF strike = 3 THEN strike = 1 -overExtras = 0 -IF r(bowler, bowlSide) = pr THEN m(bowler, bowlSide) = m(bowler, bowlSide) + 1 -o(bowler, bowlSide) = o(bowler, bowlSide) + 1 -b(bowler, bowlSide) = 0 - -SELECT CASE bowlSide -CASE IS = team -cbowler = bowler -bowler = lbowler -lbowler = cbowler - - -CASE IS = opponents -change = 0 -IF rand(4) = 1 THEN change = 1 -IF tovers(batSide) < 9 THEN change = 0 -IF o(lbowler, bowlSide) >= 9 THEN change = 1 -IF fatigue(lbowler, bowlSide) < 4 THEN change = 1 - -SELECT CASE change -CASE IS = 0 -cbowler = bowler -bowler = lbowler -lbowler = cbowler - -CASE ELSE -cb(1, bowlSide) = ba(1, bowlSide) -cb(2, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) -cb(3, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) -cb(4, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) -cb(5, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) -cb(6, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) + ba(6, bowlSide) -cb(7, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) + ba(6, bowlSide) + ba(7, bowlSide) -cb(8, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) + ba(6, bowlSide) + ba(7, bowlSide) + ba(8, bowlSide) -cb(9, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) + ba(6, bowlSide) + ba(7, bowlSide) + ba(8, bowlSide) + ba(9, bowlSide) -cb(10, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) + ba(6, bowlSide) + ba(7, bowlSide) + ba(8, bowlSide) + ba(9, bowlSide) + ba(10, bowlSide) -cb(11, bowlSide) = ba(1, bowlSide) + ba(2, bowlSide) + ba(3, bowlSide) + ba(4, bowlSide) + ba(5, bowlSide) + ba(6, bowlSide) + ba(7, bowlSide) + ba(8, bowlSide) + ba(9, bowlSide) + ba(10, bowlSide) + ba(11, bowlSide) - -tcb = 0 -FOR k = 1 TO 11 -tcb = tcb + ba(k, bowlSide) -NEXT k - -lbowler = bowler -240 rtcb = rand(tcb) - -SELECT CASE rtcb -CASE 0 TO cb(1, bowlSide) -bowler = 1 -CASE cb(1, bowlSide) TO cb(2, bowlSide) -bowler = 2 -CASE cb(2, bowlSide) TO cb(3, bowlSide) -bowler = 3 -CASE cb(3, bowlSide) TO cb(4, bowlSide) -bowler = 4 -CASE cb(4, bowlSide) TO cb(5, bowlSide) -bowler = 5 -CASE cb(5, bowlSide) TO cb(6, bowlSide) -bowler = 6 -CASE cb(6, bowlSide) TO cb(7, bowlSide) -bowler = 7 -CASE cb(7, bowlSide) TO cb(8, bowlSide) -bowler = 8 -CASE cb(8, bowlSide) TO cb(9, bowlSide) -bowler = 9 -CASE cb(9, bowlSide) TO cb(10, bowlSide) -bowler = 10 -CASE cb(10, bowlSide) TO cb(11, bowlSide) -bowler = 11 -END SELECT -IF o(bowler, bowlSide) >= 9 THEN GOTO 240 -IF bowler = lbowler THEN GOTO 240 -END SELECT -END SELECT - -pr = r(bowler, bowlSide) -END SELECT - -270 COLOR 11, 0 -LOCATE 2, 4 -PRINT team$(batSide) -LOCATE 3, 3 -PRINT truns(batSide); "-"; tWickets(batSide); " ("; tovers(batSide); "."; tBalls(batSide); ")" -COLOR 3, 0 -LOCATE 5, 4 -PRINT player$(bat1, batSide) -LOCATE 5, 20 -PRINT runs(bat1, batSide) -LOCATE 5, 25 -PRINT "("; balls(bat1, batSide); ")" -LOCATE 7, 4 -PRINT player$(bat2, batSide) -LOCATE 7, 20 -PRINT runs(bat2, batSide) -LOCATE 7, 25 -PRINT "("; balls(bat2, batSide); ")" -IF strike = 1 THEN LOCATE 5, 2 ELSE LOCATE 7, 2 -PRINT "*" -COLOR 3, 0 -LOCATE 10, 4 -PRINT "Extras: "; extras(batSide); " (w"; wides(batSide); ", nb"; noBalls(batSide); ", b"; byes(batSide); ", lb"; legByes(batSide); ")" -LOCATE 10, 55 -PRINT "Last Delivery:" -COLOR 0, 3 -LOCATE 10, 70 -IF overBalls = 0 AND tovers(batSide) = 0 THEN PRINT " mph" ELSE PRINT speed(overBalls); "mph" - -COLOR 3, 0 -FOR j = 1 TO 9 -LOCATE j, 39 -PRINT CHR$(179) -NEXT j -FOR j = 12 TO 28 -LOCATE j, 26 -PRINT CHR$(179) -NEXT j - -FOR j = 1 TO 80 -LOCATE 9, j -PRINT CHR$(196) -LOCATE 11, j -PRINT CHR$(196) -LOCATE 29, j -PRINT CHR$(196) -LOCATE 44, j -PRINT CHR$(196) -NEXT j - -COLOR 11, 0 -LOCATE 2, 43 -PRINT team$(bowlSide) -COLOR 3, 0 -LOCATE 5, 41 -PRINT "*" -LOCATE 5, 43 -PRINT player$(bowler, bowlSide) -LOCATE 5, 59 -PRINT o(bowler, bowlSide); "."; b(bowler, bowlSide); "-"; m(bowler, bowlSide); "-"; r(bowler, bowlSide); "-"; w(bowler, bowlSide) -LOCATE 7, 43 -PRINT player$(lbowler, bowlSide) -LOCATE 7, 59 -PRINT o(lbowler, bowlSide); "."; b(lbowler, bowlSide); "-"; m(lbowler, bowlSide); "-"; r(lbowler, bowlSide); "-"; w(lbowler, bowlSide) - -FOR i = 1 TO 8 -IF overBalls < i THEN GOTO 140 -LOCATE 11 + (i * 2), 4 -COLOR 7, 4 -PRINT i -LOCATE 11 + (i * 2), 10 -COLOR 3, 0 -PRINT ball$(i) -140 NEXT i - -tb = (tovers(batSide) * 6) + tBalls(batSide) -IF truns(batSide) = 0 OR tb = 0 THEN GOTO 230 -runRate = truns(batSide) / tb -runRate = runRate * 6 -runRate = INT(runRate * 100) -runRate = runRate / 100 - -230 LOCATE 14, 29 -PRINT team$(fixture(1, match, week)); " V "; team$(fixture(2, match, week)) -LOCATE 16, 29 -PRINT "PITCH TYPE: "; pitch$(pitch) -LOCATE 18, 29 -SELECT CASE innings -CASE IS = 1 -PRINT team$(batSide); " LEAD BY "; truns(batSide); " RUNS" -CASE ELSE -PRINT team$(batSide); " REQUIRE "; (truns(bowlSide) + 1) - truns(batSide); " MORE RUNS TO WIN" -END SELECT - -LOCATE 20, 29 -PRINT "CURRENT RUN RATE: "; runRate -LOCATE 23, 29 -SELECT CASE strike -CASE IS = 1 -PRINT player$(bowler, bowlSide); " ("; bowl$(bowl(bowler, bowlSide)); ") "; CHR$(16); " "; player$(bat1, batSide); " ("; bat$(bat(bat1, batSide)); ")" -CASE IS = 2 -PRINT player$(bowler, bowlSide); " ("; bowl$(bowl(bowler, bowlSide)); ") "; CHR$(16); " "; player$(bat2, batSide); " ("; bat$(bat(bat2, batSide)); ")" -END SELECT -LOCATE 25, 29 -SELECT CASE minutes -CASE IS = 0 -PRINT "TIME: "; hours; ": 00" -CASE IS = 1 -PRINT "TIME: "; hours; ": 01" -CASE IS = 2 -PRINT "TIME: "; hours; ": 02" -CASE IS = 3 -PRINT "TIME: "; hours; ": 03" -CASE IS = 4 -PRINT "TIME: "; hours; ": 04" -CASE IS = 5 -PRINT "TIME: "; hours; ": 05" -CASE IS = 6 -PRINT "TIME: "; hours; ": 06" -CASE IS = 7 -PRINT "TIME: "; hours; ": 07" -CASE IS = 8 -PRINT "TIME: "; hours; ": 08" -CASE IS = 9 -PRINT "TIME: "; hours; ": 09" -CASE ELSE -PRINT "TIME: "; hours; ":"; minutes -END SELECT - -330 SELECT CASE team -CASE IS = bowlSide -COLOR 11, 0 -LOCATE 31, 5 -PRINT "Bowler: "; player$(bowler, bowlSide); " ("; bowl$(bowl(bowler, bowlSide)); ")" -LOCATE 31, 50 -COLOR 3, 0 -PRINT "Fatigue:" -FOR i = 1 TO 10 -LOCATE 31, 58 + i -IF fatigue(bowler, bowlSide) >= i THEN PRINT CHR$(219) -NEXT i -COLOR 11, 0 -LOCATE 42, 5 -PRINT "Press "; CHR$(34); "C"; CHR$(34); " at the end of any over to change bowler." - -FOR i = 1 TO 3 -IF i = 3 AND tovers(batSide) < 15 THEN COLOR 8, 0 ELSE COLOR 3, 0 -LOCATE (i * 2 + 32), 5 -PRINT field$(i) -LOCATE (i * 2 + 32), 3 -IF ft = i THEN PRINT CHR$(16) ELSE PRINT " " -NEXT i - -SELECT CASE tovers(batSide) -CASE 0 TO 5 -IF tWickets(batSide) = 0 THEN mindset = 2 ELSE mindset = 1 -CASE 6 TO 10 -IF tWickets(batSide) < 2 THEN mindset = 3 -IF tWickets(batSide) = 2 THEN mindset = 2 -IF tWickets(batSide) > 2 THEN mindset = 1 -CASE 11 TO 16 -IF tWickets(batSide) < 4 THEN mindset = 3 ELSE mindset = 2 -CASE 17 TO 25 -IF tWickets(batSide) < 6 THEN mindset = 3 ELSE mindset = 2 -IF tWickets(batSide) < 3 THEN mindset = 4 -IF tWickets(batSide) < 2 THEN mindset = 5 -CASE 26 TO 30 -IF tWickets(batSide) < 7 THEN mindset = 3 ELSE mindset = 2 -IF tWickets(batSide) < 4 THEN mindset = 4 -IF tWickets(batSide) < 3 THEN mindset = 5 -CASE 31 TO 37 -IF tWickets(batSide) < 6 THEN mindset = 5 ELSE mindset = 4 -CASE 38 TO 45 -mindset = 5 -END SELECT - -CASE ELSE -COLOR 11, 0 -LOCATE 31, 5 -PRINT "Batsmen: "; player$(bat1, batSide); " ("; bat$(bat(bat1, batSide)); ") & "; player$(bat2, batSide); " ("; bat$(bat(bat2, batSide)); ")" -COLOR 3, 0 -LOCATE 34, 5 -PRINT "Very Defensive" -LOCATE 36, 5 -PRINT "Defensive" -LOCATE 38, 5 -PRINT "Moderate" -LOCATE 40, 5 -PRINT "Aggressive" -LOCATE 42, 5 -PRINT "Very Aggressive" -FOR i = 1 TO 5 -LOCATE 32 + (i * 2), 3 -IF mindset <> i THEN PRINT " " ELSE PRINT CHR$(16) -NEXT i -LOCATE 42, 30 -COLOR 11, 0 -PRINT "Press "; CHR$(34); "C"; CHR$(34); " at any time to change batting order." -END SELECT - -LOCATE 48, 27 -COLOR 0, 3 -PRINT " MAIN MENU " -LOCATE 48, 4 -COLOR 3, 0 -PRINT " BATTING SCORECARD " -LOCATE 48, 50 -COLOR 3, 0 -PRINT " BOWLING FIGURES " -COLOR 0, 3 -LOCATE 46, 37 -PRINT CHR$(17); " "; CHR$(16) - -IF tovers(batSide) = 45 THEN finish = 1 -IF tWickets(batSide) = 10 THEN finish = 2 -IF truns(batSide) > truns(bowlSide) AND innings = 2 THEN finish = 3 -IF finish = 0 THEN GOTO 310 - -COLOR 11, 0 -LOCATE 50, 2 -SELECT CASE innings -CASE IS = 1 -PRINT team$(bowlSide); " REQUIRE "; truns(batSide) + 1; " RUNS TO WIN. PRESS SPACE TO GO THE NEXT INNINGS." -CASE IS = 2 -IF truns(batSide) > truns(bowlSide) THEN PRINT team$(batSide); " BEAT "; team$(bowlSide); " BY "; 10 - tWickets(batSide); " WICKETS. PRESS SPACE TO CONTINUE." -IF truns(batSide) < truns(bowlSide) THEN PRINT team$(bowlSide); " BEAT "; team$(batSide); " BY "; truns(bowlSide) - truns(batSide); " RUNS. PRESS SPACE TO CONTINUE." -IF truns(batSide) = truns(bowlSide) THEN PRINT team$(batSide); " TIED WITH "; team$(bowlSide); ". PRESS SPACE TO CONTINUE." -END SELECT - -310 lastSub = 1 -160 SELECT CASE INKEY$ -CASE IS = u$ -IF finish > 0 THEN GOTO 310 -IF batSide = team THEN mindset = mindset - 1 ELSE ft = ft - 1 -IF tovers(batSide) < 15 AND ft < 1 THEN ft = 2 -IF tovers(batSide) >= 15 AND ft < 1 THEN ft = 3 -IF mindset < 1 THEN mindset = 5 -GOTO 330 -CASE IS = d$ -IF finish > 0 THEN GOTO 310 -IF batSide = team THEN mindset = mindset + 1 ELSE ft = ft + 1 -IF ft = 3 AND tovers(batSide) < 15 THEN ft = 1 -IF ft > 3 THEN ft = 1 -IF mindset > 5 THEN mindset = 1 -GOTO 330 -CASE IS = l$ -CALL scorecard -GOTO 170 -CASE IS = r$ -CALL figures -GOTO 170 -CASE IS = "C" -IF finish > 0 THEN GOTO 160 -IF bowlSide = team AND tBalls(batSide) = 0 AND overBalls <> 1 AND overBalls <> 2 THEN CALL changeBowler -IF batSide = team THEN CALL batOrder -GOTO 270 -CASE IS = "c" -IF finish > 0 THEN GOTO 160 -IF bowlSide = team AND tBalls(batSide) = 0 AND overBalls <> 1 AND overBalls <> 2 THEN CALL changeBowler -IF batSide = team THEN CALL batOrder -GOTO 270 -CASE IS = CHR$(13) -IF finish > 0 THEN GOTO 160 -IF tovers(batSide) >= 50 THEN GOTO 290 -IF team = bowlSide AND o(bowler, bowlSide) >= 9 THEN GOTO 160 -290 -CASE IS = CHR$(32) -IF finish = 0 THEN GOTO 160 -CASE ELSE -GOTO 160 -END SELECT - -IF finish > 0 THEN GOTO 300 -REM _________________________________________________________________________ - -IF tBalls(batSide) <> 0 THEN GOTO 200 -IF overBalls <= 5 THEN GOTO 200 -overBalls = 0 -FOR j = 1 TO 8 -ball$(j) = "" -NEXT j -FOR j = 1 TO 8 -speed(j) = 0 -NEXT j - -200 totals = 0 -total1 = 100 - eb(bowler, bowlSide) -IF strike = 1 THEN total2 = rs(bat1, batSide) -IF strike = 2 THEN total2 = rs(bat2, batSide) -totals = total1 + total2 -totals = INT(totals / 10) - -IF strike = 1 THEN wtotal1 = 100 - (gb(bat1, batSide)) -IF strike = 2 THEN wtotal1 = 100 - (gb(bat2, batSide)) -wtotal2 = wt(bowler, bowlSide) -wtotals = wtotal1 + wtotal2 -chance = INT(83 - (wtotals / 2.5)) -IF bowl(bowler, bowlSide) = 1 OR bowl(bowler, bowlSide) = 2 OR bowl(bowler, bowlSide) = 7 OR bowl(bowler, bowlSide) = 8 THEN spinner = 1 - -IF tovers(batSide) < 10 AND spinner = 1 THEN chance = chance + 2 -SELECT CASE mindset -CASE IS = 1 -chance = INT(chance * 1.3) -totals = totals - 3 -CASE IS = 2 -chance = INT(chance * 1.15) -totals = totals - 1 -CASE IS = 4 -chance = INT(chance * .85) -totals = totals + 1 -CASE IS = 5 -chance = INT(chance * .7) -totals = totals + 3 -END SELECT - -IF fatigue(bowler, bowlSide) < 5 THEN chance = chance + (7 - fatigue(bowler, bowlSide)) -aa = 5 -bb = 6 -cc = 7 -dd = 20 + totals -ee = 22 + totals + totals -tt = rand(100) - -SELECT CASE rand(chance) -CASE IS = 1 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -tWickets(batSide) = tWickets(batSide) + 1 -fow(tWickets(batSide), batSide) = truns(batSide) - -IF bowl(bowler, bowlSide) = 1 OR bowl(bowler, bowlSide) = 2 OR bowl(bowler, bowlSide) = 7 OR bowl(bowler, bowlSide) = 8 THEN howOut = rand(22) ELSE howOut = rand(20) -SELECT CASE howOut -CASE IS <= 11 -IF strike = 1 THEN howOut1$(bat1, batSide) = "c" ELSE howOut1$(bat2, batSide) = "c" -catch = rand(11) -IF catch = bowler THEN catch = wk(bowlSide) -IF strike = 1 THEN howOut2$(bat1, batSide) = player$(catch, bowlSide) ELSE howOut2$(bat2, batSide) = player$(catch, bowlSide) -IF strike = 1 THEN howOut3$(bat1, batSide) = "b" ELSE howOut3$(bat2, batSide) = "b" -IF strike = 1 THEN howOut4$(bat1, batSide) = player$(bowler, bowlSide) ELSE howOut4$(bat2, batSide) = player$(bowler, bowlSide) -ball$(overBalls + 1) = "WICKET - CAUGHT" -w(bowler, bowlSide) = w(bowler, bowlSide) + 1 -CASE 12 TO 16 -IF strike = 1 THEN howOut3$(bat1, batSide) = "b" ELSE howOut3$(bat2, batSide) = "b" -IF strike = 1 THEN howOut4$(bat1, batSide) = player$(bowler, bowlSide) ELSE howOut4$(bat2, batSide) = player$(bowler, bowlSide) -ball$(overBalls + 1) = "WICKET - BOWLED" -w(bowler, bowlSide) = w(bowler, bowlSide) + 1 -CASE 17 TO 19 -IF strike = 1 THEN howOut1$(bat1, batSide) = "lbw" ELSE howOut1$(bat2, batSide) = "lbw" -IF strike = 1 THEN howOut3$(bat1, batSide) = "b" ELSE howOut3$(bat2, batSide) = "b" -IF strike = 1 THEN howOut4$(bat1, batSide) = player$(bowler, bowlSide) ELSE howOut4$(bat2, batSide) = player$(bowler, bowlSide) -ball$(overBalls + 1) = "WICKET - LBW" -w(bowler, bowlSide) = w(bowler, bowlSide) + 1 -CASE IS = 20 -IF strike = 1 THEN howOut1$(bat1, batSide) = "run out" ELSE howOut1$(bat2, batSide) = "run out" -ball$(overBalls + 1) = "WICKET - RUN OUT" -CASE ELSE -IF strike = 1 THEN howOut1$(bat1, batSide) = "st" ELSE howOut1$(bat2, batSide) = "st" -IF strike = 1 THEN howOut2$(bat1, batSide) = player$(wk(bowlSide), bowlSide) ELSE howOut2$(bat2, batSide) = player$(wk(bowlSide), bowlSide) -IF strike = 1 THEN howOut3$(bat1, batSide) = "b" ELSE howOut3$(bat2, batSide) = "b" -IF strike = 1 THEN howOut4$(bat1, batSide) = player$(bowler, bowlSide) ELSE howOut4$(bat2, batSide) = player$(bowler, bowlSide) -ball$(overBalls + 1) = "WICKET - STUMPED" -w(bowler, bowlSide) = w(bowler, bowlSide) + 1 -END SELECT -IF strike = 1 THEN in(bat1, batSide) = 0 -IF strike = 2 THEN in(bat2, batSide) = 0 -IF tWickets(batSide) = 10 THEN GOTO 320 -IF strike = 1 THEN bat1 = tWickets(batSide) + 2 ELSE bat2 = tWickets(batSide) + 2 -IF strike = 1 AND tWickets(batSide) < 10 THEN in(bat1, batSide) = 1 -IF strike = 2 AND tWickets(batSide) < 10 THEN in(bat2, batSide) = 1 -320 GOTO 150 -END SELECT - -IF overExtras = 2 THEN GOTO 190 -extraChance = rand(130) -SELECT CASE extraChance -CASE IS = 1 -truns(batSide) = truns(batSide) + 1 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE LEG-BYE" -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -IF strike = 1 THEN strike = 2 ELSE strike = 1 -extras(batSide) = extras(batSide) + 1 -legByes(batSide) = legByes(batSide) + 1 -CASE IS = 2 -truns(batSide) = truns(batSide) + 1 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE BYE" -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -IF strike = 1 THEN strike = 2 ELSE strike = 1 -extras(batSide) = extras(batSide) + 1 -byes(batSide) = byes(batSide) + 1 -CASE IS = 3 -truns(batSide) = truns(batSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE NO-BALL" -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -extras(batSide) = extras(batSide) + 1 -noBalls(batSide) = noBalls(batSide) + 1 -CASE IS = 4 -truns(batSide) = truns(batSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE WIDE" -extras(batSide) = extras(batSide) + 1 -wides(batSide) = wides(batSide) + 1 -CASE IS = 5 -truns(batSide) = truns(batSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE WIDE" -extras(batSide) = extras(batSide) + 1 -wides(batSide) = wides(batSide) + 1 -CASE IS = 6 -truns(batSide) = truns(batSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE WIDE" -extras(batSide) = extras(batSide) + 1 -wides(batSide) = wides(batSide) + 1 -END SELECT -IF extraChance < 7 THEN overExtras = overExtras + 1 -IF extraChance < 7 THEN GOTO 150 - -190 SELECT CASE tt -CASE IS <= aa -truns(batSide) = truns(batSide) + 2 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 2 -ball$(overBalls + 1) = "TWO RUNS" -IF strike = 1 THEN runs(bat1, batSide) = runs(bat1, batSide) + 2 ELSE runs(bat2, batSide) = runs(bat2, batSide) + 2 -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 - -CASE IS = bb -truns(batSide) = truns(batSide) + 3 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 3 -ball$(overBalls + 1) = "THREE RUNS" -IF strike = 1 THEN runs(bat1, batSide) = runs(bat1, batSide) + 3 ELSE runs(bat2, batSide) = runs(bat2, batSide) + 3 -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -IF strike = 1 THEN strike = 2 ELSE strike = 1 - -CASE IS = cc -truns(batSide) = truns(batSide) + 6 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 6 -ball$(overBalls + 1) = "SIX RUNS" -IF strike = 1 THEN runs(bat1, batSide) = runs(bat1, batSide) + 6 ELSE runs(bat2, batSide) = runs(bat2, batSide) + 6 -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 - -CASE cc + 1 TO dd -truns(batSide) = truns(batSide) + 1 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "ONE RUN" -IF strike = 1 THEN runs(bat1, batSide) = runs(bat1, batSide) + 1 ELSE runs(bat2, batSide) = runs(bat2, batSide) + 1 -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -IF strike = 1 THEN strike = 2 ELSE strike = 1 - -CASE dd + 1 TO ee -truns(batSide) = truns(batSide) + 4 -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -r(bowler, bowlSide) = r(bowler, bowlSide) + 4 -ball$(overBalls + 1) = "FOUR RUNS" -IF strike = 1 THEN runs(bat1, batSide) = runs(bat1, batSide) + 4 ELSE runs(bat2, batSide) = runs(bat2, batSide) + 4 -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 - -CASE ELSE -tBalls(batSide) = tBalls(batSide) + 1 -b(bowler, bowlSide) = b(bowler, bowlSide) + 1 -ball$(overBalls + 1) = "NO RUN" -IF strike = 1 THEN balls(bat1, batSide) = balls(bat1, batSide) + 1 ELSE balls(bat2, batSide) = balls(bat2, batSide) + 1 -END SELECT - -150 SELECT CASE bowl(bowler, bowlSide) -CASE IS = 1 -speed(overBalls + 1) = (rand(61) + 479) / 10 -CASE IS = 2 -speed(overBalls + 1) = (rand(61) + 479) / 10 -CASE IS = 7 -speed(overBalls + 1) = (rand(61) + 479) / 10 -CASE IS = 8 -speed(overBalls + 1) = (rand(61) + 479) / 10 -CASE IS = 3 -speed(overBalls + 1) = (rand(61) + 719) / 10 -CASE IS = 9 -speed(overBalls + 1) = (rand(61) + 719) / 10 -CASE IS = 4 -speed(overBalls + 1) = (rand(61) + 769) / 10 -CASE IS = 10 -speed(overBalls + 1) = (rand(61) + 769) / 10 -CASE IS = 5 -speed(overBalls + 1) = (rand(61) + 819) / 10 -CASE IS = 11 -speed(overBalls + 1) = (rand(61) + 819) / 10 -CASE IS = 6 -speed(overBalls + 1) = (rand(61) + 869) / 10 -CASE IS = 12 -speed(overBalls + 1) = (rand(61) + 869) / 10 -END SELECT - -IF o(bowler, bowlSide) = 0 AND overBalls = 0 THEN bowlers(bowlSide) = bowlers(bowlSide) + 1 -IF o(bowler, bowlSide) = 0 AND overBalls = 0 THEN bowlChange(bowlers(bowlSide), bowlSide) = bowler -overBalls = overBalls + 1 -delivery = 1 -seconds = seconds + (rand(3) + 32) -SELECT CASE seconds -CASE IS >= 60 -minutes = minutes + 1 -seconds = seconds - 60 -END SELECT -SELECT CASE minutes -CASE IS = 60 -minutes = 0 -hours = hours + 1 -END SELECT -300 LOOP UNTIL finish > 0 -NEXT innings - -momDone = 0 -eomc = 1 -390 COLOR 11, 0 -CLS -IF momDone = 1 THEN GOTO 370 -FOR i = 1 TO 11 -rc = 0 -FOR j = 1 TO 11 -IF runs(i, bowlSide) >= runs(j, bowlSide) THEN rc = rc + 1 -NEXT j -IF rc = 11 THEN hrs = i -NEXT i -IF in(hrs, bowlSide) = 1 THEN asterisk$ = "*" - -FOR i = 1 TO 11 -rc = 0 -FOR j = 1 TO 11 -IF runs(i, batSide) >= runs(j, batSide) THEN rc = rc + 1 -NEXT j -IF rc = 11 THEN hrs2 = i -NEXT i -IF in(hrs2, batSide) = 1 THEN asterisk2$ = "*" - -IF tWickets(bowlSide) = 0 THEN GOTO 360 -FOR i = 1 TO 11 -wc = 0 -FOR j = 1 TO 11 -SELECT CASE w(i, batSide) -CASE IS > w(j, batSide) -wc = wc + 1 -CASE IS = w(j, batSide) -IF r(i, batSide) <= r(j, batSide) THEN wc = wc + 1 -END SELECT -NEXT j -IF wc = 11 THEN bbf = i -NEXT i - - -360 IF tWickets(batSide) = 0 THEN GOTO 370 -FOR i = 1 TO 11 -wc = 0 -FOR j = 1 TO 11 -SELECT CASE w(i, bowlSide) -CASE IS > w(j, bowlSide) -wc = wc + 1 -CASE IS = w(j, bowlSide) -IF r(i, bowlSide) <= r(j, bowlSide) THEN wc = wc + 1 -END SELECT -NEXT j -IF wc = 11 THEN bbf2 = i -NEXT i -370 momDone = 1 - - -COLOR 11, 0 -LOCATE 5, 3 -PRINT team$(bowlSide) -LOCATE 5, 17 -PRINT " " -LOCATE 5, 18 -IF tWickets(bowlSide) = 10 THEN PRINT truns(bowlSide) ELSE PRINT truns(bowlSide); "-"; tWickets(bowlSide) -COLOR 3, 0 -LOCATE 5, 36 -PRINT player$(hrs, bowlSide); runs(hrs, bowlSide); asterisk$ -LOCATE 5, 58 -IF bbf = 0 THEN PRINT "" ELSE PRINT player$(bbf, batSide); w(bbf, batSide); "-"; r(bbf, batSide) - -COLOR 11, 0 -LOCATE 7, 3 -PRINT team$(batSide) -LOCATE 7, 17 -PRINT " " -LOCATE 7, 18 -IF tWickets(batSide) = 10 THEN PRINT truns(batSide) ELSE PRINT truns(batSide); "-"; tWickets(batSide) -COLOR 3, 0 -LOCATE 7, 36 -PRINT player$(hrs2, batSide); runs(hrs2, batSide); asterisk2$ -LOCATE 7, 58 -IF bbf2 = 0 THEN PRINT "" ELSE PRINT player$(bbf2, bowlSide); w(bbf2, bowlSide); "-"; r(bbf2, bowlSide) - -COLOR 11, 0 -LOCATE 10, 3 -SELECT CASE truns(batSide) -CASE IS > truns(bowlSide) -IF tWickets(batSide) = 9 THEN PRINT team$(batSide); " BEAT "; team$(bowlSide); " BY 1 WICKET" ELSE PRINT team$(batSide); " BEAT "; team$(bowlSide); " BY "; 10 - tWickets(batSide); " WICKETS" -winners = 1 -CASE IS = truns(bowlSide) -PRINT team$(batSide); " TIED WITH "; team$(bowlSide) -winners = 1 -CASE IS < truns(bowlSide) -PRINT team$(bowlSide); " BEAT "; team$(batSide); " BY "; truns(bowlSide) - truns(batSide); " RUNS" -winners = 2 -END SELECT - -LOCATE 26, 3 -IF eomc = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW "; team$(bowlSide); " BATTING SCORECARD" -LOCATE 28, 3 -IF eomc = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW "; team$(batSide); " BOWLING FIGURES" -LOCATE 30, 3 -IF eomc = 3 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW "; team$(bowlSide); " MANHATTAN GRAPH" -LOCATE 34, 3 -IF eomc = 4 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW "; team$(batSide); " BATTING SCORECARD" -LOCATE 36, 3 -IF eomc = 5 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW "; team$(bowlSide); " BOWLING FIGURES" -LOCATE 38, 3 -IF eomc = 6 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW "; team$(batSide); " MANHATTAN GRAPH" -LOCATE 42, 3 -IF eomc = 7 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "VIEW ALL NATIONAL LEAGUE RESULTS" - -380 SELECT CASE INKEY$ -CASE IS = u$ -eomc = eomc - 1 -IF eomc < 1 THEN eomc = 7 -GOTO 390 -CASE IS = d$ -eomc = eomc + 1 -IF eomc > 7 THEN eomc = 1 -GOTO 390 -CASE IS = CHR$(13) -CASE ELSE -GOTO 380 -END SELECT -SELECT CASE eomc -CASE IS = 1 -battingSide = bowlSide -CALL scorecard2 -GOTO 390 -CASE IS = 2 -bowlingSide = batSide -battingSide = bowlSide -CALL figures2 -GOTO 390 -CASE IS = 3 -battingSide = 1 -CALL manhattan -GOTO 390 -CASE IS = 4 -battingSide = batSide -CALL scorecard2 -GOTO 390 -CASE IS = 5 -bowlingSide = bowlSide -battingSide = batSide -CALL figures2 -GOTO 390 -CASE IS = 6 -battingSide = 2 -CALL manhattan -GOTO 390 -CASE ELSE -END SELECT - -FOR i = 1 TO 11 -sm(i) = sm(i) + 1 -sRuns(i) = sRuns(i) + runs(i, team) -IF in(i, team) < 2 THEN sInnings(i) = sInnings(i) + 1 -IF in(i, team) = 0 THEN sOuts(i) = sOuts(i) + 1 -IF runs(i, team) > hs(i) THEN hs(i) = runs(i, team) -sBalls(i) = sBalls(i) + balls(i, team) - -IF b(i, team) = 0 THEN sOvers(i) = sOvers(i) + o(i, team) ELSE sOvers(i) = sOvers(i) + (o(i, team) + 1) -sWickets(i) = sWickets(i) + w(i, team) -sConceded(i) = sConceded(i) + r(i, team) -SELECT CASE w(i, team) -CASE IS > bbw(i) -bbw(i) = w(i, team) -bbr(i) = r(i, team) -CASE IS = bbw(i) -IF runs(i, team) < bbr(i) THEN bbw(i) = w(i, team) -IF runs(i, team) < bbr(i) THEN bbr(i) = r(i, team) -END SELECT -NEXT i - -SELECT CASE truns(team) -CASE IS > truns(opponents) -fansRating = fansRating + 8 -directorsRating = directorsRating + 4 -CASE IS = truns(opponents) -fansRating = fansRating + 5 -directorsRating = directorsRating + 1 -CASE ELSE -fansRating = fansRating - 8 -directorsRating = directorsRating - 4 -END SELECT - -420 CALL matchSimulator -END SUB - -SUB matchSimulator -COLOR 11, 0 -CLS -LOCATE 2, 3 -PRINT "WEEK "; week; " NATIONAL LEAGUE RESULTS" -FOR mn = 1 TO 9 -COLOR 3, 0 -myTeam = 0 -IF fixture(1, mn, week) = team OR fixture(2, mn, week) = team THEN myTeam = 1 -SELECT CASE myTeam -CASE IS = 1 -COLOR 11, 0 -LOCATE (mn * 2 + 8), 3 -IF truns(batSide) > truns(bowlSide) THEN PRINT team$(batSide); " BEAT "; team$(bowlSide); " BY "; 10 - tWickets(batSide); " WICKETS" -IF truns(batSide) = truns(bowlSide) THEN PRINT team$(batSide); " TIED WITH "; team$(bowlSide) -IF truns(bowlSide) > truns(batSide) THEN PRINT team$(bowlSide); " BEAT "; team$(batSide); " BY "; truns(bowlSide) - truns(batSide); " RUNS" - -played(batSide) = played(batSide) + 1 -played(bowlSide) = played(bowlSide) + 1 -SELECT CASE truns(batSide) -CASE IS > truns(bowlSide) -points(batSide) = points(batSide) + 4 -wins(batSide) = wins(batSide) + 1 -losses(bowlSide) = losses(bowlSide) + 1 -CASE IS = truns(bowlSide) -points(batSide) = points(batSide) + 2 -points(bowlSide) = points(bowlSide) + 2 -ties(batSide) = ties(batSide) + 1 -ties(bowlSide) = ties(bowlSide) + 1 -CASE ELSE -points(bowlSide) = points(bowlSide) + 4 -wins(bowlSide) = wins(bowlSide) + 1 -losses(batSide) = losses(batSide) + 1 -END SELECT -GOTO 430 -END SELECT - -team2 = fixture(1, mn, week) -opponents2 = fixture(2, mn, week) - -totalRating = rating(team2) + rating(opponents2) -rtr = rand(totalRating) -SELECT CASE rtr -CASE IS <= rating(team2) -winners = team2 -losers = opponents2 -CASE ELSE -winners = opponents2 -losers = team2 -END SELECT - -fb = rand(2) -SELECT CASE fb -CASE IS = 1 -margain = rand(10) -LOCATE (mn * 2 + 8), 3 -IF margain = 1 THEN PRINT team$(winners); " BEAT "; team$(losers); " BY 1 WICKET" ELSE PRINT team$(winners); " BEAT "; team$(losers); " BY "; margain; " WICKETS" -CASE IS = 2 -margain = rand(100) + 1 -LOCATE (mn * 2 + 8), 3 -PRINT team$(winners); " BEAT "; team$(losers); " BY "; margain; " RUNS" -END SELECT - -wins(winners) = wins(winners) + 1 -losses(losers) = losses(losers) + 1 -played(winners) = played(winners) + 1 -played(losers) = played(losers) + 1 -points(winners) = points(winners) + 4 -430 NEXT mn -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB playerSalary -2900 pco = 1 -2400 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "FINANCE - PLAYER SALARIES" - -FOR i = 1 TO 18 -IF pco = i THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE (i * 2 + 8), 5 -PRINT player$(i, team) -NEXT i -IF pco = 19 THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE 46, 5 -PRINT "Go Back to Finance Menu" - -2300 SELECT CASE INKEY$ -CASE IS = u$ -pco = pco - 1 -IF pco < 1 THEN pco = 19 -GOTO 2400 -CASE IS = d$ -pco = pco + 1 -IF pco > 19 THEN pco = 1 -GOTO 2400 -CASE IS = CHR$(13) -CASE ELSE -GOTO 2300 -END SELECT -IF pco = 19 THEN GOTO 2500 - -2700 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "FINANCE - PLAYER SALARIES" -LOCATE 10, 5 -PRINT player$(pco, team) -LOCATE 12, 5 -PRINT "Weekly wage: "; salary(pco, team); " pounds "; CHR$(17); " "; CHR$(16) -LOCATE 20, 5 -PRINT "Press RETURN to go back to the Player Salaries Menu" - -2600 SELECT CASE INKEY$ -CASE IS = r$ -salary(pco, team) = salary(pco, team) + 100 -IF salary(pco, team) <= 6000 THEN morale(pco) = morale(pco) + rand(2) -IF salary(pco, team) > 6000 THEN salary(pco, team) = 6000 -GOTO 2700 -CASE IS = l$ -salary(pco, team) = salary(pco, team) - 100 -IF salary(pco, team) >= 1000 THEN morale(pco) = morale(pco) - rand(2) -IF salary(pco, team) < 1000 THEN salary(pco, team) = 1000 -GOTO 2700 -CASE IS = CHR$(13) -GOTO 2800 -CASE ELSE -GOTO 2600 -END SELECT -2800 GOTO 2900 -2500 END SUB - -FUNCTION rand (c) -RANDOMIZE TIMER -rand = INT(c * RND(1)) + 1 -END FUNCTION - -SUB saveGame -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -oss = 1 - -960 FOR i = 1 TO 5 -IF oss = i THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE (i * 2 + 6), 5 -PRINT "SAVE GAME TO FILE "; i -NEXT i -IF oss = 6 THEN COLOR 0, 3 ELSE COLOR 3, 0 -LOCATE 18, 5 -PRINT "GO BACK TO OPTIONS" - -950 SELECT CASE INKEY$ -CASE IS = u$ -oss = oss - 1 -IF oss < 1 THEN oss = 6 -GOTO 960 -CASE IS = d$ -oss = oss + 1 -IF oss > 6 THEN oss = 1 -GOTO 960 -CASE IS = CHR$(13) -CASE ELSE -GOTO 950 -END SELECT - -SELECT CASE oss -CASE IS = 6 -CASE ELSE -IF oss = 1 THEN fi$ = "file1.txt" -IF oss = 2 THEN fi$ = "file2.txt" -IF oss = 3 THEN fi$ = "file3.txt" -IF oss = 4 THEN fi$ = "file4.txt" -IF oss = 5 THEN fi$ = "file5.txt" - -OPEN fi$ FOR OUTPUT AS #1 -PRINT #1, team -PRINT #1, name$ -PRINT #1, week -PRINT #1, year -PRINT #1, fansRating -PRINT #1, directorsRating -FOR i = 1 TO 18 -PRINT #1, sm(i) -PRINT #1, sInnings(i) -PRINT #1, sRuns(i) -PRINT #1, sOuts(i) -PRINT #1, hs(i) -PRINT #1, sBalls(i) -PRINT #1, sOvers(i) -PRINT #1, sWickets(i) -PRINT #1, sConceded(i) -PRINT #1, bbw(i) -PRINT #1, bbr(i) -PRINT #1, iWeeks(i) -PRINT #1, duty(i) -PRINT #1, morale(i) -NEXT i -FOR i = 1 TO 19 -PRINT #1, team$(i) -PRINT #1, rating(i) -PRINT #1, shirt1(i) -PRINT #1, shirt2(i) -PRINT #1, trousers1(i) -PRINT #1, trousers2(i) -PRINT #1, cs(i) -PRINT #1, wk(i) -PRINT #1, cp(i) -PRINT #1, ob1(i) -PRINT #1, ob2(i) -PRINT #1, overSeas1(i) -PRINT #1, overSeas2(i) -FOR j = 1 TO 18 -PRINT #1, player$(j, i) -PRINT #1, gb(j, i) -PRINT #1, rs(j, i) -PRINT #1, wt(j, i) -PRINT #1, eb(j, i) -PRINT #1, ba(j, i) -PRINT #1, fa(j, i) -PRINT #1, bat(j, i) -PRINT #1, bowl(j, i) -PRINT #1, wicketKeeper(j, i) -PRINT #1, peak(j, i) -PRINT #1, international(j, i) -PRINT #1, salary(j, i) -NEXT j -PRINT #1, points(i) -PRINT #1, wins(i) -PRINT #1, ties(i) -PRINT #1, losses(i) -PRINT #1, played(i) -NEXT i -CLOSE -COLOR 11, 0 -CLS -LOCATE 20, 20 -PRINT "GAME SAVED SUCCESFULLY TO FILE "; oss -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SELECT -END SUB - -SUB scorecard -COLOR 11, 0 -CLS -LOCATE 2, 4 -PRINT team$(batSide) - -FOR i = 1 TO 11 -SELECT CASE in(i, batSide) -CASE IS = 1 -howOut1$(i, batSide) = "not out" -COLOR 11, 0 -CASE ELSE -IF howOut1$(i, batSide) = "not out" THEN howOut1$(i, batSide) = "" -COLOR 3, 0 -END SELECT - -LOCATE 2 + (i * 2), 4 -PRINT player$(i, batSide) -LOCATE 2 + (i * 2), 23 -PRINT howOut1$(i, batSide) -LOCATE 2 + (i * 2), 26 -PRINT howOut2$(i, batSide) -LOCATE 2 + (i * 2), 44 -PRINT howOut3$(i, batSide) -LOCATE 2 + (i * 2), 47 -PRINT howOut4$(i, batSide) -LOCATE 2 + (i * 2), 67 -PRINT runs(i, batSide) -LOCATE 2 + (i * 2), 72 -PRINT "("; balls(i, batSide); ")" -NEXT i - -COLOR 11, 0 -LOCATE 27, 4 -PRINT "Extras: "; extras(batSide); " (w"; wides(batSide); ", nb"; noBalls(batSide); ", b"; byes(batSide); ", lb"; legByes(batSide); ")" -LOCATE 30, 4 -PRINT "Total, after "; tovers(batSide); "."; tBalls(batSide); " overs," -LOCATE 30, 67 -PRINT truns(batSide); "-"; tWickets(batSide) - -LOCATE 48, 27 -COLOR 3, 0 -PRINT " MAIN MENU " -LOCATE 48, 4 -COLOR 0, 3 -PRINT " BATTING SCORECARD " -LOCATE 48, 50 -COLOR 3, 0 -PRINT " BOWLING FIGURES " -COLOR 0, 3 -LOCATE 46, 37 -PRINT CHR$(17); " "; CHR$(16) - -180 SELECT CASE INKEY$ -CASE IS = r$ -CASE ELSE -GOTO 180 -END SELECT -END SUB - -SUB scorecard2 -COLOR 11, 0 -CLS -LOCATE 2, 4 -PRINT team$(battingSide) - -FOR i = 1 TO 11 -SELECT CASE in(i, battingSide) -CASE IS = 1 -howOut1$(i, battingSide) = "not out" -COLOR 11, 0 -CASE ELSE -IF howOut1$(i, battingSide) = "not out" THEN howOut1$(i, battingSide) = "" -COLOR 3, 0 -END SELECT - -LOCATE 2 + (i * 2), 4 -PRINT player$(i, battingSide) -LOCATE 2 + (i * 2), 23 -PRINT howOut1$(i, battingSide) -LOCATE 2 + (i * 2), 26 -PRINT howOut2$(i, battingSide) -LOCATE 2 + (i * 2), 44 -PRINT howOut3$(i, battingSide) -LOCATE 2 + (i * 2), 47 -PRINT howOut4$(i, battingSide) -LOCATE 2 + (i * 2), 67 -PRINT runs(i, battingSide) -LOCATE 2 + (i * 2), 72 -PRINT "("; balls(i, battingSide); ")" -NEXT i - -COLOR 11, 0 -LOCATE 27, 4 -PRINT "Extras: "; extras(battingSide); " (w"; wides(battingSide); ", nb"; noBalls(battingSide); ", b"; byes(battingSide); ", lb"; legByes(battingSide); ")" -LOCATE 30, 4 -PRINT "Total, after "; tovers(battingSide); "."; tBalls(battingSide); " overs," -LOCATE 30, 67 -PRINT truns(battingSide); "-"; tWickets(battingSide) - -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB statistics -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year - -FOR i = 1 TO 18 -batAve(i) = 0 -bowlAve(i) = 0 -strRte(i) = 0 -ecnRte(i) = 0 -IF sRuns(i) = 0 OR sOuts(i) = 0 THEN GOTO 700 -batAve(i) = INT(sRuns(i) / sOuts(i) * 10) / 10 -700 IF sConceded(i) = 0 OR sWickets(i) = 0 THEN GOTO 710 -bowlAve(i) = INT(sConceded(i) / sWickets(i) * 10) / 10 -710 IF sRuns(i) = 0 OR sBalls(i) = 0 THEN GOTO 720 -strRte(i) = INT(sRuns(i) / sBalls(i) * 1000) / 10 -720 IF sConceded(i) = 0 OR sOvers(i) = 0 THEN GOTO 730 -ecnRte(i) = INT(sConceded(i) / sOvers(i) * 10) / 10 -730 NEXT i - -COLOR 11, 0 -LOCATE 8, 5 -PRINT "Name" -LOCATE 8, 23 -PRINT " Mtc" -LOCATE 8, 28 -PRINT "Inn" -LOCATE 8, 32 -PRINT "Run" -LOCATE 8, 36 -PRINT "HSc" -LOCATE 8, 40 -PRINT "StrRt" -LOCATE 8, 47 -PRINT "BatAv" -LOCATE 8, 54 -PRINT "Wkt" -LOCATE 8, 58 -PRINT "BBF" -LOCATE 8, 66 -PRINT "EcnRt" -LOCATE 8, 73 -PRINT "BwlAv" - -FOR i = 1 TO 18 -IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 OR i = 13 OR i = 15 OR i = 17 THEN COLOR 3, 0 ELSE COLOR 9, 0 -LOCATE (i * 2 + 8), 5 -PRINT player$(i, team) -LOCATE (i * 2 + 8), 23 -PRINT sm(i) -LOCATE (i * 2 + 8), 27 -PRINT sInnings(i) -LOCATE (i * 2 + 8), 31 -PRINT sRuns(i) -LOCATE (i * 2 + 8), 35 -PRINT hs(i) -LOCATE (i * 2 + 8), 39 -PRINT strRte(i) -LOCATE (i * 2 + 8), 46 -PRINT batAve(i) -LOCATE (i * 2 + 8), 53 -PRINT sWickets(i) -LOCATE (i * 2 + 8), 57 -PRINT bbw(i) -LOCATE (i * 2 + 8), 60 -PRINT "-" -LOCATE (i * 2 + 8), 61 -PRINT bbr(i) -LOCATE (i * 2 + 8), 65 -PRINT ecnRte(i) -LOCATE (i * 2 + 8), 72 -PRINT bowlAve(i) -NEXT i - -DO -LOOP UNTIL INKEY$ = CHR$(13) -END SUB - -SUB teamSheet -480 dd = 0 -ps = 1 -ac = 1 -so = 1 - -tos = 1 -50 COLOR 11, 0 -CLS -350 COLOR 11, 0 -IF dd = 0 THEN GOTO 10000 -FOR i = 1 TO 18 -LOCATE i + 12, 1 -IF i <> ps THEN PRINT " " ELSE PRINT CHR$(16) -NEXT i - -10000 LOCATE 2, 3 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -COLOR 11, 0 -LOCATE 10, 3 -PRINT "NO" -LOCATE 10, 6 -PRINT "NAME" -LOCATE 10, 22 -PRINT "RLE" -LOCATE 10, 27 -PRINT "BAT" -LOCATE 10, 32 -PRINT "BWL" -LOCATE 10, 36 -PRINT "ABILITY" -LOCATE 7, 3 -PRINT CHR$(29); " ABILITY ATTRIBUTE: "; attribute$(ac); " "; CHR$(17); " "; CHR$(16) - -FOR i = 1 TO 18 -SELECT CASE ac -CASE IS = 1 -attribute = gb(i, team) -CASE IS = 2 -attribute = rs(i, team) -CASE IS = 3 -attribute = wt(i, team) -CASE IS = 4 -attribute = eb(i, team) -CASE IS = 5 -attribute = fa(i, team) -CASE IS = 6 -attribute = morale(i) -END SELECT - -COLOR 7, 4 -LOCATE i + 12, 3 -IF duty(i) > 0 THEN PRINT "I" -IF duty(i) > 0 THEN GOTO 5000 -COLOR 4, 7 -LOCATE i + 12, 3 -IF iWeeks(i) > 0 THEN PRINT "+" -5000 IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 THEN COLOR 3, 0 -IF i = 2 OR i = 4 OR i = 6 OR i = 8 OR i = 10 THEN COLOR 9, 0 -IF i = 12 OR i = 14 OR i = 16 OR i = 18 THEN COLOR 10, 0 -IF i = 13 OR i = 15 OR i = 17 THEN COLOR 2, 0 -IF iWeeks(i) > 0 THEN GOTO 3100 -IF duty(i) > 0 THEN GOTO 3100 -LOCATE i + 12, 2 -IF i < 12 THEN PRINT i -LOCATE i + 12, 3 -IF i > 11 THEN PRINT "R" -3100 LOCATE i + 12, 6 -PRINT player$(i, team) -IF ob1(team) = i OR ob2(team) = i OR wk(team) = i THEN LOCATE i + 12, 24 ELSE LOCATE i + 12, 23 -COLOR 7, 1 -IF cp(team) = i THEN PRINT "C" -LOCATE i + 12, 23 -COLOR 7, 4 -IF ob1(team) = i THEN PRINT "1" -IF ob2(team) = i THEN PRINT "2" -COLOR 7, 6 -IF wk(team) = i THEN PRINT "W" -IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 THEN COLOR 3, 0 -IF i = 2 OR i = 4 OR i = 6 OR i = 8 OR i = 10 THEN COLOR 9, 0 -IF i = 12 OR i = 14 OR i = 16 OR i = 18 THEN COLOR 10, 0 -IF i = 13 OR i = 15 OR i = 17 THEN COLOR 2, 0 -LOCATE i + 12, 27 -PRINT bat$(bat(i, team)) -LOCATE i + 12, 32 -PRINT bowl$(bowl(i, team)) - -LOCATE i + 12, 36 -PRINT CHR$(219) -l = 36 -u = 0 -FOR j = 10 TO 95 -u = u + 1 -IF u = 3 THEN u = 1 -IF u = 1 THEN l = l + 1 -LOCATE i + 12, l -SELECT CASE u -CASE IS = 1 -IF attribute >= j THEN PRINT CHR$(221) ELSE PRINT " " -CASE IS = 2 -IF attribute >= j THEN PRINT CHR$(219) ELSE PRINT " " -END SELECT -NEXT j -NEXT i - -LOCATE 34, 3 -IF tos = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Swap Players" -LOCATE 36, 3 -IF tos = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Captain" -LOCATE 38, 3 -IF tos = 3 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Wicketkeeper" -LOCATE 40, 3 -IF tos = 4 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Opening Bowler 1" -LOCATE 42, 3 -IF tos = 5 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Opening Bowler 2" -LOCATE 44, 3 -IF tos = 6 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Back to Main Menu" - -60 SELECT CASE INKEY$ -CASE IS = r$ -ac = ac + 1 -IF ac > 6 THEN ac = 1 -GOTO 350 -CASE IS = l$ -ac = ac - 1 -IF ac < 1 THEN ac = 6 -GOTO 350 -CASE IS = u$ -IF dd = 0 THEN tos = tos - 1 ELSE ps = ps - 1 -IF tos < 1 THEN tos = 6 -IF ps < 1 THEN ps = 18 -GOTO 350 -CASE IS = d$ -IF dd = 0 THEN tos = tos + 1 ELSE ps = ps + 1 -IF tos > 6 THEN tos = 1 -IF ps > 18 THEN ps = 1 -GOTO 350 -CASE IS = CHR$(13) -SELECT CASE dd -CASE IS = 0 -dd = 1 -IF tos = 6 THEN GOTO 450 -GOTO 50 -CASE IS = 1 -IF tos = 1 THEN GOTO 2070 -IF tos = 1 THEN dd = 0 -IF tos = 2 AND ps < 12 THEN cp(team) = ps -IF tos = 2 AND ps < 12 THEN dd = 0 -IF tos = 3 AND ps < 12 AND ob1(team) <> ps AND ob2(team) <> ps THEN wk(team) = ps -IF tos = 3 AND ps < 12 AND ob1(team) <> ps AND ob2(team) <> ps THEN dd = 0 -IF tos = 4 AND ps < 12 AND ob2(team) <> ps AND wk(team) <> ps AND bowl(ps, team) <> 13 THEN ob1(team) = ps -IF tos = 4 AND ps < 12 AND ob2(team) <> ps AND wk(team) <> ps AND bowl(ps, team) <> 13 THEN dd = 0 -IF tos = 5 AND ps < 12 AND wk(team) <> ps AND ob1(team) <> ps AND bowl(ps, team) <> 13 THEN ob2(team) = ps -IF tos = 5 AND ps < 12 AND wk(team) <> ps AND ob1(team) <> ps AND bowl(ps, team) <> 13 THEN dd = 0 -IF dd = 0 THEN ps = 1 -GOTO 50 -END SELECT -CASE ELSE -GOTO 60 -END SELECT - -2070 ps2 = 1 -dd = 1 -COLOR 3, 0 -CLS -2050 FOR i = 1 TO 18 -COLOR 3, 0 -LOCATE i + 12, 1 -IF i = ps2 THEN PRINT CHR$(16) -COLOR 11, 0 -LOCATE i + 12, 1 -IF i = ps THEN PRINT CHR$(16) -LOCATE i + 12, 1 -IF i <> ps AND i <> ps2 THEN PRINT " " -NEXT i - -LOCATE 2, 3 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -COLOR 11, 0 -LOCATE 10, 3 -PRINT "NO" -LOCATE 10, 6 -PRINT "NAME" -LOCATE 10, 22 -PRINT "RLE" -LOCATE 10, 27 -PRINT "BAT" -LOCATE 10, 32 -PRINT "BWL" -LOCATE 10, 36 -PRINT "ABILITY" -LOCATE 7, 3 -PRINT CHR$(29); " ABILITY ATTRIBUTE: "; attribute$(ac); " "; CHR$(17); " "; CHR$(16) - -FOR i = 1 TO 18 -SELECT CASE ac -CASE IS = 1 -attribute = gb(i, team) -CASE IS = 2 -attribute = rs(i, team) -CASE IS = 3 -attribute = wt(i, team) -CASE IS = 4 -attribute = eb(i, team) -CASE IS = 5 -attribute = fa(i, team) -CASE IS = 6 -attribute = morale(i) -END SELECT - -COLOR 7, 4 -LOCATE i + 12, 3 -IF duty(i) > 0 THEN PRINT "I" -IF duty(i) > 0 THEN GOTO 5100 -COLOR 4, 7 -LOCATE i + 12, 3 -IF iWeeks(i) > 0 THEN PRINT "+" -5100 IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 THEN COLOR 3, 0 -IF i = 2 OR i = 4 OR i = 6 OR i = 8 OR i = 10 THEN COLOR 9, 0 -IF i = 12 OR i = 14 OR i = 16 OR i = 18 THEN COLOR 10, 0 -IF i = 13 OR i = 15 OR i = 17 THEN COLOR 2, 0 -IF iWeeks(i) > 0 THEN GOTO 3200 -IF duty(i) > 0 THEN GOTO 3200 -LOCATE i + 12, 2 -IF i < 12 THEN PRINT i -LOCATE i + 12, 3 -IF i > 11 THEN PRINT "R" -3200 LOCATE i + 12, 6 -PRINT player$(i, team) -IF ob1(team) = i OR ob2(team) = i OR wk(team) = i THEN LOCATE i + 12, 24 ELSE LOCATE i + 12, 23 -COLOR 7, 1 -IF cp(team) = i THEN PRINT "C" -LOCATE i + 12, 23 -COLOR 7, 4 -IF ob1(team) = i THEN PRINT "1" -IF ob2(team) = i THEN PRINT "2" -COLOR 7, 6 -IF wk(team) = i THEN PRINT "W" -IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 THEN COLOR 3, 0 -IF i = 2 OR i = 4 OR i = 6 OR i = 8 OR i = 10 THEN COLOR 9, 0 -IF i = 12 OR i = 14 OR i = 16 OR i = 18 THEN COLOR 10, 0 -IF i = 13 OR i = 15 OR i = 17 THEN COLOR 2, 0 -LOCATE i + 12, 27 -PRINT bat$(bat(i, team)) -LOCATE i + 12, 32 -PRINT bowl$(bowl(i, team)) - -LOCATE i + 12, 36 -PRINT CHR$(219) -l = 36 -u = 0 -FOR j = 10 TO 95 -u = u + 1 -IF u = 3 THEN u = 1 -IF u = 1 THEN l = l + 1 -LOCATE i + 12, l -SELECT CASE u -CASE IS = 1 -IF attribute >= j THEN PRINT CHR$(221) ELSE PRINT " " -CASE IS = 2 -IF attribute >= j THEN PRINT CHR$(219) ELSE PRINT " " -END SELECT -NEXT j -NEXT i - -LOCATE 34, 3 -IF tos = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Swap Players" -LOCATE 36, 3 -IF tos = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Captain" -LOCATE 38, 3 -IF tos = 3 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Wicketkeeper" -LOCATE 40, 3 -IF tos = 4 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Opening Bowler 1" -LOCATE 42, 3 -IF tos = 5 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Change Opening Bowler 2" -LOCATE 44, 3 -IF tos = 6 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Back to Main Menu" - -2060 dd = 1 -SELECT CASE INKEY$ -CASE IS = r$ -ac = ac + 1 -IF ac > 6 THEN ac = 1 -GOTO 2050 -CASE IS = l$ -ac = ac - 1 -IF ac < 1 THEN ac = 6 -GOTO 2050 -CASE IS = u$ -IF dd = 0 THEN tos = tos - 1 ELSE ps2 = ps2 - 1 -IF tos < 1 THEN tos = 6 -IF ps2 < 1 THEN ps2 = 18 -GOTO 2050 -CASE IS = d$ -IF dd = 0 THEN tos = tos + 1 ELSE ps2 = ps2 + 1 -IF tos > 6 THEN tos = 1 -IF ps2 > 18 THEN ps2 = 1 -GOTO 2050 -CASE IS = CHR$(13) -SELECT CASE dd -CASE IS = 0 -dd = 1 -GOTO 2050 -CASE IS = 1 -IF tos = 1 THEN GOTO 4600 -IF tos = 1 THEN dd = 0 -IF tos = 2 AND ps2 < 12 THEN cp(team) = ps2 -IF tos = 2 AND ps2 < 12 THEN dd = 0 -IF tos = 3 AND ps2 < 12 AND ob1(team) <> ps2 AND ob2(team) <> ps2 THEN wk(team) = ps2 -IF tos = 3 AND ps2 < 12 AND ob1(team) <> ps2 AND ob2(team) <> ps2 THEN dd = 0 -IF tos = 4 AND ps2 < 12 AND ob2(team) <> ps2 AND wk(team) <> ps2 THEN ob1(team) = ps2 -IF tos = 4 AND ps2 < 12 AND ob2(team) <> ps2 AND wk(team) <> ps2 THEN dd = 0 -IF tos = 5 AND ps2 < 12 AND wk(team) <> ps2 AND ob1(team) <> ps2 THEN ob2(team) = ps2 -IF tos = 5 AND ps2 < 12 AND wk(team) <> ps2 AND ob1(team) <> ps2 THEN dd = 0 -IF dd = 0 THEN ps2 = 1 -GOTO 2050 -END SELECT -CASE ELSE -GOTO 2060 -END SELECT - - -4600 player2$ = player$(ps2, team) -gb2 = gb(ps2, team) -rs2 = rs(ps2, team) -eb2 = eb(ps2, team) -wt2 = wt(ps2, team) -ba2 = ba(ps2, team) -fa2 = fa(ps2, team) -bat2 = bat(ps2, team) -bowl2 = bowl(ps2, team) -wicketKeeper2 = wicketKeeper(ps2, team) -international2 = international(ps2, team) -salary2 = salary(ps2, team) -peak2 = peak(ps2, team) -sm2 = sm(ps2) -sInnings2 = sInnings(ps2) -sRuns2 = sRuns(ps2) -sOuts2 = sOuts(ps2) -hs2 = hs(ps2) -sBalls2 = sBalls(ps2) -sWickets2 = sWickets(ps2) -bbw2 = bbw(ps2) -bbr2 = bbr(ps2) -sOvers2 = sOvers(ps2) -sConceded2 = sConceded(ps2) -morale2 = morale(ps2) -iWeeks2 = iWeeks(ps2) -duty2 = duty(ps2) - -player$(ps2, team) = player$(ps, team) -gb(ps2, team) = gb(ps, team) -rs(ps2, team) = rs(ps, team) -eb(ps2, team) = eb(ps, team) -wt(ps2, team) = wt(ps, team) -ba(ps2, team) = ba(ps, team) -fa(ps2, team) = fa(ps, team) -bat(ps2, team) = bat(ps, team) -bowl(ps2, team) = bowl(ps, team) -wicketKeeper(ps2, team) = wicketKeeper(ps, team) -international(ps2, team) = international(ps, team) -salary(ps2, team) = salary(ps, team) -peak(ps2, team) = peak(ps, team) -sm(ps2) = sm(ps) -sInnings(ps2) = sInnings(ps) -sRuns(ps2) = sRuns(ps) -sOuts(ps2) = sOuts(ps) -hs(ps2) = hs(ps) -sBalls(ps2) = sBalls(ps) -sWickets(ps2) = sWickets(ps) -bbw(ps2) = bbw(ps) -bbr(ps2) = bbr(ps) -sOvers(ps2) = sOvers(ps) -sConceded(ps2) = sConceded(ps) -morale(ps2) = morale(ps) -iWeeks(ps2) = iWeeks(ps) -duty(ps2) = duty(ps) - -player$(ps, team) = player2$ -gb(ps, team) = gb2 -rs(ps, team) = rs2 -eb(ps, team) = eb2 -wt(ps, team) = wt2 -ba(ps, team) = ba2 -fa(ps, team) = fa2 -bat(ps, team) = bat2 -bowl(ps, team) = bowl2 -wicketKeeper(ps, team) = wicketKeeper2 -international(ps, team) = international2 -salary(ps, team) = salary2 -peak(ps, team) = peak2 -sm(ps) = sm2 -sInnings(ps) = sInnings2 -sRuns(ps) = sRuns2 -sOuts(ps) = sOuts2 -hs(ps) = hs2 -sBalls(ps) = sBalls2 -sWickets(ps) = sWickets2 -bbw(ps) = bbw2 -bbr(ps) = bbr2 -sOvers(ps) = sOvers2 -sConceded(ps) = sConceded2 -morale(ps) = morale2 -iWeeks(ps) = iWeeks2 -duty(ps) = duty2 - -SELECT CASE overSeas1(team) -CASE IS = ps -overSeas1(team) = ps2 -CASE IS = ps2 -overSeas1(team) = ps -END SELECT -SELECT CASE overSeas2(team) -CASE IS = ps -overSeas2(team) = ps2 -CASE IS = ps2 -overSeas2(team) = ps -END SELECT - -SELECT CASE wk(team) -CASE IS = ps -IF ps2 < 12 THEN wk(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN wk(team) = ps -END SELECT -SELECT CASE cp(team) -CASE IS = ps -IF ps2 < 12 THEN cp(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN cp(team) = ps -END SELECT -SELECT CASE ob1(team) -CASE IS = ps -IF ps2 < 12 THEN ob1(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN ob1(team) = ps -END SELECT -SELECT CASE ob2(team) -CASE IS = ps -IF ps2 < 12 THEN ob2(team) = ps2 -CASE IS = ps2 -IF ps < 12 THEN ob2(team) = ps -END SELECT -cob1 = 0 -IF ob1(team) = wk(team) THEN cob1 = 1 -IF bowl(ob1(team), team) = 13 THEN cob1 = 1 -IF ob1(team) = ob2(team) THEN cob1 = 1 -SELECT CASE cob1 -CASE IS = 1 -DO -ob1(team) = rand(11) -LOOP UNTIL wk(team) <> ob1(team) AND bowl(ob1(team), team) <> 13 AND ob1(team) <> ob2(team) -END SELECT - -cob2 = 0 -IF ob2(team) = wk(team) THEN cob2 = 1 -IF bowl(ob2(team), team) = 13 THEN cob2 = 1 -IF ob2(team) = ob1(team) THEN cob2 = 1 -SELECT CASE cob2 -CASE IS = 1 -DO -ob2(team) = rand(11) -LOOP UNTIL wk(team) <> ob2(team) AND bowl(ob2(team), team) <> 13 AND ob2(team) <> ob1(team) -END SELECT -GOTO 480 -450 END SUB - -SUB training -1131 cto = 1 -dd = 0 -1130 ops = 1 -1110 COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "TRAINING" -FOR i = 1 TO 18 -IF i = 1 OR i = 3 OR i = 5 OR i = 7 OR i = 9 OR i = 11 OR i = 13 OR i = 15 OR i = 17 THEN COLOR 3, 0 ELSE COLOR 9, 0 -LOCATE (i + 8), 5 -PRINT player$(i, team) -NEXT i - -IF dd = 0 THEN GOTO 1132 -FOR i = 1 TO 18 -LOCATE (i + 8), 3 -IF ops = i THEN PRINT CHR$(16) ELSE PRINT " " -NEXT i - -1132 LOCATE 32, 5 -IF cto = 1 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Train Player" -LOCATE 34, 5 -IF cto = 2 THEN COLOR 0, 3 ELSE COLOR 3, 0 -PRINT "Back to Main Menu" - -1100 SELECT CASE INKEY$ -CASE IS = u$ -IF dd = 0 THEN cto = cto - 1 ELSE ops = ops - 1 -IF ops < 1 THEN ops = 18 -IF cto < 1 THEN cto = 2 -GOTO 1110 -CASE IS = d$ -IF dd = 0 THEN cto = cto + 1 ELSE ops = ops + 1 -IF cto > 2 THEN cto = 1 -IF ops > 18 THEN ops = 1 -GOTO 1110 -CASE IS = CHR$(13) -SELECT CASE dd -CASE IS = 0 -dd = 1 -IF cto = 2 THEN GOTO 1120 -GOTO 1110 -CASE IS = 1 -GOTO 4000 -END SELECT -CASE ELSE -GOTO 1100 -END SELECT - -4000 z = 0 -DO -COLOR 11, 0 -CLS -LOCATE 2, 5 -PRINT name$; " "; team$(team); " Week "; week; " Year "; year -LOCATE 6, 5 -PRINT "TRAINING - "; player$(ops, team) -LOCATE 10, 5 -PRINT "CAREER PERIOD: "; career$(peak(ops, team)) -COLOR 3, 0 -LOCATE 14, 5 -PRINT "CURRENT TRAINING FOCUS:" -LOCATE 14, 30 -PRINT tAttribute$(ta(ops)); " "; CHR$(17); " "; CHR$(16) - -COLOR 9, 0 -LOCATE 18, 5 -PRINT "Very Low Intensity Training" -COLOR 3, 0 -LOCATE 20, 5 -PRINT "Low Intensity Training" -COLOR 9, 0 -LOCATE 22, 5 -PRINT "Medium Intensity Training" -COLOR 3, 0 -LOCATE 24, 5 -PRINT "High Intensity Training" -COLOR 9, 0 -LOCATE 26, 5 -PRINT "Very High Intensity Training" -LOCATE (ti(ops) * 2 + 16), 3 -PRINT CHR$(16) -COLOR 11, 0 -LOCATE 40, 5 -PRINT "Press RETURN to go back" -1140 SELECT CASE INKEY$ -CASE IS = u$ -ti(ops) = ti(ops) - 1 -IF ti(ops) < 1 THEN ti(ops) = 5 -CASE IS = d$ -ti(ops) = ti(ops) + 1 -IF ti(ops) > 5 THEN ti(ops) = 1 -CASE IS = l$ -ta(ops) = ta(ops) - 1 -IF ta(ops) < 1 THEN ta(ops) = 6 -CASE IS = r$ -ta(ops) = ta(ops) + 1 -IF ta(ops) > 6 THEN ta(ops) = 1 -CASE IS = CHR$(13) -z = 1 -CASE ELSE -GOTO 1140 -END SELECT -LOOP UNTIL z = 1 -GOTO 1131 -1120 END SUB - diff --git a/programs/samples/pete/nlcm2006/nor.txt b/programs/samples/pete/nlcm2006/nor.txt deleted file mode 100644 index 2541460b3..000000000 --- a/programs/samples/pete/nlcm2006/nor.txt +++ /dev/null @@ -1,247 +0,0 @@ -NORTHAMPTONSHIRE -15 -5 -1 -1 -5 -2 -6 -1 -10 -7 -3 -7 -D. Sales -79 -75 -14 -12 -0 -78 -1 -3 -0 -3 -0 -3200 -B. Shafayat -74 -81 -57 -51 -1 -75 -1 -3 -0 -2 -0 -2300 -M. Love -85 -83 -17 -15 -0 -72 -1 -1 -0 -4 -0 -3600 -U. Afzaal -76 -80 -28 -26 -0 -76 -2 -7 -0 -3 -0 -2200 -R. White -73 -71 -22 -18 -0 -67 -1 -1 -0 -2 -0 -1900 -G. Brophy -68 -74 -1 -1 -0 -93 -1 -13 -1 -4 -0 -2100 -D. Wright -61 -56 -81 -77 -3 -74 -1 -4 -0 -2 -0 -3900 -B. Phillips -56 -53 -75 -72 -2 -68 -1 -4 -0 -3 -0 -2000 -C. Pietersen -31 -22 -68 -75 -3 -66 -2 -10 -0 -2 -0 -1800 -J. Louw -14 -15 -82 -78 -3 -65 -1 -5 -0 -3 -0 -2400 -M. Panesar -13 -12 -77 -76 -2 -62 -2 -7 -0 -1 -0 -1800 -T. Roberts -75 -67 -12 -14 -0 -74 -1 -1 -0 -3 -0 -2000 -A. White -71 -64 -24 -19 -0 -70 -1 -1 -0 -2 -0 -1700 -S. Coverdale -51 -53 -65 -60 -1 -67 -1 -1 -0 -1 -0 -1500 -M. Wessels -55 -50 -1 -1 -0 -92 -1 -13 -1 -1 -0 -1700 -J. Brown -23 -16 -70 -73 -2 -64 -1 -1 -0 -3 -0 -2100 -R. King -12 -15 -72 -69 -3 -67 -1 -10 -0 -1 -0 -1500 -P. Jones -11 -15 -74 -72 -3 -62 -1 -4 -0 -4 -0 -1900 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/not.txt b/programs/samples/pete/nlcm2006/not.txt deleted file mode 100644 index 0153575f6..000000000 --- a/programs/samples/pete/nlcm2006/not.txt +++ /dev/null @@ -1,247 +0,0 @@ -NOTTINGHAMSHIRE -17 -2 -6 -2 -6 -1 -6 -3 -9 -11 -3 -4 -D. Bicknell -75 -78 -17 -15 -0 -75 -2 -7 -0 -4 -0 -2000 -G. Swann -71 -83 -74 -72 -2 -77 -1 -1 -0 -2 -0 -2200 -S. Fleming -86 -81 -13 -12 -0 -81 -2 -1 -0 -4 -0 -3600 -D. Hussey -84 -77 -20 -27 -0 -84 -1 -1 -0 -2 -0 -3000 -J. Gallian -76 -74 -16 -18 -0 -74 -1 -3 -0 -3 -0 -2300 -C. Read -65 -70 -1 -1 -0 -95 -1 -13 -1 -2 -0 -2600 -M. Ealham -55 -63 -61 -69 -2 -68 -1 -3 -0 -4 -0 -2300 -S. Patel -38 -36 -67 -68 -2 -70 -1 -7 -0 -1 -0 -1800 -R. Sidebottom -14 -18 -82 -78 -3 -65 -2 -10 -0 -3 -0 -2100 -C. Shreck -16 -15 -77 -72 -3 -66 -1 -4 -0 -2 -0 -1900 -A. Harris -12 -14 -75 -73 -3 -62 -1 -4 -0 -3 -0 -2000 -A. Singh -76 -69 -17 -19 -0 -71 -1 -1 -0 -2 -0 -1600 -R. Warren -73 -67 -12 -15 -0 -74 -1 -1 -0 -5 -0 -1800 -D. Alleyne -49 -56 -1 -1 -0 -92 -1 -13 -1 -4 -0 -1600 -P. McMahon -54 -59 -67 -62 -2 -68 -1 -1 -0 -1 -0 -1400 -G. Clough -41 -50 -69 -63 -2 -65 -1 -3 -0 -3 -0 -1800 -G. Smith -11 -13 -78 -77 -3 -62 -1 -10 -0 -4 -0 -1900 -R. Hodgkinson -15 -11 -71 -74 -3 -68 -1 -4 -0 -2 -0 -1600 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/print screen.lnk b/programs/samples/pete/nlcm2006/print screen.lnk deleted file mode 100644 index 97916a5f2..000000000 Binary files a/programs/samples/pete/nlcm2006/print screen.lnk and /dev/null differ diff --git a/programs/samples/pete/nlcm2006/sco.txt b/programs/samples/pete/nlcm2006/sco.txt deleted file mode 100644 index 3653199b3..000000000 --- a/programs/samples/pete/nlcm2006/sco.txt +++ /dev/null @@ -1,247 +0,0 @@ -SCOTLAND -4 -1 -14 -1 -7 -1 -7 -4 -10 -6 -7 -8 -D. Lockhart -60 -65 -14 -12 -0 -71 -1 -3 -0 -4 -0 -1500 -F. Watts -61 -59 -12 -15 -0 -68 -1 -3 -0 -3 -0 -1700 -R. Watson -56 -59 -41 -35 -2 -72 -1 -3 -0 -2 -0 -1600 -S. Smith -59 -63 -15 -13 -0 -75 -1 -1 -0 -3 -0 -2500 -C. Wright -55 -62 -38 -39 -2 -54 -1 -3 -0 -4 -0 -1600 -G. Hamilton -43 -47 -53 -57 -3 -61 -2 -4 -0 -5 -0 -2100 -S. Coetzer -51 -50 -1 -1 -0 -86 -1 -13 -1 -2 -0 -2400 -Y. Arafat -35 -26 -55 -58 -2 -69 -1 -4 -0 -4 -0 -2800 -M. Haq -15 -19 -43 -52 -2 -58 -2 -1 -0 -4 -0 -1700 -P. Hoffmann -11 -14 -59 -54 -3 -62 -1 -4 -0 -3 -0 -1400 -A. Butt -12 -14 -50 -56 -3 -53 -1 -9 -0 -4 -0 -1700 -S. Knox -62 -56 -10 -11 -0 -59 -1 -3 -0 -5 -0 -1400 -G. Williamson -55 -58 -18 -16 -0 -64 -1 -3 -0 -4 -0 -1300 -C. Smith -56 -58 -1 -1 -0 -82 -1 -13 -1 -2 -0 -1100 -I. Stanger -41 -44 -50 -47 -1 -72 -1 -3 -0 -5 -0 -1700 -G. Goudie -17 -15 -47 -51 -3 -52 -1 -4 -0 -3 -0 -1400 -D. Nel -14 -15 -56 -53 -3 -59 -1 -4 -0 -3 -0 -1600 -J. Brinkley -14 -18 -55 -53 -3 -54 -1 -3 -0 -1 -0 -1100 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/som.txt b/programs/samples/pete/nlcm2006/som.txt deleted file mode 100644 index 145933dcd..000000000 --- a/programs/samples/pete/nlcm2006/som.txt +++ /dev/null @@ -1,247 +0,0 @@ -SOMERSET -10 -12 -1 -1 -12 -2 -7 -6 -10 -11 -2 -10 -M. Trescothick -92 -88 -31 -37 -0 -85 -2 -3 -0 -3 -1 -5500 -G. Smith -94 -89 -37 -35 -0 -88 -2 -1 -0 -3 -0 -5700 -M. Wood -73 -77 -12 -14 -0 -81 -1 -1 -0 -2 -0 -2100 -J. Hildreth -74 -70 -26 -28 -0 -76 -1 -3 -0 -1 -0 -1700 -K. Parsons -67 -65 -58 -56 -1 -71 -1 -3 -0 -4 -0 -1900 -I. Blackwell -70 -82 -50 -54 -2 -73 -2 -7 -0 -3 -0 -3400 -C. Gazzard -52 -55 -1 -1 -0 -92 -1 -13 -1 -1 -0 -1400 -W. Durston -44 -57 -62 -64 -2 -77 -1 -1 -0 -2 -0 -1500 -R. Johnson -21 -29 -75 -71 -3 -69 -1 -4 -0 -4 -0 -2200 -C. Langeveldt -15 -17 -78 -80 -3 -64 -1 -5 -0 -2 -0 -3600 -A. Caddick -14 -11 -79 -76 -3 -58 -1 -4 -0 -5 -0 -2600 -N. Edwards -71 -72 -16 -12 -0 -76 -2 -2 -0 -1 -0 -1400 -J. Francis -74 -65 -17 -16 -0 -73 -2 -9 -0 -2 -0 -1600 -A. Suppiah -67 -63 -56 -51 -2 -77 -1 -7 -0 -1 -0 -1400 -M. Munday -20 -25 -65 -60 -2 -65 -1 -2 -0 -1 -0 -1200 -M. Parsons -17 -14 -70 -65 -3 -59 -1 -4 -0 -2 -0 -1300 -G. Andrew -13 -17 -78 -71 -3 -66 -1 -4 -0 -3 -0 -1900 -S. Francis -15 -13 -75 -73 -3 -71 -1 -5 -0 -3 -0 -2100 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/sur.txt b/programs/samples/pete/nlcm2006/sur.txt deleted file mode 100644 index adae2b2fa..000000000 --- a/programs/samples/pete/nlcm2006/sur.txt +++ /dev/null @@ -1,247 +0,0 @@ -SURREY -16 -1 -9 -1 -9 -1 -2 -3 -10 -11 -7 -9 -J. Benning -70 -78 -34 -32 -0 -74 -1 -3 -0 -2 -0 -1800 -J. Batty -74 -72 -1 -1 -0 -93 -1 -13 -1 -2 -0 -2100 -M. Butcher -85 -76 -22 -19 -0 -76 -2 -3 -0 -4 -0 -4800 -M. Ramprakash -79 -77 -12 -14 -0 -73 -1 -1 -0 -4 -0 -3600 -A. Brown -75 -85 -13 -11 -0 -70 -1 -1 -0 -4 -0 -2800 -R. Clarke -60 -63 -70 -64 -2 -73 -1 -4 -0 -2 -0 -2100 -A. Mahmood -58 -73 -68 -72 -3 -69 -1 -4 -0 -4 -0 -4100 -M. Akram -46 -53 -77 -74 -3 -66 -1 -4 -0 -2 -0 -1900 -S. Mushtaq -17 -14 -82 -75 -2 -68 -1 -1 -0 -5 -0 -2200 -J. Ormond -14 -16 -78 -73 -3 -65 -1 -5 -0 -3 -0 -2000 -T. Murtagh -12 -13 -72 -67 -3 -62 -1 -4 -0 -2 -0 -1900 -S. Newman -75 -67 -15 -12 -0 -68 -2 -3 -0 -2 -0 -1700 -R. Clinton -71 -72 -18 -14 -0 -76 -2 -3 -0 -1 -0 -1600 -A. Hodd -46 -54 -1 -1 -0 -90 -1 -13 -1 -2 -0 -1900 -I. Salisbury -28 -25 -74 -69 -2 -63 -1 -2 -0 -5 -0 -2200 -P. Sampson -22 -23 -73 -66 -3 -66 -1 -4 -0 -2 -0 -2000 -N. Doshi -20 -15 -64 -68 -2 -68 -1 -7 -0 -2 -0 -1700 -N. Saker -13 -11 -67 -65 -3 -70 -1 -4 -0 -1 -0 -1500 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/sus.txt b/programs/samples/pete/nlcm2006/sus.txt deleted file mode 100644 index 81a52a015..000000000 --- a/programs/samples/pete/nlcm2006/sus.txt +++ /dev/null @@ -1,247 +0,0 @@ -SUSSEX -18 -9 -7 -9 -7 -2 -5 -3 -11 -9 -9 -10 -R. Montgomerie -76 -69 -13 -12 -0 -68 -1 -1 -0 -3 -0 -2100 -I. Ward -78 -79 -14 -16 -0 -74 -2 -3 -0 -3 -0 -2400 -C. Adams -75 -82 -27 -23 -0 -72 -1 -1 -0 -3 -0 -4100 -M. Goodwin -80 -74 -14 -11 -0 -74 -1 -2 -0 -4 -0 -2300 -M. Prior -74 -81 -1 -1 -0 -92 -1 -13 -1 -1 -1 -2400 -M. Yardy -72 -75 -46 -50 -1 -71 -2 -7 -0 -2 -0 -2100 -J. Van Der Wath -51 -43 -67 -72 -3 -76 -1 -4 -0 -2 -0 -1900 -R. M-Jenkins -47 -46 -66 -75 -3 -70 -1 -4 -0 -3 -0 -2100 -N. Ul-Hasan -32 -35 -82 -83 -3 -68 -1 -4 -0 -2 -0 -4200 -M. Ahmed -16 -14 -87 -81 -2 -65 -1 -2 -0 -4 -0 -4800 -J. Kirtley -12 -11 -78 -79 -3 -67 -1 -5 -0 -3 -0 -2500 -N. Turk -71 -74 -12 -14 -0 -70 -1 -3 -0 -1 -0 -1600 -C. Hopkinson -69 -70 -20 -23 -0 -74 -1 -3 -0 -2 -0 -1800 -T. Ambrose -54 -47 -1 -1 -0 -93 -1 -13 -1 -2 -0 -2100 -C. Nash -47 -55 -59 -61 -2 -72 -1 -1 -0 -1 -0 -1800 -M. Davis -36 -39 -67 -64 -2 -74 -1 -1 -0 -4 -0 -2000 -L. Wright -28 -34 -70 -68 -3 -68 -1 -4 -0 -2 -0 -1800 -J. Lewry -13 -14 -73 -74 -3 -67 -2 -10 -0 -4 -0 -2100 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/war.txt b/programs/samples/pete/nlcm2006/war.txt deleted file mode 100644 index 5bca06ce2..000000000 --- a/programs/samples/pete/nlcm2006/war.txt +++ /dev/null @@ -1,247 +0,0 @@ -WARWICKSHIRE -16 -9 -3 -9 -3 -2 -9 -1 -10 -7 -7 -10 -N. Knight -84 -80 -13 -11 -0 -79 -2 -3 -0 -4 -0 -3300 -I. Westwood -76 -68 -16 -14 -0 -76 -2 -1 -0 -1 -0 -1800 -I. Trott -75 -79 -67 -59 -1 -77 -1 -3 -0 -2 -0 -1900 -I. Bell -87 -78 -26 -31 -0 -80 -1 -3 -0 -2 -1 -4500 -J. Troughton -77 -78 -17 -14 -0 -74 -2 -7 -0 -2 -0 -2100 -A. Loudon -71 -79 -74 -66 -2 -77 -1 -1 -0 -2 -0 -2000 -H. Streak -54 -59 -83 -81 -3 -69 -1 -4 -0 -4 -0 -3300 -A. Giles -45 -41 -77 -84 -2 -72 -1 -7 -0 -3 -1 -5100 -T. Frost -48 -39 -1 -1 -0 -91 -1 -13 -1 -3 -0 -1800 -M. Ntini -16 -17 -92 -88 -3 -69 -1 -6 -0 -3 -0 -5400 -J. Anyon -13 -11 -75 -77 -3 -66 -1 -4 -0 -1 -0 -1900 -M. Wagh -79 -74 -25 -27 -0 -77 -1 -1 -0 -3 -0 -2100 -M. Powell -74 -73 -14 -11 -0 -68 -1 -1 -0 -5 -0 -2000 -D. Brown -53 -59 -73 -66 -3 -65 -1 -4 -0 -5 -0 -2100 -K. Piper -47 -41 -1 -1 -0 -92 -1 -13 -1 -4 -0 -1600 -N. Carter -27 -36 -75 -68 -3 -68 -2 -10 -0 -3 -0 -1900 -D. Pretorius -15 -13 -78 -71 -3 -70 -1 -5 -0 -3 -0 -2000 -N. Tahir -12 -11 -68 -72 -3 -66 -1 -4 -0 -1 -0 -1700 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/wor.txt b/programs/samples/pete/nlcm2006/wor.txt deleted file mode 100644 index 6e5f61c0c..000000000 --- a/programs/samples/pete/nlcm2006/wor.txt +++ /dev/null @@ -1,247 +0,0 @@ -WORCESTERSHIRE -8 -2 -8 -2 -8 -1 -8 -3 -10 -7 -1 -10 -C. Gayle -81 -87 -53 -59 -1 -76 -2 -1 -0 -2 -0 -4300 -S. Moore -74 -69 -14 -11 -0 -69 -1 -3 -0 -3 -0 -1900 -V. Solanki -79 -82 -20 -26 -0 -74 -1 -1 -0 -2 -1 -4000 -G. Hick -82 -75 -14 -16 -0 -68 -1 -1 -0 -5 -0 -2800 -B. Smith -75 -66 -11 -13 -0 -69 -1 -3 -0 -3 -0 -2200 -D. Leatherdale -59 -55 -56 -64 -1 -64 -1 -3 -0 -5 -0 -2000 -K. Ali -48 -56 -78 -71 -3 -73 -1 -5 -0 -3 -0 -2100 -J. Pipe -47 -41 -1 -1 -0 -92 -1 -13 -1 -4 -0 -2000 -G. Batty -25 -21 -69 -74 -2 -65 -1 -1 -0 -3 -0 -2200 -S. Akhtar -13 -17 -92 -87 -3 -68 -1 -6 -0 -3 -0 -4800 -M. Mason -12 -13 -72 -70 -3 -63 -1 -4 -0 -4 -0 -1900 -S. Peters -73 -65 -14 -12 -0 -73 -1 -1 -0 -2 -0 -1800 -W. Gifford -70 -63 -11 -13 -0 -74 -1 -3 -0 -1 -0 -1400 -J. Knappett -51 -49 -1 -1 -0 -90 -1 -13 -1 -1 -0 -1600 -S. Khalid -57 -64 -52 -51 -1 -72 -1 -1 -0 -3 -0 -1800 -N. Malik -26 -25 -71 -67 -3 -66 -1 -4 -0 -2 -0 -1900 -S. Wedge -12 -13 -70 -65 -3 -62 -2 -10 -0 -1 -0 -1700 -R. Price -13 -12 -68 -77 -2 -65 -1 -7 -0 -4 -0 -2400 \ No newline at end of file diff --git a/programs/samples/pete/nlcm2006/yor.txt b/programs/samples/pete/nlcm2006/yor.txt deleted file mode 100644 index e84d04765..000000000 --- a/programs/samples/pete/nlcm2006/yor.txt +++ /dev/null @@ -1,247 +0,0 @@ -YORKSHIRE -14 -14 -1 -1 -14 -1 -8 -7 -11 -10 -2 -5 -M. Wood -74 -72 -16 -13 -0 -74 -1 -1 -0 -2 -0 -1900 -I. Harvey -73 -80 -63 -61 -2 -72 -1 -3 -0 -4 -0 -3800 -M. Lumb -76 -68 -14 -11 -0 -73 -2 -3 -0 -2 -0 -2000 -M. Vaughan -87 -79 -33 -37 -0 -77 -1 -1 -0 -3 -1 -5600 -P. Jaques -78 -83 -12 -11 -0 -78 -2 -9 -0 -2 -0 -3300 -A. McGrath -71 -75 -54 -48 -1 -66 -1 -3 -0 -3 -0 -2200 -C. White -57 -59 -68 -64 -3 -69 -1 -4 -0 -3 -0 -3600 -I. Dawood -49 -43 -1 -1 -0 -91 -1 -13 -1 -2 -0 -1800 -R. Dawson -21 -16 -64 -70 -2 -65 -1 -1 -0 -2 -0 -2300 -C. Silverwood -13 -16 -77 -75 -3 -68 -1 -5 -0 -4 -0 -2200 -G. Kruis -12 -11 -78 -73 -3 -64 -1 -4 -0 -3 -0 -2500 -J. Sayers -72 -67 -18 -20 -0 -71 -2 -1 -0 -1 -0 -1600 -C. Taylor -69 -64 -12 -13 -0 -69 -1 -3 -0 -1 -0 -1500 -R. Pyrah -56 -64 -61 -55 -1 -73 -1 -3 -0 -1 -0 -1900 -S. Guy -41 -46 -1 -1 -0 -92 -1 -13 -1 -1 -0 -1600 -D. Lucas -26 -31 -68 -62 -3 -68 -1 -10 -0 -1 -0 -1500 -N. Thornicroft -14 -12 -69 -72 -3 -65 -1 -4 -0 -2 -0 -1500 -M. Lawson -15 -11 -74 -65 -2 -62 -1 -2 -0 -1 -0 -1800 \ No newline at end of file diff --git a/programs/samples/pete/optimus/3drec.001 b/programs/samples/pete/optimus/3drec.001 deleted file mode 100644 index 6aba76b58..000000000 Binary files a/programs/samples/pete/optimus/3drec.001 and /dev/null differ diff --git a/programs/samples/pete/optimus/3rdrec.rec b/programs/samples/pete/optimus/3rdrec.rec deleted file mode 100644 index 3192eddb1..000000000 Binary files a/programs/samples/pete/optimus/3rdrec.rec and /dev/null differ diff --git a/programs/samples/pete/optimus/cow.3do b/programs/samples/pete/optimus/cow.3do deleted file mode 100644 index 83a5b02e7..000000000 Binary files a/programs/samples/pete/optimus/cow.3do and /dev/null differ diff --git a/programs/samples/pete/optimus/deedsaks.bas b/programs/samples/pete/optimus/deedsaks.bas deleted file mode 100644 index ffa0ccd1b..000000000 --- a/programs/samples/pete/optimus/deedsaks.bas +++ /dev/null @@ -1,3006 +0,0 @@ -DECLARE SUB copper () -DECLARE SUB fadefromcolor (a%, c%, t%, r%, g%, B%) -DECLARE SUB fadetocolor (a%, c%, t%, r%, g%, B%) -DECLARE SUB getpal () -DECLARE SUB setpal (c1%, c2%, r1%, g1%, b1%, r2%, g2%, b2%) - -DECLARE SUB keyaction () - -DECLARE SUB crosfade (r1%(), r2%(), g1%(), g2%(), b1%(), b2%()) -DECLARE SUB setcrosfadepal (r1%(), r2%(), g1%(), g2%(), b1%(), b2%()) -DECLARE SUB initcrosfadepics (a%, B%) - -DECLARE SUB clearscreen (c%) - -DECLARE SUB spheremaplasma () -DECLARE SUB zoomdistort () -DECLARE SUB loadqbinside () -DECLARE SUB rgblights () -DECLARE SUB cycleblobs () -DECLARE SUB plasmablobs () - -DECLARE SUB actions3d () - -DECLARE SUB loadobject (a$) -DECLARE SUB createobject (a%) - -DECLARE SUB animatewavelet (k%) - -DECLARE SUB mov3dpos (xp, yp, zp) -DECLARE SUB rotate3d (xr, yr, zr) -DECLARE SUB translate3d () -DECLARE SUB output3d () - -DECLARE SUB load3drecord () - - - -DECLARE SUB loadrecord () -DECLARE SUB precalculations () -DECLARE SUB getmap (a$) - -DECLARE SUB Intersections () -DECLARE SUB Actions () -DECLARE SUB saverecord () - -DECLARE SUB Output0 () - -DECLARE SUB deedlinesax (c%) -DECLARE SUB prehistoricode () -DECLARE SUB sucking () -DECLARE SUB delay (t%) - -DECLARE SUB ffix -'ffix - - -RANDOMIZE TIMER - -IF COMMAND$ = "-COPPER" THEN copper: END - -SCREEN 13 -deedlinesax 15 -delay 140 -deedlinesax 0 -CLS - -prehistoricode -sucking -delay 140 - - - -xit% = 0 - -'$DYNAMIC -DIM SHARED r%(0 TO 255), g%(0 TO 255), B%(0 TO 255) -DIM SHARED r1%(0 TO 255), g1%(0 TO 255), b1%(0 TO 255) -DIM SHARED fpos%(0 TO 255) -fp% = 256 * 86: DIM SHARED fonts%(0 TO fp%) -'$STATIC - -'DIM SHARED fsin1%(-48 TO 826), fsin2%(-640 TO 602), fsin3%(-640 TO 715) -DIM SHARED fsin4%(-319 TO 602) - -DIM SHARED fsin1%(-48 TO 1083) -DIM SHARED fsin2%(-640 TO 957) -DIM SHARED fsin3%(-640 TO 871) - -DIM SHARED mod256128%(-168 TO 168) -DIM SHARED sp%(16384) - -DIM SHARED dt%(-192 TO 180) -DIM SHARED dt100%(-180 TO 180) - - -DIM SHARED cd%(0 TO 1792) - - -DIM SHARED dsx%(10), dsy%(10), psx%(10), psy%(10), xp1%(10), yp1%(10), yy%(10) -DIM SHARED epi6%(0 TO 5), epi36%(0 TO 5) - -DIM SHARED cy%(-100 TO 300) - - - -DIM SHARED dis%(320), sla%(320), slb%(320), slc%(320), sc%(320) -DIM SHARED div2%(255), div4%(320), mul32%(32), mul128%(128) -DIM SHARED fs%(0 TO 199) -'DIM SHARED map%(1024) -DIM SHARED kon%(127) -DIM SHARED ka%(4) - - - -setcrosfadepal r%(), r1%(), g%(), g1%(), B%(), b1%() -getpal -fadetocolor 0, 255, 1, 0, 0, 0 - -a$ = "fonts16.fnt" -c$ = " " - -open ".\programs\samples\pete\optimus\"+a$ FOR BINARY AS #1 - - -FOR i% = 0 TO 255 -GET #1, , c$: fpos%(i%) = ASC(c$) -NEXT i% - - -FOR i% = 0 TO 85 - -FOR y% = 0 TO 15 -FOR x% = 0 TO 15 -GET #1, , c$ -fonts%(i% * 256 + y% * 16 + x%) = ASC(c$) -NEXT x% -NEXT y% - -NEXT i% - -CLOSE #1 - -'$DYNAMIC -DIM SHARED text$(3, 11) -'$STATIC - -text$(0, 0) = " Ok! Let's get " -text$(0, 1) = " serious now :) " -text$(0, 2) = " " -text$(0, 3) = " Hopefully you will " -text$(0, 4) = "see a nice demo from" -text$(0, 5) = "my side and not old " -text$(0, 6) = " prehistoric line " -text$(0, 7) = " drawing and lame " -text$(0, 8) = "oldstyle qbasic code" -text$(0, 9) = " " -text$(0, 10) = " But let's crosfade " -text$(0, 11) = " some more text now!" - -text$(1, 0) = " Optimus presents " -text$(1, 1) = " a demo done in a " -text$(1, 2) = " hurry by connecting" -text$(1, 3) = " various older or " -text$(1, 4) = " newer sources into " -text$(1, 5) = " the main programm. " -text$(1, 6) = " " -text$(1, 7) = " All coded in pure " -text$(1, 8) = " Quickbasic 4.5 " -text$(1, 9) = " Use ffix.com for " -text$(1, 10) = " maximum pleasure " -text$(1, 11) = " " - - -text$(2, 0) = " Featuring effects " -text$(2, 1) = "like Sphere mapping " -text$(2, 2) = "circle blobs,rgb8bpp" -text$(2, 3) = "lights, zoom distort" -text$(2, 4) = "plasma inside blob, " -text$(2, 5) = "hardware raster fx " -text$(2, 6) = "3d dots and a simple" -text$(2, 7) = "raycaster engine. " -text$(2, 8) = " Some are not so " -text$(2, 9) = "optimized as I could" -text$(2, 10) = "and few have several" -text$(2, 11) = "bugs too.. " - - -text$(3, 0) = "They still run at " -text$(3, 1) = "full frame rate in " -text$(3, 2) = "my AMDK6-2/500Mhz, " -text$(3, 3) = "though I had thought" -text$(3, 4) = "ways to optimize " -text$(3, 5) = "them even more. " -text$(3, 6) = " Anyways.." -text$(3, 7) = "lean back and enjoy!" -text$(3, 8) = " " -text$(3, 9) = " Optimus/Dirty Minds" -text$(3, 10) = " Thessaloniki/Greece" -text$(3, 11) = " Saturday 25/05/2002" - -CLS -dl% = 840 - -initcrosfadepics 0, 1 -fadefromcolor 0, 255, 256, 0, 0, 0 - -delay dl% -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - - -crosfade r%(), r1%(), g%(), g1%(), B%(), b1%() -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - -initcrosfadepics 1, 1 -setcrosfadepal r%(), r1%(), g%(), g1%(), B%(), b1%() -initcrosfadepics 1, 2 -delay dl% -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - -crosfade r%(), r1%(), g%(), g1%(), B%(), b1%() -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - - -delay dl% -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - -initcrosfadepics 2, 2 -setcrosfadepal r%(), r1%(), g%(), g1%(), B%(), b1%() -initcrosfadepics 2, 3 -crosfade r%(), r1%(), g%(), g1%(), B%(), b1%() -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - - -delay dl% -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - -getpal -fadetocolor 0, 255, 256, 63, 63, 63 -IF xit% = 1 THEN xit% = 2: getpal: fadetocolor 0, 255, 64, 0, 0, 0: GOTO endfadetext - - -endfadetext: -xit% = 0 - -LINE (0, 0)-(320, 200), 255, BF - - -spheremaplasma -xit% = 0 -zoomdistort -xit% = 0 -getpal -fadetocolor 0, 255, 31, 0, 0, 0 -CLS - - -' ------------- RGB Lights --------------- - -rgblights -xit% = 0 - - - - - - - -' ------------- 3D Dots --------------- - -'$DYNAMIC -DIM SHARED x(4096), y(4096), z(4096) -DIM SHARED xo%(4096), yo%(4096), zo%(4096) -DIM SHARED xs%(4096, 1), ys%(4096, 1) -'DIM SHARED pl%(8192, 2), ln%(8192, 1) -DIM SHARED ypk&(-100 TO 99) -DIM SHARED zpo%(8) -'$STATIC - - -CLS - -' ------ Precalculations for Wavelet ----- - - -FOR i% = 0 TO 826 -fsin1%(i%) = SIN(i% / 50) * 48 -NEXT i% - - -' ------ Precalculations for Poke ------ - - -FOR i& = -100 TO 99 -ypk&(i&) = (i& + 100) * 320 -NEXT i& - -' --------------------------------------- - - -actions3d - -xit% = 0 -' -------- Cycleblobs ------------ - -ERASE fsin2%, fsin3% -cycleblobs -xit% = 0 - -CLS -plasmablobs -xit% = 0 -LINE (0, 0)-(320, 200), 255, BF - - - - -'dm% = 16384 -'DIM SHARED mapout%(dm%) - - - -setpal 0, 255, 0, 0, 0, 63, 63, 63 - -getmap "wolfmap0.wad" -precalculations - - -k$ = " " - -a$ = "3rdrec.rec" -gi$ = " ": gg$ = " " -g% = 0: gi% = 0 - -open ".\samples\pete\optimus\"+a$ FOR BINARY AS #2 -GET #2, , gi$: gi% = ASC(gi$): GET #2, , gg$: gg% = ASC(gg$) - - -WHILE INKEY$ <> "": WEND - -' ----------------- Some important data ----------------- - -ph% = 32: px% = 64 + 32: py% = 64 + 32: pa% = 90: ps% = 3 -fv% = 60: ra = fv% / 320: dpp% = 160 / TAN((fv% \ 2) / 57.3) -map% = 0 - -k% = 0 -fps% = 0 -filei% = 0 - -DO WHILE INKEY$ = "" -fps% = fps% + 1 -IF fps% = 558 THEN map% = 1 -IF fps% = 2148 THEN map% = 0 -IF fps% = 3500 THEN map% = 1 -IF fps% = 4760 THEN map% = 0 - -keyaction -loadrecord -Actions -sp%(mul128%(py% \ 16) + px% \ 16) = 64 - -Intersections -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -Output0 - - -IF filei% = 194 THEN GOTO telos - -LOOP - -telos: -CLOSE #2 - -xit% = 0 -getpal -fadetocolor 0, 255, 255, 0, 0, 0 - -SUB Actions - -SHARED kb%, px%, py%, pa%, ps%, map% - -WHILE kon%(75) = 1 -pa% = pa% + 1 -IF pa% > 360 THEN pa% = 0 + (pa% - 360) -GOTO 101 -WEND - -101 -WHILE kon%(77) = 1 -pa% = pa% - 1 -IF pa% < 0 THEN pa% = 360 + pa% -GOTO 102 -WEND - -102 -WHILE kon%(72) = 1 -pxd% = COS(pa% / 57.3) * ps% -pyd% = SIN(pa% / 57.3) * ps% -px% = px% + pxd% -IF cd%(mul32%(py% \ 64) + px% \ 64) = 1 THEN px% = px% - pxd% -py% = py% - pyd% -IF cd%(mul32%(py% \ 64) + px% \ 64) = 1 THEN py% = py% + pyd% -GOTO 103 -WEND - -103 -WHILE kon%(80) = 1 -pxd% = COS(pa% / 57.3) * ps% -pyd% = SIN(pa% / 57.3) * ps% -px% = px% - pxd% -IF cd%(mul32%(py% \ 64) + px% \ 64) = 1 THEN px% = px% + pxd% -py% = py% + pyd% -IF cd%(mul32%(py% \ 64) + px% \ 64) = 1 THEN py% = py% - pyd% -GOTO 104 -WEND - -104 -WHILE kon%(15) = 1 -IF map% = 0 THEN map% = 1 ELSE map% = 0 -GOTO 105 -WEND - -105 -WHILE kon%(1) = 1 -END -WEND - -WHILE INKEY$ <> "": WEND - -END SUB - -SUB actions3d - -SHARED xit% - -SHARED ndts%, ndtso% -SHARED xc, yc, zc, rxc, ryc, rzc -SHARED xp, yp, zp -SHARED gi$, gg$ -SHARED k%, obj% -SHARED ftype%, filei% -SHARED mtr - - -CONST pi = 3.1415926# -mtr = pi / 180 -k% = 0 - -gi$ = " " -gg$ = " " -xp = 0: yp = 0: zp = 800 - -'kyvos 100 -'sphere 200 -'torus 600 -'wavelet 800 -'teapot,cow 300 - -zpo%(1) = 100 -zpo%(2) = 200 -zpo%(3) = 600 -zpo%(4) = 800 -zpo%(5) = 300 -zpo%(6) = 300 - - - - -SCREEN 13 -COLOR 255 - - - -DEF SEG = &HA000 -xc = 0: yc = 0: zc = 0 -rxc = 0: ryc = 0: rzc = 0 - - -f$ = "3drec.001" -OPEN ".\samples\pete\optimus\"+f$ FOR BINARY AS #2 - -k% = 0 -DO -B$ = INKEY$: IF B$ = "x" THEN END -load3drecord -IF ASC(gg$) = 0 THEN a$ = "" ELSE a$ = gg$ - - -WHILE a$ = "s" OR a$ = "S" -setpal 0, 255, 0, 0, 0, 63, 63, 63 -obj% = 1 -'zp = zpo%(obj%) -createobject obj% -ndtso% = 64: ndts% = ndtso% -a$ = "" -WEND - -WHILE a$ = "d" OR a$ = "D" -setpal 0, 255, 0, 0, 0, 63, 47, 15 -obj% = 2 -'zp = zpo%(obj%) -createobject obj% -ndtso% = 256: ndts% = ndtso% -a$ = "" -WEND - -WHILE a$ = "f" OR a$ = "F" -setpal 0, 255, 0, 0, 0, 31, 63, 47 -obj% = 3 -'zp = zpo%(obj%) -createobject obj% -ndtso% = 512: ndts% = ndtso% -a$ = "" -WEND - -WHILE a$ = "g" OR a$ = "G" -setpal 0, 255, 0, 0, 0, 15, 31, 63 -obj% = 4 -'zp = zpo%(obj%) -createobject obj% -ndtso% = 64: ndts% = 0 -a$ = "" -WEND - -WHILE a$ = "h" OR a$ = "H" -setpal 0, 255, 0, 0, 0, 0, 63, 63 -obj% = 5 -'zp = zpo%(obj%) -loadobject "hiteapot.3do" -ndtso% = 0 -a$ = "" -WEND - -WHILE a$ = "j" OR a$ = "J" -setpal 0, 255, 0, 0, 0, 63, 31, 47 -obj% = 6 -'zp = zpo%(obj%) -loadobject "cow.3do" -ndtso% = 0 -a$ = "" -WEND - - -WHILE a$ = "," OR a$ = "<" - -clearscreen 0 -IF ndts% - ndtso% > 0 THEN ndts% = ndts% - ndtso% -a$ = "" -WEND - -WHILE a$ = "." OR a$ = ">" -'clearscreen 0 -IF ndts% + ndtso% < 4096 THEN ndts% = ndts% + ndtso% -a$ = "" -WEND - - -WHILE a$ = "k" OR a$ = "K" -'clearscreen 0 -xp = -zpo%(obj%) * 1.5: yp = 0: zp = zpo%(obj%) -xc = 0: yc = 0: zc = 0 -a$ = "" -WEND - -WHILE a$ = "l" OR a$ = "L" -'clearscreen 0 -xp = zpo%(obj%) * 1.5: yp = 0: zp = zpo%(obj%) -xc = 0: yc = 0: zc = 0 -a$ = "" -WEND - - -WHILE a$ = "u" OR a$ = "U" -'clearscreen 0 -xp = 0: yp = zpo%(obj%) * 1.5: zp = zpo%(obj%) -xc = 0: yc = 0: zc = 0 -a$ = "" -WEND - -WHILE a$ = "y" OR a$ = "Y" -'clearscreen 0 -xp = 0: yp = -zpo%(obj%) * 1.5: zp = zpo%(obj%) -xc = 0: yc = 0: zc = 0 -a$ = "" -WEND - -WHILE a$ = "m" OR a$ = "M" -'clearscreen 0 -xp = 0: yp = 0: zp = -zpo%(obj%) \ 2 -xc = 0: yc = 0: zc = 0 -a$ = "" -WEND - - - - - - -WHILE a$ = "a" OR a$ = "A" -yc = yc + .1 -a$ = "" -WEND - -WHILE a$ = "Q" OR a$ = "q" -yc = yc - .1 -a$ = "" -WEND - -WHILE a$ = "o" OR a$ = "O" -xc = xc - .1 -a$ = "" -WEND - -WHILE a$ = "p" OR a$ = "P" -xc = xc + .1 -a$ = "" -WEND - -WHILE a$ = "-" -zc = zc + .25 -a$ = "" -WEND - -WHILE a$ = "=" OR a$ = "+" -zc = zc - .25 -a$ = "" -WEND - -WHILE a$ = "z" OR a$ = "Z" -xr = 0: yr = 0: zr = 0 -rxc = 0: ryc = 0: rzc = 0 -a$ = "" -WEND - - - -WHILE a$ = "x" OR a$ = "X" -END -WEND - -WHILE a$ = "4" -ryc = ryc - .005 -a$ = "" -WEND - -WHILE a$ = "6" -ryc = ryc + .005 -a$ = "" -WEND - -WHILE a$ = "8" -rxc = rxc - .005 -a$ = "" -WEND - -WHILE a$ = "2" -rxc = rxc + .005 -a$ = "" -WEND - -WHILE a$ = "7" -rzc = rzc - .005 -a$ = "" -WEND - -WHILE a$ = "9" -rzc = rzc + .005 -a$ = "" -WEND - - -WHILE a$ = "w" OR a$ = "W" -clearscreen 1 -ftype% = 0 -a$ = "" -WEND - -WHILE a$ = "e" OR a$ = "E" -ftype% = 1 -a$ = "" -WEND - -WHILE a$ = "r" OR a$ = "R" -ftype% = 2 -a$ = "" -WEND - - -xp = xp + xc: yp = yp + yc: zp = zp + zc -xr = xr + rxc: yr = yr + ryc: zr = zr + rzc - - -IF obj% = 4 THEN animatewavelet k%: k% = k% + 1: IF k% = 314 THEN k% = 0 - -rotate3d xr, yr, zr -mov3dpos xp, yp, zp -translate3d -output3d - -IF filei% = 4446 THEN GOTO telos2 - -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO telos2 - - -LOOP - - -telos2: -filei% = 0 - -CLOSE #2 - -END SUB - -SUB animatewavelet (k%) - - -l% = 0 -FOR z% = 0 TO 511 STEP 8 -FOR x% = 0 TO 511 STEP 8 - -xo%(l%) = x% - 256: zo%(l%) = z% - 256 -yo%(l%) = fsin1%(x% + k%) + fsin1%(z% + k%) - - -l% = l% + 1 -NEXT x% -NEXT z% - -END SUB - -SUB clearscreen (c%) - - -FOR y% = 0 TO 199 -DEF SEG = &HA000 + y% * 20 - -FOR x% = 0 TO 319 -POKE x%, c% -NEXT x% - -NEXT y% - -DEF SEG = &HA000 - - -END SUB - -SUB copper - -CLS - -'WHILE INKEY$ <> "": WEND -'SCREEN 0 - -LOCATE 2, 32: PRINT "Congratulations!" -LOCATE 4, 2: PRINT "You have just found the secret part of the demo, even if I guess it was quite" -LOCATE 5, 2: PRINT "easy, since I use to give away the source of every quickbasic demo of mine ;)" -PRINT -PRINT " These are supposed to be hardware fx inspired by Amiga, C64, CPC or any other" -PRINT "raster display computer that happens to exist. Quite unstable if you are running" -PRINT "them under windows, so I suggest to boot up in pure DOS and retry there.." -PRINT -PRINT " What you are just watching are called raster or copper bars. Originally 1st" -PRINT "seen in Amiga demos, giving to the machine the opportunity to display more than" -PRINT "the theoritical maximum number of colors (This is text mode!) in the screen (But" -PRINT "mostly used as horizontal colorfull lines and not per pixel. Do you remember" -PRINT "Shadow of the Beast or Agony, which used to have extra colors upon a colorfull" -PRINT "sky in the background?)" -PRINT " They are so simple fx, just changing the RGB values of just one color several" -PRINT "times in a frame, synced with the raster beam of the CRT (You can use the &HDA " -PRINT "port address you know from Vsync to use for horizontal syncing too, by checking" -PRINT " the 1st bit, in the similar way you did that for the 4th bit for Vsync!)" - -PRINT -PRINT "It seems that I have 2 go, unfortunatelly haven't explained you about the next" -PRINT "effects you are gonna see if you press any key.." -PRINT " Optimus" - - - -DIM c%(1 TO 32) -DIM xb%(0 TO 319) -DIM ds%(1 TO 32), ps%(1 TO 32) -DIM xp%(32) -DIM rgb%(15, 15) -'DIM b01%(-1024 TO 1024) -'DIM b02%(-1024 TO 1024) -DIM b01%(-640 TO 640) -DIM b02%(-640 TO 640) - -DIM y2%(0 TO 399) -DIM lc%(0 TO 399) - - -DIM l%(3) -DIM br%(-200 TO 500) - -k% = 0 -FOR i% = 168 TO 200 -IF k% > 63 THEN k% = 63 -br%(i%) = k% -k% = k% + 2 -NEXT i% - -FOR i% = 201 TO 232 -k% = k% - 2 -IF k% < 0 THEN k% = 0 -br%(i%) = k% -NEXT i% - - -k% = 0 -DO WHILE INKEY$ = "" - -k% = k% + 1 - -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 - -l%(1) = SIN(k% / 25) * 120 -l%(2) = SIN(k% / 45) * 110 -l%(3) = SIN(k% / 35) * 100 - - -FOR i% = 0 TO 380 - -WAIT &H3DA, 1, 1: WAIT &H3DA, 1 - -OUT &H3C8, 0 -OUT &H3C9, br%(i% + l%(1)) -OUT &H3C9, br%(i% + l%(2)) -OUT &H3C9, br%(i% + l%(3)) - -NEXT i% - - - -LOOP - - - - -SCREEN 13 - -OUT &H3D4, &H13 -OUT &H3D5, 0 - -FOR i% = 1 TO 16 -OUT &H3C8, i% -OUT &H3C9, (i% - 1) * 4 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 17 TO 32 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, (i% - 17) * 4 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 33 TO 48 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, (i% - 33) * 4 -NEXT i% - -FOR i% = 49 TO 64 -OUT &H3C8, i% -OUT &H3C9, (i% - 49) * 4 -OUT &H3C9, (i% - 49) * 4 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 65 TO 80 -OUT &H3C8, i% -OUT &H3C9, (i% - 65) * 4 -OUT &H3C9, 0 -OUT &H3C9, (i% - 65) * 4 -NEXT i% - -FOR i% = 81 TO 96 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, (i% - 81) * 4 -OUT &H3C9, (i% - 81) * 4 -NEXT i% - -FOR i% = 97 TO 112 -OUT &H3C8, i% -OUT &H3C9, (i% - 97) * 4 -OUT &H3C9, (i% - 97) * 2 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 113 TO 128 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, (i% - 113) * 2 -OUT &H3C9, (i% - 113) * 4 -NEXT i% - - - - - - -FOR i% = 1 TO 16: c%(i%) = i%: NEXT i% -FOR i% = 17 TO 32: c%(i%) = 33 - i%: NEXT i% - - - -FOR i% = 1 TO 32 -ds%(i%) = INT(RND * 63 + 32) -ps%(i%) = INT(RND * 127) -NEXT i% - - -DEF SEG = &HA000 - -k% = 0 -DO WHILE INKEY$ = "" - - -k% = k% + 1 - -FOR i% = 1 TO 8 -xp%(i%) = SIN(k% / ds%(i%)) * ps%(i%) + ps%(i%) + (280 - 2 * ps%(i%)) \ 2 -NEXT i% - -FOR ii% = 1 TO 8 -FOR i% = 1 TO 32 -xb%(i% + xp%(ii%)) = c%(i%) + 16 * (ii% - 1) -NEXT i% -NEXT ii% - - -WAIT &H3DA, 8 -FOR i% = 0 TO 319 -POKE i%, xb%(i%) -POKE i% + 80, xb%(i%) -NEXT i% -WAIT &H3DA, 8, 8 - - - - -l%(1) = SIN(k% / 25) * 120 -l%(2) = SIN(k% / 45) * 110 -l%(3) = SIN(k% / 35) * 100 - - -FOR i% = 0 TO 380 - - -WAIT &H3DA, 1, 1: WAIT &H3DA, 1 - -OUT &H3C8, 0 -OUT &H3C9, br%(i% + l%(1)) -OUT &H3C9, br%(i% + l%(2)) -OUT &H3C9, br%(i% + l%(3)) - -NEXT i% - -FOR i% = 0 TO 319: xb%(i%) = 0: NEXT i% - - -LOOP - - - - - -' --------- Translucent copper bars ----------- - - - -c% = 0 -OUT &H3C8, 0 - -FOR a% = 0 TO 15 -FOR B% = 0 TO 15 - -OUT &H3C9, a% * 2 + 33 -OUT &H3C9, 0 -OUT &H3C9, B% * 2 + 33 - -rgb%(a%, B%) = c% -c% = c% + 1 - -NEXT B% -NEXT a% - - -OUT &H3D4, &H13 -OUT &H3D5, 0 - -'DIM fsin1%(0 TO 1083) -'DIM fsin2%(0 TO 957) -'DIM fsin3%(-471 TO 871) - -FOR i% = 0 TO 1083: fsin1%(i%) = SIN(i% / 45) * 63 + 92: NEXT i% -FOR i% = 0 TO 957: fsin2%(i%) = SIN(i% / 25) * 31 + 31: NEXT i% -FOR i% = -471 TO 871: fsin3%(i%) = SIN(i% / 75) * 91 + 127: NEXT i% - -DIM p16%(0 TO 15) -FOR i% = 0 TO 15 -p16%(i%) = i% * 16 -NEXT i% - - -DIM c1%(0 TO 7), c2%(0 TO 7), c3%(0 TO 7) - -FOR i% = 0 TO 5: c1%(i%) = i% + 1: c2%(i%) = i% + 7: c3%(i%) = i% + 13: NEXT i% - -FOR i% = 0 TO 399: y2%(i%) = i% * 2: NEXT i% - - -FOR i% = 0 TO 399: lc%(i%) = i% / 6.4: NEXT i% - - - -y1% = 0 -fps% = 0 -DO WHILE INKEY$ = "" -k% = k% + 3: IF k% >= 283 THEN k% = 0 -l% = l% + 2: IF l% >= 157 THEN l% = 0 -m% = m% + 1: IF m% >= 471 THEN m% = 0 -fps% = fps% + 1 - -IF fps% < 400 AND y1% < 395 THEN y1% = y1% + 1 -IF fps% > 1200 AND y1% <> 0 THEN y1% = y1% - 1 -IF y1% = 0 THEN GOTO out1 - - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 - - -'GOTO 17 -OUT &H3C8, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -17 - -DEF SEG = &HA000 - -FOR y% = 0 TO y1% - -WAIT &H3DA, 1, 1: WAIT &H3DA, 1 - - - - -f1% = fsin2%(y2%(y%) + l%) + fsin3%(y% - m%) -f2% = fsin2%(y% + l%) + fsin1%(y2%(y%) + k%) - - -FOR i% = 1 TO 15 - -b01%(f1% + i%) = i% -b02%(f2% + i%) = p16%(i%) - -POKE f1% + i%, i% OR b02%(f1% + i%) -POKE f2% + i%, p16%(i%) OR b01%(f2% + i%) -NEXT i% - - -OUT &H3C8, 0 -OUT &H3C9, (63 - lc%(y%)) -OUT &H3C9, (63 - lc%(y%)) / 2 -OUT &H3C9, lc%(y%) - - -NEXT y% - - -FOR i% = 0 TO 319: POKE i%, 0: NEXT i% -FOR i% = 0 TO 319: b01%(i%) = 0: b02%(i%) = 0: NEXT i% - -LOOP - -out1: - - - - - - - -' --------- RGB copper bars ----------- - - - -CLS - -FOR i% = 0 TO 7 -OUT &H3C8, i% -OUT &H3C9, i% * 5 + 28 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT i% - - -FOR i% = 8 TO 15 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, (i% - 8) * 5 + 28 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 16 TO 23 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, (i% - 16) * 5 + 28 -NEXT i% - - -OUT &H3D4, &H13 -OUT &H3D5, 0 - -FOR i% = 0 TO 7: c1%(i%) = i%: c2%(i%) = i% + 8: c3%(i%) = i% + 16: NEXT i%: c1%(0) = 1 - - - - - -k% = 0 -l% = 0 -m% = 0 -fps% = 0 -y1% = 0 -DO WHILE INKEY$ = "" -k% = k% + 3: IF k% >= 283 THEN k% = 0 -l% = l% + 2: IF l% >= 157 THEN l% = 0 -m% = m% + 1: IF m% >= 471 THEN m% = 0 - -fps% = fps% + 1 - -IF fps% < 400 AND y1% < 395 THEN y1% = y1% + 1 -IF fps% > 1200 AND y1% <> 0 THEN y1% = y1% - 1 -IF y1% = 0 THEN GOTO out2 - - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 - -DEF SEG = &HA000 - -FOR y% = 0 TO y1% - -WAIT &H3DA, 1 - -FOR i% = 0 TO 7 -POKE fsin2%(y2%(y%) + l%) + fsin3%(y% - m%) + i%, c1%(i%) -POKE fsin2%(y% + l%) + fsin1%(y2%(y%) + k%) + i%, c2%(i%) -POKE fsin1%(y% + k%) + fsin2%(y% + l%) + fsin3%(y% + m%) + i% - 99, c3%(i%) -NEXT i% - -OUT &H3C8, 0 -OUT &H3C9, lc%(y%) -OUT &H3C9, 63 - lc%(y%) -OUT &H3C9, 63 - lc%(y%) - -WAIT &H3DA, 1, 1 - -NEXT y% - - -FOR i% = 0 TO 319: POKE i%, 0: NEXT i% - -LOOP - -out2: - - -OUT &H3D4, &H28 -OUT &H3D5, &H13 - -SCREEN 13 -SCREEN 1 - -OUT &H3D4, &H28 -OUT &H3D5, &H13 - -END SUB - -SUB createobject (a%) - - -CONST pi = 3.1415926# -rtm = 180 / pi - - -clearscreen 0 - -SELECT CASE a% - - -CASE 1 - -' ========== Creating object 1 - Cube ========== - - -FOR i% = 0 TO 4 - -xo%(i%) = 2 * i% - 5: yo%(i%) = 5: zo%(i%) = 5 -xo%(i% + 5) = 2 * i% - 5: yo%(i% + 5) = 5: zo%(i% + 5) = -5 -xo%(i% + 10) = 2 * i% - 5: yo%(i% + 10) = -5: zo%(i% + 10) = 5 -xo%(i% + 15) = 2 * i% - 5: yo%(i% + 15) = -5: zo%(i% + 15) = -5 -xo%(i% + 20) = -5: yo%(i% + 20) = 5: zo%(i% + 20) = 2 * i% - 5 -xo%(i% + 25) = 5: yo%(i% + 25) = 5: zo%(i% + 25) = 2 * i% - 5 -xo%(i% + 30) = -5: yo%(i% + 30) = -5: zo%(i% + 30) = 2 * i% - 5 -xo%(i% + 35) = 5: yo%(i% + 35) = -5: zo%(i% + 35) = 2 * i% - 5 -xo%(i% + 40) = 5: yo%(i% + 40) = 2 * i% - 5: zo%(i% + 40) = 5 -xo%(i% + 45) = 5: yo%(i% + 45) = 2 * i% - 5: zo%(i% + 45) = -5 -xo%(i% + 50) = -5: yo%(i% + 50) = 2 * i% - 5: zo%(i% + 50) = 5 -xo%(i% + 55) = -5: yo%(i% + 55) = 2 * i% - 5: zo%(i% + 55) = -5 - -NEXT i% - -xo%(60) = 5: yo%(60) = 5: zo%(60) = 5 -xo%(61) = 5: yo%(61) = 5: zo%(61) = 5 -xo%(62) = 5: yo%(62) = 5: zo%(62) = 5 -xo%(63) = 5: yo%(63) = 5: zo%(63) = 5 - - - -' ========== Random copier for object 1 ========== - -FOR j% = 1 TO 63 -metx% = INT(RND * 64 - 32) -mety% = INT(RND * 64 - 32) -metz% = INT(RND * 64 - 32) - -FOR i% = 0 TO 63 -xo%(i% + j% * 64) = xo%(i%) + metx% -yo%(i% + j% * 64) = yo%(i%) + mety% -zo%(i% + j% * 64) = zo%(i%) + metz% -NEXT i% - -NEXT j% - -' ================================= - - - -CASE 2 - - -' ========== Creating object 2 - Sphere ========== - - -j% = 0 -FOR i% = 90 TO 270 STEP 11.25 -c = i% / rtm -xo%(j%) = COS(c) * 63: yo%(j%) = SIN(c) * 63: zo%(j%) = 0 -j% = j% + 1 -NEXT i% - - - -yr = 0 -FOR i% = 1 TO 15 - -yr = yr + 22.5 - -c = yr / rtm - -cosyr = COS(c) -sinyr = SIN(c) - -FOR j% = 0 TO 15 -xo%(j% + i% * 16) = cosyr * xo%(j%) - sinyr * zo%(j%) -zo%(j% + i% * 16) = sinyr * xo%(j%) + cosyr * zo%(j%) -yo%(j% + i% * 16) = yo%(j%) -NEXT j% - -NEXT i% - - - -' ========== Random copier for object 2 ========== - -FOR j% = 1 TO 15 -metx% = INT(RND * 512 - 256) -mety% = INT(RND * 512 - 256) -metz% = INT(RND * 512 - 256) - -FOR i% = 0 TO 255 -xo%(i% + j% * 256) = xo%(i%) + metx% -yo%(i% + j% * 256) = yo%(i%) + mety% -zo%(i% + j% * 256) = zo%(i%) + metz% -NEXT i% - -NEXT j% - - -CASE 3 - -' ========== Creating object 3 - Torus ========== - -j% = 0 -FOR i% = 0 TO 359 STEP 22.5 -c = i% / rtm -xo%(j%) = COS(c) * 64: yo%(j%) = SIN(c) * 64: zo%(j%) = 0 -j% = j% + 1 -NEXT i% - - -i% = 90 -c = i% / rtm -cosyr = COS(c) -sinyr = SIN(c) - -FOR i% = 0 TO 15 -xp = xo%(i%) -xo%(i%) = cosyr * xp - sinyr * zo%(i%) -zo%(i%) = sinyr * xp + cosyr * zo%(i%) -yo%(i%) = yo%(i%) - 192 -NEXT i% - - -zr = 0 - -FOR j% = 1 TO 31 -zr = zr + 11.25 -c = zr / rtm - -coszr = COS(c) -sinzr = SIN(c) - -FOR i% = 0 TO 15 -xo%(i% + j% * 16) = coszr * xo%(i%) - sinzr * yo%(i%) -yo%(i% + j% * 16) = sinzr * xo%(i%) + coszr * yo%(i%) -zo%(i% + j% * 16) = zo%(i%) -NEXT i% - -NEXT j% - - - -' ========== Random copier for object 3 ========== - -FOR j% = 1 TO 7 - -xr = (INT(RND * 180) - 90) / rtm -yr = (INT(RND * 180) - 90) / rtm -zr = (INT(RND * 180) - 90) / rtm -cosxr = COS(xr) -cosyr = COS(yr) -coszr = COS(zr) -sinxr = SIN(xr) -sinyr = SIN(yr) -sinzr = SIN(zr) - -metx% = INT(RND * 1024 - 512) -mety% = INT(RND * 1024 - 512) -metz% = INT(RND * 1024 - 512) - - -FOR i% = 0 TO 511 - -x(i%) = cosyr * xo%(i%) - sinyr * zo%(i%) -z(i%) = sinyr * xo%(i%) + cosyr * zo%(i%) - -y(i%) = cosxr * yo%(i%) - sinxr * z(i%) -z(i%) = sinxr * yo%(i%) + cosxr * z(i%) - -nx = x(i%) -x(i%) = coszr * nx - sinzr * y(i%) -y(i%) = sinzr * nx + coszr * y(i%) - -xo%(i% + j% * 512) = x(i%) + metx% -yo%(i% + j% * 512) = y(i%) + mety% -zo%(i% + j% * 512) = z(i%) + metz% -NEXT i% -NEXT j% - -CASE ELSE - - -END SELECT - - -END SUB - -SUB crosfade (r1%(), r2%(), g1%(), g2%(), b1%(), b2%()) - -SHARED xit% - -FOR k% = 0 TO 63 -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO endcrosfade - - -OUT &H3C8, 0 - FOR c% = 0 TO 255 - IF r1%(c%) < r2%(c%) THEN r1%(c%) = r1%(c%) + 1 ELSE IF r1%(c%) > r2%(c%) THEN r1%(c%) = r1%(c%) - 1 - IF g1%(c%) < g2%(c%) THEN g1%(c%) = g1%(c%) + 1 ELSE IF g1%(c%) > g2%(c%) THEN g1%(c%) = g1%(c%) - 1 - IF b1%(c%) < b2%(c%) THEN b1%(c%) = b1%(c%) + 1 ELSE IF b1%(c%) > b2%(c%) THEN b1%(c%) = b1%(c%) - 1 - OUT &H3C9, r1%(c%) - OUT &H3C9, g1%(c%) - OUT &H3C9, b1%(c%) - NEXT c% -NEXT k% - -endcrosfade: -END SUB - -SUB cycleblobs - -SHARED xit% - -n% = 7 - -FOR i% = 0 TO 127 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT i% - - -FOR y% = 0 TO 99 -FOR x% = 0 TO 159 -sp%(p%) = 16384 \ SQR((160 - x%) ^ 2 + (100 - y%) ^ 2) ^ 1.5 -IF sp%(p%) > 255 THEN sp%(p%) = 255 -p% = p% + 1 -NEXT x% -NEXT y% - -FOR i% = 0 TO 319 -IF i% < 160 THEN fsin2%(i%) = i% ELSE fsin2%(i%) = 319 - i% -NEXT i% - -FOR i% = 0 TO 199 -IF i% > 99 THEN fsin3%(i%) = (199 - i%) * 160 ELSE fsin3%(i%) = i% * 160 -NEXT i% - -FOR i% = 0 TO 1792 -IF i% > 255 THEN cd%(i%) = 255 ELSE cd%(i%) = i% -NEXT i% - -FOR i% = 1 TO n% -dsx%(i%) = INT(RND * 35 + 25) -dsy%(i%) = INT(RND * 35 + 25) -psx%(i%) = INT(RND * 64 + 64) -psy%(i%) = INT(RND * 50 + 50) -NEXT i% - -m% = 0: q% = 32: r%(1) = 1: g%(1) = 1: B%(1) = 1 - -fps% = 0 -DO -fps% = fps% + 1 -k% = k% + 1 -m% = m% + 1 -IF fps% < 1600 AND m% = q% THEN m% = 0: q% = INT(RND * 255 + 5): r%(1) = r%(2): g%(1) = g%(2): B%(1) = B%(2): r%(2) = INT(RND * 63) + 1: g%(2) = INT(RND * 63) + 1: B%(2) = INT(RND * 63) + 1 -IF fps% > 1600 AND fps% < 1855 AND m% = q% THEN sq% = 1: m% = 0: q% = 255: r%(1) = r%(2): g%(1) = g%(2): B%(1) = B%(2): r%(2) = 0: g%(2) = 0: B%(2) = 0 -IF fps% > 1856 AND sq% = 1 AND m% >= q% THEN GOTO gout4 -IF fps% > 2100 THEN GOTO gout4 -r% = r%(1) + (r%(2) - r%(1)) / q% * m% -g% = g%(1) + (g%(2) - g%(1)) / q% * m% -B% = B%(1) + (B%(2) - B%(1)) / q% * m% -IF r% = 0 THEN r% = 1 -IF g% = 0 THEN g% = 1 -IF B% = 0 THEN B% = 1 - -FOR c% = 128 TO 255 -OUT &H3C8, c% -IF c% < 192 THEN OUT &H3C9, (c% - 128) / (63 / r%): OUT &H3C9, (c% - 128) / (63 / g%): OUT &H3C9, (c% - 128) / (63 / B%) ELSE OUT &H3C9, (255 - c%) / (63 / r%): OUT &H3C9, (255 - c%) / (63 / g%): OUT &H3C9, (255 - c%) / (63 / B%) -NEXT c% - -FOR i% = 1 TO n% -xp1%(i%) = SIN(k% / dsx%(i%)) * psx%(i%) -yp1%(i%) = SIN(k% / dsy%(i%)) * psy%(i%) -NEXT i% - -yp% = 0 -FOR y% = 0 TO 199 -DEF SEG = &HA000 + yp% -yp% = yp% + 20 - -yy%(1) = fsin3%(y% - yp1%(1)) -yy%(2) = fsin3%(y% - yp1%(2)) -yy%(3) = fsin3%(y% - yp1%(3)) -yy%(4) = fsin3%(y% - yp1%(4)) -yy%(5) = fsin3%(y% - yp1%(5)) -yy%(6) = fsin3%(y% - yp1%(6)) -yy%(7) = fsin3%(y% - yp1%(7)) - -FOR x% = 24 TO 295 -dn% = sp%(yy%(1) + fsin2%(x% - xp1%(1))) + sp%(yy%(2) + fsin2%(x% - xp1%(2))) + sp%(yy%(3) + fsin2%(x% - xp1%(3))) + sp%(yy%(4) + fsin2%(x% - xp1%(4))) + sp%(yy%(5) + fsin2%(x% - xp1%(5))) + sp%(yy%(6) + fsin2%(x% - xp1%(6))) + sp%(yy%(7) + fsin2%( _ -x% - xp1%(7))) -POKE x%, cd%(dn%) - -NEXT x% -NEXT y% - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout4 - -LOOP -gout4: - -END SUB - -SUB deedlinesax (c%) - -SHARED xit% - -LINE (20, 20)-(25, 80), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (25, 80)-(60, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (60, 70)-(55, 30), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (55, 30)-(20, 20), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (25, 25)-(30, 60), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (30, 60)-(50, 65), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (50, 65)-(25, 25), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (23, 23), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (65, 20)-(100, 24), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (100, 24)-(70, 34), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (70, 34)-(85, 44), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (85, 44)-(75, 54), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (75, 54)-(75, 64), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (75, 64)-(85, 64), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (85, 64)-(70, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (70, 70)-(65, 20), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (66, 21), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (110, 30)-(130, 30), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (130, 30)-(110, 40), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (110, 40)-(110, 50), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (110, 50)-(125, 50), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (125, 50)-(125, 55), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (125, 55)-(110, 55), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (110, 55)-(110, 65), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (110, 65)-(120, 65), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (120, 65)-(120, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (120, 70)-(100, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (100, 70)-(110, 30), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (111, 31), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (150, 40)-(130, 20), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (130, 20)-(140, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (140, 70)-(150, 40), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (135, 30)-(140, 60), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (140, 60)-(145, 40), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (145, 40)-(135, 30), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (133, 25), f%, c%: delay 10 - - -LINE (160, 30)-(165, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (165, 70)-(190, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (190, 70)-(175, 65), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (175, 65)-(160, 30), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (164, 40), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (180, 20)-(190, 60), c%, BF: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (195, 20)-(195, 70), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (195, 70)-(200, 40), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (200, 40)-(220, 65), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (220, 65)-(220, 35), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (220, 35)-(215, 55), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (215, 55)-(195, 20), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (196, 30), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - - -LINE (245, 20)-(225, 20), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (225, 20)-(225, 60), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (225, 60)-(250, 60), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (250, 60)-(250, 50), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (250, 50)-(230, 50), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (230, 50)-(230, 40), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (230, 40)-(240, 40), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (240, 40)-(240, 35), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (240, 35)-(228, 35), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (228, 35)-(230, 25), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (230, 25)-(245, 20), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (227, 24), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -LINE (300, 5)-(260, 8), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (260, 8)-(290, 58), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (290, 58)-(250, 68), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (250, 68)-(305, 64), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (305, 64)-(270, 18), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax -LINE (270, 18)-(300, 5), c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - -IF c% = 15 THEN f% = INT(RND * 255) ELSE f% = 0 -PAINT (265, 10), f%, c%: delay 10: IF xit% = 1 THEN GOTO enddeedlinesax - - -COLOR c% \ 15 -LOCATE 1, 1: PRINT "SAX!" -delay 70: IF xit% = 1 THEN GOTO enddeedlinesax - -FOR y% = 0 TO 63 -FOR x% = 0 TO 255 -a% = POINT(x% \ 8, y% \ 8) * (SIN(y% / 45) * c% + COS(x% / 45) * c% + 2 * c%) -PSET (x% + 40, y% + 100), a% -NEXT x% -NEXT y% -delay 140: IF xit% = 1 THEN GOTO enddeedlinesax - -COLOR c% -LOCATE 22, 10: PRINT "Not so serious side :)": PRINT "Just for fun or boredom to draw anything" - -enddeedlinesax: - -END SUB - -SUB delay (t%) - -SHARED xit% - -FOR i% = 1 TO t% -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -keyaction -IF xit% = 1 THEN GOTO endelay -NEXT i% - -endelay: -END SUB - -SUB fadefromcolor (a%, c%, t%, r%, g%, B%) - -SHARED xit% - -FOR s% = 1 TO t% - -OUT &H3C8, a% -FOR k% = a% TO c% -OUT &H3C9, r% + s% * ((r%(k%) - r%) / t%) -OUT &H3C9, g% + s% * ((g%(k%) - g%) / t%) -OUT &H3C9, B% + s% * ((B%(k%) - B%) / t%) -NEXT k% - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO endfadefromcolor -NEXT s% - - -endfadefromcolor: -END SUB - -SUB fadetocolor (a%, c%, t%, r%, g%, B%) - -SHARED xit% - -FOR s% = 1 TO t% - -OUT &H3C8, a% -FOR k% = a% TO c% -OUT &H3C9, r%(k%) + s% * ((r% - r%(k%)) / t%) -OUT &H3C9, g%(k%) + s% * ((g% - g%(k%)) / t%) -OUT &H3C9, B%(k%) + s% * ((B% - B%(k%)) / t%) -NEXT k% - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO endfadetocolor - -NEXT s% - -endfadetocolor: -END SUB - -SUB getmap (a$) - -' ------------------ Get Map -------------------- - -open ".\samples\pete\optimus\"+a$ FOR BINARY AS #1 - -GET #1, 1, a$ -xg% = ASC(a$) -GET #1, 2, a$ -yg% = ASC(a$) - -k% = 2 -FOR y% = 0 TO yg% - 1 -FOR x% = 0 TO xg% - 1 - -k% = k% + 1 -GET #1, k%, a$ -cd%(y% * 32 + x%) = ASC(a$) - -NEXT x% -NEXT y% -CLOSE - -END SUB - -SUB getpal - -OUT &H3C7, 0 -FOR k% = 0 TO 255 -r%(k%) = INP(&H3C9) -g%(k%) = INP(&H3C9) -B%(k%) = INP(&H3C9) -NEXT k% - -END SUB - -SUB initcrosfadepics (a%, B%) - -FOR l% = 0 TO 11 - -FOR g% = 0 TO 19 -c$ = MID$(text$(a%, l%), g% + 1, 1) -d$ = MID$(text$(B%, l%), g% + 1, 1) - -yp% = 0 -FOR y% = 0 TO 15 -DEF SEG = &HA000 + yp% + l% * 320 -yp% = yp% + 20 - -FOR x% = 0 TO 15 -POKE x% + g% * 16, fonts%(fpos%(ASC(c$)) * 256 + y% * 16 + x%) OR (fonts%(fpos%(ASC(d$)) * 256 + y% * 16 + x%)) * 16 -NEXT x% -NEXT y% - -NEXT g% - -NEXT l% - -END SUB - -SUB Intersections - -SHARED px%, py%, pa%, ps% -SHARED va%, ra, dpp% - - -va = pa% + 32.2 -IF va > 360 THEN va = 32.2 - (360 - pa%) - -FOR sl% = 0 TO 319 -va = va - ra -IF va < 0 THEN va = 358.8 -va% = va - -IF va% = 0 OR va% = 180 OR va% = 360 THEN GOTO 112 - - -' ---------- Horizontal intersection ---------------- - -IF va% > 0 AND va% < 180 THEN ay% = (py% \ 64) * 64 - 1 ELSE IF va% > 180 AND va% < 360 THEN ay% = (py% \ 64) * 64 + 64 -ax% = px% + (py% - ay%) / TAN(va / 57.3) - -bx% = ax% \ 64 -by% = ay% \ 64 -IF bx% < 0 THEN bx% = 0 -IF bx% > 31 THEN bx% = 31 -IF by% < 0 THEN by% = 0 -IF by% > 31 THEN by% = 31 - -IF cd%(mul32%(by%) + bx%) = 1 THEN cx% = ax%: cy% = ay%: GOTO 112 - -IF va% > 0 AND va% < 180 THEN yd% = -64 ELSE IF va% > 180 AND va% < 360 THEN yd% = 64 - -xd% = (-yd%) / TAN(va / 57.3) -IF xd% > 2048 THEN xd% = 2048 -IF xd% < -2048 THEN xd% = -2048 -cx% = ax%: cy% = ay% - -DO -cx% = cx% + xd%: IF cx% > 2048 OR cx% < -2048 THEN GOTO 112 -cy% = cy% + yd%: IF cy% > 2048 OR cy% < -2048 THEN GOTO 112 -bx% = cx% \ 64: by% = cy% \ 64 -IF bx% < 0 THEN bx% = 0 -IF bx% > 31 THEN bx% = 31 -IF by% < 0 THEN by% = 0 -IF by% > 31 THEN by% = 31 - -LOOP UNTIL cd%(mul32%(by%) + bx%) = 1 OR bx% = 31 OR by% = 31 - - -112 -cxa% = cx%: cya% = cy% - -IF va% = 90 OR va% = 270 THEN GOTO 113 - - -' ---------- Vertical intersection ---------------- - -IF va% > 270 OR va% < 90 THEN ax% = (px% \ 64) * 64 + 64 ELSE IF va% > 90 OR va% < 270 THEN ax% = (px% \ 64) * 64 - 1 -ay% = py% - (ax% - px%) * TAN(va / 57.3) - -bx% = ax% \ 64 -by% = ay% \ 64 -IF bx% < 0 THEN bx% = 0 -IF bx% > 31 THEN bx% = 31 -IF by% < 0 THEN by% = 0 -IF by% > 31 THEN by% = 31 - -IF cd%(mul32%(by%) + bx%) = 1 THEN cx% = ax%: cy% = ay%: GOTO 113 - -IF va% > 270 OR va% < 90 THEN xd% = 64 ELSE IF va% > 90 OR va% < 270 THEN xd% = -64 - -yd% = (-xd%) * TAN(va / 57.3) -cx% = ax%: cy% = ay% - - -DO -cx% = cx% + xd%: cy% = cy% + yd% -bx% = cx% \ 64: by% = cy% \ 64 -IF bx% < 0 OR bx% > 31 THEN bx% = 31 -IF by% < 0 OR by% > 31 THEN by% = 31 - -LOOP UNTIL cd%(mul32%(by%) + bx%) = 1 OR bx% = 31 OR by% = 31 - -113 - - - -cxb% = cx%: cyb% = cy% - -wdisa% = SQR((px% - cxa%) ^ 2 + (py% - cya%) ^ 2) -wdisb% = SQR((px% - cxb%) ^ 2 + (py% - cyb%) ^ 2) - -IF wdisa% < wdisb% THEN wdis% = wdisa% ELSE wdis% = wdisb% - -dis%(sl%) = wdis% * COS((pa% - va) / 57.3) -slc%(sl%) = 64 * (dpp% / dis%(sl%)) -IF slc%(sl%) > 200 THEN slc%(sl%) = 200 -sc%(sl%) = 254 - dis%(sl%) \ 2: IF sc%(sl%) < 0 THEN sc%(sl%) = 0 - - -sla%(sl%) = (200 - slc%(sl%)) \ 2: slb%(sl%) = sla%(sl%) + slc%(sl%) - - - -NEXT sl% - -117 - -END SUB - -SUB keyaction - -SHARED xit% - -kb% = INP(&H60) -IF kb% = 1 THEN xit% = 1 -END SUB - -SUB load3drecord - -SHARED gi$, gg$, ggi%, gi%, filei%, gg% - -IF ggi% < gi% THEN ggi% = ggi% + 1 ELSE GET #2, , gi$: gi% = ASC(gi$): GET #2, , gg$: gg% = ASC(gg$): ggi% = 1: filei% = filei% + 2 - - -END SUB - -SUB loadobject (a$) - -SHARED ndts%, nlns%, npls% - -clearscreen 0 - -open ".\samples\pete\optimus\"+a$ FOR BINARY AS #1 - -GET #1, , ndts% -GET #1, , nlns% -GET #1, , npls% - -a$ = " " - -FOR i% = 0 TO ndts% - 1 -GET #1, , a$: xo%(i%) = ASC(a$) - 128 -GET #1, , a$: yo%(i%) = ASC(a$) - 128 -GET #1, , a$: zo%(i%) = ASC(a$) - 128 -NEXT i% - -FOR i% = 0 TO nlns% - 1 -'GET #1, , ln%(i%, 0) -'GET #1, , ln%(i%, 1) -NEXT i% - -FOR i% = 0 TO npls% - 1 -'GET #1, , pl%(i%, 0) -'GET #1, , pl%(i%, 1) -'GET #1, , pl%(i%, 2) -NEXT i% - -CLOSE #1 - -END SUB - -SUB loadqbinside - -' ------------ Load Quickbasic inside Big -------------- - -a$ = "qbrules.spr" -c$ = " " -open ".\samples\pete\optimus\"+a$ FOR BINARY AS #1 - -OUT &H3C8, 128 -FOR i% = 0 TO 383 -GET #1, , c$: OUT &H3C9, ASC(c$) -NEXT i% - - -xg% = 100 -yg% = 100 - -i% = 0 -FOR y% = 1 TO yg% -FOR x% = 1 TO xg% -GET #1, , c$: sp%(i%) = ASC(c$) -i% = i% + 1 -NEXT x% -NEXT y% -CLOSE #1 - - -END SUB - -SUB loadrecord - -SHARED k$, gi$, gg$, ggi%, gi%, filei%, gg% - -IF ggi% < gi% THEN ggi% = ggi% + 1 ELSE GET #2, , gi$: gi% = ASC(gi$): GET #2, , gg$: gg% = ASC(gg$): ggi% = 1: filei% = filei% + 2 -pushgg% = gg% -FOR i% = 4 TO 1 STEP -1 -IF gg% - 2 ^ (i% - 1) >= 0 THEN gg% = gg% - 2 ^ (i% - 1): ka%(i%) = 1 ELSE ka%(i%) = 0 -NEXT i% -gg% = pushgg% - -kon%(75) = ka%(1) -kon%(77) = ka%(2) -kon%(72) = ka%(3) -kon%(80) = ka%(4) - -END SUB - -SUB mov3dpos (xp, yp, zp) - -SHARED ndts% - -FOR i% = 0 TO ndts% - 1 -x(i%) = x(i%) + xp -y(i%) = y(i%) + yp -z(i%) = z(i%) + zp -NEXT i% - -END SUB - -SUB Output0 - -SHARED map%, px%, py% - -' -------------- Output ------------------ - -cx% = px% \ 64 -cy% = py% \ 64 - -SELECT CASE map% - -CASE 0 - -yp% = 0 -FOR y% = 0 TO 199 -DEF SEG = &HA000 + yp% -yp% = yp% + 20 - -FOR x% = 0 TO 319 - -IF y% > sla%(x%) AND y% < slb%(x%) THEN POKE x%, sc%(x%) ELSE POKE x%, fs%(y%) - -NEXT x% -NEXT y% - -sp%(mul128%(py% \ 16) + px% \ 16) = 24 - - -CASE 1 - -yp% = 0 -FOR y% = 0 TO 199 -DEF SEG = &HA000 + yp% -yp% = yp% + 20 - -FOR x% = 0 TO 319 - -IF y% > sla%(x%) AND y% < slb%(x%) THEN c% = sc%(x%) ELSE c% = fs%(y%) -IF x% > 127 OR y% > 127 THEN POKE x%, c% ELSE POKE x%, div2%(c%) + sp%(mul128%(y%) + x%) - -NEXT x% -NEXT y% - -sp%(mul128%(py% \ 16) + px% \ 16) = 24 - - -CASE ELSE -END SELECT - - -END SUB - -SUB output3d - -SHARED ftype%, ndts%, nlns%, obj% -SHARED filei% - -zp% = zpo%(obj%) -SELECT CASE ftype% - -CASE IS = 0 - -FOR i% = 0 TO ndts% - 1 - -xak% = xs%(i%, 1) + 160 -IF xak% > -1 AND xak% < 320 AND ys%(i%, 1) > -101 AND ys%(i%, 1) < 100 THEN POKE ypk&(ys%(i%, 1)) + xak%, 0 - -xsk% = xs%(i%, 0) + 160 -c% = 256 - z(i%) * (80 / zp%): IF c% < 80 THEN c% = 80 -IF xsk% > -1 AND xsk% < 320 AND ys%(i%, 0) > -101 AND ys%(i%, 0) < 100 THEN POKE ypk&(ys%(i%, 0)) + xsk%, c% - - -NEXT i% - - -SELECT CASE filei% - -CASE 0 TO 10, 780 TO 936, 1320 TO 1440, 2162 TO 2400, 3520 TO 3640, 4180 TO 4230 - -CASE ELSE -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -END SELECT - - -CASE ELSE - -'FOR i% = 0 TO nlns% - 1 -'LINE (xs%(ln%(i%, 0), 1) + 160, ys%(ln%(i%, 0), 1) + 100)-(xs%(ln%(i%, 1), 1) + 160, ys%(ln%(i%, 1), 1) + 100), 1 -'NEXT i% -clearscreen 1 - -OUT &H3C8, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 - -OUT &H3C8, 0 -OUT &H3C9, 63 -OUT &H3C9, 0 -OUT &H3C9, 0 - - -FOR i% = 0 TO nlns% - 1 -'LINE (xs%(ln%(i%, 0), 0) + 160, ys%(ln%(i%, 0), 0) + 100)-(xs%(ln%(i%, 1), 0) + 160, ys%(ln%(i%, 1), 0) + 100), 15 -NEXT i% - -END SELECT - - -END SUB - -SUB plasmablobs - -SHARED xit% - -meg = 1.3 -n% = 3 - - - -OUT &H3C8, 0 -FOR i% = 0 TO 127 -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 128 TO 159 -OUT &H3C9, 0 -OUT &H3C9, (i% - 128) * 2 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 160 TO 191 -OUT &H3C9, 0 -OUT &H3C9, (191 - i%) * 2 -OUT &H3C9, 0 -NEXT i% - -FOR i% = 192 TO 255 -OUT &H3C9, i% - 192 -OUT &H3C9, i% - 192 -OUT &H3C9, i% - 192 -NEXT i% - -getpal - -OUT &H3C8, 0 -FOR i% = 0 TO 255 -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT i% - - -FOR i% = -157 TO 518 -IF i% > -1 AND i% < 519 THEN fsin1%(i%) = SIN(i% / 45) * 63: fsin2%(i%) = SIN(i% / 35) * 127 -IF i% > -158 AND i% < 476 THEN fsin3%(i%) = SIN(i% / 25) * 31 -NEXT i% - - -rc% = -1 - -FOR i% = -1 TO -156 STEP -1 -dt100%(i%) = 63 - (i% - ((i% - 63) \ 64) * 64) -IF rc% = 1 THEN dt100%(i%) = 63 - dt100%(i%) -IF dt100%(i%) = 0 AND rc% = 1 THEN rc% = -1 -IF dt100%(i%) = 63 AND rc% = -1 THEN rc% = 1 -NEXT i% - -rc% = 1 - -FOR i% = 0 TO 156 -dt100%(i%) = i% - ((i%) \ 64) * 64 -IF rc% = -1 THEN dt100%(i%) = 63 - dt100%(i%) -IF dt100%(i%) = 63 AND rc% = 1 THEN rc% = -1 -IF dt100%(i%) = 0 AND rc% = -1 THEN rc% = 1 -NEXT i% - - - - -DIM cf%(0 TO 4095) - -l% = 0 -FOR i% = 0 TO 63 -FOR k% = 0 TO 63 -cf%(l%) = i% * (k% / 63) -l% = l% + 1 -NEXT k% -NEXT i% - - -i% = 0 -FOR y% = 0 TO 99 -FOR x% = 0 TO 159 -IF x% = 159 AND y% = 99 THEN sp%(i%) = 255 ELSE sp%(i%) = 16384 \ SQR((159 - x%) ^ 2 + (99 - y%) ^ 2) ^ meg -IF sp%(i%) > 255 THEN sp%(i%) = 255 -i% = i% + 1 -NEXT x% -NEXT y% - - - -FOR i% = -160 TO 479 -IF i% < 0 OR i% > 319 THEN fsin4%(i%) = 0 ELSE IF i% < 160 THEN fsin4%(i%) = i% ELSE fsin4%(i%) = 319 - i% -NEXT i% - -FOR i% = -100 TO 300 -IF i% < 0 OR i% > 199 THEN cy%(i%) = 0 ELSE IF i% > 99 THEN cy%(i%) = 199 - i% ELSE cy%(i%) = i% -cy%(i%) = cy%(i%) * 160 -NEXT i% - -FOR i% = 0 TO 767 -IF i% > 255 THEN cd%(i%) = 255 ELSE cd%(i%) = i% -NEXT i% - -FOR i% = -192 TO 63 -dt%(i%) = i% * 64 -NEXT i% - - - - -FOR i% = 1 TO n% -dsx%(i%) = INT(RND * 45 + 45) -dsy%(i%) = INT(RND * 30 + 30) -psx%(i%) = INT(RND * 80 + 80) -psy%(i%) = INT(RND * 50 + 50) -NEXT i% - -k% = 0 -l% = 0 - - -ax = TIMER - - -s% = 0: t% = 256 -s1% = 0: t1% = 256 -k0% = 128: k1% = 191 -l0% = 128: l1% = 191 -r1% = 0: g1% = 0: b1% = 0 -fps% = 0 -DO -fps% = fps% + 1 -k% = k% + 2 -IF k% > 156 THEN k% = 0 - -l% = l% + 1 -FOR i% = 1 TO n% -xp1%(i%) = SIN(l% / dsx%(i%)) * psx%(i%) -yp1%(i%) = SIN(l% / dsy%(i%)) * psy%(i%) -NEXT i% - -IF fps% = 512 THEN k0% = 192: k1% = 255: s% = 0 -IF fps% = 1512 THEN fadeout% = 1 -IF fps% = 2500 THEN getpal: s1% = 0: l0% = 0: l1% = 255: r1% = 63: g1% = 63: b1% = 63 -IF fps% = 2800 THEN GOTO gout7 - -IF s% < t% THEN s% = s% + 1 ELSE GOTO endfadepal1 - -FOR kk% = k0% TO k1% -OUT &H3C8, kk% -OUT &H3C9, 0 + s% * ((r%(kk%) - 0) / t%) -OUT &H3C9, 0 + s% * ((g%(kk%) - 0) / t%) -OUT &H3C9, 0 + s% * ((B%(kk%) - 0) / t%) -NEXT kk% - -endfadepal1: - - -IF fadeout% = 0 THEN GOTO nofadeout1 -IF s1% < t1% THEN s1% = s1% + 1 - -FOR kk% = l0% TO l1% -OUT &H3C8, kk% -OUT &H3C9, r%(kk%) + s1% * ((r1% - r%(kk%)) / t1%) -OUT &H3C9, g%(kk%) + s1% * ((g1% - g%(kk%)) / t1%) -OUT &H3C9, B%(kk%) + s1% * ((b1% - B%(kk%)) / t1%) -NEXT kk% - - -nofadeout1: - - - - -yp% = 0 - -FOR y% = 0 TO 199 -DEF SEG = &HA000 + yp% -yp% = yp% + 20 - -yy%(1) = cy%(y% - yp1%(1)) -yy%(2) = cy%(y% - yp1%(2)) -yy%(3) = cy%(y% - yp1%(3)) - -FOR x% = 0 TO 319 - -dyn% = cd%(sp%(yy%(1) + fsin4%(x% - xp1%(1))) + sp%(yy%(2) + fsin4%(x% - xp1%(2))) + sp%(yy%(3) + fsin4%(x% - xp1%(3)))) -IF dyn% < 192 THEN POKE x%, dyn% ELSE pls% = dt100%(fsin3%(x% + k%) + fsin3%(y%) + fsin1%(x% + y%) + fsin3%(fsin3%(y% - k%) + fsin2%(x%) + k%)): POKE x%, cf%(dt%(dyn% - 192) + pls%) + 192 - -NEXT x% -NEXT y% - - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout7 - - - -LOOP - -gout7: - -END SUB - -SUB precalculations - - - -REM --------- Div2 ----------- - -FOR i% = 0 TO 255 -div2%(i%) = i% \ 2 -NEXT i% - - -REM --------- Div4 ----------- - -FOR i% = 0 TO 320 -div4%(i%) = i% \ 4 -NEXT i% - -REM ----------- Mul32 ------------- -FOR i% = 0 TO 32 -mul32%(i%) = i% * 32 -NEXT i% - -REM ----------- Nul128 ------------ -FOR i% = 0 TO 127 -mul128%(i%) = i% * 128 -NEXT i% - - -REM --------- Map Output buffer precalc --------- - - -i% = 0 -FOR y% = 0 TO 127 -FOR x% = 0 TO 127 -sp%(i%) = cd%((y% \ 4) * 32 + x% \ 4) * 128 - -i% = i% + 1 -NEXT x% -NEXT y% - - -REM ----------- Floor&Ceiling Shades ------------- - -ast = 32 / 100 -ang = 0 - -FOR i% = 0 TO 99 - -IF ang = 0 THEN ang = .01 -dist = 24 / SIN(ang / 57.3) -fs = (255 - dist) -IF fs < 0 THEN fs%(99 - i%) = 0 ELSE fs%(99 - i%) = fs -fs%(i% + 100) = fs%(99 - i%) - -ang = ang + ast -NEXT i% - - -END SUB - -SUB prehistoricode - -SHARED xit% - -l% = 15 -SCREEN 12 - -1 -keyaction -IF xit% = 1 THEN GOTO prehistoricodend -COLOR 15: LOCATE 15, 18: PRINT "Press the" + CHR$(34) + "any key" + CHR$(34) + " button to continue.. ;-)" - - -c% = INT(RND * 63 + 1) -FOR i% = 1 TO 640 STEP 15 -LINE (i%, 480)-(640, 480 - i%), i% / c% -NEXT i% -cc% = cc% + 1 -CIRCLE (cx%, cy%), cc%, l% -IF cc% = 30 THEN cc% = 0: l% = 0: k% = 1: GOTO 1 -IF k% = 1 AND cc% = 29 THEN cc% = 0: l% = 15: cx% = INT(RND * 640): cy% = INT(RND * 480): k% = 0 -a$ = INKEY$ - -WHILE a$ = "" -GOTO 1 -a$ = "z" -WEND - -FOR z% = 1 TO 480 -keyaction -IF xit% = 1 THEN GOTO prehistoricodend -t% = 31 - z% / 16 -CIRCLE (320, 240), z%, t% -FOR i& = 0 TO 16383: NEXT i& -NEXT z% -FOR z% = 1 TO 640 -keyaction -IF xit% = 1 THEN GOTO prehistoricodend -CIRCLE (320, 240), z%, 0 -FOR i& = 0 TO 16383: NEXT i& -NEXT z% - - -prehistoricodend: - -END SUB - -SUB rgblights - -SHARED xit% - -meg = 2.2 -n% = 3 - - -FOR i% = 0 TO 127 -OUT &H3C8, i% -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT i% - - - -i% = 0 -OUT &H3C8, 0 - -FOR a% = 0 TO 5 -FOR B% = 0 TO 5 -FOR c% = 0 TO 5 - -OUT &H3C9, a% * 12.6 -OUT &H3C9, B% * 12.6 -OUT &H3C9, c% * 12.6 - -r1%(i%) = i% -i% = i% + 1 - -NEXT c% -NEXT B% -NEXT a% - - -FOR i% = 0 TO 5 -epi6%(i%) = i% * 6 -epi36%(i%) = i% * 36 -NEXT i% - - -i% = 0 -FOR y% = 0 TO 99 -FOR x% = 0 TO 159 -IF x% = 159 AND y% = 99 THEN sp%(i%) = 255 ELSE sp%(i%) = 16384 \ SQR((159 - x%) ^ 2 + (99 - y%) ^ 2) ^ meg -IF sp%(i%) > 255 THEN sp%(i%) = 255 -i% = i% + 1 -NEXT x% -NEXT y% - - - -FOR i% = -320 TO 639 -IF i% < 0 OR i% > 319 THEN fsin3%(i%) = 0 ELSE IF i% < 160 THEN fsin3%(i%) = i% ELSE fsin3%(i%) = 319 - i% -NEXT i% - -FOR i% = -300 TO 500 -IF i% < 0 OR i% > 199 THEN fsin4%(i%) = 0 ELSE IF i% > 99 THEN fsin4%(i%) = 199 - i% ELSE fsin4%(i%) = i% -fsin4%(i%) = fsin4%(i%) * 160 -NEXT i% - -FOR i% = 0 TO 1792 -IF i% > 5 THEN cd%(i%) = 5 ELSE cd%(i%) = i% -NEXT i% - - - - -FOR i% = 1 TO n% -dsx%(i%) = INT(RND * 35 + 15) -dsy%(i%) = INT(RND * 35 + 15) -psx%(i%) = INT(RND * 80 + 80) -psy%(i%) = INT(RND * 50 + 50) -NEXT i% - -k% = 40 -plx = 8: ply = 8 -ax = TIMER -DO -k% = k% + 1 -IF plx > 1 AND k% < 1024 THEN plx = plx - .025 -IF ply > 1 AND k% < 1024 THEN ply = ply - .025 -IF k% > 1024 THEN plx = plx + .01: ply = ply + .01 -IF k% = 1220 THEN GOTO gout3 - - -FOR i% = 1 TO n% -psx% = psx%(i%) * plx -psy% = psy%(i%) * ply -IF psx% > 320 THEN psx% = 320 -IF psy% > 300 THEN psy% = 300 -xp1%(i%) = SIN(k% / dsx%(i%)) * psx% -yp1%(i%) = SIN(k% / dsy%(i%)) * psy% -NEXT i% - - -yp% = 0 - -FOR y% = 0 TO 199 -DEF SEG = &HA000 + yp% -yp% = yp% + 20 - -yy%(1) = fsin4%(y% - yp1%(1)) -yy%(2) = fsin4%(y% - yp1%(2)) -yy%(3) = fsin4%(y% - yp1%(3)) - -FOR x% = 0 TO 319 - -ca% = cd%(sp%(yy%(1) + fsin3%(x% - xp1%(1)))) -cb% = cd%(sp%(yy%(2) + fsin3%(x% - xp1%(2)))) -cc% = cd%(sp%(yy%(3) + fsin3%(x% - xp1%(3)))) - -POKE x%, r1%(ca% + epi6%(cb%) + epi36%(cc%)) -NEXT x% -NEXT y% - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout3 - -LOOP - -gout3: - - -END SUB - -SUB rotate3d (xr, yr, zr) - -SHARED ndts% - -cosxr = COS(xr) -cosyr = COS(yr) -coszr = COS(zr) -sinxr = SIN(xr) -sinyr = SIN(yr) -sinzr = SIN(zr) - -FOR i% = 0 TO ndts% - 1 - -x(i%) = cosyr * xo%(i%) - sinyr * zo%(i%) -z(i%) = sinyr * xo%(i%) + cosyr * zo%(i%) - -y(i%) = cosxr * yo%(i%) - sinxr * z(i%) -z(i%) = sinxr * yo%(i%) + cosxr * z(i%) - -nx = x(i%) -x(i%) = coszr * nx - sinzr * y(i%) -y(i%) = sinzr * nx + coszr * y(i%) - -NEXT i% - - -END SUB - -SUB saverecord - -SHARED k$ - -k$ = CHR$(kon%(75)): PUT #2, , k$ -k$ = CHR$(kon%(77)): PUT #2, , k$ -k$ = CHR$(kon%(72)): PUT #2, , k$ -k$ = CHR$(kon%(80)): PUT #2, , k$ - -END SUB - -SUB setcrosfadepal (r1%(), r2%(), g1%(), g2%(), b1%(), b2%()) - -OUT &H3C8, 0 - -FOR j% = 0 TO 15 -FOR i% = 0 TO 15 -OUT &H3C9, i% * 4: r1%(j% * 16 + i%) = i% * 4 -OUT &H3C9, i% * 4: g1%(j% * 16 + i%) = i% * 4 -OUT &H3C9, i% * 4: b1%(j% * 16 + i%) = i% * 4 -NEXT i% -NEXT j% - -FOR i% = 0 TO 255 -r2%(i%) = (i% \ 16) * 4 -g2%(i%) = (i% \ 16) * 4 -b2%(i%) = (i% \ 16) * 4 -NEXT i% - -END SUB - -SUB setpal (c1%, c2%, r1%, g1%, b1%, r2%, g2%, b2%) - -dc% = c2% - c1% -r = r1%: g = g1%: B = b1% - - -OUT &H3C8, c1% - -FOR i% = c1% TO c2% - -OUT &H3C9, r -OUT &H3C9, g -OUT &H3C9, B - -r = r + (r2% - r1%) / dc% -g = g + (g2% - g1%) / dc% -B = B + (b2% - b1%) / dc% - -NEXT i% - - -END SUB - -SUB spheremaplasma - -SHARED xit% - -' ------------- Sphere mapped plasma ------------ - - - -setpal 0, 31, 0, 0, 0, 63, 0, 0 -setpal 32, 63, 63, 0, 0, 63, 0, 63 -setpal 64, 95, 63, 0, 63, 0, 63, 63 -setpal 96, 127, 0, 63, 63, 0, 0, 0 - -setpal 128, 159, 0, 0, 31, 31, 0, 31 -setpal 160, 191, 31, 0, 31, 31, 0, 63 -setpal 192, 223, 31, 0, 63, 0, 47, 63 -setpal 224, 254, 0, 47, 63, 0, 0, 31 - -getpal -r%(255) = 0: g%(255) = 0: B%(255) = 31 - -setpal 0, 255, 63, 63, 63, 63, 63, 63 - -delay 210 - - - -a$ = "sphrprec.dat" - -fp& = -1 -open ".\samples\pete\optimus\"+a$ FOR BINARY AS #1 - -FOR i% = 0 TO 16383 - -fp& = fp& + 2 -GET #1, fp&, a$ -xp% = ASC(a$) -GET #1, fp& + 1, a$ -yp% = ASC(a$) - -sp%(i%) = yp% * 128 + xp% -IF i% = 64 * 128 + 64 THEN sp%(i%) = sp%(i%) + 1 - -NEXT i% - -CLOSE - - - -dg% = 99 - -FOR i% = -180 TO -1 -dt%(i%) = i% - ((i% - dg% + 1) \ dg%) * dg% -dt100%(i%) = (i% - ((i% - dg% + 1) \ dg%) * dg%) * 100 -NEXT i% - -FOR i% = 0 TO 180 -dt%(i%) = i% - ((i% - 1) \ dg%) * dg% -dt100%(i%) = (i% - ((i% - 1) \ dg%) * dg%) * 100 -NEXT i% - - - -FOR i% = -640 TO 518 -fsin2%(i%) = SIN(i% / 16) * 31 -NEXT i% - -FOR i% = -640 TO 715 -fsin3%(i%) = SIN(i% / 63) * 75 -NEXT i% - - -FOR i% = -168 TO 168 -mod256128%(i%) = ((i% + 512) MOD 256) \ 2 -NEXT i% - - - - - - - -xs = 91: vxs = 1: ys = -96: vys = 0: fs = 0 -yys% = 134 - - -WHILE INKEY$ <> "": WEND - -s% = 0: t% = 256 -s1% = 0: t1% = 256 -fps% = 0 - - -k% = 0: l% = 0 -DO -fps% = fps% + 1 -k% = k% + 1: l% = l% + 1 -IF k% = 101 THEN k% = 0 -IF l% = 396 THEN l% = 0 -m% = -1 - -IF fps% = 256 THEN fs = .02 -IF fps% = 256 + 768 THEN yys% = 654 -IF fps% = 256 + 1024 THEN fadeout% = 1 - - -IF s% < t% THEN s% = s% + 1 ELSE GOTO endfadepal - -OUT &H3C8, 0 -FOR n% = 0 TO 255 -OUT &H3C9, 63 + s% * ((r%(n%) - 63) / t%) -OUT &H3C9, 63 + s% * ((g%(n%) - 63) / t%) -OUT &H3C9, 63 + s% * ((B%(n%) - 63) / t%) -NEXT n% - -endfadepal: - - -IF fadeout% = 0 THEN GOTO nofadeout -IF s1% < t1% THEN s1% = s1% + 1 ELSE GOTO gout - -OUT &H3C8, 0 -FOR n% = 0 TO 255 -OUT &H3C9, r%(n%) + s1% * ((0 - r%(n%)) / t1%) -OUT &H3C9, g%(n%) + s1% * ((0 - g%(n%)) / t1%) -OUT &H3C9, B%(n%) + s1% * ((0 - B%(n%)) / t1%) -NEXT n% - - -nofadeout: - - -xs = xs + vxs: IF xs > 254 OR xs < 65 THEN vxs = -vxs -vys = vys + fs -ys = ys + vys -IF ys > yys% THEN ys = ys - vys: vys = -vys * .8 - -xs% = xs: ys% = ys -sy% = ys% - 63 -sx% = xs% - 63 -IF sy% < 0 AND sy% > -128 THEN m% = sy% * (-128) - 1 - -yw1% = -1 + sy%: yw2% = 128 + sy% -xw1% = -1 + sx%: xw2% = 128 + sx% - -FOR y% = 0 TO 199 -DEF SEG = &HA000 + y% * 20 - - -IF y% > yw1% AND y% < yw2% THEN GOTO 111 - -FOR x% = 0 TO 319 -c% = fsin2%(x%) + fsin3%(y% + l%) + fsin2%(x% + y%) + fsin2%(fsin3%(x% + l%) - fsin2%(x% - y% - k%)) -POKE x%, mod256128%(c%) -NEXT x% - -GOTO 1121 - -111 -FOR x% = 0 TO 319 -IF x% > xw1% AND x% < xw2% THEN m% = m% + 1: yn% = sp%(m%) \ 128: xn% = sp%(m%) - yn% * 128 + sx%: yn% = yn% + sy%: spp% = 128 ELSE xn% = x%: yn% = y% -IF xn% = x% AND yn% = y% THEN spp% = 0 - -c% = fsin2%(xn%) + fsin3%(yn% + l%) + fsin2%(xn% + yn%) + fsin2%(fsin3%(xn% + l%) - fsin2%(xn% - yn% - k%)) -POKE x%, mod256128%(c%) + spp% -NEXT x% - -1121 - -NEXT y% - -'OUT &H3C8, 0 -'OUT &H3C9, 0 -'OUT &H3C9, 0 -'OUT &H3C9, 0 - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout - -'OUT &H3C8, 0 -'OUT &H3C9, 63 -'OUT &H3C9, 0 -'OUT &H3C9, 0 - -LOOP - -gout: - - - -END SUB - -SUB sucking - -SHARED xit% - -SCREEN 13 -COLOR 15 - -LOCATE 1, 1: PRINT "Still Sucking?" - - -FOR y% = 7 TO 0 STEP -1 -FOR x% = 14 * 8 - 1 TO 0 STEP -1 - -c% = POINT(x%, y%) * (y% + 1) * SIN((x% + y%) / 45) -LINE (x% * 2.8, y% * 16 + 32)-((x% + 1) * 2.8, (y% + 1) * 16 + 32), c%, BF - -NEXT x% -NEXT y% - -END SUB - -SUB translate3d - -SHARED ndts%, obj% - -IF obj% = 1 THEN zpr% = 1 -IF obj% = 2 OR obj% = 3 THEN zpr% = 4 -IF obj% = 4 THEN zpr% = 16 -IF obj% > 4 THEN zpr% = 8 - -FOR i% = 0 TO ndts% - 1 - -xs%(i%, 1) = xs%(i%, 0) -ys%(i%, 1) = ys%(i%, 0) - -IF z(i%) <= zpr% THEN GOTO 10 - -xs%(i%, 0) = (x(i%) * 256) / z(i%) -ys%(i%, 0) = (y(i%) * 256) / z(i%) - -10 - -NEXT i% - -END SUB - -SUB zoomdistort - -SHARED xit% - -WHILE INKEY$ <> "": WEND - -CLS - - - -FOR i% = -640 TO 518 -fsin2%(i%) = SIN(i% / 16) * 31 -NEXT i% - -FOR i% = -640 TO 715 -fsin3%(i%) = SIN(i% / 63) * 75 -NEXT i% - -FOR i% = -48 TO 539 -fsin1%(i%) = SIN(i% / 35) * 24 -NEXT i% - -FOR i% = -319 TO 602 -fsin4%(i%) = SIN(i% / 45) * 24 -NEXT i% - -'$DYNAMIC -DIM dr%(-160 TO 160, -48 TO 48) -'$STATIC - -FOR ii% = -48 TO 48 -FOR i% = -160 TO 160 -dva = ii% / 64 + 2 -IF dva <> 0 THEN dr%(i%, ii%) = i% / dva ELSE dr%(i%, ii%) = i% -NEXT i% -NEXT ii% - - -' ------------ Load Quickbasic inside -------------- - -a$ = "qbinside.spr" -c$ = " " -open ".\samples\pete\optimus\"+a$ FOR BINARY AS #1 - -OUT &H3C8, 128 -FOR i% = 0 TO 383 -GET #1, , c$: OUT &H3C9, ASC(c$) -NEXT i% - - -xg% = 100 -yg% = 100 - -i% = 0 -FOR y% = 1 TO yg% -FOR x% = 1 TO xg% -GET #1, , c$: sp%(i%) = ASC(c$) -i% = i% + 1 -NEXT x% -NEXT y% -CLOSE #1 - - - -setpal 0, 31, 0, 0, 0, 0, 31, 63 -setpal 32, 63, 0, 31, 63, 31, 0, 63 -setpal 64, 95, 31, 0, 63, 0, 63, 0 -setpal 96, 127, 0, 63, 0, 0, 0, 0 - - - -FOR l% = 15 TO 305 -LINE (14, 6)-(l%, 7), 27, B -LINE (13, 5)-(l% + 1, 8), 31, B -LINE (12, 4)-(l% + 2, 9), 27, B -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout2 -NEXT l% - -FOR n% = 7 TO 193 -IF n% > 7 AND n% < 194 THEN LINE (15, n% - 1)-(304, n% - 1), 0, B -LINE (14, 6)-(305, n%), 27, B -LINE (13, 5)-(306, n% + 1), 31, B -LINE (12, 4)-(307, n% + 2), 27, B -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout2 -NEXT n% - - -' ----------- Quickbasic Inside ------------ - - -k0% = k% -l0% = l% -k% = 0 -l% = 0 - -kxy0% = 0 - -fps% = 0 -DO -fps% = fps% + 1 -IF fps% > 1400 AND kxy0% > -100 THEN kxy0% = kxy0% - 100 ELSE IF fps% <= 1000 AND kxy0% < 10000 THEN kxy0% = kxy0% + 100 -IF kxy0% = -100 THEN GOTO gout2 - -k% = k% + 1: IF k% = 220 THEN k% = 0 -l% = l% + 1: IF l% = 283 THEN l% = 0 - -k0% = k0% + 1: IF k0% = 101 THEN k0% = 0 -l0% = l0% + 1: IF l0% = 396 THEN l0% = 0 - - -xp% = SIN(k% / 35) * 48 -yp% = SIN(l% / 45) * 64 - - -ypp% = 160 -FOR y% = 8 TO 191 -DEF SEG = &HA000 + ypp% -ypp% = ypp% + 20 -sx% = fsin4%(y% + l%) + fsin1%(fsin1%(y%) + fsin4%(y% + l%)) - -FOR x% = 16 TO 303 - -sy% = fsin1%(x% + k%) + fsin4%(y% - x%) - -kxy% = dt100%(dr%(y% - 100, sy%) + yp%) + dt%(dr%(x% - 160, sx%) + xp%) -IF kxy% > kxy0% THEN c% = 0 ELSE IF sp%(kxy%) = 129 THEN c% = mod256128%(fsin3%(x%) + fsin2%(x% + k0%) + fsin2%(y%)) ELSE c% = sp%(kxy%) - -POKE x%, c% - -NEXT x% -NEXT y% - -'OUT &H3C8, 0 -'OUT &H3C9, 0 -'OUT &H3C9, 0 -'OUT &H3C9, 0 - -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF xit% = 0 THEN keyaction -IF xit% = 1 THEN GOTO gout2 - -'OUT &H3C8, 0 -'OUT &H3C9, 63 -'OUT &H3C9, 0 -'OUT &H3C9, 0 - -LOOP - -gout2: - -END SUB - diff --git a/programs/samples/pete/optimus/deedsax.txt b/programs/samples/pete/optimus/deedsax.txt deleted file mode 100644 index a37bded38..000000000 --- a/programs/samples/pete/optimus/deedsax.txt +++ /dev/null @@ -1,18 +0,0 @@ - -Deedlines Sax... - -A pure Qbasic demo done by connecting various older or newer sources.. - -Featuring effects like blobs, sphere mapping, 3d dots, raycaster and more.. - -Coded by Michael Kargas aka Optimus/Dirty Minds/Nasty Bugs - - Thessaloniki 31/05/2002 - -P.S. I had finished this demo for the competition in a hurry, cause I am busy -with other lame things after that (Exams, e.t.c..) Hopefully, I may fix -possible bad things in this demo in a final version found somewhere around my -site (http://users.auth.gr/mkargas) - -Time to rest... cu later! - diff --git a/programs/samples/pete/optimus/fonts16.fnt b/programs/samples/pete/optimus/fonts16.fnt deleted file mode 100644 index b7af78644..000000000 Binary files a/programs/samples/pete/optimus/fonts16.fnt and /dev/null differ diff --git a/programs/samples/pete/optimus/hiteapot.3do b/programs/samples/pete/optimus/hiteapot.3do deleted file mode 100644 index 1aa6f130d..000000000 Binary files a/programs/samples/pete/optimus/hiteapot.3do and /dev/null differ diff --git a/programs/samples/pete/optimus/qbinside.spr b/programs/samples/pete/optimus/qbinside.spr deleted file mode 100644 index e774af60c..000000000 Binary files a/programs/samples/pete/optimus/qbinside.spr and /dev/null differ diff --git a/programs/samples/pete/optimus/sphrprec.dat b/programs/samples/pete/optimus/sphrprec.dat deleted file mode 100644 index b8cf6abb7..000000000 Binary files a/programs/samples/pete/optimus/sphrprec.dat and /dev/null differ diff --git a/programs/samples/pete/optimus/wolfmap0.wad b/programs/samples/pete/optimus/wolfmap0.wad deleted file mode 100644 index 39c68fd46..000000000 Binary files a/programs/samples/pete/optimus/wolfmap0.wad and /dev/null differ diff --git a/programs/samples/pete/pall2.bas b/programs/samples/pete/pall2.bas deleted file mode 100644 index b56afa678..000000000 --- a/programs/samples/pete/pall2.bas +++ /dev/null @@ -1,100 +0,0 @@ -DIM points(5) -FromWhere = 63 -SCREEN 13 -green = 0 -blue = 0 -red = 0 -FOR a = 1 TO 63 * 2 -IF red < 63 THEN -IF blue <> 1 THEN -red = red + 1 -green = green + 1 -ELSE -red = red - 1 -green = green - 1 -END IF -ELSE -blue = 1 -red = red - 1 -END IF -PALETTE a, red + green * 256 + blue * 65536 -NEXT - -FOR a = 63 * 2 TO 254 -PALETTE a, 0 + 0 * 256 + 0 * 65536 -NEXT - -colors = 60 -FOR a = 1 TO 50 -colors = colors + 1 -CIRCLE (38, 40), (a), colors -NEXT -colors = 60 -FOR a = 1 TO 50 -colors = colors + 1 -CIRCLE (39, 40), (a), colors -NEXT -colors = 63 -FOR a = 1 TO 15 -colors = colors + 1 -CIRCLE (39, 40), (a), colors -NEXT - -PALETTE 255, 63 + 63 * 256 + 63 * 65536 -PALETTE 254, 0 + 0 * 256 + 63 * 65536 - -sen = 255 -DO -PSET (100, 105), sen -PSET (200, 150), sen -GOSUB colors -PSET (120, 45), sen -PSET (280, 20), sen -GOSUB colors -PSET (10, 170), sen -GOSUB colors -PSET (245, 100), sen -GOSUB colors -PSET (290, 150), sen -GOSUB colors -PSET (130, 160), sen -GOSUB colors -PSET (15, 90), sen -PSET (233, 50), sen -GOSUB colors -LOOP UNTIL INKEY$ <> "" - -GOSUB BigEnding -END - -colors: -SELECT CASE sen -CASE 255 -sen = 63 -CASE 63 -sen = 254 -CASE 254 -sen = 255 -END SELECT -RETURN -END - -BigEnding: -FOR a = 256 TO 0 STEP -1 -PALETTE a, 0 + 0 * 256 + 0 * 65536 -NEXT -END - - - - - - - - - - - - - - diff --git a/programs/samples/pete/picdimreader.bas b/programs/samples/pete/picdimreader.bas deleted file mode 100644 index 72c205957..000000000 --- a/programs/samples/pete/picdimreader.bas +++ /dev/null @@ -1,35 +0,0 @@ -'QB Graphics Utility which reads the width and height of a SCREEN 13 BSAVEd image -'Written by drnull 02/09/06 - -DECLARE FUNCTION readInt! (file%, offset%) - -SCREEN 13 -CLS - -INPUT "BSAVEd Filename>"; pic$ -OPEN pic$ FOR BINARY AS #1 - -DIM picH, picW AS INTEGER -DIM bpp AS INTEGER - -bpp = 8 - -picW = readInt(1, 8) / bpp -picH = readInt(1, 10) - -PRINT "Width is" + STR$(picW) -PRINT "Height is" + STR$(picH) - -FUNCTION readInt (file%, offset%) - -DIM a$ -a$ = " " - -GET file%, offset%, a$ -value = ASC(a$) -GET file%, , a$ -value = value OR (ASC(a$) * 256) - -readInt = value - -END FUNCTION diff --git a/programs/samples/pete/pongsource.bas b/programs/samples/pete/pongsource.bas deleted file mode 100644 index 81a749f01..000000000 --- a/programs/samples/pete/pongsource.bas +++ /dev/null @@ -1,230 +0,0 @@ -WIDTH 80, 50 - -GOTO menu -rt: -CLS -SCREEN 7 -LINE (20, 20)-(300, 180), 1, B -LINE (10, 10)-(310, 190), 1, B -PAINT (12, 12), 1 -LINE (20, 20)-(300, 180), 9, B -LINE (10, 10)-(310, 190), 9, B -LINE (23, 7)-(48, 16), 9, B -LINE (296, 7)-(271, 16), 9, B -COLOR 9 -LOCATE 2, 4 -PRINT win -LOCATE 2, 35 -PRINT lose -blx = 50: ppx = 50: ppxx = 50: zim = 164: -bly = 21: mbx = 1: mby = 1: ppy = 22: PPYY = 52 -amy = 0: amyy = 0: ay = 41: ayy = 51: ax = 36 -ti = 0 -iat = 1 -COLOR 9 -'-------------start location randomizer for ball -rerand: -RANDOMIZE TIMER -ballloc = INT(RND * 4) + 1 -IF ballloc = 1 THEN GOTO location1 -IF ballloc = 2 THEN GOTO location2 -IF ballloc = 3 THEN GOTO location3 -IF ballloc = 4 THEN GOTO location4 -locre: -'-----------main loop -SLEEP 1 -DO -PSET (50, 20), 9'-------------wall repair thing -pm = ppy + 25 -LINE (ppx, ppy - 1)-(ppxx, PPYY + 1), 0, BF 'player erase - -SELECT CASE INKEY$'-----------player control start -CASE CHR$(0) + CHR$(80) -IF PPYY = 178 THEN GOTO ppymm -ppy = ppy + 1 -PPYY = PPYY + 1 -ppymm: -CASE CHR$(0) + CHR$(72) -IF ppy = 22 THEN GOTO ppym -ppy = ppy - 1 -PPYY = PPYY - 1 -ppym: -CASE CHR$(27) -END -END SELECT'---------player control end - -PSET (blx, bly), 0 '--------ball erase -'-------------------------ball colision detection -IF blx = 299 THEN mbx = -1 -IF blx = 21 THEN mbx = 1 -IF bly = 21 THEN mby = 1 -IF bly = 179 THEN mby = -1 -'----------------------------SCORE KEEPING -IF blx > 279 AND bly < ax - 15 THEN win = win + 1 -IF blx > 279 AND bly < ax - 15 THEN GOTO rt -IF blx > 279 AND bly > ax + 15 THEN win = win + 1 -IF blx > 279 AND bly > ax + 15 THEN GOTO rt -'---------------------------------------------------winning and losing -IF blx < 50 AND bly > ppy THEN lose = lose + 1 -IF blx < 50 AND bly > ppy THEN GOTO rt -IF blx < 50 AND bly < PPYY THEN lose = lose + 1 -IF blx < 50 AND bly < PPYY THEN GOTO rt -IF lose = 5 THEN GOTO losegame -bstt = 0 -IF win = 5 THEN GOTO wingame -'----------------------------ball padle colision detection -IF blx = 50 GOTO ppm -GOTO sm -ppm: -IF bly > ppy AND bly < PPYY THEN mbx = 1 -sm: -IF blx = 269 THEN GOTO ppmm -GOTO ms -ppmm: -IF bly < ax + 15 AND bly > ax - 15 THEN mbx = -1 -ms: -'---------------ball movement -blx = blx + mbx -samy = samy + 1 -IF samy = 1 THEN bly = bly + mby -IF samy = 1 THEN samy = 0 -PSET (blx, bly), 15'-----------balldrawer - -LINE (ppx, ppy - 1)-(ppxx, PPYY + 1), 15'------player padle drawer - -'----------------------------------------------timing loop -DO -ti = ti + 1 -LOOP UNTIL ti = gspeed -ti = 0 -'-----------------------score display -LOCATE 2, 4 -PRINT win -LOCATE 2, 35 -PRINT lose -'------------ai goto -ait = ait + 1 -IF ait = 1 THEN GOTO ai -backai: -ita = 0 -LOOP -'--------------loop end -ai: '---------------------AI -sam = sam + 1 -LINE (270, ax + 15)-(270, ax - 15), 0 -IF sam < 0 THEN GOTO missera - -IF ax - 14 < bly THEN amy = 1 -IF ax + 14 > bly THEN amy = -1 -IF ax = 164 THEN amy = -1 -IF ax = 36 THEN amy = 1 - -IF sam = 2 THEN ax = ax + amy -missera: -IF sam = 2 THEN sam = 0 -LINE (270, ax + 15)-(270, ax - 15), 15 -ait = 0 -GOTO backai -'------------------------------ -losegame: -SLEEP 1 -CLS -LOCATE 11, 19 -PRINT "you lose" -SLEEP 2 -END - -wingame: -SLEEP 1 -CLS -LOCATE 11, 19 -PRINT "you win" -SLEEP 2 -END - -location1: -blx = 50 -bly = 21 -mbx = 1 -mby = 1 -GOTO locre - -location2: -blx = 50 -bly = 171 -mby = -1 -mbx = 1 -GOTO locre - -location3: -blx = 268 -bly = 21 -mbx = -1 -mby = 1 -GOTO locre - -location4: -blx = 268 -bly = 171 -mbx = -1 -mby = -1 -GOTO locre - -menu: -CLS -dotloc = 24 -gspeed = 30000 -dotloc = 24 -menub: -COLOR 9 -LOCATE 19, 35 -PRINT "PONG CLONE" -PRINT " " -PRINT " programed by bj mccann" -PRINT -PRINT -PRINT " START" -PRINT -PRINT " CONTROLS" -PRINT -PRINT " CHANGE SPEED " -PRINT -PRINT " EXIT" -COLOR 1 -DO -LOCATE dotloc, 35 -PRINT " " -SELECT CASE INKEY$ -'CASE CHR$(27) -'END -CASE CHR$(0) + CHR$(72) -IF dotloc > 24 THEN dotloc = dotloc - 2 -CASE CHR$(0) + CHR$(80) -IF dotloc < 30 THEN dotloc = dotloc + 2 -CASE CHR$(0) + CHR$(77) -IF dotloc = 24 THEN GOTO rt -IF dotloc = 26 THEN GOTO controls -IF dotloc = 28 THEN GOTO speed -IF dotloc = 30 THEN END -END SELECT -LOCATE dotloc, 35 -PRINT "*" -LOOP - -controls: -CLS -LOCATE 19, 25 -PRINT "to move the paddle up press the up arrow." -PRINT " to move the paddle down press down." -PRINT " to return to the menu press escape" -SLEEP 5 -GOTO menu - -speed: -CLS -LOCATE 19, 25 -PRINT "normal speed is 30000 the lower the number the faster the game runs" -INPUT gspeed -CLS -GOTO menub - diff --git a/programs/samples/pete/pongtennis/t.txt b/programs/samples/pete/pongtennis/t.txt deleted file mode 100644 index b875716d1..000000000 --- a/programs/samples/pete/pongtennis/t.txt +++ /dev/null @@ -1,186 +0,0 @@ -ANDRE -AGASSI -7 -9 -8 -66 -MARIO -ANCIC -4 -6 -4 -23 -MARCOS -BAGHDATIS -4 -4 -3 -15 -TOMAS -BERDYCH -2 -3 -2 -3 -JAMES -BLAKE -8 -8 -6 -58 -GUILLERMO -CORIA -9 -9 -10 -106 -NIKOLAY -DAVYDENKO -8 -7 -7 -56 -ROGER -FEDERER -10 -9 -10 -131 -DAVID -FERRER -9 -6 -7 -53 -JUAN CARLOS -FERRERO -7 -7 -5 -32 -RICHARD -GASQUET -6 -6 -8 -43 -GASTON -GAUDIO -9 -7 -8 -64 -ROBBY -GINEPRI -3 -4 -3 -14 -FERNANDO -GONZALEZ -5 -3 -6 -22 -SEBASTIEN -GROSJEAN -6 -4 -5 -24 -TIM -HENMAN -3 -4 -6 -20 -LLEYTON -HEWITT -9 -9 -7 -77 -THOMAS -JOHANSSON -5 -3 -5 -18 -NICOLAS -KIEFER -8 -5 -5 -31 -IVAN -LJUBICIC -7 -6 -8 -46 -XAVIER -MALISSE -2 -4 -4 -12 -GAEL -MONFILS -2 -3 -3 -7 -ANDY -MURRAY -5 -4 -5 -21 -RAFAEL -NADAL -10 -8 -10 -97 -DAVID -NALBANDIAN -8 -7 -7 -51 -JARKKO -NIEMINEN -3 -3 -2 -6 -TOMMY -ROBREDO -2 -4 -2 -4 -ANDY -RODDICK -10 -10 -8 -94 -MARAT -SAFIN -6 -7 -4 -30 -PARADORN -SRICHAPHAN -2 -3 -4 -9 -RADEK -STEPANEK -7 -5 -5 -27 \ No newline at end of file diff --git a/programs/samples/pete/pongtennis/t3.txt b/programs/samples/pete/pongtennis/t3.txt deleted file mode 100644 index 836b9d78f..000000000 --- a/programs/samples/pete/pongtennis/t3.txt +++ /dev/null @@ -1,84 +0,0 @@ -16 -2 -0 -23 -3 -0 -6 -1 -4 -Tim Henman finds himself 3-2 down against his -Scottish counterpart Andy Murray in a 1 set -match. Can he recover from a poor start to take -the glory? -29 -2 -0 -31 -4 -0 -6 -1 -4 -Marat Safin is favourite to beat Radek Stepanek -in this thrilling 1 set match. However Safin -has it all to do after a superb start from -Stepanek which sees him take a 4-2 lead. -25 -0 -0 -20 -0 -1 -6 -2 -5 -David Nalbandian's confidence is low after -going down 6-0 in the first set with opponent -Ivan Ljubicic needing to take just one more -set for victory. Can Nalbandian turn it around -against the odds and win the next two sets? -17 -2 -0 -1 -4 -1 -6 -2 -6 -Already one set adrift and 4-2 down in the -second Lleyton Hewitt has an uphill task ahead -of him against big rival Andre Agassi. Just -two more games to Agassi will spell defeat for -Hewitt. Come from behind to win this set and -take the next one as well to win the match. -15 -0 -0 -11 -0 -2 -6 -3 -5 -Richard Gasquet is dominating the match against -an out of form Sebastien Grosjean. In this 3 -set encounter Gasquet has already claimed 2 sets -without reply. Grosjean will have to take the next -three consecutive sets to turn this one around. -6 -1 -0 -8 -4 -2 -3 -6 -6 -Most players would have given up all hope when they -find themselves 4-2 down in the 3rd set having lost -the previous two sets already. But Guillermo Coria -refuses to give in against World No. 1 Roger Federer. -Can you help Coria to one of the greatest comebacks -of all time? \ No newline at end of file diff --git a/programs/samples/pete/pongtennis/tennis.bas b/programs/samples/pete/pongtennis/tennis.bas deleted file mode 100644 index 7f62810ff..000000000 --- a/programs/samples/pete/pongtennis/tennis.bas +++ /dev/null @@ -1,1968 +0,0 @@ -CHDIR ".\programs\samples\pete\pongtennis" - -DECLARE SUB challengeMatchDay () -DECLARE SUB challengeMode () -DECLARE SUB matchDayMenu () -DECLARE SUB calender () -DECLARE SUB career () -DECLARE SUB worldRankings () -DECLARE SUB backWallRally () -DECLARE SUB training () -DECLARE SUB targetPractice () -DECLARE SUB tournament () -DECLARE SUB preMatchDay () -DECLARE SUB options () -DECLARE SUB matchDay () -DECLARE SUB getInfo () -DECLARE FUNCTION rand! (c!) -DIM SHARED points(2) -DIM SHARED realPoints$(2) -DIM SHARED games(2) -DIM SHARED sets(2) -DIM SHARED forename$(32) -DIM SHARED surname$(32) -DIM SHARED speedRating(32) -DIM SHARED speed(32) -DIM SHARED power(32) -DIM SHARED accuracy(32) -DIM SHARED colour$(15) -DIM SHARED winners(2) -DIM SHARED aces(2) -DIM SHARED faults(2) -DIM SHARED errors(2) -DIM SHARED player(33) -DIM SHARED flag(32) -DIM SHARED in(32) -DIM SHARED tournamentPlayer(33) -DIM SHARED round$(5) -DIM SHARED arp(32) -DIM SHARED rankPoints(10, 32) -DIM SHARED minorRating(32) -DIM SHARED rank(32) -DIM SHARED month$(12) -DIM SHARED days(12) -DIM SHARED day(24) -DIM SHARED month(24) -DIM SHARED qual(34) -DIM SHARED tourney$(34) -DIM SHARED qual$(34) -DIM SHARED entrants(6) -DIM SHARED rounds(34) -DIM SHARED cPlayerNumber(2, 6) -DIM SHARED cGames(2, 6) -DIM SHARED cSets(2, 6) -DIM SHARED cGamesToWin(6) -DIM SHARED cSetsToWin(6) -DIM SHARED cAmount(6) -DIM SHARED cDescription$(6, 6) -DIM SHARED cCompleted(6) -COMMON SHARED challenge, day, month, year, userDone, winner, userColour, opponentColour, forename$, surname$, l$, r$, u$, d$, opponent, gamesToWin, setsToWin, gamesToWin2 - -SCREEN 0 -CALL getInfo -gamesToWin = 6 -gamesToWin2 = 2 -setsToWin = 1 -userColour = 11 -opponentColour = 4 -colour$(3) = "CYAN" -colour$(4) = "RED" -colour$(5) = "PURPLE" -colour$(6) = "ORANGE" -colour$(7) = "WHITE" -colour$(8) = "GREY" -colour$(9) = "TURQOUISE" -colour$(10) = "GREEN" -colour$(11) = "BLUE" -colour$(12) = "LIGHT RED" -colour$(13) = "PINK" -colour$(14) = "YELLOW" -colour$(15) = "BRIGHT WHITE" -name$ = "USER" - -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "PONG TENNIS" -COLOR 7, 2 -LOCATE 20, 30 -PRINT "BY ALEX BEIGHTON" -DO -LOOP UNTIL INKEY$ = CHR$(13) - -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "KEY CONFIG" -LOCATE 20, 25 -COLOR 7, 2 -PRINT "PLEASE ENTER THE "; CHR$(34); "LEFT"; CHR$(34); " KEY" -DO -l$ = INKEY$ -LOOP UNTIL l$ <> "" -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "KEY CONFIG" -LOCATE 20, 24 -COLOR 7, 2 -PRINT "PLEASE ENTER THE "; CHR$(34); "RIGHT"; CHR$(34); " KEY" -DO -r$ = INKEY$ -LOOP UNTIL r$ <> "" -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "KEY CONFIG" -LOCATE 20, 26 -COLOR 7, 2 -PRINT "PLEASE ENTER THE "; CHR$(34); "UP"; CHR$(34); " KEY" -DO -u$ = INKEY$ -LOOP UNTIL u$ <> "" -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "KEY CONFIG" -LOCATE 20, 25 -COLOR 7, 2 -PRINT "PLEASE ENTER THE "; CHR$(34); "DOWN"; CHR$(34); " KEY" -DO -d$ = INKEY$ -LOOP UNTIL d$ <> "" -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "PLEASE ENTER YOUR FORENAME" -LOCATE 20, 32 -COLOR 7, 2 -PRINT "MY FORENAME IS" -DO -LOCATE 20, 48 -INPUT forename$ -LOOP UNTIL forename$ <> "" -COLOR 15, 2 -CLS -LOCATE 16, 32 -PRINT "PLEASE ENTER YOUR SURNAME" -LOCATE 20, 32 -COLOR 7, 2 -PRINT "MY SURNAME IS" -DO -LOCATE 20, 48 -INPUT surname$ -LOOP UNTIL surname$ <> "" - -210 COLOR 15, 2 -CLS -os = 1 -180 COLOR 15, 2 -LOCATE 16, 28 -PRINT "SELECT GAME MODE" -IF os = 1 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 20, 28 -PRINT "PLAY NOW" -IF os = 2 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 22, 28 -PRINT "TOURNAMENT MODE" -IF os = 3 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 24, 28 -PRINT "CAREER MODE" -IF os = 4 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 26, 28 -PRINT "TRAINING MODE" -IF os = 5 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 28, 28 -PRINT "CHALLENGE MODE" -IF os = 6 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 30, 28 -PRINT "QUIT GAME" - -170 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 6 -GOTO 180 -CASE IS = d$ -os = os + 1 -IF os > 6 THEN os = 1 -GOTO 180 -CASE IS = CHR$(13) -CASE ELSE -GOTO 170 -END SELECT - -challenge = 0 -SELECT CASE os -CASE IS = 1 -CALL preMatchDay -GOTO 180 -CASE IS = 2 -CALL tournament -GOTO 180 -CASE IS = 3 -REM CALL career -GOTO 180 -CASE IS = 4 -CALL training -GOTO 180 -CASE IS = 5 -CALL challengeMode -GOTO 180 -CASE IS = 6 -COLOR 7, 2 -END -END SELECT - -SUB backWallRally -450 a = 37 -b = 32 -y = 36 -z = 40 -t = 0 -w = 26 -x = 1 -bs = 1 -rally = 0 -rallyEnd = 0 -alreadyAdded = 0 -hitTarget = 0 -totals = 0 -speed = 0 -direction = 1 -directionbs = 1 - -COLOR 15, 2 -CLS - -LOCATE 16, 24 -PRINT "BACK WALL RALLY" -COLOR 7, 2 -LOCATE 20, 24 -PRINT "Rally with the back wall as many times as" -LOCATE 21, 24 -PRINT "possible before the ball goes out, or you" -LOCATE 22, 24 -PRINT "miss the ball. Every time the ball makes" -LOCATE 23, 24 -PRINT "contact with the back wall, you will score" -LOCATE 24, 24 -PRINT "a point. The higher your score at the end," -LOCATE 25, 24 -PRINT "the better. However, it's not that simple -" -LOCATE 26, 24 -PRINT "throughout your rally, a solid object will" -LOCATE 27, 24 -PRINT "be bouncing between the walls and gradally" -LOCATE 28, 24 -PRINT "increasing in size. Hit the object and it's" -LOCATE 29, 24 -PRINT "game over!" -COLOR 15, 2 -LOCATE 33, 24 -PRINT "PRESS RETURN TO BEGIN BACK WALL RALLY" -DO -LOOP UNTIL INKEY$ = CHR$(13) - -alreadyAdded = 0 -COLOR 15, 2 -CLS -FOR i = 2 TO 20 -COLOR 1, 15 -LOCATE 2, i -PRINT CHR$(219) -NEXT i -COLOR 15, 1 -LOCATE 2, 2 -PRINT surname$ - -tt = TIMER -DO -LOCATE 2, 21 -COLOR 15, 3 -PRINT " RALLY "; rally - -FOR i = 1 TO bs -COLOR 14, 2 -LOCATE w, x + i -PRINT CHR$(219) -NEXT i - -FOR i = 1 TO 17 -COLOR userColour, 2 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT CHR$(223) -NEXT i - -LOCATE y, z -COLOR 10, 2 -PRINT "o" - -SELECT CASE INKEY$ -CASE IS = l$ -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT " " -NEXT i -b = b - 1 -CASE IS = r$ -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT " " -NEXT i -b = b + 1 -CASE IS = CHR$(13) -IF y < b - 3 THEN GOTO 350 -IF y > b + 13 THEN GOTO 350 -IF speed <> 0 THEN GOTO 350 -speed = 10 -ballHit = b - z + 9 -directionlr = 1 -FOR i = 1 TO 8 -IF ballHit = -i THEN directionlr = 2 -IF ballHit = -i THEN ballHit = i -NEXT i -350 END SELECT - -IF speed = 0 THEN GOTO 360 -moveAmount = (15 - speed) / 200 -moveAmount = INT(moveAmount * 1000) / 1000 -SELECT CASE TIMER -CASE IS >= t + moveAmount -COLOR 2, 2 -LOCATE y, z -PRINT " " -IF direction = 1 THEN y = y - 1 ELSE y = y + 1 -t = TIMER -totals = totals + 1 -END SELECT - -SELECT CASE totals -CASE IS >= changeAmount -COLOR 2, 2 -LOCATE y, z -PRINT " " -IF directionlr = 1 THEN z = z - 1 ELSE z = z + 1 -IF ballHit = 8 AND directionlr = 1 AND serveHit <> 1 THEN z = z - 1 -IF ballHit = 8 AND directionlr = 2 AND serveHit <> 1 THEN z = z + 1 -totals = 0 -END SELECT - -hit1 = 0 -IF y = a - 1 AND z <= b + 17 AND z >= b + 1 THEN hit1 = 1 ELSE hit1 = 0 -SELECT CASE hit1 -CASE IS = 1 -ballHit = b - z + 9 -directionlr = 1 -direction = 1 -FOR i = 1 TO 8 -IF ballHit = -i THEN directionlr = 2 -IF ballHit = -i THEN ballHit = i -NEXT i -END SELECT -360 IF ballHit = 0 THEN changeAmount = 100 ELSE changeAmount = 9 - ballHit -IF b < -12 THEN b = -12 -IF b > 75 THEN b = 75 -IF d < -12 THEN d = -12 -IF d > 75 THEN d = 75 -IF y < 1 THEN y = 1 -IF y > 47 THEN y = 47 -IF z < 1 THEN z = 1 -IF z > 80 THEN z = 80 -IF y = 3 THEN direction = 2 -IF y = 3 AND alreadyAdded = 0 THEN rally = rally + 1 -IF y = 3 AND alreadyAdded = 0 THEN alreadyAdded = 1 -IF y = 4 THEN alreadyAdded = 0 -outOfBounds = 0 -IF y > 42 THEN outOfBounds = 1 -IF z < 2 THEN outOfBounds = 1 -IF z > 79 THEN outOfBounds = 1 - -FOR i = 1 TO bs -COLOR 2, 2 -IF y = w AND z = x + i THEN rallyEnd = 1 -NEXT i - -SELECT CASE outOfBounds -CASE IS = 1 -rallyEnd = 1 -speed = 0 -a = 37 -b = 32 -y = 36 -z = 40 -t = 0 -totals = 0 -speed = 0 -direction = 1 -alreadyAdded = 0 -COLOR 15, 2 -CLS -FOR i = 2 TO 20 -COLOR 1, 15 -LOCATE 2, i -PRINT CHR$(219) -NEXT i -COLOR 15, 1 -LOCATE 2, 2 -PRINT surname$ -END SELECT - -SELECT CASE TIMER - tt -CASE IS >= .005 -FOR i = 1 TO bs -COLOR 2, 2 -LOCATE w, x + i -PRINT " " -NEXT i -IF directionbs = 1 THEN x = x + 1 ELSE x = x - 1 -tt = TIMER -END SELECT - -IF directionbs = 2 THEN GOTO 400 -SELECT CASE x + bs -CASE IS >= 80 -directionbs = 2 -END SELECT -400 IF directionbs = 1 THEN GOTO 410 -SELECT CASE x -CASE IS <= 1 -directionbs = 1 -bs = bs + 1 -END SELECT -410 LOOP UNTIL rallyEnd = 1 - -COLOR 15, 2 -CLS -FOR i = 2 TO 20 -COLOR 1, 15 -LOCATE 2, i -PRINT CHR$(219) -NEXT i -COLOR 15, 1 -LOCATE 2, 2 -PRINT surname$ -LOCATE 2, 21 -COLOR 15, 3 -PRINT " RALLY "; rally - -COLOR 15, 2 -LOCATE 16, 24 -SELECT CASE rally -CASE IS > 29 -PRINT "THAT WAS AN UNBELIEVEABLE EFFORT! WELL PLAYED!" -CASE 24 TO 29 -PRINT "WELL DONE! THAT WAS AN EXCELLENT PERFORMANCE." -CASE 19 TO 23 -PRINT "VERY IMPRESSIVE! YOU SHOULD BE PLEASED WITH THAT SCORE." -CASE 16 TO 18 -PRINT "GOOD SCORE, BUT STILL A LOT OF IMPROVEMENT TO BE MADE." -CASE 12 TO 15 -PRINT "NOT A BAD SCORE, BUT YOU CAN DO MUCH BETTER." -CASE 9 TO 11 -PRINT "BY NO MEANS IMPRESSIVE. TRY AGAIN." -CASE 6 TO 8 -PRINT "THAT WAS ABSOLUTLY DREADFUL. ENOUGH SAID." -CASE 3 TO 5 -PRINT "THAT WAS SHOCKING. HAVE YOU EVER PLAYED THIS GAME BEFORE?" -CASE 0 TO 2 -PRINT "THE ONLY WAS TO DESCRIBE THAT PERFORMANCE IS EMBARRASING." -END SELECT - -LOCATE 20, 24 -PRINT "YOUR SCORE:" -COLOR 7, 2 -LOCATE 20, 36 -PRINT rally -LOCATE 28, 24 -PRINT "PRESS RETURN TO GO BACK TO THE MAIN MENU" -LOCATE 30, 24 -PRINT "PRESS SPACE TO TRY BACK WALL RALLY AGAIN" -440 SELECT CASE INKEY$ -CASE IS = CHR$(13) -CASE IS = CHR$(32) -GOTO 450 -CASE ELSE -GOTO 440 -END SELECT -END SUB - -SUB calender -COLOR 15, 2 -CLS -LOCATE 2, 5 -PRINT forename$(32); " "; surname$(32); " "; day; " "; month$(month); " "; year -LOCATE 5, 5 -PRINT "CALENDER" -LOCATE 9, 5 -PRINT "DATE" -LOCATE 9, 20 -PRINT "TOURNAMENT" -LOCATE 9, 60 -PRINT "QUALIFICATION" - -FOR i = 1 TO 24 -IF qual(i) = 1 THEN COLOR 15, 2 ELSE COLOR 7, 2 -LOCATE i + 10, 4 -PRINT day(i); month$(month(i)) -LOCATE i + 10, 20 -PRINT tourney$(i) -LOCATE i + 10, 60 -PRINT qual$(qual(i)) -NEXT i -DO -LOOP UNTIL INKEY$ = CHR$(13) -COLOR 15, 2 -CLS -END SUB - -SUB career -os = 1 -COLOR 15, 2 -CLS -470 COLOR 15, 2 -LOCATE 16, 24 -PRINT "CAREER MODE" -COLOR 7, 2 -IF os = 1 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 20, 24 -PRINT "NEW CAREER" -IF os = 2 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 22, 24 -PRINT "LOAD CAREER" - -460 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 2 -GOTO 470 -CASE IS = d$ -os = os + 1 -IF os > 2 THEN os = 1 -GOTO 470 -CASE IS = CHR$(13) -CASE ELSE -GOTO 460 -END SELECT - -SELECT CASE os -CASE IS = 1 -CASE IS = 2 -GOTO 470 -END SELECT -year = 2006 -day = 1 -month = 1 -forename$(32) = forename$ -surname$(32) = surname$ - -DO -z = 0 -arp(i) = 0 -FOR i = 1 TO 32 -FOR j = 1 TO 9 -arp(i) = arp(i) + rankPoints(j, i) -NEXT j -arp(i) = INT(arp(i) / 10) -minorRating(i) = i / 1000 -NEXT i -FOR i = 1 TO 32 -rank(i) = 33 -NEXT i -FOR i = 1 TO 32 -FOR j = 1 TO 32 -IF arp(i) + minorRating(i) >= arp(j) + minorRating(j) THEN rank(i) = rank(i) - 1 -NEXT j -NEXT i - -DO -COLOR 15, 2 -CLS -os = 1 -490 COLOR 15, 2 -LOCATE 2, 24 -PRINT forename$(32); " "; surname$(32); " "; day; month$(month); year -LOCATE 16, 24 -PRINT "CAREER MODE" -COLOR 7, 2 -LOCATE 20, 24 -IF os = 1 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "CALENDER" -LOCATE 22, 24 -IF os = 2 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "PLAYER STATISTICS" -LOCATE 24, 24 -IF os = 3 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "WORLD RANKINGS" -LOCATE 26, 24 -IF os = 4 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "GO TO NEXT TOURNAMENT" -LOCATE 28, 24 -IF os = 5 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "CAREER OPTIONS" -LOCATE 30, 24 -IF os = 6 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "QUIT CAREER" - -480 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 6 -GOTO 490 -CASE IS = d$ -os = os + 1 -IF os > 6 THEN os = 1 -GOTO 490 -CASE IS = CHR$(13) -CASE ELSE -GOTO 480 -END SELECT - -SELECT CASE os -CASE IS = 1 -CALL calender -os = 1 -GOTO 490 -CASE IS = 3 -CALL worldRankings -os = 3 -GOTO 490 -CASE IS = 4 -z = 1 -GOTO 490 -CASE IS = 6 -GOTO 500 -CASE ELSE -GOTO 490 -END SELECT -week = week + 1 -IF week = 53 THEN year = year + 1 -IF week = 53 THEN week = 1 -LOOP UNTIL z = 1 -LOOP UNTIL year = 11 -500 COLOR 15, 2 -CLS -END SUB - -SUB challengeMatchDay -COLOR 15, 2 -CLS -LOCATE 16, 24 -IF cCompleted(challenge) = 1 THEN PRINT "MATCH "; challenge; " (Completed)" ELSE PRINT "MATCH "; challenge; " (Not Completed)" -COLOR 7, 2 -FOR i = 1 TO cAmount(challenge) -LOCATE (i * 2) + 18, 24 -PRINT cDescription$(i, challenge) -NEXT i -LOCATE 36, 24 -COLOR 15, 2 -PRINT "PRESS RETURN TO GO TO THE MATCH" -DO -LOOP UNTIL INKEY$ = CHR$(13) -CALL matchDay -END SUB - -SUB challengeMode -os = 1 -610 COLOR 15, 2 -CLS -LOCATE 16, 24 -PRINT "CHALLENGE MODE" -FOR i = 1 TO 6 -LOCATE (i * 2) + 18, 24 -IF os = i THEN COLOR 2, 7 ELSE COLOR 7, 2 -IF cCompleted(i) = 1 THEN PRINT "MATCH "; i; " (Completed)" ELSE PRINT "MATCH "; i; " (Not Completed)" -NEXT i -LOCATE 32, 24 -IF os = 7 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "RETURN TO MAIN MENU" - -600 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 7 -GOTO 610 -CASE IS = d$ -os = os + 1 -IF os > 7 THEN os = 1 -GOTO 610 -CASE IS = CHR$(13) -CASE ELSE -GOTO 600 -END SELECT - -SELECT CASE os -CASE IS = 7 -CASE ELSE -challenge = os -CALL challengeMatchDay -END SELECT -COLOR 15, 2 -CLS -END SUB - - - - - - - - - - - - - - - -SUB getInfo -OPEN "t.txt" FOR INPUT AS #1 -FOR i = 1 TO 31 -INPUT #1, forename$(i) -INPUT #1, surname$(i) -INPUT #1, speedRating(i) -INPUT #1, power(i) -INPUT #1, accuracy(i) -INPUT #1, arp(i) -NEXT i -CLOSE -FOR i = 1 TO 31 -speed(i) = 11 - speedRating(i) -speed(i) = speed(i) * 25 -NEXT i -round$(1) = "ROUND 1" -round$(2) = "ROUND 2" -round$(3) = "QUARTER-FINALS" -round$(4) = "SEMI-FINALS" -round$(5) = "FINAL" -FOR j = 1 TO 32 -FOR i = 1 TO 10 -rankPoints(i, j) = arp(j) -NEXT i -NEXT j - -'OPEN "t2.txt" FOR INPUT AS #1 -'FOR i = 1 TO 24 -'INPUT #1, day(i) -'INPUT #1, month(i) -'INPUT #1, qual(i) -'INPUT #1, tourney$(i) -'NEXT i -'CLOSE - -month$(1) = "JANUARY" -days(1) = 31 -month$(2) = "FEBRUARY" -days(2) = 28 -month$(3) = "MARCH" -days(3) = 31 -month$(4) = "APRIL" -days(4) = 30 -month$(5) = "MAY" -days(5) = 31 -month$(6) = "JUNE" -days(6) = 30 -month$(7) = "JULY" -days(7) = 31 -month$(8) = "AUGUST" -days(8) = 31 -month$(9) = "SEPTEMBER" -days(9) = 30 -month$(10) = "OCTOBER" -days(10) = 31 -month$(11) = "NOVEMBER" -days(11) = 30 -month$(12) = "DECEMBER" -days(12) = 31 - -qual$(1) = "No qualification" -qual$(2) = "1-16 in Rankings" -qual$(3) = "17-32 in Rankings" -qual$(4) = "1-10 in Rankings" -qual$(5) = "11-20 in Rankings" -qual$(6) = "21-32 in Rankings" - -entrants(1) = 32 -entrants(2) = 16 -entrants(3) = 16 -entrants(4) = 8 -entrants(5) = 8 -entrants(6) = 8 - -rounds(1) = 5 -rounds(2) = 4 -rounds(3) = 4 -rounds(4) = 3 -rounds(5) = 3 -rounds(6) = 3 - -OPEN "t3.txt" FOR INPUT AS #1 -FOR i = 1 TO 6 -INPUT #1, cPlayerNumber(1, i) -INPUT #1, cGames(1, i) -INPUT #1, cSets(1, i) -INPUT #1, cPlayerNumber(2, i) -INPUT #1, cGames(2, i) -INPUT #1, cSets(2, i) -INPUT #1, cGamesToWin(i) -INPUT #1, cSetsToWin(i) -INPUT #1, cAmount(i) -FOR j = 1 TO cAmount(i) -INPUT #1, cDescription$(j, i) -NEXT j -cCompleted(i) = 0 -NEXT i -CLOSE -END SUB - - - - - - - - - - - - - - - - - - -SUB matchDay -IF challenge > 0 THEN oGamesToWin = gamesToWin -IF challenge > 0 THEN gamesToWin = cGamesToWin(challenge) -IF challenge > 0 THEN oSetsToWin = setsToWin -IF challenge > 0 THEN setsToWin = cSetsToWin(challenge) -IF challenge > 0 THEN oForename$ = forename$ -IF challenge > 0 THEN forename$ = forename$(cPlayerNumber(1, challenge)) -IF challenge > 0 THEN oSurname$ = surname$ -IF challenge > 0 THEN surname$ = surname$(cPlayerNumber(1, challenge)) -IF challenge > 0 THEN opponent = cPlayerNumber(2, challenge) -FOR i = 1 TO 2 -points(i) = 0 -realPoints$(i) = "" -IF challenge > 0 THEN games(i) = cGames(i, challenge) ELSE games(i) = 0 -IF challenge > 0 THEN sets(i) = cSets(i, challenge) ELSE sets(i) = 0 -winners(i) = 0 -aces(i) = 0 -faults(i) = 0 -errors(i) = 0 -NEXT i - -side = 1 -speed = 0 -serve = 1 -serveHit = 0 -direction = 1 -realPoints$(1) = "0" -realPoints$(2) = "0" - -COLOR 0, 2 -CLS -DO -SELECT CASE speed -CASE IS = 0 -a = 37 -b = 32 -c = 16 -IF serve = 1 THEN d = 32 ELSE d = rand(12) + 25 -IF serve = 1 THEN y = 36 ELSE y = 17 -z = 41 -END SELECT -total = 0 -totals = 0 -moveAmount = 0 -tt = 0 -t = 0 -noOutChance = 0 - -COLOR 0, 2 -CLS -FOR i = 1 TO 2 -LOCATE 1 + i, 2 -COLOR 7, 1 -PRINT " " -LOCATE 1 + i, 2 -COLOR 7, 1 -IF i = 1 AND serve = 1 THEN PRINT surname$; " *" -IF i = 1 AND serve = 2 THEN PRINT surname$ -IF i = 2 AND serve = 1 THEN PRINT surname$(opponent); -IF i = 2 AND serve = 2 THEN PRINT surname$(opponent); " *" -LOCATE 1 + i, 20 -COLOR 7, 3 -PRINT " " -LOCATE 1 + i, 21 -COLOR 7, 3 -PRINT realPoints$(i) -LOCATE 1 + i, 24 -COLOR 7, 4 -PRINT " " -COLOR 7, 4 -LOCATE 1 + i, 24 -PRINT games(i) -LOCATE 1 + i, 28 -COLOR 7, 6 -PRINT " " -COLOR 7, 6 -LOCATE 1 + i, 28 -PRINT sets(i) -IF i = 1 THEN j = 2 ELSE j = 1 -SELECT CASE realPoints$(i) -CASE IS = "A" -LOCATE 1 + i, 32 -COLOR 7, 6 -PRINT "ADVANTAGE" -CASE IS = "40" -LOCATE 1 + i, 32 -COLOR 7, 6 -IF realPoints$(j) <> "40" AND realPoints$(j) <> "A" AND serve = i THEN PRINT "GAME POINT" -IF realPoints$(j) <> "40" AND realPoints$(j) <> "A" AND serve <> i THEN PRINT "BREAK POINT" -LOCATE 1 + i, 32 -IF realPoints$(j) <> "40" AND realPoints$(j) <> "A" AND gamesToWin - games(i) = 1 AND setsToWin - sets(i) = 1 THEN PRINT "MATCH POINT" -LOCATE 1 + i, 32 -IF realPoints$(j) <> "40" AND realPoints$(j) <> "A" AND gamesToWin - games(i) = 1 AND setsToWin - sets(i) <> 1 THEN PRINT " " -LOCATE 1 + i, 32 -IF realPoints$(j) <> "40" AND realPoints$(j) <> "A" AND gamesToWin - games(i) = 1 AND setsToWin - sets(i) <> 1 THEN PRINT "SET POINT " -END SELECT -NEXT i - -winner = 0 -ttt = TIMER -DO - -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR userColour, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT CHR$(223) -NEXT i -FOR i = 1 TO 17 -IF d + i > 0 AND d + i < 81 THEN LOCATE c, d + i -COLOR opponentColour, 2 -IF d + i > 0 AND d + i < 81 THEN PRINT CHR$(220) -NEXT i -LOCATE y, z -COLOR 10, 2 -PRINT CHR$(111) - -zz = 0 -DO -SELECT CASE INKEY$ -CASE IS = l$ -zz = 1 -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT " " -NEXT i -b = b - 1 -CASE IS = r$ -zz = 1 -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT " " -NEXT i -b = b + 1 -CASE IS = CHR$(13) -IF speed <> 0 THEN GOTO 80 -IF y < b - 4 THEN GOTO 80 -IF y > b + 12 THEN GOTO 80 -IF serve = 1 AND speed = 0 THEN direction = 1 -IF serve = 1 AND speed = 0 THEN serveHit = 1 -IF serve = 1 AND speed = 0 THEN speed = 10 -longHit = rand(12 - accuracy(opponent)) -SELECT CASE longHit -CASE IS = 1 -IF d > 28 THEN sideHit = 1 ELSE sideHit = 2 -290 IF sideHit = 1 THEN e = rand(3) + 0 ELSE e = rand(3) + 14 -IF e = 1 OR e = 17 THEN GOTO 290 -CASE ELSE -e = rand(17) -END SELECT - -ballHit = b - z + 9 -directionlr = 1 -FOR i = 1 TO 8 -IF ballHit = -i THEN directionlr = 2 -IF ballHit = -i THEN ballHit = i -NEXT i -IF ballHit = 0 THEN changeAmount = 100 ELSE changeAmount = 9 - ballHit -80 END SELECT - -IF speed = 0 THEN GOTO 40 -moveAmount = (15 - speed) / 200 -moveAmount = INT(moveAmount * 1000) / 1000 -SELECT CASE TIMER -CASE IS >= t + moveAmount -zz = 1 -COLOR 2, 2 -LOCATE y, z -PRINT " " -IF direction = 1 THEN y = y - 1 ELSE y = y + 1 -t = TIMER -totals = totals + 1 -END SELECT - -IF zz = 1 THEN GOTO 140 -SELECT CASE totals -CASE IS >= changeAmount -zz = 1 -COLOR 2, 2 -LOCATE y, z -PRINT " " -IF directionlr = 1 THEN z = z - 1 ELSE z = z + 1 -IF ballHit = 8 AND directionlr = 1 AND serveHit <> 1 THEN z = z - 1 -IF ballHit = 8 AND directionlr = 2 AND serveHit <> 1 THEN z = z + 1 -totals = 0 -END SELECT - -IF zz = 1 THEN GOTO 140 -40 IF serve = 1 AND speed = 0 THEN GOTO 140 -fatigue = INT(TIMER - ttt) -IF fatigue > 40 THEN fatigue = 40 -opponentMove = rand(speed(opponent) + fatigue) -SELECT CASE opponentMove -CASE IS = 1 -zz = 1 -IF speed <> 0 THEN GOTO 100 -IF tt > 0 THEN GOTO 110 -tt = TIMER -110 IF TIMER - tt < 1.5 THEN GOTO 100 -direction = 2 -speed = 10 -ballHit = d - z + 9 -serveHit = 1 -serveNow = 1 -100 IF speed = 0 THEN GOTO 120 -FOR i = 1 TO 17 -IF d + i > 0 AND d + i < 81 THEN LOCATE c, d + i -COLOR 2, 2 -IF d + i > 0 AND d + i < 81 AND d + e <> z THEN PRINT " " -NEXT i -SELECT CASE d + e -CASE IS < z -d = d + 1 -CASE IS > z -d = d - 1 -END SELECT -120 END SELECT -140 LOOP UNTIL zz = 1 - -90 IF y = c + 1 AND z <= d + 17 AND z >= d + 1 THEN hit2 = 1 ELSE hit2 = 0 -IF y = a - 1 AND z <= b + 17 AND z >= b + 1 THEN hit1 = 1 ELSE hit1 = 0 - -SELECT CASE hit1 -CASE IS = 1 -serveHit = 0 -longHit = rand(12 - accuracy(opponent)) -SELECT CASE longHit -CASE IS = 1 -IF d > 28 THEN sideHit = 1 ELSE sideHit = 2 -280 IF sideHit = 1 THEN e = rand(4) + 0 ELSE e = rand(4) + 13 -IF e = 1 AND d < 50 AND d > 30 THEN GOTO 280 -IF e = 17 AND d < 50 AND d > 30 THEN GOTO 280 -CASE ELSE -e = rand(17) -END SELECT -END SELECT - -SELECT CASE hit2 -CASE IS = 1 -IF serveNow = 0 THEN serveHit = 0 -ballHit = d - z + 9 -direction = 2 -IF speed <> 0 THEN speed = power(opponent) -END SELECT -SELECT CASE hit1 -CASE IS = 1 -ballHit = b - z + 9 -direction = 1 -IF speed <> 0 THEN speed = 10 -END SELECT -serveNow = 0 - -IF hit2 = 0 AND hit1 = 0 THEN GOTO 50 -directionlr = 1 -FOR i = 1 TO 8 -IF ballHit = -i THEN directionlr = 2 -IF ballHit = -i THEN ballHit = i -NEXT i - -50 IF ballHit = 0 THEN changeAmount = 100 ELSE changeAmount = 9 - ballHit -IF b < -12 THEN b = -12 -IF b > 75 THEN b = 75 -IF d < -12 THEN d = -12 -IF d > 75 THEN d = 75 -IF y < 6 THEN y = 6 -IF y > 47 THEN y = 47 -IF z < 1 THEN z = 1 -IF z > 80 THEN z = 80 - -IF winner > 0 THEN GOTO 160 -finish = 0 -IF y = 15 THEN winner = 1 -IF y = 15 AND serveHit <> 1 THEN winners(1) = winners(1) + 1 -IF y = 15 AND serveHit = 1 THEN aces(1) = aces(1) + 1 -IF y = 38 THEN winner = 2 -IF y = 38 AND serveHit <> 1 THEN winners(2) = winners(2) + 1 -IF y = 38 AND serveHit = 1 THEN aces(2) = aces(2) + 1 -IF y = 15 THEN noOutChance = 1 -IF y = 38 THEN noOutChance = 1 -IF z <= 1 AND direction = 1 THEN winner = 2 -IF z <= 1 AND direction = 1 AND serveHit <> 1 THEN errors(1) = errors(1) + 1 -IF z <= 1 AND direction = 1 AND serveHit = 1 THEN faults(1) = faults(1) + 1 -IF z <= 1 AND direction = 2 THEN winner = 1 -IF z <= 1 AND direction = 2 AND serveHit <> 1 THEN errors(2) = errors(2) + 1 -IF z <= 1 AND direction = 2 AND serveHit = 1 THEN faults(2) = faults(2) + 1 -IF z >= 80 AND direction = 1 THEN winner = 2 -IF z >= 80 AND direction = 1 AND serveHit <> 1 THEN errors(1) = errors(1) + 1 -IF z >= 80 AND direction = 1 AND serveHit = 1 THEN faults(1) = faults(1) + 1 -IF z >= 80 AND direction = 2 THEN winner = 1 -IF z >= 80 AND direction = 2 AND serveHit <> 1 THEN errors(2) = errors(2) + 1 -IF z >= 80 AND direction = 2 AND serveHit = 1 THEN faults(2) = faults(2) + 1 -160 IF y = 6 THEN finish = 1 -IF y = 47 THEN finish = 2 -IF z <= 1 AND direction = 1 THEN finish = 2 -IF z <= 1 AND direction = 2 THEN finish = 1 -IF z >= 80 AND direction = 1 THEN finish = 2 -IF z >= 80 AND direction = 2 THEN finish = 1 -IF noOutChance = 1 THEN GOTO 240 -SELECT CASE winner -CASE IS > 0 -LOCATE 24, 38 -COLOR 15, 2 -PRINT "OUT!" -FOR t = 1 TO 180000 -NEXT t -END SELECT -240 SELECT CASE y -CASE IS <= 15 -LOCATE 24, 38 -COLOR 15, 2 -IF serveHit = 1 THEN PRINT "ACE!" -CASE IS >= 38 -LOCATE 24, 38 -COLOR 15, 2 -IF serveHit = 1 THEN PRINT "ACE!" -END SELECT -LOOP UNTIL finish <> 0 - -points(winner) = points(winner) + 1 -SELECT CASE points(winner) -CASE IS = 4 -IF winner = 1 THEN loser = 2 ELSE loser = 1 -SELECT CASE points(loser) -CASE IS = 4 -points(winner) = 3 -points(loser) = 3 -CASE IS < 3 -points(winner) = 5 -END SELECT -END SELECT - -FOR i = 1 TO 2 -SELECT CASE points(i) -CASE IS = 0 -realPoints$(i) = "0" -CASE IS = 1 -realPoints$(i) = "15" -CASE IS = 2 -realPoints$(i) = "30" -CASE IS = 3 -realPoints$(i) = "40" -CASE IS = 4 -realPoints$(i) = "A" -CASE IS = 5 -points(1) = 0 -points(2) = 0 -realPoints$(1) = "0" -realPoints$(2) = "0" -games(i) = games(i) + 1 -IF serve = 1 THEN serve = 2 ELSE serve = 1 -END SELECT -IF games(i) = gamesToWin THEN sets(i) = sets(i) + 1 -IF games(i) = gamesToWin THEN games(1) = 0 -IF games(i) = gamesToWin THEN games(2) = 0 -NEXT i -speed = 0 -LOOP UNTIL sets(1) = 1 OR sets(2) = setsToWin - -COLOR 0, 2 -CLS -FOR i = 1 TO 2 -LOCATE 1 + i, 2 -COLOR 7, 1 -PRINT " " -LOCATE 1 + i, 2 -COLOR 7, 1 -IF i = 1 AND serve = 1 THEN PRINT surname$; " *" -IF i = 1 AND serve = 2 THEN PRINT surname$ -IF i = 2 AND serve = 1 THEN PRINT surname$(opponent); -IF i = 2 AND serve = 2 THEN PRINT surname$(opponent); " *" -LOCATE 1 + i, 20 -COLOR 7, 3 -PRINT " " -LOCATE 1 + i, 21 -COLOR 7, 3 -PRINT realPoints$(i) -LOCATE 1 + i, 24 -COLOR 7, 4 -PRINT " " -COLOR 7, 4 -LOCATE 1 + i, 24 -PRINT games(i) -LOCATE 1 + i, 28 -COLOR 7, 6 -PRINT " " -COLOR 7, 6 -LOCATE 1 + i, 28 -PRINT sets(i) -NEXT i -COLOR 15, 2 -LOCATE 30, 20 -SELECT CASE sets(1) -CASE IS > sets(2) -IF challenge = 1 THEN cCompleted(challenge) = 1 -PRINT forename$; " "; surname$; " BEAT "; forename$(opponent); " "; surname$(opponent); " "; sets(1); "-"; sets(2) -CASE ELSE -PRINT forename$(opponent); " "; surname$(opponent); " BEAT "; forename$; " "; surname$; " "; sets(2); "-"; sets(1) -END SELECT -COLOR 7, 2 -LOCATE 34, 20 -PRINT "PRESS RETURN TO VIEW THE MATCH STATISTICS" -DO -LOOP UNTIL INKEY$ = CHR$(13) - -COLOR 15, 2 -CLS -FOR i = 1 TO 2 -LOCATE 1 + i, 2 -COLOR 7, 1 -PRINT " " -LOCATE 1 + i, 2 -COLOR 7, 1 -IF i = 1 AND serve = 1 THEN PRINT surname$; " *" -IF i = 1 AND serve = 2 THEN PRINT surname$ -IF i = 2 AND serve = 1 THEN PRINT surname$(opponent); -IF i = 2 AND serve = 2 THEN PRINT surname$(opponent); " *" -LOCATE 1 + i, 20 -COLOR 7, 3 -PRINT " " -LOCATE 1 + i, 21 -COLOR 7, 3 -PRINT realPoints$(i) -LOCATE 1 + i, 24 -COLOR 7, 4 -PRINT " " -COLOR 7, 4 -LOCATE 1 + i, 24 -PRINT games(i) -LOCATE 1 + i, 28 -COLOR 7, 6 -PRINT " " -COLOR 7, 6 -LOCATE 1 + i, 28 -PRINT sets(i) -NEXT i - -COLOR 15, 2 -LOCATE 28, 20 -PRINT surname$ -LOCATE 28, 48 -PRINT surname$(opponent) -LOCATE 30, 33 -PRINT "TOTAL SETS" -LOCATE 32, 32 -PRINT "TOTAL POINTS" -LOCATE 34, 36 -PRINT "ACES" -LOCATE 36, 34 -PRINT "WINNERS" -LOCATE 38, 30 -PRINT "SERVICE FAULTS" -LOCATE 40, 30 -PRINT "UNFORCED ERRORS" -COLOR 7, 2 -LOCATE 30, 25 -PRINT sets(1) -LOCATE 30, 47 -PRINT sets(2) -LOCATE 32, 25 -PRINT aces(1) + winners(1) + faults(2) + errors(2) -LOCATE 32, 47 -PRINT aces(2) + winners(2) + faults(1) + errors(1) -LOCATE 34, 25 -PRINT aces(1) -LOCATE 34, 47 -PRINT aces(2) -LOCATE 36, 25 -PRINT winners(1) -LOCATE 36, 47 -PRINT winners(2) -LOCATE 38, 25 -PRINT faults(1) -LOCATE 38, 47 -PRINT faults(2) -LOCATE 40, 25 -PRINT errors(1) -LOCATE 40, 47 -PRINT errors(2) -DO -LOOP UNTIL INKEY$ = CHR$(13) -COLOR 15, 2 -CLS -IF challenge > 0 THEN gamesToWin = oGamesToWin -IF challenge > 0 THEN setsToWin = oSetsToWin -IF challenge > 0 THEN forename$ = oForename$ -IF challenge > 0 THEN surname$ = oSurname$ -END SUB - -SUB matchDayMenu -560 os = 1 -COLOR 15, 2 -CLS -550 LOCATE 16, 24 -COLOR 15, 2 -PRINT "MATCH DAY" -LOCATE 20, 24 -PRINT forename$; " "; surname$; " V "; forename$(opponent); " "; surname$(opponent) -LOCATE 22, 24 -PRINT "First to "; gamesToWin; " games" -LOCATE 24, 24 -IF setsToWin = 1 THEN PRINT "First to 1 set" ELSE PRINT "First to "; setsToWin; " sets" -LOCATE 30, 24 -IF os = 1 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "MATCH OPTIONS" -LOCATE 32, 24 -IF os = 2 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "GO TO MATCH" - -540 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 2 -GOTO 550 -CASE IS = d$ -os = os + 1 -IF os > 2 THEN os = 1 -GOTO 550 -CASE IS = CHR$(13) -CASE ELSE -GOTO 540 -END SELECT - -SELECT CASE os -CASE IS = 1 -CALL options -GOTO 560 -CASE IS = 2 -CALL matchDay -END SELECT -END SUB - -SUB options -COLOR 15, 2 -os = 1 -230 COLOR 15, 2 -CLS -IF gamesToWin2 = 1 THEN gamesToWin = 3 ELSE gamesToWin = 6 -COLOR 15, 2 -LOCATE 16, 32 -PRINT "OPTIONS" -IF os = 1 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 20, 32 -PRINT "GAMES IN A SET : FIRST TO "; gamesToWin -IF os = 2 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 22, 32 -PRINT "SETS IN A MATCH : FIRST TO "; setsToWin -IF os = 3 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 24, 32 -PRINT "USER'S RACKET : "; colour$(userColour) -IF os = 4 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 26, 32 -PRINT "OPPONENT'S RACKET: "; colour$(opponentColour) -IF os = 5 THEN COLOR 2, 7 ELSE COLOR 7, 2 -LOCATE 28, 32 -PRINT "RETURN TO MATCH MENU" - -220 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 5 -GOTO 230 -CASE IS = d$ -os = os + 1 -IF os > 5 THEN os = 1 -GOTO 230 -CASE IS = l$ -IF os = 1 THEN gamesToWin2 = gamesToWin2 - 1 -IF os = 2 THEN setsToWin = setsToWin - 1 -IF gamesToWin2 < 1 THEN gamesToWin2 = 2 -IF setsToWin < 1 THEN setsToWin = 3 -IF os = 3 THEN userColour = userColour - 1 -IF userColour < 3 THEN userColour = 15 -IF os = 4 THEN opponentColour = opponentColour - 1 -IF opponentColour < 3 THEN opponentColour = 15 -GOTO 230 -CASE IS = r$ -IF os = 1 THEN gamesToWin2 = gamesToWin2 + 1 -IF os = 2 THEN setsToWin = setsToWin + 1 -IF gamesToWin2 > 2 THEN gamesToWin2 = 1 -IF setsToWin > 3 THEN setsToWin = 1 -IF os = 3 THEN userColour = userColour + 1 -IF userColour > 15 THEN userColour = 3 -IF os = 4 THEN opponentColour = opponentColour + 1 -IF opponentColour > 15 THEN opponentColour = 3 -GOTO 230 -CASE IS = CHR$(13) -IF os <> 5 THEN GOTO 220 -CASE ELSE -GOTO 220 -END SELECT -COLOR 15, 2 -CLS -END SUB - -SUB preMatchDay -os = 1 -COLOR 15, 2 -CLS -200 COLOR 15, 2 -LOCATE 16, 24 -PRINT "SELECT YOUR OPPONENT" -COLOR 7, 2 -LOCATE 20, 24 -PRINT CHR$(29); " "; forename$(os); " "; surname$(os); " "; CHR$(29); " " -LOCATE 24, 24 -COLOR 15, 2 -PRINT "SPEED:" -LOCATE 26, 24 -COLOR 15, 2 -PRINT "POWER:" -LOCATE 28, 24 -COLOR 15, 2 -PRINT "ACCURACY:" -FOR i = 1 TO 10 -LOCATE 24, i + 34 -COLOR 4, 2 -IF i <= speedRating(os) THEN PRINT CHR$(219) ELSE PRINT " " -LOCATE 26, i + 34 -COLOR 5, 2 -IF i <= power(os) THEN PRINT CHR$(219) ELSE PRINT " " -LOCATE 28, i + 34 -COLOR 6, 2 -IF i <= accuracy(os) THEN PRINT CHR$(219) ELSE PRINT " " -NEXT i - -190 SELECT CASE INKEY$ -CASE IS = l$ -os = os - 1 -IF os < 1 THEN os = 31 -GOTO 200 -CASE IS = r$ -os = os + 1 -IF os > 31 THEN os = 1 -GOTO 200 -CASE IS = CHR$(13) -CASE ELSE -GOTO 190 -END SELECT - -opponent = os -CALL matchDayMenu -END SUB - -FUNCTION rand (c) -RANDOMIZE TIMER -rand = INT(c * RND(1)) + 1 -END FUNCTION - -SUB targetPractice -430 a = 37 -b = 32 -score = 0 -w = 6 -SELECT CASE target -CASE IS > 4 -location = rand(2) -IF location = 1 THEN x = rand(16) ELSE x = rand(16) + 55 -CASE ELSE -x = rand(68) -END SELECT -y = 36 -z = 40 -t = 0 -alreadyAdded = 0 -hitTarget = 0 -totals = 0 -speed = 0 -direction = 1 - -COLOR 15, 2 -CLS - -LOCATE 16, 24 -PRINT "TARGET PRACTICE" -COLOR 7, 2 -LOCATE 20, 24 -PRINT "There are 10 targets to hit, each one slightly" -LOCATE 21, 24 -PRINT "smaller than the last. Every time you hit the" -LOCATE 22, 24 -PRINT "back wall, hit the ball out, or miss the ball," -LOCATE 23, 24 -PRINT "your score will increase by 1 point. The lower" -LOCATE 24, 24 -PRINT "your score at the end, the better. Shown next" -LOCATE 25, 24 -PRINT "to your name are firstly, the amount of targets" -LOCATE 26, 24 -PRINT "you've hit so far, followed by your points." -LOCATE 27, 24 -PRINT "Remember to keep your points low!" -COLOR 15, 2 -LOCATE 35, 24 -PRINT "PRESS RETURN TO BEGIN TARGET PRACTICE" -DO -LOOP UNTIL INKEY$ = CHR$(13) - -score = 0 -FOR target = 1 TO 10 -w = 6 -SELECT CASE target -CASE IS > 4 -location = rand(2) -IF location = 1 THEN x = rand(16) ELSE x = rand(16) + 55 -CASE ELSE -x = rand(68) -END SELECT - -alreadyAdded = 0 -hitTarget = 0 -IF y = w THEN y = y + 2 -IF y - w = 1 THEN y = y + 1 -COLOR 15, 2 -CLS -FOR i = 2 TO 20 -COLOR 1, 15 -LOCATE 2, i -PRINT CHR$(219) -NEXT i -COLOR 15, 1 -LOCATE 2, 2 -PRINT surname$ - -DO -LOCATE 2, 21 -COLOR 15, 4 -PRINT target - 1 -LOCATE 2, 24 -COLOR 15, 5 -PRINT " SCORE "; score - -FOR i = 1 TO 11 - target -LOCATE w, x + i -COLOR target + 2, 2 -PRINT CHR$(219) -NEXT i - -FOR i = 1 TO 17 -COLOR userColour, 2 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT CHR$(223) -NEXT i - -LOCATE y, z -COLOR 10, 2 -PRINT "o" - -SELECT CASE INKEY$ -CASE IS = l$ -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT " " -NEXT i -b = b - 1 -CASE IS = r$ -FOR i = 1 TO 17 -IF b + i > 0 AND b + i < 81 THEN LOCATE a, b + i -COLOR 6, 2 -IF b + i > 0 AND b + i < 81 THEN PRINT " " -NEXT i -b = b + 1 -CASE IS = CHR$(13) -IF y < b - 3 THEN GOTO 330 -IF y > b + 13 THEN GOTO 330 -IF speed <> 0 THEN GOTO 330 -speed = 10 -ballHit = b - z + 9 -directionlr = 1 -FOR i = 1 TO 8 -IF ballHit = -i THEN directionlr = 2 -IF ballHit = -i THEN ballHit = i -NEXT i -330 END SELECT - -IF speed = 0 THEN GOTO 320 -moveAmount = (15 - speed) / 200 -moveAmount = INT(moveAmount * 1000) / 1000 -SELECT CASE TIMER -CASE IS >= t + moveAmount -COLOR 2, 2 -LOCATE y, z -PRINT " " -IF direction = 1 THEN y = y - 1 ELSE y = y + 1 -t = TIMER -totals = totals + 1 -END SELECT - -SELECT CASE totals -CASE IS >= changeAmount -COLOR 2, 2 -LOCATE y, z -PRINT " " -IF directionlr = 1 THEN z = z - 1 ELSE z = z + 1 -IF ballHit = 8 AND directionlr = 1 AND serveHit <> 1 THEN z = z - 1 -IF ballHit = 8 AND directionlr = 2 AND serveHit <> 1 THEN z = z + 1 -totals = 0 -END SELECT - -hit1 = 0 -IF y = a - 1 AND z <= b + 17 AND z >= b + 1 THEN hit1 = 1 ELSE hit1 = 0 -SELECT CASE hit1 -CASE IS = 1 -ballHit = b - z + 9 -directionlr = 1 -direction = 1 -FOR i = 1 TO 8 -IF ballHit = -i THEN directionlr = 2 -IF ballHit = -i THEN ballHit = i -NEXT i -END SELECT -320 IF ballHit = 0 THEN changeAmount = 100 ELSE changeAmount = 9 - ballHit -IF b < -12 THEN b = -12 -IF b > 75 THEN b = 75 -IF d < -12 THEN d = -12 -IF d > 75 THEN d = 75 -IF y < 1 THEN y = 1 -IF y > 47 THEN y = 47 -IF z < 1 THEN z = 1 -IF z > 80 THEN z = 80 -IF y = 2 THEN direction = 2 -IF y = 2 AND alreadyAdded = 0 THEN score = score + 1 -IF y = 2 AND alreadyAdded = 0 THEN alreadyAdded = 1 -IF y = 3 THEN alreadyAdded = 0 -outOfBounds = 0 -IF y > 42 THEN outOfBounds = 1 -IF z < 2 THEN outOfBounds = 1 -IF z > 79 THEN outOfBounds = 1 - -FOR i = 1 TO 11 - target -IF y = w + 1 AND z = x + i THEN hitTarget = 1 -IF y = w AND z = x + i THEN hitTarget = 1 -NEXT i -IF hitTarget = 1 THEN direction = 2 - -SELECT CASE outOfBounds -CASE IS = 1 -score = score + 1 -speed = 0 -a = 37 -b = 32 -y = 36 -z = 40 -t = 0 -totals = 0 -speed = 0 -direction = 1 -alreadyAdded = 0 -COLOR 15, 2 -CLS -FOR i = 2 TO 20 -COLOR 1, 15 -LOCATE 2, i -PRINT CHR$(219) -NEXT i -COLOR 15, 1 -LOCATE 2, 2 -PRINT surname$ -END SELECT -LOOP UNTIL hitTarget = 1 -NEXT target - -COLOR 15, 2 -CLS -FOR i = 2 TO 20 -COLOR 1, 15 -LOCATE 2, i -PRINT CHR$(219) -NEXT i -COLOR 15, 1 -LOCATE 2, 2 -PRINT surname$ -LOCATE 2, 21 -COLOR 15, 4 -PRINT target - 1 -LOCATE 2, 25 -COLOR 15, 3 -PRINT " SCORE "; score - -COLOR 15, 2 -LOCATE 16, 24 -SELECT CASE score -CASE IS < 10 -PRINT "THAT WAS AN UNBELIEVEABLE EFFORT! WELL PLAYED!" -CASE 10 TO 18 -PRINT "WELL DONE! THAT WAS AN EXCELLENT PERFORMANCE." -CASE 19 TO 26 -PRINT "VERY IMPRESSIVE! YOU SHOULD BE PLEASED WITH THAT SCORE." -CASE 27 TO 35 -PRINT "GOOD SCORE, BUT STILL A LOT OF IMPROVEMENT TO BE MADE." -CASE 36 TO 42 -PRINT "NOT A BAD SCORE, BUT YOU CAN DO MUCH BETTER." -CASE 43 TO 50 -PRINT "BY NO MEANS IMPRESSIVE. TRY AGAIN." -CASE 51 TO 56 -PRINT "HAVE YOU FORGOTTEN THAT THE IDEA IS TO GET A LOW SCORE?" -CASE 57 TO 62 -PRINT "THAT WAS ABSOLUTELY DREADFUL. ENOUGH SAID." -CASE IS > 62 -PRINT "THAT WAS SHOCKING. HAVE YOU EVER PLAYED THIS GAME BEFORE?" -END SELECT - -LOCATE 20, 24 -PRINT "YOUR SCORE:" -COLOR 7, 2 -LOCATE 20, 36 -PRINT score -LOCATE 28, 24 -PRINT "PRESS RETURN TO GO BACK TO THE MAIN MENU" -LOCATE 30, 24 -PRINT "PRESS SPACE TO TRY TARGET PRACTICE AGAIN" -420 SELECT CASE INKEY$ -CASE IS = CHR$(13) -CASE IS = CHR$(32) -GOTO 430 -CASE ELSE -GOTO 420 -END SELECT -END SUB - -SUB tournament -forename$(32) = forename$ -surname$(32) = surname$ - -FOR i = 1 TO 32 -in(i) = 1 -flag(i) = 0 -NEXT i - -FOR roundNumber = 1 TO 5 -SELECT CASE roundNumber -CASE IS = 1 -entrants = 32 -CASE IS = 2 -entrants = 16 -CASE IS = 3 -entrants = 8 -CASE IS = 4 -entrants = 4 -CASE IS = 5 -entrants = 2 -END SELECT - -FOR i = 1 TO 32 -flag(i) = 0 -NEXT i - -FOR i = 1 TO entrants -DO -tournamentPlayer(i) = rand(32) -LOOP UNTIL flag(tournamentPlayer(i)) = 0 AND in(tournamentPlayer(i)) = 1 -flag(tournamentPlayer(i)) = 1 -NEXT i - -userIn = 0 -COLOR 15, 2 -CLS -LOCATE 6, 5 -IF roundNumber = 5 THEN PRINT "THE FINAL:" ELSE PRINT round$(roundNumber); " FIXUTES:" -FOR i = 1 TO 32 -FOR j = 1 TO entrants -IF tournamentPlayer(j) = 32 OR tournamentPlayer(j + 1) = 32 THEN COLOR 15, 2 ELSE COLOR 7, 2 -IF tournamentPlayer(j) = 32 OR tournamentPlayer(j + 1) = 32 THEN userIn = 1 -LOCATE j + 10, 5 -IF tournamentPlayer(j) = i THEN PRINT forename$(i); " "; surname$(i) -LOCATE j + 10, 40 -IF tournamentPlayer(j + 1) = i THEN PRINT forename$(i); " "; surname$(i) -LOCATE j + 10, 32 -PRINT "V" -j = j + 1 -NEXT j -NEXT i -COLOR 15, 2 -LOCATE 44, 5 -IF userIn = 1 THEN PRINT "PRESS RETURN TO GO TO YOUR NEXT MATCH" ELSE PRINT "YOU ARE OUT OF THE TOURNAMENT. PRESS RETURN TO SKIP TO THE NEXT ROUND" -DO -LOOP UNTIL INKEY$ = CHR$(13) - -userDone = 0 -FOR j = 1 TO entrants -IF tournamentPlayer(j) = 32 OR tournamentPlayer(j + 1) = 32 THEN userMatch = 1 ELSE userMatch = 0 -IF userMatch = 1 THEN userDone = userDone + 1 -SELECT CASE userMatch -CASE IS = 1 -IF userDone > 1 THEN GOTO 270 -IF tournamentPlayer(j) = 32 THEN opponent = tournamentPlayer(j + 1) ELSE opponent = tournamentPlayer(j) -CALL matchDayMenu -IF winner = 1 THEN in(opponent) = 0 ELSE in(32) = 0 -CASE ELSE -270 totalRating = speedRating(tournamentPlayer(j)) + power(tournamentPlayer(j)) + accuracy(tournamentPlayer(j)) + speedRating(tournamentPlayer(j + 1)) + power(tournamentPlayer(j + 1)) + accuracy(tournamentPlayer(j + 1)) -randTR = rand(totalRating) -SELECT CASE randTR -CASE IS <= speedRating(tournamentPlayer(j)) + power(tournamentPlayer(j)) + accuracy(tournamentPlayer(j)) -in(tournamentPlayer(j + 1)) = 0 -CASE ELSE -in(tournamentPlayer(j)) = 0 -END SELECT -END SELECT -j = j + 1 -NEXT j -NEXT roundNumber - -COLOR 7, 2 -CLS -FOR i = 34 TO 44 -LOCATE 6, i -PRINT CHR$(219) -NEXT i -LOCATE 7, 34 -PRINT CHR$(219); CHR$(219) -LOCATE 7, 43 -PRINT CHR$(219); CHR$(219) -LOCATE 8, 35 -PRINT CHR$(219); CHR$(219); CHR$(219) -LOCATE 8, 41 -PRINT CHR$(219); CHR$(219); CHR$(219) -FOR i = 37 TO 41 -LOCATE 9, i -PRINT CHR$(219) -NEXT i - -FOR j = 10 TO 20 -FOR i = 36 TO 42 -LOCATE j, i -PRINT CHR$(219) -NEXT i -NEXT j - -COLOR 7, 0 -FOR i = 35 TO 43 -LOCATE 21, i -IF i > 36 AND i < 42 THEN PRINT CHR$(196) ELSE PRINT " " -NEXT i -FOR i = 34 TO 44 -LOCATE 22, i -IF i > 35 AND i < 43 THEN PRINT CHR$(196) ELSE PRINT " " -NEXT i -FOR i = 33 TO 45 -LOCATE 23, i -IF i > 34 AND i < 44 THEN PRINT CHR$(196) ELSE PRINT " " -NEXT i - -COLOR 15, 2 -LOCATE 30, 20 -PRINT "TOURNAMENT WINNER:" -COLOR 7, 2 -LOCATE 30, 40 -FOR i = 1 TO 32 -IF in(i) = 1 THEN PRINT forename$(i); " "; surname$(i) -NEXT i -LOCATE 34, 20 -PRINT "PRESS RETURN TO GO BACK TO THE MAIN MENU" -DO -LOOP UNTIL INKEY$ = CHR$(13) -COLOR 15, 2 -CLS -END SUB - -SUB training -os = 1 -COLOR 15, 2 -CLS -310 COLOR 15, 2 -LOCATE 16, 32 -PRINT "SELECT TRAINING TYPE" -LOCATE 20, 32 -IF os = 1 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "TARGET PRACTICE" -LOCATE 22, 32 -IF os = 2 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "BACK WALL RALLY" -LOCATE 24, 32 -IF os = 3 THEN COLOR 2, 7 ELSE COLOR 7, 2 -PRINT "RETURN TO MAIN MENU" - -300 SELECT CASE INKEY$ -CASE IS = u$ -os = os - 1 -IF os < 1 THEN os = 3 -GOTO 310 -CASE IS = d$ -os = os + 1 -IF os > 3 THEN os = 1 -GOTO 310 -CASE IS = CHR$(13) -CASE ELSE -GOTO 300 -END SELECT - -SELECT CASE os -CASE IS = 1 -CALL targetPractice -CASE IS = 2 -CALL backWallRally -CASE IS = 3 -END SELECT - -COLOR 15, 2 -CLS -END SUB - -SUB worldRankings -COLOR 15, 2 -CLS -LOCATE 2, 5 -PRINT forename$(32); " "; surname$(32); " "; day; " "; month$(month); " "; year -LOCATE 5, 5 -PRINT "WORLD RANKINGS:" -LOCATE 9, 5 -PRINT "RANK" -LOCATE 9, 12 -PRINT "PLAYER" -LOCATE 9, 38 -PRINT "RANK POINTS" -FOR i = 1 TO 32 -IF i = 32 THEN COLOR 15, 2 ELSE COLOR 7, 2 -LOCATE rank(i) + 10, 4 -PRINT rank(i) -LOCATE rank(i) + 10, 12 -PRINT forename$(i); " "; surname$(i) -LOCATE rank(i) + 10, 37 -PRINT arp(i) -NEXT i -DO -LOOP UNTIL INKEY$ = CHR$(13) -COLOR 15, 2 -CLS -END SUB - diff --git a/programs/samples/pete/pp256/clipbrd.clp b/programs/samples/pete/pp256/clipbrd.clp deleted file mode 100644 index 6b4e33a55..000000000 Binary files a/programs/samples/pete/pp256/clipbrd.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/atlas.clp b/programs/samples/pete/pp256/clips/atlas.clp deleted file mode 100644 index 551a832ce..000000000 Binary files a/programs/samples/pete/pp256/clips/atlas.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/balloon.clp b/programs/samples/pete/pp256/clips/balloon.clp deleted file mode 100644 index 1b34a1a08..000000000 Binary files a/programs/samples/pete/pp256/clips/balloon.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/bang.clp b/programs/samples/pete/pp256/clips/bang.clp deleted file mode 100644 index bb65da4cb..000000000 Binary files a/programs/samples/pete/pp256/clips/bang.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/buttrfly.clp b/programs/samples/pete/pp256/clips/buttrfly.clp deleted file mode 100644 index f1b0ac200..000000000 Binary files a/programs/samples/pete/pp256/clips/buttrfly.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/disk.clp b/programs/samples/pete/pp256/clips/disk.clp deleted file mode 100644 index 881c77561..000000000 Binary files a/programs/samples/pete/pp256/clips/disk.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/flower.clp b/programs/samples/pete/pp256/clips/flower.clp deleted file mode 100644 index 6b4e33a55..000000000 Binary files a/programs/samples/pete/pp256/clips/flower.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/friedegg.clp b/programs/samples/pete/pp256/clips/friedegg.clp deleted file mode 100644 index fab1e6744..000000000 Binary files a/programs/samples/pete/pp256/clips/friedegg.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/ghosty.clp b/programs/samples/pete/pp256/clips/ghosty.clp deleted file mode 100644 index 21015c76c..000000000 Binary files a/programs/samples/pete/pp256/clips/ghosty.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/girl.clp b/programs/samples/pete/pp256/clips/girl.clp deleted file mode 100644 index fa93f63af..000000000 Binary files a/programs/samples/pete/pp256/clips/girl.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/logo.clp b/programs/samples/pete/pp256/clips/logo.clp deleted file mode 100644 index 4a54d9be2..000000000 Binary files a/programs/samples/pete/pp256/clips/logo.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/pirate.clp b/programs/samples/pete/pp256/clips/pirate.clp deleted file mode 100644 index e0a5fb807..000000000 Binary files a/programs/samples/pete/pp256/clips/pirate.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/punky.clp b/programs/samples/pete/pp256/clips/punky.clp deleted file mode 100644 index 95593f2f8..000000000 Binary files a/programs/samples/pete/pp256/clips/punky.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/skull.clp b/programs/samples/pete/pp256/clips/skull.clp deleted file mode 100644 index 1740a724f..000000000 Binary files a/programs/samples/pete/pp256/clips/skull.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/smiley.clp b/programs/samples/pete/pp256/clips/smiley.clp deleted file mode 100644 index 6639de064..000000000 Binary files a/programs/samples/pete/pp256/clips/smiley.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/sparkle.clp b/programs/samples/pete/pp256/clips/sparkle.clp deleted file mode 100644 index ec825f15e..000000000 Binary files a/programs/samples/pete/pp256/clips/sparkle.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/star.clp b/programs/samples/pete/pp256/clips/star.clp deleted file mode 100644 index 873f7dc6a..000000000 Binary files a/programs/samples/pete/pp256/clips/star.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/tile1.clp b/programs/samples/pete/pp256/clips/tile1.clp deleted file mode 100644 index 9128abac1..000000000 Binary files a/programs/samples/pete/pp256/clips/tile1.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/tile2.clp b/programs/samples/pete/pp256/clips/tile2.clp deleted file mode 100644 index 88d13cc53..000000000 Binary files a/programs/samples/pete/pp256/clips/tile2.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/tile3.clp b/programs/samples/pete/pp256/clips/tile3.clp deleted file mode 100644 index ca0103b76..000000000 Binary files a/programs/samples/pete/pp256/clips/tile3.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/tile4.clp b/programs/samples/pete/pp256/clips/tile4.clp deleted file mode 100644 index 8934c760f..000000000 Binary files a/programs/samples/pete/pp256/clips/tile4.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/clips/tile5.clp b/programs/samples/pete/pp256/clips/tile5.clp deleted file mode 100644 index 433ecce00..000000000 Binary files a/programs/samples/pete/pp256/clips/tile5.clp and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.000 b/programs/samples/pete/pp256/grads/gradient.000 deleted file mode 100644 index 3984ef03d..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.000 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.001 b/programs/samples/pete/pp256/grads/gradient.001 deleted file mode 100644 index de4222b7b..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.001 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.002 b/programs/samples/pete/pp256/grads/gradient.002 deleted file mode 100644 index 4cebcfaa3..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.002 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.003 b/programs/samples/pete/pp256/grads/gradient.003 deleted file mode 100644 index 9a76e5339..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.003 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.004 b/programs/samples/pete/pp256/grads/gradient.004 deleted file mode 100644 index 404581a44..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.004 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.005 b/programs/samples/pete/pp256/grads/gradient.005 deleted file mode 100644 index c46a1cb38..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.005 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.006 b/programs/samples/pete/pp256/grads/gradient.006 deleted file mode 100644 index 2d1e98a89..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.006 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.007 b/programs/samples/pete/pp256/grads/gradient.007 deleted file mode 100644 index 2b994a7a8..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.007 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.008 b/programs/samples/pete/pp256/grads/gradient.008 deleted file mode 100644 index 85adfdcc0..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.008 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.009 b/programs/samples/pete/pp256/grads/gradient.009 deleted file mode 100644 index 3292170d2..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.009 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.010 b/programs/samples/pete/pp256/grads/gradient.010 deleted file mode 100644 index dd4d65178..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.010 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.011 b/programs/samples/pete/pp256/grads/gradient.011 deleted file mode 100644 index 6e71e22ea..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.011 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.012 b/programs/samples/pete/pp256/grads/gradient.012 deleted file mode 100644 index 2ac400d36..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.012 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.013 b/programs/samples/pete/pp256/grads/gradient.013 deleted file mode 100644 index 330d2c2a6..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.013 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.014 b/programs/samples/pete/pp256/grads/gradient.014 deleted file mode 100644 index 9ecc81ac9..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.014 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.015 b/programs/samples/pete/pp256/grads/gradient.015 deleted file mode 100644 index 5a3fe39a0..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.015 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.016 b/programs/samples/pete/pp256/grads/gradient.016 deleted file mode 100644 index 42091c324..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.016 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.017 b/programs/samples/pete/pp256/grads/gradient.017 deleted file mode 100644 index fab81052f..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.017 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.018 b/programs/samples/pete/pp256/grads/gradient.018 deleted file mode 100644 index dcca6c5d8..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.018 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.019 b/programs/samples/pete/pp256/grads/gradient.019 deleted file mode 100644 index fb3e7b62c..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.019 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.020 b/programs/samples/pete/pp256/grads/gradient.020 deleted file mode 100644 index f22d56527..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.020 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.021 b/programs/samples/pete/pp256/grads/gradient.021 deleted file mode 100644 index d49ef02b6..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.021 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.022 b/programs/samples/pete/pp256/grads/gradient.022 deleted file mode 100644 index 30ce8030d..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.022 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.023 b/programs/samples/pete/pp256/grads/gradient.023 deleted file mode 100644 index f34e58684..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.023 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.024 b/programs/samples/pete/pp256/grads/gradient.024 deleted file mode 100644 index ffa878287..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.024 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.025 b/programs/samples/pete/pp256/grads/gradient.025 deleted file mode 100644 index 7f7a45220..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.025 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.026 b/programs/samples/pete/pp256/grads/gradient.026 deleted file mode 100644 index 0283dfe02..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.026 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.027 b/programs/samples/pete/pp256/grads/gradient.027 deleted file mode 100644 index a13658163..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.027 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.028 b/programs/samples/pete/pp256/grads/gradient.028 deleted file mode 100644 index 0656d78c7..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.028 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.029 b/programs/samples/pete/pp256/grads/gradient.029 deleted file mode 100644 index df4b78bbc..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.029 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.030 b/programs/samples/pete/pp256/grads/gradient.030 deleted file mode 100644 index 99d5f9d9d..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.030 and /dev/null differ diff --git a/programs/samples/pete/pp256/grads/gradient.031 b/programs/samples/pete/pp256/grads/gradient.031 deleted file mode 100644 index 641331d7d..000000000 Binary files a/programs/samples/pete/pp256/grads/gradient.031 and /dev/null differ diff --git a/programs/samples/pete/pp256/images/bounce.put b/programs/samples/pete/pp256/images/bounce.put deleted file mode 100644 index c31375737..000000000 Binary files a/programs/samples/pete/pp256/images/bounce.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/charset.dem b/programs/samples/pete/pp256/images/charset.dem deleted file mode 100644 index 18ee69c2d..000000000 Binary files a/programs/samples/pete/pp256/images/charset.dem and /dev/null differ diff --git a/programs/samples/pete/pp256/images/charset1.put b/programs/samples/pete/pp256/images/charset1.put deleted file mode 100644 index f5513fc9b..000000000 Binary files a/programs/samples/pete/pp256/images/charset1.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/charset2.put b/programs/samples/pete/pp256/images/charset2.put deleted file mode 100644 index 79e34e256..000000000 Binary files a/programs/samples/pete/pp256/images/charset2.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/charset3.put b/programs/samples/pete/pp256/images/charset3.put deleted file mode 100644 index 58e57baf8..000000000 Binary files a/programs/samples/pete/pp256/images/charset3.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/demograd.put b/programs/samples/pete/pp256/images/demograd.put deleted file mode 100644 index f0a701e1c..000000000 Binary files a/programs/samples/pete/pp256/images/demograd.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/gameover.put b/programs/samples/pete/pp256/images/gameover.put deleted file mode 100644 index 260c8fac9..000000000 Binary files a/programs/samples/pete/pp256/images/gameover.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/globe1.put b/programs/samples/pete/pp256/images/globe1.put deleted file mode 100644 index 2dc25573c..000000000 Binary files a/programs/samples/pete/pp256/images/globe1.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/globe2.put b/programs/samples/pete/pp256/images/globe2.put deleted file mode 100644 index 62404ef81..000000000 Binary files a/programs/samples/pete/pp256/images/globe2.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/grapes.put b/programs/samples/pete/pp256/images/grapes.put deleted file mode 100644 index e0203ccc1..000000000 Binary files a/programs/samples/pete/pp256/images/grapes.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/hero.put b/programs/samples/pete/pp256/images/hero.put deleted file mode 100644 index 7a785bdb8..000000000 Binary files a/programs/samples/pete/pp256/images/hero.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/runner.put b/programs/samples/pete/pp256/images/runner.put deleted file mode 100644 index 82cb010c1..000000000 Binary files a/programs/samples/pete/pp256/images/runner.put and /dev/null differ diff --git a/programs/samples/pete/pp256/images/scenery.dem b/programs/samples/pete/pp256/images/scenery.dem deleted file mode 100644 index a4d93bf12..000000000 Binary files a/programs/samples/pete/pp256/images/scenery.dem and /dev/null differ diff --git a/programs/samples/pete/pp256/images/soldier.dem b/programs/samples/pete/pp256/images/soldier.dem deleted file mode 100644 index 00a3f683a..000000000 Binary files a/programs/samples/pete/pp256/images/soldier.dem and /dev/null differ diff --git a/programs/samples/pete/pp256/images/soldmask.dem b/programs/samples/pete/pp256/images/soldmask.dem deleted file mode 100644 index 79188e1ab..000000000 Binary files a/programs/samples/pete/pp256/images/soldmask.dem and /dev/null differ diff --git a/programs/samples/pete/pp256/palettes/bounce.apf b/programs/samples/pete/pp256/palettes/bounce.apf deleted file mode 100644 index 28ff14635..000000000 Binary files a/programs/samples/pete/pp256/palettes/bounce.apf and /dev/null differ diff --git a/programs/samples/pete/pp256/palettes/globe1.apf b/programs/samples/pete/pp256/palettes/globe1.apf deleted file mode 100644 index 8b456f7c8..000000000 Binary files a/programs/samples/pete/pp256/palettes/globe1.apf and /dev/null differ diff --git a/programs/samples/pete/pp256/palettes/globe2.apf b/programs/samples/pete/pp256/palettes/globe2.apf deleted file mode 100644 index 8b456f7c8..000000000 Binary files a/programs/samples/pete/pp256/palettes/globe2.apf and /dev/null differ diff --git a/programs/samples/pete/pp256/palettes/gradient.pal b/programs/samples/pete/pp256/palettes/gradient.pal deleted file mode 100644 index 9e343d7d9..000000000 Binary files a/programs/samples/pete/pp256/palettes/gradient.pal and /dev/null differ diff --git a/programs/samples/pete/pp256/palettes/standard.pal b/programs/samples/pete/pp256/palettes/standard.pal deleted file mode 100644 index afadfe6d9..000000000 Binary files a/programs/samples/pete/pp256/palettes/standard.pal and /dev/null differ diff --git a/programs/samples/pete/pp256/pp256chr.dat b/programs/samples/pete/pp256/pp256chr.dat deleted file mode 100644 index 3d66b764e..000000000 Binary files a/programs/samples/pete/pp256/pp256chr.dat and /dev/null differ diff --git a/programs/samples/pete/pp256/pp256doc.txt b/programs/samples/pete/pp256/pp256doc.txt deleted file mode 100644 index 0ff420ede..000000000 --- a/programs/samples/pete/pp256/pp256doc.txt +++ /dev/null @@ -1,671 +0,0 @@ - -I, Chris Chadwick, first released PIXELplus 256 as shareware back in 1995. -It's likely that you have never heard of it before as at the time I was -not on the Internet, and so could only distribute it through a shareware -library, here in the UK. - -"Why not try and sell it now, using the Internet?", you maybe asking. -Well, I'm (now) not sure there would be a big enough market for such a -product, although maybe I'm wrong. I've seen several other *similar* -products available FREE on the Internet , -so there would be little point, I think, charging for mine! Besides, -I myself use several FREEWARE products from other authors, which I -find *very* useful, so I figure, why not try and give something back? :) - -Since getting on the Internet I have noticed there is still a large -interest in programming with QBASIC, QuickBASIC etc., and have read -several newsgroup postings asking how bitmapped graphics can be -implemented into peoples programs. I, therefore, have decided to -release PIXELplus 256 as FREEWARE in the hope that some/many people find a -use for this application, which took me a very long time to develop -(two years, during which time it had many changes and tweaks!). - -***** PIXELplus 256 is now FREEWARE, as of 9th October, 1997 ***** -You are free to use and distribute it in any way you see fit, on the -condition NO CHARGE is made for any part of the entire PIXELplus 256 package. -Also, please DO NOT try to pass off anything (including the example graphics -provided) contained in the PIXELplus 256 package as your own work (as if -you would ;) . Please give credit where it's due: a simple mention in your -programs would be nice. I would also like to know what you think of -PIXELplus 256; to know someone is making use of something that took *MUCH* -effort to produce would be great! Send me a short e-mail, if you can find -the time, to: - -chris.chadwick@dial.pipex.com or xjk18@dial.pipex.com - -NOTE: please study the code in USERSUBS.BAS in order to find out how -to use the routines contained within it. All this information (and alot -more in 200 pages!) is contained within the PIXELplus 256 Users Manual, -which I sent to registered users. Unfortunately, there is no 'electronic' -version of this manual, so I can not include it as part of the FREEWARE -PIXELplus256 package - perhaps someone would like to type one up into a -*useable* text document!?. -However, I do still have *a few* manuals (which I also wrote and produced, -taking even MORE time) left over. If you feel you would like one (first -come, first served!), send me an e-mail, BUT I will have to make a charge -for them to cover costs etc. the amount being dependent on where you live, -for shipping reasons. - -Disclaimer: You use PIXELplus 256 at your own risk. I, Chris Chadwick, -will take NO responsibility for any damage or loss of data etc. that -may be incurred by installing/using this software. As FREEWARE, I offer -no liability to provide maintenace of the software or technical support. - -NOTE: Although PIXELplus 256 is FREEWARE, I still hold the copyright on -the ENTIRE PIXELplus 256 package, and I DO NOT relinquish this copyright. -I have simply decided to allow anyone to use the package, for no charge. - -The following document was provided with the shareware version -of PIXELplus 256 to show how to get PIXELplus 256 graphics into peoples -programs etc... - ------------------------------------------------------------------------------ - - *** PIXELplus 256 User Information *** - - PIXELplus 256 - Shareware version 1.0 - Copyright (C)1995 Chris Chadwick (Somerset, England) - All rights reserved. - ----------- - CONTENTS ----------- - - 1) Overview - 2) PIXELplus 256 Features - 3) System Requirements - 4) Files and Directories - 5) PIXELplus 256 File Formats - 6) Starting PIXELplus 256 - 7) Considerations for User's with Slower Machines - 8) Setup Configuration Files - 9) Working in BASIC - - Using DATA Files - - User Subroutines - - Adding the User Subroutines to Your Own BASIC Programs - - Adding the User Subroutines to Existing QuickBASIC & - VB for MS-DOS Programs - - Adding the User Subroutines to Existing QBASIC Programs - - Initializing and Using Images, Palettes and Screen Designs - - Using Image Array Index Listings -10) Registering PIXELplus 256 (removed for FREEWARE version) - - --------------- - 1 - Overview --------------- - -Although the BASIC programming language provides a way of -displaying bitmapped images via the PUT(graphics) statement, -the only way to actually design such images was by first using -simple graphics commands (LINE, PAINT, CIRCLE etc.), and then -using the GET(graphics) statement. PIXELplus 256 was produced -to solve this problem, allowing the easy (and fun) creation of -256 colour bitmapped graphics, specifically designed for use with -the PUT(graphics) statement. - -PIXELplus 256 is a boon for any BASIC programmer who wants -to add colourful, bitmapped graphics to their own programs. -Using the advanced Image Editor, create sprites, icons, -character sets, animations or any other type of image you -require. The Screen Designer makes it easy to compose screen -layouts - game levels, title screens etc. - using images -created with the Image Editor. - -Finished images and screen designs can be displayed in your -own programs that use BASIC screen mode 13 - the popular -320x200, 256 colour VGA graphics mode. A set of BASIC user -subroutines (USERSUBS.BAS) are also provided, making it easy -to incorporate PIXELplus 256 images, palettes and screen designs -into your own programs. BASIC's own PUT(graphics) statement is -used to display images, eliminating the need for non-BASIC library -routines. This makes it possible to use PIXELplus 256 images with -BASIC interpreters, such as QBASIC. - - ----------------------------- - 2 - PIXELplus 256 Features ----------------------------- - -PIXELplus 256 supports many powerful features: - - þ Full mouse control with the easy-to-use Graphical User - Interface. - - þ 18 Flexible Drawing Tools: - Scissors, Paste Brush, Special Effects Brush, Flood Fill, - Tile Fill, Gradient Fill, Paintbrush, Pixel Pointer, - Air Brush, Eraser, Circle/Ellipse, Filled Circle/Ellipse, - Gradient Circle/Ellipse, Box, Filled Box, Gradient Box, - Line, Curve. Plus Colour Sampler (always available). - - þ 14 Special Effects: - BRIGHT, DARK, TINT, FUR, MIX, SOFT, UNZAG, HOLLOW, TILE, - XOR, GREY, SWEEP, SWAP, EDGE - - þ Multiple Zoom Levels: Great for doing detailed, close-up - work. All Drawing Tools work at all zoom levels, too! - - þ Palette Tools: Giving full control over the colour palette. - Alter individual colours, create colour gradients etc. - - þ Integrated Animation Tester: Now you can check images - animate properly, while you're designing them. - - þ User-defined Gradient Styles: Design your own gradient styles - to use with tools that use a colour gradient. - - þ Screen Designer: Makes composing screen layouts easy! - Now there's no need to work out the actual screen - coordinates where you want images displayed in your own - programs. - - -------------------------- - 3 - System Requirements -------------------------- - -To ensure PIXELplus 256 runs correctly, your computer should -conform to the following specifications: - - þ IBM or compatible PC. 386 or better recommended. - - þ 512K free conventional memory. - - þ VGA graphics card and colour monitor. - - þ Hard disk. - - þ Microsoft compatible mouse with up-to-date driver. - - ---------------------------- - 4 - Files and Directories ---------------------------- - -Having installed PIXELplus 256 onto your hard disk, you will -notice that five subdirectories have been created within -the main PP256 directory. They are used to help keep the various -files created by PIXELplus 256 organized. The five -subdirectories and their usage is detailed below: - -Subdirectory Usage ------------- ----- - IMAGES Contains all image files created with the - Image Editor, including: - þ Standard format image files which will - usually have the default .PUT file name - extension. - þ Image files that have been saved as DATA in - ASCII text format which will usually have the - default .BAS file name extension. - - PALETTES Holds all colour palette files. Files with - a .APF (Associated Palette File) file name - extension are palettes that belong to the - specific image files of the same base name - (e.g. SPRITES.APF would hold the palette for - the images in file SPRITES.PUT). Palette - files available for general use are also - stored here and will usually have the - default .PAL file name extension. - - SCREENS Contains all screen design files created - with the Screen Designer, including: - þ Standard format screen design files which - will usually have the default .DES file - name extension. - þ Screen design files that have been saved as DATA - in ASCII text format which will usually have the - default .BAS file name extension. - þ Screen design files that have been saved in memory - image (screen snapshot) format which will usually - have the default .IMG file name extension. - - GRADS Holds all the Image Editor gradient style - files which will include 32 standard styles - plus any user-defined styles. Note that - gradient style files should not be renamed - or deleted from DOS - unwanted user-defined - gradient styles can be removed from within - the Image Editor itself, while files with - extensions from .000 to .031 are required - for PIXELplus 256 to start. - - CLIPS Contains all the Image Editor Clipboard files - which will usually have the default .CLP file - name extension. - -Note: Do not rename or delete any of the above subdirectories -otherwise PIXELplus 256 will not start. - - --------------------------------- - 5 - PIXELplus 256 File Formats --------------------------------- - -PIXELplus 256 produces image, palette and screen design files in -various formats. To help clarify the use of these files in your own -BASIC programs, the following table details the format of each file -type produced. - - Default Subdirectory See - File Type Extension Stored In File Format Note -------------- --------- ------------ ---------------------------- ---- -Image .PUT IMAGES BLOAD (7 byte header + data) - -Image+Palette .BAS IMAGES ASCII (BASIC source code) 1 -Palette .APF PALETTES Binary 2 -Palette .PAL PALETTES Binary - -Screen Design .DES SCREENS BLOAD (7 byte header + data) - -Screen Design .BAS SCREENS ASCII (BASIC source code) - -Screen Design .IMG SCREENS BLOAD (7 byte header + data) 3 - -Notes: -1) Image files that have been saved as BASIC DATA statements will - only include a further set of DATA statements for the associated - palette if the images use a non-standard palette. -2) .APF is a special palette file name extension used by PIXELplus 256 - to associate palette files to particular image files. -3) Screen designs that have been saved in this format are simply screen - image snapshot files and don't contain individual screen design item data. - -Note also that the Image Editor Clipboard files - stored in the CLIPS -subdirectory - are the same as standard (.PUT) images files except -that they only ever contain a single image. - - ----------------------------- - 6 - Starting PIXELplus 256 ----------------------------- - -First, make sure you're in the PIXELplus 256 main directory -by typing CD \PP256 followed by ENTER. If you installed -PIXELplus 256 to a different directory, simply substitute -\PP256 with the name of that directory. - -Note that the Image Editor/Animation Tester and Screen Designer -are two separate programs (PP.EXE and SD.EXE respectively). -This makes it possible to start either program directly from -the DOS prompt, in addition to being able to invoke the Screen -Designer from within the Image Editor and vice versa. - -The following table details how to start PIXELplus 256 from -the DOS prompt: - -Enter this: To do this: ------------ ----------- - - PP Start the PIXELplus 256 Image Editor. - - PP ImageFileName Start the Image Editor and open the - image file specified by "ImageFileName". - This must be an existing image file - that resides in the IMAGES subdirectory. - If you don't specify an extension in - "ImageFileName" then the default for - image files (.PUT) is assumed. - - SD Start the Screen Designer. Once loaded, - you will be asked to specify an image - file to use with the Screen Designer. - - SD ImageFileName Start the Screen Designer and load the - image file specified by "ImageFileName". - This must be an existing image file - that resides in the IMAGES subdirectory. - If you don't specify an extension in - "ImageFileName" then the default for - image files (.PUT) is assumed. - - DEMO Run the demonstration program - just a - small example of what can be achieved - using PIXELplus 256. The image files - used by this demo are stored in the - IMAGES subdirectory and have a .DEM - file name extension - you can open and - view them from within the Image Editor. - However, renaming, deleting or significantly - altering any of these files will stop - the demo from running properly. - - ----------------------------------------------------- - 7 - Considerations for User's with Slower Machines ----------------------------------------------------- - -User's running PIXELplus 256 on slower machines (386SX or -below) should note the following points and tips on -improving performance: - - þ Turn off the "Preview image" option when using the File/Load Clipboard... - command in the Image Editor. This will sometimes enable - you to select a file from the list box more quickly. - - þ Change the Drawing Tool view to outline mode. Do this by - pressing SPACE, while pointing on the Edit Grid. - - þ When playing animations in the Animation Tester, the - frame update is synchronized with the monitor in order - to achieve smooth, flicker-free animation. However, in - certain situations, flicker may occur or the animation - may only be partially displayed, or even not visible at - all. This is because your computer can't update each frame - of the animation quickly enough to keep up with the monitor - synchronization. Such problems will only usually occur if - you are animating large images at high speed. Increasing - the "Delay" or reducing the size of images will usually help - alleviate any problems. - - þ Some internal operations may take a short time to complete, - such as doing a large gradient fill. During this time, you - may mistakenly think your computer has locked-up. In such - cases, keep an eye on the Status Bar for messages telling - you what's happening. - - -------------------------------- - 8 - Setup Configuration Files -------------------------------- - -Both the Image Editor and the Screen Designer maintain a small -configuration setup file (PP256_ED.SET and PP256_SD.SET -respectively). This ensures certain features of PIXELplus 256 -are kept at their latest setting, and are not reset to a -default every time you start PIXELplus 256. Information held -in these files includes Drawing Tool set up status, View menu -option settings and the various special effect, Air Brush and -brush strength values (used by Paintbrush, Line, Box etc.). -The latest Image Editor Clipboard image is also maintained in -a file called CLIPBRD.CLP. - -Tip: If you want to reset the Image Editor or the Screen Designer -to their default settings, simply delete the appropriate setup -file from the DOS prompt before starting PIXELplus 256. - - ----------------------- - 9 - Working in BASIC ----------------------- - -First of all, it should be noted that PIXELplus 256 produces files -specifically compatible for use with the more recent versions of -Microsoft BASIC: QBASIC, QuickBASIC and Visual BASIC for MS-DOS. Most -people will at least have QBASIC as this comes as part of the more -recent versions of MS-DOS. Also, the supplied user subroutine file, -USERSUBS.BAS (discussed later in this section), was written to be directly -compatible with QBASIC, QuickBASIC and Visual BASIC for MS-DOS - all -discussions in this section assume you will be working with one of these -versions of BASIC. - -While all PIXELplus 256 files should be compatible with other dialects -of BASIC, you may need to manually add line numbers to files created with -the File/Save as DATA... command, as well as making other minor alterations -to USERSUBS.BAS. Even so, some older dialects of BASIC will not be compatible -for the simple reason that they do not provide access to VGA screen modes. - -This section contains all the information you need to incorporate and use -images, palettes and screen designs in your own programs. If you are unsure -about the use of any BASIC statements or concepts used in this section, -consult your BASIC manual or your BASIC's online Help for an explanation. - -Using DATA Files ----------------- -Images and screen designs that have been saved as DATA need to -be incorporated into the module-level code of your program -before they can be used. The following list details several ways -this can be achieved when using QuickBASIC or Visual BASIC for -MS-DOS. QBASIC users may only use option 3: - - 1) Use the $INCLUDE metacommand to have the required file included - into the module-level code of your program. - 2) Load/Add the file to your program, then select and copy the - required DATA statements. Next, paste the DATA statements at - the desired position in the module-level code. Once this is - done, unload the DATA file from your program. - 3) Load the file on it's own, then select and copy the required - DATA statements. Next, open your program and paste the DATA - statements at the desired position in the module-level code. - -Note: There is a limit to the number of DATA items you can have in -the module-level code of your program. If you are using large -image/screen design files, you may have to initialize them from -the actual files (.PUT/.DES) themselves, instead of from DATA -statements. Details of this are given later in this section. - -User Subroutines ----------------- -The file USERSUBS.BAS is provided as part of PIXELplus 256 and -contains ready-written subroutines that allow images, palettes and -screen designs to be incorporated into your own programs. - -Adding the User Subroutines to Your Own BASIC Programs ------------------------------------------------------- -Before you can use the user subroutines, you need to make them part of -any program that you want to use them in. The easiest way to do this -is when you are starting a new program from scratch, as you can -simply load USERSUBS.BAS and then continue building your program -in the usual way. When doing so, remember to save your program under a -new name otherwise you might accidentally overwrite the original USERSUBS.BAS -file - in fact, it's probably a good idea to make a working copy of -USERSUBS.BAS in the directory you use when working in BASIC. - -The way you can incorporate the user subroutines into your existing programs -depends on which version of BASIC you are working in: - -Adding the User Subroutines to Existing QuickBASIC & VB for MS-DOS Programs ---------------------------------------------------------------------------- -Incorporating the user subroutines into your existing QuickBASIC -and Visual BASIC for MS-DOS programs can be achieved easily as both -these versions of BASIC allow USERSUBS.BAS to be added directly to the -currently loaded program: in QuickBASIC, choose File/Load File...; in -Visual BASIC for MS-DOS, choose File/Add File... Doing so will add -USERSUBS.BAS as a separate module in your program. If necessary, you can -move the routines to different program modules in the usual way. - -Adding the User Subroutines to Existing QBASIC Programs -------------------------------------------------------- -Adding the user subroutines to your existing QBASIC programs is a little -more complicated as QBASIC doesn't provide a way of directly adding -two program files together. However, the user subroutines can be -copied from USERSUBS.BAS - one at a time - and then pasted into your own -program code by following the procedure below: - - 1) In QBASIC, open USERSUBS.BAS and move to a subroutine that you - want to use in your own program. - 2) Select the entire routine code (from DEFINT A-Z to END SUB) and - choose Edit/Copy. - 3) Open your program. - 4) Create a new (dummy) subroutine by selecting Edit/New SUB... and give - it a meaningless name such as "xxx". - 5) Select the entire new routine code, then choose Edit/Paste. This will - automatically replace the newly created subroutine with the one - copied from USERSUBS.BAS. - -Repeat all the above steps for every user subroutine you want to use in -your own program. - -Note: Remember to copy the DesignType definition across if you are -going to use the screen design routines. - -Initializing and Using Images, Palettes and Screen Designs ----------------------------------------------------------- -Before you can use images, palettes and screen designs in your -own programs, the relevant data must be placed into arrays of an -appropriate data type - integer arrays for images, long integer -arrays for palettes and DesignType arrays for screen designs. -USERSUBS.BAS contains three subroutines to initialize arrays with -images, palettes and screen designs: - - SUB InitImageData (FileName$, ImageArray%()) - SUB InitPaletteData (FileName$, PaletteArray&()) - SUB InitDesignData (FileName$, DesignArray() AS DesignType) - -All three subroutines require two parameters: the first, FileName$, -is the name of file to be loaded into the array - this must include -the path to the file if it does not reside in the current directory. -Alternatively, using an empty string ("") as the FileName$ parameter -will cause the required data to be read from module-level DATA statements. - -The second parameter is an array of an appropriate data type. This array -must be initially created at module-level so that it can be passed to -the appropriate routine where it is set to the correct size and filled -with the required data. Consider the example module-level code below: - - SCREEN 13 - - REDIM DemoImages%(1 TO 1) - CALL InitImageData("C:\PP256\IMAGES\DEMO.PUT", DemoImages%()) - - REDIM DemoPalette&(1 TO 1) - CALL InitPaletteData("C:\PP256\PALETTES\DEMO.APF", DemoPalette&()) - - REDIM DemoDesign(1 TO 1) AS DesignType - RESTORE DesignData - CALL InitDesignData("", DemoDesign()) - -Note: The initial SCREEN 13 statement selects the 320x200, 256 colour -VGA graphics mode. This is essential as PIXELplus 256 images, palettes -and screen designs can only be used when in this screen mode. - -REDIM is used to ensure the created arrays are dynamic; REDIM SHARED -can be used instead if you want all other subroutines and functions in -your program to have access to the arrays. Alternatively, you can use -the SHARED statement in any subroutines/functions that you want to -have access to specific arrays. - -Notice that the example code above shows how to initialize a screen design -array from module-level DATA statements (not shown) as opposed to -loading data directly from file. The RESTORE statement preceding -the CALL to InitDesignData ensures the correct DATA statements are -read; of course, the actual DATA statements must have previously -been incorporated into the program by using one of the methods detailed -in the above section, "Using DATA Files". - -Continuing on from the above example, the next thing to do is change -the current colour palette to the one now held in the DemoPalette& -array - the associated colour palette needed to display the images held in -the DemoImages% array. This is achieved by using the following statement: - - PALETTE USING DemoPalette& - -Now that the required colour palette is being used, we can display any -of the images held in the DemoImages% array - let's say it contains ten -images - by using the PUT(graphics) statement. For example: - - PUT (0, 0), DemoImages%(1), PSET - -This displays the first image held in the DemoImages% array - the -first image in any image array always starts at subscript 1. However, -displaying any of the other nine images presents a problem as we -need to know the array subscript where they are stored. One way to -find the start subscript of each image is to print out an image array -index listing from the PIXELplus 256 Image Editor (see "Using Image Array -Index Listings" at the end of this section). Alternatively, we can -use another USERSUBS.BAS subroutine: - - SUB MakeImageIndex (ImageArray%(), IndexArray%()) - -The MakeImageIndex subroutine allows us to create an index array -that holds the start subscript of every image held in an image array. -The first parameter is the image array that you want to make an -index for. The second parameter is an integer array that is to be -used to hold the image index - again, this array must be initially -created at module-level so that it can be passed to the MakeImageIndex -routine: - - REDIM ImageNo%(1 to 1) - CALL MakeImageIndex(DemoImages%(), ImageNo%()) - -Now we can display any of the ten images by specifying the index -number of the image, instead of having to specify the actual image -array subscript - ImageNo%(1) holds the start subscript for image 1, -ImageNo%(2) holds the start subscript for image 2 etc. The following -code would display all ten images: - - PUT (0, 0), DemoImages%(ImageNo%(1)), PSET - PUT (10, 0), DemoImages%(ImageNo%(2)), PSET - PUT (20, 0), DemoImages%(ImageNo%(3)), PSET - PUT (30, 0), DemoImages%(ImageNo%(4)), PSET - PUT (40, 0), DemoImages%(ImageNo%(5)), PSET - PUT (50, 0), DemoImages%(ImageNo%(6)), PSET - PUT (60, 0), DemoImages%(ImageNo%(7)), PSET - PUT (70, 0), DemoImages%(ImageNo%(8)), PSET - PUT (80, 0), DemoImages%(ImageNo%(9)), PSET - PUT (90, 0), DemoImages%(ImageNo%(10)), PSET - -Finally, to display the screen design held in the DemoDesign array, -we can use the following user subroutine: - - SUB DisplayDesign (DesignArray() AS DesignType, ImageArray%(), ImageIndex%(), ClsAction%) - -The DisplayDesign subroutine requires four parameters: the first -is a DesignType array holding the screen design to be displayed; -the second is an integer array holding the images to be use for -displaying the screen design; the third is the image index array -for the images being used; the fourth is an integer value which -dictates whether or not the screen is cleared before the screen -design is displayed - any non-zero value causes the screen to be -cleared. So, to display the screen design, use: - - CALL DisplayDesign(DemoDesign(), DemoImages%(), ImageNo%(), 1) - -Note that this example tells DisplayDesign to clear the screen -before displaying the screen design. However, using a value of zero -for the ClsAction% parameter allows you to overlay a screen design on -the existing screen image, or display more than one design on-screen -at the same time. - -A design that has been saved as a screen snapshot - using the -File/Save as Screen... command in the Screen Designer - can be displayed -simply by loading it directly back to the screen using the BLOAD -statement. For example: - - BLOAD "C:\PP256\SCREENS\SNAPSHOT.IMG" - -Note: If the screen snapshot you want to load uses a different palette -to the current one, remember to change to the required palette -beforehand, as previously explained. The required palette file will be -the one used by the images that were used to create the screen design. - -Using Image Array Index Listings --------------------------------- -As explained earlier in this section, using the PUT(graphics) statement -to display an image requires that you specify the subscript of where -the image is stored, within the image array. As such, you can either -use an image index array (detailed above), or you can make use of an -image array index listing. The latter can be printed from within the -Image Editor by selecting File/Print Index..., when you have the required -image file loaded. - -Among other things, an image array index listing shows the subscript -values required to display each and every image contained in the file -(or as many as you specified to be included on the listing). When using -the PUT(graphics) statement, you can either specify these values directly, -or, more usefully, you could assign them to constants in order to give -them more meaningful names. For example, if you had a file containing -images of all the pieces of a chess set, you could assign the relevant -subscript values to constants, as follows: - - CONST WHITEPAWN% = 1, WHITEROOK% = 131 - CONST WHITEKNIGHT% = 261, WHITEBISHOP% = 391 - CONST WHITEQUEEN% = 521, WHITEKING% = 651 - CONST BLACKPAWN% = 781, BLACKROOK% = 911 - CONST BLACKKNIGHT% = 1041, BLACKBISHOP% = 1171 - CONST BLACKQUEEN% = 1301, BLACKKING% = 1431 - -Now, displaying the image of any of the twelve chess pieces simply -involves specifying the required constant in a PUT(graphics) statement; -for example, to display the image of the white queen: - - PUT (32, 32), ChessImages%(WHITEQUEEN%), PSET - -Space is provided on an image array index listing for you to supply -description/comments for each image, which you can write in as you view -the images in the Image Editor. - -Other information contained on an image array index listing includes -the amount of memory used by each image, as well as their exact dimensions. - - - -< end of text > diff --git a/programs/samples/pete/pp256/pp256hlp.txt b/programs/samples/pete/pp256/pp256hlp.txt deleted file mode 100644 index 10ab1ff36..000000000 --- a/programs/samples/pete/pp256/pp256hlp.txt +++ /dev/null @@ -1,6943 +0,0 @@ - PIXELplus 256 -C14 Table of Contents - - General -C13H171 Using the Mouse -C13H003 Using Online Help - - Image Editor -C13H167 Introduction -C13H006 Menu Commands -C13H004 Keyboard Commands -C13H064 Drawing Tools -C13H110 Palette Tools -C13H102 Colour Palette -C13H005 Screen Components -C13H067 Special Effects -C13H116 Animation Tester - - Screen Designer -C13H168 Introduction -C13H118 Menu Commands -C13H117 Keyboard Commands -C13H170 Display Actions -@ - PIXELplus 256 -C14 Index - - -A- -C13 About... command -C13H062 in Image Editor -C13H165 in Screen Designer -C13 Action menu -C13H037 in Image Editor -C13H145 in Screen Designer -C13H049 Add... command -C13H055 Add as Gradient command -C13H087 Airbrush tool -C13H157 AND command -C13H010 Append... command -C13H106 Arrow buttons - -B- -C13H092 Box tool -C13H068 BRIGHT special effect -C13H035 Brighter Shade command -C13H098 Brush Size Selector - -C- -C13H150 Centre Horizontal command -C13H151 Centre Vertical command -C13H089 Circle/Ellipse tool -C13H038 Clear command -C13H039 Clear to Colour command -C13H101 Clipboard Status Box -C13H097 Colour Sampler tool -C13 Contents command -C13H058 in Image Editor -C13H161 in Screen Designer -C13H053 Convert to Mask... -C13 Copy command -C13H022 in Image Editor -C13H132 in Screen Designer -C13H111 COPY tool -C13H054 Crop command -C13H028 Cross-hair On command -C13H096 Curve tool -C13 Cut command -C13H021 in Image Editor -C13H131 in Screen Designer - -D- -C13H069 DARK special effect -C13H036 Darker Shade command -C13H134 Delete command -C13H050 Delete... command -C13H130 Deselect All command -C13H170 Display actions -C13H064 Drawing Tool icon buttons -C13H052 Duplicate... command - -E- -C13H081 EDGE special effect -C13H103 Edit Grid -C13H143 Edit Images... command -C13 Edit menu -C13H019 in Image Editor -C13H128 in Screen Designer -C13H047 Effect:(current effect) -C13H047 command -C13H088 Eraser tool -C13 Exit command -C13H018 in Image Editor -C13H127 in Screen Designer - -F- -C13H109 File Information -C13 File menu -C13H007 in Image Editor -C13H119 in Screen Designer -C13H093 Filled Box tool -C13H090 Filled Circle/Ellipse tool -C13H045 Flip Horizontal command -C13H046 Flip Vertical command -C13H082 Flood Fill tool -C13H071 FUR special effect - -G- -C13H112 GRAD tool -C13H094 Gradient Box tool -C13H091 Gradient Circle/Ellipse tool -C13H084 Gradient Fill tool -C13H100 Gradient Status Box -C13H078 GREY special effect -C13 Grid On command -C13H030 in Image Editor -C13H139 in Screen Designer - -H- -C13 Help menu -C13H057 in Image Editor -C13H160 in Screen Designer -C13H029 Highlight On command -C13H140 Highlight Selected command -C13H075 HOLLOW special effect - -I- -C13H031 Image as Tile command -C13H107 Image Display -C13 Image menu -C13H048 in Image Editor -C13H152 in Screen Designer -C13H108 Image Selector -C13 Index command -C13H059 in Image Editor -C13H162 in Screen Designer -C13 Introduction -C13H167 to Image Editor -C13H168 to Screen Designer - -K- -C13 Keyboard command -C13H060 in Image Editor -C13H163 in Screen Designer -C13 Keyboard commands -C13H004 in Image Editor -C13H117 in Screen Designer - -L- -C13H095 Line tool -C13H013 Load Clipboard... command -C13H126 Load Images... command -C13H015 Load Palette... command - -M- -C13H141 Make Grid command -C13H158 MASK command -C13 Menu Bar -C13H006 in Image Editor -C13H118 in Screen Designer -C13H072 MIX special effect - -N- -C13 New command -C13H008 in Image Editor -C13H120 in Screen Designer - -O- -C13 Open... command -C13H009 in Image Editor -C13H121 in Screen Designer -C13H155 OR command - -P- -C13H085 Paintbrush tool -C13H102 Palette Grid -C13H110 Palette Tool buttons -C13H032 Palette Tools command -C13 Paste command -C13H023 in Image Editor -C13H133 in Screen Designer -C13H025 Paste Behind command -C13H066 Paste Brush tool -C13H086 Pixel Pointer tool -C13H137 Pointer On command -C13H017 Print Index... command -C13H154 PRESET command -C13H153 PSET command - -R- -C13H113 RESET tool -C13H051 Resize... command -C13H115 RGB Controls -C13H044 Rotate 90 command - -S- -C13 Save command -C13H011 in Image Editor -C13H122 in Screen Designer -C13 Save As... command -C13H012 in Image Editor -C13H123 in Screen Designer -C13 Save as DATA... command -C13H169 in Image Editor -C13H124 in Screen Designer -C13H125 Save as Screen... command -C13H014 Save Clipboard... command -C13H016 Save Palette... command -C13H114 SCAN tool -C13H065 Scissors tool -C13H005 Screen components -C13H034 Screen Designer... command -C13H041 Scroll Down command -C13H042 Scroll Left command -C13H043 Scroll Right command -C13H040 Scroll Up command -C13H129 Select All command -C13H099 Selected Colour Boxes -C13H142 Set Step... command -C13H147 Shift Down command -C13H148 Shift Left command -C13H149 Shift Right command -C13H146 Shift Up command -C13 Show All command -C13H056 in Image Editor -C13H159 in Screen Designer -C13 Show Clipboard command -C13H026 in Image Editor -C13H135 in Screen Designer -C13H144 Show Design command -C13H138 Snap to Grid command -C13H073 SOFT special effect -C13H067 Special Effects Brush tool -C13 Status Bar -C13H063 in Image Editor -C13H166 in Screen Designer -C13H104 STORE button -C13H080 SWAP special effect -C13H079 SWEEP special effect - -T- -C13H033 Test Animation... command -C13H076 TILE special effect -C13H083 Tile Fill tool -C13H070 TINT special effect -C13H024 Transparency On command - -U- -C13H020 Undo command -C13H074 UNZAG special effect -C13 Using Help command -C13H061 in Image Editor -C13H164 in Screen Designer -C13H003 Using Online Help -C13H171 Using the Mouse - -V- -C13 View menu -C13H027 in Image Editor -C13H136 in Screen Designer - -X- -C13H156 XOR command -C13H077 XOR special effect - -Z- -C13H105 Zoom buttons -@ - PIXELplus 256 -C14 Using Online Help - - The online Help system - provides information on all - aspects of the PIXELplus 256 - environment, including the - Image Editor, Animation - Tester and Screen Designer. - - To get help on any feature - of PIXELplus 256, select - Contents from the Help menu, - or press F1. This will - display the online Help - Table of Contents, a - categorized list of subjects - for which help is available. - Alternatively, select Index - from the Help menu to - display an alphabetical list - of all Help topics. Next, - click on a Help item (shown - in magenta) to view help on - that subject. Also, a list - of related topics will often - be shown within the help - text; click on any of these - items to view information on - that topic. - - Many subjects provide more - text than can be displayed - on a single "page" so a - scroll bar is provided (on - the right side of the Help - dialog box). - - The Table of Contents and - Index can be viewed at any - time by clicking on the - appropriate button, at the - bottom of the Help dialog - box. - - Click on the CANCEL button - or press ESCAPE to finish - viewing the online Help. -@ - IMAGE EDITOR -C14 Keyboard Commands - - The following keyboard - commands are available while - using the Image Editor: - - Press: To: -C15 F1 View online Help -C15 Table of Contents. -C15 F2 Turn the Edit Grid -C15 cross-hair cursor -C15 on/off. -C15 F3 Turn the Edit Grid -C15 image section -C15 highlight on/off. -C15 F4 Turn the pixel -C15 boundary grid -C15 on/off. -C15 SHIFT+F4 Change the pixel -C15 boundary grid -C15 colour. -C15 F5 Turn image view as -C15 tile on/off. -C15 F6 Change between -C15 Drawing Tools and -C15 Palette Tools. -C15 F7 Enter integrated -C15 Animation Tester -C15 utility. -C15 F8 Invoke Screen -C15 Designer utility. -C15 F10 Show all images. -C15 ALT+Q Cut Edit Grid -C15 image section to -C15 Clipboard. -C15 ALT+A Copy Edit Grid -C15 image section to -C15 Clipboard. -C15 ALT+Z Paste Clipboard to -C15 Edit Grid image -C15 section. -C15 ALT+U Scroll Edit Grid -C15 image section up. -C15 ALT+D Scroll Edit Grid -C15 image section -C15 down. -C15 ALT+L Scroll Edit Grid -C15 image section -C15 left. -C15 ALT+R Scroll Edit Grid -C15 image section -C15 right. -C15 ALT+C Clear Edit Grid -C15 image section. -C15 ALT+E Apply current -C15 special effect to -C15 Edit Grid image -C15 section. -C15 [ Select preceding -C15 Palette Grid -C15 colour. -C15 ] Select next -C15 Palette Grid -C15 colour. -C15 < Edit preceding -C15 image. -C15 > Edit next image. -C15 HOME Edit first image. -C15 END Edit last image. -C15 Arrows Move the Edit Grid -C15 image view one -C15 "page" in the -C15 specified -C15 direction. -C15 PAGE UP Select brighter -C15 shade of Current -C15 Colour. -C15 PAGE DOWN Select darker -C15 shade of Current -C15 Colour. -C15 TAB Swap priority of -C15 the two Selected -C15 Colour Boxes. -C15 BACKSPACE Undo latest edit -C15 to current image. -C15 SPACE Toggle view of -C15 current Drawing -C15 Tool between -C15 outline and true -C15 view (only -C15 available while -C15 pointing on the -C15 Edit Grid). -@ - IMAGE EDITOR -C14 Screen Components - - There are various on-screen - objects that make up the - Image Editor user interface. - These are grouped into three - distinct areas of the - screen, in addition to the - Menu Bar and Status Bar. See - diagram below: - -C15 ---------------------------- -C15 | Menu Bar | -C15 ---------------------------- -C15 | | | | -C15 | | | | -C15 | Tool/ | Edit | Image | -C15 |Palette| Grid |Display| -C15 | Panel | Panel | Panel | -C15 | | | | -C15 | | | | -C15 ---------------------------- -C15 | Status Bar | -C15 ---------------------------- - -C14 Tool/Palette Panel - This area of the screen is - where all objects relating - to the Drawing Tools, - Palette Tools and colour - palette are displayed. - - Note: Objects displayed in - the Tool/Palette Panel will - change to those required by - the currently selected - Drawing Tool etc. Only the - Palette Grid will remain - constantly visible. - - Tool/Palette Panel objects: -C13H064 Drawing Tool Icon Buttons -C13H110 Palette Tool Buttons -C13H098 Brush Size Selector -C13H099 Selected Colour Boxes -C13H100 Gradient Status Box -C13H101 Clipboard Status Box -C13H115 RGB Controls -C13H102 Palette Grid - -C14 The Edit Grid Panel - This area of the screen is - where all objects and - information relating to the - Edit Grid - as well as the - Edit Grid itself - are - displayed. - - Edit Grid Panel objects: -C13H103 Edit Grid -C13H104 STORE Button -C13H105 Zoom Buttons -C13H106 Arrow Buttons - -C14 The Image Display Panel - This area of the screen is - where all objects and - information relating to the - current image file and - current image is displayed. - - Image Display Panel objects: -C13H107 Image Display -C13H108 Image Selector -C13H109 File Information - - See also: -C13H006 Menu Bar -C13H063 Status Bar -@ - IMAGE EDITOR -C14 Menu Bar - - This is a row of menu names - running along the top of the - screen. Notice that the - current image file name is - displayed directly below it - which will be shown as - "Untitled" if it hasn't yet - been saved to disk. - - Menu names: -C13H007 File -C13H019 Edit -C13H027 View -C13H037 Action -C13H048 Image -C13H057 Help - -C14 Selecting a Menu Command - Using the mouse, there are - two ways to open a menu and - select a command from it: - - 1) Click on a menu name to - open the menu, then click on - the required menu command. - To close the menu without - choosing a command, click on - the menu name a second time - or click anywhere outside - the menu. - - 2) Drag down from the menu - name to highlight the - required command, then - release the mouse button. To - close the menu without - choosing a command, simply - drag off the menu (so that - no command is highlighted) - then release the mouse - button. - - Note: While a menu command - is highlighted, a brief - description of that command - is given on the Status Bar. - See: -C13H063 Status Bar - -C14 Command Notes: - 1) Commands that have an - ellipsis (...) after them - signify that further - information must be supplied - in order for the command to - be carried out. - 2) Dimmed commands are - unavailable at that time. - 3) Commands that have a - check mark (€) to the left - of them signify that the - command is in effect. - Selecting the command again - removes the check mark and - turns the command off. - 4) Some commands have key - combinations to the right of - them. At any time, pressing - the listed keys selects the - command without having to - open the menu. See: -C13H004 Keyboard Commands -@ - IMAGE EDITOR -C14 The File Menu - - Mainly contains commands to - manage the input (loading) - and output (saving) of files - between the Image Editor and - the hard disk. - - File menu commands: -C13H008 New -C13H009 Open... -C13H010 Append... -C13H011 Save -C13H012 Save As... -C13H169 Save as DATA... -C13H013 Load Clipboard... -C13H014 Save Clipboard... -C13H015 Load Palette... -C13H016 Save Palette... -C13H017 Print Index... -C13H018 Exit -@ - IMAGE EDITOR -C14 New -C12 menu command - - Allows a new image file to - be created from scratch: the - current image file is - removed from memory and an - "untitled" one is created - containing a single, blank - image (100x100). The colour - palette is also reset to the - standard palette. - - You will be prompted to save - the current image file if it - has been altered since it - was last saved. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Open... -C12 menu command - - Selecting this command - allows an existing image - file to be loaded into the - Image Editor, from disk. If - the image file being opened - uses a non-standard colour - palette, it's associated - palette file is also - automatically loaded. - - The "Open Image File" dialog - box is displayed containing - a "File" input box, at the - top, and a file list box - below it. Use these to - specify a file to open, as - described below. - - Type a file name into the - "File" input box and then - press ENTER. If no file name - extension is specified, the - default for image files - (.PUT) is assumed. - Alternatively, a file mask - can be entered in order to - list a specific group of - files in the file list box. - The default mask (*.PUT) is - used initially to list all - files with a .PUT extension. - - Simply double-clicking on a - file name listed in the file - list box is usually the - easiest way to specify a - file to open. Alternatively, - highlight a listed file name - by clicking on it, then - click on the OK button. - - You can use the scroll bar - provided to look through a - list of files that's too - long to display on a single - "page". - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Append... -C12 menu command - - Allows the images contained - in another file to be added - to the end of the current - file. Note that the images - are only copied to the - current file - the file - being appended remains - unaltered. - - The "Append Image File" - dialog box is displayed so - that a file can be - specified. The usual "File" - input box and file list box - are shown and are - functionally identical to - those used by the Open... - command. For full details - on how to use them, see: -C13H009 Open... - - Note: If the images in the - appended file were created - using a different colour - palette to that of the - current image file, they may - appear incorrectly coloured - as it is assumed both files - use a common palette. The - current colour palette is - always retained when - appending an image file. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Save -C12 menu command - - Use this command to write - the current image file to - disk, effectively updating - it with any changes made - since it was last saved. The - colour palette is also saved - (in a separate file) if it - differs from the standard - palette. - - If the current file has not - been saved before, and so is - "untitled", you will be - asked to specify a name to - save the file under, just as - if you had selected the Save - As... command. - - Tip: If you want to write a - file to disk without - overwriting the original - version, you should save it - under a different name by - using the Save As... - command. See: -C13H012 Save As... - - See also: -C13H169 Save as DATA... -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Save As... -C12 menu command - - Allows the current image - file to be written to disk - under a new name, thus - keeping the original file - unaltered. The colour - palette is also saved (in a - separate file) if it differs - from the standard palette. - - The "Save Image File As" - dialog box is displayed - containing a single "File - Name" input box; simply type - the new file name here, then - press ENTER. If no file name - extension is specified, the - default for image files - (.PUT) is assumed. - - See also: -C13H169 Save as DATA... -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Load Clipboard... -C12 menu command - - Allows a previously saved - Clipboard image to be loaded - back onto the Clipboard, - ready for use by the various - tools and commands that use - the Clipboard image. - - The "Load Clipboard" dialog - box is displayed so that a - file can be specified. The - usual "File" input box and - file list box are shown and - are functionally identical - to those used by the Open... - command. For full details on - how to use them, see: -C13H009 Open... - - On the right, a preview box - lets you view an actual - image (along with the size) - when it's file name is - highlighted in the file list - box. This feature can be - disabled by unchecking the - "Preview image" option. - Doing so can speed up the - use of the file list box on - slower computer systems. - - Note: Clipboard images that - were created using a - different colour palette to - the current one, may appear - incorrectly coloured. - - To remove an unwanted - Clipboard image file from - disk, highlight it in the - file list box and then click - on the DELETE button. You - will be asked to confirm - your decision before the - image is actually deleted. - - See also: -C13H101 Clipboard Status Box -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Save Clipboard... -C12 menu command - - Use this command to keep a - useful Clipboard image for - future use, by saving it to - disk. - - The "Save Clipboard" dialog - box is displayed showing the - current Clipboard image and - a single "File Name" input - box. Type the file name - here, then press ENTER. If - no file name extension is - specified, the default for - Clipboard images (.CLP) is - assumed. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Load Palette... -C12 menu command - - This command allows you to - load a previously saved - colour palette so that it - can be used with the current - image file. - - The "Load Palette" dialog - box is displayed so that a - file can be specified. The - usual "File" input box and - file list box are shown and - are functionally identical - to those used by the Open... - command. For full details on - how to use them, see: -C13H009 Open... - - Tip: Palette files that - belong to specific image - files can also be loaded and - used with the current image - file. These files have a - .APF extension and so can be - viewed in the file list box - by entering *.APF into the - "File" input box. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Save Palette... -C12 menu command - - This command saves the - current colour palette to - disk, making it available to - use with any other image - files. - - The "Save Palette" dialog - box is displayed containing - a single "File Name" input - box; simply type the file - name here, then press ENTER. - If no file name extension is - specified, the default for - palette files (.PAL) is - assumed. - - Note: The extension .APF - should not be used as this - is reserved for Associated - Palette Files - colour - palettes belonging to - specific image files. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Print Index... -C12 menu command - - If you have a printer - connected to your system (on - LPT1:), you can use this - command to print out the - current image file's image - index - this is a list of - BASIC array subscripts - specifying where each image - is stored. These values are - needed in order to display - any given image when using - the PUT(graphics) statement - in your own BASIC programs. - For further details, consult - the PIXELplus 256 User's - Manual. - - The "Print Index" dialog box - is displayed so that the - required index listing can - be detailed. - -C14 Print Range: - Check the "Whole File" - option to have an index - printed for all the images - in the current image file. - - Checking the "Select Range" - option allows you to specify - a contiguous range of images - to print an index for. The - "First" input box is - activated so that the - initial image of the range - can be specified. Using only - this input box would print - an index for that one - specified image. However, - using the "Last" input box - lets you specify the final - image of the range. - - The image denoted by the - currently active input box - is displayed in the preview - box, giving visual - confirmation that the - intended image has been - selected. - -C14 Print Format: - With the "Double Spacing" - option checked, a blank line - will be placed between the - index items on the printout. - This simply gives more room - to write in comments/ - descriptions and makes the - listing easier to read, but - uses more paper. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Exit -C12 menu command - - Choose this command to leave - the PIXELplus 256 Image - Editor, and return to DOS. - - You will be prompted to save - the current image file if it - has been altered since it - was last saved. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 The Edit Menu - - Contains general editing - commands, mainly concerned - with use of the Clipboard. - - Edit menu commands: -C13H020 Undo -C13H021 Cut -C13H022 Copy -C13H023 Paste -C13H024 Transparency On -C13H025 Paste Behind -C13H026 Show Clipboard -@ - IMAGE EDITOR -C14 Undo -C12 menu command - - Using the Undo command - removes the latest edit made - to the current image, - allowing mistakes to be - corrected. - - Note that using Undo to - remove a mistake made while - using a Drawing Tool will - remove ALL the changes made - since the tool was selected. - However, making use of the - STORE button allows you to - update the "Undo Image" at - any time. See: -C13H104 STORE Button - - Tip: You can use the Undo - Eraser to selectively remove - areas of a tool's effect. - However, changes made with - the Undo Eraser cannot - themselves be undone. See: -C13H088 Undo Eraser - - Tip: Using Undo repeatedly - lets you switch between both - the edited and unedited - version of an image - a - useful way of deciding - whether to keep the changes - made by a special effect - etc. - - Note: Unlike Edit and Action - menu commands, the effects - of using Image menu commands - cannot be reversed by using - Undo. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Cut -C12 menu command - - Removes the Edit Grid image - section and places it onto - the Clipboard, leaving the - Edit Grid blank. - - Tip: To cut an area of image - with more accuracy, use the - Scissors tool. See: -C13H065 Scissors - - See also: -C13H022 Copy -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Copy -C12 menu command - - Simply places a copy of the - Edit Grid image section onto - the Clipboard. - - Tip: To copy an area of - image with more accuracy, - use the Scissors tool. See: -C13H065 Scissors - - See also: -C13H021 Cut -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Paste -C12 menu command - - Places the Clipboard image - onto the Edit Grid image - section. - - Note that the top, left of - the Clipboard image will be - located to the top, left of - the Edit Grid. Thus, a - Clipboard image that's wider - and/or deeper than the Edit - Grid will be cropped along - the right and/or bottom - edges. This makes the Paste - command more useful when - copying one image to another - of the same size. - - Tip: To paste with more - accuracy, use the Paste - Brush tool. See: -C13H066 Paste Brush - - Note: The current settings - of the Transparency On and - Paste Behind commands - dictate how the Clipboard - image will be applied to the - Edit Grid. See: -C13H024 Transparency On -C13H025 Paste Behind - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Transparency On -C12 menu command - - This command can be turned - on or off, dictating how the - Clipboard image will be used - by tools and commands that - apply it to the current - image. - - When in effect, all black - (colour 0) pixels in the - Clipboard image are - considered as transparent, - allowing the corresponding - parts of the current image - to show through. - - See also: -C13H025 Paste Behind -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Paste Behind -C12 menu command - - This command can be turned - on or off, dictating how the - Clipboard image will be used - by tools and commands that - apply it to the current - image. - - When in effect, only black - (colour 0) pixels in the - current image will be - replaced with the - corresponding Clipboard - image pixels, giving the - impression of placing the - Clipboard behind existing - image objects. - - See also: -C13H024 Transparency On -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Show Clipboard -C12 menu command - - Use this command to view the - image currently held on the - Clipboard. It's size is also - displayed. - - Tip: A quick way to access - the "Show Clipboard" dialog - box is to right-click on the - image shown in the Clipboard - Status Box. See: -C13H101 Clipboard Status Box - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 The View Menu - - Mainly contains commands to - specify which features of - the Image Editor you want - displayed or made active. - - View menu commands: -C13H028 Cross-hair On -C13H029 Highlight On -C13H030 Grid On -C13H031 Image as Tile -C13H032 Palette Tools -C13H033 Test Animation... -C13H034 Screen Designer... -C13H035 Brighter Shade -C13H036 Darker Shade -@ - IMAGE EDITOR -C14 Cross-hair On -C12 menu command - - Enable this command to have - a cross-hair cursor - displayed while pointing on - the Edit Grid: a horizontal - and vertical line span the - Edit Grid, intersecting at - the centre of the cursor. - This is a useful aid for - aligning objects etc. - - Tip: The cross-hair cursor - is particularly useful when - trying to accurately cut or - copy an area of image using - the Scissors tool. See: -C13H065 Scissors - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Highlight On -C12 menu command - - When enabled, the position - of the Edit Grid image - section (in relation to the - current image) is - highlighted on the Image - Display. This allows you to - see exactly the area of - image currently visible on - the Edit Grid. - - See also: -C13H107 Image Display -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Grid On -C12 menu command - - When this command is in - effect, a pixel boundary - grid is displayed on the - Edit Grid. Each pixel is - then instantly - distinguishable from the - pixels that surround it. - - As a further aid, the actual - colour of the grid can be - set to black, dark grey, - light grey or white: press - SHIFT+F4 repeatedly to cycle - through the four available - colours. - - Tip: The pixel boundary grid - can be particularly useful - when doing close-up, - detailed work with the Pixel - Pointer tool. See: -C13H086 Pixel Pointer - - Note: The pixel boundary - grid is not displayed when - the Edit Grid is at 1x - (actual size) zoom - magnification. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Image as Tile -C12 menu command - - When enabled, the Image - Display area is tiled with - as many copies of the - current image as will fit, - instead of the usual single - copy. This is useful when - creating images to be used - as tiles - especially when - you want the tile to appear - seamless. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Palette Tools -C12 menu command - - Choosing this command will - initially replace the usual - Drawing Tool icon buttons - with a set of Palette Tool - buttons. These can be used - to make various alterations - to the colours in the - current palette. For - details, see: -C13H110 Palette Tool Buttons - - Select the Palette Tools - command a second time to - uncheck it and so redisplay - the Drawing Tools. - - See also: -C13H099 Selected Colour Boxes -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Test Animation... -C12 menu command - - Select this command to - access the integrated - Animation Tester. For full - details, see: -C13H116 Animation Tester - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Screen Designer... -C12 menu command - - Select this command to exit - the Image Editor and invoke - the PIXELplus 256 Screen - Designer. - - You will be prompted to save - the current image file if it - has been altered since it - was last saved. It will then - be loaded from within the - Screen Designer, ready to - use for designing screens. - For full details, see: -C13H168 The Screen Designer - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Brighter Shade -C12 menu command - - Searches the palette for a - colour that's a shade - brighter than the Current - Colour. If it finds such a - colour, it is made the - Current Colour. - - Note: Repeated use of this - command will not necessarily - provide you with a colour an - equal shade above the one - last found. This is because - the NEAREST shade to the - Current Colour is used, - which will depend on the - colours available in the - current palette. - - See also: -C13H036 Darker Shade -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Darker Shade -C12 menu command - - Searches the palette for a - colour that's a shade darker - than the Current Colour. If - it finds such a colour, it - is made the Current Colour. - - Note: Repeated use of this - command will not necessarily - provide you with a colour an - equal shade below the one - last found. This is because - the NEAREST shade to the - Current Colour is used, - which will depend on the - colours available in the - current palette. - - See also: -C13H035 Brighter Shade -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 The Action Menu - - Contains commands that - affect or manipulate the - Edit Grid image section. - - Tip: You can make Action - menu commands affect the - entire current image by - left-clicking the Maximize - button beforehand. See: -C13H105 Zoom Buttons - - Action menu commands: -C13H038 Clear -C13H039 Clear to Colour -C13H040 Scroll Up -C13H041 Scroll Down -C13H042 Scroll Left -C13H043 Scroll Right -C13H044 Rotate 90 -C13H045 Flip Horizontal -C13H046 Flip Vertical -C13H047 Effect:(current effect) -@ - IMAGE EDITOR -C14 Clear -C12 menu command - - Simply clears the Edit Grid - image section by setting - each pixel to black (colour - 0). - - See also: -C13H039 Clear to Colour -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Clear to Colour -C12 menu command - - Clears the Edit Grid image - section by setting each - pixel to the Current Colour. - - See also: -C13H038 Clear -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Scroll Up -C12 menu command - - Shifts the Edit Grid image - section up by one row of - pixels. Pixels that scroll - off the top wrap-around to - form the bottom row. - - See also: -C13H041 Scroll Down -C13H042 Scroll Left -C13H043 Scroll Right -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Scroll Down -C12 menu command - - Shifts the Edit Grid image - section down by one row of - pixels. Pixels that scroll - off the bottom wrap-around - to form the top row. - - See also: -C13H040 Scroll Up -C13H042 Scroll Left -C13H043 Scroll Right -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Scroll Left -C12 menu command - - Shifts the Edit Grid image - section left by one column - of pixels. Pixels that - scroll off the left side - wrap-around to form the - right edge. - - See also: -C13H040 Scroll Up -C13H041 Scroll Down -C13H043 Scroll Right -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Scroll Right -C12 menu command - - Shifts the Edit Grid image - section right by one column - of pixels. Pixels that - scroll off the right side - wrap-around to form the left - edge. - - See also: -C13H040 Scroll Up -C13H041 Scroll Down -C13H042 Scroll Left -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Rotate 90 -C12 menu command - - Turns the Edit Grid image - section clockwise through - 90 degrees. - - Note: This command will not - be available if the Edit - Grid image section is not a - square (of equal width and - depth), unless the entire - image is being rotated. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Flip Horizontal -C12 menu command - - Flips the Edit Grid image - section, left to right, - resulting in a mirror image. - - See also: -C13H046 Flip Vertical -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Flip Vertical -C12 menu command - - Flips the Edit Grid image - section upside down. - - See also: -C13H045 Flip Horizontal -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Effect:(current effect) -C12 menu command - - Applies the currently - selected special effect to - the entire Edit Grid image - section. - - See also: -C13H067 Special Effects Brush -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 The Image Menu - - Contains commands allowing - the manipulation of existing - images as well as the - creation of new ones. - - Image menu commands: -C13H049 Add... -C13H050 Delete... -C13H051 Resize... -C13H052 Duplicate... -C13H053 Convert to Mask... -C13H054 Crop -C13H055 Add as Gradient -C13H056 Show All -@ - IMAGE EDITOR -C14 Add... -C12 menu command - - Use this command to add one - or more blank images, of a - specified size, to the - current image file. - - The "Add Image(s)" dialog - box is displayed so that the - required image(s) can be - detailed. - - Specify the size for the new - image(s) by setting the - "Width" and "Depth" values. - An example image is - displayed in the preview - box, on the right side of - the dialog box, to show the - actual screen size the - image(s) will be. - - Set "Amount" to the total - number of images you want - created. - - Set "Position" to the place - in the current image file - where you wish to insert the - new image(s). By default, - this is set to place them - after all existing images. - If you alter this, the image - currently at "Position" is - displayed, giving visual - confirmation that the new - image(s) will be inserted at - the desired position. - - There are three values - displayed at the bottom of - the dialog box which give - useful status information: - - "Requires" shows the number - of bytes needed to create - the new image(s), using the - current settings. - - "Space" shows the total - number of free bytes - currently available for - images. - - "Result" shows the total - number of bytes that will be - available for images after - creating the new image(s), - using the current settings. - If this is a negative value - then there is insufficient - memory (image space) to - create the desired image(s). - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Delete... -C12 menu command - - Use this command to remove - one or more unwanted images - from the current image file. - - Note: Be careful when using - this command as deleted - images cannot be retrieved - by using the Edit/Undo - command. It's a good idea to - save the current image file - before attempting any - significant deletion. - - The "Delete Image(s)" dialog - box is displayed so that you - can specify the image(s) you - want deleted. - - If you want to delete one - image only, simply set - "First" to the image you - want to delete. When - deleting two or more - contiguous images, set - "First" to the initial image - of the range you want - deleted. - - The "Last" input box is - initially dimmed (inactive) - and should only be activated - and used when you want to - delete two or more - contiguous images, in which - case, set it to the final - image of the range to be - deleted. - - The image denoted by the - currently active input box - is displayed in the preview - box, giving visual - confirmation that the - intended image has been - selected. - - Note: You can't delete every - image in the current image - file. At least one image - must remain defined. - - There are four values - displayed at the bottom of - the dialog box which give - useful status information: - - "Count" shows the total - number of images that will - be deleted, using the - current settings. - - "Reclaims" shows the number - of bytes that will be made - available for images by - deleting the specified - image(s). - - "Space" shows the total - number of free bytes - currently available for - images. - - "Result" shows the total - number of bytes that will be - available for images after - deleting the specified - image(s). - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Resize... -C12 menu command - - This command allows the - physical dimensions (width - and depth) of an existing - image to be reduced or - increased. - - Note: Be careful when using - this command as the effect - of resizing an image cannot - be reversed by using the - Edit/Undo command. It's a - good idea to save the - current image file before - attempting any significant - resizing operation. - - The "Resize Image" dialog - box is displayed so that the - image and it's new size can - be specified. - - Set "Image" to the image you - want to resize. The selected - image is displayed in the - preview box, on the right of - the dialog box, giving - visual confirmation that the - correct image has been - selected. - - Specify the new size for the - image by setting the "Width" - and "Depth" values. An - example of what the image - will look like is displayed - to ensure it is resized - correctly. - - There are four values - displayed at the bottom of - the dialog box which give - useful status information: - - "Original" shows the current - size of the selected image. - - "Requires" shows the number - of bytes needed to resize - the specified image, using - the current settings. A - negative value here - indicates bytes reclaimed. - - "Space" shows the total - number of free bytes - currently available for - images. - - "Result" shows the total - number of bytes that will be - available for images after - the specified image has been - resized, using the current - settings. If this is a - negative value then there is - insufficient memory (image - space) to resize the - selected image to the new - size. - - See also: -C13H054 Crop -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Duplicate... -C12 menu command - - Use this command to create a - new copy of one or more - existing images. - - The "Duplicate Image(s)" - dialog box is displayed - so that the required - image(s) can be specified. - - If you want to make a copy - of one image only, set - "First" to the image you - want to duplicate. When - duplicating two or more - contiguous images, set - "First" to the initial image - of the range you want - duplicated. - - The "Last" input box is - initially dimmed (inactive) - and should only be activated - and used when you want to - duplicate two or more - contiguous images, in which - case, set it to the final - image of the range to be - duplicated. - - The image denoted by the - currently active input box - is displayed in the preview - box, giving visual - confirmation that the - intended image has been - selected. - - There are four values - displayed at the bottom of - the dialog box which give - useful status information: - - "Count" shows the total - number of images that will - be duplicated, using the - current settings. - - "Requires" shows the number - of bytes needed to create - the duplicate image(s), - using the current settings. - - "Space" shows the total - number of free bytes - currently available for - images. - - "Result" shows the total - number of bytes that will be - available for images after - duplicating the specified - image(s). If this is a - negative value then there is - insufficient memory (image - space) to duplicate the - selected image(s). - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Convert to Mask... -C12 menu command - - This command allows existing - images to be converted to - their equivalent masks: a - special type of image - required for displaying - images over existing screen - objects so that only the - image's exact shape is - displayed, allowing - background objects to still - be visible around it. - - This is an advanced - technique which is discussed - fully in the PIXELplus 256 - User's Manual. - - Note: Be careful when using - this command as the effect - of converting an image - cannot be reversed by using - the Edit/Undo command. It's - a good idea to save the - current image file before - attempting any significant - conversion to masks. - - The "Convert to Mask" dialog - box is displayed so that the - required image conversion - can be detailed. - -C14 Mask Type: - Check the "Exact Mask" - option to have the specified - images converted to masks - that correspond to their - exact shape. - - Check the "Expanded Mask" - option to have the specified - images converted to expanded - masks. Images displayed - using this type of mask will - have a black outline (one - pixel thick) around them - which helps to distinguish - them from the background - screen image. The mouse - pointer uses this technique - so that the white arrow is - always visible, even when - placed over an all-white - area of screen. - - Note: Any image to be - converted to an expanded - mask must be of sufficient - size to hold the enlarged - mask shape - making sure the - actual image shape doesn't - touch any edge of the image - will ensure there's enough - room. - -C14 Conversion Range: - Check the "Whole File" - option to have all the - images in the current image - file converted to their mask - equivalents. When doing so, - it is assumed you intend to - maintain two separate files: - one containing the actual - images and another - containing the corresponding - mask images. As such, you - will be prompted to save the - current image file before - the images are converted, if - it has altered since it was - last saved. - - Note: After the images have - been converted, it's - important to remember to - save the current image file - (which now contains the - masks) by choosing File/Save - As..., and specify a - different name. DO NOT - select File/Save as this - will overwrite the original - image file. - - To clarify the whole - process, consider this - example: if you create an - image file and save it as - SPRITES.PUT, then convert - the whole file to mask - images and save it as - SPRITES.MSK; you will now - have two files: SPRITES.PUT - containing the actual images - and SPRITES.MSK containing - the mask images. - - Checking the "Select Range" - option allows you to specify - a single image or a - contiguous range of images - to convert to masks. The - "First" input box is - activated so that the - initial image of the range - can be specified. Using only - this input box lets you - convert that one specified - image. However, using the - "Last" input box lets you - specify the final image of - the range. - - The image denoted by the - currently active input box - is displayed in the preview - box, giving visual - confirmation that the - intended image has been - selected. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Crop -C12 menu command - - Allows the current image to - be cut down in size so that - only the Edit Grid image - section is retained (the - portion of image currently - visible on the Edit Grid). - Everything outside the Edit - Grid is discarded. - - You will be asked to confirm - your decision before the - current image is actually - cropped. - - Note: Be careful when using - this command as the effect - of cropping an image cannot - be reversed by using the - Edit/Undo command. It's a - good idea to save the - current image file before - attempting any significant - crop. - - See also: -C13H051 Resize... -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Add as Gradient -C12 menu command - - An advanced feature of the - PIXELplus 256 Image Editor - is the ability to design - your own gradient styles - - used by the various Drawing - Tools that work using a - colour gradient (Gradient - Fill etc.) This is achieved - by first designing the - gradient style and then - selecting this command to - have it added to the user- - defined group of gradient - styles, which can be - accessed by clicking on the - Gradient Status Box. See: -C13H100 Gradient Status Box - - The current image must - conform to the following - requirements in order for it - to be used as a valid user- - defined gradient style: - 1) It must be a full-size - (100x100) image. - in size. - 2) All eight colours, from 0 - to 7, must be used in the - design of the gradient - style. Colours 0 and 7 - should be used to represent - what will be the Current - Colour and Secondary Colour - while colours 1, 2, 3, 4, 5 - and 6 represent the - intermediate colours used in - the gradient. - 3) No others colours may be - used in the design of the - gradient style. - - As a demonstration, open the - file DEMOGRAD.PUT to see how - a gradient style should be - designed. You can then - select Add as Gradient to - have it added to the user- - defined group of gradient - styles. You could also - produce a dithered version - of the gradient style by - applying several layers of - the MIX or FUR special - effect - depending on how - severe you want the - dithering. Evenly applying - MIX, using the Special - Effects Brush, generally - produces the most effective - results. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Show All -C12 menu command - - Choose this command when you - want to view all the images - in the current file - together. - - The "Show All" dialog box is - displayed containing all the - currently defined images (or - as many as will fit) along - with their assigned number. - - Use the scroll bar provided - to view any images not able - to fit in the supplied - viewing area. - - Tip: You can point and click - on an image to make it the - current image. This is - sometimes a quicker way of - moving to a specific image - in files that contain many. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 The Help Menu - - Contains commands to view - PIXELplus 256 online Help - and program information. - - Help menu commands: -C13H058 Contents -C13H059 Index -C13H060 Keyboard -C13H061 Using Help -C13H062 About... -@ - IMAGE EDITOR -C14 Contents -C12 menu command - - Invokes online Help and - displays the Table of - Contents - a categorized - list of Help subjects - available. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Index -C12 menu command - - Invokes online Help and - displays the Index - an - alphabetical list of all - Help topics available. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Keyboard -C12 menu command - - Invokes online Help and - displays a summary of - keyboard commands available - in the Image Editor. See: -C13H004 Keyboard Commands - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Using Help -C12 menu command - - Invokes online Help and - displays information about - how to use the online Help - system itself. See: -C13H003 Using Online Help - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 About... -C12 menu command - - Displays a dialog box - containing copyright and - version information specific - to the PIXELplus 256 Image - Editor. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Status Bar - - This is a single line of - text (running along the - bottom of the screen) used - to show relevant information - such as available keyboard - commands, mouse button - functions, Drawing Tool set - up information, menu command - descriptions etc. - - Due to the limited space for - displaying information on - the Status Bar, two special - symbols are used to denote - the function of the mouse - buttons: - - „ means click the LEFT mouse - button. - - … means click the RIGHT - mouse button. - - For example, "…Sample" on - the Status Bar informs you - that clicking the right - mouse button will sample a - colour, when pointing on the - Edit Grid. - - See also: -C13H006 Menu Bar -@ - IMAGE EDITOR -C14 Drawing Tool Icon Buttons - - This block of eight icon - buttons will be displayed at - the top, left of the screen, - except when the Palette - Tools have been selected in - which case they are replaced - with the Palette Tool - buttons. See: -C13H110 Palette Tool Buttons - - Note: Although there's only - enough room on-screen to - display eight Drawing Tool - icon buttons at a time, - there are in fact eighteen - different tools available: - - If the required tool button - isn't currently visible, - left-click repeatedly on the - appropriate button to cycle - through any related tools - available on that button - position. For example, - successive clicks on the - Paintbrush button will - reveal and select the Pixel - Pointer tool, then the - Airbrush tool and finally - return to the Paintbrush - tool button. - - Drawing Tools: -C13H065 Scissors -C13H066 Paste Brush -C13H067 Special Effects Brush -C13H082 Flood Fill -C13H083 Tile Fill -C13H084 Gradient Fill -C13H085 Paintbrush -C13H086 Pixel Pointer -C13H087 Airbrush -C13H088 Eraser -C13H089 Circle/Ellipse -C13H090 Filled Circle/Ellipse -C13H091 Gradient Circle/Ellipse -C13H092 Box -C13H093 Filled Box -C13H094 Gradient Box -C13H095 Line -C13H096 Curve -C13H097 Colour Sampler - -C14 Tool Set Up - As a further enhancement, - some of the Drawing Tools - can be set up to function in - a particular way; for - example, the Eraser can be - set up to function as a - Normal Eraser, a Colour - Eraser or an Undo Eraser. - - Tip: If you're unsure how - the current Drawing Tool has - been set up, simply point on - the Edit Grid and the - function of the current - Drawing Tool will be - displayed on the Status Bar. - -C14 Changing a Tool's Set Up - By right-clicking on a - Drawing Tool icon button, a - "Set Up" dialog box is - displayed (if that tool has - set up options) where - various set up options can - be set. The options - available will depend on the - tool being set up - full - details are included in each - tool's Help section. - - Note: Any alterations made - to a tool's set up remain in - effect until explicitly - changed. This is true even - when restarting the Image - Editor as all tool set up - information (among other - things) is maintained in the - file PP256_ED.SET. - -C14 Useful Things to Remember - When using certain Drawing - Tools that require an object - to be positioned and/or - sized (Paste Brush, Line - etc.), it's possible to view - the object either as a - simple outline, or as a true - view which shows exactly - what will be produced by the - tool. You can toggle between - outline and true view by - pressing SPACE, while - pointing on the Edit Grid - - even when in the middle of - using a tool. Using the true - view can be very useful when - trying to use a tool with - absolute accuracy. - - Note: You may have to stick - with using the outline view - if you are using a slower - computer system. - - Many of the Drawing Tools - - such as Line, Scissors etc. - - involve setting the size - of an object before the - final effect of the tool is - produced. When using such a - tool, keep the following - points in mind: - 1) The object's size is - displayed above the Edit - Grid. - 2) The object's origin can - be moved by using the arrow - keys. - 3) Right-click or press - ESCAPE to cancel the - operation. -@ - IMAGE EDITOR -C14 Scissors -C12 drawing tool - - The main use of this tool is - to allow a rectangular area - of image to be moved from - one place to another (cut - then pasted). However, it - can also be used to set the - exact size and position of - the Edit Grid, delete - (clear) a section of image, - or to copy a specific area - of image onto the Clipboard. - -C14 Set Up Options - Right-click on the Scissors - icon button to change the - Scissors set up. - - The "Set Up: SCISSORS" - dialog box is displayed. - From here, altering either - the "Transparency On" or - "Paste Behind" options has - exactly the same effect as - using the Edit menu commands - of the same name and are - included here for - convenience. See: -C13H024 Transparency On -C13H025 Paste Behind - -C14 How to Use - Depending on which function - you want to perform, the - Scissors tool must be used - in two or three steps: - -C14 Step One - Select a rectangular area of - image by clicking on one - corner (the origin) and then - move the mouse to the - opposite corner. - - Tip: It's sometimes easier - to accurately select an area - with the cross-hair cursor - on: check the View/Cross- - hair On command. See: -C13H028 Cross-hair On - -C14 Step Two - Click to cut the selected - area of image onto the - Clipboard. Alternatively, - the following keyboard - commands are now available: - - C - Copy area to Clipboard. - D - Delete area. - G - Set Edit Grid to area. - - Note: A reminder of - available keyboard commands - is displayed on the Status - Bar. - -C14 Step Three - If you have chosen to cut or - copy the selected image - section onto the Clipboard, - this is immediately made - available to paste at a new - position: using the mouse, - position it as required then - click to paste it there. - - See also: -C13H021 Cut -C13H022 Copy -C13H023 Paste -C13H066 Paste Brush -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Paste Brush -C12 drawing tool - - This tool enables you to - apply (paste) the Clipboard - image onto the current - image - in a number of - different ways. The way the - Clipboard image is pasted - will depend on how the Paste - Brush tool has been set up - to function. - - The current Clipboard image - is shown on the Clipboard - Status Box which can be used - to perform various Clipboard - related operations. See: -C13H101 Clipboard Status Box - -C14 Set Up Options - Right-click on the Paste - Brush icon button to change - the Paste Brush set up. - - The "Set Up: PASTE BRUSH" - dialog box is displayed. - From here, you can specify - how you want the Paste Brush - tool to function. - - Check the "Rubber Stamp" - function to use the Paste - Brush tool for accurately - pasting copies of the - Clipboard image. - - Check the "Resize" function - to use the Paste Brush tool - for pasting resized copies - of the Clipboard image. - - The "Horizontal Skew" - function allows you to slant - the Clipboard image - horizontally before pasting. - - The "Vertical Skew" function - allows you to slant the - Clipboard image vertically - before pasting. - - Altering either the - "Transparency On" or "Paste - Behind" options has exactly - the same effect as using the - Edit menu commands of the - same name and are included - here for convenience. See: -C13H024 Transparency On -C13H025 Paste Behind - -C14 How to Use - The way the Paste Brush tool - must be used depends on how - it has been set up to - function. The four modes of - operation are detailed in - turn below. - -C14 Rubber Stamp - Simply position the image - cursor and click to paste. - Drag the image cursor to use - the Clipboard image as a - brush for drawing. - -C14 Resize - Click on one corner (the - origin) then move the mouse - to the opposite corner - before clicking a second - time to paste a resized copy - of the Clipboard image. - -C14 Horizontal Skew - Position the top edge of the - image cursor then click. - Move the mouse left or right - to set the required amount - of horizontal skew, then - click to paste. - -C14 Vertical Skew - Position the left edge of - the image cursor then click. - Move the mouse up or down to - set the required amount of - vertical skew, then click to - paste. - - See also: -C13H023 Paste -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Special Effects Brush -C12 drawing tool - - The PIXELplus 256 Image - Editor provides fourteen - powerful special effects - that can be applied to - images, or selected areas of - image, to alter their - appearance in specific ways. - - Special Effects: -C13H068 BRIGHT (variable) -C13H069 DARK (variable) -C13H070 TINT (variable) -C13H071 FUR (variable) -C13H072 MIX (variable) -C13H073 SOFT -C13H074 UNZAG -C13H075 HOLLOW -C13H076 TILE -C13H077 XOR -C13H078 GREY -C13H079 SWEEP -C13H080 SWAP -C13H081 EDGE - - The Special Effects Brush - allows the current special - effect to be accurately - applied to specific areas of - image. - - The name of the current - special effect is displayed - on the Brush Size Selector - box. To change the brush - size, see: -C13H098 Brush Size Selector - - Note: The Special Effects - Brush is only available in a - square brush shape, - regardless of the currently - selected brush shape. - -C14 How to Use - Click to apply the current - special effect to the area - of image at the brush - cursor, or drag to - continuously apply the - effect. - - Note: A new layer of special - effect is applied each time - the left mouse button is - pressed. Ensure the whole - area you want to affect is - visible on the Edit Grid - when you want to apply an - even layer of special - effect. - -C14 Selecting a Special Effect - Employ one of the following - methods to select a new - special effect to use: - - 1) Click on the Brush Size - Selector box to reveal a - menu, then click on the - required special effect - name. To close the menu - without choosing a new - special effect, click on the - highlighted current special - effect name (at the top of - the menu) or click anywhere - outside the menu. - - 2) Drag down from the Brush - Size Selector box to - highlight the required - special effect name, then - release the mouse button. To - close the menu without - choosing a new special - effect, simply drag off the - menu (so that no effect is - highlighted) then release - the mouse button. - - Note: While a special effect - name is highlighted, a brief - description of that effect - is given on the Status Bar. - -C14 Variable Special Effects - Five of the special effects - are variable which means - they have an individual - "Strength" setting that - dictates how severely the - effect will work. The - variable special effects are - BRIGHT, DARK, TINT, FUR and - MIX. - -C14 Changing the Strength -C14 of an Effect - Right-click on the Brush - Size Selector box to display - the "Effect Strength" dialog - box where you can specify - the current special effect's - "Strength" directly. Valid - settings range from 1 (weak) - to 100 (strong). - - Note: Any alterations made - to a special effect's - "Strength" setting remain in - effect until explicitly - changed. This is true even - when restarting the Image - Editor as special effect - "Strength" settings (among - other things) are maintained - in the file PP256_ED.SET. - -C14 Palette-dependent Effects - Some of the special effects - are palette-dependent, - meaning that they rely - heavily on the colours - available in the current - palette in order to produce - the desired effect; for - example, using the GREY - special effect with a - palette that contains few - shades of grey will be - unlikely to produce - satisfactory results. The - palette-dependent effects - are BRIGHT, DARK, TINT, - SOFT, UNZAG and GREY. - - See the PIXELplus 256 User's - Manual for details on - improving results. - - See also: -C13H047 Effect:(current effect) -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 BRIGHT -C12 special effect - - The BRIGHT special effect - can be used to increase the - perceived brightness of - affected areas of image by - converting coloured pixels - to ones of a brighter shade. - Black areas of image are not - affected because it is - usually desirable to - brighten actual image - objects only, and not the - background, which is - normally black. - - The current "Strength" - setting of the BRIGHT - special effect dictates the - severity of the effect - produced. - - BRIGHT is a palette- - dependent special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 DARK -C12 special effect - - The DARK special effect can - be used to make affected - areas of image appear darker - by converting coloured - pixels to ones of a darker - shade. - - The current "Strength" - setting of the DARK special - effect dictates the severity - of the effect produced. - - DARK is a palette-dependent - special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 TINT -C12 special effect - - The TINT special effect - gives the appearance of - applying a tincture of - colour (the Current Colour) - to affected areas of image. - See: -C13H099 Selected Colour Boxes - This can sometimes give the - impression of overlaying - coloured glass. - - The current "Strength" - setting of the TINT special - effect dictates the severity - of the effect produced. - - TINT is a palette-dependent - special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 FUR -C12 special effect - - The FUR special effect can - be used to fur up the edges - of image objects, giving - them an irregular appearance - without distorting them - beyond all recognition. - - The current "Strength" - setting of the FUR special - effect dictates the severity - of the effect produced. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 MIX -C12 special effect - - The MIX special effect can - be used to mix up areas of - image by randomly swapping - the position of pixels. Only - pixels within the bounds of - the current brush size are - swapped when using the - Special Effects Brush - - using Action/Effect:MIX - causes pixels to be swapped - within the bounds of the - entire Edit Grid image - section, resulting in a - greater degree of - disintegration. - - The current "Strength" - setting of the MIX special - effect dictates the severity - of the effect produced. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 SOFT -C12 special effect - - SOFT is a powerful special - effect that uses a technique - known as "anti-aliasing" to - give all edges of image - objects a softer, slightly - blurred appearance. When - used correctly, SOFT can - greatly improve the - appearance of images, giving - them an almost digitized - look. Use repeatedly to - achieve a blurred, out of - focus look. - - SOFT uses total anti- - aliasing. For a milder form - of anti-aliasing, see: -C13H074 UNZAG - - SOFT is a palette-dependent - special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 UNZAG -C12 special effect - - The UNZAG special effect - uses an anti-aliasing - technique to smooth the - appearance of zigzag, jagged - edges only. Straight edges - remain unaltered resulting - in a less-blurred appearance - than the SOFT effect - produces. See: -C13H073 SOFT - - UNZAG is a palette-dependent - special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 HOLLOW -C12 special effect - - The HOLLOW special effect - can be used to hollow out - solid areas of colour, - converting them to outlines. - It can be thought of as - having the opposite effect - to the Flood Fill tool. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 TILE -C12 special effect - - The TILE special effect - works by tiling affected - areas of image with the - current Clipboard image. - Tiling is oriented to the - top, left corner of the - current image. - - Note: The current settings - of Edit/Transparency On and - Edit/Paste Behind dictate - how the Clipboard image will - be applied. See: -C13H024 Transparency On -C13H025 Paste Behind - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 XOR -C12 special effect - - Applying the XOR special - effect to an area of image - changes the colour of - affected pixels by - performing a logical XOR - (exclusive OR) between them - and the Current Colour. See: -C13H099 Selected Colour Boxes - - Note: It's not the actual - colour of pixels (the RGB - values) but the colour - number (attribute) of pixels - that XOR operates on. - - Although using the XOR - special effect can produce - some unpredictable results - (especially when applied to - multicoloured areas of - image), experimentation can - achieve some interesting - results. - - Tip: Using XOR on an area of - image that was drawn using - the Current Colour will - invert the image. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 GREY -C12 special effect - - When applied to coloured - areas of image, the GREY - special effect simply - converts each pixel to it's - grey scale equivalent, i.e. - the affected area of image - is converted to black and - white. - - GREY is a palette-dependent - special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 SWEEP -C12 special effect - - The SWEEP special effect - works by removing or filling - in single, isolated pixels. - It can be used to tidy up - and clarify areas of image. - - Tip: SWEEP can be - particularly useful for - tidying up the effects of - using the Airbrush or the - MIX special effect. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 SWAP -C12 special effect - - The SWAP special effect is - used to replace the - occurrence of one colour for - another: pixels matching the - Current Colour are swapped - with ones of the Secondary - Colour. See: -C13H099 Selected Colour Boxes - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 EDGE -C12 special effect - - The EDGE special effect can - be used to add an outline - (one pixel thick) to image - objects. The outline - produced will be of the - Current Colour. See: -C13H099 Selected Colour Boxes - - Tip: Using EDGE repeatedly - - changing the Current Colour - each time - can produce some - interesting effects. - - See also: -C13H067 Special Effects Brush -@ - IMAGE EDITOR -C14 Flood Fill -C12 drawing tool - - Use this tool to fill an - enclosed area (containing a - single colour) with a - different colour. - - The colour used to fill with - will be the Current Colour, - as indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - -C14 How to Use - Simply point the small, - cross-hair cursor at the - pixel where you want filling - to start, and then click. - - Note: The fill will leak - through any gap in the - enclosed area - even one of - just a single pixel. Also, - the fill tools are the only - tools that are able to - affect areas of image - outside the Edit Grid image - section. - - See also: -C13H083 Tile Fill -C13H084 Gradient Fill -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Tile Fill -C12 drawing tool - - Use this tool to fill an - enclosed area (containing a - single colour) with the - current Clipboard image, - used as a tile. The way the - Clipboard image is tiled - will depend on how the Tile - Fill tool has been set up to - function. - - The current Clipboard image - is shown on the Clipboard - Status Box which can be used - to perform various Clipboard - related operations. See: -C13H101 Clipboard Status Box - -C14 Set Up Options - Right-click on the Tile Fill - icon button to change the - Tile Fill tool set up. - - The "Set Up: TILE FILL" - dialog box is displayed. - From here, you can specify - how you want the Tile Fill - tool to function. - - Check the "Tile from Cursor" - function to orient the top, - left corner of the tile to - the fill point. - - Checking the "Tile from - Corner" function will cause - tiling to be oriented to the - top, left corner of the - current image. This will - ensure tiles are always - aligned, regardless of where - you specify filling should - start. - - Checking the "Scale to Fill - Area" function will mean a - single tile will be scaled - to fit the entire fill area. - - Altering the "Transparency - On" option has exactly the - same effect as using the - Edit menu command of the - same name. See: -C13H024 Transparency On - -C14 How to Use - Simply point the small, - cross-hair cursor at the - pixel where you want filling - to start, and then click. - - Note: The fill will leak - through any gap in the - enclosed area - even one of - just a single pixel. Also, - the fill tools are the only - tools that are able to - affect areas of image - outside the Edit Grid image - section. - - See also: -C13H082 Flood Fill -C13H084 Gradient Fill -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Gradient Fill -C12 drawing tool - - Use this tool to fill an - enclosed area (containing a - single colour) with colours - that gradually blend from - one colour into another. The - colours used will be a blend - between the Current Colour - and the Secondary Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - - The current gradient fill - style will be used, as shown - on the Gradient Status Box. - To choose a new style, see: -C13H100 Gradient Status Box - -C14 How to Use - Simply point the small, - cross-hair cursor at the - pixel where you want filling - to start, and then click. - - Note: The fill will leak - through any gap in the - enclosed area - even one of - just a single pixel. Also, - the fill tools are the only - tools that are able to - affect areas of image - outside the Edit Grid image - section. - - See also: -C13H082 Flood Fill -C13H083 Tile Fill -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Paintbrush -C12 drawing tool - - Just like a real paintbrush, - this tool allows you paint - colour directly onto images. - The colour used will be the - Current Colour, as indicated - on the Selected Colour - Boxes. See: -C13H099 Selected Colour Boxes - - The Paintbrush operates - using the current brush - shape, size and strength. To - change any of these, see: -C13H098 Brush Size Selector - -C14 How to Use - Click to dab the brush, or - drag the brush cursor to - draw a continuous, freehand - line. - - See also: -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Pixel Pointer -C12 drawing tool - - The Pixel Pointer is a - simple yet extremely useful - tool for doing detailed, - close-up work, such as - touching-up images. It is - used to set individual - pixels to the Current - Colour, as indicated on the - Selected Colour Boxes. See: -C13H099 Selected Colour Boxes - -C14 How to Use - Simply point the arrow - cursor at a pixel and click - to set it to the Current - Colour. Drag the arrow - cursor to continually set - pixels; dragging quickly - will produce a broken, - freehand line. - - Tip: It can be useful to - have the pixel boundary - grid displayed when using - the Pixel Pointer tool at - higher zoom levels. See: -C13H030 Grid On - - See also: -C13H097 Colour Sampler -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Airbrush -C12 drawing tool - - The Airbrush can be used to - randomly apply spots of - colour in the same way a - real airbrush or aerosol can - does: colour is continually - sprayed and will result in a - build-up of colour when - directed at the same area of - image for any length of - time. The colour sprayed is - the Current Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - - Although the Airbrush always - sprays a circular shape - - regardless of the current - brush shape - the size of - the area affected can be - controlled by using the - Brush Size Selector in the - usual way. Also, the speed - at which colour is sprayed - can be altered by changing - the spray "Strength" - setting. For full details, - see: -C13H098 Brush Size Selector - -C14 How to Use - The Airbrush continuously - applies colour at the small, - cross-hair cursor position - while the left mouse button - is held down. Consequently, - the speed at which you drag - the cursor will dictate the - density of the colour - sprayed. - - See also: -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Eraser -C12 drawing tool - - This tool allows unwanted - areas of image to be - accurately removed. The - actual parts of an image - that will be erased depends - on how the Eraser tool has - been set up to function. - - To change the brush size, - see: -C13H098 Brush Size Selector - - Note: The Eraser is only - available in a square brush - shape, regardless of the - currently selected brush - shape. - -C14 Set Up Options - Right-click on the Eraser - icon button to change the - Eraser tool set up. - - The "Set Up: ERASER" dialog - box is displayed. From here, - you can specify how you want - the Eraser tool to function. - - Check the "Normal Eraser" - function to have the Eraser - tool remove all parts of an - image that it's applied to. - See also: -C13H065 Scissors -C13H038 Clear - - Checking the "Colour Eraser" - function will cause the - Eraser tool to only remove - areas of image that match - the Current Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes -C13H080 SWAP - - Checking the "Undo Eraser" - function allows the Eraser - tool to be used to - selectively remove the - effects of the latest edit. - For example, if while - drawing a freehand line you - accidentally slip, you can - use the Undo Eraser to - remove the mistake without - erasing the whole line, - which is what the Edit/Undo - command would do. See: -C13H020 Undo - - Note: Because of the way the - Undo Eraser works, changes - made to an image with it - cannot themselves be undone. - -C14 How to Use - Click to apply the Eraser at - the brush cursor position, - or drag to continuously - apply the Eraser. - - See also: -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Circle/Ellipse -C12 drawing tool - - Using this tool allows a - circle or ellipse to be - drawn onto the current - image. - - The colour used to draw the - circle/ellipse will be the - Current Colour, as indicated - on the Selected Colour - Boxes. See: -C13H099 Selected Colour Boxes - - The circle/ellipse will be - drawn using the current - brush shape, size and - strength. To change any of - these, see: -C13H098 Brush Size Selector - -C14 How to Use - The Circle/Ellipse tool is - used by specifying a - rectangular area into which - the shape will be inscribed. - - First, define the - rectangular area of image by - clicking on one corner (the - origin) and then move the - mouse to the opposite - corner. Next, click a second - time to draw the circle/ - ellipse inside the specified - area. - - See also: -C13H090 Filled Circle/Ellipse -C13H091 Gradient Circle/Ellipse -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Filled Circle/Ellipse -C12 drawing tool - - Using this tool allows a - solid circle or ellipse to - be drawn onto the current - image. - - The colour used to draw the - actual circle/ellipse will - be the Current Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - However, the colour used to - fill the shape depends on - how the Filled Circle/ - Ellipse tool has been set up - to function. - - The actual circle/ellipse - will be drawn using the - current brush shape, size - and strength. To change any - of these, see: -C13H098 Brush Size Selector - -C14 Set Up Options - Right-click on the Filled - Circle/Ellipse icon button - to change the Filled Circle/ - Ellipse tool set up. - - The "Set Up: FILLED CIRCLE/ - ELLIPSE" dialog box is - displayed. From here, you - can specify how you want the - Filled Circle/Ellipse tool - to function. - - Check the "Use Two Colours" - option to have the Filled - Circle/Ellipse tool draw - circles and ellipses using - two colours: the Current - Colour will be used to draw - the actual circle/ellipse - and the Secondary Colour - will be used to fill the - shape. - - If the "Use Two Colours" - option is left unchecked - then the Current Colour will - be used to both draw the - actual circle/ellipse and to - fill it. - - Note: Both the Filled - Circle/Ellipse and Filled - Box tools share the same - "Use Two Colours" set up - option so changing it will - affect both tools. - -C14 How to Use - The Filled Circle/Ellipse - tool is used by specifying a - rectangular area into which - the shape will be inscribed. - - First, define the - rectangular area of image by - clicking on one corner (the - origin) and then move the - mouse to the opposite - corner. Next, click a second - time to draw the circle/ - ellipse inside the specified - area. - - See also: -C13H089 Circle/Ellipse -C13H091 Gradient Circle/Ellipse -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Gradient Circle/Ellipse -C12 drawing tool - - Use this tool to draw a - circle or ellipse filled - with colours that gradually - blend from one colour into - another. The colours used - will be a blend between the - Current Colour and the - Secondary Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - - The current gradient fill - style will be used, as shown - on the Gradient Status Box. - To choose a new style, see: -C13H100 Gradient Status Box - -C14 How to Use - The Gradient Circle/Ellipse - tool is used by specifying a - rectangular area into which - the shape will be inscribed. - - First, define the - rectangular area of image by - clicking on one corner (the - origin) and then move the - mouse to the opposite - corner. Next, click a second - time to draw the circle/ - ellipse inside the specified - area. - - See also: -C13H089 Circle/Ellipse -C13H090 Filled Circle/Ellipse -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Box -C12 drawing tool - - Using this tool allows you - to draw a simple rectangle - or box shape onto the - current image. - - The colour used to draw the - box will be the Current - Colour, as indicated on the - Selected Colour Boxes. See: -C13H099 Selected Colour Boxes - - The box will be drawn using - the current brush shape, - size and strength. To change - any of these, see: -C13H098 Brush Size Selector - -C14 How to Use - Click once to set a corner - (origin) of the box, then - move the mouse to the - opposite corner. Click a - second time to draw the box - shape. - - See also: -C13H093 Filled Box -C13H094 Gradient Box -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Filled Box -C12 drawing tool - - This tool is used to draw a - solid rectangle or box shape - onto the current image. - - The colour used to draw the - actual box will be the - Current Colour, as indicated - on the Selected Colour - Boxes. See: -C13H099 Selected Colour Boxes - However, the colour used to - fill the shape depends on - how the Filled Box tool has - been set up to function. - - The actual box will be drawn - using the current brush - shape, size and strength. To - change any of these, see: -C13H098 Brush Size Selector - -C14 Set Up Options - Right-click on the Filled - Box icon button to change - the Filled Box tool set up. - - The "Set Up: FILLED BOX" - dialog box is displayed. - From here, you can specify - how you want the Filled Box - tool to function. - - Check the "Use Two Colours" - option to have the Filled - Box tool draw boxes using - two colours: the Current - Colour will be used to draw - the actual box and the - Secondary Colour will be - used to fill the shape. - - If the "Use Two Colours" - option is left unchecked - then the Current Colour will - be used to both draw the - actual box and to fill it. - - Note: Both the Filled - Circle/Ellipse and Filled - Box tools share the same - "Use Two Colours" set up - option so changing it will - affect both tools. - -C14 How to Use - Click once to set a corner - (origin) of the box, then - move the mouse to the - opposite corner. Click a - second time to draw the box - shape. - - See also: -C13H092 Box -C13H094 Gradient Box -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Gradient Box -C12 drawing tool - - Use this tool to draw a - rectangle or box shape onto - the current image, filled - with colours that gradually - blend from one colour into - another. The colours used - will be a blend between the - Current Colour and the - Secondary Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - - The current gradient fill - style will be used, as shown - on the Gradient Status Box. - To choose a new style, see: -C13H100 Gradient Status Box - -C14 How to Use - Click once to set a corner - (origin) of the box, then - move the mouse to the - opposite corner. Click a - second time to draw the box - shape. - - See also: -C13H092 Box -C13H093 Filled Box -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Line -C12 drawing tool - - The Line tool is used to - draw straight lines onto the - current image. - - The colour used to draw the - line will be the Current - Colour, as indicated on the - Selected Colour Boxes. See: -C13H099 Selected Colour Boxes - - The line will be drawn using - the current brush shape, - size and strength. To change - any of these, see: -C13H098 Brush Size Selector - -C14 How to Use - The Line tool is used by - specifying two points - between which the line will - be drawn. - - Click once to set the start - point (origin) of the line, - then move the mouse to the - end point. Click a second - time to draw the line. - - See also: -C13H096 Curve -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Curve -C12 drawing tool - - The Curve tool is used to - draw curved lines onto the - current image. - - The colour used to draw the - curve will be the Current - Colour, as indicated on the - Selected Colour Boxes. See: -C13H099 Selected Colour Boxes - - The curve will be drawn - using the current brush - shape, size and strength. To - change any of these, see: -C13H098 Brush Size Selector - -C14 How to Use - The Curve tool is used by - specifying two points - between which the curve will - be drawn. - - First, click on the start - point (the origin), then - move the mouse to the - curve's end point and click - a second time. Finally, - position the curve's apex - and click a third time to - draw the curve. - - See also: -C13H095 Line -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Colour Sampler -C12 drawing tool - - This useful tool allows you - to select colours directly - from the current image (via - the Edit Grid) instead of - having to select them from - the Palette Grid every time. - This not only saves time, it - also ensures that you select - the correct colour when the - current palette contains - several similar shades. - -C14 How to Use - The Colour Sampler is such a - useful and often-used tool - that it is always available - (regardless of the currently - selected Drawing Tool) and - can be employed by using the - right mouse button: right- - click to select the colour - at the current cursor - position, or drag the small, - cross-hair cursor to point - at the desired colour. The - sampled colour is then made - the Current Colour. See: -C13H099 Selected Colour Boxes - - Tip: You can tell at a - glance which colour the - Colour Sampler will select - as the colour being pointed - at will be highlighted on - the Palette Grid. - - See also: -C13H103 Edit Grid -C13H102 Palette Grid -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Brush Size Selector - - When appropriate, the Brush - Size Selector will be made - available - displayed on the - left of the screen, directly - below the Drawing Tool icon - buttons. - - Clicking on the up/down - arrow buttons lets you set - the current tool's brush - size (from 1 to 8). - - Next to the up/down arrow - buttons is a box that shows - the current brush and line - size, except when the - Special Effects Brush is - selected in which case the - current special effect is - displayed on it. - - Left-clicking or right- - clicking on this box allows - you to change various brush - settings, depending on what - the current tool is, as - follows: - -C14 Special Effects Brush - Left-click on the Brush Size - Selector box to choose a - different special effect or - right-click to alter the - current special effect's - "Strength" setting (if - available). For full - details, see: -C13H067 Special Effects Brush - -C14 Airbrush - Right-click on the Brush - Size Selector box to set the - spray "Strength". This - dictates how rapidly colour - is sprayed when using the - Airbrush. - - The "Spray Strength" dialog - box is displayed so that the - "Strength" can be specified - directly. Valid settings - range from 1 (slow) to 100 - (fast). - - Note: Any alteration made to - the spray "Strength" setting - will remain in effect until - explicitly changed. This is - true even when restarting - the Image Editor as the - spray "Strength" setting - (among other things) is - maintained in the file - PP256_ED.SET. - -C14 All other tools -C14 (Paintbrush, Line etc.) - Left-click on the Brush Size - Selector box when you want - to select a different brush - shape. - - The "Brush Shapes" dialog - box is displayed containing - all six available brush - shapes. Click on the - required brush shape to - highlight it, then click on - the OK button. - Alternatively, simply - double-click on the required - brush shape. - - Right-click on the Brush - Size Selector box to set the - current brush "Strength". - This dictates how strongly - the brush will be applied by - all tools that use the - brush. - - The "Brush Strength" dialog - box is displayed allowing - the "Strength" to be - specified directly. Valid - settings range from 1 (very - light) to 100 (opaque). - - Tip: Set the brush - "Strength" to a value less - than 100 (say 50) to give - the effect of drawing with - chalk or a crayon. - - Note: Any alteration made to - the brush "Strength" setting - will remain in effect until - explicitly changed. This is - true even when restarting - the Image Editor as the - brush "Strength" setting - (among other things) is - maintained in the file - PP256_ED.SET. - - See also: -C13H064 Drawing Tool Icon Buttons -@ - IMAGE EDITOR -C14 Selected Colour Boxes - - When required, a pair of - colour selection boxes are - displayed on the left of the - screen, above the Palette - Grid. They show the two - currently selected colours - along with their associated - colour number (known as the - attribute number). - - The box with the arrow - pointing to it - which can - be either box - holds the - Current Colour; the other - box holds the Secondary - Colour. The Current Colour - is used by tools and - commands that work with one - colour while the Secondary - Colour is needed for tools - that operate using two - colours (Gradient Fill, SWAP - special effect etc.). - - You can swap the priority of - the two selected colours by - left-clicking on the - Secondary Colour box: the - Secondary Colour becomes the - Current Colour and vice- - versa. - - Tip: Press TAB to swap the - priority of the two selected - colours, on-the-fly. - - Tip: Right-click on either - of the Selected Colour Boxes - to quickly change between - the Drawing Tools and the - Palette Tools. See: -C13H064 Drawing Tool Icon Buttons -C13H110 Palette Tool Buttons - - See also: -C13H102 Palette Grid -@ - IMAGE EDITOR -C14 Gradient Status Box - - Located on the left of the - screen, below the Drawing - Tool icon buttons, this - object is displayed for - tools that use a colour - gradient. It shows the - current gradient style with - colours that blend from the - Current Colour into the - Secondary Colour. - - Tip: If the colours blend in - the wrong direction (e.g. - red to black instead of - black to red), simply click - on the Secondary Colour box - (or press TAB) to swap the - priority of the two selected - colours. See: -C13H099 Selected Colour Boxes - - The value displayed to the - right indicates the number - of colours that will be used - in the gradient (maximum of - 8). Generally speaking, the - greater the number of - colours used in the - gradient, the "smoother" the - transition between the two - selected colours will be. - - Click on the Gradient Status - Box to choose a different - gradient style. - - The "Gradient Styles" dialog - box is displayed so that a - gradient style can be - selected. - - Check the "Standard" option - to select a gradient style - from the group of 32 - standard styles that - comprise 16 normal and 16 - dithered styles. - - Checking the "User-defined" - option allows a gradient - style to be selected from - any that have been created - using the Image/Add as - Gradient command. See: -C13H055 Add as Gradient - - Unwanted user-defined - gradient styles can be - removed by clicking on the - DELETE button. You will be - asked to confirm your - decision before the style is - actually deleted. - - Click on the "Select" arrow - buttons to view the - available gradient styles in - the preview box, then click - the OK button, or press - ENTER, to select the - displayed style. -@ - IMAGE EDITOR -C14 Clipboard Status Box - - The Clipboard Status Box is - made available to all tools - that use the Clipboard image - (except the TILE Special - Effects Brush). It appears - on the left of the screen, - directly below the Drawing - Tool icon buttons. - - The left side shows the - current Clipboard image - which will be a scaled down - version if it's too big to - be displayed at full size. - - Tip: Left-clicking on the - Clipboard image is a quick - way to access the "Load - Clipboard" dialog box. See: -C13H013 Load Clipboard... - - Tip: Right-clicking on the - Clipboard image is a quick - way to access the "Show - Clipboard" dialog box. See: -C13H026 Show Clipboard - - On the right are three - action buttons. Clicking on - these will perform the - indicated action on the - Clipboard image. They are: - - FLIP-H - Flips the Clipboard - image horizontally. - FLIP-V - Flips the Clipboard - image vertically. - ROTATE - Turns the Clipboard - image clockwise through 90. -@ - IMAGE EDITOR -C14 Palette Grid - - The Palette Grid is located - at the bottom, left of the - screen. This 16x16 grid - shows the complete set - (palette) of 256 available - colours. - - The Palette Grid is mainly - used for selecting colours - to use with Drawing Tools - etc: left-click or right- - click on a colour to select - it and make it the Current - Colour. This is then placed - in one of the two Selected - Colour Boxes (if visible), - depending on which mouse - button you click with - - left-click to put the colour - into the top box; right- - click to put the colour into - the bottom box. See: -C13H099 Selected Colour Boxes - - The Current Colour is - highlighted on the Palette - Grid, except when pointing - on the Edit Grid in which - case the colour of the pixel - being pointed at is - highlighted. You can also - drag the highlight to select - a colour from the Palette - Grid. - - Notice that pointing on the - Palette Grid changes the - mouse cursor to show the - colour number (attribute) - being pointed at (0 to 255). - - See also: -C13H110 Palette Tool Buttons -C13H015 Load Palette... -C13H016 Save Palette... -@ - IMAGE EDITOR -C14 Edit Grid - - The Edit Grid is the area - where all the main image - editing is done and, - consequently, is situated in - the centre of the screen. - This is where all the - various Drawing Tools are - used to directly edit the - current image. See: -C13H064 Drawing Tool Icon Buttons - - The Edit Grid can be thought - of as a window onto the - current image that can be - set to various degrees of - magnification, making the - detailed and accurate - editing of images much - easier. See: -C13H105 Zoom Buttons - - The current size of the Edit - Grid is displayed directly - above it, except when using - a Drawing Tool that involves - setting the size of an - object (Line, Scissors etc.) - in which case the size of - the object is displayed. - - Notice that by just pointing - on the Edit Grid, two things - happen: - 1) The position coordinates - of the mouse cursor are - displayed on the panel below - the Edit Grid. Two sets of - coordinates are shown: - "Grid" coordinates show the - current position of the - cursor relative to the top, - left corner of the Edit - Grid; "Image" coordinates - show the current position of - the cursor relative to the - top, left corner of the - current image. - 2) The colour of the pixel - at the current mouse cursor - position is highlighted on - the Palette Grid, allowing - you to tell at a glance - exactly what colour any - given image pixel is. The - highlighted colour can be - made the Current Colour by - clicking the right mouse - button. See: -C13H097 Colour Sampler - -C14 Using with the Palette Tools - When the Palette Tools - are selected, the function - of the Edit Grid changes to - allow colours to be selected - in the same way as using the - Palette Grid: left-click or - right-click on a pixel to - make it's colour the Current - Colour. This is then placed - in one of the two Selected - Colour Boxes, depending on - which button you click with - - left-click to put the - colour into the top box; - right-click to put the - colour into the bottom box. - See: -C13H110 Palette Tool Buttons -C13H099 Selected Colour Boxes - - Notice that pointing on the - Edit Grid changes the mouse - cursor to show the colour - number (attribute) of the - pixel being pointed at (0 to - 255). -@ - IMAGE EDITOR -C14 STORE Button - - This button is situated in - the centre section of the - screen, above the right side - of the Edit Grid. It's - specialized function is - related directly to the - Edit/Undo command. See: -C13H020 Undo - - Using Edit/Undo to remove a - mistake made while using a - Drawing Tool will remove ALL - the changes made since the - tool was selected. This - isn't always desirable. - Clicking the STORE button, - after making any changes - that you're sure you want to - keep, will effectively store - a copy of the current image - (known as the "Undo Image"). - Thus, any subsequent use of - Edit/Undo will return the - current image to the exact - state it was when the STORE - button was clicked. You can - click the STORE button at - any time to update the "Undo - Image". - - Tip: Click the STORE button - immediately before - attempting to use a Drawing - Tool to do a fiddly or - experimental alteration to - the current image. You can - then simply select Edit/ - Undo, should the alteration - be undesirable. - - See also: -C13H088 Undo Eraser -@ - IMAGE EDITOR -C14 Zoom Buttons - - This row of six buttons are - located in the centre screen - area, directly below the - Edit Grid. Comprising five - pre-set Zoom and a Maximize - button, they are used to - directly set the Edit Grid - magnification level. - - Click on one of the pre-set - Zoom buttons to change the - Edit Grid magnification to - the level shown on the - button. Using a higher zoom - level generally makes doing - detailed, accurate work much - easier. - - The Maximize (blue triangle) - button has two functions, - depending on which button - you click on it with: left- - click to view the entire - current image on the Edit - Grid, and at the highest - possible zoom level; right- - click to view the current - Edit Grid image section - only, at the highest - possible zoom level - this - will normally only be of - use after altering the Edit - Grid size, using the Arrow - buttons. See: -C13H106 Arrow Buttons - - Note: Since using the - Maximize button causes the - highest possible zoom level - to be used, this may mean a - non-standard zoom level gets - used which will be indicated - by the fact that none of the - pre-set Zoom buttons will be - set. -@ - IMAGE EDITOR -C14 Arrow Buttons - - A set of four Arrow buttons - are situated in the centre - area of the screen, below - the right side of the Edit - Grid. They have dual - functions, depending on - which mouse button you click - on them with: left-click to - move the Edit Grid image - view in the specified - direction - this allows you - to accurately position the - Edit Grid view within the - current image. Right-click - to alter the Edit Grid size - - the left and right arrows - alter the width of the Edit - Grid; up and down alters the - depth. - - Tip: You can use the Image - Display to directly set the - Edit Grid size and position - within the current image. - See: -C13H107 Image Display - - Notice that pointing on the - Arrow buttons causes the - Edit Grid image section to - be highlighted on the Image - Display. This helps clarify - the effects of using the - Arrow buttons. - - See also: -C13H065 Scissors -@ - IMAGE EDITOR -C14 Image Display - - Located at the top, right of - the main screen area, the - Image Display shows the - current image at it's true, - actual size which is also - displayed, directly above - the Image Display. - - If the View/Image as Tile - command has been checked, - the Image Display area will - be tiled with as many copies - of the current image as will - fit. See: -C13H031 Image as Tile - However, only the top, left - tile is considered the - active Display Image which - is used to point and click - on in the various ways - detailed below. - - The Edit Grid image section - will be highlighted when - pointing on the Image - Display or when the View/ - Highlight On command has - been checked. See: -C13H029 Highlight On - - The Image Display can also - be used to directly set the - Edit Grid image section: - using the right mouse - button, click or drag the - Edit Grid highlight to the - required position. - - You can specify the Edit - Grid image section exactly - by defining a rectangular - area of the Image Display: - left-click on one corner - (the origin) and then move - the mouse to the opposite - corner - note that the size - of the defined area is now - displayed above the Image - Display and that you can - press the arrow keys to move - the origin. Left-click a - second time to make the - defined area the Edit Grid - image section - displayed on - the Edit Grid at the highest - possible zoom level. This - may mean a non-standard zoom - level gets used which will - be indicated by the fact - that none of the pre-set - Zoom buttons will be set. - See: -C13H105 Zoom Buttons - - See also: -C13H106 Arrow Buttons -@ - IMAGE EDITOR -C14 Image Selector - - On the right side of the - screen, directly below the - Image Display, is the Image - Selector input box. - - The Image Selector shows the - current image number and can - be used to select an image - for editing: click on the - +/- buttons to move through - the available images - one - at a time. Alternatively, - click on the input box - (between the +/- buttons) to - make it active, then type - the required image number - and press ENTER. - - Tip: An image can also be - selected for editing by - choosing Image/Show All and - then clicking on the - required image. This can be - a quicker way of moving to - a specific image in files - that contain many. See: -C13H056 Show All - - See also: -C13H004 Keyboard Commands -@ - IMAGE EDITOR -C14 File Information - - This panel is located in the - bottom, right corner of the - screen and simply displays - useful information about the - current image file. - - The four File Information - values displayed are as - follows: - - "Total" shows the total - number of images contained - in the current image file. - - "Bytes" shows the size of - the current image in bytes. - - "File" shows the size of the - current image file in bytes. - - "Space" shows the total - number of free bytes - currently available for - images. -@ - IMAGE EDITOR -C14 Palette Tool Buttons - - By checking the View/Palette - Tools menu command, this set - of four buttons replace the - usual Drawing Tool icon - buttons at the top, left of - the screen; below this, the - RGB controls are displayed. - Together, they comprise the - Palette Tools which can be - used to perform various - operations on the 256 - available colours, providing - full control over the - current colour palette. - - Palette Tools: -C13H111 COPY -C13H112 GRAD -C13H113 RESET -C13H114 SCAN -C13H115 RGB Controls - - Note: The colour attributes - 0 to 15 - which comprise the - top row of the Palette Grid - - are used extensively by - PIXELplus 256 itself and so - cannot be altered (i.e. have - their RGB values changed), - as this could cause the - display to become - unreadable. However, they - can be freely used in images - in the same way any of the - other 240 colours can, and - as they represent a good - range of colours anyway, - this shouldn't become too - much of a restriction. See: -C13H102 Palette Grid - - When the Palette Tools are - being used, the function of - the Edit Grid changes to - allow colours to be selected - in the same way as using the - Palette Grid. See: -C13H103 Edit Grid - - See also: -C13H099 Selected Colour Boxes -@ - IMAGE EDITOR -C14 COPY -C12 palette tool - - The COPY tool can be used to - quickly duplicate an - existing colour by copying - it's RGB values to another - colour attribute. - - While there's not usually - any point in having two - identical colours in the - same palette, COPY can be - useful when you want to - create a colour that's a - shade brighter or darker - than an existing colour: - after copying the colour, - you can then make the - required alterations to it - by using the RGB Controls. - See: -C13H115 RGB Controls - - COPY operates on the two - selected colours by copying - the Current Colour to the - Secondary Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - So, to select the two - colours involved correctly, - first select the attribute - you want to copy to by - clicking on it with either - mouse button, then select - the actual colour you want - to copy by clicking on it - with the other mouse button. - - Note: While colour numbers - 0 to 15 can be copied, they - cannot be copied to as they - are used extensively by - PIXELplus 256 itself. - - See also: -C13H110 Palette Tool Buttons -@ - IMAGE EDITOR -C14 GRAD -C12 palette tool - - Use this powerful tool to - automatically create a - colour gradient - a - contiguous set of attributes - whose colours gradually - blend from one colour into - another. - - Tip: Creating a good - selection of colour - gradients can vastly improve - the output produced by the - various gradient Drawing - Tools. See: -C13H084 Gradient Fill -C13H091 Gradient Circle/Ellipse -C13H094 Gradient Box - This is also true of the - palette-dependent special - effects which rely heavily - on the colours available in - the current palette. See: -C13H068 BRIGHT -C13H069 DARK -C13H070 TINT -C13H073 SOFT -C13H074 UNZAG -C13H078 GREY - - GRAD works by creating a - colour gradient that blends - from the Current Colour to - the Secondary Colour, as - indicated on the Selected - Colour Boxes. See: -C13H099 Selected Colour Boxes - All attributes that come - between the two selected - colours will be used as part - of the gradient. For - example, if you have - attributes 20 and 25 - selected, the resulting - colour gradient will - comprise attributes 20, 21, - 22, 23, 24, and 25. As such, - the more attributes that - come between the two - selected colours, the - smoother the transition from - the first colour to the last - colour will be. - - Tip: Before using the GRAD - tool, it's a good idea to - make sure that it won't - affect any attributes that - are already used in existing - images (unless you - specifically want it to). - This can be achieved by - using the SCAN tool. See: -C13H114 SCAN - - See also: -C13H110 Palette Tool Buttons -@ - IMAGE EDITOR -C14 RESET -C12 palette tool - - Use the RESET tool to undo - any unwanted changes you - make to the current colour - palette. If, for example, - you use the GRAD tool to - create a colour gradient - that you then decide is - wrong or that you don't - need, using the RESET tool - will return all the affected - attributes to the colour - they were before the GRAD - tool was used. - - Note: The RESET tool must be - used immediately after - making any unwanted - alterations to the current - colour palette. - - See also: -C13H110 Palette Tool Buttons -@ - IMAGE EDITOR -C14 SCAN -C12 palette tool - - Before making any changes to - the current palette, it's - often useful to know which - of the 256 available colours - (attributes) have not yet - been used in images in the - current image file. Directly - or indirectly changing the - RGB values of a colour - attribute which has already - been used will affect any - images in which that colour - attribute has been used. - - The SCAN tool searches - through all the images in - the current image file and - marks the Palette Grid with - a black and white dot, any - colour attributes which have - not yet been used. See: -C13H102 Palette Grid - These colours are then free - to alter without fear of - affecting existing images. - - See also: -C13H110 Palette Tool Buttons -@ - IMAGE EDITOR -C14 RGB Controls -C12 palette tool - - Each colour in the palette - is made up from a mix of the - three primary colours - red, - green and blue (RGB). The - RGB Controls show the - individual red, green and - blue values that make up the - Current Colour, as indicated - on the Selected Colour - Boxes. See: -C13H099 Selected Colour Boxes - These values can be altered - by clicking on the - appropriate +/- button. - Valid settings range from 0 - to 63. - - A brightness control - (represented by a small sun - symbol) is also provided - which can be used to simply - increase or decrease all - three RGB values together, - which gives the appearance - of altering the brightness - of the affected colour. - - Note: Trying to increase the - brightness of a colour when - any of the RGB values are at - their maximum (63), or - trying to decrease the - brightness when any of the - RGB values are at their - minimum (0), will have no - effect. This is because all - three RGB values must be - able to change by the same - amount in order to maintain - the integrity of the actual - colour. - - Tip: Before using the RGB - Controls, it's a good idea - to make sure that it won't - affect an attribute that's - already used in existing - images (unless you - specifically want it to). - This can be achieved by - using the SCAN tool. See: -C13H114 SCAN - - See also: -C13H110 Palette Tool Buttons -@ - IMAGE EDITOR -C14 Animation Tester - - The Animation Tester is a - simple utility that's - integrated into the Image - Editor so that, when - creating images to be used - as frames of animation, they - can be viewed in sequence to - test that the desired effect - of animation is being - achieved. - -C14 Using the Animation Tester - When using the Image Editor, - you can enter the integrated - Animation Tester by choosing - View/Test Animation..., or - by pressing F7. - - The screen is cleared and - the "Test Animation" dialog - box is displayed. From here, - you can detail the animation - sequence that you want to - view. - - Specify the frames (images) - to be used in the animation - sequence by setting "First" - to the initial image of the - animation sequence, and - "Last" to the final image of - the animation sequence. Note - that this defines a - contiguous range of images - so, for example, setting - "First" to 1 and "Last" to 4 - will mean the animation will - display images in the order - 1, 2, 3, 4. The specified - sequence will then be - repeated continuously when - the animation is played. - - When using the +/- buttons - to set the "First" or "Last" - values (or when either input - box is active), the denoted - image is displayed in the - preview box, on the right - side of the dialog box, - giving visual confirmation - that the correct image has - been selected. The size of - the displayed image is also - shown and can be used to - check the size of images - - normally, every image in the - animation should be the same - size to ensure the animation - will run properly. - - Set "Repeat" to the number - of times you want each image - to be displayed before - moving on to the next in the - sequence. - - The speed of the animation - can be controlled by setting - "Delay" to the number of - "delay periods" to wait - between each frame update. - - Note: This "delay period" - involves synchronizing the - frame update with the - monitor in order to achieve - smooth, flicker-free - animation. However, in - certain situations, flicker - may still occur or the - animation may only be - partially displayed or even - not visible at all. This is - because your computer can't - update each frame of the - animation quickly enough to - keep up with the monitor - synchronization. Problems - will only usually occur if - you have a slow computer - system and are trying to - animate large images at - high speed. Increasing the - "Delay" or reducing the size - of images will usually help - alleviate any problems. For - further details, consult the - PIXELplus 256 User's Manual - where the topic of animation - is covered extensively. - - Set "Advance" to the number - of pixels you want the - animation to move around the - screen by, in the specified - direction (see below). Set - this to 0 to show a static - animation (one that stays - still and doesn't move - around) in the centre of the - screen. - - At the bottom of the dialog - box is a set of four check - boxes under the heading - "Direction:". Simply check - one of these to have the - animation move in the - indicated manner. They are: - - "Left to Right" moves the - animation across the screen, - from left to right. - - "Right to Left" moves the - animation across the screen, - from right to left. - - "Top to Bottom" moves the - animation down the screen. - - "Bottom to Top" moves the - animation up the screen. - - Click on the PLAY button to - clear the screen and play - the animation as currently - set up. When you have - finished viewing the - animation, click a mouse - button or press any key to - stop the animation and - return to the "Test - Animation" dialog box. - - Clicking on the HELP button - is simply a quick way to - view this Help information - again. - - Click on the EXIT button to - return to the Image Editor. -@ - SCREEN DESIGNER -C14 Keyboard Commands - - The following keyboard - commands are available while - using the Screen Designer: - - Press: To: -C15 F1 View online Help -C15 Table of Contents. -C15 F2 Turn the mouse -C15 arrow cursor -C15 on/off. -C15 F3 Turn alignment -C15 grid snapping -C15 on/off. -C15 F4 Turn the alignment -C15 grid on/off. -C15 F5 Turn selected item -C15 highlights on/off. -C15 F6 Make new alignment -C15 grid. -C15 SHIFT+F6 Set alignment grid -C15 to the current -C15 Mouse Image -C15 position & size. -C15 F7 Set the step rate -C15 used by PAGE UP -C15 and PAGE DOWN. -C15 F8 Invoke the Image -C15 Editor to edit the -C15 currently loaded -C15 image file. -C15 F9 Show current -C15 screen design. -C15 F10 Show all images. -C15 ALT+Q Cut selected items -C15 to the Clipboard. -C15 ALT+A Copy selected -C15 items to the -C15 Clipboard. -C15 ALT+Z Paste Clipboard -C15 items into the -C15 current screen -C15 design. -C15 ALT+U Shift selected -C15 items up. -C15 ALT+D Shift selected -C15 items down. -C15 ALT+L Shift selected -C15 items left. -C15 ALT+R Shift selected -C15 items right. -C15 ALT+C Delete (clear) all -C15 selected items. -C15 ALT+S Select all design -C15 items. -C15 ALT+W Deselect all -C15 design items. -C15 ALT+"-" Delete all design -C15 items that precede -C15 the current design -C15 item. -C15 ALT+"+" Delete all design -C15 items that succeed -C15 the current design -C15 item. -C15 < Select preceding -C15 image as Mouse -C15 Image. -C15 > Select next image -C15 as Mouse Image. -C15 1 Select PSET -C15 display action. -C15 2 Select PRESET -C15 display action. -C15 3 Select OR display -C15 action. -C15 4 Select XOR display -C15 action. -C15 5 Select AND display -C15 action. -C15 6 Select MASK -C15 display action. -C15 Up Select/Deselect -C15 current item then -C15 move to next -C15 design item. -C15 Down Select/Deselect -C15 current item then -C15 move to preceding -C15 design item. -C15 Left Move to preceding -C15 design item. -C15 Right Move to next -C15 design item. -C15 PAGE UP Step forwards -C15 through design -C15 items. -C15 PAGE DOWN Step backwards -C15 through design -C15 items. -C15 HOME Move to beginning -C15 of design. -C15 END Move to end of -C15 design. -C15 INSERT Select/Deselect -C15 current design -C15 item. -C15 BACKSPACE Delete current -C15 design item. -C15 SPACE Show (flash) -C15 current design -C15 item. -C15 ENTER/ Turn the Menu Bar -C15 ESCAPE on/off. -@ - SCREEN DESIGNER -C14 Menu Bar - - This is a row of menu names - running along the top of the - screen. - - Note: Due to the nature of - the Screen Designer (i.e. - the entire screen area must - be available to place design - items on), the Menu Bar and - Status Bar are not - permanently displayed and - can be turned on and off by - clicking the right mouse - button, or by pressing ENTER - or ESCAPE. - - When the Menu Bar is - showing, notice that the - current screen design file - name is displayed directly - below it which will be shown - as "Untitled" if it hasn't - yet been saved to disk. The - total number of design items - contained in the current - screen design is also - displayed here. - - Menu names: -C13H119 File -C13H128 Edit -C13H136 View -C13H145 Action -C13H152 Image -C13H160 Help - -C14 Selecting a Menu Command - Using the mouse, there are - two ways to open a menu and - select a command from it: - - 1) Click on a menu name to - open the menu, then click on - the required menu command. - To close the menu without - choosing a command, click on - the menu name a second time - or click anywhere outside - the menu. - - 2) Drag down from the menu - name to highlight the - required command, then - release the mouse button. To - close the menu without - choosing a command, simply - drag off the menu (so that - no command is highlighted) - then release the mouse - button. - - Note: While a menu command - is highlighted, a brief - description of that command - is given on the Status Bar. - See: -C13H166 Status Bar - -C14 Command Notes: - 1) Commands that have an - ellipsis (...) after them - signify that further - information must be supplied - in order for the command to - be carried out. - 2) Dimmed commands are - unavailable at that time. - 3) Commands that have a - check mark (€) to the left - of them signify that the - command is in effect. - Selecting the command again - removes the check mark and - turns the command off. - 4) Some commands have key - combinations to the right of - them. At any time, pressing - the listed keys selects the - command without having to - open the menu. See: -C13H117 Keyboard Commands -@ - SCREEN DESIGNER -C14 The File Menu - - Mainly contains commands to - manage the input (loading) - and output (saving) of files - between the Screen Designer - and the hard disk. - - File menu commands: -C13H120 New -C13H121 Open... -C13H122 Save -C13H123 Save As... -C13H124 Save as DATA... -C13H125 Save as Screen... -C13H126 Load Images... -C13H127 Exit -@ - SCREEN DESIGNER -C14 New -C12 menu command - - Allows a new screen design - to be created from scratch: - the current screen design - file is removed from memory - and an "untitled" one is - created containing no items. - - You will be prompted to save - the current screen design - file if it has been altered - since it was last saved. - - If you want to create your - new screen design using a - different set of images to - those currently loaded, you - can do so by choosing the - Load Images... command. See: -C13H126 Load Images... - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Open... -C12 menu command - - Selecting this command - allows an existing screen - design file to be loaded - into the Screen Designer, - from disk. - - Note: The screen design file - to be opened must be - compatible with the - currently loaded image file. - For details, see: -C13H168 Introduction - To open a screen design file - that uses a different image - file, select New and then - the Load Images... command - beforehand. See: -C13H120 New -C13H126 Load Images... - - The "Open Screen Design" - dialog box is displayed - containing a "File" input - box, at the top, and a file - list box below it. Use these - to specify a file to open, - as described below. - - Type a file name into the - "File" input box and then - press ENTER. If no file name - extension is specified, the - default for screen design - files (.DES) is assumed. - Alternatively, a file mask - can be entered in order to - list a specific group of - files in the file list box. - The default mask (*.DES) is - used initially to list all - files with a .DES extension. - - Simply double-clicking on a - file name listed in the file - list box is usually the - easiest way to specify a - file to open. Alternatively, - highlight a listed file name - by clicking on it, then - click on the OK button. - - You can use the scroll bar - provided to look through a - list of files that's too - long to display on a single - "page". - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Save -C12 menu command - - Use this command to write - the current screen design - file to disk, effectively - updating it with any changes - made since it was last - saved. - - If the current file has not - been saved before, and so is - "untitled", you will be - asked to specify a name to - save the file under, just as - if you had selected the Save - As... command. - - Tip: If you want to write a - file to disk without - overwriting the original - version, you should save it - under a different name by - using the Save As... - command. See: -C13H123 Save As... - - See also: -C13H124 Save as DATA... -C13H125 Save as Screen... -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Save As... -C12 menu command - - Allows the current screen - design file to be written to - disk under a new name, thus - keeping the original file - unaltered. - - The "Save Design As" dialog - box is displayed containing - a single "File Name" input - box; simply type the new - file name here, then press - ENTER. If no file name - extension is specified, the - default for screen design - files (.DES) is assumed. - - See also: -C13H124 Save as DATA... -C13H125 Save as Screen... -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Save as DATA... -C12 menu command - - This command creates an - ASCII text file containing a - set of BASIC DATA statements - that describe the current - screen design. - - This type of DATA file can - then be used to incorporate - the screen design directly - into your own BASIC - programs. See the PIXELplus - 256 User's Manual for full - details. - - The "Save Design As DATA" - dialog box is displayed - containing a single "File - Name" input box; simply type - the file name here, then - press ENTER. If no file name - extension is specified, the - default for BASIC DATA files - (.BAS) is assumed. - - Note: DATA files cannot be - loaded into the Screen - Designer for further - editing. To save the current - screen design in a format - that can be opened by the - Screen Designer, use the - Save command. See: -C13H122 Save - - See also: -C13H125 Save as Screen... -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Save as Screen... -C12 menu command - - Use this command to take a - snapshot of the current - screen design - a memory - image file (BLOAD format) - that contains a pixel-for- - pixel copy of the current - screen design image. - - This type of screen design - file can then be loaded - directly back to the screen - from within your own BASIC - programs. See the PIXELplus - 256 User's Manual for full - details. - - The "Save Design As Screen" - dialog box is displayed - containing a single "File - Name" input box; simply type - the file name here, then - press ENTER. If no file name - extension is specified, the - default for screen image - files (.IMG) is assumed. - - Note: Screen image files - cannot be loaded into the - Screen Designer for further - editing. To save the current - screen design in a format - that can be opened by the - Screen Designer, use the - Save command. See: -C13H122 Save - - See also: -C13H124 Save as DATA... -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Load Images... -C12 menu command - - This command allows you to - load a different image file - (created with the Image - Editor) to use with the - current screen design. - - Note: The image file to be - loaded must be compatible - with the current screen - design. For details, see: -C13H168 Introduction - If you want to use a - different image file to - create a new screen design - from scratch, select the New - command beforehand. See: -C13H120 New - - The "Load Images" dialog box - is displayed so that a file - can be specified. The usual - "File" input box and file - list box are shown and are - functionally identical to - those used by the Open... - command. For full details on - how to use them, see: -C13H121 Open... - - Tip: You can find out the - name of the currently loaded - image file and view all the - images it contains by - choosing the Image/Show All - command. See: -C13H159 Show All - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Exit -C12 menu command - - Choose this command to leave - the PIXELplus 256 Screen - Designer, and return to DOS. - - You will be prompted to save - the current screen design if - it has been altered since it - was last saved. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 The Edit Menu - - Contains general editing - commands, mainly concerned - with use of the Clipboard - and selected design items. - - Edit menu commands: -C13H129 Select All -C13H130 Deselect All -C13H131 Cut -C13H132 Copy -C13H133 Paste -C13H134 Delete -C13H135 Show Clipboard -@ - SCREEN DESIGNER -C14 Select All -C12 menu command - - Choose this command to - simply select every item in - the current screen design. - This ensures every item will - be affected by any - subsequent commands that - operate on selected items, - such as those in the Edit - and Action menus. See: -C13H128 Edit Menu -C13H145 Action Menu - - See also: -C13H130 Deselect All -C13H140 Highlight Selected -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Deselect All -C12 menu command - - Use this command to ensure - no items in the current - screen design are selected. - You can then be sure that - any subsequently selected - items will be the only ones - that will be affected by - commands that operate on - selected items, such as - those in the Edit and Action - menus. See: -C13H128 Edit Menu -C13H145 Action Menu - - See also: -C13H129 Select All -C13H140 Highlight Selected -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Cut -C12 menu command - - This command simply removes - all selected items in the - current screen design and - places them onto the - Clipboard. - - Tip: Any design items you - cut from the current screen - design will be preserved on - the Clipboard, even if you - then open a different screen - design file. See: -C13H121 Open... - This means you can cut - design items from one screen - design and then paste them - into another. See: -C13H133 Paste - However, if you use File/ - Load Images... to load a - different image file, the - Clipboard will be cleared if - it is not compatible with - the new images. See: -C13H126 Load Images... -C13H168 Introduction - - See also: -C13H132 Copy -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Copy -C12 menu command - - Simply places a copy of all - selected items onto the - Clipboard. This Clipboard - design can then be pasted - to one or more new positions - in the current screen - design. - - Tip: Any design items you - copy from the current screen - design will be preserved on - the Clipboard, even if you - then open a different screen - design file. See: -C13H121 Open... - This means you can copy - design items from one screen - design and then paste them - into another. See: -C13H133 Paste - However, if you use File/ - Load Images... to load a - different image file, the - Clipboard will be cleared if - it is not compatible with - the new images. See: -C13H126 Load Images... -C13H168 Introduction - - See also: -C13H131 Cut -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Paste -C12 menu command - - This command inserts the - Clipboard design into the - current screen design. The - pasted Clipboard items are - inserted at the current - position in the screen - design, directly after the - current item. Also, the - newly pasted items are - automatically made the only - selected items in the - current screen design; this - makes them instantly - available for manipulation - using the Action menu - commands etc. See: -C13H145 Action Menu - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Delete -C12 menu command - - This command simply removes - (clears) every selected item - from the current screen - design. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Show Clipboard -C12 menu command - - Use this command when you - want to see exactly what's - currently held on the - Clipboard. - - The screen is cleared and - the current Clipboard screen - design is displayed. Click a - mouse button or press a key - when you have finished - viewing the Clipboard - design. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 The View Menu - - Mainly contains commands to - specify which features of - the Screen Designer you want - displayed or made active. - - View menu commands: -C13H137 Pointer On -C13H138 Snap to Grid -C13H139 Grid On -C13H140 Highlight Selected -C13H141 Make Grid -C13H142 Set Step... -C13H143 Edit Images... -C13H144 Show Design -@ - SCREEN DESIGNER -C14 Pointer On -C12 menu command - - Enable this command to make - the arrow mouse pointer - visible while editing a - screen design. This will be - displayed in addition to the - Mouse Image. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Snap to Grid -C12 menu command - - Enabling this command forces - the Mouse Image to use the - alignment grid: the top, - left corner of the Mouse - Image is automatically - located (snapped) to the - top, left corner of the - nearest grid square. This - makes it much easier to - place design items in - alignment. - - Note: The status of the - Snap to Grid command also - dictates the degree at which - the Action/Shift commands - operate. For details, see: -C13H146 Shift Up -C13H147 Shift Down -C13H148 Shift Left -C13H149 Shift Right - - See also: -C13H141 Make Grid -C13H139 Grid On -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Grid On -C12 menu command - - When this command is in - effect, the alignment grid - is made visible. Note that - the Mouse Image will only - snap to the grid when the - Snap to Grid command has - been checked. See: -C13H138 Snap to Grid - - Note: When visible, the - alignment grid may affect - the appearance of some items - in the current design. Use - the Show Design command or - turn the alignment grid off - to view the true design. - See: -C13H144 Show Design - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Highlight Selected -C12 menu command - - This command should normally - remain turned on (checked) - as it causes selected items - to be highlighted with a - dotted, black and white - outline. This is needed to - distinguish any selected - items from non-selected - items. However, the - highlights can be turned off - if they get in the way of - any operation you are trying - to perform. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Make Grid -C12 menu command - - Select this command to - define a new alignment grid - by specifying a rectangular - area of screen to use as a - single grid cell. Click on - one corner (the origin) of - the cell, then move the - mouse to the opposite - corner - note that the size - of the defined area is now - displayed at the top of the - screen and that you can - press the arrow keys to move - the origin. Click a second - time to set the grid cell; - all other grid cells are - then oriented around this. - - The Snap to Grid command is - automatically enabled after - successfully defining a new - alignment grid. See: -C13H138 Snap to Grid - - Tip: Alternatively, you can - directly set the alignment - grid to the current Mouse - Image position and size by - pressing SHIFT+F6. - - See also: -C13H139 Grid On -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Set Step... -C12 menu command - - Choose this command when you - want to alter the number of - design items to step through - when pressing the PAGE UP - and PAGE DOWN keys. See: -C13H117 Keyboard Commands - - The "Set Step" dialog box is - displayed so that a new - "Step Rate" value can be - specified directly. It is - sometimes desirable to - increase the "Step Rate" - when working with a screen - design that contains a great - many items. - - Note: Any alteration made to - the "Step Rate" setting will - remain in effect until - explicitly changed. This is - true even when restarting - the Screen Designer as the - "Step Rate" setting (among - other things) is maintained - in the file PP256_SD.SET. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Edit Images... -C12 menu command - - Select this command to exit - the Screen Designer and - invoke the PIXELplus 256 - Image Editor. - - You will be prompted to save - the current screen design if - it has been altered since it - was last saved. The - currently loaded image file - is automatically opened - within the image Editor, - ready for editing. For full - details, see: -C13H167 The Image Editor - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Show Design -C12 menu command - - Choose this command when you - want to view the current - screen design without the - hindrance of selected item - highlights, the alignment - grid, the Mouse Image etc. - The screen is cleared and - the current screen design is - displayed. Click a mouse - button or press a key when - you have finished viewing - the current screen design. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 The Action Menu - - Contains commands that - manipulate selected screen - design items only. - - Tip: You can make Action - menu commands affect the - entire current screen design - by selecting Edit/Select All - beforehand. See: -C13H129 Select All - - Action menu commands: -C13H146 Shift Up -C13H147 Shift Down -C13H148 Shift Left -C13H149 Shift Right -C13H150 Centre Horizontal -C13H151 Centre Vertical -@ - SCREEN DESIGNER -C14 Shift Up -C12 menu command - - Moves all selected design - items up by one pixel, - unless the View/Snap to Grid - command is enabled in which - case the items are shifted - up by the depth of one - alignment grid cell. See: -C13H138 Snap to Grid - - See also: -C13H147 Shift Down -C13H148 Shift Left -C13H149 Shift Right -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Shift Down -C12 menu command - - Moves all selected design - items down by one pixel, - unless the View/Snap to Grid - command is enabled in which - case the items are shifted - down by the depth of one - alignment grid cell. See: -C13H138 Snap to Grid - - See also: -C13H146 Shift Up -C13H148 Shift Left -C13H149 Shift Right -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Shift Left -C12 menu command - - Moves all selected design - items left by one pixel, - unless the View/Snap to Grid - command is enabled in which - case the items are shifted - left by the width of one - alignment grid cell. See: -C13H138 Snap to Grid - - See also: -C13H146 Shift Up -C13H147 Shift Down -C13H149 Shift Right -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Shift Right -C12 menu command - - Moves all selected design - items right by one pixel, - unless the View/Snap to Grid - command is enabled in which - case the items are shifted - right by the width of one - alignment grid cell. See: -C13H138 Snap to Grid - - See also: -C13H146 Shift Up -C13H147 Shift Down -C13H148 Shift Left -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Centre Horizontal -C12 menu command - - Using this command treats - all selected design items as - a single unit which is then - centred horizontally on the - screen. - - See also: -C13H151 Centre Vertical -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Centre Vertical -C12 menu command - - Using this command treats - all selected design items as - a single unit which is then - centred vertically on the - screen. - - See also: -C13H150 Centre Horizontal -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 The Image Menu - - Contains commands to set the - current display action and - view the images in the - currently loaded image file. - - Image menu commands: -C13H153 PSET -C13H154 PRESET -C13H155 OR -C13H156 XOR -C13H157 AND -C13H158 MASK -C13H159 Show All -@ - SCREEN DESIGNER -C14 PSET -C12 menu command - - Sets PSET as the current - display action which is used - when placing new design - items onto the screen. See -C13H170 Display Actions - - See also: -C13H117 Keyboard Commands -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 PRESET -C12 menu command - - Sets PRESET as the current - display action which is used - when placing new design - items onto the screen. See: -C13H170 Display Actions - - See also: -C13H117 Keyboard Commands -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 OR -C12 menu command - - Sets OR as the current - display action which is used - when placing new design - items onto the screen. See: -C13H170 Display Actions - - See also: -C13H117 Keyboard Commands -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 XOR -C12 menu command - - Sets XOR as the current - display action which is used - when placing new design - items onto the screen. See: -C13H170 Display Actions - - See also: -C13H117 Keyboard Commands -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 AND -C12 menu command - - Sets AND as the current - display action which is used - when placing new design - items onto the screen. See: -C13H170 Display Actions - - See also: -C13H117 Keyboard Commands -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 MASK -C12 menu command - - Sets MASK as the current - display action which is used - when placing new design - items onto the screen. See: -C13H170 Display Actions - - See also: -C13H117 Keyboard Commands -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Show All -C12 menu command - - Choose this command when you - want to view all the images - in the currently loaded - image file together. - - The "Show All" dialog box is - displayed with the name of - the currently loaded image - file shown at the top. All - the images contained in the - file (or as many as will - fit) are displayed along - with their assigned number. - - Use the scroll bar provided - to view any images not able - to fit in the supplied - viewing area. - - Tip: You can point and click - on an image to make it the - current Mouse Image. This is - sometimes a quicker way of - selecting a specific image - when the currently loaded - file contains many. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 The Help Menu - - Contains commands to view - PIXELplus 256 online Help - and program information. - - Help menu commands: -C13H161 Contents -C13H162 Index -C13H163 Keyboard -C13H164 Using Help -C13H165 About... -@ - SCREEN DESIGNER -C14 Contents -C12 menu command - - Invokes online Help and - displays the Table of - Contents - a categorized - list of Help subjects - available. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Index -C12 menu command - - Invokes online Help and - displays the Index - an - alphabetical list of all - Help topics available. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Keyboard -C12 menu command - - Invokes online Help and - displays a summary of - keyboard commands available - in the Screen Designer. See: -C13H117 Keyboard Commands - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Using Help -C12 menu command - - Invokes online Help and - displays information about - how to use the online Help - system itself. See: -C13H003 Using Online Help - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 About... -C12 menu command - - Displays a dialog box - containing copyright and - version information specific - to the PIXELplus 256 Screen - Designer. - - See also: -C13H118 Menu Bar -@ - SCREEN DESIGNER -C14 Status Bar - - This is a single line of - text (running along the - bottom of the screen) used - to show relevant information - such as available keyboard - commands, mouse button - functions, menu command - descriptions etc. - - Note: The Status Bar is only - visible when the Menu Bar or - a dialog box is displayed. - For details, see: -C13H118 Menu Bar - - Due to the limited space for - displaying information on - the Status Bar, two special - symbols are used to denote - the function of the mouse - buttons: - - „ means click the LEFT mouse - button. - - … means click the RIGHT - mouse button. - - For example, "„Select image" - on the Status Bar informs - you that you can click the - left mouse button to select - an image, when using the - Image/Show All command. -@ - IMAGE EDITOR -C14 Introduction - - The PIXELplus 256 Image - Editor makes it easy to - create professional quality - bitmapped graphics in 256 - colours, such as sprites, - icons, character sets, - animations etc. These can - then be used in your own - BASIC programs that use the - popular 320x200 VGA screen - mode (SCREEN 13). - - Using the Image Editor is - made simple due to it's - friendly user interface: -C13H171 Full Mouse Control -C13H005 Graphical User Interface -C13H006 Pull-down Menus -C13H004 Simple Keyboard Commands - - The many powerful tools and - features available make - creating quality graphics - easy: -C13H064 18 Flexible Drawing Tools -C13H067 14 Special Effects -C13H110 Colour Palette Tools -C13H116 Animation Tester - -C14 Getting Started - When you first use the - Image Editor, you are - automatically supplied with - an untitled image file - containing a single, blank - image. If necessary, this - 100x100 image can then be - resized by selecting the - Image/Resize... command. - See: -C13H051 Resize... - - You can now start designing - your first image by clicking - on a Drawing Tool icon - button - located at the top, - left corner of the screen - - and then use the selected - tool on the Edit Grid, in - the centre of the screen. If - necessary, the magnification - of the Edit Grid can be - changed to a more manageable - level by clicking on the - Zoom buttons, situated - directly below the Edit - Grid. For details, See: -C13H064 Drawing Tool Icon Buttons -C13H103 Edit Grid -C13H105 Zoom Buttons - - Tip: Clicking repeatedly on - some Drawing Tool icon - buttons will cause other - related tools to become - available. - - You can choose the colours - you want to use by selecting - them from the Palette Grid, - located at the bottom, left - corner of the screen. See: -C13H102 Palette Grid - Colours can also be altered - by using the Palette Tools: - simply select View/Palette - Tools to have the Drawing - Tools replaced with the - Palette Tools. See: -C13H110 Palette Tool Buttons - - Continue designing your - image in this way, as well - as utilizing the various - menu and keyboard commands - available. See: -C13H006 Menu Commands -C13H004 Keyboard Commands - To create additional images, - choose Image/Add... to - create one or more new, - blank images, or choose - Image/Duplicate... to make a - copy of one or more existing - images. See: -C13H049 Add... -C13H052 Duplicate... - - When ready, your file of - images can be saved to disk - and incorporated into your - own BASIC programs, in a - number of different ways. - - Consult the PIXELplus 256 - User's Manual for full Image - Editor details. -@ - SCREEN DESIGNER -C14 Introduction - - The PIXELplus 256 Screen - Designer makes it easy to - compose screen layouts - - game levels, title screens - etc. - using images created - with the Image Editor. This - saves you having to work out - the actual screen - coordinates of where you - want each and every design - item (image) displayed. - - Using the Screen Designer is - made simple due to it's - friendly user interface: -C13H171 Full Mouse Control -C13H118 Pull-down Menus -C13H117 Simple Keyboard Commands - -C14 Getting Started - Before you can start - designing a screen layout, - you must first load the - images you want to use. If - you invoked the Screen - Designer from within the - Image Editor (by selecting - View/Screen Designer...), - then the image file you had - open in the Image Editor is - automatically loaded, - otherwise you will be - presented with the "Load - Images" dialog box, where - you can specify the image - file that you want to use. - For details, see: -C13H126 Load Images... - - Next, choose Image/Show All - to view all the available - images, then point and click - on the image you want to - start designing with. See: -C13H159 Show All - The selected image (known as - the Mouse Image) can then be - positioned anywhere on the - screen by moving the mouse - and clicking it in place - - images you add to your - design are referred to as - design items. You can also - choose a display action to - use when adding items to - your design by selecting one - from the Image menu. See: -C13H152 Image Menu -C13H170 Display Actions - - Tip: You can press the < and - > keys to select a different - Mouse Image, on-the-fly. - Keys 1 through 6 can be used - to select a different - display action. - - Notice that the Menu Bar - (and Status Bar) is removed - to give access to the entire - screen. Items can only be - added to your design when - the Menu Bar is not showing. - Simply, click the right - mouse button to show/hide - the Menu Bar. - - Continue to build-up your - screen design in this way - as well as utilizing the - various menu and keyboard - commands available. See: -C13H118 Menu Commands -C13H117 Keyboard Commands - You can move backwards and - forwards through the - "string" of screen design - items by pressing the left - and right arrow keys, or by - pressing PAGE UP and PAGE - DOWN to step quickly through - the design items. This - allows you to insert new - items or access existing - items that you want to - affect in some way - delete, - shift etc. - - When ready, your screen - design can be saved to disk - and incorporated into your - own BASIC programs, in a - number of different ways. - - Consult the PIXELplus 256 - User's Manual for full - Screen Designer details. - -C14 File Association and -C14 Compatibility - When saving a screen design - to disk, it's important to - realize that no link or - association is maintained - between the screen design - file and the image file that - was used to design it. This - gives you the freedom to - load and use any image file - with any compatible screen - design file. For an image - file and screen design file - to be compatible, they must - comply to the two following - criteria: - - 1) The image file must at - least contain the same - number of images as used in - the screen design, e.g. if - the highest image number - used in the screen design is - 10 then the image file used - must contain at least 10 - images - a screen design - can't display an image that - doesn't exist. - - 2) Each and every design - item (image) in the screen - design must be fully - displayable without going - off the edge of the screen. - - Note: Given the above points - on compatibility, it's - advised that you do not make - any significant alterations - to any image file that you - have used to create a screen - design with, as this could - cause the image file to - become incompatible. In - particular, deleting or - resizing one or more images - in such a file could cause - problems. - - Tip: A simple way to - remember which image file - was used to create a screen - design is to give the screen - design file the same base - name as the image file, when - you save it to disk. For - example, if you create a - design using the - GAMEOVER.PUT image file, - save the screen design file - as GAMEOVER.DES. -@ - IMAGE EDITOR -C14 Save as DATA... -C12 menu command - - This command creates an - ASCII text file containing a - set of BASIC DATA statements - that describe the images in - the current file. A further - set of palette DATA - statements are also included - if the current image file - uses a non-standard colour - palette. - - This type of DATA file can - then be used to incorporate - the images directly into - your own BASIC programs. See - the PIXELplus 256 User's - Manual for full details. - - The "Save Image File As - DATA" dialog box is - displayed containing a - single "File Name" input - box; simply type the file - name here, then press ENTER. - If no file name extension is - specified, the default for - BASIC DATA files (.BAS) is - assumed. - - Note: DATA files cannot be - loaded into the Image Editor - for further editing. To save - the current image file in a - format that can be opened by - the Image Editor, see: -C13H011 Save - - See also: -C13H006 Menu Bar -@ - SCREEN DESIGNER -C14 Display Actions - - In your own BASIC programs, - each design item (image) - will be displayed on the - screen using the - PUT(graphics) statement - which displays an image - using one of five display - actions - PSET, PRESET, OR, - XOR, AND. Consequently, the - Screen Designer itself - allows you to select a - display action to use when - placing design items on the - screen. See: -C13H152 Image Menu - - A sixth option (MASK) is - also provided which isn't a - true display action but can - be used in the Screen - Designer to cause design - items to be placed on-screen - using an additional mask - image. - - There now follows a complete - description of the six - display actions that can be - used when placing design - items on the screen in the - Screen Designer. - -C14 PSET - Causes a design item to be - placed on the screen so that - it completely overwrites any - existing image. - -C14 PRESET - Causes a design item to be - logically inverted before - being placed on the screen, - overwriting any existing - image. - - The colour number - (attribute) of each pixel in - the image is logically - inverted which results in a - different colour number - being used when displaying - the pixel. For example: - - Original colour number - of image pixel: -C15 0 0 0 0 1 1 1 1 = 15 - - Result: colour number - of displayed pixel: -C15 1 1 1 1 0 0 0 0 = 240 - -C14 OR - A logical OR operation is - performed between the design - item and the existing screen - image. - - The colour number - (attribute) of each pixel in - the image is ORed with the - corresponding screen pixel; - the resulting value is the - colour number used to - display the pixel. For - example: - - Colour number of - image pixel: -C15 1 0 1 0 1 0 1 0 = 170 - - OR - - Colour number of - corresponding screen pixel: -C15 1 1 1 1 0 0 0 0 = 240 - - Result: colour number - of displayed pixel: -C15 1 1 1 1 1 0 1 0 = 250 - -C14 XOR - A logical XOR (exclusive OR) - operation is performed - between the design item and - the existing screen image. - - The colour number - (attribute) of each pixel in - the image is XORed with the - corresponding screen pixel; - the resulting value is the - colour number used to - display the pixel. For - example: - - Colour number of - image pixel: -C15 1 0 1 0 1 0 1 0 = 170 - - XOR - - Colour number of - corresponding screen pixel: -C15 1 1 1 1 0 0 0 0 = 240 - - Result: colour number - of displayed pixel: -C15 0 1 0 1 1 0 1 0 = 90 - -C14 AND - A logical AND operation is - performed between the design - item and the existing screen - image. - - The colour number - (attribute) of each pixel in - the image is ANDed with the - corresponding screen pixel; - the resulting value is the - colour number used to - display the pixel. For - example: - - Colour number of - image pixel: -C15 1 0 1 0 1 0 1 0 = 170 - - AND - - Colour number of - corresponding screen pixel: -C15 1 1 1 1 0 0 0 0 = 240 - - Result: colour number - of displayed pixel: -C15 1 0 1 0 0 0 0 0 = 160 - -C14 MASK - This is a special display - action which causes a design - item to be placed on the - screen so that only the - item's exact shape is - displayed, allowing the - background image to still be - visible around it. In order - to achieve this, an - additional mask image is - required: the image coming - directly after the Mouse - Image (in the currently - loaded image file) is - assumed to be the - corresponding mask image - - created using the Image - Editor's Convert to Mask... - command. For details, see: -C13H053 Convert to Mask... - For example, if you have - image number 10 selected as - the current Mouse Image, - then image number 11 is - assumed to be the - corresponding mask image. - - When using the MASK display - action, the mask image is - first placed on the screen - using the AND display - action, then the actual - Mouse Image is placed on - top, using the OR display - action. - - Note: Placing design items - using the MASK display - action actually causes two - items to be placed at a - time. Using MASK simply - makes it easier to place - design items using a mask - image - the same effect - could be achieved by first - placing the mask image using - the AND display action, and - then placing the actual - image on top of it using the - OR display action. - - The use of mask images and - the masking technique is - discussed fully in the - PIXELplus 256 User's Manual. -@ - PIXELplus 256 -C14 Using the Mouse - - PIXELplus 256 requires the - use of a mouse pointing - device and makes extensive - use of both the left and - right mouse buttons. This - makes using PIXELplus 256 - easier and more intuitive - than using just the - keyboard. Terms used to - describe how to use the - mouse are detailed below: - -C14 Left-click (or just click) - Quickly press and release - the left mouse button. - - The term "click" on its own - also refers to clicking - using the left mouse button, - e.g. "Click on the OK - button" means point and - click on the OK button, - using the left mouse button. - -C14 Right-click - Quickly press and release - the right mouse button. - -C14 Double-click - Press and release the left - mouse button twice in rapid - succession. - - The term "double-click" - always refers to using the - left mouse button as no - operation in PIXELplus 256 - requires you to double-click - using the right mouse - button. - -C14 Drag - Press and hold down the - mouse button while moving - the mouse. - - Different dragging - operations will require - either the left or right - mouse button to be used. The - left mouse button should be - used for dragging when no - button is specified, e.g. - "Drag down from the menu - name". -@ diff --git a/programs/samples/pete/pp256/pp256img.dat b/programs/samples/pete/pp256/pp256img.dat deleted file mode 100644 index 5c1c5ade7..000000000 Binary files a/programs/samples/pete/pp256/pp256img.dat and /dev/null differ diff --git a/programs/samples/pete/pp256/screens/gameover.des b/programs/samples/pete/pp256/screens/gameover.des deleted file mode 100644 index 6f47e3392..000000000 Binary files a/programs/samples/pete/pp256/screens/gameover.des and /dev/null differ diff --git a/programs/samples/pete/pp256/usersubs.bas b/programs/samples/pete/pp256/usersubs.bas deleted file mode 100644 index 2c0ab971a..000000000 --- a/programs/samples/pete/pp256/usersubs.bas +++ /dev/null @@ -1,1324 +0,0 @@ -'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -' PIXELplus 256 User Subroutines & Functions -' FREEWARE version 1.0 - (C)1995 Chris Chadwick. All rights reserved. -' For QBASIC, QuickBASIC and Visual BASIC for MS-DOS -' -' Consult your PIXELplus 256 User's Manual for full details on how to -' incorporate and use the routines contained in this file. -' -' Note: The routines contained in this file do not contain error -' checking. This makes the code easier to understand. -' -' *** BEFORE RUNNING THE DEMONSTRATION *** -' Running the demonstration requires access to four files which should have -' been supplied with this FREEWARE version of PIXELplus 256. They are: -' -' CHARSET1.PUT -' CHARSET2.PUT -' CHARSET3.PUT -' STANDARD.PAL -' -' In your PIXELplus 256 directory (usually C:\PP256), the three .PUT files -' should be located in the IMAGES subdirectory, and the .PAL file should be -' located in the PALETTES subdirectory. If you have PIXELplus 256 -' installed in a directory other than C:\PP256 then the value of Path$ -' (see (*) below) should be altered appropriately before running the -' demonstration. -' -' Note that CHARSET2.PUT is only a partial character set image file that -' does not include lower case letters so text to be displayed using it -' should only contain upper case letters. -' -'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -'Variable type to hold screen design item data. -TYPE DesignType -ImageNo AS INTEGER -Xpos AS INTEGER -Ypos AS INTEGER -DisAct AS INTEGER -END TYPE - -DECLARE SUB InitPaletteData (FileName$, PaletteArray&()) -DECLARE SUB InitDesignData (FileName$, DesignArray() AS DesignType) -DECLARE SUB InitImageData (FileName$, ImageArray%()) -DECLARE SUB MakeImageIndex (ImageArray%(), IndexArray%()) -DECLARE SUB DisplayDesign (DesignArray() AS DesignType, ImageArray%(), ImageIndex%(), ClsAction%) -DECLARE SUB ChangePalette (PaletteArray&()) -DECLARE SUB FadePalette (Direction%, PaletteArray&()) -DECLARE SUB RotatePalette (StartAttr%, EndAttr%, Direction%, PaletteArray&()) -DECLARE SUB CharPrint (Text$, Fore%, Back%, CursorPos%, ImageArray%()) -DECLARE SUB CharPrintXY (x%, y%, Text$, Fore%, Back%, CursorPos%, ImageArray%()) -DECLARE SUB Scroller (ScrollAct%, ImageArray%(), IndexArray%()) -DECLARE SUB WizzText (Text$, TopLine%, ImageArray%(), IndexArray%()) -DECLARE SUB GraphicText (x%, y%, Text$, CursorPos%, ImageArray%(), IndexArray%()) -DECLARE FUNCTION GetDepth% (ImNo%, ImageArray%(), IndexArray%()) -DECLARE FUNCTION GetWidth% (ImNo%, ImageArray%(), IndexArray%()) - -DEFINT A-Z - -'Constants for subroutine parameters. -CONST INITSCROLL = 0, UPDATESCROLL = 1 -CONST OVERPRINT = -1 -CONST CENTRETEXT = -1, FROMCURSOR = -2 -CONST FADEDOWN = 0, FADEUP = 1 -CONST ROTATELEFT = 0, ROTATERIGHT = 1 -CONST NEWLINE = 0, TEXTEND = 1 - -'Change to 320x200, 256 colour VGA screen mode. -SCREEN 13 -CLS - -'(*) If necessary, change Path$ to the path where -' you have PIXELplus 256 installed. -Path$ = ".\programs\samples\pete\pp256\" - -'Load standard palette. -REDIM StandardPal&(1 TO 1) -CALL InitPaletteData(Path$ + "\palettes\standard.pal", StandardPal&()) -CALL ChangePalette(StandardPal&()) - -'Load character set used by CharPrint() and CharPrintXY() routines. -REDIM Set1Data(1 TO 1) -CALL InitImageData(Path$ + "\images\charset1.put", Set1Data()) - -'Load bitmapped character set used by WizzText() and Scroller() routines. -'This is a partial character set containing ASCII characters 32 (space) -'to 90 (Z) only. -REDIM Set2Data(1 TO 1) -REDIM Set2Index(1 TO 1) -CALL InitImageData(Path$ + "\images\charset2.put", Set2Data()) -CALL MakeImageIndex(Set2Data(), Set2Index()) - -'Load bitmapped character set used by GraphicText() routine. -REDIM Set3Data(1 TO 1) -REDIM Set3Index(1 TO 1) -CALL InitImageData(Path$ + "\images\charset3.put", Set3Data()) -CALL MakeImageIndex(Set3Data(), Set3Index()) - -'Initialize images used in GAME OVER screen design. -REDIM ImageData(1 TO 1) -REDIM ImageIndex(1 TO 1) -RESTORE SDImageData -CALL InitImageData("", ImageData()) -CALL MakeImageIndex(ImageData(), ImageIndex()) - -'Initialize alternative palette. -REDIM NewPal&(1 TO 1) -RESTORE NewPaletteData -CALL InitPaletteData("", NewPal&()) - -'Initialize GAME OVER screen design. -REDIM GODesign(1 TO 1) AS DesignType -RESTORE DesignData -CALL InitDesignData("", GODesign()) - -'*** Draw page 1 of demonstration *** - -'Draw a background image so overprinting can be demonstrated properly. -FOR n = 1 TO 12 - LINE (0, 51 + n)-STEP(318, 0), 30 - n - LINE (0, 53 - n)-STEP(318, 0), 30 - n -NEXT n - -'Demonstrate CharPrint() subroutine. -CALL CharPrint("CharPrint() can be used as an", 40, 0, Newline, Set1Data()) -CALL CharPrint("alternative to BASIC's own PRINT", 40, 0, Newline, Set1Data()) -CALL CharPrint("statement. A user-defined character set", 40, 0, Newline, Set1Data()) -CALL CharPrint("is used and text can either be displayed", 40, 0, Newline, Set1Data()) -CALL CharPrint("with a ", 40, 0, Textend, Set1Data()) -CALL CharPrint("BACKGROUND", 40, 44, Textend, Set1Data()) -CALL CharPrint(" colour or...", 40, 0, Newline, Set1Data()) -LOCATE 7, 10 -CALL CharPrint("O V E R P R I N T E D", 40, Overprint, Newline, Set1Data()) -LOCATE 9 -CALL CharPrint("on the existing screen image.", 40, 0, Newline, Set1Data()) - -'Demonstrate CharPrintXY() subroutine. -CALL CharPrintXY(0, 90, "CharPrintXY() is the same as", 33, 44, Newline, Set1Data()) -CALL CharPrintXY(2, 99, "CharPrint() except it allows text", 33, 44, Newline, Set1Data()) -CALL CharPrintXY(5, 109, "to be displayed at a graphics", 33, 44, Newline, Set1Data()) -CALL CharPrintXY(9, 120, "screen coordinate.", 33, 44, Newline, Set1Data()) -CALL CharPrintXY(Centretext, 135, "Single lines of", 33, 0, Newline, Set1Data()) -CALL CharPrintXY(Centretext, Fromcursor, "text can", 33, 0, Newline, Set1Data()) -CALL CharPrintXY(Centretext, Fromcursor, "also be automatically", 33, 0, Newline, Set1Data()) -CALL CharPrintXY(Centretext, Fromcursor, "centred on-screen", 33, 0, Newline, Set1Data()) -CALL CharPrintXY(Centretext, Fromcursor, "by using CharPrintXY()", 33, 0, Newline, Set1Data()) - -'Demonstrate Scroller() subroutine and wait for a key press. -RESTORE ScrollMess1 -CALL Scroller(Initscroll, Set2Data(), Set2Index()) -DO - CALL Scroller(Updatescroll, Set2Data(), Set2Index()) -LOOP WHILE INKEY$ = "" - -'*** Draw page 2 of demonstration *** -CLS - -'Demonstrate GraphicText() subroutine. -CALL GraphicText(0, 0, "The GraphicText() subroutine is used to display", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "text that uses a bitmapped character set...", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Centretext, 32, "WHICH CAN BE ANY", Newline, Set2Data(), Set2Index()) -CALL GraphicText(Centretext, 48, "SIZE YOU LIKE!", Newline, Set2Data(), Set2Index()) -CALL GraphicText(0, 72, "Use GraphicText() to display", Newline, Set3Data(), Set3Index()) -CALL GraphicText(1, 81, "fancy text at any position", Newline, Set3Data(), Set3Index()) -CALL GraphicText(5, 91, "on the screen by using", Newline, Set3Data(), Set3Index()) -CALL GraphicText(9, 102, "graphics screen coordinates.", Newline, Set3Data(), Set3Index()) -CALL GraphicText(0, 120, "Notice how text is displayed proportionally so", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "narrow characters like 'i' are still displayed with", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "the same spacing as wide characters like 'm'.", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Centretext, 156, "There's an automatic", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Centretext, Fromcursor, "centring option", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Centretext, Fromcursor, "too!", Newline, Set3Data(), Set3Index()) - -'Demonstrate Scroller() subroutine and wait for a key press. -RESTORE ScrollMess2 -CALL Scroller(Initscroll, Set2Data(), Set2Index()) -DO - CALL Scroller(Updatescroll, Set2Data(), Set2Index()) -LOOP WHILE INKEY$ = "" - -'*** Draw page 3 of demonstration *** -CLS - -'Demonstrate WizzText() subroutine. -CALL WizzText("THE WIZZTEXT()", 30, Set2Data(), Set2Index()) -CALL WizzText("SUBROUTINE CAN BE", 50, Set2Data(), Set2Index()) -CALL WizzText("USED TO DISPLAY", 70, Set2Data(), Set2Index()) -CALL WizzText("AND CENTRE SINGLE", 90, Set2Data(), Set2Index()) -CALL WizzText("LINES OF BITMAPPED", 110, Set2Data(), Set2Index()) -CALL WizzText("TEXT IN A MORE", 130, Set2Data(), Set2Index()) -CALL WizzText("EXCITING WAY!", 150, Set2Data(), Set2Index()) - -'Demonstrate Scroller() subroutine and wait for a key press. -RESTORE ScrollMess2 -CALL Scroller(Initscroll, Set2Data(), Set2Index()) -DO - CALL Scroller(Updatescroll, Set2Data(), Set2Index()) -LOOP WHILE INKEY$ = "" - -'*** Draw page 4 of demonstration *** -CLS - -'Draw a palette grid showing all 256 available colours. -FOR rr = 0 TO 15 - FOR cc = 0 TO 15 - LINE (32 + cc * 16, 40 + rr * 8)-STEP(14, 6), (rr * 16) + cc, BF - NEXT cc -NEXT rr - -'Display explanation text. -CALL GraphicText(0, 8, "Using the ChangePalette() subroutine allows you", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "to quickly change palettes...", Newline, Set3Data(), Set3Index()) - -'Demonstrate ChangePalette() subroutine. -FOR n = 1 TO 5 - SLEEP 1 - CALL ChangePalette(StandardPal&()) - SLEEP 1 - CALL ChangePalette(NewPal&()) -NEXT n - -'Clear old text from top of screen. -LINE (0, 0)-(319, 38), 0, BF - -'Display explanation text. -CALL GraphicText(0, 8, "Use the RotatePalette() subroutine to shift a", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "range of colours to the left or right...", Newline, Set3Data(), Set3Index()) - -'Demonstrate RotatePalette() subroutine. -FOR n = 1 TO 8 - SLEEP 1 - CALL RotatePalette(32, 47, Rotateright, NewPal&()) -NEXT n -FOR n = 1 TO 8 - SLEEP 1 - CALL RotatePalette(32, 47, Rotateleft, NewPal&()) -NEXT n - -'Clear old text from top of screen. -LINE (0, 0)-(319, 38), 0, BF - -'Display explanation text. -CALL GraphicText(0, 8, "Use the FadePalette() subroutine to gradually", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "fade out the display...", Newline, Set3Data(), Set3Index()) - -'Demonstrate FadePalette() subroutine. -SLEEP 3 -CALL FadePalette(Fadedown, NewPal&()) -LINE (0, 0)-(319, 38), 0, BF -CALL GraphicText(0, 8, "...then gradually fade it back in!", Newline, Set3Data(), Set3Index()) -SLEEP 1 -CALL FadePalette(Fadeup, NewPal&()) - -'Demonstrate Scroller() subroutine and wait for a key press. -RESTORE ScrollMess2 -CALL Scroller(Initscroll, Set2Data(), Set2Index()) -DO - CALL Scroller(Updatescroll, Set2Data(), Set2Index()) -LOOP WHILE INKEY$ = "" - -'*** Draw page 5 of demonstration *** -CLS - -'Display explanation text. -CALL GraphicText(0, 0, "This is a simple screen design and shows how", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "RotatePalette() can be used to create", Newline, Set3Data(), Set3Index()) -CALL GraphicText(Fromcursor, Fromcursor, "very colourful effects...", Newline, Set3Data(), Set3Index()) - -'Display GAME OVER screen design. -CALL DisplayDesign(GODesign(), ImageData(), ImageIndex(), 0) - -'Demonstrate Scroller() and RotatePalette() subroutines -'while waiting for a key press. -RESTORE ScrollMess2 -CALL Scroller(Initscroll, Set2Data(), Set2Index()) -DO - 'Scroller() is called more often than RotatePalette() so that - 'the palette isn't rotated too quickly. - CALL Scroller(Updatescroll, Set2Data(), Set2Index()) - CALL Scroller(Updatescroll, Set2Data(), Set2Index()) - CALL RotatePalette(176, 255, Rotateright, NewPal&()) -LOOP WHILE INKEY$ = "" - -'Fade and blank screen before ending. -CALL FadePalette(Fadedown, NewPal&()) -CLS - -'Restore standard palette. -CALL ChangePalette(StandardPal&()) - - -'*** Message text for Scroller() subroutine (upper case only) *** -ScrollMess1: -DATA "THIS IS A SCROLLING MESSAGE DISPLAYED USING THE SCROLLER() ROUTINE..." -DATA " " -ScrollMess2: -DATA "PRESS A KEY TO CONTINUE..." -DATA " " -DATA "" - -'*** Data for images used in GAME OVER screen design *** -SDImageData: -DATA 360 -DATA 128,16,0,0,-8448,-8225,-8225,223,0,0,0,-8448,-8225,-8739,-8739,-8225,223,0,0,-8225 -DATA -8739,-9253,-9253,-8739,-8225,0,-8448,-8737,-9253,-9767,-9767,-9253,-8227,223,-8448,-9251,-9767,-10538,-10538,-9767 -DATA -8741,223,-8225,-9251,-10535,-11052,-11052,-9770,-8741,-8225,-8737,-9765,-11050,-11564,-11054,-10540,-9255,-8227,-8737,-9765 -DATA -11050,-12078,-11568,-10540,-9255,-8227,-8737,-9765,-11050,-12078,-11568,-10540,-9255,-8227,-8737,-9765,-11050,-11564,-11054,-10540 -DATA -9255,-8227,-8225,-9251,-10535,-11052,-11052,-9770,-8741,-8225,-8448,-9251,-9767,-10538,-10538,-9767,-8741,223,-8448,-8737 -DATA -9253,-9767,-9767,-9253,-8227,223,0,-8225,-8739,-9253,-9253,-8739,-8225,0,0,-8448,-8225,-8739,-8739,-8225 -DATA 223,0,0,0,-8448,-8225,-8225,223,0,0,128,16,-1,-1,255,0,0,-256,-1,-1 -DATA -1,255,0,0,0,0,-256,-1,-1,0,0,0,0,0,0,-1,255,0,0,0 -DATA 0,0,0,-256,255,0,0,0,0,0,0,-256,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 255,0,0,0,0,0,0,-256,255,0,0,0,0,0,0,-256,-1,0,0,0 -DATA 0,0,0,-1,-1,255,0,0,0,0,-256,-1,-1,-1,255,0,0,-256,-1,-1 -DATA 112,14,-8996,-11563,-9772,-8740,-10533,-11310,-9769,-10021,-11053,-9255,-9765,-10794,-11053,-9255,-10793,-10283,-10792,-11309 -DATA -10027,-11050,-9000,-10796,-11050,-11309,-10797,-9254,-11563,-9003,-11309,-11821,-10542,-8998,-9250,-11308,-9002,-11049,-11566,-10798 -DATA -8228,-9762,-10540,-8741,-9507,-10537,-10797,-8484,-11046,-10798,-8996,-8996,-9509,-9512,-9507,-11820,-10799,-9765,-9514,-8997 -DATA -8483,-10788,-12079,-10029,-10791,-9517,-8996,-8226,-11301,-11311,-10283,-10795,-9259,-10022,-8484,-11303,-10541,-11306,-10029,-9255 -DATA -10538,-9509,-10795,-10793,-11309,-9770,-8996,-9768,-10791,-9515,-10533,-9771,-10021,-8482,-9251,-11307,-8487,-10018,-10536,-11046 - -'*** Alternative palette data *** -NewPaletteData: -DATA 0,2752512,10752,2763264,42,2752554,5418,2763306 -DATA 1381653,4134165,1392405,4144917,1381695,4134207,1392447,4144959 -DATA 8751,271408,534065,862258,1124915,1387572,1650229,1912886 -DATA 2240824,2503481,2766138,3028795,3291452,3619645,3882302,4144959 -DATA 4128768,4128784,4128799,4128815,4128831,3080255,2031679,1048639 -DATA 63,4159,7999,12095,16191,16175,16159,16144 -DATA 16128,1064704,2047744,3096320,4144896,4140800,4136704,4132864 -DATA 4136735,4136743,4136751,4136759,4136767,3612479,3088191,2563903 -DATA 2039615,2041663,2043711,2045759,2047807,2047799,2047791,2047783 -DATA 2047775,2572063,3096351,3620639,4144927,4142879,4140831,4138783 -DATA 4140333,4140337,4140342,4140346,4140351,3812671,3550527,3222847 -DATA 2960703,2961727,2963007,2964031,2965311,2965306,2965302,2965297 -DATA 2965293,3227437,3555117,3817261,4144941,4143661,4142637,4141357 -DATA 1835008,1835015,1835022,1835029,1835036,1376284,917532,458780 -DATA 921130,986666,986667,1052203,1052459,1117996,1183532,1183532 -DATA 1249069,1249069,1314605,1314606,1380398,1445934,1445935,1511471 -DATA 1511471,1577008,1642544,1642544,1708337,1708337,1773873,1839410 -DATA 1839410,1904946,1904947,1970483,1970739,2036276,2101812,2101812 -DATA 2167349,2167349,2232885,2298422,2298678,2364214,2364215,2429751 -DATA 2429751,2495288,2560824,2560824,2626617,2626617,2692153,2757690 -DATA 2757690,2823226,2823227,2888763,2954555,2954556,3020092,3020092 -DATA 3085629,3085629,3151165,3216702,3216958,3282494,3282495,3348031 -DATA 4128768,3867648,3606528,3280128,3019008,2757888,2496768,2235648 -DATA 1909248,1648128,1387008,1125888,864768,538368,277248,16128 -DATA 16132,16136,16140,16144,16148,16152,16156,16160 -DATA 16163,16167,16171,16175,16179,16183,16187,16191 -DATA 15167,14143,13119,12095,11071,10047,9023,7999 -DATA 7231,6207,5183,4159,3135,2111,1087,63 -DATA 262207,524351,786495,1048639,1310783,1572927,1835071,2097215 -DATA 2293823,2555967,2818111,3080255,3342399,3604543,3866687,4128831 -DATA 4128827,4128823,4128819,4128815,4128811,4128807,4128803,4128799 -DATA 4128796,4128792,4128788,4128784,4128780,4128776,4128772,4128768 - -'*** GAME OVER screen design data *** -DesignData: -DATA 346 -DATA 2,72,40,5,1,72,40,3,2,64,32,5,1,64,32,3,2,56,32,5 -DATA 1,56,32,3,2,48,32,5,1,48,32,3,2,40,32,5,1,40,32,3 -DATA 2,32,40,5,1,32,40,3,2,32,48,5,1,32,48,3,2,32,56,5 -DATA 1,32,56,3,2,32,64,5,1,32,64,3,2,32,72,5,1,32,72,3 -DATA 2,32,80,5,1,32,80,3,2,40,88,5,1,40,88,3,2,48,88,5 -DATA 1,48,88,3,2,56,88,5,1,56,88,3,2,64,88,5,1,64,88,3 -DATA 2,72,80,5,1,72,80,3,2,72,72,5,1,72,72,3,2,72,64,5 -DATA 1,72,64,3,2,64,64,5,1,64,64,3,2,56,64,5,1,56,64,3 -DATA 2,96,88,5,1,96,88,3,2,96,80,5,1,96,80,3,2,96,72,5 -DATA 1,96,72,3,2,96,64,5,1,96,64,3,2,96,56,5,1,96,56,3 -DATA 2,96,48,5,1,96,48,3,2,104,40,5,1,104,40,3,2,112,32,5 -DATA 1,112,32,3,2,120,32,5,1,120,32,3,2,128,40,5,1,128,40,3 -DATA 2,136,48,5,1,136,48,3,2,136,56,5,1,136,56,3,2,136,64,5 -DATA 1,136,64,3,2,136,72,5,1,136,72,3,2,136,80,5,1,136,80,3 -DATA 2,136,88,5,1,136,88,3,2,128,64,5,1,128,64,3,2,120,64,5 -DATA 1,120,64,3,2,112,64,5,1,112,64,3,2,104,64,5,1,104,64,3 -DATA 2,160,88,5,1,160,88,3,2,160,80,5,1,160,80,3,2,160,72,5 -DATA 1,160,72,3,2,160,64,5,1,160,64,3,2,160,56,5,1,160,56,3 -DATA 2,160,48,5,1,160,48,3,2,160,40,5,1,160,40,3,2,160,32,5 -DATA 1,160,32,3,2,168,40,5,1,168,40,3,2,176,48,5,1,176,48,3 -DATA 2,184,56,5,1,184,56,3,2,192,48,5,1,192,48,3,2,200,40,5 -DATA 1,200,40,3,2,208,32,5,1,208,32,3,2,208,40,5,1,208,40,3 -DATA 2,208,48,5,1,208,48,3,2,208,56,5,1,208,56,3,2,208,64,5 -DATA 1,208,64,3,2,208,72,5,1,208,72,3,2,208,80,5,1,208,80,3 -DATA 2,208,88,5,1,208,88,3,2,232,32,5,1,232,32,3,2,232,40,5 -DATA 1,232,40,3,2,232,48,5,1,232,48,3,2,232,56,5,1,232,56,3 -DATA 2,232,64,5,1,232,64,3,2,232,72,5,1,232,72,3,2,232,80,5 -DATA 1,232,80,3,2,232,88,5,1,232,88,3,2,240,88,5,1,240,88,3 -DATA 2,248,88,5,1,248,88,3,2,256,88,5,1,256,88,3,2,264,88,5 -DATA 1,264,88,3,2,272,88,5,1,272,88,3,2,240,32,5,1,240,32,3 -DATA 2,248,32,5,1,248,32,3,2,256,32,5,1,256,32,3,2,264,32,5 -DATA 1,264,32,3,2,272,32,5,1,272,32,3,2,240,64,5,1,240,64,3 -DATA 2,248,64,5,1,248,64,3,2,256,64,5,1,256,64,3,2,264,64,5 -DATA 1,264,64,3,2,68,112,5,1,68,112,3,2,60,112,5,1,60,112,3 -DATA 2,52,112,5,1,52,112,3,2,44,112,5,1,44,112,3,2,36,120,5 -DATA 1,36,120,3,2,36,128,5,1,36,128,3,2,36,136,5,1,36,136,3 -DATA 2,36,144,5,1,36,144,3,2,36,152,5,1,36,152,3,2,36,160,5 -DATA 1,36,160,3,2,44,168,5,1,44,168,3,2,52,168,5,1,52,168,3 -DATA 2,60,168,5,1,60,168,3,2,68,168,5,1,68,168,3,2,76,160,5 -DATA 1,76,160,3,2,76,152,5,1,76,152,3,2,76,144,5,1,76,144,3 -DATA 2,76,136,5,1,76,136,3,2,76,128,5,1,76,128,3,2,76,120,5 -DATA 1,76,120,3,2,100,112,5,1,100,112,3,2,100,120,5,1,100,120,3 -DATA 2,100,128,5,1,100,128,3,2,100,136,5,1,100,136,3,2,100,144,5 -DATA 1,100,144,3,2,100,152,5,1,100,152,3,2,108,160,5,1,108,160,3 -DATA 2,116,168,5,1,116,168,3,2,124,168,5,1,124,168,3,2,132,160,5 -DATA 1,132,160,3,2,140,152,5,1,140,152,3,2,140,144,5,1,140,144,3 -DATA 2,140,136,5,1,140,136,3,2,140,128,5,1,140,128,3,2,140,120,5 -DATA 1,140,120,3,2,140,112,5,1,140,112,3,2,164,112,5,1,164,112,3 -DATA 2,164,120,5,1,164,120,3,2,164,128,5,1,164,128,3,2,164,136,5 -DATA 1,164,136,3,2,164,144,5,1,164,144,3,2,164,152,5,1,164,152,3 -DATA 2,164,160,5,1,164,160,3,2,164,168,5,1,164,168,3,2,172,168,5 -DATA 1,172,168,3,2,180,168,5,1,180,168,3,2,188,168,5,1,188,168,3 -DATA 2,196,168,5,1,196,168,3,2,204,168,5,1,204,168,3,2,172,112,5 -DATA 1,172,112,3,2,180,112,5,1,180,112,3,2,188,112,5,1,188,112,3 -DATA 2,196,112,5,1,196,112,3,2,204,112,5,1,204,112,3,2,172,144,5 -DATA 1,172,144,3,2,180,144,5,1,180,144,3,2,188,144,5,1,188,144,3 -DATA 2,196,144,5,1,196,144,3,2,236,112,5,1,236,112,3,2,244,112,5 -DATA 1,244,112,3,2,252,112,5,1,252,112,3,2,260,112,5,1,260,112,3 -DATA 2,268,120,5,1,268,120,3,2,268,128,5,1,268,128,3,2,268,136,5 -DATA 1,268,136,3,2,260,144,5,1,260,144,3,2,252,144,5,1,252,144,3 -DATA 2,244,144,5,1,244,144,3,2,236,144,5,1,236,144,3,2,268,168,5 -DATA 1,268,168,3,2,260,160,5,1,260,160,3,2,252,152,5,1,252,152,3 -DATA 2,228,112,5,1,228,112,3,2,228,120,5,1,228,120,3,2,228,128,5 -DATA 1,228,128,3,2,228,136,5,1,228,136,3,2,228,144,5,1,228,144,3 -DATA 2,228,152,5,1,228,152,3,2,228,160,5,1,228,160,3,2,228,168,5 -DATA 1,228,168,3,3,0,38,1,3,0,52,1,3,0,66,1,3,0,80,1 -DATA 3,0,94,1,3,0,108,1,3,0,122,1,3,0,136,1,3,0,150,1 -DATA 3,0,164,1,3,306,38,1,3,306,52,1,3,306,66,1,3,306,80,1 -DATA 3,306,94,1,3,306,108,1,3,306,122,1,3,306,136,1,3,306,150,1 -DATA 3,306,164,1 - -'* ChangePalette() subroutine: -'* Quickly changes the current colour palette to the colours held in -'* a palette array. -'* -'* Parameters: -'* PaletteArray&() - Long integer array holding the colours to be used as -'* the new colour palette. This array must have previously -'* been initialized by calling InitPaletteData(). -'* -SUB ChangePalette (PaletteArray&()) - -'Break down all 256 colours into their RGB values. -DIM RGBval(0 TO 255, 0 TO 2) -FOR n = 0 TO 255 - c& = PaletteArray&(n) - b = c& \ 65536: c& = c& - b * 65536 - g = c& \ 256: c& = c& - g * 256 - r = c& - RGBval(n, 0) = r - RGBval(n, 1) = g - RGBval(n, 2) = b -NEXT n - -'Write colours directly to the video card. -WAIT &H3DA, &H8, &H8: WAIT &H3DA, &H8 -FOR n = 0 TO 255 - OUT &H3C8, n 'Select attribute. - OUT &H3C9, RGBval(n, 0) 'Write red. - OUT &H3C9, RGBval(n, 1) 'Write green. - OUT &H3C9, RGBval(n, 2) 'Write blue. -NEXT n - -END SUB - -'* CharPrint() subroutine: -'* Displays a text string using a character set designed with PIXELplus 256. -'* Text can be displayed using both a foreground and background colour, or -'* can be overprinted on the existing screen image using the foreground -'* colour. -'* -'* Parameters: -'* Text$ - The text string to be displayed. -'* Fore - The foreground colour to display text in. -'* Back - The background colour to display text in or use OVERPRINT -'* to have the text overprinted on the existing screen image. -'* CursorPos - Dictates where the text cursor should be left after -'* the text has been displayed: -'* Use NEWLINE to move the cursor to the start of a new line. -'* Use TEXTEND to leave the cursor directly after the last -'* character displayed. -'* ImageArray() - Image array holding the character set to be used. Each -'* character must be an 8x8 image and be in the standard -'* ASCII order, starting with the space character. -'* -SUB CharPrint (Text$, Fore, Back, CursorPos, ImageArray()) - -'Create an 8x8 image array to build a character in. -DIM NewChar(1 TO 34) -NewChar(1) = 64: NewChar(2) = 8 - -'Convert text cursor position to graphics (x,y) coordinates. -x = (POS(0) - 1) * 8: y = (CSRLIN - 1) * 8 - -'Get high byte equivalent of Fore & Back colours. -HighFore = 0: HighBack = 0 -DEF SEG = VARSEG(HighFore) -POKE VARPTR(HighFore) + 1, Fore -DEF SEG = VARSEG(HighBack) -POKE VARPTR(HighBack) + 1, Back -DEF SEG - -IF Back = Overprint THEN - '*** Overprint text onto existing screen image *** - - 'Loop to build and display each character of Text$. - FOR j = 1 TO LEN(Text$) - GET (x, y)-STEP(7, 7), NewChar(1) - - BasePtr = (ASC(MID$(Text$, j, 1)) - 32) * 34 - - 'Build new character image in NewChar(). - FOR n = 3 TO 34 - PixPair = ImageArray(BasePtr + n) - - IF (PixPair AND &HFF) THEN - LowByte = Fore - ELSE - LowByte = NewChar(n) AND &HFF - END IF - - IF (PixPair AND &HFF00) THEN - NewChar(n) = HighFore OR LowByte - ELSE - NewChar(n) = (NewChar(n) AND &HFF00) OR LowByte - END IF - NEXT n - - 'Display the character. - PUT (x, y), NewChar(1), PSET - - 'Find screen coordinates for next character. - IF x = 312 THEN - x = 0 - IF y <> 192 THEN y = y + 8 - ELSE - x = x + 8 - END IF - NEXT j -ELSE - '*** Display text using foreground & background colours *** - - 'Loop to build and display each character of Text$. - FOR j = 1 TO LEN(Text$) - BasePtr = (ASC(MID$(Text$, j, 1)) - 32) * 34 - - 'Build new character image in NewChar(). - FOR n = 3 TO 34 - PixPair = ImageArray(BasePtr + n) - - IF (PixPair AND &HFF) THEN - LowByte = Fore - ELSE - LowByte = Back - END IF - - IF (PixPair AND &HFF00) THEN - NewChar(n) = HighFore OR LowByte - ELSE - NewChar(n) = HighBack OR LowByte - END IF - NEXT n - - 'Display the character. - PUT (x, y), NewChar(1), PSET - - 'Find screen coordinates for next character. - IF x = 312 THEN - x = 0 - IF y <> 192 THEN y = y + 8 - ELSE - x = x + 8 - END IF - NEXT j -END IF - -'Update text cursor to required position before exiting. -c = (x \ 8) + 1: r = (y \ 8) + 1 -IF CursorPos = Newline THEN - 'Check a new line is actually required. - IF c <> 1 THEN - c = 1 - IF r < 25 THEN r = r + 1 - END IF -END IF -LOCATE r, c - -END SUB - -'* CharPrintXY() subroutine: -'* Displays a text string at a graphics screen coordinate, using a character -'* set designed with PIXELplus 256. Text can be displayed using both a -'* foreground and background colour, or can be overprinted on the existing -'* screen image using the foreground colour. -'* -'* Parameters: -'* x - Horizontal coordinate of where printing should start or: -'* Use FROMCURSOR to use the current graphics cursor X -'* coordinate. -'* Use CENTRETEXT to have the text centred. -'* y - Vertical coordinate of where printing should start or -'* use FROMCURSOR to use the current graphics cursor Y -'* coordinate. -'* Text$ - The text string to be displayed. -'* Fore - The foreground colour to display text in. -'* Back - The background colour to display text in or use OVERPRINT -'* to have the text overprinted on the existing screen image. -'* CursorPos - Dictates where the graphics cursor should be left after -'* the text has been displayed: -'* Use NEWLINE to move the cursor to the start of a new line. -'* Use TEXTEND to leave the cursor directly after the last -'* character displayed. -'* ImageArray() - Image array holding the character set to be used. Each -'* character must be an 8x8 image and be in the standard -'* ASCII order, starting with the space character. -'* -SUB CharPrintXY (x, y, Text$, Fore, Back, CursorPos, ImageArray()) - -MessLen = LEN(Text$) -IF x = Centretext THEN - 'Find start X coordinate for centred text. - w = MessLen * 8 - x = (320 - w) \ 2 -ELSEIF x = Fromcursor THEN - 'Use current X coordinate. - x = POINT(0) -END IF - -'Use current Y coordinate if requested. -IF y = Fromcursor THEN y = POINT(1) - -'Create an 8x8 image array to build a character in. -DIM NewChar(1 TO 34) -NewChar(1) = 64: NewChar(2) = 8 - -'Get high byte equivalent of Fore & Back colours. -HighFore = 0: HighBack = 0 -DEF SEG = VARSEG(HighFore) -POKE VARPTR(HighFore) + 1, Fore -DEF SEG = VARSEG(HighBack) -POKE VARPTR(HighBack) + 1, Back -DEF SEG - -IF Back = Overprint THEN - '*** Overprint text onto existing screen image *** - - 'Loop to build and display each character of Text$. - FOR j = 1 TO LEN(Text$) - GET (x, y)-STEP(7, 7), NewChar(1) - - BasePtr = (ASC(MID$(Text$, j, 1)) - 32) * 34 - - 'Build new character image in NewChar(). - FOR n = 3 TO 34 - PixPair = ImageArray(BasePtr + n) - - IF (PixPair AND &HFF) THEN - LowByte = Fore - ELSE - LowByte = NewChar(n) AND &HFF - END IF - - IF (PixPair AND &HFF00) THEN - NewChar(n) = HighFore OR LowByte - ELSE - NewChar(n) = (NewChar(n) AND &HFF00) OR LowByte - END IF - NEXT n - - 'Display the character. - PUT (x, y), NewChar(1), PSET - - 'Find screen coordinates for next character. - IF x >= 305 THEN - x = 0 - IF y >= 185 THEN y = 192 ELSE y = y + 8 - ELSE - x = x + 8 - END IF - NEXT j -ELSE - '*** Display text using foreground & background colours *** - - 'Loop to build and display each character of Text$. - FOR j = 1 TO LEN(Text$) - BasePtr = (ASC(MID$(Text$, j, 1)) - 32) * 34 - - 'Build new character image in NewChar(). - FOR n = 3 TO 34 - PixPair = ImageArray(BasePtr + n) - - IF (PixPair AND &HFF) THEN - LowByte = Fore - ELSE - LowByte = Back - END IF - - IF (PixPair AND &HFF00) THEN - NewChar(n) = HighFore OR LowByte - ELSE - NewChar(n) = HighBack OR LowByte - END IF - NEXT n - - 'Display the character. - PUT (x, y), NewChar(1), PSET - - 'Find screen coordinates for next character. - IF x >= 305 THEN - x = 0 - IF y >= 185 THEN y = 192 ELSE y = y + 8 - ELSE - x = x + 8 - END IF - NEXT j -END IF - -'Update graphics cursor to required position before exiting. -IF CursorPos = Newline THEN - 'Check a new line is actually required. - IF x <> 0 THEN - x = 0 - IF y < 185 THEN y = y + 8 - END IF -END IF -PSET (x, y), POINT(x, y) - -END SUB - -'* DisplayDesign() subroutine: -'* Displays the screen design held in DesignArray() using the images held -'* in ImageArray(). -'* -'* Parameters: -'* DesignArray() - Dynamic, DesignType array holding screen design data. -'* ImageArray() - Dynamic, integer array holding the images to use for -'* displaying the screen design. -'* IndexArray() - Dynamic, integer array holding the index for images in -'* ImageArray(). -'* ClsAction - A non-zero value causes the screen to be cleared before -'* the screen design is displayed. -'* -SUB DisplayDesign (DesignArray() AS DesignType, ImageArray(), ImageIndex(), ClsAction) - -'Only clear the screen if requested to. -IF ClsAction THEN CLS - -LastItem = UBOUND(DesignArray) - -'Loop to display all items in the screen design. -FOR n = 1 TO LastItem - ImageNo = DesignArray(n).ImageNo - Xpos = DesignArray(n).Xpos - Ypos = DesignArray(n).Ypos - DisAct = DesignArray(n).DisAct - - 'Mask-out high byte of DisAct to find display action code. - SELECT CASE (DisAct AND &HFF) - CASE 1 - PUT (Xpos, Ypos), ImageArray(ImageIndex(ImageNo)), PSET - CASE 2 - PUT (Xpos, Ypos), ImageArray(ImageIndex(ImageNo)), PRESET - CASE 3 - PUT (Xpos, Ypos), ImageArray(ImageIndex(ImageNo)), OR - CASE 4 - PUT (Xpos, Ypos), ImageArray(ImageIndex(ImageNo)), XOR - CASE 5 - PUT (Xpos, Ypos), ImageArray(ImageIndex(ImageNo)), AND - END SELECT -NEXT n - -END SUB - -'* FadePalette() subroutine: -'* Gradually fades the current display in or out by fading all the colours in -'* the currently active palette down (fade to black) or up (restore colours). -'* -'* Parameters: -'* Direction - Dictates what direction the currently active colour -'* palette should be faded in: -'* Use FADEDOWN to fade down all colours to black. -'* Use FADEUP to fade up all colours from black to their -'* true colours. -'* PaletteArray&() - Palette array holding the colours of the currently -'* active colour palette. -'* -SUB FadePalette (Direction, PaletteArray&()) - -IF Direction = Fadedown THEN - '*** Fade palette down *** - - 'Break down all 256 colours into their RGB values and - 'calculate how much each will need fading down by. - DIM RGBval!(0 TO 255, 0 TO 2) - DIM SubVal!(0 TO 255, 0 TO 2) - FOR n = 0 TO 255 - c& = PaletteArray&(n) - b = c& \ 65536: c& = c& - b * 65536 - g = c& \ 256: c& = c& - g * 256 - r = c& - RGBval!(n, 0) = r - RGBval!(n, 1) = g - RGBval!(n, 2) = b - SubVal!(n, 0) = r / 63 - SubVal!(n, 1) = g / 63 - SubVal!(n, 2) = b / 63 - NEXT n - - 'Fade down all 256 colours in 63 steps. - FOR j = 1 TO 63 - 'Calculate new faded down RGB values. - FOR n = 0 TO 255 - RGBval!(n, 0) = RGBval!(n, 0) - SubVal!(n, 0) - RGBval!(n, 1) = RGBval!(n, 1) - SubVal!(n, 1) - RGBval!(n, 2) = RGBval!(n, 2) - SubVal!(n, 2) - NEXT n - - 'Write faded down colours directly to the video card. - WAIT &H3DA, &H8, &H8: WAIT &H3DA, &H8 - FOR n = 0 TO 255 - OUT &H3C8, n 'Select attribute. - OUT &H3C9, RGBval!(n, 0) 'Write red. - OUT &H3C9, RGBval!(n, 1) 'Write green. - OUT &H3C9, RGBval!(n, 2) 'Write blue. - NEXT n - NEXT j -ELSE - '*** Fade palette up *** - - 'Break down all 256 colours into their RGB values and - 'calculate how much each will need fading up by. - DIM RGBval!(0 TO 255, 0 TO 2) - DIM AddVal!(0 TO 255, 0 TO 2) - FOR n = 0 TO 255 - c& = PaletteArray&(n) - b = c& \ 65536: c& = c& - b * 65536 - g = c& \ 256: c& = c& - g * 256 - r = c& - AddVal!(n, 0) = r / 63 - AddVal!(n, 1) = g / 63 - AddVal!(n, 2) = b / 63 - NEXT n - - 'Fade up all 256 colours in 63 steps. - FOR j = 1 TO 63 - 'Calculate new faded up RGB values. - FOR n = 0 TO 255 - RGBval!(n, 0) = RGBval!(n, 0) + AddVal!(n, 0) - RGBval!(n, 1) = RGBval!(n, 1) + AddVal!(n, 1) - RGBval!(n, 2) = RGBval!(n, 2) + AddVal!(n, 2) - NEXT n - - 'Write faded up colours directly to the video card. - WAIT &H3DA, &H8, &H8: WAIT &H3DA, &H8 - FOR n = 0 TO 255 - OUT &H3C8, n 'Select attribute. - OUT &H3C9, RGBval!(n, 0) 'Write red. - OUT &H3C9, RGBval!(n, 1) 'Write green. - OUT &H3C9, RGBval!(n, 2) 'Write blue. - NEXT n - NEXT j -END IF - -END SUB - -'* GetDepth() function: -'* Returns the depth (in pixels) of any image contained in an image array. -'* -'* Parameters: -'* ImNo - The number of the image to return the depth of. -'* ImageArray() - Image array that contains the image. -'* IndexArray() - Index array for the images in ImageArray(). -'* -FUNCTION GetDepth (ImNo, ImageArray(), IndexArray()) - -GetDepth = ImageArray(IndexArray(ImNo) + 1) - -END FUNCTION - -'* GetWidth() function: -'* Returns the width (in pixels) of any image contained in an image array. -'* -'* Parameters: -'* ImNo - The number of the image to return the width of. -'* ImageArray() - Image array that contains the image. -'* IndexArray() - Index array for the images in ImageArray(). -'* -FUNCTION GetWidth (ImNo, ImageArray(), IndexArray()) - -GetWidth = ImageArray(IndexArray(ImNo)) \ 8 - -END FUNCTION - -'* GraphicText() subroutine: -'* Displays a text string at a graphics screen coordinate, using a bitmapped -'* character set. -'* -'* Parameters: -'* x - Horizontal coordinate of where printing should start or: -'* Use FROMCURSOR to use the current graphics cursor X -'* coordinate. -'* Use CENTRETEXT to have the text centred. -'* y - Vertical coordinate of where printing should start or -'* use FROMCURSOR to use the current graphics cursor Y -'* coordinate. -'* Text$ - The text string to be displayed. -'* CursorPos - Dictates where the graphics cursor should be left after -'* the text has been displayed: -'* Use NEWLINE to move the cursor to the start of a new line. -'* Use TEXTEND to leave the cursor directly after the last -'* character displayed. -'* ImageArray() - Image array holding the character set to be used. Each -'* character must in the standard ASCII order, starting with -'* the space character. -'* IndexArray() - Index array for the character images in ImageArray(). -'* -SUB GraphicText (x, y, Text$, CursorPos, ImageArray(), IndexArray()) - -MessLen = LEN(Text$) -IF x = Centretext THEN - 'Find start X coordinate for centred text. - w = 0 - FOR n = 1 TO MessLen - CharNo = ASC(MID$(Text$, n, 1)) - 31 - w = w + GetWidth(CharNo, ImageArray(), IndexArray()) - NEXT n - x = (320 - w) \ 2 -ELSEIF x = Fromcursor THEN - 'Use current X coordinate. - x = POINT(0) -END IF - -'Use current Y coordinate if requested. -IF y = Fromcursor THEN y = POINT(1) - -CharDepth = GetDepth(1, ImageArray(), IndexArray()) - -'Loop to display each character of Text$. -FOR n = 1 TO MessLen - CharNo = ASC(MID$(Text$, n, 1)) - 31 - CharWidth = GetWidth(CharNo, ImageArray(), IndexArray()) - - 'Screen coordinate management for current character. - IF x + CharWidth > 320 THEN - x = 0 - IF (y + CharDepth + CharDepth - 1) > 199 THEN - y = 200 - CharDepth - ELSE - y = y + CharDepth - END IF - END IF - - PUT (x, y), ImageArray(IndexArray(CharNo)), PSET - x = x + CharWidth -NEXT n - -'Ensure x and y are valid screen coordinates. -IF x > 319 THEN - x = 0 - IF (y + CharDepth + CharDepth - 1) > 199 THEN - y = 200 - CharDepth - ELSE - y = y + CharDepth - END IF -END IF - -'Update graphics cursor to required position before exiting. -IF CursorPos = Newline THEN - 'Check a new line is actually required. - IF x <> 0 THEN - x = 0 - IF (y + CharDepth + CharDepth - 1) > 199 THEN - y = 200 - CharDepth - ELSE - y = y + CharDepth - END IF - END IF -END IF -PSET (x, y), POINT(x, y) - -END SUB - -'* InitDesignData() subroutine: -'* Initializes a DesignType array with screen design data - this must be done -'* before displaying a screen design using the DisplayDesign() routine. The -'* calling value of FileName$ dictates whether the data should be read -'* directly from a screen design file or from DATA statements (see below). -'* -'* Parameters: -'* FileName$ - The name of the screen design file to load. This must -'* include the path to the file if it does not reside in the -'* current directory. If FileName$ is an empty string (""), -'* screen design data is read from DATA statements. -'* DesignArray() - Dynamic, DesignType array to hold the screen design data. -'* -'* Note: Before calling InitDesignData() to initialize a screen design from -'* DATA statements, use an appropriate RESTORE statement to ensure the -'* correct DATA statements are read. -'* -SUB InitDesignData (FileName$, DesignArray() AS DesignType) - -IF FileName$ <> "" THEN - '***** Read screen design data from file ***** - - 'Establish size of DesignType array required. - FileNo = FREEFILE - OPEN FileName$ FOR BINARY AS #FileNo - ItemCount = (LOF(FileNo) - 7) \ 8 - CLOSE #FileNo - REDIM DesignArray(0 TO ItemCount) AS DesignType - - 'Load screen design data directly into array memory. - DEF SEG = VARSEG(DesignArray(0)) - BLOAD FileName$, 0 - DEF SEG -ELSE - '***** Read screen design data from DATA statements ***** - - 'Establish size of DesignType array required. - READ ItemCount - REDIM DesignArray(0 TO ItemCount) AS DesignType - - 'READ screen design DATA into array. - FOR n = 1 TO ItemCount - READ ImageNo, Xpos, Ypos, DisAct - DesignArray(n).ImageNo = ImageNo - DesignArray(n).Xpos = Xpos - DesignArray(n).Ypos = Ypos - DesignArray(n).DisAct = DisAct - NEXT n -END IF - -END SUB - -'* InitImageData() subroutine: -'* Initializes an integer array with image data - this must be done before -'* displaying an image using the PUT(graphics) statement. The calling value -'* of FileName$ dictates whether the data should be read directly from an -'* image file or from DATA statements (see below). -'* -'* Parameters: -'* FileName$ - The name of the image file to load. This must include the -'* path to the file if it does not reside in the current -'* directory. If FileName$ is an empty string (""), image -'* data is read from DATA statements. -'* ImageArray() - Dynamic, integer array to hold the image data. -'* -'* Note: Before calling InitImageData() to initialize images from DATA -'* statements, use an appropriate RESTORE statement to ensure the -'* correct DATA statements are read. -'* -SUB InitImageData (FileName$, ImageArray()) - -IF FileName$ <> "" THEN - '***** Read image data from file ***** - - 'Establish size of integer array required. - FileNo = FREEFILE - OPEN FileName$ FOR BINARY AS #FileNo - Ints = (LOF(FileNo) - 7) \ 2 - CLOSE #FileNo - REDIM ImageArray(1 TO Ints) - - 'Load image data directly into array memory. - DEF SEG = VARSEG(ImageArray(1)) - BLOAD FileName$, 0 - DEF SEG -ELSE - '***** Read image data from DATA statements ***** - - 'Establish size of integer array required. - READ IntCount - REDIM ImageArray(1 TO IntCount) - - 'READ image DATA into array. - FOR n = 1 TO IntCount - READ x - ImageArray(n) = x - NEXT n -END IF - -END SUB - -'* InitPaletteData() subroutine: -'* Initializes a long integer array with palette colour data - this must be -'* done before changing palettes with the PALETTE USING statement. The -'* calling value of FileName$ dictates whether the data should be read -'* directly from a palette file or from DATA statements (see below). -'* -'* Parameters: -'* FileName$ - The name of the palette file to load. This must include -'* the path to the file if it does not reside in the -'* current directory. If FileName$ is an empty string (""), -'* palette data is read from DATA statements. -'* PaletteArray&() - Dynamic, long integer array to hold palette data. -'* -'* Note: Before calling InitPaletteData() to initialize a palette from DATA -'* statements, use an appropriate RESTORE statement to ensure the -'* correct DATA statements are read. -'* -SUB InitPaletteData (FileName$, PaletteArray&()) - -'Size array to hold all 256 colours. -REDIM PaletteArray&(0 TO 255) - -IF FileName$ <> "" THEN - '*** Read palette data from file *** - FileNo = FREEFILE - OPEN FileName$ FOR BINARY AS #FileNo - FOR n = 0 TO 255 - GET #FileNo, , colour& - PaletteArray&(n) = colour& - NEXT n - CLOSE #FileNo -ELSE - '*** Read palette data from DATA statements *** - FOR n = 0 TO 255 - READ colour& - PaletteArray&(n) = colour& - NEXT n -END IF - -END SUB - -'* MakeImageIndex() subroutine: -'* Constructs an image position index for the images held in an image array. -'* -'* Parameters: -'* ImageArray() - Dynamic, integer array holding images to be indexed. -'* IndexArray() - Dynamic, integer array to hold the index for images in -'* ImageArray(). -'* -SUB MakeImageIndex (ImageArray(), IndexArray()) - -'The index will initially be built in a temporary array, allowing -'for the maximum 1000 images per file. -DIM Temp(1 TO 1000) -Ptr& = 1: IndexNo = 1: LastInt = UBOUND(ImageArray) -DO - Temp(IndexNo) = Ptr& - IndexNo = IndexNo + 1 - - 'Evaluate descriptor of currently referenced image to - 'calculate the beginning of the next image. - x& = (ImageArray(Ptr&) \ 8) * (ImageArray(Ptr& + 1)) + 4 - IF x& MOD 2 THEN x& = x& + 1 - Ptr& = Ptr& + (x& \ 2) -LOOP WHILE Ptr& < LastInt - -LastImage = IndexNo - 1 - -'Copy the image index values into the actual index array. -REDIM IndexArray(1 TO LastImage) -FOR n = 1 TO LastImage - IndexArray(n) = Temp(n) -NEXT n - -END SUB - -'* RotatePalette() subroutine: -'* Rotates a contiguous range of colour attributes in the currently -'* active palette to the left or right. -'* -'* Parameters: -'* StartAttr - First attribute of the range to be rotated. -'* EndAttr - Last attribute of the range to be rotated. -'* Direction - Dictates what direction the selected colours should -'* be rotated in: -'* Use ROTATELEFT to rotate colours to the left. -'* Use ROTATERIGHT to rotate colours to the right. -'* PaletteArray&() - Palette array holding the colours of the currently -'* active colour palette. -'* -SUB RotatePalette (StartAttr, EndAttr, Direction, PaletteArray&()) - -'Rotate affected colours in PaletteArray&() in the requested direction. -IF Direction = Rotateright THEN - '*** Rotate right *** - Lastc& = PaletteArray&(EndAttr) - FOR n = EndAttr TO StartAttr + 1 STEP -1 - PaletteArray&(n) = PaletteArray&(n - 1) - NEXT n - PaletteArray&(StartAttr) = Lastc& -ELSE - '*** Rotate left *** - Lastc& = PaletteArray&(StartAttr) - FOR n = StartAttr TO EndAttr - 1 - PaletteArray&(n) = PaletteArray&(n + 1) - NEXT n - PaletteArray&(EndAttr) = Lastc& -END IF - -'Break down the colours into their RGB values. -DIM RGBval(StartAttr TO EndAttr, 0 TO 2) -FOR n = StartAttr TO EndAttr - c& = PaletteArray&(n) - b = c& \ 65536: c& = c& - b * 65536 - g = c& \ 256: c& = c& - g * 256 - r = c& - RGBval(n, 0) = r - RGBval(n, 1) = g - RGBval(n, 2) = b -NEXT n - -'Write colours directly to the video card. -WAIT &H3DA, &H8, &H8: WAIT &H3DA, &H8 -FOR n = StartAttr TO EndAttr - OUT &H3C8, n 'Select attribute. - OUT &H3C9, RGBval(n, 0) 'Write red. - OUT &H3C9, RGBval(n, 1) 'Write green. - OUT &H3C9, RGBval(n, 2) 'Write blue. -NEXT n - -END SUB - -'* Scroller() subroutine: -'* Displays a scrolling message along the bottom of the screen, using a -'* bitmapped character set. -'* -'* Parameters: -'* ScrollAct - Dictates what action should be done: -'* Use INITSCROLL to initialize a new scroller message. -'* Use UPDATESCROLL to update the scroller display. -'* ImageArray() - Image array holding the character set to be used. Each -'* character must be a 16x8 image and be in the standard -'* ASCII order, starting with the space character. -'* IndexArray() - Index array for the character images in ImageArray(). -'* -'* Note: Before calling Scroller() to initialize a new scrolling message -'* from DATA statements, use an appropriate RESTORE statement to -'* ensure the correct DATA statements are read. -'* -SUB Scroller (ScrollAct, ImageArray(), IndexArray()) - -'Retain variable settings between calls. -STATIC MessChar(), FirstX, CharPtr, MessLen, ScrollMess$ - -IF ScrollAct = Initscroll THEN - '*** Initialize scroller *** - REDIM MessChar(1 TO 19) - FOR n = 1 TO 19: MessChar(n) = 1: NEXT n - - 'Read entire scroller text into ScrollMess$ from module-level DATA. - ScrollMess$ = "" - DO - READ x$ - ScrollMess$ = ScrollMess$ + x$ - LOOP UNTIL x$ = "" - - MessLen = LEN(ScrollMess$) - CharPtr = 1 - FirstX = 16 -ELSE - '*** Update scroller message display *** - x = FirstX - WAIT &H3DA, &H8, &H8: WAIT &H3DA, &H8 - FOR n = 1 TO 19 - PUT (x, 192), ImageArray(MessChar(n)), PSET - x = x + 16 - NEXT n - - 'Display two end characters (spaces) to tidy up message appearance. - PUT (0, 192), ImageArray(IndexArray(1)), PSET - PUT (304, 192), ImageArray(IndexArray(1)), PSET - - 'Variable management ready for next Scroller(UPDATESCROLL) call. - FirstX = FirstX - 2 - IF FirstX = 0 THEN - FirstX = 16 - FOR n = 1 TO 18 - MessChar(n) = MessChar(n + 1) - NEXT n - - IF CharPtr > MessLen THEN CharPtr = 1 - MessChar(19) = IndexArray(ASC(MID$(ScrollMess$, CharPtr, 1)) - 31) - CharPtr = CharPtr + 1 - END IF -END IF - -END SUB - -'* WizzText() subroutine: -'* Centres a single line of text on the screen using a bitmapped character -'* set. Each character is whizzed across the screen in turn (from right to -'* left) to it's destination position. -'* -'* Parameters: -'* Text$ - The single line text message to be displayed. -'* TopLine - Screen Y coordinate to be the top line for the displayed -'* text message. -'* ImageArray() - Image array holding the character set to be used. Each -'* character must be a 16x8 image and be in the standard -'* ASCII order, starting with the space character. -'* IndexArray() - Index array for the character images in ImageArray(). -'* -SUB WizzText (Text$, TopLine, ImageArray(), IndexArray()) - -'Calculate X coordinate for first character. -MessLen = LEN(Text$) -HomeX = (320 - (MessLen * 16)) \ 2 - -'Loop to display each character of Text$. -FOR n = 1 TO MessLen - x$ = MID$(Text$, n, 1) - - 'Ignore space characters. - IF x$ <> CHR$(32) THEN - CharIdx = IndexArray(ASC(x$) - 31) - OldX = 304 - - 'Move character across the screen to destination position. - FOR x = 304 TO HomeX STEP -8 - WAIT &H3DA, &H8, &H8: WAIT &H3DA, &H8 - LINE (OldX, TopLine)-STEP(15, 7), 0, BF - PUT (x, TopLine), ImageArray(CharIdx), PSET - OldX = x - NEXT x - END IF - - HomeX = HomeX + 16 -NEXT n - -END SUB - diff --git a/programs/samples/pete/qbb.bas b/programs/samples/pete/qbb.bas deleted file mode 100644 index 28b80181a..000000000 --- a/programs/samples/pete/qbb.bas +++ /dev/null @@ -1,936 +0,0 @@ -' QBasic Beautifier by Kewbie_newbie, found at Aliphas page -' -' THIS PROGRAM USED FEATURES AVAILABLE ONLY IN QuickBasic 7.1 (as far as -' I know) (Tested in Qb 4.5 by Antoni Gual) -' -' The 'Quick Basic Beautifier' program performs the following actions: -' -' 1. Indents program lines according to control flow structures -' 2. Removes stupid, useless, unnecessary 'LET' statements (unless -' overridden) -' 3. Changes 'REM' keyword to ' (unless overridden) -' 4. Optionally re-aligns trailing comments -' 5. Optionally removes all comments -' 6. Optionally allows a left margin and/or line length to be set (for -' output to a printer, perhaps -' -' Quick Basic Beautifier -' -' Usage: -' -' qbb InFile[.Ext] [OutFile[.Ext]] [/C:A|B|#] /F [/L] [/M:#[,#]] [/R:?] [/T:#] -' [/Q] -' -' File extentions are optional. If the InFile extension is omitted, -' 'BAS' is assumed. If the OutFile extension is omitted, 'QBB' is -' assumed. If the OutFile is omitted, 'InFile.QBB' is assumed. -' If the OutFile starts with a '.', OutFile will being 'InFile.'. -' -' The colons on the switches are optional. Switches are not case sensitive -' -' /C:A|B|T - move trailing comments to the line above or below. -' Default = leave trailing -' /C:# - align trailing comments to column # -' (See note below) -' /F - include OPEN/CLOSE in nesting -' (a word of caution: MOST of the time, you probably will NOT -' be happy with the results of using this switch) -' /L - do not remove useless 'LET' statements. -' Default = whack 'em -' /M:#[,#] - left Margin width [and line length] (possibly to format -' output for a printer -- see note below) -' Default = leave as is -' /R:? - controls comment keyword. -' ' - use ' keyword (default) -' N - do not change keyword -' D - delete all comments -' /S:L - keep only 'looping' statements on a single line -' ('LOOPING' mode - see note below) -' /S:# - controls handling of multi-statement lines -' # is the number of statements to keep on a line -' Default = 0 (no multi-statement line splitting) -' 1 = put every statement on a separate line -' 2 - infinity = leave up to 'n' statements on a line -' (see note below) -' /T:# - # is the number of columns per tab. -' Default = 2 columns -' /Q - quiet mode, no info or pause to reflect, just do it -' -' Notes: -' -' The input to QBB must be parsable by qbasic, and the keywords must be -' in upper case. If you download something that was entered in lower -' case, load and save it with qbasic first to adjust the case of the -' keywords -' -' I have included a new feature in this version: if there is a particular -' sequence of switches that you always use, say "/T3 /C40 /Q", you can -' set the environment variable "QBBOPT" to specify those switches and -' QBB will operate as if those switches had been specified at invocation. -' These default settings can be overridden. Simply specify a new value -' on the command line when invoking QBB. The /F /L and /Q switches -' act as toggles, so to turn off /Q in the above example, to turn quiet -' mode OFF, you would invoke QBB with "QBB infile.bas outfile.qbb /Q". -' And of course you can add additional switches if you need to -' -' The input and output files can not be the same. QBB checks for this -' and wont allow it -' -' If a comment column is specified and a line is too long, the trailing -' comment will be separated from the end of the line by one space -' -' If a line length is specified (with or without a margin), comment -' alignment is forced to "ABOVE". It just made things easier. Also, -' the output will almost certainly not interpret or compile properly, -' I added this feature only because a printer I sometimes use doesn't -' wrap long lines to the next line, it truncates them! (I use it be- -' cause it's FAST. A couple of people have asked me 'How fast?'. It -' was a laser printer that was channel attached to an IBM mainframe, -' and at a guess, I'd say it printed 80 to 100 pages a minute. All I -' can tell you is that the paper went by too fast for me to be able -' to read. Alas, it wasn't being used enough to justify keeping it, -' so it was taken away :(..... ) -' -' Qbasic breaks long program lines into shorter pieces and stores them -' in the source file with a continuation character at the end (" _"). QBB -' concatenates these continued lines together in the output file. The -' first time the program is saved by qbasic, it will store the lines the -' way it was designed to. If you load a source file that has one of -' these long lines and try to compile it under qbasic 4.5 or 7.1 (the -' only ones I've tried, it will fail with 'line too long' errors, and -' other errors probably unrelated to any actual errors in the program. -' To fix this, save the program before compiling -' -' The output is indented the way I like it! -' -' If the /S switch is omitted, or '/S:0' is specified, QBB will handle -' multiple statement lines as it did prior to this version, i.e., not -' very well. Especially if there are embeded structuring keywords. It -' does handle a few common cases -' -' With the addition of the '/S' switch, QBB now handles multiple state- -' ment lines more effectively. There are essentially ?? modes for split- -' ting lines with multiple statments. 'LOOPING' mode causes QBB to -' leave multiple statements on lines that have both a 'DO' and a 'LOOP' -' statement, or 'FOR' and 'NEXT' or 'WHILE' and 'WEND'. -' -' qbasic always seems to move labels to column 1. QBB will indent any -' labels which are placed inside control-flow structures. qbasic will -' move them to column 1 the first time the program is loaded -' -' All three qbasic help files indicate that a label can have blanks -' and tabs between the label and the colon. When such a line is -' added to a program, qbasic moves the colon to the end of the label. -' QBB always places the colon at the end of the label -' -' "NO PROBLEM IS INSOLUBLE IN ALL CONCIEVABLE CIRCUMSTANCES" -' (Cosmic AC in "The Last Question" by Isaac Asimov) - -BeginProgram: - -' This function is executed once at the beginning of the program to determine -' input and output files, and other command line switches described above -' to control source formatting -DECLARE SUB ParseInputParameters () - -' These two functions are used during input parameter parsing for extracting -' file names and parameter values -DECLARE FUNCTION GetParm$ (parm$) -DECLARE FUNCTION GetFile$ () - -' If the user doesn't know what to do, this subroutine will give him/her -' some SIMPLIFIED instructions -DECLARE SUB Usage () - -' All but one of the "do" functions are the handlers for the named qbasic -' program flow keywords. -' Two of these functions handle two keywords: -' doCASEELSE and doFUNCSUB. -' All of these functions deal with input and output via 'global' variables -DECLARE SUB doCASEELSE () -DECLARE SUB doDECLARE () -DECLARE SUB doDEFFN () -DECLARE SUB doDO () ' be careful not to step in it! -DECLARE SUB doENDSEL () -DECLARE SUB doFOR () -DECLARE SUB doFUNCSUB () -DECLARE SUB doIF () -DECLARE SUB doNEXT () -DECLARE SUB doSELECT () -DECLARE SUB doTYPE () -DECLARE SUB doWHILE () - -' This one "do" function does not handle a qbasic keyword. It controls the -' level of indentation by manipulating 'global' variables. It's counter- -' part is "unNest" -DECLARE SUB doNest () -DECLARE SUB unNest () - -' This function takes care of putting the formatted source code to the -' appropriate output device -DECLARE SUB PrintLine (Text$) - -' This function looks for and removes "LET" statements -DECLARE FUNCTION DeLETify$ (Text$) - -' This function looks for comments -DECLARE FUNCTION FindComment% (Text$) - -' This function returns a boolean value to indicate whether or not a given -' token is a qbasic keyword -DECLARE FUNCTION KeyWord% (Text$) - -' This function breaks each line up into individual tokens -DECLARE FUNCTION LocateKeyWord% (Text$, CmntKyWd$) - -' These two functions and a sub form the main loop that reads the input file -' and produces the output file. The functions are both boolean -DECLARE FUNCTION ParseProgramLine% () -DECLARE FUNCTION StructureProgramLine% () -DECLARE SUB PrintProgramLine () - -' This function removes leading whitspace characters from the input source -' lines -DECLARE FUNCTION TrimWhite$ (Text$) - -' This function is simply a loop that reads data into the "Structure$" array -DECLARE SUB SetStructure (Max%) - -' This function is simply a loop that reads data into the "Reserved$" array -DECLARE SUB SetReserved () - -' The following five constants deal with comment handling -CONST CmtABOVE% = -1 -CONST CmtBELOW% = -2 -CONST CmtASIS% = 2 -CONST CmtNONE% = 1 -CONST CmtTICK% = 3 - -' There are twenty-eight program control flow statements handled by QBB -CONST MaxStruct% = 28 - -' This program uses nineteen 'global' variables -' Nine of them are integer variables -DIM SHARED CmtCol% -DIM SHARED CmtKey% -DIM SHARED Length% - -DIM SHARED Margin% -DIM SHARED TabWidth% -DIM SHARED TabLevel% - -DIM SHARED CmtFlag% -DIM SHARED LetFlag% -DIM SHARED PrintFlag% - -' Eight of them are string variables -DIM SHARED Cmd$ ' working copy of COMMAND$ -DIM SHARED Comment$ -DIM SHARED InputStatement$ -DIM SHARED Margin$ -DIM SHARED Statement$ -DIM SHARED TabLevel$ - -DIM SHARED iFile$ -DIM SHARED oFile$ - -DIM SHARED UserNames$ - -' Two of them are string arrays -DIM SHARED Reserved$(ASC("A") TO ASC("Z")) -DIM SHARED Structure$(0 TO MaxStruct%, 1 TO 2) - -' Enough with the preparation stuff, time to start really doing something -CLS : PRINT ' clean up any leftover junk - -ParseInputParameters ' find out what the user wants to do - -ON ERROR GOTO MissingInput ' if the user goofed, try to tell him - ' what he did -OPEN iFile$ FOR INPUT AS #1 ' if you don't know what this does, this - ' program is probably too complex for you -ON ERROR GOTO 0 ' don't try to be too helpful -OPEN oFile$ FOR OUTPUT AS #2 ' ditto input comment - -SetReserved ' populate the reserved word array -SetStructure (MaxStruct%) ' populate the program control keyword/ - ' handler routine array -TabLevel% = 0 ' start out at left margin -TabLevel$ = "" -UserNames$ = " " ' clear the "symbol table" - -' This is the main program loop. It loops through all of the input source -' file lines. Originally, the code for the two functions and subroutine -' was included in this loop. It wasn't a huge loop, but it took more that -' one screen, so I decided to break it down according to what was happen- -' ing functionally. In the original loop, PrintProgramLine was inside -' StructureProgramLine, which was inside ParseProgramLine (as I remember -' it, that is). -DO UNTIL EOF(1) AND InputStatement$ = "" - IF ParseProgramLine% THEN IF StructureProgramLine% THEN PrintProgramLine -LOOP - -' Since the screen was cleared, remind the user of what s/he did -PRINT CURDIR$ + ">" + COMMAND$ -END ' all done - -' Error handling routine for missing input file -MissingInput: -PRINT "Input file not found" -END - -' The following data statements contain all of the reserved words for -' qbasic 1.1, QuickBasic 4.5 and QuickBasic 7.1 -' -ReservedData: -DATA " ABS ABSOLUTE ACCESS ALIAS ALL AND ANY APPEND AS ASC ATN " -DATA " BASE BASIC BEEP BEGINTRANS BINARY BLOAD BOF BSAVE BYVAL " -DATA " CALL CALLS CASE CCUR CDBL CDECL CHAIN CHDIR CHDRIVE CHECKPOINT CINT CIRCLE CLEAR CLNG CLOSE CLS COLOR COM COMMITTRANS COMMON CONST COS CREATEINDEX CSNG CSRLIN CURRENCY CVC CVD CVDMBF CVI CVL CVS CVSMBF " -DATA " DATA DECLARE DEF DEFCUR DEFDBL DEFINT DEFLNG DEFSNG DEFSTR DELETE DELETEINDEX DELETETABLE DIM DO DOUBLE DRAW " -DATA " ELSE ELSEIF END ENDIF ENVIRON EOF EQV ERASE ERDEV ERL ERR ERROR EVENT EXIT EXP " -DATA " FIELD FILEATTR FILES FIX FN FOR FRE FREEFILE FUNCTION " -DATA " GET GO GOSUB GOTO " -DATA " -H- " -DATA " IF IMP INP INPUT INSERT INSTR INT INTEGER INTERRUPT IOCTL IS ISAM " -DATA " -J- " -DATA " KEY KILL " -DATA " LBOUND LEN LET LINE LIST LOC LOCAL LOCATE LOCK LOF LOG LONG LOOP LPOS LPRINT LSET " -DATA " MKDIR MOD MOVEFIRST MOVELAST MOVENEXT MOVEPREVIOUS " -DATA " NAME NEXT NOT " -DATA " OFF ON OPEN OPTION OR OUT OUTPUT " -DATA " PAINT PALETTE PCOPY PEEK PEN PLAY PMAP POINT POKE POS PRESET PRINT PSET PUT " -DATA " -Q- " -DATA " RANDOM RANDOMIZE READ REDIM REM RESET RESTORE RESUME RETRIEVE RETURN RMDIR RND ROLLBACK RSET RUN " -DATA " SADD SAVEPOINT SCREEN SEEK SEEKEQ SEEKGE SEEKGT SEG SELECT SETINDEX SETMEM SGN SHARED SHELL SIGNAL SIN SINGLE SLEEP SOUND SPC SQR SSEG SSEGADD STACK STATIC STEP STICK STOP STRIG STRING SUB SWAP SYSTEM " -DATA " TAB TAN THEN TIMER TO TROFF TRON TYPE " -DATA " UBOUND UEVENT UNLOCK UNTIL UPDATE USING " -DATA " VAL VARPTR VARSEG VIEW " -DATA " WAIT WEND WHILE WIDTH WINDOW WRITE " -DATA " XOR " -DATA " -Y- " -DATA " -Z- " - -' The following data statements are used to build the -' "program control flow keyword/handler function" table -StructureData: -DATA "","NoS" -DATA "DATA" , "NoS" -DATA "END IF" , "unN" -DATA "ELSE" , "doC" -DATA "ELSEIF" , "doC" -DATA "IF" , "doI" -DATA "LOOP" , "unN" -DATA "EXIT DO" , "NoS" -DATA "DO" , "doDO" -DATA "NEXT" , "doN" -DATA "EXIT FOR" , "NoS" -DATA "FOR" , "doFO" -DATA "END SELECT" , "doE" -DATA "SELECT" , "doS" -DATA "CASE" , "doC" -DATA "END TYPE" , "unN" -DATA "TYPE" , "doT" -DATA "END FUNCTION" , "unN" -DATA "EXIT FUNCTION" , "NoS" -DATA "DECLARE FUNCTION" , "doDEC" -DATA "FUNCTION" , "doFU" -DATA "END SUB" , "unN" -DATA "EXIT SUB" , "NoS" -DATA "DECLARE SUB" , "doDEC" -DATA "SUB" , "doFU" -DATA "END DEF" , "unN" -DATA "EXIT DEF" , "NoS" -DATA "DEF FN" , "doDEF" -DATA "WEND" , "unN" -DATA "WHILE" , "doW" - -FUNCTION DeLETify$ (Text$) - Done% = 0 - Work$ = " " + Text$ - - DO - LetLoc% = LocateKeyWord%(Work$, "LET ") - - IF LetLoc% THEN - Work$ = LEFT$(Work$, LetLoc% - 1) + MID$(Work$, LetLoc% + 4) - ELSE - Done% = -1 - END IF - LOOP UNTIL Done% - - DeLETify$ = MID$(Work$, 2) -END FUNCTION - -SUB doCASEELSE - IF LEFT$(Statement$, 4) = "ELSE" OR LEFT$(Statement$, 6) = "ELSEIF" OR LEFT$(Statement$, 4) = "CASE" THEN - IF TabLevel% THEN - unNest - PrintProgramLine - doNest - PrintFlag% = 0 - END IF - END IF -END SUB - -SUB doDECLARE - nSta% = INSTR(10, Statement$, " ") + 1 - nEnd% = INSTR(nSta%, Statement$, " ") - UserNames$ = UserNames$ + MID$(Statement$, nSta%, nEnd% - nSta%) + " " -END SUB - -SUB doDEFFN - IF INSTR(Statement$, "=") = 0 THEN - PrintProgramLine - doNest - PrintFlag% = 0 - END IF -END SUB - -SUB doDO - IF INSTR(Statement$, "LOOP") = 0 THEN - PrintProgramLine - doNest - PrintFlag% = 0 - END IF -END SUB - -SUB doENDSEL - unNest - unNest -END SUB - -SUB doFOR - IF INSTR(Statement$, "NEXT") THEN EXIT SUB - opn% = INSTR(Statement$, "OPEN") - IF opn% AND opn% < INSTR(Statement$, "FOR") THEN EXIT SUB - - PrintProgramLine - doNest - PrintFlag% = 0 -END SUB - -SUB doFUNCSUB - TabLevel$ = "" - PrintProgramLine - TabLevel% = TabWidth% - TabLevel$ = STRING$(TabLevel%, " ") - PrintFlag% = 0 -END SUB - -SUB doIF - IF RIGHT$(Statement$, 4) = "THEN" THEN - PrintProgramLine - doNest - PrintFlag% = 0 - END IF -END SUB - -SUB doNest - TabLevel% = TabLevel% + TabWidth% - TabLevel$ = STRING$(TabLevel%, " ") -END SUB - -SUB doNEXT -' This subroutine is called when QBB encounters the 'NEXT' -' keyword in the source code it's formatting -' It causes the level of indentation to be decreased by the -' appropriate number of tabs - - ' Frankly, I don't know why this check is in here. This - ' subroutine SHOULD only get called when 'NEXT' is found - ' I can only guess that at some point in my 'code as you - ' go' design, I found it necessary to put this here to - ' handle some situation - IF LEFT$(Statement$, 4) = "NEXT" THEN - unNest ' <-- performs the actual indent level adjustment - - ' Check for multi-statement line. I cheated and misused Comma% to save - ' creating an additional variable - Comma% = INSTR(Statement$, ":") - ' Only concerned with commas associated with the 'NEXT' - IF Comma% THEN Text$ = LEFT$(Statement$, Comma% - 1) ELSE Text$ = Statement$ - - ' This loop takes care of programs that do nested - ' FOR/NEXT loops like: - ' FOR Idx = 1 TO 5 - ' FOR Jdx = 1 TO 5 - ' A$(Idx, Jdx) = "" - ' NEXT Jdx, Idx - ' Personally, I never code this way, I prefer to use discrete 'NEXT' - ' statements. - Comma% = INSTR(Text$, ",") ' look for a comma - DO WHILE Comma% ' if none were found, loop is skipped - unNest ' otherwise adjust indent for each var on - ' the 'NEXT' statement. Remember that by - ' the time this loop is reached, the 1st - ' variable is already accounted for - Comma% = INSTR(Comma% + 1, Text$, ",") ' find the next comma - ' 'INSTR' returns zero (false) when it doesn't find the text being - ' searched for, so after the last comma is found, the loop ends - LOOP - END IF -END SUB - -SUB doSELECT - PrintProgramLine - doNest - doNest - PrintFlag% = 0 -END SUB - -SUB doTYPE - PrintProgramLine - doNest - PrintFlag% = 0 -END SUB - -SUB doWHILE - IF LEFT$(Statement$, 5) = "WHILE" THEN - PrintProgramLine - doNest - PrintFlag% = 0 - END IF -END SUB - -FUNCTION FindComment% (Text$) - CmntREM% = LocateKeyWord%(Text$, "REM ") - CmntQUO% = LocateKeyWord%(Text$, "'") - - IF CmntQUO% OR CmntREM% THEN - IF CmntQUO% > 0 AND CmntREM% > 0 THEN - IF CmntQUO% < CmntREM% THEN - FindComment% = CmntQUO% - ELSE - FindComment% = -CmntREM% - END IF - ELSE - FindComment% = CmntQUO% + -CmntREM% - END IF - ELSE - FindComment% = 0 - END IF -END FUNCTION - -FUNCTION GetFile$ -' This function looks for a file name in the command line parameters - - pSpace% = INSTR(Cmd$, " ") ' parms are separated by spaces - ' the input parms are set up so - ' there'll always be a space - File$ = LEFT$(Cmd$, pSpace% - 1) ' get the file name (and possible - ' extension - IF LEFT$(File$, 1) <> "/" THEN ' is it a switch? - Cmd$ = MID$(Cmd$, pSpace% + 1) ' no, so gobble this file name - GetFile$ = File$ ' set the return value - ELSE ' it wasn't a file name, so - GetFile$ = "" ' return null - END IF -END FUNCTION - -FUNCTION GetParm$ (parm$) -' This function returns the value associated with parms passed on the command -' line -' All parameters start with a '/' -' The parm name MAY end with a colon -' The parm value MUST be terminated by a space or newline - pParm% = INSTR(Cmd$, "/" + parm$) - - IF pParm% THEN - pSpace% = INSTR(pParm%, Cmd$, " ") - Temp$ = MID$(Cmd$, pParm% + 2, pSpace% - (pParm% + 2)) - IF LEFT$(Temp$, 1) = ":" THEN Temp$ = MID$(Temp$, 2) - IF Temp$ = "" THEN Temp$ = " " - ELSE - Temp$ = "" - END IF - - GetParm$ = Temp$ -END FUNCTION - -FUNCTION KeyWord% (Text$) - Char% = INSTR(UserNames$, " " + Text$ + " ") <> 0 - - IF NOT Char% THEN - Char% = ASC(Text$) - - IF Char% >= ASC("A") AND Char% <= ASC("Z") THEN - KeyWord% = INSTR(Reserved$(Char%), " " + Text$ + " ") <> 0 - ELSE - KeyWord% = 0 - END IF - ELSE - KeyWord% = -1 - END IF -END FUNCTION - -FUNCTION LocateKeyWord% (Text$, QBKyWd$) - Last% = 0 - Known% = 0 - - DO - QBKeyWd% = INSTR(Last% + 1, Text$, QBKyWd$) - Last% = QBKeyWd% - - IF QBKeyWd% THEN - Done% = 0 - lq% = 0 - DO - fq% = INSTR(lq% + 1, Text$, CHR$(34)) - IF fq% AND fq% < QBKeyWd% THEN ' found ", gotta check - lq% = INSTR(fq% + 1, Text$, CHR$(34)) - IF lq% > QBKeyWd% THEN - QBKeyWd% = 0 - Done% = -1 - END IF - ELSE ' no "s or "s >> ', it's a QBasci KeyWord - Done% = -1 - Known% = -1 - END IF - LOOP UNTIL Done% - ELSE - Known% = -1 - END IF - LOOP UNTIL Known% - - LocateKeyWord% = QBKeyWd% -END FUNCTION - -SUB ParseInputParameters -' This subroutine figures out what the user wants qbb to do for him/her - - Cmd$ = COMMAND$ + " " ' get a working copy of the input parameters, - ' adding a trailing blank - Temp$ = GetFile$ ' the 1st parm is the input file - ' GetFile gobbles file names - IF Temp$ = "" THEN Usage ' if no parms, tell 'em how to use qbb - ' (the program will exit after displaying usage - - iFile$ = Temp$ ' got a good file name so - dot% = INSTR(Temp$, ".") ' look for the extension - - IF dot% <> 0 THEN ' if there was an extension, - Temp$ = LEFT$(Temp$, dot% - 1) ' get the base file name - ELSE - iFile$ = iFile$ + ".bas" ' otherwise add the default input ext - END IF - - oFile$ = Temp$ + ".qbb" ' preset the default output file name, - ' just in case it wasn't given - oName$ = Temp$ ' save the base name, just in case only - ' an extension is given - Temp$ = GetFile$ ' see if an output file was given - IF Temp$ <> "" THEN ' if it was, - oFile$ = Temp$ ' set the output file name - END IF - dot% = INSTR(oFile$, ".") ' look for the extension - IF dot% = 0 THEN ' if there wasn't one, - oFile$ = oFile$ + ".qbb" ' add the default - ELSEIF dot% = 1 THEN ' but if ONLY an extension was given - oFile$ = oName$ + oFile$ ' make the name the input file base name - END IF ' and the output file extension - - ' make sure that two different files were specified for input and output - IF UCASE$(iFile$) = UCASE$(oFile$) THEN - PRINT "The output file can not be the same as the input file." - END - END IF - - ' now start parsing the rest of the input parameters (switches) - - ' The comment switch /C[:#]: - Temp$ = GetParm$("C") - IF LEFT$(Temp$, 1) < "A" THEN - CmtCol% = VAL(Temp$) - ELSE - CmtCol% = (ASC("A") - 1) - ASC(Temp$) - END IF - IF CmtCol% < CmtBELOW% THEN CmtCol% = 0 - CmtCol$ = LEFT$(Temp$, 1) - - '/L: - LetFlag% = GetParm$("L") = "" - - '/M:#[,#] - Temp$ = GetParm("M") - IF Temp$ <> "" THEN - Comma% = INSTR(Temp$, ",") - IF Comma% THEN - Margin% = VAL(LEFT$(Temp$, Comma% - 1)) - Length% = VAL(MID$(Temp$, Comma% + 1)) - ELSE - Margin% = VAL(Temp$) - Length% = 0 - END IF - ELSE - Margin% = 0 - Length% = 0 - END IF - IF Length% <= 0 THEN - Length% = 0 - ELSE - CmtCol% = CmtABOVE% - CmtCol$ = "A" - END IF - IF Margin% < 0 THEN Margin% = 0 - Margin$ = SPACE$(Margin%) - - '/R:?: - Temp$ = GetParm("R") - IF Temp$ <> "" THEN CmtKey% = INSTR("DN'", GetParm("R")) ELSE CmtKey% = CmtTICK% - - '/T:#: - TabWidth% = VAL(GetParm$("T")) - IF TabWidth% < 1 THEN TabWidth% = 2 - IF TabWidth% > 12 THEN TabWidth% = 12 - - IF GetParm("Q") <> " " THEN ' if a stand-alone parameter (/q) is entered - IF CmtCol% >= 0 THEN ' GetParm returns a space, otherwise a null $ - CmtCol$ = LTRIM$(STR$(CmtCol%)) - ELSEIF CmtCol$ = "A" THEN - CmtCol$ = "ABOVE" - ELSE - CmtCol$ = "BELOW" - END IF - - DIM CmtKey$(1 TO 3) - - CmtKey$(1) = "REMove" - CmtKey$(2) = "LEAVE 'AS IS'" - CmtKey$(3) = "CONVERT REM TO '" - - IF Length% > 0 THEN Length$ = "" ELSE Length$ = " (FULL LENGTH)" - - IF LetFlag% THEN LetFlag$ = "TRUE" ELSE LetFlag$ = "FALSE" - - PRINT " input file: '"; UCASE$(iFile$); "'" - PRINT "output file: '"; UCASE$(oFile$); "'" - PRINT "comment col: "; CmtCol$ - PRINT "comment key: "; CmtKey$(CmtKey%) - PRINT "line length:"; Length%; Length$ - PRINT " margin:"; Margin% - PRINT "remove LETs: "; LetFlag$ - PRINT " tab width:"; TabWidth% - PRINT - - Temp$ = "" - PRINT "Proceed (Y/N)? ===> "; - WHILE Temp$ = "": Temp$ = UCASE$(INKEY$): WEND - PRINT Temp$ - IF Temp$ <> "Y" THEN END - END IF -END SUB - -FUNCTION ParseProgramLine% - - PrintFlag% = -1 - - IF InputStatement$ = "" THEN - LINE INPUT #1, InputStatement$ - DO WHILE RIGHT$(InputStatement$, 2) = " _" - LINE INPUT #1, Continue$ - InputStatement$ = LEFT$(InputStatement$, LEN(InputStatement$) - 1) + TrimWhite$(Continue$) - LOOP - InputStatement$ = TrimWhite$(InputStatement$) 'get rid of any existing indentation - END IF - - ColonLoc% = LocateKeyWord%(InputStatement$, ":") - - IF ColonLoc% = 0 OR LEFT$(InputStatement$, 3) = "IF " OR LEFT$(InputStatement$, 1) = "'" OR LEFT$(InputStatement$, 7) = "ELSEIF " OR LEFT$(InputStatement$, 4) = "REM " THEN - Statement$ = InputStatement$ - InputStatement$ = "" - ELSE - Statement$ = TrimWhite$(LEFT$(InputStatement$, ColonLoc% - 1)) - InputStatement$ = TrimWhite$(MID$(InputStatement$, ColonLoc% + 1)) - - PRINT - PRINT ColonLoc% - PRINT Statement$ - PRINT InputStatement$ - 'WHILE INKEY$ = "": WEND - END IF - - Comment$ = "" - Cmnt% = FindComment%(Statement$) ' look for comments - CmtFlag% = ABS(Cmnt%) = 1 - - IF CmtFlag% AND CmtKey% = CmtNONE% THEN - PrintFlag% = 0 - ELSE - IF Cmnt% THEN ' there's a comment - RemFlag% = Cmnt% < 0 - Cmnt% = ABS(Cmnt%) - - IF CmtKey% <> CmtNONE% THEN - Comment$ = MID$(Statement$, Cmnt%) - IF RemFlag% AND CmtKey% <> CmtASIS% THEN Comment$ = "'" + MID$(Comment$, 4)' convert "REM" to "'" - IF Cmnt% = 1 THEN - Statement$ = Comment$ - Comment$ = "" - Cmnt% = LEN(Statement$) + 1 - END IF - END IF - ELSE - Cmnt% = LEN(Statement$) + 1 - END IF - - Statement$ = RTRIM$(LEFT$(Statement$, Cmnt% - 1)) - DO WHILE RIGHT$(Statement$, 1) = ":" - Statement$ = RTRIM$(LEFT$(Statement$, LEN(Statement$) - 1)) - LOOP - IF Statement$ <> "" AND LEFT$(Statement$, 1) <> "'" AND INSTR(Statement$, " ") = 0 THEN IF NOT KeyWord%(Statement$) THEN Statement$ = Statement$ + ":" - END IF - - ParseProgramLine% = PrintFlag% -END FUNCTION - -SUB PrintLine (Text$) - CmntKey$ = LEFT$(Text$, 3) - IF CmntKey$ = "REM" OR LEFT$(CmntKey$, 1) = "'" THEN - IF LEFT$(CmntKey$, 1) = "'" THEN CmntKey$ = "'" - ELSE - CmntKey$ = "" - END IF - CmntSplit$ = "" - - MinLen% = LEN(Margin$ + TabLevel$) + 1 - - IF Length% = 0 THEN - PRINT #2, Margin$ + TabLevel$ + Text$ - ELSE - IF Text$ = "" THEN Text$ = " " ' allows printing of blank lines - DO UNTIL Text$ = "" - Text$ = Margin$ + TabLevel$ + CmntSplit$ + Text$ - split% = LEN(Text$) + 1 - IF split% >= Length% THEN - FOR split% = Length% TO 1 STEP -1 - IF MID$(Text$, split%, 1) = " " THEN EXIT FOR - NEXT split% - END IF - IF split% < MinLen% THEN - split% = INSTR(split% + 1, Text$, " ") - IF split% = 0 THEN split% = LEN(Text$) + 1 - END IF - PRINT #2, LEFT$(Text$, split% - 1) - Text$ = MID$(Text$, split% + 1) - CmntSplit$ = CmntKey$ - LOOP - END IF -END SUB - -SUB PrintProgramLine - IF Comment$ <> "" AND CmtCol% >= 0 THEN Comment$ = " " + Comment$ - - SELECT CASE CmtCol% - CASE IS >= 0 - sLen% = LEN(Statement$) - IF sLen% < CmtCol% THEN Statement$ = Statement$ + SPACE$(CmtCol% - sLen%) - PrintLine (Statement$ + Comment$) - CASE CmtABOVE% - IF NOT CmtFlag% AND Comment$ <> "" THEN PrintLine (Comment$) - PrintLine (Statement$) - CASE CmtBELOW% - PrintLine (Statement$) - IF NOT CmtFlag% AND Comment$ <> "" THEN PrintLine (Comment$) - END SELECT -END SUB - -SUB SetReserved - RESTORE ReservedData - - FOR Reserved% = ASC("A") TO ASC("Z") - READ Reserved$(Reserved%) - NEXT -END SUB - -SUB SetStructure (Max%) - RESTORE StructureData - - FOR Mdx% = 0 TO Max% - READ Kwd$, Routine$ - Structure$(Mdx%, 1) = Kwd$ - Structure$(Mdx%, 2) = Routine$ - NEXT Mdx% -END SUB - -FUNCTION StructureProgramLine% - StructureProgramLine% = -1 ' preset for no keyword found - IF NOT CmtFlag% THEN ' if it's not a full line comment - IF LetFlag% THEN Statement$ = DeLETify$(Statement$) ' suppress useless "LET"statements - - ' DEF FNx does not follow the rules, so... - IF INSTR(" " + UCASE$(Statement$), " " + "DEF FN") THEN - Structure% = 26 - ELSE - FOR Structure% = 1 TO MaxStruct% ' check for structuring stmts - IF INSTR(" " + Statement$ + " ", " " + Structure$(Structure%, 1) + " ") THEN EXIT FOR - IF INSTR(" " + Statement$ + ":", " " + Structure$(Structure%, 1) + ":") THEN EXIT FOR - NEXT Structure% - END IF - IF Structure% > MaxStruct% THEN Structure% = 0 - - SELECT CASE Structure$(Structure%, 2) - CASE "NoS": EXIT FUNCTION - CASE "unN": unNest - CASE "doI": doIF - CASE "doDO": doDO - CASE "doC": doCASEELSE - CASE "doFO": doFOR - CASE "doN": doNEXT - CASE "doFU": doFUNCSUB - CASE "doS": doSELECT - CASE "doE": doENDSEL - CASE "doT": doTYPE - CASE "doDEF": doDEFFN - CASE "doW": doWHILE - CASE "doDEC": doDECLARE - END SELECT - END IF - - StructureProgramLine% = PrintFlag% -END FUNCTION - -FUNCTION TrimWhite$ (Text$) - FOR tdx% = 1 TO LEN(Text$) - IF MID$(Text$, tdx%, 1) > " " THEN EXIT FOR - NEXT tdx% - - TrimWhite$ = MID$(Text$, tdx%) -END FUNCTION - -SUB unNest -IF LEFT$(Statement$, 6) = "END IF" OR LEFT$(Statement$, 4) = "LOOP" THEN GOTO inside -IF LEFT$(Statement$, 4) = "NEXT" OR LEFT$(Statement$, 4) = "CASE" THEN GOTO inside -IF LEFT$(Statement$, 4) = "ELSE" OR LEFT$(Statement$, 12) = "END FUNCTION" THEN GOTO inside -IF LEFT$(Statement$, 7) = "END SUB" OR LEFT$(Statement$, 10) = "END SELECT" THEN GOTO inside -IF LEFT$(Statement$, 4) = "WEND" THEN GOTO inside -IF LEFT$(Statement$, 8) = "END TYPE" OR LEFT$(Statement$, 7) = "END DEF" THEN GOTO inside -GOTO outside -inside: - IF TabLevel% THEN - TabLevel% = TabLevel% - TabWidth% - TabLevel$ = STRING$(TabLevel%, " ") - END IF -outside: - -END SUB - -SUB Usage - CLS - PRINT " Quick Basic Beautifier" - PRINT - PRINT "Usage:" - PRINT - PRINT " qbb InFile[.Ext] [OutFile[.Ext]] [/C:A|B|#] [/L] [/M:#[,#]] [/R:?] [/T:#] [/Q]" - PRINT - PRINT " File extentions are optional. If the InFile extension is omitted," - PRINT " 'BAS' is assumed. If the OutFile extension is omitted, 'QBB' is" - PRINT " assumed. If the OutFile is omitted, 'InFile.QBB' is assumed." - PRINT " If the OutFile starts with a '.', OutFile will end up being" - PRINT " 'InFile.'." - PRINT - PRINT " The colons on the switches are optional. See the internal comments" - PRINT " for documentation on the switches." - - END -END SUB - diff --git a/programs/samples/pete/rats1.bas b/programs/samples/pete/rats1.bas deleted file mode 100644 index c95b3b809..000000000 --- a/programs/samples/pete/rats1.bas +++ /dev/null @@ -1,103 +0,0 @@ -'Program (c) T.A.Giles - Mar 2001 -'Right Angle Triangle Solver v 1.1 -'640 x 480 graphics resolution -SCREEN 12 -start: -CLS -'degrees - radians conversion ratios -LET dr = .0174532925199# -LET rd = 57.2957795131# -LOCATE 1, 34 -COLOR 7 -PRINT "Right Angle Triangle Solver v 1.1 (c) T.A.Giles" -'Draw Triangle -LINE (50, 400)-(400, 400), 2 'Side A -LINE (400, 400)-(400, 150), 2 'Side B -LINE (400, 150)-(50, 400), 2 'Side C -LINE (360, 400)-(360, 360), 2 'Vert box -LINE (360, 360)-(400, 360), 2 'Hori box -'Print Side and Angle labels -COLOR 3 -LOCATE 27, 27 -PRINT "Side A" -LOCATE 18, 53 -PRINT "Side B" -LOCATE 16, 23 -PRINT "Side C" -LOCATE 24, 15 -COLOR 14 -PRINT "Angle b" -LOCATE 14, 43 -PRINT "Angle a" -COLOR 15 -lab0: -'Re-set print position for output -LOCATE 1, 1 -LET f = 0' Binary flag -'Input data routine -PRINT "Enter '0' if unknown" -INPUT "Side A "; a -INPUT "Side B "; b -INPUT "Side C "; c -INPUT "Angle a (deg)"; x -INPUT "Angle b (deg)"; y -'Error trapping routine -IF a < 0 OR b < 0 OR c < 0 OR x < 0 OR y < 0 THEN GOTO err1 -IF x >= 90 OR y >= 90 OR x + y > 90 THEN GOTO err1 -IF a >= c AND c > 0 OR b >= c AND c > 0 THEN GOTO err1 -IF a > 0 AND b > 0 AND c > 0 AND NOT c = SQR(a ^ 2 + b ^ 2) THEN GOTO err1 -IF NOT x = 0 THEN LET y = 90 - x -'Degrees to Radians conversion -LET x = x * dr -LET y = y * dr -'Binary flag routine -IF a = 0 THEN LET f = f + 1 -IF b = 0 THEN LET f = f + 2 -IF c = 0 THEN LET f = f + 4 -IF y = 0 THEN LET f = f + 8 -IF f = 1 OR f = 3 THEN GOTO lab1 -IF f = 2 OR f = 6 THEN GOTO lab2 -IF f = 4 OR f = 5 THEN GOTO lab3 -IF f = 8 OR f = 9 THEN GOTO lab4 -IF f = 10 THEN GOTO lab5 -IF f = 12 THEN GOTO lab6 -err1: -SOUND 750, 1 -GOTO lab0 -lab1: -LET a = c * COS(y) -LET b = c * SIN(y) -LET c = a / COS(y) -GOTO lab9 -lab2: -LET b = a * TAN(y) -LET c = a / COS(y) -GOTO lab9 -lab3: -LET a = b / TAN(y) -LET c = a / COS(y) -GOTO lab9 -lab4: -LET a = SQR(c ^ 2 - b ^ 2) -LET y = ATN(b / a) -GOTO lab9 -lab5: -LET b = SQR(c ^ 2 - a ^ 2) -LET y = ATN(b / a) -GOTO lab9 -lab6: -LET y = ATN(b / a) -LET c = a / COS(y) -lab9: -'Output routine -LOCATE 1, 1 -PRINT " ........ SOLUTION ........" -PRINT " Side A = "; a -PRINT " Side B = "; b -PRINT " Side C = "; c -PRINT " Angle a (deg) = "; 90 - y * rd -PRINT " Angle b (deg) = "; y * rd -PRINT " Area of Triangle = "; (a * b) / 2 -LOCATE 29, 1 -INPUT "Ctrl+Break > EXIT : Enter > MORE"; x -GOTO start \ No newline at end of file diff --git a/programs/samples/pete/raytra1b.bas b/programs/samples/pete/raytra1b.bas deleted file mode 100644 index 1f796c703..000000000 --- a/programs/samples/pete/raytra1b.bas +++ /dev/null @@ -1,176 +0,0 @@ -'Pure QB Realtime Raytracer Demo -'Translated to/optimized for QB by Antoni Gual agual@eic.ictnet.es -'The original was written in C by Texel, a Spanish demo coder. -'It will not work in the IDE due to integer overflow errors. -'Compile with QB 4.0 or QB4.5 + ffix. It does 12.5 fps in my P4 1,4. -'The C version (DOS protected mode, DJGPP) does 50 fps :( - -'DECLARE SUB ffix -'ffix -CONST objnum = 4 - -DIM n AS INTEGER, K AS INTEGER, OBJMIN AS INTEGER, OBJMIN2 AS INTEGER -DIM OBJ(objnum) AS INTEGER, l AS INTEGER, posi AS INTEGER, POS2 AS INTEGER -DIM s AS INTEGER, t(8200) AS INTEGER, XX AS INTEGER, YY AS INTEGER, XQ AS INTEGER -DIM YQ AS INTEGER, mmmm AS INTEGER, xx1 AS INTEGER, yy1 AS INTEGER -DIM t2(8200) AS INTEGER, ipos AS INTEGER - -DIM A(objnum) AS SINGLE, B(objnum) AS SINGLE, C(objnum) AS SINGLE -DIM R(objnum) AS SINGLE - - SCREEN 13 - DEF SEG = &HA000 - 'Cambiar la paleta a tonos de azul - OUT &H3C8, 0' - FOR n = 0 TO 127 - OUT &H3C9, 0 - OUT &H3C9, INT(n / 4) - OUT &H3C9, INT(n / 2) - NEXT - FOR n = 0 TO 127 - OUT &H3C9, INT(n / 2) - OUT &H3C9, INT(31 + n / 4) - OUT &H3C9, 63 - NEXT - D = 230 - l = 0 - - 'four objects - OBJ(0) = 0: A(0) = -50 + l: B(0) = 0: C(0) = -100: R(0) = -55 * 55 - OBJ(1) = 0: A(1) = 50 - l: B(1) = -25: C(1) = -120: R(1) = -55 * 55 - OBJ(2) = 0: A(2) = 0: B(2) = 500: C(2) = -220: R(2) = -500! * 500 - OBJ(3) = 1: A(3) = 60: B(3) = -35: C(3) = -30 - - tt! = TIMER - FOR l = 0 TO 199 - - A(0) = -50 + l - A(1) = 50 - l - posi = 400 - mmmm = -1 - 'calculamos uno de cada 4 pixels a buffer t() - FOR Y = -40 TO 39 STEP 2 - FOR X = -80 TO 79 STEP 2 - X0 = X - Y0 = Y - GOSUB raytrace - t(posi) = COL - posi = posi + 1 - NEXT - NEXT - posi = 482 - POS2 = 0 - 'calculamos pixels restantes, interpolando si podemos - FOR YQ = 6 TO 43 - FOR XQ = 2 TO 77 - 'interpolar - IF t2(posi) = t2(posi + 1) AND t2(posi) = t2(posi + 80) AND t2(posi) = t2(posi + 81) THEN - ipos = (YQ * 1280 + (XQ * 4)) - FOR YY = 0 TO 3 - FOR XX = 0 TO 3 - POKE ipos, (YY * (t(posi + 80) * (4 - XX) + t(posi + 81) * XX) + (t(posi) * (4 - XX) + t(posi + 1) * XX) * (4 - YY)) \ 16 - ipos = ipos + 1 - NEXT - ipos = ipos + 316 - NEXT - 'no interpolar - ELSE - mmmm = 0 - FOR yy1 = 0 TO 3 - FOR xx1 = 0 TO 3 - IF xx1 OR yy1 THEN - X0 = (-160 + XQ * 4 + xx1) / 2 - Y0 = (-100 + YQ * 4 + yy1) / 2 - GOSUB raytrace - POKE (YQ * 4 + yy1) * 320 + XQ * 4 + xx1, COL - ELSE - POKE YQ * 1280 + XQ * 4, t(posi) - END IF - NEXT - NEXT - END IF - posi = posi + 1 - NEXT - posi = posi + 4 - NEXT - IF LEN(INKEY$) THEN EXIT FOR - NEXT - COLOR 255: PRINT l / (TIMER - tt!) - KK$ = INPUT$(1) -END - -raytrace: - Z0 = 0 - MD = 1 / SQR(X0 * X0 + Y0 * Y0 + D * D) - X1 = X0 * MD - Y1 = Y0 * MD - Z1 = -(D + Z0) * MD - K = 0 - COL = 0 - OBJMIN = objnum - IF mmmm THEN t2(posi) = objnum - DO - TMIN = 327680 - FOR n = 0 TO 2 - IF OBJ(n) = 0 AND (OBJ(n) <> OBJMIN) THEN - A0 = A(n) - X0 - B0 = B(n) - Y0 - C0 = C(n) - Z0 - TB = A0 * X1 + B0 * Y1 + C0 * Z1 - RZ = TB * TB - A0 * A0 - B0 * B0 - C0 * C0 - IF RZ >= R(n) THEN - TN = TB - SQR(RZ - R(n)) - IF TN < TMIN AND TN > 0 THEN TMIN = TN: OBJMIN2 = n - END IF - END IF - NEXT - OBJMIN = OBJMIN2 - IF TMIN < 327680 AND (OBJ(OBJMIN) = 0) THEN - IF mmmm THEN t2(posi) = t2(posi) * K * objnum * 3 + OBJMIN - X0 = X0 + X1 * TMIN - Y0 = Y0 + Y1 * TMIN - Z0 = Z0 + Z1 * TMIN - NX = X0 - A(OBJMIN) - NY = Y0 - B(OBJMIN) - NZ = Z0 - C(OBJMIN) - CA = 2 * (NX * X1 + NY * Y1 + NZ * Z1) / (NX * NX + NY * NY + NZ * NZ + 1) - X1 = X1 - NX * CA - Y1 = Y1 - NY * CA - Z1 = Z1 - NZ * CA - A2 = A(3) - X0 - B2 = B(3) - Y0 - C2 = C(3) - Z0 - MV = 1 / SQR(A2 * A2 + B2 * B2 + C2 * C2) - A2 = A2 * MV - B2 = B2 * MV - C2 = C2 * MV - s = 0 - FOR n = 0 TO 2 - IF OBJ(n) = 0 AND NOT s THEN - A0 = X0 - A(n) - B0 = Y0 - B(n) - C0 = Z0 - C(n) - TB = A2 * A0 + B2 * B0 + C2 * C0 - RZ = TB * TB - A0 * A0 - B0 * B0 - C0 * C0 - IF RZ >= R(n) AND TB < 0 THEN s = -1: IF mmmm THEN t2(posi) = t2(posi) * 32 - END IF - NEXT - IF NOT s THEN - IF mmmm THEN t2(posi) = t2(posi) + 1 - col2 = X1 * A2 + Y1 * B2 + Z1 * C2 - IF col2 < 0 THEN col2 = 0 - cc = col2 * col2 - col2 = cc * cc - MV = SQR(NX * NX + NY * NY + NZ * NZ) - 'IF COL2 < 0 THEN COL2 = 0 - col2 = col2 + (NX * A2 + NY * B2 + NZ * C2) / MV - IF col2 < 0 THEN col2 = 0 - COL = COL + col2 / ((K + 1) * (K + 1) * 2) - IF COL > 1 THEN COL = 1 - END IF - K = K + 1 - END IF - LOOP WHILE TMIN < 327680 AND K <= 2 - IF K = 0 THEN COL = 50 ELSE COL = COL * 255 -RETURN - diff --git a/programs/samples/pete/rect2.bas b/programs/samples/pete/rect2.bas deleted file mode 100644 index 87e2e4088..000000000 --- a/programs/samples/pete/rect2.bas +++ /dev/null @@ -1,92 +0,0 @@ -SCREEN 12 -title: -CLS -LOCATE 15, 25 -PRINT "Welcome to Square Counter 2" -LOCATE 16, 23 -PRINT "Press 's' for counting squares only." -LOCATE 17, 23 -PRINT "Press 'r' for counting rectangles." -LOCATE 18, 23 -PRINT "Press 'i' for explanation." -LOCATE 19, 23 -PRINT "Press 'x' to quit." -DO -key$ = INKEY$ -LOOP UNTIL key$ = "s" OR key$ = "r" OR key$ = "x" OR key$ = "i" -SELECT CASE key$ - CASE IS = "s" - GOSUB squares - CASE IS = "r" - GOSUB rectangles - CASE IS = "i" - GOSUB explain - CASE IS = "x" - GOSUB ending -END SELECT - -squares: -CLS -oldxsquare = 0 -xsquare = 0 -LOCATE 15, 25 -INPUT "Enter the length of a side:", x -LOCATE 16, 25 -INPUT "Enter the length of other side:", y -x = x + 1 -y = y + 1 -DO -oldxsquare = xsquare -x = x - 1 -y = y - 1 -xsquare = x * y -xsquare = xsquare + oldxsquare -LOOP UNTIL x = 1 OR y = 1 -LOCATE 17, 24 -PRINT xsquare -SLEEP -GOSUB title - -rectangles: -CLS -oldxsquare2 = 0 -xsquare2 = 0 -LOCATE 15, 25 -INPUT "Enter the length of a side:", x2 -LOCATE 16, 25 -INPUT "Enter the length of other side:", y2 -x2 = x2 + 1 -y2 = y2 + 1 -DO -oldxsquare2 = xsquare2 -x2 = x2 - 1 -y2 = y2 - 1 -xy = x2 + y2 -xsquare2 = x2 * y2 * (xy / 2) -xsquare2 = xsquare2 + oldxsquare2 -LOOP UNTIL x2 = 1 OR y2 = 1 -LOCATE 17, 24 -PRINT xsquare2 -SLEEP -GOSUB title - -explain: -CLS -LOCATE 5, 5 -PRINT " This is a program used to count squares or rectangles for" -PRINT " people who don't want to waste their time on solving annoying" -PRINT " long puzzles where they need to count how many squares or rectangles" -PRINT " are in a certain grid. NOTE: A 3 by 3 grid don't just have 9, it also" -PRINT " count the bigger ones (like the grid itself). So a 3 by 3 have 14" -PRINT " squares in total." -SLEEP -GOSUB title - -ending: -CLS -LOCATE 1, 1 -PRINT " I hope this will help with your puzzles." -PRINT " Please give me comments on this." -PRINT "" -PRINT " By Paulunknown, creator of 'Zodiac'" -END \ No newline at end of file diff --git a/programs/samples/pete/rectong/gfx/ball00.rec b/programs/samples/pete/rectong/gfx/ball00.rec deleted file mode 100644 index 07da7269c..000000000 --- a/programs/samples/pete/rectong/gfx/ball00.rec +++ /dev/null @@ -1 +0,0 @@ -       \ No newline at end of file diff --git a/programs/samples/pete/rectong/gfx/ball01.rec b/programs/samples/pete/rectong/gfx/ball01.rec deleted file mode 100644 index 590195317..000000000 --- a/programs/samples/pete/rectong/gfx/ball01.rec +++ /dev/null @@ -1 +0,0 @@ -         \ No newline at end of file diff --git a/programs/samples/pete/rectong/gfx/butt01.rec b/programs/samples/pete/rectong/gfx/butt01.rec deleted file mode 100644 index 1ba7a5a22..000000000 Binary files a/programs/samples/pete/rectong/gfx/butt01.rec and /dev/null differ diff --git a/programs/samples/pete/rectong/gfx/butt02.rec b/programs/samples/pete/rectong/gfx/butt02.rec deleted file mode 100644 index e6c7997f7..000000000 Binary files a/programs/samples/pete/rectong/gfx/butt02.rec and /dev/null differ diff --git a/programs/samples/pete/rectong/gfx/butt03.rec b/programs/samples/pete/rectong/gfx/butt03.rec deleted file mode 100644 index 6c9c268dc..000000000 Binary files a/programs/samples/pete/rectong/gfx/butt03.rec and /dev/null differ diff --git a/programs/samples/pete/rectong/gfx/butt04.rec b/programs/samples/pete/rectong/gfx/butt04.rec deleted file mode 100644 index b8e695430..000000000 Binary files a/programs/samples/pete/rectong/gfx/butt04.rec and /dev/null differ diff --git a/programs/samples/pete/rectong/gfx/palette.pal b/programs/samples/pete/rectong/gfx/palette.pal deleted file mode 100644 index 0940b6135..000000000 Binary files a/programs/samples/pete/rectong/gfx/palette.pal and /dev/null differ diff --git a/programs/samples/pete/rectong/gfx/title01.pal b/programs/samples/pete/rectong/gfx/title01.pal deleted file mode 100644 index 412361819..000000000 Binary files a/programs/samples/pete/rectong/gfx/title01.pal and /dev/null differ diff --git a/programs/samples/pete/rectong/gfx/title01.rec b/programs/samples/pete/rectong/gfx/title01.rec deleted file mode 100644 index 0610880df..000000000 Binary files a/programs/samples/pete/rectong/gfx/title01.rec and /dev/null differ diff --git a/programs/samples/pete/rectong/readme.txt b/programs/samples/pete/rectong/readme.txt deleted file mode 100644 index e1466cd61..000000000 --- a/programs/samples/pete/rectong/readme.txt +++ /dev/null @@ -1,13 +0,0 @@ -Rectong v1.0 by Mike Chambers -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - -Just a fun little game I wrote in QuickBasic one night. - -All the control instructions can be found within the game! -You can play 1 player against computer AI, or 2 player -with a friend. - -Enjoy, and please send me your feedback at: half_eaten@yahoo.com - --Mike Chambers -P.S. QuickBasic source is included. \ No newline at end of file diff --git a/programs/samples/pete/rectong/rectong.bas b/programs/samples/pete/rectong/rectong.bas deleted file mode 100644 index 14b1cdadd..000000000 --- a/programs/samples/pete/rectong/rectong.bas +++ /dev/null @@ -1,609 +0,0 @@ -CHDIR ".\programs\samples\pete\rectong" - -DECLARE SUB AdvanceRound () -DECLARE SUB SelectRounds () -DECLARE SUB ShowControls () -DECLARE SUB SelectDifficulty () -DECLARE SUB DoAI () -DECLARE SUB Player1Miss () -DECLARE SUB Player2Miss () -DECLARE SUB MoveBall () -DECLARE SUB LaunchBall () -DECLARE SUB DispStats () -DECLARE SUB DrawBall () -DECLARE SUB StartGame () -DECLARE SUB InitCoord () -DECLARE SUB DrawP2 () -DECLARE SUB DrawP1 () -DECLARE SUB LoadGFX () -DECLARE SUB WipeEffect () -DECLARE SUB Start2P () -DECLARE SUB Start1P () -DECLARE SUB ExitGame () -DECLARE SUB MeltDown () -DECLARE SUB FadePAL255 (fadetype!) -DECLARE SUB CenterText (sline!, Text AS STRING) -DECLARE SUB LoadPAL (filename AS STRING) -DECLARE SUB LoadFullBMP (filename AS STRING) - -DIM SHARED AIserve -DIM SHARED butt(4, 32, 48) -DIM SHARED ball(12, 12) -DIM SHARED buttdir(1) -DIM SHARED balldir(1) -DIM SHARED rounds, cround -DIM SHARED p1score, p2score -DIM SHARED p1(1) -DIM SHARED p2(1) -DIM SHARED ballcor(1) -DIM SHARED players -DIM SHARED hasball -DIM SHARED difflevel - -CLS : SCREEN 13: PALETTE: PALETTE 255, 63 + 256 * 63 + 65536 * 63: COLOR 255 - -LoadGFX - -DO -InitCoord -LoadPAL "gfx\title01.pal" -LoadFullBMP "gfx\title01.rec" -DO: LOOP UNTIL INKEY$ = "" -menusel = 1 -DO -cround = 1 -SELECT CASE menusel -CASE 1 - CenterText 2, CHR$(16) + " 1 Player " - CenterText 4, " 2 Player " - CenterText 6, " Controls " - CenterText 8, " Exit Rectong" -CASE 2 - CenterText 2, " 1 Player " - CenterText 4, CHR$(16) + " 2 Player " - CenterText 6, " Controls " - CenterText 8, " Exit Rectong" -CASE 3 - CenterText 2, " 1 Player " - CenterText 4, " 2 Player " - CenterText 6, CHR$(16) + " Controls " - CenterText 8, " Exit Rectong" -CASE 4 - CenterText 2, " 1 Player " - CenterText 4, " 2 Player " - CenterText 6, " Controls " - CenterText 8, CHR$(16) + " Exit Rectong" -END SELECT - -key$ = INKEY$ -SELECT CASE key$ -CASE CHR$(0) + CHR$(72) 'Up - IF menusel > 1 THEN menusel = menusel - 1 -CASE CHR$(0) + CHR$(80) 'Down - IF menusel < 4 THEN menusel = menusel + 1 -CASE CHR$(13) 'Enter - SELECT CASE menusel - CASE 1 - players = 1: difflevel = 0: SelectDifficulty: IF difflevel = 0 THEN EXIT DO - StartGame - EXIT DO - CASE 2 - players = 2: StartGame: EXIT DO - CASE 3: ShowControls: EXIT DO - CASE 4 - ExitGame - END SELECT -END SELECT -LOOP -LOOP - -SUB AdvanceRound -cround = cround + 1 -IF cround > rounds THEN -CLS -IF p1score > p2score THEN winner = 1 ELSE winner = 2 -IF p1score = p2score THEN winner = -1 -IF winner <> -1 THEN - CenterText 11, "GAME OVER! Player" + STR$(winner) + " is the winner!" -ELSE - CenterText 11, "GAME OVER! Both players tied!" -END IF -CenterText 13, "Press Enter to continue..." -DO: LOOP UNTIL INKEY$ = CHR$(13) -END IF -END SUB - -SUB CenterText (sline, Text AS STRING) -LOCATE sline, 20 - (LEN(Text) / 2) -PRINT Text; -END SUB - -SUB DispStats -LOCATE 25, 1: COLOR 255 -PRINT " 1P:" + LEFT$(STR$(p1score) + " goals ", 8) + SPACE$(4) + "Round:" + STR$(cround) + SPACE$(3) + " 2P:" + LEFT$(STR$(p2score) + " Goals ", 8); -LINE (0, 190)-(320, 190), 255 -END SUB - -SUB DoAI -SELECT CASE hasball -CASE 2 - IF p2(1) < AIserve THEN buttdir(1) = 2 - IF p2(1) > AIserve THEN buttdir(1) = 1 - IF FIX(p2(1)) = FIX(AIserve) THEN buttdir(1) = 0 - ballcor(1) = p2(1) + 24 - ballcor(0) = 280 - EXIT SUB -CASE 1 - EXIT SUB -END SELECT - -'THIS LINE DOES PERFECT AI, JUST FOR DEBUGGING: -'p2(1) = ballcor(1) - 6 - -factor = ABS(ballcor(1) - (p2(1) - 24)) -difficulty = FIX(difflevel - (factor / 50)) -IF difficulty < 0 THEN difficulty = 0 - -IF INT(RND * difficulty) = 0 THEN - IF FIX(p2(1)) + 24 > ballcor(1) THEN buttdir(1) = 1 - IF FIX(p2(1)) + 24 < ballcor(1) THEN buttdir(1) = 2 - IF FIX(p2(1)) + 24 = ballcor(1) THEN buttdir(1) = 0 -ELSE - buttdir(1) = 0 -END IF -END SUB - -SUB DrawBall -FOR y = 1 TO 12 -FOR x = 1 TO 12 - colr = ball(x, y) - 'IF colr <> 4 THEN - PSET (ballcor(0) + x - 6, ballcor(1) + y - 6), colr -NEXT x -NEXT y -LINE (ballcor(0) - 10, ballcor(1) - 13)-(ballcor(0) - 7, ballcor(1) + 15), 0, BF -LINE (ballcor(0) + 7, ballcor(1) - 7)-(ballcor(0) + 10, ballcor(1) + 7), 0, BF -'LINE (ballcor(0) - 7, ballcor(1) - 15)-(ballcor(0) + 7, ballcor(1) - 13), 0, BF -'LINE (ballcor(0) - 7, ballcor(1) + 13)-(ballcor(0) + 7, ballcor(1) + 15), 0, BF -LINE (ballcor(0) - 10, 0)-(ballcor(0) + 10, ballcor(1) - 7), 0, BF -LINE (ballcor(0) - 10, ballcor(1) + 7)-(ballcor(0) + 10, 189), 0, BF -END SUB - -SUB DrawP1 -LINE (0, 0)-(32, p1(1)), 0, BF -LINE (0, p1(1) + 49)-(32, 189), 0, BF -FOR y = 1 TO 48 -FOR x = 1 TO 32 - colr = butt(p1(0), x, y) - 'IF colr <> 4 THEN - PSET (x, y + p1(1)), colr -NEXT x -NEXT y -END SUB - -SUB DrawP2 -LINE (288, 0)-(320, p2(1)), 0, BF -LINE (288, p2(1) + 49)-(320, 189), 0, BF -FOR y = 1 TO 48 -FOR x = 1 TO 32 - PSET (320 - x, y + p2(1)), butt(p2(0), x, y) -NEXT x -NEXT y -END SUB - -SUB ExitGame -SCREEN 0: WIDTH 80: COLOR 7, 0: CLS -PRINT "Rectong v1.0 (c)2005 Mike Chambers" -PRINT "E-mail: half-eaten@yahoo.com" -PRINT -PRINT "Thanks for playing!" -END -END SUB - -SUB FadePAL255 (fadetype) -SELECT CASE fadetype -CASE 1 -FOR fader1 = 0 TO 63 - PALETTE 255, fader1 + 256 * fader1 + 65536 * fader1 - t! = TIMER: DO: LOOP UNTIL TIMER - t! > 0 -NEXT fader1 -CASE 0 -FOR fader1 = 63 TO 0 STEP -1 - PALETTE 255, fader1 + 256 * fader1 + 65536 * fader1 - t! = TIMER: DO: LOOP UNTIL TIMER - t! > 0 -NEXT fader1 -END SELECT -END SUB - -SUB InitCoord -p1(0) = 1: p2(0) = 1 -p1(1) = 68: p2(1) = 68 -ballcor(0) = 160: ballcor(1) = 92 -buttdir(0) = 0: buttdir(1) = 0 -END SUB - -SUB LaunchBall - -END SUB - -SUB LoadFullBMP (filename AS STRING) -DEF SEG = &HB800 -ff = FREEFILE -OPEN filename FOR BINARY AS #ff -FOR sposy = 1 TO 200 -aget$ = SPACE$(320): GET #ff, , aget$ -FOR sposx = 1 TO 320 -PSET (sposx, sposy), ASC(MID$(aget$, sposx, 1)) -NEXT sposx -NEXT sposy -CLOSE #ff -END SUB - -SUB LoadGFX -FOR loader = 1 TO 4 -ff = FREEFILE -nm$ = RIGHT$("0" + MID$(STR$(loader), 2), 2) -OPEN "gfx\butt" + nm$ + ".rec" FOR BINARY AS #ff - FOR loady = 1 TO 48 - ain$ = SPACE$(32): GET #ff, , ain$ - FOR loadx = 1 TO 32 - butt(loader, loadx, loady) = ASC(MID$(ain$, loadx, 1)) - NEXT loadx - NEXT loady -CLOSE #ff -NEXT loader - -OPEN "gfx\ball00.rec" FOR BINARY AS #ff - FOR loady = 1 TO 12 - ain$ = SPACE$(12): GET #ff, , ain$ - FOR loadx = 1 TO 12 - ball(loadx, loady) = ASC(MID$(ain$, loadx, 1)) - NEXT loadx - NEXT loady -CLOSE #ff - -END SUB - -SUB LoadPAL (filename AS STRING) -ff = FREEFILE -PALETTE 255, 63 + 256 * 63 + 65536 * 63 -OPEN filename FOR BINARY AS #ff -S$ = SPACE$(28): GET #ff, , S$ -FOR n = 1 TO 255 -inpt$ = SPACE$(4) -a$ = SPACE$(1) -B$ = SPACE$(1) -c$ = SPACE$(1) -d$ = SPACE$(1) -GET #ff, , inpt$ -a$ = LEFT$(inpt$, 1) -B$ = MID$(inpt$, 2, 1) -c$ = MID$(inpt$, 3, 1) - -rat = (255 / 63) -r& = ASC(a$) / rat -g& = ASC(B$) / rat -B& = ASC(c$) / rat -PALETTE n, r& + 256 * g& + 65536 * B& -NEXT n -CLOSE #ff -END SUB - -SUB MeltDown -DO -FOR psy = 1 TO 200 -FOR psx = 1 TO 320 -colr = POINT(psx, psy) -LINE (psx, psy + INT(RND * 3))-(psx, psy + INT(RND * 30) + 8), colr -NEXT psx -LINE (1, psy)-(320, psy), 0 -t! = TIMER: DO: LOOP UNTIL TIMER - t! > 0 -NEXT psy -LOOP UNTIL INKEY$ <> "" OR which = 4 -END SUB - -SUB MoveBall -IF hasball <> 0 THEN EXIT SUB - -ballcor(0) = ballcor(0) + balldir(0) -ballcor(1) = ballcor(1) + balldir(1) - -'Check ball hitting stuff -p1top = p1(1) -p1bot = p1(1) + 48 -p2top = p2(1) -p2bot = p2(1) + 48 - -IF balldir(1) = 0 THEN fact = 1 - -IF ballcor(0) <= 32 THEN 'if within X range of player 1 butt -IF ballcor(1) >= p1top AND ballcor(1) <= p1bot THEN - yfactor = ((ballcor(1) - p1top) - 24) - IF yfactor <> 0 THEN yfactor = yfactor / 25 ELSE yfactor = 0 - IF balldir(1) = 0 THEN fact = 1 - - balldir(0) = -balldir(0) - balldir(1) = yfactor '* fact -END IF -END IF - -IF ballcor(0) >= 288 THEN 'if within X range of player 1 butt -IF ballcor(1) >= p2top AND ballcor(1) <= p2bot THEN - yfactor = ((ballcor(1) - p2top) - 24) - IF yfactor <> 0 THEN yfactor = yfactor / 25 ELSE yfactor = 0 - - balldir(0) = -balldir(0) - balldir(1) = yfactor '* balldir(1) -END IF -END IF -'End ball checking - -IF ballcor(1) <= 7 THEN ballcor(1) = 7: balldir(1) = -balldir(1) -IF ballcor(1) >= 183 THEN ballcor(1) = 183: balldir(1) = -balldir(1) - -'Check for player missing ball -IF ballcor(0) < 25 THEN Player1Miss 'If player 1 misses the ball -IF ballcor(0) > 295 THEN Player2Miss 'If player 2 misses the ball -'End check -END SUB - -SUB Player1Miss -AdvanceRound -IF cround > rounds THEN CLS : EXIT SUB -p2score = p2score + 1 -hasball = 2: CLS -CenterText 11, "PLAYER 1 MISSED THE BALL!" -CenterText 13, "Next round: Player 2 starts." -CenterText 14, "Press ENTER when ready." -DO: LOOP UNTIL INKEY$ = CHR$(13) -InitCoord -RANDOMIZE TIMER -AIserve = INT(RND * 130) + 5 -CLS -END SUB - -SUB Player2Miss -AdvanceRound -IF cround > rounds THEN CLS : EXIT SUB -p1score = p1score + 1 -hasball = 1: CLS -CenterText 11, "PLAYER 2 MISSED THE BALL!" -CenterText 13, "Next round: Player 1 starts." -CenterText 14, "Press ENTER when ready." -DO: LOOP UNTIL INKEY$ = CHR$(13) -InitCoord -CLS -END SUB - -SUB SelectDifficulty -CLS -menusel = 4 -CenterText 6, "Select difficulty" -CenterText 8, " Too simple!" -CenterText 9, " Easy " -CenterText 10, " Pretty easy" -CenterText 11, " Average " -CenterText 12, " Hard " -CenterText 13, " Harder " -CenterText 14, " Good luck!!" - -DO -key$ = INKEY$ -update = 0 -SELECT CASE key$ -CASE CHR$(0) + CHR$(72) 'Up - IF menusel > 1 THEN menusel = menusel - 1: update = 1 -CASE CHR$(0) + CHR$(80) 'Down - IF menusel < 7 THEN menusel = menusel + 1: update = 1 -CASE CHR$(13) 'Enter - SELECT CASE menusel - CASE 1: difflevel = 12 - CASE 2: difflevel = 11 - CASE 3: difflevel = 6 - CASE 4: difflevel = 4 - CASE 5: difflevel = 3 - CASE 6: difflevel = 2 - CASE 7: difflevel = 1 - END SELECT - EXIT SUB -CASE CHR$(27) 'Return to main menu - EXIT SUB -END SELECT - -LOCATE 6 + menusel, 13: PRINT " "; -LOCATE 7 + menusel, 13: PRINT CHR$(16); -LOCATE 8 + menusel, 13: PRINT " "; -LOOP -END SUB - -SUB SelectRounds -CLS -menusel = 1 -rounds = 3 -CenterText 11, " Rounds: 3" -CenterText 13, " Let's go!" -DO -key$ = INKEY$ -update = 0 -SELECT CASE key$ -CASE CHR$(0) + CHR$(72) 'Up - IF menusel > 1 THEN menusel = menusel - 1: update = 1 -CASE CHR$(0) + CHR$(80) 'Down - IF menusel < 2 THEN menusel = menusel + 1: update = 1 -CASE CHR$(13) 'Enter - SELECT CASE menusel - CASE 1 - rounds = rounds + 1 - IF rounds = 10 THEN rounds = 1 - CenterText 11, " Rounds:" + STR$(rounds) - CASE 2 - EXIT SUB - END SELECT - -CASE CHR$(27) 'Return to main menu - EXIT SUB -END SELECT - -SELECT CASE menusel -CASE 1: LOCATE 11, 14: PRINT CHR$(16); : LOCATE 13, 14: PRINT " "; -CASE 2: LOCATE 13, 14: PRINT CHR$(16); : LOCATE 11, 14: PRINT " "; -END SELECT -LOOP -END SUB - -SUB ShowControls -CLS -CenterText 2, "RECTONG CONTROLS" -CenterText 6, "Player 1 controls:" -CenterText 7, "A - Move up" -CenterText 8, "Z - Move down" -CenterText 9, "X - Stop moving" -CenterText 10, "S - Serve ball" -CenterText 12, "Player 2 controls:" -CenterText 13, "Up arrow - Move up" -CenterText 14, "Down arrow - Move down" -CenterText 15, "End - Stop moving" -CenterText 16, "\ - Serve ball" -CenterText 20, "Escape exits an active game." -CenterText 24, "Press ENTER to continue..." -DO: LOOP UNTIL INKEY$ = CHR$(13) -CLS -END SUB - -SUB StartGame -SelectRounds -p1score = 0 -p2score = 0 -cround = 0 - -quitgame = 0 -hasball = 1 'who starts with the ball - -WipeEffect -LoadPAL "gfx\palette.pal": PALETTE 4, 0: PALETTE 255, 63 + 256 * 63 + 65536 * 63 -LaunchBall -DO UNTIL quitgame = 1 OR cround > rounds -SELECT CASE hasball -CASE 1 - ballcor(0) = 40 - ballcor(1) = p1(1) + 24 -CASE 2 - ballcor(0) = 280 - ballcor(1) = p2(1) + 24 -END SELECT - -SELECT CASE hasball -CASE 1 - CenterText 2, "Player 1 has the ball!" - CenterText 3, "Press S to serve." - p1(0) = 4 - p2(0) = 1 -CASE 2 - CenterText 2, "Player 2 has the ball!" - IF players = 2 THEN - CenterText 3, "Press \ to throw." - ELSE - CenterText 3, "Get ready, player 1!" - END IF - p2(0) = 4 - p1(0) = 1 -CASE ELSE - p1(0) = 1 - p2(0) = 1 -END SELECT - -DrawP1 -DrawP2 -IF hasball = 0 THEN DrawBall - -DispStats - -skip = skip + 1 -IF skip AND 1 THEN WAIT &H3DA, 8: WAIT &H3DA, 8, 8 - -key$ = INKEY$ -SELECT CASE key$ -CASE CHR$(27) 'Escape key -CenterText 12, "Exit to main menu? (Y/N)" -DO -SELECT CASE LCASE$(INKEY$) -CASE "y" - quitgame = 1: EXIT DO -CASE "n" - EXIT DO -END SELECT -LOOP -CenterText 12, " " - -CASE "a", "A" 'Up P1 -IF buttdir(0) = 0 OR buttdir(0) = 2 THEN buttdir(0) = 1 ELSE buttdir(0) = 0 - -CASE "z", "Z" 'Down P1 -IF buttdir(0) = 0 OR buttdir(0) = 1 THEN buttdir(0) = 2 ELSE buttdir(0) = 0 - -CASE "x", "X" 'Stops P1 movement -buttdir(0) = 0 - -CASE "s", "S" 'Shoot ball P1 -IF hasball = 1 THEN - CenterText 2, SPACE$(24): CenterText 3, SPACE$(24) - hasball = 0 - balldir(0) = 1 - balldir(1) = 0 -END IF - -CASE CHR$(0) + CHR$(79) 'Stops P2 movement -buttdir(1) = 0 - -CASE "\" 'Shoot ball P2 -IF hasball = 2 AND players = 2 THEN - CenterText 2, SPACE$(24): CenterText 3, SPACE$(24) - hasball = 0 - balldir(0) = -1 - balldir(1) = 0 -END IF - -CASE CHR$(0) + CHR$(72) 'Up P2 -IF players = 2 THEN IF buttdir(1) = 0 OR buttdir(1) = 2 THEN buttdir(1) = 1 ELSE buttdir(1) = 0 - -CASE CHR$(0) + CHR$(80) 'Down P2 -IF players = 2 THEN IF buttdir(1) = 0 OR buttdir(1) = 1 THEN buttdir(1) = 2 ELSE buttdir(1) = 0 -END SELECT - -IF players = 1 THEN DoAI -IF hasball = 2 AND players = 1 AND FIX(AIserve) = FIX(p2(1)) THEN - CenterText 2, SPACE$(24): CenterText 3, SPACE$(24) - hasball = 0 - balldir(0) = -1 - balldir(1) = 0 -END IF - -SELECT CASE buttdir(0) -CASE 1 -IF p1(1) > 1 THEN p1(1) = p1(1) - 1 - -CASE 2 -IF p1(1) < 138 THEN p1(1) = p1(1) + 1 -END SELECT - -SELECT CASE buttdir(1) -CASE 1 -IF p2(1) > 1 THEN p2(1) = p2(1) - 1 - -CASE 2 -IF p2(1) < 138 THEN p2(1) = p2(1) + 1 -END SELECT - -MoveBall -LOOP -CLS : EXIT SUB -END SUB - -SUB WipeEffect -FOR xeff = 0 TO 160 STEP .01 - LINE (160 + xeff, 0)-(160 + xeff, 200), 0 - LINE (160 - xeff, 0)-(160 - xeff, 200), 0 - 't! = TIMER: DO: LOOP UNTIL TIMER - t! > 0 -NEXT xeff -END SUB - diff --git a/programs/samples/pete/roboraid/readme.txt b/programs/samples/pete/roboraid/readme.txt deleted file mode 100644 index 61411f0ac..000000000 --- a/programs/samples/pete/roboraid/readme.txt +++ /dev/null @@ -1,140 +0,0 @@ - ****RoboRaider**** - ****README.TXT**** - - Robo Raider is Copyright 2004 by Kevin - - >> Maximize to whole screen << - >>Print this off, it makes it easier to read<< - - ---Contents--- - - (I) Starting The Game - (II) Command Reference - (III) Introduction - (IV) Complete Controls - (V) Setting up the Game - Main Menu - Levelcodes - (VI) Playing the Game - - ----------------------------------------------------------------------- - - (I) Starting The Game - - To start the game, locate the file you dowloaded the game to. -(1) Take the (RoboRaid.BAS) to you QBasic foled and open it from there. -(2) Locate the (RoboRaider) folder with the QBasic option, and - open the (RoboRaid.BAS). - ----------------------------------------------------------------------- - - (II) Command Reference - - | SPACEBAR | ENTER | Arrow keys | F1 | Esc | Page Up | Page Down | - ----------------------------------------------------------------------- - - (III) Introduction - - RoboRaider puts you in control of 6 different robots to explore 6 -different mission including 3 test of skills. Although it has limited -graphics, it has a unfolding RPG game play that should prove -interesting at most. So grab the keyboard, and take on this -MiniRPG! - PS: Be careful of Dr. Robo, he loves his robots, and will fire -you if any harm comes to them. Pilot them with care! - - Features: - - 320 x 200 Graphics screen size (At least its easy to read :P) - - 16 Colors - - 6 Robots (All are used) - - 9 Levels plus a bonus to unlock - - xtrGRAPHICS(TM) Level 1 (Uses QBasic's graphic engine) - {Classic Style Game} - - TPT(Third Person Top) Veiw - ----------------------------------------------------------------------- - - (IV) Complete Controls - - - Menu Controls: - - Highligh Menu Options = UP & DOWN Arrows - Select/Go to next screen = Enter/Return - Help file = F1 - Exit Game = Esc - - Robot Controls: - - UP = UP Arrow - DOWN = DOWN Arrow - LEFT = LEFT Arrow - RIGHT = RIGHT Arrow - PageUp = Drill on* - PageDown = Drill off* - - *In Mission 5 only. - ----------------------------------------------------------------------- - - (V) Setting up the Game - - Main Menu: - - --------------------------------------- - A---> | RoboRaider >>Test1>> | - | | - | >>Start>> | - | >>Levelcodes<< | - | >>Credits<< | - | | - | Press SPACEBAR to select | - B---> | F1 = Help Esc = Exit | - --------------------------------------- - - (A) Menu Title: This tells you where you are at. - (Start) Takes you to the level displayed on the Menu Title. - (Levelcodes) Since there is no save feature, you use the - passwords (collect after defeating a level) to get back - where you left off. - (Credits) Takes you to my very short credits screen. - (B) Command Highlights: Gives you basic commands. - - - Levelcodes: - - When you get a levelcode its normaly like this after a - copleted level: - - This level's code is: TEST001 - Next level's code it: TEST002 - - If you exit the whole game and went back to the Levelcodes - and typed the first one, it gives you the level - you just did. But if you type the bottom one, it gives you - the next level. - If you stay with the game after each level, the next level - is loaded up automaticaly. - ---------------------------------------------------------------------- - - (VI) Playing the Game - - You start the game with three tests. To complete the first two -test you just simply guide the robot through the levels dodging the -obsticals. But the second one requiers picking up small items. This -is done by getting the center of the item between the two fingers of the -robot's grip. It takes a little practic at the most, its very simple. - Sorry, there was to be a (.EXE) to make it easy to use all the -time, but the file is to big. Enjoy my game anyway!! - -EMAIL: Rattrapmax6@aol.com -WEBPAGE: http://hometown.aol.com/rattrapmax6/index.html \ No newline at end of file diff --git a/programs/samples/pete/roboraid/roboraid.bas b/programs/samples/pete/roboraid/roboraid.bas deleted file mode 100644 index 6f44e9ec8..000000000 --- a/programs/samples/pete/roboraid/roboraid.bas +++ /dev/null @@ -1,6079 +0,0 @@ -'****************************** ROBORAIDER ********************************* -'********************************** by ************************************* -'***************************** x.t.r.GRAPHICS (TM) ************************* - -'**************************** PRESS TO PLAY!! ************************* - -'############### Copyright 2004 by Kevin ################ - -DECLARE SUB Ending () -DECLARE SUB Mission06 () -DECLARE SUB Menu9 () -DECLARE SUB Mission05 () -DECLARE SUB Menu8 () -DECLARE SUB Mission04 () -DECLARE SUB Menu7 () -DECLARE SUB Mbrief01 () -DECLARE SUB Mission03 () -DECLARE SUB Menu6 () -DECLARE SUB Mission02 () -DECLARE SUB Menu5 () -DECLARE SUB Mission01 () -DECLARE SUB Menu4 () -DECLARE SUB Test003 () -DECLARE SUB Menu3 () -DECLARE SUB Test002 () -DECLARE SUB Dril () -DECLARE SUB Drop () -DECLARE SUB Missionb2 () -DECLARE SUB Scorp () -DECLARE SUB Creep () -DECLARE SUB Tbot1 () -DECLARE SUB Tbot2 () -DECLARE SUB Missionb () -DECLARE SUB Trainerb () -DECLARE SUB Robopic () -DECLARE SUB Bonus () -DECLARE SUB Trailer () -DECLARE SUB Menu2 () -DECLARE SUB Test001 () -DECLARE SUB Levelcode () -DECLARE SUB Credits () -DECLARE SUB Help () -DECLARE SUB Menu () -DECLARE SUB Intro () -CALL Intro - -SUB Bonus -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>BONUS>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>GAME-TRAILER>>": LOCATE 11, 15: COLOR 15: PRINT ">>ROBO-PICS<<": LOCATE 13, 15: COLOR 15: PRINT ">>MENU<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>GAME-TRAILER<<": LOCATE 11, 15: COLOR 9: PRINT ">>ROBO-PICS>>": LOCATE 13, 15: COLOR 15: PRINT ">>MENU<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>GAME-TRAILER<<": LOCATE 11, 15: COLOR 15: PRINT ">>ROBO-PICS<<": LOCATE 13, 15: COLOR 14: PRINT ">>MENU>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Trailer -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Robopic -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Menu -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Credits -PLAY "MB O4" -CLS -SCREEN 13 -LOCATE 22, 1 -'######## Robo Theme ####### -PLAY "E16 G E16 C2 C G E E3 G E C3 E16 G E16 C2 C16 C G3 E16 E E16 G F E G C3 E16 G E16 C2" -COLOR 10 -PRINT " Credits" -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Main Programer Kevin" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Graphics Kevin" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Debuging Kevin" -SLEEP (1) -PRINT -SLEEP (1) -PRINT -COLOR 9 -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Special Thanks" -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Anyone who plays my games :)" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Vic's Qbasic Programing Tutorials" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Mallard's 'Basic Basic' Tutorials" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Qbasic By Exaple (by Greg Perry)" -SLEEP (1) -PRINT -COLOR 14 -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Cool sites " -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT " www.qbasic.com" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " www.qbasicnews.com" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Those 2 sites link to more" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Look out for RoboRaider II" -SLEEP (1) -PRINT -SLEEP (1) -PRINT " Play all levels for Bonus Levelcode!" -SLEEP (1) -PRINT -SLEEP (1) -PRINT -COLOR 7 -SLEEP (1) -PRINT " This is the Classic style of Robo-" -SLEEP (1) -PRINT " Raider, I hope to have a Hi-Def " -SLEEP (1) -PRINT " version of this one and the second" -SLEEP (1) -PRINT " one next year." -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT -SLEEP (1) -PRINT - -CALL Menu -END SUB - -SUB Creep -CLS -SCREEN 13 -LINE (10, 37)-(20, 45), 8, BF -LINE (20, 35)-(160, 50), 10, BF -LINE (22, 36)-(158, 36), 8 -LINE (22, 60)-(158, 60), 8 -CIRCLE (22, 48), 15, 7 -PAINT (22, 48), 7 -PSET (22, 48), 0 -CIRCLE (158, 48), 15, 7 -PAINT (158, 48), 7 -PSET (158, 48), 0 -LOCATE 10, 1: PRINT " Creeper: Mission 3:" -LOCATE 12, 1: PRINT " Did someone step on it? Nope this" -LOCATE 13, 1: PRINT " Bot is made for tight places. Like" -LOCATE 14, 1: PRINT " low hanging ceilings." -COLOR 10 -LOCATE 17, 1: PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Missionb - -END SUB - -SUB Dril -CLS -SCREEN 13 -LINE (60, 20)-(160, 50), 9, BF -LINE (60, 20)-(20, 35), 8 -LINE (20, 35)-(60, 50), 8 -LINE (60, 50)-(60, 20), 8 -PAINT (55, 35), 8 -LINE (70, 36)-(158, 36), 8 -LINE (70, 60)-(158, 60), 8 -CIRCLE (70, 48), 15, 7 -PAINT (70, 48), 7 -PSET (70, 48), 0 -CIRCLE (158, 48), 15, 7 -PAINT (158, 48), 7 -PSET (158, 48), 0 -LOCATE 10, 1: PRINT " Trainer-Bot: Test 1-2:" -LOCATE 12, 1: PRINT " A simple desinged robot for easy" -LOCATE 13, 1: PRINT " repairs. Used for the first two" -LOCATE 14, 1: PRINT " test in case of a crash." -COLOR 10 -LOCATE 17, 1: PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Missionb2 - -END -END SUB - -SUB Drop -CLS -SCREEN 13 -LINE (10, 32)-(20, 45), 8, BF -LINE (20, 30)-(160, 50), 12, BF -LINE (22, 36)-(158, 36), 8 -LINE (22, 60)-(158, 60), 8 -'** SPIKE ** -LINE (130, 29)-(110, 29), 7 -LINE (130, 29)-(120, 10), 7: LINE (110, 29)-(120, 10), 7 -PAINT (120, 20), 7 -LINE (120, 10)-(120, 29), 8 -'** WHEELS ** -CIRCLE (22, 48), 15, 7 -PAINT (22, 48), 7 -PSET (22, 48), 0 -CIRCLE (158, 48), 15, 7 -PAINT (158, 48), 7 -PSET (158, 48), 0 -LOCATE 10, 1: PRINT " Drop-Bot: Mission 4:" -LOCATE 12, 1: PRINT " This Bot has a harpoon to raise " -LOCATE 13, 1: PRINT " and lower itself to different " -LOCATE 14, 1: PRINT " levels of terrain." -COLOR 10 -LOCATE 17, 1: PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Missionb2 - -END SUB - -SUB Ending -SCREEN 13 -COLOR 15 -CLS -PRINT " Dr Robo's Notes:" -PRINT -PRINT " I inserted all the gems into the" -PRINT " disk. It began to glow, and then " -PRINT " another slot melted into the center. " -PRINT " There is another gem!! I must research," -PRINT " but until then then, my pilot needs a " -PRINT " break...." -PRINT " I'll give him a vacation while I " -PRINT " dig up the location of the last gem." -PRINT " Hopefuly the mystery will be solved," -PRINT " and we can find out what this does..." -PRINT -PRINT -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Bonus -END SUB - -SUB Help -CLS -PRINT " Help File:" -PRINT -PRINT " First thing first: to highlight" -PRINT " other menu commands, use the arrow- " -PRINT " keys. Press 'Enter' to select" -PRINT " Robots move with the arrowkeys. The" -PRINT " grip on the collecter bots operate" -PRINT " automaticaly when a item is in their" -PRINT " reach. You can press 'Esc' almost" -PRINT " anywhere in the game to exit." -PRINT " For any more help, open the README.TXT" -PRINT " located with this game." -PRINT -COLOR 10 -PRINT " Press any key to return" -DO -LOOP WHILE INKEY$ = "" -CALL Menu -END SUB - -SUB Intro -PLAY "MB <" -CLS -SCREEN 13 -'######## Robo Theme ####### -PLAY "E16 G E16 C2 C G E E3 G E C3 E16 G E16 C2 C16 C G3 E16 E E16 G F E G C3 E16 G E16 C2" -'######## Intro ####### -LOCATE 10, 15: COLOR 44: PRINT "xt": LOCATE 10, 17: COLOR 43: PRINT "GRAP": LOCATE 10, 21: COLOR 42: PRINT "HICS(TM)": COLOR 15 -SLEEP (3) -CLS -LOCATE 10, 13: COLOR 42: PRINT ">>>": LOCATE 10, 16: COLOR 43: PRINT "PRE": LOCATE 10, 19: COLOR 44: PRINT "SE": LOCATE 10, 21: COLOR 43: PRINT "NTS": LOCATE 10, 23: COLOR 42: PRINT ">>>": COLOR 15 -SLEEP (3) -CLS -LOCATE 10, 14: COLOR 7: PRINT "RoboRaider": COLOR 15 -SLEEP (3) -CLS -PRINT " Dr. Robo's Notes:" -PRINT -PRINT " Note to self: My last Robo-Raider," -PRINT " while exploring a cave, carelessly " -PRINT " hit a trip wire destoring one of my " -PRINT " finest robots. For this run on with " -PRINT " a rolling rock, I myself, slightly " -PRINT " inraged, carelessly fired him. Gee, " -PRINT " that leaves me with without a robot " -PRINT " pilot!" -PRINT " Note to self: Run ad in paper for " -PRINT " new pilot." -COLOR 10: LOCATE 23, 1: PRINT " Press SPACEBAR to continue...." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -COLOR 15 - -PRINT " NewsPaper AD:" -PRINT "" -PRINT " Dear R/C car fans, do you want to " -PRINT " be well paid for your piloting skills?" -PRINT " If so contact me at (###) ###-ROBO." -PRINT " Callers will have an appoitment setup " -PRINT " to take my tests. If you pass all three" -PRINT " tests completely, you will be hired on " -PRINT " the spot. " -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -PRINT -COLOR 10: LOCATE 23, 1: PRINT " Press SPACEBAR to continue...." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Menu -END SUB - -SUB Levelcode -CLS -SCREEN 13 -COLOR 9 -PRINT " Turn on CAPS LOCK to type Levelcode." -PRINT " Press 'Enter' to check code." -PRINT " Levelcodes take you to levels you " -PRINT " last left off...." -PRINT -PRINT -INPUT " Insert Levelcode:", lcode$ -PRINT " Checking Levelcode>>"; lcode$ -SLEEP (4) - -IF lcode$ = "TEST001" THEN GOTO swtch -IF lcode$ = "TEST002" THEN GOTO swtch -IF lcode$ = "TEST003" THEN GOTO swtch -IF lcode$ = "POINTY" THEN GOTO swtch -IF lcode$ = "INDEEP" THEN GOTO swtch -IF lcode$ = "SUBRUINS" THEN GOTO swtch -IF lcode$ = "TOWER" THEN GOTO swtch -IF lcode$ = "WALLDRILL" THEN GOTO swtch -IF lcode$ = "AMAZEME" THEN GOTO swtch -IF lcode$ = "ROBOBONUS" THEN GOTO swtch -IF lcode$ <> "" THEN GOTO err1 -IF lcode$ = "" THEN GOTO err1 - -swtch: COLOR 10 -PRINT -PRINT " "; lcode$; " is valid!" -PRINT " Enjoy this level!" -SLEEP (6) -IF lcode$ = "TEST001" THEN CALL Menu -IF lcode$ = "TEST002" THEN CALL Menu2 -IF lcode$ = "TEST003" THEN CALL Menu3 -IF lcode$ = "POINTY" THEN CALL Menu4 -IF lcode$ = "INDEEP" THEN CALL Menu5 -IF lcode$ = "SUBRUINS" THEN CALL Menu6 -IF lcode$ = "TOWER" THEN CALL Menu7 -IF lcode$ = "WALLDRILL" THEN CALL Menu8 -IF lcode$ = "AMAZEME" THEN CALL Menu9 -IF lcode$ = "ROBOBONUS" THEN CALL Bonus - -err1: COLOR 12 -PRINT -PRINT " "; lcode$; " does not compute." -PRINT " To get a level's code, defeat" -PRINT " the level before it..." -SLEEP (8) -CALL Menu -END SUB - -SUB Mbrief01 -CLS -SCREEN 13 -COLOR 15 -PRINT " Mission Briefing:" -PRINT -PRINT " In your last mission, you " -PRINT " collected a round disk. This I " -PRINT " looked over carefuly, and I found" -PRINT " something... Your first Item, that" -PRINT " was found in the pyramid, the gem," -PRINT " fits perfecly in one of the slots." -PRINT " There are four more slots to fill." -PRINT " I've looked, and found what I think" -PRINT " are the rest. One of them I hope to" -PRINT " collect myself. Any way, I think " -PRINT " this might be important, lets get " -PRINT " the other gems and find out!" -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Mission03 -END SUB - -SUB Menu -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Test1>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Test001 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END -END SUB - -SUB Menu2 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Test2>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Test002 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Menu3 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Test3>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Test003 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Menu4 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission1>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission01 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Menu5 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission2>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission02 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Menu6 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission3>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mbrief01 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Menu7 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission4>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission04 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - - -END SUB - -SUB Menu8 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission5>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission05 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Menu9 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission6>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>START>>": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 9: PRINT ">>LEVELCODE>>": LOCATE 13, 15: COLOR 15: PRINT ">>CREDITS<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>START<<": LOCATE 11, 15: COLOR 15: PRINT ">>LEVELCODE<<": LOCATE 13, 15: COLOR 14: PRINT ">>CREDITS>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Mission06 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Levelcode -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Credits -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Mission01 -CLS -SCREEN 7, 0, 1, 0 -DIM sch1(100), sch2(100), scv1(100), scv2(100), mask(100) -PLAY "MB L64 <<<" -COLOR 15 -PRINT " Mission Status:" -PRINT -PRINT " Mission 1: There has been" -PRINT " a recent discovery in a pyramid" -PRINT " over in Egypt of a small passage." -PRINT " It's to small for humans, but one" -PRINT " of my finest robots 'Scorpian' " -PRINT " can make the trip. My scans show" -PRINT " a object at the end of the shaft," -PRINT " and something else beyond it. " -PRINT " What ever that is you must find " -PRINT " out, good luck." -PRINT -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " - -CLS -'############# ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 14, BF -LINE (5, 1)-(6, 7), 12, BF -LINE (5, 5)-(6, 8), 4, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), sch1 -CLS -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 14, BF -LINE (5, 3)-(6, 10), 12, BF -LINE (5, 7)-(6, 10), 4, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), sch2 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 14, BF -LINE (1, 5)-(7, 6), 12, BF -LINE (5, 5)-(8, 6), 4, BF -GET (1, 1)-(10, 10), scv1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 14, BF -LINE (3, 5)-(10, 6), 12, BF -LINE (7, 5)-(10, 6), 4, BF -GET (1, 1)-(10, 10), scv2 -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask -'######## LEVEL ######## -LINE (150, 200)-(150, 50), 12 -LINE (170, 200)-(170, 50), 12 -LINE (150, 50)-(170, 50), 12 -CIRCLE (160, 60), 2, 9: PAINT (160, 60), 9 -PCOPY 1, 0 -'######## Level INTRO #### -x = 155: y = 180 -stat$ = "Hmm, Scorpian's video feed shows a smaller shaft than my scans did. Never mind that, get that item." -PUT (x, y), sch1, PSET -DO -press$ = INKEY$ -LOCATE 1, 1: PRINT stat$ -PCOPY 1, 0 -LOOP WHILE press$ = "" -CLS -stat$ = "Collect Item:" -'######## LEVEL ######## -LINE (150, 200)-(150, 50), 12 -LINE (170, 200)-(170, 50), 12 -LINE (150, 50)-(170, 50), 12 -PCOPY 1, 0 -d = 1 -DO -press$ = INKEY$ -LOCATE 1, 1: PRINT stat$ -'######## Item Code ####### -IF i = 0 THEN CIRCLE (160, 60), 2, 9: PAINT (160, 60), 9 ELSE CIRCLE (160, 60), 2, 0: PAINT (160, 60), 0 -IF i = 1 THEN LINE (120, 50)-(200, 10), 12, B: PUT (155, 46), mask, PSET: CIRCLE (160, 23), 10, 1: PAINT (160, 23), 1: CIRCLE (160, 23), 10, 7: stat$ = "Do not enter, there's a trip line on the door!" -IF y = 62 THEN IF x = 155 OR x = 156 THEN i = 1 -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'####### Wall codes ####### -IF x = 150 THEN GOTO mcrash1 -IF x = 161 THEN GOTO mcrash1 -IF y = 50 THEN GOTO mcrash1 -IF i = 0 AND y = 188 THEN y = 187: stat$ = "Finish The Mission First!" -IF i = 0 AND y < 187 THEN stat$ = "Collect Item: " -IF i = 1 AND y = 188 THEN GOTO mfinish1 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -mfinish1: CLS -COLOR 10 -PRINT " You completed your first mission!" -PRINT -PRINT " Now for the next one!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: POINTY" -PRINT " Next level's code is: INDEEP" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu5 - -mcrash1: CLS -COLOR 12 -PRINT " You Crashed My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: POINTY" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END SUB - -SUB Mission02 -SCREEN 7, 0, 1, 0 -DIM sch1(100), sch2(100), scv1(100), scv2(100), mask(100) -PLAY "MB L64 <<<" -COLOR 15 -PRINT " Mission Status:" -PRINT -PRINT " Mission 2: Your next mission" -PRINT " takes you to a cave with, you " -PRINT " guessed, a entrance to small for" -PRINT " humans. My scans show a maze of " -PRINT " paths leading to a object. You " -PRINT " will be using Scorpian again, it's" -PRINT " more tactical than the others." -PRINT " You must watch your battery life," -PRINT " my bot has one of 30 minutes. But" -PRINT " be careful, I have towing bots," -PRINT " made just for pulling back a " -PRINT " stranded robot. Just don't crash!" -COLOR 9 -PRINT " NOTE: If the robot stops, its a " -PRINT " dead end, try a new direction" -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -'############# ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 14, BF -LINE (5, 1)-(6, 7), 12, BF -LINE (5, 5)-(6, 8), 4, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), sch1 -CLS -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 14, BF -LINE (5, 3)-(6, 10), 12, BF -LINE (5, 7)-(6, 10), 4, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), sch2 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 14, BF -LINE (1, 5)-(7, 6), 12, BF -LINE (5, 5)-(8, 6), 4, BF -GET (1, 1)-(10, 10), scv1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 14, BF -LINE (3, 5)-(10, 6), 12, BF -LINE (7, 5)-(10, 6), 4, BF -GET (1, 1)-(10, 10), scv2 -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask - -m2seg1: CLS ' >>>SEGMENT #01<<<< -'######### LEVEL ######## -LINE (150, 200)-(150, 100), 2 -LINE (170, 200)-(170, 100), 2 -LINE (0, 100)-(150, 100), 2 -LINE (320, 100)-(170, 100), 2 -LINE (0, 80)-(320, 80), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 155: y = 180: d = 1 -IF segm = 1 THEN x = 299: d = 2 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y > 90 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -IF y = 80 THEN GOTO mcrash2 -IF x = 10 THEN x = 11 -'########## DOOR CODES ########### -IF i = 0 THEN IF y < 189 THEN stat$ = "Collect Item:" -IF i = 0 THEN IF y = 190 THEN y = 189: stat$ = "Not Finished " -IF i = 1 THEN IF y = 190 THEN GOTO mfinish2 -IF x = 305 THEN segm = 0: GOTO m2seg2 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg2: CLS ' >>>SEGMENT #02<<< -'######### LEVEL ######## -LINE (150, 0)-(150, 80), 2 -LINE (170, 0)-(170, 80), 2 -LINE (0, 80)-(150, 80), 2 -LINE (320, 80)-(170, 80), 2 -LINE (0, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10: d = 4 -IF segm = 1 THEN y = 10: d = 3 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x > 160 AND y < 81 THEN GOTO mcrash2 -IF y = 91 THEN GOTO mcrash2 -IF x = 300 THEN x = 299 -'########## DOOR CODES ######## -IF x = 5 THEN segm = 1: GOTO m2seg1 -IF y = 5 THEN segm = 0: GOTO m2seg3 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg3: CLS ' >>>SEGMENT #03<<< -'######### LEVEL ######## -LINE (150, 0)-(150, 80), 2 -LINE (170, 0)-(170, 80), 2 -LINE (0, 80)-(150, 80), 2 -LINE (320, 80)-(170, 80), 2 -LINE (150, 200)-(150, 100), 2 -LINE (170, 200)-(170, 100), 2 -LINE (0, 100)-(150, 100), 2 -LINE (320, 100)-(170, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180: d = 1 -IF segm = 1 THEN x = 299: d = 2 -IF segm = 2 THEN y = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x > 160 AND y < 81 THEN GOTO mcrash2 -IF x < 151 AND y > 90 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -IF x = 10 THEN x = 11 -'########## DOOR CODES ########## -IF y = 185 THEN segm = 1: GOTO m2seg2 -IF x = 305 THEN segm = 0: GOTO m2seg4 -IF y = 5 THEN segm = 0: GOTO m2seg15 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg4: CLS ' >>> SEGMENT04 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 2 -LINE (0, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10: d = 4 -IF segm = 1 THEN x = 299: d = 2 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash2 -'########## DOOR CODES ####### -IF x = 5 THEN segm = 1: GOTO m2seg3 -IF x = 305 THEN segm = 0: GOTO m2seg5 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg5: CLS ' >>> SEGMENT #05 <<< -'######### LEVEL ######## -LINE (150, 0)-(150, 80), 2 -LINE (170, 0)-(170, 80), 2 -LINE (0, 80)-(150, 80), 2 -LINE (320, 80)-(170, 80), 2 -LINE (150, 200)-(150, 100), 2 -LINE (170, 200)-(170, 100), 2 -LINE (0, 100)-(150, 100), 2 -LINE (320, 100)-(170, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN y = 10 -IF segm = 2 THEN y = 180 -IF segm = 3 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x > 160 AND y < 81 THEN GOTO mcrash2 -IF x < 151 AND y > 90 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -'########## DOOR CODES ########## -IF x = 5 THEN segm = 1: GOTO m2seg4 -IF y = 5 THEN segm = 0: GOTO m2seg17 -IF x = 305 THEN segm = 1: GOTO m2seg14 -IF y = 185 THEN segm = 0: GOTO m2seg6 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg6: CLS ' >>> SEGMENT #06 <<< -'######### LEVEL ######## -LINE (150, 0)-(150, 80), 2 -LINE (170, 0)-(170, 80), 2 -LINE (0, 80)-(150, 80), 2 -LINE (320, 80)-(170, 80), 2 -LINE (150, 200)-(150, 100), 2 -LINE (170, 200)-(170, 100), 2 -LINE (0, 100)-(150, 100), 2 -LINE (320, 100)-(170, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 10 -IF segm = 1 THEN x = 10 -IF segm = 2 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x > 160 AND y < 81 THEN GOTO mcrash2 -IF x < 151 AND y > 90 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -'########## DOOR CODES ########## -IF x = 5 THEN segm = 0: GOTO m2seg16 -IF y = 5 THEN segm = 2: GOTO m2seg5 -IF x = 305 THEN segm = 0: GOTO m2seg7 -IF y = 185 THEN y = 184 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg7: CLS ' >>> SEGMENT #07 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 2 -LINE (0, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10: d = 4 -IF segm = 1 THEN x = 299: d = 2 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash2 -'########## DOOR CODES ####### -IF x = 5 THEN segm = 2: GOTO m2seg6 -IF x = 305 THEN segm = 0: GOTO m2seg8 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg8: CLS ' >>> SEGMENT #08 <<< -'######## LEVEL ######### -LINE (0, 80)-(150, 80), 2 -LINE (150, 80)-(150, 0), 2 -LINE (0, 100)-(170, 100), 2 -LINE (170, 100)-(170, 0), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN y = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x = 161 OR y = 91 THEN GOTO mcrash2 -'########## DOOR CODES ######### -IF x = 5 THEN segm = 1: GOTO m2seg7 -IF y = 5 THEN segm = 0: GOTO m2seg9 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg9: CLS ' >>> SEGMENT #09 <<< -'######## LEVEL ######### -LINE (150, 200)-(150, 80), 2 -LINE (150, 80)-(320, 80), 2 -LINE (170, 200)-(170, 100), 2 -LINE (170, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 150 OR y = 80 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -'########## DOOR CODES ######### -IF x = 305 THEN segm = 0: GOTO m2seg10 -IF y = 185 THEN segm = 1: GOTO m2seg8 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg10: CLS ' >>> SEGMENT #10 <<< -'######## LEVEL ######### -LINE (0, 80)-(150, 80), 2 -LINE (150, 80)-(150, 0), 2 -LINE (0, 100)-(170, 100), 2 -LINE (170, 100)-(170, 0), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN y = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x = 161 OR y = 91 THEN GOTO mcrash2 -'########## DOOR CODES ######### -IF x = 5 THEN segm = 1: GOTO m2seg9 -IF y = 5 THEN segm = 0: GOTO m2seg11 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg11: CLS ' >>> SEGMENT #11 <<< -'########## LEVEL ######### -LINE (150, 200)-(150, 100), 2 -LINE (170, 200)-(170, 80), 2 -LINE (150, 100)-(0, 100), 2 -LINE (170, 80)-(0, 80), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN x = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y > 90 THEN GOTO mcrash2 -IF x = 161 OR y = 80 THEN GOTO mcrash2 -'########## DOOR CODES ########## -IF y = 185 THEN segm = 1: GOTO m2seg10 -IF x = 5 THEN segm = 0: GOTO m2seg12 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg12: CLS ' >>> SEGMENT #12 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 2 -LINE (0, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 300 -IF segm = 1 THEN x = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash2 -'########## DOOR CODES ####### -IF x = 5 THEN segm = 0: GOTO m2seg13 -IF x = 305 THEN segm = 1: GOTO m2seg11 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg13: CLS ' >>> SEGMENT #13 <<< -'######## LEVEL ######### -LINE (150, 200)-(150, 80), 2 -LINE (150, 80)-(320, 80), 2 -LINE (170, 200)-(170, 100), 2 -LINE (170, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 1 THEN y = 180 -IF segm = 0 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 150 OR y = 80 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -'########## DOOR CODES ######### -IF x = 305 THEN segm = 1: GOTO m2seg12 -IF y = 185 THEN segm = 0: GOTO m2seg14 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - - -m2seg14: CLS ' >>> SEGMENT #14 <<< -'######## LEVEL ######### -LINE (0, 80)-(150, 80), 2 -LINE (150, 80)-(150, 0), 2 -LINE (0, 100)-(170, 100), 2 -LINE (170, 100)-(170, 0), 2 -LINE (151, 70)-(169, 60), 1, BF -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 10 -IF segm = 1 THEN x = 10 -IF i = 0 THEN stat$ = "Passage Blocked:" -IF segm = 0 THEN stat$ = "There it is!!" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## ITEM CODE ###### -IF i = 0 THEN CIRCLE (160, 40), 3, 6: PAINT (160, 40), 6 ELSE CIRCLE (160, 40), 3, 0: PAINT (160, 40), 0 -IF x > 152 AND x < 159 THEN IF y = 29 OR y = 42 THEN i = 1: stat$ = "Exit Cave:Got Item" -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash2 -IF x = 161 OR y = 91 THEN GOTO mcrash2 -IF y = 51 OR y = 70 THEN GOTO mcrash2 -'########## DOOR CODES ######### -IF x = 5 THEN segm = 3: GOTO m2seg5 -IF y = 5 THEN segm = 1: GOTO m2seg13 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg15: CLS ' >>> SEGMENT #15 <<< -'######## LEVEL ######### -LINE (150, 200)-(150, 80), 2 -LINE (150, 80)-(320, 80), 2 -LINE (170, 200)-(170, 100), 2 -LINE (170, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180: d = 1 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 150 OR y = 80 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -IF x = 305 THEN x = 304 -'########## DOOR CODES ######### -IF y = 185 THEN segm = 2: GOTO m2seg3 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg16: CLS ' >>> SEGMENT #16 <<< -'######## LEVEL ######### -LINE (320, 100)-(150, 100), 2 -LINE (320, 80)-(170, 80), 2 -LINE (150, 100)-(150, 0), 2 -LINE (170, 80)-(170, 0), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x > 160 AND y < 81 THEN GOTO mcrash2 -IF x = 150 OR y = 90 THEN GOTO mcrash2 -IF y = 10 THEN y = 11 -'########## DOOR CODES ########## -IF x = 305 THEN segm = 1: GOTO m2seg6 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m2seg17: CLS ' >>> SEGMENT #17 <<< -'######## LEVEL ######### -LINE (150, 200)-(150, 80), 2 -LINE (150, 80)-(320, 80), 2 -LINE (170, 200)-(170, 100), 2 -LINE (170, 100)-(320, 100), 2 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180: d = 1 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 150 OR y = 80 THEN GOTO mcrash2 -IF x > 160 AND y > 90 THEN GOTO mcrash2 -IF x = 305 THEN x = 304 -'########## DOOR CODES ######### -IF y = 185 THEN segm = 1: GOTO m2seg5 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -mfinish2: CLS -COLOR 10 -PRINT " You completed the mission!" -PRINT -PRINT " Now for the next one!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: INDEEP" -PRINT " Next level's code is: SUBRUINS" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu6 - -dbtt: CLS -COLOR 14 -PRINT " Your battery ran out!" -PRINT -PRINT " Esc. = Exit| Try again?" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: INDEEP" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to Retry..." -PCOPY 1, 0 -btt = 0 -DO -press$ = INKEY$ -IF press$ = CHR$(27) THEN END -LOOP UNTIL press$ = " " -segm = 0 -GOTO m2seg1 - -END - -mcrash2: CLS -COLOR 12 -PRINT " You Crashed My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: INDEEP" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END SUB - -SUB Mission03 -SCREEN 7, 0, 1, 0 -DIM crh1(100), crh2(100), crv1(100), crv2(100), mask(100) -PLAY "MB L64 <<<" -COLOR 15 -PRINT " Mission Status:" -PRINT -PRINT " Mission 3: In this mission, you" -PRINT " will be exploring a collapsed ruin. " -PRINT " My scans show me that my flat robot," -PRINT " 'Creeper' designed for getting under" -PRINT " things, should be able to retreive " -PRINT " the gem located there. It also has a" -PRINT " 30 minute battery life, this is " -PRINT " plenty of time to clear this level. " -PRINT " Take your time, and be careful. I " -PRINT " made a flat towing bot for any dead " -PRINT " batteries. Just don't crash!" -PRINT -COLOR 9 -PRINT " NOTE: If the robot stops, its a " -PRINT " dead end, try a new direction" -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS - -'######### ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 9, BF -PSET (4, 1), 7: PSET (7, 1), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), crh1 -CLS -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 9, BF -PSET (4, 10), 7: PSET (7, 10), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), crh2 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 9, BF -PSET (1, 4), 7: PSET (1, 7), 7 -GET (1, 1)-(10, 10), crv1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 9, BF -PSET (10, 4), 7: PSET (10, 7), 7 -GET (1, 1)-(10, 10), crv2 -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask - -m3seg1: CLS ' >>> SEGMENT #01 <<< -'######### LEVEL ######## -LINE (150, 200)-(150, 0), 6 -LINE (170, 200)-(170, 0), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 155: y = 180: d = 1 -IF segm = 1 THEN y = 10 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 161 THEN GOTO mcrash3 -IF x = 150 THEN GOTO mcrash3 -'########## DOOR CODES ########## -IF i = 0 AND y = 185 THEN y = 184: stat$ = "Not Finished "' ELSE GOTO mfinish3 -IF i = 0 AND y < 184 THEN stat$ = "Collect Item:" -IF y = 5 THEN segm = 0: GOTO m3seg2 -IF i = 1 AND y = 185 THEN GOTO mfinish3 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg2: CLS ' >>> SEGMENT #02 <<< -'######## LEVEL ######### -LINE (150, 0)-(150, 80), 6 -LINE (170, 0)-(170, 80), 6 -LINE (0, 80)-(150, 80), 6 -LINE (320, 80)-(170, 80), 6 -LINE (150, 200)-(150, 100), 6 -LINE (170, 200)-(170, 100), 6 -LINE (0, 100)-(150, 100), 6 -LINE (320, 100)-(170, 100), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN x = 10 -IF segm = 2 THEN x = 300 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash3 -IF x > 160 AND y < 81 THEN GOTO mcrash3 -IF x < 151 AND y > 90 THEN GOTO mcrash3 -IF x > 160 AND y > 90 THEN GOTO mcrash3 -IF y = 5 THEN y = 6 -'########## DOOR CODES ########## -IF x = 5 THEN segm = 0: GOTO m3seg13 -IF x = 305 THEN segm = 0: GOTO m3seg3 -IF y = 185 THEN segm = 1: GOTO m3seg1 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg3: CLS ' >>> SEGMENT #03 <<< -'######### LEVEL ######## -LINE (150, 0)-(150, 80), 6 -LINE (170, 0)-(170, 80), 6 -LINE (0, 80)-(150, 80), 6 -LINE (320, 80)-(170, 80), 6 -LINE (0, 100)-(320, 100), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN y = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash3 -IF x > 160 AND y < 81 THEN GOTO mcrash3 -IF y = 91 THEN GOTO mcrash3 -IF x = 300 THEN x = 299 -'########## DOOR CODES ######## -IF x = 5 THEN segm = 2: GOTO m3seg2 -IF y = 5 THEN segm = 0: GOTO m3seg4 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg4: CLS ' >>> SEGMENT #04 <<< -'######### LEVEL ######## -LINE (150, 200)-(150, 100), 6 -LINE (170, 200)-(170, 100), 6 -LINE (0, 100)-(150, 100), 6 -LINE (320, 100)-(170, 100), 6 -LINE (0, 80)-(320, 80), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN x = 300 -IF segm = 2 THEN x = 10 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y > 90 THEN GOTO mcrash3 -IF x > 160 AND y > 90 THEN GOTO mcrash3 -IF y = 80 THEN GOTO mcrash3 -'########## DOOR CODES ########### -IF y = 185 THEN segm = 1: GOTO m3seg3 -IF x = 5 THEN segm = 1: GOTO m3seg15 -IF x = 305 THEN segm = 0: GOTO m3seg5 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg5: CLS ' >>> SEGMENT #05 <<< -'########## LEVEL ######## -LINE (0, 80)-(150, 80), 6 -LINE (0, 100)-(150, 100), 6 -LINE (150, 0)-(150, 80), 6 -LINE (150, 100)-(150, 200), 6 -LINE (170, 0)-(170, 200), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN y = 10 -IF segm = 2 THEN y = 180 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash3 -IF x < 151 AND y > 90 THEN GOTO mcrash3 -IF x = 161 THEN GOTO mcrash3 -'########## DOOR CODES ########## -IF x = 5 THEN segm = 1: GOTO m3seg4 -IF y = 5 THEN segm = 0: GOTO m3seg6 -IF y = 185 THEN segm = 0: GOTO m3seg16 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg6: CLS ' >>> SEGMENT #06 <<< -'########## LEVEL ######### -LINE (150, 200)-(150, 100), 6 -LINE (170, 200)-(170, 80), 6 -LINE (150, 100)-(0, 100), 6 -LINE (170, 80)-(0, 80), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN x = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y > 90 THEN GOTO mcrash3 -IF x = 161 OR y = 80 THEN GOTO mcrash3 -'########## DOOR CODES ########## -IF y = 185 THEN segm = 1: GOTO m3seg5 -IF x = 5 THEN segm = 1: GOTO m3seg7 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg7: CLS ' >>> SEGMENT #07 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 6 -LINE (0, 100)-(320, 100), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash3 -'########## DOOR CODES ####### -IF x = 5 THEN segm = 1: GOTO m3seg8 -IF x = 305 THEN segm = 1: GOTO m3seg6 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg8: CLS ' >>> SEGMENT #08 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 6 -LINE (0, 100)-(320, 100), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash3 -'########## DOOR CODES ####### -IF x = 5 THEN segm = 1: GOTO m3seg9 -IF x = 305 THEN segm = 0: GOTO m3seg7 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg9: CLS ' >>> SEGMENT #09 <<< -'######### LEVEL ######## -LINE (150, 200)-(150, 100), 6 -LINE (170, 200)-(170, 100), 6 -LINE (0, 100)-(150, 100), 6 -LINE (320, 100)-(170, 100), 6 -LINE (0, 80)-(320, 80), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN x = 300 -IF segm = 2 THEN x = 10 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y > 90 THEN GOTO mcrash3 -IF x > 160 AND y > 90 THEN GOTO mcrash3 -IF y = 80 THEN GOTO mcrash3 -'########## DOOR CODES ########### -IF y = 185 THEN segm = 0: GOTO m3seg14 -IF x = 5 THEN segm = 0: GOTO m3seg10 -IF x = 305 THEN segm = 0: GOTO m3seg8 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg10: CLS ' >>> SEGMENT #10 <<< -'######## LEVEL ######### -LINE (150, 200)-(150, 80), 6 -LINE (150, 80)-(320, 80), 6 -LINE (170, 200)-(170, 100), 6 -LINE (170, 100)-(320, 100), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 300 -IF segm = 1 THEN y = 180 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 150 OR y = 80 THEN GOTO mcrash3 -IF x > 160 AND y > 90 THEN GOTO mcrash3 -'########## DOOR CODES ######### -IF y = 185 THEN segm = 1: GOTO m3seg11 -IF x = 305 THEN segm = 2: GOTO m3seg9 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg11: CLS ' >>> SEGMENT #11 <<< -'######### LEVEL ######## -LINE (150, 200)-(150, 0), 6 -LINE (170, 200)-(170, 0), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 180 -IF segm = 1 THEN y = 10 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 161 THEN GOTO mcrash3 -IF x = 150 THEN GOTO mcrash3 -'########## DOOR CODES ########## -IF y = 5 THEN segm = 1: GOTO m3seg10 -IF y = 185 THEN segm = 1: GOTO m3seg12 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg12: CLS ' >>> SEGMENT #12 <<< -'######## LEVEL ######### -LINE (320, 100)-(150, 100), 6 -LINE (320, 80)-(170, 80), 6 -LINE (150, 100)-(150, 0), 6 -LINE (170, 80)-(170, 0), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 300 -IF segm = 1 THEN y = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x > 160 AND y < 81 THEN GOTO mcrash3 -IF x = 150 OR y = 91 THEN GOTO mcrash3 -'########## DOOR CODES ########## -IF x = 305 THEN segm = 1: GOTO m3seg13 -IF y = 5 THEN segm = 0: GOTO m3seg11 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - - -m3seg13: CLS ' >>> SEGMENT #13 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 6 -LINE (0, 100)-(320, 100), 6 -LINE (140, 50)-(180, 150), 6, BF -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 300 -IF segm = 1 THEN x = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF segm = 0 THEN stat$ = "Passage Blocked:" -IF i = 1 THEN stat$ = "Exit Ruin:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## ITEM CODE ########### -IF i = 0 THEN CIRCLE (90, 90), 2, 10: PAINT (90, 90), 10 ELSE CIRCLE (90, 90), 2, 0: PAINT (90, 90), 0 -IF i = 0 THEN IF x = 79 OR x = 92 THEN IF y > 84 AND y < 87 THEN i = 1: stat$ = "Exit Ruin:Got Item" -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash3 -IF x = 180 OR x = 131 THEN GOTO mcrash3 -'########## DOOR CODES ####### -IF x = 305 THEN segm = 1: GOTO m3seg2 -IF x = 5 THEN segm = 0: GOTO m3seg12 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg14: CLS ' >>> SEGMENT #14 <<< -'######### LEVEL ######## -LINE (150, 0)-(150, 80), 6 -LINE (170, 0)-(170, 80), 6 -LINE (0, 80)-(150, 80), 6 -LINE (320, 80)-(170, 80), 6 -LINE (0, 100)-(320, 100), 6 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 10 -IF segm = 1 THEN x = 300 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash3 -IF x > 160 AND y < 81 THEN GOTO mcrash3 -IF y = 91 THEN GOTO mcrash3 -IF x = 10 THEN x = 11 -'########## DOOR CODES ######## -IF x = 305 THEN segm = 0: GOTO m3seg15 -IF y = 5 THEN segm = 0: GOTO m3seg9 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg15: CLS ' >>> SEGMENT #15 <<< -'######### LEVEL ############# -LINE (0, 80)-(320, 80), 6 -LINE (0, 100)-(320, 100), 6 -LINE (140, 50)-(180, 150), 6, BF -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10: d = 4 -IF segm = 1 THEN x = 299: d = 2 -IF i = 0 THEN stat$ = "Passage Blocked:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 80 OR y = 91 THEN GOTO mcrash3 -IF x = 180 OR x = 131 THEN GOTO mcrash3 -'########## DOOR CODES ####### -IF x = 5 THEN segm = 1: GOTO m3seg14 -IF x = 305 THEN segm = 2: GOTO m3seg4 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m3seg16: CLS ' >>> SEGMENT #16 <<< -'######## LEVEL ######### -LINE (0, 80)-(150, 80), 6 -LINE (150, 80)-(150, 0), 6 -LINE (0, 100)-(170, 100), 6 -LINE (170, 100)-(170, 0), 6 -LINE (0, 50)-(35, 150), 6, BF -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 10 -IF i = 0 THEN stat$ = "Passage Blocked:" -IF i = 1 THEN stat$ = "Exit Ruin: Got Gem" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), crh1, PSET -IF d = 2 THEN PUT (x, y), crv1, PSET -IF d = 3 THEN PUT (x, y), crh2, PSET -IF d = 4 THEN PUT (x, y), crv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt3 -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x < 151 AND y < 81 THEN GOTO mcrash3 -IF x = 161 OR y = 91 THEN GOTO mcrash3 -IF x = 35 THEN GOTO mcrash3 -'########## DOOR CODES ######### -IF y = 5 THEN segm = 2: GOTO m3seg5 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -mfinish3: CLS -COLOR 10 -PRINT " You completed the mission!" -PRINT -PRINT " Now for the next one!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: SUBRUINS" -PRINT " Next level's code is: TOWER" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu7 - -dbtt3: CLS -COLOR 14 -PRINT " Your battery ran out!" -PRINT -PRINT " Esc. = Exit| Try again?" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: SUBRUINS" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to Retry..." -PCOPY 1, 0 -btt = 0 -DO -press$ = INKEY$ -IF press$ = CHR$(27) THEN END -LOOP UNTIL press$ = " " -segm = 0 -GOTO m3seg1 - -mcrash3: CLS -COLOR 12 -PRINT " You Crashed My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: SUBRUINS" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END SUB - -SUB Mission04 -SCREEN 7, 0, 1, 0 -DIM drh1(100), drh2(100), drv1(100), drv2(100), mask(100) -PLAY "MB L64 <<<" -COLOR 15 -PRINT " Mission Status:" -PRINT -PRINT " Mission 4: I was successful in" -PRINT " retreaving the third gem. But I was " -PRINT " ambushed, and the gem stolen. It did" -PRINT " not go far. It was taken by the " -PRINT " Peditron Science Lab. Never fear, " -PRINT " you're getting it back with the help" -PRINT " of 'Drop Bot'. He can take on the " -PRINT " air-ducks to the lab where the gem " -PRINT " is being held. Get in and out fast, " -PRINT " I don't want my tecnology in their " -PRINT " hands. Good luck!" -PRINT -COLOR 9 -PRINT " NOTE: You have Three Minutes to get" -PRINT " in and out undetected!" -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -'######### ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 12, BF -LINE (5, 5)-(6, 6), 7, BF -PSET (4, 1), 7: PSET (7, 1), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), drh1 -CLS -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 12, BF -LINE (5, 5)-(6, 4), 7, BF -PSET (4, 10), 7: PSET (7, 10), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), drh2 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 12, BF -LINE (5, 5)-(6, 6), 7, BF -PSET (1, 4), 7: PSET (1, 7), 7 -GET (1, 1)-(10, 10), drv1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 12, BF -LINE (5, 5)-(4, 6), 7, BF -PSET (10, 4), 7: PSET (10, 7), 7 -GET (1, 1)-(10, 10), drv2 -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask -m4seg1: CLS ' >>> SEGMENT #01 <<< -'######## LEVEL ######## -LINE (2, 20)-(310, 190), 7, B -LINE (20, 30)-(40, 50), 7, B -LINE (20, 30)-(25, 35), 7: LINE (40, 30)-(35, 35), 7 -LINE (25, 35)-(35, 35), 7 -LINE (25, 35)-(25, 50), 7: LINE (35, 35)-(35, 50), 7 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 290: y = 180: d = 1 -IF segm = 1 THEN x = 26: y = 60: d = 3 -btt$ = "Time: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Press SPACEBAR to pick up bot:" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), drh1, PSET -IF d = 2 THEN PUT (x, y), drv1, PSET -IF d = 3 THEN PUT (x, y), drh2, PSET -IF d = 4 THEN PUT (x, y), drv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -IF i = 1 THEN IF press$ = " " THEN GOTO mfinish4 -'########### THREE MIN CODE ############ -btt = btt + 1 -IF (btt / 100) > 180 THEN GOTO dbtt4 -IF y < 184 AND (btt / 100) THEN btt$ = "Time: [||||||||||]" -IF (btt / 100) > 18 THEN btt$ = "Time: [||||||||| ]": C = 10 -IF (btt / 100) > 36 THEN btt$ = "Time: [|||||||| ]": C = 10 -IF (btt / 100) > 54 THEN btt$ = "Time: [||||||| ]": C = 10 -IF (btt / 100) > 72 THEN btt$ = "Time: [|||||| ]": C = 14 -IF (btt / 100) > 90 THEN btt$ = "Time: [||||| ]": C = 14 -IF (btt / 100) > 108 THEN btt$ = "Time: [|||| ]": C = 14 -IF (btt / 100) > 125 THEN btt$ = "Time: [||| ]": C = 12 -IF (btt / 100) > 144 THEN btt$ = "Time: [|| ]": C = 12 -IF (btt / 100) > 162 THEN btt$ = "Time: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 181 OR y = 20 THEN GOTO mcrash4 -IF x = 301 OR x = 2 THEN GOTO mcrash4 -'########## DOOR CODES ########## -IF x > 10 AND x < 41 THEN IF y = 21 OR y = 50 THEN segm = 0: GOTO m4seg2 -IF x = 40 OR x = 11 THEN IF y > 21 AND y < 51 THEN segm = 0: GOTO m4seg2 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m4seg2: CLS ' >>> SEGMENT #02 <<< -'######## LEVEL ######## -LINE (2, 20)-(2, 190), 7 -LINE (22, 20)-(22, 50), 7 -LINE (2, 20)-(22, 20), 7 -LINE (22, 70)-(22, 170), 7 -LINE (22, 70)-(280, 70), 7 -LINE (280, 70)-(280, 170), 7 -LINE (2, 190)-(300, 190), 7 -LINE (300, 190)-(300, 50), 7 -LINE (300, 50)-(22, 50), 7 -LINE (22, 170)-(150, 170), 7 -LINE (280, 170)-(170, 170), 7 -LINE (150, 170)-(150, 100), 7 -LINE (170, 170)-(170, 100), 7 -LINE (150, 100)-(170, 100), 7 -'**DOOR** -LINE (150, 100)-(155, 105), 7 -LINE (170, 100)-(165, 105), 7 -LINE (150, 120)-(170, 120), 7 -LINE (150, 120)-(155, 115), 7 -LINE (170, 120)-(165, 115), 7 -LINE (155, 105)-(165, 115), 7, B -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 8: y = 35: d = 3 -IF segm = 1 THEN x = 155: y = 125: d = 3 -btt$ = "Time: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Get Out Quick:" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), drh1, PSET -IF d = 2 THEN PUT (x, y), drv1, PSET -IF d = 3 THEN PUT (x, y), drh2, PSET -IF d = 4 THEN PUT (x, y), drv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### THREE MIN CODE ############ -btt = btt + 1 -IF (btt / 100) > 180 THEN GOTO dbtt4 -IF (btt / 100) > 18 THEN btt$ = "Time: [||||||||| ]": C = 10 -IF (btt / 100) > 36 THEN btt$ = "Time: [|||||||| ]": C = 10 -IF (btt / 100) > 54 THEN btt$ = "Time: [||||||| ]": C = 10 -IF (btt / 100) > 72 THEN btt$ = "Time: [|||||| ]": C = 14 -IF (btt / 100) > 90 THEN btt$ = "Time: [||||| ]": C = 14 -IF (btt / 100) > 108 THEN btt$ = "Time: [|||| ]": C = 14 -IF (btt / 100) > 125 THEN btt$ = "Time: [||| ]": C = 12 -IF (btt / 100) > 144 THEN btt$ = "Time: [|| ]": C = 12 -IF (btt / 100) > 162 THEN btt$ = "Time: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 181 OR y = 20 THEN GOTO mcrash4 -IF x = 301 OR x = 2 THEN GOTO mcrash4 -IF x = 13 THEN IF y > 20 AND y < 51 THEN GOTO mcrash4 -IF y = 50 THEN IF x > 12 AND x < 300 THEN GOTO mcrash4 -IF y = 61 THEN IF x > 12 AND x < 280 THEN GOTO mcrash4 -IF x = 13 THEN IF y > 60 AND y < 171 THEN GOTO mcrash4 -IF x = 280 THEN IF y > 60 AND y < 171 THEN GOTO mcrash4 -IF y = 170 THEN IF x > 160 AND x < 281 THEN GOTO mcrash4 -IF y = 170 THEN IF x > 12 AND x < 151 THEN GOTO mcrash4 -IF x = 150 THEN IF y > 100 AND y < 171 THEN GOTO mcrash4 -IF x = 161 THEN IF y > 100 AND y < 171 THEN GOTO mcrash4 -'########## DOOR CODES ########## -IF y = 25 THEN segm = 1: GOTO m4seg1 -IF y = 120 THEN IF x > 150 AND x < 161 THEN segm = 0: GOTO m4seg3 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m4seg3: CLS ' >>> SEGMENT #03 <<< -'######## LEVEL ######## -LINE (130, 100)-(190, 190), 6, B -LINE (3, 100)-(53, 190), 6, B -LINE (299, 100)-(249, 190), 6, B -LINE (2, 20)-(300, 190), 7, B -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 155: y = 120: d = 3 -btt$ = "Time: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Get Out Quick:" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## ITEM CODE ######## -IF i = 0 THEN CIRCLE (160, 180), 2, 14: PAINT (160, 180), 14 ELSE CIRCLE (160, 180), 2, 0: PAINT (160, 180), 0 -IF i = 0 THEN IF x > 154 AND x < 157 AND y = 169 THEN i = 1: stat$ = "Get Out Quick:" -IF i = 0 THEN IF y > 174 AND y < 177 THEN IF x = 162 OR x = 149 THEN i = 1: stat$ = "Get Out Quick:" -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), drh1, PSET -IF d = 2 THEN PUT (x, y), drv1, PSET -IF d = 3 THEN PUT (x, y), drh2, PSET -IF d = 4 THEN PUT (x, y), drv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### THREE MIN CODE ############ -btt = btt + 1 -IF (btt / 100) > 180 THEN GOTO dbtt4 -IF (btt / 100) > 18 THEN btt$ = "Time: [||||||||| ]": C = 10 -IF (btt / 100) > 36 THEN btt$ = "Time: [|||||||| ]": C = 10 -IF (btt / 100) > 54 THEN btt$ = "Time: [||||||| ]": C = 10 -IF (btt / 100) > 72 THEN btt$ = "Time: [|||||| ]": C = 14 -IF (btt / 100) > 90 THEN btt$ = "Time: [||||| ]": C = 14 -IF (btt / 100) > 108 THEN btt$ = "Time: [|||| ]": C = 14 -IF (btt / 100) > 125 THEN btt$ = "Time: [||| ]": C = 12 -IF (btt / 100) > 144 THEN btt$ = "Time: [|| ]": C = 12 -IF (btt / 100) > 162 THEN btt$ = "Time: [| ]": C = 12 -'########## BARRIER CODES ####### -IF y = 181 OR y = 20 THEN GOTO mcrash4 -IF x = 130 OR x = 181 THEN GOTO mcrash4 -'########## DOOR CODES ########## -IF y = 105 THEN segm = 1: GOTO m4seg2 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -mfinish4: CLS -COLOR 10 -PRINT " You completed the mission!" -PRINT -PRINT " Now for the next one!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TOWER" -PRINT " Next level's code is: WALLDRILL" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu8 - - -dbtt4: CLS -COLOR 12 -PRINT " You Lost My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TOWER" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END - -mcrash4: CLS -COLOR 12 -PRINT " You Crashed My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TOWER" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END SUB - -SUB Mission05 -SCREEN 7, 0, 1, 0 -DIM dbh1(100), dbh2(100), dbv1(100), dbv2(100), mask(100) -PLAY "MB L64 <<<" -COLOR 15 -PRINT " Mission Status:" -PRINT -PRINT " Mission 5: You're next mission " -PRINT " takes you back to a pyramid, but " -PRINT " this time a 1-inch thick wall is " -PRINT " keeping you from our goal. Have no " -PRINT " fear, I have designed a drilling bot" -PRINT " just right for the job. 'Drill-Bot' " -PRINT " is its model name. You activate the " -PRINT " drill by pressing the PageUp. But" -PRINT " be careful, the drill burns the " -PRINT " battery faster. So turn it on only " -PRINT " when you're going to drill the wall." -PRINT -COLOR 9 -PRINT " PS: Pressing PageDown turns off the " -PRINT " Drill" -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -'######### ROBOT ########## -LINE (1, 4)-(2, 10), 8, BF -LINE (10, 4)-(9, 10), 8, BF -LINE (3, 4)-(8, 9), 9, BF -LINE (2, 3)-(9, 3), 7: LINE (2, 3)-(5, 1), 7: LINE (9, 3)-(7, 1), 7 -PSET (6, 1), 7 -PAINT (5, 2), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), dbh1 -CLS -LINE (1, 1)-(2, 7), 8, BF -LINE (10, 1)-(9, 7), 8, BF -LINE (3, 2)-(8, 7), 9, BF -LINE (2, 8)-(9, 8), 7: LINE (2, 8)-(5, 10), 7: LINE (9, 8)-(7, 10), 7 -PSET (6, 10), 7: PAINT (5, 9), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), dbh2 -CLS -LINE (4, 1)-(10, 2), 8, BF -LINE (4, 10)-(10, 9), 8, BF -LINE (4, 3)-(9, 8), 9, BF -LINE (3, 2)-(3, 9), 7: LINE (3, 2)-(1, 5), 7: LINE (3, 9)-(1, 6), 7 -PAINT (2, 5), 7 -GET (1, 1)-(10, 10), dbv1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(7, 2), 8, BF -LINE (1, 10)-(7, 9), 8, BF -LINE (2, 3)-(7, 8), 9, BF -LINE (8, 2)-(8, 9), 7: LINE (8, 2)-(10, 5), 7: LINE (8, 9)-(10, 7), 7 -PSET (10, 6), 7: PAINT (9, 5), 7 -GET (1, 1)-(10, 10), dbv2 -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask -m5seg1: CLS -'######## LEVEL ###### -LINE (150, 10)-(150, 200), 12 -LINE (170, 10)-(170, 200), 12 -LINE (150, 10)-(170, 10), 12 -LINE (150, 100)-(170, 100), 12 -PCOPY 1, 0 -'######### PROGRAM ###### -x = 155: y = 180: d = 1 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Pyramid:" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## ITEM CODE ########### -IF i = 0 THEN CIRCLE (160, 16), 2, 13: PAINT (160, 16), 13 ELSE CIRCLE (160, 16), 2, 0: PAINT (160, 16), 0 -IF x > 153 AND x < 159 AND y = 18 THEN i = 1: stat$ = "Exit Pyramid:" -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), dbh1, PSET -IF d = 2 THEN PUT (x, y), dbv1, PSET -IF d = 3 THEN PUT (x, y), dbh2, PSET -IF d = 4 THEN PUT (x, y), dbv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -IF press$ = CHR$(0) + "I" THEN dr = 1 -IF press$ = CHR$(0) + "Q" THEN dr = 0 -'########### DRILL CODE ############## -IF dr = 1 THEN btt = btt + 100 -IF y = 101 AND dr = 1 THEN w = 1 -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt5 -IF y < 184 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 161 THEN GOTO mcrash5 -IF x = 150 THEN GOTO mcrash5 -IF y = 10 THEN GOTO mcrash5 -IF w = 0 AND y = 100 THEN GOTO mcrash5 -'########## DOOR CODES ########## -IF i = 0 AND y = 185 THEN y = 184: stat$ = "Not Finished "' ELSE GOTO mfinish3 -IF i = 0 AND y < 184 THEN stat$ = "Collect Item:" -IF i = 0 AND dr = 1 THEN stat$ = " Drill On!!!" -IF i = 1 AND y = 185 THEN GOTO mfinish5 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -mfinish5: CLS -COLOR 10 -PRINT " You completed the mission!" -PRINT -PRINT " Now for the last one!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: WALLDRILL" -PRINT " Next level's code is: AMAZEME" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu9 - -END - -dbtt5: CLS -COLOR 14 -PRINT " Your battery ran out!" -PRINT -PRINT " Esc. = Exit| Try again?" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: WALLDRILL" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to Retry..." -PCOPY 1, 0 -btt = 0 -DO -press$ = INKEY$ -IF press$ = CHR$(27) THEN END -LOOP UNTIL press$ = " " -segm = 0: dr = 0 -GOTO m5seg1 -END - -mcrash5: CLS -COLOR 12 -PRINT " You Crashed My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: WALLDRILL" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - - -END -END SUB - -SUB Mission06 -CLS -SCREEN 7, 0, 1, 0 -PLAY "MB L64 <<<" -DIM sch1(100), sch2(100), scv1(100), scv2(100), mask(100) -PLAY "MB L64 <<<" -COLOR 15 -PRINT " Mission Status:" -PRINT -PRINT " Mission 6: I have the location" -PRINT " of the last gem. It has shown up in" -PRINT " a cave which seems to be a maze of " -PRINT " rooms. You're piloting Scorpian again" -PRINT " to collect the gem. Keep in mind the" -PRINT " the 30 minute battery life. Also keep" -PRINT " mind that this maze of rooms are quite" -PRINT " complex. So keep up with where you are" -PRINT " going. Good luck!" -PRINT -PRINT -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " - -CLS -'############# ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 14, BF -LINE (5, 1)-(6, 7), 12, BF -LINE (5, 5)-(6, 8), 4, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), sch1 -CLS -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 14, BF -LINE (5, 3)-(6, 10), 12, BF -LINE (5, 7)-(6, 10), 4, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), sch2 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 14, BF -LINE (1, 5)-(7, 6), 12, BF -LINE (5, 5)-(8, 6), 4, BF -GET (1, 1)-(10, 10), scv1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 14, BF -LINE (3, 5)-(10, 6), 12, BF -LINE (7, 5)-(10, 6), 4, BF -GET (1, 1)-(10, 10), scv2 -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask -PCOPY 1, 0 - -m6seg1: CLS ' >>> SEGMENT #01 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0: LINE (310, 30)-(310, 60), 0 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 150: y = 175: d = 1 -IF segm = 1 THEN x = 290 -IF segm = 2 THEN x = 10 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF i = 1 AND x > 139 AND x < 170 THEN IF y = 180 THEN GOTO mfinish6 -IF i = 0 AND x > 139 AND x < 170 THEN IF y = 180 THEN y = 179: stat$ = "Not Finished!" -IF i = 0 AND y < 178 THEN stat$ = "Collect Item:" -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg2 -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 0: GOTO m6seg13 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg2: CLS ' >>> SEGMENT #02 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN y = 22 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 0: GOTO m6seg3 -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg1 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg3: CLS ' >>> SEGMENT #03 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 170 -IF segm = 1 THEN x = 7 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 1: GOTO m6seg2 -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 0: GOTO m6seg4 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg4: CLS ' >>> SEGMENT #04 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (310, 30)-(310, 60), 0 -LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 290 -IF segm = 1 THEN y = 22 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 0: GOTO m6seg5 -IF y > 29 AND y < 51 THEN IF x = 299 THEN segm = 1: GOTO m6seg3 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg5: CLS ' >>> SEGMENT #05 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (310, 30)-(310, 60), 0 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 175 -IF segm = 1 THEN x = 290 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 1: GOTO m6seg4 -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg6 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg6: CLS ' >>> SEGMENT #06 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (310, 30)-(310, 60), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 10 -IF segm = 1 THEN x = 290 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg7 -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg5 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg7: CLS ' >>> SEGMENT #07 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 7 -IF segm = 1 THEN y = 175 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg8 -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg6 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg8: CLS ' >>> SEGMENT #08 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (310, 30)-(310, 60), 0 -LINE (140, 190)-(170, 190), 0: LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 22 -IF segm = 1 THEN x = 290 -IF segm = 2 THEN y = 175 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg7 -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg9 -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg15 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg9: CLS ' >>> SEGMENT #09 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 7 -IF segm = 1 THEN y = 175 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg8 -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg10 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg10: CLS ' >>> SEGMENT #10 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (310, 30)-(310, 60), 0 -LINE (140, 190)-(170, 190), 0: LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 22 -IF segm = 1 THEN x = 290 -IF segm = 2 THEN y = 175 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg9 -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 0: GOTO m6seg11 -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg18 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg11: CLS ' >>> SEGMENT #11 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 7 -IF segm = 1 THEN y = 175 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 1: GOTO m6seg10 -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg12 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg12: CLS ' >>> SEGMENT #12 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 22 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## ITEM CODE ########### -IF i = 0 THEN CIRCLE (160, 187), 2, 15: PAINT (160, 187), 15 ELSE CIRCLE (160, 187), 2, 0: PAINT (160, 187), 0 -IF x > 154 AND x < 157 AND y = 176 THEN i = 1: stat$ = "Exit Cave:Got Item" -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg11 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - - -m6seg13: CLS ' >>> SEGMENT #13 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (310, 30)-(310, 60), 0 -LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 290 -IF segm = 1 THEN y = 23 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 2: GOTO m6seg1 -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 0: GOTO m6seg14 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg14: CLS ' >>> SEGMENT #14 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (140, 190)-(170, 190), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 170 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 1: GOTO m6seg13 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) - -m6seg15: CLS ' >>> SEGMENT #15 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (140, 190)-(170, 190), 0: LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 22 -IF segm = 1 THEN y = 175 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 2: GOTO m6seg8 -IF x > 139 AND x < 170 THEN IF y = 180 THEN segm = 0: GOTO m6seg16 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg16: CLS ' >>> SEGMENT #16 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (5, 30)-(5, 60), 0 -LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 22 -IF segm = 1 THEN x = 7 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 1: GOTO m6seg15 -IF y > 29 AND y < 51 THEN IF x = 6 THEN segm = 0: GOTO m6seg17 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg17: CLS ' >>> SEGMENT #17 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (310, 30)-(310, 60), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN x = 290 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF y > 29 AND y < 51 THEN IF x = 300 THEN segm = 1: GOTO m6seg16 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -m6seg18: CLS ' >>> SEGMENT #18 <<< -'######### LEVEL ########### -LINE (5, 20)-(5, 190), 14 -LINE (5, 190)-(310, 190), 14 -LINE (310, 190)-(310, 20), 14 -LINE (5, 20)-(310, 20), 14 -LINE (140, 20)-(170, 20), 0 -PCOPY 1, 0 -'######### PROGRAM ###### -IF segm = 0 THEN y = 22 -btt$ = "Batt: [||||||||||]": C = 10 -IF i = 0 THEN stat$ = "Collect Item:" -IF i = 1 THEN stat$ = "Exit Cave:Got Item" -DO -press$ = INKEY$ -LOCATE 1, 1: COLOR C: PRINT btt$ -LOCATE 2, 1: COLOR 9: PRINT stat$ -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), sch1, PSET -IF d = 2 THEN PUT (x, y), scv1, PSET -IF d = 3 THEN PUT (x, y), sch2, PSET -IF d = 4 THEN PUT (x, y), scv2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'########### BATTERY CODE ############ -btt = btt + 1 -IF (btt / 100) > 1800 THEN GOTO dbtt6 -IF y < 189 AND (btt / 100) THEN btt$ = "Batt: [||||||||||]" -IF (btt / 100) > 180 THEN btt$ = "Batt: [||||||||| ]": C = 10 -IF (btt / 100) > 360 THEN btt$ = "Batt: [|||||||| ]": C = 10 -IF (btt / 100) > 540 THEN btt$ = "Batt: [||||||| ]": C = 10 -IF (btt / 100) > 720 THEN btt$ = "Batt: [|||||| ]": C = 14 -IF (btt / 100) > 900 THEN btt$ = "Batt: [||||| ]": C = 14 -IF (btt / 100) > 1080 THEN btt$ = "Batt: [|||| ]": C = 14 -IF (btt / 100) > 1260 THEN btt$ = "Batt: [||| ]": C = 12 -IF (btt / 100) > 1440 THEN btt$ = "Batt: [|| ]": C = 12 -IF (btt / 100) > 1620 THEN btt$ = "Batt: [| ]": C = 12 -'########## BARRIER CODES ####### -IF x = 5 OR x = 301 THEN GOTO mcrash6 -IF y = 20 OR y = 181 THEN GOTO mcrash6 -'########## DOOR CODES ########### -IF x > 139 AND x < 170 THEN IF y = 21 THEN segm = 2: GOTO m6seg10 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - - -mfinish6: CLS -COLOR 10 -PRINT " You completed the mission!" -PRINT -PRINT " You completed the game!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: AMAZEME" -PRINT " Bonus Menu code is: ROBOBONUS" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Ending - -END - -dbtt6: CLS -COLOR 14 -PRINT " Your battery ran out!" -PRINT -PRINT " Esc. = Exit| Try again?" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: AMAZEME" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to Retry..." -PCOPY 1, 0 -btt = 0 -DO -press$ = INKEY$ -IF press$ = CHR$(27) THEN END -LOOP UNTIL press$ = " " -segm = 0: dr = 0 -GOTO m6seg1 -END - -mcrash6: CLS -COLOR 12 -PRINT " You Crashed My Robot!" -PRINT -PRINT " Sorry, You are fired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: AMAZEME" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END -END SUB - -SUB Missionb -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission-Bots>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>SCORPIAN>>": LOCATE 11, 15: COLOR 15: PRINT ">>CREEPER<<": LOCATE 13, 15: COLOR 15: PRINT ">>PAGE-2<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>SCORPIAN<<": LOCATE 11, 15: COLOR 9: PRINT ">>CREEPER>>": LOCATE 13, 15: COLOR 15: PRINT ">>PAGE-2<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>SCORPIAN<<": LOCATE 11, 15: COLOR 15: PRINT ">>CREEPER<<": LOCATE 13, 15: COLOR 14: PRINT ">>PAGE-2>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Scorp -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Creep -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Missionb2 -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Missionb2 -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Mission-Bots>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>DRILL-BOT>>": LOCATE 11, 15: COLOR 15: PRINT ">>DROP-BOT<<": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>DRILL-BOT<<": LOCATE 11, 15: COLOR 9: PRINT ">>DROP-BOT>>": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>DRILL-BOT<<": LOCATE 11, 15: COLOR 15: PRINT ">>DROP-BOT<<": LOCATE 13, 15: COLOR 14: PRINT ">>BONUS-MENU>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Dril -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Drop -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Bonus -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Robopic -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Robo-Pics>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>TRAINER-BOTS>>": LOCATE 11, 15: COLOR 15: PRINT ">>MISSION-BOTS<<": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TRAINER-BOTS<<": LOCATE 11, 15: COLOR 9: PRINT ">>MISSION-BOTS>>": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TRAINER-BOTS<<": LOCATE 11, 15: COLOR 15: PRINT ">>MISSION-BOTS<<": LOCATE 13, 15: COLOR 14: PRINT ">>BONUS-MENU>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Trainerb -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Missionb -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Bonus -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - -SUB Scorp -CLS -SCREEN 13 -LINE (20, 30)-(160, 50), 14, BF -LINE (22, 36)-(158, 36), 8 -LINE (22, 60)-(158, 60), 8 -'*** ARM *** -LINE (150, 29)-(60, 5), 12 -LINE (130, 29)-(60, 10), 12 -LINE (60, 5)-(10, 20), 12 -LINE (60, 10)-(14, 24), 12 -LINE (150, 29)-(130, 29), 12 -LINE (10, 20)-(14, 24), 12 -PAINT (60, 7), 12 -'*** GRIP *** -LINE (15, 18)-(0, 24), 7 -LINE (19, 22)-(4, 28), 7 -LINE (15, 18)-(19, 22), 7 -LINE (0, 24)-(4, 28), 7 -PAINT (4, 26), 7 -'*** WHEELS *** -CIRCLE (22, 48), 15, 7 -PAINT (22, 48), 7 -PSET (22, 48), 0 -CIRCLE (158, 48), 15, 7 -PAINT (158, 48), 7 -PSET (158, 48), 0 -'**TEXT** -LOCATE 10, 1: PRINT " Scorpian: Mission 1-2 & 6:" -LOCATE 12, 1: PRINT " This robot has a grip mounted on a" -LOCATE 13, 1: PRINT " boom which gives it the appearance" -LOCATE 14, 1: PRINT " of a scorpian. Its design allows it" -LOCATE 15, 1: PRINT " to pick up larger items and move " -LOCATE 16, 1: PRINT " over rough terrain." -COLOR 10 -LOCATE 20, 1: PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Missionb - -END SUB - -SUB Tbot1 -CLS -SCREEN 13 -LINE (20, 20)-(160, 50), 10, BF -LINE (22, 36)-(158, 36), 8 -LINE (22, 60)-(158, 60), 8 -CIRCLE (22, 48), 15, 7 -PAINT (22, 48), 7 -PSET (22, 48), 0 -CIRCLE (158, 48), 15, 7 -PAINT (158, 48), 7 -PSET (158, 48), 0 -LOCATE 10, 1: PRINT " Trainer-Bot: Test 1-2:" -LOCATE 12, 1: PRINT " A simple desinged robot for easy" -LOCATE 13, 1: PRINT " repairs. Used for the first two" -LOCATE 14, 1: PRINT " test in case of a crash." -COLOR 10 -LOCATE 17, 1: PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Trainerb -END SUB - -SUB Tbot2 -CLS -SCREEN 13 -LINE (10, 25)-(20, 45), 8, BF -LINE (20, 20)-(160, 50), 10, BF -LINE (22, 36)-(158, 36), 8 -LINE (22, 60)-(158, 60), 8 -CIRCLE (22, 48), 15, 7 -PAINT (22, 48), 7 -PSET (22, 48), 0 -CIRCLE (158, 48), 15, 7 -PAINT (158, 48), 7 -PSET (158, 48), 0 -LOCATE 10, 1: PRINT " Trainer-Bot: Test 3:" -LOCATE 12, 1: PRINT " A simple desinged robot for easy" -LOCATE 13, 1: PRINT " repairs. Has small grip on front" -LOCATE 14, 1: PRINT " for picking up small items." -COLOR 10 -LOCATE 17, 1: PRINT " Press SPACEBAR to continue..." -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CALL Trainerb - -END SUB - -SUB Test001 -DIM hor(100), vert(100), mask(100) -PLAY "MB L64 <<<" -CLS -SCREEN 7, 0, 1, 0 -COLOR 15 -PRINT " Test Status:" -PRINT -PRINT " This test is for Navigation." -PRINT " My fine robots are powered by none" -PRINT " than very two powerful 550-Can R/C" -PRINT " car motors. This can leave a great" -PRINT " deal of damage to them or whatever" -PRINT " they hit. So to pass this test, " -PRINT " make it to the other side of the " -PRINT " maze unharmed." -PRINT -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " - -test1: CLS -'############# ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 10, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), hor -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 10, BF -GET (1, 1)-(10, 10), vert -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask -'############# LEVEL ########## -'vertseg1 -LINE (150, 200)-(150, 150), 9 -LINE (170, 200)-(170, 170), 9 -'horseg1 -LINE (170, 170)-(250, 170), 9 -LINE (150, 150)-(230, 150), 9 -'vertseg2 -LINE (250, 170)-(250, 100), 9 -LINE (230, 150)-(230, 120), 9 -'horseg2 -LINE (250, 100)-(100, 100), 9 -LINE (230, 120)-(80, 120), 9 -'vertseg3 -LINE (100, 100)-(100, 80), 9 -LINE (80, 120)-(80, 60), 9 -'horseg3 -LINE (100, 80)-(170, 80), 9 -LINE (80, 60)-(150, 60), 9 -'vertseg4 -LINE (170, 80)-(170, 0), 9 -LINE (150, 60)-(150, 0), 9 -PCOPY 1, 0 -'######## PROGRAM ####### -d = 1 -x = 155: y = 180 -oldx = x: oldy = y -seg1: -DO -press$ = INKEY$ -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), hor, PSET -IF d = 2 THEN PUT (x, y), vert, PSET -'####### Arrowkeys ######### -IF d = 1 THEN IF press$ = CHR$(0) + "K" THEN d = 2 -IF d = 2 THEN IF press$ = CHR$(0) + "H" THEN d = 1 -IF d = 1 THEN IF press$ = CHR$(0) + "M" THEN d = 2 -IF d = 2 THEN IF press$ = CHR$(0) + "P" THEN d = 1 -IF press$ = CHR$(0) + "H" THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + "P" THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + "K" THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + "M" THEN x = x + 1: PLAY "A" -IF y > 160 AND x = 150 THEN GOTO tcrash1 -IF y > 160 AND x = 161 THEN GOTO tcrash1 -IF y > 160 AND y = 190 THEN GOTO tcrash1 -IF x < 230 AND y < 160 AND y >= 150 AND y = 150 THEN GOTO tcrash1 -IF x < 230 AND y < 160 AND y >= 150 AND x = 150 THEN GOTO tcrash1 -IF x > 160 AND x < 230 AND y = 150 THEN GOTO tcrash1 -IF x > 160 AND x < 230 AND y = 161 THEN GOTO tcrash1 -IF x = 241 THEN GOTO tcrash1 -IF x > 230 AND x < 240 AND y = 161 THEN GOTO tcrash1 -IF y > 111 AND y < 150 AND x = 230 THEN GOTO tcrash1 -IF x < 230 AND x > 81 AND y = 111 THEN GOTO tcrash1 -IF x = 80 THEN GOTO tcrash1 -IF x < 240 AND x > 91 AND y = 100 THEN GOTO tcrash1 -IF y < 100 AND y > 71 AND x = 91 THEN GOTO tcrash1 -IF x < 160 AND x > 91 AND y = 71 THEN GOTO tcrash1 -IF x < 150 AND x > 81 AND y = 60 THEN GOTO tcrash1 -IF y < 70 AND x = 161 THEN GOTO tcrash1 -IF y < 60 AND x = 150 THEN GOTO tcrash1 -IF y = 2 THEN GOTO tfinish1 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -tfinish1: CLS -COLOR 10 -PRINT " You Passed!" -PRINT -PRINT " You can take Test2" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST001" -PRINT " Next level's code is: TEST002" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu2 - -tcrash1: CLS -COLOR 12 -PRINT " You Crashed!" -PRINT -PRINT " Sorry, You do not pass." -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST001" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu -END SUB - -SUB Test002 -DIM hor(100), vert(100), mask(100) -PLAY "MB L64 <<<" -CLS -SCREEN 7, 0, 1, 0 -COLOR 15 -PRINT " Test Status:" -PRINT -PRINT " This test is for Balance." -PRINT " In order to work your way though" -PRINT " the many dangers of a robot, you" -PRINT " must be well balanced and on gaurd." -PRINT " This level includes two water pools " -PRINT " that can destoy robots in a blink" -PRINT " of an eye. To pass, Don't hit the " -PRINT " walls, or water." -PRINT -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " - -test2: CLS -'############# ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 10, BF -PCOPY 1, 0 -GET (1, 1)-(10, 10), hor -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 10, BF -GET (1, 1)-(10, 10), vert -PCOPY 1, 0 -CLS -GET (1, 1)-(10, 10), mask -'############# LEVEL ########## -'vertseg1 -LINE (150, 200)-(150, 150), 9 -LINE (170, 200)-(170, 170), 9 -'horseg1 -LINE (170, 170)-(250, 170), 9 -LINE (150, 150)-(230, 150), 9 -'vertseg2 -LINE (250, 170)-(250, 100), 9 -LINE (230, 150)-(230, 120), 9 -'horseg2 -LINE (250, 100)-(100, 100), 9 -LINE (230, 120)-(80, 120), 9 -'vertseg3 -LINE (100, 100)-(100, 80), 9 -LINE (80, 120)-(80, 60), 9 -'horseg3 -LINE (100, 80)-(170, 80), 9 -LINE (80, 60)-(150, 60), 9 -'vertseg4 -LINE (170, 80)-(170, 0), 9 -LINE (150, 60)-(150, 0), 9 -'pools -LINE (150, 150)-(230, 120), 1, BF -LINE (170, 80)-(100, 100), 1, BF -PCOPY 1, 0 -'######## PROGRAM ####### -d = 1 -x = 155: y = 180 -oldx = x: oldy = y -DO -press$ = INKEY$ -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), hor, PSET -IF d = 2 THEN PUT (x, y), vert, PSET -'######## ARROWKEYS ###### -IF d = 1 THEN IF press$ = CHR$(0) + "K" THEN d = 2 -IF d = 2 THEN IF press$ = CHR$(0) + "H" THEN d = 1 -IF d = 1 THEN IF press$ = CHR$(0) + "M" THEN d = 2 -IF d = 2 THEN IF press$ = CHR$(0) + "P" THEN d = 1 -IF press$ = CHR$(0) + "H" THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + "P" THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + "K" THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + "M" THEN x = x + 1: PLAY "A" -IF y > 160 AND x = 150 THEN GOTO tcrash2 -IF y > 160 AND x = 161 THEN GOTO tcrash2 -IF y > 160 AND y = 190 THEN GOTO tcrash2 -IF x < 230 AND y < 160 AND y >= 150 AND y = 150 THEN GOTO tcrash2 -IF x < 230 AND y < 160 AND y >= 150 AND x = 150 THEN GOTO tcrash2 -IF x > 160 AND x < 230 AND y = 150 THEN GOTO tcrash2 -IF x > 160 AND x < 230 AND y = 161 THEN GOTO tcrash2 -IF x = 241 THEN GOTO tcrash2 -IF x > 230 AND x < 240 AND y = 161 THEN GOTO tcrash2 -IF y > 111 AND y < 150 AND x = 230 THEN GOTO tcrash2 -IF x < 230 AND x > 81 AND y = 111 THEN GOTO tcrash2 -IF x = 80 THEN GOTO tcrash2 -IF x < 240 AND x > 91 AND y = 100 THEN GOTO tcrash2 -IF y < 100 AND y > 71 AND x = 91 THEN GOTO tcrash2 -IF x < 160 AND x > 91 AND y = 71 THEN GOTO tcrash2 -IF x < 150 AND x > 81 AND y = 60 THEN GOTO tcrash2 -IF y < 70 AND x = 161 THEN GOTO tcrash2 -IF y < 60 AND x = 150 THEN GOTO tcrash2 -IF y = 2 THEN GOTO tfinish2 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -tfinish2: CLS -COLOR 10 -PRINT " You Passed!" -PRINT -PRINT " You can take Test3" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST002" -PRINT " Next level's code is: TEST003" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu3 - -tcrash2: CLS -COLOR 12 -PRINT " You Crashed!" -PRINT -PRINT " Sorry, You do not pass." -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST002" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END SUB - -SUB Test003 -DIM hor1(100), hor2(100), vert1(100), vert2(100), mask(100) -PLAY "MB L64 <<<" -CLS -SCREEN 7, 0, 1, 0 -COLOR 15 -PRINT " Test Status:" -PRINT -PRINT " This test is for Collecting." -PRINT " One of the main jobs of a Robo-" -PRINT " Raider is collecting objects from" -PRINT " ruins. This is the same level you" -PRINT " last piloted, but with objets to" -PRINT " pick up.(this Robot picks up an" -PRINT " item automaticly, just by bump " -PRINT " into it) To pass, collect all " -PRINT " items (HINT: Get the items to" -PRINT " hit center of the grip)" -PRINT -PRINT -PRINT -COLOR 10 -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " - -test3: CLS -'############# ROBOT ########## -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 10, BF -PSET (4, 1), 7: PSET (7, 1), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), hor1 -CLS -LINE (1, 1)-(2, 10), 8, BF -LINE (10, 1)-(9, 10), 8, BF -LINE (3, 2)-(8, 9), 10, BF -PSET (4, 10), 7: PSET (7, 10), 7 -PCOPY 1, 0 -GET (1, 1)-(10, 10), hor2 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 10, BF -PSET (1, 4), 7: PSET (1, 7), 7 -GET (1, 1)-(10, 10), vert1 -PCOPY 1, 0 -CLS -LINE (1, 1)-(10, 2), 8, BF -LINE (1, 10)-(10, 9), 8, BF -LINE (2, 3)-(9, 8), 10, BF -PSET (10, 4), 7: PSET (10, 7), 7 -GET (1, 1)-(10, 10), vert2 -PCOPY 1, 0 -CLS - -GET (1, 1)-(10, 10), mask -'############# LEVEL ########## -'vertseg1 -LINE (150, 200)-(150, 150), 9 -LINE (170, 200)-(170, 170), 9 -'horseg1 -LINE (170, 170)-(250, 170), 9 -LINE (150, 150)-(230, 150), 9 -'vertseg2 -LINE (250, 170)-(250, 100), 9 -LINE (230, 150)-(230, 120), 9 -'horseg2 -LINE (250, 100)-(100, 100), 9 -LINE (230, 120)-(80, 120), 9 -'vertseg3 -LINE (100, 100)-(100, 80), 9 -LINE (80, 120)-(80, 60), 9 -'horseg3 -LINE (100, 80)-(170, 80), 9 -LINE (80, 60)-(150, 60), 9 -'vertseg4 -LINE (170, 80)-(170, 0), 9 -LINE (150, 60)-(150, 0), 9 -'pools -LINE (150, 150)-(230, 120), 1, BF -LINE (170, 80)-(100, 100), 1, BF -PCOPY 1, 0 -'######## PROGRAM ####### -d = 1 -x = 155: y = 180 -oldx = x: oldy = y -DO -press$ = INKEY$ -LOCATE 1, 1: PRINT "Items:"; i -'######## Items Code ###### -IF i1 = 0 THEN CIRCLE (160, 153), 1, 12 ELSE CIRCLE (160, 153), 1, 0 -IF i2 = 0 THEN CIRCLE (236, 165), 1, 12 ELSE CIRCLE (236, 165), 1, 0 -IF i3 = 0 THEN CIRCLE (240, 120), 1, 12 ELSE CIRCLE (240, 120), 1, 0 -IF i4 = 0 THEN CIRCLE (90, 100), 1, 12 ELSE CIRCLE (90, 100), 1, 0 -IF i5 = 0 THEN CIRCLE (130, 69), 1, 12 ELSE CIRCLE (130, 69), 1, 0 -IF i6 = 0 THEN CIRCLE (159, 50), 1, 12 ELSE CIRCLE (159, 50), 1, 0 - -IF i1 = 0 THEN IF x = 155 OR x = 156 THEN IF y = 154 THEN i1 = 1: i = i + 1 -IF i2 = 0 THEN IF x = 225 OR x = 237 THEN IF y = 160 THEN i2 = 1: i = i + 1 -IF i2 = 0 THEN IF x = 231 OR x = 232 THEN IF y = 155 THEN i2 = 1: i = i + 1 -IF i3 = 0 THEN IF x = 235 OR x = 236 THEN IF y = 121 OR y = 110 THEN i3 = 1: i = i + 1 -IF i4 = 0 THEN IF x = 85 OR x = 86 THEN IF y = 101 OR y = 90 THEN i4 = 1: i = i + 1 -IF i5 = 0 THEN IF y = 65 OR y = 64 THEN IF x = 120 OR x = 131 THEN i5 = 1: i = i + 1 -IF i6 = 0 THEN IF x = 154 OR x = 155 THEN IF y = 51 OR y = 40 THEN i6 = 1: i = i + 1 -'######## Graphics Code ####### -PUT (oldx, oldy), mask, PSET -oldx = x: oldy = y -IF d = 1 THEN PUT (x, y), hor1, PSET -IF d = 2 THEN PUT (x, y), vert1, PSET -IF d = 3 THEN PUT (x, y), hor2, PSET -IF d = 4 THEN PUT (x, y), vert2, PSET -IF press$ = CHR$(0) + CHR$(75) THEN d = 2 -IF press$ = CHR$(0) + CHR$(72) THEN d = 1 -IF press$ = CHR$(0) + CHR$(77) THEN d = 4 -IF press$ = CHR$(0) + CHR$(80) THEN d = 3 -IF press$ = CHR$(0) + CHR$(72) THEN y = y - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(80) THEN y = y + 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(75) THEN x = x - 1: PLAY "A" -IF press$ = CHR$(0) + CHR$(77) THEN x = x + 1: PLAY "A" -IF press$ = "4" THEN d = 2 -IF press$ = "8" THEN d = 1 -IF press$ = "2" THEN d = 3 -IF press$ = "6" THEN d = 4 -IF press$ = "8" THEN y = y - 1: PLAY "A" -IF press$ = "2" THEN y = y + 1: PLAY "A" -IF press$ = "4" THEN x = x - 1: PLAY "A" -IF press$ = "6" THEN x = x + 1: PLAY "A" -'######## Barrier Code ####### -IF y > 160 AND x = 150 THEN GOTO tcrash3 -IF y > 160 AND x = 161 THEN GOTO tcrash3 -IF y > 160 AND y = 190 THEN GOTO tcrash3 -IF x < 230 AND y < 160 AND y >= 150 AND y = 150 THEN GOTO tcrash3 -IF x < 230 AND y < 160 AND y >= 150 AND x = 150 THEN GOTO tcrash3 -IF x > 160 AND x < 230 AND y = 150 THEN GOTO tcrash3 -IF x > 160 AND x < 230 AND y = 161 THEN GOTO tcrash3 -IF x = 241 THEN GOTO tcrash3 -IF x > 230 AND x < 240 AND y = 161 THEN GOTO tcrash3 -IF y > 111 AND y < 150 AND x = 230 THEN GOTO tcrash3 -IF x < 230 AND x > 81 AND y = 111 THEN GOTO tcrash3 -IF x = 80 THEN GOTO tcrash3 -IF x < 240 AND x > 91 AND y = 100 THEN GOTO tcrash3 -IF y < 100 AND y > 71 AND x = 91 THEN GOTO tcrash3 -IF x < 160 AND x > 91 AND y = 71 THEN GOTO tcrash3 -IF x < 150 AND x > 81 AND y = 60 THEN GOTO tcrash3 -IF y < 70 AND x = 161 THEN GOTO tcrash3 -IF y < 60 AND x = 150 THEN GOTO tcrash3 -IF i < 6 AND y = 2 THEN GOTO tfail3 -IF i = 6 AND y = 2 THEN GOTO tfinish3 -PCOPY 1, 0 -LOOP UNTIL press$ = CHR$(27) -END - -tfinish3: CLS -COLOR 10 -PRINT " You Passed!" -PRINT -PRINT " You are hired!" -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST003" -PRINT " Next level's code is: POINTY" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu4 - -tcrash3: CLS -COLOR 12 -PRINT " You Crashed!" -PRINT -PRINT " Sorry, You do not pass." -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST003" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -tfail3: CLS -COLOR 12 -PRINT " You did not get all six items!" -PRINT -PRINT " Sorry, You do not pass." -PRINT -COLOR 9 -PRINT -PRINT " This level's code is: TEST003" -PRINT " Next level's code is: >>did not pass<<" -PRINT -PRINT " Press SPACEBAR to continue..." -PCOPY 1, 0 -DO -press$ = INKEY$ -LOOP UNTIL press$ = " " -CLS -SCREEN 13 -CALL Menu - -END SUB - -SUB Trailer -SCREEN 9 -CLS -LOCATE 11, 20: PRINT "xtrGRAPHICS (TM)" -SLEEP (2) -CLS -LOCATE 11, 25: PRINT "xtrGRAPHICS Presents....." -SLEEP (4) -CLS -LOCATE 11, 30: PRINT "In a game where the need for speed is always great" -SLEEP (3) -SCREEN 7, 0, 1, 0 -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -CIRCLE (100, 100), 40, 14 -PAINT (100, 100), 14 -CIRCLE (130, 150), 30, 12 -PAINT (130, 150), 12 -CIRCLE (320, 200), 60, 9 -PAINT (319, 198), 9 -PCOPY 1, 0 -FOR i = 1 TO 50000: NEXT - -CLS -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -CIRCLE (0, 100), 160, 12 -PAINT (0, 100), 12 - -x1 = 160: y1 = 100 -DO -press$ = INKEY$ -CLS -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -CIRCLE (0, 100), 160, 12 -PAINT (0, 100), 12 -PSET (x1, y1), 9 -x1 = x1 + 1 -PCOPY 1, 0 -IF press$ <> "" THEN CALL Bonus -FOR i = 1 TO 1000: NEXT -LOOP UNTIL x1 >= 300 - -SCREEN 9 -LOCATE 11, 20: PRINT "Where you travel faster than the speed of light." -SLEEP (3) -CLS -SCREEN 9 -LOCATE 11, 20: PRINT "And planet travel is all you know." -SLEEP (3) - -SCREEN 7, 0, 1, 0 -x1 = 160: y1 = 190: -DO -press$ = INKEY$ -CLS -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -PSET (x1, y1), 9 -y1 = y1 - 1 -IF y1 <= 100 THEN GOTO iwarp -PCOPY 1, 0 -IF press$ <> "" THEN CALL Bonus -FOR i = 1 TO 1000: NEXT -LOOP -iwarp: cr = 1: -DO -press$ = INKEY$ -CLS -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -CIRCLE (160, 100), cr, 10 -LINE (160, 100)-(160, y1), 9 -y1 = y1 - 5 -cr = cr + 1 -PCOPY 1, 0 -IF press$ <> "" THEN CALL Bonus -FOR i = 1 TO 500: NEXT -LOOP UNTIL cr = 20 - -SCREEN 9 -LOCATE 11, 20: PRINT "Hold on thight for this one...." -SLEEP (3) - -SCREEN 7, 0, 1, 0 -x1 = 1: y1 = 100 -DO -press$ = INKEY$ -CLS -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -CIRCLE (320, 100), 160, 10 -PAINT (300, 100), 10 -PSET (x1, y1), 9 -x1 = x1 + 1 -PCOPY 1, 0 -IF press$ <> "" THEN CALL Bonus -FOR i = 1 TO 1000: NEXT -LOOP UNTIL x1 >= 160 - -SCREEN 9 -LOCATE 11, 20: PRINT "There are more planets than you think..." -SLEEP (3) - -SCREEN 7, 0, 1, 0 -x1 = 1: y1 = 30 -DO -press$ = INKEY$ -CLS -press$ = INKEY$ -LINE (0, 0)-(320, 200), 1, BF -LINE (0, 175)-(320, 200), 8, BF -LINE (1, 100)-(40, 200), 7, BF -LINE (42, 50)-(90, 200), 7, BF -LINE (92, 70)-(140, 200), 7, BF -LINE (142, 90)-(190, 200), 7, BF -LINE (192, 110)-(260, 200), 7, BF -LINE (262, 20)-(320, 200), 7, BF -PSET (x1, y1), 9 -x1 = x1 + 1 -PCOPY 1, 0 -IF press$ <> "" THEN CALL Bonus -FOR i = 1 TO 1000: NEXT -LOOP UNTIL x1 >= 262 - -CLS -DIM ship(1000) -LINE (1, 1)-(20, 35), 7, BF -LINE (10, 1)-(1, 10), 9 -LINE (10, 1)-(20, 10), 9 -LINE (1, 10)-(1, 30), 9 -LINE (20, 10)-(20, 30), 9 -LINE (1, 30)-(20, 30), 9 -PAINT (10, 10), 9 -LINE (10, 30)-(10, 35), 7 -LINE (1, 30)-(1, 35), 7 -LINE (20, 30)-(20, 35), 7 -CIRCLE (10, 10), 5, 8 -PAINT (10, 10), 8 -PCOPY 1, 0 -GET (1, 1)-(20, 35), ship -y1 = 160 -DO -press$ = INKEY$ -CLS -LINE (0, 0)-(320, 200), 7, BF -PUT (160, y1), ship, PSET -y1 = y1 - 1 -PCOPY 1, 0 -IF press$ <> "" THEN CALL Bonus -LOOP UNTIL y1 = 50 - -CLS -SCREEN 7, 0, 1, 0 - -FOR i = 1 TO 100 -x = INT(RND * 320) + 1 -y = INT(RND * 200) + 1 -PSET (x, y) -NEXT -CIRCLE (100, 100), 40, 14 -PAINT (100, 100), 14 -CIRCLE (130, 150), 30, 12 -PAINT (130, 150), 12 -CIRCLE (320, 200), 60, 9 -PAINT (319, 198), 9 - - -LINE (60, 40)-(30, 60), 9 -LINE (30, 60)-(60, 60), 9 -LINE (60, 60)-(30, 80), 9 - -LINE (63, 50)-(63, 80), 9 -LINE (63, 50)-(73, 55), 9 -LINE (73, 55)-(63, 65), 9 - -CIRCLE (83, 50), 6, 9 -LINE (88, 45)-(89, 55), 9 - -LINE (93, 48)-(100, 40), 9 -LINE (93, 48)-(105, 50), 9 - -LINE (107, 45)-(117, 40), 9 -LINE (107, 45)-(110, 35), 9 -LINE (110, 35)-(117, 40), 9 -LINE (107, 45)-(117, 45), 9 - -LINE (25, 85)-(147, 37), 9 - -'************************* - -LINE (70, 90)-(75, 110), 9 -LINE (75, 110)-(80, 88), 9 -LINE (80, 88)-(85, 109), 9 -LINE (85, 109)-(90, 86), 9 - -CIRCLE (100, 95), 6, 9 -LINE (107, 98)-(102, 88), 9 - -LINE (109, 87)-(111, 98), 9 -LINE (109, 87)-(116, 84), 9 - -LINE (119, 83)-(119, 101), 9 -LINE (119, 83)-(129, 88), 9 -LINE (129, 88)-(119, 92), 9 - -LINE (50, 121)-(140, 100), 9 - -PCOPY 1, 0 -SLEEP (4) -CLS -SCREEN 13 -CALL Bonus -END SUB - -SUB Trainerb -CLS -SCREEN 13 -COLOR 10 -PRINT " RoboRaiders: >>Trainer-Bots>>" -LOCATE 20, 3: PRINT "Press 'Enter' to select" -LOCATE 22, 2: PRINT "Press 'F1' for Help, Press 'Esc' to Exit" -C = 1 -DO -press$ = INKEY$ -IF C = 1 THEN LOCATE 10, 15: COLOR 10: PRINT ">>TEST 1-2>>": LOCATE 11, 15: COLOR 15: PRINT ">>TEST 3<<": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<" -IF C = 2 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TEST 1-2<<": LOCATE 11, 15: COLOR 9: PRINT ">>TEST 3>>": LOCATE 13, 15: COLOR 15: PRINT ">>BONUS-MENU<<" -IF C = 3 THEN LOCATE 10, 15: COLOR 15: PRINT ">>TEST 1-2<<": LOCATE 11, 15: COLOR 15: PRINT ">>TEST 3<<": LOCATE 13, 15: COLOR 14: PRINT ">>BONUS-MENU>>" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(0) + CHR$(80) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = CHR$(0) + CHR$(72) THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "2" THEN C = 3: PLAY "D16" -IF C = 1 THEN IF press$ = "2" THEN C = 2: PLAY "D16" -IF C = 2 THEN IF press$ = "8" THEN C = 1: PLAY "D16" -IF C = 3 THEN IF press$ = "8" THEN C = 2: PLAY "D16" -IF C = 1 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Tbot1 -IF C = 2 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Tbot2 -IF C = 3 THEN IF press$ = CHR$(13) THEN PLAY "B16": CALL Bonus -IF press$ = CHR$(0) + ";" THEN CALL Help -LOOP UNTIL press$ = CHR$(27) -END - -END SUB - diff --git a/programs/samples/pete/rotate.bas b/programs/samples/pete/rotate.bas deleted file mode 100644 index 766fb0f17..000000000 --- a/programs/samples/pete/rotate.bas +++ /dev/null @@ -1,62 +0,0 @@ -CLS -SCREEN 12 -LET pi = 3.14159 - -DO - 'ANGLE increase -FOR v = 0 TO 2 * pi STEP .008 -LET v3 = v3 + .003 -LET v4 = v4 + .01 - -IF v3 >= 2 * pi THEN -LET v3 = .003 -END IF - -IF v4 >= 2 * pi THEN -LET v4 = .01 -END IF - - 'CALCULATE - 'COS is for X - 'SIN is for Y - 'Multiplier is for SIZE and - 'addition is for OFFSET. - 'Combine two equations with offset to - 'get double rotation! - -LET x = COS(v3) * 180 + (COS(v) * -20 + 320) -LET y = SIN(v3) * 180 + (SIN(v) * -20 + 240) -LET x2 = COS(v3) * 180 + (COS(v) * 20 + 320) -LET y2 = SIN(v3) * 180 + (SIN(v) * 20 + 240) - -LET x3 = COS(v3) * 180 + (COS(v) * 0 + 320) -LET y3 = SIN(v3) * 180 + (SIN(v) * 0 + 240) - -LET x4 = COS(v) * 20 + 320 -LET y4 = SIN(v) * 20 + 240 -LET x5 = COS(v4) * 80 + 320 -LET y5 = SIN(v4) * 80 + 240 - - 'DRAW -LINE (x, y)-(x2, y2), 15 -CIRCLE (x3, y3), 20, 15 -CIRCLE (x4, y4), 40, 15 -CIRCLE (x5, y5), 10, 15 - - 'WAIT and key press=exit - LET key$ = INKEY$ -FOR v2 = 1 TO 10000 - IF key$ <> "" THEN - END - END IF -NEXT v2 - - 'ERASE -LINE (x, y)-(x2, y2), 0 -CIRCLE (x3, y3), 20, 0 -CIRCLE (x4, y4), 40, 0 -CIRCLE (x5, y5), 10, 0 - -NEXT v -LOOP - diff --git a/programs/samples/pete/rug.bas b/programs/samples/pete/rug.bas deleted file mode 100644 index 91c8096a7..000000000 --- a/programs/samples/pete/rug.bas +++ /dev/null @@ -1,22 +0,0 @@ -CLS -COLOR 2 -d% = 2 -w% = 2 -WHILE INKEY$ = "" -LOCATE w%, d% -RANDOMIZE TIMER -c = INT(RND * 2) -f = INT(RND * 15) + 1 -IF c = 0 THEN : FOR p = 1 TO 300: NEXT p: COLOR f: PRINT CHR$(1) - -IF c = 1 THEN : FOR p = 1 TO 300: NEXT p: COLOR f: PRINT CHR$(2) - -w% = w% + 1 -IF w% = 23 THEN -d% = d% + 1 -w% = 2 -END IF -IF d% = 80 THEN SLEEP 1: CLS : w% = 2: d% = 2 - -WEND - diff --git a/programs/samples/pete/screen.bas b/programs/samples/pete/screen.bas deleted file mode 100644 index 16c3d7353..000000000 --- a/programs/samples/pete/screen.bas +++ /dev/null @@ -1,52 +0,0 @@ -' PQBC Screen Tester -'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -' This program looks big, but it is actually quite small. Run it through a -' decommenter to see how small it is. Anyway, this program tests what screen -' modes your graphics adapter supports. You can find one included with the -' QuickBasic 4.5 examples, but this one is easier to manipulate and more -' effective. This lists all the screen modes your computer supports, instead -' of just a few. The REMs show the variables that can be manipulated. -' This program is free to distribute as long as these first 12 lines of -' comments are NOT removed and/or changed. -' If you have questions/comments/suggestions, contact me at: -' patz2009@yahoo.com -REM Variables -REM ------------------------ -REM works > a supported screen mode -REM nogo > error handling variable -REM test > the screen mode being tested -REM list$ > list of supported modes - - -'-------------------START-OF-PROGRAM--------------------------------- -ON ERROR GOTO handler -works = 50 ' Later replaced by the first working mode -test = 1 ' Activates first mode to test (start at - ' 1 to test all screen modes) -starttest: -IF test = 14 THEN GOTO ender ' Ends since there is no SCREEN 14 -IF nogo = 0 THEN SCREEN test ' Core tester - activates a screen mode -IF nogo = 0 THEN LET list$ = list$ + "," + STR$(test) ' Creates a list of - ' working screen modes. -IF nogo = 0 AND works = 50 THEN LET works = test ' Generates a working screen - ' mode to display working - ' mode numbers. -nogo = 0 ' Replaces error handler. -test = test + 1 ' Tests a new screen mode. -GOTO starttest ' Restarts the test. - - -'----------------Display-working-screen-modes---------------------- -ender: -SCREEN works ' Uses a working graphics mode. -PRINT "Your graphics adapter supports screen" ' Displays your working -PRINT "modes 0"; list$; "." ' screen modes. -' NOTE: All graphics adapters support SCREEN 0 -END - - -'------------------Error-handling-variable-activater--------------- -handler: -LET nogo = 1 ' Activates the error handling variable. -RESUME NEXT -'----------------------------------------------------------------- \ No newline at end of file diff --git a/programs/samples/pete/simpire/buttons.spr b/programs/samples/pete/simpire/buttons.spr deleted file mode 100644 index 2e810786b..000000000 Binary files a/programs/samples/pete/simpire/buttons.spr and /dev/null differ diff --git a/programs/samples/pete/simpire/default.pal b/programs/samples/pete/simpire/default.pal deleted file mode 100644 index 556dce609..000000000 Binary files a/programs/samples/pete/simpire/default.pal and /dev/null differ diff --git a/programs/samples/pete/simpire/fontdata.dat b/programs/samples/pete/simpire/fontdata.dat deleted file mode 100644 index 05e35ae5a..000000000 --- a/programs/samples/pete/simpire/fontdata.dat +++ /dev/null @@ -1,1008 +0,0 @@ -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,1,0,0 -0,1,0,1,0,0 -0,1,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,1,0,0 -1,1,1,1,1,0 -0,1,0,1,0,0 -0,1,0,1,0,0 -1,1,1,1,1,0 -0,1,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,1,1,0,0 -1,0,1,0,0,0 -0,1,1,1,0,0 -0,0,1,0,1,0 -0,1,1,1,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -1,1,0,0,1,0 -1,1,0,0,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,1,0,0,1,1 -1,0,0,0,1,1 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,0,1,0,0 -0,0,1,0,0,0 -0,1,0,1,0,1 -1,0,0,0,1,0 -0,1,1,1,0,1 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,0,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -1,0,1,0,1,0 -0,1,1,1,0,0 -1,0,1,0,1,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -1,1,1,1,1,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,0,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,1,0 -0,0,0,0,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,1,1,0 -1,0,1,0,1,0 -1,1,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,0,0,1,0,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,1,0,0 -0,0,1,1,0,0 -0,1,0,1,0,0 -1,1,1,1,1,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,0,0 -1,1,1,1,0,0 -0,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,0,0 -1,0,1,1,0,0 -1,1,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -1,0,0,0,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -0,1,1,1,1,0 -0,0,0,0,1,0 -0,0,0,0,1,0 -0,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -1,0,0,0,0,0 -0,1,0,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,0,0 -0,1,0,0,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,0,1,0,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,1,0 -1,0,0,0,0,1 -1,0,1,1,0,1 -1,0,1,1,0,1 -1,0,0,1,1,1 -0,1,0,0,0,0 -0,0,1,1,1,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -1,0,0,0,0,0 -1,1,1,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,1,1,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,1,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,1,0 -0,0,0,0,1,0 -0,0,0,0,1,0 -0,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,1,0,0 -1,0,1,0,0,0 -1,1,0,0,0,0 -1,0,1,0,0,0 -1,0,0,1,0,0 -1,0,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,1,0,1,1,0 -1,0,1,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,1,0,0,1,0 -1,0,1,0,1,0 -1,0,0,1,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,1,0,1,0 -0,1,1,1,0,0 -0,0,0,0,1,0 -0,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,0,0 -0,1,1,1,0,0 -0,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,0,1,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,1,0,1,0 -1,0,1,0,1,0 -0,1,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,0,1,0,0 -0,0,1,0,0,0 -0,1,0,1,0,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,0,1,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -1,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -0,1,0,0,0,0 -0,0,1,0,0,0 -0,0,0,1,0,0 -0,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,0,1,0,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,0,1,0,0,0 -0,0,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,0,0,0 -1,0,0,1,0,0 -1,0,0,1,0,0 -1,0,0,1,0,0 -0,1,1,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,1,0 -0,1,1,1,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,1,1,1,1,0 -1,0,0,0,0,0 -0,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,1,1,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,1,1,1,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,1,0 -0,0,0,0,1,0 -0,1,1,1,0,0 -1,0,0,0,0,0 -1,0,1,1,0,0 -1,1,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,1,0,0 -0,0,0,0,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,1,1,0,0,0 -1,0,0,0,0,0 -1,0,0,1,0,0 -1,0,1,0,0,0 -1,1,1,0,0,0 -1,0,1,0,0,0 -1,0,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,0,1,1,0 -1,0,1,0,1,0 -1,0,1,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,1,1,0,0 -1,1,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,1,1,1,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,1,1,1,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,1,1,0 -0,1,0,0,1,0 -0,1,0,0,1,0 -0,1,0,0,1,0 -0,0,1,1,1,0 -0,0,0,0,1,0 -0,0,0,0,1,0 -0,0,0,0,0,0 -1,0,1,1,1,0 -1,1,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -1,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,1,1,0,0 -1,0,0,0,0,0 -0,1,1,1,0,0 -0,0,0,0,1,0 -0,1,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,0,0,0 -0,1,1,1,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,0,0,0 -0,0,1,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,1,0,0 -1,0,0,1,0,0 -1,0,0,1,0,0 -1,0,0,1,0,0 -0,1,1,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -0,1,0,1,0,0 -0,0,1,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,0,0,1,0 -1,0,1,0,1,0 -0,1,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -1,0,0,0,1,0 -0,1,0,1,0,0 -0,0,1,0,0,0 -0,1,0,1,0,0 -1,0,0,0,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,1,0 -0,1,0,0,1,0 -0,1,0,0,1,0 -0,1,0,0,1,0 -0,0,1,1,1,0 -0,0,0,0,1,0 -0,0,1,1,0,0 -0,0,0,0,0,0 -1,1,1,1,1,0 -0,0,0,1,0,0 -0,0,1,0,0,0 -0,1,0,0,0,0 -1,1,1,1,1,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,1,1,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -1,0,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,0,1,1,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,1,0,0,0,0 -0,0,0,0,0,0 -0,1,1,0,0,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,0,0,0,1,0 -0,0,0,1,0,0 -0,0,0,1,0,0 -0,1,1,0,0,0 -0,0,0,0,0,0 -0,1,1,0,1,0 -1,0,0,1,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 -0,0,0,0,0,0 diff --git a/programs/samples/pete/simpire/ssimpire.bas b/programs/samples/pete/simpire/ssimpire.bas deleted file mode 100644 index 92d3d6214..000000000 --- a/programs/samples/pete/simpire/ssimpire.bas +++ /dev/null @@ -1,1739 +0,0 @@ -CHDIR ".\programs\samples\pete\simpire" - -' ²±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±² -' ² Simpire Beta ² -' ²±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±² -' By Pyrus, Polarris@worldnet.att.net -' E-mail me with comments or suggestions. -' -' A strategy-type game in QuickBasic. -' -' You may will out of string space or memory in Qbasic 1.1, -' but this does work in Quickbasic 4.5. I would compile it, but -' it gets alot of errors... -' -' Some of the unfinished features in the beta are that -' you cannot battle another city, you cannot load a custom -' map yet, and sound has not been added. Also, the gold mine -' needs it's options programmed. You must go down to the CHDIR -' command and change it to the directory the program is in. -' I also need to make the small map update it's self. -' -' To gain citizens, build houses and Townhalls. To gain gold, -' you cut down trees and trade them for gold or by assassinating -' another city leader. To get more soldiers, you trade gold -' for them. Use the arror keys to scroll, and S to select menu -' items. - -' For speed -DEFINT A-Z -' Declare subroutines and functions -DECLARE SUB printFX (text AS STRING) -DECLARE SUB menu () -DECLARE FUNCTION CheckForVillage! () -DECLARE SUB talkwin (text$, text2$, text3$, text4$, text5$, text6$, text7$, text8$, more%) -DECLARE SUB viewspr (filename$) -DECLARE SUB loadpal () -DECLARE SUB changeanim () -DECLARE SUB InitVars () -DECLARE SUB LoadTiles () -DECLARE SUB LoadWorld () -DECLARE SUB ShowMap () -DECLARE SUB MoveDown () -DECLARE SUB MoveLeft () -DECLARE SUB MoveRight () -DECLARE SUB MoveUp () -DECLARE SUB PutPlayerPic () -DECLARE SUB PutTile (Ico, Jco, mapno) -DECLARE SUB LoadTile (Array()) -DECLARE SUB jfont (a$, C, XCoordinate, YCoordinate, size) -DECLARE SUB PutCursorPic (cursor%) -DECLARE SUB Delay (seconds!) -DEFINT A-Z - -' Some TYPES -TYPE WorldDataType -Rows AS INTEGER -Cols AS INTEGER -TopRow AS INTEGER -TopCol AS INTEGER -Action AS INTEGER -AnimCycle AS INTEGER -Direc AS INTEGER -PlayerY AS INTEGER -END TYPE - -TYPE MapType -tile AS INTEGER -WalkOn AS INTEGER -END TYPE - -TYPE HUES -Red AS INTEGER -grn AS INTEGER -blu AS INTEGER -END TYPE - - -' Define some Constants -CONST North = 1, South = 2, East = 3, West = 4 -CONST true = -1, false = 0 - -' DIM Some Varibles -' "640K Ought to be enough for anyone" -Bill Gates' -DIM SHARED charset(128, 8, 6) 'array for storing font information -DIM SHARED WorldData AS WorldDataType -DIM SHARED map(-7 TO 70, -7 TO 62) AS MapType -DIM ColPal AS STRING * 768 -DIM ColPal2 AS STRING * 768 -DIM NewPal AS STRING * 768 -DIM SHARED fontcolor$ -DIM SHARED gold% -DIM SHARED wood% - - -' DIM the tile set -DIM SHARED ruble(205), stump(205), grass(205), water(205), Tree(205), stone(205), blank(205), ushore(205), dshore(205), lshore(205), rshore(205), tlshore(205), trshore(205), blshore(205), brshore(205), itlshore(205), itrshore(205), iblshore(205), _ -ibrshore(205), cpath(205) -DIM SHARED farm.topleft(205), farm.topright(205), castle.topleft(205), castle.topright(205), townhall.topleft(205), townhall.topright(205), civil.topleft(205), civil.topright(205) -DIM SHARED farm.bottomleft(205), farm.bottomright(205), castle.bottomleft(205), castle.bottomright(205), townhall.bottomleft(205), townhall.bottomright(205), civil.bottomleft(205), civil.bottomright(205) -DIM SHARED goldiconmask(205), goldicon(205) -DIM SHARED woodiconmask(205), woodicon(205) -DIM SHARED mine.topleft(205), mine.topright(205), mine.bottomleft(205), mine.bottomright(205) -DIM SHARED enemy.knight(205), path(205) - -'DIM the cursor -DIM SHARED cursor(205), cursor02(205), cursormask(205), cursor02mask(205) -DIM SHARED woodtext(1050), bricktext(1050), cursor2(205), cursor2mask(205), cursor3mask(305), cursor3(305) - -' DIM a few other graphics -DIM SHARED smallmap(9000), woodtextmini(205) -DIM SHARED person.consultor(805), person.ninja(805), person.other(805), person.snow(805), person.mean(805) - -' Define some keys -upkey$ = CHR$(0) + "H" -downkey$ = CHR$(0) + "P" -RightKey$ = CHR$(0) + CHR$(77) -LeftKey$ = CHR$(0) + CHR$(75) -F1$ = CHR$(0) + CHR$(59) -F2$ = CHR$(0) + CHR$(60) -F3$ = CHR$(0) + CHR$(61) -F4$ = CHR$(0) + CHR$(62) -F5$ = CHR$(0) + CHR$(63) -F6$ = CHR$(0) + CHR$(64) -F7$ = CHR$(0) + CHR$(65) -F8$ = CHR$(0) + CHR$(66) -F9$ = CHR$(0) + CHR$(67) -F10$ = CHR$(0) + CHR$(68) -F11$ = CHR$(0) + CHR$(69) -CtrlRight$ = CHR$(0) + CHR$(116) -CtrlLeft$ = CHR$(0) + CHR$(115) -enter$ = CHR$(13) - -' 320x200 with 256 color Resolution -SCREEN 13 -printFX "By Pyrus" -PLAY "T160O0L32EF" -DO -x$ = INKEY$ -LOOP UNTIL x$ = " " OR x$ = CHR$(13) - -' Load Custom Palette -loadpal - -' Load Custom Font -OPEN "fontdata.dat" FOR INPUT AS #1 -FOR a = 1 TO 126 -FOR x = 1 TO 8 -FOR y = 1 TO 6 -INPUT #1, B -charset(a, x, y) = B -NEXT y -NEXT x -NEXT a -CLOSE - -' Loads graphic tile set -CALL LoadTiles -DIM title(5000) -DIM titlemask(5000) -viewspr ("title.spr") -GET (1, 1)-(119, 39), title -GET (1, 40)-(119, 79), titlemask -CLS - -' intro and title screen -FOR y = 0 TO 180 STEP 20 -FOR x = 0 TO 300 STEP 20 -PUT (x, y), bricktext, PSET -NEXT -NEXT - -PUT (95, 15), titlemask, AND -PUT (95, 15), title, OR -CALL jfont("v1.0", 15, 220, 30, 1) - - -LINE (95, 50)-(215, 140), 0, BF -LINE (95, 50)-(215, 140), 112, B -CALL jfont("Begin Simpire", 2, 117, 65, 1) -CALL jfont("Load Custom Map", 15, 111, 75, 1) -CALL jfont("Options", 15, 135, 85, 1) -CALL jfont("Help", 15, 144, 95, 1) -CALL jfont("About", 15, 142, 105, 1) -CALL jfont("Quit to Dos", 15, 124, 115, 1) -sel = 1 -DIM tempimg(8200) - -menu: - -DO -x$ = INKEY$ - -LOOP UNTIL x$ = upkey$ OR x$ = downkey$ OR x$ = CHR$(13) - -IF x$ = CHR$(13) THEN - -IF sel = 6 THEN -FOR T = 1 TO 84 STEP 4 -Delay .0009 -LINE (0, 0)-(T, 200), 0, BF -LINE (80, 0)-(80 + T, 200), 0, BF -LINE (160, 0)-(160 + T, 200), 0, BF -LINE (240, 0)-(240 + T, 200), 0, BF -NEXT -CLS -END -END IF - - -IF sel = 1 THEN GOTO start - -IF sel = 2 THEN -GET (30, 50)-(291, 111), tempimg -LINE (30, 50)-(291, 111), 0, BF -LINE (30, 50)-(291, 111), 112, B -FOR x = 1 TO 260 STEP 20 -PUT (30 + x, 51), woodtextmini, PSET -PUT (30 + x, 71), woodtextmini, PSET -PUT (30 + x, 91), woodtextmini, PSET -NEXT -LINE (40, 60)-(81, 99), 0, BF -PUT (41, 60), person.snow, PSET -LINE (40, 60)-(81, 99), 112, B -LINE (90, 60)-(278, 100), 0, BF -LINE (90, 60)-(278, 100), 112, B -CALL jfont("This feature is not ready yet.", 15, 95, 61, 1) -CALL jfont("", 2, 95, 71, 1) -CALL jfont("", 2, 95, 81, 1) -CALL jfont("Press Enter", 15, 95, 91, 1) -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) -PUT (30, 50), tempimg, PSET -ERASE tempimg -END IF - -IF sel = 3 THEN -GET (30, 50)-(291, 111), tempimg -LINE (30, 50)-(291, 111), 0, BF -LINE (30, 50)-(291, 111), 112, B -FOR x = 1 TO 260 STEP 20 -PUT (30 + x, 51), woodtextmini, PSET -PUT (30 + x, 71), woodtextmini, PSET -PUT (30 + x, 91), woodtextmini, PSET -NEXT -LINE (40, 60)-(81, 99), 0, BF -PUT (41, 60), person.ninja, PSET -LINE (40, 60)-(81, 99), 112, B -LINE (90, 60)-(278, 100), 0, BF -LINE (90, 60)-(278, 100), 112, B -CALL jfont("What kind of sound do you want?", 15, 95, 61, 1) -CALL jfont("I want Adlib Compable.", 2, 95, 71, 1) -CALL jfont("I want PC Speaker.", 15, 95, 81, 1) -CALL jfont("Press Enter when done", 15, 95, 91, 1) -sel = 1 -options: -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) OR x$ = upkey$ OR x$ = downkey$ - -IF x$ = downkey$ THEN sel = sel + 1 -IF x$ = upkey$ THEN sel = sel + 1 - -IF sel = 3 THEN sel = 1 -IF sel = 0 THEN sel = 2 - -CALL jfont("I want Adlib Compable.", 15, 95, 71, 1) -CALL jfont("I want PC Speaker.", 15, 95, 81, 1) - -IF sel = 1 THEN CALL jfont("I want Adlib Compable.", 2, 95, 71, 1) -IF sel = 2 THEN CALL jfont("I want PC Speaker.", 2, 95, 81, 1) - -IF x$ = CHR$(13) THEN - -IF sel = 1 THEN -CALL talkwin("This feature has not been added yet.", "", "", "", "", "", "", "", 2) -END IF - -IF sel = 2 THEN -CALL talkwin("This feature has not been added yet.", "", "", "", "", "", "", "", 2) -END IF - -PUT (30, 50), tempimg, PSET -ERASE tempimg -sel = 3 -GOTO donesound -END IF - -GOTO options - -donesound: -END IF - -IF sel = 4 THEN -GET (30, 50)-(291, 111), tempimg -LINE (30, 50)-(291, 111), 0, BF -LINE (30, 50)-(291, 111), 112, B -FOR x = 1 TO 260 STEP 20 -PUT (30 + x, 51), woodtextmini, PSET -PUT (30 + x, 71), woodtextmini, PSET -PUT (30 + x, 91), woodtextmini, PSET -NEXT -LINE (40, 60)-(81, 99), 0, BF -PUT (41, 60), person.mean, PSET -LINE (40, 60)-(81, 99), 112, B -LINE (90, 60)-(278, 100), 0, BF -LINE (90, 60)-(278, 100), 112, B -CALL jfont("How to play.", 15, 95, 61, 1) -CALL jfont("Arror keys control scrolling.", 2, 95, 71, 1) -CALL jfont("S controls the menu.", 2, 95, 81, 1) -CALL jfont("Press Enter", 15, 95, 91, 1) -sel = 1 -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) -PUT (30, 50), tempimg, PSET -ERASE tempimg -sel = 4 -END IF - -IF sel = 5 THEN -GET (30, 50)-(291, 111), tempimg -LINE (30, 50)-(291, 111), 0, BF -LINE (30, 50)-(291, 111), 112, B -FOR x = 1 TO 260 STEP 20 -PUT (30 + x, 51), woodtextmini, PSET -PUT (30 + x, 71), woodtextmini, PSET -PUT (30 + x, 91), woodtextmini, PSET -NEXT -LINE (40, 60)-(81, 99), 0, BF -PUT (41, 60), person.other, PSET -LINE (40, 60)-(81, 99), 112, B -LINE (90, 60)-(278, 100), 0, BF -LINE (90, 60)-(278, 100), 112, B -CALL jfont("Simpire v1.0", 15, 95, 61, 1) -CALL jfont("By Pyrus of WinterScape", 2, 95, 71, 1) -CALL jfont("Polarris@worldnet.att.net", 2, 95, 81, 1) -CALL jfont("Press Enter", 15, 95, 91, 1) -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) -PUT (30, 50), tempimg, PSET -ERASE tempimg -END IF - - - -END IF - - - - -IF x$ = downkey$ THEN sel = sel + 1 -IF x$ = upkey$ THEN sel = sel - 1 - -IF sel = 0 THEN sel = 6 -IF sel = 7 THEN sel = 1 -CALL jfont("Begin Simpire", 15, 117, 65, 1) -CALL jfont("Load Custom Map", 15, 111, 75, 1) -CALL jfont("Options", 15, 135, 85, 1) -CALL jfont("Help", 15, 144, 95, 1) -CALL jfont("About", 15, 142, 105, 1) -CALL jfont("Quit to Dos", 15, 124, 115, 1) - -IF sel = 1 THEN CALL jfont("Begin Simpire", 2, 117, 65, 1) -IF sel = 2 THEN CALL jfont("Load Custom Map", 2, 111, 75, 1) -IF sel = 3 THEN CALL jfont("Options", 2, 135, 85, 1) -IF sel = 4 THEN CALL jfont("Help", 2, 144, 95, 1) -IF sel = 5 THEN CALL jfont("About", 2, 142, 105, 1) -IF sel = 6 THEN CALL jfont("Quit to Dos", 2, 124, 115, 1) - -GOTO menu - -start: -' Start Up Subs -CALL InitVars -CALL LoadWorld -CALL menu - -' A few other im[porrtant varibles -selct% = 1: menutitle% = 1: -abletotrade% = 1: gold% = 20: wood% = 20 - - -' Makes the begining main menu -LINE (5, 60)-(56, 152), 0, BF -LINE (5, 60)-(56, 152), 112, B -LINE (5, 72)-(56, 72), 112 -CALL jfont("Menu:", 15, 7, 62, 1) -CALL jfont("Build", 2, 7, 75, 1) -CALL jfont("Destroy", 15, 7, 85, 1) -CALL jfont("Attack", 15, 7, 95, 1) -CALL jfont("Trade", 15, 7, 105, 1) -CALL jfont("Status", 15, 7, 115, 1) -CALL jfont("Quit", 15, 7, 125, 1) - -' Prints how much gold and wood you have -COLOR 15 -LOCATE 21, 4: PRINT gold% -LOCATE 23, 4: PRINT wood% - -' Show the map -CALL ShowMap -CALL PutCursorPic(1) - -' Startup Message -startup: -CALL talkwin("Welcome to this demo of Simpire. Feel free to", "build a city. If you can achieve a population", "of 100 citizens, you will win.", "", "", "", "", "", 2) - -' Starts the main loop -again: - -' Checks if you have reached your goal -IF poplation% >= 100 THEN -CALL talkwin("You achieved a population of 100 citizens.", "Very good job.", "", "", "", "", "", "", 2) -CLS -END -END IF - -' Prints how much gold and wood you have -LOCATE 21, 4: PRINT gold% -LOCATE 23, 4: PRINT wood% - -' Starts a loop that waits for keys -DO -x$ = INKEY$ -LOOP UNTIL x$ = "d" OR x$ = "D" OR x$ = "p" OR x$ = "P" OR x$ = "q" OR x$ = "Q" OR x$ = enter$ OR x$ = "s" OR x$ = "S" OR x$ = CHR$(27) OR x$ = CHR$(0) + "H" OR x$ = CHR$(0) + "P" OR x$ = CHR$(0) + "K" OR x$ = CHR$(0) + "M" - - -' Determines what key you pressed - -IF x$ = "d" OR x$ = "D" THEN - -IF destroy% = 0 THEN GOTO nokill - -IF destroy% = 1 THEN - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 41 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 2 -destroy% = 0: -GOTO donedes -END IF - - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 4 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 3 -destroy% = 0: wood% = wood% + 1 -IF wood% >= 99 THEN wood% = 99 -GOTO donedes -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 5 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 2: -destroy% = 0 -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 18 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 20 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 23 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 25 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 1 -map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile = 1 -map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile = 1 -map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile = 1 -destroy% = 0 -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 19 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 21 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 24 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 26 THEN -map(WorldData.TopCol + 7, WorldData.TopRow + 5).tile = 1 -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 1 -map(WorldData.TopCol + 7, WorldData.TopRow + 6).tile = 1 -map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile = 1 -destroy% = 0 -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 27 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 29 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 32 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 34 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 4).tile = 1 -map(WorldData.TopCol + 9, WorldData.TopRow + 4).tile = 1 -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 1 -map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile = 1 -destroy% = 0 -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 28 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 30 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 33 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 35 THEN -map(WorldData.TopCol + 7, WorldData.TopRow + 4).tile = 1 -map(WorldData.TopCol + 8, WorldData.TopRow + 4).tile = 1 -map(WorldData.TopCol + 7, WorldData.TopRow + 5).tile = 1 -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 1 -destroy% = 0 -END IF - -END IF - -donedes: -CALL ShowMap - -nokill: - -END IF - -IF x$ = "p" OR x$ = "P" THEN - -IF wantbuild% = 0 THEN GOTO noplace -IF buildtoplace% = 0 THEN GOTO noplace - -IF canbuild% = 1 THEN - -IF gold% >= 5 AND wood% >= 5 THEN -IF buildtoplace% = 1 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 18 -map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile = 19 -map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile = 27 -map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile = 28 -CALL ShowMap -typ% = 1: CALL PutCursorPic(typ%) -farms% = farms% + 1 -poplation% = poplation% + 1 -wantbuild% = 0 -gold% = gold% - 5 -wood% = wood% - 5 -END IF -END IF - -IF gold% >= 15 AND wood% >= 15 THEN -IF buildtoplace% = 2 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 20 -map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile = 21 -map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile = 29 -map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile = 30 -CALL ShowMap -typ% = 1: CALL PutCursorPic(typ%) -wantbuild% = 0 -gold% = gold% - 15 -wood% = wood% - 15 -castle% = castle% + 1 -soldiers% = soldiers% + 5 -END IF -END IF - -IF gold% >= 15 AND wood% >= 15 THEN -IF buildtoplace% = 3 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 23 -map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile = 24 -map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile = 32 -map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile = 33 -CALL ShowMap -typ% = 1: CALL PutCursorPic(typ%) -wantbuild% = 0 -gold% = gold% - 15 -wood% = wood% - 15 -townhall% = townhall% + 1 -poplation% = poplation% + 10 -END IF -END IF - -IF gold% >= 5 AND wood% >= 5 THEN -IF buildtoplace% = 4 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 25 -map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile = 26 -map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile = 34 -map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile = 35 -CALL ShowMap -typ% = 1: CALL PutCursorPic(typ%) -wantbuild% = 0 -gold% = gold% - 5 -wood% = wood% - 5 -house% = house% + 1 -poplation% = poplation% + 3 -END IF - -END IF - -IF gold% >= 1 AND wood% >= 1 THEN -IF buildtoplace% = 5 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 41 -CALL ShowMap -typ% = 1: CALL PutCursorPic(typ%) -wantbuild% = 0 -gold% = gold% - 1 -wood% = wood% - 1 -numofspac% = 0 -END IF -END IF - -IF gold% >= 1 AND wood% >= 1 THEN -IF buildtoplace% = 6 THEN -map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 4 -CALL ShowMap -typ% = 1: CALL PutCursorPic(typ%) -wantbuild% = 0 -gold% = gold% - 1 -wood% = wood% - 1 -numofspac% = 0 -END IF -END IF - - - - -END IF - -noplace: -END IF - -IF x$ = "q" OR x$ = "Q" THEN -END -END IF - -IF x$ = CHR$(0) + "H" THEN -CALL MoveUp -END IF - -IF x$ = CHR$(0) + "P" THEN -CALL MoveDown -END IF - -IF x$ = CHR$(0) + "K" THEN -CALL MoveLeft -END IF - -IF x$ = CHR$(0) + "M" THEN -CALL MoveRight -END IF - -IF x$ = "s" OR x$ = "S" THEN -selct% = selct% + 1 - -selectmenu: -IF menutitle% = 1 THEN -IF selct% = 7 THEN selct% = 1 -CALL jfont("Menu:", 15, 7, 62, 1) -CALL jfont("Build", 15, 7, 75, 1) -CALL jfont("Destroy", 15, 7, 85, 1) -CALL jfont("Attack", 15, 7, 95, 1) -CALL jfont("Trade", 15, 7, 105, 1) -CALL jfont("Status", 15, 7, 115, 1) -CALL jfont("Quit", 15, 7, 125, 1) - -IF selct% = 1 THEN CALL jfont("Build", 2, 7, 75, 1) -IF selct% = 2 THEN CALL jfont("Destroy", 2, 7, 85, 1) -IF selct% = 3 THEN CALL jfont("Attack", 2, 7, 95, 1) -IF selct% = 4 THEN CALL jfont("Trade", 2, 7, 105, 1) -IF selct% = 5 THEN CALL jfont("Status", 2, 7, 115, 1) -IF selct% = 6 THEN CALL jfont("Quit", 2, 7, 125, 1) - -END IF - -IF menutitle% = 2 THEN -IF selct% = 8 THEN selct% = 1 -CALL jfont("Build:", 15, 7, 62, 1) -CALL jfont("Farm", 15, 7, 75, 1) -CALL jfont("Castle", 15, 7, 85, 1) -CALL jfont("Townhall", 15, 7, 95, 1) -CALL jfont("House", 15, 7, 105, 1) -CALL jfont("Path", 15, 7, 115, 1) -CALL jfont("Tree", 15, 7, 125, 1) -CALL jfont("Exit", 15, 7, 135, 1) - -IF selct% = 1 THEN CALL jfont("Farm", 2, 7, 75, 1) -IF selct% = 2 THEN CALL jfont("Castle", 2, 7, 85, 1) -IF selct% = 3 THEN CALL jfont("Townhall", 2, 7, 95, 1) -IF selct% = 4 THEN CALL jfont("House", 2, 7, 105, 1) -IF selct% = 5 THEN CALL jfont("Path", 2, 7, 115, 1) -IF selct% = 6 THEN CALL jfont("Tree", 2, 7, 125, 1) -IF selct% = 7 THEN CALL jfont("Exit", 2, 7, 135, 1) - -END IF -END IF - -IF x$ = enter$ THEN - -IF menutitle% = 1 AND selct% = 1 THEN -selct% = 0 -menutitle% = 2 -LINE (5, 60)-(56, 152), 0, BF -LINE (5, 60)-(56, 152), 112, B -LINE (5, 72)-(56, 72), 112 -GOTO selectmenu: -END IF - -IF menutitle% = 1 AND selct% = 6 THEN -CALL talkwin("Thanks for Playing.", "", "", "", "", "", "", "", 2) -FOR T = 1 TO 84 STEP 4 -Delay .0009 -LINE (0, 0)-(T, 200), 0, BF -LINE (80, 0)-(80 + T, 200), 0, BF -LINE (160, 0)-(160 + T, 200), 0, BF -LINE (240, 0)-(240 + T, 200), 0, BF -NEXT -CLS -SYSTEM -END IF - - -IF menutitle% = 1 AND selct% = 2 THEN -CALL talkwin("Please select what you want to destory. Then", "press D.", "", "", "", "", "", "", 2) -destroy% = 1 -END IF - -IF menutitle% = 1 AND selct% = 5 THEN -CALL talkwin("Welcome to the status menu.", "", "", "", "", "", "", "", 2) -LINE (80, 50)-(301, 111), 0, BF -LINE (80, 50)-(301, 111), 112, B -FOR x = 1 TO 220 STEP 20 -PUT (80 + x, 51), bricktext, PSET -PUT (80 + x, 71), bricktext, PSET -PUT (80 + x, 91), bricktext, PSET -NEXT -LINE (90, 55)-(131, 95), 0, BF -LINE (90, 55)-(131, 96), 112, B -PUT (91, 56), person.mean, PSET - -LINE (140, 55)-(290, 95), 0, BF -LINE (140, 55)-(290, 95), 112, B -even% = RND * 9 + 1 - -IF even% = 1 AND abletotrade% = 1 THEN -event1$ = "Snow Fall Blocks Trade." -event2$ = "" -LINE (90, 55)-(131, 95), 0, BF -LINE (90, 55)-(131, 96), 112, B -PUT (91, 56), person.snow, PSET -abletotrade% = 0 -END IF - -IF even% = 2 THEN -event1$ = "Forigners cut down" -event2$ = "many trees." -p% = RND * 40 -FOR I = p% TO p% + 10 -FOR J = p% TO p% + 10 -IF map(J, I).tile = 4 THEN map(J, I).tile = 3 -NEXT -NEXT -END IF - -IF even% = 3 THEN -event1$ = "You recive 5 gold!" -event2$ = "" -gold% = gold% + 5 -IF gold% >= 99 THEN gold% = 99 -END IF - -IF even% = 4 AND abletotrade% = 0 THEN -event1$ = "The snowing stops." -event2$ = "" -abletotrade% = 1 -GOTO eventss -END IF - -IF even% = 4 AND abletotrade% = 1 THEN -event1$ = "3 new soldiers join" -event2$ = "your army." -soldiers% = soldiers% + 3 -IF soldiers% >= 999 THEN soldiers% = 999 -END IF - -IF even% >= 5 AND even% <= 10 THEN -event1$ = "No new Events." -event2$ = "" -END IF - -eventss: -CALL jfont("Important Events:", 15, 145, 56, 1) -CALL jfont(event1$, 2, 145, 66, 1) -CALL jfont(event2$, 2, 145, 76, 1) -CALL jfont("Press Enter", 15, 145, 86, 1) -sel = 1 - -statusmenu: - -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) - -IF x$ = CHR$(13) THEN -LOCATE 21, 4: PRINT gold% -LOCATE 23, 4: PRINT wood% - -LINE (140, 55)-(290, 95), 0, BF -LINE (140, 55)-(290, 95), 112, B - -CALL jfont("Population, Soldiers", 15, 145, 56, 1) -LOCATE 10, 19: PRINT poplation%; ", "; soldiers% -CALL jfont("Press Enter to Exit", 15, 145, 86, 1) -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) - -END IF - -END IF - - - -IF menutitle% = 1 AND selct% = 3 THEN -CALL talkwin("Welcome to the attack menu.", "", "", "", "", "", "", "", 2) -LINE (80, 50)-(301, 111), 0, BF -LINE (80, 50)-(301, 111), 112, B -attmenu: -FOR x = 1 TO 220 STEP 20 -PUT (80 + x, 51), bricktext, PSET -PUT (80 + x, 71), bricktext, PSET -PUT (80 + x, 91), bricktext, PSET -NEXT -LINE (90, 55)-(131, 95), 0, BF -PUT (91, 56), person.other, PSET -LINE (90, 55)-(131, 95), 112, B - - -LINE (140, 55)-(290, 95), 0, BF -LINE (140, 55)-(290, 95), 112, B - -CALL jfont("How you want to attack?", 15, 145, 56, 1) -CALL jfont("Battle a city.", 2, 145, 66, 1) -CALL jfont("Kill a city leader.", 15, 145, 76, 1) -CALL jfont("Exit attack", 15, 145, 86, 1) -sel = 1 - -attackmenu: - -DO -x$ = INKEY$ -LOOP UNTIL x$ = upkey$ OR x$ = downkey$ OR x$ = CHR$(13) OR x$ = "s" OR x$ = "S" - -IF x$ = CHR$(13) THEN -IF sel = 1 THEN -CALL talkwin("This feature has not been added yet.", "", "", "", "", "", "", "", 2) -END IF -IF sel = 3 THEN GOTO exitattack -IF sel = 2 THEN GOTO assattack - -END IF - -IF x$ = upkey$ THEN sel = sel - 1 -IF x$ = downkey$ THEN sel = sel + 1 -IF x$ = "s" OR x$ = "S" THEN sel = sel + 1 -IF sel = 0 THEN sel = 4 -IF sel = 4 THEN sel = 1 -CALL jfont("How you want to attack?", 15, 145, 56, 1) -CALL jfont("Battle a city.", 15, 145, 66, 1) -CALL jfont("Kill a city leader.", 15, 145, 76, 1) -CALL jfont("Exit attack", 15, 145, 86, 1) - -IF sel = 1 THEN CALL jfont("Battle a city.", 2, 145, 66, 1) -IF sel = 2 THEN CALL jfont("Kill a city leader.", 2, 145, 76, 1) -IF sel = 3 THEN CALL jfont("Exit attack", 2, 145, 86, 1) -GOTO attackmenu - -assattack: -LINE (80, 50)-(301, 111), 0, BF -LINE (80, 50)-(301, 111), 112, B - -FOR x = 1 TO 220 STEP 20 -PUT (80 + x, 51), bricktext, PSET -PUT (80 + x, 71), bricktext, PSET -PUT (80 + x, 91), bricktext, PSET -NEXT -LINE (90, 55)-(131, 95), 0, BF -LINE (90, 55)-(131, 96), 112, B -PUT (91, 56), person.ninja, PSET - -LINE (140, 55)-(290, 95), 0, BF -LINE (140, 55)-(290, 95), 112, B - -CALL jfont("Are you sure?", 15, 145, 56, 1) -CALL jfont("Yes.", 2, 145, 66, 1) -CALL jfont("Exit kill menu", 15, 145, 86, 1) -sel = 1 - -assmenu: -LOCATE 21, 4: PRINT gold% -LOCATE 23, 4: PRINT wood% - -DO -x$ = INKEY$ -LOOP UNTIL x$ = upkey$ OR x$ = downkey$ OR x$ = CHR$(13) OR x$ = "s" OR x$ = "S" - -IF x$ = CHR$(13) THEN -IF sel = 1 THEN -kil% = RND * 9 + 1 - -IF kil% <= 4 THEN -CALL talkwin("You sucsessfully assassinated a city leader.", "You gain 10 gold, 10 wood, and 5 soldires.", "", "", "", "", "", "", 2) -gold% = gold% + 10 -wood% = wood% + 10 -IF gold% >= 99 THEN gold% = 99 -IF wood% >= 99 THEN wood% = 99 -soldiers% = soldiers% + 5 -END IF - -IF kil% >= 5 THEN -CALL talkwin("The assassination was not sucessful. The city", "demands at least 20 gold.", "", "", "", "", "", "", 2) -gold% = gold% - 20 -IF gold% <= 0 THEN gold% = 0 -END IF - - -END IF - - -IF sel = 2 THEN GOTO attmenu -END IF - -IF x$ = upkey$ THEN sel = sel - 1 -IF x$ = downkey$ THEN sel = sel + 1 -IF x$ = "s" OR x$ = "S" THEN sel = sel + 1 -IF sel = 0 THEN sel = 2 -IF sel = 3 THEN sel = 1 -CALL jfont("Are you sure?", 15, 145, 56, 1) -CALL jfont("Yes.", 15, 145, 66, 1) -CALL jfont("Exit kill menu", 15, 145, 86, 1) - -IF sel = 1 THEN CALL jfont("Yes.", 2, 145, 66, 1) -IF sel = 2 THEN CALL jfont("Exit kill menu", 2, 145, 86, 1) -GOTO assmenu - - - - - - -exitattack: -END IF - -IF menutitle% = 1 AND selct% = 4 AND abletotrade% = 0 THEN -CALL talkwin("Snowfall blocks trade.", "", "", "", "", "", "", "", 2) -END IF - - -IF menutitle% = 1 AND selct% = 4 AND abletotrade% = 1 THEN -CALL talkwin("Welcome to the trade menu.", "", "", "", "", "", "", "", 2) -LINE (80, 50)-(301, 111), 0, BF -LINE (80, 50)-(301, 111), 112, B - -FOR x = 1 TO 220 STEP 20 -PUT (80 + x, 51), bricktext, PSET -PUT (80 + x, 71), bricktext, PSET -PUT (80 + x, 91), bricktext, PSET -NEXT -LINE (90, 55)-(131, 95), 0, BF -LINE (90, 55)-(131, 95), 112, B -PUT (91, 55), person.consultor, PSET - -LINE (140, 55)-(290, 95), 0, BF -LINE (140, 55)-(290, 95), 112, B - -CALL jfont("What you want to trade?", 15, 145, 56, 1) -CALL jfont("10 wood for 5 gold.", 2, 145, 66, 1) -CALL jfont("5 gold for a soldiers.", 15, 145, 76, 1) -CALL jfont("Exit Trade", 15, 145, 86, 1) -sel = 1 - -trademenu: -LOCATE 21, 4: PRINT gold% -LOCATE 23, 4: PRINT wood% - - -DO -x$ = INKEY$ -LOOP UNTIL x$ = upkey$ OR x$ = downkey$ OR x$ = CHR$(13) OR x$ = "s" OR x$ = "S" - -IF x$ = CHR$(13) THEN - -IF sel = 3 THEN GOTO exittrade - -IF sel = 1 THEN - -IF wood% >= 10 THEN -wood% = wood% - 10 -gold% = gold% + 5 -IF gold% >= 99 THEN gold% = 99 -CALL talkwin("You traded.", "", "", "", "", "", "", "", 2) -GOTO donesel2 -END IF - -IF wood% <= 9 THEN -CALL talkwin("You dont have enough wood.", "", "", "", "", "", "", "", 2) -END IF -donesel2: -END IF - -IF sel = 2 THEN - -IF gold% >= 5 THEN -gold% = gold% - 5 -soldiers% = soldiers% + 1 -CALL talkwin("You traded.", "", "", "", "", "", "", "", 2) -GOTO donesel1 -END IF - -IF gold% <= 4 THEN -CALL talkwin("You dont have enough gold.", "", "", "", "", "", "", "", 2) -END IF - -END IF - -donesel1: - -END IF - -IF x$ = upkey$ THEN sel = sel - 1 -IF x$ = downkey$ THEN sel = sel + 1 -IF x$ = "s" OR x$ = "S" THEN sel = sel + 1 -IF sel = 0 THEN sel = 4 -IF sel = 4 THEN sel = 1 -CALL jfont("What you want to trade?", 15, 145, 56, 1) -CALL jfont("10 wood for 5 gold.", 15, 145, 66, 1) -CALL jfont("5 gold for a soldiers.", 15, 145, 76, 1) -CALL jfont("Exit Trade", 15, 145, 86, 1) - -IF sel = 1 THEN CALL jfont("10 wood for 5 gold.", 2, 145, 66, 1) -IF sel = 2 THEN CALL jfont("5 gold for a soldiers.", 2, 145, 76, 1) -IF sel = 3 THEN CALL jfont("Exit Trade", 2, 145, 86, 1) -GOTO trademenu - -exittrade: -END IF - - -IF menutitle% = 2 THEN - -IF selct% = 1 THEN -IF gold% >= 5 AND wood% >= 5 THEN CALL talkwin("Please select where you want to build a farm.", "Then press P.", "", "", "", "", "", "", 2): buildtoplace% = 1: typ% = 3: CALL PutCursorPic(typ%): wantbuild% = 1 -IF gold% <= 4 OR wood% <= 4 THEN CALL talkwin("You do not have enough gold or wood.", "", "", "", "", "", "", "", 2): wantbuild% = 0 -END IF - -IF selct% = 2 THEN -IF gold% >= 15 AND wood% >= 15 THEN CALL talkwin("Please select where you want to build a", "castle. Then press P.", "", "", "", "", "", "", 2): buildtoplace% = 2: typ% = 3: CALL PutCursorPic(typ%): wantbuild% = 1 -IF gold% <= 14 OR wood% <= 14 THEN CALL talkwin("You do not have enough gold or wood.", "", "", "", "", "", "", "", 2): wantbuild% = 0 - -END IF - -IF selct% = 3 THEN -IF gold% >= 15 AND wood% >= 15 THEN CALL talkwin("Please select where you want to build a town", "hall. Then press P.", "", "", "", "", "", "", 2): buildtoplace% = 3: typ% = 3: CALL PutCursorPic(typ%): wantbuild% = 1 -IF gold% <= 14 OR wood% <= 14 THEN CALL talkwin("You do not have enough gold or wood.", "", "", "", "", "", "", "", 2): wantbuild% = 0 -END IF - -IF selct% = 4 THEN -IF gold% >= 5 AND wood% >= 5 THEN CALL talkwin("Please select where you want to build a house.", "Then press P.", "", "", "", "", "", "", 2): buildtoplace% = 4: typ% = 3: CALL PutCursorPic(typ%): wantbuild% = 1 -IF gold% <= 4 OR wood% <= 4 THEN CALL talkwin("You do not have enough gold or wood.", "", "", "", "", "", "", "", 2): wantbuild% = 0 -END IF - -IF selct% = 5 THEN -IF gold% >= 1 AND wood% >= 1 THEN CALL talkwin("Please select where you want to build a path", "segement. Then press P.", "", "", "", "", "", "", 2): buildtoplace% = 5: typ% = 3: CALL PutCursorPic(typ%): wantbuild% = 1: numofspac% = 1 -IF gold% <= 0 OR wood% <= 0 THEN CALL talkwin("You do not have enough gold or wood.", "", "", "", "", "", "", "", 2): wantbuild% = 0 -END IF - -IF selct% = 6 THEN -IF gold% >= 1 AND wood% >= 1 THEN CALL talkwin("Please select where you want to plant a Tree.", "Then press P.", "", "", "", "", "", "", 2): buildtoplace% = 6: typ% = 3: CALL PutCursorPic(typ%): wantbuild% = 1: numofspac% = 1 -IF gold% <= 0 OR wood% <= 0 THEN CALL talkwin("You do not have enough gold or wood.", "", "", "", "", "", "", "", 2): wantbuild% = 0 -END IF - -IF selct% = 7 THEN -menutitle% = 1 -selct% = 0 -LINE (5, 60)-(56, 152), 0, BF -LINE (5, 60)-(56, 152), 112, B -LINE (5, 72)-(56, 72), 112 -CALL jfont("Menu:", 15, 7, 62, 1) -CALL jfont("Build", 15, 7, 75, 1) -CALL jfont("Destroy", 15, 7, 85, 1) -CALL jfont("Attack", 15, 7, 95, 1) -CALL jfont("Trade", 15, 7, 105, 1) -CALL jfont("Status", 15, 7, 115, 1) -CALL jfont("Quit", 15, 7, 125, 1) -END IF - - - - -okok: -END IF -END IF - -IF x$ = CHR$(27) THEN -IF wantbuild% = 1 THEN wantbuild% = 0: GOTO noesx -IF destroy% = 1 THEN destroy% = 0: GOTO noesx - -menutitle% = 1 -selct% = 0 -LINE (5, 60)-(56, 152), 0, BF -LINE (5, 60)-(56, 152), 112, B -LINE (5, 72)-(56, 72), 112 -CALL jfont("Menu:", 15, 7, 62, 1) -CALL jfont("Build", 15, 7, 75, 1) -CALL jfont("Destroy", 15, 7, 85, 1) -CALL jfont("Attack", 15, 7, 95, 1) -CALL jfont("Trade", 15, 7, 105, 1) -CALL jfont("Status", 15, 7, 115, 1) -CALL jfont("Quit", 15, 7, 125, 1) - - -noesx: -END IF - -CALL ShowMap - -' Places an appropiate cursor - -IF destroy% = 1 THEN - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 3 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 2 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 1 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 37 OR map( _ -WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 38 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 39 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 40 THEN -CALL PutCursorPic(2) -GOTO donecursor -END IF - - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile > 2 OR map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile < 1 THEN -CALL PutCursorPic(3) -GOTO donecursor -END IF - -END IF - -IF wantbuild% = 1 THEN - - - -IF numofspac% = 1 THEN - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile <= 3 THEN -CALL PutCursorPic(3) -canbuild% = 1 -GOTO donecursor -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile >= 4 THEN -CALL PutCursorPic(2) -canbuild% = 2 -GOTO donecursor -END IF - - -END IF - - - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile >= 4 OR map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile >= 4 OR map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile >= 4 OR map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile >= 4 THEN -CALL PutCursorPic(2) -canbuild% = 2 -GOTO donecursor -END IF - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile <= 2 AND map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile <= 2 AND map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile <= 2 AND map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile <= 2 OR _ - map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile <= 3 OR map(WorldData.TopCol + 9, WorldData.TopRow + 5).tile <= 3 OR map(WorldData.TopCol + 8, WorldData.TopRow + 6).tile <= 3 OR map(WorldData.TopCol + 9, WorldData.TopRow + 6).tile <= 3 THEN -CALL PutCursorPic(3) -canbuild% = 1 -GOTO donecursor -END IF - -END IF - -IF destroy% = 0 AND wantbuild% = 0 THEN CALL PutCursorPic(1) - - -donecursor: -' Go to the top of the loop -GOTO again - -SUB changeanim - -' Simple. If they are on animation tile 1, make it 2, or vice versa. - -IF WorldData.AnimCycle = 1 THEN WorldData.AnimCycle = 2 ELSE IF WorldData.AnimCycle = 2 THEN WorldData.AnimCycle = 1 - -END SUB - -DEFSNG A-Z -FUNCTION CheckForVillage - IF map(WorldData.TopCol + 8, WorldData.TopRow + 5).tile = 1 THEN - CheckForVillage = true - END IF - -END FUNCTION - -SUB Delay (seconds!) - DEF SEG = 0 - D& = FIX(seconds! * 18.20444444#) - FOR T& = 0 TO D& - D% = PEEK(&H46C) AND 255 - DO WHILE D% = (PEEK(&H46C) AND 255) - LOOP - NEXT T& -END SUB - -DEFINT A-Z -SUB InitVars - -' Initalize some variables -WorldData.TopRow = 5 -WorldData.TopCol = 5 -WorldData.Direc = West -WorldData.AnimCycle = 1 -WorldData.PlayerY = 94 -END SUB - -SUB jfont (a$, C, XCoordinate, YCoordinate, size) - -size = INT(size) 'No decimals allowed! -IF size > 10 THEN size = 10 'Check and fix invalid size calls -IF size < 1 THEN size = 1 'likewise for <. - -YCoordinate = INT(YCoordinate / size) 'Prevent ballooning of YCoordinates - 'that is a result of using - 'size values larger than 1 for size - - -'Enter 999 as XCoordinate for centered text... -IF XCoordinate = 999 THEN XCoordinate = 160 - (LEN(a$) * 3 * size) - -startx = XCoordinate 'set Starting X-Val for character drawing - -FOR E = 1 TO LEN(a$) - - B$ = MID$(a$, E, 1) ' read each character of the string - a = ASC(B$) ' get ASCII values of each character - - FOR x = 1 TO 8 - - FOR y = 1 TO 6 - - SELECT CASE charset(a, x, y) 'use ASCII value (a) to point - 'to the correct element in - 'the array - - CASE 0: col = 0 ' Don't draw pixel - - CASE 1: col = C ' Draw pixel - - CASE ELSE ' Error! - CLS - SCREEN 9 - BEEP - COLOR 4 - PRINT "Error in FONTDATA.DAT" - PRINT "Program will now continue, but may exhibit erratic behavior..." - DO: LOOP UNTIL INKEY$ <> "" - SCREEN 13 - - END SELECT - - IF col <> 0 THEN 'Draw a pixel! - LINE (startx + pixelsright, (x + YCoordinate) * size)-(startx + pixelsright + (size - 1), ((x + YCoordinate) * size) + (size - 1)), col, BF - END IF - - startx = startx + size 'Set starting X-value for next pixel - - NEXT y - - startx = XCoordinate 'reset startx for next line of pixels - - NEXT x - pixelsright = pixelsright + (6 * size) ' add pixels for next character - -NEXT E - -END SUB - -SUB loadpal -DIM Pal(255) AS HUES 'dim array for palette -DEF SEG = VARSEG(Pal(0)) 'point to it -BLOAD "default.pal", 0 'load the goods -OUT &H3C8, 0 'inform vga -FOR atrib = 0 TO 255 'entire palette - OUT &H3C9, Pal(atrib).Red 'send red component - OUT &H3C9, Pal(atrib).grn 'send grn component - OUT &H3C9, Pal(atrib).blu 'send blu component -NEXT atrib 'next attribute -END SUB - -SUB LoadTiles -GET (0, 0)-(19, 19), blank - -viewspr ("tiles.spr") -GET (0, 0)-(19, 19), grass -GET (20, 0)-(39, 19), stone -GET (40, 0)-(59, 19), water -GET (60, 0)-(79, 19), Tree -GET (80, 0)-(99, 19), stump -GET (100, 0)-(119, 19), ruble -GET (0, 40)-(19, 59), path - - - -GET (0, 20)-(19, 39), ushore -GET (20, 20)-(39, 39), dshore -GET (40, 20)-(59, 39), lshore -GET (60, 20)-(79, 39), rshore -GET (80, 20)-(99, 39), tlshore -GET (100, 20)-(119, 39), trshore -GET (120, 20)-(139, 39), blshore -GET (140, 20)-(159, 39), brshore -GET (160, 20)-(179, 39), itlshore -GET (180, 20)-(199, 39), itrshore -GET (200, 20)-(219, 39), iblshore -GET (220, 20)-(239, 39), ibrshore - -GET (0, 40)-(19, 59), cpath - -GET (0, 60)-(19, 79), farm.topleft -GET (20, 60)-(39, 79), farm.topright -GET (40, 60)-(59, 79), castle.topleft -GET (60, 60)-(79, 79), castle.topright -GET (100, 60)-(119, 79), townhall.topleft -GET (120, 60)-(139, 79), townhall.topright -GET (140, 60)-(159, 79), civil.topleft -GET (160, 60)-(179, 79), civil.topright -GET (0, 100)-(19, 119), mine.topleft -GET (20, 100)-(39, 119), mine.topright - -GET (0, 80)-(19, 99), farm.bottomleft -GET (20, 80)-(39, 99), farm.bottomright -GET (40, 80)-(59, 99), castle.bottomleft -GET (60, 80)-(79, 99), castle.bottomright -GET (100, 80)-(119, 99), townhall.bottomleft -GET (120, 80)-(139, 99), townhall.bottomright -GET (140, 80)-(159, 99), civil.bottomleft -GET (160, 80)-(179, 99), civil.bottomright -GET (0, 120)-(19, 139), mine.bottomleft -GET (20, 120)-(39, 139), mine.bottomright -GET (0, 140)-(19, 159), enemy.knight - - -CLS - -viewspr ("buttons.spr") -GET (0, 0)-(19, 19), cursor -GET (20, 0)-(39, 19), cursor02 -GET (40, 0)-(59, 19), cursormask -GET (60, 0)-(79, 19), cursor02mask -GET (0, 20)-(19, 39), cursor2 -GET (60, 20)-(79, 39), cursor2mask -GET (0, 40)-(19, 59), cursor3 -GET (60, 40)-(79, 59), cursor3mask - -GET (80, 0)-(99, 19), goldicon -GET (100, 0)-(119, 19), goldiconmask -GET (80, 20)-(99, 39), woodicon -GET (100, 20)-(119, 39), woodiconmask - -GET (0, 60)-(39, 99), woodtext -GET (0, 60)-(19, 79), woodtextmini - -GET (40, 60)-(59, 79), bricktext - - -GET (0, 100)-(39, 139), person.consultor -GET (40, 100)-(79, 139), person.ninja -GET (80, 100)-(119, 139), person.other -GET (120, 100)-(159, 139), person.snow -GET (160, 100)-(199, 139), person.mean - - - - - - - -CLS -END SUB - -SUB LoadWorld - -WorldData.Rows = 50 -WorldData.Cols = 50 ' Get the rows and cols to read. -RANDOMIZE TIMER - -FOR I = 1 TO WorldData.Rows ' Go through a for loop to -FOR J = 1 TO WorldData.Cols ' load the world map data. - -tempnum% = RND * 10 - - -IF tempnum% >= 1 THEN map(J, I).tile = 2 -IF tempnum% <= 1 THEN map(J, I).tile = 4 - -IF tempnum% = 10 THEN -f% = RND * 5 -IF f% = 5 OR f% = 4 THEN map(J, I).tile = 5 -END IF - -IF map(J, I).tile = 0 THEN map(J, I).WalkOn = false -IF map(J, I).tile <> 0 THEN map(J, I).WalkOn = true - -IF map(J, I).tile = 2 THEN PSET (J, I), 70 -IF map(J, I).tile = 4 THEN PSET (J, I), 65 -IF map(J, I).tile = 36 THEN PSET (J, I), 1 -IF map(J, I).tile <> 2 AND map(J, I).tile <> 4 AND map(J, I).tile <> 36 THEN PSET (J, I), 70 - -NEXT J -NEXT I - - -' randomly places mine -a = RND * 49 -B = RND * 49 - -map(a, B).tile = 37 -map(a + 1, B).tile = 38 -map(a, B + 1).tile = 39 -map(a + 1, B + 1).tile = 40 -PSET (a, B), 14 - - -GET (1, 1)-(49, 50), smallmap - - -END SUB - -SUB menu -PUT (0, 0), woodtext, PSET -PUT (39, 0), woodtext, PSET -PUT (0, 40), woodtext, PSET -PUT (39, 40), woodtext, PSET -PUT (0, 80), woodtext, PSET -PUT (39, 80), woodtext, PSET -PUT (0, 120), woodtext, PSET -PUT (39, 120), woodtext, PSET -PUT (0, 160), woodtext, PSET -PUT (39, 160), woodtext, PSET -LINE (0, 0)-(60, 199), 112, B -LINE (5, 5)-(55, 56), 0, BF -LINE (5, 5)-(55, 56), 112, B -LINE (24, 155)-(55, 195), 0, BF -LINE (23, 154)-(56, 196), 112, B - -PUT (1, 155), goldiconmask, AND -PUT (1, 155), goldicon, OR -PUT (1, 175), woodiconmask, AND -PUT (1, 175), woodicon, OR -PUT (6, 6), smallmap, PSET - -END SUB - -SUB MoveDown - -WorldData.Direc = South ' Change players direc to south. -CALL changeanim ' Change player animation state. - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5 + 1).WalkOn = true THEN -WorldData.TopRow = WorldData.TopRow + 1 ' If the tile below them -END IF ' (WD.TopRow + 5 + 1) is - ' walkable, move there. -END SUB - -SUB MoveLeft - -WorldData.Direc = West ' Refer to SUB MoveDown. -CALL changeanim - -IF map(WorldData.TopCol + 8 - 1, WorldData.TopRow + 5).WalkOn = true THEN -WorldData.TopCol = WorldData.TopCol - 1 -END IF - -END SUB - -SUB MoveRight - -WorldData.Direc = East ' Refer to SUB MoveDown. -CALL changeanim - -IF map(WorldData.TopCol + 8 + 1, WorldData.TopRow + 5).WalkOn = true THEN - WorldData.TopCol = WorldData.TopCol + 1 -END IF - -END SUB - -SUB MoveUp - -WorldData.Direc = North ' Refer to SUB MoveDown. -CALL changeanim - -IF map(WorldData.TopCol + 8, WorldData.TopRow + 5 - 1).WalkOn = true THEN -WorldData.TopRow = WorldData.TopRow - 1 -END IF -END SUB - -SUB printFX (text AS STRING) - DIM x AS INTEGER, y AS INTEGER - DIM zoom AS SINGLE, I AS INTEGER, clock AS SINGLE - DIM xOff AS INTEGER, yOff AS INTEGER - DIM textLen AS INTEGER, banner AS INTEGER -limX = 319: limY = 199 -tileSize = 17: pSize = 170 -midX = limX \ 2 - tileSize \ 2: midY = limY \ 2 - tileSize \ 2 - - IF LEFT$(text, 1) = ">" THEN - text = RIGHT$(text, LEN(text) - 1) - banner = 40 - END IF -PALETTE 1, 0 - COLOR 1 - LOCATE 1, 1 - PRINT text -textLen = LEN(text) * 8 - 3 - DIM pic(textLen, 7) AS INTEGER - - FOR x = 0 TO textLen - FOR y = 0 TO 7 - IF POINT(x, y) = 1 THEN pic(x, y) = true - NEXT - NEXT - CLS - - FOR I = 0 TO 35 - OUT 968, I + palMax + 1 - OUT 969, I + 15 - OUT 969, I + 15 - OUT 969, I + 15 - NEXT - IF banner > 0 THEN - FOR I = 0 TO 35 - OUT 968, I + banner + 1 - OUT 969, I + 15 - OUT 969, (I + 1) \ 4 - OUT 969, (I + 1) \ 4 - NEXT - END IF - - FOR zoom = .2 TO 3.3 STEP .2 - xOff = midX - (textLen * zoom) \ 2 + zoom - yOff = midY - (7 * zoom) \ 2 + zoom - colr = palMax + 1 + zoom * 9 + zoom - bancol = (banner + 1 + zoom * 9 + zoom) * SGN(banner) - FOR x = 0 TO textLen - FOR y = 0 TO 7 - IF pic(x, y) THEN - LINE (xOff + x * zoom, yOff + y * zoom)-STEP(zoom, zoom), 8, BF - ELSE - LINE (xOff + x * zoom, yOff + y * zoom)-STEP(zoom, zoom), bancol, BF - END IF - NEXT - NEXT - clock = TIMER - DO UNTIL clock + .001 - TIMER <= 0 - LOOP - NEXT - - - -END SUB - -SUB PutCursorPic (cursor%) - -IF cursor% = 1 THEN -IF WorldData.AnimCycle = 1 THEN -PUT (160, WorldData.PlayerY + 6), cursormask, AND -PUT (160, WorldData.PlayerY + 6), cursor, OR -END IF - -IF WorldData.AnimCycle <> 1 THEN -PUT (160, WorldData.PlayerY + 6), cursor02mask, AND -PUT (160, WorldData.PlayerY + 6), cursor02, OR -END IF -END IF - -IF cursor% = 2 THEN -PUT (160, WorldData.PlayerY + 6), cursor2mask, AND -PUT (160, WorldData.PlayerY + 6), cursor2, OR -END IF - -IF cursor% = 3 THEN -PUT (160, WorldData.PlayerY + 6), cursor3mask, AND -PUT (160, WorldData.PlayerY + 6), cursor3, OR -END IF - - - - -END SUB - -SUB PutTile (Ico, Jco, mapno) - -SELECT CASE mapno -CASE 0 - PUT (Ico * 20, Jco * 20), blank, PSET -CASE 1 - PUT (Ico * 20, Jco * 20), ruble, PSET -CASE 5 - PUT (Ico * 20, Jco * 20), stone, PSET -CASE 2 - PUT (Ico * 20, Jco * 20), grass, PSET -CASE 3 - PUT (Ico * 20, Jco * 20), stump, PSET -CASE 4 - PUT (Ico * 20, Jco * 20), Tree, PSET -CASE 6 - PUT (Ico * 20, Jco * 20), ushore, PSET -CASE 7 - PUT (Ico * 20, Jco * 20), dshore, PSET -CASE 8 - PUT (Ico * 20, Jco * 20), lshore, PSET -CASE 9 - PUT (Ico * 20, Jco * 20), rshore, PSET -CASE 10 - PUT (Ico * 20, Jco * 20), tlshore, PSET -CASE 11 - PUT (Ico * 20, Jco * 20), trshore, PSET -CASE 12 - PUT (Ico * 20, Jco * 20), blshore, PSET -CASE 13 - PUT (Ico * 20, Jco * 20), brshore, PSET -CASE 14 - PUT (Ico * 20, Jco * 20), itlshore, PSET -CASE 15 - PUT (Ico * 20, Jco * 20), itrshore, PSET -CASE 16 - PUT (Ico * 20, Jco * 20), iblshore, PSET -CASE 17 - PUT (Ico * 20, Jco * 20), cpath, PSET -CASE 18 - PUT (Ico * 20, Jco * 20), farm.topleft, PSET -CASE 19 - PUT (Ico * 20, Jco * 20), farm.topright, PSET -CASE 20 - PUT (Ico * 20, Jco * 20), castle.topleft, PSET -CASE 21 - PUT (Ico * 20, Jco * 20), castle.topright, PSET -CASE 23 - PUT (Ico * 20, Jco * 20), townhall.topleft, PSET -CASE 24 - PUT (Ico * 20, Jco * 20), townhall.topright, PSET -CASE 25 - PUT (Ico * 20, Jco * 20), civil.topleft, PSET -CASE 26 - PUT (Ico * 20, Jco * 20), civil.topright, PSET -CASE 27 - PUT (Ico * 20, Jco * 20), farm.bottomleft, PSET -CASE 28 - PUT (Ico * 20, Jco * 20), farm.bottomright, PSET -CASE 29 - PUT (Ico * 20, Jco * 20), castle.bottomleft, PSET -CASE 30 - PUT (Ico * 20, Jco * 20), castle.bottomright, PSET -CASE 32 - PUT (Ico * 20, Jco * 20), townhall.bottomleft, PSET -CASE 33 - PUT (Ico * 20, Jco * 20), townhall.bottomright, PSET -CASE 34 - PUT (Ico * 20, Jco * 20), civil.bottomleft, PSET -CASE 35 - PUT (Ico * 20, Jco * 20), civil.bottomright, PSET -CASE 36 - PUT (Ico * 20, Jco * 20), water, PSET -CASE 37 - PUT (Ico * 20, Jco * 20), mine.topleft, PSET -CASE 38 - PUT (Ico * 20, Jco * 20), mine.topright, PSET -CASE 39 - PUT (Ico * 20, Jco * 20), mine.bottomleft, PSET -CASE 40 - PUT (Ico * 20, Jco * 20), mine.bottomright, PSET -CASE 41 - PUT (Ico * 20, Jco * 20), path, PSET - - -END SELECT - -END SUB - -SUB ShowMap - -FOR I = 3 TO 15 -FOR J = 0 TO 9 -PutTile I, J, map(I + WorldData.TopCol, J + WorldData.TopRow).tile -NEXT J -NEXT I - -END SUB - -SUB talkwin (text$, text2$, text3$, text4$, text5$, text6$, text7$, text8$, more%) -DIM talkw(9000) -GET (7, 7)-(284, 54), talkw -LINE (10, 10)-(280, 50), 0, BF -LINE (9, 9)-(281, 51), 8, B -LINE (8, 8)-(282, 52), 7, B -LINE (7, 7)-(283, 53), 15, B -CALL jfont(text$, 15, 12, 12, 1) -CALL jfont(text2$, 15, 12, 20, 1) -CALL jfont(text3$, 15, 12, 28, 1) -CALL jfont(text4$, 15, 12, 38, 1) - -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) -IF more% = 1 THEN -LINE (10, 10)-(280, 50), 0, BF -LINE (9, 9)-(281, 51), 8, B -LINE (8, 8)-(282, 52), 7, B -LINE (7, 7)-(283, 53), 15, B -CALL jfont(text5$, 15, 12, 12, 1) -CALL jfont(text6$, 15, 12, 20, 1) -CALL jfont(text7$, 15, 12, 28, 1) -CALL jfont(text8$, 15, 12, 38, 1) - -DO -x$ = INKEY$ -LOOP UNTIL x$ = CHR$(13) -END IF -PUT (7, 7), talkw, PSET -END SUB - -SUB viewspr (filename$) - -OPEN filename$ FOR BINARY AS #1 -filesize& = LOF(1) -CLOSE #1 - - -Bytes = (filesize& - 7) \ 2 - 1 'BSAVE & BLOAD use 7 bytes -REDIM sprites(Bytes) 'redim the sprite array -DEF SEG = VARSEG(sprites(0)) 'point to it -BLOAD filename$, 0 'load the sprite file -spritewidth = sprites(0) \ 8 'get sprite width -spriteheight = sprites(1) 'get sprite height - - -xsprites = 319 \ (spritewidth + 1) 'calc number of sprites across -xend = spritewidth * (xsprites - 1) + xsprites 'last one -ElmPerSprite = ((spritewidth * spriteheight) \ 2) + 3 'elements per image - - - 'clear the screen - -x = 0: y = 0 'first sprite location -offset = 0 'point to sprite - - -DO - PUT (x, y), sprites(offset), PSET 'PUT image - x = x + spritewidth 'next column - IF x > xend THEN 'end of row? - x = 0 'restart - y = y + spriteheight 'next row - END IF - offset = offset + ElmPerSprite 'point to next sprite -LOOP WHILE offset < Bytes 'do all the images - -END SUB - diff --git a/programs/samples/pete/simpire/tiles.spr b/programs/samples/pete/simpire/tiles.spr deleted file mode 100644 index 7aa0a1a04..000000000 Binary files a/programs/samples/pete/simpire/tiles.spr and /dev/null differ diff --git a/programs/samples/pete/simpire/title.spr b/programs/samples/pete/simpire/title.spr deleted file mode 100644 index 3304fee6c..000000000 Binary files a/programs/samples/pete/simpire/title.spr and /dev/null differ diff --git a/programs/samples/pete/skydiver.bas b/programs/samples/pete/skydiver.bas deleted file mode 100644 index 05584ff35..000000000 --- a/programs/samples/pete/skydiver.bas +++ /dev/null @@ -1,211 +0,0 @@ -menu: -CLS -LOCATE 10, 30 -PRINT "1) Try first two levels" -LOCATE 12, 30 -PRINT "2) See New Features" -LOCATE 14, 30 -PRINT "3) Quit" -PRINT -PRINT "Select your choice" -DO -i$ = INKEY$ -IF i$ = "1" THEN GOTO beginning -IF i$ = "2" THEN GOTO newfeatures -IF i$ = "3" THEN END -LOOP - -beginning: -DIM ambulance(20, 10) -SCREEN 13 -FOR y = 1 TO 10 -FOR x = 1 TO 20 -READ clr -IF clr = 1 THEN PSET (x, y), 15 -IF clr = 2 THEN PSET (x, y), 4 -IF clr = 3 THEN PSET (x, y), 3 -IF clr = 4 THEN PSET (x, y), 4 -IF clr = 7 THEN PSET (x, y), 7 -NEXT x -NEXT y -GET (1, 1)-(20, 10), ambulance - -RANDOMIZE TIMER / 3 -lives = 5 'NUMBER OF TIMES PLAYER IS ALLOWED TO MISS POOL+++++DEFAULT = 5 -score = 0 'SCORE THE PLAYER STARTS OUT WITH+++++DEFAULT = 0 -poolwidth = 100 'WIDTH OF GOAL IN PIXELS+++++DEFAULT = 100 -speed = 2000 'SPEED OF AIRPLANE+++++DEFAULT = 2000 - -CLS -PRINT "Welcome to Skydiver!" -PRINT "The object of the game is to" -PRINT "jump out of your airplane and" -PRINT "land in the pool. If you think" -PRINT "that you aren't going to make" -PRINT "it then you can use the arrow keys" -PRINT "when you are falling in the air." -PRINT "You must press space bar to jump." -PRINT "The pool will get smaller each time." -PRINT "You need 20 successful jumps for this" -PRINT "level." -PRINT -PRINT "Good Luck! Press enter." -DO -LOOP UNTIL INKEY$ = CHR$(13) -GOTO more - - -level2start: -score = 0 -lives = 5 -speed = 1000 -poolwidth = 100 - - -more: -CLS -x = 1 'STARTING LOCATION OF AIRPLANE AND SKYDIVER+++++DEFAULT = 1 -y = 5 'STARTING LOCATION OF AIRPLANE AND SKYDIVER+++++DEFAULT = 5 -poolx = INT(RND(1) * (320 - poolwidth)) + 1'RANDOM LOCATION OF POOL -LINE (1, 190)-(320, 200), 6, BF 'DRAW GRAVEL -LINE (1, 189)-(320, 189), 10 'DRAW GRASS -LINE (poolx, 189)-(poolx + poolwidth, 194), 1, BF 'DRAW POOL -LOCATE 3, 1 -PRINT "Score: "; score -PRINT "Lives: "; lives -DO - i$ = INKEY$ - x = x + 1 - CIRCLE (x, y), 5, 15 - PSET (x, y), 14 - IF x = 300 THEN x = 1 - FOR nothing = 1 TO speed - nothing2 = nothing2 + 1 - IF nothing2 > 10000 THEN WAIT &H3DA, 8: WAIT &H3DA, 8, 8: nothing2 = 0 - NEXT nothing - CIRCLE (x, y), 5, 0 - PSET (x, y), 0 - IF i$ = " " THEN GOTO drop - LINE (295, 1)-(305, 10), 0, BF -LOOP UNTIL i$ = CHR$(27) -END - -drop: -CIRCLE (x, y), 5, 15 -FOR skyy = y TO 190 - y - i$ = INKEY$ - IF i$ = CHR$(0) + CHR$(77) AND x <> 320 AND x <> 319 AND x <> 318 THEN x = x + 2 - IF i$ = CHR$(0) + CHR$(75) AND x <> 1 AND x <> 2 AND x <> 3 THEN x = x - 2 - PSET (x, skyy), 14 - FOR nothing = 1 TO speed - NEXT nothing - PSET (x, skyy), 0 -NEXT skyy -FOR poolcheck = poolx TO poolx + poolwidth - IF x = poolcheck THEN GOTO win -NEXT poolcheck - -FOR amb = 300 TO x STEP -1 - PUT (amb, 179), ambulance - FOR nothing = 1 TO speed: NEXT nothing - LINE (amb, 179)-(amb + 20, 179 + 10), 0, BF -NEXT amb -PUT (amb, 179), ambulance -SLEEP 1 -FOR amb = x TO 1 STEP -1 - PUT (amb, 179), ambulance - FOR nothing = 1 TO speed: NEXT nothing - LINE (amb, 179)-(amb + 20, 179 + 10), 0, BF -NEXT amb -lives = lives - 1 -IF lives = 0 THEN GOTO lose -GOTO more - -win: -score = score + 1 -poolwidth = poolwidth - 5 -IF score >= 20 THEN GOTO level2 -GOTO more - -lose: -LOCATE 12, 10 -PRINT "Sorry, you have lost!" -LOCATE 13, 10 -PRINT "You ended up with "; score -LOCATE 14, 10 -PRINT "successful dives!" -LOCATE 15, 10 -PRINT "Congratulations!" -DO -LOOP UNTIL INKEY$ = CHR$(13) -END - -level2: -IF speed = 1000 THEN GOTO level3 -CLS -PRINT "Congratulations! You made it!" -PRINT "Now you can go to level 2!" -PRINT "This time you fall faster, and" -PRINT "still need 20 successful jumps!" -PRINT -PRINT "Press enter to start." -DO -LOOP UNTIL INKEY$ = CHR$(13) -GOTO level2start - - -level3: -CLS -PRINT "Congratulations! You have finished" -PRINT "the first 2 levels in this game demo!" -PRINT "Sorry, but that's all that is included" -PRINT "in this demo! I'm making more levels" -PRINT "and new features though!!" -PRINT -PRINT "Press escape to quit or press enter" -PRINT "to see the new features that are coming" -DO -i$ = INKEY$ -IF i$ = CHR$(27) THEN END -IF i$ = CHR$(13) THEN GOTO newfeatures -LOOP - - - -ambulence: -DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0 -DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0 -DATA 0,0,0,0,0,0,0,1,3,3,1,1,1,1,1,1,1,1,1,0 -DATA 0,1,1,1,1,1,1,1,3,3,1,1,4,4,1,1,1,1,1,0 -DATA 0,1,1,1,1,1,1,1,1,1,1,4,4,4,4,1,1,1,1,0 -DATA 0,1,1,1,1,1,1,1,1,1,1,1,4,4,1,1,1,1,1,0 -DATA 0,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,0 -DATA 0,1,7,0,7,1,1,1,1,1,1,1,1,1,1,7,0,7,1,0 -DATA 0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0 - - - - - -newfeatures: -CLS -PRINT "- Wind that pushes you while you're in the air" -PRINT "- High Scores" -PRINT "- Automatic Speed Checker" -PRINT "- Cheats and Passwords" -PRINT "- A system where you earn money and lose money" -PRINT "- Buy new and better equipment" -PRINT "- Save/Load Game (Money Version)" -PRINT "- Gravity/parachutes" -PRINT "- Better Graphics (i.e. airplane and skydiver)" -PRINT -PRINT "E-mail me for more suggestions!" -PRINT "jeremy.ruten@gmail.com" -PRINT -PRINT "Press enter" -DO -i$ = INKEY$ -LOOP UNTIL i$ = CHR$(13) -GOTO menu - diff --git a/programs/samples/pete/space1.bas b/programs/samples/pete/space1.bas deleted file mode 100644 index 90fd3382e..000000000 --- a/programs/samples/pete/space1.bas +++ /dev/null @@ -1,498 +0,0 @@ -CLS - -RANDOMIZE TIMER -LET ylength = 31 -LET xlength = 41 - -DIM sx(100) -DIM sy(100) -DIM ship1r(xlength, ylength) -DIM ship2l(xlength, ylength) -DIM ship1l(xlength, ylength) -DIM ship2r(xlength, ylength) - -DIM bullet2(6, 6) -DIM bullet1(6, 6) - - -DO - - - - - - - -LOCATE 8, 28 -COLOR 11 + 16 -PRINT "Welcome to Star Battles" -COLOR 14 -LOCATE 10, 10 -PRINT "Player 1: "; -COLOR 12 -PRINT "Press A for left, D for right, W for up, S for down, and Spacebar to shoot." -COLOR 14 -LOCATE 12, 10 -PRINT "Player 2: "; -COLOR 9 -PRINT "Press 4 for left, 6 for right, 8 for up, 5 for down, and Backspace to shoot." -LOCATE 15, 10 -COLOR 15 -PRINT "(Player 2 use Number Pad, NumLock must be on)" -LOCATE 16, 10 -PRINT "(Player 1, CapsLock must be off)" -LOCATE 17, 10 -COLOR 13 -PRINT "Press P to play" -LOOP UNTIL INKEY$ = "p" OR INKEY$ = "P" -CLS - - -DO -FOR i = 1 TO 500: NEXT i -CLS -SCREEN 12 - -LOCATE 12, 36 -COLOR 14 -PRINT "3" -PLAY "o4" -PLAY "L8" -PLAY "C" -FOR i = 1 TO 100000: NEXT i -LOCATE 12, 36 -COLOR 14 -PRINT "2" -PLAY "C" -FOR i = 1 TO 100000: NEXT i - -LOCATE 12, 36 -COLOR 14 -PRINT "1" -PLAY "C" -FOR i = 1 TO 100000: NEXT i - - -LOCATE 12, 34 -COLOR 14 -PRINT "BATTLE!" -PLAY "L4" -PLAY "G" -FOR i = 1 TO 100000: NEXT i - - - - -SCREEN 9, 0, 1, 0 - -LET ylength = 31 -LET xlength = 41 -REM get ship 1 into array - -FOR q = 1 TO ylength - a = 100 - FOR z = 1 TO xlength - READ c - PSET (z, q), c - PSET (z + a, q), c - a = a - 2 - NEXT z -NEXT q - -GET (0, 0)-(xlength, ylength), ship1r -GET (59, 0)-(100, ylength), ship1l - -CLS -FOR q = 1 TO ylength - a = 100 - FOR z = 1 TO xlength - READ c - IF c = 12 THEN LET c = 9 - PSET (z, q), c - PSET (z + a, q), c - a = a - 2 - NEXT z -NEXT q -GET (0, 0)-(xlength, ylength), ship2l -GET (60, 0)-(100, ylength), ship2r - -LET x = z -LET y = q - -LET y2 = q - -CLS - -CIRCLE (3, 3), 2, 14 -GET (1, 1)-(6, 6), bullet1 - -CLS - -CIRCLE (3, 3), 2, 10 -GET (1, 1)-(6, 6), bullet2 - -CLS - -LET p1h = 100 -LET p2h = 100 - - -REM random stars - -FOR s = 1 TO 100 -LET xstars = INT(RND * 639) + 1 -LET ystars = INT(RND * 339) + 1 -LET sx(s) = xstars -LET sy(s) = ystars -NEXT s - -FOR d = 1 TO 100 - PSET (sx(d), sy(d)), 15 -NEXT d - -REM erase where ships start - -LET x2 = 500 -PUT (x, y), ship1r -PUT (x2, y2), ship2l - - -LINE (10, 2)-(110, 8), 12, BF -LINE (500, 2)-(600, 8), 9, BF - - - -LET n = 1 -LET a$ = INKEY$ -DO WHILE a$ <> LCASE$("q") - - LET a$ = INKEY$ - - - REM erase ships as they move - IF x < x2 THEN - PUT (x, y), ship1r - PUT (x2, y2), ship2l - END IF - IF x > x2 THEN - PUT (x2, y2), ship2r - PUT (x, y), ship1l - END IF - REM player 1 controls - IF a$ = "w" THEN LET p1m$ = "up" - IF a$ = "s" THEN LET p1m$ = "down" - IF a$ = "a" THEN LET p1m$ = "left" - IF a$ = "d" THEN LET p1m$ = "right" - - REM player 2 controls - IF a$ = "4" THEN LET p2m$ = "left" - IF a$ = "6" THEN LET p2m$ = "right" - IF a$ = "5" THEN LET p2m$ = "down" - IF a$ = "8" THEN LET p2m$ = "up" - - REM player 1 moving - IF p1m$ = "up" THEN LET y = y - 7 - IF p1m$ = "down" THEN LET y = y + 7 - IF p1m$ = "left" THEN LET x = x - 7 - IF p1m$ = "right" THEN LET x = x + 7 - - REM player 2 moving - IF p2m$ = "up" THEN LET y2 = y2 - 7 - IF p2m$ = "down" THEN LET y2 = y2 + 7 - IF p2m$ = "left" THEN LET x2 = x2 - 7 - IF p2m$ = "right" THEN LET x2 = x2 + 7 - - - - REM player 1 off the screen - IF x < 2 THEN LET x = 585 - IF x > 585 THEN LET x = 2 - IF y < 2 THEN LET y = 303 - IF y > 303 THEN LET y = 2 - - REM player 2 off the screen - IF x2 < 2 THEN LET x2 = 585 - IF x2 > 585 THEN LET x2 = 2 - IF y2 < 2 THEN LET y2 = 303 - IF y2 > 303 THEN LET y2 = 2 - - IF a$ = CHR$(32) THEN - LINE (b1x, b1y)-(b1x + 5, b1y + 5), 0, BF - - LET b1m$ = "yes" - IF x < x2 THEN - LET b1x = x + 41 - LET b1d$ = "right" - END IF - IF x > x2 THEN - LET b1x = x - LET b1d$ = "left" - END IF - LET b1y = y + 14 - - END IF - - - IF b1m$ = "yes" THEN - - PUT (b1x, b1y), bullet1 - LINE (b1x, b1y)-(b1x + 5, b1y + 5), 0, BF - IF b1d$ = "right" THEN LET b1x = b1x + 14 - IF b1d$ = "left" THEN LET b1x = b1x - 14 - PUT (b1x, b1y), bullet1, XOR - - - IF b1d$ = "right" THEN - IF (b1x > x2) AND ((b1y > y2) AND (b1y < y2 + 31)) THEN - LET p2h = p2h - 10 - LET b1m$ = "no" - LINE (b1x, b1y)-(b1x + 5, b1y + 5), 0, BF - - - END IF - END IF - IF b1d$ = "left" THEN - IF (b1x < x2 + 41) AND ((b1y > y2) AND (b1y < y2 + 31)) THEN - LET p2h = p2h - 10 - LET b1m$ = "no" - LINE (b1x, b1y)-(b1x + 5, b1y + 5), 0, BF - - END IF - END IF - END IF - - IF (b1x < 14) THEN - LET b1m$ = "no" - LINE (b1x, b1y)-(b1x + 5, b1y + 5), 0, BF - END IF - - IF (b1x > 599) THEN - LET b1m$ = "no" - LINE (b1x, b1y)-(b1x + 5, b1y + 5), 0, BF - END IF - - - IF a$ = CHR$(8) THEN - - LINE (b2x, b2y)-(b2x + 5, b2y + 5), 0, BF - - LET b2m$ = "yes" - IF x2 > x THEN - LET b2x = x2 - LET b2d$ = "left" - END IF - IF x2 < x THEN - LET b2x = x2 + 41 - LET b2d$ = "right" - END IF - LET b2y = y2 + 14 - - END IF - - - IF b2m$ = "yes" THEN - - PUT (b2x, b2y), bullet2 - LINE (b2x, b2y)-(b2x + 5, b2y + 5), 0, BF - IF b2d$ = "right" THEN LET b2x = b2x + 14 - IF b2d$ = "left" THEN LET b2x = b2x - 14 - PUT (b2x, b2y), bullet2, XOR - - - IF b2d$ = "right" THEN - IF (b2x > x) AND ((b2y > y) AND (b2y < y + 31)) THEN - LET p1h = p1h - 10 - LET b2m$ = "no" - LINE (b2x, b2y)-(b2x + 5, b2y + 5), 0, BF - END IF - END IF - IF b2d$ = "left" THEN - IF (b2x < x + 41) AND ((b2y > y) AND (b2y < y + 31)) THEN - LET p1h = p1h - 10 - LET b2m$ = "no" - LINE (b2x, b2y)-(b2x + 5, b2y + 5), 0, BF - - END IF - END IF - - END IF - IF (b2x > 599) THEN - LET b2m$ = "no" - LINE (b2x, b2y)-(b2x + 5, b2y + 5), 0, BF - END IF - IF (b2x < 14) THEN - LET b2m$ = "no" - LINE (b2x, b2y)-(b2x + 5, b2y + 5), 0, BF - END IF - - REM healthbars - IF p1h = 90 THEN LINE (100, 3)-(109, 7), 0, BF - IF p1h = 80 THEN LINE (90, 3)-(109, 7), 0, BF - IF p1h = 70 THEN LINE (80, 3)-(109, 7), 0, BF - IF p1h = 60 THEN LINE (70, 3)-(109, 7), 0, BF - IF p1h = 50 THEN LINE (60, 3)-(109, 7), 0, BF - IF p1h = 40 THEN LINE (50, 3)-(109, 7), 0, BF - IF p1h = 30 THEN LINE (40, 3)-(109, 7), 0, BF - IF p1h = 20 THEN LINE (30, 3)-(109, 7), 0, BF - IF p1h = 10 THEN LINE (20, 3)-(109, 7), 0, BF - IF p1h = 0 THEN - LET w = 1 - LET a$ = "q" - LINE (11, 3)-(109, 7), 0, BF - LET s = 1 - - END IF - IF p2h = 90 THEN LINE (501, 3)-(510, 7), 0, BF - IF p2h = 80 THEN LINE (501, 3)-(520, 7), 0, BF - IF p2h = 70 THEN LINE (501, 3)-(530, 7), 0, BF - IF p2h = 60 THEN LINE (501, 3)-(540, 7), 0, BF - IF p2h = 50 THEN LINE (501, 3)-(550, 7), 0, BF - IF p2h = 40 THEN LINE (501, 3)-(560, 7), 0, BF - IF p2h = 30 THEN LINE (501, 3)-(570, 7), 0, BF - IF p2h = 20 THEN LINE (501, 3)-(580, 7), 0, BF - IF p2h = 10 THEN LINE (501, 3)-(590, 7), 0, BF - IF p2h = 0 THEN - LET w = 2 - LET a$ = "q" - LINE (501, 3)-(599, 7), 0, BF - END IF - - - - REM draw ships moving - - IF x < x2 THEN - PUT (x, y), ship1r, XOR - PUT (x2, y2), ship2l, XOR - END IF - - IF x > x2 THEN - PUT (x, y), ship1l, XOR - PUT (x2, y2), ship2r, XOR - END IF - PCOPY 1, 0 - -DO -timenow! = TIMER -LOOP UNTIL timenow! <> lasttime! -lasttime! = timenow! - -LOOP - - - -IF w = 1 THEN -FOR a = 2 TO 62 -COLOR 9 -LOCATE 12, a - 1 -PRINT " " -LOCATE 12, a -PRINT "Player 2 Wins!" -PCOPY 1, 0 -FOR i = 1 TO 2500: NEXT i -NEXT a -LOCATE 12, 1 -END IF - -IF w = 2 THEN -FOR a = 62 TO 2 STEP -1 -COLOR 12 -LOCATE 12, a -PRINT "Player 1 Wins!" -LOCATE 12, a + 14 -PRINT " " -PCOPY 1, 0 -FOR i = 1 TO 2500: NEXT i -NEXT a -END IF - -SCREEN 12 -COLOR 3 -LOCATE 14, 18 - -INPUT "Would you like to play again (Y/N)"; y$ - - -CLS -LET x = 1 -LET y = 1 -LET x2 = 500 -LET y2 = 1 -LET a$ = " " -LET w = 0 -LET p1m$ = " " -LET p2m$ = " " -RESTORE -LOOP WHILE y$ = "y" OR y$ = "Y" - - -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,12,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,04,00,00,00,00,12,12,12,12,12,12,12,02,02,02,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,04,00,14,07,07,07,12,12,12,12,12,12,12,02,02,02,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,14,04,04,07,07,07,07,12,12,12,12,12,12,12,02,02,02,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,04,04,04,14,07,07,07,07,07,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00 -DATA 00,00,00,00,00,14,04,14,04,07,07,07,07,07,12,12,12,12,12,12,12,12,12,12,02,02,02,12,12,12,12,12,12,12,12,12,12,12,07,07,00 -DATA 00,00,00,00,00,04,04,04,14,07,07,07,07,07,12,12,12,12,12,12,12,12,12,12,02,02,02,12,12,12,12,12,12,12,12,12,12,12,07,07,07 -DATA 00,00,00,00,00,00,00,14,04,04,07,07,07,07,12,12,12,12,12,12,12,12,12,12,02,02,02,12,12,12,12,12,12,12,12,12,12,12,07,07,00 -DATA 00,00,00,00,00,00,00,00,04,04,14,07,07,07,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,02,02,02,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,02,02,02,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,02,02,02,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,12,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 - - - - - - - -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,12,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,02,02,02,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,02,02,02,12,12,12,12,12,12,07,07,07,14,04,04,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,02,02,02,12,12,12,12,12,12,07,07,07,07,04,04,14,00,00,00,00,00,00,00 -DATA 00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,07,07,07,07,07,14,04,04,04,00,00,00,00,00 -DATA 00,00,07,07,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,02,02,02,12,12,07,07,07,07,07,04,14,04,14,00,00,00,00,00 -DATA 00,07,07,07,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,02,02,02,12,12,07,07,07,07,07,14,04,04,04,00,00,00,00,00 -DATA 00,00,07,07,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,02,02,02,12,12,07,07,07,07,04,04,14,00,00,00,00,00,00,00 -DATA 00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,07,07,07,14,04,04,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,02,02,02,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,02,02,02,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,02,02,02,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,12,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,12,12,12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 -DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 diff --git a/programs/samples/pete/stones.bas b/programs/samples/pete/stones.bas deleted file mode 100644 index 5685d7784..000000000 --- a/programs/samples/pete/stones.bas +++ /dev/null @@ -1,19 +0,0 @@ -5 RANDOMIZE TIMER -10 A = 25 -20 CLS -25 FOR B = 1 TO A -30 PRINT "* "; -35 NEXT B -37 PRINT -40 PRINT "HOW MANY TO TAKE AWAY" -45 INPUT C -50 IF C > 3 THEN PRINT "YOU CAN ONLY TAKE AWAY 1,2, OR 3 STONES.": GOTO 40 -60 A = A - C -65 IF A = 0 THEN PRINT "YOU WIN!": END -70 D = (A MOD 4) -75 IF D = 0 THEN D = INT(3 * RND(1)) + 1 -80 PRINT "I TOOK AWAY "; D; "STONES" -83 SLEEP -85 A = A - D -90 IF A = 0 THEN PRINT "I WIN": END -100 GOTO 20 \ No newline at end of file diff --git a/programs/samples/pete/su2/map.dat b/programs/samples/pete/su2/map.dat deleted file mode 100644 index 28c361dab..000000000 --- a/programs/samples/pete/su2/map.dat +++ /dev/null @@ -1,324 +0,0 @@ -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -8- 219 -2- 157 -0-0 -0-0 -0-0 -0-0 -0-0 -2- 157 -0-0 -0-0 -8- 219 -0-0 -6- 222 -0-0 -0-0 -6- 222 -0-0 - 7- 1 -6- 222 -0-0 -8- 219 -7- 219 -0-0 -6- 219 -6- 220 -6- 219 -0-0 -7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -7- 219 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -7- 219 -8- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -8- 219 -0-0 -6- 221 -6- 219 -6- 219 -6- 219 -6- 222 -0-0 -0-0 -0-0 -8- 219 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -8- 219 -7- 219 -8- 219 -7- 219 -0-0 -7- 219 -8- 219 -7- 219 -0-0 -0-0 -6- 219 -6- 219 -6- 219 -0-0 -0-0 -0-0 -0-0 -7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -7- 219 -8- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -6- 221 -6- 219 -6- 219 -6- 219 -6- 222 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -8- 219 -7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -6- 219 -6- 219 -6- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -7- 219 -8- 219 -7- 219 -8- 219 -0-0 -8- 219 -7- 219 -8- 219 -0-0 -6- 221 -6- 219 -6- 219 -6- 219 -6- 222 -0-0 -0-0 -0-0 -8- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -8- 219 -7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -7- 219 -0-0 -0-0 -6- 219 -6- 219 -6- 219 -0-0 -0-0 -0-0 -0-0 -7- 219 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -7- 219 -8- 219 -0-0 -6- 219 -6- 223 -6- 219 -0-0 -8- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -8- 219 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -0-0 -6- 219 -0-0 -8- 219 -7- 219 -0-0 -0-0 -15- 2 -0-0 -0-0 -7- 219 -2- 157 -0-0 -0-0 -0-0 -0-0 -0-0 -2- 157 -0-0 -0-0 -7- 219 -0-0 -6- 222 -0-0 -0-0 -6- 222 -0-0 -0-0 -6- 222 -0-0 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 -7- 219 -8- 219 diff --git a/programs/samples/pete/su2/map2.dat b/programs/samples/pete/su2/map2.dat deleted file mode 100644 index e613e9167..000000000 --- a/programs/samples/pete/su2/map2.dat +++ /dev/null @@ -1,324 +0,0 @@ - 6- 219 - 6- 219 - 6- 219 -0-0 -0-0 - 6- 254 - 6- 254 - 6- 254 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 -0-0 -0-0 - 6- 219 - 6- 219 - 6- 219 -0-0 - 15- 2 -0-0 - 6- 254 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 219 - 6- 219 - 6- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 - 6- 254 -0-0 -0-0 - 6- 219 - 6- 219 - 6- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 6- 177 - 6- 177 - 6- 177 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 -0-0 - 7- 219 - 7- 178 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 177 - 6- 177 - 6- 177 - 6- 177 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 178 - 7- 8 - 7- 178 - 7- 178 - 7- 177 - 6- 177 - 6- 177 - 6- 177 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 - 6- 254 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 254 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 2- 177 - 2- 177 - 2- 177 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 178 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 8 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 - 15- 1 -0-0 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 2- 177 - 7- 178 - 7- 178 - 7- 8 - 7- 178 - 7- 177 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 178 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 diff --git a/programs/samples/pete/su2/map3.dat b/programs/samples/pete/su2/map3.dat deleted file mode 100644 index ab3fc3f85..000000000 --- a/programs/samples/pete/su2/map3.dat +++ /dev/null @@ -1,324 +0,0 @@ -0-0 - 2- 177 -0-0 - 2- 177 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 2- 177 -0-0 - 6- 178 - 6- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 2- 177 -0-0 -0-0 -0-0 - 5- 1 -0-0 -0-0 - 2- 177 -0-0 - 2- 177 - 2- 177 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 178 - 6- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 2- 177 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 2- 177 -0-0 -0-0 - 2- 177 -0-0 -0-0 -0-0 -0-0 - 6- 178 - 6- 178 -0-0 - 7- 219 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 - 2- 177 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 178 - 6- 178 -0-0 - 2- 177 -0-0 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 - 6- 219 - 6- 178 - 6- 178 - 6- 219 -0-0 -0-0 -0-0 -0-0 -0-0 - 2- 177 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 1- 176 - 9- 176 - 6- 219 - 6- 178 - 6- 178 - 6- 219 - 1- 176 - 1- 176 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 1- 176 - 9- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 - 9- 176 - 9- 176 - 1- 176 - 1- 176 - 1- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 - 6- 219 - 6- 178 - 6- 178 - 6- 219 - 1- 176 - 9- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 - 1- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 - 1- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 - 1- 176 -0-0 -0-0 - 6- 219 - 6- 178 - 6- 178 - 6- 219 -0-0 - 2- 177 - 1- 176 - 1- 176 - 1- 176 - 9- 176 - 1- 176 - 1- 176 -0-0 -0-0 -0-0 -0-0 -0-0 - 2- 177 -0-0 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 178 - 6- 178 -0-0 -0-0 -0-0 - 2- 177 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 -0-0 -0-0 - 2- 177 - 7- 219 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 6- 178 - 6- 178 - 6- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 -0-0 - 4- 2 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 -0-0 - 2- 177 - 6- 178 - 6- 178 - 6- 178 - 6- 178 - 6- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 2- 177 -0-0 -0-0 - 2- 177 -0-0 -0-0 -0-0 - 7- 219 - 7- 219 - 7- 219 - 7- 219 - 7- 219 -0-0 -0-0 - 2- 177 - 6- 178 - 6- 178 - 6- 178 - 6- 178 -0-0 -0-0 -0-0 -0-0 -0-0 - 2- 177 - 2- 177 -0-0 -0-0 -0-0 - 2- 177 diff --git a/programs/samples/pete/su2/map4.dat b/programs/samples/pete/su2/map4.dat deleted file mode 100644 index f85c67653..000000000 --- a/programs/samples/pete/su2/map4.dat +++ /dev/null @@ -1,324 +0,0 @@ - 15- 78 - 15- 73 - 15- 88 - 15- 79 - 15- 78 -0-0 - 7- 81 - 7- 78 - 5- 177 - 2- 177 - 2- 177 - 5- 177 - 8- 76 - 7- 73 - 7- 78 - 15- 65 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 67 - 15- 65 - 7- 66 - 7- 73 -0-0 -0-0 - 7- 67 - 7- 81 - 15- 79 -0-0 -0-0 - 7- 85 -0-0 -0-0 - 5- 178 - 5- 177 - 5- 177 - 2- 177 - 5- 177 - 5- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 8- 79 - 7- 88 - 7- 89 -0-0 - 7- 81 -0-0 - 7- 81 -0-0 -0-0 - 8- 79 - 7- 89 -0-0 -0-0 -0-0 - 7- 66 - 8- 79 - 15- 65 - 5- 178 - 5- 177 - 2- 177 - 7- 73 - 5- 178 - 5- 178 - 7- 85 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 8- 79 -0-0 -0-0 - 8- 76 - 7- 75 - 7- 88 -0-0 -0-0 -0-0 -0-0 - 5- 178 - 5- 177 - 2- 177 - 5- 177 - 2- 177 - 5- 177 - 5- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 88 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 73 - 5- 178 - 5- 177 - 2- 177 - 5- 177 - 5- 178 -0-0 - 8- 78 - 8- 73 - 8- 88 - 8- 79 - 8- 78 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 4- 2 -0-0 -0-0 -0-0 -0-0 - 7- 78 -0-0 -0-0 -0-0 - 5- 178 - 5- 178 - 5- 177 - 2- 177 - 5- 177 - 5- 178 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 4- 1 -0-0 - 7- 88 -0-0 -0-0 -0-0 -0-0 - 7- 85 -0-0 - 5- 176 - 5- 178 - 5- 177 - 5- 178 - 7- 75 - 8- 73 - 8- 67 - 7- 75 - 7- 89 - 15- 65 -0-0 -0-0 - 7- 85 - 8- 79 - 7- 78 - 15- 65 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 89 - 8- 79 -0-0 -0-0 -0-0 - 5- 176 - 5- 178 - 5- 177 - 2- 177 - 5- 177 - 2- 177 - 5- 177 - 2- 177 - 5- 177 - 5- 178 - 5- 176 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 15- 65 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 5- 176 - 5- 178 - 7- 78 - 5- 177 - 5- 177 - 2- 177 - 5- 177 - 5- 178 - 5- 176 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 88 -0-0 -0-0 - 7- 75 - 8- 73 - 8- 67 - 7- 88 - 7- 67 - 7- 73 -0-0 - 5- 176 - 5- 178 - 5- 177 - 2- 177 - 5- 177 - 2- 177 - 7- 88 - 8- 79 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 73 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 66 - 15- 65 -0-0 - 5- 176 - 5- 178 - 5- 177 - 2- 177 - 5- 177 - 5- 178 - 5- 176 -0-0 -0-0 - 8- 76 - 15- 65 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 67 - 8- 79 -0-0 - 8- 76 - 7- 81 - 7- 85 -0-0 -0-0 -0-0 - 15- 65 - 5- 176 - 5- 178 - 5- 177 - 7- 78 - 7- 73 - 7- 88 - 7- 79 - 7- 78 -0-0 -0-0 -0-0 -0-0 -0-0 - 7- 81 -0-0 - 8- 74 - 7- 73 diff --git a/programs/samples/pete/su2/read me.txt b/programs/samples/pete/su2/read me.txt deleted file mode 100644 index 1f15386fa..000000000 --- a/programs/samples/pete/su2/read me.txt +++ /dev/null @@ -1,23 +0,0 @@ -Title: Shoot Up V2 -Author: Nixon -Genre: Arcade / 2 player -year: 2004 - -Game help -it's in the game. - -Editor help -Use this to make your own maps. - -keys - -"c" = changes color -" " = puts down item -"i" = changes ASCII Character -"I" = input ASCII Character -"h" = hold -"s" = Save -"l" = Load -esc = exit without saving - -I think thats all. not quite sure. diff --git a/programs/samples/pete/su2/shoote.bas b/programs/samples/pete/su2/shoote.bas deleted file mode 100644 index 196e9e6e5..000000000 --- a/programs/samples/pete/su2/shoote.bas +++ /dev/null @@ -1,131 +0,0 @@ -CHDIR ".\programs\samples\pete\su2" - -DECLARE SUB border () -DECLARE SUB center (text$) -SCREEN 13 -U$ = CHR$(0) + "H" -D$ = CHR$(0) + "P" -L$ = CHR$(0) + "K" -R$ = CHR$(0) + "M" - -new: -CLS -DIM map$(27, 12) -FOR y = 1 TO 12 -FOR x = 1 TO 27 -map$(x, y) = "5-0" -NEXT: NEXT - -x = 13: y = 6 - -drawon: -CLS -border -FOR yy = 1 TO 12 -FOR xx = 1 TO 27 -FOR i = 1 TO 5 -IF MID$(map$(xx, yy), i, 1) = "-" THEN B$ = MID$(map$(xx, yy), 1, i - 1): item2 = VAL(MID$(map$(xx, yy), i + 1, 10)) -NEXT -c = VAL(B$) -IF c = 0 OR item2 = 0 OR item2 = 255 OR item2 = 32 THEN map$(xx, yy) = "0-0" -COLOR c: LOCATE yy + 4, xx + 6: PRINT CHR$(item2) -NEXT: NEXT -top: -IF drw = 0 THEN COLOR 15 -IF drw = 1 THEN COLOR 12 -LOCATE y + 4, x + 6: PRINT CHR$(197) -LOCATE 18, 7: COLOR clr: PRINT "Color "; CHR$(item) -DO: P$ = INKEY$: LOOP UNTIL P$ <> "" -oldy = y: oldx = x -IF P$ = U$ AND y <> 1 THEN y = y - 1 -IF P$ = D$ AND y <> 12 THEN y = y + 1 -IF P$ = R$ AND x <> 27 THEN x = x + 1 -IF P$ = L$ AND x <> 1 THEN x = x - 1 -IF P$ = "s" OR P$ = "S" THEN GOTO save -IF P$ = "l" OR P$ = "L" THEN GOTO load -IF P$ = "r" OR P$ = "R" THEN GOTO drawon -IF P$ = "i" THEN item = item + 1: IF item = 256 THEN item = 0 -IF P$ = "I" THEN GOTO item -IF P$ = "h" OR P$ = "H" THEN drw = drw + 1: IF drw = 2 THEN drw = 0 -IF P$ = CHR$(27) THEN END -IF P$ = "c" OR P$ = "C" THEN clr = clr + 1: IF clr = 16 THEN clr = 0 -IF P$ = "1" THEN clr = 1 -IF P$ = "2" THEN clr = 2 -IF P$ = "3" THEN clr = 3 -IF P$ = "4" THEN clr = 4 -IF P$ = "5" THEN clr = 5 -IF P$ = "6" THEN clr = 6 -IF P$ = "7" THEN clr = 7 -IF P$ = "8" THEN clr = 8 -IF P$ = "9" THEN clr = 9 -IF P$ = CHR$(32) OR drw = 1 THEN map$(x, y) = STR$(clr) + "-" + STR$(item): IF clr = 0 OR item = 0 OR item = 255 OR item = 32 THEN map$(x, y) = "0-0" -FOR i = 1 TO 5 -IF MID$(map$(oldx, oldy), i, 1) = "-" THEN B$ = MID$(map$(oldx, oldy), 1, i - 1): item2 = VAL(MID$(map$(oldx, oldy), i + 1, 10)) -NEXT -c = VAL(B$) -IF c = 0 OR item2 = 0 OR item2 = 255 OR item2 = 32 THEN map$(oldx, oldy) = "0-0" -COLOR c: LOCATE oldy + 4, oldx + 6: PRINT CHR$(item2) -GOTO top - -item: -LOCATE 19, 7: COLOR 4 -INPUT "ASCII Num"; item -IF item >= 256 THEN item = 255 -LOCATE 19, 7: PRINT " " -GOTO top - -save: -LOCATE 19, 7: COLOR 12 -IF file$ = "" THEN INPUT "File name to save as"; file$ -OPEN file$ + ".dat" FOR OUTPUT AS #1 -FOR yy = 1 TO 12 -FOR xx = 1 TO 27 -FOR i = 1 TO 5 -IF MID$(map$(xx, yy), i, 1) = "-" THEN B$ = MID$(map$(xx, yy), 1, i - 1): item2 = VAL(MID$(map$(xx, yy), i + 1, 3)) -NEXT -c = VAL(B$) -IF c = 0 OR item2 = 0 OR item2 = 255 OR item2 = 32 THEN map$(xx, yy) = "0-0" -PRINT #1, map$(xx, yy) -NEXT: NEXT -LOCATE 19, 7: PRINT " " -CLOSE #1 -GOTO top - -load: -LOCATE 19, 7: COLOR 12 -INPUT "File name to load"; file$ -OPEN file$ + ".dat" FOR INPUT AS #1 -FOR yy = 1 TO 12 -FOR xx = 1 TO 27 -INPUT #1, map$(xx, yy) -NEXT: NEXT -CLOSE #1 -GOTO drawon - -SUB border -COLOR 4 -center "Shoot Up Editor 2" -center "" -center "" -COLOR 7 -center "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±" - -END SUB - -SUB center (text$) -PRINT TAB(20 - (INT(LEN(text$) / 2))); text$ -END SUB - diff --git a/programs/samples/pete/su2/su2t.bas b/programs/samples/pete/su2/su2t.bas deleted file mode 100644 index 52444da94..000000000 --- a/programs/samples/pete/su2/su2t.bas +++ /dev/null @@ -1,353 +0,0 @@ -CHDIR ".\programs\samples\pete\su2" - -' Interesting facts -' Programmed on windows 95 that runs at 50-60 Mhz -' Had to remake all movement just for the bullets -' listen to music while programming -' All remade in a few hours( don't know how long, just one afternoon-not that long) -' Made BY me - Nixon -' Rewrite most of it for a better editor which can load any color and any ASCII char (almost) -' Only spent a few days to finish everything -DECLARE SUB loadmap () -DECLARE SUB instructions () -DIM SHARED map$(100, 100), bullet(100), bx(100), by(100), bd(100) -DECLARE SUB center (text$) -DECLARE SUB border () -ON ERROR GOTO fixfile -PRINT "calculating speed" -maximum = 1D+18 -oldtime = TIMER -FOR i = 1 TO maximum -LOCATE 2, 1: PRINT TIMER -IF TIMER >= oldtime + 1 THEN speed = i: GOTO speed -NEXT -speed: - -SCREEN 13 -menu: -CLS -COLOR 4 -PRINT " S H O O T U P V 2 " -PRINT " ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ " -PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÝ " -PRINT " ²²²²²ÜÜß " -PRINT "ܲ²²² " -PRINT "²²²² " -PRINT "" -PRINT "" -PRINT "" -COLOR 12 -PRINT "1) The Game" -PRINT "2) Instructions" -PRINT "3) Exit" -DO: P$ = INKEY$: LOOP UNTIL P$ <> "" -IF P$ = "1" THEN GOTO top -IF P$ = "2" THEN CALL instructions -IF P$ = "3" THEN CLS : END -GOTO menu -top: -CLS -U$ = CHR$(0) + "H" -D$ = CHR$(0) + "P" -R$ = CHR$(0) + "M" -L$ = CHR$(0) + "K" -COLOR 15 -PRINT "1)Map 1" -COLOR 7 -PRINT "2)Map 2" -COLOR 8 -PRINT "3)Map 3" -PRINT "4)Map 4" -COLOR 7 -PRINT "5)Custom" -COLOR 15 -INPUT "Choice"; pick -IF pick = 1 THEN file$ = "map" -IF pick = 2 THEN file$ = "map2" -IF pick = 3 THEN file$ = "map3" -IF pick = 4 THEN file$ = "map4" -IF pick = 5 THEN INPUT "Map to load(no extensions)"; file$ -choice: -OPEN file$ + ".dat" FOR INPUT AS #1 -CLS -CALL border -players = 0 -FOR yy = 1 TO 12 -FOR xx = 1 TO 27 -INPUT #1, map$(xx, yy) -FOR i = 1 TO 5 -IF MID$(map$(xx, yy), i, 1) = "-" THEN B$ = MID$(map$(xx, yy), 1, i - 1): item2 = VAL(MID$(map$(xx, yy), i + 1, 10)) -NEXT -c = VAL(B$) -IF c = 0 OR item2 = 0 OR item2 = 255 OR item2 = 32 THEN map$(xx, yy) = "0-0" -COLOR c: LOCATE yy + 4, xx + 6: PRINT CHR$(item2) -'IF players = 2 AND item2 = 2 THEN map$(xx, yy) = "0-0": LOCATE yy + 4, xx + 6: PRINT " " -IF item2 = 2 THEN COLOR c: LOCATE yy + 4, xx + 6: PRINT CHR$(2): c2 = c: p2x = xx: p2y = yy: map$(xx, yy) = "0-0": players = players + 1 -IF item2 = 1 THEN COLOR c: LOCATE yy + 4, xx + 6: PRINT CHR$(1): c1 = c: p1x = xx: p1y = yy: map$(xx, yy) = "0-0": players = players + 1 -NEXT: NEXT -CLOSE #1 - -hp1 = 5 -hp2 = 5 -DO -P$ = INKEY$: IF P$ = CHR$(27) THEN END - FOR find = 1 TO 20 - IF MID$(map$(p1x, p1y), find, 1) = "-" THEN legn = find - NEXT - IF MID$(map$(p1x, p1y), legn + 2, 4) = "178" THEN LOCATE p1y + 4, p1x + 6: COLOR VAL(MID$(map$(p1x, p1y), 1, legn)): PRINT CHR$(178) - IF P$ <> "" AND map$(p1x, p1y) = "0-0" THEN LOCATE p1y + 4, p1x + 6: PRINT " " -IF P$ = U$ AND map$(p1x, p1y - 1) = "0-0" AND p1y <> 1 OR P$ = U$ AND MID$(map$(p1x, p1y - 1), legn + 2, 3) = "178" AND p1y <> 1 THEN COLOR 15: p1y = p1y - 1: COLOR c1: LOCATE p1y + 4, p1x + 6: PRINT CHR$(1) -IF P$ = D$ AND map$(p1x, p1y + 1) = "0-0" AND p1y <> 12 OR P$ = D$ AND MID$(map$(p1x, p1y + 1), legn + 2, 3) = "178" AND p1y <> 12 THEN COLOR 15: p1y = p1y + 1: COLOR c1: LOCATE p1y + 4, p1x + 6: PRINT CHR$(1) -IF P$ = R$ AND map$(p1x + 1, p1y) = "0-0" AND p1x <> 27 OR P$ = R$ AND MID$(map$(p1x + 1, p1y), legn + 2, 3) = "178" AND p1x <> 27 THEN COLOR 15: p1x = p1x + 1: COLOR c1: LOCATE p1y + 4, p1x + 6: PRINT CHR$(1) -IF P$ = L$ AND map$(p1x - 1, p1y) = "0-0" AND p1x <> 1 OR P$ = L$ AND MID$(map$(p1x - 1, p1y), legn + 2, 3) = "178" AND p1x <> 1 THEN COLOR 15: p1x = p1x - 1: COLOR c1: LOCATE p1y + 4, p1x + 6: PRINT CHR$(1) -COLOR c1: LOCATE p1y + 4, p1x + 6: PRINT CHR$(1) - -IF P$ = "p" AND map$(p1x, p1y - 1) = "0-0" OR P$ = "p" AND MID$(map$(p1x, p1y - 1), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 0: by(i) = p1y: bx(i) = p1x: GOTO continue - NEXT -END IF - -IF P$ = ";" AND map$(p1x, p1y + 1) = "0-0" OR P$ = ";" AND MID$(map$(p1x, p1y + 1), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 1: by(i) = p1y: bx(i) = p1x: GOTO continue - NEXT -END IF - -IF P$ = "'" AND map$(p1x + 1, p1y) = "0-0" OR P$ = "'" AND MID$(map$(p1x + 1, p1y), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 2: by(i) = p1y: bx(i) = p1x: GOTO continue - NEXT -END IF - -IF P$ = "l" AND map$(p1x - 1, p1y) = "0-0" OR P$ = "l" AND MID$(map$(p1x - 1, p1y), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 3: by(i) = p1y: bx(i) = p1x: GOTO continue - NEXT -END IF - - FOR find = 1 TO 20 - IF MID$(map$(p1x, p1y), find, 1) = "-" THEN legn = find - NEXT - - IF MID$(map$(p2x, p2y), legn + 2, 4) = "178" THEN LOCATE p2y + 4, p2x + 6: COLOR VAL(MID$(map$(p2x, p2y), 1, legn)): PRINT CHR$(178) - IF P$ <> "" AND map$(p2x, p2y) = "0-0" THEN LOCATE p2y + 4, p2x + 6: PRINT " " -IF P$ = "t" AND map$(p2x, p2y - 1) = "0-0" AND p2y <> 1 OR P$ = "t" AND MID$(map$(p2x, p2y - 1), legn + 2, 3) = "178" AND p2y <> 1 THEN COLOR 7: p2y = p2y - 1: COLOR c2: LOCATE p2y + 4, p2x + 6: PRINT CHR$(2) -IF P$ = "g" AND map$(p2x, p2y + 1) = "0-0" AND p2y <> 12 OR P$ = "g" AND MID$(map$(p2x, p2y + 1), legn + 2, 3) = "178" AND p2y <> 12 THEN COLOR 7: p2y = p2y + 1: COLOR c2: LOCATE p2y + 4, p2x + 6: PRINT CHR$(2) -IF P$ = "h" AND map$(p2x + 1, p2y) = "0-0" AND p2x <> 27 OR P$ = "h" AND MID$(map$(p2x + 1, p2y), legn + 2, 3) = "178" AND p2x <> 27 THEN COLOR 7: : p2x = p2x + 1: COLOR c2: LOCATE p2y + 4, p2x + 6: PRINT CHR$(2) -IF P$ = "f" AND map$(p2x - 1, p2y) = "0-0" AND p2x <> 1 OR P$ = "f" AND MID$(map$(p2x - 1, p2y), legn + 2, 3) = "178" AND p2x <> 1 THEN COLOR 7: : p2x = p2x - 1: COLOR c2: LOCATE p2y + 4, p2x + 6: PRINT CHR$(2) -COLOR c2: LOCATE p2y + 4, p2x + 6: PRINT CHR$(2) - -IF P$ = "w" AND map$(p2x, p2y - 1) = "0-0" OR P$ = "w" AND MID$(map$(p2x, p2y - 1), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 0: by(i) = p2y: bx(i) = p2x: GOTO continue - NEXT -END IF - -IF P$ = "s" AND map$(p2x, p2y + 1) = "0-0" OR P$ = "s" AND MID$(map$(p2x, p2y + 1), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 1: by(i) = p2y: bx(i) = p2x: GOTO continue - NEXT -END IF - -IF P$ = "d" AND map$(p2x + 1, p2y) = "0-0" OR P$ = "d" AND MID$(map$(p2x + 1, p2y), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 2: by(i) = p2y: bx(i) = p2x: GOTO continue - NEXT -END IF - -IF P$ = "a" AND map$(p2x - 1, p2y) = "0-0" OR P$ = "a" AND MID$(map$(p2x - 1, p2y), legn + 2, 3) = "178" THEN - FOR i = 1 TO 100 - IF bullet(i) = 0 THEN bullet(i) = 1: bd(i) = 3: by(i) = p2y: bx(i) = p2x: GOTO continue - NEXT -END IF - -continue: -FOR i = 1 TO 100 -IF bullet(i) = 1 THEN - LOCATE by(i) + 4, bx(i) + 6: PRINT " " - FOR find = 1 TO 20 - IF MID$(map$(bx(i), by(i)), find, 1) = "-" THEN leg = find - NEXT - IF MID$(map$(bx(i), by(i)), leg + 2, 4) = "178" THEN LOCATE by(i) + 4, bx(i) + 6: COLOR VAL(MID$(map$(bx(i), by(i)), 1, leg)): PRINT CHR$(178) - - IF MID$(map$(bx(i), by(i)), leg + 2, 4) = "176" THEN LOCATE by(i) + 4, bx(i) + 6: COLOR VAL(MID$(map$(bx(i), by(i)), 1, leg)): PRINT CHR$(VAL(MID$(map$(bx(i), by(i)), leg + 1, LEN(map$(bx(i), by(i)))))) - IF bd(i) = 0 THEN by(i) = by(i) - 1 - IF bd(i) = 1 THEN by(i) = by(i) + 1 - IF bd(i) = 2 THEN bx(i) = bx(i) + 1 - IF bd(i) = 3 THEN bx(i) = bx(i) - 1 - IF by(i) = 0 OR by(i) = 13 THEN bullet(i) = 0 - IF bx(i) = 0 OR bx(i) = 28 THEN bullet(i) = 0 - IF map$(bx(i), by(i)) <> "0-0" THEN - bullet(i) = 0 - FOR find = 1 TO 20 - IF MID$(map$(bx(i), by(i)), find, 1) = "-" THEN leg = find - NEXT - IF MID$(map$(bx(i), by(i)), leg + 2, 4) = "177" THEN map$(bx(i), by(i)) = "0-0": LOCATE by(i) + 4, bx(i) + 6: PRINT " " - IF MID$(map$(bx(i), by(i)), leg + 2, 4) = "176" THEN bullet(i) = 1 - IF MID$(map$(bx(i), by(i)), leg + 2, 4) = "178" THEN bullet(i) = 1 - - END IF - IF bx(i) = p1x AND by(i) = p1y THEN bullet(i) = 0: hp1 = hp1 - 1 - IF bx(i) = p2x AND by(i) = p2y THEN bullet(i) = 0: hp2 = hp2 - 1 - IF bullet(i) = 1 THEN LOCATE by(i) + 4, bx(i) + 6: COLOR 15: PRINT CHR$(248) -END IF -NEXT - -COLOR c1: LOCATE p1y + 4, p1x + 6: PRINT CHR$(1): COLOR c2: LOCATE p2y + 4, p2x + 6: PRINT CHR$(2) -LOCATE 19, 6: COLOR 12: PRINT "P1 Health" -IF hp1 = 5 THEN LOCATE 20, 6: COLOR 4: PRINT "    " -IF hp1 = 4 THEN LOCATE 20, 6: COLOR 4: PRINT "    °" -IF hp1 = 3 THEN LOCATE 20, 6: COLOR 4: PRINT "   ° °" -IF hp1 = 2 THEN LOCATE 20, 6: COLOR 4: PRINT "  ° ° °" -IF hp1 = 1 THEN LOCATE 20, 6: COLOR 4: PRINT " ° ° ° °" -IF hp1 = 0 THEN LOCATE 20, 6: COLOR 4: PRINT "° ° ° ° °": GOTO again - -LOCATE 19, 26: COLOR 12: PRINT "P2 Health" -IF hp2 = 5 THEN LOCATE 20, 26: COLOR 4: PRINT "    " -IF hp2 = 4 THEN LOCATE 20, 26: COLOR 4: PRINT "    °" -IF hp2 = 3 THEN LOCATE 20, 26: COLOR 4: PRINT "   ° °" -IF hp2 = 2 THEN LOCATE 20, 26: COLOR 4: PRINT "  ° ° °" -IF hp2 = 1 THEN LOCATE 20, 26: COLOR 4: PRINT " ° ° ° °" -IF hp2 = 0 THEN LOCATE 20, 26: COLOR 4: PRINT "° ° ° ° °": GOTO again - -FOR i = 1 TO speed: NEXT -LOOP - -again: -FOR i = 1 TO 100: bullet(i) = 0: NEXT -LOCATE 22, 15: INPUT "Again y/N"; choice$ -IF choice$ = "y" THEN GOTO top -IF choice$ = "Y" THEN GOTO top -GOTO menu - -fixfile: -COLOR 4 -center "File does not exist" -center "Try typing 'map'" -center "Press [Enter]" -DO: P$ = INKEY$: LOOP UNTIL P$ = CHR$(13) -GOTO top - -SUB border -COLOR 4 -center "Shoot Up V 2" -center "" -center "" -COLOR 7 -center "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "± ±" -center "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±" -'LOCATE 5, 7: PRINT "#" -END SUB - -SUB center (text$) -PRINT TAB(20 - (INT(LEN(text$) / 2))); text$ -END SUB - -SUB instructions -CLS -COLOR 4 -center " I N S T R U C T I O N S " -COLOR 12 -center "- - - - - - - - - - - - -" -PRINT "" -PRINT "" -COLOR 4 -PRINT "CONTROLS" -COLOR 12 -PRINT "Each player has 8 keys which are used. Four are used for movement and the other used for shooting. The keys are" -PRINT " Player 1 " -PRINT "Movement Shooting" -PRINT "  P " -PRINT " " -PRINT "   l ' " -PRINT " " -PRINT "  ; " - -PRINT " Player 2" -PRINT "Movement Shooting" -PRINT " t w " -PRINT "" -PRINT " f h a d " -PRINT "" -PRINT " g s " -COLOR 4 -PRINT "Press [Anykey] to continue" -DO: LOOP UNTIL INKEY$ <> "" -COLOR 4 -PRINT "WALLS" -COLOR 12 -PRINT "These are things that can not be walked through or over. They can be anything other than a fake, breakable, water." -COLOR 8 -PRINT "1,f,7,a,A,"; CHR$(4); ","; CHR$(219) -PRINT "" -COLOR 4 -PRINT "Players" -COLOR 12 -PRINT "They can be any color. but you can tell the difference between each." -COLOR 8 -PRINT "Player 1 :"; CHR$(1) -PRINT "Player 2 :"; CHR$(2) -PRINT "" -COLOR 4 -PRINT "Fakes" -COLOR 12 -PRINT "These can be any color. You can walk over them and shoot over them." -COLOR 8 -PRINT "A fake "; CHR$(178) -PRINT "" -COLOR 4 -PRINT "Breakables" -COLOR 12 -PRINT "These can be any color. You can not walk on them but can be destroyed by" -PRINT "bullets to clear a way." -COLOR 8 -PRINT "A Breakable "; CHR$(177) -COLOR 4 -PRINT "Press [Anykey] to continue" -DO: LOOP UNTIL INKEY$ <> "" -COLOR 4 -PRINT "Water" -COLOR 12 -PRINT "Water can be any color. It can not be walked on yet you can shoot a bullet over it without effect to the bullet." -COLOR 8 -PRINT "A water "; CHR$(176) -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "" -PRINT "Press [Anykey] to continue" -DO: LOOP UNTIL INKEY$ <> "" - -END SUB - -SUB loadmap -'INPUT "open"; file$ -'OPEN file$ FOR INPUT AS #1 -END SUB - diff --git a/programs/samples/pete/sudoku.bas b/programs/samples/pete/sudoku.bas deleted file mode 100644 index e4a76bff1..000000000 --- a/programs/samples/pete/sudoku.bas +++ /dev/null @@ -1,44 +0,0 @@ -DIM gr$(18, 9), rg$(18, 9): SCREEN 7: CLS : FOR a = 1 TO 9: FOR b = 1 TO 9: gr$(a, b) = " ": LINE (((a - 1) * 32), ((b - 1) * 16) + 11)-STEP(32, 16), 8, B -IF a / 3 = INT(a / 3) AND b / 3 = INT(b / 3) THEN LINE (((a - 3) * 32), ((b - 3) * 16) + 11)-STEP(96, 48), 15, B -NEXT b, a: x = 5: y = 5: vv = 1: c = 0: fl = 0: COLOR 10: LOCATE 21, 2: PRINT "CURSORS"; : COLOR 2: PRINT "=move"; : COLOR 10: PRINT " 1-9"; : COLOR 2 -PRINT "=number"; : COLOR 10: PRINT " ENTER"; : COLOR 2: PRINT "=solve": COLOR 10: PRINT " SPACE"; : COLOR 2: PRINT "=clear number"; : COLOR 10 -PRINT " DELETE"; : COLOR 2: PRINT "=wipe grid": COLOR 1: PRINT " *SuDoKu SoLVeR* (c)David Hall 2005"; -cc: LOCATE (y * 2) + 1, (x * 4) - 1: COLOR 11: i$ = CHR$(2): IF fl = 0 AND gr$(x, y) <> " " THEN i$ = gr$(x, y) -PRINT i$: COLOR 15: i$ = "": c = c + 1: IF c > 2400 THEN c = 0: fl = fl XOR 1 -i$ = RIGHT$(INKEY$, 1): IF VAL(i$) > 0 THEN GOSUB hh: IF fl = 0 THEN gr$(x, y) = i$: GOSUB ff: x = x + 1: IF x > 9 THEN x = 1: y = y + 1: IF y > 9 THEN y = 1 -IF i$ = " " THEN gr$(x, y) = " ": GOSUB ff: x = x + 1: IF x > 9 THEN x = 1: y = y + 1: IF y > 9 THEN y = 1 -IF i$ = CHR$(13) THEN GOSUB ff: GOTO rn -IF i$ = CHR$(75) AND x > 1 THEN GOSUB ff: x = x - 1 ELSE IF i$ = CHR$(77) AND x < 9 THEN GOSUB ff: x = x + 1 -IF i$ = CHR$(72) AND y > 1 THEN GOSUB ff: y = y - 1 ELSE IF i$ = CHR$(80) AND y < 9 THEN GOSUB ff: y = y + 1 -IF i$ = CHR$(83) THEN RUN ELSE GOTO cc -ff: LOCATE (y * 2) + 1, (x * 4) - 1: PRINT gr$(x, y): RETURN -hh: fl = 0: a = 1: WHILE a < 10: IF gr$(a, y) = i$ OR gr$(x, a) = i$ THEN fl = 1: RETURN -a = a + 1: WEND: a = INT((x - 1) / 3): a = (a * 3) + 1: b = INT((y - 1) / 3): b = (b * 3) + 1 -FOR c = a TO a + 2: FOR d = b TO b + 2: IF gr$(c, d) = i$ THEN fl = 1 -NEXT d, c: RETURN -rn: COLOR 7: lf = 0: o = 49: a = 1: b = 1: FOR j = 49 TO 57: FOR y = 1 TO 9: FOR x = 1 TO 9: IF j = 49 THEN rg$(x, y) = "" -IF gr$(x, y) <> " " THEN GOTO zz -i$ = CHR$(j): GOSUB hh: IF fl = 0 THEN rg$(x, y) = rg$(x, y) + i$ -IF j = 57 AND LEN(rg$(x, y)) = 1 THEN gr$(x, y) = rg$(x, y): GOSUB ff: lf = 1: rg$(x, y) = "" -zz: NEXT x, y, j: IF lf = 1 THEN GOTO rn -pip: i$ = CHR$(o): y = 1: WHILE y < 10: ct = 0: FOR x = 1 TO 9: IF rg$(x, y) = "" THEN GOTO ra -IF INSTR(1, rg$(x, y), i$) > 0 THEN ct = ct + 1: v = x -ra: NEXT x: IF ct = 1 THEN x = v: gr$(x, y) = i$: GOSUB ff: GOTO rn -y = y + 1: WEND: x = 1 -WHILE x < 10: tc = 0: FOR y = 1 TO 9: IF rg$(x, y) = "" THEN GOTO ri -IF INSTR(1, rg$(x, y), i$) > 0 THEN tc = tc + 1: v = y -ri: NEXT y: IF tc = 1 THEN y = v: gr$(x, y) = i$: GOSUB ff: GOTO rn -x = x + 1: WEND -WHILE b < 10: ct = 0: FOR c = a TO a + 2: FOR d = b TO b + 2: IF rg$(c, d) = "" THEN GOTO rk -IF INSTR(1, rg$(c, d), i$) > 0 THEN ct = ct + 1: v = c: w = d -rk: NEXT d, c: IF ct = 1 THEN x = v: y = w: gr$(x, y) = i$: GOSUB ff: GOTO rn -a = a + 3: IF a > 7 THEN a = 1: b = b + 3 -WEND: o = o + 1: IF o < 58 THEN GOTO pip -IF vv = 1 THEN vv = 2: j = 0: m = 9: GOSUB kl -mf = 0: co = 0: FOR y = 1 TO 9: FOR x = 1 TO 9: i$ = gr$(x, y): IF i$ = " " THEN co = 1: GOTO bl -gr$(x, y) = " ": GOSUB hh: gr$(x, y) = i$: IF fl = 1 OR (gr$(x, y) = " " AND rg$(x, y) = "") THEN mf = 1 -bl: NEXT x, y: IF co = 0 AND mf = 0 THEN COLOR 15: FOR y = 1 TO 9: FOR x = 1 TO 9: GOSUB ff: NEXT x, y: END -IF mf = 1 THEN j = 9: m = 0: GOSUB kl -rb: x = INT(RND(1) * 9) + 1: y = INT(RND(1) * 9) + 1: IF LEN(rg$(x, y)) < 2 THEN GOTO rb -gr$(x, y) = MID$(rg$(x, y), INT(RND(1) * LEN(rg$(x, y))) + 1, 1): GOTO rn -kl: FOR y = 1 TO 9: FOR x = 1 TO 9: gr$(x + m, y) = gr$(x + j, y): rg$(x + m, y) = rg$(x + j, y): NEXT x, y: RETURN diff --git a/programs/samples/pete/tank/arena.bsv b/programs/samples/pete/tank/arena.bsv deleted file mode 100644 index 343c43048..000000000 Binary files a/programs/samples/pete/tank/arena.bsv and /dev/null differ diff --git a/programs/samples/pete/tank/sprites.bsv b/programs/samples/pete/tank/sprites.bsv deleted file mode 100644 index b393a3042..000000000 Binary files a/programs/samples/pete/tank/sprites.bsv and /dev/null differ diff --git a/programs/samples/pete/tank/tcv2.bas b/programs/samples/pete/tank/tcv2.bas deleted file mode 100644 index af8b134b8..000000000 --- a/programs/samples/pete/tank/tcv2.bas +++ /dev/null @@ -1,424 +0,0 @@ -CHDIR ".\programs\samples\pete\tank" - -'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -' -' ±± ±± ±±±±±± ±±±±±± ±± ±±±±± ±±±±±± ±±± ±± ±±±±±± -' ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± -' ±±±±±±±± ±± ±± ±±±±±± ±± ±± ±± ±± ±± ±±±± ±±±± -' ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± ±± ±±± ±± -' ±± ±± ±±±±±± ±± ±± ±± ±±±±±± ±±±±±± ±± ±± ±±±±± -' -' I N T E R A C T I V E E N T E R T A I N M E N T - 1 9 9 9 -' -' -' Game Name: Qbasic TANK COMMANDER version 2 -' Programmer: Matthew River Knight -' Completed: August 15, 1999 -' -' -'This game is a remake of the last TANK COMMANDER, having been improved and -'modified a great deal. The sprites now move very fluidly and without any -'flicker on 286 PCs and up. The code is also alot smaller than the last -'version and has been made as readable and easy to edit as possible. -' -' * * * * -' -'This is a two player game in which you and a friend drive about the arena -'in tanks trying to blow eachother up. You both have very powerfull tanks -'capable of driving through anything in your path. Even the most secure of -'fortresses stands no chance against these armoured beasts. Each of the tanks -'is equipt with powerfull bomb launchers, capable of blowing up the other -'tank beyond repair, with a single strike. -' -'The keys for the game are pretty standard, and have been designed to allow -'both players to play at the same keyboard without getting in eachothers way. -'You MUST ensure that NUMLOCK is ON before running the game !!! The keys -'are as follows: -' -'BLUE TANK - up: 8 -' down: 2 -' left: 4 -' right: 6 -' brakes: 5 -' shoot: 0 -' -'GREEN TANK - up: Q -' down: A -' left: O -' right: P -' brakes: S -' shoot: SPACE BAR -' -' * * * * -' -'The graphics for this game have been BSAVEd, and thus have to be loaded -'directly into memory to be drawn. This presents quite a problem because -'Qbasic often has quite a bit of trouble locating files that need to be -'BLOADed. This problem may be corrected by reffering to line 122 where there -'is a CHDIR. All you have to do is type the directory in which this game -'resides into the "" marks. -' -'Another potential problem with this game is the delay loop, which controls -'how fast the program runs. This game was designed on a computer using a -'CYRIX MII300 CPU, a 4MB graphics accelerator card and 512K cache - your -'computer may be faster or slower, and thus, for example, if you have a -'PENTIUM III, clocked at 500MHZ, this game will run so fast that it will be -'unplayable. -' -'This problem could have been eliminated by adding a CPU independant delay -'into the code by testing how fast your CPU is, however this presents us with -'another problem: different versions of Qbasic tend to give different results -'for these kinds of tests, and thus the game would have run inconsistantly -'on different platforms, even if they were being run on exactly the same -'kind of system. Since I wanted this game to be playable on any version of -'Qbasic, I chose to let everybody set the delay loop themselves. -' -'The delay loop variable is on line 125, under the name of Speed. All you -'have to do is change what it is = to. The default setting is 550 which is -'perfect for my system when running the game under WINDOWS 95 and on a Qbasic -'4.5 platform. Just experiment with the setting until the game runs at a -'speed with which you are satisfied. Just remember that the lower the number -'Speed is = to, the faster the game is going to run! -' -' * * * * -' -'This game has been programmed from scratch by Matthew River Knight. All the -'code here is my own, with the exception of the FADE IN/OUT code which was -'kindly provided by Manny Najera of FLASH GAMES, on his web site. Any code -'that you find usefull in this game may be taken. The graphics files used -'in this game may not be taken, however. Please give this game to anybody, -'and everybody, though if you do, please DO NOT give them a modified version, -'and DO NOT remove this text! I spent ages making the code the way it is and -'personally I am very proud of it. Please leave it as it is! -' -'File list for Qbasic TANK COMMANDER v2: -' -'* TCV2.BAS....................Game code file. -'* ARENA.BSV...................BSAVEd graphics file for game arena. -'* SPRITES.BSV.................BSAVEd graphics file for sprites. -' -'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- - -'Define variables A-Z as integers. -DEFINT A-Z - -'Define the data TYPE, PaletteType. -TYPE PaletteType -Red AS INTEGER -Green AS INTEGER -Blue AS INTEGER -END TYPE - -'SHAREing of certain variables. -DIM SHARED Pal AS PaletteType -DIM SHARED pData(0 TO 255, 1 TO 3) - -'Declaration of various SUBs. -DECLARE SUB Palette.Set (nColor%, pInfo AS PaletteType) -DECLARE SUB Palette.Get (nColor%, pInfo AS PaletteType) -DECLARE SUB Palette.FadeOut () -DECLARE SUB Palette.FadeIn () - -'Change the default directory to the one being used for TANK COMMANDER. When -'setting this, remember to uncomment it. -'CHDIR "" - -'Initial values of various variables. -D1 = 2: D2 = 4: T1H = 6: T1V = 87: T2H = 300: T2V = 102: Speed = 550 - -'Customise the VGA color palette for the introductory text. -SCREEN 13 -C = 16: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * 0) + 0: C = C + 1: NEXT -C = 32: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * 0) + (256 * A) + 0: C = C + 1: NEXT -C = 48: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * 0) + (256 * 0) + A: C = C + 1: NEXT -C = 64: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * A) + 0: C = C + 1: NEXT -C = 80: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * 0) + A: C = C + 1: NEXT -C = 96: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * 0) + (256 * A) + A: C = C + 1: NEXT -C = 112: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * B) + 0: B = B + 3: C = C + 1: NEXT -C = 128: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * B) + (256 * 0) + A: B = B + 3: C = C + 1: NEXT -C = 144: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * B) + (256 * A) + 0: B = B + 3: C = C + 1: NEXT -C = 160: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * B) + (256 * A) + A: B = B + 3: C = C + 1: NEXT -C = 176: B = 0: FOR A = 16 TO 61 STEP 3: PALETTE C, (256 ^ 2 * A) + (256 * A) + A: C = C + 1: NEXT -C = 192: B = 12: AA = 0: FOR A = 30 TO 62 STEP 2: PALETTE C, (256 ^ 2 * B) + (256 * AA) + A: B = B + 2: C = C + 1: NEXT -C = 208: B = 12: AA = 0: FOR A = 30 TO 62 STEP 2: PALETTE C, (256 ^ 2 * B) + (256 * B) + A: B = B + 2: C = C + 1: NEXT -C = 224: B = 12: AA = 0: FOR A = 30 TO 62 STEP 2: PALETTE C, (256 ^ 2 * AA) + (256 * B) + A: B = B + 2: C = C + 1: NEXT - -'Do presentation text. -Palette.FadeOut -COLOR 1 -LOCATE 9, 16: PRINT " HORIZONS Interactive Entertainment" -LOCATE 13, 13: PRINT "P R E S E N T S" - -'Color in company name with various shades of green. -Y = 72: C = 32 -DO -FOR X = 1 TO 300 -IF POINT(X, Y) > 0 THEN PSET (X, Y), C + RND * 15 -NEXT -Y = Y + 1 -LOOP UNTIL Y = 79 - -'Color in "PRESENTS" with various shades of red. Once this has been done, -'fade in the screen, melt it, and then fade out. -Y = 96: C = 49 -DO -FOR X = 1 TO 300 -IF POINT(X, Y) > 0 THEN PSET (X, Y), C + RND * 14 -NEXT -Y = Y + 1 -LOOP UNTIL Y = 103 -Palette.FadeIn -NOW! = TIMER: WHILE (TIMER - 1) < NOW!: WEND -DIM Melt%(1500) -FOR R = 1 TO 1500 - RANDOMIZE TIMER - X = INT(RND * 271) - RANDOMIZE TIMER - Y = INT(RND * 150) - GET (X, Y)-(X + 48, Y + 18), Melt% - PUT (X, Y + 1), Melt%, PSET - IF INKEY$ = CHR$(27) THEN END -NEXT -Palette.FadeOut -CLS : PALETTE: Palette.FadeOut - -'GET the sprite data. -DEF SEG = 40960: BLOAD "sprites.bsv" -DIM Tank1(150): GET (1, 1)-(15, 10), Tank1 -DIM Tank2(150): GET (1, 14)-(15, 23), Tank2 -DIM Tank3(150): GET (1, 27)-(15, 36), Tank3 -DIM Tank4(150): GET (1, 40)-(15, 49), Tank4 -DIM Tank5(150): GET (20, 1)-(34, 10), Tank5 -DIM Tank6(150): GET (20, 14)-(34, 23), Tank6 -DIM Tank7(150): GET (20, 27)-(34, 36), Tank7 -DIM Tank8(150): GET (20, 40)-(34, 49), Tank8 - -'Load the file ARENA.BSV, which is the graphics data for the arena, into the -'video memory segment (segment 40960). -BLOAD "arena.bsv" - -'Place both tanks in their initial positions and fade in the completed arena. -PUT (T1H, T1V), Tank1, PSET -PUT (T2H, T2V), Tank6, PSET -Palette.FadeIn - -'Main program loop. -DO - -'IF Count < Speed THEN Count = Count + 1 ELSE Count = 0 -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 - -IF Go1 = 1 AND Count = 0 THEN - IF D1 = 1 AND T1V > 26 THEN T1V = T1V - 1: PUT (T1H, T1V), Tank3, PSET - IF D1 = 2 AND T1H < 305 THEN T1H = T1H + 1: PUT (T1H, T1V), Tank1, PSET - IF D1 = 3 AND T1V < 190 THEN T1V = T1V + 1: PUT (T1H, T1V), Tank4, PSET - IF D1 = 4 AND T1H > 0 THEN T1H = T1H - 1: PUT (T1H, T1V), Tank2, PSET -END IF -IF Go2 = 1 AND Count = 0 THEN - IF D2 = 1 AND T2V > 26 THEN T2V = T2V - 1: PUT (T2H, T2V), Tank7, PSET - IF D2 = 2 AND T2H < 305 THEN T2H = T2H + 1: PUT (T2H, T2V), Tank5, PSET - IF D2 = 3 AND T2V < 190 THEN T2V = T2V + 1: PUT (T2H, T2V), Tank8, PSET - IF D2 = 4 AND T2H > 0 THEN T2H = T2H - 1: PUT (T2H, T2V), Tank6, PSET -END IF -IF St1 = 30 THEN St1 = 0: Fire1 = 0: PSET (B1H, B1V), Col -IF St2 = 30 THEN St2 = 0: Fire2 = 0: PSET (B2H, B2V), Col2 -IF Fire1 = 1 AND St1 < 30 AND Count = 0 THEN - PSET (B1H, B1V), Col - IF BD1 = 1 THEN B1V = B1V - 2 - IF BD1 = 2 THEN B1H = B1H + 2 - IF BD1 = 3 THEN B1V = B1V + 2 - IF BD1 = 4 THEN B1H = B1H - 2 - Col = POINT(B1H, B1V) - PSET (B1H, B1V), 14 - St1 = St1 + 1 - GOSUB CheckBullet1 -END IF -IF Fire2 = 1 AND St2 < 30 AND Count = 0 THEN - PSET (B2H, B2V), Col2 - IF BD2 = 1 THEN B2V = B2V - 2 - IF BD2 = 2 THEN B2H = B2H + 2 - IF BD2 = 3 THEN B2V = B2V + 2 - IF BD2 = 4 THEN B2H = B2H - 2 - Col2 = POINT(B2H, B2V) - PSET (B2H, B2V), 14 - St2 = St2 + 1 - GOSUB CheckBullet2 -END IF -Key$ = INKEY$ -IF Key$ = CHR$(27) THEN Palette.FadeOut: GOTO Results -IF Key$ = "4" THEN Go1 = 1: D1 = 4 -IF Key$ = "6" THEN Go1 = 1: D1 = 2 -IF Key$ = "8" THEN Go1 = 1: D1 = 1 -IF Key$ = "2" THEN Go1 = 1: D1 = 3 -IF Key$ = "0" THEN IF Fire1 = 0 THEN GOSUB Shoot1 -IF Key$ = "5" THEN Go1 = 0 -IF Key$ = "O" OR Key$ = "o" THEN Go2 = 1: D2 = 4 -IF Key$ = "P" OR Key$ = "p" THEN Go2 = 1: D2 = 2 -IF Key$ = "Q" OR Key$ = "q" THEN Go2 = 1: D2 = 1 -IF Key$ = "A" OR Key$ = "a" THEN Go2 = 1: D2 = 3 -IF Key$ = "S" OR Key$ = "s" THEN Go2 = 0 -IF Key$ = CHR$(32) THEN IF Fire2 = 0 THEN GOSUB Shoot2 -LOOP - -Shoot1: 'Initiates the shooting from Tank 1. -BD1 = D1 -IF BD1 = 0 THEN RETURN -IF BD1 = 1 THEN B1H = (T1H + 7): B1V = (T1V - 1) -IF BD1 = 2 THEN B1H = (T1H + 14): B1V = (T1V + 5) -IF BD1 = 3 THEN B1H = (T1H + 7): B1V = (T1V + 11) -IF BD1 = 4 THEN B1H = (T1H - 1): B1V = (T1V + 5) -St1 = 1: Fire1 = 1: Col = POINT(B1H, B1V) -RETURN - -Shoot2: 'Initiates the shooting from Tank 2. -BD2 = D2 -IF BD2 = 0 THEN RETURN -IF BD2 = 1 THEN B2H = (T2H + 7): B2V = (T2V - 1) -IF BD2 = 2 THEN B2H = (T2H + 14): B2V = (T2V + 5) -IF BD2 = 3 THEN B2H = (T2H + 7): B2V = (T2V + 11) -IF BD2 = 4 THEN B2H = (T2H - 1): B2V = (T2V + 5) -St2 = 1: Fire2 = 1: Col2 = POINT(B2H, B2V) -RETURN - -CheckBullet1: 'Hit detection from Tank 1 bullet. -T2V = T2V + 2: T2H = T2H + 3 -FOR ScanTank2 = 1 TO 7 -FOR Scan = 1 TO 9 - IF B1H = T2H AND B1V = T2V THEN Crash = 2: GOTO Explode - T2H = T2H + 1 -NEXT - T2H = T2H - 9: T2V = T2V + 1 -NEXT -T2V = T2V - 9: T2H = T2H - 3 -RETURN - -CheckBullet2: 'Hit detection from Tank 2 bullet. -T1V = T1V + 2: T1H = T1H + 3 -FOR ScanTank1 = 1 TO 7 -FOR Scan = 1 TO 9 - IF B2H = T1H AND B2V = T1V THEN Crash = 1: GOTO Explode - T1H = T1H + 1 -NEXT - T1H = T1H - 9: T1V = T1V + 1 -NEXT -T1V = T1V - 9: T1H = T1H - 3 -RETURN - -Explode: 'Create very cheap graphic explosion. -IF Crash = 1 THEN ExplodeH = T1H: ExplodeV = T1V: T2Wins = 1 -IF Crash = 2 THEN ExplodeH = T2H: ExplodeV = T2V: T1Wins = 1 -FOR Explode = 1 TO 9 - IF Explode = 1 THEN Col = 14 - IF Explode = 5 THEN Col = 12 - IF Explode = 7 THEN Col = 4 - CIRCLE (ExplodeH, ExplodeV), Explode, Col - NOW! = TIMER: WHILE (TIMER - .01) < NOW!: WEND -NEXT -NOW! = TIMER: WHILE (TIMER - 1) < NOW!: WEND -Palette.FadeOut - -Results: 'Announce the winning tank and display credits. -SCREEN 0: WIDTH 80, 25 -COLOR 12, 4 -PRINT " G A M E R E S U L T S " -PRINT -COLOR 4, 0 -PRINT "Blue tank wins:" -COLOR 2 -LOCATE 3, 17: PRINT T1Wins -COLOR 4 -PRINT "Green tank wins:" -COLOR 2 -LOCATE 4, 18: PRINT T2Wins -PRINT -COLOR 12, 4 -PRINT " C R E D I T S " -PRINT -COLOR 4, 0 -PRINT "Concept:" -PRINT "Programming:" -PRINT "Game art:" -PRINT "Fade effect:" -PRINT "Testing:" -PRINT "Debugging:" -COLOR 2 -LOCATE 8, 11: PRINT "About a million other un-origional programmers ;)" -LOCATE 9, 15: PRINT "Matthew Knight" -LOCATE 10, 12: PRINT "Matthew Knight" -LOCATE 11, 15: PRINT "Manny Najera" -LOCATE 12, 11: PRINT "Matthew Knight" -LOCATE 13, 13: PRINT "Matthew Knight" -PRINT -COLOR 9 -PRINT "All code in this game was programmed from scratch by Matthew Knight, with" -PRINT "exception of the fade effect which was kindly supplied by Manny Najera." -PRINT "No code was taken from any other games. Any similarity to another game is" -PRINT "purely coincidental." -PRINT -COLOR 4 -PRINT "Thank you for trying Qbasic TANK COMMANDER v2 !!!" -PRINT "Hope you liked it :)" -COLOR 7 - -SUB Palette.FadeIn -DIM tT(1 TO 3) -FOR I = 1 TO 64 - WAIT &H3DA, 8, 8 - FOR O = 0 TO 255 - Palette.Get O, Pal - tT(1) = Pal.Red - tT(2) = Pal.Green - tT(3) = Pal.Blue - IF tT(1) < pData(O, 1) THEN tT(1) = tT(1) + 1 - IF tT(2) < pData(O, 2) THEN tT(2) = tT(2) + 1 - IF tT(3) < pData(O, 3) THEN tT(3) = tT(3) + 1 - Pal.Red = tT(1) - Pal.Green = tT(2) - Pal.Blue = tT(3) - Palette.Set O, Pal - NEXT -NEXT -END SUB - -SUB Palette.FadeOut -DIM tT(1 TO 3) -FOR I = 0 TO 255 - Palette.Get I, Pal - pData(I, 1) = Pal.Red - pData(I, 2) = Pal.Green - pData(I, 3) = Pal.Blue -NEXT -FOR I = 1 TO 64 - WAIT &H3DA, 8, 8 - FOR O = 0 TO 255 - Palette.Get O, Pal - tT(1) = Pal.Red - tT(2) = Pal.Green - tT(3) = Pal.Blue - IF tT(1) > 0 THEN tT(1) = tT(1) - 1 - IF tT(2) > 0 THEN tT(2) = tT(2) - 1 - IF tT(3) > 0 THEN tT(3) = tT(3) - 1 - Pal.Red = tT(1) - Pal.Green = tT(2) - Pal.Blue = tT(3) - Palette.Set O, Pal - NEXT -NEXT -END SUB - -SUB Palette.Get (nColor%, pInfo AS PaletteType) -OUT &H3C6, &HFF -OUT &H3C7, nColor% -pInfo.Red = INP(&H3C9) -pInfo.Green = INP(&H3C9) -pInfo.Blue = INP(&H3C9) -END SUB - -SUB Palette.Set (nColor%, pInfo AS PaletteType) -OUT &H3C6, &HFF -OUT &H3C8, nColor% -OUT &H3C9, pInfo.Red -OUT &H3C9, pInfo.Green -OUT &H3C9, pInfo.Blue -END SUB - diff --git a/programs/samples/pete/time.bas b/programs/samples/pete/time.bas deleted file mode 100644 index 57ce360ff..000000000 --- a/programs/samples/pete/time.bas +++ /dev/null @@ -1,32 +0,0 @@ -CLS -DO -Y = VAL(MID$(DATE$, 7, 4)) -M = VAL(MID$(DATE$, 1, 2)) -EM$ = "TH" -IF M = 1 THEN EM$ = "ST" -IF M = 2 THEN EM$ = "ND" -IF M = 3 THEN EM$ = "RD" -M$ = STR$(M) + EM$ -FOR K = 1 TO M -READ MO$ -NEXT -D = VAL(MID$(DATE$, 4, 2)) -ED$ = "TH" -IF D = 1 THEN EM$ = "ST" -IF D = 2 THEN EM$ = "ND" -IF D = 3 THEN EM$ = "RD" -D$ = STR$(D) + ED$ -H = INT(VAL(MID$(TIME$, 1, 2)) / 2) - 1 -HH = VAL(MID$(TIME$, 1, 2)) -IF HH < 12 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " A.M." -IF HH > 11 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " P.M." -RESTORE -LOCATE 5, 1 -PRINT "THE YEAR IS"; Y -PRINT "IT'S "; MO$ -PRINT "WHICH IS THE"; M$; " MONTH" -PRINT "IT'S THE"; D$ -PRINT "AND THE TIME IS"; T$ -PRINT "THE MILITARY TIME IS "; TIME$ -LOOP UNTIL INKEY$ <> "" -DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER" \ No newline at end of file diff --git a/programs/samples/pete/tor/canada.bsv b/programs/samples/pete/tor/canada.bsv deleted file mode 100644 index 7911e874e..000000000 Binary files a/programs/samples/pete/tor/canada.bsv and /dev/null differ diff --git a/programs/samples/pete/tor/qbdemo.bas b/programs/samples/pete/tor/qbdemo.bas deleted file mode 100644 index b810d0d85..000000000 --- a/programs/samples/pete/tor/qbdemo.bas +++ /dev/null @@ -1,408 +0,0 @@ -DECLARE SUB ohcanada (totalframes%) -DECLARE SUB updpalplasma (f%) -DECLARE SUB plasma (totalframes%) -DECLARE SUB shadebobeffect (totalframes%) -DECLARE SUB undrawbob (ofs%) -DECLARE SUB drawbob (ofs%) -DECLARE SUB unwhitefade (totalframes%) -DECLARE SUB fracline2 (y%, y1#, y2#, x1#, x2#, distthr#) -DECLARE SUB render (x1%, y1%, x2%, y2%) -DECLARE SUB fractaleffect (totalframes%) -DECLARE SUB fracline (y%, y1#, y2#, x1#, x2#, distthr#) -'DECLARE SUB ffix -'ffix -'$DYNAMIC -CONST PI = 3.141592653589793# -CONST XCENTRE = -.577816001047738# -CONST YCENTRE = -.6311212235178052# -DEFINT A-Z -SCREEN 13 -DIM SHARED totalframecount AS INTEGER -DIM SHARED fractal1(32000&) AS INTEGER -DIM SHARED fractal2(32000&) AS INTEGER -FOR x = 0 TO 63 -OUT &H3C8, x -OUT &H3C9, x -OUT &H3C9, x -OUT &H3C9, 0 -NEXT -FOR x = 64 TO 127 -OUT &H3C8, x -OUT &H3C9, 63 -OUT &H3C9, 63 -OUT &H3C9, x -NEXT -FOR x = 128 TO 191 -OUT &H3C8, x -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, x -NEXT -FOR x = 191 TO 255 -OUT &H3C8, x -OUT &H3C9, x -OUT &H3C9, x -OUT &H3C9, 63 -NEXT -OUT &H3C8, 255: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 0 -OUT &H3C8, 127: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 0 -ti1! = TIMER -fractaleffect 2250 -ti1! = TIMER - ti1! -COLOR 63: PRINT ti1! -ERASE fractal1 -ERASE fractal2 -a$ = INPUT$(1) -CLS -unwhitefade 16 -DIM SHARED bobsprite(32, 32) AS INTEGER -FOR x = 0 TO 32 -FOR y = 0 TO 32 -bobsprite(x, y) = 16 - SQR((16 - x) ^ 2 + (16 - y) ^ 2) -IF bobsprite(x, y) < 0 THEN bobsprite(x, y) = 0 -NEXT -NEXT -shadebobeffect 8192 -ERASE bobsprite -CLS -unwhitefade 16 -plasma 1024 -CLS -ohcanada 512'ohcanada has a transition - -REM $STATIC -SUB drawbob (ofs) - FOR y = 0 TO 31 - ofs = ofs + 288 - FOR x = 0 TO 31 - POKE ofs, PEEK(ofs) + bobsprite(x, y) - ofs = ofs + 1 - NEXT - NEXT -END SUB - -DEFDBL A-Z -' -'distthr is 4 unless you know what you're doing -'maximum iteration number of 256 seems to be sufficient for most purposes. -'"renders" one scanline to fractal1. -'assumes that we have been DEF SEG'd to fractal1. -' -SUB fracline (y%, y1, y2, x1, x2, distthr) -deltax = (x2 - x1) / 160 -deltay = (y2 - y1) / 160 -y = y1 -x% = 1 -y320% = y% * 320 -x = x1 + deltax / 2 -DO - unf% = PEEK(y320% + x% - 1) - IF unf% = PEEK(y320% + x% + 1) AND unf% > 0 THEN - iter% = unf% - ELSE - re = 0: im = 0: iter% = 0 - DO - re2 = re * re - im2 = im * im - im = re * im - im = im + im + y - re = re2 - im2 + x - iter% = iter% + 1 - LOOP UNTIL re2 + im2 >= distthr OR iter% = 255 - END IF - POKE x% + y320%, iter% - x% = x% + 2 - IF x% >= 320 THEN EXIT DO - x = x + deltax - y = y + deltay -LOOP - x% = 160 - x = (x1 + x2) / 2 - re = 0: im = 0: iter% = 0 - DO - temp = re * re - im * im - im = re * im - im = im + im + y - re = temp + x - iter% = iter% + 1 - LOOP UNTIL re * re + im * im >= distthr OR iter% = 255 - POKE x% + y320%, iter% -END SUB - -'render odd scanlines like this -'just like fracline, but we cheat vertically. -SUB fracline2 (y%, y1, y2, x1, x2, distthr) -DIM scanline(320) AS INTEGER -deltax = (x2 - x1) / 320 -deltay = (y2 - y1) / 320 -y = y1 -x% = 0 -y320% = y% * 320 -x = x1 -DO - IF PEEK(x% + y320% - 320) = PEEK(x% + y320% + 320) THEN - iter% = PEEK(x% + y320% - 320) - ELSE - re = 0: im = 0: iter% = 0 - DO - re2 = re * re - im2 = im * im - im = re * im - im = im + im + y - re = re2 - im2 + x - iter% = iter% + 1 - LOOP UNTIL re2 + im2 >= distthr OR iter% = 255 - END IF - POKE x% + y320%, iter% - x% = x% + 1 - IF x% >= 320 THEN EXIT SUB - x = x + deltax - y = y + deltay -LOOP - -END SUB - -DEFINT A-Z -SUB fractaleffect (totalframes) -DIM tmpshit(160, 100) -ly = -100: f# = 1 -FOR f = 1 TO totalframes - ly0 = ly - ly1 = ly + 1 - ly2 = ly + 2 - ly3 = ly + 3 - ly0# = ly0 / f# + YCENTRE - ly1# = ly1 / f# + YCENTRE - ly2# = ly2 / f# + YCENTRE - ly3# = ly3 / f# + YCENTRE - lx1# = XCENTRE - 160 / f# - lx2# = XCENTRE + 160 / f# - DEF SEG = VARSEG(fractal1(0)) - distthr# = 4 - fracline ly0 + 100, ly0#, ly0#, lx1#, lx2#, distthr# - fracline ly2 + 100, ly2#, ly2#, lx1#, lx2#, distthr# - fracline2 ly1 + 100, ly1#, ly1#, lx1#, lx2#, distthr# - fracline2 ly3 + 100, ly3#, ly3#, lx1#, lx2#, distthr# - ly = ly + 4 - IF ly >= 100 THEN - ly = -100 - f# = f# * 2 - o = 16080 - FOR y = 0 TO 99 - FOR x = 0 TO 159 - tmpshit(x, y) = PEEK(o) - o = o + 1 - NEXT - o = o + 160 - NEXT - o = 0 - FOR x = 0 TO 32000 - fractal2(x) = fractal1(x) - fractal1(x) = 0 - NEXT - FOR y = 0 TO 99 - FOR x = 0 TO 159 - POKE x * 2 + y * 640, tmpshit(x, y) - NEXT - NEXT - - END IF - DEF SEG = VARSEG(fractal2(0)) - f50 = (f) MOD 50 - x1 = f50 * 1.6: y1 = f50 - x2 = 320 - f50 * 1.6: y2 = 200 - f50 - render x1, y1, x2, y2 - IF LEN(INKEY$) THEN EXIT SUB - totalframecount = totalframecount + 1 -NEXT -END SUB - -SUB ohcanada (totalframes) -FOR x = 0 TO 255 -OUT &H3C8, x -OUT &H3C9, 63 -OUT &H3C9, 63 -OUT &H3C9, 63 -NEXT -DEF SEG = &HA000 -BLOAD ".\programs\samples\pete\tor\canada.bsv", 0 -FOR x = 0 TO 255 -OUT &H3C8, x -OUT &H3C9, 63 -OUT &H3C9, x \ 4 -OUT &H3C9, x \ 4 -NEXT -unwhitefade 256 -totalframecount = totalframecount + 16 -FOR f = 1 TO totalframes - WAIT &H3DA, 8, 8 - WAIT &H3DA, 8 - totalframecount = totalframecount + 1 - IF INKEY$ > "" THEN EXIT SUB -NEXT -END SUB - -SUB plasma (totalframes) -DIM unf(320), unfunf(320) -DIM sine(512) -DIM fuh(128, 128) -DEF SEG = &HA000 -FOR x = 0 TO 512 -sine(x) = SIN(x * 3.14 / 256) * 32 + 32 -NEXT -FOR f = 1 TO totalframes - FOR x = 0 TO 320 - unf(x) = sine((x + f) AND 511) + sine((3 * x + 7 * f + 3) AND 511) - NEXT - o = 0 - FOR y = 0 TO 128 - unf2 = sine((y * 7 + f * 5) AND 511) + sine((y * 14 + f * 11 + 1943) AND 511) - FOR x = 0 TO 128 - fuh(x, y) = unf(x) + unf2 - o = o + 1 - NEXT - NEXT - FOR x = 0 TO 320 - unf(x) = sine((x * 11 + f * 7) AND 511) + sine((3 * x + 7 * f + 3) AND 511) - unfunf(x) = sine((x * 4 + f * 5) AND 511) + sine((9 * x + 2 * f + 371) AND 511) - NEXT - o = 0 - FOR y = 0 TO 199 - unf2 = sine((y * 11 + f * 6) AND 511) + sine((y * 14 + f * 11 + 1943) AND 511) - unf3 = sine((y * 9 + f * 4) AND 511) + sine((y * 17 + f * 23 + 1943) AND 511) - FOR x = 0 TO 319 - POKE o, fuh((unf(x) + unf2) AND 127, (unfunf(x) + unf3) AND 127) - o = o + 1 - NEXT - NEXT - updpalplasma f - totalframecount = totalframecount + 1 - IF INKEY$ > "" THEN EXIT SUB -NEXT -END SUB - -'like a bf line with similar parameters. except we're "texturing" -'we are defsegged to fractal2. -SUB render (x1, y1, x2, y2) -DIM unf(160, 100) -deltay = y2 - y1 -deltax = x2 - x1 -yadd = deltay \ 100 -xadd = deltax \ 160 -deltax = deltax MOD 160 -deltay = deltay MOD 100 -y = y1 -FOR scry = 0 TO 99 - x = x1 - xe = 0 - y320 = y * 320 - FOR scrx = 0 TO 159 - unf(scrx, scry) = PEEK(x + y320) - xe = xe + deltax - IF xe > 160 THEN xe = xe - 160: x = x + 1 - x = x + xadd - NEXT - ye = ye + deltay - IF ye > 100 THEN ye = ye - 100: y = y + 1 - y = y + yadd -NEXT -DEF SEG = &HA000 -o = 16080 -FOR y = 0 TO 99 - FOR x = 0 TO 159 - POKE o + x, unf(x, y) - NEXT - o = o + 320 -NEXT -DEF SEG = VARSEG(fractal2(0)) - -END SUB - -SUB shadebobeffect (totalframes) -DIM bob(4096) AS INTEGER -bobptr = 0 -DEF SEG = &HA000 -FOR f = 1 TO totalframes - undrawbob (bob(bobptr)) - x = (SIN(f / 71) + COS(f / 47 + 2) + COS(f / 91 + 7)) * 48 + 160 - y = (COS(f / 49 + 3) + SIN(f / 41 + 2) + SIN(f / 97 + 7)) * 28 + 100 - bob(bobptr) = x + y * 320 - drawbob (bob(bobptr)) - bobmax = f \ 2 + 1 - 'IF bobmax > 4095 THEN bobmax = 4095 - bobptr = bobptr + 1 - bobptr = bobptr MOD bobmax - totalframecount = totalframecount + 1 - IF INKEY$ > "" THEN EXIT SUB -NEXT -ERASE bob -END SUB - -SUB undrawbob (ofs) - FOR y = 0 TO 31 - ofs = ofs + 288 - FOR x = 0 TO 31 - POKE ofs, PEEK(ofs) - bobsprite(x, y) - ofs = ofs + 1 - NEXT - NEXT -END SUB - -SUB unwhitefade (totalframes) -DIM pal(256, 3) -FOR x = 0 TO 255 -OUT &H3C7, x -pal(x, 0) = INP(&H3C9) -pal(x, 1) = INP(&H3C9) -pal(x, 2) = INP(&H3C9) -NEXT -FOR f = 0 TO totalframes -f! = f / totalframes -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -FOR x = 0 TO 255 -OUT &H3C8, x -OUT &H3C9, pal(x, 0) * f! + 63 * (1 - f!) -OUT &H3C9, pal(x, 1) * f! + 63 * (1 - f!) -OUT &H3C9, pal(x, 2) * f! + 63 * (1 - f!) -NEXT -totalframecount = totalframecount + 1 -NEXT - -END SUB - -'essentially ripped from Alex Champandard. -'the code is exactly the same, +/- variable name changes, language, and -'abstraction. -SUB updpalplasma (f) -FOR x = 0 TO 255 - OUT &H3C8, x - OUT &H3C9, 32 - 31 * COS(x * PI / 128 + f * .00141) - OUT &H3C9, 32 - 31 * COS(x * PI / 128 + f * .0141) - OUT &H3C9, 32 - 31 * COS(x * PI / 64 + f * .0136) -NEXT -END SUB - -SUB whitefade (totalframes) -DIM pal(256, 3) -FOR x = 0 TO 255 -OUT &H3C7, x -pal(x, 0) = INP(&H3C9) -pal(x, 1) = INP(&H3C9) -pal(x, 2) = INP(&H3C9) -NEXT -FOR f = totalframes TO 0 STEP -1 -f! = f / totalframes -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -FOR x = 0 TO 255 -OUT &H3C8, x -OUT &H3C9, pal(x, 0) * f! + 63 * (1 - f!) -OUT &H3C9, pal(x, 1) * f! + 63 * (1 - f!) -OUT &H3C9, pal(x, 2) * f! + 63 * (1 - f!) -NEXT -totalframecount = totalframecount + 1 -IF LEN(INKEY$) THEN EXIT SUB -NEXT -END SUB - diff --git a/programs/samples/pete/tor/readme.txt b/programs/samples/pete/tor/readme.txt deleted file mode 100644 index 218f4f906..000000000 --- a/programs/samples/pete/tor/readme.txt +++ /dev/null @@ -1,47 +0,0 @@ -QBDEMO (C) 2002 Tor Myklebust - -The fractal zoomer should run at 60FPS on a 500MHz machine. I disabled -vsync because it runs like shit on this 300MHz machine on the higher zoom -levels (inconsistent 20-30 fps). I basically just packed the rest of the -demo with really shitty effects. There is no music because I don't know -a damn thing about sound coding (aside from the fact that you use Fourier -transforms a hell of a lot), and I also don't know the first thing about -art/music. - -The fractal zoomer uses a number of cheap hacks. First, I only render -the fractal image once per 50 frames. It zooms in by a factor of two -each time. It is rendered at a resolution of 320*200, because we don't -want blockies to show up on our 160*100 rendered image. I've tried -doing the "maximal" 224*141 (or thereabouts) image and it looked bad. -We render four scanlines per frame, drawing as few pixels as possible. -We zoom the 160*100 in the middle of the previous frame's 320*200 to take -up every fourth pixel in the new frame, then (ab)using the intermediate -value theorem for the pixels in between if the neighbour pixels are the -same colour. This causes some minor visual artefacts which you shouldn't -be able to see (except the one white line where the yellow is disappearing) - -This code is VERY LOOSELY based on Alex Champandard's code in his "The Art -of Demomaking" series. I made up the zoom hack and the IVT hack because -QB is more than twice as slow as DJGPP. I thought his palette-cycling -looked really stupid, so I omitted that. - -I shouldn't need to explain the shadebob effect. Everyone knows how to do -shadebobs, or can at least figure it out in two or three minutes. No -hacking was necessary here, as the effect is trivial to begin with. - -I also shouldn't need to explain plasma. No hacking was involved here, -either. - -I did the flag thing because I saw an american flag flying in some past demo -which i just looked at (15 minutes before the deadline). I didn't have time -to code an american flag burning (I've done this in C by just rendering less -and less of the flag (having the fire "crawl across" the flag) each frame, -and using the "burning" areas to seed a fire. Besides, burning is supposed -to be a proper way to retire a flag, and we can't have that. - -I wanted to add a (phongshaded, swept) scrolltext, but time did not permit -it. You can see something like this in mesha or lbd or something (however, -because QB is QB, it probably wouldn't be half the quality). - -I started this 27 hours before the deadline, and finished it _on_ the -deadline. Yay for me. diff --git a/programs/samples/pete/torndc.bas b/programs/samples/pete/torndc.bas deleted file mode 100644 index d9d8118c6..000000000 --- a/programs/samples/pete/torndc.bas +++ /dev/null @@ -1,662 +0,0 @@ -' -' FGR SOFTWARE -' Torneo NDC -' -'============================================================================= -'Torneo NDC: -'Este juego intenta ser un juego al estilo galaxian, solo que muy pobre... -'Tiene 14 o 15 niveles, y es casi siemprelo mismo, solo que cambia el color -'de las naves enemigas (X), la dificultad, y se van acumulando las vidas y -'los puntajes... -'Las teclas son: A (para movernos a la izquierda) -'=============== S (para la derecha) -' X (para disparar). -' -'============================================================================= -' -'Ya se que los comandos son un poco malos, pero sinceramente ya me canse de -'moverme con las flechas, y disparar con barra. Mi barra ya esta destrozada! -'Bueno, si tienen algun comentario o critica constructiva (no agresiones) -'escribanmen a fernandogastonramirez@yahoo.com.ar -'Visiten www.fgrqbasic.co.nr -' -'============================================================================== - - - - - - -DECLARE SUB menu () -DECLARE SUB instrucciones () -DECLARE SUB historia () -DECLARE SUB estrellas () -DECLARE SUB ganador () -DECLARE SUB CentrarTexto (t$, y%) - - -vida = 4 -vel = 10000 -cd: -CALL menu - -DO -SELECT CASE INKEY$ -CASE "j" -GOTO post -CASE "d" -GOTO dificultad -CASE "i" -CALL instrucciones -GOTO cd -CASE "s" -GOTO salir -END SELECT -LOOP - -salir: -CLS -COLOR 30 -CentrarTexto "!Gracias Por Jugar TORNEO NDC!", 12 -SLEEP 5 -END - -dificultad: -CLS -COLOR 10 -CentrarTexto "(F)acil", 11 -CentrarTexto "(N)ormal", 12 -CentrarTexto "(D)ificil", 13 -DO -SELECT CASE INKEY$ -CASE "f" -vel = 10000 -www = 0 -GOTO cd -CASE "n" -www = 1 -d = 10 -vel = 9000 -vida = 3 -GOTO cd -CASE "d" -www = 1 -d = 15 -vel = 1585 -vida = 2 -GOTO cd -END SELECT -LOOP - -CALL menu - - -post: -CLS -fgr = 1 -puntos = 0 -fx = 20000 -www = 0 - -'INICIO DEL JUEGO -'---------------- - -CALL historia -inicio: -CLS -X = 1 -y = 45 -z = 40 - -DO -RANDOMIZE TIMER - - -'MOSTRAR VIDA, NIVEL Y PUNTOS -'----------------------------- -LOCATE 1, 70 -COLOR 10 -PRINT "Nvl:" -LOCATE 1, 76 -PRINT fgr -COLOR 9 -LOCATE 2, 70 -PRINT "vida:" -LOCATE 2, 76 -PRINT vida -LOCATE 3, 70 -COLOR 4 -PRINT "Puntos:" -LOCATE 3, 76 -PRINT puntos - - -'CREACION Y MOVIMIENTO DE LA NAVE -'-------------------------------- - -CALL estrellas - -LOCATE X, y -COLOR fgr -PRINT "X" -LOCATE 23, z -COLOR 9 -PRINT "W" - -SELECT CASE INKEY$ -CASE "a" -z = z - 1 -f = z + 1 -LOCATE 23, f -COLOR 0 -PRINT "W" -CASE "s" -z = z + 1 -f = z - 1 -LOCATE 23, f -COLOR 0 -PRINT "W" -CASE "k" -BEEP -FOR m = 23 TO 2 STEP -1 -LOCATE m, z -COLOR 15 -PRINT "." -NEXT m -FOR I = 1 TO 10000 -NEXT I - -FOR m = 23 TO 2 STEP -1 -LOCATE m, z -COLOR 0 -PRINT "." -NEXT m - - -IF z = y THEN -LOCATE X, y -COLOR 4 -PRINT "X" -FOR I = 1 TO 15 -FOR S = 850 TO 810 STEP -1 -SOUND (RND * 100 + S / 10 + 30), .1 -NEXT -NEXT I -GOTO punto -END IF -FOR m = 23 TO 2 STEP -1 -LOCATE m, z -COLOR 0 -PRINT "." -NEXT m -CASE CHR$(27) -GOTO cd -END SELECT - - -IF z >= 81 THEN -z = z - 1 -END IF - -IF z = 0 THEN -z = z + 1 -END IF - - - -'ENEMIGO, MOVIMIENTOS Y DISPAROS -'------------------------------- - -S = INT(RND * 3) + 1 - -FOR I = 1 TO fx -NEXT I - -SELECT CASE S -CASE 1 -y = y - 1 -IF y = 1 THEN -y = y + 1 -END IF -j = y + 1 -LOCATE 1, j -COLOR 0 -PRINT "X" -CASE 2 -y = y + 1 -IF y = 80 THEN -y = y - 1 -END IF -j = y - 1 -LOCATE 1, j -COLOR 0 -PRINT "X" -END SELECT - -'DISPAROS ENEMIGOS -'----------------- - -d = INT(RND * 10) + 1 -b = X -b = b + 2 - -SELECT CASE d -CASE 3 -BEEP -FOR b = 1 TO 23 -LOCATE b, y -COLOR 15 -PRINT "." -NEXT b -FOR I = 1 TO vel -NEXT I -FOR b = 1 TO 23 -LOCATE b, y -COLOR 0 -PRINT "." -NEXT b - - -IF z = y THEN -LOCATE 23, z -COLOR 4 -PRINT "W" - -FOR I = 1 TO 15 -FOR S = 850 TO 810 STEP -1 -SOUND (RND * 100 + S / 10 + 30), .1 -NEXT -NEXT I - -GOTO vida -END IF - -END SELECT - - - - - -LOOP - - - -vida: -CLS -vida = vida - 1 -IF vida = 0 THEN -GOTO gameover -END IF -COLOR 9 -CentrarTexto "Numero de vida:", 12 -LOCATE 12, 48 -PRINT vida -PLAY "o2 c4 c4 c8 c4 d+4 d8 d4 c8 c4 o1 b8 o2 c4" -SLEEP 1 -GOTO inicio - -'JUEGO TERMINADO -'--------------- - -gameover: -COLOR 15 -CLS -SLEEP 1 -BEEP -CentrarTexto "Perdiste!", 10 -BEEP -SLEEP 2 -COLOR 8 -CentrarTexto "Puntos: ", 12 -LOCATE 12, 43 -PRINT puntos -BEEP -SLEEP 2 -COLOR 30 -CentrarTexto "Gracias por Jugar!", 14 -'Perder -PLAY "MnT250L4O2GG+FF+L2EP1A+L1G" -BEEP -GOTO cd -SLEEP 7 - - -'FIN DEL JUEGO -'------------- - -END - -punto: -IF fgr = 16 THEN -CALL ganador -GOTO cd -END IF -CLS -COLOR 10 -CentrarTexto "Nave enemiga DERROTADA!!", 12 -COLOR 10 -CentrarTexto "Ahora al siguiente nivel!", 13 -PLAY "o4l10 dcdedefefgp10g o5 c5 o4" -puntos = puntos + 5 -fgr = fgr + 1 -IF fgr = 3 THEN -vida = vida + 1 -'Juego -PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0" -PLAY "MB l8 n55 n0 n50 n50 L4 n0 L8 n54 n54 L13 n0 L6 n55 " -IF www = 1 THEN -fx = 17000 -END IF -END IF -IF fgr = 5 THEN -vida = vida + 1 -IF www = 1 THEN -fx = 15000 -END IF -'Juego -PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0" -PLAY "MB l8 n55 n0 n50 n50 L4 n0 L8 n54 n54 L13 n0 L6 n55 " -END IF -IF fgr = 10 THEN -vida = vida + 1 -IF www = 1 THEN -fx = 10000 -END IF -'Juego -PLAY "MB L5 n0 L8 n55 n0 n50 n50 L5 n0 L8 n54 n54 L12 n0 L8 n55 L4 n0" -PLAY "MB l8 n55 n0 n50 n50 L4 n0 L8 n54 n54 L13 n0 L6 n55 " -END IF -SLEEP 7 - -IF fgr = 16 THEN -CLS -COLOR 15 -IF www = 1 THEN -fx = 7000 -END IF -CentrarTexto "!!NAVE FINAL!!", 11 -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -COLOR 4 -CentrarTexto "!!TE ENFRENTARAS CONTRA LA NAVE INVISIBLE!!", 12 -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -COLOR 30 -CentrarTexto "Podras Vencerla?", 13 -'Pelea -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -'Pelea -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -PLAY "o3 l13 t150 eegeeaeebeegeefe t125" -END IF -GOTO inicio - -SUB CentrarTexto (t$, y%) -xnum% = (80 - LEN(t$)) / 2 -xspc% = INT((80 - LEN(t$)) / 2) -IF y% = 0 THEN PRINT TAB(xspc%); t$: EXIT SUB -LOCATE y%, xnum%: PRINT t$ -' - -END SUB - -SUB estrellas - -e = INT(RND * 23) + 1 -S = INT(RND * 80) + 1 -xc = INT(RND * 5) + 1 - -SELECT CASE xc -CASE 1 -v = 15 -CASE 2 -v = 9 -CASE ELSE -v = 0 -END SELECT - -COLOR v -LOCATE e, S -PRINT "." - -END SUB - -SUB ganador - -COLOR 4 -CentrarTexto "!GANASTE!", 12 -PLAY "o4l10 dcdedefefgp10g o5 c5 o4" -SLEEP 3 - -CLS -COLOR 10 -CentrarTexto "Pensaste alguna vez que podrias ganar el torneo NDC?", 3 -SLEEP 3 -BEEP -CentrarTexto "Seguro que si... O tal vez no!", 4 -SLEEP 3 -BEEP -CentrarTexto "Pero aqui est s, disfrutando de la victoria con tus amigos,", 5 -SLEEP 3 -BEEP -CentrarTexto "de la gloria, y de los $ 100.000 dolares ganados...", 6 -SLEEP 3 -BEEP -CentrarTexto "No es hermoso? No es hermoso que de aqui en mas seas visto", 7 -SLEEP 3 -BEEP -CentrarTexto "como un heroe en el planeta? No es hermoso haber ganado", 8 -SLEEP 3 -BEEP -CentrarTexto "al comandante de la nave mas temida y nunca derrotada en los", 9 -SLEEP 3 -BEEP -CentrarTexto "ultimos 20 a¤os? Bueno... Aqui est s, lo has hecho...", 10 -SLEEP 5 - -CLS -CentrarTexto "Pero que hay con la libertad de las personas?", 3 -SLEEP 3 -BEEP -CentrarTexto "Ahora todos son libres!! El comandante Garri nunca se ", 4 -SLEEP 3 -BEEP -CentrarTexto "hubiese imaginado que alguna persona en el mundo", 5 -SLEEP 3 -BEEP -CentrarTexto "podria haberlo derrotado, pero la realidad es totalmente otra...", 6 -SLEEP 3 -BEEP -CentrarTexto "El est  muerto, y sin opresor hay libertad... La libertad y democracia", 7 -SLEEP 3 -BEEP -CentrarTexto "manda ahora... Pero necesitamos de alguien que nos gobierne!", 8 -SLEEP 3 -BEEP -CentrarTexto "(es lo que todos piden)", 9 -SLEEP 3 -BEEP -CentrarTexto "La gente necesita a alguien con grandes valores, honor y respeto", 10 -SLEEP 3 -BEEP -CentrarTexto "por la vida... Y ese alguien sos vos!", 11 -SLEEP 5 -BEEP -COLOR 4 -CLS -BEEP - -CLS -COLOR 4 -PRINT "TORNEO NDC" -PRINT -COLOR 15 -PRINT "Director del programa: Fernando Ramirez" -PRINT -PRINT "Director artistico: Fernando Ramirez" -PRINT -PRINT "Dise¤o del sistema: Fernando Ramirez" -PRINT -PRINT "Creador del universo: Fernando Ramirez" -PRINT -PRINT "Idea Original: Fernando Ramirez" -PRINT -PRINT "Director de la iglesia catolica: Fernando Ramirez" -PRINT -PRINT "Maquillador: Fernando Ramirez" -PRINT -PRINT "Musica y sonido: Fernando Ramirez" -PRINT -PRINT "Todo: Fernando Ramirez" -PRINT -PRINT "www.fgrqbasic.co.nr - Fernando Ramirez" -PRINT -PRINT "Gracias por jugar mi Juego!... Fernando Ramirez" - 'Canci¢n - PLAY "MNT200L4O1BL8EBL4>CL8CL4C+L8C+L4CL8CL4CL8CL4C+L8C+L4CL8C>EL16F+F+L8F+L4F+.L8EL16GGL8GL4G.L8EL16F+F+L8F+L4F+.L8EL16G" - PLAY "GL8GL4G.L8EL16F+F+L8F+L4F+.L8EL16GGL8GL4G." - PLAY "L8DL2DL64O2GL8BL64F+L8AL32G.L1B.L8E" - PLAY "L16F+F+L8F+L4F+.L8>EEEF+F+F+EEEF+F+F+EEEF+F+E>D+L64DL2DL64CL8CL4C+L8C+L4CL8CL4CL8CL4C+L8C+L4CL8C>EL64EL4GL8>D+L64D.L8EC+L2C+L64F+.P16L64F+L8EL64EL4GL8>D+L64D.L8D+EL2EL64C+.P16L64C+L8EL64EL4GL8>D+L64D.L8EC+L2C+L64F+.P16L64F+L8EL64E" - PLAY "L4GL8>D+L64D.L8D+EL2EL64C+.P16L64C+L64EL64E" - PLAY "L64EL64D+L8F+.L16EL64D+L4F+L64EL8GL64EL4GL64EL8GL64D+L8F+.L16EL64D+L4F+L64E" - PLAY "L64EL64EL64D+L8F+.L16EL64D+L4F+L64EL8GL64EL4GL64EL8GL64D+L8F+.L16EL64D+L4F+" - PLAY "L64C+EGL8BL64C+EGL8BP8L2O1BL8BL64O3C+EGL8BL64C+EGL8BP8" - PLAY "L4O1B.BL64O3C+EGL16BL8BL16BL8BL64C+EGL8BL4O1BL8EBL4>C" - PLAY "L8CL4C+L8C+L4CL8C>EL16F+F+L8F+L4F+.L8EEEEL16G" - PLAY "GL8GL4G.L8F+F+F+EL16F+F+L8F+L4F+.L8EEEEL16GGL8GL4G.L8F+" - PLAY "F+F+EL16F+F+L8F+L4F+.L8EEEEL16GGL8GL4G.L8F+F+E>D+L64DL2DL64GL8BL64F+L8AL32G.L1B.P16L8O2EL4GL8>D+L4DL8F+L4FL8DL8A+L4AL8FAL4AL8D+DDP8P4L64O1EB>GB>C+" - PLAY "L2F+." -SLEEP 1 -CLS -COLOR 4 -CentrarTexto "Gracias por jugar!", 12 -SLEEP 5 -END SUB - -SUB historia -CLS -COLOR 9 -CentrarTexto "Saltar intro? (S/N)", 12 -DO -SELECT CASE INKEY$ -CASE "s" -GOTO jaja -CASE "n" -GOTO lol -END SELECT -LOOP - - -lol: -COLOR 10 -CentrarTexto "El planeta tierra define a sus mandatarios por medio", 5 -CentrarTexto "del torneo NDC (Naves De Combate), en el cual participan", 6 -CentrarTexto "16 aspirantes a gobernar el planeta, y de los cuales morir n 15 de ellos...", 7 -CentrarTexto "El comandante Garri, un Ingles sin una gota de moral, est ", 8 -CentrarTexto "en el poder desde ya hace 20 a¤os, utilizando como herramientas para", 9 -CentrarTexto "que su gobierno no decaiga, la tortura y la muerte...", 10 -CentrarTexto "Su nave es la mejor de todas, y nadie ha podido ganarle todavia, ya que", 11 -CentrarTexto "esta es invisible al ojo humano...", 12 -CentrarTexto "Amas las NDC, y piensas morir sobre alguna de ellas, no te interesa", 16 -CentrarTexto "el poder, pero si te interesa el campeonato, ya que es una gran oportunidad", 17 -CentrarTexto "para mostrar tus habilidades... y una gran oportunidad para deshacerte", 18 -CentrarTexto "de ese bastardo inutil... Tienes el deber de llegar a lo mas alto posible", 19 -CentrarTexto "para ayudar a tu familia, y al resto del mundo...", 20 -CentrarTexto "!Mucha Suerte!", 21 - -'Viaje a las estrellas -PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd" -PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 c o2 b o3 c l2 ml o2 a1a4 p4 mn" -PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd" -PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 c o2 b o3 c l2 ml o2 a1a4 p4 mn" -PLAY "t136 mn o3 l8" -PLAY "p4 mn o2 l8 d4 e4.e o3c o2 bag l12 gab l8 a8. e16f+4d8. d" -PLAY "e4.e o3 c o2 bag o3 d8.o2 a16 ml a4a4 mn d4 e4.e O3 c o2 bag " -PLAY "l12 gaba8. e16 f+4 o3 d8. d16 l16 g8. fe-8. d c8. o2 b-a8. g" -PLAY "o3 d2" -PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd" -PLAY "mn l6 c o2 ba ml l2 o3 gdd mn l6 co2 b o3c l2 ml o2a1a4 p4 mn" -PLAY "t236 l6 o2 ddd l2 ml g o3 dd mn l6 c o2 ba l2 o3 ml gdd" -PLAY "mn l6 c o2ba ml l2 o3gdd mn l6 co2bo3c l2 ml o2a1a4 p4 mn" -PLAY "l6 o3 mn ddd ml l1 gggg4 p4 p4 mn l12 dddg2" - -jaja: -END SUB - -SUB instrucciones -CLS -COLOR 28 -CentrarTexto "Teclas", 3 -COLOR 9, 0 -CentrarTexto "Izquierda: a", 5 -CentrarTexto "Derecha: s", 6 -CentrarTexto "Disparos: k", 7 - -COLOR 10, 0 -CentrarTexto "TENER SIEMPRE DESACTIVADO BLOQ MAYUS (CAPS)", 22 -COLOR 30 -CentrarTexto "(Presion  cualquier tecla para continuar)", 23 -DO WHILE INKEY$ = "" -LOOP -END SUB - -SUB menu -CLS -FOR l = 1 TO 100 -e = INT(RND * 23) + 1 -S = INT(RND * 80) + 1 -xc = INT(RND * 5) + 1 -SELECT CASE xc -CASE 1 -v = 15 -CASE 2 -v = 9 -CASE ELSE -v = 0 -END SELECT -COLOR v -LOCATE e, S -PRINT "." -NEXT l - -COLOR 10 -SLEEP 1 -COLOR 30 -CentrarTexto "TORNEO NDC", 3 -PLAY "d" -SLEEP 1 -COLOR 10 -CentrarTexto "(J)ugar", 9 -PLAY "d" -SLEEP 1 -CentrarTexto "(D)ificultad", 10 -PLAY "d" -SLEEP 1 -CentrarTexto "(I)nstrucciones", 11 -PLAY "d" -SLEEP 1 -CentrarTexto "(S)alir", 12 -PLAY "d" -SLEEP 1 -COLOR 4 -CentrarTexto "FGR SOFTWARE 2006", 23 -PLAY "MfT250L4O5FL8EDEL4EL8DCDEL32AL2G" -END SUB - diff --git a/programs/samples/pete/upperlowerconversion.bas b/programs/samples/pete/upperlowerconversion.bas deleted file mode 100644 index fd6e926e4..000000000 --- a/programs/samples/pete/upperlowerconversion.bas +++ /dev/null @@ -1,44 +0,0 @@ -CLS -'All of my Declarations -DIM selection AS INTEGER -DIM upper AS STRING -DIM LCASE AS STRING -DIM lower AS STRING -DIM UCASE AS STRING -'End of Declarations -start: - -PRINT "Uppercase ----> Lowercase & Lowercase ----> Uppercase Conversion" -PRINT -PRINT "1) Uppercase ----> Lowercase" -PRINT -PRINT "2) Lowercase ----> Uppercase Conversion" -PRINT -INPUT "Enter your choice"; selection - -SELECT CASE selection - - CASE 1 - CLS - PRINT "Uppercase ----> Lowercase Conversion" - PRINT - INPUT "Enter Uppercase character"; upper - PRINT - LCASE = LCASE$(upper) - PRINT "The character in Lowercase is:"; LCASE - - CASE 2 - CLS - PRINT "Lowercase ----> Uppercase Conversion" - PRINT - INPUT "Enter Lowercase character"; lower - PRINT - UCASE = UCASE$(lower) - PRINT "The character in Uppercase is:"; UCASE - -CASE ELSE - -PRINT "Invalid Selection" -GOTO start - -END SELECT diff --git a/programs/samples/pete/vektor.bas b/programs/samples/pete/vektor.bas deleted file mode 100644 index 5ebd57aa7..000000000 --- a/programs/samples/pete/vektor.bas +++ /dev/null @@ -1,365 +0,0 @@ -DECLARE SUB roteron (vinkel!) -DECLARE SUB roterhv (vinkel!) -DECLARE SUB angpunkt (nr%, x%, y%, z%) -DECLARE SUB tegnpunkt (nr%) -TYPE vektor -x AS SINGLE -y AS SINGLE -z AS SINGLE -END TYPE - -TYPE poin -x AS INTEGER -y AS INTEGER -z AS INTEGER -END TYPE - - -PRINT "Welcome to my second go at displaying" -PRINT "points in a threedimentional space." -PRINT -PRINT "This program uses vectorcalculations" -PRINT "to calculate where a given point in" -PRINT "a virtual space should be placed on the" -PRINT "screen. The math behind the program" -PRINT "could be disciphered by someone with a" -PRINT "lot of experience with math, and if you" -PRINT "are one, please feel free to do so and" -PRINT "use it in a program of your own." -PRINT -PRINT "I can't copyright math, after all." -PRINT -PRINT "But do give me credits... :)" -PRINT -PRINT "Press any key to see instructions" -WHILE INKEY$ = "": WEND -CLS -PRINT "How to navigate in the virtual space:" -PRINT -PRINT " w These control your direction" -PRINT "a s d of view." -PRINT -PRINT "u i o These are used to move the" -PRINT "j k l point of view in the space." -PRINT -PRINT "q This is the most useful key" -PRINT " in the program. It makes it" -PRINT " go away." -PRINT -PRINT "Press any key to enter the chamber of horrors!" -WHILE INKEY$ = "": WEND - - -SCREEN 7, 0, 1, 0 - -pnkt% = 49 -DIM SHARED punkt(1 TO pnkt%) AS poin -DIM SHARED perspunkt AS vektor -DIM SHARED retning AS vektor -DIM SHARED nedad AS vektor -DIM SHARED vinkel - -perspunkt.x = 50 -perspunkt.y = 50 -perspunkt.z = 3 - -vinkel = 3.8 -retning.x = SIN(vinkel) -retning.y = COS(vinkel) -retning.z = 0 - -angpunkt 1, 10, 5, 1 -angpunkt 2, 10, 5, 2 -angpunkt 3, 10, 5, 3 -angpunkt 4, 10, 5, 4 -angpunkt 5, 10, 5, 5 -angpunkt 6, 10, 4, 1 -angpunkt 7, 10, 4, 2 -angpunkt 8, 10, 4, 3 -angpunkt 9, 10, 4, 4 -angpunkt 10, 10, 4, 5 -angpunkt 11, 10, 3, 1 -angpunkt 12, 10, 3, 2 -angpunkt 13, 10, 3, 3 -angpunkt 14, 10, 3, 4 -angpunkt 15, 10, 3, 5 -angpunkt 16, 10, 2, 1 -angpunkt 17, 10, 2, 2 -angpunkt 18, 10, 2, 3 -angpunkt 19, 10, 2, 4 -angpunkt 20, 10, 2, 5 -angpunkt 21, 10, 1, 1 -angpunkt 22, 10, 1, 2 -angpunkt 23, 10, 1, 3 -angpunkt 24, 10, 1, 4 -angpunkt 25, 10, 1, 5 -angpunkt 26, 10, 0, 1 -angpunkt 27, 10, 0, 2 -angpunkt 28, 10, 0, 3 -angpunkt 29, 10, 0, 4 -angpunkt 30, 10, 0, 5 -angpunkt 31, 10, 1, 6 -angpunkt 32, 10, 2, 6 -angpunkt 33, 10, 3, 6 -angpunkt 34, 10, 4, 6 -angpunkt 35, 10, 5, 6 -angpunkt 36, 10, -1, 1 -angpunkt 37, 10, -1, 2 -angpunkt 38, 10, -1, 3 -angpunkt 39, 10, -1, 4 -angpunkt 40, 10, -1, 5 -angpunkt 41, 10, -1, 6 -angpunkt 42, 10, 0, 7 -angpunkt 43, 10, 1, 7 -angpunkt 44, 10, 2, 7 -angpunkt 45, 10, 3, 7 -angpunkt 46, 10, 4, 7 -angpunkt 47, 10, 5, 7 -angpunkt 48, 10, -1, 7 -angpunkt 49, 10, 0, 6 - - - -nedad.x = 0 -nedad.y = 0 -nedad.z = -1 - - - -DO - -SELECT CASE INKEY$ - -CASE "a" -roterhv 3.141593 / 90 - -CASE "d" -roterhv -3.141593 / 90 - -CASE "w" -roteron -3.141593 / 90 - -CASE "s" -roteron 3.141593 / 90 - -CASE "i" -perspunkt.x = perspunkt.x + retning.x -perspunkt.y = perspunkt.y + retning.y -perspunkt.z = perspunkt.z + retning.z - -CASE "k" -perspunkt.x = perspunkt.x - retning.x -perspunkt.y = perspunkt.y - retning.y -perspunkt.z = perspunkt.z - retning.z - -CASE "l" -r1 = retning.x: r2 = retning.y: r3 = retning.z -n1 = nedad.x: n2 = nedad.y: n3 = nedad.z -x1 = n2 * r3 - n3 * r2 -x2 = n3 * r1 - n1 * r3 -x3 = n1 * r2 - n2 * r1 -l = SQR(x1 ^ 2 + x2 ^ 2 + x3 ^ 2) -x1 = x1 / l -x2 = x2 / l -x3 = x3 / l -perspunkt.x = perspunkt.x - x1 -perspunkt.y = perspunkt.y - x2 -perspunkt.z = perspunkt.z - x3 - -CASE "j" -r1 = retning.x: r2 = retning.y: r3 = retning.z -n1 = nedad.x: n2 = nedad.y: n3 = nedad.z -x1 = n2 * r3 - n3 * r2 -x2 = n3 * r1 - n1 * r3 -x3 = n1 * r2 - n2 * r1 -l = SQR(x1 ^ 2 + x2 ^ 2 + x3 ^ 2) -x1 = x1 / l -x2 = x2 / l -x3 = x3 / l -perspunkt.x = perspunkt.x + x1 -perspunkt.y = perspunkt.y + x2 -perspunkt.z = perspunkt.z + x3 - -CASE "u" -perspunkt.x = perspunkt.x - nedad.x -perspunkt.y = perspunkt.y - nedad.y -perspunkt.z = perspunkt.z - nedad.z - -CASE "o" -perspunkt.x = perspunkt.x + nedad.x -perspunkt.y = perspunkt.y + nedad.y -perspunkt.z = perspunkt.z + nedad.z - - -CASE "q" -GOTO endscreen -CASE ELSE -END SELECT - -FOR i% = 1 TO pnkt% STEP 1 -tegnpunkt (i%) -NEXT -PCOPY 1, 0 - - -CLS -LOOP - -endscreen: -CLS -SCREEN 9 -PRINT "That was my latest program." -PRINT "Programmed 10-14-05 and 10-15-05" -PRINT "Please do not use any of the program code without giving me credit" -PRINT "That's a ¯Thanks to Firngrod for ...® in your programs... :)" -PRINT "I hope you enjoyed it." -PRINT -PRINT "Kindly yours:" -PRINT "Firngrod" -PRINT "Firngrod@hotmail.com" -PRINT -PRINT -PRINT "Press any key to quit." -WHILE INKEY$ = "": WEND - -SUB angpunkt (nr%, x%, y%, z%) -punkt(nr%).x = x% -punkt(nr%).y = y% -punkt(nr%).z = z% - -END SUB - -SUB roterhv (vinkel) - -r1 = retning.x -r2 = retning.y -r3 = retning.z - -n1 = nedad.x -n2 = nedad.y -n3 = nedad.z - -x1 = n2 * r3 - n3 * r2 -x2 = n3 * r1 - n1 * r3 -x3 = n1 * r2 - n2 * r1 -l = SQR(x1 ^ 2 + x2 ^ 2 + x3 ^ 2) -x1 = x1 / l -x2 = x2 / l -x3 = x3 / l - - -Rx1 = SIN(vinkel) * x1 -Rx2 = SIN(vinkel) * x2 -Rx3 = SIN(vinkel) * x3 - -Ry1 = COS(vinkel) * r1 -Ry2 = COS(vinkel) * r2 -Ry3 = COS(vinkel) * r3 - -r1 = Rx1 + Ry1 -r2 = Rx2 + Ry2 -r3 = Rx3 + Ry3 - -retning.x = r1 -retning.y = r2 -retning.z = r3 - -END SUB - -SUB roteron (vinkel) - -r1 = retning.x -r2 = retning.y -r3 = retning.z - -n1 = nedad.x -n2 = nedad.y -n3 = nedad.z - -re1 = COS(vinkel) * r1 + SIN(vinkel) * n1 -re2 = COS(vinkel) * r2 + SIN(vinkel) * n2 -re3 = COS(vinkel) * r3 + SIN(vinkel) * n3 - -ne1 = -SIN(vinkel) * r1 + COS(vinkel) * n1 -ne2 = -SIN(vinkel) * r2 + COS(vinkel) * n2 -ne3 = -SIN(vinkel) * r3 + COS(vinkel) * n3 - -retning.x = re1 -retning.y = re2 -retning.z = re3 - -nedad.x = ne1 -nedad.y = ne2 -nedad.z = ne3 - -END SUB - -SUB tegnpunkt (nr%) - -'' The assigning of values - -p1 = punkt(nr%).x -p2 = punkt(nr%).y -p3 = punkt(nr%).z - -m1 = perspunkt.x -m2 = perspunkt.y -m3 = perspunkt.z - -r1 = retning.x -r2 = retning.y -r3 = retning.z - -n1 = nedad.x -n2 = nedad.y -n3 = nedad.z - - -'' The calculation of values - -' Vektor from point of view (POV) to point i question -v1 = p1 - m1 -v2 = p2 - m2 -v3 = p3 - m3 - -' Projection of this vektor on the vektor that represents the direction of view(the DOV) -k = (v1 * r1 + v2 * r2 + v3 * r3) / (r1 ^ 2 + r2 ^ 2 + r3 ^ 2) -IF k < 0 THEN GOTO nopoint -d1 = k * r1 -d2 = k * r2 -d3 = k * r3 -' The length of this projection-vektor -z = SQR(d1 ^ 2 + d2 ^ 2 + d3 ^ 2) - -' The projection of the point on the plane that goes through the POV and is ortogonal with DOV -t = (r1 * m1 + r2 * m2 + r3 * m3 - r1 * p1 - r2 * p2 - r3 * p3) / (r1 ^ 2 + r2 ^ 2 + r3 ^ 2) -s1 = p1 + t * r1 -s2 = p2 + t * r2 -s3 = p3 + t * r3 - -' The making of the vektor from POV to (s1,s2,s3) -w1 = s1 - m1 -w2 = s2 - m2 -w3 = s3 - m3 - -' The splitting of the W vektor into vektors that represent, in a way, the placing on the dot on the screen -coss = (n1 * w1 + n2 * w2 + n3 * w3) / (SQR((n1 ^ 2 + n2 ^ 2 + n3 ^ 2) * (w1 ^ 2 + w2 ^ 2 + w3 ^ 2))) -h1 = r2 * n3 - r3 * n2 -h2 = r3 * n1 - r1 * n3 -h3 = r1 * n2 - r2 * n1 -sinn = (h1 * w1 + h2 * w2 + h3 * w3) / (SQR((h1 ^ 2 + h2 ^ 2 + h3 ^ 2) * (w1 ^ 2 + w2 ^ 2 + w3 ^ 2))) - -x = sinn * SQR(w1 ^ 2 + w2 ^ 2 + w3 ^ 2) -y = coss * SQR(w1 ^ 2 + w2 ^ 2 + w3 ^ 2) - -Forsfakt! = -LOG(z / 32000) / LOG(2) - -x = x * 2 ^ Forsfakt! / 100 -y = y * 2 ^ Forsfakt! / 100 - -x = x + 320 / 2 -y = y + 200 / 2 - -PSET (x, y), 15 -nopoint: -END SUB \ No newline at end of file diff --git a/programs/samples/pete/vsphere.bas b/programs/samples/pete/vsphere.bas deleted file mode 100644 index 9d75a0848..000000000 --- a/programs/samples/pete/vsphere.bas +++ /dev/null @@ -1,14 +0,0 @@ -'This is a program that calculates the volume of a sphere. - -DIM Radius AS DOUBLE -DIM Pi AS DOUBLE -DIM Volume AS DOUBLE - -CLS -INPUT "What is the radius of the sphere (ft.) "; Radius -PRINT -Pi = 4 * ATN(1) -Volume = Pi * Radius * Radius * Radius / 3 -PRINT "The volume of the sphere= "; Volume; " cubic feet" -END - diff --git a/programs/samples/pete/wetspot/level1.p13 b/programs/samples/pete/wetspot/level1.p13 deleted file mode 100644 index c3dfb6aa9..000000000 Binary files a/programs/samples/pete/wetspot/level1.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level10.p13 b/programs/samples/pete/wetspot/level10.p13 deleted file mode 100644 index b9478f2df..000000000 Binary files a/programs/samples/pete/wetspot/level10.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level11.p13 b/programs/samples/pete/wetspot/level11.p13 deleted file mode 100644 index f46810d06..000000000 Binary files a/programs/samples/pete/wetspot/level11.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level12.p13 b/programs/samples/pete/wetspot/level12.p13 deleted file mode 100644 index 848c0daa5..000000000 Binary files a/programs/samples/pete/wetspot/level12.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level13.p13 b/programs/samples/pete/wetspot/level13.p13 deleted file mode 100644 index c75858d65..000000000 Binary files a/programs/samples/pete/wetspot/level13.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level14.p13 b/programs/samples/pete/wetspot/level14.p13 deleted file mode 100644 index b9644961d..000000000 Binary files a/programs/samples/pete/wetspot/level14.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level15.p13 b/programs/samples/pete/wetspot/level15.p13 deleted file mode 100644 index 1d268441c..000000000 Binary files a/programs/samples/pete/wetspot/level15.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level16.p13 b/programs/samples/pete/wetspot/level16.p13 deleted file mode 100644 index 6cf4613cc..000000000 Binary files a/programs/samples/pete/wetspot/level16.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level17.p13 b/programs/samples/pete/wetspot/level17.p13 deleted file mode 100644 index acd600c4e..000000000 Binary files a/programs/samples/pete/wetspot/level17.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level18.p13 b/programs/samples/pete/wetspot/level18.p13 deleted file mode 100644 index d5c6b78e6..000000000 Binary files a/programs/samples/pete/wetspot/level18.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level19.p13 b/programs/samples/pete/wetspot/level19.p13 deleted file mode 100644 index 52180e644..000000000 Binary files a/programs/samples/pete/wetspot/level19.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level2.p13 b/programs/samples/pete/wetspot/level2.p13 deleted file mode 100644 index 39f9ded99..000000000 Binary files a/programs/samples/pete/wetspot/level2.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level20.p13 b/programs/samples/pete/wetspot/level20.p13 deleted file mode 100644 index 5490ce9a9..000000000 Binary files a/programs/samples/pete/wetspot/level20.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level21.p13 b/programs/samples/pete/wetspot/level21.p13 deleted file mode 100644 index c6d37d50d..000000000 Binary files a/programs/samples/pete/wetspot/level21.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level3.p13 b/programs/samples/pete/wetspot/level3.p13 deleted file mode 100644 index 332ddcb37..000000000 Binary files a/programs/samples/pete/wetspot/level3.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level4.p13 b/programs/samples/pete/wetspot/level4.p13 deleted file mode 100644 index 8aa16a91f..000000000 Binary files a/programs/samples/pete/wetspot/level4.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level5.p13 b/programs/samples/pete/wetspot/level5.p13 deleted file mode 100644 index 97f719829..000000000 Binary files a/programs/samples/pete/wetspot/level5.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level6.p13 b/programs/samples/pete/wetspot/level6.p13 deleted file mode 100644 index 28c975e88..000000000 Binary files a/programs/samples/pete/wetspot/level6.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level7.p13 b/programs/samples/pete/wetspot/level7.p13 deleted file mode 100644 index e703d2685..000000000 Binary files a/programs/samples/pete/wetspot/level7.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level8.p13 b/programs/samples/pete/wetspot/level8.p13 deleted file mode 100644 index 48139a1ba..000000000 Binary files a/programs/samples/pete/wetspot/level8.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/level9.p13 b/programs/samples/pete/wetspot/level9.p13 deleted file mode 100644 index 3c8beebf8..000000000 Binary files a/programs/samples/pete/wetspot/level9.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/title.p13 b/programs/samples/pete/wetspot/title.p13 deleted file mode 100644 index 28e9eff1b..000000000 Binary files a/programs/samples/pete/wetspot/title.p13 and /dev/null differ diff --git a/programs/samples/pete/wetspot/wetspot.bas b/programs/samples/pete/wetspot/wetspot.bas deleted file mode 100644 index 92be70d9f..000000000 --- a/programs/samples/pete/wetspot/wetspot.bas +++ /dev/null @@ -1,1712 +0,0 @@ -CHDIR ".\programs\samples\pete\wetspot" - -' WETSPOT v0.9 -' by Angelo Mottola (C) 1996 -' -' -------------------------------------------------------------------------- -' Well, this is my first game written in QBASIC. -' Sorry, but I haven't so much time to add comments to this source, but -' I think it's pretty simple to understand. -' The target of this game is to kill every monster in less than 90 seconds -' to gain next level. You control a little crab, and you must push bricks -' towards your enemies to kill them. If you push a brick and besides it -' there is another one, the block you pushed on will be destroyed, maybe -' dropping a bonus. Bonuses are various, and someone has a particular -' function (For example: Lightning will destroy every monster on the screen). -' Not all bricks can be moved. Each level has three special blocks, and when -' you put them together, you gain a special multiplier bonus (2x or 3x if -' you put together two or three blocks). -' Look out for monsters that follow you and good luck!! -' -' Controls are: -' -' Player One Player Two General -' Left: 4 Left: A Pause: P -' Right: 6 Right: D Quit: ESC -' Up: 8 Up: W -' Down: 5 Down: S -' Fire: \ Fire: ENTER -' -' Since this is not the final version, it contains only 21 levels. -' Final version will contain: -' -' - 100 levels (I hope so...) -' - 8 different enemies -' - Sound Blaster music and sound effects -' -' If you have any suggestion, mail me at -' -' ---------- -' eri@cdc.it -' ---------- -' -' -------------------------------------------------------------------------- -' -'$DYNAMIC -DEFINT A-Z -DECLARE SUB Intro () -DECLARE SUB MainMenu () -DECLARE SUB GetSprites () -DECLARE SUB PlayGame () -DECLARE SUB OutText (x, y, t$) -DECLARE SUB PrintStatBar () -DECLARE SUB LoadLevel () -DECLARE SUB DrawScreen () -DECLARE SUB Center (y, t$) -DECLARE SUB Message (t$) -DECLARE SUB CheckBlocks () -DECLARE SUB CheckObjects () -DECLARE SUB MoveEnemies () -DECLARE SUB KillPlayer (num) -DECLARE SUB PrintValue (xv, yv, va) -DECLARE SUB Delay (sbDT!) -DECLARE FUNCTION PlayAgain () - -TYPE BlockType - Status AS INTEGER - JustMoved AS INTEGER - MovedBy AS INTEGER - x AS INTEGER - y AS INTEGER -END TYPE -TYPE PlayerType - Score AS LONG - Lives AS INTEGER - NextLife AS LONG - BonusE AS INTEGER - BonusX AS INTEGER - BonusT AS INTEGER - BonusR AS INTEGER - BonusA AS INTEGER - Bonus AS INTEGER - x AS INTEGER - y AS INTEGER - dir AS INTEGER - NextDir AS INTEGER - Spd AS INTEGER - Cutter AS INTEGER - Action AS INTEGER - Frame AS INTEGER - FrameDir AS INTEGER - Special AS INTEGER - Trapped AS INTEGER -END TYPE -TYPE ObjectType - Typ AS INTEGER - Time AS INTEGER - x AS INTEGER - y AS INTEGER - Alone AS INTEGER -END TYPE -TYPE EnemyType - Typ AS INTEGER - dir AS INTEGER - x AS INTEGER - y AS INTEGER - Flag1 AS INTEGER - Flag2 AS INTEGER - Flag3 AS INTEGER - Changed AS INTEGER -END TYPE - -CONST NONE = 0, MOVE = 1, FIRE = 2, NORMAL = 0, POTION = 1, WEB = -1 -CONST INACTIVE = 0, FIXEDBLOCK = 1, NORMALBLOCK = 2, SPECIALBLOCK = 3 -CONST NMOVINGDOWN = 4, NMOVINGRIGHT = 5, NMOVINGUP = 6, NMOVINGLEFT = 7 -CONST SMOVINGDOWN = 8, SMOVINGRIGHT = 9, SMOVINGUP = 10, SMOVINGLEFT = 11 -CONST FALSE = 0, TRUE = NOT FALSE - -DIM SHARED Cel(18, 12), Player(2) AS PlayerType, Block(170) AS BlockType -DIM SHARED Object(60) AS ObjectType, Enemy(20) AS EnemyType -DIM SHARED Crab&(100 * 40), Expl&(100 * 3), Wall&(100), CutHole&(100) -DIM SHARED Hole&(100), Life&(20 * 2), Clock&(20), Flag&(20) -DIM SHARED Number&(10 * 10), Disapp&(4 * 100), Null&(100) -DIM SHARED Char&(20 * 46), FBlock&(100), NBlock&(100), SBlock&(100) -DIM SHARED Obj&(100 * 27), Ball&(100 * 6), Ghost&(100 * 4), Slug&(100 * 10) -DIM SHARED Robot&(100 * 16), Shadow&(100 * 12), Worm&(100 * 16) -DIM SHARED Putty&(100 * 20), Spider&(100 * 19), Box&(1000), Killed -DIM SHARED NumPlayer, Fx, Speed, Level, TimeLeft, s$(2), Pass, Value(10) -DIM SHARED NumBlock, NumEnemy, NumObject, AbortGame, xA(4), yA(4) -DIM SHARED Bonus(20), PotNum, Freezed, GameMode, Multi#, LastTime$ -DIM SHARED BonusAlone, Change, NumChange, NumWeb, MaxLevel - -xA(0) = 0: yA(0) = 0 -xA(1) = 0: yA(1) = 1 -xA(2) = 1: yA(2) = 0 -xA(3) = 0: yA(3) = -1 -xA(4) = -1: yA(4) = 0 -RESTORE -FOR i = 1 TO 4: READ xA(i), yA(i): NEXT i -FOR i = 1 TO 8: READ Value(i): NEXT i - - -'ON ERROR GOTO ErrorHandle - -SCREEN 13 -GetSprites -Intro -DO - MainMenu - PlayGame - IF NOT PlayAgain THEN EXIT DO -LOOP - -SCREEN 0: WIDTH 80 -PRINT "WetSpot v0.9" -PRINT "(C) by Angelo Mottola soft 1996" - PRINT : PRINT "Final release will include:" - PRINT " - 100 levels (I hope so...)" - PRINT " - 8 different enemies" - PRINT " - Sound Blaster Music and sound effects" - PRINT " - More and more fun !!" - PRINT : PRINT "Coming soon..." - PRINT : END - -ErrorHandle: -SCREEN 0: WIDTH 80: CLS -COLOR 15, 1: LOCATE 1, 1: PRINT SPACE$(80); -LOCATE 1, 1: PRINT "ERROR: "; -SELECT CASE ERR -CASE 53: PRINT "Game file not found !"; -CASE 61: PRINT "Disk full or error accessing disk."; -CASE 70: PRINT "Disk access denied !"; -CASE 71: PRINT "Error accessing disk !"; -CASE ELSE: PRINT "Abnormal program termination (error code:", ERR, ")."; -END SELECT -COLOR 7, 0: LOCATE 2, 1: PRINT "Coming back to system ..." -END - -DATA 0,1,1,0,0,-1,-1,0,100,150,200,250,200,350,300,400,20,20 - -REM $STATIC -SUB Center (y, t$) -x = (320 - (LEN(t$) * 7)) / 2 -OutText x, y, t$ -END SUB - -SUB CheckBlocks -FOR B = 1 TO 170 - IF Block(B).Status <> 0 THEN - SELECT CASE Block(B).Status - CASE IS > 3 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - SELECT CASE Block(B).Status - CASE NMOVINGDOWN - IF Cel(Block(B).x, Block(B).y + 1) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).y = Block(B).y + 1 - Cel(Block(B).x, Block(B).y) = NORMALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = NORMALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE SMOVINGDOWN - IF Cel(Block(B).x, Block(B).y + 1) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).y = Block(B).y + 1 - Cel(Block(B).x, Block(B).y) = SPECIALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = SPECIALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE NMOVINGRIGHT - IF Cel(Block(B).x + 1, Block(B).y) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).x = Block(B).x + 1 - Cel(Block(B).x, Block(B).y) = NORMALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = NORMALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE SMOVINGRIGHT - IF Cel(Block(B).x + 1, Block(B).y) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).x = Block(B).x + 1 - Cel(Block(B).x, Block(B).y) = SPECIALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = SPECIALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE NMOVINGUP - IF Cel(Block(B).x, Block(B).y - 1) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).y = Block(B).y - 1 - Cel(Block(B).x, Block(B).y) = NORMALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = NORMALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE SMOVINGUP - IF Cel(Block(B).x, Block(B).y - 1) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).y = Block(B).y - 1 - Cel(Block(B).x, Block(B).y) = SPECIALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = SPECIALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE NMOVINGLEFT - IF Cel(Block(B).x - 1, Block(B).y) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).x = Block(B).x - 1 - Cel(Block(B).x, Block(B).y) = NORMALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = NORMALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - CASE SMOVINGLEFT - IF Cel(Block(B).x - 1, Block(B).y) < 1 THEN - Cel(Block(B).x, Block(B).y) = 0: Block(B).x = Block(B).x - 1 - Cel(Block(B).x, Block(B).y) = SPECIALBLOCK - FOR nb = 1 TO 170 - IF Block(nb).x = Block(B).x AND Block(nb).y = Block(B).y AND nb <> B THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - Block(B).JustMoved = FALSE - ELSE - IF Block(B).JustMoved = FALSE THEN - Block(B).Status = SPECIALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - ELSE - FOR o = 1 TO 60 - IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (10 * Multi#): PrintStatBar - Object(o).Typ = -3: Object(o).Time = 1: Object(o).Alone = FALSE - Object(o).x = Block(B).x * 16: Object(o).y = -8 + (Block(B).y * 16) - Block(B).Status = NONE: Cel(Block(B).x, Block(B).y) = 0 - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Null&, PSET - RANDOMIZE TIMER - m = INT(RND(1) * 3) + 1 - IF m = 1 THEN - w = INT(RND(1) * 20) + 1 - IF Bonus(w) = 15 THEN Bonus(w) = 14 - Object(o + 1).Typ = Bonus(w): Object(o + 1).Time = 50 - Object(o + 1).x = Block(B).x * 16: Object(o + 1).y = -8 + (Block(B).y * 16) - END IF - END IF - END IF - END SELECT - xb = Block(B).x * 16: yb = -8 + (Block(B).y * 16) - FOR e = 1 TO 20 - IF Enemy(e).Typ <> 0 THEN - IF Enemy(e).x > xb - 16 AND Enemy(e).x < xb + 16 THEN - IF Enemy(e).y > yb - 16 AND Enemy(e).y < yb + 16 THEN - FOR o = 1 TO 60: IF Object(o).Typ = 0 AND Object(o + 1).Typ = 0 THEN EXIT FOR - NEXT o - Object(o).Typ = -3: Object(o).Time = 1 - Object(o).x = Enemy(e).x: Object(o).y = -8 + Enemy(e).y - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - IF Enemy(e).Typ = 3 AND Enemy(e).Flag3 <> 0 THEN PUT (Enemy(e).Flag1, -8 + Enemy(e).Flag2), Null&, PSET - Object(o + 1).Typ = (Value(Enemy(e).Typ) * Multi#): Object(o + 1).Time = 50 - Object(o + 1).x = Enemy(e).x: Object(o + 1).y = -8 + Enemy(e).y - NumEnemy = NumEnemy - 1 - Player(Block(B).MovedBy).Score = Player(Block(B).MovedBy).Score + (Value(Enemy(e).Typ) * Multi#) - Enemy(e).Typ = 0: PrintStatBar - END IF - END IF - END IF - NEXT e - FOR u = 1 TO NumPlayer - IF Player(u).x > xb - 16 AND Player(u).x < xb + 16 THEN - IF -8 + Player(u).y > yb - 16 AND -8 + Player(u).y < yb + 16 THEN - KillPlayer u - Player(u).Lives = Player(u).Lives - 1 - Killed = TRUE: PrintStatBar - END IF - END IF - NEXT u - CASE FIXEDBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), FBlock&, PSET - CASE NORMALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), NBlock&, PSET - CASE SPECIALBLOCK - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), SBlock&, PSET - IF Multi# = 1 THEN - IF Cel(Block(B).x + 1, Block(B).y) = SPECIALBLOCK THEN Multi# = 2 - IF Cel(Block(B).x - 1, Block(B).y) = SPECIALBLOCK THEN Multi# = 2 - IF Cel(Block(B).x, Block(B).y + 1) = SPECIALBLOCK THEN Multi# = 2 - IF Cel(Block(B).x, Block(B).y - 1) = SPECIALBLOCK THEN Multi# = 2 - END IF - IF Multi# = 2 THEN - IF (Cel(Block(B).x, Block(B).y + 1) = SPECIALBLOCK) AND (Cel(Block(B).x, Block(B).y - 1) = SPECIALBLOCK) THEN Multi# = 3 - IF (Cel(Block(B).x + 1, Block(B).y) = SPECIALBLOCK) AND (Cel(Block(B).x - 1, Block(B).y) = SPECIALBLOCK) THEN Multi# = 3 - END IF - CASE WEB - PUT (Block(B).x * 16, -8 + (Block(B).y * 16)), Spider&(1600), PSET - END SELECT - END IF -NEXT B - -END SUB - -SUB CheckObjects -FOR o = 1 TO 60 - IF Object(o).Typ <> 0 THEN - Object(o).Time = Object(o).Time - 1 - SELECT CASE Object(o).Typ - CASE -7 - PUT (Object(o).x, Object(o).y), Disapp&(0), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = -6: Object(o).Time = 3 - CASE -6 - PUT (Object(o).x, Object(o).y), Disapp&(100), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = -5: Object(o).Time = 3 - CASE -5 - PUT (Object(o).x, Object(o).y), Disapp&(200), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = -4: Object(o).Time = 3 - CASE -4 - PUT (Object(o).x, Object(o).y), Disapp&(300), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = 0: PUT (Object(o).x, Object(o).y), Null&, PSET - CASE -3 - PUT (Object(o).x, Object(o).y), Expl&(0), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = -2: Object(o).Time = 1 - CASE -2 - PUT (Object(o).x, Object(o).y), Expl&(100), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = -1: Object(o).Time = 1 - CASE -1 - PUT (Object(o).x, Object(o).y), Expl&(200), PSET - IF Object(o).Time = 0 THEN Object(o).Typ = 0: PUT (Object(o).x, Object(o).y), Null&, PSET - CASE 1 TO 27 - PUT (Object(o).x, Object(o).y), Obj&((Object(o).Typ - 1) * 100), PSET - FOR p = 1 TO NumPlayer - IF Object(o).x > Player(p).x - 16 AND Object(o).x < Player(p).x + 16 THEN - IF Object(o).y > Player(p).y - 24 AND Object(o).y < Player(p).y + 8 THEN - SELECT CASE Object(o).Typ - CASE 1 TO 9 - IF Object(o).Alone = TRUE THEN Object(o).Alone = FALSE: BonusAlone = FALSE - Player(p).Score = Player(p).Score + ((Object(o).Typ * 100) * Multi#) - PrintStatBar - Object(o).Typ = (Object(o).Typ * 100) * Multi# - Object(o).Time = 50 - CASE 10 TO 12 - IF Object(o).Alone = TRUE THEN Object(o).Alone = FALSE: BonusAlone = FALSE - Player(p).Score = Player(p).Score + ((1000 + ((Object(o).Typ - 10) * 500)) * Multi#) - PrintStatBar - Object(o).Typ = ((1000 + ((Object(o).Typ - 10) * 500)) * Multi#): Object(o).Time = 50 - CASE 13 - Player(p).Score = Player(p).Score + (500 * Multi#) - PrintStatBar - Object(o).Typ = (500 * Multi#): Object(o).Time = 50 - Player(p).Cutter = TRUE - PUT ((304 * (p - 1)), 8), CutHole&, PSET - PUT ((304 * (p - 1)), 8), Obj&(1200), XOR - CASE 14 - RANDOMIZE TIMER - m = INT(RND(1) * 4) + 1 - SELECT CASE m - CASE 1 - Player(p).Score = Player(p).Score + (3000 * Multi#) - PrintStatBar - Object(o).Typ = (3000 * Multi#): Object(o).Time = 50 - CASE 2 - RANDOMIZE TIMER - g = INT(RND(1) * 5) + 1 - Change = g: NumChange = 0 - FOR r = 1 TO 20 - IF Enemy(r).Typ <> 0 THEN - Enemy(r).Changed = FALSE: NumChange = NumChange + 1 - END IF - NEXT r - Object(o).Typ = (50 * Multi#): Object(o).Time = 50 - Player(p).Score = Player(p).Score + (50 * Multi#): PrintStatBar - CASE 3 - Player(p).Spd = 1 - Object(o).Typ = (50 * Multi#): Object(o).Time = 50 - Player(p).Score = Player(p).Score + (50 * Multi#): PrintStatBar - CASE 4 - Player(p).Lives = Player(p).Lives + 1 - Object(o).Typ = (500 * Multi#): Object(o).Time = 50 - Player(p).Score = Player(p).Score + (500 * Multi#): PrintStatBar - END SELECT - CASE 15 - GameMode = POTION: NumEnemy = 1: Pass = -1 - FOR f = 1 TO 170: IF Block(f).Status <> 0 THEN Block(f).Status = FIXEDBLOCK: PUT (Block(f).x * 16, -8 + (Block(f).y * 16)), FBlock&, PSET - NEXT f - FOR f = 1 TO 20: Enemy(f).Typ = 0: NEXT f - FOR f = 1 TO 60: Object(f).Typ = 0: NEXT f - PotNum = 0 - FOR v = 1 TO 12: FOR vv = 1 TO 18 - IF Cel(vv, v) = 0 THEN - PUT (vv * 16, -8 + (v * 16)), Null&, PSET - RANDOMIZE TIMER * TimeLeft - g = INT(RND(1) * 4) + 1 - IF g = 1 AND PotNum < 50 THEN - PotNum = PotNum + 1 - Object(PotNum).Typ = 21: Object(PotNum).Time = -1 - Object(PotNum).x = vv * 16: Object(PotNum).y = -8 + (v * 16) - END IF - END IF - NEXT vv, v - TimeLeft = PotNum + (PotNum / 8) - Player(1).Special = 0: Player(2).Special = 0 - CASE 16 - Player(p).Score = Player(p).Score + (500 * Multi#) - PrintStatBar - Object(o).Typ = (500 * Multi#): Object(o).Time = 50 - TimeLeft = TimeLeft + 10 - CASE 17 - FOR w = 1 TO 20 - IF Enemy(w).Typ <> 0 THEN - Enemy(w).Typ = 0 - FOR j = 1 TO 60: IF Object(j).Typ = 0 THEN EXIT FOR - NEXT j - Object(j).Typ = -3: Object(j).Time = 3 - Object(j).x = Enemy(w).x: Object(j).y = -8 + Enemy(w).y - END IF - NEXT w - NumEnemy = 0 - Player(p).Score = Player(p).Score + (500 * Multi#) - Object(o).Typ = (500 * Multi#): Object(o).Time = 50 - CASE 18 - Freezed = 500 - Player(p).Score = Player(p).Score + (1000 * Multi#) - PrintStatBar - Object(o).Typ = (500 * Multi#): Object(o).Time = 50 - CASE 19 - Pass = 1: Message "YOU ENTERED!": Level = Level + INT(RND(1) * 5) - CASE 20 - Player(p).Lives = Player(p).Lives + 1 - Player(p).Score = Player(p).Score + (500 * Multi#) - PrintStatBar - Object(o).Typ = (500 * Multi#): Object(o).Time = 50 - CASE 21 - Player(p).Special = Player(p).Special + 1 - Object(o).Typ = 200: Object(o).Time = 50 - PotNum = PotNum - 1: IF PotNum = 0 THEN Pass = 1 - CASE 22 TO 26 - Player(p).Score = Player(p).Score + (300 * Multi#) - PrintStatBar - SELECT CASE Object(o).Typ - CASE 22 - IF Player(p).BonusE <> TRUE THEN Player(p).BonusE = TRUE: Player(p).Bonus = Player(p).Bonus + 1 - CASE 23 - IF Player(p).BonusX <> TRUE THEN Player(p).BonusX = TRUE: Player(p).Bonus = Player(p).Bonus + 1 - CASE 24 - IF Player(p).BonusT <> TRUE THEN Player(p).BonusT = TRUE: Player(p).Bonus = Player(p).Bonus + 1 - CASE 25 - IF Player(p).BonusR <> TRUE THEN Player(p).BonusR = TRUE: Player(p).Bonus = Player(p).Bonus + 1 - CASE 26 - IF Player(p).BonusA <> TRUE THEN Player(p).BonusA = TRUE: Player(p).Bonus = Player(p).Bonus + 1 - END SELECT - PUT ((p - 1) * 304, 64 + ((Object(o).Typ - 22) * 16)), Hole&, PSET - PUT ((p - 1) * 304, 64 + ((Object(o).Typ - 22) * 16)), Obj&((Object(o).Typ - 1) * 100), XOR - IF Player(p).Bonus = 5 THEN - Player(p).Bonus = 0 - Player(p).BonusE = FALSE - Player(p).BonusX = FALSE - Player(p).BonusT = FALSE - Player(p).BonusR = FALSE - Player(p).BonusA = FALSE - Player(p).Lives = Player(p).Lives + 1: PrintStatBar - FOR Z = 0 TO 11: PUT ((p - 1) * 304, 8 + (Z * 16)), Wall&, PSET: NEXT Z - END IF - Object(o).Typ = 300: Object(o).Time = 50 - CASE 27 - RANDOMIZE TIMER - ty = INT(RND(1) * 12) + 1 - FOR bo = 1 TO 15 - FOR sel = 1 TO 60 - IF Object(sel).Typ = 0 THEN - Object(sel).Typ = ty: Object(sel).Time = 500 - DO - RANDOMIZE TIMER - xo = INT(RND(1) * 18) + 1: yo = INT(RND(1) * 12) + 1 - IF Cel(xo, yo) = 0 THEN EXIT DO - LOOP - Object(sel).x = xo * 16: Object(sel).y = -8 + (yo * 16) - EXIT FOR - END IF - NEXT sel - NEXT bo - Object(o).Typ = 0: PUT (Object(o).x, Object(o).y), Null&, PSET - END SELECT - END IF - END IF - NEXT p - IF Object(o).Time = 0 THEN Object(o).Typ = -7: Object(o).Time = 3 - CASE IS > 30 - PrintValue Object(o).x, Object(o).y, Object(o).Typ - IF Object(o).Time = 0 THEN Object(o).Typ = 0: PUT (Object(o).x, Object(o).y), Null&, PSET - END SELECT - END IF -NEXT o -END SUB - -SUB Delay (sbDT!) -IF sbDT! = 0! THEN EXIT SUB -sbstart! = TIMER -DO WHILE TIMER <= (sbstart! + sbDT!): LOOP -END SUB - -SUB DrawScreen -FOR i = 1 TO 18: FOR ii = 1 TO 12 - SELECT CASE Cel(i, ii) - CASE WEB: PUT (i * 16, -8 + (ii * 16)), Spider&(1600), PSET - CASE FIXEDBLOCK: PUT (i * 16, -8 + (ii * 16)), FBlock&, PSET - CASE NORMALBLOCK: PUT (i * 16, -8 + (ii * 16)), NBlock&, PSET - CASE SPECIALBLOCK: PUT (i * 16, -8 + (ii * 16)), SBlock&, PSET - END SELECT -NEXT ii, i -END SUB - -SUB GetSprites -CLS : FOR i = 0 TO 255: PALETTE i, 0: NEXT i -DEF SEG = &HA000: BLOAD "wetspot.p13", 0 -FOR i = 0 TO 1: FOR ii = 0 TO 19 -GET (ii * 16, i * 16)-((ii * 16) + 15, (i * 16) + 15), Crab&((2000 * i) + (100 * ii)) -NEXT ii, i -FOR i = 0 TO 2: GET (i * 16, 32)-((i * 16) + 15, 47), Expl&(i * 100): NEXT i -FOR i = 0 TO 4: GET ((i * 16) + 48, 32)-((i * 16) + 63, 47), Obj&((i * 100) + 2100): NEXT i -GET (128, 32)-(143, 47), Wall&: GET (144, 32)-(159, 47), Hole& -GET (304, 32)-(319, 47), CutHole& -FOR i = 0 TO 1: GET (160 + (i * 8), 32)-(167 + (i * 8), 39), Life&(i * 20): NEXT i -FOR i = 0 TO 9: GET (177 + (i * 4), 32)-(180 + (i * 4), 35), Number&(i * 10): NEXT i -GET (160, 40)-(167, 47), Clock&: GET (168, 40)-(175, 47), Flag& -FOR i = 0 TO 3: GET (224 + (i * 16), 32)-(239 + (i * 16), 47), Disapp&(i * 100): NEXT i -GET (288, 32)-(303, 47), Obj&(2600) -FOR i = 0 TO 44: GET (i * 7, 48)-((i * 7) + 6, 55), Char&(i * 20): NEXT i -GET (0, 190)-(6, 197), Char&(900): GET (0, 180)-(15, 195), Null& -FOR i = 0 TO 19: GET (i * 16, 56)-((i * 16) + 15, 71), Obj&(i * 100): NEXT i -FOR i = 0 TO 5: GET (i * 16, 72)-((i * 16) + 15, 87), Ball&(i * 100): NEXT i -FOR i = 0 TO 3: GET (96 + (i * 16), 72)-(111 + (i * 16), 87), Ghost&(i * 100): NEXT i -FOR i = 0 TO 9: GET (160 + (i * 16), 72)-(175 + (i * 16), 87), Slug&(i * 100): NEXT i -FOR i = 0 TO 15: GET (i * 16, 88)-((i * 16) + 15, 103), Robot&(i * 100): NEXT i -FOR i = 0 TO 15: GET (i * 16, 104)-((i * 16) + 15, 119), Worm&(i * 100): NEXT i -FOR i = 0 TO 19: GET (i * 16, 120)-((i * 16) + 15, 135), Putty&(i * 100): NEXT i -FOR i = 0 TO 18: GET (i * 16, 136)-((i * 16) + 15, 151), Spider&(i * 100): NEXT i -FOR i = 0 TO 11: GET (i * 16, 152)-((i * 16) + 15, 167), Shadow&(i * 100): NEXT i -CLS : PALETTE -END SUB - -SUB Intro -' Sorry, but I haven't so much time to do an Intro for this game !!! -END SUB - -SUB KillPlayer (num) -'TIMER OFF -PUT (Player(num).x, -8 + Player(num).y), Crab&(((num - 1) * 2000) + 1900), PSET -Delay .08 -FOR q = 0 TO 2 - PUT (Player(num).x, -8 + Player(num).y), Expl&(q * 100), PSET - Delay .08 -NEXT q -PUT (Player(num).x, -8 + Player(num).y), Null&, PSET -END SUB - -SUB LoadLevel -IF Level > MaxLevel THEN - SCREEN 0: WIDTH 80 - PRINT "WetSpot v0.9" - PRINT "(C) by Angelo Mottola soft 1996" - PRINT : PRINT "Sorry, this demo version supports only" + STR$(MaxLevel) + " levels" - PRINT : PRINT "Final release will include:" - PRINT " - 100 levels (I hope so...)" - PRINT " - 8 different enemies" - PRINT " - Sound Blaster Music and sound effects" - PRINT " - More and more fun !!" - PRINT : PRINT "Coming soon..." - PRINT : END -END IF -CLS : FOR p = 0 TO 255: PALETTE p, 0: NEXT p -DEF SEG = &HA000: BLOAD "level" + LTRIM$(STR$(Level)) + ".p13", 0 -GET (0, 0)-(15, 15), FBlock&: GET (16, 0)-(31, 15), NBlock& -GET (32, 0)-(47, 15), SBlock&: GET (68, 0)-(83, 15), Obj&(2000) -FOR i = 1 TO 18: FOR ii = 1 TO 12: Cel(i, ii) = 0: NEXT ii, i -NumBlock = 0: NumEnemy = 0 -FOR i = 1 TO 170: Block(i).Status = INACTIVE: NEXT i -FOR i = 1 TO 20: Enemy(i).Typ = 0: NEXT i -FOR i = 1 TO 60: Object(i).Typ = 0: NEXT i - -FOR i = 1 TO 18: FOR ii = 1 TO 12 - SELECT CASE POINT(47 + i, ii - 1) - CASE 1 - Cel(i, ii) = FIXEDBLOCK: NumBlock = NumBlock + 1 - Block(NumBlock).Status = FIXEDBLOCK - Block(NumBlock).x = i: Block(NumBlock).y = ii - CASE 2 - Cel(i, ii) = NORMALBLOCK: NumBlock = NumBlock + 1 - Block(NumBlock).Status = NORMALBLOCK - Block(NumBlock).x = i: Block(NumBlock).y = ii - CASE 3 - Cel(i, ii) = SPECIALBLOCK: NumBlock = NumBlock + 1 - Block(NumBlock).Status = SPECIALBLOCK - Block(NumBlock).x = i: Block(NumBlock).y = ii - CASE 4 - Player(1).x = i * 16: Player(1).y = ii * 16 - CASE 5 - Player(2).x = i * 16: Player(2).y = ii * 16 - CASE 6, 7, 8, 9, 10, 11, 12, 13 - NumEnemy = NumEnemy + 1 - Enemy(NumEnemy).Typ = POINT(47 + i, ii - 1) - 5 - Enemy(NumEnemy).dir = 1: Enemy(NumEnemy).x = i * 16: Enemy(NumEnemy).y = ii * 16 - SELECT CASE POINT(47 + i, ii - 1) - CASE 6: Enemy(NumEnemy).Flag1 = 1: Enemy(NumEnemy).dir = 2 - CASE 7: Enemy(NumEnemy).Flag1 = 1: Enemy(NumEnemy).Flag2 = INT(RND(1) * NumPlayer) + 1 - CASE 8: Enemy(NumEnemy).Flag3 = 0 - CASE 9: Enemy(NumEnemy).Flag1 = 1: Enemy(NumEnemy).Flag2 = FALSE: Enemy(NumEnemy).Flag3 = 1 - CASE 10: Enemy(NumEnemy).Flag1 = 2: Enemy(NumEnemy).Flag2 = 1: Enemy(NumEnemy).Flag3 = 0 - CASE 11: Enemy(NumEnemy).Flag1 = 1 - CASE 12: Enemy(NumEnemy).Flag1 = 2 - CASE 13: Enemy(NumEnemy).Flag1 = 4 - END SELECT - CASE 14 - Cel(i, ii) = WEB: NumBlock = NumBlock + 1 - Block(NumBlock).Status = WEB - Block(NumBlock).x = i: Block(NumBlock).y = ii - END SELECT -NEXT ii, i -FOR i = 1 TO 20: Bonus(i) = POINT(47 + i, 12): NEXT i -CLS -PALETTE -END SUB - -SUB MainMenu -CLS -DEF SEG = &HA000: BLOAD "title.p13", 0 -PALETTE -Center 58, "BY ANGELO MOTTOLA SOFT 1996" -Center 82, "VERSION 0.9" -Center 103, "PRESS 1 FOR 1 PLAYER GAME" -Center 113, "PRESS 2 FOR 2 PLAYERS GAME" -Center 123, "PRESS ESC TO QUIT GAME!" -Center 145, "- FINAL VERSION COMING SOON !! -" -DO - k$ = INKEY$ - IF k$ = "1" THEN NumPlayer = 1: EXIT DO - IF k$ = "2" THEN NumPlayer = 2: EXIT DO - IF k$ = CHR$(27) THEN NumPlayer = 0: EXIT DO -LOOP - -IF NumPlayer = 0 THEN - SCREEN 0: WIDTH 80 - PRINT "WetSpot v0.9" - PRINT "(C) by Angelo Mottola soft 1996" - PRINT : PRINT "Final version coming soon!!" - PRINT : END -END IF - -CLS -END SUB - -SUB Message (t$) -FOR i = 192 TO 96 STEP -4 - GET (0, i)-(319, i + 7), Box& - Center i, t$ - FOR t = 0 TO 5000: NEXT t - PUT (0, i), Box&, PSET -NEXT i -GET (0, 96)-(319, 103), Box& -Center 96, t$ -q$ = INKEY$: WHILE (q$ <> CHR$(13) AND q$ <> "\"): q$ = INKEY$: WEND -PUT (0, 96), Box&, PSET -FOR i = 96 TO 8 STEP -4 - GET (0, i)-(319, i + 7), Box& - Center i, t$ - FOR t = 0 TO 5000: NEXT t - PUT (0, i), Box&, PSET -NEXT i -END SUB - -SUB MoveEnemies -FOR e = 1 TO 20 - IF Enemy(e).Typ <> 0 THEN - IF Change <> FALSE THEN - IF Enemy(e).Changed = FALSE THEN - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - Enemy(e).Changed = TRUE: Enemy(e).Typ = Change - NumChange = NumChange - 1 - SELECT CASE Change - CASE 1 - Enemy(e).Flag1 = 1 - IF Enemy(e).dir = 1 OR Enemy(e).dir = 2 THEN Enemy(e).Flag2 = 1 ELSE Enemy(e).Flag2 = -1 - CASE 2 - Enemy(e).Flag1 = 1: Enemy(e).Flag2 = INT(RND(1) * NumPlayer) + 1 - CASE 3 - Enemy(e).Flag3 = 0 - CASE 4 - Enemy(e).Flag1 = 1: Enemy(e).Flag2 = FALSE: Enemy(e).Flag3 = 1 - CASE 5 - Enemy(e).Flag1 = 2: Enemy(e).Flag2 = 1: Enemy(e).Flag3 = 0 - END SELECT - IF NumChange = 0 THEN Change = FALSE - END IF - END IF - END IF - SELECT CASE Enemy(e).Typ - CASE 1 - IF Freezed = FALSE THEN - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - Enemy(e).dir = 0 - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - Enemy(e).dir = d: Enemy(e).Flag1 = 1 - IF Enemy(e).dir = 1 OR Enemy(e).dir = 2 THEN Enemy(e).Flag2 = 1 ELSE Enemy(e).Flag2 = -1 - EXIT FOR - END IF - d = 0 - NEXT h - END IF - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - Enemy(e).x = Enemy(e).x + xA(Enemy(e).dir) - Enemy(e).y = Enemy(e).y + yA(Enemy(e).dir) - Enemy(e).Flag1 = Enemy(e).Flag1 + Enemy(e).Flag2 - IF Enemy(e).Flag1 = 0 THEN - Enemy(e).Flag1 = 8 - ELSEIF Enemy(e).Flag1 = 9 THEN - Enemy(e).Flag1 = 1 - END IF - END IF - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 2 - IF Enemy(e).dir = 1 OR Enemy(e).dir = 3 THEN h = 0 ELSE h = 1 - PUT (Enemy(e).x, -8 + Enemy(e).y), Worm&((h * 800) + ((Enemy(e).Flag1 - 1) * 100)), PSET - CASE 2 - IF Freezed = FALSE THEN - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - RANDOMIZE TIMER * TimeLeft - k = INT(RND(1) * 4) + 1 - IF k < 4 THEN - k = INT(RND(1) * 100) + 1 - IF k = 1 THEN Enemy(e).Flag2 = INT(RND(1) * NumPlayer) + 1 - IF Player(Enemy(e).Flag2).x < Enemy(e).x THEN d = 4 - IF Player(Enemy(e).Flag2).x > Enemy(e).x THEN d = 2 - IF (Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) <> 0) THEN - IF Player(Enemy(e).Flag2).y < Enemy(e).y THEN d = 3 - IF Player(Enemy(e).Flag2).y > Enemy(e).y THEN d = 1 - END IF - IF Player(Enemy(e).Flag2).x = Enemy(e).x THEN - IF Player(Enemy(e).Flag2).y < Enemy(e).y THEN d = 3 - IF Player(Enemy(e).Flag2).y > Enemy(e).y THEN d = 1 - END IF - ELSE - d = INT(RND(1) * 4) + 1 - END IF - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) <> 0 THEN - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) = 0 THEN - EXIT FOR - END IF - d = 0 - NEXT h - END IF - Enemy(e).dir = d - END IF - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - Enemy(e).x = Enemy(e).x + (xA(Enemy(e).dir) * 2) - Enemy(e).y = Enemy(e).y + (yA(Enemy(e).dir) * 2) - Enemy(e).Flag1 = Enemy(e).Flag1 + 1 - IF Enemy(e).Flag1 = 5 THEN Enemy(e).Flag1 = 1 - END IF - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 1 - PUT (Enemy(e).x, -8 + Enemy(e).y), Robot&(((Enemy(e).dir - 1) * 400) + ((Enemy(e).Flag1 - 1) * 100)), PSET - CASE 3 - IF Freezed = FALSE THEN - IF Enemy(e).Flag3 > 0 THEN - Enemy(e).Flag3 = Enemy(e).Flag3 - 1 - IF Enemy(e).Flag3 MOD 2 = 0 THEN - PUT (Enemy(e).x, -8 + Enemy(e).y), Ghost&((Enemy(e).dir - 1) * 100), PSET - PUT (Enemy(e).Flag1, -8 + Enemy(e).Flag2), Null&, PSET - ELSE - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - PUT (Enemy(e).Flag1, -8 + Enemy(e).Flag2), Ghost&((Enemy(e).dir - 1) * 100), PSET - END IF - ELSE - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - Enemy(e).dir = 0 - IF Cel((Enemy(e).x / 16) + xA(Enemy(e).dir), (Enemy(e).y / 16) + yA(Enemy(e).dir)) < 1 THEN - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - Enemy(e).dir = d - EXIT FOR - END IF - d = 0 - NEXT h - ELSE - RANDOMIZE TIMER * TimeLeft - s = INT(RND(1) * 2) + 1 - IF s = 1 THEN - k = INT(RND(1) * NunmPlayer) + 1 - IF Player(k).x < Enemy(e).x THEN d = 4 - IF Player(k).x > Enemy(e).x THEN d = 2 - IF Player(k).y < Enemy(e).y THEN d = 3 - IF Player(k).y > Enemy(e).y THEN d = 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - Enemy(e).dir = d - EXIT FOR - END IF - NEXT h - ELSE - Enemy(e).dir = d - END IF - END IF - END IF - k = INT(RND(1) * 25) + 1 - IF k = 1 THEN - DO - RANDOMIZE TIMER * TimeLeft - xc = INT(RND(1) * 18) + 1: yc = INT(RND(1) * 12) + 1 - IF Cel(xc, yc) = 0 THEN EXIT DO - LOOP - Enemy(e).Flag1 = Enemy(e).x: Enemy(e).Flag2 = Enemy(e).y - Enemy(e).Flag3 = 50: Enemy(e).dir = INT(RND(1) * 4) + 1 - Enemy(e).x = xc * 16: Enemy(e).y = yc * 16 - END IF - END IF - IF Enemy(e).Flag3 = 0 THEN - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - Enemy(e).x = Enemy(e).x + xA(Enemy(e).dir) - Enemy(e).y = Enemy(e).y + yA(Enemy(e).dir) - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 1 - PUT (Enemy(e).x, -8 + Enemy(e).y), Ghost&((Enemy(e).dir - 1) * 100), PSET - END IF - END IF - ELSE - PUT (Enemy(e).x, -8 + Enemy(e).y), Ghost&((Enemy(e).dir - 1) * 100), PSET - END IF - CASE 4 - IF Freezed = FALSE THEN - IF Enemy(e).Flag2 > FALSE THEN - Enemy(e).Flag2 = Enemy(e).Flag2 - 1 - IF Enemy(e).Flag2 = 5 THEN - FOR k = 1 TO 4 - Find = FALSE - FOR h = 1 TO 20 - IF Enemy(h).Typ < 1 THEN Find = TRUE: EXIT FOR - NEXT h - IF Find = TRUE THEN - IF Cel((Enemy(e).x / 16) + xA(k), (Enemy(e).y / 16) + yA(k)) = 0 THEN - Enemy(h).Typ = 9: Enemy(h).dir = k - Enemy(h).x = Enemy(e).x + (xA(k) * 16) - Enemy(h).y = Enemy(e).y + (yA(k) * 16) - END IF - END IF - NEXT k - END IF - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(800), PSET - ELSE - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - k = INT(RND(1) * 15) + 1 - IF k = 1 THEN Enemy(e).Flag2 = 40: Enemy(e).dir = 0 - IF k <> 1 THEN - IF Cel((Enemy(e).x / 16) + xA(Enemy(e).dir), (Enemy(e).y / 16) + yA(Enemy(e).dir)) <> 0 THEN - RANDOMIZE TIMER * TimeLeft - s = INT(RND(1) * 2) + 1 - IF s = 1 THEN - k = INT(RND(1) * NunmPlayer) + 1 - IF Player(k).x < Enemy(e).x THEN d = 4 - IF Player(k).x > Enemy(e).x THEN d = 2 - IF Player(k).y < Enemy(e).y THEN d = 3 - IF Player(k).y > Enemy(e).y THEN d = 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) <> 0 THEN - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) = 0 THEN - Enemy(e).dir = d - EXIT FOR - ELSE - Enemy(e).dir = 0 - END IF - NEXT h - ELSE - Enemy(e).dir = d - END IF - ELSE - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) = 0 THEN - EXIT FOR - ELSE - d = 0 - END IF - NEXT h - Enemy(e).dir = d - END IF - ELSE - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) = 0 THEN - Enemy(e).dir = d - EXIT FOR - ELSE - d = 0 - END IF - NEXT h - END IF - END IF - END IF - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - Enemy(e).x = Enemy(e).x + xA(Enemy(e).dir) - Enemy(e).y = Enemy(e).y + yA(Enemy(e).dir) - Enemy(e).Flag3 = Enemy(e).Flag3 + 1 - IF Enemy(e).Flag3 = 20 THEN Enemy(e).Flag3 = 1 - IF Enemy(e).Flag3 > 10 THEN j = 1 ELSE j = 0 - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 1 - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(((Enemy(e).dir - 1) * 200) + (j * 100)), PSET - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 1 - END IF - ELSE - IF Enemy(e).Flag2 > FALSE THEN - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(800), PSET - ELSE - IF Enemy(e).Flag3 > 10 THEN j = 1 ELSE j = 0 - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(((Enemy(e).dir - 1) * 200) + (j * 100)), PSET - END IF - END IF - CASE 5 - IF Freezed = FALSE THEN - IF Enemy(e).Flag3 > 0 THEN - Enemy(e).Flag3 = Enemy(e).Flag3 - 1 - IF Enemy(e).Flag3 MOD 4 = 0 THEN - PUT (Enemy(e).x, -8 + Enemy(e).y), Spider&(1200 + ((Enemy(e).dir - 1) * 100)), PSET - ELSE - PUT (Enemy(e).x, -8 + Enemy(e).y), Spider&(((Enemy(e).dir - 1) * 300) + 100), PSET - END IF - IF Enemy(e).Flag3 = 0 THEN - FOR nb = 1 TO 170 - IF Block(nb).Status = 0 THEN EXIT FOR - NEXT nb - Block(nb).x = Enemy(e).x / 16: Block(nb).y = Enemy(e).y / 16 - Block(nb).Status = WEB: Cel(Enemy(e).x / 16, Enemy(e).y / 16) = WEB - NumWeb = NumWeb + 1 - END IF - ELSE - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - Enemy(e).dir = 0 - IF Cel((Enemy(e).x / 16) + xA(Enemy(e).dir), (Enemy(e).y / 16) + yA(Enemy(e).dir)) < 1 THEN - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - Enemy(e).dir = d - EXIT FOR - END IF - d = 0 - NEXT h - ELSE - RANDOMIZE TIMER * TimeLeft - s = INT(RND(1) * 4) + 1 - IF s = 1 THEN - k = INT(RND(1) * NunmPlayer) + 1 - IF Player(k).x < Enemy(e).x THEN d = 4 - IF Player(k).x > Enemy(e).x THEN d = 2 - IF Player(k).y < Enemy(e).y THEN d = 3 - IF Player(k).y > Enemy(e).y THEN d = 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - FOR h = 1 TO 20 - RANDOMIZE TIMER * TimeLeft - d = INT(RND(1) * 4) + 1 - IF Cel((Enemy(e).x / 16) + xA(d), (Enemy(e).y / 16) + yA(d)) < 1 THEN - Enemy(e).dir = d - EXIT FOR - END IF - NEXT h - ELSE - Enemy(e).dir = d - END IF - END IF - END IF - k = INT(RND(1) * 20) + 1 - IF k = 1 AND Cel(Enemy(e).x / 16, Enemy(e).y / 16) <> WEB THEN - IF NumWeb < 11 THEN Enemy(e).Flag3 = 50 - END IF - END IF - IF Enemy(e).Flag3 = 0 THEN - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - Enemy(e).x = Enemy(e).x + xA(Enemy(e).dir) - Enemy(e).y = Enemy(e).y + yA(Enemy(e).dir) - Enemy(e).Flag1 = Enemy(e).Flag1 + Enemy(e).Flag2 - IF Enemy(e).Flag1 <> 2 THEN Enemy(e).Flag2 = -Enemy(e).Flag2 - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 1 - PUT (Enemy(e).x, -8 + Enemy(e).y), Spider&(((Enemy(e).dir - 1) * 300) + ((Enemy(e).Flag1 - 1) * 100)), PSET - END IF - END IF - ELSE - PUT (Enemy(e).x, -8 + Enemy(e).y), Spider&(((Enemy(e).dir - 1) * 300) + ((Enemy(e).Flag1 - 1) * 100)), PSET - END IF - IF Enemy(e).dir = 0 THEN Enemy(e).dir = 1 - CASE 9 - IF Freezed = FALSE THEN - PUT (Enemy(e).x, -8 + Enemy(e).y), Null&, PSET - IF Enemy(e).x MOD 16 = 0 AND Enemy(e).y MOD 16 = 0 THEN - IF Cel((Enemy(e).x / 16) + xA(Enemy(e).dir), (Enemy(e).y / 16) + yA(Enemy(e).dir)) < 1 THEN - Enemy(e).x = Enemy(e).x + (xA(Enemy(e).dir) * 8) - Enemy(e).y = Enemy(e).y + (yA(Enemy(e).dir) * 8) - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(900), PSET - ELSE - Enemy(e).Typ = 0 - FOR h = 1 TO 60 - IF Object(h).Typ = 0 THEN EXIT FOR - NEXT h - Object(h).Typ = -3: Object(h).Time = 3 - Object(h).x = Enemy(e).x - Object(h).y = -8 + Enemy(e).y - END IF - ELSE - Enemy(e).x = Enemy(e).x + (xA(Enemy(e).dir) * 8) - Enemy(e).y = Enemy(e).y + (yA(Enemy(e).dir) * 8) - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(900), PSET - END IF - ELSE - PUT (Enemy(e).x, -8 + Enemy(e).y), Slug&(900), PSET - END IF - END SELECT - GoOn = FALSE - FOR C = 1 TO NumPlayer - IF Enemy(e).x > Player(C).x - 16 AND Enemy(e).x < Player(C).x + 16 THEN - IF Enemy(e).y > Player(C).y - 16 AND Enemy(e).y < Player(C).y + 16 THEN - IF Enemy(e).Typ = 3 AND Enemy(e).Flag3 <> 0 THEN GoOn = TRUE - IF GoOn = FALSE THEN - KillPlayer C - Killed = TRUE ': TIMER OFF - Player(C).Lives = Player(C).Lives - 1: EXIT SUB - END IF - END IF - END IF - NEXT C - END IF -NEXT e - -END SUB - -SUB OutText (x, y, t$) -FOR i = 1 TO LEN(t$) - ChCode = ASC(MID$(t$, i, 1)) - SELECT CASE ChCode - CASE 65 TO 90: Ch = ChCode - 65 - CASE 48 TO 57: Ch = ChCode - 22 - CASE 46: Ch = 36 - CASE 58: Ch = 37 - CASE 44: Ch = 38 - CASE 59: Ch = 39 - CASE 33: Ch = 40 - CASE 63: Ch = 41 - CASE 45: Ch = 42 - CASE 43: Ch = 43 - CASE 95: Ch = 44 - CASE 32: Ch = 45 - END SELECT - PUT (x, y), Char&(Ch * 20), PSET - x = x + 7 -NEXT i -END SUB - -FUNCTION PlayAgain -' -Center 96, "PLAY AGAIN ?" -DO - k$ = INKEY$: k$ = UCASE$(k$) - IF k$ = "Y" THEN PlayAgain = TRUE: EXIT DO - IF k$ = "N" THEN PlayAgain = FALSE: EXIT DO -LOOP - -END FUNCTION - -SUB PlayGame - -MaxLevel = 21 -Level = 1 -FOR i = 1 TO 2 - Player(i).Score = 0 - Player(i).Lives = 3 - Player(i).NextLife = 30000 - Player(i).BonusE = FALSE - Player(i).BonusX = FALSE - Player(i).BonusT = FALSE - Player(i).BonusR = FALSE - Player(i).BonusA = FALSE - Player(i).Bonus = 0 - Player(i).Cutter = FALSE - Player(i).Trapped = FALSE -NEXT i -IF NumPlayer = 1 THEN Player(2).Lives = 0 -AbortGame = FALSE -DO - LoadLevel - FOR i = 0 TO 11: PUT (0, 8 + (i * 16)), Wall&, PSET - PUT (304, 8 + (i * 16)), Wall&, PSET: NEXT i - IF Player(1).Cutter = TRUE THEN PUT (0, 8), CutHole&, PSET: PUT (0, 8), Obj&(1200), XOR - IF Player(2).Cutter = TRUE THEN PUT (304, 8), CutHole&, PSET: PUT (304, 8), Obj&(1200), XOR - OutText 0, 0, "1UP": OutText 204, 0, "2UP" - PUT (128, 0), Clock&, PSET: PUT (167, 0), Flag&, PSET - PrintStatBar - DrawScreen - FOR i = 1 TO NumPlayer - Player(i).dir = 1 - Player(i).NextDir = 0 - Player(i).Frame = 2 - Player(i).FrameDir = 1 - Player(i).Action = NONE - Player(i).Spd = 2 - IF Player(i).BonusE = TRUE THEN PUT ((i - 1) * 304, 64), Hole&, PSET: PUT ((i - 1) * 304, 64), Obj&(2100), XOR - IF Player(i).BonusX = TRUE THEN PUT ((i - 1) * 304, 80), Hole&, PSET: PUT ((i - 1) * 304, 80), Obj&(2200), XOR - IF Player(i).BonusT = TRUE THEN PUT ((i - 1) * 304, 96), Hole&, PSET: PUT ((i - 1) * 304, 96), Obj&(2300), XOR - IF Player(i).BonusR = TRUE THEN PUT ((i - 1) * 304, 112), Hole&, PSET: PUT ((i - 1) * 304, 112), Obj&(2400), XOR - IF Player(i).BonusA = TRUE THEN PUT ((i - 1) * 304, 128), Hole&, PSET: PUT ((i - 1) * 304, 128), Obj&(2500), XOR - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + ((Player(i).dir - 1) * 300) + ((Player(i).Frame - 1) * 100)), PSET - Player(i).Trapped = FALSE - NEXT i - FOR i = 1 TO 20 - SELECT CASE Enemy(i).Typ - CASE 1: PUT (Enemy(i).x, -8 + Enemy(i).y), Worm&(800), PSET - CASE 2: PUT (Enemy(i).x, -8 + Enemy(i).y), Robot&(0), PSET - CASE 3: PUT (Enemy(i).x, -8 + Enemy(i).y), Ghost&(0), PSET - CASE 4: PUT (Enemy(i).x, -8 + Enemy(i).y), Slug&(0), PSET - CASE 5: PUT (Enemy(i).x, -8 + Enemy(i).y), Spider&(100), PSET - CASE 6: PUT (Enemy(i).x, -8 + Enemy(i).y), Shadow&(0), PSET - CASE 7: PUT (Enemy(i).x, -8 + Enemy(i).y), Putty&(100), PSET - CASE 8: PUT (Enemy(i).x, -8 + Enemy(i).y), Ball&(300), PSET - END SELECT - NEXT i - TimeLeft = 90: PrintStatBar - Message "READY!" - Pass = -1: Killed = FALSE - GameMode = NORMAL: Freezed = FALSE: Multi# = 1: Killed = FALSE - LastTime$ = TIME$: BonusAlone = FALSE: Change = FALSE - DO - StartT! = TIMER - - DO: time1! = TIMER: LOOP UNTIL time1! <> time2! - time2! = time1! - - k$ = INKEY$: k$ = UCASE$(k$) - SELECT CASE k$ - CASE "2" - IF Player(1).Action <> FIRE THEN - IF Player(1).NextDir = 0 AND Player(1).Action = NONE THEN - Player(1).dir = 1: Player(1).NextDir = 1: Player(1).Action = MOVE - ELSE - Player(1).NextDir = 1: Player(1).Action = MOVE - END IF - END IF - CASE "6" - IF Player(1).Action <> FIRE THEN - IF Player(1).NextDir = 0 AND Player(1).Action = NONE THEN - Player(1).dir = 2: Player(1).NextDir = 2: Player(1).Action = MOVE - ELSE - Player(1).NextDir = 2: Player(1).Action = MOVE - END IF - END IF - CASE "8" - IF Player(1).Action <> FIRE THEN - IF Player(1).NextDir = 0 AND Player(1).Action = NONE THEN - Player(1).dir = 3: Player(1).NextDir = 3: Player(1).Action = MOVE - ELSE - Player(1).NextDir = 3: Player(1).Action = MOVE - END IF - END IF - CASE "4" - IF Player(1).Action <> FIRE THEN - IF Player(1).NextDir = 0 AND Player(1).Action = NONE THEN - Player(1).dir = 4: Player(1).NextDir = 4: Player(1).Action = MOVE - ELSE - Player(1).NextDir = 4: Player(1).Action = MOVE - END IF - END IF - CASE "5": IF Player(1).Action <> FIRE THEN Player(1).NextDir = 0: Player(1).Action = MOVE - CASE CHR$(13) - IF Player(1).Action = NONE THEN Player(1).Action = FIRE: Player(1).Frame = 1 - CASE "X" - IF Player(2).Action <> FIRE THEN - IF Player(2).NextDir = 0 AND Player(2).Action = NONE THEN - Player(2).dir = 1: Player(2).NextDir = 1: Player(2).Action = MOVE - ELSE - Player(2).NextDir = 1: Player(2).Action = MOVE - END IF - END IF - CASE "D" - IF Player(2).Action <> FIRE THEN - IF Player(2).NextDir = 0 AND Player(2).Action = NONE THEN - Player(2).dir = 2: Player(2).NextDir = 2: Player(2).Action = MOVE - ELSE - Player(2).NextDir = 2: Player(2).Action = MOVE - END IF - END IF - CASE "W" - IF Player(2).Action <> FIRE THEN - IF Player(2).NextDir = 0 AND Player(2).Action = NONE THEN - Player(2).dir = 3: Player(2).NextDir = 3: Player(2).Action = MOVE - ELSE - Player(2).NextDir = 3: Player(2).Action = MOVE - END IF - END IF - CASE "A" - IF Player(2).Action <> FIRE THEN - IF Player(2).NextDir = 0 AND Player(2).Action = NONE THEN - Player(2).dir = 4: Player(2).NextDir = 4: Player(2).Action = MOVE - ELSE - Player(2).NextDir = 4: Player(2).Action = MOVE - END IF - END IF - CASE "S": IF Player(2).Action <> FIRE THEN Player(2).NextDir = 0: Player(2).Action = MOVE - CASE "\" - IF Player(2).Action = NONE THEN Player(2).Action = FIRE: Player(2).Frame = 1 - CASE "P" - Message "PAUSE!" - CASE CHR$(27): AbortGame = TRUE: EXIT DO - END SELECT - FOR i = 1 TO NumPlayer - IF Player(i).Trapped = FALSE THEN - IF Player(i).Action <> NONE THEN PUT (Player(i).x, -8 + Player(i).y), Null&, PSET - SELECT CASE Player(i).Action - CASE MOVE - SELECT CASE Player(i).NextDir - CASE 0 - IF Player(i).x MOD 16 = 0 AND Player(i).y MOD 16 = 0 THEN - Player(i).Action = NONE: Player(i).Frame = 2 - END IF - CASE 1 - IF Player(i).x MOD 16 = 0 AND Player(i).y MOD 16 = 0 THEN - IF Cel(Player(i).x / 16, (Player(i).y / 16) + 1) < 1 THEN Player(i).dir = Player(i).NextDir ELSE Player(i).dir = Player(i).NextDir: Player(i).Action = NONE - END IF - CASE 2 - IF Player(i).x MOD 16 = 0 AND Player(i).y MOD 16 = 0 THEN - IF Cel((Player(i).x / 16) + 1, Player(i).y / 16) < 1 THEN Player(i).dir = Player(i).NextDir ELSE Player(i).dir = Player(i).NextDir: Player(i).Action = NONE - END IF - CASE 3 - IF Player(i).x MOD 16 = 0 AND Player(i).y MOD 16 = 0 THEN - IF Cel(Player(i).x / 16, (Player(i).y / 16) - 1) < 1 THEN Player(i).dir = Player(i).NextDir ELSE Player(i).dir = Player(i).NextDir: Player(i).Action = NONE - END IF - CASE 4 - IF Player(i).x MOD 16 = 0 AND Player(i).y MOD 16 = 0 THEN - IF Cel((Player(i).x / 16) - 1, Player(i).y / 16) < 1 THEN Player(i).dir = Player(i).NextDir ELSE Player(i).dir = Player(i).NextDir: Player(i).Action = NONE - END IF - END SELECT - SELECT CASE Player(i).dir - CASE 1 - IF (Player(i).y) MOD 16 = 0 THEN - IF Cel(Player(i).x / 16, ((Player(i).y) / 16) + 1) > 0 THEN Player(i).Action = NONE: Player(i).Frame = 2 - END IF - IF Player(i).Action = MOVE THEN - Player(i).y = Player(i).y + Player(i).Spd - Player(i).Frame = Player(i).Frame + Player(i).FrameDir - IF Player(i).Frame = 3 OR Player(i).Frame = 1 THEN Player(i).FrameDir = -Player(i).FrameDir - END IF - CASE 2 - IF (Player(i).x) MOD 16 = 0 THEN - IF Cel((Player(i).x / 16) + 1, (Player(i).y) / 16) > 0 THEN Player(i).Action = NONE: Player(i).Frame = 2 - END IF - IF Player(i).Action = MOVE THEN - Player(i).x = Player(i).x + Player(i).Spd - Player(i).Frame = Player(i).Frame + Player(i).FrameDir - IF Player(i).Frame = 3 OR Player(i).Frame = 1 THEN Player(i).FrameDir = -Player(i).FrameDir - END IF - CASE 3 - IF (Player(i).y) MOD 16 = 0 THEN - IF Cel(Player(i).x / 16, ((Player(i).y) / 16) - 1) > 0 THEN Player(i).Action = NONE: Player(i).Frame = 2 - END IF - IF Player(i).Action = MOVE THEN - Player(i).y = Player(i).y - Player(i).Spd - Player(i).Frame = Player(i).Frame + Player(i).FrameDir - IF Player(i).Frame = 3 OR Player(i).Frame = 1 THEN Player(i).FrameDir = -Player(i).FrameDir - END IF - CASE 4 - IF (Player(i).x) MOD 16 = 0 THEN - IF Cel((Player(i).x / 16) - 1, (Player(i).y) / 16) > 0 THEN Player(i).Action = NONE: Player(i).Frame = 2 - END IF - IF Player(i).Action = MOVE THEN - Player(i).x = Player(i).x - Player(i).Spd - Player(i).Frame = Player(i).Frame + Player(i).FrameDir - IF Player(i).Frame = 3 OR Player(i).Frame = 1 THEN Player(i).FrameDir = -Player(i).FrameDir - END IF - END SELECT - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + ((Player(i).dir - 1) * 300) + ((Player(i).Frame - 1) * 100)), PSET - CASE NONE - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + ((Player(i).dir - 1) * 300) + ((Player(i).Frame - 1) * 100)), PSET - CASE FIRE - SELECT CASE Player(i).Frame - CASE 1 - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + ((Player(i).dir - 1) * 300) + 100), PSET - Player(i).Frame = Player(i).Frame + 1 - CASE 2, 3, 4 - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + 1200 + ((Player(i).dir - 1) * 100)), PSET - Player(i).Frame = Player(i).Frame + 1 - CASE 5 - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + 1200 + ((Player(i).dir - 1) * 100)), PSET - IF Player(i).dir = 1 THEN - FOR B = 1 TO 170 - IF Block(B).Status = NORMALBLOCK OR Block(B).Status = SPECIALBLOCK THEN - IF Block(B).x = Player(i).x / 16 AND Block(B).y = (Player(i).y / 16) + 1 THEN - Block(B).Status = NMOVINGDOWN + ((Block(B).Status - 2) * 4) - Block(B).JustMoved = TRUE: Block(B).MovedBy = i - END IF - END IF - NEXT B - END IF - IF Player(i).dir = 2 THEN - FOR B = 1 TO 170 - IF Block(B).Status = NORMALBLOCK OR Block(B).Status = SPECIALBLOCK THEN - IF Block(B).x = (Player(i).x / 16) + 1 AND Block(B).y = Player(i).y / 16 THEN - Block(B).Status = NMOVINGRIGHT + ((Block(B).Status - 2) * 4) - Block(B).JustMoved = TRUE: Block(B).MovedBy = i - END IF - END IF - NEXT B - END IF - IF Player(i).dir = 3 THEN - FOR B = 1 TO 170 - IF Block(B).Status = NORMALBLOCK OR Block(B).Status = SPECIALBLOCK THEN - IF Block(B).x = Player(i).x / 16 AND Block(B).y = (Player(i).y / 16) - 1 THEN - Block(B).Status = NMOVINGUP + ((Block(B).Status - 2) * 4) - Block(B).JustMoved = TRUE: Block(B).MovedBy = i - END IF - END IF - NEXT B - END IF - IF Player(i).dir = 4 THEN - FOR B = 1 TO 170 - IF Block(B).Status = NORMALBLOCK OR Block(B).Status = SPECIALBLOCK THEN - IF Block(B).x = (Player(i).x / 16) - 1 AND Block(B).y = Player(i).y / 16 THEN - Block(B).Status = NMOVINGLEFT + ((Block(B).Status - 2) * 4) - Block(B).JustMoved = TRUE: Block(B).MovedBy = i - END IF - END IF - NEXT B - END IF - Player(i).Frame = Player(i).Frame + 1 - CASE 6 - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + ((Player(i).dir - 1) * 300) + 100), PSET - Player(i).Action = NONE: Player(i).NextDir = 0: Player(i).Frame = 2 - END SELECT - END SELECT - ELSE - Player(i).Trapped = Player(i).Trapped - 1 - IF Player(i).Trapped = 0 THEN Player(i).NextDir = 0 - PUT (Player(i).x, -8 + Player(i).y), Spider&(1700 + ((i - 1) * 100)), PSET - END IF - IF Player(i).x MOD 16 = 0 AND Player(i).y MOD 16 = 0 THEN - IF Cel(Player(i).x / 16, Player(i).y / 16) = -1 THEN - IF Player(i).Cutter = FALSE THEN Player(i).Trapped = 150 - NumWeb = NumWeb - 1 - FOR nb = 1 TO 170 - IF Block(nb).x = Player(i).x / 16 AND Block(nb).y = Player(i).y / 16 THEN Block(nb).Status = 0: EXIT FOR - NEXT nb - Cel(Player(i).x / 16, Player(i).y / 16) = 0 - END IF - END IF - NEXT i - CheckObjects - MoveEnemies - CheckBlocks - IF BonusAlone = FALSE AND GameMode = NORMAL THEN - RANDOMIZE TIMER - l = INT(RND(1) * 100) + 1 - IF l = 1 THEN - FOR k = 1 TO 60: IF Object(k).Typ = 0 THEN EXIT FOR - NEXT k - Object(k).Typ = Bonus(INT(RND(1) * 20) + 1) - DO - xo = INT(RND(1) * 18) + 1 - yo = INT(RND(1) * 12) + 1 - IF Cel(xo, yo) = 0 THEN EXIT DO - LOOP - Object(k).x = xo * 16 - Object(k).y = -8 + (yo) * 16 - Object(k).Time = 400 - Object(k).Alone = TRUE - BonusAlone = TRUE - END IF - END IF - IF TIME$ <> LastTime$ AND Pass = -1 THEN - LastTime$ = TIME$ - TimeLeft = TimeLeft - 1 - cl$ = LTRIM$(STR$(TimeLeft)) - IF LEN(cl$) < 3 THEN cl$ = STRING$(3 - LEN(cl$), "0") + cl$ - OutText 137, 0, cl$ - END IF - IF TimeLeft = 0 THEN - Pass = 0 - IF GameMode = NORMAL THEN - FOR q = 1 TO NumPlayer: Player(q).Lives = Player(q).Lives - 1 - PUT (Player(q).x, -8 + Player(q).y), Crab&(((q - 1) * 2000) + 1900), PSET: NEXT q - Message "TIME UP!" - FOR i = 1 TO NumPlayer - KillPlayer i - NEXT i - Pass = -1 - END IF - EXIT DO - END IF - IF Freezed > FALSE THEN Freezed = Freezed - 1 - IF Killed = TRUE THEN Pass = -1: EXIT DO - IF NumEnemy = 0 AND Pass = -1 THEN Pass = 150 - IF Pass <> -1 THEN Pass = Pass - 1: IF Pass = 0 THEN EXIT DO - DO: LOOP WHILE TIMER < StartT! + .001 - LOOP - IF AbortGame = TRUE THEN - Message "GAME ABORTED!" - SCREEN 0: WIDTH 80 - PRINT "WetSpot v0.9" - PRINT "(C) by Angelo Mottola soft 1996" - PRINT : PRINT "Final release will include:" - PRINT " - 100 levels (I hope so...)" - PRINT " - 8 different enemies" - PRINT " - Sound Blaster Music and sound effects" - PRINT " - More and more fun !!" - PRINT : PRINT "Coming soon..." - PRINT : END - END IF - IF Pass = 0 THEN - IF GameMode = NORMAL THEN - FOR i = 1 TO NumPlayer - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + 100), PSET - NEXT i - Delay .08 - FOR i = 1 TO NumPlayer - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + 1600), PSET - NEXT i - Delay .08 - FOR i = 1 TO NumPlayer - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + 1700), PSET - NEXT i - Delay .08 - FOR i = 1 TO NumPlayer - PUT (Player(i).x, -8 + Player(i).y), Crab&(((i - 1) * 2000) + 1800), PSET - NEXT i - WHILE INKEY$ <> "": WEND - q$ = INKEY$: WHILE (q$ <> CHR$(13) AND q$ <> "\"): q$ = INKEY$: WEND - Level = Level + 1 - ELSE - FOR i = 1 TO NumPlayer - LINE (((i - 1) * 160) + 20, 50)-(((i - 1) * 160) + 140, 150), 0, BF - LINE (((i - 1) * 160) + 21, 51)-(((i - 1) * 160) + 139, 149), 27, B - LINE (((i - 1) * 160) + 22, 52)-(((i - 1) * 160) + 138, 148), 29, B - LINE (((i - 1) * 160) + 23, 53)-(((i - 1) * 160) + 137, 147), 31, B - OutText (((i - 1) * 160) + 39), 60, "POTION BONUS" - LINE (((i - 1) * 160) + 27, 75)-(((i - 1) * 160) + 133, 137), 29, B - PUT ((((i - 1) * 160) + 30), 79), Obj&(2000), PSET - te$ = "X " + LTRIM$(STR$(Player(i).Special)) + ": " + LTRIM$(STR$(Player(i).Special * 200)) - OutText (((i - 1) * 160) + 53), 84, te$ - PUT ((((i - 1) * 160) + 30), 97), Obj&(1500), PSET - te$ = "X " + LTRIM$(STR$(TimeLeft)) + ": " + LTRIM$(STR$(TimeLeft * 1000)) - OutText (((i - 1) * 160) + 53), 102, te$ - OutText (((i - 1) * 160) + 30), 115, "MULTIPLIER X" + LTRIM$(STR$(Multi#)) - Tot# = (((Player(i).Special * 200) + (TimeLeft * 1000))) * Multi# - OutText (((i - 1) * 160) + 30), 125, "TOTAL : " + LTRIM$(STR$(Tot#)) - Player(i).Score = Player(i).Score + Tot# - PrintStatBar - NEXT i - WHILE INKEY$ <> "": WEND - q$ = INKEY$: WHILE (q$ <> CHR$(13) AND q$ <> "\"): q$ = INKEY$: WEND - Level = Level + 1 - END IF - ELSEIF Pass = -1 THEN - Player(1).Cutter = FALSE: Player(2).Cutter = FALSE - WHILE INKEY$ <> "": WEND - q$ = INKEY$: WHILE (q$ <> CHR$(13) AND q$ <> "\"): q$ = INKEY$: WEND - ELSE - WHILE INKEY$ <> "": WEND - q$ = INKEY$: WHILE (q$ <> CHR$(13) AND q$ <> "\"): q$ = INKEY$: WEND - END IF - IF NumPlayer = 2 THEN - IF Player(1).Lives < 0 OR Player(2).Lives < 0 THEN EXIT DO - ELSE - IF Player(1).Lives < 0 THEN EXIT DO - END IF -LOOP -Message "GAME OVER!" -END SUB - -SUB PrintStatBar -FOR i = 1 TO 2 - IF Player(i).Score > Player(i).NextLife THEN Player(i).NextLife = Player(i).NextLife * 2: Player(i).Lives = Player(i).Lives + 1 - s$(i) = LTRIM$(STR$(Player(i).Score)) - IF Player(i).Score = 0 THEN s$(i) = "00" - IF LEN(s$(i)) < 7 THEN s$(i) = STRING$(7 - LEN(s$(i)), " ") + s$(i) - OutText (((i - 1) * 204) + 28), 0, s$(i) - IF Player(i).Lives > 3 THEN - FOR ii = 0 TO 2: PUT ((((i - 1) * 204) + 91) + (ii * 8), 0), Life&((i - 1) * 20), PSET: NEXT ii - OutText (((i - 1) * 204) + 85), 0, LTRIM$(STR$(Player(i).Lives)) - ELSE - FOR ii = 0 TO Player(i).Lives - 1: PUT ((((i - 1) * 204) + 91) + (ii * 8), 0), Life&((i - 1) * 20), PSET: NEXT ii - END IF -NEXT i -s$(1) = LTRIM$(STR$(TimeLeft)) -IF LEN(s$(1)) < 3 THEN s$(1) = STRING$(3 - LEN(s$(1)), "0") + s$(1) -OutText 137, 0, s$(1) -s$(2) = LTRIM$(STR$(Level)) -IF LEN(s$(2)) < 2 THEN s$(2) = STRING$(2 - LEN(s$(2)), "0") + s$(2) -OutText 176, 0, s$(2) - -END SUB - -SUB PrintValue (xv, yv, va) -v$ = LTRIM$(STR$(va)) -ad = (16 - (LEN(v$) * 4)) / 2 -FOR l = 1 TO LEN(v$) - PUT (xv + ad, yv + 6), Number&((ASC(MID$(v$, l, 1)) - 48) * 10), PSET - ad = ad + 4 -NEXT l -END SUB - diff --git a/programs/samples/pete/wetspot/wetspot.p13 b/programs/samples/pete/wetspot/wetspot.p13 deleted file mode 100644 index 580cb7d4c..000000000 Binary files a/programs/samples/pete/wetspot/wetspot.p13 and /dev/null differ diff --git a/programs/samples/pete/zodiac4.bas b/programs/samples/pete/zodiac4.bas deleted file mode 100644 index ea95903f0..000000000 --- a/programs/samples/pete/zodiac4.bas +++ /dev/null @@ -1,1314 +0,0 @@ -SCREEN 7 -WIDTH 80 -CLS -not$ = "Not enough magic" -title: -DO -CLS -RANDOMIZE TIMER -LOCATE 20, 20 -PRINT "Zodiac Battles" -PRINT "Press 'i' for instructions" -PRINT "Press 's' to start game" -PRINT "Press 'z' to view animal data" -PRINT "Press 'w' to view weapon info" -PRINT "Press 'x' to quit now(you cannot quit during a game)" -DO -key$ = INKEY$ -LOOP UNTIL key$ = "i" OR key$ = "s" OR key$ = "z" OR key$ = "w" OR key$ = "x" -SELECT CASE key$ - CASE IS = "s" - GOSUB options - CASE IS = "i" - GOSUB instructions - CASE IS = "z" - GOSUB animaldata - CASE IS = "w" - GOSUB weapond - CASE IS = "x" - GOSUB endsection -END SELECT - -options: -DO -CLS -DIM r$(13) -RESTORE rDATA -FOR count = 1 TO 13 -READ r$(count) -NEXT count -DIM weapon$(7) -RESTORE weaponDATA -FOR count = 1 TO 7 -READ weapon$(count) -NEXT count -DO -INPUT "Weapons ON/OFF(y/n):", weaponanswer$ -LOOP UNTIL weaponanswer$ = "y" OR weaponanswer$ = "n" -CLS -INPUT "Enter code:", rnumber -IF rnumber < 13 THEN -rname$ = LEFT$(r$(rnumber), 4) -END IF -LOOP WHILE rnumber > 12 -IF rnumber <= 0 THEN -rnumber = INT(RND * 13 + 1) -rname$ = LEFT$(r$(rnumber), 4) -END IF -LOCATE 10, 1 -PRINT rname$ -LOCATE 1, 1 -PRINT SPACE$(79) -DO -LOCATE 1, 10 -INPUT "Enter code:", rnumber2 -IF rnumber2 < 13 THEN -rname2$ = LEFT$(r$(rnumber2), 4) -END IF -LOOP WHILE rnumber2 > 12 -IF rnumber2 <= 0 THEN -rnumber2 = INT(RND * 13 + 1) -rname2$ = LEFT$(r$(rnumber2), 4) -END IF -LOCATE 10, 10 -PRINT rname2$ -LOCATE 1, 1 -PRINT SPACE$(79) -LOCATE 10, 6.5 -PRINT "vs." -SLEEP -CLS -DO -INPUT "P1 Enter weapon number:", weaponnumber -LOOP UNTIL weaponnumber >= 1 AND weaponnumber <= 7 -DO -INPUT "P2 Enter weapon number:", weaponnumber2 -LOOP UNTIL weaponnumber2 >= 1 AND weaponnumber2 <= 7 -CLS -LOCATE 10, 1 -PRINT SPACE$(79) -LOCATE 5, 5 -PRINT rname$ -LOCATE 5, 20 -PRINT rname2$ -IF weaponanswer$ = "y" THEN -weaponname$ = LEFT$(weapon$(weaponnumber), 5) -weaponlife = VAL(MID$(weapon$(weaponnumber), 7, 2)) -weaponmagic = VAL(MID$(weapon$(weaponnumber), 10, 2)) -weaponattack1 = VAL(MID$(weapon$(weaponnumber), 13, 2)) -weapondefense = VAL(MID$(weapon$(weaponnumber), 16, 2)) -weaponmagdef = VAL(MID$(weapon$(weaponnumber), 19, 2)) -weaponname2$ = LEFT$(weapon$(weaponnumber2), 5) -weaponlife2 = VAL(MID$(weapon$(weaponnumber2), 7, 2)) -weaponmagic2 = VAL(MID$(weapon$(weaponnumber2), 10, 2)) -weaponattack2 = VAL(MID$(weapon$(weaponnumber2), 13, 2)) -weapondefense2 = VAL(MID$(weapon$(weaponnumber2), 16, 2)) -weaponmagdef2 = VAL(MID$(weapon$(weaponnumber2), 19, 2)) -ELSE -weaponname$ = "None" -weaponlife = 0 -weaponmagic = 0 -weaponattack1 = 0 -weapondefense = 0 -weaponmagdef = 0 -weaponname2$ = "None" -weaponlife2 = 0 -weaponmagic2 = 0 -weaponattack2 = 0 -weapondefense2 = 0 -weaponmagdef2 = 0 -END IF - -LOCATE 1, 1 -PRINT "Player 1 use q/w/e/r.............Player 2 use u/i/o/p" - - -LOCATE 6, 5 -PRINT "Weapon:", weaponname$ -LOCATE 6, 20 -PRINT "Weapon:", weaponname2$ - -rhp1 = VAL(MID$(r$(rnumber), 5, 3)) + weaponlife -rhp2 = VAL(MID$(r$(rnumber2), 5, 3)) + weaponlife2 -magic1 = VAL(MID$(r$(rnumber), 9, 2)) + weaponmagic -magic2 = VAL(MID$(r$(rnumber2), 9, 2)) + weaponmagic2 -hattack1 = VAL(MID$(r$(rnumber), 12, 2)) + weaponattack1 -hattack2 = VAL(MID$(r$(rnumber2), 12, 2)) + weaponattack2 -lattack1 = VAL(MID$(r$(rnumber), 15, 2)) -lattack2 = VAL(MID$(r$(rnumber2), 15, 2)) -phydef1 = VAL(MID$(r$(rnumber), 18, 1)) + weapondefense -phydef2 = VAL(MID$(r$(rnumber2), 18, 1)) + weapondefense2 -magdef1 = VAL(MID$(r$(rnumber), 20, 1)) + weaponmagdef -magdef2 = VAL(MID$(r$(rnumber2), 20, 1)) + weaponmagdef2 - -IF rname$ = "hors" AND weaponname$ = "bow " THEN -lattack1 = lattack1 + 1 -END IF -IF rname2$ = "hors" AND weaponname2$ = "bow " THEN -lattack2 = lattack2 + 1 -END IF - - -PLAY "f8 f8 f8 e2" -SELECT CASE rname$ - CASE IS = "ram " - attack20$ = "/Highrage /Rest /Normal attack" - CASE IS = "drag" - attack20$ = "/Rage /DragonCall /Fireball" - CASE IS = "hors" - attack20$ = "/Heal /Restore /Race" - CASE IS = "rat " - attack20$ = "/Supercharge /Rattack1 /Rattack2" - CASE IS = "ox " - attack20$ = "/Charge /Restore /Highrage" - CASE IS = "snak" - attack20$ = "/Venombite /WeakeningPoison /Poison" - CASE IS = "mnky" - attack20$ = "/Defend /Defensetrick /Dodge" - CASE IS = "dog " - attack20$ = "/Defend /Bark /Followup" - CASE IS = "tigr" - attack20$ = "/Rage /Highrage /Catrest" - CASE IS = "boar" - attack20$ = "/Rage /Eat /FatSlam" - CASE IS = "roos" - attack20$ = "/Call /HyperRoos /Sunrise" - CASE IS = "hare" - attack20$ = "/LS1 /LS2 /LS3" - CASE IS = "ZodM" - attack20$ = "/Zodiac's Power /Skip Turn /Skip Turn" - -END SELECT -SELECT CASE rname2$ - CASE IS = "ram " - attack21$ = "/Highrage /Rest /Normal attack" - CASE IS = "drag" - attack21$ = "/Rage /DragonCall /Fireball" - CASE IS = "hors" - attack21$ = "/Heal /Restore /Race" - CASE IS = "rat " - attack21$ = "/Supercharge /Rattack1 /Rattack2" - CASE IS = "ox " - attack21$ = "/Charge /Restore /Highrage" - CASE IS = "snak" - attack21$ = "/Venombite /WeakeningPoison /Poison" - CASE IS = "mnky" - attack21$ = "/Defend /Defensetrick /Dodge" - CASE IS = "dog " - attack21$ = "/Defend /Bark /Followup" - CASE IS = "tigr" - attack21$ = "/Rage /Highrage /Catrest" - CASE IS = "boar" - attack21$ = "/Rage /Eat /FatSlam" - CASE IS = "roos" - attack21$ = "/Call /HyperRoos /Sunrise" - CASE IS = "hare" - attack21$ = "/LS1 /LS2 /LS3" - CASE IS = "ZodM" - attack21$ = "/Zodiac's Power /SkipTurn /SkipTurn" - END SELECT - -DO UNTIL rhp1 < 1 OR rhp2 < 1 - -LOCATE 20, 5 -PRINT "PLAYER 1:normal attack", attack20$ -DO -key$ = INKEY$ -LOOP UNTIL key$ = "q" OR key$ = "w" OR key$ = "e" OR key$ = "r" -LOCATE 17, 1 -PRINT SPACE$(120) - -SELECT CASE key$ - CASE IS = "q" - rhp2 = rhp2 - INT(RND * hattack1 + lattack1 - phydef2) - LOCATE 17, 1 - PRINT "Normal attack" - CASE IS = "w" - SELECT CASE rname$ - CASE IS = "ram " - hattack1 = hattack1 + 2 - LOCATE 17, 1 - PRINT "Max attack + 2" - CASE IS = "drag" - IF magic1 < 4 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - hattack1 = hattack1 + 1 - rhp1 = rhp1 - 3 - magic1 = magic1 - 4 - LOCATE 17, 1 - PRINT "Max atttack + 1" - - IF weaponname$ = "wand " THEN - rhp1 = rhp1 + 4 - END IF - - END IF - CASE IS = "hors" - IF magic1 < 5 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - rhp1 = rhp1 + 7 - magic1 = magic1 - 5 - IF weaponname$ = "cape " THEN - rhp1 = rhp1 + 3 - END IF - LOCATE 17, 1 - PRINT "Recover 7" - END IF - CASE IS = "rat " - IF magic1 < 50 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - LOCATE 17, 1 - PRINT "Super charge: max attack + 3 and min. attack + 1" - hattack1 = hattack1 + 3 - lattack1 = lattack1 + 1 - magic1 = magic1 - 50 - END IF - CASE IS = "ox " - IF magic1 < 5 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - LOCATE 17, 1 - PRINT "Min. attack + 1" - magic1 = magic1 - 5 - lattack1 = lattack1 + 1 - IF weaponname$ = "shiel" THEN - magic1 = magic1 + 5 - END IF - END IF - CASE IS = "snak" - IF magic1 < 20 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - LOCATE 17, 1 - PRINT "Venom bite. -1 max and min. attack to itself" - magic1 = magic1 - 20 - lattack1 = lattack1 - 1 - hattack1 = hattack1 - 1 - rhp2 = rhp2 - 15 + magdef2 - IF weaponname$ = "cape " THEN - hattack1 = hattack1 + 1 - END IF - END IF - CASE IS = "mnky" - IF magic1 < 5 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic1 = magic1 - 5 - phydef1 = phydef1 + 1 - rhp1 = rhp1 + 7 - magdef2 - LOCATE 17, 1 - PRINT "Defense +1; Recovers 7 - ", magdef2 - IF weaponname$ = "glove" THEN - rhp1 = rhp1 + magdef2 - END IF - - END IF - CASE IS = "dog " - phydef1 = phydef1 + 2 - LOCATE 17, 1 - PRINT "Defense +2" - CASE IS = "tigr" - IF magic1 < 5 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic1 = magic1 - 5 - hattack1 = hattack1 + 1 - LOCATE 17, 1 - PRINT "Max attack + 1" - END IF - CASE IS = "boar" - IF magic1 < 2 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic1 = magic1 - 2 - hattack1 = hattack1 + 1 - LOCATE 17, 1 - PRINT "Max attack + 1" - END IF - CASE IS = "roos" - IF magic1 < 2 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic1 = magic1 - 2 - hattack1 = hattack1 + 1 - phydef1 = phydef1 + 1 - LOCATE 17, 1 - PRINT "Max attack + 1; Defense +1" - END IF - CASE IS = "hare" - IF magic1 < 7 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic1 = magic1 - 7 - rhp2 = rhp2 - 7 + magdef2 - LOCATE 17, 1 - END IF - PRINT "Lucky Strike" - CASE IS = "ZodM" - IF magic1 < 10 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic1 = magic1 - 10 - e = INT(RND * 4 + 1) - SELECT CASE e - CASE IS = 1 - rhp2 = rhp2 - 17 + magdef1 - LOCATE 17, 1 - PRINT "Thunder strikes enemy" - CASE IS = 2 - IF magdef2 > hattack1 THEN - LOCATE 17, 1 - PRINT "Opponent's magic defense is too high. Need higher max attack." - ELSE - magic1 = magic1 - 10 - rhp2 = rhp2 - hattack1 + magdef2 - phydef1 = phydef1 + 1 - phydef2 = phydef2 - 1 - rhp1 = rhp1 + (hattack1 - magdef2) * 2 - LOCATE 17, 1 - PRINT "Stole defense. Stole hp." - END IF - CASE IS = 3 - rhp1 = rhp1 + 12 - LOCATE 17, 1 - PRINT "Recover 12" - CASE IS = 4 - phydef1 = phydef1 + 2 - PRINT "Defense +2" - END SELECT - END IF - END SELECT - - - CASE IS = "e" - SELECT CASE rname$ - CASE IS = "ram " - hattack1 = hattack1 - 1 - rhp1 = rhp1 + 10 - LOCATE 17, 1 - PRINT "Recover 10 hp but -1 max attack" - CASE IS = "drag" - IF magic1 < 5 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT not$ - ELSE - rhp1 = rhp1 - 10 - magic1 = magic1 - 8 - rain = INT(RND * 3) - SELECT CASE rain - CASE IS = 0 - rhp2 = rhp2 + 10 + magdef2 - LOCATE 17, 1 - PRINT "Rain heals opponent" - CASE IS = 1 - rhp1 = rhp1 + 25 - magdef2 - LOCATE 17, 1 - PRINT "Dragon recovers life" - CASE IS = 2 - rhp2 = rhp2 - 17 + magdef2 - LOCATE 17, 1 - PRINT "Thunder strikes opponent" - END SELECT - END IF - CASE IS = "hors" - IF magic1 = 0 THEN - magic1 = magic1 + 10 - ELSE magic1 = magic1 + 1 - END IF - LOCATE 17, 1 - PRINT "Magic restore" - CASE IS = "rat " - IF magic1 < 10 THEN - rhp2 = rhp2 - 1 - LOCATE 17, 1 - PRINT not$ - ELSE - IF magdef2 > hattack1 THEN - LOCATE 17, 1 - PRINT "Opponent's magic defense is too high. Need higher max attack." - ELSE - magic1 = magic1 - 10 - rhp2 = rhp2 - hattack1 + magdef2 - phydef1 = phydef1 + 1 - phydef2 = phydef2 - 1 - rhp1 = rhp1 + (hattack1 - magdef2) * 2 - LOCATE 17, 1 - PRINT "Rat attack 1: Stole defense. Stole hp." - END IF - END IF - CASE IS = "ox " - IF magic1 = 0 THEN - magic1 = magic1 + 5 - LOCATE 17, 1 - PRINT "Magic restore" - ELSE - LOCATE 17, 1 - PRINT "Magic restore best works when magic is 0" - END IF - CASE IS = "snak" - IF magic1 < 6 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - 10 - rhp2 = rhp2 - 1 - magic1 = magic1 - 6 - LOCATE 17, 1 - PRINT "Weakening poison" - END IF - CASE IS = "mnky" - IF magic1 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - 5 - rhp2 = rhp2 - phydef2 - phydef1 - LOCATE 17, 1 - PRINT "Defense trick" - END IF - CASE IS = "dog " - phydef2 = phydef2 - 2 - LOCATE 17, 1 - PRINT "Bark: Opponent's defense drop by 2" - CASE IS = "tigr" - IF magic1 < 15 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - 15 - hattack1 = hattack1 + 2 - LOCATE 17, 1 - PRINT "High rage: max attack + 2" - END IF - CASE IS = "boar" - LOCATE 17, 1 - PRINT "EAT" - rhp1 = rhp1 + 5 - magic1 = magic1 + 5 - CASE IS = "roos" - IF magic1 < 20 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - hattack1 = hattack1 * 2 - LOCATE 17, 1 - PRINT "Hyper Rooster: max attack * 2" - magic1 = magic1 - 20 - END IF - CASE IS = "hare" - IF magic1 < 7 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - IF magdef2 < 4 THEN - LOCATE 17, 1 - PRINT "Lucky Strike2" - magic1 = magic1 - 7 - rhp2 = rhp2 - 3 + magdef2 - SLEEP 1 - rhp2 = rhp2 - 3 + magdef2 - SLEEP 1 - rhp2 = rhp2 - 3 + magdef2 - ELSE - LOCATE 17, 1 - PRINT "Opponent's magic defense is too high" - END IF - END IF - END SELECT - CASE IS = "r" - SELECT CASE rname$ - CASE IS = "ram " - LOCATE 17, 1 - PRINT "Normal attack" - rhp2 = rhp2 - INT(RND * hattack1 + lattack1 - phydef2) - CASE IS = "drag" - LOCATE 17, 1 - PRINT "Fireball" - rhp2 = rhp2 - 9 + magdef2 - rhp1 = rhp1 - 5 - CASE IS = "hors" - IF magic1 < 10 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - LOCATE 17, 1 - PRINT "Race" - magic1 = magic1 - 10 - rhp2 = rhp2 - 13 + magdef2 - END IF - CASE IS = "rat " - IF magic2 < 10 THEN - LOCATE 17, 1 - PRINT "Opponent have too little magic." - ELSE - rhp1 = rhp1 - 10 - magic2 = magic2 - 10 + magdef2 - magic1 = magic1 + 10 - magdef2 - magdef2 = magdef2 - 1 - LOCATE 17, 1 - PRINT "Stole magic; Lower opponent's magic defense" - END IF - CASE IS = "ox " - IF magic1 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - 5 - hattack1 = hattack1 + 2 - LOCATE 17, 1 - PRINT "Max attack +2" - END IF - CASE IS = "snak" - IF magic1 < 4 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - 4 - poison = INT(RND * 2 + 1) - IF poison = 1 THEN - phydef2 = phydef2 - 1 - LOCATE 17, 1 - PRINT "Poison: Opponent's defense -1" - ELSE - magdef2 = magdef2 - 1 - LOCATE 17, 1 - PRINT "Poison: Opponent's magic defense -1" - END IF - END IF - CASE IS = "mnky" - IF magic1 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - 5 - LOCATE 17, 1 - PRINT "Dodge: Defense +1; Magic defense +1; Max attack -1" - phydef1 = phydef1 + 1 - magdef1 = magdef1 + 1 - hattack1 = hattack1 - 1 - END IF - CASE IS = "dog " - LOCATE 17, 1 - PRINT "Follower: Copy opponent's normal attack" - rhp2 = rhp2 - INT(RND * hattack2 + lattack2 - phydef2) - CASE IS = "tigr" - hattack1 = hattack1 - 1 - magic1 = magic1 + 8 - LOCATE 17, 1 - PRINT "Cat rest: -1 max attack to itself" - CASE IS = "boar" - IF magic1 < 2 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - LOCATE 17, 1 - PRINT "Fat Slam: magic cut in half and damage = half of magic" - rhp2 = rhp2 - INT(magic1 / 2) + magdef2 - magic1 = INT(magic1 / 2) - END IF - CASE IS = "roos" - IF magic1 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - IF rhp1 > 10 THEN - LOCATE 17, 1 - PRINT "Not sunrise time yet" - ELSE - LOCATE 17, 1 - PRINT "Sunrise" - magic1 = magic1 - 5 - rhp1 = rhp1 - rhp1 + 25 - END IF - END IF - CASE IS = "hare" - luck = INT(RND * 8 + 5) - IF luck > magic1 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - luck - rhp2 = rhp2 - luck + magdef2 - END IF - - END SELECT -END SELECT - - - LOCATE 10, 1 - PRINT SPACE$(120) - LOCATE 10, 20 - PRINT "Hp", rhp2 - LOCATE 10, 5 - PRINT "Hp", rhp1 - LOCATE 15, 5 - PRINT "Magic", magic1 - LOCATE 15, 20 - PRINT "Magic", magic2 - IF rhp1 <= 0 OR rhp2 <= 0 THEN EXIT DO - - -LOCATE 20, 5 -PRINT "PLAYER 2:normal attack", attack21$ -DO -key2$ = INKEY$ -LOOP UNTIL key2$ = "u" OR key2$ = "i" OR key2$ = "o" OR key2$ = "p" -LOCATE 17, 1 -PRINT SPACE$(99) - -SELECT CASE key2$ - CASE IS = "u" - rhp1 = rhp1 - INT(RND * hattack2 + lattack2 - phydef1) - LOCATE 17, 1 - PRINT "Normal attack" - CASE IS = "i" - SELECT CASE rname2$ - CASE IS = "ram " - hattack2 = hattack2 + 2 - LOCATE 17, 1 - PRINT "Max attack + 2" - CASE IS = "drag" - IF magic2 < 4 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - hattack2 = hattack2 + 1 - rhp2 = rhp2 - 3 - magic2 = magic2 - 4 - LOCATE 17, 1 - PRINT "Max atttack + 1" - IF weaponname2$ = "wand " THEN - rhp2 = rhp2 + 4 - END IF - END IF - CASE IS = "hors" - IF magic2 < 5 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - rhp2 = rhp2 + 7 - magic2 = magic2 - 5 - IF weaponname2$ = "cape " THEN - rhp1 = rhp1 + 3 - END IF - - LOCATE 17, 1 - PRINT "Recover 7" - END IF - CASE IS = "rat " - IF magic2 < 50 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - LOCATE 17, 1 - PRINT "Super charge: max attack + 3 and min. attack + 1" - hattack2 = hattack2 + 3 - lattack2 = lattack2 + 1 - magic2 = magic2 - 50 - END IF - CASE IS = "ox " - IF magic2 < 5 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - LOCATE 17, 1 - PRINT "Min. attack + 1" - magic2 = magic2 - 5 - lattack2 = lattack2 + 1 - IF weaponname$ = "shiel" THEN - magic1 = magic1 + 5 - END IF - - END IF - CASE IS = "snak" - IF magic2 < 20 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - LOCATE 17, 1 - PRINT "Venom bite. -1 max and min. attack to itself" - magic2 = magic2 - 20 - lattack2 = lattack2 - 1 - hattack2 = hattack2 - 1 - rhp1 = rhp1 - 15 + magdef2 - IF weaponname2$ = "cape " THEN - hattack2 = hattack2 + 1 - END IF - - END IF - CASE IS = "mnky" - IF magic2 < 5 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic2 = magic2 - 5 - phydef2 = phydef2 + 1 - rhp2 = rhp2 + 7 - magdef1 - LOCATE 17, 1 - PRINT "Defense +1;Recovers 7 -", magdef1 - IF weaponname2$ = "glove" THEN - rhp2 = rhp2 + magdef1 - END IF - END IF - CASE IS = "dog " - phydef2 = phydef2 + 2 - LOCATE 17, 1 - PRINT "Defense +2" - CASE IS = "tigr" - IF magic2 < 5 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic2 = magic2 - 5 - hattack2 = hattack2 + 1 - LOCATE 17, 1 - PRINT "Max attack + 1" - END IF - CASE IS = "boar" - IF magic2 < 2 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic2 = magic2 - 2 - hattack2 = hattack2 + 1 - LOCATE 17, 1 - PRINT "Max attack + 1" - END IF - CASE IS = "roos" - IF magic2 < 2 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic2 = magic2 - 2 - hattack2 = hattack2 + 1 - phydef2 = phydef2 + 1 - LOCATE 17, 1 - PRINT "Max attack + 1;Defense +1" - END IF - CASE IS = "hare" - IF magic2 < 7 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic2 = magic2 - 7 - rhp1 = rhp1 - 7 + magdef1 - LOCATE 17, 1 - PRINT "Lucky Strike" - END IF - CASE IS = "ZodM" - IF magic2 < 10 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT "Not enough magic" - ELSE - magic2 = magic2 - 10 - e = INT(RND * 4 + 1) - SELECT CASE e - CASE IS = 1 - rhp1 = rhp1 - 17 + magdef1 - LOCATE 17, 1 - PRINT "Thunder strikes enemy" - CASE IS = 2 - IF magdef1 > hattack2 THEN - LOCATE 17, 1 - PRINT "Opponent's magic defense is too high. Need higher max attack." - ELSE - magic2 = magic2 - 10 - rhp1 = rhp1 - hattack2 + magdef1 - phydef2 = phydef2 + 1 - phydef1 = phydef1 - 1 - rhp2 = rhp2 + (hattack2 - magdef1) * 2 - LOCATE 17, 1 - PRINT "Stole defense. Stole hp." - END IF - CASE IS = 3 - rhp2 = rhp2 + 12 - LOCATE 17, 1 - PRINT "Recover 12" - CASE IS = 4 - phydef1 = phydef1 + 2 - PRINT "Defense +2" - END SELECT - END IF - - - END SELECT - - CASE IS = "o" - SELECT CASE rname2$ - CASE IS = "ram " - hattack2 = hattack2 - 1 - rhp2 = rhp2 + 10 - LOCATE 17, 1 - PRINT "Recover 10 hp but -1 max attack" - CASE IS = "drag" - IF magic2 < 5 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT not$ - ELSE - rhp2 = rhp2 - 10 - magic2 = magic2 - 8 - rain = INT(RND * 3) - SELECT CASE rain - CASE IS = 0 - rhp1 = rhp1 + 10 + magdef1 - LOCATE 17, 1 - PRINT "Rain heals opponent" - CASE IS = 1 - rhp2 = rhp2 + 25 - magdef1 - LOCATE 17, 1 - PRINT "Dragon recovers life" - CASE IS = 2 - rhp1 = rhp1 - 17 + magdef1 - LOCATE 17, 1 - PRINT "Thunder strikes opponent" - END SELECT - END IF - CASE IS = "hors" - IF magic2 = 0 THEN - magic2 = magic2 + 10 - ELSE magic2 = magic2 + 1 - END IF - LOCATE 17, 1 - PRINT "Magic restore" - CASE IS = "rat " - IF magic2 < 10 THEN - rhp1 = rhp1 - 1 - LOCATE 17, 1 - PRINT not$ - ELSE - IF magdef1 > hattack2 THEN - LOCATE 17, 1 - PRINT "Opponent's magic defense is too high. Need higher max attack." - ELSE - magic2 = magic2 - 10 - rhp1 = rhp1 - hattack2 + magdef1 - phydef2 = phydef2 + 1 - phydef1 = phydef1 - 1 - rhp2 = rhp2 + (hattack2 - magdef1) * 2 - LOCATE 17, 1 - PRINT "Rat attack 1: Stole defense. Stole hp." - END IF - END IF - CASE IS = "ox " - IF magic2 = 0 THEN - magic2 = magic2 + 5 - LOCATE 17, 1 - PRINT "Magic restore" - ELSE - LOCATE 17, 1 - PRINT "Magic restore best works when magic is 0" - END IF - CASE IS = "snak" - IF magic2 < 6 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic1 = magic1 - 10 - rhp1 = rhp1 - 1 - magic2 = magic2 - 6 - LOCATE 17, 1 - PRINT "Weakening poison" - END IF - CASE IS = "mnky" - IF magic2 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - 5 - rhp1 = rhp1 - phydef1 - phydef2 - LOCATE 17, 1 - PRINT "Defense trick" - END IF - CASE IS = "dog " - phydef1 = phydef1 - 1 - LOCATE 17, 1 - PRINT "Bark: Opponent's defense drop by 2" - CASE IS = "tigr" - IF magic2 < 15 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - 15 - hattack2 = hattack2 + 2 - LOCATE 17, 1 - PRINT "High rage: max attack + 2" - END IF - CASE IS = "boar" - LOCATE 17, 1 - PRINT "EAT" - rhp2 = rhp2 + 5 - magic2 = magic2 + 5 - CASE IS = "roos" - IF magic2 < 20 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - hattack2 = hattack2 * 2 - LOCATE 17, 1 - PRINT "Hyper Rooster: max attack * 2" - magic2 = magic2 - 20 - END IF - CASE IS = "hare" - IF magic2 < 7 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - IF magdef1 < 4 THEN - LOCATE 17, 1 - PRINT "Lucky Strike2" - magic2 = magic2 - 7 - rhp1 = rhp1 - 3 + magdef1 - SLEEP 1 - rhp1 = rhp1 - 3 + magdef1 - SLEEP 1 - rhp1 = rhp1 - 3 + magdef1 - ELSE - LOCATE 17, 1 - PRINT "Opponent's magic defense is too high" - END IF - END IF - END SELECT - CASE IS = "p" - SELECT CASE rname2$ - CASE IS = "ram " - LOCATE 17, 1 - PRINT "Normal attack" - rhp1 = rhp1 - INT(RND * hattack2 + lattack2 - phydef1) - CASE IS = "drag" - LOCATE 17, 1 - PRINT "Fireball" - rhp1 = rhp1 - 9 + magdef1 - rhp2 = rhp2 - 5 - CASE IS = "hors" - IF magic2 < 10 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - LOCATE 17, 1 - PRINT "Race" - magic2 = magic2 - 10 - rhp1 = rhp1 - 13 + magdef1 - END IF - CASE IS = "rat " - IF magic1 < 10 THEN - LOCATE 17, 1 - PRINT "Opponent have too little magic." - ELSE - - rhp2 = rhp2 - 10 - magic1 = magic1 - 10 + magdef1 - magic2 = magic2 + 10 - magdef1 - magdef1 = magdef1 - 1 - LOCATE 17, 1 - PRINT "Stole magic; Lower opponent's magic defense" - END IF - CASE IS = "ox " - IF magic2 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - 5 - hattack2 = hattack2 + 2 - LOCATE 17, 1 - PRINT "Max attack +2" - END IF - CASE IS = "snak" - IF magic2 < 4 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - 4 - poison = INT(RND * 2 + 1) - IF poison = 1 THEN - phydef1 = phydef1 - 1 - LOCATE 17, 1 - PRINT "Poison: Opponent's defense -1" - ELSE - magdef1 = magdef1 - 1 - LOCATE 17, 1 - PRINT "Poison: Opponent's magic defense -1" - END IF - END IF - CASE IS = "mnky" - IF magic2 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - 5 - LOCATE 17, 1 - PRINT "Dodge: Defense +1; Magic defense +1; Max attack -1" - phydef2 = phydef2 + 1 - magdef2 = magdef2 + 1 - hattack2 = hattack2 - 1 - END IF - CASE IS = "dog " - LOCATE 17, 1 - PRINT "Follower: Copy opponent's normal attack" - rhp1 = rhp1 - INT(RND * hattack1 + lattack1 - phydef1) - CASE IS = "tigr" - hattack2 = hattack2 - 1 - magic2 = magic2 + 8 - LOCATE 17, 1 - PRINT "Cat rest: -1 max attack to itself" - CASE IS = "boar" - IF magic2 < 2 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - LOCATE 17, 1 - PRINT "Fat Slam: magic cut in half and damage = half of magic" - rhp1 = rhp1 - INT(magic2 / 2) + magdef1 - magic2 = INT(magic2 / 2) - END IF - CASE IS = "roos" - IF magic2 < 5 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - IF rhp2 > 10 THEN - LOCATE 17, 1 - PRINT "Not sunrise time yet" - ELSE - LOCATE 17, 1 - PRINT "Sunrise" - magic2 = magic2 - 5 - rhp2 = rhp2 - rhp2 + 25 - END IF - END IF - CASE IS = "hare" - luck = INT(RND * 8 + 5) - IF luck > magic2 THEN - LOCATE 17, 1 - PRINT not$ - ELSE - magic2 = magic2 - luck - rhp1 = rhp1 - luck + magdef1 - END IF - - END SELECT - -END SELECT - LOCATE 10, 1 - PRINT SPACE$(120) - LOCATE 10, 20 - PRINT "Hp", rhp2 - LOCATE 10, 5 - PRINT "Hp", rhp1 - LOCATE 15, 5 - PRINT "Magic", magic1 - LOCATE 15, 20 - PRINT "Magic", magic2 -LOOP -IF rhp1 < 1 THEN -LOCATE 18, 1 -PRINT "PLAYER 2 wins with", rname2$ -ELSE -IF rhp2 < 1 THEN -LOCATE 18, 1 -PRINT "PLAYER 1 wins with", rname$ -END IF -END IF -SLEEP -LOOP -rDATA: -DATA "ram 40 00 03 04 1 3" -DATA "drag 90 40 02 02 1 1" -DATA "hors 40 10 05 03 1 1" -DATA "rat 20 90 04 02 0 5" -DATA "ox 60 5 07 02 2 1" -DATA "snak 30 30 05 05 0 1" -DATA "mnky 25 50 03 02 3 2" -DATA "dog 35 00 04 04 0 0" -DATA "tigr 50 40 02 06 0 1" -DATA "boar 55 10 03 05 2 0" -DATA "roos 25 40 03 02 1 2" -DATA "hare 22 77 11 00 3 3" -DATA "ZodM 60 50 17 05 2 2" - - -instructions: -CLS -PLAY "MB<>" -LOCATE 2, 2 -PRINT "INSTRUCTIONS" -PRINT " SELECT animal" -PRINT " Enter a number from 0 to 12 (0 = random)" -PRINT " Player 2 select animal" -PRINT " Battling" -PRINT " For Player 1, use q,w,e,r to select a move for your animal" -PRINT " For Player 2, use u,i,o,p to select a move for your animal" -PRINT " q and u is the normal attack for all animals" -PRINT " Damage Calculations" -PRINT " Normal attack: max. attack * random number(0-1) + min.attack" -PRINT " - opponent's defense" -PRINT " Special attacks depend on the move subtract opponent's magic defense" -PRINT " Most specials cost magic. If not enough magic, does nothing or does" -PRINT " 1 damage" -PRINT " Weapons" -PRINT " You can select weapons using the numbers 1 - 7. Go to weapon section" -PRINT " for more details." -PRINT " Winning" -PRINT " Lower your opponents hp to 0 or less" -PRINT " To Quit" -PRINT " Press 'x'" -DO -key$ = INKEY$ -LOOP UNTIL key$ <> "" -IF key$ <> "" THEN -GOSUB title -END IF - -weapond: -CLS -PRINT "WEAPONS" -PRINT " Here is the weapon data chart:" -PRINT "sword 00 -5 04 02 00" -PRINT "mace 00 -5 03 03 00" -PRINT "wand 10 10 00 00 03" -PRINT "glove 05 05 02 02 02" -PRINT "shiel 05 -9 00 04 02" -PRINT "cape 20 05 00 01 01" -PRINT "bow 10 05 02 01 01" -PRINT " Here is how you read the chart:" -PRINT "name,+life,+magic,+max attack,+defense,+magicdefense" -PRINT "Weapons don't just do what you see here. There are more secrets" -PRINT "that'll be kept hidden. See if you could NOTICE some of the secrets" -PRINT "during battle. Secrets only work to certain animals and certain weapons" -PRINT "Clue: Usually a secret ativates when you use the first special move(w or i)" -DO -wkey$ = INKEY$ -LOOP UNTIL wkey$ <> "" -GOSUB title -animaldata: -DO -DO -CLS -RESTORE rDATA -FOR count = 1 TO 13 -READ r$(count) -NEXT count - -LOCATE 2, 2 -INPUT "Enter Code:", dnumber -LOOP UNTIL 0 < dnumber AND dnumber < 14 - -dname$ = LEFT$(r$(dnumber), 4) -rhp = VAL(MID$(r$(dnumber), 5, 3)) - -magic = VAL(MID$(r$(dnumber), 9, 2)) - -hattack = VAL(MID$(r$(dnumber), 12, 2)) - -lattack = VAL(MID$(r$(dnumber), 15, 2)) - -phydef = VAL(MID$(r$(dnumber), 18, 1)) - -magdef = VAL(MID$(r$(dnumber), 20, 1)) - -SELECT CASE dname$ - CASE IS = "ram " - description$ = "Can charge up max attack fast and could heal too." - CASE IS = "dragon" - description$ = "Have highest life but low attack. Wide range of magic but hurts itself." - CASE IS = "hors" - description$ = "Have good healing skills and a powerful move too." - CASE IS = "rat " - description$ = "Really low life but could steal life and stats from opponent." - CASE IS = "ox " - description$ = "High life and depend only on its normal attack." - CASE IS = "snak" - description$ = "Great range of poisonous attacks that'll surprise the opponent." - CASE IS = "mnky" - description$ = "Very defensive and could use the opponents' defense against them." - CASE IS = "dog " - description$ = "Lots of moves that changes defense." - CASE IS = "tigr" - description$ = "Start out strong but could get stronger." - CASE IS = "boar" - description$ = "The more you eat, the better is your Fat Slam!" - CASE IS = "roos" - description$ = "Start out weak but could charge up and could restore full life." - CASE IS = "hare" - description$ = "Highest defense and depends on luck" - CASE IS = "ZodM" - description$ = "Can only be used if you chose random. Have the strongest moves from animals." - END SELECT - - -LOCATE 3, 3 -PRINT "Name of animal:", dname$ -PRINT " Max life:", rhp -PRINT " Max magic:", magic -PRINT " Max attack:", hattack -PRINT " Min attack:", lattack -PRINT " Defense:", phydef -PRINT " Magic Defense:", magdef -PRINT " " -PRINT description$ -LOCATE 20, 10 -PRINT "Press 'd' to check another animal" -PRINT "Press 'x' to exit" -SLEEP -key$ = INKEY$ -LOOP WHILE key$ = "d" -GOSUB title - -weaponDATA: -DATA "sword 00 -5 04 02 00" -DATA "mace 00 -5 03 03 00" -DATA "wand 10 10 00 00 03" -DATA "glove 05 05 02 02 02" -DATA "shiel 05 -9 00 04 02" -DATA "cape 20 05 00 01 01" -DATA "bow 10 05 02 01 01" - -endsection: -CLS -PRINT "Game created by Paulunknown" -PRINT "Thanks for playing. Please give me some comments on this." -PRINT " " -PRINT "Also, I wish I could get some graphics in this game but I barely know" -PRINT "the basics of creating pictures. I really need some help on that." -PRINT " " -PRINT "Feel free to tell a friend about this or send it to them. This is " -PRINT "probably my first game." -SLEEP -END \ No newline at end of file diff --git a/programs/samples/qb45com/action/4pong.bas b/programs/samples/qb45com/action/4pong.bas deleted file mode 100644 index 47fc5a107..000000000 --- a/programs/samples/qb45com/action/4pong.bas +++ /dev/null @@ -1,1909 +0,0 @@ -SCREEN 12 -RANDOMIZE TIMER -GOSUB title -WIDTH 80, 60 -DIM tx(2 TO 16) AS INTEGER -DIM ty(2 TO 16) AS INTEGER -DIM itemx(1, 15) AS INTEGER -DIM itemy(1, 15) AS INTEGER -DIM demoitemx(1, 15) AS INTEGER -DIM demoitemy(1, 15) AS INTEGER -DIM symbolx(1 TO 30) AS INTEGER -DIM symboly(1 TO 30) AS INTEGER -DIM symbolt(1 TO 30) AS INTEGER -DIM symbolc(1 TO 30) AS INTEGER -DIM stime(1 TO 30) AS INTEGER -FOR i = 1 TO 15 -demoitemx(1, i) = INT(RND * 74) + 14 -demoitemy(1, i) = INT(RND * 74) + 14 -NEXT i -speed& = 1 -pad& = 1 -scoret& = 4 -max& = 100 -dir& = 1 -it1& = 1 -it2& = 1 -it3& = 1 -it4& = 1 -it5& = 1 -it6& = 1 -it7& = 1 -it8& = 1 -ballx& = 50 -bally& = 10 -ballxs& = INT(RND * 2) + 1 -ballys& = INT(RND * 2) + 1 -pad1& = 50 -pad2& = 50 -pad3& = 50 -pad4& = 50 -p1& = 1 -p2& = 1 -p3& = 1 -p4& = 1 -co& = 1 -items& = 1 -it& = 15 -GOTO start -new: -x& = 240 -y& = 240 -xs& = 0 -ys& = 0 -a& = speed& -IF p1& = 0 THEN ly1& = 57 ELSE ly1& = 1 -IF p2& = 0 THEN lx1& = 57 ELSE lx1& = 1 -IF p3& = 0 THEN ly2& = 423 ELSE ly2& = 479 -IF p4& = 0 THEN lx2& = 423 ELSE lx2& = 479 -started& = 1 -IF items& = 0 THEN it& = 0 -IF p1& = 7 THEN p1& = INT(RND * 5) + 2 -IF p2& = 7 THEN p2& = INT(RND * 5) + 2 -IF p3& = 7 THEN p3& = INT(RND * 5) + 2 -IF p4& = 7 THEN p4& = INT(RND * 5) + 2 -p1hyper& = 0 -p2hyper& = 0 -p3hyper& = 0 -p4hyper& = 0 -p1descore& = 0 -p2descore& = 0 -p3descore& = 0 -p4descore& = 0 -IF scoret& = 3 OR scoret& = 6 THEN - p1descore& = max& - p2descore& = max& - p3descore& = max& - p4descore& = max& -END IF -IF p1& = 0 THEN p1descore& = -2000000000 -IF p2& = 0 THEN p2descore& = -2000000000 -IF p3& = 0 THEN p3descore& = -2000000000 -IF p4& = 0 THEN p4descore& = -2000000000 -p1score& = p1descore& -p2score& = p2descore& -p3score& = p3descore& -p4score& = p4descore& -p1des& = 240 -p2des& = 240 -p3des& = 240 -p4des& = 240 -p1pad& = 240 -p2pad& = 240 -p3pad& = 240 -p4pad& = 240 -p1size& = 0 -p2size& = 0 -p3size& = 0 -p4size& = 0 -p1desize& = 25 -p2desize& = 25 -p3desize& = 25 -p4desize& = 25 -p1dir& = 0 -p2dir& = 0 -p3dir& = 0 -p4dir& = 0 -p1scores& = 0 -p2scores& = 0 -p3scores& = 0 -p4scores& = 0 -p1speed& = pad& * 7 -p2speed& = pad& * 7 -p3speed& = pad& * 7 -p4speed& = pad& * 7 -center& = 0 -serve& = 5 -colo& = INT(RND * 5) + 1 -FOR i = 1 TO it& -itemx(1, i) = INT(RND * 340) + 70 -itemy(1, i) = INT(RND * 340) + 70 -NEXT i -retrylast: -lasthit& = INT(RND * 4) + 1 -IF lasthit& = 1 AND p1& = 0 THEN GOTO retrylast -IF lasthit& = 2 AND p2& = 0 THEN GOTO retrylast -IF lasthit& = 3 AND p3& = 0 THEN GOTO retrylast -IF lasthit& = 4 AND p4& = 0 THEN GOTO retrylast -finished& = 0 -subtract& = 0 -startedd& = TIMER -FOR i = 1 TO 30 -stime(i) = 0 -NEXT i -restart: -CLS -IF p1& > 1 THEN p1com& = 1 ELSE p1com& = 0 -IF p1& > 1 THEN p1ac& = (6 - p1&) * 20 -IF p1& > 1 THEN p1ai& = p1& * 80 -IF p2& > 1 THEN p2com& = 1 ELSE p2com& = 0 -IF p2& > 1 THEN p2ac& = (6 - p2&) * 20 -IF p2& > 1 THEN p2ai& = p2& * 80 -IF p3& > 1 THEN p3com& = 1 ELSE p3com& = 0 -IF p3& > 1 THEN p3ac& = (6 - p3&) * 20 -IF p3& > 1 THEN p3ai& = p3& * 80 -IF p4& > 1 THEN p4com& = 1 ELSE p4com& = 0 -IF p4& > 1 THEN p4ac& = (6 - p4&) * 20 -IF p4& > 1 THEN p4ai& = p4& * 80 -GOSUB draww -scombo& = 0 -CLS -VIEW SCREEN (lx1&, ly1&)-(lx2&, ly2&) -DO - -'IF delay& < 0 THEN delay& = 0 -'FOR i = 1 TO delay& -'NEXT i -_DELAY 0.03 + DELAY& / 10000 - - -finished& = TIMER -IF max& > 0 AND (scoret& = 3 OR scoret& = 6) THEN - IF p1& > 0 THEN players& = players& + 1 - IF p2& > 0 THEN players& = players& + 1 - IF p3& > 0 THEN players& = players& + 1 - IF p4& > 0 THEN players& = players& + 1 - IF p1descore& < 1 AND p1& > 0 THEN - p1& = 0 - p1descore& = -players& - ly1& = 57 - serve& = 5 - GOSUB centerserve - VIEW - CLS - GOSUB draww - ELSEIF p2descore& < 1 AND p2& > 0 THEN - p2& = 0 - p2descore& = -players& - lx1& = 57 - serve& = 5 - GOSUB centerserve - VIEW - CLS - GOSUB draww - ELSEIF p3descore& < 1 AND p3& > 0 THEN - p3& = 0 - p3descore& = -players& - ly2& = 423 - serve& = 5 - GOSUB centerserve - VIEW - CLS - GOSUB draww - ELSEIF p4descore& < 1 AND p4& > 0 THEN - p4& = 0 - p4descore& = -players& - lx2& = 423 - serve& = 5 - GOSUB centerserve - VIEW - CLS - GOSUB draww - END IF - IF players& = 1 THEN GOTO theend - players& = 0 -ELSE - IF (p1descore& > max& - 1 OR p2descore& > max& - 1 OR p3descore& > max& - 1 OR p4descore& > max& - 1) AND max& > 0 THEN GOTO theend -END IF -IF p1score& <> p1descore& AND p1& > 0 THEN - FOR i = 1 TO CLNG(ABS(p1descore& - p1score&) / 10) + 1 - IF p1descore& - p1score& > 0 THEN p1score& = p1score& + 1 - IF p1descore& - p1score& < 0 THEN p1score& = p1score& - 1 - NEXT i - SOUND 1000, .1 - GOSUB draww -ELSEIF p2score& <> p2descore& AND p2& > 0 THEN - FOR i = 1 TO CLNG(ABS(p2descore& - p2score&) / 10) + 1 - IF p2descore& - p2score& > 0 THEN p2score& = p2score& + 1 - IF p2descore& - p2score& < 0 THEN p2score& = p2score& - 1 - NEXT i - SOUND 1000, .1 - GOSUB draww -ELSEIF p3score& <> p3descore& AND p3& > 0 THEN - FOR i = 1 TO CLNG(ABS(p3descore& - p3score&) / 10) + 1 - IF p3descore& - p3score& > 0 THEN p3score& = p3score& + 1 - IF p3descore& - p3score& < 0 THEN p3score& = p3score& - 1 - NEXT i - SOUND 1000, .1 - GOSUB draww -ELSEIF p4score& <> p4descore& AND p4& > 0 THEN - FOR i = 1 TO CLNG(ABS(p4descore& - p4score&) / 10) + 1 - IF p4descore& - p4score& > 0 THEN p4score& = p4score& + 1 - IF p4descore& - p4score& < 0 THEN p4score& = p4score& - 1 - NEXT i - SOUND 1000, .1 - GOSUB draww -END IF - -IF p1size& > p1desize& THEN p1size& = p1size& - 1 -IF p1size& < p1desize& THEN p1size& = p1size& + 1 -IF p2size& > p2desize& THEN p2size& = p2size& - 1 -IF p2size& < p2desize& THEN p2size& = p2size& + 1 -IF p3size& > p3desize& THEN p3size& = p3size& - 1 -IF p3size& < p3desize& THEN p3size& = p3size& + 1 -IF p4size& > p4desize& THEN p4size& = p4size& - 1 -IF p4size& < p4desize& THEN p4size& = p4size& + 1 - -IF scombo& > -1 THEN - IF scombo& > 0 THEN COLOR 3 ELSE COLOR 0 - LOCATE 30, 30: PRINT combo& - scombo& = scombo& - 1 -END IF - -IF ABS(xs&) < 8 AND ABS(ys&) < 8 AND serve& = 0 THEN - IF ABS(xs&) > ABS(ys&) THEN - IF xs& > 0 THEN - IF ys& > 0 THEN ys& = ys& + (8 / xs&) - IF ys& < 0 THEN ys& = ys& - xs& - xs& = 8 - ELSEIF xs& < 0 THEN - IF ys& > 0 THEN ys& = ys& + (8 / ABS(xs&)) - IF ys& < 0 THEN ys& = ys& - (8 / ABS(xs&)) - xs& = -8 - END IF - ELSEIF ABS(xs&) < ABS(ys&) THEN - IF ys& > 0 THEN - IF xs& > 0 THEN xs& = xs& + (8 / ys&) - IF xs& < 0 THEN xs& = xs& - (8 / ys&) - ys& = 8 - ELSEIF ys& < 0 THEN - IF xs& > 0 THEN xs& = xs& + (8 / ABS(ys&)) - IF xs& < 0 THEN xs& = xs& - (8 / ABS(ys&)) - ys& = -8 - END IF - ELSEIF ABS(xs&) = ABS(ys&) AND xs& <> 0 THEN - IF xs& > 0 THEN xs& = 8 - IF xs& < 0 THEN xs& = -8 - IF ys& > 0 THEN ys& = 8 - IF ys& < 0 THEN ys& = -8 - END IF -END IF - -FOR ba = 1 TO a& - -IF x& < 65 AND xs& = 0 THEN xs& = -1 -IF x& > 415 AND xs& = 0 THEN xs& = 1 -IF y& < 65 AND ys& = 0 THEN ys& = -1 -IF y& > 415 AND ys& = 0 THEN ys& = 1 - -IF serve& = 1 THEN - x& = p1pad& - y& = 13 -ELSEIF serve& = 2 THEN - x& = 13 - y& = p2pad& -ELSEIF serve& = 3 THEN - x& = p3pad& - y& = 467 -ELSEIF serve& = 4 THEN - x& = 467 - y& = p4pad& -END IF - -IF serve& > 0 THEN xs& = 0 -IF serve& > 0 THEN ys& = 0 - -x& = x& + xs& -y& = y& + ys& - -IF x& < 60 AND y& < 60 AND p1& > 0 AND p2& > 0 THEN - FOR i = 1 TO 60 - IF (x& - 3) < i AND y& - 3 < (60 - i) THEN - SWAP xs&, ys& - xs& = -xs& - ys& = -ys& - IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1 - x& = i + 3 - y& = 63 - i - SOUND 750, .1 - END IF - NEXT i -END IF -IF x& < 60 AND y& > 420 AND p2& > 0 AND p3& > 0 THEN - FOR i = 1 TO 60 - IF (x& - 3) < i AND (y& + 3) > (420 + i) THEN - SWAP xs&, ys& - IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1 - x& = i + 3 - y& = 417 + i - SOUND 750, .1 - END IF - NEXT i -END IF -IF x& > 420 AND y& < 60 AND p4& > 0 AND p1& > 0 THEN - FOR i = 1 TO 60 - IF (x& + 3) > (480 - i) AND (y& - 3) < (60 - i) THEN - SWAP xs&, ys& - IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1 - x& = 477 - i - y& = 63 - i - SOUND 750, .1 - END IF - NEXT i -END IF -IF x& > 420 AND y& > 420 AND p3& > 0 AND p4& > 0 THEN - FOR i = 1 TO 60 - IF (x& + 3) > (480 - i) AND (y& + 3) > (420 + i) THEN - SWAP xs&, ys& - xs& = -xs& - ys& = -ys& - IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1 - x& = 477 - i - y& = 417 + i - SOUND 750, .1 - END IF - NEXT i -END IF -IF countdown& > 0 THEN countdown& = countdown& - 1 -FOR i = 1 TO it& -IF it1& = 0 AND it2& = 0 AND it3& = 0 AND it4& = 0 AND it5& = 0 AND it6& = 0 AND it7& = 0 AND it8& = 0 THEN EXIT FOR -IF x& < itemx(1, i) + 9 AND x& > itemx(1, i) - 9 AND y& < itemy(1, i) + 9 AND y& > itemy(1, i) - 9 THEN - IF hit& = i AND countdown& > 0 THEN GOTO endder - hit& = i - countdown& = 20 - GOSUB item -END IF -endder: -NEXT i -IF y& < 60 AND p1& = 0 THEN - ys& = -ys& - IF ys& = 0 THEN ys& = 1 - y& = 60 - SOUND 500, .1 -ELSEIF x& < 60 AND p2& = 0 THEN - xs& = -xs& - IF xs& = 0 THEN xs& = 1 - x& = 60 - SOUND 500, .1 -ELSEIF y& > 420 AND p3& = 0 THEN - ys& = -ys& - IF ys& = 0 THEN ys& = -1 - y& = 420 - SOUND 500, .1 -ELSEIF x& > 420 AND p4& = 0 THEN - xs& = -xs& - IF xs& = 0 THEN xs& = -1 - x& = 420 - SOUND 500, .1 -END IF -IF y& < 8 AND ((x& > (p1pad& - p1size&) AND x& < (p1pad& + p1size&)) OR p1hyper& > 0) THEN - ys& = INT(RND * 8) + 1 - IF xs& = 0 THEN xs& = INT(RND * 17) - 8 - lasthit& = 1 - IF p1hyper& = 1 THEN p1hyper& = 0 - y& = 8 - GOSUB universal -ELSEIF x& < 8 AND ((y& > (p2pad& - p2size&) AND y& < (p2pad& + p2size&)) OR p2hyper& > 0) THEN - xs& = INT(RND * 8) + 1 - IF ys& = 0 THEN ys& = INT(RND * 17) - 8 - lasthit& = 2 - IF p2hyper& = 1 THEN p2hyper& = 0 - x& = 8 - GOSUB universal -ELSEIF y& > 472 AND ((x& > (p3pad& - p3size&) AND x& < (p3pad& + p3size&)) OR p3hyper& > 0) THEN - ys& = -(INT(RND * 8) + 1) - IF xs& = 0 THEN xs& = INT(RND * 17) - 8 - lasthit& = 3 - IF p3hyper& = 1 THEN p3hyper& = 0 - y& = 472 - GOSUB universal -ELSEIF x& > 472 AND ((y& > (p4pad& - p4size&) AND y& < (p4pad& + p4size&)) OR p4hyper& > 0) THEN - xs& = -(INT(RND * 8) + 1) - IF ys& = 0 THEN ys& = INT(RND * 17) - 8 - lasthit& = 4 - IF p4hyper& = 1 THEN p4hyper& = 0 - x& = 472 - GOSUB universal -END IF -IF y& < 0 AND p1& > 0 THEN GOSUB score1 -IF x& < 0 AND p2& > 0 THEN GOSUB score2 -IF y& > 480 AND p3& > 0 THEN GOSUB score3 -IF x& > 480 AND p4& > 0 THEN GOSUB score4 -NEXT ba - -PSET (tx(16), ty(16)), 0 -PSET (tx(15), ty(15)), 8 -PSET (tx(14), ty(14)), 8 -PSET (tx(13), ty(13)), 7 -PSET (tx(12), ty(12)), 7 -PSET (tx(11), ty(11)), 4 -CIRCLE (tx(10), ty(10)), 1, 0 -PSET (tx(10), ty(10)), 4 -CIRCLE (tx(9), ty(9)), 1, 4 -CIRCLE (tx(8), ty(8)), 1, 4 -CIRCLE (tx(7), ty(7)), 1, 4 -CIRCLE (tx(6), ty(6)), 1, 12 -CIRCLE (tx(5), ty(5)), 1, 12 -CIRCLE (tx(4), ty(4)), 2, 0 -CIRCLE (tx(4), ty(4)), 1, 12 -CIRCLE (tx(3), ty(3)), 2, 4 -CIRCLE (tx(3), ty(3)), 1, 14 -CIRCLE (tx(2), ty(2)), 3, 0 -CIRCLE (tx(2), ty(2)), 2, 4 -CIRCLE (tx(2), ty(2)), 1, 14 -PSET (tx(2) - 1, ty(2) - 1), 0 -PSET (tx(2) + 1, ty(2) - 1), 0 -PSET (tx(2) - 1, ty(2) + 1), 0 -PSET (tx(2) + 1, ty(2) + 1), 0 -LINE (x& - 1, y& - 1)-(x& + 1, y& + 1), 14, BF -CIRCLE (x&, y&), 2, 12 -CIRCLE (x&, y&), 3, 4 - -FOR i = 16 TO 3 STEP -1 -tx(i) = tx(i - 1) -ty(i) = ty(i - 1) -NEXT i -tx(2) = x& -ty(2) = y& - -IF p1& > 0 AND p1dir& = 2 THEN p1pad& = p1pad& - p1speed& -IF p1& > 0 AND p1dir& = 1 THEN p1pad& = p1pad& + p1speed& -IF p2& > 0 AND p2dir& = 2 THEN p2pad& = p2pad& - p2speed& -IF p2& > 0 AND p2dir& = 1 THEN p2pad& = p2pad& + p2speed& -IF p3& > 0 AND p3dir& = 2 THEN p3pad& = p3pad& - p3speed& -IF p3& > 0 AND p3dir& = 1 THEN p3pad& = p3pad& + p3speed& -IF p4& > 0 AND p4dir& = 2 THEN p4pad& = p4pad& - p4speed& -IF p4& > 0 AND p4dir& = 1 THEN p4pad& = p4pad& + p4speed& - -IF p1hyper& > 0 THEN - IF serve& = 0 AND p1hyper& > 1 THEN p1hyper& = p1hyper& - 1 - IF ys& < 0 THEN p1pad& = x& -END IF -IF p2hyper& > 0 THEN - IF serve& = 0 AND p2hyper& > 1 THEN p2hyper& = p2hyper& - 1 - IF xs& < 0 THEN p2pad& = y& -END IF -IF p3hyper& > 0 THEN - IF serve& = 0 AND p3hyper& > 1 THEN p3hyper& = p3hyper& - 1 - IF ys& > 0 THEN p3pad& = x& -END IF -IF p4hyper& > 0 THEN - IF serve& = 0 AND p4hyper& > 1 THEN p4hyper& = p4hyper& - 1 - IF xs& > 0 THEN p4pad& = y& -END IF - -IF (p1pad& - p1size&) < 60 THEN p1pad& = (60 + p1size&) -IF (p1pad& + p1size&) > 420 THEN p1pad& = (420 - p1size&) -IF (p2pad& - p2size&) < 60 THEN p2pad& = (60 + p2size&) -IF (p2pad& + p2size&) > 420 THEN p2pad& = (420 - p2size&) -IF (p3pad& - p3size&) < 60 THEN p3pad& = (60 + p3size&) -IF (p3pad& + p3size&) > 420 THEN p3pad& = (420 - p3size&) -IF (p4pad& - p4size&) < 60 THEN p4pad& = (60 + p4size&) -IF (p4pad& + p4size&) > 420 THEN p4pad& = (420 - p4size&) - -FOR i = 1 TO it& -IF it1& = 0 AND it2& = 0 AND it3& = 0 AND it4& = 0 AND it5& = 0 AND it6& = 0 AND it7& = 0 AND it8& = 0 THEN EXIT FOR -IF items& = 0 THEN EXIT FOR -LINE (itemx(1, i) - 2, itemy(1, i) - 2)-(itemx(1, i) + 2, itemy(1, i) + 2), colo&, B -LINE (itemx(1, i) - 1, itemy(1, i) - 1)-(itemx(1, i) + 1, itemy(1, i) + 1), colo& + 8, B -PSET (itemx(1, i), itemy(1, i)), 15 -NEXT i -FOR i = 1 TO 30 -IF stime(i) > 0 THEN - IF symbolt(i) = 3 OR symbolt(i) = 4 OR symbolt(i) = 5 OR symbolt(i) = 8 OR symbolt(i) = 9 OR symbolt(i) = 12 OR symbolt(i) = 13 THEN symbolc(i) = 0 - PSET (symbolx(i), symboly(i)), symbolc(i) - stime(i) = stime(i) - 1 - IF symbolt(i) = 1 THEN DRAW "M-2,0 R4 U L4 BL2 C4 D BL2 U Bl2 D BR12 NE NR3 NF" - IF symbolt(i) = 2 THEN DRAW "M-2,0 R4 U L4 BL2 C2 D BL2 U Bl2 D BR15 NH NL3 NG" - IF symbolt(i) = 3 THEN DRAW "C4 E F C14 L1 C4 BD E BR2 NR3 NE NF BL5 L BR C0 U BL2 C8 G BE C0 L" - IF symbolt(i) = 4 THEN DRAW "C4 E F C14 L1 C4 BD E C2 BR5 NL3 NH NG C4 BL8 L BR C0 U BL2 C8 G BE C0 L" - IF symbolt(i) = 5 THEN DRAW "BD2 C8 F BU C0 L1 BM-2,-1 C12 R BG C0 U2 C4 U1 BD C0 L BU3 BR2 C14 R BR C4 G H E" - IF symbolt(i) = 8 THEN DRAW "C3 BL H2 BD2 E2 BM+3,-1 E R F D G3 R3" - IF symbolt(i) = 9 THEN DRAW "BM-1,-4 C14 R4 D L4 G R4 D L4 G R7 G L3 D R2 G L2 D R G L D" - IF symbolt(i) = 10 THEN DRAW "BL2 R4 U1 L4 BM-5,1 C2 NR3 NF NE BR14 NL3 NG NH" - IF symbolt(i) = 11 THEN DRAW "BL2 R4 U1 L4 BM-2,1 C4 NL3 NG NH BR8 NR3 NF NE" - IF symbolt(i) = 12 THEN DRAW "C3 BM-3,-1 R2 H D2 BR4 F R E U H L2 U2 R3" - IF symbolt(i) = 13 THEN DRAW "C3 BM-3,-1 R2 H D2 BR4 BU4 R F D G L D3 BE C0 L" - IF stime(i) < 5 THEN LINE (symbolx(i) - 10, symboly(i) - 10)-(symbolx(i) + 10, symboly(i) + 10), 0, BF -END IF -NEXT i - -IF lasthit& = 1 THEN c& = 1 -IF lasthit& = 2 THEN c& = 4 -IF lasthit& = 3 THEN c& = 2 -IF lasthit& = 4 THEN c& = 6 - -LINE (lx1&, ly1&)-(lx2&, ly2&), c&, B -LINE (lx1& + 1, ly1& + 1)-(lx2& - 1, ly2& - 1), c& + 8, B - -IF p1& = 0 OR p2& = 0 THEN GOTO skip1: -LINE (3, 3)-(3, 60), 1 -LINE (3, 3)-(60, 3), 1 -LINE (60, 3)-(3, 60), 1 -LINE (4, 4)-(4, 59), 1 -LINE (4, 4)-(59, 4), 1 -LINE (59, 3)-(3, 59), 1 -skip1: -IF p4& = 0 OR p1& = 0 THEN GOTO skip2: -LINE (477, 3)-(477, 60), 14 -LINE (477, 3)-(420, 3), 14 -LINE (420, 3)-(477, 60), 14 -LINE (476, 4)-(476, 59), 14 -LINE (476, 4)-(421, 4), 14 -LINE (421, 3)-(477, 59), 14 -skip2: -IF p2& = 0 OR p3& = 0 THEN GOTO skip3: -LINE (3, 477)-(3, 420), 4 -LINE (3, 477)-(60, 477), 4 -LINE (60, 477)-(3, 420), 4 -LINE (4, 476)-(4, 421), 4 -LINE (4, 476)-(59, 476), 4 -LINE (59, 477)-(3, 421), 4 -skip3: -IF p3& = 0 OR p4& = 0 THEN GOTO skip4: -LINE (477, 477)-(477, 420), 2 -LINE (477, 477)-(420, 477), 2 -LINE (420, 477)-(477, 420), 2 -LINE (476, 476)-(476, 421), 2 -LINE (476, 476)-(421, 476), 2 -LINE (421, 477)-(477, 421), 2 -skip4: - -IF p1& > 0 THEN LINE (p1pad& - (p1size& - 1), 5)-(p1pad& + (p1size& - 1), 7), 1, BF -IF p1hyper& = 0 AND p1& > 0 THEN LINE (p1pad& - p1size&, 4)-(p1pad& + p1size&, 8), 1, B -IF p1& > 0 THEN LINE (p1pad& - (p1size& + 1), 3)-(61, 9), 0, BF -IF p1& > 0 THEN LINE (p1pad& + (p1size& + 1), 3)-(419, 9), 0, BF -IF p2& > 0 THEN LINE (5, p2pad& - (p2size& - 1))-(7, p2pad& + (p2size& - 1)), 4, BF -IF p2hyper& = 0 AND p2& > 0 THEN LINE (4, p2pad& - p2size&)-(8, p2pad& + p2size&), 4, B -IF p2& > 0 THEN LINE (3, p2pad& - (p2size& + 1))-(9, 61), 0, BF -IF p2& > 0 THEN LINE (3, p2pad& + (p2size& + 1))-(9, 419), 0, BF -IF p3& > 0 THEN LINE (p3pad& - (p3size& - 1), 475)-(p3pad& + (p3size& - 1), 473), 2, BF -IF p3hyper& = 0 AND p3& > 0 THEN LINE (p3pad& - p3size&, 476)-(p3pad& + p3size&, 472), 2, B -IF p3& > 0 THEN LINE (p3pad& - (p3size& + 1), 477)-(61, 471), 0, BF -IF p3& > 0 THEN LINE (p3pad& + (p3size& + 1), 477)-(419, 471), 0, BF -IF p4& > 0 THEN LINE (475, p4pad& - (p4size& - 1))-(473, p4pad& + (p4size& - 1)), 14, BF -IF p4hyper& = 0 AND p4& > 0 THEN LINE (476, p4pad& - p4size&)-(472, p4pad& + p4size&), 14, B -IF p4& > 0 THEN LINE (477, p4pad& - (p4size& + 1))-(471, 61), 0, BF -IF p4& > 0 THEN LINE (477, p4pad& + (p4size& + 1))-(471, 419), 0, BF -a$ = INKEY$ -IF p1com& = 1 THEN GOTO player1 -IF a$ = "v" THEN p1dir& = 2 -IF a$ = "b" THEN p1dir& = 0 -IF a$ = "n" THEN p1dir& = 1 -IF a$ = "g" AND serve& = 1 THEN GOSUB serve -p2: -IF p2com& = 1 THEN GOTO player2 -IF a$ = "q" THEN p2dir& = 2 -IF a$ = "a" THEN p2dir& = 0 -IF a$ = "z" THEN p2dir& = 1 -IF a$ = "s" AND serve& = 2 THEN GOSUB serve -p3: -IF p3com& = 1 THEN GOTO player3 -IF a$ = CHR$(0) + "K" THEN p3dir& = 2 -IF a$ = CHR$(0) + "P" THEN p3dir& = 0 -IF a$ = CHR$(0) + "M" THEN p3dir& = 1 -IF a$ = CHR$(0) + "H" AND serve& = 3 THEN GOSUB serve -p4: -IF p4com& = 1 THEN GOTO player4 -IF a$ = "]" THEN p4dir& = 2 -IF a$ = "'" THEN p4dir& = 0 -IF a$ = "/" THEN p4dir& = 1 -IF a$ = ";" AND serve& = 4 THEN GOSUB serve -finish: -IF a$ = "=" THEN delay& = delay& - 100 -IF a$ = "-" THEN delay& = delay& + 100 -IF a$ = CHR$(27) THEN - subtract& = TIMER - GOTO start -ELSEIF a$ = "p" THEN - subtract& = TIMER - COLOR 3 - LOCATE 29, 29 - PRINT "PAUSED" - SLEEP - DO - c$ = INKEY$ - LOOP UNTIL c$ <> "~" - CLS - subtract& = TIMER - subtract& - startedd& = startedd& + subtract& -END IF -IF serve& = 5 THEN GOSUB centerserve -LOOP -universal: -IF p1& > 1 THEN p1ac2& = INT(RND * (p1ac& * 2)) - p1ac& -IF p2& > 1 THEN p2ac2& = INT(RND * (p2ac& * 2)) - p2ac& -IF p3& > 1 THEN p3ac2& = INT(RND * (p3ac& * 2)) - p3ac& -IF p4& > 1 THEN p4ac2& = INT(RND * (p4ac& * 2)) - p4ac& -combo& = combo& + 1 -scombo& = 50 -p1serve& = 0 -p2serve& = 0 -p3serve& = 0 -p4serve& = 0 -SOUND 700, .1 -RETURN - -serve: -IF serve& = 1 THEN - IF p1dir& = 1 THEN - xs& = 8 - ys& = 8 - ELSEIF p1dir& = 2 THEN - xs& = -8 - ys& = 8 - END IF - IF p1dir& = 0 THEN ys& = 8 - p1serve& = p1serve& + 1 -ELSEIF serve& = 2 THEN - IF p2dir& = 1 THEN - xs& = 8 - ys& = 8 - ELSEIF p2dir& = 2 THEN - xs& = 8 - ys& = -8 - END IF - IF p2dir& = 0 THEN xs& = 8 - p2serve& = p2serve& + 1 -ELSEIF serve& = 3 THEN - IF p3dir& = 1 THEN - xs& = 8 - ys& = -8 - ELSEIF p3dir& = 2 THEN - xs& = -8 - ys& = -8 - END IF - IF p3dir& = 0 THEN ys& = -8 - p3serve& = p3serve& + 1 -ELSEIF serve& = 4 THEN - IF p4dir& = 1 THEN - xs& = -8 - ys& = 8 - ELSEIF p4dir& = 2 THEN - xs& = -8 - ys& = -8 - END IF - IF p4dir& = 0 THEN xs& = -8 - p4serve& = p4serve& + 1 -END IF -serve& = 0 -scombo& = 50 -RETURN - -centerserve: -x& = 240 -y& = 240 -xs& = 0 -ys& = 0 -center& = center& + 1 -IF center& = 25 THEN - scombo& = 50 - combo& = 5 -ELSEIF center& = 50 THEN - scombo& = 50 - combo& = 4 -ELSEIF center& = 75 THEN - scombo& = 50 - combo& = 3 -ELSEIF center& = 100 THEN - scombo& = 50 - combo& = 2 -ELSEIF center& = 125 THEN - scombo& = 50 - combo& = 1 -ELSEIF center& = 150 THEN -retry: - xs& = INT(RND * 17) - 8 - ys& = INT(RND * 17) - 8 - IF xs& = 0 AND ys& = 0 THEN GOTO retry - IF xs& = 0 AND p1& = 0 AND p3& = 0 THEN GOTO retry - IF ys& = 0 AND p2& = 0 AND p4& = 0 THEN GOTO retry - DO - lasthit& = INT(RND * 4) + 1 - IF lasthit& = 1 AND p1& > 0 THEN EXIT DO - IF lasthit& = 2 AND p2& > 0 THEN EXIT DO - IF last7hit& = 3 AND p3& > 0 THEN EXIT DO - IF lasthit& = 4 AND p4& > 0 THEN EXIT DO - LOOP - serve& = 0 - center& = 0 -END IF -RETURN - -score1: -IF scoret& < 4 THEN combo& = 1 -IF scoret& = 1 OR scoret& = 4 THEN - IF lasthit& = 2 THEN p2descore& = p2descore& + combo& - IF lasthit& = 3 THEN p3descore& = p3descore& + combo& - IF lasthit& = 4 THEN p4descore& = p4descore& + combo& - IF lasthit& = 1 THEN p1descore& = p1descore& - combo& -ELSEIF scoret& = 2 OR scoret& = 5 THEN - p2descore& = p2descore& + combo& - p3descore& = p3descore& + combo& - p4descore& = p4descore& + combo& -ELSEIF scoret& = 3 OR scoret& = 6 THEN - p1descore& = p1descore& - combo& -END IF -IF lasthit& = 2 THEN p2scores& = p2scores& + 1 -IF lasthit& = 3 THEN p3scores& = p3scores& + 1 -IF lasthit& = 4 THEN p4scores& = p4scores& + 1 -IF lose& = 1 THEN - p1desize& = 25 - p1speed& = 4 + pad& * 3 -END IF -GOSUB score -RETURN - -score2: -IF scoret& < 4 THEN combo& = 1 -IF scoret& = 1 OR scoret& = 4 THEN - IF lasthit& = 2 THEN p2descore& = p2descore& - combo& - IF lasthit& = 3 THEN p3descore& = p3descore& + combo& - IF lasthit& = 4 THEN p4descore& = p4descore& + combo& - IF lasthit& = 1 THEN p1descore& = p1descore& + combo& -ELSEIF scoret& = 2 OR scoret& = 5 THEN - p1descore& = p1descore& + combo& - p3descore& = p3descore& + combo& - p4descore& = p4descore& + combo& -ELSEIF scoret& = 3 OR scoret& = 6 THEN - p2descore& = p2descore& - combo& -END IF -IF lasthit& = 1 THEN p1scores& = p1scores& + 1 -IF lasthit& = 3 THEN p3scores& = p3scores& + 1 -IF lasthit& = 4 THEN p4scores& = p4scores& + 1 -IF lose& = 1 THEN - p2desize& = 25 - p2speed& = 4 + pad& * 3 -END IF -GOSUB score -RETURN - -score3: -IF scoret& < 4 THEN combo& = 1 -IF scoret& = 1 OR scoret& = 4 THEN - IF lasthit& = 2 THEN p2descore& = p2descore& + combo& - IF lasthit& = 3 THEN p3descore& = p3descore& - combo& - IF lasthit& = 4 THEN p4descore& = p4descore& + combo& - IF lasthit& = 1 THEN p1descore& = p1descore& + combo& -ELSEIF scoret& = 2 OR scoret& = 5 THEN - p1descore& = p1descore& + combo& - p2descore& = p2descore& + combo& - p4descore& = p4descore& + combo& -ELSEIF scoret& = 3 OR scoret& = 6 THEN - p3descore& = p3descore& - combo& -END IF -IF lasthit& = 1 THEN p1scores& = p1scores& + 1 -IF lasthit& = 2 THEN p2scores& = p2scores& + 1 -IF lasthit& = 4 THEN p4scores& = p4scores& + 1 -IF lose& = 1 THEN - p3desize& = 25 - p3speed& = 4 + pad& * 3 -END IF -GOSUB score -RETURN - -score4: -IF scoret& < 4 THEN combo& = 1 -IF scoret& = 1 OR scoret& = 4 THEN - IF lasthit& = 2 THEN p2descore& = p2descore& + combo& - IF lasthit& = 3 THEN p3descore& = p3descore& + combo& - IF lasthit& = 4 THEN p4descore& = p4descore& - combo& - IF lasthit& = 1 THEN p1descore& = p1descore& + combo& -ELSEIF scoret& = 2 OR scoret& = 5 THEN - p1descore& = p1descore& + combo& - p2descore& = p2descore& + combo& - p3descore& = p3descore& + combo& -ELSEIF scoret& = 3 OR scoret& = 6 THEN - p4descore& = p4descore& - combo& -END IF -IF lasthit& = 1 THEN p1scores& = p1scores& + 1 -IF lasthit& = 2 THEN p2scores& = p2scores& + 1 -IF lasthit& = 3 THEN p3scores& = p3scores& + 1 -IF lose& = 1 THEN - p4desize& = 25 - p4speed& = 4 + pad& * 3 -END IF -GOSUB score -RETURN - -score: -combo& = 1 -scombo& = 0 -serve& = lasthit& -IF p1serve& >= 5 OR p2serve& >= 5 OR p3serve& >= 5 OR p4serve& >= 5 THEN - p1serve& = 0 - p2serve& = 0 - p3serve& = 0 - p4serve& = 0 - serve& = 5 - GOSUB centerserve -END IF -IF serve& = 1 THEN - x& = p1pad& - y& = 13 -ELSEIF serve& = 2 THEN - x& = 13 - y& = p2pad& -ELSEIF serve& = 3 THEN - x& = p3pad& - y& = 467 -ELSEIF serve& = 4 THEN - x& = 467 - y& = p4pad& -END IF -waits& = 100 -GOSUB draww -IF p1& > 1 THEN p1ac2& = INT(RND * (p1ac& * 2)) - p1ac& -IF p2& > 1 THEN p2ac2& = INT(RND * (p2ac& * 2)) - p2ac& -IF p3& > 1 THEN p3ac2& = INT(RND * (p3ac& * 2)) - p3ac& -IF p4& > 1 THEN p4ac2& = INT(RND * (p4ac& * 2)) - p4ac& -COLOR 0: LOCATE 30, 30: PRINT combo& -RETURN - -draww: -VIEW -p1loc& = 1 -p2loc& = 1 -p3loc& = 1 -p4loc& = 1 -IF p1descore& <= p2descore& THEN p1loc& = p1loc& + 1 -IF p1descore& <= p3descore& THEN p1loc& = p1loc& + 1 -IF p1descore& <= p4descore& THEN p1loc& = p1loc& + 1 -IF p2descore& <= p1descore& THEN p2loc& = p2loc& + 1 -IF p2descore& <= p3descore& THEN p2loc& = p2loc& + 1 -IF p2descore& <= p4descore& THEN p2loc& = p2loc& + 1 -IF p3descore& <= p1descore& THEN p3loc& = p3loc& + 1 -IF p3descore& <= p2descore& THEN p3loc& = p3loc& + 1 -IF p3descore& <= p4descore& THEN p3loc& = p3loc& + 1 -IF p4descore& <= p1descore& THEN p4loc& = p4loc& + 1 -IF p4descore& <= p2descore& THEN p4loc& = p4loc& + 1 -IF p4descore& <= p3descore& THEN p4loc& = p4loc& + 1 -DO -IF p1loc& = p2loc& OR p1loc& = p3loc& OR p1loc& = p4loc& THEN p1loc& = p1loc& - 1 -IF p2loc& = p1loc& OR p2loc& = p3loc& OR p2loc& = p4loc& THEN p2loc& = p2loc& - 1 -IF p3loc& = p1loc& OR p3loc& = p2loc& OR p3loc& = p4loc& THEN p3loc& = p3loc& - 1 -IF p4loc& = p1loc& OR p4loc& = p2loc& OR p4loc& = p3loc& THEN p4loc& = p4loc& - 1 -LOOP UNTIL (p1loc& <> p2loc& AND p2loc& <> p3loc& AND p3loc& <> p4loc& AND p4loc& <> p1loc& AND p2loc& <> p4loc& AND p3loc& <> p1loc&) - LOCATE ((p1loc& - 1) * 15) + 2, 62 - COLOR 1 - IF p1& = 0 THEN COLOR 0 - PRINT "Score:"; p1score&; " " - LOCATE ((p1loc& - 1) * 15) + 3, 62 - IF p1com& = 1 THEN - IF p1& = 2 THEN PRINT "Computer Easiest" - IF p1& = 3 THEN PRINT "Computer Easy " - IF p1& = 4 THEN PRINT "Computer Medium " - IF p1& = 5 THEN PRINT "Computer Hard " - IF p1& = 6 THEN PRINT "Computer Hardest" - LOCATE ((p1loc& - 1) * 15) + 4, 62: PRINT " " - LOCATE ((p1loc& - 1) * 15) + 5, 62: PRINT " " - LOCATE ((p1loc& - 1) * 15) + 6, 62: PRINT " " - LOCATE ((p1loc& - 1) * 15) + 7, 62: PRINT " " - LOCATE ((p1loc& - 1) * 15) + 8, 62: PRINT " " - END IF - IF p1com& = 1 THEN GOTO ppp2 - PRINT "Human " - LOCATE ((p1loc& - 1) * 15) + 4, 62: PRINT "Keys:" - LOCATE ((p1loc& - 1) * 15) + 5, 62: PRINT "G -Serve " - LOCATE ((p1loc& - 1) * 15) + 6, 62: PRINT "V -Left " - LOCATE ((p1loc& - 1) * 15) + 7, 62: PRINT "B -Stop " - LOCATE ((p1loc& - 1) * 15) + 8, 62: PRINT "N -Right " -ppp2: - LOCATE ((p2loc& - 1) * 15) + 2, 62 - COLOR 4 - IF p2& = 0 THEN COLOR 0 - PRINT "Score:"; p2score&; " " - LOCATE ((p2loc& - 1) * 15) + 3, 62 - IF p2com& = 1 THEN - IF p2& = 2 THEN PRINT "Computer Easiest" - IF p2& = 3 THEN PRINT "Computer Easy " - IF p2& = 4 THEN PRINT "Computer Medium " - IF p2& = 5 THEN PRINT "Computer Hard " - IF p2& = 6 THEN PRINT "Computer Hardest" - LOCATE ((p2loc& - 1) * 15) + 4, 62: PRINT " " - LOCATE ((p2loc& - 1) * 15) + 5, 62: PRINT " " - LOCATE ((p2loc& - 1) * 15) + 6, 62: PRINT " " - LOCATE ((p2loc& - 1) * 15) + 7, 62: PRINT " " - LOCATE ((p2loc& - 1) * 15) + 8, 62: PRINT " " - END IF - IF p2com& = 1 THEN GOTO ppp3 - PRINT "Human " - LOCATE ((p2loc& - 1) * 15) + 4, 62: PRINT "Keys:" - LOCATE ((p2loc& - 1) * 15) + 5, 62: PRINT "S -Serve " - LOCATE ((p2loc& - 1) * 15) + 6, 62: PRINT "Q -Up " - LOCATE ((p2loc& - 1) * 15) + 7, 62: PRINT "A -Stop " - LOCATE ((p2loc& - 1) * 15) + 8, 62: PRINT "Z -Down " -ppp3: - LOCATE ((p3loc& - 1) * 15) + 2, 62 - COLOR 2 - IF p3& = 0 THEN COLOR 0 - PRINT "Score:"; p3score&; " " - LOCATE ((p3loc& - 1) * 15) + 3, 62 - IF p3com& = 1 THEN - IF p3& = 2 THEN PRINT "Computer Easiest" - IF p3& = 3 THEN PRINT "Computer Easy " - IF p3& = 4 THEN PRINT "Computer Medium " - IF p3& = 5 THEN PRINT "Computer Hard " - IF p3& = 6 THEN PRINT "Computer Hardest" - LOCATE ((p3loc& - 1) * 15) + 4, 62: PRINT " " - LOCATE ((p3loc& - 1) * 15) + 5, 62: PRINT " " - LOCATE ((p3loc& - 1) * 15) + 6, 62: PRINT " " - LOCATE ((p3loc& - 1) * 15) + 7, 62: PRINT " " - LOCATE ((p3loc& - 1) * 15) + 8, 62: PRINT " " - END IF - IF p3com& = 1 THEN GOTO ppp4 - PRINT "Human " - LOCATE ((p3loc& - 1) * 15) + 4, 62: PRINT "Keys:" - LOCATE ((p3loc& - 1) * 15) + 5, 62: PRINT CHR$(24); " -Serve " - LOCATE ((p3loc& - 1) * 15) + 6, 62: PRINT CHR$(17); " -Left " - LOCATE ((p3loc& - 1) * 15) + 7, 62: PRINT CHR$(25); " -Stop " - LOCATE ((p3loc& - 1) * 15) + 8, 62: PRINT CHR$(16); " -Right " -ppp4: - LOCATE ((p4loc& - 1) * 15) + 2, 62 - COLOR 14 - IF p4& = 0 THEN COLOR 0 - PRINT "Score:"; p4score&; " " - LOCATE ((p4loc& - 1) * 15) + 3, 62 - IF p4com& = 1 THEN - IF p4& = 2 THEN PRINT "Computer Easiest" - IF p4& = 3 THEN PRINT "Computer Easy " - IF p4& = 4 THEN PRINT "Computer Medium " - IF p4& = 5 THEN PRINT "Computer Hard " - IF p4& = 6 THEN PRINT "Computer Hardest" - LOCATE ((p4loc& - 1) * 15) + 4, 62: PRINT " " - LOCATE ((p4loc& - 1) * 15) + 5, 62: PRINT " " - LOCATE ((p4loc& - 1) * 15) + 6, 62: PRINT " " - LOCATE ((p4loc& - 1) * 15) + 7, 62: PRINT " " - LOCATE ((p4loc& - 1) * 15) + 8, 62: PRINT " " - END IF - IF p4com& = 1 THEN GOTO fff - PRINT "Human " - LOCATE ((p4loc& - 1) * 15) + 4, 62: PRINT "Keys:" - LOCATE ((p4loc& - 1) * 15) + 5, 62: PRINT "; -Serve " - LOCATE ((p4loc& - 1) * 15) + 6, 62: PRINT "] -Up " - LOCATE ((p4loc& - 1) * 15) + 7, 62: PRINT "' -Stop " - LOCATE ((p4loc& - 1) * 15) + 8, 62: PRINT "/ -Down " - -fff: - -col1& = 0 -col2& = 0 -col3& = 0 -col4& = 0 -IF p1& > 0 THEN - IF p1loc& = 1 THEN col1& = 1 - IF p1loc& = 2 THEN col2& = 1 - IF p1loc& = 3 THEN col3& = 1 - IF p1loc& = 4 THEN col4& = 1 -END IF -IF p2& > 0 THEN - IF p2loc& = 1 THEN col1& = 4 - IF p2loc& = 2 THEN col2& = 4 - IF p2loc& = 3 THEN col3& = 4 - IF p2loc& = 4 THEN col4& = 4 -END IF -IF p3& > 0 THEN - IF p3loc& = 1 THEN col1& = 2 - IF p3loc& = 2 THEN col2& = 2 - IF p3loc& = 3 THEN col3& = 2 - IF p3loc& = 4 THEN col4& = 2 -END IF -IF p4& > 0 THEN - IF p4loc& = 1 THEN col1& = 6 - IF p4loc& = 2 THEN col2& = 6 - IF p4loc& = 3 THEN col3& = 6 - IF p4loc& = 4 THEN col4& = 6 -END IF -LINE (481, 0)-(639, 118), col1&, B -IF col1& = 0 THEN col1& = -8 -LINE (482, 1)-(638, 117), col1& + 8, B -LINE (481, 121)-(639, 239), col2&, B -IF col2& = 0 THEN col2& = -8 -LINE (482, 122)-(638, 238), col2& + 8, B -LINE (481, 241)-(639, 359), col3&, B -IF col3& = 0 THEN col3& = -8 -LINE (482, 242)-(638, 358), col3& + 8, B -LINE (481, 361)-(639, 479), col4&, B -IF col4& = 0 THEN col4& = -8 -LINE (482, 362)-(638, 478), col4& + 8, B - -VIEW SCREEN (lx1& - 1, ly1& - 1)-(lx2&, ly2&) -RETURN - -item: -startitem: -FOR j = 1 TO 30 -IF stime(j) = 0 THEN symbol& = j -NEXT j -item& = INT(RND * 9) + 1 -symbolt(symbol&) = item& -IF item& = 1 THEN - IF it2& = 0 THEN GOTO startitem - IF lasthit& = 1 THEN p1speed& = p1speed& - 1 - IF p1speed& < 1 THEN p1speed& = 1 - IF lasthit& = 2 THEN p2speed& = p2speed& - 1 - IF p2speed& < 1 THEN p2speed& = 1 - IF lasthit& = 3 THEN p3speed& = p3speed& - 1 - IF p3speed& < 1 THEN p3speed& = 1 - IF lasthit& = 4 THEN p4speed& = p4speed& - 1 - IF p4speed& < 1 THEN p4speed& = 1 -ELSEIF item& = 2 THEN - IF it2& = 0 THEN GOTO startitem - IF lasthit& = 1 THEN p1speed& = p1speed& + 1 - IF p1speed& > 30 THEN p1speed& = 30 - IF lasthit& = 2 THEN p2speed& = p2speed& + 1 - IF p2speed& > 30 THEN p2speed& = 30 - IF lasthit& = 3 THEN p3speed& = p3speed& + 1 - IF p3speed& > 30 THEN p3speed& = 30 - IF lasthit& = 4 THEN p4speed& = p4speed& + 1 - IF p4speed& > 30 THEN p4speed& = 30 -ELSEIF item& = 3 THEN - IF it1& = 0 THEN GOTO startitem - a& = a& - 1 - IF a& < 1 THEN a& = 1 -ELSEIF item& = 4 THEN - IF it1& = 0 THEN GOTO startitem - a& = a& + 1 - IF a& > 4 THEN a& = 4 -ELSEIF item& = 5 THEN - IF it4& = 0 THEN GOTO startitem -rann: - DO - xs& = INT(RND * 17) - 8 - ys& = INT(RND * 17) - 8 - LOOP UNTIL (xs& <> 0 OR ys& <> 0) - IF xs& = 0 AND p1& = 0 AND p3& = 0 THEN GOTO rann - IF ys& = 0 AND p2& = 0 AND p4& = 0 THEN GOTO rann -ELSEIF item& = 6 THEN - IF it3& = 0 THEN GOTO startitem - rand& = INT(RND * 18) + 1 - padsize& = (rand& * 5) + 10 - IF lasthit& = 1 THEN - IF padsize& > p1desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11 - p1desize& = padsize& - ELSEIF lasthit& = 2 THEN - IF padsize& > p2desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11 - p2desize& = padsize& - ELSEIF lasthit& = 3 THEN - IF padsize& > p3desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11 - p3desize& = padsize& - ELSEIF lasthit& = 4 THEN - IF padsize& > p4desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11 - p4desize& = padsize& - END IF -ELSEIF item& = 7 THEN - IF INT(RND * 5) + 1 = 1 THEN - IF it8& = 0 THEN GOTO startitem - points& = INT(RND * 50) + 1 - symbolt(symbol&) = 13 - ELSE - IF it5& = 0 THEN GOTO startitem - symbolt(symbol&) = 12 - points& = 5 - END IF - IF lasthit& = 1 THEN p1descore& = p1descore& + points& - IF lasthit& = 2 THEN p2descore& = p2descore& + points& - IF lasthit& = 3 THEN p3descore& = p3descore& + points& - IF lasthit& = 4 THEN p4descore& = p4descore& + points& - GOSUB draww -ELSEIF item& = 8 THEN - IF it6& = 0 THEN GOTO startitem - IF INT(RND * 5) + 1 <> 1 THEN GOTO startitem - IF combo& < 50000 THEN combo& = combo& * 2 - scombo& = 50 -ELSEIF item& = 9 THEN - IF it7& = 0 THEN GOTO startitem - IF INT(RND * 3) + 1 <> 1 THEN GOTO startitem - CLS - IF lasthit& = 1 THEN p1hyper& = INT(RND * 1001) + 500 - IF lasthit& = 2 THEN p2hyper& = INT(RND * 1001) + 500 - IF lasthit& = 3 THEN p3hyper& = INT(RND * 1001) + 500 - IF lasthit& = 4 THEN p4hyper& = INT(RND * 1001) + 500 -END IF -iitemx& = itemx(1, hit&) -iitemy& = itemy(1, hit&) -symbolx(symbol&) = iitemx& -symboly(symbol&) = iitemy& -IF re& = 1 THEN - symbolx(symbol&) = iitemx& + 10 - symboly(symbol&) = iitemy& + 10 -END IF -stime(symbol&) = 100 -IF lasthit& = 1 THEN symbolc(symbol&) = 1 -IF lasthit& = 2 THEN symbolc(symbol&) = 4 -IF lasthit& = 3 THEN symbolc(symbol&) = 2 -IF lasthit& = 4 THEN symbolc(symbol&) = 14 -LINE (iitemx& - 2, iitemy& - 2)-(iitemx& + 2, iitemy& + 2), 0, BF -IF re& = 1 THEN RETURN -iitemx& = INT(RND * 340) + 70 -iitemy& = INT(RND * 340) + 70 -itemx(1, hit&) = iitemx& -itemy(1, hit&) = iitemy& -RETURN - -player1: -IF y& < p1ai& AND ys& < 0 THEN - p1des& = x& - xs& * (y& / ys&) - p1des& = p1des& + p1ac2& -ELSE - IF serve& = 0 AND p1& > 2 THEN p1des& = 240 ELSE p1des& = p1pad& -END IF -IF serve& = 2 AND p1& > 3 THEN - p1des& = p2pad& -ELSEIF serve& = 3 AND p1& > 3 THEN - p1des& = p3pad& -ELSEIF serve& = 4 AND p1& > 3 THEN - p1des& = 480 - p4pad& -END IF -IF serve& = 1 THEN - IF p2descore& < p4descore& THEN p1des& = 0 - IF p4descore& < p2descore& THEN p1des& = 480 - IF p2descore& = p4descore& THEN p1des& = 240 -END IF -IF p1des& > p1pad& THEN p1dir& = 1 -IF p1des& < p1pad& THEN p1dir& = 2 -IF p1des& > (p1pad& - p1speed&) AND p1des& < (p1pad& + p1speed&) THEN p1dir& = 0 -IF waits& > 0 THEN waits& = waits& - 1 -IF serve& = 1 AND waits& = 0 THEN GOSUB serve -GOTO p2 - -player2: -IF x& < p2ai& AND xs& < 0 THEN - p2des& = y& - ys& * (x& / xs&) - p2des& = p2des& + p2ac2& -ELSE - IF serve& = 0 AND p2& > 2 THEN p2des& = 240 ELSE p2des& = p2pad& -END IF -IF serve& = 1 AND p2& > 3 THEN - p2des& = p1pad& -ELSEIF serve& = 3 AND p2& > 3 THEN - p2des& = 480 - p3pad& -ELSEIF serve& = 4 AND p2& > 3 THEN - p2des& = p4pad& -END IF -IF serve& = 2 THEN - IF p1descore& < p3descore& THEN p2des& = 0 - IF p3descore& < p1descore& THEN p2des& = 480 - IF p1descore& = p3descore& THEN p2des& = 240 -END IF -IF p2des& > p2pad& THEN p2dir& = 1 -IF p2des& < p2pad& THEN p2dir& = 2 -IF p2des& > (p2pad& - p2speed&) AND p2des& < (p2pad& + p2speed&) THEN p2dir& = 0 -IF waits& > 0 THEN waits& = waits& - 1 -IF serve& = 2 AND waits& = 0 THEN GOSUB serve -GOTO p3 - -player3: -IF y& > (480 - p3ai&) AND ys& > 0 THEN - p3des& = x& - xs& * ((480 - y&) / -ys&) - p3des& = p3des& + p3ac2& -ELSE - IF serve& = 0 AND p3& > 2 THEN p3des& = 240 ELSE p3des& = p3pad& -END IF -IF serve& = 1 AND p3& > 3 THEN - p3des& = p1pad& -ELSEIF serve& = 2 AND p3& > 3 THEN - p3des& = 480 - p2pad& -ELSEIF serve& = 4 AND p3& > 3 THEN - p3des& = p4pad& -END IF -IF serve& = 3 THEN - IF p2descore& < p4descore& THEN p3des& = 0 - IF p4descore& < p2descore& THEN p3des& = 480 - IF p2descore& = p4descore& THEN p3des& = 240 -END IF -IF p3des& > p3pad& THEN p3dir& = 1 -IF p3des& < p3pad& THEN p3dir& = 2 -IF p3des& > (p3pad& - p3speed&) AND p3des& < (p3pad& + p3speed&) THEN p3dir& = 0 -IF waits& > 0 THEN waits& = waits& - 1 -IF serve& = 3 AND waits& = 0 THEN GOSUB serve -GOTO p4 - -player4: -IF x& > (480 - p4ai&) AND xs& > 0 THEN - p4des& = y& - ys& * ((480 - x&) / -xs&) - p4des& = p4des& + p4ac2& -ELSE - IF serve& = 0 AND p4& > 2 THEN p4des& = 240 ELSE p4des& = p4pad& -END IF -IF serve& = 1 AND p4& > 3 THEN - p4des& = 480 - p1pad& -ELSEIF serve& = 2 AND p4& > 3 THEN - p4des& = p2pad& -ELSEIF serve& = 3 AND p4& > 3 THEN - p4des& = p3pad& -END IF -IF serve& = 4 THEN - IF p1descore& < p3descore& THEN p4des& = 0 - IF p3descore& < p1descore& THEN p4des& = 480 - IF p1descore& = p3descore& THEN p4des& = 240 -END IF -IF p4des& > p4pad& THEN p4dir& = 1 -IF p4des& < p4pad& THEN p4dir& = 2 -IF p4des& > (p4pad& - p4speed&) AND p4des& < (p4pad& + p4speed&) THEN p4dir& = 0 -IF waits& > 0 THEN waits& = waits& - 1 -IF serve& = 4 AND waits& = 0 THEN GOSUB serve -GOTO finish - -title: -WIDTH 80, 30 -COLOR 4 -LOCATE 1, 1: COLOR 8: PRINT "4 Player Pong" -FOR x = 0 TO 64 -FOR y = 0 TO 15 -LINE ((x * 5) + 160, (y * 5) + 160)-((x * 5) + 165, (y * 5) + 165), POINT(x, y) / 2, B -NEXT y -NEXT x -FOR x = 0 TO 40 -FOR y = 0 TO 15 -LINE ((x * 5) + 240, (y * 5) + 235)-((x * 5) + 245, (y * 5) + 240), POINT(x + 72, y) / 2, B -NEXT y -NEXT x -LOCATE 1, 1 -PRINT " " -LINE (153, 149)-(481, 316), 14, B -LINE (152, 148)-(482, 317), 6, B -COLOR 3: LOCATE 21, 31: PRINT " By Matthew " -COLOR 11 -LINE (640, 327)-(353, 327) -LINE (0, 327)-(269, 327) -LINE (269, 334)-(269, 320) -LINE (353, 334)-(353, 320) -LINE (353, 334)-(269, 334) -LINE (353, 320)-(269, 320) -DO -changeword& = changeword& + 1 -IF changeword& = 2000 THEN changeword& = 0 -IF changeword& < 1001 THEN COLOR 1 -IF changeword& > 1000 THEN COLOR 0 -LOCATE 27, 34: PRINT "Press any key" -a$ = INKEY$ -LOOP UNTIL (a$ <> "") -CLS -RETURN - -theend: -VIEW -started& = 0 -CLS -p1pl& = 1 -p2pl& = 1 -p3pl& = 1 -p4pl& = 1 -IF p1descore& <= p2descore& OR p1& = 0 THEN p1pl& = p1pl& + 1 -IF p1descore& <= p3descore& OR p1& = 0 THEN p1pl& = p1pl& + 1 -IF p1descore& <= p4descore& OR p1& = 0 THEN p1pl& = p1pl& + 1 -IF p2descore& <= p1descore& OR p2& = 0 THEN p2pl& = p2pl& + 1 -IF p2descore& <= p3descore& OR p2& = 0 THEN p2pl& = p2pl& + 1 -IF p2descore& <= p4descore& OR p2& = 0 THEN p2pl& = p2pl& + 1 -IF p3descore& <= p1descore& OR p3& = 0 THEN p3pl& = p3pl& + 1 -IF p3descore& <= p2descore& OR p3& = 0 THEN p3pl& = p3pl& + 1 -IF p3descore& <= p4descore& OR p3& = 0 THEN p3pl& = p3pl& + 1 -IF p4descore& <= p1descore& OR p4& = 0 THEN p4pl& = p4pl& + 1 -IF p4descore& <= p2descore& OR p4& = 0 THEN p4pl& = p4pl& + 1 -IF p4descore& <= p3descore& OR p4& = 0 THEN p4pl& = p4pl& + 1 -tie& = 0 -IF p1pl& = 1 THEN - IF p1pl& = p2pl& OR p1pl& = p3pl& OR p1pl& = p4pl& THEN tie& = 1 -END IF -IF p2pl& = 1 THEN - IF p2pl& = p3pl& OR p2pl& = p4pl& THEN tie& = 1 -END IF -IF p3pl& = 1 THEN - IF p3pl& = p4pl& THEN tie& = 1 -END IF -IF p1pl& = 1 THEN co1& = 1 -IF p2pl& = 1 THEN co1& = 4 -IF p3pl& = 1 THEN co1& = 2 -IF p4pl& = 1 THEN co1& = 14 -IF tie& = 1 THEN co1& = 15 -IF p1pl& = 1 THEN co2& = 9 -IF p2pl& = 1 THEN co2& = 12 -IF p3pl& = 1 THEN co2& = 10 -IF p4pl& = 1 THEN co2& = 6 -IF tie& = 1 THEN co2& = 8 -co& = co1& -ch& = 0 -FOR i = 1 TO 240 -ch& = ch& + 1 -IF ch& = 10 AND co& = co1& THEN - co& = co2& -ELSEIF ch& = 10 AND co& = co2& THEN - co& = co1& -END IF -IF ch& = 10 THEN ch& = 0 -LINE (320 - i, 240 - i)-(320 + i, 240 + i), co&, B -NEXT i -FOR i = 1 TO 100 -FOR d = 1 TO 500 -NEXT d -LINE (320 - i, 240)-(320 + i, 240), 15 -LINE (319 - i, 239)-(321 + i, 241), 7, B -NEXT i -FOR i = 1 TO 100 -FOR d = 1 TO 200 -NEXT d -LINE (220, 240 - i)-(420, 240 + i), 15, B -LINE (221, 241 - i)-(419, 239 + i), 7, B -LINE (219, 239 - i)-(421, 241 + i), 7, B -LINE (222, 242 - i)-(418, 238 + i), 0, BF -NEXT i -COLOR 3: LOCATE 20, 36: PRINT "Game Stats" -LINE (279, 160)-(359, 160), 3 -COLOR co1& -LOCATE 22, 30 -IF tie& = 1 THEN PRINT " Tie Game " ELSE IF p1pl& = 1 THEN PRINT "Player 1 is the winner!" ELSE IF p2pl& = 1 THEN PRINT "Player 2 is the winner!" ELSE IF p3pl& = 1 THEN PRINT "Player 3 is the winner!" ELSE IF p4pl& = 1 THEN PRINT _ -"Player 4 is the winner!" -IF p1& > 1 THEN p1t$ = "Com " ELSE IF p1& = 1 THEN p1t$ = "Human" ELSE IF p1& = 0 THEN p1t$ = "Off " -IF p2& > 1 THEN p2t$ = "Com " ELSE IF p2& = 1 THEN p2t$ = "Human" ELSE IF p2& = 0 THEN p2t$ = "Off " -IF p3& > 1 THEN p3t$ = "Com " ELSE IF p3& = 1 THEN p3t$ = "Human" ELSE IF p3& = 0 THEN p3t$ = "Off " -IF p4& > 1 THEN p4t$ = "Com " ELSE IF p4& = 1 THEN p4t$ = "Human" ELSE IF p4& = 0 THEN p4t$ = "Off " -DO -IF p1pl& = p2pl& OR p1pl& = p3pl& OR p1pl& = p4pl& THEN p1pl& = p1pl& - 1 -IF p2pl& = p1pl& OR p2pl& = p3pl& OR p2pl& = p4pl& THEN p2pl& = p2pl& - 1 -IF p3pl& = p1pl& OR p3pl& = p2pl& OR p3pl& = p4pl& THEN p3pl& = p3pl& - 1 -IF p4pl& = p1pl& OR p4pl& = p2pl& OR p4pl& = p3pl& THEN p4pl& = p4pl& - 1 -LOOP UNTIL (p1pl& <> p2pl& AND p2pl& <> p3pl& AND p3pl& <> p4pl& AND p4pl& <> p1pl& AND p2pl& <> p4pl& AND p3pl& <> p1pl&) -IF p1& = 0 THEN p1descore& = 0 -IF p2& = 0 THEN p2descore& = 0 -IF p3& = 0 THEN p3descore& = 0 -IF p4& = 0 THEN p4descore& = 0 -COLOR 3: LOCATE 24, 30: PRINT "Player Score Goals" -COLOR 1: LOCATE 24 + p1pl&, 31: PRINT "P1-"; p1t$ -LOCATE 24 + p1pl&, 39: PRINT p1descore& -LOCATE 24 + p1pl&, 46: PRINT p1scores& -COLOR 4: LOCATE 24 + p2pl&, 31: PRINT "P2-"; p2t$ -LOCATE 24 + p2pl&, 39: PRINT p2descore& -LOCATE 24 + p2pl&, 46: PRINT p2scores& -COLOR 2: LOCATE 24 + p3pl&, 31: PRINT "P3-"; p3t$ -LOCATE 24 + p3pl&, 39: PRINT p3descore& -LOCATE 24 + p3pl&, 46: PRINT p3scores& -COLOR 14: LOCATE 24 + p4pl&, 31: PRINT "P4-"; p4t$ -LOCATE 24 + p4pl&, 39: PRINT p4descore& -LOCATE 24 + p4pl&, 46: PRINT p4scores& -gts& = finished& - startedd& -DO -IF gts& >= 60 THEN - gts& = gts& - 60 - gtm& = gtm& + 1 -ELSE - EXIT DO -END IF -LOOP -DO -IF gtm& >= 60 THEN - gtm& = gtm& - 60 - gth& = gth& + 1 -ELSE - EXIT DO -END IF -LOOP -COLOR 3: LOCATE 30, 30: PRINT "Game time:" -LOCATE 31, 30: IF gts& > -1 THEN PRINT gts&; "sec" ELSE PRINT "Error" -LOCATE 31, 30: IF gtm& > 0 THEN PRINT gtm&; "min"; gts&; "sec" -LOCATE 31, 30: IF gth& > 0 THEN PRINT gth&; "hr"; gtm&; "min"; gts&; "sec" -LOCATE 33, 31: PRINT "ontinue" -COLOR 11: LOCATE 33, 30: PRINT "C" - -DO WHILE a$ <> "c" -a$ = INKEY$ -SWAP co1&, co2& -FOR i = 102 TO 240 -ch& = ch& + 1 -IF ch& = 10 AND co& = co1& THEN - co& = co2& -ELSEIF ch& = 10 AND co& = co2& THEN - co& = co1& -END IF -IF ch& = 10 THEN ch& = 0 -LINE (320 - i, 240 - i)-(320 + i, 240 + i), co&, B -NEXT i -LOOP - -gts& = 0 -gtm& = 0 -gth& = 0 - -GOTO start - -switch: -COLOR 5 -a$ = INKEY$ -IF a$ = CHR$(0) + "P" THEN - arrow& = arrow& + 1 -ELSEIF a$ = CHR$(0) + "H" THEN - arrow& = arrow& - 1 -ELSEIF a$ = " " THEN - IF arrow& = 1 THEN it1& = it1& + 1 - IF arrow& = 2 THEN it2& = it2& + 1 - IF arrow& = 3 THEN it3& = it3& + 1 - IF arrow& = 4 THEN it4& = it4& + 1 - IF arrow& = 5 THEN it5& = it5& + 1 - IF arrow& = 6 THEN it8& = it8& + 1 - IF arrow& = 7 THEN it6& = it6& + 1 - IF arrow& = 8 THEN it7& = it7& + 1 -END IF -IF it1& = 2 THEN it1& = 0 -IF it2& = 2 THEN it2& = 0 -IF it3& = 2 THEN it3& = 0 -IF it4& = 2 THEN it4& = 0 -IF it5& = 2 THEN it5& = 0 -IF it6& = 2 THEN it6& = 0 -IF it7& = 2 THEN it7& = 0 -IF it8& = 2 THEN it8& = 0 -IF arrow& = 9 THEN arrow& = 1 -IF arrow& = 0 THEN arrow& = 8 - -DRAW "BM583,130 C4 E F C14 L1 C4 BD E BR2 NR3 NE NF BL5 L BR C0 U BL2 C8 G BE C0 L" -DRAW "BM583,134 C4 E F C14 L1 C4 BD E C2 BR5 NL3 NH NG C4 BL8 L BR C0 U BL2 C8 G BE C0 L" -DRAW "BM578,138 C1 M-2,0 R4 U L4 BL2 C4 D BL2 U Bl2 D BR12 NE NR3 NF" -DRAW "BM578,142 C1 M-2,0 R4 U L4 BL2 C2 D BL2 U Bl2 D BR15 NH NL3 NG" -DRAW "BM585,146 C1 BL2 R4 U1 L4 BM-5,1 C2 NR3 NF NE BR14 NL3 NG NH" -DRAW "BM585,150 C1 BL2 R4 U1 L4 BM-2,1 C4 NL3 NG NH BR8 NR3 NF NE" -DRAW "BM574,156 BD2 C8 F BU C0 L1 BM-2,-1 C12 R BG C0 U2 C4 U1 BD C0 L BU3 BR2 C14 R BR C4 G H E" -DRAW "BM583,164 C3 BM-3,-1 R2 H D2 BR4 F R E U H L2 U2 R3" -DRAW "BM574,172 C3 BM-3,-1 R2 H D2 BR4 BU4 R F D G L D3 BE C0 L" -DRAW "BM583,180 C3 BL H2 BD2 E2 BM+3,-1 E R F D G3 R3" -DRAW "BM575,187 BM-1,-4 C14 R4 D L4 G R4 D L4 G R7 G L3 D R2 G L2 D R G L D" - -COLOR 4 -IF arrow& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 17, 42 -PRINT "Change Ball Speed -" -IF arrow& = 2 THEN COLOR 12 ELSE COLOR 4 -LOCATE 18, 42 -PRINT "Change Pad Speed -" -IF arrow& = 3 THEN COLOR 12 ELSE COLOR 4 -LOCATE 19, 42 -PRINT "Change Pad Size -" -IF arrow& = 4 THEN COLOR 12 ELSE COLOR 4 -LOCATE 20, 42 -PRINT "Change Ball Direction -" -IF arrow& = 5 THEN COLOR 12 ELSE COLOR 4 -LOCATE 21, 42 -PRINT "5 Point Bonus -" -IF arrow& = 6 THEN COLOR 12 ELSE COLOR 4 -LOCATE 22, 42 -PRINT "Major Point Bonus -" -IF arrow& = 7 THEN COLOR 12 ELSE COLOR 4 -LOCATE 23, 42 -PRINT "Combo Double -" -IF arrow& = 8 THEN COLOR 12 ELSE COLOR 4 -LOCATE 24, 42 -PRINT "Hyper Mode -" -IF it1& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 17, 66 -PRINT "On " -IF it1& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 17, 69 -PRINT "Off" -IF it2& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 18, 66 -PRINT "On " -IF it2& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 18, 69 -PRINT "Off" -IF it3& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 19, 66 -PRINT "On " -IF it3& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 19, 69 -PRINT "Off" -IF it4& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 20, 66 -PRINT "On " -IF it4& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 20, 69 -PRINT "Off" -IF it5& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 21, 66 -PRINT "On " -IF it5& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 21, 69 -PRINT "Off" -IF it8& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 22, 66 -PRINT "On " -IF it8& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 22, 69 -PRINT "Off" -IF it6& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 23, 66 -PRINT "On " -IF it6& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 23, 69 -PRINT "Off" -IF it7& = 1 THEN COLOR 12 ELSE COLOR 4 -LOCATE 24, 66 -PRINT "On " -IF it7& = 0 THEN COLOR 12 ELSE COLOR 4 -LOCATE 24, 69 -PRINT "Off" - -IF a$ = "d" THEN - CLS - switch& = 0 -END IF -GOTO skip - -start: -IF it& = 0 THEN it& = 15 -fic& = INT(RND * 5) + 1 -IF p1r& = 1 THEN p1m& = p1& -IF p2r& = 1 THEN p2m& = p2& -IF p3r& = 1 THEN p3m& = p3& -IF p4r& = 1 THEN p4m& = p4& -IF p1r& = 1 THEN p1& = 7 -IF p2r& = 1 THEN p2& = 7 -IF p3r& = 1 THEN p3& = 7 -IF p4r& = 1 THEN p4& = 7 -VIEW -CLS -DO -COLOR 14: LOCATE 1, 15: PRINT "Game Setup" -LINE (111, 8)-(191, 8) -COLOR 2: LOCATE 3, 15: PRINT "Players (" -LOCATE 3, 31: PRINT ")" -COLOR 10: LOCATE 3, 24: PRINT "1,2,3,4" -COLOR 1: LOCATE 4, 16: PRINT "P1 -" -LOCATE 4, 21 -IF p1& = 0 THEN PRINT "Off " -IF p1& = 1 THEN PRINT "Human " -IF p1& = 2 THEN PRINT "Computer (Easiest)" -IF p1& = 3 THEN PRINT "Computer (Easy) " -IF p1& = 4 THEN PRINT "Computer (Medium) " -IF p1& = 5 THEN PRINT "Computer (Hard) " -IF p1& = 6 THEN PRINT "Computer (Hardest)" -IF p1& = 7 THEN PRINT "Computer (Random) " -COLOR 4: LOCATE 5, 16: PRINT "P2 -" -LOCATE 5, 21 -IF p2& = 0 THEN PRINT "Off " -IF p2& = 1 THEN PRINT "Human " -IF p2& = 2 THEN PRINT "Computer (Easiest)" -IF p2& = 3 THEN PRINT "Computer (Easy) " -IF p2& = 4 THEN PRINT "Computer (Medium) " -IF p2& = 5 THEN PRINT "Computer (Hard) " -IF p2& = 6 THEN PRINT "Computer (Hardest)" -IF p2& = 7 THEN PRINT "Computer (Random) " -COLOR 2: LOCATE 6, 16: PRINT "P3 -" -LOCATE 6, 21 -IF p3& = 0 THEN PRINT "Off " -IF p3& = 1 THEN PRINT "Human " -IF p3& = 2 THEN PRINT "Computer (Easiest)" -IF p3& = 3 THEN PRINT "Computer (Easy) " -IF p3& = 4 THEN PRINT "Computer (Medium) " -IF p3& = 5 THEN PRINT "Computer (Hard) " -IF p3& = 6 THEN PRINT "Computer (Hardest)" -IF p3& = 7 THEN PRINT "Computer (Random) " -COLOR 14: LOCATE 7, 16: PRINT "P4 -" -LOCATE 7, 21 -IF p4& = 0 THEN PRINT "Off " -IF p4& = 1 THEN PRINT "Human " -IF p4& = 2 THEN PRINT "Computer (Easiest)" -IF p4& = 3 THEN PRINT "Computer (Easy) " -IF p4& = 4 THEN PRINT "Computer (Medium) " -IF p4& = 5 THEN PRINT "Computer (Hard) " -IF p4& = 6 THEN PRINT "Computer (Hardest)" -IF p4& = 7 THEN PRINT "Computer (Random) " -COLOR 4 -IF items& = 1 THEN - COLOR 12: LOCATE 9, 48: PRINT "l" - COLOR 4: LOCATE 9, 40: PRINT "Items Re" - LOCATE 9, 49: PRINT "ocate when Hit" - LOCATE 10, 41 - IF re& = 1 THEN PRINT "No " - IF re& = 0 THEN PRINT "Yes" - COLOR 12: LOCATE 12, 45: PRINT "U" - COLOR 4: LOCATE 12, 40: PRINT "Lose " - LOCATE 12, 46: PRINT "pgrades when Scored On" - LOCATE 13, 41 - IF lose& = 0 THEN PRINT "No " - IF lose& = 1 THEN PRINT "Yes" - LOCATE 15, 40: PRINT "Item Switch" - COLOR 12 - IF switch& = 1 THEN COLOR 4 - LOCATE 15, 46: PRINT "w" - IF switch& = 1 THEN - COLOR 4: LOCATE 15, 51: PRINT "(Press " - LOCATE 15, 60: PRINT "when done)" - COLOR 12: LOCATE 15, 58: PRINT "D" - END IF -END IF -COLOR 12: LOCATE 3, 40: PRINT "I" -COLOR 4: LOCATE 3, 41: PRINT "tems" -LOCATE 4, 41 -IF items& = 1 THEN PRINT "On " -IF items& = 0 THEN PRINT "Off" -IF items& = 1 THEN - COLOR 12: LOCATE 6, 40: PRINT "N" - COLOR 4: LOCATE 6, 41: PRINT "umber of Items" - LOCATE 7, 40: PRINT it& -END IF -COLOR 11: LOCATE 9, 15: PRINT "B" -COLOR 3: LOCATE 9, 16: PRINT "all Speed" -LOCATE 10, 16 -IF speed& = 1 THEN PRINT "Normal " -IF speed& = 2 THEN PRINT "Fast " -IF speed& = 3 THEN PRINT "Very Fast" -IF speed& = 4 THEN PRINT "Too Fast " -COLOR 11: LOCATE 12, 15: PRINT "P" -COLOR 3: LOCATE 12, 16: PRINT "ad Speed" -LOCATE 13, 16 -IF pad& = 1 THEN PRINT "Normal " -IF pad& = 2 THEN PRINT "Fast " -IF pad& = 3 THEN PRINT "Very Fast" -IF pad& = 4 THEN PRINT "Too Fast " -COLOR 9: LOCATE 15, 23: PRINT "M" -COLOR 1: LOCATE 15, 15: PRINT "Scoring" -LOCATE 15, 24: PRINT "ode" -LOCATE 16, 16 -IF scoret& = 1 THEN PRINT "Basic " -IF scoret& = 2 THEN PRINT "All Gain " -IF scoret& = 3 THEN PRINT "One Lose " -IF scoret& = 4 THEN PRINT "Combo " -IF scoret& = 5 THEN PRINT "All Gain (Combo)" -IF scoret& = 6 THEN PRINT "One Lose (Combo)" -IF scoret& = 3 OR scoret& = 6 THEN - COLOR 1: LOCATE 18, 15: PRINT "Start S" - LOCATE 19, 15: PRINT max& - LOCATE 18, 23: PRINT "ore 0 = No End " - COLOR 9: LOCATE 18, 22: PRINT "c" -ELSE - COLOR 1: LOCATE 18, 15: PRINT "Ma" - LOCATE 19, 15: PRINT max& - LOCATE 18, 19: PRINT "Score 0 = Unlimited" - COLOR 9: LOCATE 18, 17: PRINT "x " -END IF -COLOR 13: LOCATE 15, 2: PRINT "S" -LOCATE 17, 2: PRINT "R" -LOCATE 19, 2: PRINT "Q" -COLOR 5: LOCATE 15, 3: PRINT "tart" -LOCATE 17, 3: PRINT "eturn" -LOCATE 19, 3: PRINT "uit" -o& = 0 -IF p1& > 0 THEN o& = o& + 1 -IF p2& > 0 THEN o& = o& + 1 -IF p3& > 0 THEN o& = o& + 1 -IF p4& > 0 THEN o& = o& + 1 -IF switch& = 1 THEN GOTO switch -a$ = INKEY$ -IF a$ = "q" THEN END -IF a$ = "r" THEN EXIT DO -IF a$ = "s" THEN - started& = 0 - EXIT DO -ELSEIF a$ = "l" THEN - re& = -re& + 1 -ELSEIF a$ = "u" THEN - lose& = -lose& + 1 -ELSEIF a$ = "x" OR a$ = "c" THEN - LOCATE 19, 16 - PRINT " " - COLOR 1 - LOCATE 19, 16 - INPUT "", max& - IF max& > 500000 THEN max& = 500000 - CLS -ELSEIF a$ = "m" THEN - scoret& = scoret& + 1 - IF scoret& = 7 THEN scoret& = 1 -ELSEIF a$ = "w" AND items& = 1 THEN - arrow& = 1 - switch& = 1 -ELSEIF a$ = "b" THEN - speed& = speed& + 1 - IF speed& > 4 THEN speed& = 1 -ELSEIF a$ = "p" THEN - pad& = pad& + 1 - IF pad& = 5 THEN pad& = 1 -ELSEIF a$ = "n" THEN - it& = it& + 1 - IF it& > 15 THEN it& = 1: CLS -ELSEIF a$ = "i" THEN - items& = -items& + 1 - CLS -ELSEIF a$ = "1" THEN - p1& = p1& + 1 - IF p1& = 8 AND o& > 1 THEN p1& = 0 - IF p1& = 8 AND o& < 2 THEN p1& = 1 - started& = 0 - CLS -ELSEIF a$ = "2" THEN - p2& = p2& + 1 - IF p2& = 8 AND o& > 1 THEN p2& = 0 - IF p2& = 8 AND o& < 2 THEN p2& = 1 - started& = 0 - CLS -ELSEIF a$ = "3" THEN - p3& = p3& + 1 - IF p3& = 8 AND o& > 1 THEN p3& = 0 - IF p3& = 8 AND o& < 2 THEN p3& = 1 - started& = 0 - CLS -ELSEIF a$ = "4" THEN - p4& = p4& + 1 - IF p4& = 8 AND o& > 1 THEN p4& = 0 - IF p4& = 8 AND o& < 2 THEN p4& = 1 - started& = 0 - CLS -END IF -skip: -VIEW SCREEN (0, 0)-(102, 102) -IF items& = 1 THEN - FOR i = 1 TO it& - IF ABS(ballx& - demoitemx(1, i)) < 2 AND ABS(bally& - demoitemy(1, i)) < 2 AND re& = 0 THEN - CLS - demoitemx(1, i) = INT(RND * 74) + 14 - demoitemy(1, i) = INT(RND * 74) + 14 - END IF - LINE (demoitemx(1, i), demoitemy(1, i))-(demoitemx(1, i) + 1, demoitemy(1, i) + 1), fic&, BF - NEXT i -END IF -x1& = 0 -y1& = 0 -x2& = 102 -y2& = 102 -IF p1& = 0 THEN y1& = 12 -IF p2& = 0 THEN x1& = 12 -IF p3& = 0 THEN y2& = 90 -IF p4& = 0 THEN x2& = 90 -LINE (x1&, y1&)-(x2&, y2&), co&, B -IF p1& > 0 AND p2& > 0 THEN - LINE (2, 2)-(2, 14), 1 - LINE (2, 2)-(14, 2), 1 - LINE (14, 2)-(2, 14), 1 -END IF -IF p2& > 0 AND p3& > 0 THEN - LINE (2, 100)-(2, 88), 4 - LINE (2, 100)-(14, 100), 4 - LINE (14, 100)-(2, 88), 4 -END IF -IF p3& > 0 AND p4& > 0 THEN - LINE (100, 100)-(100, 88), 2 - LINE (100, 100)-(88, 100), 2 - LINE (88, 100)-(100, 88), 2 -END IF -IF p4& > 0 AND p1& > 0 THEN - LINE (100, 2)-(100, 14), 14 - LINE (100, 2)-(88, 2), 14 - LINE (88, 2)-(100, 14), 14 -END IF -IF p1& > 0 THEN LINE (pad1& - 5, 2)-(pad1& + 5, 3), 1, BF -IF p2& > 0 THEN LINE (2, pad2& - 5)-(3, pad2& + 5), 4, BF -IF p3& > 0 THEN LINE (pad3& - 5, 100)-(pad3& + 5, 99), 2, BF -IF p4& > 0 THEN LINE (100, pad4& - 5)-(99, pad4& + 5), 14, BF - -IF p1& > 0 THEN LINE (pad1& - 6, 2)-(15, 4), 0, BF -IF p1& > 0 THEN LINE (pad1& + 6, 2)-(87, 4), 0, BF -IF p2& > 0 THEN LINE (2, pad2& - 6)-(4, 15), 0, BF -IF p2& > 0 THEN LINE (2, pad2& + 6)-(4, 87), 0, BF -IF p3& > 0 THEN LINE (pad3& - 6, 100)-(15, 98), 0, BF -IF p3& > 0 THEN LINE (pad3& + 6, 100)-(87, 98), 0, BF -IF p4& > 0 THEN LINE (100, pad4& - 6)-(98, 15), 0, BF -IF p4& > 0 THEN LINE (100, pad4& + 6)-(98, 87), 0, BF - -IF (bally& < 15 OR bally& > 87) AND ballxs& = 0 THEN ballxs& = 1 -IF (ballx& < 15 OR ballx& > 87) AND ballys& = 0 THEN ballys& = 1 - -IF ballx& < 14 AND bally& < 14 THEN - SWAP ballxs&, ballys& - ballxs& = -ballxs& - ballys& = -ballys& - IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1 - LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B - bally& = 13 - ballx& = 13 - SOUND 750, .1 -END IF -IF ballx& < 14 AND bally& > 88 THEN - SWAP ballxs&, ballys& - IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1 - LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B - bally& = 89 - ballx& = 13 - SOUND 750, .1 -END IF -IF ballx& > 88 AND bally& < 14 THEN - SWAP ballxs&, ballys& - IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1 - LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B - bally& = 13 - ballx& = 89 - SOUND 750, .1 -END IF -IF ballx& > 88 AND bally& > 88 THEN - SWAP ballxs&, ballys& - ballxs& = -ballxs& - ballys& = -ballys& - IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1 - LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B - bally& = 89 - ballx& = 89 - SOUND 750, .1 -END IF -LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B -PSET (ballx2&, bally2&), 0 -PSET (ballx3&, bally3&), 0 -PSET (ballx4&, bally4&), 0 -bally4& = bally3& -bally3& = bally2& -bally2& = bally& -ballx4& = ballx3& -ballx3& = ballx2& -ballx2& = ballx& -bally& = bally& + ballys& -ballx& = ballx& + ballxs& -LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 4, B -PSET (ballx&, bally&), 14 -PSET (ballx2&, bally2&), 12 -PSET (ballx3&, bally3&), 12 -PSET (ballx4&, bally4&), 8 - -IF bally& < 1 OR (bally& < 14 AND p1& = 0) THEN - IF p1& > 0 THEN co& = 1 - ballys& = INT(RND * 3) + 1 - SOUND 500, .1 -ELSEIF ballx& < 1 OR (ballx& < 14 AND p2& = 0) THEN - IF p2& > 0 THEN co& = 4 - ballxs& = INT(RND * 3) + 1 - SOUND 500, .1 -ELSEIF ballx& > 100 OR (ballx& > 88 AND p4& = 0) THEN - IF p4& > 0 THEN co& = 14 - ballxs& = -(INT(RND * 3) + 1) - SOUND 500, .1 -ELSEIF bally& > 100 OR (bally& > 88 AND p3& = 0) THEN - IF p3& > 0 THEN co& = 2 - ballys& = -(INT(RND * 3) + 1) - SOUND 500, .1 -END IF - -IF ballys& < 0 THEN - IF ballx& > pad1& THEN pad1& = pad1& + 3 - IF ballx& < pad1& THEN pad1& = pad1& - 3 - IF pad1& > 82 THEN pad1& = 82 - IF pad1& < 20 THEN pad1& = 20 -END IF -IF ballxs& < 0 THEN - IF bally& > pad2& THEN pad2& = pad2& + 3 - IF bally& < pad2& THEN pad2& = pad2& - 3 - IF pad2& > 82 THEN pad2& = 82 - IF pad2& < 20 THEN pad2& = 20 -END IF -IF ballys& > 0 THEN - IF ballx& > pad3& THEN pad3& = pad3& + 3 - IF ballx& < pad3& THEN pad3& = pad3& - 3 - IF pad3& > 82 THEN pad3& = 82 - IF pad3& < 20 THEN pad3& = 20 -END IF -IF ballxs& > 0 THEN - IF bally& > pad4& THEN pad4& = pad4& + 3 - IF bally& < pad4& THEN pad4& = pad4& - 3 - IF pad4& > 82 THEN pad4& = 82 - IF pad4& < 20 THEN pad4& = 20 -END IF -VIEW -LOOP -IF (scoret& = 3 OR scoret& = 6) AND o& = 1 THEN GOTO start -IF p1& = 7 THEN p1r& = 1 ELSE p1r& = 0 -IF p2& = 7 THEN p2r& = 1 ELSE p2r& = 0 -IF p3& = 7 THEN p3r& = 1 ELSE p3r& = 0 -IF p4& = 7 THEN p4r& = 1 ELSE p4r& = 0 -IF started& = 1 THEN - IF p1r& = 1 THEN p1& = p1m& - IF p2r& = 1 THEN p2& = p2m& - IF p3r& = 1 THEN p3& = p3m& - IF p4r& = 1 THEN p4& = p4m& -END IF -IF started& = 1 THEN startedd& = startedd& + subtract& -IF started& = 0 THEN GOTO new ELSE GOTO restart - diff --git a/programs/samples/qb45com/action/arcdemo/amm1.spr b/programs/samples/qb45com/action/arcdemo/amm1.spr deleted file mode 100644 index 9cb637dfb..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 7 - 12 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 12 - 12 - 12 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 7 - 12 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 7 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/amm1.sps b/programs/samples/qb45com/action/arcdemo/amm1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/amm2.spr b/programs/samples/qb45com/action/arcdemo/amm2.spr deleted file mode 100644 index a242fef8c..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 6 - 6 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 6 - 6 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 6 - 6 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 6 - 6 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 6 - 6 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/amm2.sps b/programs/samples/qb45com/action/arcdemo/amm2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/amm3.spr b/programs/samples/qb45com/action/arcdemo/amm3.spr deleted file mode 100644 index 271f41c68..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm3.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 7 - 7 - 7 - 7 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 8 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 8 - 8 - 7 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 8 - 7 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 7 - 7 - 7 - 7 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/amm3.sps b/programs/samples/qb45com/action/arcdemo/amm3.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm3.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/amm3m.spr b/programs/samples/qb45com/action/arcdemo/amm3m.spr deleted file mode 100644 index 5d1d8e892..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm3m.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/amm3m.sps b/programs/samples/qb45com/action/arcdemo/amm3m.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/amm3m.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/arcdemo.bas b/programs/samples/qb45com/action/arcdemo/arcdemo.bas deleted file mode 100644 index 42c5bba08..000000000 --- a/programs/samples/qb45com/action/arcdemo/arcdemo.bas +++ /dev/null @@ -1,449 +0,0 @@ -CHDIR ".\programs\samples\qb45com\action\arcdemo" - -rem No Tittle - -screen 12 - -print "It`s great demo of my VIRTUAL SCREEN engene" -print "Press Q/A/O/P/M to move your soldier " -print "This program written by Tsiplacov Sergey" -print "For best work, you need at least 486DX processor" -print "and FirstBasic Compiler." -print -print "maple@arstel.ru Sergey, Russia" -rus: -a$=inkey$ -if a$<>"" then goto beg -goto rus - - -beg: -SCREEN 7 -SCREEN , , 3, 2 -RESTORE mdat -FOR f = 1 TO 77 -READ a$ -OPEN a$ + ".sps" FOR INPUT AS #2 -INPUT #2, r, ah, bh -CLOSE #2 -OPEN a$ + ".spr" FOR INPUT AS #2 -DIM dd(ah, bh) -FOR x = 1 TO ah: FOR y = 1 TO bh: INPUT #2, dd(x, y): PSET (x, y), dd(x, y): NEXT y: NEXT x -CLOSE #2 -IF f = 1 THEN DIM g1(r): GET (1, 1)-(ah, bh), g1 -IF f = 2 THEN DIM g2(r): GET (1, 1)-(ah, bh), g2 -IF f = 3 THEN DIM g3(r): GET (1, 1)-(ah, bh), g3 -IF f = 4 THEN DIM wc(r): GET (1, 1)-(ah, bh), wc -IF f = 5 THEN DIM h1l(r): GET (1, 1)-(ah, bh), h1l -IF f = 6 THEN DIM h2l(r): GET (1, 1)-(ah, bh), h2l -IF f = 7 THEN DIM h1r(r): GET (1, 1)-(ah, bh), h1r -IF f = 8 THEN DIM h2r(r): GET (1, 1)-(ah, bh), h2r -IF f = 9 THEN DIM w1(r): GET (1, 1)-(ah, bh), w1 -IF f = 10 THEN DIM w2(r): GET (1, 1)-(ah, bh), w2 -IF f = 11 THEN DIM h1lm(r): GET (1, 1)-(ah, bh), h1lm -IF f = 12 THEN DIM h2lm(r): GET (1, 1)-(ah, bh), h2lm -IF f = 13 THEN DIM h1rm(r): GET (1, 1)-(ah, bh), h1rm -IF f = 14 THEN DIM h2rm(r): GET (1, 1)-(ah, bh), h2rm -IF f = 15 THEN DIM m1(r): GET (1, 1)-(ah, bh), m1 -IF f = 16 THEN DIM m2(r): GET (1, 1)-(ah, bh), m2 -IF f = 17 THEN DIM t1r(r): GET (1, 1)-(ah, bh), t1r -IF f = 18 THEN DIM t1l(r): GET (1, 1)-(ah, bh), t1l -IF f = 19 THEN DIM t1rm(r): GET (1, 1)-(ah, bh), t1rm -IF f = 20 THEN DIM t1lm(r): GET (1, 1)-(ah, bh), t1lm -IF f = 21 THEN DIM mr1r(r): GET (1, 1)-(ah, bh), mr1r -IF f = 22 THEN DIM mr2r(r): GET (1, 1)-(ah, bh), mr2r -IF f = 23 THEN DIM mr1l(r): GET (1, 1)-(ah, bh), mr1l -IF f = 24 THEN DIM mr2l(r): GET (1, 1)-(ah, bh), mr2l -IF f = 25 THEN DIM mr1rm(r): GET (1, 1)-(ah, bh), mr1rm -IF f = 26 THEN DIM mr2rm(r): GET (1, 1)-(ah, bh), mr2rm -IF f = 27 THEN DIM mr1lm(r): GET (1, 1)-(ah, bh), mr1lm -IF f = 28 THEN DIM mr2lm(r): GET (1, 1)-(ah, bh), mr2lm -IF f = 29 THEN DIM ff(r): GET (1, 1)-(ah, bh), ff -IF f = 30 THEN DIM ffm(r): GET (1, 1)-(ah, bh), ffm -IF f = 31 THEN DIM lkl(r): GET (1, 1)-(ah, bh), lkl -IF f = 32 THEN DIM lkr(r): GET (1, 1)-(ah, bh), lkr -IF f = 33 THEN DIM lklm(r): GET (1, 1)-(ah, bh), lklm -IF f = 34 THEN DIM lkrm(r): GET (1, 1)-(ah, bh), lkrm -IF f = 35 THEN DIM g4(r): GET (1, 1)-(ah, bh), g4 -IF f = 36 THEN DIM g5(r): GET (1, 1)-(ah, bh), g5 -IF f = 37 THEN DIM g6(r): GET (1, 1)-(ah, bh), g6 -IF f = 38 THEN DIM g7(r): GET (1, 1)-(ah, bh), g7 -IF f = 39 THEN DIM g8(r): GET (1, 1)-(ah, bh), g8 -IF f = 40 THEN DIM g9(r): GET (1, 1)-(ah, bh), g9 -IF f = 41 THEN DIM g10(r): GET (1, 1)-(ah, bh), g10 -IF f = 42 THEN DIM g11(r): GET (1, 1)-(ah, bh), g11 -IF f = 43 THEN DIM g12(r): GET (1, 1)-(ah, bh), g12 -IF f = 44 THEN DIM tr1r(r): GET (1, 1)-(ah, bh), tr1r -IF f = 45 THEN DIM tr1l(r): GET (1, 1)-(ah, bh), tr1l -IF f = 46 THEN DIM tr1rm(r): GET (1, 1)-(ah, bh), tr1rm -IF f = 47 THEN DIM tr1lm(r): GET (1, 1)-(ah, bh), tr1lm -IF f = 48 THEN DIM bl1(r): GET (1, 1)-(ah, bh), bl1 -IF f = 49 THEN DIM bl2(r): GET (1, 1)-(ah, bh), bl2 -IF f = 50 THEN DIM bl3(r): GET (1, 1)-(ah, bh), bl3 -IF f = 51 THEN DIM bl1m(r): GET (1, 1)-(ah, bh), bl1m -IF f = 52 THEN DIM bl2m(r): GET (1, 1)-(ah, bh), bl2m -IF f = 53 THEN DIM bl3m(r): GET (1, 1)-(ah, bh), bl3m -IF f = 54 THEN DIM dm1(r): GET (1, 1)-(ah, bh), dm1 -IF f = 55 THEN DIM dm2(r): GET (1, 1)-(ah, bh), dm2 -IF f = 56 THEN DIM dm1m(r): GET (1, 1)-(ah, bh), dm1m -IF f = 57 THEN DIM dm2m(r): GET (1, 1)-(ah, bh), dm2m -IF f = 58 THEN DIM dm3(r): GET (1, 1)-(ah, bh), dm3 -IF f = 59 THEN DIM dm3m(r): GET (1, 1)-(ah, bh), dm3m -IF f = 60 THEN DIM mdl(r): GET (1, 1)-(ah, bh), mdl -IF f = 61 THEN DIM mdr(r): GET (1, 1)-(ah, bh), mdr -IF f = 62 THEN DIM mdlm(r): GET (1, 1)-(ah, bh), mdlm -IF f = 63 THEN DIM mdrm(r): GET (1, 1)-(ah, bh), mdrm -IF f = 64 THEN DIM am1(r): GET (1, 1)-(ah, bh), am1 -IF f = 65 THEN DIM am2(r): GET (1, 1)-(ah, bh), am2 -IF f = 66 THEN DIM am3(r): GET (1, 1)-(ah, bh), am3 -IF f = 67 THEN DIM fc(r): GET (1, 1)-(ah, bh), fc -IF f = 68 THEN DIM am3m(r): GET (1, 1)-(ah, bh), am3m -IF f = 69 THEN DIM g13(r): GET (1, 1)-(ah, bh), g13 -IF f = 70 THEN DIM g14(r): GET (1, 1)-(ah, bh), g14 -IF f = 71 THEN DIM g15(r): GET (1, 1)-(ah, bh), g15 -IF f = 72 THEN DIM g16(r): GET (1, 1)-(ah, bh), g16 -IF f = 73 THEN DIM g17(r): GET (1, 1)-(ah, bh), g17 -IF f = 74 THEN DIM g18(r): GET (1, 1)-(ah, bh), g18 -IF f = 75 THEN DIM g19(r): GET (1, 1)-(ah, bh), g19 -IF f = 76 THEN DIM g20(r): GET (1, 1)-(ah, bh), g20 -IF f = 77 THEN DIM g21(r): GET (1, 1)-(ah, bh), g21 - - -ERASE dd -NEXT f -CLS -SCREEN , , 3, 3 - -mdat: -DATA "gr1","gr2","gr3","wcl","m11l","m12l","m11r","m12r","wod1","wod2" -DATA "m11lm","m12lm","m11rm","m12rm","man1","man2","t1r","t1l","t1rm","t1lm" -DATA "mr1r","mr2r","mr1l","mr2l","mr1rm","mr2rm","mr1lm","mr2lm","fir","firm" -DATA "luk1l","luk1r","luk1lm","luk1rm","cfon1","cfon2","cfon3","cfon4","cfon5","cfon6","cfon7","cfon8","cfon9" -DATA "tr1r","tr1l","tr1rm","tr1lm","bl1","bl2","bl3","bl1m","bl2m","bl3m" -DATA "dm1","dm2","dm1m","dm2m","dm3","dm3m","mdl","mdr","mdlm","mdrm" -DATA "amm1","amm2","amm3","face","amm3m","cfon10","cfon11" -DATA "cfon12","cfon13","cfon14","cfon15","cfon16","cfon17","cfon18","cfon19","cfon20" - -RANDOMIZE 1000 -intro = 1: inhod = 1: col = 7: cc = 1 -REM LOCATE 10, 12: PRINT "Program modified": END -DIM a(200, 10) -DIM b(200, 10) -DIM x(100, 10): DIM y(100, 10) -vid = 3 -vir = 2 -GOSUB lod -a = 7: b = 6: h = 1: s = 1: hh = 1: hj = 0: fly = 0: op = 0: hod = 0 -wh = 1 -bx = 10: by = 10: dx = 4: dy = -.2: fire = 0 -hodd = 0 -brekhod = 0 -DIM aa(100): DIM bb(100): DIM u(100): DIM s(100): DIM die(100) -f = 1 - -pow = 3: liv = 3: amm = 3: gold = 0: bom = 0 - -mig = 0: mag = 0 -mdm = 0 -FOR x = 1 TO 200 -FOR y = 1 TO 10 -IF a(x, y) = 6 THEN s(f) = -2.5: u(f) = 1: bb(f) = 1: aa(f) = x * 15: GOTO jj -IF a(x, y) = 7 THEN s(f) = -4: u(f) = 2: bb(f) = 1: aa(f) = x * 15: GOTO jj -IF a(x, y) = 8 THEN s(f) = -4: u(f) = 3: aa(f) = x * 15: bb(f) = y * 15: f = f + 1 -jj0: -NEXT y -NEXT x -GOTO ser -jj: -IF b(aa(f) / 15, bb(f) / 15) = 1 THEN bb(f) = bb(f) - 15: GOTO jj2 -bb(f) = bb(f) + 15 -GOTO jj -jj2: -f = f + 1 -GOTO jj0 -ser: -FOR f = 1 TO 10 -a$ = INKEY$ -NEXT f - -gg: -SCREEN , , vid, vir -SCREEN , , vid, vir -GOSUB act -SCREEN , vid, vid -vid = vid + 1: IF vid > 4 THEN vid = 2 -vir = vir + 1: IF vir > 4 THEN vir = 2 -GOTO gg - - -act: -IF a$ = " " AND intro = 1 THEN intro = 0: hod = 0 -IF intro = 1 THEN hod = hod + inhod: IF hod > 91 OR hod < 1 THEN inhod = -inhod -IF hod < 2 AND hodd < 0 THEN hodd = 0 -IF hod > 91 AND hodd > 0 THEN hodd = 0: brekhod = 1 -IF hodd > 0 AND brekhod = 0 THEN hodd = hodd - 1: hod = hod + 1: a = a - 1: IF fire = 1 THEN bx = bx - 15 -IF hodd < 0 AND brekhod = 0 THEN hodd = hodd + 1: hod = hod - 1: a = a + 1: IF fire = 1 THEN bx = bx + 15 -act2: -bl = RND -FOR yy = 1 TO 10 -PUT (0, yy * 15), wc, PSET -PUT (20 * 15, yy * 15), wc, PSET -NEXT yy -FOR x = 1 TO 19 -FOR y = 1 TO 10 -IF a(x + INT(hod), y) = 1 THEN PUT (x * 15, y * 15), g1, PSET: GOTO nn -IF a(x + INT(hod), y) = 2 THEN PUT (x * 15, y * 15), g2, PSET: GOTO nn -IF a(x + INT(hod), y) = 3 THEN PUT (x * 15, y * 15), g3, PSET: GOTO nn -IF a(x + INT(hod), y) = 4 AND wh = 1 THEN PUT (x * 15, y * 15), w1, PSET: GOTO nn -IF a(x + INT(hod), y) = 4 AND wh = -1 THEN PUT (x * 15, y * 15), w2, PSET: GOTO nn -IF a(x + INT(hod), y) = 5 AND bl <= .95 THEN PUT (x * 15, y * 15), m1, PSET: GOTO nn -IF a(x + INT(hod), y) = 5 AND bl > .95 THEN PUT (x * 15, y * 15), m2, PSET: GOTO nn -IF a(x + INT(hod), y) = 9 THEN PUT (x * 15, y * 15), g4, PSET: GOTO nn -IF a(x + INT(hod), y) = 10 THEN PUT (x * 15, y * 15), g5, PSET: GOTO nn -IF a(x + INT(hod), y) = 11 THEN PUT (x * 15, y * 15), g6, PSET: GOTO nn -IF a(x + INT(hod), y) = 12 THEN PUT (x * 15, y * 15), g7, PSET: GOTO nn -IF a(x + INT(hod), y) = 13 THEN PUT (x * 15, y * 15), g8, PSET: GOTO nn -IF a(x + INT(hod), y) = 14 THEN PUT (x * 15, y * 15), g9, PSET: GOTO nn -IF a(x + INT(hod), y) = 15 THEN PUT (x * 15, y * 15), g10, PSET: GOTO nn -IF a(x + INT(hod), y) = 16 THEN PUT (x * 15, y * 15), g11, PSET: GOTO nn -IF a(x + INT(hod), y) = 17 THEN PUT (x * 15, y * 15), g12, PSET: GOTO nn -IF a(x + INT(hod), y) = 18 THEN PUT (x * 15, y * 15), am1, PSET: GOTO nn -IF a(x + INT(hod), y) = 19 THEN PUT (x * 15, y * 15), am2, PSET: GOTO nn -IF a(x + INT(hod), y) = 20 THEN PUT (x * 15, y * 15), am3, PSET: GOTO nn -IF a(x + INT(hod), y) = 21 THEN PUT (x * 15, y * 15), g13, PSET: GOTO nn -IF a(x + INT(hod), y) = 22 THEN PUT (x * 15, y * 15), g14, PSET: GOTO nn -IF a(x + INT(hod), y) = 23 THEN PUT (x * 15, y * 15), g15, PSET: GOTO nn -IF a(x + INT(hod), y) = 24 THEN PUT (x * 15, y * 15), g16, PSET: GOTO nn -IF a(x + INT(hod), y) = 25 THEN PUT (x * 15, y * 15), g17, PSET: GOTO nn -IF a(x + INT(hod), y) = 26 THEN PUT (x * 15, y * 15), g18, PSET: GOTO nn -IF a(x + INT(hod), y) = 27 THEN PUT (x * 15, y * 15), g19, PSET: GOTO nn -IF a(x + INT(hod), y) = 28 AND bl > .7 THEN PUT (x * 15, y * 15), g21, PSET: GOTO nn -IF a(x + INT(hod), y) = 28 AND bl <= .7 THEN PUT (x * 15, y * 15), g20, PSET: GOTO nn -if a(x+int(hod),y-1)=28 or a(x+int(hod),y-1)=27 then put(x*15,y*15),wc,pset:gosub dddd:for ddt=1 to 10:ddx=rnd*5+5:ddy=rnd*ddd:pset (x*15+ddx,y*15+ddy),12:next ddt:goto nn -PUT (x * 15, y * 15), wc, PSET -nn: -NEXT y -IF mdm = 0 AND intro = 0 THEN GOSUB kli -NEXT x -IF intro = 1 THEN GOSUB intr: RETURN -IF a <> hh THEN h = -h: op = 1 -IF op1 = 1 THEN op = 1 -op1 = 0 -hh = a -IF b(a + hod, b + .9) = 0 THEN fly = 1: b = b + hj: h = -1 ELSE fly = 0 -IF b(a + hod, b + .8) <> 0 THEN b = b - .1: h = 1 -IF b(a + hod, b - .5) <> 0 OR b < 1.5 THEN hj = .1 -IF hj < .5 THEN hj = hj + .1 -IF a(a + hod - .2, b + .8) = 5 THEN a(a + hod - .2, b + .8) = 0: gold = gold + 1: IF gold > 9 THEN gold = 0: liv = liv + 1 -IF a(a + hod - .2, b + .8) = 18 THEN a(a + hod - .2, b + .8) = 0 -IF a(a + hod - .2, b + .8) = 19 THEN a(a + hod - .2, b + .8) = 0: amm = amm + 1 -IF a(a + hod - .2, b + .8) = 20 THEN a(a + hod - .2, b + .8) = 0: bom = bom + 1 - -IF mdm <> 0 THEN GOSUB md: GOTO mf -IF s = 1 AND h = 1 AND mig <> 1 THEN PUT (a * 15, b * 15), h1lm, AND: PUT (a * 15, b * 15), h1l, XOR -IF s = 1 AND h = -1 AND mig <> 1 THEN PUT (a * 15, b * 15), h2lm, AND: PUT (a * 15, b * 15), h2l, XOR -IF s = -1 AND h = 1 AND mig <> 1 THEN PUT (a * 15, b * 15), h1rm, AND: PUT (a * 15, b * 15), h1r, XOR -IF s = -1 AND h = -1 AND mig <> 1 THEN PUT (a * 15, b * 15), h2rm, AND: PUT (a * 15, b * 15), h2r, XOR -mf: -IF a > 15 THEN hodd = 8 -IF a < 6 AND hod > 1 THEN hodd = -8 -IF fly = 1 THEN GOSUB ts: IF t = 0 THEN a = a + s / 3 -wsp = wsp + 1: IF wsp > 2 THEN wsp = 0: wh = -wh -IF fly = 0 THEN op = 0 -IF brekhod = 0 THEN GOSUB mon -IF fire = 1 THEN IF bx / 15 > 20 OR bx / 15 < 1 THEN fire = 0: IF bom > 0 THEN bom = bom - 1 -IF b(bx / 15 + hod, by / 15) <> 0 AND fire = 1 THEN fire = 0: IF bom > 0 THEN bom = bom - 1 -IF fire = 1 AND bom <= 0 THEN PUT (bx, by), ffm, AND: PUT (bx, by), ff, XOR: bx = bx + dx -IF fire = 1 AND bom > 0 THEN PUT (bx, by), am3m, AND: PUT (bx, by), am3, XOR: bx = bx + dx -REM LOCATE 1, 1: PRINT mig; " " -ktm = ktm + 1 -IF mig <> 0 THEN mig = mig + 1: IF mig > 3 THEN mig = 1 -mag = mag - 1: IF mag < 0 THEN mig = 0 -IF mdm > 20 THEN LOCATE 9, 14: COLOR 11: PRINT "® íâ® ­¥ ª®­¥æ" -GOSUB panel -RETURN - -md: -IF s = -1 THEN PUT (a * 15, b * 15 + 1), mdrm, AND: PUT (a * 15, b * 15 + 1), mdr, XOR -IF s = 1 THEN PUT (a * 15, b * 15 + 1), mdlm, AND: PUT (a * 15, b * 15 + 1), mdl, XOR -mdm = mdm + 1: IF mdm = 50 THEN END -RETURN - -kli: - -_LIMIT 250 - -a$ = INKEY$ -IF a$ = "e" THEN END -IF a$ = "o" AND fly = 0 THEN ktm = 0: s = -1: GOSUB ts: IF t = 0 THEN a = a - .2 -IF a$ = "p" AND fly = 0 THEN ktm = 0: s = 1: GOSUB ts: IF t = 0 THEN a = a + .2 -IF a$ = "q" AND fly = 0 AND b > 2 THEN hj = -.6: b = b - .2 -IF a$ = "o" AND fly = 1 THEN op1 = 1: s = -1 -IF a$ = "p" AND fly = 1 THEN op1 = 1: s = 1 -IF a$ = "m" AND fire = 0 THEN fire = 1: GOSUB firs -RETURN - -firs: -IF s = -1 THEN bx = a * 15 - 10: by = b * 15 + 5: dx = -10 -IF s = 1 THEN bx = a * 15 + 10: by = b * 15 + 5: dx = 10 -IF bom > 0 THEN by = b * 15 -RETURN - -ts: -t = 0 -IF s = 1 THEN IF b(a + hod + .6, b + .6) = 1 THEN t = 1 -IF s = -1 THEN IF b(a + hod - .6, b + .6) = 1 THEN t = 1 -IF s = -1 AND a < 1.5 THEN t = 1 -IF ktm > 2 AND op = 0 AND fly = 1 THEN t = 1 -RETURN - -mon: -FOR f = 1 TO 100 -aaa = 0 -IF hodd > 0 THEN aa(f) = aa(f) - 15: aaa = 15: FOR sz = 1 TO 10: x(f, sz) = x(f, sz) - 15: NEXT sz -IF hodd < 0 THEN aa(f) = aa(f) + 15: aaa = -15: FOR sz = 1 TO 10: x(f, sz) = x(f, sz) + 15: NEXT sz -IF die(f) <> 0 THEN GOSUB dm: GOTO ccc2 -IF aa(f) / 15 > 1 AND aa(f) / 15 < 19 THEN GOTO ccc -GOTO ccc2 -ccc: -IF fire = 1 AND die(f) = 0 AND bx > aa(f) - 5 AND bx < aa(f) + 20 AND by > bb(f) - 10 AND by < bb(f) + 15 THEN die(f) = -1: GOSUB bm: FOR sz = 1 TO 10: x(f, sz) = aa(f) + RND * 15: y(f, sz) = bb(f) + RND * 5: NEXT sz: GOTO ccc2 -IF u(f) = 1 THEN GOSUB mon1 -IF u(f) = 2 THEN GOSUB mon2 -IF u(f) = 3 THEN GOSUB mon3 -IF mig = 0 AND a > aa(f) / 15 - 1 AND a < aa(f) / 15 + 1 AND b > bb(f) / 15 - 1 AND b < bb(f) / 15 + 1 THEN mag = 50: mig = 1: pow = pow - 1: IF pow <= 0 THEN mdm = 1 -ccc2: -IF die(f) <> 0 THEN die(f) = die(f) - 1: GOSUB mbl -IF die(f) = 0 THEN x(f, 1) = aa(f): y(f, 1) = bb(f) -NEXT f -RETURN - -bm: -IF bom > 0 THEN fire = 1 ELSE fire = 0 -RETURN - -dm: -IF aa(f) / 15 > 1 AND aa(f) / 15 < 19 THEN GOTO dmm -RETURN -dmm: -IF u(f) = 3 AND bb(f) < 143 THEN yu = b(aa(f) / 15 + hod + aaa / 15, bb(f) / 15 + .9) -IF u(f) = 3 AND bb(f) < 143 AND a(aa(f) / 15 + hod + aaa / 15, bb(f) / 15) = 4 THEN bb(f) = bb(f) - RND: GOTO dmmm -IF u(f) = 3 AND yu <> 1 THEN bb(f) = bb(f) + 3 -dmmm: -IF u(f) = 1 THEN PUT (aa(f) + aaa, bb(f)), dm1m, AND: PUT (aa(f) + aaa, bb(f)), dm1, XOR -IF u(f) = 2 THEN PUT (aa(f) + aaa, bb(f)), dm2m, AND: PUT (aa(f) + aaa, bb(f)), dm2, XOR -IF u(f) = 3 AND bb(f) < 143 THEN PUT (aa(f) + aaa, bb(f)), dm3m, AND: PUT (aa(f) + aaa, bb(f)), dm3, XOR -RETURN - -mbl: -IF y(f, 1) > 150 THEN RETURN -FOR sz = 1 TO 10 -FOR ssz = 1 TO 2 -PSET (x(f, sz) + aaa + RND * 2, y(f, sz) + RND * 2 + 7), 12 -PSET (x(f, sz) + aaa + RND * 2, y(f, sz) + RND * 2 + 7), 4 -NEXT ssz -y(f, sz) = y(f, sz) - die(f) / 5 - 2 -x(f, sz) = x(f, sz) + RND * 6 - 3 -NEXT sz -RETURN - -mon1: -IF b(aa(f) / 15 + hod + .5 + aaa / 15, bb(f) / 15 + 1) <> 1 THEN s(f) = -2.5 -IF b(aa(f) / 15 + hod - .5 + aaa / 15, bb(f) / 15 + 1) <> 1 THEN s(f) = 2.5 -IF b(aa(f) / 15 + hod + .5 + aaa / 15, bb(f) / 15) = 1 THEN s(f) = -2.5 -IF b(aa(f) / 15 + hod - .5 + aaa / 15, bb(f) / 15) = 1 THEN s(f) = 2.5 - -aa(f) = aa(f) + s(f) -IF s(f) = 2.5 AND wh = 1 THEN PUT (aa(f) + aaa, bb(f) - 5), t1rm, AND: PUT (aa(f) + aaa, bb(f) - 5), t1r, XOR -IF s(f) = 2.5 AND wh = -1 THEN PUT (aa(f) + aaa, bb(f) - 5), tr1lm, AND: PUT (aa(f) + aaa, bb(f) - 5), tr1l, XOR -IF s(f) = -2.5 AND wh = 1 THEN PUT (aa(f) + aaa, bb(f) - 5), t1lm, AND: PUT (aa(f) + aaa, bb(f) - 5), t1l, XOR -IF s(f) = -2.5 AND wh = -1 THEN PUT (aa(f) + aaa, bb(f) - 5), tr1rm, AND: PUT (aa(f) + aaa, bb(f) - 5), tr1r, XOR -RETURN - -mon2: -IF b(aa(f) / 15 + hod + .5 + aaa / 15, bb(f) / 15 + 1) <> 1 THEN s(f) = -4 -IF b(aa(f) / 15 + hod - .5 + aaa / 15, bb(f) / 15 + 1) <> 1 THEN s(f) = 4 -IF b(aa(f) / 15 + hod + .5 + aaa / 15, bb(f) / 15) = 1 THEN s(f) = -4 -IF b(aa(f) / 15 + hod - .5 + aaa / 15, bb(f) / 15) = 1 THEN s(f) = 4 - -aa(f) = aa(f) + s(f) -IF s(f) = 4 AND wh = 1 THEN PUT (aa(f) + aaa, bb(f)), mr1rm, AND: PUT (aa(f) + aaa, bb(f)), mr1r, XOR -IF s(f) = 4 AND wh = -1 THEN PUT (aa(f) + aaa, bb(f)), mr2rm, AND: PUT (aa(f) + aaa, bb(f)), mr2r, XOR -IF s(f) = -4 AND wh = 1 THEN PUT (aa(f) + aaa, bb(f)), mr1lm, AND: PUT (aa(f) + aaa, bb(f)), mr1l, XOR -IF s(f) = -4 AND wh = -1 THEN PUT (aa(f) + aaa, bb(f)), mr2lm, AND: PUT (aa(f) + aaa, bb(f)), mr2l, XOR -RETURN - -mon3: -IF b(aa(f) / 15 + hod + .5 + aaa / 15, bb(f) / 15) = 1 THEN s(f) = -4 -IF b(aa(f) / 15 + hod - .5 + aaa / 15, bb(f) / 15) = 1 THEN s(f) = 4 -IF b(aa(f) / 15 + hod + .5 + aaa / 15, bb(f) / 15 + 1) = 1 THEN s(f) = -4 -IF b(aa(f) / 15 + hod - .5 + aaa / 15, bb(f) / 15 + 1) = 1 THEN s(f) = 4 - -IF aa(f) / 15 > 18 THEN s(f) = -4 -IF aa(f) / 15 < 2 THEN s(f) = 4 -aa(f) = aa(f) + s(f) -IF s(f) = 4 THEN PUT (aa(f) + aaa, bb(f)), lkrm, AND: PUT (aa(f) + aaa, bb(f)), lkr, XOR -IF s(f) = -4 THEN PUT (aa(f) + aaa, bb(f)), lklm, AND: PUT (aa(f) + aaa, bb(f)), lkl, XOR -RETURN - -intr: -LOCATE 1, 1: PRINT " Press ~SPACE~" -FOR f = 0 TO 14 -FOR y = 0 TO 10 -FOR x = 0 + f * 8 TO 7 + f * 8 -aa = POINT(x, y) -IF aa <> 0 THEN PSET (x + 105, y + 120), 4 -IF aa <> 0 AND RND > y / 10 THEN PSET (x + 105, y + 120), 12 -NEXT x -NEXT y -NEXT f -LOCATE 1, 1: PRINT " * DEMO * " -FOR y = 0 TO 10 -FOR x = 0 TO 72 -aa = POINT(x, y) -FOR vb = 1 TO 6 -IF aa <> 0 THEN PSET (x * 2 + 90 + RND * 2, y * 2 + 20 + RND * (y + 2)), 12 -NEXT vb -NEXT x -NEXT y -LOCATE 1, 1: PRINT " ": COLOR 15 -a$ = INKEY$ -RETURN - -panel: -PUT (16, 0), fc, PSET -LOCATE 2, 6: PRINT "*"; liv -PUT (76, 0), am1, PSET -LOCATE 2, 13: PRINT "*"; pow -PUT (136, 0), am3, PSET -LOCATE 2, 20: PRINT "*"; bom -PUT (196, 0), m1, PSET -LOCATE 2, 28: PRINT "*"; gold -PUT (256, 0), am2, PSET -LOCATE 2, 36: PRINT "*"; amm -RETURN - - -dddd: -ddd=1 -ddd1: -if rnd>.9 then return -ddd=ddd+1:if ddd>15 then return -goto ddd1 - -lod: -OPEN "demap.vir" FOR INPUT AS #2 -FOR sx = 1 TO 200 -FOR sy = 1 TO 10 -INPUT #2, a(sx, sy) -INPUT #2, b(sx, sy) -NEXT sy -NEXT sx -CLOSE #2 -RETURN - - - - - - - \ No newline at end of file diff --git a/programs/samples/qb45com/action/arcdemo/bl1.spr b/programs/samples/qb45com/action/arcdemo/bl1.spr deleted file mode 100644 index d0a9eb44e..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 12 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 12 - 4 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 4 - 4 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 4 - 0 - 4 - 0 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 0 - 4 - 0 - 4 - 0 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 0 - 4 - 12 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 0 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 4 - 4 - 0 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 4 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 0 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/bl1.sps b/programs/samples/qb45com/action/arcdemo/bl1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl1m.spr b/programs/samples/qb45com/action/arcdemo/bl1m.spr deleted file mode 100644 index 56ce9aef1..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl1m.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 15 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl1m.sps b/programs/samples/qb45com/action/arcdemo/bl1m.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl1m.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl2.spr b/programs/samples/qb45com/action/arcdemo/bl2.spr deleted file mode 100644 index 844c4d952..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 12 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 12 - 4 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 12 - 0 - 12 - 0 - 4 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 12 - 4 - 0 - 12 - 4 - 0 - 4 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 0 - 4 - 4 - 4 - 0 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 0 - 0 - 4 - 0 - 12 - 4 - 0 - 0 - 0 - 0 - 12 - 12 - 12 - 4 - 0 - 0 - 0 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 12 - 12 - 12 - 0 - 0 - 0 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 4 - 4 - 0 - 0 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 4 - 12 - 4 - 0 - 0 - 4 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 12 - 4 - 12 - 4 - 0 - 12 - 0 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 4 - 12 - 0 - 12 - 0 - 0 - 0 - 12 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/bl2.sps b/programs/samples/qb45com/action/arcdemo/bl2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl2m.spr b/programs/samples/qb45com/action/arcdemo/bl2m.spr deleted file mode 100644 index 7bc7a1d21..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl2m.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 0 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 0 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl2m.sps b/programs/samples/qb45com/action/arcdemo/bl2m.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl2m.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl3.spr b/programs/samples/qb45com/action/arcdemo/bl3.spr deleted file mode 100644 index 8e26ce91e..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl3.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 4 - 12 - 0 - 0 - 12 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 0 - 12 - 12 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 4 - 12 - 4 - 0 - 0 - 4 - 4 - 0 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 12 - 12 - 4 - 12 - 4 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 12 - 4 - 0 - 0 - 0 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 12 - 0 - 12 - 0 - 0 - 0 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 4 - 4 - 4 - 12 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 4 - 0 - 0 - 4 - 4 - 4 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/bl3.sps b/programs/samples/qb45com/action/arcdemo/bl3.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl3.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl3m.spr b/programs/samples/qb45com/action/arcdemo/bl3m.spr deleted file mode 100644 index cd750fc85..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl3m.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/bl3m.sps b/programs/samples/qb45com/action/arcdemo/bl3m.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/bl3m.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon1.spr b/programs/samples/qb45com/action/arcdemo/cfon1.spr deleted file mode 100644 index f633a2215..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 7 - 8 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 8 - 0 - 0 - 8 - 8 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 8 - 0 - 7 - 7 - 0 - 0 - 2 - 0 - 0 - 12 - 12 - 7 - 2 - 0 - 8 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 0 - 8 - 0 - 12 - 2 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 7 - 0 - 8 - 0 - 0 - 8 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 8 - 12 - 7 - 7 - 0 - 0 - 8 - 0 - 8 - 0 - 12 - 7 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 12 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 8 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 7 - 2 - 8 - 12 - 7 - 2 - 0 - 0 - 12 - 7 - 2 - 0 - 8 - 0 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 8 - 12 - 7 - 2 - 8 - 8 - 0 - 0 - 12 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 2 - 0 - 8 - 12 - 7 - 8 - 0 - 0 - 8 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 8 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 0 - 12 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 7 - 2 - 0 - 12 - 2 - 0 - 8 - 0 - 2 - 2 diff --git a/programs/samples/qb45com/action/arcdemo/cfon1.sps b/programs/samples/qb45com/action/arcdemo/cfon1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon10.spr b/programs/samples/qb45com/action/arcdemo/cfon10.spr deleted file mode 100644 index f0b955478..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon10.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 7 - 2 - 8 - 12 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 12 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 8 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 7 - 2 - 8 - 12 - 7 - 2 - 0 - 0 - 12 - 7 - 2 - 0 - 8 - 0 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 8 - 12 - 7 - 2 - 8 - 8 - 0 - 0 - 12 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 2 - 0 - 8 - 12 - 7 - 8 - 0 - 0 - 8 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 8 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 0 - 12 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 7 - 2 - 0 - 12 - 2 - 0 - 8 - 0 - 2 - 2 diff --git a/programs/samples/qb45com/action/arcdemo/cfon10.sps b/programs/samples/qb45com/action/arcdemo/cfon10.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon10.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon11.spr b/programs/samples/qb45com/action/arcdemo/cfon11.spr deleted file mode 100644 index 6de9fa432..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon11.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 7 - 8 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 8 - 0 - 0 - 8 - 8 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 8 - 0 - 7 - 7 - 0 - 0 - 2 - 0 - 0 - 12 - 12 - 7 - 2 - 0 - 8 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 0 - 8 - 0 - 12 - 2 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 7 - 0 - 8 - 0 - 0 - 8 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 8 - 12 - 7 - 7 - 0 - 0 - 8 - 0 - 8 - 0 - 12 - 7 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 12 - 0 - 8 - 12 - 7 - 7 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 8 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 7 - 2 - 8 - 0 - 12 - 7 - 2 - 8 - 12 - 7 - 2 - 0 - 0 - 12 - 7 - 2 - 0 - 8 - 0 - 12 - 7 - 2 - 0 - 12 - 7 - 7 - 2 - 8 - 12 - 7 - 2 - 8 - 8 - 0 - 0 - 12 - 2 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 2 - 0 - 8 - 12 - 7 - 8 - 0 - 0 - 8 - 0 - 12 - 7 - 7 - 2 - 8 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 8 - 12 - 7 - 7 - 2 - 2 - 0 - 0 - 0 - 0 - 12 - 7 - 7 - 2 - 0 - 0 - 7 - 7 - 7 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 2 - 0 - 0 - 0 - 0 - 2 diff --git a/programs/samples/qb45com/action/arcdemo/cfon11.sps b/programs/samples/qb45com/action/arcdemo/cfon11.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon11.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon12.spr b/programs/samples/qb45com/action/arcdemo/cfon12.spr deleted file mode 100644 index 977b70baa..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon12.spr +++ /dev/null @@ -1,225 +0,0 @@ - 3 - 3 - 11 - 3 - 11 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 11 - 11 - 11 - 11 - 11 - 3 - 11 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 11 - 11 - 3 - 3 - 3 - 11 - 11 - 11 - 3 - 11 - 11 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 11 - 3 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 11 - 3 - 11 - 11 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 11 - 11 - 3 - 3 - 3 - 11 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 11 - 11 - 11 - 11 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 11 - 11 - 11 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 11 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 11 - 3 - 3 - 11 - 3 diff --git a/programs/samples/qb45com/action/arcdemo/cfon12.sps b/programs/samples/qb45com/action/arcdemo/cfon12.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon12.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon13.spr b/programs/samples/qb45com/action/arcdemo/cfon13.spr deleted file mode 100644 index 7249a1254..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon13.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 3 - 3 - 0 - 0 - 3 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 2 - 3 - 0 - 0 - 0 - 3 - 0 - 0 - 11 - 0 - 3 - 3 - 0 - 3 - 0 - 11 - 0 - 3 - 11 - 3 - 0 - 3 - 3 - 0 - 0 - 0 - 3 - 0 - 0 - 3 - 0 - 0 - 0 - 0 - 3 - 3 - 3 - 3 - 11 - 0 - 3 - 0 - 3 - 0 - 0 - 0 - 3 - 0 - 0 - 3 - 0 - 3 - 0 - 0 - 3 - 3 - 0 - 11 - 0 - 3 - 3 - 0 - 0 - 2 - 2 - 2 - 2 - 2 - 2 - 0 - 0 - 0 - 3 - 3 - 2 - 2 - 0 - 0 - 0 - 3 - 0 - 3 - 3 - 0 - 2 - 2 - 2 - 2 - 0 - 0 - 0 - 3 - 3 - 0 - 0 - 0 - 0 - 3 - 0 - 3 - 0 - 3 - 0 - 3 - 11 - 0 - 0 - 11 - 0 - 3 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 3 - 0 - 0 - 0 - 0 - 2 - 2 - 2 - 2 - 0 - 3 - 3 - 0 - 0 - 3 - 0 - 0 - 3 - 3 - 3 - 0 - 0 - 0 - 0 - 3 - 0 - 0 - 3 - 0 - 0 - 3 - 0 - 0 - 0 - 3 - 0 - 3 - 3 - 0 - 0 - 3 - 0 - 3 - 2 - 2 - 2 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 2 - 2 - 3 - 3 - 0 - 3 - 0 - 0 - 3 - 0 - 0 - 0 - 3 - 3 - 0 - 3 - 0 - 0 - 3 - 0 - 0 - 3 - 11 - 0 - 2 - 2 - 2 - 3 - 0 - 0 - 0 - 11 - 3 - 0 - 0 - 3 - 3 - 0 - 3 diff --git a/programs/samples/qb45com/action/arcdemo/cfon13.sps b/programs/samples/qb45com/action/arcdemo/cfon13.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon13.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon14.spr b/programs/samples/qb45com/action/arcdemo/cfon14.spr deleted file mode 100644 index 15bdcc40f..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon14.spr +++ /dev/null @@ -1,225 +0,0 @@ - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 15 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 15 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 15 - 15 - 15 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 7 - 7 - 15 - 7 - 7 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon14.sps b/programs/samples/qb45com/action/arcdemo/cfon14.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon14.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon15.spr b/programs/samples/qb45com/action/arcdemo/cfon15.spr deleted file mode 100644 index 9d9a1fd52..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon15.spr +++ /dev/null @@ -1,225 +0,0 @@ - 8 - 8 - 8 - 15 - 7 - 8 - 15 - 7 - 8 - 15 - 7 - 8 - 8 - 8 - 15 - 7 - 15 - 8 - 8 - 8 - 8 - 8 - 8 - 15 - 8 - 15 - 7 - 15 - 8 - 8 - 15 - 7 - 8 - 8 - 15 - 8 - 8 - 15 - 15 - 8 - 8 - 15 - 7 - 7 - 8 - 8 - 15 - 7 - 15 - 8 - 8 - 15 - 7 - 8 - 8 - 8 - 8 - 15 - 8 - 8 - 8 - 8 - 7 - 15 - 8 - 8 - 8 - 8 - 8 - 8 - 15 - 8 - 8 - 8 - 8 - 8 - 8 - 15 - 8 - 8 - 8 - 8 - 8 - 8 - 15 - 7 - 8 - 8 - 8 - 15 - 15 - 8 - 8 - 8 - 8 - 15 - 7 - 15 - 8 - 15 - 7 - 8 - 8 - 15 - 8 - 7 - 15 - 8 - 8 - 8 - 8 - 8 - 15 - 8 - 15 - 7 - 7 - 8 - 15 - 7 - 7 - 15 - 8 - 7 - 8 - 8 - 15 - 8 - 8 - 8 - 15 - 15 - 8 - 15 - 7 - 15 - 8 - 7 - 8 - 15 - 8 - 15 - 8 - 8 - 8 - 8 - 8 - 15 - 7 - 15 - 8 - 15 - 7 - 8 - 8 - 8 - 8 - 8 - 15 - 7 - 8 - 8 - 7 - 15 - 8 - 8 - 15 - 7 - 8 - 15 - 7 - 8 - 8 - 7 - 7 - 8 - 7 - 15 - 8 - 8 - 8 - 8 - 15 - 15 - 7 - 7 - 8 - 8 - 8 - 8 - 15 - 7 - 15 - 8 - 8 - 15 - 8 - 8 - 8 - 15 - 8 - 8 - 15 - 8 - 8 - 8 - 15 - 8 - 8 - 15 - 15 - 7 - 8 - 15 - 7 - 8 - 15 - 7 - 15 - 7 - 8 - 8 - 8 - 8 - 8 diff --git a/programs/samples/qb45com/action/arcdemo/cfon15.sps b/programs/samples/qb45com/action/arcdemo/cfon15.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon15.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon16.spr b/programs/samples/qb45com/action/arcdemo/cfon16.spr deleted file mode 100644 index b3defe4f8..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon16.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 0 - 0 - 10 - 4 - 4 - 4 - 0 - 0 - 0 - 7 - 0 - 7 - 0 - 10 - 2 - 10 - 10 - 2 - 4 - 7 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 4 - 4 - 10 - 4 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon16.sps b/programs/samples/qb45com/action/arcdemo/cfon16.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon16.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon17.spr b/programs/samples/qb45com/action/arcdemo/cfon17.spr deleted file mode 100644 index 3b31b1454..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon17.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 4 - 12 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 2 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 10 - 4 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 8 - 7 - 7 - 10 - 10 - 10 - 2 - 12 - 4 - 0 - 7 - 0 - 7 - 0 - 7 - 8 - 7 - 7 - 8 - 10 - 2 - 4 - 4 - 7 - 7 - 7 - 7 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 10 - 2 - 12 - 0 - 7 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 2 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 2 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 2 - 10 - 10 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 2 - 2 - 2 - 4 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 4 - 12 diff --git a/programs/samples/qb45com/action/arcdemo/cfon17.sps b/programs/samples/qb45com/action/arcdemo/cfon17.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon17.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon18.spr b/programs/samples/qb45com/action/arcdemo/cfon18.spr deleted file mode 100644 index 6eed5fcd3..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon18.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 4 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 0 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 10 - 10 - 10 - 4 - 4 - 12 - 0 - 7 - 7 - 0 - 0 - 7 - 8 - 7 - 7 - 8 - 10 - 10 - 2 - 0 - 0 - 7 - 7 - 0 - 7 - 0 - 0 - 8 - 8 - 8 - 10 - 2 - 2 - 4 - 7 - 7 - 0 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 12 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 4 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 2 - 10 - 4 - 12 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 2 - 2 - 2 - 10 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon18.sps b/programs/samples/qb45com/action/arcdemo/cfon18.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon18.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon2.spr b/programs/samples/qb45com/action/arcdemo/cfon2.spr deleted file mode 100644 index a896700b0..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 0 - 11 - 11 - 11 - 11 - 0 - 11 - 11 - 0 - 0 - 0 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 0 - 0 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 11 - 3 - 11 - 3 - 11 - 0 - 11 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 11 - 0 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 11 - 0 - 0 - 11 - 11 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 11 - 0 - 11 - 3 - 3 - 3 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 11 - 0 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 0 - 0 - 11 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 3 - 11 - 11 - 3 - 0 - 0 - 11 - 3 - 3 - 3 - 3 - 11 - 3 - 3 - 11 - 3 - 11 - 3 - 11 - 0 - 0 - 0 - 11 - 3 - 11 - 11 - 11 - 3 - 11 - 3 - 11 - 3 - 11 - 11 - 0 - 0 - 0 - 11 - 3 - 3 - 11 - 3 - 11 - 11 - 11 - 3 - 11 - 3 - 11 - 0 - 0 - 0 - 11 - 3 - 11 - 11 - 11 - 3 - 11 - 3 - 11 - 3 - 11 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 0 - 11 - 11 - 0 - 11 - 11 - 11 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon2.sps b/programs/samples/qb45com/action/arcdemo/cfon2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon3.spr b/programs/samples/qb45com/action/arcdemo/cfon3.spr deleted file mode 100644 index db4bab0aa..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon3.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 8 - 7 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 8 - 7 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 6 - 6 - 6 - 6 - 7 - 8 - 7 - 8 - 0 - 0 - 0 - 6 - 6 - 6 - 6 - 0 - 6 - 0 - 0 - 7 - 8 - 7 - 8 - 6 - 6 - 6 - 6 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 7 - 0 - 7 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 diff --git a/programs/samples/qb45com/action/arcdemo/cfon3.sps b/programs/samples/qb45com/action/arcdemo/cfon3.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon3.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon4.spr b/programs/samples/qb45com/action/arcdemo/cfon4.spr deleted file mode 100644 index ee20fc0e1..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon4.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 6 - 8 - 8 - 8 - 8 - 6 - 6 - 8 - 8 - 8 - 8 - 6 - 6 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 6 - 6 - 8 - 8 - 8 - 0 - 6 - 6 - 6 - 8 - 8 - 8 - 0 - 8 - 8 - 8 - 8 - 6 - 6 - 6 - 0 - 8 - 8 - 8 - 0 - 8 - 8 - 6 - 8 - 6 - 0 - 0 - 0 - 8 - 8 - 8 - 6 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 6 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 6 - 8 - 8 - 8 - 8 - 8 - 0 - 0 - 8 - 8 - 6 - 6 - 0 - 6 - 6 - 0 - 8 - 8 - 8 - 0 - 0 - 8 - 8 - 8 - 0 - 8 - 8 - 8 - 0 - 0 - 6 - 0 - 6 - 6 - 8 - 0 - 0 - 8 - 0 - 6 - 0 - 6 - 6 - 8 - 8 - 8 - 6 - 0 - 0 - 0 - 6 - 6 - 6 - 6 - 0 - 8 - 6 - 0 - 8 - 8 - 6 - 8 - 8 - 8 - 8 - 0 - 6 - 8 - 8 - 8 - 8 - 8 - 6 - 6 - 0 - 8 - 6 - 8 - 8 - 6 - 6 - 6 - 8 - 8 - 6 - 0 - 6 - 0 - 8 - 8 - 6 - 6 - 6 - 6 - 6 - 8 - 8 - 8 - 8 - 8 - 6 - 6 - 6 - 6 - 0 - 8 - 8 - 8 - 8 - 6 - 6 - 0 - 8 - 6 - 8 - 8 - 8 - 8 - 8 - 6 - 6 - 6 - 6 - 8 - 8 - 6 - 8 - 8 - 6 - 6 - 6 - 6 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon4.sps b/programs/samples/qb45com/action/arcdemo/cfon4.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon4.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon5.spr b/programs/samples/qb45com/action/arcdemo/cfon5.spr deleted file mode 100644 index e877f7363..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon5.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 0 - 6 - 8 - 8 - 0 - 6 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 8 - 8 - 0 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 6 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 6 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon5.sps b/programs/samples/qb45com/action/arcdemo/cfon5.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon5.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon6.spr b/programs/samples/qb45com/action/arcdemo/cfon6.spr deleted file mode 100644 index 4a7f9234f..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon6.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 6 - 6 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 6 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 6 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 8 - 8 - 0 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 0 - 6 - 8 - 8 - 0 - 6 - 8 - 8 diff --git a/programs/samples/qb45com/action/arcdemo/cfon6.sps b/programs/samples/qb45com/action/arcdemo/cfon6.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon6.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon7.spr b/programs/samples/qb45com/action/arcdemo/cfon7.spr deleted file mode 100644 index 7c4aae111..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon7.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 8 - 6 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 6 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 6 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 6 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 0 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 8 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 8 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 6 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon7.sps b/programs/samples/qb45com/action/arcdemo/cfon7.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon7.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon8.spr b/programs/samples/qb45com/action/arcdemo/cfon8.spr deleted file mode 100644 index 3e060bdb7..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon8.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 6 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 6 - 0 - 6 - 6 - 6 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 6 - 6 - 0 - 0 - 8 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 8 - 6 - 6 - 0 - 6 - 0 - 6 - 0 - 6 - 4 - 4 - 6 - 6 - 6 - 8 - 0 - 0 - 0 - 8 - 0 - 6 - 6 - 6 - 0 - 0 - 4 - 0 - 0 - 6 - 8 - 6 - 8 - 6 - 8 - 0 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 0 - 8 - 8 - 0 - 0 - 8 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 0 - 0 - 6 - 6 - 6 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 6 - 8 - 8 - 8 - 0 - 6 - 6 - 6 - 6 - 4 - 4 - 6 - 0 - 0 - 6 - 0 - 6 - 8 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 6 - 8 - 6 - 6 - 6 - 8 - 6 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 6 - 0 - 0 - 6 - 6 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 4 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon8.sps b/programs/samples/qb45com/action/arcdemo/cfon8.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon8.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/cfon9.spr b/programs/samples/qb45com/action/arcdemo/cfon9.spr deleted file mode 100644 index b84b9f635..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon9.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 6 - 6 - 6 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 6 - 6 - 6 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 8 - 0 - 6 - 0 - 0 - 8 - 0 - 0 - 0 - 8 - 6 - 8 - 0 - 8 - 0 - 6 - 0 - 0 - 0 - 6 - 6 - 8 - 0 - 6 - 6 - 0 - 0 - 0 - 8 - 8 - 0 - 8 - 8 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 6 - 0 - 8 - 8 - 8 - 6 - 6 - 0 - 0 - 6 - 8 - 8 - 8 - 6 - 0 - 0 - 8 - 0 - 0 - 0 - 6 - 8 - 8 - 6 - 0 - 0 - 6 - 0 - 0 - 6 - 6 - 8 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 6 - 6 - 6 - 6 - 8 - 8 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 8 - 8 - 6 - 6 - 6 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/cfon9.sps b/programs/samples/qb45com/action/arcdemo/cfon9.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/cfon9.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/demap.vir b/programs/samples/qb45com/action/arcdemo/demap.vir deleted file mode 100644 index 27cb43e3d..000000000 --- a/programs/samples/qb45com/action/arcdemo/demap.vir +++ /dev/null @@ -1,4000 +0,0 @@ - 0 - 0 - 16 - 0 - 16 - 0 - 14 - 0 - 0 - 0 - 2 - 0 - 3 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 16 - 0 - 17 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 16 - 0 - 16 - 0 - 13 - 0 - 0 - 0 - 13 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 16 - 0 - 15 - 0 - 16 - 0 - 15 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 16 - 0 - 0 - 0 - 16 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 3 - 1 - 3 - 1 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 3 - 1 - 3 - 1 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 6 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 19 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 5 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 19 - 0 - 3 - 1 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 20 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 18 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 0 - 0 - 16 - 0 - 16 - 0 - 14 - 0 - 16 - 0 - 14 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 16 - 0 - 17 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 16 - 0 - 13 - 0 - 16 - 0 - 13 - 0 - 16 - 0 - 0 - 0 - 3 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 15 - 0 - 5 - 0 - 3 - 0 - 3 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 6 - 0 - 0 - 0 - 16 - 0 - 10 - 0 - 3 - 0 - 3 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 18 - 0 - 3 - 0 - 3 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 1 - 1 - 24 - 1 - 27 - 0 - 0 - 0 - 24 - 1 - 24 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 24 - 1 - 28 - 0 - 0 - 0 - 24 - 1 - 24 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 24 - 1 - 0 - 0 - 0 - 0 - 24 - 1 - 24 - 1 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 4 - 0 - 0 - 0 - 23 - 0 - 23 - 0 - 25 - 1 - 25 - 1 - 8 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 4 - 0 - 0 - 0 - 23 - 0 - 23 - 0 - 25 - 1 - 25 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 23 - 0 - 23 - 0 - 25 - 1 - 25 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 0 - 0 - 23 - 0 - 23 - 0 - 26 - 1 - 26 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 3 - 1 - 0 - 0 - 23 - 0 - 23 - 0 - 26 - 1 - 26 - 1 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 0 - 4 - 0 - 0 - 0 - 23 - 0 - 23 - 0 - 26 - 1 - 26 - 1 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 26 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 21 - 1 - 21 - 1 - 21 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 9 - 1 - 9 - 0 - 5 - 0 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 9 - 1 - 9 - 0 - 5 - 0 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 22 - 1 - 22 - 1 - 22 - 1 - 22 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 3 - 1 - 3 - 1 - 3 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 16 - 0 - 6 - 0 - 15 - 0 - 0 - 0 - 5 - 0 - 3 - 1 - 0 - 0 - 0 - 0 - 4 - 0 - 16 - 0 - 14 - 1 - 0 - 0 - 14 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 17 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 16 - 0 - 0 - 0 - 13 - 0 - 0 - 0 - 13 - 0 - 0 - 0 - 10 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 16 - 0 - 15 - 0 - 16 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 10 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 16 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 10 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 9 - 1 - 9 - 1 - 9 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 9 - 1 - 9 - 1 - 9 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 16 - 0 - 13 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 16 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 16 - 0 - 16 - 0 - 16 - 0 - 16 - 0 - 16 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 16 - 0 - 14 - 0 - 16 - 0 - 0 - 0 - 14 - 0 - 16 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 17 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 12 - 0 - 1 - 1 - 16 - 0 - 5 - 0 - 13 - 1 - 16 - 0 - 16 - 0 - 13 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 0 - 0 - 16 - 0 - 15 - 0 - 0 - 0 - 16 - 0 - 16 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 16 - 0 - 14 - 0 - 16 - 0 - 0 - 0 - 16 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 16 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 3 - 1 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 3 - 1 - 3 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 3 - 1 - 3 - 1 - 3 - 1 - 3 - 1 - 3 - 1 - 3 - 1 - 3 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 9 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/dm1.spr b/programs/samples/qb45com/action/arcdemo/dm1.spr deleted file mode 100644 index 5a8a45b1c..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 12 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 2 - 11 - 3 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 12 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 8 - 8 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 2 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 11 - 3 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/dm1.sps b/programs/samples/qb45com/action/arcdemo/dm1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/dm1m.spr b/programs/samples/qb45com/action/arcdemo/dm1m.spr deleted file mode 100644 index 63c5b73ca..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm1m.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/dm1m.sps b/programs/samples/qb45com/action/arcdemo/dm1m.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm1m.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/dm2.spr b/programs/samples/qb45com/action/arcdemo/dm2.spr deleted file mode 100644 index c28798a36..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 5 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 4 - 5 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 0 - 12 diff --git a/programs/samples/qb45com/action/arcdemo/dm2.sps b/programs/samples/qb45com/action/arcdemo/dm2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/dm2m.spr b/programs/samples/qb45com/action/arcdemo/dm2m.spr deleted file mode 100644 index 68c97970a..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm2m.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/dm2m.sps b/programs/samples/qb45com/action/arcdemo/dm2m.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm2m.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/dm3.spr b/programs/samples/qb45com/action/arcdemo/dm3.spr deleted file mode 100644 index 049b9c7ce..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm3.spr +++ /dev/null @@ -1,400 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 12 - 4 - 4 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 4 - 12 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 12 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 12 - 4 - 4 - 12 - 4 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 12 - 4 - 12 - 4 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 12 - 3 - 11 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 12 - 3 - 3 - 11 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 12 - 3 - 3 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 12 - 3 - 3 - 3 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 12 - 3 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 12 - 4 - 12 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 4 - 4 - 4 - 4 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 4 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 0 - 12 - 4 - 12 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 12 - 0 - 12 diff --git a/programs/samples/qb45com/action/arcdemo/dm3.sps b/programs/samples/qb45com/action/arcdemo/dm3.sps deleted file mode 100644 index 49e479e72..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm3.sps +++ /dev/null @@ -1 +0,0 @@ - 204 20 20 diff --git a/programs/samples/qb45com/action/arcdemo/dm3m.spr b/programs/samples/qb45com/action/arcdemo/dm3m.spr deleted file mode 100644 index 263215e83..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm3m.spr +++ /dev/null @@ -1,400 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 15 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/dm3m.sps b/programs/samples/qb45com/action/arcdemo/dm3m.sps deleted file mode 100644 index 49e479e72..000000000 --- a/programs/samples/qb45com/action/arcdemo/dm3m.sps +++ /dev/null @@ -1 +0,0 @@ - 204 20 20 diff --git a/programs/samples/qb45com/action/arcdemo/face.spr b/programs/samples/qb45com/action/arcdemo/face.spr deleted file mode 100644 index 5a314171b..000000000 --- a/programs/samples/qb45com/action/arcdemo/face.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 15 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 7 - 7 - 7 - 15 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 15 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 7 - 7 - 7 - 7 - 7 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 8 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/face.sps b/programs/samples/qb45com/action/arcdemo/face.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/face.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/fir.spr b/programs/samples/qb45com/action/arcdemo/fir.spr deleted file mode 100644 index 089659b10..000000000 --- a/programs/samples/qb45com/action/arcdemo/fir.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 4 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/fir.sps b/programs/samples/qb45com/action/arcdemo/fir.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/fir.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/firm.spr b/programs/samples/qb45com/action/arcdemo/firm.spr deleted file mode 100644 index db2dbd97d..000000000 --- a/programs/samples/qb45com/action/arcdemo/firm.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/firm.sps b/programs/samples/qb45com/action/arcdemo/firm.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/firm.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/gr1.spr b/programs/samples/qb45com/action/arcdemo/gr1.spr deleted file mode 100644 index bf3be6d05..000000000 --- a/programs/samples/qb45com/action/arcdemo/gr1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 8 - 0 - 8 - 8 - 0 - 6 - 0 - 0 - 8 - 0 - 0 - 8 - 0 - 8 - 0 - 0 - 8 - 8 - 8 - 8 - 0 - 8 - 0 - 8 - 0 - 0 - 6 - 8 - 0 - 8 - 0 - 8 - 8 - 7 - 0 - 8 - 0 - 8 - 7 - 0 - 8 - 0 - 8 - 7 - 8 - 8 - 0 - 7 - 8 - 8 - 0 - 8 - 8 - 8 - 8 - 0 - 0 - 7 - 8 - 0 - 0 - 0 - 8 - 0 - 8 - 8 - 0 - 8 - 8 - 0 - 8 - 0 - 0 - 0 - 8 - 0 - 8 - 0 - 0 - 8 - 8 - 0 - 8 - 0 - 8 - 0 - 8 - 0 - 8 - 0 - 8 - 0 - 0 - 6 - 0 - 0 - 8 - 8 - 0 - 8 - 0 - 8 - 0 - 0 - 8 - 8 - 0 - 8 - 0 - 0 - 8 - 0 - 6 - 8 - 0 - 8 - 0 - 8 - 8 - 6 - 8 - 7 - 0 - 8 - 8 - 0 - 8 - 0 - 0 - 0 - 7 - 0 - 8 - 0 - 8 - 8 - 8 - 7 - 0 - 0 - 7 - 8 - 0 - 8 - 7 - 8 - 8 - 0 - 8 - 8 - 0 - 8 - 8 - 0 - 8 - 0 - 8 - 8 - 0 - 8 - 0 - 8 - 0 - 7 - 0 - 8 - 0 - 8 - 8 - 0 - 8 - 0 - 8 - 8 - 0 - 8 - 8 - 8 - 0 - 8 - 0 - 8 - 0 - 0 - 8 - 0 - 0 - 8 - 0 - 8 - 0 - 8 - 0 - 8 - 0 - 8 - 8 - 8 - 8 - 0 - 7 - 8 - 0 - 8 - 6 - 8 - 0 - 8 - 0 - 8 - 6 - 8 - 8 - 0 - 8 - 8 - 8 - 8 - 0 - 8 - 0 - 8 - 0 - 8 - 8 diff --git a/programs/samples/qb45com/action/arcdemo/gr1.sps b/programs/samples/qb45com/action/arcdemo/gr1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/gr1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/gr2.spr b/programs/samples/qb45com/action/arcdemo/gr2.spr deleted file mode 100644 index 0d93920b8..000000000 --- a/programs/samples/qb45com/action/arcdemo/gr2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 7 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 2 - 7 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 2 - 8 diff --git a/programs/samples/qb45com/action/arcdemo/gr2.sps b/programs/samples/qb45com/action/arcdemo/gr2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/gr2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/gr3.spr b/programs/samples/qb45com/action/arcdemo/gr3.spr deleted file mode 100644 index e641845ea..000000000 --- a/programs/samples/qb45com/action/arcdemo/gr3.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 7 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 7 - 7 - 7 - 15 - 7 - 8 - 8 - 8 - 7 - 0 - 0 - 15 - 7 - 7 - 7 - 15 - 7 - 7 - 15 - 7 - 8 - 8 - 7 - 7 - 0 - 0 - 15 - 7 - 7 - 7 - 7 - 15 - 7 - 15 - 8 - 8 - 8 - 8 - 7 - 0 - 0 - 0 - 15 - 15 - 15 - 7 - 8 - 8 - 7 - 8 - 7 - 7 - 7 - 0 - 0 - 0 - 15 - 7 - 7 - 7 - 15 - 8 - 8 - 8 - 8 - 8 - 8 - 8 - 7 - 0 - 0 - 7 - 7 - 7 - 7 - 8 - 7 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 0 - 0 - 0 - 15 - 15 - 15 - 7 - 7 - 8 - 8 - 8 - 8 - 8 - 8 - 7 - 0 - 0 - 15 - 7 - 7 - 7 - 8 - 8 - 8 - 8 - 8 - 8 - 8 - 7 - 8 - 7 - 0 - 15 - 7 - 7 - 7 - 8 - 7 - 8 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 0 - 0 - 15 - 7 - 7 - 15 - 8 - 8 - 7 - 8 - 8 - 7 - 8 - 8 - 7 - 0 - 0 - 15 - 7 - 15 - 7 - 15 - 8 - 7 - 8 - 8 - 8 - 7 - 7 - 7 - 0 - 0 - 0 - 15 - 7 - 7 - 15 - 8 - 7 - 7 - 8 - 7 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 7 - 0 - 7 - 7 - 7 - 7 - 7 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/gr3.sps b/programs/samples/qb45com/action/arcdemo/gr3.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/gr3.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/luk1l.spr b/programs/samples/qb45com/action/arcdemo/luk1l.spr deleted file mode 100644 index 696850948..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1l.spr +++ /dev/null @@ -1,400 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 12 - 10 - 9 - 10 - 12 - 0 - 0 - 12 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 12 - 10 - 10 - 10 - 12 - 15 - 0 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 12 - 4 - 4 - 4 - 10 - 12 - 0 - 0 - 0 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 12 - 4 - 4 - 4 - 4 - 12 - 15 - 0 - 15 - 12 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 4 - 12 - 4 - 4 - 12 - 0 - 0 - 12 - 4 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 4 - 4 - 12 - 12 - 15 - 12 - 4 - 12 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 12 - 4 - 4 - 12 - 12 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 4 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 4 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 12 - 4 - 12 - 4 - 4 - 4 - 4 - 12 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 4 - 4 - 12 - 4 - 4 - 12 - 4 - 12 - 4 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 15 - 15 - 15 - 12 - 4 - 4 - 4 - 4 - 12 - 4 - 12 - 4 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 12 - 4 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 12 - 4 - 4 - 4 - 12 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 12 - 4 - 4 - 12 - 12 - 4 - 4 - 12 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 0 - 0 - 12 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/luk1l.sps b/programs/samples/qb45com/action/arcdemo/luk1l.sps deleted file mode 100644 index 49e479e72..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1l.sps +++ /dev/null @@ -1 +0,0 @@ - 204 20 20 diff --git a/programs/samples/qb45com/action/arcdemo/luk1lm.spr b/programs/samples/qb45com/action/arcdemo/luk1lm.spr deleted file mode 100644 index 8b78d50db..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1lm.spr +++ /dev/null @@ -1,400 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/luk1lm.sps b/programs/samples/qb45com/action/arcdemo/luk1lm.sps deleted file mode 100644 index 49e479e72..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1lm.sps +++ /dev/null @@ -1 +0,0 @@ - 204 20 20 diff --git a/programs/samples/qb45com/action/arcdemo/luk1r.spr b/programs/samples/qb45com/action/arcdemo/luk1r.spr deleted file mode 100644 index 4e4e4a2fc..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1r.spr +++ /dev/null @@ -1,400 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 0 - 0 - 12 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 12 - 4 - 4 - 12 - 12 - 4 - 4 - 12 - 0 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 12 - 4 - 4 - 4 - 12 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 12 - 4 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 12 - 4 - 4 - 4 - 4 - 12 - 4 - 12 - 4 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 4 - 4 - 12 - 4 - 4 - 12 - 4 - 12 - 4 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 12 - 4 - 12 - 4 - 4 - 4 - 4 - 12 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 4 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 4 - 4 - 4 - 12 - 4 - 4 - 4 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 12 - 4 - 4 - 12 - 12 - 4 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 4 - 12 - 4 - 4 - 4 - 12 - 12 - 15 - 12 - 4 - 12 - 4 - 4 - 12 - 0 - 0 - 0 - 0 - 15 - 12 - 4 - 4 - 12 - 4 - 4 - 12 - 0 - 0 - 12 - 4 - 4 - 12 - 4 - 12 - 0 - 0 - 0 - 15 - 15 - 15 - 12 - 4 - 4 - 4 - 4 - 12 - 15 - 0 - 15 - 12 - 4 - 4 - 12 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 12 - 4 - 4 - 4 - 10 - 12 - 0 - 0 - 0 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 12 - 12 - 10 - 10 - 10 - 12 - 15 - 0 - 12 - 4 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 12 - 10 - 9 - 10 - 12 - 0 - 0 - 12 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/luk1r.sps b/programs/samples/qb45com/action/arcdemo/luk1r.sps deleted file mode 100644 index 49e479e72..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1r.sps +++ /dev/null @@ -1 +0,0 @@ - 204 20 20 diff --git a/programs/samples/qb45com/action/arcdemo/luk1rm.spr b/programs/samples/qb45com/action/arcdemo/luk1rm.spr deleted file mode 100644 index 418f938d3..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1rm.spr +++ /dev/null @@ -1,400 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/luk1rm.sps b/programs/samples/qb45com/action/arcdemo/luk1rm.sps deleted file mode 100644 index 49e479e72..000000000 --- a/programs/samples/qb45com/action/arcdemo/luk1rm.sps +++ /dev/null @@ -1 +0,0 @@ - 204 20 20 diff --git a/programs/samples/qb45com/action/arcdemo/m11l.spr b/programs/samples/qb45com/action/arcdemo/m11l.spr deleted file mode 100644 index 0831e83ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11l.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 10 - 7 - 7 - 0 - 0 - 0 - 0 - 10 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 10 - 7 - 7 - 10 - 0 - 10 - 10 - 2 - 8 - 8 - 8 - 0 - 0 - 0 - 8 - 8 - 10 - 2 - 2 - 2 - 6 - 7 - 7 - 10 - 10 - 10 - 2 - 2 - 10 - 0 - 8 - 0 - 0 - 8 - 8 - 7 - 7 - 10 - 2 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 2 - 10 - 0 - 8 - 0 - 0 - 8 - 8 - 7 - 7 - 8 - 10 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 7 - 8 - 8 - 10 - 8 - 8 - 2 - 2 - 10 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 10 - 10 - 10 - 2 - 8 - 8 - 2 - 8 - 14 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 8 - 8 - 8 - 2 - 10 - 2 - 2 - 2 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 2 - 8 - 8 - 2 - 10 - 0 - 10 - 10 - 10 - 2 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 7 - 8 - 8 - 10 - 0 - 0 - 0 - 0 - 0 - 10 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/m11l.sps b/programs/samples/qb45com/action/arcdemo/m11l.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11l.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m11lm.spr b/programs/samples/qb45com/action/arcdemo/m11lm.spr deleted file mode 100644 index 31bbbe4db..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11lm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/m11lm.sps b/programs/samples/qb45com/action/arcdemo/m11lm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11lm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m11r.spr b/programs/samples/qb45com/action/arcdemo/m11r.spr deleted file mode 100644 index 01838136b..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11r.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 7 - 8 - 8 - 10 - 0 - 0 - 0 - 0 - 0 - 10 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 2 - 8 - 8 - 2 - 10 - 0 - 10 - 10 - 10 - 2 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 8 - 8 - 8 - 2 - 10 - 2 - 2 - 2 - 8 - 8 - 8 - 0 - 0 - 8 - 0 - 0 - 10 - 10 - 10 - 2 - 8 - 8 - 2 - 8 - 10 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 7 - 8 - 8 - 10 - 8 - 8 - 2 - 2 - 14 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 7 - 8 - 10 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 7 - 10 - 2 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 2 - 10 - 0 - 8 - 0 - 0 - 0 - 8 - 8 - 10 - 2 - 2 - 2 - 6 - 7 - 7 - 10 - 10 - 10 - 2 - 2 - 10 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 10 - 7 - 7 - 10 - 0 - 10 - 10 - 2 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 10 - 7 - 7 - 0 - 0 - 0 - 0 - 10 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/m11r.sps b/programs/samples/qb45com/action/arcdemo/m11r.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11r.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m11rm.spr b/programs/samples/qb45com/action/arcdemo/m11rm.spr deleted file mode 100644 index 4b585f1ec..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11rm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/m11rm.sps b/programs/samples/qb45com/action/arcdemo/m11rm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m11rm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m12l.spr b/programs/samples/qb45com/action/arcdemo/m12l.spr deleted file mode 100644 index 7642999d4..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12l.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 10 - 7 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 0 - 10 - 2 - 2 - 6 - 7 - 7 - 7 - 0 - 10 - 10 - 0 - 8 - 8 - 0 - 0 - 0 - 8 - 8 - 7 - 7 - 10 - 2 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 10 - 2 - 2 - 8 - 0 - 0 - 8 - 8 - 7 - 7 - 8 - 10 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 10 - 2 - 8 - 8 - 8 - 0 - 8 - 7 - 7 - 7 - 8 - 8 - 10 - 8 - 8 - 2 - 2 - 10 - 2 - 10 - 10 - 10 - 8 - 8 - 8 - 0 - 8 - 0 - 0 - 0 - 10 - 10 - 2 - 8 - 8 - 2 - 8 - 10 - 10 - 2 - 2 - 2 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 8 - 8 - 8 - 2 - 15 - 2 - 2 - 2 - 10 - 10 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 8 - 8 - 2 - 2 - 10 - 2 - 10 - 10 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 7 - 8 - 8 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 7 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/m12l.sps b/programs/samples/qb45com/action/arcdemo/m12l.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12l.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m12lm.spr b/programs/samples/qb45com/action/arcdemo/m12lm.spr deleted file mode 100644 index d0f760029..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12lm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/m12lm.sps b/programs/samples/qb45com/action/arcdemo/m12lm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12lm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m12r.spr b/programs/samples/qb45com/action/arcdemo/m12r.spr deleted file mode 100644 index 5a296a194..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12r.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 7 - 8 - 8 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 7 - 8 - 8 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 8 - 8 - 2 - 2 - 10 - 2 - 10 - 10 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 8 - 8 - 8 - 2 - 15 - 2 - 2 - 2 - 10 - 10 - 0 - 8 - 0 - 8 - 0 - 0 - 0 - 10 - 10 - 2 - 8 - 8 - 2 - 8 - 10 - 10 - 2 - 2 - 2 - 8 - 8 - 8 - 0 - 8 - 7 - 7 - 7 - 8 - 8 - 10 - 8 - 8 - 2 - 2 - 10 - 2 - 10 - 10 - 10 - 8 - 8 - 8 - 0 - 8 - 8 - 7 - 7 - 8 - 10 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 10 - 2 - 8 - 8 - 8 - 0 - 8 - 8 - 7 - 7 - 10 - 2 - 2 - 6 - 6 - 7 - 2 - 10 - 2 - 2 - 10 - 2 - 2 - 8 - 0 - 0 - 0 - 8 - 8 - 0 - 10 - 2 - 2 - 6 - 7 - 7 - 7 - 0 - 10 - 10 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 10 - 7 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/m12r.sps b/programs/samples/qb45com/action/arcdemo/m12r.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12r.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/m12rm.spr b/programs/samples/qb45com/action/arcdemo/m12rm.spr deleted file mode 100644 index d78dc9dbb..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12rm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/m12rm.sps b/programs/samples/qb45com/action/arcdemo/m12rm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/m12rm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/man1.spr b/programs/samples/qb45com/action/arcdemo/man1.spr deleted file mode 100644 index 53b490ffc..000000000 --- a/programs/samples/qb45com/action/arcdemo/man1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 7 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 14 diff --git a/programs/samples/qb45com/action/arcdemo/man1.sps b/programs/samples/qb45com/action/arcdemo/man1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/man1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/man2.spr b/programs/samples/qb45com/action/arcdemo/man2.spr deleted file mode 100644 index 781fe021c..000000000 --- a/programs/samples/qb45com/action/arcdemo/man2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 14 - 7 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 14 - 7 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 14 - 7 - 14 - 14 - 14 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 14 - 7 - 14 - 0 - 0 - 0 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 14 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 11 - 11 - 11 - 11 - 15 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 14 - 14 - 7 - 14 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 14 - 14 - 14 diff --git a/programs/samples/qb45com/action/arcdemo/man2.sps b/programs/samples/qb45com/action/arcdemo/man2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/man2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mdl.spr b/programs/samples/qb45com/action/arcdemo/mdl.spr deleted file mode 100644 index e43e9566f..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdl.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 15 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 15 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 15 - 15 - 0 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 10 - 2 - 12 - 12 - 12 - 10 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 12 - 12 - 15 - 15 - 10 - 2 - 2 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 12 - 12 - 15 - 12 - 12 - 2 - 2 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 15 - 15 - 2 - 2 - 10 - 10 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 12 - 12 - 12 - 10 - 0 - 10 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 12 - 12 - 12 - 12 - 10 - 0 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 2 - 12 - 12 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 0 - 10 - 2 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 10 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 15 - 15 - 15 - 8 - 0 - 10 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 6 - 6 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/mdl.sps b/programs/samples/qb45com/action/arcdemo/mdl.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdl.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/mdlm.spr b/programs/samples/qb45com/action/arcdemo/mdlm.spr deleted file mode 100644 index ca4f651d1..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdlm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/mdlm.sps b/programs/samples/qb45com/action/arcdemo/mdlm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdlm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/mdr.spr b/programs/samples/qb45com/action/arcdemo/mdr.spr deleted file mode 100644 index a2860720e..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdr.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 6 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 15 - 15 - 15 - 8 - 0 - 10 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 10 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 0 - 10 - 2 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 10 - 2 - 12 - 12 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 12 - 12 - 12 - 12 - 10 - 0 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 12 - 12 - 12 - 12 - 10 - 0 - 10 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 15 - 15 - 2 - 2 - 10 - 10 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 12 - 12 - 15 - 12 - 12 - 2 - 2 - 2 - 12 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 12 - 12 - 15 - 15 - 10 - 2 - 2 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 12 - 10 - 2 - 12 - 12 - 12 - 10 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 15 - 15 - 0 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 15 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 15 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/mdr.sps b/programs/samples/qb45com/action/arcdemo/mdr.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdr.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/mdrm.spr b/programs/samples/qb45com/action/arcdemo/mdrm.spr deleted file mode 100644 index 83c2efda7..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdrm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/mdrm.sps b/programs/samples/qb45com/action/arcdemo/mdrm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/mdrm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/mr1l.spr b/programs/samples/qb45com/action/arcdemo/mr1l.spr deleted file mode 100644 index d1d625566..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1l.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 15 - 0 - 0 - 13 - 13 - 7 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 13 - 5 - 5 - 7 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 11 - 5 - 7 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 5 - 7 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 13 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 13 - 5 - 13 - 0 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 13 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 13 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 13 - 13 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 13 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 13 - 13 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/mr1l.sps b/programs/samples/qb45com/action/arcdemo/mr1l.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1l.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr1lm.spr b/programs/samples/qb45com/action/arcdemo/mr1lm.spr deleted file mode 100644 index 4ca18a257..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1lm.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr1lm.sps b/programs/samples/qb45com/action/arcdemo/mr1lm.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1lm.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr1r.spr b/programs/samples/qb45com/action/arcdemo/mr1r.spr deleted file mode 100644 index f25243dbc..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1r.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 13 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 13 - 13 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 13 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 13 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 13 - 5 - 13 - 0 - 13 - 0 - 0 - 15 - 15 - 0 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 13 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 5 - 7 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 11 - 5 - 7 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 13 - 5 - 5 - 7 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 13 - 13 - 7 - 13 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/mr1r.sps b/programs/samples/qb45com/action/arcdemo/mr1r.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1r.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr1rm.spr b/programs/samples/qb45com/action/arcdemo/mr1rm.spr deleted file mode 100644 index 02338cfa5..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1rm.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr1rm.sps b/programs/samples/qb45com/action/arcdemo/mr1rm.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr1rm.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr2l.spr b/programs/samples/qb45com/action/arcdemo/mr2l.spr deleted file mode 100644 index 3eee3ba1d..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2l.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 0 - 13 - 13 - 0 - 0 - 7 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 5 - 5 - 7 - 0 - 7 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 11 - 5 - 7 - 0 - 7 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 7 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 15 - 13 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 13 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 13 - 5 - 13 - 13 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 13 - 5 - 13 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/mr2l.sps b/programs/samples/qb45com/action/arcdemo/mr2l.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2l.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr2lm.spr b/programs/samples/qb45com/action/arcdemo/mr2lm.spr deleted file mode 100644 index c0a0c0804..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2lm.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr2lm.sps b/programs/samples/qb45com/action/arcdemo/mr2lm.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2lm.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr2r.spr b/programs/samples/qb45com/action/arcdemo/mr2r.spr deleted file mode 100644 index db79a45d0..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2r.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 13 - 13 - 5 - 13 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 13 - 5 - 13 - 13 - 0 - 15 - 0 - 0 - 0 - 13 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 13 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 15 - 13 - 13 - 5 - 5 - 5 - 5 - 5 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 13 - 5 - 5 - 5 - 13 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 5 - 7 - 5 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 11 - 5 - 7 - 0 - 7 - 13 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 13 - 5 - 5 - 7 - 0 - 7 - 5 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 13 - 13 - 0 - 0 - 7 - 13 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/mr2r.sps b/programs/samples/qb45com/action/arcdemo/mr2r.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2r.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr2rm.spr b/programs/samples/qb45com/action/arcdemo/mr2rm.spr deleted file mode 100644 index 1e2c44135..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2rm.spr +++ /dev/null @@ -1,225 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 0 - 0 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/mr2rm.sps b/programs/samples/qb45com/action/arcdemo/mr2rm.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/mr2rm.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/t1l.spr b/programs/samples/qb45com/action/arcdemo/t1l.spr deleted file mode 100644 index 7d09e4b75..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1l.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 7 - 7 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 8 - 8 - 8 - 0 - 8 - 0 - 0 - 0 - 10 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 3 - 3 - 8 - 8 - 8 - 0 - 8 - 7 - 7 - 0 - 0 - 10 - 2 - 10 - 10 - 10 - 10 - 0 - 11 - 3 - 11 - 11 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 7 - 10 - 2 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 7 - 2 - 2 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 10 - 2 - 2 - 2 - 2 - 10 - 2 - 11 - 3 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 3 - 11 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 10 - 10 - 10 - 10 - 0 - 11 - 11 - 11 - 8 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/t1l.sps b/programs/samples/qb45com/action/arcdemo/t1l.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1l.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/t1lm.spr b/programs/samples/qb45com/action/arcdemo/t1lm.spr deleted file mode 100644 index 266342b98..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1lm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/t1lm.sps b/programs/samples/qb45com/action/arcdemo/t1lm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1lm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/t1r.spr b/programs/samples/qb45com/action/arcdemo/t1r.spr deleted file mode 100644 index 9fa2a7276..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1r.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 10 - 10 - 10 - 10 - 0 - 11 - 11 - 11 - 8 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 10 - 2 - 10 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 3 - 11 - 0 - 0 - 8 - 0 - 0 - 8 - 8 - 8 - 10 - 2 - 2 - 2 - 2 - 10 - 2 - 11 - 3 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 7 - 7 - 2 - 2 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 7 - 10 - 2 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 11 - 0 - 0 - 0 - 0 - 0 - 8 - 7 - 7 - 0 - 0 - 10 - 2 - 10 - 10 - 10 - 10 - 0 - 11 - 3 - 11 - 11 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 10 - 2 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 3 - 3 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 7 - 7 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 7 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/t1r.sps b/programs/samples/qb45com/action/arcdemo/t1r.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1r.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/t1rm.spr b/programs/samples/qb45com/action/arcdemo/t1rm.spr deleted file mode 100644 index 08bf9f2f9..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1rm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/t1rm.sps b/programs/samples/qb45com/action/arcdemo/t1rm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/t1rm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/tr1l.spr b/programs/samples/qb45com/action/arcdemo/tr1l.spr deleted file mode 100644 index db60231b2..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1l.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 2 - 10 - 10 - 10 - 0 - 11 - 11 - 3 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 11 - 3 - 8 - 0 - 8 - 0 - 0 - 8 - 8 - 8 - 2 - 2 - 2 - 2 - 2 - 10 - 2 - 11 - 3 - 3 - 3 - 11 - 0 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 2 - 10 - 10 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 3 - 3 - 11 - 8 - 8 - 8 - 8 - 7 - 7 - 7 - 10 - 2 - 10 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 3 - 3 - 3 - 8 - 8 - 8 - 8 - 7 - 7 - 0 - 0 - 10 - 2 - 2 - 10 - 10 - 10 - 0 - 11 - 11 - 3 - 3 - 3 - 11 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 7 - 7 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/tr1l.sps b/programs/samples/qb45com/action/arcdemo/tr1l.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1l.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/tr1lm.spr b/programs/samples/qb45com/action/arcdemo/tr1lm.spr deleted file mode 100644 index 0c2489ac5..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1lm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/tr1lm.sps b/programs/samples/qb45com/action/arcdemo/tr1lm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1lm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/tr1r.spr b/programs/samples/qb45com/action/arcdemo/tr1r.spr deleted file mode 100644 index c164c6a54..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1r.spr +++ /dev/null @@ -1,300 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 0 - 0 - 0 - 0 - 7 - 7 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 11 - 11 - 0 - 0 - 8 - 8 - 7 - 7 - 0 - 0 - 10 - 2 - 2 - 10 - 10 - 10 - 0 - 11 - 11 - 3 - 3 - 3 - 11 - 0 - 8 - 8 - 7 - 7 - 7 - 10 - 2 - 10 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 3 - 3 - 3 - 8 - 8 - 8 - 8 - 8 - 7 - 7 - 2 - 10 - 10 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 3 - 3 - 11 - 8 - 8 - 8 - 0 - 8 - 8 - 8 - 2 - 2 - 2 - 2 - 2 - 10 - 2 - 11 - 3 - 3 - 3 - 11 - 0 - 8 - 8 - 8 - 0 - 0 - 0 - 10 - 2 - 2 - 2 - 2 - 10 - 2 - 2 - 11 - 3 - 3 - 11 - 3 - 8 - 0 - 8 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 2 - 2 - 10 - 10 - 10 - 0 - 11 - 11 - 3 - 8 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 10 - 10 - 0 - 0 - 0 - 0 - 0 - 0 - 8 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/tr1r.sps b/programs/samples/qb45com/action/arcdemo/tr1r.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1r.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/tr1rm.spr b/programs/samples/qb45com/action/arcdemo/tr1rm.spr deleted file mode 100644 index c0b9c0383..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1rm.spr +++ /dev/null @@ -1,300 +0,0 @@ - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 0 - 0 - 0 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 0 - 0 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 - 15 diff --git a/programs/samples/qb45com/action/arcdemo/tr1rm.sps b/programs/samples/qb45com/action/arcdemo/tr1rm.sps deleted file mode 100644 index 5ac6bff1a..000000000 --- a/programs/samples/qb45com/action/arcdemo/tr1rm.sps +++ /dev/null @@ -1 +0,0 @@ - 164 15 20 diff --git a/programs/samples/qb45com/action/arcdemo/wcl.spr b/programs/samples/qb45com/action/arcdemo/wcl.spr deleted file mode 100644 index 84cdf02d4..000000000 --- a/programs/samples/qb45com/action/arcdemo/wcl.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/wcl.sps b/programs/samples/qb45com/action/arcdemo/wcl.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/wcl.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/wod1.spr b/programs/samples/qb45com/action/arcdemo/wod1.spr deleted file mode 100644 index aca8761fa..000000000 --- a/programs/samples/qb45com/action/arcdemo/wod1.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/wod1.sps b/programs/samples/qb45com/action/arcdemo/wod1.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/wod1.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arcdemo/wod2.spr b/programs/samples/qb45com/action/arcdemo/wod2.spr deleted file mode 100644 index 9e653b77f..000000000 --- a/programs/samples/qb45com/action/arcdemo/wod2.spr +++ /dev/null @@ -1,225 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 11 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 11 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arcdemo/wod2.sps b/programs/samples/qb45com/action/arcdemo/wod2.sps deleted file mode 100644 index e15ca56ac..000000000 --- a/programs/samples/qb45com/action/arcdemo/wod2.sps +++ /dev/null @@ -1 +0,0 @@ - 124 15 15 diff --git a/programs/samples/qb45com/action/arqanoid/arqanoid.bas b/programs/samples/qb45com/action/arqanoid/arqanoid.bas deleted file mode 100644 index d40125e0c..000000000 --- a/programs/samples/qb45com/action/arqanoid/arqanoid.bas +++ /dev/null @@ -1,5826 +0,0 @@ -CHDIR ".\programs\samples\qb45com\action\arqanoid" - -DECLARE SUB DoEnding () -DECLARE SUB DoLogos () -DECLARE SUB LoadTitle () -DECLARE SUB DoIntro () -DECLARE SUB DoStory () -DECLARE SUB LoadFlyExpImage () -DECLARE SUB DoLangaw (Stat%) -DECLARE SUB CheckforLangaw (X%, Y%) -DECLARE SUB CalcLangawCoord () -DECLARE SUB PutLangaw (X%, Y%, Axn%) -DECLARE SUB LoadLangawImage () -DECLARE FUNCTION DoTimer% (MaxTime%) -DECLARE SUB PrintLives (EraseIt%) -DECLARE SUB CalcBombCoord (RandFactor%) -DECLARE SUB CheatError () -DECLARE FUNCTION RGBCounter% (MaxCounter%) -DECLARE SUB EraseSaveFiles () -DECLARE SUB Check4HoF () -DECLARE SUB SortIt () -DECLARE FUNCTION SubMenu% () -DECLARE FUNCTION PullDown% (X%, Y%, Item$(), Italic%) -DECLARE SUB NameEntry () -DECLARE SUB DoHallOfFame () -DECLARE SUB LoadSaveFiles () -DECLARE SUB DialogBox (X%, Y%, MaxLen%, MinColor%, Title$, Text$, Italic%, Sysmod%) -DECLARE SUB LoadGame () -DECLARE SUB SaveGame () -DECLARE SUB ScrollKgenTT (TopY%, Text$, Xscale%, Yscale%, MinColor%, Shadow%, OverTop%, OverTopY%, Italic%, FirstTime%) -DECLARE SUB DoCredits () -DECLARE SUB DoGameOver () -DECLARE SUB KgenTTFont (X%, Y%, Font$, MinColor%, Xscale%, Yscale%, Italic%) -DECLARE SUB GetDirection () -DECLARE SUB SfxOpenDialog () -DECLARE FUNCTION SpecialStage% (DX%, DY%, MaxLen%, Tmin%, Title$, Text$) -DECLARE SUB SfxPowerUp () -DECLARE FUNCTION CheckPowerCaps% (X%, Y%) -DECLARE SUB DoPowerCaps (PowType%) -DECLARE SUB PutPowerCapsBG () -DECLARE SUB GetPowerCapsBG () -DECLARE SUB PutPowerCaps (X%, Y%, PowType%) -DECLARE SUB DoPadLsr () -DECLARE SUB PutPadLsrBG (Image1%(), Image2%()) -DECLARE SUB GetPadLsrBG (Image1%(), Image2%()) -DECLARE SUB GetPadLsrCoord (I%) -DECLARE SUB PutPadLsr (X%, Y%) -DECLARE SUB LoadPadLsrImage () -DECLARE SUB DrawBoss (BossX%, BossY%, BossFile$) -DECLARE SUB HazyFx () -DECLARE SUB LoadPowerCapsImage () -DECLARE SUB DoBallExp () -DECLARE SUB LoadBallExpImage () -DECLARE SUB LoadBallImage () -DECLARE SUB LoadPaddleImage () -DECLARE SUB DrawSpike (X%, Y%) -DECLARE FUNCTION MenuSub% () -DECLARE SUB SndExplode () -DECLARE SUB PutPointer (X%, Y%, X2%, Y2%) -DECLARE FUNCTION Menu% () -DECLARE SUB LoadPointerImage () -DECLARE SUB EraseKgen () -DECLARE SUB FadeStep (R%, g%, B%) -DECLARE SUB GetBlkHoleBG () -DECLARE SUB PutBlkHoleBG () -DECLARE SUB GetBG (X1%, Y1%, X2%, Y2%, Image%()) -DECLARE SUB DoExplode () -DECLARE SUB LoadExplodeImage () -DECLARE SUB PutBombBG () -DECLARE SUB PutBomb (X%, Y%, Switch%) -DECLARE SUB DoBlkHole () -DECLARE SUB DoBomb () -DECLARE SUB PutBlkHole (X%, Y%) -DECLARE SUB PrintLevel () -DECLARE SUB RefreshKey () -DECLARE SUB MakeImageIndex (ImageArray%(), IndexArray%()) -DECLARE SUB InitImageData (FileName$, ImageArray%()) -DECLARE SUB LevelDoneBox () -DECLARE SUB InitTrans () -DECLARE SUB TransLuc (n%, X1%, Y1%, X2%, Y2%) -DECLARE SUB CheckBounceCounter (BounceCounter%) -DECLARE SUB ReInitBallSpd () -DECLARE SUB RotateRGB () -DECLARE SUB PrintScore () -DECLARE SUB KgenFont (X%, Y%, Font$, MinColor%, Italic%) -DECLARE SUB LimitScore () -DECLARE SUB ReinitValues () -DECLARE SUB SelectLevel () -DECLARE FUNCTION BossHit% (X%, Y%) -DECLARE SUB BlinkTile (Switch%) -DECLARE SUB CheckTile (X%, Y%) -DECLARE FUNCTION HitSpike% (X%, Y%) -DECLARE SUB StartGame () -DECLARE SUB BlinkBoss () -DECLARE SUB Init () -DECLARE SUB RestoreColors () -DECLARE SUB HideBuild () -DECLARE SUB SaveColors () -DECLARE SUB ReadRGB (C%, R%, g%, B%) -DECLARE SUB Fade (R%, g%, B%) -DECLARE SUB OpenLvlFile (File$) -DECLARE SUB DrawTile (X%, Y%, Clr%) -DECLARE SUB PlayGame () -DECLARE SUB InitNums () -DECLARE SUB PrintNum (X%, Y%, n$) -DECLARE FUNCTION Format$ (Score&) -DECLARE SUB PrintFonts (X%, Y%, n$) -DECLARE SUB DrawFonts () -DECLARE SUB InitFonts () -DECLARE FUNCTION Inside% (X%, Y%, X1%, Y1%, X2%, Y2%) -DECLARE SUB ReadLevel (Lvl%) -DECLARE SUB GetTileBackGround () -DECLARE SUB InitValues () -DECLARE SUB DrawBorder () -DECLARE FUNCTION Collide% () -DECLARE SUB GetBallCenter (BallCenterX%, BallCenterY%) -DECLARE SUB PutPaddle (PadX%, PadY%) -DECLARE FUNCTION MovePaddle% (PadX%, PadY%) -DECLARE SUB GetPaddleBG (PadX%, PadY%) -DECLARE FUNCTION FastKB% () -DECLARE SUB PutBall (BallX%, BallY%) -DECLARE SUB GetBallBG (BallX%, BallY%) -DECLARE SUB PutBallBG (BallOldX%, BallOldY%) -DECLARE SUB DrawLevelBG (BGMode%, ColorStep%, ColorAttr%) -DECLARE SUB WriteRGB (C%, R%, g%, B%) -DECLARE SUB InitColors () -DECLARE SUB MilliDelay (msecs%) -DECLARE SUB PutPaddleBG (PadOldX%, PadOldY%) -DECLARE SUB LoadBombImage () -DECLARE SUB LoadBlkHoleImage () -DEFINT A-Z -REM $DYNAMIC - - -'==========Type declarations==================================== -TYPE TileType - X AS INTEGER - Y AS INTEGER - C AS INTEGER - F AS INTEGER -END TYPE - -TYPE RGBtype - R AS INTEGER - g AS INTEGER - B AS INTEGER -END TYPE - -TYPE CoordType - X AS INTEGER - Y AS INTEGER -END TYPE - -TYPE SaveType - Num AS INTEGER - Namer AS STRING * 12 - Score AS LONG - Level AS INTEGER - Lives AS INTEGER -END TYPE - -TYPE HallOfFameType - Rank AS INTEGER - Namer AS STRING * 12 - Score AS LONG -END TYPE - - - -'====================Constants================================== -'Misc Const -CONST False = 0, True = NOT False - -'Screen const -CONST MinX = 0, MaxX = 260, MinY = 0, MaxY = 200 - -'KeyConstants -CONST KRight = 77, KLeft = 75, KDown = 80, KUp = 72, KEsc = 1 -CONST KW = &H11, KA = &H1E, KS = &H1F, KD = &H20, KPgd = &H51 -CONST KSpc = &H39, KEnt = &H1C, KCtrl = &H1D, KTab = &HF, KEnd = &H4F - - -'Paddle Const -CONST PadSpd = 3 -'Ball Const -CONST BallRadius = 4 - -'Color Const -CONST PadColorMin = 30, PadColorMax = 39 -CONST BorderMin = 40, Bordermax = 47 -CONST SpikeMin = 50, SpikeMax = 57 -CONST TcolorMin = 60, TcolorMax = 93 -CONST FColorMin = 96, FcolorMax = 100 -CONST KgenMin = 220, KgenMax = 227 -CONST KgenBlueMin = 228, KgenBlueMax = 235 -CONST KgenGreenMin = 236, KgenGreenMax = 243 -CONST SnColorMin = 101, SnColorMax = 105 -CONST BossColorMin = 106, BossColorMax = 121 - -'Offset and Tile Const -CONST OffsetBG = 122 'TileY=19(0 to 180/6), TileX=12(0 to 220/20) -CONST TileMax = 227 '0 to 227 -CONST TileW = 19, TileH = 5 ' 0 to 19, 0 to 5 (20*6) - -'Font constant -CONST FontOffset = 12 'Size of SmallFonts - -'Directional Const -CONST UR = 1, UL = 2, DR = 3, DL = 4 - -'RGBCounter -CONST RGBC = 7 'for Counter of RotateRGB/RGBCounter function - - -'==================Shared Arrays=================== -DIM SHARED Ball(1), BallBG(30), BallIndex(1) -DIM SHARED Paddle(1), PaddleIndex(1), PaddleBG(181 * 2) -DIM SHARED BackGround(27816) 'BackGround for erasing tiles -DIM SHARED SpikeBG(1) 'BackGround for erasing tiles -DIM SHARED Tile(TileMax) AS TileType -DIM SHARED Trans(256) -DIM SHARED SavRGB(0 TO 255) AS RGBtype -DIM SHARED Boss(1), BossMask(1), BossBG(1) -DIM SHARED BlkHole(1), BlkHoleMsk(1), BlkHoleIndex(1) -DIM SHARED BlkHoleXY(1 TO 4) AS CoordType -DIM SHARED BlkHoleBG(130 * 4) -DIM SHARED Bomb(1), BombMsk(1), BombIndex(1) -DIM SHARED BombXY(1 TO 91) AS CoordType -DIM SHARED BombBG(130 * 91) -DIM SHARED Explode(1 TO 1), Explodemsk(1 TO 1), ExplodeIndex(1 TO 1) -DIM SHARED BallExp(1 TO 1), BallExpmsk(1 TO 1), BallExpIndex(1 TO 1) -DIM SHARED Pointer(1 TO 1), PointerIndex(1 TO 1) -DIM SHARED PowerCaps(1), PowerCapsIndex(1) -DIM SHARED PowerCapsBG(1), PowerCapsCoord(0) AS CoordType, PowerCapsOldCoord(0) AS CoordType -DIM SHARED Padlsr(1), PadlsrIndex(1), PadLsrCoord(1) AS CoordType'(0 to 1) -DIM SHARED PadLsrBG1(1), PadLsrBG2(1), PadLsrOldCoord(1) AS CoordType -DIM SHARED Save(1 TO 8) AS SaveType -DIM SHARED Hall(1 TO 5) AS HallOfFameType -DIM SHARED Langaw(1 TO 1), LangawIndex(1 TO 1), LangawCoord(1) AS CoordType -DIM SHARED LangawOldCoord(1) AS CoordType, LangawBG1(1), LangawBG2(1), FlyExp(1) -DIM SHARED FlyExpIndex(1) - -'==================Non-Global Arrays=============== -DIM SmallFonts(396) AS INTEGER -DIM SmallNum(132) AS INTEGER - -'==================Shared Variables -DIM SHARED BallOldX, BallOldY, BallX, BallY, BallXV, BallYV, Direction -DIM SHARED BallCenterX, BallCenterY 'Used to Process collission detection -DIM SHARED PadX, PadY, PadOldX, PadOldY -DIM SHARED Finished, BallSpd, Score&, OutStart, BounceCounter -DIM SHARED ColorAttr, ColorStep -DIM SHARED Level, TileNumber, GameOver, BossLife, BombNum, BombDes, MaxBomb, Lives -DIM SHARED PadPower, Replicant, BombSTG, BossStg -DIM SHARED SdHitPad, SdHitBoss, SdHitTile -DIM SHARED BossX, BossY, BossEnter, SpStage -DIM SHARED Shooting, Power, PowerType, Lshot, Rshot, AutoFire -DIM SHARED Path$ - - -RANDOMIZE TIMER - -CLS -SCREEN 13 - -'Path$ = "C:\qbasic\Arqanoid\" -'Path$ = "c:\rel\arqanoid\" -Path$ = "" -Init - - - -DO - - PlayGame - -LOOP UNTIL GameOver - -Fade 0, 0, 0 - -DoGameOver - - -CLS -SCREEN 0 -END - -'====Data statements -Credits: - - -DATA "GOD/Jesus Christ" -DATA " Gave me everything I have. LIFE." -DATA "" - -DATA "Richard Eric M. Lope BSN RN" -DATA " Coding/Story/Sound/Grafix(Mostly)." -DATA "" - -DATA "Anya Therese Lope" -DATA " Cutest & Loudest baby in the world!" -DATA "" - -DATA "Pedro & Lily Lope" -DATA " For their undying support." -DATA "" - -DATA "Marie & Cristina Lope" -DATA " Twinblades of Sara,Iloilo." -DATA "" - -DATA "Loreni Farillon" -DATA " Kitiki-TXT.2k dtym 2snd SMS L8@Nyt." -DATA "" - -DATA "WIC I-net/Jason Babila,Alan,Shote&Tin2" -DATA " Mabini St. Iloilo city." -DATA "" - -DATA "Archie Aurelio/Joey of Zap Zone" -DATA " Arcade Game buddies." -DATA "" - -DATA "Special Thanks!!!" -DATA "" -DATA "" - - -DATA "Andrew Ayers (Blast Lib maker)" -DATA " For his tutor on Get/Put offsetting." -DATA "" - -DATA "Chris Chadwick (PP256 Developer)" -DATA " PP256 made my life easier!!!" -DATA "" - -DATA "Vance Velez (Vplanet)" -DATA " Best Review site!!!" -DATA "" - -DATA "Gianncarlo (GBGames)" -DATA " Best QB link ever!!!" -DATA "" - -DATA "Jorden Chamid (FutureSoft)" -DATA " Best QB site. Period!!!" -DATA "" - -DATA "Vic Luce (VQB Maker)" -DATA " Great tutorial on Masking." -DATA "" - -DATA "Danny Gump (VirtuaSoft-Dash Lib Maker)" -DATA " Taught me the Get/Put Array system." -DATA "" - -DATA "ZKman (?????)" -DATA " Translucency(Non Alpha) Tutorial." -DATA "" - - -DATA "Steven Sivek (stevensivek@hotmail.com)" -DATA " For the ROM address/Offset of text." -DATA "" - -DATA "Dark Dread (Darkness Etherial)" -DATA " DCrown perked me up 2 make a QBGame." -DATA "" - -DATA "Andre(who are you?)" -DATA " Used his MilliDelay in this game." -DATA "" - -DATA "Nesticle" -DATA " Heaven sent emulator!" -DATA "" - -DATA "Kgen and LoopyNes" -DATA " Great emulators!" -DATA "" - -DATA "The QB Times" -DATA " Provided me with BMP file system." -DATA "" - -DATA "NeoZones" -DATA " Got a lot of tutorials there!" -DATA "" - -DATA "KONAMI(tm)" -DATA " Ripped their LifeForce sprites." -DATA "" - -DATA "IREM(tm),COMPILE(tm) & Broderbund(tm)" -DATA " Ripped their Guardian Legend sprs." -DATA "" - -DATA "TAXAN(tm)" -DATA " Ripped their Burai Fighter sprites." -DATA "" - -DATA "The Smashing Pumpkins" -DATA " Best band in the world. Forever!" -DATA "" - -DATA "PSYKYO" -DATA " Strikers Series...Best Arcade Game!" -DATA "" - -DATA "Samurai X & DragonBall Z" -DATA " Animes I like very much." -DATA "" - -DATA "" -DATA "" -DATA "" -DATA "" -DATA "" - -DATA "End" - - - -Story: - -DATA " From days of long ago, from the " -DATA "uncharted regions fo the universe, " -DATA "comes a legend... the Legend of" -DATA "BALOTRON!(Yeah, right. sounds familiar)" -DATA "" -DATA " One day, while the people of" -DATA "BALOTLAND were living peacefully," -DATA "Ten long years post the victory of their" -DATA "Gredius,Goardic, and Buray missions, a" -DATA "Balotland shattering BALOTQUAKE occured!" -DATA "" -DATA " The inhabitants of BalotLand(Paddle-" -DATA "Like beings) panicked! And in the " -DATA "confusion the bacterial beings," -DATA "imprisoned underground for ten years, " -DATA "led by the ever charming GIGA, seized" -DATA "control of the planet and imprisoned" -DATA "most of the BalotLings. While the" -DATA "others were forced to do mining at" -DATA "the Obsidian lake which has precious" -DATA "stones below it, including Balotron's" -DATA "love, Balotae! BTW, Balotron wasn't" -DATA "captured(He was taking a nap outside" -DATA "the city. Or else we won't have a story)." -DATA "" -DATA " Now armed w/ his trusty BALOTBALL," -DATA "both embarked on a journey to save the " -DATA "people of Balotland. But before they " -DATA "could save them and face GIGA, they" -DATA "must defeat his governors of Pain, and" -DATA "his army of... well, what else... " -DATA "COLORFUL BLOCKS!" -DATA "Nuff said! Let's begin..." -DATA "" -DATA "" -DATA "" -DATA "" -DATA "" -DATA "" -DATA "END" - -Ending: - -DATA 0,"--THE END--",220 -DATA 20,"Balotron together w/ his friend",228 -DATA 30,"Boy Balot, rescued princess",228 -DATA 40,"Balotae from the clutches",228 -DATA 50,"of GIGA, and his minions.",228 -DATA 60,"the people of Balotland",228 -DATA 70,"rejoiced and made our hero",228 -DATA 80,"their king! (He wasn't",228 -DATA 90,"supposed to be, but he married",228 -DATA 100,"the princess so he will be.)",228 -DATA 110,"Lucky him....",228 -DATA 130,"However....",236 -DATA 140,"this is an arcade game.",236 -DATA 150,"so you have to continue your",236 -DATA 160,"quest. Right from the start...",236 -DATA 190,"End",228 - -'====End data - - - -'=================temp - -'-=================================================== - - -Temp: - -END - -REM $STATIC -SUB BlinkBoss STATIC - - WAIT &H3DA, 8 - SOUND 1000, .2 - SOUND 500, .4 - - FOR I = 106 TO 121 - WriteRGB I, 0, 63, INT(RND * 63) - NEXT I - - SOUND 1000, .3 - SOUND 700, .2 - WAIT &H3DA, 8 - - FOR I = 106 TO 121 - R = SavRGB(I).R - g = SavRGB(I).g - B = SavRGB(I).B - WriteRGB I, R, g, B - NEXT I - - SOUND 1000, .2 - -END SUB - -SUB BlinkTile (Switch%) STATIC - -IF Switch THEN - FOR I = 84 TO 86 - WriteRGB I, 63, 0, INT(RND * 63) - NEXT I -ELSE - FOR I = 84 TO 86 - R = SavRGB(I).R - g = SavRGB(I).g - B = SavRGB(I).B - WriteRGB I, R, g, B - NEXT I -END IF - -END SUB - -FUNCTION BossHit (X, Y) STATIC - - - -BossHit = False -IF POINT(X, Y) >= BossColorMin AND POINT(X, Y) <= BossColorMax THEN - BossHit = True - BlinkBoss - Score& = Score& + 2000& - LimitScore - PrintScore - BossLife = BossLife - 100 - REM GOSUB InitPwrCaps 'Disabled for OverKill Reasons unrem if u want 2 have powerups on bosses - GOSUB CheckBossKilled -END IF - - -EXIT FUNCTION - - -'=========Subs=============== - -CheckBossKilled: - -IF BossLife <= 0 THEN - - PutBlkHoleBG - PutBombBG - LevelDoneBox - EraseKgen - PrintLives True - - T1& = TIMER - - DO - T2& = TIMER - KK$ = INKEY$ - IF KK$ = CHR$(13) THEN EXIT DO - - DoExplode - FadeStep 0, 0, 0 - - SndExplode - LOOP UNTIL T2& - T1& > 9& - - Finished = True - IF Level = 50 THEN - DoEnding - END IF - -END IF - -RETURN - -'================== -InitPwrCaps: - -IF NOT Power THEN - - PowPow = INT(RND * 5) - IF PowPow = 1 THEN - Power = True - PowerCapsCoord(0).X = 10 + INT(RND * 220) - PowerCapsCoord(0).Y = 10 + INT(RND * 50) - PutPadLsrBG PadLsrBG1(), PadLsrBG2() - GetPowerCapsBG - PowerType = 1 + INT(RND * 3) - END IF -END IF - -RETURN - - -END FUNCTION - -SUB CalcBombCoord (RandFactor) STATIC - -I = 0 -FOR Y = 10 TO 108 STEP 16 -FOR X = 26 TO 220 STEP 16 - Rand = 1 + INT(RND * RandFactor) - IF Rand = 1 THEN - IF I < 100 THEN - I = I + 1 - BombXY(I).X = X - BombXY(I).Y = Y - END IF - END IF -NEXT X -NEXT Y - -BombNum = I -MaxBomb = BombNum -BombSTG = True - - -END SUB - -SUB CalcLangawCoord STATIC - -LangawCoord(0).X = BlkHoleXY(1 + INT(RND * 4)).X -LangawCoord(0).Y = BlkHoleXY(1 + INT(RND * 4)).Y -LangawCoord(1).X = BlkHoleXY(1 + INT(RND * 4)).X -LangawCoord(1).Y = BlkHoleXY(1 + INT(RND * 4)).Y - -GetBG LangawOldCoord(0).X, LangawOldCoord(0).Y, LangawOldCoord(0).X + 16, LangawOldCoord(0).Y + 16, LangawBG1() -GetBG LangawOldCoord(1).X, LangawOldCoord(1).Y, LangawOldCoord(1).X + 16, LangawOldCoord(1).Y + 16, LangawBG2() - -END SUB - -SUB CheatError STATIC - -DX = 26 -DY = 40 -MaxLen = 26 -Title$ = " Cheat Error!!!" -Tmin = PadColorMin -Sysmod = True -Text$ = CHR$(11) + " Sorry! I intentionally disabled this cheat code on SPECIAL STAGES because I think it would be an overkill... ie. 2 easy a game." -DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False, Sysmod - - -END SUB - -SUB Check4HoF STATIC - -IF Score& > Hall(5).Score THEN - NameEntry -END IF - -END SUB - -SUB CheckBounceCounter (BounceCounter) STATIC - - IF BounceCounter < 50 THEN - BounceCounter = BounceCounter + 1 - END IF - SELECT CASE BounceCounter - CASE IS <= 40 - BallSpd = 1 - ReInitBallSpd - CASE IS = 41 - BallSpd = 2 - ReInitBallSpd - CASE ELSE - END SELECT - - -END SUB - -SUB CheckforLangaw (X, Y) STATIC - -IF Inside(X, Y, LangawCoord(0).X, LangawCoord(0).Y, LangawCoord(0).X + 16, LangawCoord(0).Y + 16) THEN - PUT (LangawOldCoord(0).X, LangawOldCoord(0).Y), LangawBG1, PSET - GOSUB XFlies - LangawCoord(0).X = BlkHoleXY(1 + INT(RND * 4)).X - LangawCoord(0).Y = BlkHoleXY(1 + INT(RND * 4)).Y - GetBG LangawOldCoord(0).X, LangawOldCoord(0).Y, LangawOldCoord(0).X + 16, LangawOldCoord(0).Y + 16, LangawBG1() -ELSEIF Inside(X, Y, LangawCoord(1).X, LangawCoord(1).Y, LangawCoord(1).X + 16, LangawCoord(1).Y + 16) THEN - PUT (LangawOldCoord(1).X, LangawOldCoord(1).Y), LangawBG2, PSET - GOSUB XFlies - LangawCoord(1).X = BlkHoleXY(1 + INT(RND * 4)).X - LangawCoord(1).Y = BlkHoleXY(1 + INT(RND * 4)).Y - GetBG LangawOldCoord(1).X, LangawOldCoord(1).Y, LangawOldCoord(1).X + 16, LangawOldCoord(1).Y + 16, LangawBG2() -END IF - -EXIT SUB - - -XFlies: - REDIM Temp(1) - GetBG X - 5, Y - 5, (X - 5) + 25, (Y - 5) + 25, Temp() - PUT (X - 5, Y - 5), FlyExp(FlyExpIndex(2)), AND - PUT (X - 5, Y - 5), FlyExp(FlyExpIndex(1)), OR - FOR J = 0 TO 3 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SOUND 1500 - (J * 150), .3 - NEXT J - BounceCounter = 40 - Score& = Score& + 11 - LimitScore - PrintScore - PUT (X - 5, Y - 5), Temp, PSET - ERASE Temp - -RETURN - - -END SUB - -FUNCTION CheckPowerCaps (X, Y) STATIC - - -CheckPowerCaps = False - -IF Inside(X, Y, PowerCapsCoord(0).X, PowerCapsCoord(0).Y, PowerCapsCoord(0).X + 20, PowerCapsCoord(0).Y + 10) THEN - CheckPowerCaps = True -END IF - -END FUNCTION - -SUB CheckTile (X, Y) STATIC - -FOR I = 0 TO 227 - IF Tile(I).F THEN - IF Inside(X, Y, Tile(I).X, Tile(I).Y, Tile(I).X + TileW, Tile(I).Y + TileH) THEN - GOSUB FindType - LimitScore - PrintScore - GOSUB InitPowerCaps - END IF - END IF -NEXT I - -EXIT SUB - -'=========================================================================== -FindType: - SELECT CASE Tile(I).C - CASE 1 - SOUND 700, .5 - Score& = Score& + 100& - GOSUB DestroyTiles - CASE 2 - SOUND 900, .5 - Score& = Score& + 200& - GOSUB DestroyTiles - CASE 3 - SOUND 1100, .5 - Score& = Score& + 300& - GOSUB DestroyTiles - CASE 4 - SOUND 1300, .5 - Score& = Score& + 400& - GOSUB DestroyTiles - CASE 5 - SOUND 1500, .5 - Score& = Score& + 500& - GOSUB DestroyTiles - CASE 6 - SOUND 1700, .5 - Score& = Score& + 600& - GOSUB DestroyTiles - CASE 7 - SOUND 1900, .5 - Score& = Score& + 700& - Tile(I).C = Tile(I).C - 1 'Change Tile - DrawTile Tile(I).X, Tile(I).Y, Tile(I).C - CASE 8 - SOUND 2100, .5 - Score& = Score& + 800& - Tile(I).C = Tile(I).C - 1 'Change Tile - DrawTile Tile(I).X, Tile(I).Y, Tile(I).C - CASE 9 - SdHitTile = True - BlinkTile True - CASE ELSE - END SELECT -RETURN - - -DestroyTiles: - - - IF Power THEN - IF CheckPowerCaps(X, Y) THEN - PutPowerCapsBG - Power = False - END IF - END IF - - PUT (Tile(I).X, Tile(I).Y), BackGround(I * OffsetBG), PSET - Tile(I).F = False - - 'Check if all Tiles are Destroyed - TileNumber = TileNumber - 1 - - IF TileNumber < 1 THEN - - LevelDoneBox - Shooting = False - Lshot = False - Rshot = False - T1& = TIMER - DO - T2& = TIMER - KK$ = INKEY$ - IF KK$ = CHR$(13) THEN EXIT DO - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - IF RGBCounter(RGBC * 5) THEN - RotateRGB - END IF - - LOOP UNTIL T2& - T1& > 7& - - Finished = True - OutStart = True - END IF - -RETURN - -'======== -InitPowerCaps: - -IF NOT Power THEN - IF Tile(I).C <> 9 THEN - PowPow = INT(RND * 10) - IF PowPow = 1 THEN - Power = True - PowerCapsCoord(0).X = Tile(I).X - PowerCapsCoord(0).Y = Tile(I).Y - PutPadLsrBG PadLsrBG1(), PadLsrBG2() - GetPowerCapsBG - PowerType = 1 + INT(RND * 3) - END IF - END IF -END IF - -RETURN - - -END SUB - -FUNCTION Collide STATIC -'This is the heart and soul of the game! this may be long and confusing but -'I made great effort in trying to make this as comprehensive as possible! -'If you still don't understand, print it! - - -IF BombSTG THEN - IF DoTimer(61) THEN - Perfect = False - GOSUB Endit - END IF -END IF - -Collide = False -BallSS = BallSpd - -BallX = BallX + BallXV -BallY = BallY + BallYV - -GetBallCenter BallCenterX, BallCenterY - -GetDirection - -SELECT CASE Direction - CASE UR - IF POINT(BallCenterX + (BallRadius + BallSS), BallCenterY) < 129 THEN 'Right - X = BallCenterX + (BallRadius + BallSS) - Y = BallCenterY - BallXV = -BallXV - 'BallX = BallX + BallXV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSEIF POINT(BallCenterX, BallCenterY - (BallRadius + BallSS)) < 129 THEN 'Up - X = BallCenterX - Y = BallCenterY - (BallRadius + BallSS) - BallYV = -BallYV - 'BallY = BallY + BallYV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSE - END IF - - CASE UL - IF POINT(BallCenterX - (BallRadius + BallSS), BallCenterY) < 129 THEN 'Left - X = BallCenterX - (BallRadius + BallSS) - Y = BallCenterY - BallXV = -BallXV - 'BallX = BallX + BallXV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSEIF POINT(BallCenterX, BallCenterY - (BallRadius + BallSS)) < 129 THEN 'Up - X = BallCenterX - Y = BallCenterY - (BallRadius + BallSS) - BallYV = -BallYV - 'BallY = BallY + BallYV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSE - END IF - - CASE DR - IF POINT(BallCenterX + (BallRadius + BallSS), BallCenterY) < 129 THEN 'Right - X = BallCenterX + (BallRadius + BallSS) - Y = BallCenterY - BallXV = -BallXV - 'BallX = BallX + BallXV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSEIF POINT(BallCenterX, BallCenterY + (BallRadius + BallSS)) < 129 THEN 'Up - X = BallCenterX - Y = BallCenterY + (BallRadius + BallSS) - BallYV = -BallYV - 'BallY = BallY + BallYV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSE - END IF - - CASE DL - IF POINT(BallCenterX - (BallRadius + BallSS), BallCenterY) < 129 THEN 'Left - X = BallCenterX - (BallRadius + BallSS) - Y = BallCenterY - BallXV = -BallXV - 'BallX = BallX + BallXV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSEIF POINT(BallCenterX, BallCenterY + (BallRadius + BallSS)) < 129 THEN 'Up - X = BallCenterX - Y = BallCenterY + (BallRadius + BallSS) - BallYV = -BallYV - 'BallY = BallY + BallYV - Collide = True - GOSUB CheckForSpike - IF BossStg THEN GOSUB CheckForBossHit - GOSUB CheckForPadHit - GOSUB CheckForPowerHit - GOSUB CheckForTile - IF BombSTG THEN GOSUB Check4Bomb - IF BossStg THEN CheckforLangaw X, Y - ELSE - END IF - - - CASE ELSE -END SELECT - - - -EXIT FUNCTION - -'=======================Subroutines===================================== - - -CheckForBossHit: - IF BossHit(X, Y) THEN - END IF -RETURN - -CheckForTile: - CheckTile X, Y -RETURN - - -CheckForSpike: - - IF HitSpike(X, Y) THEN - - SOUND 900, 1 - - PutBallBG BallOldX, BallOldY - PutPaddleBG PadOldX, PadOldY - DoBallExp - StartGame - EXIT FUNCTION - END IF - -RETURN - -'============== -CheckForPadHit: - - IF POINT(X, Y) >= PadColorMin AND POINT(X, Y) <= PadColorMax THEN - SdHitPad = True - END IF - - -RETURN - -'=============== -CheckForPowerHit: - -IF CheckPowerCaps(X, Y) THEN - - IF Power THEN - PutPowerCapsBG - Power = False - PutPaddleBG PadOldX, PadOldY - SELECT CASE PowerType - CASE 1 'PadPower - IF NOT PadPower THEN - PadPower = True - GetPadLsrCoord 0 - GetPadLsrBG PadLsrBG1(), PadLsrBG2() - SfxPowerUp - END IF - CASE 2 'Replicant - Replicant = True - SfxPowerUp - CASE 3 '1Up - Lives = Lives + 1 - IF Lives > 100 THEN Lives = 100 - PrintLives False - SfxPowerUp - CASE ELSE - END SELECT - END IF -END IF - -RETURN - - -'========================= -Check4Bomb: - - FOR I = 1 TO UBOUND(BombXY) - IF BombXY(I).X <> 0 THEN - - IF Inside(X, Y, BombXY(I).X, BombXY(I).Y, BombXY(I).X + 16, BombXY(I).Y + 16) THEN - PUT (BombXY(I).X, BombXY(I).Y), BombBG(130 * (I - 1)), PSET - II = 1 + INT(RND * UBOUND(ExplodeIndex)) - REDIM Temp(1) - GetBG BombXY(I).X, BombXY(I).Y, BombXY(I).X + 25, BombXY(I).Y + 25, Temp() - PUT (BombXY(I).X, BombXY(I).Y), Explodemsk(ExplodeIndex(II)), AND - PUT (BombXY(I).X, BombXY(I).Y), Explode(ExplodeIndex(II)), OR - FOR J = 0 TO 3 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SOUND 400 - (J * 50), .3 - NEXT J - PUT (BombXY(I).X, BombXY(I).Y), Temp, PSET - BombXY(I).X = 0 - BombXY(I).Y = 0 - ERASE Temp - BombNum = BombNum - 1 - BombDes = BombDes + 1 - - - IF BombNum < 1 THEN - Perfect = True - GOSUB Endit - END IF - END IF - - END IF - - NEXT I - -RETURN - -'=-========== - -Endit: - -'======================= - -DX = 47 -DY = 10 -MaxLen = 21 -Tmin = PadColorMin -Sysmod = False -IF NOT Perfect THEN - Title$ = " Bonus" - Text$ = "2000 x = " -ELSE - Title$ = " Perfect!!!" - Text$ = "2000 x = " - Text$ = Text$ + "**Bonus +20,000**" -END IF - -REDIM DBTemp(1) 'for DialogBox -REDIM BTemp(1) 'For num BG - -GetBG DX, DY, DX + MaxLen * 8, DY + 37, DBTemp() -SOUND 500, 1 -SOUND 1300, 2 -DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False, Sysmod -GetBG DX + (13 * 8) - 3, DY + 13, (DX + (13 * 8)) + 8 * 7, DY + 13 + 8, BTemp() -KgenFont DX + 8 * 9, DY + 14, LTRIM$(STR$(BombDes)), KgenMin, False - -VL& = BombDes * 2000& - -Inc = 200 - -DO - - KgenFont DX + 86 + (9 * 8) - (LEN(LTRIM$(STR$(VL&))) * 8), DY + 14, LTRIM$(STR$(VL&)), KgenBlueMin, False - IF RGBCounter(RGBC * 4) THEN RotateRGB - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SOUND 2500, .5 - SOUND 3000, .2 - VL& = VL& - Inc - Score& = Score& + Inc - LimitScore - PrintScore - - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - - PUT (DX + (13 * 8) - 3, DY + 13), BTemp, PSET -IF VL& <= 0 THEN - IF Perfect THEN - VL& = VL& + 20000& - Perfect = False - KgenFont DX + 86 + (9 * 8) - (LEN(LTRIM$(STR$(VL&))) * 8), DY + 14, LTRIM$(STR$(VL&)), KgenBlueMin, False - SOUND 1500, 1 - SOUND 3500, 1 - FOR II = 1 TO 10 - RotateRGB - MilliDelay 100 - NEXT II - END IF -END IF - -LOOP UNTIL VL& <= 0 AND NOT Perfect - - -PUT (DX, DY), DBTemp, PSET - -'======================= - -LevelDoneBox -Shooting = False -Lshot = False -Rshot = False -T1& = TIMER -DO - T2& = TIMER - KK$ = INKEY$ - IF KK$ = CHR$(13) THEN EXIT DO - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - IF RGBCounter(RGBC * 3) THEN - RotateRGB - END IF - -LOOP UNTIL T2& - T1& > 7& - -Finished = True -OutStart = True - -RETURN - - - -END FUNCTION - -SUB DialogBox (X, Y, MaxLen, MinColor, Title$, Text$, Italic, Sysmod) - -'========Draws an auto wrap text DialogBox -'=========Sample code===================== -'Note: to Indent first row, Pls use "~~~~" instead of Space - 'DX = 22 - 'DY = 70 - 'MaxLen = 27 - 'Title$ = "SAVOT" - 'Tmin = PadColorMin - 'SysMod=True - 'Text$ = "~~~~This would be your last stop! Ull die here 4 sure. I Savot will shave all of your hair! Mwa ha ha ha..." - 'DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False,Sysmod -'=========End Sample======================= - -DIM Row$(24) 'Maximum number of Rows -REDIM Dtemp(1) 'Array for background - -P = 1 -CurrentRow = 1 -Leng = LEN(Text$) - -WHILE P < Leng + 1 - WHILE Char$ <> " " AND P < Leng + 1 - Char$ = MID$(Text$, P, 1) - IF Char$ <> " " THEN - Word$ = Word$ + Char$ - END IF - P = P + 1 - WEND - - IF LEN(Row$(CurrentRow)) + LEN(Word$) + 1 < MaxLen THEN - Row$(CurrentRow) = Row$(CurrentRow) + " " + Word$ - ELSE - CurrentRow = CurrentRow + 1 - Row$(CurrentRow) = Row$(CurrentRow) + " " + Word$ - END IF - Word$ = "" - Char$ = "" - -WEND - - -X1 = X + 5 -Y1 = Y + 5 - -IF Title$ <> "" THEN - CurrentRow = CurrentRow + 1 - PosStart = 2 - Y1 = Y1 + 9 -ELSE - PosStart = 1 -END IF - - -'DrawTrnsBox - -TX1 = X -TY1 = Y -IF Italic THEN - TX2 = (MaxLen * 8) + TX1 + 8 -ELSE - TX2 = (MaxLen * 8) + TX1 -END IF - -TY2 = (CurrentRow * 9) + TY1 + 9 - -GetBG TX1, TY1, TX2, TY2, Dtemp() - -TransLuc 170, TX1, TY1, TX2, TY2 '170 best - - -'Print it -'Title -IF PosStart > 1 THEN - Font$ = Title$ - KgenFont X1 - 2, Y + 5, Font$, PadColorMin, Italic - KgenFont X1 - 1, Y + 4, Font$, KgenGreenMin, Italic -END IF - - - -FOR I = 1 TO CurrentRow - IF I = 1 THEN - Font$ = LTRIM$(Row$(I)) - IF LEFT$(Font$, 4) = "~~~~" THEN - Font$ = SPACE$(4) + RIGHT$(Font$, LEN(Font$) - 4) - END IF - ELSE - Font$ = LTRIM$(Row$(I)) - END IF - KgenFont X1, Y1, Font$, MinColor, Italic - Y1 = Y1 + (9) -NEXT I - -DO - IF RGBCounter(RGBC * 5) THEN RotateRGB - WAIT &H3DA, 8 - K$ = INKEY$ -LOOP UNTIL K$ = CHR$(13) OR K$ = CHR$(27) OR NOT Sysmod - -SfxOpenDialog - -IF Sysmod THEN - PUT (TX1, TY1), Dtemp, PSET -ELSE - -END IF - -RefreshKey - -ERASE Row$, Dtemp - -END SUB - -SUB DoBallExp STATIC - - -Lives = Lives - 1 - -GetPaddleBG PadX, PadY - -PutPaddle PadX, PadY - -REDIM ExpTemp(1) - -FOR J = 1 TO 2 - -GetBG BallX - 5, BallY - 5, (BallX - 5) + 19, (BallY - 5) + 19, ExpTemp() -SD = 110 -FOR I = 1 TO UBOUND(BallExpIndex) - SD = SD * (2 + (INT(RND * 3))) - PUT (BallX - 5, BallY - 5), BallExpmsk(BallExpIndex(I)), AND - PUT (BallX - 5, BallY - 5), BallExp(BallExpIndex(I)), OR - - WAIT &H3DA, 8 - MilliDelay 50 - - SOUND SD, .5 - -NEXT I - -PUT (BallX - 5, BallY - 5), ExpTemp, PSET - -NEXT J - - -IF PadPower THEN - PutPadLsrBG PadLsrBG1(), PadLsrBG2() - PadPower = False -END IF -IF Replicant THEN - Replicant = False -END IF - - -PutPaddleBG PadOldX, PadOldY - -IF PadPower THEN - PutPadLsrBG PadLsrBG1(), PadLsrBG2() -END IF - -IF Power THEN - PutPowerCapsBG -END IF - - -END SUB - -SUB DoBlkHole STATIC - -FOR I = 1 TO 4 - IF BlkHoleXY(I).X <> 0 THEN - PutBlkHole BlkHoleXY(I).X, BlkHoleXY(I).Y - END IF -NEXT I - -END SUB - -SUB DoBomb STATIC - - -FOR I = 1 TO UBOUND(BombXY) - IF BombXY(I).X <> 0 THEN - GET (BombXY(I).X, BombXY(I).Y)-STEP(15, 15), BombBG(130 * (I - 1)) - END IF -NEXT I - -SW = NOT SW -IF SW THEN - Switch = 1 -ELSE - Switch = 2 -END IF - -FOR I = 1 TO UBOUND(BombXY) - IF BombXY(I).X <> 0 THEN - PutBomb BombXY(I).X, BombXY(I).Y, Switch - END IF -NEXT I - -END SUB - -SUB DoCredits - - -Fade 0, 0, 0 -LINE (0, 0)-(319, 199), 0, BF - -VS = 4 -VE = 23 -VIEW PRINT VS TO VE -RESTORE Credits - -X = 320 -Y = 0 -Xscale = 1 -Yscale = 1 -Font$ = "-Shameless Self-Promotion-" -Italic = False -KgenTTFont 159 - (4 * Xscale * LEN(Font$)), Y - 1, Font$, PadColorMin, Xscale, Yscale, Italic -KgenTTFont X, Y, Font$, KgenGreenMin, Xscale, Yscale, Italic - - -Text$ = "Pls. visit these sites.... 1.[WWW.QB45.com] 2.[GBGames.com] " -Text$ = Text$ + "3.[WWW.Hulla-Balloo.Com/Members/Vplanet/Index.Shtml] 4.[NeoZones.teksCode.com] " -Text$ = Text$ + "4.[WWW.ChainMailSales.com/Virtuasoft/] 5.[WWW.BasicGuru.com/abc] " -Text$ = Text$ + "6.[Members.Aol.Com/RadioHands/Index.Html 7.[www.geocities.com/TimesSquare/Ring/1683/Index.Html/ " -Xscale = 2 -Yscale = 1 -TopY = 199 - ((Yscale) * 9) -MinColor = KgenBlueMin -Shadow = True -OverTop = True -OtY = 10 -Italic = True -FirstTime = True - -RestoreColors - -DO - -K$ = INKEY$ -ScrollKgenTT TopY, Text$, Xscale, Yscale, MinColor, Shadow, OverTop, OtY, Italic, FirstTime - -IF RGBCounter(RGBC * 5) THEN RotateRGB - -KC = KC MOD 188 + 1 -IF KC = 1 THEN - READ T$ - IF UCASE$(T$) = "END" THEN - EXIT DO - END IF - - LOCATE VE, 1 - PRINT - FC = FC MOD 3 + 1 - IF FC = 1 THEN - KgenFont 0, 176, T$, KgenGreenMin, False - ELSE - KgenFont 0, 176, T$, PadColorMin, True - END IF -END IF - -LOOP UNTIL K$ = CHR$(13) - - -OutStart = True -Finished = True -Level = Level - 1 - - - -END SUB - -SUB DoEnding STATIC - -REDIM Font(1) -LINE (0, 0)-(319, 199), 0, BF -RestoreColors - -Txt$ = "Congratulations!!! You have beaten the game! " -Txt$ = Txt$ + "My hats off to you. Relsoft 2000. " -Xscale = 1 -Yscale = 3 -TopY = 199 - ((Yscale) * 9) -MinColor = KgenBlueMin -Shadow = True -OverTop = False -OtY = 0 -Italic = True -FirstTime = True - -X = 0 -RESTORE Ending -EndRead = False - -DO - IF NOT EndRead THEN - READ Y - READ Text$ - READ Clr - ELSE - ScrollKgenTT TopY, Txt$, Xscale, Yscale, MinColor, Shadow, OverTop, OtY, Italic, FirstTime - IF RGBCounter(RGBC * 5) THEN RotateRGB - END IF - IF UCASE$(Text$) = "END" THEN - EndRead = True - ELSE - GOSUB MoveIt - END IF -LOOP UNTIL INKEY$ <> "" - -HazyFx -Fade 0, 0, 0 -LINE (0, 0)-(319, 199), 0, BF - -EXIT SUB - -MoveIt: - -FOR I = 1 TO LEN(Text$) - - Font$ = MID$(Text$, (LEN(Text$) + 1) - I, 1) - - IF Font$ <> " " THEN - KgenFont X, Y, Font$, Clr, False - Center = (160 + (LEN(Text$) * 9) \ 2) - (9 * I) - GetBG 0, Y, 9, Y + 9, Font() - FOR J = 0 TO Center - PUT (J, Y), Font, PSET - Scount = Scount MOD 16 + 1 - IF Scount = 1 THEN - ScrollKgenTT TopY, Txt$, Xscale, Yscale, MinColor, Shadow, OverTop, OtY, Italic, FirstTime - IF RGBCounter(RGBC * 5) THEN RotateRGB - END IF - K$ = INKEY$ - IF K$ = CHR$(13) THEN - HazyFx - Fade 0, 0, 0 - LINE (0, 0)-(319, 199), 0, BF - EXIT SUB - END IF - NEXT J - END IF - -NEXT I - - -RETURN - - - - -END SUB - -SUB DoExplode STATIC - - -Xmax = (Boss(0) \ 8 - 1) - 25 -Ymax = (Boss(1) - 1) - 25 -I = I MOD UBOUND(ExplodeIndex) + 1 - -X = BossX + INT(RND * Xmax) -Y = BossY + INT(RND * Ymax) -X1 = BossX + INT(RND * Xmax) -Y1 = BossY + INT(RND * Ymax) -X2 = BossX + INT(RND * Xmax) -Y2 = BossY + INT(RND * Ymax) -X3 = BossX + INT(RND * Xmax) -Y3 = BossY + INT(RND * Ymax) - - - PUT (X, Y), Explodemsk(ExplodeIndex(I)), AND - PUT (X, Y), Explode(ExplodeIndex(I)), OR - PUT (X1, Y1), Explodemsk(ExplodeIndex(I)), AND - PUT (X1, Y1), Explode(ExplodeIndex(I)), OR - PUT (X2, Y2), Explodemsk(ExplodeIndex(I)), AND - PUT (X2, Y2), Explode(ExplodeIndex(I)), OR - PUT (X3, Y3), Explodemsk(ExplodeIndex(I)), AND - PUT (X3, Y3), Explode(ExplodeIndex(I)), OR - -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -MilliDelay 100 - -PUT (BossX, BossY), BossBG, PSET -PUT (BossX, BossY), BossMask, AND -PUT (BossX, BossY), Boss, OR - -RotateRGB - - - -END SUB - -SUB DoGameOver STATIC - -LINE (0, 0)-(320, 199), 0, BF -HideBuild - - -X = 320 -Y = 80 -Xscale = 3 -Yscale = 4 -Font$ = "Game Over!" -Italic = False -KgenTTFont 159 - (4 * Xscale * LEN(Font$)), Y - 1, Font$, KgenMin, Xscale, Yscale, Italic -KgenTTFont X, Y, Font$, KgenGreenMin, Xscale, Yscale, Italic - -X = 320 -Y = 60 -Font$ = "Press [ESC] while playing 4 the MENU." -Italic = False -KgenFont X, Y, Font$, KgenMin, Italic - -X = 320 -Y = 130 -Font$ = "vic_viperph@yahoo.com" -Italic = False -KgenFont X, Y, Font$, KgenMin, Italic - -X = 320 -Y = 120 -Font$ = "Info on Level Designer is in Readme.Txt" -Italic = False -KgenFont X, Y, Font$, KgenMin, Italic - - - -Text$ = " You lost!!! Pls. try again.... Go for the Record!!! You may become the first Hall Of Famer!!! " -Xscale = 3 -Yscale = 5 -TopY = 199 - ((Yscale) * 9) -MinColor = KgenBlueMin -Shadow = True -OverTop = True -OtY = 0 -Italic = True -FirstTime = True - -RestoreColors - -DO -K$ = INKEY$ -ScrollKgenTT TopY, Text$, Xscale, Yscale, MinColor, Shadow, OverTop, OtY, Italic, FirstTime -IF RGBCounter(RGBC * 5) THEN RotateRGB -LOOP UNTIL K$ = CHR$(13) OR K$ = CHR$(27) - - - -END SUB - -SUB DoHallOfFame STATIC - -DX = 32 -DY = 50 -MaxLen = 25 -Title$ = "Power Players: Score:" -Tmin = PadColorMin -Sysmod = True - -Rnk$ = LTRIM$(STR$(Hall(1).Rank)) -Nm$ = "." + LTRIM$(RTRIM$(Hall(1).Namer)) - IF LEN(Nm$) < 12 THEN - Nm$ = Nm$ + SPACE$(13 - LEN(Nm$)) - END IF -Nm$ = Nm$ + ":" -Scr$ = LTRIM$(STR$(Hall(1).Score)) -Text$ = Rnk$ + Nm$ + STRING$(8 - (LEN(Scr$)), "-") + Scr$ - -FOR I = 2 TO 5 - Rnk$ = " " + LTRIM$(STR$(Hall(I).Rank)) - Nm$ = "." + LTRIM$(RTRIM$(Hall(I).Namer)) - IF LEN(Nm$) < 12 THEN - Nm$ = Nm$ + SPACE$(13 - LEN(Nm$)) - END IF - Nm$ = Nm$ + ":" - Scr$ = LTRIM$(STR$(Hall(I).Score)) - Text$ = Text$ + Rnk$ + Nm$ + STRING$(8 - (LEN(Scr$)), "-") + Scr$ -NEXT I - - -DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False, Sysmod - -END SUB - -SUB DoIntro STATIC - -LoadTitle - - -DoStory - -END SUB - -SUB DoLangaw (Stat) STATIC - -'"Langaw" means Fly as in the insect in our country. - -PUT (LangawOldCoord(0).X, LangawOldCoord(0).Y), LangawBG1, PSET -PUT (LangawOldCoord(1).X, LangawOldCoord(1).Y), LangawBG2, PSET - -IF NOT Stat THEN -J = J MOD 10 + 1 - -FOR I = 0 TO 1 - IF J = 1 THEN - LXR! = RND * 5 - LYR! = RND * 5 - END IF - - IF LXR! < 2.5 THEN - LX = -2 - ELSE - LX = 2 - END IF - - IF LYR! < 2.5 THEN - LY = -2 - ELSE - LY = 2 - END IF -IF I = 1 THEN - LX = -LX - LY = -LY -END IF - LangawCoord(I).X = LangawCoord(I).X + LX - IF LangawCoord(I).X > 230 THEN - LangawCoord(I).X = 230 - ELSEIF LangawCoord(I).X < 10 THEN - LangawCoord(I).X = 10 - END IF - - LangawCoord(I).Y = LangawCoord(I).Y + LY - IF LangawCoord(I).Y > 140 THEN - LangawCoord(I).Y = 140 - ELSEIF LangawCoord(I).Y < 50 THEN - LangawCoord(I).Y = 50 - END IF - - LangawOldCoord(I).X = LangawCoord(I).X - LangawOldCoord(I).Y = LangawCoord(I).Y -NEXT I - -END IF - -GetBG LangawOldCoord(0).X, LangawOldCoord(0).Y, LangawOldCoord(0).X + 16, LangawOldCoord(0).Y + 16, LangawBG1() -GetBG LangawOldCoord(1).X, LangawOldCoord(1).Y, LangawOldCoord(1).X + 16, LangawOldCoord(1).Y + 16, LangawBG2() - -Axn = Axn MOD 2 + 1 -PutLangaw LangawCoord(0).X, LangawCoord(0).Y, Axn -PutLangaw LangawCoord(1).X, LangawCoord(1).Y, Axn - -END SUB - -SUB DoLogos STATIC - -SaveColors -HideBuild - -X = 320 -Y = 20 -Xscale = 4 -Yscale = 2 -Font$ = "RelSoft" -Italic = False -KgenTTFont X, Y, Font$, 24, Xscale, Yscale, Italic - - -X = 320 -Y = 77 -Xscale = 2 -Yscale = 1 -Font$ = "and" -Italic = False -KgenTTFont X, Y, Font$, 80, Xscale, Yscale, Italic - - -X = 52 -Y = 120 -Xscale = 3 -Yscale = 4 -Font$ = "AnyaTech" -Italic = True -KgenTTFont 50, 118, Font$, 24, Xscale, Yscale, Italic -KgenTTFont X, Y, Font$, 59, Xscale, Yscale, Italic - - -RestoreColors -T& = TIMER -DO - T2& = TIMER -LOOP UNTIL T2& - T& > 2 -Fade 0, 0, 0 - -LINE (0, 0)-(320, 199), 0, BF - - -X = 320 -Y = 50 -Xscale = 1 -Yscale = 2 -Font$ = "Proudly" -Italic = False -KgenTTFont X, Y, Font$, 24, Xscale, Yscale, Italic - -X = 320 -Y = 100 -Xscale = 3 -Yscale = 1 -Font$ = "Presents" -Italic = False -KgenTTFont X, Y, Font$, 24, Xscale, Yscale, Italic - - -RestoreColors -T& = TIMER -DO - T2& = TIMER -LOOP UNTIL T2& - T& > 1 - -Fade 0, 0, 0 - -LINE (0, 0)-(320, 199), 0, BF - -RestoreColors - - -END SUB - -SUB DoPadLsr STATIC - -LsrSpeed = 2 - - -IF AutoFire THEN - Lshot = True - Rshot = True -END IF - -IF Lshot THEN - PadLsrCoord(0).Y = PadLsrCoord(0).Y - LsrSpeed -ELSE - GetPadLsrCoord 1 -END IF -IF Rshot THEN - PadLsrCoord(1).Y = PadLsrCoord(1).Y - LsrSpeed -ELSE - GetPadLsrCoord 2 -END IF - - -GetPadLsrBG PadLsrBG1(), PadLsrBG2() - -PutPadLsr PadLsrCoord(0).X, PadLsrCoord(0).Y -PutPadLsr PadLsrCoord(1).X, PadLsrCoord(1).Y - -I = 1 -X = PadLsrCoord(0).X + 2 -Y = PadLsrCoord(0).Y - 3 -GOSUB CheckForHit -I = 2 -X = PadLsrCoord(1).X + 2 -Y = PadLsrCoord(1).Y - 3 -GOSUB CheckForHit - - -EXIT SUB -''========= -CheckForHit: - -IF POINT(X, Y) < 129 THEN - SELECT CASE I - CASE 1 - Lshot = False - GetPadLsrCoord 1 - CASE 2 - Rshot = False - GetPadLsrCoord 2 - CASE ELSE - END SELECT - -GetBallBG BallX, BallY -GetPaddleBG PadX, PadY - - -PutBall BallX, BallY -PutPaddle PadX, PadY - - CheckTile X, Y - -PutPaddleBG PadOldX, PadOldY -PutBallBG BallOldX, BallOldY - - IF NOT Lshot AND NOT Rshot THEN - Shooting = False - END IF - -END IF - - -RETURN - - -END SUB - -SUB DoPowerCaps (PowType) STATIC - -PowSpeed = 1 - - -PowerCapsCoord(0).Y = PowerCapsCoord(0).Y + PowSpeed - -GetPowerCapsBG - -PutPowerCaps PowerCapsCoord(0).X, PowerCapsCoord(0).Y, PowType - - - - - - -X = PowerCapsCoord(0).X + 9 -Y = PowerCapsCoord(0).Y + 13 -GOSUB Check4Hit - -X = PowerCapsCoord(0).X -Y = PowerCapsCoord(0).Y + 13 -GOSUB Check4Hit - -X = PowerCapsCoord(0).X + 9 -Y = PowerCapsCoord(0).Y + 13 -GOSUB Check4Hit - - - - - - -EXIT SUB -''========= -Check4Hit: - - - -IF POINT(X, Y) < 129 THEN - - 'Spike - IF POINT(X, Y) >= SpikeMin AND POINT(X, Y) <= SpikeMax THEN - - PutPowerCapsBG - Power = False - - END IF - - 'Border - IF POINT(X, Y) >= BorderMin AND POINT(X, Y) <= Bordermax THEN - - PutPowerCapsBG - Power = False - - END IF - - -END IF - - -'Check for Paddle - -IF Replicant THEN - PadXXStep = 72 -ELSE - PadXXStep = 38 -END IF - -IF Inside(X, Y, PadX - 5, PadY, PadX + PadXXStep, PadY + 8) THEN - - IF Power THEN - PutPowerCapsBG - Power = False - - SELECT CASE PowerType - CASE 1 'PadPower - IF NOT PadPower THEN - PadPower = True - GetPadLsrCoord 0 - GetPadLsrBG PadLsrBG1(), PadLsrBG2() - SfxPowerUp - END IF - CASE 2 'Replicant - Replicant = True - SfxPowerUp - CASE 3 '1Up - Lives = Lives + 1 - IF Lives > 100 THEN Lives = 100 - PrintLives False - SfxPowerUp - CASE ELSE - END SELECT - END IF - -END IF - - -RETURN - - -END SUB - -SUB DoStory STATIC - - -VS = 4 -VE = 23 -VIEW PRINT VS TO VE -RESTORE Story - -X = 320 -Y = 0 -Xscale = 1 -Yscale = 2 -Font$ = "-ARQANOID... the untold story-" -Italic = False -KgenTTFont 159 - (4 * Xscale * LEN(Font$)), Y - 1, Font$, PadColorMin, Xscale, Yscale, Italic -KgenTTFont X, Y, Font$, KgenGreenMin, Xscale, Yscale, Italic - - -Text$ = " This story has been passed from generation to generation... Damn! I really suck at storytelling. (Actually, I made the game before the story... hehehehehe. Note: I intentionally mispelled some words. ie game titles. FYI, BALOT is a" -Text$ = Text$ + " native delicacy in our country made from duck eggs." -Xscale = 2 -Yscale = 1 -TopY = 199 - ((Yscale) * 9) -MinColor = KgenBlueMin -Shadow = True -OverTop = False -OtY = 10 -Italic = False -FirstTime = True - -RestoreColors - -DO - -K$ = INKEY$ -ScrollKgenTT TopY, Text$, Xscale, Yscale, MinColor, Shadow, OverTop, OtY, Italic, FirstTime - -IF RGBCounter(RGBC * 5) THEN RotateRGB - -KC = KC MOD 288 + 1 -IF KC = 1 THEN - READ T$ - IF UCASE$(T$) = "END" THEN - EXIT DO - END IF - - LOCATE VE, 1 - PRINT - KgenFont 0, 176, T$, PadColorMin, False -END IF - -LOOP UNTIL K$ = CHR$(13) - -HazyFx -Fade 0, 0, 0 -LINE (0, 0)-(319, 199), 0, BF - -END SUB - -FUNCTION DoTimer (MaxTime) STATIC - -IF BombNum = MaxBomb THEN - SecondTime = False - MaxBomb = MaxBomb + 1 -END IF - -IF NOT SecondTime THEN - TT = 0 - T = 0 -END IF - -SecondTime = True - -T& = TIMER -DoTimer = False -IF T& > OldTime& THEN - GOSUB PrintTime -END IF - -EXIT FUNCTION - -'========================== -PrintTime: - T = T MOD MaxTime + 1 - TT = MaxTime - T - -X = 289 -Y = 125 -Font$ = STR$(TT) -Italic = False -LINE (X + 8, Y)-STEP(24, 9), 0, BF -KgenFont X - 1, Y + 1, Font$, KgenMin, Italic - -IF TT = 0 THEN - DoTimer = True - SfxOpenDialog - SecondTime = False -END IF - -OldTime& = TIMER - -RETURN - - - -END FUNCTION - -SUB DrawBorder STATIC - -FOR I = 0 TO 6 - LINE (I, I)-(260 - I, 200 - I), BorderMin + I, B -NEXT I - - -END SUB - -SUB DrawBoss (BossX, BossY, BossFile$) STATIC - -BossFileSpr$ = Path$ + "Images\" + BossFile$ + ".QBN" -BossFileMsk$ = Path$ + "Images\" + BossFile$ + ".Msk" - -OPEN BossFileSpr$ FOR INPUT AS #1 - -INPUT #1, ArrSize - -REDIM Boss(ArrSize) -REDIM BossMask(ArrSize) - - -FOR I = 0 TO ArrSize - - INPUT #1, Boss(I) - - -NEXT I - - -CLOSE - -OPEN BossFileMsk$ FOR INPUT AS #1 -INPUT #1, ArrSize - -FOR I = 0 TO ArrSize - - INPUT #1, BossMask(I) - - -NEXT I - -CLOSE - -REDIM BossBG(ArrSize) - -GET (BossX, BossY)-STEP(Boss(0) \ 8 - 1, Boss(1) - 1), BossBG - -PUT (BossX, BossY), BossMask, AND -PUT (BossX, BossY), Boss, OR - - -END SUB - -SUB DrawFonts STATIC - -X = 268 -Y = 2 -Txt$ = "i Score:" -PrintFonts X, Y, Txt$ -X = 265 -Y = 0 -Font$ = "H" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenBlueMin, Italic -KgenFont X, Y, Font$, KgenMin, Italic - - -IF Score& < 100000 THEN - X = 280 - Y = 12 - PrintNum X, Y, "100,000" -ELSE - PrintScore -END IF - - - - -X = 268 -Y = 27 -Txt$ = "core:" -PrintFonts X, Y, Txt$ -X = 265 -Y = 25 -Font$ = "S" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenBlueMin, Italic -KgenFont X, Y, Font$, KgenMin, Italic - - -'SCORE -Temp$ = LTRIM$(Format$(Score&)) -PrintNum 315 - (LEN(Temp$) * 5), 35, Temp$ - - -X = 268 -Y = 52 -Txt$ = "evel:" -PrintFonts X, Y, Txt$ -X = 265 -Y = 50 -Font$ = "L" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenBlueMin, Italic -KgenFont X, Y, Font$, KgenMin, Italic - - -X = 268 -Y = 67 -Txt$ = "ives:" -PrintFonts X, Y, Txt$ - -X = 265 -Y = 65 -Font$ = "L" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenBlueMin, Italic -KgenFont X, Y, Font$, KgenMin, Italic - - -X = 268 -Y = 127 -Txt$ = "ime:" -PrintFonts X, Y, Txt$ - -X = 265 -Y = 125 -Font$ = "T" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenBlueMin, Italic -KgenFont X, Y, Font$, KgenMin, Italic - -X = 289 -Y = 125 -Font$ = STR$(60) -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenMin, Italic - - - -X = 268 -Y = 155 -Txt$ = "mail:" -PrintFonts X, Y, Txt$ - -X = 265 -Y = 153 -Font$ = "E" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenBlueMin, Italic -KgenFont X, Y, Font$, KgenMin, Italic - -X = 261 -Y = 167 -Txt$ = "vic viperph" -PrintFonts X, Y, Txt$ - -LINE (281, 171)-STEP(3, 0), FcolorMax, BF - -X = 261 -Y = 174 -Txt$ = "@Yahoo.Com" -PrintFonts X, Y, Txt$ - - - -X = 261 -Y = 183 -Font$ = "RelSoft" -Italic = True -KgenFont X - 1, Y - 1, Font$, KgenGreenMin, Italic -KgenFont X, Y, Font$, KgenBlueMin, Italic - -X = 271 -Y = 193 -Font$ = "2001" -Italic = True -KgenFont X - 1, Y - 1, Font$, KgenGreenMin, Italic -KgenFont X, Y, Font$, KgenBlueMin, Italic - - - - - -END SUB - -SUB DrawLevelBG (BGMode, ColorStep, ColorAttr) STATIC - -LINE (0, 0)-(319, 199), 255, BF 'Bug Fix - -Clr = 145 - -FOR Y = 0 TO 199 STEP 5 - FOR X = 0 TO 320 STEP 5 - - IF CC = 0 THEN - Clr = Clr + ColorStep - ELSE - Clr = Clr - ColorStep - END IF - IF BGMode = 1 THEN - LINE (X, Y)-(X + 4, Y + 4), Clr, BF - LINE (X + 1, Y + 1)-(X + 3, Y + 3), Clr + 5, BF - LINE (X + 1, Y + 1)-(X + 1, Y + 1), Clr + 11, BF - ELSE - LINE (X, Y)-(X + 4, Y + 4), Clr, B - LINE (X + 1, Y + 1)-(X + 3, Y + 3), Clr + 5, B - LINE (X + 1, Y + 1)-(X + 1, Y + 1), Clr + 11, B - END IF - IF Clr >= 180 THEN CC = 1 - IF Clr <= 150 THEN CC = 0 - NEXT X -NEXT Y - -'Erase RightSide for Info,Scores,Etc. - -LINE (MaxX, MinY)-(320, 200), 255, BF -LINE (0, 200)-(320, 200), 255, BF - - - -GetBG 7, 183, 253, 193, SpikeBG() - -'Draw Spikes - -FOR X = 5 TO 250 STEP 10 - DrawSpike X, 205 -NEXT X - -DrawBorder -DrawFonts - - -END SUB - -SUB DrawSpike (X, Y) STATIC - -FOR I = 1 TO 5 - LINE (X + I, Y)-STEP(0, -(I * 4.5)), SpikeMax - I - LINE ((X + 10) - I, Y)-STEP(0, -(I * 4.5)), SpikeMax - I -NEXT I - - -END SUB - -SUB DrawTile (X, Y, Clr) - - SELECT CASE Clr - CASE 1 - TB = 60 - TC = 61 - TM = 62 - CASE 2 - TB = 63 - TC = 64 - TM = 65 - CASE 3 - TB = 66 - TC = 67 - TM = 68 - CASE 4 - TB = 69 - TC = 70 - TM = 71 - CASE 5 - TB = 72 - TC = 73 - TM = 74 - CASE 6 - TB = 75 - TC = 76 - TM = 77 - CASE 7 - TB = 78 - TC = 79 - TM = 80 - CASE 8 - TB = 81 - TC = 82 - TM = 83 - CASE 9 - TB = 84 - TC = 85 - TM = 86 - CASE ELSE - END SELECT - - - LINE (X, Y)-STEP(TileW, TileH), TC, BF - LINE (X, Y)-STEP(TileW, TileH), TM, B - LINE (X, Y)-STEP(0, TileH), TB - LINE (X, Y + TileH)-STEP(TileW - 1, 0), TB - - - -END SUB - -SUB EraseKgen STATIC - -KgenStart = 49 - -X = 265 -Y = 0 -Font$ = "H" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - -X = 265 -Y = 25 -Font$ = "S" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - -X = 265 -Y = 50 -Font$ = "L" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - - -X = 265 -Y = 65 -Font$ = "L" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - - -X = 265 -Y = 125 -Font$ = "T" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - -X = 289 -Y = 125 -Font$ = STR$(60) -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic - - -X = 265 -Y = 153 -Font$ = "E" -Italic = False -KgenFont X - 1, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - -X = 261 -Y = 183 -Font$ = "RelSoft" -Italic = True -KgenFont X - 1, Y - 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - -X = 271 -Y = 193 -Font$ = "2001" -Italic = True -KgenFont X - 1, Y - 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - -X = 297 -Y = 51 - -IF Level < 10 THEN - LV$ = "0" + LTRIM$(STR$(Level)) -ELSE - LV$ = LTRIM$(STR$(Level)) -END IF - -Font$ = LV$ -Italic = True -KgenFont X - 2, Y + 1, Font$, KgenStart, Italic -KgenFont X, Y, Font$, KgenStart, Italic - - -END SUB - -SUB EraseSaveFiles STATIC - - -GOSUB ConfirmErase - -IF K$ = CHR$(27) THEN - EXIT SUB -END IF - -GOSUB MakeBackUp - -'===================================Hall of Fame -FOR I = 1 TO 5 - Hall(I).Rank = I - Hall(I).Namer = "Relsoft 2000" - Hall(I).Score = 0 -NEXT I - -OPEN Path$ + "saves\" + "qbnoid.hof" FOR OUTPUT AS #1 - -FOR I = 1 TO 5 - PRINT #1, Hall(I).Rank - PRINT #1, Hall(I).Namer - PRINT #1, Hall(I).Score -NEXT I - -CLOSE - - - -'=================================='SaveFiles for Loading - - - - -FOR I = 1 TO 8 - Save(I).Num = I - Save(I).Namer = "Relsoft 2000" - Save(I).Score = 0 - Save(I).Level = 1 - Save(I).Lives = 2 - -NEXT I - -OPEN Path$ + "saves\" + "qbnoid.qsv" FOR OUTPUT AS #1 - - -FOR I = 1 TO 8 - - PRINT #1, Save(I).Num - PRINT #1, Save(I).Namer - PRINT #1, Save(I).Score - PRINT #1, Save(I).Level - PRINT #1, Save(I).Lives -NEXT I - -CLOSE -EXIT SUB - - -'================Subs================== -MakeBackUp: - -'===========Hall of Fame -OPEN Path$ + "saves\" + "qbnbck.hof" FOR OUTPUT AS #1 - -FOR I = 1 TO 5 - PRINT #1, Hall(I).Rank - PRINT #1, Hall(I).Namer - PRINT #1, Hall(I).Score -NEXT I - -CLOSE - - - -'=================================='SaveFiles for Loading - -OPEN Path$ + "saves\" + "qbnbck.qsv" FOR OUTPUT AS #1 - - -FOR I = 1 TO 8 - - PRINT #1, Save(I).Num - PRINT #1, Save(I).Namer - PRINT #1, Save(I).Score - PRINT #1, Save(I).Level - PRINT #1, Save(I).Lives -NEXT I - -CLOSE - -RETURN - -'============================== - -ConfirmErase: - -REDIM Temp(1) -DX = 40 -DY = 40 -MaxLen = 21 -Title$ = " WARNING!!!" -Tmin = PadColorMin -Sysmod = False -Text$ = "~~~~This will erase your Hi-Scores and Load/Save file datas!!! Press [Escape] to undo or [Enter] to confirm." -GetBG DX, DY, DX + MaxLen * 8, DY + 9 * 8, Temp() -DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False, Sysmod -DO -K$ = INKEY$ - IF RGBCounter(RGBC * 5) THEN RotateRGB - WAIT &H3DA, 8 -LOOP UNTIL K$ = CHR$(27) OR K$ = CHR$(13) - -SfxOpenDialog -PUT (DX, DY), Temp, PSET -ERASE Temp - -RETURN - - -END SUB - -SUB Fade (R%, g%, B%) - - - -FOR I = 0 TO 63 - - -FOR X = 0 TO 255 - -RefreshKey - - ReadRGB X, RD, GN, BLL - - - IF R% > RD THEN - RD = RD + 1 - ELSEIF R% < RD THEN - RD = RD - 1 - ELSE - 'Do nothing - END IF - - IF g% > GN THEN - GN = GN + 1 - ELSEIF g% < GN THEN - GN = GN - 1 - ELSE - 'Do nothing - END IF - - IF B% > BLL THEN - BLL = BLL + 1 - ELSEIF B% < BLL THEN - BLL = BLL - 1 - ELSE - 'Do nothing - END IF - - WriteRGB X, RD, GN, BLL - -NEXT X - -MilliDelay 30 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 - -NEXT I - -END SUB - -SUB FadeStep (R%, g%, B%) STATIC - - - -I = I + 1 - -IF I > 63 THEN - I = 0 - EXIT SUB -END IF - -FOR X = 0 TO 255 - -RefreshKey - - ReadRGB X, RD, GN, BLL - - IF R% > RD THEN - RD = RD + 1 - ELSEIF R% < RD THEN - RD = RD - 1 - ELSE - 'Do nothing - END IF - - IF g% > GN THEN - GN = GN + 1 - ELSEIF g% < GN THEN - GN = GN - 1 - ELSE - 'Do nothing - END IF - - IF B% > BLL THEN - BLL = BLL + 1 - ELSEIF B% < BLL THEN - BLL = BLL - 1 - ELSE - 'Do nothing - END IF - - WriteRGB X, RD, GN, BLL - -NEXT X - -END SUB - -FUNCTION FastKB STATIC - FastKB = INP(&H60) - DO WHILE LEN(INKEY$): LOOP - -END FUNCTION - -FUNCTION Format$ (Score&) STATIC - -Score$ = RTRIM$(LTRIM$(STR$(Score&))) - -L = LEN(Score$) -Temp$ = "" -II = 0 - -FOR I = L TO 1 STEP -1 - I$ = MID$(Score$, I, 1) - - IF II = 3 THEN - Temp$ = Temp$ + "," + I$ - ELSE - Temp$ = Temp$ + I$ - END IF - II = (II MOD 3) + 1 - -NEXT I - -'Reverse it - -L = LEN(Temp$) -Temp2$ = "" - -FOR I = L TO 1 STEP -1 - I$ = MID$(Temp$, I, 1) - Temp2$ = Temp2$ + I$ -NEXT I - -Format$ = LTRIM$(RTRIM$(Temp2$)) - -END FUNCTION - -SUB GetBallBG (BallX, BallY) STATIC -BallOldX = BallX -BallOldY = BallY - GET (BallX, BallY)-STEP(6, 6), BallBG -END SUB - -SUB GetBallCenter (BallCenterX, BallCenterY) STATIC - BallCenterX = BallX + BallRadius - 1 - BallCenterY = BallY + BallRadius - 1 -END SUB - -SUB GetBG (X1, Y1, X2, Y2, Image()) - -'Image() Must be Dynamic - -Size = (((((((X2 + 1) - X1) * ((Y2 + 1) - Y1))))) \ 2) + 2 - -REDIM Image(Size) - -GET (X1, Y1)-(X2, Y2), Image - - -END SUB - -SUB GetBlkHoleBG STATIC - -FOR I = 1 TO 4 - IF BlkHoleXY(I).X <> 0 THEN - GET (BlkHoleXY(I).X, BlkHoleXY(I).Y)-STEP(15, 15), BlkHoleBG(130 * (I - 1)) - END IF -NEXT I - -END SUB - -SUB GetDirection STATIC - -SELECT CASE SGN(BallXV) - CASE 1 - IF SGN(BallYV) = -1 THEN - Direction = UR - ELSE - Direction = DR - END IF - CASE -1 - IF SGN(BallYV) = -1 THEN - Direction = UL - ELSE - Direction = DL - END IF - - CASE ELSE -END SELECT - -SELECT CASE SGN(BallYV) - CASE 1 - IF SGN(BallXV) = -1 THEN - ELSE - END IF - - CASE -1 - IF SGN(BallXV) = -1 THEN - ELSE - END IF - - CASE ELSE -END SELECT - -END SUB - -SUB GetPaddleBG (PadX, PadY) STATIC -PadOldX = PadX -PadOldY = PadY - -IF NOT Replicant THEN - GET (PadX, PadY)-STEP(39, 8), PaddleBG -ELSE - GET (PadX, PadY)-STEP(39 * 2, 8), PaddleBG -END IF -END SUB - -SUB GetPadLsrBG (Image1(), Image2()) STATIC - - -PadLsrOldCoord(0).X = PadLsrCoord(0).X -PadLsrOldCoord(0).Y = PadLsrCoord(0).Y -PadLsrOldCoord(1).X = PadLsrCoord(1).X -PadLsrOldCoord(1).Y = PadLsrCoord(1).Y - - -GetBG PadLsrCoord(0).X, PadLsrCoord(0).Y, PadLsrCoord(0).X + 4, PadLsrCoord(0).Y + 8, Image1() -GetBG PadLsrCoord(1).X, PadLsrCoord(1).Y, PadLsrCoord(1).X + 4, PadLsrCoord(1).Y + 8, Image2() - -END SUB - -SUB GetPadLsrCoord (I) STATIC - -SELECT CASE I - CASE 0 - PadLsrCoord(0).X = PadX + 1 - PadLsrCoord(0).Y = PadY - 9 - IF Replicant THEN - PadLsrCoord(1).X = PadX + 71 - ELSE - PadLsrCoord(1).X = PadX + 33 - END IF - PadLsrCoord(1).Y = PadY - 9 - CASE 1 - PadLsrCoord(0).X = PadX + 1 - PadLsrCoord(0).Y = PadY - 9 - CASE 2 - IF Replicant THEN - PadLsrCoord(1).X = PadX + 71 - ELSE - PadLsrCoord(1).X = PadX + 33 - END IF - PadLsrCoord(1).Y = PadY - 9 - CASE ELSE - PadLsrCoord(0).X = PadX + 1 - PadLsrCoord(0).Y = PadY - 9 - IF Replicant THEN - PadLsrCoord(1).X = PadX + 71 - ELSE - PadLsrCoord(1).X = PadX + 33 - END IF - PadLsrCoord(1).Y = PadY - 9 -END SELECT - - -END SUB - -SUB GetPowerCapsBG STATIC - -PowerCapsOldCoord(0).X = PowerCapsCoord(0).X -PowerCapsOldCoord(0).Y = PowerCapsCoord(0).Y - - -GetBG PowerCapsCoord(0).X, PowerCapsCoord(0).Y, PowerCapsCoord(0).X + 19, PowerCapsCoord(0).Y + 9, PowerCapsBG() - - -END SUB - -SUB GetTileBackGround STATIC - -I = 0 -FOR Y = 0 TO 108 STEP 6 - FOR X = 0 TO 220 STEP 20 - GET (10 + X, 10 + Y)-STEP(19, 5), BackGround(OffsetBG * I) - I = I + 1 - NEXT X -NEXT Y - -END SUB - -SUB HazyFx STATIC - -StepX = 2 -StepY = 2 - -FOR I = 1 TO 8 - -StepX = StepX + 2 -StepY = StepY + 2 - -FOR Y = 0 TO 199 STEP StepY - FOR X = 0 TO 319 STEP StepX - C = POINT(X, Y) - LINE (X, Y)-STEP(StepX - 1, StepY - 1), C, BF - NEXT X -NEXT Y - -MilliDelay 140 - -NEXT I - -END SUB - -SUB HideBuild - -FOR I = 0 TO 255 - R = 0 - g = 0 - B = 0 - WriteRGB I, R, g, B -NEXT I - -END SUB - -FUNCTION HitSpike (X, Y) STATIC - -HitSpike = False - -IF POINT(X, Y) >= SpikeMin AND POINT(X, Y) <= SpikeMax THEN - HitSpike = True -END IF - -END FUNCTION - -SUB Init STATIC - -LoadSaveFiles - -InitValues - -DoLogos - -InitColors - -InitTrans - - -SaveColors - -HideBuild - -DoIntro - -InitFonts -InitNums - - -'Load Images - -LoadBallImage -LoadBallExpImage -LoadPaddleImage -LoadBlkHoleImage -LoadBombImage -LoadExplodeImage -LoadPointerImage -LoadPadLsrImage -LoadPowerCapsImage -LoadLangawImage -LoadFlyExpImage - - - -END SUB - -SUB InitColors STATIC - - WriteRGB 254, 63, 63, 63 -'Color for Menu Pointer============= -WriteRGB 244, 0, 0, 0 -WriteRGB 245, 0, 0, 0 - - -'Color for Border============================================ -R = 25 -g = 25 -B = 40 - -FOR I = BorderMin TO Bordermax -IF I <= BorderMin + 3 THEN - R = R + 5 - g = g + 3 -ELSE - R = R - 5 - g = g - 3 -END IF - - WriteRGB I, R, g, B -NEXT I - -'FontColors================================ -R = 63 -g = 63 -B = 63 - -FOR I = FColorMin TO FcolorMax - R = R - 7 - B = B - 7 - WriteRGB I, R, g, B -NEXT I - -'SmallNum colors============================ -R = 63 -g = 63 -B = 63 - -FOR I = SnColorMin TO SnColorMax - R = R - 7 - g = g - 7 - WriteRGB I, R, g, B -NEXT I - -'Tile Colors================================= - -'60-93 - -FOR I = TcolorMin TO TcolorMax - II = II MOD 3 + 1 - - IF II = 1 THEN - IC = IC MOD 9 + 1 - END IF - SELECT CASE II - CASE 1 - R = 10: g = 10: B = 10 'Dark Borders - CASE 2 - R = 30: g = 30: B = 30 'Tilecolor - CASE 3 - R = 50: g = 50: B = 50 'Light Borders - CASE ELSE - END SELECT - 'Tile color - SELECT CASE IC - CASE 1 - g = 0 - B = 0 - CASE 2 - R = 0 - B = 0 - CASE 3 - R = 0 - g = 0 - CASE 4 - R = 0 - CASE 5 - g = 0 - CASE 6 - B = 0 - CASE 7 - R = 25 - CASE 8 - g = 25 - CASE 9 - B = 25 - CASE ELSE - END SELECT - - WriteRGB I, R, g, B -NEXT I - -'BackGround Colors============================================== -I = 0 - -FOR I = 130 TO 193 - SELECT CASE ColorAttr - CASE 1 'Red - SavRGB(I).R = I \ 2 - SavRGB(I).g = 0 - SavRGB(I).B = 0 - CASE 2 'Green - SavRGB(I).R = 0 - SavRGB(I).g = I \ 2 - SavRGB(I).B = 0 - - CASE 3 'Blue - SavRGB(I).R = 0 - SavRGB(I).g = 0 - SavRGB(I).B = I \ 2 - - CASE 4 'Yellow - SavRGB(I).R = I \ 2 - SavRGB(I).g = I \ 2 - SavRGB(I).B = 0 - - CASE 5 'Purple - SavRGB(I).R = I \ 2 - SavRGB(I).g = 0 - SavRGB(I).B = I \ 2 - - CASE 6 'Metallic Blue - SavRGB(I).R = 0 - SavRGB(I).g = I \ 2 - SavRGB(I).B = I \ 2 - - CASE 7 'White - SavRGB(I).R = I \ 2 - SavRGB(I).g = I \ 2 - SavRGB(I).B = I \ 2 - - CASE ELSE - SavRGB(I).R = I \ 2 - SavRGB(I).g = I \ 2 - SavRGB(I).B = I \ 2 - END SELECT - -NEXT I -I = 0 -FOR I = 130 TO 193 - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'=========Boss Colors 106-121================ -II = 0 -FOR I = 106 TO 121 - ReadRGB II, R, g, B - WriteRGB I, R, g, B -II = II + 1 -NEXT I - - -'====================Kgen Colors============================== -'Red -R = 63 -g = 63 -B = 63 -FOR I = KgenMin TO KgenMax - IF I <= KgenMin + 3 THEN - g = g - 13 - B = B - 13 - ELSE - g = g + 13 - B = B + 13 - END IF - SavRGB(I).R = R - SavRGB(I).g = g - SavRGB(I).B = B - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'Blue -R = 63 -g = 63 -B = 63 -FOR I = KgenBlueMin TO KgenBlueMax - IF I <= KgenBlueMin + 3 THEN - g = g - 13 - R = R - 13 - ELSE - g = g + 13 - R = R + 13 - END IF - SavRGB(I).R = R - SavRGB(I).g = g - SavRGB(I).B = B - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'Green -R = 63 -g = 63 -B = 63 -FOR I = KgenGreenMin TO KgenGreenMax - IF I <= KgenGreenMin + 3 THEN - B = B - 13 - R = R - 13 - ELSE - B = B + 13 - R = R + 13 - END IF - SavRGB(I).R = R - SavRGB(I).g = g - SavRGB(I).B = B - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'===========Paddle========== - -R = 63 -g = 63 -B = 63 - -FOR I = PadColorMin TO PadColorMax - IF I <= PadColorMin + 5 THEN - R = R - 4 - g = g - 4 - ELSE - R = R + 4 - g = g + 4 - END IF - SavRGB(I).R = R - SavRGB(I).g = g - SavRGB(I).B = B - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'==========pointer -WriteRGB 244, 0, 63, 33 'Inside of pointer -WriteRGB 245, 63, 33, 63 'Border of pointer - - -END SUB - -SUB InitFonts STATIC - -SHARED SmallFonts() AS INTEGER -CLS -OPEN Path$ + "images\" + "small.fnt" FOR INPUT AS #1 - -INPUT #1, Maxfont - - - -'Small numbers 0 to 4 height, 0 to 3 wide - -FOR I = 1 TO Maxfont - FOR Y = 0 TO 4 - JC = JC MOD 5 + 1 - FOR X = 0 TO 3 - INPUT #1, J - IF J <> 0 THEN - PSET (X + XX, Y), JC + (FColorMin - 1) - END IF - NEXT X - NEXT Y - XX = XX + 5 -NEXT I - -CLOSE - -NI = 0 -X = 0 -Y = 0 -FOR I = 1 TO Maxfont - GET (X, Y)-STEP(3, 4), SmallFonts(NI * FontOffset%) - NI = NI + 1 - X = X + 5 -NEXT I - -END SUB - -SUB InitImageData (FileName$, ImageArray()) - - IF FileName$ <> "" THEN - '***** Read image data from file ***** - - 'Establish size of integer array required. - FileNo = FREEFILE - OPEN FileName$ FOR BINARY AS #FileNo - Ints = (LOF(FileNo) - 7) \ 2 - CLOSE #FileNo - REDIM ImageArray(1 TO Ints) - - 'Load image data directly into array memory. - DEF SEG = VARSEG(ImageArray(1)) - BLOAD FileName$, 0 - DEF SEG - ELSE - '***** Read image data from DATA statements ***** - - 'Establish size of integer array required. - READ IntCount - REDIM ImageArray(1 TO IntCount) - - 'READ image DATA into array. - FOR n = 1 TO IntCount - READ X - ImageArray(n) = X - NEXT n - END IF - -END SUB - -SUB InitNums STATIC -SHARED SmallNum() AS INTEGER -CLS - -OPEN Path$ + "images\" + "smallnum.fnt" FOR INPUT AS #1 - -INPUT #1, MaxNum - - -'Small numbers 0 to 4 height, 0 to 3 wide -FOR I = 1 TO MaxNum - FOR Y = 0 TO 4 - JC = JC MOD 5 + 1 - FOR X = 0 TO 3 - INPUT #1, J - IF J <> 0 THEN - PSET (X + XX, Y), JC + (SnColorMin - 1) - END IF - NEXT X - NEXT Y - XX = XX + 5 -NEXT I - -CLOSE - -NI = 0 -X = 0 -Y = 0 -FOR I = 1 TO 11 - GET (X, Y)-STEP(3, 4), SmallNum(NI * FontOffset) - NI = NI + 1 - X = X + 5 -NEXT I - -END SUB - -SUB InitTrans -'init Trans - -FOR I = 0 TO 255 - ReadRGB I, R, g, B - - IF R >= B AND R >= g THEN - Trans(I) = FIX(R / 4) - ELSEIF B >= g AND B >= R THEN - Trans(I) = FIX(B / 4) - ELSEIF g >= R AND g >= B THEN - Trans(I) = FIX(g / 4) - ELSE - Trans(I) = FIX(g / 4) - END IF - 'Trans(I) = (r + g + b) \ 2 '16 NORMAL -NEXT I - - -END SUB - -SUB InitValues STATIC - -BallSpd = 1 'Change for Speed - -BallXV = BallSpd -BallYV = -BallSpd -PadX = 100 -PadY = 170 -PadOldX = PadX -PadOldY = PadY - -Score& = 0 -Lives = 2 - -ColorAttr = 1 + INT(RND * 7) -ColorStep = 1 + INT(RND * 50) -Level = 0 - -END SUB - -FUNCTION Inside (X, Y, X1, Y1, X2, Y2) STATIC - -Inside = False - - -IF X >= X1 AND X <= X2 THEN - IF Y >= Y1 AND Y <= Y2 THEN - Inside = True - END IF -END IF - -IF Y >= Y1 AND Y < Y2 THEN - IF X >= X1 AND X <= X2 THEN - Inside = True - END IF -END IF - - -END FUNCTION - -SUB KgenFont (X, Y, Font$, MinColor, Italic) STATIC - -'=======Prints system fonts on screen specified by X,Y -'=======Uses 8 colors from mincolor to Mincolor+8 -'=======Font$ is the string, italic? Duh!!!!! -'=====Sample Code - 'Note Kgen....Min are constants - 'X = 261 - 'Y = 183 - 'Font$ = "RelSoft" - 'Italic = True - 'KgenFont X - 1, Y - 1, Font$, KgenGreenMin, Italic - 'KgenFont X, Y, Font$, KgenBlueMin, Italic -'End Sample -'====================================================== - -DIM E(7): E(0) = 1: FOR F = 1 TO 7: E(F) = E(F - 1) + E(F - 1): NEXT F - -XXX = X -YYY = Y - -IF X = 320 THEN X = 160 - (4 * LEN(Font$)) - - - - -DEF SEG = &HFFA6 -FOR A = 1 TO LEN(Font$) -KC = 0 -IF Italic THEN - Ita = 8 -ELSE - Ita = 0 -END IF - - X = X + 8 - D = ASC(MID$(Font$, A, 1)) * 8 + 14 - FOR B = 0 TO 7 - FOR C = 0 TO 7 - IF PEEK(B + D) AND E(C) THEN PSET ((X - C) + Ita, Y + B), MinColor + KC - NEXT C - KC = KC MOD 8 + 1 - IF Italic THEN - Ita = Ita - 1 - END IF - NEXT B -NEXT A - -DEF SEG - -X = XXX -Y = YYY - -END SUB - -SUB KgenTTFont (X, Y, Font$, MinColor, Xscale, Yscale, Italic) STATIC - -'=======Prints scalable system fonts on screen specified by X,Y -'=======Uses 8 colors from mincolor to Mincolor+8 -'=======Font$ is the string, italic? Duh!!!!! -'=======Xscale/Yscale are scale to enlarge the font -'=====Sample Code - 'Note Kgen....Min are constants - 'X = 261 - 'Y = 183 - 'Xscale=3 - 'Yscale=2 - 'Font$ = "RelSoft" - 'Italic = True - 'KgenTTFont X - 1, Y - 1, Font$, KgenGreenMin,Xscale,Yscale Italic - 'KgenTTFont X, Y, Font$, KgenBlueMin,,Xscale,Yscale Italic -'End Sample -'====================================================== - -DIM E(7): E(0) = 1: FOR F = 1 TO 7: E(F) = E(F - 1) + E(F - 1): NEXT F - -XXX = X -YYY = Y -XSS = Xscale -YSS = Yscale - -IF X = 320 THEN X = 160 - ((4 * Xscale * LEN(Font$))) - - - -IF Italic THEN - Ita = 8 -ELSE - Ita = 0 -END IF - - -DEF SEG = &HFFA6 -FOR A = 1 TO LEN(Font$) - -KC = 0 -YY = 0 -XX = 0 - - X = X + (8 * Xscale) - D = ASC(MID$(Font$, A, 1)) * 8 + 14 - FOR B = 0 TO 7 - YY = YY + Yscale - XX = 0 - FOR C = 0 TO 7 - IF PEEK(B + D) AND E(C) THEN LINE (X - (C * Xscale) + Ita, Y + YY)-STEP(-(Xscale - 1), Yscale - 1), MinColor + KC, BF - XX = XX + Xscale - NEXT C - KC = KC MOD 8 + 1 - - IF Italic THEN - Ita = Ita - 1 - IF Ita < 1 THEN Ita = 8 - END IF - - NEXT B - -NEXT A - -DEF SEG - -X = XXX -Y = YYY -Xscale = XSS -Yscale = YSS - -END SUB - -SUB LevelDoneBox STATIC - -PutBall BallX, BallY - -SELECT CASE Level - CASE 5, 10, 15, 20, 25, 30, 35, 40, 45, 50 - X1 = 20 - Y1 = 140 - X2 = 240 - Y2 = Y1 + 40 - CASE ELSE - X1 = 20 - Y1 = 115 - X2 = 240 - Y2 = Y1 + 40 -END SELECT - -TransLuc 170, X1, Y1, X2, Y2 '170 best - - -X = X1 + 41 -Y = Y1 + 4 -Font$ = CHR$(1) + " Well done!!!! " + CHR$(1) -Italic = False -KgenFont X, Y, Font$, KgenMin, Italic - -X = X1 + 42 -Y = Y1 + 5 -Font$ = CHR$(1) + " Well done!!!! " + CHR$(1) -Italic = False -KgenFont X, Y, Font$, KgenGreenMin, Italic - - - -X = X1 + 5 -Y = Y1 + 15 -Font$ = "You have defeated LEVEL:" + LTRIM$(STR$(Level)) -Italic = False -KgenFont X, Y, Font$, KgenBlueMin, Italic - -X = X1 + 32 -Y = Y1 + 28 -Font$ = "Press key..." -Italic = True -KgenFont X, Y, Font$, KgenBlueMin, Italic - -X = X1 + 33 -Y = Y1 + 29 -Font$ = "Press key..." -Italic = True -KgenFont X, Y, Font$, KgenGreenMin, Italic - - -SfxOpenDialog - -END SUB - -SUB LimitScore STATIC - -IF Score& >= 99999999 THEN - Score& = 99999999 - -END IF - -END SUB - -SUB LoadBallExpImage STATIC - -REDIM BallExp(1 TO 1) -REDIM BallExpmsk(1 TO 1) -REDIM BallExpIndex(1 TO 1) - -FileName$ = "BallExp.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, BallExp() -FileName$ = "BallExp.msk" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, BallExpmsk() - -MakeImageIndex BallExp(), BallExpIndex() - -END SUB - -SUB LoadBallImage STATIC - -REDIM Ball(1 TO 1) '1st image=Mask, 2nd=Ball -REDIM BallIndex(1 TO 1) - -FileName$ = "QbBall.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Ball() - -MakeImageIndex Ball(), BallIndex() - -END SUB - -SUB LoadBlkHoleImage STATIC - - -REDIM BlkHole(1 TO 1) -REDIM BlkHoleMask(1 TO 1) - -REDIM BlkHoleIndex(1 TO 1) - -FileName$ = "BlkHole.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, BlkHole() -FileName$ = "BlkHole.Msk" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, BlkHoleMsk() - - -MakeImageIndex BlkHole(), BlkHoleIndex() - - -END SUB - -SUB LoadBombImage STATIC - -REDIM Bomb(1 TO 1) -REDIM BombMsk(1 TO 1) -REDIM BombIndex(1 TO 1) - -FileName$ = "Bomb.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Bomb() -FileName$ = "Bomb.msk" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, BombMsk() - -MakeImageIndex Bomb(), BombIndex() - -END SUB - -SUB LoadExplodeImage STATIC - -REDIM Explode(1 TO 1) -REDIM Explodemsk(1 TO 1) -REDIM ExplodeIndex(1 TO 1) - -FileName$ = "Explode.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Explode() -FileName$ = "Explode.msk" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Explodemsk() - - -MakeImageIndex Explode(), ExplodeIndex() - -END SUB - -SUB LoadFlyExpImage STATIC -REDIM FlyExp(1 TO 1) '1st image=Spr, 2nd =Mask -REDIM FlyExpIndex(1 TO 1) -FileName$ = "FlyExp.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, FlyExp() - -MakeImageIndex FlyExp(), FlyExpIndex() - -END SUB - -SUB LoadGame STATIC - -X = 0 -Y = 0 -REDIM Item$(8) - -Item$(0) = "* * Load * *" -FOR I = 1 TO UBOUND(Item$) -Item$(I) = LTRIM$(STR$(Save(I).Num)) + "." + Save(I).Namer -NEXT I - -P = PullDown(X, Y, Item$(), False) - -IF P <> 0 THEN - 'Loadit - Score& = Save(P).Score - Level = Save(P).Level - 1 - Lives = Save(P).Lives - OutStart = True - Finished = True -END IF - - -END SUB - -SUB LoadLangawImage STATIC - -REDIM Langaw(1 TO 1) '1st/2nd image=Spr, 3/4 =Masks -REDIM LangawIndex(1 TO 1) - -FileName$ = "Langaw.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Langaw() - -MakeImageIndex Langaw(), LangawIndex() - -END SUB - -SUB LoadPaddleImage STATIC - -REDIM Paddle(1 TO 1) '1st image=Mask, 2nd=paddle,3rd & 4th= PoweredUp Paddle -REDIM PaddleIndex(1 TO 1) - -FileName$ = "Paddle.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Paddle() - -MakeImageIndex Paddle(), PaddleIndex() - -END SUB - -SUB LoadPadLsrImage STATIC - -REDIM Padlsr(1 TO 1) '1st image=Laser, 2nd =Mask -REDIM PadlsrIndex(1 TO 1) - -FileName$ = "PadLasr.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Padlsr() - -MakeImageIndex Padlsr(), PadlsrIndex() - -END SUB - -SUB LoadPointerImage STATIC - -REDIM Pointer(1 TO 1) '1st image=Mask, 2nd =pointer -REDIM PointerIndex(1 TO 1) - -FileName$ = "Pointer.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, Pointer() - -MakeImageIndex Pointer(), PointerIndex() - -END SUB - -SUB LoadPowerCapsImage STATIC - -REDIM PowerCaps(1 TO 1) '1st to 3rd image=PowerCaps, 4nd =Mask -REDIM PowerCapsIndex(1 TO 1) - -FileName$ = "PwerCaps.put" -FileName$ = Path$ + "Images\" + FileName$ -InitImageData FileName$, PowerCaps() - -MakeImageIndex PowerCaps(), PowerCapsIndex() - -END SUB - -SUB LoadSaveFiles STATIC - - -'Saved Games for Loading and Saving -OPEN Path$ + "saves\" + "qbnoid.qsv" FOR INPUT AS #1 - -FOR I = 1 TO 8 - INPUT #1, SaveNum - INPUT #1, Name$ - INPUT #1, ScoreTemp& - INPUT #1, LevelTemp - INPUT #1, LivesTemp - Save(I).Num = SaveNum - Save(I).Namer = Name$ - Save(I).Score = ScoreTemp& - Save(I).Level = LevelTemp - Save(I).Lives = LivesTemp -NEXT I - -CLOSE - -'Hall of Fame - -OPEN Path$ + "saves\" + "qbnoid.hof" FOR INPUT AS #1 - -FOR I = 1 TO 5 - INPUT #1, Rank - INPUT #1, Name$ - INPUT #1, ScoreTemp& - Hall(I).Rank = Rank - Hall(I).Namer = Name$ - Hall(I).Score = ScoreTemp& -NEXT I - -CLOSE - - SortIt - - -END SUB - -SUB LoadTitle STATIC - -LINE (0, 0)-(320, 199), 0, BF - -DEF SEG = &HA000 -BLOAD Path$ + "images\" + "arqanoid.bsv", 0 - -RestoreColors - -DO - IF RGBCounter(RGBC * 5) THEN RotateRGB - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 -LOOP UNTIL INKEY$ <> "" -DEF SEG - -HazyFx -Fade 0, 0, 0 - -LINE (0, 0)-(319, 199), 0, BF - -END SUB - -SUB MakeImageIndex (ImageArray(), IndexArray()) - - 'The index will initially be built in a temporary array, allowing - 'for the maximum 1000 images per file. - DIM Temp(1 TO 1000) - Ptr& = 1: IndexNo = 1: LastInt = UBOUND(ImageArray) - DO - Temp(IndexNo) = Ptr& - IndexNo = IndexNo + 1 - - 'Evaluate descriptor of currently referenced image to - 'calculate the beginning of the next image. - X& = (ImageArray(Ptr&) \ 8) * (ImageArray(Ptr& + 1)) + 4 - IF X& MOD 2 THEN X& = X& + 1 - Ptr& = Ptr& + (X& \ 2) - LOOP WHILE Ptr& < LastInt - - LastImage = IndexNo - 1 - - 'Copy the image index values into the actual index array. - REDIM IndexArray(1 TO LastImage) - FOR n = 1 TO LastImage - IndexArray(n) = Temp(n) - NEXT n - -END SUB - -FUNCTION Menu STATIC - -Menu = 0 - -X = 48 -Y = 10 -REDIM Item$(7) - -Item$(0) = CHR$(2) + CHR$(2) + " Menu " + CHR$(2) + CHR$(2) - -Item$(1) = "New Game" -Item$(2) = "Save Game" -Item$(3) = "Load Game" -Item$(4) = "Special(???)" + CHR$(1) -Item$(5) = "View Credits" -Item$(6) = "Hall of Fame" -Item$(7) = "Exit Game" - - -M = PullDown(X, Y, Item$(), True) - -Menu = M - -END FUNCTION - -SUB MilliDelay (msecs) STATIC - - IF sysfact& THEN 'calc- system speed yet? - IF msecs THEN 'have to want a delay - COUNT& = (sysfact& * msecs) \ -54 'calc- # of loops needed - DO - COUNT& = COUNT& + 1 'negative - add to get to 0 - IF COUNT& = z THEN EXIT DO 'when its 0 we're done - LOOP UNTIL T2 = PEEK(&H6C) 'make it the same as below - END IF - ELSE 'calc- system speed - DEF SEG = &H40 'point to low memory - T1 = PEEK(&H6C) 'get tick count - DO - T2 = PEEK(&H6C) 'get tick count - LOOP UNTIL T2 <> T1 'wait 'til its a new tick - DO - sysfact& = sysfact& + 1 'count number of loops - IF sysfact& = z THEN EXIT DO 'make it the same as above - LOOP UNTIL T2 <> PEEK(&H6C) 'wait 'til its a new tick - T2 = 256 'prevent the above UNTIL - END IF - -END SUB - -FUNCTION MovePaddle (PadX, PadY) STATIC - -GOSUB CheckLives - -IF Replicant THEN - PadXMax = 180 - IF PadX > PadXMax THEN - PutPaddleBG PadOldX, PadOldY - PadX = PadXMax - END IF -ELSE - PadXMax = 217 -END IF - - -MovePaddle = False - SELECT CASE FastKB - CASE KRight, KD - IF PadX < PadXMax - PadSpd THEN - PadX = PadX + PadSpd - MovePaddle = True - END IF - CASE KLeft, KA - IF PadX > PadSpd + 5 THEN - PadX = PadX - PadSpd - MovePaddle = True - END IF - CASE KDown, KS, KEnd - AutoFire = False - Shooting = False - Lshot = False - Rshot = False - CASE KUp, KW, KCtrl - AutoFire = True - Shooting = True - Lshot = True - Rshot = True - CASE KSpc, KPgd, KTab - OutStart = True - AutoFire = False - Shooting = True - Lshot = True - Rshot = True - CASE KEsc - M = Menu - GOSUB CheckMval - RefreshKey - CASE KEnt - CASE ELSE - END SELECT - - -EXIT FUNCTION - - - -'=====================subs================= -CheckMval: - -SELECT CASE M - CASE 0 'Pressed esc do nothing - CASE 1 'New game - Score& = 0 - Level = 0 - Lives = 2 - OutStart = True - Finished = True - CASE 2 'Save Game - SaveGame - CASE 3 'Load Game - LoadGame - CASE 4 'Special - MS = SubMenu - GOSUB CheckMSval - CASE 5 'Credits - DoCredits - CASE 6 'HallofFame - DoHallOfFame - CASE 7 'Exit Game - OutStart = True - Finished = True - GameOver = True - Check4HoF - CASE ELSE -END SELECT - -RETURN -'========== -CheckMSval: - SELECT CASE MS - CASE 0 - CASE 1 'Skip Level - OutStart = True - Finished = True - CASE 2 'MoreLives - Lives = 99 - PrintLives False - CASE 3 'NoSpikes - PUT (7, 183), SpikeBG, PSET - CASE 4 'PadPower - IF NOT SpStage THEN - IF NOT PadPower THEN - PadPower = True - GOSUB InitPadlsr - END IF - ELSE - CheatError - END IF - CASE 5 'Replicant - IF NOT SpStage THEN - Replicant = True - ELSE - CheatError - END IF - CASE 6 'EraseFiles - EraseSaveFiles - CASE ELSE - END SELECT -RETURN - -'========== -CheckLives: - -IF Lives < -1 THEN - Finished = True - GameOver = True - OutStart = True - Check4HoF -END IF - -RETURN - - -'========= -InitPadlsr: - - GetPadLsrCoord 0 - GetPadLsrBG PadLsrBG1(), PadLsrBG2() - -RETURN - - - -END FUNCTION - -SUB NameEntry STATIC - - -DX = 10 -DY = 10 -MaxLen = 24 -Title$ = "Ace Player!!!" -Tmin = PadColorMin -Sysmod = False -Text$ = "~~~~Congratulations!!! Kambal! You have a new record! Pls. Send your score to me and I'll give you money. Just jokin' hehehehe. " -Text$ = Text$ + "Actually, you earn NOTHING by playing this game. Just bragging rights.... " - -REDIM Temp(1) -GetBG DX, DY, DX + 192, DY + 135, Temp() -DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False, Sysmod -KgenFont DX + 10, DY + 106, "Your Score:", KgenBlueMin, False -KgenFont DX + 10 + (8 * 11), DY + 106, LTRIM$(STR$(Score&)), KgenMin, False -KgenFont DX + 10, DY + 116, "EnterName:", KgenBlueMin, False - - -GOSUB EnterName -SfxOpenDialog - -IF P$ = CHR$(13) THEN - 'SaveHiscore - IF LEN(Item$) > 0 THEN - Hall(5).Namer = Item$ - Hall(5).Score = Score& - SortIt - GOSUB SaveHOF - END IF -END IF - - -DoHallOfFame - -EXIT SUB - -'======================= - -EnterName: - -REDIM ST(1) -GetBG DX + 10 + (10 * 8), DY + 116, (DX + 10 + (10 * 8)) + (12 * 8), DY + 116 + 8, ST() -PUT (DX + 10 + (10 * 8), DY + 116), ST, PSET -Item$ = "" - - -DO - - DO - P$ = INKEY$ - IF LEN(Item$) < 12 THEN - KgenFont DX + 10 + (10 * 8) + (LEN(Item$) * 8), DY + 116, "_", KgenGreenMin, False - END IF - IF RGBCounter(RGBC * 5) THEN RotateRGB - WAIT &H3DA, 8 - LOOP UNTIL P$ <> "" - - IF ASC(P$) >= 32 AND ASC(P$) <= 127 THEN - IF LEN(Item$) < 12 THEN - Item$ = Item$ + (P$) - PUT (DX + 10 + (10 * 8), DY + 116), ST, PSET - KgenFont DX + 10 + (10 * 8), DY + 116, Item$, KgenMin, False - SOUND 1200, 1 - RefreshKey - ELSE - RefreshKey - END IF - ELSE - IF P$ = CHR$(8) THEN - IF LEN(Item$) > 0 THEN - Item$ = LEFT$(Item$, LEN(Item$) - 1) - PUT (DX + 10 + (10 * 8), DY + 116), ST, PSET - KgenFont DX + 10 + (10 * 8), DY + 116, Item$, KgenMin, False - SOUND 1200, 1 - RefreshKey - ELSE - RefreshKey - END IF - END IF - END IF - -LOOP UNTIL P$ = CHR$(13) OR P$ = CHR$(27) - -PUT (DX, DY), Temp, PSET - -RETURN - -'======================= -SaveHOF: - - OPEN Path$ + "saves\" + "qbnoid.hof" FOR OUTPUT AS #1 - - FOR I = 1 TO 5 - PRINT #1, Hall(I).Rank - PRINT #1, Hall(I).Namer - PRINT #1, Hall(I).Score - NEXT I - - - CLOSE - -RETURN - -END SUB - -SUB OpenLvlFile (File$) STATIC -OPEN File$ FOR INPUT AS #1 - -FOR I = 0 TO TileMax - INPUT #1, Tile(I).X - INPUT #1, Tile(I).Y - INPUT #1, Tile(I).C - IF Tile(I).C = 0 THEN - Tile(I).F = False - ELSE - Tile(I).F = True - END IF -NEXT I - -CLOSE - - -END SUB - -SUB PlayGame STATIC - - -ReinitValues - - -DrawLevelBG Level, ColorStep, ColorAttr 'Bgmode(Unused),Type(looks),color - -GetTileBackGround - - - - -SelectLevel - -DoBlkHole -DoBomb - - -RestoreColors - -Finished = False - - -GetBallCenter BallCenterX, BallCenterY - - -StartGame - - -DO - - -GOSUB CheckForPowerCaps -GOSUB CheckForPadPwr - - - -GetBallBG BallX, BallY -GetPaddleBG PadX, PadY - - -PutBall BallX, BallY -PutPaddle PadX, PadY - - - -GOSUB CheckSDHit - -Flag = MovePaddle(PadX, PadY) - - -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 - -GOSUB BugFix: - - -PutBallBG BallOldX, BallOldY - - - -IF Collide THEN - CheckBounceCounter BounceCounter -END IF - - - -PutPaddleBG PadOldX, PadOldY - - -IF PadPower THEN - PutPadLsrBG PadLsrBG1(), PadLsrBG2() -END IF - -IF Power THEN - PutPowerCapsBG -END IF - -GOSUB RotRGBETC -'IF BossSTG THEN -' DoLangaw False -'END IF - - -LOOP UNTIL Finished - -HazyFx - -GOSUB CheckFadeTo - -EXIT SUB - -'===========subs=========================== - - - -BugFix: - - -IF BallY < 40 THEN - MilliDelay 5 -END IF - - -RETURN - - -CheckFadeTo: - -SELECT CASE Level - CASE 5, 10, 15, 20, 25, 30, 35, 40, 45, 50 - Fade 0, 0, 0 - CASE ELSE - Fade INT(RND * 63), INT(RND * 63), INT(RND * 63) -END SELECT - -RETURN -'=========== -CheckSDHit: - -IF SdHitPad THEN - SOUND 3000, 1 - SOUND 3400, 1 - SdHitPad = False -END IF - -IF SdHitTile THEN - SOUND 2300, 1 - SdHitTile = False - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - BlinkTile False -END IF - - -RETURN - -'================= -CheckForPadPwr: - -IF PadPower THEN - IF NOT Shooting THEN - GetPadLsrCoord 0 - GetPadLsrBG PadLsrBG1(), PadLsrBG2() - PutPadLsr PadLsrCoord(0).X, PadLsrCoord(0).Y - PutPadLsr PadLsrCoord(1).X, PadLsrCoord(1).Y - ELSE - DoPadLsr - END IF -ELSE - -END IF - - -RETURN - -'=========== -CheckForPowerCaps: - IF Power THEN - DoPowerCaps PowerType - END IF -RETURN - - -'======== -RotRGBETC: -BlkCount = BlkCount MOD 5 + 1 -BombCount = BombCount MOD 50 + 1 -LangawCount = LangawCount MOD 2 + 1 - - IF LangawCount = 1 THEN - IF BossStg THEN - DoLangaw False - END IF - END IF - - - IF BlkCount = 1 THEN - DoBlkHole - END IF - - IF BombCount = 1 THEN - - GetBallBG BallX, BallY - GetPaddleBG PadX, PadY - - PutBall BallX, BallY - PutPaddle PadX, PadY - - PutBombBG - DoBomb - - PutPaddleBG PadOldX, PadOldY - PutBallBG BallOldX, BallOldY - END IF - -IF RGBCounter(RGBC) THEN RotateRGB - -RETURN - - -END SUB - -SUB PrintFonts (X, Y, n$) STATIC - -SHARED SmallFonts() AS INTEGER - -n$ = LTRIM$(RTRIM$(UCASE$(n$))) - -Letter$ = "@.,:!?ABCDEFGHIJKLMNOPQRSTUVWXYZ " - - -FOR I = 1 TO LEN(n$) - II$ = MID$(n$, I, 1) - OffSet = INSTR(Letter$, II$) - PUT ((I * 5) + X, Y), SmallFonts((OffSet - 1) * FontOffset), PSET -NEXT I - - -END SUB - -SUB PrintLevel STATIC - -X = 297 -Y = 51 - -IF Level < 10 THEN - LV$ = "0" + LTRIM$(STR$(Level)) -ELSE - LV$ = LTRIM$(STR$(Level)) -END IF - -Font$ = LV$ -Italic = True -KgenFont X - 2, Y + 1, Font$, KgenMin, Italic -KgenFont X, Y, Font$, KgenBlueMin, Italic - - -END SUB - -SUB PrintLives (EraseIt) STATIC - - - -LY = 76 -LX = 265 -LINE (LX, LY - 1)-(320, 122), 0, BF -FOR I = 0 TO Lives - IF NOT EraseIt THEN - PUT (LX, LY), Ball(BallIndex(2)), PSET - ELSE - PUT (LX, LY), Ball(BallIndex(1)), PSET - END IF - - LX = LX + 7 - IF LX > 313 THEN - LX = 265 - LY = LY + 7 - END IF - - IF I > 40 THEN EXIT FOR - -NEXT I - - -END SUB - -SUB PrintNum (X, Y, n$) STATIC -SHARED SmallNum() AS INTEGER - -FOR I = 1 TO LEN(n$) - II$ = MID$(n$, I, 1) - OffSet = INSTR("1234567890,", II$) - PUT ((I * 5) + X, Y), SmallNum((OffSet - 1) * FontOffset), PSET -NEXT I - - -END SUB - -SUB PrintScore STATIC - - Temp$ = LTRIM$(Format$(Score&)) - PrintNum 315 - (LEN(Temp$) * 5), 35, Temp$ - - IF Score& >= 100000 THEN - PrintNum 315 - (LEN(Temp$) * 5), 12, Temp$ - END IF - -END SUB - -FUNCTION PullDown (X, Y, Item$(), Italic) STATIC - -'=========Draws a PullDown menu========== -'=========Returns an integer (Value of I) -'======Sample Code======================= - 'X = 10 - 'Y = 20 - 'REDIM Item$(8) - 'Item$(0) = "* * Save * *" - 'FOR I = 1 TO UBOUND(Item$) - 'Item$(I) = LTRIM$(STR$(I)) + ".RelSoft 2000" - 'NEXT I - 'P = PullDown(X, Y, Item$(),True) -'========End Sample======================== - -MaxItem = UBOUND(Item$) -REDIM PointerCoord(0 TO MaxItem) AS CoordType -REDIM PointerCoord2(0 TO MaxItem) AS CoordType - -REDIM PTemp(34), Ptemp2(34) -REDIM Temp(1) - -PullDown = 0 -KgenStart = 30 - -FOR I = 0 TO MaxItem - Item$(I) = LTRIM$(RTRIM$(Item$(I))) -NEXT I - -'Calculate how big our box is -X1 = X -Y1 = Y - -GOSUB CalcBox - - -GetBG X1, Y1, X2, Y2, Temp() - -TransLuc 170, X1, Y1, X2, Y2 '170 best - -'=Title -XX = ((X2 - X1) \ 2) - (4 * (LEN(Item$(0)))) -KgenFont X1 + XX - 8, Y1 + 11, Item$(0), KgenMin, NOT Italic -KgenFont X1 + (XX - 8) + 1, Y1 + 12, Item$(0), KgenBlueMin, NOT Italic - -GOSUB InitCoord -GOSUB DrawItem -OutPullDown = False - -I = 1 -GOSUB GetPLtemp -PutPointer PointerCoord(I).X - 12, PointerCoord(I).Y, PointerCoord2(I).X, PointerCoord2(I).Y - - -DO - - - IF RGBCounter(RGBC * 6) THEN RotateRGB - WAIT &H3DA, 8 - GOSUB CheckKey - - -LOOP UNTIL OutPullDown - -PUT (X1, Y1), Temp, PSET - -RefreshKey - -ERASE PointerCoord, PointerCoord2, PTemp, Ptemp2, Temp - -EXIT FUNCTION - -''==============Subs========= -'============ - -CheckKey: - - SELECT CASE FastKB - CASE KRight, KD - CASE KLeft, KA - CASE KDown, KS - GOSUB PutPLtemp - I = I MOD MaxItem + 1 - GOSUB GetPLtemp - PutPointer PointerCoord(I).X - 12, PointerCoord(I).Y, PointerCoord2(I).X, PointerCoord2(I).Y - GOSUB DosoundP - CASE KUp, KW - GOSUB PutPLtemp - I = (I + MaxItem - 2) MOD MaxItem + 1 - GOSUB GetPLtemp - PutPointer PointerCoord(I).X - 12, PointerCoord(I).Y, PointerCoord2(I).X, PointerCoord2(I).Y - GOSUB DosoundP - CASE KEsc - OutPullDown = True - PullDown = 0 - GOSUB Dosound2P - CASE KEnt, KSpc - OutPullDown = True - GOSUB Dosound2P - PullDown = I - CASE ELSE - END SELECT - -RETURN - -'============ -InitCoord: - - Ystep = 14 - YY = Y1 + Ystep + 16 - - FOR I = 1 TO MaxItem - - PointerCoord(I).X = X1 + 30 - PointerCoord(I).Y = YY - YY = YY + Ystep - - NEXT I - -RETURN - - - - -'========== -DrawItem: - -FOR I = 1 TO MaxItem - - Font$ = LEFT$(LTRIM$(Item$(I)), 1) - Font2$ = RIGHT$(LTRIM$(Item$(I)), LEN(Item$(I)) - 1) - - KgenFont PointerCoord(I).X + 1, PointerCoord(I).Y - 1, Font$, KgenMin, False - KgenFont PointerCoord(I).X, PointerCoord(I).Y, Font$, KgenGreenMin, False - KgenFont PointerCoord(I).X + 10, PointerCoord(I).Y, Font2$, KgenStart, Italic - IF Italic THEN - PointerCoord2(I).X = PointerCoord(I).X + ((LEN(Font2$) + 2) * 8) + 5 - ELSE - PointerCoord2(I).X = PointerCoord(I).X + ((LEN(Font2$) + 2) * 8) - END IF - PointerCoord2(I).Y = PointerCoord(I).Y - -NEXT I - -RETURN - -'======== -DosoundP: - FOR SI = 500 TO 2000 STEP 100 - SOUND SI, .1 - NEXT SI - FOR SI = 1000 TO 500 STEP -100 - SOUND SI, .1 - NEXT SI - -RETURN -'======= -Dosound2P: - - DIM Dsi AS SINGLE - Dsi = .9 - - FOR SI = 300 TO 3000 STEP 50 - IF Dsi > .1 THEN Dsi = Dsi - .1 - SOUND SI, Dsi - NEXT SI - -RETURN - - - -'======== - -GetPLtemp: - GET (PointerCoord(I).X - 12, PointerCoord(I).Y)-STEP(8, 6), PTemp - GET (PointerCoord2(I).X, PointerCoord2(I).Y)-STEP(8, 6), Ptemp2 -RETURN - -PutPLtemp: - PUT (PointerCoord(I).X - 12, PointerCoord(I).Y), PTemp, PSET - PUT (PointerCoord2(I).X, PointerCoord2(I).Y), Ptemp2, PSET - -RETURN - - -'=========== - -CalcBox: - - -FOR I = 0 TO MaxItem - IF LEN(Item$(I)) > 18 THEN - Item$(I) = LEFT$(Item$(I), 18) - END IF -NEXT I - -Longest = LEN(Item$(0)) - -FOR I = 1 TO MaxItem - IF LEN(Item$(I)) > Longest THEN - Longest = LEN(Item$(I)) - END IF -NEXT I - -IF Italic THEN - LL = 16 -ELSE - LL = 12 -END IF - -Y2 = (Y1 + 20 + 14 + (MaxItem * 14)) -X2 = (X1 + (Longest * 8)) + 55 + LL - -RETURN - - -END FUNCTION - -SUB PutBall (BallX, BallY) STATIC - - - PUT (BallX, BallY), Ball(BallIndex(1)), AND - PUT (BallX, BallY), Ball(BallIndex(2)), XOR - -END SUB - -SUB PutBallBG (BallOldX, BallOldY) STATIC - PUT (BallOldX, BallOldY), BallBG, PSET -END SUB - -SUB PutBlkHole (X, Y) STATIC - -I = I MOD UBOUND(BlkHoleIndex) + 1 -PUT (X, Y), BlkHoleMsk(BlkHoleIndex(I)), AND -PUT (X, Y), BlkHole(BlkHoleIndex(I)), OR - -END SUB - -SUB PutBlkHoleBG STATIC - -FOR I = 1 TO 4 - IF BlkHoleXY(I).X <> 0 THEN - PUT (BlkHoleXY(I).X, BlkHoleXY(I).Y), BlkHoleBG(130 * (I - 1)), PSET - END IF -NEXT I - -END SUB - -SUB PutBomb (X, Y, Switch) STATIC - -'Switch must be 1 or 2 - -PUT (X, Y), BombMsk(BombIndex(Switch)), AND -PUT (X, Y), Bomb(BombIndex(Switch)), OR - -END SUB - -SUB PutBombBG STATIC - -FOR I = 1 TO UBOUND(BombXY) - IF BombXY(I).X <> 0 THEN - PUT (BombXY(I).X, BombXY(I).Y), BombBG(130 * (I - 1)), PSET - END IF -NEXT I - -END SUB - -SUB PutLangaw (X, Y, Axn) STATIC - -'Axn=1 or 2 -PUT (X, Y), Langaw(LangawIndex(Axn + 2)), AND -PUT (X, Y), Langaw(LangawIndex(Axn)), OR - - -END SUB - -SUB PutPaddle (PadX, PadY) STATIC - -IF PadPower THEN - IF Replicant THEN - PUT (PadX, PadY), Paddle(PaddleIndex(3)), AND - PUT (PadX, PadY), Paddle(PaddleIndex(4)), OR - PUT (PadX + 38, PadY), Paddle(PaddleIndex(3)), AND - PUT (PadX + 38, PadY), Paddle(PaddleIndex(4)), OR - ELSE - PUT (PadX, PadY), Paddle(PaddleIndex(3)), AND - PUT (PadX, PadY), Paddle(PaddleIndex(4)), OR - END IF -ELSE - IF Replicant THEN - PUT (PadX, PadY), Paddle(PaddleIndex(1)), AND - PUT (PadX, PadY), Paddle(PaddleIndex(2)), OR - PUT (PadX + 38, PadY), Paddle(PaddleIndex(1)), AND - PUT (PadX + 38, PadY), Paddle(PaddleIndex(2)), OR - ELSE - PUT (PadX, PadY), Paddle(PaddleIndex(1)), AND - PUT (PadX, PadY), Paddle(PaddleIndex(2)), OR - END IF - -END IF - -END SUB - -SUB PutPaddleBG (PadOldX, PadOldY) STATIC - PUT (PadOldX, PadOldY), PaddleBG, PSET -END SUB - -SUB PutPadLsr (X, Y) STATIC - -PUT (X, Y), Padlsr(PadlsrIndex(2)), AND -PUT (X, Y), Padlsr(PadlsrIndex(1)), OR - -END SUB - -SUB PutPadLsrBG (Image1(), Image2()) STATIC - -PUT (PadLsrOldCoord(0).X, PadLsrOldCoord(0).Y), Image1, PSET -PUT (PadLsrOldCoord(1).X, PadLsrOldCoord(1).Y), Image2, PSET - -END SUB - -SUB PutPointer (X, Y, X2, Y2) STATIC - -PUT (X, Y), Pointer(PointerIndex(1)), AND -PUT (X, Y), Pointer(PointerIndex(2)), OR - -PUT (X2, Y2), Pointer(PointerIndex(3)), AND -PUT (X2, Y2), Pointer(PointerIndex(4)), OR - - - -END SUB - -SUB PutPowerCaps (X, Y, PowType) STATIC - -PUT (X, Y), PowerCaps(PowerCapsIndex(4)), AND -PUT (X, Y), PowerCaps(PowerCapsIndex(PowType)), OR - -END SUB - -SUB PutPowerCapsBG STATIC - PUT (PowerCapsOldCoord(0).X, PowerCapsOldCoord(0).Y), PowerCapsBG, PSET -END SUB - -SUB ReadLevel (Lvl) STATIC - -OpenLvlFile Path$ + "levels\" + "qbnoid" + LTRIM$(STR$(Lvl)) + "." + "lvl" - -TileNumber = 0 - - -FOR I = 0 TO TileMax - IF Tile(I).F THEN - DrawTile Tile(I).X, Tile(I).Y, Tile(I).C - IF Tile(I).C <> 9 THEN - TileNumber = TileNumber + 1 - END IF - END IF -NEXT I - -END SUB - -SUB ReadRGB (C%, R%, g%, B%) - -OUT &H3C7, C% -R% = INP(&H3C9) -g% = INP(&H3C9) -B% = INP(&H3C9) - -END SUB - -SUB RefreshKey STATIC - -DEF SEG = &H40 -POKE &H1A, PEEK(&H1C) -DEF SEG - - -END SUB - -SUB ReInitBallSpd STATIC - -SELECT CASE SGN(BallXV) - CASE -1 - BallXV = -BallSpd - CASE 1 - BallXV = BallSpd - CASE ELSE -END SELECT - -SELECT CASE SGN(BallYV) - CASE -1 - BallYV = -BallSpd - CASE 1 - BallYV = BallSpd - CASE ELSE -END SELECT - - - -END SUB - -SUB ReinitValues STATIC - -BallSpd = 1 'Change for Speed - - -BallXV = BallSpd -BallYV = -BallSpd - - - -PadX = 105 -PadY = 170 -PadOldX = PadX -PadOldY = PadY - - -ColorAttr = 1 + INT(RND * 7) -ColorStep = 1 + INT(RND * 50) -Level = Level MOD 50 + 1 - -'Power ups -PadPower = False 'Paddle changes and can shoot -Replicant = False 'Replicates ur paddle -MultiBall = False '?????? not a power up makes d game harder -Shooting = False -Lshot = False -Rshot = False -Power = False -BossEnter = False - - -'Sounds -SdHitPad = False 'Sound for PaddleHit -SdHitTile = False -SdHitBoss = False - -LimitScore - - -END SUB - -SUB RestoreColors -II = 0 -I = 0 - - -FOR II = 0 TO 63 - - -FOR I = 0 TO 255 -RefreshKey - - ReadRGB I, RR, GG, BB - R = SavRGB(I).R - g = SavRGB(I).g - B = SavRGB(I).B - - IF R > RR THEN - RR = RR + 1 - ELSEIF R < RR THEN - RR = RR - 1 - ELSE - 'Do nothing - END IF - - IF g > GG THEN - GG = GG + 1 - ELSEIF g < GG THEN - GG = GG - 1 - ELSE - 'Do nothing - END IF - - IF B > BB THEN - BB = BB + 1 - ELSEIF B < BB THEN - BB = BB - 1 - ELSE - 'Do nothing - END IF - - WriteRGB I, RR, GG, BB - -NEXT I - -MilliDelay 30 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 - -NEXT II - - -END SUB - -FUNCTION RGBCounter (MaxCounter) STATIC - -'==========Counts until reaches MaxCounter then True is returned else False -'==========Used to make Color rotation at same speed - -RGBCounter = False - -I = I MOD MaxCounter + 1 - IF I = MaxCounter THEN - RGBCounter = True - END IF - -END FUNCTION - -SUB RotateRGB STATIC - -'==KGen================== -'red -FOR I = KgenMin TO KgenMax - 1 - SWAP SavRGB(I), SavRGB(I + 1) -NEXT I -FOR I = KgenMin TO KgenMax - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'blue -FOR I = KgenBlueMax TO KgenBlueMin + 1 STEP -1 'Shift Direction Down - SWAP SavRGB(I), SavRGB(I - 1) -NEXT I -FOR I = KgenBlueMin TO KgenBlueMax - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'Green -FOR I = KgenGreenMin TO KgenGreenMax - 1 - SWAP SavRGB(I), SavRGB(I + 1) -NEXT I -FOR I = KgenGreenMin TO KgenGreenMax - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - - -'==End Kgen========================== - -'======Pointer======================= - -IF PointerC > 57 THEN ClrDir = 1 -IF PointerC < 20 THEN ClrDir = 0 - -IF ClrDir = 0 THEN PointerC = PointerC + 5 -IF ClrDir = 1 THEN PointerC = PointerC - 5 - -WriteRGB 244, 0, PointerC, 33 'Inside of pointer -WriteRGB 245, PointerC, 33, PointerC 'Border of pointer - -'======End pointer=================== - -'======Paddle======================== - -FOR I = PadColorMin TO PadColorMax - 1 - SWAP SavRGB(I), SavRGB(I + 1) -NEXT I -FOR I = PadColorMin TO PadColorMax - WriteRGB I, SavRGB(I).R, SavRGB(I).g, SavRGB(I).B -NEXT I - -'=====end paddle==================== - -END SUB - -SUB SaveColors - -FOR I = 0 TO 255 - ReadRGB I, R, g, B - SavRGB(I).R = R - SavRGB(I).g = g - SavRGB(I).B = B -NEXT I - -END SUB - -SUB SaveGame STATIC - - -X = 0 -Y = 0 -REDIM Item$(8) - -Item$(0) = "* * Save * *" -FOR I = 1 TO UBOUND(Item$) -Item$(I) = LTRIM$(STR$(Save(I).Num)) + "." + Save(I).Namer -NEXT I - - -P = PullDown(X, Y, Item$(), False) - -IF P <> 0 THEN - - GOSUB EnterLevel - - IF LEN(LTRIM$(Item$(P))) > 1 AND P$ = CHR$(13) THEN - 'Saveit - Save(P).Num = P - Save(P).Namer = Item$(P) - Save(P).Score = Score& - Save(P).Level = Level - Save(P).Lives = Lives - GOSUB Saveit - END IF - -END IF - - -EXIT SUB - - -'================Subs======================== - -EnterLevel: - - DX = 0 - DY = 150 - MaxLen = 39 - Title$ = "" - Tmin = PadColorMin - Text$ = "Save this game as..." + "#" + LTRIM$(STR$(P)) + "[" + SPACE$(12) + "]" - Sysmod = False - REDIM Temp(1) - GetBG DX, DY, DX + 319, DY + 20, Temp() - DialogBox DX, DY, MaxLen, Tmin, Title$, Text$, False, Sysmod - Item$(P) = "" - - REDIM ST(1) - GetBG DX + 188, DY + 4, DX + 188 + (12 * 8), DY + 4 + 8, ST() - PUT (DX + 188, DY + 4), ST, PSET - - - DO - - DO - P$ = INKEY$ - IF LEN(Item$(P)) < 12 THEN - KgenFont DX + 188 + (LEN(Item$(P)) * 8), DY + 5, "_", KgenMin, False - END IF - IF RGBCounter(RGBC * 5) THEN RotateRGB - WAIT &H3DA, 8 - - LOOP UNTIL P$ <> "" - - IF ASC(P$) >= 32 AND ASC(P$) <= 127 THEN - IF LEN(Item$(P)) < 12 THEN - Item$(P) = Item$(P) + (P$) - PUT (DX + 188, DY + 4), ST, PSET - KgenFont DX + 188, DY + 5, Item$(P), KgenBlueMin, False - SOUND 1200, 1 - RefreshKey - ELSE - RefreshKey - END IF - ELSE - IF P$ = CHR$(8) THEN - IF LEN(Item$(P)) > 0 THEN - Item$(P) = LEFT$(Item$(P), LEN(Item$(P)) - 1) - PUT (DX + 188, DY + 4), ST, PSET - KgenFont DX + 188, DY + 5, Item$(P), KgenBlueMin, False - SOUND 1200, 1 - RefreshKey - ELSE - RefreshKey - END IF - END IF - END IF - - LOOP UNTIL P$ = CHR$(13) OR P$ = CHR$(27) - - PUT (DX, DY), Temp, PSET - SfxOpenDialog - -RETURN - -'===================== - -Saveit: - - OPEN Path$ + "saves\" + "qbnoid.qsv" FOR OUTPUT AS #1 - - FOR I = 1 TO 8 - - SaveNum = Save(I).Num - Name$ = Save(I).Namer - ScoreTemp& = Save(I).Score - LevelTemp = Save(I).Level - LivesTemp = Save(I).Lives - - PRINT #1, SaveNum - PRINT #1, Name$ - PRINT #1, ScoreTemp& - PRINT #1, LevelTemp - PRINT #1, LivesTemp - NEXT I - - CLOSE - -RETURN - - -END SUB - -SUB ScrollKgenTT (TopY, Text$, Xscale, Yscale, MinColor, Shadow, OverTop, OverTopY, Italic, FirstTime) STATIC - -'==========Scrolls Scalable KgenTT Fonts on screen========================= -'Sample code - 'Text$ = "Richard Eric M. Lope Bsn Rn WVSU College of Nursing. This is Very Cool!!!!!! " - 'Xscale = 2 - 'YScale = 5 - 'TopY = 199 - ((YScale) * 9) - 'MinColor = KgenBlueMin - 'Shadow = True - 'OverTop = True - 'OtY = 0 - 'Italic = True - 'FirstTime=True 'always True - 'DO - 'ScrollKgenTT TopY, Text$, Xscale, YScale, MinColor, Shadow, OverTop, OtY, Italic - 'CC = CC MOD 8 + 1 - 'IF CC = 1 THEN RotateRGB - 'LOOP UNTIL INKEY$ <> "" -'End sample -'======================================================================== - -IF FirstTime THEN - P = 0 - PP = 0 - Counter = 0 - FirstTime = NOT FirstTime -END IF - - - -Y = TopY -Y2 = OverTopY -X = 1 -T$ = Text$ -Xs = Xscale -YS = Yscale -C = MinColor -L = LEN(Text$) - -REDIM Scroll(1) -REDIM Scroll2(1) -REDIM L$(L) - -FOR I = 1 TO L - L$(I) = MID$(T$, I, 1) -NEXT I - - -XX = 312 - (Xs * 9) - -IF Shadow THEN - XXX = (8 * Xs) + 1 -ELSE - XXX = 8 * Xs -END IF - - - GetBG X, Y, 319, Y + (8 * YS) + YS, Scroll() - PUT (X - 1, Y), Scroll, PSET - IF OverTop THEN - GetBG 0, Y2, 318, Y2 + (8 * YS) + YS, Scroll2() - PUT (1, Y2), Scroll2, PSET - END IF - - Counter = (Counter MOD (Xs * 8)) + 1 - - - IF Counter = 1 THEN - P = P MOD L + 1 - PP = (PP + L - 2) MOD L + 1 - IF Shadow THEN - KgenTTFont XX - 1, Y - 1, L$(P), KgenMin, Xs, YS, Italic - IF OverTop THEN - KgenTTFont XXX - 1, Y2, L$(PP), KgenMin, Xs, YS, Italic - END IF - END IF - - KgenTTFont XX, Y, L$(P), C, Xs, YS, Italic - IF OverTop THEN - KgenTTFont XXX, Y2 + 1, L$(PP), C, Xs, YS, Italic - END IF - - - END IF - -END SUB - -SUB SelectLevel - - -ReadLevel Level - - -FOR I = 1 TO UBOUND(BombXY) - BombXY(I).X = 0 - BombXY(I).Y = 0 -NEXT I - -BombNum = UBOUND(BombXY) - -FOR I = 1 TO UBOUND(BlkHoleXY) - BlkHoleXY(I).X = 0 - BlkHoleXY(I).Y = 0 -NEXT I -BombSTG = False -BossStg = False - - -SELECT CASE Level - CASE 5 - 'Bonus 1 - CalcBombCoord 5 - CASE 10 - 'Boss 1 - - BossX = 73 - BossY = 9 - DrawBoss BossX, BossY, "Rotator" - TileNumber = 1 - BossLife = 2000 - BlkHoleXY(1).X = 24 - BlkHoleXY(1).Y = 95 - BlkHoleXY(2).X = 60 - BlkHoleXY(2).Y = 55 - BlkHoleXY(3).X = 185 - BlkHoleXY(3).Y = 55 - BlkHoleXY(4).X = 220 - BlkHoleXY(4).Y = 95 - BossStg = True - CalcLangawCoord - CASE 15 - 'Bonus 2 - CalcBombCoord 4 - CASE 20 - 'Boss 2 - BossX = 85 - BossY = 9 - DrawBoss BossX, BossY, "TGL" - TileNumber = 1 - BossLife = 2500 - BlkHoleXY(1).X = 22 - BlkHoleXY(1).Y = 59 - BlkHoleXY(2).X = 230 - BlkHoleXY(2).Y = 59 - BlkHoleXY(3).X = 70 - BlkHoleXY(3).Y = 91 - BlkHoleXY(4).X = 180 - BlkHoleXY(4).Y = 91 - BossStg = True - CalcLangawCoord - CASE 25 - 'Bonus 3 - CalcBombCoord 3 - - CASE 30 - 'Boss 3 - BossX = 45 - BossY = 11 - DrawBoss BossX, BossY, "Ku2" - TileNumber = 1 - BossLife = 3000 - BlkHoleXY(1).X = 95 - BlkHoleXY(1).Y = 110 - BlkHoleXY(2).X = 150 - BlkHoleXY(2).Y = 110 - BlkHoleXY(3).X = 72 - BlkHoleXY(3).Y = 90 - BlkHoleXY(4).X = 176 - BlkHoleXY(4).Y = 90 - BossStg = True - CalcLangawCoord - CASE 35 - 'Bonus 4 - CalcBombCoord 2 - CASE 40 - 'Boss 4 - BossX = 63 - BossY = 9 - DrawBoss BossX, BossY, "Mummy" - TileNumber = 1 - BossLife = 4000 - BlkHoleXY(1).X = 23 - BlkHoleXY(1).Y = 100 - BlkHoleXY(2).X = 23 - BlkHoleXY(2).Y = 80 - BlkHoleXY(3).X = 226 - BlkHoleXY(3).Y = 80 - BlkHoleXY(4).X = 226 - BlkHoleXY(4).Y = 100 - - BossStg = True - CalcLangawCoord - CASE 45 - 'Bonus 5 - CalcBombCoord 1 - - CASE 50 - 'Boss 5 - - BossX = 97 - BossY = 11 - DrawBoss BossX, BossY, "SkullQB" - TileNumber = 1 - BossLife = 5000 - BlkHoleXY(1).X = 17 - BlkHoleXY(1).Y = 130 - BlkHoleXY(2).X = 112 - BlkHoleXY(2).Y = 130 - BlkHoleXY(3).X = 133 - BlkHoleXY(3).Y = 130 - BlkHoleXY(4).X = 226 - BlkHoleXY(4).Y = 130 - - BossStg = True - CalcLangawCoord - CASE ELSE - 'load Normal Levels - BossLife = 1 - FOR I = 1 TO 4 - BlkHoleXY(I).X = 0 - BlkHoleXY(I).Y = 0 - NEXT - - - - -END SELECT - -PrintLevel -GetBlkHoleBG - -END SUB - -SUB SfxOpenDialog STATIC - -FOR II = 400 TO 900 STEP 10 - SOUND II, .1 -NEXT II - - -END SUB - -SUB SfxPowerUp STATIC - - DIM Dsi AS SINGLE - - GetBallBG BallX, BallY - GetPaddleBG PadX, PadY - - PutBall BallX, BallY - PutPaddle PadX, PadY - FOR SI = 500 TO 1400 STEP 100 - Dsi = RND - SOUND SI, Dsi - NEXT SI - PutPaddleBG PadOldX, PadOldY - PutBallBG BallOldX, BallOldY -END SUB - -SUB SndExplode STATIC - - - FOR SI = 3000 TO 400 STEP -250 - SOUND SI, .1 - NEXT SI - -END SUB - -SUB SortIt STATIC -'Dont Bother with this. It's bubble sort Slow but gets the job done this time - - DO - Switcher = False - FOR I = 1 TO 4 - IF Hall(I).Score < Hall(I + 1).Score THEN - - Hall(I + 1).Rank = I - Hall(I).Rank = I + 1 - SWAP Hall(I), Hall(I + 1) - - Switcher = True - - END IF - NEXT I - LOOP WHILE Switcher - - -END SUB - -FUNCTION SpecialStage (DX, DY, MaxLen, Tmin, Title$, Text$) - -SpecialStage = False -DX = 0 -DY = 0 -MaxLen = 0 -Title$ = "" -Tmin = PadColorMin -Text$ = "" - - -SELECT CASE Level - '====Bosses================= - CASE 10 - DX = 22 - DY = 70 - MaxLen = 27 - Title$ = "Rotator:" - Tmin = PadColorMin - Text$ = "~~~~You have beat me first to have a chance at defeating GIGA!!! Not even KONAMI(tm) could stop me!" - SpecialStage = True - CASE 20 - DX = 22 - DY = 70 - MaxLen = 27 - Title$ = "ZAVOT:" - Tmin = PadColorMin - Text$ = "~~~~This would be your last stop! Ull die here 4 sure. I Zavot will shave all of your hair! Mwa ha ha ha..." - SpecialStage = True - CASE 30 - DX = 22 - DY = 70 - MaxLen = 27 - Title$ = "Ku2:" - Tmin = PadColorMin - Text$ = "~~~~Hik hik hik hik... I you dare challenge me?! The parasites of all parasites?! Ha! I'll kill you now..." - SpecialStage = True - CASE 40 - DX = 22 - DY = 70 - MaxLen = 27 - Title$ = "The Rock:" - Tmin = PadColorMin - Text$ = "~~~~Time will never stop me from conquering ur world. Without Brendan Frasier and his extremely vivacious wife 2 help u... I, the Scorpion King will be victorious!!!" - SpecialStage = True - - CASE 50 - DX = 22 - DY = 70 - MaxLen = 27 - Title$ = "GIGA:" - Tmin = PadColorMin - Text$ = "~~~~You idiot!!! How many times do I have to kill one of your race 4 u 2 understand that even ur whole army can't withstand the wrath of Gago?! Now Die!!!" - SpecialStage = True - - '======Bonus stages========= - CASE 5 - GOSUB BonusDialog - CASE 15 - GOSUB BonusDialog - CASE 25 - GOSUB BonusDialog - CASE 35 - GOSUB BonusDialog - CASE 45 - GOSUB BonusDialog - CASE ELSE -END SELECT - - -EXIT FUNCTION - - -'================== - -BonusDialog: - - -PUT (7, 183), SpikeBG, PSET - -DX = 22 -DY = 70 -MaxLen = 27 -Title$ = " Bonus Stage!" -Tmin = PadColorMin -Text$ = "~~~~Pop as much BOMBS as possible before time runs out! Good luck!" -SpecialStage = True -BombDes = 0 - -RETURN - -END FUNCTION - -SUB StartGame STATIC - - -PrintLives False - -OutStart = False -BallSpd = 1 -BounceCounter = 0 - - -BallX = PadX + (16) - - - -GetPadLsrCoord 0 -GetPadLsrBG PadLsrBG1(), PadLsrBG2() - - -IF SpecialStage(DX, DY, MaxLen, MinColor, Title$, Text$) THEN - IF NOT BossEnter THEN - Sysmod = True - DialogBox DX, DY, MaxLen, MinColor, Title$, Text$, False, Sysmod - BossEnter = True - END IF - SpStage = True -ELSE - SpStage = False -END IF - - -'''==========Start Loop=============== - -DO - -Shooting = False -Lshot = False -Rshot = False - -GOSUB CheckForPadPower: - - -GetBallBG BallX, BallY -GetPaddleBG PadX, PadY - - - -PutBall BallX, BallY -PutPaddle PadX, PadY - -Flag = MovePaddle(PadX, PadY) -BallX = PadX + (16) - - -'Millidelay 2 - - -WAIT &H3DA, 8 - - - -PutBallBG BallOldX, BallOldY - -PutPaddleBG PadOldX, PadOldY - -IF PadPower THEN - PutPadLsrBG PadLsrBG1(), PadLsrBG2() -END IF - - -GOSUB RotMisc - - -LOOP UNTIL OutStart - -''===================End loop========================= - -PutBombBG -DoBomb - - -BallXV = BallSpd -BallYV = -BallSpd - -EXIT SUB - -'==============Subs======================== -CheckForPadPower: - -IF PadPower THEN - IF NOT Shooting THEN - GetPadLsrCoord 0 - GetPadLsrBG PadLsrBG1(), PadLsrBG2() - PutPadLsr PadLsrCoord(0).X, PadLsrCoord(0).Y - PutPadLsr PadLsrCoord(1).X, PadLsrCoord(1).Y - ELSE - DoPadLsr - END IF - BallY = PadY - 7 -ELSE - BallY = PadY - 4 -END IF - -RETURN - -'============== -RotMisc: - -IF RGBCounter(RGBC) THEN RotateRGB - -BlkCount = BlkCount MOD 5 + 1 -BombCount = BombCount MOD 50 + 1 -LangawCount = LangawCount MOD 2 + 1 - - IF LangawCount = 1 THEN - IF BossStg THEN - DoLangaw False - END IF - END IF - - IF BlkCount = 1 THEN - DoBlkHole - - END IF - - IF BombCount = 1 THEN - GetBallBG BallX, BallY - GetPaddleBG PadX, PadY - - PutBall BallX, BallY - PutPaddle PadX, PadY - - PutBombBG - DoBomb - - PutPaddleBG PadOldX, PadOldY - PutBallBG BallOldX, BallOldY - - END IF - -RETURN - - - - -END SUB - -FUNCTION SubMenu STATIC - - -SubMenu = 0 - -X = 35 -Y = 20 -REDIM Item$(6) - -Item$(0) = CHR$(2) + " Debug Code " + CHR$(2) - -Item$(1) = "Skip Level!!!" -Item$(2) = "More Lives!!!" -Item$(3) = "No Spikes!!!" -Item$(4) = "Power Paddle!!!" -Item$(5) = "Replicant!!!" -Item$(6) = "Erase Saves!" - - -S = PullDown(X, Y, Item$(), True) - -SubMenu = S - -END FUNCTION - -SUB TransLuc (n, X1, Y1, X2, Y2) -'N= Test Value of Color -'X1=MinX -'X2=MaxX -'Y1=MinY -'Y2=MaxY - - -DEF SEG = &HA000 -FOR I = 0 TO 2 - LINE (X1 + I, Y1 + I)-(X2 - I, Y1 + I), KgenMin + I + 1 - LINE (X1 + I, Y1 + I)-STEP(0, I + 2), KgenMin + I + 1 - LINE (X2 - I, Y1 + I)-STEP(0, I + 2), KgenMin + I + 1 -NEXT I - -FOR Y = Y1 + 3 TO Y2 - 3 - POKE (Y * 320& + X1), KgenMin + 1 - POKE (Y * 320& + X1 + 1), KgenMin + 2 - POKE (Y * 320& + X1 + 2), KgenMin + 3 - FOR X = X1 + 3 TO X2 - 3 - C = PEEK(Y * 320& + X) - POKE (Y * 320& + X), Trans(C) + n - NEXT X - POKE (Y * 320& + X2), KgenMin + 1 - POKE (Y * 320& + X2 - 1), KgenMin + 2 - POKE (Y * 320& + X2 - 2), KgenMin + 3 -NEXT Y -FOR I = 0 TO 2 - LINE (X1 + I, Y2 - I)-(X2 - I, Y2 - I), KgenMin + I + 1 - LINE (X1 + I, Y2 - I)-STEP(0, I - 2), KgenMin + I + 1 - LINE (X2 - I, Y2 - I)-STEP(0, I - 2), KgenMin + I + 1 - -NEXT I - -DEF SEG - -END SUB - -SUB WriteRGB (C%, R%, g%, B%) - -OUT &H3C8, C% - -OUT &H3C9, R% -OUT &H3C9, g% -OUT &H3C9, B% - -END SUB - diff --git a/programs/samples/qb45com/action/arqanoid/images/arqanoid.bsv b/programs/samples/qb45com/action/arqanoid/images/arqanoid.bsv deleted file mode 100644 index 5932211cc..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/arqanoid.bsv and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/ballexp.msk b/programs/samples/qb45com/action/arqanoid/images/ballexp.msk deleted file mode 100644 index 488788573..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/ballexp.msk and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/ballexp.put b/programs/samples/qb45com/action/arqanoid/images/ballexp.put deleted file mode 100644 index 3cc3759dd..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/ballexp.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/blkhole.msk b/programs/samples/qb45com/action/arqanoid/images/blkhole.msk deleted file mode 100644 index 896329618..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/blkhole.msk and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/blkhole.put b/programs/samples/qb45com/action/arqanoid/images/blkhole.put deleted file mode 100644 index 54aeccec9..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/blkhole.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/bomb.msk b/programs/samples/qb45com/action/arqanoid/images/bomb.msk deleted file mode 100644 index 66730e559..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/bomb.msk and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/bomb.put b/programs/samples/qb45com/action/arqanoid/images/bomb.put deleted file mode 100644 index 9e370d5bd..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/bomb.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/explode.msk b/programs/samples/qb45com/action/arqanoid/images/explode.msk deleted file mode 100644 index 3564e283d..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/explode.msk and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/explode.put b/programs/samples/qb45com/action/arqanoid/images/explode.put deleted file mode 100644 index fac96a89c..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/explode.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/flyexp.put b/programs/samples/qb45com/action/arqanoid/images/flyexp.put deleted file mode 100644 index 913fe9093..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/flyexp.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/ku2.msk b/programs/samples/qb45com/action/arqanoid/images/ku2.msk deleted file mode 100644 index 96f3af8e2..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/ku2.msk +++ /dev/null @@ -1 +0,0 @@ - 5480 1328 66 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 255 0 0 0 0 0 -256 -1 -1 -1 255 0 -256 -1 -1 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 255 0 0 0 0 0 -256 -1 -1 255 -256 -1 0 -256 -1 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 0 0 0 0 0 0 0 -1 -1 0 -1 255 0 0 -1 -1 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 -1 -256 0 0 0 0 0 255 -1 255 -256 -1 255 0 0 -256 -1 -256 0 0 0 0 0 255 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 255 0 0 0 0 0 -256 -1 0 255 0 0 0 -256 0 -1 255 0 -1 -1 255 0 -256 -1 0 255 0 0 0 -256 0 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 0 0 0 0 0 0 0 -1 -256 0 0 0 0 0 255 255 0 0 0 -1 0 0 0 -256 -256 0 0 0 0 0 255 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -256 0 0 0 0 0 255 -1 255 -1 0 0 0 -1 -256 0 -256 0 0 0 0 0 255 0 255 -1 0 0 0 -1 -256 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 0 255 0 0 0 -256 0 -1 -1 0 -1 0 -1 0 -1 0 -1 255 0 0 0 -256 -1 0 -1 0 -1 0 -1 0 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 0 0 0 0 0 0 -1 -256 0 0 0 0 0 255 -1 -1 -1 0 -1 0 -1 255 0 -1 -1 255 0 -256 -1 -1 0 -256 -1 0 -1 0 -1 -1 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 255 0 0 0 0 0 0 -256 255 -1 0 0 0 -1 -256 -1 -1 -1 -1 0 -1 -1 255 0 -256 -1 -1 -1 -1 -1 255 0 -256 -1 -1 0 -1 -1 -1 -256 0 0 0 0 0 255 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 255 255 0 0 0 0 -256 -256 -1 0 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 -1 -1 -1 -1 -1 0 0 255 -256 -1 -1 -1 -1 -1 0 255 0 0 0 -256 0 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 255 -256 0 0 0 0 255 -256 -1 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 0 0 0 -1 -1 -1 0 0 0 255 0 -1 -1 -1 -1 -1 -256 0 0 0 0 0 255 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 0 0 0 0 0 0 -1 255 255 0 0 0 0 -256 -256 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 0 0 0 -256 -1 255 0 0 0 -1 -256 -1 -1 -1 -1 -1 255 -1 0 0 0 -1 -256 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 255 0 0 0 0 0 0 -256 -1 -256 255 0 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 0 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 255 255 0 0 0 0 -256 -256 -1 255 -256 255 -256 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 -1 255 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 255 -256 0 0 0 0 255 -256 -1 -1 255 -256 255 -256 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 255 255 0 0 0 0 -256 -256 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 255 255 0 0 0 0 -256 -256 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 0 -1 -1 -1 255 0 -256 -1 -1 -1 -1 255 0 0 0 0 -256 -1 255 0 0 0 0 -256 -1 -1 -1 -1 255 0 -256 -1 -1 -1 255 -1 255 -256 0 0 0 0 255 -256 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 -1 -256 255 0 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 255 -256 -1 0 -256 -1 -1 -1 255 0 0 0 0 -1 -1 -1 0 0 0 0 -256 -1 -1 -1 255 -256 -1 0 -256 -1 -1 0 -256 255 255 0 0 0 0 -256 -256 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 0 255 -1 255 -256 255 -256 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 0 -1 255 0 0 -1 -1 -1 0 0 0 0 -256 -1 -1 -1 255 0 0 0 0 -1 -1 -1 0 -1 255 0 0 -1 -1 0 -256 -1 -256 255 0 0 -256 255 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 255 0 0 0 -256 0 -1 -1 255 -256 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 -256 -1 255 0 0 -256 -1 255 0 -256 0 0 -256 -1 -1 -1 255 0 0 255 0 -256 -1 255 -256 -1 255 0 0 -256 -1 255 0 -1 255 -256 255 -256 255 -256 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 0 255 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 0 0 -1 255 0 -256 -1 0 0 255 0 0 -256 -1 -1 -1 255 0 0 -256 0 0 -1 255 0 -1 -1 0 0 -256 -1 255 0 -1 -1 255 -256 255 -256 -1 -1 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 255 -1 0 0 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 255 0 0 -1 0 0 -256 255 0 -256 255 0 0 0 -1 -1 -1 0 0 0 -256 255 0 -256 255 0 0 -1 0 0 -256 -1 255 0 -256 -1 -1 255 -256 -1 -1 -1 -256 0 0 0 0 0 255 -1 -1 255 0 -256 -1 -1 -1 0 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 255 0 0 0 0 0 255 0 0 -1 0 0 0 0 -256 -1 255 0 0 0 0 -1 0 0 -256 0 0 0 0 0 -256 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 0 255 0 0 0 -256 0 -1 255 0 0 0 -256 -1 -1 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 0 0 0 0 0 0 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 0 0 0 0 0 0 0 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 0 255 -1 0 0 0 0 0 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 255 0 0 0 0 0 0 -256 -1 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 0 -1 255 0 0 0 0 0 0 -256 -1 0 0 -1 -1 -1 -1 -1 -1 -1 255 -1 0 0 0 -1 -256 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -1 0 0 0 -256 -1 -1 255 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -256 -1 -1 255 0 0 0 -1 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 0 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -1 0 0 0 -256 -1 -1 -1 0 -256 -1 255 0 0 -256 -1 -1 -1 -1 -1 255 0 0 -256 -1 255 0 -1 -1 -1 255 0 0 0 -1 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 -1 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 255 0 0 0 -1 -1 -1 -1 -1 255 -256 -1 -256 0 -1 255 0 0 0 -256 -1 0 255 -1 255 -256 -1 -1 -1 -1 -1 0 0 0 -256 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -256 0 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 0 -1 -256 0 -1 0 0 0 0 0 -1 0 255 -1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 255 0 0 0 -256 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 0 255 0 0 0 -1 -1 -1 -1 -1 -1 255 -256 0 0 -1 0 0 0 0 0 -1 0 0 255 -256 -1 -1 -1 -1 -1 -1 0 0 0 -256 0 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 255 -256 0 -1 255 -1 255 0 -256 -1 -256 -1 0 255 -256 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 0 0 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 255 -256 0 -1 -1 -1 -1 0 -1 -1 -1 -1 0 255 -256 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -256 -1 255 -1 -1 -1 -1 -1 0 -256 0 -1 0 -1 -1 -1 -1 -1 0 -1 0 255 0 -1 -1 -1 -1 -1 -256 -1 255 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 255 0 0 -256 255 0 -256 -1 -1 -1 255 0 -1 -256 -1 0 0 -256 -1 255 0 0 -1 255 -1 0 -256 -1 -1 -1 255 0 -256 255 0 0 -256 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 0 0 -256 255 0 -256 -1 -1 -1 255 -256 255 -256 -1 0 0 0 0 0 0 0 -1 255 -256 255 -256 -1 -1 -1 255 0 -256 255 0 0 -256 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 0 0 -1 255 0 0 -256 -1 255 255 -256 0 -1 255 -1 255 0 0 0 -256 -1 -256 -1 0 255 -256 -256 -1 255 0 0 -256 -1 0 0 -256 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 0 0 -1 0 0 0 0 -256 255 0 -256 -256 -1 0 -1 0 0 0 0 0 -1 0 -1 255 255 0 -256 255 0 0 0 0 -1 0 0 -256 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 0 0 -1 0 0 0 0 255 255 0 255 -256 -1 0 -1 0 0 0 0 0 -1 0 -1 255 -256 0 -256 -256 0 0 0 0 -1 0 0 -256 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 -256 255 -1 255 0 0 -1 0 -256 255 -256 -1 -1 255 -1 255 0 -256 -1 -256 -1 -1 255 -256 255 0 -1 0 0 -256 -1 -256 255 0 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 -256 -1 -1 -1 0 0 -1 -1 -256 255 0 -1 -256 -1 -1 -1 0 -1 -1 -1 255 -1 0 -256 255 -1 -1 0 0 -1 -1 -1 255 0 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 -256 0 -1 -1 255 0 -256 -1 -1 -1 255 0 -1 0 -1 -1 -1 -1 -1 0 -1 0 -256 -1 -1 -1 255 0 -256 -1 -1 0 255 0 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -256 0 0 -256 -1 255 0 -1 -1 -1 -1 255 -1 0 0 -256 -1 255 0 0 -1 -256 -1 -1 -1 -1 0 -256 -1 255 0 0 255 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 0 0 0 0 -256 0 -256 0 -1 -1 255 -1 0 0 0 0 0 0 0 -1 -256 -1 -1 0 255 0 255 0 0 0 0 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 0 0 0 255 -256 255 -256 -256 -1 -1 255 0 -256 -1 -1 255 255 -256 255 -256 0 0 0 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 255 0 0 -256 0 -1 255 -256 -1 -1 0 0 0 -1 -1 255 -256 -1 0 255 0 0 -256 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 0 0 0 255 -256 0 -1 255 255 0 0 0 -256 -256 -1 0 255 -256 0 0 0 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 0 0 0 -1 255 0 -1 0 255 0 0 0 -256 0 -1 0 -256 -1 0 0 0 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 -1 0 -256 255 0 0 0 -256 255 0 -1 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 255 0 -1 0 0 0 0 0 -1 0 -256 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 0 -256 -1 0 0 0 0 0 -1 255 0 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 0 0 0 0 0 -1 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/ku2.qbn b/programs/samples/qb45com/action/arqanoid/images/ku2.qbn deleted file mode 100644 index 7597a25d9..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/ku2.qbn +++ /dev/null @@ -1 +0,0 @@ - 5480 1328 66 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 7 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 1799 3341 7 0 0 0 0 0 0 0 0 0 0 0 1792 3341 1799 3341 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1799 3341 1799 1805 0 0 0 0 0 0 0 0 0 0 0 3335 1799 3341 1799 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 7 0 0 0 1792 1805 3341 1799 3341 3335 7 0 0 0 1792 1799 7 0 0 0 1792 1805 3341 1799 3341 3335 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 1799 3341 7 0 0 3328 3341 1799 3341 1799 3341 13 0 0 1792 7 0 1799 7 0 0 3328 3341 1799 3341 1799 3341 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1799 3341 1799 1805 0 0 3335 1799 3341 1799 3341 1799 1805 0 0 1799 0 1792 30840 1799 0 0 3335 1799 3341 1799 3341 1799 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 1805 3341 1799 3341 3335 7 0 7 3341 1799 3341 1799 3341 1792 0 1792 7 0 1792 30840 1799 7 0 7 3341 1799 3341 1799 3341 1792 0 0 1792 3341 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1805 0 0 0 3328 3341 1799 3341 1799 3341 13 0 3335 1792 3341 1799 3341 7 1805 0 1792 1912 0 0 1792 30727 7 0 3335 1792 3341 1799 3341 7 1805 0 1792 3341 1799 3341 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1805 3335 1805 0 0 3335 1799 3341 1799 3341 1799 1805 0 7 3341 1799 3341 1799 3341 1792 28160 1902 30727 1912 0 30727 1912 28167 110 7 3341 1799 3341 1799 3341 1792 0 3335 1799 3341 1799 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 1805 3335 1805 3335 7 0 7 3341 1799 3341 1799 3341 1792 0 1792 0 3341 1799 3341 0 7 29550 110 1799 30840 30840 30840 1799 28160 28275 1792 0 3341 1799 3341 0 7 1792 1805 3341 1799 3341 3335 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 3335 1805 3335 1805 1805 0 3335 1792 3341 1799 3341 7 1805 0 0 3335 0 3341 0 1805 0 28275 0 1792 1799 30840 1799 7 0 29550 0 3335 0 3341 0 1805 0 3328 3341 1799 3341 1799 3341 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1805 0 0 0 0 3341 1805 3335 1805 3335 3341 0 7 3341 1799 3341 1799 3341 1792 0 0 0 1799 0 1799 0 29440 28275 0 0 1792 1799 7 0 0 29550 115 0 1799 0 1799 0 0 3335 1799 3341 1799 3341 1799 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1805 3335 1805 0 0 1792 1805 3335 1805 3335 1805 3335 7 1792 0 3341 1799 3341 0 7 0 0 0 0 1799 0 0 28160 29555 110 0 0 0 0 0 28160 29555 110 0 0 1799 0 0 0 7 3341 1799 3341 1799 3341 1792 0 0 0 3335 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 1805 3335 1805 3335 7 0 1792 3328 1805 3335 1805 3335 13 7 0 3335 0 3341 0 1805 0 0 0 0 0 0 0 29440 110 29550 28275 0 0 0 0 0 29550 28275 28160 115 0 0 0 0 0 3335 1792 3341 1799 3341 7 1805 0 0 3335 1805 3335 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 3335 1805 3335 1805 1805 0 1792 13 3335 1805 3335 1805 3328 7 0 0 1799 0 1799 0 0 0 0 0 0 0 0 29555 110 29550 29555 28275 0 0 0 29550 29555 28275 28160 29555 0 0 0 0 0 7 3341 1799 3341 1799 3341 1792 0 1792 1805 3335 1805 3335 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 7 0 0 0 3341 1805 3335 1805 3335 3341 0 1792 3328 1805 3335 1805 3335 13 7 0 0 0 1799 0 0 0 0 0 0 0 0 0 28160 0 29550 29555 29555 110 0 28160 29555 29555 28275 0 110 0 0 0 0 0 1792 0 3341 1799 3341 0 7 0 3335 3335 1805 3335 1805 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 3341 1799 3341 7 0 1792 1805 3335 1805 3335 1805 3335 7 0 7 3328 1805 3335 13 1792 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 29555 29555 28275 110 0 28160 29550 29555 29555 110 0 0 0 0 0 0 0 3335 0 3341 0 1805 0 0 3341 1805 3335 1805 3335 3341 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1799 3341 1799 1805 0 1792 3328 1805 3335 1805 3335 13 7 0 1792 13 3328 13 3328 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 29555 29555 29550 110 0 28160 28275 29555 29555 110 0 0 0 0 0 0 0 0 1799 0 1799 0 0 1792 1805 3335 1805 3335 1805 3335 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1792 1805 3341 1799 3341 3335 7 1792 13 3335 1805 3335 1805 3328 7 0 0 1792 7 1792 7 0 0 0 0 27392 107 0 0 0 0 0 0 0 0 0 0 29550 29555 28275 29555 28275 28270 29550 29555 29550 29555 28275 0 0 0 0 0 0 0 0 0 1799 0 0 0 1792 3328 1805 3335 1805 3335 13 7 0 0 1792 3341 7 0 0 0 0 0 0 0 0 0 3328 3341 1799 3341 1799 3341 13 1792 3328 1805 3335 1805 3335 13 7 0 0 0 1792 7 0 0 0 0 0 27499 0 0 0 1792 1799 7 0 0 0 0 28160 29555 29555 29550 29555 110 0 28160 29555 28275 29555 29555 110 0 0 0 0 1792 1799 7 0 0 0 27392 0 1792 13 3335 1805 3335 1805 3328 7 0 1792 3341 1799 3341 7 0 0 0 0 0 0 0 0 3335 1799 3341 1799 3341 1799 1805 0 7 3328 1805 3335 13 1792 0 0 0 0 0 0 0 0 0 0 27392 27507 0 0 1792 7 0 1799 7 0 0 0 28160 29555 28275 29555 28275 0 0 0 29550 29555 29550 29555 110 0 0 0 1792 7 0 1799 7 0 0 29547 107 1792 3328 1805 3335 1805 3335 13 7 0 3335 1799 3341 1799 1805 0 0 0 0 0 0 0 0 7 3341 1799 3341 1799 3341 1792 0 1792 13 3328 13 3328 7 0 0 0 0 0 0 0 0 0 0 27392 27507 0 0 1799 0 1792 30840 1799 0 0 0 29550 28275 29550 29555 110 0 0 0 28160 29555 28275 29550 28275 0 0 0 1799 0 1792 30840 1799 0 0 29547 107 0 7 3328 1805 3335 13 1792 0 1792 1805 3341 1799 3341 3335 7 0 0 0 0 0 0 0 3335 1792 3341 1799 3341 7 1805 0 0 1792 7 1792 7 0 0 0 0 0 0 0 0 0 0 0 3435 107 0 1792 7 0 1792 30840 1799 7 0 28160 28275 110 29555 29555 110 0 0 0 28160 29555 29555 28160 29550 110 0 1792 7 0 1792 30840 1799 7 0 27392 27405 0 1792 13 3328 13 3328 7 0 3328 3341 1799 3341 1799 3341 13 0 0 0 0 0 0 0 7 3341 1799 3341 1799 3341 1792 0 0 0 1792 7 0 0 0 0 0 0 0 0 0 0 0 0 3341 107 0 1792 1912 27499 0 1792 30727 7 0 29550 28270 29440 29555 29555 110 0 0 0 28160 29555 29555 115 28270 28275 0 1792 1912 0 0 1899 30727 7 0 27392 3341 0 0 1792 7 1792 7 0 0 3335 1799 3341 1799 3341 1799 1805 0 0 0 0 0 0 0 1792 0 3341 1799 3341 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27405 107 0 1792 30727 1912 0 30727 1912 7 28160 28270 110 29440 29555 29555 28275 0 0 0 29550 29555 29555 115 28160 28270 110 1792 30727 1912 0 30727 1912 7 0 27392 3435 107 0 0 1792 7 0 0 0 7 3341 1799 3341 1799 3341 1792 0 0 1792 3341 7 0 0 0 3335 0 3341 0 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3328 27405 0 0 27392 1799 30840 30840 30840 1799 28160 28270 28270 0 29555 29555 29555 29555 110 0 28160 29555 29555 29555 29555 0 28270 28270 110 1799 30840 30840 30840 1799 107 0 0 3435 13 0 0 0 0 0 0 0 3335 1792 3341 1799 3341 7 1805 0 1792 3341 1799 3341 7 0 0 0 1799 0 1799 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3435 27499 0 0 3435 1805 1799 30840 1799 28167 28270 28270 28270 29440 29555 29555 29555 29555 28275 28270 29550 29555 29555 29555 29555 115 28270 28270 28270 1902 1799 30840 1799 3335 27405 0 0 27499 27405 0 0 0 0 0 0 0 7 3341 1799 3341 1799 3341 1792 0 3335 1799 3341 1799 1805 0 0 0 0 1799 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3341 27499 0 27392 3341 29555 1899 1799 28167 28270 110 0 28270 29440 29555 29555 28275 28270 28270 28270 28270 28270 29550 29555 29555 115 28270 0 28160 28270 1902 1799 27399 29555 3341 107 0 27499 3341 0 0 0 0 0 0 0 1792 0 3341 1799 3341 0 7 1792 1805 3341 1799 3341 3335 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27405 27507 0 29547 3341 27507 107 0 0 28160 0 0 0 28160 29555 28275 28270 28270 28270 28270 28270 28270 28270 29550 29555 110 0 0 0 110 0 0 27392 29547 3341 27507 0 29547 3435 107 0 0 0 0 0 0 0 3335 0 3341 0 1805 0 3328 3341 1799 3341 1799 3341 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 29555 27499 0 3435 3341 27507 107 0 0 0 28270 110 0 28160 28270 28270 110 0 0 0 0 0 28160 28270 28270 110 0 28160 28270 0 0 0 27392 29547 3341 27405 0 27499 29555 107 0 0 0 0 0 0 0 0 1799 0 1799 0 0 3335 1799 3341 1799 3341 1799 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 29555 107 27392 3443 29453 27507 0 0 0 0 0 27392 115 0 107 29547 0 28160 29555 29555 29555 110 0 27507 27392 0 29440 107 0 0 0 0 0 29547 3443 29453 107 27392 29555 27507 0 0 0 0 0 0 0 0 0 1799 0 0 0 7 3341 1799 3341 1799 3341 1792 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 27507 3443 29555 27499 0 0 0 0 0 0 29547 0 115 29547 0 28270 29555 29555 29555 28270 0 27507 29440 0 27507 0 0 0 0 0 0 27499 29555 29453 29547 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 1792 3341 1799 3341 7 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 29555 107 29555 27392 3341 29555 27499 0 0 0 0 0 0 27392 115 29547 29547 0 28270 29550 29555 28275 28270 0 27507 27507 29440 107 0 0 0 0 0 0 27499 29555 3341 107 29555 27392 29555 107 0 0 0 0 0 0 0 0 0 0 0 0 7 3341 1799 3341 1799 3341 1792 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 29555 107 0 29547 29453 27507 107 0 0 0 0 0 0 27392 115 29547 0 28160 0 28160 29555 110 0 110 0 27507 29440 107 0 0 0 0 0 0 27392 29547 3443 27507 0 27392 29555 107 0 0 0 0 0 0 0 0 0 0 0 0 1792 0 3341 1799 3341 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27507 0 0 3435 29555 27507 0 0 0 0 0 0 0 27392 115 29547 0 0 0 0 28270 0 0 0 0 27507 29440 107 0 0 0 0 0 0 0 29547 29555 27405 0 0 29547 107 0 0 0 0 0 0 0 0 0 0 0 0 0 3335 0 3341 0 1805 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 0 3435 29555 107 0 29440 0 0 0 0 0 29547 107 29547 0 28270 0 0 0 0 0 28270 0 27507 27392 27507 0 0 0 0 0 115 0 27392 29555 27405 0 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1799 0 1799 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 27392 3443 29555 107 29440 29555 115 0 0 0 27392 29547 0 115 0 29550 29555 115 0 29440 29555 28275 0 29440 0 27507 107 0 0 0 29440 29555 115 27392 29555 29453 107 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1799 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 27392 29453 29555 107 29440 27499 107 0 0 0 27392 115 27392 115 0 28270 28270 29550 29453 28275 28270 28270 0 29440 107 29440 107 0 0 0 27392 27499 115 27392 29555 3443 107 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 27392 29453 29555 0 27392 29555 3443 107 0 27392 27392 115 29547 0 29440 0 28160 29555 29555 29555 110 0 115 0 27507 29440 107 107 0 27392 29453 29555 107 0 29555 3443 107 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 27392 29453 29555 0 27499 29555 29555 27405 107 27392 29555 107 115 0 29547 0 28270 29555 29555 29555 28270 0 27507 0 29440 27392 29555 107 27392 3435 29555 29555 27499 0 29555 3443 107 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 27392 29555 29555 0 27499 29547 29555 27405 27392 27392 27507 29440 107 0 29547 0 28270 29550 29555 28275 28270 0 27507 0 27392 115 29547 107 107 3435 29555 27507 27499 0 29555 29555 107 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 29547 29555 107 27392 0 27392 29555 3341 0 27499 107 27392 107 0 0 28160 0 28160 29555 110 0 110 0 0 27392 107 27392 27499 0 3341 29555 107 0 107 27392 29555 27507 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 29547 29555 107 0 0 0 29547 3341 0 0 107 27392 27499 0 107 0 0 0 28270 0 0 0 27392 0 27499 107 27392 0 0 3341 27507 0 0 0 27392 29555 27507 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 29547 29555 107 27499 0 0 27392 29547 107 0 0 0 27392 27499 0 28270 0 0 0 0 0 28270 0 27499 107 0 0 0 27392 27507 107 0 0 27499 27392 29555 27507 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 0 29547 29555 107 29547 29555 115 0 27392 27507 0 0 0 0 27392 0 29550 29555 115 0 29440 29555 28275 0 107 0 0 0 0 29547 107 0 29440 29555 27507 27392 29555 27507 0 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 29555 107 27499 27499 29547 29453 107 29547 107 29547 0 0 27392 0 28270 28270 29550 29453 28275 28270 28270 0 107 0 0 27507 27392 27507 27392 29555 27507 27499 27499 27392 29555 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 0 0 0 0 27499 27499 27507 27392 115 27392 107 107 0 0 28672 28784 112 0 0 27392 27392 107 29440 107 29547 27499 27499 0 0 0 0 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 0 0 0 0 27392 27499 29555 107 29547 0 27392 107 0 0 30320 30326 28790 0 0 27392 107 0 27507 27392 29555 27499 107 0 0 0 0 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 0 0 0 0 0 29555 29555 27507 27392 107 27499 0 28672 28672 30320 30326 28790 112 112 0 27499 27392 107 29547 29555 29555 0 0 0 0 0 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27507 0 0 0 0 0 0 27499 29555 27507 0 27392 27507 0 30320 28672 30320 30326 28790 112 28790 0 29547 107 0 29547 29555 27499 0 0 0 0 0 0 29547 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 0 0 0 0 0 0 27392 107 0 29555 0 28779 118 28672 28784 30326 28784 112 30208 27504 0 29555 0 27392 107 0 0 0 0 0 0 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 0 0 0 0 0 0 0 0 29547 115 27392 30315 0 3440 28784 30326 28784 28685 0 27510 107 29440 27507 0 0 0 0 0 0 0 0 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 107 0 0 0 0 0 0 0 27392 0 0 0 27499 115 0 3440 28784 30326 28784 28685 0 29440 27499 0 0 0 107 0 0 0 0 0 0 0 27392 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 0 0 0 0 0 0 0 27499 27499 27499 0 0 0 28784 28685 30326 3440 28784 0 0 0 27499 27499 27499 0 0 0 0 0 0 0 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28672 3341 28784 3341 112 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28672 3440 28784 28685 112 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28672 112 28784 28672 112 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28784 28784 28784 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30221 28784 3446 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28685 0 3440 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28685 0 3440 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30208 0 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/langaw.put b/programs/samples/qb45com/action/arqanoid/images/langaw.put deleted file mode 100644 index 35247d639..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/langaw.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/mummy.msk b/programs/samples/qb45com/action/arqanoid/images/mummy.msk deleted file mode 100644 index afcabc441..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/mummy.msk +++ /dev/null @@ -1 +0,0 @@ - 9041 1104 131 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 255 0 -1 255 0 -256 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 0 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 -1 255 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 255 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -256 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 0 255 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 255 0 0 0 0 0 0 0 0 0 0 -256 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 255 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 -256 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 -256 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 0 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 -256 0 0 -256 0 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 255 0 -256 0 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 255 0 -256 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 -256 0 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 -256 0 -256 -1 255 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 0 -1 -1 -1 255 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 0 255 0 -256 0 0 0 0 0 0 0 0 -256 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 255 -256 0 0 0 255 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 255 -256 0 -1 255 -1 255 -256 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 -1 255 -256 -1 -1 -256 -1 -256 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 0 0 0 0 0 0 0 0 255 0 -256 -1 -256 0 0 0 0 0 0 0 0 -256 -1 255 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 255 0 0 0 0 0 0 0 0 0 -256 -256 0 255 -256 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 0 0 0 0 0 0 0 -256 -256 0 255 -256 -1 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 255 0 -256 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 0 -1 255 0 0 0 0 0 -256 0 255 255 -1 -1 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 255 0 0 0 0 0 0 0 -1 255 255 0 0 0 0 0 0 0 0 0 -1 -1 255 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -256 -1 0 0 0 0 0 0 0 0 -1 255 255 0 0 0 0 0 0 0 0 0 -256 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 0 0 0 0 0 0 0 -256 -256 -256 -1 255 0 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 0 0 -256 -1 0 0 0 0 0 0 0 -256 -256 -256 -1 255 0 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 255 0 -256 -1 0 0 0 0 0 0 0 255 0 -256 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 255 0 0 -1 0 0 0 0 0 0 0 255 0 -256 0 0 0 0 0 0 0 0 0 0 0 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 0 -1 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 0 0 0 0 0 0 255 0 0 -1 255 0 0 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 0 -1 0 0 0 0 0 0 -1 0 -256 0 0 0 0 0 0 0 0 0 0 0 -256 -1 255 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 0 -256 0 0 0 0 0 -256 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 255 -256 0 0 0 0 0 -1 -1 -1 -1 -1 255 0 0 0 0 255 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 0 0 0 0 0 -256 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 -256 255 255 -1 -1 -256 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 255 0 -256 -1 -1 -1 0 0 0 0 0 0 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 -256 255 0 -1 0 0 0 0 0 0 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 255 0 0 0 0 -1 -1 0 -1 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 255 0 0 0 -256 0 -256 255 255 0 0 0 0 0 0 -1 255 0 0 0 0 0 0 0 -256 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 255 255 0 0 0 0 0 -1 -1 0 0 0 0 0 0 0 -256 -1 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 255 0 0 -1 255 0 0 0 0 -256 -256 255 0 0 0 0 0 0 0 -256 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 255 0 -256 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 -1 255 0 -1 255 0 0 0 0 255 -256 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 255 0 0 0 0 0 255 0 -256 0 0 0 0 -256 0 -256 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -256 255 0 0 0 0 255 0 -256 0 0 0 0 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 255 0 0 0 255 0 -256 0 0 0 0 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 0 0 0 -256 0 -256 0 0 0 -256 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 -256 -1 0 0 0 -256 0 255 0 0 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 0 -256 -1 255 0 0 0 255 255 0 0 0 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 255 0 0 0 -1 255 0 0 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 255 0 0 0 -256 255 0 0 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 -1 -1 255 0 0 0 -256 0 0 0 -256 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 0 -1 -1 255 0 0 0 -256 0 0 0 -256 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 0 0 0 -256 0 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 0 0 -256 -1 0 0 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -256 -1 -1 -1 0 -256 255 255 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 -256 -1 -1 -1 -256 255 0 255 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 255 -256 255 0 0 -256 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 255 -256 -1 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -256 -1 -1 255 -256 255 -256 0 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 -256 -1 -1 -1 -1 0 -256 0 0 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 255 -256 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -1 -1 -1 255 -256 255 -256 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -256 -1 0 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 255 -256 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 255 255 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 255 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 255 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 0 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 0 0 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/mummy.qbn b/programs/samples/qb45com/action/arqanoid/images/mummy.qbn deleted file mode 100644 index d57c77076..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/mummy.qbn +++ /dev/null @@ -1 +0,0 @@ - 9041 1104 131 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2313 2313 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2313 2313 2313 2313 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2305 265 0 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 257 257 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 265 257 257 2305 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30720 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30840 30828 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2313 2313 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30720 30840 27768 30828 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2313 2313 2313 2313 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27648 27756 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2305 265 0 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27756 30828 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27648 27756 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 257 257 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29292 30834 120 0 0 0 0 0 0 0 29184 29298 29298 29298 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 265 257 257 2305 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27756 30840 120 0 0 0 0 0 29298 29298 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 29298 30834 0 0 0 27756 27756 27756 30840 30840 29298 29298 27762 29292 27756 27756 29292 29298 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 27756 30840 0 0 27756 29298 30840 30840 27756 27756 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 29298 120 0 27648 29292 30840 27756 27756 30828 30840 27756 27756 27756 27756 27756 27756 27756 27756 27756 29298 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 27648 29292 0 0 27756 30828 27756 27756 30840 27768 27756 30828 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2313 2313 2313 265 0 0 0 0 0 0 0 29184 29298 0 29184 29292 114 27756 30840 27768 27756 30840 30840 27756 29298 29298 29298 0 0 0 29298 27756 27756 29292 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2313 2313 2313 2313 256 0 0 0 0 0 0 0 27648 30828 27648 27756 29292 29298 30720 30840 27756 30828 30840 27756 29292 29298 29298 29298 29298 29298 114 0 29184 27762 27756 27756 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2305 265 0 256 0 0 0 0 0 0 0 29184 30834 30834 29298 29298 29298 30840 27768 30828 30840 27756 29298 29298 120 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 257 257 0 0 0 0 0 0 0 27756 30840 30840 29298 29298 29298 30840 27756 30840 27768 29292 29298 30840 120 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 257 257 257 1 0 0 0 0 0 0 0 29298 29304 30834 29298 29298 30834 27768 30828 30840 27756 29298 30840 29304 29298 29292 29298 29298 29298 29298 114 0 29298 27756 29292 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 265 257 257 2305 1 0 0 0 0 0 0 0 27756 29304 29298 30840 0 30840 27756 30840 27768 29292 30834 29304 29298 29298 29292 29298 29298 29298 29298 29298 0 0 29298 27756 27756 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 29298 29298 27762 27768 30834 27768 29292 30840 27756 29298 30840 29298 29298 120 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 29292 29292 27648 29304 30834 29304 30834 27768 29292 30834 29304 29298 30840 120 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27648 114 0 0 0 0 30840 27768 29298 30840 29298 30834 29304 29298 27756 29298 29298 29298 29298 29298 114 0 29298 27756 27756 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 27756 27768 27768 0 27648 30828 29304 29298 30840 29298 29298 27756 29292 29298 29298 29298 29298 29298 0 29184 29298 27756 27756 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29298 29298 29301 29301 29301 29301 30066 29301 30834 29304 29298 120 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29298 29298 29301 29301 29301 29301 29298 29298 30840 29298 30834 120 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29298 29298 29298 30069 29298 29298 29298 30840 29298 30840 29298 27756 27756 29298 29298 29298 29298 29298 114 0 29298 27756 27756 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 29298 29298 29298 29298 29298 29298 29298 27648 30828 29304 29298 27756 27756 29298 29298 29298 29298 29298 29298 0 0 29298 27762 27756 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 29298 29298 29298 29298 29298 29298 29298 108 30840 29298 114 30840 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 29298 29298 29298 29298 29298 29298 29298 27648 27648 29298 120 30840 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 30069 30069 29301 29298 29298 29298 29298 27756 27648 30834 120 27756 27756 29292 29298 29298 29298 29298 29298 0 0 27762 27756 27756 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 30069 30069 30069 30069 30069 29298 29298 29298 29292 114 30840 29298 27756 27756 29292 29298 29298 29298 29298 29298 29298 0 0 29298 27756 27756 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 30069 29298 29298 29298 30066 30069 29301 29298 29298 114 27768 114 0 30720 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 29298 29298 29298 29298 29298 29298 29298 29184 29298 0 0 0 30720 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29298 30069 30069 30069 29298 29298 29298 29298 29184 29298 27648 27756 108 29298 27756 29298 29298 29298 29298 29298 29298 114 0 29184 27756 29292 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 30066 29298 29298 29555 30069 30069 30069 29298 29184 114 27756 29298 27762 29184 27762 29292 29298 29298 29298 29298 29298 29298 0 0 29298 27756 27756 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 256 2305 2313 265 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 30066 29298 29298 29555 29555 30069 30069 29298 29184 114 29292 0 29184 0 30720 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2827 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 29557 29299 29298 29555 30067 29298 29298 29298 0 27648 108 0 0 114 0 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2827 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29184 30069 29555 29554 30067 29301 29298 29298 29298 29298 27648 29298 114 0 114 29298 27756 29298 29298 29298 29298 29298 29298 114 0 29184 27756 27756 29298 29298 0 0 0 0 0 0 0 0 0 0 0 256 2313 2313 2313 2313 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29184 29298 30069 30069 29301 29298 29298 29298 29298 29298 114 114 29298 29184 114 29298 27756 29298 29298 29298 29298 29298 29298 29298 0 0 29298 27756 27756 29298 114 0 0 0 0 0 0 0 0 0 0 256 2304 2313 2313 2313 9 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 114 0 29298 29041 29041 29041 29041 29041 29041 29297 29298 114 108 29298 29184 114 0 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 256 0 256 2313 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 114 29298 29298 29298 0 28928 29041 29041 29041 29298 29298 114 27756 29184 27648 0 0 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 256 257 1 0 256 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29297 29298 29298 29298 29298 0 28928 29041 29041 29041 29298 29298 29298 27762 0 27648 29184 29298 27756 29292 29298 29298 29298 29298 29298 29298 0 0 29184 27756 27756 29298 29298 0 0 0 0 0 0 0 0 0 0 0 257 257 257 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29297 29298 29298 29298 114 0 29041 29041 29041 29297 29298 29298 29298 27762 0 27648 29184 27762 27756 29292 29298 29298 29298 29298 29298 29298 114 0 0 29298 27762 27756 29298 0 0 0 0 0 0 0 0 0 0 0 2305 257 257 257 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29298 29042 29298 29298 114 0 29041 29041 29041 29298 29298 29298 29298 114 114 114 0 30720 30840 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 256 2305 2313 265 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29298 0 29298 29298 114 0 29041 29041 29041 29298 29298 29298 29298 114 114 114 0 30720 30840 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 256 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29298 29298 29184 29298 114 0 29041 29041 29297 29298 29298 29298 29298 29184 29298 114 29298 27762 27756 27756 29298 29298 29298 29298 29298 29298 114 0 0 27762 27756 29292 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29298 29184 29298 29298 0 29041 29041 29297 29298 29298 29298 27762 29184 27762 114 29298 27762 27756 27756 29292 29298 29298 29298 29298 29298 29298 0 0 29184 29298 27756 27756 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 114 29042 29298 29298 0 29041 29041 29297 29298 29298 29298 29298 27756 27756 0 0 30840 30840 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29041 29297 29298 0 29041 29041 29298 29298 29298 29298 29184 27762 29292 0 30720 30840 30840 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29041 0 29298 0 29041 29041 29298 29298 29298 29298 0 29298 114 29298 27762 27756 27756 27756 27756 29298 29298 29298 29298 29298 114 0 29184 27756 27756 29292 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29042 113 0 29298 114 29041 29297 29298 29298 29298 114 0 0 0 29298 27762 27756 27756 27756 27756 29298 29298 29298 29298 29298 114 0 0 29298 27762 27756 29292 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 114 0 29184 114 29041 29298 29298 29298 29298 0 0 0 0 0 30720 30840 30840 30840 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29298 29298 29297 29298 29298 29298 29298 29298 114 0 0 0 0 0 30840 30840 30840 30840 30840 120 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29298 29298 29298 29298 29298 29298 0 0 0 0 0 27756 27756 27756 27756 27756 27756 29292 29298 29298 29298 29298 114 0 0 27762 27756 27756 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29297 29298 29298 29298 29298 29298 29298 114 29184 29184 0 0 114 27756 27756 27756 27756 27756 27756 29292 29298 29298 29298 29298 0 0 0 29184 29298 27756 27756 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 29298 29298 29298 29298 29298 29298 29184 29042 114 0 0 0 30840 30840 30840 30840 30840 30840 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2305 2313 265 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29042 29297 29298 29298 29041 29298 29298 29042 29041 114 27648 29298 0 30840 30840 30840 30840 30840 30840 30840 30720 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 30840 120 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2827 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29042 29041 29298 114 28928 29298 29298 29041 29041 0 0 27762 0 29298 29298 29298 29298 29298 29298 27756 108 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2827 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29297 29298 114 29184 29298 29298 29298 113 29292 114 27648 27648 27756 27756 27756 27756 27756 27756 0 29184 29298 29298 29298 29298 27762 27756 27756 108 0 0 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2313 2313 2313 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29297 29298 29298 29298 29298 29298 29298 29298 27756 29292 27648 30720 30840 30840 30840 30840 30840 0 0 29298 29298 29298 29298 29298 29298 27762 108 0 29184 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2304 2313 2313 2313 9 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29298 29298 29298 29298 29298 29298 28928 27762 29292 0 30720 30840 30840 30840 30840 120 108 29184 29298 29298 29298 29298 29298 29298 27756 108 0 29184 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 0 256 2313 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29041 29297 29298 29298 29298 29298 0 27648 29298 0 27648 29298 29298 29298 27756 27648 108 29184 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 1 0 256 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 0 0 28928 29297 29042 29298 29298 29298 27648 27762 114 27756 27756 27756 27756 108 27762 108 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 257 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 114 114 28928 29041 29298 29298 29298 27648 27756 108 30840 30840 30840 30840 29184 27762 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 257 257 257 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 29298 114 28928 29042 29298 29298 27648 29292 108 30840 30840 30840 30840 29184 27762 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2305 2313 265 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29297 0 0 0 29041 29298 29042 114 29292 108 29292 29298 27762 108 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 114 29297 114 0 29297 29297 29042 114 27756 27648 27756 27756 27756 108 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 114 28928 29297 114 0 28928 29297 29298 29292 29184 30720 30840 30840 30840 29184 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29298 0 0 28928 29297 29298 29292 0 30720 30840 30840 30840 29184 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29042 29297 0 0 0 28928 29041 29298 27756 114 27648 29298 27762 27756 29184 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 114 29298 0 0 28928 29041 29298 27762 108 27756 27756 27756 108 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 114 28928 29298 0 0 28928 29041 29298 27762 108 30840 30840 30840 120 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29298 0 0 0 29041 29298 29298 114 30840 30840 30840 120 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29042 29297 0 0 0 0 29297 29298 114 0 29292 29298 27756 29184 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 114 114 0 0 0 29041 113 29184 27648 27756 27756 27756 29184 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 114 28928 114 0 0 0 113 28928 29292 30720 30840 30840 30840 29184 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 114 0 0 0 0 29184 114 30720 30840 30840 120 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29042 29297 0 0 0 0 28928 113 0 27648 29298 27756 108 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 114 114 0 0 28928 113 28928 114 27756 27756 27756 108 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 114 29184 114 0 0 0 0 29297 114 30840 30840 30840 29184 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29298 0 0 0 0 28928 113 0 30840 30840 30840 29184 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29298 29298 0 0 0 28928 113 28928 114 29292 27756 27756 29184 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 29297 114 0 0 0 113 0 29297 27648 27756 27756 108 108 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29184 0 0 0 0 0 28928 113 30720 30840 30840 120 108 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2313 2313 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 113 29184 30720 30840 30840 27648 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2313 2313 2313 2313 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 113 0 29297 27648 27756 27756 27648 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2305 265 0 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 114 27756 27756 108 29184 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 113 0 30840 30840 120 108 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 257 257 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 113 29184 114 30840 120 29184 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 265 257 257 2305 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 113 29184 29298 29298 0 29184 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 29184 29042 29297 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 29042 29297 29041 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 29041 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2313 2313 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2313 2313 2313 2313 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2305 265 0 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 257 257 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 265 257 257 2305 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 2313 2825 2315 2313 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2305 2313 2313 2313 2313 265 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2313 2313 2313 2313 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2305 265 0 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 257 257 257 257 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256 265 257 257 2305 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 2313 2313 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 257 257 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/paddle.put b/programs/samples/qb45com/action/arqanoid/images/paddle.put deleted file mode 100644 index a080e55a5..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/paddle.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/padlasr.put b/programs/samples/qb45com/action/arqanoid/images/padlasr.put deleted file mode 100644 index dc69728cb..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/padlasr.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/pointer.put b/programs/samples/qb45com/action/arqanoid/images/pointer.put deleted file mode 100644 index 8eba27709..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/pointer.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/pwercaps.put b/programs/samples/qb45com/action/arqanoid/images/pwercaps.put deleted file mode 100644 index 923b57810..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/pwercaps.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/qbball.put b/programs/samples/qb45com/action/arqanoid/images/qbball.put deleted file mode 100644 index 4d7a31f1b..000000000 Binary files a/programs/samples/qb45com/action/arqanoid/images/qbball.put and /dev/null differ diff --git a/programs/samples/qb45com/action/arqanoid/images/rotator.msk b/programs/samples/qb45com/action/arqanoid/images/rotator.msk deleted file mode 100644 index 8a2d8d4b8..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/rotator.msk +++ /dev/null @@ -1 +0,0 @@ - 6846 944 116 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 255 255 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 -256 255 0 -256 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 255 0 -256 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 255 0 0 0 -1 255 255 0 0 0 0 0 0 0 0 0 0 0 -256 -256 -1 0 0 0 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 0 0 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 0 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 0 0 0 0 0 255 -256 0 0 0 0 0 0 0 0 0 0 0 255 -256 0 0 0 0 0 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 0 0 0 0 0 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 0 0 0 0 0 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 0 0 0 255 0 -256 0 0 0 0 0 0 0 0 0 255 0 -256 0 0 0 0 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 0 0 0 0 255 0 0 255 0 0 0 0 0 0 0 -256 0 0 -256 0 0 0 0 0 -1 255 -256 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 0 0 0 0 0 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 0 0 0 -1 0 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -256 -256 -1 255 255 255 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -256 -256 -1 255 255 -1 0 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 -256 0 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 0 -256 0 255 0 255 -256 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -256 0 255 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -256 0 255 -1 255 -256 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -256 0 255 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -256 0 255 -1 0 -1 255 255 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -256 -1 255 255 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 -256 -1 255 -1 0 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 -1 -256 0 -1 0 -1 0 -1 0 -1 -1 0 0 0 0 0 0 0 0 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 -1 0 -1 0 -1 0 -1 0 -1 -256 -1 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 -1 -256 255 -1 0 -1 0 -1 0 -1 0 -1 -256 255 -1 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 -1 0 -256 -1 -1 0 0 0 -1 -1 255 0 -1 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 0 -256 -1 255 0 0 0 -256 -1 255 0 -256 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 0 -256 -1 0 -1 -1 -1 0 -1 255 0 -256 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 255 0 -256 255 -256 0 255 0 255 -256 255 0 -256 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 255 0 -256 0 255 0 255 0 -256 0 255 0 -256 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 255 -1 -1 -1 -256 0 255 0 -256 -256 0 0 255 0 0 255 0 0 -256 0 255 0 0 0 0 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 0 255 0 0 0 -256 0 255 0 -256 -256 0 0 255 0 0 255 0 0 -256 0 255 0 0 0 0 0 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 0 255 -1 -1 -1 -256 0 255 0 -256 -256 -1 -1 -1 -1 -1 255 0 0 -256 0 255 255 -1 -1 -256 0 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 255 0 0 -256 -256 -256 0 -256 -256 0 0 255 0 0 255 0 0 255 255 255 0 0 0 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 0 255 0 0 -256 -256 -256 0 -256 -256 0 0 255 0 0 255 0 0 255 255 255 0 0 -256 0 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -256 -256 0 -256 -256 0 0 255 0 0 255 0 0 255 255 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 0 255 255 -256 -256 -256 -256 0 -256 255 255 0 255 0 -256 0 255 0 255 255 255 255 -256 -256 0 0 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 -1 255 255 -256 -256 -256 -256 0 -256 -1 -256 0 255 0 255 -256 255 0 255 255 255 255 -256 -256 -1 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 -256 255 255 -256 -256 -256 -256 0 -256 -1 255 -1 -1 -1 0 -1 255 0 255 255 255 255 -256 -256 255 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 255 -256 -256 -1 -256 -1 -256 -1 -1 0 0 0 -256 -1 255 -1 255 -1 255 255 -256 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 -256 -256 -1 -1 -1 255 0 255 0 -1 -1 -1 0 0 0 -1 -1 -1 0 -256 0 -256 -1 -1 -1 255 255 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -256 -256 0 0 -1 0 0 0 0 -256 255 255 -1 -1 -1 -1 -1 -256 -256 255 0 0 0 0 -1 0 0 255 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -256 -256 0 0 255 0 0 0 0 -256 0 -1 -1 -1 -1 -1 -1 -1 0 255 0 0 0 0 -256 0 0 255 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -256 0 0 255 0 0 0 0 -256 0 0 -1 -1 -1 -1 -1 0 0 255 0 0 0 0 -256 0 0 255 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -256 0 0 255 0 0 0 0 -256 0 0 255 0 0 0 -256 0 0 255 0 0 0 0 -256 0 0 255 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 -1 0 0 255 0 0 0 0 0 0 0 255 0 0 0 -256 0 0 0 0 0 0 0 -256 0 0 -1 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 255 -256 -1 0 255 0 0 0 0 0 255 0 255 0 0 0 -256 0 -256 0 0 0 0 0 -256 0 -1 255 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 -256 0 255 0 0 0 0 0 0 0 255 255 0 -256 -256 0 0 0 0 0 0 0 -256 0 255 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 -256 0 0 0 0 0 0 0 0 0 255 255 0 -256 -256 0 0 0 0 0 0 0 -256 0 255 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 -256 -256 -256 0 0 255 -1 -1 -1 -1 -1 -256 0 0 255 255 255 255 255 255 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 0 0 0 0 0 -256 -256 -256 0 0 -1 -1 -1 -1 -1 -1 -1 0 0 255 255 255 255 255 255 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -256 -256 -256 0 0 0 -1 -1 -1 -1 -1 0 0 0 255 255 255 255 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 255 -256 0 0 0 0 -256 -256 -256 0 0 0 255 0 0 0 -256 0 0 0 255 255 255 255 255 0 255 255 -256 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 -256 0 0 -256 255 -256 -256 -256 0 0 0 255 0 0 0 -256 0 0 0 255 255 255 -1 -1 0 0 255 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 -256 0 0 255 -256 -1 -256 -256 0 0 0 255 0 0 0 -256 0 0 0 255 255 -1 255 -256 0 0 255 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 0 0 0 0 -256 -1 -256 -1 0 0 255 255 0 -256 -256 0 0 -1 255 -1 255 0 -256 0 0 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 0 0 255 0 255 0 255 255 0 -256 -256 0 -256 0 -256 0 0 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -1 0 0 0 0 -256 255 255 -1 -1 -1 -1 -1 -256 -256 255 0 0 0 0 -1 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 255 0 0 0 0 -256 0 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -256 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 255 255 0 255 0 0 0 0 -256 0 0 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 -256 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 255 255 0 255 0 0 0 0 -256 0 0 255 0 0 0 -256 0 0 0 0 0 0 0 -256 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 255 255 0 255 0 0 0 0 0 0 0 255 0 0 0 -256 0 0 0 0 0 0 0 -256 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 255 -1 0 255 0 0 0 0 0 255 0 255 0 0 0 -256 0 0 0 0 0 0 0 -256 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -256 -1 255 -1 0 255 0 0 0 0 0 0 0 255 255 0 -256 -256 0 0 0 0 0 0 0 -256 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 -1 -256 -1 255 -1 0 255 0 0 0 0 0 0 0 255 255 0 -256 -256 0 0 0 0 0 0 0 -256 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 0 -256 0 255 -256 -1 255 0 -256 -1 -1 -1 -1 -1 255 0 0 0 255 -256 0 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 0 -256 -256 255 -1 0 -1 0 -256 -1 -1 -1 -1 -1 255 0 -1 0 -1 -256 255 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 0 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 0 -1 -1 -1 255 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 255 -1 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 255 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 -1 -1 -256 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 255 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 -1 -1 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 0 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/rotator.qbn b/programs/samples/qb45com/action/arqanoid/images/rotator.qbn deleted file mode 100644 index c4740070d..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/rotator.qbn +++ /dev/null @@ -1 +0,0 @@ - 6846 944 116 0 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31097 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 31097 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 28160 30326 30326 118 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31094 30329 110 0 0 0 28160 30208 30326 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31094 30329 28278 0 0 0 0 110 0 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28278 0 0 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28160 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 30326 118 28160 0 0 0 0 0 0 0 0 0 0 0 28160 31094 30329 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 110 0 0 0 0 0 0 0 0 0 0 0 30318 31094 30329 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 30326 118 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31094 30329 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31097 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31094 30329 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 31097 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 118 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 30326 118 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30208 30326 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 0 0 0 110 28160 28270 110 0 30208 0 0 0 0 0 0 0 0 0 0 0 0 0 118 0 28160 28270 110 0 0 0 0 121 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 110 0 0 28160 28270 31097 28270 0 30208 28160 28270 28270 28270 28270 28270 28270 28270 28270 28270 28270 28270 110 118 0 28270 31097 28270 0 0 0 28160 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 121 0 0 0 28270 28270 28270 0 30208 118 0 0 0 0 0 0 0 0 0 0 0 30208 118 0 28270 28270 28270 0 0 0 30976 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28281 0 0 30326 30326 30326 30326 30326 28160 118 31086 31097 31097 31097 31097 31097 31097 31097 31097 31097 28281 30208 110 30326 30326 30326 30326 30326 0 0 31086 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 31086 0 0 31086 31097 31097 31097 31097 28160 30326 0 0 0 0 0 0 0 0 0 0 0 30326 110 31097 31097 31097 31097 28281 0 0 28281 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 110 0 31086 31086 31097 28281 31097 28160 30318 118 31097 31097 31097 31097 31097 31097 31097 31097 31097 30208 28278 110 31097 31086 31097 28281 28281 0 28160 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 121 0 28270 28281 31097 31086 31086 30208 28278 30326 28160 28270 28270 28270 28270 28270 28270 28270 110 30326 30318 118 28281 28281 31097 31086 28270 0 30976 110 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30326 0 28270 28281 31097 31086 31086 28160 28270 28270 0 0 0 0 0 0 0 0 0 0 28160 110 28281 28281 31097 31086 28270 0 30326 0 30318 31097 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 31086 0 110 121 0 30976 28160 28160 30326 30326 30329 30326 30326 30326 30326 30326 30326 30326 31094 30326 28278 110 110 121 0 30976 28160 0 28281 28160 30326 31097 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 110 28270 121 28270 30976 28270 30318 28278 28270 31097 31097 31097 31097 31097 31097 31097 31097 31097 28270 30318 118 28270 121 28270 30976 28270 28160 121 28160 30326 30326 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 121 0 121 31097 30976 0 28278 28270 28270 31097 31097 31097 31097 31097 31097 31097 31097 31097 28270 28270 30318 0 121 31097 30976 0 30976 110 28160 30326 30326 118 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28281 0 121 31097 30976 30208 31097 28270 28270 30326 30326 30326 30326 30326 30326 30326 30326 30326 28270 28270 31097 118 121 31097 30976 0 31086 0 28160 30208 30326 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 0 121 0 30976 30208 31097 28270 30326 28160 0 0 0 0 0 0 0 0 30326 28270 31097 118 121 0 30976 0 28270 0 0 110 0 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30326 30326 30326 30326 30326 30326 31097 30326 0 110 28281 0 28281 0 28281 0 28281 0 0 30326 31097 30326 30326 30326 30326 30326 30326 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31086 31097 31097 31097 31097 30329 30326 28270 28270 0 28281 0 28281 0 28281 0 28281 0 110 0 30326 31094 31097 31097 31097 31097 28281 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 31086 31097 31097 31097 31097 30329 0 110 28160 0 28270 0 28270 0 28270 0 28270 0 110 28160 0 31094 31097 31097 31097 31097 28281 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 31086 31097 30329 30329 30329 28281 31097 0 28270 121 0 0 31097 31097 31097 0 0 30976 28270 0 31097 31086 30329 30329 30329 31097 28281 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 31086 31097 30329 30329 30329 28281 31097 28160 31086 121 0 30976 28270 28270 28270 121 0 30976 28281 110 31097 31086 30329 30329 30329 31097 28281 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 31086 31097 31097 31097 31097 28281 31097 28160 31086 121 0 28281 0 0 0 31086 0 30976 28281 110 31097 31086 31097 31097 31097 31097 28281 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 31086 31097 31097 31097 31097 28281 31097 28160 31086 121 30976 110 28270 30976 28270 28160 121 30976 28281 110 31097 31086 31097 31097 31097 31097 28281 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 30326 30326 30326 30326 30326 28278 31097 28160 31086 121 28281 28160 28270 30976 28270 110 31086 30976 28281 110 31097 30318 30326 30326 30326 30326 30326 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 30318 0 30208 0 0 0 118 31086 28160 31086 121 121 28270 28270 30976 28270 28270 30976 31086 28281 110 28281 30208 30318 30326 30326 28278 0 28278 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 118 31086 30208 28270 28270 28270 118 31086 28160 31086 121 121 28270 28270 30976 28270 28270 30976 31086 28281 110 28281 30208 28270 28270 28270 28278 28281 30208 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 118 31097 30208 0 0 0 118 31086 28160 28270 110 121 0 0 0 0 0 30976 28270 28270 110 28281 30208 28160 0 0 118 31097 30208 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30318 0 0 0 30976 31097 31097 121 110 110 31086 110 121 31097 31097 30976 31097 31097 30976 28270 28281 28160 28160 30976 31097 31097 28281 0 0 0 28278 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30318 28160 31097 28281 30208 30326 30326 118 121 121 31086 110 121 28270 28270 30976 28270 28270 30976 28270 28281 30976 30976 30208 30326 30326 118 31086 31097 110 28278 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30318 0 0 0 0 0 0 0 121 121 31086 110 121 28270 28270 30976 28270 28270 30976 28270 28281 30976 30976 0 0 0 0 0 0 0 28278 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 118 28270 28270 28270 30976 28160 121 118 121 121 31086 110 30976 28160 28270 30976 28270 110 28281 28160 28281 30976 30976 30208 30976 110 121 28270 28270 28270 30208 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28278 0 0 0 28160 28160 121 118 110 121 31086 110 0 121 28270 30976 28270 30976 110 28160 28281 30976 28160 30208 30976 110 110 0 0 0 30318 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28278 28160 28270 110 28160 28160 110 118 110 110 28270 110 0 30976 0 0 0 28281 0 28160 28270 28160 28160 30208 28160 110 110 28160 28270 110 30318 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28278 121 0 0 0 28160 110 118 0 110 0 110 0 0 31097 31097 31097 110 0 28160 0 28160 0 30208 28160 110 0 0 0 30976 30318 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30208 30976 31097 110 110 0 0 0 28160 28270 28160 28270 0 0 0 28270 28270 28270 0 0 0 28270 110 28270 110 0 0 0 28160 28160 31097 121 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 118 110 110 28270 31097 0 28270 31097 31097 31097 121 28160 28160 0 0 0 0 0 110 110 30976 31097 31097 31097 28270 0 31097 28270 28160 28160 30208 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 118 110 121 28281 31097 28160 31086 31097 31097 31097 121 28281 0 0 0 0 0 0 0 31086 30976 31097 31097 31097 28281 110 31097 31086 30976 28160 30208 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28281 110 110 28281 31097 28160 31086 31097 31097 31097 121 28281 28281 0 0 0 0 0 31086 31086 30976 31097 31097 31097 28281 110 31097 31086 28160 28160 31086 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 118 110 28270 31097 28160 31086 31097 31086 31086 121 28281 28281 28160 28270 28270 28270 110 31086 31086 30976 28281 28281 31097 28281 110 31097 28270 28160 30208 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31097 0 0 28270 31097 28160 31086 31097 31086 31086 30329 28270 28281 30976 31097 31097 31097 121 31086 28270 31094 28281 28281 31097 28281 110 31097 28270 0 0 31097 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31097 28160 110 0 31086 28160 31086 31097 31086 31086 31097 28160 28281 28160 28270 28270 28270 110 31086 110 31097 28281 28281 31097 28281 110 28281 0 28160 110 31097 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30208 30326 28160 28270 110 31086 28160 31086 31097 31097 31097 31097 28270 28281 30976 30208 30326 118 121 31086 28270 31097 31097 31097 31097 28281 110 28281 28160 28270 110 30326 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31097 28160 28270 110 31086 28270 28270 30318 30326 30326 31094 30318 28281 28160 30208 30326 118 110 31086 28278 30329 30326 30326 28278 28270 110 28281 28160 28270 110 31097 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 31097 31097 28281 31094 30318 110 110 110 110 31086 28270 28160 0 0 0 0 0 110 28270 28281 28160 28160 28160 28160 28160 30208 30976 31097 31097 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30208 30326 30326 30326 31094 30318 28281 121 121 121 31086 28270 0 0 0 0 0 0 0 28270 28281 30976 30976 30976 30976 28160 30208 30208 30326 30326 118 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28281 30318 28270 121 121 121 31086 28270 28281 0 0 0 0 0 31086 28270 28281 30976 30976 30976 28160 28160 31086 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30976 28160 121 30326 28270 30326 28270 110 121 121 31086 28270 28281 28160 28270 28270 28270 110 31086 28270 28281 30976 30976 28160 28160 30208 28270 30208 30976 110 121 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28160 121 28278 31097 118 28160 110 110 121 31086 28270 28281 30976 31097 31097 31097 121 31086 28270 28281 30976 28160 28160 0 0 31097 30318 30976 110 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28160 110 28278 31097 28160 110 0 110 110 28270 28270 28281 28160 28270 28270 28270 110 31086 28270 28270 28160 28160 0 28160 110 31097 30318 28160 110 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 110 30326 30326 28270 28270 110 0 110 0 28270 28281 30976 30208 30326 118 121 31086 28270 0 28160 0 28160 28270 110 30326 30326 28160 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31097 28160 28270 28270 28270 28160 28270 30208 28281 28160 30208 30326 118 110 31086 118 28270 110 28270 28270 28270 110 31097 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 28270 31097 0 28270 31097 31097 31097 121 28160 28160 0 0 0 0 0 110 110 30976 31097 31097 31097 28270 0 31097 28270 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30976 28270 31097 28160 31086 31097 31097 31097 121 28281 0 0 0 0 0 0 0 31086 31086 31097 31097 31097 28281 110 31097 28270 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 110 0 0 30976 28160 31097 28160 31086 31097 31097 31097 121 28281 28281 0 0 0 0 0 31086 31086 31094 31097 31097 31097 28281 110 31097 110 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31097 28278 0 0 30208 28160 31097 28160 31086 31097 31086 31086 121 28281 28281 28160 28270 28270 28270 110 31086 31086 31094 28281 28281 31097 28281 110 31097 110 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 31097 30326 110 0 30976 28160 31097 28160 31086 31097 31086 31086 30329 28270 28281 30976 31097 31097 31097 121 31086 28270 31094 28281 28281 31097 28281 110 31097 110 121 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 30326 110 0 30208 0 31086 28160 31086 31097 31086 31086 31097 28160 28281 28160 28270 28270 28270 110 31086 30318 31097 28281 28281 31097 28281 110 28281 0 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 118 110 0 30208 0 31086 28160 31086 31097 31097 31097 31097 28270 28281 30976 30208 30326 118 121 31086 28270 31097 31097 31097 31097 28281 110 28281 0 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30208 30326 0 110 0 30208 0 31086 28160 28270 30318 30326 30326 31094 30318 28281 28160 30208 30326 118 110 31086 28278 30329 30326 30326 28278 28270 110 28281 0 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 0 28160 0 0 0 0 31086 110 30318 28160 110 0 28160 28270 121 0 0 0 0 0 30976 28270 28270 28270 28160 110 28278 28160 28281 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 110 0 0 0 0 30326 118 118 28160 0 30326 0 28270 121 0 0 0 0 0 30976 28270 0 30326 0 110 30208 30208 30326 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 110 0 0 0 30326 0 0 121 0 0 0 0 0 30976 0 0 30326 0 0 0 28160 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 110 0 0 0 30976 0 0 118 0 0 0 0 0 30208 0 0 30976 0 0 0 28160 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 0 0 0 0 0 121 0 0 0 0 0 30976 0 0 0 0 0 0 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 0 0 30976 0 0 118 0 0 0 0 0 30208 0 0 30976 0 0 0 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 118 0 0 0 0 0 30208 0 0 0 0 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 118 0 0 0 0 0 30208 0 0 0 0 0 0 30318 31097 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31094 30329 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 31097 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31094 30329 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 30326 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 118 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30208 30326 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 30326 118 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 0 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 31094 30329 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31094 30329 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28160 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 30326 118 28160 0 0 0 0 0 0 0 0 0 0 0 28160 31094 30329 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 0 0 110 0 0 0 0 0 0 0 0 0 0 0 30318 31094 30329 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 30318 30326 30326 28278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 110 0 0 0 0 30318 30326 30326 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30318 31097 28278 0 0 0 0 110 30326 118 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 31097 30326 110 0 0 0 28160 0 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 30326 110 0 0 0 0 28270 28270 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30326 30326 118 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 30208 30326 0 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 0 28160 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28160 28270 110 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/skullqb.msk b/programs/samples/qb45com/action/arqanoid/images/skullqb.msk deleted file mode 100644 index 093d4e54c..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/skullqb.msk +++ /dev/null @@ -1 +0,0 @@ - 4412 544 101 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 255 0 0 -256 255 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -256 -1 -1 255 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 255 0 0 -256 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 0 0 0 -1 -1 0 0 0 0 -1 -1 0 0 0 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 0 -1 -1 0 0 0 0 0 0 -1 -1 0 -256 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 0 255 0 0 0 0 0 0 -256 0 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -256 255 -1 0 0 0 0 0 0 0 0 -1 -256 255 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -256 -1 0 -256 0 0 0 0 255 0 -1 255 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -256 -1 0 -256 0 0 0 0 255 0 -1 255 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 -1 0 -256 0 0 0 0 255 0 -1 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 0 0 255 0 0 0 0 0 -1 0 -256 0 0 0 0 255 0 -1 0 0 0 0 0 -256 0 0 -1 -1 -1 -1 -1 -1 -1 -1 0 0 255 0 0 0 0 0 -256 0 -256 0 0 0 0 255 0 255 0 0 0 0 0 -256 0 0 -1 -1 -1 -1 -1 -1 -1 255 255 0 -256 0 0 0 0 -1 -256 255 -1 255 0 0 -256 -1 -256 255 -1 0 0 0 0 255 0 -256 -256 -1 -1 -1 -1 -1 -1 255 255 0 -256 255 0 0 0 -256 0 -1 -1 255 0 0 -256 -1 -1 0 255 0 0 0 -256 255 0 -256 -256 -1 -1 -1 -1 -1 -1 0 -256 0 0 255 255 0 0 0 255 255 0 0 0 0 0 0 -256 -256 0 0 0 -256 -256 0 0 255 0 -1 -1 -1 -1 -1 255 0 -256 255 0 -1 0 0 0 -256 -1 -256 0 0 0 0 0 0 255 -1 255 0 0 0 -1 0 -256 255 0 -256 -1 -1 -1 -1 0 0 0 -1 -256 -1 0 0 0 -1 -1 0 255 255 0 0 -256 -256 0 -1 -1 0 0 0 -1 255 -1 0 0 0 -1 -1 -1 -1 0 0 0 -256 -1 -256 0 0 0 0 255 255 -256 0 0 0 0 255 -256 -256 0 0 0 0 255 -1 255 0 0 0 -1 -1 -1 -1 0 0 0 -256 255 -256 0 0 0 0 -256 -1 0 0 0 0 0 0 -1 255 0 0 0 0 255 -256 255 0 0 0 -1 -1 -1 -1 0 0 0 -256 255 -256 255 0 0 0 -256 255 255 0 0 0 0 -256 -256 255 0 0 0 -256 255 -256 255 0 0 0 -1 -1 -1 -1 0 0 0 -256 255 -1 -1 255 0 0 -256 -256 -1 255 0 0 -256 -1 255 255 0 0 -256 -1 -1 -256 255 0 0 0 -1 -1 -1 -1 255 0 0 0 -1 255 -1 0 0 0 -256 -1 255 255 0 0 -256 -256 -1 255 0 0 0 -1 -256 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 0 0 -256 0 -1 255 0 0 0 -256 0 255 0 0 -256 0 255 0 0 0 -256 -1 0 255 0 0 -1 -1 -1 -1 -1 -1 255 0 0 0 -256 255 255 255 0 0 0 -256 -1 255 0 0 -256 -1 255 0 0 0 -256 -256 -256 255 0 0 0 -256 -1 -1 -1 -1 0 -256 0 0 0 -1 0 -1 -256 0 0 0 -1 -256 0 0 255 -1 0 0 0 255 -1 0 -1 0 0 0 255 0 -1 -1 -1 -1 0 -256 0 255 0 -256 -256 0 -1 0 0 0 -256 0 -1 -1 0 255 0 0 0 -1 0 255 255 0 -256 0 255 0 -1 -1 -1 -1 0 -256 255 255 0 -256 -1 -256 -1 0 0 0 -1 -1 0 0 -1 -1 0 0 0 -1 255 -1 255 0 -256 -256 255 0 -1 -1 -1 -1 0 0 -256 255 0 0 -256 -1 0 255 0 0 -256 -1 -1 -1 -1 255 0 0 -256 0 -1 255 0 0 -256 255 0 0 -1 -1 -1 -1 255 0 255 -1 -256 0 0 -256 -256 -1 -256 0 -256 -1 0 0 -1 255 0 255 -1 255 255 0 0 255 -1 -256 0 -256 -1 -1 -1 -1 -1 -1 0 255 -1 0 0 -256 -1 -1 -1 0 0 255 0 0 -256 0 0 -1 -1 -1 255 0 0 -1 -256 0 -1 -1 -1 -1 -1 -1 -1 0 -1 0 -256 0 -1 0 255 -1 -1 0 0 -256 -1 -1 255 0 0 -1 -1 -256 0 -1 0 255 0 -1 0 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 0 -256 0 0 255 255 0 -1 -1 -1 -1 0 -256 -256 0 0 255 0 -1 -1 -1 255 0 -256 -1 -1 -1 -1 255 0 0 -256 0 0 -256 255 -1 0 0 0 -1 255 0 0 -256 -1 0 0 0 -1 -256 255 0 0 255 0 0 -256 -1 -1 -1 -1 -1 0 0 255 0 0 0 0 0 -1 0 0 -1 255 0 0 -256 -1 0 0 -1 0 0 0 0 0 -256 0 0 -1 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 255 0 0 -1 0 -256 0 -256 255 0 255 0 -1 0 0 -256 -1 -1 -1 0 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 255 0 0 0 255 0 -256 -1 -256 -1 0 0 -1 255 -1 255 0 -256 0 0 0 -256 -1 255 -256 -1 -1 -1 -1 -1 -1 255 255 0 0 0 0 0 0 -256 0 -256 255 -1 -1 -1 -1 -256 255 0 255 0 0 0 0 0 0 -256 -256 -1 -1 -1 -1 -1 -1 -1 0 -256 255 0 0 0 0 0 0 -1 -256 255 0 0 -256 255 -1 0 0 0 0 0 0 -256 255 0 -1 -1 -1 -1 -1 -1 -1 255 0 255 0 0 0 0 0 0 0 255 -256 -1 -256 255 -1 255 -256 0 0 0 0 0 0 0 -256 0 -256 -1 -1 -1 -1 -1 -1 -1 -256 0 -1 255 0 0 0 0 0 255 -1 0 -1 -1 0 -1 -256 0 0 0 0 0 -256 -1 0 255 -1 -1 -1 -1 -1 -1 255 0 255 -256 0 -256 0 0 0 0 -256 0 255 0 -256 255 0 -256 0 255 0 0 0 0 255 0 255 -256 0 -256 -1 -1 -1 -1 0 0 255 255 0 0 -1 -1 0 0 -256 -256 0 -1 -1 -1 -1 0 255 255 0 0 -1 -1 0 0 -256 -256 0 0 -1 -1 -1 -1 0 0 -256 0 -256 -1 -1 -1 -1 255 -256 -1 -256 255 0 0 -256 255 -1 255 -256 -1 -1 -1 -1 255 0 255 0 0 -1 -1 -1 -1 0 0 0 255 -1 -1 -1 255 0 -256 -1 255 -1 0 0 0 0 -1 -256 -1 255 0 -256 -1 -1 -1 -256 0 0 0 -1 -1 -1 -1 0 0 0 -256 -1 -1 255 0 0 0 -256 -1 255 -1 -1 -1 -1 -256 -1 255 0 0 0 -256 -1 -1 255 0 0 0 -1 -1 -1 -1 0 0 0 -256 -1 -1 0 0 0 0 0 -1 -256 255 0 0 -256 255 -1 0 0 0 0 0 -1 -1 255 0 0 0 -1 -1 -1 -1 255 0 0 -256 -1 255 0 0 0 0 0 -256 -256 0 -1 -1 0 255 255 0 0 0 0 0 -256 -1 255 0 0 -256 -1 -1 -1 -1 255 0 0 -256 -1 255 0 0 0 0 0 -256 255 -1 0 0 -1 -256 255 0 0 0 0 0 -256 -1 255 0 0 -256 -1 -1 -1 -1 255 0 0 -256 -1 0 0 0 0 0 0 0 255 0 0 0 0 -256 0 0 0 0 0 0 0 -1 255 0 0 -256 -1 -1 -1 -1 255 0 0 -256 -1 0 0 0 0 0 0 0 255 0 0 0 0 -256 0 0 0 0 0 0 0 -1 255 0 0 -256 -1 -1 -1 -1 255 0 0 -256 -1 0 0 -256 -1 255 0 0 255 0 0 0 0 -256 0 0 -256 -1 255 0 0 -1 255 0 0 -256 -1 -1 -1 -1 255 -1 0 -256 -1 0 0 -1 0 -1 0 0 255 0 0 0 0 -256 0 0 -1 0 -1 0 0 -1 255 0 -1 -256 -1 -1 -1 -1 -1 255 -256 -256 -1 255 -256 255 0 -256 255 -256 0 0 0 0 0 0 255 -256 255 0 -256 255 -256 -1 255 255 -256 -1 -1 -1 -1 -1 255 0 0 -1 -1 255 -256 255 -1 -256 255 -256 0 0 -1 -1 0 0 255 -256 255 -1 -256 255 -256 -1 -1 0 0 -256 -1 -1 -1 -1 255 0 0 255 -1 -1 0 -1 0 -1 0 255 0 -256 255 -256 255 0 -256 0 -1 0 -1 0 -1 -1 -256 0 0 -256 -1 -1 -1 -1 255 0 0 255 -1 -1 255 -256 -1 255 -256 0 0 -256 0 0 255 0 0 255 -256 -1 255 -256 -1 -1 -256 0 0 -256 -1 -1 -1 -1 -1 0 0 -256 -256 -1 -1 255 0 -256 255 0 0 255 -256 255 -256 0 0 -256 255 0 0 0 -1 255 255 0 0 -1 -1 -1 -1 -1 -1 0 0 -256 0 -1 -1 -1 -1 255 0 0 0 -1 0 0 -1 0 0 0 -256 -1 -1 -1 -1 0 255 0 0 -1 -1 -1 -1 -1 -1 0 -256 0 255 -256 -1 -1 -1 -256 0 0 0 255 0 0 -256 0 0 0 255 -1 -1 -1 255 -256 0 255 0 -1 -1 -1 -1 -1 -1 255 255 0 -256 255 0 0 0 255 -256 -1 -1 255 -1 -1 -256 -1 -1 255 -256 0 0 0 -256 255 0 -256 -256 -1 -1 -1 -1 -1 255 255 255 0 0 -1 -1 -1 -1 -256 255 -1 -256 255 0 0 -256 255 -1 -256 255 -1 -1 -1 -1 0 0 -256 -256 -256 -1 -1 -1 -1 255 -256 255 0 0 0 255 -1 0 255 255 -1 -256 0 0 0 0 255 -1 -256 -256 0 -1 -256 0 0 0 -256 255 -256 -1 -1 -1 -1 255 0 255 0 255 0 255 -256 -256 255 -1 0 -256 -256 -1 -1 255 255 0 -1 -256 255 255 -256 0 -256 0 -256 0 -256 -1 -1 -1 -1 255 0 -256 255 255 0 255 -256 255 -1 0 0 -256 255 0 0 -256 255 0 0 -1 -256 255 -256 0 -256 -256 255 0 -256 -1 -1 -1 -1 -1 0 0 -256 -1 -1 -1 -1 -1 255 0 0 -256 0 -256 255 0 255 0 0 -256 -1 -1 -1 -1 -1 255 0 0 -1 -1 -1 -1 -1 -1 0 0 -256 -1 0 -256 255 255 0 0 0 -256 0 -1 -1 0 255 0 0 0 -256 -256 255 0 -1 255 0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 255 -256 0 0 0 -256 0 -1 -1 -1 -1 0 255 0 0 0 255 -256 0 0 0 0 0 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 0 0 0 0 0 0 0 -256 -1 -1 255 0 0 0 0 0 0 0 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 0 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 0 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -256 -256 0 0 0 0 0 0 0 0 0 0 0 0 255 255 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -256 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 255 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 -1 0 0 255 0 0 0 0 0 0 -256 0 0 -1 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 255 0 0 -1 -256 0 0 255 -1 0 0 -256 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 255 0 0 0 255 -1 -1 -256 0 0 0 -256 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 -1 255 0 0 0 0 0 0 0 0 -256 -1 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 -1 -1 0 0 0 0 0 0 0 0 -1 -1 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 -1 255 0 0 0 0 0 0 -256 -1 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -1 -1 0 0 0 0 0 0 -1 -1 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/skullqb.qbn b/programs/samples/qb45com/action/arqanoid/images/skullqb.qbn deleted file mode 100644 index 275bc0184..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/skullqb.qbn +++ /dev/null @@ -1 +0,0 @@ - 4412 544 101 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 29555 29555 115 29440 29041 29555 114 29184 29298 29298 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29043 29041 29041 29041 113 115 0 0 29184 29440 29555 29555 29555 29299 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 30833 29048 29041 29555 115 28928 29041 29555 115 29184 29298 29555 29043 29553 115 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29043 115 30835 29048 29555 0 0 29041 30840 29041 29555 0 0 29298 29043 29297 29184 29299 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 30840 29041 29440 29555 0 0 29553 29043 30840 29041 29299 29554 0 0 29298 114 29555 29041 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 30833 30840 29048 29555 115 29555 28928 29553 30835 30840 29041 29297 29554 115 29298 29184 29298 29043 29041 29553 114 0 0 0 0 0 0 0 0 0 0 0 0 29043 30840 30840 29048 113 29440 0 29041 29553 30833 30840 29041 29553 29554 29555 0 114 29440 29043 29041 29041 29299 0 0 0 0 0 0 0 0 0 0 0 0 29043 30840 30840 30840 29553 115 0 30833 120 30833 29555 29298 29553 28928 29553 0 29184 29554 29041 29041 29041 29299 0 0 0 0 0 0 0 0 0 0 0 29555 29043 29048 30840 30840 29041 115 0 30840 120 29555 30840 29041 29298 28928 29041 0 29184 29555 29041 29041 29043 29299 29298 0 0 0 0 0 0 0 0 0 29440 29553 29043 29041 29041 30840 29041 30835 0 30840 115 29041 30840 29041 29555 29184 29041 0 29297 29555 29041 29555 29555 29299 29554 114 0 0 0 0 0 0 0 0 29043 29553 28928 29041 29041 30840 29048 29043 0 29048 113 29041 30840 29041 29555 29440 29043 0 29299 29043 29041 29555 29555 115 29554 29299 0 0 0 0 0 0 0 0 29043 30833 29440 29041 29553 29555 29555 29043 120 29041 113 29041 30840 29041 29555 29440 29555 28928 29299 29298 29298 29554 29555 114 29553 29299 0 0 0 0 0 0 0 29440 28928 30840 115 29041 29555 30833 29048 0 113 28928 0 28928 30833 29553 115 0 115 29440 0 29043 29553 29298 29555 29184 29041 115 114 0 0 0 0 0 0 29440 29440 29048 115 29440 29043 30833 30840 113 30835 0 0 28928 29555 29298 115 0 0 29297 29440 29041 29553 29299 114 29184 29043 114 114 0 0 0 0 0 0 29555 115 29043 29553 29440 28928 30833 30840 29553 28928 29440 29555 29555 30840 29041 29298 29298 114 115 29554 29041 29553 115 114 29554 29299 29184 29298 0 0 0 0 0 29440 29043 113 29440 29555 0 29041 29041 30840 120 0 120 30835 29041 30840 29041 29555 29297 28928 0 28928 29041 29555 29555 0 29298 114 29440 29299 114 0 0 0 0 29555 30840 29048 0 115 0 29043 29041 29555 0 0 30833 29440 28928 30840 29041 115 114 29553 0 0 29298 29555 29299 0 29184 0 29043 29041 29298 0 0 0 0 29555 30840 29048 115 0 115 29043 29553 30835 29560 29440 28928 120 29043 30840 29041 29299 28928 115 114 29042 29297 29554 29299 29184 0 29184 29043 29041 29298 0 0 0 0 29555 30833 29048 115 29440 115 29043 29043 30840 29048 115 0 30833 29048 30833 29553 29043 29553 0 29184 29043 29041 29299 29299 29184 114 29184 29043 29553 29298 0 0 0 0 29555 30833 30840 113 29440 115 29440 29043 30833 30840 113 29440 28928 29553 29555 29298 29554 115 114 29440 29041 29553 29299 114 29184 114 29440 29041 29553 29298 0 0 0 0 29555 29043 29560 115 29440 0 0 28928 29041 30840 113 115 0 28928 30833 29553 115 0 29184 29440 29041 29555 115 0 0 114 29184 29042 29299 29298 0 0 0 0 29440 29555 29555 29041 0 29440 0 29555 29041 29555 115 0 29440 28928 30833 29553 115 114 0 29184 29298 29555 29298 0 114 0 29555 29298 29298 114 0 0 0 0 0 0 30835 29048 113 29555 0 29440 29553 30835 29048 115 29555 28928 30833 29553 115 29298 29184 29043 29297 29554 114 0 29298 29440 29043 29297 0 0 0 0 0 0 29440 29555 29041 30840 115 29440 29440 29440 29555 30833 30840 113 0 28928 30833 29553 115 0 29440 29041 29553 29298 114 114 114 29184 29041 29555 29298 114 0 0 0 0 29555 115 29043 29553 29048 0 29555 0 115 29041 30840 29560 0 115 29041 29555 29184 0 29042 29041 29555 29184 0 29298 0 29043 29554 29299 29184 29298 0 0 0 0 29555 113 29043 29440 30833 113 115 29555 0 29043 30833 29048 115 29041 0 0 29555 29184 29043 29553 29299 0 29298 29184 29440 29553 114 29299 29440 29298 0 0 0 0 29555 113 29440 28928 30833 120 0 115 0 29555 29041 29555 0 0 29041 29555 0 0 29298 29555 29298 0 29184 0 28928 29553 115 114 29440 29298 0 0 0 0 29555 29041 115 29440 29041 30835 113 0 29555 29440 29555 29041 113 0 0 0 0 29440 29555 29298 114 29298 0 29440 29297 29555 114 29184 29555 29298 0 0 0 0 29440 29555 29440 0 115 30833 29048 113 115 0 115 29041 120 0 30840 29041 0 28928 29555 29184 0 29184 29440 29043 29553 29184 0 114 29298 114 0 0 0 0 0 0 29043 29440 0 29043 30833 115 0 0 0 30835 29048 30720 30840 29041 113 29043 29297 0 0 0 29184 29553 29299 0 114 29299 0 0 0 0 0 0 0 29555 0 29043 113 29555 0 29555 28928 0 0 29555 30840 115 0 0 29184 29041 29298 0 0 115 29298 0 29298 29440 29299 0 29298 0 0 0 0 0 29440 29555 113 0 0 0 29555 115 29041 29048 29440 29440 29041 0 0 0 0 29555 114 114 29043 29555 29184 29298 0 0 0 29440 29298 114 0 0 0 0 29440 29555 29041 115 29041 30833 120 29440 0 29041 29560 29043 0 30720 30840 29041 113 0 29299 29042 29555 0 114 28928 29553 29555 29184 29555 29298 114 0 0 0 0 0 29555 29555 28928 29555 29555 29043 30833 29560 0 29041 29555 0 30720 29555 29298 113 0 29298 29555 0 29042 29553 29299 29298 29298 115 29298 29298 0 0 0 0 0 0 0 0 29553 0 0 0 29440 30833 29560 0 30835 113 29553 115 29184 29554 29440 29297 0 29042 29553 114 0 0 0 29554 0 0 0 0 0 0 0 0 29440 115 0 28928 29048 29041 29555 29440 30833 120 0 115 0 30840 29041 0 29184 0 28928 29553 114 29298 29555 29043 115 0 29184 114 0 0 0 0 0 0 29440 30720 29048 29043 30840 30840 29048 29555 115 30833 113 28928 0 0 0 0 115 29440 29553 29184 29298 29043 29041 29041 29299 29043 113 114 0 0 0 0 0 0 0 29041 120 28928 30840 30840 30840 30840 29553 29555 0 113 30720 30840 29041 113 29440 0 29298 29554 29041 29041 29041 29041 115 28928 29555 0 0 0 0 0 0 0 29440 29043 30720 29553 30833 29041 29041 30833 30840 29553 29440 115 0 113 29440 0 29184 114 29554 29041 29553 29555 29555 29553 29554 113 29299 114 0 0 0 0 0 0 0 115 30833 0 28928 29041 29041 29041 29041 29560 29440 0 29555 0 0 29298 0 114 29042 29555 29555 29555 29555 115 0 29553 29184 0 0 0 0 0 0 28928 29041 29440 113 29048 115 29555 29555 29041 29041 113 29555 30720 29553 115 29184 29554 113 29298 29440 29555 29555 29298 29298 29184 29043 29440 114 29555 115 0 0 0 0 29555 29041 29440 28928 29553 29555 0 0 29555 29555 113 115 29553 0 0 0 0 29554 29184 29440 29298 29298 0 0 29298 29554 115 114 29555 29298 0 0 0 0 29555 30833 113 29555 115 0 0 0 0 29440 115 0 115 30720 29560 29042 113 29184 0 29184 114 0 0 0 0 29184 29298 29440 29553 29298 0 0 0 0 29555 30833 29048 29440 0 0 0 28672 28784 112 0 29440 0 29560 29555 29298 29042 0 114 0 28672 28784 112 0 0 0 114 29043 29553 29298 0 0 0 0 29555 30833 30840 115 0 0 28672 30832 28784 28792 112 0 29440 0 0 0 0 114 0 28672 30832 28784 28792 112 0 0 29184 29041 29553 29298 0 0 0 0 29555 30833 29048 115 0 0 30832 30064 30069 28789 28792 0 115 28928 29555 29298 115 29184 0 30832 30064 30069 28789 28792 0 0 29184 29043 29553 29298 0 0 0 0 29440 30835 29041 115 0 28672 30072 30064 28784 28789 30837 112 115 29555 0 0 29298 29184 28672 30072 30064 28784 28789 30837 112 0 29184 29555 29297 114 0 0 0 0 29440 30835 29553 115 0 30720 28789 30069 30840 30069 30064 120 28928 0 29048 29043 0 115 30720 28789 30069 30840 30069 30064 120 0 29184 29554 29297 114 0 0 0 0 29440 29043 29553 115 0 30832 30837 30069 30069 30069 30072 28792 28928 29043 29048 29043 29299 115 30832 30837 30069 30069 30069 30072 28792 0 29184 29554 29299 114 0 0 0 0 29440 29043 29560 115 0 30064 30072 30837 30840 30072 30837 28789 28928 29555 29048 29043 29298 115 30064 30072 30837 30840 30072 30837 28789 0 29184 29042 29299 114 0 0 0 0 29440 29043 29553 115 0 30832 30837 112 0 28672 30072 28792 28928 29043 29048 29043 29299 115 30832 30837 112 0 28672 30072 28792 0 29184 29554 29299 114 0 0 0 0 29440 0 29555 115 0 30832 28792 0 30069 0 30832 28792 28928 29555 29048 29043 29298 115 30832 28792 0 30069 0 30832 28792 0 29184 29298 0 114 0 0 0 0 0 28928 113 115 0 30720 120 29952 30840 117 30720 120 29553 30833 30840 29041 29553 29554 30720 120 29952 30840 117 30720 120 0 29184 29440 115 0 0 0 0 0 28928 29555 29560 0 0 28672 120 28672 0 112 30720 112 29041 30840 0 0 29041 29555 28672 120 28672 0 112 30720 112 0 0 29042 29298 115 0 0 0 0 28928 29555 29048 29440 0 0 30832 0 28784 0 28792 28928 29041 120 29440 114 28928 29555 115 30832 0 28784 0 28792 0 0 114 29043 29298 115 0 0 0 0 28928 29553 30833 29440 0 0 28672 120 0 30720 112 29043 30835 120 29041 29555 28928 29297 29299 28672 120 0 30720 112 0 0 114 29553 29554 115 0 0 0 0 0 29553 29043 113 115 0 0 28672 28784 112 29440 29555 30835 28928 113 29440 115 29297 29298 114 28672 28784 29296 29298 0 29184 29440 29299 29554 0 0 0 0 0 0 29555 29043 115 29555 0 0 0 0 29440 29043 29555 30840 0 29555 29298 0 29041 29298 29299 114 0 0 0 0 29298 29184 29299 29298 0 0 0 0 0 0 29555 115 29041 29440 115 0 0 0 115 29041 29555 30840 29440 29041 29555 114 29041 29298 29555 29184 0 0 0 29184 114 29555 29184 29298 0 0 0 0 0 0 29440 29440 30833 113 29440 29555 29555 29555 28928 120 0 0 28928 0 0 115 0 0 28928 115 29298 29298 29298 114 29440 29553 114 114 0 0 0 0 0 29440 29440 29440 29043 29048 0 0 0 0 120 29440 0 120 29440 29043 29299 114 28928 0 114 28928 0 0 0 0 29043 29299 114 114 114 0 0 0 0 29440 115 29440 29555 29553 29048 28928 0 30833 28928 29440 0 120 29043 29041 29555 29299 28928 0 114 115 29553 0 115 29043 29554 29298 114 29184 114 0 0 0 0 29440 29553 29440 29555 29440 30833 28928 120 115 29440 0 29555 120 113 0 0 29440 28928 29298 0 114 29184 28928 115 29553 114 29298 114 29554 114 0 0 0 0 29440 29043 115 29440 29440 29555 29440 115 29440 0 29555 29555 120 29440 29043 29299 114 28928 29298 29298 0 114 29184 114 29298 114 114 29184 29299 114 0 0 0 0 0 29043 29048 115 0 0 0 0 0 29440 29043 29553 120 29041 115 29184 29555 28928 29554 29299 114 0 0 0 0 0 29184 29043 29299 0 0 0 0 0 0 29043 30840 113 0 29048 115 29440 29440 29555 29043 29553 113 29555 0 0 29298 29440 29554 29299 29298 114 114 29184 29043 0 29440 29041 29299 0 0 0 0 0 0 29043 30833 29041 29048 29555 29440 115 29555 29043 29043 113 29041 0 0 0 0 29555 29440 29299 29299 29298 29184 114 29298 29043 29555 29553 29299 0 0 0 0 0 0 29440 29041 29048 29553 0 29555 29555 29555 29041 29041 29555 29041 120 0 0 28928 29555 29298 29555 29555 29298 29298 29298 0 29554 29043 29555 114 0 0 0 0 0 0 29440 29043 30840 29041 0 29555 29440 29555 29041 30840 29560 29043 30833 30840 29041 29553 29299 29042 29041 29555 29298 114 29298 0 29555 29041 29299 114 0 0 0 0 0 0 0 29555 29041 30840 29041 0 0 29555 30840 29560 29555 29555 29043 30833 29553 29299 29298 29298 29042 29041 29298 0 0 29555 29041 29555 29298 0 0 0 0 0 0 0 0 29440 29043 29041 29048 29041 113 115 30835 29043 29041 29555 29555 29043 29299 29298 29298 29555 29299 29297 29184 29440 29555 29043 29555 29299 114 0 0 0 0 0 0 0 0 0 29555 29043 29041 29041 113 29440 29555 29041 29553 29555 29043 30835 29297 29299 29298 29554 29555 29298 114 29440 29555 29555 29299 29298 0 0 0 0 0 0 0 0 0 0 0 29555 29555 29043 0 29440 30835 29560 29555 29041 29043 29043 29299 29299 29555 29298 29042 29297 114 0 29299 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 29560 29041 29041 30833 29041 29555 29553 29555 29555 29042 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29041 0 29440 29043 29555 29043 29041 29041 29041 29555 29555 29555 29299 29298 29299 114 0 29555 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 115 0 29043 29555 28928 29041 29041 29041 29555 29555 29555 115 29298 29299 0 29184 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29043 115 0 29440 29043 30833 0 115 29041 29555 29184 0 29553 29299 114 0 29184 29299 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 115 0 29440 30835 30835 29041 30720 0 0 113 29555 29297 29297 114 0 29184 29298 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 0 0 30720 30835 29041 30835 29553 29554 29297 29555 29297 113 0 0 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 115 0 0 30835 29041 30835 29553 29554 29297 29555 29297 0 0 29184 29298 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29553 120 0 30720 29048 30835 29553 29554 29297 29043 113 0 28928 29554 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29560 29560 0 0 29048 30835 29560 29042 29297 29043 0 0 29042 29042 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29048 29043 113 0 0 0 0 0 0 0 0 29440 29299 29043 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28928 30833 30835 29041 0 0 0 0 0 0 0 0 29555 29297 29553 115 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 30833 30835 29048 29555 0 0 0 0 0 0 29298 29043 29297 29553 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 30835 30835 29560 29048 29553 29553 29553 29554 29554 29554 29043 29042 29297 29297 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29043 29560 29560 30840 29560 29041 29553 29554 29555 29042 29041 29042 29042 29299 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 30833 29555 30840 29560 30840 29560 29042 29041 29042 29041 29298 29553 29298 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29041 30833 30835 29560 30840 29560 29042 29041 29042 29297 29553 29555 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29043 29041 29560 29560 30840 29560 29042 29041 29042 29042 29555 29299 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29043 29041 30840 29555 30835 29560 29042 29297 29298 29041 29555 29299 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29041 30833 30840 29560 29555 29298 29042 29041 29553 29555 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29043 29041 30833 30840 30840 29041 29041 29553 29555 29299 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29041 29041 30840 30840 29041 29041 29555 29555 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29041 29041 29041 29041 29555 29555 29555 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29041 29041 29041 29555 29555 29555 114 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/small.fnt b/programs/samples/qb45com/action/arqanoid/images/small.fnt deleted file mode 100644 index 7dea2822a..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/small.fnt +++ /dev/null @@ -1,661 +0,0 @@ - 33 - 0 - 1 - 1 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 1 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/images/smallnum.fnt b/programs/samples/qb45com/action/arqanoid/images/smallnum.fnt deleted file mode 100644 index bc354be91..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/smallnum.fnt +++ /dev/null @@ -1,221 +0,0 @@ - 11 - 0 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 1 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 0 - 1 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 1 - 1 - 1 - 0 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 0 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 0 - 1 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/images/tgl.msk b/programs/samples/qb45com/action/arqanoid/images/tgl.msk deleted file mode 100644 index fa9ecf250..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/tgl.msk +++ /dev/null @@ -1 +0,0 @@ - 4461 784 91 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -256 -256 -256 -1 -1 -256 -1 255 255 -1 -256 -1 -1 -256 -1 -1 -1 255 -1 -1 255 255 -1 -1 255 255 255 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 255 -1 255 -1 -1 -256 -256 -1 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -256 -1 -256 -1 -256 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -256 -256 -1 -1 -1 -256 -256 -256 255 255 255 -1 -1 -256 -256 -1 -1 -1 -1 255 255 255 -1 255 255 255 -1 -1 -1 255 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 -1 255 255 255 -1 255 -1 -1 -1 -1 -1 -256 255 -1 255 -1 -1 -1 -1 -1 -1 -256 -1 -256 -1 -256 -1 -256 -256 -256 -1 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -256 -256 -1 -256 -256 -256 -1 -256 255 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 255 -1 255 255 255 -1 255 255 255 -1 255 255 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 255 0 -1 255 -1 255 255 -1 -1 -1 -1 -256 -256 255 -1 255 -1 -1 -1 -1 -1 -1 -256 -256 -1 -1 -256 -256 -1 -256 -1 0 -256 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 0 -256 -256 -256 -256 -256 -256 -1 -1 -256 -256 -1 -1 -256 -256 -256 -1 255 255 255 -1 -1 255 255 -1 -1 255 255 255 255 255 255 0 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 0 0 255 255 255 255 0 -1 255 255 -1 -1 -1 255 255 -1 -1 -1 -1 -1 -256 -256 -1 -1 -1 -256 -256 -1 0 -256 -256 -256 -256 0 0 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -256 -256 -256 -256 -256 0 -256 -256 -1 -256 -256 -256 -256 -256 -256 -1 -256 -256 -1 255 255 -1 255 255 255 255 255 255 -1 255 255 0 255 255 255 255 255 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 255 255 255 0 255 255 255 0 255 255 255 255 255 255 -1 -1 255 255 255 -1 -1 -1 -256 -256 -256 -1 -1 -256 -256 -256 -256 -256 -256 0 -256 -256 -256 0 -256 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -256 -256 -256 -256 -256 -256 0 -256 -256 -256 -256 -1 -1 -256 -1 -256 -256 -256 -256 -256 -1 255 255 255 255 255 -1 255 -1 -1 255 255 255 255 0 255 255 255 255 255 255 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 255 0 255 255 0 255 255 255 -1 255 255 255 255 255 255 255 255 255 -1 -256 -256 -256 -256 -256 -256 -256 -256 -256 -1 -256 -256 -256 0 -256 -256 0 -256 -256 255 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -256 -256 0 -256 0 -256 -256 -256 -256 -1 -256 -256 -256 -256 -256 -1 -256 -1 255 -1 255 255 255 255 255 -1 255 255 255 255 0 255 0 255 255 -1 255 0 -256 -1 -1 -1 -1 -1 -1 255 0 -1 255 0 255 0 255 255 255 255 255 255 255 255 255 255 -1 255 255 -1 -1 -1 -256 -256 -1 -256 -256 -256 -256 -256 -256 -256 -256 -256 -256 0 -256 0 -256 -1 0 -256 -1 -1 -1 -1 -1 -1 0 -256 -1 -256 -256 -256 -256 0 0 -256 -256 -256 -256 -256 -256 -256 -256 -256 -256 -1 -1 -1 -1 -1 255 255 255 255 255 255 255 255 255 255 0 0 255 255 255 255 -1 255 0 -1 -1 -1 -1 -1 255 0 -1 255 0 0 255 255 0 255 255 255 255 255 255 255 255 -1 255 255 255 255 -1 -256 -256 -256 -256 -1 -256 -256 -256 -256 -256 -256 -256 -256 0 -256 -256 0 0 -256 -1 0 -256 -1 -1 -1 -1 255 -256 -256 -256 -256 -256 -256 0 0 -256 -256 -256 -1 -1 0 -256 -256 -256 -256 -256 -1 -256 0 255 -1 255 255 255 255 255 0 -1 -1 255 255 255 0 0 255 255 255 255 255 255 -256 -1 -1 -1 -1 255 0 -1 255 0 255 255 0 255 0 255 -1 -256 255 255 255 255 255 255 255 255 255 0 -256 -256 -256 -256 -256 -256 -256 -256 -256 255 -1 -256 0 -256 0 -256 -256 0 -256 -1 0 -256 -1 -1 -1 -1 -256 -256 -1 0 -256 -256 -256 -256 -256 -256 -256 0 -1 -256 0 -256 -256 -256 -256 -256 -1 0 0 0 -1 255 255 255 255 255 0 255 -1 0 255 255 255 255 255 255 255 0 -1 255 255 -1 -1 -1 -1 0 0 255 0 255 255 0 0 255 0 255 -1 255 255 255 0 255 0 255 255 255 255 0 -256 -256 -256 -256 0 -256 0 -256 -256 -256 -1 -256 0 -256 0 0 -256 -256 0 -256 0 0 -1 -1 -1 255 0 -256 -1 -256 -256 -256 0 -256 -256 -256 -256 -1 -256 -256 0 0 -256 -256 -256 -256 -1 0 0 0 -1 255 255 255 255 0 0 255 255 -1 255 255 255 255 0 255 255 255 -1 255 0 -256 -1 -1 255 0 255 255 0 255 255 0 255 255 255 255 0 255 255 0 255 255 0 255 255 255 255 0 -256 -256 -256 -256 0 -256 -256 0 -256 -256 0 -256 -256 -256 -256 0 -256 -256 0 -256 -256 0 -256 -1 -1 255 -256 -256 -1 -256 -256 0 -256 -256 0 -256 0 -256 -256 -256 0 0 -256 -256 -256 -256 -1 -256 0 255 -1 255 255 255 255 0 0 255 255 255 0 255 0 255 255 0 255 255 -1 255 255 -256 -1 -1 255 0 255 255 255 255 0 255 255 0 255 0 255 255 255 255 255 255 0 255 -1 255 255 0 -256 -256 -1 -256 0 -256 -256 -256 -256 -256 -256 0 -256 0 -256 -256 0 -256 -256 -256 -256 0 -256 -1 -1 0 -256 -256 0 -256 0 0 -256 -256 -256 -256 0 0 -256 -256 0 0 -256 0 -256 -256 -256 0 0 0 255 255 255 0 255 0 0 255 255 0 0 255 255 255 255 0 0 255 0 255 255 0 -1 -1 0 0 0 0 255 255 0 255 255 255 255 0 0 255 255 255 0 255 255 0 -1 255 0 0 0 -256 -1 0 -256 -256 0 -256 -256 -256 0 0 -256 -256 -256 -256 0 -256 -256 0 0 0 0 -1 -1 0 0 0 -256 -256 0 -256 -256 0 -1 -256 0 -256 -256 -256 -256 0 -256 0 0 -256 -1 0 0 0 -1 255 0 0 255 0 255 255 255 255 0 255 -1 0 255 255 0 255 255 0 0 0 -1 -1 0 -1 255 255 0 0 0 255 0 255 255 255 0 255 0 255 0 0 255 0 0 -1 0 0 0 -1 0 0 -256 0 0 -256 0 -256 0 -256 -256 -256 0 -256 0 0 0 -256 -256 -1 0 -1 -1 0 -256 0 -256 -256 -256 0 -256 0 -1 -256 0 -256 -256 -256 -256 0 -256 0 0 -256 -1 0 0 0 -1 255 0 0 255 0 255 255 255 255 0 255 -1 0 255 0 255 255 255 0 255 0 -1 255 0 0 0 0 0 0 255 255 255 -1 -1 255 0 255 0 255 255 0 255 0 -256 -1 255 0 -256 -1 255 0 -256 0 -256 -256 0 -256 0 -256 -1 -1 -256 -256 -256 0 0 0 0 0 0 -256 -1 0 -256 -256 0 -256 -256 -256 0 0 -256 -256 0 0 -256 0 -256 -256 0 -256 0 0 -1 255 0 -256 -1 0 0 255 0 255 255 0 255 0 0 255 255 0 0 255 255 255 0 255 255 0 -1 255 0 0 0 0 255 0 255 255 0 255 -1 255 255 255 0 0 255 255 255 0 -256 -1 -1 -1 -1 -1 255 0 -256 -256 -256 0 0 -256 -256 -256 -1 -256 0 -256 -256 0 -256 0 0 0 0 -256 255 -256 0 -256 0 -256 -256 0 0 -256 -256 -256 0 0 -256 0 0 -256 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 255 0 0 255 0 0 255 255 255 0 0 255 255 0 255 0 255 -256 255 0 255 0 0 255 0 255 0 0 255 -1 255 0 0 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 0 0 -256 -1 -256 0 0 -256 0 -256 0 0 -256 0 -256 255 0 0 -256 -256 0 -256 -256 0 -256 -256 0 -1 0 0 0 0 -256 -1 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 255 0 0 0 0 -1 0 255 255 0 255 255 0 255 255 0 0 -256 255 255 0 0 0 255 0 0 255 255 255 255 -1 255 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 -256 -1 -256 -256 -256 -256 0 0 -256 0 0 0 -256 -256 255 -256 0 -256 -256 -256 -256 -256 0 -256 -256 0 -256 -1 -1 -256 -256 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 255 255 -1 -1 255 0 255 255 0 255 255 255 255 255 0 255 -256 255 255 0 0 255 0 0 0 255 0 255 0 255 255 -256 255 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -256 255 -256 -256 0 -256 0 -256 0 0 0 -256 0 0 -256 -256 255 -256 0 -256 -256 -256 255 0 -256 -256 -256 0 -256 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 255 0 255 255 255 0 -256 255 255 255 0 255 -256 255 0 0 255 255 0 -1 0 255 0 255 0 0 255 0 -1 -1 -1 -256 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 255 -1 -1 -1 0 -256 0 0 -256 0 -256 0 -1 0 -256 -256 0 0 -256 255 -256 -256 -256 0 -256 -256 255 -1 -1 -256 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 255 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 255 -1 -1 -256 255 255 0 255 255 255 -256 255 0 0 0 255 -256 255 0 255 -1 255 0 0 0 -256 -1 -1 -256 -1 -1 -1 -1 0 255 -1 -256 0 -1 -1 -1 -1 255 -1 -1 255 0 0 0 -256 -1 -256 0 -256 255 -256 0 0 0 -256 255 0 0 -256 -256 -256 -1 -256 0 -256 0 -256 0 0 -1 255 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 -256 -1 0 0 255 0 255 0 255 -1 255 255 255 0 0 -256 255 0 0 0 255 255 255 0 255 -256 255 255 0 255 -1 -1 -256 -1 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -1 255 -1 -1 -256 0 -256 -256 255 -256 0 -256 -256 -256 0 0 0 -256 255 0 0 -256 -256 0 -256 -256 0 -256 0 -256 0 -256 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 255 0 255 0 255 0 255 255 0 255 255 0 0 -256 255 0 0 255 255 255 255 255 255 -256 -256 255 0 -256 -1 -1 -1 -256 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 255 -1 -1 -1 255 0 -256 255 255 -256 -256 -256 -256 -256 -256 0 0 -256 255 0 0 -256 -256 0 -256 -256 0 -256 -256 -1 0 -256 -1 255 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -256 -1 255 0 -1 255 255 0 255 255 0 255 255 0 0 -256 -1 0 255 0 255 255 0 255 0 255 0 255 255 -256 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 255 -256 -256 0 -256 0 -256 0 -256 -256 0 -256 0 -1 -1 0 0 0 -256 -256 -256 -256 0 -256 0 -256 0 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 0 255 0 255 0 255 255 255 255 0 0 0 -1 -1 0 0 0 255 255 0 255 0 255 0 -256 255 -1 -1 -256 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 255 -1 -1 -256 255 0 -256 0 -256 0 -256 -256 0 0 0 -1 -1 0 -256 0 0 0 -256 0 -256 -256 0 -256 255 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -256 255 0 255 255 0 255 0 0 0 255 0 -1 -1 0 0 255 255 0 255 255 0 255 255 0 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 0 -256 -256 0 -256 -256 0 -256 -256 0 0 -1 -1 255 0 0 0 0 -256 0 0 -256 0 0 0 -1 -1 -256 255 -1 -1 -1 -1 -1 -256 -1 -1 -1 255 -1 -1 -1 -1 -1 -256 255 -1 -1 0 0 0 255 0 0 255 0 0 0 0 -256 -1 -1 255 0 0 255 255 0 255 0 255 255 0 0 -1 -1 -1 255 -1 -1 -1 0 -1 -256 -1 -1 -1 255 -1 0 -1 -1 -1 -256 -1 -1 -1 0 0 -256 -256 0 -256 0 -256 -256 0 0 -256 -1 -1 255 0 0 0 -256 -256 -256 0 -256 -256 0 0 255 -1 -1 255 -1 -1 -1 -1 -1 255 255 -1 -256 -256 -1 -1 -1 -1 -1 -256 -1 -1 -256 0 0 255 255 0 255 255 255 0 0 0 -256 -1 -1 255 0 0 255 0 0 255 0 0 255 0 255 -1 255 -1 255 -1 -1 -1 255 -256 -1 255 -1 -256 -1 255 -256 -1 -1 -1 -256 -1 -256 -1 -256 0 -256 0 0 -256 0 0 -256 0 0 -256 -1 -1 -1 0 0 0 -256 -256 -256 0 0 0 0 0 -1 -1 -256 0 -1 -1 -1 -1 255 -1 -1 -1 -1 -1 -256 -1 -1 -1 -1 0 255 -1 -1 0 0 0 0 0 255 255 255 0 0 0 -1 -1 -1 -1 0 0 255 0 0 -1 0 0 255 0 255 -1 -1 -1 255 -1 -1 -1 -1 -256 -1 -1 -1 -1 -1 255 -1 -1 -1 -1 -256 -1 -1 -1 -256 0 -256 0 0 -1 0 0 -256 0 0 -1 -1 -1 -1 255 -256 -256 0 -256 -256 -1 0 -256 0 0 -1 -1 -1 255 -1 -1 -1 -256 255 -1 -1 0 -1 -1 -256 255 -1 -1 -1 -256 -1 -1 -1 0 0 255 0 -1 255 255 0 255 255 -256 -1 -1 -1 -1 255 0 255 0 0 255 -256 255 0 0 0 -1 -1 -1 255 -1 -1 -1 -1 -1 -1 255 0 -256 -1 -1 -1 -1 -1 -1 -256 -1 -1 -1 0 0 0 -256 255 -256 0 0 -256 0 -256 -1 -1 -1 -1 255 0 -256 0 0 -256 0 -1 0 0 0 -256 -1 -256 255 -1 -1 -1 -256 -1 -1 0 -1 0 -1 -1 255 -1 -1 -1 -256 255 -1 255 0 0 0 -1 0 255 0 0 255 0 -256 -1 -1 -1 -1 -1 0 0 255 0 0 255 -1 255 255 0 -256 -1 -1 255 -1 -1 -1 -1 255 -1 0 -1 0 -1 -256 -1 -1 -1 -1 -256 -1 -1 255 0 -256 -256 -1 -256 0 0 -256 0 0 -1 -1 -1 -1 -1 -1 255 0 -256 0 -256 0 -256 -1 0 -256 -1 -1 -1 -1 -256 -1 -1 -1 -256 -256 255 0 -256 255 255 -1 -1 -1 255 -1 -1 -1 -1 255 0 -1 255 0 255 0 255 0 -256 -1 -1 -1 -1 -1 -1 255 0 0 0 0 255 0 -1 -1 -1 -256 -1 255 -1 -256 -1 -1 -1 255 255 -1 -1 -1 -256 -256 -1 -1 -1 255 -1 -256 -1 255 -1 -1 -1 0 -256 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 -256 0 -256 -256 255 0 -1 -1 -1 -256 -1 -256 255 -1 255 -1 -1 -1 -256 -1 -256 255 -1 255 -1 -1 -1 0 -256 255 255 0 255 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 255 0 -1 -1 -1 255 -1 255 -1 -256 -1 -1 0 -1 -1 255 -1 -256 -1 -256 -1 -1 -1 0 -256 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 -256 -256 0 -256 0 -256 -256 -256 255 -1 255 -1 -1 0 -1 -1 255 -1 -256 -1 -1 0 -1 -1 -256 -1 -256 255 255 255 0 255 0 255 255 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 255 0 255 255 0 -256 -1 -1 -1 -256 -1 -1 -1 -256 -1 -1 -1 255 -1 -1 -1 255 -1 -1 -1 255 0 -256 -256 0 -256 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -256 -256 -256 0 0 -256 0 0 -1 -1 255 255 -1 -1 -1 -1 -256 -1 255 -1 -1 -1 -1 -256 -256 -1 -1 0 0 255 0 0 255 255 255 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 0 -1 -256 -256 -1 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 -1 255 255 -1 0 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 -256 -256 -256 0 -256 -1 255 -1 255 -256 -1 -1 -1 -1 -1 -1 -1 255 -256 -1 -256 -1 255 0 255 255 255 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 255 0 0 255 255 0 -1 -1 -1 -1 255 0 -1 -1 -1 -1 -1 0 -256 -1 -1 -1 -1 0 -256 -256 0 0 -256 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -256 0 0 0 -256 -256 0 0 -256 0 -256 -1 255 -1 -1 -1 0 0 0 0 0 -1 -1 -1 -256 -1 255 0 255 0 0 255 255 0 0 0 255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 255 255 0 0 255 0 -256 -1 -1 -256 -1 -1 -1 -1 -1 -1 -1 255 -1 -1 255 0 -256 0 0 -256 -256 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 -256 -256 0 0 0 -256 -256 -256 -1 -1 -1 -256 -1 -1 -1 255 -1 -1 -1 255 255 255 0 0 0 255 255 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 0 0 0 -1 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 -1 0 0 0 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 -256 -1 0 0 0 -256 -1 -1 -1 -1 -1 255 0 0 0 -1 255 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 0 0 0 -256 -1 0 255 0 0 0 0 0 0 0 0 0 0 0 -256 0 -1 255 0 0 0 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 0 255 0 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -256 0 -256 0 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 0 -256 0 0 0 0 0 0 0 0 0 -256 0 255 0 0 0 0 0 0 0 0 0 255 0 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 255 255 255 0 0 0 0 0 0 0 0 0 -1 0 0 0 0 0 0 0 0 0 -256 -256 -256 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 -256 0 0 0 0 0 0 0 0 0 255 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 255 255 0 255 0 0 0 0 0 0 0 -256 0 -256 -256 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/images/tgl.qbn b/programs/samples/qb45com/action/arqanoid/images/tgl.qbn deleted file mode 100644 index 2d3bd4504..000000000 --- a/programs/samples/qb45com/action/arqanoid/images/tgl.qbn +++ /dev/null @@ -1 +0,0 @@ - 4461 784 91 0 0 0 0 0 0 0 0 0 0 107 107 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27392 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27392 0 0 0 0 0 0 0 107 0 0 0 27392 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 0 107 107 107 0 0 107 0 27392 27392 0 107 0 0 107 0 0 0 27392 0 0 27392 27392 0 0 27392 27392 27392 0 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 0 0 0 27392 0 27392 0 0 107 107 0 27392 27392 0 0 0 0 0 0 0 0 107 0 107 0 107 0 107 0 0 0 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 107 107 0 0 0 107 107 107 27392 27392 27392 0 0 107 107 0 0 0 0 27392 27392 27392 0 27392 27392 27392 0 0 0 27392 27392 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27392 0 27392 27392 27392 0 27392 0 0 0 0 0 107 27392 0 27392 0 0 0 0 0 0 107 0 107 0 107 0 107 107 107 0 107 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 0 107 107 0 107 107 107 0 107 27392 0 0 0 107 0 0 0 0 0 0 27392 0 27392 27392 27392 0 27392 27392 27392 0 27392 27392 0 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27392 27392 27499 0 27392 0 27392 27392 0 0 0 0 107 107 27392 0 27392 0 0 0 0 0 0 107 107 0 0 107 107 0 107 0 27499 107 107 107 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 27499 107 107 107 107 107 107 0 0 107 107 0 0 107 107 107 0 27392 27392 27392 0 0 27392 27392 0 0 27392 27392 27392 27392 27392 27392 27499 0 27392 107 0 0 0 0 0 0 0 0 0 0 107 27392 27499 27499 27392 27392 27392 27392 27499 0 27392 27392 0 0 0 27392 27392 0 0 0 0 0 107 107 0 0 0 107 107 0 27499 107 107 107 107 27499 27499 107 27392 0 0 0 0 0 0 0 0 0 27392 107 107 107 107 107 107 27499 107 107 0 107 107 107 107 107 107 0 107 107 0 27392 27392 0 27392 27392 27392 27392 27392 27392 0 27392 27392 27499 27392 27392 27392 27392 27392 27392 107 0 0 0 0 0 0 0 0 27392 27392 27392 27499 27392 27392 27392 27499 27392 27392 27392 27392 27392 27392 0 0 27392 27392 27392 0 0 0 107 107 107 0 0 107 107 107 107 107 107 27499 107 107 107 27499 107 107 107 0 0 0 0 0 0 0 0 107 107 107 107 107 107 27507 107 107 107 107 0 0 107 0 107 107 107 107 107 0 27392 27392 27392 27392 27392 0 27392 0 0 27392 27392 27392 27392 29547 27392 27392 27392 27392 27392 27392 0 0 0 0 0 0 0 0 107 27392 27392 27499 27392 27392 27507 27392 27392 27392 0 27392 27392 27392 27392 27392 27392 27392 27392 27392 0 107 107 107 107 107 107 107 107 107 0 107 107 107 29547 107 107 27499 107 107 27392 0 0 0 0 0 0 0 27392 27499 107 0 107 107 29555 115 27499 107 107 107 107 0 107 107 107 107 107 0 107 0 27392 0 27392 27392 27392 27392 27392 0 27392 27392 27392 27392 27499 29440 29555 27392 27392 0 27392 27499 107 0 0 0 0 0 0 27392 27499 0 27392 27507 27392 27507 27392 27392 27392 27392 27392 27392 27392 27392 27392 27392 0 27392 27392 0 0 0 107 107 0 107 107 107 107 107 107 107 107 107 107 29547 107 29547 107 0 27499 107 0 0 0 0 0 0 27507 107 0 107 115 107 107 27499 27499 107 107 107 107 107 107 107 107 107 107 0 0 0 0 0 27392 27392 27392 27392 27392 27392 27392 27392 27392 27392 27499 27499 27392 27392 29440 27392 0 27392 29547 0 0 0 0 0 27392 27507 0 27392 27499 27507 27392 27392 27499 27392 27392 27392 27392 27392 27392 27392 27392 0 27392 27392 27392 27392 0 107 107 107 107 0 107 107 107 107 107 107 107 107 27499 107 107 29547 27499 107 0 29547 107 0 0 0 0 29440 115 107 107 107 107 107 27499 27499 107 107 107 0 0 27499 107 107 107 107 107 0 107 27499 27392 0 27392 27392 27392 27392 27392 27499 0 0 27392 27392 27392 27499 27499 27392 27392 27392 27392 27392 29440 115 0 0 0 0 29440 27499 0 29440 27499 27392 27392 29555 27392 27499 27392 0 107 27392 27392 27392 27392 27392 27392 27392 27392 27392 27499 107 107 107 107 107 107 107 107 107 27392 0 107 27499 107 29555 107 107 27499 115 0 27499 115 0 0 0 0 107 107 0 29547 107 107 107 115 107 107 107 27499 0 107 27499 107 107 107 107 107 0 29547 27499 27507 0 27392 27392 27392 27392 27392 27499 27392 0 27499 27392 27392 27392 29440 27392 27392 27392 27507 0 27392 27392 0 0 0 0 29547 27507 27392 29555 27392 27392 27507 27499 27392 27499 27392 0 27392 27392 27392 27499 27392 27499 27392 27392 27392 29440 27499 115 107 107 107 27499 107 27499 107 107 107 0 107 27499 107 27499 29547 107 107 29555 107 29547 27507 0 0 0 29440 27507 115 0 115 107 107 27507 107 107 107 107 0 107 107 29547 27499 107 107 107 107 0 29547 29555 27507 0 27392 27392 27392 27392 27499 27507 27392 27392 0 27392 27392 27392 27392 29547 27392 27392 29440 0 29440 29547 115 0 0 29440 27507 27392 27392 27499 27392 29440 27507 27392 27392 27392 27392 27499 27392 27392 29547 27392 27392 27499 27392 27392 27392 27392 29555 107 107 107 107 27499 107 107 27507 107 107 27499 107 107 107 107 29547 115 107 27499 107 107 29547 115 0 0 29440 107 107 0 107 107 27499 107 107 27499 107 27499 107 107 107 29547 27499 107 107 107 107 0 107 29555 27392 0 27392 27392 27392 27392 27499 27507 27392 27392 27392 27499 27392 27499 27392 27392 27499 27392 27392 0 27392 27392 115 0 0 29440 27499 27392 27392 27392 27392 29555 27392 27392 27499 27392 27507 27392 27392 27392 29440 27392 27392 27499 27392 0 27392 27392 29555 107 107 0 107 27499 107 107 115 107 107 107 29547 107 27499 107 107 29555 107 107 107 107 27499 115 0 0 29555 115 107 27499 107 29547 27507 107 107 107 107 27507 27499 107 107 27499 27499 107 29547 107 107 107 29547 27499 27507 27392 27392 27392 27507 27392 27499 27499 27392 27392 27499 29547 27392 27392 27392 27392 29547 27507 27392 27499 27392 29440 29555 0 0 27507 29555 27499 27499 27392 29440 27499 27392 29440 27392 27392 27507 27499 27392 27392 27392 27507 27392 29440 27499 0 27392 29547 27499 27507 107 0 27499 115 107 29547 107 107 107 27499 29547 107 107 115 107 27499 115 107 27499 27499 29555 29547 0 0 27507 29547 29555 107 107 29555 107 107 29555 0 107 29555 107 107 107 107 27507 107 29547 27499 107 0 29547 27499 27507 0 27392 27499 27507 27392 29547 27392 27392 27392 27392 29555 27392 0 29555 27392 27392 29555 27392 27392 29555 27507 29547 0 0 29547 0 27392 27392 27499 29547 27499 27392 27507 27392 27392 29440 27499 27392 27499 27392 29555 27499 29440 29547 27499 0 29555 29555 29555 0 27499 27507 115 27499 29555 107 27499 107 27499 115 107 107 29547 107 27499 27507 27499 107 107 0 27507 0 0 29547 107 27499 107 107 107 27499 107 27507 0 107 29547 107 107 107 107 29547 107 29547 29555 115 0 29555 29555 29555 0 29440 29555 27507 27392 27507 27392 27392 27392 27392 27507 27392 0 29547 27392 27499 27392 27392 27392 27499 27392 27507 0 27392 29547 27499 27499 29555 27499 27499 27392 27392 27392 0 0 29440 27499 27392 27499 27392 29440 27499 29440 27507 115 0 29440 29555 115 0 29440 29547 115 27499 115 107 27499 107 27499 115 0 0 107 107 107 27499 27499 29555 27499 27499 27507 107 0 29547 107 107 27507 107 107 107 29547 27499 107 107 29547 27499 107 27499 107 107 29555 107 29555 29555 0 29440 29555 115 0 29555 29555 27392 29555 27392 27392 27499 27392 27499 27507 27392 27392 27499 27507 27392 27392 27392 29547 27392 27392 27507 0 27392 29547 27507 27499 27507 27392 27499 27392 29440 27499 27392 0 27392 27392 27392 29555 27499 27392 27392 27392 29555 115 0 0 0 0 0 29440 29555 107 107 107 27499 29555 107 107 107 0 107 27499 115 107 27499 107 29547 27499 29547 27507 107 29440 107 29547 115 27499 107 107 27499 29555 107 107 107 29547 27507 107 29555 27499 107 29555 27507 0 0 0 0 0 0 0 0 0 29547 29555 27392 27499 29555 27392 29547 27507 27392 27392 27392 29555 27499 27392 27392 27499 29440 27507 27392 115 29440 27499 27392 27507 27507 29440 27499 27392 27507 27499 27392 0 27392 29555 27499 29440 29555 29555 115 0 0 0 0 0 0 0 0 0 0 0 29440 29555 29555 115 27499 29555 107 0 107 27499 29547 107 27499 115 29547 29547 107 27499 115 29440 27499 27499 107 115 29547 107 107 29555 107 107 27499 0 29555 27499 27499 29555 115 0 0 0 0 0 115 0 29440 0 0 0 0 0 29440 29555 27499 27499 29555 0 27499 27392 27392 29555 27392 27392 27507 29440 27392 27499 27499 115 29440 27392 29555 27499 29555 29440 27507 27499 29440 27392 27392 27392 0 29440 27392 29555 115 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 107 115 0 107 107 107 115 27499 29547 115 29555 27499 29555 107 115 29440 107 29547 107 107 107 115 107 29547 107 107 27499 107 0 0 115 107 0 0 0 0 115 0 0 0 0 0 29440 0 0 0 0 27392 29440 0 0 27392 27499 27392 27392 27507 27392 29440 27392 27392 27392 27507 27392 115 29440 27392 29555 27499 27392 27499 29555 27499 27392 27499 27392 27499 27392 27392 115 27392 0 0 0 29440 0 0 0 0 0 0 0 0 0 115 0 0 0 107 29440 107 107 27499 107 27499 107 27499 29555 27499 107 27499 29555 107 115 29440 107 27507 107 107 107 27392 27499 107 107 107 27499 107 27499 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 27499 27392 27499 27392 27392 27392 27499 107 27392 27392 27392 29547 27392 115 27392 27507 29555 27392 27392 27499 0 27499 27392 27499 27392 29547 27499 27392 27507 0 0 0 107 0 0 0 0 27392 27499 107 0 0 0 0 27392 0 0 0 29547 107 27499 27507 107 27499 107 27499 0 27499 107 107 29555 29547 107 27392 115 107 107 27499 107 107 27392 0 0 107 29547 27507 29547 115 0 0 0 0 0 0 0 0 107 27499 27392 0 0 0 0 0 0 0 0 29440 27507 29547 27507 27392 0 0 107 27392 27392 27499 27392 27392 29440 107 27392 29555 27499 27499 27392 107 27392 27499 27392 0 27392 27499 29555 27499 107 0 0 107 0 0 0 0 27499 27392 0 107 27499 0 0 0 0 27392 0 0 27392 27499 29555 27499 107 0 107 27499 107 27392 107 27499 27499 29555 107 27392 29547 27507 107 107 107 0 107 29547 107 27499 107 29555 27507 0 27392 0 0 0 0 27392 27499 0 0 0 0 0 27499 107 0 0 0 0 107 0 29547 29555 27392 27499 27392 27507 27392 0 27392 27392 27392 29547 27507 107 29440 29547 27507 27499 27392 27392 27392 27499 29440 107 27392 27392 29555 27392 0 0 107 0 0 27392 107 0 0 0 0 0 0 0 27392 107 0 0 27392 0 0 107 29555 107 107 27392 115 27499 107 107 107 27499 29547 27507 115 29440 29547 27507 107 107 27499 107 107 29547 107 27499 107 29547 107 0 0 0 0 0 107 0 0 0 0 0 0 0 0 0 27392 0 0 0 0 0 27392 27507 27392 27499 27392 27507 27392 27392 27499 27392 27392 29547 27507 115 29440 27507 27507 27392 27392 27392 27392 27392 29440 107 107 27392 29555 107 0 0 0 107 27392 0 0 0 0 0 0 0 0 0 0 0 107 27392 0 0 0 27392 29555 107 27392 27392 115 107 107 107 107 107 29547 29547 115 27392 27507 27507 107 107 27499 107 107 29555 107 115 0 29555 107 0 29440 0 27392 107 0 0 0 0 0 0 0 0 0 0 0 27392 107 0 115 0 27392 29555 0 29440 27392 29555 27392 27392 27499 27392 27392 29547 29547 107 0 27507 29440 27499 27392 27392 27499 27392 27507 27392 27507 27392 29440 107 0 0 0 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 107 0 0 0 27392 115 107 29547 107 29547 107 27499 107 107 27499 115 29547 0 0 29555 29547 27499 107 107 107 107 27507 107 27507 107 27499 0 0 0 0 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 107 0 0 0 0 27499 27392 29547 27392 29547 27392 27392 27392 27392 27499 27507 29555 0 0 29547 29547 29555 27392 29440 27499 27392 27507 27392 29555 107 27392 0 0 115 0 107 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 0 29440 0 0 107 27392 29555 107 29547 107 27499 115 107 29555 27507 27507 0 0 29547 107 29555 27499 29547 107 29547 107 107 29547 107 27392 0 0 0 0 107 0 28672 0 0 0 0 0 0 0 0 0 112 0 27392 0 0 0 0 107 27392 27507 27392 27392 27507 27392 27507 27499 29555 27392 27507 0 0 29547 27499 27392 27392 27507 27392 29440 27499 27392 29440 27499 0 0 0 0 0 107 0 0 0 0 0 112 0 28672 0 0 0 0 0 27392 0 0 0 0 0 27499 115 107 27499 115 107 29547 107 107 27499 27507 0 0 29440 27507 27499 27499 29555 107 29547 27507 107 29547 29555 27507 0 0 115 27392 0 0 0 0 0 112 0 0 0 28672 0 0 0 0 0 107 29440 0 0 29547 29555 27507 27392 29547 27507 27392 29555 27499 27499 29547 115 0 0 29440 29555 27499 29440 29440 27499 27392 27507 27392 29440 29555 27507 0 0 0 27392 0 0 0 28784 0 112 0 0 0 28672 0 28784 0 0 0 107 0 0 0 29547 29555 115 107 29547 107 27499 115 115 27499 29555 115 0 0 27392 29555 29555 27499 107 107 107 27507 107 107 29555 27507 27392 0 0 27392 0 0 0 0 0 28672 28672 0 112 112 0 0 0 0 0 107 0 0 107 29547 29555 27392 27392 29547 27392 27392 27392 27499 29555 29555 107 0 0 27392 29555 29555 29440 27499 27499 27392 27507 27499 29440 29555 27392 0 27392 0 27392 0 0 0 28672 112 0 28672 0 112 0 28672 112 0 0 0 107 0 107 0 107 29555 115 27499 29547 107 27499 27499 115 29555 29555 107 0 0 0 29555 29555 29547 115 107 107 29547 27499 29547 27499 27499 0 0 107 27499 0 0 0 0 28672 0 0 0 0 0 112 0 0 0 0 27499 27392 0 0 27499 27499 27507 27499 27507 27392 27392 29440 27507 29555 29555 0 0 0 0 29547 29547 29440 29555 27507 0 29547 27507 29440 27507 27392 0 0 0 27392 0 0 0 0 112 0 0 0 0 0 28672 0 0 0 0 107 0 0 0 107 29547 115 29547 27507 0 29547 29555 115 27507 27507 0 0 0 0 29440 107 107 29555 115 107 0 27499 107 27499 27499 0 0 0 27392 0 0 0 112 30720 0 0 28784 0 0 120 28672 0 0 0 107 0 0 0 27499 27499 27392 27499 0 27392 29440 29555 27392 27392 115 0 0 0 0 29440 27507 27392 29555 27507 27392 107 27392 27499 27507 27499 0 0 0 27392 0 0 0 0 0 0 28672 30840 112 0 0 0 0 0 0 107 0 0 0 27499 29547 27499 107 27392 107 29547 29555 107 29547 115 0 0 0 0 27392 27507 107 29547 27499 107 29547 0 27499 29555 27499 107 0 115 27392 0 0 0 112 0 0 30832 0 28792 0 0 28672 0 0 0 107 29440 0 27392 27499 29555 27499 0 27507 27392 27499 27507 27392 29547 107 0 0 0 0 0 29555 27507 29440 27507 27499 29440 0 29440 29440 27507 107 0 0 27392 0 0 0 0 30720 0 30832 0 28792 0 120 0 0 0 0 107 0 0 27392 29547 115 115 0 115 27499 29547 115 29547 29555 0 0 0 0 0 0 29440 27507 107 29555 107 29547 107 0 29555 115 0 0 0 0 107 0 0 0 112 112 28672 30840 112 28672 28672 0 0 0 27392 0 0 0 0 29440 29555 0 27392 27507 27392 29555 27392 29547 115 0 0 0 0 0 0 27392 29555 27507 29555 27499 27392 27499 0 0 0 107 0 29440 0 107 0 0 0 28672 28672 0 0 0 112 112 0 0 0 27392 0 115 0 27392 0 0 0 27499 107 27499 29555 29547 29555 107 0 0 0 0 0 0 0 29555 29555 29547 29555 107 27507 107 107 29440 27507 0 0 0 107 0 112 28672 0 30720 0 0 0 120 0 112 28672 0 27392 0 0 0 29547 115 27392 27392 29547 27392 29555 27507 29555 29555 0 0 0 0 0 0 0 0 29547 29555 29555 29555 27499 29555 27499 27507 29440 27507 0 0 0 27392 0 28672 0 112 0 0 28784 0 0 28672 0 112 0 107 0 0 0 29547 115 29547 27499 29555 27499 29555 29555 29555 27507 0 0 0 0 0 0 0 0 27392 29555 29555 115 107 29547 107 29555 107 115 107 29440 0 27392 0 0 28784 0 0 28672 0 112 0 0 28784 0 0 107 0 115 27392 29440 27392 29555 27392 27507 27392 29440 29555 29555 107 0 0 0 0 0 0 0 0 27392 29547 27507 27507 27499 29440 27499 29440 27392 29555 107 0 0 0 107 0 0 0 112 0 0 0 28672 0 0 0 27392 0 0 0 27392 29555 107 115 27499 115 27499 29547 29547 27507 107 0 0 0 0 0 0 0 0 0 29547 29555 107 107 107 27507 29547 107 29555 27499 0 0 27392 27392 0 0 0 0 112 0 28672 0 0 0 0 107 107 0 0 27499 29555 27392 27507 29547 27392 27392 27392 29555 27507 0 0 0 0 0 0 0 0 0 0 29440 29555 27507 27499 27499 29555 27499 29555 27507 27507 0 107 107 0 107 0 0 0 0 0 0 0 0 0 27392 0 27392 27392 0 29547 29547 29555 27499 29555 27499 27499 29547 29555 115 0 0 0 0 0 0 0 0 0 0 0 29547 29555 29547 27499 29555 115 115 107 29555 107 0 29440 0 27392 107 0 0 0 0 0 0 0 27392 107 0 115 0 27392 29555 27392 29440 29440 29555 27499 27507 29555 27507 0 0 0 0 0 0 0 0 0 0 0 0 27392 29555 29547 27507 29440 27507 27507 29440 29440 27499 0 0 0 0 27392 27499 0 0 0 0 0 27499 107 0 0 0 0 27499 115 115 29547 29547 115 29547 27507 29555 107 0 0 0 0 0 0 0 0 0 0 0 0 107 29547 29555 29555 107 107 29555 29555 107 29555 115 0 29440 0 0 0 27499 27499 27499 27499 27499 0 0 0 115 0 29440 29555 27392 29555 29555 27392 27392 29555 29555 27507 27392 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 29555 27507 27507 27392 29440 29555 27499 29440 29555 107 0 0 115 0 0 0 0 0 0 0 29440 0 0 27392 29555 115 27499 29555 115 107 29547 29547 29555 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 27507 107 107 29555 29555 29547 115 115 107 0 0 0 115 0 0 0 29440 0 0 0 27392 29440 29440 27507 29555 29555 27392 27392 29547 29555 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 29555 27507 27499 29547 29555 29555 29555 0 27507 27499 0 0 0 0 0 0 0 0 0 27499 29547 0 29555 29555 29555 27507 27499 29547 29555 29555 115 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 29555 27499 27499 29555 29555 115 0 29555 29555 27499 107 0 0 0 0 0 27392 27499 29555 29555 0 29440 29555 29555 27499 27499 29555 29555 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 29555 29555 29555 29555 29555 115 0 29555 29440 29555 29555 27499 27507 27499 27499 27499 29547 27499 29555 29555 115 29555 0 29440 29555 29555 29555 29555 29555 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 29555 29440 27507 29440 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 29555 115 29547 115 29555 29555 115 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29440 29555 107 29555 29555 29555 29555 27507 27507 29547 29555 29555 115 29555 29440 29555 29555 27507 29547 29547 29555 29555 29555 29555 27392 29555 115 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27392 27392 29440 29555 29555 29555 29555 29555 29555 29555 29555 29547 0 27507 29555 29555 29555 29555 29555 29555 29555 29555 115 107 107 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 29555 29555 29555 29555 29555 115 29555 29555 27499 29555 29555 29555 27499 29555 29555 29440 29555 29555 29555 29555 29555 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29547 29555 29555 27392 29440 29555 29440 29555 29555 27507 29555 29547 29555 29555 115 29555 115 107 29555 29555 27507 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27499 29555 27499 29547 29547 27507 29555 29555 29555 29555 29555 29547 27507 27507 27499 29555 27499 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 27507 29555 29555 29555 29555 29555 29555 29555 29547 29555 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29555 29555 29555 29555 29555 29555 29555 29555 29555 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid1.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid1.lvl deleted file mode 100644 index b081dc8fe..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid1.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 28 - 1 - 30 - 28 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 28 - 3 - 110 - 28 - 3 - 130 - 28 - 3 - 0 - 0 - 0 - 170 - 28 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 34 - 1 - 30 - 34 - 1 - 50 - 34 - 1 - 0 - 0 - 0 - 90 - 34 - 3 - 110 - 34 - 3 - 130 - 34 - 3 - 0 - 0 - 0 - 170 - 34 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 40 - 1 - 0 - 0 - 0 - 50 - 40 - 1 - 0 - 0 - 0 - 90 - 40 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 46 - 1 - 0 - 0 - 0 - 50 - 46 - 1 - 0 - 0 - 0 - 90 - 46 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 46 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 52 - 1 - 0 - 0 - 0 - 50 - 52 - 1 - 0 - 0 - 0 - 90 - 52 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 52 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 58 - 1 - 30 - 58 - 2 - 50 - 58 - 1 - 0 - 0 - 0 - 90 - 58 - 3 - 110 - 58 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 58 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 64 - 1 - 30 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 64 - 3 - 110 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 70 - 1 - 0 - 0 - 0 - 50 - 70 - 1 - 0 - 0 - 0 - 90 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 76 - 1 - 0 - 0 - 0 - 50 - 76 - 1 - 0 - 0 - 0 - 90 - 76 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 82 - 1 - 0 - 0 - 0 - 50 - 82 - 1 - 0 - 0 - 0 - 90 - 82 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 88 - 1 - 0 - 0 - 0 - 50 - 88 - 1 - 0 - 0 - 0 - 90 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 88 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 1 - 0 - 0 - 0 - 50 - 94 - 1 - 0 - 0 - 0 - 90 - 94 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 94 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 100 - 1 - 0 - 0 - 0 - 50 - 100 - 1 - 0 - 0 - 0 - 90 - 100 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 100 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 106 - 1 - 0 - 0 - 0 - 50 - 106 - 1 - 0 - 0 - 0 - 90 - 106 - 3 - 110 - 106 - 3 - 130 - 106 - 3 - 0 - 0 - 0 - 170 - 106 - 5 - 190 - 106 - 5 - 210 - 106 - 5 - 0 - 0 - 0 - 10 - 112 - 1 - 0 - 0 - 0 - 50 - 112 - 1 - 0 - 0 - 0 - 90 - 112 - 3 - 110 - 112 - 3 - 130 - 112 - 3 - 0 - 0 - 0 - 170 - 112 - 5 - 190 - 112 - 5 - 210 - 112 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid10.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid10.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid10.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid11.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid11.lvl deleted file mode 100644 index 9e3bd1810..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid11.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 22 - 8 - 0 - 0 - 0 - 90 - 22 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 7 - 0 - 0 - 0 - 190 - 22 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 28 - 8 - 0 - 0 - 0 - 70 - 28 - 7 - 0 - 0 - 0 - 110 - 28 - 6 - 130 - 28 - 6 - 0 - 0 - 0 - 170 - 28 - 7 - 0 - 0 - 0 - 210 - 28 - 8 - 0 - 0 - 0 - 10 - 34 - 8 - 0 - 0 - 0 - 50 - 34 - 7 - 0 - 0 - 0 - 90 - 34 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 6 - 0 - 0 - 0 - 190 - 34 - 7 - 0 - 0 - 0 - 230 - 34 - 8 - 0 - 0 - 0 - 30 - 40 - 7 - 0 - 0 - 0 - 70 - 40 - 6 - 0 - 0 - 0 - 110 - 40 - 5 - 130 - 40 - 5 - 0 - 0 - 0 - 170 - 40 - 6 - 0 - 0 - 0 - 210 - 40 - 7 - 0 - 0 - 0 - 10 - 46 - 7 - 0 - 0 - 0 - 50 - 46 - 6 - 0 - 0 - 0 - 90 - 46 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 46 - 5 - 0 - 0 - 0 - 190 - 46 - 6 - 0 - 0 - 0 - 230 - 46 - 7 - 0 - 0 - 0 - 30 - 52 - 6 - 0 - 0 - 0 - 70 - 52 - 5 - 0 - 0 - 0 - 110 - 52 - 4 - 130 - 52 - 4 - 0 - 0 - 0 - 170 - 52 - 5 - 0 - 0 - 0 - 210 - 52 - 6 - 0 - 0 - 0 - 10 - 58 - 6 - 0 - 0 - 0 - 50 - 58 - 5 - 0 - 0 - 0 - 90 - 58 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 58 - 4 - 0 - 0 - 0 - 190 - 58 - 5 - 0 - 0 - 0 - 230 - 58 - 6 - 0 - 0 - 0 - 30 - 64 - 5 - 0 - 0 - 0 - 70 - 64 - 4 - 0 - 0 - 0 - 110 - 64 - 3 - 130 - 64 - 3 - 0 - 0 - 0 - 170 - 64 - 4 - 0 - 0 - 0 - 210 - 64 - 5 - 0 - 0 - 0 - 10 - 70 - 5 - 0 - 0 - 0 - 50 - 70 - 4 - 0 - 0 - 0 - 90 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 3 - 0 - 0 - 0 - 190 - 70 - 4 - 0 - 0 - 0 - 230 - 70 - 5 - 0 - 0 - 0 - 30 - 76 - 4 - 0 - 0 - 0 - 70 - 76 - 3 - 0 - 0 - 0 - 110 - 76 - 2 - 130 - 76 - 2 - 0 - 0 - 0 - 170 - 76 - 3 - 0 - 0 - 0 - 210 - 76 - 4 - 0 - 0 - 0 - 10 - 82 - 4 - 0 - 0 - 0 - 50 - 82 - 3 - 0 - 0 - 0 - 90 - 82 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 82 - 2 - 0 - 0 - 0 - 190 - 82 - 3 - 0 - 0 - 0 - 230 - 82 - 4 - 0 - 0 - 0 - 30 - 88 - 3 - 0 - 0 - 0 - 70 - 88 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 88 - 2 - 0 - 0 - 0 - 210 - 88 - 3 - 0 - 0 - 0 - 10 - 94 - 3 - 0 - 0 - 0 - 50 - 94 - 2 - 0 - 0 - 0 - 90 - 94 - 1 - 110 - 94 - 9 - 130 - 94 - 9 - 150 - 94 - 1 - 0 - 0 - 0 - 190 - 94 - 2 - 0 - 0 - 0 - 230 - 94 - 3 - 0 - 0 - 0 - 30 - 100 - 2 - 0 - 0 - 0 - 70 - 100 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 100 - 1 - 0 - 0 - 0 - 210 - 100 - 2 - 0 - 0 - 0 - 10 - 106 - 2 - 0 - 0 - 0 - 50 - 106 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 106 - 1 - 0 - 0 - 0 - 230 - 106 - 2 - 0 - 0 - 0 - 30 - 112 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 112 - 1 - 0 - 0 - 0 - 10 - 118 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 1 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid12.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid12.lvl deleted file mode 100644 index b10caf035..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid12.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 30 - 10 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 10 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 16 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 16 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 22 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 22 - 1 - 0 - 0 - 0 - 10 - 28 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 28 - 4 - 10 - 34 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 34 - 4 - 0 - 0 - 0 - 30 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 40 - 9 - 130 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 40 - 5 - 0 - 0 - 0 - 10 - 46 - 1 - 30 - 46 - 5 - 0 - 0 - 0 - 70 - 46 - 3 - 0 - 0 - 0 - 110 - 46 - 6 - 130 - 46 - 6 - 0 - 0 - 0 - 170 - 46 - 3 - 0 - 0 - 0 - 210 - 46 - 5 - 0 - 0 - 0 - 10 - 52 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 52 - 3 - 90 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 6 - 170 - 52 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 52 - 1 - 10 - 58 - 1 - 0 - 0 - 0 - 50 - 58 - 2 - 70 - 58 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 58 - 3 - 190 - 58 - 2 - 0 - 0 - 0 - 230 - 58 - 1 - 10 - 64 - 1 - 30 - 64 - 5 - 50 - 64 - 2 - 70 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 64 - 3 - 190 - 64 - 2 - 210 - 64 - 5 - 230 - 64 - 1 - 10 - 70 - 1 - 30 - 70 - 5 - 50 - 70 - 2 - 70 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 3 - 190 - 70 - 2 - 210 - 70 - 5 - 230 - 70 - 1 - 10 - 76 - 1 - 30 - 76 - 5 - 0 - 0 - 0 - 70 - 76 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 76 - 3 - 0 - 0 - 0 - 210 - 76 - 5 - 230 - 76 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 5 - 230 - 82 - 1 - 10 - 88 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 9 - 90 - 94 - 1 - 110 - 94 - 1 - 130 - 94 - 1 - 150 - 94 - 1 - 170 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 94 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 100 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 100 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 7 - 0 - 0 - 0 - 90 - 106 - 1 - 110 - 106 - 1 - 130 - 106 - 1 - 150 - 106 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 112 - 7 - 70 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 118 - 9 - 30 - 118 - 1 - 50 - 118 - 9 - 70 - 118 - 1 - 90 - 118 - 1 - 110 - 118 - 1 - 130 - 118 - 1 - 150 - 118 - 1 - 170 - 118 - 1 - 190 - 118 - 9 - 210 - 118 - 1 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid13.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid13.lvl deleted file mode 100644 index d7466a716..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid13.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 10 - 2 - 70 - 10 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 10 - 2 - 190 - 10 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 22 - 9 - 110 - 22 - 9 - 130 - 22 - 9 - 150 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 28 - 1 - 90 - 28 - 1 - 110 - 28 - 1 - 130 - 28 - 1 - 150 - 28 - 1 - 170 - 28 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 34 - 5 - 70 - 34 - 5 - 90 - 34 - 5 - 110 - 34 - 5 - 130 - 34 - 5 - 150 - 34 - 5 - 170 - 34 - 5 - 190 - 34 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 6 - 70 - 40 - 6 - 90 - 40 - 6 - 110 - 40 - 6 - 130 - 40 - 6 - 150 - 40 - 6 - 170 - 40 - 6 - 190 - 40 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 9 - 0 - 0 - 0 - 70 - 46 - 7 - 90 - 46 - 7 - 110 - 46 - 7 - 130 - 46 - 7 - 150 - 46 - 7 - 170 - 46 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 9 - 0 - 0 - 0 - 70 - 64 - 7 - 90 - 64 - 7 - 110 - 64 - 7 - 130 - 64 - 7 - 150 - 64 - 7 - 170 - 64 - 7 - 0 - 0 - 0 - 210 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 70 - 6 - 90 - 70 - 6 - 110 - 70 - 6 - 130 - 70 - 6 - 150 - 70 - 6 - 170 - 70 - 6 - 0 - 0 - 0 - 210 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 76 - 6 - 70 - 76 - 6 - 90 - 76 - 6 - 110 - 76 - 6 - 130 - 76 - 6 - 150 - 76 - 6 - 170 - 76 - 6 - 190 - 76 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 82 - 5 - 70 - 82 - 5 - 90 - 82 - 5 - 110 - 82 - 5 - 130 - 82 - 5 - 150 - 82 - 5 - 170 - 82 - 5 - 190 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 88 - 1 - 90 - 88 - 1 - 110 - 88 - 1 - 130 - 88 - 1 - 150 - 88 - 1 - 170 - 88 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 94 - 9 - 110 - 94 - 9 - 130 - 94 - 9 - 150 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 106 - 5 - 30 - 106 - 5 - 50 - 106 - 5 - 70 - 106 - 5 - 90 - 106 - 5 - 110 - 106 - 5 - 130 - 106 - 5 - 150 - 106 - 5 - 170 - 106 - 5 - 190 - 106 - 5 - 210 - 106 - 5 - 230 - 106 - 5 - 10 - 112 - 4 - 30 - 112 - 4 - 50 - 112 - 4 - 70 - 112 - 4 - 90 - 112 - 4 - 110 - 112 - 4 - 130 - 112 - 4 - 150 - 112 - 4 - 170 - 112 - 4 - 190 - 112 - 4 - 210 - 112 - 4 - 230 - 112 - 4 - 10 - 118 - 3 - 30 - 118 - 3 - 50 - 118 - 3 - 70 - 118 - 3 - 90 - 118 - 3 - 110 - 118 - 3 - 130 - 118 - 3 - 150 - 118 - 3 - 170 - 118 - 3 - 190 - 118 - 3 - 210 - 118 - 3 - 230 - 118 - 3 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid14.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid14.lvl deleted file mode 100644 index 7f583b5a0..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid14.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 30 - 10 - 5 - 50 - 10 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 10 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 10 - 3 - 0 - 0 - 0 - 30 - 16 - 5 - 50 - 16 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 16 - 3 - 150 - 16 - 7 - 170 - 16 - 7 - 190 - 16 - 7 - 210 - 16 - 7 - 230 - 16 - 3 - 0 - 0 - 0 - 30 - 22 - 9 - 50 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 3 - 170 - 22 - 7 - 190 - 22 - 7 - 210 - 22 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 28 - 9 - 50 - 28 - 9 - 70 - 28 - 1 - 90 - 28 - 1 - 110 - 28 - 6 - 130 - 28 - 6 - 150 - 28 - 6 - 170 - 28 - 3 - 190 - 28 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 9 - 50 - 34 - 9 - 70 - 34 - 1 - 90 - 34 - 1 - 110 - 34 - 6 - 130 - 34 - 6 - 150 - 34 - 6 - 170 - 34 - 3 - 190 - 34 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 5 - 50 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 3 - 170 - 40 - 6 - 190 - 40 - 6 - 210 - 40 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 5 - 50 - 46 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 46 - 3 - 150 - 46 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 46 - 6 - 230 - 46 - 3 - 0 - 0 - 0 - 30 - 52 - 9 - 50 - 52 - 9 - 70 - 52 - 1 - 90 - 52 - 1 - 0 - 0 - 0 - 130 - 52 - 3 - 150 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 52 - 6 - 230 - 52 - 3 - 0 - 0 - 0 - 30 - 58 - 9 - 50 - 58 - 9 - 70 - 58 - 1 - 90 - 58 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 58 - 3 - 170 - 58 - 6 - 190 - 58 - 6 - 210 - 58 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 5 - 50 - 64 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 64 - 8 - 130 - 64 - 8 - 150 - 64 - 8 - 170 - 64 - 3 - 190 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 5 - 50 - 70 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 3 - 170 - 70 - 5 - 190 - 70 - 5 - 210 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 5 - 50 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 76 - 3 - 150 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 76 - 5 - 230 - 76 - 3 - 0 - 0 - 0 - 30 - 82 - 5 - 50 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 82 - 3 - 150 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 5 - 230 - 82 - 3 - 0 - 0 - 0 - 30 - 88 - 5 - 50 - 88 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 88 - 3 - 170 - 88 - 5 - 190 - 88 - 5 - 210 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 9 - 50 - 94 - 9 - 70 - 94 - 1 - 90 - 94 - 1 - 110 - 94 - 8 - 130 - 94 - 8 - 150 - 94 - 8 - 170 - 94 - 3 - 190 - 94 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 100 - 9 - 50 - 100 - 9 - 70 - 100 - 2 - 90 - 100 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 3 - 170 - 100 - 4 - 190 - 100 - 4 - 210 - 100 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 5 - 50 - 106 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 106 - 3 - 150 - 106 - 4 - 170 - 106 - 4 - 190 - 106 - 4 - 210 - 106 - 4 - 230 - 106 - 3 - 0 - 0 - 0 - 30 - 112 - 5 - 50 - 112 - 5 - 70 - 112 - 9 - 90 - 112 - 6 - 110 - 112 - 6 - 130 - 112 - 6 - 150 - 112 - 9 - 170 - 112 - 6 - 190 - 112 - 6 - 210 - 112 - 9 - 230 - 112 - 3 - 0 - 0 - 0 - 30 - 118 - 5 - 50 - 118 - 5 - 70 - 118 - 9 - 90 - 118 - 6 - 110 - 118 - 6 - 130 - 118 - 6 - 150 - 118 - 9 - 170 - 118 - 6 - 190 - 118 - 6 - 210 - 118 - 9 - 230 - 118 - 6 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid15.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid15.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid15.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid16.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid16.lvl deleted file mode 100644 index 17cb41a7f..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid16.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 16 - 6 - 30 - 16 - 6 - 50 - 16 - 6 - 70 - 16 - 6 - 90 - 16 - 6 - 110 - 16 - 6 - 130 - 16 - 6 - 150 - 16 - 6 - 170 - 16 - 6 - 190 - 16 - 6 - 210 - 16 - 6 - 230 - 16 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 34 - 9 - 30 - 34 - 9 - 50 - 34 - 9 - 70 - 34 - 9 - 90 - 34 - 9 - 110 - 34 - 9 - 130 - 34 - 9 - 150 - 34 - 9 - 170 - 34 - 3 - 190 - 34 - 3 - 210 - 34 - 3 - 230 - 34 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 52 - 2 - 30 - 52 - 2 - 50 - 52 - 2 - 70 - 52 - 2 - 90 - 52 - 2 - 110 - 52 - 2 - 130 - 52 - 2 - 150 - 52 - 2 - 170 - 52 - 2 - 190 - 52 - 2 - 210 - 52 - 2 - 230 - 52 - 2 - 10 - 58 - 6 - 30 - 58 - 6 - 50 - 58 - 6 - 70 - 58 - 6 - 90 - 58 - 6 - 110 - 58 - 6 - 130 - 58 - 6 - 150 - 58 - 6 - 170 - 58 - 6 - 190 - 58 - 6 - 210 - 58 - 6 - 230 - 58 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 76 - 2 - 30 - 76 - 2 - 50 - 76 - 2 - 70 - 76 - 2 - 90 - 76 - 9 - 110 - 76 - 9 - 130 - 76 - 9 - 150 - 76 - 9 - 170 - 76 - 9 - 190 - 76 - 9 - 210 - 76 - 9 - 230 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 5 - 30 - 94 - 5 - 50 - 94 - 5 - 70 - 94 - 5 - 90 - 94 - 5 - 110 - 94 - 5 - 130 - 94 - 5 - 150 - 94 - 5 - 170 - 94 - 5 - 190 - 94 - 5 - 210 - 94 - 5 - 230 - 94 - 5 - 10 - 100 - 4 - 30 - 100 - 4 - 50 - 100 - 4 - 70 - 100 - 4 - 90 - 100 - 4 - 110 - 100 - 4 - 130 - 100 - 4 - 150 - 100 - 4 - 170 - 100 - 4 - 190 - 100 - 4 - 210 - 100 - 4 - 230 - 100 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 118 - 9 - 30 - 118 - 9 - 50 - 118 - 9 - 70 - 118 - 9 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 170 - 118 - 1 - 190 - 118 - 1 - 210 - 118 - 1 - 230 - 118 - 1 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid17.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid17.lvl deleted file mode 100644 index 01be827fc..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid17.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 16 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 16 - 9 - 130 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 16 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 22 - 6 - 50 - 22 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 22 - 9 - 130 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 3 - 210 - 22 - 6 - 0 - 0 - 0 - 10 - 28 - 6 - 30 - 28 - 6 - 50 - 28 - 6 - 70 - 28 - 3 - 0 - 0 - 0 - 110 - 28 - 9 - 130 - 28 - 9 - 0 - 0 - 0 - 170 - 28 - 3 - 190 - 28 - 6 - 210 - 28 - 6 - 230 - 28 - 6 - 0 - 0 - 0 - 30 - 34 - 6 - 50 - 34 - 6 - 70 - 34 - 6 - 90 - 34 - 3 - 110 - 34 - 9 - 130 - 34 - 9 - 150 - 34 - 3 - 170 - 34 - 6 - 190 - 34 - 6 - 210 - 34 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 5 - 50 - 40 - 5 - 70 - 40 - 5 - 90 - 40 - 5 - 110 - 40 - 1 - 130 - 40 - 1 - 150 - 40 - 5 - 170 - 40 - 5 - 190 - 40 - 5 - 210 - 40 - 5 - 0 - 0 - 0 - 10 - 46 - 9 - 30 - 46 - 9 - 50 - 46 - 9 - 70 - 46 - 9 - 90 - 46 - 1 - 110 - 46 - 4 - 130 - 46 - 4 - 150 - 46 - 1 - 170 - 46 - 9 - 190 - 46 - 9 - 210 - 46 - 9 - 230 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 52 - 1 - 90 - 52 - 1 - 110 - 52 - 1 - 130 - 52 - 1 - 150 - 52 - 1 - 170 - 52 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 58 - 1 - 70 - 58 - 1 - 90 - 58 - 1 - 110 - 58 - 1 - 130 - 58 - 1 - 150 - 58 - 1 - 170 - 58 - 1 - 190 - 58 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 1 - 50 - 64 - 8 - 70 - 64 - 8 - 90 - 64 - 8 - 110 - 64 - 8 - 130 - 64 - 8 - 150 - 64 - 8 - 170 - 64 - 8 - 190 - 64 - 8 - 210 - 64 - 1 - 0 - 0 - 0 - 10 - 70 - 1 - 30 - 70 - 6 - 50 - 70 - 6 - 70 - 70 - 7 - 90 - 70 - 7 - 110 - 70 - 7 - 130 - 70 - 7 - 150 - 70 - 7 - 170 - 70 - 7 - 190 - 70 - 6 - 210 - 70 - 6 - 230 - 70 - 1 - 10 - 76 - 2 - 30 - 76 - 6 - 50 - 76 - 6 - 70 - 76 - 7 - 90 - 76 - 7 - 110 - 76 - 7 - 130 - 76 - 7 - 150 - 76 - 7 - 170 - 76 - 7 - 190 - 76 - 6 - 210 - 76 - 6 - 230 - 76 - 2 - 0 - 0 - 0 - 30 - 82 - 2 - 50 - 82 - 8 - 70 - 82 - 8 - 90 - 82 - 8 - 110 - 82 - 8 - 130 - 82 - 8 - 150 - 82 - 8 - 170 - 82 - 8 - 190 - 82 - 8 - 210 - 82 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 88 - 2 - 70 - 88 - 1 - 90 - 88 - 1 - 110 - 88 - 1 - 130 - 88 - 1 - 150 - 88 - 1 - 170 - 88 - 1 - 190 - 88 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 9 - 30 - 94 - 9 - 50 - 94 - 9 - 70 - 94 - 2 - 90 - 94 - 1 - 110 - 94 - 1 - 130 - 94 - 1 - 150 - 94 - 1 - 170 - 94 - 2 - 190 - 94 - 9 - 210 - 94 - 9 - 230 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 4 - 90 - 100 - 2 - 110 - 100 - 1 - 130 - 100 - 1 - 150 - 100 - 2 - 170 - 100 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 106 - 7 - 90 - 106 - 7 - 110 - 106 - 7 - 130 - 106 - 7 - 150 - 106 - 7 - 170 - 106 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 50 - 112 - 9 - 70 - 112 - 9 - 90 - 112 - 8 - 110 - 112 - 8 - 130 - 112 - 8 - 150 - 112 - 8 - 170 - 112 - 9 - 190 - 112 - 9 - 210 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid18.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid18.lvl deleted file mode 100644 index e920006f8..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid18.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 22 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 22 - 6 - 130 - 22 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 28 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 28 - 6 - 130 - 28 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 28 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 8 - 50 - 34 - 8 - 70 - 34 - 8 - 90 - 34 - 8 - 110 - 34 - 8 - 130 - 34 - 8 - 150 - 34 - 8 - 170 - 34 - 8 - 190 - 34 - 8 - 210 - 34 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 40 - 5 - 110 - 40 - 6 - 130 - 40 - 6 - 150 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 7 - 0 - 0 - 0 - 90 - 46 - 5 - 110 - 46 - 7 - 130 - 46 - 7 - 150 - 46 - 5 - 0 - 0 - 0 - 190 - 46 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 7 - 0 - 0 - 0 - 70 - 52 - 7 - 90 - 52 - 5 - 110 - 52 - 7 - 130 - 52 - 7 - 150 - 52 - 5 - 170 - 52 - 7 - 0 - 0 - 0 - 210 - 52 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 58 - 7 - 0 - 0 - 0 - 90 - 58 - 5 - 110 - 58 - 6 - 130 - 58 - 6 - 150 - 58 - 5 - 0 - 0 - 0 - 190 - 58 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 4 - 50 - 64 - 4 - 70 - 64 - 4 - 90 - 64 - 4 - 110 - 64 - 4 - 130 - 64 - 4 - 150 - 64 - 4 - 170 - 64 - 4 - 190 - 64 - 4 - 210 - 64 - 4 - 0 - 0 - 0 - 10 - 70 - 9 - 30 - 70 - 3 - 50 - 70 - 3 - 70 - 70 - 3 - 90 - 70 - 3 - 110 - 70 - 3 - 130 - 70 - 3 - 150 - 70 - 3 - 170 - 70 - 3 - 190 - 70 - 3 - 210 - 70 - 3 - 230 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 76 - 6 - 130 - 76 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 82 - 9 - 90 - 82 - 9 - 110 - 82 - 6 - 130 - 82 - 6 - 150 - 82 - 9 - 170 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 88 - 2 - 30 - 88 - 2 - 50 - 88 - 2 - 70 - 88 - 2 - 90 - 88 - 2 - 110 - 88 - 2 - 130 - 88 - 2 - 150 - 88 - 2 - 170 - 88 - 2 - 190 - 88 - 2 - 210 - 88 - 2 - 230 - 88 - 2 - 10 - 94 - 6 - 30 - 94 - 6 - 50 - 94 - 6 - 70 - 94 - 6 - 90 - 94 - 6 - 110 - 94 - 6 - 130 - 94 - 6 - 150 - 94 - 6 - 170 - 94 - 6 - 190 - 94 - 6 - 210 - 94 - 6 - 230 - 94 - 6 - 10 - 100 - 4 - 30 - 100 - 4 - 50 - 100 - 4 - 70 - 100 - 4 - 90 - 100 - 4 - 110 - 100 - 4 - 130 - 100 - 4 - 150 - 100 - 4 - 170 - 100 - 4 - 190 - 100 - 4 - 210 - 100 - 4 - 230 - 100 - 4 - 10 - 106 - 8 - 30 - 106 - 8 - 50 - 106 - 8 - 70 - 106 - 8 - 90 - 106 - 8 - 110 - 106 - 8 - 130 - 106 - 8 - 150 - 106 - 8 - 170 - 106 - 8 - 190 - 106 - 8 - 210 - 106 - 8 - 230 - 106 - 8 - 10 - 112 - 7 - 30 - 112 - 7 - 50 - 112 - 7 - 70 - 112 - 7 - 90 - 112 - 7 - 110 - 112 - 7 - 130 - 112 - 7 - 150 - 112 - 7 - 170 - 112 - 7 - 190 - 112 - 7 - 210 - 112 - 7 - 230 - 112 - 7 - 0 - 0 - 0 - 30 - 118 - 8 - 0 - 0 - 0 - 70 - 118 - 8 - 90 - 118 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 8 - 170 - 118 - 8 - 0 - 0 - 0 - 210 - 118 - 8 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid19.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid19.lvl deleted file mode 100644 index 03b0ca416..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid19.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 8 - 130 - 10 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 16 - 8 - 110 - 16 - 1 - 130 - 16 - 1 - 150 - 16 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 22 - 8 - 110 - 22 - 2 - 130 - 22 - 2 - 150 - 22 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 28 - 8 - 90 - 28 - 1 - 110 - 28 - 2 - 130 - 28 - 2 - 150 - 28 - 1 - 170 - 28 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 34 - 8 - 90 - 34 - 2 - 110 - 34 - 2 - 130 - 34 - 2 - 150 - 34 - 2 - 170 - 34 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 8 - 70 - 40 - 1 - 90 - 40 - 2 - 110 - 40 - 1 - 130 - 40 - 1 - 150 - 40 - 2 - 170 - 40 - 1 - 190 - 40 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 8 - 70 - 46 - 2 - 90 - 46 - 1 - 110 - 46 - 7 - 130 - 46 - 7 - 150 - 46 - 1 - 170 - 46 - 2 - 190 - 46 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 8 - 50 - 52 - 1 - 70 - 52 - 1 - 90 - 52 - 7 - 110 - 52 - 7 - 130 - 52 - 7 - 150 - 52 - 7 - 170 - 52 - 1 - 190 - 52 - 1 - 210 - 52 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 8 - 50 - 58 - 1 - 70 - 58 - 7 - 90 - 58 - 7 - 110 - 58 - 7 - 130 - 58 - 7 - 150 - 58 - 7 - 170 - 58 - 7 - 190 - 58 - 1 - 210 - 58 - 8 - 0 - 0 - 0 - 10 - 64 - 8 - 30 - 64 - 7 - 50 - 64 - 7 - 70 - 64 - 7 - 90 - 64 - 7 - 110 - 64 - 7 - 130 - 64 - 7 - 150 - 64 - 7 - 170 - 64 - 7 - 190 - 64 - 7 - 210 - 64 - 7 - 230 - 64 - 8 - 0 - 0 - 0 - 30 - 70 - 8 - 50 - 70 - 1 - 70 - 70 - 7 - 90 - 70 - 7 - 110 - 70 - 7 - 130 - 70 - 7 - 150 - 70 - 7 - 170 - 70 - 7 - 190 - 70 - 1 - 210 - 70 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 8 - 50 - 76 - 1 - 70 - 76 - 1 - 90 - 76 - 7 - 110 - 76 - 7 - 130 - 76 - 7 - 150 - 76 - 7 - 170 - 76 - 1 - 190 - 76 - 1 - 210 - 76 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 82 - 8 - 70 - 82 - 3 - 90 - 82 - 1 - 110 - 82 - 7 - 130 - 82 - 7 - 150 - 82 - 1 - 170 - 82 - 3 - 190 - 82 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 88 - 8 - 70 - 88 - 1 - 90 - 88 - 3 - 110 - 88 - 1 - 130 - 88 - 1 - 150 - 88 - 3 - 170 - 88 - 1 - 190 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 8 - 90 - 94 - 3 - 110 - 94 - 3 - 130 - 94 - 3 - 150 - 94 - 3 - 170 - 94 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 8 - 90 - 100 - 1 - 110 - 100 - 3 - 130 - 100 - 3 - 150 - 100 - 1 - 170 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 106 - 8 - 110 - 106 - 3 - 130 - 106 - 3 - 150 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 8 - 110 - 112 - 1 - 130 - 112 - 1 - 150 - 112 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 118 - 9 - 130 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid2.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid2.lvl deleted file mode 100644 index abfc624e3..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid2.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 28 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 28 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 34 - 6 - 130 - 34 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 34 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 46 - 9 - 0 - 0 - 0 - 50 - 46 - 4 - 70 - 46 - 4 - 90 - 46 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 46 - 4 - 170 - 46 - 4 - 190 - 46 - 4 - 0 - 0 - 0 - 230 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 52 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 52 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 58 - 7 - 0 - 0 - 0 - 10 - 64 - 3 - 30 - 64 - 3 - 50 - 64 - 3 - 0 - 0 - 0 - 90 - 64 - 3 - 110 - 64 - 3 - 130 - 64 - 3 - 150 - 64 - 3 - 0 - 0 - 0 - 190 - 64 - 3 - 210 - 64 - 3 - 230 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 2 - 0 - 0 - 0 - 70 - 82 - 2 - 0 - 0 - 0 - 110 - 82 - 2 - 130 - 82 - 2 - 0 - 0 - 0 - 170 - 82 - 2 - 0 - 0 - 0 - 210 - 82 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 1 - 0 - 0 - 0 - 50 - 94 - 1 - 0 - 0 - 0 - 90 - 94 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 94 - 1 - 0 - 0 - 0 - 190 - 94 - 1 - 0 - 0 - 0 - 230 - 94 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid20.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid20.lvl deleted file mode 100644 index 44e1ef401..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid20.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 10 - 9 - 90 - 10 - 9 - 110 - 10 - 9 - 130 - 10 - 9 - 150 - 10 - 9 - 170 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 16 - 9 - 90 - 16 - 9 - 110 - 16 - 9 - 130 - 16 - 9 - 150 - 16 - 9 - 170 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid21.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid21.lvl deleted file mode 100644 index 8aed37d27..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid21.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 28 - 9 - 30 - 28 - 2 - 50 - 28 - 2 - 70 - 28 - 2 - 90 - 28 - 2 - 110 - 28 - 2 - 130 - 28 - 2 - 150 - 28 - 2 - 170 - 28 - 2 - 190 - 28 - 2 - 210 - 28 - 2 - 230 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 34 - 6 - 130 - 34 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 9 - 70 - 40 - 9 - 0 - 0 - 0 - 110 - 40 - 6 - 130 - 40 - 6 - 0 - 0 - 0 - 170 - 40 - 9 - 190 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 46 - 6 - 130 - 46 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 52 - 5 - 30 - 52 - 5 - 50 - 52 - 5 - 70 - 52 - 5 - 90 - 52 - 5 - 110 - 52 - 5 - 130 - 52 - 5 - 150 - 52 - 5 - 170 - 52 - 5 - 190 - 52 - 5 - 210 - 52 - 5 - 230 - 52 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 58 - 9 - 90 - 58 - 9 - 110 - 58 - 6 - 130 - 58 - 6 - 150 - 58 - 9 - 170 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 64 - 3 - 30 - 64 - 3 - 50 - 64 - 3 - 70 - 64 - 3 - 90 - 64 - 3 - 110 - 64 - 3 - 130 - 64 - 3 - 150 - 64 - 3 - 170 - 64 - 3 - 190 - 64 - 3 - 210 - 64 - 3 - 230 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 70 - 6 - 130 - 70 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 76 - 6 - 130 - 76 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 82 - 6 - 130 - 82 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 88 - 6 - 130 - 88 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 4 - 50 - 94 - 4 - 70 - 94 - 4 - 90 - 94 - 4 - 110 - 94 - 4 - 130 - 94 - 4 - 150 - 94 - 4 - 170 - 94 - 4 - 190 - 94 - 4 - 210 - 94 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 100 - 7 - 70 - 100 - 8 - 90 - 100 - 8 - 110 - 100 - 7 - 130 - 100 - 7 - 150 - 100 - 8 - 170 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 7 - 50 - 106 - 9 - 70 - 106 - 8 - 90 - 106 - 8 - 110 - 106 - 9 - 130 - 106 - 9 - 150 - 106 - 8 - 170 - 106 - 8 - 190 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 112 - 7 - 30 - 112 - 9 - 50 - 112 - 7 - 70 - 112 - 7 - 90 - 112 - 7 - 110 - 112 - 7 - 130 - 112 - 7 - 150 - 112 - 7 - 170 - 112 - 7 - 190 - 112 - 7 - 210 - 112 - 9 - 0 - 0 - 0 - 10 - 118 - 9 - 30 - 118 - 7 - 50 - 118 - 7 - 70 - 118 - 7 - 90 - 118 - 7 - 110 - 118 - 7 - 130 - 118 - 7 - 150 - 118 - 7 - 170 - 118 - 7 - 190 - 118 - 7 - 210 - 118 - 7 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid22.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid22.lvl deleted file mode 100644 index 7ba88f522..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid22.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 10 - 7 - 150 - 10 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 16 - 7 - 150 - 16 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 1 - 50 - 46 - 1 - 70 - 46 - 1 - 90 - 46 - 1 - 110 - 46 - 1 - 130 - 46 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 2 - 50 - 52 - 2 - 70 - 52 - 2 - 90 - 52 - 2 - 110 - 52 - 2 - 130 - 52 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 6 - 50 - 58 - 6 - 70 - 58 - 6 - 90 - 58 - 6 - 110 - 58 - 6 - 130 - 58 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 5 - 50 - 76 - 5 - 70 - 76 - 5 - 90 - 76 - 5 - 110 - 76 - 5 - 130 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 4 - 50 - 82 - 4 - 70 - 82 - 4 - 90 - 82 - 4 - 110 - 82 - 4 - 130 - 82 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 3 - 50 - 88 - 3 - 70 - 88 - 3 - 90 - 88 - 3 - 110 - 88 - 3 - 130 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 106 - 9 - 30 - 106 - 9 - 50 - 106 - 9 - 70 - 106 - 9 - 90 - 106 - 9 - 110 - 106 - 9 - 130 - 106 - 9 - 150 - 106 - 9 - 170 - 106 - 9 - 190 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 112 - 9 - 30 - 112 - 9 - 50 - 112 - 9 - 70 - 112 - 9 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 170 - 112 - 9 - 190 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid23.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid23.lvl deleted file mode 100644 index 3bd0d6168..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid23.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 3 - 30 - 10 - 3 - 50 - 10 - 3 - 70 - 10 - 3 - 90 - 10 - 9 - 110 - 10 - 7 - 130 - 10 - 7 - 150 - 10 - 9 - 170 - 10 - 3 - 190 - 10 - 3 - 210 - 10 - 3 - 230 - 10 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 22 - 1 - 30 - 22 - 1 - 50 - 22 - 1 - 70 - 22 - 1 - 90 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 9 - 170 - 22 - 1 - 190 - 22 - 1 - 210 - 22 - 1 - 230 - 22 - 1 - 10 - 28 - 4 - 30 - 28 - 4 - 50 - 28 - 4 - 70 - 28 - 4 - 90 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 28 - 9 - 170 - 28 - 4 - 190 - 28 - 4 - 210 - 28 - 4 - 230 - 28 - 4 - 10 - 34 - 8 - 30 - 34 - 8 - 50 - 34 - 8 - 70 - 34 - 8 - 90 - 34 - 9 - 110 - 34 - 3 - 130 - 34 - 3 - 150 - 34 - 9 - 170 - 34 - 8 - 190 - 34 - 8 - 210 - 34 - 8 - 230 - 34 - 8 - 10 - 40 - 2 - 30 - 40 - 2 - 50 - 40 - 2 - 70 - 40 - 2 - 90 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 9 - 170 - 40 - 2 - 190 - 40 - 2 - 210 - 40 - 2 - 230 - 40 - 2 - 10 - 46 - 8 - 30 - 46 - 8 - 50 - 46 - 8 - 70 - 46 - 8 - 90 - 46 - 9 - 110 - 46 - 7 - 130 - 46 - 7 - 150 - 46 - 9 - 170 - 46 - 8 - 190 - 46 - 8 - 210 - 46 - 8 - 230 - 46 - 8 - 10 - 52 - 7 - 30 - 52 - 7 - 50 - 52 - 7 - 70 - 52 - 7 - 90 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 9 - 170 - 52 - 7 - 190 - 52 - 7 - 210 - 52 - 7 - 230 - 52 - 7 - 10 - 58 - 1 - 30 - 58 - 1 - 50 - 58 - 1 - 70 - 58 - 1 - 90 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 58 - 9 - 170 - 58 - 1 - 190 - 58 - 1 - 210 - 58 - 1 - 230 - 58 - 1 - 10 - 64 - 5 - 30 - 64 - 5 - 50 - 64 - 5 - 70 - 64 - 5 - 90 - 64 - 9 - 110 - 64 - 3 - 130 - 64 - 3 - 150 - 64 - 9 - 170 - 64 - 5 - 190 - 64 - 5 - 210 - 64 - 5 - 230 - 64 - 5 - 10 - 70 - 6 - 30 - 70 - 6 - 50 - 70 - 6 - 70 - 70 - 6 - 90 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 9 - 170 - 70 - 6 - 190 - 70 - 6 - 210 - 70 - 6 - 230 - 70 - 6 - 10 - 76 - 2 - 30 - 76 - 2 - 50 - 76 - 2 - 70 - 76 - 2 - 90 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 9 - 170 - 76 - 2 - 190 - 76 - 2 - 210 - 76 - 2 - 230 - 76 - 2 - 10 - 82 - 5 - 30 - 82 - 5 - 50 - 82 - 5 - 70 - 82 - 5 - 90 - 82 - 9 - 110 - 82 - 7 - 130 - 82 - 7 - 150 - 82 - 9 - 170 - 82 - 5 - 190 - 82 - 5 - 210 - 82 - 5 - 230 - 82 - 5 - 10 - 88 - 6 - 30 - 88 - 6 - 50 - 88 - 6 - 70 - 88 - 6 - 90 - 88 - 9 - 110 - 88 - 7 - 130 - 88 - 7 - 150 - 88 - 9 - 170 - 88 - 6 - 190 - 88 - 6 - 210 - 88 - 6 - 230 - 88 - 6 - 10 - 94 - 1 - 30 - 94 - 1 - 50 - 94 - 1 - 70 - 94 - 1 - 90 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 94 - 9 - 170 - 94 - 1 - 190 - 94 - 1 - 210 - 94 - 1 - 230 - 94 - 1 - 10 - 100 - 4 - 30 - 100 - 4 - 50 - 100 - 4 - 70 - 100 - 4 - 90 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 9 - 170 - 100 - 4 - 190 - 100 - 4 - 210 - 100 - 4 - 230 - 100 - 4 - 10 - 106 - 6 - 30 - 106 - 6 - 50 - 106 - 6 - 70 - 106 - 6 - 90 - 106 - 9 - 110 - 106 - 3 - 130 - 106 - 3 - 150 - 106 - 9 - 170 - 106 - 6 - 190 - 106 - 6 - 210 - 106 - 6 - 230 - 106 - 6 - 10 - 112 - 2 - 30 - 112 - 2 - 50 - 112 - 2 - 70 - 112 - 2 - 90 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 112 - 9 - 170 - 112 - 2 - 190 - 112 - 2 - 210 - 112 - 2 - 230 - 112 - 2 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid24.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid24.lvl deleted file mode 100644 index df99318da..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid24.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 10 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 10 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 16 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 16 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 22 - 7 - 130 - 22 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 28 - 8 - 90 - 28 - 8 - 110 - 28 - 8 - 130 - 28 - 8 - 150 - 28 - 8 - 170 - 28 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 34 - 8 - 90 - 34 - 8 - 110 - 34 - 8 - 130 - 34 - 8 - 150 - 34 - 8 - 170 - 34 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 8 - 70 - 40 - 8 - 90 - 40 - 8 - 110 - 40 - 6 - 130 - 40 - 6 - 150 - 40 - 8 - 170 - 40 - 8 - 190 - 40 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 8 - 70 - 46 - 8 - 90 - 46 - 6 - 110 - 46 - 6 - 130 - 46 - 6 - 150 - 46 - 6 - 170 - 46 - 8 - 190 - 46 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 52 - 8 - 70 - 52 - 8 - 90 - 52 - 6 - 110 - 52 - 9 - 130 - 52 - 9 - 150 - 52 - 6 - 170 - 52 - 8 - 190 - 52 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 7 - 50 - 58 - 8 - 70 - 58 - 8 - 90 - 58 - 6 - 110 - 58 - 6 - 130 - 58 - 6 - 150 - 58 - 6 - 170 - 58 - 8 - 190 - 58 - 8 - 210 - 58 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 7 - 50 - 64 - 8 - 70 - 64 - 8 - 90 - 64 - 8 - 110 - 64 - 6 - 130 - 64 - 6 - 150 - 64 - 8 - 170 - 64 - 8 - 190 - 64 - 8 - 210 - 64 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 7 - 0 - 0 - 0 - 70 - 70 - 8 - 90 - 70 - 8 - 110 - 70 - 8 - 130 - 70 - 8 - 150 - 70 - 8 - 170 - 70 - 8 - 0 - 0 - 0 - 210 - 70 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 7 - 0 - 0 - 0 - 70 - 76 - 8 - 90 - 76 - 8 - 110 - 76 - 8 - 130 - 76 - 8 - 150 - 76 - 8 - 170 - 76 - 8 - 0 - 0 - 0 - 210 - 76 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 7 - 0 - 0 - 0 - 70 - 82 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 82 - 8 - 0 - 0 - 0 - 210 - 82 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 7 - 0 - 0 - 0 - 70 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 88 - 8 - 0 - 0 - 0 - 210 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 94 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 8 - 90 - 100 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 7 - 170 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 106 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 106 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 112 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 118 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid25.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid25.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid25.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid26.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid26.lvl deleted file mode 100644 index 1f4a6bc1b..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid26.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 16 - 1 - 0 - 0 - 0 - 50 - 16 - 4 - 0 - 0 - 0 - 90 - 16 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 16 - 5 - 0 - 0 - 0 - 190 - 16 - 4 - 0 - 0 - 0 - 230 - 16 - 1 - 10 - 22 - 1 - 30 - 22 - 8 - 50 - 22 - 4 - 0 - 0 - 0 - 90 - 22 - 6 - 110 - 22 - 8 - 130 - 22 - 8 - 150 - 22 - 6 - 0 - 0 - 0 - 190 - 22 - 4 - 210 - 22 - 8 - 230 - 22 - 1 - 10 - 28 - 1 - 0 - 0 - 0 - 50 - 28 - 4 - 70 - 28 - 8 - 90 - 28 - 6 - 110 - 28 - 8 - 130 - 28 - 8 - 150 - 28 - 6 - 170 - 28 - 8 - 190 - 28 - 4 - 0 - 0 - 0 - 230 - 28 - 1 - 10 - 34 - 1 - 0 - 0 - 0 - 50 - 34 - 4 - 0 - 0 - 0 - 90 - 34 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 5 - 0 - 0 - 0 - 190 - 34 - 4 - 0 - 0 - 0 - 230 - 34 - 1 - 10 - 40 - 2 - 0 - 0 - 0 - 50 - 40 - 3 - 0 - 0 - 0 - 90 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 5 - 0 - 0 - 0 - 190 - 40 - 3 - 0 - 0 - 0 - 230 - 40 - 2 - 10 - 46 - 2 - 0 - 0 - 0 - 50 - 46 - 3 - 0 - 0 - 0 - 90 - 46 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 46 - 5 - 0 - 0 - 0 - 190 - 46 - 3 - 0 - 0 - 0 - 230 - 46 - 2 - 10 - 52 - 2 - 0 - 0 - 0 - 50 - 52 - 3 - 0 - 0 - 0 - 90 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 6 - 0 - 0 - 0 - 190 - 52 - 3 - 0 - 0 - 0 - 230 - 52 - 2 - 10 - 58 - 2 - 30 - 58 - 9 - 50 - 58 - 3 - 70 - 58 - 9 - 90 - 58 - 6 - 110 - 58 - 9 - 130 - 58 - 9 - 150 - 58 - 6 - 170 - 58 - 9 - 190 - 58 - 3 - 210 - 58 - 9 - 230 - 58 - 2 - 10 - 64 - 2 - 0 - 0 - 0 - 50 - 64 - 3 - 0 - 0 - 0 - 90 - 64 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 64 - 5 - 0 - 0 - 0 - 190 - 64 - 3 - 0 - 0 - 0 - 230 - 64 - 2 - 10 - 70 - 2 - 0 - 0 - 0 - 50 - 70 - 3 - 0 - 0 - 0 - 90 - 70 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 5 - 0 - 0 - 0 - 190 - 70 - 3 - 0 - 0 - 0 - 230 - 70 - 2 - 10 - 76 - 2 - 0 - 0 - 0 - 50 - 76 - 3 - 0 - 0 - 0 - 90 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 5 - 0 - 0 - 0 - 190 - 76 - 3 - 0 - 0 - 0 - 230 - 76 - 2 - 10 - 82 - 1 - 0 - 0 - 0 - 50 - 82 - 4 - 0 - 0 - 0 - 90 - 82 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 82 - 6 - 0 - 0 - 0 - 190 - 82 - 4 - 0 - 0 - 0 - 230 - 82 - 1 - 10 - 88 - 1 - 0 - 0 - 0 - 50 - 88 - 4 - 0 - 0 - 0 - 90 - 88 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 88 - 6 - 0 - 0 - 0 - 190 - 88 - 4 - 0 - 0 - 0 - 230 - 88 - 1 - 10 - 94 - 1 - 30 - 94 - 7 - 50 - 94 - 4 - 70 - 94 - 7 - 90 - 94 - 5 - 110 - 94 - 7 - 130 - 94 - 7 - 150 - 94 - 5 - 170 - 94 - 7 - 190 - 94 - 4 - 210 - 94 - 7 - 230 - 94 - 1 - 10 - 100 - 1 - 30 - 100 - 7 - 50 - 100 - 4 - 70 - 100 - 7 - 90 - 100 - 5 - 110 - 100 - 7 - 130 - 100 - 7 - 150 - 100 - 5 - 170 - 100 - 7 - 190 - 100 - 4 - 210 - 100 - 7 - 230 - 100 - 1 - 10 - 106 - 1 - 0 - 0 - 0 - 50 - 106 - 4 - 0 - 0 - 0 - 90 - 106 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 106 - 6 - 0 - 0 - 0 - 190 - 106 - 4 - 0 - 0 - 0 - 230 - 106 - 1 - 10 - 112 - 1 - 0 - 0 - 0 - 50 - 112 - 4 - 0 - 0 - 0 - 90 - 112 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 112 - 6 - 0 - 0 - 0 - 190 - 112 - 4 - 0 - 0 - 0 - 230 - 112 - 1 - 10 - 118 - 1 - 30 - 118 - 9 - 50 - 118 - 4 - 70 - 118 - 9 - 90 - 118 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 5 - 170 - 118 - 9 - 190 - 118 - 4 - 210 - 118 - 9 - 230 - 118 - 1 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid27.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid27.lvl deleted file mode 100644 index e042e0d83..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid27.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 30 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 22 - 9 - 50 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 9 - 210 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 28 - 9 - 130 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 34 - 9 - 130 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 40 - 1 - 130 - 40 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 46 - 2 - 130 - 46 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 52 - 5 - 130 - 52 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 58 - 6 - 130 - 58 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 58 - 9 - 10 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 64 - 6 - 130 - 64 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 70 - 4 - 130 - 70 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 76 - 3 - 130 - 76 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 82 - 1 - 130 - 82 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 88 - 9 - 130 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 94 - 9 - 130 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 9 - 50 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 106 - 9 - 210 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 118 - 9 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid28.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid28.lvl deleted file mode 100644 index fb4715cc1..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid28.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 52 - 9 - 70 - 52 - 9 - 90 - 52 - 2 - 110 - 52 - 2 - 130 - 52 - 2 - 150 - 52 - 2 - 170 - 52 - 9 - 190 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 58 - 9 - 90 - 58 - 3 - 110 - 58 - 3 - 130 - 58 - 3 - 150 - 58 - 3 - 170 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 64 - 9 - 90 - 64 - 4 - 110 - 64 - 4 - 130 - 64 - 4 - 150 - 64 - 4 - 170 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 70 - 9 - 90 - 70 - 5 - 110 - 70 - 5 - 130 - 70 - 5 - 150 - 70 - 5 - 170 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 76 - 9 - 90 - 76 - 6 - 110 - 76 - 6 - 130 - 76 - 6 - 150 - 76 - 6 - 170 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 82 - 9 - 90 - 82 - 7 - 110 - 82 - 7 - 130 - 82 - 7 - 150 - 82 - 7 - 170 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 88 - 9 - 90 - 88 - 1 - 110 - 88 - 1 - 130 - 88 - 1 - 150 - 88 - 1 - 170 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 9 - 90 - 94 - 1 - 110 - 94 - 1 - 130 - 94 - 1 - 150 - 94 - 1 - 170 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 9 - 90 - 100 - 9 - 110 - 100 - 1 - 130 - 100 - 1 - 150 - 100 - 9 - 170 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 106 - 9 - 110 - 106 - 1 - 130 - 106 - 1 - 150 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 118 - 9 - 130 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid29.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid29.lvl deleted file mode 100644 index 2d61d0d60..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid29.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 9 - 50 - 40 - 5 - 70 - 40 - 5 - 90 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 9 - 170 - 40 - 5 - 190 - 40 - 5 - 210 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 9 - 50 - 46 - 4 - 70 - 46 - 4 - 90 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 46 - 9 - 170 - 46 - 4 - 190 - 46 - 4 - 210 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 9 - 50 - 52 - 3 - 70 - 52 - 3 - 90 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 9 - 170 - 52 - 3 - 190 - 52 - 3 - 210 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 9 - 50 - 58 - 2 - 70 - 58 - 2 - 90 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 58 - 9 - 170 - 58 - 2 - 190 - 58 - 2 - 210 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 9 - 50 - 64 - 1 - 70 - 64 - 1 - 90 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 64 - 9 - 170 - 64 - 1 - 190 - 64 - 1 - 210 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 70 - 9 - 70 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 9 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 76 - 9 - 70 - 76 - 9 - 90 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 9 - 170 - 76 - 9 - 190 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 82 - 9 - 110 - 82 - 5 - 130 - 82 - 5 - 150 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 88 - 9 - 110 - 88 - 4 - 130 - 88 - 4 - 150 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 94 - 9 - 110 - 94 - 3 - 130 - 94 - 3 - 150 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 100 - 9 - 110 - 100 - 2 - 130 - 100 - 2 - 150 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 106 - 9 - 110 - 106 - 1 - 130 - 106 - 1 - 150 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 112 - 9 - 130 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 118 - 9 - 130 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid3.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid3.lvl deleted file mode 100644 index b45eea9b6..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid3.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 28 - 9 - 0 - 0 - 0 - 30 - 34 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 34 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 40 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 46 - 7 - 0 - 0 - 0 - 110 - 46 - 9 - 130 - 46 - 9 - 0 - 0 - 0 - 170 - 46 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 3 - 0 - 0 - 0 - 70 - 52 - 1 - 90 - 52 - 7 - 110 - 52 - 8 - 130 - 52 - 8 - 150 - 52 - 7 - 170 - 52 - 1 - 0 - 0 - 0 - 210 - 52 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 3 - 50 - 58 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 58 - 2 - 210 - 58 - 3 - 0 - 0 - 0 - 10 - 64 - 4 - 0 - 0 - 0 - 50 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 64 - 2 - 0 - 0 - 0 - 230 - 64 - 4 - 10 - 70 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 70 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 70 - 4 - 10 - 76 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 76 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 76 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 76 - 4 - 10 - 82 - 4 - 0 - 0 - 0 - 50 - 82 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 2 - 0 - 0 - 0 - 230 - 82 - 4 - 0 - 0 - 0 - 30 - 88 - 3 - 50 - 88 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 2 - 210 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 3 - 0 - 0 - 0 - 70 - 94 - 1 - 90 - 94 - 1 - 110 - 94 - 7 - 130 - 94 - 7 - 150 - 94 - 1 - 170 - 94 - 1 - 0 - 0 - 0 - 210 - 94 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 100 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 106 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 112 - 1 - 0 - 0 - 0 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid30.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid30.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid30.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid31.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid31.lvl deleted file mode 100644 index 93184b1b7..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid31.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 34 - 8 - 70 - 34 - 8 - 90 - 34 - 8 - 110 - 34 - 8 - 130 - 34 - 8 - 150 - 34 - 8 - 170 - 34 - 8 - 190 - 34 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 8 - 70 - 40 - 8 - 90 - 40 - 8 - 110 - 40 - 8 - 130 - 40 - 8 - 150 - 40 - 8 - 170 - 40 - 8 - 190 - 40 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 46 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 8 - 0 - 0 - 0 - 70 - 52 - 9 - 90 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 9 - 170 - 52 - 9 - 0 - 0 - 0 - 210 - 52 - 8 - 0 - 0 - 0 - 10 - 58 - 9 - 30 - 58 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 58 - 8 - 230 - 58 - 9 - 10 - 64 - 9 - 30 - 64 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 64 - 7 - 110 - 64 - 7 - 130 - 64 - 7 - 150 - 64 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 64 - 8 - 230 - 64 - 9 - 0 - 0 - 0 - 30 - 70 - 8 - 0 - 0 - 0 - 70 - 70 - 7 - 90 - 70 - 7 - 110 - 70 - 7 - 130 - 70 - 7 - 150 - 70 - 7 - 170 - 70 - 7 - 0 - 0 - 0 - 210 - 70 - 8 - 0 - 0 - 0 - 10 - 76 - 9 - 30 - 76 - 8 - 0 - 0 - 0 - 70 - 76 - 7 - 90 - 76 - 1 - 110 - 76 - 1 - 130 - 76 - 1 - 150 - 76 - 1 - 170 - 76 - 7 - 0 - 0 - 0 - 210 - 76 - 8 - 230 - 76 - 9 - 10 - 82 - 9 - 30 - 82 - 8 - 0 - 0 - 0 - 70 - 82 - 7 - 90 - 82 - 7 - 110 - 82 - 7 - 130 - 82 - 7 - 150 - 82 - 7 - 170 - 82 - 7 - 0 - 0 - 0 - 210 - 82 - 8 - 230 - 82 - 9 - 0 - 0 - 0 - 30 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 88 - 7 - 110 - 88 - 7 - 130 - 88 - 7 - 150 - 88 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 94 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 100 - 8 - 50 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 100 - 9 - 130 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 9 - 210 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 112 - 8 - 70 - 112 - 8 - 90 - 112 - 8 - 110 - 112 - 8 - 130 - 112 - 8 - 150 - 112 - 8 - 170 - 112 - 8 - 190 - 112 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 118 - 8 - 70 - 118 - 8 - 90 - 118 - 8 - 110 - 118 - 8 - 130 - 118 - 8 - 150 - 118 - 8 - 170 - 118 - 8 - 190 - 118 - 8 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid32.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid32.lvl deleted file mode 100644 index 057a9e83c..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid32.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 2 - 130 - 10 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 22 - 2 - 0 - 0 - 0 - 70 - 22 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 22 - 2 - 0 - 0 - 0 - 210 - 22 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 28 - 9 - 0 - 0 - 0 - 70 - 28 - 9 - 0 - 0 - 0 - 110 - 28 - 9 - 130 - 28 - 9 - 0 - 0 - 0 - 170 - 28 - 9 - 0 - 0 - 0 - 210 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 8 - 0 - 0 - 0 - 70 - 40 - 8 - 0 - 0 - 0 - 110 - 40 - 8 - 130 - 40 - 8 - 0 - 0 - 0 - 170 - 40 - 8 - 0 - 0 - 0 - 210 - 40 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 8 - 0 - 0 - 0 - 70 - 46 - 8 - 0 - 0 - 0 - 110 - 46 - 8 - 130 - 46 - 8 - 0 - 0 - 0 - 170 - 46 - 8 - 0 - 0 - 0 - 210 - 46 - 8 - 0 - 0 - 0 - 10 - 52 - 3 - 0 - 0 - 0 - 50 - 52 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 52 - 3 - 0 - 0 - 0 - 230 - 52 - 3 - 10 - 58 - 9 - 0 - 0 - 0 - 50 - 58 - 9 - 0 - 0 - 0 - 90 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 58 - 9 - 0 - 0 - 0 - 190 - 58 - 9 - 0 - 0 - 0 - 230 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 70 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 8 - 0 - 0 - 0 - 190 - 70 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 76 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 8 - 0 - 0 - 0 - 190 - 76 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 4 - 0 - 0 - 0 - 70 - 82 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 82 - 4 - 0 - 0 - 0 - 210 - 82 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 9 - 0 - 0 - 0 - 70 - 88 - 9 - 0 - 0 - 0 - 110 - 88 - 9 - 130 - 88 - 9 - 0 - 0 - 0 - 170 - 88 - 9 - 0 - 0 - 0 - 210 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 112 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 112 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 112 - 5 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid33.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid33.lvl deleted file mode 100644 index 46c7fe067..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid33.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 9 - 70 - 40 - 8 - 90 - 40 - 8 - 110 - 40 - 8 - 130 - 40 - 8 - 150 - 40 - 8 - 170 - 40 - 8 - 190 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 9 - 70 - 46 - 7 - 90 - 46 - 7 - 110 - 46 - 7 - 130 - 46 - 7 - 150 - 46 - 7 - 170 - 46 - 7 - 190 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 52 - 9 - 70 - 52 - 1 - 90 - 52 - 9 - 110 - 52 - 1 - 130 - 52 - 1 - 150 - 52 - 9 - 170 - 52 - 1 - 190 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 58 - 9 - 70 - 58 - 7 - 90 - 58 - 7 - 110 - 58 - 7 - 130 - 58 - 7 - 150 - 58 - 7 - 170 - 58 - 7 - 190 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 64 - 9 - 70 - 64 - 1 - 90 - 64 - 1 - 110 - 64 - 1 - 130 - 64 - 1 - 150 - 64 - 1 - 170 - 64 - 1 - 190 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 70 - 9 - 70 - 70 - 6 - 90 - 70 - 6 - 110 - 70 - 9 - 130 - 70 - 9 - 150 - 70 - 6 - 170 - 70 - 6 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 76 - 9 - 90 - 76 - 5 - 110 - 76 - 5 - 130 - 76 - 5 - 150 - 76 - 5 - 170 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 82 - 9 - 90 - 82 - 4 - 110 - 82 - 4 - 130 - 82 - 4 - 150 - 82 - 4 - 170 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 88 - 9 - 90 - 88 - 3 - 110 - 88 - 3 - 130 - 88 - 3 - 150 - 88 - 3 - 170 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 9 - 90 - 94 - 2 - 110 - 94 - 2 - 130 - 94 - 2 - 150 - 94 - 2 - 170 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 9 - 90 - 100 - 1 - 110 - 100 - 1 - 130 - 100 - 1 - 150 - 100 - 1 - 170 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 106 - 9 - 110 - 106 - 9 - 130 - 106 - 9 - 150 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid34.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid34.lvl deleted file mode 100644 index d9b09e6ed..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid34.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 16 - 9 - 130 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 22 - 9 - 130 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 28 - 9 - 130 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 9 - 50 - 34 - 1 - 70 - 34 - 1 - 90 - 34 - 1 - 110 - 34 - 9 - 130 - 34 - 9 - 150 - 34 - 1 - 170 - 34 - 1 - 190 - 34 - 1 - 210 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 9 - 50 - 40 - 1 - 70 - 40 - 1 - 90 - 40 - 1 - 110 - 40 - 9 - 130 - 40 - 9 - 150 - 40 - 1 - 170 - 40 - 1 - 190 - 40 - 1 - 210 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 9 - 50 - 46 - 3 - 70 - 46 - 3 - 90 - 46 - 3 - 110 - 46 - 9 - 130 - 46 - 9 - 150 - 46 - 3 - 170 - 46 - 3 - 190 - 46 - 3 - 210 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 9 - 50 - 52 - 4 - 70 - 52 - 4 - 90 - 52 - 4 - 110 - 52 - 9 - 130 - 52 - 9 - 150 - 52 - 4 - 170 - 52 - 4 - 190 - 52 - 4 - 210 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 9 - 50 - 58 - 5 - 70 - 58 - 5 - 90 - 58 - 5 - 110 - 58 - 9 - 130 - 58 - 9 - 150 - 58 - 5 - 170 - 58 - 5 - 190 - 58 - 5 - 210 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 9 - 50 - 64 - 6 - 70 - 64 - 6 - 90 - 64 - 6 - 110 - 64 - 9 - 130 - 64 - 9 - 150 - 64 - 6 - 170 - 64 - 6 - 190 - 64 - 6 - 210 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 70 - 9 - 70 - 70 - 6 - 90 - 70 - 6 - 110 - 70 - 9 - 130 - 70 - 9 - 150 - 70 - 6 - 170 - 70 - 6 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 76 - 9 - 70 - 76 - 4 - 90 - 76 - 4 - 110 - 76 - 9 - 130 - 76 - 9 - 150 - 76 - 4 - 170 - 76 - 4 - 190 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 82 - 9 - 70 - 82 - 3 - 90 - 82 - 3 - 110 - 82 - 9 - 130 - 82 - 9 - 150 - 82 - 3 - 170 - 82 - 3 - 190 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 88 - 9 - 70 - 88 - 2 - 90 - 88 - 2 - 110 - 88 - 9 - 130 - 88 - 9 - 150 - 88 - 2 - 170 - 88 - 2 - 190 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 9 - 90 - 94 - 1 - 110 - 94 - 9 - 130 - 94 - 9 - 150 - 94 - 1 - 170 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 9 - 90 - 100 - 1 - 110 - 100 - 9 - 130 - 100 - 9 - 150 - 100 - 1 - 170 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 106 - 9 - 90 - 106 - 1 - 110 - 106 - 9 - 130 - 106 - 9 - 150 - 106 - 1 - 170 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid35.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid35.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid35.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid36.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid36.lvl deleted file mode 100644 index 2bf2e7569..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid36.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 8 - 30 - 10 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 10 - 6 - 230 - 10 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 16 - 6 - 0 - 0 - 0 - 90 - 16 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 16 - 6 - 0 - 0 - 0 - 190 - 16 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 22 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 22 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 22 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 22 - 3 - 0 - 0 - 0 - 30 - 28 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 28 - 8 - 110 - 28 - 9 - 130 - 28 - 9 - 150 - 28 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 28 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 34 - 9 - 70 - 34 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 34 - 3 - 190 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 40 - 7 - 0 - 0 - 0 - 50 - 40 - 9 - 0 - 0 - 0 - 90 - 40 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 3 - 0 - 0 - 0 - 190 - 40 - 9 - 0 - 0 - 0 - 230 - 40 - 7 - 0 - 0 - 0 - 30 - 46 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 46 - 9 - 130 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 46 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 52 - 7 - 0 - 0 - 0 - 90 - 52 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 4 - 0 - 0 - 0 - 190 - 52 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 58 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 58 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 58 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 58 - 2 - 0 - 0 - 0 - 30 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 64 - 8 - 110 - 64 - 9 - 130 - 64 - 9 - 150 - 64 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 70 - 9 - 70 - 70 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 2 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 76 - 8 - 0 - 0 - 0 - 50 - 76 - 9 - 0 - 0 - 0 - 90 - 76 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 2 - 0 - 0 - 0 - 190 - 76 - 9 - 0 - 0 - 0 - 230 - 76 - 8 - 0 - 0 - 0 - 30 - 82 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 82 - 9 - 130 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 88 - 8 - 0 - 0 - 0 - 90 - 88 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 88 - 5 - 0 - 0 - 0 - 190 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 94 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 94 - 1 - 0 - 0 - 0 - 30 - 100 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 100 - 8 - 110 - 100 - 9 - 130 - 100 - 9 - 150 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 100 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 9 - 70 - 106 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 106 - 1 - 190 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 112 - 9 - 0 - 0 - 0 - 90 - 112 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 112 - 1 - 0 - 0 - 0 - 190 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 118 - 8 - 30 - 118 - 8 - 0 - 0 - 0 - 70 - 118 - 8 - 0 - 0 - 0 - 110 - 118 - 9 - 130 - 118 - 9 - 0 - 0 - 0 - 170 - 118 - 8 - 0 - 0 - 0 - 210 - 118 - 8 - 230 - 118 - 8 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid37.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid37.lvl deleted file mode 100644 index 24ca6dfe1..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid37.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 16 - 1 - 90 - 16 - 1 - 110 - 16 - 1 - 130 - 16 - 9 - 150 - 16 - 1 - 170 - 16 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 22 - 1 - 70 - 22 - 1 - 90 - 22 - 1 - 110 - 22 - 9 - 130 - 22 - 9 - 150 - 22 - 1 - 170 - 22 - 1 - 190 - 22 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 28 - 1 - 50 - 28 - 1 - 70 - 28 - 2 - 90 - 28 - 2 - 110 - 28 - 9 - 130 - 28 - 9 - 150 - 28 - 2 - 170 - 28 - 2 - 190 - 28 - 1 - 210 - 28 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 1 - 50 - 34 - 2 - 70 - 34 - 2 - 90 - 34 - 2 - 110 - 34 - 9 - 130 - 34 - 9 - 150 - 34 - 2 - 170 - 34 - 2 - 190 - 34 - 2 - 210 - 34 - 1 - 0 - 0 - 0 - 10 - 40 - 1 - 30 - 40 - 1 - 50 - 40 - 2 - 70 - 40 - 3 - 90 - 40 - 3 - 110 - 40 - 9 - 130 - 40 - 9 - 150 - 40 - 3 - 170 - 40 - 3 - 190 - 40 - 2 - 210 - 40 - 1 - 230 - 40 - 1 - 10 - 46 - 1 - 30 - 46 - 2 - 50 - 46 - 3 - 70 - 46 - 4 - 90 - 46 - 4 - 110 - 46 - 9 - 130 - 46 - 9 - 150 - 46 - 4 - 170 - 46 - 4 - 190 - 46 - 3 - 210 - 46 - 2 - 230 - 46 - 1 - 10 - 52 - 1 - 30 - 52 - 2 - 50 - 52 - 3 - 70 - 52 - 4 - 90 - 52 - 5 - 110 - 52 - 9 - 130 - 52 - 9 - 150 - 52 - 5 - 170 - 52 - 4 - 190 - 52 - 3 - 210 - 52 - 2 - 230 - 52 - 1 - 10 - 58 - 1 - 30 - 58 - 2 - 50 - 58 - 3 - 70 - 58 - 4 - 90 - 58 - 5 - 110 - 58 - 9 - 130 - 58 - 9 - 150 - 58 - 5 - 170 - 58 - 4 - 190 - 58 - 3 - 210 - 58 - 2 - 230 - 58 - 1 - 10 - 64 - 4 - 0 - 0 - 0 - 50 - 64 - 4 - 0 - 0 - 0 - 90 - 64 - 4 - 110 - 64 - 9 - 130 - 64 - 9 - 150 - 64 - 4 - 0 - 0 - 0 - 190 - 64 - 4 - 0 - 0 - 0 - 230 - 64 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 82 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 88 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 9 - 90 - 100 - 9 - 0 - 0 - 0 - 130 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 106 - 9 - 0 - 0 - 0 - 130 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid38.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid38.lvl deleted file mode 100644 index 48dbd00fd..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid38.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 28 - 9 - 70 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 28 - 9 - 190 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 34 - 9 - 70 - 34 - 9 - 90 - 34 - 9 - 110 - 34 - 1 - 130 - 34 - 1 - 150 - 34 - 9 - 170 - 34 - 9 - 190 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 40 - 9 - 70 - 40 - 2 - 90 - 40 - 9 - 110 - 40 - 1 - 130 - 40 - 1 - 150 - 40 - 9 - 170 - 40 - 2 - 190 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 46 - 9 - 70 - 46 - 2 - 90 - 46 - 9 - 110 - 46 - 1 - 130 - 46 - 1 - 150 - 46 - 9 - 170 - 46 - 2 - 190 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 52 - 9 - 70 - 52 - 2 - 90 - 52 - 9 - 110 - 52 - 1 - 130 - 52 - 1 - 150 - 52 - 9 - 170 - 52 - 2 - 190 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 58 - 9 - 70 - 58 - 2 - 90 - 58 - 9 - 110 - 58 - 1 - 130 - 58 - 1 - 150 - 58 - 9 - 170 - 58 - 2 - 190 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 64 - 9 - 0 - 0 - 0 - 90 - 64 - 9 - 110 - 64 - 1 - 130 - 64 - 1 - 150 - 64 - 9 - 0 - 0 - 0 - 190 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 70 - 9 - 130 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 76 - 9 - 130 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid39.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid39.lvl deleted file mode 100644 index 82d7b2865..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid39.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 22 - 9 - 50 - 22 - 6 - 70 - 22 - 6 - 90 - 22 - 6 - 110 - 22 - 6 - 130 - 22 - 6 - 150 - 22 - 6 - 170 - 22 - 6 - 190 - 22 - 6 - 210 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 28 - 9 - 50 - 28 - 6 - 70 - 28 - 6 - 90 - 28 - 6 - 110 - 28 - 6 - 130 - 28 - 6 - 150 - 28 - 6 - 170 - 28 - 6 - 190 - 28 - 6 - 210 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 5 - 50 - 34 - 9 - 70 - 34 - 4 - 90 - 34 - 4 - 110 - 34 - 4 - 130 - 34 - 4 - 150 - 34 - 4 - 170 - 34 - 4 - 190 - 34 - 9 - 210 - 34 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 5 - 50 - 40 - 9 - 70 - 40 - 4 - 90 - 40 - 4 - 110 - 40 - 4 - 130 - 40 - 4 - 150 - 40 - 4 - 170 - 40 - 4 - 190 - 40 - 9 - 210 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 5 - 50 - 46 - 2 - 70 - 46 - 9 - 90 - 46 - 3 - 110 - 46 - 3 - 130 - 46 - 3 - 150 - 46 - 3 - 170 - 46 - 9 - 190 - 46 - 2 - 210 - 46 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 5 - 50 - 52 - 2 - 70 - 52 - 9 - 90 - 52 - 3 - 110 - 52 - 3 - 130 - 52 - 3 - 150 - 52 - 3 - 170 - 52 - 9 - 190 - 52 - 2 - 210 - 52 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 5 - 50 - 58 - 2 - 70 - 58 - 1 - 90 - 58 - 9 - 110 - 58 - 1 - 130 - 58 - 1 - 150 - 58 - 9 - 170 - 58 - 1 - 190 - 58 - 2 - 210 - 58 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 5 - 50 - 64 - 2 - 70 - 64 - 1 - 90 - 64 - 9 - 110 - 64 - 1 - 130 - 64 - 1 - 150 - 64 - 9 - 170 - 64 - 1 - 190 - 64 - 2 - 210 - 64 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 5 - 50 - 70 - 2 - 70 - 70 - 1 - 90 - 70 - 9 - 110 - 70 - 9 - 130 - 70 - 9 - 150 - 70 - 9 - 170 - 70 - 1 - 190 - 70 - 2 - 210 - 70 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 5 - 50 - 76 - 2 - 70 - 76 - 1 - 90 - 76 - 9 - 110 - 76 - 1 - 130 - 76 - 1 - 150 - 76 - 9 - 170 - 76 - 1 - 190 - 76 - 2 - 210 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 5 - 50 - 82 - 2 - 70 - 82 - 1 - 90 - 82 - 9 - 110 - 82 - 1 - 130 - 82 - 1 - 150 - 82 - 9 - 170 - 82 - 1 - 190 - 82 - 2 - 210 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 5 - 50 - 88 - 2 - 70 - 88 - 9 - 90 - 88 - 3 - 110 - 88 - 3 - 130 - 88 - 3 - 150 - 88 - 3 - 170 - 88 - 9 - 190 - 88 - 2 - 210 - 88 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 5 - 50 - 94 - 2 - 70 - 94 - 9 - 90 - 94 - 3 - 110 - 94 - 3 - 130 - 94 - 3 - 150 - 94 - 3 - 170 - 94 - 9 - 190 - 94 - 2 - 210 - 94 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 100 - 5 - 50 - 100 - 9 - 70 - 100 - 4 - 90 - 100 - 4 - 110 - 100 - 4 - 130 - 100 - 4 - 150 - 100 - 4 - 170 - 100 - 4 - 190 - 100 - 9 - 210 - 100 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 5 - 50 - 106 - 9 - 70 - 106 - 4 - 90 - 106 - 4 - 110 - 106 - 4 - 130 - 106 - 4 - 150 - 106 - 4 - 170 - 106 - 4 - 190 - 106 - 9 - 210 - 106 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 50 - 112 - 6 - 70 - 112 - 6 - 90 - 112 - 6 - 110 - 112 - 6 - 130 - 112 - 6 - 150 - 112 - 6 - 170 - 112 - 6 - 190 - 112 - 6 - 210 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 118 - 9 - 50 - 118 - 6 - 70 - 118 - 6 - 90 - 118 - 6 - 110 - 118 - 6 - 130 - 118 - 6 - 150 - 118 - 6 - 170 - 118 - 6 - 190 - 118 - 6 - 210 - 118 - 9 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid4.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid4.lvl deleted file mode 100644 index 5351e712b..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid4.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 22 - 3 - 90 - 22 - 3 - 110 - 22 - 3 - 0 - 0 - 0 - 150 - 22 - 3 - 170 - 22 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 28 - 2 - 70 - 28 - 2 - 90 - 28 - 2 - 110 - 28 - 2 - 0 - 0 - 0 - 150 - 28 - 2 - 170 - 28 - 2 - 190 - 28 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 1 - 50 - 34 - 1 - 70 - 34 - 1 - 90 - 34 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 1 - 170 - 34 - 1 - 190 - 34 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 8 - 50 - 40 - 8 - 70 - 40 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 8 - 170 - 40 - 8 - 190 - 40 - 8 - 210 - 40 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 7 - 50 - 46 - 7 - 70 - 46 - 7 - 0 - 0 - 0 - 110 - 46 - 9 - 0 - 0 - 0 - 150 - 46 - 7 - 170 - 46 - 7 - 190 - 46 - 7 - 210 - 46 - 7 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 52 - 9 - 0 - 0 - 0 - 150 - 52 - 6 - 170 - 52 - 6 - 190 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 58 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 58 - 9 - 0 - 0 - 0 - 150 - 58 - 5 - 170 - 58 - 5 - 190 - 58 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 64 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 64 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 76 - 2 - 70 - 76 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 76 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 1 - 50 - 82 - 1 - 70 - 82 - 1 - 90 - 82 - 1 - 110 - 82 - 1 - 0 - 0 - 0 - 150 - 82 - 1 - 170 - 82 - 1 - 190 - 82 - 1 - 210 - 82 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 6 - 50 - 88 - 6 - 70 - 88 - 6 - 90 - 88 - 6 - 110 - 88 - 6 - 0 - 0 - 0 - 150 - 88 - 6 - 170 - 88 - 6 - 190 - 88 - 6 - 210 - 88 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 5 - 50 - 94 - 5 - 70 - 94 - 5 - 90 - 94 - 5 - 110 - 94 - 5 - 0 - 0 - 0 - 150 - 94 - 5 - 170 - 94 - 5 - 190 - 94 - 5 - 210 - 94 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 100 - 4 - 50 - 100 - 4 - 70 - 100 - 4 - 90 - 100 - 4 - 110 - 100 - 4 - 0 - 0 - 0 - 150 - 100 - 4 - 170 - 100 - 4 - 190 - 100 - 4 - 210 - 100 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 3 - 70 - 106 - 3 - 90 - 106 - 3 - 110 - 106 - 3 - 0 - 0 - 0 - 150 - 106 - 3 - 170 - 106 - 3 - 190 - 106 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 112 - 4 - 90 - 112 - 4 - 110 - 112 - 4 - 0 - 0 - 0 - 150 - 112 - 4 - 170 - 112 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid40.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid40.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid40.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid41.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid41.lvl deleted file mode 100644 index 44a638194..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid41.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 30 - 10 - 9 - 0 - 0 - 0 - 70 - 10 - 9 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 170 - 10 - 9 - 0 - 0 - 0 - 210 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 16 - 9 - 0 - 0 - 0 - 70 - 16 - 9 - 0 - 0 - 0 - 110 - 16 - 9 - 130 - 16 - 9 - 0 - 0 - 0 - 170 - 16 - 9 - 0 - 0 - 0 - 210 - 16 - 9 - 0 - 0 - 0 - 10 - 22 - 5 - 0 - 0 - 0 - 50 - 22 - 3 - 0 - 0 - 0 - 90 - 22 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 4 - 0 - 0 - 0 - 190 - 22 - 3 - 0 - 0 - 0 - 230 - 22 - 5 - 10 - 28 - 5 - 0 - 0 - 0 - 50 - 28 - 3 - 0 - 0 - 0 - 90 - 28 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 28 - 4 - 0 - 0 - 0 - 190 - 28 - 3 - 0 - 0 - 0 - 230 - 28 - 5 - 0 - 0 - 0 - 30 - 34 - 9 - 0 - 0 - 0 - 70 - 34 - 9 - 0 - 0 - 0 - 110 - 34 - 9 - 130 - 34 - 9 - 0 - 0 - 0 - 170 - 34 - 9 - 0 - 0 - 0 - 210 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 9 - 0 - 0 - 0 - 70 - 40 - 9 - 0 - 0 - 0 - 110 - 40 - 9 - 130 - 40 - 9 - 0 - 0 - 0 - 170 - 40 - 9 - 0 - 0 - 0 - 210 - 40 - 9 - 0 - 0 - 0 - 10 - 46 - 5 - 0 - 0 - 0 - 50 - 46 - 3 - 0 - 0 - 0 - 90 - 46 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 46 - 4 - 0 - 0 - 0 - 190 - 46 - 3 - 0 - 0 - 0 - 230 - 46 - 5 - 10 - 52 - 5 - 0 - 0 - 0 - 50 - 52 - 3 - 0 - 0 - 0 - 90 - 52 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 4 - 0 - 0 - 0 - 190 - 52 - 3 - 0 - 0 - 0 - 230 - 52 - 5 - 0 - 0 - 0 - 30 - 58 - 9 - 0 - 0 - 0 - 70 - 58 - 9 - 0 - 0 - 0 - 110 - 58 - 9 - 130 - 58 - 9 - 0 - 0 - 0 - 170 - 58 - 9 - 0 - 0 - 0 - 210 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 9 - 0 - 0 - 0 - 70 - 64 - 9 - 0 - 0 - 0 - 110 - 64 - 9 - 130 - 64 - 9 - 0 - 0 - 0 - 170 - 64 - 9 - 0 - 0 - 0 - 210 - 64 - 9 - 0 - 0 - 0 - 10 - 70 - 5 - 0 - 0 - 0 - 50 - 70 - 3 - 0 - 0 - 0 - 90 - 70 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 4 - 0 - 0 - 0 - 190 - 70 - 3 - 0 - 0 - 0 - 230 - 70 - 5 - 10 - 76 - 5 - 0 - 0 - 0 - 50 - 76 - 3 - 0 - 0 - 0 - 90 - 76 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 4 - 0 - 0 - 0 - 190 - 76 - 3 - 0 - 0 - 0 - 230 - 76 - 5 - 0 - 0 - 0 - 30 - 82 - 9 - 0 - 0 - 0 - 70 - 82 - 9 - 0 - 0 - 0 - 110 - 82 - 9 - 130 - 82 - 9 - 0 - 0 - 0 - 170 - 82 - 9 - 0 - 0 - 0 - 210 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 9 - 0 - 0 - 0 - 70 - 88 - 9 - 0 - 0 - 0 - 110 - 88 - 9 - 130 - 88 - 9 - 0 - 0 - 0 - 170 - 88 - 9 - 0 - 0 - 0 - 210 - 88 - 9 - 0 - 0 - 0 - 10 - 94 - 5 - 0 - 0 - 0 - 50 - 94 - 3 - 0 - 0 - 0 - 90 - 94 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 94 - 4 - 0 - 0 - 0 - 190 - 94 - 3 - 0 - 0 - 0 - 230 - 94 - 5 - 10 - 100 - 5 - 0 - 0 - 0 - 50 - 100 - 3 - 0 - 0 - 0 - 90 - 100 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 4 - 0 - 0 - 0 - 190 - 100 - 3 - 0 - 0 - 0 - 230 - 100 - 5 - 0 - 0 - 0 - 30 - 106 - 9 - 0 - 0 - 0 - 70 - 106 - 9 - 0 - 0 - 0 - 110 - 106 - 9 - 130 - 106 - 9 - 0 - 0 - 0 - 170 - 106 - 9 - 0 - 0 - 0 - 210 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 0 - 0 - 0 - 70 - 112 - 9 - 0 - 0 - 0 - 110 - 112 - 9 - 130 - 112 - 9 - 0 - 0 - 0 - 170 - 112 - 9 - 0 - 0 - 0 - 210 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid42.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid42.lvl deleted file mode 100644 index 527c44646..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid42.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 40 - 9 - 110 - 40 - 9 - 130 - 40 - 9 - 150 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 46 - 9 - 110 - 46 - 2 - 130 - 46 - 2 - 150 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 52 - 9 - 110 - 52 - 4 - 130 - 52 - 4 - 150 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 58 - 9 - 110 - 58 - 5 - 130 - 58 - 5 - 150 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 64 - 9 - 110 - 64 - 5 - 130 - 64 - 5 - 150 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 50 - 112 - 9 - 70 - 112 - 9 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 170 - 112 - 9 - 190 - 112 - 9 - 210 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 118 - 9 - 70 - 118 - 9 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 170 - 118 - 9 - 190 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid43.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid43.lvl deleted file mode 100644 index 71b0cd8ae..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid43.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 8 - 30 - 10 - 8 - 50 - 10 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 9 - 130 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 10 - 8 - 210 - 10 - 8 - 230 - 10 - 8 - 10 - 16 - 8 - 30 - 16 - 8 - 50 - 16 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 16 - 8 - 210 - 16 - 8 - 230 - 16 - 8 - 10 - 22 - 8 - 0 - 0 - 0 - 50 - 22 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 8 - 0 - 0 - 0 - 230 - 22 - 8 - 10 - 28 - 8 - 30 - 28 - 8 - 50 - 28 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 28 - 8 - 210 - 28 - 8 - 230 - 28 - 8 - 10 - 34 - 8 - 30 - 34 - 8 - 50 - 34 - 8 - 0 - 0 - 0 - 90 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 9 - 0 - 0 - 0 - 190 - 34 - 8 - 210 - 34 - 8 - 230 - 34 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 9 - 0 - 0 - 0 - 70 - 52 - 8 - 90 - 52 - 8 - 110 - 52 - 8 - 130 - 52 - 8 - 150 - 52 - 8 - 170 - 52 - 8 - 190 - 52 - 9 - 0 - 0 - 0 - 230 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 58 - 8 - 90 - 58 - 8 - 110 - 58 - 8 - 130 - 58 - 8 - 150 - 58 - 8 - 170 - 58 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 64 - 8 - 0 - 0 - 0 - 110 - 64 - 8 - 130 - 64 - 8 - 0 - 0 - 0 - 170 - 64 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 70 - 8 - 90 - 70 - 8 - 110 - 70 - 8 - 130 - 70 - 8 - 150 - 70 - 8 - 170 - 70 - 8 - 0 - 0 - 0 - 210 - 70 - 9 - 0 - 0 - 0 - 10 - 76 - 9 - 0 - 0 - 0 - 50 - 76 - 9 - 70 - 76 - 8 - 90 - 76 - 8 - 110 - 76 - 8 - 130 - 76 - 8 - 150 - 76 - 8 - 170 - 76 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 8 - 30 - 94 - 8 - 50 - 94 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 94 - 9 - 130 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 94 - 8 - 210 - 94 - 8 - 230 - 94 - 8 - 10 - 100 - 8 - 30 - 100 - 8 - 50 - 100 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 8 - 210 - 100 - 8 - 230 - 100 - 8 - 10 - 106 - 8 - 0 - 0 - 0 - 50 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 106 - 8 - 0 - 0 - 0 - 230 - 106 - 8 - 10 - 112 - 8 - 30 - 112 - 8 - 50 - 112 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 112 - 8 - 210 - 112 - 8 - 230 - 112 - 8 - 10 - 118 - 8 - 30 - 118 - 8 - 50 - 118 - 8 - 0 - 0 - 0 - 90 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 9 - 0 - 0 - 0 - 190 - 118 - 8 - 210 - 118 - 8 - 230 - 118 - 8 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid44.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid44.lvl deleted file mode 100644 index 440eda9bc..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid44.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 1 - 30 - 10 - 1 - 50 - 10 - 1 - 70 - 10 - 1 - 90 - 10 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 10 - 1 - 170 - 10 - 1 - 190 - 10 - 1 - 210 - 10 - 1 - 230 - 10 - 1 - 0 - 0 - 0 - 30 - 16 - 6 - 50 - 16 - 6 - 70 - 16 - 6 - 90 - 16 - 6 - 110 - 16 - 6 - 130 - 16 - 6 - 150 - 16 - 6 - 170 - 16 - 6 - 190 - 16 - 6 - 210 - 16 - 6 - 0 - 0 - 0 - 10 - 22 - 5 - 30 - 22 - 5 - 50 - 22 - 5 - 70 - 22 - 5 - 90 - 22 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 5 - 170 - 22 - 5 - 190 - 22 - 5 - 210 - 22 - 5 - 230 - 22 - 5 - 0 - 0 - 0 - 30 - 28 - 4 - 50 - 28 - 4 - 70 - 28 - 4 - 90 - 28 - 4 - 110 - 28 - 4 - 130 - 28 - 4 - 150 - 28 - 4 - 170 - 28 - 4 - 190 - 28 - 4 - 210 - 28 - 4 - 0 - 0 - 0 - 10 - 34 - 3 - 30 - 34 - 3 - 50 - 34 - 3 - 70 - 34 - 3 - 90 - 34 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 3 - 170 - 34 - 3 - 190 - 34 - 3 - 210 - 34 - 3 - 230 - 34 - 3 - 0 - 0 - 0 - 30 - 40 - 2 - 50 - 40 - 2 - 70 - 40 - 2 - 90 - 40 - 2 - 110 - 40 - 2 - 130 - 40 - 2 - 150 - 40 - 2 - 170 - 40 - 2 - 190 - 40 - 2 - 210 - 40 - 2 - 0 - 0 - 0 - 10 - 46 - 9 - 30 - 46 - 9 - 50 - 46 - 9 - 70 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 46 - 9 - 190 - 46 - 9 - 210 - 46 - 9 - 230 - 46 - 9 - 10 - 52 - 9 - 30 - 52 - 9 - 50 - 52 - 9 - 70 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 52 - 9 - 190 - 52 - 9 - 210 - 52 - 9 - 230 - 52 - 9 - 10 - 58 - 9 - 30 - 58 - 1 - 50 - 58 - 1 - 70 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 58 - 9 - 190 - 58 - 1 - 210 - 58 - 1 - 230 - 58 - 9 - 10 - 64 - 9 - 30 - 64 - 1 - 50 - 64 - 1 - 70 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 64 - 9 - 190 - 64 - 1 - 210 - 64 - 1 - 230 - 64 - 9 - 10 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 70 - 9 - 10 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 76 - 9 - 10 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 82 - 9 - 10 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 88 - 9 - 10 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 94 - 9 - 10 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 100 - 9 - 10 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 106 - 9 - 10 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 112 - 9 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 170 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 112 - 9 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 118 - 9 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 170 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid45.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid45.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid45.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid46.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid46.lvl deleted file mode 100644 index da17ab1df..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid46.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 28 - 9 - 10 - 34 - 9 - 30 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 34 - 9 - 230 - 34 - 9 - 10 - 40 - 9 - 30 - 40 - 9 - 50 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 40 - 9 - 210 - 40 - 9 - 230 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 46 - 9 - 0 - 0 - 0 - 110 - 46 - 9 - 130 - 46 - 9 - 0 - 0 - 0 - 170 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 3 - 0 - 0 - 0 - 70 - 52 - 1 - 90 - 52 - 9 - 110 - 52 - 8 - 130 - 52 - 8 - 150 - 52 - 9 - 170 - 52 - 1 - 0 - 0 - 0 - 210 - 52 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 3 - 50 - 58 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 58 - 2 - 210 - 58 - 3 - 0 - 0 - 0 - 10 - 64 - 4 - 30 - 64 - 1 - 50 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 64 - 2 - 210 - 64 - 1 - 230 - 64 - 4 - 10 - 70 - 4 - 30 - 70 - 1 - 0 - 0 - 0 - 70 - 70 - 1 - 0 - 0 - 0 - 110 - 70 - 1 - 130 - 70 - 1 - 0 - 0 - 0 - 170 - 70 - 1 - 0 - 0 - 0 - 210 - 70 - 1 - 230 - 70 - 4 - 10 - 76 - 4 - 30 - 76 - 1 - 0 - 0 - 0 - 70 - 76 - 1 - 0 - 0 - 0 - 110 - 76 - 1 - 130 - 76 - 1 - 0 - 0 - 0 - 170 - 76 - 1 - 0 - 0 - 0 - 210 - 76 - 1 - 230 - 76 - 4 - 10 - 82 - 4 - 30 - 82 - 1 - 50 - 82 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 2 - 210 - 82 - 1 - 230 - 82 - 4 - 0 - 0 - 0 - 30 - 88 - 3 - 50 - 88 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 2 - 210 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 3 - 0 - 0 - 0 - 70 - 94 - 1 - 90 - 94 - 9 - 110 - 94 - 7 - 130 - 94 - 7 - 150 - 94 - 9 - 170 - 94 - 1 - 0 - 0 - 0 - 210 - 94 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 9 - 90 - 100 - 3 - 110 - 100 - 3 - 130 - 100 - 3 - 150 - 100 - 3 - 170 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 106 - 9 - 30 - 106 - 9 - 50 - 106 - 9 - 70 - 106 - 3 - 90 - 106 - 3 - 110 - 106 - 3 - 130 - 106 - 3 - 150 - 106 - 3 - 170 - 106 - 3 - 190 - 106 - 9 - 210 - 106 - 9 - 230 - 106 - 9 - 10 - 112 - 9 - 30 - 112 - 9 - 0 - 0 - 0 - 70 - 112 - 3 - 90 - 112 - 3 - 110 - 112 - 3 - 130 - 112 - 3 - 150 - 112 - 3 - 170 - 112 - 3 - 0 - 0 - 0 - 210 - 112 - 9 - 230 - 112 - 9 - 10 - 118 - 9 - 0 - 0 - 0 - 50 - 118 - 9 - 70 - 118 - 3 - 0 - 0 - 0 - 110 - 118 - 3 - 130 - 118 - 3 - 0 - 0 - 0 - 170 - 118 - 3 - 190 - 118 - 9 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid47.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid47.lvl deleted file mode 100644 index b30f1cae1..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid47.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 30 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 22 - 9 - 0 - 0 - 0 - 10 - 28 - 4 - 0 - 0 - 0 - 50 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 28 - 9 - 0 - 0 - 0 - 230 - 28 - 4 - 10 - 34 - 4 - 0 - 0 - 0 - 50 - 34 - 8 - 70 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 34 - 9 - 190 - 34 - 8 - 0 - 0 - 0 - 230 - 34 - 4 - 0 - 0 - 0 - 30 - 40 - 5 - 50 - 40 - 8 - 0 - 0 - 0 - 90 - 40 - 9 - 110 - 40 - 9 - 130 - 40 - 9 - 150 - 40 - 9 - 0 - 0 - 0 - 190 - 40 - 8 - 210 - 40 - 5 - 0 - 0 - 0 - 10 - 46 - 1 - 30 - 46 - 5 - 50 - 46 - 8 - 70 - 46 - 3 - 0 - 0 - 0 - 110 - 46 - 6 - 130 - 46 - 6 - 0 - 0 - 0 - 170 - 46 - 3 - 190 - 46 - 8 - 210 - 46 - 5 - 0 - 0 - 0 - 10 - 52 - 1 - 30 - 52 - 5 - 50 - 52 - 8 - 70 - 52 - 3 - 90 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 6 - 170 - 52 - 3 - 190 - 52 - 8 - 210 - 52 - 5 - 230 - 52 - 1 - 10 - 58 - 1 - 30 - 58 - 5 - 50 - 58 - 2 - 70 - 58 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 58 - 3 - 190 - 58 - 2 - 210 - 58 - 5 - 230 - 58 - 1 - 10 - 64 - 1 - 30 - 64 - 5 - 50 - 64 - 2 - 70 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 64 - 3 - 190 - 64 - 2 - 210 - 64 - 5 - 230 - 64 - 1 - 10 - 70 - 1 - 30 - 70 - 5 - 50 - 70 - 2 - 70 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 3 - 190 - 70 - 2 - 210 - 70 - 5 - 230 - 70 - 1 - 10 - 76 - 1 - 30 - 76 - 5 - 0 - 0 - 0 - 70 - 76 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 76 - 3 - 0 - 0 - 0 - 210 - 76 - 5 - 230 - 76 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 5 - 230 - 82 - 1 - 10 - 88 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 94 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 94 - 4 - 0 - 0 - 0 - 30 - 100 - 8 - 50 - 100 - 7 - 70 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 100 - 9 - 190 - 100 - 7 - 210 - 100 - 8 - 230 - 100 - 4 - 0 - 0 - 0 - 30 - 106 - 8 - 50 - 106 - 7 - 70 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 106 - 9 - 190 - 106 - 7 - 210 - 106 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 8 - 50 - 112 - 7 - 70 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 112 - 9 - 190 - 112 - 7 - 210 - 112 - 8 - 0 - 0 - 0 - 10 - 118 - 9 - 30 - 118 - 9 - 50 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 118 - 9 - 210 - 118 - 9 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid48.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid48.lvl deleted file mode 100644 index 647c2a299..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid48.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 30 - 10 - 9 - 50 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 10 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 10 - 3 - 0 - 0 - 0 - 30 - 16 - 9 - 50 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 16 - 3 - 150 - 16 - 7 - 170 - 16 - 7 - 190 - 16 - 7 - 210 - 16 - 7 - 230 - 16 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 3 - 170 - 22 - 7 - 190 - 22 - 7 - 210 - 22 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 28 - 1 - 90 - 28 - 1 - 110 - 28 - 8 - 130 - 28 - 8 - 150 - 28 - 8 - 170 - 28 - 3 - 190 - 28 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 34 - 1 - 90 - 34 - 1 - 110 - 34 - 8 - 130 - 34 - 8 - 150 - 34 - 8 - 170 - 34 - 3 - 190 - 34 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 9 - 50 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 3 - 170 - 40 - 6 - 190 - 40 - 6 - 210 - 40 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 9 - 50 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 46 - 3 - 150 - 46 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 46 - 6 - 230 - 46 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 52 - 1 - 90 - 52 - 1 - 0 - 0 - 0 - 130 - 52 - 3 - 150 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 52 - 6 - 230 - 52 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 58 - 1 - 90 - 58 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 58 - 3 - 170 - 58 - 6 - 190 - 58 - 6 - 210 - 58 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 9 - 50 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 64 - 8 - 130 - 64 - 8 - 150 - 64 - 8 - 170 - 64 - 3 - 190 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 9 - 50 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 3 - 170 - 70 - 5 - 190 - 70 - 5 - 210 - 70 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 9 - 50 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 76 - 3 - 150 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 76 - 5 - 230 - 76 - 3 - 0 - 0 - 0 - 30 - 82 - 9 - 50 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 82 - 3 - 150 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 5 - 230 - 82 - 3 - 0 - 0 - 0 - 30 - 88 - 9 - 50 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 88 - 3 - 170 - 88 - 5 - 190 - 88 - 5 - 210 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 94 - 1 - 90 - 94 - 1 - 110 - 94 - 8 - 130 - 94 - 8 - 150 - 94 - 8 - 170 - 94 - 3 - 190 - 94 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 100 - 2 - 90 - 100 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 3 - 170 - 100 - 4 - 190 - 100 - 4 - 210 - 100 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 9 - 50 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 106 - 3 - 150 - 106 - 4 - 170 - 106 - 4 - 190 - 106 - 4 - 210 - 106 - 4 - 230 - 106 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 112 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 112 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 118 - 9 - 70 - 118 - 9 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 170 - 118 - 9 - 190 - 118 - 9 - 210 - 118 - 9 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid49.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid49.lvl deleted file mode 100644 index de06762db..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid49.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 10 - 9 - 230 - 10 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 16 - 9 - 230 - 16 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 22 - 9 - 0 - 0 - 0 - 130 - 22 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 22 - 9 - 230 - 22 - 1 - 0 - 0 - 0 - 30 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 28 - 9 - 230 - 28 - 1 - 0 - 0 - 0 - 30 - 34 - 9 - 0 - 0 - 0 - 70 - 34 - 1 - 90 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 34 - 9 - 230 - 34 - 1 - 0 - 0 - 0 - 30 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 40 - 9 - 230 - 40 - 1 - 0 - 0 - 0 - 30 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 46 - 9 - 230 - 46 - 1 - 0 - 0 - 0 - 30 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 52 - 9 - 230 - 52 - 1 - 0 - 0 - 0 - 30 - 58 - 9 - 50 - 58 - 1 - 0 - 0 - 0 - 90 - 58 - 9 - 110 - 58 - 1 - 0 - 0 - 0 - 150 - 58 - 9 - 0 - 0 - 0 - 190 - 58 - 1 - 210 - 58 - 9 - 230 - 58 - 1 - 0 - 0 - 0 - 30 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 64 - 9 - 230 - 64 - 1 - 0 - 0 - 0 - 30 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 70 - 9 - 230 - 70 - 1 - 0 - 0 - 0 - 30 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 76 - 9 - 230 - 76 - 1 - 0 - 0 - 0 - 30 - 82 - 9 - 50 - 82 - 1 - 0 - 0 - 0 - 90 - 82 - 9 - 0 - 0 - 0 - 130 - 82 - 1 - 150 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 82 - 9 - 230 - 82 - 1 - 0 - 0 - 0 - 30 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 88 - 9 - 230 - 88 - 1 - 0 - 0 - 0 - 30 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 210 - 94 - 9 - 230 - 94 - 1 - 0 - 0 - 0 - 30 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 106 - 9 - 170 - 106 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 118 - 9 - 70 - 118 - 9 - 90 - 118 - 9 - 110 - 118 - 9 - 130 - 118 - 9 - 150 - 118 - 9 - 170 - 118 - 9 - 190 - 118 - 9 - 210 - 118 - 9 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid5.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid5.lvl deleted file mode 100644 index 0269b0fec..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid5.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid50.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid50.lvl deleted file mode 100644 index f83e2d3bc..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid50.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid6.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid6.lvl deleted file mode 100644 index 5ddab0833..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid6.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 22 - 2 - 0 - 0 - 0 - 90 - 22 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 22 - 5 - 0 - 0 - 0 - 190 - 22 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 34 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 34 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 40 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 40 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 52 - 6 - 110 - 52 - 4 - 130 - 52 - 4 - 150 - 52 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 64 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 70 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 70 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 82 - 9 - 0 - 0 - 0 - 50 - 82 - 2 - 0 - 0 - 0 - 90 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 82 - 5 - 0 - 0 - 0 - 190 - 82 - 2 - 0 - 0 - 0 - 230 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 100 - 7 - 30 - 100 - 7 - 50 - 100 - 7 - 70 - 100 - 7 - 90 - 100 - 7 - 110 - 100 - 7 - 130 - 100 - 7 - 150 - 100 - 7 - 170 - 100 - 7 - 190 - 100 - 7 - 210 - 100 - 7 - 230 - 100 - 7 - 10 - 106 - 2 - 30 - 106 - 2 - 50 - 106 - 2 - 70 - 106 - 2 - 90 - 106 - 2 - 110 - 106 - 2 - 130 - 106 - 2 - 150 - 106 - 2 - 170 - 106 - 2 - 190 - 106 - 2 - 210 - 106 - 2 - 230 - 106 - 2 - 10 - 112 - 2 - 30 - 112 - 2 - 50 - 112 - 2 - 70 - 112 - 2 - 90 - 112 - 2 - 110 - 112 - 2 - 130 - 112 - 2 - 150 - 112 - 2 - 170 - 112 - 2 - 190 - 112 - 2 - 210 - 112 - 2 - 230 - 112 - 2 - 10 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 170 - 118 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 118 - 9 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid7.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid7.lvl deleted file mode 100644 index 0e70e95fa..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid7.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 10 - 2 - 130 - 10 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 230 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 16 - 2 - 110 - 16 - 3 - 130 - 16 - 3 - 150 - 16 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 70 - 22 - 2 - 90 - 22 - 3 - 110 - 22 - 3 - 130 - 22 - 3 - 150 - 22 - 3 - 170 - 22 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 28 - 2 - 70 - 28 - 3 - 90 - 28 - 3 - 110 - 28 - 5 - 130 - 28 - 5 - 150 - 28 - 3 - 170 - 28 - 3 - 190 - 28 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 34 - 2 - 50 - 34 - 3 - 70 - 34 - 3 - 90 - 34 - 3 - 110 - 34 - 3 - 130 - 34 - 3 - 150 - 34 - 3 - 170 - 34 - 3 - 190 - 34 - 3 - 210 - 34 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 40 - 2 - 50 - 40 - 3 - 0 - 0 - 0 - 90 - 40 - 3 - 110 - 40 - 3 - 130 - 40 - 3 - 150 - 40 - 3 - 0 - 0 - 0 - 190 - 40 - 3 - 210 - 40 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 2 - 0 - 0 - 0 - 70 - 46 - 1 - 0 - 0 - 0 - 110 - 46 - 3 - 130 - 46 - 3 - 0 - 0 - 0 - 170 - 46 - 1 - 0 - 0 - 0 - 210 - 46 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 2 - 50 - 52 - 3 - 0 - 0 - 0 - 90 - 52 - 3 - 110 - 52 - 3 - 130 - 52 - 3 - 150 - 52 - 3 - 0 - 0 - 0 - 190 - 52 - 3 - 210 - 52 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 2 - 50 - 58 - 3 - 70 - 58 - 3 - 90 - 58 - 3 - 110 - 58 - 3 - 130 - 58 - 3 - 150 - 58 - 3 - 170 - 58 - 3 - 190 - 58 - 3 - 210 - 58 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 64 - 2 - 50 - 64 - 3 - 70 - 64 - 3 - 90 - 64 - 3 - 110 - 64 - 9 - 130 - 64 - 9 - 150 - 64 - 3 - 170 - 64 - 3 - 190 - 64 - 3 - 210 - 64 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 70 - 2 - 50 - 70 - 3 - 70 - 70 - 5 - 90 - 70 - 3 - 110 - 70 - 9 - 130 - 70 - 9 - 150 - 70 - 3 - 170 - 70 - 5 - 190 - 70 - 3 - 210 - 70 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 2 - 50 - 76 - 3 - 70 - 76 - 3 - 90 - 76 - 3 - 110 - 76 - 9 - 130 - 76 - 9 - 150 - 76 - 3 - 170 - 76 - 3 - 190 - 76 - 3 - 210 - 76 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 2 - 50 - 82 - 3 - 70 - 82 - 3 - 90 - 82 - 3 - 110 - 82 - 3 - 130 - 82 - 3 - 150 - 82 - 3 - 170 - 82 - 3 - 190 - 82 - 3 - 210 - 82 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 2 - 50 - 88 - 3 - 70 - 88 - 3 - 0 - 0 - 0 - 110 - 88 - 3 - 130 - 88 - 3 - 0 - 0 - 0 - 170 - 88 - 3 - 190 - 88 - 3 - 210 - 88 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 94 - 2 - 50 - 94 - 3 - 70 - 94 - 3 - 0 - 0 - 0 - 110 - 94 - 3 - 130 - 94 - 3 - 0 - 0 - 0 - 170 - 94 - 3 - 190 - 94 - 3 - 210 - 94 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 100 - 2 - 50 - 100 - 3 - 70 - 100 - 3 - 90 - 100 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 150 - 100 - 3 - 170 - 100 - 3 - 190 - 100 - 3 - 210 - 100 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 50 - 106 - 2 - 70 - 106 - 4 - 90 - 106 - 3 - 110 - 106 - 3 - 130 - 106 - 3 - 150 - 106 - 3 - 170 - 106 - 4 - 190 - 106 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 90 - 112 - 4 - 110 - 112 - 3 - 130 - 112 - 3 - 150 - 112 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 110 - 118 - 4 - 130 - 118 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid8.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid8.lvl deleted file mode 100644 index 941c06942..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid8.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 10 - 7 - 150 - 10 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 130 - 16 - 7 - 150 - 16 - 8 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 28 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 34 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 40 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 1 - 50 - 46 - 1 - 70 - 46 - 1 - 90 - 46 - 1 - 110 - 46 - 1 - 130 - 46 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 46 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 2 - 50 - 52 - 2 - 70 - 52 - 2 - 90 - 52 - 2 - 110 - 52 - 2 - 130 - 52 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 52 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 6 - 50 - 58 - 6 - 70 - 58 - 6 - 90 - 58 - 6 - 110 - 58 - 6 - 130 - 58 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 58 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 64 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 5 - 50 - 76 - 5 - 70 - 76 - 5 - 90 - 76 - 5 - 110 - 76 - 5 - 130 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 4 - 50 - 82 - 4 - 70 - 82 - 4 - 90 - 82 - 4 - 110 - 82 - 4 - 130 - 82 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 3 - 50 - 88 - 3 - 70 - 88 - 3 - 90 - 88 - 3 - 110 - 88 - 3 - 130 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 94 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 106 - 9 - 50 - 106 - 9 - 70 - 106 - 9 - 90 - 106 - 9 - 110 - 106 - 9 - 130 - 106 - 9 - 150 - 106 - 9 - 170 - 106 - 9 - 190 - 106 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 112 - 9 - 50 - 112 - 9 - 70 - 112 - 9 - 90 - 112 - 9 - 110 - 112 - 9 - 130 - 112 - 9 - 150 - 112 - 9 - 170 - 112 - 9 - 190 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/levels/qbnoid9.lvl b/programs/samples/qb45com/action/arqanoid/levels/qbnoid9.lvl deleted file mode 100644 index 9bb3f1e1e..000000000 --- a/programs/samples/qb45com/action/arqanoid/levels/qbnoid9.lvl +++ /dev/null @@ -1,684 +0,0 @@ - 10 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 10 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 16 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 22 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 28 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 34 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 40 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 46 - 1 - 50 - 46 - 1 - 70 - 46 - 1 - 90 - 46 - 1 - 110 - 46 - 1 - 130 - 46 - 1 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 46 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 52 - 2 - 50 - 52 - 2 - 70 - 52 - 2 - 90 - 52 - 2 - 110 - 52 - 2 - 130 - 52 - 2 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 52 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 58 - 6 - 50 - 58 - 6 - 70 - 58 - 6 - 90 - 58 - 6 - 110 - 58 - 6 - 130 - 58 - 6 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 58 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 64 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 70 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 76 - 5 - 50 - 76 - 5 - 70 - 76 - 5 - 90 - 76 - 5 - 110 - 76 - 5 - 130 - 76 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 76 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 82 - 4 - 50 - 82 - 4 - 70 - 82 - 4 - 90 - 82 - 4 - 110 - 82 - 4 - 130 - 82 - 4 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 82 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 30 - 88 - 3 - 50 - 88 - 3 - 70 - 88 - 3 - 90 - 88 - 3 - 110 - 88 - 3 - 130 - 88 - 3 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 88 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 94 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 190 - 100 - 5 - 0 - 0 - 0 - 0 - 0 - 0 - 10 - 106 - 9 - 30 - 106 - 3 - 50 - 106 - 3 - 70 - 106 - 3 - 90 - 106 - 3 - 110 - 106 - 3 - 130 - 106 - 3 - 150 - 106 - 3 - 170 - 106 - 3 - 190 - 106 - 5 - 0 - 0 - 0 - 230 - 106 - 9 - 10 - 112 - 9 - 30 - 112 - 3 - 50 - 112 - 3 - 70 - 112 - 3 - 90 - 112 - 3 - 110 - 112 - 3 - 130 - 112 - 3 - 150 - 112 - 3 - 170 - 112 - 3 - 190 - 112 - 3 - 0 - 0 - 0 - 230 - 112 - 9 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 - 0 diff --git a/programs/samples/qb45com/action/arqanoid/lvldesgn.bas b/programs/samples/qb45com/action/arqanoid/lvldesgn.bas deleted file mode 100644 index 4feda4316..000000000 --- a/programs/samples/qb45com/action/arqanoid/lvldesgn.bas +++ /dev/null @@ -1,1048 +0,0 @@ -DECLARE SUB ErrorDialog () -DECLARE SUB NewFile () -DECLARE SUB PutTileBG () -DECLARE FUNCTION Menu% () -DECLARE SUB EditLevel (Lvl%) -DECLARE SUB RestoreColors () -DECLARE SUB HideBuild () -DECLARE SUB ReadRGB (C%, R%, G%, B%) -DECLARE SUB SaveColors () -DECLARE SUB OpenFile (File$) -DECLARE FUNCTION Confirmsave% (File$, Lvl%) -DECLARE SUB PrintFonts (X%, Y%, N$) -DECLARE SUB Printnum (X%, Y%, N$) -DECLARE SUB DrawStatusArea () -DECLARE SUB InitColors () -DECLARE FUNCTION FastKB% () -DECLARE SUB DrawLevelBG (BGMode%, ColorStep%, ColorAttr%) -DECLARE SUB WriteRGB (C%, R%, G%, B%) -DECLARE SUB DrawSpike (X%, Y%) -DECLARE SUB DrawTile (X%, Y%, Clr%) -DECLARE SUB GetTileBackGround () -DECLARE SUB DrawBorder () -DECLARE SUB EditTile () -DECLARE SUB SaveFile (File$) -DECLARE SUB InitFonts () -DECLARE SUB InitNums () -DEFINT A-Z - -'==========Type declarations==================================== -TYPE TileType - X AS INTEGER - Y AS INTEGER - C AS INTEGER -END TYPE -TYPE RGBtype - R AS INTEGER - G AS INTEGER - B AS INTEGER -END TYPE - -'$DYNAMIC - - -'====================Constants================================== -'Misc Const -CONST False = 0, True = NOT False - -'Screen const -CONST MinX = 0, MaxX = 260, MinY = 0, MaxY = 200 - -'KeyConstants -CONST KRight = 77, KLeft = 75, KDown = 80, Kup = 72, KEsc = 1 -CONST KW = &H11, KA = &H1E, KS = &H1F, KD = &H20, KPGD = &H51 -CONST KSpc = &H39, KEnt = &H1C, KDel = &H53, KF5 = &H3F -CONST KTab = &HF - - -'Color Const -CONST BorderMin = 40, Bordermax = 47 -CONST SpikeMin = 50, SpikeMax = 57 -CONST TcolorMin = 60, TcolorMax = 93 -CONST FColorMin = 96, FcolorMax = 100 -CONST SnColorMin = 101, SnColorMax = 105 - -'Offset and Tile Const -CONST OffsetBG = 122 'TileY=19(0 to 180/6), TileX=12(0 to 220/20) -CONST TileMax = 227 '0 to 227 -CONST TileW = 19, TileH = 5 ' 0 to 19, 0 to 5 (20*6) - -'Font constant -CONST FontOffset = 12 'Size of SmallFonts - - - -'==================Shared Arrays=================== -DIM SHARED BackGround(27816) AS INTEGER'BackGround for erasing tiles -DIM SHARED TBG(122) AS INTEGER -DIM SHARED Tile(TileMax) AS TileType -DIM SHARED SavRGB(0 TO 255) AS RGBtype -DIM SHARED SavRGBlvl(130 TO 193) AS RGBtype - -'==================Shared Variables================ -DIM SHARED Finished -DIM SHARED TX, TY, TCC, Tidx, Lvl, ColorAttr -'==================Non-Global Arrays=============== -DIM SmallFonts(396) AS INTEGER -DIM SmallNum(132) AS INTEGER - - -DIM SHARED Path$ - -RANDOMIZE TIMER - -CLS -SCREEN 13 - -'Path$ = "C:\qbasic\Arqanoid\" -Path$ = "" - -ON ERROR GOTO ErrorHand - - -ColorAttr = 1 + INT(RND * 7) -ColorStep = 1 + INT(RND * 80) -Lvl = 0 - -InitColors - -TX = 0 -TY = 0 -TCC = 1 -Tidx = 0 - - -SaveColors - -HideBuild -InitFonts -InitNums - - -DrawLevelBG 1, ColorStep, ColorAttr - -GetTileBackGround - -DrawStatusArea - - -RestoreColors - - -'GOTO Temp -Finished = False - -DO - EditTile - -LOOP UNTIL Finished - -C$ = INPUT$(1) - -CLS -SCREEN 0 - -END - - -ErrorHand: - -RESUME NEXT - - - - - -'=============temp=================== - - -'==================================== - -Temp: - - -END - -REM $STATIC -FUNCTION Confirmsave (File$, Lvl) STATIC - -Confirmsave = False - -DIM Temp(4500) - - GET (30, 140)-STEP(200, 35), Temp - LINE (30, 140)-STEP(200, 35), 0, BF - LINE (30, 140)-STEP(200, 35), 14, B - PrintFonts 35, 152, "are you sure you want to save? Y,N:" - - DO - PrintFonts 80, 142, "@@@@ Warning!!! @@@@" - K$ = "" - K$ = INKEY$ - SELECT CASE UCASE$(K$) - CASE "Y" - EXIT DO - CASE "N" - EXIT DO - CASE ELSE - END SELECT - - FOR DD = 0 TO 1 - FOR D! = 0 TO 32500: NEXT D! - NEXT DD - LINE (80, 142)-STEP(106, 5), 0, BF 'Blink - FOR DD = 0 TO 1 - FOR D! = 0 TO 32500: NEXT D! - NEXT DD - LOOP UNTIL UCASE$(K$) = "Y" OR UCASE$(K$) = "N" - -SELECT CASE UCASE$(K$) - CASE "Y" - GOSUB EnterFileName - File$ = Path$ + "Levels\" + "QbNoid" + RTRIM$(LTRIM$(STR$(Lvl))) + "." + "LVL" - PUT (30, 140), Temp, PSET - - EXIT FUNCTION - CASE "N" - Confirmsave = False - PUT (30, 140), Temp, PSET - CASE ELSE -END SELECT - - -EXIT FUNCTION - -EnterFileName: - PrintFonts 55, 162, "Enter LevelName:" - PrintFonts 135, 162, "QbNoid .Lvl" - Ok = False - - Printnum 160, 162, LTRIM$(STR$(Lvl)) - - DO - K$ = INPUT$(1) - SELECT CASE FastKB - CASE Kup - IF Lvl < 50 THEN Lvl = Lvl + 1 - LINE (170, 162)-STEP(10, 5), 0, BF - Printnum 160, 162, LTRIM$(STR$(Lvl)) - CASE KDown - IF Lvl > 1 THEN Lvl = Lvl - 1 - LINE (170, 162)-STEP(10, 5), 0, BF - Printnum 160, 162, LTRIM$(STR$(Lvl)) - CASE KEsc - Ok = True - Confirmsave = False - CASE KEnt - Ok = True - Confirmsave = True - CASE ELSE - END SELECT - LOOP UNTIL Ok -RETURN - - -END FUNCTION - -SUB DrawBorder STATIC - -FOR I = 0 TO 6 - LINE (I, I)-(260 - I, 200 - I), BorderMin + I, B -NEXT I - -END SUB - -SUB DrawLevelBG (BGMode, ColorStep, ColorAttr) STATIC - - - - -Clr = 145 - -FOR Y = 0 TO 199 STEP 5 - FOR X = 0 TO 320 STEP 5 - - IF CC = 0 THEN - Clr = Clr + ColorStep - ELSE - Clr = Clr - ColorStep - END IF - IF BGMode = 1 THEN - LINE (X, Y)-(X + 4, Y + 4), Clr, BF - LINE (X + 1, Y + 1)-(X + 3, Y + 3), Clr + 5, BF - LINE (X + 1, Y + 1)-(X + 1, Y + 1), Clr + 11, BF - ELSE - LINE (X, Y)-(X + 4, Y + 4), Clr, B - LINE (X + 1, Y + 1)-(X + 3, Y + 3), Clr + 5, B - LINE (X + 1, Y + 1)-(X + 1, Y + 1), Clr + 11, B - END IF - IF Clr >= 180 THEN CC = 1 - IF Clr <= 150 THEN CC = 0 - NEXT X -NEXT Y - -'Erase RightSide for Info,Scores,Etc. - -LINE (MaxX, MinY)-(320, 200), 255, BF -LINE (0, 200)-(320, 200), 255, BF - -'Draw Spikes - -FOR X = 5 TO 250 STEP 10 - DrawSpike X, 205 -NEXT X - -DrawBorder - -END SUB - -SUB DrawSpike (X, Y) STATIC - -FOR I = 1 TO 5 - LINE (X + I, Y)-STEP(0, -(I * 4.5)), SpikeMax - I - LINE ((X + 10) - I, Y)-STEP(0, -(I * 4.5)), SpikeMax - I -NEXT I - - -END SUB - -SUB DrawStatusArea STATIC - -PrintFonts 256, 0, "Qbnoid level" -PrintFonts 263, 10, "Designer" -PrintFonts 263, 20, "Beta Test" -PrintFonts 268, 30, "Ver" -Printnum 286, 30, "007" - -PrintFonts 256, 45, "Directions:" - -PrintFonts 256, 60, "Movement:" -Printnum 260, 70, "0" -PrintFonts 270, 70, "Arrows" - -PrintFonts 256, 80, "Rot Color:" -Printnum 260, 90, "0" -PrintFonts 270, 90, "Space" - -PrintFonts 256, 100, "Put tile:" -Printnum 260, 110, "0" -PrintFonts 270, 110, "Tab,Enter" - - -PrintFonts 256, 120, "Erasetile:" -Printnum 260, 130, "0" -PrintFonts 270, 130, "Delete" - - -PrintFonts 256, 140, "Save:" -Printnum 260, 150, "0" -PrintFonts 270, 150, "FS:FFive" - - -PrintFonts 256, 160, "Exit:" -Printnum 260, 170, "0" -PrintFonts 270, 170, "Escape" - -PrintFonts 256, 182, "TileType:" -Printnum 300, 182, "0" - -PrintFonts 270, 194, ":relsoft:" - - - - -END SUB - -SUB DrawTile (X, Y, Clr) - SELECT CASE Clr - CASE 1 - TB = 60 - TC = 61 - TM = 62 - CASE 2 - TB = 63 - TC = 64 - TM = 65 - CASE 3 - TB = 66 - TC = 67 - TM = 68 - CASE 4 - TB = 69 - TC = 70 - TM = 71 - CASE 5 - TB = 72 - TC = 73 - TM = 74 - CASE 6 - TB = 75 - TC = 76 - TM = 77 - CASE 7 - TB = 78 - TC = 79 - TM = 80 - CASE 8 - TB = 81 - TC = 82 - TM = 83 - CASE 9 - TB = 84 - TC = 85 - TM = 86 - CASE ELSE - END SELECT - - - LINE (X, Y)-STEP(TileW, TileH), TC, BF - LINE (X, Y)-STEP(TileW, TileH), TM, B - LINE (X, Y)-STEP(0, TileH), TB - LINE (X, Y + TileH)-STEP(TileW - 1, 0), TB - - -END SUB - -SUB EditLevel (Lvl) STATIC - -DIM Temp(2000) -GET (53, 149)-(203, 170), Temp -LINE (54, 150)-(203, 170), 0, BF -LINE (54, 150)-(203, 170), 14, B - -PrintFonts 95, 152, "Edit Level" -PrintFonts 55, 162, "Enter LevelName:" -PrintFonts 135, 162, "QbNoid .Lvl" -Ok = False - -Printnum 160, 162, (STR$(Lvl)) - -DO - K$ = INPUT$(1) - SELECT CASE FastKB - CASE Kup - IF Lvl < 50 THEN Lvl = Lvl + 1 - LINE (170, 162)-STEP(10, 5), 0, BF - Printnum 160, 162, (STR$(Lvl)) - - CASE KDown - IF Lvl > 1 THEN Lvl = Lvl - 1 - LINE (170, 162)-STEP(10, 5), 0, BF - Printnum 160, 162, (STR$(Lvl)) - CASE KEsc - Ok = True - PUT (53, 149), Temp, PSET - CASE KEnt - Ok = True - PutTileBG - PUT (53, 149), Temp, PSET - OpenFile Path$ + "levels\" + "qbnoid" + LTRIM$(STR$(Lvl)) + "." + "lvl" - CASE ELSE - END SELECT -LOOP UNTIL Ok - - -END SUB - -SUB EditTile -'227 - - -OldTX = TX -OldTY = TY - -GOSUB GetBG -GOSUB DrawT - -DO - -CD = CD MOD 1595 + 1 -IF CD = 1 THEN - CC = CC MOD 7 + 1 -END IF - LINE (10 + (TX * 20), 10 + (TY * 6))-STEP(TileW, TileH), CC + BorderMin, B - -LOOP WHILE INKEY$ = "" - -GOSUB PutBG - - - -SELECT CASE FastKB - CASE KRight, KD - IF TX < 11 THEN - TX = TX + 1 - IF Tidx < 227 THEN Tidx = Tidx + 1 - END IF - CASE KLeft, KA - IF TX > 0 THEN - TX = TX - 1 - IF Tidx > 0 THEN Tidx = Tidx - 1 - END IF - CASE KDown, KS - IF TY < 18 THEN - TY = TY + 1 - IF Tidx <= 227 - 12 THEN Tidx = Tidx + 12 - END IF - CASE Kup, KW - IF TY > 0 THEN - TY = TY - 1 - IF Tidx >= 12 THEN Tidx = Tidx - 12 - END IF - CASE KSpc - TCC = (TCC MOD 9) + 1 - Printnum 305, 182, LTRIM$(STR$(TCC)) - GOSUB DrawT - GOSUB PutBG - CASE KEnt, KTab - GOSUB DrawT - Tile(Tidx).X = 10 + TX * 20 - Tile(Tidx).Y = 10 + TY * 6 - Tile(Tidx).C = TCC - CASE KDel - GOSUB EraseTile - Tile(Tidx).X = 0 - Tile(Tidx).Y = 0 - Tile(Tidx).C = 0 - CASE KF5 - 'Save - Con = Confirmsave(File$, Lvl) - DIM Temp(2000) - GET (50, 40)-STEP(159, 15), Temp - LINE (50, 40)-STEP(159, 15), 0, BF - LINE (50, 40)-STEP(159, 15), 14, B - IF Con = True THEN - SaveFile File$ - PrintFonts 55, 45, "File Saved as:" - PrintFonts 130, 45, "QbNoid .Lvl" - Printnum 160, 45, LTRIM$(STR$(Lvl)) - Con = False - ELSE - PrintFonts 55, 45, "File UnSaved " - PrintFonts 130, 45, "Press A key" - END IF - X$ = INPUT$(1) - PUT (50, 40), Temp, PSET - - CASE KEsc - SELECT CASE Menu - CASE 1 - NewFile - CASE 2 - EditLevel Lvl - CASE 3 - 'Esc do nothing - CASE 4 - Finished = True - CASE ELSE - END SELECT - CASE ELSE - -END SELECT - - - -EXIT SUB - -DrawT: - DrawTile 10 + (TX * 20), 10 + (TY * 6), TCC -RETURN - -GetBG: - GET (INT(10 + (TX * 20)), INT(10 + (TY * 6)))-STEP(19, 5), TBG -RETURN - -PutBG: - PUT (INT(10 + (OldTX * 20)), INT(10 + (OldTY * 6))), TBG, PSET -RETURN - -EraseTile: - PUT (INT(10 + (TX * 20)), INT(10 + (TY * 6))), BackGround(OffsetBG * Tidx), PSET -RETURN - - -END SUB - -SUB ErrorDialog - -X = 60 -Y = 40 - -DIM Temp(5000) - -GET (X, Y)-STEP(150, 60), Temp - - -LINE (X, Y)-STEP(150, 60), 0, BF - -LINE (X, Y)-STEP(150, 60), 14, B - -Number = ERR - -SELECT CASE Number - - - CASE IS = 52 - - PrintFonts X + 50, Y + 2, "Error!!!!!" - PrintFonts X + 20, Y + 25, "File does not exist!!!!" - PrintFonts X + 35, Y + 52, "Press Any key..." - CASE ELSE - PrintFonts X + 50, Y + 2, "Error!!!!!" - PrintFonts X + 37, Y + 25, "Unknown Error!" - Printnum X + 60, Y + 35, (LTRIM$(RTRIM$(STR$(ERR)))) - PrintFonts X + 35, Y + 52, "Press Any key..." - -END SELECT - - -PUT (X, Y), Temp - -END SUB - -FUNCTION FastKB STATIC - FastKB = INP(&H60) - DO WHILE LEN(INKEY$): LOOP -END FUNCTION - -SUB GetTileBackGround STATIC - -I = 0 -FOR Y = 0 TO 108 STEP 6 - FOR X = 0 TO 220 STEP 20 - GET (10 + X, 10 + Y)-STEP(19, 5), BackGround(OffsetBG * I) - I = I + 1 - NEXT X -NEXT Y - - -END SUB - -SUB HideBuild -FOR I = 0 TO 255 - R = 0 - G = 0 - B = 0 - WriteRGB I, R, G, B -NEXT I - -END SUB - -SUB InitColors STATIC - - WriteRGB 254, 63, 63, 63 - -'Color for Border============================================ -R = 25 -G = 25 -B = 40 - -FOR I = BorderMin TO Bordermax -IF I <= BorderMin + 3 THEN - R = R + 5 - G = G + 3 -ELSE - R = R - 5 - G = G - 3 -END IF - - WriteRGB I, R, G, B -NEXT I - -'FontColors================================ -R = 63 -G = 63 -B = 63 - -FOR I = FColorMin TO FcolorMax - R = R - 7 - B = B - 7 - WriteRGB I, R, G, B -NEXT I - -'SmallNum colors============================ -R = 63 -G = 63 -B = 63 - -FOR I = SnColorMin TO SnColorMax - R = R - 7 - G = G - 7 - WriteRGB I, R, G, B -NEXT I - -'Tile Colors================================= - -'60-93 - -FOR I = TcolorMin TO TcolorMax - II = II MOD 3 + 1 - - IF II = 1 THEN - IC = IC MOD 9 + 1 - END IF - SELECT CASE II - CASE 1 - R = 10: G = 10: B = 10 'Dark Borders - CASE 2 - R = 30: G = 30: B = 30 'Tilecolor - CASE 3 - R = 50: G = 50: B = 50 'Light Borders - CASE ELSE - END SELECT - 'Tile color - SELECT CASE IC - CASE 1 - G = 0 - B = 0 - CASE 2 - R = 0 - B = 0 - CASE 3 - R = 0 - G = 0 - CASE 4 - R = 0 - CASE 5 - G = 0 - CASE 6 - B = 0 - CASE 7 - R = 25 - CASE 8 - G = 25 - CASE 9 - B = 25 - CASE ELSE - END SELECT - - WriteRGB I, R, G, B -NEXT I - -'BackGround Colors============================================== -I = 0 - -FOR I = 130 TO 193 - SELECT CASE ColorAttr - CASE 1 'Red - SavRGB(I).R = I \ 2 - SavRGB(I).G = 0 - SavRGB(I).B = 0 - CASE 2 'Green - SavRGB(I).R = 0 - SavRGB(I).G = I \ 2 - SavRGB(I).B = 0 - - CASE 3 'Blue - SavRGB(I).R = 0 - SavRGB(I).G = 0 - SavRGB(I).B = I \ 2 - - CASE 4 'Yellow - SavRGB(I).R = I \ 2 - SavRGB(I).G = I \ 2 - SavRGB(I).B = 0 - - CASE 5 'Purple - SavRGB(I).R = I \ 2 - SavRGB(I).G = 0 - SavRGB(I).B = I \ 2 - - CASE 6 'Metallic Blue - SavRGB(I).R = 0 - SavRGB(I).G = I \ 2 - SavRGB(I).B = I \ 2 - - CASE 7 'White - SavRGB(I).R = I \ 2 - SavRGB(I).G = I \ 2 - SavRGB(I).B = I \ 2 - - CASE ELSE - SavRGB(I).R = I \ 2 - SavRGB(I).G = I \ 2 - SavRGB(I).B = I \ 2 - END SELECT - -NEXT I -I = 0 -FOR I = 130 TO 193 - WriteRGB I, SavRGB(I).R, SavRGB(I).G, SavRGB(I).B -NEXT I - -END SUB - -SUB InitFonts STATIC - -SHARED SmallFonts() AS INTEGER -CLS -OPEN Path$ + "images\" + "small.fnt" FOR INPUT AS #1 - -INPUT #1, Maxfont - - - -'Small numbers 0 to 4 height, 0 to 3 wide - -FOR I = 1 TO Maxfont - FOR Y = 0 TO 4 - JC = JC MOD 5 + 1 - FOR X = 0 TO 3 - INPUT #1, J - IF J <> 0 THEN - PSET (X + XX, Y), JC + (FColorMin - 1) - END IF - NEXT X - NEXT Y - XX = XX + 5 -NEXT I - -CLOSE - -NI = 0 -X = 0 -Y = 0 -FOR I = 1 TO Maxfont - GET (X, Y)-STEP(3, 4), SmallFonts(NI * FontOffset%) - NI = NI + 1 - X = X + 5 -NEXT I - - -END SUB - -SUB InitNums STATIC -SHARED SmallNum() AS INTEGER -CLS - -OPEN Path$ + "images\" + "smallnum.fnt" FOR INPUT AS #1 - -INPUT #1, MaxNum - - -'Small numbers 0 to 4 height, 0 to 3 wide -FOR I = 1 TO MaxNum - FOR Y = 0 TO 4 - JC = JC MOD 5 + 1 - FOR X = 0 TO 3 - INPUT #1, J - IF J <> 0 THEN - PSET (X + XX, Y), JC + (SnColorMin - 1) - END IF - NEXT X - NEXT Y - XX = XX + 5 -NEXT I - -CLOSE - -NI = 0 -X = 0 -Y = 0 -FOR I = 1 TO 11 - GET (X, Y)-STEP(3, 4), SmallNum(NI * FontOffset) - NI = NI + 1 - X = X + 5 -NEXT I - - -END SUB - -FUNCTION Menu - -DIM Temp(2100) -GET (93, 43)-(167, 96), Temp - -LINE (95, 43)-(167, 96), 0, BF -LINE (95, 43)-(167, 96), 14, B - -PrintFonts 110, 46, "Menu:" -PrintFonts 95, 55, "N: New File" -PrintFonts 95, 65, "E: Edit File" -PrintFonts 95, 75, "ESC: EXitMenu" -PrintFonts 95, 85, "X: Exit LVDES" - -Temp$ = "N" + "E" + CHR$(27) + "X" -DO - K$ = UCASE$(INPUT$(1)) - - M = INSTR(Temp$, K$) - -LOOP UNTIL M > 0 - -PUT (93, 43), Temp, PSET - -Menu = M - -END FUNCTION - -SUB NewFile STATIC - -Lvl = 0 - -PutTileBG - -'Refresh -FOR I = 0 TO TileMax - Tile(I).X = 0 - Tile(I).Y = 0 - Tile(I).C = 0 -NEXT I - - -END SUB - -SUB OpenFile (File$) STATIC - -OPEN File$ FOR INPUT AS #1 - -FOR I = 0 TO TileMax - INPUT #1, Tile(I).X - INPUT #1, Tile(I).Y - INPUT #1, Tile(I).C -NEXT I - -CLOSE - - -FOR I = 0 TO TileMax - IF Tile(I).C <> 0 THEN - DrawTile Tile(I).X, Tile(I).Y, Tile(I).C - END IF -NEXT I - - -END SUB - -SUB PrintFonts (X, Y, N$) STATIC - -SHARED SmallFonts() AS INTEGER - -N$ = LTRIM$(RTRIM$(UCASE$(N$))) - -Letter$ = "@.,:!?ABCDEFGHIJKLMNOPQRSTUVWXYZ " - - -FOR I = 1 TO LEN(N$) - II$ = MID$(N$, I, 1) - OffSet = INSTR(Letter$, II$) - PUT ((I * 5) + X, Y), SmallFonts((OffSet - 1) * FontOffset), PSET -NEXT I - -END SUB - -SUB Printnum (X, Y, N$) STATIC -SHARED SmallNum() AS INTEGER - -FOR I = 1 TO LEN(N$) - II$ = MID$(N$, I, 1) - OffSet = INSTR("1234567890,", II$) - PUT ((I * 5) + X, Y), SmallNum((OffSet - 1) * FontOffset), PSET -NEXT I - -END SUB - -SUB PutTileBG STATIC -Y = 0 -X = 0 -I = 0 -FOR Y = 0 TO 108 STEP 6 - FOR X = 0 TO 220 STEP 20 - PUT (10 + X, 10 + Y), BackGround(OffsetBG * I), PSET - I = I + 1 - NEXT X -NEXT Y - -END SUB - -SUB ReadRGB (C%, R%, G%, B%) - -OUT &H3C7, C% -R% = INP(&H3C9) -G% = INP(&H3C9) -B% = INP(&H3C9) - -END SUB - -SUB RestoreColors - - -FOR II = 0 TO 63 - -FOR I = 0 TO 255 - - ReadRGB I, RR, GG, BB - R = SavRGB(I).R - G = SavRGB(I).G - B = SavRGB(I).B - - IF R > RR THEN - RR = RR + 1 - ELSEIF R < RR THEN - RR = RR - 1 - ELSE - 'Do nothing - END IF - - IF G > GG THEN - GG = GG + 1 - ELSEIF G < GG THEN - GG = GG - 1 - ELSE - 'Do nothing - END IF - - IF B > BB THEN - BB = BB + 1 - ELSEIF B < BB THEN - BB = BB - 1 - ELSE - 'Do nothing - END IF - - WriteRGB I, RR, GG, BB - -NEXT I -NEXT II - - - -END SUB - -SUB SaveColors - -FOR I = 0 TO 255 - ReadRGB I, R, G, B - SavRGB(I).R = R - SavRGB(I).G = G - SavRGB(I).B = B -NEXT I - - -END SUB - -SUB SaveFile (File$) STATIC - - -OPEN File$ FOR OUTPUT AS #1 - -FOR I = 0 TO TileMax - PRINT #1, Tile(I).X - PRINT #1, Tile(I).Y - PRINT #1, Tile(I).C -NEXT I - -CLOSE - -END SUB - -SUB WriteRGB (C%, R%, G%, B%) - -OUT &H3C8, C% - -OUT &H3C9, R% -OUT &H3C9, G% -OUT &H3C9, B% - -END SUB - diff --git a/programs/samples/qb45com/action/arqanoid/readme.txt b/programs/samples/qb45com/action/arqanoid/readme.txt deleted file mode 100644 index e572b826b..000000000 --- a/programs/samples/qb45com/action/arqanoid/readme.txt +++ /dev/null @@ -1,277 +0,0 @@ -ARQANOID Readme.Txt file -June 26,2001 -7:30 PM -Richard Eric M. Lope BSN RN -vic_viperph@yahoo.com - -Note: Use Word Wrap to see the text properly - -================= -Table of Contents -================= - -I. Introduction -II. History -III. Mechanics -IV. Faqs -V. Credits -VI. Disclaimer - -================= -I. Introduction -================= - - The idea to make an arkanoid(tm) clone came to me while developing engines for my shooter and RPG. I was going to make a game which would not use any library and it would also run inside the QB IDE. I was just trying to see if a decent game could be made inside the limitations of screen 13h chained mode. I was partially right and partially wrong. While I was developing engines for my RPG and Gradius clone, I was loosing my patience trying to make flickerless animations. So I searched the Net for answers and found nothing after days of research. :(. Then with a stroke of luck, I went to GBgames' links, then to the newly resurrected Neozones and found Andrew Ayers' tutorial about Get/Put array offseting. There came the idea to remake my Arkanoid clone. I had simple ambitions when I started. I was only trying to give it some background. Then came the idea to make it better than the original. I'm going to give it a little twist. It would have leaders and a storyline. I also was trying to see how much flickerfree animations I could make w/o the use of page swapping. It was how it all began.... - Note: I refuse to call this a pong clone since I have never played the original Pong. - -================= -II. History -================= - - This game took a long time to make since I don't have the luxury of time while making this. I could only work on this project during weekends, I have a social life you know..., and I also have a nagging wife who makes me go to bed early. BTW, I'm a Registered Nurse and only have "computer 101" as a formal training in the field of computers. Most of my knowledge came from QB's help file and from the you guys, the QB community! This game took almost 3 months to make. - -Note: When I say week, I mean 2 days per week... - - -Month I - -First week: - Day 1. Developed engines for the game, Read about the BMP file system - Day 2. Made my Bmp2put file converter(Used to rip Nes game graphics), - Developed the game's bouncing mechanism using vectors alone. - Developed my font routines using offsetting. - -Second week: - Day 1. Developed my palletes and tile system. Added the point function to the colission detection system. Found out how to use Ascii ROM addresses and developed my KGEN font routine. - - Day 2. Added the "inside" function for colission detection. Also added directional colission detection. Ripped graphics for my first boss.(GIGA) - -Third Week: - Day 1. Played Nesticle games. Lots of games. To see what bosses would look good for this game. - Day 2. Ripped graphics from nesticle using my BMP2Put.bas routine and changed its color attributes (for a little twist). - -Fourth Week: - Day 1. Put all the sprites in my game. Started development of the level editor. - Day 2. Added aesthetics to my level editor. Optimized it and made levels up to level 15. - -Month 2 - -First Week: - Day 1. Recoded some routines from the game. Fixed some bugs. Made Levels. - Day 2. Finished making Levels. Optimized my routines. Discovered PP256 by Chris Chadwick. Learned it, and wanted to make my game look even better. Still trying to learn PP256... - -Second Week: - Day 1. Rewrote routines for some of my sprites except BMP2Put compatible ones(ie. bosses). Drew sprites(PP256)... - Day 2. Still Drawing... or trying to draw... hehehehe. - -Third Week: - Day 1. Still drawing.... - Day 2. Added power ups! And menu system. Bug Hunt. Tried to reduce flicker as much as possible. - -Fourth Week: - Day 1. Out of town for vacation. - Day 2. Playing arcade games while on vacation. - -Month 3 - -First Week: - Day 1. Added bonus stages. Reduced flicker for sprites... - Day 2. Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt. - -Second Week: - Day 1. Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt. - Day 2. Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt.Bug Hunt. - -Third Week: - Day 1. Optimized.Optimized.Optimized.Optimized.Optimized. - Day 2. Game testing.......Bug Hunt.Bug Hunt.Bug Hunt. - -Fourth Week: - Day 1. Bug Hunt. Testing... - Day 2. Transported my files in one directory. Finished the Game. - - -================= -III Mechanics -================= - - I. Arqanoid. - - License:FreeWare(Use/Abuse/Modify at your own risk) - - 1. Controls - Left Arrow/A : Moves paddle left - Right Arrow/D : Moves paddle Right - Up Arrow/W/CTRL : Auto Fire on when in power paddle mode - Down Arrow/S/End: Auto Fire off when in power paddle mode - Space/Tab/PGD : Fire missiles when in power paddle mode - Escape key : Activate the MENU/Abort menu selection - Enter Key : Confirm menu selection - - 2. How to play - You start off at level 1. You have to destroy all the blocks except the metallic yellow ones(Tile No. 9 in level designer). Each block has a corresponding score. - Every tenth(10) Level is a boss stage. There are no blocks to destroy in these stages. You have to kill the boss to progress to the next stage. But beware of those black holes. They spew unlimited number of insects to you(2 at a time). Once you hit an insect, your ball increases its speed to make the game harder. You kill bosses by hitting them with your ball. Note: I intentionally disabled some powerups in these stages for added challenge. - There's also bonus stages at levels 5,15,25...45. Spikes are disabled here so you don't die. You finish these levels by destroying the bombs before the time runs out. The bombs you destroy will be multiplied by 2000 and added to your score. If you destroy all of the bombs before the 60 second time limit expires. You will get an additional 20,000 for a special bonus! - Beat all the levels and bosses up to level 50 and you'll see the ending!!! - - 3. The Menu - 1. Main - New Game =Starts a new game - Save Game =Saves the game currently played - Load Game =Loads a previously saved game - Special =Opens a sub menu(Debug Code) - View credits =Ya have ta see this! - Hall of Fame =Opens record holders! - Exit Game =Game over! :( - 2. Debug Code: ie Cheat! - Skip Level =Warps you to the next level - More Lives =99 Lives - No Spikes =Disables spikes - Power Paddle =Powers up your paddle.* - Replicant =Doubles your paddle.* - Erase Saves =Erases Saved Games and Hall of Fame. - - * Unavailable during Bosses and bonus stages. - - II. Level Designer - - 1. Controls - Arrow Keys =Moves cursor - W,A,S,D Keys =Moves cursor - SpaceBar =Rotates/Selects tile - Tab/Enter =Puts Tile - Delete =Erases Tile - F5 =Opens a dialog box for saving level - Escape =Activates the menu - 2. Menu - New File =Opens a "bare" screen for a new level - Edit File =Opens a dialogbox for choosing a lvl 2 edit - Escape =Disables the menu - Exit =??? - 3. Tile Types - Number Color Type - 1 RED Lowest Score - 2 Green do - 3 Blue do - 4 Light Blue do - 5 Purple do - 6 Yellow do - 7 Metallic Blue 2 hits to destroy - 8 Metallic Purple 3 hits to destroy - 9 Metallic Yellow Indestructible, no score - - -================== -IV. FAQS -================== - -1. About me - Name: Richard Eric M. Lope BSN RN - Occupation: Nurse - School: West Visayas State University - Residence: Florvel Homes, Buray, Oton, Iloilo, Philippines - Status: Married with one daughter - Age: 26 - Laguages I program with: QuickBasic,Turbo Pascal,C/C++,Visual Basic -2. Why QuickBasic?? - The Added challenge. I know when I started programming this game that Speed would be an issue but Quickbasic gives me an oppurtunity to flex my optimization "Muscles" and QB makes you an ingenius programmer. I don't mean to pick on pascal or c++ but I'm much more impressed with persons who can make good games with QB than with persons who could make the same game with C or Pascal. I do make programs with them but I'm not making money out of programming (except VB sometimes...) so I dedicated myself to QB. I'm what you could call a "hobbyist" programmer so QB would be the best choice since it's "portable". It's also because of you, the QB community, that I decided to be a QB game programmer. -3. Why the CRAPPY music? - My computer doesn't have a soundcard so I can only make sound effects using the pc's internal speaker. In fact, I give you the right to add better sounds to this game as long as you notify me first. I'm working on a new PIT delay sound routine to solve it... but I'm having problems... (PIT delay inables you to make BG sound routines using the PC speaker. I've managed to get it done using C++ already!) -4. What is your computer's specs.? - 486dx2 running on windows 95. Pls. don't laugh... this is the only one I could afford. -5. How did you get those NES sprites?! - Developed my BMP2Put.bas routine(it converts parts of 256 color bmp file to Qbasic's put format). Played games on NESTICLE, saved it as PCX(that's the only way to rip graphics from Nesticle), opened it using paint, saved it as 256 color bmp, then opened it with BMP2Put.bas and saved it as a put file. Got it? Note: If you want my BMP2put routine, I could give it to you via E-Mail. Pls. e-mail me if you want one. -6. Any known bugs? - Aside from the occasional flicker? Yes. The ball sometimes gets "magnetized" while hitting the paddle. I cannot do anything about it since it involves the paddle speed VS ball speed. The paddle runs at 3 pixels per move while the ball at full speed runs at 2. 3+2=5 while collision detection is at most 2 pixels per detection, so the ball sometimes gets "trapped" inside the paddle. I could fix it by giving my paddle a one pixel speed but playability would suffer. Anyway, It's a rare occasion. -7. Other bugs? - Yes again! The ball sometimes gets stuck inside the bosses. Reason: Masking! Zero's tend to be "masked" so other boss areas tend to be transparent and the "collide" function could not detect it. - For other bugs you might encounter pls e-mail them to me. I would love to hear from you. -8. That power capsule looks like.... - You're right! DarkDread's. I ripped it from one of his games. It's my way of giving tribute to people who help me a lot about Game programming. I just hope he doesn't get mad... -9. What would be your next project? - Either an RPG or a Shooter. And for the first time I would use a LIBRARY so it would look better. I've already developed engines for both. In fact, I used some of it in this game, notably the Word-Wrap DialogBoxes, Font routines, and Enemy movement patterns. If I only could draw better.... huhuhuhu. Any takers for sprite developer? hehehehe.... -10. What methods of Colission detection are used in this game? - There are 3 methods of collision detection used in this game. 1. The ever popular point function,2. My "Inside" function and 3. Direcional collision detection( Defined by the constants UR,UL,DR,DL). All are found inside the "Collide" Function. -11. And the method for bouncing? - Vectors! You define the balls Direction by making it equal to ballspeed and negating(-) it when it hits something. The vectors are defined my the Global Variables BallXV and BallYV. -12. Do you have a Website? - NO! I just don't have the time to maintain it. Being unable to maintain a site would defeat its purpose. There are a lot of great sites out there anyway... -13. The Game is too hard. - In case you don't know, this is Arqanoid and not Pong! And Arkanoid is the hardest game I've known so far. I couldn't get past level 4 on its arcade version! This coming from a guy who could finish all the strikers 1945 series w/o losing a single life using any plane. I could get to 2-5 in strikers 1,Finished(Up to 2-8) strikers 2, and got to 2-7 in Strikers 3. That using only one token. My record still stands at the arcades. I could also finish all the Raiden games (except Raiden 1) with one token. I also got records at Raiden F Jet and Viper Phase. - You can actually make the game easier/harder using the level editor. You could also send your levels to me if you want to. I'd really appreciate it. - -================== -V. Credits -================== - - I would like to give thanks to people and entities who help me made this game(Directly or Indirectly). - - Families & Friends - - 1. God/Jesus Christ - He gave me LIFE. - 2. Anya Therese Lope - My daughter. - 3. My Family(Pedro,Lily,Marie,Cristina) - They'll get mad if I don't mention them here. - 4. Loreni Farillon - My Text pal. She took the time to chat with me via SMS at night when I feel like sleeping. - 5. The Guys at WIC internet - Jason,Alan, Shote and Tin-tin. For allowing me to bsave my title screen there. My Hard drive is compressed so I'm having problems Bsaving. I also tested my game there on a Duron 800. - 6. Archie Aurelio & Joey - My Arcade friends at ZAP ZONE. - - - QB Community - - 1. Andrew Ayers(Blast Lib) - Without you I've never have thought of making this game! - 2. Chris Chadwick(PP256) - Made the game better looking.(w/o PP256 this game would look like SH%$!) - 3. Vance Velez (VPlanet) - Reviewed my first game(Pacmaniod) paving the way for this game. - 4. Gianncarlo (GBgames) - W/O his site(GBgames.com), I would never have disovered the QB community. - 5. Jorden Chamid(FutureSoft) - Duh! As if you don't know it already. They're the best out there! - 6. Vic Luce (VQB) - Taught me how to do masking. Also makes great tutorials. - 7. Danny Gump (Dash) - Tutorial on get/put array system. - 8. Steven Sivek - Rom addresses of Ascii Characters(Used in Kgen Fonts) - 9. ZKman - Translucency (Non-Alpha blending type) - 10. DarkDread - Dark Crown wowed! me and inspired me to make a QB game. - 11. Andre - MilliDelay(very useful!) - 12. Nesticle - Used to rip sprites from NES games. FYI, I own the original cartridge of the games I ripped sprites from. Best NES EMU! - 13. KGEN and LoopyNES - Inspiration for my KGEN font routine and a very good NES EMU for the latter. - 14. The QBTIMES - Provided me with the BMP file format. - 15. NeoZones - Great Tutorial site. - 16. Konami(tm) - Ripped LifeForce Sprites - 17. Irem(tm),Compile(tm) and Broderbund software(tm) - Ripped the Guardian Legend Sprites. - 18. Taxan(tm) - Ripped Burai Fighter Sprites. - - -================== -VI. Disclaimer -================== - - This document and its accompanying files are provided as is. I take no responsibility for the inconveniences it might cause you. No part of this document may be altered(except when you modify the game itself). I give you the right to modify the Game in any way you want as long as you get permission from me, and you give credit to where credit is due. The license of this game is Freeware so Use or Abuse at your own risk.... - -*Arkanoid is a trademark of NAMCO -*Konami & LifeForce are TradeMarks of Konami -*Irem,Compile,TGL, and Broderbund holds the right to their respective trademarks -*Taxan and Burai Fighter are trademarks of Taxan. - - -================end of File================================================= \ No newline at end of file diff --git a/programs/samples/qb45com/action/arqanoid/saves/qbnoid.hof b/programs/samples/qb45com/action/arqanoid/saves/qbnoid.hof deleted file mode 100644 index c703a2c3e..000000000 --- a/programs/samples/qb45com/action/arqanoid/saves/qbnoid.hof +++ /dev/null @@ -1,15 +0,0 @@ - 1 -Anya Therese - 2792000 - 2 -Anya Tech - 2039733 - 3 -Richard Eric - 2021700 - 4 -fkl;f;f - 2021700 - 5 -Relsoft 2000 - 1851300 diff --git a/programs/samples/qb45com/action/arqanoid/saves/qbnoid.qsv b/programs/samples/qb45com/action/arqanoid/saves/qbnoid.qsv deleted file mode 100644 index d2227632e..000000000 --- a/programs/samples/qb45com/action/arqanoid/saves/qbnoid.qsv +++ /dev/null @@ -1,40 +0,0 @@ - 1 -Level 5 - 0 - 5 - 2 - 2 -Rotator L10 - 42900 - 10 - 3 - 3 -Bonus Lvl15 - 30900 - 15 - 3 - 4 -Zavot Lvl 20 - 1676000 - 20 - 6 - 5 -Ku2 Level 30 - 1762000 - 30 - 6 - 6 -The Rock L40 - 2021700 - 40 - 12 - 7 -Bonus L45 - 2031700 - 45 - 12 - 8 -Austin Lvl50 - 341900 - 50 - 97 diff --git a/programs/samples/qb45com/action/assault/assault.bas b/programs/samples/qb45com/action/assault/assault.bas deleted file mode 100644 index a0cb3f0af..000000000 --- a/programs/samples/qb45com/action/assault/assault.bas +++ /dev/null @@ -1,3385 +0,0 @@ -CHDIR ".\programs\samples\qb45com\action\assault" - -'Assault v2 -'By Glenn Powell -'( powell98@pacbell.net ) -'(c) 1999 - -'General Procedure Definitions -DECLARE FUNCTION KeyName$ (k$) -DECLARE FUNCTION KeyMark% (k$) -DECLARE FUNCTION TPoint% (tx%, ty%, pn%) -DECLARE FUNCTION BPoint% (tx%, ty%, pn%) -DECLARE FUNCTION TurfHit% (tb%, tx%, ty%) -DECLARE FUNCTION TurfBump$ (tx%, ty%, pn%) -DECLARE SUB TPset (tx%, ty%, tp%) -DECLARE SUB InitGame () -DECLARE SUB Title () -DECLARE SUB LoadCfg (file$) -DECLARE SUB LoadKey (file$) -DECLARE SUB InitScr () -DECLARE SUB InitGamePal () -DECLARE SUB SetBlastPal () -DECLARE SUB LoadSprites (file$) -DECLARE SUB DrawPlayer (pn%) -DECLARE SUB ErasePlayer (pn%) -DECLARE SUB DrawSpr (x%, y%, sn%) -DECLARE SUB EraseSpr (x%, y%, sn%) -DECLARE SUB InitBullet (c%, x%, y%, a#, d%, p%, s%) -DECLARE SUB DrawBar () -DECLARE SUB DrawHealth (pn%, c%) -DECLARE SUB DrawSmallNum (x%, y%, n%, c%) -DECLARE SUB LoadLevel (file$) -DECLARE SUB BuildLevel () -DECLARE SUB FadePal (fr%, fg%, fb%, i%, c1%, c2%) -DECLARE SUB DefaultPal () -DECLARE SUB Intro () -DECLARE SUB Configure () -DECLARE SUB Menu (mnum%) -DECLARE SUB InitPlayers () -DECLARE SUB EarthQuake (x%) -DECLARE SUB Damage (pn%, dam%) -DECLARE SUB Win (pnum%) -DECLARE SUB Configure () -DECLARE SUB Main () -DECLARE SUB PlayerFall () -DECLARE SUB PlayerKey () -DECLARE SUB BulletMove () -DECLARE SUB DoneTurn () -DECLARE SUB Pause () - -'Font Procedure Definitions -DECLARE SUB Font (text$, xstart%, ystart%, xscale!, yscale!, style%, tclr%) -DECLARE SUB LoadFont (file$) - -'Audio Procedure Definitions -DECLARE FUNCTION DSPRead% () -DECLARE FUNCTION SpeakerStatus% () -DECLARE FUNCTION DMAStatus% () -DECLARE FUNCTION DMADone% () -DECLARE FUNCTION DSPReset% () -DECLARE SUB MasterVolume (Right%, Left%, GetVol%) -DECLARE SUB DSPWrite (byte%) -DECLARE FUNCTION ReadDSP% () -DECLARE SUB SpeakerState (state%) -DECLARE SUB DMAState (state%) -DECLARE FUNCTION ReadDAC% () -DECLARE SUB DMAPlay (segment&, offset&, length&, freq&) -DECLARE SUB GetBlaster (dma%, baseport%, irq%) -DECLARE FUNCTION DSPVersion! () -DECLARE SUB WAVPlay (file$, freq&) - -'Type Definitions -TYPE gametype - cfgfile AS STRING * 12 - keyfile AS STRING * 12 - fntfile AS STRING * 12 - sprfile AS STRING * 12 -END TYPE -TYPE packtype - ammo AS INTEGER - set AS INTEGER -END TYPE -TYPE bullettype - class AS INTEGER - xi AS INTEGER - yi AS INTEGER - x AS INTEGER - y AS INTEGER - a AS DOUBLE - dir AS INTEGER - p AS INTEGER - tim AS DOUBLE - set AS INTEGER -END TYPE -TYPE teamtype - nam AS STRING * 11 - act AS INTEGER - clr AS INTEGER -END TYPE -TYPE playertype - nam AS STRING * 10 - tnum AS INTEGER - xi AS INTEGER - yi AS INTEGER - x AS INTEGER - y AS INTEGER - a AS DOUBLE - bul AS INTEGER - dir AS INTEGER - health AS INTEGER - dam AS INTEGER - jump AS INTEGER - aj AS SINGLE - pj AS INTEGER - tim AS DOUBLE - glued AS DOUBLE -END TYPE -TYPE leveltype - nam AS STRING * 10 - turn AS INTEGER - wind AS INTEGER - jag AS INTEGER - rise AS SINGLE - grav AS SINGLE - sndb AS STRING * 12 - nofly AS INTEGER - fire AS INTEGER - tim AS DOUBLE - quit AS INTEGER -END TYPE -TYPE paltype - r AS INTEGER - g AS INTEGER - B AS INTEGER -END TYPE -TYPE polartype - r AS SINGLE - a AS SINGLE -END TYPE -TYPE configtype - snd AS INTEGER - sndb AS INTEGER - ammodrop AS SINGLE -END TYPE - -'Global Variable Definitions -COMMON SHARED baseport%, lenport%, channel% -CONST pi# = 3.1415, bulletspd% = 2, maxpower% = 150, maxplayers% = 8 -CONST menuclr% = 17, maxweapons% = 7, maxsparks% = 60, maxbullets% = 10 -CONST playerstep% = 4, playeraim! = .1, playeraimsize% = 20, gunlen% = 3 -DIM SHARED player(maxplayers%) AS playertype, level AS leveltype, bullet(1 TO maxbullets%) AS bullettype -DIM SHARED turfbuf(32001) AS INTEGER, backbuf(32001) AS INTEGER, playerspr(7 + 8 * 7) AS INTEGER -DIM SHARED ammospr(0 TO maxweapons%, 7 + 8 * 7) AS INTEGER, team(maxplayers%) AS teamtype -DIM SHARED config AS configtype, playpack(maxplayers%, 1 TO maxweapons%) AS packtype, spark(1 TO maxsparks%) AS polartype -DIM SHARED smallnum(9, 2 + 3 * 4) AS INTEGER, barbuf(2561) AS INTEGER, pal(1 TO 3) AS paltype -DIM SHARED keycode(1 TO 11 + maxweapons%) AS STRING, keyact(1 TO 11 + maxweapons%) AS STRING -DIM SHARED fontbuf(0) AS STRING * 10368, menuitem(10) AS STRING, game AS gametype -DIM SHARED gamepal(0 TO 255) AS paltype, defpal(0 TO 255) AS paltype - -'Set Game Data Files -game.cfgfile = "assault.cfg" -game.keyfile = "assault.key" -game.fntfile = "assault.fnt" -game.sprfile = "assault.spr" - -'Initialize Game -InitGame -InitScr -IF config.snd THEN - GetBlaster channel%, baseport%, irq% - IF DSPReset% THEN - SpeakerState 1 - MasterVolume config.snd, config.snd, 0 - ELSE - PRINT "DSP failed to reset." - PRINT "Sound disabled." - config.snd = 0 - END IF -END IF -Title - -mainmenu: -pal(1).r = 10 -pal(1).g = 10 -pal(1).B = 10 -DefaultPal -SetBlastPal -FadePal 0, 0, 0, 100, 200, 220 -FadePal 0, 0, 0, 0, 0, 31 -menuitem(0) = "ASSAULT" -menuitem(1) = "Play" -menuitem(2) = "Play Custom" -menuitem(3) = "Configure" -menuitem(4) = "Quit" -mnum% = 4 -Menu mnum% -SELECT CASE mnum% - CASE 1 - menuitem(0) = "ENVIRONMENT" - menuitem(1) = "Jungle" - menuitem(2) = "Arctic" - menuitem(3) = "Plains" - menuitem(4) = "Volcano" - menuitem(5) = "Moon" - mnum% = 5 - Menu mnum% - SELECT CASE mnum% - CASE -1 - GOTO mainmenu - CASE 1 - level.nam = "Jungle" - pal(1).r = 20 - pal(1).g = 10 - pal(1).B = 0 - pal(2).r = 10 - pal(2).g = 25 - pal(2).B = 0 - pal(3).r = 20 - pal(3).g = 10 - pal(3).B = 0 - level.jag = 4 - level.rise = .8 - level.grav = 1 - level.sndb = "jungle.wav" - CASE 2 - level.nam = "Arctic" - pal(1).r = 20 - pal(1).g = 10 - pal(1).B = 20 - pal(2).r = 50 - pal(2).g = 50 - pal(2).B = 60 - pal(3).r = 15 - pal(3).g = 10 - pal(3).B = 0 - level.jag = 5 - level.rise = .5 - level.grav = 1 - level.sndb = "arctic.wav" - CASE 3 - level.nam = "Plains" - pal(1).r = 20 - pal(1).g = 20 - pal(1).B = 20 - pal(2).r = 0 - pal(2).g = 30 - pal(2).B = 0 - pal(3).r = 50 - pal(3).g = 50 - pal(3).B = 40 - level.jag = 5 - level.rise = .15 - level.grav = 1 - level.sndb = "plains.wav" - CASE 4 - level.nam = "Volcano" - pal(1).r = 30 - pal(1).g = 10 - pal(1).B = 0 - pal(2).r = 40 - pal(2).g = 10 - pal(2).B = 0 - pal(3).r = 5 - pal(3).g = 0 - pal(3).B = 0 - level.jag = 5 - level.rise = .8 - level.grav = 1 - level.sndb = "volcano.wav" - CASE 5 - level.nam = "Moon" - pal(1).r = 0 - pal(1).g = 0 - pal(1).B = 0 - pal(2).r = 30 - pal(2).g = 30 - pal(2).B = 30 - pal(3).r = 10 - pal(3).g = 10 - pal(3).B = 10 - level.jag = 3 - level.rise = .3 - level.grav = .3 - level.sndb = "moon.wav" - END SELECT - FadePal 0, 0, 0, 0, 0, 255 - InitGamePal - DEF SEG = VARSEG(backbuf(0)) - BLOAD "backgrnd\" + RTRIM$(level.nam) + ".bck", 0 - DEF SEG - BuildLevel - Main - GOTO mainmenu - CASE 2 - LINE (0, 30)-(319, 199), 0, BF - Font "Custom Level", 160 - (LEN("Custom Level") / 2) * 8, 50, 1, 1, 2, menuclr% + 5 - Font "(Enter Cancels)", 160 - (LEN("(Enter Cancels)") / 2) * 8, 65, 1, 1, 2, menuclr% + 5 - FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - LOCATE 11, 15 - INPUT "", l$ - IF l$ = "" THEN GOTO mainmenu - pal(1).r = 10 - pal(1).g = 10 - pal(1).B = 10 - FadePal 0, 0, 0, 0, 0, 255 - InitGamePal - LoadLevel l$ + ".lvl" - Main - GOTO mainmenu - CASE 3 - Configure - GOTO mainmenu - CASE 4 - IF config.snd THEN - SpeakerState 0 - DMAState 0 - END IF - SYSTEM - CASE ELSE - GOTO mainmenu -END SELECT - -'Various Game Data -teaminfo: -DATA "None",0 -DATA "Red Team",4 -DATA "White Team",15 -DATA "Blue Team",1 -DATA "Yellow Team",14 -DATA "Green Team",2 -DATA "Brown Team",6 -DATA "Purple Team",5 -DATA "Black Team",16 - -'Small Number Data -smallnums: -DATA 0,1,0 -DATA 1,0,1 -DATA 1,0,1 -DATA 1,0,1 -DATA 0,1,0 - -DATA 0,0,1 -DATA 0,1,1 -DATA 0,0,1 -DATA 0,0,1 -DATA 0,0,1 - -DATA 0,1,0 -DATA 1,0,1 -DATA 0,0,1 -DATA 0,1,0 -DATA 1,1,1 - -DATA 1,1,0 -DATA 0,0,1 -DATA 0,1,0 -DATA 0,0,1 -DATA 1,1,0 - -DATA 1,0,1 -DATA 1,0,1 -DATA 1,1,1 -DATA 0,0,1 -DATA 0,0,1 - -DATA 1,1,1 -DATA 1,0,0 -DATA 1,1,0 -DATA 0,0,1 -DATA 1,1,0 - -DATA 0,1,1 -DATA 1,0,0 -DATA 1,1,0 -DATA 1,0,1 -DATA 0,1,1 - -DATA 1,1,1 -DATA 0,0,1 -DATA 0,1,0 -DATA 0,1,0 -DATA 0,1,0 - -DATA 0,1,0 -DATA 1,0,1 -DATA 0,1,0 -DATA 1,0,1 -DATA 0,1,0 - -DATA 0,1,1 -DATA 1,0,1 -DATA 1,1,1 -DATA 0,0,1 -DATA 0,0,1 - -FUNCTION BPoint% (tx%, ty%, pn%) -'Returns the pixel that should be displayed as background behind any -'sprite at any time in the game. (241 represents a pixel of the background image) -'tx% and ty% are the coordinates. -'pn% is the number of player who is being "looked behind" (1-4) or -'0 if it is a bullet sprite and you want to be able to "see" all the players. -'You can also use -1 to not see any players. - -pp% = 241 -IF tx% >= 0 AND tx% <= 319 THEN - IF ty% >= 0 AND ty% <= 15 THEN - DEF SEG = VARSEG(barbuf(0)) - pp% = PEEK(tx% + 320& * ty% + 4) - DEF SEG - ELSEIF ty% >= 16 AND ty% <= 199 THEN - DEF SEG = VARSEG(turfbuf(0)) - pp% = PEEK(tx% + 320& * ty% + 4) - DEF SEG - END IF - FOR i% = 1 TO maxplayers% - IF player(i%).health > 0 AND pn% <> i% THEN - IF tx% >= player(i%).x AND tx% <= player(i%).x + 7 AND ty% >= player(i%).y AND ty% <= player(i%).y + 7 THEN - pp% = playerspr((player(i%).dir - 1) * -3.5 + player(i%).dir * (tx% - player(i%).x) + 8 * (ty% - player(i%).y)) - IF pp% = -1 THEN - pp% = team(player(i%).tnum).clr - ELSEIF pp% = -10 THEN - IF player(i%).dir = 1 THEN - pp% = 25 - INT((tx% - player(i%).x) / 2) - ELSE - pp% = 25 - INT((7 - (tx% - player(i%).x)) / 2) - END IF - END IF - IF pp% > 0 THEN - IF player(i%).glued > 0 THEN pp% = 92 - ELSE - pp% = 241 - END IF - FOR ii% = 0 TO gunlen% - x% = player(i%).x + 3 + (1 - player(i%).dir) / 2 + COS(player(i%).a) * ii% * player(i%).dir - y% = player(i%).y + 4 + SIN(player(i%).a) * ii% - IF tx% = x% AND ty% = y% THEN pp% = 25 - NEXT ii% - END IF - END IF - NEXT i% - IF ty% >= 0 AND ty% <= 199 THEN - IF pp% = 241 THEN - DEF SEG = VARSEG(backbuf(0)) - pp% = PEEK(tx% + 320& * ty%) - DEF SEG - END IF - END IF -END IF -BPoint% = pp% -END FUNCTION - -SUB BuildLevel -'Builds the level's turf map. -'It uses the LEVEL variable's data to create the map according to the -'environment chosen. (level.jag and level.rise) - -'This is for the environment sprites -DIM backspr(1 TO 2, 29 + 30 * 29) AS INTEGER - -'Loads the environment sprites -DEF SEG = &HA000 -BLOAD "backgrnd\" + RTRIM$(level.nam) + ".spr", 0 -DEF SEG -FOR y% = 0 TO 29 - FOR x% = 0 TO 29 - p% = POINT(x%, y%) - backspr(1, x% + 30 * y%) = p% - NEXT x% -NEXT y% -FOR y% = 0 TO 29 - FOR x% = 30 TO 59 - p% = POINT(x%, y%) - backspr(2, x% - 30 + 30 * y%) = p% - NEXT x% -NEXT y% - -'Draws the terrain outline -CLS -LINE (0, 0)-(319, 199), 240, BF -x1% = 0 -y1% = RND * 100 + 30 -a# = RND * 2 - 1 -buildloop: -x2% = x1% -y2% = y1% -x1% = x2% + COS(a#) * level.jag -y1% = y2% + SIN(a#) * level.jag -LINE (x1%, y1%)-(x2%, y2%), 231 -IF y1% <= 30 THEN - a# = RND * 1 -ELSEIF y1% >= 190 THEN - a# = RND * -1 -ELSE - a# = a# + RND * (level.rise * 2) - level.rise - IF a# > 3 * pi# / 4 THEN a# = 3 * pi# / 4 - IF a# < 3 * -pi# / 4 THEN a# = 3 * -pi# / 4 -END IF -IF x1% >= 319 THEN GOTO paintbuild -GOTO buildloop - -'Paints in the terrain outline -paintbuild: -PAINT (0, 0), 241, 231 -FOR x% = 0 TO 319 - FOR y% = 0 TO 199 - p% = POINT(x%, y%) - IF p% = 240 THEN - p% = POINT(x%, y% - 1) + RND * 3 - 1 - IF p% < 231 THEN p% = 231 - IF p% > 240 THEN p% = 240 - PSET (x%, y%), p% - END IF - NEXT y% -NEXT x% - -'Places environment sprites -FOR i% = 1 TO 5 - IF RND < .8 THEN - x% = RND * 280 + 20 - ly% = 0 - FOR y% = 0 TO 199 - FOR xx% = x% - 15 TO x% + 15 - p% = POINT(xx%, y%) - IF p% = 241 THEN - IF y% > ly% THEN ly% = y% - END IF - NEXT xx% - NEXT y% - x% = x% - 15 - y% = ly% - 29 - s% = RND + 1 - d% = CINT(RND) * 2 - 1 - FOR xx% = x% TO x% + 29 - FOR yy% = y% TO y% + 29 - p% = backspr(s%, (d% + 1) / 2 * 29 + -d% * (xx% - x%) + 30 * (yy% - y%)) - bp% = POINT(xx%, yy%) - IF bp% = 241 AND p% > 0 THEN PSET (xx%, yy%), p% - NEXT yy% - NEXT xx% - END IF -NEXT i% - -'Stores in Turf Buffer -GET (0, 0)-(319, 199), turfbuf -END SUB - -SUB BulletMove -'Moves any and all bullets that are in action on the playfield. - -FOR i% = 1 TO maxbullets% - - 'Explosion - '========== - 'bullet variables: - 'x = x xoordinate - 'y = y xoordinate - 'a = current flame size (set to 0 at initialization) - 'dir = size of final explosion (set this at initialization) - 'p = direction of flame growth (set to 1 at initialization) - 'set = sparks setting (set at initialization) - ' 0 = no sparks - ' 1 = sparks - ' 2 = sparks and nuclear flash - 'tim = flash timer (set to 0 at initialization) - IF bullet(i%).class = -1 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - IF bullet(i%).p = 1 AND bullet(i%).a = 0 THEN - FOR pn% = 1 TO maxplayers% - IF player(pn%).health > 0 THEN - pd% = SQR((player(pn%).x - x%) ^ 2 + (player(pn%).y - y%) ^ 2) - IF pd% < bullet(i%).dir + 3 THEN - ph% = bullet(i%).dir * 2 * (1 - pd% / (bullet(i%).dir + 3)) - Damage pn%, ph% - END IF - IF pd% < bullet(i%).dir + 13 THEN - ErasePlayer pn% - player(pn%).jump = 1 - player(pn%).xi = player(pn%).x - player(pn%).yi = player(pn%).y - IF player(pn%).x - x% <> 0 THEN - pa# = ATN((player(pn%).y - y%) / ABS(player(pn%).x - x%)) - ELSE - pa# = 40 - END IF - player(pn%).aj = pa# - pp% = 40 * (1 - pd% / (bullet(i%).dir + 13)) - player(pn%).pj = pp% - IF player(pn%).x > x% THEN - player(pn%).dir = 1 - ELSE - player(pn%).dir = -1 - END IF - player(pn%).tim = TIMER - .1 - t# = (TIMER - player(pn%).tim) * bulletspd% - player(pn%).x = player(pn%).xi + t# * COS(player(pn%).aj) * player(pn%).pj * player(pn%).dir - player(pn%).y = player(pn%).yi + t# * SIN(player(pn%).aj) * player(pn%).pj + 16 * t# ^ 2 - DrawPlayer pn% - END IF - END IF - NEXT pn% - END IF - FOR r! = 0 TO pi# * 2 STEP .05 / (bullet(i%).dir / 10) - c% = 220 - (bullet(i%).a / bullet(i%).dir) * 20 + RND * 4 - 2 - IF c% < 200 THEN c% = 200 - IF c% > 220 THEN c% = 220 - IF bullet(i%).p = -1 THEN c% = 241 - TPset x% + COS(r!) * bullet(i%).a + 3, y% + SIN(r!) * bullet(i%).a + 3, 241 - bp% = c% - IF c% = 241 THEN - bp% = BPoint%(x% + COS(r!) * bullet(i%).a + 3, y% + SIN(r!) * bullet(i%).a + 3, 0) - END IF - PSET (x% + COS(r!) * bullet(i%).a + 3, y% + SIN(r!) * bullet(i%).a + 3), bp% - NEXT r! - bullet(i%).a = bullet(i%).a + .5 * bullet(i%).p - IF bullet(i%).p = 1 AND bullet(i%).a >= bullet(i%).dir THEN - bullet(i%).p = -1 - END IF - IF bullet(i%).set = 2 THEN - cc% = -1 - IF bullet(i%).p = 1 AND bullet(i%).a < 10 THEN cc% = 1 - bullet(i%).tim = bullet(i%).tim + cc% - IF bullet(i%).tim < 0 THEN bullet(i%).tim = 0 - IF bullet(i%).tim > 20 THEN bullet(i%).tim = 20 - ci% = 100 - (bullet(i%).tim * 3) - IF ci% < 0 THEN ci% = 0 - IF ci% > 100 THEN ci% = 100 - FadePal gamepal(bullet(i%).tim + 200).r, gamepal(bullet(i%).tim + 200).g, gamepal(bullet(i%).tim + 200).B, ci%, 0, 255 - END IF - IF bullet(i%).set >= 1 THEN - FOR ii% = 1 TO maxsparks% - sx% = bullet(i%).x + 3 + spark(ii%).r * COS(spark(ii%).a) - sy% = bullet(i%).y + 3 + .3 * (spark(ii%).r * SIN(spark(ii%).a)) - PSET (sx%, sy%), BPoint%(sx%, sy%, 0) - spark(ii%).r = spark(ii%).r + 2 - sx% = bullet(i%).x + 3 + spark(ii%).r * COS(spark(ii%).a) - sy% = bullet(i%).y + 3 + .3 * (spark(ii%).r * SIN(spark(ii%).a)) - c% = 220 - spark(ii%).r / 3 - IF c% < 200 THEN c% = 200 - IF bullet(i%).p = -1 AND bullet(i%).a < 0 THEN c% = BPoint%(sx%, sy%, 0) - PSET (sx%, sy%), c% - NEXT ii% - END IF - IF bullet(i%).p = -1 AND bullet(i%).a < 0 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - x% = (bullet(i%).dir / 10 - 1) * 3000 + 1000 - EarthQuake x% - END IF - - 'Ammo crate on the ground - '========== - 'bullet variables: - 'x = x xoordinate - 'y = y xoordinate - 'a = null - 'dir = ammo amount - 'p = null - 'set = ammo class - 'tim = null - IF bullet(i%).class = 100 THEN - x% = bullet(i%).x - y% = bullet(i%).y - FOR ii% = 1 TO maxplayers% - pd% = SQR((player(ii%).x - x%) ^ 2 + (player(ii%).y - y%) ^ 2) - IF pd% <= 7 THEN - EraseSpr x%, y%, 0 - bullet(i%).class = 0 - playpack(ii%, bullet(i%).set).ammo = playpack(ii%, bullet(i%).set).ammo + bullet(i%).dir - InitBullet 101, x%, y%, 0, bullet(i%).dir, 0, bullet(i%).set - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - GOTO nextbul - END IF - NEXT ii% - FOR ii% = 1 TO maxbullets% - IF i% <> ii% AND bullet(ii%).class = -1 THEN - pd% = SQR((bullet(ii%).x - x%) ^ 2 + (bullet(ii%).y - y%) ^ 2) - IF pd% <= bullet(ii%).a THEN - bullet(i%).class = -1 - bullet(i%).a = 0 - bullet(i%).dir = 15 - bullet(i%).p = 1 - bullet(i%).set = 0 - IF config.snd THEN - WAVPlay "explode.wav", 11000 - END IF - GOTO nextbul - END IF - END IF - NEXT ii% - DrawSpr x%, y%, 0 - END IF - - 'Ammo crate falling from sky - '========== - 'bullet variables: - 'x = x xoordinate - 'y = y xoordinate (should be 0 at initializtion) - 'a = null - 'dir = ammo amount - 'p = null - 'set = ammo class - 'tim = fall timer (set to TIMER at initializtion) - IF bullet(i%).class = -100 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - t# = (level.tim - bullet(i%).tim) * bulletspd% - EraseSpr x%, y%, 0 - y% = bullet(i%).yi + 16 * t# ^ 2 * level.grav - IF x% < -7 OR x% > 326 OR y% > 206 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - bullet(i%).y = y% - IF TurfHit%(0, x%, y%) THEN - bullet(i%).class = 100 - IF config.snd THEN - WAVPlay "crash.wav", 11000 - END IF - GOTO nextbul - END IF - DrawSpr x%, y%, 0 - END IF - - 'Ammo displayed from ammo crate - '========== - 'bullet variables: - 'xi = initial x xoordinate - 'yi = initial y xoordinate - 'x = current x xoordinate - 'y = current y xoordinate - 'a = null - 'dir = ammo amount - 'p = null - 'set = ammo class - 'tim = timer (set to 0 at initialization) - IF bullet(i%).class = 101 THEN - level.nofly = 0 - FOR ii% = 1 TO bullet(i%).dir - IF bullet(i%).dir = 1 THEN - xc% = 0 - ELSEIF bullet(i%).dir = 2 THEN - xc% = -1 - IF ii% = 2 THEN xc% = 1 - ELSEIF bullet(i%).dir = 2 THEN - xc% = -1 - IF ii% = 2 THEN xc% = 0 - IF ii% = 3 THEN xc% = 1 - END IF - x% = bullet(i%).xi + xc% * bullet(i%).a - y% = bullet(i%).yi - bullet(i%).a - EraseSpr x%, y%, bullet(i%).set - NEXT ii% - IF level.tim - bullet(i%).tim >= 1 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - bullet(i%).a = bullet(i%).a + .03 - FOR ii% = 1 TO bullet(i%).dir - IF bullet(i%).dir = 1 THEN - xc% = 0 - ELSEIF bullet(i%).dir = 2 THEN - xc% = -1 - IF ii% = 2 THEN xc% = 1 - ELSEIF bullet(i%).dir = 2 THEN - xc% = -1 - IF ii% = 2 THEN xc% = 0 - IF ii% = 3 THEN xc% = 1 - END IF - x% = bullet(i%).xi + xc% * bullet(i%).a - y% = bullet(i%).yi - bullet(i%).a - DrawSpr x%, y%, bullet(i%).set - NEXT ii% - END IF - - 'Basic cannon ball - '========== - 'bullet variables: - 'xi = initial x xoordinate - 'yi = initial y xoordinate - 'x = current x xoordinate - 'y = current y xoordinate - 'a = launch angle - 'dir = launch direction - 'p = launch power - 'set = multiple bullets - 'tim = fly timer (set to TIMER at initialization) - IF bullet(i%).class = 1 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - a# = bullet(i%).a - p% = bullet(i%).p - d% = bullet(i%).dir - t# = (level.tim - bullet(i%).tim) * bulletspd% - EraseSpr x%, y%, 1 - x% = bullet(i%).xi + t# * COS(a#) * p% * d% + level.wind * t# - y% = bullet(i%).yi + t# * SIN(a#) * p% + 16 * t# ^ 2 * level.grav - IF x% < -7 OR x% > 326 OR y% > 206 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - bullet(i%).x = x% - bullet(i%).y = y% - IF TurfHit%(1, x%, y%) THEN - bullet(i%).class = -1 - bullet(i%).a = 0 - bullet(i%).dir = (4 - bullet(i%).set) * 3 + 7 - bullet(i%).p = 1 - bullet(i%).set = 0 - IF config.snd THEN - WAVPlay "blast.wav", 11000 - END IF - GOTO nextbul - END IF - DrawSpr x%, y%, 1 - END IF - - 'Grenade - '========== - 'bullet variables: - 'xi = initial x xoordinate - 'yi = initial y xoordinate - 'x = current x xoordinate - 'y = current y xoordinate - 'a = launch angle - 'dir = launch direction - 'p = launch power - 'set = explosion timer - 'tim = fly timer (set to TIMER at initialization) - IF bullet(i%).class = 2 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - a# = bullet(i%).a - p% = bullet(i%).p - d% = bullet(i%).dir - t# = (level.tim - bullet(i%).tim) * bulletspd% - EraseSpr x%, y%, 2 - x% = bullet(i%).xi + t# * COS(a#) * p% * d% + level.wind * t# - y% = bullet(i%).yi + t# * SIN(a#) * p% + 16 * t# ^ 2 * level.grav - IF x% < -7 OR x% > 326 OR y% > 206 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - bump$ = TurfBump$(x%, y%, level.turn) - SELECT CASE bump$ - - CASE "00000000" - - CASE "11111111" - x% = bullet(i%).x - y% = bullet(i%).y - bullet(i%).xi = bullet(i%).x - bullet(i%).yi = bullet(i%).y - bullet(i%).tim = TIMER - - CASE "11100011", "11000001", "10000000", "00000010", "00000001", "00000011", "10000011", "00000111", "10000111", "11001111", "10001111", "11000111", "10000001", "11001111", "11101111", "11000001", "11000011" - IF bullet(i%).dir = -1 THEN - xc% = t# * COS(a#) * p% * -d% + level.wind * t# - bullet(i%).xi = x% - xc% - bullet(i%).dir = 1 - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - CASE "11110001", "11100000", "01000000", "00100000", "00010000", "00110000", "01110000", "00111000", "01111000", "11111100", "01111100", "11111000", "01100000", "11111100", "11111110", "11100000", "11110000" - IF bullet(i%).dir = 1 THEN - xc% = t# * COS(a#) * p% * -d% + level.wind * t# - bullet(i%).xi = x% - xc% - bullet(i%).dir = -1 - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - CASE "00000110", "00001111", "10011111" - IF y% > bullet(i%).y THEN - bullet(i%).xi = x% - bullet(i%).yi = y% - bullet(i%).p = p% / 1.5 - bullet(i%).dir = 1 - bullet(i%).tim = TIMER - .1 - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - CASE "00011000", "00111100", "01111110" - IF y% > bullet(i%).y THEN - bullet(i%).xi = x% - bullet(i%).yi = y% - bullet(i%).p = p% / 1.5 - bullet(i%).dir = -1 - bullet(i%).tim = TIMER - .1 - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - CASE ELSE - IF y% > bullet(i%).y THEN - bullet(i%).xi = x% - bullet(i%).yi = y% - bullet(i%).p = p% / 1.5 - bullet(i%).tim = TIMER - .1 - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - END SELECT - bullet(i%).x = x% - bullet(i%).y = y% - IF bullet(i%).set <= 0 THEN - bullet(i%).class = -1 - bullet(i%).a = 0 - bullet(i%).dir = 20 - bullet(i%).p = 1 - bullet(i%).set = 0 - IF config.snd THEN - WAVPlay "blast.wav", 7000 - END IF - GOTO nextbul - END IF - DrawSpr x%, y%, 2 - bullet(i%).set = bullet(i%).set - 15 - END IF - - 'Mine - '========== - 'bullet variables: - 'x = current x xoordinate - 'y = current y xoordinate - 'a = null - 'dir = null - 'p = null - 'set = trip distance setting - 'tim = null - IF bullet(i%).class = 3 THEN - IF level.tim - bullet(i%).tim < 4 THEN level.nofly = 0 - IF level.tim - bullet(i%).tim > 3 THEN - x% = bullet(i%).x - y% = bullet(i%).y - FOR ii% = 1 TO maxplayers% - pd% = SQR((player(ii%).x - x%) ^ 2 + (player(ii%).y - y%) ^ 2) - IF pd% <= 5 * bullet(i%).set THEN - bullet(i%).class = -1 - bullet(i%).a = 0 - bullet(i%).dir = 15 - bullet(i%).p = 1 - bullet(i%).y = bullet(i%).y + 3 - bullet(i%).set = 0 - IF ii% = level.turn THEN level.fire = 1 - IF config.snd THEN - WAVPlay "explode.wav", 11000 - END IF - GOTO nextbul - END IF - NEXT ii% - FOR ii% = 1 TO maxbullets% - IF i% <> ii% AND bullet(ii%).class = -1 THEN - pd% = SQR((bullet(ii%).x - x%) ^ 2 + (bullet(ii%).y - y%) ^ 2) - IF pd% <= bullet(ii%).a THEN - bullet(i%).class = -1 - bullet(i%).a = 0 - bullet(i%).dir = 15 - bullet(i%).p = 1 - bullet(i%).set = 0 - IF config.snd THEN - WAVPlay "explode.wav", 11000 - END IF - GOTO nextbul - END IF - END IF - NEXT ii% - END IF - DrawSpr bullet(i%).x, bullet(i%).y, 3 - END IF - - 'Gluer - '========== - 'bullet variables: - 'xi = initial x xoordinate - 'yi = initial y xoordinate - 'x = current x xoordinate - 'y = current y xoordinate - 'a = launch angle - 'dir = launch direction - 'p = launch power - 'set = multiple bullets - 'tim = fly timer (set to TIMER at initialization) - IF bullet(i%).class = 4 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - a# = bullet(i%).a - p% = bullet(i%).p - d% = bullet(i%).dir - t# = (level.tim - bullet(i%).tim) * bulletspd% - EraseSpr x%, y%, 4 - x% = bullet(i%).xi + t# * COS(a#) * p% * d% + level.wind * t# - y% = bullet(i%).yi + t# * SIN(a#) * p% + 16 * t# ^ 2 * level.grav - IF x% < -7 OR x% > 326 OR y% > 206 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - bullet(i%).x = x% - bullet(i%).y = y% - IF TurfHit%(1, x%, y%) THEN - bullet(i%).class = -4 - bullet(i%).a = 1 - bullet(i%).dir = (5 - bullet(i%).set) * 5 - bullet(i%).p = 1 - bullet(i%).tim = 0 - IF config.snd THEN - WAVPlay "glue.wav", 11000 - END IF - GOTO nextbul - END IF - DrawSpr x%, y%, 4 - END IF - - 'Gluer Explosion - '========== - 'bullet variables: - 'x = x xoordinate - 'y = y xoordinate - 'a = current blob size (set to 1 at initialization) - 'dir = size of final blob (set this at initialization) - 'p = direction of blob growth (set to 1 at initialization) - 'set = null - 'tim = blob timer (set to 0 at initialization) - IF bullet(i%).class = -4 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - a# = bullet(i%).a - d% = bullet(i%).dir - FOR pn% = 1 TO maxplayers% - IF player(pn%).health > 0 THEN - pd% = SQR((player(pn%).x - x%) ^ 2 + (player(pn%).y - y%) ^ 2) - IF pd% < a# THEN - player(pn%).glued = 4 - bullet(i%).set - END IF - END IF - NEXT pn% - FOR ap# = .05 TO pi# * 2 STEP .05 - xp% = x% + 3 + (a# - bullet(i%).p) * COS(ap#) - yp% = y% + 3 + (a# - bullet(i%).p) * SIN(ap#) - PSET (xp%, yp%), BPoint%(xp%, yp%, 0) - xp% = x% + 3 + a# * COS(ap#) - yp% = y% + 3 + a# * SIN(ap#) - c% = 92 - PSET (xp%, yp%), c% - NEXT ap# - IF a# = 0 THEN - bullet(i%).p = 1 - bullet(i%).tim = bullet(i%).tim + 1 - IF bullet(i%).tim = 5 THEN - bullet(i%).class = 0 - PSET (x% + 3, y% + 3), BPoint%(x%, y%, 0) - GOTO nextbul - END IF - END IF - IF a# = (5 - bullet(i%).set) * 5 THEN - bullet(i%).p = -1 - END IF - bullet(i%).a = bullet(i%).a + bullet(i%).p - END IF - - 'Cluster bomb - '========== - 'bullet variables: - 'xi = initial x xoordinate - 'yi = initial y xoordinate - 'x = current x xoordinate - 'y = current y xoordinate - 'a = launch angle - 'dir = launch direction - 'p = launch power - 'set = # of bombs - 'tim = fly timer (set to TIMER at initialization) - IF bullet(i%).class = 7 THEN - level.nofly = 0 - x% = bullet(i%).x - y% = bullet(i%).y - a# = bullet(i%).a - p% = bullet(i%).p - d% = bullet(i%).dir - t# = (level.tim - bullet(i%).tim) * bulletspd% - EraseSpr x%, y%, 7 - x% = bullet(i%).xi + t# * COS(a#) * p% * d% + level.wind * t# - y% = bullet(i%).yi + t# * SIN(a#) * p% + 16 * t# ^ 2 * level.grav - IF x% < -7 OR x% > 326 OR y% > 206 THEN - bullet(i%).class = 0 - GOTO nextbul - END IF - bullet(i%).x = x% - bullet(i%).y = y% - IF TurfHit%(7, x%, y%) OR t# >= 2 THEN - bullet(i%).class = -1 - bullet(i%).a = 0 - bullet(i%).dir = (4 - bullet(i%).set) * 10 - bullet(i%).p = 1 - IF bullet(i%).set = 1 THEN - InitBullet 1, x%, y%, 1.6, -1, 50, bullet(i%).set - ELSEIF bullet(i%).set = 2 THEN - InitBullet 1, x%, y%, .5, -1, 50, bullet(i%).set - InitBullet 1, x%, y%, .5, 1, 50, bullet(i%).set - ELSEIF bullet(i%).set = 3 THEN - InitBullet 1, x%, y%, .5, -1, 50, bullet(i%).set - InitBullet 1, x%, y%, 1.6, -1, 50, bullet(i%).set - InitBullet 1, x%, y%, .5, 1, 50, bullet(i%).set - END IF - bullet(i%).set = 2 - bullet(i%).tim = 0 - FOR ii% = 1 TO maxsparks% - spark(ii%).r = 0 - spark(ii%).a = ((2 * pi#) / maxsparks%) * ii% - NEXT ii% - IF config.snd THEN - WAVPlay "explode.wav", 11000 - END IF - GOTO nextbul - END IF - DrawSpr x%, y%, 7 - END IF - -nextbul: -NEXT i% -END SUB - -SUB Configure -'The Configuration SUB. - -startcfg: -menuitem(0) = "CONFIGURE" -menuitem(1) = "Players" -menuitem(2) = "Starting Pack" -menuitem(3) = "Keyboard" -menuitem(4) = "Options" -menuitem(5) = "Save" -mnum% = 5 -Menu mnum% -SELECT CASE mnum% - CASE -1 - EXIT SUB - CASE 1 - GOTO players - CASE 2 - GOTO startpack - CASE 3 - GOTO keyboard - CASE 4 - GOTO options - CASE 5 - GOTO savecfg -END SELECT - -players: -menuitem(0) = "PLAYERS" -menuitem(1) = "Health:" + STR$(player(0).health) -FOR i% = 1 TO maxplayers% - menuitem(i% + 1) = player(i%).nam + ": " + team(player(i%).tnum).nam -NEXT i% -mnum% = maxplayers% + 1 -Menu mnum% -SELECT CASE mnum% - CASE -1 - GOTO startcfg - CASE 1 - LINE (0, 30)-(319, 199), 0, BF - Font menuitem(mnum%), 160 - (LEN(menuitem(mnum%)) / 2) * 8, 50, 1, 1, 2, menuclr% + 5 - FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - LOCATE 10, 20 - INPUT "", i% - IF i% < 1 THEN i% = 1 - IF i% > 100 THEN i% = 100 - player(0).health = i% - FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - GOTO players - CASE 2 TO maxplayers% + 1 - LINE (0, 30)-(319, 199), 0, BF - Font menuitem(mnum%), 160 - (LEN(menuitem(mnum%)) / 2) * 8, 50, 1, 1, 2, menuclr% + 5 - Font "New Name", 160 - (LEN("New Name") / 2) * 8, 65, 1, 1, 2, menuclr% + 5 - Font "(Enter Makes No Change)", 160 - (LEN("(Enter Makes No Change)") / 2) * 8, 90, 1, 1, 2, menuclr% + 5 - FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - LOCATE 11, 15 - INPUT "", l$ - i% = mnum% - 1 - IF l$ <> "" THEN - player(i%).nam = l$ - END IF - FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - - menuitem(0) = "TEAM SELECT" - menuitem(1) = team(0).nam - FOR ii% = 1 TO maxplayers% - menuitem(ii% + 1) = team(ii%).nam - NEXT ii% - mnum% = maxplayers% + 1 - Menu mnum% - SELECT CASE mnum% - CASE -1 - GOTO startcfg - CASE 1 - player(i%).tnum = 0 - CASE 2 TO maxplayers% + 1 - player(i%).tnum = mnum% - 1 - END SELECT - GOTO players -END SELECT - -startpack: -menuitem(0) = "STARTING PACK" -menuitem(1) = "Cannons:" + STR$(playpack(0, 1).ammo) -menuitem(2) = "Grenades:" + STR$(playpack(0, 2).ammo) -menuitem(3) = "Mines:" + STR$(playpack(0, 3).ammo) -menuitem(4) = "Gluers:" + STR$(playpack(0, 4).ammo) -menuitem(5) = "Flamers:" + STR$(playpack(0, 5).ammo) -menuitem(6) = "Boosters:" + STR$(playpack(0, 6).ammo) -menuitem(7) = "Clusters:" + STR$(playpack(0, 7).ammo) -mnum% = 7 -Menu mnum% -SELECT CASE mnum% - CASE -1 - GOTO startcfg - CASE 1, 2, 3, 4, 5, 6, 7 - LINE (0, 30)-(319, 199), 0, BF - Font menuitem(mnum%), 160 - (LEN(menuitem(mnum%)) / 2) * 8, 50, 1, 1, 2, menuclr% + 5 - FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - LOCATE 10, 20 - INPUT "", i% - IF mnum% = 1 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 1).ammo = i% - END IF - IF mnum% = 2 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 2).ammo = i% - END IF - IF mnum% = 3 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 3).ammo = i% - END IF - IF mnum% = 4 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 4).ammo = i% - END IF - IF mnum% = 5 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 5).ammo = i% - END IF - IF mnum% = 6 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 6).ammo = i% - END IF - IF mnum% = 7 THEN - IF i% < 0 THEN i% = 0 - IF i% > 99 THEN i% = 99 - playpack(0, 7).ammo = i% - END IF - FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - GOTO startpack -END SELECT - -keyboard: -menuitem(0) = "KEYBOARD" -menuitem(1) = keyact(1) + SPACE$(10 - LEN(keyact(1))) + ": " + KeyName$(keycode(1)) -menuitem(2) = keyact(2) + SPACE$(10 - LEN(keyact(2))) + ": " + KeyName$(keycode(2)) -menuitem(3) = keyact(3) + SPACE$(10 - LEN(keyact(3))) + ": " + KeyName$(keycode(3)) -menuitem(4) = keyact(4) + SPACE$(10 - LEN(keyact(4))) + ": " + KeyName$(keycode(4)) -menuitem(5) = keyact(5) + SPACE$(10 - LEN(keyact(5))) + ": " + KeyName$(keycode(5)) -menuitem(6) = keyact(6) + SPACE$(10 - LEN(keyact(6))) + ": " + KeyName$(keycode(6)) -mnum% = 6 -Menu mnum% -SELECT CASE mnum% - CASE -1 - GOTO startcfg - CASE 1, 2, 3, 4, 5, 6 - LINE (0, 30)-(319, 199), 0, BF - Font menuitem(mnum%), 160 - (LEN(menuitem(mnum%)) / 2) * 8, 50, 1, 1, 2, menuclr% + 5 - Font "Press new key", 160 - (LEN("Press new key") / 2) * 8, 70, 1, 1, 2, menuclr% + 5 - FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - DO - key$ = INKEY$ - LOOP UNTIL key$ = "" - DO - key$ = INKEY$ - LOOP UNTIL key$ <> "" - keycheck% = 1 - FOR i% = 1 TO 10 + maxweapons% - IF i% <> mnum% AND key$ = keycode(i%) THEN keycheck% = 0 - NEXT i% - IF keycheck% THEN - keycode(mnum%) = key$ - ELSE - Font "Key already assigned", 160 - (LEN("Key already assigned") / 2) * 8, 90, 1, 1, 2, menuclr% + 5 - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - DO - LOOP UNTIL DMADone% - END IF - END IF - FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - GOTO keyboard -END SELECT - -options: -menuitem(0) = "OPTIONS" -IF config.ammodrop = 0 THEN ad$ = "Never" -IF config.ammodrop = .1 THEN ad$ = "Low" -IF config.ammodrop = .2 THEN ad$ = "Medium" -IF config.ammodrop = .3 THEN ad$ = "High" -menuitem(1) = "Ammo Drops: " + ad$ -menuitem(2) = "Sound Volume:" + RTRIM$(STR$(config.snd)) -IF config.sndb = 0 THEN ad$ = "Off" -IF config.sndb = 1 THEN ad$ = "On" -menuitem(3) = "Background Sound: " + ad$ -mnum% = 3 -Menu mnum% -SELECT CASE mnum% - CASE -1 - GOTO startcfg - CASE 1 - menuitem(0) = "AMMO DROPS" - menuitem(1) = "Never" - menuitem(2) = "Low" - menuitem(3) = "Medium" - menuitem(4) = "High" - mnum% = 4 - Menu mnum% - config.ammodrop = (mnum% - 1) * .1 - GOTO options - CASE 2 - LINE (0, 30)-(319, 199), 0, BF - Font menuitem(1), 160 - (LEN(menuitem(1)) / 2) * 8, 50, 1, 1, 2, menuclr% + 5 - FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - LOCATE 10, 20 - INPUT "", i% - IF i% < 0 THEN i% = 0 - IF i% > 15 THEN i% = 15 - IF config.snd = 0 THEN - GetBlaster channel%, baseport%, irq% - IF DSPReset% THEN - SpeakerState 1 - MasterVolume config.snd, config.snd, 0 - ELSE - PRINT "DSP failed to reset." - PRINT "Sound disabled." - config.snd = 0 - END IF - END IF - config.snd = i% - MasterVolume config.snd, config.snd, 0 - FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 31 - NEXT c% - GOTO options - CASE 3 - menuitem(0) = "BACKGROUND SOUND" - menuitem(1) = "On" - menuitem(2) = "Off" - mnum% = 2 - Menu mnum% - IF mnum% = 1 THEN - config.sndb = 1 - ELSE - config.sndb = 0 - END IF - GOTO options -END SELECT - -savecfg: -KILL game.cfgfile -OPEN game.cfgfile FOR OUTPUT AS #1 -l$ = "" -FOR i% = 1 TO maxplayers% - PRINT #1, "player" + STR$(i%) + " " + player(i%).nam - l$ = l$ + " " + LTRIM$(STR$(player(i%).tnum)) -NEXT i% -PRINT #1, "teams" + l$ -PRINT #1, "health" + STR$(player(0).health) -PRINT #1, "pack.cannon" + STR$(playpack(0, 1).ammo) -PRINT #1, "pack.grenade" + STR$(playpack(0, 2).ammo) -PRINT #1, "pack.mine" + STR$(playpack(0, 3).ammo) -PRINT #1, "pack.gluer" + STR$(playpack(0, 4).ammo) -PRINT #1, "pack.flamer" + STR$(playpack(0, 5).ammo) -PRINT #1, "pack.booster" + STR$(playpack(0, 6).ammo) -PRINT #1, "pack.cluster" + STR$(playpack(0, 7).ammo) -PRINT #1, "ammo.drops" + STR$(config.ammodrop) -PRINT #1, "sound.volume" + STR$(config.snd) -PRINT #1, "sound.back" + STR$(config.sndb) -PRINT #1, "/end" -CLOSE #1 - -KILL game.keyfile -OPEN game.keyfile FOR RANDOM AS #1 -FOR i% = 1 TO 6 - PUT #1, i%, keycode(i%) -NEXT i% -CLOSE #1 -END SUB - -SUB Damage (pn%, dam%) -'Applies damage to players. -'pn% = player number -'dam% = damage amount - -ErasePlayer pn% -player(pn%).health = player(pn%).health - dam% -IF player(pn%).health <= 0 THEN player(pn%).health = 0 -DrawPlayer pn% -player(pn%).dam = 1 -END SUB - -SUB DefaultPal -'Sets the default palette. - -FOR c% = 0 TO 255 - gamepal(c%).r = defpal(c%).r - gamepal(c%).g = defpal(c%).g - gamepal(c%).B = defpal(c%).B -NEXT c% -END SUB - -FUNCTION DMADone% -'Checks if the DMA is done with a WAV. - -Count% = INP(lenport%) -Count2% = INP(lenport%) -Count& = CLNG(Count% + 1) * CLNG(Count2% + 1) -IF (Count& - 1) >= &HFFFF& THEN - junk% = INP(DSPDataAvail%) - DMADone% = -1 -END IF -END FUNCTION - -SUB DMAPlay (segment&, offset&, length&, freq&) -'Makes the DMA play sounds. - -length& = length& - 1 -page% = 0 -memloc& = segment& * 16 + offset& -SELECT CASE channel% - CASE 0 - pgport% = &H87 - addport% = &H0 - lenport% = &H1 - modereg% = &H48 - CASE 1 - pgport% = &H83 - addport% = &H2 - lenport% = &H3 - modereg% = &H49 - CASE 2 - pgport% = &H81 - addport% = &H4 - lenport% = &H5 - modereg% = &H4A - CASE 3 - pgport% = &H82 - addport% = &H6 - lenport% = &H7 - modereg% = &H4B -END SELECT - -OUT &HA, &H4 + channel% -OUT &HC, &H0 -OUT &HB, modereg% -OUT addport%, memloc& AND &HFF -OUT addport%, (memloc& AND &HFFFF&) \ &H100 -IF (memloc& AND 65536) THEN page% = page% + 1 -IF (memloc& AND 131072) THEN page% = page% + 2 -IF (memloc& AND 262144) THEN page% = page% + 4 -IF (memloc& AND 524288) THEN page% = page% + 8 -OUT pgport%, page% -OUT lenport%, length& AND &HFF -OUT lenport%, (length& AND &HFFFF&) \ &H100 -OUT &HA, channel% - -TimeConst% = 256 - 1000000 \ freq& -DSPWrite &H40 -DSPWrite TimeConst% -DSPWrite &H14 -DSPWrite (length& AND &HFF) -DSPWrite ((length& AND &HFFFF&) \ &H100) -END SUB - -SUB DMAState (state%) -'Can set the state of the DMA. (1 = on, 0 = off) - -IF state% THEN - DSPWrite &HD4 -ELSE - DSPWrite &HD0 -END IF -END SUB - -SUB DoneTurn -'This SUB occurs at the end of every players turn. -'Displays the turns damage and checks if player is dead. - -FOR i% = 1 TO maxplayers% - IF level.turn = i% AND player(i%).glued > 0 THEN player(i%).glued = player(i%).glued - 1 - IF player(i%).dam THEN - DrawPlayer i% - END IF -NEXT i% -FOR ii% = 1 TO 5 - FOR c% = 0 TO 20 - FOR i% = 1 TO maxplayers% - IF player(i%).dam = 1 THEN - OUT &H3C8, 220 + i% - OUT &H3C9, c% * 3 - OUT &H3C9, c% * 2 - OUT &H3C9, 0 - FOR z% = -32000 TO 32000 - NEXT z% - END IF - NEXT i% - NEXT c% - FOR c% = 20 TO 0 STEP -1 - FOR i% = 1 TO maxplayers% - IF player(i%).dam = 1 THEN - OUT &H3C8, 220 + i% - OUT &H3C9, c% * 3 - OUT &H3C9, c% * 2 - OUT &H3C9, 0 - FOR z% = -32000 TO 32000 - NEXT z% - END IF - NEXT i% - NEXT c% -NEXT ii% -FadePal 0, 0, 0, 100, 221, 230 -FOR i% = 1 TO maxplayers% - IF player(i%).dam THEN - player(i%).dam = 0 - IF player(i%).health = 0 THEN - ErasePlayer i% - IF config.snd THEN - WAVPlay "death.wav", 11000 - END IF - FOR r! = 0 TO 15 STEP .5 - FOR x% = 0 TO 7 - FOR y% = 0 TO 7 - p% = playerspr(x% + 8 * y%) - IF p% <> 0 THEN - IF x% <= 3 THEN - xc% = x% - 4 - ELSE - xc% = x% - 3 - END IF - IF y% <= 3 THEN - yc% = y% - 4 - ELSE - yc% = y% - 3 - END IF - FOR ii% = 0 TO 5 - nr! = (r! - ii%) - IF nr! < 0 THEN nr! = 0 - IF nr! <= 10 THEN - px% = player(i%).x + x% + xc% * nr! - py% = player(i%).y + y% + (yc% - 3) * nr! + 16 * (nr! / 10) ^ 2 - IF p% = -1 THEN - p% = team(player(i%).tnum).clr - ELSEIF p% = -10 THEN - IF player(i%).dir = 1 THEN - p% = 25 - INT(x% / 2) - ELSE - p% = 25 - INT((7 - x%) / 2) - END IF - END IF - IF ii% > 0 THEN p% = 220 - ii% * 3 - IF ii% = 5 THEN p% = BPoint%(px%, py%, 0) - PSET (px%, py%), p% - END IF - NEXT ii% - FOR z% = 0 TO 32000 - NEXT z% - END IF - NEXT y% - NEXT x% - NEXT r! - END IF - END IF -NEXT i% -END SUB - -SUB DrawBar -'Redraws the Infobar for each turn. - -FOR y% = 0 TO 15 - FOR x% = 0 TO 319 - p% = TPoint%(x%, y%, 0) - IF p% = 241 THEN - DEF SEG = VARSEG(backbuf(0)) - p% = PEEK(x% + 320 * y%) - DEF SEG - END IF - PSET (x%, y%), p% - NEXT x% -NEXT y% -Font player(level.turn).nam, 8, 4, 1, 1, 3, 24 -LINE (109, 3)-(211, 12), team(player(level.turn).tnum).clr, B -FOR i% = 4 TO 11 - LINE (110, i%)-(210, i%), i% + 12 -NEXT i% -FOR i% = 4 TO 11 - LINE (110, i%)-(110 + player(level.turn).health, i%), 28 - i% + 4 -NEXT i% -LINE (219, 4)-(281, 7), team(player(level.turn).tnum).clr, B -Font LTRIM$(STR$(playpack(level.turn, player(level.turn).bul).ammo)), 288, 4, 1, 1, 3, 24 -DrawSpr 308, 1, player(level.turn).bul -DrawSmallNum 311, 10, playpack(level.turn, player(level.turn).bul).set, 15 -IF level.wind = 0 THEN - CIRCLE (250, 11), 2, 78 -ELSEIF level.wind > 0 THEN - LINE (250 - level.wind / 2, 11)-(250 + level.wind / 2, 11), 78 - LINE (250 + level.wind / 2, 11)-(248 + level.wind / 2, 9), 78 - LINE (250 + level.wind / 2, 11)-(248 + level.wind / 2, 13), 78 -ELSEIF level.wind < 0 THEN - LINE (250 - level.wind / 2, 11)-(250 + level.wind / 2, 11), 78 - LINE (250 + level.wind / 2, 11)-(252 + level.wind / 2, 9), 78 - LINE (250 + level.wind / 2, 11)-(252 + level.wind / 2, 13), 78 -END IF -LINE (0, 0)-(319, 15), team(player(level.turn).tnum).clr, B -GET (0, 0)-(319, 15), barbuf -END SUB - -SUB DrawHealth (pn%, c%) -'Displays a players health. -'pn% = player number -'c% = display color - -n% = player(pn%).health -nn$ = LTRIM$(RTRIM$(STR$(n%))) -x% = player(pn%).x + 3 - LEN(LTRIM$(RTRIM$(STR$(player(pn%).health)))) * 2 -y% = player(pn%).y - 6 -FOR i% = 1 TO LEN(nn$) - d$ = MID$(nn$, i%, 1) - FOR yy% = 0 TO 4 - FOR xx% = 0 TO 2 - p% = smallnum(VAL(d$), xx% + 3 * yy%) - IF p% = 1 THEN - IF c% = -1 THEN - p% = BPoint%(x% + xx% + (i% - 1) * 4, y% + yy%, pn%) - ELSE - p% = c% - END IF - PSET (x% + xx% + (i% - 1) * 4, y% + yy%), p% - END IF - NEXT xx% - NEXT yy% -NEXT i% -END SUB - -SUB DrawPlayer (pn%) -'Draws the player's sprite. - -x% = player(pn%).x -y% = player(pn%).y -FOR yy% = 0 TO 7 - FOR xx% = 0 TO 7 - p% = playerspr(xx% + 8 * yy%) - IF p% = -1 THEN - p% = team(player(pn%).tnum).clr - ELSEIF p% = -10 THEN - IF player(pn%).dir = 1 THEN - p% = 25 - INT(xx% / 2) - ELSE - p% = 25 - INT((7 - xx%) / 2) - END IF - END IF - IF p% > 0 THEN - IF player(pn%).glued > 0 THEN p% = 92 - PSET (x% + (player(pn%).dir - 1) * -3.5 + player(pn%).dir * xx%, y% + yy%), p% - END IF - NEXT xx% -NEXT yy% - -DrawHealth pn%, pn% + 220 -FOR i% = 0 TO gunlen% - x% = player(pn%).x + 3 + (1 - player(pn%).dir) / 2 + COS(player(pn%).a) * i% * player(pn%).dir - y% = player(pn%).y + 4 + SIN(player(pn%).a) * i% - PSET (x%, y%), 25 -NEXT i% -IF level.turn = pn% THEN - PSET (player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN(player(pn%).a) * playeraimsize%), 8 - PSET (player(pn%).x + 1 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN(player(pn%).a) * playeraimsize%), 7 - PSET (player(pn%).x + 5 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN(player(pn%).a) * playeraimsize%), 7 - PSET (player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 1 + SIN(player(pn%).a) * playeraimsize%), 7 - PSET (player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 5 + SIN(player(pn%).a) * playeraimsize%), 7 -END IF -END SUB - -SUB DrawSmallNum (x%, y%, n%, c%) -'Draws a small number. - -nn$ = LTRIM$(RTRIM$(STR$(n%))) -FOR i% = 1 TO LEN(nn$) - d$ = MID$(nn$, i%, 1) - FOR yy% = 0 TO 4 - FOR xx% = 0 TO 2 - p% = smallnum(VAL(d$), xx% + 3 * yy%) - IF p% = 1 THEN - PSET (x% + xx% + (i% - 1) * 4, y% + yy%), c% - END IF - NEXT xx% - NEXT yy% -NEXT i% -END SUB - -SUB DrawSpr (x%, y%, sn%) -'Draws a sprite such as a bullet. -'x% and y% are coordinates. -'sn% is the sprite number to be drawn. - -FOR yy% = 0 TO 7 - FOR xx% = 0 TO 7 - p% = ammospr(sn%, xx% + 8 * yy%) - IF p% > 0 THEN - PSET (x% + xx%, y% + yy%), p% - END IF - NEXT xx% -NEXT yy% -END SUB - -FUNCTION DSPRead% -'Reads from the DSP. - -DO -LOOP UNTIL INP(baseport% + 14) AND &H80 -DSPRead% = INP(baseport% + 10) -END FUNCTION - -FUNCTION DSPReset% -'Resets the DSP. - -OUT baseport% + 6, 1 -FOR Count% = 1 TO 4 - junk% = INP(baseport% + 6) -NEXT -OUT baseport% + 6, 0 -IF INP(baseport% + 14) AND &H80 = &H80 AND INP(baseport% + 10) = &HAA THEN - DSPReset% = -1 -ELSE - DSPReset% = 0 -END IF -END FUNCTION - -FUNCTION DSPVersion! -'Returns the DSP version. - -DSPWrite &HE1 -Temp% = DSPRead% -Temp2% = DSPRead% -DSPVersion! = VAL(STR$(Temp%) + "." + STR$(Temp2%)) -END FUNCTION - -SUB DSPWrite (byte%) -'Writes to the DSP. - -DO -LOOP WHILE INP(baseport% + 12) AND &H80 -OUT baseport% + 12, byte% -END SUB - -SUB EarthQuake (x%) -'Makes the screen shake. - -FOR i% = 1 TO x% - OUT &H3D4, 8 - OUT &H3D5, i% -NEXT i% -OUT &H3D4, 8 -OUT &H3D5, 0 -END SUB - -SUB ErasePlayer (pn%) -'Erases the player's sprite. - -x% = player(pn%).x -y% = player(pn%).y -FOR yy% = 0 TO 7 - FOR xx% = 0 TO 7 - p% = playerspr(xx% + 8 * yy%) - IF p% <> 0 THEN - p% = BPoint%(x% + (player(pn%).dir - 1) * -3.5 + player(pn%).dir * xx%, y% + yy%, pn%) - PSET (x% + (player(pn%).dir - 1) * -3.5 + player(pn%).dir * xx%, y% + yy%), p% - END IF - NEXT xx% -NEXT yy% - -DrawHealth pn%, -1 -FOR i% = 0 TO gunlen% - x% = player(pn%).x + 3 + (1 - player(pn%).dir) / 2 + COS(player(pn%).a) * i% * player(pn%).dir - y% = player(pn%).y + 4 + SIN(player(pn%).a) * i% - p% = BPoint%(x%, y%, pn%) - PSET (x%, y%), p% -NEXT i% -PSET (player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN(player(pn%).a) * playeraimsize%), BPoint%(player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN( _ -player(pn%).a) * playeraimsize%, pn%) -PSET (player(pn%).x + 1 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN(player(pn%).a) * playeraimsize%), BPoint%(player(pn%).x + 1 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN( _ -player(pn%).a) * playeraimsize%, pn%) -PSET (player(pn%).x + 5 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN(player(pn%).a) * playeraimsize%), BPoint%(player(pn%).x + 5 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 3 + SIN( _ -player(pn%).a) * playeraimsize%, pn%) -PSET (player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 1 + SIN(player(pn%).a) * playeraimsize%), BPoint%(player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 1 + SIN( _ -player(pn%).a) * playeraimsize%, pn%) -PSET (player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 5 + SIN(player(pn%).a) * playeraimsize%), BPoint%(player(pn%).x + 3 + COS(player(pn%).a) * playeraimsize% * player(pn%).dir, player(pn%).y + 5 + SIN( _ -player(pn%).a) * playeraimsize%, pn%) -END SUB - -SUB EraseSpr (x%, y%, sn%) -'Erases a sprite from the screen. - -FOR yy% = 0 TO 7 - FOR xx% = 0 TO 7 - p% = ammospr(sn%, xx% + 8 * yy%) - IF p% > 0 THEN - p% = BPoint%(x% + xx%, y% + yy%, 0) - PSET (x% + xx%, y% + yy%), p% - END IF - NEXT xx% -NEXT yy% -END SUB - -SUB FadePal (fr%, fg%, fb%, i%, c1%, c2%) -'Create the screen's palette as a blend between the current Game Palette -'and a given color. -'fr%, fg%, and fb% are the values for the color to blend with. -'i% is a number from 0 to 100 that sets the amount of true -'Game Palette (so 0 would be 100% blend color and 100 would be 100% Game Palette). -'c1% and c2% set the range of colors to be affected by the blend. - -FOR c% = c1% TO c2% - r% = (gamepal(c%).r / 100) * i% + (fr% / 100) * (100 - i%) - g% = (gamepal(c%).g / 100) * i% + (fg% / 100) * (100 - i%) - B% = (gamepal(c%).B / 100) * i% + (fb% / 100) * (100 - i%) - OUT &H3C8, c% - OUT &H3C9, r% - OUT &H3C9, g% - OUT &H3C9, B% -NEXT c% -END SUB - -SUB Font (text$, xstart%, ystart%, xscale!, yscale!, style%, tclr%) -'Draws font to the screen. -'The styles can be seen below, more can be added easily. - -DEF SEG = VARSEG(fontbuf(0)) -FOR h% = 1 TO LEN(text$) - fptr% = 81 * (ASC(MID$(text$, h%, 1)) - 1) - FOR y% = 0 TO 8 - FOR x% = 0 TO 8 - col% = PEEK(VARPTR(fontbuf(0)) + fptr% + x% + 9 * y%) - IF col% THEN - px% = xstart% + x% * xscale! + (h% - 1) * 8 * xscale! - py% = ystart% + y% * yscale! - SELECT CASE style% - - CASE 1 - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr%, BF - - CASE 2 - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr%, BF - x2% = x% + 1 - y2% = y% + 1 - col2% = PEEK(VARPTR(fontbuf(0)) + fptr% + x2% + 9 * y2%) - IF x2% < 0 OR x2% > 8 OR y2% < 0 OR y2% > 8 THEN col2% = 0 - IF col2% = 0 THEN - px% = xstart% + x2% * xscale! + (h% - 1) * 8 * xscale! - py% = ystart% + y2% * yscale! - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr% - 4, BF - END IF - x2% = x% + 2 - y2% = y% + 2 - col2% = PEEK(VARPTR(fontbuf(0)) + fptr% + x2% + 9 * y2%) - IF x2% < 0 OR x2% > 8 OR y2% < 0 OR y2% > 8 THEN col2% = 0 - IF col2% = 0 THEN - px% = xstart% + x2% * xscale! + (h% - 1) * 8 * xscale! - py% = ystart% + y2% * yscale! - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr% - 8, BF - END IF - - CASE 3 - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr%, BF - FOR yc% = -1 TO 1 - FOR xc% = -1 TO 1 - x2% = x% + xc% - y2% = y% + yc% - col2% = PEEK(VARPTR(fontbuf(0)) + fptr% + x2% + 9 * y2%) - IF x2% < 0 OR x2% > 8 OR y2% < 0 OR y2% > 8 THEN col2% = 0 - IF col2% = 0 THEN - px% = xstart% + x2% * xscale! + (h% - 1) * 8 * xscale! - py% = ystart% + y2% * yscale! - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr% - 6, BF - END IF - NEXT xc% - NEXT yc% - - CASE 4 - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), (py% - ystart%) / yscale! + tclr% - 6, BF - FOR yc% = -1 TO 1 - FOR xc% = -1 TO 1 - x2% = x% + xc% - y2% = y% + yc% - col2% = PEEK(VARPTR(fontbuf(0)) + fptr% + x2% + 9 * y2%) - IF x2% < 0 OR x2% > 8 OR y2% < 0 OR y2% > 8 THEN col2% = 0 - IF col2% = 0 THEN - px% = xstart% + x2% * xscale! + (h% - 1) * 8 * xscale! - py% = ystart% + y2% * yscale! - LINE (px%, py%)-(px% + xscale! - 1, py% + yscale! - 1), 7 - 2 * yscale! - (py% - ystart%) / yscale! + tclr%, BF - END IF - NEXT xc% - NEXT yc% - - END SELECT - END IF - py! = py! + yscale! - NEXT - px! = px! + xscale! - py! = ystart% - NEXT -NEXT h% -DEF SEG -END SUB - -SUB GetBlaster (dma%, baseport%, irq%) -'Gets the Sound Blaster information. - -IF LEN(ENVIRON$("BLASTER")) = 0 THEN - PRINT "BLASTER environment variable not set." - EXIT SUB -END IF -FOR length% = 1 TO LEN(ENVIRON$("BLASTER")) - SELECT CASE MID$(ENVIRON$("BLASTER"), length%, 1) - CASE "A" - baseport% = VAL("&H" + MID$(ENVIRON$("BLASTER"), length% + 1, 3)) - CASE "I" - irq% = VAL(MID$(ENVIRON$("BLASTER"), length% + 1, 1)) - CASE "D" - dma% = VAL(MID$(ENVIRON$("BLASTER"), length% + 1, 1)) - END SELECT -NEXT -END SUB - -SUB InitBullet (c%, x%, y%, a#, d%, p%, s%) -'Inititializes a bullet object. -'c% = bullet class -'x% and y% are coordinates -'a# = angle -'d% = direction -'p% = power -'s% = setting - -FOR i% = 1 TO maxbullets% - IF bullet(i%).class = 0 THEN - bullet(i%).class = c% - bullet(i%).xi = x% - bullet(i%).yi = y% - bullet(i%).x = x% - bullet(i%).y = y% - bullet(i%).a = a# - bullet(i%).dir = d% - bullet(i%).p = p% - bullet(i%).tim = TIMER - .1 - bullet(i%).set = s% - EXIT FOR - END IF -NEXT i% -END SUB - -SUB InitGame -'Initializes the game. - -RANDOMIZE TIMER -LoadCfg game.cfgfile -LoadKey game.keyfile -RESTORE teaminfo -FOR i% = 0 TO maxplayers% - READ l$ - team(i%).nam = l$ - READ x% - team(i%).clr = x% -NEXT i% -END SUB - -SUB InitGamePal -'Initializes the Game Palette. - -FOR c% = 221 TO 230 - gamepal(c%).r = 62 - gamepal(c%).g = 62 - gamepal(c%).B = 62 -NEXT c% -FOR c% = 231 TO 240 - gamepal(c%).r = pal(2).r + (c% - 231) * (pal(3).r - pal(2).r) / 10 - gamepal(c%).g = pal(2).g + (c% - 231) * (pal(3).g - pal(2).g) / 10 - gamepal(c%).B = pal(2).B + (c% - 231) * (pal(3).B - pal(2).B) / 10 -NEXT c% -gamepal(241).B = pal(1).r -gamepal(241).B = pal(1).g -gamepal(241).B = pal(1).B -SetBlastPal -END SUB - -SUB InitPlayers -'Initializes the players. - -DIM playeract(1 TO maxplayers%) AS INTEGER - -player(0).aj = -1.2 -player(0).pj = 30 -mnum% = 0 -FOR i% = 1 TO maxplayers% - playeract(i%) = 0 - player(i%).health = 0 - IF player(i%).tnum > 0 THEN - mnum% = mnum% + 1 - playeract(mnum%) = i% - END IF -NEXT i% -FOR i% = 1 TO mnum% - IF player(playeract(i%)).tnum > 0 THEN - x% = 320 / (mnum% + 1) * i% - player(playeract(i%)).x = x% - FOR y% = 0 TO 200 - FOR xx% = x% TO x% + 7 - IF TPoint%(xx%, y% + 7, i%) <> 241 THEN - GOTO playerland - END IF - NEXT xx% - NEXT y% -playerland: - player(playeract(i%)).y = y% - player(playeract(i%)).a = 0 - player(playeract(i%)).bul = 1 - player(playeract(i%)).dir = 1 - player(playeract(i%)).health = player(0).health - player(playeract(i%)).dam = 0 - player(playeract(i%)).jump = 0 - FOR ii% = 1 TO maxweapons% - playpack(playeract(i%), ii%).ammo = playpack(0, ii%).ammo - playpack(playeract(i%), ii%).set = playpack(0, ii%).set - NEXT ii% - END IF -NEXT i% -END SUB - -SUB InitScr -'Initializes the screen. - -SCREEN 13 -COLOR 28 -FOR c% = 0 TO 255 - OUT &H3C7, c% - defpal(c%).r = INP(&H3C9) - defpal(c%).g = INP(&H3C9) - defpal(c%).B = INP(&H3C9) -NEXT c% -FadePal 0, 0, 0, 0, 0, 255 -LoadSprites game.sprfile -LoadFont game.fntfile -END SUB - -FUNCTION KeyMark% (k$) -'Returns the code for the key pressed. - -ii% = 0 -FOR i% = 1 TO 11 + maxweapons% - IF k$ = keycode(i%) THEN - ii% = i% - EXIT FOR - END IF -NEXT i% -KeyMark% = ii% -END FUNCTION - -FUNCTION KeyName$ (k$) -'Returns the common name for the keycode. - -DIM kn AS STRING * 10 - -SELECT CASE UCASE$(k$) - CASE CHR$(0) + "H" - kn = "Up" - CASE CHR$(0) + "P" - kn = "Down" - CASE CHR$(0) + "K" - kn = "Left" - CASE CHR$(0) + "M" - kn = "Right" - CASE CHR$(13) - kn = "Enter" - CASE CHR$(27) - kn = "Esc" - CASE CHR$(32) - kn = "Space" - CASE CHR$(0) + CHR$(59) - kn = "F1" - CASE CHR$(0) + CHR$(60) - kn = "F2" - CASE CHR$(0) + CHR$(61) - kn = "F3" - CASE CHR$(0) + CHR$(62) - kn = "F4" - CASE CHR$(0) + CHR$(63) - kn = "F5" - CASE CHR$(0) + CHR$(64) - kn = "F6" - CASE CHR$(0) + CHR$(65) - kn = "F7" - CASE CHR$(0) + CHR$(66) - kn = "F8" - CASE ELSE - kn = UCASE$(k$) - -END SELECT -KeyName$ = kn -END FUNCTION - -SUB LoadCfg (file$) -'Loads the Configuration file. - -OPEN file$ FOR INPUT AS #1 -CLS -nextline: -LINE INPUT #1, l$ -IF LCASE$(l$) = "/end" THEN GOTO lastline -s1% = INSTR(l$, " ") -c1$ = LEFT$(l$, s1% - 1) -SELECT CASE LCASE$(c1$) - - CASE "player" - c2$ = MID$(l$, s1% + 1, 1) - c3$ = RIGHT$(l$, LEN(l$) - s1% - 2) - player(VAL(c2$)).nam = c3$ - - CASE "teams" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - player(1).tnum = VAL(MID$(c2$, 1, 1)) - player(2).tnum = VAL(MID$(c2$, 3, 1)) - player(3).tnum = VAL(MID$(c2$, 5, 1)) - player(4).tnum = VAL(MID$(c2$, 7, 1)) - player(5).tnum = VAL(MID$(c2$, 9, 1)) - player(6).tnum = VAL(MID$(c2$, 11, 1)) - player(7).tnum = VAL(MID$(c2$, 13, 1)) - player(8).tnum = VAL(MID$(c2$, 15, 1)) - - CASE "health" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - player(0).health = VAL(c2$) - - CASE "pack.cannon" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 1).ammo = VAL(c2$) - playpack(0, 1).set = 1 - - CASE "pack.grenade" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 2).ammo = VAL(c2$) - playpack(0, 2).set = 2 - - CASE "pack.mine" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 3).ammo = VAL(c2$) - playpack(0, 3).set = 1 - - CASE "pack.gluer" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 4).ammo = VAL(c2$) - playpack(0, 4).set = 1 - - CASE "pack.flamer" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 5).ammo = VAL(c2$) - playpack(0, 5).set = 1 - - CASE "pack.booster" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 6).ammo = VAL(c2$) - playpack(0, 6).set = 1 - - CASE "pack.cluster" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - playpack(0, 7).ammo = VAL(c2$) - playpack(0, 7).set = 3 - - CASE "ammo.drops" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - config.ammodrop = VAL(c2$) - - CASE "sound.volume" - c2$ = RIGHT$(l$, LEN(l$) - s1%) - config.snd = VAL(c2$) - - CASE "sound.back" - c2$ = RIGHT$(l$, 1) - config.sndb = VAL(c2$) - -END SELECT -GOTO nextline: -lastline: -CLOSE #1 -END SUB - -SUB LoadFont (file$) -'Loads the Font file. - -OPEN file$ FOR BINARY AS #1 -IF LOF(1) < 2 THEN - NoFile% = 1 -END IF -IF NoFile% <> 1 THEN GET #1, , fontbuf(0) -CLOSE #1 -IF NoFile% THEN - KILL file$ - CLS - PRINT "The font data file couldn't be found!" - PRINT - PRINT "Would you like to create one? (Y/N)" - INPUT "> ", Choice$ - IF UCASE$(Choice$) = "N" THEN - PRINT "The program cannot run without this file!" - SYSTEM - ELSE - PRINT "Hit a key to make the file." - PRINT "You will hear a beep if it is working." - Pause - - OPEN file$ FOR BINARY AS #1 - COLOR 16 - FOR ascii% = 1 TO 128 - CLS - PRINT CHR$(ascii%) - FOR x = 0 TO 8 - FOR y = 0 TO 8 - pnt$ = CHR$(POINT(x, y)) - PUT #1, , pnt$ - pnt$ = "" - NEXT - NEXT - NEXT - CLOSE #1 - OPEN file$ FOR BINARY AS #1 - GET #1, , fontbuf(0) - CLOSE #1 - END IF -END IF -END SUB - -SUB LoadKey (file$) -'Loads the Key file. - -OPEN file$ FOR RANDOM AS #1 -FOR i% = 1 TO 6 - GET #1, i%, k$ - keycode(i%) = k$ -NEXT i% -keyact(1) = "Walk Left" -keyact(2) = "Walk Right" -keyact(3) = "Aim Up" -keyact(4) = "Aim Down" -keyact(5) = "Fire" -keyact(6) = "Jump" - -keyact(7) = "Set 1" -keycode(7) = "1" -keyact(8) = "Set 2" -keycode(8) = "2" -keyact(9) = "Set 3" -keycode(9) = "3" -keyact(10) = "Quit" -keycode(10) = CHR$(27) -keyact(11) = "Skip Turn" -keycode(11) = CHR$(8) - -keyact(12) = "Cannon" -keycode(12) = CHR$(0) + CHR$(&H3B) -keyact(13) = "Grenade" -keycode(13) = CHR$(0) + CHR$(&H3C) -keyact(14) = "Mine" -keycode(14) = CHR$(0) + CHR$(&H3D) -keyact(15) = "Gluer" -keycode(15) = CHR$(0) + CHR$(&H3E) -keyact(16) = "Flamer" -keycode(16) = CHR$(0) + CHR$(&H3F) -keyact(17) = "Booster" -keycode(17) = CHR$(0) + CHR$(&H40) -keyact(18) = "Cluster" -keycode(18) = CHR$(0) + CHR$(&H41) -CLOSE #1 -END SUB - -SUB LoadLevel (file$) -'Loads a Level file. - -OPEN file$ FOR INPUT AS #1 -LINE INPUT #1, l$ -level.nam = l$ -LINE INPUT #1, l$ -turffile$ = l$ -LINE INPUT #1, l$ -backfile$ = l$ -LINE INPUT #1, l$ -level.grav = VAL(l$) -LINE INPUT #1, l$ -level.sndb = l$ -CLOSE #1 -DEF SEG = &HA000 -BLOAD turffile$, 0 -DEF SEG -GET (0, 0)-(319, 199), turfbuf -DEF SEG = VARSEG(backbuf(0)) -BLOAD "backgrnd\" + backfile$, 0 -DEF SEG -END SUB - -SUB LoadSprites (file$) -'Loads the Sprite file. - -OPEN file$ FOR INPUT AS #1 -nextsprite: -INPUT #1, n% -IF n% = -1 THEN GOTO endsprite -FOR y% = 0 TO 7 - FOR x% = 0 TO 7 - INPUT #1, p% - IF n% = 0 THEN - playerspr(x% + 8 * y%) = p% - ELSEIF n% = 100 THEN - ammospr(0, x% + 8 * y%) = p% - ELSE - ammospr(n%, x% + 8 * y%) = p% - END IF - NEXT x% -NEXT y% -GOTO nextsprite -endsprite: -CLOSE #1 - -RESTORE smallnums -FOR i% = 0 TO 9 - FOR y% = 0 TO 4 - FOR x% = 0 TO 2 - READ p% - smallnum(i%, x% + 3 * y%) = p% - NEXT x% - NEXT y% -NEXT i% -END SUB - -SUB Main -'Main game procedure. - -FOR y% = 0 TO 199 - FOR x% = 0 TO 319 - DEF SEG = VARSEG(turfbuf(0)) - p% = PEEK(x% + 320& * y% + 4) - DEF SEG - IF p% = 241 THEN - DEF SEG = VARSEG(backbuf(0)) - p% = PEEK(x% + 320& * y%) - DEF SEG - END IF - PSET (x%, y%), p% - NEXT x% -NEXT y% - -InitPlayers -FOR i% = 1 TO maxbullets% - bullet(i%).class = 0 -NEXT i% -FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 255 -NEXT c% - -level.turn = 0 -level.wind = RND * 40 - 20 -level.quit = 0 - -newloop: -nextcheck: -level.turn = level.turn + 1 -IF level.turn > maxplayers% THEN - level.turn = 1 - level.wind = RND * 40 - 20 -END IF -IF player(level.turn).health = 0 THEN GOTO nextcheck - -level.fire = 0 -FOR i% = 1 TO maxplayers% - IF player(i%).health > 0 THEN - DrawPlayer i% - END IF -NEXT i% -DrawBar -IF RND < config.ammodrop THEN - x% = RND * 300 + 10 - i% = CINT(RND * (maxweapons% - 1)) + 1 - ii% = RND * 2 + 1 - IF config.snd THEN - WAVPlay "jet.wav", 11000 - DO - LOOP UNTIL DMADone% - END IF - InitBullet -100, x%, 0, 0, ii%, 0, i% -END IF -FOR i% = 1 TO 4 - key$ = INKEY$ -NEXT i% - -startloop: -IF config.snd AND config.sndb THEN - IF DMADone% THEN - WAVPlay level.sndb, 11000 - END IF -END IF - -level.nofly = 1 -PlayerKey -level.tim = TIMER -PlayerFall -BulletMove - -IF level.quit = 1 THEN - EXIT SUB -END IF -IF level.nofly AND (level.fire OR player(level.turn).health = 0) THEN GOTO nextplayer - -GOTO startloop - -nextplayer: -DoneTurn -y% = 0 -FOR i% = 1 TO maxplayers% - team(i%).act = 0 - FOR ii% = 1 TO maxplayers% - IF player(ii%).tnum = i% AND player(ii%).health > 0 THEN - team(i%).act = 1 - y% = i% - END IF - NEXT ii% -NEXT i% -x% = 0 -FOR i% = 1 TO maxplayers% - x% = x% + team(i%).act -NEXT i% -IF x% = 1 THEN - Win y% - EXIT SUB -ELSEIF x% = 0 THEN - Win 0 - EXIT SUB -END IF - -ErasePlayer level.turn -GOTO newloop -END SUB - -SUB MasterVolume (Right%, Left%, GetVol%) -'Sets the volume for the Sound Blaster. - -OUT baseport% + 4, &H22 -IF GetVol% THEN - Left% = INP(baseport% + 5) \ 16 - Right% = INP(baseport% + 5) AND &HF - EXIT SUB -ELSE - OUT baseport% + 5, (Right% + Left% * 16) AND &HFF -END IF -END SUB - -SUB Menu (mnum%) -'Creates a menu. -'The menuitem variables (1 up to 10) are strings which are the menu items. -'menuitem(0) is the menu title. -'When Menu is called, mnum% should be the largest number of menuitem that -'is used for that menu. It will return mnum% as the menu item chosen. - -moff% = 0 -CLS -Font menuitem(0), 160 - (LEN(menuitem(0)) / 2) * 16, 10, 2, 2, 3, menuclr% + 8 -mmax% = mnum% -IF mmax% > 7 THEN mmax% = 7 -FOR i% = 0 TO 5 - LINE (i%, 45 + i%)-(319 - i%, mmax% * 20 + 63 - i%), menuclr% + i%, B -NEXT i% - -i% = 1 -FOR c% = 0 TO 100 - FadePal 0, 0, 0, c%, 0, 31 -NEXT c% -drawmenu: -LINE (6, 51)-(313, mmax% * 20 + 57), 0, BF -FOR ii% = moff% + 1 TO moff% + mmax% - c% = menuclr% - IF ii% = i% THEN c% = menuclr% + 5 - Font menuitem(ii%), 160 - (LEN(menuitem(ii%)) / 2) * 8, (ii% - moff%) * 20 + 40, 1, 1, 1, c% -NEXT ii% -IF moff% > 0 THEN - FOR ii% = 0 TO 5 - LINE (300 - (5 - ii%), 60 - ii%)-(300 + (5 - ii%), 60 - ii%), 18 + ii% * 2 - NEXT ii% -END IF -IF moff% + mmax% < mnum% THEN - FOR ii% = 0 TO 5 - LINE (300 - (5 - ii%), ii% + 190)-(300 + (5 - ii%), ii% + 190), 18 + ii% * 2 - NEXT ii% -END IF -DO - key$ = INKEY$ - SELECT CASE key$ - CASE CHR$(27) - IF config.snd THEN - WAVPlay "menua.wav", 11000 - END IF - i% = -1 - EXIT DO - - CASE CHR$(0) + "H" - i% = i% - 1 - IF i% = 0 THEN i% = mnum% - moff% = i% - 4 - IF moff% + 7 > mnum% THEN moff% = mnum% - 7 - IF moff% < 0 THEN moff% = 0 - IF config.snd THEN - WAVPlay "menub.wav", 11000 - END IF - GOTO drawmenu - - CASE CHR$(0) + "P" - i% = i% + 1 - IF i% = mnum% + 1 THEN i% = 1 - moff% = i% - 4 - IF moff% + 7 > mnum% THEN moff% = mnum% - 7 - IF moff% < 0 THEN moff% = 0 - IF config.snd THEN - WAVPlay "menub.wav", 11000 - END IF - GOTO drawmenu - - CASE CHR$(13) - IF config.snd THEN - WAVPlay "menua.wav", 11000 - END IF - EXIT DO - - END SELECT - IF RND < .00005 THEN - x% = RND * 250 + 60 - y% = RND * 40 - d% = RND * 10 + 10 - IF RND < .1 THEN - s% = 1 - FOR ii% = 1 TO maxsparks% - spark(ii%).r = 0 - spark(ii%).a = ((2 * pi#) / maxsparks%) * ii% - NEXT ii% - ELSE - s% = 0 - END IF - FOR ii% = 1 TO maxbullets% - IF bullet(ii%).class = 0 THEN - bullet(ii%).class = -1 - bullet(ii%).x = x% - bullet(ii%).y = y% - bullet(ii%).a = 0 - bullet(ii%).dir = d% - bullet(ii%).p = 1 - bullet(ii%).set = s% - IF config.snd THEN - IF RND < .5 THEN - WAVPlay "explode.wav", 11000 - ELSE - WAVPlay "blast.wav", 11000 - END IF - END IF - EXIT FOR - END IF - NEXT ii% - END IF - FOR B% = 1 TO maxbullets% - IF bullet(B%).class = -1 THEN - level.nofly = 0 - x% = bullet(B%).x - y% = bullet(B%).y - c% = 220 - (bullet(B%).a / bullet(B%).dir) * 20 - IF bullet(B%).p = -1 THEN c% = 0 - FOR r! = 0 TO pi# * 2 STEP .05 - p% = POINT(x% + COS(r!) * bullet(B%).a + 3, y% + SIN(r!) * bullet(B%).a + 3) - IF p% = 0 OR p% >= 200 THEN - PSET (x% + COS(r!) * bullet(B%).a + 3, y% + SIN(r!) * bullet(B%).a + 3), c% - END IF - NEXT r! - bullet(B%).a = bullet(B%).a + .5 * bullet(B%).p - IF bullet(B%).p = 1 AND bullet(B%).a >= bullet(B%).dir THEN - bullet(B%).p = -1 - END IF - IF bullet(B%).set = 1 THEN - FOR ii% = 1 TO maxsparks% - sx% = bullet(B%).x + 3 + spark(ii%).r * COS(spark(ii%).a) - sy% = bullet(B%).y + 3 + .3 * (spark(ii%).r * SIN(spark(ii%).a)) - p% = POINT(sx%, sy%) - IF p% >= 200 THEN - PSET (sx%, sy%), 0 - END IF - spark(ii%).r = spark(ii%).r + 2 - sx% = bullet(B%).x + 3 + spark(ii%).r * COS(spark(ii%).a) - sy% = bullet(B%).y + 3 + .3 * (spark(ii%).r * SIN(spark(ii%).a)) - c% = 220 - spark(ii%).r / 3 - IF c% < 200 THEN c% = 200 - IF bullet(B%).p = -1 AND bullet(B%).a < 0 THEN c% = 0 - p% = POINT(sx%, sy%) - IF p% = 0 THEN - PSET (sx%, sy%), c% - END IF - NEXT ii% - END IF - IF bullet(B%).p = -1 AND bullet(B%).a < 0 THEN - bullet(B%).class = 0 - END IF - END IF - NEXT B% -LOOP -mnum% = i% -FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 31 -NEXT c% -END SUB - -SUB Pause -'Pauses the game until enter is pressed. - -DO - key$ = INKEY$ -LOOP UNTIL key$ = "" -DO - key$ = INKEY$ -LOOP UNTIL key$ = CHR$(13) -DO - key$ = INKEY$ -LOOP UNTIL key$ = "" -END SUB - -SUB PlayerFall -'Makes a player fall if necessary. - -FOR pn% = 1 TO maxplayers% - IF player(pn%).health > 0 OR player(pn%).dam THEN - t# = (level.tim - player(pn%).tim) * bulletspd% - x% = player(pn%).x - y% = player(pn%).y - IF player(pn%).jump > 0 THEN - level.nofly = 0 - ErasePlayer pn% - player(pn%).x = player(pn%).xi + t# * COS(player(pn%).aj) * player(pn%).pj * player(pn%).dir - player(pn%).y = player(pn%).yi + t# * SIN(player(pn%).aj) * player(pn%).pj + 16 * t# ^ 2 * level.grav - DrawPlayer pn% - IF player(pn%).jump = 2 THEN - c% = 220 - t# * 20 - LINE (player(pn%).x + 1, player(pn%).y + 7)-(player(pn%).x + 6, player(pn%).y + 7), c% - IF t# >= 1 THEN player(pn%).jump = 1 - END IF - END IF - IF player(pn%).x < -7 OR player(pn%).x > 320 OR player(pn%).y > 205 THEN - IF config.snd THEN - WAVPlay "fall.wav", 11000 - END IF - player(pn%).dam = 0 - player(pn%).health = 0 - END IF - - bump$ = TurfBump$(x%, y%, -1) - 'Uncomment this to help you see where the player is colliding with turf - 'IF pn% = level.turn THEN - ' LINE (10, 180)-(14, 180), 18 - ' IF MID$(bump$, 1, 1) = "1" THEN LINE (10, 180)-(14, 180), 15 - ' LINE (16, 180)-(20, 180), 18 - ' IF MID$(bump$, 2, 1) = "1" THEN LINE (16, 180)-(20, 180), 15 - ' LINE (21, 181)-(21, 184), 18 - ' IF MID$(bump$, 3, 1) = "1" THEN LINE (21, 181)-(21, 184), 15 - ' LINE (21, 186)-(21, 189), 18 - ' IF MID$(bump$, 4, 1) = "1" THEN LINE (21, 186)-(21, 189), 15 - ' LINE (16, 190)-(20, 190), 18 - ' IF MID$(bump$, 5, 1) = "1" THEN LINE (16, 190)-(20, 190), 15 - ' LINE (10, 190)-(14, 190), 18 - ' IF MID$(bump$, 6, 1) = "1" THEN LINE (10, 190)-(14, 190), 15 - ' LINE (9, 186)-(9, 189), 18 - ' IF MID$(bump$, 7, 1) = "1" THEN LINE (9, 186)-(9, 189), 15 - ' LINE (9, 181)-(9, 184), 18 - ' IF MID$(bump$, 8, 1) = "1" THEN LINE (9, 181)-(9, 184), 15 - 'END IF - - SELECT CASE bump$ - CASE "00000000" - IF player(pn%).jump = 0 THEN - player(pn%).tim = level.tim - .2 - player(pn%).jump = 1 - player(pn%).xi = x% - player(pn%).yi = y% - player(pn%).pj = 0 - t# = (level.tim - player(pn%).tim) * bulletspd% - END IF - - CASE "11100011", "11000001", "10000000", "00000010", "00000001", "00000011", "10000011", "00000111", "10000111", "11001111", "10001111", "11000111", "10000001", "11001111", "11101111", "11000001", "11000011" - IF player(pn%).jump > 0 AND player(pn%).dir = -1 THEN - xc% = t# * COS(player(pn%).aj) * player(pn%).pj * -player(pn%).dir - player(pn%).xi = x% - xc% - ErasePlayer pn% - player(pn%).dir = 1 - DrawPlayer pn% - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - CASE "11110001", "11100000", "01000000", "00100000", "00010000", "00110000", "01110000", "00111000", "01111000", "11111100", "01111100", "11111000", "01100000", "11111100", "11111110", "11100000", "11110000" - IF player(pn%).jump > 0 AND player(pn%).dir = 1 THEN - xc% = t# * COS(player(pn%).aj) * player(pn%).pj * -player(pn%).dir - player(pn%).xi = x% - xc% - ErasePlayer pn% - player(pn%).dir = -1 - DrawPlayer pn% - IF config.snd THEN - WAVPlay "bounce.wav", 11000 - END IF - END IF - - CASE "11000000", "11100001", "11110011" - ' IF player(pn%).jump > 0 THEN - ' nt# = 2 * p% * SIN(player(pn%).aj) / (2 * (16 * level.grav)) - ' xc% = t# * COS(player(pn%).aj) * player(pn%).pj * player(pn%).dir - ' player(pn%).xi = x% - xc% - ' IF config.snd THEN - ' WAVPlay "bounce.wav", 11000 - ' END IF - ' END IF - - 'CASE "11111111", "01111111", "10111111", "00000100", "00000010", "00000110", "00001110", "00011100", "00011110", "00111111", "00011111", "00111110", "00001111", "10011111", "00011000", "00111100", "01111110", "11011111", "11111110" - CASE ELSE - IF player(pn%).jump > 0 THEN - player(pn%).jump = 0 - IF 16 * t# ^ 2 * level.grav > 140 THEN - Damage pn%, (16 * t# ^ 2 * level.grav - 140) / 2 - IF pn% = level.turn THEN level.fire = 1 - IF config.snd THEN - WAVPlay "crash.wav", 11000 - END IF - ELSEIF 16 * t# ^ 2 * level.grav > 10 THEN - IF config.snd THEN - WAVPlay "land.wav", 11000 - END IF - END IF - END IF - END SELECT - END IF -NEXT pn% -END SUB - -SUB PlayerKey -'Gets the key that was pressed and processes it. - -key$ = INKEY$ -k% = KeyMark%(key$) -SELECT CASE k% - CASE 1 - IF player(level.turn).glued = 0 THEN - IF player(level.turn).jump THEN - IF player(level.turn).dir = 1 THEN - ErasePlayer level.turn - player(level.turn).xi = player(level.turn).xi + 2 * (player(level.turn).x - player(level.turn).xi) - player(level.turn).dir = -1 - DrawPlayer level.turn - END IF - ELSE - FOR y% = 0 TO playerstep% - IF TPoint%(player(level.turn).x - 1, player(level.turn).y + 7 - y%, level.turn) = 241 THEN EXIT FOR - NEXT y% - IF y% <= playerstep% THEN - IF config.snd THEN - IF DMADone% AND config.sndb = 0 THEN - WAVPlay "crawl.wav", 11000 - END IF - END IF - ErasePlayer level.turn - player(level.turn).x = player(level.turn).x - 1 - player(level.turn).y = player(level.turn).y - y% - player(level.turn).dir = -1 - DrawPlayer level.turn - END IF - END IF - END IF - - CASE 2 - IF player(level.turn).glued = 0 THEN - IF player(level.turn).jump THEN - IF player(level.turn).dir = -1 THEN - ErasePlayer level.turn - player(level.turn).xi = player(level.turn).xi + 2 * (player(level.turn).x - player(level.turn).xi) - player(level.turn).dir = 1 - DrawPlayer level.turn - END IF - ELSE - FOR y% = 0 TO playerstep% - IF TPoint%(player(level.turn).x + 8, player(level.turn).y + 7 - y%, level.turn) = 241 THEN EXIT FOR - NEXT y% - IF y% <= playerstep% THEN - IF config.snd THEN - IF DMADone% AND config.sndb = 0 THEN - WAVPlay "crawl.wav", 11000 - END IF - END IF - ErasePlayer level.turn - player(level.turn).x = player(level.turn).x + 1 - player(level.turn).y = player(level.turn).y - y% - player(level.turn).dir = 1 - DrawPlayer level.turn - END IF - END IF - END IF - - CASE 3 - IF config.snd THEN - IF DMADone% AND config.sndb = 0 THEN - WAVPlay "aim.wav", 11000 - END IF - END IF - ErasePlayer level.turn - player(level.turn).a = player(level.turn).a - playeraim! - IF player(level.turn).a < -pi# / 2 THEN player(level.turn).a = -pi# / 2 - DrawPlayer level.turn - - CASE 4 - IF config.snd THEN - IF DMADone% AND config.sndb = 0 THEN - WAVPlay "aim.wav", 11000 - END IF - END IF - ErasePlayer level.turn - player(level.turn).a = player(level.turn).a + playeraim! - IF player(level.turn).a > pi# / 2 THEN player(level.turn).a = pi# / 2 - DrawPlayer level.turn - - CASE 5 - IF level.fire = 0 AND player(level.turn).jump = 0 THEN - IF player(level.turn).bul = 1 THEN - IF playpack(level.turn, 1).ammo >= playpack(level.turn, 1).set THEN - playpack(level.turn, 1).ammo = playpack(level.turn, 1).ammo - playpack(level.turn, 1).set - power% = 0 - IF config.snd THEN - WAVPlay "power.wav", 11000 - END IF - DO - key$ = INKEY$ - IF KeyMark%(key$) = 5 THEN EXIT DO - LINE (220 + power%, 5)-(220 + power%, 6), 200 + power% / 3 - power% = power% + 1 - FOR z& = -32000 TO 32000 - NEXT z& - IF power% = 60 THEN EXIT DO - LOOP - LINE (220, 5)-(280, 6), 0, BF - power% = maxpower% * (power% / 60) - FOR i% = 1 TO playpack(level.turn, 1).set - InitBullet 1, player(level.turn).x, player(level.turn).y, player(level.turn).a - ((1 / playpack(level.turn, 1).set - 1) * .05) + ((i% - 1) * .1), player(level.turn).dir, power%, playpack(level.turn, 1).set - DrawSpr player(level.turn).x, player(level.turn).y, 1 - NEXT i% - IF config.snd THEN - WAVPlay "launch.wav", 11000 - END IF - level.fire = 1 - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - END IF - END IF - - IF player(level.turn).bul = 2 THEN - IF playpack(level.turn, 2).ammo > 0 THEN - playpack(level.turn, 2).ammo = playpack(level.turn, 2).ammo - 1 - power% = 0 - IF config.snd THEN - WAVPlay "power.wav", 11000 - END IF - DO - key$ = INKEY$ - IF KeyMark%(key$) = 5 THEN EXIT DO - LINE (220 + power%, 5)-(220 + power%, 6), 200 + power% / 3 - power% = power% + 1 - FOR z& = -32000 TO 32000 - NEXT z& - IF power% = 60 THEN EXIT DO - LOOP - LINE (220, 5)-(280, 6), 0, BF - power% = maxpower% * (power% / 60) - InitBullet 2, player(level.turn).x, player(level.turn).y, player(level.turn).a, player(level.turn).dir, power%, playpack(level.turn, 2).set * 2500 - DrawSpr player(level.turn).x, player(level.turn).y, 2 - IF config.snd THEN - WAVPlay "launch.wav", 11000 - END IF - level.fire = 1 - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - END IF - END IF - - IF player(level.turn).bul = 3 THEN - IF playpack(level.turn, 3).ammo > 0 THEN - playpack(level.turn, 3).ammo = playpack(level.turn, 3).ammo - 1 - InitBullet 3, player(level.turn).x, player(level.turn).y, 0, 0, 0, playpack(level.turn, 3).set - DrawSpr player(level.turn).x, player(level.turn).y, 3 - IF config.snd THEN - WAVPlay "mine.wav", 11000 - END IF - level.fire = 1 - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - END IF - END IF - - IF player(level.turn).bul = 4 THEN - IF playpack(level.turn, 4).ammo >= playpack(level.turn, 4).set THEN - playpack(level.turn, 4).ammo = playpack(level.turn, 4).ammo - playpack(level.turn, 4).set - power% = 0 - IF config.snd THEN - WAVPlay "power.wav", 11000 - END IF - DO - key$ = INKEY$ - IF KeyMark%(key$) = 5 THEN EXIT DO - LINE (220 + power%, 5)-(220 + power%, 6), 200 + power% / 3 - power% = power% + 1 - FOR z& = -32000 TO 32000 - NEXT z& - IF power% = 60 THEN EXIT DO - LOOP - LINE (220, 5)-(280, 6), 0, BF - power% = maxpower% * (power% / 60) - FOR i% = 1 TO playpack(level.turn, 4).set - InitBullet 4, player(level.turn).x, player(level.turn).y, player(level.turn).a - ((1 / playpack(level.turn, 4).set - 1) * .05) + ((i% - 1) * .1), player(level.turn).dir, power%, playpack(level.turn, 4).set - DrawSpr player(level.turn).x, player(level.turn).y, 4 - NEXT i% - IF config.snd THEN - WAVPlay "launch.wav", 11000 - END IF - level.fire = 1 - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - END IF - END IF - - IF player(level.turn).bul = 5 THEN - IF playpack(level.turn, 5).ammo > 0 THEN - playpack(level.turn, 5).ammo = playpack(level.turn, 5).ammo - 1 - IF config.snd THEN - WAVPlay "flamer.wav", 11000 - END IF - FOR i% = 1 TO 20 - FOR a# = -.5 * (4 - playpack(level.turn, 5).set) TO .5 * (4 - playpack(level.turn, 5).set) STEP .05 - FOR r! = 0 TO 1 STEP .01 * (4 - playpack(level.turn, 5).set) - rr! = r! * 15 * playpack(level.turn, 5).set * (1 - ABS(a# / (.5 * (4 - playpack(level.turn, 5).set)))) - c% = (1 - r! / 1) * 16 + 202 + RND * 4 - 2 - IF i% = 20 THEN c% = 241 - fx% = player(level.turn).x - 1 + 4 * (player(level.turn).dir + 1) + COS(a#) * rr! * player(level.turn).dir - fy% = player(level.turn).y + 4 + SIN(a#) * rr! - TPset fx%, fy%, 241 - IF c% = 241 THEN - c% = BPoint%(fx%, fy%, 0) - END IF - PSET (fx%, fy%), c% - NEXT r! - NEXT a# - NEXT i% - FOR pn% = 1 TO maxplayers% - IF player(pn%).health > 0 AND pn% <> level.turn THEN - IF ABS(player(pn%).y - player(level.turn).y) <= 7 THEN - IF player(level.turn).dir * (player(pn%).x - player(level.turn).x) > 0 AND player(level.turn).dir * (player(pn%).x - player(level.turn).x) <= playpack(level.turn, 5).set * 15 THEN - ph% = 5000 * (1 / (player(level.turn).dir * (player(pn%).x - player(level.turn).x)) ^ 2) - IF ph% > 50 THEN ph% = 50 - Damage pn%, ph% - END IF - END IF - END IF - NEXT pn% - level.fire = 1 - level.nofly = 0 - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - END IF - END IF - - IF player(level.turn).bul = 7 THEN - IF playpack(level.turn, 7).ammo > 0 THEN - playpack(level.turn, 7).ammo = playpack(level.turn, 7).ammo - 1 - power% = 0 - IF config.snd THEN - WAVPlay "power.wav", 11000 - END IF - DO - key$ = INKEY$ - IF KeyMark%(key$) = 5 THEN EXIT DO - LINE (220 + power%, 5)-(220 + power%, 6), 200 + power% / 3 - power% = power% + 1 - FOR z& = -32000 TO 32000 - NEXT z& - IF power% = 60 THEN EXIT DO - LOOP - LINE (220, 5)-(280, 6), 0, BF - power% = maxpower% * (power% / 60) - InitBullet 7, player(level.turn).x, player(level.turn).y, player(level.turn).a, player(level.turn).dir, power%, playpack(level.turn, 7).set - DrawSpr player(level.turn).x, player(level.turn).y, 7 - IF config.snd THEN - WAVPlay "launch.wav", 11000 - END IF - level.fire = 1 - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - END IF - END IF - - DrawBar - END IF - - CASE 6 - IF player(level.turn).glued = 0 THEN - IF player(level.turn).jump > 0 THEN - IF player(level.turn).bul = 6 THEN - IF playpack(level.turn, 6).ammo > 0 THEN - player(level.turn).jump = 2 - playpack(level.turn, 6).ammo = playpack(level.turn, 6).ammo - 1 - IF config.snd THEN - WAVPlay "booster.wav", 11000 - END IF - DrawBar - ELSE - IF config.snd THEN - WAVPlay "buzzer.wav", 11000 - END IF - GOTO nojump - END IF - ELSE - GOTO nojump - END IF - ELSE - player(level.turn).jump = 1 - IF config.snd THEN - WAVPlay "jump.wav", 11000 - END IF - END IF - player(level.turn).xi = player(level.turn).x - player(level.turn).yi = player(level.turn).y - player(level.turn).aj = player(0).aj - player(level.turn).pj = player(0).pj - player(level.turn).tim = TIMER - .1 - t# = (TIMER - player(level.turn).tim) * bulletspd% - ErasePlayer level.turn - player(level.turn).x = player(level.turn).xi + t# * COS(player(level.turn).aj) * player(level.turn).pj * player(level.turn).dir - player(level.turn).y = player(level.turn).yi + t# * SIN(player(level.turn).aj) * player(level.turn).pj + 16 * t# ^ 2 - DrawPlayer level.turn -nojump: - END IF - - CASE 7, 8, 9 - playpack(level.turn, player(level.turn).bul).set = k% - 6 - DrawBar - IF config.snd THEN - WAVPlay "menua.wav", 11000 - END IF - - CASE 10 - level.quit = 1 - - CASE 11 - level.fire = 1 - - CASE 12 TO 11 + maxweapons% - player(level.turn).bul = k% - 11 - DrawBar - IF config.snd THEN - WAVPlay "menub.wav", 11000 - END IF - -END SELECT -END SUB - -SUB SetBlastPal -'Sets the fire palette. - -FOR c% = 200 TO 220 - s% = (210 - c%) / 10 * pal(1).r - IF s% < 0 THEN s% = 0 - rr% = (c% - 200) * 124 / 20 + s% - IF rr% < 0 THEN rr% = 0 - IF rr% > 62 THEN rr% = 62 - gamepal(c%).r = rr% - s% = (210 - c%) / 10 * pal(1).g - IF s% < 0 THEN s% = 0 - gg% = (c% - 200) * 60 / 20 + s% - IF gg% < 0 THEN gg% = 0 - IF gg% > 62 THEN gg% = 62 - gamepal(c%).g = gg% - s% = (210 - c%) / 10 * pal(1).B - IF s% < 0 THEN s% = 0 - bb% = -40 + (c% - 200) * 80 / 20 + s% - IF bb% < 0 THEN bb% = 0 - IF bb% > 62 THEN bb% = 62 - gamepal(c%).B = bb% -NEXT c% -END SUB - -SUB SpeakerState (state%) -'Sets the state of the speakers. (1 = on, 0 = off) - -IF state% THEN - DSPWrite &HD1 -ELSE - DSPWrite &HD3 -END IF -END SUB - -SUB Title -'Displays the title screen. - -DIM s AS STRING * 1 - -OPEN "title.pal" FOR BINARY AS #1 -FOR i% = 0 TO 255 - GET #1, , s - r% = ASC(s) - GET #1, , s - g% = ASC(s) - GET #1, , s - B% = ASC(s) - gamepal(i%).r = r% - gamepal(i%).g = g% - gamepal(i%).B = B% -NEXT i% -CLOSE #1 -PALETTE 0, 0 - -IF config.snd > 0 THEN - WAVPlay "title1.wav", 11000 -END IF -DEF SEG = &HA000 -BLOAD "title.img", 0 -DEF SEG -FOR i% = 0 TO 100 - key$ = INKEY$ - IF key$ = CHR$(13) THEN GOTO donetitle1 - FadePal 0, 0, 0, i%, 0, 255 - FOR z% = -32000 TO 32000 - FOR zz% = 0 TO 3 - NEXT zz% - NEXT z% -NEXT i% -donetitle1: -IF config.snd > 0 THEN - WAVPlay "title2.wav", 11000 -END IF -FOR i% = 0 TO 100 - key$ = INKEY$ - IF key$ = CHR$(13) THEN GOTO donetitle2 - c% = RND * 100 - FadePal 40, 50, 60, c%, 0, 255 -NEXT i% -FadePal 0, 0, 0, 100, 0, 255 -Pause -donetitle2: -END SUB - -FUNCTION TPoint% (tx%, ty%, pn%) -'Returns the pixel on the turf map to see if a collision occured. -'(241 represents a pixel of sky) -'tx% and ty% are the coordinates. -'pn% is the number of player who is being "looked behind" (1-4) or -'0 if it is a bullet sprite and you want to be able to "see" all the players. -'You can also use -1 to not see any players. - -pp% = 241 -IF tx% >= 0 AND tx% <= 319 AND ty% >= 0 AND ty% <= 199 THEN - DEF SEG = VARSEG(turfbuf(0)) - pp% = PEEK(tx% + 320& * ty% + 4) - DEF SEG - FOR i% = 1 TO maxplayers% - IF player(i%).health > 0 AND pn% <> i% AND pn% <> -1 THEN - IF tx% >= player(i%).x AND tx% <= player(i%).x + 7 AND ty% >= player(i%).y AND ty% <= player(i%).y + 7 THEN - pp% = playerspr((player(i%).dir - 1) * -3.5 + player(i%).dir * (tx% - player(i%).x) + 8 * (ty% - player(i%).y)) - IF pp% = -1 THEN - pp% = team(player(i%).tnum).clr - ELSEIF pp% = -10 THEN - IF player(i%).dir = 1 THEN - pp% = 25 - INT((tx% - player(i%).x) / 2) - ELSE - pp% = 25 - INT((7 - (tx% - player(i%).x)) / 2) - END IF - END IF - IF pp% > 0 THEN - IF player(i%).glued > 0 THEN pp% = 92 - ELSE - pp% = 241 - END IF - FOR ii% = 0 TO gunlen% - x% = player(i%).x + 3 + (1 - player(i%).dir) / 2 + COS(player(i%).a) * ii% * player(i%).dir - y% = player(i%).y + 4 + SIN(player(i%).a) * ii% - IF tx% = x% AND ty% = y% THEN pp% = 25 - NEXT ii% - END IF - END IF - NEXT i% -END IF -TPoint% = pp% -END FUNCTION - -SUB TPset (tx%, ty%, tp%) -'PSETs to the turf map. - -IF tx% >= 0 AND tx% <= 319 AND ty% >= 0 AND ty% <= 199 THEN - DEF SEG = VARSEG(turfbuf(0)) - POKE tx% + 320& * ty% + 4, tp% - DEF SEG -END IF -END SUB - -FUNCTION TurfBump$ (tx%, ty%, pn%) -'Checks collision with turf map and bounces the sprite accordingly. -'tx% and ty% are the coordinates of the sprite. -'pn% is the number of player who is being "looked behind" (1-4) or -'0 if it is a bullet sprite and you want to be able to "see" all the players. -'You can also use -1 to not see any players. - -bstr$ = "00000000" -FOR cy% = ty% + 1 TO ty% + 3 - IF TPoint%(tx%, cy%, pn%) <> 241 THEN - MID$(bstr$, 8) = "1" - END IF -NEXT cy% -FOR cy% = ty% + 4 TO ty% + 6 - IF TPoint%(tx%, cy%, pn%) <> 241 THEN - MID$(bstr$, 7) = "1" - END IF -NEXT cy% -FOR cy% = ty% + 1 TO ty% + 3 - IF TPoint%(tx% + 7, cy%, pn%) <> 241 THEN - MID$(bstr$, 3) = "1" - END IF -NEXT cy% -FOR cy% = ty% + 4 TO ty% + 6 - IF TPoint%(tx% + 7, cy%, pn%) <> 241 THEN - MID$(bstr$, 4) = "1" - END IF -NEXT cy% -FOR cx% = tx% TO tx% + 3 - IF TPoint%(cx%, ty%, pn%) <> 241 THEN - MID$(bstr$, 1) = "1" - END IF -NEXT cx% -FOR cx% = tx% + 4 TO tx% + 7 - IF TPoint%(cx%, ty%, pn%) <> 241 THEN - MID$(bstr$, 2) = "1" - END IF -NEXT cx% -FOR cx% = tx% TO tx% + 3 - IF TPoint%(cx%, ty% + 7, pn%) <> 241 THEN - MID$(bstr$, 6) = "1" - END IF -NEXT cx% -FOR cx% = tx% + 4 TO tx% + 7 - IF TPoint%(cx%, ty% + 7, pn%) <> 241 THEN - MID$(bstr$, 5) = "1" - END IF -NEXT cx% - -TurfBump$ = bstr$ -END FUNCTION - -FUNCTION TurfHit% (tb%, tx%, ty%) -'Checks collision with turf map of a sprite. -'tb% is the sprite number. -'tx% and ty% are the coordinates of the sprite. - -hit% = 0 -FOR cx% = tx% TO tx% + 7 - FOR cy% = ty% TO ty% + 7 - cp% = ammospr(tb%, cx% - tx% + 8 * (cy% - ty%)) - IF cp% <> 0 THEN - IF TPoint%(cx%, cy%, level.turn) <> 241 THEN - hit% = 1 - GOTO donehit - END IF - END IF - NEXT cy% -NEXT cx% -donehit: -TurfHit% = hit% -END FUNCTION - -SUB WAVPlay (file$, freq&) -'Plays a WAV file. -'file$ = WAV file in "/sound/" subdirectory -'freq& = frequency to be played at (normal = 11000) - -DIM WavBuffer(1 TO 1) AS STRING * 32767 -OPEN "sound\" + file$ FOR BINARY AS #1 -DO - GET #1, 44, WavBuffer(1) - length& = LOF(1) - 44 - IF length& > 32767 THEN length& = 32767 - DMAPlay VARSEG(WavBuffer(1)), VARPTR(WavBuffer(1)), length&, freq& -LOOP UNTIL EOF(1) -CLOSE #1 -END SUB - -SUB Win (pnum%) -'Displays winning screen. -'pnum% = team number that won. (Can be 0 if everyone died) - -IF pnum% = 0 THEN - l$ = "Nobody wins!" - IF config.snd THEN - WAVPlay "lose.wav", 11000 - END IF - c% = 23 -ELSE - l$ = RTRIM$(team(pnum%).nam) + " wins!" - IF config.snd THEN - WAVPlay "win.wav", 11000 - END IF - c% = team(pnum%).clr -END IF -LINE (30, 90)-(290, 110), c%, B -Font l$, 160 - LEN(l$) * 4, 95, 1, 1, 3, 24 -Pause -FOR c% = 100 TO 0 STEP -1 - FadePal 0, 0, 0, c%, 0, 255 -NEXT c% -END SUB - diff --git a/programs/samples/qb45com/action/assault/assault.cfg b/programs/samples/qb45com/action/assault/assault.cfg deleted file mode 100644 index 68b88a18d..000000000 --- a/programs/samples/qb45com/action/assault/assault.cfg +++ /dev/null @@ -1,22 +0,0 @@ -player 1 Glenn -player 2 Aurelia -player 3 Matt -player 4 Teresa -player 5 Sean -player 6 Lauren -player 7 Rylan -player 8 Rebecca -teams 1 2 3 4 5 6 7 8 -health 100 -pack.cannon 20 -pack.grenade 3 -pack.mine 1 -pack.gluer 2 -pack.flamer 5 -pack.booster 3 -pack.cluster 1 -ammo.drops .2 -sound.volume 13 -sound.back 0 -/end - diff --git a/programs/samples/qb45com/action/assault/assault.fnt b/programs/samples/qb45com/action/assault/assault.fnt deleted file mode 100644 index 9420a78c4..000000000 Binary files a/programs/samples/qb45com/action/assault/assault.fnt and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/assault.key b/programs/samples/qb45com/action/assault/assault.key deleted file mode 100644 index 2132639fe..000000000 Binary files a/programs/samples/qb45com/action/assault/assault.key and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/assault.spr b/programs/samples/qb45com/action/assault/assault.spr deleted file mode 100644 index d080e3b89..000000000 --- a/programs/samples/qb45com/action/assault/assault.spr +++ /dev/null @@ -1,83 +0,0 @@ -0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,-1,0,0,0,0,0 -0,-1,-1,-1,0,0,0,0 --10,-1,-1,-1,-1,-1,-1,-10 -0,-10,-10,-10,-10,-10,-10,0 -100 -139,139,19,26,27,139,136,139 -139,139,19,26,27,112,112,136 -139,139,19,26,27,139,112,139 -26,25,24,26,27,30,30,27 -26,25,24,26,27,26,26,26 -19,19,19,26,27,19,19,19 -139,139,19,26,27,139,139,139 -19,19,21191,23,24,19,19,19 -1 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,25,24,0,0,0 -0,0,0,24,23,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -2 -0,0,0,0,0,0,0,0 -0,0,0,23,25,0,0,0 -0,0,194,144,25,144,0,0 -0,0,144,194,144,194,0,0 -0,0,194,144,194,144,0,0 -0,0,0,144,144,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -3 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,26,24,0,0,0 -0,0,27,25,24,23,0,0 -4 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,92,92,0,0,0 -0,0,92,92,92,164,0,0 -0,0,92,92,164,164,0,0 -0,0,0,164,164,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -5 -0,0,0,0,0,0,0,0 -0,0,0,25,23,22,0,0 -0,0,40,40,112,0,0,0 -0,0,25,40,112,0,0,0 -0,0,40,40,112,0,0,0 -0,0,40,40,112,0,0,0 -0,0,112,112,112,0,0,0 -0,0,0,112,0,0,0,0 -6 -0,0,0,0,0,0,0,0 -0,32,104,0,120,196,0,0 -0,25,104,0,25,196,0,0 -0,32,104,0,120,196,0,0 -0,32,104,0,120,196,0,0 -0,32,25,0,20,196,0,0 -0,0,25,23,20,0,0,0 -0,25,24,23,21,20,0,0 -7 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,27,26,0,0,0 -0,0,27,26,25,24,0,0 -0,0,26,25,24,23,0,0 -0,0,0,24,23,0,0,0 -0,0,0,0,0,0,0,0 -0,0,0,0,0,0,0,0 --1 - diff --git a/programs/samples/qb45com/action/assault/assault.txt b/programs/samples/qb45com/action/assault/assault.txt deleted file mode 100644 index 011a920ee..000000000 --- a/programs/samples/qb45com/action/assault/assault.txt +++ /dev/null @@ -1,96 +0,0 @@ -Assault v2 -By Glenn Powell -Readme Text - -Files needed: - - ASSAULT.TXT - This file - ASSAULT.BAS - Program File - ASSAULT.CFG - Configuration file - ASSAULT.SPR - Sprite file - ASSAULT.KEY - Key file (Do Not Edit) - ASSAULT.FNT - Font file (Do Not Edit) - *******.BCK - Background files for environments (should be in BACKGRND folder) - *******.SPR - Sprite files for environments (should be in BACKGRND folder) - *******.WAV - Wave files for high-quality sounds (should be in SOUND folder) - - -Installation: - -Just put these files in your qbasic programs folder. Make sure the WAV and BCK files are in their appropriate folders -within the root directory. You must then edit the program file to change the line: - - CHDIR "c:\glenn\qb45\assault" - -to whatever directory you put the program in. -Then run it and enjoy. - - -Game Play: - -This is a game of weapons and destruction that relies upon the properties of physics as well as your skill. -There can be up to 4 players on up to 4 teams playing at one time. Each player controls a tank that is equiped with -various weapons. You can set the amount of ammo for each of these devices in the Configuration. You can also use -the Configuration to set the amount of health you start with, player names, teams, control keys, and other options. - -At the top of the screen is the current player's info bar. At the left side is the player's name. To the right, is -that player's health meter. Right of the meter is a long rectangle with an arrow underneith it. The rectangle is the -player's fire power meter. The arrow is the current wind factor (Wind affects projectiles, but not players jumping). -At the far right is a picture of the player's current weapon selection. To the left of this image is the amount of ammo -for the selected weapon. Under the weapon's image is the current setting number for that weapon. - -You move your tank with the Left and Right keys. You can adjust you gun's aim with the Up and Down keys. To select -a weapon you can press F1 through F7. Once you select a weapon you can adjust the setting on it -by pressing 1, 2, or 3. Here is a chart showing each weapon and what the setting is used for: - -+-----+-----------------+-----------------------------+-----------------------------+ -| Key | Weapon | Description | Setting | -+-----+-----------------+-----------------------------+-----------------------------+ -| F1 | Cannon | Basic cannon | # of bullets per fire * | -+-----+-----------------+-----------------------------+-----------------------------+ -| F2 | Grenade | Grennade that bounces | # of sec's before detonation| -+-----+-----------------+-----------------------------+-----------------------------+ -| F3 | Mine | Trip mine | Distance to be tripped ** | -+-----+-----------------+-----------------------------+-----------------------------+ -| F4 | Digger | Strange digging bullet | Nothing | <- I want to get rid of these. -+-----+-----------------+-----------------------------+-----------------------------+ They don't usually work. -| F5 | Flame Thrower | Frys anything in it's way | Length of flame | -+-----+-----------------+-----------------------------+-----------------------------+ -| F6 | Booster Jump | You can jump in the air | Nothing (Maybe later) | -+-----+-----------------+-----------------------------+-----------------------------+ -| F7 | Cluster Bomb | Explodes into bullets | # of bullets * | -+-----+-----------------+-----------------------------+-----------------------------+ - - * The explosions from these weapons are larger if the setting # is smaller - ** The benefit from a smaller trip radius is it will inflict more damage because it's closer to the player - -The Fire key launches each weapon except the Booster jump. To jump use the Jump key and then hit it again while -you are in the air to get another boost (You must have the Booster Jump readied, so hit F6). - -For the projectile weapons (Cannon, grenade, digger, and cluster), you hit the Fire key once and then a meter in the info -bar will immediately start to go up. Hit Fire again to launch the projectile with the force of the meter (If you let the -meter go all the way up, it will automatically fire with full force). - -There are various environments to fight in. You can also make your own for levels to fight in. If you -can't figure out how to do this, e-mail me (powell98@pacbell.net) for instructions. I have included an example level -called "HILL", so check it out (Only edit the HILL.LVL file, the "HILL.TRF" is a BSAVE image). -You can also e-mail me for any questions, comments, or just to chat. I can help you to make changes such as new weapons -which are actually really easy to implement. - - -If the game uses too much memory, I have another low-grade version that uses a lot less. There are no background images, -or high-quality sounds, but it is still fun. E-mail me for more info. - - -Known Tweaks: - -(Sorry my code isn't commented, but I will comment it soon) - -- The grenades and player jumping work decently, but it would be nice if they worked better. - -- The digger needs a lot of work, but if you can figure this one out on your own, you are a god! E-mail me for some -tips and ideas. - -- E-mail me any other bugs that you find. - -Thanks, have fun! \ No newline at end of file diff --git a/programs/samples/qb45com/action/assault/backgrnd/arctic.bck b/programs/samples/qb45com/action/assault/backgrnd/arctic.bck deleted file mode 100644 index 273930d75..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/arctic.bck and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/arctic.spr b/programs/samples/qb45com/action/assault/backgrnd/arctic.spr deleted file mode 100644 index 6334cd471..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/arctic.spr and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/jungle.bck b/programs/samples/qb45com/action/assault/backgrnd/jungle.bck deleted file mode 100644 index 798e51c58..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/jungle.bck and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/jungle.spr b/programs/samples/qb45com/action/assault/backgrnd/jungle.spr deleted file mode 100644 index d75b23ce4..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/jungle.spr and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/moon.bck b/programs/samples/qb45com/action/assault/backgrnd/moon.bck deleted file mode 100644 index 4b6f36668..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/moon.bck and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/moon.spr b/programs/samples/qb45com/action/assault/backgrnd/moon.spr deleted file mode 100644 index 4cf6b50fa..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/moon.spr and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/plains.bck b/programs/samples/qb45com/action/assault/backgrnd/plains.bck deleted file mode 100644 index ba9ee40ec..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/plains.bck and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/plains.spr b/programs/samples/qb45com/action/assault/backgrnd/plains.spr deleted file mode 100644 index 845cc6ab9..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/plains.spr and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/volcano.bck b/programs/samples/qb45com/action/assault/backgrnd/volcano.bck deleted file mode 100644 index 5daec3357..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/volcano.bck and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/backgrnd/volcano.spr b/programs/samples/qb45com/action/assault/backgrnd/volcano.spr deleted file mode 100644 index 256b04071..000000000 Binary files a/programs/samples/qb45com/action/assault/backgrnd/volcano.spr and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/hill.lvl b/programs/samples/qb45com/action/assault/hill.lvl deleted file mode 100644 index ec204fcd7..000000000 --- a/programs/samples/qb45com/action/assault/hill.lvl +++ /dev/null @@ -1,6 +0,0 @@ -The hill -hill.trf -plains.bck -1 -plains.wav - diff --git a/programs/samples/qb45com/action/assault/hill.trf b/programs/samples/qb45com/action/assault/hill.trf deleted file mode 100644 index 4ce87394d..000000000 Binary files a/programs/samples/qb45com/action/assault/hill.trf and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/aim.wav b/programs/samples/qb45com/action/assault/sound/aim.wav deleted file mode 100644 index 6ad80f36b..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/aim.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/arctic.wav b/programs/samples/qb45com/action/assault/sound/arctic.wav deleted file mode 100644 index c69b0415c..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/arctic.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/blast.wav b/programs/samples/qb45com/action/assault/sound/blast.wav deleted file mode 100644 index c765859f4..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/blast.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/booster.wav b/programs/samples/qb45com/action/assault/sound/booster.wav deleted file mode 100644 index 55e0d9fbb..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/booster.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/bounce.wav b/programs/samples/qb45com/action/assault/sound/bounce.wav deleted file mode 100644 index afc166f0d..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/bounce.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/buzzer.wav b/programs/samples/qb45com/action/assault/sound/buzzer.wav deleted file mode 100644 index daf042245..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/buzzer.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/crash.wav b/programs/samples/qb45com/action/assault/sound/crash.wav deleted file mode 100644 index be1fe3b4a..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/crash.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/crawl.wav b/programs/samples/qb45com/action/assault/sound/crawl.wav deleted file mode 100644 index f231d3b1a..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/crawl.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/death.wav b/programs/samples/qb45com/action/assault/sound/death.wav deleted file mode 100644 index 05ab0e821..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/death.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/digger.wav b/programs/samples/qb45com/action/assault/sound/digger.wav deleted file mode 100644 index e1cb55938..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/digger.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/explode.wav b/programs/samples/qb45com/action/assault/sound/explode.wav deleted file mode 100644 index 5afac5a3c..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/explode.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/fall.wav b/programs/samples/qb45com/action/assault/sound/fall.wav deleted file mode 100644 index c783d2ad3..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/fall.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/flamer.wav b/programs/samples/qb45com/action/assault/sound/flamer.wav deleted file mode 100644 index 91966f37d..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/flamer.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/glue.wav b/programs/samples/qb45com/action/assault/sound/glue.wav deleted file mode 100644 index 40e7cc32a..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/glue.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/jet.wav b/programs/samples/qb45com/action/assault/sound/jet.wav deleted file mode 100644 index 296ef9106..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/jet.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/jump.wav b/programs/samples/qb45com/action/assault/sound/jump.wav deleted file mode 100644 index 501606c6b..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/jump.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/jungle.wav b/programs/samples/qb45com/action/assault/sound/jungle.wav deleted file mode 100644 index 1e49e4a38..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/jungle.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/land.wav b/programs/samples/qb45com/action/assault/sound/land.wav deleted file mode 100644 index 5cdafecea..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/land.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/launch.wav b/programs/samples/qb45com/action/assault/sound/launch.wav deleted file mode 100644 index 0292b404f..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/launch.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/lose.wav b/programs/samples/qb45com/action/assault/sound/lose.wav deleted file mode 100644 index e88cd446f..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/lose.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/menua.wav b/programs/samples/qb45com/action/assault/sound/menua.wav deleted file mode 100644 index 27def53e9..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/menua.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/menub.wav b/programs/samples/qb45com/action/assault/sound/menub.wav deleted file mode 100644 index b5316d5bc..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/menub.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/mine.wav b/programs/samples/qb45com/action/assault/sound/mine.wav deleted file mode 100644 index 12c36a5ca..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/mine.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/moon.wav b/programs/samples/qb45com/action/assault/sound/moon.wav deleted file mode 100644 index d6ecc0d44..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/moon.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/plains.wav b/programs/samples/qb45com/action/assault/sound/plains.wav deleted file mode 100644 index 80f576cd9..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/plains.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/power.wav b/programs/samples/qb45com/action/assault/sound/power.wav deleted file mode 100644 index c87535840..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/power.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/title1.wav b/programs/samples/qb45com/action/assault/sound/title1.wav deleted file mode 100644 index 73b5ab164..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/title1.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/title2.wav b/programs/samples/qb45com/action/assault/sound/title2.wav deleted file mode 100644 index 9744f0f0b..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/title2.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/volcano.wav b/programs/samples/qb45com/action/assault/sound/volcano.wav deleted file mode 100644 index f252c5d10..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/volcano.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/sound/win.wav b/programs/samples/qb45com/action/assault/sound/win.wav deleted file mode 100644 index c5752dcc3..000000000 Binary files a/programs/samples/qb45com/action/assault/sound/win.wav and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/title.img b/programs/samples/qb45com/action/assault/title.img deleted file mode 100644 index e3b84b0bf..000000000 Binary files a/programs/samples/qb45com/action/assault/title.img and /dev/null differ diff --git a/programs/samples/qb45com/action/assault/title.pal b/programs/samples/qb45com/action/assault/title.pal deleted file mode 100644 index 12f9de343..000000000 --- a/programs/samples/qb45com/action/assault/title.pal +++ /dev/null @@ -1,48 +0,0 @@ - -   -   -)!.%  -    6#  - 42.*(%     -)  "  - 7+ - -2- /+# '    -  -  / + ) % *& !  - 7- ' # , - . / ) ! % )   - - -    - # '   ! - -  -   - 2 ' + -% ) -  % -! # - -       -     7 ) # ! $ ' -# "  -     -  -  2 -' / -& * , -( ' & ( -"  !  # - ! -  - -  -  / ) - + $ ' & " ' -#  -% - -  -  -   , + -# '  -      "         -   \ No newline at end of file diff --git a/programs/samples/qb45com/action/astrowars.bas b/programs/samples/qb45com/action/astrowars.bas deleted file mode 100644 index 2854f27a6..000000000 --- a/programs/samples/qb45com/action/astrowars.bas +++ /dev/null @@ -1,2504 +0,0 @@ -DECLARE SUB player.three.win () -DECLARE SUB draw.ship.three () -DECLARE SUB flare.three () -DECLARE SUB flare () -DECLARE SUB t.flare () -DECLARE SUB gravity () -DECLARE SUB player.one.win () -DECLARE SUB Player.two.win () -DECLARE SUB flash () -DECLARE SUB menu () -DECLARE SUB check.side () -DECLARE SUB back.ground () -DECLARE SUB draw.ship () -DECLARE SUB draw.enemy () -DECLARE SUB check.bullet () -DECLARE SUB score () -DECLARE SUB draw.bullet () -DECLARE SUB check.press () -DECLARE SUB errcode () - - -DIM SHARED lastpress(3) AS INTEGER -DIM SHARED shoot(10) AS INTEGER -DIM SHARED bulletx(10) AS INTEGER -DIM SHARED bullety(10) AS INTEGER -DIM SHARED gagne(3) AS INTEGER -DIM SHARED shots(3) AS INTEGER -DIM SHARED miss(3) AS INTEGER -DIM SHARED angle(3) AS INTEGER -DIM SHARED ammo(3) AS INTEGER - -COMMON SHARED x, y, xx, yy, delaynumber, movenumber, shootnumber, gc, bc -COMMON SHARED dir, xa, ya, grav, gravint, fc, bcc, xxa, yya - -ON ERROR GOTO errcode - -0 -dir = 1 -xa = 1 -ya = 1 -shoot(1) = 0 -shoot(2) = 0 -shoot(3) = 0 -bulletx(1) = x -bulletx(2) = xx -bullety(1) = y -bullety(2) = yy -gagne(1) = 0 -gagne(2) = 0 -gane(3) = 0 -miss(1) = 0 -miss(2) = 0 -miss(3) = 0 -angle(1) = 1 -angle(2) = 1 -angle(3) = 1 -lastpress(1) = 8 -lastpress(2) = 2 -lastpress(3) = 2 -ammo(1) = 1 -ammo(2) = 1 -ammo(3) = 1 -shootnumber = 4 -delaynumber = 10000 -movenumber = 15 -shots(1) = 15 -shots(2) = 15 -shots(3) = 15 -x = 150 -y = 190 -xx = 150 -yy = 20 -xxa = 50 -yya = 80 -gc = 3 -bc = 2 -bcc = 43 -gravint = 35 -fc = 41 - - - -SCREEN 13 -VIEW (1, 1)-(319, 199), 0 -RANDOMIZE TIMER - -DO -FOR delay = 1 TO delaynumber: NEXT delay -draw.ship -draw.enemy -draw.ship.three -check.bullet -draw.bullet -score -check.press -back.ground - -raa = INT(RND * 10) + 1 -IF raa = 3 THEN -flash -END IF - -gravity -check.side -LOOP - -errcode: -RESUME 0 - -SUB back.ground - -LINE (100, 150)-(200, 160), 17, BF - -LINE (100, 40)-(200, 50), 17, BF - -LINE (20, 95)-(70, 105), 17, BF - -LINE (230, 95)-(280, 105), 17, BF - -END SUB - -SUB check.bullet - -IF shoot(1) = 1 THEN - -IF bullety(1) < yy + 11 AND bullety(1) > yy - 11 AND bulletx(1) < xx + 4 AND bulletx(1) > xx - 4 THEN -'PRINT "boom" -'SLEEP 1 -'CLS 2 -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y - -IF ammo(1) = 1 THEN -gagne(1) = gagne(1) + 1 -END IF - -IF ammo(1) = 2 THEN -gagne(1) = gagne(1) + 2 -END IF - -shots(2) = 15 -END IF - -IF bullety(1) < yya + 6 AND bullety(1) > yya - 6 AND bulletx(1) < xxa + 4 AND bulletx(1) > xxa - 4 THEN -'PRINT "boom" -'SLEEP 1 -'CLS 2 -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y - -IF ammo(1) = 1 THEN -gagne(1) = gagne(1) + 1 -END IF - -IF ammo(1) = 2 THEN -gagne(1) = gagne(1) + 2 -END IF - -shots(3) = 15 -END IF - -END IF - - -IF shoot(2) = 1 THEN - -IF bullety(2) < y + 11 AND bullety(2) > y - 11 AND bulletx(2) < x + 4 AND bulletx(2) > x - 4 THEN - -'PRINT "boom" -'SLEEP 1 -'CLS 2 -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy - -IF ammo(2) = 1 THEN -gagne(2) = gagne(2) + 1 -END IF - -IF ammo(2) = 2 THEN -gagne(2) = gagne(2) + 2 -END IF - -shots(1) = 15 -END IF - -'IF shoot(2) = 1 THEN -IF bullety(2) < yya + 6 AND bullety(2) > yya - 6 AND bulletx(2) < xxa + 4 AND bulletx(2) > xxa - 4 THEN - -'PRINT "boom" -'SLEEP 1 -'CLS 2 -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy - -IF ammo(2) = 1 THEN -gagne(2) = gagne(2) + 1 -END IF - -IF ammo(2) = 2 THEN -gagne(2) = gagne(2) + 2 -END IF - -shots(3) = 15 -END IF - -END IF - - -IF shoot(3) = 1 THEN - -IF bullety(3) < yy + 11 AND bullety(3) > yy - 11 AND bulletx(3) < xx + 4 AND bulletx(3) > xx - 4 THEN -'PRINT "boom" -'SLEEP 1 -'CLS 2 -shoot(3) = 0 -bulletx(3) = xxa -bullety(3) = yya - -IF ammo(3) = 1 THEN -gagne(3) = gagne(3) + 1 -END IF - -IF ammo(3) = 2 THEN -gagne(3) = gagne(3) + 2 -END IF - -shots(2) = 15 -END IF - -IF bullety(3) < y + 11 AND bullety(3) > y - 11 AND bulletx(3) < x + 4 AND bulletx(3) > x - 4 THEN -'PRINT "boom" -'SLEEP 1 -'CLS 2 -shoot(3) = 0 -bulletx(3) = xxa -bullety(3) = yya - -IF ammo(3) = 1 THEN -gagne(3) = gagne(3) + 1 -END IF - -IF ammo(3) = 2 THEN -gagne(3) = gagne(3) + 2 -END IF - -shots(1) = 15 -END IF - -END IF - - - - - -IF bulletx(1) < 200 AND bulletx(1) > 100 AND bullety(1) < 163 AND bullety(1) > 147 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 200 AND bulletx(2) > 100 AND bullety(2) < 163 AND bullety(2) > 147 THEN -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy -END IF - -IF bulletx(1) < 200 AND bulletx(1) > 100 AND bullety(1) < 50 AND bullety(1) > 43 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 200 AND bulletx(2) > 100 AND bullety(2) < 50 AND bullety(2) > 37 THEN -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy -END IF - -IF bulletx(1) < 73 AND bulletx(1) > 17 AND bullety(1) < 108 AND bullety(1) > 92 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 73 AND bulletx(2) > 17 AND bullety(2) < 108 AND bullety(2) > 92 THEN -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy -END IF - -IF bulletx(1) < 283 AND bulletx(1) > 227 AND bullety(1) < 108 AND bullety(1) > 92 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 283 AND bulletx(2) > 227 AND bullety(2) < 108 AND bullety(2) > 92 THEN -shoot(2) = 0 -bulletx(2) = x -bullety(2) = y -END IF - - - -IF bulletx(3) < 200 AND bulletx(3) > 100 AND bullety(3) < 163 AND bullety(3) > 147 THEN -shoot(3) = 0 -bulletx(3) = xxa -bullety(3) = yya -END IF - - -IF bulletx(3) < 200 AND bulletx(3) > 100 AND bullety(3) < 50 AND bullety(3) > 37 THEN -shoot(3) = 0 -bulletx(3) = xxa -bullety(3) = yya -END IF - - -IF bulletx(3) < 73 AND bulletx(3) > 17 AND bullety(3) < 108 AND bullety(3) > 92 THEN -shoot(3) = 0 -bulletx(3) = xxa -bullety(3) = yya -END IF - - -IF bulletx(3) < 283 AND bulletx(3) > 227 AND bullety(3) < 108 AND bullety(3) > 92 THEN -shoot(3) = 0 -bulletx(3) = xxa -bullety(3) = yya -END IF - - - -'LINE (230, 95)-(280, 105), 17, BF -END SUB - -SUB check.press - -press$ = INKEY$ - -'IF press$ = "6" THEN -'LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF -'x = x + movenumber -'END IF - -'IF press$ = "4" THEN -'LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF -'x = x - movenumber -'END IF - - -IF press$ = "2" THEN -GOTO endersuber -LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF - -IF angle(1) = 1 THEN -y = y + movenumber -END IF - -IF angle(1) = 2 THEN -x = x + movenumber -END IF - -IF angle(1) = 3 THEN -y = y - movenumber -END IF - -IF angle(1) = 4 THEN -x = x - movenumber -END IF - -END IF - -IF press$ = "5" OR press$ = CHR$(0) + CHR$(80) THEN -IF shots(1) > 0 THEN -shoot(1) = 1 -bullety(1) = y -bulletx(1) = x - -IF ammo(1) = 1 THEN -shots(1) = shots(1) - 1 -END IF - -IF ammo(1) = 2 THEN -shots(1) = shots(1) - 2 -END IF - -miss(1) = miss(1) + 1 -'flare -END IF -'lastpress(1) = 5 -END IF - -IF press$ = "8" OR press$ = CHR$(0) + CHR$(72) THEN -lastpress(1) = 8 -LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF - -IF angle(1) = 1 THEN -lastpress(1) = 2 -y = y - movenumber -END IF - -IF angle(1) = 2 THEN -lastpress(1) = 1 -x = x - movenumber -y = y - movenumber -END IF - -IF angle(1) = 3 THEN -lastpress(1) = 4 -x = x - movenumber -END IF - -IF angle(1) = 4 THEN -lastpress(1) = 7 -x = x - movenumber -y = y + movenumber -END IF - -IF angle(1) = 5 THEN -lastpress(1) = 8 -y = y + movenumber -END IF - -IF angle(1) = 6 THEN -lastpress(1) = 9 -x = x + movenumber -y = y + movenumber -END IF - -IF angle(1) = 7 THEN -lastpress(1) = 6 -x = x + movenumber -END IF - -IF angle(1) = 8 THEN -lastpress(1) = 3 -x = x + movenumber -y = y - movenumber -END IF - -flare -END IF - - - -IF press$ = "0" THEN - -IF ammo(1) = 1 THEN -ammo(1) = 2 -z = 1 -END IF - -IF z <> 1 THEN -IF ammo(1) = 2 THEN -ammo(1) = 1 -END IF -END IF - -END IF -z = 0 - - -IF press$ = "C" OR press$ = "c" THEN - -IF ammo(2) = 1 THEN -ammo(2) = 2 -zz = 1 -END IF - -IF zz <> 1 THEN -IF ammo(2) = 2 THEN -ammo(2) = 1 -END IF -END IF - -END IF -zz = 0 - -skip: -IF press$ = "4" OR press$ = CHR$(0) + CHR$(75) THEN -'lastpress(1) = 4 -LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF -angle(1) = angle(1) + 1 -IF angle(1) > 8 THEN angle(1) = 1 -END IF - -IF press$ = "6" OR press$ = CHR$(0) + CHR$(77) THEN -'lastpress(1) = 6 -LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF -angle(1) = angle(1) - 1 -IF angle(1) < 1 THEN angle(1) = 8 -END IF - -IF press$ = CHR$(27) THEN END - -'FOR delay = 1 TO delaynumber: NEXT delay - -'press$ = INKEY$ -' -' -' -' green ship -' ' -' -IF press$ = "a" OR press$ = "A" THEN -LINE (xx - 12, yy + 15)-(xx + 12, yy - 12), 0, BF -angle(2) = angle(2) - 1 -IF angle(2) < 1 THEN angle(2) = 8 -'xx = xx + movenumber -END IF - -IF press$ = "d" OR press$ = "D" THEN -LINE (xx - 12, yy + 15)-(xx + 12, yy - 12), 0, BF -'xx = xx - movenumber -angle(2) = angle(2) + 1 -IF angle(2) < 1 THEN angle(2) = 8 -IF angle(2) > 8 THEN angle(2) = 1 -END IF - -'IF press$ = "w" OR press$ = "W" THEN -'LINE (xx - 10, yy + 15)-(xx + 10, yy - 10), 0, BF -'yy = yy + movenumber -'shoot(2) = 1 -'bullety(2) = yy -'bulletx(2) = xx -'END IF - -IF press$ = "w" OR press$ = "W" THEN -LINE (xx - 15, yy - 15)-(xx + 15, yy + 15), 0, BF - -IF angle(2) = 1 THEN -lastpress(2) = 2 -yy = yy + movenumber -END IF - -IF angle(2) = 8 THEN -lastpress(2) = 3 -xx = xx + movenumber -yy = yy + movenumber -END IF - - -IF angle(2) = 3 THEN -lastpress(2) = 4 -xx = xx - movenumber -END IF - -IF angle(2) = 4 THEN -lastpress(2) = 7 -xx = xx - movenumber -yy = yy - movenumber -END IF - -IF angle(2) = 6 THEN -lastpress(2) = 9 -xx = xx + movenumber -yy = yy - movenumber -END IF - -IF angle(2) = 5 THEN -lastpress(2) = 9 -yy = yy - movenumber -END IF - -IF angle(2) = 7 THEN -lastpress(2) = 6 -xx = xx + movenumber -END IF - -IF angle(2) = 2 THEN -lastpress(2) = 1 -xx = xx - movenumber -yy = yy + movenumber -END IF - -t.flare -END IF - -'GOTO endersuber -IF press$ = "x" OR press$ = "X" THEN -GOTO endersuber -LINE (xx - 10, yy + 15)-(xx + 10, yy - 10), 0, BF - -IF angle(2) = 1 THEN -yy = yy - movenumber -END IF - -IF angle(2) = 2 THEN -xx = xx + movenumber -END IF - -IF angle(2) = 3 THEN -yy = yy + movenumber -END IF - -IF angle(2) = 4 THEN -xx = xx - movenumber -END IF - -END IF - -IF press$ = "s" OR press$ = "S" THEN -IF shots(2) > 0 THEN -shoot(2) = 1 -bullety(2) = yy -bulletx(2) = xx -miss(2) = miss(2) + 1 - -IF ammo(2) = 1 THEN -shots(2) = shots(2) - 1 -END IF - -IF ammo(2) = 2 THEN -shots(2) = shots(2) - 2 -END IF - -END IF -END IF - -'END IF - -'IF press$ = "0" THEN - -'IF ammo(1) = 1 THEN -'ammo(1) = 2 -'END IF - -'END IF - - - -IF press$ = CHR$(13) THEN menu - -IF press$ = CHR$(27) THEN END - -FOR delay = 1 TO delaynumber: NEXT delay - - - - -IF press$ = "g" OR press$ = "G" THEN -LINE (xxa - 12, yya + 15)-(xxa + 12, yya - 12), 0, BF -angle(3) = angle(3) - 1 -IF angle(3) < 1 THEN angle(3) = 8 -'xx = xx + movenumber -END IF - -IF press$ = "j" OR press$ = "J" THEN -LINE (xxa - 12, yya + 15)-(xxa + 12, yya - 12), 0, BF -'xx = xx - movenumber -angle(3) = angle(3) + 1 -IF angle(3) < 1 THEN angle(3) = 8 -IF angle(3) > 8 THEN angle(3) = 1 -END IF - -'IF press$ = "w" OR press$ = "W" THEN -'LINE (xx - 10, yy + 15)-(xx + 10, yy - 10), 0, BF -'yy = yy + movenumber -'shoot(2) = 1 -'bullety(2) = yy -'bulletx(2) = xx -'END IF - -IF press$ = "y" OR press$ = "Y" THEN -LINE (xxa - 15, yya - 15)-(xxa + 15, yya + 15), 0, BF - -IF angle(3) = 1 THEN -lastpress(3) = 2 -yya = yya + movenumber -END IF - -IF angle(3) = 8 THEN -lastpress(3) = 3 -xxa = xxa + movenumber -yya = yya + movenumber -END IF - - -IF angle(3) = 3 THEN -lastpress(3) = 4 -xxa = xxa - movenumber -END IF - -IF angle(3) = 4 THEN -lastpress(3) = 7 -xxa = xxa - movenumber -yya = yya - movenumber -END IF - -IF angle(3) = 6 THEN -lastpress(3) = 8 -xxa = xxa + movenumber -yya = yya - movenumber -END IF - -IF angle(3) = 5 THEN -lastpress(3) = 9 -yya = yya - movenumber -END IF - -IF angle(3) = 7 THEN -lastpress(3) = 6 -xxa = xxa + movenumber -END IF - -IF angle(3) = 2 THEN -lastpress(3) = 1 -xxa = xxa - movenumber -yya = yya + movenumber -END IF - -flare.three -END IF - -'END IF - -IF press$ = "h" OR press$ = "H" THEN -IF shots(3) > 0 THEN -shoot(3) = 1 -bullety(3) = yya -bulletx(3) = xxa -miss(3) = miss(3) + 1 - -IF ammo(3) = 1 THEN -shots(3) = shots(3) - 1 -END IF - -IF ammo(3) = 2 THEN -shots(3) = shots(3) - 2 -END IF - -END IF -END IF - -'END IF - -'IF press$ = "0" THEN - -'IF ammo(1) = 1 THEN -'ammo(1) = 2 -'END IF - -'END IF - -IF press$ = "M" OR press$ = "m" THEN - -IF ammo(3) = 1 THEN -ammo(3) = 2 -zzz = 1 -END IF - -IF zzz <> 1 THEN -IF ammo(3) = 2 THEN -ammo(3) = 1 -END IF -END IF - -END IF -zzz = 0 - - - -IF press$ = CHR$(13) THEN menu - -IF press$ = CHR$(27) THEN END - -FOR delay = 1 TO delaynumber: NEXT delay - - - - - -endersuber: -END SUB - -SUB check.ship -LINE (1, 1)-(5, 3), 0, BF - -IF x < 205 AND x > 95 AND y < 161 AND y > 145 THEN -'shoot(1) = 0 -'bulletx(1) = x -'bullety(1) = y -'gagne(2) = gagne(2) + 1 -'PRINT "boom" -x = 150 -y = 190 -END IF - -IF bulletx(2) < 200 AND bulletx(2) > 100 AND bullety(2) < 163 AND bullety(2) > 147 THEN -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy -END IF - -IF bulletx(1) < 200 AND bulletx(1) > 100 AND bullety(1) < 53 AND bullety(1) > 37 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 200 AND bulletx(2) > 100 AND bullety(2) < 53 AND bullety(2) > 37 THEN -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy -END IF - -IF bulletx(1) < 73 AND bulletx(1) > 17 AND bullety(1) < 108 AND bullety(1) > 92 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 73 AND bulletx(2) > 17 AND bullety(2) < 108 AND bullety(2) > 92 THEN -shoot(2) = 0 -bulletx(2) = xx -bullety(2) = yy -END IF - -IF bulletx(1) < 283 AND bulletx(1) > 227 AND bullety(1) < 108 AND bullety(1) > 92 THEN -shoot(1) = 0 -bulletx(1) = x -bullety(1) = y -END IF - -IF bulletx(2) < 283 AND bulletx(2) > 227 AND bullety(2) < 108 AND bullety(2) > 92 THEN -shoot(2) = 0 -bulletx(2) = x -bullety(2) = y -END IF - - -END SUB - -SUB check.side -LINE (1, 1)-(5, 3), 0, BF - -IF x < 1 THEN -'gagne(2) = gagne(2) + 1 -'shots(1) = 15 -x = 150 -y = 190 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF x > 319 THEN -'gagne(2) = gagne(2) + 1 -'shots(1) = 15 -x = 150 -y = 190 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF y < 1 THEN -'gagne(2) = gagne(2) + 1 -'shots(1) = 15 -x = 150 -y = 190 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF y > 199 THEN -'gagne(2) = gagne(2) + 1 -'shots(1) = 15 -x = 150 -y = 190 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF xx < 1 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xx = 150 -yy = 20 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF xx > 319 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xx = 150 -yy = 20 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF yy < 1 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xx = 150 -yy = 20 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF yy > 199 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xx = 150 -yy = 20 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - - -IF xxa < 1 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xxa = 50 -yya = 80 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF xxa > 319 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xxa = 50 -yya = 80 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF yya < 1 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xxa = 50 -yya = 80 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - -IF yya > 199 THEN -'gagne(1) = gagne(1) + 1 -'shots(2) = 15 -xxa = 50 -yya = 80 -'PRINT "boom" -'SLEEP 1 -CLS 2 -END IF - - - - -END SUB - -SUB draw.bullet - - -IF shoot(1) = 1 THEN - - -IF ammo(1) = 1 THEN - -IF angle(1) = 1 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) - shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - - -IF angle(1) = 2 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) - shootnumber -bulletx(1) = bulletx(1) - shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - - -IF angle(1) = 3 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bulletx(1) = bulletx(1) - shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - - -IF angle(1) = 4 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) + shootnumber -bulletx(1) = bulletx(1) - shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - - -IF angle(1) = 5 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) + shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - - -IF angle(1) = 6 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) + shootnumber -bulletx(1) = bulletx(1) + shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - - -IF angle(1) = 7 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bulletx(1) = bulletx(1) + shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF - -IF angle(1) = 8 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) - shootnumber -bulletx(1) = bulletx(1) + shootnumber - -CIRCLE (bulletx(1), bullety(1)), 1, 4 -PAINT (bulletx(1), bullety(1)), 4, 4 -END IF -END IF - - - - -IF ammo(1) = 2 THEN - -IF angle(1) = 1 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) - shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -IF angle(1) = 2 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) - shootnumber / 3 -bulletx(1) = bulletx(1) - shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -IF angle(1) = 3 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bulletx(1) = bulletx(1) - shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -IF angle(1) = 4 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) + shootnumber / 3 -bulletx(1) = bulletx(1) - shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -IF angle(1) = 5 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) + shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -IF angle(1) = 6 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) + shootnumber / 3 -bulletx(1) = bulletx(1) + shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -IF angle(1) = 7 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bulletx(1) = bulletx(1) + shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - -IF angle(1) = 8 THEN -CIRCLE (bulletx(1), bullety(1)), 10, 0 -PAINT (bulletx(1), bullety(1)), 0, 0 - -bullety(1) = bullety(1) - shootnumber / 3 -bulletx(1) = bulletx(1) + shootnumber / 3 - -CIRCLE (bulletx(1), bullety(1)), 2, 14 -PAINT (bulletx(1), bullety(1)), 14, 14 -END IF - - -END IF -END IF - - - - - - - -IF shoot(2) = 1 THEN - -IF ammo(2) = 1 THEN - -IF angle(2) = 1 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) + shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -IF angle(2) = 2 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) + shootnumber -bulletx(2) = bulletx(2) - shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - - -IF angle(2) = 3 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bulletx(2) = bulletx(2) - shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -IF angle(2) = 4 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) - shootnumber -bulletx(2) = bulletx(2) - shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -IF angle(2) = 5 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) - shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -IF angle(2) = 6 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) - shootnumber -bulletx(2) = bulletx(2) + shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -IF angle(2) = 7 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bulletx(2) = bulletx(2) + shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -IF angle(2) = 8 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) + shootnumber -bulletx(2) = bulletx(2) + shootnumber - -CIRCLE (bulletx(2), bullety(2)), 1, 4 -PAINT (bulletx(2), bullety(2)), 4, 4 -END IF - -END IF - - -IF ammo(2) = 2 THEN - -IF angle(2) = 1 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) + shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - -IF angle(2) = 2 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) + shootnumber / 3 -bulletx(2) = bulletx(2) - shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - - -IF angle(2) = 3 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bulletx(2) = bulletx(2) - shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - -IF angle(2) = 4 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) - shootnumber / 3 -bulletx(2) = bulletx(2) - shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - -IF angle(2) = 5 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) - shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - -IF angle(2) = 6 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) - shootnumber / 3 -bulletx(2) = bulletx(2) + shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - -IF angle(2) = 7 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bulletx(2) = bulletx(2) + shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF - -IF angle(2) = 8 THEN -CIRCLE (bulletx(2), bullety(2)), 10, 0 -PAINT (bulletx(2), bullety(2)), 0, 0 - -bullety(2) = bullety(2) + shootnumber / 3 -bulletx(2) = bulletx(2) + shootnumber / 3 - -CIRCLE (bulletx(2), bullety(2)), 2, 14 -PAINT (bulletx(2), bullety(2)), 14, 14 -END IF -END IF - -END IF - - -IF shoot(3) = 1 THEN - -IF ammo(3) = 1 THEN - -IF angle(3) = 1 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) + shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - -IF angle(3) = 2 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) + shootnumber -bulletx(3) = bulletx(3) - shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - - -IF angle(3) = 3 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bulletx(3) = bulletx(3) - shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - -IF angle(3) = 4 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) - shootnumber -bulletx(3) = bulletx(3) - shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - -IF angle(3) = 5 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) - shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - -IF angle(3) = 6 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) - shootnumber -bulletx(3) = bulletx(3) + shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - -IF angle(3) = 7 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bulletx(3) = bulletx(3) + shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF - -IF angle(3) = 8 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) + shootnumber -bulletx(3) = bulletx(3) + shootnumber - -CIRCLE (bulletx(3), bullety(3)), 1, 4 -PAINT (bulletx(3), bullety(3)), 4, 4 -END IF -END IF - - -IF ammo(3) = 2 THEN - -IF angle(3) = 1 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) + shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - -IF angle(3) = 2 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) + shootnumber / 3 -bulletx(3) = bulletx(3) - shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - - -IF angle(3) = 3 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bulletx(3) = bulletx(3) - shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - -IF angle(3) = 4 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) - shootnumber / 3 -bulletx(3) = bulletx(3) - shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - -IF angle(3) = 5 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) - shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - -IF angle(3) = 6 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) - shootnumber / 3 -bulletx(3) = bulletx(3) + shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - -IF angle(3) = 7 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bulletx(3) = bulletx(3) + shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF - -IF angle(3) = 8 THEN -CIRCLE (bulletx(3), bullety(3)), 10, 0 -PAINT (bulletx(3), bullety(3)), 0, 0 - -bullety(3) = bullety(3) + shootnumber / 3 -bulletx(3) = bulletx(3) + shootnumber / 3 - -CIRCLE (bulletx(3), bullety(3)), 2, 14 -PAINT (bulletx(3), bullety(3)), 14, 14 -END IF -END IF - - - - - - -END IF - -GOTO enddrawbullet - -enddrawbullet: -END SUB - -SUB draw.enemy - -'LINE (xx - 12, yy - 15)-(xx + 12, yy + 11), 0, BF - -'LINE (xx - 4, yy)-(xx + 4, yy), 2 -'LINE (xx, yy)-(xx, yy + 8), 2 - -IF angle(2) = 1 THEN -LINE (xx - 4, yy)-(xx + 4, yy), bc -LINE (xx - 5, yy)-(xx, yy + 12), bc -LINE (xx + 5, yy)-(xx, yy + 12), bc -END IF - -IF angle(2) = 8 THEN -LINE (xx - 4, yy + 4)-(xx + 4, yy - 4), bc -LINE (xx - 4, yy + 4)-(xx + 8, yy + 8), bc -LINE (xx + 4, yy - 4)-(xx + 8, yy + 8), bc -END IF - - -IF angle(2) = 3 THEN -LINE (xx, yy - 4)-(xx, yy + 4), bc -LINE (xx, yy - 5)-(xx - 12, yy), bc -LINE (xx, yy + 5)-(xx - 12, yy), bc -END IF - -IF angle(2) = 6 THEN -LINE (xx - 4, yy - 4)-(xx + 4, yy + 4), bc -LINE (xx - 4, yy - 4)-(xx + 8, yy - 8), bc -LINE (xx + 4, yy + 4)-(xx + 8, yy - 8), bc -END IF - -IF angle(2) = 5 THEN -LINE (xx - 4, yy)-(xx + 4, yy), bc -LINE (xx - 5, yy)-(xx, yy - 12), bc -LINE (xx + 5, yy)-(xx, yy - 12), bc -END IF - -IF angle(2) = 4 THEN -LINE (xx - 4, yy + 4)-(xx + 4, yy - 4), bc -LINE (xx - 4, yy + 4)-(xx - 8, yy - 8), bc -LINE (xx + 4, yy - 4)-(xx - 8, yy - 8), bc -END IF - -IF angle(2) = 7 THEN -LINE (xx, yy - 4)-(xx, yy + 4), bc -LINE (xx, yy - 5)-(xx + 12, yy), bc -LINE (xx, yy + 5)-(xx + 12, yy), bc -END IF - -IF angle(2) = 2 THEN -LINE (xx - 4, yy - 4)-(xx + 4, yy + 4), bc -LINE (xx - 4, yy - 4)-(xx - 8, yy + 8), bc -LINE (xx + 4, yy + 4)-(xx - 8, yy + 8), bc -END IF - -END SUB - -SUB draw.ship - -IF angle(1) = 1 THEN -LINE (x - 5, y)-(x + 5, y), gc -LINE (x, y)-(x, y - 10), gc -END IF - -IF angle(1) = 2 THEN -LINE (x - 4, y + 4)-(x + 4, y - 4), gc -LINE (x, y)-(x - 8, y - 8), gc -END IF - -IF angle(1) = 3 THEN -LINE (x, y + 5)-(x, y - 5), gc -LINE (x, y)-(x - 10, y), gc -END IF - -IF angle(1) = 4 THEN -LINE (x - 4, y - 4)-(x + 4, y + 4), gc -LINE (x, y)-(x - 8, y + 8), gc -END IF - -IF angle(1) = 5 THEN -LINE (x - 5, y)-(x + 5, y), gc -LINE (x, y)-(x, y + 10), gc -END IF - -IF angle(1) = 6 THEN -LINE (x - 4, y + 4)-(x + 4, y - 4), gc -LINE (x, y)-(x + 8, y + 8), gc -END IF - -IF angle(1) = 7 THEN -LINE (x, y + 5)-(x, y - 5), gc -LINE (x, y)-(x + 10, y), gc -END IF - -IF angle(1) = 8 THEN -LINE (x - 4, y - 4)-(x + 4, y + 4), gc -LINE (x, y)-(x + 8, y - 8), gc -END IF - -END SUB - -SUB draw.ship.three - -IF angle(3) = 1 THEN -LINE (xxa - 4, yya)-(xxa + 4, yya), bcc -LINE (xxa - 5, yya)-(xxa, yya + 5), bcc -LINE (xxa + 5, yya)-(xxa, yya + 5), bcc -END IF - -IF angle(3) = 8 THEN -LINE (xxa - 4, yya + 4)-(xxa + 4, yya - 4), bcc -LINE (xxa - 4, yya + 4)-(xxa + 4, yya + 4), bcc -LINE (xxa + 4, yya - 4)-(xxa + 4, yya + 4), bcc -END IF - - -IF angle(3) = 3 THEN -LINE (xxa, yya - 4)-(xxa, yya + 4), bcc -LINE (xxa, yya - 5)-(xxa - 5, yya), bcc -LINE (xxa, yya + 5)-(xxa - 5, yya), bcc -END IF - -IF angle(3) = 6 THEN -LINE (xxa - 4, yya - 4)-(xxa + 4, yya + 4), bcc -LINE (xxa - 4, yya - 4)-(xxa + 4, yya - 4), bcc -LINE (xxa + 4, yya + 4)-(xxa + 4, yya - 4), bcc -END IF - -IF angle(3) = 5 THEN -LINE (xxa - 4, yya)-(xxa + 4, yya), bcc -LINE (xxa - 5, yya)-(xxa, yya - 5), bcc -LINE (xxa + 5, yya)-(xxa, yya - 5), bcc -END IF - -IF angle(3) = 4 THEN -LINE (xxa - 4, yya + 4)-(xxa + 4, yya - 4), bcc -LINE (xxa - 4, yya + 4)-(xxa - 4, yya - 4), bcc -LINE (xxa + 4, yya - 4)-(xxa - 4, yya - 4), bcc -END IF - -IF angle(3) = 7 THEN -LINE (xxa, yya - 4)-(xxa, yya + 4), bcc -LINE (xxa, yya - 5)-(xxa + 5, yya), bcc -LINE (xxa, yya + 5)-(xxa + 5, yya), bcc -END IF - -IF angle(3) = 2 THEN -LINE (xxa - 4, yya - 4)-(xxa + 4, yya + 4), bcc -LINE (xxa - 4, yya - 4)-(xxa - 4, yya + 4), bcc -LINE (xxa + 4, yya + 4)-(xxa - 4, yya + 4), bcc -END IF - - -END SUB - -SUB errcode - - - -END SUB - -SUB flare - -IF angle(1) = 1 THEN -LINE (x - 5, y)-(x + 5, y), gc -LINE (x, y)-(x, y - 10), gc -LINE (x, y)-(x, y + 3), fc -END IF - -IF angle(1) = 2 THEN -LINE (x - 4, y + 4)-(x + 4, y - 4), gc -LINE (x, y)-(x - 8, y - 8), gc -LINE (x, y)-(x + 2, y + 2), fc -END IF - -IF angle(1) = 3 THEN -LINE (x, y + 5)-(x, y - 5), gc -LINE (x, y)-(x - 10, y), gc -LINE (x, y)-(x + 3, y), fc -END IF - -IF angle(1) = 4 THEN -LINE (x - 4, y - 4)-(x + 4, y + 4), gc -LINE (x, y)-(x - 8, y + 8), gc -LINE (x, y)-(x + 2, y - 2), fc -END IF - -IF angle(1) = 5 THEN -LINE (x - 5, y)-(x + 5, y), gc -LINE (x, y)-(x, y + 10), gc -LINE (x, y)-(x, y - 3), fc -END IF - -IF angle(1) = 6 THEN -LINE (x - 4, y + 4)-(x + 4, y - 4), gc -LINE (x, y)-(x + 8, y + 8), gc -LINE (x, y)-(x - 2, y - 2), fc -END IF - -IF angle(1) = 7 THEN -LINE (x, y + 5)-(x, y - 5), gc -LINE (x, y)-(x + 10, y), gc -LINE (x, y)-(x - 3, y), fc -END IF - -IF angle(1) = 8 THEN -LINE (x - 4, y - 4)-(x + 4, y + 4), gc -LINE (x, y)-(x + 8, y - 8), gc -LINE (x, y)-(x - 2, y + 2), fc -END IF - - -FOR delay = 1 TO delaynumber * 10: NEXT delay - -END SUB - -SUB flare.three - -IF angle(3) = 1 THEN -LINE (xxa - 5, yya)-(xxa + 5, yya), bcc -LINE (xxa - 5, yya)-(xxa, yya + 5), bcc -LINE (xxa + 5, yya)-(xxa, yya + 5), bcc -LINE (xxa, yya)-(xxa, yya - 3), fc -END IF - -IF angle(3) = 2 THEN -LINE (xxa - 4, yya - 4)-(xxa + 4, yya + 4), bcc -LINE (xxa - 4, yya - 4)-(xxa - 4, yya + 4), bcc -LINE (xxa + 4, yya + 4)-(xxa - 4, yya + 4), bcc -LINE (xxa, yya)-(xxa + 2, yya - 2), fc -END IF - -IF angle(3) = 3 THEN -LINE (xxa, yya - 5)-(xxa, yya + 5), bcc -LINE (xxa, yya - 5)-(xxa - 5, yya), bcc -LINE (xxa, yya + 5)-(xxa - 5, yya), bcc -LINE (xxa, yya)-(xxa + 3, yya), fc -END IF - -IF angle(3) = 4 THEN -LINE (xxa - 4, yya + 4)-(xxa + 4, yya - 4), bcc -LINE (xxa - 4, yya + 4)-(xxa - 4, yya - 4), bcc -LINE (xxa + 4, yya - 4)-(xxa - 4, yya - 4), bcc -LINE (xxa, yya)-(xxa + 2, yya + 2), fc -END IF - -IF angle(3) = 5 THEN -LINE (xxa - 5, yya)-(xxa + 5, yya), bcc -LINE (xxa - 5, yya)-(xxa, yya - 5), bcc -LINE (xxa + 5, yya)-(xxa, yya - 5), bcc -LINE (xxa, yya)-(xxa, yya + 3), fc -END IF - -IF angle(3) = 6 THEN -LINE (xxa - 4, yya - 4)-(xxa + 4, yya + 4), bcc -LINE (xxa - 4, yya - 4)-(xxa + 4, yya - 4), bcc -LINE (xxa + 4, yya + 4)-(xxa + 4, yya - 4), bcc -LINE (xxa, yya)-(xxa - 2, yya + 2), fc -END IF - -IF angle(3) = 7 THEN -LINE (xxa, yya - 5)-(xxa, yya + 5), bcc -LINE (xxa, yya - 5)-(xxa + 5, yya), bcc -LINE (xxa, yya + 5)-(xxa + 5, yya), bcc -LINE (xxa, yya)-(xxa - 3, yya), fc -END IF - -IF angle(3) = 8 THEN -LINE (xxa - 4, yya + 4)-(xxa + 4, yya - 4), bcc -LINE (xxa - 4, yya + 4)-(xxa + 4, yya + 4), bcc -LINE (xxa + 4, yya - 4)-(xxa + 4, yya + 4), bcc -LINE (xxa, yya)-(xxa - 2, yya - 2), fc -END IF - - -END SUB - -SUB flash - - - -press$ = INKEY$ - -IF dir = 1 THEN -press$ = INKEY$ -xa = xa + 3 'movenumber / 2 - 1 - -'LINE (x, y)-(x + 4, y), 14 - -LINE (0, 0)-(316, 196), 0, B -LINE (0, 0)-(317, 197), 0, B -LINE (0, 0)-(318, 198), 0, B - -LINE (1, 1)-(315, 195), 14, B - -'LINE (1, 1)-(1, 199), 14 -'LINE (1, 190)-(315, 190), 14 -'LINE (315, 195)-(315, 1), 14 - -PSET (xa, ya), 44 -PSET (xa + 1, ya), 44 -PSET (xa + 2, ya), 44 -PSET (xa + 2, ya), 45 -PSET (xa + 3, ya), 45 -PSET (xa + 4, ya), 45 -PSET (xa + 5, ya), 46 -PSET (xa + 6, ya), 46 -PSET (xa + 7, ya), 46 -PSET (xa + 8, ya), 47 -PSET (xa + 9, ya), 47 -PSET (xa + 10, ya), 47 -PSET (xa + 11, ya), 48 -PSET (xa + 12, ya), 48 -PSET (xa + 13, ya), 48 -PSET (xa + 14, ya), 49 -PSET (xa + 15, ya), 49 -PSET (xa + 16, ya), 49 - -IF xa > 299 THEN -xa = 315 -ya = 1 -dir = 2 -END IF - -IF press$ = CHR$(27) THEN END -FOR delay = 1 TO delaynumber / 4: NEXT delay -END IF - - -IF dir = 2 THEN -ya = ya + 3 'movenumber / 2 - 1 -LINE (0, 0)-(316, 196), 0, B -LINE (0, 0)-(317, 197), 0, B -LINE (0, 0)-(318, 198), 0, B - -LINE (1, 1)-(315, 195), 14, B - - -PSET (xa, ya), 44 -PSET (xa, ya + 1), 44 -PSET (xa, ya + 2), 44 -PSET (xa, ya + 2), 45 -PSET (xa, ya + 3), 45 -PSET (xa, ya + 4), 45 -PSET (xa, ya + 5), 46 -PSET (xa, ya + 6), 46 -PSET (xa, ya + 7), 46 -PSET (xa, ya + 8), 47 -PSET (xa, ya + 9), 47 -PSET (xa, ya + 10), 47 -PSET (xa, ya + 11), 48 -PSET (xa, ya + 12), 48 -PSET (xa, ya + 13), 48 -PSET (xa, ya + 14), 49 -PSET (xa, ya + 15), 49 -PSET (xa, ya + 16), 49 - -IF ya > 180 THEN -xa = 299 -ya = 195 -dir = 3 -END IF - -IF press$ = CHR$(27) THEN END -FOR delay = 1 TO delaynumber / 4: NEXT delay - -END IF - -IF dir = 3 THEN -press$ = INKEY$ -xa = xa - 2 ' movenumber / 2 - 1 - -'LINE (x, y)-(x + 4, y), 14 - -LINE (0, 0)-(316, 196), 0, B -LINE (0, 0)-(317, 197), 0, B -LINE (0, 0)-(318, 198), 0, B - -LINE (1, 1)-(315, 195), 14, B - -'LINE (1, 1)-(1, 199), 14 -'LINE (1, 190)-(315, 190), 14 -'LINE (315, 195)-(315, 1), 14 - -PSET (xa, ya), 49 -PSET (xa + 1, ya), 49 -PSET (xa + 2, ya), 49 -PSET (xa + 2, ya), 48 -PSET (xa + 3, ya), 48 -PSET (xa + 4, ya), 48 -PSET (xa + 5, ya), 47 -PSET (xa + 6, ya), 47 -PSET (xa + 7, ya), 47 -PSET (xa + 8, ya), 46 -PSET (xa + 9, ya), 46 -PSET (xa + 10, ya), 46 -PSET (xa + 11, ya), 45 -PSET (xa + 12, ya), 45 -PSET (xa + 13, ya), 45 -PSET (xa + 14, ya), 44 -PSET (xa + 15, ya), 44 -PSET (xa + 16, ya), 44 - -IF xa < 16 THEN -xa = 1 -ya = 180 -dir = 4 -END IF - -IF press$ = CHR$(27) THEN END -FOR delay = 1 TO delaynumber / 4: NEXT delay -END IF - -IF dir = 4 THEN -ya = ya - 2 'movenumber / 2 - 1 -LINE (0, 0)-(316, 196), 0, B -LINE (0, 0)-(317, 197), 0, B -LINE (0, 0)-(318, 198), 0, B - -LINE (1, 1)-(315, 195), 14, B - - -PSET (xa, ya), 49 -PSET (xa, ya + 1), 49 -PSET (xa, ya + 2), 49 -PSET (xa, ya + 2), 48 -PSET (xa, ya + 3), 48 -PSET (xa, ya + 4), 48 -PSET (xa, ya + 5), 47 -PSET (xa, ya + 6), 47 -PSET (xa, ya + 7), 47 -PSET (xa, ya + 8), 46 -PSET (xa, ya + 9), 46 -PSET (xa, ya + 10), 46 -PSET (xa, ya + 11), 45 -PSET (xa, ya + 12), 45 -PSET (xa, ya + 13), 45 -PSET (xa, ya + 14), 44 -PSET (xa, ya + 15), 44 -PSET (xa, ya + 16), 44 - -IF ya < 1 THEN -xa = 1 -ya = 1 -dir = 1 -END IF - -IF press$ = CHR$(27) THEN END -FOR delay = 1 TO delaynumber / 4: NEXT delay - -END IF - - - - -END SUB - -SUB gravity - -grav = INT(RND * gravint) -IF grav = 1 THEN - -LINE (xx - 12, yy - 15)-(xx + 12, yy + 12), 0, BF -LINE (x - 10, y - 15)-(x + 10, y + 10), 0, BF -LINE (xxa - 10, yya - 10)-(xxa + 10, yya + 6), 0, BF - -'y = y + 1 -'yy = yy + 1 - -IF lastpress(1) = 8 THEN -y = y + 3 -END IF - -IF lastpress(1) = 7 THEN -y = y + 3 -x = x - 1 -END IF - -IF lastpress(1) = 4 THEN -y = y + 1 -x = x - 2 -END IF - -IF lastpress(1) = 1 THEN -y = y + 1 -x = x - 1 -END IF - -IF lastpress(1) = 2 THEN -y = y + 1 -END IF - -IF lastpress(1) = 3 THEN -y = y + 1 -x = x + 1 -END IF - -IF lastpress(1) = 6 THEN -y = y + 1 -x = x + 2 -END IF - -IF lastpress(1) = 9 THEN -y = y + 3 -x = x + 1 -END IF - - - -IF lastpress(2) = 2 THEN -yy = yy + 3 -END IF - -IF lastpress(2) = 1 THEN -yy = yy + 3 -xx = xx - 1 -END IF - -IF lastpress(2) = 4 THEN -yy = yy + 1 -xx = xx - 2 -END IF - -IF lastpress(2) = 7 THEN -yy = yy + 1 -xx = xx - 1 -END IF - -'IF lastpress(2) = 8 THEN -'yy = yy + 1 -'END IF - -IF lastpress(2) = 3 THEN -yy = yy + 1 -xx = xx + 1 -END IF - -IF lastpress(2) = 9 THEN -yy = yy + 1 -'xx = xx + 2 -END IF - -IF lastpress(2) = 6 THEN -yy = yy + 3 -END IF - - - -IF lastpress(3) = 2 THEN -yya = yya + 3 -END IF - -IF lastpress(3) = 1 THEN -yya = yya + 3 -xxa = xxa - 1 -END IF - -IF lastpress(3) = 4 THEN -yya = yya + 1 -xxa = xxa - 2 -END IF - -IF lastpress(3) = 7 THEN -yya = yya + 1 -xxa = xxa - 1 -END IF - -IF lastpress(3) = 9 THEN -yya = yya + 1 -END IF - -IF lastpress(3) = 3 THEN -yya = yya + 1 -xxa = xxa + 1 -END IF - -IF lastpress(3) = 8 THEN -yya = yya + 3 -xxa = xxa + 2 -END IF - -IF lastpress(3) = 6 THEN -yya = yya + 3 -xxa = xxa + 1 -END IF - - - - - -END IF - -END SUB - -SUB menu - -CLS 1 -CLS 2 -press$ = INKEY$ - -menu: -press$ = INKEY$ -CLS 1 -CLS 2 -COLOR 25 -PRINT "MENU" -PRINT - -PRINT "1) "; -COLOR 4: PRINT "H"; -COLOR 25: PRINT "it percentage" - -PRINT "2) "; -COLOR 4: PRINT "C"; -COLOR 25: PRINT "ontrols" - -PRINT "3) "; -COLOR 4: PRINT "S"; -COLOR 25: PRINT "hip colour" - -PRINT "4) "; -COLOR 4: PRINT "G"; -COLOR 25: PRINT "ravity" - -PRINT "5) "; -COLOR 4: PRINT "R"; -COLOR 25: PRINT "estart" - -PRINT "6) "; -PRINT "R"; -COLOR 4: PRINT "e"; -COLOR 25: PRINT "sume" - -PRINT "7) "; -COLOR 4: PRINT "Q"; -COLOR 25: PRINT "uit" - -INPUT ">", ress$ - -IF ress$ = CHR$(27) THEN END -IF ress$ = "h" OR ress$ = "H" THEN GOTO hitmiss -IF ress$ = "c" OR ress$ = "C" THEN GOTO controls -IF ress$ = "s" OR ress$ = "S" THEN GOTO shipcolour -IF ress$ = "r" OR ress$ = "R" THEN GOTO restart -IF ress$ = "q" OR ress$ = "Q" THEN GOTO quit -IF ress$ = "e" OR ress$ = "E" THEN GOTO resumer -IF ress$ = "g" OR ress$ = "G" THEN GOTO gravity - -hitmiss: -CLS 1 -CLS 2 -PRINT -PRINT "Player 1 hit/miss percentage: "; gagne(1) / miss(1) -PRINT "Player 2 hit/miss percentage: "; gagne(2) / miss(2) -PRINT "Player 3 hit/miss percentage: "; gagne(3) / miss(3) -INPUT ">", gasfddasfds$ -IF gasfddasfds$ = "wer" THEN END -GOTO menu - -controls: -CLS 1 -CLS 2 -COLOR 4 -PRINT "Control Player 1 Player 2 Player 3" -COLOR 25 -PRINT -PRINT "Right right arrow d j" -PRINT "Left left arrow a g" -PRINT "Up up arrow w y" -PRINT "Down/shoot down arrow s h " -INPUT ">", gadsfsfda$ -GOTO menu - -shipcolour: -press$ = INKEY$ -CLS 1 -CLS 2 -PRINT -PRINT "Player 1 "; gc -PRINT "Player 2 "; bc -PRINT "Player 3 "; bcc -PRINT -PRINT "1) "; -COLOR 4: PRINT "R"; -COLOR 25: PRINT "esume" - -PRINT "2) "; -COLOR 4: PRINT "E"; -COLOR 25: PRINT "dit player 1 colour" - -PRINT "3) "; -COLOR 4: PRINT "C"; -COLOR 25: PRINT "hange player 2 colour" - -PRINT "4) "; -COLOR 4: PRINT "A"; -COLOR 25: PRINT "lter player 3 colour" - -INPUT ">", pres$ -IF pres$ = "r" OR pres$ = "R" THEN GOTO menu -IF pres$ = "e" OR pres$ = "E" THEN GOTO onechoose -IF pres$ = "c" OR pres$ = "C" THEN GOTO twochoose -IF pres$ = "a" OR pres$ = "A" THEN GOTO threechoose - -onechoose: -CLS 1 -CLS 2 -PRINT -PRINT "Choose Player 1 colour:" -PRINT -PRINT "1) "; -COLOR 4: PRINT "G"; -COLOR 25: PRINT "reen" - -PRINT "2) "; -COLOR 4: PRINT "B"; -COLOR 25: PRINT "lue" - -PRINT "3) "; -COLOR 4: PRINT "R"; -COLOR 25: PRINT "ed" - -PRINT "4) "; -COLOR 4: PRINT "Y"; -COLOR 25: PRINT "ellow" -INPUT ">", presss$ -IF presss$ = "g" OR presss$ = "G" THEN gc = 2 -IF presss$ = "b" OR presss$ = "B" THEN gc = 3 -IF presss$ = "r" OR presss$ = "R" THEN gc = 4 -IF presss$ = "y" OR presss$ = "Y" THEN gc = 14 -GOTO shipcolour - -twochoose: -CLS 1 -CLS 2 -PRINT -PRINT "Choose Player 2 colour:" -PRINT -PRINT "1) "; -COLOR 4: PRINT "G"; -COLOR 25: PRINT "reen" - -PRINT "2) "; -COLOR 4: PRINT "B"; -COLOR 25: PRINT "lue" - -PRINT "3) "; -COLOR 4: PRINT "R"; -COLOR 25: PRINT "ed" - -PRINT "4) "; -COLOR 4: PRINT "Y"; -COLOR 25: PRINT "ellow" -INPUT ">", ppress$ - -IF ppress$ = "g" OR ppress$ = "G" THEN bc = 2 -IF ppress$ = "b" OR ppress$ = "B" THEN bc = 3 -IF ppress$ = "r" OR ppress$ = "R" THEN bc = 4 -IF ppress$ = "y" OR ppress$ = "Y" THEN bc = 14 -GOTO shipcolour - -threechoose: -CLS 1 -CLS 2 -PRINT -PRINT "Choose Player 3 colour:" -PRINT -PRINT "1) "; -COLOR 4: PRINT "G"; -COLOR 25: PRINT "reen" - -PRINT "2) "; -COLOR 4: PRINT "B"; -COLOR 25: PRINT "lue" - -PRINT "3) "; -COLOR 4: PRINT "R"; -COLOR 25: PRINT "ed" - -PRINT "4) "; -COLOR 4: PRINT "Y"; -COLOR 25: PRINT "ellow" -INPUT ">", pppress$ - -IF pppress$ = "g" OR pppress$ = "G" THEN bcc = 2 -IF pppress$ = "b" OR pppress$ = "B" THEN bcc = 3 -IF pppress$ = "r" OR pppress$ = "R" THEN bcc = 4 -IF pppress$ = "y" OR pppress$ = "Y" THEN bcc = 14 -GOTO shipcolour - - -restart: -gagne(1) = 0 -gagne(2) = 0 -shots(1) = 15 -shots(2) = 15 -miss(1) = 0 -miss(2) = 0 -x = 150 -y = 190 -xx = 150 -yy = 20 -GOTO ender - -quit: -END - -gravity: -CLS 1 -CLS 2 -PRINT -5 PRINT "Gravity = "; gravint -INPUT "Change gravity to: ", gravint -IF grav > 100 THEN grav = 100 -IF grav < 0 THEN grav = 0 -GOTO menu - -resumer: -ender: -CLS 1 -CLS 2 -END SUB - -SUB player.one.win - -CLS -CLS 1 -CLS 2 -PRINT -COLOR gc -PRINT "Player 1 wins!!!" -SLEEP 1 -SLEEP 1 -SLEEP 1 -SLEEP 1 - -END - -END SUB - -SUB player.three.win - - -CLS -CLS 1 -CLS 2 -PRINT -COLOR bcc -PRINT "Player 3 wins!!!" -SLEEP 1 -SLEEP 1 -SLEEP 1 -SLEEP 1 -END - -END SUB - -SUB Player.two.win - -CLS -CLS 1 -CLS 2 -PRINT -COLOR bc -PRINT "Player 2 wins!!!" -SLEEP 1 -SLEEP 1 -SLEEP 1 -SLEEP 1 -END - -END SUB - -SUB score - -LINE (1, 1)-(5, 3), 0, BF -LOCATE 2, 2: COLOR 3: PRINT gagne(1); " "; shots(1); " "; ammo(1) -LOCATE 3, 2: COLOR 2: PRINT gagne(2); " "; shots(2); " "; ammo(2) -LOCATE 4, 2: COLOR 43: PRINT gagne(3); " "; shots(3); " "; ammo(3) - -IF shots(1) = 0 AND shots(2) = 0 AND shots(3) = 0 THEN -shots(1) = 15 -shots(2) = 15 -shots(3) = 15 -END IF - -IF shots(1) < 0 THEN shots(1) = 0 -IF shots(2) < 0 THEN shots(2) = 0 -IF shots(3) < 0 THEN shots(3) = 0 - -IF gagne(1) > 49 THEN player.one.win -IF gagne(2) > 49 THEN Player.two.win -IF gagne(3) > 49 THEN player.three.win - -END SUB - -SUB t.flare - - -IF angle(2) = 1 THEN -LINE (xx - 5, yy)-(xx + 5, yy), bc -LINE (xx - 5, yy)-(xx, yy + 10), bc -LINE (xx + 5, yy)-(xx, yy + 10), bc -LINE (xx, yy)-(xx, yy - 3), fc -END IF - -IF angle(2) = 2 THEN -LINE (xx - 4, yy - 4)-(xx + 4, yy + 4), bc -LINE (xx - 4, yy - 4)-(xx - 8, yy + 8), bc -LINE (xx + 4, yy + 4)-(xx - 8, yy + 8), bc -LINE (xx, yy)-(xx + 2, yy - 2), fc -END IF - -IF angle(2) = 3 THEN -LINE (xx, yy - 5)-(xx, yy + 5), bc -LINE (xx, yy - 5)-(xx - 10, yy), bc -LINE (xx, yy + 5)-(xx - 10, yy), bc -LINE (xx, yy)-(xx + 3, yy), fc -END IF - -IF angle(2) = 4 THEN -LINE (xx - 4, yy + 4)-(xx + 4, yy - 4), bc -LINE (xx - 4, yy + 4)-(xx - 8, yy - 8), bc -LINE (xx + 4, yy - 4)-(xx - 8, yy - 8), bc -LINE (xx, yy)-(xx + 2, yy + 2), fc -END IF - -IF angle(2) = 5 THEN -LINE (xx - 5, yy)-(xx + 5, yy), bc -LINE (xx - 5, yy)-(xx, yy - 10), bc -LINE (xx + 5, yy)-(xx, yy - 10), bc -LINE (xx, yy)-(xx, yy + 3), fc -END IF - -IF angle(2) = 6 THEN -LINE (xx - 4, yy - 4)-(xx + 4, yy + 4), bc -LINE (xx - 4, yy - 4)-(xx + 8, yy - 8), bc -LINE (xx + 4, yy + 4)-(xx + 8, yy - 8), bc -LINE (xx, yy)-(xx - 2, yy + 2), fc -END IF - -IF angle(2) = 7 THEN -LINE (xx, yy - 5)-(xx, yy + 5), bc -LINE (xx, yy - 5)-(xx + 10, yy), bc -LINE (xx, yy + 5)-(xx + 10, yy), bc -LINE (xx, yy)-(xx - 3, yy), fc -END IF - -IF angle(2) = 8 THEN -LINE (xx - 4, yy + 4)-(xx + 4, yy - 4), bc -LINE (xx - 4, yy + 4)-(xx + 8, yy + 8), bc -LINE (xx + 4, yy - 4)-(xx + 8, yy + 8), bc -LINE (xx, yy)-(xx - 2, yy - 2), fc -END IF - - -END SUB - diff --git a/programs/samples/qb45com/action/sfb2/build window.gif b/programs/samples/qb45com/action/sfb2/build window.gif deleted file mode 100644 index b5b0b6d7c..000000000 Binary files a/programs/samples/qb45com/action/sfb2/build window.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/contents.gif b/programs/samples/qb45com/action/sfb2/contents.gif deleted file mode 100644 index a30b0ace6..000000000 Binary files a/programs/samples/qb45com/action/sfb2/contents.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/dojo.i16 b/programs/samples/qb45com/action/sfb2/dojo.i16 deleted file mode 100644 index fbc2feba9..000000000 --- a/programs/samples/qb45com/action/sfb2/dojo.i16 +++ /dev/null @@ -1,1938 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -16 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -16 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -16 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -16 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -7 -0 -7 -0 -7 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -7 -0 -7 -0 -7 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -12 -0 -4 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -8 -0 -8 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -4 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -4 -12 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -0 -12 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -12 -4 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -4 -4 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -4 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -4 -4 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -4 -4 -5 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -4 -0 -0 -0 -0 -16 -0 -0 -4 -4 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -12 -5 -5 -4 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -4 -0 -0 -0 -16 -4 -4 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -4 -0 -0 -16 -4 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -4 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -4 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/enter.jpg b/programs/samples/qb45com/action/sfb2/enter.jpg deleted file mode 100644 index f34554ef0..000000000 Binary files a/programs/samples/qb45com/action/sfb2/enter.jpg and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/error message.gif b/programs/samples/qb45com/action/sfb2/error message.gif deleted file mode 100644 index 57bc39b67..000000000 Binary files a/programs/samples/qb45com/action/sfb2/error message.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/fighters.txt b/programs/samples/qb45com/action/sfb2/fighters.txt deleted file mode 100644 index 2e9fc9d3e..000000000 --- a/programs/samples/qb45com/action/sfb2/fighters.txt +++ /dev/null @@ -1,400 +0,0 @@ -Vector Warriors>>>>>>>>>>>>>>>>>>Discriptions of Moves and Body Part Rankings -+---------------------------------------------------------------------------+ - SFB2 -+---------------------------------------------------------------------------+ - -Some Notes: - -Blocking - Holding down Block has no effect, you must press it as you are - attacked Timing is critical. Blocking has less effect against Special Moves - and little to no effect against Supers. - -Special Moves: - Most Special Moves can be done in the air and/or while low - (after you crouch). - - - - -Normal Moves: - -+-----------------+ -|Key(s) to press | -|Move Discription | -+-----------------+ - -4 -Move Left - -6 -Move Right - -7 or 8 or 9 -Various Jumps - -R -Block - -5 or 2 -Crouch - Note: Many Special Moves can be while low. - -Q -(Punch) Jab - -W -(Punch) Strong - -5, W -(Punch) Uppercut - -A -(Kick) Short - -S -(Kick) Roundhouse - -5, S -(Kick) Sweep - -S While In Air -(Kick) Fly-Kick - -A, A, A -(Kick) Three Hit Combo (If All Kicks Connect) - - - -+---------------------------------------------------------------------------+ -Special Moves: - These moves are determined by the Type of Hands/Feet your fighter has. -"Manipulator" Means the move can manipulate the opponent. Into a stage trap -for example. - -+----------------+ -|Body Part Type | -|Key(s) to Press | -|Name | -|Pros | -|Cons | -+----------------+ - -Hand Type 1 -E, Q -Fire Ball - Charges quick and don't take too much to throw - Not very powerful - -Hand Type 1 -E, W -Twin Mini Fire Balls - Great at close range - Hard to aim - -Feet Type 1 -E, A -Plant Kick - Very powerful kick - Drains the user quite a bit - -Feet Type 1 -E, S -Nee Bash - Deals much pain - Must be at correct range -Note: Duration is determined by the victim's stun duration. - ------------------+ - -Hand Type 2 -E, Q -Power Jab - Powerful jab into the opponent's gut. - Very close range - -Hand Type 2 -E, W -Hammer Punch - Good KO move, floors opponent - Very close range - -Feet Type 2 -E, A -Axe Kick - Multiple hits - No Cons - - -Feet Type 2 -E, S -Lightning Kick Blast - Multiple hits, Manipulator - Drains the user a lot - - ------------------+ - -Hand Type 3 -E, Q -Neck Jab - Great with Razor arms, massive damage - Must be at correct range - -Hand Type 3 -E, W -Thrust Slam - Manipulator - No Cons - -Feet Type 3 -E, A -Stunning Gut Stab - Good set-up move - No Cons - -Feet Type 3 -E, S -6-Slip - Manipulator, Drains user very little - Must be semi-close to be effective - ------------------+ - -Hand Type 4 -E, Q -Ball Lightning - More powerful then Fire, Low connect's can floor opponent - Must charge, drains more then Fire - -Hand Type 4 -E, W -Rising Dragon - Very powerful - Close range, drains user a lot - -Feet Type 4 -E, A -Thrust Kick - Fast - Hard to connect - - -Feet Type 4 -E, S -Skip Kick - Great for getting in close range - No Cons - ------------------+ - -Hand Type 5 -E, Q -Triple Sheroken - Fast, Don't drain user at all - Hard to connect, little damage unless close range - -Hand Type 5 -E, W -Stun Knuckle - Great set-up move - No Cons - -Feet Type 5 -E, A -Slasher Strike - Long range, User can connect two or more times before opponent falls - Can drain user fast - -Feet Type 5 -E, S -Upper Assault - Very powerful - Close range, drains user a lot - - -+---------------------------------------------------------------------------+ -Super Moves: - These moves are determined by the Type of Body your fighter has, and can be - done only when your Rage Bar is at it's maximum. Press D to do the Super. - -+----------------+ -|Body Part Type | -|Name | -|Discription | -|Flags/Notes | -+----------------+ - - ------------------+ - -Body Type 1 -Vex of Evil -- Curses opponent with a health draining spell which last until their Rage - peaks. Also reduces their Rage to 75% of what it was. -Temporary ------------------+ - -Body Type 2 -Energy Blast -- A much more powerful version of Ball Lightning. -Instant, Projectile, Manipulator ------------------+ - -Body Type 3 -Spear Kick -- Stabs opponent through. -Instant ------------------+ - -Body Type 4 -Health Up -- Increases the Health of the user. - How much is determined by the users awareness level. -Instant ------------------+ - -Body Type 5 -Razer Arms -- Gives your arms an extra edge making all punches more Health draining. -Temporary ------------------+ - -Body Type 6 -Neck Snapper -- If in range, opponent's neck is snapped by the fighter's feet. Often fatal. -Instant ------------------+ - -Body Type 7 -Swizz Punches -- Quickly drains opponent's Awareness with a barrage of fast punches. -Instant ------------------+ - -Body Type 8 -Upper Bust -- Blast's the opponent "to da moon!" -Instant - - - - - - -+---------------------------------------------------------------------------+ -Body Part Rankings: - The H and A -Modifiers: Mainly they are multipliers to the Health and - Awareness damage done when the body part is used to hit an opponent. - These also modify other effects as well, such as how far an opponent is - knocked etc. - Altitude and Distance refer to Jumping. - ------------------+ - -Head Type 1 - Starting Awareness: 50% - Awareness Recharge: 2 - Rage Growth: 4 - ------------------+ - -Head Type 2 - Starting Awareness: 40% - Awareness Recharge: 3 - Rage Growth: 3 - ------------------+ - -Head Type 3 - Starting Awareness: 30% - Awareness Recharge: 4 - Rage Growth: 2 - ------------------+ - -Head Type 4 - Starting Awareness: 60% - Awareness Recharge: 1 - Rage Growth: 5 - ------------------+ - -Head Type 5 - Starting Awareness: 20% - Awareness Recharge: 5 - Rage Growth: 1 - -------------------------------+ - -Arms Type 1 - H-Modifier: 0 - A-Modifier: 5 - ------------------+ - -Arms Type 2 - H-Modifier: 2 - A-Modifier: 3 - ------------------+ - -Arms Type 3 - H-Modifier: 3 - A-Modifier: 2 - ------------------+ - -Arms Type 4 - H-Modifier: 1 - A-Modifier: 4 - ------------------+ - -Arms Type 5 - H-Modifier: 4 - A-Modifier: 1 - - -------------------------------+ - -Legs Type 1 - H-Modifier: 0 - A-Modifier: 5 - Altitude: 7 - Distance: 16 - ------------------+ - -Legs Type 2 - H-Modifier: 2 - A-Modifier: 3 - Altitude: 10 - Distance: 14 - ------------------+ - -Legs Type 3 - H-Modifier: 3 - A-Modifier: 2 - Altitude: 8 - Distance: 12 - ------------------+ - -Legs Type 4 - H-Modifier: 3 - A-Modifier: 1 - Altitude: 14 - Distance: 10 - ------------------+ - -Legs Type 5 - H-Modifier: 2 - A-Modifier: 2 - Altitude: 9 - Distance: 25 - -+---------------------------------------------------------------------------+ - -End of File \ No newline at end of file diff --git a/programs/samples/qb45com/action/sfb2/gatekeeper.jpg b/programs/samples/qb45com/action/sfb2/gatekeeper.jpg deleted file mode 100644 index eca3b5fad..000000000 Binary files a/programs/samples/qb45com/action/sfb2/gatekeeper.jpg and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/hr1.gif b/programs/samples/qb45com/action/sfb2/hr1.gif deleted file mode 100644 index 13c6e8b1e..000000000 Binary files a/programs/samples/qb45com/action/sfb2/hr1.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/hurt vs healthy.gif b/programs/samples/qb45com/action/sfb2/hurt vs healthy.gif deleted file mode 100644 index b4c836da9..000000000 Binary files a/programs/samples/qb45com/action/sfb2/hurt vs healthy.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/install.dat b/programs/samples/qb45com/action/sfb2/install.dat deleted file mode 100644 index 7b1d2c20a..000000000 --- a/programs/samples/qb45com/action/sfb2/install.dat +++ /dev/null @@ -1,12 +0,0 @@ -"qbx.exe" -"sfb2.bas" -"slash.dat" -"slash.ico" -"*.i16" -"sfb2.bat" -"*.html" -"readme.txt" -"qbx.txt" -"*.jpg" -"*.gif" -"sfb2.faq" \ No newline at end of file diff --git a/programs/samples/qb45com/action/sfb2/keys1.gif b/programs/samples/qb45com/action/sfb2/keys1.gif deleted file mode 100644 index 5df2471ad..000000000 Binary files a/programs/samples/qb45com/action/sfb2/keys1.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/keys2.gif b/programs/samples/qb45com/action/sfb2/keys2.gif deleted file mode 100644 index bfd137c39..000000000 Binary files a/programs/samples/qb45com/action/sfb2/keys2.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/keys3.gif b/programs/samples/qb45com/action/sfb2/keys3.gif deleted file mode 100644 index 49336802a..000000000 Binary files a/programs/samples/qb45com/action/sfb2/keys3.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/onscreen.gif b/programs/samples/qb45com/action/sfb2/onscreen.gif deleted file mode 100644 index 4579786b5..000000000 Binary files a/programs/samples/qb45com/action/sfb2/onscreen.gif and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/readme.txt b/programs/samples/qb45com/action/sfb2/readme.txt deleted file mode 100644 index f77da280a..000000000 --- a/programs/samples/qb45com/action/sfb2/readme.txt +++ /dev/null @@ -1,182 +0,0 @@ -+---------------------------------------------------------------------------+ -| Stick Fighters Brawl 2 | -| Vector Warriors | -+---------------------------------------------------------------------------+ - -INSTALLATION: - -Unzip everything into a temporary directory. -Read all of QBX.TXT for some legal information. -Run INSTALL.EXE and follow the instructions. -Run SFB2.BAT to play. - - -+---------------------------------------------------------------------------+ -| If you have a web browser that supports Javascript and Layers please refer| -|to . The rest of this file is a very brief | -|version of the guide for those with unsupported browsers. | -|If you haven't yet, I highly suggest you get such a browser. | -|ie. The latest version of Netscape Navigator. | -+---------------------------------------------------------------------------+ - -Other Docs and what they are: - -SFB2 Guide Part - A.html Complete guide to the game - If you can view it you should do so now. - -SFB2 Guide Part - B.html Part of the guide, Part - A opens this. - -Readme.txt This file - -Fighters.txt List of moves and part stats. - -QBx.txt If you got QBx.exe with SFB2: Vector Warriors - you must read and understand this file before - playing the game (legal information). - -SFB2.faq Common Questions and Answers - - - -+---------------------------------------------------------------------------+ - - -Intro - -SFB2: Vector Warriors is a Fighting game coded in QBASIC Extended. Unlike other BASIC fighting games that -look bad, play bad and are deleted often, I slaved over SFB2 untill I had a game that's fun and easy to play yet -unique. -It's not another wanna-be Mortal Kombat (Which I personally don't like as a game). - -Tutorial -By visiting the Dojo you can get some step by step on how to play. This is very helpful to new players and is highly -recommended. - - -+---------------------------------------------------------------------------+ - -Game Mechanics Brief - -Two fighters get put in a given stage and beat the piss out of each other until one of them wins the match or is -dead. -Matches are best out of three rounds. When one of the fighters KO the other they win the round. -On some stages the fighters may step out of the ring resulting in a Ring Out. This may result in the opponent -winning the round or some kind of an ass kicking. -In the event of a death, the fighter still living wins the match regardless of how many rounds anyone has won. - - -+---------------------------------------------------------------------------+ - -Basic Control - -Q & W are Punches -A & S are Kicks - -The Cursor Keys mimic those on the number pad. Although it's recommended you don't use them since they lack -Left & Right Jumps. - -Special Moves - -Press the E key to enable Specials. When these are enabled all four of your attack keys have different, more powerful effects. However these will drain you more then normal moves. The Special moves your fighter can use are determined by the type of Hands and Feet a fighter has. - -Rage & Supers - -During the match each fighter sustains more and more Rage toward their opponent. This is displayed by the bar -at the bottom of the screen. -When a fighter is at their maximum Rage they can release it in the form of a Super. Do so by pressing D. Supers are determined by Body type. - - - -+---------------------------------------------------------------------------+ - - - -Menus - -By pressing Esc you may enter the Options menu. - - -OPTIONS - -Stage Select -Allows you to pick the stage to fight on. - -Build Fighter -Opens the Build Fighter Window (See below). - -Settings -Opens the Settings Window (See below). - -Load/Save -Let's you Load, Save, Delete, Reset all of your settings, -including the current stage and your built fighter. - -Demo Mode -AI controls both fighters. - -Restart -Restarts SFB2 (You will lose your settings if you haven't saved them). - -Quit -If your some odd reason your done playing SFB2 select this. - - -BUILD FIGHTER - -Building is as easy as selecting a type and color for each body part. -By selecting MORE you can toggle between two menus. The other menu has the less important options. - -SETTINGS - -Screen resolution -Let's select from three screen modes, the uglier the faster. - -Frame Skipping -Let's you trade smooth animation for speed. - -Game Speed -If your computer is so damn powerful the game runs too fast, you can slow it down here. - -Clear Method -Normally you'll want to leave this alone. It selects how Slash should go about clearing the screen before it starts rendering the graphics. - -Stars -Select how many stars to display. - -Particles -The maximum number of particles that may be displayed at a time (0-90). - -i16 Images -Show All - Always shows i16 images -Don't show on Stage select - All i16 except on the stage select screens. -No i16 - Never shows i16 images - -Graphic Details -Stage - The background graphics -Fighters - The detail of the Fighters -HUD - Extra eye candy in the health bars etc. -Smears - The mess that results on the floor. -Limits - Keeps fighters from stretching on occasion. - -Sound -Here you can turn the sound off or select the Sound Quality. - - - -+---------------------------------------------------------------------------+ - - - -Performance: - -A Pentium is highly recommended to run at an acceptable speed. -SFB2 has only been tested under Windows 9x however, it run may run up to twice as fast in DOS [Mode]. -A writable C:\ is needed for a path info file, however this file is not required. -100% Sound Blaster Compatible sound cards are also supported but only using standard settings. - - - -DOS Mode VS. Win9x: - -Running the game in DOS can greatly improve it's speed. The down side is you may not have enough conventional memory to run it and you may not get any sound. -Win9x runs slower but has much less hassle and generally supplies the memory required. diff --git a/programs/samples/qb45com/action/sfb2/sfb2 guide part - a.html b/programs/samples/qb45com/action/sfb2/sfb2 guide part - a.html deleted file mode 100644 index 5410f8af1..000000000 --- a/programs/samples/qb45com/action/sfb2/sfb2 guide part - a.html +++ /dev/null @@ -1,30 +0,0 @@ - -Stick Fighters Brawl 2 Information Guide - - - -
    - -
    -
    - -

    About This Guide:

    - -Welcome to the SFB2 Guide. -
    At the bottom of this page you'll find my URL and e-mail address. If you can't find the information your looking for here please feel free to contact me. -
    This document requires a Layers and Javascript capable browser such as Netscape Communicator 4.0 -
    If your bowser does not support these please refer to
    ReadMe.txt -
    For best viewing insure your screen is set at 800x600x16 or higher. -
    Nothing from this Guide may be copied without my permission. -

    -

    Enter
    - - - -
    -
    -E-Mail Me -Expression -
    - - \ No newline at end of file diff --git a/programs/samples/qb45com/action/sfb2/sfb2 guide part - b.html b/programs/samples/qb45com/action/sfb2/sfb2 guide part - b.html deleted file mode 100644 index 8ce99ec1e..000000000 --- a/programs/samples/qb45com/action/sfb2/sfb2 guide part - b.html +++ /dev/null @@ -1,633 +0,0 @@ - - -Stick Fighters Brawl 2 Information Guide - - - - - - - - -
    -Loading Stick Fighters Brawl 2 Information Guide-
    - - - - - - - -Intro -  -Disclaimer -  -Mechanics -  -On Screen -  -Control -  -Menus -  -Technical -  -Credits -  -Outro - - - - - - -

    Intro

    - -

    SFB2 -
    SFB2: Vector Warriors is a Fighting game coded in QBASIC Extended. Unlike other BASIC fighting games that look bad, play bad and are deleted often, I slaved over SFB2 untill I had a game that's fun and easy to play yet unique. -
    It's not another wanna-be Mortal Kombat (Which I personally don't like as a game). - -

    SFB2 is powered by Slash, a 3D game engine also designed and coded by me. More info on Slash can be found in the Technical section of this document. - - -

    Tutorial -
    By visiting the Dojo you can get some step by step on how to play. This is very helpful to new players and is highly recommended. - - -

    This Guide -
    It is highly recommended that you view this with the latest version of Netscape Communicator in 800x600 -
    At the top of the page you will see the contents of this guide. -
    By clicking on a category it's info will be displayed for your viewing. -
    Please note once again that not all browsers are able to view this guide. -
    This is an html document, all contents within are copyright © Kevin Reems 1998. - - - - - - - - - -

    Disclaimer

    -

    - A word of warning, this game displays images of violence, blood, gore -and various acts of human mutilation, slaughter, dismemberment, and -people falling to their death, getting shot, stabbed, lit on fire, electrocuted, -have their gutts ripped out and dumped on the floor, Someone may get -their head caved in, drown, crushed, and/or have their brains blasted -through their face. All the while blood may be squirting all over the screen -leaving pools of death all over the place! -
    .....Ok, if you can handle that you won't have any problems, -if you think it's offending, sick, twisted and/or evil don't play -SFB2: Vector Warriors. -
    -

    ...You have been warned

    -
    - - - - -

    Basic Game Mechanics

    - -

    - Two fighters get put in a given stage and beat the piss out of each other until one of them wins the match or is dead. -
    - Matches are best out of three rounds. When one of the fighters KO the other they win the round. -
    - On some stages the fighters may step out of the ring resulting in a Ring Out. This may result in the opponent winning the round or some kind of an ass kicking. -
    - In the event of a death, the fighter still living wins the match regardless of how many rounds anyone has won. - -

    -Hurt VS Healthy Pic (Alpha) - -Unless I upgrade it later this game is currently one player only. - - - - - - -

    On Screen

    - -
    Screenshot From Beta Version
    - -

    - During play you will see a number of things on screen. The HUD contains three status bars for each fighter. -
    From the top down they represent the following. -

    -Health - When this is gone the fighter is dead, match over. -

    -Awareness - How 'dizzy' the Fighter is. -
    When this is gone the fighter is KO and the opponent wins the round. -
    Awareness recharges when the fighter isn't getting his ass beat or using a special. -

    -Rage - ("Super Charge Bar" in Example) Charged in order to use Super Moves. - - - - - - -

    Control

    - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Esc = Options, Exit Current MenuQ = JabW = StrongE = Toggle SpecialR = Block7 = Jump Left8 = Jump Up9 = Jump Right
    A = ShortS = RoundhouseD = SuperP = Pause4 = Left5 = Crouch6 = Right
    -
    - -

    Above are the basic controls during play. -
    Click the Menus Tab at the top of the page for an explanation of the Esc key. -
    Q & W are Punches -
    A & S are Kicks -

    -The Cursor Keys mimic those on the number pad. Although it's recommended you don't use them since they lack Left & Right Jumps. - -

    Special Moves

    -Press the E key to enable Specials. When these are enabled all four of your attack keys have different, more powerful effects. However these will drain you more then normal moves. -
    The Special moves your fighter can use are determined by the type of Hands and Feet a fighter has. - -

    Rage & Supers

    -During the match each fighter sustains more and more Rage toward their opponent. This is displayed by the bar at the bottom of the screen. -
    When a fighter is at their maximum Rage they can release it in the form of a Super. Do so by pressing D. - -

    Supers are very powerful moves that do devastating damage. When a fighter is being attacked by a super it's often the last thing they see. -
    Supers are determined by Body type. - -

    Blocking

    -
    When Blocking you must put the block up just before your attacked, if it is not timed correctly it will fail. Holding down the block key also tends to fail. It's all in the timing. -
    Note that the Spacebar may also be used to block. - -
    - - - - -

    Menus

    - -

    -By pressing Esc you may enter the Options menu. From this menu you may set a great many settings that control the game. - -

    - The first is the Options menu, and contains the following. - -

    -OPTIONS - -

    Stage Select -
    Allows you to pick the stage to fight on. -
    Use the arrow keys to highlight a stage, press Space to select it. -
    Note: This option is disabled untill you first fight through all of the stages. - - -

    Build Fighter -
    Opens the Build Fighter Window (See below). - -

    Settings -
    Opens the Settings Window (See below). - -

    Load/Save -
    Let's you Load, Save, Delete, Reset all of your settings, including the current stage and your built fighter. - -

    Demo Mode -
    AI controls both fighters on one of the first three stages. - -

    Restart -
    Restarts SFB2 (You will lose your settings if you haven't saved them). - -

    Quit -
    If your some odd reason your done playing SFB2 select this. - -


    -BUILD FIGHTER - -

    - The ability to Build your character is something a bit new to most fighting games. In SFB2 you don't select from a handful of per-made characters. Instead you build one using a verity of parts. Each of which have different attributes. -

    Build Fighter Window (Alpha)
    - Building is as easy as selecting a type and color for each body part. To the right of the window is a realtime image of your fighter (and perhaps a little more). As you make selections they will be displayed here. -
    By selecting MORE you can toggle between two menus. The other menu has the less important options, Name, Hair, etc. The Opponent Colors option which may be set to Multi or Solid. This won't take effect until the beginning of the next match. Because the computer isn't always the best at picking descent war paint you may want to set this to Solid. - - -


    -SETTINGS - -

    Screen resolution -
    Let's select from three screen modes, the uglier the faster. - -

    Frame Skipping -
    Let's you trade smooth animation for speed. Select no skipping only if you have a high-end system. -
    This greatly effects perfomance. - -

    Game Speed -
    If your computer is so damn powerful the game runs too fast, you can slow it down here. - -

    Clear Method -
    Normally you'll want to leave this alone. It selects how Slash should go about clearing the screen before it starts rendering the graphics. There are a few modes to choose from but the only two that you'd normally want to use are CLS or LINE, which have the same effect but one may be faster then the other on some systems. - -

    Stars -
    Select how many stars to display. This can greatly effect performance on some stages. - -

    Particles -
    The maximum number of particles that may be displayed at a time. -
    Select from Zero to 90. - -

    i16 Images -
    There are three settings for the i16 Images, -
    Show All - Always shows i16 images -
    Don't show on Stage select - Shows all i16 except on the stage select screens. -
    No i16 - Never shows i16 images - -

    Graphic Details -
    Selecting low details will disable some graphic details to speed up the game. There are four categories, Stage, Fighters, HUD, and Smears. -
    Stage - The background graphics -
    Fighters - The detail of the Fighters -
    HUD - Extra eye candy in the health bars etc. -
    Smears - The mess that results on the floor - -

    Sound -
    Here you can turn the sound off or select the Sound Quality. - -

    - - - - - -

    Technical

    - -Slash - -

    About the game itself: - -

    SFB2: Vector Warriors was coded in 100% BASIC using QBASIC Extended. -It's built on the Slash 3D game engine which was also made by me. -Slash allows for 3D wireframe graphics, Sound Blaster FM sound, Particles, -and many other goodies to make life easier on the programmer. -
    The source code to Slash will/was release(d) a little after SFB2 with info -on how to make your own Slash based games. More info on Slash may be -downloaded from my website. - -

    Running SFB2: - -

    The game is not compiled, but comes with QBx.EXE which is used to run the -game. You do not need to have a full version of BASIC installed on your -system to run SFB2. -
    Running the file SFB2.BAT will launch QBx and run the game. To exit the -game simply press Esc and select Quit to be returned back to your operating -system. Before Running the game using QBx.exe please review QBx.txt for some legal dirt. - - -

    Performance: - -

    A Pentium is highly recommended to run at an acceptable speed. -
    SFB2 has only been tested under Windows 9x however, it run may run up to twice as fast in DOS [Mode]. -
    A writable C:\ is needed for a path info file, however this file is not required. -
    100% Sound Blaster Compatible sound cards are also supported but only using standard settings. - - -

    Here's what to do if the game runs like shit. -
    Press Esc and select Settings to open the Settings Window. -
    The following settings effect game speed the most; -
    -
    Game Speed -
    Screen Resolution -
    Frame Skipping -
    Stars -
    Particles - -

    By settings these Low (fast) you should be able to increase game speed. -
    Try messing with all the settings to fine tune a balance between speed and -pretty graphics and don't forget to save your settings in the Options menu! - - -

    DOS Mode VS. Win9x: -

    Running the game in DOS can greatly improve it's speed. The down side is you may not have enough conventional memory to run it and you may not get any sound. -
    Win9x runs slower but has much less hassle and generally supplies the memory required. - - -

    Troubleshooting: -

    In the event on an error Slash will display a message. In most cases is can figure out what's wrong and tell you how to resolve the problem. -If it's unable to determine the cause of the error it will respond Unknown. Unknown errors tend to prevent the program from running since there's no known remedy. -
    When presented with an error you will see at the top of the screen a discription of what probably happened, what Slash can do about it, as well as what you should do. -
    Sometimes if you install a new version of the game over another version there are problems with the SLASH.DAT file. If something's wrong with this file a variety of weird stuff may result. If you ever suspect something wrong with it it's recommended that you delete it (Press D). -
    When Slash can't find this file or it's a bad version it will allow you to run using default settings. You can then choose new settings and save a new SLASH.DAT file. -

    If all seems hopless you may e-mail me and I'll see what I can do. If you do, make sure to include the version number. - -

    Common Error Message
    - -See also: -
    FAQ - - -
    - - - - -

    Credits

    - -

    Everything that went into this game is credited to me (Kevin Reems a.k.a. LBt1st) with the -exceptions of the following, - -

    Sound: -
    Bostrom Design is responsible for the original sound code, which was edited and used with permission. - -

    Stage Concepts: -
    Stage-09 Steve Arntzen -
    Stage-10 Russell Dubay -
    Stage-11 Tsugumo -
    Stage-12 Tsugumo - -

    Beta Testing: -
    Magik -
    Pyrus -
    Skywise -
    Tsugumo -
    And probably some others... - -

    Promotion: -
    Nekrophidius -
    Pyrus -
    RATM Boy -
    Tsugumo - -

    Special Thanx to: -
    Steve Arntzen -
    Russell Dubay -
    Hydroxide -
    Pyrus -
    RATM Boy -
    Skywise -
    Tsugumo -
    Tofu -
    And the rest of "The BASIC Big Guns". - - -
    Everyone else who has supported me over the years with this project. -
    All the people I forgot to mention above. -
    The Guys at Netscape, for bringing us Layers which has made this Guide much cleaner. - - - - - - -

    Outro

    - - Thank you for taking the time to read this. I hope you enjoy playing SFB2: Vector Warriors as much as I did creating it. I feel it's one of the most complete games ever written in BASIC and am proud to prove that BASIC still lives. Any questions or comments may be directed to, -
    lbt1st@cyberdude.com - -

    As of this writing my URL is, -
    http://surf.to/expression - - -

    Thanx - October 1998
    - -
    - - - - - - - - - \ No newline at end of file diff --git a/programs/samples/qb45com/action/sfb2/sfb2.bas b/programs/samples/qb45com/action/sfb2/sfb2.bas deleted file mode 100644 index a5bddbe34..000000000 --- a/programs/samples/qb45com/action/sfb2/sfb2.bas +++ /dev/null @@ -1,10816 +0,0 @@ -CHDIR ".\programs\samples\qb45com\action\sfb2" - -' SFB2:Vector Warriors ` -' by Kevin Reems ` -' 1997--1998 ` -' Created Using, ` -' The Slash Engine by Kevin Reems 1997-1998 ` -'----------------------------------------------------------------------------` -'Press F5 To Play ` -' ` -'Kevin Reems a.k.a. LBt1st - lbt1st@cyberdude.com ` -' Please View SFB2 Guide Part-A.html ` -' ` -' ` -' ` -' ` -' ` -' ` -' ` -'----------------------------------------------------------------------- SFB2 - -DECLARE SUB AIsuper (pc%, po%) -DECLARE SUB AIfighter (pc%) -DECLARE SUB AIspecial (pc%, po%) -DECLARE SUB AI (pc%) -DECLARE SUB fightername (n%) -DECLARE SUB options () -DECLARE SUB settings () -DECLARE SUB setdetails () -DECLARE SUB ringout (n) -DECLARE SUB floors () -DECLARE SUB splash (n) -DECLARE SUB fighterpop (n) -DECLARE SUB fightergoo (wee, d) -DECLARE SUB fighterfreeze (wee) -DECLARE SUB fightercompress (n%) -DECLARE SUB fighterpositions () -DECLARE SUB fighterinit () -DECLARE SUB fighterender () -DECLARE SUB fightermove () -DECLARE SUB ringoutext (n) -DECLARE SUB fighterlimits () -DECLARE SUB projectiles () -DECLARE SUB projectilerender () -DECLARE SUB setdelay () -DECLARE SUB smear (x%, y%, Z, c%) -DECLARE SUB smearender () -DECLARE SUB stagewindow (mode%) -DECLARE SUB ocasional () -DECLARE SUB camtracking () -DECLARE SUB newmatch () -DECLARE SUB Conclusion () -DECLARE SUB setfightercpu () -DECLARE SUB setfighter () -DECLARE SUB fall (n) -DECLARE SUB nokey () -DECLARE SUB jump (n%, T%) -DECLARE SUB setbody (n%) -DECLARE SUB setko (n) -DECLARE SUB keycheck () -DECLARE SUB decap (n%) -DECLARE SUB fades () -DECLARE SUB fighterdirect () -DECLARE SUB rain2d (c1%, c2%, c3%, l!) -DECLARE SUB rain3d (x1!, y1!, z1!, x2!, y2!, z2!, c1%, c2%, c3%, l!) -DECLARE SUB setstagename (n%) -DECLARE SUB AIgetclose (pc%, po%) -DECLARE SUB AIdefend (pc%, po%) -DECLARE SUB AIattack (pc%, po%) - - - -'------------------------------------------------- Perspective Space Commands - -DECLARE SUB pspoint (x, y, Z) : ' Point - -DECLARE SUB pspset (x, y, Z, c%) : ' Pset - -DECLARE SUB psdpset (x, y, z1, z2, c%) : ' Deep Pset - -DECLARE SUB psline (x1, y1, z1, x2, y2, z2, c%, B%) : ' Line - -DECLARE SUB psdline (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%, B%) : 'Deep Line - -DECLARE SUB pscline (x1, y1, z1, x5, y5, z5, r, c%) : ' Circle Line - -DECLARE SUB pslightning (x1, y1, z1, x5, y5, z5, r, c%) : ' Lightning - -DECLARE SUB pscircle (x, y, Z, r1, c%) : ' Circle - -DECLARE SUB pscube (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%) : ' Cube - -DECLARE SUB psmark1 (x, y, Z, c1%, c2%, c3%) : ' Mark1 - -DECLARE SUB psmark2 (x, y, c1%, c2%, c3%) : ' Mark2 - -DECLARE SUB particle (x, y, Z, T%, Q%) : ' Spawn particle(s) -DECLARE SUB particle2 (x, y, Z, T%, Q%) : ' Continued Spawning -DECLARE SUB particlerender () : ' Render particles% - -DECLARE SUB setparticles () : ' Particle Options -DECLARE SUB particlerender () : ' Renders particles% -DECLARE SUB particlemove () : ' Moves them -DECLARE SUB particleclear () : ' Clears them -DECLARE SUB decay () : ' Kill them - - -'------------------------------------------------------------- Slash Commands - -'Sound -DECLARE FUNCTION DetectCard% () -DECLARE SUB sbinit () -DECLARE SUB SBplay (Freq%, Wave%, Feedback%, Modl%, Clen%) -DECLARE SUB SBWrite (Reg%, Value%) -DECLARE SUB sbfx (fxx%) - -'Set Sound Options -DECLARE SUB setsound () - -'Clear Space For Text -'open -DECLARE SUB smallwindow () -DECLARE SUB bigwindow () -'close -DECLARE SUB csmallwindow () -DECLARE SUB cbigwindow () - -'Let User Load/Save/Reset -DECLARE SUB loadsave () - -'n = 1 Load n = 2 Save n = 3 Reset Defaults -'mode% = n: CALL file -DECLARE SUB file () - -'Change Screen Resolution -DECLARE SUB setrez () - -'Change Clear Method -DECLARE SUB setcmethod () - -'Change frameskip% -DECLARE SUB setframeskip () - -'Change Stage% -DECLARE SUB setstage () - -'Apply Movement to Camera -DECLARE SUB movecam () - -'Exit the Program -DECLARE SUB quit () - -'Window x/y -DECLARE SUB winxwiny () - -'Slash Mud -DECLARE SUB mud () - -'Temporary Blur -DECLARE SUB blur (l%) - -'Reset Camera Defaults -DECLARE SUB camdefaults () - -'Page Flip -DECLARE SUB pflip () - -'Clear Screen -DECLARE SUB clearscreen () - -'Block Clearing -DECLARE SUB clsblock (n) - -'Pauses -DECLARE SUB pause () - -'Waits for Input After an Error Trap -DECLARE SUB errorkey () - -'2D Stars -DECLARE SUB stars2d (c1%, c2%, c3%) - -'3D Stars -DECLARE SUB stars3d (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%) - -'Offset the Stars -DECLARE SUB starsoffset (x, y) - -'Randomize Stars -DECLARE SUB starsrnd () - -'Set Number of Stars -DECLARE SUB setstars () - -'Sets defaults for the current stage -DECLARE SUB stageinit () - -'Stage Shifting -DECLARE SUB stageshifting () - -'Render current stage -DECLARE SUB stagebackground () -DECLARE SUB stageforground () - -'Display i16 Image -DECLARE SUB i16 (x, y, x2, y2, F$) -DECLARE SUB seti16 () - -'Get path$ from file -DECLARE SUB getpath () - -'Set path$ -DECLARE SUB setpath () - -'Render Something on Page 2 -DECLARE SUB page2 () - -'Test the Video Pages -DECLARE SUB pagetest () - -'Define Window for 2D or 3D Mode -DECLARE SUB window2d () -DECLARE SUB window3d () - -'----------------------------------------------------------- Shared Variables - -COMMON SHARED stars1x, stars1y, stars1z, stars2x, stars2y, stars2z, stars3x, stars3y, stars3z -COMMON SHARED zoom, zoomd, zoomt, panx, pany, panh, panv, midx%, midy%, winx, winy, rez%, xx1, xx2, yy1, yy2, wx, wy, wz, ringoutt%, ringoutp%, victory%, control%, pointc%, refreash, flimits%, dist%, dif%, AImoved% -COMMON SHARED restart%, frameskip%, cmethod%, cfreq%, blurr%, csave%, nstars%, stage%, bob, flash1%, flash2%, flash3%, ver$, trigger1, trigger2, trigger3, solidc%, tpause%, bgcolor% -COMMON SHARED gravity, particles%, floor1, floor2, floor3, fault$, setback%, mode%, odds%, ticker%, bobm, midstage, camode%, i16m%, smears%, stagemode%, stages%, delay%, walkx, stagename$ -COMMON SHARED sbsound%, P1d, P2d, soundticker%, soundwait%, path$, wee$, hfade%, ctime%, clsb%, pflip1%, pflip2%, ring%, startfight%, stageset%, stagedetail%, fighterdetail%, hudetail% - -ON ERROR GOTO 8 -fault$ = "dim" - -'------------------------------------------------------------------- Fighters -DIM SHARED hairt%(1 TO 2) -DIM SHARED hairl%(1 TO 2) -DIM SHARED hairc%(1 TO 2) -DIM SHARED hairx(1 TO 10) -DIM SHARED hairy(1 TO 10) - -DIM SHARED projectile%(1 TO 6) -DIM SHARED projectilex(1 TO 6) -DIM SHARED projectiley(1 TO 6) -DIM SHARED projectileh(1 TO 6) -DIM SHARED projectilev(1 TO 6) -DIM SHARED projectilet%(1 TO 6) - -DIM SHARED name$(1 TO 2) -DIM SHARED walkx(1 TO 2) -DIM walkh(1 TO 2) -DIM SHARED health%(1 TO 2) -DIM SHARED maxhp%(1 TO 2) -DIM SHARED hpslide%(1 TO 2) -DIM SHARED sdelay%(1 TO 2) -DIM SHARED ko(1 TO 2) -DIM SHARED koslide%(1 TO 2) -DIM SHARED AIactive%(1 TO 2) -DIM SHARED AIhs%(1 TO 2) -DIM SHARED AIhm%(1 TO 2) -DIM SHARED AIhl%(1 TO 2) -DIM SHARED AIhh%(1 TO 2) -DIM SHARED AIfs%(1 TO 2) -DIM SHARED AIfm%(1 TO 2) -DIM SHARED AIfl%(1 TO 2) -DIM SHARED AIfh%(1 TO 2) - -DIM SHARED ahpow%(1 TO 2) -DIM SHARED akpow%(1 TO 2) -DIM SHARED lhpow%(1 TO 2) -DIM SHARED lkpow%(1 TO 2) - -DIM SHARED hc%(1 TO 2) -DIM SHARED kc%(1 TO 2) - -DIM SHARED attackok%(1 TO 2) -DIM SHARED rage(1 TO 2) -DIM SHARED vexed%(1 TO 2) -DIM SHARED ragecharge(1 TO 2) -DIM SHARED razers%(1 TO 2) -DIM SHARED kocharge(1 TO 2) -DIM SHARED win%(1 TO 2) -DIM SHARED combo%(1 TO 2) -DIM SHARED combol%(1 TO 2) -DIM SHARED Special%(1 TO 2) - -DIM SHARED headless%(1 TO 2) -DIM SHARED hx(1 TO 2) -DIM SHARED hy(1 TO 2) -DIM SHARED hh(1 TO 2) -DIM SHARED hv(1 TO 2) - -DIM SHARED canjump%(1 TO 2) -DIM SHARED position%(1 TO 2) -DIM SHARED d%(1 TO 2) -DIM SHARED ds%(1 TO 2) -DIM SHARED pticker%(1 TO 2) -DIM SHARED psaver%(1 TO 2) - -DIM SHARED fighterz(1 TO 2) -DIM SHARED fighterd(1 TO 2) - -DIM SHARED headx(1 TO 4) -DIM SHARED neckx(1 TO 4) -DIM SHARED buttx(1 TO 4) -DIM SHARED elbow1x(1 TO 4) -DIM SHARED elbow2x(1 TO 4) -DIM SHARED hand1x(1 TO 4) -DIM SHARED hand2x(1 TO 4) -DIM SHARED nee1x(1 TO 4) -DIM SHARED nee2x(1 TO 4) -DIM SHARED foot1x(1 TO 4) -DIM SHARED foot2x(1 TO 4) - -DIM SHARED heady(1 TO 4) -DIM SHARED necky(1 TO 4) -DIM SHARED butty(1 TO 4) -DIM SHARED elbow1y(1 TO 4) -DIM SHARED elbow2y(1 TO 4) -DIM SHARED hand1y(1 TO 4) -DIM SHARED hand2y(1 TO 4) -DIM SHARED nee1y(1 TO 4) -DIM SHARED nee2y(1 TO 4) -DIM SHARED foot1y(1 TO 4) -DIM SHARED foot2y(1 TO 4) - -DIM SHARED headh(1 TO 2) -DIM SHARED neckh(1 TO 2) -DIM SHARED butth(1 TO 2) -DIM SHARED elbow1h(1 TO 2) -DIM SHARED elbow2h(1 TO 2) -DIM SHARED hand1h(1 TO 2) -DIM SHARED hand2h(1 TO 2) -DIM SHARED nee1h(1 TO 2) -DIM SHARED nee2h(1 TO 2) -DIM SHARED foot1h(1 TO 2) -DIM SHARED foot2h(1 TO 2) - -DIM SHARED headv(1 TO 2) -DIM SHARED neckv(1 TO 2) -DIM SHARED buttv(1 TO 2) -DIM SHARED elbow1v(1 TO 2) -DIM SHARED elbow2v(1 TO 2) -DIM SHARED hand1v(1 TO 2) -DIM SHARED hand2v(1 TO 2) -DIM SHARED nee1v(1 TO 2) -DIM SHARED nee2v(1 TO 2) -DIM SHARED foot1v(1 TO 2) -DIM SHARED foot2v(1 TO 2) - -'Body Part Types -DIM SHARED head%(1 TO 2) -DIM SHARED body%(1 TO 2) -DIM SHARED arms%(1 TO 2) -DIM SHARED hands%(1 TO 2) -DIM SHARED legs%(1 TO 2) -DIM SHARED feet%(1 TO 2) - -'Body Part Colors -DIM SHARED headc%(1 TO 2) -DIM SHARED bodyc%(1 TO 2) -DIM SHARED armsc%(1 TO 2) -DIM SHARED handsc%(1 TO 2) -DIM SHARED legsc%(1 TO 2) -DIM SHARED feetc%(1 TO 2) - -'------------------------------------------------------------------ Particles -DIM SHARED p%(1 TO 90) -DIM SHARED pk%(1 TO 90) -DIM SHARED pg%(1 TO 90) -DIM SHARED pf%(1 TO 90) -DIM SHARED px(1 TO 90) -DIM SHARED py(1 TO 90) -DIM SHARED pz(1 TO 90) -DIM SHARED ph(1 TO 90) -DIM SHARED pv(1 TO 90) -DIM SHARED pd(1 TO 90) -DIM SHARED pc1%(1 TO 90) -DIM SHARED pc2%(1 TO 90) -DIM SHARED pc3%(1 TO 90) - -'---------------------------------------------------------------------- Stars -DIM SHARED stars1x(1 TO 20) -DIM SHARED stars1y(1 TO 20) -DIM SHARED stars1z(1 TO 20) -DIM SHARED stars2x(1 TO 20) -DIM SHARED stars2y(1 TO 20) -DIM SHARED stars2z(1 TO 20) -DIM SHARED stars3x(1 TO 20) -DIM SHARED stars3y(1 TO 20) -DIM SHARED stars3z(1 TO 20) - -'--------------------------------------------------------------- Blood Smears -DIM SHARED smearl%(1 TO 10) -DIM SHARED smearx%(1 TO 10) -DIM SHARED smeary%(1 TO 10) -DIM SHARED smearz(1 TO 10) -DIM SHARED smearc%(1 TO 10) - - - - -'---------------------------------------------------------------------------- -'Begin the Program Begin the Program` -'---------------------------------------------------------------------------- - - - -'----------------------------------------------------------------- Disclaimer -SCREEN 8 -COLOR , 0 -c% = 4 -FOR wee = 1 TO 6 - COLOR c%, 0 - LOCATE 10, 36 - PRINT "WARNING:" - PRINT "" - PRINT "SFB2: Vector Warriors Contains Graphic Violence And Gore That May Be Offending." - LOCATE 14, 27: PRINT "Player Discretion Advised." - - SELECT CASE wee - CASE IS = 1: c% = 12 - CASE IS = 2: c% = 15 - CASE IS = 3: c% = 12: SLEEP 3 - CASE IS = 4: c% = 4 - CASE IS = 5: c% = 0 - END SELECT - FOR d% = 0 TO 15000: NEXT d% -NEXT wee - - - -'---------------------------------------------------------------------------` -'Init ----------------------------------------------------------------- Init` -'---------------------------------------------------------------------------` - -4 -CLEAR -fault$ = "init" - -'------------------------------------+ * -'Error And Version Information -ON ERROR GOTO 8: e% = 1 -ver$ = "1.00" -'------------------------------------+ * - -'Show Error Detection Message -IF e% = 0 THEN - LOCATE 1, 1 - COLOR 15 - PRINT "Error Detection is OFF" - SLEEP -END IF - -RANDOMIZE (TIMER) - -'Set NumLock to ON -DEF SEG = 0 -KeyFlags = PEEK(1047) -POKE 1047, KeyFlags OR 32 -IF (KeyFlags AND 32) = 0 THEN DEF SEG: DEF SEG = 0 - - - -'---------------------------------------------------------------------------` -'Defaults -=======================================================- Defaults` -'---------------------------------------------------------------------------` - - - -'-------------------------+ Required by Slash -getpath -mode% = 1: file -setback% = 0 -starsrnd -pflip1% = 1 -flash1% = 1 -mud -camdefaults -IF sbsound% = 1 THEN sbinit - -'-------------------------+ Required by Program -stagemode% = 1 -stages% = 15 -setfightercpu -stageinit -walkh(1) = .5 -walkh(2) = .5 - -'---------------------------------------------------------------------------` -'End Defaults -===============================================- End Defaults` -'---------------------------------------------------------------------------` - - -'-------------------------- Ready Screen for Slash -IF rez% <> 1 AND rez% <> 7 AND rez% <> 9 AND rez% <> 12 THEN rez% = 9 -SCREEN rez% -window3d - - -'--------------------- Clear Vars. -fault$ = "" -wee$ = "" -neckx(3) = -50 -neckx(4) = 50 - - - -'---------------------------------------------------------------------------- -'Start Loop ===================================================== Start Loop` -'---------------------------------------------------------------------------- -DO - - - - - - '--------------------- - IF restart% = 1 THEN - restart% = 0 - SCREEN , 1, 1 - CLS - SCREEN , 0, 0 - CLS - GOTO 4 - END IF - - - '---------------------------------------------------------- Alternating Vars. - IF odds% = 0 THEN odds% = 1 ELSE odds% = 0 - - FOR pc1 = 1 TO 2 - IF walkx(pc1) < 0 THEN walkh(pc1) = .8 - IF walkx(pc1) > 4 THEN walkh(pc1) = -.8 - walkx(pc1) = walkx(pc1) + walkh(pc1) - NEXT pc1 - - - '--------------------- - SELECT CASE flash1% - - CASE IS = 9 - flash1% = 1 - flash2% = 9 - flash3% = 4 - - CASE IS = 1 - flash1% = 9 - flash2% = 15 - flash3% = 12 - END SELECT - - '--------------------- - IF bob < 0 THEN bobm = bobm + .01 ELSE bobm = bobm - .01 - bob = bob + bobm - - '--------------------- - IF soundticker% > 0 THEN soundticker% = soundticker% - 1 - - - - '----------------------------------------------------------- Keyboard Control - IF wee$ <> "" THEN - DEF SEG = &H40 - POKE &H1A, PEEK(&H1C) - END IF - - wee$ = UCASE$(INKEY$) - - 'Disable Kicks for Demize - IF legs%(1) = 666 THEN - IF wee$ = "A" THEN wee$ = "Q" - IF wee$ = "S" THEN wee$ = "W" - END IF - - SELECT CASE wee$ - - 'Game Functions - CASE IS = CHR$(27): options - CASE IS = "P": pause - - END SELECT - - '-------------------------------------------------------------------- Control - IF position%(1) = 1 OR position%(1) = 12 THEN attackok%(1) = 1 ELSE attackok%(1) = 0 - IF position%(2) = 1 OR position%(2) = 12 THEN attackok%(2) = 1 ELSE attackok%(2) = 0 - - IF control% = 1 AND AIactive%(1) = 0 AND wee$ <> "" THEN - - 'Convert Extra Keys To Standard Commands - SELECT CASE wee$ - CASE IS = CHR$(0) + "H": wee$ = "8" - CASE IS = CHR$(0) + "K": wee$ = "4" - CASE IS = CHR$(0) + "P": wee$ = "5" - CASE IS = CHR$(0) + "M": wee$ = "6" - CASE IS = "2": wee$ = "5" - END SELECT - - 'Standard Commands - - IF Special%(1) = 0 THEN - 'Normal Moves - SELECT CASE wee$ - CASE IS = "Q": IF attackok%(1) = 1 AND pticker%(1) > 2 THEN position%(1) = 2 - CASE IS = "W": IF position%(1) = 1 AND pticker%(1) > 5 THEN position%(1) = 3 ELSE IF position%(1) = 12 THEN position%(1) = 13 - CASE IS = "A": IF attackok%(1) = 1 AND pticker%(1) > 2 THEN position%(1) = 5 - CASE IS = "S": IF attackok%(1) = 1 THEN position%(1) = 6 - END SELECT - ELSE - 'Special Moves - SELECT CASE wee$ - CASE IS = "Q" - SELECT CASE hands%(1) - CASE 1, 666: IF projectile%(1) = 0 THEN position%(1) = 30 - CASE 2: position%(1) = 31 - CASE 3: position%(1) = 32 - CASE 4, 1998: position%(1) = 33 - CASE 5: IF projectile%(1) = 0 THEN position%(1) = 34 - END SELECT - CASE IS = "W" - SELECT CASE hands%(1) - CASE 1, 666: IF projectile%(2) = 0 THEN position%(1) = 35 - CASE 2: position%(1) = 36 - CASE 3: position%(1) = 37 - CASE 4: position%(1) = 38 - CASE 5: position%(1) = 39 - CASE 1998: position%(1) = 82 - END SELECT - CASE IS = "A" - SELECT CASE feet%(1) - CASE 1: position%(1) = 40 - CASE 2: position%(1) = 41 - CASE 3: position%(1) = 42 - CASE 4: position%(1) = 43 - CASE 5: position%(1) = 44 - END SELECT - CASE IS = "S" - SELECT CASE feet%(1) - CASE 1: position%(1) = 45 - CASE 2: IF pticker%(1) > 25 THEN position%(1) = 46 - CASE 3: IF canjump%(1) = 1 THEN position%(1) = 47 - CASE 4: position%(1) = 48 - CASE 5: position%(1) = 49 - END SELECT - END SELECT - END IF - - 'Supers - IF wee$ = "D" AND rage(1) >= 100 AND attackok%(1) = 1 AND pticker%(1) > 5 THEN - SELECT CASE body%(1) - CASE 1: position%(1) = 81 - CASE 2: position%(1) = 82 - CASE 3: position%(1) = 83 - CASE 4: position%(1) = 84 - CASE 5: position%(1) = 85 - CASE 6: IF position%(1) = 1 THEN position%(1) = 86 - CASE 7: IF position%(1) = 1 THEN position%(1) = 87 - CASE 8: position%(1) = 88 - CASE 666: position%(1) = 36 - END SELECT - END IF - - SELECT CASE wee$ - CASE IS = "4": IF canjump%(1) = 1 THEN butth(1) = butth(1) - .5: IF butth(1) > 0 THEN butth(1) = 0 - CASE IS = "6": IF canjump%(1) = 1 THEN butth(1) = butth(1) + .5: IF butth(1) < 0 THEN butth(1) = 0 - CASE IS = "7": jump (1), 1 - CASE IS = "8": jump (1), 2 - CASE IS = "9": jump (1), 3 - CASE IS = "5": IF canjump%(1) = 1 THEN position%(1) = 12 - CASE IS = "E": IF Special%(1) = 0 THEN Special%(1) = 1 ELSE Special%(1) = 0 - CASE IS = "R", " ": IF attackok%(1) = 1 AND pticker%(1) > 10 THEN position%(1) = 99 - - END SELECT - END IF - - - '---------- AI - IF control% = 1 THEN - dist% = ABS(buttx(1) - buttx(2)) - IF AIactive%(1) = 1 AND attackok%(1) = 1 THEN AI 1 - IF AIactive%(2) = 1 AND attackok%(2) = 1 THEN AI 2 - END IF - - - - - '----------------------------------------------------------------------- Misc - - 'Show Ready, Begin Stuff - IF ticker% = startfight% AND stage% <> 1000 THEN showbegin% = 50 - IF showbegin% > 0 THEN showbegin% = showbegin% - 1: COLOR 15: LOCATE 22, 1: PRINT stagename$ - IF showbegin% > 30 THEN COLOR 4: LOCATE 4, 38: PRINT "Ready" - IF showbegin% > 0 AND showbegin% < 25 THEN COLOR 12: LOCATE 4, 38: PRINT "Begin!": control% = 1 - - - 'Run the Ocasional SUB - occ% = occ% + 1: IF occ% > 5 THEN occ% = 0: ocasional - - '------------------------------------+ - FOR wee = 1 TO 2 - - 'Bleed when low on health - IF health%(wee) < RND * 50 AND RND < .5 THEN particle (headx(wee + 2)), (heady(wee + 2) + (RND * 30)), (fighterz(wee)), 0, 1 - - - 'Gush blood when headless - IF headless%(wee) = 1 THEN - IF ABS(butty(wee) - necky(wee + 2)) > 5 THEN particle (neckx(wee + 2)), (necky(wee + 2) - 5), fighterz(wee), 2, 1 - END IF - - - 'Fall When KO or Dead - IF health%(wee) <= 0 OR ko(wee) <= 0 THEN - ocasional - Conclusion - IF position%(wee) < 8 OR position%(wee) > 11 THEN fall (wee) - END IF - - 'Keep health & ko within limits - IF health%(wee) < 0 THEN health%(wee) = 0 - IF ko(wee) < 0 THEN ko(wee) = 0 - IF rage(wee) > 100 THEN rage(wee) = 100 - - '-------------------------------------------------------------+ - IF ticker% = 1 THEN - SELECT CASE stage% - CASE 1 - fighterfreeze (wee) - position%(wee) = 0 - CASE 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 1000 - position%(wee) = 1 - END SELECT - END IF - '-------------------------------------------------------------+ - - 'Combo Life - IF combol%(wee) > 0 THEN - combol%(wee) = combol%(wee) - 1 - IF combol%(wee) = 0 THEN combo%(wee) = 0 - END IF - - NEXT wee - - - - '-------------------------------------------------------------- Get Framerate - cyc% = cyc% + 1 - IF TIMER - time > .6 THEN - refreash = cyc% - cyc% = 0 - time = TIMER - - END IF - - - '--------------------------------------------------------------------- Camera - camtracking - movecam - - '----------------------------------------------------------------- Move Stuff - fighterpositions - floors - fightermove - projectiles - IF odds% = 1 THEN particlemove - - - - - '---------------------------------------------------------------------------` - '==================================================================== Display - '---------------------------------------------------------------------------` - - 'Color Fades - fades - - 'Stage Shifting - stageshifting - - 'Page Flipping - IF newdisplay% = 1 THEN newdisplay% = 0: pflip - - 'Temporary Pausing - IF tpause% > 0 THEN tpause% = tpause% - 1: COLOR , 0: SLEEP 1 - - 'Object Life Decaying - decay - - 'Frame Skipping - 'norender% = norender% + 1 - 'IF norender% < frameskip% AND blurr% = 0 THEN 3 ELSE norender% = 0 - - 'Delays - 'FOR wee = 0 TO delay%: NEXT wee - 'flicker = TIMER: DO UNTIL TIMER - flicker > .00001: LOOP - _LIMIT 25 - - 'Clear Screen - clearscreen - - - '============================================================ Render Graphics - - 'Draw Background Image If In Screen 8 - 'IF rez% = 8 THEN PCOPY 2, pflip1% - - 'Background - stagebackground - - 'Render Smears - IF smears% = 1 THEN smearender - - 'Render Fighters - fighterender - - 'Render projectiles - projectilerender - - 'Render particals - IF particles% > 0 THEN particlerender - - 'Forground - stageforground - - newdisplay% = 1 - - 3: '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- End of 3D Graphics - - - '------------------------------------------------------------------------ HUD - fault$ = "hud" - window2d - - 'Show VS. Info - IF ticker% < startfight% + 50 THEN - COLOR 15 - IF rez% > 7 THEN - LOCATE 3: PRINT name$(1) - LOCATE 3, 40: PRINT "VS." - LOCATE 3, 70: PRINT name$(2) - ELSE - LOCATE 4: PRINT name$(1) - LOCATE 4, 20: PRINT "VS." - LOCATE 4, 30: PRINT name$(2) - END IF - END IF - - 'refreash rate - LINE (15, 0)-(30, 0), 7, , &H1010 - LINE (20, 0)-(25, 0), 7, , &H101 - IF refreash < 15 OR refreash > 30 THEN c% = 12 ELSE c% = 9 - LINE (refreash - .5, 0)-(refreash + .5, 0), c% - PSET (refreash, 0), 15 - - '--------------------------------------+ - hs1% = 45 - (hpslide%(1) / 4.66) - ks1% = 45 - (koslide%(1) / 2.33) - h1% = 45 - (health%(1) / 4.66) - k1 = 45 - (ko(1) / 2.33) - - hs2% = 55 + (hpslide%(2) / 4.66) - ks2% = 55 + (koslide%(2) / 2.33) - h2% = 55 + (health%(2) / 4.66) - k2 = 55 + (ko(2) / 2.33) - - - '--------------------------------------- Damage Bars - - 'Health - IF h1% < 45 THEN - LINE (hs1%, 2.5)-(h1%, 3.3), flash3%, BF - LINE (h1%, 2)-(45, 4), hc%(1), BF - END IF - - IF h2% > 55 THEN - LINE (h2%, 2.5)-(hs2%, 3.3), flash3%, BF - LINE (55, 2)-(h2%, 4), hc%(2), BF - END IF - - 'KO - IF k1 < 45 THEN - LINE (ks1%, 5.5)-(k1, 6.3), flash3%, BF - LINE (k1, 5)-(45, 7), kc%(1), BF - END IF - - IF k2 > 55 THEN - LINE (ks2%, 5.5)-(k2, 6.3), flash3%, BF - LINE (55, 5)-(k2, 7), kc%(2), BF - END IF - - '--------------------------------------- Eye Candy - IF hudetail% = 1 THEN - LINE (45, 1)-(55, 8), 15 - LINE (45, 8)-(55, 1), 15 - - LINE (0, 1.2)-(44, 1.2), 8 - LINE (0, 8.3)-(44, 8.3), 8 - LINE (56, 1.2)-(100, 1.2), 8 - LINE (56, 8.3)-(100, 8.3), 8 - - LINE (0, 1)-(45, 1), 7 - LINE (0, 8)-(45, 8), 7 - LINE (55, 1)-(100, 1), 7 - LINE (55, 8)-(100, 8), 7 - - LINE (0, .7)-(44, .7), 15 - LINE (0, 7.7)-(44, 7.7), 15 - LINE (56, .7)-(100, .7), 15 - LINE (56, 7.7)-(100, 7.7), 15 - END IF - - - 'Rage - IF hudetail% = 1 THEN - LINE (45 - (rage(1) / 2.5), 97.5)-(55 + (rage(2) / 2.5), 97.5), flash1% - IF rage(1) = 100 THEN LINE (5, 96.8)-(45, 96.8), flash2% - IF rage(2) = 100 THEN LINE (55, 96.8)-(95, 96.8), flash2% - LINE (45, 96.5)-(55, 96.5), 8 - LINE (45, 97.5)-(55, 97.5), 7 - LINE (45, 97.8)-(55, 97.8), 8 - - 'Health Overlays - LINE (44 - (maxhp%(1) / 4.66), 2)-(45, 4), 7, B - LINE (55, 2)-(56 + (maxhp%(2) / 4.66), 4), 7, B - - 'KO Overlays - LINE (2, 5)-(45, 7), 7, B - LINE (55, 5)-(98, 7), 7, B - - END IF - - 'Rage Meter - LINE (45, 96.8)-(55, 96.8), 7 - LINE (45 - (rage(1) / 2.5), 97)-(55 + (rage(2) / 2.5), 97), 15 - - - 'Special Boxes - IF Special%(1) = 1 THEN LINE (0, 96)-(5, 98), flash1%, BF - LINE (0, 96)-(5, 98), 7, B - IF Special%(2) = 1 THEN LINE (95, 96)-(100, 98), flash1%, BF - LINE (95, 96)-(100, 98), 7, B - - - 'Win Icons - IF win%(1) > 0 THEN - LINE (47, 3.5)-(47, 5.5), 12 - LINE (46.3, 5)-(47.5, 5), 12 - END IF - - IF win%(2) > 0 THEN - LINE (52.7, 3.5)-(52.7, 5.5), 12 - LINE (52.1, 5)-(53.3, 5), 12 - END IF - - 'Display Ringout - IF ringoutt% > 0 THEN ringoutt% = ringoutt% - 1: ringoutext (ringoutp%) - - window3d - fault$ = "" - '-------------------------------------------------------------------- End HUD - - -LOOP -'+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+ End Loop - - - - - - - - - -'================================================================= Error Code -8 -DO UNTIL INKEY$ = "" - wee$ = INKEY$ -LOOP - -IF fault$ <> "file" AND fault$ <> "ps" AND fault$ <> "save1" AND fault$ <> "nokey" THEN - CLOSE #1 - SCREEN 9, , 0, 0 - CLS - COLOR 15 - SOUND 1000, 1: SOUND 500, 1 - LOCATE 1, 1: PRINT "SLASH ERROR: " - PRINT " " - PRINT " " - PRINT " " - PRINT "Esc - Terminate Program" - PRINT "D - Delete SLASH.DAT (If the File is Corrupt it May Cause Errors)" - PRINT "Any Other Key will Attempt to Continue" - - LOCATE 1, 14 - -END IF - -SELECT CASE fault$ - - '---------------------------------------------- - CASE IS = "load" - - PRINT "File " + path$ + "\SLASH.DAT is Bad or Missing." - PRINT "Slash Will Attempt to Recover Using Default Settings." - PRINT "By Saving the Current Settings a New SLASH.DAT May Be Created." - setback% = 1 - errorkey - RESUME NEXT - - - '---------------------------------------------- - CASE IS = "save1" - CHDIR "\" - MKDIR path$ - CLOSE #1 - setback% = 1 - RESUME NEXT - - '---------------------------------------------- - CASE IS = "save2" - PRINT "Could Not Write File " + path$ + "\SLASH.DAT" - PRINT "Slash Will Attempt to Recover Without Saving." - mode% = 0 - setback% = 2 - errorkey - RESUME NEXT - - '---------------------------------------------- - CASE IS = "mud" - PRINT "There Was a Problem While Displaying The Opening Mud." - PRINT "Slash Will Attempt to Bypass It." - setback% = 1 - errorkey - RESUME NEXT - - '---------------------------------------------- - CASE IS = "init" - PRINT "Could Not Initalize." - PRINT "There is Probably a Memory or Video Problem." - PRINT "Slash Can Not Recover From This Error." - SLEEP - SYSTEM - RESUME NEXT - - '---------------------------------------------- - CASE IS = "pflip" - PRINT "Clearing or Flipping Video" - errorkey - RESUME NEXT - - '---------------------------------------------- - CASE IS = "hud" - PRINT "There Was a Problem While Displaying The HUD." - PRINT "Slash Will Attempt to Continue Anyway" - errorkey - RESUME NEXT - - '---------------------------------------------- - CASE IS = "file" - setback% = 1 - RESUME NEXT - - '---------------------------------------------- - CASE IS = "ps" - COLOR 15 - LOCATE 21 - PRINT "PS ERROR" - RESUME NEXT - - '---------------------------------------------- - CASE IS = "ss" - PRINT "Problem With Sound Blaster Sound" - PRINT "Slash Will Attempt to Continue With Sound Disabled." - sbsound% = 0 - errorkey - RESUME NEXT - - '---------------------------------------------- - CASE IS = "particles" - PRINT "Problem Spawning/Rendering Particle(s)" - PRINT "Slash Will Attempt to Continue With The Particle Engine Disabled." - setback% = 1 - errorkey - RESUME NEXT - - '---------------------------------------------- - CASE IS = "pagetest" - PRINT "Current Screen Mode Does Not Not Support Page " + wee$ - PRINT "Slash Will Switch Back to Page 0 and Continue Page Test Mode." - errorkey - SCREEN , 0, 0 - RESUME NEXT - - - '---------------------------------------------- - CASE IS = "dim" - PRINT "Problem Allocating Variables" - PRINT "You Have Probably Run Out of Conventional Memory" - PRINT "Slash Can Not Recover From This Error." - SLEEP - RESUME NEXT - - '---------------------------------------------- - CASE IS = "nokey" - RESUME NEXT - - - '---------------------------------------------- -END SELECT - - - - - - - -'---------------------------------------------- -PRINT "Unknown" -errorkey -zoom = zoom + .01 -zoomd = 0 -RESUME NEXT - -SUB AI (pc%) - -IF pc% = 2 THEN po% = 1 ELSE po% = 2 -AImoved% = 0 - - -'--------------------------------------------- Move Away From Downed Opponent -IF position%(po%) > 7 AND position%(po%) < 12 AND dist% < 25 AND pticker%(pc%) > 5 AND pticker%(po%) > 15 THEN - IF canjump%(pc%) = 1 THEN - AImoved% = 1 - IF buttx(pc%) > 0 THEN jump (pc%), (1) ELSE jump (pc%), (3) - END IF -END IF - - - -'------------------------------------------------------------ Maintain Action -wee = 0 -IF AImoved% = 0 THEN - IF pticker%(pc%) > 75 OR position%(po%) = 81 OR dist% < 2 THEN wee = 1 -END IF -IF wee = 1 THEN IF RND < .5 THEN AIgetclose pc%, po% ELSE AIattack pc%, po% - - - - - -'-------------------------------------------------------- Normal AI Functions -'Determine if in air and deside move accordingly - -IF ABS(buttv(pc%)) > .5 THEN - AIattack pc%, po% - -ELSE - 'Defend - IF AImoved% = 0 AND ko(pc%) + health%(pc%) < RND * dif% * 10 THEN - AIdefend pc%, po% - ELSE - 'Attack - wee = 0 - IF buttx(pc%) < buttx(po%) AND d%(pc%) = -1 THEN wee = 1 - IF buttx(pc%) > buttx(po%) AND d%(pc%) = 1 THEN wee = 1 - IF wee = 0 AND AImoved% = 0 AND dif% > RND * 25 THEN AIattack pc%, po% - END IF - 'Get Close - IF AImoved% = 0 AND ABS(buttx(po%)) < ring% - 50 AND canjump%(pc%) = 1 AND dif% > RND * 30 AND dist% > 18 THEN AIgetclose pc%, po% - - - - '----------------------------------------------------------- Avoid Projectile - IF dif% > RND * 25 THEN - - IF pc% = 2 THEN - IF dif% > RND * 25 THEN - IF projectile%(1) > 0 AND position%(2) = 1 AND projectilex(1) > buttx(2) - 75 AND projectilex(1) < buttx(2) + 75 THEN - IF RND < .5 THEN - jump 2, 2 - ELSE - IF RND < .5 THEN position%(2) = 99 ELSE position%(2) = 12 - END IF - END IF - END IF - ELSE - IF projectile%(4) > 0 AND position%(1) = 1 AND projectilex(4) > buttx(1) - 75 AND projectilex(4) < buttx(1) + 75 THEN - IF RND < .5 THEN - jump 1, 2 - ELSE - IF RND < .5 THEN position%(1) = 99 ELSE position%(1) = 12 - END IF - END IF - END IF - END IF - - - - - -END IF -END SUB - -SUB AIattack (pc%, po%) - -IF rage(pc%) >= 100 THEN - 'Super - AIsuper pc%, po% -ELSE - 'Special - IF ko(pc%) > 25 AND dif% > RND * 30 AND pticker%(pc%) > 20 THEN AImoved% = 1: AIspecial pc%, po% -END IF - -'Normal Attack -IF AImoved% = 0 AND butty(po%) > butty(pc%) - 15 THEN - IF dist% < 18 THEN - 'Attack with Normal Move - AImoved% = 1 - IF position%(pc%) = 12 AND RND < .5 THEN - IF RND < .5 AND dist% < 10 THEN position%(pc%) = 13 ELSE IF head%(pc%) <> 666 THEN position%(pc%) = 6 - ELSE - IF pticker%(pc%) > 15 THEN - SELECT CASE INT(RND * 5) - CASE 0: position%(pc%) = 12 - CASE 1: position%(pc%) = 2 - CASE 2: position%(pc%) = 3 - CASE 3: IF stage% <> 15 THEN position%(pc%) = 5 - CASE 4: IF stage% <> 15 THEN position%(pc%) = 6 - END SELECT - END IF - END IF - END IF -END IF - -END SUB - -SUB AIdefend (pc%, po%) - -'Jump or Block if close -IF dist% < 25 THEN - IF attackok%(pc%) = 1 AND RND < .5 AND pticker%(pc%) > 10 THEN - position%(pc%) = 99: AImoved% = 1 - ELSE - IF ABS(buttx(pc%)) < ring% - 50 THEN jump (pc%), (INT(RND * 3) + 1): AImoved% = 1 - END IF -END IF - - - -END SUB - -SUB AIfighter (pc%) - -'Determine which moves to use for short/long range etc. - -'Hand Attacks -SELECT CASE hands%(pc%) - CASE 1 - AIhs%(pc%) = 35 - AIhm%(pc%) = 35 - AIhl%(pc%) = 30 - AIhh%(pc%) = 12 - CASE 2 - IF RND < .5 THEN AIhs%(pc%) = 31 ELSE AIhs%(pc%) = 36 - AIhm%(pc%) = 1 - AIhl%(pc%) = 1 - AIhh%(pc%) = 12 - CASE 3 - IF RND < .5 THEN AIhs%(pc%) = 32 ELSE AIhs%(pc%) = 37 - AIhm%(pc%) = 1 - AIhl%(pc%) = 1 - AIhh%(pc%) = 37 - CASE 4 - AIhs%(pc%) = 38 - AIhm%(pc%) = 33 - AIhl%(pc%) = 33 - AIhh%(pc%) = 38 - CASE 5 - AIhs%(pc%) = 39 - AIhm%(pc%) = 34 - AIhl%(pc%) = 34 - AIhh%(pc%) = 12 -END SELECT - -'Foot Attacks -SELECT CASE feet%(pc%) - CASE 1 - AIfs%(pc%) = 45 - AIfm%(pc%) = 40 - AIfl%(pc%) = 1 - AIfh%(pc%) = 40 - CASE 2 - IF RND < .5 THEN AIfs%(pc%) = 41 ELSE AIfs%(pc%) = 46 - AIfm%(pc%) = 41 - AIfl%(pc%) = 1 - AIfh%(pc%) = 12 - CASE 3 - IF RND < .5 THEN AIfs%(pc%) = 42 ELSE AIfs%(pc%) = 47 - AIfm%(pc%) = 42 - AIfl%(pc%) = 1 - AIfh%(pc%) = 47 - CASE 4 - AIfs%(pc%) = 48 - AIfm%(pc%) = 43 - AIfl%(pc%) = 48 - AIfh%(pc%) = 43 - CASE 5 - IF RND < .5 THEN AIfs%(pc%) = 44 ELSE AIfs%(pc%) = 49 - AIfm%(pc%) = 44 - AIfl%(pc%) = 1 - AIfh%(pc%) = 49 -END SELECT - - -IF stage% = 15 THEN - AIhs%(pc%) = 35 - AIhm%(pc%) = 35 - AIhl%(pc%) = 30 - AIhh%(pc%) = 13 - - AIfs%(pc%) = 3 - AIfm%(pc%) = 30 - AIfl%(pc%) = 30 - AIfh%(pc%) = 2 -END IF - - -END SUB - -SUB AIgetclose (pc%, po%) - -IF RND > .1 THEN - - 'Walk - IF canjump%(pc%) = 1 THEN - AImoved% = 1 - IF buttx(po%) < buttx(pc%) THEN butth(pc%) = butth(pc%) - .5 ELSE butth(pc%) = butth(pc%) + .5 - END IF - -ELSE - - 'Jump - IF dist% > 50 AND canjump%(pc%) = 1 THEN - AImoved% = 1 - IF buttx(po%) < buttx(pc%) THEN jump (pc%), (1) ELSE jump (pc%), (3) - END IF - -END IF -END SUB - -SUB AIspecial (pc%, po%) - -IF RND < .5 THEN - IF butty(po%) > butty(pc%) - 15 THEN - SELECT CASE dist% - CASE IS < 20: position%(pc%) = AIhs%(pc%) - CASE IS >= 20 <= 75: position%(pc%) = AIhm%(pc%) - CASE IS > 75: position%(pc%) = AIhl%(pc%) - END SELECT - ELSE - IF dist% < 20 THEN position%(pc%) = AIhh%(pc%) - END IF -ELSE - IF butty(po%) > butty(pc%) - 15 THEN - SELECT CASE dist% - CASE IS < 25: position%(pc%) = AIfs%(pc%) - CASE IS >= 25 <= 75: position%(pc%) = AIfm%(pc%) - CASE IS > 75: position%(pc%) = AIfl%(pc%) - END SELECT - ELSE - IF butty(po%) < heady(pc% + 2) AND dist% < 20 THEN position%(pc%) = AIfh%(pc%) - END IF -END IF - - -END SUB - -SUB AIsuper (pc%, po%) -SELECT CASE body%(pc%) - - CASE 1 - IF canjump%(pc%) = 1 THEN - IF dist% > 75 THEN position%(pc%) = 81: AImoved% = 1 - IF position%(po%) >= 8 AND position%(po%) <= 11 THEN position%(pc%) = 81: AImoved% = 1 - END IF - - CASE 2 - IF dist% > 75 AND position%(po%) < 8 THEN position%(pc%) = 82: AImoved% = 1 - - CASE 3 - IF dist% < 50 AND position%(po%) < 8 THEN position%(pc%) = 83: AImoved% = 1 - - CASE 4 - IF health%(pc%) < 100 THEN position%(pc%) = 84: AImoved% = 1 - - CASE 5 - IF dist% < 100 THEN position%(pc%) = 85: AImoved% = 1 - - CASE 6 - IF dist% < 125 AND canjump%(pc%) = 1 THEN position%(pc%) = 86: AImoved% = 1 - - CASE 7 - IF dist% < 25 AND canjump%(pc%) = 1 THEN position%(pc%) = 87: AImoved% = 1 - - CASE 8 - IF dist% < 20 AND canjump%(pc%) = 1 THEN position%(pc%) = 88: AImoved% = 1 - - CASE 666 - IF dist% < 20 AND canjump%(pc%) = 1 THEN position%(pc%) = 36: AImoved% = 1 - -END SELECT -END SUB - -SUB bigwindow -SCREEN , , 0, 0: COLOR 12, 0 - -LOCATE 1, 29: PRINT " SFB2: Vector Warriors " - -FOR wee = 0 TO 248 STEP 2 - LINE (midx% - wee, midy% - 200)-(midy% + wee, midy% + 200), INT((RND * 2) + 7) -NEXT wee - -LINE (midx% - wee, midy% - 200)-(midy% + wee, midy% + 200), 0, BF -LINE (midx% - wee, midy% - 200)-(midy% + wee, midy% + 200), 7, B -COLOR 4 -IF rez% = 7 THEN LOCATE 22, 35 ELSE LOCATE 22, 75 -PRINT ver$ -wee$ = "" -END SUB - -SUB blur (l%) -IF blurr% = 0 THEN - blurr% = l% - csave% = cfreq% -END IF -END SUB - -SUB camdefaults - -panx = 0 -panh = 0 -pany = 0 -panv = 0 -zoom = .1 -zoomd = 0 -midx% = 250 -midy% = 250 - -winx = 250 -winy = 250 - -winxwiny - -END SUB - -SUB camtracking - -SELECT CASE camode% - - CASE 0 - EXIT SUB - - CASE 1 - trackx% = (neckx(3) + neckx(4)) / 2 - tracky% = ((necky(3) + necky(4)) / 2) - 10 - - CASE 2 - trackx% = (buttx(1) + neckx(3)) / 2 - tracky% = ((butty(1) + necky(3)) / 2) - - CASE 3 - trackx% = (buttx(2) + neckx(4)) / 2 - tracky% = ((butty(2) + necky(4)) / 2) - -END SELECT - -'---------------------------------------------------------------------------- - -IF panx > trackx% + 30 THEN panh = panh - .5 -IF panx < trackx% - 30 THEN panh = panh + .5 -IF pany > tracky% + 20 THEN panv = panv - 1 -IF pany < tracky% - 20 THEN panv = panv + 1 -IF ABS(panh) > 10 THEN panh = panh / 1.1 -IF ABS(panv) > 10 THEN panv = panv / 1.1 -IF panx > trackx% - 25 AND panx < trackx% + 25 THEN panh = panh / 1.1 -IF pany > tracky% - 25 AND pany < tracky% + 25 THEN panv = panv / 1.5 - - -'Zoom Control -IF camode% = 1 THEN - IF buttx(1) < buttx(2) THEN x = (buttx(2) - buttx(1)) / 1000 ELSE x = (buttx(1) - buttx(2)) / 1000 - IF butty(1) < butty(2) THEN y = (butty(2) - butty(1)) / 1000 ELSE y = (butty(1) - butty(2)) / 1000 - F = (x + y) / 2 - IF zoom < zoomt + F - .001 THEN zoom = zoom + .001 - IF zoom > zoomt + F + .001 THEN zoom = zoom - .001 - IF zoom < zoomt + F - .1 THEN zoomd = zoomd + .001 - IF zoom > zoomt + F + .1 THEN zoomd = zoomd - .001 - IF zoomd < -.005 THEN zoomd = -.005 -END IF - -'------------------ -IF zoom < .0000001 THEN zoom = .0000001 -END SUB - -SUB cbigwindow - -SCREEN , 0, 0 -FOR wee = 0 TO 248 STEP 15 - LINE (midx% - 248 + wee, midy% - 200)-(midy% + 248 - wee, midy% + 200), INT((RND * 2) + 7) - LINE (midx% - 248, midy% - 200)-(midy% + 248, midy% + 200), 15, B -NEXT wee - -wee$ = "" -END SUB - -SUB clearscreen -'Blur -IF blurr% > 0 THEN - blurr% = blurr% - 1 - IF blurr% = 0 THEN cfreq% = csave% ELSE cfreq% = 1 -END IF - -IF ctime% > cfreq% THEN - ctime% = 0 - SELECT CASE cmethod% - - CASE IS = 1 - LINE (xx1, yy1)-(xx2, yy2), 0, BF - - CASE IS = 2 - CLS - - CASE IS = 3 - window2d - hfade% = hfade% + 5: IF hfade% = 15 THEN hfade% = 0 - FOR wee = hfade% TO 95 STEP 15 - LINE (0, wee)-(100, wee + 5), 0, BF - NEXT wee - window3d - - CASE IS = 4 - IF clsb% = 5 THEN clsb% = 0 - clsblock (clsb%) - clsb% = clsb% + 1 - END SELECT -ELSE ctime% = ctime% + 1 -END IF - -END SUB - -SUB clsblock (n) -window2d -SELECT CASE n - - CASE IS = 1 - FOR y = 0 TO 90 STEP 10 - FOR x = 0 TO 90 STEP 10 - LINE (x, y)-(x + 5, y + 5), 0, BF - NEXT x - NEXT y - - CASE IS = 2 - FOR y = 5 TO 95 STEP 10 - FOR x = 5 TO 95 STEP 10 - LINE (x, y)-(x + 5, y + 5), 0, BF - NEXT x - NEXT y - - CASE IS = 3 - FOR y = 0 TO 90 STEP 10 - FOR x = 5 TO 95 STEP 10 - LINE (x, y)-(x + 5, y + 5), 0, BF - NEXT x - NEXT y - - CASE IS = 4 - FOR y = 5 TO 95 STEP 10 - FOR x = 0 TO 90 STEP 10 - LINE (x, y)-(x + 5, y + 5), 0, BF - NEXT x - NEXT y - -END SELECT -window3d -END SUB - -SUB Conclusion - -'------------------------------------------------------------ Determine Flash -IF victory% = 0 THEN - victory% = 1 - - IF health%(1) <= 0 OR health%(2) <= 0 THEN - soundticker% = 0: sbfx 14 - COLOR , 12 - flicker = TIMER: DO UNTIL TIMER - flicker > .1: LOOP - COLOR , 0 - END IF - - IF ko(1) <= 0 OR ko(2) <= 0 THEN - soundticker% = 0: sbfx 15 - COLOR , 9 - flicker = TIMER: DO UNTIL TIMER - flicker > .1: LOOP - COLOR , 0 - END IF - - IF frameskip% < 3 THEN tpause% = 2 -END IF - - -'------------------------------- Determine When to Figure Round / Match Info. -IF position%(1) = 8 AND pticker%(1) >= 75 THEN victory% = 2 -IF position%(2) = 8 AND pticker%(2) >= 75 THEN victory% = 2 -IF position%(1) = 10 AND pticker%(1) >= 75 THEN victory% = 2 -IF position%(2) = 10 AND pticker%(2) >= 75 THEN victory% = 2 - -IF victory% = 2 THEN - victory% = 0 - - '------------------------------------------------------ Determine Round Info. - SCREEN , , 0, 0 - LOCATE 5 - COLOR 9 - IF ko(1) <= 0 AND health%(1) > 0 THEN PRINT name$(1) + " - KO": win%(2) = win%(2) + 1 - IF ko(2) <= 0 AND health%(2) > 0 THEN PRINT name$(2) + " - KO": win%(1) = win%(1) + 1 - IF ko(1) <= 0 AND ko(2) <= 0 THEN PRINT "Double KO" - COLOR 12 - IF health%(1) <= 0 THEN PRINT name$(1) + " - Dead": win%(2) = 2 - IF health%(2) <= 0 THEN PRINT name$(2) + " - Dead": win%(1) = 2 - - '------------------------------------------------------ Determine Match Info. - COLOR 15 - - IF win%(1) > 1 AND win%(2) > 1 THEN - PRINT "Tie Match": win%(1) = 1: win%(2) = 1 - IF health%(1) <= 0 AND health%(2) <= 0 THEN - IF ringoutp% <> 1 AND ringoutp% <> 3 THEN - PRINT "Resurrecting Players To Continue" - decap 3 - health%(1) = 100 - health%(2) = 100 - particle (headx(3)), (heady(3)), (fighterz(1)), 5, 10 - particle (headx(4)), (heady(4)), (fighterz(2)), 5, 10 - ELSE - PRINT name$(2) + " Takes Win" - newmatch - END IF - END IF - - ELSE - - IF win%(1) > 1 OR win%(2) > 1 THEN - IF win%(1) > 1 AND win%(2) < 2 THEN PRINT name$(1) + " Wins the Match": stage% = stage% + 1: setfightercpu - IF win%(2) > 1 AND win%(1) < 2 THEN PRINT name$(2) + " Wins the Match": IF stage% > stages% THEN setfightercpu - newmatch - END IF - END IF - - '---------------------------------------------------------------------------- - - wee = TIMER - 34 IF TIMER - wee < 3 THEN 34 - - setko (1): setko (2) - -END IF -END SUB - -SUB csmallwindow - - -SCREEN , 0, 0 -FOR wee = 0 TO 248 STEP 3 - LINE (midx% - 248 + wee, midy% - 75)-(midy% + 248 - wee, midy% + 75), INT((RND * 2) + 7) - LINE (midx% - 248, midy% - 75)-(midy% + 248, midy% + 75), 15, B -NEXT wee - -wee$ = "" -END SUB - -SUB decap (n%) - -IF n% = 3 THEN - headless%(1) = 0: headless%(2) = 0 -ELSE - IF headless%(n%) = 0 THEN - bgcolor% = 15 - camode% = n% + 1 - zoomd = zoomd + .001 - headless%(n%) = 1 - hx(n%) = headx(n% + 2) - hy(n%) = heady(n% + 2) - hh(n%) = (RND - .5) * 2 - hv(n%) = -12 - END IF -END IF -END SUB - -SUB decay -FOR wee = 1 TO particles% - - IF p%(wee) > 0 THEN - p%(wee) = p%(wee) - 1 - IF p%(wee) = 15 THEN pc1%(wee) = pc2%(wee) - IF p%(wee) = 5 THEN pc1%(wee) = pc3%(wee) - - IF pk%(wee) = 1 AND py(wee) > floor1 - pv(wee) AND ABS(px(wee)) < ring% - 8 THEN - IF py(wee) < floor1 + 15 AND RND < .4 THEN smear (px(wee) + ((RND - .5) * 8)), (floor1), (pz(wee) + (RND - .5)), (pc1%(wee)) - p%(wee) = 0 - END IF - - IF pk%(wee) = 2 AND py(wee) > floor2 - pv(wee) THEN p%(wee) = 0 - END IF -NEXT wee - -FOR wee = 1 TO 10 - IF smearl%(wee) > 0 THEN - smearl%(wee) = smearl%(wee) + 1 - IF smearl%(wee) = 60 AND smearc%(wee) = 12 THEN smearc%(wee) = 4 - END IF -NEXT wee - -'Razer Arms -FOR wee = 1 TO 2 - IF razers%(wee) > 0 THEN - razers%(wee) = razers%(wee) - 1 - IF razers%(wee) = 1 THEN - pc2 = wee + 2 - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(wee) + .2), 15, 5 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(wee) - .2), 15, 5 - END IF - END IF -NEXT wee - -END SUB - -DEFINT A-Z -FUNCTION DetectCard% - -'Returns -1 (true) if detected and 0 (false) if not. - -CALL SBWrite(&H4, &H60) -CALL SBWrite(&H4, &H80) -B = INP(&H388) -CALL SBWrite(&H2, &HFF) -CALL SBWrite(&H4, &H21) -FOR x = 0 TO 130 - a = INP(&H388) -NEXT x -c = INP(&H388) -CALL SBWrite(&H4, &H60) -CALL SBWrite(&H4, &H80) -SUCCESS = 0 -IF (B AND &HE0) = &H0 THEN - IF (c AND &HE0) = &HC0 THEN - SUCCESS = -1 - END IF -END IF -DetectCard% = SUCCESS -END FUNCTION - -DEFSNG A-Z -SUB errorkey -wee = 2 -wee$ = "" - -LOCATE 21, 1 -PRINT "E-mail lbt1st@cyberdude.com if problem persist. SFB2 Version " + ver$ -PRINT "[ ] - System may be halted if inanimate" -24 -wee$ = UCASE$(INKEY$) - -wee = wee + .005 -IF INT(wee) = 20 THEN wee = 2: LOCATE 22, 19: PRINT " " -LOCATE 22, INT(wee): PRINT "*" -IF INT(wee) > 2 THEN LOCATE 22, INT(wee) - 1: PRINT " " - -IF wee$ = "" THEN 24 -IF wee$ = CHR$(27) THEN SYSTEM - -IF UCASE$(wee$) = "D" THEN - SHELL "del slash.dat" - SHELL "echo Slash Attempted to Delete SLASH.DAT" - SHELL "echo You May Now Try to Restart the Program." - SYSTEM -END IF - - -END SUB - -SUB fades -IF bgcolor% <> 0 THEN - - SELECT CASE bgcolor% - CASE 19 - COLOR , 15 - bgcolor% = 9 - - CASE 15 - COLOR , 15 - bgcolor% = 12 - - CASE 12 - COLOR , 12 - bgcolor% = 4 - - CASE 9 - COLOR , 9 - bgcolor% = 1 - - CASE 4 - COLOR , 4 - bgcolor% = -1 - - CASE 1 - COLOR , 1 - bgcolor% = -1 - - CASE -1 - COLOR , 0 - bgcolor% = 0 - - END SELECT -END IF -END SUB - -SUB fall (n) - -IF d%(n) = 1 AND butth(n) < 0 THEN position%(n) = 10 -IF d%(n) = -1 AND butth(n) < 0 THEN position%(n) = 8 -IF d%(n) = 1 AND butth(n) > 0 THEN position%(n) = 8 -IF d%(n) = -1 AND butth(n) > 0 THEN position%(n) = 10 -IF position%(n) < 8 OR position%(n) > 11 THEN position%(n) = 10 - -END SUB - -SUB fightercompress (n%) -headx(n%) = 0 -neckx(n%) = 0 - -elbow1x(n%) = 0 -elbow2x(n%) = 0 -hand1x(n%) = 0 -hand2x(n%) = 0 - -nee1x(n%) = 0 -nee2x(n%) = 0 -foot1x(n%) = 0 -foot2x(n%) = 0 - -heady(n%) = 0 -necky(n%) = 0 - -elbow1y(n%) = 0 -elbow2y(n%) = 0 -hand1y(n%) = 0 -hand2y(n%) = 0 - -nee1y(n%) = 0 -nee2y(n%) = 0 -foot1y(n%) = 0 -foot2y(n%) = 0 - -END SUB - -SUB fighterdirect - -'------------------------------------------------------------- Flip Direction -FOR wee = 1 TO 2 - - IF wee = 1 AND position%(1) = 1 AND pticker%(1) > 20 AND canjump%(1) = 1 THEN - IF buttx(1) > buttx(2) THEN d%(wee) = -1 ELSE d%(wee) = 1 - END IF - - IF wee = 2 AND position%(2) = 1 AND pticker%(2) > 20 AND canjump%(2) = 1 THEN - IF buttx(1) < buttx(2) THEN d%(wee) = -1 ELSE d%(wee) = 1 - END IF - -NEXT wee -END SUB - -SUB fighterender - -FOR wee = 1 TO 2 - wee2 = wee + 2 - fm1 = fighterz(wee) - .1 - fp1 = fighterz(wee) + .1 - - IF position%(wee) = 0 THEN 36 - - '----------------------------------------------- High Detail Fighter Graphics - IF fighterdetail% = 1 THEN - - midbodx = buttx(wee) + ((neckx(wee2) - buttx(wee)) / 2) - midbody = necky(wee2) + ((butty(wee) - necky(wee2)) / 2) - - - '---------------------------------------------------------------- Render Hair - 'P1 - IF position%(1) > 0 AND hairl%(1) > 0 AND wee = 1 THEN - FOR n% = 1 TO 4 - SELECT CASE hairt%(1) - CASE 1: psline (hairx(n%)), (hairy(n%)), (fighterz(1)), (hairx(n% + 1)), (hairy(n% + 1)), (fighterz(1)), (hairc%(1)), 0 - CASE 2: pscline (hairx(n%)), (hairy(n%)), (fighterz(1)), (hairx(n% + 1)), (hairy(n% + 1)), (fighterz(1)), .2, (hairc%(1)) - END SELECT - NEXT n% - END IF - - 'P2 - IF position%(2) > 0 AND hairl%(2) > 0 AND wee = 2 THEN - FOR n% = 6 TO 9 - SELECT CASE hairt%(2) - CASE 1: psline (hairx(n%)), (hairy(n%)), (fighterz(2)), (hairx(n% + 1)), (hairy(n% + 1)), (fighterz(2)), (hairc%(2)), 0 - CASE 2: pscline (hairx(n%)), (hairy(n%)), (fighterz(2)), (hairx(n% + 1)), (hairy(n% + 1)), (fighterz(2)), .2, (hairc%(2)) - END SELECT - NEXT n% - END IF - - - - '---------------------------------------------------------------- Razer Arm-1 - IF razers%(wee) > 0 THEN - IF razers%(wee) > 50 THEN c% = flash3% ELSE c% = 4 - psline (elbow1x(wee2) + (hand1x(wee) / 2) * d%(wee)), (elbow1y(wee2) + (hand1y(wee) / 2)), (fp1 + .1), (elbow1x(wee2) + (hand1x(wee) * 2) * d%(wee)), (elbow1y(wee2) + (hand1y(wee) * 2)), (fp1 + .1), c%, 0 - END IF - - - '---------------------------------------------------------------------- Heads - IF headless%(wee) = 1 THEN headx(wee2) = hx(wee): heady(wee2) = hy(wee) - - SELECT CASE head%(wee) - CASE 1 - pscircle (headx(wee2)), (heady(wee2)), (fighterz(wee)), 1.5, headc%(wee) - - CASE 2 - psline (headx(wee2) + 1 * d%(wee)), (heady(wee2) - 1), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) + 1 * d%(wee)), (heady(wee2) - 1), (fighterz(wee)), (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 3), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 3), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 3), (fighterz(wee)), (headx(wee2) - 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - - - CASE 3 - psline (headx(wee2) - 1 * d%(wee)), (heady(wee2) - 2), (fighterz(wee)), (headx(wee2) + 2 * d%(wee)), (heady(wee2) + 1), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) + 1), (fighterz(wee)), (headx(wee2) + 2 * d%(wee)), (heady(wee2) + 1), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) + 1), (fighterz(wee)), (headx(wee2) - 1 * d%(wee)), (heady(wee2) - 2), (fighterz(wee)), headc%(wee), 0 - - CASE 4 - pscircle (headx(wee2)), (heady(wee2)), (fighterz(wee)), 1.5, headc%(wee) - psline (headx(wee2) - 3 * d%(wee)), (heady(wee2)), (fighterz(wee)), (headx(wee2)), (heady(wee2)), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2)), (heady(wee2)), (fighterz(wee)), (headx(wee2) + 2 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - - CASE 5 - psline (headx(wee2)), (heady(wee2) - 2), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 2), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 3 * d%(wee)), (heady(wee2)), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - psline (headx(wee2) - 3 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), headc%(wee), 0 - - CASE 666 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 1), (fighterz(wee) + .05), (headx(wee2) - 3 * d%(wee)), (heady(wee2) - 3), (fighterz(wee) + .3), 7, 0 - - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 2), (fp1), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), 12, 0 - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 2), (fm1), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), 12, 0 - psline (headx(wee2) - 3 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), (headx(wee2) + 1 * d%(wee)), (heady(wee2) + 2), (fighterz(wee)), 12, 0 - pscircle (headx(wee2) - 2.5 * d%(wee)), (heady(wee2) + .1), (fighterz(wee)), 1.5, 12 - - psline (headx(wee2) - 2 * d%(wee)), (heady(wee2) - 1), (fighterz(wee) - .05), (headx(wee2) - 3 * d%(wee)), (heady(wee2) - 3), (fighterz(wee) - .3), 15, 0 - - - CASE 1998 - pslightning (headx(wee2) + (RND - .5) * 3), (heady(wee2) + (RND - .5) * 3), (fighterz(wee)), (headx(wee2) + (RND - .5) * 3), (heady(wee2) + (RND - .5) * 3), (fighterz(wee)), 5, flash2% - - - - CASE 2000 - pscircle (headx(wee2)), (heady(wee2)), (fighterz(wee)), RND, headc%(wee) - pscircle (headx(wee2)), (heady(wee2)), (fighterz(wee)), 1.5, headc%(wee) - - END SELECT - - - '---------------------------------------------------------------------- Arm-1 - SELECT CASE arms%(wee) - CASE 1 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (neckx(wee2)), (necky(wee2) + 1), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2)), (elbow1y(wee2)), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - - CASE 2 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2)), (elbow1y(wee2)), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - psline (neckx(wee2)), (necky(wee2) + 2), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2)), (elbow1y(wee2) + 1), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - - CASE 3 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2)), (elbow1y(wee2)), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - psline (midbodx), (necky(wee2) + 1), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2) + 1), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2)), (elbow1y(wee2) + 1), (fp1), (hand1x(wee2)), (hand1y(wee2) + .5), (fp1), armsc%(wee), 0 - - CASE 4 - psline (neckx(wee2) - .5 * d%(wee)), (necky(wee2) - .5), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (neckx(wee2) + .8 * d%(wee)), (necky(wee2) + .5), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2) - .3 * d%(wee)), (elbow1y(wee2) - .5), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2) + .3 * d%(wee)), (elbow1y(wee2) + .5), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - pscircle (neckx(wee2) + elbow1x(wee) / 2 * d%(wee)), (necky(wee2) + elbow1y(wee) / 2), (fp1), .8, armsc%(wee) - pscircle (elbow1x(wee2) + hand1x(wee) / 2 * d%(wee)), (elbow1y(wee2) + hand1y(wee) / 2), (fp1), .5, armsc%(wee) - - CASE 5 - psline (neckx(wee2) - .5 * d%(wee)), (necky(wee2) - .5), (fighterz(wee)), (elbow1x(wee2) + .5 * d%(wee)), (elbow1y(wee2) + .5), (fp1), armsc%(wee), 0 - psline (neckx(wee2) + .8 * d%(wee)), (necky(wee2) + .5), (fighterz(wee)), (elbow1x(wee2) - .5 * d%(wee)), (elbow1y(wee2) - .5), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2) - .3 * d%(wee)), (elbow1y(wee2) - .5), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2) + .3 * d%(wee)), (elbow1y(wee2) + .5), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow1x(wee2) - .7), (elbow1y(wee2) - .7), (fp1), (elbow1x(wee2) + .7), (elbow1y(wee2) + .7), (fp1), armsc%(wee), 1 - - CASE 666 - psline (neckx(wee2) - 3 * d%(wee)), (necky(wee2) + 2), (fp1), (elbow1x(wee2)), (elbow1y(wee2)), (fighterz(wee) + .2), 4, 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fighterz(wee) + .2), 4, 0 - psline (elbow1x(wee2) - .8 * d%(wee)), (elbow1y(wee2) - .8), (fighterz(wee) + .2), (hand1x(wee2)), (hand1y(wee2)), (fighterz(wee) + .2), 4, 0 - psline (elbow1x(wee2)), (elbow1y(wee2) + .8), (fighterz(wee) + .2), (hand1x(wee2)), (hand1y(wee2)), (fighterz(wee) + .2), 4, 0 - - CASE 1998 - pslightning (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), 1, flash2% - pslightning (elbow1x(wee2)), (elbow1y(wee2)), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), 1, flash2% - - CASE 2000 - pscline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), .8, armsc%(wee) - pscline (elbow1x(wee2)), (elbow1y(wee2)), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), .5, armsc%(wee) - - END SELECT - - - - '--------------------------------------------------------------------- Hand-1 - SELECT CASE hands%(wee) - CASE 1 - psline (hand1x(wee2) - .6), (hand1y(wee2) - .6), (fp1), (hand1x(wee2) + .6), (hand1y(wee2) + .6), (fp1), handsc%(wee), 0 - psline (hand1x(wee2) + .6), (hand1y(wee2) - .6), (fp1), (hand1x(wee2) - .6), (hand1y(wee2) + .6), (fp1), handsc%(wee), 0 - - CASE 2 - psline (hand1x(wee2) - .6), (hand1y(wee2) - .6), (fp1), (hand1x(wee2) + .6), (hand1y(wee2) + .6), (fp1), handsc%(wee), 1 - - CASE 3 - IF position%(wee) = 13 OR position%(wee) = 37 OR position%(wee) = 88 THEN - psline (hand1x(wee2) - .5), (hand1y(wee2) - 1), (fp1), (hand1x(wee2)), (hand1y(wee2) + 2), (fp1), handsc%(wee), 0 - psline (hand1x(wee2) + .5), (hand1y(wee2) - 1), (fp1), (hand1x(wee2)), (hand1y(wee2) + 2), (fp1), handsc%(wee), 0 - ELSE - psline (hand1x(wee2) + 2 * d%(wee)), (hand1y(wee2)), (fp1), (hand1x(wee2) - .5 * d%(wee)), (hand1y(wee2) - .6), (fp1), handsc%(wee), 0 - psline (hand1x(wee2) + 2 * d%(wee)), (hand1y(wee2)), (fp1), (hand1x(wee2) - .5 * d%(wee)), (hand1y(wee2) + .6), (fp1), handsc%(wee), 0 - END IF - - CASE 4, 2000 - pscircle (hand1x(wee2)), (hand1y(wee2)), (fp1), .5, handsc%(wee) - - CASE 5 - psline (hand1x(wee2)), (hand1y(wee2) - .8), (fp1), (hand1x(wee2) - .8), (hand1y(wee2)), (fp1), handsc%(wee), 0 - psline (hand1x(wee2)), (hand1y(wee2) + .8), (fp1), (hand1x(wee2) - .8), (hand1y(wee2)), (fp1), handsc%(wee), 0 - psline (hand1x(wee2)), (hand1y(wee2) - .8), (fp1), (hand1x(wee2) + .8), (hand1y(wee2)), (fp1), handsc%(wee), 0 - psline (hand1x(wee2)), (hand1y(wee2) + .8), (fp1), (hand1x(wee2) + .8), (hand1y(wee2)), (fp1), handsc%(wee), 0 - - CASE 666 - psline (hand1x(wee2) - 1), (hand1y(wee2) - 1), (fp1), (hand1x(wee2) + 1), (hand1y(wee2) + 1), (fp1), 6, 1 - - - - END SELECT - - - '---------------------------------------------------------------------- Bodys - SELECT CASE body%(wee) - CASE 1 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (buttx(wee)), (butty(wee) + 1), (fighterz(wee)), (neckx(wee2)), (necky(wee2) + 2), (fighterz(wee)), bodyc%(wee), 0 - - CASE 2 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - - CASE 3 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2) + 2 * d%(wee)), (necky(wee2)), (fighterz(wee)), (midbodx - 1 * d%(wee)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2) - 1 * d%(wee)), (necky(wee2)), (fighterz(wee)), (midbodx + 1 * d%(wee)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - - CASE 4 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx - 1), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx + 1), (midbody), (fighterz(wee)), bodyc%(wee), 0 - pscircle (neckx(wee2) - (ABS(neckx(wee) / 10) * d%(wee))), (midbody - ABS(necky(wee) / 4)), (fighterz(wee)), 1.3, bodyc%(wee) - - CASE 5 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (midbodx), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), buttx(wee), (necky(wee2) - 2), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - - CASE 6 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2) - 3 * d%(wee)), (necky(wee2) - 1), (fighterz(wee)), (neckx(wee2)), (necky(wee2) + 1), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2) - 2.5 * d%(wee)), (necky(wee2) + ABS(necky(wee) / 4)), (fighterz(wee)), (neckx(wee2)), (necky(wee2) + ABS(necky(wee) / 4) + 1), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2) - 2 * d%(wee)), (necky(wee2) + ABS(necky(wee) / 2)), (fighterz(wee)), (neckx(wee2)), (necky(wee2) + ABS(necky(wee) / 2) + 1), (fighterz(wee)), bodyc%(wee), 0 - - CASE 7 - psline (buttx(wee) - 1 * d%(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (buttx(wee) + 1 * d%(wee)), (butty(wee)), (fighterz(wee)), (midbodx), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (midbodx), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), buttx(wee), (necky(wee2) - 2), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - - CASE 8 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), bodyc%(wee), 0 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (midbodx), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - - CASE 666 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), 12, 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (neckx(wee2)), (midbody), (fighterz(wee)), 12, 0 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (midbodx - 2 * d%(wee)), (necky(wee2) - 2), (fighterz(wee)), 12, 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (midbodx - 2 * d%(wee)), (necky(wee2) - 2), (fighterz(wee)), 12, 0 - pscube (buttx(wee) - 1 * d%(wee)), (butty(wee) - 3), (fm1), (buttx(wee) + 2 * d%(wee)), (butty(wee)), (fp1), 12, 6, 4 - - CASE 1998 - pslightning (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), 3, flash1% - - CASE 2000 - pscline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), 1, bodyc%(wee) - - END SELECT - - '---------------------------------------------------------------------- Arm-2 - c% = armsc%(wee) + 8 - - SELECT CASE arms%(wee) - CASE 1 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (neckx(wee2)), (necky(wee2) + 1), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2)), (elbow2y(wee2)), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - - CASE 2 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2)), (elbow2y(wee2)), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - psline (neckx(wee2)), (necky(wee2) + 2), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2)), (elbow2y(wee2) + 1), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - - CASE 3 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2)), (elbow2y(wee2)), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - psline (midbodx), (necky(wee2) - 1), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2) + 1), (fm1), c%, 0 - psline (elbow2x(wee2)), (elbow2y(wee2) - 1), (fm1), (hand2x(wee2)), (hand2y(wee2) + .5), (fm1), c%, 0 - - CASE 4 - psline (neckx(wee2) - .5 * d%(wee)), (necky(wee2) - .5), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (neckx(wee2) + .8 * d%(wee)), (necky(wee2) + .5), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2) - .3 * d%(wee)), (elbow2y(wee2) - .5), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2) + .3 * d%(wee)), (elbow2y(wee2) + .5), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - pscircle (neckx(wee2) + elbow2x(wee) / 2 * d%(wee)), (necky(wee2) + elbow2y(wee) / 2), (fm1), .8, c% - pscircle (elbow2x(wee2) + hand2x(wee) / 2 * d%(wee)), (elbow2y(wee2) + hand2y(wee) / 2), (fm1), .5, c% - - CASE 5 - psline (neckx(wee2) - .5 * d%(wee)), (necky(wee2) - .5), (fighterz(wee)), (elbow2x(wee2) + .5 * d%(wee)), (elbow2y(wee2) + .5), (fm1), c%, 0 - psline (neckx(wee2) + .8 * d%(wee)), (necky(wee2) + .5), (fighterz(wee)), (elbow2x(wee2) - .5 * d%(wee)), (elbow2y(wee2) - .5), (fm1), c%, 0 - psline (elbow2x(wee2) - .3 * d%(wee)), (elbow2y(wee2) - .5), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2) + .3 * d%(wee)), (elbow2y(wee2) + .5), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), c%, 0 - psline (elbow2x(wee2) - .7), (elbow2y(wee2) - .7), (fm1), (elbow2x(wee2) + .7), (elbow2y(wee2) + .7), (fm1), c%, 1 - - CASE 666 - psline (neckx(wee2) - 3 * d%(wee)), (necky(wee2) + 2), (fm1), (elbow2x(wee2)), (elbow2y(wee2)), (fighterz(wee) - .2), 12, 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fighterz(wee) - .2), 12, 0 - psline (elbow2x(wee2) - .8 * d%(wee)), (elbow2y(wee2) - .8), (fighterz(wee) - .2), (hand2x(wee2)), (hand2y(wee2)), (fighterz(wee) - .2), 12, 0 - psline (elbow2x(wee2)), (elbow2y(wee2) + .8), (fighterz(wee) - .2), (hand2x(wee2)), (hand2y(wee2)), (fighterz(wee) - .2), 12, 0 - - CASE 1998 - pslightning (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), 1, flash2% - pslightning (elbow2x(wee2)), (elbow2y(wee2)), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), 1, flash2% - - CASE 2000 - pscline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), .8, c% - pscline (elbow2x(wee2)), (elbow2y(wee2)), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), .5, c% - - END SELECT - - '--------------------------------------------------------------------- Hand-2 - c% = handsc%(wee) + 8 - - SELECT CASE hands%(wee) - CASE 1 - psline (hand2x(wee2) - .6), (hand2y(wee2) - .6), (fm1), (hand2x(wee2) + .6), (hand2y(wee2) + .6), (fm1), c%, 0 - psline (hand2x(wee2) + .6), (hand2y(wee2) - .6), (fm1), (hand2x(wee2) - .6), (hand2y(wee2) + .6), (fm1), c%, 0 - - CASE 2 - psline (hand2x(wee2) - .6), (hand2y(wee2) - .6), (fm1), (hand2x(wee2) + .6), (hand2y(wee2) + .6), (fm1), c%, 1 - - CASE 3 - IF position%(wee) = 13 OR position%(wee) = 37 OR position%(wee) = 88 THEN - psline (hand2x(wee2)), (hand2y(wee2) - 2), (fm1), (hand2x(wee2) - .5), (hand2y(wee2) + 1), (fm1), c%, 0 - psline (hand2x(wee2)), (hand2y(wee2) - 2), (fm1), (hand2x(wee2) + .5), (hand2y(wee2) + 1), (fm1), c%, 0 - ELSE - psline (hand2x(wee2) + 2 * d%(wee)), (hand2y(wee2)), (fm1), (hand2x(wee2) - .5 * d%(wee)), (hand2y(wee2) - .6), (fm1), c%, 0 - psline (hand2x(wee2) + 2 * d%(wee)), (hand2y(wee2)), (fm1), (hand2x(wee2) - .5 * d%(wee)), (hand2y(wee2) + .6), (fm1), c%, 0 - END IF - - CASE 4, 2000 - pscircle (hand2x(wee2)), (hand2y(wee2)), (fm1), .5, c% - - CASE 5 - psline (hand2x(wee2)), (hand2y(wee2) - .8), (fm1), (hand2x(wee2) - .8), (hand2y(wee2)), (fm1), c%, 0 - psline (hand2x(wee2)), (hand2y(wee2) + .8), (fm1), (hand2x(wee2) - .8), (hand2y(wee2)), (fm1), c%, 0 - psline (hand2x(wee2)), (hand2y(wee2) - .8), (fm1), (hand2x(wee2) + .8), (hand2y(wee2)), (fm1), c%, 0 - psline (hand2x(wee2)), (hand2y(wee2) + .8), (fm1), (hand2x(wee2) + .8), (hand2y(wee2)), (fm1), c%, 0 - - CASE 666 - psline (hand2x(wee2) - 1), (hand2y(wee2) - 1), (fm1), (hand2x(wee2) + 1), (hand2y(wee2) + 1), (fm1), 6, 1 - - END SELECT - - - '---------------------------------------------------------------- Razer Arm-2 - IF razers%(wee) > 0 THEN - IF razers%(wee) > 50 THEN c% = flash3% ELSE c% = 4 - psline (elbow2x(wee2) + (hand2x(wee) / 2) * d%(wee)), (elbow2y(wee2) + (hand2y(wee) / 2)), (fm1 - .1), (elbow2x(wee2) + (hand2x(wee) * 2) * d%(wee)), (elbow2y(wee2) + (hand2y(wee) * 2)), (fm1 - .1), c%, 0 - END IF - - - - '---------------------------------------------------------------------- Legs - c% = legsc%(wee) + 8 - - SELECT CASE legs%(wee) - CASE 1 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2) - 1), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2) - 1), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - - - CASE 2 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2) - 1), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2) - 1), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - - - CASE 3 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2) + 2), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2) - 1), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - psline (buttx(wee)), (butty(wee) - 2), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2) + 2), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2) + 2), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2) - 1), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - psline (buttx(wee)), (butty(wee) - 2), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2) + 2), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - - CASE 4 - psline (buttx(wee) - 1 * d%(wee)), (butty(wee) + 1), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (buttx(wee) + 1 * d%(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2) - .5 * d%(wee)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2) + .5 * d%(wee)), (nee1y(wee2) + .5), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - pscircle (buttx(wee) + (nee1x(wee) / 2) * d%(wee)), (butty(wee) + nee1y(wee) / 2), (fighterz(wee) + .05), 1, legsc%(wee) - pscircle (nee1x(wee2) + (foot1x(wee) / 2) * d%(wee)), (nee1y(wee + 2) + foot1y(wee) / 2), (fp1), .8, legsc%(wee) - - psline (buttx(wee) - 1 * d%(wee)), (butty(wee) + 1), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (buttx(wee) + 1 * d%(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2) - .5 * d%(wee)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2) + .5 * d%(wee)), (nee2y(wee2) + .5), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - pscircle (buttx(wee) + (nee2x(wee) / 2) * d%(wee)), (butty(wee) + nee2y(wee) / 2), (fighterz(wee) - .05), 1, c% - pscircle (nee2x(wee2) + (foot2x(wee) / 2) * d%(wee)), (nee2y(wee + 2) + foot2y(wee) / 2), (fm1), .8, c% - - CASE 5 - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2) + 2), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2) - 2 * d%(wee)), (nee1y(wee2) - (nee1y(wee) / 3)), (fp1), (nee1x(wee2) + 1 * d%(wee)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2) - 2 * d%(wee)), (nee1y(wee2) + (nee1y(wee) / 3)), (fp1), (nee1x(wee2) + 1 * d%(wee)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - psline (buttx(wee)), (butty(wee) + 2), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2)), (nee2y(wee2) + 2), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2) - 2 * d%(wee)), (nee2y(wee2) - (nee2y(wee) / 3)), (fm1), (nee2x(wee2) + 1 * d%(wee)), (nee2y(wee2)), (fm1), c%, 0 - psline (nee2x(wee2) - 2 * d%(wee)), (nee2y(wee2) + (nee2y(wee) / 3)), (fm1), (nee2x(wee2) + 1 * d%(wee)), (nee2y(wee2)), (fm1), c%, 0 - - - CASE 666 - psline (buttx(wee) + 2 * d%(wee)), (butty(wee) - 2), (fp1), (nee1x(wee2)), (nee1y(wee2) + 2), (fighterz(wee) + .2), 4, 0 - psline (nee1x(wee2)), (nee1y(wee2) - 1), (fighterz(wee) + .2), (foot1x(wee2)), (foot1y(wee2)), (fighterz(wee) + .2), 4, 0 - psline (buttx(wee) - 1 * d%(wee)), (butty(wee)), (fp1), (nee1x(wee2)), (nee1y(wee2)), (fighterz(wee) + .2), 4, 0 - psline (nee1x(wee2)), (nee1y(wee2) + 2), (fighterz(wee) + .2), (foot1x(wee2)), (foot1y(wee2)), (fighterz(wee) + .2), 4, 0 - - psline (buttx(wee) + 2 * d%(wee)), (butty(wee) - 2), (fm1), (nee2x(wee2)), (nee2y(wee2) + 2), (fighterz(wee) - .2), 6, 0 - psline (nee2x(wee2)), (nee2y(wee2) - 1), (fighterz(wee) - .2), (foot2x(wee2)), (foot2y(wee2)), (fighterz(wee) - .2), 6, 0 - psline (buttx(wee) - 1 * d%(wee)), (butty(wee)), (fm1), (nee2x(wee2)), (nee2y(wee2)), (fighterz(wee) - .2), 6, 0 - psline (nee2x(wee2)), (nee2y(wee2) + 2), (fighterz(wee) - .2), (foot2x(wee2)), (foot2y(wee2)), (fighterz(wee) - .2), 6, 0 - - - CASE 1998 - pslightning (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), 1, flash2% - pslightning (nee1x(wee2)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), 1, flash2% - - pslightning (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), 1, flash2% - pslightning (nee2x(wee2)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot1y(wee2)), (fm1), 1, flash2% - - - CASE 2000 - pscline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), .8, legsc%(wee) - pscline (nee1x(wee2)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), .5, legsc%(wee) - - pscline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), .8, c% - pscline (nee2x(wee2)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), .5, c% - - END SELECT - - '---------------------------------------------------------------------- Feet - c% = feetc%(wee) + 8 - tip = 2 * d%(wee) - - IF position%(wee) = 49 THEN - - psline (foot2x(wee2)), (foot2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2) + 2), (fm1), c%, 0 - psline (foot1x(wee2)), (foot1y(wee2)), (fp1), (foot1x(wee2) - tip), (foot1y(wee2) - 2), (fp1), feetc%(wee), 0 - - - ELSE - - SELECT CASE feet%(wee) - CASE 1 - psline (foot2x(wee2)), (foot2y(wee2)), (fm1), (foot2x(wee2) + tip), (foot2y(wee2)), (fm1), c%, 0 - psline (foot1x(wee2)), (foot1y(wee2)), (fp1), (foot1x(wee2) + tip), (foot1y(wee2)), (fp1), feetc%(wee), 0 - - - CASE 2 - psline (foot2x(wee2)), (foot2y(wee2) - 1), (fm1), (foot2x(wee2) + tip), (foot2y(wee2)), (fm1), c%, 1 - psline (foot1x(wee2)), (foot1y(wee2) - 1), (fp1), (foot1x(wee2) + tip), (foot1y(wee2)), (fp1), feetc%(wee), 1 - - - CASE 3 - psline (foot2x(wee2)), (foot2y(wee2)), (fm1), (foot2x(wee2) + tip), (foot2y(wee2)), (fm1), c%, 0 - psline (foot2x(wee2)), (foot2y(wee2) - 1), (fm1), (foot2x(wee2) + tip), (foot2y(wee2)), (fm1), c%, 0 - - psline (foot1x(wee2)), (foot1y(wee2)), (fp1), (foot1x(wee2) + tip), (foot1y(wee2)), (fp1), feetc%(wee), 0 - psline (foot1x(wee2)), (foot1y(wee2) - 1), (fp1), (foot1x(wee2) + tip), (foot1y(wee2)), (fp1), feetc%(wee), 0 - - - CASE 4, 2000 - pscircle (foot1x(wee2) + 1 * d%(wee)), (foot1y(wee2)), (fp1), .5, feetc%(wee) - pscircle (foot2x(wee2) + 1 * d%(wee)), (foot2y(wee2)), (fm1), .5, c% - - CASE 5 - pscircle (foot1x(wee2)), (foot1y(wee2) - .5), (fp1), .5, feetc%(wee) - psline (foot1x(wee2)), (foot1y(wee2) - 1), (fp1), (foot1x(wee2) + 2 * d%(wee)), (foot1y(wee2)), (fp1), feetc%(wee), 0 - - pscircle (foot2x(wee2)), (foot2y(wee2) - .5), (fm1), .5, c% - psline (foot2x(wee2)), (foot2y(wee2) - 1), (fm1), (foot2x(wee2) + 2 * d%(wee)), (foot2y(wee2)), (fm1), c%, 0 - - - CASE 666 - psline (foot1x(wee2) - .4), (foot1y(wee2) - 1), (fighterz(wee) + .2), (foot1x(wee2) + .4), (foot1y(wee2)), (fighterz(wee) + .2), 8, 1 - psline (foot1x(wee2) + .4 * d%(wee)), (foot1y(wee2) - 1), (fighterz(wee) + .2), (foot1x(wee2) + 1 * d%(wee)), (foot1y(wee2)), (fighterz(wee) + .2), 8, 0 - - psline (foot2x(wee2) - .4), (foot2y(wee2) - 1), (fighterz(wee) - .2), (foot2x(wee2) + .4), (foot2y(wee2)), (fighterz(wee) - .2), 8, 1 - psline (foot2x(wee2) + .4 * d%(wee)), (foot2y(wee2) - 1), (fighterz(wee) - .2), (foot2x(wee2) + 1 * d%(wee)), (foot2y(wee2)), (fighterz(wee) - .2), 8, 0 - - END SELECT - - END IF - - '============================================================================ - '------------------------------------------------ Low Detail Fighter Graphics - ELSE - - 'head - pscircle (headx(wee2)), (heady(wee2)), (fighterz(wee)), 1.5, headc%(wee) - - 'body - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (neckx(wee2)), (necky(wee2)), (fighterz(wee)), bodyc%(wee), 0 - - 'arms - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow1x(wee2)), (elbow1y(wee2)), (fp1), armsc%(wee), 0 - psline (neckx(wee2)), (necky(wee2)), (fighterz(wee)), (elbow2x(wee2)), (elbow2y(wee2)), (fm1), armsc%(wee) + 8, 0 - - psline (elbow1x(wee2)), (elbow1y(wee2)), (fp1), (hand1x(wee2)), (hand1y(wee2)), (fp1), armsc%(wee), 0 - psline (elbow2x(wee2)), (elbow2y(wee2)), (fm1), (hand2x(wee2)), (hand2y(wee2)), (fm1), armsc%(wee) + 8, 0 - - 'legs - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee1x(wee2)), (nee1y(wee2)), (fp1), legsc%(wee), 0 - psline (nee1x(wee2)), (nee1y(wee2)), (fp1), (foot1x(wee2)), (foot1y(wee2)), (fp1), legsc%(wee), 0 - - psline (buttx(wee)), (butty(wee)), (fighterz(wee)), (nee2x(wee2)), (nee2y(wee2)), (fm1), legsc%(wee) + 8, 0 - psline (nee2x(wee2)), (nee2y(wee2)), (fm1), (foot2x(wee2)), (foot2y(wee2)), (fm1), legsc%(wee) + 8, 0 - - '---------------------------------------------------------------------------- - END IF - 36 -NEXT wee - - -END SUB - -SUB fighterfreeze (n) -IF canjump%(n) = 1 OR ticker% < 1 THEN butth(n) = 0: buttv(n) = 0 -headh(n) = 0 -neckh(n) = 0 -elbow1h(n) = 0 -elbow2h(n) = 0 -hand1h(n) = 0 -hand2h(n) = 0 -nee1h(n) = 0 -nee2h(n) = 0 -foot1h(n) = 0 -foot2h(n) = 0 - -headv(n) = 0 -neckv(n) = 0 -elbow1v(n) = 0 -elbow2v(n) = 0 -hand1v(n) = 0 -hand2v(n) = 0 -nee1v(n) = 0 -nee2v(n) = 0 -foot1v(n) = 0 -foot2v(n) = 0 -END SUB - -SUB fightergoo (wee, d) - -headh(wee) = headh(wee) / d -neckh(wee) = neckh(wee) / d -elbow1h(wee) = elbow1h(wee) / d -elbow2h(wee) = elbow2h(wee) / d -hand1h(wee) = hand1h(wee) / d -hand2h(wee) = hand2h(wee) / d -nee1h(wee) = nee1h(wee) / d -nee2h(wee) = nee2h(wee) / d -foot1h(wee) = foot1h(wee) / d -foot2h(wee) = foot2h(wee) / d - -headv(wee) = headv(wee) / d -neckv(wee) = neckv(wee) / d -elbow1v(wee) = elbow1v(wee) / d -elbow2v(wee) = elbow2v(wee) / d -hand1v(wee) = hand1v(wee) / d -hand2v(wee) = hand2v(wee) / d -nee1v(wee) = nee1v(wee) / d -nee2v(wee) = nee2v(wee) / d -foot1v(wee) = foot1v(wee) / d -foot2v(wee) = foot2v(wee) / d -END SUB - -SUB fighterinit - - -IF stage% = 12 THEN - FOR wee = 1 TO 2 - particle (buttx(wee) + ((RND - .5) * 15)), (butty(wee) + ((RND - .5) * 15)), fighterz(wee), 15, 20 - NEXT wee -END IF - -buttx(1) = -ring% / 3 -buttx(2) = ring% / 3 -d%(1) = 1 -d%(2) = -1 -FOR wee = 1 TO 2 - IF AIactive%(wee) = 1 THEN AIfighter (wee) - vexed%(wee) = 0 - razers%(wee) = 0 - Special%(wee) = 0 - decap 3 - pticker%(wee) = 0 - butty(wee) = floor1 - 20 - fightercompress (wee) - fighterz(wee) = midstage - fighterfreeze (wee) - koslide%(wee) = ko(wee) - hpslide%(wee) = health%(wee) - - SELECT CASE arms%(wee) - CASE 1 - ahpow%(wee) = 0 - akpow%(wee) = 5 - CASE 2 - ahpow%(wee) = 2 - akpow%(wee) = 3 - CASE 3 - ahpow%(wee) = 3 - akpow%(wee) = 2 - CASE 4 - ahpow%(wee) = 1 - akpow%(wee) = 4 - CASE 5 - ahpow%(wee) = 4 - akpow%(wee) = 1 - CASE 1998 - ahpow%(wee) = 4 - akpow%(wee) = 2 - CASE 666 - ahpow%(wee) = 5 - akpow%(wee) = 7 - CASE 2000 - ahpow%(wee) = 4 - akpow%(wee) = 5 - END SELECT - - SELECT CASE legs%(wee) - CASE 1 - lhpow%(wee) = 0 - lkpow%(wee) = 5 - CASE 2 - lhpow%(wee) = 2 - lkpow%(wee) = 3 - CASE 3 - lhpow%(wee) = 3 - lkpow%(wee) = 2 - CASE 4 - lhpow%(wee) = 3 - lkpow%(wee) = 1 - CASE 5 - lhpow%(wee) = 2 - lkpow%(wee) = 2 - CASE 1998 - lhpow%(wee) = 7 - lkpow%(wee) = 3 - CASE 2000 - lhpow%(wee) = 7 - lkpow%(wee) = 7 - END SELECT - - SELECT CASE head%(wee) - CASE 1: kocharge(wee) = .2: ragecharge(wee) = .4 - CASE 2: kocharge(wee) = .3: ragecharge(wee) = .3 - CASE 3: kocharge(wee) = .4: ragecharge(wee) = .2 - CASE 4: kocharge(wee) = .1: ragecharge(wee) = .5 - CASE 5: kocharge(wee) = .5: ragecharge(wee) = .1 - CASE 666: kocharge(wee) = .5: ragecharge(wee) = .7 - CASE 2000: kocharge(wee) = .8: ragecharge(wee) = 1 - END SELECT -NEXT wee - -END SUB - -SUB fighterlimits -FOR wee = 1 TO 2 - - IF ABS(elbow1x(wee)) > 10 THEN elbow1x(wee) = 0 - IF ABS(hand1x(wee)) > 10 THEN hand1x(wee) = 0 - IF ABS(nee1x(wee)) > 10 THEN nee1x(wee) = 0 - IF ABS(foot1x(wee)) > 10 THEN foot1x(wee) = 0 - - IF ABS(elbow2x(wee)) > 10 THEN elbow2x(wee) = 0 - IF ABS(hand2x(wee)) > 10 THEN hand2x(wee) = 0 - IF ABS(nee2x(wee)) > 10 THEN nee2x(wee) = 0 - IF ABS(foot2x(wee)) > 10 THEN foot2x(wee) = 0 - - - - IF ABS(elbow1y(wee)) > 10 THEN elbow1y(wee) = 0 - IF ABS(hand1y(wee)) > 10 THEN hand1y(wee) = 0 - IF ABS(nee1y(wee)) > 10 THEN nee1y(wee) = 0 - IF ABS(foot1y(wee)) > 10 THEN foot1y(wee) = 0 - - IF ABS(elbow2y(wee)) > 10 THEN elbow2y(wee) = 0 - IF ABS(hand2y(wee)) > 10 THEN hand2y(wee) = 0 - IF ABS(nee2y(wee)) > 10 THEN nee2y(wee) = 0 - IF ABS(foot2y(wee)) > 10 THEN foot2y(wee) = 0 - -NEXT wee -END SUB - -SUB fightermove - -FOR pc1 = 1 TO 2 - - pc2 = pc1 + 2 - - '--------------------------------------------------------------- Misc Physics - 'Push Appart - - IF position%(1) = 1 AND position%(2) = 1 AND butty(1) > floor1 - 25 AND butty(2) > floor1 - 25 THEN - IF fighterz(1) < fighterz(2) + .1 AND fighterz(1) > fighterz(2) - .1 THEN - IF neckx(3) > neckx(4) - 1 AND neckx(3) < neckx(4) + 1 THEN - IF buttx(1) < buttx(2) THEN butth(1) = butth(1) - .5: butth(2) = butth(2) + .5 ELSE butth(1) = butth(1) + .5: butth(2) = butth(2) - .5 - END IF - END IF - END IF - - '------------------------------------------------------------- Apply Movement - buttx(pc1) = buttx(pc1) + butth(pc1) - headx(pc1) = headx(pc1) + headh(pc1) - neckx(pc1) = neckx(pc1) + neckh(pc1) - elbow1x(pc1) = elbow1x(pc1) + elbow1h(pc1) - elbow2x(pc1) = elbow2x(pc1) + elbow2h(pc1) - hand1x(pc1) = hand1x(pc1) + hand1h(pc1) - hand2x(pc1) = hand2x(pc1) + hand2h(pc1) - nee1x(pc1) = nee1x(pc1) + nee1h(pc1) - nee2x(pc1) = nee2x(pc1) + nee2h(pc1) - foot1x(pc1) = foot1x(pc1) + foot1h(pc1) - foot2x(pc1) = foot2x(pc1) + foot2h(pc1) - - butty(pc1) = butty(pc1) + buttv(pc1) - heady(pc1) = heady(pc1) + headv(pc1) - necky(pc1) = necky(pc1) + neckv(pc1) - elbow1y(pc1) = elbow1y(pc1) + elbow1v(pc1) - elbow2y(pc1) = elbow2y(pc1) + elbow2v(pc1) - hand1y(pc1) = hand1y(pc1) + hand1v(pc1) - hand2y(pc1) = hand2y(pc1) + hand2v(pc1) - nee1y(pc1) = nee1y(pc1) + nee1v(pc1) - nee2y(pc1) = nee2y(pc1) + nee2v(pc1) - foot1y(pc1) = foot1y(pc1) + foot1v(pc1) - foot2y(pc1) = foot2y(pc1) + foot2v(pc1) - - fighterz(pc1) = fighterz(pc1) + fighterd(pc1) - hx(pc1) = hx(pc1) + hh(pc1) - hy(pc1) = hy(pc1) + hv(pc1) - - '------------------------------------------------------------- Flip Direction - IF pc1 = 1 AND position%(1) = 1 AND pticker%(1) > 20 AND canjump%(1) = 1 THEN - IF buttx(1) > buttx(2) THEN d%(pc1) = -1 ELSE d%(pc1) = 1 - END IF - - IF pc1 = 2 AND position%(2) = 1 AND pticker%(2) > 20 AND canjump%(2) = 1 THEN - IF buttx(1) < buttx(2) THEN d%(pc1) = -1 ELSE d%(pc1) = 1 - END IF - - - '----------------------------------------------------------- Create X/Y Cords - neckx(pc2) = buttx(pc1) + neckx(pc1) * d%(pc1) - necky(pc2) = butty(pc1) + necky(pc1) - - headx(pc2) = neckx(pc2) + headx(pc1) * d%(pc1) - heady(pc2) = necky(pc2) + heady(pc1) - - elbow1x(pc2) = neckx(pc2) + elbow1x(pc1) * d%(pc1) - elbow1y(pc2) = necky(pc2) + elbow1y(pc1) - elbow2x(pc2) = neckx(pc2) + elbow2x(pc1) * d%(pc1) - elbow2y(pc2) = necky(pc2) + elbow2y(pc1) - - hand1x(pc2) = elbow1x(pc2) + hand1x(pc1) * d%(pc1) - hand1y(pc2) = elbow1y(pc2) + hand1y(pc1) - hand2x(pc2) = elbow2x(pc2) + hand2x(pc1) * d%(pc1) - hand2y(pc2) = elbow2y(pc2) + hand2y(pc1) - - nee1x(pc2) = buttx(pc1) + nee1x(pc1) * d%(pc1) - nee1y(pc2) = butty(pc1) + nee1y(pc1) - nee2x(pc2) = buttx(pc1) + nee2x(pc1) * d%(pc1) - nee2y(pc2) = butty(pc1) + nee2y(pc1) - - foot1x(pc2) = nee1x(pc2) + foot1x(pc1) * d%(pc1) - foot1y(pc2) = nee1y(pc2) + foot1y(pc1) - foot2x(pc2) = nee2x(pc2) + foot2x(pc1) * d%(pc1) - foot2y(pc2) = nee2y(pc2) + foot2y(pc1) - - '---------------------------------------------------------------------------- -NEXT pc1 - - -'----------------------------------------------------------------------- Hair - -'P1 -IF hairl%(1) > 0 THEN - IF headless%(1) = 1 THEN headx(3) = hx(1): heady(3) = hy(1) - hairx(1) = headx(3) - 2 * d%(1) - hairy(1) = heady(3) + 1 - - FOR n% = 2 TO 5 - hairy(n%) = hairy(n%) + gravity - IF hairx(n%) < hairx(n% - 1) - hairl%(1) THEN hairx(n%) = hairx(n% - 1) - hairl%(1) - IF hairy(n%) < hairy(n% - 1) - hairl%(1) THEN hairy(n%) = hairy(n% - 1) - hairl%(1) - IF hairx(n%) > hairx(n% - 1) + hairl%(1) THEN hairx(n%) = hairx(n% - 1) + hairl%(1) - IF hairy(n%) > hairy(n% - 1) + hairl%(1) THEN hairy(n%) = hairy(n% - 1) + hairl%(1) - - NEXT n% - - FOR n% = 2 TO 5 - IF hairx(n%) < hairx(n% - 1) THEN hairx(n%) = hairx(n%) + .5 - IF hairx(n%) > hairx(n% - 1) THEN hairx(n%) = hairx(n%) - .5 - NEXT n% -END IF - - -'P2 -IF hairl%(2) > 0 THEN - IF headless%(2) = 1 THEN headx(4) = hx(2): heady(4) = hy(2) - hairx(6) = headx(4) - 2 * d%(2) - hairy(6) = heady(4) + 1 - - FOR n% = 7 TO 10 - hairy(n%) = hairy(n%) + gravity - IF hairx(n%) < hairx(n% - 1) - hairl%(2) THEN hairx(n%) = hairx(n% - 1) - hairl%(2) - IF hairy(n%) < hairy(n% - 1) - hairl%(2) THEN hairy(n%) = hairy(n% - 1) - hairl%(2) - IF hairx(n%) > hairx(n% - 1) + hairl%(2) THEN hairx(n%) = hairx(n% - 1) + hairl%(2) - IF hairy(n%) > hairy(n% - 1) + hairl%(2) THEN hairy(n%) = hairy(n% - 1) + hairl%(2) - NEXT n% - - FOR n% = 7 TO 10 - IF hairx(n%) < hairx(n% - 1) THEN hairx(n%) = hairx(n%) + .5 - IF hairx(n%) > hairx(n% - 1) THEN hairx(n%) = hairx(n%) - .5 - - NEXT n% -END IF - - -END SUB - -SUB fightername (n%) - -'-------------------------------------------------------------- Generate Name - -SELECT CASE body%(n%) - CASE 1: n1$ = "Th" - CASE 2: n1$ = "S" - CASE 3: n1$ = "K" - CASE 4: n1$ = "V" - CASE 5: n1$ = "R" - CASE 6: n1$ = "L" - CASE 7: n1$ = "D" - CASE 8: n1$ = "Br" -END SELECT - -SELECT CASE head%(n%) - CASE 1: n2$ = "a" - CASE 2: n2$ = "e" - CASE 3: n2$ = "i" - CASE 4: n2$ = "o" - CASE 5: n2$ = "u" -END SELECT - -SELECT CASE hands%(n%) - CASE 1: n4$ = "kk" - CASE 2: n4$ = "t" - CASE 3: n4$ = "n" - CASE 4: n4$ = "t" - CASE 5: n4$ = "l" -END SELECT - -SELECT CASE feet%(n%) - CASE 1: n6$ = "n" - CASE 2: n6$ = "ly" - CASE 3: n6$ = "th" - CASE 4: n6$ = "ra" - CASE 5: n6$ = "cha" -END SELECT - -name$(n%) = n1$ + n2$ + n3$ + n4$ + n5$ + n6$ - -IF head%(n%) = 666 THEN name$(n%) = "Demize" -IF head%(n%) = 1998 THEN name$(n%) = "Magnissa" -IF head%(n%) = 2000 THEN name$(n%) = "MasterBean" - -END SUB - -SUB fighterpop (n) -position%(n) = 1 -buttv(n) = -gravity * 10 -END SUB - -SUB fighterpositions - -fighterdirect - -FOR pc1 = 1 TO 2 - - '------------------------------------------- Player Current / Player Opponent - IF pc1 = 2 THEN po1 = 1 ELSE po1 = 2 - pc2 = pc1 + 2 - po2 = po1 + 2 - - - '------------------------------------------------------------ position ticker - IF psaver%(pc1) = position%(pc1) THEN - IF pticker%(pc1) < 32767 THEN pticker%(pc1) = pticker%(pc1) + 1 - ELSE - psaver%(pc1) = position%(pc1) - pticker%(pc1) = 1 - END IF - - - - - - '======================================================= Position Replacement - '-------------------------------------------------------------- Punch 2 Elbow - IF pticker%(pc1) = 1 THEN - IF neckx(3) > neckx(4) - 6 AND neckx(3) < neckx(4) + 6 THEN - IF position%(pc1) = 2 OR position%(pc1) = 3 THEN position%(pc1) = 4 - END IF - '---------------------------------------------------------------- Short 2 Nee - IF canjump%(pc1) = 1 AND neckx(3) > neckx(4) - 3 AND neckx(3) < neckx(4) + 3 THEN - IF position%(pc1) = 5 THEN position%(pc1) = 7 - END IF - '--------------------------------------------------- Roundhouse 2 In-Air Kick - IF position%(pc1) = 6 AND canjump%(pc1) = 0 AND ABS(butth(pc1)) > .5 THEN - position%(pc1) = 14 - END IF - '-------------------------------------------------------------- ---- --- -- - - END IF - - - '------------------------------------------------------ Opponent Target Areas - - IF headless%(po1) = 0 THEN - h1x = headx(po2) - 2 - h1y = heady(po2) - 4 - h2x = headx(po2) + 2 - h2y = heady(po2) + 4 - ELSE - h1x = neckx(po2) - h1y = necky(po2) - h2x = neckx(po2) - h2y = necky(po2) - END IF - 'psline (h1x), (h1y), (fighterz(po1)), (h2x), (h2y), (fighterz(po1)), 12, 1 - - m1x = neckx(po2) - 2 - m1y = h2y - m2x = neckx(po2) + 2 - m2y = butty(po1) - 'psline (m1x), (m1y), (fighterz(po1)), (m2x), (m2y), (fighterz(po1)), 9, 1 - - l1x = buttx(po1) - 5 - l1y = butty(po1) - l2x = buttx(po1) + 5 - IF foot1y(po2) > foot2y(po2) THEN l2y = foot1y(po2) ELSE l2y = foot2y(po2) - 'psline (l1x), (l1y), (fighterz(po1)), (l2x), (l2y), (fighterz(po1)), 14, 1 - - - 'Save Health/KO for Blocking - IF position%(po1) = 99 THEN healths% = health%(po1): kos = ko(po1) ELSE healths% = 0 - - - '---------------------------------------------------- Turn Off Special Switch - IF position%(pc1) > 29 AND position%(pc1) < 81 THEN Special%(1) = 0 - - '------------------------------------------------------------------ positions - SELECT CASE position%(pc1) - - '------------------------------------------------------------------- Standing - CASE IS = 1 - droop = (ko(pc1) / 50) + (health%(pc1) / 200) - IF neckx(pc1) > 3 THEN neckh(pc1) = neckh(pc1) - .05 ELSE neckh(pc1) = neckh(pc1) + .05 - IF headx(pc1) > 1 THEN headh(pc1) = headh(pc1) - .01 ELSE headh(pc1) = headh(pc1) + .05 - IF elbow1x(pc1) > .5 THEN elbow1h(pc1) = elbow1h(pc1) - .08 ELSE elbow1h(pc1) = elbow1h(pc1) + .08 - IF elbow2x(pc1) > -3 THEN elbow2h(pc1) = elbow2h(pc1) - .08 ELSE elbow2h(pc1) = elbow2h(pc1) + .08 - IF hand1x(pc1) > 2 THEN hand1h(pc1) = hand1h(pc1) - .08 ELSE hand1h(pc1) = hand1h(pc1) + .08 - IF hand2x(pc1) > 3 THEN hand2h(pc1) = hand2h(pc1) - .08 ELSE hand2h(pc1) = hand2h(pc1) + .08 - - IF legs%(pc1) = 666 THEN - IF canjump%(pc1) = 1 AND ABS(butth(pc1)) > .05 AND ABS(butth(pc1)) < 5 THEN - nee1x(pc1) = -2 + (walkx(pc1) * ABS(butth(pc1) / 1.8)) - nee2x(pc1) = 0 - (walkx(pc1) * ABS(butth(pc1) / 1.8)) - ELSE - IF nee1x(pc1) > -3 THEN nee1h(pc1) = nee1h(pc1) - .05 ELSE nee1h(pc1) = nee1h(pc1) + .01 - IF nee2x(pc1) > -3 THEN nee2h(pc1) = nee2h(pc1) - .05 ELSE nee2h(pc1) = nee2h(pc1) + .01 - END IF - IF foot1x(pc1) > 5 THEN foot1h(pc1) = foot1h(pc1) - .1 ELSE foot1h(pc1) = foot1h(pc1) + .01 - IF foot2x(pc1) > 5 THEN foot2h(pc1) = foot2h(pc1) - .05 ELSE foot2h(pc1) = foot2h(pc1) + .01 - ELSE - IF canjump%(pc1) = 1 AND ABS(butth(pc1)) > .05 AND ABS(butth(pc1)) < 5 THEN - nee1x(pc1) = -1 + (walkx(pc1) * ABS(butth(pc1) / 1.8)) - nee2x(pc1) = 3 - (walkx(pc1) * ABS(butth(pc1) / 1.8)) - ELSE - IF nee1x(pc1) > 5 THEN nee1h(pc1) = nee1h(pc1) - .05 ELSE nee1h(pc1) = nee1h(pc1) + .05 - IF nee2x(pc1) > -1 THEN nee2h(pc1) = nee2h(pc1) - .05 ELSE nee2h(pc1) = nee2h(pc1) + .05 - END IF - IF foot1x(pc1) > -1 THEN foot1h(pc1) = foot1h(pc1) - .1 ELSE foot1h(pc1) = foot1h(pc1) + .01 - IF foot2x(pc1) > -3 THEN foot2h(pc1) = foot2h(pc1) - .01 ELSE foot2h(pc1) = foot2h(pc1) + .05 - END IF - - IF necky(pc1) > -7 - droop THEN neckv(pc1) = neckv(pc1) - .05 ELSE neckv(pc1) = neckv(pc1) + .05 - IF heady(pc1) > -1 - droop THEN headv(pc1) = headv(pc1) - .01 ELSE headv(pc1) = headv(pc1) + .01 - IF elbow1y(pc1) > 6 THEN elbow1v(pc1) = elbow1v(pc1) - .08 ELSE elbow1v(pc1) = elbow1v(pc1) + .08 - IF elbow2y(pc1) > 5 THEN elbow2v(pc1) = elbow2v(pc1) - .08 ELSE elbow2v(pc1) = elbow2v(pc1) + .08 - IF hand1y(pc1) > -2 - droop THEN hand1v(pc1) = hand1v(pc1) - .08 ELSE hand1v(pc1) = hand1v(pc1) + .08 - IF hand2y(pc1) > 2.5 - droop THEN hand2v(pc1) = hand2v(pc1) - .08 ELSE hand2v(pc1) = hand2v(pc1) + .08 - IF nee1y(pc1) > 8 THEN nee1v(pc1) = nee1v(pc1) - .01 ELSE nee1v(pc1) = nee1v(pc1) + .1 - IF nee2y(pc1) > 8 THEN nee2v(pc1) = nee2v(pc1) - .01 ELSE nee2v(pc1) = nee2v(pc1) + .1 - IF foot1y(pc1) > 7 THEN foot1v(pc1) = foot1v(pc1) - .01 ELSE foot1v(pc1) = foot1v(pc1) + .05 - IF foot2y(pc1) > 7 THEN foot2v(pc1) = foot2v(pc1) - .01 ELSE foot2v(pc1) = foot2v(pc1) + .1 - - - fightergoo (pc1), 1.3 - - '------------------------------------------------------------------------ Jab - - CASE IS = 2 - IF pticker%(pc1) = 1 THEN sbfx 1 - fighterfreeze (pc1) - IF neckx(pc1) < 3.5 THEN neckx(pc1) = neckx(pc1) + .5 - elbow1x(pc1) = 4 - elbow1y(pc1) = 0 - hand1x(pc1) = 3 - hand1y(pc1) = 0 - elbow2y(pc1) = 2 - - - 'Momontary Pause / Detect hit - IF pticker%(pc1) = 2 THEN - fighterfreeze (pc1) - - IF razers%(pc1) > 0 THEN ahpow%(pc1) = ahpow%(pc1) + 5 - - 'High/Head - IF hand1x(pc2) > h1x AND hand1x(pc2) < h2x AND hand1y(pc2) > h1y AND hand1y(pc2) < h2y THEN - health%(po1) = health%(po1) - ahpow%(pc1) * 2 - ko(po1) = ko(po1) - akpow%(pc1) * 2 - position%(po1) = 1 - IF headx(po1) > 0 THEN headx(po1) = headx(po1) - 1 - IF position%(po1) < 99 THEN - IF buttx(pc1) < buttx(po1) THEN particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 4, 3: butth(po1) = butth(po1) + .5 ELSE particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 3, 3: butth(po1) = butth(po1) - .5 - END IF - IF razers%(pc1) > 0 THEN soundticker% = 0: sbfx 17 ELSE soundticker% = 0: sbfx 10 - END IF - - 'Medium/Low - IF hand1x(pc2) > m1x AND hand1x(pc2) < m2x AND hand1y(pc2) > m1y AND hand1y(pc2) < l2y THEN - health%(po1) = health%(po1) - ahpow%(pc1) - ko(po1) = ko(po1) - akpow%(pc1) - position%(po1) = 1 - neckx(po1) = neckx(po1) + 1 - necky(po1) = necky(po1) + 1 - IF position%(po1) < 99 THEN particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 1, 5 - IF razers%(pc1) > 0 THEN soundticker% = 0: sbfx 17 ELSE soundticker% = 0: sbfx 9 - END IF - - IF razers%(pc1) > 0 THEN ahpow%(pc1) = ahpow%(pc1) - 5 - - END IF - - 'Return Position - IF pticker%(pc1) > 3 THEN - elbow1x(pc1) = 2 - elbow1h(pc1) = -.5 - elbow1y(pc1) = 1 - elbow1v(pc1) = 1 - hand1h(pc1) = -.5 - hand1v(pc1) = -.5 - position%(pc1) = 1 - END IF - - '--------------------------------------------------------------------- Strong - CASE IS = 3 - IF pticker%(pc1) = 1 THEN sbfx 2 - fighterfreeze (pc1) - IF neckx(pc1) < 3 THEN neckx(pc1) = neckx(pc1) + 1 - elbow2x(pc1) = 4 - elbow2y(pc1) = -1 - hand2x(pc1) = 3 - hand2y(pc1) = -1.5 - - 'Momontary Pause / Detect hit - IF pticker%(pc1) = 2 THEN - fighterfreeze (pc1) - - IF razers%(pc1) > 0 THEN ahpow%(pc1) = ahpow%(pc1) + 5 - - 'High/Head - IF hand2x(pc2) > h1x AND hand2x(pc2) < h2x AND hand2y(pc2) > h1y AND hand2y(pc2) < h2y THEN - health%(po1) = health%(po1) - ahpow%(pc1) * 2 - ko(po1) = ko(po1) - akpow%(pc1) - position%(po1) = 1 - IF headx(po1) > 0 THEN headx(po1) = headx(po1) - 1 - IF neckx(po1) > 0 THEN neckx(po1) = neckx(po1) - 1 - IF position%(po1) < 99 THEN - IF buttx(pc1) < buttx(po1) THEN particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 4, 3: butth(po1) = butth(po1) + 1 ELSE particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 3, 3: butth(po1) = butth(po1) - 1 - END IF - IF razers%(pc1) > 0 THEN soundticker% = 0: sbfx 17 ELSE soundticker% = 0: sbfx 11 - END IF - - 'Medium/Low - IF hand2x(pc2) > m1x AND hand2x(pc2) < m2x AND hand2y(pc2) > m1y AND hand2y(pc2) < l2y THEN - health%(po1) = health%(po1) - ahpow%(pc1) * 3 - ko(po1) = ko(po1) - akpow%(pc1) * 2 - position%(po1) = 1 - neckx(po1) = neckx(po1) + 1 - necky(po1) = necky(po1) + 1 - IF position%(po1) < 99 THEN particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 1, 5 - IF razers%(pc1) > 0 THEN soundticker% = 0: sbfx 17 ELSE soundticker% = 0: sbfx 10 - END IF - - IF razers%(pc1) > 0 THEN ahpow%(pc1) = ahpow%(pc1) - 5 - - END IF - - 'Return Position - IF pticker%(pc1) > 3 THEN - elbow2x(pc1) = 2 - elbow2h(pc1) = -1.5 - elbow2v(pc1) = 1 - hand2h(pc1) = 0 - hand2v(pc1) = .5 - position%(pc1) = 1 - END IF - - - '---------------------------------------------------------------------- Elbow - CASE IS = 4 - IF pticker%(pc1) = 1 THEN sbfx 3 - fighterfreeze (pc1) - elbow1x(pc1) = 5 - elbow1y(pc1) = 0 - hand1x(pc1) = -3 - hand1y(pc1) = 1.5 - - 'Momontary Pause / Detect hit - IF pticker%(pc1) = 2 THEN - fighterfreeze (pc1) - - IF elbow1x(pc2) > l1x AND elbow1x(pc2) < l2x AND elbow1y(pc2) > h1y AND elbow1y(pc2) < l2y THEN - health%(po1) = health%(po1) - ahpow%(pc1) - ko(po1) = ko(po1) - akpow%(pc1) * 2 - IF buttx(pc1) > buttx(po1) THEN butth(po1) = butth(po1) - .3 ELSE butth(po1) = butth(po1) + .3 - IF position%(po1) < 99 THEN particle (elbow1x(pc2)), (elbow1y(pc2)), (fighterz(pc1)), 1, 3 - soundticker% = 0: sbfx 9 - position%(po1) = 1 - END IF - END IF - - 'Return Position - IF pticker%(pc1) > 3 THEN - elbow1v(pc1) = 1 - position%(pc1) = 1 - END IF - - - '---------------------------------------------------------------------- Short - CASE IS = 5 - - fighterfreeze (pc1) - - SELECT CASE combo%(pc1) - '----------------------------+ - CASE 0 - sbfx 2 - nee1x(pc1) = 6 - nee1y(pc1) = -1 - foot1x(pc1) = 6 - foot1y(pc1) = -1 - - - '----------------------------+ - CASE 1 - sbfx 1 - neckx(pc1) = neckx(pc1) + 1 - nee1x(pc1) = 5 - nee1y(pc1) = 5 - foot1x(pc1) = 5 - foot1y(pc1) = 5 - - - '----------------------------+ - CASE 2 - sbfx 2 - combo%(pc1) = -1 - - buttx(pc1) = buttx(pc1) + (2 * d%(pc1)) - buttv(pc1) = buttv(pc1) - 3 - - neckx(pc1) = -1 - nee1x(pc1) = 6 - nee1y(pc1) = -6 - foot1x(pc1) = 6 - foot1y(pc1) = -6 - - nee2x(pc1) = 0 - foot2x(pc1) = 0 - - nee1v(pc1) = 1 - foot1v(pc1) = 2 - - elbow1x(pc1) = elbow1x(pc1) + 2 - elbow1y(pc1) = elbow1y(pc1) - 2 - hand2x(pc1) = hand2x(pc1) - 2 - hand2y(pc1) = hand2y(pc1) + 2 - - END SELECT - - - tx = buttx(pc1) + nee1x(pc1) * d%(pc1) - ty = butty(pc1) + nee1y(pc1) - tx = tx + foot1x(pc1) * d%(pc1) - ty = ty + foot1y(pc1) - - 'Detect Hit - IF tx > l1x AND tx < l2x AND ty > h1y AND ty < l2y THEN - soundticker% = 0: sbfx 9 - IF position%(po1) < 99 THEN - health%(po1) = health%(po1) - lhpow%(pc1) - ko(po1) = ko(po1) - lkpow%(pc1) - position%(po1) = 1 - IF combo%(pc1) = -1 THEN particle (tx), (ty), (fighterz(pc1)), 2, 5: buttv(po1) = -8: butth(po1) = d%(pc1): fall (po1) ELSE IF position%(po1) < 99 THEN particle (tx), (ty), (fighterz(pc1)), 1, 5 - combo%(pc1) = combo%(pc1) + 1: combol%(pc1) = 30 - END IF - END IF - - 'Return Position - position%(pc1) = 1 - IF foot1x(pc1) > 0 THEN foot1h(pc1) = -2 - - - '----------------------------------------------------------------- Roundhouse - CASE IS = 6 - - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - neckx(pc1) = 0 - buttx(pc1) = buttx(pc1) + (d%(pc1) * 2) - - nee1x(pc1) = 0 - foot1x(pc1) = 0 - - IF foot1y(pc1) < 1 OR nee1y(pc1) > 3 THEN - nee1y(pc1) = 8 - foot1y(pc1) = 7 - END IF - - elbow1h(pc1) = -.5 - elbow2h(pc1) = .5 - elbow2v(pc1) = -.5 - END IF - - IF pticker%(pc1) = 3 THEN - IF buttx(pc1) > buttx(po1) THEN - d%(pc1) = -1 - ELSE - d%(pc1) = 1 - END IF - END IF - - IF pticker%(pc1) = 5 THEN - nee2h(pc1) = 2 - nee2v(pc1) = -2 - - foot2h(pc1) = -1 - foot2v(pc1) = -1 - END IF - - IF pticker%(pc1) = 8 THEN - sbfx 4 - fighterfreeze (pc1) - - elbow1x(pc1) = elbow1x(pc1) + 2 - elbow1y(pc1) = elbow1y(pc1) - 2 - - hand2y(pc1) = hand2y(pc1) + 2 - elbow2y(pc1) = elbow2y(pc1) + 2 - - nee2x(pc1) = 5 - nee2y(pc1) = -1 - - - foot2x(pc1) = 5 - foot2y(pc1) = -1 - END IF - - - 'Detect Hit - IF pticker%(pc1) = 9 AND foot2x(pc2) > l1x AND foot2x(pc2) < l2x AND foot2y(pc2) > h1y AND foot2y(pc2) < l2y THEN - combol%(pc1) = 30 - IF position%(po1) < 99 THEN - health%(po1) = health%(po1) - lhpow%(pc1) * 2 - soundticker% = 0: sbfx 11 - ko(po1) = ko(po1) - lkpow%(pc1) * 2 - particle (foot2x(pc2)), (foot2y(pc2)), (fighterz(pc1)), 1, 5 - position%(po1) = 1 - IF nee1y(pc1) < 5 THEN - fall po1 - buttv(po1) = buttv(po1) - 5 - ELSE - fighterz(po1) = midstage + .5 - END IF - ELSE - soundticker% = 0: sbfx 9 - END IF - END IF - - - IF pticker%(pc1) > 9 THEN - fighterfreeze (pc1) - - nee2h(pc1) = -1 - nee2v(pc1) = 1 - foot2h(pc1) = -2 - foot2v(pc1) = 1 - - position%(pc1) = 1 - END IF - - - '------------------------------------------------------------------------ Nee - CASE IS = 7 - IF pticker%(pc1) = 1 THEN sbfx 3 - fighterfreeze (pc1) - buttx(pc1) = buttx(pc1) + d%(pc1) - buttv(pc1) = buttv(pc1) - 2 - nee1x(pc1) = 0 - nee1y(pc1) = 6 - foot1x(pc1) = -1 - foot1y(pc1) = 5 - nee2x(pc1) = 5 - nee2y(pc1) = -4 - elbow1x(pc1) = -2 - elbow1y(pc1) = 3 - elbow2x(pc1) = -2 - elbow2y(pc1) = 3 - - 'Momontary Pause / Detect hit - IF pticker%(pc1) = 2 THEN - fighterfreeze (pc1) - - IF nee2x(pc2) > l1x AND nee2x(pc2) < l2x AND nee2y(pc2) > h1y AND nee2y(pc2) < l2y THEN - soundticker% = 0: sbfx 10 - health%(po1) = health%(po1) - lhpow%(pc1) * 2 - ko(po1) = ko(po1) - lkpow%(pc1) - combol%(pc1) = 30 - neckx(po1) = 2 - heady(po1) = 2 - position%(po1) = 1 - IF buttx(pc1) > buttx(po1) THEN butth(po1) = butth(po1) - .3: particle (nee2x(pc2)), (nee2y(pc2)), (fighterz(pc1)), 3, 3 ELSE butth(po1) = butth(po1) + .3: particle (nee2x(pc2)), (nee2y(pc2)), (fighterz(pc1)), 4, 3 - END IF - END IF - - 'Return Position - IF pticker%(pc1) > 3 THEN - nee2v(pc1) = 1 - position%(pc1) = 1 - END IF - - - - '--------------------------------------------------------------- Fall Forward - CASE IS = 8 - IF pticker%(pc1) = 1 THEN buttv(pc1) = buttv(pc1) - 3 - - IF neckx(pc1) > 7 THEN neckh(pc1) = neckh(pc1) - .05 ELSE neckh(pc1) = neckh(pc1) + .1 - IF headx(pc1) > 3 THEN headh(pc1) = headh(pc1) - .01 ELSE headh(pc1) = headh(pc1) + .1 - elbow1h(pc1) = 0 - elbow2h(pc1) = 0 - hand1h(pc1) = 0 - hand2h(pc1) = 0 - IF nee1x(pc1) > -5 THEN nee1h(pc1) = nee1h(pc1) - .2 ELSE nee1h(pc1) = nee1h(pc1) + .1 - IF nee2x(pc1) > -2 THEN nee2h(pc1) = nee2h(pc1) - .2 ELSE nee2h(pc1) = nee2h(pc1) + .1 - IF foot1x(pc1) > -4 THEN foot1h(pc1) = foot1h(pc1) - .1 ELSE foot1h(pc1) = foot1h(pc1) + .05 - IF foot2x(pc1) > -3 THEN foot2h(pc1) = foot2h(pc1) - .1 ELSE foot2h(pc1) = foot2h(pc1) + .05 - - IF necky(pc1) > -3 THEN neckv(pc1) = neckv(pc1) - .05 ELSE neckv(pc1) = neckv(pc1) + .05 - IF heady(pc1) > 2 THEN headv(pc1) = headv(pc1) - .01 ELSE headv(pc1) = headv(pc1) + .05 - IF elbow1y(pc2) > butty(pc1) THEN elbow1v(pc1) = elbow1v(pc1) - .1 ELSE elbow1v(pc1) = elbow1v(pc1) + .05 - IF elbow2y(pc2) > butty(pc1) THEN elbow2v(pc1) = elbow2v(pc1) - .1 ELSE elbow2v(pc1) = elbow2v(pc1) + .05 - IF hand1y(pc2) > butty(pc1) THEN hand1v(pc1) = hand1v(pc1) - .05 ELSE hand1v(pc1) = hand1v(pc1) + .05 - IF hand2y(pc2) > butty(pc1) THEN hand2v(pc1) = hand2v(pc1) - .05 ELSE hand2v(pc1) = hand2v(pc1) + .05 - nee1y(pc1) = 0 - foot1y(pc1) = 0 - nee2y(pc1) = 0 - foot2y(pc1) = 0 - fightergoo (pc1), 1.3 - - IF ABS(butth(pc1)) < .05 AND ABS(buttv(pc1)) < .1 AND pticker%(pc1) > sdelay%(pc1) AND necky(pc2) > butty(pc1) - 3 THEN - fighterfreeze (pc1) - IF ko(pc1) > 0 AND health%(pc1) > 0 THEN - position%(pc1) = 9 - neckx(pc1) = 3 - necky(pc1) = -5 - elbow1x(pc1) = 3 - elbow1y(pc1) = 4 - hand1x(pc1) = 2 - hand1y(pc1) = 3 - elbow2x(pc1) = 3 - elbow2y(pc1) = 4 - hand2x(pc1) = 2 - hand2y(pc1) = 3 - END IF - END IF - - - '------------------------------------------------------------------- Get Up 1 - CASE IS = 9 - - IF heady(pc1) > -1 - droop THEN headv(pc1) = headv(pc1) - .1 ELSE headv(pc1) = headv(pc1) + .05 - nee1h(pc1) = 1.5 - neckh(pc1) = -.2 - neckv(pc1) = -.4 - - fightergoo (pc1), 1.05 - - IF pticker%(pc1) > 5 THEN - - position%(pc1) = 1 - - headx(pc1) = 1 - neckh(pc1) = 0 - neckv(pc1) = 0 - buttv(pc1) = -5 - nee2x(pc1) = 2 - foot1x(pc1) = 1 - foot2x(pc1) = -2 - nee1h(pc1) = 0 - nee1y(pc1) = 0 - nee2y(pc1) = 4 - foot1y(pc1) = 4 - foot2y(pc1) = 4 - END IF - - - - '------------------------------------------------------------------ Fall Back - CASE IS = 10 - IF neckx(pc1) > -7 THEN neckh(pc1) = neckh(pc1) - .1 ELSE neckh(pc1) = neckh(pc1) + .05 - IF headx(pc1) > -3 THEN headh(pc1) = headh(pc1) - .1 ELSE headh(pc1) = headh(pc1) + .01 - elbow1h(pc1) = 0 - elbow2h(pc1) = 0 - hand1h(pc1) = 0 - hand2h(pc1) = 0 - IF nee1x(pc1) > 5 THEN nee1h(pc1) = nee1h(pc1) - .01 ELSE nee1h(pc1) = nee1h(pc1) + .1 - IF nee2x(pc1) > 2 THEN nee2h(pc1) = nee2h(pc1) - .01 ELSE nee2h(pc1) = nee2h(pc1) + .1 - IF foot1x(pc1) > 4 THEN foot1h(pc1) = foot1h(pc1) - .05 ELSE foot1h(pc1) = foot1h(pc1) + .1 - IF foot2x(pc1) > 3 THEN foot2h(pc1) = foot2h(pc1) - .05 ELSE foot2h(pc1) = foot2h(pc1) + .1 - - IF necky(pc1) > 0 THEN neckv(pc1) = neckv(pc1) - .05 ELSE neckv(pc1) = neckv(pc1) + .1 - IF heady(pc1) > -2 THEN headv(pc1) = headv(pc1) - .01 ELSE headv(pc1) = headv(pc1) + .01 - IF elbow1y(pc1 + 2) > butty(pc1) THEN elbow1v(pc1) = elbow1v(pc1) - .1 ELSE elbow1v(pc1) = elbow1v(pc1) + .05 - IF elbow2y(pc1 + 2) > butty(pc1) THEN elbow2v(pc1) = elbow2v(pc1) - .1 ELSE elbow2v(pc1) = elbow2v(pc1) + .05 - IF hand1y(pc1 + 2) > butty(pc1) THEN hand1v(pc1) = hand1v(pc1) - .05 ELSE hand1v(pc1) = hand1v(pc1) + .05 - IF hand2y(pc1 + 2) > butty(pc1) THEN hand2v(pc1) = hand2v(pc1) - .05 ELSE hand2v(pc1) = hand2v(pc1) + .05 - IF nee1y(pc1) > -1 THEN nee1v(pc1) = nee1v(pc1) - .2 ELSE nee1v(pc1) = nee1v(pc1) + .05 - IF foot1y(pc1) > 1 THEN foot1v(pc1) = foot1v(pc1) - .1 ELSE foot1v(pc1) = foot1v(pc1) + .1 - IF nee2y(pc1) > -3 THEN nee2v(pc1) = nee2v(pc1) - .2 ELSE nee2v(pc1) = nee2v(pc1) + .05 - IF foot2y(pc1) > 3 THEN foot2v(pc1) = foot2v(pc1) - .1 ELSE foot2v(pc1) = foot2v(pc1) + .1 - fightergoo (pc1), 1.3 - - IF ABS(butth(pc1)) < .05 AND ABS(buttv(pc1)) < .1 AND pticker%(pc1) > sdelay%(pc1) AND necky(pc2) >= butty(pc1) THEN - fighterfreeze (pc1) - IF ko(pc1) > 0 AND health%(pc1) > 0 THEN position%(pc1) = 11 - END IF - - '------------------------------------------------------------------- Get Up 2 - CASE IS = 11 - - neckv(pc1) = neckv(pc1) + .005 - - IF nee1x(pc1) > -5 THEN nee1h(pc1) = nee1h(pc1) - .1 - IF nee2x(pc1) > -5 THEN nee2h(pc1) = nee2h(pc1) - .1 - IF foot1x(pc1) > 4 THEN foot1h(pc1) = foot1h(pc1) - .1 - IF foot2x(pc1) > 4 THEN foot2h(pc1) = foot2h(pc1) - .1 - - IF nee1y(pc1) > -3 THEN nee1v(pc1) = nee1v(pc1) - .01 - IF nee2y(pc1) > -3 THEN nee2v(pc1) = nee2v(pc1) - .01 - IF foot1y(pc1) > -2 THEN foot1v(pc1) = foot1v(pc1) - .1 - IF foot2y(pc1) > -2 THEN foot2v(pc1) = foot2v(pc1) - .1 - - fightergoo (pc1), 1.3 - - - IF pticker%(pc1) > 25 THEN - - position%(pc1) = 1 - headx(pc1) = 1 - - neckh(pc1) = 2 - neckv(pc1) = -2 - - buttv(pc1) = -5 - - nee1x(pc1) = 5 - nee2x(pc1) = 2 - foot1x(pc1) = 1 - foot2x(pc1) = -2 - - nee1y(pc1) = 0 - nee2y(pc1) = 4 - foot1y(pc1) = 4 - foot2y(pc1) = 4 - END IF - - - '--------------------------------------------------------------------- Crouch - CASE IS = 12 - IF pticker%(pc1) = 1 THEN fighterfreeze (pc1) - nee1y(pc1) = 0 - nee2y(pc1) = 0 - - IF pticker%(pc1) > 15 THEN - position%(pc1) = 1 - END IF - - - '------------------------------------------------------------------ Upper Cut - CASE IS = 13 - IF pticker%(pc1) = 1 THEN sbfx 4 - fighterfreeze (pc1) - - elbow2x(pc1) = 3 - elbow2y(pc1) = -5 - hand2x(pc1) = 0 - hand2y(pc1) = -4 - - elbow1x(pc1) = -3 - elbow1y(pc1) = 5 - hand1x(pc1) = 0 - hand1y(pc1) = 4 - - headx(pc1) = 0 - necky(pc1) = -10 - neckx(pc1) = 1 - - IF legs%(pc1) <> 666 THEN - nee1x(pc1) = 5 - nee2x(pc1) = -1 - foot1x(pc1) = -1 - foot2x(pc1) = -3 - END IF - - nee1y(pc1) = 8 - nee2y(pc1) = 8 - foot1y(pc1) = 7 - foot2y(pc1) = 7 - - 'Detect Hit - IF pticker%(pc1) = 2 THEN - - - IF hand2x(pc2) > m1x - 5 AND hand2x(pc2) < m2x + 5 AND hand2y(pc2) > h1y - 10 AND hand2y(pc2) < l2y THEN - soundticker% = 0: sbfx 11 - IF razers%(pc1) > 0 THEN n% = 10: bgcolor% = 12: soundticker% = 0: sbfx 17 - health%(po1) = health%(po1) - ((ahpow%(pc1) + n%) * 3) - IF health%(po1) <= 0 THEN decap (po1) - - IF position%(po1) <> 99 THEN - butth(po1) = d%(pc1) / 2 - ko(po1) = ko(po1) - akpow%(pc1) * 3 - necky(po1) = necky(po1) + 1 - buttv(po1) = -(ahpow%(pc1) * 3) - 5 - position%(po1) = 10 - FOR wee = 1 TO 50 STEP 5: particle (hand2x(pc2) + ((RND - .5) * 5)), (butty(pc1) - wee), (fighterz(pc1)), 2, 1: NEXT wee - ELSE - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 6, 3 - END IF - END IF - - END IF - - - IF pticker%(pc1) > 9 THEN - position%(pc1) = 1 - elbow2v(pc1) = 2 - END IF - - - '---------------------------------------------------------------- In-Air Kick - CASE IS = 14 - - IF pticker%(pc1) = 1 THEN - sbfx 3 - fighterfreeze (pc1) - neckx(pc1) = -5 - - nee1x(pc1) = -5 - foot1x(pc1) = 5 - nee1y(pc1) = 1 - foot1y(pc1) = 1 - - elbow1x(pc1) = -4 - elbow1y(pc1) = 2 - hand1x(pc1) = 3 - hand1y(pc1) = 1 - - elbow2x(pc1) = 4 - elbow2y(pc1) = 2 - - nee2h(pc1) = 2 - nee2v(pc1) = -2 - foot2h(pc1) = -1 - foot2v(pc1) = -2 - END IF - - IF pticker%(pc1) = 3 THEN - fighterfreeze (pc1) - - hand2y(pc1) = hand2y(pc1) + 2 - elbow2y(pc1) = elbow2y(pc1) + 2 - nee2x(pc1) = 5 - nee2y(pc1) = 0 - foot2x(pc1) = 5 - foot2y(pc1) = 0 - END IF - - - IF pticker%(pc1) > 3 AND nee2x(pc2) > l1x - 5 AND nee2x(pc2) < l2x + 5 AND foot2y(pc2) > h1y AND foot2y(pc2) < l2y THEN - soundticker% = 0: sbfx 10 - health%(po1) = health%(po1) - lhpow%(pc1) * 3 - ko(po1) = ko(po1) - lkpow%(pc1) * 2 - particle (nee2x(pc2)), (foot2y(pc2)), (fighterz(pc1)), 1, 5 - combol%(pc1) = 30 - END IF - - - IF pticker%(pc1) = 5 THEN - fighterfreeze (pc1) - - neckh(pc1) = 1 - - nee1h(pc1) = 1 - nee1v(pc1) = 1 - foot1h(pc1) = -2 - foot1v(pc1) = 1 - - nee2v(pc1) = 1 - foot2h(pc1) = -2 - foot2v(pc1) = 1 - position%(pc1) = 1 - END IF - - '--------------------------------------------------------------- Delayed Fall - CASE IS = 15 - fighterfreeze (pc1) - IF pticker%(pc1) > sdelay%(pc1) * 2 THEN position%(pc1) = 8: buttv(pc1) = buttv(pc1) + 3 - - - - - - - 'SPECIALS ========================================================== SPECIALS` - - - '-------------------------------------------------------------- One Fire Ball - CASE IS = 30 - fighterfreeze (pc1) - IF neckx(pc1) > 2 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF necky(pc1) > -7 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF hand1x(pc1) > -1 THEN hand1h(pc1) = -.2 ELSE hand1h(pc1) = .2 - IF hand2x(pc1) > 1 THEN hand2h(pc1) = -.2 ELSE hand2h(pc1) = .2 - IF hand1y(pc1) > 2 THEN hand1v(pc1) = -.2 ELSE hand1v(pc1) = .2 - IF hand2y(pc1) > 3 THEN hand2v(pc1) = -.2 ELSE hand2v(pc1) = .2 - IF elbow2x(pc1) > -5 THEN elbow2h(pc1) = -.2 ELSE elbow2h(pc1) = .2 - - IF pticker%(pc1) > 3 THEN - soundticker% = 0: sbfx 4 - IF ko(pc1) > 5 THEN - ko(pc1) = ko(pc1) - 3 - IF pc1 = 2 THEN n% = 3 - projectile%(1 + n%) = 25 - projectilex(1 + n%) = hand1x(pc2) - projectiley(1 + n%) = necky(pc2) - projectileh(1 + n%) = d%(pc1) * 10 - projectilev(1 + n%) = 0 - projectilet%(1 + n%) = 2 - - position%(pc1) = 1 - neckx(pc1) = 5 - necky(pc1) = -6 - - elbow1x(pc1) = 5 - hand1x(pc1) = 4 - elbow1y(pc1) = 0 - hand1y(pc1) = 0 - - butth(pc1) = butth(pc1) - (d%(pc1) / 2) - ELSE - position%(pc1) = 1 - particle (hand1x(pc2)), (hand1y(pc2)), fighterz(pc1), 15, 20 - END IF - END IF - - - x = (hand1x(pc2) + hand2x(pc2)) / 2 - y = (hand1y(pc2) + hand2y(pc2)) / 2 - - pscircle (x), (y), (fighterz(pc1)), 1, flash3% - psline (x), (y), (fighterz(pc1)), (x + ((RND - .5) * 75)), (y + ((RND - .5) * 75)), (fighterz(pc1)), 12, 0 - - - '------------------------------------------------------------------ Power Jab - CASE IS = 31 - - 'Draw Back - IF pticker%(pc1) < 6 THEN - elbow1h(pc1) = -1 - elbow1v(pc1) = -.5 - hand1x(pc1) = 1 - hand1y(pc1) = -1 - END IF - - 'Jab - IF pticker%(pc1) = 6 THEN - IF ko(pc1) > 10 THEN - ko(pc1) = ko(pc1) - 5 - fighterfreeze (pc1) - elbow1x(pc1) = 3 - elbow1y(pc1) = 4 - hand1x(pc1) = 3 - hand1y(pc1) = -2 - neckx(pc1) = 4 - necky(pc1) = -7 - neckv(pc1) = -.2 - ELSE - fighterfreeze (pc1) - position%(pc1) = 1 - END IF - END IF - - 'Detect hit - IF pticker%(pc1) = 7 THEN - fighterfreeze (pc1) - - IF hand1x(pc2) > m1x - 4 AND hand1x(pc2) < m2x + 4 AND hand1y(pc2) > h1y AND hand1y(pc2) < l2y THEN - IF razers%(pc1) > 0 THEN - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 2, 10 - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 3, 10 - n% = 10 - bgcolor% = 15 - soundticker% = 0: sbfx 17 - ELSE - bgcolor% = 4 - soundticker% = 0: sbfx 11 - END IF - - IF position%(po1) <> 99 THEN - health%(po1) = health%(po1) - ((ahpow%(pc1) + n%) * 2) - ko(po1) = ko(po1) - akpow%(pc1) * 3 - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 9, 10 - position%(po1) = 1 - ELSE - ko(po1) = ko(po1) - akpow%(pc1) - END IF - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 1, 10 - - heady(po1) = heady(po1) + 1 - butty(po1) = butty(po1) - 10 - END IF - END IF - - 'Return Position - IF pticker%(pc1) = 8 THEN - position%(pc1) = 1 - elbow1h(pc1) = -1 - hand1v(pc1) = 1 - END IF - - - 'Effects - IF pticker%(pc1) > 6 THEN - psline (neckx(pc2) - (8 * d%(pc1))), (necky(pc2) + 5), (fighterz(pc1)), (neckx(pc2) + (6 * d%(pc1))), (necky(pc2) + 3), (fighterz(pc1)), (15), 3 - END IF - - - - - '------------------------------------------------------------------- Neck Jab - CASE IS = 32 - - 'Draw Back - IF pticker%(pc1) < 6 THEN - elbow1h(pc1) = -1 - elbow1v(pc1) = -.5 - hand1x(pc1) = 1 - hand1y(pc1) = -1 - END IF - - 'Jab - IF pticker%(pc1) = 6 THEN - IF ko(pc1) > 10 AND neckx(pc2) > m1x - 10 AND neckx(pc2) < m2x + 10 AND necky(pc2) > h1y - 7 THEN - IF buttx(pc1) > buttx(po1) THEN d%(pc1) = -1 ELSE d%(pc1) = 1 - ko(pc1) = ko(pc1) - 5 - fighterfreeze (pc1) - hand1x(pc1) = (neckx(po2) - neckx(pc2)) / (2 * d%(pc1)) - elbow1x(pc1) = (neckx(po2) - neckx(pc2)) / (2 * d%(pc1)) - hand1y(pc1) = -1 - elbow1y(pc1) = -1 - neckx(pc1) = 4 - ELSE - fighterfreeze (pc1) - position%(pc1) = 1 - END IF - END IF - - 'Detect hit - IF pticker%(pc1) = 7 AND position%(po1) <> 99 THEN - fighterfreeze (pc1) - - IF hand1x(pc2) > m1x - 2 AND hand1x(pc2) < m2x + 2 AND hand1y(pc2) > h1y - 1 AND hand1y(pc2) < h2y + 1 THEN - IF razers%(pc1) > 0 THEN - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 2, 10 - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 3, 10 - n% = 10 - bgcolor% = 15 - health%(po1) = health%(po1) - 50 - IF health%(po1) < 50 THEN decap (po1) - IF razers%(pc1) > 15 THEN razers%(pc1) = 15 - soundticker% = 0: sbfx 17 - ELSE - bgcolor% = 4 - soundticker% = 0: sbfx 1 - END IF - - ko(po1) = ko(po1) - 10 - - position%(po1) = 15 - fighterfreeze (po1) - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 9, 10 - - ELSE - position%(pc1) = 1 - END IF - - END IF - - 'Return Position - IF pticker%(pc1) >= sdelay%(po1) + 5 THEN - position%(pc1) = 1 - elbow1h(pc1) = -3 - elbow1v(pc1) = 2 - END IF - - - - - - '------------------------------------------------------------- Ball Lightning - CASE IS = 33 - fighterfreeze (pc1) - - - IF neckx(pc1) > 2 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF necky(pc1) > -7 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF hand1x(pc1) > -1 THEN hand1h(pc1) = -.2 ELSE hand1h(pc1) = .2 - IF hand2x(pc1) > 1 THEN hand2h(pc1) = -.2 ELSE hand2h(pc1) = .2 - IF hand1y(pc1) > 2 THEN hand1v(pc1) = -.2 ELSE hand1v(pc1) = .2 - IF hand2y(pc1) > 3 THEN hand2v(pc1) = -.2 ELSE hand2v(pc1) = .2 - IF elbow2x(pc1) > -6 THEN elbow2h(pc1) = -.2 ELSE elbow2h(pc1) = .2 - - IF pticker%(pc1) > sdelay%(pc1) AND projectile%(1 * pc1) = 0 THEN - IF pc1 = 2 THEN n% = 3 - IF ko(pc1) > 5 THEN - soundticker% = 0: sbfx 6 - ko(pc1) = ko(pc1) - 5 - projectile%(1 + n%) = 50 - projectilex(1 + n%) = hand1x(pc2) - projectiley(1 + n%) = necky(pc2) - projectileh(1 + n%) = d%(pc1) * 10 - projectilev(1 + n%) = 0 - projectilet%(1 + n%) = 1 - - position%(pc1) = 1 - neckx(pc1) = 5 - necky(pc1) = -6 - - elbow1x(pc1) = 5 - hand1x(pc1) = 4 - elbow1y(pc1) = 0 - hand1y(pc1) = 0 - - elbow2x(pc1) = 5 - hand2x(pc1) = 4 - elbow2y(pc1) = 0 - hand2y(pc1) = 0 - - butth(pc1) = butth(pc1) - d%(pc1) - bgcolor% = 1 - ELSE - position%(pc1) = 1 - particle (hand1x(pc2)), (hand1y(pc2)), fighterz(pc1), 15, 20 - END IF - END IF - - - x = (hand1x(pc2) + hand2x(pc2)) / 2 - y = (hand1y(pc2) + hand2y(pc2)) / 2 - - 'Effects - sbfx 13 - psline (x), (y), (fighterz(pc1)), (x - (RND * 75)), (y + ((RND - .5) * 150)), (fighterz(pc1)), 15, 0 - psline (x), (y), (fighterz(pc1)), (x + (RND * 75)), (y + ((RND - .5) * 150)), (fighterz(pc1)), 15, 0 - pslightning (x), (y), (fighterz(pc1)), (x - (RND * 100)), (y + ((RND - .5) * 200)), (fighterz(pc1)), 50, (flash2%) - pslightning (x), (y), (fighterz(pc1)), (x + (RND * 100)), (y + ((RND - .5) * 200)), (fighterz(pc1)), 30, (flash2%) - pscircle (x), (y), (fighterz(pc1)), RND * 2, flash2% - pscircle (x), (y), (fighterz(pc1)), 1, 15 - - - '------------------------------------------------------------ Triple Sheroken - CASE IS = 34 - - IF pc1 = 2 THEN n% = 3 - FOR wee = 1 TO 3 - IF pc1 = 2 THEN n% = 3 - projectile%(wee + n%) = 15 - projectilex(wee + n%) = hand1x(pc2) - projectiley(wee + n%) = necky(pc2) - projectileh(wee + n%) = (d%(pc1) * (8 * (RND + 1))) - projectilev(wee + n%) = (RND - .5) * 20 - projectilet%(wee + n%) = 4 - NEXT wee - - position%(pc1) = 1 - soundticker% = 0: sbfx 13 - elbow2x(pc1) = 3 - elbow2y(pc1) = 2 - - - - '------------------------------------------------------------- Two Fire Balls - CASE IS = 35 - fighterfreeze (pc1) - IF neckx(pc1) > 2 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF necky(pc1) > -7 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF hand1x(pc1) > -1 THEN hand1h(pc1) = -.2 ELSE hand1h(pc1) = .2 - IF hand2x(pc1) > 1 THEN hand2h(pc1) = -.2 ELSE hand2h(pc1) = .2 - IF hand1y(pc1) > 2 THEN hand1v(pc1) = -.2 ELSE hand1v(pc1) = .2 - IF hand2y(pc1) > 3 THEN hand2v(pc1) = -.2 ELSE hand2v(pc1) = .2 - IF elbow2x(pc1) > -5 THEN elbow2h(pc1) = -.2 ELSE elbow2h(pc1) = .2 - - IF pticker%(pc1) > 3 THEN - soundticker% = 0: sbfx 4 - IF pc1 = 2 THEN n% = 3 - FOR wee = 2 TO 3 - projectile%(wee + n%) = 25 - projectilex(wee + n%) = hand1x(pc2) - projectiley(wee + n%) = necky(pc2) - projectilev(wee + n%) = (RND - .5) * 10 - projectileh(wee + n%) = (d%(pc1) * 10) - projectilet%(wee + n%) = 3 - NEXT wee - - position%(pc1) = 1 - neckx(pc1) = 5 - necky(pc1) = -6 - - elbow1x(pc1) = 5 - hand1x(pc1) = 4 - elbow1y(pc1) = 0 - hand1y(pc1) = 0 - - elbow2x(pc1) = 5 - hand2x(pc1) = 4 - elbow2y(pc1) = 0 - hand2y(pc1) = 0 - - butth(pc1) = butth(pc1) - (d%(pc1) / 2) - END IF - - - x = (hand1x(pc2) + hand2x(pc2)) / 2 - y = (hand1y(pc2) + hand2y(pc2)) / 2 - - pscircle (x), (y), (fighterz(pc1)), 1, flash3% - psline (x), (y), (fighterz(pc1)), (x + ((RND - .5) * 75)), (y + ((RND - .5) * 75)), (fighterz(pc1)), 12, 0 - - - '--------------------------------------------------------------- Hammer Punch - CASE IS = 36 - - 'Draw Up - IF pticker%(pc1) < 8 THEN - elbow2h(pc1) = 0 - elbow2v(pc1) = -1.5 - hand2x(pc1) = 3 - hand2y(pc1) = -2 - neckh(pc1) = -.3 - END IF - - 'Hammer - IF pticker%(pc1) = 8 THEN - IF ko(pc1) > 10 THEN - IF body%(pc1) = 666 THEN rage(pc1) = 0 - ko(pc1) = ko(pc1) - 5 - fighterfreeze (pc1) - elbow2x(pc1) = 3 - elbow2y(pc1) = 5 - hand2x(pc1) = 4 - hand2y(pc1) = 0 - neckx(pc1) = 4 - necky(pc1) = -7 - neckv(pc1) = -.2 - ELSE - fighterfreeze (pc1) - position%(pc1) = 1 - END IF - END IF - - 'Detect hit - IF pticker%(pc1) = 9 THEN - fighterfreeze (pc1) - - IF hand2x(pc2) > m1x - 4 AND hand2x(pc2) < m2x + 4 AND hand2y(pc2) > h1y AND hand2y(pc2) < l2y THEN - IF razers%(pc1) > 0 THEN - n% = 10 - bgcolor% = 15 - ELSE - bgcolor% = 4 - END IF - IF position%(po1) <> 99 THEN health%(po1) = health%(po1) - ((ahpow%(pc1) + n%) * 3) - ko(po1) = ko(po1) - akpow%(pc1) * 2 - - buttv(po1) = 2 - neckh(po1) = -d%(pc1) - necky(po1) = necky(po1) + 3 - heady(po1) = 4 - position%(po1) = 8 - IF body%(pc1) = 666 THEN particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 21, 5: health%(po1) = health%(po1) - 50 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 3, 5 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 4, 5 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 9, 5 - END IF - END IF - - 'Return Position - IF pticker%(pc1) = 10 THEN - position%(pc1) = 1 - elbow2h(pc1) = -1 - hand2v(pc1) = 1 - END IF - - - 'Effects - IF pticker%(pc1) > 8 THEN - psline (neckx(pc2) + (7 * d%(pc1))), (necky(pc2) + 5), (fighterz(pc1)), (neckx(pc2) + (4 * d%(pc1))), (necky(pc2) - 7), (fighterz(pc1)), (15), 3 - psline (neckx(pc2) + (5 * d%(pc1))), (necky(pc2) - 3), (fighterz(pc1)), (neckx(pc2) - (4 * d%(pc1))), (necky(pc2) - 10), (fighterz(pc1)), (15), 3 - END IF - - '---------------------------------------------------------------- Thrust Slam - CASE IS = 37 - - 'Draw Back - IF pticker%(pc1) < 6 THEN - elbow1h(pc1) = -1 - elbow1v(pc1) = -.5 - hand1x(pc1) = 1 - hand1y(pc1) = -1 - END IF - - 'Jab - IF pticker%(pc1) = 6 THEN - IF ko(pc1) > 10 THEN - ko(pc1) = ko(pc1) - 5 - fighterfreeze (pc1) - elbow1x(pc1) = 3 - elbow1y(pc1) = 6 - hand1x(pc1) = 4 - hand1y(pc1) = 0 - neckx(pc1) = 4 - necky(pc1) = -7 - neckv(pc1) = -.2 - ELSE - fighterfreeze (pc1) - position%(pc1) = 1 - END IF - END IF - - elbow2x(pc1) = elbow1x(pc1) - elbow2y(pc1) = elbow1y(pc1) - 4 - hand2x(pc1) = hand1x(pc1) - hand2y(pc1) = hand1y(pc1) - - - 'Detect hit - IF pticker%(pc1) = 7 THEN - fighterfreeze (pc1) - - IF hand1x(pc2) > m1x - 4 AND hand1x(pc2) < m2x + 4 AND hand1y(pc2) > h1y AND hand1y(pc2) < l2y THEN - IF razers%(pc1) > 0 THEN - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 23, 20 - health%(po1) = health%(po1) - 25 - bgcolor% = 15 - soundticker% = 0: sbfx 17 - ELSE - bgcolor% = 1 - sbfx 11 - END IF - - IF position%(po1) <> 99 THEN - ko(po1) = ko(po1) - akpow%(pc1) * 3 - canjump%(po1) = 0 - butth(po1) = d%(pc1) * (akpow%(pc1) * 2) - position%(po1) = 15 - ELSE - canjump%(pc1) = 0 - butth(pc1) = -d%(pc1) * (akpow%(pc1) * 1.5) - position%(pc1) = 1 - END IF - - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 22, 10 - END IF - END IF - - 'Return Position - IF pticker%(pc1) >= 12 THEN - position%(pc1) = 1 - elbow1h(pc1) = -1 - hand1v(pc1) = 1 - END IF - - - 'Effects - IF pticker%(pc1) > 6 AND pticker%(pc1) < 8 THEN - psline (neckx(pc2) - (8 * d%(pc1))), (necky(pc2) + 2), (fighterz(pc1)), (neckx(pc2) + (6 * d%(pc1))), (necky(pc2) + 3), (fighterz(pc1)), (15), 3 - psline (neckx(pc2) - (8 * d%(pc1))), (necky(pc2) + 7), (fighterz(pc1)), (neckx(pc2) + (6 * d%(pc1))), (necky(pc2) + 6), (fighterz(pc1)), (15), 3 - END IF - - - - - - - '-------------------------------------------------------------- Rising Dragon - CASE IS = 38 - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - neckx(pc1) = 5 - necky(pc1) = -5 - elbow2x(pc1) = 1 - - elbow1x(pc1) = -3 - elbow1y(pc1) = 5 - hand1x(pc1) = 0 - hand1y(pc1) = 4 - - nee1x(pc1) = 4 - foot1x(pc1) = -1 - nee1y(pc1) = 1 - foot1y(pc1) = 7 - nee1v(pc1) = -.5 - END IF - - - IF pticker%(pc1) > 1 AND buttv(pc1) <= 0 THEN - - IF neckx(pc1) > 0 THEN neckh(pc1) = -2 ELSE neckx(pc1) = 0: neckh(pc1) = 0 - nee2x(pc1) = 0 - foot2x(pc1) = -1 - nee2y(pc1) = 8 - foot2y(pc1) = 7 - - headx(pc1) = 0 - elbow2x(pc1) = 3 - hand2x(pc1) = 0 - hand2y(pc1) = -3 - IF elbow2y(pc1) > -5 THEN elbow2v(pc1) = -2 ELSE elbow2v(pc1) = 0 - butth(pc1) = butth(pc1) / 1.5 - END IF - - IF pticker%(pc1) = 4 THEN - canjump%(pc1) = 1 - jump (pc1), (1) - butth(pc1) = d%(pc1) * 5 - END IF - - 'Detect Hit(s) - IF pticker%(pc1) = 4 OR pticker%(pc1) = 7 OR pticker%(pc1) = 9 OR pticker%(pc1) = 12 OR pticker%(pc1) = 15 THEN - - IF ko(pc1) < 5 THEN - fall (pc1) - butth(pc1) = 0 - buttv(pc1) = 0 - ELSE - ko(pc1) = ko(pc1) - 1 - IF hand2x(pc2) > m1x - 7 AND hand2x(pc2) < m2x + 7 AND hand2y(pc2) > h1y - 10 AND hand2y(pc2) < l2y + 10 THEN - - IF position%(po1) = 99 THEN - pticker%(po1) = 1 - ELSE - soundticker% = 0: sbfx 11 - IF razers%(pc1) > 0 THEN n% = 10: bgcolor% = 4: particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 21, 15: soundticker% = 0: sbfx 17 - health%(po1) = health%(po1) - (ahpow%(pc1) + n%) - position%(po1) = 10 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 2, 5 - ko(po1) = ko(po1) - (akpow%(pc1) * 2) - END IF - - - IF health%(po1) <= 0 THEN decap (po1) - butth(pc1) = d%(pc1) / 3 - buttv(po1) = buttv(pc1) - 1 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 6, 5 - IF pticker%(pc1) = 15 THEN IF position%(po1) <> 99 THEN fall (po1) ELSE butth(po1) = butth(po1) - d%(po1) - END IF - END IF - END IF - - 'Effects - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 19, 1 - psline (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), (hand2x(pc2) - (butth(pc1) * 5)), (hand2y(pc2) - (buttv(pc1) * 5)), (fighterz(pc1)), flash1%, 0 - - 'Return Position - IF pticker%(pc1) >= 15 THEN - position%(pc1) = 1 - nee1v(pc1) = 2 - END IF - - - '--------------------------------------------------------------- Stun Knuckle - CASE IS = 39 - - 'Draw Back - IF pticker%(pc1) < 6 THEN - elbow1h(pc1) = -1 - elbow1v(pc1) = -.5 - hand1x(pc1) = 1 - hand1y(pc1) = -1 - END IF - - 'Stun Knuckle - IF pticker%(pc1) = 6 THEN - IF ko(pc1) > 6 THEN - ko(pc1) = ko(pc1) - 4 - fighterfreeze (pc1) - hand1x(pc1) = 4 - elbow1x(pc1) = 4 - hand1y(pc1) = 1 - elbow1y(pc1) = -1 - neckx(pc1) = 4 - ELSE - fighterfreeze (pc1) - position%(pc1) = 1 - END IF - END IF - - 'Detect hit - IF pticker%(pc1) = 7 THEN - fighterfreeze (pc1) - - IF hand1x(pc2) > m1x - 2 AND hand1x(pc2) < m2x + 2 AND hand1y(pc2) > h1y - 4 AND hand1y(pc2) < l2y THEN - IF razers%(pc1) > 0 THEN - n% = 10 - bgcolor% = 12 - health%(po1) = health%(po1) - (ahpow%(pc1) * 5) - ELSE - bgcolor% = 4 - END IF - - IF position%(po1) <> 99 THEN - ko(po1) = ko(po1) - (akpow%(pc1) * 4) - position%(po1) = 15 - fighterfreeze (po1) - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 6, 10 - sbfx 8 - ELSE - bgcolor% = 0 - END IF - ELSE - position%(pc1) = 1 - END IF - - END IF - - 'Return Position - IF pticker%(pc1) >= 8 THEN - position%(pc1) = 1 - elbow1x(pc1) = 2 - END IF - - 'Effects - IF pticker%(pc1) > 4 THEN - pscircle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1) + .1), 2, flash1% - pscircle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1) + .1), 1, flash2% - END IF - - - '----------------------------------------------------------------- Plant Kick - CASE IS = 40 - - IF pticker%(pc1) = 1 THEN - IF canjump%(pc1) = 1 THEN - fighterfreeze (pc1) - nee1y(pc1) = -2 - nee2y(pc1) = 0 - hand2h(pc1) = -1 - hand2v(pc1) = 1 - ELSE - position%(pc1) = 1 - END IF - END IF - - - IF pticker%(pc1) = 4 THEN - IF ko(pc1) > 10 THEN - ko(pc1) = ko(pc1) - 10 - sbfx 4 - ELSE - fighterfreeze (pc1) - position%(pc1) = 1 - END IF - END IF - - IF pticker%(pc1) > 3 THEN - psline (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), (neckx(pc2) + ((RND - .5) * 5)), (butty(pc1) + RND * 5), (fighterz(pc1)), (flash1%), 0 - psline (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), (neckx(pc2) + ((RND - .5) * 5)), (butty(pc1) + RND * 5), (fighterz(pc1)), (flash2%), 0 - END IF - - - IF pticker%(pc1) = 5 THEN - - IF buttx(pc1) > buttx(po1) THEN d%(pc1) = -1 ELSE d%(pc1) = 1 - fighterfreeze (pc1) - - headx(pc1) = headx(pc1) - 2 - - IF foot1y(pc1) > foot2y(pc1) THEN elbow2y(pc1) = foot1y(pc1) / 2 ELSE elbow2y(pc1) = foot2y(pc1) / 2 - hand2y(pc1) = elbow2y(pc1) + 1 - - elbow1x(pc1) = 1 - elbow1y(pc1) = -6 - hand1x(pc1) = 5 - hand1y(pc1) = -2 - - elbow2x(pc1) = -3 - hand2x(pc1) = -2 - - buttx(pc1) = buttx(pc1) + 7 * d%(pc1) - butty(pc1) = butty(pc1) - (elbow2y(pc1) * 2) - neckx(pc1) = -7 - necky(pc1) = 7 - - nee1x(pc1) = 5 - nee1y(pc1) = -7 - foot1x(pc1) = 5 - foot1y(pc1) = -6 - - nee2x(pc1) = 0 - nee2y(pc1) = 5 - foot2x(pc1) = 5 - foot2y(pc1) = -6 - END IF - - 'Detect Hit - IF pticker%(pc1) = 6 AND buttx(pc1) > neckx(po2) - 13 AND buttx(pc1) < neckx(po2) + 13 AND heady(po2) - 4 < foot2y(pc2) AND foot2y(pc2) < l2y THEN - IF position%(po1) <> 99 THEN - soundticker% = 0: sbfx 11 - health%(po1) = health%(po1) - lhpow%(pc1) * 2 - ko(po1) = ko(po1) - lkpow%(pc1) * 7 - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 1, 5 - fall (po1) - END IF - buttv(po1) = -10 - butth(po1) = (1 + lhpow%(pc1) * d%(pc1)) - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 5, 8 - END IF - - - 'return position - IF pticker%(pc1) >= 12 THEN - position%(pc1) = 1 - nee2y(pc1) = hand2y(pc1) - foot2y(pc1) = hand2y(pc1) - foot2h(pc1) = -2 - neckh(pc1) = 2 - neckv(pc1) = -3 - elbow1h(pc1) = -1 - elbow1v(pc1) = 1 - nee1v(pc1) = 1 - foot1h(pc1) = -2 - foot1v(pc1) = 2 - hand2h(pc1) = .5 - END IF - - - 'Zero G - IF pticker%(pc1) > 4 THEN buttv(pc1) = -gravity - - - - - - '------------------------------------------------------------------- Axe Kick - CASE IS = 41 - - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - IF ko(pc1) > 10 AND canjump%(pc1) = 1 THEN - ko(pc1) = ko(pc1) - 5 - butth(pc1) = d%(pc1) - sbfx 2 - neckh(pc1) = -1 - ELSE - position%(pc1) = 1 - END IF - END IF - - - SELECT CASE pticker%(pc1) - - CASE 2 - sbfx 2 - nee2x(pc1) = 1 - foot2x(pc1) = -1 - neckx(pc1) = -1 - foot1v(pc1) = 3 - - nee1x(pc1) = 3 - nee1y(pc1) = -6 - foot1x(pc1) = 3 - foot1y(pc1) = -6 - - CASE 4 - neckh(pc1) = 0 - nee1x(pc1) = 6 - nee1y(pc1) = -1 - foot1x(pc1) = 6 - foot1y(pc1) = -1 - - CASE 6 - foot1v(pc1) = 0 - nee1x(pc1) = 5 - nee1y(pc1) = 5 - foot1x(pc1) = 5 - foot1y(pc1) = 5 - END SELECT - - - 'Detect Hit - IF pticker%(pc1) > 2 AND pticker%(pc1) < 7 THEN - IF foot1x(pc2) > l1x AND foot1x(pc2) < l2x AND foot1y(pc2) > h1y AND foot1y(pc2) < l2y THEN - soundticker% = 0: sbfx 11 - health%(po1) = health%(po1) - lhpow%(pc1) - ko(po1) = ko(po1) - lkpow%(pc1) - particle (foot1x(pc2) + 5), (foot1y(pc2)), (fighterz(pc1)), 1, 5 - butth(po1) = butth(pc1) - position%(po1) = 1 - END IF - END IF - - - - 'Return Position - IF pticker%(pc1) = 7 THEN - foot1x(pc1) = -1 - position%(pc1) = 1 - END IF - - 'Effects - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 19, 1 - - - '---------------------------------------------------------- Stunning Gut Stab - CASE IS = 42 - - IF pticker%(pc1) = 1 THEN - d%(pc1) = -d%(pc1) - sbfx 3 - IF ko(pc1) > 10 THEN - ko(pc1) = ko(pc1) - 5 - ELSE - position%(pc1) = 1 - END IF - END IF - - IF pticker%(pc1) > 1 AND pticker%(pc1) < 8 THEN - nee1x(pc1) = -6 - nee1y(pc1) = -1 - foot1x(pc1) = -6 - foot1y(pc1) = -1 - nee2x(pc1) = 0 - foot2x(pc1) = 0 - END IF - - IF foot1x(pc2) > l1x AND foot1x(pc2) < l2x AND foot1y(pc2) > h1y AND foot1y(pc2) < l2y THEN - sbfx 11 - health%(po1) = health%(po1) - 1 - ko(po1) = ko(po1) - 1 - IF buttx(pc1) < buttx(po1) THEN particle (foot1x(pc2) + 5), (foot1y(pc2)), (fighterz(pc1)), 4, 3 ELSE particle (foot1x(pc2) - 5), (foot1y(pc2)), (fighterz(pc1)), 3, 3 - position%(po1) = 15 - END IF - - - IF pticker%(pc1) = 8 THEN - nee1h(pc1) = 1 - nee1v(pc1) = .5 - neckx(pc1) = .5 - - END IF - - - 'Return Position - IF pticker%(pc1) = 15 THEN - d%(pc1) = -d%(pc1) - position%(pc1) = 1 - sbfx 1 - END IF - - '---------------------------------------------------------- Thrust Roundhouse - CASE IS = 43 - - 'Draw Back - IF pticker%(pc1) = 1 THEN - - fighterfreeze (pc1) - combo%(pc1) = 0 - - IF ko(pc1) > 10 THEN - butth(pc1) = butth(pc1) + (d%(pc1) * 3) - buttv(pc1) = buttv(pc1) - 1.5 - END IF - - elbow1y(pc1) = elbow1y(pc1) - 4 - elbow2y(pc1) = elbow2y(pc1) - 4 - - neckx(pc1) = 5 - necky(pc1) = -5 - buttx(pc1) = buttx(pc1) + (d%(pc1) * 2) - - nee1x(pc1) = 5 - nee1y(pc1) = 4 - foot1x(pc1) = -4 - foot1y(pc1) = 3 - - END IF - - - 'Begin Kick - IF pticker%(pc1) = 5 THEN - - IF ko(pc1) > 10 THEN - ko(pc1) = ko(pc1) - 6 - nee2h(pc1) = 2 - nee2v(pc1) = -2 - foot2h(pc1) = -1 - foot2v(pc1) = -1 - ELSE - position%(pc1) = 1 - END IF - END IF - - IF pticker%(pc1) = 8 THEN - fighterfreeze (pc1) - - elbow1x(pc1) = elbow1x(pc1) + 2 - - hand2y(pc1) = hand2y(pc1) + 2 - elbow2y(pc1) = elbow2y(pc1) + 2 - - nee2x(pc1) = 6 - nee2y(pc1) = 1 - - foot2x(pc1) = 5 - foot2y(pc1) = 1 - END IF - - 'Detect Hit - IF pticker%(pc1) > 7 AND combo%(pc1) = 0 AND foot2x(pc2) > l1x AND foot2x(pc2) < l2x AND foot2y(pc2) > h1y AND foot2y(pc2) < l2y THEN - health%(po1) = health%(po1) - lhpow%(pc1) * 3 - ko(po1) = ko(po1) - lkpow%(pc1) * 4 - particle (foot2x(pc2)), (foot2y(pc2)), (fighterz(pc1)), 3, 5 - particle (foot2x(pc2)), (foot2y(pc2)), (fighterz(pc1)), 4, 5 - soundticker% = 0: sbfx 11 - butth(po1) = butth(pc1) / 2 - fall po1 - END IF - - IF pticker%(pc1) > 9 THEN - fighterfreeze (pc1) - - nee2h(pc1) = -1 - nee2v(pc1) = 1 - foot2h(pc1) = -2 - foot2v(pc1) = 1 - - position%(pc1) = 1 - END IF - - - 'Zero G - buttv(pc1) = buttv(pc1) - gravity - - - 'Effects - particle (foot2x(pc2)), (foot2y(pc2)), (fighterz(pc1)), 19, 1 - - - '------------------------------------------------------------- Slasher Strike - CASE IS = 44 - - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - neckx(pc1) = 0 - neckh(pc1) = -.5 - buttx(pc1) = buttx(pc1) + (d%(pc1) * 2) - - nee1x(pc1) = 0 - foot1x(pc1) = 0 - - IF foot1y(pc1) < 1 OR nee1y(pc1) > 3 THEN - nee1y(pc1) = 8 - foot1y(pc1) = 7 - END IF - - elbow1h(pc1) = -.5 - elbow2h(pc1) = .5 - elbow2v(pc1) = -.5 - END IF - - - IF pticker%(pc1) = 5 THEN - IF ko(pc1) > 20 THEN - ko(pc1) = ko(pc1) - 15 - nee2h(pc1) = 2 - nee2v(pc1) = -2 - foot2h(pc1) = -1 - foot2v(pc1) = -1 - ELSE - position%(pc1) = 10 - END IF - END IF - - - - IF pticker%(pc1) = 8 THEN - sbfx 4 - fighterfreeze (pc1) - - elbow1x(pc1) = elbow1x(pc1) + 2 - elbow1y(pc1) = elbow1y(pc1) - 2 - - hand2y(pc1) = hand2y(pc1) + 2 - elbow2y(pc1) = elbow2y(pc1) + 2 - - nee2x(pc1) = 5 - nee2y(pc1) = 0 - - - foot2x(pc1) = 5 - foot2y(pc1) = 0 - END IF - - 'Slash Effect - IF pticker%(pc1) > 8 THEN - psline (foot2x(pc2) - 15), (foot2y(pc2)), (fighterz(pc1)), (foot2x(pc2) + 15), (foot2y(pc2)), (fighterz(pc1)), (flash2%), 0 - END IF - - - 'Detect Hit - IF pticker%(pc1) = 9 AND foot2x(pc2) > l1x - 10 AND foot2x(pc2) < l2x + 10 AND foot2y(pc2) > h1y AND foot2y(pc2) < l2y THEN - psline (buttx(po1) - 100), (foot2y(pc2)), (fighterz(pc1)), (buttx(po1) + 100), (foot2y(pc2)), (fighterz(pc1)), (15), 0 - health%(po1) = health%(po1) - lhpow%(pc1) * 4 - soundticker% = 0: sbfx 17 - ko(po1) = ko(po1) - lkpow%(pc1) * 4 - particle (buttx(po1)), (foot2y(pc2)), (fighterz(pc1)), 21, 10 - position%(po1) = 15 - END IF - - - IF pticker%(pc1) > 9 THEN - fighterfreeze (pc1) - - neckh(pc1) = .5 - nee2h(pc1) = -1 - nee2v(pc1) = 1 - foot2h(pc1) = -2 - foot2v(pc1) = 1 - - position%(pc1) = 1 - END IF - - 'Effects - psline (foot2x(pc2) - 1), (foot2y(pc2)), (fighterz(pc1) - .1), (foot2x(pc2) + 1), (foot2y(pc2)), (fighterz(pc1) - .1), (flash2%), 0 - - - - '------------------------------------------------------------------- Nee Bash - CASE IS = 45 - - 'Attempt head grab - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - elbow1x(pc1) = 3 - elbow1y(pc1) = -1 - hand1x(pc1) = 3 - hand1y(pc1) = -2 - END IF - - 'Detect head grab - IF pticker%(pc1) = 2 THEN - IF position%(po1) <> 99 AND ko(pc1) > 15 AND hand1x(pc2) > h1x AND hand1x(pc2) < h2x AND hand1y(pc2) > h1y AND hand1y(pc2) < h2y THEN - sbfx 13 - ko(pc1) = ko(pc1) - 10 - combol%(pc1) = sdelay%(po1) * 3 - fighterfreeze (po1) - ELSE - position%(pc1) = 1 - END IF - END IF - - - 'Bashing - IF pticker%(pc1) > 2 THEN - position%(po1) = 1 - elbow1v(pc1) = -.6 - hand1v(pc1) = -.8 - - 'hit - IF elbow1y(pc1) < -2 THEN - elbow1y(pc1) = 4: hand1y(pc1) = 5 - health%(po1) = health%(po1) - ahpow%(pc1) - ko(po1) = ko(po1) - akpow%(pc1) - health%(po1) = health%(po1) - lhpow%(pc1) - ko(po1) = ko(po1) - lkpow%(pc1) - soundticker% = 0: sbfx 9 - IF buttx(pc1) < buttx(po1) THEN particle (hand1x(pc2)), (butty(pc1)), (fighterz(po1)), 3, 3 ELSE particle (hand1x(pc2)), (butty(pc1)), (fighterz(po1)), 4, 3 - END IF - - elbow2y(pc1) = 3 - elbow1y(pc1) / 2 - necky(pc1) = -10 + elbow1y(pc1) / 5 - nee2x(pc1) = elbow1y(pc1) + 2 - nee2y(pc1) = -elbow1y(pc1) - neckx(po1) = nee2x(pc1) - necky(po1) = -7 + elbow1y(pc1) + hand1y(pc1) - - - 'Return position - IF combol%(pc1) <= 0 THEN - position%(pc1) = 1 - butth(pc1) = -d%(pc1) - elbow1h(pc1) = -.5 - elbow1y(pc1) = .5 - END IF - END IF - - - - '------------------------------------------------------- Lightning Kick Blast - CASE IS = 46 - - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - END IF - - IF pticker%(pc1) < 10 THEN - sbfx 16 - neckx(pc1) = -3 - RND - necky(pc1) = -7 + RND - - r1 = (RND * 3) + 2 - r2 = (RND - .5) * 15 - nee1x(pc1) = r1 - nee1y(pc1) = r2 - foot1x(pc1) = r1 - foot1y(pc1) = r2 - - 'Detect Hit(s) - IF foot1x(pc2) > l1x AND foot1x(pc2) < l2x AND foot1y(pc2) > h1y AND foot1y(pc2) < l2y THEN - ko(po1) = ko(po1) - lkpow%(pc1) - position%(po1) = 1 - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 9, 5 - END IF - END IF - - - - IF pticker%(pc1) = 10 THEN - soundticker% = 0: sbfx 11 - d%(pc1) = -d%(pc1) - neckx(pc1) = 5 - necky(pc1) = -2 - nee1x(pc1) = -6 - nee1y(pc1) = 0 - foot1x(pc1) = -6 - foot1y(pc1) = 0 - END IF - - 'Detect Blast - IF pticker%(pc1) = 11 AND foot1x(pc2) > l1x AND foot1x(pc2) < l2x AND foot1y(pc2) > h1y AND foot1y(pc2) < l2y THEN - health%(po1) = health%(po1) - lhpow%(pc1) * 5 - ko(po1) = ko(po1) - lkpow%(pc1) * 2 - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 1, 5 - butth(po1) = (lkpow%(pc1) * -d%(pc1)) - neckx(po1) = 5 - necky(po1) = -5 - nee1x(po1) = 5 - foot1x(po1) = 5 - fall (po1) - END IF - - - 'Effects - IF pticker%(pc1) > 9 THEN - psline (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), (neckx(pc2) + ((RND - .5) * 5)), (butty(pc1) + (RND - .5) * 8), (fighterz(pc1)), (flash1%), 0 - psline (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), (neckx(pc2) + ((RND - .5) * 5)), (butty(pc1) + (RND - .5) * 5), (fighterz(pc1)), (flash2%), 0 - END IF - - - 'Return position - IF pticker%(pc1) = 13 THEN - position%(pc1) = 1 - END IF - - '--------------------------------------------------------------------- 6-Slip - CASE IS = 47 - IF ko(pc1) < 15 THEN position%(pc1) = 1 - - IF pticker%(pc1) = 1 THEN ds%(pc1) = d%(pc1): ds%(po1) = d%(po1) - - IF pticker%(pc1) < 5 THEN fighterz(pc1) = fighterz(pc1) - .1 - - butth(pc1) = d%(pc1) * 2 - - IF buttx(pc1) > buttx(po1) - 10 AND buttx(pc1) < buttx(po1) + 10 AND canjump%(po1) = 1 THEN - d%(po1) = ds%(po1) - pticker%(po1) = 0 - END IF - - 'return position - IF pticker%(pc1) = 8 THEN position%(pc1) = 1: d%(pc1) = -ds%(pc1): ko(pc1) = ko(pc1) - 5 - - - '------------------------------------------------------------------ Skip Kick - CASE IS = 48 - - IF pticker%(pc1) = 1 THEN - sbfx 3 - IF ko(pc1) > 10 AND canjump%(pc1) = 1 THEN - ko(pc1) = ko(pc1) - 5 - buttv(pc1) = -5 - butth(pc1) = d%(pc1) * 2 - ELSE - position%(pc1) = 1 - END IF - END IF - - IF pticker%(pc1) = 9 THEN d%(pc1) = -d%(pc1) - - IF pticker%(pc1) > 10 AND pticker%(pc1) < 13 THEN - nee1x(pc1) = -6 - nee1y(pc1) = -1 - foot1x(pc1) = -6 - foot1y(pc1) = -1 - nee2x(pc1) = 0 - foot2x(pc1) = 0 - END IF - - 'Detect Hit - IF pticker%(pc1) > 9 AND pticker%(pc1) < 13 THEN - IF foot1x(pc2) > l1x AND foot1x(pc2) < l2x AND foot1y(pc2) > h1y AND foot1y(pc2) < l2y THEN - sbfx 11 - health%(po1) = health%(po1) - akpow%(pc1) * 3 - ko(po1) = ko(po1) - lkpow%(pc1) * 3 - IF buttx(pc1) < buttx(po1) THEN particle (foot1x(pc2) + 5), (foot1y(pc2)), (fighterz(pc1)), 4, 3 ELSE particle (foot1x(pc2) - 5), (foot1y(pc2)), (fighterz(pc1)), 3, 3 - butth(po1) = butth(pc1) - END IF - END IF - - IF pticker%(pc1) = 13 THEN - nee1h(pc1) = 1 - nee1v(pc1) = .5 - neckx(pc1) = .5 - END IF - - - 'Return Position - IF pticker%(pc1) = 18 THEN - d%(pc1) = -d%(pc1) - position%(pc1) = 1 - sbfx 1 - END IF - - - - - - - '-------------------------------------------------------------- Upper Assault - CASE IS = 49 - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - neckx(pc1) = 5 - necky(pc1) = -5 - elbow2x(pc1) = 1 - - elbow1x(pc1) = -3 - elbow1y(pc1) = 5 - hand1x(pc1) = 0 - hand1y(pc1) = 4 - - nee1x(pc1) = 4 - foot1x(pc1) = -1 - nee1y(pc1) = 1 - foot1y(pc1) = 7 - nee1v(pc1) = -.5 - - nee2x(pc1) = 4 - nee2v(pc1) = -.5 - - END IF - - - IF pticker%(pc1) > 1 AND buttv(pc1) <= 0 THEN - - IF neckx(pc1) > 0 THEN neckh(pc1) = -2 ELSE neckx(pc1) = 0: neckh(pc1) = 0 - nee2x(pc1) = 0 - foot2x(pc1) = -1 - nee2y(pc1) = 8 - foot2y(pc1) = 7 - - nee1x(pc1) = 2 - nee1y(pc1) = -4 - foot1x(pc1) = 2 - foot1y(pc1) = -5 - - - headx(pc1) = 0 - elbow1x(pc1) = -1 - elbow2x(pc1) = -1 - elbow1y(pc1) = 3 - elbow2y(pc1) = 3 - hand1x(pc1) = 2 - hand2x(pc1) = 2 - hand1y(pc1) = 3 - hand2y(pc1) = 3 - - butth(pc1) = butth(pc1) / 1.5 - END IF - - IF pticker%(pc1) = 4 THEN - canjump%(pc1) = 1 - jump (pc1), (1) - butth(pc1) = d%(pc1) * 5 - END IF - - - 'Detect Hit(s) - IF pticker%(pc1) = 4 OR pticker%(pc1) = 7 OR pticker%(pc1) = 9 OR pticker%(pc1) = 12 OR pticker%(pc1) = 15 THEN - - IF ko(pc1) < 5 THEN - fall (pc1) - butth(pc1) = 0 - buttv(pc1) = 0 - ELSE - ko(pc1) = ko(pc1) - 1 - IF foot1x(pc2) > m1x - 7 AND foot1x(pc2) < m2x + 7 AND foot1y(pc2) > h1y - 10 AND foot1y(pc2) < l2y + 10 THEN - - IF position%(po1) = 99 THEN - pticker%(po1) = 1 - ELSE - soundticker% = 0: sbfx 11 - position%(po1) = 10 - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 2, 5 - ko(po1) = ko(po1) - (lkpow%(pc1) * 2) - health%(po1) = health%(po1) - (lhpow%(pc1) + n%) - END IF - - - butth(pc1) = d%(pc1) / 3 - buttv(po1) = buttv(pc1) - 1 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 6, 5 - IF pticker%(pc1) = 15 THEN IF position%(po1) <> 99 THEN fall (po1) ELSE butth(po1) = butth(po1) - d%(po1) - END IF - END IF - END IF - - 'Effects - particle (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), 19, 1 - psline (foot1x(pc2)), (foot1y(pc2)), (fighterz(pc1)), (foot1x(pc2) - (butth(pc1) * 5)), (foot1y(pc2) - (buttv(pc1) * 5)), (fighterz(pc1)), flash1%, 0 - - 'Return Position - IF pticker%(pc1) = 15 THEN - position%(pc1) = 1 - nee1v(pc1) = 2 - END IF - - - - - - 'SUPERS ============================================================== SUPERS` - - '---------------------------------------------------------------- Vex of Evil - CASE IS = 81 - - IF pticker%(pc1) = 1 THEN - IF canjump%(pc1) = 1 THEN - fighterfreeze (pc1) - - hand1h(pc1) = (RND - .5) / 10 - hand1v(pc1) = (RND - .5) / 10 - hand2h(pc1) = (RND - .5) / 10 - hand2v(pc1) = (RND - .5) / 10 - elbow1h(pc1) = (RND - .5) / 10 - elbow1v(pc1) = (RND - .5) / 10 - elbow2h(pc1) = (RND - .5) / 10 - elbow2v(pc1) = (RND - .5) / 10 - ELSE - position%(pc1) = 1 - END IF - END IF - - rage(pc1) = rage(pc1) - 1.5 - IF pticker%(pc1) < 40 THEN - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 19, 1 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 19, 1 - END IF - - IF elbow1x(pc1) > 1 THEN elbow1h(pc1) = elbow1h(pc1) - .2 ELSE elbow1h(pc1) = elbow1h(pc1) + .2 - IF elbow1y(pc1) > 4 THEN elbow1v(pc1) = elbow1v(pc1) - .2 ELSE elbow1v(pc1) = elbow1v(pc1) + .2 - IF elbow2x(pc1) > 1 THEN elbow2h(pc1) = elbow2h(pc1) - .2 ELSE elbow2h(pc1) = elbow2h(pc1) + .2 - IF elbow2y(pc1) > 4 THEN elbow2v(pc1) = elbow2v(pc1) - .2 ELSE elbow2v(pc1) = elbow2v(pc1) + .2 - - IF hand1x(pc1) > 1 THEN hand1h(pc1) = hand1h(pc1) - .2 ELSE hand1h(pc1) = hand1h(pc1) + .2 - IF hand1y(pc1) > -2 THEN hand1v(pc1) = hand1v(pc1) - .2 ELSE hand2v(pc1) = hand1v(pc1) + .2 - IF hand2x(pc1) > 1 THEN hand2h(pc1) = hand2h(pc1) - .2 ELSE hand2h(pc1) = hand2h(pc1) + .2 - IF hand2y(pc1) > -2 THEN hand2v(pc1) = hand2v(pc1) - .2 ELSE hand2v(pc1) = hand2v(pc1) + .2 - - - 'Vex and Return Position - IF pticker%(pc1) >= 75 THEN - rage(po1) = rage(po1) * .75 - vexed%(po1) = 1 - position%(pc1) = 1 - particle (neckx(po2)), (necky(po2)), fighterz(po1), 26, 25 - END IF - - - - - '--------------------------------------------------------------- Energy Blast - CASE IS = 82 - - fighterfreeze (pc1) - IF head%(pc1) <> 1998 THEN rage(pc1) = 0 - - IF neckx(pc1) > 2 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF necky(pc1) > -7 THEN neckv(pc1) = -.2 ELSE neckv(pc1) = .2 - IF hand1x(pc1) > -1 THEN hand1h(pc1) = -.2 ELSE hand1h(pc1) = .2 - IF hand2x(pc1) > 1 THEN hand2h(pc1) = -.2 ELSE hand2h(pc1) = .2 - IF hand1y(pc1) > 2 THEN hand1v(pc1) = -.2 ELSE hand1v(pc1) = .2 - IF hand2y(pc1) > 3 THEN hand2v(pc1) = -.2 ELSE hand2v(pc1) = .2 - IF elbow2x(pc1) > -6 THEN elbow2h(pc1) = -.2 ELSE elbow2h(pc1) = .2 - - IF pticker%(pc1) > sdelay%(pc1) AND projectile%(1 * pc1) = 0 THEN - IF buttx(pc1) > buttx(po1) THEN d%(pc1) = -1 ELSE d%(pc1) = 1 - IF pc1 = 2 THEN n% = 3 - soundticker% = 0: sbfx 8 - projectile%(1 + n%) = 50 - projectilex(1 + n%) = hand1x(pc2) - projectiley(1 + n%) = necky(pc2) - projectileh(1 + n%) = d%(pc1) * 10 - projectilev(1 + n%) = 0 - projectilet%(1 + n%) = 5 - - position%(pc1) = 1 - neckx(pc1) = 5 - necky(pc1) = -6 - - elbow1x(pc1) = 5 - hand1x(pc1) = 4 - elbow1y(pc1) = 0 - hand1y(pc1) = 0 - - elbow2x(pc1) = 5 - hand2x(pc1) = 4 - elbow2y(pc1) = 0 - hand2y(pc1) = 0 - - butth(pc1) = butth(pc1) - d%(pc1) - bgcolor% = 19 - END IF - - - x = (hand1x(pc2) + hand2x(pc2)) / 2 - y = (hand1y(pc2) + hand2y(pc2)) / 2 - - 'Effects - sbfx 7 - psline (x), (y), (fighterz(pc1)), (x - (RND * 75)), (y + ((RND - .5) * 250)), (fighterz(pc1)), 15, 0 - psline (x), (y), (fighterz(pc1)), (x + (RND * 75)), (y + ((RND - .5) * 250)), (fighterz(pc1)), 15, 0 - pslightning (x), (y), (fighterz(pc1)), (x - (RND * 100)), (y + ((RND - .5) * 200)), (fighterz(pc1)), 75, (flash2%) - pslightning (x), (y), (fighterz(pc1)), (x + (RND * 100)), (y + ((RND - .5) * 200)), (fighterz(pc1)), 50, (flash2%) - IF pticker%(pc1) < 10 THEN pscircle (x), (y), (fighterz(pc1)), 200 - (pticker%(pc1) * 20), flash1% - pscircle (x), (y), (fighterz(pc1)), RND * 5, flash2% - pscircle (x), (y), (fighterz(pc1)), 2, 15 - - - - - - - '----------------------------------------------------------------- Spear Kick - CASE IS = 83 - - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - rage(pc1) = 0 - blur 10 - sbfx 2 - neckx(pc1) = -3 - nee1x(pc1) = 6 - nee1y(pc1) = -1 - foot1x(pc1) = 6 - foot1y(pc1) = -1 - butth(pc1) = d%(pc1) * 5 - END IF - - IF nee1x(pc2) > l1x AND nee1x(pc2) < l2x AND foot1y(pc2) > h1y AND foot1y(pc2) < l2y THEN - butth(pc1) = 0 - health%(po1) = health%(po1) - 1 - ko(po1) = ko(po1) - .5 - particle (nee1x(pc2)), (nee1y(pc2)), (fighterz(po1)), 18, 1 - buttx(po1) = nee1x(pc2) - neckx(po1) = ((RND - .5) * 2) - necky(po1) = -5 - (RND * 3) - elbow1x(po1) = -3 - (RND * 2) - elbow2x(po1) = -3 - (RND * 2) - elbow1y(po1) = 3 - (RND * 2) - elbow2y(po1) = 3 - (RND * 2) - - hand1x(po1) = -3 + (RND * 2) - hand2x(po1) = -3 + (RND * 2) - hand1y(po1) = 3 - hand2y(po1) = 3 - IF pticker%(pc1) < 50 THEN position%(po1) = 15: pticker%(po1) = 1 ELSE butth(po1) = d%(pc1): fall (po1) - - - ELSE - IF pticker%(pc1) > 15 THEN pticker%(pc1) = 50 - - END IF - - - IF pticker%(pc1) = 50 THEN - position%(pc1) = 1 - nee1x(pc1) = 2 - foot1x(pc1) = -4 - END IF - - - '------------------------------------------------------------------ Health Up - CASE IS = 84 - rage(pc1) = 0 - health%(pc1) = health%(pc1) + ko(pc1) - particle (headx(pc2)), (heady(pc2)), (fighterz(pc1)), 25, 25 - position%(pc1) = 1 - - - '----------------------------------------------------------------- Razer Arms - CASE IS = 85 - soundticker% = 0: sbfx 16 - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1) + .2), 6, 5 - particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1) + .2), 5, 5 - - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1) - .2), 6, 5 - particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1) - .2), 5, 5 - razers%(pc1) = 200 - position%(pc1) = 1 - rage(pc1) = 0 - bgcolor% = 19 - - '--------------------------------------------------------------- Neck Snapper - CASE IS = 86 - - IF pticker%(pc1) = 1 THEN - IF canjump%(pc1) = 1 THEN - nee1x(pc1) = 2 - nee2x(pc1) = 2 - foot1x(pc1) = -2 - foot2x(pc1) = -2 - nee1y(pc1) = 5 - nee2y(pc1) = 5 - - camode% = po1 + 1 - rage(pc1) = 0 - buttv(pc1) = -12 - butth(pc1) = (buttx(po1) - buttx(pc1)) / 20 - ELSE - position%(pc1) = 1 - END IF - END IF - - - IF foot1y(pc2) > butty(po1) AND buttv(pc1) > -1 THEN position%(pc1) = 1: camode% = 1 - - 'Snap - IF foot1y(pc2) > heady(po2) - 5 AND foot1y(pc2) < necky(po2) + 5 AND buttx(pc1) > neckx(po2) - 5 AND buttx(pc1) < neckx(po2) + 5 THEN - fighterfreeze (po1) - buttx(pc1) = neckx(po2) - butty(pc1) = necky(po2) - 15 + ABS(buttv(pc1)) - elbow2x(pc1) = -5 - elbow1y(pc1) = 0 - elbow2y(pc1) = 0 - hand1y(pc1) = 0 - hand2y(pc1) = 0 - nee1x(pc1) = 4 - nee2x(pc1) = -4 - foot2x(pc1) = -4 - nee1y(pc1) = 8 - nee2y(pc1) = 8 - foot1y(pc1) = 7 - foot2y(pc1) = 7 - buttv(pc1) = -10 - position%(pc1) = 1 - camode% = 1 - - IF position%(po1) <> 99 THEN - health%(po1) = health%(po1) - 75 - soundticker% = 0: sbfx 8 - IF health%(po1) <= 0 THEN decap (po1) ELSE bgcolor% = 15 - particle (neckx(po2)), (necky(po2)), fighterz(po1), 20, 15 - particle (neckx(po2)), (necky(po2)), fighterz(po1), 21, 10 - position%(po1) = 15 - d%(pc1) = -d%(pc1) - butth(pc1) = butth(pc1) / 5 - buttv(pc1) = -10 - ELSE - particle (neckx(po2)), (necky(po2)), fighterz(po1), 8, 25 - buttv(pc1) = -5 - END IF - - END IF - - - - '-------------------------------------------------------------- Swizz Punches - CASE IS = 87 - IF pticker%(pc1) = 1 THEN - fighterfreeze (pc1) - rage(pc1) = 0 - hand1x(pc1) = 5 - hand2x(pc1) = 5 - hand1y(pc1) = 0 - hand2y(pc1) = 0 - neckx(pc1) = 5 - END IF - - psline (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), (hand1x(pc2) - (pticker%(pc1) * 1.5 * d%(pc1))), (hand1y(pc2)), (fighterz(pc1) + .5), (flash1%), 0 - psline (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), (hand2x(pc2) - (pticker%(pc1) * 1.5 * d%(pc1))), (hand2y(pc2)), (fighterz(pc1) - .5), (flash2%), 0 - - - 'detect hit(s) - IF hand1x(pc2) > m1x AND hand1x(pc2) < m2x AND hand1y(pc2) > h1y AND hand1y(pc2) < l2y THEN - IF position%(po1) = 99 THEN butth(po1) = d%(pc1) - health%(po1) = health%(po1) - 2 - ko(po1) = ko(po1) - 2 - neckx(po1) = 0 - IF health%(po1) > 0 AND ko(po1) > 0 AND pticker%(pc1) < 20 THEN fighterfreeze (po1): position%(po1) = 15 ELSE butth(po1) = d%(pc1) - IF buttx(pc1) < buttx(po1) THEN particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 4, 3 ELSE particle (hand1x(pc2)), (hand1y(pc2)), (fighterz(pc1)), 3, 3 - soundticker% = 0: sbfx INT(RND * 3) + 9 - ELSE - sbfx 25 - END IF - - IF hand2x(pc2) > m1x AND hand2x(pc2) < m2x AND hand2y(pc2) > h1y AND hand2y(pc2) < l2y THEN - IF position%(po1) = 99 THEN butth(po1) = d%(pc1) - health%(po1) = health%(po1) - 3 - ko(po1) = ko(po1) - 3 - neckx(po1) = 0 - IF health%(po1) > 0 AND ko(po1) > 0 AND pticker%(pc1) < 20 THEN fighterfreeze (po1): position%(po1) = 15 ELSE butth(po1) = d%(pc1) - IF buttx(pc1) < buttx(po1) THEN particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 4, 3 ELSE particle (hand2x(pc2)), (hand2y(pc2)), (fighterz(pc1)), 3, 3 - soundticker% = 0: sbfx INT(RND * 3) + 9 - ELSE - sbfx 25 - END IF - - - elbow1x(pc1) = (RND - .5) * 12 - elbow2x(pc1) = (RND - .5) * 12 - elbow1y(pc1) = (RND - .4) * 12 - elbow2y(pc1) = (RND - .4) * 12 - - - IF pticker%(pc1) = 10 THEN blur 15 - - IF pticker%(pc1) = 25 THEN position%(pc1) = 1 - - '----------------------------------------------------------------- Upper Bust - CASE IS = 88 - - IF pticker%(pc1) = 1 THEN soundticker% = 0: sbfx 25 - - fighterfreeze (pc1) - rage(pc1) = 0 - - elbow2x(pc1) = 3 - elbow2y(pc1) = -5 - hand2x(pc1) = 0 - hand2y(pc1) = -4 - - elbow1x(pc1) = -3 - elbow1y(pc1) = 5 - hand1x(pc1) = 0 - hand1y(pc1) = 4 - - headx(pc1) = 0 - necky(pc1) = -10 - neckx(pc1) = 1 - - nee1x(pc1) = 5 - nee2x(pc1) = -1 - foot1x(pc1) = -1 - foot2x(pc1) = -3 - - nee1y(pc1) = 8 - nee2y(pc1) = 8 - foot1y(pc1) = 7 - foot2y(pc1) = 7 - - - 'Detect Hit - IF pticker%(pc1) = 2 THEN - particle (hand2x(pc2)), (necky(pc2)), fighterz(pc1), 22, 10 - - IF hand2x(pc2) > m1x - 8 AND hand2x(pc2) < m2x + 8 AND hand2y(pc2) > h1y - 15 AND hand2y(pc2) < l2y THEN - camode% = 0 - bgcolor% = 15 - blur 5 - panh = d%(pc1) - panv = 0 - health%(po1) = health%(po1) - (ahpow%(pc1) * 5) - ko(po1) = ko(po1) - 50 - IF health%(po1) <= 0 THEN decap (po1) - buttv(po1) = -31 - butth(po1) = d%(pc1) - position%(po1) = 10 - COLOR , 15: COLOR , 0 - particle (hand2x(pc2)), (necky(pc2)), fighterz(pc1), 23, 10 - FOR wee = 1 TO 80 STEP 5: particle (hand2x(pc2) + ((RND - .5) * 5)), (butty(pc1) - wee), (fighterz(pc1)), 2, 1: NEXT wee - soundticker% = 0: sbfx 11 - END IF - - END IF - - - IF pticker%(pc1) > 9 AND butty(po1) > butty(pc1) - 25 THEN - camode% = 1 - position%(pc1) = 1 - elbow2v(pc1) = 2 - END IF - - - '---------------------------------------------------------------------- Block - CASE IS = 99 - - fighterfreeze (pc1) - - elbow1x(pc1) = 4 - elbow1y(pc1) = 2 - hand1x(pc1) = 0 - elbow2x(pc1) = 0 - nee1y(pc1) = nee2y(pc1) - 8 - foot1x(pc1) = 0 - neckx(pc1) = 1 - - - IF pticker%(pc1) > 10 THEN position%(pc1) = 1 - - - '---------------------------------------------------------------------------- - END SELECT - - IF healths% > 0 AND position%(pc1) < 30 THEN health%(po1) = healths%: ko(po1) = kos - -NEXT pc1 -END SUB - -SUB file - -20 -SELECT CASE mode% - - '----------------------------------------------------------------------- Load - CASE IS = 1 - fault$ = "load" - OPEN path$ + "\slash.dat" FOR INPUT AS #1 - IF setback% = 1 THEN mode% = 3: GOTO 20 - INPUT #1, cmethod%, cfreq%, frameskip%, particles%, nstars%, rez%, delay%, stage%, sbsound%, soundwait%, i16m%, smears%, stagedetail%, fighterdetail%, hudetail%, solidc%, name$(1), flimits% - IF setback% = 1 THEN mode% = 3: GOTO 20 - INPUT #1, head%(1), body%(1), arms%(1), hands%(1), legs%(1), feet%(1), hairl%(1), hairc%(1), hairt%(1) - INPUT #1, headc%(1), bodyc%(1), armsc%(1), handsc%(1), legsc%(1), feetc%(1) - CLOSE #1 - IF stage% > stages% THEN stage% = 1: setfightercpu - - LOCATE 12, 27: PRINT "Loaded" - LOCATE 13, 27: PRINT " " - LOCATE 14, 27: PRINT " " - - '----------------------------------------------------------------------- Save - 38 - CASE IS = 2 - fault$ = "save1" - OPEN path$ + "\slash.dat" FOR OUTPUT AS #1 - IF setback% = 1 THEN setback% = 0: GOTO 38 - IF setback% = 2 THEN setback% = 0: GOTO 20 - WRITE #1, cmethod%, cfreq%, frameskip%, particles%, nstars%, rez%, delay%, stage%, sbsound%, soundwait%, i16m%, smears%, stagedetail%, fighterdetail%, hudetail%, solidc%, name$(1), flimits% - IF setback% = 2 THEN setback% = 0: GOTO 20 - WRITE #1, head%(1), body%(1), arms%(1), hands%(1), legs%(1), feet%(1), hairl%(1), hairc%(1), hairt%(1) - WRITE #1, headc%(1), bodyc%(1), armsc%(1), handsc%(1), legsc%(1), feetc%(1) - CLOSE #1 - - LOCATE 12, 27: PRINT " " - LOCATE 13, 27: PRINT "Saved" - LOCATE 14, 27: PRINT " " - COLOR 7 - IF rez% <> 7 THEN LOCATE 15, 27: PRINT "<" + UCASE$(path$) + "\SLASH.DAT>" - LOCATE 16, 27: PRINT "" - - - '------------------------------------------------------------- Reset Defaults - CASE IS = 3 - cmethod% = 1 - cfreq% = -1 - frameskip% = 3 - particles% = 30 - nstars% = 4 - rez% = 9 - delay% = 0 - stage% = 1 - soundwait% = 5 - sbsound% = 0 - i16m% = 0 - stagedetail% = 1 - fighterdetail% = 1 - hudetail% = 1 - smears% = 1 - flimits% = 1 - solidc% = 0 - - head%(1) = 1 - body%(1) = 2 - arms%(1) = 2 - hands%(1) = 4 - legs%(1) = 2 - feet%(1) = 1 - - headc%(1) = 7 - bodyc%(1) = 6 - armsc%(1) = 1 - handsc%(1) = 7 - legsc%(1) = 1 - feetc%(1) = 4 - hairl%(1) = 1 - hairc%(1) = 4 - hairt%(1) = 1 - - name$(1) = "Mortal" - - LOCATE 12, 27: PRINT " " - LOCATE 13, 27: PRINT " " - LOCATE 14, 27: PRINT "Defaulted" - -END SELECT - -fault$ = "" -mode% = 0 -END SUB - -SUB floors -'---------------------------------------------------------- Floors / RingOuts -FOR wee = 1 TO 2 - wee2 = wee + 2 - - 'Default Settings - floor3 = floor1 - canjump%(wee) = 0 - - SELECT CASE stage% - - '---------------------------------------------------------------------------- - CASE IS = 1 - IF ABS(buttx(wee)) > ring% OR butty(wee) > floor1 THEN floor3 = floor2 - IF butty(wee) > 70 THEN ringout (wee) - - - '---------------------------------------------------------------------------- - CASE IS = 2 - IF ABS(buttx(wee)) > ring% THEN buttv(wee) = buttv(wee) - gravity - .05: ringout (wee) - - '---------------------------------------------------------------------------- - CASE IS = 3, 8, 15 - IF ABS(buttx(wee)) > ring% THEN - floor3 = floor2 - IF foot1y(wee2) >= floor2 - 1 OR foot2y(wee2) >= floor2 - 1 THEN ringout (wee): EXIT SUB - END IF - - '---------------------------------------------------------------------------- - CASE IS = 4 - IF ABS(buttx(wee)) > ring% OR butty(wee) > floor1 + 25 THEN floor3 = floor2 ELSE floor3 = (buttx(wee) * bob) / 200 - IF heady(wee2) > 30 THEN ringout (wee) - - '---------------------------------------------------------------------------- - CASE IS = 9 - IF ABS(buttx(wee)) > ring% THEN floor3 = floor2: ringout (wee) ELSE floor3 = (buttx(wee) * trigger1) / 300 - - '---------------------------------------------------------------------------- - CASE IS = 12 - IF ABS(buttx(wee)) > ring% OR butty(wee) > floor1 THEN floor3 = floor2: camode% = wee + 1 - - '---------------------------------------------------------------------------- - CASE IS = 14 - IF ABS(buttx(wee)) > 100 THEN floor3 = floor2 - IF ticker% < 60 AND wee = 1 THEN floor3 = -100 - - END SELECT - - '-------------------------------------------------------------------- CanJump - IF position%(wee) = 1 THEN - IF foot1y(wee2) >= (floor3 - buttv(wee)) - 2 OR foot2y(wee2) >= (floor3 - buttv(wee)) - 2 THEN canjump%(wee) = 1 - END IF - - - '---------------------------------------------- Gravity, Traction and Landing - - buttv(wee) = buttv(wee) + gravity - - IF foot1y(wee2) >= (floor3 - buttv(wee)) OR foot2y(wee2) >= (floor3 - buttv(wee)) OR butty(wee) >= (floor3 - buttv(wee)) THEN - butth(wee) = butth(wee) / 1.1 - - 'bounce - IF position%(wee) >= 8 AND position%(wee) <= 11 AND ABS(buttv(wee)) > 3 AND ABS(buttv(wee)) < 25 THEN buttv(wee) = -buttv(wee) / 3: butty(wee) = floor3 - - IF buttv(wee) > 0 THEN buttv(wee) = 0 - IF foot1y(wee2) > (floor3) THEN - butty(wee) = butty(wee) - (foot1y(wee2) - (floor3)) - ELSE - IF foot2y(wee2) > floor3 THEN butty(wee) = butty(wee) - (foot2y(wee2) - (floor3)) - END IF - - END IF - - - '-------------------------------------------------------------- Landing Heads - IF hy(wee) + hv(wee) >= floor3 - 2 THEN - hv(wee) = 0 - hy(wee) = floor3 - 2 - hh(wee) = hh(wee) / 2 - ELSE - hv(wee) = hv(wee) + gravity - END IF - - - '----------------------------------------------------------------------- Hair - IF wee = 1 THEN - FOR n% = 1 TO 5 - IF hairy(n%) > floor3 THEN hairy(n%) = floor3 - NEXT n% - ELSE - FOR n% = 6 TO 10 - IF hairy(n%) > floor3 THEN hairy(n%) = floor3 - NEXT n% - END IF - - '------------------------------------------------------------------- - - - 'Slamming on Ground Sound - IF butty(wee) >= floor3 - 5 AND buttv(wee) > .5 THEN sbfx 20 - - 'Skidding on Ground Sound - IF butty(wee) >= floor3 - 1 AND buttv(wee) > -1 AND ABS(butth(wee)) > .3 THEN sbfx 5 - - 'Smoke - IF ABS(butth(wee)) > 4 AND foot1y(wee2) > floor3 - 1 THEN particle foot1x(wee2), foot1y(wee2), fighterz(wee), 16, 1 - IF ABS(butth(wee)) > 3 AND foot1y(wee2) > floor3 - 1 THEN particle foot1x(wee2), foot1y(wee2), fighterz(wee), 15, 1 - - -NEXT wee - - -END SUB - -SUB getpath -fault$ = "file" -OPEN "c:\sfb2.pth" FOR INPUT AS #1 -IF setback% = 1 THEN window3d: setpath: GOTO 28 -INPUT #1, path$ -CLOSE #1 -28 -fault$ = "" -END SUB - -SUB i16 (x, y, x2, y2, F$) -fault$ = "file" -OPEN path$ + "\" + F$ + ".i16" FOR INPUT AS #1 - -IF setback% = 1 THEN - setback% = 0 - LINE (x, y)-(x + 18.5, y + 18), 0, BF - LINE (x, y)-(x + 18, y + 17.5), 4 - LINE (x + 18, y)-(x, y + 17.5), 4 - GOTO 13 -END IF - -x1 = x -y1 = y - -DO WHILE NOT EOF(1) - INPUT #1, c% - IF c% = 16 THEN - x1 = x - y1 = y1 + y2 - ELSE - LINE (x1, y1)-(x1 + x2, y1 + y2), c%, BF - x1 = x1 + x2 - END IF -LOOP -13 -fault$ = "" -CLOSE #1 -END SUB - -SUB jump (n%, T%) - -IF canjump%(n%) = 1 THEN - SELECT CASE legs%(n%) - CASE 1: buttv(n%) = -7 - CASE 2, 2000: buttv(n%) = -10 - CASE 3, 666: buttv(n%) = -8 - CASE 4: buttv(n%) = -14 - CASE 5, 1998: buttv(n%) = -9 - END SELECT - - - IF T% = 1 THEN - SELECT CASE legs%(n%) - CASE 1, 666: butth(n%) = butth(n%) - 1.6 - CASE 2: butth(n%) = butth(n%) - 1.4 - CASE 3: butth(n%) = butth(n%) - 1.2 - CASE 4: butth(n%) = butth(n%) - 1 - CASE 5, 2000: butth(n%) = butth(n%) - 2.5 - CASE 1998: butth(n%) = butth(n%) - 3 - END SELECT - END IF - - IF T% = 3 THEN - SELECT CASE legs%(n%) - CASE 1, 666: butth(n%) = butth(n%) + 1.6 - CASE 2: butth(n%) = butth(n%) + 1.4 - CASE 3: butth(n%) = butth(n%) + 1.2 - CASE 4: butth(n%) = butth(n%) + 1 - CASE 5, 2000: butth(n%) = butth(n%) + 2.5 - CASE 1998: butth(n%) = butth(n%) + 3 - END SELECT - END IF - -END IF -END SUB - -SUB keycheck - -fault$ = "nokey" -OPEN path$ + "\sfb2.key" FOR INPUT AS #1 -INPUT #1, wee$ -CLOSE #1 - -END SUB - -SUB loadsave -39 rezs% = rez% -setback% = 0 -smallwindow - -COLOR 15 -LOCATE 10, 2: PRINT "File Options" -LOCATE 12, 2: PRINT "1 Load" -LOCATE 13, 2: PRINT "2 Save" -LOCATE 14, 2: PRINT "3 Defaults" -LOCATE 15, 2: PRINT "4 Delete Settings File" -LOCATE 16, 2: PRINT "5 Reset Path File" - -COLOR 7 -IF rez% <> 7 THEN LOCATE 15, 27: PRINT "<" + UCASE$(path$) + "\SLASH.DAT>" -LOCATE 16, 27: PRINT "" - - -22 wee$ = INKEY$ -IF setback% = 1 THEN 39 -IF wee$ = "" THEN 22 - -IF wee$ = "1" THEN - mode% = 1: file - newmatch -END IF - -IF wee$ = "2" THEN - mode% = 2: file -END IF - -IF wee$ = "3" THEN - mode% = 3: file - newmatch -END IF - -IF wee$ = "4" THEN - LOCATE 15, 27 - IF rez% = 7 THEN PRINT "Deleted ": LOCATE 15, 26 ELSE PRINT "Deleted ": LOCATE 15, 27 - SHELL "DEL " + path$ + "\SLASH.DAT" - LOCATE 12, 27: PRINT " " - LOCATE 13, 27: PRINT " " - LOCATE 14, 27: PRINT " " -END IF - -IF wee$ = "5" THEN - setpath - restart% = 1 - GOTO 23 -END IF - -IF rez% <> rezs% THEN SCREEN rez%: window3d: GOTO 39 -IF wee$ <> CHR$(27) THEN 22 - -23 -csmallwindow -IF wee$ = "3" THEN SCREEN rez% -wee$ = "" -END SUB - -SUB movecam - -'-------------------------------------------------------------Camera Movement -zoom = zoom + zoomd -panx = panx + panh -pany = pany + panv -zoomd = zoomd / 1.1 -panh = panh / 1.01 -panv = panv / 1.01 -END SUB - -SUB mud - -SCREEN 9 -COLOR , 0 - -fault$ = "mud" -IF setback% = 1 THEN setback% = 0: GOTO 21 -'------------------------------------------------------------------- Show Mud -CLS - -camdefaults -zoom = .5 -panx = -500 - -s$ = " SFB2: Vector Warriors, Powered by Slash - Created by Kevin Reems 1997-1998" - -window3d - - -FOR miniloop = 0 TO 75 - IF INKEY$ <> "" THEN 21 - - panh = 25 - - movecam - 'page flipping - pflip - - flicker = TIMER: DO UNTIL TIMER - flicker > .000001: LOOP - - 'Clear Screen - CLS - - '------------------------------------------------------------------- - IF miniloop = 1 THEN c% = 15 - IF miniloop = 3 THEN c% = 9 - IF miniloop = 5 THEN c% = 1 - IF miniloop = 74 THEN c% = 0 - - FOR wee = n TO n + 20 - psline -1500, -150, (wee + .5), 1500, -150, (wee + .5), c%, 3 - psline -1500, 150, (wee + .5), 1500, 150, (wee + .5), c%, 3 - psline -500, -150, (wee), 500, -150, (wee), c%, 0 - psline -500, 150, (wee), 500, 150, (wee), c%, 0 - NEXT wee - - IF n > 0 THEN n = n - .2 ELSE n = 1 - - IF miniloop > 60 THEN - window2d - LINE (0, (miniloop * 10) - 750)-(100, (miniloop * 10) - 650), 0, BF - window3d - END IF - - '------------------------------------------------------------------- - - psdpset -200, -100, 0, 10, 8 - psdpset -100, -75, 0, 5, 8 - psdpset 0, 10, 0, 7, 8 - psdpset 100, -25, 0, 3, 8 - psdpset 400, 75, 0, 6, 8 - psdpset 500, -100, 0, 5, 8 - psdpset 200, 25, 0, 6, 8 - psdpset 300, -75, 0, 5, 8 - psdpset 600, 100, 0, 5, 8 - - '---------S - psdline 150, -50, 1, 100, 0, 4, 15, 7, 8, 0 - psdline 100, 0, 1, 150, 0, 4, 15, 7, 8, 0 - psdline 150, 0, 1, 100, 50, 4, 15, 7, 8, 0 - - '---------L - psdline 160, 50, 1, 200, 50, 4, 15, 7, 8, 0 - psdline 160, 50, 1, 180, -50, 4, 15, 7, 8, 0 - - '---------A - psdline 210, 50, 1, 250, -50, 4, 15, 7, 8, 0 - psdline 250, -50, 1, 250, 50, 4, 15, 7, 8, 0 - psdline 240, 0, 1, 250, 0, 4, 15, 7, 8, 0 - - '---------S - psdline 310, -50, 1, 260, 0, 4, 15, 7, 8, 0 - psdline 260, 0, 1, 310, 0, 4, 15, 7, 8, 0 - psdline 310, 0, 1, 260, 50, 4, 15, 7, 8, 0 - - '---------H - psdline 320, 50, 1, 340, -50, 4, 15, 7, 8, 0 - psdline 330, 0, 1, 370, 0, 4, 15, 7, 8, 0 - psdline 360, 50, 1, 380, -50, 4, 15, 7, 8, 0 - - '------------------------------------------------------------------- - - IF miniloop < 5 THEN LOCATE 23, 1: COLOR 8: PRINT s$ - IF miniloop > 4 AND miniloop < 10 THEN LOCATE 23, 1: COLOR 7: PRINT s$ - IF miniloop > 9 THEN LOCATE 23, 1: COLOR 15: PRINT s$ -NEXT miniloop - -IF i16m% = 2 THEN 21 -window2d -SCREEN , , 0, 0 -i16 0, 0, .88, .85, "slash" -SCREEN , , 1, 0 -i16 0, 0, .54, .73, "sfb2" -SCREEN , , 0, 1 -CLS -SLEEP 3 - -21 -fault$ = "" -END SUB - -SUB newmatch -'Start a New Match - -'----------------------- -IF stage% > stages% THEN - stage% = 1 - keycheck - - IF wee$ <> "´œ‘·ðE=666ÛÈåÃGenerated Key File: Do Not Edit" THEN - fault$ = "writekey" - wee$ = "´œ‘·ðE=666ÛÈåÃGenerated Key File: Do Not Edit" - OPEN path$ + "\sfb2.key" FOR OUTPUT AS #1 - WRITE #1, wee$ - CLOSE #1 - - '---------------------------------------------------------------------------- - smallwindow - COLOR 15 - LOCATE 10, 2: PRINT "STAGE SELECT ENABLED" - COLOR 12 - - IF rez% > 7 THEN - LOCATE 12, 2: PRINT "Congratulations, You've Earned The Stage Select Option." - ELSE - LOCATE 12, 2: PRINT "Congratulations!" - LOCATE 13, 2: PRINT "You've Earned The Stage Select Option." - END IF - - - '---------------------------------------------------------------------------- - END IF -END IF - -stageinit -END SUB - -SUB nokey -smallwindow -COLOR 15 -LOCATE 10, 2: PRINT "DISABLED" -COLOR 12 - -IF rez% > 7 THEN - LOCATE 12, 2: PRINT "You Must Complete Every Stage To Enable This Option." - LOCATE 13, 2: PRINT "Don't Forget To Save Your Progress." - -ELSE - - LOCATE 12, 2: PRINT "You Must Complete Every Stage" - LOCATE 13, 2: PRINT "To Enable This Option." - LOCATE 14, 2: PRINT "Don't Forget To Save Your Progress." - -END IF - - -COLOR 4 -LOCATE 16, 2: PRINT "Press Esc" - -40 IF INKEY$ <> CHR$(27) THEN 40 -csmallwindow -END SUB - -SUB ocasional - -IF flimits% = 1 THEN fighterlimits - -FOR wee = 1 TO 2 - - 'recharge KO & Rage - IF Special%(wee) = 0 AND ko(wee) > 0 AND ko(wee) < 100 AND health%(wee) > 0 THEN ko(wee) = ko(wee) + kocharge(wee) - IF rage(wee) < 100 AND health%(wee) > 0 THEN rage(wee) = rage(wee) + ragecharge(wee) - - IF vexed%(wee) > 0 THEN health%(wee) = health%(wee) - 1 - - '---------------------------+ - - 'Headless Stuff - IF headless%(wee) = 1 THEN - health%(wee) = health%(wee) - 20 - particle (hx(wee)), (hy(wee)), fighterz(wee), 0, 1 - END IF - - '---------------------------+ - - 'Damage Bar Stuff - IF health%(wee) > maxhp%(wee) THEN health%(wee) = maxhp%(wee) - - IF health%(wee) < hpslide%(wee) THEN - hpslide%(wee) = hpslide%(wee) - 4 - ELSE - hpslide%(wee) = health%(wee) - END IF - - IF ko(wee) < koslide%(wee) THEN - koslide%(wee) = koslide%(wee) - 2 - ELSE - koslide%(wee) = ko(wee) - END IF - - - IF health%(wee) >= maxhp%(wee) THEN hc%(wee) = 10 ELSE hc%(wee) = 14 - IF vexed%(wee) > 0 THEN hc%(wee) = 9 - IF ko(wee) >= 100 THEN kc%(wee) = 10 ELSE kc%(wee) = 14 - - '---------------------------+ - - IF rage(wee) < 0 THEN rage(wee) = 0 - IF rage(wee) = 100 THEN vexed%(wee) = 0 - - IF fighterz(wee) > midstage THEN fighterz(wee) = fighterz(wee) - .1 - IF fighterz(wee) < midstage THEN fighterz(wee) = fighterz(wee) + .1 - IF fighterz(wee) > midstage + .5 THEN fighterz(wee) = fighterz(wee) - .5 - IF fighterz(wee) < midstage - .5 THEN fighterz(wee) = fighterz(wee) + .5 - -NEXT wee - -'---------------------------------------------------------------------------- -END SUB - -SUB options - -IF AIactive%(1) = 1 THEN AIactive%(1) = 0: stage% = 1: stageinit - -1 redraw% = 0 -fault$ = "" -bigwindow -COLOR 15, 0 -IF rez% = 7 THEN - LOCATE 4, 17: PRINT "OPTIONS" -ELSE - LOCATE 4, 37: PRINT "OPTIONS" -END IF - -LOCATE 6, 6: PRINT "Select Stage" -LOCATE 8, 6: PRINT "Build Fighter" -LOCATE 10, 6: PRINT "Visit Dojo" -LOCATE 12, 6: PRINT "Settings" -LOCATE 14, 6: PRINT "Load/Save Options" -LOCATE 16, 6: PRINT "Demo Mode" -LOCATE 18, 6: PRINT "Restart" -LOCATE 20, 6: PRINT "Quit" - -IF ptoptions% = 0 THEN ptoptions% = 6 - -DO - wee$ = UCASE$(INKEY$) - '----------------------------------------------------------------- Move Arrow - SELECT CASE wee$ - CASE IS = "8", CHR$(0) + "H" - LOCATE ptoptions%, 2: PRINT " " - IF ptoptions% > 6 THEN ptoptions% = ptoptions% - 2 ELSE ptoptions% = 20 - - CASE IS = "5", "2", CHR$(0) + "P" - LOCATE ptoptions%, 2: PRINT " " - IF ptoptions% < 20 THEN ptoptions% = ptoptions% + 2 ELSE ptoptions% = 6 - END SELECT - LOCATE ptoptions%, 2: PRINT CHR$(16) - - '--------------------------------------------------------------------- Select - IF wee$ = " " OR wee$ = CHR$(13) THEN - redraw% = 1 - wee$ = "" - - SELECT CASE ptoptions% - - CASE IS = 6 - wee$ = "" - keycheck - IF wee$ = "´œ‘·ðE=666ÛÈåÃGenerated Key File: Do Not Edit" THEN setstage ELSE nokey - wee$ = "" - - CASE IS = 8 - setfighter - - CASE IS = 10 - smallwindow - LOCATE 10, 31: PRINT "Master Bean's Dojo" - LOCATE 12, 2: PRINT "Leave Current Stage to Visit Dojo ?" - window2d - i16 76, 41, .363, .355, "dojo" - LINE (75, 40)-(95, 60), 7, B - window3d - LOCATE 13, 2: PRINT "" - DO: wee$ = INKEY$: LOOP UNTIL wee$ <> "" - IF UCASE$(wee$) = "Y" THEN - stage% = 1000 - stageinit - setfightercpu - END IF - - CASE IS = 12 - settings - - CASE IS = 14 - loadsave - - CASE IS = 16 - AIactive%(1) = 1 - AIactive%(2) = 1 - dif% = 7 - stage% = (RND * 3) + 1 - newmatch - EXIT SUB - - CASE IS = 18 - restart% = 1 - - CASE IS = 20 - quit - - END SELECT - END IF - - IF restart% = 1 THEN wee$ = CHR$(27) - IF redraw% = 1 THEN 1 -LOOP UNTIL wee$ = CHR$(27) -cbigwindow -END SUB - -SUB page2 -SCREEN , 0, 0 -LOCATE 1, 1: COLOR 4: PRINT "Loading..." -SCREEN , 2, 0 -window2d - -SELECT CASE stage% - - CASE IS = 1 - wee = 1 - DO WHILE wee < 50 - LINE (0, 100 - wee)-(100, 100 - wee), 4 - wee = wee * 2 - LOOP - - CASE IS = 2 - stars2d 8, 15, 15 - - CASE IS = 3 - i16 0, 0, .88, .85, "slash" - - CASE IS = 4 - i16 0, 0, .88, .85, "slash" - - -END SELECT -window3d -END SUB - -SUB pagetest -32 fault$ = "pagetest" -wee$ = UCASE$(INKEY$) -IF wee$ = "0" THEN SCREEN , 0, 0 -IF wee$ = "1" THEN SCREEN , 1, 1 -IF wee$ = "2" THEN SCREEN , 2, 2 -IF wee$ = "3" THEN SCREEN , 3, 3 -IF wee$ = "4" THEN SCREEN , 4, 4 -IF wee$ = "5" THEN SCREEN , 5, 5 -IF wee$ <> "Q" THEN 32 -wee$ = "": fault$ = "" - -END SUB - -SUB particle (x, y, Z, T%, Q%) -fault$ = "particles" - -FOR wee = 1 TO particles% - - IF p%(wee) = 0 AND Q% > 0 THEN - Q% = Q% - 1 - px(wee) = x - py(wee) = y - pz(wee) = Z - - SELECT CASE T% - - CASE IS = 0: 'Blood Down - p%(wee) = 20 - ph(wee) = (RND - .5) - pv(wee) = RND - pg%(wee) = 1 - pc1%(wee) = 12 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 0 - pk%(wee) = 1 - - CASE IS = 1: 'Normal Blood - p%(wee) = 30 - ph(wee) = (RND - .5) * 3 - pv(wee) = -RND * 5 - pg%(wee) = 2 - pc1%(wee) = 12 - pc2%(wee) = 4 - pc3%(wee) = 4 - pf%(wee) = 1 - pk%(wee) = 1 - - CASE IS = 2: 'Blood Spurting Up - p%(wee) = 60 - ph(wee) = (RND - .5) - pv(wee) = -8 + (RND * 2) - pg%(wee) = 2 - pc1%(wee) = 12 - pc2%(wee) = 4 - pc3%(wee) = 4 - pf%(wee) = 1 - pk%(wee) = 1 - - CASE IS = 3: 'Blood Left - p%(wee) = 30 - ph(wee) = -RND * 3 - pv(wee) = -RND * 3 - pg%(wee) = 2 - pc1%(wee) = 12 - pc2%(wee) = 4 - pc3%(wee) = 4 - pf%(wee) = 1 - pk%(wee) = 1 - - CASE IS = 4: 'Blood Right - p%(wee) = 30 - ph(wee) = RND * 3 - pv(wee) = -RND * 3 - pg%(wee) = 2 - pc1%(wee) = 12 - pc2%(wee) = 4 - pc3%(wee) = 4 - pf%(wee) = 1 - pk%(wee) = 1 - pk%(wee) = 1 - - CASE IS = 5: 'Large Omni Spark (Blue) - p%(wee) = 30 - ph(wee) = (RND - .5) * 15 - pv(wee) = (RND - .5) * 15 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 9 - pc3%(wee) = 1 - pf%(wee) = 0 - pk%(wee) = 1 - - CASE IS = 6: 'Small Omni Spark (Blue) - p%(wee) = 4 - ph(wee) = (RND - .5) * 30 - pv(wee) = (RND - .5) * 30 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 15 - pc3%(wee) = 15 - pf%(wee) = 0 - pk%(wee) = 0 - - CASE IS = 8: 'Blue Spark Shower - p%(wee) = 30 - ph(wee) = (RND - .5) * 4 - pv(wee) = (-RND) * 3 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 9 - pc3%(wee) = 1 - pf%(wee) = 1 - pk%(wee) = 1 - - CASE IS = 9: 'Red Spark Shower - p%(wee) = 40 - ph(wee) = (RND - .5) - pv(wee) = RND - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 0 - pk%(wee) = 1 - - CASE IS = 11: 'Normal Water - p%(wee) = 30 - ph(wee) = (RND - .5) * 3 - pv(wee) = -RND * 5 - pg%(wee) = 2 - pc1%(wee) = 15 - pc2%(wee) = 9 - pc3%(wee) = 1 - pf%(wee) = 1 - pk%(wee) = 2 - - CASE IS = 12: 'Water Spurting Up - p%(wee) = 40 - ph(wee) = (RND - .5) - pv(wee) = -7 / (1 + RND) - pg%(wee) = 2 - pc1%(wee) = 15 - pc2%(wee) = 9 - pc3%(wee) = 1 - pf%(wee) = 1 - pk%(wee) = 2 - - CASE IS = 13: 'Water Left - p%(wee) = 30 - ph(wee) = -RND * 3 - pv(wee) = -RND * 3 - pg%(wee) = 2 - pc1%(wee) = 15 - pc2%(wee) = 9 - pc3%(wee) = 1 - pf%(wee) = 1 - pk%(wee) = 2 - - CASE IS = 14: 'Water Right - p%(wee) = 30 - ph(wee) = RND * 3 - pv(wee) = -RND * 3 - pg%(wee) = 2 - pc1%(wee) = 15 - pc2%(wee) = 9 - pc3%(wee) = 1 - pf%(wee) = 1 - pk%(wee) = 2 - - CASE IS = 15: 'Smoke - p%(wee) = 60 - ph(wee) = (RND - .5) * 2 - pv(wee) = -RND * 1.5 - pg%(wee) = 2 - pc1%(wee) = 7 - pc2%(wee) = 8 - pc3%(wee) = 8 - pf%(wee) = 3 - pk%(wee) = 0 - - CASE IS = 16: 'Fire - p%(wee) = 30 - ph(wee) = (RND - .5) * 2 - pv(wee) = -RND - pg%(wee) = 1 - pc1%(wee) = 14 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 3 - pk%(wee) = 0 - - CASE IS = 17: 'Flame - p%(wee) = 40 - ph(wee) = (RND - .5) * 2 - pv(wee) = -RND * 4 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 14 - pc3%(wee) = 12 - pf%(wee) = 3 - pk%(wee) = 0 - - CASE IS = 18: 'Bloody Mess! - p%(wee) = 30 - ph(wee) = (RND - .5) * 8 - pv(wee) = -RND * 8 - pg%(wee) = 2 - pc1%(wee) = 12 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 1 - pk%(wee) = 2 - - CASE IS = 19: 'Grayscale Dot - p%(wee) = 18 - ph(wee) = 0 - pv(wee) = 0 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 7 - pc3%(wee) = 8 - pf%(wee) = 0 - pk%(wee) = 2 - - - CASE IS = 20: 'Horizontal Snap Spark White - p%(wee) = 15 - ph(wee) = (RND - .5) * 50 - pv(wee) = (RND - .5) * 5 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 15 - pc3%(wee) = 7 - pf%(wee) = 0 - pk%(wee) = 0 - - - CASE IS = 21: 'Horizontal Snap Spark Red - p%(wee) = 15 - ph(wee) = (RND - .5) * 50 - pv(wee) = (RND - .5) * 5 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 0 - pk%(wee) = 0 - - - CASE IS = 22: 'Vertical Snap Spark White - p%(wee) = 15 - ph(wee) = (RND - .5) * 5 - pv(wee) = (RND - .5) * 50 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 15 - pc3%(wee) = 7 - pf%(wee) = 0 - pk%(wee) = 0 - - - CASE IS = 23: 'Vertical Snap Spark Red - p%(wee) = 15 - ph(wee) = (RND - .5) * 5 - pv(wee) = (RND - .5) * 50 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 0 - pk%(wee) = 0 - - - CASE IS = 24: 'Volcanic Chunks (Brown) - p%(wee) = 60 - ph(wee) = (RND - .5) * 2 - pv(wee) = RND * -10 - pg%(wee) = 3 - pc1%(wee) = 6 - pc2%(wee) = 6 - pc3%(wee) = 6 - pf%(wee) = 1 - pk%(wee) = 1 - - - CASE IS = 25: 'Large Omni Spark (Green) - p%(wee) = 18 - ph(wee) = (RND - .5) * 50 - pv(wee) = (RND - .5) * 50 - pg%(wee) = 1 - pc1%(wee) = 15 - pc2%(wee) = 10 - pc3%(wee) = 2 - pf%(wee) = 0 - pk%(wee) = 1 - - - CASE IS = 26: 'Volcanic Chunks (Blue) - p%(wee) = 30 - ph(wee) = (RND - .5) * 2 - pv(wee) = RND * -10 - pg%(wee) = 3 - pc1%(wee) = 9 - pc2%(wee) = 1 - pc3%(wee) = 1 - pf%(wee) = 1 - pk%(wee) = 1 - - CASE IS = 27: 'Candle-Like Flame - p%(wee) = 15 - ph(wee) = (RND - .5) / 3 - pv(wee) = -RND - pg%(wee) = 1 - pc1%(wee) = 14 - pc2%(wee) = 12 - pc3%(wee) = 4 - pf%(wee) = 3 - pk%(wee) = 0 - - - END SELECT - END IF - - '---------------------------------------------------------------------------- -NEXT wee -END SUB - -SUB particleclear -FOR wee = 1 TO particles% - p%(wee) = 0 - py(wee) = -5000 -NEXT wee - -FOR wee = 1 TO 10 - smearl%(wee) = 0 -NEXT wee - -END SUB - -SUB particlemove - -FOR wee = 1 TO particles% - px(wee) = px(wee) + ph(wee) - py(wee) = py(wee) + pv(wee) - SELECT CASE pf%(wee) - CASE IS = 1: pv(wee) = pv(wee) + gravity - CASE IS = 2: pv(wee) = pv(wee) - gravity - CASE IS = 3: ph(wee) = ph(wee) / 1.3 - END SELECT -NEXT wee -END SUB - -SUB particlerender - -fault$ = "particles" - -18 -FOR wee = 1 TO particles% - - IF setback% = 1 THEN setback% = 0: particles% = 0: GOTO 18 - '---------------------------------------------------------------------------- - IF p%(wee) > 0 THEN - - IF pg%(wee) < 3 THEN psline (px(wee)), (py(wee)), (pz(wee)), (px(wee) - ph(wee)), (py(wee) - pv(wee)), (pz(wee) - pd(wee)), (pc1%(wee)), 0 - IF pg%(wee) > 1 THEN pscircle (px(wee)), (py(wee)), (pz(wee)), (.3), (pc1%(wee)) - - END IF - - '---------------------------------------------------------------------------- -NEXT wee -fault$ = "" -END SUB - -SUB pause - -SCREEN , , 0, 0 - -COLOR 4 -LOCATE 22, 38 -PRINT "Pause" - -COLOR 15 -LOCATE 21, 1: PRINT name$(1) + " VS. " + name$(2) -LOCATE 22, 1: PRINT stagename$ - -DO WHILE INKEY$ = "" -LOOP - -END SUB - -SUB pflip -fault$ = "pflip" -IF rez% <> 1 AND rez% <> 12 THEN - SWAP pflip1%, pflip2% - SCREEN , , pflip1%, pflip2% -END IF -fault$ = "" - -END SUB - -SUB projectilerender -FOR n% = 1 TO 6 - IF projectile%(n%) > 0 THEN - IF projectile%(n%) < 4 THEN Z = fighterz(1) ELSE Z = fighterz(2) - - '---------------- - SELECT CASE projectilet%(n%) - - - '------------------------------------------------------------- Ball Lightning - CASE 1 - pscircle (projectilex(n%)), (projectiley(n%)), (Z), (RND * 4), (flash1%) - pscircle (projectilex(n%)), (projectiley(n%)), (Z), (4), (flash2%) - pslightning (projectilex(n%)), (projectiley(n%)), (Z), (projectilex(n%) - projectileh(n%)), (projectiley(n%) + ((RND - .5) * 25)), (Z), (20), (flash2%) - particle (projectilex(n%)), (projectiley(n%)), (Z), 5, 1 - - - '------------------------------------------------------------ Large Fire Ball - CASE 2 - s = projectile%(n%) - IF s > 6 THEN s = 6 - pscircle (projectilex(n%)), (projectiley(n%)), (Z), (s), (flash3%) - - FOR wee = 1 TO 3 - y = projectiley(n%) + ((RND - .5) * 10) - psline (projectilex(n%)), (y), (Z), (projectilex(n%) - (projectileh(n%) + ((RND - .5) * s * 5))), (y), (Z), flash3%, 0 - particle (projectilex(n%) - ((RND * projectileh(n%)) * 5)), (projectiley(n%) + ((RND - .5) * 10)), (Z), 16, 1 - NEXT wee - - '------------------------------------------------------------ Small Fire Ball - CASE 3 - s = projectile%(n%) - IF s > 3 THEN s = 3 - pscircle (projectilex(n%)), (projectiley(n%)), (Z), (s), (flash3%) - FOR wee = 1 TO 3 - y = projectiley(n%) + ((RND - .5) * 5) - psline (projectilex(n%)), (y), (Z), (projectilex(n%) - (projectileh(n%) + ((RND - .5) * s))), (y), (Z), 4, 0 - particle (projectilex(n%) - ((RND * projectileh(n%)) * 5)), (projectiley(n%) + ((RND - .5) * 5)), (Z), 16, 1 - NEXT wee - - - '------------------------------------------------------------------- Nin-Star - CASE 4 - particle (projectilex(n%)), (projectiley(n%)), (Z), 19, 1 - psline (projectilex(n%) - RND), (projectiley(n%) - RND), (Z), (projectilex(n%) + RND), (projectiley(n%) + RND), (Z), 15, 0 - psline (projectilex(n%) + RND), (projectiley(n%) - RND), (Z), (projectilex(n%) - RND), (projectiley(n%) + RND), (Z), 15, 0 - - - '--------------------------------------------------------------- Energy Blast - CASE 5 - pscline (projectilex(n%) - projectileh(n%)), (projectiley(n%)), (Z), (projectilex(n%) - (projectileh(n%) * 3)), (projectiley(n%)), (Z), (4), (flash1%) - pscircle (projectilex(n%) - projectileh(n%)), (projectiley(n%)), (Z), (15), (flash1%) - pscircle (projectilex(n%)), (projectiley(n%)), (Z), (RND * 5), (flash1%) - pscircle (projectilex(n%)), (projectiley(n%)), (Z), (5), (flash2%) - pslightning (projectilex(n%)), (projectiley(n%)), (Z), (projectilex(n%) - (projectileh(n%) * 5)), (projectiley(n%) + ((RND - .5) * 25)), (Z), (20), (flash2%) - FOR wee = 1 TO 3: particle (projectilex(n%) + ((RND - .5) * 20)), (projectiley(n%) + ((RND - .5) * 15)), (Z), 19, 1: NEXT wee - - - - END SELECT - END IF -NEXT n% - -END SUB - -SUB projectiles - -'Ball-1/4 Collision Detection -IF projectile%(1) > 0 AND projectile%(4) > 0 AND projectilex(1) > projectilex(1) - 5 AND projectilex(1) < projectilex(1) + 5 AND projectiley(1) > projectiley(1) - 5 AND projectiley(1) < projectiley(1) + 5 THEN - IF projectilet%(1) = 1 OR projectilet%(4) = 1 THEN particle ((projectilex(1) + projectilex(2)) / 2), (projectiley(1)), (fighterz(1)), 5, 15 - IF projectilet%(1) = 2 OR projectilet%(4) = 2 THEN particle ((projectilex(1) + projectilex(2)) / 2), (projectiley(1)), (fighterz(1)), 17, 15 - projectile%(1) = 0 - projectile%(4) = 0 -END IF - -FOR n% = 1 TO 6 - IF projectile%(n%) > 0 THEN - projectile%(n%) = projectile%(n%) - 1 - projectilex(n%) = projectilex(n%) + projectileh(n%) - projectiley(n%) = projectiley(n%) + projectilev(n%) - - IF n% < 4 THEN pc1% = 1: po1% = 2 ELSE pc1% = 2: po1% = 1 - pc2% = pc1% + 2 - po2% = po1% + 2 - IF foot1y(po2%) > foot2y(po2%) THEN footy = foot1y(po2%) ELSE footy = foot2y(po2%) - - - '---------------- Detect Hit - IF projectilex(n%) > buttx(po1%) - 5 AND projectilex(n%) < buttx(po1%) + 5 AND projectiley(n%) > heady(po2%) AND projectiley(n%) < footy THEN - - SELECT CASE projectilet%(n%) - '------------------------------------------------------------- Ball Lightning - CASE 1 - butth(po1%) = butth(po1%) + (projectileh(n%) / 5) - pscircle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), (10), (1) - IF position%(po1%) = 99 THEN - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 6, 25 - ELSE - soundticker% = 0: sbfx 19 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 15, 10 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 5, 25 - health%(po1%) = health%(po1%) - (ahpow%(pc1%) * 5) - ko(po1%) = ko(po1%) - (akpow%(pc1%) * 5) - IF ko(po1%) < 25 OR projectiley(n%) > butty(po1%) THEN fall (po1%) - END IF - - '-------------------------------------------------------------------- L. Fire - CASE 2 - butth(po1%) = butth(po1%) + (projectileh(n%) / 10) - pscircle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), (10), (4) - IF position%(po1%) = 99 THEN - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 9, 25 - ELSE - soundticker% = 0: sbfx 25 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 17, 20 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 15, 10 - health%(po1%) = health%(po1%) - (ahpow%(pc1%) * 2) - ko(po1%) = ko(po1%) - (akpow%(pc1%) * 2) - IF ko(po1%) < 15 THEN fall (po1%) - END IF - - '-------------------------------------------------------------------- S. Fire - CASE 3 - butth(po1%) = butth(po1%) + (projectileh(n%) / 10) - pscircle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), (8), (4) - IF position%(po1%) = 99 THEN - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 9, 15 - ELSE - soundticker% = 0: sbfx 25 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 17, 10 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 15, 5 - ko(po1%) = ko(po1%) - akpow%(pc1%) - butth(po1%) = butth(po1%) + (projectileh(n%) / 10) - END IF - - '------------------------------------------------------------------- Nin-Star - CASE 4 - IF position%(po1%) = 99 THEN - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 6, 15 - ELSE - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 0, 10 - health%(po1%) = health%(po1%) - ahpow%(pc1%) - ko(po1%) = ko(po1%) - akpow%(pc1%) - END IF - - - '------------------------------------------------------------------- E. Blast - CASE 5 - pscircle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), (20), (15) - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 5, 25 - health%(po1%) = health%(po1%) - 10 - ko(po1%) = ko(po1%) - 10 - butth(po1%) = butth(po1%) + (projectileh(n%) / 2) - - IF position%(po1%) = 99 THEN - bgcolor% = 1 - ELSE - soundticker% = 0: sbfx 21 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 20, 10 - particle (projectilex(n%)), (projectiley(n%)), (fighterz(po1%)), 22, 10 - bgcolor% = 9 - health%(po1%) = health%(po1%) / 2 - ko(po1%) = ko(po1%) / 2 - fall (po1%) - END IF - - - '---------------------------------------------------------------------------+ - END SELECT - projectile%(n%) = 0 - END IF - END IF -NEXT n% -END SUB - -SUB pscircle (x, y, Z, r1, c%) - -'-------------------------------------------------------------------PS-Circle -Z = Z + 1 -IF Z = 0 THEN Z = .000001 - -x = (midx% + ((x - panx) / (Z * zoom))) -y = (midy% + ((y - pany) / (Z * zoom))) - -r2 = r1 / (Z * zoom) - -fault$ = "ps" -CIRCLE (x, y), r2, c% -fault$ = "" -END SUB - -SUB pscline (x1, y1, z1, x5, y5, z5, r, c%) - -x3 = ((x1 + x5) / 2) -x2 = ((x1 + x3) / 2) -x4 = ((x3 + x5) / 2) - -y3 = ((y1 + y5) / 2) -y2 = ((y1 + y3) / 2) -y4 = ((y3 + y5) / 2) - -z3 = ((z1 + z5) / 2) -z2 = ((z1 + z3) / 2) -z4 = ((z3 + z5) / 2) - -pscircle (x1), (y1), (z1), (r), (c%) -pscircle (x2), (y2), (z2), (r), (c%) -pscircle (x3), (y3), (z3), (r), (c%) -pscircle (x4), (y4), (z4), (r), (c%) -pscircle (x5), (y5), (z5), (r), (c%) -END SUB - -SUB pscube (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%) - - -'---------------------------------------------------------------------PS-Cube - -'---------far face -psline (x1), (y1), (z2), (x2), (y2), (z2), (c3%), 1 - -'---------connect faces -'top/left -psdpset (x1), (y1), (z1), (z2), (c2%) - -'top/right -psdpset (x2), (y1), (z1), (z2), (c2%) - -'bottom/left -psdpset (x1), (y2), (z1), (z2), (c2%) - -'bottom/right -psdpset (x2), (y2), (z1), (z2), (c2%) - -'---------near face -psline (x1), (y1), (z1), (x2), (y2), (z1), (c1%), 1 - -END SUB - -SUB psdline (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%, B%) - - -'----------------------------------------------------------------PS Deep-Line -'---------far line -psline (x1), (y1), (z2), (x2), (y2), (z2), (c3%), 0 - -'---------connect lines -IF B% = 1 THEN psdpset (x1), (y1), (z1), (z2), (c2%): psdpset (x2), (y2), (z1), (z2), (c2%) - -'---------near line -psline (x1), (y1), (z1), (x2), (y2), (z1), (c1%), 0 - -END SUB - -SUB psdpset (x, y, z1, z2, c%) - - -'---------------------------------------------------------------PS-Deep Point -z1 = z1 + 1 -7 z2 = z2 + 1 -IF z1 = 0 THEN z1 = .000001 -IF z2 = 0 THEN z2 = .000001 - -x3 = (midx% + ((x - panx) / (z1 * zoom))) -y3 = (midy% + ((y - pany) / (z1 * zoom))) - -x4 = (midx% + ((x - panx) / (z2 * zoom))) -y4 = (midy% + ((y - pany) / (z2 * zoom))) - -fault$ = "ps" -LINE (x3, y3)-(x4, y4), c% -fault$ = "" -END SUB - -SUB pslightning (x1, y1, z1, x5, y5, z5, r, c%) - -x3 = ((x1 + x5) / 2) + ((RND - .5) * r) -x2 = ((x1 + x3) / 2) + ((RND - .5) * r) -x4 = ((x3 + x5) / 2) + ((RND - .5) * r) - -y3 = ((y1 + y5) / 2) + ((RND - .5) * r) -y2 = ((y1 + y3) / 2) + ((RND - .5) * r) -y4 = ((y3 + y5) / 2) + ((RND - .5) * r) - -z3 = ((z1 + z5) / 2) -z2 = ((z1 + z3) / 2) -z4 = ((z3 + z5) / 2) - -psline (x1), (y1), (z1), (x2), (y2), (z2), (c%), 0 -psline (x2), (y2), (z2), (x3), (y3), (z3), (c%), 0 -psline (x3), (y3), (z3), (x4), (y4), (z4), (c%), 0 -psline (x4), (y4), (z4), (x5), (y5), (z5), (c%), 0 -END SUB - -SUB psline (x1, y1, z1, x2, y2, z2, c%, B%) - -'---------------------------------------------------------------------PS-Line -z1 = z1 + 1 -z2 = z2 + 1 -IF z1 = 0 THEN z1 = .000001 -IF z2 = 0 THEN z2 = .000001 - -x3 = (midx% + ((x1 - panx) / (z1 * zoom))) -y3 = (midy% + ((y1 - pany) / (z1 * zoom))) - -x4 = (midx% + ((x2 - panx) / (z2 * zoom))) -y4 = (midy% + ((y2 - pany) / (z2 * zoom))) - -fault$ = "ps" -SELECT CASE B% - CASE 0: LINE (x3, y3)-(x4, y4), c% - CASE 1: LINE (x3, y3)-(x4, y4), c%, B - CASE 2: LINE (x3, y3)-(x4, y4), c%, BF - CASE 3: LINE (x3, y3)-(x4, y4), c%, , &H1111 - CASE 4: LINE (x3, y3)-(x4, y4), c%, B , &H1111 -END SELECT - -fault$ = "" -END SUB - -SUB psmark1 (x, y, Z, c1%, c2%, c3%) - - -pspset (x), (y), (Z), (c3%) -pspset (x), (y), (Z - .5), (c2%) -pspset (x), (y), (Z - 1), (c1%) - -END SUB - -SUB psmark2 (x, y, c1%, c2%, c3%) - - -pspset (x), (y), (1), (c3%) -pspset (x), (y), (.5), (c2%) -pspset (x), (y), (0), (c1%) - -END SUB - -SUB pspoint (x, y, Z) - -'------------------------------------------------------------------- PS-Point -Z = Z + 1 - -IF Z = 0 THEN Z = .000001 - -x1 = (midx% + ((x - panx) / (Z * zoom))) -y1 = (midy% + ((y - pany) / (Z * zoom))) - -fault$ = "ps" -pointc% = POINT(x1, y1) -fault$ = "" - -END SUB - -SUB pspset (x, y, Z, c%) - - -'------------------------------------------------------------------- PS-Pset -Z = Z + 1 - -IF Z = 0 THEN Z = .000001 - -x1 = (midx% + ((x - panx) / (Z * zoom))) -y1 = (midy% + ((y - pany) / (Z * zoom))) - -fault$ = "ps" -PSET (x1, y1), c% -fault$ = "" -END SUB - -SUB quit - -smallwindow -LOCATE 10, 2: PRINT "Quit SFB2: Vector Warriors ?" -LOCATE 11, 2: PRINT "" -5 wee$ = UCASE$(INKEY$) -IF wee$ = "" THEN 5 - -IF wee$ = "Y" THEN - IF sbsound% = 1 THEN sbinit - SYSTEM -END IF - -csmallwindow -wee$ = "" -END SUB - -SUB rain2d (c1%, c2%, c3%, l) -REM-----------------------------------------------Draw Rain - -WINDOW SCREEN(0, 0)-(1, 1) - -FOR wee = 1 TO nstars% - LINE (stars1x(wee), stars1y(wee))-(stars1x(wee), stars1y(wee) - l), c1% - LINE (stars2x(wee), stars2y(wee))-(stars2x(wee), stars2y(wee) - l), c2% - LINE (stars3x(wee), stars3y(wee))-(stars3x(wee), stars3y(wee) - l), c3% -NEXT wee - -CALL window3d - -END SUB - -SUB rain3d (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%, l) -REM-----------------------------------------------Draw Rain - -x2 = x2 - x1 -y2 = y2 - y1 -z2 = z2 - z1 - -FOR wee = 1 TO nstars% - x3 = x1 + (stars1x(wee) * x2) - y3 = y1 + (stars1y(wee) * y2) - z3 = z1 + (stars1z(wee) * z2) - psline (x3), (y3), (z3), (x3), (y3 - l), (z3), c1%, 0 - 'IF y3 > floor1 THEN psline (x3 - 1), (y3), (z3), (x3 + 1), (y3), (z3), 1, 0 - - x3 = x1 + (stars2x(wee) * x2) - y3 = y1 + (stars2y(wee) * y2) - z3 = z1 + (stars2z(wee) * z2) - psline (x3), (y3), (z3), (x3), (y3 - l), (z3), c2%, 0 - 'IF y3 > floor1 THEN psline (x3 - 1), (y3), (z3), (x3 + 1), (y3), (z3), 9, 0 - - x3 = x1 + (stars3x(wee) * x2) - y3 = y1 + (stars3y(wee) * y2) - z3 = z1 + (stars3z(wee) * z2) - psline (x3), (y3), (z3), (x3), (y3 - l), (z3), c3%, 0 - 'IF y3 > floor1 THEN psline (x3 - 2), (y3), (z3), (x3 + 2), (y3), (z3), 15, 0 - -NEXT wee - - -END SUB - -SUB ringout (n) - -ringoutt% = 50 -IF ringoutp% = 1 AND n = 2 THEN ringoutp% = 3 ELSE ringoutp% = n - - -SELECT CASE stage% - '---------------------------------------------------------------------------- - CASE IS = 1, 2, 4 - health%(n) = health%(n) - 5 - - '---------------------------------------------------------------------------- - CASE IS = 3, 8, 15 - IF buttx(n) > 0 THEN buttx(n) = ring% - 10 ELSE buttx(n) = -ring% + 10 - butth(n) = 0 - FOR wee = 1 TO particles% - particle ((RND - .5) * 10), (floor1 - RND * 25), (midstage), 15, 1 - NEXT wee - - IF n = 2 THEN - win%(1) = win%(1) + 1 - buttx(1) = 0 - butty(1) = floor1 - 20 - fighterfreeze 1 - ELSE - win%(2) = win%(2) + 1 - buttx(2) = 0 - butty(2) = floor1 - 20 - fighterfreeze 2 - END IF - - '------------ - SCREEN , , 0, 0 - IF win%(1) > 1 THEN PRINT name$(1) + " Wins the Match By Ringout": stage% = stage% + 1: setfightercpu - IF win%(2) > 1 THEN PRINT name$(2) + " Wins the Match By Ringout" - - IF win%(1) > 1 OR win%(2) > 1 THEN - wee = TIMER - 35 IF TIMER - wee < 3 THEN 35 - newmatch - END IF - - '---------------------------------------------------------------------------- - CASE IS = 9 - IF butty(n) > 80 THEN - health%(n) = health%(n) - 10 - butth(n) = butth(n) / 2 - pslightning buttx(n) + ((RND - .5) * 25), floor2, fighterz(n), neckx(n + 2), heady(n + 2) + (RND * 15), fighterz(n), 25, flash2% - IF ABS(buttx(n)) < ring% + 25 THEN butth(n) = 0: health%(n) = 0 - END IF - - '---------------------------------------------------------------------------- -END SELECT -END SUB - -SUB ringoutext (n) -IF ticker% > 50 THEN - IF ringoutt% < 3 THEN COLOR 4 ELSE COLOR 12 - IF ringoutt% > 47 THEN COLOR 15 - IF n = 3 THEN - IF rez% > 7 THEN LOCATE 5, 30 ELSE LOCATE 5, 20 - PRINT "Both Fighters Ringout" - ELSE - IF rez% > 7 THEN - LOCATE 5, 30: PRINT name$(n) - LOCATE 5, 45: PRINT "Ringout" - ELSE - LOCATE 5, 30: PRINT name$(n) - LOCATE 6, 30: PRINT "Ringout" - END IF - END IF - -END IF -END SUB - -DEFINT A-Z -SUB sbfx (fxx%) - -IF soundticker% < 1 AND sbsound = 1 THEN - soundticker% = soundwait% - - 'Freq%, Wave%, FEEDBACK%, Modl%, CLEN% - - SELECT CASE fxx% - - 'Jab - CASE IS = 1 - FOR wee = 1 TO 40 - SBplay 100, 1, 1, 0, 1 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Strong - CASE IS = 2 - FOR wee = 1 TO 60 - SBplay 50, 1, 1, 0, 1 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Short - CASE IS = 3 - FOR wee = 1 TO 45 - SBplay 25, 1, 1, 0, 1 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Round House - CASE IS = 4 - FOR wee = 1 TO 40 - SBplay 1, 1, 1, 0, 1 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Skidding on Ground - CASE IS = 5 - FOR wee = 1 TO 45 - SBplay 150, 0, 14, 500, 150 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Throw Fire/Dragon - CASE IS = 6 - FOR wee = 1 TO 45 - SBplay 25, 0, 1000, 10, 261 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Charge - CASE IS = 7 - FOR wee = 1 TO 45 - SBplay 255, 0, 14, 16, 9 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Burning - CASE IS = 8 - FOR wee = 1 TO 45 - SBplay 25, 0, 1000, 10, 259 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Hit 1 - CASE IS = 9 - FOR wee = 1 TO 45 - SBplay 50, 0, 12, 100, 262 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Hit 2 - CASE IS = 10 - FOR wee = 1 TO 45 - SBplay 150, 0, 12, 100, 262 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Hit 3 - CASE IS = 11 - FOR wee = 1 TO 45 - SBplay 250, 0, 12, 100, 262 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Gong 1 - CASE IS = 12 - FOR wee = 1 TO 45 - SBplay 50, 2, 0, 13, 258 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Tick - CASE IS = 13 - FOR wee = 1 TO 45 - SBplay 0, 1, 10, 1, 15 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Gong 2 - CASE IS = 14 - FOR wee = 1 TO 45 - SBplay 100, 2, 16, 135, 258 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Gong 3 - CASE IS = 15 - FOR wee = 1 TO 45 - SBplay 50, 2, 0, 13, 259 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Fan - CASE IS = 16 - FOR wee = 1 TO 45 - SBplay 14, 1, 14, 15, 260 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Chopping - CASE IS = 17 - FOR wee = 1 TO 45 - SBplay 69, 1, 14, 5, 4 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Laser 1 - CASE IS = 18 - FOR wee = 1 TO 45 - SBplay 35, -1, 62, 0, 260 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Shock 1 - CASE IS = 19 - FOR wee = 1 TO 45 - SBplay 60, 3, 14, 15, 19 - NEXT wee - CALL SBWrite(&HB0, &H0) - - 'Slamming on Ground - CASE IS = 20 - FOR wee = 1 TO 45 - SBplay 150, 0, 14, 500, 200 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Shock 2 - CASE IS = 21 - FOR wee = 1 TO 45 - SBplay 30, 3, 14, 15, 19 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Button 1 - CASE IS = 22 - FOR wee = 1 TO 45 - SBplay 200, 0, 1, 100, 262 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Button 2 - CASE IS = 23 - FOR wee = 1 TO 45 - SBplay 50, 1, 0, 50, 259 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Button 3 - CASE IS = 24 - FOR wee = 1 TO 45 - SBplay 100, 0, 10, 25, 262 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Swizz Punches - CASE IS = 25 - FOR wee = 1 TO 45 - SBplay 14, 0, 14, 15, 260 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - 'Conclusion - CASE IS = 26 - FOR wee = 1 TO 45 - SBplay 200, 0, 0, 131, 2 - NEXT wee - CALL SBWrite(&HB0, &H0) - - - - END SELECT -END IF - -END SUB - -SUB sbinit -fault$ = "sb" -LOCATE 1, 1 -COLOR 15 - -PRINT "Initializing Sound Card" -FOR Q = 1 TO &HF5 - CALL SBWrite(Q, 0) -NEXT Q - -LOCATE 1, 1 -PRINT " " - -fault$ = "" -END SUB - -SUB SBplay (Freq%, Wave%, Feedback%, Modl%, Clen%) -'Channel 1 -'Operator 1 -CALL SBWrite(&H20, Modl%) '&H51 -CALL SBWrite(&H40, 10) '49 -CALL SBWrite(&H60, &H40) '&HF0 -CALL SBWrite(&H80, &H240) '&H77 -CALL SBWrite(&HA0, Freq%) 'Freq% -'Operator 2 -CALL SBWrite(&H23, 1) ' -CALL SBWrite(&H43, 0) '49 -CALL SBWrite(&H63, &HF0) ' -CALL SBWrite(&H83, Clen%) 'CLEN% -CALL SBWrite(&HB0, &H31) '&H31 - -CALL SBWrite(&HE0, Wave%) '0 or 1 -CALL SBWrite(&HC0, Feedback%) ' - -END SUB - -SUB SBWrite (Reg%, Value%) -fault$ = "sb" -OUT &H220, Reg% -FOR x = 0 TO SBWrite.delay1 - a = INP(&H220) -NEXT x -OUT &H223, Value% -FOR x = 0 TO SBWrite.delay2 - a = INP(&H220) -NEXT x -fault$ = "" -END SUB - -DEFSNG A-Z -SUB setbody (n%) - -SELECT CASE body%(n%) - CASE 1: maxhp%(n%) = 150: sdelay%(n%) = 5 - CASE 2: maxhp%(n%) = 160: sdelay%(n%) = 8 - CASE 3: maxhp%(n%) = 170: sdelay%(n%) = 9 - CASE 4: maxhp%(n%) = 180: sdelay%(n%) = 15 - CASE 5: maxhp%(n%) = 190: sdelay%(n%) = 18 - CASE 6: maxhp%(n%) = 175: sdelay%(n%) = 10 - CASE 7: maxhp%(n%) = 175: sdelay%(n%) = 11 - CASE 8: maxhp%(n%) = 200: sdelay%(n%) = 20 - CASE 666: maxhp%(n%) = 200: sdelay%(n%) = 5 - CASE 2000: maxhp%(n%) = 200: sdelay%(n%) = 10 -END SELECT - -health%(n%) = maxhp%(n%) -END SUB - -SUB setcmethod - -CALL smallwindow -LOCATE 10, 2: PRINT "Clear Method - Type" - -IF cmethod% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 12, 2: PRINT "1 No Clearing" - -IF cmethod% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 13, 2: PRINT "2 LINE BF" - -IF cmethod% = 2 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, 2: PRINT "3 CLS" - -IF cmethod% = 3 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, 2: PRINT "4 Horizontal Fade" - -IF cmethod% = 4 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 16, 2: PRINT "5 Block Fade" - -16 wee$ = INKEY$ -SELECT CASE wee$ - CASE IS = "": GOTO 16 - CASE IS = "1": cmethod% = 0 - CASE IS = "2": cmethod% = 1 - CASE IS = "3": cmethod% = 2 - CASE IS = "4": cmethod% = 3 - CASE IS = "5": cmethod% = 4 -END SELECT - -'--------------------------------------------------------- -IF cmethod% > 0 AND wee$ <> CHR$(27) THEN - CALL csmallwindow - CALL smallwindow - - LOCATE 10, 2: PRINT "Clear Method - Frequency" - - IF cfreq% = -1 THEN mark = 15 ELSE mark = 7 - COLOR mark: LOCATE 12, 2: PRINT "1 Always" - - IF cfreq% = 1 THEN mark = 15 ELSE mark = 7 - COLOR mark: LOCATE 13, 2: PRINT "2 Often" - - IF cfreq% = 5 THEN mark = 15 ELSE mark = 7 - COLOR mark: LOCATE 14, 2: PRINT "3 Rarely" - - 17 wee$ = INKEY$: IF wee$ = "" THEN 17 - IF wee$ = "1" THEN cfreq% = -1 - IF wee$ = "2" THEN cfreq% = 1 - IF wee$ = "3" THEN cfreq% = 5 -END IF -CALL csmallwindow -wee$ = "" -END SUB - -SUB setdelay -SCREEN , 0, 0 -CALL smallwindow -COLOR 15 -LOCATE 10, 2: PRINT "Game Speed" - -IF rez% = 7 THEN - LOCATE 12, 2: PRINT " LOW 00 10 20 30 40 50 60 70 80 90 HI" -ELSE - LOCATE 12, 2: PRINT "Slow 00 10 20 30 40 50 60 70 80 90 Fast" -END IF - -COLOR 4 -LOCATE 16, 2: PRINT "Press Spacebar To Save." -d = delay% -15 -wee$ = INKEY$ - -IF d = delay% THEN - COLOR 15 - LOCATE 13, 35 - INT(d / 2000): PRINT "^" - -ELSE - COLOR 7 - LOCATE 13, 35 - INT(d / 2000): PRINT "^" - COLOR 9 - LOCATE 13, 35 - INT(delay% / 2000): PRINT "^" -END IF - -IF wee$ = "6" OR wee$ = CHR$(0) + "M" OR wee$ = "+" OR wee$ = "=" THEN LOCATE 13, 35 - INT(d / 2000): PRINT " ": d = d - 2000 -IF wee$ = "4" OR wee$ = CHR$(0) + "K" OR wee$ = "-" THEN LOCATE 13, 35 - INT(d / 2000): PRINT " ": d = d + 2000 -IF d < 0 THEN d = 0 -IF d > 56000 THEN d = 56000 -IF wee$ = " " OR wee$ = CHR$(13) THEN LOCATE 13, 35 - INT(delay% / 2000): PRINT " ": delay% = d -IF wee$ <> CHR$(27) THEN 15 - -CALL csmallwindow -wee$ = "" -END SUB - -SUB setdetails -smallwindow - -COLOR 15 -LOCATE 10, 2: PRINT "Graphic Details" - -IF rez% > 7 THEN - LOCATE 12, 2: PRINT "Stages" - LOCATE 12, 12: PRINT "Fighters" - LOCATE 12, 22: PRINT "HUD" - LOCATE 12, 32: PRINT "Smears" - LOCATE 12, 42: PRINT "Fighter Limits" - n% = 10 -ELSE - LOCATE 12, 2: PRINT "Stgs" - LOCATE 12, 10: PRINT "Ftrs" - LOCATE 12, 18: PRINT "HUD" - LOCATE 12, 26: PRINT "Smrs" - LOCATE 12, 34: PRINT "FLim" - n% = 8 -END IF - - -33 - -'--- - -wee = 2 - -IF stagedetail% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, wee: PRINT "1 Low" - -IF stagedetail% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, wee: PRINT "2 High" - -wee = wee + n% - -'--- -IF fighterdetail% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, wee: PRINT "3 Low" - -IF fighterdetail% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, wee: PRINT "4 High" - -wee = wee + n% - -'--- -IF hudetail% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, wee: PRINT "5 Low" - -IF hudetail% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, wee: PRINT "6 High" - -wee = wee + n% - -'--- -IF smears% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, wee: PRINT "7 Off" - -IF smears% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, wee: PRINT "8 On" - -wee = wee + n% - -'--- -IF flimits% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, wee: PRINT "9 Off" - -IF flimits% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, wee: PRINT "0 On" - - -wee$ = INKEY$ -SELECT CASE wee$ - CASE IS = "1": stagedetail% = 0 - CASE IS = "2": stagedetail% = 1 - CASE IS = "3": fighterdetail% = 0 - CASE IS = "4": fighterdetail% = 1 - CASE IS = "5": hudetail% = 0 - CASE IS = "6": hudetail% = 1 - CASE IS = "7": smears% = 0 - CASE IS = "8": smears% = 1 - CASE IS = "9": flimits% = 0 - CASE IS = "0": flimits% = 1 -END SELECT - -IF wee$ <> CHR$(27) THEN 33 - - -'---------------------------------------------------------------------------- -smallwindow -wee$ = "" -END SUB - -SUB setfighter -bigwindow - -changed% = 0 -zoomsave = zoom -panxsave = panx -panysave = pany - -zoom = fighterz(1) / 150 -pany = butty(1) -wee = 0 -IF rez% = 7 THEN x% = -15 - -37 redraw% = 0 - -'---------------------------------------------------------------------------- -IF head%(1) >= 100 THEN - body%(1) = head%(1) - arms%(1) = head%(1) - hands%(1) = head%(1) - legs%(1) = head%(1) - feet%(1) = head%(1) -END IF - -'-------------------------------------------------------------- Fighter Info. -window2d -LINE (5, 15.5)-(99, 89), 0, BF -window3d - -IF rez% > 7 THEN - - 'Red Text (Titles) - COLOR 4 - - 'Left Panel - - LOCATE 6, 30: PRINT "Specials:" - LOCATE 7, 30: PRINT "Q" - LOCATE 8, 30: PRINT "W" - LOCATE 10, 30: PRINT "A" - LOCATE 11, 30: PRINT "S" - - LOCATE 13, 30: PRINT "Super:" - LOCATE 14, 30: PRINT "D" - - LOCATE 16, 30: PRINT "Recharges:" - LOCATE 17, 30: PRINT "RG:" - LOCATE 18, 30: PRINT "AW:" - - 'Right Panel - - LOCATE 6, 55: PRINT "Arm Power Ratings:" - LOCATE 7, 55: PRINT "HP:" - LOCATE 8, 55: PRINT "AW:" - - LOCATE 9, 55: PRINT "Leg Power Ratings:" - LOCATE 10, 55: PRINT "HP:" - LOCATE 11, 55: PRINT "AW:" - - LOCATE 13, 55: PRINT "Jumping:" - LOCATE 14, 55: PRINT "Alt Dis" - - - LOCATE 16, 55: PRINT "Starting Conditions" - LOCATE 17, 55: PRINT "HP:" - LOCATE 18, 55: PRINT "AW:" - - LOCATE 20, 55: PRINT "Stun Duration" - - LOCATE 20, 30: PRINT "Name" - - - - 'Gray Text (Stats) - COLOR 8 - - LOCATE 18, 59 - SELECT CASE head%(1) - CASE 1 - PRINT "50%" - LOCATE 17, 34: PRINT "4" - LOCATE 18, 34: PRINT "2" - - CASE 2 - PRINT "40%" - LOCATE 17, 34: PRINT "3" - LOCATE 18, 34: PRINT "3" - - CASE 3 - PRINT "30%" - LOCATE 17, 34: PRINT "2" - LOCATE 18, 34: PRINT "4" - - CASE 4 - PRINT "60%" - LOCATE 17, 34: PRINT "5" - LOCATE 18, 34: PRINT "1" - - CASE 5 - PRINT "20%" - LOCATE 17, 34: PRINT "1" - LOCATE 18, 34: PRINT "5" - END SELECT - - - 'Hands - LOCATE 7, 32 - SELECT CASE hands%(1) - CASE 1 - PRINT "Fire Ball" - LOCATE 8, 32 - PRINT "Twin Mini Balls" - - CASE 2 - PRINT "Power Jab" - LOCATE 8, 32 - PRINT "Hammer Punch" - - CASE 3 - PRINT "Neck Jab" - LOCATE 8, 32 - PRINT "Thrust Slam" - - CASE 4 - PRINT "Ball Lightning" - LOCATE 8, 32 - PRINT "Rising Dragon" - - CASE 5 - PRINT "Triple Shrokken" - LOCATE 8, 32 - PRINT "Stun Knuckle" - END SELECT - - - 'Feet - LOCATE 10, 32 - SELECT CASE feet%(1) - CASE 1 - PRINT "Plant Kick" - LOCATE 11, 32 - PRINT "Nee Bash" - - CASE 2 - PRINT "Axe Kick" - LOCATE 11, 32 - PRINT "Lightning Kick Blast" - - CASE 3 - PRINT "Stunning Gut Stab" - LOCATE 11, 32 - PRINT "6-Slip" - - CASE 4 - PRINT "Thrust Kick" - LOCATE 11, 32 - PRINT "Skip Kick" - - CASE 5 - PRINT "Slasher Strike" - LOCATE 11, 32 - PRINT "Upper Assault" - END SELECT - - - LOCATE 7, 59 - SELECT CASE arms%(1) - CASE 1 - PRINT "0" - LOCATE 8, 59: PRINT "5" - - CASE 2 - PRINT "2" - LOCATE 8, 59: PRINT "3" - - CASE 3 - PRINT "3" - LOCATE 8, 59: PRINT "2" - - CASE 4 - PRINT "1" - LOCATE 8, 59: PRINT "4" - - CASE 5 - PRINT "4" - LOCATE 8, 59: PRINT "1" - - END SELECT - - - - - LOCATE 14, 59 - SELECT CASE legs%(1) - CASE 1 - PRINT "7" - LOCATE 10, 59: PRINT "0" - LOCATE 11, 59: PRINT "5" - LOCATE 14, 69: PRINT "16" - - CASE 2 - PRINT "10" - LOCATE 10, 59: PRINT "2" - LOCATE 11, 59: PRINT "3" - LOCATE 14, 69: PRINT "14" - - CASE 3 - PRINT "8" - LOCATE 10, 59: PRINT "3" - LOCATE 11, 59: PRINT "2" - LOCATE 14, 69: PRINT "12" - - CASE 4 - PRINT "14" - LOCATE 10, 59: PRINT "3" - LOCATE 11, 59: PRINT "1" - LOCATE 14, 69: PRINT "10" - - CASE 5 - PRINT "9" - LOCATE 10, 59: PRINT "2" - LOCATE 11, 59: PRINT "2" - LOCATE 14, 69: PRINT "25" - END SELECT - - - LOCATE 17, 59 - SELECT CASE body%(1) - CASE 1 - PRINT "150" - LOCATE 14, 32: PRINT "Vex of Evil" - LOCATE 21, 55: PRINT "5" - - CASE 2 - PRINT "160" - LOCATE 14, 32: PRINT "Energy Blast" - LOCATE 21, 55: PRINT "8" - - CASE 3 - PRINT "170" - LOCATE 14, 32: PRINT "Spear Kick" - LOCATE 21, 55: PRINT "9" - - CASE 4 - PRINT "180" - LOCATE 14, 32: PRINT "Health Up" - LOCATE 21, 55: PRINT "15" - - CASE 5 - PRINT "190" - LOCATE 14, 32: PRINT "Razer Arms" - LOCATE 21, 55: PRINT "18" - - CASE 6 - PRINT "175" - LOCATE 14, 32: PRINT "Neck Snapper" - LOCATE 21, 55: PRINT "10" - - CASE 7 - PRINT "175" - LOCATE 14, 32: PRINT "Swizz Punches" - LOCATE 21, 55: PRINT "11" - - CASE 8 - PRINT "200" - LOCATE 14, 32: PRINT "Upper Bust" - LOCATE 21, 55: PRINT "20" - - END SELECT - - LOCATE 21, 30: PRINT name$(1) - - -END IF -'--------------------------------------------------------------- End of Stats - -'----------------------------------------------------------------- 3D Display -panx = buttx(1) + x% -smearender -fighterender -particlerender - -'--------------------------------------------------------------- Info Display -COLOR 15 -IF rez% > 7 THEN LOCATE 4, 34 ELSE LOCATE 4, 2 -PRINT "BUILD FIGHTER" -LOCATE 22, 6: COLOR 15: PRINT "MORE" - -'------------------------------------- Mode 0 (Info Display) -IF sfmode% = 0 THEN - - COLOR 12 - LOCATE 6, 6: PRINT "PART TYPE" - COLOR 15 - LOCATE 7, 6: PRINT "Head "; head%(1); " " - LOCATE 8, 6: PRINT "Body "; body%(1); " " - LOCATE 9, 6: PRINT "Arms "; arms%(1); " " - LOCATE 10, 6: PRINT "Hands "; hands%(1); " " - LOCATE 11, 6: PRINT "Legs "; legs%(1); " " - LOCATE 12, 6: PRINT "Feet "; feet%(1); " " - - COLOR 12 - LOCATE 14, 6: PRINT "PART COLOR" - COLOR 15 - LOCATE 15, 6: PRINT "Head" - LOCATE 16, 6: PRINT "Body" - LOCATE 17, 6: PRINT "Arms" - LOCATE 18, 6: PRINT "Hands" - LOCATE 19, 6: PRINT "Legs" - LOCATE 20, 6: PRINT "Feet" - - LOCATE 15, 17: COLOR headc%(1): PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - LOCATE 16, 17: COLOR bodyc%(1): PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - LOCATE 17, 17: COLOR armsc%(1) + 8: PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - LOCATE 18, 17: COLOR handsc%(1) + 8: PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - LOCATE 19, 17: COLOR legsc%(1) + 8: PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - LOCATE 20, 17: COLOR feetc%(1) + 8: PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - - COLOR 15 - - '------------------------------------- Mode 1 (Info Display) -ELSE - - COLOR 12 - LOCATE 6, 6: PRINT "NAME" - COLOR 15 - LOCATE 7, 6: PRINT "Enter " - LOCATE 8, 6: PRINT "Generate " - - COLOR 12 - LOCATE 10, 6: PRINT "HAIR" - COLOR 15 - SELECT CASE hairt%(1) - CASE 1: hairt$ = "Strait" - CASE 2: hairt$ = "Braid " - END SELECT - LOCATE 11, 6: PRINT "Style "; hairt$ - SELECT CASE hairl%(1) - CASE 0: hairl$ = "Bald " - CASE 1: hairl$ = "Short " - CASE 2: hairl$ = "Medium" - CASE 3: hairl$ = "Long " - END SELECT - LOCATE 12, 6: PRINT "Length "; hairl$ - LOCATE 13, 6: PRINT "Color ": LOCATE 13, 17: COLOR hairc%(1): PRINT CHR$(219); CHR$(178); CHR$(177); CHR$(176) - - COLOR 12 - LOCATE 15, 6: PRINT "MISC." - COLOR 15 - - IF solidc% = 1 THEN wee$ = "Solid" ELSE wee$ = "Multi" - LOCATE 16, 6: PRINT "Opponent Colors - "; wee$ - - -END IF - - -'---------------------------------------------------------------------------- - -IF ptfighter% < 7 THEN ptfighter% = 7 - - -DO - wee$ = UCASE$(INKEY$) - - 'Shift 3D Display - IF wee$ = "4" OR wee$ = CHR$(0) + "K" THEN x% = 0: redraw% = 1 - IF wee$ = "6" OR wee$ = CHR$(0) + "M" THEN x% = -15: redraw% = 1 - - IF head%(1) < 100 THEN - SELECT CASE wee$ - - CASE "š" - changed% = 1 - head%(1) = 666 - nee1x(3) = buttx(1) - 3 * d%(1) - nee2x(3) = buttx(1) - 3 * d%(1) - foot1x(3) = nee1x(3) + 5 * d%(1) - foot2x(3) = nee2x(3) + 5 * d%(1) - name$(1) = "Demize" - GOTO 37 - - CASE "Î": head%(1) = 1998: changed% = 1: GOTO 37 - CASE "Ð": head%(1) = 2000: changed% = 1: GOTO 37 - END SELECT - END IF - - - '----------------------------------------------------------------- Move Arrow - - SELECT CASE wee$ - - CASE IS = "8", CHR$(0) + "H" - LOCATE ptfighter%, 2: PRINT " ": ptfighter% = ptfighter% - 1 - IF ptfighter% = 6 THEN ptfighter% = 7 - IF sfmode% = 0 THEN - IF ptfighter% = 14 THEN ptfighter% = 12 - IF ptfighter% = 21 THEN ptfighter% = 20 - ELSE - IF ptfighter% = 10 THEN ptfighter% = 8 - IF ptfighter% = 15 THEN ptfighter% = 13 - IF ptfighter% = 21 THEN ptfighter% = 16 - END IF - - - '--------------+ - - CASE IS = "5", "2", CHR$(0) + "P" - LOCATE ptfighter%, 2: PRINT " ": ptfighter% = ptfighter% + 1 - IF ptfighter% = 23 THEN ptfighter% = 22 - IF sfmode% = 0 THEN - IF ptfighter% = 13 THEN ptfighter% = 15 - IF ptfighter% = 21 THEN ptfighter% = 22 - ELSE - IF ptfighter% = 9 THEN ptfighter% = 11 - IF ptfighter% = 14 THEN ptfighter% = 16 - IF ptfighter% = 17 THEN ptfighter% = 22 - END IF - - - - END SELECT - - LOCATE ptfighter%, 2: PRINT CHR$(16) - - - - '--------------------------------------------------------------------- Select - IF wee$ = " " OR wee$ = CHR$(13) THEN - - redraw% = 1 - wee$ = "" - - '------------------------------------- Mode 0 (Selection) - IF sfmode% = 0 THEN - - IF ptfighter% <= 12 THEN changed% = 1 - - SELECT CASE ptfighter% - - CASE IS = 7 - IF head%(1) >= 100 THEN - head%(1) = 1 - body%(1) = 1 - arms%(1) = 1 - hands%(1) = 1 - legs%(1) = 1 - feet%(1) = 1 - nee1x(3) = buttx(1) + 5 - nee2x(3) = buttx(1) - 1 - foot1x(3) = nee1x(3) - 1 - foot2x(3) = nee2x(3) - 3 - ELSE - IF head%(1) < 5 THEN head%(1) = head%(1) + 1 ELSE head%(1) = 1 - END IF - - CASE IS = 9 - IF arms%(1) < 5 THEN arms%(1) = arms%(1) + 1 ELSE arms%(1) = 1 - - CASE IS = 10 - IF hands%(1) < 5 THEN hands%(1) = hands%(1) + 1 ELSE hands%(1) = 1 - - CASE IS = 8 - IF body%(1) < 8 THEN body%(1) = body%(1) + 1 ELSE body%(1) = 1 - - CASE IS = 11 - IF legs%(1) < 5 THEN legs%(1) = legs%(1) + 1 ELSE legs%(1) = 1 - - CASE IS = 12 - IF feet%(1) < 5 THEN feet%(1) = feet%(1) + 1 ELSE feet%(1) = 1 - - '-------------------- - - CASE IS = 15 - IF headc%(1) < 15 THEN headc%(1) = headc%(1) + 1 ELSE headc%(1) = 1 - - CASE IS = 16 - IF bodyc%(1) < 15 THEN bodyc%(1) = bodyc%(1) + 1 ELSE bodyc%(1) = 1 - - CASE IS = 17 - IF armsc%(1) < 7 THEN armsc%(1) = armsc%(1) + 1 ELSE armsc%(1) = 1 - - CASE IS = 18 - IF handsc%(1) < 7 THEN handsc%(1) = handsc%(1) + 1 ELSE handsc%(1) = 1 - - CASE IS = 19 - IF legsc%(1) < 7 THEN legsc%(1) = legsc%(1) + 1 ELSE legsc%(1) = 1 - - CASE IS = 20 - IF feetc%(1) < 7 THEN feetc%(1) = feetc%(1) + 1 ELSE feetc%(1) = 1 - - '-------------------- - - CASE IS = 22 - sfmode% = 1: redraw% = 1 - LOCATE ptfighter%, 2: PRINT " " - ptfighter% = 7 - - END SELECT - - - '------------------------------------- Mode 1 (Selection) - ELSE - - SELECT CASE ptfighter% - - CASE IS = 7 - LOCATE 21, 30: PRINT " " - LOCATE 21, 30 - COLOR 15 - INPUT ; "", name$(1) - - CASE IS = 8 - fightername (1) - - CASE IS = 11 - IF hairt%(1) = 1 THEN hairt%(1) = 2 ELSE hairt%(1) = 1 - - CASE IS = 12 - IF hairl%(1) < 3 THEN hairl%(1) = hairl%(1) + 1 ELSE hairl%(1) = 0 - - CASE IS = 13 - IF hairc%(1) < 15 THEN hairc%(1) = hairc%(1) + 1 ELSE hairc%(1) = 1 - - CASE IS = 16 - IF solidc% = 1 THEN solidc% = 0 ELSE solidc% = 1 - - CASE IS = 22 - sfmode% = 0: redraw% = 1 - LOCATE ptfighter%, 2: PRINT " " - ptfighter% = 7 - - END SELECT - END IF - END IF - - '---------------------------------------------------------------------------- - IF redraw% = 1 THEN 37 -LOOP UNTIL wee$ = CHR$(27) - -cbigwindow -wee$ = "" - -zoom = zoomsave -panx = panxsave -pany = panysave - -IF changed% = 1 THEN stageinit - -'---------------------------------------------------------------------------- -END SUB - -SUB setfightercpu - -IF stage% < 1000 THEN - 'Normal - hairt%(2) = INT(RND * 2) + 1 - hairl%(2) = INT(RND * 4) - hairc%(2) = INT(RND * 15) + 1 - head%(2) = INT(RND * 5) + 1 - arms%(2) = INT(RND * 5) + 1 - hands%(2) = INT(RND * 4) + 1 - body%(2) = INT(RND * 8) + 1 - legs%(2) = INT(RND * 5) + 1 - feet%(2) = INT(RND * 5) + 1 -ELSE - 'Master Bean - hairl%(2) = 3 - hairt%(2) = 1 - head%(2) = 2000 - arms%(2) = 2000 - hands%(2) = 2000 - body%(2) = 2000 - legs%(2) = 2000 - feet%(2) = 2000 -END IF - -IF stage% < 1000 THEN - IF solidc% = 1 THEN - 'Solid Colors - c% = INT(RND * 7) + 1 - headc%(2) = c% + 8 - bodyc%(2) = c% + 8 - armsc%(2) = c% - handsc%(2) = c% - legsc%(2) = c% - feetc%(2) = c% - - ELSE - 'Normal Colors - headc%(2) = INT(RND * 15) + 1 - bodyc%(2) = INT(RND * 15) + 1 - armsc%(2) = INT(RND * 7) + 1 - handsc%(2) = INT(RND * 7) + 1 - legsc%(2) = INT(RND * 7) + 1 - feetc%(2) = INT(RND * 7) + 1 - END IF - -ELSE - 'Master Bean's Colors - hairc%(2) = 4 - headc%(2) = 9 - bodyc%(2) = 1 - armsc%(2) = 4 - handsc%(2) = 1 - legsc%(2) = 4 - feetc%(2) = 1 -END IF - - - -IF stage% = 15 THEN - hairl%(2) = 0 - head%(2) = 666 - arms%(2) = 666 - hands%(2) = 666 - body%(2) = 666 - legs%(2) = 666 - feet%(2) = 666 - headc%(2) = 4 - bodyc%(2) = 4 - armsc%(2) = 4 - handsc%(2) = 4 - legsc%(2) = 4 - feetc%(2) = 8 -END IF - - - -END SUB - -SUB setframeskip - - -CALL smallwindow -LOCATE 10, 2: PRINT "Change Frame Skip Value" - -IF frameskip% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 12, 2: PRINT "1 Render Everything" - -IF frameskip% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 13, 2: PRINT "2 Skip Some Frames" - -IF frameskip% = 3 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, 2: PRINT "3 Skip Many Frames" - -IF frameskip% = 5 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, 2: PRINT "4 Skip Most Frames" - -10 wee$ = INKEY$: IF wee$ = "" THEN 10 -IF wee$ = "1" THEN frameskip% = 0 -IF wee$ = "2" THEN frameskip% = 1 -IF wee$ = "3" THEN frameskip% = 3 -IF wee$ = "4" THEN frameskip% = 5 - -CALL csmallwindow -wee$ = "" -END SUB - -SUB seti16 -smallwindow -LOCATE 10, 2: PRINT "i16 Options" - -IF i16m% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 12, 2: PRINT "1 Show All i16" - -IF i16m% = 1 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 13, 2: PRINT "2 No i16 in Stage Select" - -IF i16m% = 2 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, 2: PRINT "3 Don't Show any i16" - -12 wee$ = INKEY$: IF wee$ = "" THEN 12 -SELECT CASE wee$ - CASE IS = "1": i16m% = 0 - CASE IS = "2": i16m% = 1 - CASE IS = "3": i16m% = 2 -END SELECT - -csmallwindow -END SUB - -SUB setko (n) - -SELECT CASE head%(n) - CASE 1: ko(n) = 50 - CASE 2: ko(n) = 40 - CASE 3: ko(n) = 30 - CASE 4: ko(n) = 60 - CASE 5: ko(n) = 20 - CASE 666: ko(n) = 100 -END SELECT -END SUB - -SUB setparticles - -particleclear - -zoomsave = zoom -panxsave = panx -panysave = pany -ringsave% = ring% - -zoom = .35 -panx = 0 -pany = 0 -ring% = 0 - - -CALL smallwindow -LOCATE 10, 2: PRINT "Max Number of Particles to Display" - -IF rez% = 7 THEN - LOCATE 12, 2: PRINT " LOW 00 10 20 30 40 50 60 70 80 90 HI" -ELSE - LOCATE 12, 2: PRINT "None 00 10 20 30 40 50 60 70 80 90 Many" -END IF -COLOR 4 -LOCATE 16, 2: PRINT "Press Spacebar To Save." - - -p% = particles% - -PCOPY 0, 1 - -25 -wee$ = INKEY$ - -'------------------------ -IF rez% > 7 THEN - pflip - - 'Delay - flicker = TIMER: DO UNTIL TIMER - flicker > .000005: LOOP - - window2d - LINE (60, 37)-(70, 63), 0, BF - LINE (5, 48)-(45, 49), 0, BF - window3d - - particle 50, 45, 1, 16, 2 - particle 50, 45, 1, 15, 1 - decay - particlemove - particlerender -END IF -'------------------------ - -IF p% = particles% THEN - COLOR 15 - LOCATE 13, 7 + INT(p% / 3.3): PRINT "^" - -ELSE - COLOR 7 - LOCATE 13, 7 + INT(p% / 3.3): PRINT "^" - COLOR 9 - LOCATE 13, 7 + INT(particles% / 3.3): PRINT "^" -END IF - -IF wee$ = "6" OR wee$ = CHR$(0) + "M" OR wee$ = "+" OR wee$ = "=" THEN LOCATE 13, 7 + INT(p% / 3.3): PRINT " ": p% = p% + 10 -IF wee$ = "4" OR wee$ = CHR$(0) + "K" OR wee$ = "-" THEN LOCATE 13, 7 + INT(p% / 3.3): PRINT " ": p% = p% - 10 -IF p% < 0 THEN p% = 0 -IF p% > 90 THEN p% = 90 -IF wee$ = " " OR wee$ = CHR$(13) THEN LOCATE 13, 7 + INT(particles% / 3.3): PRINT " ": particles% = p% - -IF wee$ <> CHR$(27) THEN 25 - -particleclear -CALL csmallwindow -wee$ = "" -zoom = zoomsave -panx = panxsave -pany = panysave -ring% = ringsave% -SCREEN , , 0, 0 -END SUB - -SUB setpath -SCREEN 9 -IF rez% > 0 THEN - smallwindow -END IF - -LOCATE 10, 2: PRINT "SET PATH" -LOCATE 11, 2: PRINT "Please give the working directory of this program." -LOCATE 12, 2: PRINT "Ex. C:\SFB2" -LOCATE 13, 2: INPUT "", path$ -path$ = UCASE$(path$) - -LOCATE 14, 2: PRINT "Would you like save this info as C:\SFB2.PTH [Y/N]?" - -30 wee$ = UCASE$(INKEY$): IF wee$ = "" THEN 30 -IF wee$ = "Y" THEN - OPEN "c:\sfb2.pth" FOR OUTPUT AS #1 - WRITE #1, path$ - CLOSE #1 -END IF -IF rez% > 0 THEN csmallwindow -CLS -END SUB - -SUB setrez - -CALL smallwindow -LOCATE 10, 2: PRINT "Change Screen Resolution" - -IF rez% = 7 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 13, 2: PRINT "1 (320x200)" - -IF rez% = 8 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, 2: PRINT "2 (640x200)" - -IF rez% = 9 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, 2: PRINT "3 (640x350)" - - -6 wee$ = INKEY$: IF wee$ = "" THEN 6 -IF wee$ = "1" THEN rez% = 7 -IF wee$ = "2" THEN rez% = 8 -IF wee$ = "3" THEN rez% = 9 - -IF wee$ = CHR$(27) THEN 11 - -IF wee$ <> "1" AND wee$ <> "2" AND wee$ <> "3" AND wee$ <> "4" AND wee$ <> "5" THEN 6 - - -11 -CALL csmallwindow -SCREEN rez% -CALL window3d - -'IF rez% = 8 THEN CALL page2 -wee$ = "" -END SUB - -SUB setsound - -smallwindow -LOCATE 10, 2: PRINT "Sound Quality Options" - -IF sbsound% = 1 AND soundwait% = 3 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 12, 2: PRINT "1 Best" - -IF sbsound% = 1 AND soundwait% = 4 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 13, 2: PRINT "2 Good" - -IF sbsound% = 1 AND soundwait% = 6 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 14, 2: PRINT "3 Ok" - -IF sbsound% = 1 AND soundwait% = 10 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 15, 2: PRINT "4 Chunky" - -IF sbsound% = 0 THEN mark = 15 ELSE mark = 7 -COLOR mark: LOCATE 16, 2: PRINT "5 No Sound" - - -29 wee$ = INKEY$: IF wee$ = "" THEN 29 -IF wee$ = "1" THEN sbsound% = 1: soundwait% = 3 -IF wee$ = "2" THEN sbsound% = 1: soundwait% = 4 -IF wee$ = "3" THEN sbsound% = 1: soundwait% = 6 -IF wee$ = "4" THEN sbsound% = 1: soundwait% = 10 -IF wee$ = "5" THEN sbsound% = 0 - -IF sbsound% = 1 THEN sbinit - -csmallwindow -wee$ = "" -END SUB - -SUB setstage -CALL bigwindow -COLOR 15: LOCATE 4, 2: PRINT "Select Stage" -COLOR 7: LOCATE 21, 2: PRINT "Press Spacebar To Select" -COLOR 4 -window2d -stagewindow 0 -x% = 20: y% = 35 - -27 -IF x% > 0 AND x% < 100 THEN LINE (x% - 9.5, y% - 9.5)-(x% + 9.5, y% + 9.5), 12, B -IF x% = 20 AND y% = 35 THEN Slot% = 1 -IF x% = 50 AND y% = 35 THEN Slot% = 2 -IF x% = 80 AND y% = 35 THEN Slot% = 3 -IF x% = 20 AND y% = 65 THEN Slot% = 4 -IF x% = 50 AND y% = 65 THEN Slot% = 5 -IF x% = 80 AND y% = 65 THEN Slot% = 6 - -SELECT CASE stageset% - CASE IS = 0: stagepage% = 1 - CASE IS = 6: stagepage% = 2 - CASE IS = 12: stagepage% = 3 - CASE IS = 18: stagepage% = 4 - -END SELECT -IF rez% > 7 THEN - LOCATE 4, 64: PRINT "Page"; stagepage%; "Stage"; stageset% + Slot% -ELSE - LOCATE 4, 32: PRINT stagepage%; "/"; stageset% + Slot% -END IF - -'Display Stage Name -setstagename (Slot% + stageset%) -LOCATE 22, 2: PRINT stagename$ - - -wee$ = INKEY$ -IF wee$ <> "" THEN LINE (x% - 9.5, y% - 9.5)-(x% + 9.5, y% + 9.5), 0, B - -IF stageset% > 0 THEN arrow1% = 1: c% = 12 ELSE arrow1% = 0: c% = 0 -LINE (5, 50)-(8, 40), c% -LINE (5, 50)-(8, 60), c% -LINE (8, 40)-(8, 60), c% - -IF stageset% < 12 THEN arrow2% = 1: c% = 12 ELSE arrow2% = 0: c% = 0 -LINE (95, 50)-(92, 40), c% -LINE (95, 50)-(92, 60), c% -LINE (92, 40)-(92, 60), c% - - -IF wee$ = CHR$(0) + "K" OR wee$ = "4" THEN - IF x% = 20 THEN - IF arrow1% = 1 THEN stageset% = stageset% - 6: x% = 80: stagewindow 1 - ELSE - x% = x% - 30 - END IF -END IF - -IF wee$ = CHR$(0) + "M" OR wee$ = "6" THEN - IF x% = 80 THEN - IF arrow2% = 1 THEN stageset% = stageset% + 6: x% = 20: stagewindow 2 - ELSE - x% = x% + 30 - END IF -END IF - -IF wee$ = CHR$(0) + "P" OR wee$ = "5" OR wee$ = "2" THEN IF y% = 35 THEN y% = 65 -IF wee$ = CHR$(0) + "H" OR wee$ = "8" THEN IF y% = 65 THEN y% = 35 - - -IF y% < 35 THEN y% = 35 -IF y% > 65 THEN y% = 65 - -IF wee$ = " " OR wee$ = CHR$(13) THEN - stage% = stageset% + Slot% - stageinit - setfightercpu -END IF - -IF wee$ <> CHR$(27) AND wee$ <> " " AND wee$ <> CHR$(13) THEN 27 - -window3d -cbigwindow -setstagename (stage%) -END SUB - -SUB setstagename (n%) -SELECT CASE n% - CASE 1: stagename$ = "Demon's Alter " - CASE 2: stagename$ = "V-Wing Class B-01 " - CASE 3: stagename$ = "Elky's Arena " - CASE 4: stagename$ = "Jungle Raft Ride " - CASE 5: stagename$ = "Defence Complex 10 " - CASE 6: stagename$ = "Picketed Claustrophobia " - CASE 7: stagename$ = "Crushing Casket " - CASE 8: stagename$ = "Silence " - CASE 9: stagename$ = "Extended Altitude 1 " - CASE 10: stagename$ = "Pain By The Inch " - CASE 11: stagename$ = "79th Street " - CASE 12: stagename$ = "Extended Altitude 2 " - CASE 13: stagename$ = "Rest In Pieces " - CASE 14: stagename$ = "Endangered " - CASE 15: stagename$ = "Lair Of Demize " - CASE 16: stagename$ = "Empty Slot (Stage 16) " - CASE 17: stagename$ = "Empty Slot (Stage 17) " - CASE 18: stagename$ = "Empty Slot (Stage 18) " - CASE 1000: stagename$ = "Master Bean's Dojo " - CASE 1001: stagename$ = "Dojo (Tutorial) " - CASE 1002: stagename$ = "Dojo (Training) " -END SELECT -END SUB - -SUB setstars - -zoomsave = zoom -panxsave = panx -panysave = pany - -zoom = 1 -panx = 0 -pany = 0 - - -CALL smallwindow -LOCATE 10, 2: PRINT "Number of Stars to Display" - -LOCATE 12, 2: PRINT "Min | | | | Med | | | | Max" - -COLOR 4 -LOCATE 16, 2: PRINT "Press Spacebar To Save." -s% = nstars% - -26 -wee$ = INKEY$ -IF rez% <> 7 THEN - stars3d 50, -50, 0, 230, 50, .5, 15, 15, 15 - stars3d 50, -50, 0, 230, 50, .5, 0, 0, 0 - starsoffset -.001, .001 - pscube 50, -50, 0, 230, 50, .5, 12, 4, 4 -END IF - -IF s% = nstars% THEN - COLOR 15 - LOCATE 13, 6 + s%: PRINT "^" - -ELSE - COLOR 7 - LOCATE 13, 6 + s%: PRINT "^" - COLOR 9 - LOCATE 13, 6 + nstars%: PRINT "^" -END IF - -IF wee$ = "6" OR wee$ = CHR$(0) + "M" OR wee$ = "+" OR wee$ = "=" THEN LOCATE 13, 6 + s%: PRINT " ": s% = s% + 2 -IF wee$ = "4" OR wee$ = CHR$(0) + "K" OR wee$ = "-" THEN LOCATE 13, 6 + s%: PRINT " ": s% = s% - 2 -IF s% < 0 THEN s% = 0 -IF s% > 20 THEN s% = 20 -IF wee$ = " " OR wee$ = CHR$(13) THEN LOCATE 13, 6 + nstars%: PRINT " ": nstars% = s% -IF wee$ <> CHR$(27) THEN 26 - - -CALL csmallwindow -wee$ = "" -zoom = zoomsave -panx = panxsave -pany = panysave - -END SUB - -SUB settings - -2 redraw% = 0 -bigwindow -COLOR 15, 0 -IF rez% = 7 THEN - LOCATE 4, 17: PRINT "SETTINGS" -ELSE - LOCATE 4, 37: PRINT "SETTINGS" -END IF - -LOCATE 6, 6: PRINT "Screen Resolution" -LOCATE 8, 6: PRINT "Frame Skipping" -LOCATE 10, 6: PRINT "Game Speed" -LOCATE 12, 6: PRINT "Clear Method" -LOCATE 14, 6: PRINT "Stars" -LOCATE 16, 6: PRINT "Particles" -LOCATE 18, 6: PRINT "i16 Images" -LOCATE 20, 6: PRINT "Graphic Details" -LOCATE 22, 6: PRINT "Sound" - -IF ptsettings% = 0 THEN ptsettings% = 6 - -DO - wee$ = UCASE$(INKEY$) - '----------------------------------------------------------------- Move Arrow - SELECT CASE wee$ - CASE IS = "8", CHR$(0) + "H" - LOCATE ptsettings%, 2: PRINT " " - IF ptsettings% > 6 THEN ptsettings% = ptsettings% - 2 ELSE ptsettings% = 22 - - CASE IS = "5", "2", CHR$(0) + "P" - LOCATE ptsettings%, 2: PRINT " " - IF ptsettings% < 22 THEN ptsettings% = ptsettings% + 2 ELSE ptsettings% = 6 - END SELECT - LOCATE ptsettings%, 2: PRINT CHR$(16) - - '--------------------------------------------------------------------- Select - IF wee$ = " " OR wee$ = CHR$(13) THEN - redraw% = 1 - wee$ = "" - - SELECT CASE ptsettings% - - CASE IS = 6 - setrez - - CASE IS = 8 - setframeskip - - CASE IS = 10 - setdelay - - CASE IS = 12 - setcmethod - - CASE IS = 14 - setstars - - CASE IS = 16 - setparticles - - CASE IS = 18 - seti16 - - CASE IS = 20 - setdetails - - CASE IS = 22 - setsound - - END SELECT - END IF - - IF redraw% = 1 THEN 2 -LOOP UNTIL wee$ = CHR$(27) -cbigwindow -wee$ = "" -END SUB - -SUB smallwindow - -SCREEN , 0, 0 -COLOR , 0 -FOR wee = 0 TO 248 STEP 1 - LINE (midx% - wee, midy% - 75)-(midy% + wee, midy% + 75), INT((RND * 2) + 7) -NEXT wee - -LINE (midx% - wee, midy% - 75)-(midy% + wee, midy% + 75), 0, BF -LINE (midx% - wee, midy% - 75)-(midy% + wee, midy% + 75), 15, B -END SUB - -SUB smear (x%, y%, Z, c%) - -IF stage% = 4 THEN EXIT SUB - -DO UNTIL exitloop% = 1 OR wee = 10 - wee = wee + 1 - IF smearl%(wee) = 0 OR smearl%(wee) > 300 THEN - exitloop% = 1 - smearl%(wee) = 1 - smearc%(wee) = c% - smearx%(wee) = x% - smeary%(wee) = y% - smearz(wee) = Z - END IF -LOOP -END SUB - -SUB smearender -FOR wee = 1 TO 10 - - IF smearl%(wee) > 0 THEN - l = smearl%(wee) / 10 - IF l > 5 THEN l = 5 - psline (smearx%(wee) - l), (smeary%(wee)), (smearz(wee)), (smearx%(wee) + l), (smeary%(wee)), (smearz(wee)), smearc%(wee), 0 - END IF - -NEXT wee -END SUB - -SUB splash (n) -particle (buttx(n)), (butty(n) + (RND * 20)), (fighterz(n)), 11, 1 -particle (buttx(n)), (butty(n) + 20), (fighterz(n)), 12, 1 -END SUB - -SUB stagebackground - -SELECT CASE stage% - '---------------------------------------------------------------------------- - CASE IS = 1 - - - 'lava - psdline -500, 100, 2, 500, 100, 13, 4, 12, 4, 1 - IF stagedetail% = 1 THEN - psdline -375, 100 + bob, 3, 375, 100 - bob, 12, 4, 12, 4, 1 - psdline -250, 100 - bob, 4, 250, 100 + bob, 11, 12, 4, 12, 1 - psdline -125, 100 + bob, 5, 125, 100 - bob, 10, 4, 12, 4, 1 - END IF - - 'pillar - pscube -15, 15, 7, 15, 100, 8, 7, 8, 8 - - 'steam - stars3d -500, 50, 2, 500, 100, 13, 5, (flash3%), 12 - starsoffset 0, -.01 - - 'ring - pscube -200, 0, 5, 200, 15, 10, 7, 7, 7 - - FOR wee = -100 TO 100 STEP 100 - psdpset (wee), 0, 5.1, 9.9, 8 - NEXT wee - FOR wee = 6.25 TO 9.75 STEP 1.25 - psline -199, 0, (wee), 199, 0, (wee), 8, 0 - NEXT wee - - 'alter - pscube -15, -50, 7, 15, 0, 8, 6, 4, 4 - IF stagedetail% = 1 THEN - psline -9, -20, 7, 9, -20, 7, 6, 0 - psline -6, -35, 7, 0, -12, 7, 6, 0 - psline 6, -35, 7, 0, -12, 7, 6, 0 - psline -6, -35, 7, 9, -20, 7, 6, 0 - psline 6, -35, 7, -9, -20, 7, 6, 0 - END IF - pscircle 0, -25, 7, 10, 4 - - '---------------------------------------------------------------------------- - CASE IS = 2 - - stars2d 7, 7, 15 - starsoffset -.01, 0 - - 'far wing - psline -500, -75, 4.5, 100, -75, 6.5, 8, 0 - psline -250, -75, 4.5, 100, -75, 6.5, 7, 0 - - 'nose - psline 200, 0, 4, 400, 40, 3.5, 8, 0 - psline 200, 0, 3, 400, 40, 3.5, 15, 0 - - 'exhaust - stars3d -900, -25, 2.5, -625, 75, 4, 9, (flash1%), 15 - - 'hull - psdline -600, 75, 2.5, -300, 75, 4.5, 15, 7, 8, 1 - psline -300, 75, 4.5, -200, 40, 3.5, 8, 0 - psline -300, 75, 2.5, -200, 40, 3.5, 15, 0 - psline -200, 40, 3.5, 400, 40, 3.5, 7, 0 - FOR wee = -150 TO 150 STEP 50 - psdpset (wee), 0, 3, 4, 7 - NEXT wee - psdline -200, 0, 3, 200, 0, 4, 15, 7, 8, 1 - - 'cargo area - IF stagedetail% = 1 THEN - psline -800, -150, 3.5, -650, -75, 4.5, 8, 0 - psline -800, -150, 3.5, -650, -75, 2.5, 15, 0 - psline -800, -150, 3.5, -350, -150, 3.5, 7, 0 - psline -350, -150, 3.5, -250, -75, 4.5, 8, 0 - psline -350, -150, 3.5, -250, -75, 2.5, 15, 0 - END IF - psdline -650, -75, 2.5, -250, -75, 4.5, 15, 7, 8, 1 - psdline -650, -75, 2.5, -600, 75, 4.5, 15, 7, 8, 1 - psline -250, -75, 4.5, -200, 0, 4, 8, 0 - psline -250, -75, 2.5, -200, 0, 3, 15, 0 - - - '---------------------------------------------------------------------------- - CASE IS = 3 - - 'horizon - window2d - LINE (0, 50)-(100, 50), 8 - window3d - - - 'Ground - psdline -500, 115, 1, 500, 115, 20, 0, 7, 8, 1 - - 'Ceiling - pscube -150, -45, 3, 150, -50, 8, 15, 7, 8 - - 'Floor - pscube -150, 110, 3, 150, 115, 8, 15, 7, 8 - - 'Back Struts - IF stagedetail% = 1 THEN - pscube -145, -45, 7, -125, 110, 7.5, 15, 7, 8 - pscube 145, -45, 7, 125, 110, 7.5, 15, 7, 8 - END IF - - 'Ring - pscube -100, 100, 4, 100, 110, 7, 15, 7, 8 - - - FOR wee = -60 TO 60 STEP 40 - psdpset (wee), 100, 4, 7, 7 - NEXT wee - - FOR wee = 4.5 TO 6.5 STEP 1 - psline -100, 100, (wee), 100, 100, (wee), 7, 0 - NEXT wee - - '---------------------------------------------------------------------------- - CASE IS = 4 - - starsoffset -.002, 0 - - 'Trees - IF stagedetail% = 1 THEN - - FOR wee = -2000 TO 1000 STEP 1500 - psdline wee + wx, -500, 5, wee + wx, 10, 15, 6, 0, 4, 0 - NEXT wee - - FOR wee = -4000 TO -2000 STEP 1000 - psdline wee + 250 + wx, -400, 10, wee + 250 + wx, 0, 20, 6, 0, 4, 0 - NEXT wee - - FOR wee = -3000 TO 1000 - ticker% STEP 500 - psline wee + wx, -400, 25, wee + wx, -700, 1, 2, 0 - NEXT wee - - FOR wee = -5000 TO 1000 - ticker% STEP 1000 - psline wee + wx, -400, 15, wee + wx, -1000, 1, 2, 0 - NEXT wee - END IF - 'end trees - - - IF ticker% < 1000 THEN - stars3d -1000 + wx, wy, 2, -500 + wx, 1 + wy, 6, 9, (flash1%), 15 - psline -1000 + wx, wy, 6, -1100 + wx, 100 + wy, 6, 1, 0 - psline -1000 + wx, wy, 6, 500 + wx, wy, 6, 1, 0 - psline 500 + wx, wy, 6, 1000 + wx, wy, 4, 1, 0 - psline -2000 + wx, 100 + wy, 6, -1100 + wx, 100 + wy, 6, 1, 0 - psline -3000 + wx, 200 + wy, 6, -2000 + wx, 100 + wy, 6, 1, 0 - ELSE - psline -2000 + wx, 100 + wy, 6, -1100 + wx, 100 + wy, 6, 1, 0 - psline -3000 + wx, 200 + wy, 6, -2000 + wx, 100 + wy, 6, 1, 0 - psline -5000 + wx, 200 + wy, 6, -3000 + wx, 200 + wy, 6, 1, 0 - psline -6500 + wx, 950 + wy, 4, -6000 + wx, 950 + wy, 6, 1, 0 - psline -6000 + wx, 950 + wy, 6, -5000 + wx, 950 + wy, 6, 1, 0 - psline -5000 + wx, 200 + wy, 6, -5000 + wx, 950 + wy, 6, 1, 0 - stars3d -5000 + wx, 200 + wy, 2, -4500 + wx, 201 + wy, 6, 9, (flash1%), 15 - stars3d -5700 + wx, 950 + wy, 2, -5000 + wx, 951 + wy, 6, 15, (flash1%), 15 - END IF - - 'raft - psdline -200 - (bob / 5), 30 - bob, 3, 200 - (bob / 5), 30 + bob, 5, 4, 4, 4, 1 - psdline -200 + (bob / 5), -bob, 3, -200 - (bob / 5), 30 - bob, 5, 4, 4, 4, 0 - psdline 200 - (bob / 5), 30 + bob, 3, 200 + (bob / 5), bob, 5, 4, 4, 4, 0 - psdline -200 + (bob / 5), -bob, 3, 200 + (bob / 5), bob, 5, 6, 6, 6, 1 - psdline -200 + (bob / 5), -bob, 3.5, 200 + (bob / 5), bob, 4.5, 6, 6, 6, 0 - psline -200 + (bob / 5), -bob, 4, 200 + (bob / 5), bob, 4, 6, 0 - - IF ticker% < 1000 THEN - psline -3000 + wx, 200 + wy, 2, -2000 + wx, 100 + wy, 2, 9, 0 - psline -2000 + wx, 100 + wy, 2, -1100 + wx, 100 + wy, 2, 9, 0 - psline -1000 + wx, wy, 2, -1100 + wx, 100 + wy, 2, 9, 0 - psline -1000 + wx, wy, 2, 500 + wx, wy, 2, 9, 0 - psline 500 + wx, wy, 2, 1000 + wx, wy, 4, 9, 0 - ELSE - psline -3000 + wx, 200 + wy, 2, -2000 + wx, 100 + wy, 2, 9, 0 - psline -2000 + wx, 100 + wy, 2, -1100 + wx, 100 + wy, 2, 9, 0 - psline -6500 + wx, 950 + wy, 4, -6000 + wx, 950 + wy, 2, 9, 0 - psline -6000 + wx, 950 + wy, 2, -5000 + wx, 950 + wy, 2, 9, 0 - psline -5000 + wx, 200 + wy, 2, -5000 + wx, 950 + wy, 2, 9, 0 - psline -5000 + wx, 200 + wy, 2, -3000 + wx, 200 + wy, 2, 9, 0 - END IF - - - '---------------------------------------------------------------------------- - CASE IS = 5 - - 'horizon - window2d - LINE (0, 50)-(100, 50), 8 - window3d - - 'pads - psdline -200, 0, 5, 200, 0, 15, 15, 7, 8, 1 - psdline 400, 0, 5, 800, 0, 15, 15, 7, 8, 1 - - '-----Ship - IF ticker% < 2100 THEN - 'landing gear - psline -60, -25 + wy, 13, -70, wy + trigger1, 13.5, 8, 0 - psline 60, -25 + wy, 13, 70, wy + trigger1, 13.5, 8, 0 - psline 0, -25 + wy, 10, 0, wy + trigger1, 9 + trigger2, 7, 0 - - 'exhaust - stars3d -90, -85 + wy, 12, -80, -30 + wy, 13, flash1%, 9, flash1% - stars3d 80, -85 + wy, 12, 90, -30 + wy, 13, flash1%, 9, flash1% - starsoffset 0, .005 - - 'left wing - psline -75, -100 + wy, 14, -175, -50 + wy, 14, 8, 0 - psline -75, -100 + wy, 10, -175, -50 + wy, 13, 7, 0 - psdline -75, -75 + wy, 12, -90, -92.5 + wy, 14, 7, 8, 8, 1 - psdpset -175, -50 + wy, 11, 15, 7 - - 'right wing - psline 75, -100 + wy, 14, 175, -50 + wy, 14, 8, 0 - psline 75, -100 + wy, 10, 175, -50 + wy, 13, 7, 0 - psdline 75, -75 + wy, 12, 90, -92.5 + wy, 14, 7, 8, 8, 1 - psdpset 175, -50 + wy, 11, 15, 7 - - 'hull - pscube -75, -100 + wy, 10, 75, -25 + wy, 14, 7, 7, 8 - - 'nose - psline -75, -25 + wy, 10, -25, -40 + wy, 6, 8, 0 - psline 75, -25 + wy, 10, 25, -40 + wy, 6, 8, 0 - psline -75, -100 + wy, 10, -25, -40 + wy, 6, 7, 0 - psline 75, -100 + wy, 10, 25, -40 + wy, 6, 7, 0 - psline -25, -40 + wy, 6, 25, -40 + wy, 6, 7, 0 - END IF - - 'building - pscube -800, -300, 2, -400, 0, 15, 15, 7, 8 - - - - '---------------------------------------------------------------------------- - CASE IS = 6 - - 'Back Wall "X" - IF stagedetail% = 1 THEN - psline -200, -300, 10, 200, 0, 10, 8, 0 - psline 200, -300, 10, -200, 0, 10, 8, 0 - - 'Ceiling - pscube -200, -315, 5, 200, -300, 10, 7, 7, 8 - - 'floor - pscube -200, 0, 5, 200, 15, 10, 7, 7, 8 - - ELSE - 'Low detail - 'Ceiling - psdline -200, -300, 5, 200, -300, 10, 7, 7, 8, 1 - 'Floor - psdline -200, 0, 5, 200, 0, 10, 7, 7, 8, 1 - END IF - - FOR wee = -150 TO 150 STEP 50 - psdpset wee, 0, 5, 10, 7 - NEXT wee - - - 'Walls and Spikes - IF panx < 0 OR zoom > .07 THEN - pscube -196, -300, 5.5, -185, -.5, 9.5, 6, 4, 4 - FOR wee = -155 TO -10 STEP 30 - psline -185, (wee) + 15, 8.5, -175, (wee) + 10, 8.5, 8, 0 - psline -185, (wee + 30), 8, -175, (wee) + 25, 8, 7, 0 - NEXT wee - END IF - - IF panx >= 0 OR zoom > .07 THEN - pscube 196, -300, 5.5, 185, -.5, 9.5, 6, 4, 4 - FOR wee = -155 TO -10 STEP 30 - psline 185, (wee) + 15, 8.5, 175, (wee) + 10, 8.5, 8, 0 - psline 185, (wee + 30), 8, 175, (wee) + 25, 8, 7, 0 - NEXT wee - END IF - - - '---------------------------------------------------------------------------- - CASE IS = 7 - - 'Back Wall - IF stagedetail% = 1 THEN - FOR wee = -400 TO 400 STEP 200 - psline wee, -300, 10, wee, 0, 10, 8, 0 - NEXT wee - END IF - - 'Ceiling - psdline -400, -300, 5, 400, -300, 10, 15, 7, 8, 0 - FOR wee = -400 TO 400 STEP 200 - psdpset wee, -300, 5, 10, 7 - NEXT wee - - 'floor - psdline -400, 0, 5, 400, 0, 10, 15, 7, 8, 0 - FOR wee = -400 TO 400 STEP 200 - psdpset wee, 0, 5, 10, 7 - NEXT wee - - 'Crush Walls - pscube -10 - wx, -300, 5.5, -wx, -.5, 9.5, 6, 4, 4 - pscube wx, -300, 5.5, 10 + wx, -.5, 9.5, 6, 4, 4 - IF stagedetail% = 1 THEN - psline -wx, -300, 5.5, -wx, -.5, 9.5, 4, 0 - psline -wx, -300, 9.5, -wx, -.5, 5.5, 4, 0 - psline wx, -300, 5.5, wx, -.5, 9.5, 4, 0 - psline wx, -300, 9.5, wx, -.5, 5.5, 4, 0 - END IF - - '---------------------------------------------------------------------------- - CASE IS = 8 - - 'Sky - window2d - LINE (0, 30)-(100, 30), 4 - LINE (0, 40)-(100, 40), 4 - LINE (0, 46)-(100, 46), 12 - LINE (0, 50)-(100, 50), 14 - window3d - - - 'Ring - pscube -400, 0, 1, 400, 25, 21, 15, 7, 8 - - IF stagedetail% = 1 THEN - psdline -320, 0, 3, 320, 0, 19, 8, 7, 8, 1 - psdline -240, 0, 5, 240, 0, 17, 8, 7, 8, 1 - psdline -160, 0, 7, 160, 0, 15, 8, 7, 8, 1 - psdline -80, 0, 9, 80, 0, 13, 8, 7, 8, 1 - END IF - - '---------------------------------------------------------------------------- - CASE IS = 9 - - 'Shocker - psdline -500, 100, 4, 500, 100, 12, flash1%, flash1%, flash1%, 1 - - - 'Rear Support - pscube -20, -25, 10, 20, 100, 11, 7, 7, 8 - - IF stagedetail% = 1 THEN - pscircle 0, 0, 10, 10, 8 - psline -300, -trigger1, 6, 300, trigger1, 10, 7, 0 - psline -300, -trigger1, 10, 300, trigger1, 6, 7, 0 - END IF - - 'Tilting Ring - psdline -300, -trigger1, 6, 300, trigger1, 10, 15, 7, 8, 1 - - - '---------------------------------------------------------------------------- - CASE IS = 10 - - 'Walls - pscube -225, -300, 6, -200, 15, 8, 15, 7, 8 - pscube 200, -300, 6, 225, 15, 8, 15, 7, 8 - - 'Top Bar - psdline -200, -300, 6.8, 200, -300, 7.2, 15, 0, 8, 0 - - 'Rear Pendulum - psline wx, -300, 7, wx, -20 - (trigger1 * 10), 7 + trigger1, 7, 0 - psline wx, -15 - (trigger1 * 10), 7 + trigger1, wx, -20 - (trigger1 * 10), 6.5 + trigger1, (trigger3), 0 - psline wx, -15 - (trigger1 * 10), 7 + trigger1, wx, -20 - (trigger1 * 12), 7.5 + trigger1, (trigger3), 0 - - 'ring - pscube -200, 0, 6, 200, 15, 8, 9, 9, 1 - psline -200, 0, 6, 200, 0, 8, 1, 0 - psline -200, 0, 8, 200, 0, 6, 1, 0 - - - '---------------------------------------------------------------------------- - CASE IS = 11, 12 - - 'rear building - psline -1500, -700, 23, 1500, 0, 23, 8, 1 - IF stagedetail% = 1 THEN - FOR wee = -1000 TO 1000 STEP 500 - psline wee, -700, 23, wee, 0, 23, 8, 0 - NEXT wee - END IF - - 'Left building - IF stagedetail% = 1 AND panx <= 0 THEN - FOR wee = -15 TO -800 STEP -150 - psdline -1000, wee, 9, -400, wee, 17, 9, 1, 1, 1 - NEXT wee - END IF - pscube -1000, -800, 9, -400, 0, 17, 15, 7, 8 - - 'Right building - IF panx > -200 THEN pscube 400, -1000, 9, 1500, 0, 17, 9, 1, 1 - - 'center building - pscube -200, -500, 9, 200, 0, 17, 7, 7, 8 - 'windows - IF stagedetail% = 1 THEN - FOR wee = -15 TO -450 STEP -100 - psline -190, wee - 60, 9, 190, wee, 9, 9, 1 - psline -200, wee, 10, -200, wee, 16, 1, 0 - psline 200, wee, 10, 200, wee, 16, 1, 0 - NEXT wee - END IF - - psline -200, -500, 9, 200, -500, 17, 7, 0 - psline 200, -500, 9, -200, -500, 17, 7, 0 - - - - '---------------------------------------------------------------------------- - CASE IS = 13, 14 - - IF trigger1 = 0 OR trigger1 = 15 THEN - - 'Rear fence - FOR wee = -175 TO 175 STEP 25 - psline (wee), (0), (15), (wee), (-35), (15), 7, 0 - NEXT wee - - 'Side fences - FOR wee = 2.5 TO 15 STEP 1 - psline (-200), (0), (wee), (-200), (-35), (wee), 7, 0 - psline (200), (0), (wee), (200), (-35), (wee), 7, 0 - NEXT wee - - - 'High Detail Stuff - IF stagedetail% = 1 THEN - psline (-200), (-20), (15), (200), (-20), (15), 8, 0 - - psline (-200), (-20), (2.5), (-200), (-20), (3.5), 8, 0 - psline (200), (-20), (2.5), (200), (-20), (3.5), 8, 0 - - psline (-200), (-20), (4.5), (-200), (-20), (15), 8, 0 - psline (200), (-20), (4.5), (200), (-20), (15), 8, 0 - END IF - - - 'Graves - FOR wee = -165 TO 35 STEP 200 - pscube wee, -15, 5, wee + 10, 0, 5.1, 7, 7, 8 - - 'Far Cross - psline wee + 72, -27, 9, wee + 76, 0, 9, 4, 0 - psline wee + 80, -20, 9, wee + 66, -19, 9, 4, 0 - - 'Near Cross - psline wee - 22, -27, 7, wee - 26, 0, 7, 4, 0 - psline wee - 30, -20, 7, wee - 16, -19, 7, 4, 0 - - pscube wee + 100, -15, 8, wee + 110, 0, 8.1, 7, 8, 8 - psline wee + 50, -15, 10, wee + 60, 0, 10, 7, 1 - psline wee + 150, -15, 12, wee + 160, 0, 12, 8, 1 - NEXT wee - - - - '---------- Dead Tree - 'trunk - psline 120, 0, 4.8, 125, -23, 5, 4, 0 - psline 130, 0, 4.2, 120, -60, 5, (trigger2), 0 - psline 145, 0, 4.5, 125, -50, 4.9, 4, 0 - psline 150, 0, 5, 125, -75, 5, 4, 0 - psline 50, (-150 + trigger1), 5, 125, -75, 5, 4, 0 - psline 60, (-135 + trigger1), 5, 120, -60, 5, (trigger2), 0 - psline 90, (-100 + trigger1), 4.8, 120, -70, 4.5, 4, 0 - - 'Incomming branch - psline 140, (-80 + trigger1), 4, 120, -70, 4.5, 4, 0 - psline 150, (-85 + trigger1), 3, 120, -63, 4.9, 4, 0 - psline 150, (-85 + trigger1), 3, 128, -65, 5, (trigger2), 0 - - - END IF - - '--------------------+ - - - IF stage% = 14 THEN - - IF stagedetail% = 1 THEN - '--- Crucifix - 'Body - psline -10, 325, 7, 8, 390, 7, 8, 0 - psline 10, 325, 7, -8, 390, 7, 8, 0 - 'Legs - psline -5, 470, 7, 8, 390, 7, 8, 0 - psline 5, 470, 7, -8, 390, 7, 8, 0 - 'Feet - psline 0, 470, 7, 0, 495, 7, 8, 0 - 'arms - psline -9, 355, 7, -55, 370, 7, 8, 0 - psline -100, 345, 7, -30, 370, 7, 8, 0 - psline 9, 355, 7, 55, 370, 7, 8, 0 - psline 100, 345, 7, 30, 370, 7, 8, 0 - END IF - - 'Room/Ring - psdline -175, 300, 3, -100, 250, 7, 4, 0, 4, 0 - psdline 175, 300, 3, 100, 250, 7, 4, 0, 4, 0 - pscube -175, 300, 1.5, 175, 500, 7, 12, 4, 4 - pscube -100, 495, 3, 100, 500, 5, 15, 7, 8 - - - 'Steam - particle (-175 + (RND * 350)), (500), (1.5 + (RND * 1.5)), 15, 1 - particle (-175 + (RND * 350)), (500), (5 + (RND * 2)), 15, 1 - stars3d -175, 450, 1.5, 175, 500, 7, 7, 8, 7 - starsoffset 0, -.005 - END IF - - - - '---------------------------------------------------------------------------- - CASE IS = 15 - - IF ticker% < 175 THEN - pscube -250, -300, 1.5, 300, 0, 7, 7, 8, 8 - psline -100.5, -100, 7, -99.5, -80, 7, 8, 1 - psline -101.5, -100, 7, -98.5, -100, 7, 8, 1 - particle -100, -102, 7, 16, 1 - ELSE - - - 'Back Room - IF stagedetail% = 1 THEN - - FOR wee = -100 TO 100 STEP 50 - psline (wee), -40, 30, (wee), 0, 30, 4, 0 - NEXT wee - psline 0, -140, 30, 0, -50, 30, 4, 0 - psline -25, -70, 30, 25, -70, 30, 4, 0 - - 'Hall and Mats - psline -100, -100, 15, -50, 0, 15, 0, 2 - psline 50, -100, 15, 100, 0, 15, 0, 2 - psline -50, -100, 15, 50, 0, 15, 4, 1 - pscube -50, -100, 10, 50, 0, 15, 4, 4, 8 - IF ticker% < 300 THEN psline -400, -100, 10, -175, 0, 10, 0, 2 - psline -175, -100, 10, -50, 0, 10, 0, 2 - psline 50, -100, 10, 175, 0, 10, 0, 2 - psline -50, -100, 10, 50, 0, 10, 4, 1 - END IF - - - 'Hallway - IF ticker% < 350 THEN FOR wee = -700 TO -300 STEP 75: psdpset (wee), 0, 3, 6, 8: NEXT wee - pscube -800, -100, 3, -200, 0, 6, 4, 4, 4 - - 'Gate - psdline -202, trigger3, 3.4, -202, trigger3 - 100, 3.8, 8, 8, 8, 0 - psdline -202, trigger3, 4.2, -202, trigger3 - 100, 4.6, 8, 8, 8, 0 - psdline -203, trigger3, 5, -203, trigger3 - 100, 5.4, 8, 8, 8, 0 - psdpset -201.5, trigger3 - 25, 3, 6, 7 - psdpset -201.5, trigger3 - 75, 3, 6, 7 - - - 'Rear Wall - psline -100, 0, 10, 100, 0, 10, 4, 0 - psline -200, -200, 10, 200, -200, 10, 4, 0 - psline -100, 0, 10, -200, -200, 10, 4, 0 - psline 100, 0, 10, 200, -200, 10, 4, 0 - - - 'Rear Corners - psline -100, 0, 10, -200, 0, 6, 4, 0 - psline 100, 0, 10, 200, 0, 6, 4, 0 - psline -200, -200, 10, -200, 0, 6, 4, 0 - psline 200, -200, 10, 200, 0, 6, 4, 0 - - - 'Sides - psline -200, -200, 2, -200, -200, 10, 4, 0 - psline 200, -200, 2, 200, -200, 10, 4, 0 - psline 200, 0, 3, 200, 0, 6, 4, 0 - - - IF stagedetail% = 1 THEN - '--- Circle Symbol - 'Outer Circle - psdline -25, 0, 3.5, 25, 0, 6.5, 4, 0, 4, 0 - psline -25, 0, 3.5, -50, 0, 4, 4, 0 - psline -60, 0, 4.5, -50, 0, 4, 4, 0 - psline -60, 0, 4.5, -60, 0, 5.5, 4, 0 - psline -25, 0, 6.5, -50, 0, 6, 4, 0 - psline -60, 0, 5.5, -50, 0, 6, 4, 0 - psline 25, 0, 3.5, 50, 0, 4, 4, 0 - psline 60, 0, 4.5, 50, 0, 4, 4, 0 - psline 60, 0, 4.5, 60, 0, 5.5, 4, 0 - psline 25, 0, 6.5, 50, 0, 6, 4, 0 - psline 60, 0, 5.5, 50, 0, 6, 4, 0 - 'Inner Design - 'NS Points - psline 0, 0, 6.5, -20, 0, 5, 4, 0 - psline 0, 0, 3.5, -20, 0, 5, 4, 0 - psline 0, 0, 6.5, 20, 0, 5, 4, 0 - psline 0, 0, 3.5, 20, 0, 5, 4, 0 - 'EW Points - psline -60, 0, 5, 0, 0, 5.5, 4, 0 - psline -60, 0, 5, 0, 0, 4.5, 4, 0 - psline 60, 0, 5, 0, 0, 5.5, 4, 0 - psline 60, 0, 5, 0, 0, 4.5, 4, 0 - END IF - - 'Ring of Fire - IF RND < .3 THEN - particle -63, -2, 5, 27, 1 - particle 63, -2, 5, 27, 1 - - particle -45, -2, 6.2, 27, 1 - particle 45, -2, 6.2, 27, 1 - particle -45, -2, 3.7, 27, 1 - particle 45, -2, 3.7, 27, 1 - - particle 0, -2, 7, 27, 1 - particle 0, -2, 3, 27, 1 - - particle -20, -2, 6.8, 27, 1 - particle 20, -2, 6.8, 27, 1 - particle -20, -2, 3.2, 27, 1 - particle 20, -2, 3.2, 27, 1 - - END IF - - END IF - - '----------------------------------------------------------------------- Dojo - CASE IS = 1000, 1001, 1002 - - 'Walls - pscube -200, -300, 3, 200, 0, 10, 12, 4, 4 - - 'Weapon Racks - FOR wee = 0 TO 50 STEP 10 - psline (-75 - wee), -55, 10, (-75 - wee), -10, 10, 8, 0 - psline (75 + wee), -55, 10, (75 + wee), -10, 10, 8, 0 - NEXT wee - psline -125, -45, 9.8, -75, -45, 9.8, 7, 0 - psline -125, -15, 9.8, -75, -15, 9.8, 7, 0 - psline 125, -45, 9.8, 75, -45, 9.8, 7, 0 - psline 125, -15, 9.8, 75, -15, 9.8, 7, 0 - - - 'Torch Posts - pscube -150, -35, 7, -154, 0, 7.2, 15, 7, 8 - pscube 150, -35, 7, 154, 0, 7.2, 15, 7, 8 - - - 'fire Pit - starsoffset 0, -.01 - psdline -25, 0, 8, 25, 0, 9, 7, 8, 8, 1 - stars3d -25, -50, 8, 25, 0, 9, 8, 7, 8 - - 'Fire - particle ((RND - .5) * 25), -5, 8 + RND, 17, 1 - particle -152, -40, 7.1, 16, 1 - particle 152, -40, 7.1, 16, 1 - - - - '---------------------------------------------------------------------------- -END SELECT -END SUB - -SUB stageforground -SELECT CASE stage% - - '---------------------------------------------------------------------------- - CASE IS = 2 - - 'far wing - psline -500, -75, 2.5, 100, -75, .5, 7, 0 - psline -250, -75, 2.5, 100, -75, .5, 15, 0 - - - '---------------------------------------------------------------------------- - CASE IS = 3 - - 'Near Struts - IF stagedetail% = 1 THEN - pscube -145, -45, 3.5, -125, 110, 4, 15, 7, 8 - pscube 145, -45, 3.5, 125, 110, 4, 15, 7, 8 - END IF - - '---------------------------------------------------------------------------- - CASE IS = 5 - - 'Missle Launcher - IF stagedetail% = 1 THEN - pscircle 1015 + wx, -7, 3.1, 5, 8 - pscircle 1050 + wx, -7, 3, 5, 8 - pscircle 1135 + wx, -7, 3, 5, 8 - pscube 1125 + wx, -15, 2.3, 1145 + wx, -5, 2.7, 15, 7, 8 - pscube 1026 + wx, -15, 2, 1060 + wx, -5, 3, 15, 7, 8 - pscube 1035 + wx, -30, 2, 1150 + wx, -16, 3, 15, 7, 8 - psline 1015 + wx, -42, 2.5, 1135 + wx, -42, 2.5, 8, 0 - psline 1015 + wx, -42, 2.5, 980 + wx, -47.5, 2.5, 8, 0 - pscube 1000 + wx, -40, 2, 1025 + wx, -5, 3, 15, 7, 8 - pscube 1135 + wx, -55, 2.1, 1145 + wx, -30, 2.9, 15, 7, 8 - pscircle 1015 + wx, -7, 1.9, 5, 15 - pscircle 1050 + wx, -7, 2, 5, 15 - pscircle 1135 + wx, -7, 2, 5, 15 - - psline 1015 + wx, -47.5, 2.6, 1135 + wx, -47.5, 2.6, 7, 0 - psline 1015 + wx, -47.5, 2.6, 980 + wx, -47.5, 2.5, 7, 0 - psline 1015 + wx, -54, 2.5, 1135 + wx, -54, 2.5, 15, 0 - psline 1015 + wx, -54, 2.5, 980 + wx, -47.5, 2.5, 15, 0 - psline 1015 + wx, -47.5, 2.4, 1135 + wx, -47.5, 2.4, 15, 0 - psline 1015 + wx, -47.5, 2.4, 980 + wx, -47.5, 2.5, 15, 0 - END IF - - '---------------------------------------------------------------------------- - CASE IS = 6 - - 'Spikes - IF panx < 0 OR zoom > .07 THEN - FOR wee = -155 TO -10 STEP 30 - psline -185, (wee) + 15, 7.5, -175, (wee) + 10, 7.5, 7, 0 - psline -185, (wee + 30), 7, -175, (wee) + 25, 7, 7, 0 - psline -185, (wee) + 15, 6.5, -175, (wee) + 10, 6.5, 15, 0 - NEXT wee - END IF - - IF panx >= 0 OR zoom > .07 THEN - FOR wee = -155 TO -10 STEP 30 - psline 185, (wee) + 15, 7.5, 175, (wee) + 10, 7.5, 7, 0 - psline 185, (wee + 30), 7, 175, (wee) + 25, 7, 7, 0 - psline 185, (wee) + 15, 6.5, 175, (wee) + 10, 6.5, 15, 0 - NEXT wee - END IF - - - - '---------------------------------------------------------------------------- - CASE IS = 9 - - 'Near Support - IF stagedetail% = 1 THEN pscircle 0, 0, 6, 10, 8 - pscube -20, -25, 5, 20, 100, 6, 15, 7, 8 - - '---------------------------------------------------------------------------- - CASE IS = 10 - - 'Near Pendulum - psline -wx, -300, 7, -wx, -20 - (trigger1 * 10), 7 - trigger1, 7, 0 - psline -wx, -15 - (trigger1 * 10), 7 - trigger1, -wx, -20 - (trigger1 * 12), 6.5 - trigger1, (trigger3), 0 - psline -wx, -15 - (trigger1 * 10), 7 - trigger1, -wx, -20 - (trigger1 * 10), 7.5 - trigger1, (trigger3), 0 - - - '---------------------------------------------------------------------------- - CASE IS = 11 - - IF zoom > .12 AND stagedetail% = 1 THEN - 'Left building - pscube -1500, -800, .1, -400, 0, 3, 15, 7, 8 - - 'center "building" - pscube -200, -500, .1, 200, 0, 3, 15, 7, 8 - - 'Right building - pscube 400, -1000, .1, 800, 0, 3, 15, 7, 8 - END IF - - - - '---------------------------------------------------------------------------- - CASE IS = 13, 14 - - IF trigger1 = 0 OR trigger1 = 15 THEN - - IF ticker% < 25 AND stage% = 13 THEN psline -100, 0, 4, 100, 55, 4, 0, 2 - - IF stagedetail% = 1 THEN psline (-200), (-20), (2.5), (200), (-20), (2.5), 8, 0 - - 'rain - rain3d -200, -150, .1, 200, 5, 15, 7, 9, 15, 5 - IF ticker% > 400 AND stage% = 13 THEN rain2d 1, 9, 1, .02 - - 'Near fence - FOR wee = -175 TO 175 STEP 25 - psline (wee), (0), (2.5), (wee), (-35), (2.5), 15, 0 - NEXT wee - - END IF - - - - '---------------------------------------------------------------------------- - CASE IS = 15 - - IF ticker% >= 175 THEN - psline -100, 0, 2, 100, 0, 2, 4, 0 - psline -200, -200, 2, 200, -200, 2, 4, 0 - psline -100, 0, 2, -200, -200, 2, 4, 0 - psline 100, 0, 2, 200, -200, 2, 4, 0 - - - 'Near Corners - psline -100, 0, 2, -200, 0, 3, 4, 0 - psline 100, 0, 2, 200, 0, 3, 4, 0 - psline -200, -200, 2, -200, 0, 3, 4, 0 - psline 200, -200, 2, 200, 0, 3, 4, 0 - - END IF - - '---------------------------------------------------------------------------- -END SELECT -END SUB - -SUB stageinit -IF stage% <> 1000 THEN IF stage% < 1 OR stage% > stages% THEN stage% = 1 -IF stage% < 50 THEN dif% = stage%: AIactive%(2) = 1 ELSE dif% = 7: AIactive%(2) = 0 -IF AIactive%(1) = 1 AND AIactive%(2) = 1 THEN dif% = 5: stage% = INT(RND * 3) + 1: setfightercpu -IF stage% = 15 THEN dif% = 7 - -ticker% = 0 -soundticker% = 20 -control% = 0 -victory% = 0 -camode% = 0 -bobm = 0 -rebirth% = 0 -particleclear - -FOR wee = 1 TO 10 - smearl%(wee) = 0 -NEXT wee - -FOR wee = 1 TO 6 - projectile%(wee) = 0 -NEXT wee - -FOR wee = 1 TO 2 - setbody (wee) - setko (wee) - win%(wee) = 0 - rage(wee) = 0 -NEXT wee - - -SELECT CASE stage% - - '---------------------------------------------------------------- Init Stages - CASE IS = 1 - startfight% = 100 - ring% = 200 - midstage = 6 - - zoom = 1 - panx = 0 - pany = 75 - panh = 0 - panv = -1.4 - zoomd = -.084 - zoomt = .02: 'Smaller = Zoom More - - floor1 = 0 - floor2 = 120 - bob = 15 - gravity = 1 - - wx = 0 - wy = 25 - wz = 0 - - trigger1 = 100 - trigger2 = 0 - trigger3 = 0 - - fightercompress (1) - fightercompress (2) - - setfightercpu - - '---------------------------------------------------------------------------- - CASE IS = 2 - startfight% = 200 - ring% = 200 - midstage = 3.5 - - zoom = .3 - panx = -1000 - pany = 10 - panh = 9.9 - panv = 0 - zoomd = 0 - zoomt = .1 - - floor1 = 0 - floor2 = 100 - bob = 5 - - gravity = .5 - - wx = 0 - wy = 25 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 3 - startfight% = 100 - ring% = 100 - midstage = 5.5 - - zoom = .3 - panx = 0 - pany = -500 - panh = 0 - panv = 15 - zoomd = 0 - zoomt = .04 - - floor1 = 100 - floor2 = 110 - bob = 5 - - gravity = 1 - - wx = 0 - wy = 25 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 4 - startfight% = 125 - ring% = 200 - midstage = 4 - - zoom = .6 - panx = -2000 - pany = 0 - panh = 25 - panv = 0 - zoomd = 0 - zoomt = .1 - - floor1 = 0 - floor2 = 500 - bob = 3 - - gravity = 1 - - wx = 0 - wy = 25 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 5 - startfight% = 100 - ring% = 400 - midstage = 3.5 - - zoom = .1 - panx = 900 - pany = -50 - panh = 0 - panv = 0 - zoomd = .005 - zoomt = .045 - - floor1 = 0 - floor2 = 0 - bob = 15 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 6 - startfight% = 100 - ring% = 180 - midstage = 7.5 - - zoom = .01 - panx = -175 - pany = -100 - panh = 0 - panv = 2 - zoomd = 0 - zoomt = .015 - - floor1 = 0 - floor2 = 0 - bob = 15 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 7 - startfight% = 125 - ring% = 100 - midstage = 7.5 - - zoom = .01 - panx = 380 - pany = -10 - panh = 0 - panv = 0 - zoomd = .001 - zoomt = .02 - - floor1 = 0 - floor2 = 0 - bob = 0 - gravity = 1 - - wx = 390 - wy = -.1 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 8 - startfight% = 10 - ring% = 400 - midstage = 10 - - zoom = .1 - panx = 0 - pany = -300 - panh = 0 - panv = 0 - zoomd = 0 - zoomt = .01 - - floor1 = 0 - floor2 = 25 - bob = 0 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 9 - startfight% = 50 - ring% = 300 - midstage = 8 - - zoom = .08 - panx = -400 - pany = 50 - panh = 20 - panv = 0 - zoomd = 0 - zoomt = .015 - - floor1 = 100 - floor2 = 100 - bob = 15 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - '---------------------------------------------------------------------------- - CASE IS = 10 - startfight% = 100 - ring% = 200 - midstage = 7 - - zoom = .07 - panx = 100 - pany = -250 - panh = 0 - panv = 0 - zoomd = 0 - zoomt = .015 - - floor1 = 0 - floor2 = 0 - bob = 15 - gravity = 1 - - wx = 5 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 15 - - - - '---------------------------------------------------------------------------- - CASE IS = 11 - startfight% = 75 - ring% = 200 - midstage = 7 - - zoom = .8 - panx = 0 - pany = -1000 - panh = 0 - panv = 10 - zoomd = -.06 - zoomt = .02 - - floor1 = 0 - floor2 = 0 - bob = 15 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - - - '---------------------------------------------------------------------------- - CASE IS = 12 - startfight% = 25 - ring% = 200 - midstage = 13 - - 'zoom = .8 - 'panx = 0 - 'pany = -1000 - 'panh = 0 - 'panv = 10 - 'zoomd = -.06 - zoomt = .015 - - floor1 = -500 - floor2 = 0 - bob = 15 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - - '---------------------------------------------------------------------------- - CASE IS = 13 - startfight% = 25 - ring% = 100 - midstage = 4 - - zoom = .1 - panx = 0 - pany = 0 - panh = 0 - panv = -2 - zoomd = 0 - zoomt = .045 - - floor1 = 50 - floor2 = 50 - bob = 10 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 12 - trigger3 = .001 - - - - '---------------------------------------------------------------------------- - CASE IS = 14 - startfight% = 100 - ring% = 100 - midstage = 4 - - 'zoom = .1 - 'panx = 0 - 'pany = 0 - panh = 0 - panv = 5 - zoomd = .005 - zoomt = .045 - - floor1 = 495 - floor2 = 500 - bob = 10 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 15 - trigger2 = 0 - trigger3 = 0 - - - - '---------------------------------------------------------------------------- - CASE IS = 15 - - startfight% = 500 - ring% = 650 - midstage = 4 - - zoom = .01 - panx = -200 - pany = -50 - panh = 0 - panv = 0 - zoomd = .01 - zoomt = .003 - - floor1 = -400 - floor2 = -400 - bob = 10 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = -100 - - - - - - - - '---------------------------------------------------------------------------- - - 'Dojo - CASE IS = 1000 - startfight% = 1 - ring% = 200 - midstage = 6 - - zoom = .1 - panx = 0 - pany = -100 - panh = 0 - panv = .5 - zoomd = 0 - zoomt = .03 - - floor1 = 0 - floor2 = 0 - bob = 15 - gravity = 1 - - wx = 0 - wy = 0 - wz = 0 - - trigger1 = 0 - trigger2 = 0 - trigger3 = 0 - - - - '---------------------------------------------------------------------------- -END SELECT - -fighterinit - - -END SUB - -SUB stageshifting -IF ticker% < 32767 THEN ticker% = ticker% + 1 -IF ticker% = 1 OR ticker% = 10 THEN setstagename (stage%): fightername (2) -SELECT CASE stage% - - - '---------------------------------------------------------------------------- - CASE IS = 1 - - IF trigger1 > 0 THEN trigger1 = trigger1 - 1 - - IF ticker% = 150 THEN camode% = 1 - IF headless%(1) = 0 AND headless%(2) = 0 THEN - IF health%(2) = 0 THEN camode% = 2 - IF health%(1) = 0 THEN camode% = 3 - END IF - - FOR wee = 1 TO 2 - IF butty(wee) > 75 THEN particle (buttx(wee) + ((RND - .5) * 10)), (foot1y(wee + 2)), (fighterz(wee)), 17, 1: particle (buttx(wee)), (butty(wee) - (RND * 10)), (fighterz(wee)), 18, 1 - NEXT wee - - 'lightning - IF RND < .01 THEN trigger1 = 5 - IF trigger1 > 0 THEN - IF RND > .5 THEN pslightning 0, -25, 7, ((RND - .5) * 200), -500, 0, 75, flash1% ELSE pslightning 0, -25, 7, ((RND - .5) * 200), -500, 0, 75, flash2% - END IF - - 'Pop Fighters - IF ticker% = 100 THEN fighterpop 1: fighterpop 2 - IF ticker% < 100 THEN - psline -9 + (RND - .5), -20 + (RND - .5), 7, 9, -20, 7, flash2%, 0 - psline -6 + (RND - .5), -35 + (RND - .5), 7, 0, -12, 7, flash2%, 0 - psline 6 + (RND - .5), -35 + (RND - .5), 7, 0, -12, 7, flash2%, 0 - psline -6 + (RND - .5), -35 + (RND - .5), 7, 9, -20, 7, flash2%, 0 - psline 6 + (RND - .5), -35 + (RND - .5), 7, -9, -20, 7, flash2%, 0 - pscircle 0 + (RND - .5), -25 + (RND - .5), 7, 10, flash2% - END IF - - IF ticker% > 70 AND ticker% < 100 THEN - FOR wee = 1 TO 2 - particle headx(wee + 2), heady(wee + 2), fighterz(wee), 15, 3 - pslightning 0, -25, 7, headx(wee + 2), heady(wee + 2), fighterz(wee), 25, flash2% - NEXT wee - END IF - - '---------------------------------------------------------------------------- - CASE IS = 2 - IF ticker% = 200 THEN camode% = 1 - - - '---------------------------------------------------------------------------- - CASE IS = 3 - - IF ticker% = 45 THEN camode% = 1 - FOR wee = 1 TO 2 - IF heady(wee + 2) < -45 THEN heady(wee) = 0: buttv(wee) = 1: health%(wee) = health%(wee) - 5: particle (headx(wee + 2)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - NEXT wee - - '---------------------------------------------------------------------------- - CASE IS = 4 - - 'Camera stuff - IF ticker% = 50 THEN - camode% = 1 - ELSE - IF butty(2) > 50 THEN camode% = 2 - IF butty(1) > 50 THEN camode% = 3 - END IF - - 'Raft moves with current - IF ticker% < 2637 THEN wx = wx + 2 ELSE wx = wx + .2: wy = wy - .4 - - 'Water splashes - FOR wee = 1 TO 2 - IF ticker% < 2300 AND butty(wee) > 25 AND butty(wee) < 35 THEN splash (wee) - IF foot1y(wee + 2) > 950 + wy AND foot1y(wee + 2) < 975 + wy THEN splash wee - NEXT wee - - 'Raft Splashes when hits water - IF ticker% = 576 OR ticker% = 2626 THEN - gravity = 1 - FOR wee = -200 TO 200 STEP 25 - particle wee, 0, 5, 11, 1 - particle wee, 10, 3, 11, 2 - NEXT wee - END IF - - - '----------------+ - IF ticker% < 1500 THEN - '----1st Half - - 'First drop - IF ticker% > 550 AND ticker% < 575 THEN - wy = wy - 4 - IF odds% = 1 THEN particle 100 + (RND * 100), 20, 3, 13, 1: particle 100 + (RND * 100), 20, 5, 13, 2 - END IF - - - 'Slope - IF ticker% > 1000 THEN - wy = wy - .2 - IF RND < .05 THEN particle (RND * 200), 20, 3, 11, 1: particle (RND * 200), 20, 5, 11, 2 - END IF - - '----------------+ - ELSE - '----2nd Half - - 'Tilt raft at waterfall - IF ticker% > 2450 AND ticker% < 2625 THEN bobm = 0: bob = bob - .14 - - 'Low G and effects of waterfall - IF ticker% > 2550 AND ticker% < 2625 THEN - gravity = .5 - wy = wy - 10 - IF RND < .2 THEN particle 200, 0, 3, 12, 1: particle 200, 0, 5, 12, 1 - END IF - - 'Drown PLayers at end - IF foot1y(3) > 1000 + wy AND foot1y(3) > 1000 + wy THEN health%(1) = health%(1) - 1: health%(2) = health%(2) - 1: gravity = .5 - - - '----------------+ - END IF - '---------------------------------------------------------------------------- - CASE IS = 5 - - IF ticker% < 75 THEN wx = wx - 10: panh = -8.05 ELSE IF ticker% > 75 AND ticker% < 100 THEN wx = wx - 3 - IF ticker% > 100 AND ticker% < 125 THEN panh = panh / 1.06 - IF ticker% = 175 THEN camode% = 1 - - IF ticker% > 1600 THEN wy = wy - .1 - IF ticker% > 1625 AND ticker% < 1675 THEN trigger2 = trigger2 + .04 - IF ticker% > 1650 AND ticker% < 1700 THEN trigger1 = trigger1 - .5 - IF stagedetail% = 1 THEN - IF ticker% > 1800 AND ticker% < 2080 THEN wy = wy - 2: IF RND < .4 THEN particle -85, -85 + wy, 12.5, 8, 1: particle 85, -85 + wy, 12.5, 8, 1 - IF ticker% = 2100 THEN particle 0, -85 + wy, 13, 5, 50 - END IF - - 'Wall Stopping - FOR wee = 1 TO 2 - IF (buttx(wee)) < -400 THEN buttx(wee) = -400: neckx(wee) = 0: butth(wee) = 0 - NEXT wee - - - '---------------------------------------------------------------------------- - CASE IS = 6 - - IF ticker% = 50 THEN camode% = 1 - IF headless%(1) = 0 AND headless%(2) = 0 THEN - IF health%(2) = 0 THEN camode% = 2 - IF health%(1) = 0 THEN camode% = 3 - END IF - - - FOR wee = 1 TO 2 - IF (buttx(wee)) < -ring% THEN buttx(wee) = -ring%: butth(wee) = 0 - - IF (buttx(wee)) < -ring% + 10 AND butty(wee) > -165 THEN - health%(wee) = health%(wee) - 1 - fighterfreeze (wee) - buttv(wee) = -gravity - butth(wee) = butth(wee) + .01 - particle (buttx(wee)), (butty(wee) + (RND * necky(wee))), (fighterz(wee)), 4, 1 - END IF - - IF (buttx(wee)) > ring% THEN buttx(wee) = ring%: butth(wee) = 0 - - IF (buttx(wee)) > ring% - 10 AND butty(wee) > -165 THEN - health%(wee) = health%(wee) - 1 - fighterfreeze (wee) - buttv(wee) = -gravity - butth(wee) = butth(wee) - .01 - particle (buttx(wee)), (butty(wee) + (RND * necky(wee))), (fighterz(wee)), 3, 1 - END IF - - IF heady(wee + 2) < -300 THEN heady(wee) = 0: buttv(wee) = 1: health%(wee) = health%(wee) - 5: particle (headx(wee + 2)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - NEXT wee - - - '---------------------------------------------------------------------------- - CASE IS = 7 - - IF ticker% = 100 THEN camode% = 1 - IF wx <= 0 THEN trigger1 = .5 - IF wx > ring% THEN trigger1 = -.1 - wx = wx + trigger1 - - FOR wee = 1 TO 2 - IF ABS(buttx(wee)) > ABS(wx) AND ABS(butth(wee)) > 1 THEN health%(wee) = health%(wee) - ABS(butth(wee) * 5): particle (buttx(wee)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - - IF (buttx(wee)) < -wx THEN buttx(wee) = -wx: butth(wee) = 0: neckx(wee) = 0 - IF (buttx(wee)) > wx THEN buttx(wee) = wx: butth(wee) = 0: neckx(wee) = 0 - - 'Crush - IF wx < 3 THEN - health%(wee) = health%(wee) - 2 - position%(wee) = 1 - buttv(wee) = -gravity - IF RND < .5 THEN butty(wee) = butty(wee) + ((RND - .5) * 10) - particle (headx(wee + 2)), (butty(wee)), (fighterz(wee)), 2, 3 - particle (headx(wee + 2)), (heady(wee + 2) + (RND * 20)), (fighterz(wee)), 1, 1 - END IF - - IF heady(wee + 2) < -300 THEN heady(wee) = 0: buttv(wee) = 1: health%(wee) = health%(wee) - 5: particle (headx(wee + 2)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - NEXT wee - - '---------------------------------------------------------------------------- - CASE IS = 8 - IF ticker% = 1 THEN camode% = 1 - IF ticker% = 40 THEN panv = 0 - - '---------------------------------------------------------------------------- - CASE IS = 9 - - IF ticker% = 45 THEN: panh = -35: panv = -5 - IF ticker% = 55 THEN panh = 0: camode% = 1 - IF headless%(1) = 0 AND headless%(2) = 0 THEN - IF health%(2) = 0 THEN camode% = 2 - IF health%(1) = 0 THEN camode% = 3 - END IF - - 'Shock Jumping - IF butty(1) > 80 OR butty(2) > 80 THEN - IF buttx(1) - buttx(2) < 100 AND buttx(2) - buttx(1) < 100 THEN - health%(1) = health%(1) - 2 - health%(2) = health%(2) - 2 - pslightning neckx(3), heady(3) + (RND * 25), fighterz(1), neckx(4), heady(4) + (RND * 25), fighterz(2), 50, flash2% - END IF - END IF - - - FOR wee = 1 TO 2 - IF position%(wee) < 8 OR position%(wee) > 11 THEN - IF ABS(buttx(wee)) < ABS(ring%) AND foot1y(wee + 2) > ((buttx(wee) * trigger1) / 300) - 2 THEN trigger2 = trigger2 + buttx(wee) / 5000: butth(wee) = butth(wee) + (trigger1 / 2500) - END IF - NEXT wee - - trigger2 = trigger2 / 1.05 - - IF ABS(trigger1) > 75 THEN trigger2 = 0: IF trigger1 > 0 THEN trigger1 = 75 ELSE trigger1 = -75 - - trigger1 = trigger1 + trigger2 - - - '---------------------------------------------------------------------------- - CASE IS = 10 - - IF ticker% < 75 THEN panv = 1 - IF ticker% = 75 THEN camode% = 1 - IF headless%(1) = 0 AND headless%(2) = 0 THEN - IF health%(2) = 0 THEN camode% = 2 - IF health%(1) = 0 THEN camode% = 3 - END IF - - trigger2 = trigger2 - .01 - trigger1 = trigger1 + trigger2 - IF trigger1 < 0 THEN trigger2 = .25: wx = -wx - - 'Color Change - IF RND < .05 THEN - SELECT CASE trigger3 - CASE IS = 4: trigger3 = 12 - CASE IS = 12: trigger3 = 15 - END SELECT - END IF - - 'Hack - IF trigger1 < .5 THEN - FOR wee = 1 TO 2 - IF butty(wee) > -35 AND ABS(buttx(wee)) < 10 AND position%(wee) <> 8 AND position%(wee) <> 10 THEN - soundticker% = 0: sbfx 17 - health%(wee) = health%(wee) - 15 - ko(wee) = ko(wee) - 3 - particle (headx(wee + 2)), -20, 7, 1, 10 - particle (headx(wee + 2)), -20, 7, 18, 10 - trigger3 = 4 - buttv(wee) = buttv(wee) - (RND * 3) - neckx(wee) = neckx(wee) + ((RND - .5) * 5) - END IF - NEXT wee - END IF - - 'Wall Stopping - FOR wee = 1 TO 2 - IF ABS(buttx(wee)) > ABS(ring%) AND ABS(butth(wee)) > 1 THEN health%(wee) = health%(wee) - ABS(butth(wee) * 5): particle (buttx(wee)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - - IF (buttx(wee)) < -ring% THEN buttx(wee) = -ring%: butth(wee) = 0: neckx(wee) = 0 - IF (buttx(wee)) > ring% THEN buttx(wee) = ring%: butth(wee) = 0: neckx(wee) = 0 - NEXT wee - - - '---------------------------------------------------------------------------- - CASE IS = 11 - IF ticker% = 1 THEN ring% = 1500 - IF ticker% = 50 THEN camode% = 1 - FOR wee = 1 TO 2 - IF buttx(wee) < -1500 THEN buttx(wee) = -1500 - IF buttx(wee) > 1500 THEN buttx(wee) = 1500 - NEXT wee - - '---------------------------------------------------------------------------- - CASE IS = 12 - IF ticker% = 1 THEN camode% = 1 - - FOR wee = 1 TO 2 - IF buttx(wee) < -1500 THEN buttx(wee) = -1500 - IF buttx(wee) > 1500 THEN buttx(wee) = 1500 - NEXT wee - - - 'Fall Off Building - IF floor1 < 0 THEN - FOR wee = 1 TO 2 - IF ABS(buttx(wee)) > 400 THEN butth(wee) = -butth(wee) - IF butty(wee) > floor1 AND ABS(buttx(wee)) < ring% THEN butth(wee) = -butth(wee) - - IF butty(wee) > -450 AND butty(wee) < -400 THEN fall (wee) - IF butty(wee) > -50 THEN - health%(wee) = 0 - butty(wee) = 0 - buttv(wee) = 0 - decap (wee) - FOR n% = 1 TO 10 - particle buttx(wee) + ((RND - .5) * 20), -5, fighterz(wee), 2, 1 - smear buttx(wee) + ((RND - .5) * 30), 0, fighterz(wee) + (RND - .5), 12 - NEXT n% - END IF - NEXT wee - - IF butty(1) = 0 AND butty(2) = 0 THEN camode% = 1: floor1 = 0: ring% = 1500 - END IF - - IF floor1 = 0 AND health%(1) = 100 AND health%(2) = 100 THEN midstage = 7 - - - '---------------------------------------------------------------------------- - CASE IS = 13 - - IF ticker% = 10 THEN - buttv(1) = -15 - buttv(2) = -15 - FOR wee = -10 TO 10 STEP 2 - particle (buttx(1) + wee), 0, 4, 24, 1 - particle (buttx(2) + wee), 0, 4, 24, 1 - NEXT wee - END IF - - IF ticker% = 25 THEN - floor1 = 0 - floor2 = 0 - camode% = 1 - END IF - - 'Lightning strikes tree - IF ticker% > 399 AND ticker% < 415 THEN - IF ticker% = 400 THEN bgcolor% = 19: trigger1 = 15: trigger2 = 8: blur 5: soundticker% = 0: sbfx 17 - pslightning 100 + (RND * 15), -90, 5, 135 + (RND * 15), RND * 5, 5, 50, flash1% - pslightning -300, -200, 5, 140, 0, 5, 50, flash2% - particle 105 + (RND * 35), -(RND * 70), 4.5, 9, 1 - particle 115 + (RND * 30), -(RND * 30), 4.5, 15, 1 - particle 115 + (RND * 30), -(RND * 50), 4.5, 16, 1 - END IF - - 'Normal Lightning - IF RND < .1 THEN - IF RND < .3 THEN - bgcolor% = 1 - n% = ((RND - .5) * 500) - pslightning (n%), (-300), (5 + (RND * 20)), (n%), (0), (5 + (RND * 20)), (100), (flash2%) - ELSE - pslightning ((RND - .5) * 800), (-200), (10 + (RND * 10)), ((RND - .5) * 800), (-200), (10 + (RND * 10)), (75), (flash2%) - END IF - END IF - - - 'Rain - IF trigger3 < .02 THEN trigger3 = trigger3 + .00001 - starsoffset (trigger3 / 8), (trigger3) - - - '---------------------------------------------------------------------------- - CASE IS = 14 - - IF ticker% < 60 THEN - camode% = 0 - panh = -panx / 1000 - IF pany > 475 THEN panv = 0 - END IF - - IF ticker% = 75 THEN camode% = 1 - IF ticker% = 75 THEN trigger1 = 1 - - - FOR wee = 1 TO 2 - 'Burning Feet - IF ABS(buttx(wee)) > 110 AND foot1y(wee + 2) > 495 THEN - IF RND < .1 THEN health%(wee) = health%(wee) - 1 - IF RND < .5 THEN particle (buttx(wee) + ((RND - .5) * 5)), (500), (fighterz(wee)), 16, 1 - END IF - - 'Wall Stopping - IF ABS(buttx(wee)) > 175 AND ABS(butth(wee)) > 1 THEN health%(wee) = health%(wee) - ABS(butth(wee) * 5): particle (buttx(wee)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - IF (buttx(wee)) < -175 THEN buttx(wee) = -175: butth(wee) = 0: neckx(wee) = 0 - IF (buttx(wee)) > 175 THEN buttx(wee) = 175: butth(wee) = 0: neckx(wee) = 0 - - NEXT wee - - - - - - '---------------------------------------------------------------------------- - CASE IS = 15 - - IF ticker% <= 450 THEN - - IF ticker% = 1 THEN floor1 = 0: floor2 = 0 - IF ticker% > 50 AND ticker% < 100 THEN LOCATE 10: COLOR 15: PRINT "This place is rank!" - IF ticker% > 125 AND ticker% < 150 THEN butth(1) = 8 - IF ticker% > 175 AND ticker% < 225 THEN LOCATE 10, 65: COLOR 4: PRINT "I smell blood!" - IF ticker% = 175 THEN - midstage = 4.5 - panx = -500 - panh = 5 - buttx(1) = -375 - butth(1) = 30 - fighterz(1) = 5.5 - buttx(2) = 75 - END IF - IF ticker% = 400 THEN camode% = 3: zoomd = -.008 - IF ticker% > 200 AND ticker% <= 300 THEN trigger3 = trigger3 + 1 - IF ticker% > 250 AND ticker% < 350 THEN LOCATE 10, 50: COLOR 4: PRINT "I don't know who you are..." - IF ticker% > 350 AND ticker% < 400 THEN LOCATE 10, 60: COLOR 4: PRINT "But your dead!" - IF ticker% = 450 THEN camode% = 1: zoomt = .02 - - - - ELSE - - FOR wee = 1 TO 2 - 'Hit Head On Roof - IF heady(wee + 2) < -200 THEN heady(wee) = 0: buttv(wee) = 2: health%(wee) = health%(wee) - 8: particle (headx(wee + 2)), (heady(wee + 2)), (fighterz(wee)), 18, 20 - - 'Wall Stopping - IF ABS(buttx(wee)) > 200 AND ABS(butth(wee)) > 1 THEN health%(wee) = health%(wee) - ABS(butth(wee) * 5): particle (buttx(wee)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - IF (buttx(wee)) < -200 THEN buttx(wee) = -200: butth(wee) = 0: neckx(wee) = 0 - IF (buttx(wee)) > 200 THEN buttx(wee) = 200: butth(wee) = 0: neckx(wee) = 0 - - NEXT wee - - END IF - - '----------------------------------------------------------------------- Dojo - CASE IS = 1000 - - IF ticker% = 1 THEN health%(2) = maxhp%(2): ko(2) = 75 - - IF ticker% >= 0 AND ticker% < 100 THEN - COLOR 15: LOCATE 4 - PRINT "Welcome to Master Bean's Dojo." - END IF - - IF ticker% = 100 THEN control% = 1 - - IF ticker% >= 100 AND ticker% < 300 THEN - COLOR 15: LOCATE 4 - PRINT "If you would like to learn to fight" - PRINT "come over here and hit me!" - PRINT "Otherwise I'm giving you a tutorial." - END IF - - IF ticker% = 300 THEN - ticker% = 2 - IF health%(2) < maxhp%(2) THEN - stage% = 1002 - ELSE - stage% = 1001 - END IF - END IF - - - - '------------------------------------------------------------------- Tutorial - CASE IS = 1001 - - IF ticker% = 3 THEN hands%(1) = 4: feet%(1) = 1: body%(1) = 2: head%(1) = 4 - - IF ticker% < 200 THEN - COLOR 15: LOCATE 4 - PRINT "Tutorial it is. You're wise to seek" - PRINT "guidance before getting your head removed." - END IF - - IF ticker% = 200 THEN panh = 1: zoomd = -.005 - - IF ticker% >= 200 AND ticker% < 300 THEN - COLOR 15: LOCATE 4 - PRINT "My name is Master Bean. I intend to" - PRINT "to teach some basics or kill you trying." - END IF - - IF ticker% = 300 THEN panh = 0 - - IF ticker% >= 300 AND ticker% < 400 THEN - COLOR 15: LOCATE 4 - PRINT "Let us begin." - END IF - - IF ticker% = 400 THEN panh = -2: control% = 1 - IF ticker% = 450 THEN camode% = 2 - - IF ticker% >= 400 AND ticker% < 500 THEN - COLOR 15: LOCATE 4 - PRINT "Try moving around using the Number Pad." - END IF - - IF ticker% >= 500 AND ticker% < 700 THEN - COLOR 15: LOCATE 4 - PRINT "Try pressing Q or W." - END IF - - IF ticker% >= 700 AND ticker% < 900 THEN - COLOR 15: LOCATE 4 - PRINT "These are your Punches." - END IF - - IF ticker% >= 900 AND ticker% < 1100 THEN - COLOR 15: LOCATE 4 - PRINT "A and S are Kicks." - END IF - - IF ticker% >= 1100 AND ticker% < 1300 THEN - COLOR 15: LOCATE 4 - PRINT "Note that keys 5 and 2 both Crouch." - END IF - - IF ticker% >= 1300 AND ticker% < 1500 THEN - COLOR 15: LOCATE 4 - PRINT "Try pressing 5 then immediately" - PRINT "press S. This will do a Sweep." - END IF - - IF ticker% = 1500 THEN camode% = 1 - - IF ticker% >= 1500 AND ticker% < 1700 THEN - COLOR 15: LOCATE 4 - PRINT "Go ahead and try to sweep me." - PRINT "I won't kill you just yet." - END IF - - IF ticker% = 1700 THEN trigger1 = health%(2) - - IF ticker% >= 1700 AND ticker% < 1900 THEN - COLOR 15: LOCATE 4 - PRINT "Okay, Now I want you to try an Uppercut." - PRINT "Get close and Press 5 then W." - END IF - - IF ticker% >= 1900 AND ticker% < 2000 THEN - COLOR 15: LOCATE 4 - IF health%(2) = trigger1 THEN - PRINT "Come on, hit me!" - ELSE - PRINT "Very Nice!" - END IF - END IF - - - IF ticker% >= 2000 AND ticker% < 2200 THEN - COLOR 15: LOCATE 4 - PRINT "Now I want you to press E." - PRINT "This will put you in Special Mode." - END IF - - IF ticker% >= 2200 AND ticker% < 2400 THEN - COLOR 15: LOCATE 4 - PRINT "Notice the indicator in the corner" - PRINT "of the screen when you press E." - END IF - - IF ticker% >= 2400 AND ticker% < 2600 THEN - COLOR 15: LOCATE 4 - PRINT "Now try pressing Q while in" - PRINT "Special Mode to throw Ball Lightning." - END IF - - IF ticker% >= 2600 AND ticker% < 3000 THEN - COLOR 15: LOCATE 4 - PRINT "Remember that when you do a" - PRINT "Special move you exit Special Mode." - PRINT "Try your other Special Moves by" - PRINT "using other attack keys." - END IF - - IF ticker% >= 3000 AND ticker% < 3200 THEN - COLOR 15: LOCATE 4 - PRINT "Try doing a Nee Bash." - PRINT "Get close to me and press E then S." - END IF - - IF ticker% = 3150 THEN control% = 0: fighterfreeze (1) - - IF ticker% = 3200 THEN position%(2) = 86 - - IF ticker% >= 3250 AND ticker% < 3400 THEN - COLOR 15: LOCATE 4 - PRINT "That's for kicking my ass so bad!" - control% = 1 - END IF - - IF ticker% >= 3400 AND ticker% < 3500 THEN - COLOR 15: LOCATE 4 - PRINT "Stand back and watch." - END IF - - IF ticker% = 3480 THEN position%(2) = 82: trigger1 = health%(1) - - IF ticker% >= 3500 AND ticker% < 3600 THEN - COLOR 15: LOCATE 4 - IF trigger1 > health%(1) THEN - PRINT "I told you to sand back!" - ELSE - PRINT "I'm glad you didn't eat that." - END IF - END IF - - IF ticker% = 3600 THEN rage(1) = 100 - - IF ticker% >= 3600 AND ticker% < 3800 THEN - COLOR 15: LOCATE 4 - PRINT "That was an Energy Blast." - PRINT "I want you to try now. Press D" - END IF - - IF ticker% = 3900 THEN control% = 0: camode% = 2 - - IF ticker% >= 3800 AND ticker% < 4000 THEN - COLOR 15: LOCATE 4 - PRINT "The Energy Blast is a type of Super" - PRINT "move. See the bar at the bottom left?" - END IF - - IF ticker% >= 4000 AND ticker% < 4200 THEN - COLOR 15: LOCATE 4 - PRINT "That is your level of Rage." - PRINT "Your Rage builds at a constant rate." - END IF - - IF ticker% >= 4200 AND ticker% < 4400 THEN - COLOR 15: LOCATE 4 - PRINT "When your Rage is at it's full you" - PRINT "may release it as a Super like the" - PRINT "Energy Blast." - END IF - - IF ticker% >= 4400 AND ticker% < 4600 THEN - COLOR 15: LOCATE 4 - PRINT "At the top of the screen are your" - PRINT "Health and Awareness bars." - END IF - - IF ticker% >= 4600 AND ticker% < 4800 THEN - COLOR 15: LOCATE 4 - PRINT "When your out of Health your Dead." - PRINT "If the Awareness is gone your KO." - END IF - - IF ticker% >= 4800 AND ticker% < 5000 THEN - COLOR 15: LOCATE 4 - PRINT "...and remember dead people don't" - PRINT "have a chance at Round Two." - END IF - - IF ticker% >= 5000 AND ticker% < 5200 THEN - COLOR 15: LOCATE 4 - PRINT "At the very top of the screen is" - PRINT "the current cycles per second." - END IF - - IF ticker% >= 5200 AND ticker% < 5400 THEN - COLOR 15: LOCATE 4 - PRINT "If the indicator is Red, the game" - PRINT "is going too slow or too fast." - END IF - - IF ticker% >= 5400 AND ticker% < 5600 THEN - COLOR 15: LOCATE 4 - PRINT "You can adjust this by changing" - PRINT "settings in the options menus." - END IF - - IF ticker% >= 5600 AND ticker% < 5800 THEN - COLOR 15: LOCATE 4 - PRINT "A true warrior knows when to be offensive" - PRINT "and when to be defensive." - END IF - - IF ticker% = 5800 THEN control% = 1 - - IF ticker% >= 5800 AND ticker% < 6200 THEN - COLOR 15: LOCATE 4 - PRINT "When you are in Special Mode your" - PRINT "awareness level does not recharge." - PRINT "Futher more, when you preform most" - PRINT "special moves your awareness drops." - END IF - - IF ticker% >= 6200 AND ticker% < 6400 THEN - COLOR 15: LOCATE 4 - PRINT "A failed attack may actually benefit" - PRINT "your opponent! Be wise choosing your" - PRINT "attacks." - END IF - - IF ticker% >= 6400 AND ticker% < 6600 THEN - COLOR 15: LOCATE 4 - PRINT "This is the end of the lesson." - PRINT "Prepare for a real fight!" - END IF - - IF ticker% = 6600 THEN setfighter: camode% = 1 - - IF ticker% > 6600 THEN - IF ticker% < 6650 THEN COLOR 15: LOCATE 4: PRINT "End of Lesson!" - elbow1x(2) = 0 - elbow1y(2) = -5 - hand1x(2) = 0 - hand1y(2) = -4 - pslightning (hand1x(4)), (hand1y(4)), (midstage), (headx(3)), (heady(3)), (midstage), 50, flash2% - health%(1) = health%(1) - 5 - END IF - - - - - 'Death's and KO's - IF health%(1) <= 0 AND ticker% < 6600 THEN LOCATE 10: PRINT "Shit! Your no better then the rest!": PRINT "Get out of here!" - IF health%(2) <= 0 THEN LOCATE 10: PRINT "Damn the dishonor! I've been beat by my own student!" - - IF ko(1) <= 0 THEN - LOCATE 10 - IF win%(2) < 2 THEN - PRINT "Get up you wuss! Your better then that!" - ELSE - PRINT "Your no fighter! Get out of my dojo!" - END IF - END IF - - - 'Avoid Projectile - IF projectile%(1) > 0 AND position%(2) = 1 AND projectilex(1) > buttx(2) - 75 AND projectilex(1) < buttx(2) + 75 THEN jump 2, 2 - - - 'P2 Health/KO - IF health%(2) < 25 AND position%(1) = 1 THEN position%(2) = 84 - IF ko(2) < 25 THEN ko(2) = 25 - - 'Wall Stopping - IF ticker% < 6400 THEN - FOR wee = 1 TO 2 - IF ABS(buttx(wee)) > ABS(ring%) AND ABS(butth(wee)) > 1 THEN health%(wee) = health%(wee) - ABS(butth(wee) * 5): particle (buttx(wee)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - - IF (buttx(wee)) < -ring% THEN buttx(wee) = -ring%: butth(wee) = 0: neckx(wee) = 0 - IF (buttx(wee)) > ring% THEN buttx(wee) = ring%: butth(wee) = 0: neckx(wee) = 0 - NEXT wee - END IF - - '------------------------------------------------------------------- Training - CASE IS = 1002 - - IF ticker% < 100 THEN - COLOR 15: LOCATE 4 - IF position%(1) > 1 THEN - IF position%(2) = 1 AND pticker%(2) > 75 THEN position%(2) = 37 - PRINT "Calm Yourself!" - ELSE - PRINT "Training Begins." - END IF - END IF - - IF ticker% = 200 THEN camode% = 1: zoomd = -.006: AIactive%(2) = 1 - - IF ticker% >= 200 AND ticker% < 400 THEN - COLOR 15: LOCATE 4 - PRINT "Press Esc when you've had enough." - END IF - - 'Inc. difficulty - trigger1 = trigger1 + 1 - IF trigger1 = 1000 THEN - SCREEN , , 0, 0 - trigger1 = 0: LOCATE 4 - IF dif% < 10 THEN - dif% = dif% + 1 - SELECT CASE INT(RND * 5) + 1 - CASE 1: PRINT "I see you didn't come to play games." - CASE 2: PRINT "Alright, let's see what you got!" - CASE 3: PRINT "Your advancing well." - CASE 4: PRINT "Don't back down now." - CASE 5: PRINT "Let me teach you about pain!" - END SELECT - PRINT "(Difficulty Increase)" - ELSE - PRINT "You've had enough training." - END IF - FOR wee = 0 TO 10: wee$ = INKEY$: NEXT wee: wee$ = "" - SLEEP - END IF - - 'Health/KO - IF health%(1) < 50 AND position%(1) = 1 THEN position%(1) = 84 - IF health%(2) < 50 AND position%(2) = 1 THEN position%(2) = 84 - IF ko(2) < 25 THEN ko(2) = 25 - - 'Wall Stopping - FOR wee = 1 TO 2 - IF ABS(buttx(wee)) > ABS(ring%) AND ABS(butth(wee)) > 1 THEN health%(wee) = health%(wee) - ABS(butth(wee) * 5): particle (buttx(wee)), (heady(wee + 2)), (fighterz(wee)), 1, 5 - - IF (buttx(wee)) < -ring% THEN buttx(wee) = -ring%: butth(wee) = 0: neckx(wee) = 0 - IF (buttx(wee)) > ring% THEN buttx(wee) = ring%: butth(wee) = 0: neckx(wee) = 0 - NEXT wee - - 'Death's and KO's - IF health%(1) <= 5 THEN LOCATE 10: PRINT "Your good for nothing when your dead!" - IF health%(2) <= 5 THEN LOCATE 10: PRINT "The gods must be with you..." - - IF ko(1) <= 0 THEN - LOCATE 10 - PRINT "C'Mon grandma throw some punches!" - END IF - - - '---------------------------------------------------------------------------- -END SELECT -END SUB - -SUB stagewindow (mode%) - -IF mode% = 1 THEN - FOR wee = 10 TO 90 STEP 2 - LINE (wee, 25)-(wee + 2, 45), 7, BF - LINE (wee, 65)-(wee + 2, 75), 7, BF - LINE (wee, 25)-(wee - 2, 75), 0, BF - NEXT wee - LINE (wee, 25)-(wee - 2, 75), 0, BF -END IF - - -IF mode% = 2 THEN - FOR wee = 90 TO 10 STEP -2 - LINE (wee, 25)-(wee - 2, 45), 7, BF - LINE (wee, 65)-(wee - 2, 75), 7, BF - LINE (wee, 25)-(wee + 2, 75), 0, BF - NEXT wee - LINE (wee, 25)-(wee + 2, 75), 0, BF -END IF - - -wee = 0 -FOR y = 20 TO 50 STEP 30 - FOR x = 5 TO 65 STEP 30 - wee = wee + 1 - LINE (x + 5, y + 5)-(x + 25, y + 25), 7, B - IF i16m% = 0 THEN i16 x + 6, y + 6, .363, .355, "stage" + STR$((wee + stageset%) * -1) - NEXT x -NEXT y -END SUB - -SUB stars2d (c1%, c2%, c3%) -REM-----------------------------------------------Draw stars - -WINDOW SCREEN(0, 0)-(1, 1) - -FOR wee = 1 TO nstars% - PSET (stars1x(wee), stars1y(wee)), c1% - PSET (stars2x(wee), stars2y(wee)), c2% - PSET (stars3x(wee), stars3y(wee)), c3% -NEXT wee - -CALL window3d -END SUB - -SUB stars3d (x1, y1, z1, x2, y2, z2, c1%, c2%, c3%) -REM-----------------------------------------------Draw stars - -x2 = x2 - x1 -y2 = y2 - y1 -z2 = z2 - z1 - -FOR wee = 1 TO nstars% - x3 = x1 + (stars1x(wee) * x2) - y3 = y1 + (stars1y(wee) * y2) - z3 = z1 + (stars1z(wee) * z2) - pspset (x3), (y3), (z3), c1% - - x3 = x1 + (stars2x(wee) * x2) - y3 = y1 + (stars2y(wee) * y2) - z3 = z1 + (stars2z(wee) * z2) - pspset (x3), (y3), (z3), c2% - - x3 = x1 + (stars3x(wee) * x2) - y3 = y1 + (stars3y(wee) * y2) - z3 = z1 + (stars3z(wee) * z2) - pspset (x3), (y3), (z3), c3% -NEXT wee - -END SUB - -SUB starsoffset (x, y) -FOR wee = 1 TO nstars% - stars1x(wee) = stars1x(wee) + x - stars2x(wee) = stars2x(wee) + (x + x + x) - stars3x(wee) = stars3x(wee) + (x + x + x + x + x) - stars1y(wee) = stars1y(wee) + y - stars2y(wee) = stars2y(wee) + (y + y + y) - stars3y(wee) = stars3y(wee) + (y + y + y + y + y) - - IF x < 0 THEN - IF stars1x(wee) < 0 THEN stars1x(wee) = 1 - IF stars2x(wee) < 0 THEN stars2x(wee) = 1 - IF stars3x(wee) < 0 THEN stars3x(wee) = 1 - ELSE - IF stars1x(wee) > 1 THEN stars1x(wee) = 0 - IF stars2x(wee) > 1 THEN stars2x(wee) = 0 - IF stars3x(wee) > 1 THEN stars3x(wee) = 0 - END IF - - IF y < 0 THEN - IF stars1y(wee) < 0 THEN stars1y(wee) = 1 - IF stars2y(wee) < 0 THEN stars2y(wee) = 1 - IF stars3y(wee) < 0 THEN stars3y(wee) = 1 - ELSE - IF stars1y(wee) > 1 THEN stars1y(wee) = 0 - IF stars2y(wee) > 1 THEN stars2y(wee) = 0 - IF stars3y(wee) > 1 THEN stars3y(wee) = 0 - END IF -NEXT wee - -END SUB - -SUB starsrnd -'-------------------------- Randomize Stars -FOR wee = 1 TO 20 - stars1x(wee) = RND - stars1y(wee) = RND - stars1z(wee) = RND - stars2x(wee) = RND - stars2y(wee) = RND - stars2z(wee) = RND - stars3x(wee) = RND - stars3y(wee) = RND - stars3z(wee) = RND -NEXT wee - -END SUB - -SUB window2d -WINDOW SCREEN(0, 0)-(100, 100) -END SUB - -SUB window3d -WINDOW SCREEN(xx1, yy1)-(xx2, yy2) -END SUB - -SUB winxwiny - -xx1 = midx% - winx -yy1 = midy% - winy -xx2 = midx% + winx -yy2 = midy% + winy -END SUB - diff --git a/programs/samples/qb45com/action/sfb2/sfb2.faq b/programs/samples/qb45com/action/sfb2/sfb2.faq deleted file mode 100644 index 30db5c52f..000000000 --- a/programs/samples/qb45com/action/sfb2/sfb2.faq +++ /dev/null @@ -1,153 +0,0 @@ -SFB2: Vector Warriors FAQ: --------------------------------------------------------+ - - - -------------------+ - -Q: -How come I can't open the stage select window? - -A: -You must first wup-ass through every stage. - - -------------------+ - -Q: -What does SFB stand for? - -A: -Stick Fighters Brawl; Vector Warriors is a sequel to an old fighting game I -made back in the day. - -------------------+ - -Q: -When I installed the game it said it encountered errors, what can you tell me -about that? - -A: -The Install program considers almost anything out of the ordinary an error. -If you install over an old copy of the game or even if the directory already -exist it may report errors. Try running the game, if it works fine, don't -worry about it. Otherwise, check to see if your path is correct. -Note: When typing in the path don't end it with a backslash. - - -------------------+ - -Q: -What else can you tell me about Install? - -A: -If you install to drive C: the program will create a path file in it's root -directory called SFB2.PTH Otherwise you will have to type the path of the -game every time you run it. - - -------------------+ - -Q: -Why do I have to type the path of the game every time I run it? - -A: -See the above Q/A. - - -------------------+ - - -Q: -I keep getting an error message about the SLASH.DAT file? - -A: -The file is missing, out of date, or corrupt. -Save your settings to make a new one. - - -------------------+ - -Q: -The computer always picks goofy colors, why? - -A: -The colors are selected at random, this method isn't always the most -fashionable. In the Build Fighter window you can select Solid from the -Opponent Color option. This will make the fighter various shades of the same -color. - -------------------+ - -Q: -How come whenever I make a new fighter the Stage restarts? - -A: -I didn't think it would be fair to be able to switch parts -(and special moves) during a fight. However, you may change colors, hair etc. - -------------------+ - -Q: -What is QBx.exe? - -A: -This is the file that runs the source code of SFB2. -SFB2 itself isn't an exe file. -Please Read QBx.txt for more information about this file. - - -------------------+ - -Q: -How did you make the graphics? - -A: -The short answer would be, "using my Slash game engine". -Now how Slash works, is a long one. Check out my website and see if I got any -info there about it. -The animation is all vector based instead of using frames resulting in very -fluid movement. To tell you anymore would get to complicated here. - - -------------------+ - -Q: -Is there a way to make the game easier? - -A: -The game get's harder as the stages advance. Other then that there's no way to change the difficulty. Try using different body parts to match your play -style. Avoid being too aggresive or you'll tire yourself. Visit the Dojo. - - - -------------------+ - -Q: -Is there a way to make the game harder? - -A: -Try different body parts and a new approach at fighting styles. - -------------------+ - -Q: -Your e-mail address and/or website URL has changed, how can I contact you? - -A: -Use the following addresses if I've moved; -http://surf.to/expression -lbt1st@cyberdude.com -Those addresses should forward to whatever my new ones are. - - -------------------+ - -Q: -Are there any hidden characters or codes? - -A: -Maybe. - -------------------+ - -End of File \ No newline at end of file diff --git a/programs/samples/qb45com/action/sfb2/sfb2.i16 b/programs/samples/qb45com/action/sfb2/sfb2.i16 deleted file mode 100644 index 40e3e8400..000000000 --- a/programs/samples/qb45com/action/sfb2/sfb2.i16 +++ /dev/null @@ -1,18988 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -7 -7 -7 -7 -7 -8 -8 -8 -8 -8 -7 -7 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -7 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -7 -15 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -7 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -8 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -7 -8 -15 -15 -7 -8 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -15 -15 -15 -15 -8 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -0 -0 -8 -8 -7 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -7 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -8 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -0 -0 -0 -8 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -7 -15 -8 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -15 -15 -7 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -0 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -8 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -0 -8 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -8 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -8 -0 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -8 -7 -15 -15 -15 -15 -15 -8 -8 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -8 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -15 -8 -15 -15 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -7 -8 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -8 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -7 -7 -15 -15 -15 -15 -15 -15 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -7 -12 -12 -4 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -7 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -4 -0 -0 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -12 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -12 -0 -0 -8 -15 -15 -15 -15 -15 -15 -12 -12 -15 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -15 -15 -15 -15 -12 -12 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -12 -7 -15 -15 -15 -12 -12 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -12 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -8 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -15 -15 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -12 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -4 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -7 -15 -12 -8 -8 -8 -8 -8 -8 -0 -15 -7 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -4 -12 -4 -4 -4 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -12 -12 -15 -12 -4 -12 -4 -4 -4 -4 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -12 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -8 -12 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -12 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/sfb2.jpg b/programs/samples/qb45com/action/sfb2/sfb2.jpg deleted file mode 100644 index 13a6bee24..000000000 Binary files a/programs/samples/qb45com/action/sfb2/sfb2.jpg and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/sig4.jpg b/programs/samples/qb45com/action/sfb2/sig4.jpg deleted file mode 100644 index a76aa60b3..000000000 Binary files a/programs/samples/qb45com/action/sfb2/sig4.jpg and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/slash.dat b/programs/samples/qb45com/action/sfb2/slash.dat deleted file mode 100644 index e8661201d..000000000 --- a/programs/samples/qb45com/action/sfb2/slash.dat +++ /dev/null @@ -1,3 +0,0 @@ -1,-1,3,50,6,9,0,15,1,3,0,1,1,1,1,0,"Ripper",1 -4,3,3,4,5,1,2,4,1 -3,7,3,7,3,7 diff --git a/programs/samples/qb45com/action/sfb2/slash.i16 b/programs/samples/qb45com/action/sfb2/slash.i16 deleted file mode 100644 index cfb31ef1a..000000000 --- a/programs/samples/qb45com/action/sfb2/slash.i16 +++ /dev/null @@ -1,11500 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -8 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -8 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -7 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -8 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -7 -7 -15 -7 -15 -7 -7 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -8 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -8 -7 -15 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -12 -12 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -7 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -12 -4 -8 -8 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -8 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -8 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -15 -15 -7 -15 -15 -15 -15 -7 -7 -7 -7 -15 -7 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -0 -0 -0 -0 -8 -8 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -7 -7 -15 -15 -15 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -7 -8 -8 -8 -0 -0 -0 -0 -8 -8 -7 -15 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -8 -7 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -8 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/slash.ico b/programs/samples/qb45com/action/sfb2/slash.ico deleted file mode 100644 index 63bd924b7..000000000 Binary files a/programs/samples/qb45com/action/sfb2/slash.ico and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/slash.jpg b/programs/samples/qb45com/action/sfb2/slash.jpg deleted file mode 100644 index 08bb5c551..000000000 Binary files a/programs/samples/qb45com/action/sfb2/slash.jpg and /dev/null differ diff --git a/programs/samples/qb45com/action/sfb2/stage-1.i16 b/programs/samples/qb45com/action/sfb2/stage-1.i16 deleted file mode 100644 index f21ca80a1..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-1.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -1 -9 -15 -1 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -15 -0 -0 -1 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -1 -15 -0 -1 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -1 -15 -0 -1 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -1 -15 -8 -0 -1 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -1 -3 -8 -0 -0 -1 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -0 -1 -8 -9 -0 -0 -1 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -1 -7 -0 -9 -0 -1 -0 -0 -0 -0 -16 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -9 -15 -4 -9 -4 -1 -4 -4 -4 -4 -4 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -0 -0 -15 -0 -0 -1 -1 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -0 -8 -15 -0 -0 -1 -3 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -0 -8 -15 -3 -0 -1 -3 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -0 -0 -8 -15 -0 -0 -9 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -0 -0 -8 -15 -0 -0 -0 -9 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -0 -15 -15 -0 -0 -9 -9 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -15 -7 -0 -0 -3 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -1 -8 -0 -0 -9 -0 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -1 -15 -0 -9 -0 -0 -0 -3 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -4 -15 -4 -3 -4 -9 -8 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -1 -8 -15 -8 -9 -0 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -1 -8 -7 -15 -8 -8 -9 -8 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -1 -9 -9 -7 -9 -8 -8 -9 -8 -1 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -9 -8 -8 -7 -9 -8 -8 -9 -8 -1 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -16 -4 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -9 -9 -9 -9 -1 -8 -8 -8 -7 -9 -8 -8 -9 -1 -8 -8 -8 -8 -8 -8 -8 -8 -8 -4 -4 -4 -4 -4 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -8 -1 -8 -8 -8 -8 -7 -8 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -8 -1 -8 -8 -8 -8 -8 -7 -8 -8 -8 -1 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -8 -1 -8 -7 -15 -7 -8 -8 -9 -8 -8 -8 -1 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -1 -8 -7 -7 -7 -7 -7 -12 -9 -8 -8 -1 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -9 -4 -1 -8 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -9 -7 -12 -8 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -9 -7 -7 -15 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -9 -8 -12 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -9 -15 -15 -15 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -3 -8 -12 -7 -7 -7 -7 -8 -7 -7 -7 -7 -15 -9 -4 -12 -15 -8 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -12 -7 -7 -7 -7 -7 -7 -8 -15 -15 -4 -9 -15 -12 -12 -8 -9 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -12 -7 -7 -7 -7 -7 -7 -12 -15 -12 -15 -9 -12 -15 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -12 -7 -7 -7 -7 -7 -7 -12 -12 -15 -12 -9 -12 -15 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -12 -7 -7 -7 -7 -7 -7 -12 -4 -15 -12 -9 -4 -12 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -12 -7 -7 -7 -7 -7 -7 -12 -4 -15 -15 -4 -12 -15 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -12 -7 -7 -7 -7 -7 -7 -12 -4 -15 -12 -15 -12 -15 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -12 -7 -7 -7 -7 -7 -7 -12 -12 -12 -15 -4 -12 -4 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -12 -7 -7 -7 -7 -7 -7 -12 -15 -4 -12 -4 -4 -15 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -12 -15 -15 -15 -12 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -12 -15 -15 -7 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -12 -15 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-10.i16 b/programs/samples/qb45com/action/sfb2/stage-10.i16 deleted file mode 100644 index b8fd0fcb8..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-10.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -8 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -8 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -15 -15 -15 -15 -7 -7 -7 -8 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -15 -12 -15 -12 -12 -15 -12 -12 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -4 -12 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -4 -4 -4 -4 -4 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -4 -12 -4 -12 -12 -4 -12 -12 -12 -12 -12 -12 -4 -12 -4 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -4 -12 -4 -3 -3 -3 -3 -4 -4 -4 -4 -4 -4 -4 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -4 -3 -4 -3 -4 -4 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -4 -3 -4 -12 -4 -12 -12 -4 -4 -3 -4 -3 -3 -4 -3 -3 -3 -3 -3 -3 -3 -3 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -4 -3 -4 -12 -4 -12 -12 -4 -12 -12 -12 -12 -12 -12 -4 -12 -4 -4 -4 -3 -4 -4 -3 -4 -9 -15 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -4 -4 -3 -3 -4 -4 -3 -3 -4 -4 -3 -4 -4 -4 -3 -4 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -9 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -9 -9 -9 -9 -16 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -16 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -16 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -3 -3 -16 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -3 -9 -15 -15 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -3 -3 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-11.i16 b/programs/samples/qb45com/action/sfb2/stage-11.i16 deleted file mode 100644 index d25998540..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-11.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -9 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -9 -9 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -9 -9 -9 -9 -16 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -9 -9 -9 -9 -16 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -9 -9 -9 -9 -15 -16 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -9 -9 -9 -9 -15 -15 -16 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -9 -9 -9 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -9 -9 -9 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -9 -9 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -9 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -8 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -1 -7 -1 -7 -1 -7 -1 -7 -15 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -1 -1 -1 -1 -1 -1 -1 -1 -15 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -1 -7 -1 -7 -1 -7 -1 -15 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -1 -7 -1 -7 -1 -7 -1 -7 -15 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -9 -9 -9 -9 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -1 -1 -1 -1 -1 -1 -1 -1 -15 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -9 -9 -9 -9 -9 -9 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -1 -7 -1 -7 -1 -7 -1 -15 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -9 -9 -9 -9 -9 -9 -9 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -8 -8 -8 -8 -8 -8 -8 -9 -9 -9 -9 -9 -9 -9 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -7 -7 -7 -7 -7 -7 -7 -8 -15 -15 -9 -9 -9 -9 -9 -9 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -7 -7 -7 -7 -7 -7 -7 -8 -15 -15 -15 -15 -15 -15 -9 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -1 -7 -1 -7 -1 -7 -1 -7 -15 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -7 -15 -8 -15 -7 -0 -0 -7 -0 -0 -7 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -1 -1 -1 -1 -1 -1 -1 -1 -15 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -7 -15 -7 -15 -7 -0 -0 -7 -0 -0 -7 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -1 -7 -1 -7 -1 -7 -1 -15 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -7 -15 -8 -15 -7 -7 -7 -7 -7 -7 -7 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -7 -15 -7 -15 -7 -0 -0 -7 -0 -0 -7 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -0 -7 -0 -8 -0 -8 -0 -8 -7 -15 -15 -15 -7 -0 -0 -7 -0 -0 -7 -8 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -1 -7 -1 -7 -1 -7 -1 -7 -15 -0 -8 -0 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -15 -7 -7 -7 -7 -7 -7 -7 -8 -9 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -1 -1 -1 -1 -1 -1 -1 -1 -15 -8 -0 -8 -0 -7 -8 -8 -8 -8 -8 -8 -7 -15 -8 -15 -7 -7 -7 -7 -7 -7 -7 -8 -9 -9 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -1 -7 -1 -7 -1 -7 -1 -15 -0 -8 -0 -8 -7 -8 -8 -8 -8 -8 -8 -7 -15 -7 -15 -7 -0 -0 -7 -0 -0 -7 -8 -9 -9 -9 -9 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -0 -8 -7 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -7 -0 -0 -7 -0 -0 -7 -8 -15 -9 -9 -9 -9 -9 -15 -15 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -7 -8 -15 -15 -9 -9 -9 -9 -9 -9 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -15 -15 -9 -9 -9 -9 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -9 -9 -9 -9 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -9 -9 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -0 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -9 -9 -16 -8 -0 -8 -0 -8 -0 -8 -0 -8 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -9 -16 -0 -8 -0 -8 -0 -8 -0 -8 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -16 -8 -0 -8 -0 -8 -0 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -16 -0 -8 -0 -8 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -16 -8 -0 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -15 -16 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -15 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -15 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -16 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-12.i16 b/programs/samples/qb45com/action/sfb2/stage-12.i16 deleted file mode 100644 index b25c1eeac..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-12.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -9 -9 -1 -8 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -9 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -9 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -9 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -9 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -9 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -9 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -9 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -9 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -8 -8 -8 -8 -1 -1 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -8 -1 -1 -1 -1 -1 -1 -16 -9 -9 -1 -8 -1 -9 -9 -9 -9 -9 -9 -9 -9 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -1 -8 -0 -15 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -15 -15 -0 -0 -0 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -1 -15 -15 -15 -7 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -15 -0 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -1 -1 -1 -1 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -1 -1 -1 -1 -1 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -1 -1 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -9 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -1 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -9 -9 -1 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -1 -1 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -9 -9 -1 -1 -1 -15 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -15 -0 -0 -1 -8 -1 -1 -1 -8 -8 -8 -16 -1 -1 -1 -8 -1 -9 -1 -1 -1 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -8 -1 -1 -1 -1 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -8 -8 -1 -1 -1 -1 -16 -9 -9 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -1 -1 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -8 -1 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -8 -8 -1 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -1 -8 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -1 -1 -8 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -1 -15 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -15 -0 -0 -1 -1 -1 -1 -8 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -1 -9 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -1 -1 -1 -8 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -1 -9 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -8 -1 -1 -1 -8 -8 -16 -1 -1 -1 -8 -1 -1 -1 -1 -9 -1 -1 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -1 -8 -8 -8 -1 -1 -1 -8 -16 -1 -1 -1 -8 -1 -1 -1 -9 -1 -1 -1 -15 -7 -7 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -1 -1 -1 -16 -1 -1 -1 -8 -1 -1 -9 -1 -1 -1 -1 -15 -7 -7 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -9 -7 -7 -15 -0 -0 -1 -8 -8 -8 -8 -8 -1 -1 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-13.i16 b/programs/samples/qb45com/action/sfb2/stage-13.i16 deleted file mode 100644 index c13be205c..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-13.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -9 -9 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -15 -15 -9 -9 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -15 -15 -0 -0 -9 -9 -9 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -15 -15 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -15 -0 -0 -0 -0 -0 -0 -9 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -0 -15 -0 -0 -0 -0 -9 -9 -0 -0 -0 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -15 -0 -9 -9 -9 -0 -0 -0 -0 -0 -15 -15 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -9 -15 -9 -0 -0 -0 -0 -0 -15 -15 -0 -0 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -9 -0 -15 -0 -0 -0 -15 -9 -9 -9 -0 -0 -0 -0 -0 -0 -0 -9 -9 -15 -15 -9 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -15 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -9 -0 -0 -9 -9 -15 -15 -9 -15 -15 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -9 -9 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -9 -9 -15 -15 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -0 -0 -0 -0 -9 -9 -15 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -0 -0 -0 -0 -0 -0 -9 -9 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -0 -0 -0 -0 -0 -0 -0 -0 -9 -9 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -16 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -4 -0 -8 -0 -0 -0 -8 -0 -16 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -4 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -8 -0 -4 -0 -8 -0 -0 -0 -8 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -4 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -0 -0 -0 -0 -0 -0 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -8 -0 -0 -0 -0 -4 -0 -0 -0 -4 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -0 -4 -0 -0 -0 -0 -0 -16 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -0 -0 -0 -7 -7 -0 -0 -0 -7 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -0 -0 -0 -16 -0 -0 -15 -7 -0 -7 -7 -0 -7 -7 -0 -7 -7 -0 -7 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -4 -4 -4 -0 -16 -0 -0 -15 -7 -0 -7 -7 -0 -7 -7 -0 -7 -7 -0 -7 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -4 -4 -16 -0 -0 -15 -7 -0 -0 -0 -7 -7 -7 -0 -7 -7 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -4 -16 -0 -0 -15 -7 -0 -7 -7 -0 -7 -7 -0 -7 -7 -0 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -0 -7 -7 -0 -7 -0 -0 -0 -7 -0 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -8 -8 -8 -8 -8 -7 -8 -8 -7 -8 -8 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -8 -8 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-14.i16 b/programs/samples/qb45com/action/sfb2/stage-14.i16 deleted file mode 100644 index 947fb72d4..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-14.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -8 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -16 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -16 -0 -0 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -16 -0 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -16 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -16 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -7 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-15.i16 b/programs/samples/qb45com/action/sfb2/stage-15.i16 deleted file mode 100644 index c54c690ff..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-15.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -12 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -12 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -12 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -15 -12 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -12 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -7 -12 -15 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-2.i16 b/programs/samples/qb45com/action/sfb2/stage-2.i16 deleted file mode 100644 index 2572389e1..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-2.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -7 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -7 -7 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -7 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -15 -7 -15 -15 -15 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -7 -15 -15 -15 -15 -8 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -15 -15 -15 -15 -7 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -7 -7 -7 -7 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -8 -7 -7 -7 -7 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -8 -7 -7 -7 -8 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -7 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-3.i16 b/programs/samples/qb45com/action/sfb2/stage-3.i16 deleted file mode 100644 index 193db42e2..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-3.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -8 -7 -8 -7 -8 -7 -8 -7 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -8 -8 -8 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -15 -15 -7 -15 -15 -15 -7 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -7 -7 -8 -0 -0 -0 -0 -7 -8 -7 -8 -7 -8 -7 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -7 -7 -8 -0 -0 -0 -0 -8 -8 -7 -7 -7 -7 -7 -7 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -7 -7 -8 -0 -0 -0 -0 -8 -8 -7 -7 -7 -7 -7 -7 -7 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -7 -8 -0 -0 -0 -0 -8 -8 -8 -7 -15 -7 -15 -7 -15 -7 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -8 -0 -8 -0 -8 -0 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -0 -8 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -0 -8 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -15 -8 -7 -8 -7 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -8 -7 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -7 -8 -7 -8 -7 -8 -7 -8 -7 -8 -7 -8 -7 -8 -16 -0 -15 -15 -8 -8 -8 -8 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -7 -15 -15 -8 -8 -8 -8 -7 -7 -7 -15 -15 -15 -15 -15 -15 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -7 -15 -15 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -8 -8 -8 -0 -8 -8 -8 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -8 -0 -8 -0 -8 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -8 -0 -8 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -8 -0 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -0 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -7 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -7 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -15 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-4.i16 b/programs/samples/qb45com/action/sfb2/stage-4.i16 deleted file mode 100644 index 8ef5df53d..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-4.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -7 -2 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -0 -2 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -0 -8 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -7 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -0 -8 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -0 -0 -0 -0 -0 -0 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -1 -1 -1 -1 -1 -1 -1 -1 -1 -16 -0 -0 -0 -0 -0 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -1 -1 -1 -1 -1 -1 -1 -16 -0 -0 -0 -0 -0 -0 -8 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -7 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -1 -1 -16 -0 -0 -0 -7 -0 -0 -8 -0 -0 -0 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -16 -0 -0 -0 -7 -0 -0 -8 -0 -0 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -16 -0 -0 -7 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -6 -1 -1 -16 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -7 -2 -9 -9 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -6 -4 -1 -1 -16 -0 -7 -0 -7 -0 -0 -0 -8 -0 -0 -0 -8 -8 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -7 -7 -9 -1 -1 -1 -1 -1 -1 -1 -6 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -6 -4 -4 -1 -1 -16 -7 -0 -0 -7 -0 -0 -7 -8 -0 -0 -0 -8 -8 -0 -0 -0 -7 -7 -2 -2 -2 -2 -2 -7 -9 -1 -1 -1 -1 -1 -1 -1 -1 -4 -6 -4 -4 -4 -4 -4 -4 -4 -4 -4 -6 -4 -4 -1 -1 -1 -16 -7 -0 -8 -7 -0 -0 -7 -8 -0 -0 -8 -0 -8 -7 -0 -0 -0 -0 -7 -7 -2 -2 -7 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -4 -4 -6 -4 -4 -4 -4 -4 -4 -4 -6 -4 -4 -1 -1 -1 -1 -16 -0 -0 -8 -7 -0 -0 -7 -0 -0 -0 -8 -0 -7 -7 -0 -0 -0 -0 -0 -7 -7 -7 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -4 -4 -6 -4 -4 -4 -4 -4 -6 -4 -4 -1 -1 -1 -1 -1 -16 -0 -0 -8 -7 -0 -8 -0 -7 -0 -8 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -7 -7 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -4 -4 -6 -6 -4 -4 -6 -4 -4 -1 -1 -1 -1 -1 -1 -16 -0 -0 -8 -7 -0 -8 -0 -7 -0 -8 -0 -0 -7 -8 -7 -0 -0 -0 -0 -0 -0 -0 -9 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -4 -4 -6 -6 -4 -4 -1 -1 -1 -1 -1 -1 -1 -16 -0 -0 -8 -7 -0 -8 -0 -7 -8 -0 -0 -0 -7 -8 -7 -0 -0 -0 -0 -0 -0 -8 -9 -1 -1 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -4 -6 -4 -1 -1 -1 -1 -1 -1 -1 -1 -9 -16 -0 -0 -8 -7 -0 -8 -0 -0 -8 -0 -0 -0 -7 -8 -7 -0 -0 -0 -7 -0 -0 -8 -9 -1 -1 -1 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -6 -1 -1 -1 -1 -1 -1 -1 -9 -9 -2 -16 -0 -0 -8 -7 -0 -8 -0 -8 -7 -0 -0 -0 -7 -8 -7 -7 -0 -0 -7 -0 -0 -8 -9 -1 -1 -1 -1 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -2 -2 -2 -16 -0 -0 -8 -7 -0 -8 -0 -0 -7 -0 -0 -0 -7 -8 -0 -7 -0 -0 -7 -0 -0 -0 -9 -1 -1 -1 -1 -1 -1 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -9 -2 -2 -7 -7 -16 -8 -0 -8 -0 -0 -0 -8 -0 -0 -7 -0 -0 -0 -8 -0 -7 -0 -0 -0 -0 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -2 -2 -7 -7 -2 -2 -16 -0 -8 -8 -0 -0 -0 -8 -0 -0 -7 -0 -7 -0 -8 -0 -7 -0 -0 -0 -0 -8 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -9 -1 -1 -1 -1 -1 -1 -1 -9 -9 -2 -7 -7 -7 -2 -2 -2 -16 -0 -0 -8 -8 -0 -0 -0 -0 -0 -7 -0 -7 -0 -8 -0 -0 -7 -0 -0 -0 -8 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -9 -1 -1 -1 -1 -1 -9 -2 -2 -7 -7 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -7 -0 -8 -0 -0 -7 -0 -0 -0 -8 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -9 -1 -9 -9 -2 -7 -7 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -7 -7 -0 -8 -0 -0 -7 -0 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -9 -2 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -8 -0 -0 -7 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -0 -0 -7 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -8 -0 -0 -7 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -9 -8 -0 -7 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -0 -0 -7 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -8 -8 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -8 -0 -0 -0 -0 -7 -7 -2 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -0 -0 -7 -0 -8 -8 -0 -7 -2 -2 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -0 -0 -7 -0 -8 -0 -0 -0 -0 -7 -7 -2 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -7 -2 -2 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -7 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -0 -0 -7 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -7 -7 -2 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -0 -7 -0 -0 -0 -0 -7 -7 -7 -0 -0 -0 -0 -0 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -9 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -0 -7 -0 -8 -0 -0 -7 -7 -7 -0 -0 -0 -0 -8 -8 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -9 -9 -1 -15 -1 -1 -1 -1 -1 -9 -9 -0 -0 -7 -8 -8 -0 -7 -0 -7 -0 -0 -0 -0 -8 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -1 -9 -9 -1 -1 -1 -1 -1 -9 -0 -0 -7 -8 -8 -0 -7 -0 -7 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -1 -15 -1 -7 -9 -1 -15 -1 -9 -0 -0 -0 -8 -8 -0 -7 -0 -0 -7 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -1 -1 -1 -1 -1 -1 -9 -1 -1 -9 -0 -0 -0 -8 -7 -7 -0 -0 -7 -0 -0 -0 -8 -0 -7 -7 -0 -0 -0 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -1 -1 -1 -1 -1 -15 -1 -1 -9 -9 -0 -0 -0 -8 -0 -7 -0 -0 -7 -0 -7 -8 -8 -7 -7 -7 -0 -0 -0 -8 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -1 -1 -15 -1 -1 -1 -1 -1 -1 -9 -0 -8 -8 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -0 -0 -7 -0 -0 -0 -8 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -1 -1 -1 -1 -1 -1 -7 -1 -1 -9 -0 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -8 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -9 -1 -1 -1 -1 -1 -1 -1 -1 -9 -0 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -8 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -9 -1 -1 -1 -1 -7 -1 -1 -1 -9 -0 -8 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -8 -8 -0 -0 -7 -0 -0 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -9 -9 -1 -7 -1 -1 -1 -1 -1 -9 -9 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -7 -7 -0 -0 -8 -8 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-5.i16 b/programs/samples/qb45com/action/sfb2/stage-5.i16 deleted file mode 100644 index 927cdc907..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-5.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -8 -7 -7 -8 -8 -0 -0 -8 -8 -8 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -15 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -7 -7 -8 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -15 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -7 -15 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -8 -8 -7 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -15 -0 -0 -0 -0 -0 -0 -8 -8 -7 -15 -15 -15 -15 -7 -15 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -15 -15 -15 -0 -0 -0 -0 -0 -0 -8 -8 -7 -7 -7 -8 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -8 -8 -7 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -8 -16 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -15 -8 -0 -7 -15 -0 -7 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -8 -7 -7 -8 -8 -0 -0 -0 -0 -8 -7 -7 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -8 -0 -0 -0 -0 -0 -0 -15 -0 -15 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -8 -15 -8 -0 -15 -7 -8 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -8 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -0 -7 -7 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -8 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -16 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -8 -0 -0 -16 -0 -0 -0 -0 -0 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -8 -7 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -8 -0 -0 -0 -8 -7 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -8 -8 -8 -8 -8 -8 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -7 -8 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -0 -0 -0 -0 -0 -8 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -8 -0 -0 -0 -0 -0 -8 -8 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -7 -7 -8 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -8 -7 -7 -8 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -7 -7 -7 -7 -7 -7 -8 -8 -0 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -15 -15 -15 -0 -7 -7 -7 -8 -8 -0 -7 -7 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -15 -15 -15 -15 -0 -8 -8 -0 -7 -7 -7 -7 -7 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -15 -15 -15 -0 -0 -0 -15 -0 -15 -0 -8 -15 -7 -7 -7 -7 -7 -8 -7 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -7 -15 -7 -8 -8 -0 -8 -15 -7 -7 -8 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -7 -8 -8 -8 -0 -0 -0 -0 -15 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -8 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -7 -8 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-6.i16 b/programs/samples/qb45com/action/sfb2/stage-6.i16 deleted file mode 100644 index e4ea61e7f..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-6.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -16 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -16 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -4 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -16 -0 -0 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -4 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -16 -0 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -4 -4 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -12 -0 -0 -0 -16 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -12 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -4 -0 -0 -0 -16 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -4 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -16 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -4 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -4 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -7 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -4 -0 -7 -0 -0 -0 -0 -0 -4 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -12 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -12 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -4 -8 -8 -8 -12 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -4 -0 -4 -4 -4 -4 -4 -4 -12 -4 -0 -4 -16 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -4 -0 -4 -4 -4 -12 -4 -12 -12 -12 -12 -12 -12 -4 -0 -0 -16 -0 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -0 -4 -4 -12 -12 -12 -4 -16 -0 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -4 -0 -0 -4 -0 -4 -4 -12 -12 -4 -4 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -15 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -7 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -16 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -16 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -8 -0 -16 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -4 -4 -0 -4 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -16 -8 -8 -0 -0 -0 -4 -0 -0 -4 -4 -12 -12 -4 -12 -12 -12 -12 -4 -4 -0 -4 -4 -0 -0 -0 -0 -0 -0 -4 -12 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -8 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-7.i16 b/programs/samples/qb45com/action/sfb2/stage-7.i16 deleted file mode 100644 index 00e3ae7d1..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-7.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -16 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -7 -12 -12 -12 -12 -12 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -7 -16 -0 -7 -12 -0 -0 -0 -0 -0 -12 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -7 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -7 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -7 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -7 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -7 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -7 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -7 -0 -0 -0 -0 -0 -0 -0 -16 -8 -8 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -4 -0 -12 -0 -0 -0 -0 -0 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -16 -8 -8 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -4 -0 -12 -0 -0 -0 -0 -0 -12 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -7 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -7 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -7 -0 -0 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -4 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -7 -0 -0 -0 -0 -0 -0 -16 -0 -7 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -7 -0 -0 -0 -0 -0 -16 -7 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -4 -0 -0 -0 -0 -4 -4 -12 -4 -12 -4 -12 -4 -4 -0 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -7 -7 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -4 -12 -4 -12 -4 -12 -4 -4 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -7 -0 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -4 -0 -0 -0 -0 -0 -0 -4 -12 -12 -12 -12 -12 -12 -12 -4 -0 -0 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -7 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -4 -4 -4 -12 -4 -12 -12 -12 -4 -12 -4 -4 -4 -4 -4 -12 -12 -12 -12 -12 -4 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -7 -0 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -4 -0 -0 -0 -0 -0 -4 -4 -12 -4 -12 -4 -12 -12 -12 -12 -4 -4 -0 -0 -0 -0 -4 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -7 -0 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -4 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -7 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -7 -0 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -7 -16 -0 -0 -12 -0 -0 -0 -0 -0 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -7 -16 -0 -0 -12 -12 -12 -12 -12 -12 -12 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-8.i16 b/programs/samples/qb45com/action/sfb2/stage-8.i16 deleted file mode 100644 index 332538688..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-8.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -4 -0 -4 -4 -4 -4 -4 -4 -4 -4 -4 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -4 -4 -12 -4 -12 -12 -4 -12 -12 -12 -12 -12 -12 -12 -4 -4 -4 -4 -4 -4 -0 -4 -4 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -4 -4 -4 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -4 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -4 -4 -12 -12 -12 -12 -12 -12 -14 -12 -14 -14 -12 -14 -14 -14 -12 -14 -12 -12 -12 -12 -12 -12 -4 -4 -4 -4 -4 -4 -4 -4 -0 -4 -4 -0 -4 -0 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -12 -12 -12 -12 -12 -14 -12 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -12 -14 -12 -12 -12 -12 -12 -12 -12 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -0 -4 -0 -0 -4 -0 -0 -4 -16 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -4 -4 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -8 -8 -8 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -16 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -0 -4 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -16 -0 -0 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -7 -7 -16 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -16 -15 -15 -15 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -8 -16 -15 -15 -15 -15 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -16 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -15 -15 -16 -0 -0 -0 -0 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -15 -15 -7 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -8 -7 -7 -7 -7 -7 -7 -7 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -7 -7 -7 -7 -7 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -15 -15 -15 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -15 -15 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -15 -15 -15 -7 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -7 -15 -15 -7 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -7 -7 -7 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/stage-9.i16 b/programs/samples/qb45com/action/sfb2/stage-9.i16 deleted file mode 100644 index e06a6f8e8..000000000 --- a/programs/samples/qb45com/action/sfb2/stage-9.i16 +++ /dev/null @@ -1,2550 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -15 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -15 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -15 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -8 -8 -8 -8 -8 -8 -8 -15 -7 -7 -7 -8 -7 -7 -7 -8 -7 -7 -7 -8 -7 -7 -7 -8 -7 -7 -7 -8 -7 -7 -7 -8 -7 -7 -8 -15 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -7 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -0 -0 -15 -7 -7 -7 -7 -0 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -7 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -0 -0 -15 -15 -7 -7 -7 -7 -0 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -7 -7 -7 -7 -7 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -7 -15 -0 -15 -15 -7 -7 -7 -7 -7 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -7 -15 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -15 -7 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -7 -15 -7 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -15 -7 -15 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -15 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -15 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -8 -7 -15 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -15 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -15 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -15 -7 -7 -7 -8 -7 -15 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -15 -15 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -15 -15 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -15 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -15 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -8 -8 -7 -7 -8 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -15 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -15 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -15 -7 -7 -7 -8 -8 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -15 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -16 -0 -0 -0 -0 -0 -0 -0 -0 -15 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -15 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -0 -7 -7 -7 -8 -7 -7 -7 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -15 -15 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -0 -7 -7 -0 -8 -7 -7 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -7 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -16 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -16 diff --git a/programs/samples/qb45com/action/sfb2/track.gif b/programs/samples/qb45com/action/sfb2/track.gif deleted file mode 100644 index 6c29e9bf5..000000000 Binary files a/programs/samples/qb45com/action/sfb2/track.gif and /dev/null differ diff --git a/programs/samples/thebob/abacus/a12gfx.bas b/programs/samples/thebob/abacus/a12gfx.bas deleted file mode 100644 index e6310ff05..000000000 --- a/programs/samples/thebob/abacus/a12gfx.bas +++ /dev/null @@ -1,389 +0,0 @@ -CHDIR ".\programs\samples\thebob\abacus" - -'****************************************************************************' -' -'--------------------------- A 1 2 G F X . B A S ----------------------------' -'------------------ Creates graphics files for ABACUS12.BAS -----------------' -' -'---------------- Copyright (C) 2007 by Bob Seguin (Freeware) ---------------' -' -'****************************************************************************' - -DEFINT A-Z -DECLARE SUB PutBEAD (col, row, Index) - -DIM SHARED Box(26000) -DIM SHARED Beads(450) -DIM NumBOX(1 TO 250) -DIM MenuBOX(400) - -SCREEN 12 - -GOSUB SetPALETTE -MaxWIDTH = 397 -MaxDEPTH = 86 -x = 0: y = 0 -RESTORE PixDATA -DO -READ DataSTRING$ -FOR n = 1 TO LEN(DataSTRING$) -Char$ = MID$(DataSTRING$, n, 1) -SELECT CASE Char$ -CASE "!" -n = n + 1 -a$ = MID$(DataSTRING$, n, 1) -Count = ASC(a$) + 68 -CASE "#" -n = n + 1 -B$ = MID$(DataSTRING$, n) -FOR i = 1 TO LEN(B$) -t$ = MID$(B$, i, 1) -IF t$ = "#" THEN EXIT FOR -c$ = c$ + t$ -NEXT i -Count = VAL("&H" + c$) -n = n + LEN(c$) -c$ = "" -CASE ELSE -Count = ASC(Char$) - 60 -END SELECT -n = n + 1 -Colr = VAL("&H" + MID$(DataSTRING$, n, 1)) -FOR Reps = 1 TO Count -PSET (x, y), Colr -x = x + 1 -IF x > MaxWIDTH THEN x = 0: y = y + 1 -NEXT Reps -NEXT n -LOOP UNTIL y > MaxDEPTH 'DATA drawing loop ends here -------------------- - -GET (10, 60)-(22, 72), Box: PUT (10, 60), Box -GET (23, 60)-(35, 73), Box(100): PUT (23, 60), Box(100) -GET (36, 60)-(48, 73), Box(200): PUT (36, 60), Box(200) -GET (49, 60)-(61, 73), Box(300): PUT (49, 60), Box(300) -GET (62, 60)-(79, 71), Box(400): PUT (62, 60), Box(400) -GET (80, 60)-(97, 71), Box(500): PUT (80, 60), Box(500) -GET (0, 0)-(116, 54), Box(1000): PUT (0, 0), Box(1000) -GET (120, 0)-(388, 48), Box(3000): PUT (120, 0), Box(3000) -Index = 1 -FOR x = 158 TO 260 STEP 11 -IF x < 180 THEN Hop = 2 ELSE Hop = 0 -GET (x + Hop, 50)-(x + 5 + Hop, 60), NumBOX(Index) -PUT (x + Hop, 50), NumBOX(Index) -Index = Index + 25 -NEXT x -DEF SEG = VARSEG(NumBOX(1)) -BSAVE "abanums.bsv", VARPTR(NumBOX(1)), 500 -DEF SEG -GET (105, 60)-(123, 74), Beads: PUT (105, 60), Beads -GET (127, 60)-(145, 74), Beads(150): PUT (127, 60), Beads(150) -GET (150, 64)-(200, 75), Box(8000): PUT (150, 64), Box(8000) -GET (210, 64)-(239, 75), MenuBOX: GET (245, 64)-(265, 75), MenuBOX(100) -FOR x = 210 TO 265 -FOR y = 64 TO 75 -IF POINT(x, y) = 7 THEN PSET (x, y), 15 -NEXT y -NEXT x -GET (210, 64)-(239, 75), MenuBOX(200): GET (245, 64)-(265, 75), MenuBOX(300) -PUT (210, 64), MenuBOX(200): PUT (245, 64), MenuBOX(300) -DEF SEG = VARSEG(MenuBOX(0)) -BSAVE "abamenu.bsv", VARPTR(MenuBOX(0)), 800 -DEF SEG -GET (271, 64)-(400, 75), Box(9000): PUT (271, 64), Box(9000) -PUT (398, 76), Box(9000) -GET (0, 76)-(524, 88), Box(9000): PUT (0, 76), Box(9000) - -'Abacus drawing begins ------- -VIEW SCREEN (200, 149)-(443, 295) -LINE (200, 149)-(443, 295), 6, BF -FOR Reps = 1 TO 120 -x = FIX(RND * 250) + 200 -y = FIX(RND * 164) + 149 -Size = FIX(RND * 30) + 1 -Hop = FIX(RND * 5) + 2 -FOR Radius = 1 TO Size STEP Hop -CIRCLE (x, y), Radius, 12 -NEXT Radius -NEXT Reps -FOR Reps = 1 TO 1200 -x = FIX(RND * 250) + 200 -y = FIX(RND * 200) + 108 -Grain = FIX(RND * 20) + 1 -FOR xx = x TO x + Grain -IF POINT(xx, y) = 6 THEN PSET (xx, y), 12 -NEXT xx -NEXT Reps -VIEW - -PUT (200, 149), Box, PSET -PUT (431, 149), Box(100), PSET -PUT (200, 282), Box(200), PSET -PUT (431, 282), Box(300), PSET -PUT (202, 193), Box(400), PSET -PUT (425, 193), Box(500), PSET - -LINE (212, 161)-(431, 193), 0, BF -LINE (212, 203)-(431, 283), 0, BF - -LINE (213, 160)-(430, 160), 8 -LINE (213, 203)-(430, 203), 8 -LINE (214, 149)-(429, 149), 4 -LINE (200, 163)-(200, 281), 4 -LINE (212, 194)-(431, 194), 4 -LINE (212, 284)-(431, 284), 4 -LINE (432, 161)-(432, 193), 4 -LINE (432, 203)-(432, 283), 4 -LINE (443, 163)-(443, 281), 8 -LINE (214, 295)-(429, 295), 8 - -FOR x = 256 TO 410 STEP 44 -LINE (x - 1, 197)-(x + 1, 199), 14, BF -LINE (x - 1, 200)-(x + 1, 200), 8 -PSET (x - 1, 197), 15 -NEXT x - -FOR x = 223 TO 435 STEP 22 -FOR y = 157 TO 283 -IF POINT(x, y) = 0 THEN PSET (x, y), 7 -NEXT y -NEXT x -VIEW - -FOR x = 214 TO 412 STEP 22 -FOR y = 220 TO 268 STEP 16 -PUT (x, y), Beads, PSET -NEXT y -NEXT x -FOR x = 214 TO 412 STEP 22 -PUT (x, 162), Beads(150), PSET -NEXT x - -LINE (5, 5)-(634, 474), 10, B -LINE (7, 7)-(632, 472), 10, B - -PUT (186, 48), Box(3000), PSET -FOR x = 186 TO 460 -IF POINT(x, 66) <> 0 THEN PSET (x, 66), 7 -IF POINT(x, 70) <> 0 THEN PSET (x, 70), 15 -IF POINT(x, 74) <> 0 THEN PSET (x, 74), 15 -IF POINT(x, 78) <> 0 THEN PSET (x, 78), 7 -NEXT x -PUT (296, 96), Box(8000) -PUT (210, 124), MenuBOX -PUT (412, 124), MenuBOX(100) -FOR x = 44 TO 476 STEP 432 -FOR y = 42 TO 372 STEP 110 -PUT (x, y), Box(1000) -NEXT y -NEXT x -PUT (188, 372), Box(1000) -PUT (331, 372), Box(1000) -PUT (58, 446), Box(9000) -FOR x = 220 TO 418 STEP 22 -PUT (x, 320), NumBOX -NEXT x -LINE (200, 316)-(443, 334), 10, B -FOR x = 221 TO 419 STEP 22 -LINE (x, 298)-(x + 3, 316), 10, BF -NEXT x -LINE (200, 120)-(443, 138), 10, B - -GET (324, 204)-(342, 218), Beads(300) -GET (212, 161)-(431, 330), Box -PutBEAD 6, 3, 0: PutBEAD 6, 7, 2 -GET (324, 204)-(342, 283), Box(14000) -PutBEAD 6, 6, 2: PutBEAD 6, 7, 0 -GET (324, 204)-(342, 283), Box(13000) -PutBEAD 6, 5, 2: PutBEAD 6, 6, 0 -GET (324, 204)-(342, 283), Box(12000) -PutBEAD 6, 4, 2: PutBEAD 6, 5, 0 -GET (324, 204)-(342, 283), Box(11000) -PutBEAD 6, 3, 2: PutBEAD 6, 4, 0 -GET (324, 204)-(342, 283), Box(10000) -GET (324, 161)-(342, 193), Box(15000) -PutBEAD 6, 1, 2: PutBEAD 6, 2, 1 -GET (324, 161)-(342, 193), Box(16000) -PUT (324, 161), Box(15000), PSET -DEF SEG = VARSEG(Box(0)) -BSAVE "abasets.bsv", VARPTR(Box(0)), 34002 -FOR y = 0 TO 320 STEP 160 -GET (0, y)-(639, y + 159), Box -FileCOUNT = FileCOUNT + 1 -FileNAME$ = "ABACUS" + LTRIM$(RTRIM$(STR$(FileCOUNT))) + ".BSV" -BSAVE FileNAME$, VARPTR(Box(0)), 52000 -PUT (0, y), Box -NEXT y -DEF SEG - -COLOR 11 -LOCATE 14, 23: PRINT "The graphics files for ABACUS12.BAS" -LOCATE 15, 26: PRINT "have been successfully created." -LOCATE 17, 27: PRINT "You can now run the program." -LINE (120, 140)-(520, 340), 10, B -LINE (124, 144)-(516, 336), 10, B - -a$ = INPUT$(1) - -SYSTEM - -SetPALETTE: -DATA 20, 0, 24, 0, 0, 42, 0, 0, 45, 10, 0, 50 -DATA 55, 0, 0, 50, 0, 0, 40, 0, 0, 42, 42, 42 -DATA 30, 0, 0, 20, 10, 55, 25, 5, 29, 40, 30, 63 -DATA 45, 0, 0, 63, 0, 0, 60, 45, 20, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Intensity -OUT &H3C9, Intensity -NEXT n -RETURN - -PixDATA: -DATA "#21F#0=9>B=9–0=9>B=9}0=3?9=3@0=3?9=3H0?9=3@0=3?9!0=3AB=3V0UB=9_0=3AB=3" -DATA "b0=9JB=3E0=3IB=9G0=9IB=3T0=9GB=9!W0=9CBT0=3YB=9=3Z0=9CB_0=9NBD0=3KBG0=9" -DATA "JB=3P0=3MB=3R0@AN0@A`0BAx0=3EB=9S0]B=3V0=3EB=9\0=9PB=9C0KB=9G0=9KBO0=9" -DATA "OBQ0BAM0@A`0BAw0=9GBS0^B=9T0=9GBZ0=9SB=3B0KB=9G0=9KBN0QBQ0CAL0@A`0@AJ0" -DATA "JA[0=3JBR0LB=9OBQ0=3JBX0VBB0KB=9G0=3JB=9M0RB=3O0EAK0@A`0@AJ0JAZ0=9KB=3" -DATA "Q0=9JB=9?0=3LB=9O0=9KB=3V0WB=3A0=9JB=9H0JB=9L0=9LB=9>0?9=3N0kAF0PAB0JA" -DATA "Z0MBQ0=9JB=9A0=3KB=3N0MBT0=3NB=9=3>0=3=9@B=3A0=9JB=9H0JB=9K0=3KB=3U0lA" -DATA "F0PAB0JAZ0=9LB=9P0=9JB=9C0KBN0=9LB=9S0LB=3N0=9JB=9H0JB=9K0KB=3V0lAF0PA" -DATA "B0@AB0@A[0MB=3O0=9JB=9C0=3JBO0MB=3Q0KB=3P0=9JB=9H0JB=9J0=3KBV0mAF0PAB0" -DATA "@AB0@A[0=3MBO0=9JB=3D0JBO0=3MBP0=9JBR0=9JB=3H0JB=9J0KB=3U0FA>0@AD0DA=0" -DATA "CAP0@A@0>AB0@AB0@AB0@AA0AAR0=9LB=9N0=9JBE0=3IBP0=9LB=9N0=3JBS0=9JBI0JB" -DATA "=9J0KBV0EA?0@AC0DA?0BAP0@A@0>AB0@AB0@AB0@A@0BAS0MB=3M0=9JBF0IBQ0MB=3M0" -DATA "JBT0=9JBI0JB=3I0=3KBU0EA@0BA@0DA@0BAP0@A>0BA@0@AB0@AB0@A?0AAU0NBM0=3JB" -DATA "F0IBQ0NBL0=3IB=9T0=3JBI0JBJ0LBT0EAA0BA@0CAB0AAP0@A>0BA@0@AA0AAB0@A>0BA" -DATA "T0=9NB=9M0JBE0=3IBP0=9NB=9K0JBV0JBI0JBJ0KB=9T0DAJ0DA\0@A@0@A@0@A?0CAB0" -DATA "HAT0PB=3L0JBE0IB=9P0PB=3J0JBV0JBI0JBJ0KB=3T0CAJ0DA]0@A@0@A@0@A>0DAB0HA" -DATA "S0RBL0JBD0=3IBP0RBI0=3JBV0JBI0JBJ0KBU0fAP0@AH0JAD0FAR0=3RB=9K0JBD0IB=3" -DATA "O0=3RB=9H0JB=9V0JBI0JBJ0KBU0fAP0@AH0IAE0FAR0TBK0JBB0=3IB=3P0TBH0JBW0JB" -DATA "I0JBJ0KB]0^AJ0ZAi0VBJ0JB@0=3JBQ0VBG0JBW0JBI0JBJ0KB]0^AJ0YAi0=3VB=9I0JB" -DATA "=9LB=3Q0=3VB=9F0JBW0JBI0JBJ0KB]0@AX0>AJ0VA@0PAT0FB=0MB=3H0YB=9S0FB=0MB" -DATA "=3E0JBW0JBI0JBJ0KB]0@AX0>AJ0VA@0PAS0=9EB=3=0=3MBH0\B=3O0=9EB=3=0=3MBE0" -DATA "JB=9V0JBI0JBJ0KB]0@AX0>AP0@A@0@A@0@A@0RAP0=3EB=9?0MB=9G0^B=3L0=3EB=9?0" -DATA "MB=9D0KBV0JBI0JBJ0KB]0@AX0>AP0@A@0@A@0@A@0RAP0FB@0=3MB=3F0_B=9K0FB@0=3" -DATA "MB=3C0KBV0JBI0JBJ0KB]0^AP0@A@0@A@0@AD0@AB0DAO0=9EB=3A0=9MBF0JB=9QB=9I0" -DATA "=9EB=3A0=9MBC0KBV0JBI0JBJ0KB]0^AP0@A@0@A@0@AD0@AB0CAO0=3EB=9C0MB=9E0JB" -DATA "@0=3=9MB=9G0=3EB=9C0MB=9B0KB=9U0JBI0JBJ0KB]0^AP0@A@0@A@0@AD0LAP0FB>0?B" -DATA "=9>0=3MB=3D0JBC0=9LBG0FB>0?B=9>0=3MB=3A0LBU0JB=3H0JBJ0KB]0^AP0@A@0@A@0" -DATA "@AD0KAP0=9EB=3=0AB=3>0NBD0JBD0=3KB=9E0=9EB=3=0AB=3>0NBA0MBT0JB=9H0JBJ0" -DATA "KB]0@AX0>AP0@A@0@A@0@AF0FAR0=3EB=9=0=9BB>0=3MB=9C0JBE0=3KBD0=3EB=9=0=9" -DATA "BB>0=3MB=9@0MB=9S0KBH0JBJ0KB]0@AX0>AP0@A@0@A@0@AF0FAR0FB=0=9DB>0=9MB=3" -DATA "B0JBF0KBD0FB=0=9DB>0=9MB=3?0=3MB=9R0KBH0JBJ0KB]0^AO0AAH0@AD0HAQ0=9EB=3" -DATA "=9FB>0NBB0JBF0=3JBC0=9EB=3=9FB>0NB@0NB=9Q0KBH0JBJ0KB]0^AN0BAH0@AD0HAP0" -DATA "=3EB>9HB=0=9NB@0=3JBG0JBB0=3EB>9HB=0=9NB?0PB=3O0KB=3G0JBI0=9KB]0^AM0CA" -DATA "D0bAF0FB=9JB=0NB=9?0=9JBG0JBB0FB=9JB=0NB=9>0=3QB=9M0LBF0=3JB=3H0KB=9]0" -DATA "^AL0DAD0bAE0=9VB=3NB?0=9JBF0=9JBA0=9VB=3NB?0UB=9=3?0=3>9=3A0MBC0=3LB=9" -DATA "H0KB=3]0@AX0>AL0CAE0NAF0DAF0=3kB>0=9JB=3E0KB@0=3kB>0=3]BA0OB=3=0=3OB=9" -DATA "H0KB^0@AX0>AL0BAF0NAF0DAF0YB=0NB=9=0=9JB=9D0=3JB=9@0YB=0NB=9>0=9[B=9A0" -DATA "eB=9G0=9JB=9^0^AL0BAs0FB=9=3MB=9=0=9NB=0=9JB=9C0=3KB=3?0FB=9=3MB=9=0=9" -DATA "NB?0[BB0=3dB=9F0=3KB_0^AL0AAs0=3FB?0KB=3?0MB=9=0=9JB=9B0=9KB=9?0=3FB?0" -DATA "KB=3?0MB=9@0YBD0dB=9E0=3KB=9_0^AR0dAJ0FB=3@0=9HBA0=3KB=9>0=9JB=9?0=3=9" -DATA "MB@0FB=3@0=9HBA0=3KB=9B0WB=3D0dB=9>0?9>3=9LB=9`0^AR0dAJ0EB=9B0=9FBC0JB" -DATA "=3?0aBA0EB=9B0=9FBC0JB=3D0=9TB=9E0=3SB=9=0JB=9>0RBi0@AF0BAX0dAJ0=9DBD0" -DATA "=3DBD0=3GB=9A0`BB0=9DBD0=3DBD0=3GB=9G0=9SBG0=9QB=3=0=3KB>0PB=9j0@AF0BA" -DATA "X0dAK0CB=3F0AB=9F0=9EB=9B0^B=3D0CB=3F0AB=9F0=9EB=9J0=9PBI0OB=3?0=9KB>0" -DATA "=3NB=9k0@AF0BAX0@AD0@AD0@AD0@AK0=9BBH0?B=9H0DB=3C0=3[B=3F0=9BBH0?B=9H0" -DATA "DB=3M0=9MB=3J0=9KB=3A0=9JB=3?0LB=9m0@AF0BAX0@AD0@AD0@AD0@AL0ABY0=9BBF0" -DATA "=3VB=9K0ABY0=9BBR0=3IB=9M0=9FB=3D0=3IBB0=3HB=3]0tAF0@AD0@AD0@AD0@AL0=3" -DATA "?B=9Z0ABr0=3?B=9Z0AB!J0tAF0@AD0@AD0@AD0@AM0?B[0=3?Bt0?B[0=3?B!K0tAF0@A" -DATA "D0@AD0@AD0@A#124#0tAF0@AD0@AD0@AD0@A#134#0BAF0BAX0@AD0@AD0@AD0@A#134#0" -DATA "BAF0BAX0@AD0@AD0@AD0@Aq0@FD0>FB0@FC0@FE0>FB0BFB0@FB0BFB0@FC0@F!T0DAF0BA" -DATA "X0@AD0@AD0@AD0@Ap0>F>0>FA0@FA0>F>0>FA0>F>0>FC0?FB0>FE0>F>0>FE0>FA0>F>0" -DATA ">FA0>F>0>F!S0DAF0BAX0@AD0@AD0@AD0@Ap0>F>0>FC0>FE0>FE0>FC0?FB0>FE0>FH0>F" -DATA "B0>F>0>FA0>F>0>F#127#0>F>0>FC0>FE0>FE0>FB0@FB0AFB0>FH0>FB0>F>0>FA0>F>0" -DATA ">F#127#0>F>0>FC0>FD0>FD0?FC0@FB0>F>0>FA0AFD0>FD0@FC0AF#127#0>F>0>FC0>F" -DATA "C0>FG0>FA0>F=0>FF0>FA0>F>0>FC0>FC0>F>0>FE0>F#127#0>F>0>FC0>FB0>FH0>FA0" -DATA "BFE0>FA0>F>0>FB0>FD0>F>0>FE0>F#127#0>F>0>FC0>FA0>FE0>F>0>FD0>FB0>F>0>F" -DATA "A0>F>0>FB0>FD0>F>0>FA0>F>0>F#128#0@FD0>FA0BFB0@FE0>FC0@FC0@FC0>FE0@FC0" -DATA "@F!N0VF=EG6>0@6@C?6=E?6>FA6K0B6>F?6H0=6>5A4=6I0=1>3A9=1#10B#0HE>8JE>6=C" -DATA "=6AC=6>0F6>E>6BE>6K4?6=FAE>6F0=6=C>5D4=6E0=1=2>3D9=1#109#0?E>8BE=8>6=8" -DATA "BE>8BEH6BC>6=F>E>6@E>8=EN6=F>8@E>6E0>6=C>5@4=D=F=D>4=6C0>1=2>3@9=B=F=B" -DATA ">9=1#108#0>E@6=E@8@6@8=E@6AEECG6?E=6AE=6=F>E>6=F>EB6=F>E>6=F=E=6=FAE=6" -DATA "D0>6>C=5A4?F?4=6A0>1>2=3A9?F?9=1#107#0>E@6=EB6AC=6=E@6AEA6=F=EB6=F=E>6" -DATA ">C=6AE>8EE=8>E@6>E=8EE>8>ED0=6>C>5A4=D=F=D?4=CA0=1>2>3A9=B=F=B?9=2#107#0" -DATA "?E>6=F>EACA6?E>6=FAE?6@EB6@E?6AE>6DE?6BE?6DE>6>EC0>6>C>5H4=C?0>1>2>3H9" -DATA "=2A0=B@0=Bf0=BF0A7>0A7>0?7>0A7=0A7B0@7>0=7@0=7=0=7=0A7f0=BC0=B[0=B\0=B" -DATA "V0BE>8=E@6>C>6=E>8EE>6=E>8=E=8AC=6=8=E>8=E>6AE=6=FEE=6=F=E@8>E=6=FDE>6" -DATA ">EC0>6>C?5F4>C?0>1>2?3F9>2@0=BA0=Bg0=BE0=7@0=7=0=7A0=7?0=7=0=7C0=7C0=7" -DATA "@0=7=0=7@0=7=0=7?0=7D0>B>0=B=0=BD0=B>0=BM0=BC0=B[0=B\0=BA0=BP0?E>8=E>6" -DATA "=ED6=E>6=E>8EE>6=ED6=E>6BE=8AE>8>E>8?E=8@6=8?E>8>E>8AE=8C0=C=6?C>5G4=C" -DATA "?0=2=1?2>3G9=2@0=BA0=Bg0=BE0=7@0=7=0=7A0=7A0=7C0=7C0=7@0=7=0=7@0=7=0=7" -DATA "?0=7C0=B>0>B>0=BD0=B>0=BM0=BC0=B[0=B\0=BA0=BP0?E>6=8>E=F=EAC=6=F?E=8>6" -DATA "BE>8?E=8=6>C=6=C=6=C=6=8?E>8?E>8@E=6=F=E=8>6?8>C@6?8>6=8=E=6=F@E=8=6C0" -DATA "=5>6>C>5E4=5>C?0=3>1>2>3E9=3>2@0=BA0=B>0?B>0@B?0?B>0=B=0>B?0?B?0>B?0?B" -DATA "?0=BE0=7@0=7=0=7A0=7A0=7C0=7C0=7@0=7=0=7@0=7=0=7?0=7J0>B>0?B>0>B=0>B>0" -DATA "?B>0=B=0>B@0=B?0?B>0@B?0?B?0?B>0=B?0=B>0>B@0=B>0@B?0?B?0@B>0?B?0>B@0=B" -DATA "=0>B>0>B=0?B=0>BH0?E?6>8>EB6>E>8>C=6AE@6=E=8FC=8=E@6>E>6BE=8N6=8BE>6C0" -DATA "=C?6>C>5=4=5A4=5>C=6?0=2?1>2>3=9=3A9=3>2=1@0=BA0=BA0=B=0=B?0=BA0=B=0>B" -DATA ">0=B=0=B?0=B=0=B>0=B=0=B?0=B>0=BE0A7>0@7?0?7>0@7@0=7C0=7@0=7=0=7@0=7=0" -DATA "=7?0=7J0=B>0=B?0=B=0=B>0=B>0=B?0=B=0>B>0=B?0=BB0=B=0=B?0=BA0=B=0=B?0=B" -DATA "=0=B?0=B=0=B>0=B?0=B>0=B?0=BA0=B=0=B?0=B=0=B?0=B=0=B>0=B?0>B>0=B=0=B>0" -DATA "=B>0=B>0=BG0?E>C?6>8?6=C>6>8A6AE@6=EH6=E@6>E>6=8>E?8>CK8?6?8>E=8>6D0=5" -DATA "?6>C>5=4=5=4@5=C=6A0=3?1>2>3=9=3=9@3=2=1A0=BA0=B>0@B=0=B?0=B>0@B=0=B?0" -DATA "=B=0AB>0=B?0AB>0=BE0=7@0=7=0=7E0=7=0=7C0=7C0=7@0=7=0=7@0=7=0=7?0=7J0=B" -DATA ">0=B?0=B=0=B>0=B>0=B?0=B=0=B?0=B>0=B@0@B=0=B?0=B>0@B=0=BA0=B?0=B>0=B@0" -DATA "=B?0=B?0=B>0@B=0=B?0=B=0AB>0=BA0=B?0=B=0=B>0=B>0=B>0=BG0>E=8I6CCBE>6=F" -DATA "BE>6=FBE>6=F>E?6>8A6K0B6>8?6D0=6=C?6?C?5=C=5?C=6A0=1=2?1?2?3=2=3?2=1A0" -DATA "=B>0=B>0=B=0=B?0=B=0=B?0=B=0=B?0=B=0=B?0=B=0=BC0=B>0=BB0=BE0=7@0=7=0=7" -DATA "E0=7=0=7C0=7C0=7>0=7=0=7=0=7@0=7=0=7?0=7J0=B>0=B?0=B=0=B>0=B>0=B?0=B=0" -DATA "=B?0=B>0=B?0=B?0=B=0=B?0=B=0=B?0=B=0=BA0=B?0=B?0=B?0=B?0=B?0=B=0=B?0=B" -DATA "=0=B?0=B=0=BC0=B@0=B?0=B=0=B>0=B>0=B>0=BG0=E=8@C>6=C=6>C>8E6=8XEi0=5=C" -DATA "@6=C=6BC=6C0=3=2@1=2=1B2=1B0=B>0=B>0=B=0=B?0=B=0=B?0=B=0=B?0=B=0=B?0=B" -DATA "=0=B?0=B=0=B>0=B=0=B?0=B>0=BE0=7@0=7=0=7A0=7?0=7=0=7C0=7C0=7?0>7=0=7@0" -DATA "=7=0=7?0=7J0=B>0=B?0=B=0=B>0=B>0=B?0=B=0=B?0=B=0=B@0=B?0=B=0=B?0=B=0=B" -DATA "?0=B=0=B?0=B=0=B>0>B=0=B>0=B=0=B@0=B?0=B=0=B?0=B=0=B?0=B=0=B?0=B=0=B>0" -DATA "=B?0=B?0=B=0=B>0=B>0=B>0=BU0F6=8=EV8j0=6=5=CF6E0=1=3=2F1C0=B?0>B?0@B=0" -DATA "@B?0@B=0=B?0=B>0?B?0>B?0?B?0=BE0=7@0=7=0A7>0?7>0A7?0=7D0@7?0@7>0=7?0=7" -DATA "K0=B>0?B?0=B>0=B>0?B>0=B?0=B=0=BA0@B=0@B?0@B>0?B?0>B=0=B>0>B>0=B@0@B?0" -DATA "@B>0@B>0?B?0>B>0=B=0=B?0=B>0=B=0=B>0=B>0=B«0=6>C?6=C>6I0=1>2?1=2>1E0=B" -DATA "I0=B_0=Bm0=7Ÿ0=BK0=B!r0=BH0=B^0=B!R0=BG0@B#1AE#0ABn0=Be0=BC0=BQ0=B‹0=B" -DATA "e0=BB0=BD0=BR0=B@0=BK0=BA0=BW0=BA0=B=0=Bh0=B=0=Br0=BC0=BH0=BD0=BO0=BQ0" -DATA "=BS0=Bs0=Bn0=BB0=BA0=B>0=BI0=B@0=BK0=BA0=B]0=BN0=BW0=B=0=Br0=BC0=BH0=B" -DATA "D0=BO0=BQ0=BS0=Bs0=Bn0=BB0=BA0=B>0=BI0=B@0=BK0=BA0=B]0=BN0=BW0=B=0=BB0" -DATA "?B>0>BB0?BC0?B?0?B>0?B=0>B>0@B>0=B>0?B>0>B>0?BB0>B=0=B?0=B=0>B>0?B>0>B" -DATA "=0=B>0?B>0=BB0?B>0=B=0>BB0=B=0>B?0?B>0=B>0=B>0=BA0>B>0?BB0=B?0=B>0>B?0" -DATA "?BC0?B>0=B=0>BC0?B>0@B?0?B?0?B>0=B?0=B>0>BE0=B?0=B=0=B>0>B>0=B=0>BA0=B" -DATA "=0>B>0>B=0>B=0@B>0=B?0=B@0=B>0=B>0=B>0=B>0?B>0@B>0=B=0>B?0?B>0?B=0>B?0" -DATA "?B@0=B>0@B=0=B=0>B>0?B?0?B>0>B@0?B?0?B>0?B=0>B@0=B>0@B>0=B?0=B=0=BF0=B" -DATA "A0=B?0=B=0=B?0=B=0=B>0=B>0=B=0=B?0=B=0=B=0=B?0=B=0=B>0=B?0=BA0=B>0=B?0" -DATA "=B=0=B>0=B?0=B=0=B>0=BA0=B=0=BA0=B?0=B=0>B>0=BA0>B>0=B=0=B?0=B=0=B>0=B" -DATA ">0=BA0=B>0=B?0=BA0=B?0=B=0=B>0=B=0=B?0=BE0=B=0>B>0=BE0=B=0=B?0=BA0=B=0" -DATA "=B?0=B=0=B?0=B=0=B>0=BD0=B?0=B=0=B=0=B>0=B=0=B=0=BB0>B>0=B=0=B>0=B>0=B" -DATA "?0=BA0=B@0=B>0=B>0=B>0=B=0=B?0=B=0=B?0=B=0>B>0=B=0=B?0=B=0=B>0=B>0=B=0" -DATA "=B?0=B?0=B=0=B?0=B=0=B=0=B>0=B?0=B=0=B?0=B=0=B@0=B?0=B=0=B?0=B=0=B>0=B" -DATA ">0=B?0=B>0=BA0=B?0=B=0=BC0@BA0=BA0=B?0=B=0=B>0=B>0=B=0=B?0=B=0=B=0AB=0" -DATA "=B>0ABA0=B>0=B?0=B=0=B>0=B?0=B=0=B>0=B>0@B=0=BA0=B?0=B=0=B?0=BA0=B?0=B" -DATA "=0=B?0=B=0=B=0=B=0=B=0=BA0=B>0=B?0=BA0=B?0=B>0=B?0ABB0@B=0=B?0=BB0@B=0" -DATA "=B?0=B>0@B=0=BA0=B?0=B>0=BG0=B=0=B>0=B>0=B?0=B=0=BB0=B?0=B=0=B>0=B>0=B" -DATA "?0=B@0=B@0=B?0=B=0=B=0=B=0=B=0AB=0=B?0=B=0=B?0=B=0=B?0=B=0=B>0=B>0=B=0" -DATA "AB?0=B=0=B?0=B=0=B=0=B>0AB=0=BA0=B@0=BA0=B?0=B=0=B>0=B>0=B>0=B?0=BA0=B" -DATA "?0=B=0=BB0=B?0=BA0=BA0=B?0=B=0=B>0=B>0=B=0=B?0=B=0=B=0=BA0=B>0=BE0=B>0" -DATA "=B?0=B=0=B>0=B?0=B=0=B>0=B=0=B?0=B=0=BA0=B?0=B=0=B?0=BA0=B?0=B=0=B?0=B" -DATA "=0=B=0=B=0=B=0=BA0=B>0=B?0=BA0=B?0=B?0=B>0=BE0=B?0=B=0=B?0=BA0=B?0=B=0" -DATA "=B?0=B=0=B?0=B=0=BA0=B?0=B?0=BF0=B=0=B>0=B?0=B>0=B=0=BB0=B?0=B=0=B>0=B" -DATA ">0=B?0=B@0=B@0=B?0=B=0=B=0=B=0=B=0=BA0=B?0=B=0=B?0=B=0=B?0=B=0=B>0=B>0" -DATA "=B=0=BC0=B=0=B?0=B=0=B=0=B>0=BA0=BA0=B@0=BA0=B?0=B=0=B>0=B>0=B>0=B?0=B" -DATA "A0=B?0=B=0=BB0=B?0=BA0=B?0=B=0=B?0=B=0=B>0=B>0=B=0=B?0=B=0=B=0=B?0=B=0" -DATA "=B>0=B?0=BA0=B>0=B>0>B=0=B>0=B?0=B=0=B>0=B=0=B?0=B=0=BA0=B?0=B=0=B?0=B" -DATA "A0=B?0=B=0=B?0=B>0=B?0=BB0=B>0=B?0=BA0=B>0>B=0=B>0=B=0=B?0=BA0=B?0=B=0" -DATA "=B?0=BA0=B?0=B=0=B?0=B=0=B?0=B=0=B?0=B=0=B>0>B=0=B>0=BF0=B?0=B=0=B>0=B" -DATA "=0=B=0=BB0=B?0=B=0=B>0=B>0=B?0=B?0=B@0=BA0=B?0=B>0=B?0=B=0=B?0=B=0=B?0" -DATA "=B=0=B?0=B=0=B>0=B>0=B=0=B?0=B?0=B=0=B?0=B=0=B=0=B>0=B?0=B=0=B?0=B=0=B" -DATA "@0=B?0=B=0=B?0=B=0=B>0=B>0=B=0=B@0=BB0?B>0=BC0@BB0?B?0?B>0=B>0=B>0=B=0" -DATA "@B>0=B>0?B?0=B>0?BC0=B>0>B=0=B>0=B>0?B>0=B>0=B>0@B=0=BB0?B>0=B?0=BA0=B" -DATA "?0=B>0?B?0=B?0=BC0=B>0?BC0>B=0=B>0>B?0?BC0@B=0=B?0=BB0@B=0@B?0@B>0?B?0" -DATA ">B=0=B>0>B?0=BC0=B?0=B>0>B>0=B>0=BA0=B?0=B>0=B>0=B=0@B>0=B=0=B@0=BA0=B" -DATA "?0=B?0?B>0@B>0=B?0=B>0?B>0=B>0=B>0=B>0?B>0=B=0=B>0@B=0=B=0=B?0?B?0?B?0" -DATA "=B=0=B>0?B?0?B>0=B>0=B>0=B=0=Bq0=B!v0=Bd0=B´0" - -SUB PutBEAD (col, row, Index) - -IF row < 3 THEN Hop = 0 ELSE Hop = 10 -PutCOL = col * 22 + 192 -PutROW = row * 16 + 146 + Hop -PutINDEX = Index * 150 -PUT (PutCOL, PutROW), Beads(PutINDEX), PSET - -END SUB diff --git a/programs/samples/thebob/abacus/abacus12.bas b/programs/samples/thebob/abacus/abacus12.bas deleted file mode 100644 index 8d24d195f..000000000 --- a/programs/samples/thebob/abacus/abacus12.bas +++ /dev/null @@ -1,263 +0,0 @@ -CHDIR ".\programs\samples\thebob\abacus" - -'****************************************************************************' -' -'------------------------- A B A C U S 1 2. B A S ---------------------------' -'--------------- Copyright (C) 2007 by Bob Seguin (Freeware) ----------------' -' -'****************************************************************************' - -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () - -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB ClearMOUSE () - -DECLARE SUB MouseDRIVER (LB, RB, MX, MY) - -DECLARE SUB Graphics () -DECLARE SUB PutBEADS (col, OneVAL) -DECLARE SUB PutNUM (col) -DECLARE SUB Menu (InOUT) -DECLARE SUB ResetABACUS () - -DIM SHARED Box(26000) -DIM SHARED NumBOX(1 TO 250) -DIM SHARED MenuBOX(600) -DEF SEG = VARSEG(NumBOX(1)) -BLOAD "abanums.bsv", VARPTR(NumBOX(1)) -DEF SEG = VARSEG(MenuBOX(0)) -BLOAD "abamenu.bsv", VARPTR(MenuBOX(0)) -DEF SEG -DIM SHARED Abacus(1 TO 10, 1 TO 2) - -DIM SHARED MouseDATA$ -DIM SHARED LB, RB - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -Cheddar: -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -RESTORE Cheddar -FOR i = 1 TO 57 -READ h$ -Hexxer$ = CHR$(VAL("&H" + h$)) -MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN -PRINT "Sorry, cat must have got the mouse." -SLEEP 2 -SYSTEM -END IF - -SCREEN 12 - -GOSUB SetPALETTE -Graphics -ShowMOUSE - -DO -k$ = INKEY$ -IF k$ = CHR$(27) THEN SYSTEM -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseX -CASE 212 TO 233: col = 1 -CASE 234 TO 255: col = 2 -CASE 256 TO 277: col = 3 -CASE 278 TO 299: col = 4 -CASE 300 TO 321: col = 5 -CASE 322 TO 343: col = 6 -CASE 344 TO 365: col = 7 -CASE 366 TO 387: col = 8 -CASE 388 TO 409: col = 9 -CASE 410 TO 431: col = 10 -CASE ELSE: col = 0 -END SELECT -SELECT CASE MouseY -CASE 124 TO 133: Menu 1 -CASE 161 TO 176: row = 1 -CASE 177 TO 192: row = 2 -CASE 202 TO 218: row = 3 -CASE 219 TO 234: row = 4 -CASE 235 TO 250: row = 5 -CASE 251 TO 266: row = 6 -CASE 267 TO 282: row = 7 -CASE ELSE: row = 0: Menu 0 -END SELECT - -IF LB = -1 THEN -IF col <> 0 THEN -SELECT CASE row -CASE 1: PutBEADS col, 6: Abacus(col, 1) = 5 -CASE 2: PutBEADS col, 5: Abacus(col, 1) = 0 -CASE 3 TO 7: Sum = row - 3: Abacus(col, 2) = Sum: PutBEADS col, Sum -END SELECT -PutNUM col -END IF -ClearMOUSE -END IF - -LOOP - -SYSTEM - -SetPALETTE: -DATA 20, 0, 24, 0, 0, 42, 0, 0, 45, 10, 0, 50 -DATA 55, 0, 0, 50, 0, 0, 40, 0, 0, 42, 42, 42 -DATA 30, 0, 0, 20, 10, 55, 25, 5, 29, 40, 30, 63 -DATA 45, 0, 0, 63, 0, 0, 60, 45, 20, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Intensity -OUT &H3C9, Intensity -NEXT n -RETURN - -SUB ClearMOUSE - -WHILE LB OR RB -MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB Graphics - -DEF SEG = VARSEG(Box(0)) -FOR y = 0 TO 320 STEP 160 -FileCOUNT = FileCOUNT + 1 -FileNAME$ = "ABACUS" + LTRIM$(RTRIM$(STR$(FileCOUNT))) + ".BSV" -BLOAD FileNAME$, VARPTR(Box(0)) -PUT (0, y), Box -NEXT y -BLOAD "abasets.bsv", VARPTR(Box(0)) -DEF SEG - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -SUB Menu (InOUT) -STATIC MenuITEM - -IF InOUT = 0 THEN GOSUB CloseMENU: EXIT SUB - -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseX -CASE 210 TO 238 -IF MenuITEM <> 1 THEN -GOSUB CloseMENU -MenuITEM = 1 -GOSUB OpenMENU -END IF -CASE 412 TO 432 -IF MenuITEM <> 2 THEN -GOSUB CloseMENU -MenuITEM = 2 -GOSUB OpenMENU -END IF -CASE ELSE: GOSUB CloseMENU -END SELECT - -IF LB = -1 THEN -SELECT CASE MenuITEM -CASE 1: ResetABACUS -CASE 2: GOSUB CloseMENU: SYSTEM -END SELECT -END IF - -EXIT SUB - -OpenMENU: -HideMOUSE -SELECT CASE MenuITEM -CASE 1: PUT (210, 124), MenuBOX(200), PSET -CASE 2: PUT (412, 124), MenuBOX(300), PSET -END SELECT -ShowMOUSE -RETURN - -CloseMENU: -IF MenuITEM <> 0 THEN -HideMOUSE -SELECT CASE MenuITEM -CASE 1: PUT (210, 124), MenuBOX, PSET -CASE 2: PUT (412, 124), MenuBOX(100), PSET -END SELECT -ShowMOUSE -MenuITEM = 0 -END IF -RETURN - -END SUB - -SUB MouseDRIVER (LB, RB, MX, MY) - -DEF SEG = VARSEG(MouseDATA$) -mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, MX, MY, mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, MX, MY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = MX -MouseY = MY - -END SUB - -SUB PutBEADS (col, BeadVAL) - -PutCOL = col * 22 + 192 -IF BeadVAL > 4 THEN Hop = -43 ELSE Hop = 0 -HideMOUSE -PUT (PutCOL, 204 + Hop), Box(BeadVAL * 1000 + 10000), PSET -ShowMOUSE - -END SUB - -SUB PutNUM (col) -Sum = Abacus(col, 1) + Abacus(col, 2) -HideMOUSE -PUT (col * 22 + 198, 320), NumBOX(Sum * 25 + 1), PSET -ShowMOUSE -END SUB - -SUB ResetABACUS - -HideMOUSE -PUT (212, 161), Box, PSET -ShowMOUSE -ERASE Abacus - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB diff --git a/programs/samples/thebob/abacus/readme.txt b/programs/samples/thebob/abacus/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/abacus/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/animax/animax.bas b/programs/samples/thebob/animax/animax.bas deleted file mode 100644 index afd6dbc66..000000000 --- a/programs/samples/thebob/animax/animax.bas +++ /dev/null @@ -1,2200 +0,0 @@ -CHDIR ".\programs\samples\thebob\animax" - -'***************************************************************************** -'-------------------------- A N I M A X ! . B A S ---------------------------- -'---------------------- A Graphics/Animation Utility ------------------------- -'------------ Copyright (C) 2001-2007 by Bob Seguin (Freeware) --------------- -'***************************************************************************** - -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () -DECLARE FUNCTION CancelBOX () -DECLARE FUNCTION SavePROMPT () - -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () -DECLARE SUB MouseDRIVER (LB, RB, Mx, My) -DECLARE SUB PrintSTRING (x, y, Prnt$, Font) -DECLARE SUB DrawSCREEN () -DECLARE SUB LoadFILE () -DECLARE SUB SetRECENT (Mode) -DECLARE SUB MenuBAR (InOUT) -DECLARE SUB ToolBAR () -DECLARE SUB AniFILE (MenuITEM) -DECLARE SUB AniEDIT (MenuITEM) -DECLARE SUB AniCOLOR (MenuITEM) -DECLARE SUB AniSPECIAL (Trick) -DECLARE SUB AniHELP (OnWHAT) -DECLARE SUB WorkAREA () -DECLARE SUB RunBUTTONS () -DECLARE SUB LogoFRAME (Frame) -DECLARE SUB ColorBAR () -DECLARE SUB DisplayERROR (ErrorNUM) -DECLARE SUB DisplayFRAMES () -DECLARE SUB Interval (Length!) -DECLARE SUB PrintBLURB () -DECLARE SUB PrintFRAME () -DECLARE SUB SetXY () -DECLARE SUB ScaleFRAME () -DECLARE SUB ScaleUP () -DECLARE SUB DrawBOX (x1, y1, x2, y2, Mode) - -'$DYNAMIC -DIM SHARED Box(1 TO 26217) -DIM SHARED WindowBOX(18800) -DIM SHARED FontBOX(4700) -DIM SHARED TitleBOX(122) -DIM SHARED CopyBOX(1 TO 1650) -DIM SHARED UndoBOX(1 TO 1650) -DIM SHARED ItemBOX(1 TO 366) -DIM SHARED PaletteITEM(1 TO 312) -DIM SHARED ColorBOX(1 TO 672) -DIM SHARED ToolBOX(1 TO 12) -DIM SHARED FBox(1 TO 5) -DIM SHARED MenuBOX(280) -DIM SHARED FChar(1 TO 124) -DIM SHARED FileNAME$, PrintNAME$ -DIM SHARED Workdone, Scale, Blurb, WClr -DIM SHARED Menu, WorkingTOOL, ExTOOL, Filled -DIM SHARED FrameCOUNT, FrameNUM -Scale = 5: ExTOOL = 1 - -TYPE RecentTYPE -PName AS STRING * 8 -FName AS STRING * 130 -END TYPE -DIM SHARED Recent(1 TO 6) AS RecentTYPE -OPEN "recent.axd" FOR RANDOM AS #1 LEN = LEN(Recent(1)) -FOR n = 1 TO 6 -GET #1, n, Recent(n) -NEXT n - -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "animssr.fnt", VARPTR(FontBOX(0)) -DEF SEG = VARSEG(ColorBOX(1)) -BLOAD "anihues.bsv", VARPTR(ColorBOX(1)) -DEF SEG - -DIM SHARED MouseDATA$ - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 -READ h$ -Hexxer$ = CHR$(VAL("&H" + h$)) -MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN -PRINT "Sorry, cat must have got the mouse." -SLEEP 2 -CLOSE #1 -SYSTEM -END IF - -RESTORE xDATA -FOR n = 1 TO 12: READ ToolBOX(n): NEXT n -RESTORE yDATA -FOR n = 1 TO 5: READ FBox(n): NEXT n - -ON ERROR GOTO PathPROB - -SCREEN 12 -DrawSCREEN -GOSUB Clock -ON TIMER(1) GOSUB Clock -TIMER ON -ShowMOUSE - -DO -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseY -CASE 0 TO 15 -SELECT CASE MouseX -CASE 623 TO 639 -IF LB = -1 THEN -HideMOUSE -DrawBOX 624, 2, 638, 15, 1 -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 624, 2, 638, 15, 0 -ShowMOUSE -Interval .1 -ExitPROMPT = 10 -AniFILE ExitPROMPT -IF ExitPROMPT <> 11 THEN CLOSE #1: SYSTEM -END IF -CASE ELSE -IF Menu THEN MenuBAR 0 -END SELECT -CASE 16 TO 45 -SELECT CASE MouseX -CASE 7 TO 236: MenuBAR 1 -CASE 245 TO 600: ToolBAR -CASE ELSE: IF Menu THEN MenuBAR 0 -END SELECT -CASE 57 TO 57 + Scale * 68 - 1 -SELECT CASE MouseX -CASE 167 TO 167 + Scale * 90 - 1 -WorkAREA -CASE ELSE -IF Menu THEN MenuBAR 0 -END SELECT -CASE 400 TO 444 -SELECT CASE MouseX -CASE 0 TO 145: RunBUTTONS -CASE 200 TO 632: ColorBAR -IF Menu THEN MenuBAR 0 -CASE ELSE -IF Menu THEN MenuBAR 0 -END SELECT -CASE ELSE -IF Menu THEN MenuBAR 0 -END SELECT - -IF Started = 0 THEN -DO -PauseMOUSE LB, RB, MouseX, MouseY -OUT &H3C7, 0 -FOR n = 9 TO 56 -Box(n) = INP(&H3C9) -NEXT n -FrameCOUNT = 1 -Box(57) = FrameCOUNT -HideMOUSE -LINE (30, 194)-(119, 261), 15, BF -LINE (166, 56)-(615, 395), 15, BF -GET (30, 194)-(119, 261), Box(58) -FrameNUM = 1 -PrintFRAME -ShowMOUSE -Started = 1 -EXIT DO -LOOP -END IF - -LOOP - -CLOSE #1 -SYSTEM - -Clock: -Hour$ = MID$(TIME$, 1, 2) -IF VAL(Hour$) >= 12 THEN APM$ = " PM" ELSE APM$ = " AM" -Hour$ = LTRIM$(RTRIM$(STR$(VAL(Hour$) MOD 12))) -IF VAL(Hour$) = 0 THEN Hour$ = "12" -Minute$ = MID$(TIME$, 4, 2) -HideMOUSE -IF Hour$ <> OldHOUR$ THEN -LINE (566, 456)-(622, 471), 7, BF -IF LEN(Hour$) = 2 THEN -PrintSTRING 569, 459, "1", 1 -PrintSTRING 575, 459, MID$(Hour$, 2, 1), 1 -ELSE -PrintSTRING 575, 459, Hour$, 1 -END IF -PrintSTRING 583, 458, ":", 1 -PrintSTRING 599, 459, APM$, 1 -OldHOUR$ = Hour$ -END IF -LINE (587, 456)-(597, 471), 7, BF -IF MID$(Minute$, 1, 1) = "1" THEN -PrintSTRING 587, 459, "1", 1 -PrintSTRING 593, 459, MID$(Minute$, 2, 1), 1 -ELSE -PrintSTRING 587, 459, Minute$, 1 -END IF -ShowMOUSE -RETURN - -PathPROB: -PathERROR = 1 -RESUME NEXT - -xDATA: -DATA 255,280,313,338,363,388,413,438,463,508,533,558 - -yDATA: -DATA 338, 268, 194, 120, 50 - -REM $STATIC -SUB AniCOLOR (MenuITEM) -STATIC Mx, My, LB - -TIMER OFF -ClearMOUSE -SELECT CASE MenuITEM -CASE 1 -DEF SEG = VARSEG(WindowBOX(0)) -BLOAD "anibox2.bsv", VARPTR(WindowBOX(0)) -DEF SEG -HideMOUSE -GET (181, 90)-(460, 222), WindowBOX(9400) -PUT (181, 90), WindowBOX, PSET -ShowMOUSE -DO -MouseSTATUS LB, RB, MouseX, MouseY -IF MouseY > 95 AND MouseY < 110 THEN -IF MouseX > 437 AND MouseX < 453 THEN -IF CancelBOX THEN TIMER ON: EXIT SUB -END IF -END IF -SELECT CASE MouseX -CASE 204 TO 274 -xx = 206 -SELECT CASE MouseY -CASE 120 TO 133: ItemNUM = 1: yy = 120: GOSUB Itemize -CASE 134 TO 147: ItemNUM = 2: yy = 134: GOSUB Itemize -CASE 148 TO 161: ItemNUM = 3: yy = 148: GOSUB Itemize -CASE 162 TO 175: ItemNUM = 4: yy = 162: GOSUB Itemize -CASE 176 TO 189: ItemNUM = 5: yy = 176: GOSUB Itemize -CASE ELSE: GOSUB Otherwise -END SELECT -CASE 290 TO 360 -xx = 292 -SELECT CASE MouseY -CASE 120 TO 133: ItemNUM = 6: yy = 120: GOSUB Itemize -CASE 134 TO 147: ItemNUM = 7: yy = 134: GOSUB Itemize -CASE 148 TO 161: ItemNUM = 8: yy = 148: GOSUB Itemize -CASE 162 TO 175: ItemNUM = 9: yy = 162: GOSUB Itemize -CASE 176 TO 189: ItemNUM = 10: yy = 176: GOSUB Itemize -CASE ELSE: GOSUB Otherwise -END SELECT -CASE 376 TO 446 -xx = 378 -SELECT CASE MouseY -CASE 120 TO 133: ItemNUM = 11: yy = 120: GOSUB Itemize -CASE 134 TO 147: ItemNUM = 12: yy = 134: GOSUB Itemize -CASE 148 TO 161: ItemNUM = 13: yy = 148: GOSUB Itemize -CASE 162 TO 175: ItemNUM = 14: yy = 162: GOSUB Itemize -CASE 176 TO 189: ItemNUM = 15: yy = 176: GOSUB Itemize -CASE ELSE: GOSUB Otherwise -END SELECT -CASE ELSE: GOSUB Otherwise -END SELECT - -IF LB = -1 THEN -IF Item <> 0 THEN -IF Item = 1 THEN -PALETTE -ELSE -PalSTART = (Item - 2) * 48 + 1 -OUT &H3C8, 0 -FOR n = PalSTART TO PalSTART + 47 -OUT &H3C9, ColorBOX(n) -NEXT n -END IF -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -Mx = 0: My = 0 -PauseMOUSE LB, RB, MouseX, MouseY -ClearMOUSE -Workdone = 1 -TIMER ON -EXIT SUB -END IF -END IF -ClearMOUSE -LOOP -CASE 2 -DEF SEG = VARSEG(WindowBOX(0)) -BLOAD "anibox3.bsv", VARPTR(WindowBOX(0)) -DEF SEG -HideMOUSE -GET (181, 90)-(460, 222), WindowBOX(9400) -PUT (181, 90), WindowBOX, PSET -ShowMOUSE -OldCOLOR = 1: SetCOLOR = 1 -ClearMOUSE -OUT &H3C7, 1: Red = INP(&H3C9): Grn = INP(&H3C9): Blu = INP(&H3C9) -OldRED = Red: OldGRN = Grn: OldBLU = Blu -GOSUB SetSLIDER1: GOSUB SetSLIDER2: GOSUB SetSLIDER3 - -DO -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseY -CASE 95 TO 110 -IF MouseX > 437 AND MouseX < 453 THEN -IF CancelBOX THEN TIMER ON: EXIT SUB -END IF -CASE 131 TO 147 -IF MouseX > 191 AND MouseX < 450 THEN -IF LB = -1 THEN -HideMOUSE -TryCOLOR = POINT(MouseX, MouseY) -ShowMOUSE -IF TryCOLOR <> 0 AND TryCOLOR <> 7 THEN -IF TryCOLOR <> 8 AND TryCOLOR <> 15 THEN -SetCOLOR = TryCOLOR -END IF -END IF -END IF -END IF -CASE 154 TO 164: Slider = 1: GOSUB SetSLIDER 'slider 1 -CASE 166 TO 176: Slider = 2: GOSUB SetSLIDER 'slider 2 -CASE 178 TO 188: Slider = 3: GOSUB SetSLIDER 'slider 3 -CASE 192 TO 215 -IF LB = -1 THEN -IF MouseX > 356 AND MouseX < 403 THEN 'Cancel -OUT &H3C8, OldCOLOR -OUT &H3C9, OldRED -OUT &H3C9, OldGRN -OUT &H3C9, OldBLU -HideMOUSE -LINE (352, 191)-(400, 216), 7, B -DrawBOX 353, 192, 399, 215, 1 -ShowMOUSE -Interval .1 -HideMOUSE -LINE (352, 191)-(400, 216), 0, B -DrawBOX 353, 192, 399, 215, 0 -ShowMOUSE -Interval .1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -TIMER ON -EXIT SUB -END IF -IF MouseX > 404 AND MouseX < 451 THEN 'OK -HideMOUSE -LINE (403, 191)-(451, 216), 7, B -DrawBOX 404, 192, 450, 215, 1 -ShowMOUSE -Interval .1 -HideMOUSE -LINE (403, 191)-(451, 216), 0, B -DrawBOX 404, 192, 450, 215, 0 -ShowMOUSE -Interval .1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -Workdone = 1 -TIMER ON -EXIT SUB -END IF -END IF -END SELECT -IF OldCOLOR <> SetCOLOR THEN - -OUT &H3C8, OldCOLOR -OUT &H3C9, OldRED -OUT &H3C9, OldGRN -OUT &H3C9, OldBLU - -OUT &H3C7, SetCOLOR -Red = INP(&H3C9) -Grn = INP(&H3C9) -Blu = INP(&H3C9) - -HideMOUSE -LINE (402, 155)-(450, 186), SetCOLOR, BF -ShowMOUSE - -GOSUB SetSLIDER1 -GOSUB SetSLIDER2 -GOSUB SetSLIDER3 -OldCOLOR = SetCOLOR -OldRED = Red -OldGRN = Grn -OldBLU = Blu -END IF -ClearMOUSE -LOOP -END SELECT - -EXIT SUB - -SetSLIDER: -IF LB THEN -IF MouseX > 209 AND MouseX < 365 THEN -IF MouseX > 358 THEN MouseX = 358 -IF MouseX < 216 THEN MouseX = 216 -SliderVAL = (MouseX - 216) / 9 * 4 -SELECT CASE Slider -CASE 1: Red = SliderVAL: GOSUB SetSLIDER1 -CASE 2: Grn = SliderVAL: GOSUB SetSLIDER2 -CASE 3: Blu = SliderVAL: GOSUB SetSLIDER3 -END SELECT -END IF -END IF -RETURN - -SetSLIDER1: -RedX = Red / 4 * 9 + 209 -IF RedX <> OldRX THEN -HideMOUSE -IF OldRX THEN PUT (OldRX, 155), WindowBOX(9300), PSET -PUT (RedX, 155), WindowBOX(9200), PSET -LINE (377, 155)-(390, 165), 7, BF -PrintSTRING 377, 155, LTRIM$(STR$(Red)), 2 -ShowMOUSE -OldRX = RedX -GOSUB SetCOLOR -END IF -RETURN - -SetSLIDER2: -GrnX = Grn / 4 * 9 + 209 -IF GrnX <> OldGX THEN -HideMOUSE -IF OldGX THEN PUT (OldGX, 167), WindowBOX(9300), PSET -PUT (GrnX, 167), WindowBOX(9200), PSET -LINE (377, 167)-(390, 177), 7, BF -PrintSTRING 377, 167, LTRIM$(STR$(Grn)), 2 -ShowMOUSE -OldGX = GrnX -GOSUB SetCOLOR -END IF -RETURN - -SetSLIDER3: -BluX = Blu / 4 * 9 + 209 -IF BluX <> OldBX THEN -HideMOUSE -IF OldBX THEN PUT (OldBX, 179), WindowBOX(9300), PSET -PUT (BluX, 179), WindowBOX(9200), PSET -LINE (377, 179)-(390, 189), 7, BF -PrintSTRING 377, 179, LTRIM$(STR$(Blu)), 2 -ShowMOUSE -OldBX = BluX -GOSUB SetCOLOR -END IF -RETURN - -SetCOLOR: -OUT &H3C8, SetCOLOR -OUT &H3C9, Red -OUT &H3C9, Grn -OUT &H3C9, Blu -RETURN - -Itemize: -IF Item <> ItemNUM THEN -HideMOUSE -IF Mx THEN PUT (Mx, My), PaletteITEM, PSET -Mx = xx: My = yy -GET (Mx, My)-(Mx + 72, My + 14), PaletteITEM -PUT (Mx, My), PaletteITEM, PRESET -ShowMOUSE -Item = ItemNUM -END IF -RETURN - -Otherwise: -IF Item <> 0 THEN -HideMOUSE -IF Mx THEN PUT (Mx, My), PaletteITEM, PSET -ShowMOUSE -Item = 0 -END IF -RETURN - -END SUB - -SUB AniEDIT (MenuITEM) -SHARED Mask, TopLEFTx, TopLEFTy, BottomRIGHTx, BottomRIGHTy -STATIC Tx, Ty, Bx, By, CopyFRAME, WDTH, DPTH, MaskedCOPY, Pasted -TIMER OFF -SELECT CASE MenuITEM -CASE 1: PUT (30, 194), UndoBOX, PSET: ScaleUP 'Undo -CASE 2: 'Copy -HideMOUSE -IF Mask THEN -GOSUB AdjustCOORDINATES -GET (TopLEFTx, TopLEFTy)-(BottomRIGHTx, BottomRIGHTy), CopyBOX -Tx = TopLEFTx: Ty = TopLEFTy: Bx = BottomRIGHTx: By = BottomRIGHTy -WDTH = Bx - Tx: DPTH = By - Ty -Mask = 0: CopyFRAME = FrameNUM: MaskedCOPY = 1: Pasted = 0 -ELSE -GET (30, 194)-(119, 261), CopyBOX -Pasted = 0 -Tx = 30: Ty = 194: Bx = 119: By = 261 -END IF -ScaleUP -ShowMOUSE -CASE 3: 'Paste -IF Pasted = 0 THEN -GET (30, 194)-(119, 261), UndoBOX -IF CopyFRAME <> FrameNUM THEN -IF MaskedCOPY THEN -PUT (Tx, Ty), CopyBOX, PSET -ELSE -PUT (30, 194), CopyBOX, PSET -END IF -GET (30, 194)-(119, 261), Box(58 + (FrameNUM - 1) * 1635) -Workdone = 1 -ELSE -IF Mask = 1 THEN -GOSUB AdjustCOORDINATES -PWDTH = BottomRIGHTx - TopLEFTx -PDPTH = BottomRIGHTy - TopLEFTy -IF PWDTH < WDTH THEN Bx = Tx + PWDTH -IF PDPTH < DPTH THEN By = Ty + PDPTH -IF PWDTH >= WDTH THEN Bx = Tx + WDTH -IF PDPTH >= DPTH THEN By = Ty + DPTH -GET (Tx, Ty)-(Bx, By), CopyBOX -PUT (TopLEFTx, TopLEFTy), CopyBOX, PSET -Mask = 0: Pasted = 1 -ELSE -PUT (Tx, Ty), CopyBOX, PSET -Pasted = 1 -END IF -GET (30, 194)-(119, 261), Box(58 + (FrameNUM - 1) * 1635) -Workdone = 1 -END IF -END IF -GET (30, 194)-(119, 261), Box(58 + (FrameNUM - 1) * 1635) -ScaleUP -END SELECT -TIMER ON -EXIT SUB - -AdjustCOORDINATES: -IF TopLEFTx > BottomRIGHTx THEN SWAP TopLEFTx, BottomRIGHTx -IF TopLEFTy > BottomRIGHTy THEN SWAP TopLEFTy, BottomRIGHTy -IF TopLEFTx < 30 THEN TopLEFTx = 30 -IF TopLEFTy < 194 THEN TopLEFTx = 194 -IF BottomRIGHTx > 119 THEN BottomRIGHTx = 119 -IF BottomRIGHTy > 261 THEN BottomRIGHTy = 261 -RETURN - -END SUB - -SUB AniFILE (MenuITEM) -SHARED Ky$, OldFILENAME$, OldPRINTNAME$ -STATIC Cancelled - -OldFILENAME$ = FileNAME$: OldPRINTNAME$ = PrintNAME$ - -TIMER OFF -SELECT CASE MenuITEM -CASE 1 'New -IF Workdone THEN -SELECT CASE SavePROMPT -CASE 0 'x-button/Cancel button -TIMER ON: EXIT SUB -CASE 1 'Yes -GOSUB Yes -GOSUB NewFILE -CASE 2 'No -GOSUB NewFILE -END SELECT -ELSE -GOSUB NewFILE -END IF - -CASE 2 'Open -IF Workdone THEN -SELECT CASE SavePROMPT -CASE 0 -TIMER ON: EXIT SUB -CASE 1 -GOSUB Yes -END SELECT -END IF -Banner = 1 -GOSUB GetNAME -IF Cancelled = 1 THEN : Cancelled = 0: TIMER ON: EXIT SUB -LoadFILE - -CASE 3 'Save -IF LEN(FileNAME$) = 0 THEN -Banner = 2 -GOSUB GetNAME -IF Cancelled = 1 THEN Cancelled = 0: TIMER ON: EXIT SUB -GOSUB CheckEXISTING -GOSUB BSAVEFile -LINE (140, 0)-(300, 16), 0, BF -PrintSTRING 142, 3, PrintNAME$, 0 -Workdone = 0 -ELSE -GOSUB BSAVEFile -Workdone = 0 -END IF - -CASE 4 'Save As -Banner = 3 -GOSUB GetNAME -IF Cancelled = 1 THEN Cancelled = 0: TIMER ON: EXIT SUB -GOSUB CheckEXISTING -GOSUB BSAVEFile -Workdone = 0 -LINE (140, 0)-(300, 16), 0, BF -PrintSTRING 142, 3, PrintNAME$, 0 - -CASE 5 TO 8 'Open from recent list -FOR n = 1 TO 4 -GET #1, n, Recent(n) -NEXT n -FileNUMBER = MenuITEM - 4 -P$ = RTRIM$(Recent(FileNUMBER).PName) -IF LEN(P$) THEN -IF Workdone THEN -SELECT CASE SavePROMPT -CASE 0 -TIMER ON: EXIT SUB -CASE 1 -GOSUB Yes -END SELECT -END IF -FileNAME$ = RTRIM$(Recent(FileNUMBER).FName) -PrintNAME$ = RTRIM$(Recent(FileNUMBER).PName) -LoadFILE -END IF - -CASE 9, 10 'Exit (finished) -IF Workdone THEN -SELECT CASE SavePROMPT -CASE 0 -IF MenuITEM = 11 THEN MenuITEM = 12 -TIMER ON: EXIT SUB -CASE 1 -GOSUB Yes -CASE 2 -IF MenuITEM = 9 THEN -CLOSE #1 -SYSTEM -ELSE -TIMER ON: EXIT SUB -END IF -END SELECT -ELSE -CLOSE #1 -SYSTEM -END IF - -END SELECT - -TIMER ON -EXIT SUB - -GetNAME: -DEF SEG = VARSEG(WindowBOX(0)) -BLOAD "anibox1.bsv", VARPTR(WindowBOX(0)) -DEF SEG -HideMOUSE -GET (181, 90)-(460, 222), WindowBOX(9400) -PUT (181, 90), WindowBOX, PSET -SELECT CASE Banner '1:Open (default), 2:Save, 3:Save As -CASE 2: PUT (193, 98), WindowBOX(7000), PSET -CASE 3: PUT (193, 98), WindowBOX(7300), PSET -END SELECT -ShowMOUSE - -n$ = "": Ky$ = "": PrintX = 194: CharNUM = 1 - -DO -MouseSTATUS LB, RB, MouseX, MouseY -HideMOUSE -LINE (PrintX + 2, 120)-(PrintX + 2, 130), 8 -ShowMOUSE -IF LEN(Ky$) THEN -SELECT CASE ASC(Ky$) -CASE 8 -IF LEN(n$) THEN -HideMOUSE -CharNUM = CharNUM - 1 -LINE (FChar(CharNUM), 120)-(PrintX + 2, 131), 15, BF -PrintX = FChar(CharNUM) -n$ = MID$(n$, 1, LEN(n$) - 1) -LINE (PrintX + 2, 120)-(PrintX + 2, 130), 8 -ShowMOUSE -END IF -CASE 13 -GOSUB MakeNAME -RETURN -CASE 46, 48 TO 58, 65 TO 90, 92, 95, 97 TO 122, 126 -IF PrintX < 440 THEN -FChar(CharNUM) = PrintX -CharNUM = CharNUM + 1 -HideMOUSE -LINE (PrintX + 2, 120)-(PrintX + 2, 130), 15 -PrintSTRING PrintX, 120, Ky$, 1 -LINE (PrintX + 2, 120)-(PrintX + 2, 130), 8 -ShowMOUSE -n$ = n$ + Ky$ -END IF -END SELECT -END IF - -SELECT CASE MouseY -CASE 95 TO 110 -IF MouseX > 437 AND MouseX < 453 THEN -IF CancelBOX THEN Cancelled = 1: RETURN -END IF -CASE 150 TO 173 -SELECT CASE MouseX -CASE 355 TO 401 'Cancel -IF LB = -1 THEN -HideMOUSE -LINE (355, 150)-(401, 173), 7, B -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 355, 150, 401, 173, 0 -ShowMOUSE -Interval .1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -Cancelled = 1 -ClearMOUSE -RETURN -END IF -CASE 406 TO 452 'OK -IF LB = -1 THEN -HideMOUSE -LINE (406, 150)-(452, 173), 7, B -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 406, 150, 452, 173, 0 -ShowMOUSE -Interval .1 -GOSUB MakeNAME -RETURN -END IF -END SELECT -END SELECT -PauseMOUSE LB, RB, MouseX, MouseY -LOOP -RETURN - -CheckEXISTING: -OPEN FileNAME$ FOR BINARY AS #2 -IF LOF(2) THEN -CLOSE #2 -DisplayERROR 2 -FileNAME$ = OldFILENAME$ -PrintNAME$ = OldPRINTNAME$ -TIMER ON -EXIT SUB -END IF -CLOSE #2 -RETURN - -BSAVEFile: -FOR n = 1 TO 8 -Char$ = MID$(PrintNAME$, n, 1) -Box(n) = ASC(Char$) -NEXT n -OUT &H3C7, 0 -FOR n = 9 TO 56 -Box(n) = INP(&H3C9) -NEXT n -Box(57) = FrameCOUNT -GET (30, 194)-(119, 261), Box(58 + (FrameNUM - 1) * 1635) -DEF SEG = VARSEG(Box(1)) -BSAVE FileNAME$, VARPTR(Box(1)), (57 + Box(57) * 1635) * 2& -DEF SEG -SetRECENT 1 -Workdone = 0 -RETURN - -NewFILE: -HideMOUSE -LINE (30, 194)-(119, 261), 15, BF -GET (30, 194)-(119, 261), UndoBOX -IF Scale = 5 THEN -LINE (166, 56)-(615, 395), 15, BF -ELSE -LINE (166, 56)-(435, 259), 15, BF -END IF -FrameCOUNT = 1 -FOR Reps = 1 TO 5 -IF Reps = 3 THEN Reps = 4 -LogoFRAME Reps -NEXT Reps -FileNAME$ = "" -PrintNAME$ = "" -LINE (140, 0)-(300, 16), 0, BF -PrintSTRING 142, 3, "untitled", 0 -FrameNUM = 1 -PrintFRAME -ShowMOUSE -PALETTE -Workdone = 0 -TIMER ON -EXIT SUB -RETURN - -MakeNAME: -IF LEN(n$) THEN -FOR n = LEN(n$) TO 1 STEP -1 -Char$ = MID$(n$, n, 1) -IF Char$ = "." THEN Dot = n -IF Char$ = "\" THEN Slash = n: EXIT FOR -NEXT n -IF Dot THEN n$ = MID$(n$, 1, Dot - 1) -IF Slash THEN Path$ = MID$(n$, 1, Slash) -IF Slash THEN n$ = MID$(n$, Slash + 1, 8) -IF LEN(n$) > 8 THEN n$ = LEFT$(n$, 8) -Cap$ = UCASE$(MID$(n$, 1, 1)) -LC$ = MID$(n$, 2) -PrintNAME$ = Cap$ + LC$ + SPACE$(8 - LEN(n$)) -FileNAME$ = Path$ + n$ + ".AXB" -ELSE -Cancelled = 1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -RETURN -END IF -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -RETURN - -Yes: -IF LEN(FileNAME$) THEN -GOSUB BSAVEFile -ELSE -Banner = 2 -GOSUB GetNAME -IF Cancelled THEN -Cancelled = 0 -IF MenuITEM = 6 THEN MenuITEM = 7 -TIMER ON -EXIT SUB -END IF -GOSUB CheckEXISTING -GOSUB BSAVEFile -END IF -RETURN - -END SUB - -SUB AniHELP (OnWHAT) -SHARED LB -HideMOUSE -GET (181, 90)-(460, 220), WindowBOX(9400) -ShowMOUSE -TIMER OFF -SELECT CASE OnWHAT -CASE 1 'Instructions -PageNUM = 1 -GOSUB PutHELP -DO -MouseSTATUS LB, RB, MouseX, MouseY -IF MouseY > 95 AND MouseY < 110 THEN -SELECT CASE MouseX -CASE 380 TO 400: Button = 1 -CASE 405 TO 425: Button = 2 -CASE 438 TO 452: Button = 3 -END SELECT -IF Button = 3 THEN IF CancelBOX THEN TIMER ON: EXIT SUB -IF Button = 1 OR Button = 2 THEN -IF LB = -1 THEN -IF Button = 1 AND PageNUM > 1 THEN PageNUM = PageNUM - 1 -IF Button = 2 AND PageNUM < 10 THEN PageNUM = PageNUM + 1 -GOSUB PutHELP -ClearMOUSE -END IF -END IF -END IF -LOOP -CASE 2 'Load Demo -IF Workdone = 0 THEN -PrintNAME$ = "Book" -FileNAME$ = "Book.AXB" -LoadFILE -ELSE -DisplayERROR 4 -END IF -ClearMOUSE - -CASE 3 'About -PageNUM = 11 -GOSUB PutHELP -DO -MouseSTATUS LB, RB, MouseX, MouseY -IF MouseY > 95 AND MouseY < 110 THEN -IF MouseX > 437 AND MouseX < 453 THEN -IF CancelBOX THEN EXIT DO -END IF -END IF -LOOP -END SELECT - -TIMER ON -EXIT SUB - -PutHELP: -DEF SEG = VARSEG(WindowBOX(0)) -FileNAME$ = "AxHELP" + LTRIM$(STR$(PageNUM)) + ".BSV" -BLOAD FileNAME$, VARPTR(WindowBOX(0)) -HideMOUSE -PUT (181, 90), WindowBOX, PSET -ShowMOUSE -RETURN - -END SUB - -SUB AniSPECIAL (Trick) -TIMER OFF -GET (30, 194)-(119, 261), UndoBOX -SELECT CASE Trick -CASE 1 'flip horizontally -FOR x = 30 TO 75 -GET (x, 194)-(x, 261), WindowBOX(9400) -GET (149 - x, 194)-(149 - x, 261), WindowBOX(9600) -PUT (149 - x, 194), WindowBOX(9400), PSET -PUT (x, 194), WindowBOX(9600), PSET -NEXT x -CASE 2 'flip vertically -FOR y = 194 TO 227 -GET (30, y)-(119, y), WindowBOX(9400) -GET (30, 455 - y)-(119, 455 - y), WindowBOX(9600) -PUT (30, 455 - y), WindowBOX(9400), PSET -PUT (30, y), WindowBOX(9600), PSET -NEXT y -CASE 3 'negative -GET (30, 194)-(119, 261), WindowBOX(9400) -PUT (30, 194), WindowBOX(9400), PRESET -END SELECT -Workdone = 1 -ScaleUP -TIMER ON - -END SUB - -FUNCTION CancelBOX - -MouseSTATUS LB, RB, MouseX, MouseY -IF LB = -1 THEN -HideMOUSE -DrawBOX 438, 96, 452, 109, 1 -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 438, 96, 452, 109, 0 -ShowMOUSE -Interval .1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -Mx = 0: My = 0 -ClearMOUSE -CancelBOX = 1 -END IF - -END FUNCTION - -SUB ClearMOUSE -SHARED LB, RB, MouseX, MouseY - -WHILE LB OR RB -MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB ColorBAR -SHARED MouseX, MouseY, LB -TIMER OFF -IF LB = -1 THEN -IF MouseY > 423 AND MouseY < 434 THEN -SELECT CASE MouseX -CASE 201 TO 222: WClr = 0 -CASE 227 TO 248: WClr = 8 -CASE 253 TO 274: WClr = 7 -CASE 279 TO 300: WClr = 15 -CASE ELSE -HideMOUSE -TC = POINT(MouseX, MouseY) -ShowMOUSE -IF TC <> 0 AND TC <> 7 AND TC <> 8 AND TC <> 15 THEN -IF TC <> WClr THEN WClr = TC -END IF -END SELECT -END IF -HideMOUSE -LINE (152, 424)-(189, 433), WClr, BF -ShowMOUSE -ClearMOUSE -END IF -TIMER ON -END SUB - -SUB DisplayERROR (ErrorNUM) - -DEF SEG = VARSEG(WindowBOX(0)) -BLOAD "anibox4.bsv", VARPTR(WindowBOX(0)) -DEF SEG -HideMOUSE -GET (181, 90)-(460, 222), WindowBOX(9400) -PUT (181, 90), WindowBOX, PSET -SELECT CASE ErrorNUM -CASE 1: 'default - file/path error -CASE 2: PUT (223, 125), WindowBOX(5535), PSET 'name in use -CASE 3: PUT (223, 125), WindowBOX(6650), PSET 'not Animax! file -CASE 4: PUT (223, 125), WindowBOX(7765), PSET 'save before demo -END SELECT -ShowMOUSE - -DO -MouseSTATUS LB, RB, MouseX, MouseY -IF LB = -1 THEN -SELECT CASE MouseY -CASE 95 TO 110 -IF MouseX > 437 AND MouseX < 453 THEN -IF CancelBOX THEN EXIT SUB -END IF -CASE 125 TO 149 -IF MouseX > 401 AND MouseX < 450 THEN -HideMOUSE -LINE (402, 125)-(449, 149), 7, B -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 402, 125, 449, 149, 0 -ShowMOUSE -Interval .1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -ClearMOUSE -EXIT SUB -END IF -END SELECT -END IF -LOOP - -END SUB - -SUB DisplayFRAMES -HideMOUSE -FOR n = FrameNUM - 2 TO FrameNUM + 2 -Frame = Frame + 1 -IF n < 1 OR n > FrameCOUNT THEN -LogoFRAME Frame -ELSE -PUT (30, FBox(Frame)), Box(58 + (n - 1) * 1635), PSET -END IF -NEXT n -PrintFRAME -ShowMOUSE -END SUB - -SUB DrawBOX (x1, y1, x2, y2, Mode) -IF Mode = 1 THEN -Colr1 = 8: Colr2 = 15 -ELSE -Colr1 = 15: Colr2 = 8 -END IF -LINE (x1, y1)-(x2, y2), Colr1, B -LINE (x1, y2)-(x2, y2), Colr2 -LINE (x2, y1)-(x2, y2), Colr2 -END SUB - -SUB DrawSCREEN -SHARED Tx -DEF SEG = VARSEG(Box(1)) -FOR y = 0 TO 360 STEP 120 -Count = Count + 1 -FileNAME$ = "Animax!" + LTRIM$(STR$(Count)) + ".BSV" -BLOAD FileNAME$, VARPTR(Box(1)) -PUT (0, y), Box -NEXT y -DEF SEG -GET (60, 218)-(90, 232), TitleBOX -GET (30, 194)-(119, 261), UndoBOX -GET (30, 194)-(119, 261), CopyBOX -'Freehand tool selected -DrawBOX 338, 20, 362, 39, 1 -WorkingTOOL = 4: ExTOOL = 4 -Tx = 338: FileNAME$ = "" -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -DEFSNG A-Z -SUB Interval (Length!) - -OldTIMER! = TIMER -DO -IF TIMER < OldTIMER! THEN EXIT DO -LOOP UNTIL TIMER > OldTIMER! + Length! - -END SUB - -DEFINT A-Z -SUB LoadFILE -SHARED PathERROR, OldFILENAME$, OldPRINTNAME$ - - -OPEN FileNAME$ FOR BINARY AS #2 -IF LOF(2) THEN -FileEXISTS = 1 -ELSE -FileEXISTS = 0 -SetRECENT 2 -END IF -CLOSE #2 - -IF FileEXISTS = 0 THEN -DisplayERROR 1 -GOSUB NoFILE -END IF - -OPEN FileNAME$ FOR BINARY AS #2 -PathERROR = 0 -IF PathERROR THEN -CLOSE #2 -DisplayERROR 1 -GOSUB NoFILE -ELSE -t$ = " " -GET #2, , t$ -IF (LOF(2) - 7) / 2 >= 1692 AND t$ = CHR$(253) THEN -CLOSE #2 -SetRECENT 1 -DEF SEG = VARSEG(Box(1)) -BLOAD FileNAME$, VARPTR(Box(1)) -DEF SEG -Workdone = 0 -ELSE -DisplayERROR 3 -GOSUB NoFILE -END IF -END IF - -LINE (166, 56)-(166 + Scale * 90 - 1, 56 + Scale * 68 - 1), 8, BF - -PrintNAME$ = "" -FOR n = 1 TO 8 -PrintNAME$ = PrintNAME$ + CHR$(Box(n)) -NEXT n -OldPRINTNAME$ = PrintNAME$ -HideMOUSE -LINE (140, 0)-(300, 16), 0, BF -PrintSTRING 142, 3, PrintNAME$, 0 -ShowMOUSE -OUT &H3C8, 0 -FOR n = 9 TO 56 -OUT &H3C9, Box(n) -NEXT n -FrameCOUNT = Box(57) -HideMOUSE -LogoFRAME 1 -LogoFRAME 2 -FOR Reps = 0 TO FrameCOUNT - 1 -PUT (30, FBox(Reps + 3)), Box(58 + Reps * 1635), PSET -IF Reps = 2 THEN EXIT FOR -NEXT Reps -IF FrameCOUNT < 3 THEN LogoFRAME 5 -IF FrameCOUNT < 2 THEN LogoFRAME 4 -GET (30, 194)-(119, 261), UndoBOX -FrameNUM = 1 -PrintFRAME -ScaleUP -ShowMOUSE - -EXIT SUB - -NoFILE: -FileNAME$ = OldFILENAME$ -PrintNAME$ = OldPRINTNAME$ -EXIT SUB -RETURN - -END SUB - -SUB LocateMOUSE (x, y) - -LB = 4 -Mx = x -My = y -MouseDRIVER LB, 0, Mx, My - -END SUB - -SUB LogoFRAME (Frame) -LINE (30, FBox(Frame))-(119, FBox(Frame) + 67), 8, BF -LINE (30, FBox(Frame))-(119, FBox(Frame) + 67), 0, B -LINE (32, FBox(Frame) + 2)-(117, FBox(Frame) + 65), 0, B -LINE (34, FBox(Frame) + 4)-(115, FBox(Frame) + 63), 0, B -PUT (60, FBox(Frame) + 24), TitleBOX, PSET -END SUB - -SUB MenuBAR (InOUT) -SHARED LB, MouseX -STATIC Mx, Mxx, OldIy, MenuRIGHT, MenuBOTTOM - -IF InOUT = 0 THEN GOSUB EraseBUTTON: EXIT SUB -IF Menu > 5 THEN -TIMER OFF -DO -MouseSTATUS LB, RB, MouseX, MouseY -IF MouseY > MenuBOTTOM THEN GOSUB CloseMENU: EXIT SUB -SELECT CASE MouseX -CASE Mx TO MenuRIGHT -SELECT CASE MouseY -CASE IS < 20: GOSUB CloseMENU: EXIT SUB -CASE 20 TO 46 -IF MouseX < Mx OR MouseX > Mxx THEN GOSUB CloseMENU: EXIT SUB -CASE 47 TO 60: ItemNUM = 1: Iy = 47: GOSUB LightITEM -CASE 61 TO 74: ItemNUM = 2: Iy = 61: GOSUB LightITEM -CASE 75 TO 88 -IF Menu <> 30 THEN -ItemNUM = 3: Iy = 75: GOSUB LightITEM -END IF -CASE 89 TO 102 -IF Menu = 10 THEN -ItemNUM = 4: Iy = 89: GOSUB LightITEM -END IF -CASE 112 TO 125 -IF Menu = 10 THEN -ItemNUM = 5: Iy = 112: GOSUB LightITEM -END IF -CASE 126 TO 139 -IF Menu = 10 THEN -ItemNUM = 6: Iy = 126: GOSUB LightITEM -END IF -CASE 140 TO 153 -IF Menu = 10 THEN -ItemNUM = 7: Iy = 140: GOSUB LightITEM -END IF -CASE 154 TO 167 -IF Menu = 10 THEN -ItemNUM = 8: Iy = 154: GOSUB LightITEM -END IF -CASE 177 TO 190 -IF Menu = 10 THEN -ItemNUM = 9: Iy = 177: GOSUB LightITEM -END IF -END SELECT -IF LB = -1 THEN GOSUB SelectITEM -CASE ELSE -GOSUB CloseMENU: EXIT SUB -END SELECT -LOOP -GOSUB CloseMENU -EXIT SUB -ELSE -SELECT CASE MouseX -CASE 7 TO 47: MenuNUM = 1: ItemX = 7: ItemXX = 47: GOSUB Button -CASE 48 TO 87: MenuNUM = 2: ItemX = 48: ItemXX = 87: GOSUB Button -CASE 88 TO 135: MenuNUM = 3: ItemX = 88: ItemXX = 135: GOSUB Button -CASE 136 TO 193: MenuNUM = 4: ItemX = 136: ItemXX = 193: GOSUB Button -CASE 194 TO 235: MenuNUM = 5: ItemX = 194: ItemXX = 235: GOSUB Button -END SELECT -IF LB = -1 THEN -Menu = Menu * 10 -GOSUB DropMENU -END IF -END IF - -EXIT SUB - -Button: -IF Menu <> MenuNUM THEN -GOSUB EraseBUTTON -Mx = ItemX: Mxx = ItemXX -GOSUB RaiseBUTTON -Menu = MenuNUM -END IF -RETURN - -RaiseBUTTON: -HideMOUSE -LINE (Mx, 20)-(Mxx, 39), 15, B -LINE (Mx, 39)-(Mxx, 39), 8 -LINE (Mxx, 20)-(Mxx, 39), 8 -ShowMOUSE -RETURN - -EraseBUTTON: -IF Menu THEN -HideMOUSE -LINE (Mx, 20)-(Mxx, 39), 7, B -ShowMOUSE -END IF -Menu = 0 -TIMER ON -RETURN - -DropMENU: -IF Menu > 5 THEN -DEF SEG = VARSEG(WindowBOX(0)) -BLOAD "animnus.bsv", VARPTR(WindowBOX(0)) -DEF SEG -SELECT CASE Menu -CASE 10: Index = 0 -CASE 20: Index = 3420 -CASE 30: Index = 4220 -CASE 40: Index = 5350 -CASE 50: Index = 6834 -END SELECT -HideMOUSE -LINE (Mx, 20)-(Mxx, 39), 8, B -LINE (Mx, 39)-(Mxx, 39), 15 -LINE (Mxx, 20)-(Mxx, 39), 15 -GET (Mx, 40)-(Mx + WindowBOX(Index), 194), WindowBOX(9400) -PUT (Mx, 40), WindowBOX(Index), PSET -IF Menu = 10 THEN -num = 1 -FOR y = 113 TO 155 STEP 14 -x = 30 -Name$ = RTRIM$(Recent(num).PName) -FOR n = 1 TO LEN(Name$) -Char$ = MID$(Name$, n, 1) -PrintSTRING x, y, Char$, 1 -IF x > 76 THEN -PrintSTRING x, y, "...", 1 -EXIT FOR -END IF -NEXT n -num = num + 1 -NEXT y -END IF -ShowMOUSE -MenuRIGHT = WindowBOX(Index) + Mx -MenuBOTTOM = WindowBOX(Index + 1) + 39 -ClearMOUSE -END IF -RETURN - -CloseMENU: -HideMOUSE -PUT (Mx, 40), WindowBOX(9400), PSET -ShowMOUSE -GOSUB EraseBUTTON -RETURN - -LightITEM: -IF Item <> ItemNUM THEN -GOSUB DeLIGHT -Ix = Mx + 3: Ixx = MenuRIGHT - 4 -GOSUB HiLIGHT -Item = ItemNUM -OldIy = Iy -END IF -RETURN - -SelectITEM: -MenuNUM = Menu -GOSUB CloseMENU -Selection = MenuNUM + Item -SELECT CASE Selection -CASE 11 TO 19: AniFILE Selection - 10 -CASE 21 TO 23: AniEDIT Selection - 20 -CASE 31, 32: AniCOLOR Selection - 30 -CASE 41 TO 43: AniSPECIAL Selection - 40 -CASE 51 TO 53: AniHELP Selection - 50 -END SELECT -EXIT SUB -RETURN - -HiLIGHT: -HideMOUSE -GET (Ix, Iy)-(Ixx, Iy + 13), ItemBOX -PUT (Ix, Iy), ItemBOX, PRESET -ShowMOUSE -RETURN - -DeLIGHT: -IF Ix THEN -HideMOUSE -PUT (Ix, OldIy), ItemBOX, PSET -ShowMOUSE -END IF -RETURN - -END SUB - -SUB MouseDRIVER (LB, RB, Mx, My) - -DEF SEG = VARSEG(MouseDATA$) -mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, Mx, My, mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, Mx, My -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = Mx -MouseY = My - -END SUB - -SUB PauseMOUSE (L, R, x, y) -SHARED Ky$ - -DO -Ky$ = INKEY$ -MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> L OR R <> OldRB OR MouseX <> x OR MouseY <> y OR Ky$ <> "" - -END SUB - -SUB PrintBLURB -STATIC OldBLURB -SHARED ButtonsUP -TIMER OFF -IF Blurb <> OldBLURB THEN -LINE (281, 456)-(549, 471), 7, BF -SELECT CASE Blurb -CASE 1: B$ = "Rewind to first frame" -CASE 2: B$ = "Play" -CASE 3: B$ = "Fast forward to last frame" -CASE 4: B$ = "Back one frame" -CASE 5: B$ = "Frame advance (forward one frame)" -CASE 6, 7 -IF ButtonsUP = 0 THEN OldBLURB = Blurb: EXIT SUB -IF Blurb = 7 THEN B$ = "Outlined" ELSE B$ = "Filled" -CASE 8: B$ = "Pixel tool: precisely color individual pixels" -CASE 9: B$ = "Freehand drawing tool" -CASE 10: B$ = "Box tool" -CASE 11: B$ = "Circle tool" -CASE 12: B$ = "Elipse tool" -CASE 13: B$ = "Line tool" -CASE 14: B$ = "Floodfill (paint) tool" -CASE 15: B$ = "Mask tool" -CASE 16: B$ = "Zoom tool: toggles between 3x and 5x magnification" -CASE 17: B$ = "Color-swap tool: changes selected color to pen color" -END SELECT -PrintSTRING 288, 459, B$, 1 -END IF -OldBLURB = Blurb -TIMER ON -END SUB - -SUB PrintFRAME -IF FrameNUM < 10 THEN -Frame$ = "0" + LTRIM$(STR$(FrameNUM)) -ELSE -Frame$ = LTRIM$(STR$(FrameNUM)) -END IF -LINE (125, 221)-(145, 234), 8, BF -PrintSTRING 130, 222, Frame$, 1 -END SUB - -SUB PrintSTRING (x, y, Prnt$, Font) - -IF Font = 0 THEN -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "animssb.fnt", VARPTR(FontBOX(0)) -DEF SEG -END IF - -FOR i = 1 TO LEN(Prnt$) -Char$ = MID$(Prnt$, i, 1) -IF Char$ = " " THEN -x = x + FontBOX(1) -ELSE -Index = (ASC(Char$) - 33) * FontBOX(0) + 2 -PUT (x, y), FontBOX(Index) -x = x + FontBOX(Index) -END IF -NEXT i - -IF Font = 0 THEN -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "animssr.fnt", VARPTR(FontBOX(0)) -DEF SEG -END IF - -END SUB - -SUB RunBUTTONS -SHARED MouseX, MouseY, LB -TIMER OFF -IF MouseY < 414 OR MouseY > 434 THEN -Button = 0 -ELSE -SELECT CASE MouseX -CASE 15 TO 38: Bx = 15: Button = 1 -CASE 39 TO 62: Bx = 39: Button = 2 -CASE 63 TO 86: Bx = 63: Button = 3 -CASE 87 TO 110: Bx = 87: Button = 4 -CASE 111 TO 134: Bx = 111: Button = 5 -CASE ELSE: Button = 0 -END SELECT -END IF - -Blurb = Button -PrintBLURB - -IF LB = -1 THEN -IF Button THEN -HideMOUSE -DrawBOX Bx, 415, Bx + 23, 434, 1 -ShowMOUSE -IF Button <> 2 THEN -GET (30, 194)-(119, 261), Box(58 + (FrameNUM - 1) * 1635) -END IF -SELECT CASE Button -CASE 1: FrameNUM = 1: DisplayFRAMES: ScaleUP'rewind to first frame -CASE 2 'play -FOR Frames = 1 TO 5 -IF Frames = 3 THEN Frames = 4 -LogoFRAME Frames -NEXT Frames -OldFRAMENUM = FrameNUM -FOR n = 1 TO FrameCOUNT -FOR Delay = 1 TO 5 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -NEXT Delay -PUT (30, 194), Box(58 + (n - 1) * 1635), PSET -FrameNUM = n -PrintFRAME -Interval .05 -NEXT n -Interval .5 -FrameNUM = OldFRAMENUM -DisplayFRAMES -CASE 3: FrameNUM = FrameCOUNT: DisplayFRAMES: ScaleUP 'go to last frame -CASE 4 'back one frame -IF FrameNUM > 1 THEN -FrameNUM = FrameNUM - 1 -DisplayFRAMES -GET (30, 194)-(119, 261), UndoBOX -ScaleUP -END IF -CASE 5 'frame advance -IF FrameNUM < 16 THEN -IF FrameNUM = FrameCOUNT THEN -FrameCOUNT = FrameCOUNT + 1 -LINE (30, 194)-(119, 261), 15, BF -GET (30, 194)-(119, 261), Box(58 + (FrameCOUNT - 1) * 1635) -Workdone = 1 -END IF -FrameNUM = FrameNUM + 1 -DisplayFRAMES -GET (30, 194)-(119, 261), UndoBOX -ScaleUP -END IF -END SELECT -Interval .1 -HideMOUSE -DrawBOX Bx, 415, Bx + 23, 434, 0 -ShowMOUSE -ClearMOUSE -END IF -END IF -TIMER ON -END SUB - -FUNCTION SavePROMPT -TIMER OFF -HideMOUSE -DEF SEG = VARSEG(WindowBOX(0)) -BLOAD "anibox5.bsv", VARPTR(WindowBOX(0)) -DEF SEG -GET (181, 90)-(460, 222), WindowBOX(9400) -PUT (181, 90), WindowBOX, PSET -ShowMOUSE -BEEP - -DO -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseY -CASE 95 TO 110 -IF MouseX > 437 AND MouseX < 453 THEN -IF CancelBOX THEN SavePROMPT = 0: TIMER ON: EXIT FUNCTION -END IF -CASE 168 TO 189 -SELECT CASE MouseX -CASE 205 TO 272 'Yes -IF LB THEN -HideMOUSE -LINE (205, 168)-(272, 189), 7, B -GET (222, 172)-(255, 184), ItemBOX -PUT (223, 173), ItemBOX, PSET -ShowMOUSE -Interval .1 -HideMOUSE -LINE (205, 168)-(272, 189), 15, B -LINE (272, 168)-(272, 189), 8 -LINE (205, 189)-(272, 189), 8 -PUT (222, 172), ItemBOX, PSET -ShowMOUSE -Interval .1 -SavePROMPT = 1 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -TIMER ON -EXIT FUNCTION -END IF -CASE 285 TO 353 'No -IF LB THEN -HideMOUSE -LINE (285, 168)-(353, 189), 7, B -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 285, 168, 353, 189, 0 -ShowMOUSE -Interval .1 -SavePROMPT = 2 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -TIMER ON -EXIT FUNCTION -END IF -CASE 366 TO 434 'Cancel -IF LB = -1 THEN -HideMOUSE -LINE (366, 168)-(434, 189), 7, B -ShowMOUSE -Interval .1 -HideMOUSE -DrawBOX 366, 168, 434, 189, 0 -ShowMOUSE -Interval .1 -SavePROMPT = 0 -HideMOUSE -PUT (181, 90), WindowBOX(9400), PSET -ShowMOUSE -TIMER ON -EXIT FUNCTION -END IF -END SELECT -END SELECT -PauseMOUSE LB, RB, MouseX, MouseY -LOOP - -END FUNCTION - -SUB ScaleFRAME -HideMOUSE -TIMER OFF -LINE (155, 45)-(626, 406), 8, BF -IF Scale = 5 THEN -LINE (157, 47)-(626, 406), 0, B -LINE (156, 46)-(625, 405), 7, BF -LINE (156, 46)-(625, 405), 15, B -LINE (156, 405)-(625, 405), 8 -LINE (625, 46)-(625, 405), 8 - -LINE (165, 55)-(616, 396), 15, B -LINE (165, 55)-(165, 395), 8 -LINE (165, 55)-(615, 55), 8 -LINE (166, 56)-(615, 395), 8, BF -ELSE -LINE (157, 47)-(446, 270), 0, B -LINE (156, 46)-(445, 269), 7, BF -LINE (156, 46)-(445, 269), 15, B -LINE (156, 269)-(445, 269), 8 -LINE (445, 46)-(445, 269), 8 - -LINE (166, 56)-(435, 259), 8, BF -LINE (165, 55)-(436, 260), 15, B -LINE (165, 55)-(435, 55), 8 -LINE (165, 55)-(165, 259), 8 -END IF -ShowMOUSE -ScaleUP -TIMER ON -END SUB - -SUB ScaleUP -TIMER OFF -HideMOUSE -FOR y = 0 TO 67 -FOR x = 0 TO 89 -LINE (x * Scale + 166, y * Scale + 56)-(x * Scale + 166 + Scale - 1, y * Scale + 56 + Scale - 1), POINT(x + 30, y + 194), BF -NEXT x -NEXT y -ShowMOUSE -TIMER ON -END SUB - -SUB SetRECENT (Mode) - -FOR n = 1 TO 6 -GET #1, n, Recent(n) -NEXT n - -IF Mode = 1 THEN - -FOR n = 6 TO 2 STEP -1 'shift file names down one -Recent(n) = Recent(n - 1) -NEXT n -Recent(1).PName = PrintNAME$ 'add new name to top slot -Recent(1).FName = FileNAME$ - -ELSE 'file to be removed from recent list - -FOR n = 1 TO 6 -IF UCASE$(RTRIM$(Recent(n).FName)) = UCASE$(FileNAME$) THEN -Recent(n).PName = SPACE$(8) -Recent(n).FName = SPACE$(130) -END IF -NEXT n -FileNAME$ = OldFILENAME$ -PrintNAME$ = OldPRINTNAME$ -END IF - -FOR n = 1 TO 5 'replace duplicates with blanks -FOR nn = n + 1 TO 6 -IF UCASE$(RTRIM$(Recent(nn).PName)) = UCASE$(RTRIM$(Recent(n).PName)) THEN -Recent(nn).PName = SPACE$(8) -Recent(nn).FName = SPACE$(130) -END IF -NEXT nn -NEXT n - -FOR n = 1 TO 5 'move all names to top of list, blanks to bottom -IF LEN(RTRIM$(Recent(n).PName)) = 0 THEN -Hop = 1 -DO -IF LEN(RTRIM$(Recent(n + Hop).PName)) <> 0 THEN -SWAP Recent(n), Recent(n + Hop) -EXIT DO -END IF -Hop = Hop + 1 -IF Hop + n > 6 THEN EXIT DO -LOOP -END IF -NEXT n - -FOR n = 1 TO 6 'put new list configuration in file -PUT #1, n, Recent(n) -NEXT n - -END SUB - -SUB SetXY -SHARED MouseX, MouseY -STATIC ExX, ExY -IF MouseX > 165 AND MouseX < 165 + Scale * 90 THEN -IF MouseY > 55 AND MouseY < 55 + Scale * 68 THEN -IF MouseX <> ExX OR MouseY <> ExY THEN -PixelX = (MouseX - 166) \ Scale -PixelY = (MouseY - 55) \ Scale -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -LINE (71, 459)-(91, 470), 15, BF -PrintSTRING 71, 459, STR$(PixelX), 1 -LINE (102, 459)-(122, 470), 15, BF -PrintSTRING 102, 459, STR$(PixelY), 1 -ExX = PixelX: ExY = PixelY -END IF -END IF -END IF -END SUB - -SUB ShowMOUSE - -LB = 1 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -SUB ToolBAR -SHARED MouseX, MouseY, LB, ButtonsUP - -TIMER OFF -IF MouseY < 20 OR MouseY > 40 THEN -Tool = -5 -ELSE -SELECT CASE MouseX -CASE 255 TO 279: Tool = 1 -CASE 280 TO 304: Tool = 2 -CASE 313 TO 337: Tool = 3 -CASE 338 TO 362: Tool = 4 -CASE 363 TO 387: Tool = 5: ChangeSCALE = 1: xx = 364 -CASE 388 TO 412: Tool = 6: ChangeSCALE = 1: xx = 389 -CASE 413 TO 437: Tool = 7: ChangeSCALE = 1: xx = 414 -CASE 438 TO 462: Tool = 8: ChangeSCALE = 1 -CASE 463 TO 487: Tool = 9 -CASE 508 TO 532: Tool = 10: ChangeSCALE = 1 -CASE 533 TO 557: Tool = 11: IF LB = -1 THEN GOSUB Mag -CASE 558 TO 582: Tool = 12 -CASE ELSE: Tool = -5 -END SELECT -END IF - -Blurb = Tool + 5 -PrintBLURB - -IF LB = -1 THEN -IF Tool > 2 THEN -IF Tool <> WorkingTOOL THEN -HideMOUSE -DrawBOX ToolBOX(WorkingTOOL), 20, ToolBOX(WorkingTOOL) + 24, 39, 0 -WorkingTOOL = Tool -DrawBOX ToolBOX(WorkingTOOL), 20, ToolBOX(WorkingTOOL) + 24, 39, 1 -ShowMOUSE -w = WorkingTOOL -IF w = 5 OR w = 6 OR w = 7 THEN -HideMOUSE -GET (xx, 21)-(xx + 22, 38), ItemBOX -PUT (281, 21), ItemBOX, PSET -PUT (256, 21), ItemBOX, PSET -PAINT (267, 30), 0 -DrawBOX 280, 20, 304, 39, Filled + 1 -DrawBOX 255, 20, 279, 39, Filled -ShowMOUSE -ButtonsUP = 1 -ELSE -IF WorkingTOOL <> 1 AND WorkingTOOL <> 2 THEN -HideMOUSE -LINE (254, 20)-(312, 39), 7, BF -ButtonsUP = 0 -ShowMOUSE -END IF -END IF -END IF -ELSE -IF ButtonsUP = 1 THEN -IF Tool = 1 THEN Filled = 1 ELSE Filled = 0 -HideMOUSE -DrawBOX ToolBOX(1), 20, ToolBOX(1) + 24, 39, Filled -DrawBOX ToolBOX(2), 20, ToolBOX(2) + 24, 39, Filled + 1 -ShowMOUSE -END IF -END IF -IF ChangeSCALE = 1 THEN -IF Scale = 5 THEN -Scale = 3 -ScaleFRAME -END IF -END IF -ExTOOL = WorkingTOOL -GOSUB CloseUP -END IF - -EXIT SUB - -CloseUP: -ClearMOUSE -TIMER ON -EXIT SUB -RETURN - -Mag: -IF Scale = 3 THEN -w = WorkingTOOL -IF w = 5 OR w = 6 OR w = 7 OR w = 8 OR w = 10 THEN -HideMOUSE -DrawBOX ToolBOX(WorkingTOOL), 20, ToolBOX(WorkingTOOL) + 24, 39, 0 -WorkingTOOL = 4 -DrawBOX ToolBOX(WorkingTOOL), 20, ToolBOX(WorkingTOOL) + 24, 39, 1 -LINE (254, 20)-(312, 39), 7, BF -ButtonsUP = 0 -ShowMOUSE -END IF -END IF -IF Scale = 3 THEN Scale = 5 ELSE Scale = 3 -HideMOUSE -DrawBOX ToolBOX(11), 20, ToolBOX(11) + 24, 39, 1 -ScaleFRAME -DrawBOX ToolBOX(11), 20, ToolBOX(11) + 24, 39, 0 -ShowMOUSE -GOSUB CloseUP -RETURN - -END SUB - -SUB WorkAREA -SHARED LB, RB, MouseX, MouseY -SHARED Mask, TopLEFTx, TopLEFTy, BottomRIGHTx, BottomRIGHTy -IF Scale = 3 THEN Adjust = 2 ELSE Adjust = 0 - -IF RB THEN -HideMOUSE -WClr = POINT(MouseX, MouseY) -LINE (152, 424)-(189, 433), WClr, BF -ShowMOUSE -END IF - -SetXY - -GOSUB SetPIXEL -SELECT CASE WorkingTOOL -CASE 3 'Pixel tool -IF LB THEN -HideMOUSE -GET (30, 194)-(119, 261), UndoBOX -PSET (PixelX + 29, PixelY + 193), WClr -x = PixelX * Scale + 161 + Adjust -y = PixelY * Scale + 51 + Adjust -LINE (x, y)-(x + Scale - 1, y + Scale - 1), WClr, BF -ClearMOUSE -ShowMOUSE -Workdone = 1 -END IF -CASE 4 'Freehand tool -IF LB THEN -TIMER OFF -OldPIXELx = PixelX: OldPIXELy = PixelY -OldMOUSEx = MouseX: OldMOUSEy = MouseY -HideMOUSE -GET (30, 194)-(119, 261), UndoBOX -ShowMOUSE -WHILE LB -MouseSTATUS LB, RB, MouseX, MouseY -GOSUB SetPIXEL -VIEW SCREEN (166, 56)-(166 + Scale * 90 - 1, 56 + Scale * 68 - 1) -LINE (OldMOUSEx - 2, OldMOUSEy - 2)-(MouseX - 2, MouseY - 2), WClr -LINE (OldMOUSEx - 1, OldMOUSEy - 1)-(MouseX - 1, MouseY - 1), WClr -LINE (OldMOUSEx, OldMOUSEy)-(MouseX, MouseY), WClr -VIEW SCREEN (30, 194)-(119, 261) -LINE (OldPIXELx + 29, OldPIXELy + 193)-(PixelX + 29, PixelY + 193), WClr -ShowMOUSE -PauseMOUSE LB, RB, MouseX, MouseY -OldPIXELx = PixelX: OldPIXELy = PixelY -OldMOUSEx = MouseX: OldMOUSEy = MouseY -WEND -TIMER ON -VIEW -ScaleUP -Workdone = 1 -END IF -CASE 5 'Box tool -IF LB THEN -TIMER OFF -GOSUB SetPIXEL -HideMOUSE -GET (166, 56)-(435, 259), WindowBOX -GET (30, 194)-(119, 261), WindowBOX(14000) -GET (30, 194)-(119, 261), UndoBOX -ShowMOUSE -LocateMOUSE ScalePIXELx, ScalePIXELy -TopLEFTx = PixelX -TopLEFTy = PixelY -TopLEFTxx = ScalePIXELx + 2 -TopLEFTyy = ScalePIXELy + 2 -WHILE LB -MouseSTATUS LB, RB, MouseX, MouseY -GOSUB SetPIXEL -HideMOUSE -VIEW SCREEN (166, 56)-(435, 259) -PUT (166, 56), WindowBOX, PSET -LINE (TopLEFTxx, TopLEFTyy)-(ScalePIXELx + 4, ScalePIXELy + 2), WClr, B -LINE (TopLEFTxx + 1, TopLEFTyy + 1)-(ScalePIXELx + 3, ScalePIXELy + 3), WClr, B -LINE (TopLEFTxx + 2, TopLEFTyy + 2)-(ScalePIXELx + 2, ScalePIXELy + 4), WClr, B -VIEW SCREEN (30, 194)-(119, 261) -PUT (30, 194), WindowBOX(14000), PSET -LINE (TopLEFTx + 29, TopLEFTy + 193)-(PixelX + 29, PixelY + 193), WClr, B -ShowMOUSE -PauseMOUSE LB, RB, MouseX, MouseY -WEND -IF Filled = 1 THEN -HideMOUSE -VIEW SCREEN (30, 194)-(119, 261) -LINE (TopLEFTx + 29, TopLEFTy + 193)-(PixelX + 29, PixelY + 193), WClr, BF -ShowMOUSE -END IF -VIEW -ScaleUP -Workdone = 1 -TIMER ON -END IF -CASE 6, 7 'Circle/Elipse tools -IF LB THEN -TIMER OFF -HideMOUSE -GET (166, 56)-(435, 259), WindowBOX -GET (30, 194)-(119, 261), WindowBOX(14000) -GET (30, 194)-(119, 261), UndoBOX -ShowMOUSE -VIEW SCREEN (166, 56)-(435, 259) -GOSUB SetPIXEL -CircleXX = ScalePIXELx + 3 -CircleYY = ScalePIXELy + 2 -CircleX = PixelX -CircleY = PixelY -WHILE LB -MouseSTATUS LB, RB, MouseX, MouseY -GOSUB SetPIXEL -Radius = SQR((ScalePIXELx - CircleXX) ^ 2 + (ScalePIXELy - CircleYY) ^ 2) -LilRADIUS = Radius / 3 -IF WorkingTOOL = 6 THEN -Elipse! = 1 -ELSE -IF ScalePIXELx > CircleXX THEN -Adjacent = ScalePIXELx - CircleXX -ELSE -Adjacent = CircleXX - ScalePIXELx -END IF -IF ScalePIXELy > CircleYY THEN -Opposite = ScalePIXELy - CircleYY -ELSE -Opposite = CircleYY - ScalePIXELy -END IF -Elipse! = Opposite / (Adjacent + .01) -END IF -HideMOUSE -VIEW SCREEN (166, 56)-(435, 259) -PUT (166, 56), WindowBOX, PSET -CIRCLE (CircleXX, CircleYY), Radius, WClr, , , Elipse! -CIRCLE (CircleXX, CircleYY), Radius + 1, WClr, , , Elipse! -CIRCLE (CircleXX, CircleYY), Radius + 2, WClr, , , Elipse! -VIEW SCREEN (30, 194)-(119, 261) -PUT (30, 194), WindowBOX(14000), PSET -CIRCLE (CircleX + 29, CircleY + 193), LilRADIUS, WClr, , , Elipse! -ShowMOUSE -PauseMOUSE LB, RB, MouseX, MouseY -WEND -IF Filled = 1 THEN -HideMOUSE -VIEW SCREEN (30, 194)-(119, 261) -FOR Radii = LilRADIUS TO 1 STEP -1 -CIRCLE (CircleX + 29, CircleY + 193), Radii, WClr, , , Elipse! -IF Radii = LilRADIUS THEN -IF LilRADIUS > 2 THEN -CIRCLE (CircleX + 29, CircleY + 194), Radii, WClr, 0, 3.14259, Elipse! -END IF -ELSE -IF LilRADIUS > 2 THEN -CIRCLE (CircleX + 29, CircleY + 194), Radii, WClr, , , Elipse! -END IF -END IF -NEXT Radii -IF LilRADIUS = 1 THEN PSET (CircleX + 29, CircleY + 193), WClr -IF LilRADIUS = 2 THEN -LINE (CircleX + 28, CircleY + 192)-(CircleX + 30, CircleY + 194), WClr, BF -END IF -ShowMOUSE -END IF -VIEW -ScaleUP -Workdone = 1 -TIMER ON -END IF -CASE 8 'Line tool -IF LB THEN -TIMER OFF -GOSUB SetPIXEL -HideMOUSE -GET (166, 56)-(435, 259), WindowBOX -GET (30, 194)-(119, 261), WindowBOX(14000) -GET (30, 194)-(119, 261), UndoBOX -ShowMOUSE -LocateMOUSE ScalePIXELx, ScalePIXELy -LEFTx = PixelX -LEFTy = PixelY -LEFTxx = ScalePIXELx + 3 -LEFTyy = ScalePIXELy + 3 -WHILE LB -MouseSTATUS LB, RB, MouseX, MouseY -GOSUB SetPIXEL -HideMOUSE -VIEW SCREEN (166, 56)-(435, 259) -PUT (166, 56), WindowBOX, PSET -LINE (LEFTxx - 1, LEFTyy - 1)-(ScalePIXELx - 1, ScalePIXELy - 1), WClr -LINE (LEFTxx, LEFTyy)-(ScalePIXELx, ScalePIXELy), WClr -LINE (LEFTxx + 1, LEFTyy + 1)-(ScalePIXELx + 1, ScalePIXELy + 1), WClr -VIEW SCREEN (30, 194)-(119, 261) -PUT (30, 194), WindowBOX(14000), PSET -LINE (LEFTx + 29, LEFTy + 193)-(PixelX + 28, PixelY + 192), WClr -ShowMOUSE -PauseMOUSE LB, RB, MouseX, MouseY -WEND -VIEW -ScaleUP -Workdone = 1 -TIMER ON -END IF -CASE 9 'Paint tool -IF LB THEN -TIMER OFF -HideMOUSE -GET (30, 194)-(119, 261), UndoBOX -IF Scale = 5 THEN -VIEW SCREEN (166, 56)-(615, 395) -ELSE -VIEW SCREEN (166, 56)-(435, 259) -END IF -PAINT (MouseX, MouseY), WClr -VIEW SCREEN (30, 194)-(119, 261) -PAINT (PixelX + 29, PixelY + 193), WClr -ClearMOUSE -VIEW -ShowMOUSE -Workdone = 1 -TIMER ON -Interval .2 -END IF -CASE 10 'Mask tool -IF LB = -1 THEN -TIMER OFF -HideMOUSE -ScaleUP -GET (166, 56)-(435, 259), WindowBOX -GET (30, 194)-(119, 261), UndoBOX -ShowMOUSE -TopLEFTx = MouseX: IF TopLEFTx < 166 THEN TopLEFTx = 166 -TopLEFTy = MouseY: IF TopLEFTy < 56 THEN TopLEFTy = 56 -WHILE LB = -1 -MouseSTATUS LB, RB, MouseX, MouseY -HideMOUSE -PUT (166, 56), WindowBOX, PSET -IF MouseX > 435 THEN MouseX = 435 -IF MouseY > 259 THEN MouseY = 259 -IF MouseX < 166 THEN MouseX = 166 -IF MouseY < 56 THEN MouseY = 56 -LINE (TopLEFTx, TopLEFTy)-(MouseX, MouseY), 0, B -LINE (TopLEFTx, TopLEFTy)-(MouseX, MouseY), 15, B, &HCCCC -ShowMOUSE -WEND -CopyWIDTH = INT((MouseX - TopLEFTx) / 3) -CopyDEPTH = INT((MouseY - TopLEFTy) / 3) -TopLEFTx = (TopLEFTx - 166) / 3 + 30: TopLEFTy = (TopLEFTy - 56) / 3 + 194 -BottomRIGHTx = TopLEFTx + CopyWIDTH: BottomRIGHTy = TopLEFTy + CopyDEPTH -Mask = 1 -TIMER ON -END IF -CASE 12 'Swap colors tool -IF LB THEN -HideMOUSE -GET (30, 194)-(119, 261), UndoBOX -RefCOLOR = POINT(MouseX, MouseY) -FOR x = 30 TO 119 -FOR y = 194 TO 261 -IF POINT(x, y) = RefCOLOR THEN PSET (x, y), WClr -NEXT y -NEXT x -ScaleUP -Workdone = 1 -ShowMOUSE -END IF -END SELECT - -EXIT SUB - -SetPIXEL: -PixelX = INT((MouseX - 167) / Scale) + 1 -PixelY = INT((MouseY - 57) / Scale) + 1 -ScalePIXELx = PixelX * Scale + 161 -ScalePIXELy = PixelY * Scale + 51 -RETURN - -END SUB diff --git a/programs/samples/thebob/animax/axgfx.bas b/programs/samples/thebob/animax/axgfx.bas deleted file mode 100644 index 0d597dd45..000000000 --- a/programs/samples/thebob/animax/axgfx.bas +++ /dev/null @@ -1,1194 +0,0 @@ -CHDIR ".\programs\samples\thebob\animax" - -DEFINT A-Z -DECLARE SUB PrintSTRING (x, y, Prnt$, Font) -DECLARE SUB Interval (Length!) -DECLARE SUB DrawBOX (x, y, xx, yy, FlipFLOP) - -DIM Box(10000) -DIM SHARED FontBOX(26000) -DIM TitleBOX(1000) -DIM ExBOX(1000) -DIM ToolBOX(1000) -DIM BBox(400) -DIM CBox(1 TO 672) -TYPE RecentTYPE -PName AS STRING * 8 -FName AS STRING * 130 -END TYPE -DIM Recent(1 TO 6) AS RecentTYPE - -RESTORE HueDATA -Index = 1 -FOR DStrings = 1 TO 10 -READ h$ -FOR n = 1 TO LEN(h$) -CBox(Index) = ASC(MID$(h$, n, 1)) - 35 -Index = Index + 1 -NEXT n -NEXT DStrings -DEF SEG = VARSEG(CBox(1)) -BSAVE "anihues.bsv", VARPTR(CBox(1)), 1344 -DEF SEG -OPEN "recent.axd" FOR RANDOM AS #1 LEN = LEN(Recent(1)) -FOR n = 1 TO 6 -Recent(n).PName = SPACE$(8) -Recent(n).FName = SPACE$(130) -PUT #1, n, Recent(n) -NEXT n -CLOSE #1 - -SCREEN 12 -GOSUB Setpalette -'Create images from DATA -MaxWIDTH = 211 -MaxDEPTH = 479 -x = 0: y = 0 -RESTORE PixDATA -DO -READ DataSTRING$ -FOR n = 1 TO LEN(DataSTRING$) -Char$ = MID$(DataSTRING$, n, 1) -IF Char$ = CHR$(225) THEN Char$ = CHR$(160) -SELECT CASE Char$ -CASE "!" -n = n + 1 -a$ = MID$(DataSTRING$, n, 1) -Count = ASC(a$) + 68 -CASE "#" -n = n + 1 -B$ = MID$(DataSTRING$, n) -FOR I = 1 TO LEN(B$) -t$ = MID$(B$, I, 1) -IF t$ = "#" THEN EXIT FOR -c$ = c$ + t$ -NEXT I -Count = VAL("&H" + c$) -n = n + LEN(c$) -c$ = "" -CASE ELSE -Count = ASC(Char$) - 60 -END SELECT -n = n + 1 -Colr = VAL("&H" + MID$(DataSTRING$, n, 1)) -FOR Reps = 1 TO Count -PSET (x, y), Colr -x = x + 1 -IF x > MaxWIDTH THEN x = 0: y = y + 1 -NEXT Reps -NEXT n -LOOP UNTIL y > MaxDEPTH 'DATA drawing loop ends here -------------------- -GET (16, 10)-(37, 35), ExBOX -GET (173, 0)-(182, 68), FontBOX -FOR x = 295 TO 335 STEP 10 -PUT (x, 0), FontBOX, PSET -NEXT x -GET (300, 0)-(337, 67), FontBOX: PUT (300, 0), FontBOX -LINE (295, 0)-(300, 68), 0, BF -FOR y = 0 TO 400 STEP 68 -PUT (300, y), FontBOX, PSET -NEXT y -GET (65, 0)-(116, 203), FontBOX: PUT (65, 0), FontBOX -PUT (337, 0), FontBOX, PSET -GET (117, 0)-(168, 203), FontBOX: PUT (117, 0), FontBOX -PUT (337, 204), FontBOX, PSET -GET (169, 0)-(211, 407), FontBOX: PUT (169, 0), FontBOX -PUT (391, 0), FontBOX, PSET -GET (156, 410)-(201, 477), FontBOX: PUT (156, 410), FontBOX -FOR y = 0 TO 400 STEP 68 -PUT (434, y), FontBOX, PSET -NEXT y -GET (300, 0)-(300, 407), FontBOX: PUT (390, 0), FontBOX, PSET -GET (479, 0)-(479, 407), FontBOX: PUT (389, 0), FontBOX, PSET -GET (149, 304)-(152, 439), FontBOX: PUT (149, 304), FontBOX -PUT (431, 0), FontBOX, PSET -GET (156, 304)-(162, 407), FontBOX: PUT (156, 304), FontBOX -PUT (330, 304), FontBOX, PSET -FileNAME$ = "Book" + SPACE$(4) -FOR n = 1 TO 8 -FontBOX(n) = ASC(MID$(FileNAME$, n, 1)) -NEXT n -RESTORE Setpalette -FOR n = 9 TO 56 -READ FontBOX(n) -NEXT n -FontBOX(57) = 12 -Index = 58 -x = 300: y = 0 -FOR Index = 58 TO 18043 STEP 1635 -GET (x, y)-(x + 89, y + 67), FontBOX(Index) -PUT (x, y), FontBOX(Index) -y = y + 68 -IF y > 400 THEN x = x + 90: y = 0 -NEXT Index -DEF SEG = VARSEG(FontBOX(0)) -BSAVE "book.axb", VARPTR(FontBOX(1)), 19678 * 2& -DEF SEG -GET (0, 159)-(30, 174), TitleBOX -Index = 0 -FOR y = 0 TO 160 STEP 20 -GET (45, y)-(63, y + 14), ToolBOX(Index) -Index = Index + 100 -NEXT y -DEF SEG = VARSEG(ToolBOX(0)) -BSAVE "anitools.bsv", VARPTR(ToolBOX(0)), 1800 -DEF SEG -Index = 0 -FOR y = 0 TO 80 STEP 20 -GET (0, y)-(10, y + 8), BBox(Index) -Index = Index + 50 -NEXT y -FOR y = 100 TO 120 STEP 20 -GET (0, y)-(15, y + 14), BBox(Index) -Index = Index + 75 -GET (0, 140)-(30, 153), Box 'minimize/maximize buttons -GET (22, 0)-(28, 6), Box(150) 'screw -NEXT y -LINE (0, 0)-(64, 174), 0, BF -GET (13, 444)-(54, 453), FontBOX(10000): PUT (13, 444), FontBOX(10000) -GET (58, 444)-(87, 453), FontBOX(10200): PUT (58, 444), FontBOX(10200) -GET (91, 444)-(133, 453), FontBOX(10400) -GET (110, 444)-(133, 453), FontBOX(10600): PUT (91, 444), FontBOX(10400) -GET (54, 453)-(140, 462), FontBOX(10800): PUT (54, 453), FontBOX(10800) -PUT (53, 453), FontBOX(10600) -GET (13, 453)-(76, 462), FontBOX(11200): PUT (13, 453), FontBOX(11200) -Index = 12000 -FOR x = 14 TO 104 STEP 10 -IF x = 24 THEN Hop = -1 ELSE Hop = 0 -GET (x + Hop, 462)-(x + 2 + Hop, 470), FontBOX(Index) -PUT (x + Hop, 462), FontBOX(Index) -Index = Index + 20 -NEXT x - -GOSUB GetFONT -CLS - -LINE (0, 0)-(639, 17), 0, BF -LINE (30, 0)-(119, 16), 8, BF -LINE (0, 18)-(639, 40), 7, BF -LINE (0, 41)-(639, 41), 0 -LINE (0, 411)-(639, 479), 7, BF -LINE (0, 411)-(639, 411), 15 -'Tool bar -LINE (497, 20)-(497, 38), 8 -LINE (498, 20)-(498, 38), 15 -LINE (324, 28)-(326, 30), 0, BF -LINE (322, 26)-(328, 32), 0, B -FOR x = 313 TO 558 STEP 25 -IF x = 488 THEN x = 508 -LINE (x, 20)-(x + 24, 39), 8, B -LINE (x, 20)-(x + 23, 20), 15 -LINE (x, 20)-(x, 38), 15 -NEXT x -'Work area -LINE (0, 41)-(150, 479), 7, BF -LINE (0, 41)-(150, 41), 8 -LINE (0, 42)-(150, 42), 15 -LINE (151, 41)-(151, 410), 0 -LINE (631, 43)-(639, 479), 7, BF -LINE (631, 41)-(639, 41), 8 -LINE (631, 42)-(639, 42), 15 -LINE (631, 42)-(631, 411), 15 -LINE (154, 44)-(629, 409), 0, B -LINE (153, 43)-(628, 408), 7, B -PSET (153, 43), 15 -PSET (153, 408), 15 -PSET (628, 43), 15 -PSET (628, 408), 15 -'Coordinates box -LINE (19, 455)-(129, 473), 8, BF -LINE (21, 457)-(129, 471), 15, BF -LINE (129, 455)-(129, 473), 15 -LINE (20, 473)-(129, 473), 15 -LINE (20, 456)-(128, 472), 7, B -LINE (132, 463)-(146, 463), 7 -'Status Bar blurbs box -LINE (280, 455)-(550, 473), 8, B -LINE (281, 473)-(550, 473), 15 -LINE (550, 455)-(550, 473), 15 -'Film strip graphic begins -LINE (15, 48)-(134, 407), 0, B -LINE (15, 48)-(133, 406), 8, BF -FOR y = 47 TO 404 STEP 17 -IF y = 268 THEN y = 265 -LINE (18, y)-(26, y + 5), 0, BF -LINE (19, y + 1)-(26, y + 5), 7, BF -LINE (122, y)-(129, y + 5), 0, BF -LINE (123, y + 1)-(129, y + 5), 7, BF -NEXT y -LINE (12, 44)-(136, 48), 7, BF -LINE (12, 407)-(136, 412), 7, BF -FOR y = 50 TO 381 STEP 70 -IF y = 190 THEN y = 198 -NEXT y -'Run control buttons -LINE (14, 414)-(135, 434), 0, B -LINE (15, 415)-(134, 415), 15 -LINE (15, 433)-(134, 433), 8 -LINE (134, 415)-(134, 433), 8 -LINE (15, 415)-(15, 433), 15 -FOR x = 38 TO 110 STEP 24 -LINE (x, 414)-(x, 433), 8 -LINE (x + 1, 415)-(x + 1, 433), 15 -NEXT x -'Clock frame -LINE (563, 455)-(625, 473), 8, B -LINE (563, 473)-(625, 473), 15 -LINE (625, 455)-(625, 473), 15 -'Frame indicator -LINE (2, 191)-(149, 264), 7, BF -LINE (2, 190)-(149, 190), 15 -LINE (3, 265)-(148, 265), 0 -LINE (2, 191)-(2, 264), 15 -LINE (149, 190)-(149, 265), 8 -PUT (6, 194), Box(150), PSET -PUT (139, 194), Box(150), PSET -PUT (6, 255), Box(150), PSET -PUT (139, 255), Box(150), PSET -LINE (28, 192)-(121, 263), 8, BF -LINE (28, 192)-(121, 263), 15, B -LINE (28, 192)-(28, 262), 0 -LINE (28, 192)-(120, 193), 0, B -LINE (30, 194)-(119, 261), 8, BF -LINE (124, 220)-(146, 235), 8, BF -LINE (124, 220)-(146, 235), 0, B -LINE (124, 235)-(146, 235), 15 -LINE (146, 220)-(146, 235), 15 -PrintSTRING 130, 222, "00", 1 -'Color bar section -LINE (151, 423)-(190, 434), 8, B -LINE (151, 434)-(190, 434), 15 -LINE (190, 423)-(190, 434), 15 -LINE (152, 424)-(189, 433), 0, BF -CDATA: -DATA 0,8,7,15,1,2,3,4,5,6,9,10,11,12,13,14 -RESTORE CDATA -FOR x = 200 TO 612 STEP 26 -IF x = 304 THEN x = 321 -READ Colr -LINE (x, 423)-(x + 23, 434), Colr, BF -LINE (x, 423)-(x + 23, 434), 0, B -LINE (x, 434)-(x + 23, 434), 15 -LINE (x + 23, 423)-(x + 23, 434), 15 -IF Colr > 9 THEN -PUT (x + 8, 413), FontBOX(12020) -Hop = 1 -ELSE -Hop = 0 -END IF -Colr$ = RTRIM$(STR$(Colr)) -Num = VAL(RIGHT$(Colr$, 1)) -PUT (x + 10 + Hop, 413), FontBOX(12000 + Num * 20) -NEXT x -PSET (14, 437), 15 -DRAW "D5R34BR53R34U5" -PSET (200, 438), 15 -DRAW "D4R25BR51R25U4BR20D4R118BR73R118U4" -PUT (54, 438), FontBOX(10000) -PUT (156, 438), FontBOX(10200) -PUT (229, 438), FontBOX(10400) -PUT (443, 438), FontBOX(11200) -PUT (147, 459), FontBOX(10800) -LINE (132, 463)-(142, 463), 15 -P$ = "Check here for descriptions of the various functions" -PrintSTRING 290, 458, P$, 1 -PUT (60, 1), TitleBOX, PSET -PUT (60, 218), TitleBOX, PSET -FOR y = 2 TO 16 STEP 2 -LINE (313, y)-(586, y), 8 -NEXT y -PUT (592, 2), Box, PSET -PUT (624, 2), BBox(250), PSET -ToolX: -DATA 342,366,391,416,441,466,511,536,560 -RESTORE ToolX -FOR Index = 0 TO 800 STEP 100 -READ x -IF x = 536 THEN y = 23 ELSE y = 22 -PUT (x, y), ToolBOX(Index), PSET -NEXT Index -Index = 0 -FOR x = 22 TO 118 STEP 24 -PUT (x, 420), BBox(Index), PSET -Index = Index + 50 -NEXT x -PrintSTRING 19, 24, "File", 1 -PrintSTRING 60, 24, "Edit", 1 -PrintSTRING 100, 24, "Color", 1 -PrintSTRING 148, 24, "Special", 1 -PrintSTRING 205, 24, "Help", 1 -LINE (155, 45)-(626, 406), 7, BF -LINE (155, 45)-(626, 406), 15, B -LINE (155, 406)-(626, 406), 8 -LINE (626, 45)-(626, 406), 8 -LINE (166, 56)-(615, 395), 8, BF -LINE (165, 55)-(616, 396), 15, B -LINE (165, 55)-(616, 55), 0 -LINE (165, 55)-(165, 396), 0 -FOR y = 24 TO 38 -FOR x = 30 TO 60 -xx = x * 5 + 166 -yy = y * 5 + 56 -LINE (xx, y * 5 + 56)-(xx + 4, yy + 4), POINT(x + 30, y + 194), BF -NEXT x -NEXT y -LINE (169, 59)-(611, 392), 0, B -LINE (170, 60)-(610, 391), 0, B -LINE (174, 64)-(606, 387), 0, B -LINE (175, 65)-(605, 386), 0, B -PrintSTRING 142, 3, "untitled", 0 -PrintSTRING 37, 459, "Pixel", 1 -PrintSTRING 65, 459, "x:", 1 -PrintSTRING 95, 459, "y:", 1 -FOR y = 50 TO 338 STEP 70 -IF y = 190 THEN y = 194 -IF y = 264 THEN y = 268 -LINE (30, y)-(119, y + 67), 0, B -LINE (32, y + 2)-(117, y + 65), 0, B -LINE (34, y + 4)-(115, y + 63), 0, B -PUT (60, y + 24), TitleBOX, PSET -NEXT y -FileCOUNT = 0 -DEF SEG = VARSEG(FontBOX(0)) -FOR y = 0 TO 360 STEP 120 -GET (0, y)-(639, y + 119), FontBOX -PUT (0, y), FontBOX -FileCOUNT = FileCOUNT + 1 -FileNAME$ = "Animax!" + LTRIM$(STR$(FileCOUNT)) + ".BSV" -BSAVE FileNAME$, VARPTR(FontBOX(0)), 19681 * 2& -NEXT y -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "animssb.fnt", VARPTR(FontBOX(0)) -BLOAD "animssr.fnt", VARPTR(FontBOX(4700)) -DEF SEG -DrawBOX 100, 100, 378, 216, 0 -GOSUB BoxTOP -FOR x = 124 TO 284 STEP 80 -LINE (x, 177)-(x + 70, 200), 0, B -DrawBOX x + 1, 178, x + 69, 199, 0 -NEXT x -PrintSTRING 112, 107, "Animax!", 0 -PrintSTRING 162, 139, "The currently loaded file has been", 1 -PrintSTRING 162, 152, "altered. Do you wish to save changes?", 1 -PrintSTRING 150, 183, "Yes", 1 -PrintSTRING 233, 183, "No", 1 -PrintSTRING 303, 183, "Cancel", 1 -PUT (126, 138), ExBOX, PSET -GET (100, 100)-(378, 216), Box -PUT (100, 100), Box -DEF SEG = VARSEG(Box(0)) -BSAVE "anibox5.bsv", VARPTR(Box(0)), 16400 -DEF SEG -DrawBOX 100, 100, 184, 254, 0 '164 -PrintSTRING 112, 108, "New", 1 -PrintSTRING 112, 122, "Open", 1 -PrintSTRING 112, 136, "Save", 1 -PrintSTRING 112, 150, "Save As", 1 -PrintSTRING 112, 173, "1", 1 -PrintSTRING 117, 173, ".", 1 -PrintSTRING 112, 187, "2.", 1 -PrintSTRING 112, 201, "3.", 1 -PrintSTRING 112, 215, "4.", 1 -LINE (103, 166)-(181, 166), 8 -LINE (103, 167)-(181, 167), 15 -LINE (103, 231)-(181, 231), 8 -LINE (103, 232)-(181, 232), 15 -PrintSTRING 112, 238, "Exit", 1 -GET (100, 100)-(184, 254), Box(0) -PUT (100, 100), Box(0) -DrawBOX 200, 100, 252, 156, 0 -PrintSTRING 212, 108, "Undo", 1 -PrintSTRING 212, 122, "Copy", 1 -PrintSTRING 212, 136, "Paste", 1 -GET (200, 100)-(252, 156), Box(3420) -PUT (200, 100), Box(3420) -DrawBOX 300, 100, 386, 142, 0 -PrintSTRING 312, 108, "Select Palette", 1 -PrintSTRING 312, 122, "Edit Colors", 1 -GET (300, 100)-(386, 142), Box(4220) -PUT (300, 100), Box(4220) -DrawBOX 400, 100, 497, 156, 0 -PrintSTRING 412, 108, "Flip Horizontally", 1 -PrintSTRING 412, 122, "Flip Vertically", 1 -PrintSTRING 412, 136, "Negative Image", 1 -GET (400, 100)-(497, 156), Box(5350) -PUT (400, 100), Box(5350) -DrawBOX 100, 200, 196, 256, 0 -PrintSTRING 112, 208, "Instructions", 1 -PrintSTRING 112, 222, "Load Demo File", 1 -PrintSTRING 112, 236, "About Animax!", 1 -GET (100, 200)-(196, 256), Box(6834) -PUT (100, 200), Box(6834) -DEF SEG = VARSEG(Box(0)) -BSAVE "animnus.bsv", VARPTR(Box(0)), 16640 -DEF SEG -'WinicoCL.BSV -DrawBOX 100, 100, 379, 230, 0 -DrawBOX 110, 128, 370, 222, 1 -GOSUB BoxTOP -PrintSTRING 110, 107, "Animax! " + " Instructions", 0 -LINE (300, 106)-(318, 118), 7, BF -PSET (303, 112), 0 -DRAW "E5D3R6D4L6D3H5br2p0,0" -LINE (325, 106)-(343, 118), 7, BF -PSET (340, 112), 15 -DRAW "H5D3L6D4R6D3E5bl2p15,15" -RESTORE HelpDATA -DEF SEG = VARSEG(Box(0)) -FOR Page = 1 TO 10 -IF Page = 2 THEN PAINT (305, 113), 15, 7 -IF Page = 10 THEN PAINT (338, 113), 0, 7 -LINE (111, 129)-(368, 220), 15, BF -y = 133 -FOR Reps = 1 TO 7 -Font = 1: yy = 0: xx = 0 -IF Page = 6 THEN -IF Reps = 1 THEN Font = 0 ELSE Font = 1 -IF Reps = 2 THEN yy = 2 -IF Reps = 1 OR Reps = 2 THEN xx = -4 -IF Reps = 4 OR Reps = 5 THEN yy = -5 -LINE (143, 162)-(169, 217), 7, BF -LINE (143, 188)-(169, 191), 15, BF -DrawBOX 145, 164, 167, 185, 0 -DrawBOX 145, 194, 167, 215, 0 -PUT (147, 167), ToolBOX(700), PSET -PUT (147, 197), ToolBOX(800), PSET -END IF -READ h$ -PrintSTRING 124 + xx, y + yy, h$, Font -y = y + 12 -GET (100, 100)-(379, 230), Box -FileNAME$ = "AxHELP" + LTRIM$(STR$(Page)) + ".BSV" -BSAVE FileNAME$, VARPTR(Box(0)), 18400 -NEXT Reps -NEXT Page -DEF SEG -DrawBOX 100, 100, 379, 230, 0 -GOSUB BoxTOP -PrintSTRING 112, 107, "About Animax!", 0 -PrintSTRING 124, 135, "Animax! 2.1", 0 -PrintSTRING 242, 136, "(Freeware)", 1 -PrintSTRING 124, 156, "Program type:", 1 -PrintSTRING 242, 155, "Graphics/Animation Utility", 1 -PrintSTRING 124, 167, "Program & Graphics by:", 1 -PrintSTRING 242, 167, "Bob Seguin 2000 - 2007", 1 -PrintSTRING 124, 179, "Language:", 1 -PrintSTRING 242, 179, "QBasic 1.1", 1 -PrintSTRING 124, 198, "Email:", 1 -PrintSTRING 242, 198, "BOBSEG@sympatico.ca", 1 -GET (100, 100)-(379, 230), Box -DEF SEG = VARSEG(Box(0)) -BSAVE "axhelp11.bsv", VARPTR(Box(0)), 18400 -DEF SEG -DrawBOX 100, 100, 379, 178, 0 -GOSUB BoxTOP -PrintSTRING 110, 107, "Animax!", 0 -PUT (112, 134), ExBOX, PSET -DrawBOX 321, 135, 368, 159, 0 -LINE (320, 134)-(369, 160), 0, B -PrintSTRING 339, 142, "OK", 1 -PrintSTRING 152, 135, "Sorry, your file (or its path) could", 1 -PrintSTRING 152, 147, "not be found. Please try again.", 1 -GET (100, 100)-(379, 178), Box -LINE (142, 135)-(312, 159), 7, BF -PrintSTRING 142, 135, "Sorry, the file name you entered is in", 1 -PrintSTRING 142, 147, "use by another file. Please try again.", 1 -GET (142, 135)-(312, 159), Box(5535) -LINE (142, 135)-(312, 159), 7, BF -PrintSTRING 148, 135, "Sorry, the file you requested is not", 1 -PrintSTRING 148, 147, "a properly formatted Animax! file.", 1 -GET (142, 135)-(312, 159), Box(6650) -LINE (142, 135)-(312, 159), 7, BF -PrintSTRING 142, 135, "Please save the currently loaded file", 1 -PrintSTRING 142, 147, "or select 'New' before loading demo.", 1 -GET (142, 135)-(312, 159), Box(7765) -DEF SEG = VARSEG(Box(0)) -BSAVE "anibox4.bsv", VARPTR(Box(0)), 8880 * 2 -DEF SEG -LINE (100, 100)-(379, 178), 0, BF -DrawBOX 100, 100, 379, 230, 0 -GOSUB BoxTOP -PrintSTRING 112, 107, "Edit Colors", 0 -FOR x = 272 TO 324 STEP 51 -DrawBOX x, 202, x + 46, 225, 0 -LINE (x - 1, 201)-(x + 47, 226), 0, B -NEXT x -PrintSTRING 279, 208, "Cancel", 1 -PrintSTRING 340, 208, "OK", 1 -DrawBOX 320, 164, 370, 197, 1 -LINE (321, 165)-(369, 196), 1, BF -RESTORE CDATA -READ a, B, c, d -FOR y = 140 TO 150 STEP 10 -FOR x = 110 TO 330 STEP 44 -DrawBOX x, y, x + 39, y + 8, 1 -READ Colr -LINE (x + 1, y + 1)-(x + 38, y + 7), Colr, BF -NEXT x -NEXT y -PrintSTRING 110, 125, "Click color to edit", 1 -PrintSTRING 110, 164, "R", 1 -PrintSTRING 110, 176, "G", 1 -PrintSTRING 110, 188, "B", 1 -FOR y = 169 TO 193 STEP 12 -DrawBOX 125, y - 1, 285, y + 1, 1 -LINE (126, y)-(285, y), 0 -PSET (285, y - 1), 8 -NEXT y -PrintSTRING 110, 208, "Adjust sliders, click OK to accept", 1 -GET (100, 100)-(379, 230), Box(500) -DrawBOX 100, 300, 115, 308, 0 -LINE (104, 301)-(104, 307), 15 -LINE (111, 301)-(111, 307), 8 -GET (100, 300)-(115, 308), Box(9700) -GET (144, 189)-(159, 197), Box(9800) -PUT (100, 300), Box(9700) -PUT (100, 100), Box(500) -DEF SEG = VARSEG(Box(0)) -BSAVE "anibox3.bsv", VARPTR(Box(500)), 18800 -DEF SEG -SelectionDATA: -DATA "DOS Default", "Crayons", "Pastels", "Floral", "Nature" -DATA "Grayscale", "Half-Gray", "Half-Blue", "Half-Violet", "Half-Beige" -DATA "Metals", "Paper & Ink", "Wood", "People", "Military" -DrawBOX 100, 100, 379, 210, 0 -GOSUB BoxTOP -PrintSTRING 112, 107, "Select Palette", 0 -RESTORE SelectionDATA -FOR x = 118 TO 290 STEP 86 -FOR y = 134 TO 200 STEP 14 -LINE (x, y)-(x + 4, y + 4), 15, B -READ Selection$ -PrintSTRING x + 11, y - 3, Selection$, 1 -NEXT y -NEXT x -GET (100, 100)-(379, 210), Box(500) -PUT (100, 100), Box(500) -DEF SEG = VARSEG(Box(0)) -BSAVE "anibox2.bsv", VARPTR(Box(500)), 15544 -DEF SEG -DrawBOX 100, 100, 379, 198, 0 -LINE (108, 126)-(370, 144), 15, BF -LINE (108, 126)-(370, 144), 0, B -LINE (108, 146)-(372, 146), 15 -LINE (372, 126)-(372, 146), 15 -GOSUB BoxTOP -FOR x = 274 TO 325 STEP 51 -DrawBOX x, 160, x + 46, 183, 0 -LINE (x - 1, 159)-(x + 47, 184), 0, B -NEXT x -PrintSTRING 281, 166, "Cancel", 1 -PrintSTRING 342, 166, "OK", 1 -PrintSTRING 112, 107, "Open", 0 -PrintSTRING 114, 160, "File names must be 8 characters", 1 -PrintSTRING 114, 171, "or less. You may include a path.", 1 -GET (100, 100)-(379, 198), Box(500) -GOSUB BoxTOP -PrintSTRING 112, 107, "Save", 0 -GET (112, 107)-(156, 118), Box(7500) -GOSUB BoxTOP -PrintSTRING 112, 107, "Save As", 0 -GET (112, 107)-(156, 118), Box(7800) -LINE (100, 100)-(379, 198), 0, BF -DEF SEG = VARSEG(Box(0)) -BSAVE "anibox1.bsv", VARPTR(Box(500)), 15200 -DEF SEG -'Finish up -LINE (5, 5)-(634, 474), 8, B -LINE (8, 8)-(631, 471), 8, B -LINE (200, 180)-(439, 290), 8, B -LINE (197, 177)-(442, 293), 8, B -PrintSTRING 247, 212, "The graphics files for ANIMAX!", 1 -PrintSTRING 243, 226, "have been successfully created.", 1 -PrintSTRING 246, 250, "You can now run the program.", 1 - -a$ = INPUT$(1) -END - -BoxTOP: -LINE (104, 104)-(375, 121), 0, BF -FOR y = 105 TO 121 STEP 2 -LINE (224, y)-(352, y), 8 -NEXT y -DrawBOX 357, 106, 371, 119, 0 -PSET (360, 109), 0 -DRAW "F7rH7BD7nE7lE7" -RETURN - -GetFONT: -'Stores two fonts in single array (see PrintSTRING sub program). -Index = 2 -FOR y = 206 TO 454 STEP 14 -FOR x = 0 TO 140 STEP 14 -GET (x, y)-(x + 11, y + 11), FontBOX(Index) -PUT (x, y), FontBOX(Index) -Index = Index + 50 -IF Index = 188 * 50 + 2 THEN EXIT FOR -NEXT x -NEXT y -FontBOX(0) = 50 -FontBOX(1) = 4 -FontBOX(4700) = 50 -FontBOX(4701) = 4 -FontBOTTOM = 211 -FOR Index = 2 TO 187 * 50 + 2 STEP 50 -GOSUB ReduceFONT -NEXT Index -DEF SEG = VARSEG(FontBOX(0)) -BSAVE "animssb.fnt", VARPTR(FontBOX(0)), 9400 -BSAVE "animssr.fnt", VARPTR(FontBOX(4700)), 9400 -DEF SEG -RETURN - -ReduceFONT: -LINE (0, 200)-(20, 220), 0, BF -PUT (0, 200), FontBOX(Index) -x1 = -1: x2 = -1 -FOR x = 0 TO 20 -FOR y = 200 TO 220 -IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x -NEXT y -NEXT x -FOR x = 20 TO 0 STEP -1 -FOR y = 200 TO 220 -IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x -NEXT y -NEXT x -GET (x1, 200)-(x2 + 1, FontBOTTOM), FontBOX(Index) -RETURN - -Setpalette: -DATA 0,0,0,21,21,21,13,9,20,0,0,0,63,0,0,11,11,23,63,61,60,42,42,42,21 -DATA 21,21,63,43,0,43,30,60,0,63,63,59,55,59,0,0,42,58,54,54,63,63,63 -RESTORE Setpalette -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Intensity: OUT &H3C9, Intensity -NEXT n -RETURN - -HelpDATA: -DATA "Animax is designed for the creation of animated" -DATA "sequences for use in QBasic programs. The images" -DATA "produced by this program are 90 pixels wide by" -DATA "68 pixels deep. This size is entirely appropriate" -DATA "since most animation is used in only small areas of" -DATA "a larger image -- for example, a fire crackling in" -DATA "in a fireplace or an animated character sprite." -DATA "The frame you are working on is displayed in" -DATA "the film gate to the left of the screen. Work is" -DATA "done in the large center screen work area. The" -DATA "icons across the top of this work area allow" -DATA "you to select a variety of useful drawing tools" -DATA "while the run controls on the lower left allow" -DATA "manipulation of the frames created." -DATA "Certain drawing functions (Box, Circle, Elipse," -DATA "Line and Mask) can only be used at three times" -DATA "magnification. For these operations, the work" -DATA "area will switch automatically to this reduced" -DATA "size when the tool is selected." -DATA "NOTE: Watch the status window at the bottom of" -DATA "the screen for the tool/run control's description." -DATA "It is important to keep in mind when working," -DATA "that you are actually drawing the small frame" -DATA "on the left, not the large image in the work" -DATA "area. After certain operations, the large drawing" -DATA "area will switch from a relatively detailed image" -DATA "to a magnified image of the frame. Aliasing will" -DATA "become more pronounced. This is normal." -DATA "To create a new frame, simply go to the last frame" -DATA "in the sequence and press the frame advance" -DATA "button. There are a total of 16 frames possible in" -DATA "an Animax! (.AXB) file. This should be sufficient" -DATA "for any animated action cycle. .AXB files are" -DATA "BSAVE'd for rapid loading. When opening or sav-" -DATA "ing, the extension .AXB is added automatically." -DATA "Specialty Tools:" -DATA "Right-click anywhere in work area to 'pick up' color.","" -DATA "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿToggles between 3x and 5x magnifi-" -DATA "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcation of the frame being worked on." -DATA "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿClick any color in the image and all" -DATA "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿinstances of it change to pen color." -DATA "Copy and Paste can be used with or without the" -DATA "Mask tool. If you click Copy without masking, the" -DATA "entire frame is copied and can be pasted into an-" -DATA "other frame. If you copy a masked area it can only" -DATA "be pasted to the same location in another frame." -DATA "You can also locate a pasted image using a mask," -DATA "but only from and to the frame being worked on." -DATA "In order to use .AXB files, you must first understand" -DATA "how these files are structured. Information is held" -DATA "in an integer array. The first 8 integers hold the" -DATA "ASCII values of the file's name. The next 48 hold" -DATA "the palette (RGB) intensity values in order from" -DATA "attribute 0 to 15. Element 57 holds the number of" -DATA "frames in the total sequence (1-16)." -DATA "From element 58 to the end of the file is individual" -DATA "frame information at 1635 integers per frame. For -DATA "example, Array(58) will PUT the first frame," -DATA "Array(1693) the second, etc. The minimum array" -DATA "size necessary for a 16 frame sequence is 26217.","" -DATA "Formula: ArraySIZE = 8 + 48 + 1 + Frames * 1635" -DATA "Animax! can also be used as a drawing utility for" -DATA "detailed SCREEN 12 images involving custom colors," -DATA "or to refine existing images created elsewhere." -DATA "If you understand the structure of the .AXB file" -DATA "you can GET images to an array in 90x68 'chunks'" -DATA "and save them with the extension .AXB, then load" -DATA "the file in Animax! to refine these images." -HueDATA: -DATA "###b8bM#M88b##Gbb#8b8MMM88<#M##?#bP#bC#b##M8#bbb###bSbWGWVVbMMbbbZbbMMM" -DATA "M889bbb###_[_UQUUIFK:8?7>8I7=0?F=0Y7@0@7Š5=2€5>7?8>7?8H7=0?F=0=F=0W7>0=F" -DATA ">0@7Š5=2v5=7E5=7@8=7@8H7=0>F=0>F=0V7>0=F?0@7‰5?2r5=2=E>6=7=2C5F8H7=0=F" -DATA "=0?F=0U7>0=F?0A7ˆ5@2q5?E?6D5=7@8=7@8I7=0?F=0V7=0=F?0B7!=2>1=2?E@6=EC2>7" -DATA "?8>7?8J7?0V7A0C7Œ2=7=1l2AEA6=7B2?7>8?7>8f7=0=F?0D7Œ2>6=7i2=1=2AEA6=EB2" -DATA "@7=8@7=8e7=0=F?0E72>6=7i2=7AEB6=7A2n7=0=F?0F7…5D2?6=7g5=2BE?6=D>6=EA5" -DATA "N7=8L0=8I7=0=F?0G7„3E2@6f3=1=2AEA6=D>6=7@3M7=0MF=0=8H7@0H7„3E2=7?6=1e3" -DATA "=2=7AE?6=D=6=D>6=E@3L7=8OF=0=8F7@0I7ƒ3F2=7?6=7e3=2BE@6=D=6=D>6=7?3L7=0" -DATA "DF?0DF=0=8F7>0K7‚3G2=7@6d3=1=2BE?6=D=6=D=6=D=6=E?3L7=0DF?0DF=0=8W7‚3H2" -DATA "@6=1c3=2=7BE@6>D=6=D>6=7>3L7=0DF?0DF=0=8W7=3=2?3=2=3?2=3=2?3=2=3?2=3=2" -DATA "?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3=2?3=2=3?2=3=2?3=2=3I2@6=7=2=3?2" -DATA "=3=2?3=2=3?2=3=2=3=2=3?2=3=2?3=2=3?2=3=2?3>2BEA6=D=6=D?6=E=2=3L7=0DF?0" -DATA "DF=0=8W7C2?3C2?3C2?3C2?3C2?3E2?3P2@6=7>2?3C2?3A2?3C2?3A2=1=2BEB6>D@6>2" -DATA "L7=0DF?0DF=0=8W7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3" -DATA "=2=3=2A3=2=3=2=3=2=3=2A3=2=3=2=3B2=9D2=7@6=2A3=2=3=2=3=2A3=2=3=2A3=2=3" -DATA "=2=3=2A3=2=3=2=3=2=7BE?6=D?6>D?6=7=3L7=0DF?0DF=0=8W7>3?2C3?2C3?2C3?2C3" -DATA "?2E3?2C3D2=9F2@6=1B3?2C3=2C3?2C3@2CE@6=D>6=D=6=D>6=E=3L7=0DF?0DF=0=8W7" -DATA ">3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2E3=2=3=2C3=2=3A2=9G2@6=7B3=2=3" -DATA "=2C3=2C3=2=3=2C3=2=3=1=2BE@6>D?6>D?6=3?7>8G7=0DF?0DF=0=8W7>3?2C3?2C3?2" -DATA "C3?2C3?2E3?2C3B2=9H2@6=7B3?2C3=2C3?2C3@2BEA6>D>6=D=6=D>6@7?8F7=0DF?0DF" -DATA "=0=8F7I0@7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2" -DATA "A3=2=3=2=3=2=3=2A3=2=3A2=9>2=9E2=7@6=1@3=2=3=2=3=2A3=2=3=2A3=2=3=2=3=2" -DATA "A3=2=3=1=2=7BEA6=D=6=D>6=D=6=D>6?7@8E7=0DF?0DF=0=8F7=0G7=0@7=3>2=3>2A3" -DATA ">2=3>2A3>2=3>2A3>2=3>2A3>2=3>2A3=2=3>2=3>2A3B2=9>2=9G2@6=1@3>2=3>2A3?2" -DATA "A3>2=3>2A3>2=1=2DE?6=D=6>D>6=D=6=D>6?7A8D7=0DF?0DF=0=8F7=0G7=0@7=3=2?3" -DATA "=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2=3=2?3=2A3A2=9K2@6=7@3=2?3=2A3=2" -DATA "=3=2A3=2?3=2A3=2=3>2EE?6=D=6>D>6=D=6=D=6?7B8C7=0DF?0DF=0=8F7=0G7=0@7>2" -DATA "?3?2=3?2?3?2=3?2?3?2=3?2?3?2=3?2?3?2=3A2?3?2=3B2=9?2=9H2@6=7=1=3?2?3?2" -DATA "=3?2=3?2=3?2?3?2=3?2=3=1=2EE?6=D=6=D=6=D>6=D>6?7A8D7=0DF?0DF=0=8F7=0G7" -DATA "=0@7z3@2=9C2=9E2=7@6=1]3=2=1FE?6=D=6>D>6=D>6?7@8E7=0OF=0=8F7=0G7=0@7z3" -DATA "?2=9?2=9?2=9G2@6=7^3=1=2FE?6>D=6=D>6=D=6?7?8F7=0OF=0=8F7=0G7=0@7y3@2=9" -DATA ">2=9?2=9H2@6=7=1^3=2FE?6=D=6>D>6=D=6?7>8G7=0DF?0DF=0=8F7=0G7=0@7C3>2=3" -DATA "[2O3@2=9B2=9I2A6=7^3=1=2FE?6=D=6>D?6L7=0DF?0DF=0=8F7=0G7=0@7B3?2=3\2L3" -DATA "=2=3?2=9?2=9>2=9J2=E@6=7_3=2FE@6>D=6=D>6L7=0DF?0DF=0=8F7=0G7=0@7B3?2=3" -DATA "\2L3=2=3B2=9?2=9G2=1=2?E@6=2^3=1=2FE?6=D=6>D>6L7=0DF?0DF=0=8F7=0G7=0@7" -DATA "E2=3m2=3A2=9K2=1=2BE>6=1`2FE@6>D=6=D=6L7=0OF=0=8F7=0G7=0@7F2=3l2=3D2=9" -DATA "G2=1=2DE=6=7_2=1=2EE@6=D=6=D>6L7=8=0MF>0=8F7I0@7F2=3l2=3O2=1=2EE=7=1a2" -DATA "FE@6=D=6=D=6M7O0=8X7A4A2=3B2B9>2>9=2=9>2C9B2I4>2=3B2=9G2=1=2EE=7b4=1=2" -DATA "EEA6=D>6N7N8Y7A4A2=3^2H4>2=3A2=9G2=1=2=7EE=7=6=7`4=1=2FE@6=D>6}7>9?3=2" -DATA "=9?2=3D2=9=2>9=2=9?2>9=2>9=2=9=2=9D2E9?3>2=3@2=9H2=1=7EE=7?6a9=1=2EEA6" -DATA "=D=6}7>4?3=9@2=3E2>9=2B9=2=9=2=9>2?9D2D4?3>2=3?2=9H2=1=2EE=7@6=7`4=3=2" -DATA "FE@6=D=6}7>4?3=9=2=9>2=3_2D4?3>2=3K2=1=2EE=7B6_4>3=1=2EEB6}7>4?3=2=9?2" -DATA "=3`2C4?3>2=3J2=1=2EE=7C6=7^4?3=2FEA6=8@7=8w7>4?3=2=9?2=3`2C4?3>2=3I2=1" -DATA "=2EE=7E6^4?3=1=2EEA6>8?7>8i7A0D7>4?3=9@2=3a2B4?3>2=3H2=1=2EE=7F6=7\4A3" -DATA "=2EEA6?8>7?8f7>0A7>0B7>4?3=9@2=3a2B4?3>2=3G2=1=2=7DE=7H6\4A3=1=2EE@6@8" -DATA "=7@8d7=0E7=0A7>4?3=9A2=3a2A4?3>2=3G2=1=7DE?D=6>DD6=7[4B3=2EE@6F8c7=0E7" -DATA "=0A7>4?3B2=3a2A4?3>2=3F2=1=2DE@7H6[4B3=1=2EE?6@8=7@8c7=0G7=0@7>4?3B2=3" -DATA "b2@4?3>2=3E2=1=2EE=7AD=6=D>6>D=6=D>6=7Y4D3=2EE?6?8>7?8d7=0G7=0@7>4?3B2" -DATA "=3b2@4?3>2=3D2=1=2EEA7I6Y4D3=1=2EE>6>8?7>8e7=0G7=0@7>4?3B2=3c2>4@3>2=3" -DATA "C2=1=2EEC7H6=7X4E3=2EE>6=8@7=8f7=0G7=0@7>4?3B2=3c2>4@3>2=3B2=1=2EED7I6" -DATA "W4F3=1=2DE>6l7=0G7=0@7>4?3B2=3d2=4@3>2=3A2=1=2=7DEE7I6=7V4G3=2EE=6m7=0" -DATA "E7=0A7>4?3@2>1=3c1=2=4@3>2=3A2=1=7DE>7=DA7=D=7=D=6>D?6=DB6V4G3=1=2EEm7" -DATA "=0E7=0A7>4?3?2=1e3>2=4@3>2=3@2=1=2DE=D=7?D=7?D=7@D=6=D=6?DA6=7U4H3=2EE" -DATA "n7>0A7>0B7>4?3?2=1e2?4@3>2=3?2=1=2DEI7J6T4I3=1=2DEp7A0D7>4?3>2=1>3d7?4" -DATA "@3>2=3>2=1=2EEI7J6=7S4J3=2DE}7>4?3>2=1=3=7dE?4@3>2=3=2=1=2EEK7J6S4J3=1" -DATA "=2CE}7>4?3=2=1>3dE=7?4@3>2=3=1=2EEL7J6=7Q4L3=2CE}7>4@3=1>3dE=7>4A3>2>3" -DATA "=2DEM7J6=7Q4L3=1=2BE}7>4?3=2=1>3dE=1>4A3>2=1=2DE=7[E=7Q4M3=2BE}7>4?3=2" -DATA "=1>3dE?4A3=2=1>3?E=7`E=7Q4M3=1=2AE}7>4?3=2?3dE=1>4B3=1>3=7=E=7aE=7P4O3" -DATA "=2AE>7=8@7=8u7>4C3dE=7>4B3=1?3cE=7P4O3=1=2>3>E>7=8?7>8h7@0E7>4@3=2>3=7" -DATA "cE=7=1=4B3=1=2>3cE=7=2O4P3=1=2?3>7=8>7?8g7=0@7=0D7>4D3=7cE=2=4C3=1?3cE" -DATA "=2N4R3=1=2>3>7=8=7@8f7=0B7=0C7>4A3=2?3cE>2C3?2=3=7bE>2M4R3>1=2=3>7B8f7" -DATA "=0B7=0C7>4B3>2>3d2E3g2M4T3=1=2>7=8=7@8e7=0D7=0B7>4D3?2—3e4>3>7=8>7?8e7" -DATA "=0D7=0B7!O4>7=8?7>8e7=0D7=0B7!O4>7=8@7=8e7=0D7=0B7!O5m7=0D7=0B7!O5n7=0" -DATA "B7=0C7!O5n7=0B7=0C75>2Š5o7=0@7=0D75=2=C=7=1ˆ5p7@0E7€2>6=C=7=1†2}7€2A6" -DATA "=7…2}7€2C6=7ƒ2}7€2D6p2=E=6M2}7~5>2D6m5=1=7>E>6L5}7}3?2D6m3=7?E?6K3}7}3" -DATA "?2D6l3=1=7?E@6J3>7=8@7=8u7}3?2D6l3=7?EA6=7I3>7>8?7=8u7}3?2D6l3=7?E?6=D" -DATA ">6I3>7?8>7=8o7=0A7|3@2D6k3=1@E@6=D>6H3>7@8=7=8n7=0B7=3=2?3=2=3?2=3=2?3" -DATA "=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3=2?3=2=3?2=3A2D6=3=2=3" -DATA "?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3=2=3?2=3=2?3=2=3?2=3=2=3=7@EA6=D=6=E=3" -DATA "?2=3=2?3=2=3>7B8m7=0C7C2?3C2?3C2?3C2?3C2?3E2?3B2D6?2?3C2?3C2?3A2?3C2?3" -DATA ">2=1=7?E@6=D>6=D=6=E?3C2>7@8=7=8l7=0D7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2" -DATA "=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2=3=2A3A2D6=3=2A3=2=3=2=3=2A3=2" -DATA "=3=2=3=2A3=2=3=2A3=2=3=2=3=2A3=2=7@E?6=D=6=D>6=D=E=7?3=2=3=2=3=2=3>7?8" -DATA ">7=8k7=0E7>3?2C3?2C3?2C3?2C3?2E3?2B3A2D6=2C3?2C3?2C3=2C3?2C3=7@E@6=D=6" -DATA "=D=6=D>6@3?2>3>7>8?7=8j7=0F7>3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2=3=2E3" -DATA "=2=3=2B3A2D6=2C3=2=3=2C3=2=3=2C3=2C3=2=3=2B3=1AE>6=D>6=D=6=D=6=D=6=E?3" -DATA "=2=3=2>3>7=8@7=8i7=0G7>3?2C3?2C3?2C3A2A3?2E3?2A3?2=9>2D6=2C3?2C3?2C3=2" -DATA "C3?2B3=7@E@6=D>6>D?6>E>3?2>3p7=0H7=3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2" -DATA "A3B2@3=2=3=2=3=2A3=2=3=2=3=2=3=2@3>2=9?2D6=3=2A3=2=3=2=3=2A3=2=3=2=3=2" -DATA "A3=2=3=2A3=2=3=2=3=2@3=1=7@E?6=D=6=D>6>D@6=7=2=3=2=3=2=3o7=0I7=3>2=3>2" -DATA "A3>2=3>2A3>2=3>2=3G2?3>2=3>2A3=2=3>2=3>2@3>2=9?2D6>2A3>2=3>2A3>2=3>2A3" -DATA "?2A3>2=3>2@3=7AE@6>D>6=D=6=D@6>2=3>2=3n7=0J7=3=2?3=2A3=2?3=2A3=2=3K2?3" -DATA "=2?3=2A3=2=3=2?3=2?3>2=9@2D6=3=2A3=2?3=2A3=2?3=2A3=2=3=2A3=2?3=2?3=1=7" -DATA "BE@6>D>6=D=6=D?6=E?3=2=3m7=0K7>2?3?2=3?2?3?2=3S2?3?2=3A2?3?2=3>2=9@2D6" -DATA "=3?2=3?2?3?2=3?2?3?2=3?2=3?2=3?2?3@2=7DE?6=D=6=D>6=D=6=D?6=7>3>2l7=0L7" -DATA "K3T2R3C2D6f3=1=7EE?6=D=6=D>6>D?6=E@3}7G3Y2P3>2=9=2=9?2D6f3=7FE@6>D?6>D" -DATA "?6=7?3}7F3Q2>9C2P3>2=9=2=9?2D6f3=7GE@6>D>6=D=6=D>6=E?3}7C3>2=3L2>9=2=9" -DATA "G2O3>2=9@2=1>E=CA6f3>2GE?6=D=6=D>6=D=6=D>6=E>3}7B3?2=3H2>9=2=9K2N3>2=9" -DATA "=2=9?2=7AE=C>6g3=1=2FE@6=D=6=D>6=D=6=D=6=E=7=3}7B3?2=3D2?9C2>9H2M3>2=9" -DATA "=2=9?2=7DEI6[3=1=2FE@6>D?6>D>6=E=3}7E2=3A2>9C2=9=2>9\2=9=2=9?2=1EEI6=7" -DATA "[2=1FE@6=D=6=D?6>D>6=7KF=0d7?0B7F2=3E2@9`2=9=2=9?2=7EE=D=6=D=6CD?6]2FE" -DATA "@6=D=6=D>6=D?6=E=FI7=8=0c7=0>F=0B7F2=3D2=9E2>9=2=9W2=9A2=7DEK6=7[2=1=2" -DATA "FE@6=D=6=D>6=D>6=E=FI7=8=0b7=0>F?0A7A4A2=3J2=9=2=9L2I4>2=9=2=9?2=1EE?D" -DATA "=6>D>6>D=6?D>6\4=1FEA6=D=6=D@6=E=FI7=8=0a7=0?F>7>0@7A4A2=3F2=9=2=9P2I4" -DATA ">2=9A2=7EEL6=7\4=2FE@6=D>6=D@6=F?7>0@7>0>7=8=0^7>F=0@F?7>0?7>9?3A2=3C2" -DATA "?9S2=1D9@3@2=9?2=7DE=6GD=6=D=6=D>6\9=1=2FE@6=D=6=D@6=F@7>0>7>0?7=8=0\7" -DATA "?F=0?F=0=7=F?7>0>7>4?3=9@2=3A2=9X2D4@3C2=1EEN6=7\4=1=2EEA6=D=6=D?6=FA7" -DATA "@0@7=8=0\7>F=0@F?7=F?7>0=7>4?3=9@2=3^2=1C4@3C2=7EEO6\4=1=2FEA6=D@6=FB7" -DATA ">0A7=8=0[7>F>0=F=0>7=FC7=0=7>4?3A2=3_2C4@3C2=7DEP6=7[4=3=1=2FE@6=D@6=F" -DATA "A7@0@7=8=0[7>F=7?0?7=FA7>0=7>4?3=9@2=3_2C4@3B2=1EEQ6[4>3=1FEE6=F@7>0>7" -DATA ">0?7=8=0[7>F?7=0@7=F?7>0>7>4?3=9@2=3_2=1B4@3B2=7DEAD>6>D>6>D=6>D=6?D>6" -DATA "=7Y4@3=2FED6=F?7>0@7>0>7=8=0[7>F@7=0B7>0?7>4?3=9@2=3`2B4@3B2=7DES6Y4@3" -DATA "=1=2FEC6=FI7=8=0[7>FA7=0@7>0@7>4?3=9A2=3_2=1A4@3A2=1EEHD=6>D=6>D=6=D?6" -DATA "=7X4A3=2FEC6=FI7=8=0[7>FB7=0>7>0A7>4?3B2=3`2A4@3A2=7DEU6W4B3=1=2FEB6=F" -DATA "J8=0[7>FC7?0B7>4?3B2=3Z2?1>7B4@3A2=7DEED=6AD=6=D>6>D=6=D>6=7V4C3=1=2FE" -DATA "A6L0Y7BFJ7>4?3B2=3V2?1?7>E=7B4@3@2=1EEV6V4D3=2FEA6}7>4?3B2=3R2?1?7BE=7" -DATA "A4A3@2=1DE>6>DS6=7T4E3=1=2FE@6}7>4?3B2=3N2?1?7GE=7@4A3@2=7DEX6T4F3=1=2" -DATA "FE?6}7>4?3Q2?1?7KE=7@4A3?2=1=7CE=FX6=7S4G3=1=2EE?6}7>4?3N2>1?7OE=7@4A3" -DATA "?2=1CE=7=E=6>D=6=D>6=DA6=D=6=D=6>D?6=DB6R4I3=2FE>6}7>4?3L2=1>7TE@4A3?2" -DATA "=7CE=7=E>D=6>D=6?D=6?D=6@D=6=D=6?DA6=7Q4I3=1=2FE=6K0=Fm7>4?3I2=1>7RE@F" -DATA "=7@4A3>2=1=7CE=7=EZ6Q4J3=1=2EE=6=0J8=F[7>0=F>0=F>0=F>0=F>0@7>4?3?2=3A2" -DATA "=1>7RE?7=EAF@4A3>2=1CE?7Z6=7O4L3=2FE=0=8H7>F[7=0H7=0@7>4?3@2=3=2=1>7QE" -DATA "D7AF=7?4A3>2=1CE?7[6O4L3=1=2EE=0=8H7>F[7=FH7=F@7>4?3?2=1=3=7OEI7=EAF?4" -DATA "A3=2=1=7BE@7=EZ6=7N4M3=1=2DE=0=8H7>F[7=0H7=0@7>4@3=2=1=3=7LEN7AF=7>4A3" -DATA "=2=1=7BE@7=EZ6=7M4O3=1=2CE=0=8?7>0@7>0=7>F[7=0H7=0@7>4?3=2>3>7HE=7=EA7" -DATA "PE=7>4A3=2=1BE=7_E=7M4P3=2CE=0=8@7>0>7>0>7>F[7=FH7=F@7>4?3=2=1=3>7CE=7" -DATA "=E>7XE=7>4A3=2=1fE=7M4P3=1=2BE=0=8A7@0?7>F[7=0H7=0@7>4?3=2=1=3>7cE=7>4" -DATA "A3=2=1=3eE=7M4Q3=1=2AE=0=8B7>0@7>F[7=0H7=0@7>4@3=2=3>7cE=7>4B3=1>3=E=7" -DATA "bE=7L4S3=1=2@E=0=8A7@0?7>F[7=FH7=F@7>4@3=2>3=7cE=7=2=4B3=1?3cE=7=2K4S3" -DATA "=1=2>E>3=0=8@7>0>7>0>7>F[7=0H7=0@7>4A3=2=3>7cE=2=4C3=1?3cE=2K4T3=1>2>3" -DATA "=0=8?7>0@7>0=7>F[7=0H7=0@7>4A3=2>3=7cE>2C3=2=1>3cE>2I4V3=1>2=3=0=8H7>F" -DATA "[7=FH7=F@7>4B3>2>3d2D3>2=3=1d2I4W3>1=3=0=8JF[7=0H7=0@7>4D3?2m3?2c3I4Z3" -DATA "LF[7>0=F>0=F>0=F>0=F>0@7!H4C3}7!O4}7!O5}7!O5}7!O5}7s5=D—5KF=0KF^7r5=7=2" -DATA "—5=FI7=8=0=FI7=8M7I0@7r2=7=2E6Ž2=FI7=8=0=F>7E8>7=8M7D0@F=0@7r2=7=2E6=D" -DATA "2=FI7=8=0=F>7E8>7=8M7>0?F?0@F=0@7r2=7=2E6=72=FI7=8=0=F>7=8CF=8=F=7=8" -DATA "M7>0>F@0@F=0@7r2=7=2E6=E2=FI7=8=0=F>7=8=FB7=8=F=7=8M7>0=F=0=F?0@F=0@7" -DATA "r5=7=2F65=FI7=8=0=F>7=8=FB7=8=F=7=8M7A0=F>0@F=0@7r3=7=2F63=FI7=8=0=F" -DATA ">7=8=FB7=8=F=7=8M7B0=7=0@F=0@7r3=7=2F63=FI7=8=0=F>7=8=FB7=8=F=7=8M7C0" -DATA "=7@F=0@7\3=2Q3=7=2F63=F@7A8=F?7=8=0=F>7=8=FB7=8=F=7=8M7=0CF=0=F=0=F=0" -DATA "@7Z3@2P3=7=2F63=F@7A8=F?7=8=0=F>7=8=FB7=8=F=7=8M7=0DF>0=F=0@7Y3A2=7O3" -DATA "=7=2F63=FA7AF?7=8=0=F>7E8=F=7=8M7=0CF?0=F=0@7=3=2?3=2=3?2=3=2?3=2=3?2" -DATA "=3=2?3=2=3C2=6=2=3?2=3=2?3=2=3?2=3=2=3=2=7=2F6=3=2=3?2=3=2?3=2=3?2=3=2" -DATA "?3=2=3?2=3=2?3=2=3?2=3=2=3=2=3?2=3=2?3=2=3?2=3=2=6=D=3=2=3?2=3=2?3=2=3" -DATA "?2=3=2?3=2=3=FI7=8=0=FI7=8M7=0GF=0@7C2?3C2?3J2>7=2?3C2?3@2=1=2FE?2?3C2" -DATA "?3C2?3C2?3A2?3C2?3=2=E>6=7>2?3C2?3C2=FJ8=0=FJ8M7I0@7=3=2=3=2=3=2A3=2=3" -DATA "=2=3=2A3=2=3H2=6A3=2=3=2=3=2A3=2=3=2=1=2FE=3=2A3=2=3=2=3=2A3=2=3=2=3=2" -DATA "A3=2=3=2=3=2A3=2=3=2A3=2=3=2=3=2A3@6=7A3=2=3=2=3=2A3=2=3=2=3=2=3}7>3?2" -DATA "C3?2C3I2=6=7A3?2E3=1=2FE=2C3?2C3?2C3?2C3=2C3?2A3=EB6=7@3?2C3?2>3}7>3=2" -DATA "=3=2C3=2=3=2B3J2=7=6A3=2=3=2E3=1=2FE=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2C3=2" -DATA "=3=2A3E6=7>3=2=3=2C3=2=3=2>3}7>3?2C3?2A3L2=6A3?2E3=1=2DE=C=E=2C3?2C3?2" -DATA "C3?2C3=2C3?2@3=E?6=DC6=7?2C3?2>3}7=3=2=3=2=3=2A3=2=3=2=3=2>3N2>7?3=2=3" -DATA "=2=3=2A3=2=3=2=1=2FE=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2A3" -DATA "=2=3=2=3=2>3=2A6>DC6=7=3=2A3=2=3=2=3=2=3}7=3>2=3>2A3>2=3>2=3F2=9E2=6?3" -DATA ">2=3>2A3=2=3=2=1=2FE>2A3>2=3>2A3>2=3>2A3>2=3>2A3?2A3>2=3>2=3=2=E@6=D>6" -DATA "=DC6=7=2A3>2=3>2=3=8?FC8=FN8=F=8]7=3=2?3=2A3=2?3G2=9F2=6=7>3=2?3=2A3=2" -DATA "=3=2=1=2FE=3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2=3=2A3=2?3=2=3=2@6=D=6>D=6>D" -DATA "C6=7@3=2?3=2=3AFB8=FN8=F=8]7>2?3?2=3?2>3F2>9G2=7=6?2?3?2=3A2=1=2FE=3?2" -DATA "=3?2?3?2=3?2?3?2=3?2?3?2=3?2=3?2=3?2?3?2A6>D=6>D=6>DC6=7?2?3>2AFU8=F=8" -DATA "]7H3F2>9J2=6=1J3=1=2FEo3=E@6=D>6=D>6=DG6=7B3AFU8=F=8M7=0F7=0@7G3E2>9?2" -DATA ">9G2>7J3=1=2FEn3=2B6>D=6>D=6>DG6=7@3=F?8=F=8?F>8=F=8@F>8?F>8>F=8>F=8=F" -DATA "=8M7=0F7=0@7E3E2=9A2=9J2=6=1I3=1=2FEn3=ED6=D>6>D=6>DF6=7?3=F?8=F=8@F=8" -DATA "=F=8AF=8@F=8>F=8>F=8=F=8L7?0>7=F>7=F>7=0=F=0?7D3E2=9@2=9L2>7I3=1=2FEm3" -DATA "=2@6=DA6>D>6=D>6>DE6=7>3AF=8@F=8=F=8AF=8@F=8>F=8>F=8=F=8L7?0=7BF=7=0=F" -DATA "=0?7B3=2=3C2=9@2=9B2>9F2=7=6I3=1=2FEm3=EA6=D=6=D@6=D>6>D>6>DD6=7=3AF=8" -DATA "@F=8=F=8AF=8@F=8>F=8>F=8=F=8L7?0=7=0=F>0=F=0=7=0=F=0?7B3=2=3B2=9?2>9B2" -DATA "=9I2=6=7H3=1=2FES6U3=2A6=D=6=D>6=D?6>D>6>D>6=DD6=7AF=8=F>8=F=8=F=8=F=8" -DATA "=F=8=F@8=F?8=F?8=F=8K7=0=F?0=7=0>7=0=7=0?F=0>7C2=3E2=9A2=9=2=9J2=7=6H2" -DATA "=1=2FES6=7T2=EB6=D>6=D=6=D@6>D>6=D>6>DC6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F" -DATA ">8?F?8=F?8=F=8K7=0=F?0B7=0?F=0>7C2=3G2=9=2=9N2=7=6=7G2=1=2FE>D=6@D=6=D" -DATA "=6=D=6=D=6CD?6T2=E@6=D>6>D@6=D@6=D>6>D>6>DA6=F?8=F=8=F>8=F=8=F=8=F=8=F" -DATA "=8=F=8=F>8=F?8=F?8=F=8J7=0=FA0@7=0AF=0=7C2=3H2=9P2=1=6G2=1=2FET6=7R2?E" -DATA "@6>D>6>D=6=D=6=D@6>D>6>DC6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F=8@F=8>F=8>F?8" -DATA "J7C0@7=0AF=0=7A4>2=3E2?9P2=1=6=E=1F4=1=2FE?D>6?D=6?D=6>D>6>D=6?D>6Q4=2" -DATA "@EA6>D>6=D@6=D@6>D>6=DB6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F=8@F=8>F=8>F?8J7" -DATA "C0@7=0AF=0=7A4>2=3C2>9Q2>1=2=E>6F4=1=2FEU6=7P4BEB6=D>6>D=6=D=6>D@6=D>6" -DATA ">D@6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F=8@F=8>F=8>F=8=F=8K7A0B7=0?F=0>7>9?3" -DATA ">2=3C2=9Q2=1=2@E=6F9=1=2FE=D=6>D=6=D?6GD=6=D=6=D>6O9=2DEA6>D>6=D@6=D@6" -DATA ">DB6=F?8=F=8=F>8=F=8=F=8=F=8=F=8=F>8?F=8>F=8>F=8=F=8L7?0D7?0?7>4?3>2=3" -DATA "W2>1=2BE=6C4>3=1=2FEV6=7M4=2FEB6=D>6>D=6=D=6>DF6\8]7>4?3>2=3V2=1=2EEC4" -DATA ">3=1=2FE>D=6>D=6>DO6M4IEA6>D>6=D@6=DE6}0>4?3>2=3T2>1=2GEB4>3=1=2FEW6=7" -DATA "K4=2=7IEB6>D=6>D?6>DC6}0>4?3>2=3S2=1=2HE=7B4>3=1=2FEX6K4=1>2JEB6=D>6>D" -DATA "F6}0>4?3>2=3Q2>1=2HED4>3=1=2FEBD=6@D>6>D>6>D=6>D=6?D>6=7K4=1>2KEA6>D>6" -DATA "=D>6=DB6}0>4?3>2=3P2=1=2HE=6E4>3=1=2FEY6L4>1>2JEE6>D=6>D@6}0>4?3>2=3N2" -DATA ">1=2GE?6=7D4>3=1=2FE=D=6LD=6>D=6>D=6=D?6=7M4=1>2KEE6=DB6}0>4?3>2=3M2=1" -DATA "=2FEC6D4>3=1=2FEZ6N4>1=2KEE6>D@6}0>4?3>2=3K2>1=2FE>6>D=6=D>6=7C4>3=1=2" -DATA "FE=D=6HD=6AD=6=D>6>D=6=D>6=7O4=1>2KEI6}0>4?3>2=3J2=1=2FEG6C4>3=1=2FE[6" -DATA "P4>1=2KEH6}0=4@3>2=3H2>1=2FEH6=7B4>3=1=2FE>D=6>D=6>DS6=7O4>3=1>2KEF6}0" -DATA "=4@3>2=3G2=1=2FE>7I6B4>3=1=2FE\6O4?3>1=2LED6}0=4@3>2=3E2>1=2FE?7I6=7A4" -DATA ">3=1=2FE\6=7N4A3=1>2KEC6}0=4@3>2=3D2=1=2FE?7=D=7=D=6>D?6=DB6A4>3=1=2FE" -DATA "A6>D=6=D>6=DA6=D=6=D=6>D?6=DB6M4C3=1>3LEA6}0=4@3>2=3B2>1=2EE=D=7?D=7@D" -DATA "=6=D=6?DA6=7@4>3=1=2FE@6>D=6>D=6?D=6?D=6@D=6=D=6?DA6=7L4D3>1>2KE@6}0=4" -DATA "@3>2=3A2=1=2FEE7J6@4>3=1=2FE^6L4F3>1>2JE?6}0=4@3>2=3?2>1=2FEF7J6=7?4>3" -DATA "=1=2DE=C_6=7J4I3>1=2JE>6}0=4@3>2=3>2=1=2FEI7J6?4>3=1=2DE=C`6J4K3=1>2HE" -DATA ">6}0=4@3>2=3>1=2FEJ7J6=7>4>3=1=2DE=7`6=7I4L3>1=2HE=6}0A3>2>3=2EEL7J6=7" -DATA ">4>3=1=2DE=7`6=7H4O3=1>2GE}0A3>2=1=3=7cE=7>4>3=1=2CE>7`E=7H4P3>1=2FE}0" -DATA "A3=2=1>3=7>E=7`E=7>4>3=1=2BE>7aE=7H4R3=1>2DE}0B3=1?3=E=7aE=7>4>3=1=2>3" -DATA "@E=7bE=7G4T3>1=2CE}0B3=1?3cE=7>4>3=1=2?3=7=E=7cE=7G4V3=1>2AE}0B3=1=2>3" -DATA "cE=7=2=4>3>1A3dE=7=2F4W3>1=2?E=3}0C3=1?3cE=2=4?3=1=2@3eE=2E4Z3=1@3}0C3" -DATA "=1>2=3cE>2@3=1=2@3dE>2D4Z3=2>1>3}0E3g2A3=1=2@3e2C4\3>2>1}0p3>4@3=1@2e3" -DATA "d4>3=2}0r4A3>1C3‹4}0!O4!e0g5!e0g5!e0g5>FH0>F=0>FF0>F=0>FF0>FG0?FG0>FG0" -DATA ">FI0>FG0>Fs0g5>FH0>F=0>FF0>F=0>FE0@FE0>F=0>F=0>FB0@FF0>FH0>FI0>FG0@Fc0" -DATA "g5>FH0>F=0>FE0CFC0BFE0?F=0>FC0@FF0>FH0>FI0>FH0>Fd0g2>FW0>F=0>FD0@FJ0>F" -DATA "E0>FU0>FI0>FG0@FH0>FU0g2>FW0>F=0>FE0?FI0>FF0>FU0>FI0>FW0>FU0g2>FW0>F=0" -DATA ">FF0?FG0>FF0BFR0>FI0>FU0BFS0g2>FV0CFE0@FE0>F=0?FC0>F=0>FS0>FI0>FW0>FU0" -DATA "g5Y0>F=0>FD0BFD0>F=0>F=0>FB0>F=0>FS0>FI0>FW0>FU0g3>FW0>F=0>FE0@FI0?FD0" -DATA "AFR0>FI0>Fr0g3h0>Fp0>FI0>Fr0g3Ÿ0>FG0>Fs0g3!e0g3!e0=3=2=3?2=3=2?3=2=3?2" -DATA "=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3!e0?2?3C2?3C2?3C2?3C2i0>FF0@FG0>FG0@F" -DATA "F0@FH0>FE0BFE0@FT0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2" -DATA "=3i0>FE0>F>0>FD0@FF0>F>0>FD0>F>0>FF0?FE0>FH0>F>0>FS0=2C3?2C3?2C3?2C3?2" -DATA ">3i0>FE0>F>0>FF0>FJ0>FH0>FF0?FE0>FH0>FW0=2C3=2=3=2C3=2=3=2C3=2=3=2C3=2" -DATA "=3=2>3h0>FF0>F>0>FF0>FJ0>FH0>FE0@FE0AFE0>FW0=2C3?2C3?2C3?2C3?2>3h0>FF0" -DATA ">F>0>FF0>FI0>FG0?FF0@FE0>F>0>FD0AFT0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3" -DATA "=2=3=2A3=2=3=2=3=2=3J0?FV0>FG0>F>0>FF0>FH0>FJ0>FD0>F=0>FI0>FD0>F>0>FS0" -DATA ">2A3>2=3>2?3=E=7>2=3>2A3>2=3>2A3>2=3>2=3g0>FG0>F>0>FF0>FG0>FK0>FD0BFH0" -DATA ">FD0>F>0>FS0=3=2A3=2?3=2?3>6=C=E=7=3=2A3=2?3=2A3=2?3=2=3f0>FH0>F>0>FF0" -DATA ">FF0>FH0>F>0>FG0>FE0>F>0>FD0>F>0>FS0=3?2=3?2?3?2=EA6=C=E=7=2=3?2?3?2=3" -DATA "?2?3>2=0>FU0>FH0>FI0@FG0>FF0BFE0@FH0>FF0@FF0@FT0J3F6=C=E=7L3>F!c0I3=EI6" -DATA "=C=E=7I3!e0I3N6=C=E=7E3!e0H3=2@6=DM6=E=7B3!e0H3=EA6?DL6=C=7@3!=0AF_0G3" -DATA "=2E6>DM6=7>3BFE0@FF0@FŒ0@FF0?F?0?FC0>FT0G2=EC6=D?6?DJ6=C=7=2@0>FD0>F>0" -DATA ">FD0>F>0>FŠ0>F>0>FE0>FA0>FC0>FT0G2=E?6=D@6?DO6=7?0>FE0>F>0>FD0>F>0>Fc0" -DATA ">FS0>FL0>FD0>F>0@F=0>FA0@FS0F2=EA6?D@6@DL6?0>FE0>F>0>FD0>F>0>FD0>FI0>F" -DATA "I0>FU0>FK0>FD0>F=0>F=0>F=0>FA0@FS0E4=2=E?6=D@6?DA6?DI6>0>FG0@FF0AFa0>F" -DATA "G0BFF0>FI0>FE0>F=0>F=0>F=0>F@0>F>0>FR0E4=EA6?D@6?DA6?DF6>0>FF0>F>0>FH0" -DATA ">F`0>FY0>FG0>FF0>F>0CF@0>F>0>FR0E9E6?D@6?DA6?DC6=0>FG0>F>0>FH0>Fa0>FG0" -DATA "BFF0>FH0>FG0>FH0BFR0D4=2@6=DC6?D@6?DH6=0>FG0>F>0>FD0>F>0>Fb0>FU0>FV0?F" -DATA "F0>F@0>FQ0D4B6?DC6?D@6?DE6=0>FH0@FF0@FE0>FI0>FJ0>FS0>FJ0>FJ0@FB0>F@0>F" -DATA "Q0C4=2@6=D@6?DC6?D@6?DB6t0>F«0C4=EA6?D@6?DC6>DG6!e0B4=2@6=D@6@D?6?DB6?D" -DATA "D6!e0B4=EA6?DA6?D?6?DB6?DA6!e0A4=2E6@D@6?D?6?DG6!e0A4=EI6?D@6?D?6?DD6AF" -DATA "F0AFD0AFE0BFD0BFE0AFD0>F?0>FC0>FK0>FE0>F>0>FD0>FW0@4=2?EJ6?D@6?D?6?DA6" -DATA ">F>0>FD0>F?0>FC0>F>0>FD0>FH0>FH0>F?0>FC0>F?0>FC0>FK0>FE0>F=0>FE0>FW0@4" -DATA "=7BEJ6?D@6?DD6>F>0>FD0>FH0>F?0>FC0>FH0>FH0>FH0>F?0>FC0>FK0>FE0@FF0>FW0" -DATA "@4FEQ6?DA6>F>0>FD0>FH0>F?0>FC0>FH0>FH0>FH0>F?0>FC0>FK0>FE0?FG0>FW0?4=2" -DATA "IEV6AFE0>FH0>F?0>FC0AFE0AFE0>F=0@FC0CFC0>FK0>FE0?FG0>FW0>4=2=7KET6>F>0" -DATA ">FD0>FH0>F?0>FC0>FH0>FH0>F?0>FC0>F?0>FC0>FK0>FE0@FF0>FW0>4=2OEQ6>F>0>F" -DATA "D0>FH0>F?0>FC0>FH0>FH0>F?0>FC0>F?0>FC0>FH0>F=0>FE0>F=0>FE0>FW0=4>2REN6" -DATA ">F>0>FD0>F?0>FC0>F>0>FD0>FH0>FH0>F>0?FC0>F?0>FC0>FH0>F=0>FE0>F>0>FD0>F" -DATA "W0=4=1@2REK6AFF0AFD0AFE0BFD0>FI0BFC0>F?0>FC0>FI0?FF0>F?0>FC0BFS0>4?1?2" -DATA "SEH6!e0A4?1@2REE6!e0B4>3?1@2QEC6!e0A4B3?1@2QE@6!e0A4E3?1@2NE@6!e0@4I3?1" -DATA "@2ME>6>F@0>FB0>F?0>FD0AFD0BFE0AFD0BFE0@FE0BFD0>F?0>FC0>F@0>FB0>FD0>FM0" -DATA "@4L3?1@2LE>F@0>FB0?F>0>FC0>F?0>FC0>F?0>FC0>F?0>FC0>F?0>FC0>F>0>FF0>FF0" -DATA ">F?0>FC0>F@0>FB0>FD0>FM0?4P3@1?2IE?F>0?FB0?F>0>FC0>F?0>FC0>F?0>FC0>F?0" -DATA ">FC0>F?0>FC0>FJ0>FF0>F?0>FD0>F>0>FD0>F>0>F>0>FN0?4T3?1?2FE?F>0?FB0@F=0" -DATA ">FC0>F?0>FC0>F?0>FC0>F?0>FC0>F?0>FC0>FJ0>FF0>F?0>FD0>F>0>FD0>F>0>F>0>F" -DATA "N0>4X3?1?2CEDFB0@F=0>FC0>F?0>FC0BFD0>F?0>FC0BFE0@FG0>FF0>F?0>FD0>F>0>F" -DATA "D0>F>0>F>0>FN0>4[3?1?2>E>3DFB0>F=0@FC0>F?0>FC0>FH0>F?0>FC0>F?0>FG0>FF0" -DATA ">FF0>F?0>FE0@FF0DFO0=4^3?1>2?3>F=0>F=0>FB0>F>0?FC0>F?0>FC0>FH0>F=0@FC0" -DATA ">F?0>FG0>FF0>FF0>F?0>FE0@FF0DFO0J4T3>1?3>F=0>F=0>FB0>F>0?FC0>F?0>FC0>F" -DATA "H0>F>0?FC0>F?0>FC0>F>0>FF0>FF0>F?0>FF0>FH0>F>0>FP0^4A3=2?1>F@0>FB0>F?0" -DATA ">FD0AFD0>FI0AFD0>F?0>FD0@FG0>FG0AFG0>FH0>F>0>FP0g4y0>F¦0g5!e0g5!e0g5!e0" -DATA "g5’0>F0g5>F@0>FB0>F@0>FB0DFB0?FG0>FH0?FH0@FS0>FV0>FW0g2>F@0>FB0>F@0>F" -DATA "H0>FB0>FH0>FI0>FG0>F>0>FS0>FU0>FW0g2=0>F>0>FD0>F>0>FH0>FC0>FH0>FI0>F0" -DATA ">FW0g2>0@FF0@FH0>FD0>FI0>FH0>Fr0@FE0AFT0g2?0>FH0>FH0>FE0>FI0>FH0>Fu0>F" -DATA "D0>F>0>FS0g5>0@FG0>FG0>FF0>FJ0>FG0>Fr0AFD0>F>0>FS0g3=0>F>0>FF0>FF0>FG0" -DATA ">FJ0>FG0>Fq0>F>0>FD0>F>0>FS0g3>F@0>FE0>FE0>FH0>FK0>FF0>Fq0>F>0>FD0>F>0" -DATA ">FS0g3>F@0>FE0>FE0DFB0>FK0>FF0>Fr0AFD0AFT0g3f0>FW0>Fœ0g3f0?FU0?FU0CF|0" -DATA "=3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3!e0?2?3C2?3C2?3C2" -DATA "?3C2!e0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2=3!e0=2C3?2" -DATA "C3?2C3?2C3?2>3N0>FS0>FU0>FH0>FH0>FH0>FH0>Fe0=2C3=2=3=2C3=2=3=2C3=2=3=2" -DATA "C3=2=3=2>3N0>FR0>FV0>Fd0>FH0>Fe0=2C3?2C3?2C3?2C3?2>3N0>FR0>FV0>Fd0>FH0" -DATA ">Fe0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2=3=0@FF0AFE0@F" -DATA "E0?FH0AFD0AFE0>FH0>FH0>F=0>FE0>FH0CFR0>2A3>2=3>2A3>2=3>2A3>2=3>2A3>2=3" -DATA ">2=3>F>0>FD0>F>0>FD0>F>0>FD0>FH0>F>0>FD0?F=0>FD0>FH0>FH0@FF0>FH0>F=0>F" -DATA "=0>FQ0=3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2?3=2=3>FH0>F>0>FD0BFD0>FH0>F>0>F" -DATA "D0>F>0>FD0>FH0>FH0?FG0>FH0>F=0>F=0>FQ0=3?2=3?2?3?2=3?2?3?2=3?2?3?2=3?2" -DATA "?3>2>FH0>F>0>FD0>FH0>FH0>F>0>FD0>F>0>FD0>FH0>FH0@FF0>FH0>F=0>F=0>FQ0g3" -DATA ">F>0>FD0>F>0>FD0>F>0>FD0>FH0>F>0>FD0>F>0>FD0>FH0>FH0>F=0>FE0>FH0>F=0>F" -DATA "=0>FQ0g3=0@FF0AFE0@FE0>FI0AFD0>F>0>FD0>FH0>FH0>F>0>FD0>FH0>F=0>F=0>FQ0" -DATA "g3x0>F`0>F0g3t0AFa0>F0g3!e0K3Q6=C=E=7@3!e0J2=7T6=C=7>2!Q0@5?0C2B0J2X6" -DATA "=7!Q0@5?0C2B0I2=7?6=D=6=DS60>F{0@5?0C4B0I4?6=D=6=D=6?D=6>D>6=DJ60>F{0" -DATA "@5?0C4B0H4=7Z6AFF0@FE0AFF0AFD0?FH0?FF0?FG0>F>0>FD0>F>0>FD0>F=0>F=0>FB0" -DATA ">F=0>F@0@5?0C9B0H9[6?F=0>FD0>F>0>FD0>F>0>FD0>F>0>FD0>FH0>F=0>FE0>FH0>F" -DATA ">0>FD0>F>0>FD0>F=0>F=0>FB0>F=0>F@0@2?0C4B0G4=7?6MD=6=D=6=D=6=DA6>F>0>F" -DATA "D0>F>0>FD0>F>0>FD0>F>0>FD0>FI0>FG0>FH0>F>0>FE0@FE0DFC0?FA0@2?0C4B0G4\6" -DATA ">F>0>FD0>F>0>FD0>F>0>FD0>F>0>FD0>FJ0>FF0>FH0>F>0>FE0@FE0DFC0?FA0@2?0C4" -DATA "B0F4=7?6ED=6?D=6ED=6=D@6>F>0>FD0>F>0>FD0>F>0>FD0>F>0>FD0>FH0>F=0>FE0>F" -DATA "H0>F=0?FF0>FG0>F>0>FC0>F=0>F@0@2?0C4B0F4]6>F>0>FE0@FE0AFF0AFD0>FI0?FG0" -DATA ">FH0AFF0>FG0>F>0>FC0>F=0>F@0@5?0C4B0E4=7?6=D>6=D=6HD=6BD=6=D@6X0>FL0>F" -DATA "¡0@3?0C4B0E4^6X0>FL0>F¡0@3?0C4B0D4=7?6=D>6>D=6BD=6>D=6?D=6?DD6!Q0@3?0C4" -DATA "B0D4_6!Q0@3?0C4B0C4=7_6Z0>FT0>F—0=7?3?0C4B0C4@6?D=6=D=6?D=6>D=6=D>6>D=6" -DATA "@D=6=D=6=DA6Y0>FG0>FI0>FU0=7I0=7>0=7G0=7>0=7G0=7H0>7B0=E=2=3=2?0C4B0B4" -DATA "=7`6Y0>FG0>FI0>FH0?F=0>FC0=7I0=7>0=7G0=7>0=7F0?7F0=7>0=7>0=7>0=6>2=3?0" -DATA "C4B0B4@6=D=6ED=6>D=6@D>6ADC6Y0>FG0>FI0>FG0>F=0?FD0=7I0=7>0=7F0B7D0=7=0" -DATA "=7=0=7F0>7>0=7?0=6=7>3?0C4B0A4=7a6=0>F=0>FD0AFF0>FG0>FI0>FU0=7X0=7>0=7" -DATA "E0=7=0=7K0=7@0=6=E>3?0C4B0A4@6=D=6@D=6=D>6=D>6?DN6=0>F=0>FG0>FE0>FH0>F" -DATA "J0>FT0=7X0=7>0=7F0>7J0=7A0>6>3?0C4B0@4=7b6=0>F=0>FF0>FG0>FG0>FI0>FU0=7" -DATA "X0=7>0=7G0>7H0=7B0>6=7=3?0C4B0@4c6=0>F=0>FE0>FH0>FG0>FI0>FU0=7W0B7F0=7" -DATA "=0=7F0=7>0>7?0=D>6=3?0C4B0?4=7c6>0?FE0>FI0>FG0>FI0>Fr0=7>0=7E0=7=0=7=0" -DATA "=7E0=7>0=7>0=7>0=D>6=2?0C4B0?4d6>0>FF0AFF0>FG0>FI0>FU0=7X0=7>0=7F0?7J0" -DATA ">7?0=6=D=6=7?0C4B0>4=7d6>0>FV0>FF0>FH0>F‚0=7P0=D>6=7?0B4=3B0>4=7d6?F!N0" -DATA "=D>6=E?0B4=3B0>4=7_EA6!Q0=6=D=6=E?0B4=3B0>4=7bE>6!Q0=6=D=6=E?0B4=3B0>4" -DATA "=7dE!Q0@6?0B4=3B0>4=7dE=0=7H0=7J0=7H0=7’0=7G0?7A0=D?6?0B4=3B0=4=2=7dE=7" -DATA "=0=7G0=7I0=7J0=7H0=7=0=7‚0=7F0=7?0=7@0=D?6?0B4=3B0=4=2eE=7=0=7G0=7I0=7" -DATA "J0=7I0=7ƒ0=7F0=7?0=7@0=6=D>6?0B4=3B0>2cE>3=0=7V0=7J0=7H0=7=0=7I0=7s0=7" -DATA "G0=7?0=7@0=D?6?0B4=3B0c2@3=0=7V0=7J0=7X0=7s0=7G0=7?0=7@0=6=D>6?0B4=3B0" -DATA "=4c2?3=7=0=7=0=7S0=7J0=7V0A7S0>7W0=7H0=7?0=7@0=D?6?0C4B0`4C2=7>0=7T0=7" -DATA "J0=7X0=7r0=7H0=7?0=7@0=D?6?0C4B0g4=7>0=7T0=7J0=7X0=7q0=7I0=7?0=7@0=6=D" -DATA ">6?0C5B0g5=0>7=0=7S0=7J0=7e0=7V0=7I0=7J0?7A0=6=D>6?0C5B0g5X0=7J0=7d0=7" -DATA "|0@6?0C5B0g5Y0=7H0=7¦0@6?0C5B0g5!Q0@6?0C5B0g5!Q0@6?0C2B0g2!Q0@6?0C2B0g2" -DATA ">0=7H0?7G0?7I0=7F0A7F0?7F0A7F0?7G0?7]0@6?0C2B0g2?7G0=7?0=7E0=7?0=7G0>7" -DATA "F0=7I0=7?0=7I0=7E0=7?0=7E0=7?0=7\0@6?0C2B0g2>0=7K0=7I0=7G0>7F0=7I0=7L0" -DATA "=7F0=7?0=7E0=7?0=7\0@6?0C5B0g5>0=7K0=7I0=7F0=7=0=7F0@7F0=7L0=7F0=7?0=7" -DATA "E0=7?0=7E0=7J0=7C0=E?6?0C3B0g3>0=7J0=7H0>7G0=7=0=7F0=7?0=7E0@7H0=7H0?7" -DATA "G0@7\0=E?6?0C3B0g3>0=7I0=7K0=7E0=7>0=7J0=7E0=7?0=7G0=7G0=7?0=7I0=7\0=E" -DATA "?6?0C3B0g3>0=7H0=7L0=7E0A7I0=7E0=7?0=7F0=7H0=7?0=7I0=7\0>E>6?0C3B0g3>0" -DATA "=7G0=7I0=7?0=7H0=7F0=7?0=7E0=7?0=7F0=7H0=7?0=7E0=7?0=7\0?E=6?0C3B0g3>0" -DATA "=7G0A7F0?7I0=7G0?7G0?7G0=7I0?7G0?7F0=7J0=7C0?E=6?0>3=2=3?2B0=3=2=3?2=3" -DATA "=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3!H0=7D0?E=6?0@2?3B0?2?3C2?3" -DATA "C2?3C2?3C2!Q0@E?0=2=3=2@3B0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2" -DATA "=3=2=3=2=3!Q0@E?0>2A3B0=2C3?2C3?2C3?2C3?2>3!Q0@E?0=3=2A3B0=2C3=2=3=2C3" -DATA "=2=3=2C3=2=3=2C3=2=3=2>3!Q0@E?0>2A3B0=2C3?2C3?2C3?2C3?2>3g0?7I0@7F0=7F0" -DATA "@7G0@7E0@7F0A7E0A7@0@E?0=2=3=2@3B0=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2" -DATA "=3=2A3=2=3=2=3=2=3f0=7?0=7F0>7@0>7D0=7F0=7?0=7E0=7@0=7D0=7?0=7E0=7I0=7" -DATA "D0@E?0=3>2@3B0>2A3>2=3>2A3>2=3>2A3>2=3>2A3>2=3>2=3?0=7T0=7M0=7F0=7B0=7" -DATA "C0=7=0=7E0=7?0=7E0=7I0=7@0=7D0=7I0=7D0@E?0>3=2@3B0=3=2A3=2?3=2A3=2?3=2" -DATA "A3=2?3=2A3=2?3=2=3>0=7V0=7L0=7E0=7?0?7>0=7B0=7=0=7E0=7?0=7E0=7I0=7@0=7" -DATA "D0=7I0=7D0=3?E?0>3?2=3=2B0=3?2=3?2?3?2=3?2?3?2=3?2?3?2=3?2?3>2=0=7H0A7" -DATA "G0=7J0=7F0=7>0=7>0=7>0=7A0=7?0=7D0@7F0=7I0=7@0=7D0@7F0@7A0@3?0C3B0g3=7" -DATA "Z0=7H0=7G0=7>0=7>0=7>0=7A0=7?0=7D0=7?0=7E0=7I0=7@0=7D0=7I0=7D0=2?3?0C3" -DATA "B0g3=0=7H0A7G0=7I0=7G0=7?0>7=0?7A0A7D0=7?0=7E0=7I0=7@0=7D0=7I0=7D0=1=2" -DATA ">3?0C3B0g3>0=7V0=7W0=7H0=7A0=7C0=7?0=7E0=7@0=7D0=7?0=7E0=7I0=7D0=3=1>2" -DATA "?0C3B0g3?0=7T0=7K0=7H0>7G0=7A0=7C0@7G0@7E0@7F0A7E0=7D0=4?3?0C3B0g3w0A7" -DATA "‘0?4=3?0C3B0K3Q6=C=E=7@3!Q0@4?0C2B0J2=7T6=C=7>2!Q0@5?0C2B0J2X6=7!Q0@5?0" -DATA "C2B0I2=7?6=D=6=DS6!Q0@5?0C4B0I4?6=D=6=D=6?D=6>D>6=DJ6=0@7E0=7@0=7D0=7L0" -DATA "=7F0=7?0=7E0=7I0=7A0=7C0=7@0=7E0@7E0A7F0@7@0@5?0C4B0H4=7Z6=7@0=7D0=7@0" -DATA "=7D0=7L0=7F0=7>0=7F0=7I0=7A0=7C0>7?0=7D0=7@0=7D0=7@0=7D0=7@0=7?0@5?0C9" -DATA "B0H9[6=7I0=7@0=7D0=7L0=7F0=7=0=7G0=7I0>7?0>7C0>7?0=7D0=7@0=7D0=7@0=7D0" -DATA "=7@0=7?0@2?0?4@3B0G4=7?6MD=6=D=6=D=6=DA6=7I0=7@0=7D0=7L0=7F0>7H0=7I0>7" -DATA "?0>7C0=7=0=7>0=7D0=7@0=7D0=7@0=7D0=7@0=7?0@2?0?4@3B0G4\6=7>0?7D0B7D0=7" -DATA "L0=7F0>7H0=7I0=7=0=7=0=7=0=7C0=7=0=7>0=7D0=7@0=7D0A7E0=7@0=7?0@2?0?4@3" -DATA "B0F4=7?6ED=6?D=6ED=6=D@6=7@0=7D0=7@0=7D0=7L0=7F0=7=0=7G0=7I0=7=0=7=0=7" -DATA "=0=7C0=7>0=7=0=7D0=7@0=7D0=7I0=7@0=7?0@2?0?4@3B0F4]6=7@0=7D0=7@0=7D0=7" -DATA "I0=7>0=7F0=7>0=7F0=7I0=7>0=7>0=7C0=7?0>7D0=7@0=7D0=7I0=7>0=7=0=7?0@5?0" -DATA "?4@3B0E4=7?6=D>6=D=6HD=6BD=6=D@6=7?0>7D0=7@0=7D0=7I0=7>0=7F0=7?0=7E0=7" -DATA "I0=7>0=7>0=7C0=7?0>7D0=7@0=7D0=7I0=7?0>7?0@3?0?4@3B0E4^6=0?7=0=7D0=7@0" -DATA "=7D0=7J0>7G0=7@0=7D0A7E0=7A0=7C0=7@0=7E0@7E0=7J0@7@0@3?0?4@3B0D4=7?6=D" -DATA ">6>D=6BD=6>D=6?D=6?DD6!M0=7?0@3?0>4A3B0D4_6!Q0@3?0>4A3B0C4=7_6!Q0@3?0>4" -DATA "A3B0C4@6?D=6=D=6?D=6>D=6=D>6>D=6@D=6=D=6=DA6!Q0=3=2=3=2?0>4A3B0B4=7`6!Q0" -DATA "?2=3?0>4A3B0B4@6=D=6ED=6>D=6@D>6ADC6A7F0?7F0A7E0=7@0=7D0=7A0=7C0=7E0=7" -DATA "?0=7A0=7C0=7A0=7C0C7C0>7H0=7D0=3=2>3?0>4A3B0A4=7a6=7@0=7D0=7?0=7G0=7G0" -DATA "=7@0=7D0=7A0=7C0=7E0=7?0=7A0=7C0=7A0=7I0=7C0=7I0=7D0=2?3?0>4A3B0A4@6=D" -DATA "=6@D=6=D>6=D>6?DN6=7@0=7D0=7K0=7G0=7@0=7E0=7?0=7E0=7?0=7?0=7A0=7?0=7E0" -DATA "=7?0=7I0=7D0=7I0=7D0=2?3?0>4A3B0@4=7b6=7@0=7D0=7K0=7G0=7@0=7E0=7?0=7E0" -DATA "=7?0=7?0=7B0=7=0=7G0=7=0=7I0=7E0=7J0=7C0=2?3?0=4B3B0@4c6A7F0?7H0=7G0=7" -DATA "@0=7E0=7?0=7E0=7?0=7?0=7C0=7I0=7I0=7F0=7J0=7C0=3=2>3?0=4B3B0?4=7c6=7@0" -DATA "=7H0=7G0=7G0=7@0=7F0=7=0=7G0=7=0=7=0=7=0=7C0=7=0=7H0=7H0=7G0=7K0=7B0>2" -DATA ">3?0=4B3B0?4d6=7@0=7H0=7G0=7G0=7@0=7F0=7=0=7G0=7=0=7=0=7=0=7B0=7?0=7G0" -DATA "=7G0=7H0=7K0=7B0=3=2>3?0=4B3B0>4=7d6=7@0=7D0=7?0=7G0=7G0=7@0=7G0=7I0=7" -DATA "?0=7B0=7A0=7F0=7F0=7I0=7L0=7A0=3?2?0=4B3B0>4=7d6=7@0=7E0?7H0=7H0@7H0=7" -DATA "I0=7?0=7B0=7A0=7F0=7F0C7C0=7L0=7A0@3?0=4B3B0>4=7_EA6º0=7R0@3?0=4B3B0>4" -DATA "=7bE>6º0>7Q0@3?0=4B3B0>4=7dE!Q0=E?3?0C3B0>4=7dE!Q0=E=7>3?0C3B0=4=2=7dE" -DATA "L0=7!@0=6=E>3?0C3B0=4=2eE>7I0=7=0=7T0=7W0=7[0=7T0=7Q0>6=7=2?0C3B0>2cE>3" -DATA "=0=7H0=7?0=7T0=7V0=7[0=7S0=7R0>6=E=2?0C3B0c2@3=0=7€0=7[0=7S0=7R0>6=E=7" -DATA "?0C4B0=4c2?3=0=7s0?7F0@7G0?7G0@7F0?7F0>7I0@7@0>6=E=7?0C4B0`4C2=0=7v0=7" -DATA "E0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7I0=7?0=7@0?6=7?0C4B0g4=0=7s0@7E0=7" -DATA "?0=7E0=7I0=7?0=7E0A7E0=7I0=7?0=7@0?6=7x0=7r0=7?0=7E0=7?0=7E0=7I0=7?0=7" -DATA "E0=7I0=7I0=7?0=7@0?6=7x0=7r0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7" -DATA "I0=7?0=7@0?6=7?0j5G0=7s0@7E0@7G0?7G0@7F0?7F0=7J0@7@0?6=7?0j5G0=7!J0=7@0" -DATA "?6=7?0j5F0>7V0B7¦0@7A0?6=7?0j5![0?6=7?0j5![0?6=7?0j2![0?6=7?0j2F0=7I0=7" -DATA "I0=7I0=7I0=7˜0?6=7?0j2F0=7e0=7I0=7˜0?6=7?0j2F0=7e0=7I0=7˜0?6=7?0j5F0=7" -DATA "=0>7F0=7I0=7I0=7>0=7F0=7I0?7=0>7D0=7=0>7G0?7F0@7G0@7E0>7C0?6=7?0j3F0>7" -DATA ">0=7E0=7I0=7I0=7=0=7G0=7I0=7>0=7>0=7C0>7>0=7E0=7?0=7E0=7?0=7E0=7?0=7E0" -DATA "=7D0?6=7?0j3F0=7?0=7E0=7I0=7I0>7H0=7I0=7>0=7>0=7C0=7?0=7E0=7?0=7E0=7?0" -DATA "=7E0=7?0=7E0=7D0=E>6=7?0j3F0=7?0=7E0=7I0=7I0=7=0=7G0=7I0=7>0=7>0=7C0=7" -DATA "?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7D0>E=6=7?0j3F0=7?0=7E0=7I0=7I0=7>0=7F0" -DATA "=7I0=7>0=7>0=7C0=7?0=7E0=7?0=7E0=7?0=7E0=7?0=7E0=7D0>E=6=7?0j3F0=7?0=7" -DATA "E0=7I0=7I0=7?0=7E0=7I0=7>0=7>0=7C0=7?0=7F0?7F0@7G0@7E0=7D0?E=7?0?2=3=2" -DATA "?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2?3=2=3?2=3=2=3b0=70=7M0=7N0?E=7?0" -DATA "?3C2?3C2?3C2?3C2?3?2b0=70=7M0=7N0?E=7?0@3=2=3=2=3=2A3=2=3=2=3=2A3=2=3" -DATA "=2=3=2A3=2=3=2=3=2A3=2=3![0?E=7?0A3?2C3?2C3?2C3?2C3=2![0?E=7?0A3=2=3=2" -DATA "C3=2=3=2C3=2=3=2C3=2=3=2C3=2¸0=7U0=7D0?E=7?0A3?2C3?2C3?2C3?2C3=2·0=7H0" -DATA "=7J0=7C0?E=7?0@3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3=2=3=2A3=2=3T0" -DATA "=7ž0=7H0=7J0=7C0?E=7?0@3>2=3>2A3>2=3>2A3>2=3>2A3>2=3>2A3>2T0=7ž0=7H0=7" -DATA "J0=7C0=E>3=7?0@3=2?3=2A3=2?3=2A3=2?3=2A3=2?3=2A3=2=3G0>7G0>7H0=7?0=7E0" -DATA "=7?0=7E0=7>0=7>0=7C0=7>0=7G0=7>0=7E0@7G0=7H0=7J0=7C0=2?3?0=2=3?2?3?2=3" -DATA "?2?3?2=3?2?3?2=3?2?3?2=3?2=3F0=7>0=7F0=7I0=7?0=7E0=7?0=7E0=7>0=7>0=7C0" -DATA "=7>0=7G0=7>0=7H0=7F0=7I0=7K0=7B0>2>3?0j3G0=7H0=7I0=7?0=7F0=7=0=7F0=7=0" -DATA "=7=0=7=0=7D0>7H0=7>0=7G0=7H0=7H0=7J0=7C0>1>3?0j3H0=7G0=7I0=7?0=7F0=7=0" -DATA "=7F0=7=0=7=0=7=0=7D0>7H0=7>0=7F0=7I0=7H0=7J0=7C0@3?0j3F0=7>0=7F0=7I0=7" -DATA ">0>7G0=7H0=7?0=7D0=7>0=7H0>7F0=7J0=7H0=7J0=7C0@3?0j3G0>7H0=7I0>7=0=7G0" -DATA "=7H0=7?0=7D0=7>0=7H0=7G0@7G0=7H0=7J0=7C0@4?0j3œ0=7W0=7G0=7I0=7K0A3=7=E" -DATA "S6L3š0>7‚0?2=7V6=7K2!b0=2=7>E>6?D=6@D=6=D=6=D=6=D=6CD?6K2!b0=7?E=6=DU6" -DATA "=7I2=5!b0=7?E>6@D>6?D=6?D=6>D>6>D=6?D>6J4T0?8G0?8E0=8E0=8C0?8G0?8A0=8F0" -DATA "?8=0=8G0=8?0?8A0=8A0=8>0=8W0=7=E=C=EX6=7I4G0>7>0=7D0=8=0=8G0=8=0=8E0=8" -DATA "E0=8C0=8=0=8G0=8=0=8A0=8F0=8K0=8?0=8=0=8A0=8A0=8>0=8W0=7>C=E>6>D=6>D=6" -DATA "=D?6GD=6=D=6=D>6I9F0=7>0>7E0=8=0=8=0=8=0=8=0?8?0=8?0?8=0?8=0>8=0>8=0?8" -DATA "=0=8=0?8?0=8=0=8=0?8=0?8?0=8?0?8=0=8=0?8=0>8?0=8?0=8=0=8=0=8=0?8=0?8?0" -DATA "=8=0=8=0?8=0=8=0?8=0>8=0>8=0?8R0=7>C=E=6=DW6=7H4T0>8>0=8=0=8=0=8=0=8?0" -DATA "=8?0=8=0=8=0=8=0=8=0=8>0=8>0=8=0=8=0=8=0=8A0?8=0=8=0=8=0=8=0=8?0=8?0=8" -DATA "=0=8=0=8=0=8=0=8=0=8@0>8>0=8=0=8=0=8=0=8=0=8=0=8=0=8?0?8?0=8=0=8=0=8=0" -DATA "=8=0=8>0=8>0=8=0=8R0=7>C=E>6?D=6>D=6>DO6H4T0=8=0=8=0=8=0=8=0=8=0=8?0=8" -DATA "?0=8=0=8=0=8=0=8=0=8>0=8>0=8=0=8=0=8=0?8?0=8?0?8=0=8=0=8?0=8?0=8=0=8=0" -DATA "=8=0=8=0=8=0=8@0=8?0=8>0=8>0?8=0=8=0=8?0=8?0?8=0=8=0?8=0=8>0=8>0?8R0=7" -DATA ">C=E=6=DX6=7G4T0=8=0=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8=0=8>0=8" -DATA ">0=8=0=8=0=8?0=8?0=8?0=8?0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8=0=8=0=8@0=8?0" -DATA "=8=0=8=0=8=0=8?0=8=0=8?0=8?0=8=0=8=0=8=0=8?0=8>0=8>0=8T0=7>C=E[6G4T0=8" -DATA "=0=8=0?8=0=8=0=8?0?8=0?8=0=8=0=8=0>8=0=8>0?8=0=8=0?8?0=8?0?8=0=8=0=8?0" -DATA "?8=0?8=0=8=0?8=0=8@0=8?0=8=0=8=0=8=0?8=0?8?0=8?0?8=0=8=0?8=0>8=0>8=0?8" -DATA "R0=7>C=E>6CD=6@D>6>D>6>D=6>D=6?D>6=7F4!b0=7>C=E=6=DZ6F4!b0=7>C=E?6=D=6" -DATA "LD=6>D=6>D=6=D?6=7E4T0?8=0=8S0=8?0=8C0>8K0=8H0>8J0?8J0=8=0=8E0=8V0=7>C" -DATA "=E]6E4T0=8=0=8=0=8S0=8?0=8C0=8=0=8V0=8=0=8J0=8=0=8J0=8G0=8V0=7>C=E>6>D" -DATA "=6HD=6AD=6=D>6>D=6=D>6=7D4T0=8?0?8=0?8=0?8=0?8=0?8=0?8=0?8=0=8=0?8?0=8" -DATA "=0=8=0>8=0?8=0=8=0=8=0=8=0=8=0?8=0?8?0=8=0=8=0>8=0?8=0?8?0=8?0?8=0?8=0" -DATA ">8=0?8=0=8=0?8=0?8=0>8=0?8=0?8M0=7>C=E^6D4T0=8?0=8=0=8?0=8=0=8=0=8=0=8" -DATA "=0=8=0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8@0=8=0=8=0=8=0=8=0=8=0" -DATA "=8=0=8=0=8=0=8?0?8=0=8>0=8=0=8?0=8?0=8?0=8=0=8=0=8=0=8=0=8>0=8=0=8=0=8" -DATA "=0=8=0=8?0=8=0=8>0=8=0=8=0=8O0=7>C=E?6>D=6>D=6>DS6=7C4T0=8?0=8=0=8=0?8" -DATA "=0=8=0=8=0=8=0=8=0?8=0?8=0=8=0=8=0=8=0?8?0=8=0=8=0=8>0?8=0=8=0=8=0=8=0" -DATA "=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8>0?8=0?8?0=8?0=8=0=8=0=8=0=8=0=8>0=8=0=8" -DATA "=0=8=0=8=0=8=0?8=0=8>0?8=0?8M0=7>C=E>6=D\6C4T0=8=0=8=0=8=0=8=0=8=0=8=0" -DATA "=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8=0=8=0=8=0=8A0=8=0=8=0=8>0=8=0=8=0=8=0=8" -DATA "=0=8=0=8=0=8=0=8=0=8=0=8?0=8=0=8=0=8>0=8?0=8=0=8?0=8=0=8=0=8=0=8=0=8=0" -DATA "=8=0=8>0=8=0=8=0=8=0=8=0=8=0=8=0=8=0=8>0=8A0=8M0=7>C=E_6=7B4T0?8=0=8=0" -DATA "=8=0?8=0=8=0=8=0?8=0?8=0?8=0?8=0=8=0?8?0>8>0=8>0?8>0=8=0=8>0=8=0=8=0=8" -DATA "=0?8?0=8=0=8=0=8>0?8=0?8?0?8=0?8=0?8=0=8>0?8=0=8=0=8=0=8=0?8=0>8=0?8=0" -DATA "?8M0=7>C=ED6>D=6=D>6=DA6=D=6=D=6>D?6=DB6B4f0=8j0=8ˆ0=7>C>EB6>D=6>D=6?D" -DATA "=6?D=6@D=6=D=6?DA6=7A4d0>8i0>8‰0=7>C>E`6A4T0?8C0=8E0?8C0?8C0=8=0=8C0?8" -DATA "C0?8C0?8C0?8C0?8m0=7>C>E`6=7@4T0=8=0=8C0=8G0=8E0=8C0=8=0=8C0=8E0=8G0=8" -DATA "C0=8=0=8C0=8=0=8m0=7>C>Ea6@4T0=8=0=8C0=8G0=8E0=8C0=8=0=8C0=8E0=8G0=8C0" -DATA "=8=0=8C0=8=0=8m0=7=E=C>Ea6=7?4T0=8=0=8C0=8E0?8C0?8C0?8C0?8C0?8D0=8D0?8" -DATA "C0?8m0=7=E=C>Ea6=7?4T0=8=0=8C0=8E0=8G0=8E0=8E0=8C0=8=0=8D0=8D0=8=0=8E0" -DATA "=8m0=7=E=C>E=6`E=7?4T0=8=0=8C0=8E0=8G0=8E0=8E0=8C0=8=0=8D0=8D0=8=0=8E0" -DATA "=8m0=7eE=7?4T0?8C0=8E0?8C0?8E0=8C0?8C0?8D0=8D0?8C0?8m0=7eE=7?4!b0=7eE=7" -DATA "?4!b0=7eE=7=2>4!b0=3fE=2>4!b0?3dE>2=4!b0B3c2=4!b0=3A2c3=4!b0E3a4!b0j4#1B2#0" - -SUB DrawBOX (x, y, xx, yy, FlipFLOP) -Colr1 = 15: Colr2 = 8 -IF FlipFLOP THEN Colr1 = 8: Colr2 = 15 -LINE (x, y)-(xx, yy), 7, BF -LINE (x, y)-(xx, yy), Colr1, B -LINE (xx, y)-(xx, yy), Colr2 -LINE (x, yy)-(xx, yy), Colr2 -END SUB - -SUB Interval (Length!) -StartTIME! = TIMER -DO -IF TIMER < StartTIME! THEN EXIT DO -LOOP WHILE TIMER < StartTIME! + Length! -END SUB - -SUB PrintSTRING (x, y, Prnt$, Font) - -Offset = Font * 4700 '3 fonts in 1 array with 4700 offset -FOR n = 1 TO LEN(Prnt$) -Char$ = MID$(Prnt$, n, 1) -IF Char$ = " " OR Char$ = CHR$(255) THEN -x = x + 3'FontBOX(Offset + 1) -ELSE -Index = (ASC(Char$) - 33) * FontBOX(Offset) + 2 + Offset -PUT (x, y), FontBOX(Index) -x = x + FontBOX(Index) -END IF -NEXT n - -END SUB diff --git a/programs/samples/thebob/animax/readme.txt b/programs/samples/thebob/animax/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/animax/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/biochart/bcgfx.bas b/programs/samples/thebob/biochart/bcgfx.bas deleted file mode 100644 index c403ea0c0..000000000 --- a/programs/samples/thebob/biochart/bcgfx.bas +++ /dev/null @@ -1,402 +0,0 @@ -CHDIR ".\programs\samples\thebob\biochart" - -'******************************************************* -'----------------------- BCGFX.BAS --------------------- -'******************************************************* - -DEFINT A-Z -DECLARE SUB PrintSTRING (x, y, Prnt$) -DIM SHARED Box(12000) -DIM SHARED FontBOX(6000) - -SCREEN 12 -GOSUB SetPALETTE - -MaxWIDTH = 485 -MaxDEPTH = 114 -x = 0: y = 0 -RESTORE PixDATA -DO -READ DataSTRING$ -FOR n = 1 TO LEN(DataSTRING$) -Char$ = MID$(DataSTRING$, n, 1) -SELECT CASE Char$ -CASE "!" -n = n + 1 -a$ = MID$(DataSTRING$, n, 1) -Count = ASC(a$) + 68 -CASE "#" -n = n + 1 -B$ = MID$(DataSTRING$, n) -FOR i = 1 TO LEN(B$) -t$ = MID$(B$, i, 1) -IF t$ = "#" THEN EXIT FOR -c$ = c$ + t$ -NEXT i -Count = VAL("&H" + c$) -n = n + LEN(c$) -c$ = "" -CASE ELSE -Count = ASC(Char$) - 60 -END SELECT -n = n + 1 -Colr = VAL("&H" + MID$(DataSTRING$, n, 1)) -FOR Reps = 1 TO Count -PSET (x, y), Colr -x = x + 1 -IF x > MaxWIDTH THEN x = 0: y = y + 1 -NEXT Reps -NEXT n -LOOP UNTIL y > MaxDEPTH 'DATA drawing loop ends here -------------------- - -DIM NumBOX(300) -FOR x = 227 TO 362 STEP 15 -GET (x, 74)-(x + 6, 86), NumBOX(Index) -Index = Index + 30 -NEXT x -DEF SEG = VARSEG(NumBOX(0)) -BSAVE "brsnums.bsv", VARPTR(NumBOX(0)), 600 -DEF SEG - -GET (112, 55)-(198, 72), Box -PUT (112, 55), Box -PUT (16, 438), Box -GET (0, 55)-(104, 72), Box -PUT (0, 55), Box -PUT (158, 438), Box -GET (208, 55)-(338, 72), Box -PUT (208, 55), Box -PUT (320, 438), Box -GET (348, 55)-(448, 72), Box -PUT (348, 55), Box -PUT (503, 438), Box -CIRCLE (110, 447), 5, 5 -PAINT STEP(0, 0), 9, 5 -CIRCLE (272, 447), 5, 5 -PAINT STEP(0, 0), 8, 5 -CIRCLE (460, 447), 5, 5 -PAINT STEP(0, 0), 6, 5 -CIRCLE (614, 447), 5, 5 -PAINT STEP(0, 0), 13, 5 -GET (0, 0)-(490, 55), Box '7000 -PUT (0, 0), Box -GET (20, 438)-(620, 454), Box(7000) -PUT (20, 438), Box(7000) - -FontBOX(0) = 60: FontBOX(1) = 3 -Index = 2 -FOR y = 74 TO 102 STEP 14 -FOR x = 0 TO 465 STEP 15 -GET (x, y)-(x + 14, y + 13), FontBOX(Index) -PUT (x, y), FontBOX(Index) -Index = Index + 60 -NEXT x -NEXT y -FOR Index = 2 TO 93 * 60 + 2 STEP 60 -LINE (0, 200)-(20, 220), 0, BF -PUT (0, 200), FontBOX(Index) -x1 = -1: x2 = -1 -FOR x = 0 TO 20 -FOR y = 200 TO 220 -IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x -NEXT y: NEXT x -FOR x = 20 TO 0 STEP -1 -FOR y = 200 TO 220 -IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x -NEXT y: NEXT x -FOR cx = x1 TO x2 -FOR cy = 200 TO 207 -IF POINT(cx, cy) <> 0 THEN PSET (cx, cy), 7 -NEXT cy -NEXT cx -IF Index = 3242 THEN Margin = 0 ELSE Margin = 1 -GET (x1, 200)-(x2 + Margin, 213), FontBOX(Index) -NEXT Index -LINE (0, 200)-(20, 220), 0, BF -DEF SEG = VARSEG(FontBOX(0)) -BSAVE "brsmssb.fnt", VARPTR(FontBOX(0)), 5643 * 2 -DEF SEG -PrintSTRING 10, 6, "Freeware - Copyright (C) 2007 by Bob Seguin" -PrintSTRING 500, 6, "BOBSEG@sympatico.ca" -FOR x = 10 TO 630 -IF x = 264 THEN x = 500 -FOR y = 6 TO 20 -IF y > 13 THEN Colr = 1 ELSE Colr = 2 -IF POINT(x, y) <> 0 THEN PSET (x, y), Colr -NEXT y -NEXT x -GET (10, 6)-(264, 18), Box(10000) -PUT (10, 6), Box(10000) -GET (500, 6)-(630, 18), Box(11200) -PUT (500, 6), Box(11200) -DEF SEG = VARSEG(Box(0)) -BSAVE "brsheads.bsv", VARPTR(Box(0)), 24000 -DEF SEG - -LINE (160, 185)-(477, 227), 2, BF -LINE (160, 185)-(477, 227), 0, B -LINE (160, 185)-(477, 185), 5 -LINE (160, 185)-(160, 227), 5 - -LINE (376, 194)-(393, 208), 15, BF -LINE (376, 194)-(393, 208), 0, B -LINE (377, 208)-(393, 208), 5 -LINE (393, 195)-(393, 208), 5 - -LINE (399, 194)-(416, 208), 15, BF -LINE (399, 194)-(416, 208), 0, B -LINE (400, 208)-(416, 208), 5 -LINE (416, 195)-(416, 208), 5 - -LINE (422, 194)-(453, 208), 15, BF -LINE (422, 194)-(453, 208), 0, B -LINE (423, 208)-(453, 208), 5 -LINE (453, 195)-(453, 208), 5 -PSET (395, 201), 15 -DRAW "R2DNL2uBR22R2dl2" -PrintSTRING 186, 194, "Enter a target date [mm-dd-yyyy]:" -PrintSTRING 202, 209, "(Just press ENTER to restore current date)" -FOR x = 182 TO 375 -FOR y = 191 TO 208 -IF POINT(x, y) <> 2 THEN PSET (x, y), 15 -NEXT y -NEXT x -FOR x = 182 TO 432 -FOR y = 209 TO 222 -IF POINT(x, y) <> 2 THEN PSET (x, y), 10 -NEXT y -NEXT x -GET (160, 185)-(477, 227), Box(3500) -LINE (170, 190)-(370, 216), 2, BF -LINE (170, 209)-(432, 222), 2, BF -GET (374, 188)-(470, 210), Box -PUT (374, 193), Box, PSET -PrintSTRING 190, 199, "Enter a birth date [mm-dd-yyyy]:" -FOR x = 182 TO 375 -FOR y = 199 TO 214 -IF POINT(x, y) <> 2 THEN PSET (x, y), 15 -NEXT y -NEXT x -GET (160, 185)-(477, 227), Box -PUT (160, 185), Box -DEF SEG = VARSEG(Box(0)) -BSAVE "brsinpt.bsv", VARPTR(Box(0)), 14000 -DEF SEG - -LINE (200, 170)-(439, 280), 14, B -LINE (197, 167)-(442, 283), 14, B -PrintSTRING 260, 195, "The graphics files for" -PrintSTRING 231, 210, "the BIORHYTHM CHART program" -PrintSTRING 231, 224, "have been successfully created." -PrintSTRING 222, 247, "It can now be run without exploding." - -a$ = INPUT$(1) -END - -PixDATA: - -DATA "#215#0=1=3C5=2›0=3@5=2›0=3@5=2­0=3@5=2³0=2H5=2M0=4J5=1š0C5š0C5¬0C5¯0=3" -DATA "M5=2J0M5™0=3C5=4˜0=3C5=4ª0=3C5=4«0=1=4P5=4G0=3N5=3˜0E5=1—0E5=1©0E5=1©0" -DATA "=3T5A0=1=2S5˜0E5=4—0E5=4©0E5=4¨0V5=3=2X5=2m0=2H5=3E0=2?5=2J0F5?0=4@5=2" -DATA "J0=2B5=2?0=4@5=3K0=2=4E5=3A0=2?5=2J0F5ƒ0=2E5=3D0=2?5=2J0F5g0=2H5=3E0=4" -DATA "@5=3K0=2=4E5=3D0=4u5i0=1=3N5=1A0=1A5=3I0F5>0=3B5=2H0=2D5=3=0=4C5=3E0=2" -DATA "L5=3>0=1A5=3I0F50=2I5=3A0=1A5=3I0F5c0=1=3N5=1A0=4C5=3E0=2L5=3A0=2v5g0" -DATA "=1R5=4@0C5=3H0F5>0D5=1G0F5=1F5=3>1=2=4R5=0C5=3H0F50=1M5=1?0C5=3H0F5a0" -DATA "=1R5=4?0=1F5=3>1=2=4R5@0w5f0=4U5=1=0=3D5=1G0F5>0D5=4F0=4u5=1G0F5~0=1O5" -DATA "=2=0=3D5=1G0F5`0=4U5=1=0c5?0w5d0=1X5=2E5=4G0F5>0E5E0=1v5=4G0F5A0=4@5=3" -DATA "J0=1=4?5=3^0=1Q5=2E5=4G0F5^0=1X5=2c5=4>0w5c0=1d5G0=4E5>0E5=3D0=4w5G0=4" -DATA "E5?0=1C5=4H0=1C5\0=1]5G0=4E5J0=2?5=4J0=1‚5=1=0w5c0e5=1F0=2E5>0F5C0=1x5" -DATA "=1F0=2E5?0E5=3G0E5[0^5=1F0=2E5I0=2B5I0ƒ5=4=0w5b0=3e5=4G0E5>0F5C0y5=4G0" -DATA "E5?0F5=1F0E5=3Y0=4^5=4G0E5H0=1C5=3G0=3„5=0q5=2=1=4=5=4=2I0=1=3G5=3G0g5" -DATA "G0E5>0F5=3A0=2z5G0E5?0G5F0F5X0=1`5G0E5H0E5=2F0…5=0p5=1M0=2L5=4=1D0g5G0" -DATA "=4D5>0G5A0{5G0=4D5>0=3G5=2D0=2F5=3W0a5G0=4D5F0=1G5F0…5=0=4Y5=1P5=4L0=2" -DATA "P5=3C0g5G0=2D5>0=4F5=1?0|5G0=2D5>0I5D0H5V0=2a5G0=2D5E0=2H5=4E0„5=4=0=3" -DATA "L5=2>0=3E5=0=1B5=2=0G5=2J0=1S5=4B0g5G0=1D5>0=1G5=1=2}5G0=1D5>0I5=3B0=2" -DATA "H5=1U0b5G0=1D5E0J5=1D0„5=2=0=1I5=4B0D5=3F0=4F5J0=1V5A0g5H0D5?0Š5H0D5>0" -DATA "J5=1A0I5=3T0=3b5H0D5E0K5D0ƒ5=4?0H5=4B0=3D5G0=3F5I0=2W5=4@0=2f5H0D5=1>0" -DATA "=3Y5=2k5H0D5=1=0K5@0=4J5T0c5H0D5=1C0=2K5=2C0=25=4@0H5=4?0=1=3F5G0=1F5" -DATA "H0=2Y5=3@0=4e5H0D5=2>0=1X5=1=0=2Q5=3=0=1=4E5=2=0F5H0D5=2=0K5=3>0=2K5S0" -DATA "=2M5=3>1=4N5H0D5=2C0M5D0=4[5=4=2Q5=3=0=1=4E5=2A0W5=1H0F5G0=1[5=1?0=1e5" -DATA "=1G0D5=3?0W5=1H0=1=4E5=1K0F5=1G0D5=3=0=4K5>4L5S0L5=1B0=2A5=3F5=1G0D5=3" -DATA "C0M5=2C0=1[5=1F0=1=4E5=1O0V5=3I0F5G0]5@0e5=2F0=3D5=4?0=1U5=2M0=4B5L0F5" -DATA "=2F0=3D5=4=0=1]5=2R0J5=2F0@1=0F5=2F0=3D5=4B0=2N5D0[5K0=4B5P0U5=3J0F5F0" -DATA "=3]5=1?0=4Y5=2F5=3C0=1H5@0T5=2O0B5L0F5=3C0=1H5=0=1]5=4Q0=3I5=1L0F5=3C0" -DATA "=1H5B0O5=3C0=4Y5=2L0B5P0T5=1K0F5F0_5?0=1Y5=0[5@0=2R5=1P0=2A5L0[5=0=4^5" -DATA "Q0H5=4N0[5B0P5C0=1Y5M0=2A5P0T5=4J0=1F5E0=3_5=1?0G5=1>0=1=4H5=1=0[5A0Q5" -DATA "=1R0A5=2K0[5=0_5Q0G5=4O0[5A0=3P5=3C0G5=1>0=1=4H5=1N0A5=2O0U5=1I0=3F5E0" -DATA "`5=4?0F5A0=1G5=3>0[5A0=2O5=1R0=1A5=3K0[5=0_5P0=1F5=4P0[5A0R5C0F5A0=1G5" -DATA "=3N0=1A5=3O0U5=4I0=4F5D0=1a5?0F5=1?0=1H5?0[5=1A0N5=1S0=3A5=3K0[5=1_5P0" -DATA "=4E5=4Q0[5=1@0G5=3=0E5=3B0F5=1?0=1H5O0=3A5=3O0K5=4=1=4D5=1H0G5D0=4a5=1" -DATA "=0=1F5=4>0=2H5@0[5=3A0=3L5=3T0B5=4K0[5=3_5P0E5=4R0[5=3?0=3G5>0F5A0=1F5" -DATA "=4>0=2H5P0B5=4O0K5?0D5=4H0G5D0b5=3=0=3G5=3I5=1@0=4Z5=4B0L5U0C5K0=4Z5=4" -DATA "_5P0E5S0=4Z5=4?0T5=3@0=3G5=3I5=1P0C5O0=4J5>0F5H0G5D0c5=0=4T5=1A0\5B0=4" -DATA "J5=1T0=1C5K0f5>4S5P0D5=1S0\5>0=1U5@0=4T5=1P0=1C5O0=3J5=4G5=3G0G5D0c5=0" -DATA "T5C0\5B0=1J5U0D5K0f5=1=0=1I5=4=2C5P0D5L0=4@5=2>0\5>0=3U5=2?0T5R0D5O0=1" -DATA "W5G0G5D0P5=1=0=1=4K5=0S5=1C0\5C0I5=4T0=1D5K0f5?0=1H5>0C5P0C5=3K0C5=1=0" -DATA "\5>0W5?0S5=1Q0=1D5P0W5G0G5D0N5=1B0=3I5=0T5=4=1A0=4[5=1B0=3H5=1T0=4D5K0" -DATA "=4e5@0=2F5=2>0C5=2O0C5K0E5=0=4[5=1=0W5=2>0T5=4=1O0=4D5P0W5=1F0G5=2C0L5" -DATA "=1E0=3H5=2V5=3@0=1[5=3C0H5T0=1E5=1J0=1e5=1@0=3D5=4?0=4C5O0C5J0F5>1[5=3" -DATA "=2X5=0=2V5=3M0=1E5=1O0W5=3F0H5=3B0I5=4=1H0H5=4X5=2?0[5=4C0H5T0=4E5=2K0" -DATA "e5=3A0=4C5@0=2C5=1N0C5=3H0G5=3=0[5=4Y5=2=4X5=2K0=4E5=2O0=3V5=4C0=1=4M5" -DATA "=3=1=0H5=1I0=1f5=2>0=1N5=3=1=4F5C0=4G5T0F5=3K0=1N5=3=1=4O5=3B0=2@5=4B0" -DATA "D5N0D5G0=4H5=0=1N5=3=1=4‚5=2J0F5=3O0=1W5?0=1=3S5=2F5=4K0=4g5=2>0=4H5=3" -DATA "=1A0=1F5C0=3G5S0=3F5=4L0=4H5=3=1A0=1O5=4N0D5=1M0D5=4E0=4I5>0=4H5=3=1A0" -DATA "=1ƒ5=2H0=3F5=4P0V5=4=0=3a5=1J0=1T5>3O5=1>0F5=1E0F5C0=1G5S0H5M0F5=1E0P5" -DATA "N0D5=4M0=4E5=1B0=4J5?0F5=1E0o5>3O5=1G0H5P0=4U5>3b5=3I0=1T5=4?0=1N5>0=3" -DATA "E5F0F5D0F5=4R0=1H5M0=3E5F0P5N0=4D5M0=1G5=3>1=4L5?0=3E5F0O5=3>0=3W5=4?0" -DATA "=1N5F0=1H5P0=1U5=1d5=4G0=3U5=1A0=3L5?0E5=1E0F5D0F5=3R0=4H5N0E5=1E0P5N0" -DATA "=1D5=1M0[5@0E5=1E0O5A0=1=4T5=1A0=3L5F0=4H5Q0U5=0g5=4=2>0=1=2=4M5=4F5C0" -DATA "=1K5?0E5=4E0F5D0F5=3R0I5N0E5=4E0P5O0D5=4M0=1Z5@0E5=4E0O5D0=2R5C0=1K5F0" -DATA "I5Q0=3S5=3=0Z5=3`5=1F5E0=4H5=4?0F5E0F5D0F5=2R0I5N0F5E0P5O0E5N0=4X5=2@0" -DATA "F5E0N5=3F0=1P5E0=4H5=4F0I5R0S5>0Z5=4`5=0F5F0=2G5=1?0F5=2D0F5D0F5S0I5N0" -DATA "F5=2D0P5O0=3D5O0X5A0F5=2D0N5=1H0=3N5F0=2G5=1F0I5R0=2Q5=1>0=3Z5=1^5=2=0" -DATA "F5G0=1F5@0=3F5D0F5D0F5S0I5N0=3F5D0P5O0=1D5O0=1V5=1A0=3F5D0N5J0=1M5G0=1" -DATA "F5G0I5S0=4O5=2@0Z5=0=2\5=4>0=3E5I0=4D5@0=1F5D0=1E5C0=1F5S0I5N0=1F5D0=1" -DATA "O5P0D5P0=1T5=1B0=1F5D0=1M5K0=2L5I0=4D5G0I5T0N5=1A0=1Y5>0=1[5@0E5J0=3C5" -DATA "A0=4E5E0=3D5C0=4F5S0=4H5O0=4E5E0=3N5P0=2C5Q0=1R5=1D0=4E5E0=3K5=3L0=3K5" -DATA "J0=3C5G0=4H5U0=4J5=1D0=1X5@0=3W5=4A0=4D5L0=4@5=4A0=1D5=3F0=3C5C0=2F5S0" -DATA "=1H5O0=1D5=3F0=3M5Q0C5S0=4N5=3F0=1D5=3F0=3J5=1M0B5=4D5L0=4@5=4G0=1H5V0" -DATA "=2F5=2I0=3M5=3>1=4A5B0=3T5=1C0C5=4M0=1?3C0=2C5H0=1A5=2D0=4E5T0=1G5P0=2" -DATA "C5H0=1A5=2F5Q0=2B5T0=1K5=3I0=2C5H0=1I5N0=3A5=0C5=4M0=1?3I0=1G5q0=3F5=3" -DATA "=1D0=3>4=2E0=1=3M5=4=1E0=1A5=4Z0=2A5=1J0=2>5=4F0=4C5=4V0=2D5=2Q0=2A5=1" -DATA "J0=2>5=4=0F5R0=2@5=1V0=1=3E5=4=1L0=2A5=1J0=2>5>4C5N0=1@5=4=0=1A5=4a0=2" -DATA "D5=2!z0C5=10F5¨0=1B5=4#10D#0=1B50F5©0=1A5=1#10E#0=1=4?5=40=3D5=2«0=2" -DATA "?5#16A#0D5#1DF#0=4A5=1#284#0=4>5=2¥0=3@5=4„0=4=5=3U0=3@5=4i0=3@5=4!C0=3" -DATA "@5=4a0=3@5=4K0=3@5=4=1=2=1A0=2?5=4r0=2E5=2U0=3>5=2=1=3A5>3D5=1N0=4=5=3" -DATA "H0=3>5=2W0=3=5=4@0?5=0>5=4?0=4>5=2>0=2B5=2=0=3D5=1>0=2@5=3H0=3>5=2M0=3" -DATA "D5=1B0=4=5=3=0=3>5=2=1=3A5=3=2E5=2>0=3>5=2B0=3>5=2A0=2E5=2@0=2@5=3=0=3" -DATA ">5=2=1=3A5=3R0=3>5=2M0=3D5=1B0=4=5=3=0=3>5=2=1=3A5=3G0=3D5=4>5=2=1=3A5" -DATA ">3G5A0=4?5=3E5=2h0G5=2C0=1=2K0Q5=3M0=2?5=1G0=4?5=1L0=1C5=3=0?5=2?0?5=0" -DATA "?5=1=0=1?5=3=1E5=4E5=3=0=2B5=3G0=4?5=1L0E5=3A0=2?5=1S5=2=0=4?5=1A0=4?5" -DATA "=1@0G5=2>0=2B5=3H5=3?5=2=0=2?5=3G0=4?5=1L0E5=3A0=2?5=1H5=3?5=2=0=2?5=3" -DATA "]5=2?0=1K5=2g0F5=4=1=2>5=2>0=2>5=4J0O5=3=2=1G0=3>5=1>0=3?5=2?0=3=5=4A0" -DATA "@5=3L0I5=3?0?5=0?5=3=0@5=4G5=4B5=3=2>1D5=1>0=3=5=4A0@5=3L0=4B5=3=2=4>5" -DATA "=1>0=3?5=2R5=4=1=0@5=3A0@5=3@0F5=4=1=0=1P5=4@5=0A5=3>0=3=5=4A0@5=3L0=4" -DATA "B5=3=2=4>5=1>0=3?5=2H5=4@5=0A5=4B5=3=2O5=3=2?5=4?0=4J5=4=1g0=2@5=4=3=1" -DATA "@0=4?5=1=0=4?5=2?0=1=4A5=1>0=3C5=2?5=1=4A5@0=1=4A5=1>0@5=1=0=1?5=3>0=3" -DATA "?5=3?0=1@5=2L0F5=4>5=4?0?5=0=4>5=4=3D5=1>0=1@5=3=4A5?0=4@5=2=4>5=1=0=3" -DATA "?5=3?0=1@5=2L0=1=4A5>0@5=1=0=1?5>3C5=2?5=3@5=4=3=1@0=1@5=2@0=1@5=2@0=2" -DATA "@5=4=3=1A0=4@5=2=4>5=4C5=2D5=0B5=0=3?5=3?0=1@5=2L0=1=4A5>0@5=1=0=1?5>3" -DATA "C5=2D5=0B5=4A5>0=3C5=2?5=1=4A5>0=3?5>0=1@5=4=2@5=4=3=1l0?5=1C0A5=3@5=3" -DATA ">0=1D5=2A0=3?5D0?5?0=1D5=2=0A5=1=0=4>5=4>0A5=1>0=1@5M0?5=4=1>0=3A5=4?0" -DATA "?5=0=1D5=1=4?5=4=1=0=1?5=2?0?5>0=1@5?0=4=5=1=0A5=1>0=1@5Q0?5>0A5=1=0=4" -DATA ">5=4@0=3?5A0?5=1C0=1@5A0=1@5B0?5=1C0=1@5?0=4=5=1?0=3?5@0A5=0=4A5=0A5=1" -DATA ">0=1@5Q0?5>0A5=1=0=4>5=4@0=3?5@0A5=0=4A5?0?5B0=3?5D0?5>0=1?5=1=0=4@5=2" -DATA "=0?5=1o0?5=4=3=4?5=3=0=4E5=4=0=1F5=1A0?5D0?5>0=1F5=1B5=1=2>5=4=0=2A5=4" -DATA ">0=3?5=2M0?5@0=1B5=0=1=4?5=1=0=4B5=1>0=4D5=4@0?5>0=3?5C0=2A5=4>0=3?5=2" -DATA "Q0?5>0B5=1=2>5=4A0?5A0?5=4=3=4?5=3=0=3?5=2A0=3?5=2B0?5=4=3=4?5=3=0=3?5" -DATA "G0?5@0A5=0=3@5=3=2A5=4>0=3?5=2Q0?5>0B5=1=2>5=4A0?5@0A5=0=3@5=3?0?5C0?5" -DATA "D0?5?0=4>5>3A5>0?5=4=3=4?5=3h0=1F5=1F5=4=0=4F5=3A0?5D0?5>0=4F5=3=4B5=3" -DATA ">5=4=0=4B5=1=0=3>5=4N0?5=3=0=1=4I5=2=0=2A5=1@0=1=3=4A5=2@0?5>0=4>5=2C0" -DATA "=4B5=1=0=3>5=4R0?5>0=4B5=3>5=4A0?5@0=1F5=1=3>5=4B0=3>5=4B0=1F5=1=4>5=2" -DATA "G0?5@0@5=4>0@5=1=4B5=1=0=3>5=4R0?5>0=4B5=3>5=4A0?5@0@5=4>0@5=1?0?5C0?5" -DATA "D0?5?0=2D5=2=0=1F5=1g0=3F5=3F5=4=0G5=4@0=1?5C0=1?5>0G5=4=3E5=4=0C5=4=0" -DATA "=4>5=1N0E5=4=3E5=3>0@5=4F0=2?5?0=1?5>0?5D0C5=4=0=4>5=1Q0=1?5>0=3E5=4@0" -DATA "=1?5@0=3F5=3=4>5=1B0=4>5=1B0=3F5=3?5G0=1?5@0@5=3>0=4?5=0C5=4=0=4>5=1Q0" -DATA "=1?5>0=3E5=4@0=1?5@0@5=3>0=4?5?0=1?5B0=1?5C0=1?5@0C5=4>0=3F5=3g0=4@5=3" -DATA "=1=0=1>5=3?5=1C5=1A5=3=1=0=2?5@0=3?5C0=2?5=1=0A5=3=1=0=2?5=1?5=2B5=2D5" -DATA "=1=4>5O0D5=4=0=2E5=4>0=3?5=3?0=3?5=4=1=0=1?5?0=2?5=1=0?5=1>0=1>5=4=2D5" -DATA "=1=4>5R0=2?5=1=0=1?5=2B5@0=3?5@0=4@5=3=1=0=1>5=3=4>5C0=4>5C0=4@5=3=1=0" -DATA "=1>5=3?5=1>0=1>5=4@0=3?5@0=4?5=1>0=1?5=2D5=1=4>5R0=2?5=1=0=1?5=2B5@0=3" -DATA "?5@0=4?5=1>0=1?5?0=2?5=1A0=3?5C0=2?5=1?0=3B5=1>0=4@5=3=1=0=1>5=3g0=4@5" -DATA "=2=0=1=3=2>0?5A0=3>5=3?5=2?0=1@5@0=4?5A0=2=4E5=2?0=1@5=1?5>0=4@5=4D5=4" -DATA "?5>1@5I0B5=4=1?0=4?5=4=3=2?5>0=2?5=1?0G5=0=2=4F5=1=3@5=4D5=4?5>1@5J0=2" -DATA "=4B5=1?5>0=4@5@0=4?5@0=4@5=2=0=1=3=2>0?5>1@5=0?5>1@5=0=4@5=2=0=1=3=2>0" -DATA "@5=1=3@5@0=4?5@0=3?5@0H5=4?5>1@5J0=2=4B5=1?5>0=4@5@0=4?5@0=3?5@0?5>2=4" -DATA "B5=1?0=4?5A0=2=4B5=1=0=1A5=4?0=4@5=2=0=1=3=2i0G5=1?5A0=1?5=4G5@0@5@0E5" -DATA "=4G5=0?5?0=2?5=4>5=2=1=4I5=4H0=4>5=1C0=2>5=4?0?5>0=1?5=1?0=4E5=3O5=4>5" -DATA "=2=1=4I5=4H0E5=4?5?0=2?5@0@5@0G5=1E5=4E5=4G5=1=3E5@0@5@0=1?5=1?0?5=4>5" -DATA "=2=1=4I5=4H0E5=4?5?0=2?5@0@5@0=1?5=1?0H5=4?0@5@0E5=4>0A5=1?0G5=1g0K5B0" -DATA "=4>5=1F5=3@0@5@0=4O5=3=0?5@0=2A5@0I5H0=3>5D0=1?5?0?5>0=1?5=1?0=3D5=3=0" -DATA "=4E5=4C5=2?5@0I5H0=4H5@0=2>5@0@5@0h5=1=4C5=2@0@5A0=4>5=4=0=2C5@0I5H0=4" -DATA "H5@0=2>5@0@5A0=4>5=4=0=2@5=4E5?0@5@0=4E5>0=4?5=3@0H5=1f0=3J5B0=2>5=1=0" -DATA "=4C5=3A0=3?5A0=4D5=0=4C5=3>0=2>5A0>4>5=4A0>5=2@5=2M0>5=3D0=4>5?0=1=5=4" -DATA ">0=1?5A0=3B5=1?0=4D5=0=3A5=1=0>5=4A0>5=2@5=2M0=4D5=2>5A0>4@0=3?5@0=3G5" -DATA "=3@5=2@0=2@5=2@0=3G5=1=0=3A5=1A0=3?5B0=4A5=1@5=4A0>5=2@5=2M0=4D5=2>5A0" -DATA ">4@0=3?5B0=4A5=1?5=4D5?0=3?5A0=4D5>0=3>5=4A0=3G5=1m0=1=4>5=4?5}0=3=5=3" -DATA "q0=2=5=4^0=3=5=3€0=1=4>5=4W0=1=4>5=4[0=4?5=3‚0=4>5l0=1=4>5=4s0=4=5=4#95C#0" -DATA "AEI0>EI0>E=0>EG0>E=0>EG0>EH0?EH0>EH0>EJ0>EH0>E—0>EG0@EH0>EH0@EG0@EI0>E" -DATA "F0BEF0@EF0BEF0@EG0@E’0@EG0?E?0?EG0>EI0>E=0>EG0>E=0>EF0@EF0>E=0>E=0>EC0" -DATA "@EG0>EI0>EJ0>EH0@E†0>EF0>E>0>EE0@EG0>E>0>EE0>E>0>EG0?EF0>EI0>E>0>EI0>E" -DATA "E0>E>0>EE0>E>0>E0>E>0>EF0>EA0>EG0>EI0>E=0>EF0CED0BEF0?E=0>ED0@EG0>EI0" -DATA ">EJ0>EI0>E‡0>EF0>E>0>EG0>EK0>EI0>EG0?EF0>EI0>EL0>EF0>E>0>EE0>E>0>Ef0>E" -DATA "U0>EM0>EE0>E>0@E=0>EF0>EY0>E=0>EE0@EK0>EF0>EW0>EJ0>EH0@EI0>Ev0>EG0>E>0" -DATA ">EG0>EK0>EI0>EF0@EF0AEF0>EL0>EF0>E>0>EE0>E>0>EE0>EJ0>EJ0>EW0>EL0>EE0>E" -DATA "=0>E=0>E=0>EF0>EY0>E=0>EF0?EJ0>EG0>EW0>EJ0>EY0>Ev0>EG0>E>0>EG0>EJ0>EH0" -DATA "?EG0@EF0>E>0>EE0AEH0>EH0@EG0AEd0>EH0BEG0>EJ0>EF0>E=0>E=0>E=0>EF0>EY0>E" -DATA "=0>EG0?EH0>EG0BET0>EJ0>EW0BET0?EX0>EH0>E>0>EG0>EI0>EK0>EE0>E=0>EJ0>EE0" -DATA ">E>0>EG0>EG0>E>0>EI0>Ec0>E[0>EH0>EG0>E>0CEF0>EX0CEF0@EF0>E=0?ED0>E=0>E" -DATA "U0>EJ0>EY0>Eu0>EH0>E>0>EG0>EH0>EL0>EE0BEI0>EE0>E>0>EF0>EH0>E>0>EI0>Ed0" -DATA ">EH0BEG0>EI0>EH0>Em0>E=0>EE0BEE0>E=0>E=0>EC0>E=0>EU0>EJ0>EY0>Et0>EI0>E" -DATA ">0>EG0>EG0>EI0>E>0>EH0>EF0>E>0>EE0>E>0>EF0>EH0>E>0>EE0>E>0>Ee0>EW0>EX0" -DATA "?EM0>EY0>E=0>EF0@EJ0?EE0AET0>EJ0>Eg0>EW0>EI0>EJ0@EH0>EG0BEF0@EI0>EG0@E" -DATA "G0@EG0>EI0@EG0@EF0>EJ0>EK0>EU0>EK0>EK0@Ex0>Et0>EJ0>Ef0>E!›0>E!„0>EH0>E" -DATA "#6ED#0>En0>EF0AEG0AEE0AEF0BEE0BEF0AEE0>E?0>ED0>EL0>EF0>E>0>EE0>EI0>E@0" -DATA ">EC0>E?0>EE0AEE0BEF0AEE0BEF0@EF0BEE0>E?0>ED0>E@0>EC0>ED0>E?0>E@0>EC0>E" -DATA "@0>EC0DEC0?EH0>EI0?EI0@EU0>ER0>EF0>E>0>EE0>E?0>ED0>E>0>EE0>EI0>EI0>E?0" -DATA ">ED0>E?0>ED0>EL0>EF0>E=0>EF0>EI0>E@0>EC0?E>0>ED0>E?0>ED0>E?0>ED0>E?0>E" -DATA "D0>E?0>ED0>E>0>EG0>EG0>E?0>ED0>E@0>EC0>ED0>E?0>E@0>EC0>E@0>EI0>EC0>EI0" -DATA ">EJ0>EH0>E>0>EU0>EP0@EE0>E>0>EE0>EI0>E?0>ED0>EI0>EI0>EI0>E?0>ED0>EL0>E" -DATA "F0@EG0>EI0?E>0?EC0?E>0>ED0>E?0>ED0>E?0>ED0>E?0>ED0>E?0>ED0>EK0>EG0>E?0" -DATA ">EE0>E>0>EE0>E>0>E>0>EA0>E>0>EE0>E>0>EI0>ED0>EI0>EJ0>E}0@EE0>E>0>EE0>E" -DATA "I0>E?0>ED0>EI0>EI0>EI0>E?0>ED0>EL0>EF0?EH0>EI0?E>0?EC0@E=0>ED0>E?0>ED0" -DATA ">E?0>ED0>E?0>ED0>E?0>ED0>EK0>EG0>E?0>EE0>E>0>EE0>E>0>E>0>EB0@EG0@EI0>E" -DATA "E0>EJ0>EI0>E|0>E>0>ED0AEF0>EI0>E?0>ED0AEF0AEF0>E=0@ED0CED0>EL0>EF0?EH0" -DATA ">EI0DEC0@E=0>ED0>E?0>ED0BEE0>E?0>ED0BEF0@EH0>EG0>E?0>EE0>E>0>EE0>E>0>E" -DATA ">0>EC0>EI0>EI0>EF0>EJ0>EI0>E|0>E>0>ED0>E>0>EE0>EI0>E?0>ED0>EI0>EI0>E?0" -DATA ">ED0>E?0>ED0>EL0>EF0@EG0>EI0DEC0>E=0@ED0>E?0>ED0>EI0>E?0>ED0>E?0>EH0>E" -DATA "G0>EG0>E?0>EF0@EG0DEC0@EH0>EH0>EG0>EK0>EH0>E|0BED0>E>0>EE0>EI0>E?0>ED0" -DATA ">EI0>EI0>E?0>ED0>E?0>ED0>EI0>E=0>EF0>E=0>EF0>EI0>E=0>E=0>EC0>E>0?ED0>E" -DATA "?0>ED0>EI0>E=0@ED0>E?0>EH0>EG0>EG0>E?0>EF0@EG0DEB0>E>0>EG0>EG0>EH0>EK0" -DATA ">EH0>E{0>E@0>EC0>E>0>EE0>E?0>ED0>E>0>EE0>EI0>EI0>E>0?ED0>E?0>ED0>EI0>E" -DATA "=0>EF0>E>0>EE0>EI0>E=0>E=0>EC0>E>0?ED0>E?0>ED0>EI0>E>0?ED0>E?0>ED0>E>0" -DATA ">EG0>EG0>E?0>EG0>EI0>E>0>EB0>E@0>EF0>EF0>EI0>EL0>EG0>E{0>E@0>EC0AEG0AE" -DATA "E0AEF0BEE0>EJ0BED0>E?0>ED0>EJ0?EG0>E?0>ED0BEE0>E@0>EC0>E?0>EE0AEE0>EJ0" -DATA "AEE0>E?0>EE0@EH0>EH0AEH0>EI0>E>0>EB0>E@0>EF0>EF0DEC0>EL0>EG0>E#134#0>E" -DATA "!K0>EY0>E#1C5#0?EW0?EW0CE#571#0>EV0>E‹0>E\0>EU0>EW0>EI0>EI0>EI0>EI0>E!œ0" -DATA ">EH0>EJ0>EŠ0>E\0>ET0>EX0>Eg0>EI0>E²0>E¤0>EH0>EJ0>EI0?E=0>Ew0>E\0>ET0>E" -DATA "X0>Eg0>EI0>E²0>E¤0>EH0>EJ0>EH0>E=0?Ej0@EF0AEG0@EG0AEF0@EF0?EI0AEE0AEF0" -DATA ">EI0>EI0>E=0>EF0>EI0CED0AEG0@EF0AEG0AEE0?EI0?EG0?EH0>E>0>EE0>E>0>EE0>E" -DATA "=0>E=0>EC0>E=0>EG0>E=0>EE0AEG0>EH0>EJ0>E0>EE0>E>0>EE0>E>0>EE0>E>0>EE0" -DATA ">E>0>EE0>EI0>E>0>EE0?E=0>EE0>EI0>EI0@EG0>EI0>E=0>E=0>EC0?E=0>EE0>E>0>E" -DATA "E0>E>0>EE0>E>0>EE0>EI0>E=0>EF0>EI0>E>0>EE0>E>0>EE0>E=0>E=0>EC0>E=0>EG0" -DATA ">E=0>EH0>EF0>EI0>EK0>E{0AEE0>E>0>EE0>EI0>E>0>EE0BEE0>EI0>E>0>EE0>E>0>E" -DATA "E0>EI0>EI0?EH0>EI0>E=0>E=0>EC0>E>0>EE0>E>0>EE0>E>0>EE0>E>0>EE0>EJ0>EH0" -DATA ">EI0>E>0>EF0@EF0DED0?EH0>E=0>EG0>EH0>EH0>EJ0>E{0>E>0>EE0>E>0>EE0>EI0>E" -DATA ">0>EE0>EI0>EI0>E>0>EE0>E>0>EE0>EI0>EI0@EG0>EI0>E=0>E=0>EC0>E>0>EE0>E>0" -DATA ">EE0>E>0>EE0>E>0>EE0>EK0>EG0>EI0>E>0>EF0@EF0DED0?EH0>E=0>EF0>EI0>EH0>E" -DATA "J0>E{0>E>0>EE0>E>0>EE0>E>0>EE0>E>0>EE0>E>0>EE0>EI0>E>0>EE0>E>0>EE0>EI0" -DATA ">EI0>E=0>EF0>EI0>E=0>E=0>EC0>E>0>EE0>E>0>EE0>E>0>EE0>E>0>EE0>EI0>E=0>E" -DATA "F0>EI0>E=0?EG0>EH0>E>0>ED0>E=0>EH0?EF0>EJ0>EH0>EJ0>E|0AEE0AEG0@EG0AEF0" -DATA "@EF0>EJ0AEE0>E>0>EE0>EI0>EI0>E>0>EE0>EI0>E=0>E=0>EC0>E>0>EF0@EF0AEG0AE" -DATA "E0>EJ0?EH0>EI0AEG0>EH0>E>0>ED0>E=0>EH0>EG0AEG0>EH0>EJ0>E!Y0>Ec0>E”0>EM0" -DATA ">E°0>EX0>EG0>EI0>E!V0AEd0>E”0>EM0>E®0?E´0" - -SetPALETTE: -RESTORE SetPALETTE -DATA 0, 0, 21, 21, 8, 43, 24, 10, 48, 26, 11, 53 -DATA 28,12,58, 32, 13, 63, 63, 63, 21, 42, 42, 42 -DATA 63, 0, 0, 21, 31, 63, 42, 42, 42, 55, 55, 55 -DATA 0, 0, 42, 63, 21, 63, 32, 32, 42, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Colr -OUT &H3C9, Colr -NEXT n -RETURN - -SUB PrintSTRING (x, y, Prnt$) - -FOR i = 1 TO LEN(Prnt$) -Char$ = MID$(Prnt$, i, 1) -IF Char$ = " " THEN -x = x + FontBOX(1) -ELSE -Index = (ASC(Char$) - 33) * FontBOX(0) + 2 -PUT (x, y), FontBOX(Index) -x = x + FontBOX(Index) -END IF -NEXT i - -END SUB diff --git a/programs/samples/thebob/biochart/biochart.bas b/programs/samples/thebob/biochart/biochart.bas deleted file mode 100644 index a4fa61799..000000000 --- a/programs/samples/thebob/biochart/biochart.bas +++ /dev/null @@ -1,324 +0,0 @@ -CHDIR ".\programs\samples\thebob\biochart" - -'****************************************************************************' -'------------------------- B I O C H A R T . B A S --------------------------' -'------------- Copyright (C) 2007 by Bob Seguin (Freeware)-------------------' -'****************************************************************************' - -DEFINT A-Z -DECLARE SUB PrintSTRING (x, y, Prnt$) -DECLARE SUB Graphics () -DECLARE SUB ChartGFX () -DECLARE SUB Birthday () -DECLARE SUB ChartBD () -DECLARE SUB PutNUMS (x, Num) - -DECLARE FUNCTION GetDATE$ () - -DIM SHARED NumBOX(300) -DIM SHARED Box(12000) -DIM SHARED FontBOX(6000) -DIM SHARED xBOX(1 TO 9) -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "brsmssb.fnt", VARPTR(FontBOX(0)) -DEF SEG = VARSEG(NumBOX(0)) -BLOAD "brsnums.bsv", VARPTR(NumBOX(0)) -DEF SEG - -CONST Degree! = 3.14159 / 180 -CONST Physical! = 90 / 23 -CONST Emotional! = 90 / 28 -CONST Intellectual! = 90 / 33 -CONST Intuitive! = 90 / 38 - -DIM SHARED DATE2$, Birthdate$ -DIM SHARED Hour! -DIM SHARED Months(1 TO 12) AS INTEGER -RESTORE MonthDATA -FOR n = 1 TO 12: READ Months(n): NEXT n -RESTORE xDATA -FOR n = 1 TO 8: READ xBOX(n): NEXT n - -SCREEN 12 -GOSUB SetPALETTE -DATE2$ = DATE$ - -Graphics -Birthday - -DO -k$ = UCASE$(INKEY$) -SELECT CASE k$ -CASE "B" -PUT (162, 176), Box, PSET -B$ = GetDATE$ -IF B$ = "NULL" THEN -SYSTEM -ELSE -Birthdate$ = B$ -ChartBD -END IF -CASE "T" -PUT (162, 181), Box(3500), PSET -B$ = GetDATE$ -IF B$ = "NULL" THEN DATE2$ = DATE$ ELSE DATE2$ = B$ -LINE (194, 419)-(294, 434), 0, BF -PrintSTRING 196, 420, "DATE: " + DATE2$ -ChartBD -CASE CHR$(27): EXIT DO -END SELECT -LOOP - -SYSTEM - -xDATA: -DATA 379, 386, 402, 409, 425, 432, 439, 446 - -MonthDATA: -DATA 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 - -SetPALETTE: -RESTORE SetPALETTE -DATA 0, 0, 21, 21, 8, 43, 24, 10, 48, 26, 11, 53 -DATA 28,12,58, 32, 13, 63, 63, 63, 21, 42, 42, 42 -DATA 63, 0, 0, 21, 31, 63, 52, 41, 63, 55, 55, 55 -DATA 0, 0, 42, 63, 21, 63, 32, 32, 42, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Colr -OUT &H3C9, Colr -NEXT n -RETURN - -SUB Birthday - -OPEN "brbd.dta" FOR BINARY AS #1 -IF LOF(1) THEN -CLOSE #1 -OPEN "brbd.dta" FOR INPUT AS #1 -INPUT #1, Birthdate$ -CLOSE #1 -ELSE -CLOSE #1 -PUT (162, 176), Box, PSET -B$ = GetDATE$ -IF B$ = "NULL" THEN -SYSTEM -ELSE -Birthdate$ = B$ -END IF -END IF -ChartBD - -END SUB - -SUB ChartBD - -LINE (220, 89)-(420, 102), 0, BF -PrintSTRING 240, 89, "For a person born" -PrintSTRING 340, 89, Birthdate$ -OPEN "brbd.dta" FOR OUTPUT AS #1 -PRINT #1, Birthdate$ -CLOSE #1 -ChartGFX - -Hour! = VAL(MID$(TIME$, 1, 2)) * .83 -LINE (310 + Hour!, 110)-(310 + Hour!, 426), 11 -LINE (310 + Hour!, 426)-(338, 426), 11 -PSET (310, 410), 7: DRAW "D16L12" - -Month$ = MID$(DATE2$, 1, 2) -Day$ = MID$(DATE2$, 4, 2) -Year$ = MID$(DATE2$, 7, 4) -M$ = MID$(Birthdate$, 1, 2) -D$ = MID$(Birthdate$, 4, 2) -y$ = MID$(Birthdate$, 7, 4) -FirstMONTH = Months(VAL(M$)) - VAL(D$) + 1 -FOR n = (VAL(M$) + 1) TO 12 -BalMONTHS = BalMONTHS + Months(n) -IF n = 2 AND ((VAL(y$) MOD 4) = 0) THEN BalMONTHS = BalMONTHS + 1 -NEXT n -FirstYEAR = FirstMONTH + BalMONTHS -FOR n = (VAL(y$) + 1) TO (VAL(Year$) - 1) -IF n MOD 4 = 0 THEN Yr = 366 ELSE Yr = 365 -TDays = TDays + Yr -NEXT n -TDays = TDays + FirstYEAR - -FOR n = 1 TO VAL(Month$) - 1 -Days = Days + Months(n) -IF n = 2 THEN -IF VAL(Year$) MOD 4 = 0 THEN Days = Days + 1 -END IF -NEXT n - -TDays = TDays + Days + VAL(Day$) - 1 - -VIEW SCREEN (10, 110)-(630, 410) - -'EMOTIONAL -PreviousX = 320 - (((TDays MOD 28) + 28) * 20) -PreviousY = 260 -C! = 0 -FOR x = 320 - (((TDays MOD 28) + 28) * 20) TO 630 STEP 5 -LINE (PreviousX, PreviousY)-(x, 260 + SIN(C! * Degree!) * 150), 8 -PreviousX = x -PreviousY = 260 + SIN(C! * Degree!) * 150 -C! = C! - Emotional! -NEXT x - -'INTELLECTUAL -PreviousX = 320 - (((TDays MOD 33) + 33) * 20) -PreviousY = 260 -C! = 0 -FOR x = 320 - (((TDays MOD 33) + 33) * 20) TO 630 STEP 5 -LINE (PreviousX, PreviousY)-(x, 260 + SIN(C! * Degree!) * 150), 6 -PreviousX = x -PreviousY = 260 + SIN(C! * Degree!) * 150 -C! = C! - Intellectual! -NEXT x - -PreviousX = 10 -PreviousY = 260 -C! = 0 -'PHYSICAL -PreviousX = 320 - (((TDays MOD 23) + 23) * 20) -PreviousY = 250 -FOR x = 320 - (((TDays MOD 23) + 23) * 20) TO 630 STEP 5 -LINE (PreviousX, PreviousY)-(x, 260 + SIN(C! * Degree!) * 150), 9 -PreviousX = x -PreviousY = 260 + SIN(C! * Degree!) * 150 -C! = C! - Physical! -NEXT x - - -'INTUITIVE -PreviousX = 320 - (((TDays MOD 38) + 38) * 20) -PreviousY = 260 -C! = 0 -FOR x = 320 - (((TDays MOD 38) + 38) * 20) TO 630 STEP 5 -LINE (PreviousX, PreviousY)-(x, 260 + SIN(C! * Degree!) * 150), 13 -PreviousX = x -PreviousY = 260 + SIN(C! * Degree!) * 150 -C! = C! - Intuitive! -NEXT x - -VIEW - -END SUB - -DEFSNG A-Z -SUB ChartGFX - -LINE (5, 106)-(634, 414), 7, BF -LINE (9, 109)-(631, 170), 1, BF -LINE (9, 170)-(631, 230), 2, BF -LINE (9, 230)-(631, 290), 3, BF -LINE (9, 290)-(631, 350), 2, BF -LINE (9, 350)-(631, 411), 1, BF -LINE (9, 109)-(631, 411), 7, B -FOR x = 30 TO 610 STEP 20 -LINE (x, 110)-(x, 410), 7 -IF x = 330 THEN PAINT (x - 10, 260), 7 -NEXT x -LINE (10, 260)-(630, 260), 7 - -END SUB - -DEFINT A-Z -FUNCTION GetDATE$ -i = 1: Interval! = .25: Colr = 15 -DO -WAIT &H3DA, 8: WAIT &H3DA, 8, 8 -IF i < 9 THEN LINE (xBOX(i) + 1, 201)-(xBOX(i) + 6, 202), Colr, B -k$ = INKEY$ -SELECT CASE k$ -CASE "0" TO "9" -IF i < 9 THEN -LINE (xBOX(i) + 1, 201)-(xBOX(i) + 6, 202), 15, BF -PutNUMS xBOX(i), VAL(k$) -D$ = D$ + k$ -i = i + 1 -END IF -CASE CHR$(13) 'Enter -IF LEN(D$) = 8 THEN -mm$ = MID$(D$, 1, 2) -dd$ = MID$(D$, 3, 2) -yy$ = MID$(D$, 5, 4) -IF VAL(mm$) > 0 AND VAL(mm$) < 13 THEN -IF VAL(dd$) > 0 AND VAL(dd$) < 32 THEN -IF VAL(yy$) > 1900 AND VAL(yy$) < 3000 THEN -GetDATE$ = mm$ + "-" + dd$ + "-" + yy$ -ELSE -GetDATE$ = "NULL" -END IF -ELSE -GetDATE$ = "NULL" -END IF -ELSE -GetDATE$ = "NULL" -END IF -ELSE -GetDATE$ = "NULL" -END IF -EXIT FUNCTION -CASE CHR$(8) 'Backspace -IF i > 1 THEN -IF i < 9 THEN LINE (xBOX(i), 193)-(xBOX(i) + 6, 202), 15, BF -i = i - 1 -LINE (xBOX(i), 193)-(xBOX(i) + 6, 202), 15, BF -D$ = MID$(D$, 1, LEN(D$) - 1) -END IF -END SELECT - -IF TIMER > StartTIME! + Interval! THEN -StartTIME! = TIMER -IF Colr = 15 THEN Colr = 7 ELSE Colr = 15 -END IF - -LOOP - -END FUNCTION - -SUB Graphics -DEF SEG = VARSEG(Box(0)) -BLOAD "brsheads.bsv", VARPTR(Box(0)) -DEF SEG -PUT (78, 32), Box -PUT (20, 440), Box(7000) -PUT (10, 6), Box(10000) -PUT (500, 6), Box(11200) - -PrintSTRING 196, 420, "DATE: " + DATE2$ -PrintSTRING 342, 420, "TIME: " + TIME$ -PrintSTRING 12, 460, "Press [B] to enter a new birth date" -PrintSTRING 270, 460, "Press [T] to enter a target date" -PrintSTRING 520, 460, "Press [ESC] to QUIT" - -ChartGFX - -DEF SEG = VARSEG(Box(0)) -BLOAD "brsinpt.bsv", VARPTR(Box(0)) -DEF SEG - -END SUB - -SUB PrintSTRING (x, y, Prnt$) - -FOR i = 1 TO LEN(Prnt$) -Char$ = MID$(Prnt$, i, 1) -IF Char$ = " " THEN -x = x + FontBOX(1) -ELSE -Index = (ASC(Char$) - 33) * FontBOX(0) + 2 -PUT (x, y), FontBOX(Index) -x = x + FontBOX(Index) -END IF -NEXT i - -END SUB - -SUB PutNUMS (x, Num) -PUT (x, 191), NumBOX(Num * 30) -END SUB diff --git a/programs/samples/thebob/biochart/readme.txt b/programs/samples/thebob/biochart/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/biochart/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/chess/chess.bas b/programs/samples/thebob/chess/chess.bas deleted file mode 100644 index 012595ad7..000000000 --- a/programs/samples/thebob/chess/chess.bas +++ /dev/null @@ -1,462 +0,0 @@ -CHDIR ".\programs\samples\thebob\chess" - -'CHESSGFX.BAS -DEFINT A-Z -DIM Box(1 TO 26000) -SCREEN 12 - -GOSUB SetPALETTE -GOSUB DrawPIX -GOSUB DrawBOARD - -DEF SEG = VARSEG(Box(1)) -BSAVE "chesspcs.bsv", VARPTR(Box(1)), 39000 -DEF SEG - -'position black pieces -PUT (31, 31), Box(7501), PSET -PUT (81, 31), Box(15751), PSET -PUT (131, 31), Box(6001), PSET -PUT (181, 31), Box(14251), PSET -PUT (231, 31), Box(4501), PSET -PUT (281, 31), Box(15001), PSET -PUT (331, 31), Box(6751), PSET -PUT (381, 31), Box(16501), PSET -FOR x = 31 TO 331 STEP 100 -PUT (x, 81), Box(17251), PSET -PUT (x + 50, 81), Box(8251), PSET -NEXT x - -'position white pieces -PUT (31, 381), Box(12001), PSET -PUT (81, 381), Box(2251), PSET -PUT (131, 381), Box(10501), PSET -PUT (181, 381), Box(751), PSET -PUT (231, 381), Box(9001), PSET -PUT (281, 381), Box(1501), PSET -PUT (331, 381), Box(11251), PSET -PUT (381, 381), Box(3001), PSET -FOR x = 31 TO 331 STEP 100 -PUT (x, 331), Box(3751), PSET -PUT (x + 50, 331), Box(12751), PSET -NEXT x -GOSUB SaveSCREEN - -CLS -LINE (100, 100)-(539, 349), 3, B -COLOR 14 -LOCATE 13, 26 -PRINT "The chess graphics files have" -LOCATE 14, 28 -PRINT "been successfully created." -LOCATE 16, 28 -PRINT "You may now run CHESSUBS" - -a$ = INPUT$(1) -END - -SetPALETTE: -RESTORE PaletteDATA -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Colr -OUT &H3C9, Colr -NEXT n -RETURN - -DrawPIX: -RESTORE PictureDATA -MaxWIDTH = 465 -MaxDEPTH = 46 -x = 0: y = 0 -DO -READ Count, Colr -FOR Reps = 1 TO Count -PSET (x, y), Colr -x = x + 1 -IF x > MaxWIDTH THEN -x = 0 -y = y + 1 -END IF -NEXT Reps -LOOP UNTIL y > MaxDEPTH -RETURN - -SaveSCREEN: -FileNUM = 0 -DEF SEG = VARSEG(Box(1)) -FOR y = 0 TO 320 STEP 160 -GET (0, y)-(639, y + 159), Box -FileNUM = FileNUM + 1 -FileNAME$ = "ChessBD" + LTRIM$(STR$(FileNUM)) + ".BSV" -BSAVE FileNAME$, VARPTR(Box(1)), 52000 -NEXT y -DEF SEG -RETURN - -DrawBOARD: -LINE (0, 47)-(46, 93), 7, BF -FOR x = 0 TO 46 -FOR y = 0 TO 46 -SELECT CASE POINT(x, y) -CASE 3: PSET (x, y + 47), 5 -CASE 1: PSET (x, y + 47), 6 -END SELECT -NEXT y -NEXT x - -GET (0, 0)-(46, 46), Box(1000) -PUT (0, 0), Box(1000) -GET (0, 47)-(46, 93), Box(2000) -PUT (0, 47), Box(2000) - -xx = 100: y = 100 -LINE (100, 100)-(300, 450), 0, BF -FOR x = 55 TO 450 STEP 35 -GET (x, 0)-(x + 30, 47), Box -PUT (xx, y), Box -PUT (xx - 50, y), Box(2000) -FOR xxx = xx TO xx + 35 -FOR yy = y TO y + 48 -IF POINT(xxx, yy) <> 0 THEN -PSET (xxx - 42, yy), POINT(xxx, yy) -PSET (xxx, yy), 0 -END IF -NEXT yy -NEXT xxx -y = y + 50 -IF y = 400 THEN xx = xx + 100: y = 100 -NEXT x -FOR x = 55 TO 450 STEP 35 -GET (x, 0)-(x + 30, 47), Box -PUT (x, 0), Box -PUT (xx, y), Box -PUT (xx - 50, y), Box(1000) -FOR xxx = xx TO xx + 35 -FOR yy = y TO y + 48 -IF POINT(xxx, yy) <> 0 THEN -PSET (xxx - 42, yy), POINT(xxx, yy) -PSET (xxx, yy), 0 -END IF -NEXT yy -NEXT xxx -y = y + 50 -IF y = 400 THEN xx = xx + 100: y = 100 -NEXT x -PUT (0, 0), Box(1000) -PUT (0, 47), Box(2000) - -Index = 1 -FOR x = 50 TO 350 STEP 100 -FOR y = 100 TO 350 STEP 50 -GET (x, y)-(x + 46, y + 46), Box(Index) -PUT (x, y), Box(Index) -Index = Index + 750 -NEXT y -NEXT x - -GET (0, 0)-(46, 46), Box(18001) -PUT (0, 0), Box(18001) -GET (0, 47)-(46, 93), Box(18751) -PUT (0, 47), Box(18751) - -LINE (16, 16)-(444, 444), 1, BF -LINE (15, 15)-(445, 445), 8, B -LINE (15, 15)-(445, 15), 3 -LINE (15, 15)-(15, 445), 3 -LINE (25, 25)-(435, 435), 2, BF -FOR Reps = 1 TO 1600 -x = FIX(RND * 11) + 14 -y = FIX(RND * 430) + 14 -IF FIX(RND * 2) = 0 THEN Colr = 3 ELSE Colr = 8 -IF POINT(x, y) = 1 THEN -PSET (x, y), Colr -PSET (x + 420, y), Colr -END IF -x = FIX(RND * 430) + 14 -y = FIX(RND * 11) + 14 -IF FIX(RND * 2) = 0 THEN Colr = 3 ELSE Colr = 8 -IF POINT(y, x) = 1 THEN -PSET (x, y), Colr -PSET (x, y + 420), Colr -END IF -NEXT Reps -LINE (25, 25)-(435, 435), 7, BF -LINE (29, 29)-(430, 430), 13, B -LINE (28, 28)-(431, 431), 14, B -LINE (29, 430)-(430, 430), 8 -LINE (431, 29)-(431, 430), 8 -LINE (25, 25)-(435, 435), 8, B -LINE (435, 26)-(435, 435), 3 -LINE (25, 435)-(435, 435), 3 -FOR x = 30 TO 380 STEP 50 -n = n + 1 -FOR y = 30 TO 380 STEP 50 -n = n + 1 -IF n MOD 2 THEN PUT (x + 1, y + 1), Box(18751), PSET ELSE PUT (x + 1, y + 1), Box(18001), PSET -LINE (x, y)-(x + 49, y + 49), 14, B -LINE (x, y)-(x + 48, y + 48), 13, B -NEXT y -NEXT x -LINE (5, 5)-(634, 474), 1, B -LINE (8, 8)-(631, 471), 1, B -RETURN - -PaletteDATA: -DATA 12,0,10, 12,14,12, 15,17,15, 16,20,16 -DATA 63,0,0, 63,60,50, 58,55,45, 53,50,40 -DATA 0,0,0, 42,42,48, 50,50,55, 40,40,63 -DATA 15,15,34, 58,37,15, 60,52,37, 63,63,63 - -PictureDATA: -DATA 4,3,2,2,11,3,6,2,1,3,4,2,4,3,8,1,1,2,1,3,3,1,2,2,20,0 -DATA 7,8,392,0,18,3,4,2,1,1,1,2,3,1,1,2,4,3,5,1,3,2,5,1 -DATA 2,2,20,0,2,8,3,15,2,8,204,0,1,15,3,8,184,0,8,3,1,2 -DATA 9,3,4,2,1,1,1,2,2,1,2,2,1,3,1,2,2,3,1,2,8,1,1,3,3,1 -DATA 2,2,18,0,4,8,3,15,4,8,202,0,1,11,3,8,184,0,2,2,6,3 -DATA 1,2,5,3,8,2,2,1,10,2,5,1,1,2,1,3,1,2,3,1,2,2,18,0,2,8 -DATA 7,15,2,8,200,0,1,15,7,8,182,0,3,2,5,3,1,2,5,3,7,2,1,3 -DATA 2,1,4,2,5,1,2,2,1,1,1,2,2,1,5,2,1,1,1,2,1,1,18,0,2,8 -DATA 7,15,2,8,200,0,1,11,7,8,182,0,3,2,5,3,1,2,6,3,3,2,3,3 -DATA 2,2,1,1,1,2,3,3,5,1,2,2,1,1,1,2,2,1,3,2,1,3,2,2,2,1 -DATA 18,0,4,8,3,15,4,8,28,0,3,8,171,0,1,11,3,8,184,0,1,1 -DATA 2,2,13,3,1,2,1,1,2,2,3,3,1,2,1,1,1,2,2,3,3,1,1,2,1,1 -DATA 2,2,1,1,3,2,2,3,1,1,2,3,3,2,20,0,2,8,3,15,2,8,28,0 -DATA 2,8,2,15,1,10,2,8,169,0,1,11,3,8,32,0,1,15,2,8,149,0 -DATA 3,1,1,2,1,1,2,2,7,3,2,2,8,3,1,2,3,3,1,2,1,3,1,2,1,3 -DATA 1,2,1,1,2,2,1,1,5,2,3,1,2,2,14,0,7,8,3,15,2,10,7,8 -DATA 17,0,6,8,2,15,3,10,6,8,163,0,1,11,5,8,30,0,1,11,4,8 -DATA 148,0,1,2,5,1,1,2,14,3,1,2,10,3,2,2,1,1,1,2,1,1,3,2 -DATA 1,1,1,2,1,1,4,2,13,0,2,8,17,15,2,8,15,0,1,8,17,15,1,8 -DATA 157,0,2,11,2,15,3,11,7,8,2,12,1,8,18,0,2,15,3,8,2,11 -DATA 3,8,2,12,2,8,2,12,1,8,142,0,3,2,3,1,1,2,8,3,1,2,1,3 -DATA 1,2,1,3,2,2,2,3,1,2,8,3,2,2,1,1,1,2,1,1,4,2,6,1,12,0 -DATA 2,8,2,9,3,10,1,9,1,10,11,9,1,10,2,8,13,0,1,8,3,15,1,10 -DATA 1,9,1,10,2,15,1,10,1,9,1,10,2,15,1,10,1,9,1,10,3,15 -DATA 1,8,23,0,3,8,129,0,19,8,16,0,1,12,3,8,1,11,4,8,1,12 -DATA 4,8,1,12,3,8,1,12,24,0,1,11,2,12,114,0,3,2,2,1,2,2 -DATA 2,3,2,2,3,3,6,2,3,3,1,1,2,2,4,3,6,2,1,1,3,2,1,3,5,1 -DATA 1,2,13,0,2,8,1,9,3,10,1,9,1,10,10,9,1,10,2,8,14,0,2,8 -DATA 1,9,1,10,3,15,1,10,1,9,3,15,2,9,3,15,1,9,1,10,2,8,21,0 -DATA 2,8,3,9,2,8,127,0,19,8,16,0,19,8,24,0,3,8,114,0,7,1 -DATA 1,2,8,3,1,2,6,3,1,2,1,1,2,2,5,3,1,2,2,1,9,2,3,1,14,0 -DATA 2,8,1,9,3,10,1,9,1,10,8,9,1,10,2,8,16,0,2,8,1,9,3,10 -DATA 1,9,1,10,8,9,1,10,2,8,21,0,2,8,5,9,2,8,56,0,4,8,2,0 -DATA 7,8,2,0,4,8,52,0,17,8,18,0,17,8,24,0,1,12,4,8,113,0 -DATA 4,1,3,2,1,1,1,2,1,1,4,3,3,2,6,3,1,2,1,3,1,2,6,3,10,2 -DATA 4,3,1,2,14,0,2,8,1,9,3,10,1,9,1,10,8,9,1,10,2,8,16,0 -DATA 2,8,1,9,3,10,1,9,1,10,8,9,1,10,2,8,20,0,1,8,3,9,4,15 -DATA 1,9,2,8,21,0,3,8,31,0,1,8,1,15,1,10,1,8,2,0,1,8,4,15 -DATA 1,9,1,8,2,0,1,8,1,9,1,10,1,8,52,0,16,8,19,0,16,8,24,0 -DATA 1,12,1,8,1,15,1,11,1,12,2,8,58,0,1,8,1,15,1,11,3,0 -DATA 5,12,3,0,3,12,37,0,4,1,1,2,1,3,1,2,4,1,2,2,1,3,2,2 -DATA 1,3,7,2,8,3,2,1,3,2,1,1,4,2,4,3,1,2,15,0,2,8,1,9,3,10 -DATA 1,9,1,10,6,9,1,10,2,8,18,0,2,8,1,9,3,10,1,9,1,10,6,9 -DATA 1,10,2,8,21,0,3,8,6,15,2,8,21,0,1,8,2,15,5,8,26,0,1,8 -DATA 1,15,1,10,1,8,2,0,1,8,4,15,1,9,1,8,2,0,1,8,1,9,1,10 -DATA 1,8,53,0,15,8,20,0,15,8,23,0,3,8,1,11,3,12,2,8,24,0 -DATA 2,8,31,0,1,8,1,15,1,11,3,0,5,8,3,0,2,12,1,8,37,0,3,2 -DATA 2,1,2,2,2,1,1,2,1,1,6,2,4,1,4,2,7,3,3,1,1,2,2,1,3,2 -DATA 5,3,1,2,15,0,2,8,1,9,3,10,1,9,1,10,6,9,1,10,2,8,18,0 -DATA 2,8,1,9,3,10,1,9,1,10,6,9,1,10,2,8,21,0,1,8,1,9,2,8 -DATA 5,15,1,10,2,8,19,0,1,8,1,10,1,9,1,15,1,10,3,15,4,8 -DATA 23,0,1,8,1,15,1,10,1,8,2,0,1,8,4,15,1,9,1,8,2,0,1,8 -DATA 1,9,1,10,1,8,54,0,13,8,22,0,13,8,25,0,3,8,2,12,3,8 -DATA 23,0,1,8,1,15,5,8,27,0,1,8,1,15,1,11,3,0,5,8,3,0,2,12 -DATA 1,8,37,0,2,2,1,3,1,1,4,2,1,1,4,2,8,1,3,2,2,3,1,2,5,3 -DATA 2,1,2,2,1,1,4,2,5,3,1,2,16,0,2,8,1,9,3,10,1,9,1,10 -DATA 4,9,1,10,2,8,20,0,2,8,1,9,3,10,1,9,1,10,4,9,1,10,2,8 -DATA 21,0,1,8,3,9,2,8,4,15,1,10,2,8,19,0,1,8,1,15,1,9,2,10 -DATA 6,15,3,8,21,0,1,8,1,15,1,10,4,8,4,15,1,9,4,8,1,9,1,10 -DATA 1,8,54,0,13,8,22,0,13,8,23,0,2,8,1,12,1,0,7,8,22,0 -DATA 1,8,1,11,2,12,6,8,24,0,1,8,1,15,4,11,5,8,5,12,1,8,37,0 -DATA 3,2,3,3,1,2,1,3,13,1,3,2,1,3,1,2,2,1,4,3,4,2,1,1,3,2 -DATA 2,3,2,2,2,3,1,2,15,0,2,8,13,15,2,8,18,0,2,8,13,15,2,8 -DATA 20,0,1,8,3,15,1,9,2,8,2,15,3,10,1,8,18,0,1,8,1,10,3,15 -DATA 3,10,1,9,5,15,1,10,1,8,20,0,1,8,1,15,1,10,8,15,4,10 -DATA 2,9,1,10,1,8,53,0,15,8,20,0,15,8,22,0,3,8,1,12,1,0 -DATA 6,8,21,0,1,8,1,11,4,8,1,12,1,11,1,12,4,8,22,0,1,8,1,15 -DATA 2,11,2,12,7,8,3,12,1,8,37,0,8,3,1,2,4,3,1,2,1,3,1,2 -DATA 2,3,8,2,3,1,3,2,4,3,2,2,1,1,3,2,2,1,1,2,2,3,14,0,2,8 -DATA 15,9,2,8,16,0,2,8,15,9,2,8,19,0,1,8,4,15,1,9,2,8,1,15 -DATA 2,10,1,9,1,8,18,0,1,8,3,15,1,10,4,15,2,10,1,9,4,15 -DATA 1,8,19,0,1,8,1,15,1,10,8,15,4,10,2,9,1,10,1,8,52,0 -DATA 2,8,2,15,3,11,5,12,2,8,1,12,2,8,18,0,2,8,2,15,3,11 -DATA 5,12,2,8,1,12,2,8,21,0,2,8,1,15,2,12,1,0,5,8,21,0,1,8 -DATA 1,12,8,8,1,12,4,8,20,0,1,8,1,15,2,11,2,12,7,8,3,12 -DATA 1,8,37,0,8,3,1,2,9,3,3,2,3,3,2,2,3,1,3,2,6,3,7,1,1,2 -DATA 1,3,13,0,2,8,17,15,2,8,14,0,2,8,17,15,2,8,18,0,1,8 -DATA 1,15,1,10,3,15,1,9,1,8,3,10,1,9,1,8,17,0,1,8,1,10,3,15 -DATA 2,10,5,15,2,10,1,9,3,15,1,8,18,0,1,8,1,15,1,10,8,15 -DATA 4,10,2,9,1,10,1,8,51,0,19,8,16,0,19,8,20,0,2,8,2,12 -DATA 1,8,1,12,1,0,4,8,20,0,1,8,1,12,2,8,1,12,8,8,1,12,3,8 -DATA 19,0,1,8,1,15,2,11,2,12,7,8,3,12,1,8,37,0,8,3,1,2,16,3 -DATA 2,2,2,1,3,2,6,3,3,2,5,1,1,2,12,0,2,8,19,15,2,8,12,0 -DATA 2,8,19,15,2,8,18,0,1,8,4,15,1,10,1,9,2,10,1,9,1,8,18,0 -DATA 1,8,3,15,2,10,8,15,1,10,1,9,2,15,2,8,17,0,1,8,1,15 -DATA 1,10,8,15,4,10,2,9,1,10,1,8,24,0,3,8,23,0,2,8,3,15 -DATA 3,11,5,12,5,8,1,12,2,8,14,0,2,8,3,15,3,11,5,12,4,8 -DATA 1,12,3,8,19,0,6,8,1,12,4,8,20,0,3,8,2,12,12,8,19,0 -DATA 1,8,1,15,2,11,2,12,7,8,3,12,1,8,37,0,2,2,6,3,1,2,16,3 -DATA 3,2,3,1,1,2,8,3,1,2,6,1,13,0,2,8,17,15,2,8,14,0,2,8 -DATA 17,15,2,8,19,0,1,8,7,10,2,9,1,8,17,0,1,8,1,10,1,15 -DATA 2,8,1,10,10,15,2,10,2,15,2,8,16,0,1,8,1,15,1,10,8,15 -DATA 4,10,2,9,1,10,1,8,23,0,1,8,3,15,1,8,23,0,19,8,16,0 -DATA 19,8,21,0,9,8,20,0,2,8,1,11,2,12,11,8,1,12,2,8,18,0 -DATA 1,8,1,15,2,11,2,12,7,8,3,12,1,8,25,0,2,12,1,8,9,0,5,1 -DATA 1,2,20,3,3,2,2,1,1,2,9,3,3,1,2,2,1,1,14,0,6,8,7,9,6,8 -DATA 16,0,6,8,7,9,6,8,21,0,1,8,2,9,2,10,3,9,1,8,18,0,1,8 -DATA 3,15,1,8,1,10,11,15,1,10,1,9,2,15,1,8,16,0,2,8,15,9 -DATA 2,8,22,0,1,8,5,15,1,8,27,0,9,8,26,0,9,8,26,0,9,8,20,0 -DATA 2,8,2,11,16,8,17,0,1,8,1,15,2,11,2,12,7,8,3,12,1,8 -DATA 24,0,1,12,4,8,8,0,1,2,4,1,1,2,20,3,6,2,10,3,1,2,1,1 -DATA 1,2,2,1,18,0,2,8,7,9,2,8,24,0,2,8,7,9,2,8,26,0,1,8 -DATA 6,9,1,8,17,0,1,8,1,10,1,15,1,10,14,15,1,10,1,9,2,15 -DATA 2,8,17,0,2,8,11,9,2,8,23,0,1,8,6,15,1,10,1,8,26,0,9,8 -DATA 26,0,9,8,27,0,7,8,20,0,2,8,1,11,6,8,1,12,8,8,1,12,2,8 -DATA 18,0,15,8,24,0,1,12,2,15,1,11,3,8,7,0,1,2,3,1,2,2,19,3 -DATA 7,2,10,3,2,2,1,3,2,2,18,0,2,8,7,9,2,8,24,0,2,8,7,9 -DATA 2,8,27,0,1,8,4,9,1,8,18,0,1,8,1,15,1,10,8,15,2,10,5,15 -DATA 2,10,2,15,2,8,19,0,2,8,7,9,2,8,25,0,1,8,6,15,1,10,1,8 -DATA 26,0,9,8,26,0,9,8,28,0,5,8,21,0,1,8,1,11,7,8,1,12,8,8 -DATA 1,12,2,8,20,0,11,8,25,0,1,12,1,8,2,15,1,11,1,12,3,8 -DATA 6,0,2,2,2,1,1,2,20,3,7,2,14,3,1,2,18,0,2,8,5,10,2,9 -DATA 2,8,24,0,2,8,5,10,2,9,2,8,22,0,5,8,4,15,2,10,5,8,12,0 -DATA 1,8,2,10,8,15,3,10,5,15,2,10,1,9,2,15,1,8,20,0,1,8 -DATA 7,9,1,8,26,0,1,8,6,15,1,10,1,8,26,0,9,8,26,0,9,8,26,0 -DATA 9,8,18,0,1,8,1,11,8,8,1,12,12,8,20,0,9,8,26,0,1,12 -DATA 1,8,2,11,2,12,2,8,1,12,6,0,1,3,3,2,22,3,6,2,15,3,17,0 -DATA 2,8,2,15,5,10,2,9,2,8,22,0,2,8,2,15,5,10,2,9,2,8,20,0 -DATA 2,8,11,15,2,10,1,15,2,8,11,0,1,8,4,15,1,9,5,15,1,8 -DATA 1,9,1,10,5,15,2,10,1,9,2,15,1,8,17,0,3,8,10,15,2,8 -DATA 23,0,1,8,1,10,2,15,4,10,1,8,25,0,11,8,24,0,11,8,22,0 -DATA 3,8,2,15,2,11,3,12,5,8,15,0,4,8,1,12,15,8,1,12,2,8 -DATA 17,0,15,8,23,0,1,12,1,8,3,12,3,8,1,12,6,0,26,3,6,2 -DATA 15,3,17,0,2,8,3,15,4,10,2,9,2,8,22,0,2,8,3,15,4,10 -DATA 2,9,2,8,19,0,2,8,16,9,2,8,9,0,1,8,1,10,5,15,1,9,3,15 -DATA 1,8,2,9,6,15,1,10,2,9,2,15,1,8,16,0,1,8,15,10,1,8,23,0 -DATA 1,8,5,10,1,8,26,0,11,8,24,0,11,8,21,0,17,8,13,0,6,8 -DATA 1,12,4,8,1,12,9,8,1,12,2,8,16,0,17,8,23,0,1,12,5,8 -DATA 1,12,7,0,24,3,1,1,6,3,1,2,2,3,4,2,1,1,1,2,7,3,17,0 -DATA 2,8,4,15,3,10,2,9,2,8,22,0,2,8,4,15,3,10,2,9,2,8,19,0 -DATA 1,8,13,15,4,10,1,15,1,8,9,0,1,8,1,15,1,8,1,9,2,15,1,10 -DATA 1,15,1,9,2,8,2,9,1,10,6,15,1,10,2,9,2,15,1,8,15,0,1,8 -DATA 17,15,1,8,23,0,1,8,3,10,1,8,27,0,11,8,24,0,11,8,20,0 -DATA 3,8,2,15,2,11,3,12,6,8,3,12,12,0,1,8,1,11,1,12,2,8 -DATA 1,12,1,8,2,12,1,8,1,12,10,8,1,12,2,8,15,0,1,8,2,15 -DATA 3,11,4,12,6,8,2,12,1,8,22,0,1,12,4,8,2,12,7,0,31,3 -DATA 1,2,2,3,4,2,1,1,2,2,6,3,17,0,2,8,4,15,4,10,1,9,2,8 -DATA 22,0,2,8,4,15,4,10,1,9,2,8,19,0,2,8,8,15,8,10,2,8,9,0 -DATA 1,8,1,15,2,9,2,8,2,10,2,8,2,9,1,10,6,15,1,10,3,9,2,15 -DATA 1,8,16,0,6,8,5,9,6,8,24,0,1,8,3,9,1,8,27,0,11,8,24,0 -DATA 11,8,21,0,17,8,13,0,1,8,2,12,2,8,2,12,1,0,1,8,1,12 -DATA 14,8,16,0,17,8,25,0,1,12,2,8,9,0,34,3,7,2,6,3,16,0 -DATA 2,8,5,15,4,10,2,9,2,8,20,0,2,8,5,15,4,10,2,9,2,8,19,0 -DATA 6,8,6,9,6,8,11,0,1,8,1,9,1,15,1,8,1,15,1,10,2,8,1,9 -DATA 2,10,6,15,2,10,2,9,2,15,2,8,21,0,1,8,5,9,1,8,26,0,1,8 -DATA 9,9,1,8,23,0,13,8,22,0,13,8,25,0,7,8,18,0,1,8,1,12 -DATA 3,8,1,12,1,0,1,8,1,12,14,8,22,0,7,8,26,0,11,8,5,0,31,3 -DATA 1,2,3,3,7,2,5,3,16,0,2,8,5,15,4,10,2,9,2,8,20,0,2,8 -DATA 5,15,4,10,2,9,2,8,23,0,2,8,6,9,2,8,16,0,2,8,1,15,1,10 -DATA 2,8,1,9,2,10,6,15,5,10,2,15,1,8,22,0,1,8,5,9,1,8,25,0 -DATA 1,8,11,15,1,8,22,0,13,8,22,0,13,8,25,0,7,8,20,0,2,8 -DATA 1,12,1,0,1,8,1,12,12,8,1,12,2,8,22,0,7,8,25,0,1,8,2,15 -DATA 3,11,4,12,3,8,4,0,25,3,6,2,8,3,3,2,5,3,16,0,2,8,6,15 -DATA 3,10,2,9,2,8,20,0,2,8,6,15,3,10,2,9,2,8,23,0,2,8,6,9 -DATA 2,8,18,0,4,8,1,10,6,15,7,10,1,15,2,8,22,0,1,8,2,15 -DATA 3,10,1,8,26,0,4,8,3,9,4,8,23,0,13,8,22,0,13,8,25,0 -DATA 7,8,23,0,1,8,1,11,12,8,1,12,2,8,23,0,7,8,26,0,11,8 -DATA 5,0,2,3,1,2,23,3,2,2,2,3,2,2,15,3,16,0,2,8,11,9,2,8 -DATA 20,0,2,8,11,9,2,8,23,0,1,8,2,15,4,10,2,9,1,8,19,0,2,8 -DATA 17,15,1,8,22,0,1,8,4,15,1,10,1,8,29,0,1,8,3,9,1,8,26,0 -DATA 13,8,22,0,13,8,24,0,9,8,21,0,1,8,1,11,1,12,16,8,21,0 -DATA 9,8,29,0,3,8,9,0,26,3,1,2,5,3,1,2,14,3,15,0,2,8,6,15 -DATA 6,10,1,9,2,8,18,0,2,8,6,15,6,10,1,9,2,8,22,0,1,8,3,15 -DATA 4,10,1,9,1,8,18,0,1,8,20,15,1,8,20,0,1,8,1,9,4,15,2,10 -DATA 1,8,28,0,1,8,3,15,1,8,25,0,2,8,1,15,3,11,3,12,6,8,20,0 -DATA 2,8,1,15,3,11,3,12,6,8,23,0,9,8,21,0,1,8,1,12,1,11 -DATA 4,12,11,8,1,12,1,8,20,0,9,8,28,0,5,8,8,0,6,3,3,2,23,3 -DATA 1,2,14,3,14,0,2,8,9,15,4,10,1,9,1,10,2,8,16,0,2,8,9,15 -DATA 4,10,1,9,1,10,2,8,20,0,1,8,5,15,3,10,2,9,1,8,18,0,2,8 -DATA 16,9,2,8,20,0,1,8,2,9,5,15,1,10,1,9,1,8,26,0,1,8,3,15 -DATA 2,10,1,8,23,0,2,8,3,15,1,11,1,12,8,8,1,12,1,8,18,0 -DATA 2,8,3,15,1,11,1,12,9,8,1,12,21,0,11,8,21,0,15,8,2,12 -DATA 1,8,20,0,11,8,27,0,5,8,8,0,2,2,1,3,3,2,3,1,2,2,10,3 -DATA 4,2,7,3,1,2,12,3,2,2,13,0,2,8,10,15,4,10,2,9,1,10,2,8 -DATA 14,0,2,8,10,15,4,10,2,9,1,10,2,8,18,0,2,8,6,15,2,10 -DATA 2,9,2,8,16,0,2,8,18,15,2,8,19,0,1,8,1,9,6,15,1,10,1,9 -DATA 1,8,25,0,1,8,5,15,2,10,1,8,21,0,2,8,3,15,2,11,1,12 -DATA 9,8,1,12,1,8,16,0,2,8,3,15,2,11,1,12,9,8,1,12,1,8,20,0 -DATA 11,8,20,0,2,8,2,15,4,11,5,12,6,8,20,0,11,8,26,0,7,8 -DATA 7,0,3,2,1,3,2,2,3,1,2,2,13,3,1,2,2,1,1,2,4,3,2,2,13,3 -DATA 13,0,2,8,9,15,5,10,3,9,2,8,14,0,2,8,9,15,5,10,3,9,2,8 -DATA 18,0,2,8,10,9,2,8,17,0,2,8,16,9,2,8,20,0,1,8,9,9,1,8 -DATA 24,0,2,8,7,9,2,8,20,0,1,8,1,12,1,11,1,15,2,11,1,12 -DATA 11,8,1,12,16,0,1,8,1,12,1,11,1,15,2,11,1,12,11,8,1,12 -DATA 20,0,11,8,21,0,17,8,21,0,11,8,25,0,9,8,6,0,2,2,3,3 -DATA 2,2,3,1,1,2,14,3,3,2,2,3,1,2,1,3,1,2,14,3,12,0,2,8 -DATA 9,15,6,10,3,9,1,10,2,8,12,0,2,8,9,15,6,10,3,9,1,10 -DATA 2,8,16,0,2,8,6,15,3,10,3,9,2,8,18,0,2,8,9,10,3,9,2,8 -DATA 21,0,1,8,6,15,3,10,2,9,1,8,22,0,1,8,6,15,3,10,2,9,1,8 -DATA 19,0,1,8,2,12,2,11,1,12,12,8,1,12,16,0,1,8,2,12,2,11 -DATA 1,12,12,8,1,12,19,0,2,8,1,15,2,11,3,12,5,8,22,0,2,8 -DATA 1,15,2,11,3,12,5,8,22,0,2,8,1,15,3,11,3,12,4,8,23,0 -DATA 2,8,1,15,2,11,3,12,3,8,5,0,6,3,3,2,14,3,5,2,3,3,1,2 -DATA 15,3,12,0,2,8,8,15,6,10,4,9,1,10,2,8,12,0,2,8,8,15 -DATA 6,10,4,9,1,10,2,8,15,0,2,8,8,15,3,10,3,9,2,8,17,0,1,8 -DATA 6,15,5,10,3,9,1,8,20,0,1,8,8,15,3,10,2,9,1,8,20,0,1,8 -DATA 8,15,3,10,2,9,1,8,18,0,18,8,1,12,16,0,18,8,1,12,18,0 -DATA 2,8,1,15,1,11,1,12,8,8,1,12,1,8,20,0,2,8,2,15,1,11 -DATA 1,12,7,8,1,12,1,8,20,0,2,8,1,15,2,11,1,12,7,8,1,12 -DATA 1,8,21,0,2,8,1,15,1,11,1,12,6,8,1,12,1,8,4,0,7,3,1,2 -DATA 14,3,1,2,2,1,2,2,19,3,1,2,12,0,2,8,6,15,7,10,5,9,1,10 -DATA 2,8,12,0,2,8,6,15,7,10,5,9,1,10,2,8,14,0,2,8,9,15,3,10 -DATA 4,9,2,8,15,0,1,8,9,15,3,10,4,9,1,8,18,0,1,8,9,15,3,10 -DATA 3,9,1,8,18,0,1,8,9,15,3,10,3,9,1,8,16,0,20,8,1,12,14,0 -DATA 20,8,1,12,17,0,1,8,3,15,2,12,8,8,1,12,1,8,18,0,2,8 -DATA 2,15,2,11,1,12,8,8,1,12,1,8,18,0,2,8,3,15,1,11,2,12 -DATA 7,8,1,12,1,8,19,0,2,8,3,15,2,12,6,8,1,12,1,8,3,0,6,3 -DATA 1,2,1,1,5,2,9,3,1,2,2,1,1,2,10,3,3,2,1,3,7,2,12,0,2,8 -DATA 4,15,8,10,6,9,1,10,2,8,12,0,2,8,4,15,8,10,6,9,1,10 -DATA 2,8,14,0,2,8,8,15,4,10,4,9,2,8,15,0,1,8,8,15,4,10,4,9 -DATA 1,8,18,0,1,8,8,15,4,10,3,9,1,8,18,0,1,8,8,15,4,10,3,9 -DATA 1,8,16,0,20,8,1,12,14,0,21,8,16,0,2,8,1,11,1,15,2,11 -DATA 1,12,9,8,1,12,18,0,2,8,3,11,2,12,9,8,1,12,18,0,2,8 -DATA 1,11,1,15,2,11,2,12,8,8,1,12,19,0,2,8,1,11,1,15,1,11 -DATA 2,12,7,8,1,12,3,0,2,3,2,2,8,1,4,2,5,3,1,2,4,1,1,2,9,3 -DATA 2,2,6,3,3,2,11,0,2,8,2,15,10,10,8,9,1,10,2,8,10,0,2,8 -DATA 2,15,10,10,8,9,1,10,2,8,13,0,2,8,6,15,4,10,6,9,2,8 -DATA 14,0,1,8,7,15,4,10,7,9,1,8,17,0,1,8,6,15,4,10,5,9,1,8 -DATA 17,0,1,8,7,15,4,10,6,9,1,8,14,0,22,8,1,12,12,0,22,8 -DATA 1,12,15,0,2,8,4,12,10,8,1,12,18,0,2,8,4,12,10,8,1,12 -DATA 18,0,2,8,4,12,10,8,1,12,19,0,2,8,4,12,8,8,1,12,3,0 -DATA 1,2,14,1,5,2,5,1,1,2,5,3,1,2,13,3,2,2,10,0,2,8,22,9 -DATA 1,10,2,8,8,0,2,8,22,9,1,10,2,8,11,0,2,8,3,15,5,10,10,9 -DATA 2,8,12,0,2,8,3,15,5,10,10,9,2,8,15,0,1,8,3,15,5,10 -DATA 9,9,1,8,16,0,1,8,3,15,5,10,9,9,1,8,13,0,1,8,4,15,4,11 -DATA 8,12,7,8,1,12,10,0,1,8,4,15,4,11,8,12,5,8,3,12,13,0 -DATA 18,8,1,12,16,0,18,8,1,12,16,0,18,8,1,12,17,0,16,8,1,12 -DATA 2,0,17,1,2,2,6,1,1,2,4,3,2,2,15,3,10,0,1,8,25,15,1,8 -DATA 8,0,1,8,25,15,1,8,10,0,3,8,18,9,3,8,10,0,2,8,20,9,1,8 -DATA 13,0,3,8,17,9,3,8,13,0,2,8,17,9,1,8,13,0,24,8,1,12 -DATA 10,0,24,8,1,12,13,0,18,8,1,12,16,0,18,8,1,12,16,0,18,8 -DATA 1,12,17,0,16,8,1,12,2,0,1,1,1,2,23,1,1,2,21,3,10,0 -DATA 1,8,7,15,1,10,1,15,5,10,9,9,2,10,1,8,8,0,1,8,7,15,1,10 -DATA 1,15,5,10,9,9,2,10,1,8,10,0,1,8,22,15,1,8,10,0,1,8 -DATA 22,15,1,8,12,0,1,8,21,15,1,8,13,0,1,8,19,15,1,8,12,0 -DATA 24,8,1,12,10,0,24,8,1,12,11,0,1,8,3,15,3,11,5,12,10,8 -DATA 1,12,12,0,1,8,3,15,3,11,5,12,10,8,1,12,12,0,2,8,3,15 -DATA 3,11,5,12,9,8,1,12,13,0,1,8,3,15,3,11,5,12,8,8,1,12 -DATA 1,2,1,3,1,2,22,1,1,2,21,3,10,0,1,8,7,15,1,10,1,15,5,10 -DATA 9,9,2,10,1,8,8,0,1,8,7,15,1,10,1,15,5,10,9,9,2,10,1,8 -DATA 10,0,1,8,8,15,6,10,7,9,1,10,1,8,10,0,1,8,8,15,6,10 -DATA 7,9,1,10,1,8,12,0,1,8,8,15,6,10,7,9,1,8,13,0,1,8,7,15 -DATA 6,10,6,9,1,8,12,0,24,8,1,12,10,0,24,8,1,12,11,0,22,8 -DATA 1,12,12,0,22,8,1,12,12,0,22,8,1,12,13,0,20,8,1,12,1,1 -DATA 2,2,1,1,2,2,19,1,1,2,2,3,1,2,1,3,2,2,15,3,10,0,1,8 -DATA 7,15,1,10,1,15,5,10,9,9,2,10,1,8,8,0,1,8,7,15,1,10 -DATA 1,15,5,10,9,9,2,10,1,8,10,0,1,8,8,15,6,10,7,9,1,10 -DATA 1,8,10,0,1,8,8,15,6,10,7,9,1,10,1,8,12,0,1,8,8,15,6,10 -DATA 7,9,1,8,13,0,1,8,7,15,6,10,6,9,1,8,12,0,24,8,1,12,10,0 -DATA 24,8,1,12,11,0,22,8,1,12,12,0,22,8,1,12,12,0,22,8,1,12 -DATA 13,0,20,8,1,12 diff --git a/programs/samples/thebob/chess/chesssubs.bas b/programs/samples/thebob/chess/chesssubs.bas deleted file mode 100644 index 0e677e924..000000000 --- a/programs/samples/thebob/chess/chesssubs.bas +++ /dev/null @@ -1,301 +0,0 @@ -CHDIR ".\programs\samples\thebob\chess" - -'CHESSUBS.BAS -DEFINT A-Z -DECLARE FUNCTION InitMOUSE () -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB FieldMOUSE (x1, y1, x2, y2) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () -DECLARE SUB MouseDRIVER (LB, RB, MX, MY) -DECLARE SUB LoadSCREEN () -DECLARE SUB SetPALETTE () -DECLARE SUB PutPIECE (OldROW, OldCOL, NewROW, NewCOL) -DECLARE SUB ClearSQUARE (Row, Col) -DECLARE SUB HighLIGHT (Row, Col, OnOFF) - -DIM SHARED MouseDATA$ -DIM SHARED LB, RB - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 -READ h$ -Hexxer$ = CHR$(VAL("&H" + h$)) -MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN -PRINT "Sorry, cat must have got the mouse." -SLEEP 2 -SYSTEM -END IF - -BoardDATA: -DATA 2, 3, 4, 5, 6, 4, 3, 2 -DATA 1, 1, 1, 1, 1, 1, 1, 1 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 0, 0, 0, 0, 0, 0, 0, 0 -DATA 11, 11, 11, 11, 11, 11, 11, 11 -DATA 12, 13, 14, 15, 16, 14, 13, 12 - -DIM SHARED Box(1 TO 26000) -DIM SHARED LilBOX(1 TO 800) -DIM SHARED Board(1 TO 8, 1 TO 8) - -CONST King = 1 -CONST Queen = 751 -CONST Bishop = 1501 -CONST Knight = 2251 -CONST Rook = 3001 -CONST Pawn = 3751 -CONST White = 0 'piece color -CONST Black = 4500 'piece color -CONST Light = 0 'square color -CONST Dark = 9000 'square color -CONST ELight = 18751 'erase light square -CONST EDark = 18001 'erase dark square - -SCREEN 12 - -SetPALETTE -LoadSCREEN -COLOR 7: LOCATE 29, 22: PRINT "PRESS ESC TO QUIT"; -LocateMOUSE 254, 194 -ShowMOUSE -DO -k$ = INKEY$ -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseX -CASE 31 TO 80: Col = 1 -CASE 81 TO 130: Col = 2 -CASE 131 TO 180: Col = 3 -CASE 181 TO 230: Col = 4 -CASE 231 TO 280: Col = 5 -CASE 281 TO 330: Col = 6 -CASE 331 TO 380: Col = 7 -CASE 381 TO 430: Col = 8 -END SELECT -SELECT CASE MouseY -CASE 31 TO 80: Row = 1 -CASE 81 TO 130: Row = 2 -CASE 131 TO 180: Row = 3 -CASE 181 TO 230: Row = 4 -CASE 231 TO 280: Row = 5 -CASE 281 TO 330: Row = 6 -CASE 331 TO 380: Row = 7 -CASE 381 TO 430: Row = 8 -END SELECT - -IF LB = -1 THEN -SELECT CASE Clicked -CASE 0 -ExROW = Row: ExCOL = Col -HighLIGHT Row, Col, 1 -Clicked = 1 -CASE 1 -IF ExROW = Row AND ExCOL = Col THEN -HighLIGHT Row, Col, 0 -ELSE -PutPIECE ExROW, ExCOL, Row, Col -END IF -Clicked = 0 -END SELECT -END IF - -ClearMOUSE -LOOP UNTIL k$ = CHR$(27) - -SYSTEM - -PaletteDATA: -DATA 12,0,10, 17,19,17, 20,22,20, 23,25,23 -DATA 63,0,0, 63,60,50, 58,55,45, 53,50,40 -DATA 0,0,0, 42,42,48, 50,50,55, 40,40,63 -DATA 15,15,34, 58,37,15, 60,52,37, 63,63,63 - -SUB ClearMOUSE - -WHILE LB OR RB -MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB ClearSQUARE (Row, Col) - -IF (Col + Row MOD 2) MOD 2 THEN Square = EDark ELSE Square = ELight -x = Col * 50 - 19 -y = Row * 50 - 19 -PUT (x, y), Box(Square), PSET - -END SUB - -SUB FieldMOUSE (x1, y1, x2, y2) - -MouseDRIVER 7, 0, x1, x2 -MouseDRIVER 8, 0, y1, y2 - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -SUB HighLIGHT (Row, Col, OnOFF) -STATIC SquareON, Oldx, Oldy - -IF SquareON AND OnOFF = 0 THEN -HideMOUSE -PUT (Oldx, Oldy), LilBOX, PSET -ShowMOUSE -SquareON = 0 -EXIT SUB -END IF - -x = Col * 50 - 19 -y = Row * 50 - 19 -HideMOUSE -GET (x, y)-(x + 46, y + 46), LilBOX -LINE (x, y)-(x + 46, y + 46), 4, B -LINE (x + 1, y + 1)-(x + 45, y + 45), 4, B -ShowMOUSE -SquareON = 1: Oldx = x: Oldy = y - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -SUB LoadSCREEN - -'Loads screen and then loads chess pieces into Box array -FileNUM = 0 -DEF SEG = VARSEG(Box(1)) -FOR y = 0 TO 320 STEP 160 -FileNUM = FileNUM + 1 -FileNAME$ = "ChessBD" + LTRIM$(STR$(FileNUM)) + ".BSV" -BLOAD FileNAME$, VARPTR(Box(1)) -PUT (0, y), Box, PSET -NEXT y -BLOAD "chesspcs.bsv", VARPTR(Box(1)) -DEF SEG - -'read starting values into map array -RESTORE BoardDATA -FOR Col = 1 TO 8 -FOR Row = 1 TO 8 -READ Board(Col, Row) -NEXT Row -NEXT Col - -END SUB - -SUB LocateMOUSE (x, y) - -LB = 4 -MX = x -MY = y -MouseDRIVER LB, 0, MX, MY - -END SUB - -SUB MouseDRIVER (LB, RB, MX, MY) - -DEF SEG = VARSEG(MouseDATA$) -mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, MX, MY, mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, MX, MY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = MX -MouseY = MY - -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) - - -SHARED Key$ - -DO -Key$ = UCASE$(INKEY$) -MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PutPIECE (Row1, Col1, Row2, Col2) - -IF Board(Row1, Col1) <> 0 THEN -SELECT CASE Board(Row1, Col1) MOD 10 -CASE 1: Piece = Pawn -CASE 2: Piece = Rook -CASE 3: Piece = Knight -CASE 4: Piece = Bishop -CASE 5: Piece = Queen -CASE 6: Piece = King -END SELECT - -IF (Col1 + Row1 MOD 2) MOD 2 THEN Cancel = EDark ELSE Cancel = ELight -IF (Col2 + Row2 MOD 2) MOD 2 THEN Square = Dark ELSE Square = Light -IF Board(Row1, Col1) \ 10 = 0 THEN Colr = Black ELSE Colr = White - -x = Col1 * 50 - 19 -y = Row1 * 50 - 19 -HideMOUSE -PUT (x, y), Box(Cancel), PSET -ShowMOUSE - -Board(Row2, Col2) = Board(Row1, Col1) -Board(Row1, Col1) = 0 - -x = Col2 * 50 - 19 -y = Row2 * 50 - 19 -HideMOUSE -PUT (x, y), Box(Colr + Piece + Square), PSET -ShowMOUSE -ELSE -HighLIGHT Row1, Col1, 0 -END IF - -END SUB - -SUB SetPALETTE - -RESTORE PaletteDATA -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Intensity -OUT &H3C9, Intensity -NEXT n - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB diff --git a/programs/samples/thebob/chess/readme.txt b/programs/samples/thebob/chess/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/chess/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/chopper/chabout.bsv b/programs/samples/thebob/chopper/chabout.bsv deleted file mode 100644 index c44e881ad..000000000 Binary files a/programs/samples/thebob/chopper/chabout.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar1.bsi b/programs/samples/thebob/chopper/chbar1.bsi deleted file mode 100644 index c9f230d0b..000000000 Binary files a/programs/samples/thebob/chopper/chbar1.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar2.bsi b/programs/samples/thebob/chopper/chbar2.bsi deleted file mode 100644 index 0a0ea8515..000000000 Binary files a/programs/samples/thebob/chopper/chbar2.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar3.bsi b/programs/samples/thebob/chopper/chbar3.bsi deleted file mode 100644 index 9f83ec7f4..000000000 Binary files a/programs/samples/thebob/chopper/chbar3.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar4.bsi b/programs/samples/thebob/chopper/chbar4.bsi deleted file mode 100644 index 3ca4171bd..000000000 Binary files a/programs/samples/thebob/chopper/chbar4.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar5.bsi b/programs/samples/thebob/chopper/chbar5.bsi deleted file mode 100644 index c91dc6102..000000000 Binary files a/programs/samples/thebob/chopper/chbar5.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar6.bsi b/programs/samples/thebob/chopper/chbar6.bsi deleted file mode 100644 index ff9c3f641..000000000 Binary files a/programs/samples/thebob/chopper/chbar6.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar7.bsi b/programs/samples/thebob/chopper/chbar7.bsi deleted file mode 100644 index 90a2cfe14..000000000 Binary files a/programs/samples/thebob/chopper/chbar7.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar8.bsi b/programs/samples/thebob/chopper/chbar8.bsi deleted file mode 100644 index 488f93cdf..000000000 Binary files a/programs/samples/thebob/chopper/chbar8.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbar9.bsi b/programs/samples/thebob/chopper/chbar9.bsi deleted file mode 100644 index 6a4f636df..000000000 Binary files a/programs/samples/thebob/chopper/chbar9.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbdcvrs.bsv b/programs/samples/thebob/chopper/chbdcvrs.bsv deleted file mode 100644 index 92db8ce56..000000000 Binary files a/programs/samples/thebob/chopper/chbdcvrs.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbelt.dat b/programs/samples/thebob/chopper/chbelt.dat deleted file mode 100644 index 8c25778bf..000000000 --- a/programs/samples/thebob/chopper/chbelt.dat +++ /dev/null @@ -1,2558 +0,0 @@ -70 -35 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -2 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -2 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -2 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -2 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -2 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -2 -5 -5 -5 -5 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/chbrthr1.bsi b/programs/samples/thebob/chopper/chbrthr1.bsi deleted file mode 100644 index 8e37448a8..000000000 Binary files a/programs/samples/thebob/chopper/chbrthr1.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbrthr2.bsi b/programs/samples/thebob/chopper/chbrthr2.bsi deleted file mode 100644 index abd010f56..000000000 Binary files a/programs/samples/thebob/chopper/chbrthr2.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbrthr3.bsi b/programs/samples/thebob/chopper/chbrthr3.bsi deleted file mode 100644 index f69aca280..000000000 Binary files a/programs/samples/thebob/chopper/chbrthr3.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chbrthr4.bsi b/programs/samples/thebob/chopper/chbrthr4.bsi deleted file mode 100644 index c912bf494..000000000 Binary files a/programs/samples/thebob/chopper/chbrthr4.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chcable.dat b/programs/samples/thebob/chopper/chcable.dat deleted file mode 100644 index 972643f0a..000000000 --- a/programs/samples/thebob/chopper/chcable.dat +++ /dev/null @@ -1,5851 +0,0 @@ -74,77 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -2 -2 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -2 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 diff --git a/programs/samples/thebob/chopper/chchnr7.dat b/programs/samples/thebob/chopper/chchnr7.dat deleted file mode 100644 index 560db2e0d..000000000 --- a/programs/samples/thebob/chopper/chchnr7.dat +++ /dev/null @@ -1,3331 +0,0 @@ -89,36 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -5 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -2 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -0 -2 -3 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -5 -2 -0 -0 -0 -0 -2 -4 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -2 -15 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -5 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -5 -4 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -4 -3 -3 -2 -2 -2 -2 -2 -2 -2 -3 -3 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -4 -3 -15 -3 -15 -3 -3 -15 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -4 -3 -4 -3 -2 -3 -4 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/chchnrv.dat b/programs/samples/thebob/chopper/chchnrv.dat deleted file mode 100644 index 08c9fdcb3..000000000 --- a/programs/samples/thebob/chopper/chchnrv.dat +++ /dev/null @@ -1,2961 +0,0 @@ -79,36 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -5 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -2 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -0 -2 -3 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -5 -2 -0 -0 -0 -0 -2 -4 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -2 -15 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -5 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -5 -4 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -4 -3 -3 -2 -2 -2 -2 -2 -2 -2 -3 -3 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -4 -3 -15 -3 -15 -3 -3 -15 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -4 -3 -4 -3 -2 -3 -4 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/chchnx7.dat b/programs/samples/thebob/chopper/chchnx7.dat deleted file mode 100644 index 5ebfa36d7..000000000 --- a/programs/samples/thebob/chopper/chchnx7.dat +++ /dev/null @@ -1,3331 +0,0 @@ -89,36 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -3 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -2 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -0 -2 -3 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -5 -2 -0 -0 -0 -0 -2 -4 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -2 -15 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -5 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -5 -4 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -4 -3 -3 -2 -2 -2 -2 -2 -2 -2 -3 -3 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -4 -3 -15 -3 -15 -3 -3 -15 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -4 -3 -4 -3 -2 -3 -4 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/chchnxv.dat b/programs/samples/thebob/chopper/chchnxv.dat deleted file mode 100644 index b5b7a993f..000000000 --- a/programs/samples/thebob/chopper/chchnxv.dat +++ /dev/null @@ -1,2628 +0,0 @@ -70,36 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -3 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -2 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -4 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -5 -5 -5 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -4 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -2 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -0 -0 -0 -2 -3 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -5 -2 -0 -0 -0 -0 -2 -4 -15 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -2 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -2 -15 -5 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -4 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -5 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -15 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -5 -4 -3 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -3 -3 -4 -3 -3 -2 -2 -2 -2 -2 -2 -2 -3 -3 -3 -3 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -4 -3 -4 -3 -15 -3 -15 -3 -3 -15 -3 -2 -15 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -2 -2 -4 -3 -4 -3 -2 -3 -4 -2 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/chcolors.bsv b/programs/samples/thebob/chopper/chcolors.bsv deleted file mode 100644 index 0a6f8a4f7..000000000 Binary files a/programs/samples/thebob/chopper/chcolors.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrives.bsv b/programs/samples/thebob/chopper/chdrives.bsv deleted file mode 100644 index a1b26206f..000000000 Binary files a/programs/samples/thebob/chopper/chdrives.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvbb.bsi b/programs/samples/thebob/chopper/chdrvbb.bsi deleted file mode 100644 index 10480b23b..000000000 Binary files a/programs/samples/thebob/chopper/chdrvbb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvbc.bsi b/programs/samples/thebob/chopper/chdrvbc.bsi deleted file mode 100644 index fd6386ccf..000000000 Binary files a/programs/samples/thebob/chopper/chdrvbc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvbp.bsi b/programs/samples/thebob/chopper/chdrvbp.bsi deleted file mode 100644 index 8cc6f5576..000000000 Binary files a/programs/samples/thebob/chopper/chdrvbp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvcb.bsi b/programs/samples/thebob/chopper/chdrvcb.bsi deleted file mode 100644 index 11781d784..000000000 Binary files a/programs/samples/thebob/chopper/chdrvcb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvcbs.bsv b/programs/samples/thebob/chopper/chdrvcbs.bsv deleted file mode 100644 index 9037b5c90..000000000 Binary files a/programs/samples/thebob/chopper/chdrvcbs.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvcc.bsi b/programs/samples/thebob/chopper/chdrvcc.bsi deleted file mode 100644 index 002a74094..000000000 Binary files a/programs/samples/thebob/chopper/chdrvcc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvch.bsi b/programs/samples/thebob/chopper/chdrvch.bsi deleted file mode 100644 index 96f0870b3..000000000 Binary files a/programs/samples/thebob/chopper/chdrvch.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvcp.bsi b/programs/samples/thebob/chopper/chdrvcp.bsi deleted file mode 100644 index 966b143af..000000000 Binary files a/programs/samples/thebob/chopper/chdrvcp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chdrvcps.bsv b/programs/samples/thebob/chopper/chdrvcps.bsv deleted file mode 100644 index 71272eaed..000000000 Binary files a/programs/samples/thebob/chopper/chdrvcps.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexbhmg.bsi b/programs/samples/thebob/chopper/chexbhmg.bsi deleted file mode 100644 index d07815bcc..000000000 Binary files a/programs/samples/thebob/chopper/chexbhmg.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexblmg.bsi b/programs/samples/thebob/chopper/chexblmg.bsi deleted file mode 100644 index 32613a89f..000000000 Binary files a/programs/samples/thebob/chopper/chexblmg.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexblst.bsi b/programs/samples/thebob/chopper/chexblst.bsi deleted file mode 100644 index 3f0f9f816..000000000 Binary files a/programs/samples/thebob/chopper/chexblst.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexbr.bsv b/programs/samples/thebob/chopper/chexbr.bsv deleted file mode 100644 index ef7b982ad..000000000 Binary files a/programs/samples/thebob/chopper/chexbr.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chextrb.bsv b/programs/samples/thebob/chopper/chextrb.bsv deleted file mode 100644 index b7884dff1..000000000 Binary files a/programs/samples/thebob/chopper/chextrb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chextrc.bsv b/programs/samples/thebob/chopper/chextrc.bsv deleted file mode 100644 index b1ad4427f..000000000 Binary files a/programs/samples/thebob/chopper/chextrc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chextrp.bsv b/programs/samples/thebob/chopper/chextrp.bsv deleted file mode 100644 index 8a0d5a235..000000000 Binary files a/programs/samples/thebob/chopper/chextrp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chextxb.bsv b/programs/samples/thebob/chopper/chextxb.bsv deleted file mode 100644 index f6e770aa3..000000000 Binary files a/programs/samples/thebob/chopper/chextxb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chextxc.bsv b/programs/samples/thebob/chopper/chextxc.bsv deleted file mode 100644 index 3fa31ce54..000000000 Binary files a/programs/samples/thebob/chopper/chextxc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chextxp.bsv b/programs/samples/thebob/chopper/chextxp.bsv deleted file mode 100644 index 1c01e5410..000000000 Binary files a/programs/samples/thebob/chopper/chextxp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexvhos.bsi b/programs/samples/thebob/chopper/chexvhos.bsi deleted file mode 100644 index 59c212cd7..000000000 Binary files a/programs/samples/thebob/chopper/chexvhos.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexvlmg.bsi b/programs/samples/thebob/chopper/chexvlmg.bsi deleted file mode 100644 index 8e0e50a5d..000000000 Binary files a/programs/samples/thebob/chopper/chexvlmg.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexvlsg.bsi b/programs/samples/thebob/chopper/chexvlsg.bsi deleted file mode 100644 index 917e71986..000000000 Binary files a/programs/samples/thebob/chopper/chexvlsg.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexvlsh.bsi b/programs/samples/thebob/chopper/chexvlsh.bsi deleted file mode 100644 index 581847b90..000000000 Binary files a/programs/samples/thebob/chopper/chexvlsh.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chexvs.bsv b/programs/samples/thebob/chopper/chexvs.bsv deleted file mode 100644 index ed8e45951..000000000 Binary files a/programs/samples/thebob/chopper/chexvs.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrfc.bsv b/programs/samples/thebob/chopper/chfndrfc.bsv deleted file mode 100644 index 80a31875b..000000000 Binary files a/programs/samples/thebob/chopper/chfndrfc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrff.bsv b/programs/samples/thebob/chopper/chfndrff.bsv deleted file mode 100644 index 7703aec56..000000000 Binary files a/programs/samples/thebob/chopper/chfndrff.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrfs.bsv b/programs/samples/thebob/chopper/chfndrfs.bsv deleted file mode 100644 index e73e41402..000000000 Binary files a/programs/samples/thebob/chopper/chfndrfs.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrrc.bsv b/programs/samples/thebob/chopper/chfndrrc.bsv deleted file mode 100644 index edd0e44b5..000000000 Binary files a/programs/samples/thebob/chopper/chfndrrc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrrf.bsv b/programs/samples/thebob/chopper/chfndrrf.bsv deleted file mode 100644 index fcf16f6d5..000000000 Binary files a/programs/samples/thebob/chopper/chfndrrf.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrrs.bsv b/programs/samples/thebob/chopper/chfndrrs.bsv deleted file mode 100644 index fcdb5f1f9..000000000 Binary files a/programs/samples/thebob/chopper/chfndrrs.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfndrs.bsv b/programs/samples/thebob/chopper/chfndrs.bsv deleted file mode 100644 index 666c97f5f..000000000 Binary files a/programs/samples/thebob/chopper/chfndrs.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chframes.bsv b/programs/samples/thebob/chopper/chframes.bsv deleted file mode 100644 index ff85c6227..000000000 Binary files a/programs/samples/thebob/chopper/chframes.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkgrc.bsi b/programs/samples/thebob/chopper/chfrkgrc.bsi deleted file mode 100644 index bbcaf6fb1..000000000 Binary files a/programs/samples/thebob/chopper/chfrkgrc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkgrp.bsi b/programs/samples/thebob/chopper/chfrkgrp.bsi deleted file mode 100644 index 06c562741..000000000 Binary files a/programs/samples/thebob/chopper/chfrkgrp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkgxc.bsi b/programs/samples/thebob/chopper/chfrkgxc.bsi deleted file mode 100644 index 102c8727b..000000000 Binary files a/programs/samples/thebob/chopper/chfrkgxc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkgxp.bsi b/programs/samples/thebob/chopper/chfrkgxp.bsi deleted file mode 100644 index e55a8944f..000000000 Binary files a/programs/samples/thebob/chopper/chfrkgxp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrksr.bsv b/programs/samples/thebob/chopper/chfrksr.bsv deleted file mode 100644 index 985acdac3..000000000 Binary files a/programs/samples/thebob/chopper/chfrksr.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrksx.bsv b/programs/samples/thebob/chopper/chfrksx.bsv deleted file mode 100644 index 66658ae74..000000000 Binary files a/programs/samples/thebob/chopper/chfrksx.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrksxx.bsv b/programs/samples/thebob/chopper/chfrksxx.bsv deleted file mode 100644 index 3a7184a18..000000000 Binary files a/programs/samples/thebob/chopper/chfrksxx.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkxxc.bsi b/programs/samples/thebob/chopper/chfrkxxc.bsi deleted file mode 100644 index b86e667c0..000000000 Binary files a/programs/samples/thebob/chopper/chfrkxxc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkxxm.bsi b/programs/samples/thebob/chopper/chfrkxxm.bsi deleted file mode 100644 index 8a6bcddbf..000000000 Binary files a/programs/samples/thebob/chopper/chfrkxxm.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrkxxp.bsi b/programs/samples/thebob/chopper/chfrkxxp.bsi deleted file mode 100644 index 2a7d71ff6..000000000 Binary files a/programs/samples/thebob/chopper/chfrkxxp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmclr.bsv b/programs/samples/thebob/chopper/chfrmclr.bsv deleted file mode 100644 index 94a287de2..000000000 Binary files a/programs/samples/thebob/chopper/chfrmclr.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmclx.bsv b/programs/samples/thebob/chopper/chfrmclx.bsv deleted file mode 100644 index 658efb6c8..000000000 Binary files a/programs/samples/thebob/chopper/chfrmclx.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmrb.bsv b/programs/samples/thebob/chopper/chfrmrb.bsv deleted file mode 100644 index e76476ed1..000000000 Binary files a/programs/samples/thebob/chopper/chfrmrb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmrc.bsv b/programs/samples/thebob/chopper/chfrmrc.bsv deleted file mode 100644 index 38bb1aa4f..000000000 Binary files a/programs/samples/thebob/chopper/chfrmrc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmrp.bsv b/programs/samples/thebob/chopper/chfrmrp.bsv deleted file mode 100644 index 1642aeb81..000000000 Binary files a/programs/samples/thebob/chopper/chfrmrp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmxb.bsv b/programs/samples/thebob/chopper/chfrmxb.bsv deleted file mode 100644 index 20c07948b..000000000 Binary files a/programs/samples/thebob/chopper/chfrmxb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmxc.bsv b/programs/samples/thebob/chopper/chfrmxc.bsv deleted file mode 100644 index 604d2c7e3..000000000 Binary files a/programs/samples/thebob/chopper/chfrmxc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chfrmxp.bsv b/programs/samples/thebob/chopper/chfrmxp.bsv deleted file mode 100644 index 19e26378f..000000000 Binary files a/programs/samples/thebob/chopper/chfrmxp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chftanks.bsv b/programs/samples/thebob/chopper/chftanks.bsv deleted file mode 100644 index a68f071eb..000000000 Binary files a/programs/samples/thebob/chopper/chftanks.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chftnkbr.bsi b/programs/samples/thebob/chopper/chftnkbr.bsi deleted file mode 100644 index 1d76953c2..000000000 Binary files a/programs/samples/thebob/chopper/chftnkbr.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chftnkcb.bsi b/programs/samples/thebob/chopper/chftnkcb.bsi deleted file mode 100644 index 2b21b420b..000000000 Binary files a/programs/samples/thebob/chopper/chftnkcb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chftnkos.bsi b/programs/samples/thebob/chopper/chftnkos.bsi deleted file mode 100644 index 0bf4a637a..000000000 Binary files a/programs/samples/thebob/chopper/chftnkos.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chftnksc.bsi b/programs/samples/thebob/chopper/chftnksc.bsi deleted file mode 100644 index 42835a048..000000000 Binary files a/programs/samples/thebob/chopper/chftnksc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chftnktd.bsi b/programs/samples/thebob/chopper/chftnktd.bsi deleted file mode 100644 index 8ae00449c..000000000 Binary files a/programs/samples/thebob/chopper/chftnktd.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chgenbmp.bsv b/programs/samples/thebob/chopper/chgenbmp.bsv deleted file mode 100644 index 159e165bc..000000000 Binary files a/programs/samples/thebob/chopper/chgenbmp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhbars.bsv b/programs/samples/thebob/chopper/chhbars.bsv deleted file mode 100644 index 43d4d9016..000000000 Binary files a/programs/samples/thebob/chopper/chhbars.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdltcc.bsi b/programs/samples/thebob/chopper/chhdltcc.bsi deleted file mode 100644 index 2226b04fa..000000000 Binary files a/programs/samples/thebob/chopper/chhdltcc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdltcp.bsi b/programs/samples/thebob/chopper/chhdltcp.bsi deleted file mode 100644 index 9cfbf436f..000000000 Binary files a/programs/samples/thebob/chopper/chhdltcp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdltlc.bsi b/programs/samples/thebob/chopper/chhdltlc.bsi deleted file mode 100644 index 6019d15ce..000000000 Binary files a/programs/samples/thebob/chopper/chhdltlc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdltlp.bsi b/programs/samples/thebob/chopper/chhdltlp.bsi deleted file mode 100644 index fb6932e7c..000000000 Binary files a/programs/samples/thebob/chopper/chhdltlp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdlts.bsv b/programs/samples/thebob/chopper/chhdlts.bsv deleted file mode 100644 index a0af262aa..000000000 Binary files a/programs/samples/thebob/chopper/chhdlts.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdltsc.bsi b/programs/samples/thebob/chopper/chhdltsc.bsi deleted file mode 100644 index 117852ee0..000000000 Binary files a/programs/samples/thebob/chopper/chhdltsc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhdltsp.bsi b/programs/samples/thebob/chopper/chhdltsp.bsi deleted file mode 100644 index 5458bd1a5..000000000 Binary files a/programs/samples/thebob/chopper/chhdltsp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chhlpmnu.bsv b/programs/samples/thebob/chopper/chhlpmnu.bsv deleted file mode 100644 index 395c5de0d..000000000 Binary files a/programs/samples/thebob/chopper/chhlpmnu.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chide1.bsv b/programs/samples/thebob/chopper/chide1.bsv deleted file mode 100644 index 4269e9df7..000000000 Binary files a/programs/samples/thebob/chopper/chide1.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chide2.bsv b/programs/samples/thebob/chopper/chide2.bsv deleted file mode 100644 index ae62e73bd..000000000 Binary files a/programs/samples/thebob/chopper/chide2.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chide3.bsv b/programs/samples/thebob/chopper/chide3.bsv deleted file mode 100644 index 624213980..000000000 Binary files a/programs/samples/thebob/chopper/chide3.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chinstr1.bsv b/programs/samples/thebob/chopper/chinstr1.bsv deleted file mode 100644 index 4dfb6b1b3..000000000 Binary files a/programs/samples/thebob/chopper/chinstr1.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chinstr2.bsv b/programs/samples/thebob/chopper/chinstr2.bsv deleted file mode 100644 index 20cbbc4d9..000000000 Binary files a/programs/samples/thebob/chopper/chinstr2.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chinstw.bsv b/programs/samples/thebob/chopper/chinstw.bsv deleted file mode 100644 index be9454283..000000000 Binary files a/programs/samples/thebob/chopper/chinstw.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chintaks.bsv b/programs/samples/thebob/chopper/chintaks.bsv deleted file mode 100644 index ace33dfaa..000000000 Binary files a/programs/samples/thebob/chopper/chintaks.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chlnkage.bsi b/programs/samples/thebob/chopper/chlnkage.bsi deleted file mode 100644 index 9f1b3f956..000000000 Binary files a/programs/samples/thebob/chopper/chlnkage.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmag1.bsv b/programs/samples/thebob/chopper/chmag1.bsv deleted file mode 100644 index a76e0320e..000000000 Binary files a/programs/samples/thebob/chopper/chmag1.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmag2.bsv b/programs/samples/thebob/chopper/chmag2.bsv deleted file mode 100644 index acc08c19f..000000000 Binary files a/programs/samples/thebob/chopper/chmag2.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmag3.bsv b/programs/samples/thebob/chopper/chmag3.bsv deleted file mode 100644 index 60141cffe..000000000 Binary files a/programs/samples/thebob/chopper/chmag3.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmag4.bsv b/programs/samples/thebob/chopper/chmag4.bsv deleted file mode 100644 index ecc715390..000000000 Binary files a/programs/samples/thebob/chopper/chmag4.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmotors.bsv b/programs/samples/thebob/chopper/chmotors.bsv deleted file mode 100644 index 6cf768262..000000000 Binary files a/programs/samples/thebob/chopper/chmotors.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmssr.fbs b/programs/samples/thebob/chopper/chmssr.fbs deleted file mode 100644 index e343c89e8..000000000 Binary files a/programs/samples/thebob/chopper/chmssr.fbs and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtr750.bsi b/programs/samples/thebob/chopper/chmtr750.bsi deleted file mode 100644 index 8ada0d834..000000000 Binary files a/programs/samples/thebob/chopper/chmtr750.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrbcl.bsv b/programs/samples/thebob/chopper/chmtrbcl.bsv deleted file mode 100644 index 6c5e28c39..000000000 Binary files a/programs/samples/thebob/chopper/chmtrbcl.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrkcl.bsv b/programs/samples/thebob/chopper/chmtrkcl.bsv deleted file mode 100644 index 0b8cb4ea2..000000000 Binary files a/programs/samples/thebob/chopper/chmtrkcl.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrvbb.bsi b/programs/samples/thebob/chopper/chmtrvbb.bsi deleted file mode 100644 index ea3f9643a..000000000 Binary files a/programs/samples/thebob/chopper/chmtrvbb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrvbc.bsi b/programs/samples/thebob/chopper/chmtrvbc.bsi deleted file mode 100644 index 3212bb6af..000000000 Binary files a/programs/samples/thebob/chopper/chmtrvbc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrvbp.bsi b/programs/samples/thebob/chopper/chmtrvbp.bsi deleted file mode 100644 index 3c31f2546..000000000 Binary files a/programs/samples/thebob/chopper/chmtrvbp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrvkb.bsi b/programs/samples/thebob/chopper/chmtrvkb.bsi deleted file mode 100644 index 33b09f05f..000000000 Binary files a/programs/samples/thebob/chopper/chmtrvkb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrvkc.bsi b/programs/samples/thebob/chopper/chmtrvkc.bsi deleted file mode 100644 index ffe9fd902..000000000 Binary files a/programs/samples/thebob/chopper/chmtrvkc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chmtrvkp.bsi b/programs/samples/thebob/chopper/chmtrvkp.bsi deleted file mode 100644 index 78dd9e080..000000000 Binary files a/programs/samples/thebob/chopper/chmtrvkp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkrb.bsv b/programs/samples/thebob/chopper/chnkrb.bsv deleted file mode 100644 index 1f9eab503..000000000 Binary files a/programs/samples/thebob/chopper/chnkrb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkrc.bsv b/programs/samples/thebob/chopper/chnkrc.bsv deleted file mode 100644 index c0fd124d3..000000000 Binary files a/programs/samples/thebob/chopper/chnkrc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkrp.bsv b/programs/samples/thebob/chopper/chnkrp.bsv deleted file mode 100644 index 21e88a04a..000000000 Binary files a/programs/samples/thebob/chopper/chnkrp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkxb.bsv b/programs/samples/thebob/chopper/chnkxb.bsv deleted file mode 100644 index 4de746ee9..000000000 Binary files a/programs/samples/thebob/chopper/chnkxb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkxc.bsv b/programs/samples/thebob/chopper/chnkxc.bsv deleted file mode 100644 index 8942f01ce..000000000 Binary files a/programs/samples/thebob/chopper/chnkxc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkxp.bsv b/programs/samples/thebob/chopper/chnkxp.bsv deleted file mode 100644 index 96d0f408f..000000000 Binary files a/programs/samples/thebob/chopper/chnkxp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkxxb.bsv b/programs/samples/thebob/chopper/chnkxxb.bsv deleted file mode 100644 index a93c3d875..000000000 Binary files a/programs/samples/thebob/chopper/chnkxxb.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkxxc.bsv b/programs/samples/thebob/chopper/chnkxxc.bsv deleted file mode 100644 index 6affda2b6..000000000 Binary files a/programs/samples/thebob/chopper/chnkxxc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chnkxxp.bsv b/programs/samples/thebob/chopper/chnkxxp.bsv deleted file mode 100644 index 9d2ec6498..000000000 Binary files a/programs/samples/thebob/chopper/chnkxxp.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chopfile.bas b/programs/samples/thebob/chopper/chopfile.bas deleted file mode 100644 index 0e396fc64..000000000 --- a/programs/samples/thebob/chopper/chopfile.bas +++ /dev/null @@ -1,127 +0,0 @@ -DEFINT A-Z -DECLARE SUB LoadFILE (FileNAME$) -DIM SHARED Box(32000) -SCREEN 12 - -BikeCOLOR = 5 -ForkCOLOR = 1 -FrameCOLOR = 0 -FlameSTYLE = 1 -GOSUB SetPALETTE -PALETTE 8, 21 + 65536 * 32 -PALETTE 11, 32 + 65536 * 42 - -SHELL "DIR/B/ON *.BSV > Chops.DAT" - -OPEN "chops.dat" FOR INPUT AS #1 -DO WHILE NOT EOF(1) -LINE INPUT #1, n$ -n$ = LTRIM$(RTRIM$(n$)) -CLS -LoadFILE n$ -SLEEP 1 -k$ = INKEY$ -IF k$ = CHR$(27) THEN END -LOOP -CLOSE #1 - -a$ = INPUT$(1) - -END '************************** SUBROUTINES BEGIN ************************** - -SetPALETTE: -RESTORE PaletteDATA -OUT &H3C8, 0 -FOR n = 1 TO 18 -READ Colr -OUT &H3C9, Colr -NEXT n - -RESTORE CustomCOLORS -DIM Colors(5) -FOR n = 0 TO 5 -READ Colors(n) -NEXT n - -SELECT CASE BikeCOLOR -CASE 0: RESTORE BikeCOLOR0 -CASE 1: RESTORE BikeCOLOR1 -CASE 2: RESTORE BikeCOLOR2 -CASE 3: RESTORE BikeCOLOR3 -CASE 4: RESTORE BikeCOLOR4 -CASE 5: RESTORE BikeCOLOR5 -CASE 6: RESTORE BikeCOLOR6 -CASE 7: RESTORE BikeCOLOR7 -END SELECT -FOR n = 0 TO 5 -OUT &H3C8, Colors(n) -FOR i = 1 TO 3 -READ Colr: OUT &H3C9, Colr -NEXT i -NEXT n - -IF FlameSTYLE THEN -RESTORE FlameCOLOR -OUT &H3C8, 12 -FOR i = 1 TO 3 -READ Colr: OUT &H3C9, Colr -NEXT i -OUT &H3C8, 14 -FOR i = 1 TO 3 -READ Colr: OUT &H3C9, Colr -NEXT i -END IF -OUT &H3C8, 8 -OUT &H3C9, 21 -OUT &H3C9, 63 -OUT &H3C9, 21 -OUT &H3C8, 9 -OUT &H3C9, 21 -OUT &H3C9, 21 -OUT &H3C9, 63 -OUT &H3C8, 11 -OUT &H3C9, 63 -OUT &H3C9, 0 -OUT &H3C9, 0 -RETURN - -PaletteDATA: -DATA 0, 0, 12, 6, 4, 14, 12, 12, 20 -DATA 31, 31, 38, 46, 46, 50, 0, 0, 0 - -CustomCOLORS: -DATA 6,7,10,12,13,14 - -BikeCOLOR0: -DATA 6, 6, 6, 4, 4, 4, 0, 0, 0, 21, 0, 42, 14, 14, 14, 32, 21, 54 -BikeCOLOR1: -DATA 5, 12, 0, 3, 9, 0, 0, 6, 0, 32, 42, 32, 6, 18, 6, 51, 63, 52 -BikeCOLOR2: -DATA 8, 0, 36, 5, 0, 28, 2, 0, 20, 12, 20, 63, 10, 10, 42, 10, 42, 63 -BikeCOLOR3: -DATA 32, 0, 0, 24, 0, 0, 18, 0, 0, 21, 0, 12, 63, 0, 42, 63, 0, 0 -BikeCOLOR4: -DATA 63, 0, 0, 54, 0, 0, 42, 0, 0, 32, 0, 0, 63, 20, 43, 42, 0, 21 -BikeCOLOR5: -DATA 63, 20, 0, 53, 16, 0, 43, 10, 0, 63, 0, 0, 63, 42, 21, 40, 0, 20 -BikeCOLOR6: -DATA 63, 50, 0, 63, 42, 0, 53, 32, 0, 63, 0, 0, 63, 63, 54, 40, 0, 20 -BikeCOLOR7: -DATA 58, 58, 63, 48, 48, 58, 38, 38, 48, 31, 31, 51, 63, 63, 63, 42, 42, 63 -FlameCOLOR: '12/14 -DATA 63, 32, 12, 63, 63, 0 -GoldTRIM: -DATA 53, 46, 32, 63, 56, 42 - -SUB LoadFILE (FileNAME$) - -DEF SEG = VARSEG(Box(0)) -BLOAD FileNAME$, VARPTR(Box(0)) -DEF SEG -x = 320 - (Box(0) / 2) -IF x < 5 THEN x = 0 -y = 240 - (Box(1) / 2) -PUT (x, y), Box - -END SUB - diff --git a/programs/samples/thebob/chopper/chopper.bas b/programs/samples/thebob/chopper/chopper.bas deleted file mode 100644 index 849552566..000000000 --- a/programs/samples/thebob/chopper/chopper.bas +++ /dev/null @@ -1,3345 +0,0 @@ -CHDIR ".\programs\samples\thebob\chopper" - -' °° ' -' °° °°° ' -' °°°°°° °°° °°° ' -' °°°°°°° °°° °°° ' -' °°° °° °°° °° °° °°° ' -' °°° °° °° °° °° °°°° °°°° °°° °° °° °° ' -' °°°° °° °°° °°°°°° °°°° °°°° °°°° °°°°°°° °° ' -' °°°° °° °°°° °°° °°°°°°°°° °°°°°° °° °° °°°°°° °° ' -' ²²² ²²²²²²² ²² ²² ²²²²²²²²²²²²²² ²²²²² ²²²² ²² ' -' ²² ²²² ²²² ²²² ²²² ²² ²² ²²² ²² ²²²²²²²² ²²²²²² ²² ' -' ²² ²²² ²²² ²² ²²² ²² ²²² ²² ²²² ²² ²²² ²² ²²²² ²²² ' -' ²²²²²² ²² ²² ²²²²² ²²²²² ²²²²² ²²²²²² ²² ²²²² ' -' ²² ²²²² ²²²² ²² ' -' ²² ²² ' -' ²²² ²²² ' -' ²² ²² ' -' ' -' CHOPPER.BAS - Copyright (C) 2005 by Bob Seguin (Freeware) ' -' ' -'***************************************************************************' - -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () -DECLARE FUNCTION Seeker (x, y, Mode) - -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB FieldMOUSE (x1, y1, x2, y2) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () - -DECLARE SUB MouseDRIVER (LB, RB, MX, MY) - -DECLARE SUB PrintSTRING (x, y, Prnt$) - -DECLARE SUB SetPALETTE () -DECLARE SUB FourBIT (x1, y1, x2, y2, FileNAME$) -DECLARE SUB LoadIMAGE (x, y, FileNAME$) -DECLARE SUB LoadFILE (FileNAME$) -DECLARE SUB LoadBSI (x, y, FileNAME$) -DECLARE SUB ClearBOX () - -DECLARE SUB Interval (Length!) -DECLARE SUB ChopperIDE () -DECLARE SUB Tire (x, y, Outer, Inner) -DECLARE SUB Tread (x, y, Radius, StartDEG, StopDEG, Colr) -DECLARE SUB ProjectMENU () -DECLARE SUB HelpMENU () -DECLARE SUB HiLIGHT () -DECLARE SUB DeLIGHT () -DECLARE SUB MenuBAR (InOUT) -DECLARE SUB LoadPHASE () -DECLARE SUB Assembly1 () -DECLARE SUB Assembly2 () -DECLARE SUB Assembly3 () -DECLARE SUB HandleBARS (InOUT) -DECLARE SUB PaintSHOP (Mode) - -'---------------------------------------------------------------------------- -'$DYNAMIC - -DIM SHARED Box(26000) -DIM SHARED MenuBOX(500) -DIM SHARED MenuBOX2(500) -DIM SHARED MenuBOX3(4000) -DIM SHARED CustomCOLORS(9, 20) -DIM SHARED FChar(1 TO 124) - -DIM SHARED MouseDATA$ -DIM SHARED LB, RB, MouseX, MouseY -DIM SHARED Menu, TopMENU, Phase, Item, BarBOX, PaintITEM -DIM SHARED BikeCOLOR, FlameSTYLE, MenuITEM - -CONST Degree! = 3.14159 / 180 - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 - READ h$ - Hexxer$ = CHR$(VAL("&H" + h$)) - MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN - PRINT "Sorry, cat must have got the mouse." - SLEEP 2 - SYSTEM -END IF - -DEF SEG = VARSEG(CustomCOLORS(0, 0)) -BLOAD "chcolors.bsv", VARPTR(CustomCOLORS(0, 0)) -DEF SEG - -SCREEN 12 - -BikeCOLOR = 3 -FlameSTYLE = 1 -SetPALETTE - -ChopperIDE -LocateMOUSE 319, 120 -ShowMOUSE - -DO - MouseSTATUS LB, RB, MouseX, MouseY - - SELECT CASE MenuITEM - CASE 1: ProjectMENU - CASE 2: HelpMENU - END SELECT - - SELECT CASE MouseY - CASE 32 TO 46: MenuBAR 1 - CASE 294 TO 479 - SELECT CASE Phase - CASE IS < 8: Assembly1 - CASE 8 TO 20: Assembly2 - CASE 21: HandleBARS 1 - CASE 22 TO 24: Assembly3 - CASE 25: PaintSHOP 1 - END SELECT - CASE ELSE - IF TopMENU THEN MenuBAR 0 - IF Item THEN DeLIGHT - IF BarBOX THEN HandleBARS 0 - IF PaintITEM THEN PaintSHOP 0 - END SELECT - - IF Splash = 0 AND MouseY < 60 THEN - LINE (146, 154)-(493, 356), 0, BF - LINE (146, 288)-(493, 293), 1, BF - LINE (146, 288)-(493, 288), 2, BF - LINE (146, 293)-(493, 293), 5, BF - LINE (146, 252)-(493, 280), 2, BF - SetPALETTE - Splash = 1 - END IF - - ClearMOUSE - LoadPHASE -LOOP - -END '************************** PALETTE DATA ******************************** - -PaletteDATA: -DATA 4, 2, 12, 6, 4, 14, 12, 12, 20 -DATA 31, 31, 38, 46, 46, 50, 0, 0, 0 - -CustomCOLORS: -DATA 6,7,8,10,12,13,14 - -FlameCOLOR: -DATA 63, 63, 63, 63, 32, 12, 63, 52, 0 -SilverCOLOR: -DATA 63, 63, 63, 38, 38, 35, 53, 53, 48 -GoldCOLOR: -DATA 63, 63, 42, 63, 42, 21, 63, 52, 32 -WhiteCOLOR: -DATA 63, 63, 63, 48, 48, 53, 53, 53, 58 - -REM $STATIC -SUB Assembly1 -SHARED ItemX, ItemY, Choice, Frame, Extension, FrameCOLOR -SHARED ForkX, ForkY, WheelFX, WheelFY, WheelRX, WheelRY, BarX, BarY -SHARED OuterRADIUS, InnerRADIUS, FrontINDEX, RearINDEX, FrameX, FrameY - -SELECT CASE Phase - CASE 1 - SELECT CASE MouseX - CASE 116 TO 310 - IF Item <> 1 THEN - DeLIGHT - ItemX = 156: ItemY = 452 - HiLIGHT - Item = 1 - END IF - CASE 330 TO 523 - IF Item <> 2 THEN - DeLIGHT - ItemX = 390: ItemY = 452 - HiLIGHT - Item = 2 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 2 - SELECT CASE MouseX - CASE 20 TO 234 - IF Item <> 3 THEN - DeLIGHT - ItemX = 90: ItemY = 430 - HiLIGHT - Item = 3 - END IF - CASE 255 TO 384 - IF Item <> 4 THEN - DeLIGHT - ItemX = 271: ItemY = 430 - HiLIGHT - Item = 4 - END IF - CASE 405 TO 560 - IF Item <> 5 THEN - DeLIGHT - ItemX = 431: ItemY = 430 - HiLIGHT - Item = 5 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 3 - SELECT CASE MouseX - CASE 110 TO 240 - IF Item <> 6 THEN - DeLIGHT - ItemX = 112: ItemY = 440 - HiLIGHT - Item = 6 - END IF - CASE 260 TO 390 - IF Item <> 7 THEN - DeLIGHT - ItemX = 270: ItemY = 440 - HiLIGHT - Item = 7 - END IF - CASE 410 TO 540 - IF Item <> 8 THEN - DeLIGHT - ItemX = 420: ItemY = 440 - HiLIGHT - Item = 8 - END IF - END SELECT - CASE 4 - IF Extension = 1 OR Extension = 2 THEN - SELECT CASE MouseX - CASE 40 TO 150 - IF Item <> 9 THEN - DeLIGHT - ItemX = 40: ItemY = 445 - HiLIGHT - Item = 9 - END IF - CASE 170 TO 280 - IF Item <> 10 THEN - DeLIGHT - ItemX = 180: ItemY = 445 - HiLIGHT - Item = 10 - END IF - CASE 340 TO 450 - IF Item <> 11 THEN - DeLIGHT - ItemX = 330: ItemY = 445 - HiLIGHT - Item = 11 - END IF - CASE 470 TO 600 - IF Item <> 12 THEN - DeLIGHT - ItemX = 470: ItemY = 445 - HiLIGHT - Item = 12 - END IF - CASE ELSE - DeLIGHT - END SELECT - ELSE - SELECT CASE MouseX - CASE 20 TO 138 - IF Item <> 13 THEN - DeLIGHT - ItemX = 12: ItemY = 445 - HiLIGHT - Item = 13 - END IF - CASE 139 TO 232 - IF Item <> 14 THEN - DeLIGHT - ItemX = 140: ItemY = 445 - HiLIGHT - Item = 14 - END IF - CASE 264 TO 386 - IF Item <> 15 THEN - DeLIGHT - ItemX = 250: ItemY = 445 - HiLIGHT - Item = 15 - END IF - CASE 387 TO 490 - IF Item <> 16 THEN - DeLIGHT - ItemX = 372: ItemY = 445 - HiLIGHT - Item = 16 - END IF - CASE 491 TO 600 - IF Item <> 17 THEN - DeLIGHT - ItemX = 490: ItemY = 445 - HiLIGHT - Item = 17 - END IF - CASE ELSE - DeLIGHT - END SELECT - END IF - CASE 5 - SELECT CASE MouseX - CASE 80 TO 198 - IF Item <> 18 THEN - DeLIGHT - ItemX = 70: ItemY = 440 - HiLIGHT - Item = 18 - END IF - CASE 199 TO 318 - IF Item <> 19 THEN - DeLIGHT - ItemX = 190: ItemY = 440 - HiLIGHT - Item = 19 - END IF - CASE 319 TO 438 - IF Item <> 20 THEN - DeLIGHT - ItemX = 320: ItemY = 440 - HiLIGHT - Item = 20 - END IF - CASE 439 TO 560 - IF Item <> 21 THEN - DeLIGHT - ItemX = 440: ItemY = 440 - HiLIGHT - Item = 21 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 6 - SELECT CASE MouseX - CASE 80 TO 198 - IF Item <> 22 THEN - DeLIGHT - ItemX = 70: ItemY = 440 - HiLIGHT - Item = 22 - END IF - CASE 199 TO 318 - IF Item <> 23 THEN - DeLIGHT - ItemX = 190: ItemY = 440 - HiLIGHT - Item = 23 - END IF - CASE 319 TO 438 - IF Item <> 24 THEN - DeLIGHT - ItemX = 320: ItemY = 440 - HiLIGHT - Item = 24 - END IF - CASE 439 TO 560 - IF Item <> 25 THEN - DeLIGHT - ItemX = 440: ItemY = 440 - HiLIGHT - Item = 25 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 7 - SELECT CASE MouseX - CASE 70 TO 169 - IF Item <> 26 THEN - DeLIGHT - ItemX = 50: ItemY = 442 - HiLIGHT - Item = 26 - END IF - CASE 170 TO 269 - IF Item <> 27 THEN - DeLIGHT - ItemX = 150: ItemY = 442 - HiLIGHT - Item = 27 - END IF - CASE 270 TO 369 - IF Item <> 28 THEN - DeLIGHT - ItemX = 250: ItemY = 442 - HiLIGHT - Item = 28 - END IF - CASE 370 TO 469 - IF Item <> 29 THEN - DeLIGHT - ItemX = 350: ItemY = 442 - HiLIGHT - Item = 29 - END IF - CASE 470 TO 569 - IF Item <> 30 THEN - DeLIGHT - ItemX = 450: ItemY = 442 - HiLIGHT - Item = 30 - END IF - CASE ELSE - DeLIGHT - END SELECT -END SELECT - -IF LB = -1 AND Item <> 0 THEN - SELECT CASE Item - CASE 1, 2 - Frame = Item - DeLIGHT - Phase = 2 - CASE 3, 4, 5 - FrameCOLOR = Item - 2 - DeLIGHT - Phase = 3 - CASE 6, 7, 8 - Extension = Item - 5 - DeLIGHT - GOSUB SetFRAME - DeLIGHT - CASE 9 TO 17 - GOSUB SetFORK - CASE 18 TO 21 - GOSUB SetTIREF - Phase = 6 - CASE 22 TO 25 - GOSUB SetTIRER - Phase = 7 - CASE 26 TO 30 - GOSUB SetWHEELS - Phase = 8 - END SELECT -END IF - -EXIT SUB - -'************************* SUBROUTINE SECTION BEGINS ************************ - -SetFRAME: -HideMOUSE -SELECT CASE Frame - CASE 1 - SELECT CASE Extension - CASE 1 - IF FrameCOLOR = 1 THEN LoadIMAGE 255, 130, "CHFrmRP": LoadFILE "CHNkRP" - IF FrameCOLOR = 2 THEN LoadIMAGE 255, 130, "CHFrmRB": LoadFILE "CHNkRB" - IF FrameCOLOR = 3 THEN LoadIMAGE 255, 130, "CHFrmRC": LoadFILE "CHNkRC" - FrameX = 245: FrameY = 115 - PUT (247, 125), Box(), AND - PUT (247, 125), Box(150) - CIRCLE (270, 262), 6, 5, , , .3 - PAINT STEP(0, 0), 5 - DRAW "U nR40 D R40 D L40" - PSET (316, 258), 5: DRAW "R120 F L121" - PSET (316, 266), 5: DRAW "R126 F L127" - LINE (310, 258)-(318, 262), 5, BF - LINE (311, 263)-(319, 267), 5, BF - LINE (380, 258)-(388, 262), 5, BF - LINE (382, 263)-(390, 267), 5, BF - CASE 2 - IF FrameCOLOR = 1 THEN LoadIMAGE 261, 130, "CHFrmRP": LoadFILE "CHNkXP" - IF FrameCOLOR = 2 THEN LoadIMAGE 261, 130, "CHFrmRB": LoadFILE "CHNkXB" - IF FrameCOLOR = 3 THEN LoadIMAGE 261, 130, "CHFrmRC": LoadFILE "CHNkXC" - FrameX = 251: FrameY = 115 - PUT (252, 124), Box(), AND - PUT (252, 124), Box(150) - CIRCLE (270, 262), 6, 5, , , .3 - PAINT STEP(0, 0), 5 - DRAW "U nR47 D R47 D L47" - PSET (324, 258), 5: DRAW "R120 F L121" - PSET (324, 266), 5: DRAW "R126 F L127" - LINE (316, 258)-(324, 262), 5, BF - LINE (318, 263)-(326, 267), 5, BF - LINE (386, 258)-(394, 262), 5, BF - LINE (389, 263)-(396, 267), 5, BF - CASE 3 - IF FrameCOLOR = 1 THEN LoadIMAGE 275, 130, "CHFrmRP": LoadFILE "CHNkXXP" - IF FrameCOLOR = 2 THEN LoadIMAGE 275, 130, "CHFrmRB": LoadFILE "CHNkXXB" - IF FrameCOLOR = 3 THEN LoadIMAGE 275, 130, "CHFrmRC": LoadFILE "CHNkXXC" - FrameX = 265: FrameY = 115 - PUT (267, 125), Box(), AND - PUT (267, 125), Box(150) - CIRCLE (270, 262), 6, 5, , , .3 - PAINT STEP(0, 0), 5 - DRAW "U nR65 D R65 D L65" - PSET (339, 258), 5: DRAW "R120 F L121" - PSET (339, 266), 5: DRAW "R126 F L127" - LINE (331, 258)-(339, 262), 5, BF - LINE (333, 263)-(341, 267), 5, BF - LINE (401, 258)-(409, 262), 5, BF - LINE (404, 263)-(411, 267), 5, BF - END SELECT - CASE 2 - SELECT CASE Extension - CASE 1 - IF FrameCOLOR = 1 THEN LoadIMAGE 250, 126, "CHFrmXP": LoadFILE "CHNkRP" - IF FrameCOLOR = 2 THEN LoadIMAGE 250, 126, "CHFrmXB": LoadFILE "CHNkRB" - IF FrameCOLOR = 3 THEN LoadIMAGE 250, 126, "CHFrmXC": LoadFILE "CHNkRC" - FrameX = 250: FrameY = 126: DropSHADOW = 0 - PUT (245, 124), Box(), AND - PUT (245, 124), Box(150) - CIRCLE (270, 262), 6, 5, , , .3 - PAINT STEP(0, 0), 5 - DRAW "U nR50 D R50 D L50" - PSET (324, 258), 5: DRAW "R130 F L131" - PSET (324, 266), 5: DRAW "R136 F L137" - LINE (316, 258)-(324, 262), 5, BF - LINE (317, 263)-(325, 267), 5, BF - LINE (360, 258)-(396, 262), 5, BF - LINE (362, 263)-(398, 267), 5, BF - CASE 2 - IF FrameCOLOR = 1 THEN LoadIMAGE 256, 126, "CHFrmXP": LoadFILE "CHNkXP" - IF FrameCOLOR = 2 THEN LoadIMAGE 256, 126, "CHFrmXB": LoadFILE "CHNkXB" - IF FrameCOLOR = 3 THEN LoadIMAGE 256, 126, "CHFrmXC": LoadFILE "CHNkXC" - FrameX = 256: FrameY = 126: DropSHADOW = 0 - PUT (251, 124), Box(), AND - PUT (251, 124), Box(150) - CIRCLE (276, 262), 6, 5, , , .3 - PAINT STEP(0, 0), 5 - DRAW "U nR50 D R50 D L50" - PSET (328, 258), 5: DRAW "R130 F L131" - PSET (328, 266), 5: DRAW "R136 F L137" - LINE (324, 258)-(332, 262), 5, BF - LINE (325, 263)-(333, 267), 5, BF - LINE (368, 258)-(404, 262), 5, BF - LINE (370, 263)-(406, 267), 5, BF - CASE 3 - IF FrameCOLOR = 1 THEN LoadIMAGE 270, 126, "CHFrmXP": LoadFILE "CHNkXXP" - IF FrameCOLOR = 2 THEN LoadIMAGE 270, 126, "CHFrmXB": LoadFILE "CHNkXXB" - IF FrameCOLOR = 3 THEN LoadIMAGE 270, 126, "CHFrmXC": LoadFILE "CHNkXXC" - FrameX = 270: FrameY = 126: DropSHADOW = 0 - PUT (265, 126), Box(), AND - PUT (265, 126), Box(150) - CIRCLE (278, 262), 6, 5, , , .3 - PAINT STEP(0, 0), 5 - DRAW "U nR58 D R58 D L58" - PSET (338, 258), 5: DRAW "R130 F L131" - PSET (338, 266), 5: DRAW "R138 F L139" - LINE (333, 258)-(341, 262), 5, BF - LINE (335, 263)-(343, 267), 5, BF - LINE (380, 258)-(416, 262), 5, BF - LINE (383, 263)-(419, 267), 5, BF - END SELECT -END SELECT -ShowMOUSE -Phase = 4 -RETURN - -SetFORK: -IF Frame = 1 THEN - SELECT CASE Extension - CASE 1 - SELECT CASE Item - CASE 9: LoadFILE "CHSprRP.BSI": ForkX = 194: ForkY = 108 - CASE 10: LoadFILE "CHSprRC.BSI": ForkX = 194: ForkY = 108 - CASE 11: LoadFILE "CHFrkGRP.BSI": ForkX = 203: ForkY = 114 - CASE 12: LoadFILE "CHFrkGRC.BSI": ForkX = 203: ForkY = 114 - END SELECT - CASE 2 - SELECT CASE Item - CASE 9: LoadFILE "CHSprXP.BSI": ForkX = 184: ForkY = 108 - CASE 10: LoadFILE "CHSprXC.BSI": ForkX = 184: ForkY = 108 - CASE 11: LoadFILE "CHFrkGXP.BSI": ForkX = 193: ForkY = 113 - CASE 12: LoadFILE "CHFrkGXC.BSI": ForkX = 193: ForkY = 113 - END SELECT - CASE 3 - SELECT CASE Item - CASE 13: LoadFILE "CHSprXXP.BSI": ForkX = 176: ForkY = 113 - CASE 14: LoadFILE "CHSprXXC.BSI": ForkX = 176: ForkY = 113 - CASE 15: LoadFILE "CHFrkXXP.BSI": ForkX = 183: ForkY = 116 - CASE 16: LoadFILE "CHFrkXXM.BSI": ForkX = 183: ForkY = 116 - CASE 17: LoadFILE "CHFrkXXC.BSI": ForkX = 183: ForkY = 116 - END SELECT - END SELECT -ELSE - SELECT CASE Extension - CASE 1 - SELECT CASE Item - CASE 9: LoadFILE "CHSprRP.BSI": ForkX = 192: ForkY = 108 - CASE 10: LoadFILE "CHSprRC.BSI": ForkX = 192: ForkY = 108 - CASE 11: LoadFILE "CHFrkGRP.BSI": ForkX = 203: ForkY = 114 - CASE 12: LoadFILE "CHFrkGRC.BSI": ForkX = 203: ForkY = 114 - END SELECT - CASE 2 - SELECT CASE Item - CASE 9: LoadFILE "CHSprXP.BSI": ForkX = 182: ForkY = 108 - CASE 10: LoadFILE "CHSprXC.BSI": ForkX = 182: ForkY = 108 - CASE 11: LoadFILE "CHFrkGXP.BSI": ForkX = 190: ForkY = 113 - CASE 12: LoadFILE "CHFrkGXC.BSI": ForkX = 190: ForkY = 113 - END SELECT - CASE 3 - SELECT CASE Item - CASE 13: LoadFILE "CHSprXXP.BSI": ForkX = 175: ForkY = 113 - CASE 14: LoadFILE "CHSprXXC.BSI": ForkX = 175: ForkY = 113 - CASE 15: LoadFILE "CHFrkXXP.BSI": ForkX = 181: ForkY = 116 - CASE 16: LoadFILE "CHFrkXXM.BSI": ForkX = 181: ForkY = 116 - CASE 17: LoadFILE "CHFrkXXC.BSI": ForkX = 181: ForkY = 116 - END SELECT - END SELECT -END IF -HideMOUSE -PUT (ForkX + Box(0), ForkY + Box(1)), Box(3), AND -PUT (ForkX, ForkY), Box(Box(2)) -PSET (ForkX + 12, 258), 5 -SELECT CASE Extension - CASE 1 - DRAW "R78 d9 L84 E R82 u7 L76 R64" - LINE STEP(-10, 0)-STEP(24, 7), 5, BF - CASE 2 - DRAW "R88 d9 L94 E R92 u7 L86 R74" - LINE STEP(-10, 0)-STEP(24, 7), 5, BF - CASE 3 - DRAW "R98 d9 L104 E R102 u7 L96 R84" - LINE STEP(-10, 0)-STEP(24, 7), 5, BF -END SELECT -DeLIGHT -ShowMOUSE -Phase = 5 -FOR x = 254 TO 300 - FOR y = 110 TO 130 - IF POINT(x, y) = 11 THEN - BarX = x: BarY = y - RETURN - END IF - NEXT y -NEXT x -RETURN - -SetTIREF: -HideMOUSE -SELECT CASE ForkX - CASE 176: WheelFX = 179: WheelFY = 217 - CASE 183: WheelFX = 188: WheelFY = 217 - CASE 184: WheelFX = 188: WheelFY = 217 - CASE 175: WheelFX = 178: WheelFY = 217 ' - CASE 181: WheelFX = 186: WheelFY = 217 ' - CASE 182: WheelFX = 186: WheelFY = 217 ' - CASE 193: WheelFX = 199: WheelFY = 217 - CASE 194: WheelFX = 197: WheelFY = 217 - CASE 190: WheelFX = 196: WheelFY = 217 ' - CASE 192: WheelFX = 195: WheelFY = 217 ' - CASE 203: WheelFX = 208: WheelFY = 217 - CASE 203: WheelFX = 208: WheelFY = 217 ' -END SELECT -SELECT CASE Item - CASE 18: InnerRADIUS = 38: FrontINDEX = 0 - CASE 19: InnerRADIUS = 35: FrontINDEX = 1800 - CASE 20: InnerRADIUS = 33: FrontINDEX = 3600 - CASE 21: InnerRADIUS = 30: FrontINDEX = 5400 -END SELECT -Tire WheelFX - 100, WheelFY - 100, 48, InnerRADIUS -ShowMOUSE -DeLIGHT -RETURN - -SetTIRER: -HideMOUSE -IF Frame = 1 THEN - SELECT CASE Extension - CASE 1: WheelRX = 435: WheelRY = 217 - CASE 2: WheelRX = 441: WheelRY = 217 - CASE 3: WheelRX = 455: WheelRY = 217 - END SELECT - OuterRADIUS = 48 - SELECT CASE Item - CASE 22: InnerRADIUS = 33: RearINDEX = 3600 - CASE 23: InnerRADIUS = 30: RearINDEX = 5400 - CASE 24: InnerRADIUS = 27: RearINDEX = 7200 - CASE 25: InnerRADIUS = 24: RearINDEX = 9000 - END SELECT -ELSE - SELECT CASE Extension - CASE 1: WheelRX = 440: WheelRY = 223 - CASE 2: WheelRX = 446: WheelRY = 223 - CASE 3: WheelRX = 460: WheelRY = 223 - END SELECT - OuterRADIUS = 42 - SELECT CASE Item - CASE 22: InnerRADIUS = 27: RearINDEX = 10800 - CASE 23: InnerRADIUS = 25: RearINDEX = 12600 - CASE 24: InnerRADIUS = 23: RearINDEX = 14400 - CASE 25: InnerRADIUS = 21: RearINDEX = 16200 - END SELECT -END IF -Tire WheelRX + 100, WheelRY - 100, OuterRADIUS, InnerRADIUS -DeLIGHT -ShowMOUSE -RETURN - -SetWHEELS: -SELECT CASE Item - CASE 26: File$ = "CHSpokes" - CASE 27: File$ = "CHMag1" - CASE 28: File$ = "CHMag2" - CASE 29: File$ = "CHMag3" - CASE 30: File$ = "CHMag4" -END SELECT -LoadFILE File$ -HideMOUSE -PUT (WheelFX - 140, WheelFY - 140), Box(FrontINDEX), PSET -PUT (WheelRX + 60, WheelRY - 140), Box(RearINDEX), PSET -DeLIGHT -ShowMOUSE -RETURN - -END SUB - -SUB Assembly2 -SHARED ItemX, ItemY, Choice, Frame, Extension, FrameCOLOR, Cover, Tank -SHARED ForkX, ForkY, WheelFX, WheelFY, WheelRX, WheelRY, BarX, BarY -SHARED OuterRADIUS, InnerRADIUS, FrontINDEX, RearINDEX, FrameX, FrameY -SHARED MotorSTYLE, HighMEG, HighPIPE, OT, LightX, LightY, FenderSTYLE -SHARED FFLX, FFRX, FFTY, FFBY, RFLX, RFRX, RFTY, RFBY, GPaint, TX, TY, TTY - -SELECT CASE Phase - CASE 8 - SELECT CASE MouseX - CASE 95 TO 225 - IF Item <> 31 THEN - DeLIGHT - ItemX = 95: ItemY = 445 - HiLIGHT - Item = 31 - END IF - CASE 255 TO 385 - IF Item <> 32 THEN - DeLIGHT - ItemX = 255: ItemY = 445 - HiLIGHT - Item = 32 - END IF - CASE 415 TO 545 - IF Item <> 33 THEN - DeLIGHT - ItemX = 415: ItemY = 445 - HiLIGHT - Item = 33 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 9 - SELECT CASE MouseX - CASE 135 TO 235 - IF Item <> 34 THEN - DeLIGHT - ItemX = 110: ItemY = 420 - HiLIGHT - Item = 34 - END IF - CASE 268 TO 368 - IF Item <> 35 THEN - DeLIGHT - ItemX = 246: ItemY = 420 - HiLIGHT - Item = 35 - END IF - CASE 400 TO 500 - IF Item <> 36 THEN - DeLIGHT - ItemX = 382: ItemY = 420 - HiLIGHT - Item = 36 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 10 - SELECT CASE MouseX - CASE 124 TO 234 - IF Item <> 37 THEN - DeLIGHT - ItemX = 114: ItemY = 424 - HiLIGHT - Item = 37 - END IF - CASE 278 TO 358 - IF Item <> 38 THEN - DeLIGHT - ItemX = 268: ItemY = 424 - HiLIGHT - Item = 38 - END IF - CASE 406 TO 516 - IF Item <> 39 THEN - DeLIGHT - ItemX = 396: ItemY = 424 - HiLIGHT - Item = 39 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 11 - SELECT CASE MouseX - CASE 120 TO 219 - IF Item <> 40 THEN - DeLIGHT - ItemX = 100: ItemY = 398 - HiLIGHT - Item = 40 - END IF - CASE 220 TO 319 - IF Item <> 41 THEN - DeLIGHT - ItemX = 210: ItemY = 398 - HiLIGHT - Item = 41 - END IF - CASE 320 TO 419 - IF Item <> 42 THEN - DeLIGHT - ItemX = 310: ItemY = 398 - HiLIGHT - Item = 42 - END IF - CASE 420 TO 519 - IF Item <> 43 THEN - DeLIGHT - ItemX = 420: ItemY = 398 - HiLIGHT - Item = 43 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 12 - SELECT CASE MouseX - CASE 120 TO 219 - IF Item <> 44 THEN - DeLIGHT - ItemX = 100: ItemY = 398 - HiLIGHT - Item = 44 - END IF - CASE 220 TO 319 - IF Item <> 45 THEN - DeLIGHT - ItemX = 200: ItemY = 398 - HiLIGHT - Item = 45 - END IF - CASE 320 TO 419 - IF Item <> 46 THEN - DeLIGHT - ItemX = 300: ItemY = 398 - HiLIGHT - Item = 46 - END IF - CASE 420 TO 519 - IF Item <> 146 THEN - DeLIGHT - ItemX = 400: ItemY = 398 - HiLIGHT - Item = 146 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 13 - SELECT CASE MouseX - CASE 110 TO 219 - IF Item <> 47 THEN - DeLIGHT - ItemX = 100: ItemY = 390 - HiLIGHT - Item = 47 - END IF - CASE 220 TO 329 - IF Item <> 48 THEN - DeLIGHT - ItemX = 220: ItemY = 390 - HiLIGHT - Item = 48 - END IF - CASE 330 TO 439 - IF Item <> 49 THEN - DeLIGHT - ItemX = 330: ItemY = 390 - HiLIGHT - Item = 49 - END IF - CASE 440 TO 549 - IF Item <> 50 THEN - DeLIGHT - ItemX = 430: ItemY = 390 - HiLIGHT - Item = 50 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 14 - SELECT CASE MouseX - CASE 178 TO 308 - IF Item <> 51 THEN - DeLIGHT - ItemX = 178: ItemY = 408 - HiLIGHT - Item = 51 - END IF - CASE 338 TO 468 - IF Item <> 52 THEN - DeLIGHT - ItemX = 338: ItemY = 408 - HiLIGHT - Item = 52 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 15 - SELECT CASE MouseX - CASE 90 TO 220 - IF Item <> 53 THEN - DeLIGHT - ItemX = 90: ItemY = 411 - HiLIGHT - Item = 53 - END IF - CASE 250 TO 380 - IF Item <> 54 THEN - DeLIGHT - ItemX = 250: ItemY = 411 - HiLIGHT - Item = 54 - END IF - CASE 412 TO 542 - IF Item <> 55 THEN - DeLIGHT - ItemX = 412: ItemY = 411 - HiLIGHT - Item = 55 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 16 - SELECT CASE MouseX - CASE 40 TO 223 - IF Item <> 56 THEN - DeLIGHT - ItemX = 70: ItemY = 410 - HiLIGHT - Item = 56 - END IF - CASE 224 TO 409 - IF Item <> 57 THEN - DeLIGHT - ItemX = 250: ItemY = 410 - HiLIGHT - Item = 57 - END IF - CASE 410 TO 600 - IF Item <> 58 THEN - DeLIGHT - ItemX = 430: ItemY = 410 - HiLIGHT - Item = 58 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 17 - SELECT CASE MouseX - CASE 50 TO 200 - IF Item <> 59 THEN - DeLIGHT - ItemX = 60: ItemY = 428 - HiLIGHT - Item = 59 - END IF - CASE 230 TO 380 - IF Item <> 60 THEN - DeLIGHT - ItemX = 240: ItemY = 428 - HiLIGHT - Item = 60 - END IF - CASE 410 TO 560 - IF Item <> 61 THEN - DeLIGHT - ItemX = 420: ItemY = 428 - HiLIGHT - Item = 61 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 18 - SELECT CASE MouseX - CASE 65 TO 164 - IF Item <> 62 THEN - DeLIGHT - ItemX = 50: ItemY = 412 - HiLIGHT - Item = 62 - END IF - CASE 165 TO 264 - IF Item <> 63 THEN - DeLIGHT - ItemX = 150: ItemY = 412 - HiLIGHT - Item = 63 - END IF - CASE 265 TO 364 - IF Item <> 64 THEN - DeLIGHT - ItemX = 250: ItemY = 412 - HiLIGHT - Item = 64 - END IF - CASE 365 TO 464 - IF Item <> 65 THEN - DeLIGHT - ItemX = 350: ItemY = 412 - HiLIGHT - Item = 65 - END IF - CASE 465 TO 564 - IF Item <> 66 THEN - DeLIGHT - ItemX = 450: ItemY = 412 - HiLIGHT - Item = 66 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 19 - SELECT CASE MouseX - CASE 60 TO 139 - IF Item <> 67 THEN - DeLIGHT - ItemX = 20: ItemY = 396 - HiLIGHT - Item = 67 - END IF - CASE 140 TO 219 - IF Item <> 68 THEN - DeLIGHT - ItemX = 125: ItemY = 396 - HiLIGHT - Item = 68 - END IF - CASE 240 TO 319 - IF Item <> 69 THEN - DeLIGHT - ItemX = 202: ItemY = 396 - HiLIGHT - Item = 69 - END IF - CASE 320 TO 399 - IF Item <> 70 THEN - DeLIGHT - ItemX = 304: ItemY = 396 - HiLIGHT - Item = 70 - END IF - CASE 420 TO 499 - IF Item <> 71 THEN - DeLIGHT - ItemX = 384: ItemY = 396 - HiLIGHT - Item = 71 - END IF - CASE 500 TO 579 - IF Item <> 72 THEN - DeLIGHT - ItemX = 490: ItemY = 396 - HiLIGHT - Item = 72 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 20 - SELECT CASE MouseX - CASE 140 TO 219 - IF Item <> 67 THEN - DeLIGHT - ItemX = 100: ItemY = 396 - HiLIGHT - Item = 67 - END IF - CASE 220 TO 299 - IF Item <> 68 THEN - DeLIGHT - ItemX = 210: ItemY = 396 - HiLIGHT - Item = 68 - END IF - CASE 340 TO 419 - IF Item <> 69 THEN - DeLIGHT - ItemX = 290: ItemY = 396 - HiLIGHT - Item = 69 - END IF - CASE 420 TO 499 - IF Item <> 70 THEN - DeLIGHT - ItemX = 420: ItemY = 396 - HiLIGHT - Item = 70 - END IF - CASE ELSE - DeLIGHT - END SELECT -END SELECT - -IF LB = -1 AND Item <> 0 THEN - SELECT CASE Item - CASE 31 - LoadFILE "CHFndrFS": GOSUB FrontWHEEL - LoadFILE "CHFndrRS": GOSUB RearWHEEL - FenderSTYLE = 1 - GOSUB Transfer - CASE 32 - LoadFILE "CHFndrFC": GOSUB FrontWHEEL - LoadFILE "CHFndrRC": GOSUB RearWHEEL - FenderSTYLE = 2 - GOSUB Transfer - CASE 33 - LoadFILE "CHFndrFF": GOSUB FrontWHEEL - LoadFILE "CHFndrRF": GOSUB RearWHEEL - FenderSTYLE = 3 - GOSUB Transfer - CASE 34 - HideMOUSE - IF Frame = 2 THEN - GET (FrameX + 100, FrameY + 40)-STEP(20, 30), Box() - PUT (FrameX + 70, FrameY + 25), Box(), PSET - LINE (FrameX + 90, FrameY + 110)-STEP(40, 2), 0, BF - CIRCLE (FrameX + 53, FrameY + 108), 3, 2 - PAINT STEP(0, 0), 4, 2 - CIRCLE (FrameX + 53, FrameY + 108), 2, 15, 0, 3 - LINE (FrameX + 50, FrameY + 101)-STEP(1, 1), 4, B - CIRCLE (FrameX + 53, FrameY + 108), 3, 5, 3, 0 - LINE STEP(-2, 0)-STEP(4, 0), 3 - END IF - LoadFILE "CHMtr750.BSI" - MotorSTYLE = 1 - GOSUB InstallMOTOR - DeLIGHT - ShowMOUSE - Phase = 15 - CASE 35 - HideMOUSE - DeLIGHT - ShowMOUSE - MotorSTYLE = 2 - Phase = 10 - CASE 36 - HideMOUSE - DeLIGHT - ShowMOUSE - MotorSTYLE = 3 - Phase = 10 - CASE 37 - IF MotorSTYLE = 2 THEN - LoadFILE "CHMtrVKP.BSI" - ELSE - LoadFILE "CHMtrVBP.BSI" - END IF - GOSUB InstallMOTOR - CASE 38 - IF MotorSTYLE = 2 THEN - LoadFILE "CHMtrVKB.BSI" - ELSE - LoadFILE "CHMtrVBB.BSI" - END IF - GOSUB InstallMOTOR - CASE 39 - IF MotorSTYLE = 2 THEN - LoadFILE "CHMtrVKC.BSI" - ELSE - LoadFILE "CHMtrVBC.BSI" - END IF - GOSUB InstallMOTOR - CASE 40 - HideMOUSE - LoadBSI FrameX, FrameY, "CHDrvCH" - LoadFILE "CHShdowD.BSI" - PUT (FrameX + Box(0), 268), Box(3), AND - PUT (FrameX + Box(0), 268), Box(Box(2)) - DeLIGHT - ShowMOUSE - Phase = 13 - CASE 41 TO 43 - HideMOUSE - IF Item = 41 THEN LoadBSI FrameX, FrameY, "CHDrvBP" - IF Item = 42 THEN LoadBSI FrameX, FrameY, "CHDrvBB" - IF Item = 43 THEN LoadBSI FrameX, FrameY, "CHDrvBC" - LoadFILE "CHShdowD.BSI" - PUT (FrameX + Box(0), 268), Box(3), AND - PUT (FrameX + Box(0), 268), Box(Box(2)) - DeLIGHT - ShowMOUSE - Phase = 12 - CASE 44, 45, 46, 146 - HideMOUSE - IF Item = 44 THEN LoadBSI FrameX, FrameY, "CHDrvCP": Cover = 1 - IF Item = 45 THEN LoadBSI FrameX, FrameY, "CHDrvCB" - IF Item = 46 THEN LoadBSI FrameX, FrameY, "CHDrvCC" - DeLIGHT - ShowMOUSE - Phase = 13 - CASE 47 TO 50 - HideMOUSE - IF Item = 47 THEN LoadBSI FrameX, FrameY, "CHBrthr3" - IF Item = 48 THEN LoadBSI FrameX, FrameY, "CHBrthr4" - IF Item = 49 THEN LoadBSI FrameX, FrameY, "CHBrthr1" - IF Item = 50 THEN LoadBSI FrameX, FrameY, "CHBrthr2" - DeLIGHT - ShowMOUSE - Phase = 14 - CASE 51, 52 - IF Frame = 1 THEN - IF Item = 51 THEN FileNAME$ = "CHRDrRVC" - IF Item = 52 THEN FileNAME$ = "CHRDrRVB" - ELSE - IF Item = 51 THEN FileNAME$ = "CHRDrXVC" - IF Item = 52 THEN FileNAME$ = "CHRDrXVB" - END IF - HideMOUSE - LoadBSI FrameX, FrameY, FileNAME$ - DeLIGHT - ShowMOUSE - Phase = 17 - CASE 53 TO 55 - IF Frame = 1 THEN - IF Item = 53 THEN FileNAME$ = "CHRDrR7O" - IF Item = 54 THEN FileNAME$ = "CHRDrR7P": GPaint = 1 - IF Item = 55 THEN FileNAME$ = "CHRDrR7C" - ELSE - IF Item = 53 THEN FileNAME$ = "CHRDrX7O" - IF Item = 54 THEN FileNAME$ = "CHRDrX7P": GPaint = 1 - IF Item = 55 THEN FileNAME$ = "CHRDrX7C" - END IF - HideMOUSE - LoadBSI FrameX, FrameY, FileNAME$ - DeLIGHT - ShowMOUSE - Phase = 16 - CASE 56 TO 58 - HideMOUSE - IF Item = 56 THEN LoadBSI FrameX, FrameY, "CHExBLST" - IF Item = 57 THEN LoadBSI FrameX, FrameY, "CHExBHMG": HighMEG = 1 - IF Item = 58 THEN LoadBSI FrameX, FrameY, "CHExBLMG" - IF Frame = 1 THEN ShadowDROP = 11 ELSE ShadowDROP = 0 - LoadBSI FrameX, FrameY + ShadowDROP, "CHShdo7X" - DeLIGHT - ShowMOUSE - Phase = 18 - CASE 59 TO 61 - HideMOUSE - IF Item = 59 THEN LoadBSI FrameX, FrameY, "CHExVLMG": Extend = 0 - IF Item = 60 THEN LoadBSI FrameX, FrameY, "CHExVLSH": Extend = -20 - IF Item = 61 THEN LoadBSI FrameX, FrameY, "CHExVHOS": Extend = 60: HighPIPE = 1 - IF Frame = 1 THEN ShadowDROP = 11 ELSE ShadowDROP = 0 - LoadBSI FrameX + 12, FrameY + 44 + ShadowDROP, "CHShdoVX" - LINE (FrameX + 120, FrameY + 143 + ShadowDROP)-(FrameX + 200 + Extend, FrameY + 147 + ShadowDROP), 5, BF - DRAW "R5 H5 D5 R bU p5,5" - DeLIGHT - ShowMOUSE - Phase = 18 - CASE 62 TO 66 - IF Frame = 1 THEN TankY = 5 ELSE TankY = 0 - HideMOUSE - IF Item = 62 THEN - LoadBSI FrameX, FrameY + TankY, "CHFTnkTD" - Tank = 1: TX = 2: TY = 2 + TankY - IF Frame = 1 THEN TTY = 5 ELSE TTY = 0 - END IF - IF Item = 63 THEN - LoadBSI FrameX, FrameY, "CHFTnkSC" - TX = 4: Tank = 2: TY = 6 + TankY - TTY = 0 - END IF - IF Item = 64 THEN - LoadBSI FrameX, FrameY + TankY, "CHFTnkOS" - Tank = 3: TX = 0: TY = TankY - IF Frame = 1 THEN TTY = 4 ELSE TTY = 0 - END IF - IF Item = 65 THEN - LoadBSI FrameX, FrameY + TankY, "CHFTnkCB" - Tank = 4: TX = 10: TY = 3 + TankY - IF Frame = 1 THEN TTY = 4 ELSE TTY = 0 - END IF - IF Item = 66 THEN - LoadBSI FrameX, FrameY + TankY, "CHFTnkBR" - Tank = 5 - TX = 2 - TTY = 4 - IF Frame = 1 THEN TY = 12 ELSE TY = 7 - IF Frame = 1 THEN TTY = 4 ELSE TTY = 0 - END IF - DeLIGHT - ClearBOX - IF MotorSTYLE = 1 AND Frame = 1 THEN - Phase = 19 - ELSE - Phase = 20 - END IF - ShowMOUSE - CASE 67 TO 72 - HideMOUSE - IF Item = 67 THEN LoadBSI FrameX, FrameY, "CHOTnkHP": OT = 1 - IF Item = 68 THEN LoadBSI FrameX, FrameY, "CHOTnkHC": OT = 2 - IF Item = 69 THEN LoadBSI FrameX, FrameY, "CHOTnkCP": OT = 3 - IF Item = 70 THEN LoadBSI FrameX, FrameY, "CHOTnkCC": OT = 4 - IF Item = 71 THEN LoadBSI FrameX, FrameY, "CHOTnkBP": OT = 5 - IF Item = 72 THEN LoadBSI FrameX, FrameY, "CHOTnkBC": OT = 6 - IF HighMEG = 1 THEN - LoadBSI FrameX, FrameY, "CHExBHMG" - HighMEG = 0 - END IF - DeLIGHT - FOR x = BarX - 40 TO BarX - 10 - FOR y = BarY + 10 TO BarY + 40 - IF POINT(x, y) = 14 THEN - LightX = x - LightY = y - PSET (x, y), 15 - GOTO Continue - END IF - NEXT y - NEXT x - Continue: - ShowMOUSE - Phase = 21 - END SELECT -END IF - -EXIT SUB - -'************************* SUBROUTINE SECTION BEGINS ************************ - -FrontWHEEL: -HideMOUSE -PUT (WheelFX - 153, WheelFY - 157), Box(3200), AND -PUT (WheelFX - 153, WheelFY - 157), Box() -ShowMOUSE -RETURN - -RearWHEEL: -HideMOUSE -PUT (WheelRX + 45, WheelRY - 155), Box(3200), AND -PUT (WheelRX + 45, WheelRY - 155), Box() -DeLIGHT -ShowMOUSE -RETURN - -Transfer: -HideMOUSE -LoadIMAGE 170, 80, "CHPrepAR" -LoadIMAGE 170, 80, "CHInstW" -FFLX = Seeker(WheelFX - 153, WheelFY - 157, 0) -FFRX = Seeker(WheelFX - 153, WheelFY - 157, 1) -FFTY = Seeker(WheelFX - 153, WheelFY - 157, 2) -FFBY = Seeker(WheelFX - 153, WheelFY - 157, 3) -OPEN "ff.dat" FOR OUTPUT AS #1 -WRITE #1, FFLX + 100, FFRX - FFLX, FFTY + 100, FFBY - FFTY -FOR x = FFLX TO FFRX - FOR y = FFTY TO FFBY - IF POINT(x + 100, y + 100) = 0 THEN WRITE #1, 1 ELSE WRITE #1, 0 - NEXT y -NEXT x -CLOSE #1 -PSET (WheelFX - 43, WheelFY + 48), 5 -DRAW "R91 M+2,-5 L85 M-8,+5 R10 BU2 P5,5" -FOR x = WheelFX - 153 TO WheelFX - 43 - FOR y = WheelFY - 157 TO WheelFY - 47 - IF POINT(x, y) <> 0 THEN - IF y < WheelFY - 72 THEN - IF POINT(x + 100, y + 100) = 0 THEN - PSET (x + 100, y + 100), POINT(x, y) - END IF - ELSE - PSET (x + 100, y + 100), POINT(x, y) - END IF - PSET (x, y), 0 - END IF - NEXT y -NEXT x -RFLX = Seeker(WheelRX + 45, WheelRY - 157, 0) -RFRX = Seeker(WheelRX + 45, WheelRY - 157, 1) -RFTY = Seeker(WheelRX + 45, WheelRY - 157, 2) -RFBY = Seeker(WheelRX + 45, WheelRY - 157, 3) -OPEN "rf.dat" FOR OUTPUT AS #1 -WRITE #1, RFLX - 100, RFRX - RFLX, RFTY + 100, RFBY - RFTY -FOR x = RFLX TO RFRX - FOR y = RFTY TO RFBY - IF POINT(x - 100, y + 100) = 0 THEN WRITE #1, 1 ELSE WRITE #1, 0 - NEXT y -NEXT x -CLOSE #1 -IF Frame = 2 THEN - PSET (WheelRX - 43, WheelRY + 42), 5 -ELSE - PSET (WheelRX - 43, WheelRY + 48), 5 -END IF -DRAW "R91 M-8,-5 L88 F5 R20 BU3 P5,5" -FOR x = WheelRX + 45 TO WheelRX + 155 - FOR y = WheelRY - 155 TO WheelRY - 45 - IF POINT(x, y) <> 0 THEN - IF y < WheelRY - 72 THEN - IF POINT(x - 100, y + 100) = 0 THEN - PSET (x - 100, y + 100), POINT(x, y) - END IF - ELSE - PSET (x - 100, y + 100), POINT(x, y) - END IF - PSET (x, y), 0 - END IF - NEXT y -NEXT x -LoadIMAGE 170, 80, "CHInstW" -ShowMOUSE -Phase = 9 -RETURN - -InstallMOTOR: -HideMOUSE -PUT (FrameX + Box(0), FrameY + Box(1)), Box(3), AND -PUT (FrameX + Box(0), FrameY + Box(1)), Box(Box(2)) -IF MotorSTYLE = 1 THEN - LoadFILE "CHShdow7.BSI" - PUT (FrameX + Box(0), 251), Box(3), AND - PUT (FrameX + Box(0), 251), Box(Box(2)) -ELSE - IF Frame = 1 THEN - SELECT CASE FrameCOLOR - CASE 1: Colr1 = 6: Colr2 = 13 - CASE 2: Colr1 = 5: Colr2 = 2 - CASE 3: Colr1 = 4: Colr2 = 15 - END SELECT - PSET (FrameX + Box(0) + 32, FrameY + Box(1)), Colr1 - DRAW "U8 M+4,+2 D6 L4 BE2 P" + LTRIM$(STR$(Colr1)) + "," + LTRIM$(STR$(Colr1)) - PSET (FrameX + Box(0) + 32, FrameY + Box(1)), Colr2 - DRAW "U7" - END IF - LoadBSI FrameX, FrameY, "CHLnkage" - LoadFILE "CHShdowP.BSI" - PUT (FrameX + Box(0), 254), Box(3), AND - PUT (FrameX + Box(0), 254), Box(Box(2)) - LoadFILE "CHShdowV.BSI" - PUT (FrameX + Box(0), 254), Box(3), AND - PUT (FrameX + Box(0), 254), Box(Box(2)) -END IF -DeLIGHT -IF MotorSTYLE > 1 THEN -END IF -ShowMOUSE -Phase = 11 -RETURN - -END SUB - -SUB Assembly3 -SHARED ItemX, ItemY, Choice, Frame, Extension, FrameCOLOR -SHARED ForkX, ForkY, WheelFX, WheelFY, WheelRX, WheelRY, BarX, BarY -SHARED OuterRADIUS, InnerRADIUS, FrontINDEX, RearINDEX, FrameX, FrameY -SHARED MotorSTYLE, HighMEG, HighPIPE, OT, LightX, LightY, FenderSTYLE -SHARED FFLX, FFRX, FFTY, FFBY, RFLX, RFRX, RFTY, RFBY - -SELECT CASE Phase - CASE 22 - SELECT CASE MouseX - CASE 15 TO 114 - IF Item <> 73 THEN - DeLIGHT - ItemX = 12: ItemY = 406 - HiLIGHT - Item = 73 - END IF - CASE 115 TO 214 - IF Item <> 74 THEN - DeLIGHT - ItemX = 98: ItemY = 406 - HiLIGHT - Item = 74 - END IF - CASE 215 TO 314 - IF Item <> 75 THEN - DeLIGHT - ItemX = 200: ItemY = 406 - HiLIGHT - Item = 75 - END IF - CASE 315 TO 409 - IF Item <> 76 THEN - DeLIGHT - ItemX = 300: ItemY = 406 - HiLIGHT - Item = 76 - END IF - CASE 410 TO 519 - IF Item <> 77 THEN - DeLIGHT - ItemX = 400: ItemY = 406 - HiLIGHT - Item = 77 - END IF - CASE 520 TO 624 - IF Item <> 78 THEN - DeLIGHT - ItemX = 497: ItemY = 406 - HiLIGHT - Item = 78 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 23 - SELECT CASE MouseX - CASE 60 TO 139 - IF Item <> 79 THEN - DeLIGHT - ItemX = 20: ItemY = 394 - HiLIGHT - Item = 79 - END IF - CASE 140 TO 219 - IF Item <> 80 THEN - DeLIGHT - ItemX = 126: ItemY = 394 - HiLIGHT - Item = 80 - END IF - CASE 240 TO 319 - IF Item <> 81 THEN - DeLIGHT - ItemX = 204: ItemY = 394 - HiLIGHT - Item = 81 - END IF - CASE 320 TO 399 - IF Item <> 82 THEN - DeLIGHT - ItemX = 306: ItemY = 394 - HiLIGHT - Item = 82 - END IF - CASE 420 TO 499 - IF Item <> 83 THEN - DeLIGHT - ItemX = 386: ItemY = 394 - HiLIGHT - Item = 83 - END IF - CASE 500 TO 580 - IF Item <> 84 THEN - DeLIGHT - ItemX = 486: ItemY = 394 - HiLIGHT - Item = 84 - END IF - CASE ELSE - DeLIGHT - END SELECT - CASE 24 - SELECT CASE MouseX - CASE 125 TO 235 - IF Item <> 85 THEN - DeLIGHT - ItemX = 115: ItemY = 420 - HiLIGHT - Item = 85 - END IF - CASE 265 TO 375 - IF Item <> 86 THEN - DeLIGHT - ItemX = 255: ItemY = 420 - HiLIGHT - Item = 86 - END IF - CASE 405 TO 515 - IF Item <> 87 THEN - DeLIGHT - ItemX = 395: ItemY = 420 - HiLIGHT - Item = 87 - END IF - CASE ELSE - DeLIGHT - END SELECT -END SELECT - -IF LB = -1 AND Item <> 0 THEN - SELECT CASE Item - CASE 73 TO 78 - IF Frame = 1 THEN SeatUP = -2 ELSE SeatUP = 0 - HideMOUSE - IF Item = 73 THEN LoadBSI FrameX, FrameY + SeatUP, "CHStOSHP" - IF Item = 74 THEN LoadBSI FrameX, FrameY + SeatUP, "CHStOSHS" - IF Item = 75 THEN LoadBSI FrameX, FrameY + SeatUP, "CHStOSLP" - IF Item = 76 THEN LoadBSI FrameX, FrameY + SeatUP, "CHStOSLS" - IF Item = 77 THEN - IF Frame = 1 THEN - LoadBSI FrameX + 10, FrameY + 15, "CHStBNAR" - CIRCLE (FrameX + 156, FrameY + 64), 4, 15, 1, 3 - PSET STEP(2, -4), 3 - PSET STEP(-4, 0), 3 - ELSE - SELECT CASE FrameCOLOR - CASE 1: LoadBSI FrameX + 4, FrameY + 2, "CHStBNAP" - CASE 2: LoadBSI FrameX + 4, FrameY + 2, "CHStBNAB" - CASE 3: LoadBSI FrameX + 4, FrameY + 2, "CHStBNAC" - END SELECT - END IF - END IF - IF Item = 78 THEN - IF Frame = 1 THEN - SELECT CASE FrameCOLOR - CASE 1: LoadBSI FrameX + 8, FrameY + 4, "CHStCHPP" - CASE 2: LoadBSI FrameX + 8, FrameY + 4, "CHStCHPB" - CASE 3: LoadBSI FrameX + 8, FrameY + 4, "CHStCHPC" - END SELECT - IF OT > 4 THEN - IF OT = 5 THEN LoadBSI FrameX, FrameY, "CHOTnkBP" - IF OT = 6 THEN LoadBSI FrameX, FrameY, "CHOTnkBC" - IF HighMEG THEN LoadBSI FrameX, FrameY, "CHExBHMG" - END IF - ELSE - LoadBSI FrameX + 8, FrameY + 4, "CHStCHPE" - END IF - END IF - DeLIGHT - ShowMOUSE - Phase = 23 - CASE 79 TO 84 - HideMOUSE - IF Item = 79 THEN LoadBSI LightX, LightY, "CHHDLTLP" - IF Item = 80 THEN LoadBSI LightX, LightY, "CHHDLTLC" - IF Item = 81 THEN LoadBSI LightX, LightY, "CHHDLTSP" - IF Item = 82 THEN LoadBSI LightX, LightY, "CHHDLTSC" - IF Item = 83 THEN LoadBSI LightX, LightY, "CHHDLTCP" - IF Item = 84 THEN LoadBSI LightX, LightY, "CHHDLTCC" - DeLIGHT - ShowMOUSE - Phase = 24 - CASE 85 TO 87 - HideMOUSE - SELECT CASE FenderSTYLE - CASE 1 - IF Item = 85 THEN LoadBSI WheelRX, WheelRY, "CHTLLTSP" - IF Item = 86 THEN LoadBSI WheelRX, WheelRY, "CHTLLTSC" - IF HighPIPE = 1 THEN LoadBSI FrameX, FrameY, "CHExVHOS" - CASE 2 - IF Item = 85 THEN LoadBSI WheelRX, WheelRY, "CHTLLTCP" - IF Item = 86 THEN LoadBSI WheelRX, WheelRY, "CHTLLTCC" - CASE 3 - IF Item = 85 THEN LoadBSI WheelRX, WheelRY, "CHTLLTFP" - IF Item = 86 THEN LoadBSI WheelRX, WheelRY, "CHTLLTFC" - END SELECT - DeLIGHT - ShowMOUSE - Phase = 25 - END SELECT -END IF - -END SUB - -SUB ChopperIDE - -FOR Colr = 8 TO 14 - OUT &H3C8, Colr - OUT &H3C9, 63 - nn / 4 - OUT &H3C9, 24 - nn - OUT &H3C9, 0 - nn = nn + 4 -NEXT Colr - -DEF SEG = VARSEG(Box(0)) -FOR y = 0 TO 320 STEP 160 - FileCOUNT = FileCOUNT + 1 - FileNAME$ = "chide" + LTRIM$(STR$(FileCOUNT)) + ".bsv" - BLOAD FileNAME$, VARPTR(Box(0)) - PUT (0, y), Box() -NEXT y -DEF SEG - -END SUB - -SUB ClearBOX - -LINE (11, 295)-(628, 469), 0, BF - -END SUB - -SUB ClearMOUSE - -WHILE LB OR RB - MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB DeLIGHT -SHARED ItemX, ItemY - -IF Item THEN - HideMOUSE - PUT (ItemX, ItemY), MenuBOX(), PSET - ShowMOUSE - Item = 0 -END IF - -END SUB - -SUB FieldMOUSE (x1, y1, x2, y2) - -MouseDRIVER 7, 0, x1, x2 -MouseDRIVER 8, 0, y1, y2 - -END SUB - -SUB FourBIT (x1%, y1%, x2%, y2%, FileNAME$) - -DIM FileCOLORS%(1 TO 48) -DIM Colors4%(15) -GraphX = 314 - -FOR x = x1% TO x2% - FOR y = y1% TO y2% - Colors4%(POINT(x, y)) = 1 - NEXT y - LINE (GraphX, 323)-(GraphX, 331), 11 - IF x MOD 11 = 0 THEN GraphX = GraphX + 1 -NEXT x -FOR n = 0 TO 15 - IF Colors4%(n) = 1 THEN SigCOLORS& = SigCOLORS& + 1 -NEXT n - -FileTYPE$ = "BM" -Reserved1% = 0 -Reserved2% = 0 -OffsetBITS& = 118 -InfoHEADER& = 40 -PictureWIDTH& = x2% - x1% + 1 -PictureDEPTH& = y2% - y1% + 1 -NumPLANES% = 1 -BPP% = 4 -Compression& = 0 -WidthPELS& = 3780 -DepthPELS& = 3780 -NumCOLORS& = 16 - -IF PictureWIDTH& MOD 8 <> 0 THEN - ZeroPAD$ = SPACE$((8 - PictureWIDTH& MOD 8) \ 2) -END IF - -ImageSIZE& = (((ImageWIDTH& + LEN(ZeroPAD$)) * ImageDEPTH&) + .1) / 2 -FileSIZE& = ImageSIZE& + OffsetBITS& - -Colr = 0 -FOR n = 1 TO 48 STEP 3 - OUT &H3C7, Colr - FileCOLORS%(n) = INP(&H3C9) - FileCOLORS%(n + 1) = INP(&H3C9) - FileCOLORS%(n + 2) = INP(&H3C9) - Colr = Colr + 1 -NEXT n - -OPEN FileNAME$ FOR BINARY AS #1 - -PUT #1, , FileTYPE$ -PUT #1, , FileSIZE& -PUT #1, , Reserved1% 'should be zero -PUT #1, , Reserved2% 'should be zero -PUT #1, , OffsetBITS& -PUT #1, , InfoHEADER& -PUT #1, , PictureWIDTH& -PUT #1, , PictureDEPTH& -PUT #1, , NumPLANES% -PUT #1, , BPP% -PUT #1, , Compression& -PUT #1, , ImageSIZE& -PUT #1, , WidthPELS& -PUT #1, , DepthPELS& -PUT #1, , NumCOLORS& -PUT #1, , SigCOLORS& - -u$ = " " -FOR n% = 1 TO 46 STEP 3 - Colr$ = CHR$(FileCOLORS%(n% + 2) * 4) - PUT #1, , Colr$ - Colr$ = CHR$(FileCOLORS%(n% + 1) * 4) - PUT #1, , Colr$ - Colr$ = CHR$(FileCOLORS%(n%) * 4) - PUT #1, , Colr$ - PUT #1, , u$ 'Unused byte -NEXT n% - -FOR y = y2% TO y1% STEP -1 - FOR x = x1% TO x2% STEP 2 - HiX = POINT(x, y) - LoX = POINT(x + 1, y) - HiNIBBLE$ = HEX$(HiX) - LoNIBBLE$ = HEX$(LoX) - HexVAL$ = "&H" + HiNIBBLE$ + LoNIBBLE$ - a$ = CHR$(VAL(HexVAL$)) - PUT #1, , a$ - NEXT x - - PUT #1, , ZeroPAD$ - - IF y MOD 3 = 0 THEN - LINE (GraphX, 323)-(GraphX, 331), 11 - GraphX = GraphX + 1 - END IF - -NEXT y - -CLOSE #1 - -END SUB - -SUB HandleBARS (InOUT) -SHARED BarX, BarY, GotBOX - -IF InOUT = 0 THEN GOSUB DeBOX: EXIT SUB - -SELECT CASE MouseY - CASE 332 TO 414 - SELECT CASE MouseX - CASE 12 TO 87 - IF BarBOX <> 1 THEN - GOSUB DeBOX - BarBOX = 1 - GOSUB BoxIT - END IF - CASE 89 TO 164 - IF BarBOX <> 2 THEN - GOSUB DeBOX - BarBOX = 2 - GOSUB BoxIT - END IF - CASE 166 TO 241 - IF BarBOX <> 3 THEN - GOSUB DeBOX - BarBOX = 3 - GOSUB BoxIT - END IF - CASE 243 TO 318 - IF MouseY < 374 THEN - IF BarBOX <> 4 THEN - GOSUB DeBOX - BarBOX = 4 - GOSUB BoxIT - END IF - ELSE - IF BarBOX <> 5 THEN - GOSUB DeBOX - BarBOX = 5 - GOSUB BoxIT - END IF - END IF - CASE 320 TO 395 - IF BarBOX <> 6 THEN - GOSUB DeBOX - BarBOX = 6 - GOSUB BoxIT - END IF - CASE 397 TO 472 - IF BarBOX <> 7 THEN - GOSUB DeBOX - BarBOX = 7 - GOSUB BoxIT - END IF - CASE 474 TO 549 - IF BarBOX <> 8 THEN - GOSUB DeBOX - BarBOX = 8 - GOSUB BoxIT - END IF - CASE 551 TO 626 - IF BarBOX <> 9 THEN - GOSUB DeBOX - BarBOX = 9 - GOSUB BoxIT - END IF - END SELECT - CASE 423 TO 439 - IF MouseX > 277 AND MouseX < 349 THEN - IF LB = -1 THEN - HideMOUSE - GET (278, 423)-(358, 439), MenuBOX() - LINE (278, 423)-(358, 439), 4, BF - LINE (278, 423)-(278, 439), 3 - LINE (278, 423)-(358, 423), 3 - PrintSTRING 302, 426, "Accept" - ShowMOUSE - Interval .1 - HideMOUSE - PUT (278, 423), MenuBOX(), PSET - ShowMOUSE - IF GotBOX = 1 THEN - DeLIGHT - GOSUB DeBOX - HideMOUSE - OPEN "chcable.dat" FOR INPUT AS #1 - INPUT #1, xx, yy - FOR x = 0 TO xx - FOR y = 0 TO yy - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x + BarX - 16, y + BarY + 24) = 0 THEN - PSET (x + BarX - 16, y + BarY + 24), Colr - END IF - END IF - NEXT y - NEXT x - CLOSE #1 - ShowMOUSE - Phase = 22 - EXIT SUB - END IF - END IF - END IF - CASE ELSE - GOSUB DeBOX -END SELECT - -IF BarBOX <> 0 AND LB = -1 THEN - HideMOUSE - IF GotBOX = 1 THEN PUT (BarX - 10, BarY - 45), Box(24000), PSET: GotBOX = 0 - GET (BarX - 10, BarY - 45)-(BarX + 66, BarY + 30), Box(24000): GotBOX = 1 - SELECT CASE BarBOX - CASE 1: LoadFILE "CHBar1.BSI" - CASE 2: LoadFILE "CHBar2.BSI" - CASE 3: LoadFILE "CHBar3.BSI" - CASE 4: LoadFILE "CHBar4.BSI" - CASE 5: LoadFILE "CHBar5.BSI" - CASE 6: LoadFILE "CHBar6.BSI" - CASE 7: LoadFILE "CHBar7.BSI" - CASE 8: LoadFILE "CHBar8.BSI" - CASE 9: LoadFILE "CHBar9.BSI" - END SELECT - PUT (BarX - Box(0), BarY - Box(1)), Box(3), AND - PUT (BarX - Box(0), BarY - Box(1)), Box(Box(2)) - ShowMOUSE -END IF - -EXIT SUB - -DeBOX: -IF BarBOX THEN - HideMOUSE - SELECT CASE BarBOX - CASE 1: LINE (12, 332)-(87, 414), 3, B - CASE 2: LINE (89, 332)-(164, 414), 3, B - CASE 3: LINE (166, 332)-(241, 414), 3, B - CASE 4: LINE (243, 332)-(318, 372), 3, B - CASE 5: LINE (243, 374)-(318, 414), 3, B - CASE 6: LINE (320, 332)-(395, 414), 3, B - CASE 7: LINE (397, 332)-(472, 414), 3, B - CASE 8: LINE (474, 332)-(549, 414), 3, B - CASE 9: LINE (551, 332)-(626, 414), 3, B - END SELECT - ShowMOUSE - BarBOX = 0 -END IF -RETURN - -BoxIT: -HideMOUSE -SELECT CASE BarBOX - CASE 1: LINE (12, 332)-(87, 414), 15, B - CASE 2: LINE (89, 332)-(164, 414), 15, B - CASE 3: LINE (166, 332)-(241, 414), 15, B - CASE 4: LINE (243, 332)-(318, 372), 15, B - CASE 5: LINE (243, 374)-(318, 414), 15, B - CASE 6: LINE (320, 332)-(395, 414), 15, B - CASE 7: LINE (397, 332)-(472, 414), 15, B - CASE 8: LINE (474, 332)-(549, 414), 15, B - CASE 9: LINE (551, 332)-(626, 414), 15, B -END SELECT -ShowMOUSE -RETURN - -END SUB - -SUB HelpMENU -STATIC HelpITEM, HelpY, Instructions, CornerON - -DO - MouseSTATUS LB, RB, MouseX, MouseY - IF Instructions THEN - SELECT CASE MouseX - CASE 428 TO 456 - SELECT CASE MouseY - CASE 104 TO 118 - IF CornerON <> 1 THEN - GOSUB LightINSTR - CornerON = 1 - END IF - CASE ELSE - GOSUB DarkINSTR - END SELECT - CASE ELSE - GOSUB DarkINSTR - END SELECT - IF CornerON AND LB = -1 THEN - SELECT CASE Instructions - CASE 1 - LoadFILE "CHInstr2.BSV" - Instructions = 2 - HideMOUSE - PUT (180, 100), Box(), PSET - ShowMOUSE - ClearMOUSE - CornerON = 0 - CASE 2 - HideMOUSE - PUT (180, 100), Box(13000), PSET - ShowMOUSE - Instructions = 0 - END SELECT - END IF - ELSE - SELECT CASE MouseX - CASE 492 TO 584 - SELECT CASE MouseY - CASE 34 TO 55 - GOSUB DarkHELP - IF MouseX < 500 OR MouseX > 544 THEN GOSUB CloseHELP - CASE 56 TO 71 - IF HelpITEM <> 1 THEN - GOSUB DarkHELP - HelpY = 59 - GOSUB LightHELP - HelpITEM = 1 - END IF - CASE 72 TO 87 - IF HelpITEM <> 2 THEN - GOSUB DarkHELP - HelpY = 75 - GOSUB LightHELP - HelpITEM = 2 - END IF - CASE ELSE: GOSUB CloseHELP - END SELECT - CASE ELSE: GOSUB CloseHELP - END SELECT - IF HelpITEM > 0 AND LB = -1 THEN - SELECT CASE HelpITEM - CASE 1 - GOSUB DarkHELP - MenuITEM = 0 - MenuBAR 0 - HideMOUSE - GET (180, 100)-(460, 272), Box(13000) - LoadFILE "CHInstr1.BSV" - PUT (180, 100), Box(), PSET - ShowMOUSE - Instructions = 1 - CASE 2 - GOSUB DarkHELP - MenuITEM = 0 - MenuBAR 0 - HideMOUSE - GET (180, 100)-(460, 272), Box(13000) - LoadFILE "CHAbout.BSV" - PUT (180, 100), Box(), PSET - ShowMOUSE - Instructions = 2 - END SELECT - END IF - END IF -LOOP - -EXIT SUB - -LightHELP: -HideMOUSE -GET (498, HelpY)-(598, HelpY + 10), MenuBOX2() -FOR x = 498 TO 598 - FOR y = HelpY TO HelpY + 10 - IF POINT(x, y) = 3 THEN PSET (x, y), 15 - NEXT y -NEXT x -ShowMOUSE -RETURN - -DarkHELP: -IF HelpITEM THEN - HideMOUSE - PUT (498, HelpY), MenuBOX2(), PSET - ShowMOUSE - HelpITEM = 0 -END IF -RETURN - -LightINSTR: -HideMOUSE -FOR x = 428 TO 456 - FOR y = 104 TO 118 - IF POINT(x, y) = 3 THEN PSET (x, y), 15 - NEXT y -NEXT x -ShowMOUSE -RETURN - -DarkINSTR: -IF CornerON <> 0 THEN - HideMOUSE - FOR x = 428 TO 456 - FOR y = 104 TO 118 - IF POINT(x, y) = 15 THEN PSET (x, y), 3 - NEXT y - NEXT x - ShowMOUSE - CornerON = 0 -END IF -RETURN - -CloseHELP: -GOSUB DarkHELP -MenuITEM = 0 -MenuBAR 0 -EXIT SUB -RETURN - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -SUB HiLIGHT -SHARED ItemX, ItemY - -HideMOUSE -GET (ItemX, ItemY)-(ItemX + 130, ItemY + 10), MenuBOX() -FOR x = ItemX TO ItemX + 130 - FOR y = ItemY TO ItemY + 10 - IF POINT(x, y) <> 0 THEN PSET (x, y), 15 - NEXT y -NEXT x -ShowMOUSE - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -DEFSNG A-Z -SUB Interval (Length!) - -OldTimer# = TIMER -DO: LOOP UNTIL TIMER > OldTimer# + Length! -WAIT &H3DA, 8 - -END SUB - -DEFINT A-Z -SUB LoadBSI (x, y, FileNAME$) - -FileNAME$ = FileNAME$ + ".BSI" -LoadFILE FileNAME$ -WAIT &H3DA, 8 -PUT (x + Box(0), y + Box(1)), Box(3), AND -PUT (x + Box(0), y + Box(1)), Box(Box(2)) - -END SUB - -SUB LoadFILE (FileNAME$) - -IF INSTR(FileNAME$, ".") = 0 THEN FileNAME$ = FileNAME$ + ".BSV" -DEF SEG = VARSEG(Box(0)) -BLOAD LCASE$(FileNAME$), VARPTR(Box(0)) -DEF SEG - -END SUB - -SUB LoadIMAGE (x, y, FileNAME$) - -IF INSTR(FileNAME$, ".") = 0 THEN FileNAME$ = FileNAME$ + ".BSV" -DEF SEG = VARSEG(Box(0)) -BLOAD LCASE$(FileNAME$), VARPTR(Box(0)) -DEF SEG -WAIT &H3DA, 8 -PUT (x, y), Box() - -END SUB - -SUB LoadPHASE -STATIC ExPHASE -SHARED PX, PY, Trimmed, Style, MotorSTYLE -SHARED Frame, FrameCOLOR, Extension, FenderSTYLE, BarBOX, GotBOX - -IF Phase <> ExPHASE THEN - IF Phase = 1 THEN - HideMOUSE - LINE (20, 56)-(620, 200), 0, BF - LINE (90, 201)-(549, 280), 0, BF - LINE (90, 252)-(549, 280), 2, BF - ShowMOUSE - END IF - HideMOUSE - ClearBOX - SELECT CASE Phase - CASE 1 - BarBOX = 0: GotBOX = 0: ImageLOADED = 0 - PX = 0: PY = 0: Trimmed = 0: Style = 0 - BikeCOLOR = 3: FlameSTYLE = 1: SetPALETTE - LoadIMAGE 116, 300, "CHFrames" - CASE 2 - IF Frame = 1 THEN - LoadIMAGE 18, 300, "CHFrmCLR" - ELSE - LoadIMAGE 18, 300, "CHFrmCLX" - END IF - CASE 3 - SELECT CASE FrameCOLOR - CASE 1 - IF Frame = 1 THEN - LoadIMAGE 112, 300, "CHExtRP" - ELSE - LoadIMAGE 112, 300, "CHExtXP" - END IF - CASE 2 - IF Frame = 1 THEN - LoadIMAGE 112, 300, "CHExtRB" - ELSE - LoadIMAGE 112, 300, "CHExtXB" - END IF - CASE 3 - IF Frame = 1 THEN - LoadIMAGE 112, 300, "CHExtRC" - ELSE - LoadIMAGE 112, 300, "CHExtXC" - END IF - END SELECT - CASE 4 - SELECT CASE Extension - CASE 1: LoadIMAGE 53, 300, "CHFrksR" - CASE 2: LoadIMAGE 53, 300, "CHFrksX" - CASE 3: LoadIMAGE 20, 300, "CHFrksXX" - END SELECT - CASE 5 - LoadIMAGE 89, 312, "CHTiresF" - CASE 6 - LoadIMAGE 170, 80, "CHPrepAR" - IF Frame = 1 THEN - LoadIMAGE 89, 312, "CHTireRR" - ELSE - LoadIMAGE 89, 312, "CHTireRX" - END IF - CASE 7 - LoadIMAGE 70, 310, "CHWheels" - CASE 8 - LoadIMAGE 88, 305, "CHFndrs" - CASE 9 - LoadIMAGE 140, 320, "CHMotors" - CASE 10 - IF MotorSTYLE = 2 THEN - LoadIMAGE 144, 320, "CHMtrKCL" - ELSE - LoadIMAGE 144, 320, "CHMtrBCL" - END IF - CASE 11 - LoadIMAGE 137, 320, "CHDrives" - CASE 12 - LoadIMAGE 142, 330, "CHBDCvrs" - CASE 13 - LoadIMAGE 118, 330, "CHIntaks" - CASE 14 - LoadIMAGE 190, 320, "CHRDrvV" - CASE 15 - LoadIMAGE 102, 320, "CHRDrv7" - CASE 16 - LoadIMAGE 60, 310, "CHExBR" - CASE 17 - LoadIMAGE 42, 310, "CHExVs" - CASE 18 - LoadIMAGE 88, 320, "CHFTanks" - CASE 19 - LoadIMAGE 76, 330, "CHOTnksR" - CASE 20 - LoadIMAGE 167, 330, "CHOTnksX" - CASE 21 - LoadIMAGE 12, 310, "CHHBars" - CASE 22 - LoadIMAGE 38, 320, "CHSeats" - CASE 23 - LoadIMAGE 80, 324, "CHHDLts" - CASE 24 - SELECT CASE FenderSTYLE - CASE 1: LoadIMAGE 122, 320, "CHTLLTSS" - CASE 2: LoadIMAGE 122, 320, "CHTLLTSC" - CASE 3: LoadIMAGE 122, 320, "CHTLLTSF" - END SELECT - CASE 25 - LoadIMAGE 20, 300, "CHPaint" - END SELECT - ShowMOUSE - - ExPHASE = Phase -END IF - -END SUB - -SUB LocateMOUSE (x, y) - -LB = 4 -MX = x -MY = y -MouseDRIVER LB, 0, MX, MY - -END SUB - -SUB MenuBAR (InOUT) -STATIC MenuX, Choice, Opening, BoxX -SHARED FFLX, FFRX, FFTY, FFBY, RFLX, RFRX, RFTY, RFBY, TX, TY -SHARED FrameX, FrameY, FenderSTYLE, HighPIPE, OT, GPaint, Frame - -IF BoxX <> 0 THEN GOSUB CloseBOX -IF InOUT = 0 THEN GOSUB MenuDARK: EXIT SUB - -SELECT CASE MouseX - CASE 431 TO 464 - IF TopMENU <> 1 THEN - GOSUB MenuDARK - MenuX = 432 - GOSUB MenuLIGHT - TopMENU = 1 - END IF - CASE 513 TO 532 - IF TopMENU <> 2 THEN - GOSUB MenuDARK - MenuX = 513 - GOSUB MenuLIGHT - TopMENU = 2 - END IF - CASE 582 TO 602 - IF TopMENU <> 3 THEN - GOSUB MenuDARK - MenuX = 582 - GOSUB MenuLIGHT - TopMENU = 3 - END IF - CASE ELSE - GOSUB MenuDARK -END SELECT - -IF TopMENU AND LB = -1 THEN - SELECT CASE TopMENU - CASE 1 - HideMOUSE - GET (416, 46)-(563, 148), MenuBOX3() - LoadFILE "CHProMNU.BSV" - WAIT &H3DA, 8 - PUT (416, 46), Box(), PSET - BoxX = 416 - ShowMOUSE - MenuITEM = 1 - CASE 2 - HideMOUSE - GET (472, 46)-(598, 100), MenuBOX3() - LoadFILE "CHHlpMNU.BSV" - WAIT &H3DA, 8 - PUT (492, 46), Box(), PSET - ShowMOUSE - BoxX = 472 - MenuITEM = 2 - CASE 3: GOSUB MenuDARK: SYSTEM - END SELECT -END IF - -EXIT SUB - -MenuLIGHT: -HideMOUSE -GET (MenuX, 34)-(MenuX + 31, 44), MenuBOX() -FOR x = MenuX TO MenuX + 31 - FOR y = 34 TO 44 - IF POINT(x, y) <> 1 THEN PSET (x, y), 15 - NEXT y -NEXT x -ShowMOUSE -RETURN - -MenuDARK: -IF TopMENU THEN - HideMOUSE - PUT (MenuX, 34), MenuBOX(), PSET - TopMENU = 0 - ShowMOUSE -END IF -RETURN - -CloseBOX: -IF BoxX THEN - HideMOUSE - PUT (BoxX, 46), MenuBOX3(), PSET - ShowMOUSE - BoxX = 0 -END IF -RETURN - -END SUB - -SUB MouseDRIVER (LB, RB, MX, MY) - -DEF SEG = VARSEG(MouseDATA$) -Mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, MX, MY, Mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, MX, MY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = MX -MouseY = MY - -END SUB - -SUB PaintSHOP (Mode) -SHARED PX, PY, Trimmed, Style -SHARED FFLX, FFRX, FFTY, FFBY, RFLX, RFRX, RFTY, RFBY, TX, TY -SHARED FrameX, FrameY, FenderSTYLE, HighPIPE, OT, GPaint, Frame -SHARED WheelFX, WheelFY, WheelRX, WheelRY, Cover, Tank, TTY, TTTY - -IF Mode = 0 THEN GOSUB UnLIGHT: EXIT SUB - -SELECT CASE MouseX - CASE 82 TO 106 - SELECT CASE MouseY - CASE 353 TO 364 - IF PaintITEM <> 1 THEN - GOSUB UnLIGHT - PX = 85: PY = 356 - GOSUB LIGHT - PaintITEM = 1 - END IF - CASE 367 TO 378 - IF PaintITEM <> 2 THEN - GOSUB UnLIGHT - PX = 85: PY = 370 - GOSUB LIGHT - PaintITEM = 2 - END IF - CASE 381 TO 392 - IF PaintITEM <> 3 THEN - GOSUB UnLIGHT - PX = 85: PY = 384 - GOSUB LIGHT - PaintITEM = 3 - END IF - CASE 395 TO 406 - IF PaintITEM <> 4 THEN - GOSUB UnLIGHT - PX = 85: PY = 398 - GOSUB LIGHT - PaintITEM = 4 - END IF - CASE 409 TO 420 - IF PaintITEM <> 5 THEN - GOSUB UnLIGHT - PX = 85: PY = 412 - GOSUB LIGHT - PaintITEM = 5 - END IF - CASE ELSE - GOSUB UnLIGHT - END SELECT - CASE 172 TO 196 - SELECT CASE MouseY - CASE 353 TO 364 - IF PaintITEM <> 6 THEN - GOSUB UnLIGHT - PX = 175: PY = 356 - GOSUB LIGHT - PaintITEM = 6 - END IF - CASE 367 TO 378 - IF PaintITEM <> 7 THEN - GOSUB UnLIGHT - PX = 175: PY = 370 - GOSUB LIGHT - PaintITEM = 7 - END IF - CASE 381 TO 392 - IF PaintITEM <> 8 THEN - GOSUB UnLIGHT - PX = 175: PY = 384 - GOSUB LIGHT - PaintITEM = 8 - END IF - CASE 395 TO 406 - IF PaintITEM <> 9 THEN - GOSUB UnLIGHT - PX = 175: PY = 398 - GOSUB LIGHT - PaintITEM = 9 - END IF - CASE 409 TO 420 - IF PaintITEM <> 10 THEN - GOSUB UnLIGHT - PX = 175: PY = 412 - GOSUB LIGHT - PaintITEM = 10 - END IF - CASE ELSE - GOSUB UnLIGHT - END SELECT - CASE 304 TO 328 - SELECT CASE MouseY - CASE 353 TO 364 - IF PaintITEM <> 11 THEN - GOSUB UnLIGHT - PX = 307: PY = 356 - GOSUB LIGHT - PaintITEM = 11 - END IF - CASE 367 TO 378 - IF PaintITEM <> 12 THEN - GOSUB UnLIGHT - PX = 307: PY = 370 - GOSUB LIGHT - PaintITEM = 12 - END IF - CASE 381 TO 392 - IF PaintITEM <> 13 THEN - GOSUB UnLIGHT - PX = 307: PY = 384 - GOSUB LIGHT - PaintITEM = 13 - END IF - CASE 409 TO 420 - IF PaintITEM <> 14 THEN - GOSUB UnLIGHT - PX = 307: PY = 412 - GOSUB LIGHT - PaintITEM = 14 - END IF - CASE ELSE - GOSUB UnLIGHT - END SELECT - CASE 420 TO 444 - SELECT CASE MouseY - CASE 353 TO 364 - IF PaintITEM <> 15 THEN - GOSUB UnLIGHT - PX = 423: PY = 356 - GOSUB LIGHT - PaintITEM = 15 - END IF - CASE 367 TO 378 - IF PaintITEM <> 16 THEN - GOSUB UnLIGHT - PX = 423: PY = 370 - GOSUB LIGHT - PaintITEM = 16 - END IF - CASE 381 TO 392 - IF PaintITEM <> 17 THEN - GOSUB UnLIGHT - PX = 423: PY = 384 - GOSUB LIGHT - PaintITEM = 17 - END IF - CASE 395 TO 406 - IF PaintITEM <> 18 THEN - GOSUB UnLIGHT - PX = 423: PY = 398 - GOSUB LIGHT - PaintITEM = 18 - END IF - CASE 409 TO 420 - IF PaintITEM <> 19 THEN - GOSUB UnLIGHT - PX = 423: PY = 412 - GOSUB LIGHT - PaintITEM = 19 - END IF - CASE ELSE - GOSUB UnLIGHT - END SELECT - CASE ELSE - GOSUB UnLIGHT -END SELECT - -IF PaintITEM AND LB = -1 THEN - SELECT CASE PaintITEM - CASE 1 TO 10: BikeCOLOR = PaintITEM - 1: SetPALETTE - CASE 11 - IF Style <> 1 THEN - IF Frame = 1 AND Tank = 2 THEN TTTY = -6 - GOSUB NoTRIM - OPEN "ff.dat" FOR INPUT AS #1 - SELECT CASE FenderSTYLE - CASE 1: OPEN "ffsf.dat" FOR INPUT AS #2 - CASE 2: OPEN "ffcf.dat" FOR INPUT AS #2 - CASE 3: OPEN "ffff.dat" FOR INPUT AS #2 - END SELECT - OPEN "ffw.dat" FOR OUTPUT AS #3 - INPUT #1, x1, xx, y1, yy - WRITE #3, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - INPUT #1, Value - INPUT #2, Colr - WRITE #3, POINT(x, y) - IF Value = 1 AND Colr <> 0 THEN PSET (x, y), Colr - NEXT y - NEXT x - CLOSE #1, #2, #3 - OPEN "ftnkf.dti" FOR INPUT AS #1 - OPEN "tnkw.dat" FOR OUTPUT AS #2 - INPUT #1, x1, xx, y1, yy - x1 = FrameX + x1 + TX - y1 = FrameY + y1 + TY + TTTY - WRITE #2, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #2, POINT(x, y) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 13 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 - IF Cover THEN - OPEN "dcpb.dat" FOR INPUT AS #1 - OPEN "dcw.dat" FOR OUTPUT AS #2 - INPUT #1, x1, xx, y1, yy - x1 = FrameX + x1 - y1 = FrameY + y1 - WRITE #2, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #2, POINT(x, y) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 10 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 - END IF - GOSUB OilTANK - OPEN "rf.dat" FOR INPUT AS #1 - SELECT CASE FenderSTYLE - CASE 1 - IF OT = 5 THEN - OPEN "rfsrfb.dat" FOR INPUT AS #2 - ELSE - IF GPaint = 1 OR FenderSTYLE = 1 THEN - IF Frame = 1 THEN - OPEN "rfsrcg.dat" FOR INPUT AS #2 - ELSE - OPEN "rfsxcg.dat" FOR INPUT AS #2 - END IF - ELSE - OPEN "rfs.dat" FOR INPUT AS #2 - END IF - END IF - CASE 2 - IF OT = 5 THEN - OPEN "rfcrfb.dat" FOR INPUT AS #2 - ELSE - IF GPaint = 1 THEN - IF Frame = 1 THEN - OPEN "rfcrcg.dat" FOR INPUT AS #2 - ELSE - OPEN "rfcxcg.dat" FOR INPUT AS #2 - END IF - ELSE - OPEN "rfc.dat" FOR INPUT AS #2 - END IF - END IF - CASE 3: OPEN "rff.dat" FOR INPUT AS #2 - END SELECT - OPEN "rfw.dat" FOR OUTPUT AS #3 - INPUT #1, x1, xx, y1, yy - WRITE #3, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - INPUT #1, Value - INPUT #2, Colr - IF POINT(x, y) = 8 OR POINT(x, y) = 12 OR POINT(x, y) = 14 THEN - WRITE #3, 7 - ELSE - WRITE #3, POINT(x, y) - END IF - IF POINT(x, y) = 7 OR POINT(x, y) = 6 THEN - IF Value = 1 AND Colr <> 0 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2, #3 - Trimmed = 1 - Style = 1 - END IF - CASE 12 - IF Style <> 2 THEN - IF Frame = 1 AND Tank = 2 THEN TTTY = -6 - GOSUB NoTRIM - OPEN "ftnkf2.dti" FOR INPUT AS #1 - OPEN "tnkw.dat" FOR OUTPUT AS #2 - INPUT #1, xx, yy - x1 = FrameX + 30 + TX - y1 = FrameY + 12 + TY + TTTY - WRITE #2, x1, xx, y1, yy - FOR x = 0 TO xx - FOR y = 0 TO yy - WRITE #2, POINT(x + x1, y + y1) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x + x1, y + y1) = 6 OR POINT(x + x1, y + y1) = 7 OR POINT(x + x1, y + y1) = 13 THEN PSET (x + x1, y + y1), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 - IF Cover THEN - OPEN "drcvrf2.dti" FOR INPUT AS #1 - OPEN "cvrw.dat" FOR OUTPUT AS #2 - INPUT #1, xx, yy - x1 = FrameX + 74 - y1 = FrameY + 101 - WRITE #2, x1, xx, y1, yy - FOR x = 0 TO xx - FOR y = 0 TO yy - WRITE #2, POINT(x + x1, y + y1) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x + x1, y + y1) > 5 AND POINT(x + x1, y + y1) < 11 THEN PSET (x + x1, y + y1), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 - END IF - Style = 2 - Trimmed = 1 - END IF - CASE 13 - IF Style <> 3 THEN - GOSUB NoTRIM - SELECT CASE FenderSTYLE - CASE 1: OPEN "ffsp.dat" FOR INPUT AS #1 - CASE 2: OPEN "ffcp.dat" FOR INPUT AS #1 - CASE 3: OPEN "fffp.dat" FOR INPUT AS #1 - END SELECT - OPEN "ff.dat" FOR INPUT AS #2 - OPEN "ffw.dat" FOR OUTPUT AS #3 - INPUT #2, x1, xx, y1, yy - WRITE #3, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #3, POINT(x, y) - INPUT #1, Colr - INPUT #2, Value - IF Value = 1 THEN - IF Colr <> 0 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2, #3 - IF Frame = 1 THEN - OPEN "dtr.dat" FOR INPUT AS #1 - ELSE - OPEN "dtx.dat" FOR INPUT AS #1 - END IF - OPEN "dtw.dat" FOR OUTPUT AS #2 - INPUT #1, x1, xx, y1, yy - x1 = FrameX + x1 - y1 = FrameY + y1 - WRITE #2, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #2, POINT(x, y) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 13 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 - SELECT CASE Tank - CASE 1: OPEN "ftnktdp.dat" FOR INPUT AS #1 - CASE 2: OPEN "ftnkscp.dat" FOR INPUT AS #1 - CASE 3: OPEN "ftnkosp.dat" FOR INPUT AS #1 - CASE 4: OPEN "ftnkcbp.dat" FOR INPUT AS #1 - CASE 5: OPEN "ftnkbrp.dat" FOR INPUT AS #1 - END SELECT - OPEN "tnkw.dat" FOR OUTPUT AS #2 - INPUT #1, x1, xx, y1, yy - x1 = x1 + FrameX - y1 = y1 + FrameY + TTY - WRITE #2, x1, xx, y1, yy - HideMOUSE - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #2, POINT(x, y) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 13 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - ShowMOUSE - CLOSE #1, #2 - IF Cover THEN - OPEN "dcpb.dat" FOR INPUT AS #1 - OPEN "dcw.dat" FOR OUTPUT AS #2 - INPUT #1, x1, xx, y1, yy - x1 = FrameX + x1 - y1 = FrameY + y1 - WRITE #2, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #2, POINT(x, y) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 10 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 - END IF - GOSUB OilTANK - SELECT CASE FenderSTYLE - CASE 1: OPEN "rfsp.dat" FOR INPUT AS #1 - CASE 2: OPEN "rfcp.dat" FOR INPUT AS #1 - CASE 3: OPEN "rffp.dat" FOR INPUT AS #1 - END SELECT - OPEN "rf.dat" FOR INPUT AS #2 - OPEN "rfw.dat" FOR OUTPUT AS #3 - INPUT #2, x1, xx, y1, yy - WRITE #3, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - IF POINT(x, y) = 8 OR POINT(x, y) = 12 OR POINT(x, y) = 14 THEN - WRITE #3, 7 - ELSE - WRITE #3, POINT(x, y) - END IF - INPUT #1, Colr - INPUT #2, Value - IF Value = 1 THEN - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 13 THEN PSET (x, y), Colr - END IF - END IF - NEXT y - NEXT x - CLOSE #1, #2, #3 - Style = 3 - Trimmed = 1 - END IF - CASE 14 - GOSUB NoTRIM - CASE 15: FlameSTYLE = 1: SetPALETTE - CASE 16: FlameSTYLE = 0: SetPALETTE - CASE 17: FlameSTYLE = 2: SetPALETTE - CASE 18: FlameSTYLE = 3: SetPALETTE - CASE 19: FlameSTYLE = 4: SetPALETTE - END SELECT -END IF - -EXIT SUB - -UnLIGHT: -IF PaintITEM THEN - HideMOUSE - PUT (PX, PY), MenuBOX(), PSET - ShowMOUSE - PaintITEM = 0 -END IF -RETURN - -LIGHT: -HideMOUSE -GET (PX, PY)-(PX + 18, PY + 5), MenuBOX() -LINE (PX + 1, PY + 1)-(PX + 17, PY + 4), 15, BF -ShowMOUSE -RETURN - -NoTRIM: -IF Trimmed THEN - SELECT CASE Style - CASE 1 - HideMOUSE - OPEN "ffw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - OPEN "tnkw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - IF Cover THEN - OPEN "dcw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - END IF - IF OT = 1 OR OT = 3 OR OT = 5 THEN - OPEN "otw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - END IF - OPEN "rfw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - ShowMOUSE - CASE 2 - HideMOUSE - OPEN "tnkw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - IF Cover THEN - OPEN "dcw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - END IF - IF OT = 1 OR OT = 3 OR OT = 5 THEN - OPEN "otw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - END IF - ShowMOUSE - CASE 3 - HideMOUSE - OPEN "ffw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - OPEN "dtw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - OPEN "tnkw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - IF Cover THEN - OPEN "dcw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - END IF - IF OT = 1 OR OT = 3 OR OT = 5 THEN - OPEN "otw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - END IF - OPEN "rfw.dat" FOR INPUT AS #1 - GOSUB FileDAT - CLOSE #1 - ShowMOUSE - END SELECT - Trimmed = 0 - Style = 0 -END IF -RETURN - -OilTANK: -IF OT = 1 OR OT = 3 OR OT = 5 THEN - IF OT = 1 THEN - OPEN "oth.dat" FOR INPUT AS #1 - INPUT #1, x1, xx, y1, yy - END IF - IF OT = 3 THEN - OPEN "otc.dat" FOR INPUT AS #1 - INPUT #1, x1, xx, y1, yy - END IF - IF OT = 5 THEN - OPEN "otbp.dat" FOR INPUT AS #1 - INPUT #1, x1, xx, y1, yy - END IF - OPEN "otw.dat" FOR OUTPUT AS #2 - x1 = FrameX + x1 - y1 = FrameY + y1 - WRITE #2, x1, xx, y1, yy - FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - WRITE #2, POINT(x, y) - INPUT #1, Colr - IF Colr <> 0 THEN - IF POINT(x, y) = 6 OR POINT(x, y) = 7 OR POINT(x, y) = 13 THEN PSET (x, y), Colr - END IF - NEXT y - NEXT x - CLOSE #1, #2 -END IF -RETURN - -FileDAT: -INPUT #1, x1, xx, y1, yy -FOR x = x1 TO x1 + xx - FOR y = y1 TO y1 + yy - INPUT #1, Colr - PSET (x, y), Colr - NEXT y -NEXT x -RETURN - -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) - - -SHARED Key$ - -DO - Key$ = UCASE$(INKEY$) - MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PrintSTRING (x, y, Prnt$) - -DEF SEG = VARSEG(Box(0)) -BLOAD "chmssr.fbs", VARPTR(Box(0)) -DEF SEG - -FOR i = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, i, 1) - IF Char$ = " " THEN - x = x + Box(1) - ELSE - Index = (ASC(Char$) - 33) * Box(0) + 2 - PUT (x, y), Box(Index) - x = x + Box(Index) - END IF -NEXT i - -END SUB - -SUB ProjectMENU -STATIC ProITEM, ProY - -DO - MouseSTATUS LB, RB, MouseX, MouseY - SELECT CASE MouseX - CASE 423 TO 552 - SELECT CASE MouseY - CASE 34 TO 55 - GOSUB DarkPRO - IF MouseX > 464 THEN GOSUB ClosePRO - CASE 56 TO 71 - IF ProITEM <> 1 THEN - GOSUB DarkPRO - ProY = 59 - GOSUB LightPRO - ProITEM = 1 - END IF - CASE 72 TO 87 - IF ProITEM <> 2 THEN - GOSUB DarkPRO - ProY = 75 - GOSUB LightPRO - ProITEM = 2 - END IF - CASE ELSE: GOSUB ClosePRO - END SELECT - CASE ELSE: GOSUB ClosePRO - END SELECT - - IF ProITEM <> 0 AND LB = -1 THEN - SELECT CASE ProITEM - CASE 1 - Phase = 1 - GOSUB ClosePRO - CASE 2 - GOSUB DarkPRO - MenuITEM = 0 - MenuBAR 0 - HideMOUSE - GET (178, 60)-(460, 152), Box(10000) - LoadFILE "CHSaveBM.BSV" - PUT (178, 60), Box(), PSET - ShowMOUSE - GOSUB GetNAME - HideMOUSE - PUT (178, 60), Box(10000), PSET - ShowMOUSE - IF LEN(FileNAME$) THEN - FileNAME$ = LTRIM$(RTRIM$(FileNAME$)) - IF INSTR(FileNAME$, " ") OR LEN(FileNAME$) > 8 THEN - LongNAME = 1 - LongFILENAME$ = FileNAME$ + ".BMP" - FOR n = 1 TO LEN(FileNAME$) - Char$ = MID$(FileNAME$, n, 1) - IF Char$ <> " " THEN NewFILENAME$ = NewFILENAME$ + Char$ - NEXT n - FileNAME$ = RTRIM$(LEFT$(NewFILENAME$, 6)) + "~1" - FileNAME$ = FileNAME$ + ".TBM" - ELSE - FileNAME$ = FileNAME$ + ".BMP" - END IF - HideMOUSE - GET (90, 250)-(549, 348), Box(5000) - LINE (90, 250)-(100, 310), 0, BF - LINE (539, 250)-(549, 310), 0, BF - LINE (90, 285)-(549, 310), 0, BF - LINE (95, 55)-(544, 305), 3, B - LINE (115, 310)-(524, 348), 0, BF - LoadFILE "CHGenBMP.BSV" - PUT (90, 310), Box(), PSET - - FourBIT 90, 50, 549, 310, FileNAME$ - - LINE (95, 55)-(544, 305), 0, B - PUT (90, 250), Box(5000), PSET - ShowMOUSE - IF LongNAME = 1 THEN - SHELL "REN " + FileNAME$ + " TMP.TBM" - SHELL "REN TMP.TBM " + CHR$(34) + LongFILENAME$ + CHR$(34) - LongNAME = 0 - END IF - END IF - EXIT SUB - END SELECT - END IF - -LOOP - -EXIT SUB - -LightPRO: -HideMOUSE -GET (430, ProY)-(560, ProY + 10), MenuBOX2() -FOR x = 430 TO 560 - FOR y = ProY TO ProY + 10 - IF POINT(x, y) = 3 THEN PSET (x, y), 15 - NEXT y -NEXT x -ShowMOUSE -RETURN - -DarkPRO: -IF ProITEM THEN - HideMOUSE - PUT (430, ProY), MenuBOX2(), PSET - ShowMOUSE - ProITEM = 0 -END IF -RETURN - -ClosePRO: -GOSUB DarkPRO -MenuITEM = 0 -MenuBAR 0 -EXIT SUB -RETURN - -GetNAME: -CheckCHAR$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz " -n$ = "": ky$ = "": PrintX = 242: CharNUM = 1 - -DO - MouseSTATUS LB, RB, MouseX, MouseY - ky$ = INKEY$ - LINE (PrintX + 2, 118)-(PrintX + 2, 128), 5 - IF LEN(ky$) THEN - SELECT CASE ASC(ky$) - CASE 8 - IF LEN(n$) > 0 THEN - HideMOUSE - CharNUM = CharNUM - 1 - LINE (FChar(CharNUM), 118)-(PrintX + 2, 129), 15, BF - PrintX = FChar(CharNUM) - n$ = MID$(n$, 1, LEN(n$) - 1) - LINE (PrintX + 2, 118)-(PrintX + 2, 128), 5 - ShowMOUSE - END IF - CASE 13 - FileNAME$ = n$ - n$ = "" - ky$ = "" - RETURN - CASE ELSE - IF INSTR(CheckCHAR$, ky$) THEN - IF PrintX < 390 THEN - FChar(CharNUM) = PrintX - CharNUM = CharNUM + 1 - HideMOUSE - LINE (PrintX + 2, 118)-(PrintX + 2, 128), 15 - PrintSTRING PrintX, 118, ky$ - LINE (PrintX + 2, 118)-(PrintX + 2, 128), 5 - ShowMOUSE - n$ = n$ + ky$ - END IF - END IF - END SELECT - END IF -LOOP -RETURN - -END SUB - -FUNCTION Seeker (x, y, Mode) - -SELECT CASE Mode - CASE 0 'left side - FOR xx = x TO x + 140 - FOR yy = y TO y + 100 - IF POINT(xx, yy) = 6 OR POINT(xx, yy) = 7 THEN Seeker = xx: EXIT FUNCTION - NEXT yy - NEXT xx - CASE 1 'right side - FOR xx = x + 140 TO x STEP -1 - FOR yy = y TO y + 100 - IF POINT(xx, yy) = 6 OR POINT(xx, yy) = 7 THEN Seeker = xx: EXIT FUNCTION - NEXT yy - NEXT xx - CASE 2 'top - FOR yy = y TO y + 100 - FOR xx = x TO x + 140 - IF POINT(xx, yy) = 6 OR POINT(xx, yy) = 7 THEN Seeker = yy: EXIT FUNCTION - NEXT xx - NEXT yy - CASE 3 'bottom - FOR yy = y + 100 TO y STEP -1 - FOR xx = x TO x + 140 - IF POINT(xx, yy) = 6 OR POINT(xx, yy) = 7 THEN Seeker = yy: EXIT FUNCTION - NEXT xx - NEXT yy -END SELECT - -END FUNCTION - -SUB SetPALETTE - -RESTORE PaletteDATA -OUT &H3C8, 0 -FOR n = 1 TO 18 - READ Colr - OUT &H3C9, Colr -NEXT n - -RESTORE CustomCOLORS -REDIM Colors(6) -FOR n = 0 TO 6 - READ Colors(n) -NEXT n - -CColor = 0 -FOR n = 0 TO 6 - OUT &H3C8, Colors(n) - FOR i = 1 TO 3 - OUT &H3C9, CustomCOLORS(BikeCOLOR, CColor) - CColor = CColor + 1 - NEXT i -NEXT n - -IF FlameSTYLE THEN - SELECT CASE FlameSTYLE - CASE 1: RESTORE FlameCOLOR - CASE 2: RESTORE SilverCOLOR - CASE 3: RESTORE GoldCOLOR - CASE 4: RESTORE WhiteCOLOR - END SELECT - OUT &H3C8, 8 - FOR i = 1 TO 3 - READ Colr: OUT &H3C9, Colr - NEXT i - OUT &H3C8, 12 - FOR i = 1 TO 3 - READ Colr: OUT &H3C9, Colr - NEXT i - OUT &H3C8, 14 - FOR i = 1 TO 3 - READ Colr: OUT &H3C9, Colr - NEXT i -END IF - -OUT &H3C8, 9: OUT &H3C9, 21: OUT &H3C9, 21: OUT &H3C9, 63 -OUT &H3C8, 11: OUT &H3C9, 63: OUT &H3C9, 0: OUT &H3C9, 0 - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB - -SUB Tire (x, y, Outer, Inner) - -CIRCLE (x, y), Outer, 2 -CIRCLE STEP(0, 0), Inner, 2 -PaintSPOT = Outer - 4 -PAINT (x, y - PaintSPOT), 1, 2 -CIRCLE (x, y), Outer, 1 -CIRCLE (x, y), Outer - 1, 2, 30 * Degree!, 210 * Degree! -CIRCLE (x, y), Outer - 3, 2, 30 * Degree!, 210 * Degree! -Tread x, y, Outer - 1, 120, 300, 5 -Tread x, y, Outer - 3, 120, 300, 5 -Tread x, y, Outer - 1, 300, 475, 2 -Tread x, y, Outer - 3, 300, 475, 2 -IF Outer - Inner > 14 THEN - CIRCLE (x, y), Outer - 6, 2, 30 * Degree!, 210 * Degree! - Tread x, y, Outer - 6, 120, 300, 5 - Tread x, y, Outer - 6, 300, 475, 2 -END IF - -END SUB - -SUB Tread (x, y, Radius, StartDEG, StopDEG, Colr) - -FOR n = StartDEG TO StopDEG STEP 5 - Adj = Radius * SIN(n * Degree!) - Opp = Radius * COS(n * Degree!) - PSET (x + Adj, y + Opp), Colr -NEXT n - -END SUB - diff --git a/programs/samples/thebob/chopper/chopper.ico b/programs/samples/thebob/chopper/chopper.ico deleted file mode 100644 index 27a619191..000000000 Binary files a/programs/samples/thebob/chopper/chopper.ico and /dev/null differ diff --git a/programs/samples/thebob/chopper/chops.dat b/programs/samples/thebob/chopper/chops.dat deleted file mode 100644 index 50bbd9aea..000000000 --- a/programs/samples/thebob/chopper/chops.dat +++ /dev/null @@ -1,68 +0,0 @@ -CHBDCVRS.BSV -CHCOLORS.BSV -CHDRIVES.BSV -CHDRVCBS.BSV -CHDRVCPS.BSV -CHEXBR.BSV -CHEXTRB.BSV -CHEXTRC.BSV -CHEXTRP.BSV -CHEXTXB.BSV -CHEXTXC.BSV -CHEXTXP.BSV -CHEXVS.BSV -chfndrFC.BSV -chfndrFF.BSV -chfndrFS.BSV -chfndrRC.BSV -chfndrRF.BSV -chfndrRS.BSV -CHFNDRS.BSV -CHFRAMES.BSV -CHFRKSR.BSV -CHFRKSX.BSV -CHFRKSXX.BSV -CHFRMCLR.BSV -CHFRMCLX.BSV -CHFRMRB.BSV -CHFRMRC.BSV -CHFRMRP.BSV -CHFRMXB.BSV -CHFRMXC.BSV -CHFRMXP.BSV -CHFTANKS.BSV -CHHBARS.BSV -CHHDLTS.BSV -CHIDE1.BSV -CHIDE2.BSV -CHIDE3.BSV -CHINSTW.BSV -CHINTAKS.BSV -CHMAG1.BSV -CHMAG2.BSV -CHMAG3.BSV -CHMAG4.BSV -CHMOTORS.BSV -CHMTRBCL.BSV -CHMTRKCL.BSV -CHNKRB.BSV -CHNKRC.BSV -CHNKRP.BSV -CHNKXB.BSV -CHNKXC.BSV -CHNKXP.BSV -CHNKXXB.BSV -CHNKXXC.BSV -CHNKXXP.BSV -CHOTNKSR.BSV -CHOTNKSX.BSV -CHPREPAR.BSV -CHRDRV7.BSV -CHRDRVV.BSV -CHROTOR.BSV -CHSEATS.BSV -CHSPOKES.BSV -CHTIRERR.BSV -CHTIRERX.BSV -CHTIRESF.BSV -CHWHEELS.BSV diff --git a/programs/samples/thebob/chopper/chotnkbc.bsi b/programs/samples/thebob/chopper/chotnkbc.bsi deleted file mode 100644 index 1e73d1fbb..000000000 Binary files a/programs/samples/thebob/chopper/chotnkbc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnkbp.bsi b/programs/samples/thebob/chopper/chotnkbp.bsi deleted file mode 100644 index afc5fd2b9..000000000 Binary files a/programs/samples/thebob/chopper/chotnkbp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnkcc.bsi b/programs/samples/thebob/chopper/chotnkcc.bsi deleted file mode 100644 index 2dbb0f600..000000000 Binary files a/programs/samples/thebob/chopper/chotnkcc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnkcp.bsi b/programs/samples/thebob/chopper/chotnkcp.bsi deleted file mode 100644 index a177b3bf9..000000000 Binary files a/programs/samples/thebob/chopper/chotnkcp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnkhc.bsi b/programs/samples/thebob/chopper/chotnkhc.bsi deleted file mode 100644 index 8199e9cd0..000000000 Binary files a/programs/samples/thebob/chopper/chotnkhc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnkhp.bsi b/programs/samples/thebob/chopper/chotnkhp.bsi deleted file mode 100644 index 743a42354..000000000 Binary files a/programs/samples/thebob/chopper/chotnkhp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnksr.bsv b/programs/samples/thebob/chopper/chotnksr.bsv deleted file mode 100644 index 7cfe81d09..000000000 Binary files a/programs/samples/thebob/chopper/chotnksr.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chotnksx.bsv b/programs/samples/thebob/chopper/chotnksx.bsv deleted file mode 100644 index 8a1e1ed9c..000000000 Binary files a/programs/samples/thebob/chopper/chotnksx.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chpaint.bsv b/programs/samples/thebob/chopper/chpaint.bsv deleted file mode 100644 index e70749ffc..000000000 Binary files a/programs/samples/thebob/chopper/chpaint.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chprepar.bsv b/programs/samples/thebob/chopper/chprepar.bsv deleted file mode 100644 index 8cf5eebd3..000000000 Binary files a/programs/samples/thebob/chopper/chprepar.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chpromnu.bsv b/programs/samples/thebob/chopper/chpromnu.bsv deleted file mode 100644 index 94e8822bd..000000000 Binary files a/programs/samples/thebob/chopper/chpromnu.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrr7c.bsi b/programs/samples/thebob/chopper/chrdrr7c.bsi deleted file mode 100644 index cf8aa7edc..000000000 Binary files a/programs/samples/thebob/chopper/chrdrr7c.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrr7o.bsi b/programs/samples/thebob/chopper/chrdrr7o.bsi deleted file mode 100644 index 272fef141..000000000 Binary files a/programs/samples/thebob/chopper/chrdrr7o.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrr7p.bsi b/programs/samples/thebob/chopper/chrdrr7p.bsi deleted file mode 100644 index 43592c75f..000000000 Binary files a/programs/samples/thebob/chopper/chrdrr7p.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrrvb.bsi b/programs/samples/thebob/chopper/chrdrrvb.bsi deleted file mode 100644 index 0c1d1b336..000000000 Binary files a/programs/samples/thebob/chopper/chrdrrvb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrrvc.bsi b/programs/samples/thebob/chopper/chrdrrvc.bsi deleted file mode 100644 index f4d125c4c..000000000 Binary files a/programs/samples/thebob/chopper/chrdrrvc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrv7.bsv b/programs/samples/thebob/chopper/chrdrv7.bsv deleted file mode 100644 index a9b763dcb..000000000 Binary files a/programs/samples/thebob/chopper/chrdrv7.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrvv.bsv b/programs/samples/thebob/chopper/chrdrvv.bsv deleted file mode 100644 index 6243228af..000000000 Binary files a/programs/samples/thebob/chopper/chrdrvv.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrx7c.bsi b/programs/samples/thebob/chopper/chrdrx7c.bsi deleted file mode 100644 index 352ff0aad..000000000 Binary files a/programs/samples/thebob/chopper/chrdrx7c.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrx7o.bsi b/programs/samples/thebob/chopper/chrdrx7o.bsi deleted file mode 100644 index 15cf140b3..000000000 Binary files a/programs/samples/thebob/chopper/chrdrx7o.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrx7p.bsi b/programs/samples/thebob/chopper/chrdrx7p.bsi deleted file mode 100644 index 64b9751c2..000000000 Binary files a/programs/samples/thebob/chopper/chrdrx7p.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrxvb.bsi b/programs/samples/thebob/chopper/chrdrxvb.bsi deleted file mode 100644 index cd334c85f..000000000 Binary files a/programs/samples/thebob/chopper/chrdrxvb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrdrxvc.bsi b/programs/samples/thebob/chopper/chrdrxvc.bsi deleted file mode 100644 index 3bedf6deb..000000000 Binary files a/programs/samples/thebob/chopper/chrdrxvc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chrotor.bsv b/programs/samples/thebob/chopper/chrotor.bsv deleted file mode 100644 index 8e745cc24..000000000 Binary files a/programs/samples/thebob/chopper/chrotor.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsavebm.bsv b/programs/samples/thebob/chopper/chsavebm.bsv deleted file mode 100644 index 52eaaa358..000000000 Binary files a/programs/samples/thebob/chopper/chsavebm.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chseats.bsv b/programs/samples/thebob/chopper/chseats.bsv deleted file mode 100644 index c578c8938..000000000 Binary files a/programs/samples/thebob/chopper/chseats.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chshdo7x.bsi b/programs/samples/thebob/chopper/chshdo7x.bsi deleted file mode 100644 index 1000d58a0..000000000 Binary files a/programs/samples/thebob/chopper/chshdo7x.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chshdovx.bsi b/programs/samples/thebob/chopper/chshdovx.bsi deleted file mode 100644 index 1d99dece2..000000000 Binary files a/programs/samples/thebob/chopper/chshdovx.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chshdow7.bsi b/programs/samples/thebob/chopper/chshdow7.bsi deleted file mode 100644 index 04441552e..000000000 Binary files a/programs/samples/thebob/chopper/chshdow7.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chshdowd.bsi b/programs/samples/thebob/chopper/chshdowd.bsi deleted file mode 100644 index d076262cf..000000000 Binary files a/programs/samples/thebob/chopper/chshdowd.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chshdowp.bsi b/programs/samples/thebob/chopper/chshdowp.bsi deleted file mode 100644 index e44485f8c..000000000 Binary files a/programs/samples/thebob/chopper/chshdowp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chshdowv.bsi b/programs/samples/thebob/chopper/chshdowv.bsi deleted file mode 100644 index 8fb9bb1e9..000000000 Binary files a/programs/samples/thebob/chopper/chshdowv.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chspokes.bsv b/programs/samples/thebob/chopper/chspokes.bsv deleted file mode 100644 index ff7e7b152..000000000 Binary files a/programs/samples/thebob/chopper/chspokes.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsprrc.bsi b/programs/samples/thebob/chopper/chsprrc.bsi deleted file mode 100644 index 01f37921a..000000000 Binary files a/programs/samples/thebob/chopper/chsprrc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsprrp.bsi b/programs/samples/thebob/chopper/chsprrp.bsi deleted file mode 100644 index dd2466133..000000000 Binary files a/programs/samples/thebob/chopper/chsprrp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsprxc.bsi b/programs/samples/thebob/chopper/chsprxc.bsi deleted file mode 100644 index 138c38a66..000000000 Binary files a/programs/samples/thebob/chopper/chsprxc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsprxp.bsi b/programs/samples/thebob/chopper/chsprxp.bsi deleted file mode 100644 index 09eb2d01b..000000000 Binary files a/programs/samples/thebob/chopper/chsprxp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsprxxc.bsi b/programs/samples/thebob/chopper/chsprxxc.bsi deleted file mode 100644 index 89ec07c4a..000000000 Binary files a/programs/samples/thebob/chopper/chsprxxc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chsprxxp.bsi b/programs/samples/thebob/chopper/chsprxxp.bsi deleted file mode 100644 index 1e9ce36a7..000000000 Binary files a/programs/samples/thebob/chopper/chsprxxp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstbnab.bsi b/programs/samples/thebob/chopper/chstbnab.bsi deleted file mode 100644 index 01b1dd4d5..000000000 Binary files a/programs/samples/thebob/chopper/chstbnab.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstbnac.bsi b/programs/samples/thebob/chopper/chstbnac.bsi deleted file mode 100644 index 0b6968281..000000000 Binary files a/programs/samples/thebob/chopper/chstbnac.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstbnap.bsi b/programs/samples/thebob/chopper/chstbnap.bsi deleted file mode 100644 index 02788cb68..000000000 Binary files a/programs/samples/thebob/chopper/chstbnap.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstbnar.bsi b/programs/samples/thebob/chopper/chstbnar.bsi deleted file mode 100644 index 2b0949515..000000000 Binary files a/programs/samples/thebob/chopper/chstbnar.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstchpb.bsi b/programs/samples/thebob/chopper/chstchpb.bsi deleted file mode 100644 index e55e19e11..000000000 Binary files a/programs/samples/thebob/chopper/chstchpb.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstchpc.bsi b/programs/samples/thebob/chopper/chstchpc.bsi deleted file mode 100644 index 7bdd157dc..000000000 Binary files a/programs/samples/thebob/chopper/chstchpc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstchpe.bsi b/programs/samples/thebob/chopper/chstchpe.bsi deleted file mode 100644 index 09c2c1f08..000000000 Binary files a/programs/samples/thebob/chopper/chstchpe.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstchpp.bsi b/programs/samples/thebob/chopper/chstchpp.bsi deleted file mode 100644 index f2f953926..000000000 Binary files a/programs/samples/thebob/chopper/chstchpp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstoshp.bsi b/programs/samples/thebob/chopper/chstoshp.bsi deleted file mode 100644 index 8642275c3..000000000 Binary files a/programs/samples/thebob/chopper/chstoshp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstoshs.bsi b/programs/samples/thebob/chopper/chstoshs.bsi deleted file mode 100644 index 8bfd3ad5c..000000000 Binary files a/programs/samples/thebob/chopper/chstoshs.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstoslp.bsi b/programs/samples/thebob/chopper/chstoslp.bsi deleted file mode 100644 index 68723e950..000000000 Binary files a/programs/samples/thebob/chopper/chstoslp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chstosls.bsi b/programs/samples/thebob/chopper/chstosls.bsi deleted file mode 100644 index 42d0926c3..000000000 Binary files a/programs/samples/thebob/chopper/chstosls.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtirerr.bsv b/programs/samples/thebob/chopper/chtirerr.bsv deleted file mode 100644 index 777776acf..000000000 Binary files a/programs/samples/thebob/chopper/chtirerr.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtirerx.bsv b/programs/samples/thebob/chopper/chtirerx.bsv deleted file mode 100644 index 02ba93b7a..000000000 Binary files a/programs/samples/thebob/chopper/chtirerx.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtiresf.bsv b/programs/samples/thebob/chopper/chtiresf.bsv deleted file mode 100644 index ea531e749..000000000 Binary files a/programs/samples/thebob/chopper/chtiresf.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltcc.bsi b/programs/samples/thebob/chopper/chtlltcc.bsi deleted file mode 100644 index b6e07fbf2..000000000 Binary files a/programs/samples/thebob/chopper/chtlltcc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltcp.bsi b/programs/samples/thebob/chopper/chtlltcp.bsi deleted file mode 100644 index ede257948..000000000 Binary files a/programs/samples/thebob/chopper/chtlltcp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltfc.bsi b/programs/samples/thebob/chopper/chtlltfc.bsi deleted file mode 100644 index b804f8dbb..000000000 Binary files a/programs/samples/thebob/chopper/chtlltfc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltfp.bsi b/programs/samples/thebob/chopper/chtlltfp.bsi deleted file mode 100644 index e6f056ec1..000000000 Binary files a/programs/samples/thebob/chopper/chtlltfp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltsc.bsi b/programs/samples/thebob/chopper/chtlltsc.bsi deleted file mode 100644 index cccb079ad..000000000 Binary files a/programs/samples/thebob/chopper/chtlltsc.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltsc.bsv b/programs/samples/thebob/chopper/chtlltsc.bsv deleted file mode 100644 index 13d7d0dec..000000000 Binary files a/programs/samples/thebob/chopper/chtlltsc.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltsf.bsv b/programs/samples/thebob/chopper/chtlltsf.bsv deleted file mode 100644 index 8adae2761..000000000 Binary files a/programs/samples/thebob/chopper/chtlltsf.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltsp.bsi b/programs/samples/thebob/chopper/chtlltsp.bsi deleted file mode 100644 index 380af1ac8..000000000 Binary files a/programs/samples/thebob/chopper/chtlltsp.bsi and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtlltss.bsv b/programs/samples/thebob/chopper/chtlltss.bsv deleted file mode 100644 index 536cd3cf5..000000000 Binary files a/programs/samples/thebob/chopper/chtlltss.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chtrims.bsv b/programs/samples/thebob/chopper/chtrims.bsv deleted file mode 100644 index 36aa2ed02..000000000 Binary files a/programs/samples/thebob/chopper/chtrims.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/chwheels.bsv b/programs/samples/thebob/chopper/chwheels.bsv deleted file mode 100644 index fb5c3d638..000000000 Binary files a/programs/samples/thebob/chopper/chwheels.bsv and /dev/null differ diff --git a/programs/samples/thebob/chopper/dcpb.dat b/programs/samples/thebob/chopper/dcpb.dat deleted file mode 100644 index 405929ff1..000000000 --- a/programs/samples/thebob/chopper/dcpb.dat +++ /dev/null @@ -1,1177 +0,0 @@ -71,55,95,20 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/drcvrf2.dti b/programs/samples/thebob/chopper/drcvrf2.dti deleted file mode 100644 index 765f0ca14..000000000 --- a/programs/samples/thebob/chopper/drcvrf2.dti +++ /dev/null @@ -1,483 +0,0 @@ -39,11 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -0 -0 -0 -0 -0 -12 -12 -14 -8 -8 -12 -12 -0 -0 -0 -0 -0 -12 -14 -14 -8 -8 -8 -12 -12 -12 -0 -0 -12 -12 -14 -8 -8 -8 -8 -8 -8 -12 -12 -0 -12 -12 -8 -8 -8 -8 -8 -8 -8 -8 -12 -0 -12 -14 -8 -8 -8 -8 -8 -14 -14 -8 -12 -0 -12 -14 -8 -8 -8 -8 -14 -14 -12 -14 -12 -12 -12 -8 -8 -8 -8 -8 -14 -12 -12 -12 -14 -12 -12 -8 -8 -14 -8 -8 -14 -12 -12 -12 -12 -12 -12 -8 -8 -14 -8 -8 -14 -14 -12 -12 -0 -12 -12 -8 -14 -14 -8 -8 -14 -14 -12 -12 -0 -0 -12 -8 -14 -12 -14 -8 -14 -14 -12 -12 -0 -0 -12 -12 -12 -12 -14 -8 -14 -14 -12 -12 -0 -0 -0 -12 -12 -12 -14 -8 -14 -14 -8 -12 -0 -0 -0 -12 -12 -12 -14 -8 -14 -14 -8 -12 -12 -0 -0 -12 -0 -12 -14 -8 -14 -14 -8 -12 -12 -0 -0 -12 -0 -12 -14 -8 -14 -14 -14 -12 -12 -0 -0 -12 -0 -12 -14 -8 -14 -14 -14 -12 -12 -0 -0 -0 -0 -12 -14 -14 -14 -14 -14 -12 -12 -0 -0 -0 -0 -12 -14 -14 -14 -14 -12 -12 -0 -0 -0 -0 -0 -12 -14 -14 -12 -14 -12 -12 -0 -0 -0 -0 -12 -8 -14 -12 -14 -14 -12 -12 -0 -0 -0 -0 -12 -8 -14 -12 -12 -8 -12 -12 -0 -0 -0 -0 -12 -8 -14 -12 -12 -8 -12 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -12 -8 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -12 -8 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -12 -8 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/dtr.dat b/programs/samples/thebob/chopper/dtr.dat deleted file mode 100644 index 39766f062..000000000 --- a/programs/samples/thebob/chopper/dtr.dat +++ /dev/null @@ -1,1892 +0,0 @@ -14,30,26,60 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 diff --git a/programs/samples/thebob/chopper/dtx.dat b/programs/samples/thebob/chopper/dtx.dat deleted file mode 100644 index d3519f057..000000000 --- a/programs/samples/thebob/chopper/dtx.dat +++ /dev/null @@ -1,1892 +0,0 @@ -11,30,22,60 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 diff --git a/programs/samples/thebob/chopper/ff.dat b/programs/samples/thebob/chopper/ff.dat deleted file mode 100644 index 5181f841e..000000000 --- a/programs/samples/thebob/chopper/ff.dat +++ /dev/null @@ -1,5336 +0,0 @@ -140,96,163,54 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 diff --git a/programs/samples/thebob/chopper/ffcf.dat b/programs/samples/thebob/chopper/ffcf.dat deleted file mode 100644 index 5fcf8e2e0..000000000 --- a/programs/samples/thebob/chopper/ffcf.dat +++ /dev/null @@ -1,2601 +0,0 @@ -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -14 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -8 -8 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ffcp.dat b/programs/samples/thebob/chopper/ffcp.dat deleted file mode 100644 index e948f290f..000000000 --- a/programs/samples/thebob/chopper/ffcp.dat +++ /dev/null @@ -1,2601 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ffff.dat b/programs/samples/thebob/chopper/ffff.dat deleted file mode 100644 index 23f48288e..000000000 --- a/programs/samples/thebob/chopper/ffff.dat +++ /dev/null @@ -1,5335 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -14 -14 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -14 -14 -8 -14 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -8 -8 -8 -8 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -8 -8 -8 -8 -8 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -14 -8 -8 -14 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -14 -8 -8 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -14 -14 -8 -14 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -14 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -12 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -12 -14 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -14 -12 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -14 -12 -12 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -14 -12 -12 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -12 -12 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -12 -12 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -12 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/fffp.dat b/programs/samples/thebob/chopper/fffp.dat deleted file mode 100644 index bd9061688..000000000 --- a/programs/samples/thebob/chopper/fffp.dat +++ /dev/null @@ -1,5335 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ffsf.dat b/programs/samples/thebob/chopper/ffsf.dat deleted file mode 100644 index 912aba9d7..000000000 --- a/programs/samples/thebob/chopper/ffsf.dat +++ /dev/null @@ -1,4160 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -8 -8 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -8 -8 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -14 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -14 -14 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -14 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -14 -14 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -8 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -14 -14 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -12 -14 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -14 -14 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -12 -0 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -8 -8 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ffsp.dat b/programs/samples/thebob/chopper/ffsp.dat deleted file mode 100644 index 9e0e9c427..000000000 --- a/programs/samples/thebob/chopper/ffsp.dat +++ /dev/null @@ -1,4160 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ftnkbrp.dat b/programs/samples/thebob/chopper/ftnkbrp.dat deleted file mode 100644 index 3afea993f..000000000 --- a/programs/samples/thebob/chopper/ftnkbrp.dat +++ /dev/null @@ -1,757 +0,0 @@ -30,35,13,20 -0 -0 -0 -0 -0 -0 -0 -8 -14 -14 -14 -14 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -14 -14 -12 -12 -12 -0 -0 -12 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -8 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ftnkcbp.dat b/programs/samples/thebob/chopper/ftnkcbp.dat deleted file mode 100644 index 653c7b6e1..000000000 --- a/programs/samples/thebob/chopper/ftnkcbp.dat +++ /dev/null @@ -1,2146 +0,0 @@ -30,64,8,32 -0 -0 -0 -0 -8 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 diff --git a/programs/samples/thebob/chopper/ftnkf.dti b/programs/samples/thebob/chopper/ftnkf.dti deleted file mode 100644 index 56355509b..000000000 --- a/programs/samples/thebob/chopper/ftnkf.dti +++ /dev/null @@ -1,883 +0,0 @@ -30,41,6,20 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -8 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -8 -8 -8 -8 -12 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -14 -14 -14 -8 -8 -12 -0 -0 -12 -8 -8 -12 -0 -0 -0 -0 -0 -12 -12 -8 -8 -14 -14 -14 -14 -8 -12 -12 -0 -14 -14 -14 -12 -0 -0 -0 -0 -0 -12 -12 -8 -14 -14 -14 -14 -14 -8 -12 -12 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -12 -8 -8 -14 -14 -14 -14 -14 -14 -8 -12 -0 -0 -8 -12 -14 -0 -0 -0 -0 -12 -12 -8 -14 -14 -12 -12 -12 -14 -14 -8 -12 -12 -0 -12 -12 -0 -0 -0 -0 -0 -12 -12 -8 -14 -12 -12 -12 -12 -12 -14 -14 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -0 -12 -12 -12 -8 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -14 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -0 -0 -12 -14 -12 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -12 -0 -0 -12 -12 -8 -8 -8 -8 -12 -12 -12 -0 -0 -0 -0 -12 -12 -12 -0 -0 -14 -0 -0 -12 -8 -8 -14 -14 -8 -8 -12 -12 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -12 -12 -8 -14 -14 -14 -14 -8 -8 -12 -12 -0 -0 -0 -0 -12 -12 -0 -12 -0 -0 -12 -8 -14 -14 -14 -14 -14 -14 -8 -12 -12 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -12 -8 -14 -14 -12 -12 -12 -14 -14 -8 -12 -0 -0 -0 -0 -0 -12 -0 -14 -0 -12 -12 -8 -14 -12 -12 -12 -12 -12 -14 -8 -12 -12 -0 -0 -0 -0 -0 -0 -8 -0 -12 -8 -14 -14 -12 -12 -12 -12 -12 -14 -14 -8 -12 -0 -0 -0 -0 -0 -0 -8 -0 -12 -8 -14 -12 -12 -12 -0 -0 -12 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -12 -12 -0 -0 -0 -12 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -12 -12 -0 -0 -0 -12 -12 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -0 -0 -0 -0 -12 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -0 -0 -14 -0 -0 -12 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -12 -0 -0 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -12 -12 -0 -12 -14 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -8 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 diff --git a/programs/samples/thebob/chopper/ftnkf2.dti b/programs/samples/thebob/chopper/ftnkf2.dti deleted file mode 100644 index 1e309b484..000000000 --- a/programs/samples/thebob/chopper/ftnkf2.dti +++ /dev/null @@ -1,481 +0,0 @@ -39,11 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -0 -0 -0 -0 -0 -12 -12 -14 -8 -8 -12 -12 -0 -0 -0 -0 -0 -12 -14 -14 -8 -8 -8 -12 -12 -12 -0 -0 -12 -12 -14 -8 -8 -8 -8 -8 -8 -12 -12 -0 -12 -12 -8 -8 -8 -8 -8 -8 -8 -8 -12 -0 -12 -14 -8 -8 -8 -8 -8 -14 -14 -8 -12 -0 -12 -14 -8 -8 -8 -8 -14 -14 -12 -14 -12 -12 -12 -8 -8 -8 -8 -8 -14 -12 -12 -12 -14 -12 -12 -8 -8 -14 -8 -8 -14 -12 -12 -12 -12 -12 -12 -8 -8 -14 -8 -8 -14 -14 -12 -12 -0 -12 -12 -8 -14 -14 -8 -8 -14 -14 -12 -12 -0 -0 -12 -8 -14 -12 -14 -8 -14 -14 -12 -12 -0 -0 -12 -12 -12 -12 -14 -8 -14 -14 -12 -12 -0 -0 -0 -12 -12 -12 -14 -8 -14 -14 -8 -12 -0 -0 -0 -12 -12 -12 -14 -8 -14 -14 -8 -12 -12 -0 -0 -12 -0 -12 -14 -8 -14 -14 -8 -12 -12 -0 -0 -12 -0 -12 -14 -8 -14 -14 -14 -12 -12 -0 -0 -12 -0 -12 -14 -8 -14 -14 -14 -12 -12 -0 -0 -0 -0 -12 -14 -14 -14 -14 -14 -12 -12 -0 -0 -0 -0 -12 -14 -14 -14 -14 -12 -12 -0 -0 -0 -0 -0 -12 -14 -14 -12 -14 -12 -12 -0 -0 -0 -0 -12 -8 -14 -12 -14 -14 -12 -12 -0 -0 -0 -0 -12 -8 -14 -12 -12 -8 -12 -12 -0 -0 -0 -0 -12 -8 -14 -12 -12 -8 -12 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -12 -8 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -12 -8 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -12 -8 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/ftnkosp.dat b/programs/samples/thebob/chopper/ftnkosp.dat deleted file mode 100644 index 752110035..000000000 --- a/programs/samples/thebob/chopper/ftnkosp.dat +++ /dev/null @@ -1,1405 +0,0 @@ -34,38,-3,35 -0 -0 -8 -8 -8 -8 -8 -8 -8 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 diff --git a/programs/samples/thebob/chopper/ftnkscp.dat b/programs/samples/thebob/chopper/ftnkscp.dat deleted file mode 100644 index d9273e7ab..000000000 --- a/programs/samples/thebob/chopper/ftnkscp.dat +++ /dev/null @@ -1,1538 +0,0 @@ -32,52,9,28 -0 -0 -0 -0 -0 -0 -0 -8 -14 -14 -14 -14 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 diff --git a/programs/samples/thebob/chopper/ftnktdp.dat b/programs/samples/thebob/chopper/ftnktdp.dat deleted file mode 100644 index a9fabf4f7..000000000 --- a/programs/samples/thebob/chopper/ftnktdp.dat +++ /dev/null @@ -1,1364 +0,0 @@ -32,46,6,28 -0 -0 -0 -0 -0 -0 -0 -14 -14 -14 -14 -14 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -14 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/otbp.dat b/programs/samples/thebob/chopper/otbp.dat deleted file mode 100644 index f309c498b..000000000 --- a/programs/samples/thebob/chopper/otbp.dat +++ /dev/null @@ -1,900 +0,0 @@ -126,30,68,28 -0 -0 -8 -8 -8 -8 -8 -14 -14 -14 -14 -14 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/otc.dat b/programs/samples/thebob/chopper/otc.dat deleted file mode 100644 index 572f15212..000000000 --- a/programs/samples/thebob/chopper/otc.dat +++ /dev/null @@ -1,290 +0,0 @@ -117,16,65,16 -0 -0 -0 -0 -0 -0 -14 -14 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -14 -14 -12 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/oth.dat b/programs/samples/thebob/chopper/oth.dat deleted file mode 100644 index de170ebe0..000000000 --- a/programs/samples/thebob/chopper/oth.dat +++ /dev/null @@ -1,576 +0,0 @@ -116,24,57,22 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rf.dat b/programs/samples/thebob/chopper/rf.dat deleted file mode 100644 index b334b0fe8..000000000 --- a/programs/samples/thebob/chopper/rf.dat +++ /dev/null @@ -1,5831 +0,0 @@ -405,105,165,54 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -0 -0 -0 -0 -0 -1 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 diff --git a/programs/samples/thebob/chopper/rfc.dat b/programs/samples/thebob/chopper/rfc.dat deleted file mode 100644 index 3bd75437b..000000000 --- a/programs/samples/thebob/chopper/rfc.dat +++ /dev/null @@ -1,2760 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -8 -8 -8 -8 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -14 -12 -12 -14 -14 -8 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -12 -12 -12 -12 -12 -14 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -12 -8 -8 -8 -8 -12 -12 -12 -14 -14 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -8 -14 -8 -14 -8 -8 -12 -12 -12 -14 -14 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -8 -14 -14 -14 -14 -8 -12 -12 -12 -14 -14 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -14 -12 -12 -12 -14 -14 -8 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -14 -12 -12 -12 -12 -14 -8 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -12 -12 -14 -12 -12 -12 -12 -12 -8 -12 -12 -14 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -12 -14 -12 -12 -14 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -12 -14 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -12 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -12 -8 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -8 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfcp.dat b/programs/samples/thebob/chopper/rfcp.dat deleted file mode 100644 index b1e55d523..000000000 --- a/programs/samples/thebob/chopper/rfcp.dat +++ /dev/null @@ -1,2760 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfcrcg.dat b/programs/samples/thebob/chopper/rfcrcg.dat deleted file mode 100644 index 6eecae79f..000000000 --- a/programs/samples/thebob/chopper/rfcrcg.dat +++ /dev/null @@ -1,2760 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -14 -12 -12 -14 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -12 -12 -12 -12 -12 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -12 -8 -8 -8 -8 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -8 -14 -8 -14 -8 -8 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -8 -14 -14 -14 -14 -8 -12 -12 -12 -14 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -12 -14 -12 -12 -12 -14 -14 -8 -12 -12 -14 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -12 -14 -8 -12 -12 -14 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -12 -8 -12 -12 -14 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -14 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -14 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfcrfb.dat b/programs/samples/thebob/chopper/rfcrfb.dat deleted file mode 100644 index dade980d4..000000000 --- a/programs/samples/thebob/chopper/rfcrfb.dat +++ /dev/null @@ -1,2760 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -14 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -8 -8 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -8 -14 -8 -14 -8 -8 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -8 -14 -14 -14 -14 -8 -12 -12 -12 -14 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -12 -14 -12 -12 -12 -14 -14 -8 -12 -12 -14 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -12 -14 -8 -12 -12 -14 -8 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -12 -8 -12 -12 -14 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -14 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -14 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfcxcg.dat b/programs/samples/thebob/chopper/rfcxcg.dat deleted file mode 100644 index db88feac4..000000000 --- a/programs/samples/thebob/chopper/rfcxcg.dat +++ /dev/null @@ -1,2760 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -8 -14 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -8 -14 -14 -14 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -12 -14 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -14 -12 -12 -12 -12 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -12 -12 -14 -12 -12 -12 -12 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -12 -14 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -0 -0 -0 -0 -12 -14 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -12 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -12 -8 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -12 -8 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rff.dat b/programs/samples/thebob/chopper/rff.dat deleted file mode 100644 index 3a1607ac9..000000000 --- a/programs/samples/thebob/chopper/rff.dat +++ /dev/null @@ -1,5830 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -14 -8 -8 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -14 -8 -8 -8 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -14 -14 -14 -14 -8 -8 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -14 -12 -12 -12 -14 -14 -14 -8 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -14 -8 -8 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -14 -14 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -14 -14 -14 -14 -12 -12 -12 -14 -14 -8 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -8 -14 -8 -8 -14 -12 -12 -12 -14 -12 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -8 -8 -8 -8 -14 -12 -12 -14 -14 -14 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -8 -8 -8 -8 -8 -14 -12 -12 -14 -14 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -14 -8 -8 -14 -14 -12 -12 -14 -14 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -14 -8 -8 -14 -12 -12 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -14 -14 -8 -14 -14 -12 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -14 -12 -14 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -12 -12 -14 -12 -12 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -12 -12 -14 -14 -12 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -14 -12 -12 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -14 -12 -12 -12 -14 -14 -12 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -12 -12 -12 -14 -12 -12 -0 -12 -12 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -14 -12 -12 -0 -12 -12 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -14 -12 -12 -0 -12 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -8 -12 -12 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -12 -12 -12 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -12 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rffp.dat b/programs/samples/thebob/chopper/rffp.dat deleted file mode 100644 index c8e3f2d57..000000000 --- a/programs/samples/thebob/chopper/rffp.dat +++ /dev/null @@ -1,5830 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfs.dat b/programs/samples/thebob/chopper/rfs.dat deleted file mode 100644 index eb09d1917..000000000 --- a/programs/samples/thebob/chopper/rfs.dat +++ /dev/null @@ -1,4085 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -14 -14 -8 -8 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -8 -8 -8 -12 -12 -12 -14 -14 -8 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -14 -8 -14 -8 -8 -12 -12 -12 -14 -14 -8 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -14 -14 -14 -14 -8 -12 -12 -12 -14 -14 -8 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -12 -12 -12 -14 -14 -8 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -14 -12 -12 -12 -12 -14 -8 -12 -12 -14 -8 -8 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -12 -14 -12 -12 -12 -12 -12 -8 -12 -12 -14 -8 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -12 -14 -12 -12 -14 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -12 -14 -12 -14 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -12 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -14 -12 -0 -0 -0 -12 -8 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -12 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -12 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfsp.dat b/programs/samples/thebob/chopper/rfsp.dat deleted file mode 100644 index 5fbb81107..000000000 --- a/programs/samples/thebob/chopper/rfsp.dat +++ /dev/null @@ -1,4085 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfsrcg.dat b/programs/samples/thebob/chopper/rfsrcg.dat deleted file mode 100644 index 354002468..000000000 --- a/programs/samples/thebob/chopper/rfsrcg.dat +++ /dev/null @@ -1,4085 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -14 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -8 -8 -8 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -14 -8 -14 -8 -8 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -8 -14 -14 -14 -14 -8 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -12 -12 -12 -14 -14 -8 -12 -12 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -14 -12 -12 -12 -12 -14 -8 -12 -12 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -12 -14 -12 -12 -12 -12 -12 -8 -12 -12 -14 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -12 -14 -12 -12 -14 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -0 -0 -0 -0 -12 -14 -12 -14 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfsrfb.dat b/programs/samples/thebob/chopper/rfsrfb.dat deleted file mode 100644 index 98e0efcac..000000000 --- a/programs/samples/thebob/chopper/rfsrfb.dat +++ /dev/null @@ -1,4085 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -8 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -14 -8 -12 -12 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -8 -12 -12 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -8 -12 -12 -14 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -14 -8 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -0 -0 -0 -0 -12 -14 -12 -14 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -8 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/chopper/rfsxcg.dat b/programs/samples/thebob/chopper/rfsxcg.dat deleted file mode 100644 index acd95a156..000000000 --- a/programs/samples/thebob/chopper/rfsxcg.dat +++ /dev/null @@ -1,4085 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -14 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -14 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -12 -12 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -14 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -8 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -14 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -12 -0 -0 -0 -0 -12 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -14 -12 -0 -0 -0 -12 -8 -12 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -12 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -8 -14 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -12 -14 -8 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -12 -14 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -12 -0 -0 -0 -12 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -12 -12 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -14 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -15 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -14 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -12 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/kong/k1.bas b/programs/samples/thebob/kong/k1.bas deleted file mode 100644 index c116328b2..000000000 --- a/programs/samples/thebob/kong/k1.bas +++ /dev/null @@ -1,1076 +0,0 @@ -CHDIR ".\programs\samples\thebob\kong" - -'K1.BAS: Creates graphics files for KONG.BAS, -chains K2.BAS -'----------------------------------------------------------- -DEFINT A-Z -DIM Box(1 TO 26000) -DIM FontBOX(4701) - -SCREEN 12 -GOSUB SetPALETTE -GOSUB DrawIMAGE -GOSUB GetNUMS -GOSUB GetBANANA -GOSUB GetFONT -GOSUB GetEXPLOSION -GOSUB GetAPES - -Wdth = 45 -Dpth = 36 -OPEN "kongcrtr.dat" FOR OUTPUT AS #1 -WRITE #1, Wdth, Dpth -FOR x = 555 TO 555 + Wdth - FOR y = 32 TO 32 + Dpth - WRITE #1, POINT(x, y) - NEXT y -NEXT x -CLOSE #1 - -'CHAIN "K2" - -END - -GetAPES: -'Gorilla animation components -xx = 50 -FOR x = 20 TO 116 STEP 40 - GET (x, 0)-(x + 33, 42), Box() - PUT (xx, 200), Box() - xx = xx + 50 -NEXT x -GET (18, 94)-(46, 132), Box() -FOR x = 200 TO 550 STEP 50 - PUT (x, 205), Box() -NEXT x -GET (58, 94)-(96, 119), Box() -PUT (200, 204), Box(), PSET -GET (98, 94)-(136, 119), Box() -PUT (250, 204), Box(), PSET -GET (439, 40)-(466, 68), Box() -PUT (349, 203), Box(), PSET -GET (472, 40)-(504, 68), Box() -PUT (398, 203), Box(), PSET -GET (505, 40)-(545, 68), Box() -PUT (447, 203), Box(), PSET -FOR y = 200 TO 250 - FOR x = 349 TO 500 - PSET (928 - x, y), POINT(x, y) - NEXT x -NEXT y -FOR y = 200 TO 250 - FOR x = 49 TO 188 - PSET (228 - x, y + 60), POINT(x, y) - NEXT x -NEXT y -Index = 1 -FOR x = 45 TO 545 STEP 50 - GET (x, 200)-(x + 38, 242), Box(Index) - FOR xx = x TO x + 38 - FOR yy = 200 TO 242 - IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0 - NEXT yy - NEXT xx - GET (x, 200)-(x + 38, 242), Box(Index + 450) - PUT (x, 200), Box(Index + 450) - Index = Index + 900 -NEXT x -DEF SEG = VARSEG(Box(1)) -BSAVE "kongmjy.bsv", VARPTR(Box(1)), 9900 * 2 -DEF SEG -Index = 1 -FOR x = 145 TO 45 STEP -50 - GET (x, 260)-(x + 38, 302), Box(Index) - FOR xx = x TO x + 38 - FOR yy = 260 TO 302 - IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0 - NEXT yy - NEXT xx - GET (x, 260)-(x + 38, 302), Box(Index + 450) - PUT (x, 260), Box(Index + 450) - Index = Index + 900 -NEXT x -DEF SEG = VARSEG(Box(1)) -BSAVE "kongkong.bsv", VARPTR(Box(1)), 9900 * 2 -DEF SEG -RETURN - -GetBANANA: -Index = 1 -FOR y = 0 TO 112 STEP 16 'Banana toss sequence - GET (0, y)-(11, y + 11), Box(Index) - FOR xx = 0 TO 11 - FOR yy = y TO y + 11 - IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0 - NEXT yy - NEXT xx - GET (0, y)-(11, y + 11), Box(Index + 50) - PUT (0, y), Box(Index + 50) - Index = Index + 100 -NEXT y -PUT (0, 0), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kongbnna.bsv", VARPTR(Box(1)), 1600 -DEF SEG -RETURN - -GetEXPLOSION: -Index = 1 -FOR x = 130 TO 610 STEP 62 - GET (x, 84)-(x + 61, 145), Box(Index) - Index = Index + 1030 -NEXT x -x = 20 -FOR Index = 1 TO 7211 STEP 1030 - PUT (x, 200), Box(Index), PSET - x = x + 64 -NEXT Index -x = 20 -FOR Index = 1 TO 14421 STEP 2060 - GET (x, 200)-(x + 61, 263), Box(Index) - FOR xx = x TO x + 61 - FOR yy = 200 TO 261 - IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0 - NEXT yy - NEXT xx - GET (x, 200)-(x + 61, 261), Box(Index + 1030) - PUT (x, 200), Box(Index + 1030) - x = x + 64 -NEXT Index -DEF SEG = VARSEG(Box(1)) -BSAVE "kongexpl.bsv", VARPTR(Box(1)), 16480 * 2& -DEF SEG -RETURN - -GetFONT: -Index = 2 -FOR y = 22 TO 68 STEP 15 - FOR x = 143 TO 420 STEP 12 - GET (x, y)-(x + 11, y + 11), Box(Index) - PUT (x, y), Box(Index) - Index = Index + 50 - IF Index = 94 * 50 + 2 THEN EXIT FOR - NEXT x -NEXT y -FontBOX(0) = 50 -FontBOX(1) = 4 -FOR Index = 2 TO 93 * 50 + 2 STEP 50 - LINE (0, 200)-(20, 220), 0, BF - PUT (0, 200), Box(Index) - x1 = -1: x2 = -1 - FOR x = 0 TO 20 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x - NEXT y - NEXT x - FOR x = 20 TO 0 STEP -1 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x - NEXT y - NEXT x - GET (x1, 200)-(x2 + 1, 211), FontBOX(Index) -NEXT Index -LINE (0, 200)-(20, 220), 0, BF -DEF SEG = VARSEG(FontBOX(0)) -BSAVE "kong.fbs", VARPTR(FontBOX(0)), 4701 * 2 -DEF SEG -'GET slider and slider numbers -LINE (300, 200)-(310, 218), 7, BF -LINE (300, 200)-(310, 200), 15 -LINE (300, 201)-(310, 201), 9 -LINE (300, 202)-(310, 202), 8 -LINE (300, 216)-(310, 217), 6, B -LINE (300, 218)-(310, 218), 10 -LINE (310, 200)-(310, 218), 10 -LINE (302, 202)-(307, 215), 9, BF -LINE (302, 202)-(307, 214), 2, BF -LINE (302, 202)-(307, 202), 1, BF -x = 100: y = 200 -FOR n = 15 TO 24 - PUT (x, y), FontBOX(n * FontBOX(0) + 2) - x = x + 10 -NEXT n -FOR x = 100 TO 194 - FOR y = 201 TO 209 - IF POINT(x, y) = 0 THEN PSET (x, y), 10 ELSE PSET (x, y), 13 - NEXT y -NEXT x -Index = 1 -FOR x = 100 TO 190 STEP 10 - GET (x, 201)-(x + 4, 209), Box(Index) - PUT (x, 201), Box(Index) - Index = Index + 20 -NEXT x -GET (300, 200)-(310, 218), Box(201) -PUT (300, 200), Box(201) -DEF SEG = VARSEG(Box(1)) -BSAVE "kongsldr.bsv", VARPTR(Box(1)), 560 -DEF SEG -RETURN - -DrawIMAGE: -MaxWIDTH = 639 -MaxDEPTH = 144 -x = 0: y = 0 -RESTORE ImageDATA: -DO - READ Count, Colr - FOR Reps = 1 TO Count - PSET (x, y), Colr - x = x + 1 - IF x > MaxWIDTH THEN - x = 0 - y = y + 1 - END IF - NEXT Reps -LOOP UNTIL y > MaxDEPTH -RETURN - -GetNUMS: -Index = 1 -FOR x = 438 TO 512 STEP 24 - IF x = 510 THEN x = 512 - GET (x, 22)-(x + 14, 36), Box(Index) - Index = Index + 75 -NEXT x -DEF SEG = VARSEG(Box(1)) -BSAVE "kongnums.bsv", VARPTR(Box(1)), 600 -DEF SEG -RETURN - -SetPALETTE: -DATA 0, 4, 16, 0, 10, 21, 0, 16, 32, 32, 10, 0 -DATA 63, 0, 0, 63, 32, 0, 18, 18, 24, 30, 30, 37 -DATA 42, 42, 50, 55, 55, 63, 0, 0, 0, 43, 27, 19 -DATA 8, 8, 21, 0, 63, 21, 63, 63, 21, 63, 63, 63 - -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Intensity - OUT &H3C9, Intensity -NEXT n -RETURN - -ImageDATA: -DATA 120,0,1,8,638,0,5,8,213,0,2,4,10,0,2,4,9,0,2,4,66,0 -DATA 2,4,142,0,2,12,76,0,1,7,107,0,1,8,6,7,1,6,19,0,2,4 -DATA 8,0,4,4,2,0,2,4,20,0,3,4,17,0,2,4,11,0,2,4,2,0,3,4 -DATA 5,0,2,4,20,0,3,4,40,0,2,4,7,0,4,4,2,0,4,4,9,0,3,4,5,0 -DATA 2,4,6,0,3,4,8,0,3,4,8,0,3,4,5,0,3,4,10,0,3,4,2,0,3,4 -DATA 6,0,2,4,2,0,3,4,12,0,2,4,12,0,3,4,5,0,3,4,5,0,2,4,2,0 -DATA 3,4,6,0,4,4,6,0,3,4,2,0,2,4,20,0,3,4,76,0,3,4,75,0 -DATA 1,14,1,13,59,0,5,11,42,0,1,6,1,0,1,6,1,0,5,6,15,0,5,4 -DATA 8,0,9,4,8,0,2,4,6,0,6,4,14,0,5,4,9,0,3,4,1,0,3,4,1,0 -DATA 3,4,1,0,5,4,8,0,2,4,6,0,6,4,40,0,3,4,7,0,3,4,2,0,4,4 -DATA 6,0,6,4,5,0,4,4,4,0,3,4,2,0,14,4,1,0,5,4,4,0,4,4,9,0 -DATA 10,4,3,0,3,4,1,0,3,4,1,0,3,4,8,0,5,4,9,0,5,4,4,0,4,4 -DATA 3,0,3,4,1,0,3,4,1,0,3,4,4,0,4,4,5,0,3,4,1,0,5,4,8,0 -DATA 2,4,6,0,6,4,28,0,5,4,12,0,4,4,2,0,2,4,15,0,3,4,4,0 -DATA 4,4,74,0,1,5,2,14,57,0,8,11,43,0,1,6,1,0,4,6,1,3,1,11 -DATA 14,0,4,4,8,0,11,4,6,0,3,4,5,0,7,4,14,0,4,4,10,0,5,4 -DATA 4,0,2,4,1,0,6,4,6,0,3,4,5,0,7,4,40,0,3,4,6,0,4,4,1,0 -DATA 5,4,5,0,7,4,4,0,5,4,4,0,3,4,1,0,2,4,3,0,4,4,8,0,3,4 -DATA 5,0,3,4,13,0,6,4,4,0,5,4,4,0,2,4,7,0,4,4,12,0,3,4,5,0 -DATA 3,4,4,0,5,4,4,0,2,4,3,0,4,4,6,0,3,4,1,0,6,4,6,0,3,4 -DATA 5,0,7,4,27,0,5,4,13,0,9,4,8,0,2,4,1,0,7,4,3,0,3,4,75,0 -DATA 3,14,56,0,9,3,1,11,30,0,5,11,11,0,1,6,2,3,2,11,13,0 -DATA 4,4,4,0,2,4,2,0,4,4,4,0,3,4,5,0,4,4,4,0,3,4,1,0,3,4 -DATA 15,0,4,4,4,0,2,4,3,0,4,4,6,0,3,4,3,0,3,4,5,0,4,4,4,0 -DATA 3,4,1,0,3,4,41,0,3,4,6,0,3,4,2,0,4,4,5,0,3,4,1,0,3,4 -DATA 3,0,7,4,4,0,3,4,6,0,3,4,7,0,5,4,5,0,3,4,15,0,2,4,5,0 -DATA 4,4,6,0,3,4,5,0,4,4,11,0,5,4,5,0,3,4,3,0,4,4,6,0,3,4 -DATA 1,0,5,4,4,0,5,4,4,0,3,4,5,0,4,4,4,0,3,4,1,0,3,4,27,0 -DATA 6,4,8,0,3,4,1,0,11,4,6,0,3,4,1,0,3,4,1,0,4,4,1,0,4,4 -DATA 74,0,3,14,1,5,55,0,2,11,2,3,2,11,6,3,28,0,1,11,5,3 -DATA 1,11,11,0,3,3,2,11,12,0,4,4,4,0,2,4,2,0,4,4,4,0,4,4 -DATA 4,0,3,4,4,0,3,4,3,0,2,4,15,0,4,4,4,0,2,4,2,0,4,4,7,0 -DATA 3,4,3,0,4,4,4,0,3,4,4,0,3,4,3,0,2,4,41,0,3,4,5,0,4,4 -DATA 2,0,4,4,4,0,3,4,3,0,2,4,3,0,2,4,2,0,3,4,4,0,4,4,5,0 -DATA 3,4,7,0,4,4,4,0,5,4,15,0,2,4,4,0,4,4,7,0,3,4,4,0,3,4 -DATA 13,0,4,4,4,0,5,4,2,0,4,4,7,0,8,4,5,0,4,4,5,0,4,4,4,0 -DATA 3,4,4,0,3,4,3,0,2,4,26,0,2,4,1,0,7,4,5,0,3,4,1,0,4,4 -DATA 4,0,3,4,5,0,4,4,1,0,2,4,3,0,3,4,2,0,3,4,73,0,4,14,1,5 -DATA 20,0,5,11,29,0,8,11,5,3,26,0,2,11,7,3,1,11,11,0,3,3 -DATA 2,11,10,0,4,4,4,0,3,4,1,0,5,4,3,0,6,4,2,0,3,4,4,0,3,4 -DATA 20,0,4,4,4,0,3,4,2,0,4,4,7,0,2,4,3,0,6,4,2,0,3,4,4,0 -DATA 3,4,18,0,4,4,2,0,2,4,8,0,2,4,9,0,5,4,5,0,4,4,1,0,5,4 -DATA 3,0,3,4,13,0,3,4,3,0,4,4,5,0,3,4,9,0,3,4,4,0,5,4,14,0 -DATA 3,4,4,0,4,4,7,0,2,4,4,0,3,4,15,0,3,4,4,0,5,4,2,0,4,4 -DATA 7,0,2,4,3,0,3,4,4,0,5,4,4,0,6,4,2,0,3,4,4,0,3,4,32,0 -DATA 6,4,1,0,3,4,4,0,4,4,1,0,4,4,4,0,4,4,4,0,3,4,2,0,3,4 -DATA 3,0,2,4,2,0,3,4,72,0,4,14,1,5,20,0,7,11,28,0,1,6,2,10 -DATA 1,6,2,10,2,6,5,3,24,0,4,11,8,3,1,11,10,0,5,3,1,11,9,0 -DATA 4,4,3,0,4,4,3,0,2,4,4,0,6,4,1,0,3,4,4,0,3,4,7,0,3,4 -DATA 11,0,4,4,3,0,4,4,2,0,3,4,8,0,2,4,3,0,6,4,1,0,3,4,4,0 -DATA 3,4,7,0,3,4,9,0,3,4,3,0,3,4,3,0,6,4,10,0,5,4,3,0,4,4 -DATA 4,0,2,4,3,0,3,4,7,0,3,4,4,0,3,4,2,0,4,4,6,0,3,4,8,0 -DATA 4,4,4,0,5,4,8,0,2,4,3,0,3,4,5,0,3,4,8,0,2,4,3,0,3,4 -DATA 6,0,2,4,7,0,4,4,4,0,5,4,2,0,3,4,8,0,2,4,2,0,4,4,4,0 -DATA 5,4,4,0,6,4,1,0,3,4,4,0,3,4,7,0,3,4,26,0,7,4,5,0,8,4 -DATA 3,0,6,4,2,0,3,4,3,0,3,4,6,0,4,4,70,0,3,14,1,11,1,14 -DATA 1,5,21,0,2,11,3,3,2,11,27,0,1,3,1,6,1,7,1,6,2,7,2,6 -DATA 3,3,2,11,1,3,24,0,2,6,2,11,9,3,1,11,2,0,4,11,4,0,5,3 -DATA 1,11,8,0,4,4,2,0,2,4,5,0,3,4,4,0,7,4,1,0,2,4,3,0,4,4 -DATA 6,0,4,4,11,0,4,4,2,0,2,4,4,0,4,4,7,0,2,4,4,0,7,4,1,0 -DATA 2,4,3,0,4,4,6,0,4,4,8,0,4,4,3,0,2,4,3,0,7,4,8,0,7,4 -DATA 2,0,5,4,3,0,3,4,2,0,4,4,6,0,4,4,3,0,3,4,1,0,5,4,6,0 -DATA 3,4,9,0,3,4,3,0,3,4,1,0,2,4,9,0,2,4,4,0,2,4,4,0,4,4 -DATA 7,0,2,4,4,0,3,4,3,0,4,4,8,0,3,4,3,0,3,4,1,0,2,4,2,0 -DATA 4,4,7,0,2,4,3,0,3,4,5,0,5,4,4,0,7,4,1,0,2,4,3,0,4,4 -DATA 6,0,4,4,26,0,7,4,5,0,3,4,2,0,2,4,4,0,6,4,1,0,3,4,3,0 -DATA 5,4,6,0,2,4,69,0,1,13,2,14,1,11,2,14,1,5,21,0,2,11 -DATA 5,3,2,11,26,0,1,3,4,8,1,7,5,3,1,6,1,11,2,3,23,0,1,6 -DATA 1,10,1,6,11,3,2,11,4,3,4,11,6,3,1,11,6,0,5,4,1,0,3,4 -DATA 5,0,3,4,2,0,4,4,2,0,6,4,3,0,3,4,7,0,3,4,1,0,15,4,1,0 -DATA 3,4,4,0,4,4,7,0,2,4,2,0,4,4,2,0,6,4,3,0,3,4,7,0,3,4 -DATA 9,0,4,4,3,0,2,4,3,0,6,4,10,0,6,4,2,0,5,4,3,0,3,4,2,0 -DATA 3,4,7,0,3,4,4,0,5,4,2,0,2,4,6,0,3,4,9,0,3,4,2,0,3,4 -DATA 1,0,3,4,9,0,3,4,3,0,2,4,4,0,4,4,7,0,2,4,3,0,3,4,1,0 -DATA 4,4,11,0,3,4,2,0,3,4,1,0,3,4,2,0,4,4,7,0,2,4,3,0,3,4 -DATA 4,0,12,4,2,0,6,4,3,0,3,4,7,0,3,4,25,0,5,4,1,0,3,4,5,0 -DATA 3,4,1,0,3,4,4,0,7,4,1,0,2,4,4,0,4,4,6,0,2,4,70,0,1,13 -DATA 2,14,1,5,19,0,2,11,1,0,1,11,9,3,1,11,25,0,1,3,1,7,1,10 -DATA 1,7,1,10,1,7,1,6,4,3,2,11,2,3,1,11,21,0,4,6,6,3,2,11 -DATA 19,3,1,11,6,0,4,4,1,0,5,4,4,0,3,4,3,0,3,4,1,0,7,4,3,0 -DATA 3,4,6,0,4,4,11,0,4,4,1,0,5,4,3,0,3,4,7,0,2,4,4,0,3,4 -DATA 1,0,7,4,3,0,3,4,6,0,4,4,9,0,4,4,2,0,4,4,2,0,5,4,9,0 -DATA 4,4,1,0,3,4,1,0,6,4,3,0,3,4,2,0,3,4,6,0,4,4,4,0,3,4 -DATA 4,0,2,4,5,0,4,4,9,0,3,4,2,0,2,4,2,0,3,4,10,0,2,4,2,0 -DATA 2,4,5,0,3,4,7,0,2,4,3,0,8,4,3,0,2,4,7,0,3,4,2,0,2,4 -DATA 2,0,3,4,2,0,3,4,7,0,2,4,4,0,3,4,4,0,7,4,2,0,3,4,1,0 -DATA 7,4,3,0,3,4,6,0,4,4,26,0,4,4,1,0,3,4,5,0,3,4,1,0,3,4 -DATA 2,0,4,4,2,0,6,4,6,0,3,4,5,0,2,4,91,0,2,11,2,3,1,11 -DATA 11,3,3,11,21,0,1,11,7,6,9,3,2,11,18,0,2,8,2,6,7,3,1,6 -DATA 1,11,20,3,6,0,4,4,1,0,5,4,3,0,3,4,4,0,2,4,2,0,6,4,4,0 -DATA 3,4,4,0,6,4,11,0,4,4,1,0,5,4,3,0,3,4,6,0,2,4,5,0,2,4 -DATA 2,0,6,4,4,0,3,4,4,0,6,4,8,0,5,4,1,0,4,4,4,0,4,4,9,0 -DATA 4,4,1,0,9,4,3,0,3,4,3,0,3,4,4,0,6,4,3,0,3,4,5,0,2,4 -DATA 4,0,4,4,10,0,11,4,11,0,6,4,5,0,3,4,6,0,2,4,4,0,5,4 -DATA 4,0,4,4,7,0,11,4,3,0,3,4,6,0,2,4,5,0,3,4,3,0,8,4,2,0 -DATA 2,4,2,0,6,4,4,0,3,4,4,0,6,4,24,0,5,4,2,0,4,4,4,0,3,4 -DATA 1,0,3,4,3,0,3,4,1,0,7,4,6,0,4,4,3,0,3,4,90,0,1,11,19,3 -DATA 1,11,19,0,1,11,1,3,1,6,3,10,2,6,3,3,1,1,7,3,2,11,17,0 -DATA 1,7,1,10,1,8,1,6,6,3,2,11,20,3,7,0,6,4,1,0,4,4,3,0 -DATA 4,4,2,0,2,4,3,0,5,4,4,0,3,4,3,0,6,4,12,0,6,4,1,0,4,4 -DATA 2,0,4,4,3,0,3,4,6,0,2,4,3,0,5,4,4,0,3,4,3,0,6,4,10,0 -DATA 4,4,1,0,3,4,5,0,5,4,8,0,3,4,1,0,6,4,1,0,6,4,1,0,4,4 -DATA 1,0,3,4,3,0,6,4,3,0,4,4,4,0,3,4,4,0,4,4,4,0,3,4,4,0 -DATA 4,4,4,0,2,4,12,0,5,4,5,0,4,4,3,0,3,4,5,0,3,4,5,0,3,4 -DATA 10,0,4,4,4,0,2,4,3,0,4,4,3,0,3,4,6,0,3,4,2,0,8,4,3,0 -DATA 2,4,3,0,5,4,4,0,3,4,3,0,6,4,25,0,4,4,4,0,3,4,3,0,3,4 -DATA 1,0,3,4,4,0,2,4,2,0,6,4,8,0,3,4,3,0,2,4,91,0,1,11,7,3 -DATA 2,11,3,3,2,11,6,3,1,11,18,0,1,11,2,3,5,6,1,3,2,1,9,3 -DATA 2,11,7,0,1,7,7,0,2,7,3,6,27,3,8,0,5,4,2,0,4,4,3,0,3,4 -DATA 3,0,2,4,5,0,3,4,4,0,3,4,2,0,3,4,2,0,2,4,12,0,5,4,2,0 -DATA 4,4,2,0,8,4,8,0,2,4,5,0,3,4,4,0,3,4,2,0,3,4,2,0,2,4 -DATA 10,0,7,4,9,0,3,4,7,0,3,4,1,0,5,4,2,0,5,4,2,0,3,4,2,0 -DATA 3,4,2,0,3,4,2,0,2,4,2,0,4,4,4,0,4,4,5,0,4,4,1,0,3,4 -DATA 10,0,2,4,1,0,3,4,12,0,5,4,5,0,8,4,7,0,3,4,3,0,4,4,15,0 -DATA 2,4,1,0,3,4,3,0,8,4,8,0,3,4,1,0,3,4,3,0,3,4,3,0,2,4 -DATA 5,0,3,4,4,0,3,4,2,0,3,4,2,0,2,4,25,0,4,4,4,0,4,4,2,0 -DATA 2,4,3,0,4,4,2,0,2,4,3,0,5,4,8,0,3,4,95,0,1,11,7,3,9,11 -DATA 6,3,1,11,16,0,1,11,5,3,4,10,12,3,2,11,6,0,1,13,7,0 -DATA 4,6,17,3,3,6,6,3,11,0,3,4,6,0,2,4,1,0,3,4,3,0,3,4,6,0 -DATA 2,4,5,0,6,4,2,0,3,4,13,0,3,4,6,0,2,4,2,0,5,4,9,0,3,4 -DATA 6,0,2,4,5,0,6,4,2,0,3,4,11,0,5,4,4,0,8,4,8,0,3,4,2,0 -DATA 4,4,8,0,3,4,4,0,6,4,2,0,3,4,2,0,3,4,6,0,3,4,5,0,7,4 -DATA 11,0,5,4,13,0,5,4,6,0,5,4,10,0,7,4,17,0,5,4,5,0,5,4 -DATA 11,0,5,4,4,0,2,4,3,0,3,4,6,0,2,4,5,0,6,4,2,0,3,4,25,0 -DATA 3,4,5,0,7,4,4,0,3,4,3,0,2,4,5,0,3,4,2,0,4,4,2,0,2,4 -DATA 3,0,5,4,88,0,1,11,6,3,1,11,1,6,3,10,1,6,3,10,1,6,1,11 -DATA 6,3,1,11,15,0,1,11,7,3,1,10,14,3,1,11,5,0,1,5,1,13 -DATA 1,5,7,0,3,6,3,3,3,1,6,3,1,6,3,7,3,6,5,3,23,0,5,4,3,0 -DATA 2,4,6,0,2,4,14,0,2,4,24,0,2,4,15,0,2,4,6,0,2,4,14,0 -DATA 2,4,37,0,3,4,3,0,2,4,9,0,3,4,12,0,2,4,39,0,2,4,16,0 -DATA 3,4,47,0,2,4,32,0,2,4,3,0,2,4,6,0,2,4,14,0,2,4,25,0 -DATA 3,4,16,0,3,4,3,0,3,4,6,0,2,4,1,0,8,4,4,0,4,4,89,0,1,11 -DATA 5,3,1,1,1,3,1,6,1,7,5,6,1,7,1,6,1,3,1,1,6,3,1,10,14,0 -DATA 1,11,8,3,7,6,9,3,1,10,3,0,1,13,1,14,1,13,8,0,5,1,3,3 -DATA 3,7,3,6,4,7,2,6,1,3,4,0,1,10,55,0,2,4,65,0,2,4,69,0 -DATA 2,4,170,0,2,4,44,0,3,4,3,0,2,4,6,0,2,4,16,0,3,4,88,0 -DATA 6,3,1,1,3,3,1,7,3,6,1,7,3,3,1,1,6,3,15,0,7,3,4,7,4,6 -DATA 3,7,7,3,4,0,3,14,8,0,7,3,5,7,1,6,5,7,1,6,1,3,3,0,1,10 -DATA 525,0,1,7,10,0,6,3,1,6,1,1,2,3,2,8,1,7,2,8,2,3,1,1 -DATA 1,6,7,3,14,0,6,3,13,7,7,3,3,0,3,14,8,0,6,3,13,7,1,3 -DATA 518,0,2,13,8,0,2,14,10,0,5,3,3,6,1,1,1,3,1,7,1,10,1,8 -DATA 1,10,1,7,1,3,1,1,2,6,7,3,14,0,5,3,3,6,4,7,2,6,3,7,2,6 -DATA 7,3,3,0,1,14,1,11,1,14,8,0,5,3,3,6,4,7,2,6,2,7,3,6 -DATA 1,3,518,0,1,13,2,14,1,5,4,0,1,5,3,14,10,0,5,3,4,6,1,1 -DATA 1,6,1,7,1,6,1,7,1,6,1,1,4,6,7,3,13,0,5,3,15,6,7,3,1,0 -DATA 1,5,3,14,8,0,5,3,14,6,1,3,518,0,1,5,2,14,1,11,7,14 -DATA 1,5,10,0,4,3,1,10,4,6,1,10,1,6,3,7,1,6,1,10,4,6,1,0 -DATA 6,3,13,0,4,3,1,10,15,6,1,0,6,3,1,7,1,5,2,14,1,5,8,0 -DATA 4,3,1,10,14,6,1,3,323,0,2,13,23,0,3,13,21,0,3,13,23,0 -DATA 4,13,117,0,1,5,3,14,1,11,4,14,1,5,11,0,4,3,1,10,5,6 -DATA 1,10,3,6,1,10,4,6,3,0,2,3,2,6,2,11,12,0,4,3,1,10,5,6 -DATA 5,7,4,6,3,0,4,3,2,11,1,14,1,11,1,14,9,0,4,3,1,10,5,6 -DATA 5,7,4,6,22,0,1,7,11,0,1,7,2,0,1,7,9,0,1,7,2,0,1,7,9,0 -DATA 1,7,10,0,2,7,10,0,1,7,10,0,1,7,12,0,1,7,10,0,1,7,74,0 -DATA 1,7,9,0,3,7,10,0,1,7,10,0,3,7,9,0,3,7,11,0,1,7,8,0 -DATA 5,7,8,0,3,7,8,0,5,7,8,0,3,7,21,0,7,13,17,0,6,13,17,0 -DATA 4,13,1,0,3,13,18,0,8,13,117,0,2,5,4,14,2,5,12,0,4,3 -DATA 2,10,5,6,3,10,5,6,4,0,2,3,4,11,11,0,4,3,2,10,2,6,4,7 -DATA 1,10,4,7,2,6,4,0,2,3,4,11,3,7,8,0,4,3,2,10,2,6,4,7 -DATA 1,10,4,7,2,6,22,0,1,7,11,0,1,7,2,0,1,7,9,0,1,7,2,0 -DATA 1,7,8,0,3,7,8,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,1,0,1,7 -DATA 9,0,1,7,11,0,1,7,12,0,1,7,10,0,1,7,1,0,1,7,60,0,1,7 -DATA 8,0,1,7,3,0,1,7,7,0,3,7,9,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,9,0,2,7,8,0,1,7,11,0,1,7,3,0,1,7,11,0,1,7,7,0,1,7 -DATA 3,0,1,7,19,0,8,13,18,0,4,13,17,0,2,13,4,0,3,13,18,0 -DATA 9,13,136,0,2,3,1,6,1,3,2,10,1,3,11,6,1,3,5,0,1,3,5,11 -DATA 10,0,4,3,2,10,1,6,11,7,1,6,5,0,1,3,3,11,4,6,8,0,2,3 -DATA 1,6,1,3,2,10,1,6,11,7,1,6,22,0,1,7,11,0,1,7,2,0,1,7 -DATA 8,0,6,7,6,0,1,7,1,0,1,7,1,0,1,7,8,0,2,7,2,0,1,7,6,0 -DATA 1,7,1,0,1,7,9,0,1,7,11,0,1,7,12,0,1,7,11,0,1,7,61,0 -DATA 1,7,8,0,1,7,3,0,1,7,9,0,1,7,13,0,1,7,11,0,1,7,9,0,2,7 -DATA 8,0,1,7,11,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,18,0,5,13 -DATA 2,0,2,13,16,0,6,13,17,0,2,13,4,0,4,13,17,0,3,13,2,0 -DATA 4,13,136,0,1,3,2,6,1,3,2,1,2,3,2,6,5,7,2,6,2,3,5,0 -DATA 6,11,10,0,4,3,2,10,1,6,11,7,1,6,5,0,4,11,4,6,8,0,1,3 -DATA 2,6,1,3,1,1,1,10,1,6,11,7,1,6,22,0,1,7,24,0,1,7,2,0 -DATA 1,7,7,0,1,7,1,0,1,7,13,0,1,7,8,0,1,7,22,0,1,7,12,0 -DATA 1,7,10,0,1,7,1,0,1,7,11,0,1,7,47,0,1,7,9,0,1,7,3,0 -DATA 1,7,9,0,1,7,13,0,1,7,11,0,1,7,8,0,1,7,1,0,1,7,8,0,4,7 -DATA 8,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,18,0,3,13,4,0,3,13 -DATA 14,0,2,13,1,0,3,13,17,0,3,13,4,0,3,13,18,0,3,13,2,0 -DATA 3,13,137,0,3,11,1,3,2,1,2,3,1,6,3,7,1,10,3,7,1,6,2,3 -DATA 5,0,6,11,1,3,9,0,3,11,1,3,2,10,1,6,11,7,1,6,5,0,1,3 -DATA 2,11,1,3,4,6,8,0,3,11,1,3,1,1,1,10,1,6,11,7,1,6,22,0 -DATA 1,7,24,0,1,7,2,0,1,7,8,0,2,7,12,0,1,7,9,0,1,7,22,0 -DATA 1,7,12,0,1,7,24,0,1,7,47,0,1,7,9,0,1,7,3,0,1,7,9,0 -DATA 1,7,12,0,1,7,10,0,2,7,9,0,1,7,1,0,1,7,8,0,1,7,3,0,1,7 -DATA 7,0,4,7,10,0,1,7,10,0,3,7,18,0,3,13,5,0,2,13,18,0,3,13 -DATA 17,0,3,13,4,0,3,13,22,0,4,13,137,0,4,11,2,1,2,3,9,7 -DATA 2,3,5,0,1,3,6,11,9,0,4,11,2,10,2,6,9,7,2,6,6,0,3,3 -DATA 4,6,8,0,4,11,1,1,1,10,2,6,9,7,2,6,22,0,1,7,24,0,1,7 -DATA 2,0,1,7,9,0,2,7,10,0,1,7,9,0,1,7,1,0,1,7,1,0,1,7,19,0 -DATA 1,7,12,0,1,7,22,0,5,7,19,0,2,7,23,0,1,7,10,0,1,7,3,0 -DATA 1,7,9,0,1,7,11,0,1,7,13,0,1,7,7,0,1,7,2,0,1,7,12,0 -DATA 1,7,7,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,3,0,1,7,17,0,3,13 -DATA 4,0,3,13,17,0,3,13,18,0,3,13,4,0,2,13,24,0,2,13,138,0 -DATA 5,11,1,1,1,3,1,6,9,7,1,6,1,3,6,0,6,11,9,0,5,11,1,10 -DATA 3,6,7,7,3,6,7,0,4,3,10,0,5,11,1,10,3,6,7,7,3,6,22,0 -DATA 1,7,23,0,6,7,8,0,1,7,1,0,1,7,8,0,1,7,2,0,2,7,6,0,1,7 -DATA 2,0,1,7,20,0,1,7,12,0,1,7,24,0,1,7,46,0,1,7,10,0,1,7 -DATA 3,0,1,7,9,0,1,7,10,0,1,7,14,0,1,7,7,0,5,7,11,0,1,7 -DATA 7,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7,3,0,1,7,16,0,3,13 -DATA 4,0,4,13,17,0,2,13,25,0,2,13,23,0,3,13,139,0,5,11,1,1 -DATA 1,3,1,6,9,7,1,6,2,3,6,0,5,11,9,0,5,11,1,10,4,6,5,7 -DATA 4,6,1,3,20,0,5,11,1,10,4,6,5,7,4,6,1,3,46,0,1,7,2,0 -DATA 1,7,7,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7 -DATA 5,0,1,7,2,0,1,7,20,0,1,7,12,0,1,7,24,0,1,7,45,0,1,7 -DATA 11,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7,10,0 -DATA 1,7,8,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7 -DATA 3,0,1,7,16,0,3,13,5,0,3,13,16,0,3,13,25,0,2,13,22,0 -DATA 4,13,139,0,5,11,1,1,1,3,2,6,7,7,2,6,1,3,1,11,7,0,4,11 -DATA 9,0,5,11,1,10,13,6,1,11,20,0,5,11,1,10,13,6,1,11,21,0 -DATA 1,7,24,0,1,7,2,0,1,7,8,0,3,7,12,0,2,7,7,0,2,7,1,0,1,7 -DATA 19,0,1,7,12,0,1,7,35,0,1,7,22,0,1,7,11,0,1,7,12,0,3,7 -DATA 10,0,1,7,9,0,5,7,8,0,3,7,11,0,1,7,9,0,3,7,9,0,3,7,9,0 -DATA 1,7,11,0,3,7,17,0,3,13,4,0,4,13,16,0,2,13,25,0,2,13 -DATA 22,0,7,13,137,0,5,11,1,1,2,3,9,6,2,3,2,11,7,0,3,7,9,0 -DATA 5,11,1,10,2,3,9,6,3,3,1,11,19,0,5,11,1,10,2,3,9,6,3,3 -DATA 1,11,58,0,1,7,45,0,1,7,12,0,1,7,34,0,1,7,164,0,3,13 -DATA 4,0,3,13,17,0,3,13,21,0,4,13,22,0,2,13,2,0,4,13,46,0 -DATA 2,6,12,0,2,6,75,0,1,3,3,11,16,3,2,11,4,0,6,7,8,0,1,3 -DATA 3,11,16,3,2,11,18,0,1,3,3,11,17,3,1,11,104,0,1,7,10,0 -DATA 1,7,200,0,3,13,5,0,2,13,16,0,5,13,19,0,3,13,29,0,4,13 -DATA 45,0,4,6,9,0,1,6,2,10,2,6,53,0,1,13,19,0,1,3,3,11,5,3 -DATA 5,0,7,3,2,11,1,0,8,7,8,0,1,3,3,11,5,3,5,0,7,3,2,11 -DATA 17,0,1,3,3,11,5,3,5,0,8,3,1,11,315,0,3,13,2,0,4,13 -DATA 17,0,4,13,19,0,10,13,22,0,4,13,43,0,2,7,1,6,1,7,2,10 -DATA 4,6,5,0,1,6,4,10,1,6,52,0,1,13,1,14,20,0,3,11,4,3,7,0 -DATA 8,3,2,0,1,14,1,3,1,10,4,7,9,0,3,11,4,3,7,0,8,3,18,0 -DATA 3,11,4,3,7,0,8,3,316,0,5,13,20,0,4,13,18,0,8,13,2,0 -DATA 3,13,14,0,9,13,43,0,1,6,1,7,2,10,1,6,5,10,2,6,4,0,1,6 -DATA 2,10,3,6,52,0,3,14,19,0,3,11,1,1,2,3,9,0,7,3,1,0,3,14 -DATA 1,5,3,7,1,6,9,0,3,11,1,10,2,3,9,0,7,3,18,0,3,11,1,1 -DATA 2,3,9,0,7,3,342,0,2,13,97,0,1,6,1,7,1,6,2,10,1,6,5,10 -DATA 4,6,2,0,5,6,53,0,1,14,1,11,1,14,19,0,1,3,2,11,1,1,2,3 -DATA 10,0,6,3,4,14,1,5,4,6,9,0,1,3,2,11,1,10,2,3,10,0,6,3 -DATA 18,0,1,3,2,11,1,1,2,3,10,0,6,3,440,0,2,6,1,10,1,6,2,10 -DATA 1,6,6,10,3,6,60,0,1,5,3,14,18,0,1,3,5,7,11,0,4,3,4,14 -DATA 1,5,1,0,1,6,12,0,1,3,5,7,11,0,5,3,18,0,1,3,5,7,11,0 -DATA 5,3,19,0,3,7,69,0,3,7,11,0,4,7,8,0,1,7,8,0,4,7,9,0 -DATA 4,7,7,0,4,7,8,0,5,7,7,0,5,7,8,0,4,7,7,0,1,7,4,0,1,7 -DATA 6,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,5,0 -DATA 1,7,5,0,1,7,4,0,1,7,7,0,4,7,7,0,5,7,141,0,1,6,2,10 -DATA 1,6,2,10,1,6,8,10,3,6,59,0,1,14,1,11,2,14,17,0,5,7 -DATA 1,3,11,0,2,3,3,14,1,11,1,14,1,5,15,0,5,7,1,3,11,0,4,3 -DATA 19,0,5,7,1,3,11,0,4,3,19,0,1,7,3,0,1,7,67,0,1,7,3,0 -DATA 1,7,8,0,2,7,4,0,2,7,6,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7 -DATA 4,0,1,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,4,0 -DATA 1,7,6,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0,1,7,2,0,1,7 -DATA 8,0,1,7,11,0,1,7,5,0,1,7,5,0,2,7,3,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,1,7,4,0,1,7,140,0,1,6,2,10,1,6,13,10,6,6,54,0 -DATA 1,5,4,14,16,0,5,7,1,3,1,7,10,0,1,13,2,14,1,11,2,14 -DATA 1,5,16,0,5,7,1,3,1,7,10,0,3,3,2,7,18,0,5,7,1,3,1,7 -DATA 10,0,3,3,2,7,18,0,1,7,3,0,1,7,34,0,1,7,20,0,1,7,15,0 -DATA 1,7,8,0,1,7,6,0,1,7,5,0,1,7,1,0,1,7,7,0,1,7,3,0,1,7 -DATA 7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0,1,7,11,0,1,7 -DATA 11,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0,1,7,1,0,1,7,9,0 -DATA 1,7,11,0,2,7,3,0,2,7,5,0,2,7,3,0,1,7,6,0,1,7,4,0,1,7 -DATA 6,0,1,7,4,0,1,7,138,0,2,6,3,10,1,6,3,10,4,7,5,6,6,10 -DATA 4,6,52,0,1,5,4,14,1,5,14,0,7,7,10,0,1,6,1,13,2,14,1,5 -DATA 1,7,17,0,7,7,10,0,1,3,4,6,1,8,17,0,7,7,10,0,1,3,4,6 -DATA 1,8,17,0,1,7,3,0,1,7,7,0,1,7,12,0,1,7,12,0,1,7,22,0 -DATA 1,7,14,0,1,7,7,0,1,7,3,0,3,7,2,0,1,7,4,0,1,7,1,0,1,7 -DATA 7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0 -DATA 1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0 -DATA 2,7,10,0,1,7,11,0,2,7,3,0,2,7,5,0,1,7,1,0,1,7,2,0,1,7 -DATA 6,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,138,0,1,6,16,10,11,6 -DATA 53,0,1,5,5,14,1,7,12,0,7,6,10,0,6,6,2,7,15,0,6,6,11,0 -DATA 6,6,2,7,15,0,6,6,11,0,6,6,2,7,16,0,4,7,32,0,1,7,10,0 -DATA 5,7,9,0,1,7,12,0,1,7,8,0,1,7,2,0,1,7,2,0,1,7,2,0,1,7 -DATA 3,0,1,7,3,0,1,7,6,0,4,7,8,0,1,7,11,0,1,7,4,0,1,7,6,0 -DATA 4,7,8,0,4,7,8,0,1,7,2,0,3,7,6,0,6,7,6,0,1,7,14,0,1,7 -DATA 8,0,2,7,10,0,1,7,11,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,5,0 -DATA 1,7,1,0,1,7,2,0,1,7,6,0,1,7,4,0,1,7,6,0,5,7,136,0,4,6 -DATA 22,10,5,6,54,0,2,5,2,14,1,13,137,0,1,7,31,0,1,7,26,0 -DATA 1,7,10,0,1,7,9,0,1,7,2,0,1,7,2,0,1,7,2,0,1,7,3,0,1,7 -DATA 3,0,1,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0 -DATA 1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7 -DATA 14,0,1,7,8,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,1,0,1,7,1,0 -DATA 1,7,1,0,1,7,5,0,1,7,2,0,1,7,1,0,1,7,6,0,1,7,4,0,1,7 -DATA 6,0,1,7,65,0,5,11,30,0,5,11,32,0,4,6,23,10,1,0,7,6 -DATA 195,0,1,7,32,0,1,7,10,0,5,7,9,0,1,7,11,0,1,7,9,0,1,7 -DATA 3,0,2,7,1,0,3,7,3,0,5,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 1,7,4,0,1,7,6,0,1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7 -DATA 4,0,1,7,6,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,2,7,6,0,1,7 -DATA 4,0,1,7,6,0,1,7,63,0,8,11,28,0,7,11,29,0,2,6,3,7,4,6 -DATA 4,10,1,6,15,10,4,7,13,6,7,0,4,11,4,9,4,11,1,0,4,11 -DATA 4,9,4,11,150,0,1,7,3,0,1,7,33,0,1,7,22,0,1,7,23,0,1,7 -DATA 10,0,1,7,5,0,1,7,5,0,1,7,3,0,1,7,7,0,1,7,4,0,1,7,6,0 -DATA 1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,3,0,2,7,6,0,1,7 -DATA 4,0,1,7,6,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,2,7,6,0,1,7 -DATA 4,0,1,7,6,0,1,7,28,0,5,11,29,0,9,3,1,11,26,0,2,11,5,3 -DATA 2,11,28,0,4,6,36,10,6,6,7,0,3,11,6,9,3,11,1,0,3,11 -DATA 6,9,3,11,151,0,3,7,8,0,1,7,12,0,1,7,13,0,1,7,20,0,1,7 -DATA 13,0,1,7,10,0,2,7,9,0,1,7,5,0,1,7,5,0,4,7,9,0,4,7,7,0 -DATA 4,7,8,0,5,7,7,0,1,7,12,0,3,7,1,0,1,7,6,0,1,7,4,0,1,7 -DATA 6,0,1,7,12,0,2,7,9,0,1,7,4,0,1,7,6,0,5,7,7,0,1,7,5,0 -DATA 1,7,5,0,1,7,4,0,1,7,7,0,4,7,7,0,1,7,27,0,1,11,5,3,1,11 -DATA 27,0,2,11,2,3,2,11,6,3,24,0,1,11,9,3,1,11,30,0,1,6 -DATA 9,10,1,6,26,10,5,6,8,0,1,11,10,8,1,11,1,0,1,11,10,8 -DATA 1,11,38,0,1,6,1,7,7,9,1,7,1,6,125,0,1,7,62,0,5,7,210,0 -DATA 2,11,7,3,1,11,25,0,8,11,5,3,24,0,11,11,31,0,4,6,1,10 -DATA 1,7,3,10,1,6,25,10,5,6,9,0,1,11,1,8,8,10,1,8,1,11,1,0 -DATA 1,11,1,8,8,10,1,8,1,11,13,0,1,5,2,13,19,0,1,6,15,9 -DATA 1,6,33,0,1,9,364,0,4,11,8,3,1,11,24,0,1,6,2,10,1,6 -DATA 2,10,2,6,5,3,24,0,1,3,1,11,7,6,1,11,1,3,29,0,1,6,1,7 -DATA 5,10,1,7,3,10,1,6,20,10,2,7,6,6,11,0,1,9,1,8,8,6,1,8 -DATA 1,9,1,0,1,9,1,8,8,6,1,8,1,9,12,0,1,5,2,14,1,13,17,0 -DATA 1,6,5,8,10,9,4,8,1,6,31,0,1,8,364,0,2,6,2,11,9,3,1,11 -DATA 22,0,1,3,1,6,1,7,1,6,2,7,2,6,3,3,2,11,1,3,24,0,1,7 -DATA 1,6,3,10,1,6,3,10,1,6,1,7,29,0,1,6,3,7,3,10,1,7,1,6 -DATA 2,10,1,6,1,10,1,6,18,10,1,7,4,6,3,0,1,6,10,0,1,9,1,8 -DATA 1,6,1,10,1,6,2,10,1,6,1,10,1,6,1,8,1,9,1,0,1,9,1,8 -DATA 1,6,1,10,1,6,2,10,1,6,1,10,1,6,1,8,1,9,11,0,1,5,3,14 -DATA 17,0,5,8,14,9,4,8,30,0,1,8,21,0,4,3,1,6,2,7,1,6,4,3 -DATA 6,0,16,4,309,0,1,6,1,10,1,6,11,3,2,11,20,0,1,3,4,8 -DATA 1,7,5,3,1,6,1,11,1,3,23,0,1,11,3,6,1,7,3,6,1,7,3,6 -DATA 1,11,28,0,3,6,5,7,2,6,6,7,1,10,1,7,14,10,1,7,4,6,14,0 -DATA 1,9,1,8,1,7,1,10,1,7,2,10,1,7,1,10,1,7,1,8,1,9,1,0 -DATA 1,9,1,8,1,7,1,10,1,7,2,10,1,7,1,10,1,7,1,8,1,9,11,0 -DATA 1,5,1,14,1,11,1,5,16,0,5,8,17,9,3,8,25,0,3,7,1,0,1,8 -DATA 1,0,3,8,17,0,2,3,1,6,1,7,1,6,2,1,1,6,1,7,1,6,2,3,6,0 -DATA 1,4,14,8,1,4,308,0,4,6,6,3,2,11,5,3,4,11,16,0,1,3,1,7 -DATA 1,10,1,7,1,10,1,7,1,6,4,3,2,11,1,3,1,11,1,0,3,11,16,0 -DATA 2,11,1,3,3,6,2,8,1,7,2,8,3,6,1,3,2,11,26,0,2,6,2,7 -DATA 3,10,2,6,2,10,3,6,2,10,1,6,1,7,14,10,2,7,3,6,14,0,1,11 -DATA 1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7,1,8,1,11,1,0,1,11,1,8 -DATA 1,7,1,3,1,7,2,3,1,7,1,3,1,7,1,8,1,11,11,0,3,14,16,0 -DATA 4,8,20,9,1,15,2,8,26,0,1,7,1,0,1,8,1,0,1,8,19,0,2,3 -DATA 1,7,1,1,1,6,2,1,1,6,1,1,1,7,2,3,6,0,1,4,14,8,1,4,167,0 -DATA 1,7,139,0,2,8,2,6,7,3,1,6,1,11,9,3,2,11,13,0,1,11,7,6 -DATA 8,3,1,11,3,3,2,11,13,0,1,11,4,3,2,6,1,7,1,10,1,8,1,10 -DATA 1,7,2,6,4,3,1,11,25,0,2,6,3,7,2,10,2,6,1,10,2,6,1,10 -DATA 1,6,3,10,2,6,8,10,2,7,2,10,4,7,2,6,14,0,1,11,1,8,1,7 -DATA 1,1,1,7,2,1,1,7,1,1,1,7,1,8,1,11,1,0,1,11,1,8,1,7,1,3 -DATA 1,7,2,3,1,7,1,3,1,7,1,8,1,11,11,0,1,14,1,11,1,14,15,0 -DATA 4,8,21,9,1,8,2,15,1,8,24,0,3,7,4,8,18,0,1,3,1,7,3,1 -DATA 2,7,3,1,1,7,1,3,6,0,1,4,2,8,10,6,2,8,1,4,10,0,4,7,7,0 -DATA 5,7,8,0,3,7,8,0,5,7,7,0,1,7,4,0,1,7,6,0,1,7,5,0,1,7 -DATA 5,0,1,7,9,0,1,7,1,0,1,7,5,0,1,7,5,0,1,7,5,0,1,7,5,0 -DATA 7,7,5,0,2,7,10,0,1,7,11,0,2,7,11,0,1,7,1,0,1,7,20,0 -DATA 1,7,23,0,1,7,27,0,1,7,20,0,1,7,22,0,1,7,21,0,1,7,1,10 -DATA 1,8,1,6,6,3,2,11,12,3,1,11,11,0,1,11,1,3,1,6,3,10,2,6 -DATA 3,3,1,1,10,3,1,11,12,0,1,11,4,3,1,1,2,3,1,6,1,7,1,6 -DATA 1,7,1,6,2,3,1,1,4,3,1,11,24,0,4,6,1,7,2,10,3,6,3,10 -DATA 1,6,3,10,1,6,6,10,1,6,2,10,2,6,4,10,2,7,2,6,14,0,1,9 -DATA 1,8,8,7,1,8,1,9,1,0,1,9,1,8,8,7,1,8,1,9,11,0,3,14,14,0 -DATA 6,8,8,9,1,8,12,9,3,15,1,8,21,0,4,7,1,8,1,7,1,9,4,8 -DATA 16,0,1,3,10,7,1,3,6,0,1,4,2,8,10,7,2,8,1,4,9,0,1,7 -DATA 4,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,3,0,1,7,9,0,1,7,9,0 -DATA 1,7,4,0,1,7,6,0,1,7,5,0,1,7,5,0,1,7,9,0,1,7,1,0,1,7 -DATA 5,0,1,7,5,0,1,7,5,0,1,7,11,0,1,7,5,0,1,7,11,0,1,7,12,0 -DATA 1,7,10,0,1,7,3,0,1,7,20,0,1,7,22,0,1,7,27,0,1,7,19,0 -DATA 1,7,23,0,1,7,20,0,2,7,3,6,21,3,1,11,10,0,1,11,2,3,5,6 -DATA 1,3,2,1,12,3,1,11,10,0,1,11,6,3,1,1,1,6,5,7,1,6,1,1 -DATA 6,3,1,11,24,0,4,6,2,10,2,6,3,10,2,6,3,10,1,6,6,10,1,6 -DATA 2,10,1,6,6,10,1,7,2,6,14,0,1,9,1,8,1,7,1,1,1,7,2,1 -DATA 1,7,1,1,1,7,1,8,1,9,1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7 -DATA 1,5,1,7,1,8,1,9,11,0,3,14,13,0,7,8,22,9,2,15,2,8,18,0 -DATA 7,7,8,8,14,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,10 -DATA 1,7,2,10,1,7,2,10,1,7,2,8,1,4,9,0,1,7,4,0,1,7,6,0,1,7 -DATA 4,0,1,7,6,0,1,7,13,0,1,7,9,0,1,7,4,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,3,0,1,7,3,0,1,7,3,0,1,7,7,0,1,7 -DATA 3,0,1,7,11,0,1,7,6,0,1,7,11,0,1,7,12,0,1,7,58,0,1,7 -DATA 27,0,1,7,19,0,1,7,23,0,1,7,20,0,4,6,22,3,1,11,9,0,1,11 -DATA 5,3,4,10,14,3,1,11,9,0,1,11,8,3,1,1,5,6,1,1,7,3,2,11 -DATA 25,0,2,6,2,10,2,6,2,10,1,6,5,10,1,6,6,10,1,6,2,10,2,6 -DATA 3,10,3,7,2,6,14,0,1,9,1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7 -DATA 1,8,1,9,1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8 -DATA 1,9,11,0,1,5,2,14,1,5,11,0,7,8,23,9,3,15,2,8,16,0,9,7 -DATA 8,8,13,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,10,1,7 -DATA 2,10,1,7,2,10,1,7,2,8,1,4,9,0,1,7,4,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,1,7,13,0,1,7,9,0,1,7,4,0,1,7,7,0,1,7,3,0,1,7 -DATA 7,0,1,7,3,0,1,7,3,0,1,7,4,0,1,7,1,0,1,7,9,0,1,7,1,0 -DATA 1,7,11,0,1,7,7,0,1,7,12,0,1,7,11,0,1,7,47,0,3,7,8,0 -DATA 4,7,9,0,3,7,9,0,4,7,8,0,3,7,8,0,2,7,11,0,4,7,7,0,1,7 -DATA 1,0,2,7,18,0,3,6,3,3,3,1,6,3,1,6,1,7,1,6,7,3,1,11,9,0 -DATA 1,11,7,3,1,10,15,3,1,11,9,0,1,11,9,3,1,1,3,10,1,1,9,3 -DATA 1,11,26,0,2,6,1,10,2,6,2,10,1,6,5,10,2,6,6,10,3,6,2,10 -DATA 3,7,4,6,14,0,1,11,1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7,1,8 -DATA 1,11,1,0,1,11,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8,1,11 -DATA 11,0,1,5,3,14,10,0,1,6,6,8,6,9,1,8,1,9,1,8,15,9,5,15 -DATA 1,6,14,0,4,7,9,2,2,9,4,8,12,0,1,3,1,7,8,1,1,7,1,3,6,0 -DATA 1,4,2,8,1,7,2,1,1,7,2,1,1,7,2,1,1,7,2,8,1,4,9,0,1,7 -DATA 4,0,1,7,6,0,5,7,8,0,3,7,10,0,1,7,9,0,1,7,4,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,3,0,1,7,5,0,1,7,11,0,1,7 -DATA 11,0,1,7,8,0,1,7,12,0,1,7,11,0,1,7,50,0,1,7,7,0,1,7 -DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,2,7,2,0,1,7,18,0,5,1 -DATA 3,3,3,7,3,6,4,7,1,6,6,3,9,0,1,11,8,3,7,6,9,3,9,0,1,11 -DATA 24,3,27,0,1,6,5,10,1,6,5,10,11,6,3,7,6,6,14,0,1,11 -DATA 1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7,1,8,1,11,1,0,1,11,1,8 -DATA 1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8,1,11,12,0,1,5,3,14 -DATA 9,0,7,8,2,9,6,8,17,9,4,15,1,8,13,0,4,7,1,8,6,7,10,8 -DATA 11,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1,1,7,2,1 -DATA 1,7,2,1,1,7,2,8,1,4,9,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7 -DATA 10,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,8,0,1,7,1,0,1,7,9,0 -DATA 1,7,1,0,1,7,1,0,1,7,1,0,1,7,5,0,1,7,1,0,1,7,10,0,1,7 -DATA 10,0,1,7,9,0,1,7,13,0,1,7,10,0,1,7,47,0,4,7,7,0,1,7 -DATA 3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,5,7,7,0,1,7,11,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,18,0,7,3,5,7,1,6,5,7,1,6 -DATA 6,3,9,0,7,3,4,7,4,6,3,7,7,3,9,0,7,3,4,7,4,6,3,7,7,3 -DATA 27,0,2,6,4,7,6,10,2,6,7,10,2,6,1,7,7,6,15,0,1,9,1,8 -DATA 8,7,1,8,1,9,1,0,1,9,1,8,8,7,1,8,1,9,13,0,1,5,2,14,1,7 -DATA 7,0,1,6,6,8,1,9,6,8,1,9,2,8,16,9,5,15,1,6,11,0,2,7 -DATA 1,1,1,7,1,1,1,8,1,7,6,2,2,9,2,15,1,8,1,9,1,8,1,2,2,8 -DATA 10,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1,1,7,2,1 -DATA 1,7,2,1,1,7,2,8,1,4,9,0,1,7,2,0,1,7,1,0,1,7,6,0,1,7 -DATA 4,0,1,7,10,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,8,0,1,7,1,0 -DATA 1,7,9,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,4,0,1,7,3,0,1,7 -DATA 9,0,1,7,9,0,1,7,10,0,1,7,13,0,1,7,10,0,1,7,46,0,1,7 -DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,18,0 -DATA 6,3,13,7,1,6,5,3,9,0,6,3,13,7,1,6,5,3,9,0,6,3,13,7 -DATA 1,6,5,3,28,0,7,6,4,10,2,6,3,10,1,6,2,10,2,7,3,6,2,0 -DATA 3,6,16,0,1,9,1,8,1,7,1,2,1,7,2,2,1,7,1,2,1,7,1,8,1,9 -DATA 1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8,1,9,24,0 -DATA 16,8,17,9,5,15,1,8,11,0,1,7,2,1,1,8,1,1,1,8,7,2,2,9 -DATA 2,15,1,8,1,9,1,8,2,2,1,8,10,0,1,3,1,7,8,1,1,7,1,3,6,0 -DATA 1,4,2,8,10,7,2,8,1,4,9,0,1,7,3,0,2,7,6,0,1,7,4,0,1,7 -DATA 6,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,9,0,1,7,11,0 -DATA 1,7,3,0,1,7,4,0,1,7,5,0,1,7,8,0,1,7,8,0,1,7,11,0,1,7 -DATA 14,0,1,7,9,0,1,7,46,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7 -DATA 11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,18,0,5,3,3,6,4,7,2,6 -DATA 2,7,4,6,5,3,9,0,5,3,3,6,4,7,2,6,3,7,3,6,5,3,9,0,5,3 -DATA 3,6,4,7,2,6,3,7,3,6,5,3,32,0,3,6,4,10,2,6,3,10,1,6 -DATA 2,10,1,7,3,6,22,0,1,9,1,8,1,7,1,2,1,7,2,2,1,7,1,2,1,7 -DATA 1,8,1,9,1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8 -DATA 1,9,24,0,16,8,5,9,1,8,11,9,6,15,10,0,3,7,2,8,1,7,1,8 -DATA 6,7,12,8,9,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1 -DATA 1,7,2,1,1,7,2,1,1,7,2,8,1,4,10,0,4,7,7,0,1,7,4,0,1,7 -DATA 7,0,3,7,10,0,1,7,10,0,4,7,10,0,1,7,11,0,1,7,3,0,1,7 -DATA 4,0,1,7,5,0,1,7,8,0,1,7,8,0,7,7,5,0,1,7,14,0,1,7,9,0 -DATA 1,7,47,0,4,7,7,0,4,7,9,0,3,7,9,0,4,7,8,0,3,7,8,0,1,7 -DATA 12,0,4,7,7,0,1,7,3,0,1,7,18,0,5,3,15,6,1,10,4,3,9,0 -DATA 5,3,15,6,1,10,4,3,9,0,5,3,15,6,1,10,4,3,34,0,2,6,3,10 -DATA 2,6,1,10,8,6,23,0,1,11,1,8,1,7,1,2,1,7,2,2,1,7,1,2 -DATA 1,7,1,8,1,11,1,0,1,11,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7 -DATA 1,8,1,11,23,0,1,6,5,8,1,9,11,8,4,9,4,8,8,9,6,15,1,6 -DATA 9,0,1,7,3,1,1,8,1,1,1,8,8,2,3,9,1,8,1,2,1,8,3,2,1,8 -DATA 9,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1,1,7,2,1 -DATA 1,7,2,1,1,7,2,8,1,4,14,0,1,7,114,0,1,7,24,0,1,7,122,0 -DATA 1,7,30,0,4,3,1,10,15,6,1,10,4,3,9,0,4,3,1,10,15,6,1,10 -DATA 4,3,9,0,4,3,1,10,15,6,1,10,4,3,35,0,2,6,2,10,1,6,4,10 -DATA 4,6,1,0,4,6,20,0,1,11,1,8,1,7,1,2,1,7,2,2,1,7,1,2,1,7 -DATA 1,8,1,11,1,0,1,11,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8 -DATA 1,11,23,0,1,7,4,8,2,9,10,8,3,9,8,8,6,9,6,15,1,7,6,0 -DATA 1,8,1,0,1,7,4,1,1,7,1,1,1,8,11,2,1,8,1,2,1,8,4,2,1,8 -DATA 1,0,1,9,6,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,1 -DATA 1,7,2,1,1,7,2,1,1,7,2,8,1,4,129,0,2,7,22,0,2,7,22,0 -DATA 6,7,90,0,4,7,31,0,4,3,1,10,5,6,5,7,5,6,1,10,4,3,9,0 -DATA 4,3,1,10,5,6,5,7,5,6,1,10,4,3,9,0,4,3,1,10,5,6,5,7 -DATA 5,6,1,10,4,3,35,0,3,6,2,10,7,6,2,0,1,6,2,10,3,6,18,0 -DATA 1,11,1,8,8,7,1,8,1,11,1,0,1,11,1,8,8,7,1,8,1,11,23,0 -DATA 16,8,3,9,1,8,1,9,7,8,9,9,4,15,6,0,5,7,1,9,1,8,9,7,15,8 -DATA 6,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2 -DATA 1,7,2,2,1,7,2,8,1,4,308,0,4,3,2,10,2,6,4,7,1,10,4,7 -DATA 3,6,1,10,4,3,9,0,4,3,2,10,2,6,4,7,1,10,4,7,3,6,1,10 -DATA 4,3,9,0,4,3,2,10,2,6,4,7,1,10,4,7,3,6,1,10,4,3,36,0 -DATA 2,6,1,0,2,6,8,0,2,6,3,10,3,6,16,0,1,11,10,8,1,11,1,0 -DATA 1,11,10,8,1,11,13,0,1,5,2,14,1,13,6,0,9,8,2,9,1,8,1,9 -DATA 5,8,3,9,7,8,10,9,1,15,2,9,6,0,1,7,1,0,1,7,4,1,1,7,1,1 -DATA 1,7,11,2,1,8,1,2,1,8,4,2,1,8,1,0,1,8,6,0,1,3,1,7,8,2 -DATA 1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2,1,7,2,2,1,7,2,8 -DATA 1,4,308,0,4,3,2,10,1,6,11,7,1,6,2,10,4,3,9,0,4,3,2,10 -DATA 1,6,11,7,1,6,2,10,4,3,9,0,4,3,2,10,1,6,11,7,1,6,2,10 -DATA 4,3,38,0,2,6,5,0,3,6,2,0,1,6,4,10,2,6,16,0,12,9,1,0 -DATA 12,9,11,0,1,5,2,14,1,11,2,14,1,13,5,0,7,8,1,9,1,8,4,9 -DATA 1,8,1,9,2,8,3,9,8,8,2,9,1,8,6,9,4,15,6,0,1,7,1,0,1,7 -DATA 4,1,1,7,1,1,1,7,1,1,10,2,1,8,1,2,1,8,4,2,1,8,1,0,1,8 -DATA 6,0,1,3,10,7,1,3,6,0,1,4,2,8,10,7,2,8,1,4,308,0,4,3 -DATA 2,10,1,6,11,7,1,6,2,10,4,3,9,0,4,3,2,10,1,6,11,7,1,6 -DATA 2,10,4,3,9,0,4,3,2,10,1,6,11,7,1,6,2,10,4,3,46,0,2,6 -DATA 2,0,1,6,3,10,2,6,17,0,12,8,1,0,12,8,10,0,1,5,1,14,1,11 -DATA 3,14,7,0,1,8,1,9,5,8,1,9,1,8,12,9,2,8,1,9,7,8,2,9,1,15 -DATA 3,9,4,15,6,0,5,7,1,9,2,8,8,7,15,8,6,0,1,3,1,7,8,1,1,7 -DATA 1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2,1,7,2,2,1,7,2,8,1,4 -DATA 227,0,1,7,21,0,1,7,58,0,3,11,1,3,2,10,1,6,11,7,1,6 -DATA 2,10,1,3,3,11,9,0,3,11,1,3,2,10,1,6,11,7,1,6,2,10,1,3 -DATA 3,11,9,0,3,11,1,3,2,10,1,6,11,7,1,6,2,10,1,3,3,11,50,0 -DATA 2,6,2,10,1,6,18,0,12,6,1,0,12,6,9,0,1,5,4,14,9,0,1,8 -DATA 1,9,4,8,2,9,1,8,7,9,5,8,1,9,10,8,1,9,5,15,1,9,2,15 -DATA 8,0,1,7,4,1,1,7,1,1,1,7,2,1,9,2,1,8,1,2,1,8,3,2,1,1 -DATA 1,8,8,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7 -DATA 2,2,1,7,2,2,1,7,2,8,1,4,9,0,1,7,11,0,1,7,11,0,1,7,11,0 -DATA 1,7,180,0,1,7,10,0,1,7,12,0,1,7,57,0,4,11,2,10,2,6 -DATA 9,7,2,6,2,10,4,11,9,0,4,11,2,10,2,6,9,7,2,6,2,10,4,11 -DATA 9,0,4,11,2,10,2,6,9,7,2,6,2,10,4,11,51,0,4,6,51,0,1,5 -DATA 4,14,10,0,1,8,1,9,3,8,10,9,6,8,3,9,9,8,4,15,2,9,2,15 -DATA 8,0,1,7,4,1,1,7,1,1,1,7,3,1,8,2,1,8,1,2,1,8,2,2,2,1 -DATA 1,8,8,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7 -DATA 2,2,1,7,2,2,1,7,2,8,1,4,33,0,1,7,11,0,1,7,95,0,1,7 -DATA 84,0,1,7,10,0,1,7,12,0,1,7,11,0,2,7,2,0,1,7,240,0,1,5 -DATA 3,14,11,0,1,8,1,9,5,8,6,9,1,8,1,9,2,8,3,9,1,8,3,9,9,8 -DATA 7,15,1,8,4,0,6,7,3,1,1,7,1,1,1,7,5,1,6,2,1,8,1,1,1,8 -DATA 3,1,6,8,4,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2 -DATA 1,7,2,2,1,7,2,2,1,7,2,8,1,4,33,0,1,7,11,0,1,7,95,0 -DATA 1,7,84,0,1,7,10,0,1,7,12,0,1,7,10,0,1,7,2,0,2,7,241,0 -DATA 3,14,12,0,1,7,8,8,4,9,4,8,7,9,8,8,1,15,3,9,1,15,2,9 -DATA 1,15,1,7,7,0,4,7,3,8,13,7,5,8,3,7,1,8,7,0,1,3,1,7,8,2 -DATA 1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2,1,7,2,2,1,7,2,8 -DATA 1,4,9,0,1,7,11,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,11,0 -DATA 3,7,1,0,2,7,6,0,1,7,1,0,2,7,9,0,3,7,8,0,4,7,9,0,4,7 -DATA 7,0,2,7,11,0,2,7,9,0,2,7,10,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,2,0,1,7,9,0,1,7 -DATA 2,0,1,7,7,0,4,7,9,0,1,7,10,0,1,7,12,0,1,7,256,0,2,14 -DATA 1,5,12,0,1,6,1,8,1,9,6,8,4,9,4,8,8,9,3,8,2,9,1,8,1,15 -DATA 5,9,3,15,1,6,6,0,2,7,4,8,11,7,3,8,1,9,4,15,1,9,5,8 -DATA 6,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,10,7,2,8,1,4,9,0 -DATA 1,7,11,0,1,7,11,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,2,0 -DATA 1,7,2,0,1,7,5,0,2,7,2,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7 -DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7 -DATA 2,0,1,7,5,0,1,7,2,0,1,7,9,0,1,7,2,0,1,7,10,0,1,7,8,0 -DATA 1,7,11,0,1,7,13,0,1,7,255,0,1,13,1,14,14,0,1,8,1,9 -DATA 6,8,1,9,2,8,2,9,1,8,2,9,1,8,6,9,5,8,1,9,2,15,5,9,3,15 -DATA 7,0,3,7,1,0,1,7,2,1,1,7,1,1,1,7,3,1,1,7,1,1,1,7,1,1 -DATA 1,7,3,1,1,7,1,1,1,7,2,1,1,8,1,0,3,8,6,0,1,3,1,7,8,2 -DATA 1,7,1,3,6,0,1,4,14,8,1,4,9,0,1,7,11,0,1,7,11,0,2,7 -DATA 10,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7 -DATA 12,0,1,7,10,0,1,7,11,0,1,7,3,0,1,7,8,0,1,7,1,0,1,7 -DATA 8,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,6,0,2,7,10,0,1,7,2,0 -DATA 1,7,9,0,1,7,10,0,1,7,10,0,1,7,12,0,1,7,257,0,1,7,14,0 -DATA 1,8,1,9,6,8,1,9,1,8,18,9,3,15,4,9,4,15,7,0,2,7,3,0 -DATA 1,7,1,1,1,7,1,1,1,7,3,1,1,7,1,1,1,8,1,1,1,8,3,1,1,7 -DATA 1,1,1,7,1,1,1,8,3,0,2,8,6,0,12,8,6,0,16,9,9,0,1,7,11,0 -DATA 1,7,11,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7 -DATA 5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,13,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7 -DATA 8,0,1,7,1,0,1,7,8,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,6,0 -DATA 2,7,10,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,10,0,1,7,12,0 -DATA 1,7,272,0,1,6,1,8,1,9,2,8,1,9,2,8,1,9,2,8,16,9,5,15 -DATA 2,9,4,15,1,6,44,0,12,7,6,0,16,8,9,0,1,7,11,0,1,7,11,0 -DATA 1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7 -DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,2,7 -DATA 9,0,1,7,10,0,1,7,3,0,1,7,6,0,1,7,2,0,1,7,10,0,2,7,8,0 -DATA 1,7,12,0,1,7,10,0,1,7,12,0,1,7,273,0,1,8,1,15,4,9,4,8 -DATA 2,9,1,8,12,9,12,15,45,0,12,6,6,0,16,8,9,0,1,7,11,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7 -DATA 5,0,1,7,3,0,1,7,8,0,3,7,8,0,4,7,9,0,4,7,7,0,1,7,12,0 -DATA 2,7,10,0,1,7,11,0,2,7,1,0,1,7,9,0,1,7,10,0,1,7,3,0 -DATA 1,7,6,0,1,7,2,0,1,7,10,0,1,7,9,0,4,7,9,0,1,7,10,0,1,7 -DATA 12,0,1,7,273,0,1,6,2,15,3,9,2,8,1,9,1,8,2,9,1,8,11,9 -DATA 3,15,1,9,8,15,1,6,100,0,1,7,71,0,1,7,15,0,1,7,93,0 -DATA 1,7,23,0,1,7,9,0,1,7,11,0,1,7,275,0,1,8,2,15,1,9,2,8 -DATA 2,9,1,8,1,9,3,8,9,9,5,15,1,9,6,15,1,8,101,0,1,7,71,0 -DATA 1,7,15,0,1,7,91,0,2,7,323,0,1,8,2,15,2,8,1,9,1,8,1,9 -DATA 3,8,8,9,14,15,608,0,6,15,2,9,3,8,4,9,16,15,47,0,10,2 -DATA 1,10,552,0,1,8,3,15,1,9,24,15,48,0,1,2,9,1,1,10,553,0 -DATA 1,8,26,15,49,0,1,2,6,1,1,7,2,1,1,10,554,0,25,15,50,0 -DATA 1,2,5,1,2,14,2,1,1,10,533,0,2,5,4,14,1,5,15,0,1,8,21,15 -DATA 1,8,40,0,6,8,5,0,1,2,4,1,2,14,1,5,2,1,1,10,532,0,1,5 -DATA 4,14,1,11,3,14,1,5,14,0,1,6,19,15,1,6,41,0,6,7,5,0 -DATA 1,2,3,1,2,14,1,5,3,1,1,10,531,0,1,5,7,14,1,11,2,14 -DATA 16,0,1,6,15,15,1,6,43,0,6,7,5,0,1,2,2,1,2,14,1,5,4,1 -DATA 1,10,238,0,1,5,61,0,1,7,20,0,1,5,209,0,3,14,1,5,4,0 -DATA 1,5,2,14,19,0,1,6,1,7,7,15,1,7,1,6,46,0,6,7,5,0,1,2 -DATA 1,1,1,13,2,5,5,1,1,10,264,0,1,5,61,0,1,7,204,0,2,14 -DATA 8,0,1,13,76,0,6,6,5,0,1,2,9,1,1,10,175,0,1,5,62,0,1,5 -DATA 61,0,1,7,230,0,1,7,86,0,3,7,3,6,5,0,1,2,9,1,1,10,175,0 -DATA 1,5,86,0,1,5,18,0,1,5,35,0,1,5,6,0,1,7,293,0,3,7,3,3 -DATA 6,0,10,10,175,0,1,5,62,0,1,14,61,0,1,7,317,0,3,6,3,3 -DATA 191,0,1,5,62,0,1,14,10,0,3,5,8,0,1,5,26,0,1,5,12,0 -DATA 1,7,5,0,1,5,4,0,3,7,8,0,1,7,492,0,1,5,37,0,1,4,19,0 -DATA 3,7,2,0,1,14,9,0,5,5,6,0,1,5,15,0,1,7,19,0,3,7,2,0 -DATA 1,7,9,0,5,7,6,0,1,7,46,0,1,7,446,0,1,14,38,0,1,4,16,0 -DATA 7,7,9,0,7,5,4,0,1,14,17,0,1,7,16,0,7,7,9,0,7,7,4,0 -DATA 1,7,494,0,1,14,39,0,1,5,4,0,1,5,10,0,7,7,4,0,3,7,2,0 -DATA 7,5,3,0,1,14,19,0,1,7,4,0,1,7,10,0,7,7,4,0,3,7,2,0 -DATA 7,7,3,0,1,7,35,0,5,7,455,0,1,14,6,0,1,5,33,0,1,5,13,0 -DATA 9,7,2,0,5,7,1,0,2,5,1,15,4,5,2,7,1,14,21,0,1,7,13,0 -DATA 9,7,2,0,5,7,1,0,10,7,34,0,9,7,11,0,1,7,186,0,5,11,35,0 -DATA 5,11,191,0,1,5,16,0,5,5,39,0,1,14,12,0,9,7,1,0,7,7 -DATA 1,0,3,15,1,14,1,5,5,7,21,0,1,7,12,0,9,7,1,0,7,7,1,0 -DATA 10,7,1,0,1,5,30,0,7,7,5,8,19,0,1,7,149,0,1,13,2,14 -DATA 1,5,22,0,7,11,33,0,7,11,34,0,5,11,161,0,1,5,4,0,9,5 -DATA 13,0,1,5,24,0,1,14,1,0,1,5,9,0,3,7,1,5,5,7,1,0,3,7 -DATA 1,5,3,7,2,0,1,15,3,14,6,7,21,0,1,7,1,0,1,7,9,0,9,7 -DATA 1,0,1,5,6,7,2,0,10,7,30,0,7,7,7,8,167,0,1,7,5,14,1,5 -DATA 19,0,2,11,5,3,2,11,31,0,2,11,5,3,2,11,32,0,7,11,152,0 -DATA 1,5,11,0,4,5,5,14,2,5,7,0,1,5,3,0,1,5,17,0,1,4,8,0 -DATA 1,15,4,0,5,7,2,0,7,7,2,0,7,7,1,0,1,5,2,7,1,14,8,7,12,0 -DATA 1,7,8,0,1,7,4,0,5,7,2,0,7,7,2,0,7,7,1,0,12,7,28,0,7,7 -DATA 9,8,168,0,1,5,4,14,1,5,17,0,1,11,9,3,1,11,29,0,1,11 -DATA 9,3,1,11,30,0,2,11,5,3,2,11,152,0,1,5,9,0,4,5,7,14 -DATA 2,5,3,8,6,0,1,14,31,0,8,7,3,15,4,7,3,0,5,7,1,0,1,5 -DATA 1,0,11,7,25,0,15,7,3,0,5,7,1,0,1,7,1,0,11,7,28,0,6,7 -DATA 11,8,169,0,4,14,1,5,13,0,3,11,11,3,4,11,25,0,11,11 -DATA 29,0,1,11,9,3,1,11,104,0,1,5,47,0,1,5,5,0,1,5,1,0,4,5 -DATA 9,14,5,8,4,0,1,14,21,0,1,4,1,0,1,5,7,0,2,7,1,5,5,7 -DATA 5,15,1,7,3,0,6,7,2,0,1,14,1,0,11,7,14,0,1,7,1,0,1,7 -DATA 7,0,9,7,5,8,3,0,6,7,2,0,1,7,1,0,11,7,19,0,1,7,7,0,7,7 -DATA 11,8,5,7,165,0,2,14,1,11,1,14,11,0,2,11,2,3,1,11,11,3 -DATA 1,11,3,3,2,11,22,0,1,11,1,3,1,11,7,6,1,11,1,3,1,11 -DATA 28,0,11,11,104,0,1,5,48,0,1,14,6,0,3,5,9,14,7,8,3,5 -DATA 24,0,2,4,1,0,1,4,3,0,8,7,7,15,7,5,2,0,1,5,5,15,9,7 -DATA 13,0,1,5,2,0,2,7,1,0,1,7,3,0,9,7,7,8,6,7,2,0,1,7,1,0 -DATA 13,7,27,0,7,7,11,8,6,7,165,0,3,14,1,5,9,0,1,11,7,3 -DATA 2,11,3,3,2,11,7,3,1,11,20,0,2,11,1,3,1,7,1,6,3,10,1,6 -DATA 3,10,1,6,1,7,1,3,2,11,25,0,1,11,1,3,1,11,7,6,1,11,1,3 -DATA 1,11,103,0,1,5,4,0,1,7,44,0,1,14,4,0,3,5,5,14,3,15 -DATA 2,14,7,8,5,5,21,0,2,4,3,5,3,0,7,7,1,5,7,15,7,14,2,5 -DATA 7,15,1,5,7,7,15,0,5,7,3,0,8,7,9,8,8,7,3,0,11,7,27,0 -DATA 7,7,11,8,7,7,165,0,1,14,1,11,1,14,9,0,1,11,6,3,9,11 -DATA 7,3,1,11,18,0,1,11,3,3,3,6,1,7,3,6,1,7,3,6,3,3,1,11 -DATA 22,0,2,11,1,3,1,7,1,6,3,10,1,6,3,10,1,6,1,7,1,3,2,11 -DATA 105,0,3,7,43,0,3,8,2,0,3,5,4,14,5,15,1,14,7,8,5,5,21,0 -DATA 1,4,2,5,3,14,2,0,8,7,7,15,8,14,9,15,6,7,16,0,6,7,2,0 -DATA 7,7,11,8,8,7,2,0,10,7,28,0,7,7,11,8,8,7,164,0,3,14 -DATA 8,0,1,11,6,3,1,11,1,6,3,10,1,6,3,10,1,6,1,11,6,3,1,11 -DATA 17,0,1,11,4,3,3,6,2,8,1,7,2,8,3,6,4,3,1,11,20,0,1,11 -DATA 3,3,3,6,1,7,3,6,1,7,3,6,3,3,1,11,94,0,3,8,3,0,1,14 -DATA 4,0,1,7,7,0,1,5,35,0,5,8,1,0,3,5,4,14,5,15,2,14,5,8 -DATA 7,5,19,0,1,4,2,5,5,14,1,0,1,7,1,14,3,7,1,14,3,7,5,15 -DATA 8,14,11,15,4,7,1,0,1,5,14,0,8,7,1,0,7,7,11,8,19,7,1,0 -DATA 1,7,27,0,8,7,9,8,9,7,48,0,1,8,1,0,3,7,112,0,1,14,1,13 -DATA 8,0,1,11,5,3,1,10,1,3,1,6,1,7,5,6,1,7,1,6,1,3,1,10 -DATA 5,3,1,11,16,0,1,11,4,3,1,1,1,3,2,6,1,7,1,10,1,8,1,10 -DATA 1,7,2,6,1,3,1,1,4,3,1,11,18,0,1,11,4,3,3,6,2,8,1,7 -DATA 2,8,3,6,4,3,1,11,92,0,5,8,3,0,4,5,3,14,4,0,1,5,36,0 -DATA 5,8,1,0,3,5,3,14,7,15,2,14,3,8,8,5,20,0,2,5,5,14,1,0 -DATA 10,7,3,15,1,14,7,15,1,14,11,15,3,7,1,0,1,5,16,0,7,7 -DATA 1,0,7,7,11,8,3,7,3,14,3,15,1,7,3,8,5,7,1,0,1,7,23,0 -DATA 1,7,5,0,5,7,3,6,7,8,10,7,47,0,3,8,5,7,52,0,5,6,53,0 -DATA 1,13,9,0,1,11,5,3,1,10,3,3,1,7,3,6,1,7,3,3,1,10,6,3 -DATA 15,0,1,11,5,3,1,1,3,3,1,6,1,7,1,6,1,7,1,6,3,3,1,1,4,3 -DATA 2,11,16,0,1,11,4,3,1,1,1,3,2,6,1,7,1,10,1,8,1,10,1,7 -DATA 2,6,1,3,1,1,4,3,1,11,37,0,1,5,52,0,7,8,5,5,5,14,40,0 -DATA 6,8,3,5,3,14,7,15,3,14,10,5,2,0,1,5,17,0,2,5,5,14,2,0 -DATA 9,7,2,14,6,15,1,5,14,15,2,5,1,0,1,5,5,7,12,0,7,7,2,0 -DATA 6,7,11,8,2,7,2,14,7,15,3,8,1,0,2,7,1,0,6,7,11,0,1,7 -DATA 13,0,4,7,5,6,5,8,3,7,5,8,3,7,48,0,1,8,6,7,51,0,7,6 -DATA 62,0,6,3,1,6,1,10,2,3,2,8,1,7,2,8,2,3,1,10,1,6,6,3 -DATA 15,0,1,11,6,3,1,1,1,3,2,6,3,9,2,6,1,3,1,1,6,3,1,11 -DATA 15,0,1,11,5,3,1,1,3,3,1,6,1,7,1,6,1,7,1,6,3,3,1,1,4,3 -DATA 2,11,31,0,1,8,4,0,1,5,52,0,7,8,5,5,5,14,1,5,1,14,36,0 -DATA 6,8,1,0,2,8,3,5,2,14,7,15,1,9,1,14,2,5,1,14,7,5,22,0 -DATA 2,5,3,14,3,0,8,7,2,14,22,15,1,14,1,0,1,5,7,7,12,0,5,7 -DATA 3,0,1,8,5,7,11,8,1,5,3,14,7,15,3,8,1,0,1,7,1,0,8,7 -DATA 23,0,4,7,7,6,5,7,9,8,1,7,47,0,9,7,49,0,9,6,61,0,6,3 -DATA 2,6,1,10,1,3,1,7,1,10,1,8,1,10,1,7,1,3,1,10,3,6,5,3 -DATA 15,0,1,11,7,3,1,1,2,6,3,15,2,6,1,1,7,3,1,11,15,0,1,11 -DATA 6,3,1,1,1,3,2,6,3,9,2,6,1,3,1,1,6,3,1,11,30,0,3,8,1,0 -DATA 6,5,2,0,1,8,46,0,7,8,5,5,5,14,2,5,35,0,5,8,3,0,2,8 -DATA 4,5,2,14,5,15,2,9,11,5,17,0,1,5,5,0,3,5,1,0,3,14,7,7 -DATA 2,14,23,15,2,0,9,7,6,0,1,7,5,0,3,7,1,0,2,7,3,8,3,7 -DATA 3,5,8,8,2,7,2,14,9,15,2,8,3,0,9,7,21,0,5,7,7,6,3,7 -DATA 13,8,4,0,1,7,41,0,9,7,48,0,11,6,60,0,5,3,4,6,1,10,1,6 -DATA 1,7,1,6,1,7,1,6,1,10,4,6,5,3,15,0,9,3,1,1,5,6,1,1,9,3 -DATA 15,0,1,11,7,3,1,1,2,6,3,15,2,6,1,1,7,3,1,11,26,0,1,5 -DATA 4,0,1,8,1,0,8,5,3,8,44,0,1,5,1,0,6,8,3,15,3,5,3,14 -DATA 3,5,35,0,5,8,2,0,1,5,1,0,2,8,3,15,1,5,1,14,1,9,3,15 -DATA 3,9,4,5,2,0,3,15,27,0,5,14,3,15,1,7,1,0,2,5,1,14,13,15 -DATA 1,5,9,15,2,0,11,7,13,0,5,7,1,8,2,7,7,5,5,8,3,7,2,14 -DATA 9,15,1,8,3,0,11,7,18,0,7,7,7,6,2,7,15,8,9,0,1,7,33,0 -DATA 11,7,47,0,13,6,59,0,5,3,4,6,1,10,1,6,3,7,1,6,1,10,4,6 -DATA 1,10,4,3,15,0,5,3,2,6,3,7,1,1,3,10,1,1,3,7,2,6,5,3 -DATA 15,0,9,3,1,1,5,6,1,1,9,3,27,0,1,5,4,0,10,5,1,8,46,0 -DATA 2,5,4,8,5,15,9,5,34,0,5,8,3,0,1,5,1,4,5,15,1,5,1,14 -DATA 5,15,5,5,7,15,24,0,1,5,4,14,5,15,1,0,1,5,1,14,23,15 -DATA 2,0,4,7,3,14,5,7,12,0,9,7,6,5,3,15,2,8,5,7,1,14,9,15 -DATA 1,7,2,0,12,7,12,0,1,7,4,0,9,7,5,6,3,7,15,8,42,0,11,7 -DATA 48,0,5,6,3,7,5,6,59,0,4,3,1,10,5,6,1,10,3,6,1,10,5,6 -DATA 1,10,4,3,15,0,4,3,1,1,1,6,13,7,1,6,1,1,4,3,15,0,5,3 -DATA 2,6,3,7,1,1,3,10,1,1,3,7,2,6,5,3,31,0,4,5,5,14,4,5 -DATA 3,0,1,5,41,0,5,5,10,15,1,5,3,7,2,5,34,0,3,8,4,0,1,4 -DATA 1,9,5,15,1,9,7,15,1,5,3,7,7,15,1,5,22,0,1,5,5,14,5,15 -DATA 2,5,1,14,22,15,2,5,1,0,2,7,3,15,4,14,3,7,11,0,9,7,6,5 -DATA 5,15,7,7,1,14,7,15,3,7,1,0,12,7,17,0,10,7,3,6,3,7,17,8 -DATA 40,0,5,8,4,7,3,8,1,7,47,0,4,6,5,7,4,6,59,0,4,3,1,10 -DATA 6,6,3,10,6,6,1,10,4,3,15,0,4,3,1,1,2,6,11,7,2,6,1,1 -DATA 4,3,15,0,5,3,1,6,13,7,1,6,5,3,30,0,4,5,1,14,3,15,3,14 -DATA 4,5,1,0,1,5,37,0,3,8,2,0,5,5,10,15,5,7,1,5,36,0,3,8 -DATA 2,0,1,4,1,9,14,15,2,7,9,15,1,5,17,0,1,5,3,0,1,5,5,14 -DATA 5,15,2,5,4,15,1,5,16,15,2,14,2,5,1,0,1,7,5,15,3,14 -DATA 3,7,7,0,1,7,3,0,9,7,5,5,7,15,7,7,7,15,3,7,1,0,12,7 -DATA 16,0,10,7,1,6,1,7,3,8,2,7,17,8,39,0,7,8,2,7,5,8,47,0 -DATA 3,6,7,7,3,6,42,0,1,7,2,14,1,5,13,0,4,3,2,10,14,6,1,10 -DATA 4,3,15,0,4,3,1,1,3,6,4,7,2,6,3,7,3,6,1,1,4,3,15,0,4,3 -DATA 1,1,2,6,11,7,2,6,1,1,4,3,27,0,1,5,2,0,3,5,1,14,5,15 -DATA 3,14,3,5,38,0,5,8,6,5,10,15,6,7,35,0,5,8,1,4,3,9,14,15 -DATA 1,7,9,15,2,5,12,0,1,14,1,5,2,14,4,0,1,4,1,14,1,4,1,14 -DATA 1,4,2,14,3,15,3,5,21,15,2,14,2,5,1,0,7,15,3,14,2,7 -DATA 3,0,1,7,3,8,4,0,9,7,5,5,7,15,9,7,3,15,3,8,2,7,1,0,12,7 -DATA 15,0,12,7,24,8,37,0,16,8,46,0,3,6,7,7,3,6,43,0,3,14 -DATA 1,5,12,0,4,3,2,10,1,3,11,6,1,3,2,10,4,3,15,0,4,3,1,1 -DATA 15,6,1,1,4,3,15,0,4,3,1,10,3,6,4,7,2,6,3,7,3,6,1,10 -DATA 4,3,29,0,3,5,1,14,9,15,1,14,3,5,37,0,5,8,7,5,9,15,5,7 -DATA 1,5,1,14,1,0,1,5,1,0,1,5,30,0,5,5,5,15,1,9,22,15,2,5 -DATA 14,0,1,5,2,0,1,5,1,4,2,0,1,5,6,14,26,15,2,14,2,5,1,7 -DATA 7,15,3,14,2,7,3,0,5,8,2,7,2,0,9,7,4,5,7,15,1,14,8,7 -DATA 7,8,14,7,15,0,1,7,1,8,9,7,25,8,1,0,3,7,32,0,17,8,1,0 -DATA 3,7,43,0,2,6,7,7,5,6,42,0,3,14,1,5,11,0,4,3,2,10,2,3 -DATA 2,6,5,7,2,6,2,3,2,10,4,3,15,0,4,3,1,1,15,6,1,1,4,3 -DATA 15,0,4,3,1,10,15,6,1,10,4,3,27,0,3,8,2,5,1,14,10,15 -DATA 3,5,32,0,2,5,1,0,1,14,1,0,5,8,7,5,10,15,3,7,2,5,23,0 -DATA 1,5,1,0,1,5,1,0,1,5,1,0,2,5,1,14,1,5,1,14,3,5,2,9,20,15 -DATA 1,7,7,15,3,5,4,14,2,5,1,0,1,5,8,0,1,5,5,0,5,14,27,15 -DATA 2,14,2,5,1,0,7,15,3,14,2,7,3,0,5,8,5,0,7,7,1,0,5,5 -DATA 5,15,2,14,7,7,9,8,1,0,12,7,14,0,1,7,3,8,1,7,3,6,4,7 -DATA 25,8,5,7,30,0,18,8,3,7,3,8,42,0,2,6,5,7,6,6,42,0,1,5 -DATA 2,14,1,5,11,0,3,11,1,3,2,10,2,3,1,6,3,7,1,10,3,7,1,6 -DATA 2,3,2,10,1,3,3,11,15,0,4,3,1,10,5,6,5,7,5,6,1,10,4,3 -DATA 15,0,4,3,1,10,1,1,13,6,1,1,1,10,4,3,26,0,5,8,1,5,1,14 -DATA 10,15,3,5,38,0,3,8,1,0,7,5,13,15,2,5,33,0,2,5,3,9,21,15 -DATA 1,5,7,15,2,5,16,0,3,5,6,0,2,14,28,15,2,14,4,5,5,15 -DATA 3,14,2,7,4,0,5,8,1,7,4,0,3,8,5,7,1,0,1,7,3,5,1,14,3,15 -DATA 3,14,6,7,11,8,11,7,15,0,2,7,1,8,1,7,5,6,3,7,20,8,1,6 -DATA 4,8,6,7,29,0,17,8,3,7,5,8,42,0,2,6,3,7,8,6,42,0,3,14 -DATA 11,0,4,11,2,10,2,3,9,7,2,3,2,10,4,11,15,0,4,3,2,10 -DATA 2,6,4,7,1,10,4,7,3,6,1,10,4,3,15,0,2,3,1,6,1,3,1,10 -DATA 1,1,1,3,3,6,5,7,3,6,1,3,1,1,1,10,1,3,1,6,2,3,25,0,7,8 -DATA 2,14,9,15,3,5,41,0,1,8,3,5,3,15,1,5,13,15,1,5,1,14 -DATA 32,0,3,5,2,9,22,15,3,5,3,15,3,5,18,0,1,5,2,0,1,5,4,0 -DATA 1,7,29,15,1,14,3,5,3,7,3,15,4,14,1,7,6,0,3,8,1,7,2,0 -DATA 1,7,1,0,5,8,8,7,1,8,1,7,5,14,2,7,3,14,1,7,13,8,9,7 -DATA 6,0,1,5,9,0,4,8,5,6,4,7,7,8,3,6,8,8,3,6,3,8,6,7,29,0 -DATA 16,8,4,7,5,8,42,0,3,7,10,6,42,0,3,14,11,0,5,11,1,10 -DATA 1,3,1,6,9,7,1,6,1,3,1,10,5,11,15,0,4,3,2,10,1,6,11,7 -DATA 1,6,2,10,4,3,15,0,1,3,2,6,1,3,2,1,1,3,1,6,4,7,1,10 -DATA 4,7,1,6,1,3,2,1,1,3,2,6,1,3,25,0,7,8,1,5,2,14,7,15 -DATA 7,5,38,0,1,8,2,5,18,15,3,5,30,0,3,5,3,9,22,15,5,5,29,0 -DATA 1,7,30,15,1,14,2,5,5,7,1,0,3,14,2,7,15,0,5,8,11,7,3,14 -DATA 1,8,7,14,12,8,2,7,1,0,5,7,15,0,6,8,5,6,5,7,3,8,2,7 -DATA 5,6,8,8,1,6,3,8,7,7,29,0,13,8,7,7,5,8,37,0,3,6,1,0 -DATA 5,7,9,6,42,0,1,14,1,11,1,14,11,0,5,11,1,10,1,3,1,6 -DATA 9,7,1,6,1,3,1,10,5,11,15,0,4,11,2,10,2,6,9,7,2,6,2,10 -DATA 4,11,15,0,5,11,1,1,1,3,1,6,9,7,1,6,1,3,1,1,5,11,25,0 -DATA 6,8,3,5,5,14,1,15,5,5,42,0,1,8,1,5,19,15,1,5,32,0,3,5 -DATA 3,9,21,15,7,5,24,0,1,5,2,0,2,7,29,15,1,14,1,15,1,5 -DATA 7,7,18,0,1,7,1,0,5,8,11,7,4,8,4,14,3,15,2,5,10,8,3,7 -DATA 19,0,8,8,3,6,10,7,7,6,11,8,6,7,30,0,13,8,4,7,1,0,3,7 -DATA 3,8,37,0,5,6,5,7,1,0,7,6,43,0,3,14,11,0,5,11,1,10,1,3 -DATA 2,6,7,7,2,6,1,3,1,10,5,11,106,0,5,8,4,5,3,14,7,5,43,0 -DATA 1,8,18,15,1,5,33,0,3,5,3,9,20,15,8,5,23,0,3,5,3,7,32,15 -DATA 2,7,3,14,2,5,17,0,4,7,3,8,11,7,4,8,4,14,5,15,2,5,9,8 -DATA 3,7,18,0,13,8,3,6,6,7,7,6,10,8,6,7,27,0,2,7,14,8,4,7 -DATA 3,0,3,7,38,0,6,6,5,7,1,0,7,6,42,0,1,5,1,11,1,14,1,5 -DATA 11,0,5,11,1,10,2,3,9,6,2,3,1,10,5,11,107,0,3,8,1,0 -DATA 5,5,3,14,5,5,45,0,7,15,1,14,9,15,1,14,1,5,33,0,4,5 -DATA 2,9,11,15,1,9,7,15,1,14,1,5,3,14,4,5,3,0,1,5,20,0,1,5 -DATA 1,0,3,7,28,15,1,14,1,5,1,15,1,5,1,7,1,14,1,15,3,14 -DATA 2,5,17,0,1,7,1,0,14,7,4,8,1,5,4,14,5,15,3,5,8,8,4,7 -DATA 17,0,12,8,5,6,5,7,7,6,1,8,1,6,8,8,4,7,28,0,2,7,14,8 -DATA 4,7,45,0,7,6,3,7,4,0,3,6,44,0,3,14,1,5,11,0,1,3,3,11 -DATA 17,3,3,11,1,3,112,0,3,5,3,8,5,5,46,0,1,14,4,15,3,7 -DATA 1,14,4,15,1,14,2,15,2,14,34,0,4,5,3,9,9,15,3,9,5,15 -DATA 7,14,3,5,1,8,25,0,3,7,27,15,2,5,1,14,1,5,2,7,3,15,2,14 -DATA 3,5,18,0,10,7,3,8,1,7,4,8,1,5,4,14,5,15,3,5,7,8,6,7 -DATA 15,0,10,8,1,6,2,8,5,6,6,7,5,6,1,8,3,6,6,8,4,7,28,0 -DATA 3,7,5,8,1,0,7,8,3,7,47,0,7,6,53,0,1,13,2,14,1,5,12,0 -DATA 1,3,3,11,7,3,3,0,7,3,3,11,1,3,111,0,1,5,1,0,1,5,5,8 -DATA 3,5,1,0,1,5,44,0,1,14,2,0,1,15,7,7,4,15,3,14,36,0,5,5 -DATA 2,9,7,15,7,9,3,14,1,5,5,14,3,5,26,0,4,7,25,15,2,5,3,14 -DATA 2,0,1,14,1,15,3,14,3,5,18,0,8,7,9,8,3,5,4,14,3,15,5,5 -DATA 5,8,7,7,15,0,9,8,3,6,1,8,5,6,7,7,3,6,3,8,1,6,5,8,5,7 -DATA 29,0,3,7,5,8,2,0,5,8,52,0,5,6,71,0,3,11,6,3,5,0,6,3 -DATA 3,11,111,0,1,5,3,0,5,8,1,5,47,0,1,5,4,0,7,7,6,14,38,0 -DATA 7,5,5,15,1,14,7,9,2,14,2,5,5,14,2,5,27,0,5,7,9,15,1,5 -DATA 13,15,4,5,1,14,1,7,1,0,1,5,1,0,3,14,4,5,18,0,8,7,9,8 -DATA 3,5,7,14,5,5,4,8,1,0,7,7,3,0,1,5,11,0,10,8,1,6,3,8 -DATA 3,6,1,7,1,8,11,7,5,8,6,7,5,0,1,7,24,0,4,7,3,8,61,0 -DATA 3,6,5,0,3,6,64,0,3,11,1,10,4,3,7,0,4,3,1,10,3,11,115,0 -DATA 5,8,47,0,1,5,4,0,9,7,4,14,40,0,7,5,1,14,1,0,3,14,7,9 -DATA 3,14,2,5,3,14,2,5,4,0,1,5,23,0,1,14,5,7,7,15,2,5,11,15 -DATA 1,5,3,15,1,5,7,7,5,5,19,0,7,7,8,8,1,5,1,8,5,5,3,14 -DATA 7,5,3,8,8,7,16,0,15,8,2,7,3,8,16,7,36,0,5,7,8,0,3,7 -DATA 58,0,5,6,63,0,1,3,2,11,1,10,3,3,9,0,3,3,1,10,2,11,1,3 -DATA 116,0,3,8,53,0,9,7,2,5,4,0,1,14,38,0,6,5,2,0,4,14,5,9 -DATA 2,4,3,0,5,5,31,0,5,7,5,15,4,5,7,15,3,5,5,15,8,7,3,5 -DATA 5,0,1,5,16,0,5,7,7,8,18,5,10,7,5,0,1,7,11,0,15,8,3,7 -DATA 1,8,17,7,37,0,3,7,8,0,5,7,57,0,5,6,63,0,1,3,5,7,11,0 -DATA 5,7,1,3,172,0,9,7,49,0,1,14,3,0,5,14,3,9,1,7,1,0,3,5 -DATA 2,0,3,8,33,0,8,7,4,5,1,14,7,15,3,5,5,15,10,7,5,0,3,5 -DATA 16,0,4,7,8,8,1,5,1,8,15,5,9,7,5,0,3,7,11,0,13,8,22,7 -DATA 47,0,4,7,1,8,2,7,56,0,5,6,63,0,5,7,1,3,11,0,1,3,5,7 -DATA 173,0,7,7,9,0,1,5,39,0,1,14,5,0,3,14,2,7,1,9,1,7,1,0 -DATA 5,5,5,8,1,14,31,0,1,14,8,7,2,5,3,14,1,5,3,15,1,7,1,5 -DATA 2,0,1,14,5,15,1,14,10,7,5,0,1,5,17,0,5,7,7,8,2,7,1,8 -DATA 14,5,10,7,5,0,1,7,6,0,1,5,5,0,13,8,21,7,48,0,7,7,57,0 -DATA 3,6,64,0,5,7,1,3,1,7,9,0,1,7,1,3,5,7,173,0,6,7,1,14 -DATA 48,0,1,5,5,0,3,8,4,7,1,14,1,0,5,5,5,8,1,0,1,14,29,0 -DATA 1,14,7,0,2,7,3,5,1,14,3,5,3,7,2,0,1,5,2,14,7,15,5,7 -DATA 1,14,2,7,13,0,1,5,8,0,1,7,5,0,7,8,3,7,14,5,1,8,9,7 -DATA 19,0,11,8,13,7,3,8,6,7,48,0,7,7,52,0,1,6,71,0,7,7,9,0 -DATA 7,7,175,0,3,7,49,0,1,5,5,0,5,8,2,7,1,0,1,14,1,0,5,5 -DATA 5,8,2,0,1,14,27,0,1,14,9,0,3,15,3,5,8,7,3,14,7,15,5,7 -DATA 1,14,1,5,1,7,20,0,1,7,8,0,3,8,6,7,13,5,11,7,19,0,9,8 -DATA 3,7,1,8,9,7,5,8,4,7,5,0,3,7,42,0,5,7,52,0,3,6,70,0 -DATA 7,6,9,0,7,6,226,0,1,5,5,0,7,8,2,0,1,5,2,0,3,5,2,0,3,8 -DATA 4,0,1,5,24,0,1,14,1,5,4,0,5,5,5,15,11,7,1,14,9,15,5,7 -DATA 1,5,1,14,18,0,2,7,4,0,15,7,11,5,12,7,21,0,5,8,4,7,3,8 -DATA 4,7,1,6,3,7,5,8,3,7,5,0,5,7,42,0,3,7,54,0,1,6,273,0 -DATA 1,5,52,0,7,8,2,0,1,5,15,0,1,5,23,0,1,5,4,0,3,5,3,14 -DATA 5,15,11,7,11,15,5,7,1,5,1,0,1,5,14,0,1,5,1,0,1,7,4,0 -DATA 18,7,9,5,12,7,1,0,1,7,22,0,7,7,1,8,9,7,5,8,3,7,4,0 -DATA 7,7,425,0,7,8,41,0,1,5,4,0,3,5,4,14,5,15,1,0,10,7,11,15 -DATA 6,7,3,5,14,0,1,7,4,0,4,7,3,8,5,7,1,0,10,7,3,5,17,7 -DATA 22,0,17,7,3,8,3,7,5,0,7,7,426,0,5,8,21,0,1,5,19,0,1,5 -DATA 4,0,4,5,1,14,3,15,1,14,3,15,2,0,6,7,1,5,3,7,11,15,6,7 -DATA 1,0,1,5,14,0,1,7,4,0,4,7,5,8,3,7,2,0,27,7,1,0,1,7,25,0 -DATA 19,7,7,0,7,7,427,0,3,8,23,0,1,5,17,0,1,5,5,0,4,5,5,15 -DATA 2,5,2,0,9,7,1,5,1,7,11,15,5,7,3,0,1,5,12,0,1,7,5,0 -DATA 3,7,7,8,1,7,2,0,27,7,3,0,1,7,17,0,1,7,7,0,17,7,9,0 -DATA 5,7,478,0,4,5,5,15,2,5,2,0,11,7,11,15,5,7,4,0,1,5,17,0 -DATA 3,7,7,8,1,7,2,0,27,7,4,0,1,7,26,0,13,7,6,0,1,7,5,0 -DATA 3,7,479,0,4,5,5,15,2,5,2,0,12,7,9,15,5,7,6,0,1,5,16,0 -DATA 3,7,7,8,1,7,2,0,26,7,6,0,1,7,19,0,1,7,8,0,7,7,497,0 -DATA 5,5,3,15,3,5,2,0,6,7,1,5,6,7,7,15,5,7,8,0,1,5,15,0 -DATA 4,7,5,8,2,7,2,0,15,7,1,0,9,7,8,0,1,7,532,0,9,5,3,0 -DATA 14,7,5,15,4,7,27,0,4,7,3,8,2,7,3,0,15,7,3,0,5,7,51,0 -DATA 1,7,492,0,7,5,5,0,6,7,1,5,6,7,37,0,7,7,5,0,13,7,554,0 -DATA 5,5,6,0,13,7,38,0,5,7,6,0,13,7,566,0,11,7,51,0,2,7 -DATA 2,8,7,7,13,0,1,5,43,0,1,7,510,0,9,7,53,0,4,8,5,7,571,0 -DATA 5,7,56,0,2,8,4,7,45,0,1,7,181,0 - - diff --git a/programs/samples/thebob/kong/k2.bas b/programs/samples/thebob/kong/k2.bas deleted file mode 100644 index faad839bf..000000000 --- a/programs/samples/thebob/kong/k2.bas +++ /dev/null @@ -1,1217 +0,0 @@ -CHDIR ".\programs\samples\thebob\kong" - -'K2.BAS: Creates graphics files for KONG.BAS, -chained by K1.BAS -'--------------------------------------------------------------- -DEFINT A-Z -DECLARE SUB SaveINSTR (FileNAME$) -DECLARE SUB HighLIGHT (x1%, y1%, x2%, y2%, Colr%) -DECLARE SUB PrintSTRING (x, y, Prnt$) -DECLARE SUB SaveBUILDING (x, UpSET, Building) - -DIM SHARED Box(1 TO 26000) -DIM SHARED FontBOX(5000) -SCREEN 12 -GOSUB Instructions -GOSUB Buildings -GOSUB TitleBAR -GOSUB WinBOXES -GOSUB ControlPANEL -GOSUB DrawSCREEN - -CLS -OUT &H3C8, 7 -OUT &H3C9, 63 -OUT &H3C9, 32 -OUT &H3C9, 0 -LINE (5, 5)-(634, 474), 6, B -LINE (8, 8)-(631, 471), 6, B -LINE (200, 180)-(439, 290), 6, B -LINE (197, 177)-(442, 293), 6, B -PrintSTRING 254, 212, "The graphics files for KONG" -PrintSTRING 243, 226, "have been successfully created." -PrintSTRING 246, 250, "You can now run the program." - -a$ = INPUT$(1) -END - -TitleBAR: -LINE (0, 300)-(639, 340), 1, BF -FOR x = -6 TO 660 STEP 21 - LINE (x, 309)-(x + 18, 331), 2, BF -NEXT x -FOR x = -1 TO 660 STEP 7 - LINE (x, 302)-(x + 2, 306), 10, BF - LINE (x, 306)-(x + 2, 306), 2 - LINE (x, 334)-(x + 2, 338), 10, BF - LINE (x, 338)-(x + 2, 338), 2 -NEXT x -LINE (0, 300)-(639, 300), 2 -LINE (0, 340)-(639, 340), 10 -FOR x = 140 TO 498 - FOR y = 0 TO 18 - IF POINT(x, y) <> 0 THEN - IF y > 9 THEN Colr = 8 ELSE Colr = 15 - PSET (x, y + 314), 10 - PSET (x, y + 311), Colr - END IF - NEXT y -NEXT x -PrintSTRING 20, 216, "Instructions" -PrintSTRING 595, 216, "EXIT" -FOR x = 20 TO 620 - FOR y = 216 TO 230 - IF y > 222 THEN Colr = 8 ELSE Colr = 15 - IF POINT(x, y) <> 0 THEN PSET (x, y + 100), Colr - PSET (x, y), 0 - NEXT y -NEXT x -RETURN - -ControlPANEL: -LINE (0, 446)-(639, 479), 7, BF -LINE (0, 446)-(639, 446), 9 -PSET (115, 446), 7 -DRAW "U10 E4 R399 F4 D10 L407 BE6 P7,7" -PSET (115, 446), 9 -DRAW "U10 c15 E4 c9R399 C6 F4 D10" -PSET (0, 435), 7 -DRAW "R52 F4 D10 L56 BE4 P7,7" -PSET (0, 435), 9 -DRAW "R52 c6 F4 D6" -PSET (639, 435), 7 -DRAW "L52 G4 D10 R56 BH4 P7,7" -PSET (639, 435), 9 -DRAW "L52 c15 G4 c9 D6" -PSET (215, 432), 7 -DRAW "U10 E4 R199 F4 D10 L207 BE5 P7,7" -PSET (215, 432), 9 -DRAW "U10 c15 E4 R199 c6 F4 D10" -PSET (5, 440), 4 -DRAW "R42 F3 D8 R70 U11 E3 R97 U11 E3 R191" -DRAW "F3 D11 R97 F3 D11 R70 U8 E3 R42 D20 L628 U20 bF4 P4,4" -FOR y = 424 TO 460 STEP 5 - FOR x = 5 TO 634 - IF POINT(x, y) = 4 THEN PSET (x, y), 8 - IF POINT(x, y - 1) = 4 THEN PSET (x, y - 1), 6 - NEXT x -NEXT y -FOR y = 424 TO 460 - FOR x = 4 TO 634 - IF POINT(x, y) = 4 THEN PSET (x, y), 7 - NEXT x -NEXT y -'Banana Button -LINE (305, 424)-(334, 450), 7, BF -LINE (305, 424)-(334, 451), 9, B -LINE (334, 424)-(334, 450), 6 -LINE (309, 428)-(330, 446), 1, BF -LINE (309, 428)-(330, 446), 2, B -LINE (309, 446)-(330, 446), 10 -LINE (330, 428)-(330, 446), 10 -LINE (305, 451)-(334, 451), 10 -LINE (305, 425)-(305, 451), 8 -FOR x = 0 TO 16 - FOR y = 0 TO 16 - IF POINT(x, y) <> 0 THEN - PSET (x + 312, y + 432), 10 - PSET (x + 312, y + 430), POINT(x, y) - END IF - NEXT y -NEXT x -'Transfer KONG -FOR x = 198 TO 256 - FOR y = 0 TO 18 - IF y > 9 THEN Colr = 8 ELSE Colr = 15 - IF POINT(x, y) <> 0 THEN - PSET (x - 141, y + 452), 10 - PSET (x - 141, y + 450), Colr - END IF - NEXT y -NEXT x -'Transfer YOUNG -FOR x = 424 TO 500 - FOR y = 0 TO 18 - IF y > 9 THEN Colr = 8 ELSE Colr = 15 - IF POINT(x, y) <> 0 THEN - PSET (x + 92, y + 452), 10 - PSET (x + 92, y + 450), Colr - END IF - NEXT y -NEXT x -'Player LED's -LINE (70, 470)-(100, 477), 8, B -LINE (70, 470)-(70, 477), 6 -LINE (70, 470)-(100, 470), 6 -LINE (72, 472)-(98, 475), 10, B -LINE (98, 472)-(98, 475), 8 -LINE (72, 475)-(98, 475), 8 -GET (70, 470)-(100, 477), Box() -PUT (537, 470), Box(), PSET -'Slider grooves -LINE (359, 469)-(489, 475), 7, BF -LINE (359, 472)-(489, 472), 10 -LINE (359, 471)-(489, 473), 9, B -LINE (359, 471)-(359, 473), 6 -LINE (359, 471)-(489, 471), 6 -'Get/place slider grooves -GET (354, 462)-(494, 479), Box() -LINE (354, 462)-(494, 479), 7, BF -PUT (135, 442), Box(), PSET -PUT (364, 442), Box(), PSET -GET (245, 442)-(274, 456), Box() -PUT (227, 442), Box(), PSET -LINE (256, 442)-(272, 456), 7, BF -PrintSTRING 185, 462, "Force" -PrintSTRING 436, 462, "Angle" -FOR x = 140 TO 500 - FOR y = 462 TO 478 - IF y > 468 THEN Colr = 9 ELSE Colr = 15 - IF POINT(x, y) <> 7 THEN PSET (x, y), Colr - NEXT y -NEXT x -FOR x = 146 TO 246 STEP 5 - LINE (x, 446)-(x, 449), 8 - LINE (x, 456)-(x, 459), 8 -NEXT x -GET (365, 440)-(380, 460), Box() -LINE (365, 440)-(395, 460), 7, BF -PUT (394, 440), Box(), PSET -FOR x = 404 TO 494 STEP 5 - LINE (x, 446)-(x, 449), 8 - LINE (x, 456)-(x, 459), 8 -NEXT x -LINE (255, 442)-(278, 460), 7, BF -LINE (255, 442)-(276, 460), 10, BF -LINE (255, 442)-(276, 460), 9, B -LINE (255, 442)-(276, 442), 6 -LINE (255, 442)-(255, 460), 6 -PrintSTRING 260, 446, "00" -LINE (362, 442)-(385, 460), 7, BF -LINE (364, 442)-(385, 460), 10, BF -LINE (364, 442)-(385, 460), 9, B -LINE (364, 442)-(364, 460), 6 -LINE (364, 442)-(385, 442), 6 -PrintSTRING 369, 446, "00" -'Transfer Cupola -FOR x = 61 TO 95 - FOR y = 48 TO 74 - IF POINT(x, y) <> 0 THEN - PSET (x - 52, y + 360), POINT(x, y) - PSET (690 - x, y + 360), POINT(x, y) - END IF - NEXT y -NEXT x -CIRCLE (123, 440), 5, 4 -PAINT STEP(0, 0), 4 -CIRCLE STEP(0, 0), 5, 9 -PAINT STEP(0, 0), 7, 9 -CIRCLE STEP(0, 0), 5, 6, 3.1, 0 -CIRCLE (513, 440), 5, 4 -PAINT STEP(0, 0), 4 -CIRCLE STEP(0, 0), 5, 9 -PAINT STEP(0, 0), 7, 9 -CIRCLE STEP(0, 0), 5, 6, 3.1, 0 -CIRCLE (223, 426), 5, 4 -PAINT STEP(0, 0), 4 -CIRCLE STEP(0, 0), 5, 9 -PAINT STEP(0, 0), 7, 9 -CIRCLE STEP(0, 0), 5, 6, 3.1, 0 -CIRCLE (413, 426), 5, 4 -PAINT STEP(0, 0), 4 -CIRCLE STEP(0, 0), 5, 9 -PAINT STEP(0, 0), 7, 9 -CIRCLE STEP(0, 0), 5, 6, 3.1, 0 -LINE (290, 461)-(350, 477), 9, B -LINE (350, 461)-(350, 477), 6 -LINE (290, 477)-(350, 477), 6 -LINE (290, 478)-(350, 478), 10 -LINE (290, 461)-(290, 477), 8 -'Score boxes -LINE (12, 444)-(42, 474), 0, BF -LINE (12, 444)-(42, 474), 9, B -LINE (12, 444)-(12, 474), 6 -LINE (12, 444)-(42, 444), 6 -LINE (597, 444)-(627, 474), 0, BF -LINE (597, 444)-(627, 474), 9, B -LINE (597, 444)-(597, 474), 6 -LINE (597, 444)-(627, 444), 6 -GET (438, 20)-(452, 38), Box() -PUT (19, 450), Box() -PUT (604, 450), Box() -FOR x = 0 TO 639 - FOR y = 362 TO 404 - IF POINT(x, y) = 0 THEN PSET (x, y), 12 - NEXT y -NEXT x -PrintSTRING 298, 464, "NO WIND" -FOR x = 298 TO 342 - FOR y = 465 TO 473 - IF y > 469 THEN Colr = 9 ELSE Colr = 15 - IF POINT(x, y) <> 7 THEN PSET (x, y), Colr - NEXT y -NEXT x -GET (298, 465)-(342, 473), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kongwind.bsv", VARPTR(Box(1)), 240 -DEF SEG -DIM SliderBOX(1 TO 440) -DEF SEG = VARSEG(SliderBOX(1)) -BLOAD "kongsldr.bsv", VARPTR(SliderBOX(1)) -DEF SEG -GET (141, 443)-(151, 461), SliderBOX(281) -GET (489, 443)-(499, 461), SliderBOX(361) -DEF SEG = VARSEG(SliderBOX(1)) -BSAVE "kongsldr.bsv", VARPTR(SliderBOX(1)), 880 -DEF SEG -RETURN - -DrawSCREEN: -GET (16, 47)-(56, 87), Box(25000) -GET (0, 300)-(639, 340), Box() -LINE (0, 0)-(639, 350), 0, BF -LINE (0, 0)-(639, 43), 7, BF -LINE (0, 44)-(639, 44), 10 -PUT (0, 1), Box(), PSET -PUT (299, 70), Box(25000), PSET -PrintSTRING 2, 46, "Freeware - Copyright 2005 by Bob Seguin" -PrintSTRING 497, 46, "email: BOBSEG@sympatico.ca" -FOR x = 0 TO 639 - FOR y = 46 TO 58 - IF POINT(x, y) <> 0 THEN PSET (x, y), 2 - NEXT y -NEXT x - -PSET (0, 154), 12 -DRAW "r7 U24 R35 NU20 R30 F20 D20 R30 F20 D30 R5 U50 R20 NU20 R20 D60" -DRAW "R5 U30 R5 U4 R20 NU20 R20 D4 R5 D20 R4 U30 R3 U40 R3" -DRAW "U3ru3ru3ru3ru3ru3r2Nu20R2D3rd3rd3rd3rd3rd3r3d40r3d20R4" -DRAW "U30 R30d20r3U60r3u4r25nu12r25d4r3d80r5U30r15Nu12r15d30r5u50r30d40" -DRAW "r5U30 r6U2r34nu12r34d2r6d30r4u20r20d20r5U30e12r20U18e23r" -DRAW "r12nu12r22d108L639U81bfp12,12" -LINE (0, 235)-(639, 400), 12, BF -CIRCLE (605, 198), 200, 12, 2.8, 3.2 -CIRCLE (235, 198), 200, 12, 0, .34 -LINE (416, 123)-(424, 136), 12, BF -LINE (419, 100)-(421, 125), 12, BF -LINE (420, 80)-(420, 100), 12 -PAINT STEP(0, 40), 12 - -PSET (0, 390), 10 -DRAW "R10 U10 R100 D5 R10 U10 R80 D30 R20 U20 R60 U8rd8r62 D10" -DRAW "R80 U20 LU10R20 U6lu2r16d2ld6r60d10ld10r118d26L639" -DRAW "U14 BF4 P10,10" -FOR y = 401 TO 440 - FOR x = 0 TO 639 - IF POINT(x, y) = 0 THEN PSET (x, y), 10 - NEXT x -NEXT y -PAINT (60, 396), 10 -PAINT (460, 396), 10 -GET (80, 340)-(539, 400), Box() -PUT (80, 345), Box(), PSET -RANDOMIZE 123 -FOR Reps = 1 TO 48 - x = FIX(RND * 640) - y = FIX(RND * 60) + 45 - IF POINT(x, y) = 0 THEN PSET (x, y), 7 -NEXT Reps -FOR x = 0 TO 639 - FOR y = 362 TO 404 - IF POINT(x, y) <> 10 THEN PSET (x, y), 0 - NEXT y -NEXT x -GET (0, 362)-(639, 404), Box() '7000 -FOR x = 0 TO 639 - FOR y = 362 TO 404 - IF POINT(x, y) = 0 THEN PSET (x, y), 15 ELSE PSET (x, y), 0 - NEXT y -NEXT x -FOR x = 45 TO 595 - FOR y = 430 TO 460 - IF POINT(x, y) = 0 THEN PSET (x, y), 10 - NEXT y -NEXT x -GET (0, 362)-(639, 404), Box(7000) 'Get foreground building mask -PUT (0, 362), Box(), PSET -LINE (80, 410)-(88, 422), 5, BF -LINE (80, 410)-(88, 418), 3, BF -LINE (180, 410)-(188, 422), 0, BF -LINE (480, 390)-(488, 402), 5, BF -LINE (480, 390)-(488, 394), 3, BF -LINE (460, 390)-(468, 402), 0, BF -LINE (440, 412)-(448, 424), 0, BF -GET (0, 362)-(639, 404), Box() '7000 'Get/Save foreground buildings -DEF SEG = VARSEG(Box(1)) -BSAVE "kongfbld.bsv", VARPTR(Box(1)), 28000 -DEF SEG -LINE (0, 340)-(639, 404), 12, BF -PUT (0, 362), Box(7000), AND -PUT (0, 362), Box() - -'Get/Save main screen -FileCOUNT = 0 -DEF SEG = VARSEG(Box(1)) -FOR y = 0 TO 320 STEP 160 - GET (0, y)-(639, y + 159), Box() - FileCOUNT = FileCOUNT + 1 - FileNAME$ = "kongscr" + LTRIM$(STR$(FileCOUNT)) + ".bsv" - BSAVE FileNAME$, VARPTR(Box(1)), 52000 -NEXT y -DEF SEG -RETURN - -Buildings: -'Government building? -PSET (97, 200), 11 -DRAW "E16 R33 F16 L65 R32 BU2 P11,11" -FOR x = 102 TO 159 STEP 4 - FOR y = 184 TO 200 - IF POINT(x, y) = 11 THEN PSET (x, y), 3 - NEXT y -NEXT x -PSET (97, 200), 3 -DRAW "E16 R33 U3 L33 D3 BE P11,3 BG C3 R33 F16 L67 D3 R69 U3 L30 BD P11,3" -LINE (90, 204)-(169, 208), 7, BF -LINE (90, 204)-(169, 204), 8 -LINE (60, 200)-(68, 212), 3, B -LINE (61, 201)-(67, 211), 1, BF -LINE (61, 201)-(67, 211), 7, B -LINE (61, 206)-(67, 206), 7 -GET (60, 200)-(68, 212), Box() -PUT (60, 200), Box() -FOR x = 112 TO 140 STEP 14 - PUT (x, 191), Box(), PSET -NEXT x -PSET (130, 180), 7 -DRAW "U20 C15 d" -FOR x = 114 TO 146 STEP 2 - LINE (x, 177)-(x, 180), 6 - PSET (x, 177), 8 - IF x < 146 THEN PSET (x + 1, 179), 6 -NEXT x -FlagDATA: -DATA 1,2,3,2,2,2,3,4,5,4,3,2 -RESTORE FlagDATA -FOR x = 129 TO 119 STEP -1 - READ Down - LINE (x, 162 + Down)-(x, 168 + Down), 4 -NEXT x -LINE (90, 210)-(169, 479), 7, BF -FOR y = 210 TO 470 STEP 2 - LINE (95, y)-(164, y), 6 -NEXT y -RANDOMIZE 145678 -FOR y = 220 TO 420 STEP 20 - FOR x = 99 TO 157 STEP 11 - LINE (x - 1, y)-(x + 7, y + 12), 7, BF - IF FIX(RND * 12) = 0 THEN - Colr1 = 3: Colr2 = 5 - ELSE - Colr1 = 1: Colr2 = 2 - END IF - LINE (x + 1, y + 1)-(x + 5, y + 12), Colr1, BF - LINE (x + 1, y + 3)-(x + 5, y + 12), Colr2, BF - LINE (x, y + 13)-(x + 6, y + 13), 8 - LINE (x, y + 7)-(x + 5, y + 7), 7 - NEXT x -NEXT y -GET (80, 150)-(180, 479), Box() -PUT (80, 146), Box(), PSET -SaveBUILDING 90, 24, 1 - -'Modern building -LINE (300, 200)-(379, 204), 6, BF -LINE (300, 205)-(379, 479), 7, BF -PSET (321, 195), 2 -DRAW "E4 R30 F4 L38 R10 BU P2,2" -PSET (321, 195), 8 -DRAW "E4 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 F4 L38" -LINE (321, 195)-(359, 199), 8, BF -CIRCLE (308, 200), 6, 6, 0, 3.14 -PAINT STEP(0, -1), 6 -PSET STEP(0, -4), 8 -CIRCLE (372, 200), 6, 6, 0, 3.14 -PAINT STEP(0, -1), 6 -PSET STEP(0, -4), 8 -FOR x = 300 TO 379 - FOR y = 194 TO 197 - IF POINT(x, y) = 6 THEN PSET (x, y), 2 - NEXT y -NEXT x -LINE (300, 200)-(379, 204), 7, BF -LINE (300, 200)-(379, 200), 8 -LINE (300, 205)-(379, 206), 10, B -LINE (317, 184)-(317, 199), 7 -PSET STEP(0, -15), 8 -LINE (363, 184)-(363, 199), 7 -PSET STEP(0, -15), 8 -FOR y = 210 TO 440 STEP 16 - LINE (300, y)-(379, y + 8), 2, BF - LINE (300, y)-(379, y + 3), 1, BF - LINE (300, y + 8)-(379, y + 8), 8 - FOR x = 305 TO 379 STEP 14 - LINE (x, y)-(x, y + 8), 7 - NEXT x -NEXT y -SaveBUILDING 300, 0, 2 '************************************************* - -'Hotel -------------------------------------------------------------------- -LINE (400, 200)-(479, 479), 3, BF -LINE (420, 195)-(459, 199), 6, BF -LINE (420, 195)-(459, 195), 7 -LINE (460, 174)-(460, 199), 7 -LINE (454, 176)-(464, 176), 7 -LINE (457, 177)-(467, 177), 7 -PSET (454, 176), 9 -LINE (410, 192)-(414, 199), 6, BF -LINE (410, 192)-(414, 192), 7 -LINE (465, 192)-(469, 199), 6, BF -LINE (465, 192)-(469, 192), 7 -FOR x = 421 TO 454 STEP 4 - FOR y = 186 TO 193 STEP 3 - LINE (x, y)-(x + 4, y + 3), 6, B - NEXT y -NEXT x -PrintSTRING 425, 162, "HOTEL" -FOR x = 425 TO 500 - FOR y = 162 TO 174 - IF POINT(x, y) <> 0 THEN PSET (x, y + 20), 4 - PSET (x, y), 0 - NEXT y -NEXT x -GET (100, 50)-(111, 76), Box() -FOR x = 404 TO 468 STEP 15 - PUT (x, 215), Box(), PSET -NEXT x -GET (100, 54)-(111, 76), Box() -FOR x = 404 TO 464 STEP 15 - PUT (x, 248), Box(), PSET - IF x = 419 THEN - FOR xx = x TO x + 12 - FOR yy = 248 TO 267 - IF POINT(xx, yy) = 2 THEN PSET (xx, yy), 5 - NEXT yy - NEXT xx - END IF -NEXT x -FOR x = 404 TO 464 STEP 15 - FOR y = 290 TO 479 STEP 32 - PUT (x, y), Box(), PSET - IF FIX(RND * 12) = 2 THEN - LINE (x + 2, y + 8)-(x + 9, y + 15), 1, BF - LINE (x + 2, y + 16)-(x + 9, y + 16), 7 - LINE (x + 2, y + 17)-(x + 9, y + 17), 10 - END IF - IF FIX(RND * 15) = 0 THEN - FOR xx = x TO x + 12 - FOR yy = y TO y + 19 - IF POINT(xx, yy) = 2 THEN PSET (xx, yy), 5 - NEXT yy - NEXT xx - END IF - NEXT y -NEXT x -GET (88, 84)-(93, 91), Box() -FOR x = 401 TO 480 STEP 5 - PUT (x, 200), Box(), PSET - PUT (x, 276), Box(), PSET -NEXT x -LINE (480, 200)-(484, 310), 0, BF -LINE (395, 200)-(399, 310), 0, BF -FOR y = 202 TO 479 STEP 2 - FOR x = 400 TO 480 - IF POINT(x, y) = 3 THEN PSET (x, y), 1 - NEXT x -NEXT y -GET (478, 200)-(478, 210), Box() -PUT (479, 200), Box(), PSET -PUT (400, 200), Box(), PSET -PUT (479, 276), Box(), PSET -PUT (400, 276), Box(), PSET -SaveBUILDING 400, 0, 3 '************************************************* - -'Buff Apartment Block ------------------------------------------------------- -GET (608, 44)-(619, 67), Box() -GET (621, 44)-(632, 67), Box(500) -LINE (500, 200)-(579, 479), 11, BF -FOR x = 504 TO 574 STEP 15 - FOR y = 216 TO 460 STEP 32 - IF FIX(RND * 6) = 0 THEN - PUT (x, y), Box(500), PSET - ELSE - PUT (x, y), Box(), PSET - END IF - LINE (500, y + 27)-(579, y + 27), 9 - LINE (500, y + 28)-(579, y + 28), 8 - NEXT y -NEXT x -LINE (500, 200)-(579, 204), 7, BF -LINE (500, 200)-(579, 200), 9 -LINE (500, 205)-(579, 205), 10 -LINE (520, 189)-(559, 199), 11, BF -LINE (520, 189)-(559, 192), 7, BF -LINE (520, 189)-(559, 189), 9 -LINE (520, 193)-(559, 193), 6 -PSET (539, 188), 8 -DRAW "U16 C14 D" -SaveBUILDING 500, 0, 4 '************************************************* - -'Factory -------------------------------------------------------------------- -LINE (0, 150)-(639, 479), 0, BF -LINE (100, 200)-(179, 479), 3, BF -CIRCLE (120, 220), 10, 15, , , .85 -CIRCLE (120, 219), 12, 15, , , .83 -LINE (105, 222)-(135, 240), 3, BF -GET (120, 206)-(150, 230), Box() -PUT (119, 206), Box(), PSET -PSET (110, 217), 3 -PSET (129, 217), 3 -LINE (129, 220)-(129, 228), 15 -LINE (110, 220)-(110, 228), 15 -DRAW "R19" -LINE (110, 236)-(129, 252), 15, B -PSET (108, 220), 15 -DRAW "D34 R23 U34" -PAINT (119, 220), 2, 15 -PAINT (119, 244), 2, 15 -FOR x = 100 TO 140 - FOR y = 200 TO 260 - IF POINT(x, y) = 15 THEN PSET (x, y), 1 - NEXT y -NEXT x -FOR x = 120 TO 140 - FOR y = 216 TO 260 - IF POINT(x, y) = 1 THEN PSET (x, y), 11 - NEXT y -NEXT x -LINE (111, 228)-(120, 228), 11 -LINE (111, 236)-(129, 236), 1 -LINE (111, 252)-(129, 252), 11 -LINE (109, 254)-(129, 254), 11 -LINE (124, 213)-(124, 227), 1 -LINE (115, 213)-(115, 227), 1 -LINE (111, 219)-(129, 219), 1 -LINE (115, 236)-(115, 251), 1 -LINE (124, 236)-(124, 251), 1 -LINE (111, 244)-(129, 244), 1 - -GET (120, 205)-(133, 256), Box() -PUT (118, 205), Box(), PSET -GET (106, 229)-(131, 253), Box() -FOR y = 254 TO 450 STEP 25 - PUT (106, y), Box(), PSET -NEXT y -GET (106, 202)-(132, 470), Box() -LINE (106, 202)-(132, 470), 3, BF -FOR x = 102 TO 158 STEP 25 - PUT (x, 202), Box(), PSET -NEXT x -FOR y = 255 TO 455 STEP 50 - LINE (100, y)-(179, y + 3), 3, BF - LINE (100, y)-(179, y), 11 - LINE (100, y + 3)-(179, y + 3), 1 -NEXT y -LINE (100, 230)-(104, 234), 3, BF -LINE (100, 230)-(104, 230), 11 -LINE (100, 234)-(104, 234), 1 -GET (100, 230)-(104, 234), Box() -FOR x = 100 TO 175 STEP 25 - FOR y = 230 TO 430 STEP 50 - PUT (x, y), Box(), PSET - NEXT y -NEXT x -LINE (120, 190)-(159, 199), 3, BF -LINE (120, 190)-(159, 193), 6, BF -LINE (120, 190)-(159, 190), 7 -LINE (120, 194)-(159, 194), 10 -LINE (100, 200)-(179, 204), 6, BF -LINE (100, 200)-(179, 200), 7 -LINE (100, 205)-(179, 205), 10 - -FOR y = 180 TO 479 STEP 2 - FOR x = 100 TO 179 - IF POINT(x, y) = 3 THEN PSET (x, y), 6 - NEXT x -NEXT y - -FOR Reps = 1 TO 30 - x = FIX(RND * 80) + 100 - y = FIX(RND * 280) + 200 - Colr = FIX(RND * 3) - SELECT CASE Colr - CASE 0: Colr = 6 - CASE 1: Colr = 7 - CASE 2: Colr = 8 - END SELECT - FOR xx = x - 6 TO x + 6 - FOR yy = y - 6 TO y + 6 - IF POINT(xx, yy) = 2 THEN PSET (xx, yy), Colr - NEXT yy - NEXT xx -NEXT Reps -PrintSTRING 212, 184, "B-Bomb Mfg" -FOR x = 204 TO 280 - FOR y = 184 TO 196 - IF POINT(x, y) <> 0 THEN PSET (x - 100, y), 4 - PSET (x, y), 0 - NEXT y -NEXT x -FOR x = 208 TO 270 STEP 5 - FOR y = 185 TO 194 STEP 3 - LINE (x, y)-(x + 5, y + 4), 2, B - NEXT y -NEXT x -FOR x = 208 TO 275 - FOR y = 178 TO 200 - IF POINT(x, y) <> 0 THEN - IF POINT(x - 101, y + 1) <> 4 THEN PSET (x - 101, y + 1), 6 - PSET (x, y), 0 - END IF - NEXT y -NEXT x -SaveBUILDING 100, 0, 5 '************************************************* - -'Apescape building ------------------------------------------------------------- -LINE (200, 200)-(279, 479), 8, BF -LINE (210, 180)-(269, 299), 8, BF -LINE (220, 180)-(259, 180), 9 -LINE (207, 200)-(272, 200), 9 -CIRCLE (209, 209), 10, 0, 3.14159 * .5, 3.14159 -PAINT (201, 201), 0 -CIRCLE (270, 209), 10, 0, 0, 3.14159 * .5 -PAINT (278, 201), 0 -CIRCLE (219, 190), 10, 0, 3.14159 * .5, 3.14159 -PAINT (211, 181), 0 -CIRCLE (260, 190), 10, 0, 0, 3.14159 * .5 -PAINT (268, 181), 0 -FOR x = 203 TO 277 STEP 4 - FOR y = 180 TO 479 - IF POINT(x, y) = 8 THEN PSET (x, y), 7 - IF POINT(x + 1, y) = 8 THEN PSET (x + 1, y), 7 - NEXT y -NEXT x -FOR x = 206 TO 270 STEP 10 - FOR y = 220 TO 460 STEP 36 - LINE (x, y)-(x + 7, y + 26), 8, BF - LINE (x + 1, y + 1)-(x + 6, y + 22), 2, BF - LINE (x + 1, y + 1)-(x + 6, y + 6), 1, BF - NEXT y -NEXT x -LINE (239, 158)-(239, 179), 8 -PSET (236, 162), 4 -PSET (242, 162), 4 -FOR x = 217 TO 260 STEP 8 - LINE (x, 190)-(x + 4, 198), 2, BF - LINE (x, 190)-(x + 4, 193), 1, BF -NEXT x -PSET (200, 205), 6 -PSET (205, 200), 6 -PSET (210, 186), 6 -PSET (215, 181), 6 -PSET (219, 180), 8 -PSET (218, 180), 7 - -PSET (279, 205), 6 -PSET (274, 200), 6 -PSET (269, 186), 6 -PSET (264, 181), 6 - -PSET (260, 180), 8 -PSET (261, 180), 7 - -GET (200, 180)-(279, 214), Box() -PUT (200, 176), Box(), PSET -GET (200, 180)-(279, 214), Box() -PUT (200, 175), Box(), PSET -LINE (206, 200)-(273, 200), 9 -LINE (206, 193)-(206, 200), 6 -LINE (273, 193)-(273, 200), 6 -LINE (214, 175)-(265, 175), 9 -LINE (212, 203)-(267, 216), 8, BF -LINE (212, 217)-(267, 217), 6 -LINE (212, 203)-(267, 203), 9 -PrintSTRING 217, 203, "apescape" -FOR x = 217 TO 267 - FOR y = 203 TO 217 - IF POINT(x, y) = 15 THEN PSET (x, y), 1 - NEXT y -NEXT x -SaveBUILDING 200, 26, 6 - -'Tenement building --------------------------------------------------------- -LINE (200, 150)-(279, 479), 0, BF -RANDOMIZE 4 -CIRCLE (220, 198), 10, 2, 0, 3.14159 -CIRCLE (259, 198), 10, 2, 0, 3.14159 -CIRCLE (220, 198), 7, 2, 0, 3.14159 -CIRCLE (259, 198), 7, 2, 0, 3.14159 -LINE (207, 198)-(210, 198), 2: DRAW "bl3D3r6u3" -LINE (230, 198)-(233, 198), 2: DRAW "D3l6u3" -LINE (246, 198)-(249, 198), 2: DRAW "bl3D3r6u3" -LINE (269, 198)-(272, 198), 2: DRAW "D3l6u3" -CIRCLE (182, 166), 35, 2, 5.3, 6 -CIRCLE (297, 166), 35, 2, 3.42, 4.16 -LINE (215, 176)-(264, 176), 2 -PSET (200, 195), 2 -DRAW "D4 R7 BR26 R12 BR27 R7 U4 l10 Bl20 l18 Bl20 l11" -PAINT (240, 190), 1, 2 -PAINT (240, 197), 1, 2 -PAINT (202, 197), 1, 2 -PAINT (277, 197), 1, 2 -FOR y = 168 TO 195 STEP 2 - FOR x = 200 TO 279 - IF POINT(x, y) = 1 THEN PSET (x, y), 2 - NEXT x -NEXT y -PAINT (220, 190), 1, 2 -PAINT (259, 190), 1, 2 -LINE (215, 176)-(264, 176), 7 -CIRCLE (220, 198), 10, 7, .5, 2.64159 -CIRCLE (259, 198), 10, 7, .5, 2.64159 -PSET (200, 195), 7 -DRAW "bD4 bR7 BR26 bR12 bBR27 bR7 bU4 l9 Bl22 l17 Bl22 l9" -FOR x = 215 TO 263 STEP 2 - PSET (x, 174), 7 - PSET (x, 175), 6 -NEXT x -LINE (213, 198)-(227, 198), 2 -PAINT (220, 197), 1, 2 -CIRCLE (220, 195), 1, 8 -LINE (215, 198)-(225, 217), 2, B -LINE (216, 199)-(224, 216), 1, BF -LINE (216, 199)-(224, 216), 6, B -LINE (220, 199)-(220, 211), 6: DRAW "nL3nR3" -PAINT (220, 215), 10, 6 -CIRCLE (220, 199), 7, 10, .14, 3, 1.1 -LINE (217, 200)-(219, 201), 10, B -LINE (221, 200)-(223, 201), 10, B -LINE (214, 218)-(226, 218), 7 -GET (210, 190)-(230, 220), Box() -PUT (249, 190), Box(), PSET -PSET (200, 200), 10: DRAW "R6 D2 R6 BR16 R6 U2 R11 D2 R6 BR16 R6 U2 R6" -FOR x = 200 TO 279 - FOR y = 200 TO 479 STEP 2 - IF POINT(x, y) = 0 THEN PSET (x, y), 3 - IF POINT(x, y + 1) = 0 THEN PSET (x, y + 1), 1 - NEXT y -NEXT x -LINE (236, 202)-(243, 212), 2, B -PAINT (238, 210), 7, 2 -LINE (237, 203)-(242, 211), 6, B -LINE (237, 207)-(242, 207), 6 -PAINT (238, 206), 3, 6 -PAINT (238, 208), 5, 6 -LINE (235, 213)-(244, 213), 7 -LINE (238, 204)-(241, 204), 10 -LINE (202, 230)-(220, 234), 10, BF -LINE (218, 230)-(220, 254), 10, BF -LINE (259, 230)-(279, 234), 10, BF -LINE (200, 228)-(279, 229), 2, B -LINE (200, 229)-(201, 254), 2, B -LINE (278, 229)-(279, 254), 2, B -LINE (207, 232)-(212, 242), 6, B -LINE (208, 233)-(211, 233), 10 -LINE (200, 245)-(220, 254), 2, B -PAINT (210, 235), 7, 6 -PAINT (210, 235), 3, 6 -LINE (207, 237)-(212, 237), 6 -PAINT (210, 238), 5, 6 -LINE (208, 233)-(211, 233), 10 -LINE (200, 244)-(220, 254), 2, B -LINE (202, 244)-(220, 244), 7 -LINE (202, 252)-(218, 253), 10, BF -FOR x = 202 TO 218 STEP 2 - LINE (x, 245)-(x, 254), 2 -NEXT x -LINE (226, 232)-(236, 246), 1, BF -LINE (226, 232)-(236, 246), 6, B -LINE (226, 239)-(236, 239), 6 -LINE (225, 247)-(237, 247), 7 -FOR x = 200 TO 239 - FOR y = 200 TO 279 - PSET (479 - x, y), POINT(x, y) - NEXT y -NEXT x -GET (200, 228)-(279, 258), Box() -FOR y = 224 TO 450 STEP 32 - PUT (200, y), Box(), PSET - IF FIX(RND * 12) = 0 THEN - PAINT (230, y + 6), 3, 6 - PAINT (230, y + 14), 5, 6 - END IF - IF FIX(RND * 2) = 0 THEN - PAINT (249, y + 6), 3, 6 - PAINT (249, y + 14), 5, 6 - END IF - IF FIX(RND * 5) = 0 THEN - PAINT (210, y + 8), 1, 6 - PAINT (210, y + 11), 7, 6 - END IF - IF FIX(RND * 2) = 0 THEN - PAINT (269, y + 8), 1, 6 - PAINT (269, y + 11), 7, 6 - END IF - LINE (227, y + 5)-(235, y + 5), 10 - LINE (244, y + 5)-(252, y + 5), 10 - LINE (268, y + 5)-(271, y + 5), 10 - LINE (208, y + 5)-(211, y + 5), 10 -NEXT y -SaveBUILDING 200, 25, 7 - -'Balcony Apartment ---------------------------------------------------------- -LINE (0, 150)-(400, 479), 0, BF -GET (118, 50)-(133, 76), Box() -PUT (118, 250), Box() -LINE (300, 200)-(379, 479), 4, BF -GET (118, 240)-(133, 260), Box() -PUT (118, 246), Box(), PSET -GET (118, 256)-(133, 276), Box(6000) -PUT (218, 256), Box(6000) -FOR x = 218 TO 233 - FOR y = 256 TO 276 - IF POINT(x, y) = 1 OR POINT(x, y) = 10 THEN PSET (x, y), 3 - IF POINT(x, y) = 2 THEN PSET (x, y), 5 - NEXT y -NEXT x -GET (219, 257)-(232, 276), Box(5000) -FOR x = 304 TO 360 STEP 18 - IF x = 340 THEN x = 360 - PUT (x, 212), Box(6000), PSET -NEXT x -GET (118, 50)-(133, 76), Box() -PUT (341, 212), Box(), PSET -GET (340, 224)-(359, 235), Box() -PUT (340, 230), Box(), PSET -LINE (329, 242)-(368, 243), 9, B -LINE (329, 232)-(368, 243), 8, B -FOR x = 330 TO 368 STEP 2 - LINE (x, 232)-(x, 242), 8 -NEXT x -LINE (300, 242)-(328, 243), 8, BF -LINE (369, 242)-(379, 243), 8, BF -LINE (300, 244)-(379, 244), 6 -FOR x = 301 TO 379 STEP 18 - IF x = 355 THEN x = 357 - LINE (x, 214)-(x + 3, 228), 8, BF - FOR y = 216 TO 226 STEP 2 - LINE (x + 1, y)-(x + 2, y), 7 - NEXT y -NEXT x -GET (300, 212)-(379, 244), Box() -FOR y = 212 TO 440 STEP 38 - PUT (300, y), Box(), PSET -NEXT y -LINE (300, 200)-(379, 204), 8, BF -LINE (300, 200)-(379, 200), 9 -LINE (300, 205)-(379, 205), 6 -LINE (320, 188)-(359, 199), 11, BF -LINE (319, 188)-(360, 190), 8, BF -LINE (320, 191)-(359, 191), 10 -FOR x = 300 TO 379 - FOR y = 200 TO 479 - IF POINT(x, y) = 4 THEN PSET (x, y), 11 - NEXT y -NEXT x -FOR y = 188 TO 478 STEP 2 - FOR x = 300 TO 379 - IF POINT(x, y) = 11 THEN PSET (x, y), 3 - NEXT x -NEXT y -PSET (363, 199), 7 -DRAW "U24 C15 D" -FOR x = 305 TO 360 STEP 18 - IF x = 341 THEN x = 361 - FOR y = 213 TO 440 STEP 38 - IF FIX(RND * 10) = 0 THEN PUT (x, y), Box(5000), PSET - LINE (329, 232)-(368, 232), 15 - NEXT y -NEXT x -FOR y = 232 TO 470 STEP 38 - LINE (329, y)-(368, y), 15 -NEXT y -SaveBUILDING 300, 0, 8 -LINE (0, 150)-(639, 479), 0, BF -RETURN - -SetPALETTE: -DATA 0, 4, 16, 0, 10, 21, 0, 16, 32, 32, 10, 0 -DATA 63, 0, 0, 63, 32, 0, 18, 18, 24, 30, 30, 37 -DATA 42, 42, 50, 55, 55, 63, 0, 0, 0, 43, 27, 19 -DATA 8, 8, 21, 0, 63, 21, 63, 63, 21, 63, 63, 63 - -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Intensity - OUT &H3C9, Intensity -NEXT n -RETURN - -WinBOXES: -GET (140, 0)-(256, 18), Box() -GET (376, 0)-(500, 18), Box(5000) -GET (520, 0)-(580, 18), Box(10000) -PUT (198, 200), Box() -PUT (320, 200), Box(10000) -PrintSTRING 220, 223, "To play again, press ENTER" -PrintSTRING 219, 236, "Press any other key to EXIT" -FOR x = 174 TO 400 - FOR y = 192 TO 254 - IF y > 210 THEN Colr = 8 ELSE Colr = 15 - IF y > 222 THEN Colr = 9 - IF POINT(x, y) = 0 THEN PSET (x, y), 1 ELSE PSET (x, y), Colr - NEXT y -NEXT x -FOR y = 224 TO 200 STEP -1 - FOR x = 174 TO 400 - IF POINT(x, y - 2) <> 1 AND POINT(x, y) = 1 THEN PSET (x, y), 10 - NEXT x -NEXT y -LINE (176, 194)-(398, 252), 6, B -LINE (174, 192)-(400, 254), 6, B -GET (174, 192)-(400, 254), Box() -LINE (170, 188)-(404, 258), 8, BF -LINE (170, 188)-(404, 258), 15, B -LINE (170, 258)-(404, 258), 10 -LINE (404, 188)-(404, 258), 10 -PUT (174, 192), Box(), PSET -GET (170, 188)-(404, 258), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kongwink.bsv", VARPTR(Box(1)), 9000 -DEF SEG -LINE (177, 197)-(394, 222), 1, BF -PUT (196, 200), Box(5000) -PUT (324, 200), Box(10000) -FOR y = 224 TO 200 STEP -1 - FOR x = 190 TO 382 - IF y > 210 THEN Colr = 8 ELSE Colr = 15 - IF POINT(x, y - 2) <> 1 THEN PSET (x, y - 2), Colr - NEXT x -NEXT y -FOR y = 224 TO 200 STEP -1 - FOR x = 174 TO 400 - IF POINT(x, y - 2) <> 1 AND POINT(x, y) = 1 THEN PSET (x, y), 10 - NEXT x -NEXT y -GET (196, 200)-(386, 220), Box() -PUT (195, 200), Box(), PSET -GET (170, 188)-(404, 258), Box() -PUT (170, 188), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kongwiny.bsv", VARPTR(Box(1)), 9000 -DEF SEG -RETURN - -Instructions: -LINE (192, 160)-(447, 310), 8, BF -LINE (192, 160)-(447, 310), 15, B -LINE (192, 310)-(447, 310), 10 -LINE (447, 160)-(447, 310), 10 -LINE (202, 164)-(436, 305), 1, BF -LINE (202, 164)-(436, 305), 6, B -LINE (204, 166)-(434, 303), 6, B -LINE (400, 175)-(424, 187), 7, BF -PrintSTRING 216, 176, "INSTRUCTIONS" -PrintSTRING 216, 194, "The object of the game is to be the first" -PrintSTRING 216, 206, "player to achieve a score of 3. You gain" -PrintSTRING 216, 218, "1" -PrintSTRING 225, 218, "point each time you blow up the other" -PrintSTRING 216, 230, "player's gorilla with an exploding banana." -PrintSTRING 216, 248, "Unless playing the computer, begin by" -PrintSTRING 216, 260, "deciding which player will control which" -PrintSTRING 216, 272, "gorilla, then click the" -PrintSTRING 340, 272, "button to begin." -PrintSTRING 216, 284, "The starting gorilla is chosen at random." -FOR x = 207 TO 431 - FOR y = 167 TO 295 - IF y < 194 THEN Colr = 9 ELSE Colr = 8 - IF y < 181 THEN Colr = 15 - IF POINT(x, y) <> 1 THEN PSET (x, y), Colr - NEXT y -NEXT x -HighLIGHT 354, 206, 362, 217, 9 -HighLIGHT 216, 218, 222, 229, 9 -PSET (404, 184), 6 -DRAW "U6 R12 U2 F5 G5 U2 L12 BE2 P6,6" -LINE (321, 275)-(332, 281), 8, BF -LINE (321, 282)-(332, 282), 10 -LINE (323, 278)-(330, 278), 1: DRAW "NH2G2" -SaveINSTR "kongins1.bsv" -LINE (205, 193)-(433, 295), 1, BF -PrintSTRING 216, 194, "When a player's gorilla is the thrower," -PrintSTRING 216, 206, "the LED will be green under his name (and" -PrintSTRING 216, 218, "he'll be holding a banana). Click on the" -PrintSTRING 216, 230, "Angle slider and drag it to adjust the initial" -PrintSTRING 216, 242, "throwing angle (0 degrees is a horizontal" -PrintSTRING 216, 254, "throw in the other gorilla's direction). Set" -PrintSTRING 216, 266, "the Force slider in the same way. To toss" -PrintSTRING 216, 278, "the banana, click the Banana button" -PrintSTRING 410, 278, "." -HighLIGHT 216, 194, 434, 295, 8 -HighLIGHT 234, 206, 254, 217, 9 -HighLIGHT 216, 230, 244, 241, 9 -HighLIGHT 236, 266, 264, 277, 9 -HighLIGHT 322, 278, 360, 299, 9 -LINE (204, 166)-(434, 303), 6, B -GET (99, 80)-(109, 90), Box() -PUT (397, 279), Box(), PSET -SaveINSTR "kongins2.bsv" -LINE (205, 193)-(433, 295), 1, BF -PrintSTRING 216, 194, "Be sure to check the Wind arrow (bottom" -PrintSTRING 216, 206, "center of the screen). The arrow shows both" -PrintSTRING 216, 218, "the direction and strength of the wind (the" -PrintSTRING 216, 230, "longer the arrow, the stronger the wind). A" -PrintSTRING 216, 242, "strong opposing wind can actually blow the" -PrintSTRING 216, 254, "banana backwards if the Force of the toss" -PrintSTRING 216, 266, "isn't strong enough!" -PrintSTRING 348, 282, "Good Luck!" -HighLIGHT 216, 194, 434, 295, 8 -HighLIGHT 320, 194, 348, 205, 9 -HighLIGHT 348, 282, 420, 294, 15 -LINE (400, 175)-(424, 187), 15, BF -LINE (400, 182)-(424, 187), 9, BF -PSET (406, 177), 4 -DRAW "F8rH8rF8rH8rF8 BU8 G8lE8lG8lE8lG8" -FOR x = 400 TO 424 - FOR y = 175 TO 187 - IF POINT(x, y) <> 15 AND POINT(x, y) <> 9 THEN PSET (x, y), 6 - NEXT y -NEXT x -LINE (204, 166)-(434, 303), 6, B -SaveINSTR "kongins3.bsv" -PUT (192, 160), Box() -LINE (180, 194)-(400, 270), 7, BF -LINE (180, 194)-(400, 270), 9, B -LINE (180, 270)-(400, 270), 6 -LINE (400, 194)-(400, 270), 6 -LINE (194, 198)-(384, 266), 1, BF -LINE (196, 200)-(382, 264), 6, B -PrintSTRING 238, 208, "Click Your Preference" -PrintSTRING 252, 227, "2 players" -PrintSTRING 252, 243, "1 player (play computer)" -HighLIGHT 238, 208, 380, 255, 9 -HighLIGHT 238, 208, 380, 214, 15 -LINE (215, 227)-(241, 239), 10, B -LINE (216, 228)-(240, 238), 8, BF -LINE (216, 228)-(240, 238), 15, B -LINE (240, 228)-(240, 238), 6 -LINE (216, 238)-(240, 238), 6 -LINE (215, 243)-(241, 255), 10, B -LINE (216, 244)-(240, 254), 8, BF -LINE (216, 244)-(240, 254), 15, B -LINE (240, 244)-(240, 254), 6 -LINE (216, 254)-(240, 254), 6 -GET (180, 194)-(400, 270), Box() -PUT (180, 194), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kong1pl2.bsv", VARPTR(Box(1)), 8800 -DEF SEG -LINE (180, 194)-(400, 270), 7, BF -LINE (180, 194)-(400, 270), 9, B -LINE (180, 270)-(400, 270), 6 -LINE (400, 194)-(400, 270), 6 -LINE (194, 198)-(384, 266), 1, BF -LINE (196, 200)-(382, 264), 6, B -PrintSTRING 256, 207, "Your gorilla is" -PrintSTRING 236, 243, "Click to begin" -HighLIGHT 233, 207, 380, 257, 9 -FOR x = 138 TO 256 - FOR y = 0 TO 20 - IF y > 9 THEN Colr = 8 ELSE Colr = 15 - IF POINT(x, y) <> 0 THEN - PSET (x + 92, y + 223), 10 - PSET (x + 92, y + 221), Colr - END IF - NEXT y -NEXT x -LINE (311, 244)-(337, 253), 10, B -LINE (312, 245)-(336, 255), 8, BF -LINE (312, 245)-(336, 255), 15, B -LINE (336, 245)-(336, 255), 6 -LINE (312, 255)-(336, 255), 6 -PSET (318, 249), 1 -DRAW "R9 U2 F3 G3 U2 L9 U2 BF P1,1" -GET (180, 194)-(400, 270), Box() -PUT (180, 194), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kong1plr.bsv", VARPTR(Box(1)), 8800 -DEF SEG -LINE (180, 194)-(400, 270), 7, BF -LINE (180, 194)-(400, 270), 9, B -LINE (180, 270)-(400, 270), 6 -LINE (400, 194)-(400, 270), 6 -LINE (194, 198)-(384, 266), 1, BF -LINE (196, 200)-(382, 264), 6, B -PrintSTRING 234, 214, "Decide who will control" -PrintSTRING 234, 226, "which gorilla and then..." -PrintSTRING 236, 243, "Click to begin" -HighLIGHT 225, 212, 380, 257, 9 -LINE (311, 244)-(337, 253), 10, B -LINE (312, 245)-(336, 255), 8, BF -LINE (312, 245)-(336, 255), 15, B -LINE (336, 245)-(336, 255), 6 -LINE (312, 255)-(336, 255), 6 -PSET (318, 249), 1 -DRAW "R9 U2 F3 G3 U2 L9 U2 BF P1,1" -GET (180, 194)-(400, 270), Box() -PUT (180, 194), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "kongopen.bsv", VARPTR(Box(1)), 8800 -DEF SEG -RETURN - -SUB HighLIGHT (x1, y1, x2, y2, Colr) -FOR x = x1 TO x2 - FOR y = y1 TO y2 - IF POINT(x, y) <> 1 THEN PSET (x, y), Colr - NEXT y -NEXT x -END SUB - -SUB PrintSTRING (x, y, Prnt$) - -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "kong.fbs", VARPTR(FontBOX(0)) -DEF SEG - -FOR i = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, i, 1) - IF Char$ = " " THEN - x = x + FontBOX(1) - ELSE - Index = (ASC(Char$) - 33) * FontBOX(0) + 2 - - PUT (x, y), FontBOX(Index) - x = x + FontBOX(Index) - END IF -NEXT i - -END SUB - -SUB SaveBUILDING (x, UpSET, Building) - -Box(1) = UpSET -LINE (x, 155)-(x, 479), 0 -LINE (x + 79, 155)-(x + 79, 479), 0 -GET (x, 155)-(x + 79, 199), Box(2) -FOR xx = x TO x + 79 - FOR yy = 155 TO 199 - IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0 - NEXT yy -NEXT xx -GET (x, 155)-(x + 79, 199), Box(1000) -GET (x, 200)-(x + 79, 479), Box(2000) -FileNAME$ = "kongbld" + LTRIM$(STR$(Building)) + ".bsv" -DEF SEG = VARSEG(Box(1)) -BSAVE FileNAME$, VARPTR(Box(1)), 16000 -DEF SEG - -END SUB - -SUB SaveINSTR (FileNAME$) -GET (192, 160)-(447, 310), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE FileNAME$, VARPTR(Box(1)), 20000 -DEF SEG -END SUB - diff --git a/programs/samples/thebob/kong/kong.bas b/programs/samples/thebob/kong/kong.bas deleted file mode 100644 index b969f430f..000000000 --- a/programs/samples/thebob/kong/kong.bas +++ /dev/null @@ -1,1223 +0,0 @@ -CHDIR ".\programs\samples\thebob\kong" - -'****************************************************************************' -'____________________________________________________________________________ -'____________________________________________________________________________' -'_____²²___²²__²²²²²__²²___²²__²²²²²____________²²___²²___²²²²___²²__²²______' -'_____²²___²²_²²___²²_²²___²²_²²___²²___________²²___²²____²²____²²__²²______' -'_____²²__²²__²²___²²_²²²__²²_²²___²²___________²²²_²²²____²²____²²__²²______' -'_____²²_²²___²²___²²_²²²__²²_²²_______²_²_²_²__²²²_²²²____²²____²²__²²______' -'_____²²²²____²²___²²_²²²²_²²_²²_______²_²_²____²²²²²²²____²²____²²__²²______' -'_____°°°°____°°___°°_°°_°°°°_°°_______°_°___°__°°_°_°°____°°_____°°°°_______' -'_____°°_°°___°°___°°_°°__°°°_°°__°°°___°__°_°__°°_°_°°____°°______°°________' -'_____°°__°°__°°___°°_°°__°°°_°°___°°___________°°_°_°°_°°_°°______°°________' -'_____°°___°°_°°___°°_°°___°°_°°___°°___________°°___°°_°°_°°______°°________' -'_____°°___°°__°°°°°__°°___°°__°°°°°____________°°___°°__°°°______°°°°_______' -' ' -'----------- Microsoft QBasic originally came bundled with four -------------' -'----------- example programs: a simple money management program ------------' -'----------- called, appropriately, "Money", a utility for removing ---------' -'----------- line numbers from BASIC programs called "RemLine", and ---------' -'----------- two game programs, "Nibbles" and "Gorilla". In the case --------' -'----------- of the second game, I loved the idea of two gorillas -----------' -'----------- throwing exploding bananas at each other from the roof- --------' -'----------- tops and had always wanted to do my own version. Here ----------' -'----------- then, is my homage to the QBasic classic, GORILLA.BAS... -------' -' -'-------------------- ...KING-KONG vs MIGHTY JOE YOUNG ----------------------' -'------- (Freeware)--Unique elements Copyright (C) 2005 by Bob Seguin -------' -'------------------------ email: BOBSEG@sympatico.ca ------------------------' -' -'************** NOTE: Mouse routines will not work with QB7.1 ***************' - -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () - -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB FieldMOUSE (x1, y1, x2, y2) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () -DECLARE SUB MouseDRIVER (LB, RB, MX, MY) - -DECLARE FUNCTION ControlPANEL () -DECLARE FUNCTION Computer () -DECLARE FUNCTION BananaTOSS () - -DECLARE SUB SetPALETTE () -DECLARE SUB DrawSCREEN () -DECLARE SUB StartUP () -DECLARE SUB DoAPES () -DECLARE SUB PlayGAME () -DECLARE SUB TopMENU (InOUT) -DECLARE SUB Instructions () -DECLARE SUB Sliders (Value, Slider) -DECLARE SUB EndGAME () -DECLARE SUB Interval (Duration!) -DECLARE SUB Fade (InOUT) -DECLARE SUB SetWIND () -DECLARE SUB Explode (What) -DECLARE SUB ApeCHUCKLE (Which) -DECLARE SUB PrintSCORE (Ape, Score) - -CONST Degree! = 3.14159 / 180 -CONST g# = 9.8 - -REDIM SHARED Box(1 TO 26000) -REDIM SHARED KongBOX(1 TO 5500) -REDIM SHARED YoungBOX(1 TO 5500) -DIM SHARED ExplosionBACK(1200) -DIM SHARED SliderBOX(1 TO 440) -DIM SHARED Banana(1 TO 900) -DIM SHARED FadeBOX(1 TO 48) -DIM SHARED LilBOX(1 TO 120) -DIM SHARED Buildings(1 TO 8, 1 TO 2) -DIM SHARED NumBOX(1 TO 300) - -DEF SEG = VARSEG(NumBOX(1)) -BLOAD "kongnums.bsv", VARPTR(NumBOX(1)) -DEF SEG = VARSEG(LilBOX(1)) -BLOAD "kongwind.bsv", VARPTR(LilBOX(1)) -DEF SEG = VARSEG(Banana(1)) -BLOAD "kongbnna.bsv", VARPTR(Banana(1)) -DEF SEG = VARSEG(SliderBOX(1)) -BLOAD "kongsldr.bsv", VARPTR(SliderBOX(1)) -DEF SEG - -FOR n = 1 TO 8 - Buildings(n, 1) = n -NEXT n - -DIM SHARED LB, RB, MouseX, MouseY -DIM SHARED x#, y#, Angle#, Speed#, Wind!, t# -DIM SHARED KongX, KongY, YoungX, YoungY, Ape -DIM SHARED KScore, YScore, Item, LBldg, RBldg -DIM SHARED NumPLAYERS, CompTOSS - -DIM SHARED MouseDATA$ - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 - READ h$ - Hexxer$ = CHR$(VAL("&H" + h$)) - MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN - PRINT "Sorry, cat must have got the mouse." - SLEEP 2 - SYSTEM -END IF - -RESTORE PaletteDATA -FOR n = 1 TO 48 - READ FadeBOX(n) -NEXT n - -SCREEN 12 -OUT &H3C8, 0 -FOR n = 1 TO 48 - OUT &H3C9, 0 -NEXT n - -RANDOMIZE TIMER - -DO - PlayGAME -LOOP - -END - -PaletteDATA: -DATA 0, 4, 16, 0, 10, 21, 0, 16, 32, 32, 10, 0 -DATA 63, 0, 0, 63, 32, 0, 18, 18, 24, 30, 30, 37 -DATA 42, 42, 50, 55, 55, 63, 0, 0, 0, 43, 27, 20 -DATA 8, 8, 21, 0, 63, 21, 63, 55, 25, 63, 63, 63 - -SUB ApeCHUCKLE (Which) - -SELECT CASE Which - CASE 1 'Kong chuckle - FOR Reps = 1 TO 10 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (KongX, KongY), KongBOX(1351), PSET - Interval .1 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (KongX, KongY), KongBOX(1801), PSET - Interval .1 - NEXT Reps - - CASE 2 'Young chuckle - FOR Reps = 1 TO 10 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (YoungX, YoungY), YoungBOX(1351), PSET - Interval .1 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (YoungX, YoungY), YoungBOX(1801), PSET - Interval .1 - NEXT Reps -END SELECT - -END SUB - -FUNCTION BananaTOSS - -t# = 0 -IF Ape = 1 THEN - YTurn = 0: KTurn = 7 - x# = KongX: y# = KongY - 24 -ELSE - KTurn = 7: KTurn = 0 - x# = YoungX: y# = YoungY - 24 -END IF - -IF Ape = 2 THEN Angle# = 180 - Angle# -Angle# = Angle# * Degree! -vx# = Speed# * COS(Angle#) -vy# = Speed# * SIN(Angle#) -InitialX = x# -InitialY = y# - -'GET starting background location of banana --------------------------- -GET (x#, y#)-(x# + 12, y# + 12), Banana(801) - -'Animate banana toss (frames 2 & 3) ----------------------------------- -FOR Index = 451 TO 901 STEP 450 - Interval .02 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - IF Ape = 1 THEN - PUT (KongX, KongY), KongBOX(Index), PSET - ELSE - PUT (YoungX, YoungY), YoungBOX(Index), PSET - END IF -NEXT Index - -Index = 1 'Initialize banana index - -DO 'banana toss loop - - Interval .001 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - - 'PUT banana background at old x/y --------------------------- - IF x# >= 0 AND x# <= 627 THEN - IF y# >= 40 THEN - PUT (x#, y#), Banana(801), PSET - END IF - END IF - - 'Determine new position of banana -------------------------- - 'NOTE: The essential formula for determining the path of - 'the thrown banana is taken from the original GORILLA.BAS - x# = InitialX + (vx# * t#) + (.5 * (Wind! / 5) * t# ^ 2) - y# = InitialY + -(vy# * t#) + (.5 * G# * t# ^ 2) - t# = t# + .1 - - 'Whether or not to PUT the banana and background - IF x# >= 2 AND x# < 627 THEN - IF y# >= 40 AND y# <= 467 THEN - - 'JOE YOUNG hit - IF x# + 12 >= YoungX + 2 AND x# <= YoungX + 38 THEN - IF y# + 12 >= YoungY + 7 AND y# <= YoungY + 42 THEN - Explode 2 - KScore = KScore + 1 - PrintSCORE 1, KScore - ApeCHUCKLE 1 - BananaTOSS = 1 - EXIT FUNCTION - END IF - END IF - - 'KONG is hit - IF x# + 12 >= KongX + 2 AND x# <= KongX + 38 THEN - IF y# + 12 >= KongY + 7 AND y# <= KongY + 42 THEN - Explode 1 - YScore = YScore + 1 - PrintSCORE 2, YScore - ApeCHUCKLE 2 - BananaTOSS = 2 - EXIT FUNCTION - END IF - END IF - - 'Building hit - IF y# > 120 THEN - IF (POINT(x# + 2, y#) <> 12 AND POINT(x# + 2, y#) <> 0) THEN BLDG = 1 - IF (POINT(x# + 10, y#) <> 12 AND POINT(x# + 10, y#) <> 0) THEN BLDG = 1 - IF (POINT(x#, y# + 10) <> 12 AND POINT(x#, y# + 10) <> 0) THEN BLDG = 1 - END IF - IF BLDG = 1 THEN - BLDG = 0 - Explode 3 - BananaTOSS = 3 - EXIT FUNCTION - END IF - - 'GET background, PUT banana at new location - GET (x#, y#)-(x# + 12, y# + 12), Banana(801) - PUT (x#, y#), Banana(Index + 50), AND - PUT (x#, y#), Banana(Index) - - END IF 'Legal banana-PUT END IF's - END IF - - Index = Index + 100 'Index changes whether banana is PUT or not --------- - IF Index = 801 THEN Index = 1 - - 'Ape reaction turns section ----------------------------------------------- - - IF t# > .5 AND t# < .6 THEN 'Finish toss (arm goes down) - IF Ape = 1 THEN - PUT (KongX, KongY), KongBOX(4501), PSET - ELSE - PUT (YoungX, YoungY), YoungBOX(2701), PSET - END IF - END IF - - IF t# > 1.5 THEN 'Turn with passing banana (both apes) - IF YTurn < 2 THEN - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SELECT CASE YTurn - CASE 0: PUT (YoungX, YoungY), YoungBOX(3151), PSET: YTurn = 1 - CASE 1: PUT (YoungX, YoungY), YoungBOX(2701), PSET: YTurn = 2 - END SELECT - END IF - - IF KTurn < 2 THEN - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SELECT CASE KTurn - CASE 0: PUT (KongX, KongY), KongBOX(4051), PSET: KTurn = 1 - CASE 1: PUT (KongX, KongY), KongBOX(4501), PSET: KTurn = 2 - END SELECT - END IF - - IF x# > YoungX AND YTurn < 7 THEN - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SELECT CASE YTurn - CASE 2: PUT (YoungX, YoungY), YoungBOX(2701), PSET: YTurn = 3 - CASE 3: PUT (YoungX, YoungY), YoungBOX(3151), PSET: YTurn = 4 - CASE 4: PUT (YoungX, YoungY), YoungBOX(3601), PSET: YTurn = 5 - CASE 5: PUT (YoungX, YoungY), YoungBOX(4051), PSET: YTurn = 6 - CASE 6: PUT (YoungX, YoungY), YoungBOX(4501), PSET: YTurn = 7 - END SELECT - END IF - - IF x# < KongX + 40 AND KTurn < 7 THEN - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - SELECT CASE KTurn - CASE 2: PUT (KongX, KongY), KongBOX(4501), PSET: KTurn = 3 - CASE 3: PUT (KongX, KongY), KongBOX(4051), PSET: KTurn = 4 - CASE 4: PUT (KongX, KongY), KongBOX(3601), PSET: KTurn = 5 - CASE 5: PUT (KongX, KongY), KongBOX(3151), PSET: KTurn = 6 - CASE 6: PUT (KongX, KongY), KongBOX(2701), PSET: KTurn = 7 - END SELECT - END IF - END IF - -LOOP UNTIL x# < 3 OR x# > 627 - -IF x# >= 0 AND x# <= 627 THEN 'erase banana to end toss sequence ------- - IF y# >= 40 THEN - PUT (x#, y#), Banana(801), PSET - END IF -END IF - -BananaTOSS = 3 - -END FUNCTION - -SUB ClearMOUSE - -WHILE LB OR RB - MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -FUNCTION Computer -STATIC CompSPEED, CompANGLE, XDiff, YDiff, FinalX - -'The computer's gameplay is designed to imitate the play of a -'real person. The first shot is established as an educated guess -'with a touch of randomness. On subsequent shots, the formula -'modifies Speed# and Angle# based on the outcome of this first shot. -'Sometimes, just like a real person, the first shot will score a -'hit. Other times, it is a long and embarassing process. - -'Computer-shot computation formulas -IF CompTOSS = 0 THEN - XDiff = YoungX - KongX - YDiff = KongY - YoungY - CompSPEED = XDiff / (FIX(RND * 2) + 6) + Wind! - CompANGLE = 35 - (YDiff / 5) - CompTOSS = 1 -ELSE - IF KongX > FinalX THEN - CompSPEED = CompSPEED * .9 - ELSE - CompSPEED = CompSPEED * 1.2 - IF YoungX - FinalX < 100 THEN 'Oops! Tall building - CompANGLE = CompANGLE + 10 - ELSE - CompANGLE = CompANGLE + 3 - END IF - END IF -END IF -IF CompSPEED > 99 THEN CompSPEED = 99 -IF CompSPEED < 0 THEN CompSPEED = 0 -IF CompANGLE > 70 THEN CompANGLE = 70 -IF CompANGLE < 0 THEN CompANGLE = 0 - -Speed# = CompSPEED -Angle# = CompANGLE -Sliders INT(Speed#), 1 -Sliders INT(Angle#), 2 -Interval 1 - -SELECT CASE BananaTOSS 'Call to BananaTOSS FUNCTION ----------- - CASE 1 'Kong exploded Young - IF KScore = 3 THEN 'Kong wins - Computer = 2 'Game over - EXIT FUNCTION - END IF - Computer = 1 'Reset screen - EXIT FUNCTION - CASE 2 'Young exploded Kong - IF YScore = 3 THEN 'Young wins - Computer = 2 'Game over - EXIT FUNCTION - END IF - Computer = 1 'Reset screen - EXIT FUNCTION - CASE 3 'Building explosion or banana out-of-play - FinalX = x# - Computer = -1 'Change player - EXIT FUNCTION -END SELECT - -Computer = 0 'No action required - -END FUNCTION - -FUNCTION ControlPANEL -SHARED Player1SPEED#, Player2SPEED# -SHARED Player1ANGLE#, Player2ANGLE# - -SELECT CASE MouseX - CASE 147 TO 246 - IF MouseY > 441 AND MouseY < 463 THEN - IF LB = -1 THEN - Speed# = MouseX - 147 - IF Speed# < 0 THEN Speed# = 0 - IF Speed# > 99 THEN Speed# = 99 - SELECT CASE Ape - CASE 1 - Player1SPEED# = Speed# - CASE 2 - Player2SPEED# = Speed# - END SELECT - Sp = INT(Speed#) - Sliders Sp, 1 - END IF - END IF - CASE 385 TO 499 - IF MouseY > 423 AND MouseY < 463 THEN - IF LB = -1 THEN - Angle# = 494 - MouseX - IF Angle# < 0 THEN Angle# = 0 - IF Angle# > 90 THEN Angle# = 90 - SELECT CASE Ape - CASE 1 - Player1ANGLE# = Angle# - CASE 2 - Player2ANGLE# = Angle# - END SELECT - An = INT(Angle#) - Sliders An, 2 - END IF - END IF - CASE 305 TO 335 - IF MouseY > 423 AND MouseY < 452 THEN - IF LB = -1 THEN - HideMOUSE - GET (308, 427)-(331, 447), Box(25500) - GET (311, 430)-(328, 444), Box(25000) - PUT (310, 429), Box(25000), PSET - LINE (309, 428)-(330, 446), 1, B - LINE (308, 428)-(331, 448), 10, B - LINE (331, 429)-(331, 447), 8 - LINE (308, 448)-(330, 448), 8 - ShowMOUSE - Interval .2 - HideMOUSE - PUT (308, 427), Box(25500), PSET - ShowMOUSE - SELECT CASE BananaTOSS 'Call to BananaTOSS FUNCTION ----------- - CASE 1 'Kong exploded Young - IF KScore = 3 THEN 'Kong wins - ControlPANEL = 2 'Game over - EXIT FUNCTION - END IF - ControlPANEL = 1 'Reset screen - EXIT FUNCTION - CASE 2 'Young exploded Kong - IF YScore = 3 THEN 'Young wins - ControlPANEL = 2 'Game over - EXIT FUNCTION - END IF - ControlPANEL = 1 'Reset screen - EXIT FUNCTION - CASE 3 'Building explosion or banana out-of-play - ControlPANEL = -1 'Change player - EXIT FUNCTION - END SELECT - END IF - END IF -END SELECT -ControlPANEL = 0 'No action required - -END FUNCTION - -SUB DoAPES - -KongX = LBldg * 80 - 59 -KongY = Buildings(LBldg, 2) - 42 -YoungX = RBldg * 80 - 59 -YoungY = Buildings(RBldg, 2) - 42 - -DEF SEG = VARSEG(Box(1)) -BLOAD "kongmjy.bsv", VARPTR(Box(1)) -DEF SEG -ApeINDEX = 1 -GET (YoungX, YoungY)-(YoungX + 38, YoungY + 42), YoungBOX(5000) -FOR Index = 1 TO 9001 STEP 900 - PUT (YoungX, YoungY), YoungBOX(5000), PSET - PUT (YoungX, YoungY), Box(Index + 450), AND - PUT (YoungX, YoungY), Box(Index) - GET (YoungX, YoungY)-(YoungX + 38, YoungY + 42), YoungBOX(ApeINDEX) - ApeINDEX = ApeINDEX + 450 -NEXT Index - -DEF SEG = VARSEG(Box(1)) -BLOAD "kongkong.bsv", VARPTR(Box(1)) -DEF SEG -ApeINDEX = 1 -GET (KongX, KongY)-(KongX + 38, KongY + 42), KongBOX(5000) -FOR Index = 1 TO 9001 STEP 900 - PUT (KongX, KongY), KongBOX(5000), PSET - PUT (KongX, KongY), Box(Index + 450), AND - PUT (KongX, KongY), Box(Index) - GET (KongX, KongY)-(KongX + 38, KongY + 42), KongBOX(ApeINDEX) - ApeINDEX = ApeINDEX + 450 -NEXT Index - -PUT (KongX, KongY), KongBOX(2251), PSET -PUT (YoungX, YoungY), YoungBOX(2251), PSET - -DEF SEG = VARSEG(Box(1)) -BLOAD "kongexpl.bsv", VARPTR(Box(1)) -DEF SEG - -END SUB - -SUB DrawSCREEN - -'Main screen background/title bar and control panel -CLS -DEF SEG = VARSEG(Box(1)) -FileCOUNT = 0 -FOR y = 0 TO 320 STEP 160 - FileCOUNT = FileCOUNT + 1 - FileNAME$ = "kongscr" + LTRIM$(STR$(FileCOUNT)) + ".bsv" - BLOAD FileNAME$, VARPTR(Box(1)) - PUT (0, y), Box(), PSET -NEXT y -DEF SEG - -'Shuffle buildings order -FOR n = 8 TO 2 STEP -1 - Tower = INT(RND * n) + 1 - SWAP Buildings(n, 1), Buildings(Tower, 1) -NEXT n - -LBldg = FIX(RND * 3) + 1 -RBldg = FIX(RND * 3) + 6 - -'Set buildings order/ save height information to array -x = 0 -DEF SEG = VARSEG(Box(1)) -FOR n = 1 TO 8 - FileNAME$ = "kongbld" + LTRIM$(STR$(Buildings(n, 1))) + ".bsv" - BLOAD FileNAME$, VARPTR(Box(1)) - Height = 165 + FIX(RND * 160) - IF n = LBldg AND Height > 264 THEN Height = 264 - IF n = RBldg AND Height > 264 THEN Height = 264 - Buildings(n, 2) = Height - Box(2001) = 405 - (Height + Box(1)) - PUT (x, Height + Box(1)), Box(2000), PSET - PUT (x, Height + Box(1) - 45), Box(1000), AND - PUT (x, Height + Box(1) - 45), Box(2) - x = x + 80 -NEXT n - -'Street lights -FOR x = 19 TO 639 STEP 120 - LINE (x, 360)-(x + 1, 400), 10, B - CIRCLE (x + 8, 364), 2, 15 - PAINT STEP(0, 0), 15 - CIRCLE STEP(0, 0), 5, 8 -NEXT x - -'Foreground building silhouettes -BLOAD "kongfbld.bsv", VARPTR(Box(1)) -DEF SEG -PUT (0, 362), Box(7000), AND -PUT (0, 362), Box() - -SetWIND -Sliders 0, 1 -Sliders 0, 2 -PrintSCORE 1, KScore -PrintSCORE 2, YScore - -END SUB - -SUB Explode (What) -STATIC BlastCOUNT - -SELECT CASE What - CASE 1 - Ex = x# - 26: Ey = y# - 26 - GOSUB FirstBLAST - Ex = KongX - 12: Ey = KongY - 12 - Dx = KongX - 4: Dy = KongY + 20 - CASE 2 - Ex = x# - 26: Ey = y# - 26 - GOSUB FirstBLAST - Ex = YoungX - 12: Ey = YoungY - 12 - Dx = YoungX - 4: Dy = YoungY + 20 - CASE 3 - Ex = x# - 26: Ey = y# - 26 - Dx = x# - 20: Dy = y# - 20 -END SELECT - -IF Ex + 62 > 639 THEN Ex = 639 - 62 -IF Ex < 0 THEN Ex = 0 -GET (Ex, Ey)-(Ex + 62, Ey + 62), ExplosionBACK() - -FOR Index = 1 TO 14421 STEP 2060 - PUT (Ex, Ey), ExplosionBACK(), PSET - IF Index = 4121 THEN - IF What = 1 THEN - PUT (KongX, KongY), KongBOX(5000), PSET - ELSEIF What = 2 THEN - PUT (YoungX, YoungY), YoungBOX(5000), PSET - END IF - GOSUB Damage - GET (Ex, Ey)-(Ex + 62, Ey + 62), ExplosionBACK() - END IF - PUT (Ex, Ey), Box(Index + 1030), AND - PUT (Ex, Ey), Box(Index), XOR - Interval .05 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 -NEXT Index - -PUT (Ex, Ey), ExplosionBACK(), PSET - -EXIT SUB - -Damage: -OPEN "kongcrtr.dat" FOR INPUT AS #2 -INPUT #2, Wdth, Dpth -BlastCOUNT = BlastCOUNT + 1 -SELECT CASE BlastCOUNT - CASE 1 - FOR cx = Dx + Wdth TO Dx STEP -1 - FOR cy = Dy + Dpth TO Dy STEP -1 - GOSUB DrawCRATER - NEXT cy - NEXT cx - CASE 2 - FOR cx = Dx TO Dx + Wdth - FOR cy = Dy TO Dy + Dpth - GOSUB DrawCRATER - NEXT cy - NEXT cx - BlastCOUNT = 0 -END SELECT -CLOSE #2 -RETURN - -DrawCRATER: -INPUT #2, Colr -IF Colr <> 0 THEN - IF POINT(cx, cy) <> 0 AND POINT(cx, cy) <> 12 THEN - PSET (cx, cy), Colr - END IF -END IF -RETURN - -FirstBLAST: -IF Ex < 0 THEN Ex = 0 -IF Ex + 62 > 639 THEN Ex = 577 -GET (Ex, Ey)-(Ex + 62, Ey + 62), ExplosionBACK() -FOR Index = 1 TO 6181 STEP 2060 - Interval 0 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (Ex, Ey), ExplosionBACK(), PSET - PUT (Ex, Ey), Box(Index + 1030), AND - PUT (Ex, Ey), Box(Index), XOR -NEXT Index -PUT (Ex, Ey), ExplosionBACK(), PSET -RETURN - -END SUB - -SUB Fade (InOUT) - -IF InOUT = 1 THEN 'Fade out - FullFADE! = 1 - DO - Interval .1 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - FullFADE! = FullFADE! * 1.3 - OUT &H3C8, 0 - FOR n = 1 TO 48 - OUT &H3C9, INT(FadeBOX(n) / FullFADE!) - NEXT n - LOOP WHILE FullFADE! < 20 - OUT &H3C8, 0 - FOR n = 1 TO 48 - OUT &H3C9, 0 - NEXT n -ELSE 'Fade in - FullFADE! = 20 - DO - Interval .1 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - FullFADE! = FullFADE! * .825 - OUT &H3C8, 0 - FOR n = 1 TO 48 - OUT &H3C9, INT(FadeBOX(n) / FullFADE!) - NEXT n - LOOP WHILE FullFADE! > 1.2 - SetPALETTE -END IF - -END SUB - -SUB FieldMOUSE (x1, y1, x2, y2) - -MouseDRIVER 7, 0, x1, x2 -MouseDRIVER 8, 0, y1, y2 - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -SUB Instructions - -HideMOUSE -GET (192, 140)-(447, 290), Box(12000) -ShowMOUSE - -FOR n = 1 TO 3 - DEF SEG = VARSEG(Box(1)) - FileNAME$ = "kongins" + LTRIM$(STR$(n)) + ".bsv" - BLOAD FileNAME$, VARPTR(Box(1)) - DEF SEG - HideMOUSE - PUT (192, 140), Box(), PSET - ShowMOUSE - GOSUB ClickARROW -NEXT n - -HideMOUSE -PUT (192, 140), Box(12000), PSET -ShowMOUSE - -DEF SEG = VARSEG(Box(1)) -BLOAD "kongexpl.bsv", VARPTR(Box(1)) -DEF SEG - -EXIT SUB - -ClickARROW: -DO - MouseSTATUS LB, RB, MouseX, MouseY - SELECT CASE MouseX - CASE 400 TO 424 - IF MouseY > 154 AND MouseY < 168 THEN - IF Arrow = 0 THEN - HideMOUSE - GET (400, 154)-(424, 167), Box(25000) - FOR x = 400 TO 424 - FOR y = 154 TO 167 - IF POINT(x, y) = 6 THEN PSET (x, y), 13 - NEXT y - NEXT x - ShowMOUSE - Arrow = 1 - END IF - ELSE - IF Arrow THEN - HideMOUSE - PUT (400, 154), Box(25000), PSET - ShowMOUSE - Arrow = 0 - END IF - END IF - CASE ELSE - IF Arrow THEN - HideMOUSE - PUT (400, 154), Box(25000), PSET - ShowMOUSE - Arrow = 0 - END IF - END SELECT - IF Arrow = 1 AND LB = -1 THEN - PUT (400, 154), Box(25000), PSET - ClearMOUSE - Arrow = 0 - RETURN - END IF -LOOP -RETURN - -END SUB - -DEFSNG A-Z -SUB Interval (Length!) - -OldTIMER# = TIMER -DO - IF TIMER < OldTIMER# THEN EXIT SUB -LOOP UNTIL TIMER > OldTIMER# + Length! -WAIT &H3DA, 8 - -END SUB - -DEFINT A-Z -SUB LocateMOUSE (x, y) - -LB = 4 -MX = x -MY = y -MouseDRIVER LB, 0, MX, MY - -END SUB - -SUB MouseDRIVER (LB, RB, MX, MY) - -DEF SEG = VARSEG(MouseDATA$) -Mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, MX, MY, Mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, MX, MY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = MX -MouseY = MY - -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) - - -SHARED Key$ - -DO - Key$ = UCASE$(INKEY$) - MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PlayGAME -STATIC Started -SHARED Player1SPEED#, Player2SPEED# -SHARED Player1ANGLE#, Player2ANGLE# - -DrawSCREEN -DoAPES -CompTOSS = 0 - -Fade 2 - -DO - IF Started = 0 THEN - KScore = 0: YScore = 0 - PrintSCORE 1, KScore - PrintSCORE 2, YScore - StartUP - Started = 1 - IF NumPLAYERS = 2 THEN - Ape = FIX(RND * 2) + 1 - Player1SPEED# = 0: Player2SPEED# = 0 - Player1ANGLE# = 0: Player2ANGLE# = 0 - ELSE - Ape = 2 - END IF - ClearMOUSE - END IF - - IF Ape = 1 THEN Ape = 2 ELSE Ape = 1 - - IF Ape = 1 THEN - YTurn = 0: KTurn = 7 - LINE (73, 473)-(97, 474), 13, B 'LED's - LINE (540, 473)-(564, 474), 10, B - PUT (KongX, KongY), KongBOX(), PSET - Speed# = Player1SPEED#: Angle# = Player1ANGLE# - Sliders INT(Player1SPEED#), 1 - Sliders INT(Player1ANGLE#), 0 - ELSE - YTurn = 7: KTurn = 0 - LINE (73, 473)-(97, 474), 10, B 'LED's - LINE (540, 473)-(564, 474), 13, B - PUT (YoungX, YoungY), YoungBOX(), PSET - Speed# = Player2SPEED#: Angle# = Player2ANGLE# - Sliders INT(Player2SPEED#), 1 - Sliders INT(Player2ANGLE#), 0 - END IF - IF NumPLAYERS = 1 AND Ape = 2 THEN LocateMOUSE 319, 440 - ShowMOUSE - - DO - MouseSTATUS LB, RB, MouseX, MouseY - SELECT CASE MouseY - CASE 18 TO 27 - TopMENU 1 - CASE 424 TO 462 - IF NumPLAYERS = 1 AND Ape = 2 THEN - SELECT CASE Computer 'Call to Computer FUNCTION - CASE -1: EXIT DO 'Change player - CASE 1 'Reset screen - Fade 1 - HideMOUSE - Player1SPEED# = 0: Player2SPEED# = 0 - Player1ANGLE# = 0: Player2ANGLE# = 0 - EXIT SUB - CASE 2: GOSUB EndGAME 'Game over - END SELECT - ELSE - SELECT CASE ControlPANEL 'Call to ControlPANEL FUNCTION - CASE -1: EXIT DO 'Change player - CASE 1 'Reset screen - Fade 1 - HideMOUSE - Player1SPEED# = 0: Player2SPEED# = 0 - Player1ANGLE# = 0: Player2ANGLE# = 0 - EXIT SUB - CASE 2: GOSUB EndGAME 'Game over - END SELECT - END IF - CASE ELSE - IF Item THEN TopMENU 0 - END SELECT - LOOP - -LOOP - -EXIT SUB - -EndGAME: -DEF SEG = VARSEG(Box(1)) -IF KScore = 3 THEN - BLOAD "kongwink.bsv", VARPTR(Box(1)) -ELSE - BLOAD "kongwiny.bsv", VARPTR(Box(1)) -END IF -DEF SEG -wx = (640 - Box(1)) / 2 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (wx, 160), Box(), PSET -a$ = INPUT$(1) -IF a$ = CHR$(13) THEN - Started = 0 - Fade 1 - Player1SPEED# = 0: Player2SPEED# = 0 - Player1ANGLE# = 0: Player2ANGLE# = 0 - HideMOUSE - EXIT SUB -END IF -SYSTEM -RETURN - -END SUB - -SUB PrintSCORE (Ape, Score) - -IF Ape = 1 THEN - PUT (19, 452), NumBOX(Score * 75 + 1), PSET -ELSE - PUT (604, 452), NumBOX(Score * 75 + 1), PSET -END IF - -END SUB - -SUB SetPALETTE - -RESTORE PaletteDATA -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Intensity - OUT &H3C9, Intensity -NEXT n - -END SUB - -SUB SetWIND - -Wind! = FIX(RND * 17) - 8 -LINE (291, 462)-(349, 476), 7, BF -IF Wind! = 0 THEN - PUT (298, 465), LilBOX(), PSET -ELSE - IF Wind! < 0 THEN - PSET (320 + ABS(Wind! * 2) + 3, 466), 13 - DRAW "L10" - DRAW "L" + LTRIM$(STR$(ABS(Wind! * 3))) + "U3 G6 F6 U3 R10" - DRAW "R" + LTRIM$(STR$(ABS(Wind! * 3))) + "U6 bg3 p13,13" - ELSE - PSET (320 - Wind! * 2 - 3, 466), 13 - DRAW "R10" - DRAW "R" + LTRIM$(STR$(ABS(Wind! * 3))) + "U3 F6 G6 U3 L10" - DRAW "L" + LTRIM$(STR$(ABS(Wind! * 3))) + "U6 bf3 p13,13" - END IF -END IF - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB - -SUB Sliders (Value, Slider) -STATIC LeftX, RightX - -IF LeftX = 0 THEN LeftX = 141 -IF RightX = 0 THEN RightX = 484 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 - -HideMOUSE -IF Slider = 1 THEN - PUT (LeftX, 443), SliderBOX(281), PSET - LeftX = 141 + Value - GET (LeftX, 443)-(LeftX + 10, 461), SliderBOX(281) - PUT (LeftX, 443), SliderBOX(201), PSET -ELSE - PUT (RightX, 443), SliderBOX(361), PSET - RightX = 489 - Value - GET (RightX, 443)-(RightX + 10, 461), SliderBOX(361) - PUT (RightX, 443), SliderBOX(201), PSET -END IF -ShowMOUSE - -GOSUB SetNUMS - -EXIT SUB - -SetNUMS: -Num$ = LTRIM$(STR$(Value)) -IF Value < 10 THEN - LNum = 0 - RNum = VAL(Num$) -ELSE - LNum = VAL(MID$(Num$, 1, 1)) - RNum = VAL(MID$(Num$, 2, 1)) -END IF -HideMOUSE -IF Slider = 1 THEN - PUT (260, 447), SliderBOX(LNum * 20 + 1), PSET - PUT (266, 447), SliderBOX(RNum * 20 + 1), PSET -ELSE - PUT (369, 447), SliderBOX(LNum * 20 + 1), PSET - PUT (375, 447), SliderBOX(RNum * 20 + 1), PSET -END IF -ShowMOUSE -RETURN - -END SUB - -SUB StartUP - -DEF SEG = VARSEG(Box(1)) -BLOAD "kong1pl2.bsv", VARPTR(Box(1)) -DEF SEG -GET (209, 160)-(430, 237), Box(12000) -PUT (209, 160), Box(), PSET -LocateMOUSE 340, 190 -ShowMOUSE - -DO - MouseSTATUS LB, RB, MouseX, MouseY - SELECT CASE MouseX - CASE 244 TO 270 - IF Item = 0 THEN - SELECT CASE MouseY - CASE 193 TO 205 - IF LB THEN - ButtonX = 245: ButtonY = 194 - GOSUB Clicker - NumPLAYERS = 2 - FileNAME$ = "kongopen.bsv" - GOSUB LoadFILE - END IF - CASE 209 TO 221 - IF LB THEN - ButtonX = 245: ButtonY = 210 - GOSUB Clicker - NumPLAYERS = 1 - FileNAME$ = "Kong1PLR.BSV" - GOSUB LoadFILE - END IF - END SELECT - END IF - CASE 340 TO 366 - IF Item = 1 THEN - IF MouseY > 209 AND MouseY < 221 THEN - IF LB THEN - ButtonX = 340: ButtonY = 210 - GOSUB Clicker - EXIT DO - END IF - END IF - END IF - END SELECT -LOOP - -HideMOUSE -PUT (209, 160), Box(12000), PSET -ShowMOUSE -Item = 0 -DEF SEG = VARSEG(Box(1)) -BLOAD "kongexpl.bsv", VARPTR(Box(1)) -DEF SEG - -EXIT SUB - -LoadFILE: -DEF SEG = VARSEG(Box(1)) -BLOAD LCASE$(FileNAME$), VARPTR(Box(21500)) -DEF SEG -HideMOUSE -PUT (209, 160), Box(21500), PSET -ShowMOUSE -RETURN - -Clicker: -HideMOUSE -GET (ButtonX, ButtonY)-(ButtonX + 24, ButtonY + 10), Box(20000) -LINE (ButtonX, ButtonY)-(ButtonX + 24, ButtonY + 10), 8, B -ShowMOUSE -Interval .1 -HideMOUSE -PUT (ButtonX, ButtonY), Box(20000), PSET -ShowMOUSE -Interval .01 -Item = Item + 1 -RETURN - -END SUB - -SUB TopMENU (InOUT) -STATIC MX1 - -IF InOUT = 0 THEN GOSUB DeLIGHT: EXIT SUB - -SELECT CASE MouseX - CASE 20 TO 72 - IF Item <> 1 THEN - GOSUB DeLIGHT - MX1 = 20: MX2 = 72 - GOSUB HiLIGHT - Item = 1 - END IF - CASE 594 TO 616 - IF Item <> 2 THEN - GOSUB DeLIGHT - MX1 = 594: MX2 = 616 - GOSUB HiLIGHT - Item = 2 - END IF - CASE ELSE - GOSUB DeLIGHT -END SELECT - -IF LB = -1 AND Item THEN - SELECT CASE Item - CASE 1: GOSUB DeLIGHT: Instructions - CASE 2: GOSUB DeLIGHT: SYSTEM - END SELECT -END IF - -EXIT SUB - -HiLIGHT: -HideMOUSE -GET (MX1, 18)-(MX2, 27), Box(25000) -FOR x = MX1 TO MX2 - FOR y = 18 TO 27 - IF POINT(x, y) <> 1 AND POINT(x, y) <> 2 THEN - PSET (x, y), 13 - END IF - NEXT y -NEXT x -ShowMOUSE -RETURN - -DeLIGHT: -IF Item THEN - HideMOUSE - PUT (MX1, 18), Box(25000), PSET - ShowMOUSE -END IF -Item = 0 -RETURN - -END SUB diff --git a/programs/samples/thebob/kong/readme_kong.txt b/programs/samples/thebob/kong/readme_kong.txt deleted file mode 100644 index a603cc59c..000000000 --- a/programs/samples/thebob/kong/readme_kong.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder like KONG and unzip files into it. - -NOTE: This game requires graphics files created by the accompanying programs K1 and K2. K1 CHAIN's K2, so only run K1.bas. After K1.bas ends, Kong.bas is ready to play! diff --git a/programs/samples/thebob/leapfrog/leapfrog.bas b/programs/samples/thebob/leapfrog/leapfrog.bas deleted file mode 100644 index 55734b74b..000000000 --- a/programs/samples/thebob/leapfrog/leapfrog.bas +++ /dev/null @@ -1,629 +0,0 @@ -CHDIR ".\programs\samples\thebob\leapfrog" - -'***************************************************************************** -' -'----------------------- L E A P F R O G. B A S -- 2.1 ----------------------- -' -'------------ Copyright (C) 2002 - 2007 by Bob Seguin (Freeware) ------------- -' -'***************************************************************************** -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () - -DECLARE SUB MouseDRIVER (LB, RB, mX, mY) -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB FieldMOUSE (x1, y1, x2, y2) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () -DECLARE SUB Interval (Length!) - -DECLARE SUB DrawSCREEN () -DECLARE SUB RAMarrays () -DECLARE SUB SETxy (Pad) -DECLARE SUB Rings (Pad, Colr) -DECLARE SUB PutFROG (Pad, Image) -DECLARE SUB Hop (From, Destination, Direction) -DECLARE FUNCTION HopCHEK (Pad1, Pad2) -DECLARE FUNCTION HopDIRECTION (Pad1, Pad2) - -DIM SHARED LilyPOND(1 TO 15) -DIM SHARED Box(1 TO 16400) -DIM SHARED BasicsBOX(1 TO 3000) -DIM SHARED BackBOX(1 TO 1650) -DIM SHARED ErrorBOX(1 TO 2640) -DIM SHARED SoundON -DIM SHARED MouseDATA$ - -CONST ArrayHOP& = 1650 -CONST Wdth = 89 -CONST Dpth = 67 - -FOR n = 2 TO 15 -LilyPOND(n) = 1 -NEXT n - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 -READ h$ -Hexxer$ = CHR$(VAL("&H" + h$)) -MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN -PRINT "Sorry, cat must have got the mouse." -SLEEP 2 -SYSTEM -END IF - -SCREEN 12 - -OUT &H3C8, 0 -FOR n = 1 TO 48 -OUT &H3C9, 0 -NEXT n - -RAMarrays -DrawSCREEN -GOSUB SetPALETTE - -ShowMOUSE -SoundON = 1 - -DO -k$ = INKEY$ -IF k$ = CHR$(27) THEN SYSTEM -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseY -CASE 8 TO 18 -SELECT CASE MouseX -CASE 130 TO 188 -IF Menu <> 1 THEN -GOSUB PutMENU -Mx1 = 130: Mx2 = 188 -GOSUB GetMENU -HideMOUSE -PUT (130, 8), BasicsBOX(1851), PSET -ShowMOUSE -Menu = 1 -END IF -IF LB THEN GOSUB NewGAME -CASE 220 TO 258 -IF Menu <> 2 THEN -GOSUB PutMENU -Mx1 = 220: Mx2 = 260 -GOSUB GetMENU -HideMOUSE -PUT (220, 8), BasicsBOX(2201), PSET -ShowMOUSE -Menu = 2 -END IF -IF LB THEN -IF SoundON = 0 THEN -HideMOUSE -PUT (220, 8), BasicsBOX(2101), PSET -ShowMOUSE -SoundON = 1 -ELSE -HideMOUSE -PUT (220, 8), BasicsBOX(2301), PSET -ShowMOUSE -SoundON = 0 -END IF -GOSUB GetMENU -ClearMOUSE -END IF -CASE 600 TO 626 -IF Menu <> 3 THEN -GOSUB PutMENU -Mx1 = 600: Mx2 = 626 -GOSUB GetMENU -HideMOUSE -PUT (600, 8), BasicsBOX(2001), PSET -ShowMOUSE -Menu = 3 -END IF -IF LB THEN SYSTEM -CASE ELSE -IF Menu THEN GOSUB PutMENU -END SELECT -CASE 65 TO 121 -SELECT CASE MouseX -CASE 290 TO 346: Pad = 1 -END SELECT -CASE 145 TO 201 -SELECT CASE MouseX -CASE 242 TO 298: Pad = 2 -CASE 338 TO 394: Pad = 3 -END SELECT -CASE 225 TO 281 -SELECT CASE MouseX -CASE 194 TO 250: Pad = 4 -CASE 290 TO 346: Pad = 5 -CASE 386 TO 442: Pad = 6 -END SELECT -CASE 305 TO 361 -SELECT CASE MouseX -CASE 146 TO 202: Pad = 7 -CASE 242 TO 298: Pad = 8 -CASE 338 TO 394: Pad = 9 -CASE 434 TO 490: Pad = 10 -END SELECT -CASE 385 TO 441 -SELECT CASE MouseX -CASE 98 TO 154: Pad = 11 -CASE 194 TO 250: Pad = 12 -CASE 290 TO 346: Pad = 13 -CASE 386 TO 442: Pad = 14 -CASE 482 TO 538: Pad = 15 -END SELECT -CASE ELSE -IF Menu THEN GOSUB PutMENU -END SELECT - -IF BoxON THEN IF LB AND MouseX > 578 THEN SYSTEM -IF GameOVER = 0 THEN -IF LB AND Pad THEN -IF Chosen THEN -IF Pad = Pad1 THEN -Rings Pad1, 11 -Pad1 = 0: Chosen = 0 -ClearMOUSE -GOTO Continue -END IF -Direction = HopDIRECTION(Pad1, Pad) -MidPAD = HopCHEK(Pad1, Pad) -GOSUB ErrorCHECK -IF Pad THEN -Rings Pad1, 11 -Chosen = 0 -Hop Pad1, Pad, Direction -LilyPOND(Pad) = 1 -LilyPOND(Pad1) = 0 -LilyPOND(MidPAD) = 0 -PutFROG MidPAD, 3 -IF SoundON THEN PLAY "MBMST220L64O1cP16eP16g" -Interval .1 -PutFROG MidPAD, 2 -Interval .3 -PutFROG MidPAD, 1 -IF SoundON THEN PLAY "MBT220L64O2b" -Pad1 = 0: Pad = 0: Chosen = 0 -FOR n = 1 TO 15 -IF LilyPOND(n) = 1 THEN -Count = Count + 1 -LastPAD = n -END IF -NEXT n -IF Count = 1 THEN -Interval .3 -IF SoundON THEN -PLAY "MFMST120O1L16ceg>ceg>ceg>L32cg" -PLAY "MBMST120O4L32cgcgcgcg" -END IF -PutFROG LastPAD, 3 -FOR Reps = 1 TO 8 -Rings LastPAD, 0 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 2 -Rings LastPAD, 9 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -Rings LastPAD, 4 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -Rings LastPAD, 11 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -NEXT Reps -Rings LastPAD, 9 -PutFROG LastPAD, 2 -GameOVER = 1 -ELSE -Count = 0 -END IF -END IF -ELSE -IF LilyPOND(Pad) = 1 THEN -Rings Pad, 7 -Pad1 = Pad -Chosen = 1 -ClearMOUSE -ELSE -HideMOUSE -PUT (38, 230), ErrorBOX, PSET -ShowMOUSE -Interval 1.5 -HideMOUSE -LINE (36, 230)-(160, 260), 0, BF -ShowMOUSE -Pad1 = 0: Pad = 0: Chosen = 0 -END IF -END IF -END IF -END IF -Continue: -Pad = 0 -LOOP - -SYSTEM - -ErrorCHECK: -IF MidPAD = 0 THEN -HideMOUSE -PUT (38, 230), ErrorBOX(661), PSET -ShowMOUSE -Rings Pad1, 11 -Pad = 0: Pad1 = 0: Chosen = 0 -Interval 1.5 -HideMOUSE -LINE (36, 230)-(160, 260), 0, BF -ShowMOUSE -RETURN -END IF -IF LilyPOND(Pad) = 1 THEN -HideMOUSE -PUT (38, 230), ErrorBOX(1321), PSET -ShowMOUSE -Rings Pad1, 11 -Pad = 0: Pad1 = 0: Chosen = 0 -ELSE -IF LilyPOND(MidPAD) = 0 THEN -HideMOUSE -PUT (38, 230), ErrorBOX(1981), PSET -ShowMOUSE -Rings Pad1, 11 -Pad = 0: Pad1 = 0: Chosen = 0 -END IF -END IF -IF Pad = 0 THEN -Interval 1.5 -HideMOUSE -LINE (36, 230)-(160, 260), 0, BF -ShowMOUSE -END IF -RETURN - -GetMENU: -HideMOUSE -GET (Mx1, 8)-(Mx2, 18), BasicsBOX(2701) -ShowMOUSE -RETURN - -PutMENU: -HideMOUSE -IF Menu = 1 THEN PUT (130, 8), BasicsBOX(2701), PSET -IF Menu = 2 THEN PUT (220, 8), BasicsBOX(2701), PSET -IF Menu = 3 THEN PUT (600, 8), BasicsBOX(2701), PSET -ShowMOUSE -Menu = 0 -RETURN - -NewGAME: -IF SoundON THEN PLAY "MBT220MSO5L64cP16dP16eP16fP16gP16fP16eP16dP16c" -FOR n = 2 TO 15 -LilyPOND(n) = 1 -PutFROG n, 2 -NEXT n -LilyPOND(1) = 0 -PutFROG 1, 1 -IF LastPAD THEN Rings LastPAD, 11 -Count = 0 -GameOVER = 0 -ClearMOUSE -RETURN - -SetPALETTE: -DATA 0,0,21, 60,55,55, 0,38,14, 0,0,0, 63,0,0, 0,24,0, 0,34,10, 32,40,55 -DATA 21,21,21, 53,0,63, 31,55,4, 18,28,40, 63,58,58, 8,30,0, 63,63,21, 63,63,63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Intensity: OUT &H3C9, Intensity -NEXT n -RETURN - -SUB ClearMOUSE -SHARED LB, RB - -WHILE LB OR RB -MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB DrawSCREEN - -DEF SEG = VARSEG(Box(1)) -BLOAD "leappnd1.bsv", VARPTR(Box(1)) -PUT (191, 63), Box, PSET -BLOAD "leappnd2.bsv", VARPTR(Box(1)) -PUT (95, 302), Box, PSET -DEF SEG - -DEF SEG = VARSEG(Box(1)) -BLOAD "leapins1.bsv", VARPTR(Box(1)) -PUT (24, 45), Box -BLOAD "leapins2.bsv", VARPTR(Box(1)) -PUT (445, 45), Box -DEF SEG - -LINE (5, 24)-(634, 474), 8, B -PAINT (0, 0), 8 -LINE (10, 29)-(629, 469), 11, B -DEF SEG = VARSEG(Box(1)) -BLOAD "leaphead.bsv", VARPTR(Box(1)) -DEF SEG -PUT (12, 6), Box, PSET - -DEF SEG = VARSEG(BasicsBOX(1)) -BLOAD "leapbscs.bsv", VARPTR(BasicsBOX(1)) -DEF SEG - -FOR n = 2 TO 15 -PutFROG n, 2 -NEXT n - -FOR n = 1 TO 15 -Rings n, 11 -NEXT n - -DEF SEG = VARSEG(ErrorBOX(1)) -BLOAD "leaperrs.bsv", VARPTR(ErrorBOX(1)) -DEF SEG - -END SUB - -SUB FieldMOUSE (x1, y1, x2, y2) - -MouseDRIVER 7, 0, x1, x2 -MouseDRIVER 8, 0, y1, y2 - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -SUB Hop (From, Destination, Direction) -SHARED x, y - -SELECT CASE Direction -CASE 1: Direction$ = "UL" -CASE 2: Direction$ = "UR" -CASE 3: Direction$ = "DL" -CASE 4: Direction$ = "DR" -CASE 5: Direction$ = "L" -CASE 6: Direction$ = "R" -END SELECT - -FileNAME$ = "Leap" + Direction$ + ".BSV" - -DEF SEG = VARSEG(Box(1)) -BLOAD FileNAME$, VARPTR(Box(1)) -DEF SEG - -SETxy From - -IF SoundON THEN PLAY "MBT220MSL64O5cP16gP16>cP16gP16cP16 OldTIMER# + Length! - -END SUB - -SUB LocateMOUSE (x, y) - -LB = 4 -mX = x -mY = y -MouseDRIVER LB, 0, mX, mY - -END SUB - -SUB MouseDRIVER (LB, RB, mX, mY) - -DEF SEG = VARSEG(MouseDATA$) -Mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, mX, mY, Mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, mX, mY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = mX -MouseY = mY - -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) - - -SHARED Key$ - -DO -Key$ = UCASE$(INKEY$) -MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PutFROG (Pad, Image) -SHARED x, y - -Index = (Image - 1) * 600 + 51 -SETxy Pad - -HideMOUSE -PUT (x - 24, y - 20), BasicsBOX(Index), PSET -ShowMOUSE - -END SUB - -SUB RAMarrays -DEF SEG = VARSEG(Box(1)) -BLOAD "leapdr.bsv", VARPTR(Box(1)) -BLOAD "leapdl.bsv", VARPTR(Box(1)) -BLOAD "leapur.bsv", VARPTR(Box(1)) -BLOAD "leapul.bsv", VARPTR(Box(1)) -BLOAD "leapr.bsv", VARPTR(Box(1)) -BLOAD "leapl.bsv", VARPTR(Box(1)) -DEF SEG -END SUB - -SUB Rings (Pad, Colr) -SHARED x, y - -SETxy Pad - -HideMOUSE -CIRCLE (x, y), 44, Colr -CIRCLE (x, y), 39, Colr -ShowMOUSE - -END SUB - -SUB SETxy (Pad) -SHARED x, y - -SELECT CASE Pad -CASE 1: y = 95: x = 318 -CASE 2: y = 175: x = 270 -CASE 3: y = 175: x = 366 -CASE 4: y = 255: x = 222 -CASE 5: y = 255: x = 318 -CASE 6: y = 255: x = 414 -CASE 7: y = 335: x = 174 -CASE 8: y = 335: x = 270 -CASE 9: y = 335: x = 366 -CASE 10: y = 335: x = 462 -CASE 11: y = 415: x = 126 -CASE 12: y = 415: x = 222 -CASE 13: y = 415: x = 318 -CASE 14: y = 415: x = 414 -CASE 15: y = 415: x = 510 -END SELECT - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB diff --git a/programs/samples/thebob/leapfrog/lfgx.bas b/programs/samples/thebob/leapfrog/lfgx.bas deleted file mode 100644 index 866a1b36e..000000000 --- a/programs/samples/thebob/leapfrog/lfgx.bas +++ /dev/null @@ -1,670 +0,0 @@ -CHDIR ".\programs\samples\thebob\leapfrog" - -'***************************************************************************** -' -'---------------------------- L F G F X . B A S ------------------------------ -' -'-------- A utility which creates graphical components for LEAPFROG.BAS ------ -' -'***************************************************************************** - -DEFINT A-Z - -DECLARE SUB GetFROG (x, y, FileNAME$) -DECLARE SUB PrintSTRING (x, y, Prnt$, Font) -DECLARE SUB Rings (Pad, Colr) -DIM SHARED Box(1 TO 16400) -DIM SHARED FontBOX(10000) -DIM Elements(3600) -DIM BasicsBOX(3000) - -SCREEN 12 -GOSUB SetPALETTE - -'Create images from DATA -MaxWIDTH = 300 -MaxDEPTH = 395 -x = 0: y = 0 -RESTORE PixDATA -DO - READ DataSTRING$ - FOR n = 1 TO LEN(DataSTRING$) - Char$ = MID$(DataSTRING$, n, 1) - IF Char$ = CHR$(225) THEN Char$ = CHR$(160) - SELECT CASE Char$ - CASE "!" - n = n + 1 - a$ = MID$(DataSTRING$, n, 1) - Count = ASC(a$) + 68 - CASE "#" - n = n + 1 - B$ = MID$(DataSTRING$, n) - FOR i = 1 TO LEN(B$) - t$ = MID$(B$, i, 1) - IF t$ = "#" THEN EXIT FOR - c$ = c$ + t$ - NEXT i - Count = VAL("&H" + c$) - n = n + LEN(c$) - c$ = "" - CASE ELSE - Count = ASC(Char$) - 60 - END SELECT - n = n + 1 - Colr = VAL("&H" + MID$(DataSTRING$, n, 1)) - FOR Reps = 1 TO Count - PSET (x, y), Colr - x = x + 1 - IF x > MaxWIDTH THEN x = 0: y = y + 1 - NEXT Reps - NEXT n -LOOP UNTIL y > MaxDEPTH 'DATA drawing loop ends here -------------------- -'Draw mirror image of frog leaping frames -FOR x = 0 TO 270 - FOR y = 0 TO 204 - PSET (540 - x, y), POINT(x, y) - NEXT y -NEXT x -'GET/Save leap animation files -RESTORE LeapDATA -GetFROG 0, 0, "leapdr.bsv" -GetFROG 270, 0, "leapdl.bsv" -GetFROG 0, 68, "leapur.bsv" -GetFROG 270, 68, "leapul.bsv" -GetFROG 0, 136, "leapr.bsv" -GetFROG 270, 136, "leapl.bsv" -'Get additonal frog/lilypad images -x = 70: y = 206 -GET (x, y)-(x + 48, y + 37), BasicsBOX(651) -PUT (x, y), BasicsBOX(651) -GET (x + 49, y)-(x + 49 + 48, y + 37), BasicsBOX(1251) -PUT (x + 49, y), BasicsBOX(1251) -GET (x + 49 + 49, y)-(x + 49 + 49 + 48, y + 37), BasicsBOX(51) -PUT (x + 98, y), BasicsBOX(51) -'Hold menu/lilypad elements for use later -GET (0, 206)-(65, 267), Elements() -FOR x = 0 TO 65 - FOR y = 206 TO 267 - IF POINT(x, y) = 0 THEN PSET (x, y), 15 ELSE PSET (x, y), 0 - NEXT y -NEXT x -GET (0, 206)-(65, 267), Elements(1200) -PUT (0, 206), Elements(1200) -GET (69, 246)-(146, 258), Elements(2400) -PUT (69, 246), Elements(2400) - -GOSUB GetFONT -'Create/BSAVE Error blurbs -PrintSTRING 20, 230, "There is no frog", 0 -PrintSTRING 20, 243, "on that lilypad!", 0 -PrintSTRING 20, 260, "You can't get", 0 -PrintSTRING 20, 273, "there from here!", 0 -PrintSTRING 20, 290, "You'll land right", 0 -PrintSTRING 20, 303, "on a wee froggie!", 0 -PrintSTRING 20, 320, "There's no froggie", 0 -PrintSTRING 20, 333, "to leap over!", 0 -Index = 1 -FOR y = 230 TO 320 STEP 30 - GET (20, y)-(120, y + 24), Box(Index) - PUT (20, y), Box(Index) - Index = Index + 660 -NEXT y -DEF SEG = VARSEG(Box(1)) -BSAVE "leaperrs.bsv", VARPTR(Box(1)), 5280 -DEF SEG -'Begin lilypad drawing -PSET (308, 90), 4 -DRAW "M+199,+330 L398 M+199,-330 BD20 P4,4" -FOR Reps = 1 TO 500 - x = FIX(RND * 400) + 80 - y = FIX(RND * 380) + 90 - Radius = FIX(RND * 12) + 10 - IF POINT(x, y) = 4 THEN CIRCLE (x, y), Radius, 8 - x = FIX(RND * 400) + 80 - y = FIX(RND * 380) + 90 - IF POINT(x, y) = 4 THEN CIRCLE (x, y), 4, 5: PAINT STEP(0, 0), 5 -NEXT Reps -FOR x = 70 TO 520 - FOR y = 80 TO 480 - IF POINT(x, y) = 4 THEN PSET (x, y), 0 - NEXT y -NEXT x -PUT (286, 63), Elements(1200), AND -PUT (286, 63), Elements() -PUT (334, 143), Elements(1200), AND -PUT (334, 143), Elements() -PUT (238, 143), Elements(1200), AND -PUT (238, 143), Elements() -FOR x = 94 TO 500 STEP 96 - PUT (x, 383), Elements(1200), AND - PUT (x, 383), Elements() -NEXT x -FOR x = 142 TO 500 STEP 96 - PUT (x, 303), Elements(1200), AND - PUT (x, 303), Elements() -NEXT x -FOR x = 190 TO 400 STEP 96 - PUT (x, 223), Elements(1200), AND - PUT (x, 223), Elements() -NEXT x -DEF SEG = VARSEG(Box(1)) -GET (191, 63)-(447, 301), Box() -PUT (191, 63), Box() -BSAVE "leappnd1.bsv", VARPTR(Box(1)), 32800 -GET (95, 302)-(543, 444), Box() -PUT (95, 302), Box() -BSAVE "leappnd2.bsv", VARPTR(Box(1)), 32800 -DEF SEG -'Create/BSAVE menu bar and item highlighting -LINE (0, 0)-(639, 25), 8, BF -PUT (12, 5), Elements(2400), PSET -PrintSTRING 130, 7, "NewGAME", 0 -PrintSTRING 221, 7, "SOUND", 0 -GET (220, 8)-(258, 16), BasicsBOX(2301) 'Green SOUND -FOR x = 221 TO 300 - FOR y = 7 TO 20 - IF POINT(x, y) <> 8 THEN PSET (x, y), 9 - NEXT y -NEXT x -GET (220, 8)-(258, 16), BasicsBOX(2101) 'Lavender SOUND -PrintSTRING 600, 7, "EXIT", 0 -GET (12, 6)-(624, 17), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "leaphead.bsv", VARPTR(Box(1)), 4000 -DEF SEG -FOR x = 130 TO 639 - IF x = 261 THEN x = 600 - FOR y = 8 TO 16 - IF POINT(x, y) <> 8 THEN PSET (x, y), 15 - NEXT y -NEXT x -GET (130, 8)-(184, 16), BasicsBOX(1851) 'White NewGAME -GET (220, 8)-(258, 16), BasicsBOX(2201) 'White SOUND -GET (600, 8)-(626, 16), BasicsBOX(2001) 'White EXIT -LINE (0, 0)-(639, 25), 0, BF -DEF SEG = VARSEG(BasicsBOX(1)) -BSAVE "leapbscs.bsv", VARPTR(BasicsBOX(1)), 6000 -DEF SEG -'Create/BSAVE instructionas -PrintSTRING 24, 45, "LEAPFROG is based on a popular", 1 -PrintSTRING 24, 57, "wooden pegboard puzzle.", 1 -PrintSTRING 37, 75, "The object of the game is to", 1 -PrintSTRING 37, 87, "eliminate all the frogs but one.", 1 -PrintSTRING 37, 105, "Frogs are eliminated by leaping", 1 -PrintSTRING 37, 117, "them.", 1 -PrintSTRING 37, 135, "To leap a frog, first click the", 1 -PrintSTRING 37, 147, "jumper frog, then click the", 1 -PrintSTRING 37, 159, "destination lilypad.", 1 -LINE (25, 78)-(28, 81), 10, BF -LINE (25, 108)-(28, 111), 10, BF -LINE (25, 138)-(28, 141), 10, BF -PrintSTRING 460, 55, "To deselect a jumper just click it.", 1 -PrintSTRING 460, 73, "To reset, click NewGAME.", 1 -PrintSTRING 460, 91, "Click EXIT at any time to quit.", 1 -PrintSTRING 460, 109, "To switch sound on or off just", 1 -PrintSTRING 460, 121, "click SOUND on the menu bar.", 1 -PrintSTRING 446, 150, "Copyright (C) 2007 by Bob Seguin", 1 -LINE (447, 58)-(450, 61), 10, BF -LINE (447, 76)-(450, 79), 10, BF -LINE (447, 94)-(450, 97), 10, BF -LINE (447, 112)-(450, 115), 10, BF -GET (24, 45)-(188, 170), Box() -PUT (24, 45), Box() -DEF SEG = VARSEG(Box(1)) -BSAVE "leapins1.bsv", VARPTR(Box(1)), 11100 -GET (445, 45)-(615, 170), Box() -PUT (445, 45), Box() -BSAVE "leapins2.bsv", VARPTR(Box(1)), 11100 -DEF SEG -'Finish up -OUT &H3C8, 11: OUT &H3C9, 40: OUT &H3C9, 30: OUT &H3C9, 63 -LINE (5, 5)-(634, 474), 5, B -LINE (8, 8)-(631, 471), 5, B -LINE (200, 180)-(439, 290), 5, B -LINE (197, 177)-(442, 293), 5, B -PrintSTRING 241, 212, "The graphics files for LEAPFROG", 1 -PrintSTRING 243, 226, "have been successfully created.", 1 -PrintSTRING 246, 250, "You can now run the program.", 1 - -a$ = INPUT$(1) -END - -GetFONT: -'Stores two fonts in single array (see PrintSTRING sub program). -Index = 2 -FOR y = 272 TO 386 STEP 14 - FOR x = 0 TO 300 STEP 14 - GET (x, y)-(x + 11, y + 11), Box(Index) - PUT (x, y), Box(Index) - Index = Index + 50 - IF Index = 188 * 50 + 2 THEN EXIT FOR - NEXT x -NEXT y -FontBOX(0) = 50 -FontBOX(1) = 4 -FOR Index = 2 TO 187 * 50 + 2 STEP 50 - LINE (0, 200)-(20, 220), 0, BF - PUT (0, 200), Box(Index) - x1 = -1: x2 = -1 - FOR x = 0 TO 20 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x - NEXT y - NEXT x - FOR x = 20 TO 0 STEP -1 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x - NEXT y - NEXT x - GET (x1, 200)-(x2 + 1, 211), FontBOX(Index) -NEXT Index -LINE (0, 200)-(20, 220), 0, BF -RETURN - -SetPALETTE: -DATA 0,0,21, 60,55,55, 0,38,14, 0,0,0, 63,0,0, 0,24,0, 0,34,10, 32,40,55 -DATA 21,21,21, 53,0,63, 31,55,4, 18,28,40, 63,58,58, 8,30,0, 63,63,21, 63,63,63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Intensity: OUT &H3C9, Intensity -NEXT n -RETURN - -LeapDATA: -DATA -45,-37,1,-42,-35,3301,-6,0,6601,18,32,6601,30,57,6601,42,84,3301,47 -DATA 106,1,-45,-37,6601,-50,-35,3301,-86,0,1,-110,32,1,-120,57,1,-125,84 -DATA 3301,-132,106,6601,-36,-34,1,-28,-52,3301,-30,-78,6601,-12,-120,6601 -DATA 12,-156,6601,42,-182,3301,50,-190,1,-50,-34,6601,-62,-50,3301,-60,-78 -DATA 1,-75,-122,1,-98,-156,1,-127,-182,3301,-136,-186,6601,-45,-37,1,-32 -DATA -42,3301,-12,-54,6601,25,-56,6601,56,-54,6601,88,-44,3301,120,-40,1 -DATA -45,-37,6601 ,-68,-46, 3301,-94,-56,1,-124,-58,1,-156,-55,1,-188,-44 -DATA 3301,-220,-40,6601 - -PixDATA: -DATA "!Ž0>3?0>3>0>3#120#0=3>A=2>3=0>2=3=0=A=3#121#0=3?A=2=3>A>3=A=3#122#0=3?A" -DATA "=2>A=2>A=3#123#0=3CA=3#10C#0>3S0BA=3#10D#0=3=A=3R0=3@A=3#10C#0=3=2=3>A" -DATA ">3P0=3@A=3#10C#0=3=A>3?A>3N0=3AA?3#109#0=3?A=3@A?3L0=2CA?3#104#0@3FA>3" -DATA "K0?3BA>3#102#0=3LA=3M0=3CA=3#102#0>3HA=2=3O0=3CA#104#0>3>2>3>2>A=2=3Q0" -DATA "=3BA=D=3#109#0=2?A=3R0=2AA=2=D=3#109#0=2?A=3Q0=3BA>D=3#109#0=3?A=3P0=3" -DATA "CA>D=3#109#0=3@A=3L0?3=2CA=2=D=3#109#0=3AA=2=3G0>3=2HA=D=3!@0?3>0?3¹0=3" -DATA "CA>2B3?2LA>3!>0=3?A>2?A=3¸0=3`A=3!<0=3=A>2=3?A=3=2=A=3¸0=3BA=2?D=2UA=3" -DATA "º0=3=A=2>F=7=3=A=3=7=F=2=3¹0=3@ACDKA?DCA=3¸0=3>2@F=3=A=3?F=3º0>3>ACD=2" -DATA "IAADCA=3¶0>3=A=2>F=7>3=A>3=7=F=2!<0>3>A=2>D>2JABD@A=2=D=A=3¯0=2B3>A=3>F" -DATA "?3=A=2>3=F=7=3!=0>3=2NABD?A=2?D=A=3«0>3?D=2BA=2>F=7=3=2>A>3=C=7=3!@0>3" -DATA "HA>D?A@D@AAD=A=3§0?3=2>A>D=2CA=7>C=3BA>3‘0?3=2=0?3e0=3GA>DGA=2?D=2=A=3" -DATA "¥0>3>D=2JA=8=2DA=3€0D3D0=3>A=2>3=2>A=3e0=3JA=2@DAA=2=D=2?A=3£0=3@DVA=3" -DATA "{0@3@D=A?D@3?0=3=A=2=3C2f0=3HACDFA=3¢0=3@DHA?3IA=3w0?3=ABD?ABD?3=2=3=7" -DATA ">F=7=3=2?F=3e0=3=2FA=2DDEA=3¡0=3NA=3KA=3t0>3IABD=2=A>2=7@F>3@F=3e0=3=C" -DATA "EA=2DD>A=2@D?A=3Ÿ0=3>D=A>DJA=3=7JA=3s0=3?A?D@A@D>A@D=2>A>2?F=7A3>F=3e0" -DATA "=3>CDA=2CD>ACD>A=3ž0=3>D=2=A>DKA>3HA?3q0=3?AAD>ABDEA=2>F=7?3=A=2=3=7=F" -DATA "=3f0=3=CEA=2BD>ACD>A=30=3?DPA=7G3=7>F=3g0A3@0=3=D?A=2?D=2>ABDEA=3>F=7" -DATA ">3=2>A=2=3=C=3f0=3>CFA?D@ACD?A=3œ0=3>2NAMF=3g0=3>A=2>D>3=0=3IA=2?DGA=7" -DATA ">C=3=2AA>3g0=3>CLA=2BD=A>D=3–0@3>0=3OAMF=3g0=8@A=2?D=3ZA=2=3DA=3g0=3?C" -DATA "LA>2>D>A=2>D=3”0>3@D?3NAMF=3h0=3AA=2>D=3eA=3g0=3>CGA>2>D=2BA@D=3’0=3>A" -DATA "=2?D>A>3FA>3@AMF=3i0=3RA=3XA=3f0=3?CEA=2AD=2BA=2=D=2=3’0=3FA=3DA=3AA=3" -DATA "LF=3j0=3RA=3IA>3JA=3f0>3>CDACDFA?30=3@A>3=A=3>A>3AA=3AA=3LF=3l0=3@A>3" -DATA "KA=3BA=3AA=3MA=3f0>3>CCA=2AD=2FA=3?A>3Ž0=3@A?3DA=3AA=3LF=3n0=3@A?3JA=3" -DATA "@A=3AF@3=2JA=3g0>3?CBA=2?D=2HA=3@A>30=3@A>3?AAF=3@A=3KF=C>3o0=3@A>3?A" -DATA "GF=3@A=3EF?3EA=2>3j0>3>CQA=2>3=2@A=30>3?A>3=A>C@F=3@A=3IF>C=3=2=3p0=3" -DATA "=8?A>3=A=CHF=3?A=3HF=8C3=8>F=3l0=3=CPA=3@A=3@A=3Ž0>3>A>3@C?F=3?A=3DFBC" -DATA "=3>2=A=3q0=3=8>A>3?CFF=3@A=3PF=8=3l0=3LA?3>A=3?A>3=A=3?A=3Œ0A3>A=2=8BC" -DATA "=3?A=3GC>1=3?2>A=3n0?3>2>A=3=1ACDF=3?A=3MF=7=8=3=2A3g0=3LA=3=2>A=2@A=3" -DATA ">F>3?A=3Š0>3DA=2=3=1AC=3?A=3CC?1@3=2@AA3g0>3EA=3=1CCAF=3?A=3HF?C=7=3=D" -DATA ">2AA>3d0=3LA=2AA=3>A=3?F=7>3?A=3ˆ0=3?A>3AA>2=3A1=3@A=3B1>3>2?A=3FAe0=3" -DATA "?A=3=2CA=3>1FC=3@A>3EC=7?3=8=3>2CA>3c0=3KA=3@A?3>A=3@F>3?A=3‰0?3BAB3@1" -DATA "=3@A?3>1=3?2?A?3BA=3>A=3e0?3BA=2@3=7?1DC=3@A>3@1=7>3>8@0=3=2BA=3?A=3b0" -DATA "=3BA>3GA=7>F=3>A=2>3=F=C>3?A=3‰0=3?A=3>A=2=3A0A3DA@3=2>A=3?A=3=A?3>A=3" -DATA ">A=3d0>3?A=2?A=3B0=3=8F1=3@AA3E0=3@A=3?A>3=A=3b0=3AA>3=0>1DA=3@F=3>A=2" -DATA "=3=C=7=3=0=3>A=3ˆ0=3>A>3>A>3B0=3=A=3IA?3>A>3?A=3>0>A=3=0>3d0=3>A>3>A=2" -DATA "=3E0>3=7A1=7>3AAA3F0=3>A?3=A=3e0=3AA=3?0>1CA=7>F=7>3?A=2=3=A=3=0=3>A=3" -DATA "‰0>3?A=3D0=3=A=3@A=2?A=2B3=0=3?A>3@0=3=A=3h0>3?A=3J0A3>0=3FA=3F0=3=A>0" -DATA ">3=A=3d0=3AA=3?0=3>1CA=C=F>3=2AA>3=0=3>A>3Š0?3E0@3>A>3?A=3D0?3C0=3k0?3" -DATA "R0=3BA=2?3H0>3>0=3=A=3e0=3@A=3@0=3>1=2@A=3>C=3=2CA?3@A=3˜0>3=A=0>3?A=3" -DATA "–0>3=A>2>A>2O0>3f0=3@A=3@0=3=1=2=3@A=2=3EA=3CA=3˜0>3?0>3>A=3–0=3=A?3>A" -DATA "=3=2z0=3@A=3A0=3>1=3KA=3=A=2>A=2>A=3ž0@3•0=3=A=3=0>3?A=3z0=3@A=3B0=3=1" -DATA "=3JA=3=A=2>A=2=3=A=3!{0?3>0?3>A=3z0=3@A=3=2A0=3=1=3IA=3=A=3>A?3!ƒ0@3{0" -DATA "=3AA=2>3?0=3=1=3GA>3=A=3>A=3#10D#0=3DA=3?0=3GA=3=0@3#10C#0>3@A=2=3=2?A" -DATA "=3@0=3DA=3#111#0=3=2>A=3>A=3=0@3B0?3@A=3#112#0=3>A>3>A>3I0@3#113#0=3>A" -DATA "=3=0=3>A=3#125#0>3?0=3=A=3#12B#0=3#70A#0>3@0>3=2#123#0=3=2=A=3=0=3?A=2" -DATA "#123#0=3>A=2=3=A=2?3#123#0=3AA=3@0=3#122#0=3=2?A=2?3=2=A=3A0?D#11A#0=3" -DATA "=2DA=3?0>D@A=Dá0E30A30=3CA=3?0=3CA=3ž0=3@A=2=3?A=30=3@A=2=3Ž0>3>A>2" -DATA "A0=3=DEA=3D0=3>2‘0=3>A@3=A?3=A=3‹0=3@A=2>30=3=2>A=2>0?D=3=DGA=3D0=3=A" -DATA "=30=3>A=7>F>3=7>F>3=A‹0=3@A=3>F=3‹0=3=2>A=2>0=3AA=3FA=3?0>3?0=3=A>30" -DATA "=3=A=3?F>3=C>F=7=3=A‹0=3@A=2>F>3‰0=3=2?A=2=0=3DA>3=2CA=3>0=3=A=3>0=3>A" -DATA "=3=0>3‹0=3>A=3=C?F>3?F=7=AŠ0=3AA=2?F=3ˆ0=2=3@A=3=0=DDA=2>F=3=2AA=3?0=3" -DATA "=A?3>A=2=3=A=3‹0=2>A=3?C=F=C=A=3=7=3>A=3‰0=3BA=3>C=A=3‡0=3@A=2=3=0=DEA" -DATA "=3>F>3@A=3?0=3>A=3=2>A=2=3=A=3Š0=3@A=2=7>3DA=3‡0=3AA=3>A>2>A>3…0=3BA=D" -DATA "GA=2?C=3?A=3@0=3AA=2=3=A=3Š0=3MA=3…0=3AA=3EA?3ƒ0=3=2@A=DHA=2>3=2?A=3@0" -DATA "=3DA=3Š0=2NA=3ƒ0=3CA>3FA=3ƒ0=3=2>A=2=DNA=F=3@0=3CA>3‰0=3PA=30=3FAD3?A" -DATA "=3ƒ0=3=2=A=3=2@A?DGA=F=3@0=3?A@3‹0=3>A=3=2LA=3€0=3OA@3„0=3>2AA?DGA=F=3" -DATA "@0=3>A>30=3>A>3=2AA>2?3@2=A=2=3~0>3SA=3ƒ0=3=DQA=F=3?0>3=A>30=3@A=2?A" -DATA "=2=3=2EA=2>A=3|0=3UA=30=3=DSAB3>A=30=3BA>3=2KA=3{0=3GAIF=C=3€0=3@D=2" -DATA "AA=2>DHA=2?DAA=3‹0=3=2GAIF=3z0>3FAKF=C=30=3BD=2?AADGA=2?D=A>D>A=3Š0=3" -DATA "EAMF=3y0=3=DEAMF=C=3~0=3DD>A=2ADCA>D?A?2=A>D=A=3=2‡0>3=2DANF=3x0>3>D=A" -DATA "=3BAMF=C=3~0=3ED>A=2ADCA=2=D=2EA=2†0>3EAPF=3w0=3AA=3?A=3NF=C>3~0=3=ACD" -DATA "=2?A=2?D?A?DFA?3=2†0=3GAOF=3w0=3BA=3?A=3NF=C=3~0=3>A=2BDGA>2EA>3=2ˆ0=3" -DATA "FAQF=3v0=3CA=3?A>3LF=C=30=3?A=2?D=2AA=2>D>2FA?3Š0=3@A>2@3QF=3v0=3DA=3" -DATA "=2@A=2>3HF=C>30=3HA=2BD=2EA=F=3Š0=3BA>3SF?3s0=3FA>3=2AA=2>3EF>30=3HA" -DATA "=2DDEA=F=3Œ0=3BA>3PF=3=2>A>3q0=3=2EA>C>3=2BA=2>3AF=C=3€0=3AA=2>D=2?A=2" -DATA "DDDA>F=3Ž0=3BA=3=F=CMF=3=2@A>3n0=3>DDA?C?F=3=2CA>3>F=C=30=3@A=2AD=2>A" -DATA "DDDA>F=30=3AA=3=CLF=C>3BA>3l0=3>DCAAC?F>3?A=2>3=A=3>F=C=30=3@ACD>A=2" -DATA "BD=2CA>F=3‹0D3@A=3>CJF>C=3=0=3=A=3AA=3j0=3>D=2AADC?F=3@A=3=F>3=F=C=30" -DATA "=3AACD@A=2>D=2EA=F=C=3‰0>3@D=2>A=3=A=3=A=3=A=3@CEF@C=3=0=3=A=0=3=A>3=A" -DATA "=3j0=3>D=2?A=1FC>F=3=A>3>A=2?F=C=30=3=A?2=A=2AD=2LA=F=C=3ˆ0>3=2AD=2>A" -DATA "=3=A=3=A>3=A=3LC=3=0=3=A=0=3=A>3=A=3j0=3=D=2?A>1GC=F=3=A?3=A=3>F=C=3‚0" -DATA "=3=A@2>A=2>D=2LA?C=3‡0=3?A=2?D=2?A=3=A=3=A=3=C>3LC=3=D=3=A>3=A=3=0=3j0" -DATA "=3>2?A?1HC=3=A=3>F>3=F>C=3€0>3>A@2BA=2@D=2FA>C=3‰0GA=3=A=3=A=3OC=3?D>A" -DATA "=3m0=3@AA1GC=2=3=2CC@3>Dy0?3@A>2BA=2BD=2DA?C=3‰0=3AA?3>A>3=C=3PC=3=D=2" -DATA "@Am0=3?AB1HC=2DC=3>2?A?Dt0>3>D=2HADDCA>1=C=3‹0=3CA?3=1QC=3=2AA=3m0=3?A" -DATA "C1OC=1=3=2CA=3q0>3?D=2IA=2BD=2BA?1=C=3Œ0>3=2BA=3>1NC>1=3=2?A=3o0=3?AD1" -DATA "MC=1@3CA=3o0=3=A?2LA=2?D=2CA@1=30?3=2?A=3@1IC@1=3=2>A>3n0=3AAF1JC>1=3" -DATA "?0=3=A=3=A>3>Ao0=3[A@1>30>3?A?3>A=3A1CCD1=2>A=3n0>3>D@AJ1EC>1=3@0=3>A" -DATA "=3=A=3=0=An0=2[A@1>30=3>A?3AA=3O1=3=A>3@Aj0=3@DAAT1=3A0=3=A=3=A=3=0=A" -DATA "n0=3CAF3HA@1>3Ž0=3=A>3?A>3=2?A>3L1=3=2?AB3h0=3@DBAR1=C=3A0=3=A=3=A=3=0" -DATA "=3n0=3@A?3F0>3FA@3‘0=3?A>3@A>3>0>3H1>3>2EA=3f0=3=2?D=2DAP1=3B0=3=A=3=A" -DATA "=3p0=3?A=3K0?3DA=3”0?3@A>3B0>3D1>3>0?3AA?3g0=3=A?2GAM1>3C0=3=0=3q0=3?A" -DATA "=3N0=3CA=3”0=3?A?3F0D3C0@3>A=3h0=3BA=2B3=2@AH1>2=3|0=3?A=3O0=3AA=2=D=3" -DATA "”0?3\0>3j0=3AA=3C0@3=2CA=2?3>2>D=3o0C3@0=3?A=3P0=3@A=2=D=3!h0=3@A=3H0C3" -DATA "C2=A>D=3k0>3CA=3?0=3>A=3R0=3?A=2=D=3!h0=3@A=2N0?3@2@A=D=3i0=3>A>2@3>A=3" -DATA ">0=3>A=3S0=3>A=2=D=3!i0=3@A=3P0A3AA=3h0=2>3B0=3?A>3=A=3T0=3?A=D=3!j0=3" -DATA "?A=3T0>3=2@A=3m0=2>3CA=3T0=3@A=3!k0=3>A=2R0>3=2BA=2l0=3FA=3S0=3=2?A=2=3" -DATA "!l0=3>A=3M0?3=2AA=2?3l0=3?A>3>2?A=3S0=3=2?A=2=3!i0@3=2>A=2I0?3=2AA=2?3" -DATA "p0=3=A>3=0=2@A=3S0=3=2?A=2=3!e0@3=2DA=3G0=3BA>2=3t0=2=3?0=3=A?3S0=3=2?A" -DATA "=3!d0>3=2IA=3H0>3?A=2A3w0=2>3T0=3=2?A=3!d0=3@A=3=2DA>3K0>3CA=2?3s0=2=3" -DATA "T0=3=2@A=3!e0?3=2@A=2?A>3O0=3?A=2>3@A=3r0=3U0=3BA=2=3!d0=3?A?3>A>3R0>3" -DATA "@A=2?30=3DA=3!d0?3=2>A>3V0?3>A=30=3AA>2>A=3!e0=3=A>3[0>30=3=A=2>3>A" -DATA ">3=2=A=3#121#0=3=A=3>0=3>A=3=0=3=A=3#120#0=3=A=3?0=3=A=3>0=2=3#11F#0=3" -DATA "=2=3@0=3=2#124#0=3=2A0=3=2#CA5#0@3#124#0A3@A=3#122#0=3@A=3>A?3!…0@30=3" -DATA "?A>3=7=A=3>F=3!€0A3@A=30?A=7?F?3>F!0=3@A=3>A?3Ž0=3>A=7?FA3=C=3!}0=3?A" -DATA "=D=3=A>3>F=30>3>A=7>F@3>A@30?3>0?3á0?A=7?F=7>3>FŒ0>3?A=7=C=F?3CA?3Š0" -DATA ">3?A>3?A=3ž0=3>A=3?FA3=C=3‰0?3@A=7?C=7HA=3†0>3=2=A@3@A=30>3>A=7>F@3=A" -DATA "B3…0=3=D=2BA?7IA=3…0=3=2=D=2=A=3>F=3>A>F=3œ0>3?A=7=C=F=7>3CA@3€0>3=D=2" -DATA "OA@3…0=3@2=3@F=3=A>F=3›0>3@A=D?C=3HA=3}0>3>D=2KAA3@F=3v0B3C0=3@2=A=3?F" -DATA ">3=A?3—0?3>DBA=3=7=3IA=3|0=3?D=2?A>2EA>3DF=3u0>3>D>A>DC3=A@2>A>C?3=A?3" -DATA "•0?3?DOA@3|0=3?D=2?A=2>A=2=3AA>3FF=3s0>3?D@ABDEA=3=C?3>AA3‘0>3@D?A>3FA" -DATA "B3?F=3z0=3=A?2DAB3GF=3s0=3@DBA@DGA?3CA@3Œ0>3=A>2=D=2?A?3CA?3=ACF=3z0=3" -DATA "CA=3?AOF=3r0=3BA?DZA>3Š0>3DA>3=A>3@A?3FF=3y0=3=A=DBA=3=APF=3o0?3=D?3?A" -DATA "AD[A=3‰0=3=A>3FAB3GF=3z0=3=A=DBA=3QF=3D0A3`0>3=A@D>A=3?A?DGA=2=3JA=2A3" -DATA "ˆ0=3>A=3AA=3?AOF=3y0=D?A=3BA=3PF=3B0>3BA=3]0=D?A?DOA@2=3FA=2?3=A>F=Aˆ0" -DATA "=3=D=A=3@A=3>AQF=3y0=3=D=A?C=3BA=3NF=3=2B3@AA3\0=3ZA>2E3=2=A@FŠ0=3=D=A" -DATA "=3?A>3SF=3x0=3?A@C=3BA>3JF>C=3?2GA=3\0=3cACFŒ0>D=A=3>A>3TF=3x0=3>ABC=3" -DATA "CA>3FF?C=3?2IA=3Y0=3?DGA=3QAGF=3‹0=3=D=2=A=3>A=3TF=3x0=3?A=1BC?3CAD3@C" -DATA "=3>2>AA3>A?3>A=3X0ADFA=3GA?2AAIF=3„0?3@0=3>2=A>3>A=3RF>C=3v0>3=D?A=1EC" -DATA ">3HA>3>CB3A0=3>A=3=0?3V0CDEA=3GAA2>AHF>C=3„0=3=A>D=3?0=3=2?A=3>A=3=COF" -DATA "?C=3v0=3>D=2?A=1GC@3FA>3H0=3>AX0DDDA>3FA=3=A@2=3=AGF?C=3„0=3?A=3=D=3>0" -DATA "=3@A=3>A=3?CKF@C=1=3u0=3>D>2>A?1JCA3@A=3>A=3G0=3>AV0=3KA>3HA=3>A?2=3FF" -DATA "?C>3…0=3>2>A=3=D=3=0=3@A=3>A=3BCCFDC=1=3u0=3?D=2?A@1NC=3@A=3>A=3G0>3T0" -DATA "=3JA@3=2=3AFBA=3?A>2=3FF>C=3‡0=3>D=2>A=3=A>3@A=3>A=3PC=1=3=A=3s0=3>D>2" -DATA "@AA1MC=3@A>3=A`0>3DAB3B2=3FF>C=3@A=3FF=C=3ˆ0=3?D=2=A=3?A=3?A=3>A=3OC>1" -DATA "=3=A=3r0=3EAC1KC=3>A=3?A=3^0=3DA?3?AD2?3=CEF=C=3@A=3BF@C?3ˆ0=3>D=2>A=3" -DATA "?A=3>A=3>A=3=1DCA3?C?1=3>A=3r0=3EAE1GC?1=3>A=3=A=3]0>3AA@3EA>2?3?0=3?C" -DATA "CF=C=3AACC=2=3?2B3ƒ0=3>2?A=3>A=3=A=3@A=3=1BC=3AAB3?Ar0=3BAB3F1BC@1>3=A" -DATA ">3[0@3AA>3GA@3C0=3GC=3BA?3E2@AA30=3=2@A=3>A=3AA=3?1@C=3=A>3FA=3r0=3@A" -DATA ">3B0=3N1=3=0>3Z0?3CA>3EA@3H0>3FC=3CA?3@2HA?3}0>3@A=3=A=3=A=2=A=2=A=3D1" -DATA "=3GA=3s0=3?A=3E0?3I1>3]0=3EA=3BAA3N0>3EC=3EAF3EA=3~0>3?A>3=A=2=A=2>A=3" -DATA "C1=3?AC3t0=3?A=3K0?3BA>3]0>3@A=3?A>3@A?3U0>3DC>3EA>3B0=3>A@3=A=3=A=30" -DATA "=3?A=3=A=2=A=3>A=3B1=3?A=3>2?3v0=3?AN0=3AA=3^0=3?A=3=A=3>A>3AA=3[0H3CA" -DATA ">3B0=3>A>3=0=3=A>3y0B3AA=3=2=A>3=A=3B1=3>A=3=2=A>3x0=3>A=3M0=3BA=3^0=3" -DATA ">A=3=A=3>A>3?A=3>A=3g0A3@A=3B0=3>A>3>A>3w0>3GA?3=0@3A1=3=A=3=2>A=3@A>3" -DATA "s0?AM0=3BA=3`0=3=0B3?A=3>A=3l0>3=A=3>A=3B0=3>A@3w0=3?A>3BA>3D0E3=A=3>A" -DATA ">3?A=3q0?A=3L0=3>A=2?3i0=3>A=3>A=3n0=3=A>3=A=3C0=3>A=3z0?3BA=3P0>3@A?3" -DATA "i0E3>A=3L0=3>A=2n0A3o0=3=A=3=0>3D0>3{0=3?A=3?A=3Q0=3?A=3?A=3g0>3FA=2M0" -DATA "=3@A>2>3¡0=3=A=3‡0=3>A>3>A>3S0>3>A>3>A=3e0=3?A>3BA=3O0=3?A=3?A=3¡0=3‰0" -DATA ">3?A=3W0=3?A>3g0?3BA=3Q0=3@A?3!r0?3Y0?3i0=3?A=3?A=3R0=3>A=3?A=3#105#0=3" -DATA ">A>3>A>3T0=3>A>3>A=3#105#0>3?A=3W0=3?A>3#108#0?3Y0?3#112C#0GD]0G2=6=D@6" -DATA "A2C6[2=6=2=D@6>2@3=6@3A2=DU2=6=D@6A2C6P2¦0ADE2?D[0G2=6=2=D@6>2@3=6@3A2" -DATA "=DV2C6=3?A?3?A=3Z2=6=2=D@6@2=6=DA6A2=DJ2¤0?DC2=6C2?DY0H2C6=3?A=2=3=2?A" -DATA "=3]2@6=3AA=6?3>A=3>2=DW2C6@2B6P2¢0>DG2=6D2?DW0J2@6=3>A=2>3=6>3=2>A=3>2" -DATA "=DX2A6=3>A>3=2=3=2>A=3=A=3\2B6=2>6=DB6?2=DK2á0>DH2=DG2CDQ0I2A6=3=A=3?F" -DATA "=3?F=3=A=3\2=6=2=D=3>A=3?A=3@A=3=A=3A2@6Q2M6O2ž0>DK2=6L2?DO0J2=6=2=D=3" -DATA "=A=2>F=3=F=3=F=3>F=2=A=3A2G6K2?6=3=A=D@A=3@A=D=A=3>2J6K2=6=2=DI6=DB2G6" -DATA "=20=DN2=6M2@DL0J2?6=3=A=2=F=3=7?3=7=3=F=2=A=3>2K6J2?6=3=A=D?A?3?A=D=A" -DATA "=3M6J2?6=2A6=DC6?2K6œ0=D?2>6I2=D>6O2>DK0J2?6=3=A=3=FC3=F=3=A=3E6=D>6O2" -DATA ">6=3?A?3?A?3?A=3B6=D=2=D>6O2W6=D>6A2š0>D@2=D>6I2>6I2=DB2?DI0J2>6=3>A=3" -DATA "=C?3=A?3=C=3>A=3B6=DS2>6=3>A=3>2BA=2=3>A=3?6=D>6T2@6=2E6=DF6=DE2™0>DC2" -DATA ">6H2?6G2=DE2>DH0J2>6=3>A=3>C=3?A=3>C=3>A=3?6=D>6?2@6M2=6=3>A=2GA=2>A=3" -DATA "=6=D@2=6=2@6M2A6=2L6=D>6?2@6?2˜0=DF2?6F2@6Q2=DH0?6=D?6C2=6=3@A>2AA>2@A" -DATA "=3=6=D@2=6D2?6=D?6=2?6>2>6=3MA=3>6=2=6=2=6E2?6=D?6C2B6=D?6=D>6=DC6=D@2" -DATA "=6D2—0>DF2B6C2A6C2=DH2>DG0>6?2>6=D?6>2>6=3MA=3>6=2=6=2=6E2>6?2>6=D>2=6" -DATA "=D>6=3DA?2DA=3?6G2>6?2>6=D?6>2C6=2K6=2=6=2=6E2–0>DH2=6=D@6A2C6P2>DF0?2" -DATA "@6?2=6=D>6=3OA=3?6@2=6E2@6=2>6>2=6=3DA=2>3>2DA=3=6A2=6E2@6?2=6=DE6=2=D" -DATA "E6=D=6=2?6@2=6B2–0=DI2=6=2=D@6@2=6=DA6A2=DJ2?DE0B2@6>2=6=3QA=3=6N2B6=3" -DATA "EA@3=DEA=3N2@6>2H6=DD6>2>6H2•0>DJ2C6@2B6Q2>DE0C2A6=3?A=3?A?2>3?2@A=3?A" -DATA "=3O2A6=3DA=1A3=1DA=3O2A6=2=6=2=DB6=2D6=D?6J2”0>DM2B6=2>6=DB6?2=DM2=DE0" -DATA "?2=6@2@6=3>A=3=A>3=2DA=2=3?A=3>A=3K2=6A2>6=3DA>1A3>1DA=3J2=6@2A6>2E6=D" -DATA "B6=2>6K2”0=DM2M6Q2=DE0E2>6=3>A>3=2IA=2@3>A=3Q2=3DA=F>C=1?3=1>C=FDA=3O2" -DATA "@6=2=6>2B6=2A6=2=6=2>6K2“0>DN2=6=2=DI6=DB2G6@2=DD0F2=3?A=3@AGF@A=3?A=3" -DATA "O2=3AAAF=7=1AC=1=7AFAA=3=6N2C6=2B6=2@6=2@6K2“0=DO2?6=2A6=DC6?2K6>2?DC0" -DATA "E2=3BAMFBA=3=6M2=3?A=1CF=3A1=3BF=C=1?A=3=6P2B6=2A6=2=D=2=6=2H6D2“0=DO2" -DATA "W6=D>6D2>DC0E2=3@AQF@A=3=6=D>6I2?D=A=C=1=CDF?7CF>C=1=C=A@D>6N2B6>2H6=D" -DATA "?6=D?6=D>6A2“0=DO2@6=2E6=DF6=DI2=DC0D2?D=ACCGFCC=A?DA6G2?D=A=C>1>CKF>C" -DATA ">1=C=A?DA6L2C6=2>6=2=D=2P6?2“0=DO2A6=2L6=D>6?2@6C2>DB0D2?D=AUC=A?D?6=D" -DATA "@6D2=3?A=C?1@CEF@C?1=C?A=3?6=D@6D2I6=2=6=2A6=DJ6=D@6“0=D?2=D@6=D?6C2B6" -DATA "=D?6=D>6=DC6=D@2=6I2=DB0C2=6=3?AUC?A=3C6=DC2=6=3?A=C?1@CEF@C?1=C?A=3C6" -DATA "=DC2M6=DS6=D’0=DA2?6?2>6=D?6>2C6=2K6=2=6=2=6J2>DA0B2?6=3>A=1SC>1=A=3B2" -DATA "?6B2?6=3>A>C@1HCA1>C>A=3B2?6B2E6=DB6=2?6=DC6H2?6’0=D>2>6A2@6?2=6=DE6=2" -DATA "=DE6=D=6=2?6@2=6G2>DA0@2?D?3>A>1QC>1>A?3?D?2=6@2?D?3>A>CC1BCC1?C>A?3?D" -DATA "?2=6A2B6=DB2=6=D>6=2=6=DC6L2=6‘0>D?6E2@6>2H6=DD6>2>6N2=DA0>2CD=3>A@1MC" -DATA "?1?A=3CD@2CD=3?A>CN1?C?A=3CDB2=6=D>6G2?6=2D6N2‘0=D=6=2=6G2A6=2=6=2=DB6" -DATA "=2D6=D?6P2=DA0?3=A?D?A=3>DB1GCA1=A>D=3?A?D=AB3=A?D?A=3>D=A?CK1?C=A>D=3" -DATA "?A?D=A?3?2?6I2?6=2=DA6P2‘0=D>6D2=6@2A6>2E6=DB6=2>6Q2=DA0=3FA=3=D=AP1>A" -DATA "=D=3FA>3FA=3=D>A@CG1@C>A=D=3FA=3>2=6=DL2E6P2‘0=D=6K2@6=2=6>2B6=2A6=2=6" -DATA "=2>6Q2B0?3EA>3=AO1>A=3EAB3EA>3?AACA1AC=3?A=3EA?3=2=6N2=6=2=6=D@6Q2‘0=D" -DATA "=6L2C6=2B6=2@6=2@6Q2=DA0=2=DA3AA=3=A=3>AL1?A=3AAA3?2=DA3AA=3=A=3>A=3IC" -DATA "=3@A=3AAA3?2=DN2=6>2@6R2‘0=D=6N2B6=2A6=2=D=2=6=2H6J2=DA0C2A3=A?3>A=3H1" -DATA ">A?3=AA3J2A3=A?3>A=3GC=3>A?3=AA3U2=D>6>2=D>6>2B6=D>6H2‘0=DP2B6>2H6=D?6" -DATA "=D?6=D>6G2=DA0A2>3EA=3>AG3>A=3EA>3F2>3EA=3>AG3>A=3EA>3L2=D>6=DJ6=DD6=2" -DATA "=DE2‘0=DP2C6=2>6=2=D=2P6F2=D@0@2=3?A>3CA=3>A>3A6=3?A=3CA>3?A=3D2=3?A>3" -DATA "CA=3>A>3A6=3?A=3CA>3?A=3K2>6D2=DA6>2>6B2>6F2‘0=D=6J2I6=2=6=2A6=DJ6=D@6" -DATA "C2=D@0A2?3BA@3@A=3=D>6=3@A@3BA?3F2?3BA@3@A=3=D>6=3@A@3BA?3K2>6G2=D?6=2" -DATA ">6=2E6E2‘0=D=6I2M6=DS6=D>6A2=D@0A2=3?A=3?A=3>2=3BA?3BA=3>2=3?A=3?A=3F2" -DATA "=3?A=3?A=3>2=3BA?3BA=3>2=3?A=3?A=3J2>6I2>6=DA6A2?6E2‘0=D=6H2E6=DB6=2?6" -DATA "=DC6H2?6=2=D=6@2=D@0@2=3>A>3>A>3>2=3>A>3@A=3@A>3>A=3>2>3>A>3>A=3?2=6@2" -DATA "=3>A>3>A>3>2=3>A>3@A=3@A>3>A=3>2>3>A>3>A=3?2=6C2=D>6K2A6D2>6=2=DB2=6‘0" -DATA "=DH2B6=DB2=6=D>6=2=6=DC6L2@6@2=D@0A2>3?A=3@2?3=2=3=A>3=A=3=A>3=A=3=2?3" -DATA "@2=3?A>3@2=6A2>3?A=3@2?3=2=3=A>3=A=3=A>3=A=3=2?3@2=3?A>3@2=6D2>6J2=D?6" -DATA "G2=6D2=6‘0>DF2=6=D>6G2?6=2D6O2?6?2=D@0C2?3E2>3>2=3=2=3>6>3E2?3A2>6C2?3" -DATA "E2>3>2=3=2=3>6>3E2?3A2>6D2=6L2?6G2=6C2>6’0=DE2?6I2?6=2=DA6R2=6=D?2=D!©0" -DATA "=DD2=6=DL2E6S2=6?2=D!©0=DC2=6N2=6=2=6=D@6U2=D>2@0Š8!X0>DB2=DN2=6>2@6X2" -DATA "=D@0=8>4B8C4C8>4?8A4?8D4>8@4F8A4C8?4?8!Y0=DS2=D>6>2=D>6>2B6=D>6K2=6>2=D" -DATA "@0=8>4B8C4C8>4?8B4>8E4=8B4B8D4A8B4=8!Y0=D@2=DG2=D>6=DJ6=DD6=2=DH2=6=2=D" -DATA "A0=8>4B8>4G8?4?8>4>8?4=8>4D8>4>8?4@8?4@8?4?8?4>8>4=8!Y0=DL2>6D2=DA6>2>6" -DATA "B2>6H2>6=2=DA0=8>4B8>4F8>4=8>4>8>4?8>4=8>4D8>4?8?4?8>4B8>4>8?4B8!Z0=DJ2" -DATA ">6G2=D?6=2>6=2E6G2>6=2=DA0=8>4B8>4F8>4=8>4>8>4>8?4=8>4D8>4@8>4>8?4B8>4" -DATA ">8>4C8!Z0=D?2=DE2>6I2>6=DA6A2?6E2@6=DB0=8>4B8C4@8>4>8>4>8B4>8D4>8>4@8>4" -DATA ">8>4C8>4=8>4=8C4!Z0>DF2=D>6K2A6D2>6=2=DB2A6=DB0=8>4B8C4?8C4>8A4?8D4>8>4" -DATA "?8>4?8>4C8>4=8>4=8C4![0=DG2>6J2=D?6G2=6D2A6C0=8>4B8>4D8C4>8>4B8>4D8B4@8" -DATA ">4B8?4=8>4B8>4!\0=D>6D2=6L2?6G2=6C2A6=DC0=8>4B8>4C8>4@8?4=8>4B8>4D8B4@8" -DATA ">4B8>4>8>4A8>4=8!\0=D?6S2=D>6L2=D?2@6=DD0=8>4B8>4C8>4A8>4=8>4B8>4D8>4>8" -DATA "?4@8>4@8?4>8>4@8?4=8!]0=D?6R2>6Q2?6>DD0=8C4=8C4=8>4B8>4=8>4B8>4D8>4@8?4" -DATA ">8D4@8C4>8!]0=D@6?2=DM2=D=6Q2>6=2F0=8C4>8B4=8>4B8>4=8>4B8>4D8>4A8>4@8@4" -DATA "C8@4@8!^0=D@6P2=6=DN2=D>2>6=D!¶0=DA6O2>6Q2>6!¸0>D?6=DO2=6=DL2=D=2>6=D!º0" -DATA ">D?6O2=DL2@6=D#100#0>D>6=DJ2>6=D=6>D=2=6E2C6=D#101#0@D=6I2?6ADK6>D#104#0" -DATA "AD?6B2@6>D@0>DH6=D#109#0ADE6?DB0GD#10E#0HD#6EF#0>EH0>E=0>EF0>E=0>EF0>E" -DATA "G0?EG0>EG0>EI0>EG0>E‘0>EF0@EG0>EG0@EF0@EH0>EE0BEE0@E>0>EH0>E=0>EF0>E=0" -DATA ">EE0@EE0>E=0>E=0>EB0@EF0>EH0>EI0>EG0@E0>EE0>E>0>ED0@EF0>E>0>ED0>E>0>E" -DATA "F0?EE0>EH0>E>0>E=0>EH0>E=0>EE0CEC0BEE0?E=0>EC0@EF0>EH0>EI0>EH0>E‚0>EE0" -DATA ">E>0>EF0>EJ0>EH0>EF0?EE0>EH0>EA0>EW0>E=0>ED0@EJ0>EE0>EU0>EI0>EG0@EH0>E" -DATA "r0>EF0>E>0>EF0>EJ0>EH0>EE0@EE0AEE0>EA0>EW0>E=0>EE0?EI0>EF0>EU0>EI0>EW0" -DATA ">Er0>EF0>E>0>EF0>EI0>EG0?EF0@EE0>E>0>ED0AE>0>EW0>E=0>EF0?EG0>EF0BER0>E" -DATA "I0>EU0BER0?EV0>EG0>E>0>EF0>EH0>EJ0>ED0>E=0>EI0>ED0>E>0>E=0>EV0CEE0@EE0" -DATA ">E=0?EC0>E=0>ES0>EI0>EW0>Eq0>EG0>E>0>EF0>EG0>EK0>ED0BEH0>ED0>E>0>EZ0>E" -DATA "=0>ED0BED0>E=0>E=0>EB0>E=0>ES0>EI0>EW0>Ep0>EH0>E>0>EF0>EF0>EH0>E>0>EG0" -DATA ">EE0>E>0>ED0>E>0>E=0>EW0>E=0>EE0@EI0?ED0AER0>EI0>Ed0>EU0>EH0>EI0@EG0>E" -DATA "F0BEE0@EH0>EF0@EF0@Ej0>Ep0>EI0>Ec0>E!°0>EG0>E#396#0AE!c0BEE0@EF0@EŒ0@E" -DATA "F0?E?0?EC0>EE0AEF0AED0AEE0BED0BEE0AED0>E?0>EC0>EK0>EE0>E>0>ED0>EE0>ED0" -DATA ">E>0>ED0>E>0>EŠ0>E>0>EE0>EA0>EC0>EE0>E>0>ED0>E?0>EC0>E>0>ED0>EH0>EH0>E" -DATA "?0>EC0>E?0>EC0>EK0>EE0>E=0>EE0>ED0>EE0>E>0>ED0>E>0>Ec0>ES0>EL0>ED0>E>0" -DATA "@E=0>EA0@ED0>E>0>ED0>EH0>E?0>EC0>EH0>EH0>EH0>E?0>EC0>EK0>EE0@EF0>ED0>E" -DATA "E0>E>0>ED0>E>0>ED0>EI0>EI0>EU0>EK0>ED0>E=0>E=0>E=0>EA0@ED0>E>0>ED0>EH0" -DATA ">E?0>EC0>EH0>EH0>EH0>E?0>EC0>EK0>EE0?EG0>EC0>EG0@EF0AEa0>EG0BEF0>EI0>E" -DATA "E0>E=0>E=0>E=0>E@0>E>0>EC0AEE0>EH0>E?0>EC0AEE0AEE0>E=0@EC0CEC0>EK0>EE0" -DATA "?EG0>EC0>EF0>E>0>EH0>E`0>EY0>EG0>EF0>E>0CE@0>E>0>EC0>E>0>ED0>EH0>E?0>E" -DATA "C0>EH0>EH0>E?0>EC0>E?0>EC0>EK0>EE0@EF0>EB0>EG0>E>0>EH0>Ea0>EG0BEF0>EH0" -DATA ">EG0>EH0BEC0>E>0>ED0>EH0>E?0>EC0>EH0>EH0>E?0>EC0>E?0>EC0>EH0>E=0>EE0>E" -DATA "=0>EE0>EB0>EG0>E>0>ED0>E>0>Eb0>EU0>EV0?EF0>E@0>EB0>E>0>ED0>E?0>EC0>E>0" -DATA ">ED0>EH0>EH0>E>0?EC0>E?0>EC0>EH0>E=0>EE0>E>0>ED0>EB0>EH0@EF0@EE0>EI0>E" -DATA "J0>ES0>EJ0>EJ0@EB0>E@0>EB0AEF0AED0AEE0BED0>EI0BEC0>E?0>EC0>EI0?EF0>E?0" -DATA ">EC0BEu0>E#56A#0>Ew0>E@0>EB0>E?0>ED0AED0BEE0AED0BEE0@EE0BED0>E?0>EC0>E" -DATA "@0>EB0>ED0>E>0>E@0>EB0>E@0>EB0DEB0?EG0>EH0?EH0@ES0>EV0>EA0>E@0>EB0?E>0" -DATA ">EC0>E?0>EC0>E?0>EC0>E?0>EC0>E?0>EC0>E>0>EF0>EF0>E?0>EC0>E@0>EB0>ED0>E" -DATA ">0>E@0>EB0>E@0>EH0>EB0>EH0>EI0>EG0>E>0>ES0>EU0>EA0?E>0?EB0?E>0>EC0>E?0" -DATA ">EC0>E?0>EC0>E?0>EC0>E?0>EC0>EJ0>EF0>E?0>ED0>E>0>ED0>E>0>E>0>E@0>E>0>E" -DATA "D0>E>0>EH0>EC0>EH0>EI0>E0>EA0?E>0?EB0@E=0>EC0>E?0>EC0>E?0>EC0>E?0>EC0" -DATA ">E?0>EC0>EJ0>EF0>E?0>ED0>E>0>ED0>E>0>E>0>EA0@EF0@EH0>ED0>EI0>EH0>Er0@E" -DATA "E0AE>0DEB0@E=0>EC0>E?0>EC0BED0>E?0>EC0BEE0@EG0>EF0>E?0>ED0>E>0>ED0>E>0" -DATA ">E>0>EB0>EH0>EH0>EE0>EI0>EH0>Eu0>ED0>E>0>E=0DEB0>E=0@EC0>E?0>EC0>EH0>E" -DATA "?0>EC0>E?0>EG0>EF0>EF0>E?0>EE0@EF0DEB0@EG0>EG0>EF0>EJ0>EG0>Er0AED0>E>0" -DATA ">E=0>E=0>E=0>EB0>E>0?EC0>E?0>EC0>EH0>E=0@EC0>E?0>EG0>EF0>EF0>E?0>EE0@E" -DATA "F0DEA0>E>0>EF0>EF0>EG0>EJ0>EG0>Eq0>E>0>ED0>E>0>E=0>E=0>E=0>EB0>E>0?EC0" -DATA ">E?0>EC0>EH0>E>0?EC0>E?0>EC0>E>0>EF0>EF0>E?0>EF0>EH0>E>0>EA0>E@0>EE0>E" -DATA "E0>EH0>EK0>EF0>Eq0>E>0>ED0>E>0>E=0>E@0>EB0>E?0>ED0AED0>EI0AED0>E?0>ED0" -DATA "@EG0>EG0AEG0>EH0>E>0>EA0>E@0>EE0>EE0DEB0>EK0>EF0>Er0AED0AE{0>E!A0>EW0>E" -DATA "#10E#0?EU0?EU0CE#3C3#0>ES0>EU0>EH0>EH0>EH0>EH0>E!{0>ER0>EV0>Ed0>EH0>Eª0" -DATA ">E‹0>ER0>EV0>Ed0>EH0>Eª0>Ez0@EF0AEE0@EE0?EH0AED0AEE0>EH0>EH0>E=0>EE0>E" -DATA "H0CEC0AEF0@EE0AEF0AED0?EH0?EF0?EG0>E>0>ED0>E>0>ED0>E=0>E=0>EB0>E=0>E>0" -DATA ">E>0>ED0>E>0>ED0>E>0>ED0>EH0>E>0>ED0?E=0>ED0>EH0>EH0@EF0>EH0>E=0>E=0>E" -DATA "B0?E=0>ED0>E>0>ED0>E>0>ED0>E>0>ED0>EH0>E=0>EE0>EH0>E>0>ED0>E>0>ED0>E=0" -DATA ">E=0>EB0>E=0>E>0>EH0>E>0>ED0BED0>EH0>E>0>ED0>E>0>ED0>EH0>EH0?EG0>EH0>E" -DATA "=0>E=0>EB0>E>0>ED0>E>0>ED0>E>0>ED0>E>0>ED0>EI0>EG0>EH0>E>0>EE0@EE0DEC0" -DATA "?E?0>EH0>E>0>ED0>EH0>EH0>E>0>ED0>E>0>ED0>EH0>EH0@EF0>EH0>E=0>E=0>EB0>E" -DATA ">0>ED0>E>0>ED0>E>0>ED0>E>0>ED0>EJ0>EF0>EH0>E>0>EE0@EE0DEC0?E?0>E>0>ED0" -DATA ">E>0>ED0>E>0>ED0>EH0>E>0>ED0>E>0>ED0>EH0>EH0>E=0>EE0>EH0>E=0>E=0>EB0>E" -DATA ">0>ED0>E>0>ED0>E>0>ED0>E>0>ED0>EH0>E=0>EE0>EH0>E=0?EF0>EG0>E>0>EC0>E=0" -DATA ">E?0@EF0AEE0@EE0>EI0AED0>E>0>ED0>EH0>EH0>E>0>ED0>EH0>E=0>E=0>EB0>E>0>E" -DATA "E0@EE0AEF0AED0>EI0?EG0>EH0AEF0>EG0>E>0>EC0>E=0>Ez0>E`0>EŽ0>EL0>E!W0AEa0" -DATA ">EŽ0>EL0>E#2DB#0>ET0>E#110#0>EG0>EI0>EU0=BI0=B>0=BG0=B>0=BG0=BH0>BH0=B" -DATA "H0=BJ0=BH0=B’0=BG0?B\0>EG0>EI0>EH0?E=0=E=BC0=BI0=B>0=BG0=B>0=BF0?BF0=B" -DATA ">0=B>0=BC0=B=0=BG0=BI0=BJ0=BH0=B=0=B‚0=BF0=B?0=B[0>EG0>EI0>EG0>E=0?ED0" -DATA "=BI0=B>0=BF0BBD0=B=0=B=0=BF0>B>0=BD0=B=0=BG0=BI0=BJ0=BI0=Bƒ0=BF0=B?0=B" -DATA "?0>E=0>ED0AEF0>EG0>EI0>EU0=BX0=B>0=BE0=B=0=BK0=BF0=BV0=BJ0=BH0=B=0=BI0" -DATA "=Bs0=BG0=B?0=B?0>E=0>EG0>EE0>EH0>EJ0>ET0=BX0=B>0=BF0>BJ0=BG0=BV0=BJ0=B" -DATA "X0=Bs0=BG0=B?0=B?0>E=0>EF0>EG0>EG0>EI0>EU0=BX0=B>0=BG0>BH0=BG0=B=0=B=0" -DATA "=BS0=BJ0=BV0ABS0>BW0=BH0=B?0=B?0>E=0>EE0>EH0>EG0>EI0>EU0=BW0BBF0=B=0=B" -DATA "F0=B>0>BD0=B>0=BT0=BJ0=BX0=Br0=BH0=B?0=B@0?EE0>EI0>EG0>EI0>Er0=B>0=BE0" -DATA "=B=0=B=0=BE0=B>0=B>0=BC0=B>0=BT0=BJ0=BX0=Bq0=BI0=B?0=B@0>EF0AEF0>EG0>E" -DATA "I0>EU0=BX0=B>0=BF0?BJ0>BE0>B=0=BS0=BJ0=Be0=BV0=BI0=BJ0?BA0>EV0>EF0>EH0" -DATA ">E‚0=Bq0=BJ0=Bd0=Bz0?E!p0=BH0=B#3F1#0=BH0?BG0?BI0=BF0ABF0?BF0ABF0?BG0?B" -DATA "0?BI0@BF0=BF0@BG0@BE0@BF0ABE0AB>0?BG0=B?0=BE0=B?0=BG0>BF0=BI0=B?0=BI0" -DATA "=BE0=B?0=BE0=B?0=B‹0=B?0=BF0>B@0>BD0=BF0=B?0=BE0=B@0=BD0=B?0=BE0=BI0=B" -DATA "D0=BK0=BI0=BG0>BF0=BI0=BL0=BF0=B?0=BE0=B?0=Bd0=BT0=BM0=BF0=BB0=BC0=B=0" -DATA "=BE0=B?0=BE0=BI0=B@0=BD0=BI0=BD0=BK0=BI0=BF0=B=0=BF0@BF0=BL0=BF0=B?0=B" -DATA "E0=B?0=BE0=BJ0=BJ0=BV0=BL0=BE0=B?0?B>0=BB0=B=0=BE0=B?0=BE0=BI0=B@0=BD0" -DATA "=BI0=BD0=BJ0=BH0>BG0=B=0=BF0=B?0=BE0@BH0=BH0?BG0@Bb0=BH0ABG0=BJ0=BF0=B" -DATA ">0=B>0=B>0=BA0=B?0=BD0@BF0=BI0=B@0=BD0@BF0@BA0=BI0=BK0=BE0=B>0=BJ0=BE0" -DATA "=B?0=BG0=BG0=B?0=BI0=Ba0=BZ0=BH0=BG0=B>0=B>0=B>0=BA0=B?0=BD0=B?0=BE0=B" -DATA "I0=B@0=BD0=BI0=BD0=BH0=BL0=BE0ABI0=BE0=B?0=BF0=BH0=B?0=BI0=Bb0=BH0ABG0" -DATA "=BI0=BG0=B?0>B=0?BA0ABD0=B?0=BE0=BI0=B@0=BD0=BI0=BD0=BG0=BI0=B?0=BH0=B" -DATA "F0=B?0=BE0=B?0=BF0=BH0=B?0=BE0=B?0=Bc0=BV0=BW0=BH0=BA0=BC0=B?0=BE0=B@0" -DATA "=BD0=B?0=BE0=BI0=BD0=BG0ABF0?BI0=BG0?BG0?BG0=BI0?BG0?BF0=BJ0=BK0=BT0=B" -DATA "K0=BH0>BG0=BA0=BC0@BG0@BE0@BF0ABE0=B!N0=B„0AB#508#0@BE0=B@0=BD0=BL0=BF0" -DATA "=B?0=BE0=BI0=BA0=BC0=B@0=BE0@BE0ABF0@BE0ABF0?BF0ABE0=B@0=BD0=BA0=BC0=B" -DATA "E0=B?0=BA0=BC0=BA0=BC0CBC0>BH0=BB0=B@0=BD0=B@0=BD0=BL0=BF0=B>0=BF0=BI0" -DATA "=BA0=BC0>B?0=BD0=B@0=BD0=B@0=BD0=B@0=BD0=B@0=BD0=B?0=BG0=BG0=B@0=BD0=B" -DATA "A0=BC0=BE0=B?0=BA0=BC0=BA0=BI0=BC0=BI0=BB0=BI0=B@0=BD0=BL0=BF0=B=0=BG0" -DATA "=BI0>B?0>BC0>B?0=BD0=B@0=BD0=B@0=BD0=B@0=BD0=B@0=BD0=BK0=BG0=B@0=BE0=B" -DATA "?0=BE0=B?0=B?0=BA0=B?0=BE0=B?0=BI0=BD0=BI0=BB0=BI0=B@0=BD0=BL0=BF0>BH0" -DATA "=BI0>B?0>BC0=B=0=B>0=BD0=B@0=BD0=B@0=BD0=B@0=BD0=B@0=BD0=BK0=BG0=B@0=B" -DATA "E0=B?0=BE0=B?0=B?0=BB0=B=0=BG0=B=0=BI0=BE0=BJ0=BA0=B>0?BD0BBD0=BL0=BF0" -DATA ">BH0=BI0=B=0=B=0=B=0=BC0=B=0=B>0=BD0=B@0=BD0ABE0=B@0=BD0ABF0?BH0=BG0=B" -DATA "@0=BE0=B?0=BE0=B?0=B?0=BC0=BI0=BI0=BF0=BJ0=BA0=B@0=BD0=B@0=BD0=BL0=BF0" -DATA "=B=0=BG0=BI0=B=0=B=0=B=0=BC0=B>0=B=0=BD0=B@0=BD0=BI0=B@0=BD0=B@0=BH0=B" -DATA "G0=BG0=B@0=BF0=B=0=BG0=B=0=B=0=B=0=BC0=B=0=BH0=BH0=BG0=BK0=B@0=B@0=BD0" -DATA "=B@0=BD0=BI0=B>0=BF0=B>0=BF0=BI0=B>0=B>0=BC0=B?0>BD0=B@0=BD0=BI0=B>0=B" -DATA "=0=BD0=B@0=BH0=BG0=BG0=B@0=BF0=B=0=BG0=B=0=B=0=B=0=BB0=B?0=BG0=BG0=BH0" -DATA "=BK0=B@0=B?0>BD0=B@0=BD0=BI0=B>0=BF0=B?0=BE0=BI0=B>0=B>0=BC0=B?0>BD0=B" -DATA "@0=BD0=BI0=B?0>BD0=B@0=BD0=B?0=BG0=BG0=B@0=BG0=BI0=B?0=BB0=BA0=BF0=BF0" -DATA "=BI0=BL0=B@0?B=0=BD0=B@0=BD0=BJ0>BG0=B@0=BD0ABE0=BA0=BC0=B@0=BE0@BE0=B" -DATA "J0@BE0=B@0=BE0?BH0=BH0@BH0=BI0=B?0=BB0=BA0=BF0=BF0CBC0=BL0=B!P0=B!B0=B" -DATA "#12C#0>B#27D#0=B#11C#0>BI0=B=0=BT0=BW0=B[0=BT0=BV0=BI0=BI0=BI0=BI0=B—0" -DATA "=BH0=B?0=BT0=BV0=B[0=BS0=BW0=Be0=BI0=B—0=B€0=B[0=BS0=BW0=Be0=BI0=B—0=B" -DATA "s0?BF0@BG0?BG0@BF0?BF0>BI0@BE0=B=0>BF0=BI0=BI0=B>0=BF0=BI0?B=0>BD0=B=0" -DATA ">BG0?BF0@BG0@BE0>BB0=Bv0=BE0=B?0=BE0=B?0=BE0=B?0=BE0=B?0=BE0=BI0=B?0=B" -DATA "E0>B>0=BE0=BI0=BI0=B=0=BG0=BI0=B>0=B>0=BC0>B>0=BE0=B?0=BE0=B?0=BE0=B?0" -DATA "=BE0=BC0=Bs0@BE0=B?0=BE0=BI0=B?0=BE0ABE0=BI0=B?0=BE0=B?0=BE0=BI0=BI0>B" -DATA "H0=BI0=B>0=B>0=BC0=B?0=BE0=B?0=BE0=B?0=BE0=B?0=BE0=BC0=Br0=B?0=BE0=B?0" -DATA "=BE0=BI0=B?0=BE0=BI0=BI0=B?0=BE0=B?0=BE0=BI0=BI0=B=0=BG0=BI0=B>0=B>0=B" -DATA "C0=B?0=BE0=B?0=BE0=B?0=BE0=B?0=BE0=BC0=Br0=B?0=BE0=B?0=BE0=B?0=BE0=B?0" -DATA "=BE0=B?0=BE0=BI0=B?0=BE0=B?0=BE0=BI0=BI0=B>0=BF0=BI0=B>0=B>0=BC0=B?0=B" -DATA "E0=B?0=BE0=B?0=BE0=B?0=BE0=BC0=Bs0@BE0@BG0?BG0@BF0?BF0=BJ0@BE0=B?0=BE0" -DATA "=BI0=BI0=B?0=BE0=BI0=B>0=B>0=BC0=B?0=BF0?BF0@BG0@BE0=BC0=B!J0=Ba0=B0=B" -DATA "M0=BL0>BV0BB¦0@Bb0=B0=BM0=B#2DC#0=BU0=B#111#0=BH0=BJ0=B!i0=Bž0=BH0=BJ0" -DATA "=BI0>B>0=B!W0=Bž0=BH0=BJ0=BH0=B>0>B!K0>BG0>BH0=B?0=BE0=B?0=BE0=B>0=B>0" -DATA "=BC0=B>0=BG0=B>0=BE0@BG0=BH0=BJ0=B![0=B>0=BF0=BI0=B?0=BE0=B?0=BE0=B>0=B" -DATA ">0=BC0=B>0=BG0=B>0=BH0=BF0=BI0=BK0=B![0=BH0=BI0=B?0=BF0=B=0=BF0=B=0=B=0" -DATA "=B=0=BD0>BH0=B>0=BG0=BH0=BH0=BJ0=B!]0=BG0=BI0=B?0=BF0=B=0=BF0=B=0=B=0=B" -DATA "=0=BD0>BH0=B>0=BF0=BI0=BH0=BJ0=B![0=B>0=BF0=BI0=B>0>BG0=BH0=B?0=BD0=B>0" -DATA "=BH0>BF0=BJ0=BH0=BJ0=B!\0>BH0=BI0>B=0=BG0=BH0=B?0=BD0=B>0=BH0=BG0@BG0=B" -DATA "H0=BJ0=B!±0=BW0=BG0=BI0=B!°0>B!“0" - -SUB GetFROG (x, y, FileNAME$) - -Index = 1 -FOR xx = x TO x + 180 STEP 90 - GET (xx, y)-(xx + 89, y + 67), Box(Index) - Index = Index + 3300 -NEXT xx -FOR xx = x TO x + 269 - FOR yy = y TO y + 67 - IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0 - NEXT yy -NEXT xx -Index = 1651 -FOR xx = x TO x + 180 STEP 90 - GET (xx, y)-(xx + 89, y + 67), Box(Index) - PUT (xx, y), Box(Index) - Index = Index + 3300 -NEXT xx -FOR n = 9901 TO 9921 - READ LeapVALUE: Box(n) = LeapVALUE -NEXT n - -ByteCOUNT = 20000 -DEF SEG = VARSEG(Box(1)) -BSAVE FileNAME$, VARPTR(Box(1)), ByteCOUNT -DEF SEG - -END SUB - -SUB PrintSTRING (x, y, Prnt$, Font) - -'Bold face font begins at index 2, regular face at index 4702 -Hop = Font * 4700 -FOR n = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, n, 1) - IF Char$ = " " THEN - x = x + FontBOX(1) - ELSE - Index = (ASC(Char$) - 33) * 50 + 2 + Hop - PUT (x, y), FontBOX(Index) - x = x + FontBOX(Index) - END IF -NEXT n - -END SUB - -SUB Rings (Pad, Colr) - -SELECT CASE Pad - CASE 1: y = 95: x = 318 - CASE 2: y = 175: x = 270 - CASE 3: y = 175: x = 366 - CASE 4: y = 255: x = 222 - CASE 5: y = 255: x = 318 - CASE 6: y = 255: x = 414 - CASE 7: y = 335: x = 174 - CASE 8: y = 335: x = 270 - CASE 9: y = 335: x = 366 - CASE 10: y = 335: x = 462 - CASE 11: y = 415: x = 126 - CASE 12: y = 415: x = 222 - CASE 13: y = 415: x = 318 - CASE 14: y = 415: x = 414 - CASE 15: y = 415: x = 510 -END SELECT - -CIRCLE (x, y), 44, Colr -CIRCLE (x, y), 39, Colr - -END SUB diff --git a/programs/samples/thebob/leapfrog/readme.txt b/programs/samples/thebob/leapfrog/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/leapfrog/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/minigolf/mg.bas b/programs/samples/thebob/minigolf/mg.bas deleted file mode 100644 index e2564fa34..000000000 --- a/programs/samples/thebob/minigolf/mg.bas +++ /dev/null @@ -1,1975 +0,0 @@ -CHDIR ".\programs\samples\thebob\minigolf" - -'***************************************************************************** -' -' M I N I - G O L F -' -' Freeware - Copyright (C) 2004 by Bob Seguin -' -' Email: BOBSEG@sympatico.ca -' -'***************************************************************************** - -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () - -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB FieldMOUSE (x1, y1, x2, y2) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () -DECLARE SUB MouseDRIVER (LB, RB, MX, MY) - -DECLARE SUB Interval (Length!) - -DECLARE SUB SetSCREEN () -DECLARE SUB Digital () -DECLARE SUB PrintSTRING (x, y, Prnt$) -DECLARE SUB SetLEVEL (x, y) -DECLARE SUB SetPALETTE (OnOFF) -DECLARE SUB PutPUTTER (x, y, Angle) -DECLARE SUB ControlBOX () -DECLARE SUB PlayGAME () -DECLARE SUB Traps () -DECLARE SUB Train () -DECLARE SUB Bridge () -DECLARE SUB Roulette (BallSLOT, Advance, OutCOME) -DECLARE SUB Instructions () -DECLARE SUB ScoreCARD () -DECLARE SUB EndGAME () -DECLARE SUB ExitGAME () -DECLARE SUB TopFIVE () - -CONST Degree! = 3.14159 / 180 -OPTION BASE 1 - -DIM SHARED MouseDATA$ -DIM SHARED LB, RB -DIM SHARED MapX!, MapY!, IncX!, IncY! -DIM SHARED BallX, BallY, ShiftX, ShiftY -DIM SHARED Drop, CupX, CupY, Count& -DIM SHARED Strokes, Level, Direction, GamePLAYED -DIM SHARED CharBOX(22) -DIM SHARED CheckCHAR AS STRING - -Level = 1 -CheckCHAR = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz1234567890.,?'!&()-_" + CHR$(34) - -REDIM SHARED PuttBOX(32000) -REDIM SHARED MapBOX(1, 1) -REDIM SHARED FlagBOX(1) -REDIM SHARED SBox(850) -REDIM SHARED Box(1) -REDIM SHARED FontBOX(0 TO 1) -REDIM SHARED LilBOX(1) -REDIM SHARED LilBOX2(1) -REDIM SHARED TraxBOX(36) - -DIM SHARED ScoreBOX(9, 2) -DIM SHARED SliderBOX(1325) -DIM SHARED DigitBOX(400) -DIM SHARED BallBOX(850) -DIM SHARED PutterBOX(300) - -TYPE ScoreTYPE -PlayerNAME AS STRING * 20 -PlayDATE AS STRING * 10 -PlayerSCORE AS INTEGER -PlayerPAR AS INTEGER -PlayerSTATUS AS INTEGER -END TYPE -DIM SHARED ScoreDATA(6) AS ScoreTYPE - -OPEN "mg.top" FOR APPEND AS #1: CLOSE #1 - -OPEN "mg.top" FOR INPUT AS #1 -DO WHILE NOT EOF(1) - Element = Element + 1 - INPUT #1, ScoreDATA(Element).PlayerNAME - INPUT #1, ScoreDATA(Element).PlayDATE - INPUT #1, ScoreDATA(Element).PlayerSCORE - INPUT #1, ScoreDATA(Element).PlayerPAR - INPUT #1, ScoreDATA(Element).PlayerSTATUS -LOOP -CLOSE #1 - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -MouseDATA: -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -RESTORE MouseDATA -FOR i = 1 TO 57 - READ h$ - Hexxer$ = CHR$(VAL("&H" + h$)) - MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN - PRINT "Sorry, cat must have got the mouse." - Interval 2 - SYSTEM -END IF - -ParDATA: -DATA 2, 3, 4, 4, 4, 2, 3, 3, 3 - -SCREEN 12 - -SetSCREEN - -DO - PlayGAME -LOOP - -SYSTEM - -PaletteDATA: -DATA 0,0,12, 0,10,30, 4,11,1, 21,21,63 -DATA 63,0,0, 42,0,42, 32,15,0, 63,16,0 -DATA 0,63,21, 50,27,18, 5,13,1, 28,28,32 -DATA 36,36,40, 44,44,48, 52,52,56, 63,63,63 - -SUB Bridge -STATIC Index, StartTIME# -SHARED BridgeNUM, StartBRIDGE - -IF StartBRIDGE = 0 THEN - Index = 261 - PUT (244, 231), SBox(Index), PSET - PLAY "MBT255L64O6g" - StartBRIDGE = 1 - BridgeNUM = 1 - StartTIME# = TIMER -END IF - -IF TIMER > StartTIME# + 1.2 THEN - Index = Index + 140 - IF Index = 821 THEN Index = 261 - PLAY "MBT255L64O6g" - PUT (244, 231), SBox(Index), PSET - BridgeNUM = BridgeNUM + 1 - IF BridgeNUM = 5 THEN BridgeNUM = 1 - StartTIME# = TIMER -END IF - -END SUB - -SUB ClearMOUSE - -WHILE LB OR RB - MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB ControlBOX -STATIC SliderY1, SliderY2, Rotation, Force -SHARED SlowTRAIN, Putted, MapXD, MapYD, LowerLEVEL -SlowTRAIN = 0: Putted = 0 - -''FieldMOUSE 0, 0, 639, 479 - -GET (BallX - 13, BallY - 13)-(BallX + 13, BallY + 13), PutterBOX() -PUT (BallX - 5, BallY - 5), BallBOX(201), AND -PUT (BallX - 5, BallY - 5), BallBOX(), XOR - -ShowMOUSE -IF Force = 0 THEN Force = 15 -Rotate = 1 - -DO - a$ = INKEY$ - IF a$ = CHR$(27) THEN SYSTEM - MouseSTATUS LB, RB, MouseX, MouseY - SELECT CASE MouseY - CASE 166 TO 201 'Putt button - IF MouseX > 527 AND MouseX < 603 THEN - IF LB = -1 THEN - PUT (BallX - 13, BallY - 13), PutterBOX(), PSET - IF Level <> 6 THEN - HideMOUSE - LINE (531, 169)-(600, 199), 0, B - LINE (531, 199)-(600, 199), 15 - LINE (600, 168)-(600, 199), 15 - ShowMOUSE - Interval .1 - HideMOUSE - LINE (530, 168)-(600, 199), 13, B - LINE (531, 169)-(598, 169), 3 - LINE (531, 169)-(531, 197), 3 - ShowMOUSE - ClearMOUSE - END IF - Opp! = COS(Rotation * Degree!) - Adj! = SIN(Rotation * Degree!) - IncX! = (Opp! * Force) / 100 * -1 - IncY! = (Adj! * Force) / 100 - Putted = 1 - ''FieldMOUSE 478, 0, 639, 479 - EXIT SUB - END IF - END IF - CASE 249 TO 323 'Sliders - SELECT CASE MouseX - CASE 535 TO 557 - IF LB = -1 THEN - ''FieldMOUSE 535, 250, 557, 323 - IF Level = 6 THEN SlowTRAIN = 0 - WHILE LB = -1 - IF Level <> 6 THEN WAIT &H3DA, 8 - GOSUB PutSLIDER1 - IF Level = 7 THEN Bridge - WEND - SlowTRAIN = 1 - ''FieldMOUSE 0, 0, 639, 479 - Rotate = 0 - END IF - CASE 573 TO 595 - IF LB = -1 THEN - ''FieldMOUSE 573, 250, 595, 323 - SlowTRAIN = 0 - Rotate = 0 - WHILE LB = -1 - IF Level = 6 THEN Train - IF Level = 7 THEN Bridge - IF Level <> 6 THEN WAIT &H3DA, 8 - GOSUB PutSLIDER2 - IF Level = 6 THEN Train - WEND - SlowTRAIN = 1 - ''FieldMOUSE 0, 0, 639, 479 - END IF - END SELECT - CASE 368 TO 380 'Instructions - IF MouseX > 531 AND MouseX < 599 THEN - IF MenuNUM <> 2 THEN - GOSUB CloseMENU - MenuY = 368 - MI = 721 - GOSUB OpenMENU - MenuNUM = 2 - END IF - IF LB = -1 THEN - ERASE MapBOX - REDIM PuttBOX(32000) - Instructions - ERASE PuttBOX - IF Level = 5 AND LowerLEVEL = 1 THEN - REDIM MapBOX(1 TO 188, 1 TO 140) - DEF SEG = VARSEG(MapBOX(1, 1)) - BLOAD "mglev5b.map", VARPTR(MapBOX(1, 1)) - DEF SEG - ELSE - REDIM MapBOX(MapXD, MapYD) - FileNAME$ = "mglevel" + LTRIM$(STR$(Level)) + ".map" - DEF SEG = VARSEG(MapBOX(1, 1)) - BLOAD FileNAME$, VARPTR(MapBOX(1, 1)) - DEF SEG - END IF - END IF - END IF - CASE 398 TO 414 'EXIT - IF MouseX > 541 AND MouseX < 588 THEN - IF LB THEN - HideMOUSE - LINE (542, 398)-(587, 414), 11, B - LINE (542, 414)-(587, 414), 15 - LINE (587, 398)-(587, 414), 15 - ShowMOUSE - Interval .1 - HideMOUSE - LINE (542, 398)-(587, 414), 15, B - LINE (542, 414)-(587, 414), 11 - LINE (587, 398)-(587, 414), 11 - ShowMOUSE - Interval .1 - ExitGAME - END IF - END IF - CASE ELSE - GOSUB CloseMENU - END SELECT - - IF Rotate = 1 THEN - PUT (BallX - 13, BallY - 13), PutterBOX(), PSET - IF Level = 4 THEN - Traps - IF MapBOX(MapX!, MapY!) < 0 THEN - GET (BallX - 13, BallY - 13)-(BallX + 13, BallY + 13), PutterBOX() - END IF - END IF - Angler = Angler + 5 - IF Angler = 360 THEN Angler = 0 - PutPUTTER BallX, BallY, Angler - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - END IF - - IF Level = 4 AND Rotate = 0 THEN Traps - IF Level = 6 THEN Train - IF Level = 7 THEN Bridge - - IF LB = -1 AND MenuNUM THEN - ClearMOUSE - END IF - IF Level = 7 THEN Bridge -LOOP - -EXIT SUB - -OpenMENU: -HideMOUSE -GET (532, MenuY)-(598, MenuY + 13), SliderBOX(981) -PUT (532, MenuY), SliderBOX(MI), PSET -ShowMOUSE -RETURN - -CloseMENU: -IF MenuNUM THEN - HideMOUSE - PUT (532, MenuY), SliderBOX(981), PSET - ShowMOUSE - MenuNUM = 0 -END IF -RETURN - -PutSLIDER1: -IF SliderBOX(131) THEN - HideMOUSE - PUT (535, SliderY1), SliderBOX(131), PSET - ShowMOUSE -ELSE - HideMOUSE - PUT (535, 316), SliderBOX(65), PSET - ShowMOUSE -END IF -SliderY1 = MouseY - 5 -HideMOUSE -GET (535, SliderY1)-(557, SliderY1 + 9), SliderBOX(131) -PUT (535, SliderY1), SliderBOX(), PSET -ShowMOUSE -Force = 317 - SliderY1 -IF Force < 0 THEN Force = 0 -IF Force > 72 THEN Force = 72 -Force = Force + 15 -RETURN - -PutSLIDER2: -IF SliderBOX(1251) THEN - HideMOUSE - PUT (573, SliderY2), SliderBOX(1251), PSET - ShowMOUSE -ELSE - HideMOUSE - PUT (573, 316), SliderBOX(65), PSET - ShowMOUSE -END IF -SliderY2 = MouseY - 5 -HideMOUSE -GET (573, SliderY2)-(595, SliderY2 + 9), SliderBOX(1251) -PUT (573, SliderY2), SliderBOX(), PSET -ShowMOUSE - -Angle = 317 - SliderY2 -IF Angle < 0 THEN Angle = 0 -IF Angle > 72 THEN Angle = 72 -Rotation = Angle * 5 - 90 -HideMOUSE -PUT (BallX - 13, BallY - 13), PutterBOX(), PSET -GET (BallX - 13, BallY - 13)-(BallX + 13, BallY + 13), PutterBOX() -PutPUTTER BallX, BallY, Rotation -ShowMOUSE -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -RETURN - -END SUB - -SUB Digital - -x = 558: y = 139 -Num$ = LTRIM$(STR$(Strokes)) -IF LEN(Num$) = 1 THEN Num$ = "0" + Num$ -FOR Digit = 1 TO LEN(Num$) - Digit$ = MID$(Num$, Digit, 1) - DigitINDEX = VAL(Digit$) * 40 + 1 - PUT (x, y), DigitBOX(DigitINDEX), PSET - x = x + DigitBOX(DigitINDEX) -NEXT Digit - -END SUB - -SUB EndGAME - -HideMOUSE -BEEP -OPEN "mgover.dat" FOR INPUT AS #1 -FOR x = 0 TO 257 - FOR y = 0 TO 60 - INPUT #1, Colr - IF Colr THEN PSET (x + 140, y + 230), Colr - NEXT y -NEXT x -CLOSE #1 -DO: LOOP UNTIL INKEY$ = "" -Interval 1.4 - -REDIM PuttBOX(16000) -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mgfinal1.bsv", VARPTR(PuttBOX(1)) -DEF SEG -PUT (110, 159), PuttBOX(), PSET -ScoreCARD -a$ = INPUT$(1) -IF a$ = CHR$(27) THEN SYSTEM -REDIM FontBOX(0 TO 5171) -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "mg.fbs", VARPTR(FontBOX(0)) -DEF SEG - -IF 1000 - Strokes > ScoreDATA(5).PlayerSTATUS THEN - IF 1000 - Strokes > ScoreDATA(1).PlayerSTATUS THEN - DEF SEG = VARSEG(PuttBOX(1)) - BLOAD "mgfinal5.bsv", VARPTR(PuttBOX(1)) - DEF SEG - ELSE - DEF SEG = VARSEG(PuttBOX(1)) - BLOAD "mgfinal2.bsv", VARPTR(PuttBOX(1)) - DEF SEG - END IF - PUT (110, 159), PuttBOX(), PSET - GOSUB GetNAME - IF LEN(ScoreDATA(6).PlayerNAME) THEN - FOR a = 1 TO 6 - FOR B = a TO 6 - IF ScoreDATA(B).PlayerSTATUS > ScoreDATA(a).PlayerSTATUS THEN SWAP ScoreDATA(B), ScoreDATA(a) - NEXT B - NEXT a - OPEN "mg.top" FOR OUTPUT AS #1 - FOR n = 1 TO 5 - WRITE #1, ScoreDATA(n).PlayerNAME, ScoreDATA(n).PlayDATE, ScoreDATA(n).PlayerSCORE, ScoreDATA(n).PlayerPAR, ScoreDATA(n).PlayerSTATUS - NEXT n - CLOSE #1 - END IF -END IF -DO: LOOP UNTIL INKEY$ = "" -TopFIVE -ERASE FontBOX -a$ = INPUT$(1) -IF a$ = CHR$(27) THEN SYSTEM -x1 = 268: x2 = 268 -y1 = 100: y2 = 100 - -'Erase previous level graphic -FOR n = 0 TO 248 - IF x2 + n > 470 THEN y2 = 110 - LINE (x1 - n, y1)-(x1 - n, 460), 0 - LINE (x2 + n, y2)-(x2 + n, 460), 0 -NEXT n -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mgfinal4.bsv", VARPTR(PuttBOX(1)) -DEF SEG -PUT (80, 190), PuttBOX(), PSET - -GamePLAYED = 1 - -a$ = INPUT$(1) -IF a$ = CHR$(13) THEN - Level = 1 - Count& = 0 - EXIT SUB -ELSEIF a$ = CHR$(27) THEN - SYSTEM -ELSE - ExitGAME -END IF - -EXIT SUB - -GetNAME: -x = 170 -LINE (x, 298)-(x + 5, 298), 12, B -DO - DO - k$ = INKEY$ - LOOP UNTIL k$ <> "" - SELECT CASE k$ - CASE CHR$(8) 'Backspace - IF CharX THEN - LINE (x, 298)-(x + 5, 298), 14, BF - LINE (CharBOX(CharX), 286)-(x, 298), 14, BF - Name$ = LEFT$(Name$, LEN(Name$) - 1) - x = CharBOX(CharX) - LINE (x, 298)-(x + 5, 298), 12, B - CharX = CharX - 1 - END IF - CASE CHR$(13) 'Enter - Name$ = LTRIM$(Name$) - IF LEN(Name$) THEN - LINE (x, 298)-(x + 5, 298), 14, BF - ScoreDATA(6).PlayerNAME = Name$ - ScoreDATA(6).PlayDATE = DATE$ - ScoreDATA(6).PlayerSCORE = Strokes - ScoreDATA(6).PlayerPAR = Strokes - 28 - ScoreDATA(6).PlayerSTATUS = 1000 - Strokes - ELSE - ScoreDATA(6).PlayerSTATUS = 0 - END IF - Name$ = "" - CharX = 0 - ERASE CharBOX - EXIT DO - CASE CHR$(27) - SYSTEM - CASE ELSE - IF INSTR(CheckCHAR, k$) THEN - IF LEN(Name$) < 20 THEN - Name$ = Name$ + k$ - LINE (x, 298)-(x + 5, 298), 14, BF - CharX = CharX + 1 - CharBOX(CharX) = x - PrintSTRING x, 286, k$ - LINE (x, 298)-(x + 5, 298), 12, B - END IF - END IF - END SELECT -LOOP -RETURN - -END SUB - -SUB ExitGAME - -SetPALETTE 0 -HideMOUSE -CLS -ERASE MapBOX -REDIM PuttBOX(16000) -DEF SEG = VARSEG(PuttBOX(1)) -IF ScoreBOX(1, 2) = 0 AND GamePLAYED = 0 THEN - BLOAD "mgsplsh1.bsv", VARPTR(PuttBOX(1)) - PUT (154, 140), PuttBOX(1), PSET - DEF SEG - SetPALETTE 1 -ELSE - BLOAD "mgsplsh2.bsv", VARPTR(PuttBOX(1)) - DEF SEG - PUT (154, 140), PuttBOX(1), PSET - SetPALETTE 1 - OPEN "mgthanks.dat" FOR INPUT AS #1 - FOR x = 0 TO 210 - FOR y = 0 TO 38 - INPUT #1, Colr - IF Colr THEN PSET (x + 208, y + 248), 8 - NEXT y - IF x MOD 5 = 0 THEN WAIT &H3DA, 8 - NEXT x - CLOSE #1 -END IF -SLEEP 1 -SYSTEM - -END SUB - -SUB FieldMOUSE (x1, y1, x2, y2) - -MouseDRIVER 7, 0, x1, x2 -MouseDRIVER 8, 0, y1, y2 - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -SUB Instructions - -ClearMOUSE -HideMOUSE -GET (110, 159)-(439, 347), PuttBOX() -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mghelp1.bsv", VARPTR(PuttBOX(16100)) -DEF SEG -PUT (110, 159), PuttBOX(16100), PSET -ShowMOUSE - -DO - a$ = INKEY$ - IF a$ = CHR$(27) THEN SYSTEM - MouseSTATUS LB, RB, MouseX, MouseY - IF MouseX > 379 AND MouseX < 421 THEN - IF MouseY > 177 AND MouseY < 199 THEN - IF CloseMENU = 0 THEN GOSUB OpenCLOSE - ELSE - GOSUB CloseCLOSE - END IF - ELSE - GOSUB CloseCLOSE - END IF - IF CloseMENU AND LB = -1 THEN - IF HelpCOUNT = 0 THEN - ClearMOUSE - HelpCOUNT = 1 - DEF SEG = VARSEG(PuttBOX(1)) - BLOAD "mghelp2.bsv", VARPTR(PuttBOX(16100)) - DEF SEG - HideMOUSE - PUT (110, 159), PuttBOX(16100), PSET - ShowMOUSE - CloseMENU = 0 - ELSE - EXIT DO - END IF - END IF -LOOP - -HideMOUSE -PUT (110, 159), PuttBOX(), PSET -ShowMOUSE -ClearMOUSE - -EXIT SUB - -OpenCLOSE: -HideMOUSE -FOR x = 380 TO 416 - FOR y = 182 TO 194 - IF POINT(x, y) = 1 THEN PSET (x, y), 8 - NEXT y -NEXT x -ShowMOUSE -CloseMENU = 1 -RETURN - -CloseCLOSE: -IF CloseMENU = 1 THEN - HideMOUSE - FOR x = 380 TO 416 - FOR y = 182 TO 194 - IF POINT(x, y) = 8 THEN PSET (x, y), 1 - NEXT y - NEXT x - ShowMOUSE - CloseMENU = 0 -END IF -RETURN - -END SUB - -DEFSNG A-Z -SUB Interval (Length!) - -OldTimer# = TIMER -DO - a$ = INKEY$ - IF a$ = CHR$(27) THEN SYSTEM -LOOP UNTIL TIMER > OldTimer# + Length! -WAIT &H3DA, 8 - -END SUB - -DEFINT A-Z -SUB LocateMOUSE (x, y) - -LB = 4 -MX = x -MY = y -MouseDRIVER LB, 0, MX, MY - -END SUB - -SUB MouseDRIVER (LB, RB, MX, MY) - -DEF SEG = VARSEG(MouseDATA$) -Mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, MX, MY, Mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, MX, MY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = MX -MouseY = MY - -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) -SHARED Key$ - -DO - Key$ = UCASE$(INKEY$) - MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PlayGAME -SHARED BoxCAR, BallIN, StopTRAIN, BridgeNUM, StartBRIDGE, LowerLEVEL - -SELECT CASE Level - CASE 1 - Strokes = 0 - Digital - RESTORE ParDATA - FOR n = 1 TO 9 - READ ScoreBOX(n, 1) - ScoreBOX(n, 2) = 0 - NEXT n - SetLEVEL 81, 101 - IF GamePLAYED THEN SHELL "MGTheme" - CASE 2 - SetLEVEL 70, 121 - CASE 3 - SetLEVEL 53, 117 - CASE 4 - SetLEVEL 40, 140 - CASE 5 - LowerLEVEL = 0 - SetLEVEL 40, 112 - CASE 6 - BoxCAR = 0: BallIN = 0: StopTRAIN = 0: Direction = 0 - SetLEVEL 60, 116 - CASE 7 - BridgeNUM = 0: StartBRIDGE = 0 - SetLEVEL 60, 116 - CASE 8 - SetLEVEL 70, 110 - CASE 9 - SetLEVEL 109, 105 -END SELECT - -BallX = MapX! * 2 + ShiftX -BallY = MapY! * 2 + ShiftY -GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) -PUT (BallX - 5, BallY - 5), BallBOX(201), AND -PUT (BallX - 5, BallY - 5), BallBOX(), XOR - -DO - ControlBOX - Strokes = Strokes + 1 - ScoreBOX(Level, 2) = ScoreBOX(Level, 2) + 1 - Digital - PUT (BallX - 5, BallY - 5), BallBOX(450), PSET - PLAY "MBT220L64O3C" - - DO - SELECT CASE MapBOX(MapX!, MapY!) - CASE 0 - Bounce = 0 - Cup = 0 - MapX! = LocX!: MapY! = LocY! - CASE -1, 1, 1000 - SELECT CASE Level - CASE 2 - IF MapBOX(MapX!, MapY!) = 1 THEN - FOR Index = 261 TO 456 STEP 65 - PUT (246, 231), SBox(Index), PSET - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - NEXT Index - END IF - PLAY "MFT255O2L64cp16 84 THEN 'bottom half - IF MapX! < 61 THEN - 'left side - StartDEGREES = 331 - Advance = 37 - ELSE - 'right side - StartDEGREES = 31 - Advance = 34 - END IF - ELSE 'top half - IF MapX! < 61 THEN - 'left side - StartDEGREES = 171 - Advance = 45 - ELSE - 'right side - StartDEGREES = 111 - Advance = 48 - END IF - END IF - Roulette StartDEGREES, Advance, 4 - END SELECT - CASE -2, 2, 20 - Bounce = 0 - CupSOUND = 0 - Cup = 0 - LocX! = MapX!: LocY! = MapY! - CASE -3, 3 'left well - SELECT CASE Level - CASE 4 - IF Drop = 2 THEN - Sy = 188: Sy2 = 205 - SI = 571 - GOSUB DropBALL - MapX! = 117 - MapY! = 34 - IncX! = ABS(IncX!) - IncY! = 0 - END IF - CASE 5 - PLAY "MBMST255L64O3gP32eP32cO2CP32CP32>" - GET (138, 297)-(152, 311), SBox(456) - PUT (138, 297), SBox(391), AND - PUT (138, 297), SBox(261), XOR - Interval 0 - PUT (138, 297), SBox(391), AND - PUT (138, 297), SBox(326), XOR - Interval 0 - PUT (138, 297), SBox(456), PSET - Interval .5 - PLAY "MFCP32CP32CP32CP32CP32CP32C" - GOSUB NewMAP - MapX! = 105: MapY! = 20 - BumpUP! = ABS(IncX!) + ABS(IncY!) - IF BumpUP! < .2 THEN BumpUP! = .2 - IncX! = .36 * BumpUP!: IncY! = .18 * BumpUP! - CASE 9 - IF MapY! > 84 THEN 'bottom half - StartDEGREES = 311 - Advance = 45 - ELSE - StartDEGREES = 191 - Advance = 52 - END IF - Roulette StartDEGREES, Advance, 2 - GOSUB ResetBALL - END SELECT - CASE 4, 40 - IF Bounce <> 4 THEN - SwapX! = IncX! - IncX! = IncY! * -1 - IncY! = SwapX! * -1 - PLAY "MBMST255L64O2C" - Bounce = 4 - END IF - CASE -5, 5 'right well - SELECT CASE Level - CASE 4 - IF Drop = 3 THEN - Sy = 218 - Sy2 = 235 - SI = 681 - GOSUB DropBALL - MapX! = 117 - MapY! = 49 - IncX! = ABS(IncX!) - IncY! = 0 - END IF - CASE 5 - GET (198, 237)-(212, 251), SBox(456) - PUT (198, 237), SBox(391), AND - PUT (198, 237), SBox(261), XOR - Interval 0 - PUT (198, 237), SBox(391), AND - PUT (198, 237), SBox(326), XOR - Interval 0 - PUT (198, 237), SBox(456), PSET - PLAY "MBMST255L32O4Cp32bp32 84 THEN 'bottom half - IF MapX! > 59 THEN - 'right side - StartDEGREES = 351 - Advance = 44 - ELSE - 'left side - StartDEGREES = 291 - Advance = 47 - END IF - ELSE - IF MapX! > 59 THEN - 'right side - StartDEGREES = 151 - Advance = 54 - ELSE 'top half - 'left side - StartDEGREES = 211 - Advance = 51 - END IF - END IF - Roulette StartDEGREES, Advance, 3 - END SELECT - CASE 6, 60 - IF Bounce <> 6 THEN - SwapX! = IncX! - IncX! = IncY! * -1 - IncY! = SwapX! * -1 - PLAY "MBMST255L64O2C" - Bounce = 6 - END IF - CASE 7, 70 - IF Bounce <> 7 THEN - IncY! = ABS(IncY!) - PLAY "MBMST255L64O2C" - Bounce = 7 - END IF - CASE 8, 80 - IF Bounce <> 8 THEN - SwapX! = IncX! - SWAP IncX!, IncY! - SWAP IncY!, SwapX! - PLAY "MBMST255L64O2C" - Bounce = 8 - END IF - CASE 9, 90 - IF Bounce <> 9 THEN - IncY! = -ABS(IncY!) - PLAY "MBMST255L64O2C" - Bounce = 9 - END IF - CASE 10, 100 - IF Bounce <> 10 THEN - IncX! = -ABS(IncX!) - PLAY "MBMST255L64O2C" - Bounce = 10 - END IF - CASE 11, 110 - IF Bounce <> 11 THEN - IncX! = ABS(IncX!) - PLAY "MBMST255L64O2C" - Bounce = 11 - END IF - CASE 12 - IF (ABS(IncX!) + ABS(IncY!)) < .2 THEN - Cup = 1 - ELSE - IF CupSOUND = 0 THEN - PLAY "MBMST255L64O5C" - CupSOUND = 1 - END IF - END IF - CASE 13, 130 - IF Bounce <> 13 THEN - SWAP IncX!, IncY! - PLAY "MBMST255L64O2C" - Bounce = 13 - END IF - CASE 14 - IF MapY! > 84 THEN 'bottom half - StartDEGREES = 11 - Advance = 43 - ELSE - StartDEGREES = 131 - Advance = 36 - END IF - Roulette StartDEGREES, Advance, 1 - Cup = 1 - CASE 15 'hole 9 only - PUT (170, 141), SBox(261), PSET - PLAY "MfT255O2L64a" - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (170, 141), SBox(326), PSET - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (170, 141), SBox(391), PSET - PLAY "MfT255O3L64c" - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (170, 141), SBox(456), PSET - GOSUB ResetBALL - CASE 30 - SELECT CASE IncX! - CASE IS < 0 - SELECT CASE BridgeNUM - CASE 1: IncY! = 0 - CASE 2: GOSUB SinkBALL - CASE 3: PLAY "MBMST255L64O2b": IncX! = IncX! * -1 - CASE 4: GOSUB Splunk - END SELECT - CASE IS > 0 - SELECT CASE BridgeNUM - CASE 1: IncY! = 0 - CASE 2: GOSUB Splunk - CASE 3: PLAY "MBMST255L64O2b": IncX! = IncX! * -1 - CASE 4: GOSUB SinkBALL - END SELECT - END SELECT - END SELECT - BallX = MapX! * 2 + ShiftX - BallY = MapY! * 2 + ShiftY - Count2 = Count2 + 1 - IF Count2 = 32000 THEN Count2 = 0 - IF Cup = 1 THEN Count2 = Count2 - Count2 MOD 3 - IF Count2 MOD 3 = 0 THEN - IF Cup = 1 THEN - PUT (CupX, CupY), BallBOX(201), AND - PUT (CupX, CupY), BallBOX(), XOR - PLAY "MBMST255O5L64ap32bp32>c" - Cup = 0 - Level = Level + 1 - IF Level = 7 THEN StopTRAIN = 0 - Interval 2 - IF Level = 10 THEN - ERASE MapBOX - EndGAME - END IF - EXIT SUB - END IF - GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) - IF Level = 4 THEN Traps - IF MapBOX(MapX!, MapY!) < 20 THEN - PUT (BallX - 5, BallY - 5), BallBOX(201), AND - PUT (BallX - 5, BallY - 5), BallBOX(), XOR - IF Level = 6 THEN Train - IF Level = 7 THEN Bridge - END IF - WAIT &H3DA, 8 - IF Level <> 6 THEN WAIT &H3DA, 8, 8 - PUT (BallX - 5, BallY - 5), BallBOX(450), PSET - GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) - IncX! = IncX! * .994 - IncY! = IncY! * .994 - END IF - MapX! = MapX! + IncX! - MapY! = MapY! + IncY! - LOOP WHILE (ABS(IncX!) + ABS(IncY!)) > .05 - - GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) - IF MapBOX(MapX!, MapY!) < 20 THEN - PUT (BallX - 5, BallY - 5), BallBOX(201), AND - PUT (BallX - 5, BallY - 5), BallBOX(), XOR - ELSE - GOSUB ResetBALL - IF Level = 5 THEN - ERASE MapBOX - REDIM MapBOX(67, 115) - DEF SEG = VARSEG(MapBOX(1, 1)) - BLOAD "mglevel5.map", VARPTR(MapBOX(1, 1)) - DEF SEG - END IF - GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) - PUT (BallX - 5, BallY - 5), BallBOX(201), AND - PUT (BallX - 5, BallY - 5), BallBOX(), XOR - END IF -LOOP - -IF MapBOX(MapX!, MapY!) < 20 THEN - PUT (BallX - 5, BallY - 5), BallBOX(201), AND - PUT (BallX - 5, BallY - 5), BallBOX() -END IF - -EXIT SUB - -DropBALL: -PUT (235, Sy), SBox(), AND -PUT (235, Sy), SBox(221), XOR -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (235, Sy), SBox(), AND -PUT (235, Sy), SBox(331), XOR -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (235, Sy), SBox(SI), PSET -PLAY "MFT220L64O2AP32FP32DP1" -GET (270, Sy2)-(274, Sy2 + 11), SBox(800) -PUT (270, Sy2), SBox(441), PSET -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (270, Sy2), SBox(800), PSET -RETURN - -NewMAP: -ERASE MapBOX -REDIM MapBOX(1 TO 188, 1 TO 140) -DEF SEG = VARSEG(MapBOX(1, 1)) -BLOAD "mglev5b.map", VARPTR(MapBOX(1, 1)) -DEF SEG -ShiftX = 45: ShiftY = 116 -MapX! = MapX! + 31: MapY! = MapY! + 26 -LowerLEVEL = 1 -RETURN - -ResetBALL: -SELECT CASE Level - CASE 2 - ResetX = 119: ResetY = 379 - MapX! = 28: MapY! = 133 - ShiftX = 70: ShiftY = 121 - CASE 5: - ResetX = 168: ResetY = 381 - MapX! = 34: MapY! = 109.5 - ShiftX = 107: ShiftY = 169 - LowerLEVEL = 0 - CASE 7: - ResetX = 104: ResetY = 378 - MapX! = 25: MapY! = 83.5 - CASE 8: - ResetX = 193: ResetY = 371 - MapX! = 27.5: MapY! = 132.5 - CASE 9: - ResetX = 252: ResetY = 382 - MapX! = 58.5: MapY! = 141.5 -END SELECT -IncX! = 0: IncY! = 0 -PUT (ResetX, ResetY), SBox(), PSET -PLAY "MBT255L64O6b" -PLAY "MFMST255L64O3gP32eP32cO1CP32CP32" -PLAY "CP32CP32CP32CP32CP32CP32CP32CP32CP32CP32CP32CP32CP32CP32C" -PLAY "CP32CP32CP32CP32CP32CP32CP32CP32CP32" -PLAY "CP32CP32CP32CP32CP32CP32CP32CP32CP32CP32O5BP32>BP32>c" -FOR Index = 851 TO 2251 STEP 200 - WAIT &H3DA, 8 - PUT (242, 195), SBox(Index), PSET - Interval .02 -NEXT Index -GOSUB ResetBALL -RETURN - -END SUB - -SUB PrintSTRING (x, y, Prnt$) - -FOR i = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, i, 1) - IF Char$ = " " THEN - x = x + FontBOX(1) - ELSE - Index = (ASC(Char$) - 33) * FontBOX(0) + 2 - PUT (x, y), FontBOX(Index) - x = x + FontBOX(Index) - END IF -NEXT i - -END SUB - -SUB PutPUTTER (x, y, Angle) - -Angle2 = Angle - 60 -Angle3 = Angle + 60 -Adj = COS(Angle * Degree!) * 3 -Opp = SIN(Angle * Degree!) * 3 -Adj1 = COS(Angle * Degree!) * 4 -Opp1 = SIN(Angle * Degree!) * 4 -Adj4 = COS(Angle * Degree!) * 5 -Opp4 = SIN(Angle * Degree!) * 5 -Adj2 = COS(Angle2 * Degree!) * 9 -Opp2 = SIN(Angle2 * Degree!) * 9 -Adj3 = COS(Angle3 * Degree!) * 9 -Opp3 = SIN(Angle3 * Degree!) * 9 -PointX = x + Adj -PointY = y - Opp -LeftX = PointX + Adj2 -LeftY = PointY - Opp2 -RightX = PointX + Adj3 -RightY = PointY - Opp3 -PointX2 = x + Adj1 -PointY2 = y - Opp1 -LeftX2 = PointX2 + Adj2 -LeftY2 = PointY2 - Opp2 -RightX2 = PointX2 + Adj3 -RightY2 = PointY2 - Opp3 -PointX3 = x + Adj4 -PointY3 = y - Opp4 -LeftX3 = PointX3 + Adj2 -LeftY3 = PointY3 - Opp2 -RightX3 = PointX3 + Adj3 -RightY3 = PointY3 - Opp3 - -SELECT CASE Angle - CASE 90, -90, 270 - LINE (LeftX, RightY)-(RightX, RightY), 12 - LINE (LeftX2, RightY2)-(RightX2, RightY2), 13 - LINE (LeftX3, RightY3)-(RightX3, RightY3), 15 - LINE (LeftX, LeftY)-(LeftX, LeftY3), 15 - LINE (RightX, RightY)-(RightX, RightY3), 15 - CASE 180 - LINE (LeftX, LeftY)-(LeftX, RightY), 12 - LINE (LeftX2, LeftY2)-(LeftX2, RightY2), 13 - LINE (LeftX3, LeftY3)-(LeftX3, RightY3), 15 - LINE (LeftX, LeftY)-(LeftX, LeftY3), 15 - LINE (RightX, RightY)-(LeftX3, RightY3), 15 - CASE ELSE - LINE (LeftX, LeftY)-(RightX, RightY), 12 - LINE (LeftX2, LeftY2)-(RightX2, RightY2), 13 - LINE (LeftX3, LeftY3)-(RightX3, RightY3), 15 - LINE (LeftX, LeftY)-(LeftX3, LeftY3), 15 - LINE (RightX, RightY)-(RightX3, RightY3), 15 -END SELECT - -END SUB - -SUB Roulette (BallSLOT, Advance, OutCOME) - -nn = BallSLOT -FOR Spins = 1 TO Advance - a$ = INKEY$ - IF a$ = CHR$(27) THEN SYSTEM - nn = nn + 20 - IF nn = 360 + BallSLOT THEN nn = BallSLOT - Adj! = 260 + 54 * SIN(Degree! * nn) - Opp! = 280 + 54 * COS(Degree! * nn) - PUT (198, 217), SBox(525), PSET - - SpinCOUNT = SpinCOUNT + 1 - IF SpinCOUNT MOD 2 THEN - PUT (198, 217), SBox(525), PSET - ELSE - PUT (198, 217), SBox(4530), PSET - END IF - - GET (Adj! - 5, Opp! - 5)-(Adj! + 5, Opp! + 5), BallBOX(450) - PUT (Adj! - 5, Opp! - 5), BallBOX(201), AND - PUT (Adj! - 5, Opp! - 5), BallBOX() - - IF Spins > Advance * .6 THEN Clicks = 3 ELSE Clicks = 1 - FOR Reps = 1 TO Clicks - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - NEXT Reps - - PLAY "MFT255O6L64a" - PUT (Adj! - 5, Opp! - 5), BallBOX(450), PSET -NEXT Spins - -SELECT CASE OutCOME - CASE 1 - GOSUB Cuppa - CASE 2 - GOSUB Sewer - CASE 3 - MapX! = 74 - MapY! = 55 - IncX! = -.15 - IncY! = -(RND * .5) - .01 - CASE 4: - MapX! = 55 - MapY! = 122 - IncX! = .05 - IncY! = (RND * .2) + .01 -END SELECT - -EXIT SUB - -Sewer: -x! = 267: y! = 210 - -DO - GET (x!, y!)-(x! + 10, y! + 10), BallBOX(450) - PUT (x!, y!), BallBOX(201), AND - PUT (x!, y!), BallBOX() - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (x!, y!), BallBOX(450), PSET - x! = x! - 1: y! = y! - 1.5 -LOOP WHILE y! > 109 -PLAY "MBMST255L64O2C" - -DO - GET (x!, y!)-(x! + 10, y! + 10), BallBOX(450) - PUT (x!, y!), BallBOX(201), AND - PUT (x!, y!), BallBOX() - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (x!, y!), BallBOX(450), PSET - x! = x! - 1: y! = y! + 1.4 -LOOP WHILE y! < 142 - -PUT (170, 141), SBox(261), PSET -PLAY "MfT255O2L64a" -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (170, 141), SBox(326), PSET -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (170, 141), SBox(391), PSET -PLAY "MfT255O3L64c" -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (170, 141), SBox(456), PSET - -RETURN - -Cuppa: -x! = 282: y! = 216 - -DO - GET (x!, y!)-(x! + 10, y! + 10), BallBOX(450) - PUT (x!, y!), BallBOX(201), AND - PUT (x!, y!), BallBOX() - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (x!, y!), BallBOX(450), PSET - x! = x! - .52: y! = y! - 1.3 -LOOP WHILE y! > 109 -PLAY "MBMST255L64O2C" - -DO - GET (x!, y!)-(x! + 10, y! + 10), BallBOX(450) - PUT (x!, y!), BallBOX(201), AND - PUT (x!, y!), BallBOX() - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (x!, y!), BallBOX(450), PSET - x! = x! - .52: y! = y! + 1.3 -LOOP WHILE y! < 197 -PLAY "MBMST255L64O2C" - -SlowY! = .52 -SlowX! = 1.3 -DO - GET (x!, y!)-(x! + 10, y! + 10), BallBOX(450) - PUT (x!, y!), BallBOX(201), AND - PUT (x!, y!), BallBOX() - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - PUT (x!, y!), BallBOX(450), PSET - SlowX! = SlowX! * .993 - SlowY! = SlowY! * .993 - x! = x! + SlowX!: y! = y! - SlowY! -LOOP WHILE x! < 334 - -RETURN - -END SUB - -SUB ScoreCARD - -REDIM NumBOX(1900) -DEF SEG = VARSEG(NumBOX(1)) -BLOAD "mgnums.fbs", VARPTR(NumBOX(1)) -DEF SEG - -FOR y = 204 TO 268 STEP 32 - FOR x = 190 TO 370 STEP 90 - ParCOUNT = ParCOUNT + 1 - NumVAL = ScoreBOX(ParCOUNT, 2) - ScoreBOX(ParCOUNT, 1) - SELECT CASE NumVAL - CASE IS < 0 - PUT (x, y), NumBOX(1321) - x = x + NumBOX(1321) - GOSUB PrintNUMS - x = x - NumBOX(1321) - CASE 0 - PUT (x, y), NumBOX(1441) - CASE IS > 0 - PUT (x, y), NumBOX(1201) - x = x + NumBOX(1201) - GOSUB PrintNUMS - x = x - NumBOX(1201) - END SELECT - NEXT x -NEXT y - -x = 290: y = 300 -NumVAL = Strokes -GOSUB PrintNUMS -FinalSCORE = Strokes - 28 - -PUT (331, 297), NumBOX(1641) -IF FinalSCORE < 0 THEN PUT (338, 305), NumBOX(1321) -IF FinalSCORE > 0 THEN PUT (338, 305), NumBOX(1201) -IF FinalSCORE = 0 THEN - PUT (338, 302), NumBOX(1441) - PUT (366, 300), NumBOX(1741) - ERASE NumBOX - EXIT SUB -END IF - -x = 348: y = 300 -NumVAL = FinalSCORE -GOSUB PrintNUMS -PUT (xx, 297), NumBOX(1741) - -ERASE NumBOX -EXIT SUB - -PrintNUMS: -Num$ = LTRIM$(STR$(ABS(NumVAL))) -xx = x -FOR n = 1 TO LEN(Num$) - Char$ = MID$(Num$, n, 1) - Index = VAL(Char$) * 120 + 1 - PUT (xx, y), NumBOX(Index) - xx = xx + NumBOX(Index) -NEXT n -RETURN - -END SUB - -SUB SetLEVEL (x, y) -STATIC NewGAME -SHARED MapXD, MapYD - -x1 = 268: x2 = 268 -y1 = 100: y2 = 100 - -'Erase previous level graphic -HideMOUSE -FOR n = 0 TO 248 - IF x2 + n > 470 THEN y2 = 110 - LINE (x1 - n, y1)-(x1 - n, 460), 0 - LINE (x2 + n, y2)-(x2 + n, 460), 0 -NEXT n - -ERASE MapBOX - -REDIM PuttBOX(32000) -FileNAME$ = "mglevel" + LTRIM$(STR$(Level)) + ".bsv" -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD FileNAME$, VARPTR(PuttBOX(1)) -DEF SEG -PUT (x, y), PuttBOX(), PSET -ShowMOUSE -ERASE PuttBOX - -'PUT level number on flag -REDIM FlagBOX(1 TO 5000) -DEF SEG = VARSEG(FlagBOX(1)) -BLOAD "mgfnums.bsv", VARPTR(FlagBOX(1)) -DEF SEG -HideMOUSE -PUT (538, 44), FlagBOX(555 * (Level - 1) + 1), PSET -ShowMOUSE -ERASE FlagBOX - -IF NewGAME = 0 THEN - SetPALETTE 1 - NewGAME = 1 -END IF - -SELECT CASE Level - CASE 1 - MapX! = 134: MapY! = 133 - ShiftX = 91: ShiftY = 111 - CupX = 134: CupY = 154 - REDIM MapBOX(157, 157) - MapXD = 157: MapYD = 157 - CASE 2 - MapX! = 27.5: MapY! = 132.5 - ShiftX = 70: ShiftY = 121 - CupX = 379: CupY = 141 - DEF SEG = VARSEG(SBox(1)) - BLOAD "mgspec2.bsv", VARPTR(SBox(1)) - DEF SEG - REDIM MapBOX(182, 146) - MapXD = 182: MapYD = 146 - CASE 3 - MapX! = 148: MapY! = 118 - ShiftX = 60: ShiftY = 137 - CupX = 142: CupY = 150 - REDIM MapBOX(192, 127) - MapXD = 192: MapYD = 127 - CASE 4 - MapX! = 50: MapY! = 105 - ShiftX = 42: ShiftY = 141 - CupX = 371: CupY = 360 - REDIM SBox(1330) - DEF SEG = VARSEG(SBox(1)) - BLOAD "mgspec4.bsv", VARPTR(SBox(1)) - DEF SEG - REDIM MapBOX(217, 136) - MapXD = 217: MapYD = 136 - CASE 5 - MapX! = 34: MapY! = 109.5 - ShiftX = 107: ShiftY = 169 - CupX = 399: CupY = 154 - DEF SEG = VARSEG(SBox(1)) - BLOAD "mgspec5.bsv", VARPTR(SBox(1)) - DEF SEG - REDIM MapBOX(67, 115) - MapXD = 67: MapYD = 115 - CASE 6 - 'MapX! = 59.5: MapY! = 24 - MapX! = 59.5: MapY! = 23.5 - ShiftX = 286: ShiftY = 238 - CupX = 84: CupY = 280 - DEF SEG = VARSEG(TraxBOX(1)) - BLOAD "mgtrack.lin", VARPTR(TraxBOX(1)) - DEF SEG - REDIM LilBOX(410) - REDIM LilBOX2(410) - REDIM MapBOX(69, 47) - MapXD = 69: MapYD = 47 - CASE 7 - MapX! = 25: MapY! = 83.5 - ShiftX = 61: ShiftY = 218 - CupX = 249: CupY = 409 - REDIM SBox(1 TO 2650) - DEF SEG = VARSEG(SBox(1)) - BLOAD "mgspec7.bsv", VARPTR(SBox(1)) - DEF SEG - REDIM MapBOX(192, 90) - MapXD = 192: MapYD = 90 - CASE 8 - MapX! = 27.5: MapY! = 132.5 - ShiftX = 145: ShiftY = 113 - CupX = 345: CupY = 162 - DEF SEG = VARSEG(SBox(1)) - BLOAD "mgspec5.bsv", VARPTR(SBox(1)) - DEF SEG - REDIM MapBOX(118, 144) - MapXD = 118: MapYD = 144 - CASE 9 - MapX! = 58.5: MapY! = 141.5 - ShiftX = 142: ShiftY = 106 - CupX = 338: CupY = 143 - REDIM SBox(1 TO 8600) - DEF SEG = VARSEG(SBox(1)) - BLOAD "mgspec9.bsv", VARPTR(SBox(1)) - DEF SEG - REDIM MapBOX(117, 151) - MapXD = 117: MapYD = 151 -END SELECT - -FileNAME$ = "mglevel" + LTRIM$(STR$(Level)) + ".map" -DEF SEG = VARSEG(MapBOX(1, 1)) -BLOAD FileNAME$, VARPTR(MapBOX(1, 1)) -DEF SEG - -END SUB - -SUB SetPALETTE (OnOFF) - -SELECT CASE OnOFF - CASE 0 - OUT &H3C8, 0 - FOR n = 1 TO 48 - OUT &H3C9, 0 - NEXT n - CASE 1 - RESTORE PaletteDATA - OUT &H3C8, 0 - FOR n = 1 TO 48 - READ Intensity - Intensity = Intensity + 10 - IF Intensity > 63 THEN Intensity = 63 - OUT &H3C9, Intensity - NEXT n - OUT &H3C8, 0 - OUT &H3C9, 0 - OUT &H3C9, 0 - OUT &H3C9, 18 - 'RESTORE PaletteDATA - 'OUT &H3C8, 0 - 'FOR n = 1 TO 48 - 'READ Intensity: OUT &H3C9, Intensity - 'NEXT n -END SELECT - -END SUB - -SUB SetSCREEN - -SetPALETTE 0 -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mgsplsh1.bsv", VARPTR(PuttBOX(16100)) -DEF SEG -PUT (154, 140), PuttBOX(16100), PSET -SetPALETTE 1 -SHELL "MGTheme.EXE" -Interval .75 - -SetPALETTE 0 -CLS - -'Screen borders -LINE (5, 5)-(634, 474), 2, B -LINE (10, 10)-(629, 469), 2, B - -'Load title -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mgtitle.bsv", VARPTR(PuttBOX(1)) -DEF SEG -PUT (20, 20), PuttBOX(), PSET - -'Load golfball image and mask -DEF SEG = VARSEG(BallBOX(1)) -BLOAD "mgball.bsv", VARPTR(BallBOX(1)) -DEF SEG - -'Load control panel -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mgctrl2.bsv", VARPTR(PuttBOX(1)) -DEF SEG -PUT (438, 27), PuttBOX(), PSET - -'Load digital numbers -DEF SEG = VARSEG(DigitBOX(1)) -BLOAD "mgdigits.bsv", VARPTR(DigitBOX(1)) -DEF SEG - -Digital - -'Load control slider images -DEF SEG = VARSEG(SliderBOX(1)) -BLOAD "mgctrl.bsv", VARPTR(SliderBOX(1)) -DEF SEG -PUT (535, 316), SliderBOX(), PSET -PUT (573, 316), SliderBOX(), PSET - -'LocateMOUSE 563, 350 - -ERASE PuttBOX - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB - -SUB TopFIVE - -DEF SEG = VARSEG(PuttBOX(1)) -BLOAD "mgfinal3.bsv", VARPTR(PuttBOX(1)) -DEF SEG -PUT (110, 159), PuttBOX(), PSET - -TopY = 223 -FOR n = 1 TO 5 - IF ScoreDATA(n).PlayerSCORE <> 0 THEN - PrintSTRING 136, TopY, RTRIM$(ScoreDATA(n).PlayerNAME) - PrintSTRING 276, TopY, ScoreDATA(n).PlayDATE - PrintSTRING 354, TopY, LTRIM$(STR$(ScoreDATA(n).PlayerSCORE)) - IF ScoreDATA(n).PlayerPAR = 0 THEN - PrintSTRING 392, TopY, "Par" - ELSE - PrintSTRING 393, TopY, LTRIM$(STR$(ScoreDATA(n).PlayerPAR)) - END IF - END IF - TopY = TopY + 19 -NEXT n - -END SUB - -SUB Train -STATIC y, yy, Route, TrackINDEX, Count -STATIC StartINDEX, StopINDEX, TrainX, TrackY, UpDOWN -SHARED SlowTRAIN, Putted, BoxCAR, BallIN, StopTRAIN - -SELECT CASE Direction - CASE 0 - 'Load Train" - DEF SEG = VARSEG(LilBOX(1)) - BLOAD "mgtrupe.lin", VARPTR(LilBOX(1)) - DEF SEG - DEF SEG = VARSEG(LilBOX2(1)) - BLOAD "mgtrupf.lin", VARPTR(LilBOX2(1)) - DEF SEG - StartINDEX = 1: StopINDEX = 1 - TrackINDEX = 13: TrackY = 433 - TrainX = 265: UpDOWN = 1 - y = 365: Route = -1 - Direction = 1 - CASE 1 - IF StopTRAIN = 0 THEN - IF y > 184 THEN yy = y ELSE yy = 184 - IF Count AND StartINDEX < 403 THEN StartINDEX = StartINDEX + 6 - IF yy = 184 THEN Count = 1 - IF SlowTRAIN AND Putted = 0 THEN WAIT &H3DA, 8 - GOSUB PutTRAIN - IF y > 298 AND StopINDEX < 403 THEN StopINDEX = StopINDEX + 6 - IF y MOD 12 = 0 THEN SOUND 12000, .05 - TrackINDEX = TrackINDEX - 6 - IF TrackINDEX = -5 THEN TrackINDEX = 31 - IF y < 298 THEN PUT (TrainX, TrackY), TraxBOX(TrackINDEX), PSET - IF y < 126 THEN LINE (TrainX, TrackY)-(TrainX + 14, TrackY), 0 - TrackY = TrackY - 1 - y = y - 1 - IF y > 227 AND y < 246 THEN - BoxCAR = 1 - ELSE - BoxCAR = 0 - END IF - IF y = 115 THEN - LINE (265, 184)-(279, 185), 0, B - Count = 0 - Direction = 2 - END IF - END IF - CASE 2 - 'Load Train" - DEF SEG = VARSEG(LilBOX(1)) - BLOAD "mgtrdne.lin", VARPTR(LilBOX(1)) - DEF SEG - DEF SEG = VARSEG(LilBOX2(1)) - BLOAD "mgtrdnf.lin", VARPTR(LilBOX2(1)) - DEF SEG - StartINDEX = 1: StopINDEX = 1 - TrackINDEX = 13: TrackY = 116 - TrainX = 198: UpDOWN = -1 - y = 184 - Route = 1 - Direction = 3 - CASE 3 - IF y < 365 THEN yy = y ELSE yy = 365 - IF Count AND StartINDEX < 403 THEN StartINDEX = StartINDEX + 6 - IF yy = 365 THEN Count = 1 - IF SlowTRAIN AND Putted = 0 THEN WAIT &H3DA, 8 - GOSUB PutTRAIN - IF y > 183 AND StopINDEX < 403 THEN StopINDEX = StopINDEX + 6 - IF y MOD 12 = 0 THEN SOUND 12000, .05 - IF y <= 261 AND y > 250 THEN LINE (TrainX, TrackY)-(TrainX + 14, TrackY), 0, B - IF y > 261 THEN PUT (TrainX, TrackY), TraxBOX(TrackINDEX), PSET - TrackINDEX = TrackINDEX + 6 - IF TrackINDEX = 37 THEN TrackINDEX = 1 - TrackY = TrackY + 1 - y = y + 1 - IF y = 433 THEN - PUT (TrainX, TrackY), TraxBOX(TrackINDEX), PSET - Count = 0 - Direction = 0 - END IF - IF BallIN AND y > 335 THEN BallIN = 0 -END SELECT - -EXIT SUB - -PutTRAIN: -Index = StartINDEX -FOR Reps = 1 TO 68 - SELECT CASE UpDOWN - CASE 1 - SELECT CASE BallIN - CASE 0: PUT (TrainX, yy), LilBOX(Index), PSET - CASE 1: PUT (TrainX, yy), LilBOX2(Index), PSET - END SELECT - CASE -1 - SELECT CASE BallIN - CASE 0: PUT (TrainX, yy), LilBOX(Index), PSET - CASE 1: PUT (TrainX, yy), LilBOX2(Index), PSET - END SELECT - END SELECT - IF Index < StopINDEX THEN - Index = Index + 6 - yy = yy + UpDOWN - END IF -NEXT Reps -RETURN - -END SUB - -SUB Traps -STATIC StartTIME#, Trap -SHARED StartTRAPS - -IF StartTRAPS = 0 THEN - PUT (235, 218), SBox(681), PSET - PLAY "MBT220L64O0CO6B" - Trap = 1 - StartTIME# = TIMER - StartTRAPS = 1 -END IF - -IF TIMER - StartTIME# > 1 THEN GOSUB Trap - -EXIT SUB - -DropBALL2: -SELECT CASE Drop - CASE 1 - Sy = 158: Sy2 = 175 - SI = 461 - MapX! = 117 - MapY! = 19 - GET (235, 158)-(252, 175), SBox(851) - CASE 2 - Sy = 188: Sy2 = 205 - SI = 571 - MapX! = 117 - MapY! = 34 - GET (235, 188)-(252, 205), SBox(851) - CASE 3 - Sy = 218 - Sy2 = 235 - SI = 681 - MapX! = 117 - MapY! = 49 - GET (235, 218)-(252, 235), SBox(851) -END SELECT -PUT (235, Sy), SBox(), AND -PUT (235, Sy), SBox(221), XOR -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (235, Sy), SBox(), AND -PUT (235, Sy), SBox(331), XOR -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (235, Sy), SBox(SI), PSET -PLAY "MBT220L64O2AP32FP32D" -Interval 1 -GET (270, Sy2)-(274, Sy2 + 11), SBox(800) -PUT (270, Sy2), SBox(441), PSET -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (270, Sy2), SBox(800), PSET -IncX! = .25 -IncY! = 0 -BallX = MapX! * 2 + 42 -BallY = MapY! * 2 + 141 -GET (313, BallY - 13)-(339, BallY + 13), PutterBOX() -GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) -DO - IF TIMER > StartTIME# + 1 THEN GOSUB Trap - PUT (BallX - 5, BallY - 5), BallBOX(450), PSET - MapX! = MapX! + IncX! - BallX = MapX! * 2 + 42 - BallY = MapY! * 2 + 141 - GET (BallX - 5, BallY - 5)-(BallX + 5, BallY + 5), BallBOX(450) - PUT (BallX - 5, BallY - 5), BallBOX(201), AND - PUT (BallX - 5, BallY - 5), BallBOX() - WAIT &H3DA, 8 - IncX! = IncX! * .994 -LOOP WHILE IncX! > .1 -PUT (BallX - 13, BallY - 13), PutterBOX(), PSET -PUT (BallX - 5, BallY - 5), BallBOX(201), AND -PUT (BallX - 5, BallY - 5), BallBOX() -GET (BallX - 13, BallY - 13)-(BallX + 13, BallY + 13), PutterBOX() -IncX! = 0 -RETURN - -Trap: -Count& = Count& + 1 -SELECT CASE Count& MOD 3 - CASE 0 - PUT (235, 188), SBox(1111), PSET - PUT (235, 218), SBox(461), PSET - Drop = 3 - IF MapBOX(MapX!, MapY!) = -5 THEN GOSUB DropBALL2 - CASE 1 - PUT (235, 218), SBox(1221), PSET - PUT (235, 158), SBox(571), PSET - Drop = 1 - IF MapBOX(MapX!, MapY!) = -1 THEN GOSUB DropBALL2 - CASE 2 - PUT (235, 158), SBox(1001), PSET - PUT (235, 188), SBox(681), PSET - Drop = 2 - IF MapBOX(MapX!, MapY!) = -3 THEN GOSUB DropBALL2 -END SELECT -PLAY "MBT220L64O0CO6B" -StartTIME# = TIMER -PUT (BallX - 5, BallY - 5), BallBOX(201), AND -PUT (BallX - 5, BallY - 5), BallBOX() -RETURN - -END SUB - diff --git a/programs/samples/thebob/minigolf/mg.fbs b/programs/samples/thebob/minigolf/mg.fbs deleted file mode 100644 index 77803ec14..000000000 Binary files a/programs/samples/thebob/minigolf/mg.fbs and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mg.ico b/programs/samples/thebob/minigolf/mg.ico deleted file mode 100644 index a0063551c..000000000 Binary files a/programs/samples/thebob/minigolf/mg.ico and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgball.bsv b/programs/samples/thebob/minigolf/mgball.bsv deleted file mode 100644 index 0a08b2f25..000000000 Binary files a/programs/samples/thebob/minigolf/mgball.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgctrl.bsv b/programs/samples/thebob/minigolf/mgctrl.bsv deleted file mode 100644 index 6af3921a5..000000000 Binary files a/programs/samples/thebob/minigolf/mgctrl.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgctrl2.bsv b/programs/samples/thebob/minigolf/mgctrl2.bsv deleted file mode 100644 index 3d74dd925..000000000 Binary files a/programs/samples/thebob/minigolf/mgctrl2.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgdigits.bsv b/programs/samples/thebob/minigolf/mgdigits.bsv deleted file mode 100644 index 045bd1450..000000000 Binary files a/programs/samples/thebob/minigolf/mgdigits.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgfinal1.bsv b/programs/samples/thebob/minigolf/mgfinal1.bsv deleted file mode 100644 index b454f206e..000000000 Binary files a/programs/samples/thebob/minigolf/mgfinal1.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgfinal2.bsv b/programs/samples/thebob/minigolf/mgfinal2.bsv deleted file mode 100644 index a099b39cd..000000000 Binary files a/programs/samples/thebob/minigolf/mgfinal2.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgfinal3.bsv b/programs/samples/thebob/minigolf/mgfinal3.bsv deleted file mode 100644 index 411cfdecb..000000000 Binary files a/programs/samples/thebob/minigolf/mgfinal3.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgfinal4.bsv b/programs/samples/thebob/minigolf/mgfinal4.bsv deleted file mode 100644 index bc4c2319f..000000000 Binary files a/programs/samples/thebob/minigolf/mgfinal4.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgfinal5.bsv b/programs/samples/thebob/minigolf/mgfinal5.bsv deleted file mode 100644 index 037ad19a7..000000000 Binary files a/programs/samples/thebob/minigolf/mgfinal5.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgfnums.bsv b/programs/samples/thebob/minigolf/mgfnums.bsv deleted file mode 100644 index beaa79b23..000000000 Binary files a/programs/samples/thebob/minigolf/mgfnums.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mghelp1.bsv b/programs/samples/thebob/minigolf/mghelp1.bsv deleted file mode 100644 index 4acf6c541..000000000 Binary files a/programs/samples/thebob/minigolf/mghelp1.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mghelp2.bsv b/programs/samples/thebob/minigolf/mghelp2.bsv deleted file mode 100644 index dc9cd42fc..000000000 Binary files a/programs/samples/thebob/minigolf/mghelp2.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglev5b.map b/programs/samples/thebob/minigolf/mglev5b.map deleted file mode 100644 index 0ed04b414..000000000 Binary files a/programs/samples/thebob/minigolf/mglev5b.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel1.bsv b/programs/samples/thebob/minigolf/mglevel1.bsv deleted file mode 100644 index d734b3dee..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel1.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel1.map b/programs/samples/thebob/minigolf/mglevel1.map deleted file mode 100644 index cb7f626ee..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel1.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel2.bsv b/programs/samples/thebob/minigolf/mglevel2.bsv deleted file mode 100644 index cd6efd7ee..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel2.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel2.map b/programs/samples/thebob/minigolf/mglevel2.map deleted file mode 100644 index 2d7ff25a3..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel2.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel3.bsv b/programs/samples/thebob/minigolf/mglevel3.bsv deleted file mode 100644 index 304037d21..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel3.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel3.map b/programs/samples/thebob/minigolf/mglevel3.map deleted file mode 100644 index 8595a1c08..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel3.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel4.bsv b/programs/samples/thebob/minigolf/mglevel4.bsv deleted file mode 100644 index d781a36e0..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel4.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel4.map b/programs/samples/thebob/minigolf/mglevel4.map deleted file mode 100644 index 4ae9a6709..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel4.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel5.bsv b/programs/samples/thebob/minigolf/mglevel5.bsv deleted file mode 100644 index b8226f6a4..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel5.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel5.map b/programs/samples/thebob/minigolf/mglevel5.map deleted file mode 100644 index e5a640857..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel5.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel6.bsv b/programs/samples/thebob/minigolf/mglevel6.bsv deleted file mode 100644 index c8a698d7d..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel6.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel6.map b/programs/samples/thebob/minigolf/mglevel6.map deleted file mode 100644 index 1f692584f..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel6.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel7.bsv b/programs/samples/thebob/minigolf/mglevel7.bsv deleted file mode 100644 index dcd037609..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel7.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel7.map b/programs/samples/thebob/minigolf/mglevel7.map deleted file mode 100644 index 131d487e3..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel7.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel8.bsv b/programs/samples/thebob/minigolf/mglevel8.bsv deleted file mode 100644 index 971589031..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel8.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel8.map b/programs/samples/thebob/minigolf/mglevel8.map deleted file mode 100644 index 1c7daf71d..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel8.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel9.bsv b/programs/samples/thebob/minigolf/mglevel9.bsv deleted file mode 100644 index b874db1b3..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel9.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mglevel9.map b/programs/samples/thebob/minigolf/mglevel9.map deleted file mode 100644 index 653b43852..000000000 Binary files a/programs/samples/thebob/minigolf/mglevel9.map and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgnums.fbs b/programs/samples/thebob/minigolf/mgnums.fbs deleted file mode 100644 index 86d8ad3e9..000000000 Binary files a/programs/samples/thebob/minigolf/mgnums.fbs and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgover.dat b/programs/samples/thebob/minigolf/mgover.dat deleted file mode 100644 index 5b2d6ec1d..000000000 --- a/programs/samples/thebob/minigolf/mgover.dat +++ /dev/null @@ -1,15738 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -1 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -3 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -1 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -1 -1 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -3 -3 -3 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -1 -1 -1 -0 -0 -1 -1 -1 -1 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -1 -1 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -4 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -0 -0 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -3 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -0 -3 -3 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -3 -3 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -7 -7 -7 -7 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -7 -7 -7 -7 -7 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -3 -7 -7 -7 -7 -7 -7 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -3 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -3 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -7 -7 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -7 -7 -7 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -7 -7 -7 -7 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -1 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -0 -3 -3 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -1 -1 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -4 -4 -4 -4 -4 -1 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -3 -7 -4 -4 -4 -4 -1 -1 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -3 -3 -7 -4 -4 -4 -4 -1 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -3 -0 -3 -3 -7 -7 -4 -4 -4 -1 -1 -0 -0 -1 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -3 -3 -7 -7 -7 -4 -4 -4 -1 -0 -0 -0 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -3 -3 -0 -0 -3 -3 -7 -7 -7 -7 -4 -4 -1 -1 -0 -0 -1 -1 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -3 -3 -3 -7 -7 -7 -7 -7 -4 -1 -1 -0 -0 -0 -1 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -3 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -3 -3 -3 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -3 -3 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -0 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -7 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -1 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -7 -7 -7 -7 -4 -4 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -3 -3 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -3 -1 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -3 -3 -4 -4 -4 -4 -4 -1 -0 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -3 -7 -4 -4 -4 -4 -1 -1 -0 -0 -1 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -3 -3 -7 -4 -4 -4 -4 -1 -0 -0 -1 -1 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -3 -3 -0 -3 -3 -7 -7 -4 -4 -4 -1 -1 -0 -0 -1 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -0 -0 -3 -3 -7 -7 -7 -4 -4 -4 -1 -0 -0 -0 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -3 -3 -0 -0 -3 -3 -7 -7 -7 -7 -4 -4 -1 -1 -0 -0 -1 -1 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -0 -3 -3 -3 -7 -7 -7 -7 -7 -4 -1 -1 -0 -0 -0 -1 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -1 -1 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -1 -1 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -4 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -1 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -1 -1 -1 -0 -0 -0 -0 -0 -0 -1 -4 -4 -4 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -4 -4 -1 -0 -0 -0 -0 -0 -0 -1 -1 -4 -4 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -7 -7 -7 -4 -4 -1 -1 -0 -0 -0 -0 -0 -0 -1 -4 -1 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -4 -4 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -4 -1 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -1 -1 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -7 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -7 -7 -7 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -7 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -3 -3 -3 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/minigolf/mgspec2.bsv b/programs/samples/thebob/minigolf/mgspec2.bsv deleted file mode 100644 index ea69a6cc6..000000000 Binary files a/programs/samples/thebob/minigolf/mgspec2.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgspec4.bsv b/programs/samples/thebob/minigolf/mgspec4.bsv deleted file mode 100644 index b7fd9ab92..000000000 Binary files a/programs/samples/thebob/minigolf/mgspec4.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgspec5.bsv b/programs/samples/thebob/minigolf/mgspec5.bsv deleted file mode 100644 index 738e00b9c..000000000 Binary files a/programs/samples/thebob/minigolf/mgspec5.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgspec7.bsv b/programs/samples/thebob/minigolf/mgspec7.bsv deleted file mode 100644 index 491b20c58..000000000 Binary files a/programs/samples/thebob/minigolf/mgspec7.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgspec9.bsv b/programs/samples/thebob/minigolf/mgspec9.bsv deleted file mode 100644 index 67e1a0368..000000000 Binary files a/programs/samples/thebob/minigolf/mgspec9.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgsplsh1.bsv b/programs/samples/thebob/minigolf/mgsplsh1.bsv deleted file mode 100644 index c42a88293..000000000 Binary files a/programs/samples/thebob/minigolf/mgsplsh1.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgsplsh2.bsv b/programs/samples/thebob/minigolf/mgsplsh2.bsv deleted file mode 100644 index 0356afa40..000000000 Binary files a/programs/samples/thebob/minigolf/mgsplsh2.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgthanks.dat b/programs/samples/thebob/minigolf/mgthanks.dat deleted file mode 100644 index 5e989189e..000000000 --- a/programs/samples/thebob/minigolf/mgthanks.dat +++ /dev/null @@ -1,8229 +0,0 @@ -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -8 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -0 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -0 -8 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -8 -8 -0 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -8 -8 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -8 -0 -0 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -8 -8 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -8 -8 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -8 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 diff --git a/programs/samples/thebob/minigolf/mgtitle.bsv b/programs/samples/thebob/minigolf/mgtitle.bsv deleted file mode 100644 index 7844743ef..000000000 Binary files a/programs/samples/thebob/minigolf/mgtitle.bsv and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgtrack.lin b/programs/samples/thebob/minigolf/mgtrack.lin deleted file mode 100644 index 5465a5dd5..000000000 Binary files a/programs/samples/thebob/minigolf/mgtrack.lin and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgtrdne.lin b/programs/samples/thebob/minigolf/mgtrdne.lin deleted file mode 100644 index e946b5b16..000000000 Binary files a/programs/samples/thebob/minigolf/mgtrdne.lin and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgtrdnf.lin b/programs/samples/thebob/minigolf/mgtrdnf.lin deleted file mode 100644 index 98b5a8653..000000000 Binary files a/programs/samples/thebob/minigolf/mgtrdnf.lin and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgtrupe.lin b/programs/samples/thebob/minigolf/mgtrupe.lin deleted file mode 100644 index 823b43436..000000000 Binary files a/programs/samples/thebob/minigolf/mgtrupe.lin and /dev/null differ diff --git a/programs/samples/thebob/minigolf/mgtrupf.lin b/programs/samples/thebob/minigolf/mgtrupf.lin deleted file mode 100644 index 8d1c39b8f..000000000 Binary files a/programs/samples/thebob/minigolf/mgtrupf.lin and /dev/null differ diff --git a/programs/samples/thebob/monopoly/mboard.bas b/programs/samples/thebob/monopoly/mboard.bas deleted file mode 100644 index fda859b39..000000000 --- a/programs/samples/thebob/monopoly/mboard.bas +++ /dev/null @@ -1,679 +0,0 @@ -DECLARE SUB SetBOARD () -DECLARE SUB PlayAREA () -DECLARE SUB Opening () -DECLARE SUB GotoJAIL (GamePIECE$) -DECLARE FUNCTION RollDICE% (Row%, Col%) - -TYPE CharTYPE -Char AS INTEGER -Colr AS STRING * 2 -END TYPE -DIM SHARED Board(1 TO 3000) AS CharTYPE -DIM SHARED BackCOLOR% -DIM SHARED Doubles% -BackCOLOR% = 7 - -CONST FALSE = 0: CONST TRUE = NOT FALSE - -WIDTH 80, 50 -CLS - -SetBOARD -Opening -PlayAREA -LOCATE 5, 54: COLOR 4, 7: PRINT CHR$(21) -InJAIL = FALSE - -RANDOMIZE TIMER - -DO -k$ = UCASE$(INKEY$) -SELECT CASE k$ -CASE "D" -LOCATE 5, 54: COLOR 4, 7: PRINT CHR$(21) -LOCATE 45, 6: COLOR 8, 7: PRINT CHR$(186) -InJAIL = FALSE -LOCATE 22, 66: COLOR 1 -PRINT STRING$(8, 219) -Doubles% = FALSE -DiceTOTAL% = RollDICE%(14, 14) -COLOR 15, 1: LOCATE 28, 64 -PRINT "You rolled"; DiceTOTAL% -IF Doubles% = TRUE THEN COLOR 13, 1: LOCATE 22, 66: PRINT "DOUBLES!" -CASE "J" -'GO TO JAIL routine (set game piece value to suit sentenced player) -IF InJAIL = FALSE THEN -GamePIECE$ = CHR$(21) 'for example -GotoJAIL GamePIECE$ -InJAIL = TRUE -END IF -CASE CHR$(27) -SYSTEM -END SELECT -LOOP - -TitleDATA: -DATA "ÛÛÿÛÛ ÛÛÛ ÛÿÿÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÿÿÛ Û" -DATA "Û Û Û Û Û ÛÛ Û Û Û Û Û Û ÛÿÛ ÿÛ Û" -DATA "Û Û Û Û Û ÛÛ Û Û Û Û Û Û Û ÛÿÿÛ Û" -DATA "Û Û Û Û Û Û ÛÛ Û Û ÛÛÛ Û Û ÛÿÿÿÛ" -DATA "Û Û Û Û Û ÛÿÛÛ Û Û ÛÿÿÿÛ Û ÛÿÿÿÛ" -DATA "Û Û Û ÛÛÛ Û ÿÛ ÛÛÛ ÛÿÿÿÛÛÛ ÛÛÛ Û" - -SUB GotoJAIL (GamePIECE$) -Row = 5: Col = 54 'go to jail square - -LOCATE 5, 54: COLOR 7, 7: PRINT CHR$(219) - -DO -IF OldCHAR <> 0 THEN -Fore% = VAL("&H" + MID$(OldCOLR$, 2, 1)) -Back% = VAL("&H" + MID$(OldCOLR$, 1, 1)) -COLOR Fore%, Back% -LOCATE OldROW, OldCOL: PRINT CHR$(OldCHAR) -END IF -IF Col MOD 6 THEN Row = Row + 1 -Col = Col - 1 - -OldCHAR = SCREEN(Row, Col) -OldCOLR$ = HEX$(SCREEN(Row, Col, 1)) -OldROW = Row: OldCOL = Col - -LOCATE Row, Col: COLOR 4, 7: PRINT GamePIECE$ -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -LOOP UNTIL Col = 6 'player in jail - -END SUB - -SUB Opening - -COLOR 1, 7 -LOCATE 19, 32: PRINT "W E L C O M Eÿÿ T O" -LOCATE 30, 30: PRINT "PRESS ANY KEY TO BEGIN..." - -a$ = "ÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿÿ*ÿ" -COLOR 14, 1 -DO -k$ = INKEY$ -IF LEN(k$) THEN EXIT DO -FOR a = 1 TO 3 -LOCATE 1, a -PRINT a$; -LOCATE 50, 4 - a -PRINT a$; -FOR y = 50 - a TO 4 - a STEP -3 -LOCATE y, 1: PRINT "*"; -LOCATE y + 1, 1: PRINT " "; -LOCATE 50 - y, 80: PRINT " "; -LOCATE 51 - y, 80: PRINT "*"; -NEXT y -FOR Reps = 1 TO 5 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -NEXT Reps -NEXT a -LOCATE 2, 1: PRINT " ": LOCATE 49, 80: PRINT " "; -LOCATE 1, 79: PRINT " ": LOCATE 50, 2: PRINT " "; -LOOP - -END SUB - -SUB PlayAREA - -COLOR , 1 -CLS -FOR Row = 2 TO 48 -FOR Col = 2 TO 59 -Count = Count + 1 -LOCATE Row, Col -Colr$ = Board(Count).Colr -Fore% = VAL("&H" + MID$(Colr$, 2, 1)) -Back% = VAL("&H" + MID$(Colr$, 1, 1)) -COLOR Fore%, Back% -PRINT CHR$(Board(Count).Char); -NEXT Col -NEXT Row - -COLOR 7, 1 -FOR Row = 2 TO 48 -LOCATE Row, 1: PRINT CHR$(179); -LOCATE Row, 80: PRINT CHR$(179); -NEXT Row -LOCATE 1, 2: PRINT STRING$(78, 196); -LOCATE 49, 2: PRINT STRING$(78, 196); - -LOCATE 1, 1: PRINT CHR$(218); -LOCATE 1, 80: PRINT CHR$(191); -LOCATE 49, 1: PRINT CHR$(192); -LOCATE 49, 80: PRINT CHR$(217); - -COLOR 5 -FOR Row = 3 TO 19 -LOCATE Row, 60: PRINT CHR$(186) -LOCATE Row, 79: PRINT CHR$(186) -NEXT Row -LOCATE 2, 61: PRINT STRING$(18, 205) -LOCATE 20, 61: PRINT STRING$(18, 205) - -LOCATE 2, 60: PRINT CHR$(201) -LOCATE 2, 79: PRINT CHR$(187) -LOCATE 20, 60: PRINT CHR$(200) -LOCATE 20, 79: PRINT CHR$(188) - -LOCATE 17, 61: PRINT CHR$(179); -LOCATE 17, 78: PRINT CHR$(179); -LOCATE 16, 62: PRINT STRING$(16, 196); -LOCATE 18, 62: PRINT STRING$(16, 196); -LOCATE 16, 61: PRINT CHR$(218); -LOCATE 16, 78: PRINT CHR$(191); -LOCATE 18, 61: PRINT CHR$(192); -LOCATE 18, 78: PRINT CHR$(217); - -COLOR 7 -FOR Row = 22 TO 28 -LOCATE Row, 60: PRINT CHR$(179) -LOCATE Row, 79: PRINT CHR$(179) -NEXT Row -LOCATE 21, 61: PRINT STRING$(18, 196) -LOCATE 29, 61: PRINT STRING$(18, 196) - -LOCATE 21, 60: PRINT CHR$(218) -LOCATE 21, 79: PRINT CHR$(191) -LOCATE 29, 60: PRINT CHR$(192) -LOCATE 29, 79: PRINT CHR$(217) - -COLOR 5 -FOR Row = 31 TO 47 -LOCATE Row, 60: PRINT CHR$(186) -LOCATE Row, 79: PRINT CHR$(186) -NEXT Row -LOCATE 30, 61: PRINT STRING$(18, 205) -LOCATE 48, 61: PRINT STRING$(18, 205) - -LOCATE 30, 60: PRINT CHR$(201) -LOCATE 30, 79: PRINT CHR$(187) -LOCATE 48, 60: PRINT CHR$(200) -LOCATE 48, 79: PRINT CHR$(188) - -LOCATE 33, 61: PRINT CHR$(179); -LOCATE 33, 78: PRINT CHR$(179); -LOCATE 32, 62: PRINT STRING$(16, 196); -LOCATE 34, 62: PRINT STRING$(16, 196); -LOCATE 32, 61: PRINT CHR$(218); -LOCATE 32, 78: PRINT CHR$(191); -LOCATE 34, 61: PRINT CHR$(192); -LOCATE 34, 78: PRINT CHR$(217); - -COLOR 15, 1 -LOCATE 19, 65: PRINT "-PLAYER 1-" -LOCATE 31, 65: PRINT "-PLAYER 2-" -COLOR 10, 1 -LOCATE 17, 65: PRINT "$1,500.00" -LOCATE 33, 65: PRINT "$1,500.00" - -COLOR 13, 7 -LOCATE 10, 38: PRINT "PRESS [D]" -LOCATE 11, 38: PRINT "TO ROLL DICE" -LOCATE 12, 38: PRINT "(RESETS JAIL)" -LOCATE 14, 38: PRINT "PRESS [J]" -LOCATE 15, 38: PRINT "TO GO TO JAIL" -LOCATE 17, 38: PRINT "PRESS [ESC]" -LOCATE 18, 38: PRINT "TO EXIT" - - - - -END SUB - -FUNCTION RollDICE% (RRow%, CCol%) - -FOR ROLL = 1 TO 24 -Row = RRow% + FIX(RND * 2) - 1 -Col = CCol% + FIX(RND * 2) - 1 -Number1 = FIX(RND * 6) + 1 -Number = Number1 -GOSUB ShowDIE -GOSUB Sides -Row = RRow% + FIX(RND * 2) - 1 -Col = CCol% + 7 + FIX(RND * 2) - 1 -Number2 = FIX(RND * 6) + 1 -Number = Number2 -GOSUB ShowDIE -GOSUB Sides -PLAY "MBT160L64O6b" -FOR Slow = 1 TO 6 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -NEXT Slow -NEXT ROLL -RollDICE% = Number1 + Number2 -IF Number1 = Number2 THEN Doubles% = TRUE - -EXIT FUNCTION - -ShowDIE: -COLOR BackCOLOR% -FOR x = Col - 2 TO Col + 4 -FOR y = Row - 1 TO Row + 4 -LOCATE y, x -PRINT CHR$(219) -NEXT y -NEXT x -COLOR 15, 4 -SELECT CASE Number -CASE 1 -LOCATE Row, Col: GOSUB NoDOTS -LOCATE Row + 1, Col: GOSUB OneDOT -LOCATE Row + 2, Col: GOSUB NoDOTS -LOCATE -CASE 2 -LOCATE Row, Col: GOSUB Dot -FOR Reps = 1 TO 2: GOSUB Blank: NEXT Reps -LOCATE Row + 1, Col: GOSUB NoDOTS -LOCATE Row + 2, Col -FOR Reps = 1 TO 2: GOSUB Blank: NEXT Reps -GOSUB Dot -CASE 3 -LOCATE Row, Col: GOSUB Dot -FOR Reps = 1 TO 2: GOSUB Blank: NEXT Reps -LOCATE Row + 1, Col: GOSUB OneDOT -LOCATE Row + 2, Col -FOR Reps = 1 TO 2: GOSUB Blank: NEXT Reps -GOSUB Dot -CASE 4 -LOCATE Row, Col: GOSUB TwoDOTS -LOCATE Row + 1, Col: GOSUB NoDOTS -LOCATE Row + 2, Col: GOSUB TwoDOTS -CASE 5 -LOCATE Row, Col: GOSUB TwoDOTS -LOCATE Row + 1, Col: GOSUB OneDOT -LOCATE Row + 2, Col: GOSUB TwoDOTS -CASE 6 -LOCATE Row, Col: GOSUB TwoDOTS -LOCATE Row + 1, Col: GOSUB TwoDOTS -LOCATE Row + 2, Col: GOSUB TwoDOTS -END SELECT -RETURN - -OneDOT: -GOSUB Blank -GOSUB Dot -GOSUB Blank -RETURN - -TwoDOTS: -GOSUB Dot -GOSUB Blank -GOSUB Dot -RETURN - -NoDOTS: -FOR Reps = 1 TO 3: GOSUB Blank: NEXT Reps -RETURN - -Blank: -PRINT CHR$(32); -RETURN - -Dot: -PRINT CHR$(254); -RETURN - -Sides: -COLOR 4, BackCOLOR% -LOCATE Row, Col - 1: PRINT CHR$(222) -LOCATE Row + 1, Col - 1: PRINT CHR$(222) -LOCATE Row + 2, Col - 1: PRINT CHR$(222) -LOCATE Row, Col + 3: PRINT CHR$(221) -LOCATE Row + 1, Col + 3: PRINT CHR$(221) -LOCATE Row + 2, Col + 3: PRINT CHR$(221) -RETURN - -END FUNCTION - -SUB SetBOARD - -PALETTE 4, 36 -PALETTE 5, 29 - -OUT &H3C8, 1 -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 32 - -OUT &H3C8, 7 -OUT &H3C9, 50 -OUT &H3C9, 63 -OUT &H3C9, 50 - -OUT &H3C8, 20 -OUT &H3C9, 63 -OUT &H3C9, 48 -OUT &H3C9, 10 - -OUT &H3C8, 56 -OUT &H3C9, 35 -OUT &H3C9, 35 -OUT &H3C9, 35 - -OUT &H3C8, 59 -OUT &H3C9, 45 -OUT &H3C9, 60 -OUT &H3C9, 45 - -COLOR , 1 -CLS -COLOR 7 -FOR Row = 2 TO 47 -FOR Col = 12 TO 68 -LOCATE Row, Col -PRINT CHR$(219) -NEXT Col -NEXT Row - -COLOR 8, 7 -FOR Col = 13 TO 68 -LOCATE 2, Col -PRINT CHR$(205); -LOCATE 48, Col -PRINT CHR$(205); -NEXT Col -FOR Row = 3 TO 47 -LOCATE Row, 12 -PRINT CHR$(186); -LOCATE Row, 69 -PRINT CHR$(186); -NEXT Row - -LOCATE 2, 12: PRINT CHR$(201) -LOCATE 48, 12: PRINT CHR$(200) -LOCATE 2, 69: PRINT CHR$(187) -LOCATE 48, 69: PRINT CHR$(188) - -FOR Row = 8 TO 42 -LOCATE Row, 18 -PRINT CHR$(186) -LOCATE Row, 63 -PRINT CHR$(186) -NEXT Row -FOR Col = 19 TO 62 -LOCATE 7, Col -PRINT CHR$(205) -LOCATE 43, Col -PRINT CHR$(205) -NEXT Col - -LOCATE 7, 18: PRINT CHR$(201) -LOCATE 43, 18: PRINT CHR$(200) -LOCATE 7, 63: PRINT CHR$(187) -LOCATE 43, 63: PRINT CHR$(188) - -RESTORE TitleDATA -COLOR 4, 7 -FOR Row = 21 TO 28 -FOR Col = 24 TO 58 -LOCATE Row, Col -PRINT CHR$(219) -NEXT Col -NEXT Row - - -COLOR 15, 4 -FOR y = 22 TO 27 -READ a$ -LOCATE y, 25: PRINT a$ -NEXT y - -COLOR 8, 7 -FOR Row = 44 TO 47 -FOR Col = 18 TO 63 STEP 5 -LOCATE Row, Col: PRINT CHR$(179) -LOCATE Row - 41, Col: PRINT CHR$(179) -NEXT Col -NEXT Row -FOR Row = 7 TO 43 STEP 4 -FOR Col = 13 TO 17 -LOCATE Row, Col: PRINT CHR$(196) -LOCATE Row, Col + 51: PRINT CHR$(196) -NEXT Col -NEXT Row - -COLOR 4, 7 -LOCATE 47, 64: PRINT CHR$(27); CHR$(27); CHR$(27); "GO" -COLOR 3, 7 -FOR Col = 59 TO 62 -LOCATE 44, Col: PRINT CHR$(219) -LOCATE 44, Col - 10: PRINT CHR$(219) -LOCATE 45, Col: PRINT CHR$(223) -LOCATE 45, Col - 10: PRINT CHR$(223) -NEXT Col -COLOR 5, 7 -FOR Col = 19 TO 22 -LOCATE 44, Col: PRINT CHR$(219) -LOCATE 44, Col + 5: PRINT CHR$(219) -LOCATE 44, Col + 15: PRINT CHR$(219) -LOCATE 45, Col: PRINT CHR$(223) -LOCATE 45, Col + 5: PRINT CHR$(223) -LOCATE 45, Col + 15: PRINT CHR$(223) -NEXT Col -COLOR 4, 7 -FOR Col = 19 TO 22 -LOCATE 5, Col: PRINT CHR$(220) -LOCATE 5, Col + 10: PRINT CHR$(220) -LOCATE 5, Col + 15: PRINT CHR$(220) -LOCATE 6, Col: PRINT CHR$(219) -LOCATE 6, Col + 10: PRINT CHR$(219) -LOCATE 6, Col + 15: PRINT CHR$(219) -NEXT Col -COLOR 14, 7 -FOR Col = 44 TO 47 -LOCATE 5, Col: PRINT CHR$(220) -LOCATE 5, Col + 5: PRINT CHR$(220) -LOCATE 5, Col + 15: PRINT CHR$(220) -LOCATE 6, Col: PRINT CHR$(219) -LOCATE 6, Col + 5: PRINT CHR$(219) -LOCATE 6, Col + 15: PRINT CHR$(219) -NEXT Col - -COLOR 6 -FOR Row = 8 TO 10 -LOCATE Row, 16: PRINT CHR$(219) -LOCATE Row, 17: PRINT CHR$(219) -LOCATE Row + 4, 16: PRINT CHR$(219) -LOCATE Row + 4, 17: PRINT CHR$(219) -LOCATE Row + 12, 16: PRINT CHR$(219) -LOCATE Row + 12, 17: PRINT CHR$(219) -NEXT Row -COLOR 13 -FOR Row = 28 TO 30 -LOCATE Row, 16: PRINT CHR$(219) -LOCATE Row, 17: PRINT CHR$(219) -LOCATE Row + 4, 16: PRINT CHR$(219) -LOCATE Row + 4, 17: PRINT CHR$(219) -LOCATE Row + 12, 16: PRINT CHR$(219) -LOCATE Row + 12, 17: PRINT CHR$(219) -NEXT Row -COLOR 2 -FOR Row = 8 TO 10 -LOCATE Row, 64: PRINT CHR$(219) -LOCATE Row, 65: PRINT CHR$(219) -LOCATE Row + 4, 64: PRINT CHR$(219) -LOCATE Row + 4, 65: PRINT CHR$(219) -LOCATE Row + 12, 64: PRINT CHR$(219) -LOCATE Row + 12, 65: PRINT CHR$(219) -NEXT Row - -COLOR 1 -FOR Row = 32 TO 34 -LOCATE Row, 64: PRINT CHR$(219) -LOCATE Row, 65: PRINT CHR$(219) -LOCATE Row + 8, 64: PRINT CHR$(219) -LOCATE Row + 8, 65: PRINT CHR$(219) -NEXT Row - -COLOR 8, 7 -FOR Col = 15 TO 17 -LOCATE 44, Col -PRINT CHR$(210) -LOCATE 45, Col -PRINT CHR$(186) -LOCATE 46, Col -PRINT CHR$(208) -NEXT Col -COLOR 1: LOCATE 47, 13: PRINT "JAIL" -LOCATE 3, 65: PRINT "GOTO" -LOCATE 6, 65: PRINT "JAIL" -LOCATE 3, 13: PRINT "FREE" -LOCATE 6, 13: PRINT "PKNG" -COLOR 9 -LOCATE 36, 16: PRINT "EL" -LOCATE 37, 16: PRINT "CO" -LOCATE 38, 16: PRINT "MP" -COLOR 6 -LOCATE 44, 29: PRINT "????" -LOCATE 6, 24: PRINT "????" -LOCATE 28, 64: PRINT "??" -LOCATE 29, 64: PRINT "??" -LOCATE 30, 64: PRINT "??" -COLOR 0 -LOCATE 6, 39: PRINT "B&OR" -LOCATE 44, 39: PRINT "R-RR" -LOCATE 24, 64: PRINT "SH" -LOCATE 25, 64: PRINT "LN" -LOCATE 26, 64: PRINT "RR" -LOCATE 24, 16: PRINT "PE" -LOCATE 25, 16: PRINT "NN" -LOCATE 26, 16: PRINT "RR" -COLOR 1 -LOCATE 16, 17: PRINT "C" -LOCATE 17, 17: PRINT "O" -LOCATE 18, 17: PRINT "M" -LOCATE 16, 64: PRINT "C" -LOCATE 17, 64: PRINT "O" -LOCATE 18, 64: PRINT "M" -LOCATE 44, 54: PRINT "COMM" -COLOR 8 -LOCATE 6, 54: PRINT "WATR" -LOCATE 44, 44: PRINT "ITAX" -COLOR 13 -LOCATE 36, 64: PRINT "L" -LOCATE 37, 64: PRINT "U" -LOCATE 38, 64: PRINT "X" -COLOR 6 -LOCATE 36, 65: PRINT "T" -LOCATE 37, 65: PRINT "A" -LOCATE 38, 65: PRINT "X" - -COLOR 8 -LOCATE 3, 19: PRINT "KTY" -LOCATE 3, 29: PRINT "IND" -LOCATE 3, 34: PRINT "ILL" -LOCATE 3, 44: PRINT "ATL" -LOCATE 3, 49: PRINT "VEN" -LOCATE 3, 59: PRINT "MAR" - -LOCATE 47, 19: PRINT "CON" -LOCATE 47, 24: PRINT "VER" -LOCATE 47, 34: PRINT "ORI" -LOCATE 47, 49: PRINT "BAL" -LOCATE 47, 59: PRINT "MED" - -LOCATE 8, 68: PRINT "P" -LOCATE 9, 68: PRINT "A" -LOCATE 10, 68: PRINT "C" -LOCATE 12, 68: PRINT "N" -LOCATE 13, 68: PRINT "C" -LOCATE 14, 68: PRINT "L" -LOCATE 20, 68: PRINT "P" -LOCATE 21, 68: PRINT "E" -LOCATE 22, 68: PRINT "N" -LOCATE 32, 68: PRINT "P" -LOCATE 33, 68: PRINT "K" -LOCATE 34, 68: PRINT "P" -LOCATE 40, 68: PRINT "B" -LOCATE 41, 68: PRINT "W" -LOCATE 42, 68: PRINT "K" - -LOCATE 8, 13: PRINT "N" -LOCATE 9, 13: PRINT "E" -LOCATE 10, 13: PRINT "W" -LOCATE 12, 13: PRINT "T" -LOCATE 13, 13: PRINT "E" -LOCATE 14, 13: PRINT "N" -LOCATE 20, 13: PRINT "S" -LOCATE 21, 13: PRINT "T" -LOCATE 22, 13: PRINT "J" -LOCATE 28, 13: PRINT "V" -LOCATE 29, 13: PRINT "I" -LOCATE 30, 13: PRINT "R" -LOCATE 32, 13: PRINT "S" -LOCATE 33, 13: PRINT "A" -LOCATE 34, 13: PRINT "V" -LOCATE 40, 13: PRINT "S" -LOCATE 41, 13: PRINT "T" -LOCATE 42, 13: PRINT "C" - -COLOR 3 -FOR Row = 9 TO 41 -LOCATE Row, 19: PRINT CHR$(179) -LOCATE Row, 62: PRINT CHR$(179) -NEXT Row -FOR Col = 20 TO 61 -LOCATE 8, Col: PRINT CHR$(196) -LOCATE 42, Col: PRINT CHR$(196) -NEXT Col -LOCATE 8, 19: PRINT CHR$(218) -LOCATE 8, 62: PRINT CHR$(191) -LOCATE 42, 19: PRINT CHR$(192) -LOCATE 42, 62: PRINT CHR$(217) - - -t1$ = "°°°°°°°°°°°ÛÛÛÛÛÛÛÛ°" -t2$ = "°°°ÛÛÛÛ°°°°°Û°°°°Û°°" -t3$ = "°°°°²²°°ÛÛ°°Û°°°°Û°°" -t4$ = "°°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°" -t5$ = "°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°" -t6$ = "°°²²²²²²²²²²ÛÛÛÛÛÛ°°" -t7$ = "°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°" -t8$ = "Û±±±±ÛÛÛ±±ÛÛÛ±±ÛÛÛ°°" -t9$ = "°Û°Û°²Û²°°²Û²°°²Û²°°" -COLOR 11, 7 -LOCATE 32, 32: PRINT t1$ -LOCATE 33, 32: PRINT t2$ -LOCATE 34, 32: PRINT t3$ -LOCATE 35, 32: PRINT t4$ -LOCATE 36, 32: PRINT t5$ -LOCATE 37, 32: PRINT t6$ -LOCATE 38, 32: PRINT t7$ -LOCATE 39, 32: PRINT t8$ -LOCATE 40, 32: PRINT t9$ - -m1$ = "°°°°°Û°°°°°" -m2$ = "°°°ÛÛÛÛÛ°°°" -m3$ = "°°°Û°Û°Û°°°" -m4$ = "°°°Û°Û°°°°°" -m5$ = "°°°ÛÛÛÛÛ°°°" -m6$ = "°°°°°Û°Û°°°" -m7$ = "°°°Û°Û°Û°°°" -m8$ = "°°°ÛÛÛÛÛ°°°" -m9$ = "°°°°°Û°°°°°" -LOCATE 10, 36: PRINT m1$ -LOCATE 11, 36: PRINT m2$ -LOCATE 12, 36: PRINT m3$ -LOCATE 13, 36: PRINT m4$ -LOCATE 14, 36: PRINT m5$ -LOCATE 15, 36: PRINT m6$ -LOCATE 16, 36: PRINT m7$ -LOCATE 17, 36: PRINT m8$ -LOCATE 18, 36: PRINT m9$ - -FOR Row = 2 TO 48 -FOR Col = 12 TO 69 -Count = Count + 1 -Board(Count).Char = SCREEN(Row, Col) -Board(Count).Colr = HEX$(SCREEN(Row, Col, 1)) -NEXT Col -NEXT Row - -END SUB \ No newline at end of file diff --git a/programs/samples/thebob/pongg/pgfx.bas b/programs/samples/thebob/pongg/pgfx.bas deleted file mode 100644 index 80982db0b..000000000 --- a/programs/samples/thebob/pongg/pgfx.bas +++ /dev/null @@ -1,1055 +0,0 @@ -CHDIR ".\programs\samples\thebob\pongg" - -'**************************************************************************** -'------- PGFX.BAS ---- A utility to create graphics files for PONGG! -------- -'**************************************************************************** - -DEFINT A-Z -DECLARE SUB PrintSTRING (x, y, Prnt$, Font) -DIM SHARED Box(32000) - -SCREEN 12 -GOSUB SetPALETTE -GOSUB GetSPRITES -GOSUB DrawFONT -GOSUB GetWORDS -GOSUB GetFONT -GOSUB GetSCREEN -GOSUB GetOVERLAYS -GOSUB GetPOPUPS - -CLS -LINE (5, 5)-(634, 474), 12, B -LINE (8, 8)-(631, 471), 12, B -LINE (200, 180)-(439, 290), 12, B -LINE (197, 177)-(442, 293), 12, B -PrintSTRING 250, 212, "The graphics files for PONGG!", 1 -PrintSTRING 243, 226, "have been successfully created.", 1 -PrintSTRING 246, 250, "You can now run the program.", 1 - -a$ = INPUT$(1) -END - -GetSCREEN: -FOR x = 30 TO 600 STEP 10 - Count = Count + 1 - IF Count MOD 2 THEN Colr = 14 ELSE Colr = 4 - LINE (x, 459)-(x + 9, 460), Colr, BF -NEXT x -CIRCLE (73, 126), 30, 5 -CIRCLE (73, 126), 50, 5 -PAINT (73, 90), 5 -CIRCLE (565, 126), 30, 5 -CIRCLE (565, 126), 50, 5 -PAINT (565, 90), 5 -CIRCLE (73, 126), 60, 6 -CIRCLE (73, 126), 80, 6 -PAINT (73, 196), 6 -CIRCLE (565, 126), 60, 6 -CIRCLE (565, 126), 80, 6 -PAINT (565, 196), 6 -CIRCLE (73, 126), 90, 10 -CIRCLE (73, 126), 120, 10 -PAINT (73, 236), 10 -CIRCLE (565, 126), 90, 10 -CIRCLE (565, 126), 120, 10 -PAINT (565, 236), 10 -CIRCLE (73, 126), 25, 3 -PAINT STEP(0, 0), 3 -CIRCLE STEP(0, 0), 20, 15 -PAINT STEP(0, 0), 15 -CIRCLE STEP(0, 0), 20, 8 -CIRCLE STEP(0, 0), 16, 8 -PAINT STEP(17, 0), 8 -PrintSTRING 68, 120, "25", 2 -CIRCLE (565, 126), 25, 2 -PAINT STEP(0, 0), 2 -CIRCLE STEP(0, 0), 20, 15 -PAINT STEP(0, 0), 15 -CIRCLE STEP(0, 0), 20, 8 -CIRCLE STEP(0, 0), 16, 8 -PAINT STEP(17, 0), 8 -PrintSTRING 560, 120, "50", 2 -FOR x = 53 TO 93 - FOR y = 126 TO 146 - IF POINT(x, y) = 8 THEN PSET (x, y), 7 - IF POINT(x + 492, y) = 8 THEN PSET (x + 492, y), 7 - NEXT y -NEXT x -FOR x = 63 TO 83 - FOR y = 120 TO 136 - IF POINT(x, y) = 7 THEN PSET (x, y), 0 - IF POINT(x + 492, y) = 7 THEN PSET (x + 492, y), 0 - NEXT y -NEXT x -LINE (0, 0)-(6, 479), 0, BF -LINE (633, 0)-(639, 479), 0, BF -LINE (5, 5)-(634, 48), 5, BF -LINE (5, 468)-(634, 478), 5, BF -PrintSTRING 10, 467, "Copyright (C) 2007 by Bob Seguin", 1 -PrintSTRING 480, 467, "Email: BOBSEG@sympatico.ca", 1 -FOR x = 5 TO 634 - FOR y = 468 TO 478 - IF POINT(x, y) <> 5 THEN PSET (x, y), 12 - NEXT y -NEXT x -PUT (287, 113), Box(29000), PSET -PrintSTRING 22, 21, "REMAINING LIVES:", 2 -PrintSTRING 504, 21, "PLAYER SCORE:", 2 -FOR x = 22 TO 100 - FOR y = 20 TO 34 - IF y > 28 THEN Colr = 7 ELSE Colr = 8 - IF POINT(x, y) = 13 THEN PSET (x, y), Colr - IF POINT(x + 480, y) = 13 THEN PSET (x + 480, y), Colr - NEXT y -NEXT x -FOR x = 287 TO 360 - FOR y = 113 TO 150 - IF y > 127 THEN Colr = 7 ELSE Colr = 8 - IF POINT(x, y) <> 0 THEN PSET (x, y - 100), Colr - PSET (x, y), 0 - NEXT y -NEXT x -FOR yy = 110 TO 350 STEP 40 - FOR x = 240 TO 360 - FOR y = 0 TO 50 - IF POINT(x, y) = 7 OR POINT(x, y) = 8 THEN PSET (x, y + yy), 9 - NEXT y - NEXT x -NEXT yy -CIRCLE (27, 77), 20, 13, 1.57, 3.14 -CIRCLE (29, 79), 20, 13, 1.57, 3.14 -CIRCLE (612, 77), 20, 13, 0, 1.57 -CIRCLE (610, 79), 20, 13, 0, 1.57 -CIRCLE (29, 441), 20, 13, 3.14, 4.71 -CIRCLE (27, 443), 20, 13, 3.14, 4.71 -CIRCLE (610, 441), 20, 13, 4.71, 0 -CIRCLE (612, 443), 20, 13, 4.71, 0 -LINE (27, 57)-(612, 57), 13 -LINE (29, 59)-(610, 59), 13 -LINE (27, 463)-(612, 463), 13 -LINE (29, 461)-(610, 461), 13 -LINE (7, 77)-(7, 443), 13 -LINE (9, 79)-(9, 441), 13 -LINE (632, 77)-(632, 443), 13 -LINE (630, 79)-(630, 441), 13 -LINE (119, 132)-(520, 380), 12, B -LINE (139, 142)-(500, 370), 12, B -Count = 0 -DEF SEG = VARSEG(Box(0)) -FOR y = 0 TO 320 STEP 160 - GET (0, y)-(639, y + 159), Box() - Count = Count + 1 - FileNAME$ = "pongg" + LTRIM$(RTRIM$(STR$(Count))) + ".bsv" - BSAVE FileNAME$, VARPTR(Box(0)), 52000 -NEXT y -DEF SEG -RETURN - -DrawFONT: -RESTORE FontDATA -MaxWIDTH = 581 -MaxDEPTH = 104 -x = 0: y = 0 - -DO - READ Count, Colr - FOR Reps = 1 TO Count - PSET (x, y), Colr - x = x + 1 - IF x > MaxWIDTH THEN - x = 0 - y = y + 1 - END IF - NEXT Reps -LOOP UNTIL y > MaxDEPTH -RETURN - -GetFONT: -Index = 2 -FOR y = 32 TO 48 STEP 16 - FOR x = 0 TO 584 STEP 12 - GET (x, y)-(x + 11, y + 11), Box(Index) - PUT (x, y), Box(Index) - Index = Index + 50 - IF Index = 94 * 50 + 2 THEN EXIT FOR - NEXT x -NEXT y -Box(0) = 50 -Box(1) = 3 -FOR Index = 2 TO 93 * 50 + 2 STEP 50 - LINE (0, 200)-(20, 220), 0, BF - PUT (0, 200), Box(Index) - x1 = -1: x2 = -1 - FOR x = 0 TO 20 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x - NEXT y - NEXT x - FOR x = 20 TO 0 STEP -1 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x - NEXT y - NEXT x - GET (x1, 200)-(x2 + 1, 211), Box(Index) -NEXT Index -LINE (0, 200)-(20, 220), 0, BF -DEF SEG = VARSEG(Box(0)) -BSAVE "pongg1.fbs", VARPTR(Box(0)), 9402 -DEF SEG - -Index = 2 -FOR y = 68 TO 86 STEP 18 - FOR x = 0 TO 584 STEP 12 - GET (x, y)-(x + 11, y + 17), Box(Index) - PUT (x, y), Box(Index) - Index = Index + 75 - IF Index = 94 * 75 + 2 THEN EXIT FOR - NEXT x -NEXT y -Box(0) = 75 -Box(1) = 4 -FOR Index = 2 TO 93 * 75 + 2 STEP 75 - LINE (0, 190)-(30, 230), 0, BF - PUT (0, 200), Box(Index) - FOR Cx = 0 TO 20 - FOR Cy = 200 TO 220 - IF POINT(Cx, Cy) <> 0 THEN PSET (Cx, Cy), 8 - NEXT Cy - NEXT Cx - x1 = -1: x2 = -1 - FOR x = 0 TO 20 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x - NEXT y - NEXT x - FOR x = 20 TO 0 STEP -1 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x - NEXT y - NEXT x - GET (x1, 200)-(x2 + 1, 217), Box(Index) -NEXT Index -LINE (0, 190)-(30, 230), 0, BF -DEF SEG = VARSEG(Box(0)) -BSAVE "pongg2.fbs", VARPTR(Box(0)), 14200 -DEF SEG -Count = 0 -x = 100 -FOR PrintX = 100 TO 190 STEP 10 - x = PrintX - IF Count = 1 THEN x = x + 2 - PrintSTRING x, 100, LTRIM$(RTRIM$(STR$(Count))), 2 - Count = Count + 1 -NEXT PrintX -FOR x = 100 TO 200 - FOR y = 100 TO 114 - IF POINT(x, y) = 0 THEN PSET (x, y), 5 ELSE PSET (x, y), 1 - NEXT y -NEXT x -Index = 0 -FOR x = 100 TO 190 STEP 10 - GET (x, 100)-(x + 6, 114), Box(Index) - Index = Index + 100 -NEXT x -LINE (100, 100)-(200, 114), 0, BF -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggnms.bsv", VARPTR(Box(0)), 2000 -DEF SEG -RETURN - -GetWORDS: -GET (0, 0)-(61, 29), Box(29000) -PUT (0, 0), Box(29000) -GET (78, 0)-(186, 29), Box(30000) -PUT (78, 0), Box(30000) -GET (200, 20)-(264, 29), Box(31000) -PUT (200, 20), Box(31000) -RETURN - -GetSPRITES: -'Draw and get ball and mask -CIRCLE (200, 200), 10, 15 -PAINT (200, 200), 15 -CIRCLE (200, 200), 9, 11, 4, 1 -CIRCLE (198, 198), 9, 11, 4.5, .5 -PAINT (206, 206), 11 -GET (190, 190)-(210, 210), Box() -FOR x = 190 TO 210 - FOR y = 190 TO 210 - IF POINT(x, y) = 0 THEN PSET (x, y), 15 ELSE PSET (x, y), 0 - NEXT y -NEXT x -GET (190, 190)-(210, 210), Box(200) -LINE (190, 190)-(210, 210), 0, BF -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggbal.bsv", VARPTR(Box(0)), 800 -DEF SEG - -'Main body of paddle -LINE (301, 100)-(379, 100), 15 -LINE (301, 101)-(379, 101), 13 -LINE (301, 102)-(379, 103), 7, BF -LINE (310, 104)-(370, 105), 7, BF -LINE (320, 106)-(360, 110), 7, BF -'Round bottom corners -LINE (320, 109)-(320, 110), 0 -PSET (321, 110), 0 -LINE (360, 109)-(360, 110), 0 -PSET (359, 110), 0 -'Add rivets -FOR x = 301 TO 378 STEP 4 - PSET (x + 1, 102), 15 - PSET (x + 1, 103), 0 -NEXT x -'Red/yellow markings -LINE (339, 102)-(341, 110), 4, BF -LINE (336, 102)-(338, 110), 14, BF -LINE (333, 102)-(335, 110), 4, BF -LINE (330, 102)-(332, 110), 14, BF -LINE (342, 102)-(344, 110), 14, BF -LINE (345, 102)-(347, 110), 4, BF -LINE (348, 102)-(350, 110), 14, BF -'Lightening holes -FOR x = 331 TO 349 STEP 9 - CIRCLE (x, 106), 3, 0 - PAINT (x, 106), 0 -NEXT x -CIRCLE (324, 106), 2, 0 -PAINT (324, 106), 0 -CIRCLE (356, 106), 2, 0 -PAINT (356, 106), 0 -GET (301, 100)-(379, 110), Box() -PUT (301, 100), Box() -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggpdl.bsv", VARPTR(Box(0)), 500 -DEF SEG -RETURN - -PaletteDISPLAY: -Colr = 0 -FOR x = 0 TO 600 STEP 40 - LINE (x, 420)-(x + 39, 460), Colr, BF - Colr = Colr + 1 -NEXT x -RETURN - -GetPOPUPS: -CLS -DEF SEG = VARSEG(Box(0)) -BLOAD "ponggbak.bsv", VARPTR(Box(0)) -DEF SEG -PUT (198, 178), Box() 'largest area -GET (258, 204)-(378, 312), Box(20000) -LINE (198, 178)-(438, 327), 7, BF -LINE (198, 178)-(438, 253), 8, BF -LINE (204, 185)-(432, 312), 0, BF -LINE (204, 186)-(432, 207), 1, BF -LINE (204, 185)-(432, 312), 1, B -LINE (308, 185)-(308, 310), 1 -LINE (360, 185)-(360, 310), 1 -LINE (204, 185)-(204, 207), 0 -LINE (432, 185)-(432, 207), 0 -LINE (204, 185)-(432, 185), 0 -FOR y = 228 TO 310 STEP 21 - LINE (204, y)-(432, y), 1 -NEXT y -LINE (308, 185)-(308, 207), 0 -LINE (360, 185)-(360, 207), 0 -PrintSTRING 230, 89, "Player NAME", 2 -PrintSTRING 320, 89, "SCORE", 2 -PrintSTRING 372, 89, "Game DATE", 2 -PrintSTRING 245, 415, "PRESS ANY KEY TO CONTINUE", 1 -FOR y = 410 TO 435 - FOR x = 200 TO 440 - IF POINT(x, y) <> 0 THEN - PSET (x, y - 100), 15 - PSET (x, y), 0 - END IF - IF POINT(x, y - 324) <> 0 THEN PSET (x, y - 224), 0 - PSET (x, y - 324), 0 - NEXT x -NEXT y -GET (198, 178)-(438, 327), Box() 'largest area -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggtfv.bsv", VARPTR(Box(0)), 20000 -DEF SEG -LINE (204, 185)-(432, 312), 0, BF -LINE (204, 185)-(432, 202), 8, BF -PUT (258, 204), Box(20000), PSET -PrintSTRING 289, 183, "Instructions", 2 -PrintSTRING 215, 12, "The object of the game is to score as many", 1 -PrintSTRING 215, 24, "points as possible before losing all 5 lives.", 1 -PrintSTRING 215, 44, "The PONGG! paddle is moved by sliding the", 1 -PrintSTRING 215, 56, "mouse from side to side.", 1 -PrintSTRING 215, 76, "Each time the ball is returned you score 10", 1 -PrintSTRING 215, 88, "points. If the ball is missed it costs you a life.", 1 -FOR x = 214 TO 432 - FOR y = 12 TO 100 - IF POINT(x, y) <> 0 THEN - PSET (x, y + 200), 1 - PSET (x, y), 0 - END IF - NEXT y -NEXT x -GET (198, 178)-(438, 327), Box() 'largest area -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggin1.bsv", VARPTR(Box(0)), 20000 -DEF SEG -LINE (204, 203)-(432, 312), 0, BF -'LINE (258, 204)-(378, 312), 5, BF -PUT (258, 204), Box(20000), PSET -PrintSTRING 215, 17, "The accelerators are designed to send the", 1 -PrintSTRING 215, 29, "ball in unpredictable directions, often in-", 1 -PrintSTRING 215, 41, "creasing its speed considerably.", 1 -PrintSTRING 215, 61, "Returning a ball which has just been spun", 1 -PrintSTRING 215, 73, "from an accelerator increases your score by", 1 -PrintSTRING 215, 85, "the amount shown on that accelerator.", 1 -FOR x = 214 TO 432 - FOR y = 12 TO 100 - IF POINT(x, y) <> 0 THEN - PSET (x, y + 200), 1 - PSET (x, y), 0 - END IF - NEXT y -NEXT x -GET (198, 178)-(438, 327), Box() 'largest area -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggin2.bsv", VARPTR(Box(0)), 20000 -DEF SEG -LINE (204, 203)-(432, 312), 0, BF -PUT (258, 204), Box(20000), PSET -LINE (204, 180)-(432, 202), 8, BF -PrintSTRING 260, 183, "Instructions: options keys", 2 -PrintSTRING 236, 9, "esc:", 2 -PrintSTRING 226, 41, "space:", 2 -PrintSTRING 246, 85, "t:", 2 -PrintSTRING 258, 13, "Press the Escape key at any time", 1 -PrintSTRING 258, 25, "to QUIT.", 1 -PrintSTRING 258, 45, "Press the SPACE bar to pause the", 1 -PrintSTRING 258, 57, "game (HINT: Only pause the game", 1 -PrintSTRING 258, 69, "while the ball is moving upwards).", 1 -PrintSTRING 258, 89, "Press T to see the Top-5 list.", 1 -FOR x = 214 TO 432 - FOR y = 12 TO 100 - IF POINT(x, y) <> 0 THEN - PSET (x, y + 200), 1 - PSET (x, y), 0 - END IF - NEXT y -NEXT x -GET (198, 178)-(438, 327), Box() 'largest area -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggin3.bsv", VARPTR(Box(0)), 20000 -BLOAD "ponggbak.bsv", VARPTR(Box(0)) -DEF SEG -PUT (198, 178), Box(), PSET -PrintSTRING 71, 230, "PRESS LEFT MOUSE", 2 -PrintSTRING 78, 247, "BUTTON TO BEGIN", 2 -PrintSTRING 54, 267, "Instructions: (X)", 1 -PrintSTRING 134, 267, "Quit: (ESC)", 1 -PrintSTRING 91, 279, "Restart: (R)", 1 -FOR x = 54 TO 180 - FOR y = 230 TO 290 - IF y < 266 THEN Colr = 8 ELSE Colr = 1 - IF POINT(x, y) <> 0 THEN PSET (x + 200, y), Colr - PSET (x, y), 0 - NEXT y -NEXT x -GET (246, 230)-(389, 290), Box() -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggops.bsv", VARPTR(Box(0)), 6000 -DEF SEG -RETURN - -GetOVERLAYS: -GET (198, 178)-(438, 327), Box() 'largest area -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggbak.bsv", VARPTR(Box(0)), 20000 -DEF SEG -GET (110, 118)-(230, 136), Box() -GET (409, 118)-(529, 136), Box(2000) -PUT (210, 68), Box(31000) -FOR x = 210 TO 340 - FOR y = 66 TO 80 - IF POINT(x, y) <> 0 THEN - PSET (x - 50, y + 51), 8 - PSET (x + 204, y + 51), 8 - PSET (x, y), 0 - END IF - NEXT y -NEXT x -LINE (110, 125)-(154, 125), 15 -LINE (484, 125)-(529, 125), 15 -GET (110, 118)-(230, 136), Box(4000) -GET (409, 118)-(529, 136), Box(6000) -PUT (110, 118), Box(), PSET -PUT (409, 118), Box(2000), PSET -DEF SEG = VARSEG(Box(0)) -BSAVE "ponggacc.bsv", VARPTR(Box(0)), 16000 -DEF SEG -PUT (262, 70), Box(30000), PSET -FOR x = 262 TO 380 - FOR y = 70 TO 100 - IF POINT(x, y) <> 0 THEN PSET (x, y + 150), 4 - PSET (x, y), 0 - NEXT y -NEXT x -GET (233, 220)-(400, 310), Box(10000) -PrintSTRING 286, 65, "Record Game Score", 2 -PrintSTRING 286, 83, "New Game", 2 -PrintSTRING 286, 101, "Quit", 2 -FOR x = 286 TO 400 - FOR y = 65 TO 120 - IF POINT(x, y) <> 0 THEN PSET (x, y + 191), 1 - PSET (x, y), 0 - NEXT y -NEXT x -LINE (233, 253)-(400, 310), 12, B -FOR y = 262 TO 302 STEP 18 - LINE (262, y)-(278, y + 5), 12, BF -NEXT y -GET (233, 220)-(400, 310), Box() -FOR x = 262 TO 375 - FOR y = 256 TO 307 - IF POINT(x, y) = 1 THEN PSET (x, y), 15 - IF POINT(x, y) = 12 THEN PSET (x, y), 1 - NEXT y -NEXT x -Index = 4000 -FOR y = 256 TO 292 STEP 18 - GET (262, y)-(371, y + 15), Box(Index) - Index = Index + 1000 -NEXT y -DEF SEG = VARSEG(Box(0)) -BSAVE "pongggo1.bsv", VARPTR(Box(0)), 14000 -DEF SEG -PUT (233, 220), Box(10000), PSET -PrintSTRING 306, 83, "New Game", 2 -PrintSTRING 306, 101, "Quit", 2 -LINE (233, 253)-(398, 296), 12, B -FOR x = 286 TO 400 - FOR y = 65 TO 120 - IF POINT(x, y) <> 0 THEN PSET (x, y + 175), 1 - PSET (x, y), 0 - NEXT y -NEXT x -FOR y = 262 TO 280 STEP 18 - LINE (282, y)-(298, y + 5), 12, BF -NEXT y -GET (233, 220)-(398, 296), Box() -FOR x = 262 TO 375 - FOR y = 256 TO 292 - IF POINT(x, y) = 1 THEN PSET (x, y), 15 - IF POINT(x, y) = 12 THEN PSET (x, y), 1 - NEXT y -NEXT x -GET (262, 256)-(374, 273), Box(4000) -GET (262, 274)-(374, 291), Box(5000) -DEF SEG = VARSEG(Box(0)) -BSAVE "pongggo2.bsv", VARPTR(Box(0)), 12000 -DEF SEG -RETURN - -SetPALETTE: -DATA 12, 2, 22, 50, 37, 63, 40, 10, 50, 40, 10, 50 -DATA 53, 0, 0, 19, 2, 22, 17, 2, 22, 42, 42, 42 -DATA 55, 55, 55, 16, 9, 26, 15, 2, 22, 63, 55, 55 -DATA 25, 12, 35, 42, 42, 42, 55, 63, 9, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Colr - OUT &H3C9, Colr -NEXT n -RETURN - -FontDATA: -DATA 8,7,6,0,6,7,4,0,8,7,6,0,8,7,4,0,8,7,2,0,2,7,18,0,8,7,4,0 -DATA 6,7,4,0,6,7,1,0,5,7,4,0,10,7,11,0,6,7,4,0,2,7,6,0,2,7,2,0 -DATA 10,7,2,0,8,7,4,0,2,7,395,0,9,7,4,0,8,7,3,0,9,7,4,0,9,7,3,0 -DATA 9,7,2,0,2,7,17,0,9,7,3,0,8,7,3,0,13,7,3,0,10,7,10,0,8,7,3,0 -DATA 2,7,6,0,2,7,2,0,10,7,2,0,9,7,3,0,2,7,395,0,10,7,2,0,10,7,2,0 -DATA 10,7,2,0,10,7,2,0,10,7,2,0,2,7,16,0,10,7,2,0,10,7,2,0,14,7,2,0 -DATA 10,7,9,0,10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,2,0,2,7,395,0 -DATA 10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0,2,7,16,0,10,7,2,0 -DATA 10,7,2,0,14,7,2,0,10,7,9,0,10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0 -DATA 10,7,2,0,2,7,395,0,10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0 -DATA 2,7,16,0,10,7,2,0,10,7,2,0,14,7,2,0,10,7,9,0,10,7,2,0,2,7,6,0 -DATA 2,7,2,0,10,7,2,0,10,7,2,0,2,7,395,0,10,7,2,0,10,7,2,0,10,7,2,0 -DATA 10,7,2,0,10,7,2,0,2,7,16,0,10,7,2,0,10,7,2,0,14,7,2,0,10,7,9,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,2,0,2,7,395,0,10,7,2,0 -DATA 10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0,2,7,16,0,10,7,2,0,10,7,2,0 -DATA 14,7,2,0,10,7,9,0,10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,2,0 -DATA 2,7,395,0,10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0,10,7,2,0,2,7,16,0 -DATA 10,7,2,0,10,7,2,0,14,7,2,0,10,7,9,0,10,7,2,0,2,7,6,0,2,7,2,0 -DATA 10,7,2,0,10,7,2,0,2,7,395,0,2,7,5,0,3,7,2,0,3,7,4,0,3,7,2,0 -DATA 2,7,5,0,3,7,2,0,3,7,9,0,3,7,9,0,2,7,16,0,3,7,9,0,3,7,4,0 -DATA 3,7,2,0,2,7,3,0,3,7,3,0,3,7,2,0,2,7,17,0,3,7,4,0,3,7,2,0 -DATA 2,7,6,0,2,7,2,0,2,7,10,0,2,7,5,0,3,7,2,0,2,7,395,0,2,7,6,0 -DATA 2,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,10,0,2,7,10,0 -DATA 2,7,16,0,2,7,10,0,2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0 -DATA 2,7,17,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,10,0,2,7,6,0 -DATA 2,7,2,0,2,7,395,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,10,0,2,7,10,0,2,7,16,0,2,7,10,0,2,7,6,0,2,7,2,0 -DATA 2,7,4,0,2,7,4,0,2,7,2,0,2,7,17,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,10,0,2,7,6,0,2,7,2,0,2,7,395,0,2,7,5,0,3,7,2,0 -DATA 2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,10,0,2,7,10,0,2,7,16,0 -DATA 2,7,10,0,2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,2,7,17,0 -DATA 2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,10,0,2,7,5,0,3,7,2,0 -DATA 2,7,395,0,10,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,2,0 -DATA 6,7,2,0,2,7,2,0,6,7,2,0,2,7,16,0,2,7,2,0,6,7,2,0,10,7,2,0 -DATA 2,7,4,0,2,7,4,0,2,7,2,0,8,7,11,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,8,7,4,0,10,7,2,0,2,7,395,0,10,7,2,0,2,7,6,0,2,7,2,0 -DATA 2,7,6,0,2,7,2,0,2,7,2,0,6,7,2,0,2,7,2,0,6,7,2,0,2,7,16,0 -DATA 2,7,2,0,6,7,2,0,10,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,8,7,11,0 -DATA 2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,8,7,4,0,9,7,3,0,2,7,395,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,2,0,6,7,2,0 -DATA 2,7,2,0,6,7,2,0,2,7,16,0,2,7,2,0,6,7,2,0,10,7,2,0,2,7,4,0 -DATA 2,7,4,0,2,7,2,0,8,7,11,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0 -DATA 8,7,4,0,8,7,4,0,2,7,395,0,10,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,2,0,6,7,2,0,2,7,2,0,6,7,2,0,2,7,16,0,2,7,2,0 -DATA 6,7,2,0,10,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,8,7,11,0,2,7,6,0 -DATA 2,7,2,0,2,7,6,0,2,7,2,0,8,7,4,0,8,7,4,0,2,7,395,0,10,7,2,0 -DATA 2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,2,0,6,7,2,0,2,7,2,0 -DATA 6,7,2,0,2,7,16,0,2,7,2,0,6,7,2,0,10,7,2,0,2,7,4,0,2,7,4,0 -DATA 2,7,2,0,8,7,11,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,8,7,4,0 -DATA 9,7,3,0,2,7,395,0,10,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0 -DATA 2,7,2,0,6,7,2,0,2,7,2,0,6,7,2,0,2,7,16,0,2,7,2,0,6,7,2,0 -DATA 10,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,8,7,11,0,2,7,6,0,2,7,2,0 -DATA 2,7,6,0,2,7,2,0,8,7,4,0,10,7,2,0,2,7,395,0,9,7,3,0,2,7,6,0 -DATA 2,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0 -DATA 2,7,16,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0 -DATA 2,7,2,0,2,7,17,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,10,0 -DATA 2,7,5,0,3,7,2,0,2,7,395,0,8,7,4,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,16,0,2,7,6,0 -DATA 2,7,2,0,2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,2,7,17,0 -DATA 2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,10,0,2,7,6,0,2,7,2,0 -DATA 2,7,395,0,2,7,10,0,2,7,6,0,2,7,2,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,6,0,2,7,2,0,2,7,16,0,2,7,6,0,2,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,2,7,17,0,2,7,6,0,2,7,2,0 -DATA 2,7,6,0,2,7,2,0,2,7,10,0,2,7,6,0,2,7,2,0,2,7,395,0,2,7,10,0 -DATA 3,7,4,0,3,7,2,0,2,7,6,0,2,7,2,0,3,7,4,0,3,7,2,0,3,7,4,0 -DATA 3,7,2,0,2,7,16,0,3,7,4,0,3,7,2,0,2,7,6,0,2,7,2,0,2,7,4,0 -DATA 2,7,4,0,2,7,2,0,2,7,17,0,3,7,4,0,3,7,2,0,3,7,4,0,3,7,2,0 -DATA 2,7,10,0,2,7,6,0,2,7,2,0,2,7,16,0,2,7,25,0,2,7,350,0,2,7,10,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,20,0,10,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,9,0,10,7,2,0,10,7,2,0 -DATA 10,7,2,0,2,7,6,0,2,7,20,0,2,7,25,0,2,7,19,0,2,7,329,0,2,7,10,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,20,0,10,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,9,0,10,7,3,0,8,7,3,0 -DATA 10,7,2,0,2,7,6,0,2,7,19,0,4,7,24,0,2,7,19,0,2,7,329,0,2,7,10,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,20,0,10,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,9,0,10,7,3,0,8,7,3,0 -DATA 10,7,2,0,2,7,6,0,2,7,19,0,4,7,4,0,4,7,3,0,4,7,3,0,4,7,2,0 -DATA 2,7,2,0,4,7,2,0,3,7,2,0,4,7,2,0,3,7,2,0,4,7,2,0,3,7,317,0 -DATA 2,7,10,0,10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,20,0,10,7,2,0 -DATA 2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,9,0,10,7,4,0 -DATA 6,7,4,0,10,7,2,0,2,7,6,0,2,7,18,0,2,7,2,0,2,7,2,0,2,7,2,0 -DATA 2,7,1,0,2,7,2,0,2,7,1,0,2,7,2,0,2,7,1,0,2,7,1,0,2,7,2,0 -DATA 2,7,1,0,2,7,6,0,2,7,1,0,2,7,2,0,2,7,2,0,2,7,1,0,2,7,318,0 -DATA 2,7,10,0,10,7,2,0,2,7,6,0,2,7,2,0,10,7,2,0,10,7,2,0,2,7,16,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,9,0 -DATA 10,7,4,0,6,7,4,0,10,7,2,0,2,7,6,0,2,7,2,0,2,7,14,0,2,7,2,0 -DATA 2,7,2,0,2,7,5,0,2,7,5,0,6,7,1,0,2,7,1,0,6,7,1,0,2,7,3,0 -DATA 5,7,1,0,2,7,2,0,2,7,2,0,2,7,1,0,2,7,318,0,2,7,10,0,10,7,2,0 -DATA 2,7,6,0,2,7,2,0,10,7,2,0,10,7,2,0,2,7,16,0,10,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,9,0,10,7,5,0,4,7,5,0 -DATA 10,7,2,0,2,7,6,0,2,7,2,0,2,7,14,0,6,7,2,0,2,7,5,0,2,7,5,0 -DATA 2,7,5,0,2,7,1,0,2,7,5,0,2,7,2,0,2,7,2,0,2,7,1,0,2,7,2,0 -DATA 2,7,2,0,2,7,1,0,2,7,318,0,2,7,11,0,8,7,3,0,2,7,6,0,2,7,3,0 -DATA 8,7,4,0,8,7,3,0,2,7,17,0,8,7,3,0,2,7,6,0,2,7,2,0,2,7,4,0 -DATA 2,7,4,0,2,7,2,0,10,7,10,0,8,7,6,0,4,7,5,0,10,7,2,0,2,7,6,0 -DATA 2,7,2,0,2,7,13,0,2,7,4,0,2,7,1,0,2,7,2,0,2,7,1,0,2,7,2,0 -DATA 2,7,1,0,2,7,2,0,2,7,1,0,2,7,1,0,2,7,2,0,2,7,1,0,2,7,2,0 -DATA 2,7,2,0,2,7,1,0,2,7,2,0,2,7,2,0,2,7,1,0,2,7,318,0,2,7,12,0 -DATA 6,7,4,0,2,7,6,0,2,7,4,0,6,7,6,0,6,7,4,0,2,7,18,0,6,7,4,0 -DATA 2,7,6,0,2,7,2,0,2,7,4,0,2,7,4,0,2,7,2,0,10,7,11,0,6,7,8,0 -DATA 2,7,6,0,10,7,2,0,2,7,6,0,2,7,2,0,2,7,13,0,2,7,4,0,2,7,2,0 -DATA 4,7,3,0,4,7,3,0,4,7,2,0,2,7,2,0,4,7,2,0,2,7,3,0,5,7,2,0 -DATA 2,7,2,0,4,7,2,0,2,7,2064,0,1,7,11,0,1,7,2,0,1,7,9,0,1,7,2,0 -DATA 1,7,9,0,1,7,10,0,2,7,10,0,1,7,10,0,1,7,12,0,1,7,10,0,1,7,74,0 -DATA 1,7,9,0,3,7,10,0,1,7,10,0,3,7,9,0,3,7,11,0,1,7,8,0,5,7,8,0 -DATA 3,7,8,0,5,7,8,0,3,7,9,0,3,7,69,0,3,7,11,0,4,7,8,0,1,7,8,0 -DATA 4,7,9,0,4,7,7,0,4,7,8,0,5,7,7,0,5,7,8,0,4,7,7,0,1,7,4,0 -DATA 1,7,6,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,5,0 -DATA 1,7,5,0,1,7,4,0,1,7,7,0,4,7,7,0,5,7,8,0,4,7,1,0,1,7,11,0 -DATA 1,7,2,0,1,7,9,0,1,7,2,0,1,7,8,0,3,7,8,0,1,7,2,0,1,7,2,0 -DATA 1,7,5,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,12,0,1,7,10,0,1,7,1,0 -DATA 1,7,60,0,1,7,8,0,1,7,3,0,1,7,7,0,3,7,9,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,9,0,2,7,8,0,1,7,11,0,1,7,3,0,1,7,11,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,67,0,1,7,3,0,1,7,8,0,2,7,4,0 -DATA 2,7,6,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,4,0,1,7,6,0,1,7,3,0 -DATA 1,7,7,0,1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,6,0 -DATA 1,7,14,0,1,7,8,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,5,0,1,7,5,0 -DATA 2,7,3,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,4,0 -DATA 2,7,11,0,1,7,2,0,1,7,8,0,6,7,6,0,1,7,1,0,1,7,1,0,1,7,8,0 -DATA 2,7,2,0,1,7,6,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,12,0,1,7,11,0 -DATA 1,7,61,0,1,7,8,0,1,7,3,0,1,7,9,0,1,7,13,0,1,7,11,0,1,7,9,0 -DATA 2,7,8,0,1,7,11,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,34,0,1,7,20,0,1,7,15,0,1,7,8,0,1,7,6,0,1,7,5,0,1,7,1,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0 -DATA 1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0,1,7,1,0 -DATA 1,7,9,0,1,7,11,0,2,7,3,0,2,7,5,0,2,7,3,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,1,7,4,0,1,7,6,0,1,7,4,0,2,7,24,0,1,7,2,0,1,7,7,0 -DATA 1,7,1,0,1,7,13,0,1,7,8,0,1,7,22,0,1,7,12,0,1,7,10,0,1,7,1,0 -DATA 1,7,11,0,1,7,47,0,1,7,9,0,1,7,3,0,1,7,9,0,1,7,13,0,1,7,11,0 -DATA 1,7,8,0,1,7,1,0,1,7,8,0,4,7,8,0,1,7,14,0,1,7,8,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,12,0,1,7,12,0,1,7,22,0,1,7,14,0 -DATA 1,7,7,0,1,7,3,0,3,7,2,0,1,7,4,0,1,7,1,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0,1,7,11,0,1,7,11,0 -DATA 1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0,2,7,10,0,1,7,11,0,2,7,3,0 -DATA 2,7,5,0,1,7,1,0,1,7,2,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,1,7,4,0,2,7,24,0,1,7,2,0,1,7,8,0,2,7,12,0,1,7,9,0 -DATA 1,7,22,0,1,7,12,0,1,7,24,0,1,7,47,0,1,7,9,0,1,7,3,0,1,7,9,0 -DATA 1,7,12,0,1,7,10,0,2,7,9,0,1,7,1,0,1,7,8,0,1,7,3,0,1,7,7,0 -DATA 4,7,10,0,1,7,10,0,3,7,9,0,4,7,32,0,1,7,10,0,5,7,9,0,1,7,12,0 -DATA 1,7,8,0,1,7,2,0,1,7,2,0,1,7,2,0,1,7,3,0,1,7,3,0,1,7,6,0 -DATA 4,7,8,0,1,7,11,0,1,7,4,0,1,7,6,0,4,7,8,0,4,7,8,0,1,7,2,0 -DATA 3,7,6,0,6,7,6,0,1,7,14,0,1,7,8,0,2,7,10,0,1,7,11,0,1,7,1,0 -DATA 1,7,1,0,1,7,1,0,1,7,5,0,1,7,1,0,1,7,2,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,5,7,7,0,1,7,4,0,2,7,24,0,1,7,2,0,1,7,9,0,2,7,10,0 -DATA 1,7,9,0,1,7,1,0,1,7,1,0,1,7,19,0,1,7,12,0,1,7,22,0,5,7,19,0 -DATA 2,7,23,0,1,7,10,0,1,7,3,0,1,7,9,0,1,7,11,0,1,7,13,0,1,7,7,0 -DATA 1,7,2,0,1,7,12,0,1,7,7,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,3,0 -DATA 1,7,11,0,1,7,31,0,1,7,26,0,1,7,10,0,1,7,9,0,1,7,2,0,1,7,2,0 -DATA 1,7,2,0,1,7,3,0,1,7,3,0,1,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 1,7,4,0,1,7,6,0,1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,1,7,14,0,1,7,8,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,1,0 -DATA 1,7,1,0,1,7,1,0,1,7,5,0,1,7,2,0,1,7,1,0,1,7,6,0,1,7,4,0 -DATA 1,7,6,0,1,7,11,0,1,7,4,0,2,7,23,0,6,7,8,0,1,7,1,0,1,7,8,0 -DATA 1,7,2,0,2,7,6,0,1,7,2,0,1,7,20,0,1,7,12,0,1,7,24,0,1,7,46,0 -DATA 1,7,10,0,1,7,3,0,1,7,9,0,1,7,10,0,1,7,14,0,1,7,7,0,5,7,11,0 -DATA 1,7,7,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7,3,0,1,7,11,0,1,7,32,0 -DATA 1,7,10,0,5,7,9,0,1,7,11,0,1,7,9,0,1,7,3,0,2,7,1,0,3,7,3,0 -DATA 5,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0 -DATA 1,7,11,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,11,0,1,7,2,0 -DATA 1,7,8,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0 -DATA 1,7,3,0,2,7,6,0,1,7,4,0,1,7,6,0,1,7,11,0,1,7,2,0,1,7,1,0 -DATA 1,7,25,0,1,7,2,0,1,7,7,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0 -DATA 1,7,2,0,1,7,5,0,1,7,2,0,1,7,20,0,1,7,12,0,1,7,24,0,1,7,45,0 -DATA 1,7,11,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7,10,0 -DATA 1,7,8,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,33,0,1,7,22,0,1,7,23,0,1,7,10,0,1,7,5,0 -DATA 1,7,5,0,1,7,3,0,1,7,7,0,1,7,4,0,1,7,6,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,11,0,1,7,3,0,2,7,6,0,1,7,4,0,1,7,6,0,1,7,11,0 -DATA 1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,2,0 -DATA 1,7,5,0,1,7,3,0,2,7,6,0,1,7,4,0,1,7,6,0,1,7,11,0,1,7,3,0 -DATA 3,7,24,0,1,7,2,0,1,7,8,0,3,7,12,0,2,7,7,0,2,7,1,0,1,7,19,0 -DATA 1,7,12,0,1,7,35,0,1,7,22,0,1,7,11,0,1,7,12,0,3,7,10,0,1,7,9,0 -DATA 5,7,8,0,3,7,11,0,1,7,9,0,3,7,9,0,3,7,9,0,1,7,11,0,3,7,9,0 -DATA 3,7,8,0,1,7,12,0,1,7,13,0,1,7,20,0,1,7,13,0,1,7,10,0,2,7,9,0 -DATA 1,7,5,0,1,7,5,0,4,7,9,0,4,7,7,0,4,7,8,0,5,7,7,0,1,7,12,0 -DATA 3,7,1,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,12,0,2,7,9,0,1,7,4,0 -DATA 1,7,6,0,5,7,7,0,1,7,5,0,1,7,5,0,1,7,4,0,1,7,7,0,4,7,7,0 -DATA 1,7,12,0,4,7,39,0,1,7,45,0,1,7,12,0,1,7,34,0,1,7,179,0,1,7,62,0 -DATA 5,7,201,0,1,7,85,0,1,7,10,0,1,7,2959,0,1,7,347,0,1,7,21,0,1,7,65,0 -DATA 5,7,8,0,3,7,8,0,5,7,7,0,1,7,4,0,1,7,6,0,1,7,5,0,1,7,5,0 -DATA 1,7,9,0,1,7,1,0,1,7,5,0,1,7,5,0,1,7,5,0,1,7,5,0,7,7,5,0 -DATA 2,7,10,0,1,7,11,0,2,7,11,0,1,7,1,0,1,7,20,0,1,7,23,0,1,7,27,0 -DATA 1,7,20,0,1,7,22,0,1,7,11,0,1,7,11,0,1,7,11,0,1,7,11,0,1,7,180,0 -DATA 1,7,10,0,1,7,12,0,1,7,64,0,1,7,4,0,1,7,6,0,1,7,3,0,1,7,9,0 -DATA 1,7,9,0,1,7,4,0,1,7,6,0,1,7,5,0,1,7,5,0,1,7,9,0,1,7,1,0 -DATA 1,7,5,0,1,7,5,0,1,7,5,0,1,7,11,0,1,7,5,0,1,7,11,0,1,7,12,0 -DATA 1,7,10,0,1,7,3,0,1,7,20,0,1,7,22,0,1,7,27,0,1,7,19,0,1,7,23,0 -DATA 1,7,35,0,1,7,11,0,1,7,95,0,1,7,84,0,1,7,10,0,1,7,12,0,1,7,11,0 -DATA 2,7,2,0,1,7,48,0,1,7,4,0,1,7,6,0,1,7,13,0,1,7,9,0,1,7,4,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,3,0,1,7,3,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,11,0,1,7,6,0,1,7,11,0,1,7,12,0,1,7,58,0 -DATA 1,7,27,0,1,7,19,0,1,7,23,0,1,7,35,0,1,7,11,0,1,7,95,0,1,7,84,0 -DATA 1,7,10,0,1,7,12,0,1,7,10,0,1,7,2,0,2,7,49,0,1,7,4,0,1,7,6,0 -DATA 1,7,13,0,1,7,9,0,1,7,4,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,3,0,1,7,4,0,1,7,1,0,1,7,9,0,1,7,1,0,1,7,11,0,1,7,7,0 -DATA 1,7,12,0,1,7,11,0,1,7,47,0,3,7,8,0,4,7,9,0,3,7,9,0,4,7,8,0 -DATA 3,7,8,0,2,7,11,0,4,7,7,0,1,7,1,0,2,7,8,0,1,7,11,0,1,7,11,0 -DATA 1,7,2,0,1,7,8,0,1,7,11,0,3,7,1,0,2,7,6,0,1,7,1,0,2,7,9,0 -DATA 3,7,8,0,4,7,9,0,4,7,7,0,2,7,11,0,2,7,9,0,2,7,10,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,2,0 -DATA 1,7,9,0,1,7,2,0,1,7,7,0,4,7,9,0,1,7,10,0,1,7,12,0,1,7,64,0 -DATA 5,7,8,0,3,7,10,0,1,7,9,0,1,7,4,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,3,0,1,7,5,0,1,7,11,0,1,7,11,0,1,7,8,0,1,7,12,0 -DATA 1,7,11,0,1,7,50,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0 -DATA 2,7,2,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,1,0,1,7,9,0,1,7,11,0 -DATA 1,7,2,0,1,7,2,0,1,7,5,0,2,7,2,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0 -DATA 1,7,5,0,1,7,2,0,1,7,9,0,1,7,2,0,1,7,10,0,1,7,8,0,1,7,11,0 -DATA 1,7,13,0,1,7,63,0,1,7,4,0,1,7,10,0,1,7,9,0,1,7,9,0,1,7,4,0 -DATA 1,7,8,0,1,7,1,0,1,7,9,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,5,0 -DATA 1,7,1,0,1,7,10,0,1,7,10,0,1,7,9,0,1,7,13,0,1,7,10,0,1,7,47,0 -DATA 4,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,5,7,7,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0 -DATA 2,7,10,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,12,0 -DATA 1,7,10,0,1,7,11,0,1,7,3,0,1,7,8,0,1,7,1,0,1,7,8,0,1,7,1,0 -DATA 1,7,1,0,1,7,1,0,1,7,6,0,2,7,10,0,1,7,2,0,1,7,9,0,1,7,10,0 -DATA 1,7,10,0,1,7,12,0,1,7,64,0,1,7,4,0,1,7,10,0,1,7,9,0,1,7,9,0 -DATA 1,7,4,0,1,7,8,0,1,7,1,0,1,7,9,0,1,7,1,0,1,7,1,0,1,7,1,0 -DATA 1,7,4,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,10,0,1,7,13,0,1,7,10,0 -DATA 1,7,46,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0 -DATA 1,7,7,0,1,7,11,0,1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,11,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,2,0,1,7,2,0 -DATA 1,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,13,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7,8,0 -DATA 1,7,1,0,1,7,8,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,6,0,2,7,10,0 -DATA 1,7,2,0,1,7,8,0,1,7,11,0,1,7,10,0,1,7,12,0,1,7,64,0,1,7,4,0 -DATA 1,7,6,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,9,0,1,7,11,0 -DATA 1,7,3,0,1,7,4,0,1,7,5,0,1,7,8,0,1,7,8,0,1,7,11,0,1,7,14,0 -DATA 1,7,9,0,1,7,46,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0 -DATA 1,7,8,0,1,7,11,0,1,7,2,0,2,7,9,0,1,7,10,0,1,7,3,0,1,7,6,0 -DATA 1,7,2,0,1,7,10,0,2,7,8,0,1,7,12,0,1,7,10,0,1,7,12,0,1,7,64,0 -DATA 1,7,4,0,1,7,7,0,3,7,10,0,1,7,10,0,4,7,10,0,1,7,11,0,1,7,3,0 -DATA 1,7,4,0,1,7,5,0,1,7,8,0,1,7,8,0,7,7,5,0,1,7,14,0,1,7,9,0 -DATA 1,7,47,0,4,7,7,0,4,7,9,0,3,7,9,0,4,7,8,0,3,7,8,0,1,7,12,0 -DATA 4,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,8,0,3,7,8,0 -DATA 4,7,9,0,4,7,7,0,1,7,12,0,2,7,10,0,1,7,11,0,2,7,1,0,1,7,9,0 -DATA 1,7,10,0,1,7,3,0,1,7,6,0,1,7,2,0,1,7,10,0,1,7,9,0,4,7,9,0 -DATA 1,7,10,0,1,7,12,0,1,7,172,0,1,7,24,0,1,7,122,0,1,7,31,0,1,7,71,0 -DATA 1,7,15,0,1,7,93,0,1,7,23,0,1,7,9,0,1,7,11,0,1,7,173,0,2,7,22,0 -DATA 2,7,22,0,6,7,90,0,4,7,32,0,1,7,71,0,1,7,15,0,1,7,91,0,2,7,4768,0 -DATA 1,7,11,0,1,7,1,0,1,7,23,0,1,7,10,0,2,7,11,0,1,7,10,0,1,7,11,0 -DATA 1,7,11,0,1,7,12,0,1,7,70,0,3,7,8,0,2,7,10,0,4,7,8,0,4,7,8,0 -DATA 1,7,2,0,1,7,8,0,5,7,8,0,3,7,8,0,5,7,8,0,3,7,9,0,3,7,69,0 -DATA 3,7,21,0,3,7,8,0,4,7,9,0,4,7,7,0,4,7,8,0,5,7,7,0,5,7,8,0 -DATA 4,7,7,0,1,7,3,0,1,7,7,0,1,7,15,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,6,7,6,0,4,7,9,0,3,7,8,0,4,7,9,0,3,7,2,0,1,7,11,0 -DATA 1,7,1,0,1,7,23,0,1,7,9,0,4,7,3,0,1,7,6,0,1,7,9,0,2,7,10,0 -DATA 1,7,13,0,1,7,10,0,3,7,68,0,5,7,7,0,2,7,10,0,5,7,7,0,5,7,7,0 -DATA 1,7,2,0,1,7,8,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,67,0 -DATA 5,7,19,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,1,7,3,0,1,7,7,0,1,7,15,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,7,7,5,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,1,0,1,7,11,0 -DATA 1,7,1,0,1,7,22,0,3,7,8,0,4,7,3,0,1,7,4,0,4,7,8,0,2,7,10,0 -DATA 1,7,13,0,1,7,9,0,5,7,67,0,5,7,7,0,2,7,10,0,5,7,7,0,5,7,7,0 -DATA 1,7,2,0,1,7,8,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,67,0 -DATA 5,7,19,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,1,7,3,0,1,7,7,0,1,7,15,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,7,7,5,0,5,7,7,0,5,7,7,0,5,7,7,0,5,7,1,0,1,7,11,0 -DATA 1,7,1,0,1,7,21,0,5,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,4,7,8,0 -DATA 1,7,11,0,1,7,13,0,1,7,10,0,3,7,61,0,1,7,6,0,5,7,7,0,2,7,10,0 -DATA 5,7,7,0,5,7,7,0,1,7,2,0,1,7,8,0,5,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,5,7,67,0,5,7,7,0,7,7,5,0,5,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,15,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,7,7,5,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,5,7,1,0,1,7,35,0,5,7,7,0,4,7,2,0,1,7,5,0,4,7,20,0 -DATA 1,7,13,0,1,7,11,0,1,7,62,0,1,7,6,0,1,7,3,0,1,7,8,0,1,7,14,0 -DATA 1,7,11,0,1,7,7,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,15,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,16,0,1,7,18,0 -DATA 1,7,11,0,5,7,7,0,7,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,11,0,1,7,3,0 -DATA 1,7,7,0,1,7,15,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0 -DATA 1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,1,0,1,7,24,0,1,7,1,0,1,7,8,0,5,7,7,0 -DATA 4,7,1,0,1,7,6,0,1,7,23,0,1,7,13,0,1,7,23,0,1,7,49,0,1,7,7,0 -DATA 1,7,3,0,1,7,8,0,1,7,14,0,1,7,11,0,1,7,7,0,5,7,7,0,1,7,11,0 -DATA 1,7,15,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 1,7,14,0,3,7,18,0,3,7,9,0,1,7,3,0,1,7,7,0,7,7,5,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 1,7,11,0,1,7,11,0,5,7,7,0,1,7,15,0,1,7,7,0,4,7,8,0,1,7,11,0 -DATA 1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,1,0,1,7,24,0,1,7,1,0,1,7,8,0 -DATA 1,7,1,0,1,7,1,0,1,7,8,0,2,7,1,0,1,7,7,0,1,7,23,0,1,7,13,0 -DATA 1,7,23,0,1,7,49,0,1,7,7,0,1,7,3,0,1,7,8,0,1,7,11,0,4,7,8,0 -DATA 4,7,7,0,5,7,7,0,4,7,8,0,4,7,11,0,1,7,8,0,5,7,7,0,5,7,7,0 -DATA 1,7,11,0,1,7,12,0,4,7,7,0,4,7,9,0,4,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,5,0,1,7,5,0,5,7,7,0,5,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0 -DATA 4,7,8,0,4,7,8,0,1,7,1,0,3,7,7,0,5,7,7,0,1,7,15,0,1,7,7,0 -DATA 4,7,8,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,5,7,7,0,1,7,3,0,1,7,1,0,1,7,23,0,5,7,8,0 -DATA 2,7,13,0,1,7,1,0,2,7,5,0,3,7,20,0,1,7,13,0,1,7,21,0,5,7,46,0 -DATA 1,7,8,0,1,7,3,0,1,7,8,0,1,7,10,0,5,7,8,0,4,7,7,0,5,7,7,0 -DATA 5,7,7,0,5,7,10,0,1,7,9,0,3,7,8,0,5,7,31,0,3,7,9,0,4,7,11,0 -DATA 3,7,9,0,1,7,8,0,1,7,1,0,5,7,5,0,5,7,7,0,5,7,7,0,1,7,11,0 -DATA 1,7,3,0,1,7,7,0,4,7,8,0,4,7,8,0,1,7,1,0,3,7,7,0,5,7,7,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,4,7,8,0,1,7,11,0,1,7,2,0,1,7,2,0 -DATA 1,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,5,7,7,0,1,7,3,0 -DATA 1,7,1,0,1,7,23,0,5,7,9,0,2,7,11,0,1,7,1,0,4,7,3,0,1,7,23,0 -DATA 1,7,13,0,1,7,21,0,5,7,19,0,5,7,22,0,1,7,8,0,1,7,3,0,1,7,8,0 -DATA 1,7,10,0,4,7,9,0,4,7,7,0,5,7,7,0,5,7,7,0,5,7,10,0,1,7,8,0 -DATA 5,7,8,0,4,7,31,0,1,7,28,0,1,7,9,0,1,7,8,0,1,7,1,0,1,7,3,0 -DATA 1,7,5,0,5,7,7,0,5,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,4,7,8,0 -DATA 4,7,8,0,1,7,1,0,3,7,7,0,5,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0 -DATA 4,7,8,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,5,7,7,0,1,7,3,0,1,7,1,0,1,7,24,0,1,7,1,0 -DATA 1,7,8,0,1,7,1,0,1,7,1,0,1,7,9,0,1,7,2,0,4,7,3,0,1,7,23,0 -DATA 1,7,13,0,1,7,21,0,5,7,19,0,5,7,21,0,1,7,9,0,1,7,3,0,1,7,8,0 -DATA 1,7,10,0,1,7,15,0,1,7,8,0,4,7,11,0,1,7,7,0,1,7,3,0,1,7,10,0 -DATA 1,7,8,0,1,7,3,0,1,7,11,0,1,7,31,0,3,7,9,0,4,7,11,0,3,7,8,0 -DATA 1,7,9,0,1,7,1,0,5,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,4,7,8,0,1,7,3,0,1,7,1,0,1,7,23,0,5,7,7,0,5,7,9,0 -DATA 1,7,2,0,1,7,2,0,1,7,3,0,4,7,20,0,1,7,13,0,1,7,23,0,1,7,47,0 -DATA 1,7,9,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7,15,0,1,7,10,0,1,7,12,0 -DATA 1,7,7,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,3,0,1,7,11,0,1,7,32,0 -DATA 4,7,7,0,4,7,9,0,4,7,9,0,1,7,9,0,1,7,1,0,5,7,5,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,1,0,1,7,1,0 -DATA 1,7,25,0,5,7,7,0,5,7,8,0,1,7,3,0,4,7,3,0,4,7,20,0,1,7,13,0 -DATA 1,7,23,0,1,7,46,0,1,7,10,0,5,7,8,0,1,7,10,0,5,7,7,0,5,7,10,0 -DATA 1,7,8,0,5,7,7,0,5,7,9,0,1,7,9,0,5,7,7,0,5,7,34,0,3,7,18,0 -DATA 3,7,11,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,5,7,7,0,1,7,11,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 5,7,7,0,1,7,3,0,1,7,7,0,5,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0 -DATA 1,7,3,0,1,7,7,0,5,7,7,0,1,7,11,0,5,7,26,0,1,7,1,0,1,7,8,0 -DATA 5,7,8,0,1,7,3,0,4,7,3,0,4,7,20,0,1,7,13,0,1,7,33,0,1,7,23,0 -DATA 1,7,12,0,1,7,10,0,5,7,8,0,1,7,10,0,5,7,7,0,5,7,10,0,1,7,8,0 -DATA 5,7,7,0,5,7,9,0,1,7,9,0,5,7,7,0,5,7,7,0,1,7,11,0,1,7,16,0 -DATA 1,7,18,0,1,7,23,0,7,7,5,0,1,7,3,0,1,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,5,7,7,0,1,7,11,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0 -DATA 5,7,7,0,1,7,3,0,1,7,7,0,5,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0 -DATA 1,7,3,0,1,7,7,0,5,7,7,0,1,7,11,0,5,7,1,0,1,7,24,0,1,7,1,0 -DATA 1,7,9,0,3,7,14,0,2,7,6,0,1,7,21,0,1,7,13,0,1,7,33,0,1,7,23,0 -DATA 1,7,11,0,1,7,11,0,5,7,8,0,1,7,10,0,5,7,7,0,5,7,10,0,1,7,8,0 -DATA 5,7,7,0,5,7,9,0,1,7,9,0,5,7,7,0,5,7,7,0,1,7,11,0,1,7,49,0 -DATA 1,7,9,0,7,7,5,0,1,7,3,0,1,7,7,0,5,7,7,0,5,7,7,0,5,7,7,0 -DATA 5,7,7,0,1,7,11,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,5,7,7,0 -DATA 1,7,3,0,1,7,7,0,5,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0 -DATA 1,7,7,0,5,7,7,0,1,7,11,0,5,7,1,0,1,7,37,0,1,7,23,0,1,7,21,0 -DATA 1,7,13,0,1,7,33,0,1,7,23,0,1,7,11,0,1,7,12,0,3,7,9,0,1,7,10,0 -DATA 5,7,7,0,4,7,11,0,1,7,8,0,4,7,9,0,3,7,10,0,1,7,10,0,3,7,8,0 -DATA 4,7,8,0,1,7,11,0,1,7,49,0,1,7,9,0,7,7,5,0,1,7,3,0,1,7,7,0 -DATA 4,7,9,0,4,7,7,0,4,7,8,0,5,7,7,0,1,7,12,0,3,7,8,0,1,7,3,0 -DATA 1,7,7,0,1,7,12,0,3,7,8,0,1,7,3,0,1,7,7,0,5,7,7,0,1,7,2,0 -DATA 1,7,2,0,1,7,5,0,1,7,3,0,1,7,8,0,3,7,8,0,1,7,12,0,4,7,39,0 -DATA 1,7,45,0,1,7,13,0,1,7,33,0,1,7,179,0,1,7,267,0,1,7,86,0,1,7,11,0 -DATA 1,7,1066,0,4,7,9,0,4,7,7,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,2,7,3,0,2,7,5,0,1,7,3,0 -DATA 1,7,7,0,5,7,7,0,3,7,21,0,3,7,10,0,2,7,21,0,1,7,23,0,1,7,26,0 -DATA 1,7,21,0,2,7,21,0,1,7,11,0,1,7,13,0,1,7,9,0,1,7,11,0,1,7,96,0 -DATA 1,7,84,0,1,7,9,0,1,7,11,0,1,7,12,0,2,7,1,0,1,7,49,0,5,7,7,0 -DATA 5,7,7,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0 -DATA 1,7,2,0,1,7,5,0,2,7,3,0,2,7,5,0,1,7,3,0,1,7,7,0,5,7,7,0 -DATA 3,7,21,0,3,7,9,0,4,7,20,0,2,7,22,0,1,7,26,0,1,7,20,0,3,7,21,0 -DATA 1,7,11,0,1,7,13,0,1,7,9,0,1,7,11,0,1,7,96,0,1,7,83,0,1,7,10,0 -DATA 1,7,12,0,1,7,10,0,5,7,49,0,5,7,7,0,5,7,7,0,5,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,2,7,3,0 -DATA 2,7,5,0,1,7,3,0,1,7,7,0,5,7,7,0,3,7,21,0,3,7,9,0,1,7,2,0 -DATA 1,7,20,0,2,7,22,0,1,7,26,0,1,7,20,0,3,7,21,0,1,7,35,0,1,7,11,0 -DATA 1,7,96,0,1,7,83,0,1,7,10,0,1,7,12,0,1,7,10,0,1,7,2,0,2,7,49,0 -DATA 5,7,7,0,5,7,7,0,5,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0 -DATA 1,7,2,0,1,7,2,0,1,7,5,0,2,7,3,0,2,7,5,0,1,7,3,0,1,7,7,0 -DATA 5,7,7,0,1,7,11,0,1,7,13,0,1,7,34,0,1,7,22,0,1,7,26,0,1,7,20,0 -DATA 1,7,23,0,1,7,35,0,1,7,11,0,1,7,96,0,1,7,83,0,1,7,10,0,1,7,12,0 -DATA 1,7,64,0,1,7,3,0,1,7,7,0,1,7,13,0,1,7,9,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,6,0,1,7,3,0,1,7,6,0 -DATA 1,7,3,0,1,7,11,0,1,7,7,0,1,7,11,0,1,7,13,0,1,7,45,0,3,7,9,0 -DATA 3,7,10,0,3,7,9,0,3,7,9,0,2,7,9,0,3,7,10,0,4,7,7,0,3,7,9,0 -DATA 1,7,13,0,1,7,9,0,1,7,2,0,1,7,8,0,1,7,11,0,4,7,8,0,3,7,10,0 -DATA 2,7,9,0,3,7,10,0,3,7,8,0,3,7,10,0,3,7,8,0,5,7,7,0,1,7,2,0 -DATA 1,7,8,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,2,7,1,0 -DATA 2,7,7,0,1,7,2,0,1,7,8,0,4,7,9,0,1,7,10,0,1,7,12,0,1,7,64,0 -DATA 1,7,3,0,1,7,7,0,1,7,13,0,1,7,9,0,1,7,3,0,1,7,7,0,1,7,3,0 -DATA 1,7,7,0,1,7,2,0,1,7,2,0,1,7,7,0,1,7,1,0,1,7,7,0,1,7,3,0 -DATA 1,7,10,0,1,7,8,0,1,7,12,0,1,7,12,0,1,7,45,0,4,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,4,7,8,0,3,7,9,0,5,7,7,0,4,7,8,0,1,7,13,0 -DATA 1,7,9,0,1,7,2,0,1,7,8,0,1,7,11,0,5,7,7,0,4,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,5,7,7,0,1,7,2,0,1,7,8,0 -DATA 1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,2,7,1,0,2,7,7,0 -DATA 1,7,2,0,1,7,8,0,4,7,9,0,1,7,10,0,1,7,12,0,1,7,64,0,5,7,7,0 -DATA 4,7,10,0,1,7,9,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0 -DATA 1,7,2,0,1,7,7,0,3,7,7,0,5,7,10,0,1,7,8,0,1,7,12,0,1,7,12,0 -DATA 1,7,45,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,3,7,9,0 -DATA 5,7,7,0,4,7,8,0,1,7,13,0,1,7,9,0,1,7,2,0,1,7,8,0,1,7,11,0 -DATA 5,7,7,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0 -DATA 5,7,7,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0 -DATA 1,7,5,0,2,7,1,0,2,7,7,0,1,7,2,0,1,7,8,0,4,7,9,0,1,7,10,0 -DATA 1,7,12,0,1,7,64,0,4,7,8,0,5,7,9,0,1,7,9,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,7,0,3,7,8,0,3,7,10,0 -DATA 1,7,9,0,1,7,13,0,1,7,11,0,1,7,45,0,4,7,8,0,4,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,3,7,9,0,5,7,7,0,4,7,8,0,1,7,13,0,1,7,9,0 -DATA 3,7,9,0,1,7,11,0,5,7,7,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,5,7,7,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0 -DATA 1,7,2,0,1,7,2,0,1,7,5,0,2,7,1,0,2,7,7,0,1,7,2,0,1,7,8,0 -DATA 4,7,9,0,1,7,10,0,1,7,12,0,1,7,64,0,5,7,8,0,4,7,9,0,1,7,9,0 -DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,7,0 -DATA 3,7,8,0,3,7,9,0,1,7,10,0,1,7,13,0,1,7,11,0,1,7,48,0,1,7,8,0 -DATA 1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0 -DATA 3,7,9,0,1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,8,0 -DATA 1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0,1,7,11,0 -DATA 1,7,12,0,1,7,10,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,2,0 -DATA 1,7,2,0,1,7,7,0,1,7,9,0,1,7,2,0,1,7,11,0,1,7,8,0,1,7,11,0 -DATA 1,7,13,0,1,7,63,0,1,7,3,0,1,7,11,0,1,7,9,0,1,7,9,0,1,7,3,0 -DATA 1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,7,0,1,7,1,0 -DATA 1,7,9,0,1,7,10,0,1,7,10,0,1,7,14,0,1,7,10,0,1,7,46,0,3,7,8,0 -DATA 1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,1,7,8,0,4,7,8,0,1,7,11,0 -DATA 1,7,3,0,1,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0,3,7,9,0 -DATA 1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,8,0,1,7,2,0 -DATA 1,7,8,0,1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0,1,7,12,0,2,7,10,0 -DATA 1,7,10,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0 -DATA 1,7,7,0,1,7,9,0,1,7,2,0,1,7,9,0,2,7,10,0,1,7,10,0,1,7,12,0 -DATA 1,7,64,0,1,7,3,0,1,7,11,0,1,7,9,0,1,7,9,0,1,7,3,0,1,7,7,0 -DATA 1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7,6,0,1,7,3,0,1,7,8,0 -DATA 1,7,9,0,1,7,11,0,1,7,14,0,1,7,10,0,1,7,45,0,1,7,2,0,1,7,8,0 -DATA 1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,11,0 -DATA 1,7,3,0,1,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0,3,7,9,0 -DATA 1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,8,0,1,7,2,0 -DATA 1,7,8,0,1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0,1,7,14,0,1,7,9,0 -DATA 1,7,10,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7,2,0 -DATA 1,7,7,0,1,7,9,0,1,7,2,0,1,7,8,0,1,7,12,0,1,7,10,0,1,7,12,0 -DATA 1,7,64,0,1,7,3,0,1,7,7,0,5,7,9,0,1,7,9,0,5,7,7,0,5,7,7,0 -DATA 7,7,5,0,2,7,3,0,2,7,7,0,1,7,9,0,5,7,7,0,1,7,15,0,1,7,9,0 -DATA 1,7,45,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,1,7,11,0 -DATA 5,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,1,7,11,0,4,7,9,0,4,7,7,0,4,7,8,0,5,7,7,0 -DATA 7,7,5,0,2,7,1,0,2,7,7,0,4,7,8,0,4,7,9,0,1,7,10,0,1,7,12,0 -DATA 1,7,64,0,1,7,3,0,1,7,7,0,5,7,9,0,1,7,9,0,5,7,8,0,3,7,8,0 -DATA 7,7,5,0,2,7,3,0,2,7,7,0,1,7,9,0,5,7,7,0,1,7,15,0,1,7,9,0 -DATA 1,7,45,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,1,7,11,0 -DATA 5,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,1,7,11,0,4,7,9,0,4,7,7,0,4,7,9,0,3,7,8,0 -DATA 7,7,5,0,2,7,1,0,2,7,7,0,4,7,8,0,4,7,9,0,1,7,10,0,1,7,12,0 -DATA 1,7,64,0,1,7,3,0,1,7,7,0,5,7,9,0,1,7,9,0,5,7,8,0,3,7,8,0 -DATA 7,7,5,0,2,7,3,0,2,7,7,0,1,7,9,0,5,7,7,0,1,7,16,0,1,7,8,0 -DATA 1,7,45,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,4,7,8,0,1,7,11,0 -DATA 5,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0,1,7,2,0,1,7,8,0 -DATA 1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,8,0,4,7,8,0 -DATA 4,7,8,0,4,7,8,0,1,7,11,0,4,7,9,0,4,7,7,0,4,7,9,0,3,7,8,0 -DATA 7,7,5,0,2,7,1,0,2,7,7,0,4,7,8,0,4,7,9,0,1,7,10,0,1,7,12,0 -DATA 1,7,64,0,1,7,3,0,1,7,7,0,4,7,10,0,1,7,10,0,3,7,10,0,1,7,10,0 -DATA 2,7,1,0,2,7,6,0,2,7,3,0,2,7,7,0,1,7,9,0,5,7,7,0,3,7,14,0 -DATA 1,7,6,0,3,7,46,0,3,7,8,0,3,7,10,0,3,7,9,0,3,7,9,0,3,7,8,0 -DATA 1,7,12,0,4,7,7,0,1,7,2,0,1,7,8,0,1,7,13,0,1,7,9,0,1,7,2,0 -DATA 1,7,8,0,1,7,11,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,9,0 -DATA 2,7,9,0,3,7,10,0,3,7,8,0,1,7,11,0,3,7,11,0,3,7,8,0,2,7,11,0 -DATA 1,7,10,0,2,7,1,0,2,7,6,0,2,7,1,0,2,7,8,0,3,7,8,0,4,7,9,0 -DATA 1,7,10,0,1,7,12,0,1,7,172,0,3,7,21,0,3,7,21,0,6,7,94,0,1,7,33,0 -DATA 1,7,69,0,1,7,14,0,1,7,95,0,1,7,21,0,1,7,23,0,1,7,172,0,3,7,21,0 -DATA 3,7,117,0,5,7,31,0,3,7,69,0,1,7,14,0,1,7,92,0,4,7,22,0,1,7,21,0 -DATA 1,7,317,0,4,7,32,0,2,7,70,0,1,7,14,0,1,7,92,0,3,7,693,0, - -SUB PrintSTRING (x, y, Prnt$, Font) - -SELECT CASE Font - CASE 1: FileNAME$ = "PONGG1.FBS" - CASE 2: FileNAME$ = "PONGG2.FBS" -END SELECT - -DEF SEG = VARSEG(Box(0)) -BLOAD LCASE$(FileNAME$), VARPTR(Box(0)) -DEF SEG - -FOR i = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, i, 1) - IF Char$ = " " THEN - x = x + Box(1) - ELSE - Index = (ASC(Char$) - 33) * Box(0) + 2 - PUT (x, y), Box(Index) - x = x + Box(Index) - END IF -NEXT i - -END SUB diff --git a/programs/samples/thebob/pongg/pongg.bas b/programs/samples/thebob/pongg/pongg.bas deleted file mode 100644 index d214b5a29..000000000 --- a/programs/samples/thebob/pongg/pongg.bas +++ /dev/null @@ -1,799 +0,0 @@ -CHDIR ".\programs\samples\thebob\pongg" - -'**************************************************************************** -'---------------------------- P O N G G ! - 2.0 ----------------------------- -'---------------------- Freeware by Bob Seguin - 2007 ----------------------- -'**************************************************************************** - -DEFINT A-Z - -DECLARE SUB MouseDRIVER (LB, RB, MX, MY) -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB LocateMOUSE (x, y) -DECLARE SUB FieldMOUSE (x1, y1, x2, y2) -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () - -DECLARE FUNCTION InitMOUSE () - -DECLARE SUB PrintSTRING (x, y, Prnt$, Mode) -DECLARE SUB Alphagetti (x, y, Char$, Mode) -DECLARE SUB Interval (Length!) -DECLARE SUB DrawSCREEN () -DECLARE SUB SetPALETTE () -DECLARE SUB PrintSCORE (x, n$) -DECLARE SUB TopFIVE () -DECLARE SUB EndGAME () - -'$DYNAMIC - -DIM SHARED BallBOX(1 TO 400) -DIM SHARED BackBOX(1 TO 200) -DIM SHARED HeadBOX(1 TO 1600) -DIM SHARED PaddleBOX(1 TO 250) -DIM SHARED BigBOX(1 TO 26000) -DIM SHARED FontBOX(7100) -DIM SHARED CharBOX(1 TO 22) - -TYPE PlayerTYPE -PlayerNAME AS STRING * 20 -PlayerSCORE AS LONG -PlayDATE AS STRING * 10 -END TYPE -DIM SHARED PlayerBOX(1 TO 6) AS PlayerTYPE -OPEN "pongg.top" FOR APPEND AS #1 -CLOSE #1 - -OPEN "pongg.top" FOR INPUT AS #1 -DO WHILE NOT EOF(1) - in = in + 1 - INPUT #1, PlayerBOX(in).PlayerNAME - INPUT #1, PlayerBOX(in).PlayerSCORE - INPUT #1, PlayerBOX(in).PlayDATE -LOOP -CLOSE #1 - -DIM SHARED MouseDATA$ -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 - READ h$ - Hexxer$ = CHR$(VAL("&H" + h$)) - MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i - -Moused = InitMOUSE -IF NOT Moused THEN - COLOR 12 - LOCATE 10, 24: PRINT "Sorry, cat must have got the mouse." - LOCATE 11, 24: PRINT STRING$(37, "-") - LOCATE 12, 24: PRINT "Since this is a mouse-driven program," - LOCATE 13, 24: PRINT "it will have to be shut down." - SLEEP 3 - SYSTEM -END IF -LocateMOUSE 308, 440 - -SCREEN 12 -SetPALETTE -DrawSCREEN - -PaddleX = 281 -BallX = 310: BallY = 62 -Lives = 5 -PrintSCORE 106, "5" -PrintSCORE 582, "000000" -Start = 1 -GET (310, 62)-(330, 92), BackBOX() -PUT (310, 62), BallBOX(201), AND -PUT (310, 62), BallBOX(), OR -RANDOMIZE TIMER -Start = 1: BincX = 0: BincY = 0 - -DO - Beginning: - MouseSTATUS LB, RB, MouseX, MouseY - Key$ = UCASE$(INKEY$) - SELECT CASE Key$ - CASE "T" - TopFIVE - CASE " " - RePAUSE: - DO: k$ = UCASE$(INKEY$): LOOP UNTIL k$ <> "" - IF k$ = CHR$(27) THEN CLS: SYSTEM - IF k$ = "T" THEN - TopFIVE - PUT (BallX, BallY), BallBOX(), PSET - GOTO RePAUSE - END IF - CASE CHR$(27) - CLS - SYSTEM - END SELECT - IF Start = 1 THEN - IF Lives = 5 THEN PLAY "MBT120L64O4cP32dP32eP32fP32gP32fP32eP32dP32c" - LINE (PaddleX, 440)-(PaddleX + 79, 450), 0, BF - LocateMOUSE 308, 440 - PaddleX = 281 - PUT (PaddleX, 440), PaddleBOX(), PSET - DO - MouseSTATUS LB, RB, MouseX, MouseY - k$ = UCASE$(INKEY$) - LINE (255 - Scan, 20)-(267 - Scan, 36), 5, BF - LINE (375 + Scan, 20)-(387 + Scan, 36), 5, BF - Scan = Scan + 12: IF Scan = 120 THEN Scan = 0 - LINE (255 - Scan, 20)-(267 - Scan, 36), 12, BF - LINE (375 + Scan, 20)-(387 + Scan, 36), 12, BF - WAIT &H3DA, 8: WAIT &H3DA, 8, 8 - LOOP UNTIL LB OR (k$ = "X" OR k$ = "T" OR k$ = "R" OR k$ = CHR$(27)) - LINE (255 - Scan, 20)-(267 - Scan, 36), 5, BF - LINE (375 + Scan, 20)-(387 + Scan, 36), 5, BF - SELECT CASE k$ - CASE "R" - PaddleX = 281 - BallX = 310: BallY = 62 - LINE (BallX, BallY)-(BallX + 20, BallY + 22), 0, BF - GET (BallX, BallY)-(BallX + 20, BallY + 20), BackBOX() - PUT (BallX, BallY), BallBOX(201), AND - PUT (BallX, BallY), BallBOX(), OR - Lives = 5 - PlayerBOX(6).PlayerSCORE = 0 - Start = 1 - PrintSCORE 106, "5" - PrintSCORE 582, "000000" - GOTO Beginning - CASE "X" - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggin1.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (198, 178), BigBOX(), PSET - DO - k$ = INKEY$ - LOOP UNTIL k$ <> "" - IF k$ = CHR$(27) THEN CLS: SYSTEM - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggin2.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (198, 178), BigBOX(), PSET - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggacc.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (110, 118), BigBOX(4001), PSET - PUT (409, 118), BigBOX(6001), PSET - DO - k$ = INKEY$ - LOOP UNTIL k$ <> "" - IF k$ = CHR$(27) THEN CLS: SYSTEM - PUT (110, 118), BigBOX(1), PSET - PUT (409, 118), BigBOX(2001), PSET - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggin3.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (198, 178), BigBOX(), PSET - DO - k$ = INKEY$ - LOOP UNTIL k$ <> "" - IF k$ = CHR$(27) THEN CLS: SYSTEM - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggbak.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (198, 178), BigBOX(), PSET - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggops.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (246, 230), BigBOX(), PSET - GOTO Beginning - CASE CHR$(27) - CLS - SYSTEM - CASE "T" - TopFIVE - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggops.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (246, 230), BigBOX(), PSET - GOTO Beginning - END SELECT - MouseX = 308 - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggbak.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (198, 178), BigBOX(), PSET - BincX = FIX(RND * 7) - 3: BincY = INT(RND * 3) + 4 - LocateMOUSE 308, 440 - Start = 0 - END IF - SELECT CASE BincX - CASE IS < 0 - IF BallX <= 12 THEN BincX = ABS(BincX): GOSUB NEON - CASE IS > 0 - IF BallX >= 607 THEN BincX = -BincX: GOSUB NEON - END SELECT - SELECT CASE BincY - CASE IS < 0 - IF BallY <= 60 THEN - GOSUB NEON - BincY = FIX(RND * 4) + 6 - BincX = FIX(RND * 11) - 5 - END IF - CASE IS > 0 - IF BallY >= 419 THEN - IF BallX + 10 >= PaddleX AND BallX + 10 <= PaddleX + 79 THEN - IF ABS(BincX) = ABS(OldBINCx) THEN BincX = BincX + FIX(RND * 5) - 2 - BincY = -BincY: PLAY "MBMST220L64O1B" - OldBINCx = BincX - - PlayerBOX(6).PlayerSCORE = PlayerBOX(6).PlayerSCORE + 10 - IF Score = 1 THEN PlayerBOX(6).PlayerSCORE = PlayerBOX(6).PlayerSCORE + 15 - IF Score = 2 THEN PlayerBOX(6).PlayerSCORE = PlayerBOX(6).PlayerSCORE + 40 - - PS$ = LTRIM$(STR$(PlayerBOX(6).PlayerSCORE)) - SELECT CASE LEN(PS$) - CASE 1: PS$ = "00000" + PS$ - CASE 2: PS$ = "0000" + PS$ - CASE 3: PS$ = "000" + PS$ - CASE 4: PS$ = "00" + PS$ - CASE 5: PS$ = "0" + PS$ - END SELECT - PrintSCORE 582, PS$ - Score = 0 - END IF - END IF - IF BallY >= 430 THEN - SOUND 50, 5 - LINE (BallX - 1, BallY - 1)-(BallX + 21, BallY + 21), 0, B - PAINT (BallX + 10, BallY + 10), 15, 0 - Interval 0 - PAINT (BallX + 10, BallY + 10), 4, 0 - Interval 0 - PAINT (BallX + 10, BallY + 10), 14, 0 - Interval 0 - LINE (BallX, BallY)-(BallX + 20, BallY + 20), 0, BF - GET (310, 60)-(330, 80), BackBOX() - LINE (14, 440)-(625, 450), 0, BF - PaddleX = 281: Paddle = 0 - LocateMOUSE 308, 440 - PUT (PaddleX, 440), PaddleBOX(), PSET - BallX = 310: BallY = 60: Start = 1 - BincX = 0: BincY = 0 - - Lives = Lives - 1 - Lives$ = LTRIM$(STR$(Lives)) - PrintSCORE 106, Lives$ - IF Lives = 0 THEN EndGAME - - Score = 0 - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "ponggops.bsv", VARPTR(BigBOX(1)) - DEF SEG - PUT (246, 230), BigBOX(), PSET - END IF - END SELECT - - WAIT &H3DA, 8 - WAIT &H3DA, 8, 8 - - OUT &H3C8, 2 - OUT &H3C9, 50 - OUT &H3C9, 10 - OUT &H3C9, 50 - OUT &H3C8, 3 - OUT &H3C9, 50 - OUT &H3C9, 10 - OUT &H3C9, 50 - - PUT (BallX, BallY), BackBOX(), PSET - - IF BincY = 0 THEN BincY = 2 - IF BincX > 10 OR BincX < -10 THEN BincY = BincY + 1 - - IF BincX > 8 THEN BincX = BincX - 1 - IF BincY > 8 THEN BincY = BincY - 1 - IF BincX < -8 THEN BincX = BincX + 1 - IF BincY < -8 THEN BincY = BincY + 1 - - BallX = BallX + BincX: BallY = BallY + BincY 'Update X/Y's - IF BallX < 13 THEN BallX = 14: GOSUB NEON: BincX = ABS(BincX) + 1 - IF BallX > 608 THEN BallX = 607: GOSUB NEON: BincX = -ABS(BincX) - 1 - IF BallY < 60 THEN BallY = 60 - IF BallY > 439 AND BincY < 0 THEN BallY = 438 - - IF BallY < 400 THEN - GET (BallX, BallY)-(BallX + 20, BallY + 20), BackBOX() - ELSE - GET (310, 60)-(330, 80), BackBOX() - END IF - PUT (BallX, BallY), BallBOX(201), AND - PUT (BallX, BallY), BallBOX(), OR - - IF BallY < 167 THEN - IF BallX < 130 THEN 'LEFT Accelerator - BallCX = BallX + 10: BallCY = BallY + 10 - IF BallCX > 67 THEN 'right half - DiffX = BallCX - 67 - Q1 = 1 - ELSE - DiffX = 67 - BallCX 'left half - Q1 = 2 - END IF - IF BallCY > 126 THEN 'lower half - DiffY = BallCY - 126 - Q2 = 4 - ELSE 'upper half - DiffY = 126 - BallCY - Q2 = 8 - END IF - IF SQR(DiffX ^ 2 + DiffY ^ 2) <= 37 THEN - Quadrant = Q1 + Q2 - SELECT CASE Quadrant - CASE 5 'lower right - BincX = ABS(BincX) + 4 - BincY = -ABS(BincY) + 1 - CASE 6 'lower left - BincX = -ABS(BincX) - 1 - BincY = ABS(BincY) + INT(RND * 2) - CASE 9 'upper right - BincX = ABS(BincX) + 3 - BincY = ABS(BincY) - CASE 10 'upper left - BincX = ABS(BincX) + 3 - BincY = ABS(BincY) - END SELECT - Score = 1 - GOSUB Accelerator1 - END IF - END IF - IF BallX > 495 THEN 'RIGHT Accelerator - BallCX = BallX + 10: BallCY = BallY + 10 - IF BallCX > 565 THEN 'right half - DiffX = BallCX - 565 - Q1 = 1 - ELSE - DiffX = 565 - BallCX 'left half - Q1 = 2 - END IF - IF BallCY > 126 THEN 'bottom half - DiffY = BallCY - 126 - Q2 = 4 - ELSE 'top half - DiffY = 126 - BallCY - Q2 = 8 - END IF - IF SQR(DiffX ^ 2 + DiffY ^ 2) <= 37 THEN - Quadrant = Q1 + Q2 - OldDIFF = Diff - SELECT CASE Quadrant - CASE 5 'lower right - BincX = -ABS(BincX) - 4 - BincY = -ABS(BincY) + 1 - CASE 6 'lower left - BincX = -ABS(BincX) - 5 - BincY = ABS(BincY) + INT(RND * 1) - CASE 9 'upper right - BincX = ABS(BincX) + 4 - BincY = ABS(BincY) - CASE 10 'upper left - BincX = ABS(BincX) + 2 - BincY = ABS(BincY) - END SELECT - GOSUB Accelerator2 - Score = 2 - END IF - END IF - END IF - - LINE (PaddleX, 440)-(PaddleX + 79, 450), 0, BF - - PaddleX = MouseX - 27 - PaddleX = PaddleX + Paddle - IF PaddleX < 14 THEN PaddleX = 14 - IF PaddleX > 546 THEN PaddleX = 546 - PUT (PaddleX, 440), PaddleBOX(), PSET - -LOOP - -END - -'------------------------------- SUBROUTINES --------------------------------- - -NEON: -PLAY "MBMST220L64O1B" -OUT &H3C8, 13 -OUT &H3C9, 0 -OUT &H3C9, 63 -OUT &H3C9, 0 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -OUT &H3C8, 13 -OUT &H3C9, 42 -OUT &H3C9, 42 -OUT &H3C9, 42 -RETURN - -Accelerator1: -OUT &H3C8, 3 -OUT &H3C9, 63 -OUT &H3C9, 50 -OUT &H3C9, 63 -WAIT &H3DA, 8 -GOSUB AcceleratorSOUND -RETURN - -Accelerator2: -OUT &H3C8, 2 -OUT &H3C9, 63 -OUT &H3C9, 50 -OUT &H3C9, 63 -WAIT &H3DA, 8 -GOSUB AcceleratorSOUND -RETURN - -AcceleratorSOUND: -Hz = 620 -FOR Reps = 1 TO 3 - Hz = Hz + 100 - SOUND Hz, Hz / 3000 -NEXT Reps -RETURN - -PaletteDATA: -DATA 12, 2, 22, 50, 37, 63, 40, 10, 50, 40, 10, 50 -DATA 53, 0, 0, 19, 2, 22, 17, 2, 22, 42, 42, 42 -DATA 55, 55, 55, 16, 9, 26, 15, 2, 22, 63, 55, 55 -DATA 25, 12, 35, 42, 42, 42, 55, 63, 9, 63, 63, 63 - -REM $STATIC -SUB ClearMOUSE -SHARED LB - -WHILE LB - MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB DrawSCREEN - -DEF SEG = VARSEG(BigBOX(1)) -FOR y = 0 TO 320 STEP 160 - FileNUM = FileNUM + 1 - FileNAME$ = "pongg" + LTRIM$(STR$(FileNUM)) + ".bsv" - BLOAD FileNAME$, VARPTR(BigBOX(1)) - PUT (0, y), BigBOX() -NEXT y -DEF SEG - -DEF SEG = VARSEG(HeadBOX(1)) -BLOAD "ponggnms.bsv", VARPTR(HeadBOX(1)) -DEF SEG = VARSEG(PaddleBOX(1)) -BLOAD "ponggpdl.bsv", VARPTR(PaddleBOX(1)) -DEF SEG = VARSEG(BigBOX(1)) -PUT (281, 440), PaddleBOX(), PSET -DEF SEG = VARSEG(BallBOX(1)) -BLOAD "ponggbal.bsv", VARPTR(BallBOX(1)) - -DEF SEG = VARSEG(BigBOX(1)) -BLOAD "ponggops.bsv", VARPTR(BigBOX(1)) -DEF SEG - -PUT (246, 230), BigBOX(), PSET -DEF SEG = VARSEG(FontBOX(0)) -BLOAD "pongg2.fbs", VARPTR(FontBOX(0)) -DEF SEG - -END SUB - -SUB EndGAME -SHARED Lives, LB -STATIC MenuY - -SelectSCREEN: -IF PlayerBOX(6).PlayerSCORE > PlayerBOX(5).PlayerSCORE THEN - GetSCORE = 1 - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "pongggo1.bsv", VARPTR(BigBOX(1)) 'GO1 = Game Over 1 (3 options) - DEF SEG - PUT (233, 220), BigBOX(), PSET -ELSE - DEF SEG = VARSEG(BigBOX(1)) - BLOAD "pongggo2.bsv", VARPTR(BigBOX(1)) 'GO2 = Game Over 2 (2 options) - DEF SEG - PUT (233, 220), BigBOX(), PSET -END IF -MenuY = 256 -GET (262, 256)-(374, 273), BigBOX(7001) -LocateMOUSE 320, 310 -ShowMOUSE -DO - MouseSTATUS LB, RB, MouseX, MouseY - SELECT CASE MouseX - CASE 266 TO 378 - SELECT CASE MouseY - CASE 256 TO 273 - IF Menu <> 1 THEN - HideMOUSE - PUT (262, MenuY), BigBOX(7001), PSET - GET (262, 256)-(374, 273), BigBOX(7001) - MenuY = 256 - PLAY "MBMST220L64O6B" - PUT (262, 256), BigBOX(4001), PSET - ShowMOUSE - Menu = 1 - END IF - IF LB THEN - IF GetSCORE THEN - GOSUB Topper - GOTO SelectSCREEN - ELSE - EXIT DO - END IF - END IF - CASE 274 TO 291 - IF Menu <> 2 THEN - HideMOUSE - PUT (262, MenuY), BigBOX(7001), PSET - GET (262, 274)-(374, 291), BigBOX(7001) - MenuY = 274 - PLAY "MBMST220L64O6B" - PUT (262, 274), BigBOX(5001), PSET - ShowMOUSE - Menu = 2 - END IF - IF LB THEN - IF GetSCORE THEN - EXIT DO - ELSE - HideMOUSE - CLS - SYSTEM - END IF - END IF - CASE 292 TO 309 - IF Menu <> 3 AND GetSCORE THEN - HideMOUSE - PUT (262, MenuY), BigBOX(7001), PSET - GET (262, 292)-(374, 309), BigBOX(7001) - MenuY = 292 - PLAY "MBMST220L64O6B" - PUT (262, 292), BigBOX(6001), PSET - ShowMOUSE - Menu = 3 - END IF - IF LB AND GetSCORE THEN - HideMOUSE - CLS - SYSTEM - END IF - END SELECT - END SELECT - PauseMOUSE LB, RB, MouseX, MouseY -LOOP -Lives = 5 -PlayerBOX(6).PlayerSCORE = 0 -PrintSCORE 106, "5" -PrintSCORE 582, "000000" -HideMOUSE -DEF SEG = VARSEG(BigBOX(1)) -BLOAD "ponggbak.bsv", VARPTR(BigBOX(1)) -DEF SEG -PUT (198, 178), BigBOX(), PSET -DO - MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB -ClearMOUSE - -EXIT SUB - -'--------------------------------SUBROUTINES---------------------------------- - -Topper: - -DEF SEG = VARSEG(BigBOX(1)) -BLOAD "ponggbak.bsv", VARPTR(BigBOX(1)) -DEF SEG -HideMOUSE -PUT (198, 178), BigBOX(), PSET - -LINE (208, 198)-(428, 267), 8, BF -LINE (210, 200)-(426, 265), 15, B -LINE (218, 225)-(418, 257), 7, BF - -PrintSTRING 264, 206, "Please enter your name:", 0 -LINE (250, 253)-(254, 254), 15, B -x = 250 - -DO - DO - k$ = INKEY$ - LOOP UNTIL k$ <> "" - SELECT CASE k$ - CASE CHR$(8) 'Backspace - IF CharCOUNT THEN - LINE (x, 253)-(x + 4, 254), 7, B - LINE (CharBOX(CharCOUNT), 235)-(x, 255), 7, BF - Name$ = LEFT$(Name$, LEN(Name$) - 1) - x = CharBOX(CharCOUNT) - LINE (x, 253)-(x + 4, 254), 15, B - CharCOUNT = CharCOUNT - 1 - END IF - CASE CHR$(13) 'Enter - LINE (x, 253)-(x + 4, 254), 7, B - PlayerBOX(6).PlayerNAME = Name$ - PlayerBOX(6).PlayDATE = DATE$ - EXIT DO - CASE CHR$(27) 'Escape key - CLS - SYSTEM - CASE ELSE - IF LEN(Name$) < 20 THEN - IF k$ = CHR$(34) THEN k$ = "'" - Name$ = Name$ + k$ - LINE (x, 253)-(x + 4, 254), 7, B - CharCOUNT = CharCOUNT + 1 - CharBOX(CharCOUNT) = x - PrintSTRING x, 235, k$, 0 - LINE (x, 253)-(x + 4, 254), 15, B - END IF - END SELECT -LOOP -FOR a = 1 TO 6 - FOR B = a TO 6 - IF PlayerBOX(B).PlayerSCORE > PlayerBOX(a).PlayerSCORE THEN SWAP PlayerBOX(B), PlayerBOX(a) - NEXT B -NEXT a -OPEN "pongg.top" FOR OUTPUT AS #1 -FOR n = 1 TO 5 - WRITE #1, PlayerBOX(n).PlayerNAME, PlayerBOX(n).PlayerSCORE, PlayerBOX(n).PlayDATE -NEXT n -CLOSE #1 -TopFIVE -Menu = 0: GetSCORE = 0 -RETURN - -END SUB - -SUB FieldMOUSE (x1, y1, x2, y2) - -MouseDRIVER 7, 0, x1, x2 -MouseDRIVER 8, 0, y1, y2 - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -DEFSNG A-Z -SUB Interval (Length!) - -OldTimer# = TIMER -DO: LOOP UNTIL TIMER > OldTimer# + Length! -WAIT &H3DA, 8 - -END SUB - -DEFINT A-Z -SUB LocateMOUSE (x, y) - -LB = 4 -MX = x -MY = y -MouseDRIVER LB, 0, MX, MY - -END SUB - -SUB MouseDRIVER (LB, RB, MX, MY) - -DEF SEG = VARSEG(MouseDATA$) -Mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, MX, MY, Mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, MX, MY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = MX -MouseY = MY - -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) - - -SHARED Key$ - -DO - Key$ = UCASE$(INKEY$) - MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PrintSCORE (x, n$) - -FOR n = 1 TO LEN(n$) - Digit$ = MID$(n$, n, 1) - NumSTART = VAL(Digit$) * 100 + 1 - PUT (x, 21), HeadBOX(NumSTART), PSET - x = x + 7 -NEXT n - -END SUB - -SUB PrintSTRING (x, y, Prnt$, Mode) - -FOR i = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, i, 1) - IF Char$ = " " THEN - x = x + FontBOX(1) - ELSE - Index = (ASC(Char$) - 33) * FontBOX(0) + 2 - PUT (x, y), FontBOX(Index) - x = x + FontBOX(Index) - END IF - IF Mode AND x > 300 THEN EXIT SUB -NEXT i - -END SUB - -SUB SetPALETTE - -RESTORE PaletteDATA -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Intensity - OUT &H3C9, Intensity -NEXT n - -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB - -SUB TopFIVE - -DEF SEG = VARSEG(BigBOX(1)) -BLOAD "ponggtfv.bsv", VARPTR(BigBOX(1)) -DEF SEG -PUT (198, 178), BigBOX(), PSET -TopY = 210 -FOR n = 1 TO 5 - IF PlayerBOX(n).PlayerSCORE <> 0 THEN - PrintSTRING 215, TopY, RTRIM$(PlayerBOX(n).PlayerNAME), 1 - PrintSTRING 320, TopY, LTRIM$(STR$(PlayerBOX(n).PlayerSCORE)), 0 - PrintSTRING 370, TopY, PlayerBOX(n).PlayDATE, 0 - END IF - TopY = TopY + 21 -NEXT n -DO - k$ = INKEY$ -LOOP UNTIL k$ <> "" -IF k$ = CHR$(27) THEN CLS: SYSTEM -DEF SEG = VARSEG(BigBOX(1)) -BLOAD "ponggbak.bsv", VARPTR(BigBOX(1)) -DEF SEG -PUT (198, 178), BigBOX(), PSET - -END SUB diff --git a/programs/samples/thebob/pongg/readme.txt b/programs/samples/thebob/pongg/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/pongg/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/rattler/rattler.bas b/programs/samples/thebob/rattler/rattler.bas deleted file mode 100644 index 0e9d66c6f..000000000 --- a/programs/samples/thebob/rattler/rattler.bas +++ /dev/null @@ -1,1562 +0,0 @@ -'***************************************************************************** -' -'--------------------------- R A T T L E R . B A S --------------------------- -' -'---------------- Copyright (C) 2003 by Bob Seguin (Freeware) ---------------- -' -'------------------------ Email: BOBSEG@sympatico.ca ------------------------- -' -'--------------------- RATTLER is a graphical version of --------------------- -'--------------------- the classic QBasic game, NIBBLES ---------------------- -' -'***************************************************************************** - -DEFINT A-Z - -DECLARE SUB DrawSCREEN () -DECLARE SUB Intro () -DECLARE SUB Instructions () -DECLARE SUB InitGAME () -DECLARE SUB InitLEVEL () -DECLARE SUB PauseMENU (Item) -DECLARE SUB PlayGAME () -DECLARE SUB TopTEN () -DECLARE SUB SpeedSET () -DECLARE SUB PutSPRITE (Col, Row, Index) -DECLARE SUB SetSTONES (Level) -DECLARE SUB PrintNUMS (Item, Value) -DECLARE SUB SetPALETTE () -DECLARE SUB Wipe () -DECLARE FUNCTION EndGAME () - -DIM SHARED SnakePIT(1 TO 32, 1 TO 24) -DIM SHARED WipeBOX(29, 21) - -REDIM SHARED SpriteBOX(8000) -REDIM SHARED NumBOX(400) -REDIM SHARED TTBox(480) -REDIM SHARED BigBOX(32000) - -'The following constants are used to determine sprite array indexes -CONST Head = 0 -CONST Neck = 500 -CONST Shoulders = 1000 -CONST Body = 1500 -CONST Tail = 2000 -CONST TailEND = 2500 -CONST Rattle = 3000 - -CONST Mouse = 6000 -CONST Frog = 6500 -CONST Stone = 7000 -CONST Blank = 7500 - -CONST TURN = 3000 - -CONST Left = 0 -CONST Up = 125 -CONST Right = 250 -CONST Down = 375 - -CONST DL = 0 -CONST DR = 125 -CONST UR = 250 -CONST UL = 375 -CONST RD = 375 -CONST LD = 250 -CONST LU = 125 -CONST RU = 0 - -TYPE DiamondBACK -Row AS INTEGER -Col AS INTEGER -BodyPART AS INTEGER -TURN AS INTEGER -WhichWAY AS INTEGER -RattleDIR AS INTEGER -END TYPE -DIM SHARED Rattler(72) AS DiamondBACK - -TYPE ScoreTYPE -PlayerNAME AS STRING * 20 -PlayDATE AS STRING * 10 -PlayerSCORE AS LONG -END TYPE -DIM SHARED ScoreDATA(10) AS ScoreTYPE - -DIM SHARED SnakeLENGTH -DIM SHARED SetSPEED -DIM SHARED Speed -DIM SHARED SpeedLEVEL -DIM SHARED Level -DIM SHARED Lives -DIM SHARED Score -DIM SHARED CrittersLEFT - -OPEN "rattler.top" FOR APPEND AS #1 -CLOSE #1 - -OPEN "rattler.top" FOR INPUT AS #1 -DO WHILE NOT EOF(1) -INPUT #1, ScoreDATA(n).PlayerNAME -INPUT #1, ScoreDATA(n).PlayDATE -INPUT #1, ScoreDATA(n).PlayerSCORE -n = n + 1 -LOOP -CLOSE #1 - -RANDOMIZE TIMER - -SCREEN 12 -GOSUB DrawSPRITES -DrawSCREEN - -Intro - -DO -PlayGAME -LOOP - -END - -'------------------------- SUBROUTINE SECTION BEGINS ------------------------- - -DrawSPRITES: -'Creates images from compressed data - -'Set all attributes to black (REM out to view the process) -FOR n = 1 TO 15 -OUT &H3C8, n -OUT &H3C9, 0 -OUT &H3C9, 0 -OUT &H3C9, 0 -NEXT n - -OUT &H3C8, 9 -OUT &H3C9, 52 -OUT &H3C9, 42 -OUT &H3C9, 32 -LOCATE 12, 32: COLOR 9 -PRINT "ONE MOMENT PLEASE..." - -MaxWIDTH = 19 -MaxDEPTH = 279 -x = 0: y = 0 - -DO -READ Count, Colr -FOR Reps = 1 TO Count -PSET (x, y), Colr -x = x + 1 -IF x > MaxWIDTH THEN -x = 0 -y = y + 1 -END IF -NEXT Reps -LOOP UNTIL y > MaxDEPTH - -'Create directional sets -Index = 0 -FOR y = 0 TO 260 STEP 20 -GET (0, y)-(19, y + 19), SpriteBOX(Index) -GOSUB Poses -Index = Index + 500 -NEXT y -CLS -PALETTE 9, 0 -'Create stone block and erasing sprite(s) -LINE (0, 0)-(19, 19), 6, BF -FOR Reps = 1 TO 240 -x = FIX(RND * 20) + 1 -y = FIX(RND * 20) + 1 -PSET (x, y), 7 -PSET (x + 1, y + 1), 15 -NEXT Reps -LINE (0, 0)-(19, 19), 6, B -LINE (1, 1)-(18, 18), 13, B -LINE (1, 1)-(1, 18), 15 -LINE (1, 1)-(18, 1), 15 -GET (0, 0)-(19, 19), SpriteBOX(Stone) 'stone tile -LINE (0, 0)-(19, 19), 8, BF -GET (0, 0)-(19, 19), SpriteBOX(Blank + Left) 'erasing tile -GET (0, 0)-(19, 19), SpriteBOX(Blank + Up) 'erasing tile -GET (0, 0)-(19, 19), SpriteBOX(Blank + Right) 'erasing tile -GET (0, 0)-(19, 19), SpriteBOX(Blank + Down) 'erasing tile -CLS -COLOR 9 -LOCATE 9, 31 -PRINT "RATTLER TOP-TEN LIST" -GET (240, 130)-(398, 140), TTBox -LOCATE 9, 31 -PRINT SPACE$(20) - -'GET numbers -FOR n = 0 TO 9 -LOCATE 10, 10 -IF n = 0 THEN PRINT "O" ELSE PRINT LTRIM$(STR$(n)) -FOR x = 72 TO 80 -FOR y = 144 TO 160 -IF POINT(x, y) = 0 THEN PSET (x, y), 15 ELSE PSET (x, y), 4 -NEXT y -NEXT x -GET (72, 144)-(79, 156), NumBOX(NumDEX) -NumDEX = NumDEX + 40 -NEXT n -LINE (72, 144)-(80, 160), 0, BF -RETURN - -Poses: -'Draws/GETs the other 3 directional poses from each sprite -FOR i = Index TO Index + 250 STEP 125 -PUT (100, 100), SpriteBOX(i), PSET -FOR Px = 100 TO 119 -FOR Py = 100 TO 119 -PSET (219 - Py, Px - 20), POINT(Px, Py) -NEXT Py -NEXT Px -GET (100, 80)-(119, 99), SpriteBOX(i + 125) -NEXT i -RETURN - -SpriteVALUES: -DATA 47,8,2,12,2,0,16,8,3,5,1,12,1,13,1,12,1,13,1,12,8,8,1,0 -DATA 1,12,1,15,1,8,1,15,3,5,1,14,3,1,1,14,1,13,5,8,2,5,1,12 -DATA 1,5,4,12,3,3,1,5,1,12,1,3,1,12,1,14,1,13,2,8,1,3,14,5 -DATA 1,3,1,5,1,1,1,13,1,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,3,5,1,12,1,5,1,12,2,3,1,1,22,5,1,12,1,5 -DATA 1,12,1,3,1,12,1,3,1,12,1,3,1,12,1,3,1,12,1,15,1,12,1,3 -DATA 1,12,1,3,1,12,1,3,2,5,1,12,1,5,1,12,1,3,1,12,1,3,1,12 -DATA 1,3,1,12,1,3,1,12,1,15,1,12,1,3,1,12,1,3,1,12,1,3,17,5 -DATA 1,3,2,5,1,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 1,12,3,5,1,12,1,5,1,12,2,3,1,1,1,8,1,3,14,5,1,3,1,14 -DATA 1,1,1,13,2,8,2,5,1,12,1,5,4,12,2,3,1,1,1,5,1,12,1,1 -DATA 1,12,1,14,1,13,4,8,1,0,1,12,1,15,1,8,1,15,3,5,2,14,2,1 -DATA 1,14,1,13,10,8,2,5,1,14,1,12,1,13,1,12,1,13,1,12,12,8,2,12 -DATA 2,0,169,8,1,13,1,12,1,13,1,1,1,13,1,12,1,13,1,1,1,13,1,12 -DATA 1,13,1,12,1,13,1,1,1,13,1,12,1,13,1,1,1,13,1,12,1,1,1,14 -DATA 1,1,1,14,1,12,1,14,1,12,1,14,1,1,1,14,1,1,1,14,1,1,1,14 -DATA 1,12,1,14,1,12,1,14,1,1,1,14,2,3,1,5,1,12,1,5,1,12,1,5 -DATA 1,12,1,5,3,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5,3,3,1,12 -DATA 1,5,1,12,1,5,1,12,1,5,1,12,1,5,2,3,1,12,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 1,12,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 2,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5,3,3,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,3,1,1,1,14,1,1,1,14,1,12,1,14,1,12 -DATA 1,14,1,1,1,14,1,1,1,14,1,1,1,14,1,12,1,14,1,12,1,14,1,1 -DATA 1,14,1,13,1,12,1,13,1,1,1,13,1,12,1,13,1,1,1,13,1,12,1,13 -DATA 1,12,1,13,1,1,1,13,1,12,1,13,1,1,1,13,1,12,220,8,1,12,1,13 -DATA 1,12,1,13,1,12,1,13,1,12,1,13,1,12,1,13,1,12,1,13,1,12,1,13 -DATA 1,12,1,13,1,12,1,13,1,12,1,13,1,14,1,12,1,14,1,1,1,14,1,12 -DATA 1,14,1,1,1,14,1,12,1,14,1,12,1,14,1,1,1,14,1,12,1,14,1,1 -DATA 1,14,2,12,1,14,1,3,1,14,1,12,1,14,1,12,1,14,1,3,1,14,1,12 -DATA 1,14,1,3,1,14,1,12,1,14,1,12,1,14,1,3,1,14,1,5,1,3,1,5 -DATA 1,12,1,5,1,12,1,5,1,12,1,5,1,3,1,5,1,3,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,3,1,15,1,5,1,12,1,5,1,12,1,5,1,12 -DATA 1,5,1,12,1,5,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12 -DATA 1,5,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,15 -DATA 1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,2,5,1,3,1,5,1,12 -DATA 1,5,1,12,1,5,1,12,1,5,1,3,1,5,1,3,1,5,1,12,1,5,1,12 -DATA 1,5,1,12,1,5,1,3,1,12,1,14,1,3,1,14,1,12,1,14,1,12,1,14 -DATA 1,3,1,14,1,12,1,14,1,3,1,14,1,12,1,14,1,12,1,14,1,3,2,14 -DATA 1,12,1,14,1,1,1,14,1,12,1,14,1,1,1,14,1,12,1,14,1,12,1,14 -DATA 1,1,1,14,1,12,1,14,1,1,1,14,2,12,1,13,1,12,1,13,1,12,1,13 -DATA 1,12,1,13,1,12,1,13,1,12,1,13,1,12,1,13,1,12,1,13,1,12,1,13 -DATA 1,12,1,13,180,8,1,13,1,12,1,13,1,12,1,13,1,1,1,13,1,12,1,13 -DATA 1,12,1,13,1,12,1,13,1,12,1,13,1,1,1,13,1,12,1,13,2,12,1,14 -DATA 1,12,1,14,1,1,1,5,1,1,1,14,1,12,1,14,1,12,1,14,1,12,1,14 -DATA 1,1,1,5,1,1,1,14,1,12,2,14,1,12,1,14,1,1,1,14,1,12,1,14 -DATA 1,1,1,14,1,12,1,14,1,12,1,14,1,1,1,14,1,12,1,14,1,1,1,14 -DATA 2,12,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,3,1,5,1,12,1,5 -DATA 1,3,1,5,1,12,1,5,1,12,1,5,1,3,2,5,1,3,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,3,1,5,1,3,1,5,1,12,1,5,1,12,1,5 -DATA 1,12,1,5,1,3,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12 -DATA 1,5,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,15 -DATA 1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,15,1,5,1,12 -DATA 1,5,1,12,1,5,1,12,1,5,1,12,2,5,1,3,1,5,1,12,1,5,1,12 -DATA 1,5,1,12,1,5,1,3,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,12 -DATA 1,5,1,3,1,12,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,3,1,5 -DATA 1,12,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,3,1,5,1,14,1,12 -DATA 1,14,1,1,1,14,1,12,1,14,1,1,1,14,1,12,1,14,1,12,1,14,1,1 -DATA 1,14,1,12,1,14,1,1,1,14,2,12,1,14,1,12,1,14,1,1,1,14,1,1 -DATA 1,14,1,12,1,14,1,12,1,14,1,12,1,14,1,1,1,14,1,1,1,14,1,12 -DATA 1,14,1,13,1,12,1,13,1,12,1,13,1,1,1,13,1,12,1,13,1,12,1,13 -DATA 1,12,1,13,1,12,1,13,1,1,1,13,1,12,1,13,1,12,220,8,1,12,1,13 -DATA 1,1,1,13,1,12,1,13,1,12,1,13,1,1,1,13,1,12,1,13,1,1,1,13 -DATA 1,12,1,13,1,12,1,13,1,1,1,13,1,14,1,1,1,14,1,12,1,14,1,12 -DATA 1,14,1,12,1,14,1,1,1,14,1,1,1,14,1,12,1,14,1,12,1,14,1,12 -DATA 1,14,1,1,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,15,1,5 -DATA 1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,15,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,12,1,5,1,14,1,1,1,14,1,12,1,14,1,12 -DATA 1,14,1,12,1,14,1,3,1,14,1,3,1,14,1,12,1,14,1,12,1,14,1,12 -DATA 1,14,1,1,1,12,1,13,1,1,1,13,1,12,1,13,1,12,1,13,1,1,1,13 -DATA 1,12,1,13,1,1,1,13,1,12,1,13,1,12,1,13,1,1,1,13,300,8,1,12 -DATA 1,13,1,12,1,13,1,3,1,13,1,3,1,13,1,3,1,13,1,12,1,13,1,12 -DATA 1,13,1,3,1,13,1,3,1,13,1,3,1,13,1,5,1,12,1,5,1,12,1,5 -DATA 1,3,1,5,1,12,2,3,1,5,1,12,1,5,1,12,1,5,1,3,1,5,1,12 -DATA 2,3,1,5,1,12,1,5,1,12,1,5,1,3,1,5,1,12,2,3,1,5,1,12 -DATA 1,5,1,12,1,5,1,3,1,5,1,12,2,3,1,12,1,13,1,12,1,13,1,3 -DATA 1,13,1,3,1,13,1,3,1,13,1,12,1,13,1,12,1,13,1,3,1,13,1,3 -DATA 1,13,1,3,1,13,286,8,2,13,1,8,2,13,1,8,2,13,1,8,2,13,8,8 -DATA 1,5,2,1,1,14,2,1,1,14,2,1,1,14,2,1,1,14,1,13,1,8,1,13 -DATA 1,3,1,13,1,3,1,13,1,1,2,3,1,14,2,3,1,14,2,3,1,14,2,3 -DATA 1,14,1,3,1,13,1,3,1,5,1,12,5,3,1,5,2,3,1,5,2,3,1,5 -DATA 2,3,1,5,3,3,1,5,1,12,5,3,1,5,2,3,1,5,2,3,1,5,2,3 -DATA 1,5,2,3,1,13,1,3,1,13,1,3,1,13,1,1,2,3,1,14,2,3,1,14 -DATA 2,3,1,14,2,3,1,14,1,3,1,13,5,8,1,5,2,1,1,12,2,1,1,12 -DATA 2,1,1,12,2,1,1,14,1,13,7,8,2,13,1,8,2,13,1,8,2,13,1,8 -DATA 2,13,129,8,1,12,1,5,1,3,2,5,1,3,1,5,1,12,12,8,1,13,1,1 -DATA 1,5,2,12,1,5,1,1,1,13,12,8,1,12,1,5,1,12,2,5,1,12,1,5 -DATA 1,12,12,8,1,13,1,12,1,5,2,12,1,5,1,12,1,13,12,8,1,12,1,5 -DATA 1,12,2,5,1,12,1,5,1,12,11,8,1,13,1,5,1,3,1,5,2,12,1,5 -DATA 1,1,1,13,6,8,1,13,1,12,1,13,1,12,1,13,1,1,1,5,1,15,1,12 -DATA 2,5,1,3,1,5,1,12,6,8,1,1,1,5,1,1,1,5,1,12,1,5,1,12 -DATA 1,5,1,15,1,5,1,3,1,5,1,1,1,13,6,8,2,3,1,5,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,3,2,5,1,13,7,8,1,12,1,15,1,12,1,5 -DATA 1,12,1,5,1,12,1,5,1,12,2,5,1,1,1,12,7,8,1,5,1,15,1,12 -DATA 1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,1,1,13,8,8,2,3,1,5 -DATA 1,12,1,5,1,12,1,5,1,12,1,5,1,3,1,12,9,8,1,1,1,5,1,1 -DATA 1,5,1,12,1,5,1,12,1,5,1,1,1,13,10,8,1,13,1,12,1,13,1,12 -DATA 1,13,1,12,1,13,1,12,137,8,1,13,1,12,1,14,1,3,2,5,1,3,1,14 -DATA 1,12,1,13,10,8,1,12,1,14,1,3,1,5,2,12,1,5,1,3,1,14,1,12 -DATA 10,8,1,13,1,1,1,5,1,12,2,5,1,12,1,5,1,1,1,13,10,8,1,12 -DATA 1,3,1,12,1,5,2,12,1,5,1,12,1,5,1,12,9,8,1,13,1,14,1,3 -DATA 2,12,2,5,1,12,1,5,1,14,1,13,5,8,1,12,1,13,1,12,1,13,1,12 -DATA 1,5,1,3,1,5,1,12,1,5,1,12,2,5,1,1,1,12,5,8,1,14,1,12 -DATA 1,14,1,1,1,3,1,12,1,5,1,15,1,5,1,12,1,5,1,12,1,3,1,14 -DATA 1,13,5,8,1,12,1,14,1,1,1,5,1,12,2,3,1,5,1,15,2,5,1,3 -DATA 1,14,1,13,6,8,1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 2,3,1,14,2,12,6,8,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5 -DATA 1,3,1,12,1,14,1,12,1,13,7,8,1,15,1,5,1,12,1,5,1,12,1,5 -DATA 1,12,1,5,1,3,1,14,1,12,1,13,1,12,7,8,1,5,1,3,1,5,1,12 -DATA 1,5,1,12,1,5,1,12,2,1,1,13,1,12,8,8,1,12,1,14,1,1,1,14 -DATA 1,12,1,14,1,12,1,14,1,1,1,13,1,12,9,8,1,14,1,12,1,14,1,1 -DATA 1,14,1,12,1,14,1,13,1,12,11,8,1,12,1,13,1,12,1,13,1,12,1,13 -DATA 1,12,117,8,1,13,1,12,1,5,1,3,1,5,2,12,1,5,1,3,1,14,1,12 -DATA 1,13,8,8,1,12,1,14,1,3,1,5,1,12,2,5,1,12,1,5,1,3,1,14 -DATA 1,12,8,8,1,13,2,3,1,12,1,5,2,12,1,5,1,12,1,5,1,3,1,13 -DATA 7,8,1,13,1,14,1,3,1,12,1,5,1,12,2,5,1,12,1,5,1,12,1,5 -DATA 1,3,4,8,1,12,1,13,1,12,1,14,1,12,2,3,1,12,1,5,2,12,1,5 -DATA 1,12,1,14,1,3,1,13,4,8,1,14,1,12,3,3,1,12,1,3,1,5,1,12 -DATA 2,5,1,12,1,5,1,3,1,14,1,12,4,8,1,12,1,5,1,3,1,14,1,12 -DATA 4,3,2,12,1,5,1,3,1,5,1,12,1,13,4,8,1,14,1,3,1,5,1,12 -DATA 1,5,1,12,1,5,1,12,4,3,1,5,1,12,1,14,1,12,4,8,2,3,1,12 -DATA 1,5,1,12,1,5,1,12,1,5,1,12,1,3,3,12,1,14,1,12,5,8,1,5 -DATA 1,3,1,5,1,12,1,5,2,12,2,5,1,3,1,12,2,14,1,12,1,13,5,8 -DATA 1,5,1,3,1,5,1,12,1,5,1,12,1,5,1,12,1,14,1,3,1,14,2,12 -DATA 1,14,6,8,1,3,1,5,1,3,1,5,1,12,1,5,1,12,1,14,1,12,1,3 -DATA 1,12,2,14,1,12,6,8,1,5,1,12,1,5,1,3,1,14,1,12,1,14,1,12 -DATA 1,14,1,3,1,14,1,12,1,13,7,8,1,12,1,14,1,12,1,5,3,3,1,5 -DATA 1,3,1,5,1,12,1,13,8,8,1,14,1,12,1,14,1,12,1,14,1,12,1,14 -DATA 1,12,1,13,1,12,1,0,9,8,1,12,1,13,1,12,1,13,1,12,1,13,1,12 -DATA 1,13,1,0,98,8,1,13,1,3,2,5,1,3,1,13,14,8,1,3,1,14,2,12 -DATA 1,5,1,3,14,8,1,13,1,12,2,5,1,12,1,13,14,8,1,12,1,14,2,12 -DATA 1,14,1,12,14,8,1,13,1,12,2,5,1,12,1,13,14,8,1,3,1,14,2,12 -DATA 1,14,1,3,13,8,1,13,1,14,1,12,2,5,1,12,1,5,7,8,1,12,1,13 -DATA 1,3,1,13,1,12,1,3,1,12,1,15,1,12,1,5,1,12,1,3,1,13,7,8 -DATA 1,14,1,3,1,14,1,12,1,14,1,12,1,3,1,12,1,15,1,12,1,3,1,5 -DATA 8,8,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12 -DATA 1,13,8,8,1,15,1,5,1,12,1,5,1,12,1,5,1,12,1,3,1,12,1,14 -DATA 1,13,9,8,1,14,1,3,1,14,1,12,1,14,1,12,1,14,1,12,1,13,1,3 -DATA 10,8,1,12,1,13,1,3,1,13,1,12,1,3,1,12,1,13,160,8,1,1,2,3 -DATA 1,1,16,8,1,1,2,3,1,1,16,8,1,13,2,12,1,13,16,8,1,3,2,5 -DATA 1,3,16,8,1,13,2,3,1,13,16,8,1,3,2,5,1,3,15,8,1,13,1,5 -DATA 1,15,1,12,1,13,14,8,1,13,1,5,1,12,2,5,1,0,8,8,1,12,1,13 -DATA 1,12,1,13,1,3,1,13,3,3,2,12,9,8,1,3,1,12,1,3,1,12,1,3 -DATA 1,15,1,5,1,12,2,3,1,0,9,8,1,5,1,12,1,5,1,12,1,5,1,15 -DATA 1,5,1,12,1,3,11,8,1,12,1,13,1,12,1,13,1,3,1,13,1,3,1,0 -DATA 257,8,2,6,3,8,2,6,1,7,7,8,1,13,1,8,1,13,1,8,3,6,1,7 -DATA 3,8,2,7,1,13,7,8,1,6,2,8,2,6,2,7,1,8,1,0,3,6,1,7 -DATA 8,8,2,7,1,15,2,7,1,8,1,0,5,6,1,7,6,8,2,7,1,8,1,15 -DATA 2,6,1,7,7,6,1,7,4,8,1,6,4,7,2,6,1,7,7,6,1,7,2,6 -DATA 2,8,1,6,4,7,2,6,1,7,7,6,1,7,1,6,1,8,1,6,2,8,2,7 -DATA 1,8,1,15,2,6,1,7,7,6,1,7,3,8,1,6,2,8,2,7,1,15,2,7 -DATA 1,8,1,0,5,6,1,7,4,8,1,6,1,8,1,6,2,8,2,6,2,7,1,8 -DATA 1,0,3,6,1,7,4,8,1,6,1,8,1,13,1,8,1,13,1,8,3,6,1,7 -DATA 3,8,2,7,1,13,3,8,1,13,7,8,2,6,3,8,2,6,1,7,5,8,1,13 -DATA 138,8,1,10,8,8,1,10,7,8,1,2,1,8,1,10,8,8,1,10,2,2,5,8 -DATA 2,11,1,2,1,8,1,2,10,8,1,2,2,8,1,10,2,2,1,8,1,2,9,8 -DATA 1,10,1,2,1,8,1,2,1,8,4,2,10,8,1,10,1,15,2,2,1,11,2,2 -DATA 2,11,2,2,8,8,1,10,1,8,1,15,1,2,2,11,2,2,2,11,3,2,6,8 -DATA 1,10,6,2,1,11,3,2,1,11,2,2,6,8,1,10,6,2,1,11,3,2,1,11 -DATA 2,2,7,8,1,10,1,8,1,15,1,2,2,11,2,2,2,11,3,2,8,8,1,10 -DATA 1,15,2,2,1,11,2,2,2,11,2,2,10,8,1,10,1,2,1,8,1,2,1,8 -DATA 4,2,14,8,1,2,2,8,1,10,2,2,1,8,1,2,9,8,1,10,2,2,5,8,2 -DATA 11,1,2,1,8,1,2,8,8,1,10,7,8,1,2,1,8,1,10,20,8,1,10,42,8 - -PaletteVALUES: -DATA 18,18,18, 50,44,36, 0,42,0, 56,50,42 -DATA 63,0,0, 51,43,30, 48,48,52, 42,42,42 -DATA 0,14,0, 54,24,63, 21,63,21, 0,30,0 -DATA 34,22,21, 32,32,32, 45,37,24, 63,63,63 - -SUB DrawSCREEN - -FOR Col = 1 TO 32 -PutSPRITE Col, 1, Stone -PutSPRITE Col, 24, Stone -NEXT Col -FOR Row = 1 TO 24 -PutSPRITE 1, Row, Stone -PutSPRITE 32, Row, Stone -NEXT Row - -COLOR 4 -LOCATE 3, 5: PRINT "LIVES:" -LOCATE 3, 34: PRINT "R A T T L E R" -LOCATE 3, 65: PRINT "SCORE:" -FOR x = 254 TO 376 -FOR y = 32 TO 45 -PSET (x + 4, y - 30), 15 -NEXT y -NEXT x -FOR x = 254 TO 376 -FOR y = 32 TO 45 -IF POINT(x, y) = 4 THEN -PSET (x + 6, y - 29), 0 -PSET (x + 5, y - 30), 5 -END IF -PSET (x, y), 0 -NEXT y -NEXT x -LINE (258, 1)-(378, 1), 0 -LINE (258, 1)-(258, 15), 0 -FOR x = 26 TO 99 -FOR y = 32 TO 45 -PSET (x + 4, y - 30), 15 -NEXT y -NEXT x -FOR x = 26 TO 99 -FOR y = 32 TO 45 -IF POINT(x, y) = 4 THEN PSET (x + 6, y - 30), 0 -PSET (x, y), 0 -NEXT y -NEXT x -LINE (28, 1)-(103, 1), 0 -LINE (28, 1)-(28, 15), 0 -FOR x = 504 TO 607 -FOR y = 32 TO 45 -IF POINT(x, y) = 4 THEN -PSET (x + 4, y - 30), 0 -ELSE -PSET (x + 4, y - 30), 15 -END IF -PSET (x, y), 0 -NEXT y -NEXT x -LINE (508, 1)-(611, 1), 0 -LINE (508, 1)-(508, 15), 0 -LOCATE 28, 5: PRINT "LEVEL:" -FOR x = 28 TO 98 -FOR y = 432 TO 445 -IF POINT(x, y) = 4 THEN -PSET (x, y + 32), 0 -ELSE -PSET (x, y + 32), 15 -END IF -PSET (x, y), 0 -NEXT y -NEXT x -LINE (28, 463)-(98, 463), 0 -LINE (28, 463)-(28, 476), 0 -LOCATE 28, 70: PRINT "SPEED:" -FOR x = 548 TO 612 -FOR y = 432 TO 445 -IF POINT(x, y) = 4 THEN -PSET (x, y + 32), 0 -ELSE -PSET (x, y + 32), 15 -END IF -PSET (x, y), 0 -NEXT y -NEXT x -LINE (548, 463)-(612, 463), 0 -LINE (548, 463)-(548, 476), 0 - -LINE (267, 463)-(371, 476), 15, BF -LINE (267, 463)-(371, 463), 0 -LINE (267, 463)-(267, 476), 0 -LINE (20, 20)-(619, 459), 8, BF - -END SUB - -FUNCTION EndGAME - -IF Lives = 0 THEN -RemainingLIVES& = 1 -ELSE -RemainingLIVES& = Lives -END IF -FinalSCORE& = Score * RemainingLIVES& * 10& - -GET (166, 152)-(472, 327), BigBOX -LINE (166, 152)-(472, 327), 0, BF -LINE (168, 154)-(470, 325), 8, B -LINE (170, 156)-(468, 323), 7, B -LINE (172, 158)-(466, 321), 6, B - -IF FinalSCORE& > ScoreDATA(9).PlayerSCORE THEN -COLOR 4 -LOCATE 12, 31 -PRINT "- G A M E O V E R -" -COLOR 3 -IF Lives = 0 THEN -LOCATE 13, 30 -PRINT "(Sorry, no more lives)" -ELSE -LOCATE 13, 33 -PRINT "Congratulations!" -END IF - -Hundred$ = LTRIM$(STR$(FinalSCORE& MOD 1000)) -IF FinalSCORE& >= 1000 THEN -IF VAL(Hundred$) = 0 THEN Hundred$ = "000" -IF VAL(Hundred$) < 100 THEN Hundred$ = "0" + Hundred$ -Thousand$ = LTRIM$(STR$(FinalSCORE& \ 1000)) -FinalSCORE$ = Thousand$ + "," + Hundred$ -ELSE -FinalSCORE$ = Hundred$ -END IF -COLOR 6: LOCATE 15, 28: PRINT "Your final score is "; -COLOR 15: PRINT FinalSCORE$ -COLOR 9 -LOCATE 16, 26: PRINT "Enter your name to record score" -LOCATE 17, 26: PRINT "(Just press ENTER to decline):" -COLOR 15 -LOCATE 19, 26: INPUT ; Name$ -IF LEN(Name$) THEN -ScoreDATA(10).PlayerNAME = LEFT$(Name$, 20) -ScoreDATA(10).PlayDATE = DATE$ -ScoreDATA(10).PlayerSCORE = FinalSCORE& -FOR a = 0 TO 10 -FOR B = a TO 10 -IF ScoreDATA(B).PlayerSCORE > ScoreDATA(a).PlayerSCORE THEN -SWAP ScoreDATA(B), ScoreDATA(a) -END IF -NEXT B -NEXT a - -TopTEN - -OPEN "rattler.top" FOR OUTPUT AS #1 -FOR Reps = 0 TO 9 -WRITE #1, ScoreDATA(Reps).PlayerNAME -WRITE #1, ScoreDATA(Reps).PlayDATE -WRITE #1, ScoreDATA(Reps).PlayerSCORE -NEXT Reps -CLOSE #1 -END IF -END IF - -LINE (176, 160)-(462, 317), 0, BF -COLOR 4: LOCATE 14, 31: PRINT "- G A M E O V E R -" -COLOR 9 -LOCATE 16, 26: PRINT "Start new game......" -LOCATE 17, 26: PRINT "QUIT................" -COLOR 6 -LOCATE 16, 47: PRINT "Press [1]" -LOCATE 17, 47: PRINT "Press [2]" - -DO -k$ = INKEY$ -LOOP UNTIL k$ = "1" OR k$ = "2" OR k$ = CHR$(27) -IF k$ = "1" THEN EndGAME = 1: EXIT FUNCTION -PALETTE: COLOR 7: CLS -SYSTEM - -END FUNCTION - -SUB InitGAME - -SetSPEED = 9 -SpeedLEVEL = 3 -Level = 1 -Lives = 5 -Score = 0 -CrittersLEFT = 10 - -END SUB - -SUB InitLEVEL - -ERASE SnakePIT -SnakeLENGTH = 11 -StartCOL = 22 - -FOR n = 1 TO SnakeLENGTH -StartCOL = StartCOL - 1 -Rattler(n).Col = StartCOL -Rattler(n).Row = 22 -Rattler(n).TURN = 0 -Rattler(n).WhichWAY = Right -SELECT CASE n -CASE 1: Rattler(n).BodyPART = Head -CASE 2: Rattler(n).BodyPART = Neck -CASE 3: Rattler(n).BodyPART = Shoulders -CASE 4: Rattler(n).BodyPART = Body -CASE 5: Rattler(n).BodyPART = Body -CASE 6: Rattler(n).BodyPART = Shoulders -CASE 7: Rattler(n).BodyPART = Neck -CASE 8: Rattler(n).BodyPART = Tail -CASE 9: Rattler(n).BodyPART = TailEND -CASE 10: Rattler(n).BodyPART = Rattle -CASE 11: Rattler(n).BodyPART = Blank -END SELECT -NEXT n - -PrintNUMS 1, Lives -PrintNUMS 2, Score -PrintNUMS 3, Level -PrintNUMS 5, SpeedLEVEL - -FOR n = 1 TO SnakeLENGTH -RCol = Rattler(n).Col -RRow = Rattler(n).Row -RIndex = Rattler(n).BodyPART + Rattler(n).TURN + Rattler(n).WhichWAY -PutSPRITE RCol, RRow, RIndex -NEXT n -SnakePIT(Rattler(SnakeLENGTH).Col, Rattler(SnakeLENGTH).Row) = 0 - -FOR Col = 1 TO 32 -SnakePIT(Col, 1) = -1 -SnakePIT(Col, 24) = -1 -NEXT Col -FOR Row = 2 TO 23 -SnakePIT(1, Row) = -1 -SnakePIT(32, Row) = -1 -NEXT Row - -LINE (271, 466)-(368, 474), 15, BF -FOR x = 271 TO 361 STEP 10 -Count = Count + 1 -IF Count MOD 2 THEN Colr = 11 ELSE Colr = 7 -LINE (x, 466)-(x + 7, 474), Colr, BF -NEXT x - -END SUB - -SUB Instructions - -GET (100, 100)-(539, 379), BigBOX -LINE (100, 100)-(539, 379), 0, BF -LINE (106, 106)-(533, 373), 13, B -LINE (108, 108)-(531, 371), 7, B -LINE (110, 110)-(529, 369), 6, B - -COLOR 9: LOCATE 10, 27: PRINT "- I N S T R U C T I O N S -" -COLOR 6 -LOCATE 12, 18: PRINT "RATTLER is a variation on the classic Microsoft" -LOCATE 13, 18: PRINT "QBasic game NIBBLES." -COLOR 15 -LOCATE 12, 18: PRINT "RATTLER": LOCATE 13, 30: PRINT "NIBBLES" -COLOR 6 -LOCATE 15, 18: PRINT "Steer the Diamondback Rattler using the Arrow" -LOCATE 16, 18: PRINT "keys, eating mice and frogs and scoring points" -COLOR 15: LOCATE 15, 58: PRINT "Arrow": COLOR 6 -LOCATE 17, 18: PRINT "for each kill. These wary creatures cannot be" -LOCATE 18, 18: PRINT "caught from the front or sides, however. They" -LOCATE 19, 18: PRINT "must be snuck up on from behind, otherwise" -LOCATE 20, 18: PRINT "they will simply jump to a new location." - -COLOR 13: LOCATE 22, 28: PRINT "PRESS ANY KEY TO CONTINUE..." - -a$ = INPUT$(1) -LINE (120, 160)-(519, 332), 0, BF -COLOR 6 -LOCATE 12, 18: PRINT "With each creature eaten, the rattler grows" -LOCATE 13, 18: PRINT "in length, making steering much more difficult" -LOCATE 14, 18: PRINT "and increasing the chance of self-collision." -LOCATE 16, 18: PRINT "There are ten levels, each one more hazardous" -LOCATE 17, 18: PRINT "than the last. If the snake hits a stone wall" -LOCATE 18, 18: PRINT "or bumps into himself, he dies. He has a total" -LOCATE 19, 18: PRINT "of five lives. Once they are used up, the game" -LOCATE 20, 18: PRINT "is over." -COLOR 15 -LOCATE 16, 28: PRINT "ten": LOCATE 19, 21: PRINT "five" - -a$ = INPUT$(1) -LINE (120, 160)-(519, 332), 0, BF -COLOR 6 -LOCATE 12, 18: PRINT "Often, a mouse or frog will have its back to" -LOCATE 13, 18: PRINT "a wall, making it impossible to kill. In those" -LOCATE 14, 18: PRINT "situations, you must attack from the front or" -LOCATE 15, 18: PRINT "sides, forcing it to move to a location where" -LOCATE 16, 18: PRINT "its back is exposed." -LOCATE 18, 18: PRINT "There are five speeds to choose from. It may" -LOCATE 19, 18: PRINT "be wise to choose a slower speed for the high-" -LOCATE 20, 18: PRINT "er levels. The default speed is 3." -COLOR 15: LOCATE 18, 28: PRINT "five": LOCATE 20, 50: PRINT "3" -a$ = INPUT$(1) -LINE (120, 160)-(519, 332), 0, BF -COLOR 9 -LOCATE 12, 18: PRINT "SCORING:" -COLOR 6 -LOCATE 12, 18: PRINT "SCORING: Each kill scores 10 points multiplied" -LOCATE 13, 18: PRINT "by the level of difficulty and the speed. For" -LOCATE 14, 18: PRINT "example, at level 5, speed 3, a kill is worth" -LOCATE 15, 18: PRINT "150 points; level 10, speed 2: 200 points." -LOCATE 17, 18: PRINT "If you manage to complete all 10 levels, your" -LOCATE 18, 18: PRINT "final score is then multiplied by the number" -LOCATE 19, 18: PRINT "of remaining lives. In other words, the score" -LOCATE 20, 18: PRINT "accurately reflects your level of achievement." -COLOR 15 -LOCATE 12, 18: PRINT "SCORING" -LOCATE 12, 44: PRINT "10": LOCATE 14, 36: PRINT "5" -LOCATE 14, 45: PRINT "3": LOCATE 15, 18: PRINT "150" -LOCATE 15, 36: PRINT "10": LOCATE 15, 46: PRINT "2" -LOCATE 15, 49: PRINT "200" -a$ = INPUT$(1) -LINE (120, 160)-(519, 368), 0, BF -COLOR 6 -LOCATE 12, 18: PRINT "Indicators of remaining lives and the current" -LOCATE 13, 18: PRINT "score are located at the top of the screen on" -COLOR 15: LOCATE 12, 42: PRINT "lives" -LOCATE 13, 18: PRINT "score": COLOR 6 -LOCATE 14, 18: PRINT "the extreme left and right, respectively." -LOCATE 16, 18: PRINT "The current level of play can be found on the" -LOCATE 17, 18: PRINT "bottom-left of the screen. Bottom-center you" -LOCATE 18, 18: PRINT "will find a graph indicating the number of" -LOCATE 19, 18: PRINT "prey remaining on the current level. The cur-" -LOCATE 20, 18: PRINT "rent speed can be read bottom-right." -COLOR 15 -LOCATE 16, 30: PRINT "level" -LOCATE 18, 51: PRINT "number of": LOCATE 19, 18: PRINT "prey" -LOCATE 20, 23: PRINT "speed" -COLOR 13: LOCATE 22, 25: PRINT "PRESS ANY KEY TO RETURN TO GAME..." -a$ = INPUT$(1) - -PUT (100, 100), BigBOX, PSET - -END SUB - -SUB Intro - -PutSPRITE 7, 16, Rattle + Up -PutSPRITE 7, 15, TailEND + Up -PutSPRITE 7, 14, Tail + Up -PutSPRITE 7, 13, Neck + Up -PutSPRITE 7, 12, Shoulders + Up -PutSPRITE 7, 11, Body + Up -PutSPRITE 7, 10, Body + TURN + UR -PutSPRITE 8, 10, Body + Right -PutSPRITE 9, 10, Body + TURN + RD -PutSPRITE 9, 11, Body + TURN + DL -PutSPRITE 8, 11, Body + TURN + LD -PutSPRITE 8, 12, Body + TURN + DR -PutSPRITE 9, 12, Body + TURN + RD -PutSPRITE 9, 13, Body + Down -PutSPRITE 9, 14, Body + TURN + DR -PutSPRITE 10, 14, Body + TURN + RU -PutSPRITE 10, 13, Body + Up -PutSPRITE 10, 12, Body + Up -PutSPRITE 10, 11, Body + Up -PutSPRITE 10, 10, Body + TURN + UR -PutSPRITE 11, 10, Body + Right -PutSPRITE 12, 10, Body + TURN + RD -PutSPRITE 12, 11, Body + Down -PutSPRITE 12, 12, Body + Down -PutSPRITE 12, 13, Body + Down -PutSPRITE 12, 14, Body + TURN + DR -PutSPRITE 13, 14, Body + Right -PutSPRITE 11, 12, Body + Right -PutSPRITE 13, 10, Body + Right -PutSPRITE 14, 10, Body + Right -PutSPRITE 15, 10, Body + Right -PutSPRITE 16, 10, Body + Right -PutSPRITE 17, 10, Body + Right -PutSPRITE 14, 11, Body + Down -PutSPRITE 14, 12, Body + Down -PutSPRITE 14, 13, Body + Down -PutSPRITE 14, 14, Body + TURN + DR -PutSPRITE 15, 14, Body + Right -PutSPRITE 16, 11, Body + Down -PutSPRITE 16, 12, Body + Down -PutSPRITE 16, 13, Body + Down -PutSPRITE 16, 14, Body + TURN + DR -PutSPRITE 17, 14, Body + Right -PutSPRITE 18, 10, Body + Down -PutSPRITE 18, 11, Body + Down -PutSPRITE 18, 12, Body + Down -PutSPRITE 18, 13, Body + Down -PutSPRITE 18, 14, Body + TURN + DR -PutSPRITE 19, 14, Body + Right -PutSPRITE 20, 10, Body + TURN + UR -PutSPRITE 21, 12, Body + Right -PutSPRITE 21, 10, Body + Right -PutSPRITE 20, 11, Body + Down -PutSPRITE 20, 12, Body + Down -PutSPRITE 20, 13, Body + Down -PutSPRITE 20, 14, Body + TURN + DR -PutSPRITE 21, 14, Body + Right -PutSPRITE 22, 16, Rattle + Up -PutSPRITE 22, 15, TailEND + Up -PutSPRITE 22, 14, Tail + Up -PutSPRITE 22, 13, Neck + Up -PutSPRITE 22, 12, Shoulders + Up -PutSPRITE 22, 11, Body + Up -PutSPRITE 22, 10, Body + TURN + UR -PutSPRITE 23, 10, Body + Right -PutSPRITE 24, 10, Body + TURN + RD -PutSPRITE 24, 11, Body + TURN + DL -PutSPRITE 23, 11, Body + TURN + LD -PutSPRITE 23, 12, Body + TURN + DR -PutSPRITE 24, 12, Body + TURN + RD -PutSPRITE 24, 13, Body + Down -PutSPRITE 24, 14, Body + TURN + DR -PutSPRITE 25, 14, Body + Right -PutSPRITE 26, 14, Shoulders + TURN + RU -PutSPRITE 26, 13, Neck + Up -PutSPRITE 26, 12, Head + Up -COLOR 13 -LOCATE 22, 20 -PRINT "Copyright (C) 2003 by Bob Seguin (Freeware)" -FOR x = 152 TO 496 -FOR y = 336 TO 352 -IF POINT(x, y) = 0 THEN PSET (x, y), 8 -NEXT y -NEXT x -LINE (80, 106)-(560, 386), 13, B -LINE (76, 102)-(564, 390), 7, B -SetPALETTE - - -PLAY "MFMST200L32O0AP16AP16AP16DP16AP16AP16AP16>C 1 THEN RowINC = -1: ColINC = 0: Direction = Up -CASE CHR$(0) + "P" -IF RowINC <> -1 THEN RowINC = 1: ColINC = 0: Direction = Down -CASE CHR$(0) + "K" -IF ColINC <> 1 THEN ColINC = -1: RowINC = 0: Direction = Left -CASE CHR$(0) + "M" -IF ColINC <> -1 THEN ColINC = 1: RowINC = 0: Direction = Right -CASE " " -Item = 2 -PauseMENU Item -IF Item = -1 THEN GOSUB ReSTART: -END SELECT - -Row = Row + RowINC -Col = Col + ColINC - -'Lengthen snake if prey has been eaten -IF Increase THEN -SnakeLENGTH = SnakeLENGTH + 1 -FOR n = SnakeLENGTH TO SnakeLENGTH - 7 STEP -1 -Rattler(n).BodyPART = Rattler(n - 1).BodyPART -NEXT n -Increase = Increase - 1 -'If snake length has been increased significantly, adjust speed -IF Increase = 0 THEN -SELECT CASE SnakeLENGTH -CASE 36 TO 46: Speed = SetSPEED - 1 -CASE IS > 46: Speed = SetSPEED - 2 -END SELECT -END IF -END IF - -FOR n = SnakeLENGTH TO 2 STEP -1 -SWAP Rattler(n).Row, Rattler(n - 1).Row -SWAP Rattler(n).Col, Rattler(n - 1).Col -SWAP Rattler(n).TURN, Rattler(n - 1).TURN -SWAP Rattler(n).WhichWAY, Rattler(n - 1).WhichWAY -SWAP Rattler(n).RattleDIR, Rattler(n - 1).RattleDIR -NEXT n - -IF Direction <> OldDIRECTION THEN -Rattler(2).TURN = TURN -SELECT CASE OldDIRECTION -CASE Up -SELECT CASE Direction -CASE Left: Rattler(2).WhichWAY = UL -CASE Right: Rattler(2).WhichWAY = UR -END SELECT -Rattler(2).RattleDIR = Up -CASE Down -SELECT CASE Direction -CASE Left: Rattler(2).WhichWAY = DL -CASE Right: Rattler(2).WhichWAY = DR -END SELECT -Rattler(2).RattleDIR = Down -CASE Left -SELECT CASE Direction -CASE Up: Rattler(2).WhichWAY = LU -CASE Down: Rattler(2).WhichWAY = LD -END SELECT -Rattler(2).RattleDIR = Left -CASE Right -SELECT CASE Direction -CASE Up: Rattler(2).WhichWAY = RU -CASE Down: Rattler(2).WhichWAY = RD -END SELECT -Rattler(2).RattleDIR = Right -END SELECT -END IF - -Rattler(1).Row = Row -Rattler(1).Col = Col -Rattler(1).TURN = 0 -Rattler(1).WhichWAY = Direction -Rattler(SnakeLENGTH).TURN = 0 -Rattler(SnakeLENGTH - 1).TURN = 0 - -IF Rattler(SnakeLENGTH - 2).TURN = 0 THEN -Rattler(SnakeLENGTH - 1).WhichWAY = Rattler(SnakeLENGTH - 2).WhichWAY -ELSE -Rattler(SnakeLENGTH - 1).WhichWAY = Rattler(SnakeLENGTH - 2).RattleDIR -END IF - -OldDIRECTION = Direction - -'TEST Map values -SELECT CASE SnakePIT(Col, Row) -CASE IS >= 1000 -IF SnakePIT(Col, Row) MOD 1000 = Rattler(1).WhichWAY THEN -IF SnakePIT(Col, Row) \ 1000 = 1 THEN PLAY "MBMST220L64O0BP16BO1P64B" -IF SnakePIT(Col, Row) \ 1000 = 2 THEN PLAY "MBT160L32O6A-B-B" -SnakePIT(Col, Row) = 0 -PreySCORE = PreySCORE + 1 -Score = Score + (Level * SpeedLEVEL) -PrintNUMS 2, Score -Increase = Increase + 5 -CrittersLEFT = CrittersLEFT - 1 -PrintNUMS 4, CrittersLEFT -IF PreySCORE = 10 THEN -PutSPRITE Col, Row, Blank -Wipe -PreySCORE = 0 -CrittersLEFT = 10 -Level = Level + 1 -IF Level = 11 THEN Choice = EndGAME -IF Choice THEN GOSUB ReSTART -PrintNUMS 3, Level -EXIT SUB -END IF -SetPREY = 1 -ELSE -SetPREY = 2 -END IF -CASE IS < 0 -PLAY "MBMST100O0L32GFEDC" -Lives = Lives - 1 -PrintNUMS 1, Lives -PreySCORE = 0 -GET (188, 184)-(450, 295), BigBOX -LINE (188, 184)-(450, 295), 0, BF -LINE (190, 186)-(448, 293), 8, B -LINE (192, 188)-(446, 291), 7, B -LINE (194, 190)-(444, 289), 6, B -LINE (196, 192)-(442, 287), 6, B -IF SnakePIT(Col, Row) = -1 THEN -COLOR 4: LOCATE 15, 35: PRINT "G L O R N K !" -COLOR 9: LOCATE 16, 35: PRINT "HIT THE WALL!" -ELSE -COLOR 4: LOCATE 15, 37: PRINT "O U C H !" -COLOR 9: LOCATE 16, 35: PRINT "BIT YOURSELF!" -END IF -StartTIME! = TIMER: DO: LOOP WHILE TIMER < StartTIME! + 1 -PUT (188, 184), BigBOX, PSET -IF Lives = 0 THEN Choice = EndGAME -IF Choice THEN GOSUB ReSTART -CrittersLEFT = 10 -Wipe -EXIT SUB -END SELECT - -WAIT &H3DA, 8 -FOR n = SnakeLENGTH TO 1 STEP -1 -RCol = Rattler(n).Col -RRow = Rattler(n).Row -RIndex = Rattler(n).BodyPART + Rattler(n).TURN + Rattler(n).WhichWAY -PutSPRITE RCol, RRow, RIndex -IF Rattler(n).BodyPART = Body THEN -FOR nn = n TO 1 STEP -1 -IF Rattler(n).BodyPART = Shoulders THEN -n = nn -EXIT FOR -END IF -NEXT nn -END IF -NEXT n - -IF SetPREY THEN -IF SetPREY = 2 THEN -IF WhichPREY = 1 THEN WhichPREY = 0 ELSE WhichPREY = 1 -END IF -GOSUB PutPREY -SetPREY = 0 -END IF - -SnakePIT(Rattler(SnakeLENGTH).Col, Rattler(SnakeLENGTH).Row) = 0 - -FOR Reps = 1 TO Speed -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -NEXT Reps - -LOOP - -EXIT SUB - -'------------------------ SUBROUTINE SECTION BEGINS -------------------------- - -Rattle2: -IF Reps MOD 3 = 0 THEN -LINE (420, 429)-(425, 430), 4, B -LINE (426, 428)-(430, 428), 4 -LINE (426, 431)-(430, 431), 4 -END IF -Hula = Hula + 1 -PLAY "MFT220L64O0C" -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -SELECT CASE Hula MOD 2 -CASE 0: PUT (220, 418), SpriteBOX(Rattle + Right), PSET -CASE 1: PUT (220, 422), SpriteBOX(Rattle + Right), PSET -END SELECT -SOUND 30000, 1 -WAIT &H3DA, 8 -WAIT &H3DA, 8, 8 -PUT (220, 420), SpriteBOX(Rattle + Right), PSET -IF Reps MOD 3 = 0 THEN -LINE (420, 428)-(430, 431), 8, BF -END IF -IF Level = 8 THEN PutSPRITE 12, 21, Stone -RETURN - -PutPREY: -DO -PreyCOL = INT(RND * 30) + 2 -PreyROW = INT(RND * 22) + 2 -LOOP WHILE SnakePIT(PreyCOL, PreyROW) <> 0 -WhichDIR = INT(RND * 4) -SELECT CASE WhichDIR -CASE 0: Way = Left -CASE 1: Way = Up -CASE 2: Way = Right -CASE 3: Way = Down -END SELECT -IF WhichPREY = 1 THEN -PutSPRITE PreyCOL, PreyROW, Frog + Way -SnakePIT(PreyCOL, PreyROW) = 1000 + Way -WhichPREY = 0 -ELSE -PutSPRITE PreyCOL, PreyROW, Mouse + Way -SnakePIT(PreyCOL, PreyROW) = 2000 + Way -WhichPREY = 1 -END IF -RETURN - -ReSTART: -PLAY "MBMST200L32O0AP16AP16AP16DP16AP16AP16AP16>C 0 THEN -LOCATE PrintROW, 18 -PRINT ScoreDATA(c).PlayerNAME -LOCATE PrintROW, 40 -PRINT ScoreDATA(c).PlayDATE -LOCATE PrintROW, 56 -PRINT USING "###,###"; ScoreDATA(c).PlayerSCORE -END IF -PrintROW = PrintROW + 1 -NEXT c -LINE (87, 121)-(551, 357), 13, B -LINE (89, 123)-(549, 355), 13, B -PSET (89, 123), 15 -LINE (91, 125)-(547, 353), 13, B -PSET (91, 125), 15 -LINE (100, 157)-(538, 334), 13, B -FOR LR = 174 TO 334 STEP 16 -LINE (100, LR)-(538, LR), 13 -NEXT LR -LINE (124, 158)-(124, 334), 13 -LINE (300, 158)-(300, 334), 13 -LINE (402, 158)-(402, 334), 13 - -a$ = INPUT$(1) -PUT (84, 119), BigBOX, PSET - -END SUB - -SUB Wipe - -FOR n = 1 TO 660 -DO -x = INT(RND * 30) -y = INT(RND * 22) -xx = x + 1: yy = y + 1 -LOOP UNTIL WipeBOX(x, y) = 0 -LINE (xx * 20, yy * 20)-(xx * 20 + 19, yy * 20 + 19), 9, BF -LINE (xx * 20, yy * 20)-(xx * 20 + 19, yy * 20 + 19), 4, BF -LINE (xx * 20, yy * 20)-(xx * 20 + 19, yy * 20 + 19), 10, BF -LINE (xx * 20, yy * 20)-(xx * 20 + 19, yy * 20 + 19), 15, BF -LINE (xx * 20, yy * 20)-(xx * 20 + 19, yy * 20 + 19), 10, BF -LINE (xx * 20, yy * 20)-(xx * 20 + 19, yy * 20 + 19), 8, BF -WipeBOX(x, y) = 1 -NEXT n - -ERASE WipeBOX - -END SUB diff --git a/programs/samples/thebob/sol/readme.txt b/programs/samples/thebob/sol/readme.txt deleted file mode 100644 index 24f407dab..000000000 --- a/programs/samples/thebob/sol/readme.txt +++ /dev/null @@ -1,3 +0,0 @@ -Unzip to your QBasic folder or a different folder or make a game folder and unzip files into it. - -NOTE: This game requires graphics files created by any accompanying .bas programs in the zip file. If two or more accompanying .bas files are present, run the first on only. It will automatically chain (run) the second file. After you run the accompanying .bas file, the main program ready to use! diff --git a/programs/samples/thebob/sol/s3gfx.bas b/programs/samples/thebob/sol/s3gfx.bas deleted file mode 100644 index 74c8802f7..000000000 --- a/programs/samples/thebob/sol/s3gfx.bas +++ /dev/null @@ -1,1167 +0,0 @@ -CHDIR ".\programs\samples\thebob\sol" - -DEFINT A-Z -DECLARE SUB SaveFILE (FileNAME$, ByteCOUNT&) -DECLARE SUB PrintSTRING (x, y, Prnt$) -DECLARE SUB DoHELP () -DIM SHARED Box(28500) -SCREEN 12 -GOSUB SetPALETTE -OPEN "sol3opts.dat" FOR OUTPUT AS #1: WRITE #1, 1, 1: CLOSE #1 -LINE (100, 80)-(170, 110), 1, BF 'Draw buttons begins here -FOR x = 100 TO 152 STEP 16 - IF x = 132 THEN x = 134 - IF x = 150 THEN x = 152 - LINE (x, 80)-(x + 14, 93), 14, BF - LINE (x, 80)-(x + 14, 93), 5, B - LINE (x, 80)-(x + 14, 80), 15 - LINE (x, 80)-(x, 93), 15 -NEXT x -LINE (104, 89)-(110, 91), 15, B -LINE (104, 89)-(109, 90), 5, B -LINE (120, 84)-(128, 91), 15, B -LINE (119, 82)-(127, 90), 5, B -LINE (119, 83)-(127, 83), 5 -PSET (138, 83), 0: DRAW "F7lH7BR7G7rE7" -PSET (157, 83), 0: DRAW "F7lH7BR7G7rE7" -LINE (152, 80)-(166, 93), 5, B -LINE (153, 93)-(166, 93), 15 -LINE (166, 81)-(166, 93), 15 -GET (100, 80)-(148, 93), Box() -PUT (100, 95), Box(), PSET -LINE (101, 96)-(112, 107), 14, BF -LINE (117, 96)-(128, 107), 14, BF -PSET (121, 97), 1: DRAW "D9E4unH4bl1p1,1" -PSET (109, 97), 1: DRAW "D9H4unE4br1p1,1" -GET (100, 80)-(148, 93), Box() -GET (100, 95)-(148, 108), Box(200) -GET (152, 80)-(166, 93), Box(400) -SaveFILE "Sol3BTNS", 1000 -LINE (100, 80)-(170, 110), 0, BF -MaxWIDTH = 587 -MaxDEPTH = 98 -x = 0: y = 0 -RESTORE PixDATA -DO - READ DataSTRING$ - FOR n = 1 TO LEN(DataSTRING$) - Char$ = MID$(DataSTRING$, n, 1) - SELECT CASE Char$ - CASE "!" - n = n + 1 - a$ = MID$(DataSTRING$, n, 1) - Count = ASC(a$) + 68 - CASE "#" - n = n + 1 - B$ = MID$(DataSTRING$, n) - FOR i = 1 TO LEN(B$) - t$ = MID$(B$, i, 1) - IF t$ = "#" THEN EXIT FOR - c$ = c$ + t$ - NEXT i - Count = VAL("&H" + c$) - n = n + LEN(c$) - c$ = "" - CASE ELSE - Count = ASC(Char$) - 60 - END SELECT - n = n + 1 - Colr = VAL("&H" + MID$(DataSTRING$, n, 1)) - FOR Reps = 1 TO Count - PSET (x, y), Colr - x = x + 1 - IF x > MaxWIDTH THEN x = 0: y = y + 1 - NEXT Reps - NEXT n -LOOP UNTIL y > MaxDEPTH 'DATA drawing loop ends here -------------------- -LINE (544, 75)-(544, 85), 14 -GET (530, 89)-(542, 96), Box() 'check mark -LINE (530, 86)-(544, 98), 0, BF -SaveFILE "Sol3Chek", 100 -FaceINDEX = 14500 'get face cards -FOR FaceX = 0 TO 540 STEP 49 - GET (FaceX, 0)-(FaceX + 48, 43), Box(FaceINDEX) - PUT (FaceX, 0), Box(FaceINDEX) - FaceINDEX = FaceINDEX + 800 -NEXT FaceX -GET (48, 88)-(113, 98), Box(24000) -GET (119, 88)-(148, 98), Box(24200) -GET (154, 88)-(194, 98), Box(24400) -GET (200, 88)-(232, 98), Box(24600) -GET (238, 88)-(266, 98), Box(24800) -GET (272, 88)-(315, 98), Box(25000) -GET (320, 88)-(326, 98), Box(25200) -DEF SEG = VARSEG(Box(0)) -BSAVE "sol3hdgs.bsv", VARPTR(Box(24000)), 2800 -DEF SEG -LINE (48, 88)-(328, 98), 0, BF -GET (0, 45)-(40, 94), Box(25500) -PUT (0, 45), Box(25500) -GET (412, 70)-(462, 85), Box() 'Get title begins here --------------------- -PUT (412, 70), Box() -SaveFILE "Sol3TITL", 452 -Index = 0 'Get numbers/$ begins here ---------------------- -FOR x = 465 TO 537 STEP 8 - GET (x, 76)-(x + 7, 85), Box(Index) - Index = Index + 50 -NEXT x -GET (331, 87)-(337, 97), Box(Index) -Index = Index + 50 -FOR x = 465 TO 544 - FOR y = 75 TO 85 - IF POINT(x, y) = 2 THEN PSET (x, y), 4 -NEXT y: NEXT x -FOR x = 465 TO 537 STEP 8 - GET (x, 76)-(x + 7, 85), Box(Index) - Index = Index + 50 -NEXT x -GET (340, 87)-(347, 97), Box(Index) -SaveFILE "Sol3NUMS", 2200 -LINE (329, 86)-(348, 98), 0, BF -LINE (465, 74)-(544, 85), 0, BF -Index = 0 'Get stack symbols begins here ---------------------------- -FOR x = 430 TO 520 STEP 30 - GET (x, 46)-(x + 24, 69), Box(Index) - PUT (x, 46), Box(Index) - Index = Index + 200 -NEXT x -SaveFILE "Sol3SUIT", 1600 -Index = 2 -FOR y = 50 TO 74 STEP 12 - FOR x = 44 TO 424 STEP 12 - GET (x, y)-(x + 11, y + 11), Box(Index) - PUT (x, y), Box(Index) - Index = Index + 50 - IF Index = 94 * 50 + 2 THEN EXIT FOR -NEXT x: NEXT y -Box(0) = 50 -Box(1) = 3 -FOR Index = 2 TO 93 * 50 + 2 STEP 50 - LINE (0, 200)-(20, 220), 0, BF - PUT (0, 200), Box(Index) - x1 = -1: x2 = -1 - FOR x = 0 TO 20 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x - NEXT y: NEXT x - FOR x = 20 TO 0 STEP -1 - FOR y = 200 TO 220 - IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x - NEXT y: NEXT x - GET (x1, 200)-(x2 + 1, 211), Box(Index) -NEXT Index -LINE (0, 200)-(20, 220), 0, BF -DEF SEG = VARSEG(Box(0)) -BSAVE "sol3mssr.fnt", VARPTR(Box(0)), 10000 -DEF SEG -GET (568, 73)-(582, 87), Box(2500) 'heart 'Card prep code begins here ----- -GET (570, 90)-(580, 98), Box(2700) 'small heart -GET (546, 45)-(560, 60), Box(2900) 'club -GET (548, 62)-(558, 71), Box(3100) 'small club -GET (547, 72)-(560, 86), Box(3300) 'diamond -GET (549, 88)-(559, 98), Box(3500) 'small diamond -GET (567, 45)-(581, 60), Box(3700) 'spade -GET (569, 61)-(579, 71), Box(3900) 'small spade -LINE (546, 45)-(588, 98), 0, BF -Index = 4100 'Red Ace -FOR x = 350 TO 518 STEP 14 - GET (x, 87)-(x + 10, 98), Box(Index) - Index = Index + 200 -NEXT x -FOR x = 350 TO 532 - FOR y = 87 TO 98 - IF POINT(x, y) = 4 THEN PSET (x, y), 0 - IF POINT(x, y) = 12 THEN PSET (x, y), 14 -NEXT y: NEXT x -Index = 6700 'Black Ace -FOR x = 350 TO 518 STEP 14 - GET (x, 87)-(x + 10, 98), Box(Index) - Index = Index + 200 -NEXT x -LINE (350, 86)-(530, 98), 0, BF -SpotINDEX = 2500 -FOR Reps = 1 TO 4 - GOSUB DoSPOTS - SpotINDEX = SpotINDEX + 400 -NEXT Reps -GOSUB DrawBLANK -LINE (269, 191)-(339, 295), 15, BF -Index = 6100: SpotINDEX = 2700 -FaceINDEX = 14500 -CardNUM = 11 -FOR Reps = 1 TO 12 - PUT (280, 200), Box(FaceINDEX), PSET - PUT (269, 207), Box(SpotINDEX), PSET - PUT (269, 194), Box(Index), PSET - Index = Index + 200 - FaceINDEX = FaceINDEX + 800 - IF Index = 6700 THEN - Index = 8700 - IF SpotINDEX = 3500 THEN SpotINDEX = 3900 ELSE SpotINDEX = 3100 - END IF - IF Index = 9300 THEN Index = 6100: SpotINDEX = 3500 - FOR xx = 269 TO 339 - FOR yy = 191 TO 243 - PSET (608 - xx, 486 - yy), POINT(xx, yy) - NEXT yy: NEXT xx - FOR x = 269 TO 339 - FOR y = 191 TO 295 - PSET (x - 87, y), POINT(x, y) - NEXT y: NEXT x - GET (180, 189)-(254, 297), Box() - FileNAME$ = "Sol3CD" + LTRIM$(RTRIM$(STR$(CardNUM))) - SaveFILE FileNAME$, 4400 - CardNUM = CardNUM + 1 - IF CardNUM = 14 THEN CardNUM = 24 - IF CardNUM = 27 THEN CardNUM = 37 - IF CardNUM = 40 THEN CardNUM = 50 -NEXT Reps -LINE (269, 191)-(339, 295), 0, BF -LINE (182, 191)-(252, 295), 15, BF 'Draw money card begins here ------------ -LINE (193, 200)-(241, 286), 8, B -LINE (212, 205)-(214, 280), 6, BF -LINE (220, 205)-(222, 280), 6, BF -FOR y = 216 TO 256 STEP 20 - LINE (200, y)-(234, y + 16), 6, BF - LINE (201, y + 4)-(233, y + 12), 2, BF -NEXT y -LINE (200, 220)-(200, 236), 6 -LINE (234, 236)-(234, 256), 6 -LINE (201, 224)-(201, 240), 2 -LINE (233, 240)-(233, 260), 2 -LINE (202, 230)-(202, 236), 6 -LINE (232, 250)-(232, 256), 6 -LINE (213, 208)-(213, 277), 2 -LINE (221, 208)-(221, 277), 2 -FOR y = 200 TO 210 STEP 5 - LINE (184, y)-(190, y + 2), 7, BF -NEXT y -LINE (184, 200)-(184, 205), 7 -LINE (190, 205)-(190, 210), 7 -PSET (188, 197), 7: DRAW "D18 bl2 U18" -GET (184, 197)-(190, 215), Box() -PUT (244, 271), Box(), PSET -FOR y = 216 TO 256 STEP 20 - LINE (205, y + 7)-(229, y + 9), 7, BF - LINE (205, y + 7)-(229, y + 8), 3, B -NEXT y -GET (196, 210)-(206, 254), Box() -PUT (197, 210), Box(), PSET -GET (230, 234)-(238, 274), Box() -PUT (229, 234), Box(), PSET -PSET (201, 216), 15: DRAW "RG" -PSET (201, 252), 15: DRAW "RH" -PSET (233, 236), 15: DRAW "LF" -PSET (233, 272), 15: DRAW "LE" -GET (180, 189)-(254, 297), Box() -SaveFILE "Sol3CD55", 4400 -LINE (182, 194)-(252, 292), 15, BF 'Draw card back begins here ------------ -FOR x = 186 TO 248 STEP 2 - FOR y = 195 TO 291 STEP 2 - PSET (x, y), 1 - IF x <> 248 THEN PSET (x + 1, y + 1), 0 -NEXT y: NEXT x -GET (180, 189)-(254, 297), Box() -SaveFILE "Sol3CD53", 4400 -GET (180, 189)-(254, 317), Box() -SaveFILE "Sol3CD54", 5200 -LINE (180, 189)-(254, 297), 5, BF -LINE (180, 189)-(181, 189), 0: PSET (180, 190), 0 -LINE (180, 297)-(181, 297), 0: PSET (180, 296), 0 -LINE (253, 189)-(254, 189), 0: PSET (254, 190), 0 -LINE (253, 297)-(254, 297), 0: PSET (254, 296), 0 -GET (180, 189)-(254, 297), Box() -SaveFILE "Sol3Sele", 4400 -LINE (180, 189)-(254, 190), 0, B -LINE (182, 190)-(252, 190), 15 -PSET (181, 189), 15: PSET (253, 189), 15 -GET (180, 189)-(254, 190), Box() -SaveFILE "Sol3Topp", 88 -LINE (170, 179)-(264, 320), 0, BF -DoHELP -OUT &H3C8, 14: OUT &H3C9, 63: OUT &H3C9, 52: OUT &H3C9, 40 -LINE (5, 5)-(634, 474), 5, B: LINE (8, 8)-(631, 471), 5, B -LINE (200, 180)-(439, 290), 5, B: LINE (197, 177)-(442, 293), 5, B -PrintSTRING 238, 212, "The graphics files for SOLITAIRE-3" -PrintSTRING 243, 226, "have been successfully created." -PrintSTRING 246, 250, "You can now run the program." -a$ = INPUT$(1) -END - -DrawBLANK: -LINE (170, 179)-(264, 320), 11, BF -LINE (180, 189)-(254, 297), 15, BF -LINE (180, 189)-(254, 297), 0, B -LINE (180, 189)-(181, 190), 11, B -PSET (181, 190), 0 -LINE (253, 189)-(254, 190), 11, B -PSET (253, 190), 0 -LINE (180, 296)-(181, 297), 11, B -PSET (181, 296), 0 -LINE (253, 296)-(264, 297), 11, B -PSET (253, 296), 0 -PUT (182, 207), Box(SpotINDEX + 200), PSET -RETURN - -DoSPOTS: -GOSUB DrawBLANK -GOSUB PutNUM -PUT (210, 202), Box(SpotINDEX), PSET: GOSUB Invert -GOSUB SaveCARD: GOSUB PutNUM: GOSUB Ace: GOSUB SaveCARD -GOSUB DrawBLANK: GOSUB PutNUM: GOSUB Ace -IF SpotINDEX = 3700 THEN PUT (197, 215), Box(25500), PSET -GOSUB SaveCARD: GOSUB DrawBLANK -GOSUB Top: GOSUB PutNUM: GOSUB Invert: GOSUB SaveCARD -GOSUB PutNUM: GOSUB Ace: GOSUB SaveCARD -PAINT (217, 240), 15: GOSUB PutNUM: GOSUB Middle: GOSUB SaveCARD -GOSUB PutNUM: PUT (210, 218), Box(SpotINDEX), PSET -GOSUB Middle: GOSUB SaveCARD: LINE (195, 218)-(240, 260), 15, BF -GOSUB MidTOP: GOSUB PutNUM: GOSUB Invert: GOSUB SaveCARD -IF SpotINDEX = 2900 OR SpotINDEX = 3700 THEN Shift = -2 ELSE Shift = 0 -GOSUB PutNUM: PUT (210, 237 + Shift), Box(SpotINDEX), PSET -IF SpotINDEX = 3700 THEN PSET (210, 235), 0: PSET (224, 235), 0 -GOSUB SaveCARD: PAINT (217, 240), 15 -PUT (210, 213), Box(SpotINDEX), PSET -GOSUB PutNUM -IF SpotINDEX = 3700 THEN PSET (210, 213), 0: PSET (224, 213), 0 -IF SpotINDEX = 2500 THEN PSET (210, 226), 12: PSET (210, 227), 13 -IF SpotINDEX = 2500 THEN PSET (224, 226), 12: PSET (224, 227), 13 -GOSUB Invert: GOSUB SaveCARD -RETURN -Top: -PUT (196, 202), Box(SpotINDEX), PSET 'Four hearts -PUT (224, 202), Box(SpotINDEX), PSET 'Four hearts + Five (with Ace) + 6 Hearts top row -RETURN -MidTOP: -PUT (196, 224), Box(SpotINDEX), PSET -PUT (224, 224), Box(SpotINDEX), PSET -RETURN -Middle: -PUT (196, 236), Box(SpotINDEX), PSET -PUT (224, 236), Box(SpotINDEX), PSET -RETURN -Ace: -PUT (210, 235), Box(SpotINDEX), PSET -RETURN -Invert: -FOR x = 180 TO 254 - FOR y = 189 TO 244 - PSET (434 - x, 486 - y), POINT(x, y) -NEXT y: NEXT x -RETURN -PutNUM: -CardCOUNT = CardCOUNT + 1 -IF CardCOUNT = 11 THEN CardCOUNT = 14 -IF CardCOUNT = 24 THEN CardCOUNT = 27 -IF CardCOUNT = 37 THEN CardCOUNT = 40 -SaveNUM = CardCOUNT -SELECT CASE SaveNUM - CASE 1, 14, 27, 40: SaveNUM = SaveNUM + 1 - CASE 2, 15, 28, 41: SaveNUM = SaveNUM + 1 - CASE 3, 16, 29, 42: SaveNUM = SaveNUM - 2 -END SELECT -NumINDEX = (SaveNUM MOD 13) * 200 + 3900 -IF SaveNUM MOD 26 = SaveNUM MOD 13 THEN Advance = 0 ELSE Advance = 2600 -PUT (182, 194), Box(NumINDEX + Advance), PSET -GOSUB Invert -RETURN -SaveCARD: -GET (180, 189)-(254, 297), Box() -FileNAME$ = "Sol3CD" + LTRIM$(RTRIM$(STR$(SaveNUM))) -SaveFILE FileNAME$, 4400 -RETURN -DrawBOX: -RETURN - -SetPALETTE: -DATA 0, 0, 0, 16, 16, 32, 21, 63, 21, 63, 63, 0 -DATA 63, 0, 0, 28, 28, 28, 0, 34, 0, 63, 50, 10 -DATA 0, 30, 55, 45, 50, 63, 0, 63, 63, 0, 42, 0 -DATA 63, 45, 55, 63, 30, 40, 48, 48, 48, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 - READ Intensity - OUT &H3C9, Intensity -NEXT n -RETURN - -HelpDATA: -DATA "Solitaire 3 is played in the same way as con-" -DATA "ventional Solitaire, with one exceptiion: the" -DATA "24 cards remaining after the deal are divided" -DATA "into three stacks of 8 rather than the usual" -DATA "single stack of 24, thus creating an additional" -DATA "choice which can affect game outcome." -DATA "A game that might otherwise have been lost" -DATA "based strictly on the deal might now be won," -DATA "and vice versa." -DATA "" -DATA "In conventional Solitaire, the outcome is" -DATA "determined at the time the cards are dealt." -DATA "In Solitaire 3, `Undo` is limited to cards" -DATA "turned up from one of the three decks. Any" -DATA "other move is considered finished." -DATA "" -DATA "This limited Undo is only possible immediately" -DATA "following a card turn-up." -DATA "To move cards or columns of cards, first" -DATA "click the column of the card(s) to be moved," -DATA "then the destination column (it is not nec-" -DATA "essary to click a specific card; legal sel-" -DATA "ections are made automatically). In either" -DATA "case, only the bottom card is highlighted." -DATA "To send any legal card addition to the suit" -DATA "stacks (top-right screen), simply double-click" -DATA "the card, regardless of its location. To over-" -DATA "turn a card, simply click it." -DATA "For rules of Solitaire and basic play, reopen" -DATA "Help and click `Basic Solitaire`." -DATA "The object of Solitaire is to move all cards" -DATA "to their appropriate suit stack (top-right" -DATA "screen); aces first through kings." -DATA "Cards in the seven sorting columns (screen" -DATA "bottom) must be assembled in sequence:" -DATA "highest at the top to lowest at the bottom." -DATA "Black suits (clubs or spades) can only be" -DATA "placed on red suits (hearts or diamonds) in" -DATA "these columns, and vice versa." -DATA "It is not necessary to create entire columns" -DATA "of cards before moving cards to the stacks." -DATA "These columns are merely used for sorting." -DATA "Cards must be face up in order to be in play." -DATA "To overturn a card, simply click it. A card" -DATA "cannot be overturned unless there are no" -DATA "cards on top of it. To remove covering cards," -DATA "they must be legally transferred to another" -DATA "column or sent to the suit stacks." -DATA "Multiple card groupings may also be moved" -DATA "(to columns only) provided the top-most card" -DATA "in the grouping is a legal match for the bot-" -DATA "tom card of the column being moved to." -DATA "Kings (or groupings with a king on top) may" -DATA "be moved to an empty column." -DATA "When no further play is possible with visible" -DATA "cards, overturn a new card by clicking one of" -DATA "the three decks in the top-left screen area." -DATA "If this new card cannot be played (legally" -DATA "moved to a sorting column or to a suit" -DATA "stack), click one of the three decks again." -DATA "When no further progressive moves are pos-" -DATA "sible, the game is over. Whether or not you" -DATA "have won depends on how many cards you" -DATA "have `stacked`. A minimum of eleven cards" -DATA "is required for a win, but the ideal, of course," -DATA "is to stack all 52 cards." -DATA "Game Options in Solitaire 3 are limited to" -DATA "scoring preferences. These divide basically" -DATA "into Vegas-style scoring or no scoring." -DATA "There is a further option which can only" -DATA "be used when Vegas-style scoring is selec-" -DATA "ted: the Money card." -DATA "In Vegas-style scoring, you are charged" -DATA "$52.00 for each deck (deal) and are payed" -DATA "$5.00 for each card sent to the suit stacks." -DATA "Maximum earnings per game: $208.00." -DATA "With Vegas-style scoring, your score, plus" -DATA "or minus, is carried over from game to game." -DATA "The money card (if selected) is somewhere in" -DATA "the three decks and may turn up at any time." -DATA "When turned up, it can double the value of" -DATA "any cards on the suit stacks up to that point." -DATA "Its value is accessed merely by clicking it," -DATA "at which time its host card replaces it." -DATA "If you select Vegas-style scoring, you are" -DATA "only permitted to go through the three decks" -DATA "once. If you deselect it, you may go" -DATA "through them as many times as you wish." -DATA "Simply click the deck area after it is empty" -DATA "of all cards to reset the decks." - -PixDATA: - -DATA "#24D#8BF=8?4=F@4=F>4=F?4=F>4=F@4=F=4=8JF>8BF=8=4=8=F=8=9=8=9=8=9=8>F@0" -DATA "=4=B=3=B=3=0NF>8KF=0=B?3=B?3=B?3=B>3=7=B?7=B>7=B=0BF>8AF=0>4=0?4=0>4=0" -DATA "@4=0?4=0?4=0>4=0KF>8=0@3?B=3=4?0=4>F>9=8=9=8=9=8>F=8QF>8IF=0=B?3=B?3=B" -DATA "?3=B>3=7=B?7=B?7=0DF>8BF=0>4=F?4=F?4=F@4=F>4=F?4=F>4=0JF>8=0@3?B=3=4?0" -DATA "=4=9=F>9=8=9=8=9=8=F=9=8QF>8IF=0=6=3=6=3=6=3=6=3=6=3=6>3=6C3A7=9BF>8AF" -DATA "=0>4=0@4=0=4=0@4=0=4=0@4=0?4=0KF>8BF=8=4=8=F=8=9=8=9=8=9=8>F=0=F>0=4=6" -DATA "?3=0NF>8IF=0=7=6?7=6?7=6=7>3=6?3=6?3=6?3=0CF>8CF=8?4=F?4=F>4=F?4=F>4=F" -DATA "?4=F=4=8KF>8BF=8=4>8=9AF>9=8@0=4=3=B=3=0OF>8LF=0=B=3=B=3=B=3=B=3=B=3=B" -DATA "=3=B=3=B=7=B=7=B=7=B=7=0CF>8BF=0>4=0?4=0>4=0?4=0>4=0?4=0>4=0BF=E=0=ECF" -DATA ">8=F=0?3>B>3=4>0>4=F=9>8@F=9>8=3GF=E=0=ECF>8CF=E=0=E@F=0=B=3=B=3=B=3=B" -DATA "=3=B=3=B=3=B=3=B=7=B=7=B=7=B=7=0EF>8CF=0>4=F?4=F>4=F?4=F>4=F?4=F>4=0CF" -DATA "=4CF>8=E=0?3>B>3=4>0>4=F=9>8@F=9=8=9=3IF=4CF>8CF=4AF=E=0=6?3=6?3=6>3=6" -DATA "=3=6>3=6?3@7=8@F=9>F>8BF=0>4=0?4=0=4=0@4=0=4=0?4=0?4=0CF=0DF>8=F=8@F=8" -DATA "=4>8=9AF>9=8=0=F>0=4=3=6=3=0FF=0DF>8DF=0AF=0=7=6=7=6=7=6=7=6=7=6=3=6=3" -DATA "=6=3=6=3=6=3=6=3=6=3=0DF>8DF=8?4@F>4AF>4@F=4=8=9KF>8BF=8=4=8FF=9?0=4=B" -DATA ">3=0OF>8MF=0>3=B?3=B?3=B>3=7=B?7=B=7=0DF>8BF=B=0>4=0>4=0>4=0?4=0>4=0?4" -DATA "=0=4=0BFA0BF>8>F=0@3=B=3=4>0=4=9=F=8DF=8=3FFA0BF>8BFA0@F=0>3=B?3=B?3=B" -DATA ">3=7=B?7=B=7=0FF>8DF=0=4=F?4=F>4=F?4=F>4=F>4=F>4=0CF?4BF>8=F=E=0@3=B=3" -DATA "=4>0=4=9=F=8DF=9=7=EGF?4BF>8BF?4AF=0=3?6=3?6=3>6=3=6>3=6=3=6=3=7=6>7=8" -DATA "?F=9>8>F>8CF=0>4@0=4B0=4@0?4=0CF?0CF?8=3=8?F=8=4=8FF=0=F>0=4=6>3=0EF?0" -DATA "CF>8CF?0AF=0?7=6?7=6=7>3=6?3=6?3=6=3=0EF>8EF=8P4=8=F=C?4=D?F=D?4=C>F>8" -DATA "AF=9=8=4=8=F>9?F?9=F=9?0>4=B=0AF=C?4=D?F=D?4=C>F>8>F=C?4=D?F=D?4=C>F=0" -DATA ">B=3?B=3?B=3?B=7?B=7=B=0=F>BAF>8BF=B=3=0>4?0>4A0>4@0=4=0BF=EA0=EAF>8>F" -DATA "=0=3>B=3=B>4=0>4=9=8=F?8?F=9>8=0=3DF=EA0=EAF>8AF=EA0=E?F=0>B=3?B=3?B=3" -DATA "?B=7?B=7=B=0FF>8EF=0=4@F>4AF>4?F>4=0CF=D?4=DAF>8>F=0=3>B=3=B>4=0>4=9=8" -DATA "=F?8?F=9=8=9=0=3FF=D?4=DAF>8AF=D?4=DAF=0CD@4=3>6=3=6=3=7=6=7=6=7=8>F=8" -DATA "=9=F=8>F>8=F=3=7=3@F=0O4=0CFA0BF?8=3=8?F=8=4=8=F>9?F?9=F=0=F>0=4=7=6=0" -DATA "EFA0BF>8BFA0AF=0>6=7?6=7?6=3?6=3?6=3=6=0EF>8?F=9BF=8N4=8=F=CA4=D=F=DA4" -DATA "=C=F>8AF=8>4=8>9=8?9=8>9=8=F=9?0=4=3=0@F=CA4=D=F=DA4=C=F>8=F=CA4=D=F=D" -DATA "A4=C>F=0G3C7=0>F>7=B@F>8=0@F=B>3=B=0>4>0>4A0>4?0>4=0BFC0AF>8?F=0@B=4>0" -DATA "=4=9=8=F>9=8>9>F=8>9=0=3DFC0AF>8AFC0@F=0G3C7=0GF>8EF=0>4?F>4AF>4>F?4=0" -DATA "BF=DA4=D@F>8>F=E=0@B=4>0=4>9=F>9=8>9>F=8>9=0=3EF=DA4=D@F>8@F=DA4=D@F=E" -DATA "BDE4?6=7=6=7=8>F=8?F=8=F=7>8=F=7=4=7AFO0CFC0AF>8?3=8=F=8>4@8?9@8=F=0=F" -DATA ">0=4=3=0DFC0AF>8AFC0@F=9=6D7F3=0FF>8?F>8=9AFN0=9=F=DB4=CB4=D=F>8AF=8>4" -DATA "=8=F>8>9=F?8>F=9?0=4=B=0@F=DB4=CB4=D=F>8=F=DB4=CB4=D?FI4>D?4?F=7@9>F>8" -DATA "=4=0?F=B=3=B=F=0M4=0CF=EA0=EAF>8?F=0=3=B>3=4>0=4=8?F?8=9>F>8=9=0=3DF=E" -DATA "A0=EAF>8AF=EA0=EAFI4>D?4HF>8=3EF=0M4=0BF=CC4=C?F>8?F=0=3=B>3=4>0=4>9>F" -DATA "?8=9>F>8=9=0=7=ECF=CC4=C?F>8?F=CC4=C@FE0E4=6=7=4>F=9=8>F>8=7?8=F=7=4=7" -DATA "AFO0BFE0@F>8?3>8>4=0=8=9>8>9=F>8=9>F=0=F>0=4=6=0CFE0@F>8@FE0@F@4>DI4GF" -DATA ">8=7>F=8=F=9=8@FN0>FK4=F>8AF=8=4=3=8?F=9CF=9?0=4=3=0@FK4=F>8=FK4?FI4>D" -DATA "?4?8=7@F=9=F>8>4=0>F=B=3=B=FO0DF=E?0=EBF>8?F=0>3=B=3=4=0>4=9GF=9>0=3DF" -DATA "=E?0=EBF>8BF=E?0=EBFI4>D?4HF>8=7=3DFO0AF=C=DC4=D=C>F>8?F=0>3=B=3=4=0>4" -DATA ">9FF=9>0=3BF=C=DC4=D=C>F>8>F=C=DC4=D=C?FG0F4>F=8>F=8=3>8=4>8=F=7=4=7AF" -DATA "=8CF=6=3=6=3=6=3=6=3=6=3=6AFG0?F>8?3>8=4=0=F=8?F=9CF=0=F>0=4=7=0BFG0?F" -DATA ">8?FG0?F@4>DI4GF?8=7=F=8?F=8?F=6=7=6=7=6=7=6=7=6=7=6BF=9>FJ4=D=F>8@F=9" -DATA "=8=4=3=8?F=9CF=9=F>0>4=8=0?FK4=F>8=FJ4=D?FN0?F=7B9>8?4=0=B=F=B>F=BN0AF" -DATA "=E=0=E=F?0=F=E=0=E?F>8>F=0>B=3=B>4=0=4=F=9GF=9>0=3AF=E=0=E=F?0=F=E=0=E" -DATA "?F>8?F=E=0=E=F?0=F=E=0=E?FN0EF=9>F>8=1=7=3CFN0=BAF=DE4=D>F>8>F=0>B=3=B" -DATA ">4=0=4=9=F=9FF=9>0=3BF=DE4=D>F>8>F=DE4=D?F=8AF=9B0C4=8=F=9=8>F=8>3=8=4" -DATA ">8=F=7=4=7AF>9>8>9>F=6=3=6=3=6=3=6=3=6=3=6@FI0>F>8?7>8=4=0=F=8?F=9CF=0" -DATA "=F>0=4=7=6=0@FI0>F>8>FI0>FO0DF=6>F>8=4=8=F>8>F=8=9>F=6=3=6=3=6=3=6=3=6" -DATA "=3=6>FA9>F=DI4=D=F>8@F=8>4=3=8?F=8CF=8=9?0=4=3=0?F=DI4=D=F>8=F=DI4=D?F" -DATA "N0>8>7AF=9>8@4=0?F=B=7=BFF=B=7=B>7=B=7=B?FI0>F>8>F=0@B=4>0=4=9=8EF=9=F" -DATA "=9=4=0=3@FI0>F>8>FI0>FN0DF=9=8=9=F>8=7=1=3CF=7=B>7=B=7=BFF=B=7@F=DG4=D" -DATA "=F>8=F=E=0@B=4>0=4=9=F=9DF=9=F=9=4=0=7=E@F=DG4=D=F>8=F=DG4=D>F=9>8=9@F" -DATA "=9G0>F=8>F=8>3=7=9?8=F=7=4=7AF=9=8?F=9=8=F=6=3=6=3=6=3=6=3=6=3=6?F=EI0" -DATA "=E=F>8=0=7=0>8=D=0=F=8?F=8CF=8=0=F>0=4=3=0?F=EI0=E=F>8=F=EI0=E=FO0CF=6" -DATA "=F=6=F>8=4=7>8=3=8>F=8>F=6=3=6=3=6=3=6=3=6=3=6=F=9?F=9=8>F=CI4=C=F>8@F" -DATA "=8>4=3=0=9>F=9=8=9@F=9=8=9?0=4=B=3=0>F=CI4=C=F>8=F=CI4=C?F=9HF=9=F=9=F" -DATA "=9?F=7AF=9>8A4=0>F=B=3@8?F@8=B>3=B=3=B=3=B>F=EI0=E=F>8=F=0>3=B>3=4=0>4" -DATA "=9=8=9AF=8>9>F=9=4>0=3>F=EI0=E=F>8=F=EI0=E=F=8=9GF=8=F=8=F=8CF=9?8=9>8" -DATA "=7=1=0BF=7=3=B=3=B>3=B?8=9?F=9?8=3=7@F=DE4=D>F>8=E=0>3=B>3=4=0>4=9=F=9" -DATA "AF=8>9>F=9=4>0=3AF=DE4=D>F>8>F=DE4=D?F=9=8?9@F=8=9E0>F@8>3=9=F=9>8=F?7" -DATA "@F>9=F>8>9>F=6=3=6=3=6=3=6=3=6=3=6?FK0=F?8=7?8=D=0=F=0=9>F=9=8=9@F=9=8" -DATA "=0=F>0=4=6=0?FK0=F>8=FK0=F=9=8=F=8=F=8GF=9=8BF=6?F=6>8=4=7=8>3=8>F=8=9" -DATA "=F=6=3=6=3=6=3=6=3=6=3=6=F>9>8=F=9?F=DG4=D>F>8@F=8>4=3=0=8EF=8=9=F=9>0" -DATA ">4>3=0>F=DG4=D>F>8>F=DG4=D@F@9?F?9?F=9=F=9=F=9?8=7@F=9=F>8C0=F=B=3=8=F" -DATA "=9=8=9=F>8=9>F>B=3=B=3=B=3=B>FK0=F>8=0>3>B=3>4=0>4=F=9=8FF=9=4>0=3>FK0" -DATA "=F>8=FK0=F=8=9=F=8>9?F=9=8>F=8=F=8=F=8CF=8=F=8=0=9>8=7=1=3@F=1=F=B=3=B" -DATA "=3=B=3>B=F>9=8>F=9=8=9=F=8=3=B@F=C=DC4=D=C>F>8=0>3>B=3>4=0>4=9=F=9FF=9" -DATA "=4>0=3AF=C=DC4=D=C>F>8>F=C=DC4=D=C>F=9>F?8=9?F=8=F=9=F=9B0>F=8>F=8>7=9" -DATA "=F=9>8>F=7AF=8>F=1?8>F=6=3=6=3=6=3=6=3=6=3=6?FK0=F>8?3=8>D=0=F=0=8EF=8" -DATA "=9=0=F>0=D=7=0?FK0=F>8=FK0=F=9=8=F=8=F=8>F=8=9?F>9=8=F=9=8BF=6=F=2=F=6" -DATA ">8=4=8=9=7>3=8>F=8=F=6=3=6=3=6=3=6=3=6=3=6?F=9=8>F=8?FG4?F>8?F=9=8=4=3" -DATA "=B=0=8=F=9?8=9?F=8?9?0>4>3=0>FG4?F>8?FG4AF=9?8=9>F?8=9>F=9=F=9=F=9=F=B" -DATA ">7@9>F>8>7=3=7=0?F=B=3A8>F?8=9=F=B=3=B=3=B=3=B>F=EI0=E=F>8=F>0>3>4>0=4" -DATA "?9=8@F=9?8=9=F=8>4=0=3>F=EI0=E=F>8=F=EI0=E=9A8>9=F@8>F=8=F=8=F=8BF=8=4" -DATA "=8=0=9>8=0=1=3>F>1=3=F=B=3=B=3=B=3=B=F=9?8>FA8=3=BAF=CC4=C?F>8=F>0>3>4" -DATA ">0=4>9=F=9@F=9?8=9=F=8>4=0=7=EAF=CC4=C?F>8?F=CC4=C>F=8>F=9=8=9@F=8=FC9" -DATA "=F=9=8>F@8?7=F=9>8=F=3=7=3?F=8?F>9AF=6=3=6=3=6=3=6=3=6=3=6>FK0=F?8=7>8" -DATA "=D=0>F=0=8=F=9?8=9?F=8>9=0=F?0@FK0=F>8=FK0=F=8=F=8=F=8>F@8=F>9A8=9AF=6" -DATA "=F=2=F=6>8=F=9=F=9>3@8=F=6=3=6=3=6=3=6=3=6=3=6CF=9@FE4@F>8?F=8>4=3?0>F" -DATA "=9=8=9?F=8=F>9=F=9?0>4=0@FE4@F>8@FE4BF>9>8=9>F?8>9=F=9=F=9=F=9=F=B>7?F" -DATA "=9>F>8>B=3=7=0?F=B=3=8=9>F=8?F>9>F=B=3=B=3=B=3=B?FA0=F=0=FA0>F>8?F=0>4" -DATA ">0>4=F>9=3=8@F=9>8>F?4>0=3>FA0=F=0=FA0>F>8>FA0=F=0=FA0=F=9=8=F=9>8>9=F" -DATA "=9>8>9=F=8=F=8=F=8BF=8=4=8=0=9>8=7=1=3>1>3=1=F=B=3=B=3=B=3=B>F>9?F=8=F" -DATA ">9=8=3=BBF=DA4=D@F>8?F=0>4>0>4=F=9=F=9=8@F=9>8>F?4>0=3BF=DA4=D@F>8@F=D" -DATA "A4=D>F=8>F=9CF=8=F=9=F=9=F=9=F=9=F=9=8>F=8?F=8>7=9?8=F=7=4=7>F>9FF=6=3" -DATA "=6=3=6=3=6=3=6=3=6>FB0=F=0=FB0=F>8?3=8=D=0=F?0=9=F=9=8=9?F=8=9?0=F>0=E" -DATA "@FB0=F=0=FB0=F>8=FB0=F=0=FB0=F=8=F=8=F=8=F>9>8=9=F>9>8=9=F=8=9AF=6=F=6" -DATA "=F=6>8=F=9=F=9>7=8>F=8=F=6=3=6=3=6=3=6=3=6=3=6DF=8@FC4AF>8?F=8>4=3>0=7" -DATA "=8BF=8>F=8?9?0=4=0BFC4AF>8AFC4CF=8=F?9?F?9>F=9=F=9=F>9=F>B@9>F>8>B=3=7" -DATA "=0>F=B>3=8?F=8CF=B=3=B=3=B=3=B@F=E=0=E>F=0>F=E=0=E?F>8@F=0=4>0=4?9=3=4" -DATA "=3=8CF=9?4>0=3?F=E=0=E>F=0>F=E=0=E?F>8?F=E=0=E>F=0>F=E=0=E>F=9=8>F@9>F" -DATA ">9?F=8=F=8=F=8BF=8>D=0=9>8?1>3=0=7=1=F=B=3=B=3=B=3=BCF=8?F=8=3=BCF=D?4" -DATA "=DAF>8@F=0=4>0=4=9=F=9=F=9=3=8CF=9=0>4>0=3CF=D?4=DAF>8AF=D?4=D?F=9>8=9" -DATA "?F=9?F=8=F=9=F=9=F=9=F=9=F=9=F=8=F=9=8>F=8>7=8=4>8=F?7>F?9>8?F>9?F=6=3" -DATA "=6=3=6=3=6=3=6=3=6>F@0=F=E=0=E=F@0>F>8?7=8=D=0=F>0=9=8AF=9=8>0=7>0=F?0" -DATA "AF@0=F=E=0=E=F@0>F>8>F@0=F=E=0=E=F@0>F=8=F=8=F=8?F>9>F@9>F=8=9AF=6=F=6" -DATA "=2=6>8=F=9=F?7@8=F=6=3=6=3=6=3>6>3=6>F=9?F?9AFA4BF>8?F=8>4=3>6>7=8@F@8" -DATA ">7>9=F?0DFA4BF>8BFA4DF=8?F=9DF=9=F=9=F>9?F@7>F>8=7>B=7=0>F>B=7=8>F>9>F" -DATA "=9@F=B=3=B=3=B=3=BDF?0CF>8AF>0>4>9=3=4=3=4=3>9@F=9=3@4=0=3CF?0CF>8CF?0" -DATA "BF=9=8@F=9DF=8=F=8=F=8BF=8=F=4=0=9>8?3=0>7=1>F=B=3=B=3=B=3=B@F=9>F>9>F" -DATA "=8=7=BDF?4BF>8AF>0>4=9=F=9=F=9>3>9@F=9>3=0>4=0=7=ECF?4BF>8BF?4BF?9=8=9" -DATA "@F=8=F=9=F=9=F=9=F=9=F=9=F=8>F=8?F?8=4>8>F=7AFB8=9@F=6=3=6=3=6=3=6=3=6" -DATA "=3=6CF?0CF>8=0=7>0=D=0=F=0=9>7=8?F=9=8?7>3>0?F=0EF?0CF>8CF?0CF=8=F=8=F" -DATA "=8DF=9@F=8=9AF=6>F>6>8=4=8=9>7=8?F=8=F=6=3=6=3>6=3=6=3=6?F>9=8=9=F=8CF" -DATA "?4CF>8?F=8>4=3=9=6=9>7=9>8=9?8>7=F=B>9?0=EDF?4CF>8CF?4DF>8?F=9DF=9=F=9" -DATA "=F>9=F>8@F=8=4>8=7>B=7=0?F>B=8?F?8=9@F=B=3=B=3=B=3?BAFA0BF>8@F=E=0>4>9" -DATA ">0=3=4=3=4=3=4=9>8=9=3=4=3?4>0=3AFA0BF>8BFA0AF>8?F>9DF=8=F=8=F>8AF=8=F" -DATA "=4=0=9>8=7=0?7=1=F?B=3=B=3=B=3=B@F=9?8?F=8>BEF=4CF>8@F=E=0>4>9=F>9>7?3" -DATA "=9>8=9>3=7>0=4>0=3DF=4CF>8CF=4CF=8=9CF=8=F>9=F=9=F=9=F=9=F=9=F=8>F=9?F" -DATA ">8=4>8=F=3=7=3@F=8=9EF=6=3=6=3?6>3=6=3=6AFA0BF>8?3=0=D>0=9=7=6>7?8>7@3" -DATA "=6=3B0CFA0BF>8BFA0BF=8=F=8=F=8DF>9?F>8AF=6>F>6>8=4=7=F>7=8>F=8=9=6=3=6" -DATA "=3=6=3=6=3=6=3=8BF?9DF=4?F?E>F>8>F=9=8>4=1=7=9=6=9E7=F=B=F?9?0=EDF=4DF" -DATA ">8DF=4DF=9=F=8=9EF=9=F=9=F=9=F?9B8=4=F>8>7?8>F>B=3=8=9FF=B=3=B=3?B=3>B" -DATA "KF>8?F=E>0>4>9=B=F=8=F>3=4=3=4=3=4=3=4=3>F>4>0=3LF>8KF=8=9=8?F>9>F=8AF" -DATA "=8=F=8=F>9=8@F=8=F=4=0=9>8=7=0>7=1>F=B=3?B=3=B=3=BFF=9=8=3>BLF>8?F=E>0" -DATA ">4>9=F>9>0>7B3=7B0=3LF>8KF>9BF=9?F=9=F=9=F=9=F=9=F=9=F=8>F=8=9>F>8=4>8" -DATA "=F=7=4=7@F=9>8=9CF=6=3=6?3=6=3=6?3=6KF>8?7?0=9?7=6A7=3=6>3=6?3B0MF>8LF" -DATA ">9=F=8=F=8AF=8>F>9?F=8=9AF=6=F=6=2=6>8=4=7=F>8?F=8=F=6=3=6=3=6=3=6=3>6" -DATA "DF=9GFA7=E=F>8>F=9=8=4=6=7=1=7=9=6=9=6=9=6=F=B=F=B=F=B=F=7=1>9=F?0=ELF" -DATA ">8LF=9>F=8=F=9=8?9=8?9>F=9=F=9=F>9=F=9@8=4>F>8=7=8?F>8?3>9=F=9?8>9?F=B" -DATA "=3?B=3=7=B=7=B=0JF>8>F=E>0>4>9@B>8EF=8=F=B>4=0=3LF>8KF>9=8@F>8>9AF=8=F" -DATA "=8>9>F=8?F=8>D=0=9>8?7=1>F=B=7=B=7=3?B=3=B?F>9?8=9=F>9?3=BKF>8>F=E>0>4" -DATA "=9=F?9>0=F>0B7=0=F=0=F?0=7LF>8JF?9BF=8>9=F=9=F=9=F=9=F=9=F=9=F=8?F>8=F" -DATA ">8=4>8=F=7=4=7@F=9=8=9CF=8>6=3>6>3=6>3=6=3=6=8JF>8=0=7?0?7=6>7>6>7>6>3" -DATA "=6?3D0=EJF=E>8KF=9=F>9=8=F=8AF>9>8@F=8=9AF=6=F=6=F=6>8=4=7=F=8?F=9>F=6" -DATA "=3=6=3=6=3=6=0=6=8=9CF=9=8BF=E?7=E=F>7=E>F>8>F=9=8=6?3=1=7=9=6=9=6=9=6" -DATA "=F=B=F=B=F=7=1=8=3?9?0>EJF>8JF>8=9>F=8>FB9@F=9=F>9>F=9=F?8=4>F=7B8>F=8" -DATA "=3>B=3=8=9=F@9?F=9=B?3=7=B=7=B=7=B?0HF>8>E>0?4=9>8=B=F=B=F=B=8>3?4>3=8" -DATA ">B=F=B=4>0=3KF>8KF@9=F=9>8>9>8=F=9>F=8=F=9>F=9=F=8?F=8=4=8=0=9>8?1?F=1" -DATA "=7=B=7=B=7?3=B=9?F@9=F=9=8=3>B=3=BKF>8>E>0?4=9=F>9=F=0=F=0>F?0=F>0=F=0" -DATA "=F=0=F?0=EDF>7=B>7>F>8IF>9DF=9=F=9=F=9=F=9=F=9=F=9=F=9=F=8@F=9=8=7=8=4" -DATA ">8=F=7=4=7AF=8CF=8=6>3=6?3=6=3=6>3=6=F?8HF>8?3?0?7=6?7>6=7>3=6?3G0AF?8" -DATA "AF=0>8JF>0?F=9=F=8>F=9=F>8>9>8=9=F=9>F=9@F=6=F=6=F=6>8=4=7=F=8>F=9=8=F" -DATA ">4>6=3>6>7>0=6>9@F>9=3>8AF?E>F>E?F>8>F=9=6AB=1=7=9=6=9=6=F=B=F=B=F=7=1" -DATA ">8=3=8>9=F@0>EHF>8GFA8=9=F=8=9?F?8>9@F=8=F=9=F=9=F=0=8=F=8=4>F=7=4>8>F" -DATA "=8=7=8>F=8=3=B>3=9>F>8?F=8=0=B=7=B>7=B=7?B=0=F=D=0GF>8?0?4=9=8>7>8?B=F" -DATA "=3=4?0=4=3=F>B>8=7>0=3KF>8LF>9=8>F=9=F>9=F>9>F=8=F=9=F=9=F=9=8=0?F=8=4" -DATA "=8=0=9>8=7=1=3>F=1=4>B=7=B>7=B=7=B=0=8?F>8>F=9>3=B>3=BKF>8?0?4@9=F=0>F" -DATA "=0=F=0=F=0=F=0=F=0=F=0=F>0=F>0=EDFA7>F>8HF=9>F=9BF>8>F=9=F=9=F=9=F=9=F" -DATA "=9=F=8CF=7=8=4>8=F=7=4=7AF=8=9?F=9>8=1=6=3=6=3=6=3=6?3>6=F=9=F?8GF>8=0" -DATA "=7@0@7=6B7=6?3E0>3>0=E>F=8?7>8>F=0=7>8IF>7=6=9=F=9=F=9=F=8>F>9=F>9=F=9" -DATA ">F=8?9@F=6=2=6=F=6>8=4=7=F=8=F>8=F@4>8=0@7?0=9?8=0?3=0>8CFA9>F>8>F=6?7" -DATA ">3=8=F=1E7=1=8=F=8=3=8=E?9A0>EFF>8EF>8>4=F=4>8=9>F=9?F=8?9?F=9=F=9=F=9" -DATA "=F=0=E>F=0=4=F=7>4>8=F?8=0>F=0=8@7=9@F=9=8=0=4>B=7=B=7>B=0=F=8=0=F=D=3" -DATA ">0DF=0>8>0?4=9=F=1@7=8=F>B>4=0=F=0>4=B=8=F@7=0=3FF=B@F>8KF=8?F=9>F=9>8" -DATA ">9>F=9=F=9=F=9=F=9?8=0>F=8=4=8=0=9>8=7=1=0=F=1=3=4>0>B=7=B=7>B=F=0=8=9" -DATA "@F=9@B=8=BLF>8>0?4=9=F>9=F=0=F=0=F=0=F>0=F?0=F>0>F>0=F>0=ECF=B=7=F=7=B" -DATA ">F>8>F?9@F?8?9>F=9=F=9=F=9W8=F?8@F=0B8@1E6?8=9>8=F=8>0EF>8?3@0@7=6@7=6" -DATA "?3E0>3=0>8>0=8=7=9=8=9=7>8=0=7=0>8GF>0=7=6=7=6=9=F=9=F=9=F=9>F>9>8=9>F" -DATA "=9?F=8@F>6>F=6>8=4=7=F>8=9=F=0=7@4>8=0C7B3=0>8>DAF=9?F=9=F=9=F>8=F=6AB" -DATA "=8=F>1=F>1=F=8=7C8=3=8>F>9=FB0=E@F?B>F>8CF>8=0=7=8>4=E=4=8A9?F=9@F=9>F" -DATA "?9=0=E=0=E=F=E>0>4?8?F=8=0>F=8=0?8>D@8>0?4@B>0=F=8=F=0=F=3=D=3=F>0AF=0" -DATA "=7>8=0?4=9?3=1=7>6>7>8=3=4?0=4=3=8?7>6=7=0FF?B?F>8HF?0=8=F>9=F=9>F?9>F" -DATA "=9>F?9>8=7=8=7=8=0=F=8>D=0=9>8=7=1=3>1=7=3=4=1>0@B?4>0@8A4=1=9=1KF>8=0" -DATA "?4@9=0>F>0=F=0=F=0>F?0>F=0=F=0=F=0=F?0CFA7=F=7>8=F=9=F=9=F=9>F=8?D>8=9" -DATA "=F=9>F=9>8>6=8=7=F=0>7=F=0>7=F=0>7=F=0>7=F=0>7=F?8?F=8>F=0=8=FN8=F=8=9" -DATA "=F=9=8=F=8=0=4>0CF>8=0=7A0A7@6>7=3D0>3>0>8?0>7=8=7=8=7=8=0=7=0=4>8EF>0" -DATA "=F>0=7=6=7>8?9>F=9>F?9>F=9=F>9=F=9>0>F?6=F=6>8=4=7=F=8>F=0=3=0=7@4>8=0" -DATA "B7A3=0>8@D?F=9>F=9=F?9=F>8=6>3?7=8=F=9?1=9=F>8=7=3=8=F>8=F=8=3=8=E>F?9" -DATA "B0=E>F=B?3=B=F>8AF>8>F?0=8>4=F=4=8=9>F>9BF=9=F>9=F=9=0>F=E>F?0=4@8=F?8" -DATA "=0>F>0AD=0=F?0A4@0>F=8=F=0=F=D=3=D=F?0?F=0>7>8?4=9A3=0B7>3?4>3=7>6>7A0" -DATA "CF=7?B=7>F>8GF?0>7=8>F=9=F=9AF=9=F>9=F=9>8=7=8=7=8=0>3=8=F=4=0=9>8=0=1" -DATA "=3?1=7=3=4=9=1?0J4?1=3>0HF=7>8?4=9=F>9=B=7=0?F=0=F=0=F>0=F=0=F>0>F=0>F" -DATA "=0=F=7=B=0@F=7=F>7=B?7=B>8=F>9=F=9=F=9>8?DD8@6=8>7>3>7>3>7>3>7>3>7>3>7" -DATA ">8=9>8>F=8=0=F=9=8=F?8=F>8=F>8=F>8=F>8=F=8=F=8=F=9=F=8=F=8?0=4>0AF>8?3" -DATA "A0F7B0=4>0=3=0=7=0=8=0?8=0=7=9=8=9=7?0>4>8CF>0=3=7@0=7=6=7>8=9=F>9=F=9" -DATA "AF=9=F=9>F=8A0=6=2=6=F=6>8=4=7=F=8=FA0=7@4>8=0A7@3=0>8@D=8=7=0=8=9?F>9" -DATA ">F=9>8AB=8=F>1=F>1=F@8=3>8>F>8=3=8=0=E=F=E>9=FB0=F=B=3=C=4=C=3=B>8?F>8" -DATA "AF>0=7=8>4=E=4=8=9>F>9=8?9@F=9=F=0BF?0A8?F=8=0>F=8=0>D>3=D=0?F@0=4@0>F" -DATA "=8>F=0=F?D=F>0=4?0=3>7>8=FC1>3>0=7>6>7>F>6>F@7>0=4@0AF?B=4?B=F>8EF?0=F" -DATA ">0>7=8@F=9=8=9=8=9?F=9=F>8=7=8=7=8=0=3>0=8=F=4=0=9>8=7=1=3=9=F=9=1=7=3" -DATA "=4=1=9@1F4?1=9=3>7=3>1EF>7>8>4=9=F>9=7>B=7?0>F=0=F?0=F>0=F>0=F>0=F=7?B" -DATA "=7?F=B=7>F=7=F=7=B=F>8=F=9=F=9=F=9=3>8?D=F>8=3D6>F=7=0>F=7=0>F=7=0>F=7" -DATA "=0>F=7=0>F=7>8=9=F=9=F>0=F=8=9=F=8=FL8=F>8=9>8=F=8>0>4@0?F>8=0=7>0=4@0" -DATA ">7?0?7B0>4=0>3@0@8=7>0>7=0>7=0>4>8BF>0=3=E=3=7=0=F=0>7=6=7>6BF=9=7=0=9" -DATA "?F=9=6=8=7>0=F=0=6=F>2=6>8=4=7=F=0=7=0=7>0=3=0=7@4>8E0>8@D=8=7=0=3>0AF" -DATA "?9>8>7>3=8=F=9?1=9=F=0@8=3=7=F>8=F=8=3=8=E@F?9@0=E=F=B=3=C=4=C=3=B>8=F" -DATA ">8=0>F=E?F=E?0=8>4=F=4=8>9>8?7=8=9>F>9=0=E?F=E?0=E=F=0@8=F>8=B=0>F=0=7" -DATA "=D=3?D?0?FB0>F=0=8>F=0=F=D=3=D=F>0>4=0=7=3>7>8=1=9B3?1=3=0@7>6>F>6>7>0" -DATA ">4B0?F?B?4?B>8DF?0=E=0=F>0?7=8>F=8?0=8?F=9>8=7=8=7=8=0=3=0>4=8=F=4=0=9" -DATA ">8?9=F=9?1=7=3=4>1=FL1=3>4=3=0=1>0BF=3>1>8>9=F>0=3>7>B=F=7=F>0=F=0=F=0" -DATA "=F=0>F?0=F=0=F=7?B?7?F=B>7@9=F>8=F>9=F=9>8=3>8=FA8=3>6?D>6U8>9=F?0=8=F" -DATA "=8=F=9=8=F=8I3=8=F=8=9=F=9=8=F=8=0>4>0>4?0=F>8=0=7>0>4A0=7=9=7=0=7A0@4" -DATA "=0>3=0?7=0@8>7>0@7=0=4>8@F>0=E=3=E=3=E=7?F=0=7>6=7>6=7=6>9>F=9>6=7>9?7" -DATA "=F@0=6>F>6>8=4=7>6=0>8=7@0=7>4=F=4G8=D=F>D=8=7@0=7=8=1AF=9>8@B=8=F=1=F" -DATA ">1=F>4=0?8=7=3=8>F>8=3=8?F=E>F=E=9=F>0=E?F=B?3=B=F?8>3=B=0=E=0=E=F=E=0" -DATA "=E>0=7=8>4=E=4=8=3>8=7=8=7>8?9=0=E=0=E=F=E?0=E=0=E>0?8>F=8=7=0>8=7=0>D" -DATA ">3=D=0=4?0?F?0>F=0=8>F=8=0=F=3=D=3=F>0>4=0>B=7=B>8=FB3=1?9>1?0=7>F>6>F" -DATA "=7=0=3?4@0?3?F?B=4?B=F>8BF@0=F>0=E?0?7>8A4=9@8=7=8=7=8=0=3=0=4=7=3=8>D" -DATA "=0=9>8?F>9>F=9=1=7=3=4=0>1=FG1=F>1=3=4=7=3=0=F=3=4>0@F=3=1=7>8@0=3=7>8" -DATA "=7?B>7=F?0=F?0=F>0=F>7@B=7@0?F=B=9?F=9=F>8=F?9>8=4=8=3?8?D=8=3=6>D=6>D" -DATA "=0D3>8=D@8=3C0>8=9=F=0=4?0=8=F=8=9=F=8=F=8H0=8=F=8=F=9=F=8=F=8=0=4>0>4" -DATA ">0>4=0>8=0=7@0=4?0=7=4=F=4=7@0?4@0>3B0?8>0>F@0>D>8?F=0=4=0=3=E=3=E=0=3" -DATA "=7=F>0>7>6=7>6D7@6=7?F>0=7=6>F>6>8=4=6=0>6=0>8=7>0=3=0=7>4=FB4AD=F>D=8" -DATA "=7=0=3>0=7=8=1=3=9=8@9>8>3>7=8=F>1=9=F@4=0=F>8=3A8=3=8>F=E=0=E?F>9=E=0" -DATA "@F?B=F=B>8=3>B?0=E?F=E>F?0=8>4=F=4=8=3>8>3=8=3=8=3=0>F=E>F?0>F=E>0=F=0" -DATA "@8=3=7=0=7?0=D=3?D=0=8>4?0AF>0=8>F=8=0=F=D=3=D=F>0>4=0>B>7>8B3=1B3=1>4" -DATA "E0=3>4@0>9>F=8?F=7?B=7>3>8AFE0=F=E>0@7=8>4>7>4=8>7=8=7=8=0=3=0=4?7=8=4" -DATA "=8=0=9>8?9=F=9A1=7=3=4?0=1=F=1=F=1=F=1=F=1=F?1=0=3>4=3>0>3=4=3>0>F>1=7" -DATA ">8?0=3=7>8=F?7@B=F>7=F>7=F>7=F=7?B?7?0>F=0>F=9>F>9=F=9>8=F=9=F>8?4=8=3" -DATA ">8?D>8=3=6?4=0=3=F=7=F=7=F=7=F=3=8?D>8=3=4>0@F=0>8=9=0=4A0=8=F=8=F=9=1" -DATA "=F=8G3=8=F>8=9>8=F=8?0>4>0>4=0=1>8=0=7=0A4>0=7=0=F=0=7?0C4=0>3=0A7=0=8" -DATA "=0AF=8=0?D>8=F>0=4=0=E>3=E=0=3=0=7@0>7>6=7E6@7>0=F>0=7=F=6=F=2>6>8=6>F" -DATA "=6=0>3>8=7@0=7>4?F?4>D?F>D=8=7@0=7=8=1=3=9=F=9=3=8>9>8@B=8=F?1=F>3?4=0" -DATA ">8=3=7@8=3=8=E>F=E>F=E>F=E>F=0AF>B=3>8=B>0?4=0CF>0=7=8>4=E=4=8=3?8=3=8" -DATA "=3=0AF=7>0?F>0=F=0=F>8>B=3=7>0>7=0>D>3=D=0=8=0?4?0>F>0=8>F=8=F=0=F?D=F" -DATA ">0>4=0=7>B=7>8A3=1D9=1>4=3=0=F=0=F=0=F=0=3>4@0>3=F?8?F?B=3>F>8?F@0?7?0" -DATA "=E>F=E>0=7>8=7=8@7=8=7>8=7=8=0=3=0=4?7=4=8=4=8=0=9>8?F>9=8=9>F=9=1=7=3" -DATA ">4>0B1=0?1>0=4=3=4=7=3=0=F=3>4>3=4>0=3=1=7>8>0=3=7>8=F>8=7=F>7BB=7=F>7" -DATA "=F>7=F=7=B>0=7>0@F=1=9?F=9=F=9=F>8=F>8=4>8=4>8=3>8=D>4=F=8=3?6=0=3=F=7" -DATA "=F=8=F=8=F=3>8=4>D>8=3>4>0=F=0=F=0>8=0=4>0>4?0=8=F=1=9=F=1=F=8@4>3@4=8" -DATA "=F>1=F>1=F=8>0>4>0>4@1=8=0=7=0=D?0>4=0=7=0=F=0=7>0>4?0?D=0=7=3D0BF=0=7" -DATA "=0>D>8=0>4=0>3=E=3=0=3=0=3=7>0=F=0=7=4=7>6E7>6=7A0=7=F=8=6=F?6>8>F=6=0" -DATA "@3>8=7>0=3=0=7?4CF?D=8=7=0=3>0=7>8=1=3=F=9=3=9=3@8>7>3=8=F=9>1=F>0=3?4" -DATA "=0=F=7=3=8=F>8=3=8=0=E?F=E=0=E?F=E>0@F=B>3>8=0?4@0>F=E?F=E?0=8>4=F=4=8" -DATA "=3=8=3=8=3=0=E?F=E?0=E>F>0=F=0=F=0>8=7>B=7=0=F>0=7AD=0=F=8>0?4@0=D=8>F" -DATA "=8=F=0=F=4=7=4=F>0=4>0=7>B=7>8@3=1C0?3=1=4=3>0=F>0=F=0=3>4?0?9=F?8@3=B" -DATA "@9>8=F>0A3=9=3=7E0>7=8=7=E>0=E=7=8>7=8=0=3=0>4=3=7>4=8=4=8=0=9>8?9=F=9" -DATA "C1=7=3?4F0?4=3>4=3>0=3?4>3=4=0=3>1>8=0=3=7>8=F>8=7=3=4=1=3?7IB=0=7>0?F" -DATA "?8=1?F>9=F=9@8?4>8>3=0=3C8=3=6=0=3=F=7=8A7=3=8=F=8=4>8=3>F>4>0>F=0>8=4" -DATA ">0>4A0=8=F=1=F=9=1=F=8=3=4=3>4=3=4=3=4=8=F=1=F=9=F=1=F=8=0>4>0>4>1>6>8" -DATA "=0=7=0>D@4=0=9?F=9=0A4?D>0>7=3=0@7=0BF=8=7=0=7=0=D>8=4=F=4=0=E>3=0=3=0" -DATA "=3=0=3=7?0=7>4=7F6?7=0=F>0=7=F>8=6=F?6>8>6=0@3>4>8=7@0=7A4>F@D=8=7@0=7" -DATA ">8=1=3=F=9=3=9=3=0=3?8@B=8=F=1=F=1=F>0=7=3>4=0>8=3=8=F>8=3=8=EAF=E?F>0" -DATA "=F=4=0>F>9>B>8=3=4>0?4>0=E=0=E=F=E=0=E>0=7=8>4=E=4=8=3=8=3=F=E=0=E=F=0" -DATA "=7>0=E=0=E=0=3>0=F=0=F>8=7>B=7>0=F=7=0=4?3=4=0>F=8?0>4?D=0=8=F>8=F=0=F" -DATA "=7=4=7=F?0=D=0=7=3>B>8?3>0C3>0>9=1=4=3=0=F=0=F=0=F=3=4@0>3=F?8>3>8=3=9" -DATA "?F=9>8=B>0@B=9=F=9=B>7?0=F=0=E>0>7=8@7=8=7>8>0=3=0A4=F=8>D=0=9>8?F>9=7" -DATA ">1=9>F=9=0=7=3C4?0A4=3>7=3=8=0=F>3>4@3=1=7>8=3=7>8=F>8=7@3=1=7>0?7DB>7" -DATA "=4=7>0>FA8=1>F=9=F=9=F>8=4>8=4>8=3?0>3=8=F?4=8=3=0=7=F>7=F=7?0=3@8=F>8" -DATA "?3=F>4>0=F=0>8>0>4>0=4@0=8=F=1=9=F=1=F=4=3=4>3=4=3>4=8=F>1=9>1=F=8=0=4" -DATA ">0=4>1=7=1>7>8=0=7=0?D>0=4=0=7=0=F=0=7=0=4>0@D@0>7=3@0=F=8@F>8>7=0=7=0" -DATA ">8>4=F=0=3>E>0=3=0=3=0=7>0=F=0=7>4B7>0>7=4=7@0=7=F>8=F=6=8=6=F=6>8=6=0" -DATA "@3>4=F?8=7>0=3=0=7@8>E@8=7=0=3>0=7?8=1=3=9=F=9=3=0=3=8=9>8>3>7=8=F>1=9" -DATA "=F=0=7=0=3?4=0=8=3=7?8=3=8?F=EAF>0=F=4>0=4=0=9=F=B=0>8>3?4>0>4=0=E?F=E" -DATA ">F?0B8=3?F=E=F=7>0?F=E=0=4>3>0=F=0>8>7>B?0=F=0A4=0>F=8A0>D>0>F>8=F=0=F" -DATA "=4=7=4=F?0=D=0=7=3>B>8=3=7=0?3A0?3=0>3=1=3>0=F>0=F=0=3?0?9=F@8=9=F=8=9" -DATA ">F>9=F>8=3>0?3>9=F>9>3=7C0=7=8B7>8=0=7=3=0=4=7=3>4>F=8=F=4=0=9>8?9=F=9" -DATA "=F=7@1=0=F=0=7=3?4=3>8=4>0>4>8=4>3>4=3>0=3=4=3@4>1=7>8=7>8=F>8=7=3=4>3" -DATA "=4=7=0=7?0E7>0=4=7>0>F@8>7=0>F=9=F=9=8?4?8=3?0=3=4=3>8?4=8=3=7=F=7=8=F" -DATA "=7=8?D=3>8=4?8=3=F>7>F>4?0>8=0>4>0=4=0=F@0=8=F=1=F=9=F=1=4@3?4=8=F>1=F" -DATA ">1=F=8?0>1?7=1>6>8=0=7>0?D>4=0=7=0=F=0=7=0=4@D@0=F>0>7=3>0=F=8=7=8>FF8" -DATA ">4=0?3>0=3=0=3=0=3=7=0?F=7?4=7>0@7=0=4=7=0=F>0=7=F>8=F=8?6=F=6>8=0@7>4" -DATA "=F=0=8=3>8=7@0=7=4>8>E>8=4=7@0=7>8=3=1=3=9=F=9=3=0=3=8=9?8@B=8=F?1=F=7" -DATA "?0=3>4=0=F=7=3?8=3=8>F=E=0=E?F>0=F=4>0=4=0=9>F=9=7>8?3?0>4>0BF=9=F>0=7" -DATA "=0=7=0?7=0=7=0=7A0>F=0=3>4>3>0=F>8=B=7>B@0=F>4>3=4=0?F=8=4B0=8=F>8=7=4" -DATA "=0=F?4=F>0>D=0=7=3>7>8=3=0>3?0?4?0>3=0=7=1=4=3=0=F>0=F=0=3?0?3=F?8=4=8" -DATA "=9=F=9>F?9>8=B>0>B=9AF=9=B=8>7>0=F>0=7?8>7?8=0=7=0=3=0=4>7=4>F=0=8=F=4" -DATA "=0=9>8?F=9=7>F=7=8=1=0=C=4=C=0=7=3>4>8=3=8=4>0=8=3>8=4=3=4=7=3>0=F>3>4" -DATA "=3=4=3=1=7@8=F>8=7=3=4>3=4=3=4=3=0=7>4>0B7>0>4=7>0?F>8>7=0=F=1>F=9=F>8" -DATA "=4>8>3>0>3>0=3>8?4>8=3>7=F=7=8@D=3=8?4>8=3=7>F>3=F>4>0>8>4>0=4=0=3=7=8" -DATA "@0=8=F=8?1>4>3?4=0=8=F=1=F=9=F=1=F=8=0=4=1=7=6=7=6=1?7>8=0=7=0=F=0?D=4" -DATA "=0=7=4=F=4=7=0=4?D?0@F>0>7=3=0=8?0>8=0E8=F=4=0?E=0=3?0=3=0=3=7=0=F=0=7" -DATA "?4>7A0=7=4=7?F=7=F>8=F=8=FA6>8@7>4=F=0=8=E>3>8=7>0=3=0=7>4>F>4=7=0=3>0" -DATA "=7>8>3=1=3=F=9=F=3=0=3=9=8=9>8>7>3=8=F=9>1=F@0=3>4=0>8=3?8=3=8=E>F=E>F" -DATA "=E>0=F=4>0=4>0=9=F=9=F=9>8?3?8>0>4>F@9>F=9?0=7=0=7=0=7=0=7?0?8?0=4=7=3" -DATA ">4>3>0>8>7=3=7=0=F?0=4=3?4=0=8?F=8>4@0>F=8=B=4=7=0=F=4=7=4=F>0=D=3=0=7" -DATA "=3>7>8=0=3>0?3?0?3>0=3=0=9=1=3>0=F=0=F=0=3?0>9=F?8?4=8=9=F=8=9?F>8=3>0" -DATA "?3A0>3?8=7>0=F>0=7B8=0=7>0=3=0>7>4=F>0=8=F=4=0=9>8=0=1=3=0=F=7>F=7=0=3" -DATA "=4=F=4=3=0=7=3C4=0B4=3>4=3?0=FA3>1?8=F>8=7=0?3=4?3=4=0=7=F=4=F=0B7=0=4" -DATA "=F=4=F=7>0?F>7=0=9=8=F=1=9>F@8=3?0=3=0>7=0=4=3@8=F=8=3=8=F=7=8@4=3>8?4" -DATA "=8=3>4=7=F?7=F>4=0>8=4>0=4=0>3=7>8?0=8>1=6=7=1=4=3>4=3=4=0=4=8=F>1=9>1" -DATA "=F=8=0=1A7=1?6>8=0=7=0>F>0?D=0=7=9=7>0>D?0?F>0>F>0>7=3=0?7=0>7=0D8=4=F" -DATA "=0?3=0?3>0=3=0=7?0=7?4=7=0=7=0=7>0>7>0=F=0=7>8=F=8=F=8=6=F=8>6>8?7>4=F" -DATA "=0=8>3=E>3>8=7?0=7=8=F>4=F=8=7?0=7>8?3=1=3=9=F=9=3=1=3=8=9?8@B=8=F=1=F" -DATA "=1=F@7=3>4=0=F=8=3=7>8=3=8=0=E?F=E>0=F=4>0=4?0A9>8?3=8=F>8>3=8=3=9DF=8" -DATA "=0=3=0?3=0=3>0>8>F=8>0>4=7=3>4>3=0>8>B=3=7>0=F>0>4>3=4=0>8>F=8=0>4=D=0" -DATA "=8=F>8=F=4>0=F=7=4=7=F=0=D=3=D=0>B=7=B>8=4=0A3?0A3=0=3=0=1=3>0=F=0=F=0" -DATA "=3?0>3=F>8>4=F>4=8=9=F=8=F>9>8=B>0>4=0=4=0=F=0=4>0=8?4=7>0=E=0=7=0@8?7" -DATA "=0=3=0=4>7=4>F=B=0=8=F=D=0=9>8=7=1=3=0>F=7=F=7>3=C=4=C=3=6=0=7=3>4=3>8" -DATA "=4=0>4>8=3=4=3=4=7=4=3@0=F=0=F=3=1=7>8=F>8=7=3=7=0=3>7=4=3=4>3=0=7=F=4" -DATA "=F=0B7=0=4=F=4=7?0=F>7=0=F>9>F=1>F?8=3?0=3=D=0>7=0=4=3=8=F=8=4>8=3>7=8" -DATA "A4=3=8=F=8=4>8=3=0>4=7=F>7>F>4>8>0=4=0=3=0=7>8=7>0>1=6=7=6=7=1MF=1=7=6" -DATA "=7=6=7=6=1?7>8=0=7=0=F=0=F>0?D?0?D>0?FA0>F>0>7=3?0@7=0C8>4=0?E=0A3>0=7" -DATA "@0=7>4D7@0=7@8=F>8=6=F?6>8>7>4=F=0=8=3=E>3=E>3=8=7=0=3=0=7=8=4>F=4=8=7" -DATA "=0=3=0=7=8@3=1=3=F=9=F=3=1=3=9=8=9>8>3>7=8=F>1=9=F@0=3>4=0>8=7=3>8=3=8" -DATA "=E@F>0=F=4>0=4?0=F=9=F=9>F>8?3>8=F=8>3=8=3@FB9A8=0>F=0>8=F>8=F=8=0?4=7" -DATA "=3>4>3>8>B=3=7?0=F=0=4=7?4=0=F>8>F=8>0>D=8=F=8=F=4=0=F=0=F=4=7=4=F=0>D" -DATA "=3=0>B>7>8>4=3>0=3A0=3>0=3=0>3=0=4=3>0=F>0=3@0>9=F>4=F=9=F>4=8=9=F=8>F" -DATA ">8=3>0=F=0>4?0>4=0A8=7?0>7=0=7?0>7=0=3=0>4=3=4=F=B=3BB>8=7=1=0=F=0=F=7" -DATA "=F=7>3=4=F=4=3=6>0=7=3=4>8=3=8=4=0=8=3>8=4=F=3=4=7=4>3=8@0>1=7@8=7=3>7" -DATA "=0@3=4?3=0=7=4=F=4=0B7=0=F=4=F=4=7>0>7=0=9=8>F=9=8=F=1=F>8=3>0>3>D=0>7" -DATA ">0=3>8?4=8=3=7=8B4=3@8=F=8=3=F=0>4=7>F>3=F=4>8=0=4=0>3=7>8=7=0>1>7=6=7" -DATA "=6=7=1L0=1C7=1?6>8=0=7=0=F>0>F>0AD>0?FD0>F>0>7=3=0>7=6?7=0B8>4=0?3?0A3" -DATA "=7>0=F=0=7@8=0=F=0=F=0=7=0=F>0=7>8=F?8=FA6?8>4=F=0=8?3=E>3?4=7?0=7>8>4" -DATA ">8=7?0=7=4@3=1=3=9=F=9=3=1=3=8=9?8@B=8=F?1=F=7?0=3>4=0=F>8=3>8=3=8?F=E" -DATA ">0=F=4>0=4?0=F=1=9=F?9>8?3=8=F>8>3=8=3EF=9>8?3=0>F=0>8=E=F=8=E=8=0>4=7" -DATA "=3>4?3>8=7>B=7@0=F>4=7>4=0=4=F>8>F=8>0=8=F=8=F=4=0=F=8=0=F?4=0?D=3=0=7" -DATA ">B=7>8=9>4@0?3@0>3=0=3=0=4=3=0=F=0=F=0=3=4?0>3>4=F=9=F=9=F>4=8=9=F=8=9" -DATA ">8=B>0=B?4=0=F=0?4=0?4>8=7?0>7=0=7>0>7=0=3=0@4=F=BC3>8=7=1=3=F=0>F=7=F" -DATA "=7=3=C=4=C=3>0>6=7=3A4=0A4=F=0=3>4=7=4B3=1=7?8=7=3=7>0=7=0=3=4@3=4=3=0" -DATA "=7?4=0B7=0@4=7=0=7=0=F>9>F>9>F=1>8>0>3>D=0>7?0=4=3=8?4>8=3B4=3>8>4>8=3" -DATA "=0>F=0>4=7=F?7=F>8=4=0=3=0=7>8=7=0=1?6=7=6=7=6=7=1=F>4=F>4=F>4=F>4=F>4" -DATA "=1=7=6=7=6=7=6=7=1@7>8=0=7=0=F?0?F>0>D=0?FG0>F>0>7=3=0>7?6=7=0A8=F=4=0" -DATA "?E=0>3>0>3=0=3=7?0=7@8=F=0=F=0=F=7?0=7>8=F?8=F=8=6?F=6>8=3=8=F=0=8=0AE" -DATA "@4=7=0=3=0=7>8>4>8=7=0=3=0=7=4@7=1=3=F=9=F=3=1>3=8=9>8>7=3=4=8=F=9>1=F" -DATA "=0=7=0=3?4=0?8=3>8=3=8>F=E>0=F=4>0=4?0=F=9=1=9=F=9>F>8?7>8=F=8>7=8=7@F" -DATA "B9?8=3=8=0>F=0=E?8=E>8=0=4=7=3>4?3=0>8=7>B=7=0=4>0@4=7=0?4=F>8=F=8>0=8" -DATA "=F=8=B=0=F>8=0=F=4=3=4=0=4>3=D=0=7>B=7>8=F=9>4>0=3?4=3>0?3=0>3=0=4=3@0" -DATA "=3=4@0>4=F=9=F=9=F=9=F>4=8=9=F?8=3I0B8=7>0>7>0@7=0=3=0=4=7=3=4=F=B=7AB" -DATA "=7>8=0=1=3>F=0=F=7=F=7=3=4=F=4>0>6>0=7=3=4>8=4=0>4>8=3=F>0>3>4=7=4=7=4" -DATA "=7=3>1>8=7=3=0=3>0=7=0=4?3=4>3=4=0N7=0=9=8>F=9=8>F=9=8=F>8=0>3?4=0>7?0" -DATA "=F=3=8?4>8=3B4=3=8@4=8=3=0?F=0>4=7=F>7=F>8=0>3=7>8=7=0=1?7=6=7=6=7=6>1" -DATA "=4=8>4=8>4=8>4=8>4=8=1D7=1@6>8=0=7=0DF>0OF>0>7=3=0=7>6?7=0=8=0>8=4=F=0" -DATA "?3=0>3=0>3=0=3=0=7?0=7=4?8=0=F=0=F=7@0=7=8=F?8=FC3>8=9=3>8=0=8@3A4=7?0" -DATA "=7B8=7?0=7=4@7=1=3=9=F=9=F=3=1>3?8>B>4=8=F=1=F=1=F>0=7=3>4=0=7>0>8=3=8" -DATA "=3=8=E>F=E=0=F=4=0=4?0=F>1=F=1=9=F>9>8?7=8=F>8>7=8=7EF=9A8=0=E=F=E=0?E" -DATA ">8=0=4=7=3>4?3>0>8>7>B=0>4=0>4>7=4=0>7>4=F>8=F>8=F=8=B=0=F?8=0=F=3=4=0" -DATA "=4=3>4=D=0=7=3>B>8=9=F=9>4=3=4=9=F=9=4=3>0>3>0=3=0=4=3=0=F=0=3?4?0>4=9" -DATA "=F=9=F=9=F=9=F>4=8=9=F>8=B=0=B=0=F=0=F=0=F=0=F=0=F=0?4@8D0>7=0=3=0=4>7" -DATA "=4=F>B=F>9>F=7>8=7=1=3>F=0=F=7=F=7=3=C=4>0>6>0=3=0=7=3=8=3=8=4=0=8=3>8" -DATA "=F>0=F=0>3=7@4=3=1=7>8=3>0=3=0=3=6=7=0>3=4=3=4>3=0=7J8>7=0=7>9>F>9>F>9" -DATA "=F>8>3?4=0>7?0>F=3>8=4?8=3B4=3=8@4=8=3=0=F=0>F=0>4=7>F=7>8=3>7>8=7>1?6" -DATA "=7=6=7=6>1=3=1I0=1A7=0>7=1@7=6>8=0=7]0>7=3=0=6=7=6?7=0=3>8>4=F=0=3=E=3" -DATA ">0>3=0=3=0=3=7=0=F=0=7>4>8=F=0=F=0=7=0=F=0=7>F?8=FD7>8>1=3>8=0@EA4=7=0" -DATA "=3=0=7=8A0=7=0=3=0=7=4@7=8=1=3=9=F=9=F=3=1>3>8=3?4=8=F>1=9=F>0=3?4>0>7" -DATA ">0=3=8=3=8=0=E>F=0=F=4=0=4>0=F=9?1=9=F?9>8?7>8=F=8>7=8=0@FA9=0=8?0=8=0" -DATA "?F=E=0?8=0=4=7=3>4?3>4=0>8=B=7>B=0>4=D=4=7?4=0>4>7=4=9>8=F=8=F=B=0=F?8" -DATA "=F=0=F=3=7=0=4>3>4=0=7=3>B>8=F=9=F=8>4=9=F=0=F=9=4=3?0=4=0=3=0=4=3=F=0" -DATA "=F=3@4=0=3=0>4=9=F=9=F=9=F=9=F>4=8=9>8=3=B=7=BF0B8=0AF>0?7=0=3=0=4>7=4" -DATA "=F=9>F@9=B>8=7=1=0>F=0=F=7=F=7=3=4>0>6=0=7=3=6=2=0=7=3?4=0@4=F>0=F=0=F" -DATA "=0A3=0=1=7>8?0>3>6=7=0=3=4?3=4=3=0=7I8>7=0=3=4=7=F=9=8>F=9=8>F=9>8@4=0" -DATA "?7>0?F=0=3=F>8=F=8=3B0=3>8>4=8=3=0=E=F>0>F=0>4=7=F=7>8=7?8=7=1@7=6=7=6" -DATA ">1>7=1J4=1>7?0?7=1@6=1>8=0=7?0N4HD=0>7=3=0@7=0>3>8A9>3=0>3=0=3=0=3=0=7" -DATA "?F=7>4@F=0=F=7?F=7=3?0=F=8=7=8B9>8>3>1>8@3=0C8=7=8>0?F>0=F=7C8=0=1=3=F" -DATA "=9=F=9=F=3=1=3>8@4=8=F?1=F=0=3?4>0=3>0>7?0=8=E?F=0=F=4=0=4>0=F=1=F>1=F" -DATA "=8?4>8?7=8=F>8A0C9=F>0=3=4=3>0AF@0=7=3>4?3>0>4>8>7=3=7=0>4=D>4>7=4=0=7" -DATA "?4>7=9@8=0=F?8=F=8=0=F=4=0@4=3=4=0=7=3>7>8=9=F=9=8=F>4?0=F=4=3?0=4=0=3" -DATA "G0=3=0>3>4=9=F=9=F=9=F=9=F>4?8=B?7=BDF=0?4>8=0>F=4=0=4>FA0=3=0=4=7=3=4" -DATA "=9>F?9>F=9>8=7=1=3>F=0=F=7=F=7=3>0>6>0=7=0=3=2=6=0=7=3=8=4=0=4>8=3=F>0" -DATA "=F?0=7>F=7=F=3=1=7>8?0=3?6=7=0>3=4=3=4>3=0=7IF=7=0=3=4=3=4=7>9>F>9>F=9" -DATA ">8@0?7>0>F=0=F=0=3>8=4>8=3A7=3>8=F=8=F=8=3=0>F>0=E=F=E=0>4=7=FA8=7=1=6" -DATA "=7>6=7=6=7=1@7=1@0?FB0=1?7>0?7=1@7=6=1>8=0=7?0=4Z7=0>7=3=0=7>0?3>8AF=9" -DATA "=E=3>0=3=0=3=0=3=7=0=F=0=7>8?0?8=7=0=F=0=7@3=0>F=9AF=9>8=F=9>3>1@E=0>8" -DATA "?F>8=7=F=0=F?8=F=0=8=7>8?F>8=0=8=1=3=F=9=F=9=F=3=1>8@4=8=F=9>1=F=3?4=0" -DATA ">7>0=3>0?7=0?F=E=0=F=4=0=4>0=F>1=9=F>8?4>8?7=0>8?0=3@F=E?F=E=F=0A3=0?F" -DATA "=E?F=E=0=3>4?3?4>0>8>B=3=7=0>4=D?4=7=4=0=4>7?4=7=9?8=F?8=F=8>0>4=0=4=7" -DATA ">3=4=D=0>B=7=B>8=F=9=F=8=F=9>4=0=F=9=4=3?0=4=0=3=0?8=0@8=0>3=0=3>0>4@8" -DATA "=9=F=9=F>4>8A7=BBF>0@3=0>F=0?4=0>F=0?3=0=3=0?4=9>FB9>8=0=1=3>F=0=F=7=F" -DATA "=7>0>6>0=4=3=7=0?6=0=7=3=4=0=8=3>8=FA0=7>F=7=F=0=3=1=0>8>0=3=F=7>6=7=0" -DATA "?3=4>3=4=0K7=0=4?3=4=7=F=9=8>F=9=8=F>8B7>0>F>0=F=0=3=8?4=8=3A7=3B8=3=0" -DATA "=F=E?0>F=0?4=7?8>7=0=1=6=7>6=7=6=1A7=1?0=F?1=FA0=1=7A0=7=1@6=7=1=0>8=0" -DATA "=7@0=7[0>7=3=0A3>8=FA9>3=E>0=3=0=3=0=7?0=7=8=0?4=0>8=7?0=7A3>0A9>F>8=9" -DATA "=F=9=F>3=1?3=0A8=F=8=7=0=F>8=4>8=F=0=7=8=FA8=0=7=1=3=9=F=9=F=9=F=3>8@4" -DATA "=8=F=1=F=1=F?4@0>7>0=7?4=7>0=E>0=F=4=0=4>0=F?1=F=8@4>8>7=3A0?3=0=F=E=0" -DATA "=E=F=E>0>3?4>3=0=F=E=0=E=F=E>0>4?3>0?4=3>8>B=3=7=0=4=D>4>7=4=0@4>7=4>8" -DATA "?3?8=F=8=0@4=0=7@4=D=0>B>7>8=9=F=9=8=F>9>4=9=4=3>0>3>0=3=0>8=0=4=0?8=0" -DATA "=3=0>3?0>4?F=8=9=F=9=F=4>8A7=BAF=0=3>0?8=0=FC4=F=0?8=0=3=0?4=9?F>9>F=9" -DATA ">8=7=1=3=F=0>F=7=F=7=0>6>0>8>3=7=0=6=2=3=0=7=3=0@4=F?0>B=7=F=7>F=0=3=1" -DATA "=7>8=0=3=F>9>7=0=3=4@3=4=3=0=7=1F4=1=7=0>3=4=3=4>3=7>9>F>9=F>8A7>0>F?0" -DATA "=F=0=3=8?4=8=3=F=4=F=4=F=3>8=4>8=3>0=FA0>F=0?4>8=7>0=1=7=6?7>1?7=0>7=1" -DATA "=F=0=FA8=F=0=F=0=1>7@0=7=1@7=6=7=1=0>8=0=7?0=7?0=F?0=F?0=F?0=F?0=F?0=F" -DATA "?0=F?0=F=0>7A3=0>8AF=9=3=E>3>0=3=0=3=7?0=7=3A4=3=7=0=F>0=7=0B3=9BF>8=F" -DATA "=9=F=9=F=9=3=1>E=0=8=F=8CF=8?4=8CF=8=F=8=0>E=1=3=9=F=9=F=9=F>8@4=8=F>1" -DATA "=9=F>4>0=4=F?0?7?4?7?0=F=4=0=4>0=F=9>1=F=8@4>8=7=3A0?3=4=0>F=E?F=E=0=4" -DATA "=3?4=3=4=0>F=E?F=E=0=4?3A0=3=7>8=7>B=7=0=4=D=4=7?4=0@B?4=B=3=9=3=9=3=B" -DATA "?0@4=0=4=7=3?4=D=0=7>B=7>8=F=9=F=9=8=F>9>4=3>0?3=0>3=0=8=0?4=0=8=0>3=0" -DATA "?3>0=3>4>9=F=8=9=F=9=F>8=B?7=BD0=3=0?8=0=F=0>4=0>4=0=F=0?8=0=3=0=4B0=F" -DATA ">9=F=9>8=7=1=0=F=0=F=7=F=7=0>6>0=F=3>8=4=3=7=0=3=6=3=0=7=3=4>8=3=F>0>B" -DATA "=0=7=F=7=F=0=F=0=1=7>8=3>F=8=9=7=0=3=4>3=4?3=0=7=1>4>F?9>F>4=1=7=1=0>3" -DATA "=4>3=4=3=7=F=9=8>F=9>8B0>F@0=F=0=3=8?4=8=3=4=F=8=F=4=3=8?4=8=3>0=F?0=E" -DATA "=F=EA0>8>0=1=6=7?6=1>7=0=7=0>7=1@FA8@F=1>7=0=7=0>7=1?6=7=6=1>0>8=0=7>0" -DATA "=3>7=0?F=0?F=0?F=0?F=0?F=0?F=0?F=0?F=0>7>3>0=F>8=FA9=E>3=E=3>0=3=7>0=F" -DATA "=0=7>3?4>3=7=F=0=F=7>3>0A3@9>F=8#24C#0PF=EPF#1F9#0BF=E=0=EOF=0\F=E=F=E" -DATA "OF#185#0UBA0UBA0UBA0HB=0HB=0AFA0MF?0ZF=E?F=ENF#185#0UBA0FB=5?0=5FBA0HB" -DATA "=4HBA0GB?0GB=0@F=EA0=EKFA0XF=E>F=0>F=EMF#185#0ABA4ABA4ABA0EBC0EBA0GB?4" -DATA "GBA0FBA0FB=0@FC0JFC0VF=E>F?0>F=ELF#185#0@BC4?BC4@BA0DBE0DBA0GB?4GBA0EB" -DATA "C0EB=0@F=EA0=EIFE0TF=E>F>0=F>0>F=EKF#185#0?BE4=BE4?BA0CB=5E0=5CBA0FBA4" -DATA "FBA0DBE0DB=0AF=E?0=EIFG0RF=E>F>0=F=0=F>0>F=EJF@0=EG0=E>0=EE0=E>0=EE0=E" -DATA "F0>EF0=EF0=EH0=EF0=E†0=EE0?EF0=EF0?EE0?EG0=ED0AED0?ED0AED0?EE0?E0?EG0" -DATA "@EB0>BQ4>BA0CBG0CBA0EBC4EBA0CBG0CB=0>F=E=0=E=F?0=F=E=0=EEFI0PF=E>F>0=F" -DATA "?0=F>0>F=EIF@0=EG0=E>0=EE0=E>0=ED0?ED0=E>0=E>0=EA0=E=0=EE0=EG0=EH0=EF0" -DATA "=E=0=Ex0=ED0=E?0=EC0?EE0=E?0=EC0=E?0=EE0>ED0=EG0=E?0=EG0=EC0=E?0=EC0=E" -DATA "?0=E0=E?0=ED0>E@0>E@0>BQ4>BA0CBG0CBA0EBC4EBA0BBI0BB=0=FI0CF=EI0=ENF=E" -DATA ">F>0=F>0=F>0=F>0>F=EHF@0=EG0=E>0=ED0BEB0=E=0=E=0=ED0>E>0=EB0=E=0=EE0=E" -DATA "G0=EH0=EG0=Ey0=ED0=E?0=EE0=EI0=EG0=EE0>ED0=EG0=EJ0=ED0=E?0=EC0=E?0=E^0" -DATA "=EP0=EK0=ED0=EB0=E@0=BS4=BA0CB=5E0=5CBA0DBE4DBA0ABK0AB=0=EI0=EBFK0MF=E" -DATA ">F>0=F>0=F=0=F>0=F>0>F=EGF@0=ET0=E>0=EC0=E=0=EI0=ED0=ER0=EH0=EF0=E=0=E" -DATA "G0=Ek0=EE0=E?0=EE0=EI0=EG0=ED0=E=0=ED0@ED0=EJ0=ED0=E?0=EC0=E?0=EC0=EH0" -DATA "=EH0=ER0=EJ0=EC0=E?0?E>0=E?0=BS4=BA0DBE0DBA0CBG4CBA0@BM0@BL0BFK0LF=E>F" -DATA ">0=F>0=F=0=F=0=F>0=F>0>F=EFF@0=ET0=E>0=ED0>EH0=EE0=ER0=EH0=ET0=Ek0=EE0" -DATA "=E?0=EE0=EH0=EF0>EE0=E=0=ED0=E?0=EC0@EF0=EF0?EE0@E\0=EF0AEE0=EH0=ED0=E" -DATA ">0=E>0=E>0=E?0=BS4=BA0?B=5?0=5=BC0=B=5?0=5?BA0BBI4BBA0?B=5M0=5?B=0=EI0" -DATA "=EBFK0KF=E>F>0=F>0=F>0=F>0=F>0=F>0>F=EEF@0=ET0=E>0=EE0>EF0=EE0=E=0=E=0" -DATA "=EO0=EH0=ER0AEO0>ES0=EF0=E?0=EE0=EG0=EI0=EC0=E>0=EH0=EC0=E?0=EE0=EE0=E" -DATA "?0=EG0=E[0=EV0=EF0=EE0=E>0=E>0=E>0=E?0=BS4=BA0>BC0=BA0=BC0>BA0ABK4ABA0" -DATA "?BO0?B=0=FA0=F=0=FA0CFB0=F=0=FB0JF=E>F>0=F>0=F>0=F=0=F>0=F>0=F>0>F=EDF" -DATA "@0=ES0BED0=E=0=ED0=E>0>EB0=E>0=EP0=EH0=ET0=Ej0=EF0=E?0=EE0=EF0=EJ0=EC0" -DATA "AEG0=EC0=E?0=ED0=EF0=E?0=EG0=E\0=EF0AEE0=EG0=EE0=E?0>E=0?E?0>BQ4>BA0=B" -DATA "E0=5?0=5E0=BA0ABK4ABA0>B=5O0=5>B=0>F=E=0=E>F=0>F=E=0=EEF@0=F=E=0=E=F@0" -DATA "KF=E=F=E=0=F>0=F>0AF>0=F>0=F=0=E=F=EDFY0=E>0=EC0=E=0=E=0=EC0=E>0=E>0=E" -DATA "A0=E>0=EP0=EH0=ET0=Ei0=EG0=E?0=EE0=EE0=EG0=E?0=EF0=ED0=E?0=EC0=E?0=ED0" -DATA "=EF0=E?0=EC0=E?0=E]0=ER0=ES0=EG0>BQ4>BA0=5S0=5A0@BM4@BA0>BQ0>B=0BF?0NF" -DATA "?0OF=E=F=E>0=F=0=F>0=FA0=F>0=F=0=F>0=E=F=ECF@0=ET0=E>0=ED0?EH0>EC0>E=0" -DATA "=EO0=EH0=E_0=ER0=EG0=EH0?EF0=EE0AED0?EG0=EE0?EE0?EE0=EG0?EE0?ED0=EH0=E" -DATA "I0=EP0=EI0=EF0>EF0?BO4?B_0ABK4ABA0>BQ0>B=0AFA0LFA0MF=E=F=E>0=F=0=F>0=F" -DATA ">0?F>0=F>0=F=0=F>0=E=F=EBFf0=Ei0=EH0=E^0=E!o0=Ez0AEA0?BO4?B_0ABK4ABA0>B" -DATA "Q0>B=0kF=E>F>0=F>0=F=0=F>0=F?0=F>0=F=0=F>0=F>0>F=EAF•0=EF0=E#120#0@BM4" -DATA "@BL0=5=0=5L0BBI4BBA0>BQ0>B=0XF=0NF=E=F>0=F>0=F>0=F=0=F>0=F>0=F=0=F>0=F" -DATA ">0=F>0=F=EAF#162#0=E^0ABK4ABA0=5E0=5?0=5E0=5A0CBG4CBA0>B=5O0=5>B=0BF?0" -DATA "NF?0LF=E=F=E>0=F=0=F>0>F=0=F=0?F=0=F=0>F>0=F=0=F>0=E=F=E@FC0=ED0@EE0@E" -DATA "C0@ED0AEC0AED0@EC0=E@0=EB0=EJ0=ED0=E?0=EC0=EG0=EA0=EA0=E@0=EC0@EC0AED0" -DATA "@EC0AED0?ED0AEC0=E@0=EB0=EA0=EA0=EE0=E=0=EA0=EA0=EA0=EA0CEA0>EF0=EG0>E" -DATA "G0=E=0=EP0=EH0BBI4BBA0=BE0=B?0=BE0=BA0DBE4DBA0?B=5B0=B=5=0=5=BB0=5?B=0" -DATA "AF=E?0=ELFA0JF=E>F>0=F>0=F=0=F=0=F=0=F>0=F>0=F=0=F=0=F=0=F>0=F>0>F=E?F" -DATA "C0=ED0=E?0=EC0=E@0=EB0=E?0=EC0=EG0=EG0=E@0=EB0=E@0=EB0=EJ0=ED0=E>0=ED0" -DATA "=EG0=EA0=EA0>E?0=EB0=E@0=EB0=E@0=EB0=E@0=EB0=E@0=EB0=E?0=EE0=EE0=E@0=E" -DATA "B0=EA0=EA0=EE0=E=0=EA0=EA0=EA0=EG0=EA0=EG0=EH0=EF0=E?0=EP0=EG0CBG4CBA0" -DATA ">BC0>B?0>BC0>BA0EBC4EBA0AB=5>0=5>B=5=0=5>B=5>0=5AB=0AF=E?0=EKFC0IF=E=F" -DATA ">0=F>0=F>0=F=0=F>0=F?0=F>0=F=0=F>0=F>0=F>0=F=E?FB0=E=0=EC0=E?0=EC0=EG0" -DATA "=E@0=EB0=EG0=EG0=EG0=E@0=EB0=EJ0=ED0=E=0=EE0=EG0>E?0>EA0>E?0=EB0=E@0=E" -DATA "B0=E@0=EB0=E@0=EB0=E@0=EB0=EI0=EE0=E@0=EC0=E?0=EC0=E?0=E?0=E?0=E?0=EC0" -DATA "=E?0=EG0=EB0=EG0=EH0=Ek0DBE4DBA0?B=5?0=5>B=5?0=5>B=5?0=5?BA0EBC4EBA0GB" -DATA "?0GB=0@F>0=F=0=F>0IF=EC0=EGF=E=F=E>0=F=0=F?0=F>0=F>0?F>0=F>0=F?0=F=0=F" -DATA ">0=E=F=E>FB0=E=0=EC0=E?0=EC0=EG0=E@0=EB0=EG0=EG0=EG0=E@0=EB0=EJ0=ED0>E" -DATA "F0=EG0>E?0>EA0=E=0=E>0=EB0=E@0=EB0=E@0=EB0=E@0=EB0=E@0=EB0=EI0=EE0=E@0" -DATA "=EC0=E?0=EC0=E?0=E?0=E@0=E=0=EE0=E=0=EG0=EC0=EH0=EG0=Ek0EBC4EBA0FB=5?0" -DATA "=5FBA0FBA4FBA0GB?0GB=0?FE0HFE0FF=E>F>0=F>0=F=0=F=0=F?0=FA0=F?0=F=0=F=0" -DATA "=F>0=F>0>F=E=FA0=E?0=EB0@ED0=EG0=E@0=EB0@ED0@ED0=E>0?EB0BEB0=EJ0=ED0>E" -DATA "F0=EG0=E=0=E=0=E=0=EA0=E=0=E>0=EB0=E@0=EB0AEC0=E@0=EB0AED0?EF0=EE0=E@0" -DATA "=EC0=E?0=EC0=E?0=E?0=EA0=EG0=EG0=ED0=EH0=EG0=Ek0FBA4FBA0EBC0EBA0GB?4GB" -DATA "A0FBA0FB=0?FE0HFE0FF=E=F=E>0=F=0=F>0=F>0=F?0AF?0=F>0=F>0=F>0=F=0=E=F=E" -DATA "=FA0=E?0=EB0=E?0=EC0=EG0=E@0=EB0=EG0=EG0=E@0=EB0=E@0=EB0=EJ0=ED0=E=0=E" -DATA "E0=EG0=E=0=E=0=E=0=EA0=E>0=E=0=EB0=E@0=EB0=EG0=E@0=EB0=E@0=EF0=EE0=EE0" -DATA "=E@0=ED0=E=0=EE0=E=0=E=0=E=0=EA0=E=0=EF0=EF0=EE0=EI0=EF0=Ek0GB?4GBA0DB" -DATA "E0DBA0GB?4GBA0EBC0EB=0@F>0=F=0=F>0JF>0=F=0=F>0FF=E>F>0=F>0=F=0=F=0=F>0" -DATA "=F?0=F=0=F?0=F>0=F=0=F=0=F>0=F>0>F=EA0AEB0=E?0=EC0=EG0=E@0=EB0=EG0=EG0" -DATA "=E@0=EB0=E@0=EB0=EG0=E>0=ED0=E>0=ED0=EG0=E>0=E>0=EA0=E?0>EB0=E@0=EB0=E" -DATA "G0=E>0=E=0=EB0=E@0=EF0=EE0=EE0=E@0=ED0=E=0=EE0=E=0=E=0=E=0=E@0=E?0=EE0" -DATA "=EE0=EF0=EI0=EF0=Ek0HB=4HBA0CBG0CBA0HB=4HBA0CBG0CB=0CF=0PF=0IF=E=F=E>0" -DATA "=F=0=F>0=F>0=F>0=F?0=F?0=F>0=F>0=F>0=F>0=F=0=E=F=E@0=EA0=EA0=E?0=EC0=E" -DATA "@0=EB0=E?0=EC0=EG0=EG0=E?0>EB0=E@0=EB0=EG0=E>0=ED0=E?0=EC0=EG0=E>0=E>0" -DATA "=EA0=E?0>EB0=E@0=EB0=EG0=E?0>EB0=E@0=EB0=E?0=EE0=EE0=E@0=EE0=EG0=E?0=E" -DATA "@0=EA0=ED0=ED0=EG0=EJ0=EE0=EY0o10BF?0NF?0HF=E=F=E=0=F>0=F=0=F@0=F>0=F" -DATA "=0=F=0=F=0=F>0=F@0=F=0=F>0=F=0=E=F=E@0=EA0=EA0@EE0@EC0@ED0AEC0=EH0?E=0" -DATA "=EB0=E@0=EB0=EH0>EE0=E@0=EB0AEC0=EA0=EA0=E@0=EC0@EC0=EH0@EC0=E@0=EC0?E" -DATA "F0=EF0@EF0=EG0=E?0=E@0=EA0=ED0=ED0CEA0=EJ0=EE0=EY0>1@3B1=3=1=3>1=3E1=3" -DATA "M1@3>10fF=E=F>0=F=0=F>0=F=0>F>0=F>0=F?0=F>0=F>0>F=0=F>0=F=0=F>0=F=E!…0" -DATA "=E®0=ET0=EY0=1A3B1=3=1=3>1=3E1=3M1A3=10DF=4]F=E=F>0=F=0=F=0=F>0=F>0=F" -DATA ">0=F=0=F=0=F=0=F>0=F>0=F>0=F=0=F=0=F>0=F=E#13C#0>ER0>ER0BE=0=1A3B1=3@1" -DATA "=3W1A3=10CF?4\F=E=F>0=F=0=F>0=F?0=F>0=F?0=F?0=F>0=F?0=F>0=F=0=F>0=F=E" -DATA "#13E#0=EQ0=EZ0=1A3B1=3@1=3W1A3=10BF=D?4=DHF=C?4=D?F=D?4=CBF=E=F>0=F>0" -DATA "=F=0=F=0>F>0=F?0=F=0=F?0=F>0@F=0=F>0=F>0=F=EL0=EW0=EP0=ER0=EG0=EG0=EG0" -DATA "=EG0=E!p0=EF0=EH0=EY0=1=3B1>3>1=3=1=3=1A3=1?3>1=3=1?3?1>3H1=3=1>0‹E>0AF" -DATA "=DA4=DFF=CA4=D=F=DA4=CAF=E=F>0=E=F=0=F>0=F?0=F?0=F?0=F?0=F?0=F>0=F=0=F" -DATA "=E>0=F=EL0=EW0=EO0=ES0=E_0=EG0=E›0=E0=EF0=EH0=EG0>E>0=EI0=1=3A1@3=1=3" -DATA "=1=3=1A3=1@3=1=3=1@3=1@3G1=3=1>0‹E>0@F=CC4=CEF=DB4=CB4=DAF=E=F=E>0=F>0" -DATA "=F?0>F?0=F>0=F>0=F?0>F?0=F>0=F>0=E=F=EL0=EW0=EO0=ES0=E_0=EG0=E›0=E0=E" -DATA "F0=EH0=EF0=E>0>EJ0=1@3>1@3=1=3=1=3=1A3=1@3=1=3=1@3=1@3D1@3=1>0=E@2BE>2" -DATA "@E@2@E@2BE>2?EB2?E@2?EB2?E@2@E@2>E>0?F=C=DC4=D=CDFK4AF=E>F>0=E=F>0?F@0" -DATA "=F>0?F>0=F@0?F>0=F=E>0>F=EA0?ED0@EE0?EE0@ED0?ED0>EG0@EC0=E=0>ED0=EG0=E" -DATA "G0=E>0=ED0=EG0?E=0>EB0=E=0>EE0?ED0@EE0@EC0>EG0>EE0>EF0=E?0=EC0=E?0=EC0" -DATA "=E>0=E>0=EA0=E>0=EE0=E>0=EC0@EE0=EF0=EH0=EY0=1A3=1@3=1=3=1=3=1A3=1@3=1" -DATA "=3=1@3=1@3D1@3=1>0>2>E>2?E@2?E>2>E>2>E>2>E>2@E?2?E>2BE>2>E>2BE>2>E>2>E" -DATA ">2>E>2>E>2=E>0?F=DE4=DDFK4BF=E=F=E>0=FD0=FE0=FD0=F>0=E=F=E=FD0=EC0=E?0" -DATA "=EC0=E?0=EC0=E?0=EC0=E?0=EC0=EG0=E?0=EC0>E>0=EC0=EG0=EG0=E=0=EE0=EG0=E" -DATA ">0=E>0=EA0>E>0=EC0=E?0=EC0=E?0=EC0=E?0=EC0=EG0=E>0=ED0=EG0=E?0=EC0=E?0" -DATA "=EC0=E>0=E>0=EA0=E>0=EE0=E>0=EF0=ED0=EG0=EI0=EX0>1@3=1=3>1=3=1=3=1=3>1" -DATA "=3C1=3=1=3=1=3@1=3>1=3=1A3>1@3=1>0>2>E>2AE>2CE>2BE>2@E?2?E>2BE>2EE>2?E" -DATA ">2>E>2>E>2>E>2=E>0>F=DG4=DCF=DI4=DBF=E>F?0>F@0>F?0=E=0=F=0=E?0>F@0>F?0" -DATA ">F=E=FA0@EC0=E?0=EC0=EG0=E?0=EC0AEC0=EG0=E?0=EC0=E?0=EC0=EG0=EG0>EF0=E" -DATA "G0=E>0=E>0=EA0=E?0=EC0=E?0=EC0=E?0=EC0=E?0=EC0=EH0=EF0=EG0=E?0=ED0=E=0" -DATA "=ED0=E=0=E=0=E=0=EB0>EF0=E>0=EE0=EF0=EF0=EH0=EY0A1=7=1=7>1=7=1=7=1=7>1" -DATA "=7A1?7=1=7=1=7@1@7=1A7A1=7=1>0>2>E>2AE>2CE>2BE>2?E@2?EA2?E>2EE>2?E>2>E" -DATA ">2>E>2>E>2=E>0?F=DE4=DDF=CI4=CCF=E>F@0@FA0=F=0=F=0=FA0@F@0>F=E>F@0=E?0" -DATA "=EC0=E?0=EC0=EG0=E?0=EC0=EG0=EG0=E?0=EC0=E?0=EC0=EG0=EG0=E=0=EE0=EG0=E" -DATA ">0=E>0=EA0=E?0=EC0=E?0=EC0=E?0=EC0=E?0=EC0=EI0=EE0=EG0=E?0=ED0=E=0=ED0" -DATA "=E=0=E=0=E=0=EB0>EF0=E>0=ED0=EG0=EF0=EH0=EY0A1=7=1=7>1=7=1=7=1=7>1=7@1" -DATA "=7>1=7=1=7=1=7@1=7J1=7=1>0>2>E>2AE>2BE>2AE?2@E@2?E>2>E>2>EA2AE>2AE@2@E" -DATA "A2=E>0?F=C=DC4=DFF=DG4=DEF=E>F=EE0?F?0?FE0=E>F=E?F@0=E?0=EC0=E?0=EC0=E" -DATA "?0=EC0=E?0=EC0=E?0=EC0=EG0=E?0=EC0=E?0=EC0=EG0=EG0=E>0=ED0=EG0=E>0=E>0" -DATA "=EA0=E?0=EC0=E?0=EC0=E?0=EC0=E?0=EC0=EG0=E>0=ED0=EG0=E>0>EE0=EF0=E?0=E" -DATA "B0=E>0=EF0>ED0=EH0=EF0=EH0=EY0=1A7=1@7=1=7=1=7>1@7=1@7=1=7=1=7@1@7C1A7" -DATA "=1>0>2>E>2AE>2AE>2DE>2>E>2=E>2CE>2>E>2>E>2@E>2@E>2>E>2BE>2=E>0@F=CC4=C" -DATA "GFG4GF=E?F=EA0=E>F=E=F=0=F=0=F=E>F=EA0=E?F=E@FA0@EC0@EE0?EE0@ED0?ED0=E" -DATA "H0@EC0=E?0=EC0=EG0=EG0=E?0=EC0=EG0=E>0=E>0=EA0=E?0=ED0?ED0@EE0@EC0=EH0" -DATA ">EF0=EG0>E=0=EE0=EF0=E?0=EB0=E>0=EF0=EE0@EE0=EF0=EH0=EY0=1A7=1@7=1=7=1" -DATA "=7>1@7=1@7=1=7=1=7@1@7C1A7=1>0>2>E>2AE>2@E>2EE>2>EB2BE>2>E>2>E>2?E>2AE" -DATA ">2>E>2BE>2=E>0AF=DA4=DIFE4IF>EEF>E=F?0=F>EEF>EAFŒ0=E[0=Eƒ0=EK0=E™0=ES0" -DATA "=EE0=EG0=EZ0=1A7=1@7=1=7=1=7>1@7=1@7=1=7=1=7@1@7C1A7=1>0>2>E>2AE>2?E>2" -DATA "BE>2>E>2AE>2?E>2>E>2>E>2>E>2?E>2AE>2>E>2>E>2>E>2=E>0BF=D?4=DKFC4LFFE>F" -DATA "=0=F=0>FFECFˆ0@E\0=Eƒ0=EK0=E—0>E‰0=1@7?1>7>1=7=1=7?1?7>1?7=1=7=1=7A1?7" -DATA "C1@7>1>0=E@2BE>2?EB2?E@2BE>2@E@2@E@2@E>2BE@2@E@2>E>0CF?4MFA4UF=E>F=0=F" -DATA "=0=F=0>F=EKF#120#0PE!0DF=4OF?4UF=E>FC0>F=EJF#120#0@E>2CE>4AE=0@F=C=4GF" -DATA "=C?4FF=C?4JF=4FFA4FF=C?4DFB4DFA4FF?4CF?4?F?4GF@4DF?4DF@4=F@4=F=0JF>0YF" -DATA "=4TF>E>F=0=F=0=F=0=F=0=F=0>F>EHFC0>FW1>FO1>FP1AFZ1AFI1>FX1>F@1>FW1AFK1" -DATA ">FI1@FE1>F=1>FH1>FM1@F>1=0?E@2AE@4@E=0@F>4GFA4EFA4HF>4EFA4FF?4EFB4=CCF" -DATA ">4?F>4DF>4=F>4CF>4>F>4=F>4GF>4CF>4=C=F=C>4CF>4?F=4=C>F=0JF>0pF>E>F=EG0" -DATA "=E>F>EFFC0>FD1>FM1>FK1>FS1>F?1>FX1>F?1>FD1>F\1>F@1>FO1>FB1>F>1>FX1>F>1" -DATA ">FD1>F@1>FW1>F>1>F=1=0>EB2?EB4?E=0@F?4EF>4=F=C>4DF=4>F=C>4GF?4EF=4IF>4" -DATA "=CFF=4@F=4DF>4?F>4CF>4?F>4BF>4=F>4?F>4FF>4CF>4?F>4CF>4>F=4=C?F=0JF>0DF" -DATA "=4eF>E>F=E>0=F=0=F=0=F=0=F=0=F=0=F>0=E>F>EDFC0>FD1>FM1>FK1>FS1>F]1>F?1" -DATA ">FD1>F[1@F?1>FO1>FB1>F>1>FX1>FH1>F@1>F[1>F=1=0>E@2AE@4AE=0?F=4=F>4IF>4" -DATA "HF>4FF=C?4DF=C?4=CEF=C>4LF=4DF?4=F=C>4CF>4?F>4BF>4=F>4?F>4FF>4BF>4AF>4" -DATA "BF>4=F=4=C@F=0EF=9>0>F>0CF?4LF>4=D=F=D>4LF=E>F=EO0=E>F=ECFC0>F=1AF>1?F" -DATA "=1?F>1@F?1AF=1>F>1>F>1@F>1?F=1>F>1@F>1AFB1>FC1@F>1CF?1@FB1>F?1>F=1AF>1" -DATA "?F=1>F>1@F>1AF?1?FD1@F?1AF?1@F>1>F>1>F=1?FA1>F>1>F>1@F?1?F>1>F>1@FB1>F" -DATA "B1@F>1>F=1>F=1?F>1@F>1>F=1?F>1@FF1>F=1=0>E@2AE@4AE=0?F=4=F=C>4HF>4GF>4" -DATA "GF=4=F>4DFB4DFA4=CHF=4=CEFA4DF>4?F>4BF>4=F>4?F>4FF>4BF>4AF>4BF?4=CAF=0" -DATA "=F>0=E@F=E=0@F>0BF=D?4=DJF=D?4=C?4=DKF=E=FS0=F=ECFC0>F=1?F=1>F=1>F>1>F" -DATA ">1>F>1>F=1>F>1>F=1>F>1>F=1>F>1>F=1>F>1>F=1>F>1>F=1?F=1>FA1>F=1@FA1>F=1" -DATA ">F=1>F=1>F=1>F>1>FA1>F?1>F=1>F>1>F=1>F>1>F=1>F>1>F=1?F=1>F=1>F=1>FB1>F" -DATA ">1>F>1>F>1>F=1>F>1>F=1>F>1>F=1>FB1AFB1>F=1>F=1>F=1>F=1>F>1>FB1@F>1>F>1" -DATA ">F=1>F=1>F=1>FB1>F=1>F=1>F>1>F>1>FC1?F>1=0?E@2AE@4@E=0>F=C=4>F>4GF=C=4" -DATA "=CFF@4EF=4>F>4HF?4CF>4>F=C=4=CGF=4GF@4DF=C=4=C>F>4BF>4=F>4?F>4FF>4BF>4" -DATA "AF>4BF?4BF=0=F=E>0?F=E=0AF>0AF=DA4=DIFE4KF=EUF=ECFC0>F=1>F>1>F=1>F>1>F" -DATA ">1>F>1>F=1>F>1>F=1>F>1>F=1>FA1>F>1>F=1>F>1>F=1>F>1>FA1>F?1>F>1AF=1>F=1" -DATA ">F=1>F=1BFA1>F?1>F=1>F>1>F=1>F>1>F=1>F>1>F=1>F>1>F>1>FD1>F>1>F>1>F>1>F" -DATA "=1>F>1>F=1>F>1>F=1>FB1>F>1>F>1AF>1>F?1>F=1>FI1>F=1>F>1>F=1>F=1>F=1>F?1" -DATA "AF=1>F=1>F>1BFE1>F=1=0@E@2AE@4?E=0>F=4?F=C>4FF>4IF?4CF=4?F>4IF=C=4CF>4" -DATA "?F>4GF=4FF=4=C=F?4DF=CA4BF>4=F>4?F>4FF>4BF>4AF>4BF@4AF=0>F>0=E=F=E=0BF" -DATA ">0@F=DC4=DHFE4KFWECFC0>F=1>F>1>F=1>F>1>F>1>F>1>F=1>F>1>F=1>F>1>F=1>FA1" -DATA ">F>1>F=1>F>1>F=1>F>1>FA1>F?1>F=1>F>1>F=1>F=1>F=1>F=1>FE1>F?1>F=1>F>1>F" -DATA "=1>F>1>F=1>F>1>F=1>F>1>F?1>FC1BF>1>F>1>F=1>F>1>F=1>F>1>F=1>FB1>F>1>F=1" -DATA ">F>1>F?1>F>1>F=1>FI1>F=1>F>1>F=1>F=1>F=1>F>1>F>1>F=1>F=1>F>1>FI1>F=1=0" -DATA "@E@2AE@4?E=0>FC4EF=C=4KF>4CFC4IF=4CF>4?F>4FF=4=CEF>4?F>4GF>4=CBF>4=F>4" -DATA "?F>4AF>4?F>4BF>4AF>4BF>4=C>4@F=0>F=E>0=E=0CF>0AF=DA4=DIF=DC4=DDFl0>F=1" -DATA ">F>1>F=1>F>1>F>1>F>1>F=1>F>1>F=1>F=1?F=1>F>1>F=1>F>1>F=1>F>1>F=1>F>1>F" -DATA "A1>F>1?F=1>F>1>F=1>F=1>F=1>F=1>F>1>FA1>F?1>F=1>F>1>F=1>F>1>F=1>F>1>F=1" -DATA ">F>1>F=1>F=1>FA1>F@1>F=1>F>1>F=1>F>1>F=1>F=1?F=1>FB1>F>1>F=1>F>1>F=1>F" -DATA "=1>F=1>F=1>F>1>FA1>F>1>F=1>F>1>F=1>F=1>F=1>F>1>F>1>F=1>F=1>F>1>F>1>FA1" -DATA ">F>1>F=1=0>EB2?EB4?E=0=F=C=4@F?4DF=4?F=4HF>4CFC4IF=4CF>4?F>4FF=4FF>4?F" -DATA ">4FF=C>4CF>4=F>4?F>4AF>4?F>4CF>4?F>4CF>4=F=C>4?F=0?F?0DF>0BF=D?4=DKFC4" -DATA "EFl0>F=1>F>1>F>1>F=1>F?1@F?1AF>1AF>1@F?1>F=1>F>1@F>1>F>1>FB1BF>1AF=1>F" -DATA "=1>F=1>F>1@FC1AF>1AF?1>F=1>F>1@F>1>F>1>F>1?FB1>F@1>F=1AF?1@F?1AF>1>FA1" -DATA "AF?1AF>1?F>1>F>1@FC1@F?1@F>1>F=1>F>1>F>1AF=1>F=1>F?1@FC1@F>1=0?E@2AE@4" -DATA "@E=0=F=4BF>4BF=CA4=CCF>4>F=C=4HF>4DF>4=C>F=4EF>4=F>4GF=4FF>4?F>4EF?4DF" -DATA ">4>F>4=F>4BF>4=C=F=C>4CF>4=C=F=C>4CF>4>F=C>4>F=0?F=9=0EF>0CF?4MFA4FFl0" -DATA "®1>F!`1=0@E>2CE>4AE=0@4?F@4AFB4DFA4IF>4DFA4GF?4GF=4=CGFA4DF?4=CDF@4>F?4" -DATA "DFA4FF?4>F=4AF@4=F@4=F=0JF>0DF=4OF?4GFl0®1>F!`1=0PE=0!\F?4LF=0JF>0YF=4" -DATA "HF" - -SUB DoHELP -LINE (63, 20)-(174, 35), 14, BF -PrintSTRING 70, 22, "Game" -PrintSTRING 110, 22, "Help" -PrintSTRING 140, 22, "Score:" -GET (70, 23)-(95, 33), Box() -GET (110, 23)-(129, 33), Box(100) -FOR x = 70 TO 129 - FOR y = 23 TO 33 - IF POINT(x, y) = 0 THEN PSET (x, y), 8 - NEXT y -NEXT x -GET (70, 23)-(95, 33), Box(200) -GET (110, 23)-(129, 33), Box(300) -GET (140, 23)-(167, 33), Box(400) -SaveFILE "Sol3Men1", 1000 -LINE (63, 20)-(174, 35), 0, BF -LINE (310, 37)-(410, 110), 14, BF -LINE (310, 37)-(410, 110), 5, B -LINE (310, 37)-(410, 37), 15, BF -LINE (310, 37)-(310, 110), 15, BF -LINE (313, 89)-(407, 89), 5 -LINE (313, 90)-(407, 90), 15 -PrintSTRING 322, 44, "Introduction" -PrintSTRING 322, 59, "Basic Solitaire" -PrintSTRING 322, 74, "Game Options" -PrintSTRING 322, 94, "About Solitaire 3" -GET (310, 37)-(410, 110), Box() -SaveFILE "Sol3Men3", 4000 -LINE (311, 38)-(409, 88), 14, BF -LINE (311, 91)-(409, 109), 14, BF -PrintSTRING 326, 44, "Deal" -PrintSTRING 326, 59, "Undo" -PrintSTRING 326, 74, "Game Options" -PrintSTRING 326, 94, "Exit" -GET (310, 37)-(410, 110), Box() -SaveFILE "Sol3Men2", 4000 -LINE (310, 37)-(410, 110), 0, BF - -LINE (180, 165)-(432, 288), 14, BF -LINE (186, 169)-(425, 186), 1, BF -LINE (180, 165)-(432, 288), 15, B -LINE (180, 288)-(432, 288), 5 -LINE (432, 165)-(432, 288), 5 -LINE (186, 190)-(427, 282), 15, B -LINE (186, 190)-(425, 280), 5, B -LINE (187, 191)-(425, 280), 15, BF -DEF SEG = VARSEG(Box(0)) -BLOAD "sol3btns.bsv", VARPTR(Box(0)) -DEF SEG -PUT (375, 171), Box(200), PSET -DEF SEG = VARSEG(Box(0)) -BLOAD "sol3hdgs.bsv", VARPTR(Box(0)) -DEF SEG -PUT (194, 173), Box(0), PSET -RESTORE HelpDATA -FOR Reps = 1 TO 15 - LINE (187, 191)-(425, 280), 15, BF - FOR y = 200 TO 260 STEP 12 - READ a$: PrintSTRING 200, y, a$ - NEXT y - FOR xx = 200 TO 420 - FOR yy = 200 TO 280 - IF POINT(xx, yy) = 1 THEN PSET (xx, yy), 8 - NEXT yy - NEXT xx - DEF SEG = VARSEG(Box(0)) - BLOAD "sol3hdgs.bsv", VARPTR(Box(0)) - DEF SEG - SELECT CASE Reps - CASE 6 - LINE (186, 169)-(340, 186), 1, BF - PUT (194, 173), Box(800), PSET - PUT (228, 173), Box(1000), PSET - CASE 12 - LINE (186, 169)-(340, 186), 1, BF - PUT (192, 173), Box(200), PSET - PUT (227, 173), Box(400), PSET - END SELECT - GET (180, 165)-(432, 288), Box() - SaveFILE "Sol3HP" + LTRIM$(RTRIM$(STR$(Reps))), 16000 -NEXT Reps -DEF SEG = VARSEG(Box(0)) -BLOAD "sol3hdgs.bsv", VARPTR(Box(0)) -DEF SEG -LINE (187, 191)-(425, 280), 14, BF -LINE (186, 169)-(406, 186), 1, BF -PUT (192, 173), Box(600), PSET -PUT (230, 173), Box(1000), PSET -PUT (280, 173), Box(1200), PSET -LINE (276, 178)-(279, 178), 15 -FOR x = 230 TO 290 - FOR y = 173 TO 186 - IF POINT(x, y) = 15 THEN PSET (x - 20, y + 32), 0 - NEXT y -NEXT x -PrintSTRING 324, 204, "Version 2 - 2007" -PrintSTRING 210, 220, "Program type:" -PrintSTRING 324, 220, "Game (Freeware)" -PrintSTRING 210, 236, "Program & Graphics:" -PrintSTRING 324, 236, "Bob Seguin" -PrintSTRING 210, 252, "Language:" -PrintSTRING 324, 252, "QBasic 1.1" -GET (180, 165)-(432, 288), Box() -SaveFILE "Sol3HP16", 16000 -DEF SEG = VARSEG(Box(0)) -BLOAD "sol3hdgs.bsv", VARPTR(Box(0)) -DEF SEG -LINE (186, 169)-(406, 186), 1, BF -PUT (192, 173), Box(200), PSET -PUT (227, 173), Box(400), PSET -LINE (187, 191)-(425, 280), 14, BF -FOR y = 220 TO 256 STEP 18 - LINE (229, y)-(245, y + 10), 15, BF - LINE (229, y)-(229, y + 10), 5 - LINE (229, y)-(245, y), 5 - LINE (230, y + 1)-(244, y + 1), 14 - LINE (230, y + 1)-(230, y + 9), 14 -NEXT y -PrintSTRING 213, 201, "Click corresponding box to toggle option." -PrintSTRING 255, 220, "Vegas Style Scoring" -PrintSTRING 255, 238, "No Scoring (continuous play)" -PrintSTRING 255, 256, "Money Card" -GET (180, 165)-(432, 288), Box() -SaveFILE "Sol3HP17", 16000 -LINE (180, 165)-(432, 288), 0, BF -END SUB - -SUB PrintSTRING (x, y, Prnt$) -DEF SEG = VARSEG(Box(0)) -BLOAD "sol3mssr.fnt", VARPTR(Box(0)) -DEF SEG -FOR i = 1 TO LEN(Prnt$) - Char$ = MID$(Prnt$, i, 1) - IF Char$ = " " THEN - x = x + Box(1) - ELSE - Index = (ASC(Char$) - 33) * Box(0) + 2 - PUT (x, y), Box(Index) - x = x + Box(Index) - END IF -NEXT i -END SUB - -SUB SaveFILE (FileNAME$, ByteCOUNT&) -FileNAME$ = LCASE$(FileNAME$ + ".BSV") -DEF SEG = VARSEG(Box(0)) -BSAVE FileNAME$, VARPTR(Box(0)), ByteCOUNT& -DEF SEG -END SUB diff --git a/programs/samples/thebob/sol/sol3.bas b/programs/samples/thebob/sol/sol3.bas deleted file mode 100644 index 6d2012c08..000000000 --- a/programs/samples/thebob/sol/sol3.bas +++ /dev/null @@ -1,1561 +0,0 @@ -CHDIR ".\programs\samples\thebob\sol" - -'****************************************************************************' -'-------------------------- S O L I T A I R E - 3 ---------------------------' -'------------- Copyright (C) 2000-2007 by Bob Seguin (Freeware) -------------' -'****************************************************************************' - -DEFINT A-Z - -DECLARE FUNCTION InitMOUSE () - -DECLARE SUB MouseDRIVER (LB, RB, mX, mY) -DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY) -DECLARE SUB ShowMOUSE () -DECLARE SUB HideMOUSE () -DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY) -DECLARE SUB ClearMOUSE () - -DECLARE SUB DrawSCREEN (Mode) -DECLARE SUB Interval (Length!) -DECLARE SUB CheckOUT () -DECLARE SUB InitVALS () - -DECLARE SUB PlayGAME () - -DECLARE SUB Sol3MENU (Item) -DECLARE SUB Sol3DEAL () -DECLARE SUB Sol3UNDO () -DECLARE SUB Sol3HELP (Item) -DECLARE SUB BigBOX (InOUT) - -DECLARE SUB SetSCORE () -DECLARE SUB PutCARD (x, y, CardNUM) -DECLARE SUB CheckTOTAL () -DECLARE SUB Finito () - -TYPE PlayTYPE -Suit AS INTEGER -Value AS INTEGER -x AS INTEGER -y AS INTEGER -UpDOWN AS INTEGER -END TYPE -DIM SHARED MainPLAY(1 TO 7, 0 TO 18) AS PlayTYPE - -TYPE DeckTYPE -Suit AS INTEGER -Value AS INTEGER -END TYPE -DIM SHARED Decks(1 TO 3, 1 TO 8) AS DeckTYPE -DIM SHARED TurnUPs(0 TO 24) AS DeckTYPE -DIM SHARED Stacks(1 TO 4) AS DeckTYPE -DIM SHARED Trick(1 TO 18) AS DeckTYPE - -DIM SHARED LettFileName$ - -REDIM SHARED Buttons(600) -REDIM SHARED Title(1 TO 250) -REDIM SHARED Card(1 TO 2400) -REDIM SHARED CardBACK(1 TO 2400) -REDIM SHARED BackERASE(1 TO 2600) -REDIM SHARED Selected(1 TO 2400) -REDIM SHARED Suits(1 TO 800) -REDIM SHARED MenuBOX(220) -REDIM SHARED ItemBOX(500) -REDIM SHARED MenuGFX(500) -REDIM SHARED Deck(1 TO 52) -REDIM SHARED TopOFF(1 TO 44) -REDIM SHARED Chek(50) -REDIM SHARED GetBOX(8000) -REDIM SHARED OtherBOX(8000) -REDIM SHARED Numbers(1100) - -DIM SHARED Score AS LONG -DIM SHARED MoneyCARD -DIM SHARED Tally -DIM SHARED StackIT -DIM SHARED Completed -DIM SHARED MouseDATA$ - -DIM SHARED Vegas -DIM SHARED Money -OPEN "sol3opts.dat" FOR INPUT AS #1 -INPUT #1, Vegas, Money -CLOSE #1 - -DEF SEG = VARSEG(Suits(1)) -BLOAD "sol3suit.bsv", VARPTR(Suits(1)) -DEF SEG = VARSEG(Buttons(0)) -BLOAD "sol3btns.bsv", VARPTR(Buttons(0)) -DEF SEG = VARSEG(Title(1)) -BLOAD "sol3titl.bsv", VARPTR(Title(1)) -DEF SEG = VARSEG(CardBACK(1)) -BLOAD "sol3cd53.bsv", VARPTR(CardBACK(1)) -DEF SEG = VARSEG(BackERASE(1)) -BLOAD "sol3cd54.bsv", VARPTR(BackERASE(1)) -DEF SEG = VARSEG(Selected(1)) -BLOAD "sol3sele.bsv", VARPTR(Selected(1)) -DEF SEG = VARSEG(TopOFF(1)) -BLOAD "sol3topp.bsv", VARPTR(TopOFF(1)) -DEF SEG = VARSEG(Chek(0)) -BLOAD "sol3chek.bsv", VARPTR(Chek(0)) -DEF SEG = VARSEG(Numbers(0)) -BLOAD "sol3nums.bsv", VARPTR(Numbers(0)) -DEF SEG = VARSEG(MenuGFX(0)) -BLOAD "sol3men1.bsv", VARPTR(MenuGFX(0)) -DEF SEG - -'Create and load MouseDATA$ for CALL ABSOLUTE routines -DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B -DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58 -DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00 -MouseDATA$ = SPACE$(57) -FOR i = 1 TO 57 -READ h$ -Hexxer$ = CHR$(VAL("&H" + h$)) -MID$(MouseDATA$, i, 1) = Hexxer$ -NEXT i -Moused = InitMOUSE -IF NOT Moused THEN -PRINT "Sorry, cat must have got the mouse." -SLEEP 2 -SYSTEM -END IF - -SCREEN 12 - -GOSUB SetPALETTE -DrawSCREEN 1 -InitVALS -RANDOMIZE TIMER -Sol3DEAL -ShowMOUSE - -DO -Beginning: -MouseSTATUS LB, RB, MouseX, MouseY -IF Menu > 2 THEN Sol3MENU 1: GOTO Beginning -SELECT CASE MouseY -CASE IS < 18 -IF MouseX > 621 AND LB THEN CheckOUT -IF Menu THEN Sol3MENU 0 -CASE 20 TO 35 -SELECT CASE MouseX -CASE IS < 103 -Sol3MENU 1 -CASE ELSE -IF Menu THEN Sol3MENU 0 -END SELECT -CASE IS > 38 -IF Menu THEN Sol3MENU 0 -PlayGAME -Finito -END SELECT -PauseMOUSE LB, RB, MouseX, MouseY -LOOP - -SYSTEM - -SetPALETTE: -DATA 0, 0, 0, 16, 16, 32, 21, 63, 21, 63, 63, 0 -DATA 63, 0, 0, 28, 28, 28, 0, 34, 0, 63, 50, 10 -DATA 0, 30, 55, 45, 50, 63, 0, 63, 63, 0, 42, 0 -DATA 63, 45, 55, 63, 30, 40, 48, 48, 48, 63, 63, 63 -RESTORE SetPALETTE -OUT &H3C8, 0 -FOR n = 1 TO 48 -READ Intensity -OUT &H3C9, Intensity -NEXT n -RETURN - -SUB CheckOUT - -HideMOUSE -PUT (622, 2), Buttons(400), PSET -ShowMOUSE - -Interval .1 - -HideMOUSE -PUT (588, 2), Buttons, PSET -ShowMOUSE - -Interval .1 - -SYSTEM - -END SUB - -SUB CheckTOTAL -SHARED Deck1, Deck2, Deck3, Deck4 - -IF Vegas = 0 THEN -IF Deck1 = 0 THEN -IF Deck2 = 0 THEN -IF Deck3 = 0 THEN -HideMOUSE -IF Deck4 > 0 THEN -Deck1 = Deck4 -PUT (5, 43), CardBACK, PSET -END IF -IF Deck4 > 8 THEN -Deck1 = 8 -Deck2 = Deck4 - 8 -PUT (83, 43), CardBACK, PSET -END IF -IF Deck4 > 16 THEN -Deck1 = 8 -Deck2 = 8 -Deck3 = Deck4 - 16 -PUT (161, 43), CardBACK, PSET -END IF -LINE (239, 43)-(313, 152), 11, BF -ShowMOUSE -FOR n = 1 TO Deck3 -Decks(3, n).Value = TurnUPs(Deck4).Value -Decks(3, n).Suit = TurnUPs(Deck4).Suit -Deck4 = Deck4 - 1 -NEXT n -FOR n = 1 TO Deck2 -Decks(2, n).Value = TurnUPs(Deck4).Value -Decks(2, n).Suit = TurnUPs(Deck4).Suit -Deck4 = Deck4 - 1 -NEXT n -FOR n = 1 TO Deck1 -Decks(1, n).Value = TurnUPs(Deck4).Value -Decks(1, n).Suit = TurnUPs(Deck4).Suit -Deck4 = Deck4 - 1 -NEXT n -Deck4 = 0 -END IF -END IF -END IF -END IF - -END SUB - -SUB ClearMOUSE -SHARED LB - -WHILE LB -MouseSTATUS LB, RB, MouseX, MouseY -WEND - -END SUB - -SUB DrawSCREEN (Mode) - -HideMOUSE -IF Mode = 1 THEN -LINE (0, 0)-(639, 17), 1, BF -LINE (0, 18)-(639, 37), 14, BF -LINE (0, 38)-(639, 38), 0 -PUT (588, 2), Buttons, PSET -PUT (20, 0), Title, PSET -PUT (20, 24), MenuGFX, PSET -PUT (73, 24), MenuGFX(100), PSET -PUT (532, 24), MenuGFX(400), PSET -END IF - -LINE (0, 39)-(639, 479), 11, BF -LINE (0, 155)-(639, 155), 2 -LINE (318, 39)-(318, 155), 2 -LINE (321, 39)-(321, 154), 6 -LINE (319, 155)-(320, 155), 11 -PSET (321, 155), 8 - -Index = 1 -FOR x = 326 TO 568 STEP 78 -LINE (x, 43)-(x + 74, 151), 2, B -LINE (x, 43)-(x + 74, 43), 6 -LINE (x, 43)-(x, 151), 6 -LINE (x + 18, 73)-(x + 56, 121), 2, B -LINE (x + 18, 73)-(x + 56, 73), 6 -LINE (x + 18, 73)-(x + 18, 121), 6 -PUT (x + 25, 85), Suits(Index), PSET -Index = Index + 200 -NEXT x - -IF Vegas THEN SetSCORE -ShowMOUSE - -END SUB - -SUB Finito -IF Completed THEN EXIT SUB -IF Stacks(1).Value = 13 THEN -IF Stacks(2).Value = 13 THEN -IF Stacks(3).Value = 13 THEN -IF Stacks(4).Value = 13 THEN -HideMOUSE -PLAY "MBMST120O1L16ceg>ceg>ceg>L32cg" -PLAY "MBMST120O4L32cgcgcgcg" -FOR Reps = 1 TO 400 -x = FIX(RND * 560) -y = FIX(RND * 370) -CardNUM = FIX(RND * 52) + 1 -PutCARD x, y, CardNUM -NEXT Reps -ShowMOUSE -DrawSCREEN 1 -PLAY "MBO1L16CEGC" -x = 30 -FOR CardNUM = 1 TO 52 -PutCARD x, 185, CardNUM -x = x + 10 -NEXT CardNUM -COLOR 3 -LINE (180, 230)-(470, 265), 0, BF -LINE (185, 235)-(465, 260), 4, B -LOCATE 16, 27: PRINT "C O N G R A T U L A T I O N S !" -Interval 2 -DrawSCREEN 1 -Completed = 1 -END IF -END IF -END IF -END IF - -END SUB - -SUB HideMOUSE - -LB = 2 -MouseDRIVER LB, 0, 0, 0 - -END SUB - -FUNCTION InitMOUSE - -LB = 0 -MouseDRIVER LB, 0, 0, 0 -InitMOUSE = LB - -END FUNCTION - -SUB InitVALS -SHARED Menu - -FOR n = 1 TO 52 -Deck(n) = n -NEXT n - -FOR Col = 1 TO 7 -FOR Row = 1 TO 18 -MainPLAY(Col, Row).x = (Col - 1) * 88 + 18 -MainPLAY(Col, Row).y = (Row - 1) * 18 + 158 -NEXT Row -NEXT Col - -FOR Col = 1 TO 7 -MainPLAY(Col, 0).x = (Col - 1) * 88 + 18 -MainPLAY(Col, 0).y = 140 -NEXT Col - -END SUB - -DEFSNG A-Z -SUB Interval (Length!) - -OldTimer# = TIMER -DO: LOOP UNTIL TIMER > OldTimer# + Length! - -END SUB - -DEFINT A-Z -SUB MouseDRIVER (LB, RB, mX, mY) - -DEF SEG = VARSEG(MouseDATA$) -Mouse = SADD(MouseDATA$) -CALL ABSOLUTE(LB, RB, mX, mY, Mouse) - -END SUB - -SUB MouseSTATUS (LB, RB, MouseX, MouseY) - -LB = 3 -MouseDRIVER LB, RB, mX, mY -LB = ((RB AND 1) <> 0) -RB = ((RB AND 2) <> 0) -MouseX = mX -MouseY = mY - -END SUB - -SUB Navigate -END SUB - -SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY) -SHARED Key$ - -DO -Key$ = UCASE$(INKEY$) -MouseSTATUS LB, RB, MouseX, MouseY -LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> "" - -END SUB - -SUB PlayGAME -SHARED LB, RB, MouseX, MouseY -SHARED Deck1, Deck2, Deck3, Deck4, CardSELECT -SHARED FCcol, FCrow, FCx, FCy, FCsuit, FCvalue, LastDECK - -BackERASE(2) = 127: CardBACK(2) = 109: Selected(2) = 109 - -SELECT CASE MouseY -CASE 43 TO 151 -SELECT CASE MouseX -CASE 7 TO 81 'first deck -IF LB THEN -IF CardSELECT THEN GOSUB ZeroTURNUPS -IF Deck1 > 0 THEN -CardNUM = (Decks(1, Deck1).Suit - 1) * 13 + Decks(1, Deck1).Value -HideMOUSE -PutCARD 239, 43, CardNUM -ShowMOUSE -Deck4 = Deck4 + 1 -TurnUPs(Deck4).Suit = Decks(1, Deck1).Suit -TurnUPs(Deck4).Value = Decks(1, Deck1).Value -Decks(1, Deck1).Suit = 0 -Decks(1, Deck1).Value = 0 -Deck1 = Deck1 - 1 -LastDECK = 1 -IF Deck1 = 0 THEN -HideMOUSE -LINE (5, 43)-(79, 152), 11, BF -IF Vegas = 0 THEN -LINE (24, 73)-(62, 121), 2, B -LINE (26, 75)-(60, 119), 2, BF -END IF -ShowMOUSE -END IF -ELSE -CheckTOTAL -END IF -ClearMOUSE -END IF -CASE 85 TO 159 'second deck -IF LB THEN -IF CardSELECT THEN GOSUB ZeroTURNUPS -IF Deck2 > 0 THEN -CardNUM = (Decks(2, Deck2).Suit - 1) * 13 + Decks(2, Deck2).Value -HideMOUSE -PutCARD 239, 43, CardNUM -ShowMOUSE -Deck4 = Deck4 + 1 -TurnUPs(Deck4).Suit = Decks(2, Deck2).Suit -TurnUPs(Deck4).Value = Decks(2, Deck2).Value -Decks(2, Deck2).Suit = 0 -Decks(2, Deck2).Value = 0 -Deck2 = Deck2 - 1 -LastDECK = 2 -IF Deck2 = 0 THEN -HideMOUSE -LINE (83, 43)-(157, 152), 11, BF -IF Vegas = 0 THEN -LINE (102, 73)-(140, 121), 2, B -LINE (104, 75)-(138, 119), 2, BF -END IF -ShowMOUSE -END IF -ELSE -CheckTOTAL -END IF -ClearMOUSE -END IF -CASE 163 TO 237 'third deck -IF LB THEN -IF CardSELECT THEN GOSUB ZeroTURNUPS -IF Deck3 > 0 THEN -CardNUM = (Decks(3, Deck3).Suit - 1) * 13 + Decks(3, Deck3).Value -HideMOUSE -PutCARD 239, 43, CardNUM -ShowMOUSE -Deck4 = Deck4 + 1 -TurnUPs(Deck4).Suit = Decks(3, Deck3).Suit -TurnUPs(Deck4).Value = Decks(3, Deck3).Value -Decks(3, Deck3).Suit = 0 -Decks(3, Deck3).Value = 0 -Deck3 = Deck3 - 1 -LastDECK = 3 -IF Deck3 = 0 THEN -HideMOUSE -LINE (161, 43)-(235, 152), 11, BF -IF Vegas = 0 THEN -LINE (180, 73)-(218, 121), 2, B -LINE (182, 75)-(216, 119), 2, BF -END IF -ShowMOUSE -END IF -ELSE -CheckTOTAL -END IF -ClearMOUSE -END IF -CASE 241 TO 319 'turn-up deck -IF Deck4 > 0 THEN -IF LB THEN -IF CardSELECT = 0 THEN -TSuit = TurnUPs(Deck4).Suit -TValue = TurnUPs(Deck4).Value -CardNUM = (TSuit - 1) * 13 + TValue -IF (CardNUM = MoneyCARD) AND Money THEN -HideMOUSE -PutCARD 239, 43, CardNUM -PLAY "MBT140O6L64GP32GP32GP32GP32GP32GP32GP32G" -Score = Score + 52 + Tally: SetSCORE -Tally = Tally + 5 -MoneyCARD = 0 -GOSUB ZeroVALS -ShowMOUSE -EXIT SUB -END IF -HideMOUSE -PUT (239, 43), Selected -ShowMOUSE -CardSELECT = 2 -ELSE -HideMOUSE -IF CardSELECT = 2 THEN -TSuit = TurnUPs(Deck4).Suit -TValue = TurnUPs(Deck4).Value -CardNUM = (TSuit - 1) * 13 + TValue -IF (CardNUM = MoneyCARD) AND Money THEN -PutCARD 239, 43, CardNUM -PLAY "MBT140O6L64GP32GP32GP32GP32GP32GP32GP32G" -MoneyCARD = 0 -GOSUB ZeroVALS -ShowMOUSE -EXIT SUB -END IF -IF Stacks(TSuit).Value = TValue - 1 THEN -IF TurnUPs(Deck4 - 1).Value <> 0 THEN -CardNUM = (TurnUPs(Deck4 - 1).Suit - 1) * 13 + TurnUPs(Deck4 - 1).Value -PutCARD 239, 43, CardNUM -ELSE -LINE (239, 43)-(313, 152), 11, BF -END IF -CardNUM = (TSuit - 1) * 13 + TValue -PutCARD ((TSuit - 1) * 78 + 325), 43, CardNUM -Score = Score + 5: Tally = Tally + 5 -IF Vegas THEN SetSCORE -ShowMOUSE -Stacks(TSuit).Value = Stacks(TSuit).Value + 1 -TurnUPs(Deck4).Suit = 0 -TurnUPs(Deck4).Value = 0 -Deck4 = Deck4 - 1 -GOSUB ZeroVALS -ELSE -PUT (239, 43), Selected -GOSUB ZeroVALS -END IF -ELSE -PUT (FCx, FCy), Selected -GOSUB ZeroVALS -END IF -ShowMOUSE -END IF -ClearMOUSE -END IF -END IF -END SELECT -CASE IS > 159 'columns y -SELECT CASE MouseX -CASE 18 TO 92 'column 1 -IF LB THEN -Column = 1 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -CASE 106 TO 180 'column 2 -IF LB THEN -Column = 2 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -CASE 194 TO 268 'column 3 -IF LB THEN -Column = 3 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -CASE 282 TO 356 'column 4 -IF LB THEN -Column = 4 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -CASE 370 TO 444 'column 5 -IF LB THEN -Column = 5 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -CASE 458 TO 532 'column 6 -IF LB THEN -Column = 6 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -CASE 546 TO 620 'column 7 -IF LB THEN -Column = 7 -IF CardSELECT = 0 THEN -GOSUB SELECT1 -ELSE -GOSUB SELECT2 -END IF -END IF -END SELECT -END SELECT -ClearMOUSE -EXIT SUB - -'*************************** FIRST SELECTION SUBROUTINE ********************** -SELECT1: -LastDECK = 0 -FCcol = Column -FOR FCrow = 18 TO 1 STEP -1 -IF MainPLAY(FCcol, FCrow).Value <> 0 THEN -IF MainPLAY(FCcol, FCrow).UpDOWN = 0 THEN -cn = (MainPLAY(FCcol, FCrow).Suit - 1) * 13 + MainPLAY(FCcol, FCrow).Value -CardNUM = cn -FCx = MainPLAY(FCcol, FCrow).x -FCy = MainPLAY(FCcol, FCrow).y -HideMOUSE -PutCARD FCx, FCy, CardNUM -ShowMOUSE -MainPLAY(FCcol, FCrow).UpDOWN = 1 -GOSUB ZeroVALS -ClearMOUSE -RETURN -ELSE -FCsuit = MainPLAY(FCcol, FCrow).Suit -FCvalue = MainPLAY(FCcol, FCrow).Value -FCx = MainPLAY(FCcol, FCrow).x -FCy = MainPLAY(FCcol, FCrow).y -IF FCy + 108 < 479 THEN Selected(2) = 109 ELSE Selected(2) = 480 - FCy -HideMOUSE -PUT (FCx, FCy), Selected -ShowMOUSE -CardSELECT = 1 -ClearMOUSE -RETURN -END IF -END IF -NEXT FCrow -RETURN - -'************************* SECOND SELECTION SUBROUTINE *********************** - -SELECT2: -LastDECK = 0 -SCcol = Column -IF CardSELECT = 1 THEN -HideMOUSE -IF FCcol = SCcol OR FCvalue = 1 THEN -IF Stacks(FCsuit).Value = FCvalue - 1 THEN -GOSUB LiftCARD -CardNUM = (FCsuit - 1) * 13 + FCvalue -PutCARD ((FCsuit - 1) * 78 + 325), 43, CardNUM -Stacks(FCsuit).Value = Stacks(FCsuit).Value + 1 -MainPLAY(FCcol, FCrow).Value = 0 -MainPLAY(FCcol, FCrow).Suit = 0 -GOSUB ZeroVALS -Score = Score + 5: Tally = Tally + 5 -IF Vegas THEN SetSCORE -ShowMOUSE -ClearMOUSE -RETURN -ELSE -IF FCy + 108 < 479 THEN Selected(2) = 109 ELSE Selected(2) = 480 - FCy -PUT (FCx, FCy), Selected -GOSUB ZeroVALS -ShowMOUSE -ClearMOUSE -RETURN -END IF -ELSE -FOR SCrow = 18 TO 1 STEP -1 -IF MainPLAY(SCcol, SCrow).Value <> 0 THEN EXIT FOR -NEXT SCrow - -IF SCrow = 0 THEN -IF FCvalue = 13 THEN -GOSUB LiftCARD -CardNUM = (MainPLAY(FCcol, FCrow).Suit - 1) * 13 + 13 -PutCARD MainPLAY(SCcol, 1).x, MainPLAY(SCcol, 1).y, CardNUM -ShowMOUSE -MainPLAY(SCcol, 1).Suit = FCsuit -MainPLAY(SCcol, 1).Value = 13 -MainPLAY(FCcol, FCrow).Suit = 0 -MainPLAY(FCcol, FCrow).Value = 0 -GOSUB ZeroVALS -ClearMOUSE -RETURN -ELSE -FOR Reduce = FCrow TO 0 STEP -1 -IF MainPLAY(FCcol, Reduce).UpDOWN = 1 THEN -IF MainPLAY(FCcol, Reduce).Value = 13 THEN -SCrow = 0 -MatchCARD = Reduce -GOTO TrickHANDLER -END IF -END IF -NEXT Reduce - -IF FCy + 108 > 479 THEN Selected(2) = 480 - FCx ELSE Selected(2) = 109 -PUT (FCx, FCy), Selected -ShowMOUSE -GOSUB ZeroVALS -ClearMOUSE -RETURN -END IF -END IF - - -FOR MatchCARD = FCrow TO 0 STEP -1 -IF MainPLAY(FCcol, MatchCARD).UpDOWN = 1 THEN -FCsuit = MainPLAY(FCcol, MatchCARD).Suit -FCvalue = MainPLAY(FCcol, MatchCARD).Value - -IF FCvalue + 1 = MainPLAY(SCcol, SCrow).Value OR FCrow = 0 THEN -IF MainPLAY(SCcol, SCrow).Suit MOD 2 <> FCsuit MOD 2 THEN -IF MatchCARD < FCrow THEN -ERASE Trick -TrickHANDLER: -FOR Row = FCrow - 1 TO MatchCARD - 1 STEP -1 -Ex = MainPLAY(FCcol, Row).x -Ey = MainPLAY(FCcol, Row).y -IF MainPLAY(FCcol, Row).UpDOWN = 1 THEN -EraseNUM = (MainPLAY(FCcol, Row).Suit - 1) * 13 + MainPLAY(FCcol, Row).Value -PutCARD Ex, Ey, EraseNUM -LINE (Ex, Ey + 109)-(Ex + 74, Ey + 127), 11, BF -ELSE -IF MainPLAY(FCcol, Row).Value = 0 THEN -LINE ((FCcol - 1) * 88 + 18, 158)-((FCcol - 1) * 88 + 92, 284), 11, BF -ELSE -IF Ey + 109 > 479 THEN -BackERASE(2) = 480 - Ey -ELSE -BackERASE(2) = 127 -END IF -IF POINT(Ex + 1, Ey - 1) = 15 THEN OnTOP = 1 -PUT (Ex, Ey), BackERASE, PSET -IF OnTOP THEN PUT (Ex, Ey), TopOFF, PSET -END IF -END IF -Count = Count + 1 -Trick(Count).Suit = MainPLAY(FCcol, Row + 1).Suit -Trick(Count).Value = MainPLAY(FCcol, Row + 1).Value -MainPLAY(FCcol, Row + 1).Suit = 0 -MainPLAY(FCcol, Row + 1).Value = 0 -NEXT Row -x = MainPLAY(SCcol, SCrow).x -y = MainPLAY(SCcol, SCrow).y -FOR Cards = FCrow - MatchCARD + 1 TO 1 STEP -1 -CardNUM = (Trick(Cards).Suit - 1) * 13 + Trick(Cards).Value -Slot = Slot + 1 -MainPLAY(SCcol, SCrow + Slot).Suit = Trick(Cards).Suit -MainPLAY(SCcol, SCrow + Slot).Value = Trick(Cards).Value -MainPLAY(SCcol, SCrow + Slot).UpDOWN = 1 -y = y + 18 -PutCARD x, y, CardNUM -NEXT Cards -ShowMOUSE -ClearMOUSE -GOSUB ZeroVALS -RETURN -ELSE -GOSUB LiftCARD -CardNUM = (FCsuit - 1) * 13 + FCvalue - -NCx = MainPLAY(SCcol, SCrow).x -NCy = MainPLAY(SCcol, SCrow + 1).y - -PutCARD NCx, NCy, CardNUM - -ShowMOUSE -ClearMOUSE - -MainPLAY(SCcol, SCrow + 1).Suit = FCsuit -MainPLAY(SCcol, SCrow + 1).Value = FCvalue -MainPLAY(SCcol, SCrow + 1).UpDOWN = 1 - -MainPLAY(FCcol, FCrow).Suit = 0 -MainPLAY(FCcol, FCrow).Value = 0 -GOSUB ZeroVALS -RETURN -END IF -END IF -END IF -END IF -NEXT MatchCARD -IF FCy + 108 > 479 THEN Selected(2) = 480 - FCx ELSE Selected(2) = 109 -PUT (FCx, FCy), Selected -GOSUB ZeroVALS -ShowMOUSE -ClearMOUSE -RETURN -END IF - -ELSE 'CardSELECT = 2 - -FOR SCrow = 18 TO 1 STEP -1 -IF MainPLAY(SCcol, SCrow).Value <> 0 THEN EXIT FOR -NEXT SCrow - -IF SCrow = 0 THEN -HideMOUSE -IF TurnUPs(Deck4).Value = 13 THEN -IF Deck4 > 1 THEN -CardNUM = (TurnUPs(Deck4 - 1).Suit - 1) * 13 + TurnUPs(Deck4 - 1).Value -PutCARD 239, 43, CardNUM -ELSE -LINE (239, 43)-(313, 153), 11, BF -END IF -CardNUM = (TurnUPs(Deck4).Suit - 1) * 13 + 13 -PutCARD MainPLAY(SCcol, 1).x, 158, CardNUM -ShowMOUSE -MainPLAY(SCcol, 1).Suit = TurnUPs(Deck4).Suit -MainPLAY(SCcol, 1).Value = TurnUPs(Deck4).Value -TurnUPs(Deck4).Suit = 0 -TurnUPs(Deck4).Value = 0 -Deck4 = Deck4 - 1 -GOSUB ZeroVALS -ClearMOUSE -RETURN -END IF -ShowMOUSE -END IF - -HideMOUSE -IF TurnUPs(Deck4).Suit MOD 2 <> MainPLAY(SCcol, SCrow).Suit MOD 2 THEN -IF TurnUPs(Deck4).Value + 1 = MainPLAY(SCcol, SCrow).Value THEN -PUT (239, 43), Selected -TopcardNUM = (TurnUPs(Deck4).Suit - 1) * 13 + TurnUPs(Deck4).Value -SCsuit = TurnUPs(Deck4).Suit -SCvalue = TurnUPs(Deck4).Value -TurnUPs(Deck4).Suit = 0 -TurnUPs(Deck4).Value = 0 -IF Deck4 > 0 THEN -Deck4 = Deck4 - 1 -IF Deck4 = 0 THEN -LINE (239, 43)-(313, 152), 11, BF -ELSE -CardNUM = (TurnUPs(Deck4).Suit - 1) * 13 + TurnUPs(Deck4).Value -PutCARD 239, 43, CardNUM -END IF -PutCARD MainPLAY(SCcol, SCrow).x, MainPLAY(SCcol, SCrow + 1).y, TopcardNUM -ShowMOUSE -MainPLAY(SCcol, SCrow + 1).Suit = SCsuit -MainPLAY(SCcol, SCrow + 1).Value = SCvalue -MainPLAY(SCcol, SCrow + 1).UpDOWN = 1 -GOSUB ZeroVALS -ClearMOUSE -RETURN -ELSE -LINE (239, 43)-(315, 152), 11, BF -ShowMOUSE -GOSUB ZeroVALS -ClearMOUSE -RETURN -END IF -ELSE -PUT (239, 43), Selected -GOSUB ZeroVALS -ShowMOUSE -ClearMOUSE -RETURN -END IF -ELSE -PUT (239, 43), Selected -GOSUB ZeroVALS -ShowMOUSE -ClearMOUSE -RETURN -END IF -END IF - -RETURN - -ZeroVALS: -FCcol = 0: FCrow = 0: FCx = 0: FCy = 0: FCsuit = 0: FCvalue = 0: Column = 0: CardSELECT = 0 -RETURN - -LiftCARD: -IF FCrow = 1 THEN -LINE ((FCcol - 1) * 88 + 18, 158)-((FCcol - 1) * 88 + 92, 266), 11, BF -ELSE -IF MainPLAY(FCcol, FCrow - 1).UpDOWN = 1 THEN -CardNUM = (MainPLAY(FCcol, FCrow - 1).Suit - 1) * 13 + MainPLAY(FCcol, FCrow - 1).Value -PutCARD FCx, FCy - 18, CardNUM -LINE (FCx, FCy + 91)-(FCx + 74, FCy + 109), 11, BF -ELSE -IF FCy + 109 < 479 THEN BackERASE(2) = 127 ELSE BackERASE(2) = 479 - FCy -IF POINT(FCx + 1, FCy - 19) = 15 THEN OnTOP = 1 -PUT (FCx, FCy - 18), BackERASE, PSET -IF OnTOP THEN PUT (FCx, FCy - 18), TopOFF, PSET -END IF -END IF -RETURN - -ZeroTURNUPS: -HideMOUSE -IF FCy + 108 > 479 THEN Selected(2) = 480 - FCx ELSE Selected(2) = 109 -IF CardSELECT = 1 THEN PUT (FCx, FCy), Selected -ShowMOUSE -GOSUB ZeroVALS -RETURN - -END SUB - -SUB PutCARD (x, y, CardNUM) -SHARED HoldNUM, Dealt - -IF Money THEN -IF HoldNUM = CardNUM THEN Dealt = 1 -IF CardNUM = MoneyCARD AND Dealt = 0 THEN -HoldNUM = CardNUM -CardNUM = 55 -END IF -END IF - -FileNAME$ = "Sol3CD" + LTRIM$(RTRIM$(STR$(CardNUM))) + ".BSV" -DEF SEG = VARSEG(Card(1)) -BLOAD FileNAME$, VARPTR(Card(1)) -DEF SEG -IF POINT(x + 1, y - 1) = 15 THEN OnTOP = 1 'Check for underlying card... -IF y + 108 > 479 THEN Card(2) = 480 - y ELSE Card(2) = 109 -PUT (x, y), Card, PSET -IF OnTOP THEN PUT (x, y), TopOFF, PSET 'Place B/W card top if required - -END SUB - -SUB SetSCORE - -IF Score < 0 THEN -PrintSCORE& = Score - Score * 2 -Minus = 1 -ELSE -PrintSCORE& = Score -END IF -Scor$ = "$" + LTRIM$(RTRIM$(STR$(PrintSCORE&))) -LINE (564, 23)-(631, 34), 14, BF -x = 572 -IF Minus THEN LINE (566, 29)-(571, 29), 4 -FOR n = 1 TO LEN(Scor$) -Char$ = MID$(Scor$, n, 1) -IF Char$ = "$" THEN -Index = 500 -ELSE -Index = VAL(Char$) * 50 -END IF -IF Minus THEN Index = Index + 550 -PUT (x, 23), Numbers(Index), PSET -x = x + 7 -NEXT n -IF Minus THEN Index = 550: Colr = 4 ELSE Index = 0: Colr = 2 -LINE (x + 1, 31)-(x + 2, 32), Colr, B -PUT (x + 5, 23), Numbers(Index), PSET -PUT (x + 12, 23), Numbers(Index), PSET -END SUB - -SUB ShowMOUSE -LB = 1 -MouseDRIVER LB, 0, 0, 0 -END SUB - -SUB Sol3DEAL -SHARED Deck1, Deck2, Deck3, Deck4 -SHARED FCcol, FCrow, FCx, FCy, FCsuit, FCvalue, CardSELECT -SHARED HoldNUM, Dealt - -DrawSCREEN 2 -ERASE Stacks: Completed = 0 -HoldNUM = 0: Dealt = 0 - -HideMOUSE -FOR x = 5 TO 161 STEP 78 -PUT (x, 43), CardBACK, PSET -NEXT x -ShowMOUSE - -FOR Col = 1 TO 7 -FOR Row = 1 TO 18 -MainPLAY(Col, Row).Suit = 0 -MainPLAY(Col, Row).Value = 0 -MainPLAY(Col, Row).UpDOWN = 0 -NEXT Row -NEXT Col - -'Shuffle cards -FOR n = 52 TO 2 STEP -1 -Card = INT(RND * n) + 1 -SWAP Deck(n), Deck(Card) -NEXT n - -MoneyNUM = FIX(RND * 24) + 29 -MoneyCARD = Deck(MoneyNUM) - -FOR Row = 1 TO 7 -FOR Col = Row TO 7 -PasteBOARD = PasteBOARD + 1 -DeckVALUE = Deck(PasteBOARD) -SELECT CASE DeckVALUE -CASE 1 TO 13 -MainPLAY(Col, Row).Suit = 1 -MainPLAY(Col, Row).Value = DeckVALUE -CASE 14 TO 26 -MainPLAY(Col, Row).Suit = 2 -MainPLAY(Col, Row).Value = DeckVALUE - 13 -CASE 27 TO 39 -MainPLAY(Col, Row).Suit = 3 -MainPLAY(Col, Row).Value = DeckVALUE - 26 -CASE 40 TO 52 -MainPLAY(Col, Row).Suit = 4 -MainPLAY(Col, Row).Value = DeckVALUE - 39 -END SELECT -Value = Deck(PasteBOARD) MOD 13 -IF Value = 0 THEN Value = 13 -MainPLAY(Col, Row).Value = Value -x = MainPLAY(Col, Row).x -y = MainPLAY(Col, Row).y -HideMOUSE -IF Row = Col THEN -MainPLAY(Col, Row).UpDOWN = 1 -PutCARD x, y, DeckVALUE -ELSE -MainPLAY(Row, Col).UpDOWN = 0 -IF POINT(x + 1, y - 1) = 15 THEN OnTOP = 1 ELSE OnTOP = 0 -PUT (x, y), CardBACK, PSET -IF OnTOP THEN PUT (x, y), TopOFF, PSET -END IF -ShowMOUSE -NEXT Col -NEXT Row - -FOR Col = 1 TO 3 -FOR Num = 1 TO 8 -PasteBOARD = PasteBOARD + 1 -DeckVALUE = Deck(PasteBOARD) -SELECT CASE DeckVALUE -CASE 1 TO 13 -Decks(Col, Num).Suit = 1 -Decks(Col, Num).Value = DeckVALUE -CASE 14 TO 26 -Decks(Col, Num).Suit = 2 -Decks(Col, Num).Value = DeckVALUE - 13 -CASE 27 TO 39 -Decks(Col, Num).Suit = 3 -Decks(Col, Num).Value = DeckVALUE - 26 -CASE 40 TO 52 -Decks(Col, Num).Suit = 4 -Decks(Col, Num).Value = DeckVALUE - 39 -END SELECT -NEXT Num -NEXT Col - -Deck1 = 8: Deck2 = 8: Deck3 = 8: Deck4 = 0: CardSELECT = 0 -FCcol = 0: FCrow = 0: FCx = 0: FCy = 0: FCsuit = 0: FCvalue = 0 - -Score = Score - 52: Tally = -52 -IF Vegas THEN SetSCORE ELSE Score = 0 - -END SUB - -SUB Sol3HELP (Item) -SHARED LB - -GET (194, 80)-(446, 203), GetBOX -SELECT CASE Item -CASE 1 'Introduction -FirstPAGE = 1: LastPAGE = 5 -CASE 2 'Basic Solitaire -FirstPAGE = 6: LastPAGE = 11 -CASE 3 'Game Options -FirstPAGE = 12: LastPAGE = 15 -CASE 4 'About Solitaire 3 -HideMOUSE -DEF SEG = VARSEG(OtherBOX(0)) -BLOAD "sol3hp16.bsv", VARPTR(OtherBOX(0)) -DEF SEG -PUT (194, 80), OtherBOX, PSET -ShowMOUSE -END SELECT -IF Item <> 4 THEN CurrentPAGE = FirstPAGE: GOSUB PutHELP - -DO -MouseSTATUS LB, RB, MouseX, MouseY -IF MouseY > 85 AND MouseY < 100 THEN -SELECT CASE MouseX -CASE 389 TO 403 'Left arrow button -IF LB = -1 THEN -IF CurrentPAGE > FirstPAGE THEN -CurrentPAGE = CurrentPAGE - 1 -GOSUB PutHELP -END IF -END IF -CASE 405 TO 419 'Right arrow button -IF LB = -1 THEN -IF CurrentPAGE < LastPAGE THEN -CurrentPAGE = CurrentPAGE + 1 -GOSUB PutHELP -END IF -END IF -CASE 423 TO 437 'Close button -IF LB = -1 THEN -GOSUB CloseHELP -EXIT DO -END IF -END SELECT -END IF -ClearMOUSE -PauseMOUSE LB, RB, MouseX, MouseY -LOOP - -EXIT SUB - -CloseHELP: -HideMOUSE -GET (423, 86)-(437, 99), Buttons(500) -PUT (423, 86), Buttons(400), PSET -ShowMOUSE -Interval .1 -HideMOUSE -PUT (423, 86), Buttons(500), PSET -PUT (194, 80), GetBOX, PSET -ShowMOUSE -ClearMOUSE -RETURN - -DoARROWS: -HideMOUSE -IF CurrentPAGE > FirstPAGE THEN -PAINT (396, 92), 15, 14 -ELSE -PAINT (396, 92), 1, 14 -END IF -IF CurrentPAGE < LastPAGE THEN -PAINT (411, 92), 15, 14 -ELSE -PAINT (411, 92), 1, 14 -END IF -ShowMOUSE -RETURN - -PutHELP: -DEF SEG = VARSEG(OtherBOX(0)) -FileNAME$ = "Sol3HP" + LTRIM$(RTRIM$(STR$(CurrentPAGE))) + ".BSV" -BLOAD FileNAME$, VARPTR(OtherBOX(0)) -DEF SEG -HideMOUSE -PUT (194, 80), OtherBOX, PSET -ShowMOUSE -GOSUB DoARROWS -RETURN - -END SUB - -SUB Sol3MENU (InOUT) -SHARED LB, RB, MouseX, MouseY, Menu, Deck1, Deck2, Deck3 -STATIC MenuX, MenuXX, Ix, Iy, Item, Count - -IF InOUT = 0 THEN GOSUB PutMENU: EXIT SUB - -'**************************** MENU OPEN SECTION **************************** - -SELECT CASE Menu -CASE 3 'Game menu open -IF MouseX < 10 OR MouseX > 110 THEN GOSUB CloseMENU: EXIT SUB -SELECT CASE MouseY -CASE IS < 20 -GOSUB CloseMENU -CASE 20 TO 37 -IF MouseX < 12 OR MouseX > 52 THEN GOSUB CloseMENU -CASE 42 TO 56 -IF Item <> 1 THEN -IF Item THEN GOSUB PutITEM -Ix = 16: Iy = 42 -GOSUB GetITEM -Item = 1 -END IF -IF LB THEN -GOSUB CloseMENU -Sol3DEAL -ClearMOUSE -END IF -CASE 57 TO 71 -IF Item <> 2 THEN -IF Item THEN GOSUB PutITEM -Ix = 16: Iy = 57 -GOSUB GetITEM -Item = 2 -END IF -IF LB THEN -GOSUB CloseMENU -Sol3UNDO -ClearMOUSE -END IF -CASE 72 TO 86 -IF Item <> 3 THEN -IF Item THEN GOSUB PutITEM -Ix = 16: Iy = 72 -GOSUB GetITEM -Item = 3 -END IF -IF LB THEN -GOSUB CloseMENU -DEF SEG = VARSEG(OtherBOX(0)) -BLOAD "sol3hp17.bsv", VARPTR(OtherBOX(0)) -DEF SEG -GET (194, 80)-(446, 203), GetBOX -PUT (194, 80), OtherBOX, PSET -IF Vegas = 1 THEN PUT (246, 137), Chek, PSET -IF Vegas = 0 THEN PUT (246, 155), Chek, PSET -IF Money = 1 THEN PUT (246, 173), Chek, PSET - -DO -MouseSTATUS LB, RB, MouseX, MouseY -SELECT CASE MouseY -CASE 86 TO 99 'close options menu -IF (MouseX > 422 AND MouseX < 438) AND LB THEN -HideMOUSE -GET (423, 86)-(437, 99), Buttons(500) -PUT (423, 86), Buttons(400), PSET -ShowMOUSE -Interval .1 -HideMOUSE -PUT (423, 86), Buttons(500), PSET -ShowMOUSE -ClearMOUSE -EXIT DO -END IF -CASE 136 TO 145 'select Vegas type scoring -IF (MouseX > 243 AND MouseX < 260) AND LB THEN -HideMOUSE -IF Vegas = 1 THEN -Vegas = 0: Score = 0 -PUT (246, 155), Chek, PSET -LINE (245, 137)-(258, 144), 15, BF -LINE (563, 18)-(639, 37), 14, BF -IF Money THEN -LINE (245, 173)-(258, 180), 15, BF -Money = 0 -END IF -ELSE -PUT (246, 137), Chek, PSET -LINE (245, 155)-(258, 162), 15, BF -Vegas = 1: Score = Tally -END IF -ShowMOUSE -ClearMOUSE -NewDEAL = 1 -END IF -CASE 154 TO 163 'select no scoring (continuous play) -IF (MouseX > 243 AND MouseX < 260) AND LB THEN -HideMOUSE -IF Vegas = 1 THEN -LINE (563, 18)-(639, 37), 14, BF -LINE (246, 137)-(258, 144), 15, BF -Vegas = 0: Score = 0 -PUT (246, 155), Chek, PSET -IF Money = 1 THEN -LINE (246, 173)-(258, 180), 15, BF -Money = 0 -END IF -ELSE -PUT (246, 137), Chek, PSET -LINE (245, 155)-(258, 162), 15, BF -Vegas = 1: Score = Tally -END IF -ShowMOUSE -ClearMOUSE -NewDEAL = 1 -END IF -CASE 172 TO 181 'money card -IF (MouseX > 243 AND MouseX < 260) AND LB THEN -HideMOUSE -IF Money = 1 THEN -LINE (245, 173)-(258, 180), 15, BF -Money = 0 -ELSE -PUT (246, 173), Chek, PSET -Money = 1 -IF Vegas = 0 THEN -PUT (246, 137), Chek, PSET -LINE (245, 155)-(258, 162), 15, BF -Vegas = 1: Score = Tally -END IF -END IF -ShowMOUSE -ClearMOUSE -NewDEAL = 1 -END IF -END SELECT -PauseMOUSE LB, RB, MouseX, MouseY -LOOP -OPEN "sol3opts.dat" FOR OUTPUT AS #1 -WRITE #1, Vegas, Money -CLOSE #1 -HideMOUSE -PUT (194, 80), GetBOX, PSET -ShowMOUSE -IF NewDEAL THEN -Score = 0 -HideMOUSE -Sol3DEAL -IF Vegas THEN SetSCORE -ShowMOUSE -ClearMOUSE -EXIT SUB -END IF -ClearMOUSE -END IF -CASE 92 TO 106 -IF Item <> 4 THEN -IF Item THEN GOSUB PutITEM -Ix = 16: Iy = 92 -GOSUB GetITEM -Item = 4 -END IF -IF LB THEN -GOSUB CloseMENU -SYSTEM -END IF -CASE IS > 106 -GOSUB CloseMENU -CASE ELSE -END SELECT -EXIT SUB -CASE 4 'Help menu open -IF MouseX < 63 OR MouseX > 163 THEN GOSUB CloseMENU: EXIT SUB -SELECT CASE MouseY -CASE IS < 20 -GOSUB CloseMENU -CASE 20 TO 37 -IF MouseX < 63 OR MouseX > 103 THEN GOSUB CloseMENU -CASE 42 TO 56 -IF Item <> 1 THEN -IF Item THEN GOSUB PutITEM -Ix = 66: Iy = 42 -GOSUB GetITEM -Item = 1 -END IF -IF LB THEN -GOSUB CloseMENU -Sol3HELP 1 -ClearMOUSE -END IF -CASE 57 TO 71 -IF Item <> 2 THEN -IF Item THEN GOSUB PutITEM -Ix = 66: Iy = 57 -GOSUB GetITEM -Item = 2 -END IF -IF LB THEN -GOSUB CloseMENU -Sol3HELP 2 -ClearMOUSE -END IF -CASE 72 TO 86 -IF Item <> 3 THEN -IF Item THEN GOSUB PutITEM -Ix = 66: Iy = 72 -GOSUB GetITEM -Item = 3 -END IF -IF LB THEN -GOSUB CloseMENU -Sol3HELP 3 -ClearMOUSE -END IF -CASE 92 TO 106 -IF Item <> 4 THEN -IF Item THEN GOSUB PutITEM -Ix = 66: Iy = 92 -GOSUB GetITEM -Item = 4 -END IF -IF LB THEN -GOSUB CloseMENU -Sol3HELP 4 -ClearMOUSE -END IF -CASE IS > 106 -GOSUB CloseMENU -CASE ELSE -END SELECT -EXIT SUB -END SELECT - -'*************************** MENU CLOSED SECTION **************************** - -SELECT CASE MouseX -CASE IS < 12 -IF Menu THEN GOSUB PutMENU -CASE 12 TO 52 -IF Menu <> 1 THEN '-------------------- Game selected -HideMOUSE -IF Menu THEN GOSUB PutMENU -MenuX = 12 -GOSUB GetMENU -LINE (12, 20)-(52, 36), 15, B -LINE (12, 36)-(52, 36), 0 -LINE (52, 20)-(52, 36), 0 -PUT (20, 24), MenuGFX(200), PSET -ShowMOUSE -Menu = 1 -END IF -IF Menu = 1 AND LB THEN '-------------- Game opens -HideMOUSE -LINE (12, 20)-(52, 36), 14, BF -LINE (12, 20)-(52, 36), 15, B -LINE (12, 20)-(12, 36), 0 -LINE (12, 20)-(52, 20), 0 -PUT (21, 24), MenuGFX, PSET -GET (12, 37)-(112, 110), GetBOX -MenuXX = 12 -DEF SEG = VARSEG(OtherBOX(0)) -BLOAD "sol3men2.bsv", VARPTR(OtherBOX(0)) -DEF SEG -PUT (12, 37), OtherBOX, PSET -Menu = 3 -ShowMOUSE -END IF -CASE 53 TO 62 -IF Menu THEN GOSUB PutMENU -CASE 63 TO 103 -IF Menu <> 2 THEN '------------------ Help selected -HideMOUSE -IF Menu THEN GOSUB PutMENU -MenuX = 63 -GOSUB GetMENU -LINE (63, 20)-(103, 36), 15, B -LINE (63, 36)-(103, 36), 0 -LINE (103, 20)-(103, 36), 0 -PUT (73, 24), MenuGFX(300), PSET -ShowMOUSE -Menu = 2 -END IF -IF Menu = 2 AND LB THEN '-------------- Help opens -HideMOUSE -LINE (63, 20)-(103, 36), 14, BF -LINE (63, 20)-(103, 36), 15, B -LINE (63, 20)-(63, 36), 0 -LINE (63, 20)-(103, 20), 0 -PUT (74, 24), MenuGFX(100), PSET -GET (63, 37)-(163, 110), GetBOX -DEF SEG = VARSEG(OtherBOX(0)) -BLOAD "sol3men3.bsv", VARPTR(OtherBOX(0)) -DEF SEG -PUT (63, 37), OtherBOX, PSET -MenuXX = 63: Menu = 4 -ShowMOUSE -END IF -END SELECT - -EXIT SUB - -GetITEM: -HideMOUSE -GET (Ix, Iy)-(Ix + 92, Iy + 15), ItemBOX -PUT (Ix, Iy), ItemBOX, PRESET -ShowMOUSE -RETURN - -PutITEM: -HideMOUSE -IF ItemBOX(1) THEN PUT (Ix, Iy), ItemBOX, PSET -ShowMOUSE -Item = 0 -RETURN - -GetMENU: -HideMOUSE -GET (MenuX, 20)-(MenuX + 40, 36), MenuBOX -ShowMOUSE -RETURN - -PutMENU: -HideMOUSE -PUT (MenuX, 20), MenuBOX, PSET -ShowMOUSE -Menu = 0 -RETURN - -CloseMENU: -HideMOUSE -PUT (MenuXX, 37), GetBOX, PSET -PUT (MenuX, 20), MenuBOX, PSET -ShowMOUSE -Menu = 0: Item = 0 -RETURN -'LINE (16, 42)-(108, 56), 4, B -'LINE (16, 57)-(108, 71), 4, B -'LINE (16, 72)-(108, 86), 4, B -'LINE (16, 92)-(108, 106), 4, B - -END SUB - -SUB Sol3UNDO -SHARED Deck1, Deck2, Deck3, Deck4, LastDECK - -HideMOUSE -IF Deck4 > 0 THEN -IF LastDECK THEN -LastSUIT = TurnUPs(Deck4).Suit -LastVALUE = TurnUPs(Deck4).Value -SELECT CASE LastDECK -CASE 1 -Deck1 = Deck1 + 1 -Decks(1, Deck1).Suit = LastSUIT -Decks(1, Deck1).Value = LastVALUE -PUT (5, 43), CardBACK, PSET -CASE 2 -Deck2 = Deck2 + 1 -Decks(2, Deck2).Suit = LastSUIT -Decks(2, Deck2).Value = LastVALUE -PUT (83, 43), CardBACK, PSET -CASE 3 -Deck3 = Deck3 + 1 -Decks(3, Deck3).Suit = LastSUIT -Decks(3, Deck3).Value = LastVALUE -PUT (161, 43), CardBACK, PSET -END SELECT -Deck4 = Deck4 - 1 -LastSUIT = TurnUPs(Deck4).Suit -LastVALUE = TurnUPs(Deck4).Value -IF Deck4 = 0 THEN -LINE (239, 43)-(313, 152), 11, BF -ELSE -CardNUM = (LastSUIT - 1) * 13 + LastVALUE -PutCARD 239, 43, CardNUM -END IF -END IF -END IF -LastDECK = 0 -ShowMOUSE - -END SUB diff --git a/qb64.1 b/qb64.1 new file mode 100644 index 000000000..a83bc828e --- /dev/null +++ b/qb64.1 @@ -0,0 +1,44 @@ +.TH qb64 "1" "November 2018" "QB64 IDE AND COMPILER" "User Commands" +.SH NAME +qb64 \- manual page for QB64 +.SH DESCRIPTION +QB64 COMPILER +.PP +USAGE: qb64 [switches] +.SS "OPTIONS:" +.TP + +Source file to load +.TP +\fB\-v\fR +Verbose mode (detailed warnings) +.TP +\fB\-c\fR +Compile instead of edit +.TP +\fB\-x\fR +Compile instead of edit and output the result to the +console +.TP +\fB\-p\fR +Purge all pre\-compiled content first +.TP +\fB\-z\fR +Generate C code without compiling to executable +.TP +\fB\-o\fR +Write output executable to +.TP +\fB\-e\fR +Enables OPTION _EXPLICIT, making variable declaration +mandatory (per\-compilation; doesn't affect the +source file or global settings) +.TP +\fB\-s[\fR:switch=true/false] +View/edit compiler settings +.TP +\fB\-l\fR: +Starts the IDE at the specified line number +.PP +.SH "INTERNET" +.B https://qb64.org/ diff --git a/qb64_start_osx.command b/qb64_start_osx.command deleted file mode 100755 index b8d5d6476..000000000 --- a/qb64_start_osx.command +++ /dev/null @@ -1,5 +0,0 @@ -cd "$(dirname "$0")" -./qb64 & -osascript -e 'tell application "Terminal" to close (every window whose name contains "qb64_start_osx.command")' & -osascript -e 'if (count the windows of application "Terminal") is 0 then tell application "Terminal" to quit' & -exit \ No newline at end of file diff --git a/setup_lnx.sh b/setup_lnx.sh index a41a3d979..04a69417f 100755 --- a/setup_lnx.sh +++ b/setup_lnx.sh @@ -1,10 +1,6 @@ #!/bin/bash #QB64 Installer -- Shell Script -- Matt Kilgore 2013 -#Version 4 -- April 4, 2013 -#Compiles: -# GL : .978 -# SDL: .954 - +#Version 5 -- January 2020 #This checks the currently installed packages for the one's QB64 needs #And runs the package manager to install them if that is the case @@ -17,18 +13,12 @@ pkg_install() { fi done if [ -n "$packages_to_install" ]; then - echo "Installing required packages. If Prompted to, please enter your password" + echo "Installing required packages. If prompted to, please enter your password." $installer_command $packages_to_install fi } -#Set this to 1 to make it download everything -DOWNLOAD= - - -#Set this to 1 to compile SDL instead (Only works if DOWNLOAD=1) -SDL= #Make sure we're not running as root @@ -38,36 +28,16 @@ if [ $EUID == "0" ]; then exit 1 fi -if [ "$DOWNLOAD" == "1" ]; then - #Various URL's for downloads - QB64_URL="http://www.qb64.net/qb64v0978-lnx.tar.gz" - QB64_SDL_URL="http://www.qb64.net/qb64v0954-lnx.tar.gz" - QB64_ICON_URL="http://www.qb64.net/qb64icon32.png" - - #Name for download QB64 - QB64_ZIP_NAME=qb64.tar.gz - #Will be downloaded to current directory - QB64_ICON_PATH="." - GET_WGET="wget" -else - GET_WGET= - #Path to Icon - #Relative Path to icon -- Don't include beginning or trailing '/' - QB64_ICON_PATH="internal/source" -fi +GET_WGET= +#Path to Icon +#Relative Path to icon -- Don't include beginning or trailing '/' +QB64_ICON_PATH="internal/source" #Name of the Icon picture QB64_ICON_NAME="qb64icon32.png" DISTRO= -if [ -f ./qb64 ] && [ "$DOWNLOAD" == "1" ]; then - echo "Removing old QB64 files in preperation for installing new version..." - rm ./qb64 - rm -fr ./internal - echo "Done. Installing QB64 now." -fi - lsb_command=`which lsb_release 2> /dev/null` if [ -z "$lsb_command" ]; then lsb_command=`which lsb_release 2> /dev/null` @@ -83,6 +53,7 @@ fi #Linux Mint = linuxmint #Ubuntu = ubuntu #Slackware = slackware +#VoidLinux = voidlinux #XUbuntu = ubuntu #Zorin = Zorin if [ -n "$lsb_command" ]; then @@ -102,99 +73,71 @@ fi #Find and install packages if [ "$DISTRO" == "arch" ]; then echo "ArchLinux detected." - if [ "$SDL" == "1" ]; then - pkg_list="gcc sdl sdl_image sdl_mixer sdl_net sdl_ttf $GET_WGET" - else - pkg_list="gcc $GET_WGET" - fi + pkg_list="gcc zlib xorg-xmessage $GET_WGET" installed_packages=`pacman -Q` installer_command="sudo pacman -S " pkg_install elif [ "$DISTRO" == "linuxmint" ] || [ "$DISTRO" == "ubuntu" ] || [ "$DISTRO" == "debian" ] || [ "$DISTRO" == "zorin" ]; then echo "Debian based distro detected." - if [ "$SDL" == "1" ]; then - pkg_list="g++ libsdl-image1.2-dev libsdl-mixer1.2-dev libsdl-net1.2-dev libsdl-ttf2.0-dev libsdl1.2-dev $GET_WGET" - else - pkg_list="g++ mesa-common-dev libglu1-mesa-dev libasound2-dev $GET_WGET" - fi + pkg_list="g++ x11-utils mesa-common-dev libglu1-mesa-dev libasound2-dev zlib1g-dev $GET_WGET" installed_packages=`dpkg -l` installer_command="sudo apt-get -y install " pkg_install elif [ "$DISTRO" == "fedora" ] || [ "$DISTRO" == "redhat" ] || [ "$DISTRO" == "centos" ]; then echo "Fedora/Redhat based distro detected." - if [ "$SDL" == "1" ]; then - pkg_list="gcc-c++ SDL-devel SDL_image-devel SDL_mixer-devel SDL_net-devel SDL_ttf-devel $GET_WGET" - else - pkg_list="gcc-c++ mesa-libGLU-devel alsa-lib-devel $GET_WGET" - fi + pkg_list="gcc-c++ xmessage mesa-libGLU-devel alsa-lib-devel zlib-devel $GET_WGET" installed_packages=`yum list installed` installer_command="sudo yum install " pkg_install +elif [ "$DISTRO" == "voidlinux" ]; then + echo "VoidLinux detected." + pkg_list="gcc xmessage glu-devel zlib-devel alsa-lib-devel $GET_WGET" + installed_packages=`xbps-query -l |grep -v libgcc` + installer_command="sudo xbps-install -Sy " + pkg_install + elif [ -z "$DISTRO" ]; then echo "Unable to detect distro, skipping package installation" echo "Please be aware that for QB64 to compile, you will need the following installed:" echo " OpenGL developement libraries" echo " ALSA development libraries" echo " GNU C++ Compiler (g++)" -fi - -if [ "$DOWNLOAD" == "1" ]; then - echo "Downloading QB64..." - if [ "$SDL" == "1" ]; then - wget $QB64_SDL_URL -O $QB64_ZIP_NAME - else - wget $QB64_URL -O $QB64_ZIP_NAME - fi - if [ ! -f $QB64_ICON_NAME ]; then - echo "Grabbing QB64 Icon..." - wget $QB64_ICON_URL - fi - echo "Uncompressing to directory..." - #strip-components=1 removes the leading ./qb64 directory from the archive - tar --strip-components=1 -zxvf $QB64_ZIP_NAME >/dev/null + echo " xmessage (x11-utils)" + echo " zlib" fi echo "Compiling and installing QB64..." -if [ "$SDL" == "1" ]; then - ### SDL Installation process - cp ./internal/source/* ./internal/temp/ - cd ./internal/c - g++ -c -w -Wall libqbx.cpp -o libqbx_lnx.o `sdl-config --cflags` - g++ -w libqbx_lnx.o qbx.cpp `sdl-config --cflags --libs` -lSDL_mixer -lSDL_ttf -lSDL_net -lSDL_image -lX11 -o ../../qb64 - cd ../.. -else +### Build process +find . -name "*.sh" -exec chmod +x {} \; +find internal/c/parts -type f -iname "*.a" -exec rm -f {} \; +find internal/c/parts -type f -iname "*.o" -exec rm -f {} \; +find internal/c/libqb -type f -iname "*.o" -exec rm -f {} \; +rm ./internal/temp/* - ### GL installation process - find . -name "*.sh" -exec chmod +x {} \; - find . -type f -iname "*.a" -exec rm -f {} \; - find . -type f -iname "*.o" -exec rm -f {} \; - rm ./internal/temp/* +echo "Building library 'LibQB'" +pushd internal/c/libqb/os/lnx >/dev/null +rm -f libqb_setup.o +./setup_build.sh +popd >/dev/null - echo "Building library 'LibQB'" - cd internal/c/libqb/os/lnx - rm -f libqb_setup.o - ./setup_build.sh - cd ../../../../.. +echo "Building library 'FreeType'" +pushd internal/c/parts/video/font/ttf/os/lnx >/dev/null +rm -f src.o +./setup_build.sh +popd >/dev/null - echo "Building library 'FreeType'" - cd internal/c/parts/video/font/ttf/os/lnx - rm -f src.o - ./setup_build.sh - cd ../../../../../../../.. +echo "Building library 'Core:FreeGLUT'" +pushd internal/c/parts/core/os/lnx >/dev/null +rm -f src.a +./setup_build.sh +popd >/dev/null - echo "Building library 'Core:FreeGLUT'" - cd internal/c/parts/core/os/lnx - rm -f src.a - ./setup_build.sh - cd ../../../../../.. - - echo "Building 'QB64'" - cp -r ./internal/source/* ./internal/temp/ - cd internal/c - g++ -no-pie -w qbx.cpp libqb/os/lnx/libqb_setup.o parts/video/font/ttf/os/lnx/src.o parts/core/os/lnx/src.a -lGL -lGLU -lX11 -lpthread -ldl -lrt -D FREEGLUT_STATIC -o ../../qb64 - cd ../.. -fi +echo "Building 'QB64'" +cp -r ./internal/source/* ./internal/temp/ +pushd internal/c >/dev/null +g++ -no-pie -w qbx.cpp libqb/os/lnx/libqb_setup.o parts/video/font/ttf/os/lnx/src.o parts/core/os/lnx/src.a -lGL -lGLU -lX11 -lpthread -ldl -lrt -D FREEGLUT_STATIC -o ../../qb64 +popd if [ -e "./qb64" ]; then echo "Done compiling!!" diff --git a/setup_osx.command b/setup_osx.command index f7b38d763..abd363d8f 100755 --- a/setup_osx.command +++ b/setup_osx.command @@ -10,20 +10,30 @@ echo "QB64 Setup" echo "" find . -name "*.command" -exec chmod +x {} \; + +pushd internal/c/libqb >/dev/null find . -type f -iname "*.a" -exec rm -f {} \; find . -type f -iname "*.o" -exec rm -f {} \; -rm /internal/temp/* +popd >/dev/null -if [ -z "$(which g++)" ]; then - echo "GNU C++ compiler not detected (g++)" - echo "Please install Apple Xcode and Apple Command Line Tools for Xcode" - echo "before launching QB64 setup." +pushd internal/c/parts >/dev/null +find . -type f -iname "*.a" -exec rm -f {} \; +find . -type f -iname "*.o" -exec rm -f {} \; +popd >/dev/null + +rm ./internal/temp/* + +if [ -z "$(which clang++)" ]; then + echo "Apple's C++ compiler not found." + echo "Attempting to install Apple's Command Line Tools for Xcode..." + echo "After installation is finished, run this setup script again." + xcode-select --install Pause exit 1 fi echo "Building library 'LibQB'" -cd internal/c/libqb/os/osx +pushd internal/c/libqb/os/osx >/dev/null rm -f libqb_setup.o ./setup_build.command if [ ! -f ./libqb_setup.o ]; then @@ -31,10 +41,10 @@ if [ ! -f ./libqb_setup.o ]; then Pause exit 1 fi -cd ../../../../.. +popd >/dev/null echo "Building library 'FreeType'" -cd internal/c/parts/video/font/ttf/os/osx +pushd internal/c/parts/video/font/ttf/os/osx >/dev/null rm -f src.o ./setup_build.command if [ ! -f ./src.o ]; then @@ -42,13 +52,13 @@ if [ ! -f ./src.o ]; then Pause exit 1 fi -cd ../../../../../../../.. +popd >/dev/null echo "Building 'QB64' (~3 min)" cp ./internal/source/* ./internal/temp/ -cd internal/c -g++ -w qbx.cpp libqb/os/osx/libqb_setup.o parts/video/font/ttf/os/osx/src.o -framework GLUT -framework OpenGL -framework Cocoa -o ../../qb64 -cd ../.. +pushd internal/c >/dev/null +clang++ -w qbx.cpp libqb/os/osx/libqb_setup.o parts/video/font/ttf/os/osx/src.o -framework GLUT -framework OpenGL -framework Cocoa -o ../../qb64 +popd >/dev/null echo "" if [ -f ./qb64 ]; then @@ -63,4 +73,3 @@ else Pause exit 1 fi - diff --git a/source/android/android_global.bas b/source/android/android_global.bas deleted file mode 100644 index be868d807..000000000 --- a/source/android/android_global.bas +++ /dev/null @@ -1,7 +0,0 @@ -REDIM SHARED installFiles(0) AS STRING -REDIM SHARED installFilesSourceLocation(0) AS STRING -REDIM SHARED installFilesIn(0) AS STRING - -REDIM SHARED installFolder(0) AS STRING -REDIM SHARED installFolderSourceLocation(0) AS STRING -REDIM SHARED installFolderIn(0) AS STRING diff --git a/source/android/android_methods.bas b/source/android/android_methods.bas deleted file mode 100644 index 5ff1571d0..000000000 --- a/source/android/android_methods.bas +++ /dev/null @@ -1,551 +0,0 @@ -SUB AryAddStr (Ary() AS STRING, value AS STRING) 'create new entry and return its index -IF LEN(Ary(0)) = 0 THEN Ary(0) = "0" -index = VAL(Ary(0)) + 1 -lastIndex = UBOUND(Ary) -IF index > lastIndex THEN - lastIndex = index * 2 - REDIM _PRESERVE Ary(lastIndex) AS STRING -END IF -Ary(0) = STR$(index) -Ary(index) = value -AryNewStr = index -END SUB - -FUNCTION AryLastStr (Ary() AS STRING) 'get last used index or 0 if none used -IF LEN(Ary(0)) = 0 THEN Ary(0) = "0" -AryLastStr = VAL(Ary(0)) -END FUNCTION - -SUB CreateAndroidProject_ReplaceInFile (thisFile$, find$, replaceWith$) -fh = FREEFILE -OPEN thisFile$ FOR BINARY AS #fh -a$ = SPACE$(LOF(fh)) -GET #fh, , a$ -starti=1 -DO WHILE INSTR(starti, a$, find$) > 0 - i = INSTR(starti, a$, find$) - a$ = LEFT$(a$, i - 1) + replaceWith$ + RIGHT$(a$, LEN(a$) - i - LEN(find$) + 1) - starti=i+len(replaceWith$) -LOOP -CLOSE #fh -KILL thisFile$ -OPEN thisFile$ FOR BINARY AS #fh -PUT #1, , a$ -CLOSE #fh -END SUB - -FUNCTION CreateAndroidProject_EscapeFileName$ (a$, method) -a2$ = "" -FOR i = 1 TO LEN(a$) - c$ = CHR$(ASC(a$, i)) - IF method <> 2 THEN - IF c$ = ":" THEN c$ = "\:" - END IF - IF c$ = "\" THEN c$ = "\\" - a2$ = a2$ + c$ -NEXT -CreateAndroidProject_EscapeFileName$ = a2$ -END FUNCTION - -FUNCTION CreateAndroidProject_FindFile$ (thisFile$) -fh = FREEFILE -OPEN "programs\android\template\located_files.txt" FOR BINARY AS #fh: CLOSE #fh -OPEN "programs\android\template\located_files.txt" FOR INPUT AS #fh -DO UNTIL EOF(fh) - LINE INPUT #fh, a2$ - IF RIGHT$(a2$, LEN(thisFile$)) = thisFile$ THEN - IF _FILEEXISTS(a2$) THEN 'verify file exists - CreateAndroidProject_FindFile$ = a2$ - CLOSE #fh - EXIT FUNCTION - END IF - END IF -LOOP -CLOSE #fh -SHELL _HIDE "cmd /c dir /s /b " + CHR$(34) + "c:\" + thisFile$ + CHR$(34) + " >internal\temp\files.txt" -OPEN "internal\temp\files.txt" FOR INPUT AS #fh -a$ = "" -IF NOT EOF(fh) THEN - LINE INPUT #fh, a$ -END IF -CLOSE #fh -IF a$ <> "" THEN - inLocatedFiles = 0 - OPEN "programs\android\template\located_files.txt" FOR INPUT AS #fh - DO UNTIL EOF(fh) - LINE INPUT #fh, a2$ - IF a2$ = a$ THEN - inLocatedFiles = 1 - END IF - LOOP - CLOSE #fh - IF inLocatedFiles = 0 THEN - OPEN "programs\android\template\located_files.txt" FOR APPEND AS #fh - PRINT #fh, a$ - CLOSE #fh - END IF -END IF -CreateAndroidProject_FindFile$ = a$ -END FUNCTION - - -FUNCTION CreateAndroidProject_GetNdkPath$ -CreateAndroidProject_Message "Locating NDK in filesystem (this could take a while the first time)" -thisFile$ = CreateAndroidProject_FindFile$("ndk-build") -IF thisFile$ <> "" THEN - CreateAndroidProject_Message "NDK located at '" + thisFile$ + "'" -END IF -IF thisFile$ = "" THEN - CreateAndroidProject_Message "NDK not found. Assuming 'c:\ndk\ndk-build'" - thisFile$ = "c:\ndk\ndk-build" 'use default path -END IF -FOR i = LEN(thisFile$) TO 1 STEP -1 - IF ASC(thisFile$, i) = 92 THEN - thisFile$ = LEFT$(thisFile$, i - 1) - EXIT FOR - END IF -NEXT -CreateAndroidProject_GetNdkPath$ = thisFile$ -END FUNCTION - -FUNCTION CreateAndroidProject_GetSdkPath$ -CreateAndroidProject_Message "Locating SDK in filesystem (this could take a while the first time)" -thisFile$ = CreateAndroidProject_FindFile$("AVD Manager.exe") -IF thisFile$ <> "" THEN - CreateAndroidProject_Message "SDK located at '" + thisFile$ + "'" -END IF -IF thisFile$ = "" THEN - CreateAndroidProject_Message "SDK not found. Assuming '%appdata%\..\local\android\sdk\AVD Manager.exe'" - thisFile$ = "%appdata%\..\local\android\sdk\AVD Manager.exe" 'use default path -END IF -FOR i = LEN(thisFile$) TO 1 STEP -1 - IF ASC(thisFile$, i) = 92 THEN - thisFile$ = LEFT$(thisFile$, i - 1) - EXIT FOR - END IF -NEXT -CreateAndroidProject_GetSdkPath$ = thisFile$ -END FUNCTION - -FUNCTION CreateAndroidProject_GetGradlePath$ -CreateAndroidProject_Message "Locating Gradle in filesystem (this could take a while the first time)" -thisFile$ = CreateAndroidProject_FindFile$("gradle.bat") -IF thisFile$ <> "" THEN - CreateAndroidProject_Message "Gradle located at '" + thisFile$ + "'" -END IF -IF thisFile$ = "" THEN - thisFile$ = "C:\Program Files\Android\Android Studio\gradle\gradle-2.2.1\bin\gradle.bat" - CreateAndroidProject_Message "Gradle not found. Assuming '+thisFile$+" '" -END IF -FOR i = LEN(thisFile$) TO 1 STEP -1 - IF ASC(thisFile$, i) = 92 THEN - thisFile$ = LEFT$(thisFile$, i - 1) - EXIT FOR - END IF -NEXT -CreateAndroidProject_GetGradlePath$ = thisFile$ -END FUNCTION - -SUB CreateAndroidProject_Message (message AS STRING) -statusWindowX=2 -statusWindowY=idewy - 3 -statusWindowHeight=3 -statusWindowWidth=idewx - 2 -'clear status window -for y=statusWindowY to statusWindowY+statusWindowHeight-1 -locate y,statusWindowX: PRINT SPACE$(statusWindowWidth); -next -for y=statusWindowY to statusWindowY+statusWindowHeight-1 -messageLength=len(message) -if messageLength>0 then -if messageLength>statusWindowWidth then messageLength=statusWindowWidth -locate y,statusWindowX: print left$(message,messageLength); -message=right$(message,len(message)-messageLength) -end if -next -PCOPY 3, 0 -END SUB - -SUB CreateAndroidProject_RestoreFile (file AS STRING, projectFolder AS STRING) -SHELL _HIDE "cmd /c copy programs\android\template\untitled\" + file + " " + projectFolder + "\" + file -END SUB - -FUNCTION CreateAndroidProject_PathReference$ (path AS STRING) -a$ = path -FOR i = 1 TO LEN(a$) - IF ASC(a$, i) = 92 THEN ASC(a$, i) = 47 -NEXT -CreateAndroidProject_PathReference$ = a$ -END FUNCTION - -SUB CreateAndroidProject_AddDir (code AS STRING, dir AS STRING) -'mkdir("subfolder",0770); -code = code + "mkdir(" + CHR$(34) + CreateAndroidProject_PathReference$(dir) + CHR$(34) + ",0770);" + CHR$(13) + CHR$(10) -END SUB - -SUB CreateAndroidProject_AddFile (code AS STRING, file AS STRING) -'android_get_file_asset(mgr, "subfolder/subfolderfile.txt"); -code = code + "android_get_file_asset(mgr," + CHR$(34) + CreateAndroidProject_PathReference$(file) + CHR$(34) + ");" + CHR$(13) + CHR$(10) -END SUB - - - -SUB CreateAndroidProject (projectName2 AS STRING) - -'sanitise project name -dim projectName as string -for projectNameI=1 to len(projectName2) - projectNameA$=LCASE$(mid$(projectName2,projectNameI,1)) - projectNameAsc=ASC(projectNameA$) - projectNameAValid=0 - if projectNameAsc>=97 and projectNameAsc<122 then projectNameAValid=1 - if len(projectName)>=1 then - if projectNameAsc>=48 and projectNameAsc<=57 then projectNameAValid=1 - end if - if projectNameAValid then projectName=projectName+projectNameA$ -next -if projectName="" then projectName="untitled" - -projectVersion$ = "QB64_ANDROID_1.5" - -DIM projectFolder AS STRING - -DIM cFolder AS STRING -cFolder = "internal\c" - -projectFolder = "programs\android\" + projectName - -versionFile$ = projectFolder + "\qb64_android_version.txt" - -sameVersion = 0 -newProject = 1 -IF _DIREXISTS(projectFolder) THEN - 'check version - IF _FILEEXISTS(versionFile$) THEN - fh = FREEFILE - OPEN versionFile$ FOR INPUT AS #fh - LINE INPUT #fh, a$ - IF a$ = projectVersion$ THEN sameVersion = 1: newProject = 0 - CLOSE #fh - END IF - IF sameVersion = 0 THEN - 'existing project incompatible, remove it - CreateAndroidProject_Message "Removing existing project" - SHELL _HIDE "cmd /c rmdir /s /q " + projectFolder - ELSE - CreateAndroidProject_Message "Updating existing project" - END IF -END IF - -IF newProject THEN - CreateAndroidProject_Message "Creating new project" - CreateAndroidProject_Message "Copying project template" - - IF _DIREXISTS(projectFolder) = 0 THEN MKDIR projectFolder - - SHELL _HIDE "cmd /c xcopy /e programs\android\template\untitled\*.* " + projectFolder - - 'copy c folder (without unnecessary files) - CreateAndroidProject_Message "Copying C folder" - fh = FREEFILE - OPEN "internal\temp\xcopy_exclude.txt" FOR OUTPUT AS #fh - PRINT #fh, "c_compiler\" - PRINT #fh, "os\" - PRINT #fh, "download\" - PRINT #fh, ".bat" - PRINT #fh, ".command" - PRINT #fh, ".sh" - PRINT #fh, ".o" - PRINT #fh, ".a" - PRINT #fh, ".lib" - PRINT #fh, ".txt" - PRINT #fh, ".bin" - CLOSE fh - SHELL _HIDE "cmd /c xcopy /e /EXCLUDE:internal\temp\xcopy_exclude.txt " + cFolder + "\*.* " + projectFolder + "\app\src\main\jni\c" - - 'set version - fh = FREEFILE - OPEN versionFile$ FOR OUTPUT AS #fh - PRINT #fh, projectVersion$ - CLOSE #fh -ELSE - CreateAndroidProject_Message "Cleaning project" - SHELL _HIDE "cmd /c del /q " + projectFolder + "\app\src\main\jni\temp\*.*" 'must be unindexed temp folder - - 'restore key files - CreateAndroidProject_Message "Restoring setting files" - CreateAndroidProject_RestoreFile "local.properties", projectFolder - CreateAndroidProject_RestoreFile "untitled.iml", projectFolder - CreateAndroidProject_RestoreFile ".idea\modules.xml", projectFolder - CreateAndroidProject_RestoreFile ".idea\name", projectFolder - CreateAndroidProject_RestoreFile "app\app.iml", projectFolder - CreateAndroidProject_RestoreFile "app\build.gradle", projectFolder - CreateAndroidProject_RestoreFile "add\src\main\AndroidManifest.xml", projectFolder - CreateAndroidProject_RestoreFile "app\src\main\res\values\strings.xml", projectFolder -END IF - -CreateAndroidProject_Message "Copying TEMP" + tempfolderindexstr2 + " (program source files) folder" -SHELL _HIDE "cmd /c copy internal\temp" + tempfolderindexstr2 + "\*.txt " + projectFolder + "\app\src\main\jni\temp" 'indexed to unindexed - -'remove unrequired files -delStr$ = "cmd /c del /q " + projectFolder + "\app\src\main\jni\temp\" -SHELL _HIDE delStr$ + "xcopy_exclude.txt" -SHELL _HIDE delStr$ + "root.txt" -SHELL _HIDE delStr$ + "paths.txt" -SHELL _HIDE delStr$ + "files.txt" - -'prepend fullscreen directive to main.txt -CreateAndroidProject_Message "Prepending _FULLSCREEN _SQUAREPIXELS directive" - -thisFile$ = projectFolder + "\app\src\main\jni\temp\main.txt" - -fh = FREEFILE -OPEN thisFile$ FOR BINARY AS #fh -a$ = SPACE$(LOF(fh)) -GET #fh, , a$ -CLOSE #fh -KILL thisFile$ -OPEN thisFile$ FOR BINARY AS #fh -a2$ = "sub__fullscreen( 3 ,0);" -PUT #1, , a2$ -PUT #1, , a$ -CLOSE #fh - -CreateAndroidProject_Message "Updating project references" - -fh = FREEFILE -OPEN projectFolder + "\local.properties" FOR OUTPUT AS #fh -PRINT #fh, "sdk.dir=" + CreateAndroidProject_EscapeFileName$(CreateAndroidProject_GetSdkPath$, 1) -PRINT #fh, "ndk.dir=" + CreateAndroidProject_EscapeFileName$(CreateAndroidProject_GetNdkPath$, 1) -CLOSE #fh - -IF _FILEEXISTS(projectFolder + "\" + projectName$ + ".iml") THEN KILL projectFolder + "\" + projectName$ + ".iml" -NAME projectFolder + "\untitled.iml" AS projectFolder + "\" + projectName$ + ".iml" - -CreateAndroidProject_ReplaceInFile projectFolder + "\.idea\modules.xml", "untitled", projectName$ -CreateAndroidProject_ReplaceInFile projectFolder + "\.idea\gradle.xml", "$QB64_GRADLE_HOME$", CreateAndroidProject_GetGradlePath$ -CreateAndroidProject_ReplaceInFile projectFolder + "\.idea\.name", "untitled", projectName$ -CreateAndroidProject_ReplaceInFile projectFolder + "\app\app.iml", "untitled", projectName$ -CreateAndroidProject_ReplaceInFile projectFolder + "\app\build.gradle", "untitled", projectName$ -CreateAndroidProject_ReplaceInFile projectFolder + "\app\build.gradle", "$QB64_NDK_BUILD_CMD_FILE$", CreateAndroidProject_EscapeFileName$(CreateAndroidProject_GetNdkPath$, 2) + "\\ndk-build.cmd" -CreateAndroidProject_ReplaceInFile projectFolder + "\app\src\main\AndroidManifest.xml", "untitled", projectName$ -CreateAndroidProject_ReplaceInFile projectFolder + "\app\src\main\res\values\strings.xml", "untitled", projectName$ - -'REDIM SHARED installFiles(0) AS STRING -'REDIM SHARED installFilesIn(0) AS STRING -'REDIM SHARED installFolder(0) AS STRING -'REDIM SHARED installFolderIn(0) AS STRING - -'IF idemode THEN basPath$ = idepath$ + pathsep$ ELSE basPath$ = getfilepath$(sourcefile$) - -'IF LEN(basPath$) > 0 THEN -' IF RIGHT$(basPath$, 1) = "/" OR RIGHT$(basPath$, 1) = "\" THEN basPath$ = LEFT$(basPath$, LEN(basPath$) - 1) -'END IF -'IF basPath$ = "" THEN basPath$ = "." - - -'to prevent misunderstanding files will first be moved to an isolation folder -'this isolation folder will be destroyed after work is completed - -'create empty assets folder -DO WHILE _DIREXISTS(projectFolder + "\app\src\main\assets") 'just by waiting this problem can sometimes be resolved automatically - CreateAndroidProject_Message "Waiting to clean open/locked folder '" + projectFolder + "\app\src\main\assets'..." - _LIMIT 10 - SHELL _HIDE "cmd /c rmdir /s /q " + projectFolder + "\app\src\main\assets" -LOOP -MKDIR projectFolder + "\app\src\main\assets" 'may fail if assets folder is open/locked and this folder MUST be empty before continuing - - -dirCode$ = "" -fileCode$ = "" - -CreateAndroidProject_Message "Adding $INSTALLFOLDER(s)" - -FOR f = 1 TO AryLastStr(installFolder()) - p$ = installFolder(f) - - - - 'IF idemode THEN basPath$ = idepath$ + pathsep$ ELSE basPath$ = getfilepath$(sourcefile$) - - - 'IF LEN(basPath$) > 0 THEN - ' IF RIGHT$(basPath$, 1) = "/" OR RIGHT$(basPath$, 1) = "\" THEN basPath$ = LEFT$(basPath$, LEN(basPath$) - 1) - 'END IF - 'IF basPath$ = "" THEN basPath$ = "." - - basPath$ = installFolderSourceLocation(f) - IF LEN(basPath$) > 0 THEN - IF RIGHT$(basPath$, 1) = "/" OR RIGHT$(basPath$, 1) = "\" THEN basPath$ = LEFT$(basPath$, LEN(basPath$) - 1) - END IF - IF basPath$ = "" THEN basPath$ = "." - - path$ = basPath$ - IF p$ <> "" THEN path$ = path$ + "\" + p$ - - 'purge temp_assets - IF _DIREXISTS(projectFolder + "\temp_assets") THEN SHELL _HIDE "cmd /c rmdir /s /q " + projectFolder + "\temp_assets" - MKDIR projectFolder + "\temp_assets" - 'copy to temp_assets - SHELL _HIDE "cmd /c xcopy /e " + CHR$(34) + path$ + CHR$(34) + " " + projectFolder + "\temp_assets" - - 'files are now isolated in a known folder which makes path stripping easier - - p$ = installFolderIn(f) - destPath$ = projectFolder$ + "\app\src\main\assets" - - 'build dest path (it may not exist) - tp$ = p$ - ii = 0 - DO WHILE INSTR(ii, tp$, "\") - i = INSTR(ii, tp$, "\") - IF i THEN - tp2$ = LEFT$(tp$, i - 1) - ii = i + 1 - d$ = destPath$ + "\" + tp2$ - IF _DIREXISTS(d$) = 0 THEN - MKDIR d$ - CreateAndroidProject_AddDir dirCode$, tp2$ - END IF - END IF - LOOP - tp2$ = tp$ - IF tp2$ <> "" THEN - d$ = destPath$ + "\" + tp2$ - IF _DIREXISTS(d$) = 0 THEN - MKDIR d$ - CreateAndroidProject_AddDir dirCode$, tp2$ - END IF - END IF - - IF p$ <> "" THEN destPath$ = destPath$ + "\" + p$ - - androidPath$ = p$ - IF LEN(androidPath$) <> 0 THEN androidPath$ = androidPath$ + "/" - - 'generate file listing - 'PRINT "cmd /c dir /s /b " + projectFolder + "\temp_assets\*.* >internal\temp\files.txt" - SHELL _HIDE "cmd /c dir /s /b " + projectFolder + "\temp_assets\*.* >internal\temp\files.txt" - OPEN "internal\temp\files.txt" FOR INPUT AS #fh - DO UNTIL EOF(fh) - LINE INPUT #fh, f$ - 'will include files and folders - i = INSTR(f$, "\temp_assets\") - lf$ = androidPath$ + RIGHT$(f$, LEN(f$) - i - 12) - IF _DIREXISTS(f$) THEN - 'it's a folder - '** add necessary code for building a folder ** - CreateAndroidProject_AddDir dirCode$, lf$ - ELSE - 'it's a file - '** add necessary code importing an asset file ** - CreateAndroidProject_AddFile fileCode$, lf$ - END IF - LOOP - CLOSE #fh - - 'copy to assets folder app\src\main\assets - SHELL _HIDE "cmd /c xcopy /e " + projectFolder + "\temp_assets " + CHR$(34) + destPath$ + CHR$(34) - -NEXT - - - - -CreateAndroidProject_Message "Adding $INSTALLFILES" - -FOR f = 1 TO AryLastStr(installFiles()) - - p$ = installFiles(f) - - basPath$ = installFilesSourceLocation(f) - IF LEN(basPath$) > 0 THEN - IF RIGHT$(basPath$, 1) = "/" OR RIGHT$(basPath$, 1) = "\" THEN basPath$ = LEFT$(basPath$, LEN(basPath$) - 1) - END IF - IF basPath$ = "" THEN basPath$ = "." - - path$ = basPath$ - IF p$ <> "" THEN path$ = path$ + "\" + p$ - - 'purge temp_assets - IF _DIREXISTS(projectFolder + "\temp_assets") THEN SHELL _HIDE "cmd /c rmdir /s /q " + projectFolder + "\temp_assets" - MKDIR projectFolder + "\temp_assets" - - 'copy to temp_assets - SHELL _HIDE "cmd /c copy " + CHR$(34) + path$ + CHR$(34) + " " + projectFolder + "\temp_assets" - - 'files are now isolated in a known folder which makes path stripping easier - - p$ = installFilesIn(f) - destPath$ = projectFolder$ + "\app\src\main\assets" - - 'build dest path (it may not exist) - tp$ = p$ - ii = 0 - DO WHILE INSTR(ii, tp$, "\") - i = INSTR(ii, tp$, "\") - IF i THEN - tp2$ = LEFT$(tp$, i - 1) - ii = i + 1 - d$ = destPath$ + "\" + tp2$ - IF _DIREXISTS(d$) = 0 THEN - MKDIR d$ - CreateAndroidProject_AddDir dirCode$, tp2$ - END IF - END IF - LOOP - tp2$ = tp$ - IF tp2$ <> "" THEN - d$ = destPath$ + "\" + tp2$ - IF _DIREXISTS(d$) = 0 THEN - MKDIR d$ - CreateAndroidProject_AddDir dirCode$, tp2$ - END IF - END IF - - IF p$ <> "" THEN destPath$ = destPath$ + "\" + p$ - - androidPath$ = p$ - IF LEN(androidPath$) <> 0 THEN androidPath$ = androidPath$ + "/" - - 'generate file listing - 'PRINT "cmd /c dir /s /b " + projectFolder + "\temp_assets\*.* >internal\temp\files.txt" - SHELL _HIDE "cmd /c dir /s /b " + projectFolder + "\temp_assets\*.* >internal\temp\files.txt" - OPEN "internal\temp\files.txt" FOR INPUT AS #fh - DO UNTIL EOF(fh) - LINE INPUT #fh, f$ - 'will include files and folders - i = INSTR(f$, "\temp_assets\") - lf$ = androidPath$ + RIGHT$(f$, LEN(f$) - i - 12) - IF _DIREXISTS(f$) THEN - 'it's a folder - 'must be ignored - ELSE - 'it's a file - '** add necessary code importing an asset file ** - CreateAndroidProject_AddFile fileCode$, lf$ - END IF - LOOP - CLOSE #fh - - 'copy to assets folder app\src\main\assets - SHELL _HIDE "cmd /c copy " + projectFolder + "\temp_assets\*.* " + CHR$(34) + destPath$ + CHR$(34) - -NEXT - -'purge temp_assets -IF _DIREXISTS(projectFolder + "\temp_assets") THEN SHELL _HIDE "cmd /c rmdir /s /q " + projectFolder + "\temp_assets" - -OPEN projectFolder + "\app\src\main\jni\temp\assets.txt" FOR OUTPUT AS #1 -PRINT #1, dirCode$ -PRINT #1, fileCode$ -CLOSE #1 - -'mkdir("subfolder",0770); -'android_get_file_asset(mgr, "subfolder/subfolderfile.txt"); - -CreateAndroidProject_Message "Android project generation complete" - -END SUB - - diff --git a/source/global/IDEsettings.bas b/source/global/IDEsettings.bas index 925246069..cecc27dfc 100644 --- a/source/global/IDEsettings.bas +++ b/source/global/IDEsettings.bas @@ -1,484 +1,525 @@ DIM SHARED IDECommentColor AS _UNSIGNED LONG, IDEMetaCommandColor AS _UNSIGNED LONG DIM SHARED IDEQuoteColor AS _UNSIGNED LONG, IDETextColor AS _UNSIGNED LONG -DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG +DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG, IDEChromaColor AS _UNSIGNED LONG DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER -DIM SHARED IDE_BypassAutoPosition AS _BYTE, idesortsubs AS _BYTE +DIM SHARED IDE_BypassAutoPosition AS _BYTE, idesortsubs AS _BYTE, IDESubsLength AS _BYTE DIM SHARED IDENormalCursorStart AS LONG, IDENormalCursorEnd AS LONG -DIM SHARED IDE_Index$ -DIM SHARED LoadedIDESettings AS INTEGER DIM SHARED MouseButtonSwapped AS _BYTE DIM SHARED PasteCursorAtEnd AS _BYTE DIM SHARED SaveExeWithSource AS _BYTE, EnableQuickNav AS _BYTE DIM SHARED IDEShowErrorsImmediately AS _BYTE DIM SHARED ShowLineNumbersSeparator AS _BYTE, ShowLineNumbersUseBG AS _BYTE +DIM SHARED IgnoreWarnings AS _BYTE, qb64versionprinted AS _BYTE +DIM SHARED DisableSyntaxHighlighter AS _BYTE, ExeToSourceFolderFirstTimeMsg AS _BYTE +DIM SHARED WhiteListQB64FirstTimeMsg AS _BYTE, ideautolayoutkwcapitals AS _BYTE +DIM SHARED WatchListToConsole AS _BYTE +DIM SHARED windowSettingsSection$, colorSettingsSection$, customDictionarySection$ +DIM SHARED mouseSettingsSection$, generalSettingsSection$, displaySettingsSection$ +DIM SHARED colorSchemesSection$, debugSettingsSection$, iniFolderIndex$, DebugInfoIniWarning$, ConfigFile$ +DIM SHARED idebaseTcpPort AS LONG, AutoAddDebugCommand AS _BYTE +DIM SHARED wikiBaseAddress$ -IF LoadedIDESettings = 0 THEN - 'We only want to load the file once when QB64 first starts - 'Other changes should occur to our settings when we change them in their appropiate routines. - 'There's no reason to open and close and open and close the same file a million times. +ConfigFile$ = "internal/config.ini" +iniFolderIndex$ = STR$(tempfolderindex) +DebugInfoIniWarning$ = " 'Do not change manually. Use 'qb64 -s', or Debug->Advanced in the IDE" - LoadedIDESettings = -1 +windowSettingsSection$ = "IDE WINDOW" + iniFolderIndex$ +colorSettingsSection$ = "IDE COLOR SETTINGS" + iniFolderIndex$ +colorSchemesSection$ = "IDE COLOR SCHEMES" +customDictionarySection$ = "CUSTOM DICTIONARIES" +mouseSettingsSection$ = "MOUSE SETTINGS" +generalSettingsSection$ = "GENERAL SETTINGS" +displaySettingsSection$ = "IDE DISPLAY SETTINGS" +debugSettingsSection$ = "DEBUG SETTINGS" - ConfigFile$ = "internal/config.txt" - ConfigBak$ = "internal/config.bak" +IniSetAddQuotes 0 +IniSetForceReload -1 +IniSetAllowBasicComments -1 +IniSetAutoCommit -1 - GOSUB CheckConfigFileExists 'make certain the config file exists and if not, create one - - IF INSTR(_OS$, "WIN") THEN - - result = ReadConfigSetting("AllowIndependentSettings", value$) - IF result THEN - IF value$ = "TRUE" OR ABS(VAL(value$)) = 1 THEN 'We default to false and only use one set of IDE settings, no matter how many windows we open up - IDE_Index$ = "(" + LTRIM$(RTRIM$(STR$(tempfolderindex))) + ")" - ConfigFile$ = "internal/config" + IDE_Index$ + ".txt" - ConfigBak$ = "internal/config" + IDE_Index$ + ".bak" - GOSUB CheckConfigFileExists - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE" - IDE_Index$ = "" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE" - IDE_Index$ = "" - END IF - - ELSE - 'Linux doesn't offer multiple temp folders and thus can not work properly with independent settings - 'This option is not included on Linux, and if manually inserted will simply be ignored. - IDE_Index$ = "" - END IF - - result = ReadConfigSetting("ConfigVersion", value$) 'Not really used for anything at this point, but might be important in the future. - ConfigFileVersion = VAL(value$) 'We'll get a config file version of 0 if there isn't any in the file - - result = ReadConfigSetting("CommentColor", value$) - IF result THEN - IDECommentColor = VRGBS(value$, _RGB32(85, 255, 255)) - ELSE - IDECommentColor = _RGB32(85, 255, 255) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)" - END IF - - result = ReadConfigSetting("CustomKeywords$", value$) - IF result THEN - tempList$ = "" - listOfCustomKeywords$ = "@" + UCASE$(value$) + "@" - FOR i = 1 TO LEN (listOfCustomKeywords$) - checkChar = ASC(listOfCustomKeywords$, i) - IF checkChar = 64 THEN - IF RIGHT$(tempList$, 1) <> "@" THEN tempList$ = tempList$ + "@" - ELSE - tempList$ = tempList$ + CHR$(checkChar) - END IF - NEXT - listOfCustomKeywords$ = tempList$ - customKeywordsLength = LEN(listOfCustomKeywords$) - ELSE - WriteConfigSetting "'[CUSTOM DICTIONARIES]", "CustomKeywordsSyntax$", "@custom@keywords@separated@by@the@at@sign@" - WriteConfigSetting "'[CUSTOM DICTIONARIES]", "CustomKeywords$", "@" - END IF - - result = ReadConfigSetting("MetaCommandColor", value$) - IF result THEN - IDEMetaCommandColor = VRGBS(value$, _RGB32(85, 255, 85)) - ELSE - IDEMetaCommandColor = _RGB32(85, 255, 85) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)" - END IF - - result = ReadConfigSetting("KeywordColor", value$) - IF result THEN - IDEKeywordColor = VRGBS(value$, _RGB32(147, 196, 235)) - ELSE - IDEKeywordColor = _RGB32(147, 196, 235) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "KeywordColor", "_RGB32(147,196,235)" - END IF - - result = ReadConfigSetting("HighlightColor", value$) - IF result THEN - IDEBracketHighlightColor = VRGBS(value$, _RGB32(0, 147, 177)) - ELSE - IDEBracketHighlightColor = _RGB32(0, 147, 177) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "HighlightColor", "_RGB32(0,147,177)" - END IF - - result = ReadConfigSetting("NumbersColor", value$) - IF result THEN - IDENumbersColor = VRGBS(value$, _RGB32(245, 128, 177)) - ELSE - IDENumbersColor = _RGB32(245, 128, 177) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "NumbersColor", "_RGB32(245,128,177)" - END IF - - result = ReadConfigSetting("QuoteColor", value$) - IF result THEN - IDEQuoteColor = VRGBS(value$, _RGB32(255, 255, 85)) - ELSE - IDEQuoteColor = _RGB32(255, 255, 85) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)" - END IF - - result = ReadConfigSetting("TextColor", value$) - IF result THEN - IDETextColor = VRGBS(value$, _RGB32(226, 226, 226)) - ELSE - IDETextColor = _RGB32(226, 226, 226) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(226,226,226)" - END IF - - result = ReadConfigSetting("BackgroundColor", value$) - IF result THEN - IDEBackGroundColor = VRGBS(value$, _RGB32(0, 0, 170)) - ELSE - IDEBackGroundColor = _RGB32(0, 0, 170) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)" - END IF - - result = ReadConfigSetting("BackgroundColor2", value$) - IF result THEN - IDEBackGroundColor2 = VRGBS(value$, _RGB32(0, 108, 177)) - ELSE - IDEBackGroundColor2 = _RGB32(0, 108, 177) - WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor2", "_RGB32(0,108,177)" - END IF - - result = ReadConfigSetting("SwapMouseButton", value$) - if value$ = "TRUE" or val(value$) = -1 then - MouseButtonSwapped = -1 - WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "TRUE" - else - MouseButtonSwapped = 0 - WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "FALSE" - end if - - result = ReadConfigSetting("PasteCursorAtEnd", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - PasteCursorAtEnd = -1 - ELSE - PasteCursorAtEnd = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "TRUE" - PasteCursorAtEnd = -1 - END IF - - result = ReadConfigSetting("SaveExeWithSource", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - SaveExeWithSource = -1 - ELSE - SaveExeWithSource = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "FALSE" - SaveExeWithSource = 0 - END IF - - result = ReadConfigSetting("EnableQuickNav", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - EnableQuickNav = -1 - ELSE - EnableQuickNav = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "EnableQuickNav", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "EnableQuickNav", "TRUE" - EnableQuickNav = -1 - END IF - - result = ReadConfigSetting("IDE_SortSUBs", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - idesortsubs = -1 - ELSE - idesortsubs = 0 - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE" - END IF - ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE" - idesortsubs = 0 - END IF - - result = ReadConfigSetting("ShowErrorsImmediately", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - IDEShowErrorsImmediately = -1 - ELSE - IDEShowErrorsImmediately = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowErrorsImmediately", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowErrorsImmediately", "TRUE" - IDEShowErrorsImmediately = -1 - END IF - - result = ReadConfigSetting("ShowLineNumbers", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - ShowLineNumbers = -1 - ELSE - ShowLineNumbers = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbers", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbers", "TRUE" - ShowLineNumbers = -1 - END IF - - result = ReadConfigSetting("ShowLineNumbersSeparator", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - ShowLineNumbersSeparator = -1 - ELSE - ShowLineNumbersSeparator = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersSeparator", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersSeparator", "TRUE" - ShowLineNumbersSeparator = -1 - END IF - - result = ReadConfigSetting("ShowLineNumbersUseBG", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - ShowLineNumbersUseBG = -1 - ELSE - ShowLineNumbersUseBG = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersUseBG", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersUseBG", "TRUE" - ShowLineNumbersUseBG = -1 - END IF - - result = ReadConfigSetting("BracketHighlight", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - brackethighlight = -1 - ELSE - brackethighlight = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "BracketHighlight", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "BracketHighlight", "TRUE" - brackethighlight = -1 - END IF - - result = ReadConfigSetting("KeywordHighlight", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - keywordHighlight = -1 - ELSE - keywordHighlight = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "KeywordHighlight", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "KeywordHighlight", "TRUE" - keywordHighlight = -1 - END IF - - result = ReadConfigSetting("MultiHighlight", value$) - IF result THEN - IF value$ = "TRUE" OR VAL(value$) = -1 THEN - multihighlight = -1 - ELSE - multihighlight = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "MultiHighlight", "FALSE" - END IF - ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "MultiHighlight", "TRUE" - multihighlight = -1 - END IF - - IF INSTR(_OS$, "WIN") THEN - result = ReadConfigSetting("IDE_AutoPosition", value$) - IF result THEN - IF UCASE$(value$) = "TRUE" OR ABS(VAL(value$)) = 1 THEN - IDE_AutoPosition = -1 - ELSE - IDE_AutoPosition = 0 - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "FALSE" - END IF - ELSE - IDE_AutoPosition = -1 - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE" - END IF - - result = ReadConfigSetting("IDE_TopPosition", value$) - IF result THEN - IDE_TopPosition = VAL(value$) - ELSE - IDE_BypassAutoPosition = -1 'If there's no position saved in the file, then we certainly don't need to try and auto-position to our last setting. - IDE_TopPosition = 0 - END IF - - result = ReadConfigSetting("IDE_LeftPosition", value$) - IF result THEN - IDE_LeftPosition = VAL(value$) - ELSE - IDE_BypassAutoPosition = -1 'If there's no position saved in the file, then we certainly don't need to try and auto-position to our last setting. - IDE_LeftPosition = 0 - END IF - - 'I was going to do some basic error checking for screen position to make certain that we appeared on the monitor, - 'but I decided not to. Some people (like me) may have multiple monitors set up and may wish for QB64 to pop-up at - 'a coordinate which seems insane at first glance (-1000,0 for instance), but which may move the IDE window to the - 'second monitor instead of the primary one. - 'I'm going to trust that the user doesn't go crazy and enter values like IDE_TopPosition = 123456789 or something insane... - - ELSE 'Linux doesn't work with _SCREENY or _SCREENY, so it's impossible to move the IDE properly. - 'These settings aren't included and are always set FALSE for them. - IDE_AutoPosition = 0 - IDE_TopPosition = 0 - IDE_LeftPosition = 0 - END IF - - result = ReadConfigSetting("IDE_NormalCursorStart", value$) - IDENormalCursorStart = VAL(value$) - IF IDENormalCursorStart < 0 OR IDENormalCursorStart > 31 OR result = 0 THEN IDENormalCursorStart = 8: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_NormalCursorStart", "8" - - result = ReadConfigSetting("IDE_NormalCursorEnd", value$) - IDENormalCursorEnd = VAL(value$) - IF IDENormalCursorEnd < 0 OR IDENormalCursorEnd > 31 OR result = 0 THEN IDENormalCursorEnd = 8: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_NormalCursorEnd", "8" - - result = ReadConfigSetting("IDE_Width", value$) - idewx = VAL(value$) - IF idewx < 80 OR idewx > 1000 THEN idewx = 80: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", "80" - - result = ReadConfigSetting("IDE_Height", value$) - idewy = VAL(value$) - IF idewy < 25 OR idewy > 1000 THEN idewy = 25: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25" - - result = ReadConfigSetting("IDE_AutoFormat", value$) - ideautolayout = VAL(value$) - IF UCASE$(value$) = "TRUE" OR ideautolayout <> 0 THEN - ideautolayout = 1 - ELSE - IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoFormat", "TRUE" - ideautolayout = 1 - else - ideautolayout = 0 - end if - END IF - - result = ReadConfigSetting("IDE_AutoIndent", value$) - ideautoindent = VAL(value$) - IF UCASE$(value$) = "TRUE" OR ideautoindent <> 0 THEN - ideautoindent = 1 - ELSE - IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoIndent", "TRUE" - ideautoindent = 1 - else - ideautoindent = 0 - end if - END IF - - result = ReadConfigSetting("IDE_IndentSUBs", value$) - ideindentsubs = VAL(value$) - IF UCASE$(value$) = "TRUE" OR ideindentsubs <> 0 THEN - ideindentsubs = 1 - ELSE - IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "TRUE" - ideindentsubs = 1 - else - ideindentsubs = 0 - end if - END IF - - result = ReadConfigSetting("IDE_IndentSize", value$) - ideautoindentsize = VAL(value$) - if ideautoindentsize < 1 OR ideautoindentsize > 64 then - ideautoindentsize = 4 - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSize", "4" - end if - - result = ReadConfigSetting("IDE_CustomFont", value$) - idecustomfont = VAL(value$) - IF UCASE$(value$) = "TRUE" OR idecustomfont <> 0 THEN - idecustomfont = 1 - ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "FALSE" - idecustomfont = 0 - END IF - - result = ReadConfigSetting("IDE_CustomFont$", value$) - idecustomfontfile$ = value$ - if result = 0 OR idecustomfontfile$ = "" then - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont$", "c:\windows\fonts\lucon.ttf" - idecustomfontfile$ = "c:\windows\fonts\lucon.ttf" - end if - - result = ReadConfigSetting("IDE_CustomFontSize", value$) - idecustomfontheight = VAL(value$) - IF idecustomfontheight < 8 OR idecustomfontheight > 100 THEN idecustomfontheight = 21: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFontSize", "21" - - result = ReadConfigSetting("IDE_CodePage", value$) - idecpindex = VAL(value$) - IF idecpindex < 0 OR idecpindex > idecpnum THEN idecpindex = 0: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", "0" - - result = ReadConfigSetting("BackupSize", value$) - idebackupsize = VAL(value$) - IF idebackupsize < 10 OR idebackupsize > 2000 THEN idebackupsize = 100: WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB" - - result = ReadConfigSetting("DeBugInfo", value$) - idedebuginfo = VAL(value$) - IF UCASE$(LEFT$(value$, 4)) = "TRUE" THEN idedebuginfo = 1 - IF result = 0 OR idedebuginfo <> 1 THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!" - idedebuginfo = 0 - END IF - Include_GDB_Debugging_Info = idedebuginfo - - GOTO SkipCheckConfigFileExists - CheckConfigFileExists: - IF _FILEEXISTS(ConfigFile$) = 0 THEN - 'There's no config file in the folder. Let's make one for future use. - IF ConfigFile$ = "internal/config.txt" THEN 'It's the main file which we use for default/global settings - WriteConfigSetting "'[CONFIG VERSION]", "ConfigVersion", "1" - IF INSTR(_OS$, "WIN") THEN WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE" - WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB" - WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!" - WriteConfigSetting "'[IDE COLOR SETTINGS]", "SchemeID", "1" - WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)" - WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)" - WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)" - WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)" - WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(255,255,255)" - IF INSTR(_OS$, "WIN") THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE" - END IF - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", "80" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSize", "4" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoIndent", "TRUE" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoFormat", "TRUE" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFontSize", "21" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont$", "c:\windows\fonts\lucon.ttf" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "FALSE" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", "0" - WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "FALSE" - ELSE - 'use the main config file as the default values and just copy it over to the new file - f = FREEFILE - OPEN "internal/config.txt" FOR BINARY AS #f - L = LOF(f): temp$ = SPACE$(L) - GET #f, 1, temp$ - CLOSE #f - OPEN ConfigFile$ FOR BINARY AS #f - PUT #f, 1, temp$ - CLOSE #f - END IF - END IF - RETURN - SkipCheckConfigFileExists: +'General settings ------------------------------------------------------------- +result = ReadConfigSetting(generalSettingsSection$, "DisableSyntaxHighlighter", value$) +IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + DisableSyntaxHighlighter = -1 + WriteConfigSetting generalSettingsSection$, "DisableSyntaxHighlighter", "True" +ELSE + DisableSyntaxHighlighter = 0 + WriteConfigSetting generalSettingsSection$, "DisableSyntaxHighlighter", "False" END IF +IF ReadConfigSetting(generalSettingsSection$, "PasteCursorAtEnd", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + PasteCursorAtEnd = -1 + ELSE + PasteCursorAtEnd = 0 + WriteConfigSetting generalSettingsSection$, "PasteCursorAtEnd", "False" + END IF +ELSE + PasteCursorAtEnd = -1 + WriteConfigSetting generalSettingsSection$, "PasteCursorAtEnd", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "ExeToSourceFolderFirstTimeMsg", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + ExeToSourceFolderFirstTimeMsg = -1 + ELSE + ExeToSourceFolderFirstTimeMsg = 0 + WriteConfigSetting generalSettingsSection$, "ExeToSourceFolderFirstTimeMsg", "False" + END IF +ELSE + ExeToSourceFolderFirstTimeMsg = 0 + WriteConfigSetting generalSettingsSection$, "ExeToSourceFolderFirstTimeMsg", "False" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "WhiteListQB64FirstTimeMsg", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + WhiteListQB64FirstTimeMsg = -1 + ELSE + WhiteListQB64FirstTimeMsg = 0 + WriteConfigSetting generalSettingsSection$, "WhiteListQB64FirstTimeMsg", "False" + END IF +ELSE + WhiteListQB64FirstTimeMsg = 0 + WriteConfigSetting generalSettingsSection$, "WhiteListQB64FirstTimeMsg", "False" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "SaveExeWithSource", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + SaveExeWithSource = -1 + ELSE + SaveExeWithSource = 0 + WriteConfigSetting generalSettingsSection$, "SaveExeWithSource", "False" + END IF +ELSE + SaveExeWithSource = 0 + WriteConfigSetting generalSettingsSection$, "SaveExeWithSource", "False" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "EnableQuickNav", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + EnableQuickNav = -1 + ELSE + EnableQuickNav = 0 + WriteConfigSetting generalSettingsSection$, "EnableQuickNav", "False" + END IF +ELSE + EnableQuickNav = -1 + WriteConfigSetting generalSettingsSection$, "EnableQuickNav", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "ShowErrorsImmediately", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + IDEShowErrorsImmediately = -1 + ELSE + IDEShowErrorsImmediately = 0 + WriteConfigSetting generalSettingsSection$, "ShowErrorsImmediately", "False" + END IF +ELSE + IDEShowErrorsImmediately = -1 + WriteConfigSetting generalSettingsSection$, "ShowErrorsImmediately", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "ShowLineNumbers", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + ShowLineNumbers = -1 + ELSE + ShowLineNumbers = 0 + WriteConfigSetting generalSettingsSection$, "ShowLineNumbers", "False" + END IF +ELSE + ShowLineNumbers = -1 + WriteConfigSetting generalSettingsSection$, "ShowLineNumbers", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "ShowLineNumbersSeparator", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + ShowLineNumbersSeparator = -1 + ELSE + ShowLineNumbersSeparator = 0 + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersSeparator", "False" + END IF +ELSE + ShowLineNumbersSeparator = -1 + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersSeparator", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "ShowLineNumbersUseBG", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + ShowLineNumbersUseBG = -1 + ELSE + ShowLineNumbersUseBG = 0 + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersUseBG", "False" + END IF +ELSE + ShowLineNumbersUseBG = -1 + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersUseBG", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "BracketHighlight", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + brackethighlight = -1 + ELSE + brackethighlight = 0 + WriteConfigSetting generalSettingsSection$, "BracketHighlight", "False" + END IF +ELSE + brackethighlight = -1 + WriteConfigSetting generalSettingsSection$, "BracketHighlight", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "KeywordHighlight", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + keywordHighlight = -1 + ELSE + keywordHighlight = 0 + WriteConfigSetting generalSettingsSection$, "KeywordHighlight", "False" + END IF +ELSE + keywordHighlight = -1 + WriteConfigSetting generalSettingsSection$, "KeywordHighlight", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "MultiHighlight", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + multihighlight = -1 + ELSE + multihighlight = 0 + WriteConfigSetting generalSettingsSection$, "MultiHighlight", "False" + END IF +ELSE + multihighlight = -1 + WriteConfigSetting generalSettingsSection$, "MultiHighlight", "True" +END IF + +IF ReadConfigSetting(generalSettingsSection$, "IgnoreWarnings", value$) THEN + IF UCASE$(value$) = "TRUE" OR ABS(VAL(value$)) = 1 THEN + IgnoreWarnings = -1 + ELSE + IgnoreWarnings = 0 + WriteConfigSetting generalSettingsSection$, "IgnoreWarnings", "False" + END IF +ELSE + IgnoreWarnings = 0 + WriteConfigSetting generalSettingsSection$, "IgnoreWarnings", "False" +END IF + +result = ReadConfigSetting(generalSettingsSection$, "BackupSize", value$) +idebackupsize = VAL(value$) +IF idebackupsize < 10 OR idebackupsize > 2000 THEN idebackupsize = 100: WriteConfigSetting generalSettingsSection$, "BackupSize", "100 'in MB" + +result = ReadConfigSetting(generalSettingsSection$, "DebugInfo", value$) +idedebuginfo = VAL(value$) +IF UCASE$(LEFT$(value$, 4)) = "TRUE" THEN idedebuginfo = 1 +IF result = 0 OR idedebuginfo <> 1 THEN + WriteConfigSetting generalSettingsSection$, "DebugInfo", "False" + DebugInfoIniWarning$ + idedebuginfo = 0 +END IF +Include_GDB_Debugging_Info = idedebuginfo + +wikiBaseAddress$ = "https://wiki.qb64.org" +IF ReadConfigSetting(generalSettingsSection$, "WikiBaseAddress", value$) THEN + wikiBaseAddress$ = value$ +ELSE WriteConfigSetting generalSettingsSection$, "WikiBaseAddress", wikiBaseAddress$ +END IF + + +'Mouse settings --------------------------------------------------------------- +result = ReadConfigSetting(mouseSettingsSection$, "SwapMouseButton", value$) +IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + MouseButtonSwapped = -1 + WriteConfigSetting mouseSettingsSection$, "SwapMouseButton", "True" +ELSE + MouseButtonSwapped = 0 + WriteConfigSetting mouseSettingsSection$, "SwapMouseButton", "False" +END IF + +'Debug settings --------------------------------------------------------------- +result = ReadConfigSetting(debugSettingsSection$, "BaseTCPPort", value$) +idebaseTcpPort = VAL(value$) +IF idebaseTcpPort = 0 THEN idebaseTcpPort = 9000: WriteConfigSetting debugSettingsSection$, "BaseTCPPort", "9000" + +result = ReadConfigSetting(debugSettingsSection$, "WatchListToConsole", value$) +IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + WatchListToConsole = -1 + WriteConfigSetting debugSettingsSection$, "WatchListToConsole", "True" +ELSE + WatchListToConsole = 0 + WriteConfigSetting debugSettingsSection$, "WatchListToConsole", "False" +END IF + +IF ReadConfigSetting(debugSettingsSection$, "AutoAddDebugCommand", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + AutoAddDebugCommand = -1 + ELSE + AutoAddDebugCommand = 0 + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False" + END IF +ELSE + AutoAddDebugCommand = -1 + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "True" +END IF + +'Display settings ------------------------------------------------------------- +IF ReadConfigSetting(displaySettingsSection$, "IDE_SortSUBs", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + idesortsubs = -1 + ELSE + idesortsubs = 0 + WriteConfigSetting displaySettingsSection$, "IDE_SortSUBs", "False" + END IF +ELSE + idesortsubs = 0 + WriteConfigSetting displaySettingsSection$, "IDE_SortSUBs", "False" +END IF + +IF ReadConfigSetting(displaySettingsSection$, "IDE_KeywordCapital", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + ideautolayoutkwcapitals = -1 + ELSE + ideautolayoutkwcapitals = 0 + WriteConfigSetting displaySettingsSection$, "IDE_KeywordCapital", "False" + END IF +ELSE + ideautolayoutkwcapitals = 0 + WriteConfigSetting displaySettingsSection$, "IDE_KeywordCapital", "False" +END IF + +IF ReadConfigSetting(displaySettingsSection$, "IDE_SUBsLength", value$) THEN + IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN + IDESubsLength = -1 + ELSE + IDESubsLength = 0 + WriteConfigSetting displaySettingsSection$, "IDE_SUBsLength", "False" + END IF +ELSE + IDESubsLength = -1 + WriteConfigSetting displaySettingsSection$, "IDE_SUBsLength", "True" +END IF + +IF ReadConfigSetting(displaySettingsSection$, "IDE_AutoPosition", value$) THEN + IF UCASE$(value$) = "TRUE" OR ABS(VAL(value$)) = 1 THEN + IDE_AutoPosition = -1 + ELSE + IDE_AutoPosition = 0 + WriteConfigSetting displaySettingsSection$, "IDE_AutoPosition", "False" + END IF +ELSE + IDE_AutoPosition = -1 + WriteConfigSetting displaySettingsSection$, "IDE_AutoPosition", "True" +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_NormalCursorStart", value$) +IDENormalCursorStart = VAL(value$) +IF IDENormalCursorStart < 0 OR IDENormalCursorStart > 31 OR result = 0 THEN + IDENormalCursorStart = 6 + WriteConfigSetting displaySettingsSection$, "IDE_NormalCursorStart", "6" +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_NormalCursorEnd", value$) +IDENormalCursorEnd = VAL(value$) +IF IDENormalCursorEnd < 0 OR IDENormalCursorEnd > 31 OR result = 0 THEN + IDENormalCursorEnd = 8 + WriteConfigSetting displaySettingsSection$, "IDE_NormalCursorEnd", "8" +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_AutoFormat", value$) +ideautolayout = VAL(value$) +IF UCASE$(value$) = "TRUE" OR ideautolayout <> 0 THEN + ideautolayout = 1 +ELSE + IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN + WriteConfigSetting displaySettingsSection$, "IDE_AutoFormat", "True" + ideautolayout = 1 + ELSE + ideautolayout = 0 + END IF +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_AutoIndent", value$) +ideautoindent = VAL(value$) +IF UCASE$(value$) = "TRUE" OR ideautoindent <> 0 THEN + ideautoindent = 1 +ELSE + IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN + WriteConfigSetting displaySettingsSection$, "IDE_AutoIndent", "True" + ideautoindent = 1 + ELSE + ideautoindent = 0 + END IF +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_IndentSUBs", value$) +ideindentsubs = VAL(value$) +IF UCASE$(value$) = "TRUE" OR ideindentsubs <> 0 THEN + ideindentsubs = 1 +ELSE + IF UCASE$(value$) <> "FALSE" AND value$ <> "0" THEN + WriteConfigSetting displaySettingsSection$, "IDE_IndentSUBs", "True" + ideindentsubs = 1 + ELSE + ideindentsubs = 0 + END IF +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_IndentSize", value$) +ideautoindentsize = VAL(value$) +IF ideautoindentsize < 1 OR ideautoindentsize > 64 THEN + ideautoindentsize = 4 + WriteConfigSetting displaySettingsSection$, "IDE_IndentSize", "4" +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_CustomFont", value$) +idecustomfont = VAL(value$) +IF UCASE$(value$) = "TRUE" OR idecustomfont <> 0 THEN + idecustomfont = 1 +ELSE + WriteConfigSetting displaySettingsSection$, "IDE_CustomFont", "False" + idecustomfont = 0 +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_UseFont8", value$) +IF UCASE$(value$) = "TRUE" THEN + IDE_UseFont8 = 1 +ELSE + WriteConfigSetting displaySettingsSection$, "IDE_UseFont8", "False" + IDE_UseFont8 = 0 +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_CustomFont$", value$) +idecustomfontfile$ = value$ +IF result = 0 OR idecustomfontfile$ = "" THEN + idecustomfontfile$ = "C:\Windows\Fonts\lucon.ttf" + WriteConfigSetting displaySettingsSection$, "IDE_CustomFont$", idecustomfontfile$ +END IF + +result = ReadConfigSetting(displaySettingsSection$, "IDE_CustomFontSize", value$) +idecustomfontheight = VAL(value$) +IF idecustomfontheight < 8 OR idecustomfontheight > 100 THEN idecustomfontheight = 21: WriteConfigSetting displaySettingsSection$, "IDE_CustomFontSize", "21" + +result = ReadConfigSetting(displaySettingsSection$, "IDE_CodePage", value$) +idecpindex = VAL(value$) +IF idecpindex < 0 OR idecpindex > idecpnum THEN idecpindex = 0: WriteConfigSetting displaySettingsSection$, "IDE_CodePage", "0" + +'Custom keywords -------------------------------------------------------------- +IF ReadConfigSetting(customDictionarySection$, "CustomKeywords$", value$) THEN + tempList$ = "" + listOfCustomKeywords$ = "@" + UCASE$(value$) + "@" + FOR I = 1 TO LEN(listOfCustomKeywords$) + checkChar = ASC(listOfCustomKeywords$, I) + IF checkChar = 64 THEN + IF RIGHT$(tempList$, 1) <> "@" THEN tempList$ = tempList$ + "@" + ELSE + tempList$ = tempList$ + CHR$(checkChar) + END IF + NEXT + listOfCustomKeywords$ = tempList$ + customKeywordsLength = LEN(listOfCustomKeywords$) +ELSE + IniSetAddQuotes -1 + WriteConfigSetting customDictionarySection$, "Instructions1", "Add custom keywords separated by the 'at' sign." + WriteConfigSetting customDictionarySection$, "Instructions2", "Useful to colorize constants (eg @true@false@)." + IniSetAddQuotes 0 + WriteConfigSetting customDictionarySection$, "CustomKeywords$", "@" +END IF + +'Color schemes --------------------------------------------------------------- +IniSetAddQuotes -1 +WriteConfigSetting colorSchemesSection$, "Instructions1", "Create custom color schemes in the IDE (Options->IDE Colors)." +WriteConfigSetting colorSchemesSection$, "Instructions2", "Custom color schemes will be stored in this section." +IniSetAddQuotes 0 + +'Individual window settings (different for each running instance) ------------- +IF ReadConfigSetting(windowSettingsSection$, "IDE_TopPosition", value$) THEN + IDE_TopPosition = VAL(value$) +ELSE + IDE_BypassAutoPosition = -1 'If there's no position saved in the file, then we certainly don't need to try and auto-position to our last setting. + IDE_TopPosition = 0 +END IF + +IF ReadConfigSetting(windowSettingsSection$, "IDE_LeftPosition", value$) THEN + IDE_LeftPosition = VAL(value$) +ELSE + IDE_BypassAutoPosition = -1 'If there's no position saved in the file, then we certainly don't need to try and auto-position to our last setting. + IDE_LeftPosition = 0 +END IF + +result = ReadConfigSetting(windowSettingsSection$, "IDE_Width", value$) +idewx = VAL(value$) +IF idewx < 80 OR idewx > 1000 THEN idewx = 80: WriteConfigSetting windowSettingsSection$, "IDE_Width", "80" + +result = ReadConfigSetting(windowSettingsSection$, "IDE_Height", value$) +idewy = VAL(value$) +IF idewy < 25 OR idewy > 1000 THEN idewy = 25: WriteConfigSetting windowSettingsSection$, "IDE_Height", "25" + +'Color settings --------------------------------------------------------------- +'Defaults: (= Super Dark Blue scheme, as of v1.5) +IDETextColor = _RGB32(216, 216, 216) +IDEKeywordColor = _RGB32(69, 118, 147) +IDENumbersColor = _RGB32(216, 98, 78) +IDEQuoteColor = _RGB32(255, 167, 0) +IDEMetaCommandColor = _RGB32(85, 206, 85) +IDECommentColor = _RGB32(98, 98, 98) +IDEChromaColor = _RGB32(170, 170, 170) +IDEBackgroundColor = _RGB32(0, 0, 39) +IDEBackgroundColor2 = _RGB32(0, 49, 78) +IDEBracketHighlightColor = _RGB32(0, 88, 108) + +'Manual/unsaved color settings: +IF ReadConfigSetting(colorSettingsSection$, "SchemeID", value$) = 0 THEN + WriteConfigSetting colorSettingsSection$, "SchemeID", "1" +END IF + +IF ReadConfigSetting(colorSettingsSection$, "TextColor", value$) THEN + IDETextColor = VRGBS(value$, IDETextColor) +ELSE WriteConfigSetting colorSettingsSection$, "TextColor", rgbs$(IDETextColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "KeywordColor", value$) THEN + IDEKeywordColor = VRGBS(value$, IDEKeywordColor) +ELSE WriteConfigSetting colorSettingsSection$, "KeywordColor", rgbs$(IDEKeywordColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "NumbersColor", value$) THEN + IDENumbersColor = VRGBS(value$, IDENumbersColor) +ELSE WriteConfigSetting colorSettingsSection$, "NumbersColor", rgbs$(IDENumbersColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "QuoteColor", value$) THEN + IDEQuoteColor = VRGBS(value$, IDEQuoteColor) +ELSE WriteConfigSetting colorSettingsSection$, "QuoteColor", rgbs$(IDEQuoteColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "CommentColor", value$) THEN + IDECommentColor = VRGBS(value$, IDECommentColor) +ELSE WriteConfigSetting colorSettingsSection$, "CommentColor", rgbs$(IDECommentColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "ChromaColor", value$) THEN + IDEChromaColor = VRGBS(value$, IDEChromaColor) +ELSE WriteConfigSetting colorSettingsSection$, "ChromaColor", rgbs$(IDEChromaColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "MetaCommandColor", value$) THEN + IDEMetaCommandColor = VRGBS(value$, IDEMetaCommandColor) +ELSE WriteConfigSetting colorSettingsSection$, "MetaCommandColor", rgbs$(IDEMetaCommandColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "HighlightColor", value$) THEN + IDEBracketHighlightColor = VRGBS(value$, IDEBracketHighlightColor) +ELSE WriteConfigSetting colorSettingsSection$, "HighlightColor", rgbs$(IDEBracketHighlightColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "BackgroundColor", value$) THEN + IDEBackgroundColor = VRGBS(value$, IDEBackgroundColor) +ELSE WriteConfigSetting colorSettingsSection$, "BackgroundColor", rgbs$(IDEBackgroundColor) +END IF + +IF ReadConfigSetting(colorSettingsSection$, "BackgroundColor2", value$) THEN + IDEBackgroundColor2 = VRGBS(value$, IDEBackgroundColor2) +ELSE WriteConfigSetting colorSettingsSection$, "BackgroundColor2", rgbs$(IDEBackgroundColor2) +END IF + +'End of initial settings ------------------------------------------------------ + diff --git a/source/global/version.bas b/source/global/version.bas index 2c6990fa2..a70feb517 100644 --- a/source/global/version.bas +++ b/source/global/version.bas @@ -1,13 +1,15 @@ DIM SHARED Version AS STRING -DIM SHARED BuildNum AS STRING +DIM SHARED DevChannel AS STRING DIM SHARED AutoBuildMsg AS STRING -Version$ = "1.3" -BuildNum$ = "[stable]" +Version$ = "2.1" +DevChannel$ = "Development Build" IF _FILEEXISTS("internal/version.txt") THEN versionfile = FREEFILE OPEN "internal/version.txt" FOR INPUT AS #versionfile LINE INPUT #versionfile, AutoBuildMsg + AutoBuildMsg = LEFT$(_TRIM$(AutoBuildMsg), 16) 'From git 1234567 + IF LEFT$(AutoBuildMsg, 9) <> "From git " THEN AutoBuildMsg = "" CLOSE #versionfile END IF diff --git a/source/icon.rc b/source/icon.rc index 4289a5935..997a52eb3 100644 --- a/source/icon.rc +++ b/source/icon.rc @@ -1,23 +1,28 @@ -0 ICON "qb64.ico" - -1 VERSIONINFO -FILEVERSION 1,2,0,0 -PRODUCTVERSION 1,2,0,0 -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "040904E4" - BEGIN - VALUE "CompanyName","QB64\0" - VALUE "FileDescription","QB64 Compiler\0" - VALUE "FileVersion","1.2\0" - VALUE "InternalName","qb64.bas\0" - VALUE "LegalCopyright","LGPL\0" - VALUE "LegalTrademarks","\0" - VALUE "OriginalFilename","qb64.exe\0" - VALUE "ProductName","QB64\0" - VALUE "ProductVersion","1.2\0" - VALUE "Comments","QB64 is a modern extended BASIC programming language that retains QB4.5/Qbasic compatibility and compiles native binaries for Windows, Linux and macOS.\0" - END - END -END +0 ICON "qb64.ico" + +1 VERSIONINFO +FILEVERSION 2,1,0,0 +PRODUCTVERSION 2,1,0,0 +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "040904E4" + BEGIN + VALUE "CompanyName","QB64\0" + VALUE "FileDescription","QB64 Compiler\0" + VALUE "FileVersion","2.1\0" + VALUE "InternalName","qb64.bas\0" + VALUE "LegalCopyright","LGPL\0" + VALUE "LegalTrademarks","\0" + VALUE "OriginalFilename","qb64.exe\0" + VALUE "ProductName","QB64\0" + VALUE "ProductVersion","2.1\0" + VALUE "Comments","QB64 is a modern extended BASIC programming language that retains QB4.5/QBasic compatibility and compiles native binaries for Windows, Linux and macOS.\0" + END + END + + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x409, 0x04E4 + END +END diff --git a/source/ide/ide_global.bas b/source/ide/ide_global.bas index 7ceb458f3..0df11e16c 100644 --- a/source/ide/ide_global.bas +++ b/source/ide/ide_global.bas @@ -11,6 +11,9 @@ DIM SHARED IDEBuildModeChanged DIM SHARED IdeInfo AS STRING DIM SHARED IdeContextHelpSF AS _BYTE +DIM SHARED host&, debugClient&, hostport$, variableWatchList$, backupVariableWatchList$, watchpointList$ +DIM SHARED vWatchReceivedData$(1 TO 1000), nextvWatchDataSlot, latestWatchpointMet& +DIM SHARED startPausedPending AS _BYTE DIM SHARED IdeSystem AS LONG '1=Entering text into the main IDE window @@ -18,8 +21,12 @@ DIM SHARED IdeSystem AS LONG '3=Scrolling within the help window IdeSystem = 1 -DIM SHARED IdeRecentLink(1 TO 4, 1 TO 2) AS STRING +DIM SHARED IdeDebugMode AS LONG, callStackLength AS LONG +DIM SHARED callstacklist$ + +DIM SHARED IdeRecentLink(1 TO 6, 1 TO 2) AS STRING DIM SHARED IdeOpenFile AS STRING 'makes IdeOpen directly open the file passed +DIM SHARED fileDlgSearchTerm$ TYPE IdeBmkType y AS LONG 'the vertical line @@ -30,6 +37,16 @@ END TYPE REDIM SHARED IdeBmk(1) AS IdeBmkType DIM SHARED IdeBmkN +TYPE QuickNavType + AS LONG idesx, idesy, idecx, idecy +END TYPE + +DIM SHARED QuickNavTotal AS LONG +DIM SHARED QuickNavHistory(0) AS QuickNavType + +REDIM SHARED IdeBreakpoints(1) AS _BYTE +REDIM SHARED IdeSkipLines(1) AS _BYTE + 'GetInput global variables DIM SHARED iCHECKLATER 'the values will be checked later DIM SHARED iCHANGED @@ -116,23 +133,20 @@ DIM SHARED idecurrentlinelayout AS STRING DIM SHARED idecurrentlinelayouti AS LONG DIM SHARED idelayoutallow AS LONG -DIM SHARED listOfKeywords$, listOfCustomKeywords$, customKeywordsLength AS LONG -listOfKeywords$ = "@?@$CHECKING@$CONSOLE@ONLY@$DYNAMIC@$ELSE@$ELSEIF@$END@$ENDIF@$EXEICON@$IF@$INCLUDE@$LET@$RESIZE@$SCREENHIDE@$SCREENSHOW@$STATIC@$VERSIONINFO@$VIRTUALKEYBOARD@ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@CALL@CALLS@CASE@IS@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@GET@GOSUB@GOTO@HEX$@IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@KEY@KILL@LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@NAME@NEXT@NOT@OCT$@OFF@ON@OPEN@OPTION@OR@OUT@OUTPUT@PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@PRINT@PSET@PUT@RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@VAL@VARPTR@VARPTR$@VARSEG@VIEW@WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@XOR@_ACOS@_ACOSH@_ALPHA@_ALPHA32@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ATAN2@_ATANH@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BUTTON@_BUTTONCHANGE@_BYTE@_CEIL@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS$@_CONNECTIONADDRESS@_CONSOLE@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CSC@_CSCH@_CV@_CWD$@_D2G@_D2R@_DEFAULTCOLOR@_DEFINE@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@" -listOfKeywords$ = listOfKeywords$ + "_ERRORLINE@_EXIT@_EXPLICIT@_FILEEXISTS@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLSCREEN@_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@_HEIGHT@_HIDE@_HYPOT@_ICON@_INCLERRORFILE$@_INCLERRORLINE@_INTEGER64@_KEYCLEAR@_KEYDOWN@_KEYHIT@_LASTAXIS@_LASTBUTTON@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_MAPTRIANGLE@_MAPUNICODE@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMNEW@_MEMPUT@_MIDDLE@_MK$@_MOUSEBUTTON@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSEPIPEOPEN@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@_NEWIMAGE@_OFFSET@_OPENCLIENT@_OPENCONNECTION@_OPENHOST@_OS$@_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@_R2D@_R2G@_RED@_RED32@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROUND@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SEC@_SECH@_SETALPHA@_SHELLHIDE@_SINH@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOURCE@_STARTDIR$@_STRCMP@_STRICMP@_TANH@_TITLE@_TITLE$@_UNSIGNED@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@_GLCALLLIST@_GLCALLLISTS@_GLCLEAR@_GLCLEARACCUM@_GLCLEARCOLOR@_GLCLEARDEPTH@_GLCLEARINDEX@_GLCLEARSTENCIL@_GLCLIPPLANE@_GLCOLOR3B@_GLCOLOR3BV@_GLCOLOR3D@_GLCOLOR3DV@_GLCOLOR3F@_GLCOLOR3FV@_GLCOLOR3I@_GLCOLOR3IV@_GLCOLOR3S@_GLCOLOR3SV@_GLCOLOR3UB@_GLCOLOR3UBV@_GLCOLOR3UI@_GLCOLOR3UIV@_GLCOLOR3US@_GLCOLOR3USV@_GLCOLOR4B@_GLCOLOR4BV@_GLCOLOR4D@_GLCOLOR4DV@_GLCOLOR4F@_GLCOLOR4FV@_GLCOLOR4I@_GLCOLOR4IV@_GLCOLOR4S@_GLCOLOR4SV@_GLCOLOR4UB@_GLCOLOR4UBV@_GLCOLOR4UI@_GLCOLOR4UIV@_GLCOLOR4US@_GLCOLOR4USV@_GLCOLORMASK@_GLCOLORMATERIAL@_GLCOLORPOINTER@_GLCOPYPIXELS@_GLCOPYTEXIMAGE1D@_GLCOPYTEXIMAGE2D@_GLCOPYTEXSUBIMAGE1D@" -listOfKeywords$ = listOfKeywords$ + "_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@_GLGENLISTS@_GLGENTEXTURES@_GLGETBOOLEANV@_GLGETCLIPPLANE@_GLGETDOUBLEV@_GLGETERROR@_GLGETFLOATV@_GLGETINTEGERV@_GLGETLIGHTFV@_GLGETLIGHTIV@_GLGETMAPDV@_GLGETMAPFV@_GLGETMAPIV@_GLGETMATERIALFV@_GLGETMATERIALIV@_GLGETPIXELMAPFV@_GLGETPIXELMAPUIV@_GLGETPIXELMAPUSV@_GLGETPOINTERV@_GLGETPOLYGONSTIPPLE@_GLGETSTRING@_GLGETTEXENVFV@_GLGETTEXENVIV@_GLGETTEXGENDV@_GLGETTEXGENFV@_GLGETTEXGENIV@_GLGETTEXIMAGE@_GLGETTEXLEVELPARAMETERFV@_GLGETTEXLEVELPARAMETERIV@_GLGETTEXPARAMETERFV@_GLGETTEXPARAMETERIV@_GLHINT@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@_GLORTHO@_GLPASSTHROUGH@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@" -listOfKeywords$ = listOfKeywords$ + "_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@_GLRASTERPOS2D@_GLRASTERPOS2DV@_GLRASTERPOS2F@_GLRASTERPOS2FV@_GLRASTERPOS2I@_GLRASTERPOS2IV@_GLRASTERPOS2S@_GLRASTERPOS2SV@_GLRASTERPOS3D@_GLRASTERPOS3DV@_GLRASTERPOS3F@_GLRASTERPOS3FV@_GLRASTERPOS3I@_GLRASTERPOS3IV@_GLRASTERPOS3S@_GLRASTERPOS3SV@_GLRASTERPOS4D@_GLRASTERPOS4DV@_GLRASTERPOS4F@_GLRASTERPOS4FV@_GLRASTERPOS4I@_GLRASTERPOS4IV@_GLRASTERPOS4S@_GLRASTERPOS4SV@_GLREADBUFFER@_GLREADPIXELS@_GLRECTD@_GLRECTDV@_GLRECTF@_GLRECTFV@_GLRECTI@_GLRECTIV@_GLRECTS@_GLRECTSV@_GLRENDERMODE@_GLROTATED@_GLROTATEF@_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@_GLTEXCOORD1D@_GLTEXCOORD1DV@_GLTEXCOORD1F@_GLTEXCOORD1FV@_GLTEXCOORD1I@_GLTEXCOORD1IV@_GLTEXCOORD1S@_GLTEXCOORD1SV@_GLTEXCOORD2D@_GLTEXCOORD2DV@_GLTEXCOORD2F@_GLTEXCOORD2FV@_GLTEXCOORD2I@_GLTEXCOORD2IV@_GLTEXCOORD2S@_GLTEXCOORD2SV@_GLTEXCOORD3D@_GLTEXCOORD3DV@_GLTEXCOORD3F@_GLTEXCOORD3FV@_GLTEXCOORD3I@_GLTEXCOORD3IV@_GLTEXCOORD3S@_GLTEXCOORD3SV@_GLTEXCOORD4D@_GLTEXCOORD4DV@_GLTEXCOORD4F@_GLTEXCOORD4FV@_GLTEXCOORD4I@_GLTEXCOORD4IV@_GLTEXCOORD4S@_GLTEXCOORD4SV@_GLTEXCOORDPOINTER@_GLTEXENVF@_GLTEXENVFV@_GLTEXENVI@_GLTEXENVIV@_GLTEXGEND@_GLTEXGENDV@_GLTEXGENF@_GLTEXGENFV@_GLTEXGENI@_GLTEXGENIV@_GLTEXIMAGE1D@_GLTEXIMAGE2D@_GLTEXPARAMETERF@_GLTEXPARAMETERFV@_GLTEXPARAMETERI@_GLTEXPARAMETERIV@_GLTEXSUBIMAGE1D@_GLTEXSUBIMAGE2D@_GLTRANSLATED@_GLTRANSLATEF@_GLVERTEX2D@_GLVERTEX2DV@_GLVERTEX2F@_GLVERTEX2FV@_GLVERTEX2I@_GLVERTEX2IV@_GLVERTEX2S@_GLVERTEX2SV@_GLVERTEX3D@_GLVERTEX3DV@_GLVERTEX3F@_GLVERTEX3FV@_GLVERTEX3I@_GLVERTEX3IV@_GLVERTEX3S@_GLVERTEX3SV@_GLVERTEX4D@_GLVERTEX4DV@_GLVERTEX4F@_GLVERTEX4FV@_GLVERTEX4I@_GLVERTEX4IV@_GLVERTEX4S@_GLVERTEX4SV@_GLVERTEXPOINTER@_GLVIEWPORT@SMOOTH@STRETCH@_ANTICLOCKWISE@_BEHIND@_CLEAR@_FILLBACKGROUND@_GLUPERSPECTIVE@_HARDWARE@_HARDWARE1@_KEEPBACKGROUND@_NONE@_OFF@_ONLY@_ONLYBACKGROUND@_ONTOP@_SEAMLESS@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@" -listOfKeywords$ = listOfKeywords$ + "_SOFTWARE@_SQUAREPIXELS@_STRETCH@_ALLOWFULLSCREEN@_ALL@_ECHO@_INSTRREV@_TRIM$@_ACCEPTFILEDROP@_FINISHDROP@_TOTALDROPPEDFILES@_DROPPEDFILE@_DROPPEDFILE$@_SHR@_SHL@" +'$INCLUDE:'../subs_functions/syntax_highlighter_list.bas' 'IDE MODULE: shared data & definitions '--------------------------------------------------- -DIM SHARED idesubwindow, idehelp +CONST idesystem2.w = 20 '"Find" field width (Status bar) + +DIM SHARED idesubwindow, idehelp, statusarealink AS INTEGER DIM SHARED ideexit DIM SHARED idet AS STRING, idel, ideli, iden DIM SHARED ideundopos, ideundobase, ideundoflag DIM SHARED idelaunched, idecompiling DIM SHARED idecompiledline 'stores the number of the last line sent to the compiler, used only to know which line to send next DIM SHARED idecompiledline$ 'stores the last line sent to the compiler -DIM SHARED idesx, idesy, idecx, idecy +DIM SHARED idesx, idesy, idecx, idecy, debugnextline DIM SHARED ideselect, ideselectx1, ideselecty1, idemouseselect, idembmonitor DIM SHARED ideCurrentSingleLineSelection AS STRING DIM SHARED ideunsaved @@ -140,28 +154,28 @@ DIM SHARED ideroot AS STRING DIM SHARED idetxt(1000) AS STRING DIM SHARED idetxtlast AS INTEGER DIM SHARED idehl -DIM SHARED idealtcode(255) AS INTEGER DIM SHARED ideprogname AS STRING DIM SHARED idepath AS STRING DIM SHARED idefindtext AS STRING DIM SHARED idefindcasesens AS INTEGER DIM SHARED idefindwholeword AS INTEGER DIM SHARED idefindbackwards AS INTEGER +DIM SHARED idefindnocomments AS INTEGER, idefindnostrings AS INTEGER +DIM SHARED idefindonlycomments AS INTEGER, idefindonlystrings AS INTEGER DIM SHARED idefindinvert AS INTEGER DIM SHARED idechangeto AS STRING DIM SHARED idechangemade AS INTEGER DIM SHARED ideinsert AS INTEGER DIM SHARED idepathsep AS STRING * 1 DIM SHARED SubFuncLIST(0) AS STRING -DIM SHARED QuickNavTotal AS LONG -DIM SHARED QuickNavHistory(0) AS LONG DIM SHARED ModifyCOMMAND$ DIM SHARED EnteringRGB AS _BYTE DIM SHARED ActiveINCLUDELink AS LONG DIM SHARED ActiveINCLUDELinkFile AS STRING DIM SHARED HideCurrentLineHighlight AS _BYTE, ShowLineNumbers AS _BYTE -DIM SHARED SearchMenuEnableQuickNav AS INTEGER +DIM SHARED SearchMenuEnableQuickNav AS INTEGER, searchStringFoundOn AS LONG DIM SHARED idegotobox_LastLineNum AS LONG, maxLineNumberLength AS LONG +DIM SHARED versionStringStatus$, lineNumberStatus$, ideshowtextBypassColorRestore AS _BYTE '-------------------------------------------------------------------------------- TYPE idedbptype @@ -186,6 +200,7 @@ TYPE idedbotype cy AS LONG foc AS LONG sel AS LONG 'selected item no. + selY AS LONG stx AS LONG 'selected item in string form issel AS _BYTE 'selection indicator (for text boxes only) sx1 AS LONG 'selection start (for text boxes only) @@ -194,17 +209,21 @@ TYPE idedbotype END TYPE '-------------------------------------------------------------------------------- DIM SHARED idefocusline 'simply stores the location of the line to highlight in red -DIM SHARED ideautorun -DIM SHARED menu$(1 TO 10, 0 TO 20) -DIM SHARED menusize(1 TO 10) +DIM SHARED ideautorun, startPaused +DIM SHARED menu$(1 TO 11, 0 TO 20) +DIM SHARED menuDesc$(1 TO 11, 0 TO 20) +DIM SHARED menusize(1 TO 11) DIM SHARED menus AS INTEGER, idecontextualmenuID AS INTEGER DIM SHARED ideeditmenuID AS INTEGER, SearchMenuID AS INTEGER DIM SHARED OptionsMenuID AS INTEGER, OptionsMenuSwapMouse AS INTEGER, OptionsMenuPasteCursor AS INTEGER -DIM SHARED OptionsMenuShowErrorsImmediately AS INTEGER +DIM SHARED OptionsMenuShowErrorsImmediately AS INTEGER, OptionsMenuIgnoreWarnings AS INTEGER +DIM SHARED OptionsMenuDisableSyntax AS INTEGER ', OptionsMenuAutoComplete DIM SHARED ViewMenuID AS INTEGER, ViewMenuShowLineNumbersSubMenuID AS INTEGER DIM SHARED ViewMenuShowSeparatorID AS INTEGER, ViewMenuShowBGID AS INTEGER DIM SHARED ViewMenuCompilerWarnings AS INTEGER DIM SHARED RunMenuID AS INTEGER, RunMenuSaveExeWithSource AS INTEGER, brackethighlight AS INTEGER +DIM SHARED DebugMenuID AS INTEGER, DebugMenuCallStack AS INTEGER, DebugMenuWatchListToConsole AS INTEGER +DIM SHARED DebugMenuAutoAddCommand AS INTEGER DIM SHARED multihighlight AS INTEGER, keywordHighlight AS INTEGER DIM SHARED PresetColorSchemes AS INTEGER, TotalColorSchemes AS INTEGER, ColorSchemes$(0) DIM SHARED LastValidColorScheme AS INTEGER @@ -213,6 +232,6 @@ DIM SHARED ideundocombo, ideundocombochr, idenoundo, idemergeundo DIM SHARED idealthighlight, ideentermenu DIM SHARED ideautolayout, ideautoindent, ideautoindentsize, ideindentsubs, idebackupsize DIM SHARED idewx, idewy, idecustomfont, idecustomfontfile$, idecustomfontheight, idecustomfonthandle -DIM SHARED iderunmode +DIM SHARED iderunmode, IDE_UseFont8 AS _BYTE 'IDE MODULE SECTION END: shared data & definitions diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 3e4e14452..32a250965 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -1,6 +1,7 @@ FUNCTION ide (ignore) 'Note: ide is a function which optimizes the interaction between the IDE and compiler (ide2) ' by avoiding unnecessary bloat associated with entering the main IDE function 'ide2' + ignore = ignore 'just to clear warnings of unused variables IF idecommand$ <> "" THEN cmd = ASC(idecommand$) IF cmd = 3 THEN 'request next line (compiler->ide) IF idecompiledline < iden THEN @@ -102,6 +103,17 @@ FUNCTION ide (ignore) status.progress$ = STRING$(3 - LEN(status.progress$), 32) + status.progress$ + "%" END IF IdeInfo = CHR$(0) + status.progress$ + 'ELSE + ' STATIC p AS _BYTE, lastUpdateDots AS SINGLE + ' IF TIMER - lastUpdateDots > .5 THEN + ' lastUpdateDots = TIMER + ' p = p + 1 + ' temp$ = STRING$(3, 250) '"..." + ' IF p > 3 THEN p = 1 + ' ASC(temp$, p) = 254 + ' COLOR 7, 1 + ' _PRINTSTRING (2, idewy - 3), temp$ 'compilation progress indicator + ' END IF END IF UpdateIdeInfo @@ -130,19 +142,31 @@ FUNCTION ide2 (ignore) STATIC wholeword.selectx1, wholeword.idecx STATIC wholeword.selecty1, wholeword.idecy STATIC ForceResize, IDECompilationRequested AS _BYTE + STATIC QuickNavHover AS _BYTE, FindFieldHover AS _BYTE + STATIC VersionInfoHover AS _BYTE, LineNumberHover AS _BYTE + STATIC waitingForVarList AS _BYTE + + ignore = ignore 'just to clear warnings of unused variables - CONST idesystem2.w = 20 '"Find" field width (Status bar) char.sep$ = CHR$(34) + " =<>+-/\^:;,*()." c$ = idecommand$ + debugnextline = 0 + IDEerrorMessage: 'report any IDE errors which have occurred IF ideerror THEN + IF IdeDebugMode THEN + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ + END IF mustdisplay = 1 - IF ideerror = 1 THEN errorat$ = "IDE module error" + IF ideerror = 1 THEN errorat$ = "Internal IDE error" IF ideerror = 2 THEN errorat$ = "File not found" IF ideerror = 3 THEN errorat$ = "File access error": CLOSE #150 IF ideerror = 4 THEN errorat$ = "Path not found" + IF ideerror = 5 THEN errorat$ = "Cannot create folder" + IF ideerror = 6 THEN errorat$ = "Cannot save file" + IF ideerror = -1 THEN GOTO errorReportDone 'fail quietly - like ON ERROR RESUME NEXT qberrorcode = ERR IF qberrorcode THEN @@ -151,33 +175,44 @@ FUNCTION ide2 (ignore) ideerrormessageTITLE$ = "Error" END IF - IF (ideerror = 2 OR ideerror = 3 OR ideerror = 4) THEN + IF (ideerror > 1) THEN 'Don't show too much detail if user just tried loading an invalid file - ideerrormessageTITLE$ = ideerrormessageTITLE$ + " (" + str2$(_ERRORLINE) + "-" + str2$(_INCLERRORLINE) + ")" + ideerrormessageTITLE$ = ideerrormessageTITLE$ + " (" + IF _ERRORLINE > 0 OR _INCLERRORLINE > 0 THEN + ideerrormessageTITLE$ = ideerrormessageTITLE$ + str2$(_ERRORLINE) + "-" + str2$(_INCLERRORLINE) + END IF + IF LEN(AutoBuildMsg$) THEN ideerrormessageTITLE$ = ideerrormessageTITLE$ + "-" + MID$(AutoBuildMsg$, 10) + ideerrormessageTITLE$ = ideerrormessageTITLE$ + ")" + IF ideerrormessageTITLE$ = "Error ()" THEN ideerrormessageTITLE$ = "Error" + IF AttemptToLoadRecent = -1 THEN + 'Offer to cleanup recent file list, removing invalid entries + PCOPY 2, 0 + result = idemessagebox(ideerrormessageTITLE$, errorat$ + "." + CHR$(10) + CHR$(10) + "Remove broken links from recent files?", "#Yes;#No") + IF result = 1 THEN + GOSUB CleanUpRecentList + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO errorReportDone + END IF ELSE 'a more serious error; let's report something that'll help bug reporting inclerrorline = _INCLERRORLINE IF inclerrorline THEN - errorat$ = errorat$ + CHR$(10) + " " + CHR$(10) + "(module: " + _ - RemoveFileExtension$(LEFT$(_INCLERRORFILE$, 60)) - errorat$ = errorat$ + ", on line: " + str2$(inclerrorline) + ")" + errorat$ = errorat$ + CHR$(10) + " " + CHR$(10) + "(module: " + _ + RemoveFileExtension$(LEFT$(_INCLERRORFILE$, 60)) + errorat$ = errorat$ + ", on line: " + str2$(inclerrorline) + IF LEN(AutoBuildMsg$) THEN errorat$ = errorat$ + ", " + MID$(AutoBuildMsg$, 10) + errorat$ = errorat$ + ")" ELSE - errorat$ = errorat$ + CHR$(10) + " " + CHR$(10) + "(on line: " + str2$(_ERRORLINE) + ")" + errorat$ = errorat$ + CHR$(10) + " " + CHR$(10) + "(on line: " + str2$(_ERRORLINE) + IF LEN(AutoBuildMsg$) THEN errorat$ = errorat$ + ", " + MID$(AutoBuildMsg$, 10) + errorat$ = errorat$ + ")" END IF END IF PCOPY 3, 0 - idemessagebox ideerrormessageTITLE$, errorat$ - END IF - - IF (ideerror = 2 OR ideerror = 3 OR ideerror = 4) AND (AttemptToLoadRecent = -1) THEN - 'Offer to cleanup recent file list, removing invalid entries - PCOPY 2, 0 - r$ = ideclearhistory$("INVALID") - IF r$ = "Y" THEN - GOSUB CleanUpRecentList - END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + result = idemessagebox(ideerrormessageTITLE$, errorat$, "") + errorReportDone: END IF ideerror = 1 'unknown IDE error @@ -186,18 +221,17 @@ FUNCTION ide2 (ignore) IF LEFT$(c$, 1) = CHR$(12) THEN f$ = RIGHT$(c$, LEN(c$) - 1) LOCATE , , 0 - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 dummy = DarkenFGBG(1) - BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem - COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status " + BkpIdeSystem = IdeSystem: IdeSystem = 2: UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem + COLOR 1, 7: _PRINTSTRING ((idewx - 8) / 2, idewy - 4), " Status " COLOR 15, 1 - LOCATE idewy - 3, 2 IF os$ = "LNX" THEN - PRINT "Creating executable file named " + CHR$(34) + f$ + extension$ + CHR$(34) + "..." + _PRINTSTRING (2, idewy - 3), "Creating executable file named " + CHR$(34) + f$ + extension$ + CHR$(34) + "..." ELSE - PRINT "Creating .EXE file named " + CHR$(34) + f$ + extension$ + CHR$(34) + "..." + _PRINTSTRING (2, idewy - 3), "Creating .EXE file named " + CHR$(34) + f$ + extension$ + CHR$(34) + "..." END IF PCOPY 3, 0 @@ -221,7 +255,7 @@ FUNCTION ide2 (ignore) idelaunched = 1 WIDTH idewx, idewy - _FONT 16 + IF IDE_UseFont8 THEN _FONT 8 ELSE _FONT 16 'change codepage IF idecpindex THEN @@ -236,7 +270,7 @@ FUNCTION ide2 (ignore) idecustomfonthandle = _LOADFONT(idecustomfontfile$, idecustomfontheight, "MONOSPACE") IF idecustomfonthandle = -1 THEN 'failed! - revert to default settings - idecustomfont = 0: idecustomfontfile$ = "c:\windows\fonts\lucon.ttf": idecustomfontheight = 21 + idecustomfont = 0: idecustomfontfile$ = "C:\Windows\Fonts\lucon.ttf": idecustomfontheight = 21 ELSE _FONT idecustomfonthandle END IF @@ -252,101 +286,201 @@ FUNCTION ide2 (ignore) m = m + 1: i = 0: ViewMenuID = m menu$(m, i) = "View": i = i + 1 menu$(m, i) = "#SUBs... F2": i = i + 1 + menuDesc$(m, i - 1) = "Displays a list of SUB/FUNCTION procedures" menu$(m, i) = "#Line Numbers " + CHR$(16): i = i + 1 + menuDesc$(m, i - 1) = "Toggles and customizes line numbers (side bar)" menu$(m, i) = "-": i = i + 1 ViewMenuCompilerWarnings = i menu$(ViewMenuID, ViewMenuCompilerWarnings) = "Compiler #Warnings... Ctrl+W": i = i + 1 + menuDesc$(m, i - 1) = "Displays a list of recent code warnings" menusize(m) = i - 1 m = m + 1: i = 0: SearchMenuID = m menu$(m, i) = "Search": i = i + 1 menu$(m, i) = "#Find... Ctrl+F3": i = i + 1 + menuDesc$(m, i - 1) = "Finds specified text" menu$(m, i) = "#Repeat Last Find (Shift+) F3": i = i + 1 - menu$(m, i) = "#Change...": i = i + 1 + menuDesc$(m, i - 1) = "Finds next occurrence of text specified in previous search" + menu$(m, i) = "#Change... Alt+F3": i = i + 1 + menuDesc$(m, i - 1) = "Finds and changes specified text" menu$(m, i) = "-": i = i + 1 menu$(m, i) = "Clear Search #History...": i = i + 1 + menuDesc$(m, i - 1) = "Clears history of searched text items" menu$(m, i) = "-": i = i + 1 SearchMenuEnableQuickNav = i - menu$(m, i) = "Enable #Quick Navigation (Back Arrow)": i = i + 1 + menu$(m, i) = "#Quick Navigation": i = i + 1 + menuDesc$(m, i - 1) = "Toggles Quick Navigation (back arrow)" IF EnableQuickNav THEN menu$(SearchMenuID, SearchMenuEnableQuickNav) = CHR$(7) + menu$(SearchMenuID, SearchMenuEnableQuickNav) END IF menu$(m, i) = "-": i = i + 1 menu$(m, i) = "Add/Remove #Bookmark Alt+Left": i = i + 1 + menuDesc$(m, i - 1) = "Toggles a bookmark in the current line" menu$(m, i) = "#Next Bookmark Alt+Down": i = i + 1 + menuDesc$(m, i - 1) = "Navigates to the next bookmark" menu$(m, i) = "#Previous Bookmark Alt+Up": i = i + 1 + menuDesc$(m, i - 1) = "Navigates to the previous bookmark" menu$(m, i) = "-": i = i + 1 menu$(m, i) = "#Go To Line... Ctrl+G": i = i + 1 + menuDesc$(m, i - 1) = "Jumps to the specified line number" menusize(m) = i - 1 m = m + 1: i = 0: RunMenuID = m menu$(m, i) = "Run": i = i + 1 menu$(m, i) = "#Start F5": i = i + 1 + menuDesc$(m, i - 1) = "Compiles current program and runs it" menu$(m, i) = "Modify #COMMAND$...": i = i + 1 + menuDesc$(m, i - 1) = "Sets string returned by COMMAND$ function" menu$(m, i) = "-": i = i + 1 RunMenuSaveExeWithSource = i menu$(m, i) = "Output EXE to Source #Folder": i = i + 1 + menuDesc$(m, i - 1) = "Toggles compiling program to QB64's folder or to source folder" IF SaveExeWithSource THEN menu$(RunMenuID, RunMenuSaveExeWithSource) = CHR$(7) + menu$(RunMenuID, RunMenuSaveExeWithSource) END IF menu$(m, i) = "-": i = i + 1 - 'menu$(m, i) = "Start (#Detached) Ctrl+F5": i = i + 1 IF os$ = "LNX" THEN menu$(m, i) = "Make E#xecutable Only F11": i = i + 1 ELSE menu$(m, i) = "Make E#XE Only F11": i = i + 1 END IF + menuDesc$(m, i - 1) = "Compiles current program without running it" + menusize(m) = i - 1 + m = m + 1: i = 0: DebugMenuID = m + menu$(m, i) = "Debug": i = i + 1 + menu$(m, i) = "Start #Paused F7 or F8": i = i + 1 + menuDesc$(m, i - 1) = "Compiles current program and starts it in pause mode" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "Toggle #Breakpoint F9": i = i + 1 + menuDesc$(m, i - 1) = "Sets/clears breakpoint at cursor location" + menu$(m, i) = "#Clear All Breakpoints F10": i = i + 1 + menuDesc$(m, i - 1) = "Removes all breakpoints" + menu$(m, i) = "Toggle #Skip Line Ctrl+P": i = i + 1 + menuDesc$(m, i - 1) = "Sets/clears flag to skip line" + menu$(m, i) = "#Unskip All Lines Ctrl+F10": i = i + 1 + menuDesc$(m, i - 1) = "Removes all line skip flags" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "#Watch List... F4": i = i + 1 + menuDesc$(m, i - 1) = "Adds variables to watch list" + DebugMenuCallStack = i + menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12": i = i + 1 + menuDesc$(m, i - 1) = "Displays the call stack of the current program's last execution" + menu$(m, i) = "-": i = i + 1 + DebugMenuAutoAddCommand = i + menu$(m, i) = "Auto-add $#Debug Metacommand": i = i + 1 + menuDesc$(m, i - 1) = "Toggles whether the IDE will auto-add the $Debug metacommand as required" + IF AutoAddDebugCommand THEN + menu$(DebugMenuID, DebugMenuAutoAddCommand) = CHR$(7) + menu$(DebugMenuID, DebugMenuAutoAddCommand) + END IF + DebugMenuWatchListToConsole = i + menu$(m, i) = "#Output Watch List to Console": i = i + 1 + menuDesc$(m, i - 1) = "Toggles directing the output of the watch list to the console window" + IF WatchListToConsole THEN + menu$(DebugMenuID, DebugMenuWatchListToConsole) = CHR$(7) + menu$(DebugMenuID, DebugMenuWatchListToConsole) + END IF + menu$(m, i) = "Set Base #TCP/IP Port Number...": i = i + 1 + menuDesc$(m, i - 1) = "Sets the initial port number for TCP/IP communication with the debuggee" + menu$(m, i) = "#Advanced (C++)...": i = i + 1 + menuDesc$(m, i - 1) = "Enables embedding C++ debug information into compiled program" + menu$(m, i) = "Purge C++ #Libraries": i = i + 1 + menuDesc$(m, i - 1) = "Purges all pre-compiled content" menusize(m) = i - 1 m = m + 1: i = 0: OptionsMenuID = m menu$(m, i) = "Options": i = i + 1 menu$(m, i) = "#Display...": i = i + 1 + menuDesc$(m, i - 1) = "Changes screen size and font" menu$(m, i) = "IDE C#olors...": i = i + 1 - menu$(m, i) = "#Language...": i = i + 1 + menuDesc$(m, i - 1) = "Changes or customizes IDE color scheme" menu$(m, i) = "#Code Layout...": i = i + 1 - menu$(m, i) = "#Backup/Undo...": i = i + 1 + menuDesc$(m, i - 1) = "Changes auto-format features" menu$(m, i) = "-": i = i + 1 - menu$(m, i) = "#Advanced...": i = i + 1 + menu$(m, i) = "#Language...": i = i + 1 + menuDesc$(m, i - 1) = "Changes code page to use with TTF fonts" + menu$(m, i) = "#Backup/Undo...": i = i + 1 + menuDesc$(m, i - 1) = "Sets size of backup/undo buffer" + menu$(m, i) = "-": i = i + 1 + + OptionsMenuDisableSyntax = i + menu$(m, i) = "Syntax #Highlighter": i = i + 1 + menuDesc$(m, i - 1) = "Toggles syntax highlighter" + IF NOT DisableSyntaxHighlighter THEN + menu$(OptionsMenuID, OptionsMenuDisableSyntax) = CHR$(7) + menu$(OptionsMenuID, OptionsMenuDisableSyntax) + END IF OptionsMenuSwapMouse = i menu$(m, i) = "#Swap Mouse Buttons": i = i + 1 + menuDesc$(m, i - 1) = "Swaps functionality of left/right mouse buttons" IF MouseButtonSwapped THEN menu$(OptionsMenuID, OptionsMenuSwapMouse) = CHR$(7) + menu$(OptionsMenuID, OptionsMenuSwapMouse) END IF OptionsMenuPasteCursor = i - menu$(m, i) = "Cursor After #Pasted Content": i = i + 1 + menu$(m, i) = "Cursor After #Paste": i = i + 1 + menuDesc$(m, i - 1) = "Toggles placing the cursor before/after the pasted content" IF PasteCursorAtEnd THEN menu$(OptionsMenuID, OptionsMenuPasteCursor) = CHR$(7) + menu$(OptionsMenuID, OptionsMenuPasteCursor) END IF OptionsMenuShowErrorsImmediately = i - menu$(m, i) = "Show Compilation #Errors Immediately": i = i + 1 + menu$(m, i) = "Syntax Ch#ecker": i = i + 1 + menuDesc$(m, i - 1) = "Toggles instant syntax checker (status area)" IF IDEShowErrorsImmediately THEN menu$(OptionsMenuID, OptionsMenuShowErrorsImmediately) = CHR$(7) + menu$(OptionsMenuID, OptionsMenuShowErrorsImmediately) END IF + OptionsMenuIgnoreWarnings = i + menu$(m, i) = "Ignore #Warnings": i = i + 1 + menuDesc$(m, i - 1) = "Toggles display of warning messages (unused variables, etc)" + IF IgnoreWarnings THEN menu$(OptionsMenuID, OptionsMenuIgnoreWarnings) = CHR$(7) + "Ignore #Warnings" + + 'OptionsMenuAutoComplete = i + 'menu$(m, i) = "Code Suggest#ions": i = i + 1 + 'menuDesc$(m, i - 1) = "Toggles code suggestions/auto-complete" + 'IF IdeAutoComplete THEN menu$(OptionsMenuID, OptionsMenuAutoComplete) = CHR$(7) + "Code Suggest#ions" + + menusize(m) = i - 1 + + m = m + 1: i = 0 + menu$(m, i) = "Tools": i = i + 1 + menu$(m, i) = "#ASCII Chart...": i = i + 1 + menuDesc$(m, i - 1) = "Displays ASCII characters and allows inserting in current program" + menu$(m, i) = "Insert Quick #Keycode Ctrl+K": i = i + 1 + menuDesc$(m, i - 1) = "Captures key codes and inserts in current program" + menu$(m, i) = "#Math Evaluator...": i = i + 1 + menuDesc$(m, i - 1) = "Displays the math evaluator dialog" + menu$(m, i) = "#RGB Color Mixer...": i = i + 1 + menuDesc$(m, i - 1) = "Allows mixing colors to edit/insert _RGB statements" menusize(m) = i - 1 m = m + 1: i = 0 menu$(m, i) = "Help": i = i + 1 menu$(m, i) = "#View Shift+F1": i = i + 1 + menuDesc$(m, i - 1) = "Displays help window" menu$(m, i) = "#Contents Page": i = i + 1 + menuDesc$(m, i - 1) = "Displays help contents page" menu$(m, i) = "Keyword #Index": i = i + 1 + menuDesc$(m, i - 1) = "Displays keyword index page" menu$(m, i) = "#Keywords by Usage": i = i + 1 - menu$(m, i) = "ASCII C#hart": i = i + 1 - menu$(m, i) = "#Math": i = i + 1 + menuDesc$(m, i - 1) = "Displays keywords index by usage" menu$(m, i) = "-": i = i + 1 menu$(m, i) = "#Update Current Page": i = i + 1 - menu$(m, i) = "Update All #Pages": i = i + 1 + menuDesc$(m, i - 1) = "Downloads the latest version of an article from the wiki" + menu$(m, i) = "Update All #Pages...": i = i + 1 + menuDesc$(m, i - 1) = "Downloads the latest version of all articles from the wiki" + menu$(m, i) = "View Current Page On #Wiki": i = i + 1 + menuDesc$(m, i - 1) = "Launches the default browser and navigates to the current article on the wiki" menu$(m, i) = "-": i = i + 1 + 'menu$(m, i) = "Check for #Newer Version...": i = i + 1 + 'menuDesc$(m, i - 1) = "Displays the current version of QB64" menu$(m, i) = "#About...": i = i + 1 + menuDesc$(m, i - 1) = "Displays the current version of QB64" menusize(m) = i - 1 menus = m @@ -360,12 +494,15 @@ FUNCTION ide2 (ignore) menu$(m, i) = "ViewMenuShowLineNumbersSubMenu": i = i + 1 ViewMenuShowLineNumbersSubMenuID = m IF ShowLineNumbers THEN menu$(m, i) = "#Hide Line Numbers" ELSE menu$(m, i) = "#Show Line Numbers" + menuDesc$(m, i) = "Toggles displaying line numbers (side bar)" i = i + 1 menu$(m, i) = "#Background Color": IF ShowLineNumbersUseBG THEN menu$(m, i) = CHR$(7) + menu$(m, i) + menuDesc$(m, i) = "Toggles displaying a different background (side bar)" ViewMenuShowBGID = i IF ShowLineNumbers = 0 THEN menu$(m, i) = "~" + menu$(m, i) i = i + 1 menu$(m, i) = "Sho#w Separator": IF ShowLineNumbersSeparator THEN menu$(m, i) = CHR$(7) + menu$(m, i) + menuDesc$(m, i) = "Toggles showing a separator line (side bar)" ViewMenuShowSeparatorID = i IF ShowLineNumbers = 0 THEN menu$(m, i) = "~" + menu$(m, i) i = i + 1 @@ -378,16 +515,21 @@ FUNCTION ide2 (ignore) idepathsep$ = "/" END IF - initmouse - a$ = "QWERTYUIOP????ASDFGHJKL?????ZXCVBNM": x = 16: FOR i = 1 TO LEN(a$): idealtcode(ASC(MID$(a$, i, 1))) = x: x = x + 1: NEXT - ideroot$ = idezgetroot$ idepath$ = _STARTDIR$ 'new blank text field idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0 + REDIM IdeBreakpoints(iden) AS _BYTE + REDIM IdeSkipLines(iden) AS _BYTE + variableWatchList$ = "" + backupVariableWatchList$ = "": REDIM backupUsedVariableList(1000) AS usedVarList + backupTypeDefinitions$ = "" + watchpointList$ = "" + callstacklist$ = "": callStackLength = 0 ideunsaved = -1 idechangemade = 1 + startPausedPending = 0 redraweverything: ideselect = 0 @@ -407,7 +549,7 @@ FUNCTION ide2 (ignore) IF LOF(150) = 1 THEN CLOSE #150 r$ = iderestore$ - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF r$ = "Y" THEN 'restore OPEN tmpdir$ + "undo2.bin" FOR BINARY AS #150 @@ -439,10 +581,11 @@ FUNCTION ide2 (ignore) f$ = RIGHT$(c$, LEN(c$) - 1) IF FileHasExtension(f$) = 0 THEN f$ = f$ + ".bas" path$ = idezgetfilepath$(ideroot$, f$) + IF ideerror > 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO IDEerrorMessage '(copied from ideopen) ideerror = 2 - OPEN path$ + idepathsep$ + f$ FOR INPUT AS #150: CLOSE #150 + IF _FILEEXISTS(path$ + idepathsep$ + f$) = 0 THEN GOTO IDEerrorMessage PCOPY 3, 0 IF BinaryFormatCheck%(path$, idepathsep$, f$) > 0 THEN GOTO skipload ideerror = 3 @@ -476,6 +619,13 @@ FUNCTION ide2 (ignore) LOOP UNTIL asca = 13 lineinput3buffer = "" iden = n: IF n = 0 THEN idet$ = MKL$(0) + MKL$(0): iden = 1 ELSE idet$ = LEFT$(idet$, i2 - 1) + REDIM IdeBreakpoints(iden) AS _BYTE + REDIM IdeSkipLines(iden) AS _BYTE + variableWatchList$ = "" + backupVariableWatchList$ = "": REDIM backupUsedVariableList(1000) AS usedVarList + backupTypeDefinitions$ = "" + watchpointList$ = "" + callstacklist$ = "": callStackLength = 0 IF ideStartAtLine > 0 AND ideStartAtLine <= iden THEN idecy = ideStartAtLine IF idecy - 10 >= 1 THEN idesy = idecy - 10 @@ -484,7 +634,7 @@ FUNCTION ide2 (ignore) END IF IdeBmkN = 0 ideerror = 1 - ideprogname = f$: _TITLE ideprogname + " - QB64" + ideprogname = f$: _TITLE ideprogname + " - " + WindowTitle IdeImportBookmarks idepath$ + idepathsep$ + ideprogname$ IdeAddRecent idepath$ + idepathsep$ + ideprogname$ END IF 'message 1 @@ -602,6 +752,68 @@ FUNCTION ide2 (ignore) IF ideautorun THEN ideautorun = 0: GOTO idemrunspecial END IF + STATIC AS _BYTE attemptToHost, changingTcpPort + IF vWatchOn = 1 AND attemptToHost = 0 THEN + IF host& = 0 THEN + hostport$ = _TRIM$(STR$(idebaseTcpPort + tempfolderindex)) + ENVIRON "QB64DEBUGPORT=" + hostport$ + host& = _OPENHOST("TCP/IP:" + hostport$) + attemptToHost = -1 + END IF + IF changingTcpPort AND (host& = 0) THEN + result = idemessagebox("$DEBUG MODE", "Cannot receive connections on port" + STR$(idebaseTcpPort) + ".\nCheck your firewall permissions.", "") + PCOPY 3, 0: SCREEN , , 3, 0 + END IF + changingTcpPort = 0 + END IF + + IF IdeDebugMode THEN + idecompiling = 0 + ready = 1 + GOSUB redrawItAll + GOTO ExitDebugMode 'IdeDebugMode must be 0 here, if not, DebugMode errored. + END IF + + IF c$ = CHR$(254) THEN + '$DEBUG mode on + IdeDebugMode = 1 + + REDIM vWatchReceivedData$(1 TO UBOUND(vWatchReceivedData$)) 'empty data array + + EnterDebugMode: + IF idehelp THEN + idewy = idewy + idesubwindow + idehelp = 0 + idesubwindow = 0 + skipdisplay = 0 + IdeSystem = 1 + retval = 1 + END IF + + GOSUB redrawItAll + idecompiling = 0 + ready = 1 + _RESIZE OFF + DebugMode + ExitDebugMode: + IF WatchListToConsole THEN _CONSOLE OFF + UpdateMenuHelpLine "" + SELECT CASE IdeDebugMode + CASE 1 'clean exit + IdeDebugMode = 0 + idefocusline = 0 + debugnextline = 0 + CASE 2 'right-click detected; invoke contextual menu + PCOPY 3, 0 + IdeMakeContextualMenu + idecontextualmenu = 1 + GOTO showmenu + END SELECT + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ + IF idesubwindow <> 0 THEN _RESIZE OFF ELSE _RESIZE ON + GOTO ideloop + END IF + IF c$ = CHR$(11) THEN idecompiling = 0 ready = 1 @@ -637,46 +849,44 @@ FUNCTION ide2 (ignore) LOCATE , , 0 'note: menu bar shouldn't need repairing! - 'COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; 'repair menu bar + 'COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ 'repair menu bar IF c$ <> CHR$(3) THEN - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 IF ready THEN IF IDEShowErrorsImmediately THEN - LOCATE idewy - 3, 2: PRINT "OK"; 'report OK status + _PRINTSTRING (2, idewy - 3), "OK" 'report OK status + statusarealink = 0 IF totalWarnings > 0 AND showexecreated = 0 THEN COLOR 11, 1 - PRINT " ("; LTRIM$(STR$(totalWarnings)) + " warning"; - IF totalWarnings > 1 THEN PRINT "s"; - PRINT " - click here or Ctrl+W to view)"; + msg$ = " (" + LTRIM$(STR$(totalWarnings)) + " warning" + IF totalWarnings > 1 THEN msg$ = msg$ + "s" + msg$ = msg$ + " - click here or Ctrl+W to view)" + _PRINTSTRING (4, idewy - 3), msg$ + statusarealink = 4 END IF + IF waitingForVarList THEN GOSUB showVarListReady END IF END IF IF showexecreated THEN showexecreated = 0 - LOCATE idewy - 3, 2 - IF MakeAndroid THEN - PRINT "Project [programs\android\" + file$ + "] created"; + IF os$ = "LNX" THEN + _PRINTSTRING (2, idewy - 3), "Executable file created" ELSE - IF os$ = "LNX" THEN - PRINT "Executable file created"; - ELSE - PRINT ".EXE file created"; - END IF + _PRINTSTRING (2, idewy - 3), ".EXE file created" + END IF - IF SaveExeWithSource THEN - LOCATE idewy - 2, 2 - PRINT "Location: "; - COLOR 11, 1 - IF path.exe$ = "" THEN path.exe$ = getfilepath$(COMMAND$(0)) - IF RIGHT$(path.exe$, 1) <> pathsep$ THEN path.exe$ = path.exe$ + pathsep$ - IF POS(0) + LEN(path.exe$) > idewx THEN - PRINT "..."; RIGHT$(path.exe$, idewx - 15); - ELSE - PRINT path.exe$; - END IF + IF SaveExeWithSource THEN + COLOR 11, 1 + location$ = lastBinaryGenerated$ + IF path.exe$ = "" THEN location$ = _STARTDIR$ + pathsep$ + location$ + msg$ = "Location: " + location$ + IF 2 + LEN(msg$) > idewx THEN + msg$ = "Location: " + STRING$(3, 250) + RIGHT$(location$, idewx - 15) END IF + _PRINTSTRING (2, idewy - 2), msg$ + statusarealink = 3 END IF END IF @@ -722,7 +932,7 @@ FUNCTION ide2 (ignore) idedeltxt 'removes temporary strings (typically created by guibox commands) by setting an index to 0 IF idesubwindow <> 0 THEN _RESIZE OFF ELSE _RESIZE ON - IF _RESIZE OR ForceResize THEN + IF (_RESIZE OR ForceResize) AND timeElapsedSince(QB64_uptime!) > 1.5 THEN IF idesubwindow <> 0 THEN 'If there's a subwindow up, don't resize as it screws all sorts of things up. ForceResize = -1 ELSE @@ -743,6 +953,7 @@ FUNCTION ide2 (ignore) _PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details _PALETTECOLOR 5, IDEBracketHighlightColor, 0 _PALETTECOLOR 6, IDEBackgroundColor2, 0 + _PALETTECOLOR 7, IDEChromaColor, 0 _PALETTECOLOR 8, IDENumbersColor, 0 _PALETTECOLOR 10, IDEMetaCommandColor, 0 _PALETTECOLOR 11, IDECommentColor, 0 @@ -750,25 +961,27 @@ FUNCTION ide2 (ignore) _PALETTECOLOR 13, IDETextColor, 0 _PALETTECOLOR 14, IDEQuoteColor, 0 + SCREEN , , 3, 0 'static background COLOR 0, 7 - LOCATE 1, 1: PRINT SPACE$(idewx); - LOCATE 1, 1: PRINT LEFT$(menubar$, idewx); + _PRINTSTRING (1, 1), SPACE$(idewx) + _PRINTSTRING (1, 1), LEFT$(menubar$, idewx) COLOR 7, 1: idebox 1, 2, idewx, idewy - 5 COLOR 7, 1: idebox 1, idewy - 4, idewx, 5 'edit corners - COLOR 7, 1: LOCATE idewy - 4, 1: PRINT CHR$(195);: LOCATE idewy - 4, idewx: PRINT CHR$(180); + COLOR 7, 1: _PRINTSTRING (1, idewy - 4), CHR$(195): _PRINTSTRING (idewx, idewy - 4), CHR$(180) GOSUB UpdateSearchBar 'status bar - COLOR 0, 3: LOCATE idewy + idesubwindow, 1: PRINT SPACE$(idewx); + COLOR 0, 3: _PRINTSTRING (1, idewy + idesubwindow), SPACE$(idewx) + UpdateIdeInfo q = idevbar(idewx, idewy - 3, 3, 1, 1) q = idevbar(idewx, 3, idewy - 8, 1, 1) q = idehbar(2, idewy - 5, idewx - 2, 1, 1) - GOSUB UpdateTitleOfMainWindow + UpdateTitleOfMainWindow COLOR 7, 1 _PRINTSTRING (2, idewy - 3), "Resizing..." @@ -779,13 +992,15 @@ FUNCTION ide2 (ignore) ideshowtext END IF + PCOPY 3, 0 + _DISPLAY - _LIMIT 30 + _LIMIT 15 LOOP WHILE _RESIZE IF retval = 1 THEN 'screen dimensions have changed and everything must be redrawn/reapplied - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", STR$(idewx) - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", STR$(idewy) + WriteConfigSetting windowSettingsSection$, "IDE_Width", STR$(idewx) + WriteConfigSetting windowSettingsSection$, "IDE_Height", STR$(idewy) END IF retval = 1 @@ -800,86 +1015,8 @@ FUNCTION ide2 (ignore) LOCATE , , 0 - 'Get the currently being edited SUB/FUNCTION name to show after the main window title - '(standard QB4.5 behavior). The FOR...NEXT loop was taken and adapted from FUNCTION - 'idesubs$, but it goes backwards from the current line to the start of the program - 'to see if we're inside a SUB/FUNCTION. EXITs FOR once that is figured. - sfname$ = "" - FOR currSF_CHECK = idecy TO 1 STEP -1 - thisline$ = idegetline(currSF_CHECK) - thisline$ = LTRIM$(RTRIM$(thisline$)) - isSF = 0 - ncthisline$ = UCASE$(thisline$) - IF LEFT$(ncthisline$, 4) = "SUB " THEN isSF = 1 - IF LEFT$(ncthisline$, 9) = "FUNCTION " THEN isSF = 2 - IF LEFT$(ncthisline$, 7) = "END SUB" AND currSF_CHECK < idecy THEN EXIT FOR - IF LEFT$(ncthisline$, 12) = "END FUNCTION" AND currSF_CHECK < idecy THEN EXIT FOR - IF isSF THEN - IF RIGHT$(ncthisline$, 7) = " STATIC" THEN - thisline$ = RTRIM$(LEFT$(thisline$, LEN(thisline$) - 7)) - END IF - - IF isSF = 1 THEN - thisline$ = RIGHT$(thisline$, LEN(thisline$) - 4) - ELSE - thisline$ = RIGHT$(thisline$, LEN(thisline$) - 9) - END IF - thisline$ = LTRIM$(RTRIM$(thisline$)) - checkargs = INSTR(thisline$, "(") - IF checkargs THEN - sfname$ = RTRIM$(LEFT$(thisline$, checkargs - 1)) - ELSE - sfname$ = thisline$ - END IF - - 'It could be that SUB or FUNCTION is inside a DECLARE LIBRARY. - 'In such case, it must be ignored: - InsideDECLARE = 0 - FOR declib_CHECK = currSF_CHECK TO 1 STEP -1 - thisline$ = idegetline(declib_CHECK) - thisline$ = LTRIM$(RTRIM$(thisline$)) - ncthisline$ = UCASE$(thisline$) - IF LEFT$(ncthisline$, 8) = "DECLARE " AND INSTR(ncthisline$, " LIBRARY") > 0 THEN InsideDECLARE = -1: EXIT FOR - IF LEFT$(ncthisline$, 11) = "END DECLARE" THEN EXIT FOR - NEXT - - IF InsideDECLARE = -1 THEN - sfname$ = "" - ELSE - 'Ok, we're not inside a DECLARE LIBRARY. - 'But what if we're past the end of this module's SUBs and FUNCTIONs, - 'and all that's left is a bunch of comments or $INCLUDES? - 'We'll also check for that: - endedSF = 0 - FOR endSF_CHECK = idecy TO iden - thisline$ = idegetline(endSF_CHECK) - thisline$ = LTRIM$(RTRIM$(thisline$)) - ncthisline$ = UCASE$(thisline$) - IF LEFT$(ncthisline$, 7) = "END SUB" THEN endedSF = 1: EXIT FOR - IF LEFT$(ncthisline$, 12) = "END FUNCTION" THEN endedSF = 2: EXIT FOR - IF LEFT$(ncthisline$, 4) = "SUB " AND endSF_CHECK = idecy THEN endedSF = 1: EXIT FOR - IF LEFT$(ncthisline$, 9) = "FUNCTION " AND endSF_CHECK = idecy THEN endedSF = 2: EXIT FOR - IF LEFT$(ncthisline$, 4) = "SUB " AND InsideDECLARE = 0 THEN EXIT FOR - IF LEFT$(ncthisline$, 9) = "FUNCTION " AND InsideDECLARE = 0 THEN EXIT FOR - IF LEFT$(ncthisline$, 8) = "DECLARE " AND INSTR(ncthisline$, " LIBRARY") > 0 THEN InsideDECLARE = -1 - IF LEFT$(ncthisline$, 11) = "END DECLARE" THEN InsideDECLARE = 0 - NEXT - IF endedSF = 0 THEN sfname$ = "" ELSE EXIT FOR - END IF - END IF - NEXT - - 'attempt to cleanse sfname$, just in case there are any comments or other unwanted stuff - FOR CleanseSFNAME = 1 TO LEN(sfname$) - SELECT CASE MID$(sfname$, CleanseSFNAME, 1) - CASE " ", "'", ":" - sfname$ = LEFT$(sfname$, CleanseSFNAME - 1) - EXIT FOR - END SELECT - NEXT - 'update title of main window - GOSUB UpdateTitleOfMainWindow + UpdateTitleOfMainWindow 'Draw navigation buttons (QuickNav) IF EnableQuickNav THEN GOSUB DrawQuickNav @@ -896,62 +1033,75 @@ FUNCTION ide2 (ignore) IF LEFT$(IdeInfo, 19) <> "Selection length = " THEN IdeInfo = "" UpdateIdeInfo - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 'scrolling unavailable, but may span multiple lines IF compfailed THEN a$ = MID$(c$, 2, LEN(c$) - 5) - - x = 1 + x = 2 y = idewy - 3 - FOR i = 1 TO LEN(a$) - IF ASC(a$, i) = 0 THEN - IF _DEFAULTCOLOR = 7 THEN COLOR 11 ELSE COLOR 7 - _CONTINUE - END IF - x = x + 1: IF x = idewx THEN x = 2: y = y + 1 - IF y > idewy - 1 THEN EXIT FOR - LOCATE y, x - PRINT CHR$(ASC(a$, i)); - NEXT + printWrapStatus x, y, x, a$ + statusarealink = 1 ELSE a$ = MID$(c$, 2, LEN(c$) - 5) - l = CVL(RIGHT$(c$, 4)): IF l <> 0 THEN idefocusline = l - x = 1 + x = 2 y = idewy - 3 - IF l <> 0 AND idecy = l THEN a$ = a$ + " on current line" + IF l <> 0 AND idecy = l THEN onCurrentLine = LEN(a$): a$ = a$ + CHR$(1) + " on current line" - FOR i = 1 TO LEN(a$) - x = x + 1: IF x = idewx THEN x = 2: y = y + 1 - IF y > idewy - 1 THEN EXIT FOR - LOCATE y, x - PRINT CHR$(ASC(a$, i)); - NEXT + hasReference = INSTR(a$, " - Reference: ") + IF hasReference THEN + hasReference = hasReference + 13 + a$ = LEFT$(a$, hasReference) + CHR$(2) + MID$(a$, hasReference + 1) + ELSE + hasReference = INSTR(a$, "Expected ") + IF hasReference THEN + hasReference = hasReference + 8 + a$ = LEFT$(a$, hasReference) + CHR$(2) + MID$(a$, hasReference + 1) + END IF + END IF + + printWrapStatus x, y, x, a$ IF l <> 0 AND idecy <> l THEN a$ = " on line" + STR$(l) + " (click here or Ctrl+Shift+G to jump there)" COLOR 11, 1 - FOR i = 1 TO LEN(a$) - x = x + 1: IF x = idewx THEN x = 2: y = y + 1 - IF y > idewy - 1 THEN EXIT FOR - LOCATE y, x - PRINT CHR$(ASC(a$, i)); - NEXT + printWrapStatus POS(0), CSRLIN, 2, a$ + statusarealink = 2 END IF + + y = CSRLIN + IF y < idewy - 1 AND linefragment <> "[INFORMATION UNAVAILABLE]" THEN + temp$ = linefragment + FOR i = 1 TO LEN(temp$) + IF MID$(temp$, i, 1) = sp$ THEN MID$(temp$, i, 1) = " " + NEXT + temp$ = _TRIM$(temp$) + IF LEN(temp$) THEN + y = y + 1: x = 1 + temp$ = "Caused by (or after): " + CHR$(1) + temp$ + + COLOR 7, 1 + FOR i = 1 TO LEN(temp$) + x = x + 1: IF x = idewx THEN x = 2: y = y + 1 + IF y > idewy - 1 THEN EXIT FOR + IF ASC(temp$, i) = 1 THEN i = i + 1: COLOR 11, 1 + _PRINTSTRING (x, y), CHR$(ASC(temp$, i)) + NEXT + END IF + END IF + END IF END IF END IF IF idechangemade THEN IF IDEShowErrorsImmediately OR IDECompilationRequested THEN - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window - + clearStatusWindow 0 IdeInfo = "" - - LOCATE idewy - 3, 2: PRINT "..."; 'assume new compilation will begin + _PRINTSTRING (2, idewy - 3), STRING$(3, 250) 'assume new compilation will begin "..." END IF END IF @@ -969,52 +1119,15 @@ FUNCTION ide2 (ignore) 'COLOR 0, 7: LOCATE idewy, (idewx - 6) / 2: PRINT " Help " 'create and draw back string - Back_Str$ = STRING$(1000, 0) - Back_Str_I$ = STRING$(4000, 0) - top = UBOUND(back$) - FOR x = 1 TO top - n$ = Back_Name$(x) - IF x = Help_Back_Pos THEN p = LEN(Back_Str$) - Back_Str$ = Back_Str$ + " " - Back_Str_I$ = Back_Str_I$ + MKL$(x) - FOR x2 = 1 TO LEN(n$) - Back_Str$ = Back_Str$ + CHR$(ASC(n$, x2)) - Back_Str_I$ = Back_Str_I$ + MKL$(x) - NEXT - Back_Str$ = Back_Str$ + " " - Back_Str_I$ = Back_Str_I$ + MKL$(x) + GOSUB HelpAreaShowBackLinks - IF x <> top THEN - Back_Str$ = Back_Str$ + CHR$(0) - Back_Str_I$ = Back_Str_I$ + MKL$(0) - END IF - NEXT - Back_Str$ = Back_Str$ + STRING$(1000, 0) - Back_Str_I$ = Back_Str_I$ + STRING$(4000, 0) - Back_Str_Pos = p - idewx \ 2 + (LEN(Back_Name$(Help_Back_Pos)) + 2) \ 2 + 3 - 'COLOR 1, 2 - 'LOCATE idewy, 2: PRINT MID$(Back_Str$, Back_Str_Pos, idewx - 5) - LOCATE idewy, 2 - FOR x = Back_Str_Pos TO Back_Str_Pos + idewx - 6 - i = CVL(MID$(Back_Str_I$, (x - 1) * 4 + 1, 4)) - a = ASC(Back_Str$, x) - IF a THEN - IF IdeSystem = 3 THEN COLOR 0, 7 ELSE COLOR 7, 0 - IF i < Help_Back_Pos THEN COLOR 9 - IF i > Help_Back_Pos THEN COLOR 9 - PRINT CHR$(a); - ELSE - COLOR 7, 0 - PRINT CHR$(196); - END IF - NEXT 'Help_Search_Str IF IdeSystem = 3 AND LEFT$(IdeInfo, 1) <> CHR$(0) THEN a$ = "" IF LEN(Help_Search_Str) THEN a$ = Help_Search_Str IF LEN(a$) > 20 THEN a$ = STRING$(3, 250) + RIGHT$(a$, 17) - a$ = "[" + a$ + "](DELETE=next)" + a$ = "[" + a$ + "] (TAB=next)" IdeInfo = a$ ELSE IdeInfo = "Start typing to search for text in this help page" @@ -1052,15 +1165,30 @@ FUNCTION ide2 (ignore) END IF 'skipdisplay - STATIC idechangedbefore AS _BYTE + IF WhiteListQB64FirstTimeMsg = 0 THEN + IF INSTR(_OS$, "WIN") THEN whiteListProcess$ = "and the process 'qb64.exe' " ELSE whiteListProcess$ = "" + result = idemessagebox("Welcome to QB64", "QB64 is an independently distributed program, and as such" + CHR$(10) + _ + "both 'qb64" + extension$ + "' and the programs you create with it may" + CHR$(10) + _ + "eventually be flagged as false positives by your" + CHR$(10) + _ + "antivirus/antimalware software." + CHR$(10) + CHR$(10) + _ + "It is advisable to whitelist your whole QB64 folder" + CHR$(10) + _ + whiteListProcess$ + "to avoid operation errors.", "#OK;#Don't show this again") + + PCOPY 3, 0: SCREEN , , 3, 0 + IF result = 2 THEN + WriteConfigSetting generalSettingsSection$, "WhiteListQB64FirstTimeMsg", "True" + END IF + WhiteListQB64FirstTimeMsg = -1 + END IF + IF idechangemade THEN IF idelayoutallow THEN idelayoutallow = idelayoutallow - 1 + watchpointList$ = "" idecurrentlinelayouti = 0 'invalidate idefocusline = 0 idechangemade = 0 - idechangedbefore = -1 IDECompilationRequested = 0 compfailed = 0 IF ideunsaved = -1 THEN ideunsaved = 0 ELSE ideunsaved = 1 @@ -1196,11 +1324,6 @@ FUNCTION ide2 (ignore) END IF IDEBuildModeChanged = 0 - IF MakeAndroid THEN - 'Cleanup excess files in temp folder - SHELL _HIDE "cmd /c del /q " + tmpdir$ + "ret*.txt " + tmpdir$ + "data*.txt " + tmpdir$ + "free*.txt" - END IF - idecompiling = 1 ide2 = 2 idecompiledline$ = idegetline(1) @@ -1212,7 +1335,7 @@ FUNCTION ide2 (ignore) change = 0 waitforinput: - + IF startPausedPending THEN GOTO idemrun IF idecurrentlinelayouti THEN IF idecy <> idecurrentlinelayouti THEN idesetline idecurrentlinelayouti, idecurrentlinelayout$ @@ -1226,7 +1349,12 @@ FUNCTION ide2 (ignore) GetInput IF iCHANGED THEN - IF (mX <> mox OR mY <> moy) AND mB <> 0 THEN change = 1 'dragging mouse + STATIC mox, moy + IF (mX <> mox OR mY <> moy) AND mB <> 0 THEN 'dragging mouse + mox = mX + moy = mY + change = 1 + END IF IF mB <> mOB THEN change = 1 'button changed IF mB2 <> mOB2 THEN change = 1 'button changed IF mCLICK <> 0 OR mCLICK2 <> 0 THEN change = 1 @@ -1244,8 +1372,8 @@ FUNCTION ide2 (ignore) IF IDE_AutoPosition THEN IF IDE_TopPosition <> _SCREENY OR IDE_LeftPosition <> _SCREENX THEN IF _SCREENY >= -_HEIGHT * _FONTHEIGHT AND _SCREENX >= -_WIDTH * _FONTWIDTH THEN 'Don't record the position if it's off the screen, past the point where we can drag it back into a different position. - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_TopPosition", STR$(_SCREENY) - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_LeftPosition", STR$(_SCREENX) + WriteConfigSetting windowSettingsSection$, "IDE_TopPosition", STR$(_SCREENY) + WriteConfigSetting windowSettingsSection$, "IDE_LeftPosition", STR$(_SCREENX) IDE_TopPosition = _SCREENY: IDE_LeftPosition = _SCREENX END IF END IF @@ -1260,59 +1388,128 @@ FUNCTION ide2 (ignore) _FINISHDROP END IF - 'Hover/click (QuickNav) + 'Hover/click (QuickNav, "Find" field, version number, line number) + updateHover = 0 + IF QuickNavTotal > 0 THEN + DO UNTIL QuickNavHistory(QuickNavTotal).idecy <= iden + 'make sure that the line number in history still exists + QuickNavTotal = QuickNavTotal - 1 + IF QuickNavTotal = 0 THEN EXIT DO + LOOP + END IF + IF IdeSystem = 1 AND QuickNavTotal > 0 AND EnableQuickNav THEN IF mY = 2 THEN IF mX >= 4 AND mX <= 6 THEN - QuickNavHover = -1 - LOCATE 2, 4 - COLOR 15, 3 - popup$ = " " + CHR$(17) + " back to line " + str2$(QuickNavHistory(QuickNavTotal)) + " " - PRINT popup$; + IF QuickNavHover = 0 THEN + QuickNavHover = -1 + COLOR 15, 3 + popup$ = " " + CHR$(17) + " back to line " + str2$(QuickNavHistory(QuickNavTotal).idecy) + " " + _PRINTSTRING (4, 2), popup$ - 'shadow - COLOR 2, 0 - FOR x2 = 6 TO 4 + LEN(popup$) - LOCATE 3, x2: PRINT CHR$(SCREEN(3, x2)); - NEXT + 'shadow + COLOR 2, 0 + FOR x2 = 6 TO 4 + LEN(popup$) + _PRINTSTRING (x2, 3), CHR$(SCREEN(3, x2)) + NEXT + updateHover = -1 + END IF - PCOPY 3, 0 - - IF mB THEN + IF mCLICK THEN ideselect = 0 - idecy = QuickNavHistory(QuickNavTotal) + idecy = QuickNavHistory(QuickNavTotal).idecy + idecx = QuickNavHistory(QuickNavTotal).idecx + idesx = QuickNavHistory(QuickNavTotal).idesx + idecentercurrentline QuickNavTotal = QuickNavTotal - 1 - _DELAY .2 - GOTO waitforinput + GOTO ideloop END IF ELSE - IF QuickNavHover = -1 THEN - QuickNavHover = 0 - GOSUB UpdateTitleOfMainWindow - GOSUB DrawQuickNav - ideshowtext - PCOPY 3, 0 - END IF + GOTO RestoreBGQuickNav END IF ELSE + RestoreBGQuickNav: IF QuickNavHover = -1 THEN QuickNavHover = 0 - GOSUB UpdateTitleOfMainWindow + UpdateTitleOfMainWindow GOSUB DrawQuickNav ideshowtext - PCOPY 3, 0 + updateHover = -1 END IF END IF END IF - IF _WINDOWHASFOCUS THEN - LOCATE , , 1 - _PALETTECOLOR 5, IDEBracketHighlightColor, 0 - _PALETTECOLOR 6, IDEBackgroundColor2, 0 + IF mY = idewy - 4 AND mX > idewx - (idesystem2.w + 10) AND mX <= idewx - (idesystem2.w + 8) + 2 THEN '"Find" button + IF FindFieldHover = 0 THEN + 'Highlight "Find" + COLOR 1, 3 + _PRINTSTRING (idewx - (idesystem2.w + 9), idewy - 4), "Find" + updateHover = -1 + FindFieldHover = -1 + END IF ELSE - LOCATE , , 0 - _PALETTECOLOR 5, IDEBackgroundColor, 0 - _PALETTECOLOR 6, IDEBackgroundColor, 0 + IF FindFieldHover = -1 THEN + 'Restore "Find" bg + FindFieldHover = 0 + COLOR 3, 1 + _PRINTSTRING (idewx - (idesystem2.w + 9), idewy - 4), "Find" + updateHover = -1 + END IF + END IF + + IF mY = idewy + idesubwindow AND mX >= idewx - 21 - LEN(versionStringStatus$) AND mX < idewx - 21 THEN + 'Highlight Version Number + IF VersionInfoHover = 0 THEN + COLOR 13, 6 + _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ + updateHover = -1 + VersionInfoHover = -1 + END IF + IF mCLICK THEN PCOPY 0, 2: GOTO helpabout + ELSE + IF VersionInfoHover = -1 THEN + 'Restore "Find" bg + VersionInfoHover = 0 + COLOR 2, 3 + _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ + updateHover = -1 + END IF + END IF + + IF mY = idewy + idesubwindow AND mX >= idewx - 20 AND mX =< idewx THEN + 'Highlight line number + IF LineNumberHover = 0 THEN + COLOR 13, 6 + _PRINTSTRING (idewx - 20, idewy + idesubwindow), lineNumberStatus$ + LineNumberHover = -1 + updateHover = -1 + END IF + IF mCLICK THEN + PCOPY 0, 2 + idegotobox + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + ELSE + IF LineNumberHover = -1 THEN + 'Restore "Find" bg + LineNumberHover = 0 + COLOR 0, 3 + _PRINTSTRING (idewx - 20, idewy + idesubwindow), lineNumberStatus$ + updateHover = -1 + END IF + END IF + + IF os$ = "WIN" OR MacOSX = 1 THEN + IF _WINDOWHASFOCUS THEN + LOCATE , , 1 + _PALETTECOLOR 5, IDEBracketHighlightColor, 0 + _PALETTECOLOR 6, IDEBackgroundColor2, 0 + ELSE + LOCATE , , 0 + _PALETTECOLOR 5, IDEBackgroundColor, 0 + _PALETTECOLOR 6, IDEBackgroundColor, 0 + END IF END IF IF KALT THEN 'alt held @@ -1322,7 +1519,7 @@ FUNCTION ide2 (ignore) idealthighlight = 1 LOCATE , , 0: COLOR 15, 7: x = 4 FOR i = 1 TO menus - LOCATE 1, x: PRINT LEFT$(menu$(i, 0), 1); + _PRINTSTRING (x, 1), LEFT$(menu$(i, 0), 1) x = x + LEN(menu$(i, 0)) + 2 IF i = menus - 1 THEN x = idewx - LEN(menu$(menus, 0)) - 1 NEXT @@ -1335,9 +1532,9 @@ FUNCTION ide2 (ignore) IF idealthighlight = 1 THEN 'remove highlight idealthighlight = 0 - LOCATE , , 0: COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; + LOCATE , , 0: COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ IF ideentermenu = 1 AND KCONTROL = 0 THEN 'alt was pressed then released - IF _WINDOWHASFOCUS THEN + IF _WINDOWHASFOCUS OR os$ = "LNX" THEN LOCATE , , , IDENormalCursorStart, IDENormalCursorEnd skipdisplay = 0 ideentermenu = 0 @@ -1350,6 +1547,8 @@ FUNCTION ide2 (ignore) END IF 'alt not held + IF updateHover THEN PCOPY 3, 0 + IF change = 0 THEN 'continue compilation? @@ -1378,7 +1577,6 @@ FUNCTION ide2 (ignore) END IF _LIMIT 16 - GOTO waitforinput END IF 'change=0 @@ -1395,87 +1593,139 @@ FUNCTION ide2 (ignore) IF mX >= 2 AND mX <= idewx AND mY >= idewy - 3 AND mY <= idewy - 1 THEN IF SCREEN(mY, mX, 1) = 11 + 1 * 16 THEN 'if the text clicked is in COLOR 11 it's a link 'Status area links - '1- Link to compilelog.txt: - IF compfailed THEN - IF INSTR(_OS$, "WIN") THEN - SHELL _DONTWAIT QuotedFilename$(compilelog$) - ELSEIF INSTR(_OS$, "MAC") THEN - SHELL _DONTWAIT "open " + QuotedFilename$(compilelog$) - ELSE - SHELL _DONTWAIT "xdg-open " + QuotedFilename$(compilelog$) - END IF - GOTO specialchar - END IF - - '2- Link to the line that has a compiler error: - IF idefocusline THEN - idecx = 1 - AddQuickNavHistory idecy - idecy = idefocusline - ideselect = 0 - GOTO specialchar - END IF - - '3- Link to the output folder when "Output EXE to source #folder" is checked: - IF showexecreated THEN - IF INSTR(_OS$, "WIN") THEN - SHELL _DONTWAIT "explorer /select," + QuotedFilename$(path.exe$ + file$ + extension$) - ELSEIF INSTR(_OS$, "MAC") THEN - SHELL _DONTWAIT "open " + QuotedFilename$(path.exe$) - ELSE - SHELL _DONTWAIT "xdg-open " + QuotedFilename$(path.exe$) - END IF - GOTO specialchar - END IF - - '4- Link to Warnings dialog: - IF totalWarnings > 0 THEN - retval = idewarningbox - 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - GOTO specialchar - END IF + SELECT CASE statusarealink + CASE 1 + '1- Link to compilelog.txt: + IF INSTR(_OS$, "WIN") THEN + SHELL _DONTWAIT QuotedFilename$(compilelog$) + ELSEIF INSTR(_OS$, "MAC") THEN + SHELL _DONTWAIT "open " + QuotedFilename$(compilelog$) + ELSE + SHELL _DONTWAIT "xdg-open " + QuotedFilename$(compilelog$) + END IF + GOTO specialchar + CASE 2 + '2- Link to the line that has a compiler error: + idecx = 1 + AddQuickNavHistory + idecy = idefocusline + ideselect = 0 + GOTO specialchar + CASE 3 + '3- Link to the output folder when "Output EXE to source #folder" is checked: + IF INSTR(_OS$, "WIN") THEN + SHELL _DONTWAIT "explorer /select," + QuotedFilename$(lastBinaryGenerated$) + ELSEIF INSTR(_OS$, "MAC") THEN + SHELL _DONTWAIT "open " + QuotedFilename$(path.exe$) + ELSE + SHELL _DONTWAIT "xdg-open " + QuotedFilename$(path.exe$) + END IF + GOTO specialchar + CASE 4 + '4- Link to Warnings dialog: + retval = idewarningbox + 'retval is ignored + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO specialchar + END SELECT END IF END IF END IF - 'IF KB = KEY_F5 AND KCTRL THEN 'run detached - ' UseAndroid 0 - ' idemdetached: - ' iderunmode = 1 - ' GOTO idemrunspecial - 'END IF + IF KB = KEY_F7 OR KB = KEY_F8 THEN + GOTO startPausedMenuHandler + END IF + + IF KB = KEY_F9 THEN 'toggle breakpoint + GOTO toggleBreakpoint + END IF + + IF KB = KEY_F10 THEN 'clear all breakpoints + IF KCTRL THEN + GOTO unskipAllLines + ELSE + GOTO clearAllBreakpoints + END IF + END IF IF KB = KEY_F11 THEN 'make exe only - UseAndroid 0 idemexe: iderunmode = 2 GOTO idemrunspecial END IF + IF KB = KEY_F12 THEN 'show call stack + IF callStackLength > 0 THEN + GOTO showCallStackDialog + ELSE + result = idemessagebox("$DEBUG MODE", "No call stack log available.", "") + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + END IF + + IF KB = KEY_F4 THEN 'variable watch + GOTO showWatchList + END IF + IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted - UseAndroid 0 + startPaused = 0 idemrun: + startPausedPending = 0 iderunmode = 1 'run detached; = 0 'standard run idemrunspecial: + IDECompilationRequested = -1 + + IF ExeToSourceFolderFirstTimeMsg = 0 THEN + IF SaveExeWithSource THEN + result = idemessagebox("Run", "Your program will be compiled to the same folder where your" + CHR$(10) + _ + "source code is saved. You can change that by unchecking the" + CHR$(10) + _ + "option 'Output EXE to Source Folder' in the Run menu.", "#OK;#Don't show this again;#Cancel") + ELSE + result = idemessagebox("Run", "Your program will be compiled to your QB64 folder. You can" + CHR$(10) + _ + "change that by checking the option 'Output EXE to Source" + CHR$(10) + _ + "Folder' in the Run menu.", "#OK;#Don't show this again;#Cancel") + END IF + IF result = 2 THEN + WriteConfigSetting generalSettingsSection$, "ExeToSourceFolderFirstTimeMsg", "True" + ExeToSourceFolderFirstTimeMsg = -1 + ELSEIF result = 3 THEN + PCOPY 3, 0: SCREEN , , 3, 0 + LOCATE , , 0 + clearStatusWindow 0 + _PRINTSTRING (2, idewy - 3), "Compilation request canceled." + GOTO specialchar + END IF + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + 'run program IF ready <> 0 AND idechangemade = 0 THEN LOCATE , , 0 - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 IF idecompiled THEN IF iderunmode = 2 AND _FILEEXISTS(lastBinaryGenerated$) THEN - LOCATE idewy - 3, 2 - IF os$ = "LNX" THEN - PRINT "Already created executable file!"; + _PRINTSTRING (2, idewy - 3), "Already created executable file!" ELSE - PRINT "Already created .EXE file!"; + _PRINTSTRING (2, idewy - 3), "Already created .EXE file!" END IF + COLOR 11, 1 + location$ = lastBinaryGenerated$ + IF path.exe$ = "" THEN location$ = _STARTDIR$ + pathsep$ + location$ + msg$ = "Location: " + location$ + IF 2 + LEN(msg$) > idewx THEN + msg$ = "Location: " + STRING$(3, 250) + RIGHT$(location$, idewx - 15) + END IF + _PRINTSTRING (2, idewy - 2), msg$ + statusarealink = 3 + + GOTO specialchar ELSEIF _FILEEXISTS(lastBinaryGenerated$) = 0 THEN idecompiled = 0 @@ -1483,20 +1733,20 @@ FUNCTION ide2 (ignore) END IF dummy = DarkenFGBG(1) - BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem - COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status " + BkpIdeSystem = IdeSystem: IdeSystem = 2: UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem + COLOR 1, 7: _PRINTSTRING ((idewx - 8) / 2, idewy - 4), " Status " COLOR 15, 1 - LOCATE idewy - 3, 2: PRINT "Starting program..."; + _PRINTSTRING (2, idewy - 3), "Starting program..." ELSE mustGenerateExe: dummy = DarkenFGBG(1) - BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem - COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status " + BkpIdeSystem = IdeSystem: IdeSystem = 2: UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem + COLOR 1, 7: _PRINTSTRING ((idewx - 8) / 2, idewy - 4), " Status " COLOR 15, 1 IF os$ = "LNX" THEN - LOCATE idewy - 3, 2: PRINT "Creating executable file..."; + _PRINTSTRING (2, idewy - 3), "Creating executable file..." ELSE - LOCATE idewy - 3, 2: PRINT "Creating .EXE file..."; + _PRINTSTRING (2, idewy - 3), "Creating .EXE file..." END IF END IF @@ -1520,9 +1770,9 @@ FUNCTION ide2 (ignore) 'correct status message LOCATE , , 0 - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 - LOCATE idewy - 3, 2: PRINT "Checking program... (editing program will cancel request)"; + _PRINTSTRING (2, idewy - 3), "Checking program... (editing program will cancel request)" 'must move the cursor back to its correct location ideshowtext @@ -1554,7 +1804,7 @@ FUNCTION ide2 (ignore) a$ = UCASE$(LEFT$(menu$(i, 0), 1)) IF KALT AND UCASE$(K$) = a$ THEN m = i - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ PCOPY 3, 0 GOTO showmenu END IF @@ -1564,14 +1814,26 @@ FUNCTION ide2 (ignore) K$ = "" IdeSystem = 2 IF LEN(idefindtext) THEN idesystem2.issel = -1: idesystem2.sx1 = 0: idesystem2.v1 = LEN(idefindtext) + GOTO specialchar END IF + IF KCTRL AND UCASE$(K$) = "K" THEN + K$ = "" + GOTO ideQuickKeycode + END IF + + IF KCTRL AND KB = KEY_F3 THEN IF IdeSystem = 3 THEN IdeSystem = 1 GOTO idefindjmp END IF - IF KB = KEY_F3 THEN + IF KALT AND KB = KEY_F3 THEN + IF IdeSystem = 3 THEN IdeSystem = 1 + GOTO idefindchangejmp + END IF + + IF KB = KEY_F3 OR K$ = CHR$(28) THEN IF IdeSystem = 3 THEN IdeSystem = 1 idemf3: IF idefindtext <> "" THEN @@ -1583,7 +1845,7 @@ FUNCTION ide2 (ignore) GOSUB UpdateSearchBar IF KSHIFT THEN idefindinvert = 1 IdeAddSearched idefindtext - idefindagain + idefindagain -1 ELSE GOTO idefindjmp END IF @@ -1597,7 +1859,7 @@ FUNCTION ide2 (ignore) idehelp = 1 skipdisplay = 0 IdeSystem = 3 - retval = 1: GOTO redraweverything2 + retval = 1: GOSUB redrawItAll END IF IdeSystem = 3 GOTO specialchar @@ -1755,9 +2017,9 @@ FUNCTION ide2 (ignore) GOSUB UpdateSearchBar f$ = idesearchedbox IF LEN(f$) THEN idefindtext = f$ - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 idealthighlight = 0 - LOCATE , , 0: COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; + LOCATE , , 0: COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ IdeSystem = 1 IF LEN(f$) THEN GOTO idemf3 'F3 functionality GOTO ideloop @@ -1806,6 +2068,10 @@ FUNCTION ide2 (ignore) IdeSystem = 3 END IF END IF + + IF mCLICK2 THEN + GOTO invokecontextualmenu + END IF END IF END IF @@ -1822,9 +2088,10 @@ FUNCTION ide2 (ignore) IF IdeSystem = 2 THEN a$ = idefindtext - IF LEN(K$) = 1 THEN - k = ASC(K$) + IF LEN(K$) = 1 OR (KB = KEY_INSERT OR KB = KEY_DELETE) THEN + IF LEN(K$) = 1 THEN k = ASC(K$) IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "V") THEN 'paste from clipboard + pasteIntoSearchField: clip$ = _CLIPBOARD$ 'read clipboard x = INSTR(clip$, CHR$(13)) IF x THEN clip$ = LEFT$(clip$, x - 1) @@ -1851,6 +2118,7 @@ FUNCTION ide2 (ignore) END IF IF (KCONTROL AND UCASE$(K$) = "A") THEN 'select all + selectAllInSearchField: IF LEN(a$) > 0 THEN idesystem2.issel = -1 idesystem2.sx1 = 0 @@ -1860,6 +2128,7 @@ FUNCTION ide2 (ignore) END IF IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) THEN 'copy to clipboard + copysearchterm2clip: IF idesystem2.issel THEN sx1 = idesystem2.sx1: sx2 = idesystem2.v1 IF sx1 > sx2 THEN SWAP sx1, sx2 @@ -1869,6 +2138,7 @@ FUNCTION ide2 (ignore) END IF IF ((KSHIFT AND KB = KEY_DELETE) OR (KCONTROL AND UCASE$(K$) = "X")) THEN 'cut to clipboard + cutToClipboardSearchField: IF idesystem2.issel THEN sx1 = idesystem2.sx1: sx2 = idesystem2.v1 IF sx1 > sx2 THEN SWAP sx1, sx2 @@ -1941,6 +2211,7 @@ FUNCTION ide2 (ignore) END IF IF K$ = CHR$(0) + "S" THEN 'DEL + deleteSelectionSearchField: IF idesystem2.issel THEN sx1 = idesystem2.sx1: sx2 = idesystem2.v1 IF sx1 > sx2 THEN SWAP sx1, sx2 @@ -1972,6 +2243,9 @@ FUNCTION ide2 (ignore) IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box IdeSystem = 1 IF mCLICK2 THEN GOTO invokecontextualmenu ELSE GOTO ideloop + ELSEIF mY >= idewy AND mY < idewy + idesubwindow THEN 'inside help + IdeSystem = 3 + IF mCLICK2 THEN GOTO invokecontextualmenu ELSE GOTO ideloop END IF END IF @@ -1981,24 +2255,39 @@ FUNCTION ide2 (ignore) IF IdeSystem = 3 THEN IF mCLICK OR K$ = CHR$(27) THEN - IF (mY = idewy AND mX = idewx - 2) OR K$ = CHR$(27) THEN 'close help - - - 'IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop - 'idesubwindow = idewy \ 2: idewy = idewy - idesubwindow - + IF (mY = idewy AND (mX >= idewx - 3 AND mX <= idewx - 1)) OR K$ = CHR$(27) THEN 'close help + closeHelp: idewy = idewy + idesubwindow idehelp = 0 idesubwindow = 0 skipdisplay = 0 IdeSystem = 1 - retval = 1: GOTO redraweverything2 - + retval = 1: GOSUB redrawItAll END IF END IF IF mCLICK THEN + IF (mY = idewy AND (mX >= idewx - 17 AND mX <= idewx - 4)) THEN 'view on wiki + launchWiki: + url$ = StrReplace$(wikiBaseAddress$ + "/index.php?title=" + Back$(Help_Back_Pos), " ", "%20") + IF INSTR(_OS$, "WIN") = 0 THEN + url$ = StrReplace$(url$, "$", "\$") + url$ = StrReplace$(url$, "&", "\&") + url$ = StrReplace$(url$, "(", "\(") + url$ = StrReplace$(url$, ")", "\)") + END IF + + IF INSTR(_OS$, "WIN") THEN + SHELL _HIDE _DONTWAIT "start " + url$ + ELSEIF INSTR(_OS$, "MAC") THEN + SHELL _HIDE _DONTWAIT "open " + url$ + ELSE + SHELL _HIDE _DONTWAIT "xdg-open " + url$ + END IF + GOTO specialchar + END IF + IF mY = idewy THEN sx = 2 @@ -2045,6 +2334,7 @@ FUNCTION ide2 (ignore) END IF IF KCONTROL AND UCASE$(K$) = "A" THEN 'select all + selectAllInHelp: IF help_h THEN Help_Select = 2 Help_SelX1 = 1 @@ -2057,6 +2347,8 @@ FUNCTION ide2 (ignore) END IF IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) AND Help_Select = 2 THEN 'copy to clipboard + copyhelp2clip: + ideerror = -1 'if it fails, just carry on clip$ = "" FOR y = Help_SelY1 TO Help_SelY2 IF y <> Help_SelY1 THEN clip$ = clip$ + CHR$(13) + CHR$(10) @@ -2081,6 +2373,7 @@ FUNCTION ide2 (ignore) NEXT IF Help_SelY1 = Help_SelY2 AND Help_cy > Help_cy1 THEN clip$ = clip$ + CHR$(13) + CHR$(10) IF clip$ <> "" THEN _CLIPBOARD$ = clip$ + ideerror = 1 GOTO keep_select END IF @@ -2121,7 +2414,7 @@ FUNCTION ide2 (ignore) END IF keep_select: - IF KB = KEY_DELETE THEN + IF KB = 9 THEN IF LEN(Help_Search_Str) THEN norep = 1: GOTO delsrchagain END IF @@ -2387,197 +2680,157 @@ FUNCTION ide2 (ignore) contextualhelp: IdeContextHelpSF = 0 'identify word or character at current cursor position - a$ = idegetline(idecy) - x = idecx - IF LEN(a$) > 0 AND x = LEN(a$) + 1 THEN x = x - 1 - IF x <= LEN(a$) THEN - IF (MID$(a$, x, 1) = " " OR MID$(a$, x, 1) = "(") AND x > 1 THEN x = x - 1 - IF alphanumeric(ASC(a$, x)) THEN - x1 = x - DO WHILE x1 > 1 - IF alphanumeric(ASC(a$, x1 - 1)) OR ASC(a$, x1 - 1) = 36 THEN x1 = x1 - 1 ELSE EXIT DO - LOOP - x2 = x - DO WHILE x2 < LEN(a$) - IF alphanumeric(ASC(a$, x2 + 1)) OR ASC(a$, x2 + 1) = 36 THEN x2 = x2 + 1 ELSE EXIT DO - LOOP - a2$ = MID$(a$, x1, x2 - x1 + 1) - ELSE - a2$ = CHR$(ASC(a$, x)) + a2$ = UCASE$(getWordAtCursor$) + lnks = 0 + lnks$ = findHelpTopic$(a2$, lnks, 0) + + IF lnks THEN + lnks$ = MID$(lnks$, 2, LEN(lnks$) - 2) + lnk$ = lnks$ + IF lnks > 1 THEN + 'clarify context + lnk$ = idef1box$(lnks$, lnks) + IF lnk$ = "C" THEN GOTO ideloop END IF - a2$ = UCASE$(a2$) - 'check if F1 is in help links - fh = FREEFILE - OPEN "internal\help\links.bin" FOR INPUT AS #fh - lnks = 0: lnks$ = CHR$(0) - DO UNTIL EOF(fh) - LINE INPUT #fh, l$ - c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c) - IF a2$ = UCASE$(l1$) THEN - IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN - lnks = lnks + 1 - IF l2$ = l1$ THEN - lnks$ = CHR$(0) + l2$ + lnks$ - ELSE - lnks$ = lnks$ + l2$ + CHR$(0) - END IF - END IF - END IF - LOOP - CLOSE #fh - - IF lnks THEN - lnks$ = MID$(lnks$, 2, LEN(lnks$) - 2) - lnk$ = lnks$ - IF lnks > 1 THEN - 'clarify context - lnk$ = idef1box$(lnks$, lnks) - IF lnk$ = "C" THEN GOTO ideloop + + IF INSTR(UCASE$(lnk$), "PARENTHESIS") THEN GOTO ideloop + + OpenHelpLnk: + + + Help_Back(Help_Back_Pos).sx = Help_sx 'update position + Help_Back(Help_Back_Pos).sy = Help_sy + Help_Back(Help_Back_Pos).cx = Help_cx + Help_Back(Help_Back_Pos).cy = Help_cy + + top = UBOUND(back$) + + + IF Back$(Help_Back_Pos) = lnk$ THEN Help_Back_Pos = Help_Back_Pos - 1: GOTO usenextentry2 + IF Help_Back_Pos < top THEN + IF Back$(Help_Back_Pos + 1) = lnk$ THEN + GOTO usenextentry2 END IF + END IF - OpenHelpLnk: + top = top + 1 + REDIM _PRESERVE Back(top) AS STRING + REDIM _PRESERVE Help_Back(top) AS Help_Back_Type + REDIM _PRESERVE Back_Name(top) AS STRING + 'Shuffle array upwards after current pos + FOR x = top - 1 TO Help_Back_Pos + 1 STEP -1 + Back_Name$(x + 1) = Back_Name$(x) + Back$(x + 1) = Back$(x) + Help_Back(x + 1).sx = Help_Back(x).sx + Help_Back(x + 1).sy = Help_Back(x).sy + Help_Back(x + 1).cx = Help_Back(x).cx + Help_Back(x + 1).cy = Help_Back(x).cy + NEXT + usenextentry2: + Help_Back_Pos = Help_Back_Pos + 1 + Back$(Help_Back_Pos) = lnk$ + Back_Name$(Help_Back_Pos) = Back2BackName$(lnk$) + Help_Back(Help_Back_Pos).sx = 1 + Help_Back(Help_Back_Pos).sy = 1 + Help_Back(Help_Back_Pos).cx = 1 + Help_Back(Help_Back_Pos).cy = 1 + Help_sx = 1: Help_sy = 1: Help_cx = 1: Help_cy = 1 + a$ = Wiki(lnk$) - Help_Back(Help_Back_Pos).sx = Help_sx 'update position - Help_Back(Help_Back_Pos).sy = Help_sy - Help_Back(Help_Back_Pos).cx = Help_cx - Help_Back(Help_Back_Pos).cy = Help_cy - - top = UBOUND(back$) - - - IF Back$(Help_Back_Pos) = lnk$ THEN Help_Back_Pos = Help_Back_Pos - 1: GOTO usenextentry2 - IF Help_Back_Pos < top THEN - IF Back$(Help_Back_Pos + 1) = lnk$ THEN - GOTO usenextentry2 - END IF - END IF - - - top = top + 1 - REDIM _PRESERVE Back(top) AS STRING - REDIM _PRESERVE Help_Back(top) AS Help_Back_Type - REDIM _PRESERVE Back_Name(top) AS STRING - 'Shuffle array upwards after current pos - FOR x = top - 1 TO Help_Back_Pos + 1 STEP -1 - Back_Name$(x + 1) = Back_Name$(x) - Back$(x + 1) = Back$(x) - Help_Back(x + 1).sx = Help_Back(x).sx - Help_Back(x + 1).sy = Help_Back(x).sy - Help_Back(x + 1).cx = Help_Back(x).cx - Help_Back(x + 1).cy = Help_Back(x).cy - NEXT - usenextentry2: - Help_Back_Pos = Help_Back_Pos + 1 - Back$(Help_Back_Pos) = lnk$ - Back_Name$(Help_Back_Pos) = Back2BackName$(lnk$) - Help_Back(Help_Back_Pos).sx = 1 - Help_Back(Help_Back_Pos).sy = 1 - Help_Back(Help_Back_Pos).cx = 1 - Help_Back(Help_Back_Pos).cy = 1 - Help_sx = 1: Help_sy = 1: Help_cx = 1: Help_cy = 1 - - a$ = Wiki(lnk$) - - IF idehelp = 0 THEN - IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop - idesubwindow = idewy \ 2: idewy = idewy - idesubwindow - Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 - WikiParse a$ - idehelp = 1 - skipdisplay = 0 - IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC. - retval = 1: GOTO redraweverything2 - END IF - + IF idehelp = 0 THEN + IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO ideloop + idesubwindow = idewy \ 2: idewy = idewy - idesubwindow + Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 WikiParse a$ - IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC. - GOTO specialchar - + idehelp = 1 + skipdisplay = 0 + IdeSystem = 3 + retval = 1 ELSE - 'No help found; Does the user want help for a SUB or FUNCTION? - a2$ = LTRIM$(RTRIM$(a2$)) - IF LEN(a2$) THEN - DO UNTIL alphanumeric(ASC(RIGHT$(a2$, 1))) - a2$ = LEFT$(a2$, LEN(a2$) - 1) 'removes sigil, if any - IF LEN(a2$) = 0 THEN GOTO NoKeywordFound - LOOP + WikiParse a$ + IdeSystem = 3 + END IF - FOR y = 1 TO iden - a$ = idegetline(y) - a$ = LTRIM$(RTRIM$(a$)) - sf = 0 - nca$ = UCASE$(a$) - IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB " - IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNCTION " - IF sf THEN - IF RIGHT$(nca$, 7) = " STATIC" THEN - a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) - END IF + GOSUB redrawitall + GOTO specialchar - IF sf = 1 THEN - a$ = RIGHT$(a$, LEN(a$) - 4) - ELSE - a$ = RIGHT$(a$, LEN(a$) - 9) - END IF - a$ = LTRIM$(RTRIM$(a$)) - x = INSTR(a$, "(") - IF x THEN - n$ = RTRIM$(LEFT$(a$, x - 1)) - args$ = RIGHT$(a$, LEN(a$) - x + 1) - ELSE - n$ = a$ - args$ = "" - END IF + ELSE + 'No help found; Does the user want help for a SUB or FUNCTION? + a2$ = LTRIM$(RTRIM$(a2$)) + IF LEN(a2$) THEN + DO UNTIL alphanumeric(ASC(RIGHT$(a2$, 1))) + a2$ = LEFT$(a2$, LEN(a2$) - 1) 'removes sigil, if any + IF LEN(a2$) = 0 THEN GOTO NoKeywordFound + LOOP - 'attempt to cleanse n$, just in case there are any comments or other unwanted stuff - FOR CleanseN = 1 TO LEN(n$) - SELECT CASE MID$(n$, CleanseN, 1) - CASE " ", "'", ":" - n$ = LEFT$(n$, CleanseN - 1) - EXIT FOR - END SELECT - NEXT - - backupn$ = n$ - - DO UNTIL alphanumeric(ASC(RIGHT$(n$, 1))) - n$ = LEFT$(n$, LEN(n$) - 1) 'removes sigil, if any - LOOP - - IF UCASE$(n$) = a2$ THEN - a$ = "'''" + backupn$ + "''' is a symbol that is used in your program as follows:" - a$ = a$ + CHR$(10) + CHR$(10) + "{{PageSyntax}}" + CHR$(10) - a$ = a$ + ": " + sf$ + "'''" + backupn$ + "''' " + args$ - a$ = a$ + CHR$(10) + "{{PageNavigation}}" - - IdeContextHelpSF = -1 - - IF idehelp = 0 THEN - IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop - idesubwindow = idewy \ 2: idewy = idewy - idesubwindow - Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 - WikiParse a$ - idehelp = 1 - skipdisplay = 0 - IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC. - retval = 1: GOTO redraweverything2 - END IF - - WikiParse a$ - IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC. - GOTO specialchar - - EXIT FOR - END IF + FOR y = 1 TO iden + a$ = idegetline(y) + a$ = LTRIM$(RTRIM$(a$)) + sf = 0 + nca$ = UCASE$(a$) + IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB " + IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNCTION " + IF sf THEN + IF RIGHT$(nca$, 7) = " STATIC" THEN + a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) END IF - NEXT - END IF - NoKeywordFound: - END IF 'lnks - END IF + IF sf = 1 THEN + a$ = RIGHT$(a$, LEN(a$) - 4) + ELSE + a$ = RIGHT$(a$, LEN(a$) - 9) + END IF + a$ = LTRIM$(RTRIM$(a$)) + x = INSTR(a$, "(") + IF x THEN + n$ = RTRIM$(LEFT$(a$, x - 1)) + args$ = RIGHT$(a$, LEN(a$) - x + 1) + x = INSTR(args$, ")"): IF x THEN args$ = LEFT$(args$, x) + ELSE + n$ = a$ + args$ = "" + cleanSubName n$ + END IF + + backupn$ = n$ + + DO UNTIL alphanumeric(ASC(RIGHT$(n$, 1))) + n$ = LEFT$(n$, LEN(n$) - 1) 'removes sigil, if any + LOOP + + IF UCASE$(n$) = a2$ THEN + a$ = "'''" + backupn$ + "''' is a symbol that is used in your program as follows:" + a$ = a$ + CHR$(10) + CHR$(10) + "{{PageSyntax}}" + CHR$(10) + a$ = a$ + ": " + sf$ + "'''" + backupn$ + "''' " + args$ + a$ = a$ + CHR$(10) + "{{PageNavigation}}" + + IdeContextHelpSF = -1 + + IF idehelp = 0 THEN + IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO ideloop + idesubwindow = idewy \ 2: idewy = idewy - idesubwindow + Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 + WikiParse a$ + idehelp = 1 + skipdisplay = 0 + IdeSystem = 3 + retval = 1 + END IF + + WikiParse a$ + IdeSystem = 3 + GOSUB redrawItAll + GOTO specialchar + + EXIT FOR + END IF + END IF + NEXT + END IF + NoKeywordFound: + END IF 'lnks GOTO specialchar END IF @@ -2610,18 +2863,18 @@ FUNCTION ide2 (ignore) IF KALT AND (KB = KEY_DOWN OR KB = KEY_UP) THEN IF IdeBmkN = 0 THEN - idemessagebox "Bookmarks", "No bookmarks exist (Use Alt+Left to create a bookmark)" - SCREEN , , 3, 0: idewait4mous: idewait4alt + result = idemessagebox("Bookmarks", "No bookmarks exist (Use Alt+Left to create a bookmark)", "") + SCREEN , , 3, 0 idealthighlight = 0 - LOCATE , , 0: COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; + LOCATE , , 0: COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ GOTO specialchar END IF IF IdeBmkN = 1 THEN IF idecy = IdeBmk(1).y THEN - idemessagebox "Bookmarks", "No other bookmarks exist" - SCREEN , , 3, 0: idewait4mous: idewait4alt + result = idemessagebox("Bookmarks", "No other bookmarks exist", "") + SCREEN , , 3, 0 idealthighlight = 0 - LOCATE , , 0: COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; + LOCATE , , 0: COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ GOTO specialchar END IF END IF @@ -2634,10 +2887,11 @@ FUNCTION ide2 (ignore) IF IdeBmk(b).y = l THEN EXIT DO NEXT LOOP - AddQuickNavHistory idecy + AddQuickNavHistory idecy = l idecx = IdeBmk(b).x ideselect = 0 + idecentercurrentline GOTO specialchar END IF @@ -2691,7 +2945,7 @@ FUNCTION ide2 (ignore) IF mCLICK THEN IF mX > 1 + maxLineNumberLength AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box IF old.mX = mX AND old.mY = mY THEN - IF TIMER - last.TBclick# > .5 THEN GOTO regularTextBox_click + IF timeElapsedSince(last.TBclick#) > .5 THEN GOTO regularTextBox_click 'Double-click on text box: attempt to select "word" clicked idecx = (mX - 1 + idesx - 1) - maxLineNumberLength idecy = mY - 2 + idesy - 1 @@ -2702,21 +2956,18 @@ FUNCTION ide2 (ignore) 'a separate instance of QB64: p$ = idepath$ + pathsep$ f$ = p$ + ActiveINCLUDELinkFile + IF _FILEEXISTS(f$) = 0 THEN f$ = ActiveINCLUDELinkFile IF _FILEEXISTS(f$) THEN backupIncludeFile = FREEFILE OPEN f$ FOR BINARY AS #backupIncludeFile tempInclude1$ = SPACE$(LOF(backupIncludeFile)) + GET #backupIncludeFile, 1, tempInclude1$ CLOSE #backupIncludeFile - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "FALSE" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", "80" - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25" - SCREEN , , 3, 0 - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window - LOCATE idewy - 3, 2 + clearStatusWindow 0 COLOR 15, 1 - PRINT "Editing $INCLUDE file..." + _PRINTSTRING (2, idewy - 3), "Editing $INCLUDE file..." dummy = DarkenFGBG(1) PCOPY 3, 0 @@ -2724,39 +2975,40 @@ FUNCTION ide2 (ignore) p$ = QuotedFilename$(COMMAND$(0)) + " " + QuotedFilename$(f$) IF errorLineInInclude > 0 AND idefocusline = idecy THEN p$ = p$ + " -l:" + str2$(errorLineInInclude) + ELSEIF warningInIncludeLine > 0 AND warningInInclude = idecy THEN + p$ = p$ + " -l:" + str2$(warningInIncludeLine) END IF SHELL p$ - IF IDE_AutoPosition THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE" - END IF - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", STR$(idewx) - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", STR$(idewy) - OPEN f$ FOR BINARY AS #backupIncludeFile tempInclude2$ = SPACE$(LOF(backupIncludeFile)) + GET #backupIncludeFile, 1, tempInclude2$ CLOSE #backupIncludeFile dummy = DarkenFGBG(0) - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 IF tempInclude1$ = tempInclude2$ THEN IF IDEShowErrorsImmediately THEN - LOCATE idewy - 3, 2 IF idecompiling = 1 THEN - PRINT "..."; + _PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..." ELSE - PRINT "OK"; 'report OK status + _PRINTSTRING (2, idewy - 3), "OK" 'report OK status + statusarealink = 0 IF totalWarnings > 0 THEN COLOR 11, 1 - PRINT " ("; LTRIM$(STR$(totalWarnings)) + " warning"; - IF totalWarnings > 1 THEN PRINT "s"; - PRINT " - click here or Ctrl+W to view)"; + msg$ = " (" + LTRIM$(STR$(totalWarnings)) + " warning" + IF totalWarnings > 1 THEN msg$ = msg$ + "s" + msg$ = msg$ + " - click here or Ctrl+W to view)" + _PRINTSTRING (4, idewy - 3), msg$ + statusarealink = 4 END IF + IF waitingForVarList THEN GOSUB showVarListReady END IF END IF ELSE idechangemade = 1 + startPausedPending = 0 END IF PCOPY 3, 0 @@ -2798,25 +3050,40 @@ FUNCTION ide2 (ignore) idemouseselect = 1 wholeword.select = 0 END IF - ELSEIF mX > 1 AND mX <= 1 + maxLineNumberLength AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers THEN - 'line numbers are visible and been clicked - ideselect = 1 - idecy = mY - 2 + idesy - 1 - IF idecy < iden THEN - IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy - idecy = idecy + 1 - idecx = 1 - ELSEIF idecy = iden THEN - a$ = idegetline$(idecy) - IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy - idecx = LEN(a$) + 1 - ELSEIF idecy > iden THEN - idecy = iden + ELSEIF (mX > 1 AND mX <= 1 + maxLineNumberLength AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers) OR _ + (mX = 1 AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers = 0) THEN + 'line numbers are visible and have been clicked or + 'line numbers are hidden and the left border has been clicked + IF AutoAddDebugCommand <> 0 OR vWatchOn <> 0 THEN ideselect = 0 - idecx = 1 + idecytemp = mY - 2 + idesy - 1 + IF idecytemp =< iden THEN + idecy = idecytemp + IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN + GOTO toggleSkipLine + ELSE + GOTO toggleBreakpoint + END IF + END IF + ELSE + ideselect = 1 + idecy = mY - 2 + idesy - 1 + IF idecy < iden THEN + IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy + idecy = idecy + 1 + idecx = 1 + ELSEIF idecy = iden THEN + a$ = idegetline$(idecy) + IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy + idecx = LEN(a$) + 1 + ELSEIF idecy > iden THEN + idecy = iden + ideselect = 0 + idecx = 1 + END IF + wholeword.select = 0 + idemouseselect = 0 END IF - wholeword.select = 0 - idemouseselect = 0 END IF END IF @@ -2825,6 +3092,7 @@ FUNCTION ide2 (ignore) IF mCLICK2 THEN 'Second mouse button pressed. invokecontextualmenu: IF mX > 1 + maxLineNumberLength AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box + IdeSystem = 1 IF ideselect = 0 THEN 'Right click only positions the cursor if no selection is active idecx = (mX - 1 + idesx - 1) - maxLineNumberLength idecy = mY - 2 + idesy - 1 @@ -2851,16 +3119,12 @@ FUNCTION ide2 (ignore) idecx = (mX - 1 + idesx - 1) - maxLineNumberLength idecy = mY - 2 + idesy - 1 IF idecy > iden THEN idecy = iden - ideshowtext - PCOPY 3, 0 END IF IF mY - 2 + idesy - 1 < idecy OR mY - 2 + idesy - 1 > idecy THEN ideselect = 0 idecx = (mX - 1 + idesx - 1) - maxLineNumberLength idecy = mY - 2 + idesy - 1 IF idecy > iden THEN idecy = iden - ideshowtext - PCOPY 3, 0 END IF END IF ELSE 'Multiple lines selected @@ -2873,13 +3137,20 @@ FUNCTION ide2 (ignore) idecx = (mX - 1 + idesx - 1) - maxLineNumberLength idecy = mY - 2 + idesy - 1 IF idecy > iden THEN idecy = iden - ideshowtext - PCOPY 3, 0 END IF END IF END IF - idecontextualmenu = 1 + ideshowtext + PCOPY 3, 0 IdeMakeContextualMenu + idecontextualmenu = 1 + GOTO showmenu + ELSEIF idehelp = 1 AND mY >= idewy AND mY < idewy + idesubwindow THEN 'inside help area + IdeSystem = 3 + ideshowtext + PCOPY 3, 0 + IdeMakeContextualMenu + idecontextualmenu = 1 GOTO showmenu END IF END IF @@ -3022,13 +3293,13 @@ FUNCTION ide2 (ignore) IF KCONTROL AND UCASE$(K$) = "G" THEN 'goto line IF KSHIFT AND idefocusline > 0 THEN idecx = 1 - AddQuickNavHistory idecy + AddQuickNavHistory idecy = idefocusline ideselect = 0 ELSE - retval = idegotobox + idegotobox 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 END IF GOTO specialchar END IF @@ -3042,6 +3313,10 @@ FUNCTION ide2 (ignore) GOTO ctrlOpen END IF + IF KCONTROL AND UCASE$(K$) = "P" THEN 'Debug -> Toggle Skip Line + GOTO toggleSkipLine + END IF + IF (NOT KSHIFT) AND KCONTROL AND UCASE$(K$) = "R" THEN 'Comment (add ') - R for REMark GOTO ctrlAddComment END IF @@ -3058,29 +3333,42 @@ FUNCTION ide2 (ignore) IF ideprogname = "" THEN ProposedTitle$ = FindProposedTitle$ IF ProposedTitle$ = "" THEN - a$ = idesaveas$("untitled" + tempfolderindexstr$ + ".bas") + a$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) ELSE - a$ = idesaveas$(ProposedTitle$ + ".bas") + a$ = idefiledialog$(ProposedTitle$ + ".bas", 2) END IF + IF ideerror > 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO IDEerrorMessage ELSE idesave idepath$ + idepathsep$ + ideprogname$ END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop + PCOPY 3, 0: SCREEN , , 3, 0: GOTO ideloop END IF IF K$ = CHR$(0) + CHR$(60) THEN 'F2 - GOTO idesubsjmp + IF KCONTROL THEN + IF QuickNavTotal > 0 THEN + ideselect = 0 + idecy = QuickNavHistory(QuickNavTotal).idecy + idecx = QuickNavHistory(QuickNavTotal).idecx + idesy = QuickNavHistory(QuickNavTotal).idesy + idesx = QuickNavHistory(QuickNavTotal).idesx + QuickNavTotal = QuickNavTotal - 1 + GOTO ideloop + END IF + ELSE + GOTO idesubsjmp + END IF END IF IF KCONTROL AND UCASE$(K$) = "W" THEN 'goto line IF totalWarnings > 0 THEN retval = idewarningbox 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO specialchar ELSE - idemessagebox "Compilation status", "No warnings to display." - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + result = idemessagebox("Compilation status", "No warnings to display.", "") + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF END IF @@ -3122,7 +3410,7 @@ FUNCTION ide2 (ignore) 'warn PCOPY 3, 0 what$ = ideyesnobox("Undo", "Undo through previous program content?") - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF what$ = "N" THEN CLOSE #150 GOTO skipundo @@ -3130,7 +3418,7 @@ FUNCTION ide2 (ignore) IF ideunsaved = 1 AND ideprogname <> "" THEN PCOPY 3, 0 r$ = idesavenow - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF r$ = "C" THEN CLOSE #150: GOTO skipundo IF r$ = "Y" THEN idesave idepath$ + idepathsep$ + ideprogname$ @@ -3138,7 +3426,7 @@ FUNCTION ide2 (ignore) END IF ideunsaved = 1 ideprogname$ = "" - _TITLE "QB64" + _TITLE WindowTitle ideundobase = -1 'release base restriction END IF @@ -3158,7 +3446,7 @@ FUNCTION ide2 (ignore) FOR bi = 1 TO IdeBmkN: GET #150, , IdeBmk(bi).y: GET #150, , IdeBmk(bi).x: NEXT GET #150, , x&: idet$ = SPACE$(x&): GET #150, , idet$ - idechangemade = 1: idenoundo = 1 + idechangemade = 1: idenoundo = 1: startPausedPending = 0 END IF 'u @@ -3219,7 +3507,7 @@ FUNCTION ide2 (ignore) FOR bi = 1 TO IdeBmkN: GET #150, , IdeBmk(bi).y: GET #150, , IdeBmk(bi).x: NEXT GET #150, , x&: idet$ = SPACE$(x&): GET #150, , idet$ - idechangemade = 1: idenoundo = 1 + idechangemade = 1: idenoundo = 1: startPausedPending = 0 END IF 'u @@ -3232,13 +3520,15 @@ FUNCTION ide2 (ignore) IF ((KSHIFT AND KB = KEY_DELETE) OR (KCONTROL AND UCASE$(K$) = "X")) AND ideselect = 1 THEN 'cut to clipboard idemcut: idechangemade = 1 + startPausedPending = 0 GOTO copy2clip END IF IF (KB = KEY_DELETE OR KB = 8) AND ideselect = 1 THEN 'delete selection IF ideselecty1 <> idecy OR ideselectx1 <> idecx THEN idechangemade = 1 - GOSUB delselect + startPausedPending = 0 + delselect GOTO specialchar ELSE ideselect = 0 @@ -3252,10 +3542,10 @@ FUNCTION ide2 (ignore) clip$ = _CLIPBOARD$ 'read clipboard IF LEN(clip$) THEN - IF ideselect THEN GOSUB delselect IF INSTR(clip$, CHR$(13)) OR INSTR(clip$, CHR$(10)) THEN 'full lines paste + IF ideselect THEN delselect idelayoutallow = 2 a$ = clip$ @@ -3294,50 +3584,21 @@ FUNCTION ide2 (ignore) END IF END IF ELSE - 'insert single line paste - a$ = idegetline(idecy) - IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$)) - a$ = LEFT$(a$, idecx - 1) + clip$ + RIGHT$(a$, LEN(a$) - idecx + 1) - idesetline idecy, converttabs$(a$) - - IF PasteCursorAtEnd THEN - 'Place the cursor at the end of the pasted content: - idecx = idecx + LEN(clip$) - END IF + insertAtCursor clip$ END IF idechangemade = 1 + startPausedPending = 0 END IF GOTO specialchar END IF IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) AND ideselect = 1 THEN 'copy to clipboard copy2clip: - clip$ = "" - sy1 = ideselecty1 - sy2 = idecy - IF sy1 > sy2 THEN SWAP sy1, sy2 - sx1 = ideselectx1 - sx2 = idecx - IF sx1 > sx2 THEN SWAP sx1, sx2 - FOR y = sy1 TO sy2 - IF y <= iden THEN - a$ = idegetline(y) - IF sy1 = sy2 THEN 'single line select - FOR x = sx1 TO sx2 - 1 - IF x <= LEN(a$) THEN clip$ = clip$ + MID$(a$, x, 1) ELSE clip$ = clip$ + " " - NEXT - ELSE 'multiline select - IF idecx = 1 AND y = sy2 AND idecy > sy1 THEN GOTO nofinalcopy - clip$ = clip$ + a$ + CHR$(13) + CHR$(10) - nofinalcopy: - IF y = sy2 AND idecx > 1 AND LEN(a$) > 0 THEN clip$ = LEFT$(clip$, LEN(clip$) - 2) - END IF - END IF - NEXT + clip$ = getSelectedText$(-1) IF clip$ <> "" THEN _CLIPBOARD$ = clip$ - IF (K$ = CHR$(0) + "S") OR (KSHIFT AND KB = KEY_DELETE) OR (KCONTROL AND UCASE$(K$) = "X") THEN GOSUB delselect + IF (K$ = CHR$(0) + "S") OR (KSHIFT AND KB = KEY_DELETE) OR (KCONTROL AND UCASE$(K$) = "X") THEN delselect GOTO specialchar END IF @@ -3401,8 +3662,9 @@ FUNCTION ide2 (ignore) IF idecy = 1 THEN idecx = 1: GOTO specialchar idecy = idecy - 1 a$ = idegetline(idecy) - idecx = LEN(a$) + idecx = LEN(a$) + 1 LOOP UNTIL LEN(a$) + GOTO specialchar 'stop at the end of the previous line END IF 'check character IF alphanumeric(ASC(a$, idecx)) THEN @@ -3436,6 +3698,7 @@ FUNCTION ide2 (ignore) 'move IF first = 0 THEN idecx = idecx + 1 'latch onto next character + IF first = 0 AND idecx = LEN(a$) + 1 THEN GOTO specialchar 'stop at the end of the line IF idecx > LEN(a$) THEN DO IF idecy = iden THEN GOTO specialchar @@ -3529,81 +3792,54 @@ FUNCTION ide2 (ignore) END IF RETURN - delselect: - sy1 = ideselecty1 - sy2 = idecy - IF sy1 > sy2 THEN SWAP sy1, sy2 - sx1 = ideselectx1 - sx2 = idecx - IF sx1 > sx2 THEN SWAP sx1, sx2 - nolastlinedel = 0 - IF sy1 <> sy2 AND idecx = 1 AND idecy > sy1 THEN sy2 = sy2 - 1: nolastlinedel = 1 'ignore last line of multi-line select? - - - - - - - - - FOR y = sy2 TO sy1 STEP -1 - IF sy1 = sy2 AND nolastlinedel = 0 THEN 'single line select - a$ = idegetline(y) - a2$ = "" - IF sx1 <= LEN(a$) THEN a2$ = LEFT$(a$, sx1 - 1) ELSE a2$ = a$ - IF sx2 <= LEN(a$) THEN a2$ = a2$ + RIGHT$(a$, LEN(a$) - sx2 + 1) - idesetline y, a2$ - ELSE 'multiline select - - - IF iden = 1 AND y = 1 THEN idesetline y, "" ELSE idedelline y - - - END IF - NEXT - - - idecx = sx1: IF sy1 <> sy2 OR nolastlinedel = 1 THEN idecx = 1 - idecy = sy1 - ideselect = 0 - RETURN - skipgosubs: IF K$ = CHR$(13) THEN IF KSHIFT THEN - IF EnteringRGB THEN 'The "Hit Shift+ENTER" message is being shown + retval$ = "" + a$ = idegetline(idecy) + IF EnteringRGB THEN 'The "Shift+ENTER" message is being shown oldkeywordHighlight = keywordHighlight keywordHighlight = 0 HideBracketHighlight keywordHighlight = oldkeywordHighlight - retval$ = idecolorpicker$(0) + retval$ = idergbmixer$(0) ELSE IF ideselect THEN IF ideselecty1 <> idecy THEN GOTO specialchar 'multi line selected END IF - a$ = idegetline(idecy) Found_RGB = 0 - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGB(") - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGB32(") - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGBA(") - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGBA32(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGB(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGB32(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGBA(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGBA32(") IF Found_RGB THEN oldkeywordHighlight = keywordHighlight keywordHighlight = 0 HideBracketHighlight keywordHighlight = oldkeywordHighlight - retval$ = idecolorpicker$(-1) + retval$ = idergbmixer$(-1) + ELSE + GOTO RegularEnter + END IF + END IF + IF LEN(retval$) THEN + 'the mixer dialog could not insert the value, so let's do it here + IF EnteringRGB THEN + insertAtCursor MID$(retval$, INSTR(retval$, "(") + 1) + ELSE + insertAtCursor retval$ END IF END IF GOTO specialchar ELSE + a$ = idegetline(idecy) + RegularEnter: ideselect = 0 desiredcolumn = 1 idechangemade = 1 - - a$ = idegetline(idecy) + startPausedPending = 0 IF idecx > LEN(a$) THEN ideinsline idecy + 1, "" IF LEN(a$) = 0 THEN @@ -3638,6 +3874,7 @@ FUNCTION ide2 (ignore) IF KB = KEY_DELETE AND KCONTROL = 0 THEN idechangemade = 1 + startPausedPending = 0 a$ = idegetline(idecy) IF idecx <= LEN(a$) THEN a$ = LEFT$(a$, idecx - 1) + RIGHT$(a$, LEN(a$) - idecx) @@ -3659,6 +3896,7 @@ FUNCTION ide2 (ignore) (INSTR(_OS$, "MAC") > 0 AND K$ = CHR$(8) AND KCONTROL) THEN ideselect = 0 idechangemade = 1 + startPausedPending = 0 'undocombos IF ideundocombochr <> 8 THEN @@ -3716,6 +3954,7 @@ FUNCTION ide2 (ignore) IF K$ = CHR$(8) THEN 'Regular Backspace ideselect = 0 idechangemade = 1 + startPausedPending = 0 'undocombos IF ideundocombochr <> 8 THEN @@ -3842,6 +4081,7 @@ FUNCTION ide2 (ignore) a$ = RIGHT$(a$, LEN(a$) - BlockIndentLevel) idesetline y, a$ idechangemade = 1 + startPausedPending = 0 END IF NEXT END IF @@ -3850,7 +4090,7 @@ FUNCTION ide2 (ignore) idecx = idecx - BlockIndentLevel IF idecx < 1 THEN idecx = 1: ideselectx1 = idecx END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop ELSE IdeBlockIncreaseIndent: @@ -3891,13 +4131,14 @@ FUNCTION ide2 (ignore) a$ = LEFT$(a$, lhs) + SPACE$(BlockIndentLevel) + RIGHT$(a$, LEN(a$) - lhs) idesetline y, a$ idechangemade = 1 + startPausedPending = 0 END IF NEXT IF (y1 = y2) AND idechangemade THEN ideselectx1 = ideselectx1 + BlockIndentLevel idecx = idecx + BlockIndentLevel END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF ELSE @@ -3920,8 +4161,9 @@ FUNCTION ide2 (ignore) IF KALT AND NOT KCTRL AND NOT AltSpecial THEN GOTO specialchar 'standard character - IF ideselect THEN GOSUB delselect + IF ideselect THEN delselect idechangemade = 1 + startPausedPending = 0 'undocombos IF LEN(K$) = 1 THEN @@ -3972,7 +4214,7 @@ FUNCTION ide2 (ignore) END IF NEXT i END IF - IdeInfo = "Selection length = " + str2$(sx2 - sx1) + IdeInfo = "Selection length = " + str2$(sx2 - sx1) + " character" + LEFT$("s", ABS(sx2 - sx1 > 1)) UpdateIdeInfo ELSE IdeInfo = "" @@ -3980,7 +4222,17 @@ FUNCTION ide2 (ignore) UpdateIdeInfo END IF ELSE - IdeInfo = "" + IF ideselect THEN + sy1 = ideselecty1 + sy2 = idecy + IF sy1 > sy2 OR idecx > 1 THEN + IdeInfo = "Selection length = " + str2$(ABS(sy2 - sy1) + 1) + " line" + LEFT$("s", ABS((ABS(sy2 - sy1) + 1) > 1)) + ELSE + IdeInfo = "Selection length = " + str2$(sy2 - sy1) + " line" + LEFT$("s", ABS(sy2 - sy1 > 1)) + END IF + ELSE + IdeInfo = "" + END IF ideCurrentSingleLineSelection = "" UpdateIdeInfo END IF @@ -3990,7 +4242,7 @@ FUNCTION ide2 (ignore) AltSpecial = 0 ideentermenu = 0 KALT = 0 - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$ + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ END IF LOOP @@ -4040,10 +4292,10 @@ FUNCTION ide2 (ignore) IF altheld <> 0 AND lastaltheld = 0 THEN DO - _LIMIT 1000 + _LIMIT 100 GetInput - IF _WINDOWHASFOCUS = 0 THEN - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ SCREEN , , 3, 0: PCOPY 3, 0 GOTO ideloop END IF @@ -4055,8 +4307,8 @@ FUNCTION ide2 (ignore) KB = KEY_ESC END IF - IF _WINDOWHASFOCUS = 0 THEN - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ SCREEN , , 3, 0: PCOPY 3, 0 GOTO ideloop END IF @@ -4072,7 +4324,7 @@ FUNCTION ide2 (ignore) x2 = CVI(MID$(MenuLocations, i * 2 - 1, 2)) + LEN(menu$(i, 0)) IF mX >= x AND mX < x2 THEN m = i - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ PCOPY 3, 0 GOTO showmenu END IF @@ -4087,7 +4339,7 @@ FUNCTION ide2 (ignore) K$ = UCASE$(K$) IF LEN(K$) > 0 AND KCTRL THEN 'ctrl+key combos are not valid while a menu is active - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ SCREEN , , 3, 0: PCOPY 3, 0 GOTO ideloop END IF @@ -4096,7 +4348,7 @@ FUNCTION ide2 (ignore) a$ = UCASE$(LEFT$(menu$(i, 0), 1)) IF K$ = a$ THEN m = i - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ PCOPY 3, 0 GOTO showmenu END IF @@ -4105,13 +4357,14 @@ FUNCTION ide2 (ignore) IF KB = KEY_LEFT THEN m = m - 1 IF KB = KEY_RIGHT THEN m = m + 1 IF KB = KEY_ESC THEN - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ + IdeInfo = "" GOTO ideloop END IF IF m < 1 THEN m = menus IF m > menus AND idecontextualmenu = 0 THEN m = 1 IF KB = KEY_UP OR KB = KEY_DOWN OR KB = KEY_ENTER THEN - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ PCOPY 3, 0 GOTO showmenu END IF @@ -4120,7 +4373,7 @@ FUNCTION ide2 (ignore) IF KB > 0 AND KB <= 255 THEN IF KALT = 0 THEN iCHECKLATER = 1 - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ GOTO ideloop END IF END IF @@ -4139,8 +4392,20 @@ FUNCTION ide2 (ignore) s = 0 parentMenu = 0 parentMenuSetup%% = 0 - IF idecontextualmenu = 1 THEN idectxmenuX = mX: idectxmenuY = mY: m = idecontextualmenuID - IF idecontextualmenu = 2 THEN idectxmenuX = xx + w + 3: idectxmenuY = yy + r: parentMenu = m: m = ViewMenuShowLineNumbersSubMenuID + SELECT CASE idecontextualmenu + CASE 1 + 'right-click on text area + idectxmenuX = mX + idectxmenuY = mY + m = idecontextualmenuID + CASE 2 + 'line numbers menu item in View menu + idectxmenuX = xx + w + 3 + idectxmenuY = yy + r + parentMenu = m + m = ViewMenuShowLineNumbersSubMenuID + END SELECT + IdeMakeEditMenu IF totalWarnings = 0 THEN @@ -4149,6 +4414,12 @@ FUNCTION ide2 (ignore) menu$(ViewMenuID, ViewMenuCompilerWarnings) = "Compiler #Warnings... Ctrl+W" END IF + IF callStackLength = 0 THEN + menu$(DebugMenuID, DebugMenuCallStack) = "~Call #Stack... F12" + ELSE + menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12" + END IF + oldmy = mY: oldmx = mX DO PCOPY 2, 1 @@ -4158,7 +4429,7 @@ FUNCTION ide2 (ignore) x = 4: FOR i = 1 TO m - 1: x = x + LEN(menu$(i, 0)) + 2 IF i = menus - 1 THEN x = idewx - LEN(menu$(menus, 0)) - 1 NEXT: xx = x - LOCATE 1, xx - 1: COLOR 7, 0: PRINT " " + menu$(m, 0) + " " + COLOR 7, 0: _PRINTSTRING (xx - 1, 1), " " + menu$(m, 0) + " " ELSE IF parentMenu > 0 AND parentMenuSetup%% = 0 THEN parentMenuSetup%% = -1 @@ -4168,7 +4439,6 @@ FUNCTION ide2 (ignore) backToParent.y2 = backToParent.y1 + menusize(parentMenu) END IF END IF - COLOR 0, 7 'calculate menu width w = 0 FOR i = 1 TO menusize(m) @@ -4193,16 +4463,19 @@ FUNCTION ide2 (ignore) END IF IF xx > idewx - w - 3 THEN xx = idewx - w - 3 + UpdateMenuHelpLine menuDesc$(m, r) + + COLOR 0, 7 ideboxshadow xx - 2, yy, w + 4, menusize(m) + 2 'draw menu items FOR i = 1 TO menusize(m) m$ = menu$(m, i) IF m$ = "-" THEN - COLOR 0, 7: LOCATE i + yy, xx - 2: PRINT CHR$(195) + STRING$(w + 2, CHR$(196)) + CHR$(180); + COLOR 0, 7: _PRINTSTRING (xx - 2, i + yy), CHR$(195) + STRING$(w + 2, CHR$(196)) + CHR$(180) ELSEIF LEFT$(m$, 1) = "~" THEN m$ = RIGHT$(m$, LEN(m$) - 1) 'Remove the tilde before printing - IF r = i THEN LOCATE i + yy, xx - 1: COLOR 7, 0: PRINT SPACE$(w + 2); + IF r = i THEN COLOR 7, 0: _PRINTSTRING (xx - 1, i + yy), SPACE$(w + 2) IF LEFT$(m$, 1) = CHR$(7) THEN LOCATE i + yy, xx - 1 ELSE LOCATE i + yy, xx h = -1: x = INSTR(m$, "#"): IF x THEN h = x: m$ = LEFT$(m$, x - 1) + RIGHT$(m$, LEN(m$) - x) x = INSTR(m$, " "): IF x THEN m1$ = LEFT$(m$, x - 1): m2$ = RIGHT$(m$, LEN(m$) - x - 1): m$ = m1$ + SPACE$(w - LEN(m1$) - LEN(m2$)) + m2$ @@ -4211,7 +4484,7 @@ FUNCTION ide2 (ignore) PRINT MID$(m$, x, 1); NEXT ELSE - IF r = i THEN LOCATE i + yy, xx - 1: COLOR 7, 0: PRINT SPACE$(w + 2); + IF r = i THEN COLOR 7, 0: _PRINTSTRING (xx - 1, i + yy), SPACE$(w + 2) IF LEFT$(m$, 1) = CHR$(7) THEN LOCATE i + yy, xx - 1 ELSE LOCATE i + yy, xx h = -1: x = INSTR(m$, "#"): IF x THEN h = x: m$ = LEFT$(m$, x - 1) + RIGHT$(m$, LEN(m$) - x) x = INSTR(m$, " "): IF x THEN m1$ = LEFT$(m$, x - 1): m2$ = RIGHT$(m$, LEN(m$) - x - 1): m$ = m1$ + SPACE$(w - LEN(m1$) - LEN(m2$)) + m2$ @@ -4249,28 +4522,35 @@ FUNCTION ide2 (ignore) 'revert to previous menuwhen alt pressed again IF altheld <> 0 AND lastaltheld = 0 THEN DO - _LIMIT 1000 + _LIMIT 100 GetInput - IF _WINDOWHASFOCUS = 0 THEN - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF _RESIZE THEN + IF (_RESIZE <> 0) AND IdeDebugMode <> 2 THEN ForceResize = -1: skipdisplay = 0: GOTO ideloop END IF LOOP UNTIL KALT = 0 'wait till alt is released PCOPY 3, 0: SCREEN , , 3, 0 GOTO startmenu2 END IF - IF _EXIT THEN ideexit = 1: GOTO ideloop - IF _WINDOWHASFOCUS = 0 THEN - LOCATE 1, 1: COLOR 0, 7: PRINT menubar$; + IF _EXIT THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 9: GOTO EnterDebugMode + ELSE + ideexit = 1: GOTO ideloop + END IF + END IF + IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeDebugMode = 2 THEN GOTO EnterDebugMode GOTO ideloop END IF - IF _RESIZE THEN + IF (_RESIZE <> 0) AND IdeDebugMode <> 2 THEN ForceResize = -1: skipdisplay = 0: GOTO ideloop END IF _LIMIT 100 @@ -4280,12 +4560,24 @@ FUNCTION ide2 (ignore) IF mWHEEL THEN PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeDebugMode = 2 THEN GOTO EnterDebugMode GOTO ideloop END IF IF mCLICK2 AND idecontextualmenu = 1 THEN 'A new right click in the text area repositions the contextual menu - IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN + IF (mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5)) OR _ + (mY >= idewy AND mY < idewy + idesubwindow) THEN PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeDebugMode = 2 THEN + bkpidecy = idecy + idecy = mY - 2 + idesy - 1 + IF idecy > iden THEN idecy = iden + IF bkpidecy <> idecy THEN + ideshowtext + PCOPY 3, 0 + END IF + GOTO showmenu + END IF GOTO invokecontextualmenu ELSE PCOPY 3, 0: SCREEN , , 3, 0 @@ -4310,6 +4602,7 @@ FUNCTION ide2 (ignore) m = parentMenu r = parentMenuR parentMenu = 0 + parentMenuR = 0 idecontextualmenu = 0 PCOPY 3, 2 _CONTINUE @@ -4317,9 +4610,11 @@ FUNCTION ide2 (ignore) IF mX < xx - 2 OR mX >= xx - 2 + w + 4 OR mY > yy + menusize(m) + 1 OR (mY < yy AND idecontextualmenu = 1) THEN PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeDebugMode = 2 THEN GOTO EnterDebugMode GOTO ideloop END IF END IF + IF NOT mouseup AND NOT mousedown THEN 'Check if we're hovering on menu options IF parentMenu > 0 AND oldmy <> mY AND oldmx <> mX AND _ mX >= backToParent.x1 AND mX =< backToParent.x2 AND _ @@ -4327,6 +4622,7 @@ FUNCTION ide2 (ignore) m = parentMenu r = parentMenuR parentMenu = 0 + parentMenuR = 0 idecontextualmenu = 0 PCOPY 3, 2 _CONTINUE @@ -4346,7 +4642,7 @@ FUNCTION ide2 (ignore) END IF IF oldmx <> mX THEN checkmenubarhover: - IF mY = 1 AND idecontextualmenu <> 1 THEN 'Check if we're hovering on menu bar + IF IdeDebugMode <> 2 AND mY = 1 AND idecontextualmenu <> 1 THEN 'Check if we're hovering on menu bar lastm = m FOR i = 1 TO menus x = CVI(MID$(MenuLocations, i * 2 - 1, 2)) @@ -4354,6 +4650,8 @@ FUNCTION ide2 (ignore) IF mX >= x AND mX < x2 THEN m = i r = 1 + parentMenuR = 0 + parentMenu = 0 IF idecontextualmenu > 1 THEN idecontextualmenu = 0: PCOPY 3, 2 EXIT FOR END IF @@ -4366,7 +4664,7 @@ FUNCTION ide2 (ignore) IF mB THEN 'top row - IF mY = 1 THEN + IF mY = 1 AND IdeDebugMode <> 2 THEN lastm = m x = 3 FOR i = 1 TO menus @@ -4374,7 +4672,7 @@ FUNCTION ide2 (ignore) IF mX >= x AND mX < x + x2 THEN m = i r = 1 - IF lastm = m AND mousedown = 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: GOTO ideloop + IF lastm = m AND mousedown = 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO ideloop idecontextualmenu = 0 EXIT FOR END IF @@ -4422,6 +4720,7 @@ FUNCTION ide2 (ignore) IF m > menus AND idecontextualmenu = 0 THEN m = 1 IF KB = KEY_ESC THEN PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeDebugMode = 2 THEN GOTO EnterDebugMode GOTO ideloop END IF IF KB = KEY_DOWN THEN @@ -4467,7 +4766,7 @@ FUNCTION ide2 (ignore) menuChoiceMade: IF KALT THEN idehl = 1 ELSE idehl = 0 'set idehl, a shared variable used by various dialogue boxes - IF menu$(m, s) = "Add Comment (') Ctrl+R" THEN + IF menu$(m, s) = "Add Co#mment (') Ctrl+R" THEN ctrlAddComment: y1 = idecy: y2 = y1 IF ideselect = 1 THEN @@ -4492,15 +4791,16 @@ FUNCTION ide2 (ignore) a$ = LEFT$(a$, lhs) + "'" + RIGHT$(a$, LEN(a$) - lhs) idesetline y, a$ idechangemade = 1 + startPausedPending = 0 END IF NEXT - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Remove Comment (') Ctrl+Shift+R" THEN + IF menu$(m, s) = "Remove Comme#nt (') Ctrl+Shift+R" THEN ctrlRemoveComment: - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 y1 = idecy: y2 = y1 IF ideselect = 1 THEN y1 = ideselecty1 @@ -4517,17 +4817,18 @@ FUNCTION ide2 (ignore) a$ = SPACE$(LEN(a$) - LEN(a2$)) + RIGHT$(a2$, LEN(a2$) - 1) idesetline y, a$ idechangemade = 1 + startPausedPending = 0 END IF END IF END IF NEXT - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Toggle Comment Ctrl+T" THEN + IF menu$(m, s) = "To#ggle Comment Ctrl+T" THEN ctrlToggleComment: - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 y1 = idecy: y2 = y1 IF ideselect = 1 THEN y1 = ideselecty1 @@ -4554,34 +4855,36 @@ FUNCTION ide2 (ignore) a$ = SPACE$(LEN(a$) - LEN(a2$)) + RIGHT$(a2$, LEN(a2$) - 1) idesetline y, a$ idechangemade = 1 + startPausedPending = 0 ELSE a$ = LEFT$(a$, lhs) + "'" + RIGHT$(a$, LEN(a$) - lhs) idesetline y, a$ idechangemade = 1 + startPausedPending = 0 END IF END IF END IF NEXT - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Increase Indent TAB" THEN + IF menu$(m, s) = "#Increase Indent TAB" THEN IF ideselect THEN GOTO IdeBlockIncreaseIndent - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF LEFT$(menu$(m, s), 15) = "Decrease Indent" THEN + IF LEFT$(menu$(m, s), 16) = "#Decrease Indent" THEN IF ideselect THEN GOTO IdeBlockDecreaseIndent - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF IF menu$(m, s) = "#Language..." THEN PCOPY 2, 0 retval = idelanguagebox - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4595,13 +4898,13 @@ FUNCTION ide2 (ignore) IF idecustomfont THEN _FONT idecustomfonthandle ELSE - _FONT 16 + IF IDE_UseFont8 THEN _FONT 8 ELSE _FONT 16 END IF skipdisplay = 0 - GOTO redraweverything2 + GOSUB redrawItAll END IF END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4609,26 +4912,34 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 HideBracketHighlight retval = idechoosecolorsbox 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Open _RGB Color Mi#xer" THEN + IF menu$(m, s) = "#RGB Color Mixer..." THEN PCOPY 2, 0 oldkeywordHighlight = keywordHighlight keywordHighlight = 0 HideBracketHighlight keywordHighlight = oldkeywordHighlight - retval$ = idecolorpicker$(-1) 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + retval$ = idergbmixer$(-1) 'retval is ignored + IF LEN(retval$) THEN insertAtCursor retval$ + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "#Advanced..." THEN + IF menu$(m, s) = "#Advanced (C++)..." THEN PCOPY 2, 0 retval = ideadvancedbox 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + + IF menu$(m, s) = "Purge C++ #Libraries" THEN + PCOPY 2, 0 + purgeprecompiledcontent + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4637,42 +4948,74 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 MouseButtonSwapped = NOT MouseButtonSwapped IF MouseButtonSwapped THEN - WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "TRUE" + WriteConfigSetting mouseSettingsSection$, "SwapMouseButton", "True" menu$(OptionsMenuID, OptionsMenuSwapMouse) = CHR$(7) + "#Swap Mouse Buttons" ELSE - WriteConfigSetting "'[MOUSE SETTINGS]", "SwapMouseButton", "FALSE" + WriteConfigSetting mouseSettingsSection$, "SwapMouseButton", "False" menu$(OptionsMenuID, OptionsMenuSwapMouse) = "#Swap Mouse Buttons" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF RIGHT$(menu$(m, s), 28) = "Cursor After #Pasted Content" THEN + IF RIGHT$(menu$(m, s), 19) = "Syntax #Highlighter" THEN + PCOPY 2, 0 + DisableSyntaxHighlighter = NOT DisableSyntaxHighlighter + IF DisableSyntaxHighlighter THEN + WriteConfigSetting generalSettingsSection$, "DisableSyntaxHighlighter", "True" + menu$(OptionsMenuID, OptionsMenuDisableSyntax) = "Syntax #Highlighter" + ELSE + WriteConfigSetting generalSettingsSection$, "DisableSyntaxHighlighter", "False" + menu$(OptionsMenuID, OptionsMenuDisableSyntax) = CHR$(7) + "Syntax #Highlighter" + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + + IF RIGHT$(menu$(m, s), 19) = "Cursor After #Paste" THEN PCOPY 2, 0 PasteCursorAtEnd = NOT PasteCursorAtEnd IF PasteCursorAtEnd THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "TRUE" - menu$(OptionsMenuID, OptionsMenuPasteCursor) = CHR$(7) + "Cursor After #Pasted Content" + WriteConfigSetting generalSettingsSection$, "PasteCursorAtEnd", "True" + menu$(OptionsMenuID, OptionsMenuPasteCursor) = CHR$(7) + "Cursor After #Paste" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "PasteCursorAtEnd", "FALSE" - menu$(OptionsMenuID, OptionsMenuPasteCursor) = "Cursor After #Pasted Content" + WriteConfigSetting generalSettingsSection$, "PasteCursorAtEnd", "False" + menu$(OptionsMenuID, OptionsMenuPasteCursor) = "Cursor After #Paste" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF RIGHT$(menu$(m, s), 36) = "Show Compilation #Errors Immediately" THEN + IF RIGHT$(menu$(m, s), 15) = "Syntax Ch#ecker" THEN PCOPY 2, 0 IDEShowErrorsImmediately = NOT IDEShowErrorsImmediately IF IDEShowErrorsImmediately THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowErrorsImmediately", "TRUE" - menu$(OptionsMenuID, OptionsMenuShowErrorsImmediately) = CHR$(7) + "Show Compilation #Errors Immediately" + WriteConfigSetting generalSettingsSection$, "ShowErrorsImmediately", "True" + menu$(OptionsMenuID, OptionsMenuShowErrorsImmediately) = CHR$(7) + "Syntax Ch#ecker" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowErrorsImmediately", "FALSE" - menu$(OptionsMenuID, OptionsMenuShowErrorsImmediately) = "Show Compilation #Errors Immediately" + WriteConfigSetting generalSettingsSection$, "ShowErrorsImmediately", "False" + menu$(OptionsMenuID, OptionsMenuShowErrorsImmediately) = "Syntax Ch#ecker" END IF idechangemade = 1 - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + startPausedPending = 0 + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + + IF RIGHT$(menu$(m, s), 16) = "Ignore #Warnings" THEN + PCOPY 2, 0 + IF IgnoreWarnings = 0 THEN + IgnoreWarnings = -1 + WriteConfigSetting generalSettingsSection$, "IgnoreWarnings", "True" + menu$(OptionsMenuID, OptionsMenuIgnoreWarnings) = CHR$(7) + "Ignore #Warnings" + ELSE + IgnoreWarnings = 0 + WriteConfigSetting generalSettingsSection$, "IgnoreWarnings", "False" + menu$(OptionsMenuID, OptionsMenuIgnoreWarnings) = "Ignore #Warnings" + END IF + idechangemade = 1 + startPausedPending = 0 + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4680,35 +5023,64 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 SaveExeWithSource = NOT SaveExeWithSource IF SaveExeWithSource THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "TRUE" + WriteConfigSetting generalSettingsSection$, "SaveExeWithSource", "True" menu$(RunMenuID, RunMenuSaveExeWithSource) = CHR$(7) + "Output EXE to Source #Folder" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "FALSE" + WriteConfigSetting generalSettingsSection$, "SaveExeWithSource", "False" menu$(RunMenuID, RunMenuSaveExeWithSource) = "Output EXE to Source #Folder" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 + idecompiled = 0 GOTO ideloop END IF - IF MID$(menu$(m, s), 1, 24) = "Enable #Quick Navigation" OR MID$(menu$(m, s), 2, 24) = "Enable #Quick Navigation" THEN + IF RIGHT$(menu$(m, s), 29) = "#Output Watch List to Console" THEN + PCOPY 2, 0 + WatchListToConsole = NOT WatchListToConsole + IF WatchListToConsole THEN + WriteConfigSetting debugSettingsSection$, "WatchListToConsole", "True" + menu$(DebugMenuID, DebugMenuWatchListToConsole) = CHR$(7) + "#Output Watch List to Console" + ELSE + WriteConfigSetting debugSettingsSection$, "WatchListToConsole", "False" + menu$(DebugMenuID, DebugMenuWatchListToConsole) = "#Output Watch List to Console" + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + + IF RIGHT$(menu$(m, s), 28) = "Auto-add $#Debug Metacommand" THEN + PCOPY 2, 0 + AutoAddDebugCommand = NOT AutoAddDebugCommand + IF AutoAddDebugCommand THEN + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "True" + menu$(DebugMenuID, DebugMenuAutoAddCommand) = CHR$(7) + "Auto-add $#Debug Metacommand" + ELSE + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False" + menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand" + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + + IF MID$(menu$(m, s), 1, 17) = "#Quick Navigation" OR MID$(menu$(m, s), 2, 17) = "#Quick Navigation" THEN PCOPY 2, 0 EnableQuickNav = NOT EnableQuickNav IF EnableQuickNav THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "EnableQuickNav", "TRUE" - menu$(SearchMenuID, SearchMenuEnableQuickNav) = CHR$(7) + "Enable #Quick Navigation (Back Arrow)" + WriteConfigSetting generalSettingsSection$, "EnableQuickNav", "True" + menu$(SearchMenuID, SearchMenuEnableQuickNav) = CHR$(7) + "#Quick Navigation" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "EnableQuickNav", "FALSE" - menu$(SearchMenuID, SearchMenuEnableQuickNav) = "Enable #Quick Navigation (Back Arrow)" + WriteConfigSetting generalSettingsSection$, "EnableQuickNav", "False" + menu$(SearchMenuID, SearchMenuEnableQuickNav) = "#Quick Navigation" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF IF menu$(m, s) = "#Code Layout..." THEN PCOPY 2, 0 retval = idelayoutbox - IF retval THEN idechangemade = 1: idelayoutallow = 2 'recompile if options changed - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + IF retval THEN idechangemade = 1: idelayoutallow = 2: startPausedPending = 0 'recompile if options changed + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4734,21 +5106,21 @@ FUNCTION ide2 (ignore) IdeBmk(IdeBmkN).x = idecx ideunsaved = 1 END IF - SCREEN , , 3, 0: idewait4mous: idewait4alt + SCREEN , , 3, 0 GOTO ideloop END IF IF menu$(m, s) = "#Next Bookmark Alt+Down" OR menu$(m, s) = "#Previous Bookmark Alt+Up" THEN PCOPY 2, 0 IF IdeBmkN = 0 THEN - idemessagebox "Bookmarks", "No bookmarks exist (Use Alt+Left to create a bookmark)" - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + result = idemessagebox("Bookmarks", "No bookmarks exist (Use Alt+Left to create a bookmark)", "") + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF IF IdeBmkN = 1 THEN IF idecy = IdeBmk(1).y THEN - idemessagebox "Bookmarks", "No other bookmarks exist" - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + result = idemessagebox("Bookmarks", "No other bookmarks exist", "") + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF END IF @@ -4762,11 +5134,11 @@ FUNCTION ide2 (ignore) IF IdeBmk(b).y = l THEN EXIT DO NEXT LOOP - AddQuickNavHistory idecy + AddQuickNavHistory idecy = l idecx = IdeBmk(b).x ideselect = 0 - SCREEN , , 3, 0: idewait4mous: idewait4alt + SCREEN , , 3, 0 GOTO ideloop END IF @@ -4777,9 +5149,8 @@ FUNCTION ide2 (ignore) IF menu$(m, s) = "#Go To Line... Ctrl+G" THEN PCOPY 2, 0 - retval = idegotobox - 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + idegotobox + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4787,35 +5158,98 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 retval = idebackupbox 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF + 'IF menu$(m, s) = "Check for #Newer Version..." THEN + ' PCOPY 2, 0 + ' idecheckupdates + ' PCOPY 3, 0: SCREEN , , 3, 0 + ' GOTO ideloop + 'END IF + + IF menu$(m, s) = "#About..." THEN + helpabout: PCOPY 2, 0 - idemessagebox "About", "QB64 Version " + Version$ + CHR$(10) + "Revision " + BuildNum$ + CHR$(10) + AutoBuildMsg$ - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + m$ = "QB64 Version " + Version$ + CHR$(10) + DevChannel$ + IF LEN(AutoBuildMsg$) THEN m$ = m$ + CHR$(10) + AutoBuildMsg$ + result = idemessagebox("About", m$, "") + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "ASCII C#hart" THEN + IF menu$(m, s) = "#ASCII Chart..." THEN PCOPY 2, 0 - ideASCIIbox - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + relaunch = 0 + DO + retval$ = ideASCIIbox$(relaunch) + IF LEN(retval$) THEN insertAtCursor retval$ + PCOPY 3, 0: SCREEN , , 3, 0 + GOSUB redrawItAll + ideshowtext + PCOPY 3, 0 + LOOP WHILE relaunch retval = 1 - GOTO redraweverything2 + GOTO ideloop + END IF + + IF menu$(m, s) = "Insert Quick #Keycode Ctrl+K" THEN + PCOPY 3, 0: SCREEN , , 3, 0 + ideQuickKeycode: + dummy = DarkenFGBG(1) + clearStatusWindow 0 + COLOR 15, 1 + _PRINTSTRING (2, idewy - 3), "Press any key to insert its _KEYHIT/_KEYDOWN code..." + PCOPY 3, 0 + + tempk$ = "" + + DO: tempk = _KEYHIT: _LIMIT 30: LOOP UNTIL tempk = 0 'wait for key release + DO 'get the next key hit + tempk = _KEYHIT + IF tempk > 0 THEN tempk$ = STR$(tempk) + + WHILE _MOUSEINPUT: WEND + IF _MOUSEBUTTON(1) OR _MOUSEBUTTON(2) THEN GOTO bypassCtrlK + + _LIMIT 30 + LOOP UNTIL tempk > 0 + IF tempk = 100303 OR tempk = 100304 THEN 'shift key + DO 'get the next key hit + tempk = _KEYHIT 'see what the next key is, and use it + IF tempk <> 0 THEN tempk$ = STR$(ABS(tempk)) 'if it's the SHFT UP code, then return the value for shift + + WHILE _MOUSEINPUT: WEND + IF _MOUSEBUTTON(1) OR _MOUSEBUTTON(2) THEN GOTO bypassCtrlK + + _LIMIT 30 + LOOP UNTIL tempk <> 0 + END IF + tempk$ = LTRIM$(tempk$) + + 'insert + insertAtCursor tempk$ + + bypassCtrlK: + dummy = DarkenFGBG(0) + PCOPY 3, 0: SCREEN , , 3, 0 + retval = 1 + KCTRL = 0: KCONTROL = 0 + GOSUB redrawItAll GOTO ideloop END IF IF LEFT$(menu$(m, s), 10) = "#Help On '" THEN 'Contextual menu Help - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO contextualhelp END IF IF LEFT$(menu$(m, s), 10) = "#Go To SUB" OR LEFT$(menu$(m, s), 15) = "#Go To FUNCTION" THEN 'Contextual menu Goto - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - AddQuickNavHistory idecy + PCOPY 3, 0: SCREEN , , 3, 0 + AddQuickNavHistory idecy = CVL(MID$(SubFuncLIST(1), 1, 4)) idesy = idecy idecx = 1 @@ -4825,8 +5259,8 @@ FUNCTION ide2 (ignore) END IF IF LEFT$(menu$(m, s), 12) = "Go To #Label" THEN 'Contextual menu Goto label - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - AddQuickNavHistory idecy + PCOPY 3, 0: SCREEN , , 3, 0 + AddQuickNavHistory idecy = CVL(MID$(SubFuncLIST(UBOUND(SubFuncLIST)), 1, 4)) idesy = idecy idecx = 1 @@ -4836,17 +5270,17 @@ FUNCTION ide2 (ignore) END IF IF menu$(m, s) = "#Contents Page" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 lnk$ = "QB64 Help Menu" GOTO OpenHelpLnk END IF IF menu$(m, s) = "Keyword #Index" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 lnk$ = "Keyword Reference - Alphabetical" GOTO OpenHelpLnk END IF IF menu$(m, s) = "#Keywords by Usage" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 lnk$ = "Keyword Reference - By usage" GOTO OpenHelpLnk END IF @@ -4854,20 +5288,26 @@ FUNCTION ide2 (ignore) IF menu$(m, s) = "#View Shift+F1" THEN IF idehelp = 0 THEN - IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop + IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO ideloop idesubwindow = idewy \ 2: idewy = idewy - idesubwindow Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 idehelp = 1 skipdisplay = 0 IdeSystem = 3 - retval = 1: GOTO redraweverything2 + retval = 1: GOSUB redrawItAll END IF GOTO ideloop END IF + IF menu$(m, s) = "View Current Page On #Wiki" THEN + PCOPY 3, 0: SCREEN , , 3, 0 + IF idehelp THEN GOTO launchWiki + GOTO ideloop + END IF + IF menu$(m, s) = "#Update Current Page" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF idehelp THEN Help_IgnoreCache = 1 a$ = Wiki$(Back$(Help_Back_Pos)) @@ -4878,108 +5318,80 @@ FUNCTION ide2 (ignore) END IF - IF menu$(m, s) = "#Math" THEN - Mathbox + IF menu$(m, s) = "#Math Evaluator..." THEN + STATIC mathEvalExpr$ + 'build initial name if word selected + IF ideselect THEN + IF ideselecty1 = idecy THEN 'single line selected + a$ = idegetline(idecy) + a2$ = "" + sx1 = ideselectx1: sx2 = idecx + IF sx2 < sx1 THEN SWAP sx1, sx2 + FOR x = sx1 TO sx2 - 1 + IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE EXIT FOR + NEXT + a2$ = _TRIM$(a2$) + IF LEN(a2$) THEN mathEvalExpr$ = a2$ + END IF + END IF + + DO + PCOPY 2, 0 + retval$ = ideinputbox$("Math Evaluator", "#Enter expression", mathEvalExpr$, "", 60, 0, 0) + result = 0 + IF LEN(retval$) THEN + mathEvalExpr$ = retval$ + ev0$ = Evaluate_Expression$(retval$) + ev$ = ev0$ + mathEvalError%% = INSTR(ev$, "ERROR") > 0 + IF mathEvalError%% = 0 AND mathEvalHEX%% THEN ev$ = "&H" + HEX$(VAL(ev$)) + DO + b1$ = "#Insert;" + IF mathEvalHEX%% THEN b2$ = "#Decimal;" ELSE b2$ = "#HEX$;" + IF mathEvalError%% = 0 AND mathEvalComment%% THEN + mathMsg$ = ev$ + " '" + retval$ + b3$ = "#Uncomment;" + ELSE + mathMsg$ = ev$ + b3$ = "Co#mment;" + END IF + IF mathEvalError%% THEN b1$ = "": b2$ = "": b3$ = "" + PCOPY 2, 0 + result = idemessagebox("Math Evaluator - Result", mathMsg$, b1$ + b2$ + b3$ + "#Redo;#Cancel") + IF mathEvalError%% = 0 THEN + SELECT CASE result + CASE 1, 4, 5 + EXIT DO + CASE 2 + mathEvalHEX%% = NOT mathEvalHEX%% + IF mathEvalHEX%% THEN ev$ = "&H" + HEX$(VAL(ev$)) ELSE ev$ = ev0$ + CASE 3 + mathEvalComment%% = NOT mathEvalComment%% + END SELECT + ELSE + EXIT DO + END IF + LOOP + IF mathEvalError%% AND result = 2 THEN EXIT DO + IF mathEvalError%% = 0 AND (result = 1 OR result = 5) THEN EXIT DO + ELSE + EXIT DO + END IF + LOOP + + IF mathEvalError%% = 0 AND result = 1 THEN + insertAtCursor mathMsg$ + END IF PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Update All #Pages" THEN + IF menu$(m, s) = "Update All #Pages..." THEN PCOPY 2, 0 - q$ = ideyesnobox("Update Help", "Redownload all cached help content? (~10 min)") - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - IF q$ = "Y" THEN - - IF idehelp = 0 THEN - old_idesubwindow = idesubwindow: old_idewy = idewy - idesubwindow = idewy \ 2: idewy = idewy - idesubwindow - Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 - idesubwindow = old_idesubwindow: idewy = old_idewy - END IF - - SCREEN , , 4, 4 - COLOR 7, 1 - CLS - - PRINT "Generating list of cached content..." - - 'Create a list of all files to be recached - f$ = CHR$(0) + idezfilelist$("internal/help", 1) + CHR$(0) - IF LEN(f$) = 2 THEN f$ = CHR$(0) - - 'Prepend core pages to list - f$ = CHR$(0) + "Keyword_Reference_-_By_usage.txt" + f$ - f$ = CHR$(0) + "QB64_Help_Menu.txt" + f$ - f$ = CHR$(0) + "QB64_FAQ.txt" + f$ - PRINT "Adding core help pages added to list..." - - 'Download and PARSE alphabetical index to build required F1 help links - PRINT "Regenerating keyword list..." - Help_Recaching = 1: Help_IgnoreCache = 1 - a$ = Wiki$("Keyword Reference - Alphabetical") - Help_Recaching = 0: Help_IgnoreCache = 0 - WikiParse a$ - - 'Add all linked pages to download list (if not already in list) - fh = FREEFILE - OPEN "internal\help\links.bin" FOR INPUT AS #fh - DO UNTIL EOF(fh) - LINE INPUT #fh, l$ - IF LEN(l$) THEN - c = INSTR(l$, ","): PageName2$ = RIGHT$(l$, LEN(l$) - c) - DO WHILE INSTR(PageName2$, " ") - ASC(PageName2$, INSTR(PageName2$, " ")) = 95 - LOOP - DO WHILE INSTR(PageName2$, "&") - i = INSTR(PageName2$, "&") - PageName2$ = LEFT$(PageName2$, i - 1) + "%26" + RIGHT$(PageName2$, LEN(PageName2$) - i) - LOOP - DO WHILE INSTR(PageName2$, "/") - i = INSTR(PageName2$, "/") - PageName2$ = LEFT$(PageName2$, i - 1) + "%2F" + RIGHT$(PageName2$, LEN(PageName2$) - i) - LOOP - PageName2$ = PageName2$ + ".txt" - IF INSTR(f$, CHR$(0) + PageName2$ + CHR$(0)) = 0 THEN - f$ = f$ + PageName2$ + CHR$(0) - END IF - END IF - LOOP - CLOSE #fh - - 'Redownload all listed files - IF f$ <> CHR$(0) THEN - c = 0 'count files to download - FOR x = 2 TO LEN(f$) - IF ASC(f$, x) = 0 THEN c = c + 1 - NEXT - c = c - 1 - PRINT "Updating"; c; "help content files: (Press ESC to cancel)" - - f$ = RIGHT$(f$, LEN(f$) - 1) - z$ = CHR$(0) - n = 0 - DO UNTIL LEN(f$) = 0 - x2 = INSTR(f$, z$) - f2$ = LEFT$(f$, x2 - 1): f$ = RIGHT$(f$, LEN(f$) - x2) - - IF RIGHT$(f2$, 4) = ".txt" THEN - f2$ = LEFT$(f2$, LEN(f2$) - 4) - n = n + 1 - PRINT "(" + str2$(n) + "/" + str2$(c) + ") " + f2$ - - Help_IgnoreCache = 1: Help_Recaching = 1: ignore$ = Wiki(f2$): Help_Recaching = 0: Help_IgnoreCache = 0 - END IF - - GetInput - DO WHILE iCHANGED - IF K$ = CHR$(27) THEN GOTO stoprecache - GetInput - LOOP - LOOP - END IF - stoprecache: - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - END IF + q$ = ideyesnobox("Update Help", "This can take up to 10 minutes.\nRedownload all cached help content from the wiki?") + PCOPY 2, 0 + IF q$ = "Y" THEN ideupdatehelpbox + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -4987,24 +5399,29 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 idenewsf "SUB" ideselect = 0 - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF IF LEFT$(menu$(m, s), 13) = "New #FUNCTION" THEN PCOPY 2, 0 idenewsf "FUNCTION" ideselect = 0 - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "#SUBs... F2" THEN - PCOPY 2, 0 - idesubsjmp: - r$ = idesubs - IF r$ <> "C" THEN ideselect = 0 - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - GOTO ideloop + IF menu$(m, s) = "#SUBs... F2" OR menu$(m, s) = "SUBs... F2" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 14 + GOTO EnterDebugMode + ELSE + PCOPY 2, 0 + idesubsjmp: + r$ = idesubs + IF r$ <> "C" THEN ideselect = 0 + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF END IF IF menu$(m, s) = "#Line Numbers " + CHR$(16) THEN @@ -5015,22 +5432,22 @@ FUNCTION ide2 (ignore) IF menu$(m, s) = "#Show Line Numbers" THEN PCOPY 2, 0 ShowLineNumbers = -1 - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbers", "TRUE" + WriteConfigSetting generalSettingsSection$, "ShowLineNumbers", "True" menu$(m, s) = "#Hide Line Numbers" menu$(m, ViewMenuShowBGID) = MID$(menu$(m, ViewMenuShowBGID), 2) menu$(m, ViewMenuShowSeparatorID) = MID$(menu$(m, ViewMenuShowSeparatorID), 2) - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF IF menu$(m, s) = "#Hide Line Numbers" THEN PCOPY 2, 0 ShowLineNumbers = 0 - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbers", "FALSE" + WriteConfigSetting generalSettingsSection$, "ShowLineNumbers", "False" menu$(m, s) = "#Show Line Numbers" menu$(m, ViewMenuShowBGID) = "~" + menu$(m, ViewMenuShowBGID) menu$(m, ViewMenuShowSeparatorID) = "~" + menu$(m, ViewMenuShowSeparatorID) - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -5039,13 +5456,13 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 ShowLineNumbersUseBG = NOT ShowLineNumbersUseBG IF ShowLineNumbersUseBG THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersUseBG", "TRUE" + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersUseBG", "True" menu$(m, s) = CHR$(7) + "#Background Color" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersUseBG", "FALSE" + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersUseBG", "False" menu$(m, s) = "#Background Color" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF END IF @@ -5055,13 +5472,13 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 ShowLineNumbersSeparator = NOT ShowLineNumbersSeparator IF ShowLineNumbersSeparator THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersSeparator", "TRUE" + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersSeparator", "True" menu$(m, s) = CHR$(7) + "Sho#w Separator" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "ShowLineNumbersSeparator", "FALSE" + WriteConfigSetting generalSettingsSection$, "ShowLineNumbersSeparator", "False" menu$(m, s) = "Sho#w Separator" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF END IF @@ -5070,7 +5487,7 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 retval = idewarningbox 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -5078,7 +5495,7 @@ FUNCTION ide2 (ignore) PCOPY 2, 0 idefindjmp: r$ = idefind - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 '... GOTO ideloop END IF @@ -5086,20 +5503,24 @@ FUNCTION ide2 (ignore) IF LEFT$(menu$(m, s), 6) = "Find '" THEN 'Contextual menu Find idefindtext = idecontextualSearch$ IdeAddSearched idefindtext - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO idemf3 END IF - IF menu$(m, s) = "#Change..." THEN + IF menu$(m, s) = "#Change... Alt+F3" THEN PCOPY 2, 0 + idefindchangejmp: r$ = idechange - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 + idealthighlight = 0 + LOCATE , , 0: COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ IF r$ = "C" OR r$ = "" THEN GOTO ideloop 'assume "V", verify changes IdeAddSearched idefindtext oldcx = idecx: oldcy = idecy found = 0: looped = 0 + changed = 0 s$ = idefindtext$ IF idefindcasesens = 0 THEN s$ = UCASE$(s$) @@ -5165,9 +5586,19 @@ FUNCTION ide2 (ignore) END IF END IF + DIM comment AS _BYTE, quote AS _BYTE + IF x THEN + FindQuoteComment l$, x, comment, quote + IF idefindnocomments <> 0 AND comment THEN x = 0 + IF idefindnostrings <> 0 AND quote THEN x = 0 + IF idefindonlycomments <> 0 AND comment = 0 THEN x = 0 + IF idefindonlystrings <> 0 AND quote = 0 THEN x = 0 + END IF + IF x THEN ideselect = 1 idecx = x: idecy = y + idecentercurrentline ideselectx1 = x + LEN(s$): ideselecty1 = y found = 1 @@ -5176,18 +5607,29 @@ FUNCTION ide2 (ignore) PCOPY 3, 0 r$ = idechangeit idedeltxt - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 ideselect = 0 - IF r$ = "C" THEN idecx = oldcx: idecy = oldcy: GOTO ideloop + IF r$ = "C" THEN + idecx = oldcx: idecy = oldcy + IF changed THEN + ideshowtext + SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0 + PCOPY 3, 0 + idechanged changed + END IF + GOTO ideloop + END IF IF r$ = "Y" THEN l$ = idegetline(idecy) idechangemade = 1 + startPausedPending = 0 IF LEN(l$) >= ideselectx1 THEN l$ = LEFT$(l$, idecx - 1) + idechangeto$ + RIGHT$(l$, LEN(l$) - ideselectx1 + 1) ELSE l$ = LEFT$(l$, idecx - 1) + idechangeto$ END IF idesetline idecy, l$ + changed = changed + 1 IF idefindcasesens = 0 THEN l$ = UCASE$(l$) IF idefindbackwards THEN @@ -5224,15 +5666,20 @@ FUNCTION ide2 (ignore) finishedchange: idecx = oldcx: idecy = oldcy - IF found THEN + IF changed THEN ideshowtext SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0 PCOPY 3, 0 - idechanged + idechanged changed + ELSEIF found THEN + ideshowtext + SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0 + PCOPY 3, 0 + result = idemessagebox("Search complete", "No changes made.", "") ELSE - idenomatch + idenomatch -1 END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF '#Change... @@ -5244,90 +5691,347 @@ FUNCTION ide2 (ignore) OPEN ".\internal\temp\searched.bin" FOR OUTPUT AS #fh: CLOSE #fh idefindtext = "" END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF IF menu$(m, s) = "#Repeat Last Find (Shift+) F3" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO idemf3 END IF IF menu$(m, s) = "Cl#ear Del" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - IF ideselect = 1 THEN + PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeSystem = 1 AND ideselect = 1 THEN idechangemade = 1 - GOSUB delselect + startPausedPending = 0 + delselect + ELSEIF IdeSystem = 2 THEN + GOTO deleteSelectionSearchField END IF GOTO ideloop END IF IF menu$(m, s) = "#Paste Shift+Ins or Ctrl+V" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - GOTO idempaste + PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeSystem = 1 THEN GOTO idempaste + IF IdeSystem = 2 THEN GOTO pasteIntoSearchField END IF IF menu$(m, s) = "#Copy Ctrl+Ins or Ctrl+C" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - IF ideselect = 1 THEN GOTO copy2clip + PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeSystem = 1 AND ideselect = 1 THEN GOTO copy2clip + IF IdeSystem = 2 THEN GOTO copysearchterm2clip + IF IdeSystem = 3 AND Help_Select = 2 THEN GOTO copyhelp2clip GOTO ideloop END IF IF menu$(m, s) = "Cu#t Shift+Del or Ctrl+X" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - IF ideselect = 1 THEN + PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeSystem = 1 AND ideselect = 1 THEN K$ = CHR$(0) + "S" 'tricks handler into del after copy GOTO idemcut + ELSEIF IdeSystem = 2 THEN + GOTO cutToClipboardSearchField END IF GOTO ideloop END IF IF menu$(m, s) = "#Undo Ctrl+Z" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO idemundo END IF IF menu$(m, s) = "#Redo Ctrl+Y" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO idemredo END IF IF menu$(m, s) = "Select #All Ctrl+A" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - GOTO idemselectall + PCOPY 3, 0: SCREEN , , 3, 0 + IF IdeSystem = 1 THEN GOTO idemselectall + IF IdeSystem = 2 THEN GOTO selectAllInSearchField + IF IdeSystem = 3 THEN GOTO selectAllInHelp + END IF + + IF menu$(m, s) = "Clo#se Help ESC" THEN + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO closeHelp END IF IF menu$(m, s) = "#Start F5" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - UseAndroid 0 + PCOPY 3, 0: SCREEN , , 3, 0 + startPaused = 0 GOTO idemrun END IF IF menu$(m, s) = "Modify #COMMAND$..." THEN PCOPY 2, 0 - retval = idemodifycommandbox + ModifyCOMMAND$ = " " + ideinputbox$("Modify COMMAND$", "#Enter text for COMMAND$", _TRIM$(ModifyCOMMAND$), "", 60, 0, 0) + IF _TRIM$(ModifyCOMMAND$) = "" THEN ModifyCOMMAND$ = "" 'retval is ignored - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Make #Android Project" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - UseAndroid 1 - GOTO idemrun + IF menu$(m, s) = "Make E#XE Only F11" OR menu$(m, s) = "Make E#xecutable Only F11" THEN + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO idemexe END IF - 'IF menu$(m, s) = "Start (#Detached) Ctrl+F5" THEN - ' PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - ' UseAndroid 0 - ' GOTO idemdetached - 'END IF + IF menu$(m, s) = "Start #Paused F7 or F8" THEN + PCOPY 3, 0: SCREEN , , 3, 0 + startPausedMenuHandler: + IF vWatchOn = 0 THEN + IF AutoAddDebugCommand = 0 THEN + SCREEN , , 3, 0 + clearStatusWindow 2 + COLOR 14, 1 + x = 2 + y = idewy - 2 + printWrapStatus x, y, x, "$DEBUG metacommand is required to start paused." + PCOPY 3, 0 + GOTO ideloop + END IF + result = idemessagebox("Start Paused", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again") + IF result = 1 THEN + ideselect = 0 + ideinsline 1, SCase$("$Debug") + idecy = idecy + 1 + idechangemade = 1 + startPaused = -1 + startPausedPending = -1 + GOTO specialchar + ELSEIF result = 3 THEN + result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK") + AutoAddDebugCommand = 0 + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False" + menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand" + END IF + GOTO ideloop + ELSE + startPausedPending = 0 + startPaused = -1 + GOTO idemrun + END IF + END IF - IF menu$(m, s) = "Make E#XE Only F11" OR menu$(m, s) = "Make E#xecutable Only F11" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt - UseAndroid 0 - GOTO idemexe + IF menu$(m, s) = "#Watch List... F4" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 16 + GOTO EnterDebugMode + ELSE + PCOPY 2, 0 + showWatchList: + IF vWatchOn = 0 THEN + IF AutoAddDebugCommand = 0 THEN + SCREEN , , 3, 0 + clearStatusWindow 2 + COLOR 14, 1 + x = 2 + y = idewy - 2 + printWrapStatus x, y, x, "$DEBUG metacommand is required for Watch List functionality." + PCOPY 3, 0 + GOTO ideloop + END IF + result = idemessagebox("Watch List", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again") + IF result = 1 THEN + ideselect = 0 + ideinsline 1, SCase$("$Debug") + idecy = idecy + 1 + idechangemade = 1 + ELSEIF result = 3 THEN + result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK") + AutoAddDebugCommand = 0 + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False" + menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand" + END IF + GOTO ideloop + ELSE + IF idecompiling = 1 THEN + SCREEN , , 3, 0 + COLOR 14, 1 + x = 2 + y = idewy - 2 + printWrapStatus x, y, x, "Variable List will be available after syntax checking is done..." + waitingForVarList = 1 + PCOPY 3, 0 + GOTO ideloop + ELSE + result$ = idevariablewatchbox$("", "", 0, 0) + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + END IF + + IF menu$(m, s) = "Call #Stack... F12" OR menu$(m, s) = "Call Stack... F12" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 3 + GOTO EnterDebugMode + ELSE + PCOPY 2, 0 + showCallStackDialog: + retval = idecallstackbox + 'retval is ignored + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + END IF + + IF menu$(m, s) = "#Continue F5" THEN + IdeDebugMode = 4 + GOTO EnterDebugMode + END IF + + IF menu$(m, s) = "Step O#ut F6" THEN + IdeDebugMode = 5 + GOTO EnterDebugMode + END IF + + IF menu$(m, s) = "Ste#p Into F7" THEN + IdeDebugMode = 7 + GOTO EnterDebugMode + END IF + + IF menu$(m, s) = "Step #Over F8" THEN + IdeDebugMode = 6 + GOTO EnterDebugMode + END IF + + IF menu$(m, s) = "#Run To This Line Ctrl+Shift+G" THEN + IdeDebugMode = 8 + GOTO EnterDebugMode + END IF + + IF menu$(m, s) = "#Exit $DEBUG mode ESC" THEN + IdeDebugMode = 9 + GOTO EnterDebugMode + END IF + + IF menu$(m, s) = "Toggle #Breakpoint F9" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 10 + GOTO EnterDebugMode + ELSE + PCOPY 3, 0: SCREEN , , 3, 0 + toggleBreakpoint: + IF vWatchOn = 0 THEN + IF AutoAddDebugCommand = 0 THEN + SCREEN , , 3, 0 + clearStatusWindow 2 + COLOR 14, 1 + x = 2 + y = idewy - 2 + printWrapStatus x, y, x, "$DEBUG metacommand is required to enable breakpoints." + PCOPY 3, 0 + GOTO ideloop + END IF + result = idemessagebox("Toggle Breakpoint", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again") + IF result = 1 THEN + ideselect = 0 + ideinsline 1, SCase$("$Debug") + idecy = idecy + 1 + idechangemade = 1 + IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy) + ELSEIF result = 3 THEN + result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK") + AutoAddDebugCommand = 0 + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False" + menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand" + END IF + ELSE + IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy) + END IF + IF IdeBreakpoints(idecy) THEN IdeSkipLines(idecy) = 0 + GOTO ideloop + END IF + END IF + + IF menu$(m, s) = "#Clear All Breakpoints F10" OR menu$(m, s) = "Clear All Breakpoints F10" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 11 + GOTO EnterDebugMode + ELSE + PCOPY 3, 0: SCREEN , , 3, 0 + clearAllBreakpoints: + REDIM IdeBreakpoints(iden) AS _BYTE + GOTO ideloop + END IF + END IF + + IF menu$(m, s) = "Toggle #Skip Line Ctrl+P" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 12 + GOTO EnterDebugMode + ELSE + PCOPY 3, 0: SCREEN , , 3, 0 + toggleSkipLine: + IF vWatchOn = 0 THEN + IF AutoAddDebugCommand = 0 THEN + SCREEN , , 3, 0 + clearStatusWindow 2 + COLOR 14, 1 + x = 2 + y = idewy - 2 + printWrapStatus x, y, x, "$DEBUG metacommand is required to enable line skipping." + PCOPY 3, 0 + GOTO ideloop + END IF + result = idemessagebox("Toggle Skip Line", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again") + IF result = 1 THEN + ideselect = 0 + ideinsline 1, SCase$("$Debug") + idecy = idecy + 1 + idechangemade = 1 + IdeSkipLines(idecy) = NOT IdeSkipLines(idecy) + ELSEIF result = 3 THEN + result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK") + AutoAddDebugCommand = 0 + WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False" + menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand" + END IF + ELSE + IdeSkipLines(idecy) = NOT IdeSkipLines(idecy) + END IF + IF IdeSkipLines(idecy) THEN IdeBreakpoints(idecy) = 0 + GOTO ideloop + END IF + END IF + + IF menu$(m, s) = "#Unskip All Lines Ctrl+F10" THEN + IF IdeDebugMode = 2 THEN + IdeDebugMode = 15 + GOTO EnterDebugMode + ELSE + PCOPY 3, 0: SCREEN , , 3, 0 + unskipAllLines: + REDIM IdeSkipLines(iden) AS _BYTE + GOTO ideloop + END IF + END IF + + IF menu$(m, s) = "Set Base #TCP/IP Port Number..." THEN + PCOPY 2, 0 + bkpidebaseTcpPort = idebaseTcpPort + ideSetTCPPortBox + IF bkpidebaseTcpPort <> idebaseTcpPort THEN + IF host& <> 0 THEN CLOSE host&: host& = 0 + attemptToHost = 0 + changingTcpPort = -1 + idechangemade = 1 + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + GOTO ideloop + END IF + + IF menu$(m, s) = "Set #Next Line Ctrl+G" THEN + IdeDebugMode = 13 + GOTO EnterDebugMode END IF IF menu$(m, s) = "E#xit" THEN @@ -5335,19 +6039,19 @@ FUNCTION ide2 (ignore) quickexit: IF ideunsaved = 1 THEN r$ = idesavenow - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF r$ = "C" THEN GOTO ideloop IF r$ = "Y" THEN IF ideprogname = "" THEN ProposedTitle$ = FindProposedTitle$ IF ProposedTitle$ = "" THEN - r$ = idesaveas$("untitled" + tempfolderindexstr$ + ".bas") + r$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) ELSE - r$ = idesaveas$(ProposedTitle$ + ".bas") - END IF - IF r$ = "C" THEN - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop + r$ = idefiledialog$(ProposedTitle$ + ".bas", 2) END IF + PCOPY 3, 0: SCREEN , , 3, 0 + IF ideerror > 1 THEN GOTO IDEerrorMessage + IF r$ = "C" THEN GOTO ideloop ELSE idesave idepath$ + idepathsep$ + ideprogname$ END IF @@ -5363,17 +6067,18 @@ FUNCTION ide2 (ignore) ctrlNew: IF ideunsaved = 1 THEN r$ = idesavenow - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF r$ = "C" THEN GOTO ideloop IF r$ = "Y" THEN IF ideprogname = "" THEN ProposedTitle$ = FindProposedTitle$ IF ProposedTitle$ = "" THEN - r$ = idesaveas$("untitled" + tempfolderindexstr$ + ".bas") + r$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) ELSE - r$ = idesaveas$(ProposedTitle$ + ".bas") + r$ = idefiledialog$(ProposedTitle$ + ".bas", 2) END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 + IF ideerror > 1 THEN GOTO IDEerrorMessage IF r$ = "C" THEN GOTO ideloop ELSE idesave idepath$ + idepathsep$ + ideprogname$ @@ -5382,6 +6087,13 @@ FUNCTION ide2 (ignore) END IF ideunsaved = -1 'new blank text field + REDIM IdeBreakpoints(1) AS _BYTE + REDIM IdeSkipLines(1) AS _BYTE + variableWatchList$ = "" + backupVariableWatchList$ = "": REDIM backupUsedVariableList(1000) AS usedVarList + backupTypeDefinitions$ = "" + watchpointList$ = "" + callstacklist$ = "": callStackLength = 0 idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0 idesx = 1 idesy = 1 @@ -5392,7 +6104,8 @@ FUNCTION ide2 (ignore) listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength) QuickNavTotal = 0 ModifyCOMMAND$ = "" - _TITLE "QB64" + _TITLE WindowTitle + startPausedPending = 0 idechangemade = 1 idefocusline = 0 ideundobase = 0 'reset @@ -5400,7 +6113,7 @@ FUNCTION ide2 (ignore) END IF AttemptToLoadRecent = 0 - FOR ml = 1 TO 4 + FOR ml = 1 TO UBOUND(IdeRecentLink, 1) IF LEN(IdeRecentLink(ml, 1)) THEN IF menu$(m, s) = IdeRecentLink(ml, 1) THEN IdeOpenFile$ = IdeRecentLink(ml, 2) @@ -5422,7 +6135,7 @@ FUNCTION ide2 (ignore) fh = FREEFILE OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh IdeMakeFileMenu - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop ELSE GOTO ideshowrecentbox @@ -5436,21 +6149,21 @@ FUNCTION ide2 (ignore) AttemptToLoadRecent = -1 GOTO directopen END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - IF menu$(m, s) = "Clear #Recent..." THEN + IF menu$(m, s) = "#Clear Recent..." THEN PCOPY 2, 0 r$ = ideclearhistory$("FILES") IF r$ = "Y" THEN fh = FREEFILE OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh IdeMakeFileMenu - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 GOTO ideloop END IF @@ -5461,26 +6174,29 @@ FUNCTION ide2 (ignore) ctrlOpen: IF ideunsaved THEN r$ = idesavenow - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 IF r$ = "C" THEN GOTO ideloop IF r$ = "Y" THEN IF ideprogname = "" THEN ProposedTitle$ = FindProposedTitle$ IF ProposedTitle$ = "" THEN - r$ = idesaveas$("untitled" + tempfolderindexstr$ + ".bas") + r$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) ELSE - r$ = idesaveas$(ProposedTitle$ + ".bas") + r$ = idefiledialog$(ProposedTitle$ + ".bas", 2) END IF + IF ideerror > 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO IDEerrorMessage IF r$ = "C" THEN GOTO ideloop ELSE idesave idepath$ + idepathsep$ + ideprogname$ END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt + PCOPY 3, 0: SCREEN , , 3, 0 END IF '"Y" END IF 'unsaved - r$ = ideopen - IF r$ <> "C" THEN ideunsaved = -1: idechangemade = 1: idelayoutallow = 2: ideundobase = 0: QuickNavTotal = 0: ModifyCOMMAND$ = "" - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop + r$ = idefiledialog$("", 1) + IF ideerror > 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO IDEerrorMessage + IF r$ <> "C" THEN ideunsaved = -1: idechangemade = 1: idelayoutallow = 2: ideundobase = 0: QuickNavTotal = 0: ModifyCOMMAND$ = "": idefocusline = 0: startPausedPending = 0 + PCOPY 3, 0: SCREEN , , 3, 0 + GOSUB redrawItAll: GOTO ideloop END IF IF menu$(m, s) = "#Save Ctrl+S" THEN @@ -5488,14 +6204,15 @@ FUNCTION ide2 (ignore) IF ideprogname = "" THEN ProposedTitle$ = FindProposedTitle$ IF ProposedTitle$ = "" THEN - a$ = idesaveas$("untitled" + tempfolderindexstr$ + ".bas") + a$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) ELSE - a$ = idesaveas$(ProposedTitle$ + ".bas") + a$ = idefiledialog$(ProposedTitle$ + ".bas", 2) END IF + IF ideerror > 1 THEN PCOPY 3, 0: SCREEN , , 3, 0: GOTO IDEerrorMessage ELSE idesave idepath$ + idepathsep$ + ideprogname$ END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop + PCOPY 3, 0: SCREEN , , 3, 0: GOTO ideloop END IF @@ -5504,14 +6221,16 @@ FUNCTION ide2 (ignore) IF ideprogname = "" THEN ProposedTitle$ = FindProposedTitle$ IF ProposedTitle$ = "" THEN - a$ = idesaveas$("untitled" + tempfolderindexstr$ + ".bas") + a$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) ELSE - a$ = idesaveas$(ProposedTitle$ + ".bas") + a$ = idefiledialog$(ProposedTitle$ + ".bas", 2) END IF ELSE - a$ = idesaveas$(ideprogname$) + a$ = idefiledialog$(ideprogname$, 2) END IF - PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop + PCOPY 3, 0: SCREEN , , 3, 0 + IF ideerror > 1 THEN GOTO IDEerrorMessage + GOTO ideloop END IF IF LEFT$(menu$(m, s), 1) = "~" THEN 'Ignore disabled items (starting with "~") @@ -5529,41 +6248,34 @@ FUNCTION ide2 (ignore) '-------------------------------------------------------------------------------- EXIT FUNCTION - UpdateTitleOfMainWindow: - COLOR 7, 1: LOCATE 2, 2: PRINT STRING$(idewx - 2, CHR$(196)); - IF LEN(ideprogname) THEN a$ = ideprogname ELSE a$ = "Untitled" + tempfolderindexstr$ - a$ = " " + a$ - IF ideunsaved THEN a$ = a$ + "*" - IF LEN(sfname$) > 0 THEN a$ = a$ + ":" + sfname$ - a$ = a$ + " " - IF LEN(a$) > idewx - 5 THEN a$ = LEFT$(a$, idewx - 11) + STRING$(3, 250) + " " - IF IdeSystem = 1 THEN COLOR 1, 7 ELSE COLOR 7, 1 - LOCATE 2, ((idewx / 2) - 1) - (LEN(a$) - 1) \ 2: PRINT a$; - RETURN - DrawQuickNav: IF IdeSystem = 1 AND QuickNavTotal > 0 THEN - LOCATE 2, 4 COLOR 15, 7 - PRINT " " + CHR$(17) + " "; + _PRINTSTRING (4, 2), " " + CHR$(17) + " " ELSE COLOR 7, 1 - LOCATE 2, 4 - PRINT STRING$(3, 196); + _PRINTSTRING (4, 2), STRING$(3, 196) END IF RETURN UpdateSearchBar: - LOCATE idewy - 4, idewx - (idesystem2.w + 10) - COLOR 7, 1: PRINT CHR$(180); + COLOR 7, 1: _PRINTSTRING (idewx - (idesystem2.w + 10), idewy - 4), CHR$(180) COLOR 3, 1 - PRINT "Find"; - PRINT "[" + SPACE$(idesystem2.w + 1) + CHR$(18) + "]"; - COLOR 7, 1: PRINT CHR$(195); + _PRINTSTRING (1 + idewx - (idesystem2.w + 10), idewy - 4), "Find[" + SPACE$(idesystem2.w + 1) + CHR$(18) + "]" + COLOR 7, 1: _PRINTSTRING (idewx - 2, idewy - 4), CHR$(195) 'add status title - IF IdeSystem = 2 THEN COLOR 1, 7 ELSE COLOR 7, 1 - LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status " + COLOR 7, 1 + a$ = STRING$(14, 196) + _PRINTSTRING ((idewx - LEN(a$)) / 2, idewy - 4), a$ + IF IdeDebugMode THEN + COLOR 1, 7 + a$ = " $DEBUG MODE " + ELSE + IF IdeSystem = 2 THEN COLOR 1, 7 ELSE COLOR 7, 1 + a$ = " Status " + END IF + _PRINTSTRING ((idewx - LEN(a$)) / 2, idewy - 4), a$ a$ = idefindtext tx = 1 @@ -5584,12 +6296,11 @@ FUNCTION ide2 (ignore) 'apply selection color change if necessary IF idesystem2.issel = 0 OR IdeSystem <> 2 THEN COLOR 3, 1 - LOCATE idewy - 4, idewx - (idesystem2.w + 8) + 4: PRINT a$; + _PRINTSTRING (idewx - (idesystem2.w + 8) + 4, idewy - 4), a$ ELSE FOR ColorCHAR = 1 TO LEN(a$) IF ColorCHAR + tx - 2 >= sx1 AND ColorCHAR + tx - 2 < sx2 THEN COLOR 1, 3 ELSE COLOR 3, 1 - LOCATE idewy - 4, idewx - (idesystem2.w + 8) + 4 - 1 + ColorCHAR - PRINT MID$(a$, ColorCHAR, 1); + _PRINTSTRING (idewx - (idesystem2.w + 8) + 4 - 1 + ColorCHAR, idewy - 4), MID$(a$, ColorCHAR, 1) NEXT END IF RETURN @@ -5617,7 +6328,7 @@ FUNCTION ide2 (ignore) LOOP IF NOT FoundBrokenLink THEN - ideerrormessage "All files in the list are accessible." + result = idemessagebox("Remove Broken Links", "All files in the list are accessible.", "#OK") END IF IF ln > 0 AND FoundBrokenLink THEN @@ -5658,81 +6369,3865 @@ FUNCTION ide2 (ignore) LOCATE , , , IDENormalCursorStart, IDENormalCursorEnd 'static background - COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; + COLOR 0, 7: _PRINTSTRING (1, 1), menubar$ COLOR 7, 1: idebox 1, 2, idewx, idewy - 5 COLOR 7, 1: idebox 1, idewy - 4, idewx, 5 'edit corners - COLOR 7, 1: LOCATE idewy - 4, 1: PRINT CHR$(195);: LOCATE idewy - 4, idewx: PRINT CHR$(180); + COLOR 7, 1: _PRINTSTRING (1, idewy - 4), CHR$(195): _PRINTSTRING (idewx, idewy - 4), CHR$(180) IF idehelp = 1 THEN COLOR 7, 0: idebox 1, idewy, idewx, idesubwindow + 1 - COLOR 7, 0: LOCATE idewy, 1: PRINT CHR$(195);: LOCATE idewy, idewx: PRINT CHR$(180); - COLOR 7, 0: LOCATE idewy, idewx - 3: PRINT CHR$(180) + "X" + CHR$(195); + COLOR 7, 0: _PRINTSTRING (1, idewy), CHR$(195): _PRINTSTRING (idewx, idewy), CHR$(180) + COLOR 15, 4: _PRINTSTRING (idewx - 3, idewy), " x " END IF + GOSUB UpdateSearchBar + 'status bar - COLOR 0, 3: LOCATE idewy + idesubwindow, 1: PRINT SPACE$(idewx); + COLOR 0, 3: _PRINTSTRING (1, idewy + idesubwindow), SPACE$(idewx) q = idevbar(idewx, idewy - 3, 3, 1, 1) q = idevbar(idewx, 3, idewy - 8, 1, 1) q = idehbar(2, idewy - 5, idewx - 2, 1, 1) + UpdateIdeInfo + + UpdateTitleOfMainWindow DEF SEG = 0 ideshowtext + IF idehelp THEN + Help_ShowText + + q = idehbar(2, idewy + idesubwindow - 1, idewx - 2, Help_cx, help_w + 1) + q = idevbar(idewx, idewy + 1, idesubwindow - 2, Help_cy, help_h + 1) + + GOSUB HelpAreaShowBackLinks + END IF + IF IDEShowErrorsImmediately OR IDECompilationRequested THEN - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 IdeInfo = "" - LOCATE idewy - 3, 2 IF idecompiling = 1 THEN - PRINT "..."; + _PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..." ELSE - PRINT "OK"; 'report OK status + IF idefocusline THEN + _PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..." + ELSE + _PRINTSTRING (2, idewy - 3), "OK" 'report OK status + END IF + statusarealink = 0 IF totalWarnings > 0 THEN COLOR 11, 1 - PRINT " ("; LTRIM$(STR$(totalWarnings)) + " warning"; - IF totalWarnings > 1 THEN PRINT "s"; - PRINT " - click here or Ctrl+W to view)"; + msg$ = " (" + LTRIM$(STR$(totalWarnings)) + " warning" + IF totalWarnings > 1 THEN msg$ = msg$ + "s" + msg$ = msg$ + " - click here or Ctrl+W to view)" + _PRINTSTRING (4, idewy - 3), msg$ + statusarealink = 4 END IF + IF waitingForVarList THEN GOSUB showVarListReady END IF END IF RETURN + + HelpAreaShowBackLinks: + Back_Str$ = STRING$(1000, 0) + Back_Str_I$ = STRING$(4000, 0) + top = UBOUND(back$) + FOR x = 1 TO top + n$ = Back_Name$(x) + IF x = Help_Back_Pos THEN p = LEN(Back_Str$) + Back_Str$ = Back_Str$ + " " + Back_Str_I$ = Back_Str_I$ + MKL$(x) + FOR x2 = 1 TO LEN(n$) + Back_Str$ = Back_Str$ + CHR$(ASC(n$, x2)) + Back_Str_I$ = Back_Str_I$ + MKL$(x) + NEXT + Back_Str$ = Back_Str$ + " " + Back_Str_I$ = Back_Str_I$ + MKL$(x) + + IF x <> top THEN + Back_Str$ = Back_Str$ + CHR$(0) + Back_Str_I$ = Back_Str_I$ + MKL$(0) + END IF + NEXT + Back_Str$ = Back_Str$ + STRING$(1000, 0) + Back_Str_I$ = Back_Str_I$ + STRING$(4000, 0) + Back_Str_Pos = p - idewx \ 2 + (LEN(Back_Name$(Help_Back_Pos)) + 2) \ 2 + 3 + 'COLOR 1, 2 + 'LOCATE idewy, 2: PRINT MID$(Back_Str$, Back_Str_Pos, idewx - 5) + LOCATE idewy, 2 + FOR x = Back_Str_Pos TO Back_Str_Pos + idewx - 6 + i = CVL(MID$(Back_Str_I$, (x - 1) * 4 + 1, 4)) + a = ASC(Back_Str$, x) + IF a THEN + IF IdeSystem = 3 THEN COLOR 0, 7 ELSE COLOR 7, 0 + IF i < Help_Back_Pos THEN COLOR 9 + IF i > Help_Back_Pos THEN COLOR 9 + PRINT CHR$(a); + ELSE + COLOR 7, 0 + PRINT CHR$(196); + END IF + NEXT + COLOR 7, 0: _PRINTSTRING (idewx - 18, idewy), CHR$(180) + COLOR 15, 3: _PRINTSTRING (idewx - 17, idewy), " View on Wiki " + RETURN + + showVarListReady: + waitingForVarList = 0 + COLOR 14, 1 + _PRINTSTRING (2, idewy - 2), "Variable List is now available (F4 to see it)" + RETURN +END FUNCTION + +SUB UpdateTitleOfMainWindow + sfname$ = FindCurrentSF$(idecy) + cleanSubName sfname$ + COLOR 7, 1: _PRINTSTRING (2, 2), STRING$(idewx - 2, CHR$(196)) + IF LEN(ideprogname) THEN a$ = ideprogname ELSE a$ = "Untitled" + tempfolderindexstr$ + a$ = " " + a$ + IF ideunsaved THEN a$ = a$ + "*" + IF LEN(sfname$) > 0 THEN a$ = a$ + ":" + sfname$ + a$ = a$ + " " + IF LEN(a$) > idewx - 5 THEN a$ = LEFT$(a$, idewx - 11) + STRING$(3, 250) + " " + IF IdeSystem = 1 THEN COLOR 1, 7 ELSE COLOR 7, 1 + _PRINTSTRING (((idewx / 2) - 1) - (LEN(a$) - 1) \ 2, 2), a$ +END SUB + +SUB DebugMode + STATIC AS _BYTE PauseMode, noFocusMessage, EnteredInput + STATIC buffer$ + STATIC currentSub$ + STATIC debuggeehwnd AS _OFFSET + STATIC panelActive AS _BYTE + + DECLARE LIBRARY + SUB set_foreground_window (BYVAL hwnd AS _OFFSET) + END DECLARE + + timeout = 10 + _KEYCLEAR + + SCREEN , , 3, 0 + + COLOR 15, 3: _PRINTSTRING (1, 1), SPACE$(LEN(menubar$)) + m$ = "$DEBUG MODE ACTIVE" + _PRINTSTRING ((idewx - LEN(m$)) \ 2, 1), m$ + + TYPE vWatchPanelType + AS INTEGER x, y, w, h, firstVisible, hPos, vBarThumb, hBarThumb + AS INTEGER draggingVBar, draggingHBar, mX, mY + AS LONG contentWidth, tempIndex + AS _BYTE draggingPanel, resizingPanel, closingPanel, clicked + END TYPE + STATIC vWatchPanel AS vWatchPanelType + + TYPE ui + AS INTEGER x, y, w, h + AS STRING caption + END TYPE + DIM Button(1 TO 8) AS ui + i = 0 + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + i = i + 1: Button(i).Caption = "" + y = (idewy - 4) + 2 + x = 2 + FOR i = 1 TO UBOUND(Button) + Button(i).x = x + Button(i).y = y + Button(i).w = LEN(Button(i).Caption) + IF i < UBOUND(Button) THEN + x = x + Button(i).w + 1 + IF x + LEN(Button(i + 1).Caption) > idewx - 1 THEN + y = y + 1 + x = 2 + END IF + END IF + NEXT + + SELECT EVERYCASE IdeDebugMode + CASE 1 + PauseMode = 0 + callStackLength = 0 + callstacklist$ = "" + buffer$ = "" + debugClient& = 0 + debuggeepid = 0 + + panelActive = -1 + showvWatchPanel vWatchPanel, "", 1 + + IF LEN(variableWatchList$) = 0 THEN + totalVisibleVariables = 0 + vWatchPanel.h = 5 + ELSE + 'between edits, variables may have been deleted; + 'next line assures we don't try to fetch values + 'for ghost variables + result$ = idevariablewatchbox$("", "", -1, 0) + END IF + + watchpointList$ = "" + vWatchPanel.w = 40 + vWatchPanel.x = idewx - vWatchPanel.w - 6 + vWatchPanel.y = 4 + vWatchPanel.firstVisible = 1 + + x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.w")) + IF x THEN vWatchPanel.w = x + + x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.h")) + IF x THEN vWatchPanel.h = x + + x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.x")) + IF x THEN vWatchPanel.x = x + + x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.y")) + IF x THEN vWatchPanel.y = x + + GOSUB checkvWatchPanelSize + CASE IS > 1 + noFocusMessage = NOT noFocusMessage + GOSUB UpdateStatusArea + clearStatusWindow 1 + setStatusMessage 1, "Paused.", 2 + CASE 2: IdeDebugMode = 1: GOTO returnFromContextMenu + CASE 3: IdeDebugMode = 1: GOTO requestCallStack + CASE 4: IdeDebugMode = 1: GOTO requestContinue + CASE 5: IdeDebugMode = 1: GOTO requestStepOut + CASE 6: IdeDebugMode = 1: GOTO requestStepOver + CASE 7: IdeDebugMode = 1: GOTO requestStepInto + CASE 8 + IdeDebugMode = 1 + result = idecy + GOTO requestRunToThisLine + CASE 9: IdeDebugMode = 1: GOTO requestQuit + CASE 10: IdeDebugMode = 1: GOTO requestToggleBreakpoint + CASE 11: IdeDebugMode = 1: GOTO requestClearBreakpoints + CASE 12 + IdeDebugMode = 1 + result = idecy + GOTO requestToggleSkipLine + CASE 13 + IdeDebugMode = 1 + result = idecy + GOTO requestSetNextLine + CASE 14: IdeDebugMode = 1: GOTO requestSubsDialog + CASE 15: IdeDebugMode = 1: GOTO requestUnskipAllLines + CASE 16: IdeDebugMode = 1: GOTO requestVariableWatch + END SELECT + + dummy = DarkenFGBG(1) + clearStatusWindow 0 + setStatusMessage 1, "Entering $DEBUG mode (ESC to abort)...", 15 + + IF host& = 0 THEN + host& = _OPENHOST("TCP/IP:" + hostport$) + IF host& = 0 THEN + dummy = DarkenFGBG(0) + clearStatusWindow 1 + setStatusMessage 1, "Failed to initiate debug session.", 7 + setStatusMessage 2, "Cannot receive connections on port" + STR$(idebaseTcpPort) + ". Check your firewall permissions.", 2 + WHILE _MOUSEINPUT: WEND + EXIT SUB + END IF + END IF + + 'wait for client to connect + start! = TIMER + DO + debugClient& = _OPENCONNECTION(host&) + IF debugClient& THEN EXIT DO + + k& = _KEYHIT + IF k& = 27 OR TIMER - start! > timeout THEN + dummy = DarkenFGBG(0) + clearStatusWindow 0 + setStatusMessage 1, temp$ + "Debug session aborted.", 7 + IF k& <> 27 THEN + setStatusMessage 2, "Connection timeout.", 2 + END IF + _KEYCLEAR + WHILE _MOUSEINPUT: WEND + EXIT SUB + END IF + + _LIMIT 100 + LOOP + + ideselect = 0 + clearStatusWindow 1 + setStatusMessage 1, "Handshaking...", 15 + + start! = TIMER + DO + k& = _KEYHIT + IF k& = 27 OR TIMER - start! > timeout THEN + dummy = DarkenFGBG(0) + clearStatusWindow 0 + setStatusMessage 1, temp$ + "Debug session aborted.", 7 + IF k& <> 27 THEN + setStatusMessage 2, "Connection timeout.", 2 + END IF + _KEYCLEAR + WHILE _MOUSEINPUT: WEND + EXIT SUB + END IF + + GOSUB GetCommand + SELECT CASE cmd$ + CASE "me" + program$ = value$ + expected$ = lastBinaryGenerated$ + p$ = ideztakepath$(program$) + p$ = ideztakepath$(expected$) + + IF program$ <> expected$ THEN + dummy = DarkenFGBG(0) + clearStatusWindow 1 + setStatusMessage 1, "Failed to initiate debug session.", 7 + setStatusMessage 2, LEFT$("Expected: " + expected$, idewx - 2), 2 + setStatusMessage 3, LEFT$("Received: " + program$, idewx - 2), 2 + cmd$ = "vwatch:file mismatch" + GOSUB SendCommand + CLOSE #debugClient& + WHILE _MOUSEINPUT: WEND + EXIT SUB + END IF + EXIT DO + END SELECT + LOOP + + cmd$ = "vwatch:ok" + GOSUB SendCommand + cmd$ = "hwnd:" + _MK$(_OFFSET, _WINDOWHANDLE) + GOSUB SendCommand + cmd$ = "line count:" + MKL$(iden) + GOSUB SendCommand + + breakpointCount = 0 + breakpointList$ = "" + FOR i = 1 TO UBOUND(IdeBreakpoints) + IF IdeBreakpoints(i) THEN + breakpointCount = breakpointCount + 1 + breakpointList$ = breakpointList$ + MKL$(i) + END IF + NEXT + IF breakpointCount THEN + cmd$ = "breakpoint count:" + MKL$(breakpointCount) + GOSUB SendCommand + cmd$ = "breakpoint list:" + breakpointList$ + GOSUB SendCommand + END IF + + skipCount = 0 + skipList$ = "" + FOR i = 1 TO UBOUND(IdeSkipLines) + IF IdeSkipLines(i) THEN + skipCount = skipCount + 1 + skipList$ = skipList$ + MKL$(i) + END IF + NEXT + IF skipCount THEN + cmd$ = "skip count:" + MKL$(skipCount) + GOSUB SendCommand + cmd$ = "skip list:" + skipList$ + GOSUB SendCommand + END IF + + clearStatusWindow 1 + IF startPaused THEN + cmd$ = "break" + PauseMode = -1 + setStatusMessage 1, "Paused.", 2 + ELSE + cmd$ = "run" + PauseMode = 0 + setStatusMessage 1, "Running...", 10 + END IF + GOSUB SendCommand + + clearStatusWindow 2 + setStatusMessage 2, "$DEBUG MODE: Set focus to the IDE to control execution", 15 + + noFocusMessage = -1 + + DO 'main loop + IF _EXIT THEN ideexit = 1: GOTO requestQuit + + bkpidecy = idecy + bkpPanelFirstVisible = vWatchPanel.firstVisible + WHILE _MOUSEINPUT + mX = _MOUSEX + mY = _MOUSEY + vWatchPanel.mX = mX + vWatchPanel.mY = mY + IF LEN(variableWatchList$) > 0 AND _ + (mX >= vWatchPanel.x AND mX <= vWatchPanel.x + vWatchPanel.w) AND _ + (mY >= vWatchPanel.y AND mY <= vWatchPanel.y + vWatchPanel.h) THEN + vWatchPanel.firstVisible = vWatchPanel.firstVisible + _MOUSEWHEEL * 3 + IF vWatchPanel.firstVisible < 1 THEN vWatchPanel.firstVisible = 1 + IF vWatchPanel.firstVisible > totalVisibleVariables - (vWatchPanel.h - 2) + 1 THEN + vWatchPanel.firstVisible = totalVisibleVariables - (vWatchPanel.h - 2) + 1 + END IF + ELSE + idecy = idecy + _MOUSEWHEEL * 3 + END IF + WEND + + IF idecy < 1 THEN idecy = 1 + IF idecy > iden THEN idecy = iden + IF idecy <> bkpidecy OR bkpPanelFirstVisible <> vWatchPanel.firstVisible OR _ + (LEN(variableWatchList$) > 0 AND _ + (mX >= vWatchPanel.x AND mX <= vWatchPanel.x + vWatchPanel.w) AND _ + (mY >= vWatchPanel.y AND mY <= vWatchPanel.y + vWatchPanel.h)) THEN + ideselect = 0: GOSUB UpdateDisplay + END IF + + mB = _MOUSEBUTTON(1) + mB2 = _MOUSEBUTTON(2) + + IF mB2 THEN + IF mouseDown2 = 0 THEN + mouseDown2 = -1 + mouseDownOnX2 = mX + mouseDownOnY2 = mY + ELSE + END IF + ELSE + IF mouseDown2 THEN + IF mouseDownOnX2 = mX AND mouseDownOnY2 = mY THEN + 'right-click on watch panel? + IF (LEN(variableWatchList$) > 0 AND _ + (mX >= vWatchPanel.x AND mX <= vWatchPanel.x + vWatchPanel.w) AND _ + (mY >= vWatchPanel.y AND mY <= vWatchPanel.y + vWatchPanel.h)) THEN + GOTO requestVariableWatch + END IF + + 'right-click on code area? + IF (mX > 1 AND mX <= 1 + maxLineNumberLength AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers) OR _ + (mX = 1 AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers = 0) OR _ + (mX > 1 + maxLineNumberLength AND mX < idewx AND mY > 2 AND mY < (idewy - 5)) THEN + bkpidecy = idecy + idecy = mY - 2 + idesy - 1 + IF idecy > iden THEN idecy = iden + IF bkpidecy <> idecy THEN ideselect = 0: GOSUB UpdateDisplay + IdeDebugMode = 2 + IF PauseMode = 0 THEN GOSUB requestPause: dummy = DarkenFGBG(0) + EXIT SUB + returnFromContextMenu: + GOSUB UpdateDisplay + END IF + END IF + END IF + mouseDown2 = 0 + END IF + + IF mB THEN + IF mouseDown = 0 THEN + mouseDown = -1 + mouseDownOnX = mX + mouseDownOnY = mY + IF LEN(variableWatchList$) > 0 AND _ + (mX >= vWatchPanel.x + vWatchPanel.w - 3) AND (mX <= vWatchPanel.x + vWatchPanel.w - 1) AND _ + (mY = vWatchPanel.y) THEN + vWatchPanel.closingPanel = -1 + ELSEIF LEN(variableWatchList$) > 0 AND vWatchPanel.vBarThumb > 0 AND _ + (mX = vWatchPanel.x + vWatchPanel.w - 1) AND _ + (mY = vWatchPanel.vBarThumb) THEN + vWatchPanel.draggingVBar = 1 'thumb + ELSEIF LEN(variableWatchList$) > 0 AND vWatchPanel.vBarThumb > 0 AND _ + (mX = vWatchPanel.x + vWatchPanel.w - 1) AND _ + (mY = vWatchPanel.y + 1) THEN + vWatchPanel.draggingVBar = 2 'up arrow + ELSEIF LEN(variableWatchList$) > 0 AND vWatchPanel.vBarThumb > 0 AND _ + (mX = vWatchPanel.x + vWatchPanel.w - 1) AND _ + (mY = vWatchPanel.y + vWatchPanel.h - 2) THEN + vWatchPanel.draggingVBar = 3 'down arrow + ELSEIF LEN(variableWatchList$) > 0 AND vWatchPanel.hBarThumb > 0 AND _ + (mX = vWatchPanel.hBarThumb) AND _ + (mY = vWatchPanel.y + vWatchPanel.h - 1) THEN + vWatchPanel.draggingHBar = 1 'thumb + ELSEIF LEN(variableWatchList$) > 0 AND vWatchPanel.hBarThumb > 0 AND _ + (mX = vWatchPanel.x) AND _ + (mY = vWatchPanel.y + vWatchPanel.h - 1) THEN + vWatchPanel.draggingHBar = 2 'left arrow + ELSEIF LEN(variableWatchList$) > 0 AND vWatchPanel.hBarThumb > 0 AND _ + (mX = vWatchPanel.x + vWatchPanel.w - 2) AND _ + (mY = vWatchPanel.y + vWatchPanel.h - 1) THEN + vWatchPanel.draggingHBar = 3 'right arrow + ELSEIF LEN(variableWatchList$) > 0 AND _ + (mX = vWatchPanel.x + vWatchPanel.w - 1) AND _ + (mY = vWatchPanel.y + vWatchPanel.h - 1) THEN + vWatchPanel.resizingPanel = -1 + ELSEIF LEN(variableWatchList$) > 0 AND _ + (mX >= vWatchPanel.x AND mX <= vWatchPanel.x + vWatchPanel.w) AND _ + (mY >= vWatchPanel.y AND mY <= vWatchPanel.y + vWatchPanel.h) THEN + vWatchPanel.draggingPanel = -1 + vWatchPanel.clicked = 1 + IF timeElapsedSince(lastPanelClick!) < .3 THEN + 'Double-click on watch list + vWatchPanel.draggingPanel = 0 + mouseDown = 0 + GOTO requestVariableWatch + END IF + lastPanelClick! = TIMER + ELSE + vWatchPanel.draggingPanel = 0 + vWatchPanel.resizingPanel = 0 + vWatchPanel.closingPanel = 0 + vWatchPanel.draggingVBar = 0 + vWatchPanel.draggingHBar = 0 + vWatchPanel.clicked = 0 + END IF + + IF mX = idewx THEN + IF mY = idevbar(idewx, 3, idewy - 8, idecy, iden) THEN + draggingVThumb = -1 + ELSE + draggingVThumb = 0 + END IF + ELSE + draggingVThumb = 0 + END IF + + IF mY = idewy - 5 THEN + IF mX = idehbar(2, idewy - 5, idewx - 2, idesx, 608) THEN + draggingHThumb = -1 + ELSE + draggingHThumb = 0 + END IF + ELSE + draggingHThumb = 0 + END IF + + mouseDownOnButton = 0 + FOR i = 1 TO UBOUND(Button) + IF mY = Button(i).y AND mX >= Button(i).x AND mX <= Button(i).x + Button(i).w AND _ + vWatchPanel.draggingPanel = 0 AND vWatchPanel.resizingPanel = 0 THEN + mouseDownOnButton = i + EXIT FOR + END IF + NEXT + ELSE + 'drag + IF draggingVThumb = -1 THEN + IF mouseDownOnY <> mY THEN + mouseDownOnY = mY + IF iden > 1 THEN + IF mY <= 4 THEN idecy = 1 + IF mY >= idewy - 7 THEN idecy = iden + IF mY > 4 AND mY < idewy - 7 THEN + y = mY + p! = y - 3 - 2 + .5 + p! = p! / ((idewy - 8) - 4) + i = p! * (iden - 1) + 1 + idecy = i + END IF + END IF + ideselect = 0: GOSUB UpdateDisplay + END IF + END IF + + IF draggingHThumb = -1 THEN + IF mouseDownOnX <> mX THEN + mouseDownOnX = mX + IF mX <= 3 THEN idesx = 1: idecx = idesx + IF mX >= idewx - 2 THEN idesx = 608: idecx = idesx + IF mX > 3 AND mX < idewx - 2 THEN + x = mX + p! = x - 2 - 2 + .5 + p! = p! / ((idewx - 2) - 4) + i = p! * (608 - 1) + 1 + idesx = i + idecx = idesx + END IF + GOSUB UpdateDisplay + END IF + END IF + + vWatchPanelLimit = idewy - 6 + IF vWatchPanel.draggingPanel THEN + vWatchPanel.x = vWatchPanel.x - (mouseDownOnX - mX) + vWatchPanel.y = vWatchPanel.y - (mouseDownOnY - mY) + + IF vWatchPanel.x < 2 THEN vWatchPanel.x = 2 + IF vWatchPanel.x + vWatchPanel.w > idewx - 1 THEN vWatchPanel.x = idewx - vWatchPanel.w - 1 + IF vWatchPanel.y < 3 THEN vWatchPanel.y = 3 + IF vWatchPanel.y > vWatchPanelLimit - (vWatchPanel.h - 1) THEN vWatchPanel.y = vWatchPanelLimit - (vWatchPanel.h - 1) + + IF mouseDownOnX <> mX THEN vWatchPanel.clicked = 0 + mouseDownOnX = mX + IF mouseDownOnY <> mY THEN vWatchPanel.clicked = 0 + mouseDownOnY = mY + GOSUB UpdateDisplay + ELSEIF vWatchPanel.resizingPanel THEN + vWatchPanel.w = vWatchPanel.w + (mX - mouseDownOnX) + vWatchPanel.h = vWatchPanel.h + (mY - mouseDownOnY) + + GOSUB checkvWatchPanelSize + + IF vWatchPanel.vBarThumb > 0 AND vWatchPanel.firstVisible > totalVisibleVariables - (vWatchPanel.h - 2) + 1 THEN + vWatchPanel.firstVisible = totalVisibleVariables - (vWatchPanel.h - 2) + 1 + END IF + IF vWatchPanel.hBarThumb > 0 AND vWatchPanel.hPos > vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1 THEN + vWatchPanel.hPos = vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1 + END IF + + mouseDownOnX = mX + mouseDownOnY = mY + GOSUB UpdateDisplay + ELSEIF vWatchPanel.draggingVBar = 1 THEN + vWatchPanel.firstVisible = INT(map(mY, vWatchPanel.y + 2, vWatchPanel.y + vWatchPanel.h - 2, 1, totalVisibleVariables - (vWatchPanel.h - 2) + 1)) + IF vWatchPanel.firstVisible < 1 THEN vWatchPanel.firstVisible = 1 + IF vWatchPanel.firstVisible > totalVisibleVariables - (vWatchPanel.h - 2) + 1 THEN + vWatchPanel.firstVisible = totalVisibleVariables - (vWatchPanel.h - 2) + 1 + END IF + GOSUB UpdateDisplay + ELSEIF vWatchPanel.draggingHBar = 1 THEN + vWatchPanel.hPos = INT(map(mX, vWatchPanel.x, vWatchPanel.x + vWatchPanel.w - 2, 1, vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1)) + IF vWatchPanel.hPos < 1 THEN vWatchPanel.hPos = 1 + IF vWatchPanel.hPos > vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1 THEN + vWatchPanel.hPos = vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1 + END IF + GOSUB UpdateDisplay + END IF + END IF + ELSE 'mouse button released + IF vWatchPanel.clicked = 1 THEN + vWatchPanel.clicked = 2 + 'panel was clicked but not dragged, so register a click (= 2) + 'which will be handled by showvWatchPanel() + END IF + IF vWatchPanel.draggingPanel THEN + vWatchPanel.draggingPanel = 0: mouseDown = 0 + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.x", str2$(vWatchPanel.x) + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.y", str2$(vWatchPanel.y) + END IF + IF vWatchPanel.resizingPanel THEN + vWatchPanel.resizingPanel = 0: mouseDown = 0 + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.w", str2$(vWatchPanel.w) + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.h", str2$(vWatchPanel.h) + END IF + IF vWatchPanel.closingPanel AND (mX = mouseDownOnX AND mY = mouseDownOnY) THEN + vWatchPanel.closingPanel = 0 + mouseDown = 0 + panelActive = 0 + result = idemessagebox("$DEBUG MODE", "Close Watch Panel", "#Keep Variables;#Clear List") + IF result = 2 THEN + variableWatchList$ = "" + backupVariableWatchList$ = "": REDIM backupUsedVariableList(1000) AS usedVarList + backupTypeDefinitions$ = "" + FOR i = 1 TO totalVariablesCreated + usedVariableList(i).watch = 0 + NEXT + + 'Reset panel position in debug settings + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.x", "0" + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.y", "0" + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.w", "0" + WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.h", "0" + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + + GOSUB UpdateDisplay + END IF + IF vWatchPanel.draggingVBar THEN + IF vWatchPanel.draggingVBar = 2 THEN + vWatchPanel.firstVisible = vWatchPanel.firstVisible - 1 + IF vWatchPanel.firstVisible < 1 THEN vWatchPanel.firstVisible = 1 + GOSUB UpdateDisplay + ELSEIF vWatchPanel.draggingVBar = 3 THEN + vWatchPanel.firstVisible = vWatchPanel.firstVisible + 1 + IF vWatchPanel.firstVisible > totalVisibleVariables - (vWatchPanel.h - 2) + 1 THEN + vWatchPanel.firstVisible = totalVisibleVariables - (vWatchPanel.h - 2) + 1 + END IF + GOSUB UpdateDisplay + END IF + vWatchPanel.draggingVBar = 0: mouseDown = 0 + END IF + IF vWatchPanel.draggingHBar THEN + IF vWatchPanel.draggingHBar = 2 THEN + vWatchPanel.hPos = vWatchPanel.hPos - 1 + IF vWatchPanel.hPos < 1 THEN vWatchPanel.hPos = 1 + GOSUB UpdateDisplay + ELSEIF vWatchPanel.draggingHBar = 3 THEN + vWatchPanel.hPos = vWatchPanel.hPos + 1 + IF vWatchPanel.hPos > vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1 THEN + vWatchPanel.hPos = vWatchPanel.contentWidth - (vWatchPanel.w - 4) + 1 + END IF + GOSUB UpdateDisplay + END IF + vWatchPanel.draggingHBar = 0: mouseDown = 0 + END IF + IF mouseDown THEN + mouseDown = 0 + draggingVThumb = 0 + draggingHThumb = 0 + + IF mouseDownOnButton > 0 AND mX = mouseDownOnX AND mY = mouseDownOnY THEN + SELECT CASE mouseDownOnButton + CASE 1: mouseDownOnButton = 0: mouseDown = 0: GOTO F4 + CASE 2: mouseDownOnButton = 0: mouseDown = 0: GOTO F5 + CASE 3: mouseDownOnButton = 0: mouseDown = 0: GOTO F6 + CASE 4: mouseDownOnButton = 0: mouseDown = 0: GOTO F7 + CASE 5: mouseDownOnButton = 0: mouseDown = 0: GOTO F8 + CASE 6: mouseDownOnButton = 0: mouseDown = 0: GOTO F9 + CASE 7: mouseDownOnButton = 0: mouseDown = 0: GOTO F10 + CASE 8: mouseDownOnButton = 0: mouseDown = 0: GOTO F12 + END SELECT + END IF + + IF (mX > 1 AND mX <= 1 + maxLineNumberLength AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers) OR _ + (mX = 1 AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers = 0) THEN + 'Inside the editor/line numbers + IF mouseDownOnX = mX AND mouseDownOnY = mY THEN + ideselect = 0 + idecytemp = mY - 2 + idesy - 1 + IF idecytemp <= iden THEN + IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN + IF IdeSkipLines(idecytemp) = -1 THEN + IdeSkipLines(idecytemp) = 0 + cmd$ = "clear skip line:" + MKL$(idecytemp) + ELSE + IdeSkipLines(idecytemp) = -1 + IdeBreakpoints(idecytemp) = 0 + cmd$ = "set skip line:" + MKL$(idecytemp) + END IF + ELSE + IF IdeBreakpoints(idecytemp) THEN + IdeBreakpoints(idecytemp) = 0 + cmd$ = "clear breakpoint:" + ELSE + IdeBreakpoints(idecytemp) = -1 + IdeSkipLines(idecytemp) = 0 + cmd$ = "set breakpoint:" + END IF + cmd$ = cmd$ + MKL$(idecytemp) + END IF + GOSUB SendCommand + GOSUB UpdateDisplay + END IF + END IF + ELSEIF mX > 1 + maxLineNumberLength AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN + 'inside text box + bkpidecy = idecy + idecy = mY - 2 + idesy - 1 + IF idecy > iden THEN idecy = iden + IF bkpidecy <> idecy THEN ideselect = 0: GOSUB UpdateDisplay + ELSEIF mX = idewx AND mY > 2 AND mY < idewy - 5 THEN + 'inside vbar + IF mouseDownOnX = mX AND mouseDownOnY = mY THEN + IF mY = 3 THEN GOTO keyUp + IF mY = idewy - 6 THEN GOTO keyDown + IF mY > 3 AND mY < (idewy - 6) THEN + 'assume not on slider + IF iden > 1 THEN 'take no action if not slider available + y = idevbar(idewx, 3, idewy - 8, idecy, iden) + IF y <> mY THEN + IF mY < y THEN + GOTO pageUp + ELSE + GOTO pageDown + END IF + END IF + END IF + END IF + END IF + ELSEIF mY = idewy - 4 AND mX > idewx - (idesystem2.w + 10) AND mX < idewx - 1 THEN + 'inside "Find" box + GOTO findjmp + END IF + ELSE + mouseDown = 0 + draggingVThumb = 0 + draggingHThumb = 0 + vWatchPanel.draggingPanel = 0 + vWatchPanel.resizingPanel = 0 + vWatchPanel.closingPanel = 0 + vWatchPanel.draggingVBar = 0 + vWatchPanel.draggingHBar = 0 + END IF + END IF + + + UpdateStatusArea: + IF _WINDOWHASFOCUS THEN + IF noFocusMessage THEN + UpdateMenuHelpLine "Right-click for options; ESC to abort." + GOSUB printVersion + GOSUB UpdateButtons + noFocusMessage = 0 + END IF + ELSE + IF noFocusMessage = 0 THEN + clearStatusWindow 2 + clearStatusWindow 3 + setStatusMessage 2, "Set focus to the IDE to control execution", 15 + noFocusMessage = -1 + END IF + END IF + IF IdeDebugMode > 1 THEN RETURN + + k& = _KEYHIT + SELECT CASE k& + CASE 18432 'Up arrow + keyUp: + bkpidecy = idecy: bkpidesy = idesy + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN 'scroll the window, instead of moving the cursor + idesy = idesy - 1 + IF idesy < 1 THEN idesy = 1 + IF idecy > idesy + (idewy - 9) THEN idecy = idesy + (idewy - 9) + ELSE + idecy = idecy - 1 + IF idecy < 1 THEN idecy = 1 + END IF + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + CASE 20480 'Down arrow + keyDown: + bkpidecy = idecy: bkpidesy = idesy + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN 'scroll the window, instead of moving the cursor + idesy = idesy + 1 + IF idesy > iden THEN idesy = iden + IF idecy < idesy THEN idecy = idesy + ELSE + idecy = idecy + 1 + IF idecy > iden THEN idecy = iden + END IF + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + CASE 18688 'Page up + pageUp: + bkpidecy = idecy: bkpidesy = idesy + idecy = idecy - (idewy - 9) + IF idecy < 1 THEN idecy = 1 + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + CASE 20736 'Page down + pageDown: + bkpidecy = idecy: bkpidesy = idesy + idecy = idecy + (idewy - 9) + IF idecy > iden THEN idecy = iden + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + CASE 18176 'Home + bkpidecy = idecy: bkpidesy = idesy + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN idecy = 1 + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + CASE 20224 'End + bkpidecy = idecy: bkpidesy = idesy + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN idecy = iden + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + CASE 27 + requestQuit: + cmd$ = "free" + GOSUB SendCommand + CLOSE #debugClient& + dummy = DarkenFGBG(0) + clearStatusWindow 0 + setStatusMessage 1, "Debug session aborted.", 7 + WHILE _MOUSEINPUT: WEND + _KEYCLEAR + EXIT SUB + CASE 15360 'F2 + requestSubsDialog: + bkpidecy = idecy: bkpidesy = idesy + r$ = idesubs + IF bkpidecy <> idecy OR bkpidesy <> idesy THEN ideselect = 0: GOSUB UpdateDisplay + PCOPY 3, 0: SCREEN , , 3, 0 + GOSUB UpdateDisplay + WHILE _MOUSEINPUT: WEND + CASE 102, 70 'f, F + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN GOTO findjmp + CASE 15616 'F3 + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN GOTO findjmp + IF idefindtext <> "" THEN + + 'UpdateSearchBar: + COLOR 7, 1: _PRINTSTRING (idewx - (idesystem2.w + 10), idewy - 4), CHR$(180) + COLOR 3, 1 + _PRINTSTRING (1 + idewx - (idesystem2.w + 10), idewy - 4), "Find[" + SPACE$(idesystem2.w + 1) + CHR$(18) + "]" + a$ = LEFT$(idefindtext, idesystem2.w) + _PRINTSTRING (idewx - (idesystem2.w + 8) + 4, idewy - 4), a$ + COLOR 7, 1: _PRINTSTRING (idewx - 2, idewy - 4), CHR$(195) + + IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN idefindinvert = 1 + IdeAddSearched idefindtext + idefindagain -1 + ELSE + findjmp: + r$ = idefind + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + END IF + GOSUB UpdateDisplay + CASE 15872 'F4 + F4: + IF PauseMode = 0 THEN + cmd$ = "break" + PauseMode = -1 + GOSUB SendCommand + estabilishingScope = -1 + ELSE + requestVariableWatch: + hidePanel = -1 + GOSUB UpdateDisplay + selectVar = 1 + filter$ = "" + DO + result$ = idevariablewatchbox$(currentSub$, filter$, selectVar, returnAction) + temp$ = GetBytes$("", 0) 'reset buffer + IF returnAction = 1 THEN + 'set address + tempIndex& = CVL(GetBytes$(result$, 4)) + tempIsArray& = _CV(_BYTE, GetBytes$(result$, 1)) + temp$ = GetBytes$(result$, 4) 'skip original line number + tempLocalIndex& = CVL(GetBytes$(result$, 4)) + tempArrayIndex& = CVL(GetBytes$(result$, 4)) + tempArrayIndexes$ = MKL$(tempArrayIndex&) + GetBytes$(result$, tempArrayIndex&) + tempArrayElementSize& = CVL(GetBytes$(result$, 4)) + tempIsUDT& = CVL(GetBytes$(result$, 4)) + temp$ = GetBytes$(result$, 4) 'skip element number + tempElementOffset& = CVL(GetBytes$(result$, 4)) + temp$ = GetBytes$(result$, 4) 'skip var size + tempStorage& = CVL(GetBytes$(result$, 4)) + i = CVI(GetBytes$(result$, 2)) + tempScope$ = GetBytes$(result$, i) + i = CVI(GetBytes$(result$, 2)) + varType$ = GetBytes$(result$, i) + i = CVI(GetBytes$(result$, 2)) + value$ = GetBytes$(result$, i) + + IF LEN(usedVariableList(tempIndex&).subfunc) = 0 THEN + cmd$ = "set global address:" + ELSE + cmd$ = "set local address:" + END IF + + findVarSize: + tempVarType$ = varType$ + fixedVarSize& = 0 + IF INSTR(varType$, "STRING *") THEN + tempVarType$ = "STRING" + fixedVarSize& = VAL(MID$(varType$, _INSTRREV(varType$, "* ") + 2)) + END IF + IF INSTR(varType$, "BIT *") THEN tempVarType$ = "_BIT" + IF tempVarType$ = "_BIT" AND INSTR(varType$, "UNSIGNED") > 0 THEN + tempVarType$ = "_UNSIGNED _BIT" + END IF + SELECT CASE tempVarType$ + CASE "_BIT", "_UNSIGNED _BIT" + value$ = MKL$(VAL(value$)) + varSize& = LEN(dummy&) + result$ = STR$(CVL(value$)) + CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE" + value$ = _MK$(_BYTE, VAL(value$)) + varSize& = LEN(dummy%%) + IF INSTR(tempVarType$, "UNSIGNED") > 0 THEN + result$ = STR$(_CV(_UNSIGNED _BYTE, value$)) + ELSE + result$ = STR$(_CV(_BYTE, value$)) + END IF + CASE "INTEGER", "_UNSIGNED INTEGER", "UNSIGNED INTEGER" + value$ = MKI$(VAL(value$)) + varSize& = LEN(dummy%) + IF INSTR(tempVarType$, "UNSIGNED") > 0 THEN + result$ = STR$(_CV(_UNSIGNED INTEGER, value$)) + ELSE + result$ = STR$(_CV(INTEGER, value$)) + END IF + CASE "LONG", "_UNSIGNED LONG", "UNSIGNED LONG" + value$ = MKL$(VAL(value$)) + varSize& = LEN(dummy&) + IF INSTR(tempVarType$, "UNSIGNED") > 0 THEN + result$ = STR$(_CV(_UNSIGNED LONG, value$)) + ELSE + result$ = STR$(_CV(LONG, value$)) + END IF + CASE "_INTEGER64", "INTEGER64", "_UNSIGNED _INTEGER64", "UNSIGNED INTEGER64" + value$ = _MK$(_INTEGER64, VAL(value$)) + varSize& = LEN(dummy&&) + IF INSTR(tempVarType$, "UNSIGNED") > 0 THEN + result$ = STR$(_CV(_UNSIGNED _INTEGER64, value$)) + ELSE + result$ = STR$(_CV(_INTEGER64, value$)) + END IF + CASE "SINGLE" + value$ = MKS$(VAL(value$)) + varSize& = LEN(dummy!) + result$ = STR$(CVS(value$)) + CASE "DOUBLE" + value$ = MKD$(VAL(value$)) + varSize& = LEN(dummy#) + result$ = STR$(CVD(value$)) + CASE "_FLOAT", "FLOAT" + value$ = _MK$(_FLOAT, VAL(value$)) + varSize& = LEN(dummy##) + result$ = STR$(_CV(_FLOAT, value$)) + CASE "_OFFSET", "_UNSIGNED _OFFSET", "OFFSET", "UNSIGNED OFFSET" + value$ = _MK$(_OFFSET, VAL(value$)) + varSize& = LEN(dummy%&) + IF INSTR(tempVarType$, "UNSIGNED") > 0 THEN + result$ = STR$(_CV(_UNSIGNED _OFFSET, value$)) + ELSE + result$ = STR$(_CV(_OFFSET, value$)) + END IF + CASE "STRING" + varSize& = LEN(value$) + result$ = value$ + IF fixedVarSize& THEN + varSize& = fixedVarSize& + result$ = LEFT$(result$, fixedVarSize&) + END IF + END SELECT + + IF returnAction = 2 OR returnAction = 3 THEN RETURN + + cmd$ = cmd$ + MKL$(tempIndex&) + cmd$ = cmd$ + _MK$(_BYTE, tempIsArray& <> 0) + cmd$ = cmd$ + MKL$(0) + cmd$ = cmd$ + MKL$(tempLocalIndex&) + cmd$ = cmd$ + tempArrayIndexes$ + cmd$ = cmd$ + MKL$(tempArrayElementSize&) + cmd$ = cmd$ + MKL$(tempIsUDT&) + cmd$ = cmd$ + MKL$(0) + cmd$ = cmd$ + MKL$(tempElementOffset&) + cmd$ = cmd$ + MKL$(varSize&) + cmd$ = cmd$ + MKL$(tempStorage&) + cmd$ = cmd$ + MKI$(LEN(tempScope$)) + tempScope$ + cmd$ = cmd$ + MKI$(LEN(varType$)) + varType$ + cmd$ = cmd$ + MKI$(LEN(value$)) + value$ + GOSUB SendCommand + + IF tempStorage& > 0 THEN + vWatchReceivedData$(tempStorage&) = result$ + END IF + + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + hidePanel = -1 + GOSUB UpdateDisplay + ELSEIF returnAction = 2 OR returnAction = 3 THEN + 'send watchpoint data + tempIndex& = CVL(GetBytes$(result$, 4)) + tempIsArray& = _CV(_BYTE, GetBytes$(result$, 1)) <> 0 + temp$ = GetBytes$(result$, 4) 'skip original line number + tempLocalIndex& = CVL(GetBytes$(result$, 4)) + tempArrayIndex& = CVL(GetBytes$(result$, 4)) + tempArrayIndexes$ = MKL$(tempArrayIndex&) + GetBytes$(result$, tempArrayIndex&) + tempArrayElementSize& = CVL(GetBytes$(result$, 4)) + tempIsUDT& = CVL(GetBytes$(result$, 4)) + tempElement& = CVL(GetBytes$(result$, 4)) + tempElementOffset& = CVL(GetBytes$(result$, 4)) + temp$ = GetBytes$(result$, 4) 'skip var size + tempStorage& = CVL(GetBytes$(result$, 4)) + i = CVI(GetBytes$(result$, 2)) + tempScope$ = GetBytes$(result$, i) + i = CVI(GetBytes$(result$, 2)) + varType$ = GetBytes$(result$, i) + i = CVI(GetBytes$(result$, 2)) + value$ = GetBytes$(result$, i) + + IF returnAction = 2 THEN + temp$ = "set " + ELSE + 'clear watchpoint data + temp$ = "clear " + END IF + + IF LEN(usedVariableList(tempIndex&).subfunc) = 0 THEN + cmd$ = temp$ + "global watchpoint:" + ELSE + cmd$ = temp$ + "local watchpoint:" + END IF + + temp$ = value$ + IF INSTR(varType$, "STRING") = 0 THEN + GOSUB findVarSize + ELSE + IF INSTR(varType$, " * ") > 0 AND (tempIsUDT& <> 0 OR tempIsArray& <> 0) THEN + varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8))) + ELSE + varSize& = LEN(dummy%&) + LEN(dummy&) + END IF + END IF + + cmd$ = cmd$ + MKL$(tempIndex&) + cmd$ = cmd$ + _MK$(_BYTE, tempIsArray& <> 0) + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).linenumber) + cmd$ = cmd$ + MKL$(tempLocalIndex&) + cmd$ = cmd$ + tempArrayIndexes$ + cmd$ = cmd$ + MKL$(tempArrayElementSize&) + cmd$ = cmd$ + MKL$(tempIsUDT&) + cmd$ = cmd$ + MKL$(tempElement&) + cmd$ = cmd$ + MKL$(tempElementOffset&) + cmd$ = cmd$ + MKL$(varSize&) + cmd$ = cmd$ + MKL$(tempStorage&) + cmd$ = cmd$ + MKI$(LEN(tempScope$)) + tempScope$ + cmd$ = cmd$ + MKI$(LEN(varType$)) + varType$ + cmd$ = cmd$ + MKI$(LEN(temp$)) + temp$ + GOSUB SendCommand + + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + hidePanel = -1 + GOSUB UpdateDisplay + _CONTINUE + ELSEIF returnAction = -1 THEN + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + hidePanel = -1 + GOSUB UpdateDisplay + _CONTINUE + ELSE + EXIT DO + END IF + LOOP + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + GOSUB UpdateDisplay + IF LEN(variableWatchList$) THEN + panelActive = -1 + GOTO requestVariableValues + END IF + END IF + CASE 16128 'F5 + F5: + requestContinue: + PauseMode = 0 + debugnextline = 0 + cmd$ = "run" + GOSUB SendCommand + clearStatusWindow 1 + setStatusMessage 1, "Running...", 10 + GOSUB UpdateDisplay + dummy = DarkenFGBG(1) + set_foreground_window debuggeehwnd + CASE 16384 'F6 + F6: + requestStepOut: + IF PauseMode THEN + IF LEN(currentSub$) > 0 THEN + PauseMode = 0 + cmd$ = "step out" + GOSUB SendCommand + clearStatusWindow 1 + setStatusMessage 1, "Running...", 10 + dummy = DarkenFGBG(1) + GOSUB UpdateDisplay + ELSE + clearStatusWindow 0 + setStatusMessage 1, "Not inside a sub/function.", 4 + GOSUB UpdateDisplay + END IF + END IF + CASE 16640 'F7 + F7: + requestStepInto: + IF PauseMode = 0 THEN + cmd$ = "break" + PauseMode = -1 + GOSUB SendCommand + ELSE + cmd$ = "step" + PauseMode = -1 + GOSUB SendCommand + END IF + clearStatusWindow 1 + IF EnteredInput THEN + setStatusMessage 1, "Execution will be paused after SLEEP/INPUT/LINE INPUT finishes running...", 2 + set_foreground_window debuggeehwnd + ELSE + setStatusMessage 1, "Paused.", 2 + END IF + IF IdeDebugMode = 2 THEN RETURN + CASE 16896 'F8 + F8: + requestStepOver: + IF PauseMode THEN + cmd$ = "step over" + PauseMode = 0 + GOSUB SendCommand + clearStatusWindow 1 + setStatusMessage 1, "Running...", 10 + dummy = DarkenFGBG(1) + ELSE + requestPause: + cmd$ = "break" + PauseMode = -1 + GOSUB SendCommand + clearStatusWindow 1 + setStatusMessage 1, "Paused.", 2 + IF IdeDebugMode = 2 THEN RETURN + END IF + CASE 17152 'F9 + F9: + requestToggleBreakpoint: + IF PauseMode THEN + IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy) + IF IdeBreakpoints(idecy) THEN + IdeSkipLines(idecy) = 0 + cmd$ = "set breakpoint:" + ELSE + cmd$ = "clear breakpoint:" + END IF + cmd$ = cmd$ + MKL$(idecy) + GOSUB SendCommand + GOSUB UpdateDisplay + END IF + CASE 17408 'F10 + F10: + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN + requestUnskipAllLines: + REDIM IdeSkipLines(iden) AS _BYTE + cmd$ = "clear all skips" + GOSUB SendCommand + ELSE + requestClearBreakpoints: + REDIM IdeBreakpoints(iden) AS _BYTE + cmd$ = "clear all breakpoints" + GOSUB SendCommand + END IF + GOSUB UpdateDisplay + CASE 34304 'F12 + F12: + IF PauseMode THEN + requestCallStack: + cmd$ = "call stack" + GOSUB SendCommand + + IF BypassRequestCallStack THEN GOTO ShowCallStack + dummy = DarkenFGBG(0) + clearStatusWindow 0 + setStatusMessage 1, "Requesting call stack...", 7 + + start! = TIMER + callStackLength = -1 + DO + GOSUB GetCommand + IF cmd$ = "call stack size" THEN + callStackLength = CVL(value$) + IF callStackLength = 0 THEN EXIT DO + END IF + _LIMIT 100 + LOOP UNTIL cmd$ = "call stack" OR TIMER - start! > timeout + + IF cmd$ = "call stack" THEN + 'display call stack + callstacklist$ = value$ + ShowCallStack: + clearStatusWindow 0 + setStatusMessage 1, "Paused.", 2 + retval = idecallstackbox + SCREEN , , 3, 0 + GOSUB UpdateDisplay + WHILE _MOUSEINPUT: WEND + ELSE + IF callStackLength = -1 THEN + callStackLength = 0 + clearStatusWindow 0 + setStatusMessage 1, "Error retrieving call stack.", 4 + ELSEIF callStackLength = 0 THEN + clearStatusWindow 0 + setStatusMessage 1, "No call stack log available.", 4 + END IF + END IF + noFocusMessage = NOT noFocusMessage + END IF + CASE 103, 71 'g, G + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN + IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN + result = idegetlinenumberbox("Run To Line", idecy) + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + requestRunToThisLine: + IF result > 0 AND result <= iden THEN + PauseMode = 0 + debugnextline = 0 + cmd$ = "run to line:" + MKL$(result) + GOSUB SendCommand + clearStatusWindow 1 + setStatusMessage 1, "Running...", 10 + GOSUB UpdateDisplay + dummy = DarkenFGBG(1) + END IF + ELSE + result = idegetlinenumberbox("Set Next Line", idecy) + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + requestSetNextLine: + IF result > 0 AND result <= iden THEN + cmd$ = "set next line:" + MKL$(result) + GOSUB SendCommand + END IF + END IF + END IF + CASE 112, 80 'p, P + IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN + result = idegetlinenumberbox("Skip Line", idecy) + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + requestToggleSkipLine: + IF result > 0 AND result <= iden THEN + IdeSkipLines(result) = NOT IdeSkipLines(result) + cmd$ = "set skip line:" + IF IdeSkipLines(result) = 0 THEN cmd$ = "clear skip line:" + cmd$ = cmd$ + MKL$(result) + GOSUB SendCommand + GOSUB UpdateDisplay + END IF + END IF + END SELECT + + GOSUB GetCommand + + SELECT CASE cmd$ + CASE "breakpoint", "line number", "watchpoint" + BypassRequestCallStack = 0 + IF cmd$ = "watchpoint" THEN + temp$ = GetBytes$("", 0) 'reset buffer + tempIndex& = CVL(GetBytes$(value$, 4)) + latestWatchpointMet& = tempIndex& + tempArrayIndexes$ = GetBytes$(value$, 4) + tempArrayIndexes$ = tempArrayIndexes$ + GetBytes$(value$, CVL(tempArrayIndexes$)) + tempElementOffset$ = GetBytes$(value$, 4) + i = CVI(GetBytes$(value$, 2)) + temp$ = usedVariableList(tempIndex&).name + " " + GetBytes$(value$, i) + result = idemessagebox("Watchpoint condition met", temp$, "#OK;#Clear Watchpoint") + IF result = 2 THEN + 'find existing watchpoint for the same variable/index/element + temp$ = MKL$(tempIndex&) + tempArrayIndexes$ + tempElementOffset$ + i = 0 + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + DO WHILE i + IF MID$(watchpointList$, i + 8, LEN(temp$)) = temp$ THEN EXIT DO + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + LOOP + + IF i > 0 THEN + 'remove it + j = CVL(MID$(watchpointList$, i + 4, 4)) + watchpointList$ = LEFT$(watchpointList$, i - 1) + MID$(watchpointList$, i + j + 8) + END IF + + cmd$ = "clear last watchpoint" + GOSUB SendCommand + END IF + value$ = RIGHT$(value$, 4) + ELSE + latestWatchpointMet& = 0 + END IF + PCOPY 3, 0: SCREEN , , 3, 0 + WHILE _MOUSEINPUT: WEND + l = CVL(value$) + idecy = l + ideselect = 0 + debugnextline = l + idefocusline = 0 + idecentercurrentline + clearStatusWindow 1 + IF cmd$ = "breakpoint" THEN + setStatusMessage 1, "Breakpoint reached on line" + STR$(l), 2 + ELSEIF cmd$ = "watchpoint" THEN + setStatusMessage 1, "Watchpoint condition met (" + temp$ + ")", 2 + ELSE + setStatusMessage 1, "Paused.", 2 + END IF + PauseMode = -1 + GOSUB UpdateDisplay + + 'request variables addresses + IF LEN(variableWatchList$) > 0 AND panelActive THEN + requestVariableValues: + temp$ = GetBytes$("", 0) 'reset buffer + temp$ = MID$(variableWatchList$, 9) 'skip longest var name and total visible vars + DO + temp2$ = GetBytes$(temp$, 4) + IF temp2$ <> MKL$(-1) THEN EXIT DO 'no more variables in list + tempIndex& = CVL(GetBytes$(temp$, 4)) + tempArrayIndexes$ = GetBytes$(temp$, 4) + i = CVL(tempArrayIndexes$) + IF i > 0 THEN + tempArrayIndexes$ = tempArrayIndexes$ + GetBytes$(temp$, i) + END IF + tempElement& = CVL(GetBytes$(temp$, 4)) + tempElementOffset& = CVL(GetBytes$(temp$, 4)) + tempStorage& = CVL(GetBytes$(temp$, 4)) + IF LEN(usedVariableList(tempIndex&).subfunc) = 0 THEN + cmd$ = "get global var:" + ELSE + cmd$ = "get local var:" + END IF + GOSUB GetVarSize + IF varSize& THEN + cmd$ = cmd$ + MKL$(tempIndex&) + cmd$ = cmd$ + _MK$(_BYTE, usedVariableList(tempIndex&).isarray) + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).linenumber) + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).localIndex) + cmd$ = cmd$ + tempArrayIndexes$ + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).arrayElementSize) + cmd$ = cmd$ + MKL$(tempElement&) + IF tempElement& THEN + tempElementOffset& = CVL(MID$(usedVariableList(tempIndex&).elementOffset, tempElement& * 4 - 3, 4)) + ELSE + tempElementOffset& = 0 + END IF + cmd$ = cmd$ + MKL$(tempElementOffset&) + cmd$ = cmd$ + MKL$(varSize&) + cmd$ = cmd$ + MKL$(tempStorage&) + cmd$ = cmd$ + MKI$(LEN(usedVariableList(tempIndex&).subfunc)) + cmd$ = cmd$ + usedVariableList(tempIndex&).subfunc + cmd$ = cmd$ + MKI$(LEN(varType$)) + varType$ + GOSUB SendCommand + ELSE + cmd$ = "" + END IF + LOOP + END IF + CASE "hwnd" + debuggeehwnd = _CV(_OFFSET, value$) + CASE "address read" + tempIndex& = CVL(LEFT$(value$, 4)) + tempArrayIndex& = CVL(MID$(value$, 5, 4)) + tempElement& = CVL(MID$(value$, 9, 4)) + tempStorage& = CVL(MID$(value$, 13, 4)) + recvData$ = MID$(value$, 17) + GOSUB GetVarSize + SELECT CASE tempVarType$ + CASE "_BYTE", "BYTE": recvData$ = STR$(_CV(_BYTE, recvData$)) + CASE "_UNSIGNED _BYTE", "UNSIGNED BYTE": recvData$ = STR$(_CV(_UNSIGNED _BYTE, recvData$)) + CASE "INTEGER": recvData$ = STR$(_CV(INTEGER, recvData$)) + CASE "_UNSIGNED INTEGER", "UNSIGNED INTEGER": recvData$ = STR$(_CV(_UNSIGNED INTEGER, recvData$)) + CASE "LONG": recvData$ = STR$(_CV(LONG, recvData$)) + CASE "_UNSIGNED LONG", "UNSIGNED LONG": recvData$ = STR$(_CV(_UNSIGNED LONG, recvData$)) + CASE "_INTEGER64", "INTEGER64": recvData$ = STR$(_CV(_INTEGER64, recvData$)) + CASE "_UNSIGNED _INTEGER64", "UNSIGNED INTEGER64": recvData$ = STR$(_CV(_UNSIGNED _INTEGER64, recvData$)) + CASE "SINGLE": recvData$ = STR$(_CV(SINGLE, recvData$)) + CASE "DOUBLE": recvData$ = STR$(_CV(DOUBLE, recvData$)) + CASE "_FLOAT", "FLOAT": recvData$ = STR$(_CV(_FLOAT, recvData$)) + CASE "_OFFSET", "OFFSET": recvData$ = STR$(_CV(_OFFSET, recvData$)) + CASE "_UNSIGNED _OFFSET", "UNSIGNED OFFSET": recvData$ = STR$(_CV(_UNSIGNED _OFFSET, recvData$)) + 'CASE "STRING": 'no conversion required + END SELECT + vWatchReceivedData$(tempStorage&) = recvData$ + IF PauseMode THEN GOSUB UpdateDisplay + CASE "current sub" + currentSub$ = value$ + IF estabilishingScope THEN + estabilishingScope = 0 + GOSUB UpdateDisplay + GOTO requestVariableWatch + END IF + CASE "quit" + CLOSE #debugClient& + dummy = DarkenFGBG(0) + clearStatusWindow 0 + setStatusMessage 1, "Debug session aborted.", 15 + IF LEN(value$) THEN + setStatusMessage 2, value$, 7 + END IF + WHILE _MOUSEINPUT: WEND + _KEYCLEAR + EXIT SUB + CASE "error" + l = CVL(value$) + idecy = l + ideselect = 0 + idefocusline = l + GOSUB UpdateDisplay + clearStatusWindow 1 + COLOR , 4 + setStatusMessage 1, "Error occurred on line" + STR$(l), 15 + BypassRequestCallStack = -1 + PauseMode = -1 + CASE "enter input" + EnteredInput = -1 + l = CVL(value$) + idecy = l + debugnextline = l + ideselect = 0 + GOSUB UpdateDisplay + dummy = DarkenFGBG(1) + clearStatusWindow 1 + setStatusMessage 1, "SLEEP/INPUT/LINE INPUT active in your program...", 10 + set_foreground_window debuggeehwnd + CASE "leave input" + EnteredInput = 0 + clearStatusWindow 1 + IF PauseMode THEN + setStatusMessage 1, "Paused.", 2 + dummy = DarkenFGBG(0) + ELSE + setStatusMessage 1, "Running...", 10 + END IF + CASE "call stack size" + 'call stack is only received without having been + 'requested when the program is about to quit or + 'when an error just occurred + callStackLength = CVL(value$) + IF callStackLength THEN + start! = TIMER + DO + GOSUB GetCommand + _LIMIT 100 + LOOP UNTIL cmd$ = "call stack" OR TIMER - start! > timeout + + IF cmd$ = "call stack" THEN + 'store call stack + callstacklist$ = value$ + END IF + ELSE + callstacklist$ = "" + END IF + END SELECT + + IF _WINDOWHASFOCUS THEN GOSUB UpdateButtons + _LIMIT 100 + LOOP + + WHILE _MOUSEINPUT: WEND + _KEYCLEAR + EXIT SUB + + GetCommand: + GET #debugClient&, , temp$ + IF os$ = "WIN" AND _CONNECTED(debugClient&) = 0 THEN + clearStatusWindow 0 + setStatusMessage 1, "Debug session aborted.", 7 + setStatusMessage 2, "Disconnected.", 2 + WHILE _MOUSEINPUT: WEND + _KEYCLEAR + EXIT SUB + END IF + buffer$ = buffer$ + temp$ + + IF LEN(buffer$) >= 4 THEN cmdsize = CVL(LEFT$(buffer$, 4)) ELSE cmdsize = 0 + IF cmdsize > 0 AND LEN(buffer$) >= cmdsize THEN + cmd$ = MID$(buffer$, 5, cmdsize) + buffer$ = MID$(buffer$, 5 + cmdsize) + + IF INSTR(cmd$, ":") THEN + value$ = MID$(cmd$, INSTR(cmd$, ":") + 1) + cmd$ = LEFT$(cmd$, INSTR(cmd$, ":") - 1) + ELSE + value$ = "" + END IF + ELSE + cmd$ = "": value$ = "" + END IF + RETURN + + SendCommand: + cmd$ = MKL$(LEN(cmd$)) + cmd$ + PUT #debugClient&, , cmd$ + IF os$ = "WIN" AND _CONNECTED(debugClient&) = 0 THEN + clearStatusWindow 0 + setStatusMessage 1, "Debug session aborted.", 7 + setStatusMessage 2, "Disconnected.", 2 + WHILE _MOUSEINPUT: WEND + _KEYCLEAR + EXIT SUB + END IF + cmd$ = "" + RETURN + + UpdateDisplay: + IF PauseMode = 0 THEN ideshowtextBypassColorRestore = -1 + ideshowtext + UpdateTitleOfMainWindow + + GOSUB printVersion + + IF PauseMode <> 0 AND LEN(variableWatchList$) > 0 THEN + IF WatchListToConsole THEN _CONSOLE ON + totalVisibleVariables = CVL(MID$(variableWatchList$, 5, 4)) + IF hidePanel = 0 AND panelActive = -1 THEN showvWatchPanel vWatchPanel, currentSub$, 0 + hidePanel = 0 + END IF + + PCOPY 3, 0 + RETURN + + UpdateButtons: + FOR i = 1 TO UBOUND(Button) + IF mY = Button(i).y AND mX >= Button(i).x AND mX <= Button(i).x + Button(i).w AND _ + vWatchPanel.draggingPanel = 0 AND vWatchPanel.resizingPanel = 0 THEN + COLOR 0, 7 + temp$ = "" + ELSE + COLOR 13, 1 + temp$ = " " + END IF + _PRINTSTRING (Button(i).x, Button(i).y), Button(i).Caption + temp$ + NEXT + PCOPY 3, 0 + RETURN + + GetVarSize: + varSize& = 0 + varType$ = usedVariableList(tempIndex&).varType + checkVarType: + tempVarType$ = varType$ + IF INSTR(tempVarType$, "STRING *") THEN tempVarType$ = "STRING" + IF INSTR(tempVarType$, "BIT *") THEN + IF VAL(MID$(tempVarType$, _INSTRREV(tempVarType$, " ") + 1)) > 32 THEN + tempVarType$ = "_INTEGER64" + IF INSTR(varType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED _INTEGER64" + ELSE + tempVarType$ = "LONG" + IF INSTR(varType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED LONG" + END IF + ELSEIF INSTR("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@", "@" + tempVarType$ + "@") THEN + tempVarType$ = "LONG" + IF INSTR(varType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED LONG" + END IF + SELECT CASE tempVarType$ + CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%) + CASE "INTEGER", "_UNSIGNED INTEGER", "UNSIGNED INTEGER": varSize& = LEN(dummy%) + CASE "LONG", "_UNSIGNED LONG", "UNSIGNED LONG": varSize& = LEN(dummy&) + CASE "_INTEGER64", "_UNSIGNED _INTEGER64", "INTEGER64", "UNSIGNED INTEGER64": varSize& = LEN(dummy&&) + CASE "SINGLE": varSize& = LEN(dummy!) + CASE "DOUBLE": varSize& = LEN(dummy#) + CASE "_FLOAT", "FLOAT": varSize& = LEN(dummy##) + CASE "_OFFSET", "_UNSIGNED _OFFSET", "OFFSET", "UNSIGNED OFFSET": varSize& = LEN(dummy%&) + CASE "STRING": varSize& = LEN(dummy%&) + LEN(dummy&) + CASE ELSE 'UDT? + varType$ = getelement(usedVariableList(tempIndex&).elementTypes, tempElement&) + IF INSTR(varType$, "STRING *") THEN + 'Request exactly the amount of bytes specified for fixed strings in UDTs + varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8))) + RETURN + END IF + IF LEN(varType$) THEN GOTO checkVarType + END SELECT + RETURN + + printVersion: + 'print version in the status bar + IF LEN(versionStringStatus$) = 0 THEN + versionStringStatus$ = " v" + Version$ + IF LEN(AutoBuildMsg$) THEN versionStringStatus$ = versionStringStatus$ + MID$(AutoBuildMsg$, _INSTRREV(AutoBuildMsg$, " ")) + versionStringStatus$ = versionStringStatus$ + " " + END IF + COLOR 2, 3 + _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ + RETURN + + checkvWatchPanelSize: + IF vWatchPanel.w < 40 THEN vWatchPanel.w = 40 + IF vWatchPanel.w > idewx - 12 THEN vWatchPanel.w = idewx - 12 + IF vWatchPanel.x + vWatchPanel.w > idewx - 1 THEN + vWatchPanel.w = (idewx - 1) - vWatchPanel.x + END IF + IF vWatchPanel.y + vWatchPanel.h > vWatchPanelLimit THEN + vWatchPanel.h = vWatchPanelLimit - (vWatchPanel.y - 1) + END IF + IF vWatchPanel.h < 5 THEN vWatchPanel.h = 5 + IF vWatchPanel.h > idewy - 10 THEN vWatchPanel.h = idewy - 10 + RETURN +END SUB + +Function map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!) + map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange! +End Function + +SUB showvWatchPanel (this AS vWatchPanelType, currentScope$, action as _BYTE) + STATIC previousVariableWatchList$ + STATIC longestVarName, totalVisibleVariables + + IF action = 1 THEN previousVariableWatchList$ = "": EXIT SUB 'reset + + IF previousVariableWatchList$ <> variableWatchList$ THEN + 'new setup + previousVariableWatchList$ = variableWatchList$ + longestVarName = CVL(LEFT$(variableWatchList$, 4)) + totalVisibleVariables = CVL(MID$(variableWatchList$, 5, 4)) + this.h = totalVisibleVariables + 2 + IF this.h > idewy - 10 THEN this.h = idewy - 10 + IF this.h < 5 THEN this.h = 5 + END IF + + fg = 0: bg = 7 + + title$ = "Watch List" + IF LEN(currentScope$) THEN title$ = title$ + " - " + currentScope$ + IF this.w < LEN(title$) + 4 THEN + this.w = LEN(title$) + 4 + IF this.x + this.w + 2 > idewx THEN this.x = idewx - (this.w + 2) + END IF + + IF WatchListToConsole = 0 THEN + vWatchPanelLimit = idewy - 6 + + IF this.x < 2 THEN this.x = 2 + IF this.x + this.w > idewx - 1 THEN this.x = idewx - this.w - 1 + IF this.y < 3 THEN this.y = 3 + IF this.y > vWatchPanelLimit - (this.h - 1) THEN this.y = vWatchPanelLimit - (this.h - 1) + + IF this.w < 40 THEN this.w = 40 + IF this.w > idewx - 12 THEN this.w = idewx - 12 + IF this.x + this.w > idewx - 1 THEN + this.w = (idewx - 1) - this.x + END IF + IF this.y + this.h > vWatchPanelLimit THEN + this.h = vWatchPanelLimit - (this.y - 1) + END IF + IF this.h < 5 THEN this.h = 5 + IF this.h > idewy - 10 THEN this.h = idewy - 10 + + COLOR fg, bg + ideboxshadow this.x, this.y, this.w, this.h + COLOR 15, bg + _PRINTSTRING (this.x + this.w - 1, this.y + this.h - 1), CHR$(254) 'resize handle + + x = LEN(title$) + 2 + COLOR fg, bg + _PRINTSTRING (this.x + (this.w \ 2) - (x - 1) \ 2, this.y), " " + title$ + " " + COLOR 15, 4 + _PRINTSTRING (this.x + this.w - 3, this.y), " x " 'close button + COLOR , bg + ELSE + _ECHO "-------- " + title$ + END IF + + y = 0 + i = 0 + shadowX = 0 + shadowY = 0 + shadowLength = 0 + this.contentWidth = 0 + IF this.hPos = 0 THEN this.hPos = 1 + temp$ = GetBytes$("", 0) 'reset buffer + temp$ = MID$(variableWatchList$, 9) + actualLongestVarName = 0 + displayFormatButton = 0 + DO + temp2$ = GetBytes$(temp$, 4) + IF temp2$ <> MKL$(-1) THEN EXIT DO 'no more variables in list + tempIndex& = CVL(GetBytes$(temp$, 4)) + tempTotalArrayIndexes& = CVL(GetBytes$(temp$, 4)) + tempArrayIndexes$ = GetBytes$(temp$, tempTotalArrayIndexes&) + tempElement& = CVL(GetBytes$(temp$, 4)) + tempElementOffset& = CVL(GetBytes$(temp$, 4)) + tempStorage& = CVL(GetBytes$(temp$, 4)) + + i = i + 1 + IF this.firstVisible > i AND WatchListToConsole = 0 THEN _CONTINUE + y = y + 1 + IF y > this.h - 2 AND WatchListToConsole = 0 THEN EXIT DO + + thisName$ = usedVariableList(tempIndex&).name + IF usedVariableList(tempIndex&).isarray THEN + thisName$ = LEFT$(thisName$, LEN(thisName$) - 1) + tempTotalArrayIndexes& = tempTotalArrayIndexes& \ 4 + FOR j = 1 TO tempTotalArrayIndexes& + thisName$ = thisName$ + LTRIM$(STR$(CVL(MID$(tempArrayIndexes$, j * 4 - 3, 4)))) + IF j < tempTotalArrayIndexes& THEN thisName$ = thisName$ + ", " + NEXT + thisName$ = thisName$ + ")" + END IF + IF tempElement& THEN + tempElementList$ = MID$(usedVariableList(tempIndex&).elements, 5) + thisName$ = thisName$ + getelement$(tempElementList$, tempElement&) + END IF + IF LEN(thisName$) > actualLongestVarName THEN actualLongestVarName = LEN(thisName$) + item$ = thisName$ + SPACE$(longestVarName - LEN(thisName$)) + " = " + IF usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "" THEN + IF tempElement& THEN + tempVarType$ = getelement$(usedVariableList(tempIndex&).elementTypes, tempElement&) + ELSE + tempVarType$ = usedVariableList(tempIndex&).varType + END IF + thisIsAString = (INSTR(tempVarType$, "STRING *") > 0 OR tempVarType$ = "STRING") + tempValue$ = StrReplace$(vWatchReceivedData$(tempStorage&), CHR$(0), " ") + IF thisIsAString THEN + item$ = item$ + CHR$(34) + tempValue$ + CHR$(34) + IF displayFormatButton > 0 THEN displayFormatButton = 0 + ELSE + IF displayFormatButton = 0 AND this.mY = this.y + y THEN displayFormatButton = LEN(item$) + 2 + IF WatchListToConsole THEN displayFormatButton = 0 + + SELECT CASE usedVariableList(tempIndex&).displayFormat + 'displayFormat: 0=DEC;1=HEX;2=BIN;3=OCT + CASE 1: tempValue$ = "&H" + HEX$(VAL(tempValue$)) + CASE 2: tempValue$ = "&B" + _BIN$(VAL(tempValue$)) + CASE 3: tempValue$ = "&O" + OCT$(VAL(tempValue$)) + END SELECT + item$ = item$ + tempValue$ + END IF + COLOR fg + ELSE + item$ = item$ + "" + IF WatchListToConsole = 0 THEN COLOR 2 + END IF + IF LEN(item$) > this.contentWidth THEN this.contentWidth = LEN(item$) + IF WatchListToConsole = 0 THEN + temp2$ = MID$(item$, this.hPos) + _PRINTSTRING (this.x + 2, this.y + y), LEFT$(temp2$, this.w - 4) + IF this.x + 2 + LEN(temp2$) > this.x + this.w - 2 THEN + _PRINTSTRING (this.x + this.w - 2, this.y + y), CHR$(26) + END IF + + 'show/highlight .displayFormat button + IF displayFormatButton > 0 AND displayFormatButton >= this.hPos AND _ + this.x + displayFormatButton - this.hPos < this.x + this.w - 4 AND _ + this.x + displayFormatButton - this.hPos > this.x + 1 THEN + COLOR 15 + IF this.mY = this.y + y AND this.mX = this.x + displayFormatButton - this.hPos THEN + COLOR , 3 + + IF this.clicked = 2 THEN + this.clicked = 0 'indicate we handled the click here + usedVariableList(tempIndex&).displayFormat = usedVariableList(tempIndex&).displayFormat + 1 + IF usedVariableList(tempIndex&).displayFormat > 3 THEN usedVariableList(tempIndex&).displayFormat = 0 + END IF + END IF + _PRINTSTRING (this.x + displayFormatButton - this.hPos, this.mY), CHR$(29) + COLOR fg, bg + displayFormatButton = -1 'mark done + END IF + + 'find existing watchpoint for this variable/index/element + temp2$ = MKL$(tempIndex&) + MKL$(tempTotalArrayIndexes& * 4) + tempArrayIndexes$ + MKL$(tempElementOffset&) + j = 0 + j = INSTR(j + 1, watchpointList$, MKL$(-1)) + DO WHILE j + IF MID$(watchpointList$, j + 8, LEN(temp2$)) = temp2$ THEN EXIT DO + j = INSTR(j + 1, watchpointList$, MKL$(-1)) + LOOP + + IF j > 0 THEN + IF latestWatchpointMet& = tempIndex& THEN COLOR 15 ELSE COLOR 4 + _PRINTSTRING (this.x + 1, this.y + y), CHR$(7) 'watchpoint bullet indicator + IF this.mX = this.x + 1 AND this.mY = this.y + y THEN + COLOR 15, 3 + + k = CVL(MID$(watchpointList$, j + 4, 4)) + temp3$ = MID$(watchpointList$, j + 8, k) + k = CVI(RIGHT$(temp3$, 2)) + condition$ = " Watchpoint: " + thisName$ + " " + MID$(temp3$, LEN(temp3$) - (2 + k) + 1, k) + " " + + IF LEN(condition$) > idewx - 8 THEN + condition$ = LEFT$(condition$, idewx - 13) + STRING$(3, 250) + " " + END IF + k = this.x + 2 + IF k + LEN(condition$) > idewx THEN k = idewx - (LEN(condition$) + 2) + + _PRINTSTRING (k, this.y + y), condition$ + + shadowX = k + shadowY = this.y + y + 1 + shadowLength = LEN(condition$) + END IF + COLOR fg, bg + END IF + ELSE + _ECHO item$ + END IF + LOOP + longestVarName = actualLongestVarName 'if these are different, next time it'll be fixed + + IF WatchListToConsole = 0 THEN + IF shadowLength THEN + 'shadow for watchpoint popup + COLOR 2, 0 + FOR x2 = shadowX + 2 TO shadowX + shadowLength + _PRINTSTRING (x2, shadowY), CHR$(SCREEN(shadowY, x2)) + NEXT + END IF + + IF totalVisibleVariables > this.h - 2 THEN + y = idevbar(this.x + this.w - 1, this.y + 1, this.h - 2, this.firstVisible, totalVisibleVariables - (this.h - 2) + 1) + IF this.draggingVBar = 0 THEN + this.vBarThumb = y + END IF + ELSE + this.vBarThumb = 0 + this.firstVisible = 1 + END IF + + IF this.contentWidth > this.w - 4 THEN + x = idehbar(this.x, this.y + this.h - 1, this.w - 1, this.hPos, this.contentWidth - (this.w - 4) + 1) + IF this.draggingHBar = 0 THEN + this.hBarThumb = x + END IF + ELSE + this.hBarThumb = 0 + this.hPos = 1 + END IF + END IF + IF this.clicked = 2 THEN this.clicked = 0 'discard unhandled click +END SUB + +FUNCTION multiSearch (__fullText$, __searchString$) + 'Returns -1 if all of the search items in SearchString can be found + 'in FullText$. Returns 0 if any of the search terms cannot be found. + 'Multiple items in SearchString$ must be in the format "term1+term2+..." + 'Not case-sensitive. + + fullText$ = _TRIM$(UCASE$(__fullText$)) + searchString$ = _TRIM$(UCASE$(__searchString$)) + IF LEN(fullText$) = 0 THEN EXIT FUNCTION + IF LEN(searchString$) = 0 THEN EXIT FUNCTION + + multiSearch = -1 + findPlus = INSTR(searchString$, "+") + WHILE findPlus + thisTerm$ = LEFT$(searchString$, findPlus - 1) + searchString$ = MID$(searchString$, findPlus + 1) + IF INSTR(fullText$, thisTerm$) = 0 THEN multiSearch = 0: EXIT FUNCTION + findPlus = INSTR(searchString$, "+") + WEND + + IF LEN(searchString$) THEN + IF INSTR(fullText$, searchString$) = 0 THEN multiSearch = 0 + END IF +END FUNCTION + +FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction) + + '-------- generic dialog box header -------- + PCOPY 0, 2 + PCOPY 0, 1 + SCREEN , , 1, 0 + focus = 1 + DIM p AS idedbptype + DIM o(1 TO 100) AS idedbotype + DIM sep AS STRING * 1 + sep = CHR$(0) + '-------- end of generic dialog box header -------- + + '-------- init -------- + + returnAction = 0 + mainmodule$ = "GLOBAL" + maxModuleNameLen = LEN(mainmodule$) + maxTypeLen = LEN("Type") + variableNameColor = 3 + typeColumnColor = 15 + selectedBG = 2 + + TYPE varDlgList + AS LONG index, bgColorFlag, colorFlag, colorFlag2, indicator, indicator2 + AS _BYTE selected + AS STRING varType + END TYPE + + REDIM varDlgList(1 TO totalVariablesCreated) AS varDlgList + + 'calculate longest module name, longest var name, longest type name + FOR x = 1 TO totalVariablesCreated + IF usedVariableList(x).includedLine THEN _CONTINUE 'don't deal with variables in $INCLUDEs + IF LEN(usedVariableList(x).subfunc) > maxModuleNameLen THEN + maxModuleNameLen = LEN(usedVariableList(x).subfunc) + END IF + + IF LEN(usedVariableList(x).varType) > maxTypeLen THEN maxTypeLen = LEN(usedVariableList(x).varType) + NEXT + + searchTerm$ = filter$ + firstRun = -1 + GOSUB buildList + firstRun = 0 + dialogHeight = (totalMainVariablesCreated) + 7 + listBuilt: + IF selectVar = -1 THEN GOTO generateVariableWatchList + + i = 0 + IF dialogHeight < lastUsedDialogHeight THEN dialogHeight = lastUsedDialogHeight + IF dialogHeight > idewy + idesubwindow - 6 THEN + dialogHeight = idewy + idesubwindow - 6 + END IF + IF dialogHeight < 9 THEN dialogHeight = 9 + + dialogWidth = 6 + maxModuleNameLen + maxVarLen + maxTypeLen + IF IdeDebugMode > 0 THEN dialogWidth = dialogWidth + 40 'make room for "= values" + IF dialogWidth < 70 THEN dialogWidth = 70 + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + + idepar p, dialogWidth, dialogHeight, "Add Watch - Variable List" + + i = i + 1: filterBox = i + PrevFocus = 1 + o(i).typ = 1 + o(i).y = 2 + IF o(i).nam = 0 THEN o(i).nam = idenewtxt("#Filter (multiple+terms+accepted)") + IF o(i).txt = 0 THEN o(i).txt = idenewtxt(filter$) + + i = i + 1: varListBox = i + o(varListBox).typ = 2 + o(varListBox).y = 5 + o(varListBox).w = dialogWidth - 4: o(i).h = dialogHeight - 7 + IF o(varListBox).txt = 0 THEN o(varListBox).txt = idenewtxt(l$) ELSE idetxt(o(varListBox).txt) = l$ + IF selectVar = 0 THEN selectVar = 1 ELSE focus = varListBox + o(varListBox).sel = selectVar + + IF LEN(searchTerm$) THEN temp$ = ", filtered" ELSE temp$ = "" + idetxt(p.nam) = "Add Watch - Variable List (" + LTRIM$(STR$(totalVisibleVariables)) + temp$ + ")" + + i = i + 1: buttonSet = i + o(buttonSet).typ = 3 + o(buttonSet).y = dialogHeight + IF IdeDebugMode > 0 AND o(buttonSet).txt = 0 THEN + o(buttonSet).txt = idenewtxt("#Add All" + sep + "#Remove All" + sep + "#Send Value" + sep + "Add #Watchpoint" + sep + "#Close") + ELSE + o(buttonSet).txt = idenewtxt("#Add All" + sep + "#Remove All" + sep + "#Close") + END IF + + lastUsedDialogHeight = dialogHeight + + + '-------- end of init -------- + + '-------- generic init -------- + FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects + '-------- end of generic init -------- + + DO 'main loop + + '-------- generic display dialog box & objects -------- + dlgUpdate: + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + 'prepare object + o(i).foc = focus - f 'focus offset + o(i).cx = 0: o(i).cy = 0 + idedrawobj o(i), f 'display object + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + END IF + NEXT i + lastfocus = f - 1 + '-------- end of generic display dialog box & objects -------- + + '-------- custom display changes -------- + COLOR 0, 7 + LOCATE p.y + 4, p.x + 2 + PRINT "Double-click on an item to add it to the watch list:" + IF doubleClickThreshold > 0 AND doubleClickThreshold < p.w AND IdeDebugMode > 0 THEN + _PRINTSTRING (p.x + doubleClickThreshold, p.y + 5), CHR$(194) + _PRINTSTRING (p.x + doubleClickThreshold, p.y + p.h - 1), CHR$(193) + + IF focus = varListBox AND o(varListBox).sel > 0 THEN + y = o(varListBox).sel + IF usedVariableList(varDlgList(y).index).watch <> 0 AND _ + INSTR(usedVariableList(varDlgList(y).index).varType, "STRING *") = 0 AND _ + usedVariableList(varDlgList(y).index).varType <> "STRING" THEN + COLOR 15, 3 + y = o(varListBox).selY + _PRINTSTRING (p.x + doubleClickThreshold - 1, y), CHR$(29) + COLOR fg, bg + END IF + END IF + END IF + + '-------- end of custom display changes -------- + + 'update visual page and cursor position + PCOPY 1, 0 + IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 + IF quickDlgUpdate THEN quickDlgUpdate = 0: RETURN + + '-------- read input -------- + change = 0 + DO + GetInput + IF mWHEEL THEN change = 1 + IF KB THEN change = 1 + IF mCLICK THEN mousedown = 1: change = 1 + IF mRELEASE THEN mouseup = 1: change = 1 + IF mB THEN change = 1 + alt = KALT: IF alt <> oldalt THEN change = 1 + oldalt = alt + _LIMIT 100 + LOOP UNTIL change + IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 + 'convert "alt+letter" scancode to letter's ASCII character + altletter$ = "" + IF alt AND NOT KCTRL THEN + IF LEN(K$) = 1 THEN + k = ASC(UCASE$(K$)) + IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + END IF + END IF + SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 + '-------- end of read input -------- + + '-------- generic input response -------- + info = 0 + IF K$ = "" THEN K$ = CHR$(255) + IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 + IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" + IF focus < 1 THEN focus = lastfocus + IF focus > lastfocus THEN focus = 1 + f = 1 + FOR i = 1 TO 100 + t = o(i).typ + IF t THEN + focusoffset = focus - f + ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL + END IF + NEXT + '-------- end of generic input response -------- + IF focus <> PrevFocus THEN + 'Always start with TextBox values selected upon getting focus + PrevFocus = focus + IF focus = filterBox THEN + o(focus).v1 = LEN(idetxt(o(focus).txt)) + IF o(focus).v1 > 0 THEN o(focus).issel = -1 + o(focus).sx1 = 0 + END IF + END IF + + IF (focus = 3 AND info <> 0) THEN 'add all + FOR y = 1 TO totalVisibleVariables + varType$ = usedVariableList(varDlgList(y).index).varType + IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" + IF INSTR(varType$, "BIT *") THEN varType$ = "_BIT" + IF (usedVariableList(varDlgList(y).index).isarray AND LEN(usedVariableList(varDlgList(y).index).watchRange) = 0) OR _ + INSTR(nativeDataTypes$, varType$) = 0 THEN _CONTINUE + usedVariableList(varDlgList(y).index).watch = -1 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = variableNameColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = typeColumnColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = selectedBG + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 43 '+ + NEXT + focus = filterBox + _CONTINUE + END IF + + IF (focus = 4 AND info <> 0) THEN 'remove all + FOR y = 1 TO totalVisibleVariables + usedVariableList(varDlgList(y).index).watch = 0 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = 16 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = 2 + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = 17 + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 32 'space + NEXT + focus = filterBox + _CONTINUE + END IF + + IF (IdeDebugMode > 0 AND focus = 5 AND info <> 0) OR _ + (IdeDebugMode > 0 AND focus = 6 AND info <> 0) THEN + 'set address/add watchpoint + sendValue: + SELECT CASE focus + CASE 5 + dlgTitle$ = "Change Value" + dlgPrompt$ = "#Index to change" + dlgPrompt2$ = "#New value" + thisReturnAction = 1 + CASE 6 + dlgTitle$ = "Add Watchpoint" + dlgPrompt$ = "#Index to monitor" + dlgPrompt2$ = "#Condition" + thisReturnAction = 2 + END SELECT + + y = ABS(o(varListBox).sel) + + IF y >= 1 AND y <= totalVisibleVariables THEN + o(varListBox).sel = y + quickDlgUpdate = -1: GOSUB dlgUpdate + tempIndex& = varDlgList(y).index + IF (focus = 5 AND (usedVariableList(tempIndex&).subfunc = currentScope$ OR usedVariableList(tempIndex&).subfunc = "")) OR focus = 6 THEN + 'scope is valid (or we're setting a watchpoint) + tempArrayIndex& = 0 + tempArrayIndexes$ = MKL$(0) + + tempStorage& = 0 + IF LEN(usedVariableList(tempIndex&).storage) = 4 THEN + tempStorage& = CVL(usedVariableList(tempIndex&).storage) + ELSEIF LEN(usedVariableList(tempIndex&).storage) > 4 THEN + i = 4 + DO + i = INSTR(i + 1, variableWatchList$, MKL$(-1) + MKL$(tempIndex&) + tempArrayIndexes$) + IF i = 0 THEN EXIT DO + IF MID$(variableWatchList$, i + 8 + LEN(tempArrayIndexes$), 4) = tempElementOffset$ THEN + 'we found where this element's value is being stored + tempStorage& = CVL(MID$(variableWatchList$, i + 16 + LEN(tempArrayIndexes$), 4)) + EXIT DO + END IF + LOOP + END IF + + tempIsUDT& = 0 + tempElementOffset$ = MKL$(0) + IF usedVariableList(tempIndex&).isarray THEN + setArrayRange3: + v$ = ideinputbox$(dlgTitle$, dlgPrompt$, temp$, "01234567890,", 45, 0, ok) + _KEYCLEAR + IF ok THEN + IF LEN(v$) > 0 THEN + WHILE RIGHT$(v$, 1) = ",": v$ = LEFT$(v$, LEN(v$) - 1): WEND + temp$ = lineformat$(v$) + i = countelements(temp$) + IF i <> ABS(ids(usedVariableList(tempIndex&).id).arrayelements) THEN + result = idemessagebox("Error", "Array has" + STR$(ABS(ids(usedVariableList(tempIndex&).id).arrayelements)) + " dimension(s).", "#OK") + _KEYCLEAR + temp$ = _TRIM$(v$) + GOTO setArrayRange3 + END IF + tempArrayIndexes$ = MKL$(i * 4) + WHILE i + foundComma = INSTR(v$, ",") + IF foundComma THEN + temp$ = LEFT$(v$, foundComma - 1) + v$ = MID$(v$, foundComma + 1) + ELSE + temp$ = v$ + END IF + tempArrayIndexes$ = tempArrayIndexes$ + MKL$(VAL(temp$)) + i = i - 1 + WEND + ELSE + _CONTINUE + END IF + ELSE + _CONTINUE + END IF + END IF + + varType$ = usedVariableList(tempIndex&).varType + tempVarType$ = varType$ + IF INSTR(varType$, "STRING *") THEN tempVarType$ = "STRING" + IF INSTR(varType$, "BIT *") THEN tempVarType$ = "_BIT" + IF INSTR(nativeDataTypes$, tempVarType$) = 0 THEN + 'It's a UDT + tempIsUDT& = -1 + elementIndexes$ = "" + thisUDT = 0 + E = 0 + FOR i = 1 TO lasttype + IF RTRIM$(udtxcname(i)) = varType$ THEN thisUDT = i: EXIT FOR + NEXT + + i = 0 + DO + IF E = 0 THEN E = udtxnext(thisUDT) ELSE E = udtenext(E) + IF E = 0 THEN EXIT DO + elementIndexes$ = elementIndexes$ + MKL$(E) + i = i + 1 + LOOP + PCOPY 0, 4 + v$ = ideelementwatchbox$(usedVariableList(tempIndex&).name + ".", elementIndexes$, 0, -1, ok) + _KEYCLEAR + PCOPY 2, 0 + PCOPY 2, 1 + SCREEN , , 1, 0 + IF ok = -2 THEN + getid usedVariableList(tempIndex&).id + IF id.t = 0 THEN + typ = id.arraytype AND 511 + IF id.arraytype AND ISINCONVENTIONALMEMORY THEN + typ = typ - ISINCONVENTIONALMEMORY + END IF + + usedVariableList(tempIndex&).arrayElementSize = udtxsize(typ) + IF udtxbytealign(typ) THEN + IF usedVariableList(tempIndex&).arrayElementSize MOD 8 THEN usedVariableList(tempIndex&).arrayElementSize = usedVariableList(tempIndex&).arrayElementSize + (8 - (usedVariableList(tempIndex&).arrayElementSize MOD 8)) 'round up to nearest byte + usedVariableList(tempIndex&).arrayElementSize = usedVariableList(tempIndex&).arrayElementSize \ 8 + END IF + ELSE + usedVariableList(tempIndex&).arrayElementSize = 0 + END IF + + temp$ = v$ + IF numelements(temp$) <> 1 THEN + 'shouldn't ever happen + result = idemessagebox("Error", "Only one UDT element can be selected at a time", "#OK") + _KEYCLEAR + _CONTINUE + END IF + + v$ = getelement$(temp$, 1) + + '------- + v$ = lineformat$(UCASE$(v$)) + Error_Happened = 0 + result$ = udtreference$("", v$, typ) + IF Error_Happened THEN + 'shouldn't ever happen + Error_Happened = 0 + result = idemessagebox("Error", Error_Message, "#OK") + _KEYCLEAR + _CONTINUE + ELSE + typ = typ - ISUDT + typ = typ - ISREFERENCE + IF typ AND ISINCONVENTIONALMEMORY THEN typ = typ - ISINCONVENTIONALMEMORY + SELECT CASE typ + CASE BYTETYPE + varType$ = "_BYTE" + CASE UBYTETYPE + varType$ = "_UNSIGNED _BYTE" + CASE INTEGERTYPE + varType$ = "INTEGER" + CASE UINTEGERTYPE + varType$ = "_UNSIGNED INTEGER" + CASE LONGTYPE + varType$ = "LONG" + CASE ULONGTYPE + varType$ = "_UNSIGNED LONG" + CASE INTEGER64TYPE + varType$ = "_INTEGER64" + CASE UINTEGER64TYPE + varType$ = "_UNSIGNED _INTEGER64" + CASE SINGLETYPE + varType$ = "SINGLE" + CASE DOUBLETYPE + varType$ = "DOUBLE" + CASE FLOATTYPE + varType$ = "_FLOAT" + CASE OFFSETTYPE + varType$ = "_OFFSET" + CASE UOFFSETTYPE + varType$ = "_UNSIGNED _OFFSET" + CASE ELSE + IF typ AND ISSTRING THEN + IF (typ AND ISFIXEDLENGTH) = 0 THEN + varType$ = "STRING" + ELSE + 'E contains the UDT element index at this point + varType$ = "STRING *" + STR$(udtetypesize(E)) + END IF + ELSE + 'shouldn't ever happen + result = idemessagebox("Error", "Cannot select full UDT", "#OK") + _KEYCLEAR + GOTO dlgLoop + END IF + END SELECT + tempElementOffset$ = MKL$(VAL(MID$(result$, _INSTRREV(result$, sp3) + 1))) + END IF + '------- + ELSE + _CONTINUE + END IF + END IF + storageSlot& = 0 + IF LEN(usedVariableList(tempIndex&).storage) = 4 THEN + storageSlot& = CVL(usedVariableList(tempIndex&).storage) + ELSEIF LEN(usedVariableList(tempIndex&).storage) > 4 THEN + i = 4 + DO + i = INSTR(i + 1, variableWatchList$, MKL$(-1) + MKL$(tempIndex&) + tempArrayIndexes$) + IF i = 0 THEN EXIT DO + IF MID$(variableWatchList$, i + 8 + LEN(tempArrayIndexes$), 4) = tempElementOffset$ THEN + 'we found where this element's value is being stored + storageSlot& = CVL(MID$(variableWatchList$, i + 16 + LEN(tempArrayIndexes$), 4)) + EXIT DO + END IF + LOOP + END IF + a2$ = "" + IF storageSlot& > 0 AND focus = 5 THEN + a2$ = vWatchReceivedData$(storageSlot&) + ELSEIF focus = 6 THEN + 'find existing watchpoint for this variable/index/element + temp$ = MKL$(tempIndex&) + tempArrayIndexes$ + tempElementOffset$ + i = 0 + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + DO WHILE i + IF MID$(watchpointList$, i + 8, LEN(temp$)) = temp$ THEN EXIT DO + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + LOOP + + IF i > 0 THEN + j = CVL(MID$(watchpointList$, i + 4, 4)) + temp$ = MID$(watchpointList$, i + 8, j) + j = CVI(RIGHT$(temp$, 2)) + a2$ = MID$(temp$, LEN(temp$) - (2 + j) + 1, j) + END IF + END IF + IF INSTR(varType$, "STRING") THEN + thisWidth = idewx - 20 + ELSE + thisWidth = 45 + SELECT CASE usedVariableList(tempIndex&).displayFormat + CASE 1: a2$ = "&H" + HEX$(VAL(a2$)) + CASE 2: a2$ = "&B" + _BIN$(VAL(a2$)) + CASE 3: a2$ = "&O" + OCT$(VAL(a2$)) + END SELECT + END IF + getNewValueInput: + v$ = ideinputbox$(dlgTitle$, dlgPrompt2$, a2$, "", thisWidth, 0, ok) + _KEYCLEAR + IF ok THEN + IF focus = 6 THEN + 'validate condition string first + v$ = LTRIM$(v$) + IF LEN(v$) < 2 THEN + result = idemessagebox(dlgTitle$, "Watchpoint cleared.", "#OK") + _KEYCLEAR + v$ = "" + thisReturnAction = 3 'remove watchpoint for this variable + ELSE + StartWatchPointEval: + op1$ = LEFT$(v$, 1) + op2$ = MID$(v$, 2, 1) + SELECT CASE op1$ + CASE "=" + IF op2$ = "<" OR op2$ = ">" THEN + MID$(v$, 1, 2) = op2$ + "=" + GOTO StartWatchPointEval + END IF + op$ = "=" + actualValue$ = _TRIM$(MID$(v$, 2)) + CASE ">" + IF op2$ = "<" OR op2$ = ">" THEN + result = idemessagebox(dlgTitle$, "Invalid expression.\nYou can use =, <>, >, >=, <, <=, and a literal value", "#OK") + _KEYCLEAR + GOTO getNewValueInput + END IF + IF op2$ = "=" THEN + op$ = ">=" + actualValue$ = _TRIM$(MID$(v$, 3)) + ELSE + op$ = ">" + actualValue$ = _TRIM$(MID$(v$, 2)) + END IF + CASE "<" + IF op2$ = ">" OR op2$ = "=" THEN + op$ = "<" + op2$ + actualValue$ = _TRIM$(MID$(v$, 3)) + ELSE + op$ = "<" + actualValue$ = _TRIM$(MID$(v$, 2)) + END IF + CASE ELSE + result = idemessagebox(dlgTitle$, "Invalid expression.\nYou can use =, <>, >, >=, <, <=, and a literal value", "#OK") + _KEYCLEAR + GOTO getNewValueInput + END SELECT + END IF + + IF thisReturnAction <> 3 THEN + IF INSTR(varType$, "STRING") = 0 THEN + v$ = op$ + actualValue$ + IF v$ <> op$ + LTRIM$(STR$(VAL(actualValue$))) THEN + result = idemessagebox(dlgTitle$, "Invalid expression.\nYou can use =, <>, >, >=, <, <=, and a literal value\n(scientific notation not allowed).", "#OK") + _KEYCLEAR + GOTO getNewValueInput + END IF + END IF + + v$ = op$ + " " + actualValue$ 'just to prettify it + END IF + END IF + + cmd$ = "" + cmd$ = cmd$ + MKL$(tempIndex&) + cmd$ = cmd$ + _MK$(_BYTE, usedVariableList(tempIndex&).isarray) + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).linenumber) + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).localIndex) + cmd$ = cmd$ + tempArrayIndexes$ + cmd$ = cmd$ + MKL$(usedVariableList(tempIndex&).arrayElementSize) + cmd$ = cmd$ + MKL$(tempIsUDT&) + cmd$ = cmd$ + MKL$(tempElement&) + cmd$ = cmd$ + tempElementOffset$ + cmd$ = cmd$ + MKL$(0) + cmd$ = cmd$ + MKL$(tempStorage&) + cmd$ = cmd$ + MKI$(LEN(usedVariableList(tempIndex&).subfunc)) + cmd$ = cmd$ + usedVariableList(tempIndex&).subfunc + cmd$ = cmd$ + MKI$(LEN(varType$)) + varType$ + cmd$ = cmd$ + MKI$(LEN(v$)) + v$ + idevariablewatchbox$ = cmd$ + + IF thisReturnAction = 2 OR thisReturnAction = 3 THEN + 'find existing watchpoint for the same variable/index/element + temp$ = MKL$(tempIndex&) + tempArrayIndexes$ + tempElementOffset$ + i = 0 + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + DO WHILE i + IF MID$(watchpointList$, i + 8, LEN(temp$)) = temp$ THEN EXIT DO + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + LOOP + + IF i > 0 THEN + 'remove it + j = CVL(MID$(watchpointList$, i + 4, 4)) + watchpointList$ = LEFT$(watchpointList$, i - 1) + MID$(watchpointList$, i + j + 8) + END IF + END IF + + IF thisReturnAction = 2 THEN + 'add watchpoint + temp$ = temp$ + v$ + MKI$(LEN(v$)) + watchpointList$ = watchpointList$ + MKL$(-1) + MKL$(LEN(temp$)) + temp$ + END IF + + returnAction = thisReturnAction 'actually send command + ELSE + returnAction = -1 'redraw and carry on + END IF + selectVar = y + EXIT FUNCTION + ELSE + result = idemessagebox(dlgTitle$, "Variable is out of scope.", "#OK") + _KEYCLEAR + END IF + ELSE + result = idemessagebox(dlgTitle$, "Select a variable first.", "#OK") + _KEYCLEAR + END IF + focus = filterBox + _CONTINUE + END IF + + IF K$ = CHR$(27) OR (IdeDebugMode = 0 AND focus = 5 AND info <> 0) OR _ + (IdeDebugMode > 0 AND focus = 7 AND info <> 0) THEN + generateVariableWatchList: + variableWatchList$ = "" + backupVariableWatchList$ = "" 'used in case this program is edited in the same session + backupTypeDefinitions$ = typeDefinitions$ 'store current TYPE definitions for later comparison + longestVarName = 0 + nextvWatchDataSlot = 0 + totalVisibleVariables = 0 + totalSelectedVariables = 0 + msg$ = "" + FOR y = 1 TO totalVariablesCreated + IF selectVar = -1 THEN + IF msg$ = "" THEN + msg$ = "Analyzing Variable List..." + idepar p, 60, 1, msg$ + END IF + + idedrawpar p + COLOR 0, 7 + c = totalVariablesCreated + n = y + + maxprogresswidth = 52 'arbitrary + percentage = INT(n / c * 100) + percentagechars = INT(maxprogresswidth * n / c) + percentageMsg$ = STRING$(percentagechars, 219) + STRING$(maxprogresswidth - percentagechars, 176) + STR$(percentage) + "%" + _PRINTSTRING (p.x + (p.w \ 2 - LEN(percentageMsg$) \ 2) + 1, p.y + 1), percentageMsg$ + + PCOPY 1, 0 + END IF + + IF usedVariableList(y).includedLine THEN _CONTINUE 'don't deal with variables in $INCLUDEs + + totalSelectedVariables = totalSelectedVariables + 1 + backupVariableWatchList$ = backupVariableWatchList$ + MKL$(-1) + backupVariableWatchList$ = backupVariableWatchList$ + MKL$(LEN(usedVariableList(y).cname)) + usedVariableList(y).cname + backupVariableWatchList$ = backupVariableWatchList$ + MKL$(totalSelectedVariables) + WHILE totalSelectedVariables > UBOUND(backupUsedVariableList) + REDIM _PRESERVE backupUsedVariableList(totalSelectedVariables + 999) AS usedVarList + WEND + backupUsedVariableList(totalSelectedVariables) = usedVariableList(y) + + usedVariableList(y).storage = "" + IF usedVariableList(y).watch THEN + thisLen = LEN(usedVariableList(y).name) + IF usedVariableList(y).isarray THEN + thisLen = thisLen + LEN(usedVariableList(y).watchRange) + END IF + + IF LEN(usedVariableList(y).elements) THEN + thisLen = thisLen + CVL(LEFT$(usedVariableList(y).elements, 4)) + END IF + + IF thisLen > longestVarName THEN + longestVarName = thisLen + IF variableWatchList$ = "" THEN variableWatchList$ = SPACE$(8) + MID$(variableWatchList$, 1, 4) = MKL$(longestVarName) + END IF + + IF usedVariableList(y).isarray <> 0 AND LEN(usedVariableList(y).elements) = 0 THEN + 'array of native data type + temp$ = GetBytes$("", 0) 'reset buffer + temp$ = expandArray$(usedVariableList(y).indexes, "") + DO + temp2$ = GetBytes$(temp$, 4) + IF LEN(temp2$) <> 4 THEN EXIT DO 'no more items + length = CVL(temp2$) + temp2$ = MKL$(length) + GetBytes$(temp$, length) + nextvWatchDataSlot = nextvWatchDataSlot + 1 + WHILE nextvWatchDataSlot > UBOUND(vWatchReceivedData$) + REDIM _PRESERVE vWatchReceivedData$(1 TO UBOUND(vWatchReceivedData$) + 999) + WEND + variableWatchList$ = variableWatchList$ + MKL$(-1) + MKL$(y) + temp2$ + MKL$(0) + MKL$(0) + MKL$(nextvWatchDataSlot) + totalVisibleVariables = totalVisibleVariables + 1 + usedVariableList(y).storage = usedVariableList(y).storage + MKL$(nextvWatchDataSlot) + vWatchReceivedData$(nextvWatchDataSlot) = "" + LOOP + ELSEIF usedVariableList(y).isarray <> 0 AND LEN(usedVariableList(y).elements) > 0 THEN + 'array of UDT + temp$ = GetBytes$("", 0) + temp$ = expandArray$(usedVariableList(y).indexes, "") + DO + temp2$ = GetBytes$(temp$, 4) + IF LEN(temp2$) <> 4 THEN EXIT DO 'no more items + length = CVL(temp2$) + temp2$ = MKL$(length) + GetBytes$(temp$, length) + + thisTempElement$ = MKL$(-1) + MKL$(y) + temp2$ + thisElementList$ = MID$(usedVariableList(y).elements, 5) + i = 0 + DO + i = i + 1 + temp2$ = getelement$(thisElementList$, i) + IF temp2$ = "" THEN EXIT DO + + nextvWatchDataSlot = nextvWatchDataSlot + 1 + WHILE nextvWatchDataSlot > UBOUND(vWatchReceivedData$) + REDIM _PRESERVE vWatchReceivedData$(1 TO UBOUND(vWatchReceivedData$) + 999) + WEND + tempElementOffset& = CVL(MID$(usedVariableList(y).elementOffset, i * 4 - 3, 4)) + variableWatchList$ = variableWatchList$ + thisTempElement$ + MKL$(i) + MKL$(tempElementOffset&) + MKL$(nextvWatchDataSlot) + totalVisibleVariables = totalVisibleVariables + 1 + usedVariableList(y).storage = usedVariableList(y).storage + MKL$(nextvWatchDataSlot) + vWatchReceivedData$(nextvWatchDataSlot) = "" + LOOP + LOOP + ELSEIF usedVariableList(y).isarray = 0 AND LEN(usedVariableList(y).elements) > 0 THEN + 'single variable of UDT + thisTempElement$ = MKL$(-1) + MKL$(y) + MKL$(0) + thisElementList$ = MID$(usedVariableList(y).elements, 5) + i = 0 + DO + i = i + 1 + temp2$ = getelement$(thisElementList$, i) + IF temp2$ = "" THEN EXIT DO + + nextvWatchDataSlot = nextvWatchDataSlot + 1 + WHILE nextvWatchDataSlot > UBOUND(vWatchReceivedData$) + REDIM _PRESERVE vWatchReceivedData$(1 TO UBOUND(vWatchReceivedData$) + 999) + WEND + tempElementOffset& = CVL(MID$(usedVariableList(y).elementOffset, i * 4 - 3, 4)) + variableWatchList$ = variableWatchList$ + thisTempElement$ + MKL$(i) + MKL$(tempElementOffset&) + MKL$(nextvWatchDataSlot) + totalVisibleVariables = totalVisibleVariables + 1 + usedVariableList(y).storage = usedVariableList(y).storage + MKL$(nextvWatchDataSlot) + vWatchReceivedData$(nextvWatchDataSlot) = "" + LOOP + ELSEIF usedVariableList(y).isarray = 0 AND LEN(usedVariableList(y).elements) = 0 THEN + 'single variable + nextvWatchDataSlot = nextvWatchDataSlot + 1 + WHILE nextvWatchDataSlot > UBOUND(vWatchReceivedData$) + REDIM _PRESERVE vWatchReceivedData$(1 TO UBOUND(vWatchReceivedData$) + 999) + WEND + variableWatchList$ = variableWatchList$ + MKL$(-1) + MKL$(y) + MKL$(0) + MKL$(0) + MKL$(0) + MKL$(nextvWatchDataSlot) + totalVisibleVariables = totalVisibleVariables + 1 + usedVariableList(y).storage = MKL$(nextvWatchDataSlot) + END IF + END IF + NEXT + IF LEN(variableWatchList$) THEN MID$(variableWatchList$, 5, 4) = MKL$(totalVisibleVariables) + ClearMouse + EXIT FUNCTION + END IF + + IF mCLICK AND focus = 2 THEN 'list click + IF timeElapsedSince(lastClick!) < .3 AND clickedItem = o(varListBox).sel THEN + IF doubleClickThreshold > 0 AND mX >= p.x + doubleClickThreshold AND IdeDebugMode > 0 THEN + focus = 5 + GOTO sendValue + ELSEIF (doubleClickThreshold > 0 AND mX < p.x + doubleClickThreshold - 1 AND IdeDebugMode > 0) OR _ + IdeDebugMode = 0 THEN + GOTO toggleWatch + END IF + ELSEIF clickedItem = o(varListBox).sel THEN + IF doubleClickThreshold > 0 AND mX = p.x + doubleClickThreshold - 1 AND IdeDebugMode > 0 THEN + y = ABS(o(varListBox).sel) + IF INSTR(usedVariableList(varDlgList(y).index).varType, "STRING *") = 0 AND usedVariableList(varDlgList(y).index).varType <> "STRING" THEN + usedVariableList(varDlgList(y).index).displayFormat = usedVariableList(varDlgList(y).index).displayFormat + 1 + IF usedVariableList(varDlgList(y).index).displayFormat > 3 THEN + usedVariableList(varDlgList(y).index).displayFormat = 0 + END IF + GOSUB buildList + idetxt(o(varListBox).txt) = l$ + END IF + END IF + END IF + lastClick! = TIMER + IF o(varListBox).sel > 0 THEN clickedItem = o(varListBox).sel + _CONTINUE + END IF + + IF (K$ = CHR$(13) AND focus = 2) THEN + K$ = "" + toggleWatch: + y = ABS(o(varListBox).sel) + + IF y >= 1 AND y <= totalVisibleVariables THEN + o(varListBox).sel = y + quickDlgUpdate = -1: GOSUB dlgUpdate + y = o(varListBox).sel 'reset y, as it may get messed up in the GOSUB above + IF usedVariableList(varDlgList(y).index).watch <> 0 AND usedVariableList(varDlgList(y).index).isarray THEN + GOTO setArrayRange + END IF + usedVariableList(varDlgList(y).index).watch = NOT usedVariableList(varDlgList(y).index).watch + IF usedVariableList(varDlgList(y).index).watch THEN + IF usedVariableList(varDlgList(y).index).isarray THEN + setArrayRange: + temp$ = "" + IF LEN(usedVariableList(varDlgList(y).index).indexes) THEN + temp$ = usedVariableList(varDlgList(y).index).watchRange + END IF + setArrayRange2: + v$ = ideinputbox$("Watch Array", "#Indexes" + tempPrompt$, temp$, "01234567890,-; TOto", 45, 0, ok) + IF ok THEN + IF LEN(v$) > 0 THEN + v$ = UCASE$(v$) + v$ = StrReplace$(v$, " TO ", "-") + WHILE RIGHT$(v$, 1) = ",": v$ = LEFT$(v$, LEN(v$) - 1): WEND + temp$ = lineformat$(v$) + i = countelements(temp$) + IF i <> ABS(ids(usedVariableList(varDlgList(y).index).id).arrayelements) THEN + result = idemessagebox("Error", "Array has" + STR$(ABS(ids(usedVariableList(varDlgList(y).index).id).arrayelements)) + " dimension(s).", "#OK") + temp$ = _TRIM$(v$) + GOTO setArrayRange2 + END IF + usedVariableList(varDlgList(y).index).indexes = "" + usedVariableList(varDlgList(y).index).watchRange = "" + WHILE i + foundComma = INSTR(v$, ",") + IF foundComma THEN + temp$ = LEFT$(v$, foundComma - 1) + v$ = MID$(v$, foundComma + 1) + ELSE + temp$ = v$ + END IF + temp$ = parseRange$(temp$) + usedVariableList(varDlgList(y).index).indexes = usedVariableList(varDlgList(y).index).indexes + MKL$(LEN(temp$)) + temp$ + temp$ = formatRange$(temp$) + usedVariableList(varDlgList(y).index).watchRange = usedVariableList(varDlgList(y).index).watchRange + temp$ + i = i - 1 + IF i THEN usedVariableList(varDlgList(y).index).watchRange = usedVariableList(varDlgList(y).index).watchRange + "," + WEND + ELSE + usedVariableList(varDlgList(y).index).watch = 0 + GOSUB buildList + idetxt(o(varListBox).txt) = l$ + GOTO unWatch + END IF + GOSUB buildList + idetxt(o(varListBox).txt) = l$ + ELSE + usedVariableList(varDlgList(y).index).watch = 0 + GOTO unWatch + END IF + + END IF + + varType$ = usedVariableList(varDlgList(y).index).varType + IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" + IF INSTR(varType$, "BIT *") THEN varType$ = "_BIT" + IF INSTR(nativeDataTypes$, varType$) = 0 THEN + 'It's a UDT + elementIndexes$ = "" + thisUDT = 0 + E = 0 + FOR i = 1 TO lasttype + IF RTRIM$(udtxcname(i)) = varType$ THEN thisUDT = i: EXIT FOR + NEXT + + i = 0 + DO + IF E = 0 THEN E = udtxnext(thisUDT) ELSE E = udtenext(E) + IF E = 0 THEN EXIT DO + elementIndexes$ = elementIndexes$ + MKL$(E) + i = i + 1 + LOOP + PCOPY 0, 4 + v$ = ideelementwatchbox$(usedVariableList(varDlgList(y).index).name + ".", elementIndexes$, 0, 0, ok) + PCOPY 2, 0 + PCOPY 2, 1 + SCREEN , , 1, 0 + IF ok THEN + longestElementName = 0 + usedVariableList(varDlgList(y).index).elements = "" + usedVariableList(varDlgList(y).index).elementTypes = "" + usedVariableList(varDlgList(y).index).elementOffset = "" + getid usedVariableList(varDlgList(y).index).id + IF id.t = 0 THEN + typ = id.arraytype AND 511 + IF id.arraytype AND ISINCONVENTIONALMEMORY THEN + typ = typ - ISINCONVENTIONALMEMORY + END IF + + usedVariableList(varDlgList(y).index).arrayElementSize = udtxsize(typ) + IF udtxbytealign(typ) THEN + IF usedVariableList(varDlgList(y).index).arrayElementSize MOD 8 THEN usedVariableList(varDlgList(y).index).arrayElementSize = usedVariableList(varDlgList(y).index).arrayElementSize + (8 - (usedVariableList(varDlgList(y).index).arrayElementSize MOD 8)) 'round up to nearest byte + usedVariableList(varDlgList(y).index).arrayElementSize = usedVariableList(varDlgList(y).index).arrayElementSize \ 8 + END IF + ELSE + usedVariableList(varDlgList(y).index).arrayElementSize = 0 + END IF + + temp$ = v$ + i = 0 + DO + i = i + 1 + v$ = getelement$(temp$, i) + IF LEN(v$) = 0 THEN EXIT DO + + '------- + IF LEN(v$) > longestElementName THEN longestElementName = LEN(v$) + IF LEN(usedVariableList(varDlgList(y).index).elements) = 0 THEN + usedVariableList(varDlgList(y).index).elements = MKL$(longestElementName) + ELSE + MID$(usedVariableList(varDlgList(y).index).elements, 1, 4) = MKL$(longestElementName) + END IF + usedVariableList(varDlgList(y).index).elements = usedVariableList(varDlgList(y).index).elements + v$ + sp + v$ = lineformat$(UCASE$(v$)) + Error_Happened = 0 + result$ = udtreference$("", v$, typ) + IF Error_Happened THEN + 'shouldn't ever happen + Error_Happened = 0 + result = idemessagebox("Error", Error_Message, "#OK") + usedVariableList(varDlgList(y).index).watch = 0 + usedVariableList(varDlgList(y).index).elements = "" + usedVariableList(varDlgList(y).index).elementTypes = "" + usedVariableList(varDlgList(y).index).elementOffset = "" + GOTO unWatch + ELSE + typ = typ - ISUDT + typ = typ - ISREFERENCE + IF typ AND ISINCONVENTIONALMEMORY THEN typ = typ - ISINCONVENTIONALMEMORY + SELECT CASE typ + CASE BYTETYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_BYTE" + sp + CASE UBYTETYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_UNSIGNED _BYTE" + sp + CASE INTEGERTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "INTEGER" + sp + CASE UINTEGERTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_UNSIGNED INTEGER" + sp + CASE LONGTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "LONG" + sp + CASE ULONGTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_UNSIGNED LONG" + sp + CASE INTEGER64TYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_INTEGER64" + sp + CASE UINTEGER64TYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_UNSIGNED _INTEGER64" + sp + CASE SINGLETYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "SINGLE" + sp + CASE DOUBLETYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "DOUBLE" + sp + CASE FLOATTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_FLOAT" + sp + CASE OFFSETTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_OFFSET" + sp + CASE UOFFSETTYPE + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "_UNSIGNED _OFFSET" + sp + CASE ELSE + IF typ AND ISSTRING THEN + IF (typ AND ISFIXEDLENGTH) = 0 THEN + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "STRING" + sp + ELSE + 'E contains the UDT element index at this point + usedVariableList(varDlgList(y).index).elementTypes = usedVariableList(varDlgList(y).index).elementTypes + "STRING *" + STR$(udtetypesize(E)) + sp + END IF + ELSE + 'shouldn't ever happen + usedVariableList(varDlgList(y).index).watch = 0 + usedVariableList(varDlgList(y).index).elements = "" + usedVariableList(varDlgList(y).index).elementTypes = "" + usedVariableList(varDlgList(y).index).elementOffset = "" + result = idemessagebox("Error", "Cannot add full UDT to Watch List", "#OK") + GOTO unWatch + END IF + END SELECT + usedVariableList(varDlgList(y).index).elementOffset = usedVariableList(varDlgList(y).index).elementOffset + MKL$(VAL(MID$(result$, _INSTRREV(result$, sp3) + 1))) + END IF + '------- + LOOP + 'remove trailing sp: + usedVariableList(varDlgList(y).index).elements = LEFT$(usedVariableList(varDlgList(y).index).elements, LEN(usedVariableList(varDlgList(y).index).elements) - 1) + usedVariableList(varDlgList(y).index).elementTypes = LEFT$(usedVariableList(varDlgList(y).index).elementTypes, LEN(usedVariableList(varDlgList(y).index).elementTypes) - 1) + ELSE + usedVariableList(varDlgList(y).index).watch = 0 + GOTO unWatch + END IF + END IF + + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = variableNameColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = typeColumnColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = selectedBG + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 43 '+ + ELSE + unWatch: + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = 16 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = 2 + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = 17 + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 32 'space + END IF + END IF + 'focus = filterBox + _CONTINUE + END IF + + IF focus = 2 AND (UCASE$(K$) = "C" AND KCTRL <> 0) THEN + GOSUB copyList + _CONTINUE + END IF + + IF focus = varListBox AND (K$ >= " " AND K$ <= CHR$(126)) THEN + focus = filterBox + PrevFocus = focus + idetxt(o(focus).txt) = K$ + o(focus).v1 = LEN(idetxt(o(focus).txt)) + o(focus).issel = 0 + searchTerm$ = "" + _CONTINUE + END IF + + IF focus = filterBox AND (KB = 18432 OR KB = 20480) THEN 'up/down arrow + focus = varListBox + _CONTINUE + END IF + + IF focus = filterBox AND idetxt(o(filterBox).txt) <> searchTerm$ THEN + filter$ = idetxt(o(filterBox).txt) + searchTerm$ = UCASE$(filter$) + 'rebuild filtered list + GOSUB buildList + idetxt(o(varListBox).txt) = l$ + o(varListBox).sel = 0 'reset visible list to the first item + IF LEN(searchTerm$) THEN temp$ = ", filtered" ELSE temp$ = "" + idetxt(p.nam) = "Add Watch - Variable List (" + LTRIM$(STR$(totalVisibleVariables)) + temp$ + ")" + END IF + + dlgLoop: + 'end of custom controls + mousedown = 0 + mouseup = 0 + LOOP + + idevariablewatchbox$ = "" + EXIT FUNCTION + + copyList: + temp$ = "" + IF ideprogname = "" THEN + ProposedTitle$ = FindProposedTitle$ + IF ProposedTitle$ = "" THEN + temp$ = "QB64 - Variable List Report: untitled" + tempfolderindexstr$ + ".bas" + CHR$(10) + ELSE + temp$ = "QB64 - Variable List Report: " + ProposedTitle$ + ".bas" + CHR$(10) + END IF + ELSE + temp$ = "QB64 - Variable List Report: " + ideprogname$ + CHR$(10) + END IF + + FOR x = 1 TO totalVariablesCreated + IF usedVariableList(x).includedLine THEN _CONTINUE 'don't add variables in $INCLUDEs + + IF LEN(searchTerm$) THEN + thisScope$ = usedVariableList(x).subfunc + IF thisScope$ = "" THEN thisScope$ = mainmodule$ + item$ = usedVariableList(x).name + usedVariableList(x).varType + thisScope$ + IF multiSearch(item$, searchTerm$) = 0 THEN + _CONTINUE 'skip variable if no field matches the search + END IF + END IF + + temp$ = temp$ + usedVariableList(x).name + " " + temp$ = temp$ + SPACE$(maxVarLen - LEN(usedVariableList(x).name)) + temp$ = temp$ + " " + usedVariableList(x).varType + SPACE$(maxTypeLen - LEN(usedVariableList(x).varType)) + + l3$ = SPACE$(2) + IF LEN(usedVariableList(x).subfunc) > 0 THEN + l3$ = l3$ + usedVariableList(x).subfunc + SPACE$(maxModuleNameLen - LEN(usedVariableList(x).subfunc)) + CHR$(10) + ELSE + l3$ = l3$ + mainmodule$ + SPACE$(maxModuleNameLen - LEN(mainmodule$)) + CHR$(10) + END IF + + temp$ = temp$ + l3$ + NEXT + _CLIPBOARD$ = temp$ + RETURN + + buildList: + maxVarLen = LEN("Variable") + FOR x = 1 TO totalVariablesCreated + IF usedVariableList(x).includedLine THEN _CONTINUE 'don't deal with variables in $INCLUDEs + thisLen = LEN(usedVariableList(x).name) + 3 'extra room for the eventual bullet + IF LEN(usedVariableList(x).watchRange) > 0 THEN + thisLen = thisLen + LEN(usedVariableList(x).watchRange) + END IF + IF thisLen > maxVarLen THEN maxVarLen = thisLen + NEXT + + IF firstRun THEN + msg$ = "Building Variable List..." + IF selectVar = -1 THEN msg$ = "Analyzing Variable List..." + idepar p, 60, 1, msg$ + END IF + + l$ = "" + totalVisibleVariables = 0 + FOR x = 1 TO totalVariablesCreated + + IF firstRun THEN + idedrawpar p + COLOR 0, 7 + c = totalVariablesCreated + n = x + + maxprogresswidth = 52 'arbitrary + percentage = INT(n / c * 100) + percentagechars = INT(maxprogresswidth * n / c) + percentageMsg$ = STRING$(percentagechars, 219) + STRING$(maxprogresswidth - percentagechars, 176) + STR$(percentage) + "%" + _PRINTSTRING (p.x + (p.w \ 2 - LEN(percentageMsg$) \ 2) + 1, p.y + 1), percentageMsg$ + + PCOPY 1, 0 + END IF + + IF usedVariableList(x).includedLine THEN _CONTINUE 'don't add variables in $INCLUDEs + + IF LEN(searchTerm$) THEN + thisScope$ = usedVariableList(x).subfunc + IF thisScope$ = "" THEN thisScope$ = mainmodule$ + item$ = usedVariableList(x).name + usedVariableList(x).varType + thisScope$ + IF IdeDebugMode > 0 AND usedVariableList(x).isarray = 0 AND LEN(usedVariableList(x).elements) = 0 AND LEN(usedVariableList(x).storage) = 4 THEN + 'single var + item$ = item$ + StrReplace$(vWatchReceivedData$(CVL(usedVariableList(x).storage)), CHR$(0), " ") + END IF + IF multiSearch(item$, searchTerm$) = 0 THEN + _CONTINUE 'skip variable if no field matches the search + END IF + END IF + + totalVisibleVariables = totalVisibleVariables + 1 + WHILE totalVisibleVariables > UBOUND(varDlgList) + REDIM _PRESERVE varDlgList(1 TO totalVariablesCreated + 100) AS varDlgList + WEND + + l$ = l$ + CHR$(17) + varDlgList(totalVisibleVariables).bgColorFlag = LEN(l$) + 1 + IF usedVariableList(x).watch THEN + l$ = l$ + CHR$(selectedBG) + ELSE + l$ = l$ + CHR$(17) + END IF + + l$ = l$ + CHR$(16) + varDlgList(totalVisibleVariables).index = x + IF itemToSelect > 0 AND x = itemToSelect THEN itemToSelect = 0: o(varListBox).sel = totalVisibleVariables + varDlgList(totalVisibleVariables).colorFlag = LEN(l$) + 1 + varDlgList(totalVisibleVariables).indicator = LEN(l$) + 2 + IF usedVariableList(x).watch THEN + l$ = l$ + CHR$(variableNameColor) + "+" + ELSE + l$ = l$ + CHR$(16) + " " + END IF + + thisName$ = usedVariableList(x).name + IF LEN(usedVariableList(x).watchRange) THEN + thisName$ = LEFT$(thisName$, LEN(thisName$) - 1) + usedVariableList(x).watchRange + ")" + END IF + + 'find existing watchpoint for this variable/index/element + temp$ = MKL$(x) + i = 0 + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + DO WHILE i + IF MID$(watchpointList$, i + 8, LEN(temp$)) = temp$ THEN EXIT DO + i = INSTR(i + 1, watchpointList$, MKL$(-1)) + LOOP + + IF i > 0 THEN + thisName$ = thisName$ + CHR$(16) + CHR$(4) + CHR$(7) 'red bullet to indicate watchpoint + ELSE + thisName$ = thisName$ + CHR$(16) + CHR$(16) + " " + END IF + + text$ = thisName$ + CHR$(16) + varDlgList(totalVisibleVariables).colorFlag2 = LEN(l$) + LEN(text$) + 1 + IF usedVariableList(x).watch THEN + text$ = text$ + CHR$(typeColumnColor) + " " + ELSE + text$ = text$ + CHR$(2) + " " + END IF + text$ = text$ + SPACE$(maxVarLen - LEN(thisName$)) + text$ = text$ + " " + usedVariableList(x).varType + SPACE$(maxTypeLen - LEN(usedVariableList(x).varType)) + + l3$ = SPACE$(2) + IF LEN(usedVariableList(x).subfunc) > 0 THEN + l3$ = l3$ + usedVariableList(x).subfunc + SPACE$(maxModuleNameLen - LEN(usedVariableList(x).subfunc)) + CHR$(16) + CHR$(16) + ELSE + l3$ = l3$ + mainmodule$ + SPACE$(maxModuleNameLen - LEN(mainmodule$)) + CHR$(16) + CHR$(16) + END IF + + l$ = l$ + text$ + l3$ + IF x = 1 THEN doubleClickThreshold = LEN(l$) - 3 + + IF IdeDebugMode > 0 THEN + IF usedVariableList(x).subfunc = currentScope$ OR usedVariableList(x).subfunc = "" THEN + IF usedVariableList(x).watch THEN + thisIsAString = (INSTR(usedVariableList(x).varType, "STRING *") > 0 OR usedVariableList(x).varType = "STRING") + IF usedVariableList(x).isarray <> 0 AND LEN(usedVariableList(x).elements) = 0 THEN + 'array of native data type + temp$ = usedVariableList(x).storage + IF LEN(temp$) THEN l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + "{" + DO WHILE LEN(temp$) + storageSlot& = CVL(LEFT$(temp$, 4)) + temp$ = MID$(temp$, 5) + tempValue$ = StrReplace$(vWatchReceivedData$(storageSlot&), CHR$(0), " ") + IF thisIsAString THEN + l$ = l$ + CHR$(34) + ELSE + SELECT CASE usedVariableList(x).displayFormat + 'displayFormat: 0=DEC;1=HEX;2=BIN;3=OCT + CASE 1: tempValue$ = "&H" + HEX$(VAL(tempValue$)) + CASE 2: tempValue$ = "&B" + _BIN$(VAL(tempValue$)) + CASE 3: tempValue$ = "&O" + OCT$(VAL(tempValue$)) + END SELECT + END IF + l$ = l$ + tempValue$ + IF thisIsAString THEN l$ = l$ + CHR$(34) + IF LEN(temp$) THEN l$ = l$ + "," + LOOP + IF LEN(usedVariableList(x).storage) THEN l$ = l$ + "}" + ELSEIF usedVariableList(x).isarray = 0 AND LEN(usedVariableList(x).elements) = 0 THEN + 'simple variable + IF LEN(usedVariableList(x).storage) = 4 THEN + storageSlot& = CVL(usedVariableList(x).storage) + l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + tempValue$ = StrReplace$(vWatchReceivedData$(storageSlot&), CHR$(0), " ") + IF thisIsAString THEN + l$ = l$ + CHR$(34) + ELSE + SELECT CASE usedVariableList(x).displayFormat + 'displayFormat: 0=DEC;1=HEX;2=BIN;3=OCT + CASE 1: tempValue$ = "&H" + HEX$(VAL(tempValue$)) + CASE 2: tempValue$ = "&B" + _BIN$(VAL(tempValue$)) + CASE 3: tempValue$ = "&O" + OCT$(VAL(tempValue$)) + END SELECT + END IF + l$ = l$ + tempValue$ + IF thisIsAString THEN l$ = l$ + CHR$(34) + END IF + ELSE + l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + l$ = l$ + "" + END IF + END IF + ELSE + l$ = l$ + " " + END IF + END IF + IF x < totalVariablesCreated THEN l$ = l$ + sep + NEXT + itemToSelect = 0 + RETURN +END FUNCTION + +FUNCTION ideelementwatchbox$(currentPath$, elementIndexes$, level, singleElementSelection, ok) + + '-------- generic dialog box header -------- + PCOPY 4, 0 + PCOPY 0, 1 + SCREEN , , 1, 0 + focus = 1 + DIM p AS idedbptype + DIM o(1 TO 100) AS idedbotype + DIM sep AS STRING * 1 + sep = CHR$(0) + '-------- end of generic dialog box header -------- + + '-------- init -------- + + STATIC returnList$ + IF level = 0 THEN returnList$ = "" + + ok = 0 + variableNameColor = 3 + typeColumnColor = 15 + selectedBG = 2 + + totalElements = LEN(elementIndexes$) \ 4 + REDIM varDlgList(1 TO totalElements) AS varDlgList + dialogHeight = (totalElements) + 4 + i = 0 + IF dialogHeight > idewy + idesubwindow - 6 THEN + dialogHeight = idewy + idesubwindow - 6 + END IF + IF dialogHeight < 5 THEN dialogHeight = 5 + + + GOSUB buildList + dialogWidth = 6 + longestName + maxTypeLen + IF dialogWidth < 40 THEN dialogWidth = 40 + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + + title$ = "Add UDT Elements" + IF singleElementSelection THEN title$ = "Choose UDT Element" + idepar p, dialogWidth, dialogHeight, title$ + + i = i + 1: varListBox = i + o(varListBox).typ = 2 + o(varListBox).y = 2 + o(varListBox).w = dialogWidth - 4: o(i).h = dialogHeight - 4 + IF o(varListBox).txt = 0 THEN o(varListBox).txt = idenewtxt(l$) ELSE idetxt(o(varListBox).txt) = l$ + + i = i + 1: buttonSet = i + o(buttonSet).typ = 3 + o(buttonSet).y = dialogHeight + IF o(buttonSet).txt = 0 THEN + IF singleElementSelection THEN + o(buttonSet).txt = idenewtxt("#OK" + sep + "#Cancel" + sep + "#Up One Level") + ELSE + o(buttonSet).txt = idenewtxt("#Add All" + sep + "#Remove All" + sep + "#Close") + END IF + END IF + + '-------- end of init -------- + + '-------- generic init -------- + FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects + '-------- end of generic init -------- + + DO 'main loop + + '-------- generic display dialog box & objects -------- + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + 'prepare object + o(i).foc = focus - f 'focus offset + o(i).cx = 0: o(i).cy = 0 + idedrawobj o(i), f 'display object + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + END IF + NEXT i + lastfocus = f - 1 + '-------- end of generic display dialog box & objects -------- + + '-------- custom display changes -------- + COLOR 0, 7 + temp$ = currentPath$ + IF LEN(temp$) > p.w - 4 THEN temp$ = STRING$(3, 250) + RIGHT$(temp$, p.w - 7) + _PRINTSTRING (p.x + 2, p.y + 1), temp$ + + '-------- end of custom display changes -------- + + 'update visual page and cursor position + PCOPY 1, 0 + IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 + + '-------- read input -------- + change = 0 + DO + GetInput + IF mWHEEL THEN change = 1 + IF KB THEN change = 1 + IF mCLICK THEN mousedown = 1: change = 1 + IF mRELEASE THEN mouseup = 1: change = 1 + IF mB THEN change = 1 + alt = KALT: IF alt <> oldalt THEN change = 1 + oldalt = alt + _LIMIT 100 + LOOP UNTIL change + IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 + 'convert "alt+letter" scancode to letter's ASCII character + altletter$ = "" + IF alt AND NOT KCTRL THEN + IF LEN(K$) = 1 THEN + k = ASC(UCASE$(K$)) + IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + END IF + END IF + SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 + '-------- end of read input -------- + + '-------- generic input response -------- + info = 0 + IF K$ = "" THEN K$ = CHR$(255) + IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 + IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" + IF focus < 1 THEN focus = lastfocus + IF focus > lastfocus THEN focus = 1 + f = 1 + FOR i = 1 TO 100 + t = o(i).typ + IF t THEN + focusoffset = focus - f + ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL + END IF + NEXT + '-------- end of generic input response -------- + IF (focus = 2 AND info <> 0) THEN + IF singleElementSelection THEN + 'ok + y = ABS(o(varListBox).sel) + IF y >= 1 AND y <= totalElements THEN + toggleAndReturn = -1: GOSUB toggleWatch: toggleAndReturn = 0 + GOTO buildListToReturn + END IF + ELSE + 'add all + FOR y = 1 TO totalElements + varType$ = varDlgList(y).varType + IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" + IF INSTR(varType$, "BIT *") THEN varType$ = "_BIT" + IF INSTR(nativeDataTypes$, varType$) > 0 THEN + varDlgList(y).selected = -1 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = variableNameColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = typeColumnColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = selectedBG + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 43 '+ + END IF + NEXT + END IF + _CONTINUE + END IF + + IF (focus = 3 AND info <> 0) THEN + IF singleElementSelection THEN + 'cancel + ok = -3 + EXIT FUNCTION + ELSE + 'remove all + FOR y = 1 TO totalElements + varDlgList(y).selected = 0 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = 16 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = 2 + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = 17 + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 32 'space + NEXT + END IF + _CONTINUE + END IF + + IF K$ = CHR$(27) OR (focus = 4 AND info <> 0) THEN + IF singleElementSelection THEN + ok = -4 + EXIT FUNCTION + ELSE + 'build element list to return + buildListToReturn: + FOR y = 1 TO totalElements + IF varDlgList(y).selected THEN + varType$ = varDlgList(y).varType + IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" + IF INSTR(varType$, "BIT *") THEN varType$ = "_BIT" + IF INSTR(nativeDataTypes$, varType$) > 0 THEN + 'non-native data types will have already been added to the return list + thisName$ = RTRIM$(udtecname(varDlgList(y).index)) + IF LEN(returnList$) THEN returnList$ = returnList$ + sp + returnList$ = returnList$ + currentPath$ + thisName$ + END IF + END IF + NEXT + + IF singleElementSelection THEN + IF LEN(returnList$) > 0 THEN + ok = -2 'different return so selection can be done with + ELSE + ok = 0 + END IF + ELSE + ok = LEN(returnList$) > 0 + END IF + IF level = 0 THEN returnList$ = StrReplace$(returnList$, currentPath$, ".") + ideelementwatchbox$ = returnList$ + END IF + + ClearMouse + EXIT FUNCTION + END IF + + IF mCLICK AND focus = 1 THEN 'list click + IF timeElapsedSince(lastClick!) < .3 AND clickedItem = o(varListBox).sel THEN + IF singleElementSelection = 0 THEN + GOTO toggleWatch + ELSE + y = ABS(o(varListBox).sel) + IF y >= 1 AND y <= totalElements THEN + toggleAndReturn = -1: GOSUB toggleWatch: toggleAndReturn = 0 + y = ABS(o(varListBox).sel) + GOTO buildListToReturn + END IF + END IF + END IF + lastClick! = TIMER + IF o(varListBox).sel > 0 THEN clickedItem = o(varListBox).sel + _CONTINUE + END IF + + IF (K$ = CHR$(13) AND focus = 1) THEN + K$ = "" + toggleWatch: + y = ABS(o(varListBox).sel) + + IF y >= 1 AND y <= totalElements THEN + IF singleElementSelection THEN + varDlgList(y).selected = -1 + ELSE + varDlgList(y).selected = NOT varDlgList(y).selected + END IF + IF varDlgList(y).selected THEN + IF singleElementSelection THEN + FOR i = 1 TO totalElements + IF i = y THEN _CONTINUE + varDlgList(i).selected = 0 + ASC(idetxt(o(varListBox).txt), varDlgList(i).colorFlag) = 16 + ASC(idetxt(o(varListBox).txt), varDlgList(i).colorFlag2) = 2 + ASC(idetxt(o(varListBox).txt), varDlgList(i).bgColorFlag) = 17 + ASC(idetxt(o(varListBox).txt), varDlgList(i).indicator) = 32 'space + NEXT + END IF + + varType$ = varDlgList(y).varType + IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" + IF INSTR(varType$, "BIT *") THEN varType$ = "_BIT" + IF INSTR(nativeDataTypes$, varType$) = 0 THEN + 'It's a UDT + elementIndexes2$ = "" + thisUDT = 0 + E = 0 + FOR i = 1 TO lasttype + IF RTRIM$(udtxcname(i)) = varType$ THEN thisUDT = i: EXIT FOR + NEXT + + i = 0 + DO + IF E = 0 THEN E = udtxnext(thisUDT) ELSE E = udtenext(E) + IF E = 0 THEN EXIT DO + elementIndexes2$ = elementIndexes2$ + MKL$(E) + i = i + 1 + LOOP + v$ = ideelementwatchbox$(currentPath$ + RTRIM$(udtecname(varDlgList(y).index)) + ".", elementIndexes2$, level + 1, singleElementSelection, ok2) + ok = ok2 + IF ok2 = -2 THEN + 'single selection + GOTO buildListToReturn + ELSEIF ok2 = -3 THEN + 'single selection canceled + EXIT FUNCTION + ELSEIF ok2 = -4 THEN + i = y + varDlgList(i).selected = 0 + ASC(idetxt(o(varListBox).txt), varDlgList(i).colorFlag) = 16 + ASC(idetxt(o(varListBox).txt), varDlgList(i).colorFlag2) = 2 + ASC(idetxt(o(varListBox).txt), varDlgList(i).bgColorFlag) = 17 + ASC(idetxt(o(varListBox).txt), varDlgList(i).indicator) = 32 'space + _CONTINUE + END IF + END IF + + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = variableNameColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = typeColumnColor + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = selectedBG + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 43 '+ + ELSE + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag) = 16 + ASC(idetxt(o(varListBox).txt), varDlgList(y).colorFlag2) = 2 + ASC(idetxt(o(varListBox).txt), varDlgList(y).bgColorFlag) = 17 + ASC(idetxt(o(varListBox).txt), varDlgList(y).indicator) = 32 'space + END IF + END IF + IF toggleAndReturn THEN RETURN + _CONTINUE + END IF + + 'end of custom controls + mousedown = 0 + mouseup = 0 + LOOP + + EXIT FUNCTION + + buildList: + maxTypeLen = 0 + FOR x = 1 TO totalElements + thisType = CVL(MID$(elementIndexes$, x * 4 - 3, 4)) + IF LEN(RTRIM$(udtecname(thisType))) > longestName THEN longestName = LEN(RTRIM$(udtecname(thisType))) + varDlgList(x).index = thisType + varDlgList(x).selected = 0 + id.t = udtetype(thisType) + id.tsize = udtesize(thisType) + + IF id.t AND ISFIXEDLENGTH THEN + id.tsize = udtetypesize(thisType) + END IF + + varDlgList(x).varType = id2fulltypename$ + thisLen = LEN(varDlgList(x).varType) + IF thisLen > maxTypeLen THEN maxTypeLen = thisLen + NEXT + + l$ = "" + FOR x = 1 TO totalElements + thisElement = varDlgList(x).index + l$ = l$ + CHR$(17) + varDlgList(x).bgColorFlag = LEN(l$) + 1 + l$ = l$ + CHR$(17) + + l$ = l$ + CHR$(16) + varDlgList(x).colorFlag = LEN(l$) + 1 + varDlgList(x).indicator = LEN(l$) + 2 + l$ = l$ + CHR$(16) + " " + + thisName$ = RTRIM$(udtecname(thisElement)) + text$ = thisName$ + CHR$(16) + varDlgList(x).colorFlag2 = LEN(l$) + LEN(text$) + 1 + text$ = text$ + CHR$(2) + " " + text$ = text$ + SPACE$(longestName - LEN(thisName$)) + text$ = text$ + " " + varDlgList(x).varType + SPACE$(maxTypeLen - LEN(varDlgList(x).varType)) + + l$ = l$ + text$ + IF x < totalElements THEN l$ = l$ + sep + NEXT + RETURN +END FUNCTION + +FUNCTION formatRange$(__text$) + '__text$ is a series of MKL$(values) concatenated + temp$ = __text$ + v1 = -1 + v2 = -1 + FOR i = 1 TO LEN(temp$) \ 4 + v = CVL(MID$(temp$, i * 4 - 3, 4)) + IF v1 = -1 THEN + v1 = v + ELSE + IF v = v1 + 1 OR v = v2 + 1 THEN + v2 = v + ELSE + IF v2 = -1 THEN + a2$ = a2$ + LTRIM$(STR$(v1)) + ";" + v1 = v + ELSE + a2$ = a2$ + LTRIM$(STR$(v1)) + "-" + LTRIM$(STR$(v2)) + ";" + v1 = v + v2 = -1 + END IF + END IF + END IF + NEXT + IF v1 <> -1 AND v2 = -1 THEN a2$ = a2$ + LTRIM$(STR$(v1)) + IF v1 <> -1 AND v2 <> -1 THEN a2$ = a2$ + LTRIM$(STR$(v1)) + "-" + LTRIM$(STR$(v2)) + formatRange$ = a2$ +END FUNCTION + +FUNCTION expandArray$ (__indexes$, __path$) + STATIC thisLevel AS LONG, returnValue$ + + IF thisLevel = 0 THEN + returnValue$ = "" + END IF + + thisLevel = thisLevel + 1 + + totalIndexes = CVL(LEFT$(__indexes$, 4)) + indexes$ = MID$(__indexes$, 5, totalIndexes) + remainingIndexes$ = MID$(__indexes$, 5 + totalIndexes) + totalIndexes = totalIndexes \ 4 + + FOR i = 1 TO totalIndexes + temp$ = __path$ + MID$(indexes$, i * 4 - 3, 4) + IF LEN(remainingIndexes$) THEN + temp$ = expandArray$(remainingIndexes$, temp$) + END IF + IF LEN(temp$) THEN + returnValue$ = returnValue$ + MKL$(LEN(temp$)) + temp$ + END IF + NEXT + + thisLevel = thisLevel - 1 + + IF thisLevel = 0 THEN + expandArray$ = returnValue$ + END IF +END FUNCTION + +FUNCTION parseRange$(__text$) + '__text$ must contain a valid numeric string (####), + 'a valid interval (####-####) or comma-separated values. + 'Only positive values >= 0 considered. + 'Returns MKL$(value1) + MKL$(value2)... in order + + IF LEN(_TRIM$(__text$)) = 0 THEN EXIT FUNCTION + + DIM zeroIncluded AS _BYTE + + Filter$ = _TRIM$(__text$) + j = INSTR(Filter$, "-") + INSTR(Filter$, ";") + temp$ = SPACE$(1000) + + IF j = 0 THEN 'Single number passed + parseRange$ = MKL$(VAL(Filter$)) + EXIT FUNCTION + END IF + + Reading = 1 + FOR j = 1 TO LEN(Filter$) + v = ASC(Filter$, j) + SELECT CASE v + CASE 59 '; + Reading = 1 + GOSUB parseIt + CASE 45 'hyphen + IF PrevChar <> 45 THEN + Reading = Reading + 1 + IF Reading = 2 THEN + IF j = LEN(Filter$) THEN GOSUB parseIt + END IF + END IF + CASE 48 TO 57 '0 to 9 + IF Reading = 1 THEN + v1$ = v1$ + CHR$(v) + ELSEIF Reading = 2 THEN + v2$ = v2$ + CHR$(v) + END IF + IF j = LEN(Filter$) THEN GOSUB parseIt + END SELECT + PrevChar = v + NEXT j + + returnValue$ = "" + IF zeroIncluded THEN returnValue$ = MKL$(0) + FOR i = 1 TO LEN(temp$) + IF ASC(temp$, i) = 1 THEN returnValue$ = returnValue$ + MKL$(i) + NEXT + parseRange$ = returnValue$ + + EXIT FUNCTION + parseIt: + v1 = VAL(v1$) + v2 = VAL(v2$) + IF LEN(v2$) > 0 THEN + IF LEN(v1$) > 0 THEN + IF v1 > v2 THEN SWAP v1, v2 + IF v2 > LEN(temp$) THEN temp$ = temp$ + SPACE$(v2 - LEN(temp$)) + IF v1 = 0 THEN zeroIncluded = -1: v1 = 1 + FOR i = v1 TO v2 + ASC(temp$, i) = 1 + NEXT + END IF + ELSE + IF v1 > LEN(temp$) THEN temp$ = temp$ + SPACE$(v1 - LEN(temp$)) + IF v1 = 0 THEN + zeroIncluded = -1 + ELSE + ASC(temp$, v1) = 1 + END IF + END IF + v1$ = "" + v2$ = "" + RETURN +END FUNCTION + +FUNCTION idecallstackbox + + '-------- generic dialog box header -------- + PCOPY 0, 2 + PCOPY 0, 1 + SCREEN , , 1, 0 + focus = 1 + DIM p AS idedbptype + DIM o(1 TO 100) AS idedbotype + DIM sep AS STRING * 1 + sep = CHR$(0) + '-------- end of generic dialog box header -------- + + '-------- init -------- + + dialogHeight = callStackLength + 4 + IF dialogHeight > idewy + idesubwindow - 6 THEN + dialogHeight = idewy + idesubwindow - 6 + END IF + + dialogWidth = 52 + temp$ = callstacklist$ + DO + i = INSTR(temp$, sep) + IF i THEN + temp2$ = LEFT$(temp$, i - 1) + temp$ = MID$(temp$, i + 1) + IF LEN(temp2$) + 6 > dialogWidth THEN dialogWidth = LEN(temp2$) + 6 + ELSE + IF LEN(temp$) + 6 > dialogWidth THEN dialogWidth = LEN(temp$) + 6 + EXIT DO + END IF + LOOP + + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + + idepar p, dialogWidth, dialogHeight, "$DEBUG MODE" + + i = 0 + i = i + 1 + o(i).typ = 2 + o(i).y = 2 + o(i).w = dialogWidth - 4: o(i).h = dialogHeight - 4 + o(i).txt = idenewtxt(callstacklist$) + o(i).sel = callStackLength + o(i).nam = idenewtxt("Call Stack") + + i = i + 1 + o(i).typ = 3 + o(i).y = dialogHeight + o(i).txt = idenewtxt("#Go To Line" + sep + "#Close" + sep + "Co#py") + o(i).dft = 1 + + + '-------- end of init -------- + + '-------- generic init -------- + FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects + '-------- end of generic init -------- + + DO 'main loop + + '-------- generic display dialog box & objects -------- + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + 'prepare object + o(i).foc = focus - f 'focus offset + o(i).cx = 0: o(i).cy = 0 + idedrawobj o(i), f 'display object + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + END IF + NEXT i + lastfocus = f - 1 + '-------- end of generic display dialog box & objects -------- + + '-------- custom display changes -------- + COLOR 0, 7: _PRINTSTRING (p.x + 2, p.y + 1), "Most recent sub/function calls in your program:" + + '-------- end of custom display changes -------- + + 'update visual page and cursor position + PCOPY 1, 0 + IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 + + '-------- read input -------- + change = 0 + DO + GetInput + IF mWHEEL THEN change = 1 + IF KB THEN change = 1 + IF mCLICK THEN mousedown = 1: change = 1 + IF mRELEASE THEN mouseup = 1: change = 1 + IF mB THEN change = 1 + alt = KALT: IF alt <> oldalt THEN change = 1 + oldalt = alt + _LIMIT 100 + LOOP UNTIL change + IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 + 'convert "alt+letter" scancode to letter's ASCII character + altletter$ = "" + IF alt AND NOT KCTRL THEN + IF LEN(K$) = 1 THEN + k = ASC(UCASE$(K$)) + IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + END IF + END IF + SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 + '-------- end of read input -------- + + '-------- generic input response -------- + info = 0 + IF K$ = "" THEN K$ = CHR$(255) + IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 + IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" + IF focus < 1 THEN focus = lastfocus + IF focus > lastfocus THEN focus = 1 + f = 1 + FOR i = 1 TO 100 + t = o(i).typ + IF t THEN + focusoffset = focus - f + ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL + END IF + NEXT + '-------- end of generic input response -------- + + IF mCLICK AND focus = 1 THEN 'list click + IF timeElapsedSince(lastClick!) < .3 AND clickedItem = o(1).sel THEN + GOTO setIDEcy + END IF + lastClick! = TIMER + IF o(1).sel > 0 THEN clickedItem = o(1).sel + _CONTINUE + END IF + + IF (focus = 1 AND K$ = CHR$(13)) OR (focus = 2 AND info <> 0)THEN + setIDEcy: + y = ABS(o(1).sel) + IF y >= 1 AND y <= callStackLength THEN + temp$ = idetxt(o(1).stx) + idegotobox_LastLineNum = VAL(MID$(temp$, _INSTRREV(temp$, " ") + 1)) + idecy = idegotobox_LastLineNum + idecentercurrentline + ideselect = 0 + ClearMouse + EXIT FUNCTION + END IF + END IF + + IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN + EXIT FUNCTION + END IF + + IF K$ = CHR$(13) OR (focus = 3 AND info <> 0) THEN + EXIT FUNCTION + END IF + + IF K$ = CHR$(13) OR (focus = 4 AND info <> 0) OR (UCASE$(K$) = "C" AND KCTRL <> 0) THEN + _CLIPBOARD$ = StrReplace$(callstacklist$, sep, CHR$(10)) + END IF + + 'end of custom controls + mousedown = 0 + mouseup = 0 + LOOP + + idecallstackbox = 0 + END FUNCTION SUB idebox (x, y, w, h) - LOCATE y, x: PRINT CHR$(218) + STRING$(w - 2, 196) + CHR$(191); + _PRINTSTRING (x, y), CHR$(218) + STRING$(w - 2, 196) + CHR$(191) FOR y2 = y + 1 TO y + h - 2 - LOCATE y2, x: PRINT CHR$(179) + SPACE$(w - 2) + CHR$(179); + _PRINTSTRING (x, y2), CHR$(179) + SPACE$(w - 2) + CHR$(179) NEXT - LOCATE y + h - 1, x: PRINT CHR$(192) + STRING$(w - 2, 196) + CHR$(217); + _PRINTSTRING (x, y + h - 1), CHR$(192) + STRING$(w - 2, 196) + CHR$(217) END SUB SUB ideboxshadow (x, y, w, h) - LOCATE y, x: PRINT CHR$(218) + STRING$(w - 2, 196) + CHR$(191); - FOR y2 = y + 1 TO y + h - 2 - LOCATE y2, x: PRINT CHR$(179) + SPACE$(w - 2) + CHR$(179); - NEXT - LOCATE y + h - 1, x: PRINT CHR$(192) + STRING$(w - 2, 196) + CHR$(217); + idebox x, y, w, h + 'shadow COLOR 2, 0 FOR y2 = y + 1 TO y + h - 1 FOR x2 = x + w TO x + w + 1 - IF x2 <= idewx AND y2 <= idewy THEN - LOCATE y2, x2: PRINT CHR$(SCREEN(y2, x2)); + IF x2 <= idewx AND y2 <= idewy + idesubwindow THEN + _PRINTSTRING (x2, y2), CHR$(SCREEN(y2, x2)) END IF NEXT NEXT y2 = y + h - IF y2 <= idewy THEN + IF y2 <= idewy + idesubwindow THEN FOR x2 = x + 2 TO x + w + 1 IF x2 <= idewx THEN - LOCATE y2, x2: PRINT CHR$(SCREEN(y2, x2)); + _PRINTSTRING (x2, y2), CHR$(SCREEN(y2, x2)) END IF NEXT END IF @@ -5790,7 +10285,7 @@ FUNCTION idechange$ ln = 0 i = 0 - idepar p, 60, 12, "Change" + idepar p, 60, 14, "Change" i = i + 1 PrevFocus = 1 o(i).typ = 1 @@ -5831,8 +10326,35 @@ FUNCTION idechange$ o(i).sel = idefindbackwards i = i + 1 - o(i).typ = 3 + o(i).typ = 4 'check box + o(i).y = 11 + o(i).nam = idenewtxt("#Ignore 'comments") + o(i).sel = idefindnocomments + + i = i + 1 + o(i).typ = 4 'check box + o(i).x = 29 + o(i).y = 11 + o(i).nam = idenewtxt("#Look only in 'comments") + o(i).sel = idefindonlycomments + + i = i + 1 + o(i).typ = 4 'check box o(i).y = 12 + o(i).nam = idenewtxt("Ignore " + CHR$(34) + "#strings" + CHR$(34)) + o(i).sel = idefindnostrings + + i = i + 1 + o(i).typ = 4 'check box + o(i).x = 29 + o(i).y = 12 + o(i).nam = idenewtxt("Look only in " + CHR$(34) + "st#rings" + CHR$(34)) + o(i).sel = idefindonlystrings + + i = i + 1 + ButtonsID = i + o(i).typ = 3 + o(i).y = 14 o(i).txt = idenewtxt("Find and #Verify" + sep + "#Change All" + sep + "Cancel") o(i).dft = 1 '-------- end of init -------- @@ -5844,24 +10366,7 @@ FUNCTION idechange$ DO 'main loop '-------- generic display dialog box & objects -------- - - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - - IF o(i).typ THEN - - 'prepare object - o(i).foc = focus - f 'focus offset - - o(i).cx = 0: o(i).cy = 0 - - idedrawobj o(i), f 'display object - - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - - END IF - NEXT i + GOSUB displayDialog lastfocus = f - 1 '-------- end of generic display dialog box & objects -------- @@ -5925,7 +10430,22 @@ FUNCTION idechange$ END IF END IF - IF K$ = CHR$(27) OR (focus = 8 AND info <> 0) THEN + 'mutually exclusive options + IF focus = 6 AND o(6).sel = 1 THEN + o(7).sel = 0 + ELSEIF focus = 7 AND o(7).sel = 1 THEN + o(6).sel = 0 + o(8).sel = 0 + o(9).sel = 0 + ELSEIF focus = 8 AND o(8).sel = 1 THEN + o(9).sel = 0 + ELSEIF focus = 9 AND o(9).sel = 1 THEN + o(6).sel = 0 + o(7).sel = 0 + o(8).sel = 0 + END IF + + IF K$ = CHR$(27) OR (focus = 12 AND info <> 0) THEN idechange$ = "C" EXIT FUNCTION END IF @@ -5950,10 +10470,14 @@ FUNCTION idechange$ END IF END IF - IF focus = 7 AND info <> 0 THEN 'change all + IF focus = 11 AND info <> 0 THEN 'change all idefindcasesens = o(3).sel idefindwholeword = o(4).sel idefindbackwards = o(5).sel + idefindnocomments = o(6).sel + idefindonlycomments = o(7).sel + idefindnostrings = o(8).sel + idefindonlystrings = o(9).sel s$ = idetxt(o(1).txt) idefindtext$ = s$ @@ -5966,6 +10490,14 @@ FUNCTION idechange$ IF idefindcasesens = 0 THEN s$ = UCASE$(s$) FOR y = 1 TO iden + COLOR 0, 7 + maxprogresswidth = p.w - 4 + percentage = INT(y / iden * 100) + percentagechars = INT(maxprogresswidth * y / iden) + percentageMsg$ = STRING$(percentagechars, 219) + STRING$(maxprogresswidth - percentagechars, 176) + _PRINTSTRING (p.x + 2, p.y + 7), percentageMsg$ + PCOPY 1, 0 + l$ = idegetline(y) l2$ = "" @@ -5998,28 +10530,57 @@ FUNCTION idechange$ END IF END IF + DIM comment AS _BYTE, quote AS _BYTE + IF x THEN + FindQuoteComment l$, x, comment, quote + IF idefindnocomments <> 0 AND comment THEN x = 0 + IF idefindnostrings <> 0 AND quote THEN x = 0 + IF idefindonlycomments <> 0 AND comment = 0 THEN x = 0 + IF idefindonlystrings <> 0 AND quote = 0 THEN x = 0 + END IF + IF x THEN l2$ = l2$ + MID$(l$, x1, x - x1) + idechangeto$ + changed = changed + 1 x1 = x + LEN(s$) IF x1 <= LEN(l$) THEN GOTO idechangeall END IF l2$ = l2$ + MID$(l$, x1, LEN(l$) - x1 + 1) - IF l2$ <> l$ THEN idesetline y, l2$: changed = 1 + IF l2$ <> l$ THEN idesetline y, l2$ NEXT - IF changed = 0 THEN idenomatch ELSE idechanged: idechangemade = 1 - EXIT FUNCTION + SCREEN , , 3, 0 + clearStatusWindow 0 + idefocusline = 0 + ideshowtext + PCOPY 3, 0 + PCOPY 0, 2 + PCOPY 0, 1 + SCREEN , , 1, 0 + GOSUB displayDialog + PCOPY 1, 0 + IF changed = 0 THEN + idenomatch 0 + ELSE + idechanged changed: idechangemade = 1: startPausedPending = 0 + END IF + + idetxt(o(ButtonsID).txt) = "Find and #Verify" + sep + "#Change All" + sep + "Close" END IF 'change all - IF (focus = 6 AND info <> 0) OR K$ = CHR$(13) THEN + IF (focus = 10 AND info <> 0) OR K$ = CHR$(13) THEN idefindcasesens = o(3).sel idefindwholeword = o(4).sel idefindbackwards = o(5).sel + idefindnocomments = o(6).sel + idefindonlycomments = o(7).sel + idefindnostrings = o(8).sel + idefindonlystrings = o(9).sel idefindtext$ = idetxt(o(1).txt) idechangeto$ = idetxt(o(2).txt) idechange$ = "V" @@ -6034,122 +10595,54 @@ FUNCTION idechange$ mousedown = 0 mouseup = 0 LOOP + EXIT FUNCTION + displayDialog: + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + 'prepare object + o(i).foc = focus - f 'focus offset + + o(i).cx = 0: o(i).cy = 0 + + idedrawobj o(i), f 'display object + + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + + END IF + NEXT i + RETURN END FUNCTION -SUB idechanged - - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, 19, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("OK") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 3: PRINT "Change Complete"; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF K$ = CHR$(27) THEN - EXIT SUB - END IF - - IF info THEN - EXIT SUB - END IF - - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP +SUB FindQuoteComment (text$, __cursor AS LONG, c AS _BYTE, q AS _BYTE) + c = 0: q = 0 + cursor = __cursor + IF cursor > LEN(text$) THEN cursor = LEN(text$) + FOR find_k = 1 TO cursor + SELECT CASE MID$(text$, find_k, 1) + CASE CHR$(34): q = NOT q + CASE "'": IF q = 0 THEN c = -1: EXIT FOR + CASE "R", "r" + IF q = 0 THEN + IF UCASE$(MID$(text$, find_k - 1, 5)) = " REM " OR _ + UCASE$(MID$(text$, find_k - 1, 5)) = ":REM " OR _ + (find_k + 2 = LEN(text$) AND UCASE$(MID$(text$, find_k - 1, 4)) = " REM") OR _ + (find_k + 2 = LEN(text$) AND UCASE$(MID$(text$, find_k - 1, 4)) = ":REM") OR _ + (find_k = 1 AND UCASE$(LEFT$(text$, 4)) = "REM ") OR _ + (find_k = 1 AND UCASE$(text$) = "REM") THEN + c = -1: EXIT FOR + END IF + END IF + END SELECT + NEXT find_k +END SUB +SUB idechanged (totalChanges AS LONG) + IF totalChanges > 1 THEN pl$ = "s" + result = idemessagebox("Change Complete", LTRIM$(STR$(totalChanges)) + " substitution" + pl$ + ".", "") END SUB FUNCTION idechangeit$ @@ -6284,6 +10777,23 @@ SUB idedelline (i) END IF NEXT + IF vWatchOn THEN + IF iden > UBOUND(IdeBreakpoints) OR iden > UBOUND(IdeSkipLines) THEN + REDIM _PRESERVE IdeBreakpoints(iden) AS _BYTE + REDIM _PRESERVE IdeSkipLines(iden) AS _BYTE + END IF + + FOR b = i TO iden - 1 + SWAP IdeBreakpoints(b), IdeBreakpoints(b + 1) + NEXT + REDIM _PRESERVE IdeBreakpoints(iden - 1) AS _BYTE + + FOR b = i TO iden - 1 + SWAP IdeSkipLines(b), IdeSkipLines(b - 1) + NEXT + REDIM _PRESERVE IdeSkipLines(iden - 1) AS _BYTE + END IF + idegotoline i textlen = CVL(MID$(idet$, ideli, 4)) idet$ = LEFT$(idet$, ideli - 1) + RIGHT$(idet$, LEN(idet$) - ideli + 1 - 8 - textlen) @@ -6336,12 +10846,11 @@ SUB idedrawobj (o AS idedbotype, f) x = x + 2 'apply selection color change if necessary IF o.issel = 0 OR o.foc <> 0 THEN - LOCATE y, x: PRINT a$; + _PRINTSTRING (x, y), a$ ELSE FOR ColorCHAR = 1 TO LEN(a$) IF ColorCHAR + tx - 2 >= sx1 AND ColorCHAR + tx - 2 < sx2 THEN COLOR 7, 0 ELSE COLOR 0, 7 - LOCATE y, x - 1 + ColorCHAR - PRINT MID$(a$, ColorCHAR, 1); + _PRINTSTRING (x - 1 + ColorCHAR, y), MID$(a$, ColorCHAR, 1) NEXT END IF @@ -6385,17 +10894,88 @@ SUB idedrawobj (o AS idedbotype, f) 'skip ELSE IF y <= o.h THEN - IF o.sel = n THEN COLOR 7, 0 ELSE COLOR 0, 7 - IF (o.sel = n OR -o.sel = n) AND o.foc = 0 THEN o.cx = o.par.x + o.x + 2: o.cy = o.par.y + o.y + y + a3$ = " " + RTRIM$(a3$) + IF o.sel = n THEN + COLOR 7, 0 + o.selY = o.par.y + o.y + y + ELSE + COLOR 0, 7 + END IF + IF (o.sel = n OR -o.sel = n) AND o.foc = 0 THEN + o.cx = o.par.x + o.x + 2: o.cy = o.par.y + o.y + y + IF LEFT$(a3$, 2) = CHR$(32) + CHR$(195) OR LEFT$(a3$, 2) = CHR$(32) + CHR$(192) THEN + o.cx = o.cx + 2 + END IF + END IF + LOCATE o.par.y + o.y + y, o.par.x + o.x + 1 - a3$ = " " + a3$ + SPACE$(o.w) - a3$ = LEFT$(a3$, o.w) - PRINT a3$; + IF INSTR(a3$, CHR$(16)) THEN + 'color formatting: CHR$(16) + CHR$(color) + ' CHR$(16) + CHR$(16) restores default + ' CHR$(17) + CHR$(bg color) + ' CHR$(17) + CHR$(17) restores default + character = 0 + rightSideLimit = POS(1) + o.w - 1 + cf = POS(1) + DO + character = character + 1 + IF character > LEN(a3$) THEN + PRINT SPACE$(o.w - (POS(1) - (o.par.x + o.x)) + 1); + EXIT DO + END IF + IF ASC(a3$, character) = 16 AND character < LEN(a3$) THEN + IF ASC(a3$, character + 1) >= 0 AND ASC(a3$, character + 1) <= 15 THEN + COLOR ASC(a3$, character + 1) + character = character + 1 + _CONTINUE + ELSEIF ASC(a3$, character + 1) = 16 THEN + IF o.sel = n THEN COLOR 7 ELSE COLOR 0 + character = character + 1 + _CONTINUE + END IF + ELSEIF ASC(a3$, character) = 17 AND character < LEN(a3$) THEN + IF ASC(a3$, character + 1) >= 0 AND ASC(a3$, character + 1) <= 15 THEN + IF o.sel <> n THEN COLOR , ASC(a3$, character + 1) + character = character + 1 + _CONTINUE + ELSEIF ASC(a3$, character + 1) = 17 THEN + IF o.sel = n THEN COLOR , 0 ELSE COLOR , 7 + character = character + 1 + _CONTINUE + END IF + ELSEIF character = 1 AND (LEFT$(a3$, 2) = CHR$(32) + CHR$(195) OR LEFT$(a3$, 2) = CHR$(32) + CHR$(192)) THEN + COLOR 0, 7 + PRINT LEFT$(a3$, 3); + IF o.sel = n THEN COLOR 7, 0 ELSE COLOR 0, 7 + character = 3 + cf = cf + 3 + _CONTINUE + END IF + PRINT MID$(a3$, character, 1); + cf = cf + 1 + LOOP UNTIL cf > rightSideLimit + IF character < LEN(a3$) THEN _PRINTSTRING (rightSideLimit, CSRLIN), CHR$(26) + IF POS(1) < rightSideLimit THEN + PRINT SPACE$(rightSideLimit - POS(1)); + END IF + ELSE + IF LEN(a3$) > o.w THEN MID$(a3$, o.w, 1) = CHR$(26) + a3$ = a3$ + SPACE$(o.w) + a3$ = LEFT$(a3$, o.w) + 'customization specific for the SUBs list, due to the tree characters: + IF LEFT$(a3$, 2) = CHR$(32) + CHR$(195) OR LEFT$(a3$, 2) = CHR$(32) + CHR$(192) THEN + COLOR 0, 7 + PRINT LEFT$(a3$, 3); + IF o.sel = n THEN COLOR 7, 0 ELSE COLOR 0, 7 + PRINT MID$(a3$, 4); + ELSE + PRINT a3$; + END IF + END IF 'customization specific for the SUBs list, when there are external procedures: IF INSTR(a3$, CHR$(196) + "*") > 0 THEN IF o.sel = n THEN COLOR 2, 0 ELSE COLOR 2, 7 - LOCATE o.par.y + o.y + y, o.par.x + o.x + 4 - PRINT "*"; + _PRINTSTRING (o.par.x + o.x + 4, o.par.y + o.y + y), "*" END IF y = y + 1 END IF @@ -6418,7 +10998,7 @@ SUB idedrawobj (o AS idedbotype, f) IF o.typ = 3 THEN IF o.x = 0 THEN o.x = 2 IF o.w = 0 THEN o.w = o.par.w - o.x 'spanable width - IF o.txt = 0 THEN o.txt = idenewtxt("OK") + IF o.txt = 0 THEN o.txt = idenewtxt("#OK") a$ = idetxt(o.txt) n = 1 c = 0 @@ -6491,245 +11071,25 @@ SUB idedrawpar (p AS idedbptype) COLOR 0, 7: ideboxshadow p.x, p.y, p.w + 2, p.h + 2 IF p.nam THEN x = LEN(idetxt(p.nam)) + 2 - COLOR 0, 7: LOCATE p.y, p.x + (p.w \ 2) - (x - 1) \ 2: PRINT " " + idetxt(p.nam) + " "; + COLOR 0, 7: _PRINTSTRING (p.x + (p.w \ 2) - (x - 1) \ 2, p.y), " " + idetxt(p.nam) + " " END IF END SUB -SUB ideerrormessage (mess$) - - - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, LEN(mess$) + 4, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("OK") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 3: PRINT mess$; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF +FUNCTION idefileexists$(f$) + l = LEN(f$) + DO + IF l < LEN(f$) THEN + m$ = "File " + CHR$(34) + STRING$(3, 250) + RIGHT$(f$, l) + CHR$(34) + " already exists. Overwrite?" + ELSE + m$ = "File " + CHR$(34) + f$ + CHR$(34) + " already exists. Overwrite?" END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF K$ = CHR$(27) THEN - EXIT SUB - END IF - - IF info THEN - EXIT SUB - END IF - - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP - - -END SUB - -FUNCTION idefileexists$ - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - 'idepar p, 30, 6, "File already exists. Overwrite?" - idepar p, 35, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("#Yes" + sep + "#No") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 3: PRINT "File already exists. Overwrite?"; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF K$ = CHR$(27) THEN - idefileexists$ = "N" - EXIT FUNCTION - END IF - - IF info THEN - IF info = 1 THEN idefileexists$ = "Y" ELSE idefileexists$ = "N" - EXIT FUNCTION - END IF - - 'end of custom controls - mousedown = 0 - mouseup = 0 - LOOP - + l = l - 1 + LOOP UNTIL LEN(m$) + 4 < (idewx - 6) + result = idemessagebox("Save", m$, "#Yes;#No") + IF result = 1 THEN idefileexists$ = "Y" ELSE idefileexists$ = "N" END FUNCTION - - - FUNCTION idefind$ REDIM SearchHistory(0) AS STRING @@ -6780,7 +11140,7 @@ FUNCTION idefind$ ln = 0 i = 0 - idepar p, 60, 9, "Find" + idepar p, 60, 11, "Find" i = i + 1 PrevFocus = 1 o(i).typ = 1 @@ -6814,9 +11174,35 @@ FUNCTION idefind$ o(i).sel = idefindbackwards i = i + 1 - o(i).typ = 3 + o(i).typ = 4 'check box + o(i).y = 8 + o(i).nam = idenewtxt("#Ignore 'comments") + o(i).sel = idefindnocomments + + i = i + 1 + o(i).typ = 4 'check box + o(i).x = 29 + o(i).y = 8 + o(i).nam = idenewtxt("#Look only in 'comments") + o(i).sel = idefindonlycomments + + i = i + 1 + o(i).typ = 4 'check box o(i).y = 9 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") + o(i).nam = idenewtxt("Ignore " + CHR$(34) + "s#trings" + CHR$(34)) + o(i).sel = idefindnostrings + + i = i + 1 + o(i).typ = 4 'check box + o(i).x = 29 + o(i).y = 9 + o(i).nam = idenewtxt("Look only in " + CHR$(34) + "st#rings" + CHR$(34)) + o(i).sel = idefindonlystrings + + i = i + 1 + o(i).typ = 3 + o(i).y = 11 + o(i).txt = idenewtxt("#OK" + sep + "#Cancel") o(i).dft = 1 '-------- end of init -------- @@ -6903,19 +11289,38 @@ FUNCTION idefind$ END IF END IF - IF K$ = CHR$(27) OR (focus = 6 AND info <> 0) THEN + IF K$ = CHR$(27) OR (focus = 10 AND info <> 0) THEN idefind$ = "C" EXIT FUNCTION END IF - IF K$ = CHR$(13) OR (focus = 5 AND info <> 0) THEN + 'mutually exclusive options + IF focus = 5 AND o(5).sel = 1 THEN + o(6).sel = 0 + ELSEIF focus = 6 AND o(6).sel = 1 THEN + o(5).sel = 0 + o(7).sel = 0 + o(8).sel = 0 + ELSEIF focus = 7 AND o(7).sel = 1 THEN + o(8).sel = 0 + ELSEIF focus = 8 AND o(8).sel = 1 THEN + o(5).sel = 0 + o(6).sel = 0 + o(7).sel = 0 + END IF + + IF K$ = CHR$(13) OR (focus = 9 AND info <> 0) THEN idefindcasesens = o(2).sel idefindwholeword = o(3).sel idefindbackwards = o(4).sel + idefindnocomments = o(5).sel + idefindonlycomments = o(6).sel + idefindnostrings = o(7).sel + idefindonlystrings = o(8).sel s$ = idetxt(o(1).txt) idefindtext$ = s$ IdeAddSearched idefindtext - idefindagain + idefindagain 0 EXIT FUNCTION END IF @@ -6947,7 +11352,8 @@ FUNCTION idefind$ LOOP END FUNCTION -SUB idefindagain +SUB idefindagain (showFlags AS _BYTE) + DIM comment AS _BYTE, quote AS _BYTE IF idefindinvert THEN IF idefindbackwards = 0 THEN idefindbackwards = 1 ELSE idefindbackwards = 0 @@ -7028,22 +11434,32 @@ SUB idefindagain END IF END IF + IF x THEN + FindQuoteComment l$, x, comment, quote + IF idefindnocomments <> 0 AND comment THEN x = 0 + IF idefindnostrings <> 0 AND quote THEN x = 0 + IF idefindonlycomments <> 0 AND comment = 0 THEN x = 0 + IF idefindonlystrings <> 0 AND quote = 0 THEN x = 0 + END IF + IF x THEN ideselect = 1 idecx = x: idecy = y + searchStringFoundOn = idecy ideselectx1 = x + LEN(s$): ideselecty1 = y IF idefindinvert THEN IF idefindbackwards = 0 THEN idefindbackwards = 1 ELSE idefindbackwards = 0 idefindinvert = 0 END IF + idecentercurrentline EXIT SUB END IF IF idefindbackwards THEN y = y - 1 IF y = start - 1 AND looped = 1 THEN - idenomatch + idenomatch showFlags IF idefindinvert THEN IF idefindbackwards = 0 THEN idefindbackwards = 1 ELSE idefindbackwards = 0 idefindinvert = 0 @@ -7055,7 +11471,7 @@ SUB idefindagain ELSE y = y + 1 IF y = start + 1 AND looped = 1 THEN - idenomatch + idenomatch showFlags IF idefindinvert THEN IF idefindbackwards = 0 THEN idefindbackwards = 1 ELSE idefindbackwards = 0 idefindinvert = 0 @@ -7065,7 +11481,6 @@ SUB idefindagain IF y > iden THEN y = 1: looped = 1 GOTO idefindnext2 END IF - END SUB FUNCTION idegetline$ (i) @@ -7073,9 +11488,15 @@ FUNCTION idegetline$ (i) idegetline$ = MID$(idet$, ideli + 4, CVL(MID$(idet$, ideli, 4))) END FUNCTION +SUB idecentercurrentline + IF iden <= idewy - 8 THEN EXIT SUB + idesy = idecy - (idewy - 8) \ 2 + IF idesy < 1 THEN idesy = 1 +END SUB + SUB idegotoline (i) IF idel = i THEN EXIT SUB - IF i < 1 THEN ERROR 5 + IF i < 1 THEN i = 1 'scan backwards IF i < idel THEN DO @@ -7112,10 +11533,10 @@ FUNCTION idehbar (x, y, h, i2, n2) 'draw background & arrows COLOR 0, 7 - LOCATE y, x: PRINT CHR$(27); - LOCATE y, x + h - 1: PRINT CHR$(26); + _PRINTSTRING (x, y), CHR$(27) + _PRINTSTRING (x + h - 1, y), CHR$(26) FOR x2 = x + 1 TO x + h - 2 - LOCATE y, x2: PRINT CHR$(176); + _PRINTSTRING (x2, y), CHR$(176) NEXT 'draw slider @@ -7144,7 +11565,7 @@ FUNCTION idehbar (x, y, h, i2, n2) 'show whichever is closer of the two positions p! = (i - 1) / (n - 1) IF p! < .5 THEN x2 = x + 1 ELSE x2 = x + 2 - LOCATE y, x2: PRINT CHR$(219); + _PRINTSTRING (x2, y), CHR$(219) idehbar = x2 EXIT FUNCTION END IF @@ -7158,13 +11579,13 @@ FUNCTION idehbar (x, y, h, i2, n2) END IF IF i = 1 THEN x2 = x + 1 - LOCATE y, x2: PRINT CHR$(219); + _PRINTSTRING (x2, y), CHR$(219) idehbar = x2 EXIT FUNCTION END IF IF i = n THEN x2 = x + h - 2 - LOCATE y, x2: PRINT CHR$(219); + _PRINTSTRING (x2, y), CHR$(219) idehbar = x2 EXIT FUNCTION END IF @@ -7172,7 +11593,7 @@ FUNCTION idehbar (x, y, h, i2, n2) p! = (i - 1) / (n - 1) p! = p! * (h - 4) x2 = x + 2 + INT(p!) - LOCATE y, x2: PRINT CHR$(219); + _PRINTSTRING (x2, y), CHR$(219) idehbar = x2 EXIT FUNCTION END IF @@ -7206,6 +11627,20 @@ SUB ideinsline (i, text$) END IF NEXT + IF vWatchOn THEN + REDIM _PRESERVE IdeBreakpoints(iden + 1) AS _BYTE + FOR b = iden + 1 TO i STEP -1 + SWAP IdeBreakpoints(b), IdeBreakpoints(b - 1) + NEXT + IdeBreakpoints(i) = 0 + + REDIM _PRESERVE IdeSkipLines(iden + 1) AS _BYTE + FOR b = iden + 1 TO i STEP -1 + SWAP IdeSkipLines(b), IdeSkipLines(b - 1) + NEXT + IdeSkipLines(i) = 0 + END IF + text$ = RTRIM$(text$) IF i = -1 THEN i = idel @@ -7221,7 +11656,7 @@ SUB ideinsline (i, text$) iden = iden + 1 END SUB -SUB idenewsf (sf AS STRING) +FUNCTION ideinputbox$(title$, caption$, initialvalue$, validinput$, boxwidth, maxlength, ok) '-------- generic dialog box header -------- @@ -7237,37 +11672,25 @@ SUB idenewsf (sf AS STRING) '-------- init -------- - 'built initial name if word selected - IF ideselect THEN - IF ideselecty1 = idecy THEN 'single line selected - a$ = idegetline(idecy) - a2$ = "" - sx1 = ideselectx1: sx2 = idecx - IF sx2 < sx1 THEN SWAP sx1, sx2 - FOR x = sx1 TO sx2 - 1 - IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " - NEXT - END IF - END IF - i = 0 + ok = 0 'will be set to true if "OK" or Enter are used to close the dialog - idepar p, 60, 5, "New " + sf$ + idepar p, boxwidth, 5, title$ i = i + 1 PrevFocus = 1 o(i).typ = 1 o(i).y = 2 - o(i).nam = idenewtxt("#Name") - o(i).txt = idenewtxt(a2$) - IF LEN(a2$) > 0 THEN o(i).issel = -1 + o(i).nam = idenewtxt(caption$) + o(i).txt = idenewtxt(initialvalue$) + IF LEN(initialvalue$) > 0 THEN o(i).issel = -1 o(i).sx1 = 0 - o(i).v1 = LEN(a2$) + o(i).v1 = LEN(initialvalue$) i = i + 1 o(i).typ = 3 o(i).y = 5 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") + o(i).txt = idenewtxt("#OK" + sep + "#Cancel") o(i).dft = 1 '-------- end of init -------- @@ -7354,154 +11777,110 @@ SUB idenewsf (sf AS STRING) END IF END IF + IF LEN(validinput$) THEN + a$ = idetxt(o(1).txt) + tempA$ = "" + FOR i = 1 TO LEN(a$) + IF INSTR(validinput$, MID$(a$, i, 1)) > 0 THEN + tempA$ = tempA$ + MID$(a$, i, 1) + END IF + NEXT + idetxt(o(1).txt) = tempA$ + END IF + + IF maxlength THEN + idetxt(o(1).txt) = LEFT$(idetxt(o(1).txt), maxlength) + END IF + IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN - EXIT SUB + ClearMouse + EXIT FUNCTION END IF IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) THEN - y = iden - y = y + 1: idesetline y, "" - y = y + 1: idesetline y, sf$ + " " + idetxt(o(1).txt) - idesy = y - y = y + 1: idesetline y, "" - idecy = y - y = y + 1: idesetline y, "END " + sf$ - idecx = 1: idesx = 1 - idechangemade = 1 - EXIT SUB + ideinputbox$ = idetxt(o(1).txt) + ok = -1 + ClearMouse + _KEYCLEAR + EXIT FUNCTION END IF - 'end of custom controls mousedown = 0 mouseup = 0 LOOP +END FUNCTION +SUB idenewsf (sf AS STRING) + 'build initial name if word selected + IF ideselect THEN + IF ideselecty1 = idecy THEN 'single line selected + a$ = idegetline(idecy) + a2$ = "" + sx1 = ideselectx1: sx2 = idecx + IF sx2 < sx1 THEN SWAP sx1, sx2 + FOR x = sx1 TO sx2 - 1 + IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " + NEXT + END IF + END IF + newSF$ = ideinputbox$("New " + sf$, "#Name", a2$, "", 60, 40, 0) + + IF LEN(newSF$) THEN + y = iden + y = y + 1: idesetline y, "" + y = y + 1: idesetline y, sf$ + " " + newSF$ + idesy = y + y = y + 1: idesetline y, "" + idecy = y + y = y + 1: idesetline y, "END " + sf$ + idecx = 1: idesx = 1 + idechangemade = 1 + startPausedPending = 0 + END IF END SUB +FUNCTION idenewfolder$(thispath$) + newfolder$ = ideinputbox$("New Folder", "#Name", "", "", 60, 0, 0) + + IF LEN(newfolder$) THEN + IF _DIREXISTS(thispath$ + idepathsep$ + newfolder$) THEN + idenewfolder$ = newfolder$ + EXIT SUB + END IF + ideerror = 5 + MKDIR thispath$ + idepathsep$ + newfolder$ + ideerror = 1 + idenewfolder$ = newfolder$ + END IF +END SUB + + FUNCTION idenewtxt (a$) idetxtlast = idetxtlast + 1 idetxt$(idetxtlast) = a$ idenewtxt = idetxtlast END FUNCTION -SUB idenomatch - - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, 19, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("OK") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 3: PRINT "Match not found"; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF K$ = CHR$(27) THEN - EXIT SUB - END IF - - IF info THEN - EXIT SUB - END IF - - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP - +SUB idenomatch (showFlags AS _BYTE) + msg$ = "Match not found." + c$ = ", " + IF showFlags THEN + IF idefindcasesens THEN flags$ = flags$ + "match case": flagset = flagset + 1 + IF idefindwholeword THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "whole word": flagset = flagset + 1 + IF idefindnocomments THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "no comments": flagset = flagset + 1 + IF idefindonlycomments THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "only comments": flagset = flagset + 1 + IF idefindnostrings THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "no strings": flagset = flagset + 1 + IF idefindonlystrings THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "only strings": flagset = flagset + 1 + IF flagset > 1 THEN pl$ = "s" + IF flagset THEN msg$ = msg$ + "\n(Flag" + pl$ + ": " + flags$ + ")" + END IF + result = idemessagebox("Search complete", msg$, "") END SUB -FUNCTION ideopen$ +FUNCTION idefiledialog$(programname$, mode AS _BYTE) STATIC AllFiles '-------- generic dialog box header -------- @@ -7517,16 +11896,27 @@ FUNCTION ideopen$ '-------- init -------- path$ = idepath$ - filelist$ = idezfilelist$(path$, AllFiles) + filelist$ = idezfilelist$(path$, AllFiles, "") pathlist$ = idezpathlist$(path$) i = 0 - idepar p, 70, idewy + idesubwindow - 7, "Open" + IF mode = 1 THEN + idepar p, 70, idewy + idesubwindow - 7, "Open" + ELSEIF mode = 2 THEN + idepar p, 70, idewy + idesubwindow - 7, "Save As" + END IF i = i + 1 PrevFocus = 1 o(i).typ = 1 o(i).y = 2 o(i).nam = idenewtxt("File #Name") + IF mode = 2 THEN + o(i).txt = idenewtxt(programname$) + o(i).issel = -1 + o(i).sx1 = 0 + o(i).v1 = LEN(programname$) + END IF + i = i + 1 o(i).typ = 2 o(i).y = 5 @@ -7543,12 +11933,18 @@ FUNCTION ideopen$ o(i).typ = 4 'check box o(i).x = 37 o(i).y = idewy + idesubwindow - 9 - o(i).nam = idenewtxt(".BAS Only") + o(i).nam = idenewtxt(".#BAS Only") IF AllFiles THEN o(i).sel = 0 ELSE o(i).sel = 1 + prevBASOnly = o(i).sel + i = i + 1 + o(i).typ = 3 + o(i).x = 56 + o(i).y = idewy + idesubwindow - 9 + o(i).txt = idenewtxt("Ne#w Folder") i = i + 1 o(i).typ = 3 o(i).y = idewy + idesubwindow - 7 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") + o(i).txt = idenewtxt("#OK" + sep + "#Cancel") o(i).dft = 1 '-------- end of init -------- @@ -7556,7 +11952,7 @@ FUNCTION ideopen$ FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects '-------- end of generic init -------- - IF LEN(IdeOpenFile) THEN f$ = IdeOpenFile: GOTO DirectLoad + IF mode = 1 AND LEN(IdeOpenFile) > 0 THEN f$ = IdeOpenFile: GOTO DirectLoad DO 'main loop @@ -7576,11 +11972,12 @@ FUNCTION ideopen$ '-------- end of generic display dialog box & objects -------- '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: "; + COLOR 0, 7: _PRINTSTRING (p.x + 2, p.y + 4), "Path: " a$ = path$ + IF LEN(a$) = 2 AND RIGHT$(a$, 1) = ":" THEN a$ = a$ + "\" w = p.w - 8 IF LEN(a$) > w - 3 THEN a$ = STRING$(3, 250) + RIGHT$(a$, w - 3) - PRINT a$; + _PRINTSTRING (p.x + 2 + 6, p.y + 4), a$ '-------- end of custom display changes -------- @@ -7600,12 +11997,14 @@ FUNCTION ideopen$ alt = KALT: IF alt <> oldalt THEN change = 1 oldalt = alt - IF _TOTALDROPPEDFILES > 0 THEN - idetxt(o(1).txt) = _DROPPEDFILE$(1) - o(1).v1 = LEN(idetxt(o(1).txt)) - focus = 1 - _FINISHDROP - change = 1 + IF mode = 1 THEN + IF _TOTALDROPPEDFILES > 0 THEN + idetxt(o(1).txt) = _DROPPEDFILE$(1) + o(1).v1 = LEN(idetxt(o(1).txt)) + focus = 1 + _FINISHDROP + change = 1 + END IF END IF _LIMIT 100 @@ -7659,124 +12058,212 @@ FUNCTION ideopen$ END IF END IF - IF AllFiles = 1 AND o(4).sel <> 0 THEN - AllFiles = 0 - idetxt(o(2).txt) = idezfilelist$(path$, AllFiles) - o(2).sel = -1 - GOTO ideopenloop - END IF - IF AllFiles = 0 AND o(4).sel = 0 THEN - AllFiles = 1 - idetxt(o(2).txt) = idezfilelist$(path$, AllFiles) + IF o(4).sel <> prevBASOnly THEN + prevBASOnly = o(4).sel + IF o(4).sel = 0 THEN AllFiles = 1 ELSE AllFiles = 0 + idetxt(o(2).txt) = idezfilelist$(path$, AllFiles, "") o(2).sel = -1 GOTO ideopenloop END IF - IF K$ = CHR$(27) OR (focus = 6 AND info <> 0) THEN - ideopen$ = "C" - EXIT FUNCTION - END IF - - IF idetxt(o(2).stx) <> "" THEN - idetxt(o(1).txt) = idetxt(o(2).stx) - o(1).v1 = LEN(idetxt(o(1).txt)) - END IF - - IF focus = 3 THEN - IF K$ = CHR$(13) OR info = 1 THEN - - path$ = idezchangepath(path$, idetxt(o(3).stx)) - idetxt(o(2).txt) = idezfilelist$(path$, AllFiles) - idetxt(o(3).txt) = idezpathlist$(path$) - - o(2).sel = -1 - o(3).sel = 1 - IF info = 1 THEN o(3).sel = -1 + IF focus = 5 AND info <> 0 THEN + 'create new folder + newpath$ = idenewfolder(path$) + IF LEN(newpath$) THEN + f$ = removeDoubleSlashes$(newpath$) + GOTO changepath + ELSE GOTO ideopenloop END IF END IF - 'load file - IF K$ = CHR$(13) OR (info = 1 AND focus = 2) OR (focus = 5 AND info <> 0) THEN + IF K$ = CHR$(27) OR (focus = 7 AND info <> 0) THEN + idefiledialog$ = "C" + EXIT FUNCTION + END IF + + IF focus = 2 AND o(2).sel <> prevFileBoxSel THEN + prevFileBoxSel = o(2).sel + idetxt(o(1).txt) = idetxt(o(2).stx) + o(1).issel = 0 + END IF + + IF focus = 3 THEN + IF (K$ = CHR$(13) OR info = 1) AND o(3).sel >= 1 THEN + newpath$ = removeDoubleSlashes$(idetxt(o(3).stx)) + IF newpath$ = "" THEN + newpath$ = ".." + f$ = newpath$ + GOTO changepath + ELSE + path$ = removeDoubleSlashes$(idezchangepath(path$, newpath$)) + idetxt(o(2).txt) = idezfilelist$(path$, AllFiles, "") + idetxt(o(3).txt) = idezpathlist$(path$) + + o(2).sel = -1 + o(3).sel = 1 + IF info = 1 THEN o(3).sel = -1 + GOTO ideopenloop + END IF + END IF + END IF + + 'load or save file + IF K$ = CHR$(13) OR (info = 1 AND focus = 2) OR (focus = 6 AND info <> 0) THEN f$ = idetxt(o(1).txt) + IF _FILEEXISTS(f$) THEN GOTO DirectLoad + + IF f$ = "" AND focus = 1 AND K$ = CHR$(13) THEN + 'reset filters + idetxt(o(2).txt) = idezfilelist$(path$, AllFiles, "") + o(2).sel = -1 + GOTO ideopenloop + ELSEIF f$ = "" AND focus = 6 AND info <> 0 THEN + GOTO ideopenloop + END IF + 'change path? - IF f$ = ".." OR f$ = "." THEN f$ = f$ + idepathsep$ - IF RIGHT$(f$, 1) = idepathsep$ THEN - path$ = idezgetfilepath$(path$, f$) 'note: path ending with pathsep needn't contain a file - idetxt(o(1).txt) = "" - idetxt(o(2).txt) = idezfilelist$(path$, AllFiles) + changepath: + IF _DIREXISTS(path$ + idepathsep$ + f$) THEN + 'check/acquire file path + path$ = removeDoubleSlashes$(idezgetfilepath$(path$, f$ + idepathsep$)) 'note: path ending with pathsep needn't contain a file + IF ideerror > 1 THEN EXIT FUNCTION + + IF LEN(newpath$) = 0 THEN + idetxt(o(1).txt) = "" + focus = 1 + ELSE + newpath$ = "" + END IF + idetxt(o(2).txt) = idezfilelist$(path$, AllFiles, "") o(2).sel = -1 idetxt(o(3).txt) = idezpathlist$(path$) o(3).sel = -1 GOTO ideopenloop END IF - 'add .bas if not given - IF (LCASE$(RIGHT$(f$, 4)) <> ".bas") AND AllFiles = 0 THEN f$ = f$ + ".bas" - - DirectLoad: - - 'check/acquire file path - path$ = idezgetfilepath$(path$, f$) - 'check file exists - ideerror = 2 - OPEN path$ + idepathsep$ + f$ FOR INPUT AS #150: CLOSE #150 - - IF BinaryFormatCheck%(path$, idepathsep$, f$) > 0 THEN - IF LEN(IdeOpenFile) THEN - ideopen$ = "C" - EXIT FUNCTION - ELSE - info = 0: GOTO ideopenloop + 'wildcards search + IF INSTR(f$, "?") > 0 OR INSTR(f$, "*") > 0 THEN + IF INSTR(f$, "/") > 0 OR INSTR(f$, "\") > 0 THEN + 'path + wildcards + path$ = removeDoubleSlashes$(idezgetfilepath$(path$, f$)) 'note: path ending with pathsep needn't contain a file + IF ideerror > 1 THEN EXIT FUNCTION + idetxt(o(3).txt) = idezpathlist$(path$) + o(3).sel = -1 END IF + idetxt(o(1).txt) = f$ + idetxt(o(2).txt) = idezfilelist$(path$, 2, f$) + o(2).sel = -1 + o(1).v1 = LEN(idetxt(o(1).txt)) + o(1).issel = -1 + o(1).sx1 = 0 + IF LCASE$(RIGHT$(f$, 4)) <> ".bas" THEN + AllFiles = 0 + o(4).sel = 0 + prevBASOnly = o(4).sel + END IF + GOTO ideopenloop END IF - 'load file - ideerror = 3 - idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0 - idesx = 1 - idesy = 1 - idecx = 1 - idecy = 1 - ideselect = 0 - idefocusline = 0 - lineinput3load path$ + idepathsep$ + f$ - idet$ = SPACE$(LEN(lineinput3buffer) * 8) - i2 = 1 - n = 0 - chrtab$ = CHR$(9) - space1$ = " ": space2$ = " ": space3$ = " ": space4$ = " " - chr7$ = CHR$(7): chr11$ = CHR$(11): chr12$ = CHR$(12): chr28$ = CHR$(28): chr29$ = CHR$(29): chr30$ = CHR$(30): chr31$ = CHR$(31) - DO - a$ = lineinput3$ - l = LEN(a$) - IF l THEN asca = ASC(a$) ELSE asca = -1 - IF asca <> 13 THEN - IF asca <> -1 THEN - 'fix tabs - ideopenfixtabs: - x = INSTR(a$, chrtab$) - IF x THEN - x2 = (x - 1) MOD 4 - IF x2 = 0 THEN a$ = LEFT$(a$, x - 1) + space4$ + RIGHT$(a$, l - x): l = l + 3: GOTO ideopenfixtabs - IF x2 = 1 THEN a$ = LEFT$(a$, x - 1) + space3$ + RIGHT$(a$, l - x): l = l + 2: GOTO ideopenfixtabs - IF x2 = 2 THEN a$ = LEFT$(a$, x - 1) + space2$ + RIGHT$(a$, l - x): l = l + 1: GOTO ideopenfixtabs - IF x2 = 3 THEN a$ = LEFT$(a$, x - 1) + space1$ + RIGHT$(a$, l - x): GOTO ideopenfixtabs - END IF - END IF 'asca<>-1 - MID$(idet$, i2, l + 8) = MKL$(l) + a$ + MKL$(l): i2 = i2 + l + 8: n = n + 1 + DirectLoad: + path$ = removeDoubleSlashes$(idezgetfilepath$(path$, f$)) 'repeat in case of DirectLoad + IF ideerror > 1 THEN EXIT FUNCTION + + IF mode = 1 THEN + IF _FILEEXISTS(path$ + idepathsep$ + f$) = 0 THEN + 'add .bas if not given + IF (LCASE$(RIGHT$(f$, 4)) <> ".bas") AND AllFiles = 0 THEN f$ = f$ + ".bas" END IF - LOOP UNTIL asca = 13 - lineinput3buffer = "" - iden = n: IF n = 0 THEN idet$ = MKL$(0) + MKL$(0): iden = 1 ELSE idet$ = LEFT$(idet$, i2 - 1) - ideerror = 1 - ideprogname = f$: _TITLE ideprogname + " - QB64" - listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength) - idepath$ = path$ - IdeAddRecent idepath$ + idepathsep$ + ideprogname$ - IdeImportBookmarks idepath$ + idepathsep$ + ideprogname$ - EXIT FUNCTION + + 'check file exists + ideerror = 2 + IF _FILEEXISTS(path$ + idepathsep$ + f$) = 0 THEN EXIT FUNCTION + + IF BinaryFormatCheck%(path$, idepathsep$, f$) > 0 THEN + IF LEN(IdeOpenFile) THEN + idefiledialog$ = "C" + EXIT FUNCTION + ELSE + info = 0: GOTO ideopenloop + END IF + END IF + + 'load file + ideerror = 3 + idet$ = MKL$(0) + MKL$(0): idel = 1: ideli = 1: iden = 1: IdeBmkN = 0 + idesx = 1 + idesy = 1 + idecx = 1 + idecy = 1 + ideselect = 0 + idefocusline = 0 + lineinput3load path$ + idepathsep$ + f$ + idet$ = SPACE$(LEN(lineinput3buffer) * 8) + i2 = 1 + n = 0 + chrtab$ = CHR$(9) + space1$ = " ": space2$ = " ": space3$ = " ": space4$ = " " + chr7$ = CHR$(7): chr11$ = CHR$(11): chr12$ = CHR$(12): chr28$ = CHR$(28): chr29$ = CHR$(29): chr30$ = CHR$(30): chr31$ = CHR$(31) + DO + a$ = lineinput3$ + l = LEN(a$) + IF l THEN asca = ASC(a$) ELSE asca = -1 + IF asca <> 13 THEN + IF asca <> -1 THEN + 'fix tabs + ideopenfixtabs: + x = INSTR(a$, chrtab$) + IF x THEN + x2 = (x - 1) MOD 4 + IF x2 = 0 THEN a$ = LEFT$(a$, x - 1) + space4$ + RIGHT$(a$, l - x): l = l + 3: GOTO ideopenfixtabs + IF x2 = 1 THEN a$ = LEFT$(a$, x - 1) + space3$ + RIGHT$(a$, l - x): l = l + 2: GOTO ideopenfixtabs + IF x2 = 2 THEN a$ = LEFT$(a$, x - 1) + space2$ + RIGHT$(a$, l - x): l = l + 1: GOTO ideopenfixtabs + IF x2 = 3 THEN a$ = LEFT$(a$, x - 1) + space1$ + RIGHT$(a$, l - x): GOTO ideopenfixtabs + END IF + END IF 'asca<>-1 + MID$(idet$, i2, l + 8) = MKL$(l) + a$ + MKL$(l): i2 = i2 + l + 8: n = n + 1 + END IF + LOOP UNTIL asca = 13 + lineinput3buffer = "" + iden = n: IF n = 0 THEN idet$ = MKL$(0) + MKL$(0): iden = 1 ELSE idet$ = LEFT$(idet$, i2 - 1) + REDIM IdeBreakpoints(iden) AS _BYTE + REDIM IdeSkipLines(iden) AS _BYTE + variableWatchList$ = "" + backupVariableWatchList$ = "": REDIM backupUsedVariableList(1000) AS usedVarList + backupTypeDefinitions$ = "" + callstacklist$ = "": callStackLength = 0 + + ideerror = 1 + ideprogname = f$: _TITLE ideprogname + " - " + WindowTitle + listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength) + idepath$ = path$ + IdeAddRecent idepath$ + idepathsep$ + ideprogname$ + IdeImportBookmarks idepath$ + idepathsep$ + ideprogname$ + EXIT FUNCTION + ELSEIF mode = 2 THEN + IF FileHasExtension(f$) = 0 THEN f$ = f$ + ".bas" + + ideerror = 3 + OPEN path$ + idepathsep$ + f$ FOR BINARY AS #150 + ideerror = 1 + IF LOF(150) THEN + CLOSE #150 + a$ = idefileexists(f$) + IF a$ = "N" THEN + idefiledialog$ = "C" + EXIT FUNCTION 'user didn't agree to overwrite + END IF + ELSE + CLOSE #150 + END IF + ideprogname$ = f$: _TITLE ideprogname + " - " + WindowTitle + idesave path$ + idepathsep$ + f$ + idepath$ = path$ + IdeAddRecent idepath$ + idepathsep$ + ideprogname$ + IdeSaveBookmarks idepath$ + idepathsep$ + ideprogname$ + EXIT FUNCTION + END IF END IF ideopenloop: @@ -7797,239 +12284,27 @@ SUB idepar (par AS idedbptype, w, h, title$) END SUB FUNCTION iderestore$ - - '-------- generic dialog box header -------- PCOPY 3, 0 PCOPY 0, 2 PCOPY 0, 1 SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - 'idepar p, 30, 6, "File already exists. Overwrite?" - idepar p, 43, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("#Yes" + sep + "#No") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 3: PRINT "Recover program from auto-saved backup?"; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF info THEN - IF info = 1 THEN iderestore$ = "Y" ELSE iderestore$ = "N" - EXIT FUNCTION - END IF - - 'end of custom controls - mousedown = 0 - mouseup = 0 - LOOP - + result = idemessagebox("Backup found", "Recover program from auto-saved backup?", "#Yes;#No") + IF result = 1 THEN iderestore$ = "Y" ELSE iderestore$ = "N" END FUNCTION FUNCTION ideclearhistory$ (WhichHistory$) - - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - 'idepar p, 30, 6, "File already exists. Overwrite?" - idepar p, 48, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("#Yes" + sep + "#No") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 3 - SELECT CASE WhichHistory$ - CASE "SEARCH": PRINT "This cannot be undone. Clear search history?"; - CASE "FILES": PRINT " This cannot be undone. Clear recent files?"; - CASE "INVALID": PRINT " Remove broken links from recent files?"; - END SELECT - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF info THEN - IF info = 1 THEN ideclearhistory$ = "Y" ELSE ideclearhistory$ = "N" - EXIT FUNCTION - END IF - - IF K$ = CHR$(27) THEN - ideclearhistory$ = "N" - EXIT FUNCTION - END IF - - 'end of custom controls - mousedown = 0 - mouseup = 0 - LOOP - + SELECT CASE WhichHistory$ + CASE "SEARCH": t$ = "Clear search history": m$ = "This cannot be undone. Proceed?" + CASE "FILES": t$ = "Clear recent files": m$ = "This cannot be undone. Proceed?" + END SELECT + result = idemessagebox(t$, m$, "#Yes;#No") + IF result = 1 THEN ideclearhistory$ = "Y" ELSE ideclearhistory$ = "N" END FUNCTION SUB idesave (f$) + ideerror = 6 OPEN f$ FOR OUTPUT AS #151 + ideerror = 1 FOR i = 1 TO iden a$ = idegetline(i) PRINT #151, a$ @@ -8039,319 +12314,14 @@ SUB idesave (f$) ideunsaved = 0 END SUB -FUNCTION idesaveas$ (programname$) - '-------- generic dialog box header -------- - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - path$ = idepath$ - pathlist$ = idezpathlist$(path$) - - i = 0 - idepar p, 48, idewy + idesubwindow - 7, "Save As" - - i = i + 1 - PrevFocus = 1 - o(i).typ = 1 - o(i).y = 2 - o(i).nam = idenewtxt("File #Name") - o(i).txt = idenewtxt(programname$) - o(i).issel = -1 - o(i).sx1 = 0 - o(i).v1 = LEN(programname$) - - 'i = i + 1 - 'o(i).typ = 2 - 'o(i).y = 5 - 'o(i).w = 32: o(i).h = 11 - 'o(i).nam = idenewtxt("#Files") - 'o(i).txt = idenewtxt(filelist$): filelist$ = "" - - i = i + 1 - o(i).typ = 2 - 'o(i).x = 10: - o(i).y = 5 - o(i).w = 44: o(i).h = idewy + idesubwindow - 14 - o(i).nam = idenewtxt("#Paths") - o(i).txt = idenewtxt(pathlist$): pathlist$ = "" - - i = i + 1 - o(i).typ = 3 - o(i).y = idewy + idesubwindow - 7 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 4, p.x + 2: PRINT "Path: "; - a$ = path$ - w = p.w - 8 - IF LEN(a$) > w - 3 THEN a$ = STRING$(3, 250) + RIGHT$(a$, w - 3) - PRINT a$; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF focus <> PrevFocus THEN - 'Always start with TextBox values selected upon getting focus - PrevFocus = focus - IF focus = 1 THEN - o(focus).v1 = LEN(idetxt(o(focus).txt)) - IF o(focus).v1 > 0 THEN o(focus).issel = -1 - o(focus).sx1 = 0 - END IF - END IF - - IF K$ = CHR$(27) OR (focus = 4 AND info <> 0) THEN - idesaveas$ = "C" - EXIT FUNCTION - END IF - - IF focus = 2 THEN - IF K$ = CHR$(13) OR info = 1 THEN - path$ = idezchangepath(path$, idetxt(o(2).stx)) - idetxt(o(2).txt) = idezpathlist$(path$) - o(2).sel = 1 - IF info = 1 THEN o(2).sel = -1 - END IF - END IF - - IF (K$ = CHR$(13) AND focus <> 2) OR (focus = 3 AND info <> 0) THEN - f$ = idetxt(o(1).txt) - - 'change path? - IF f$ = ".." OR f$ = "." THEN f$ = f$ + idepathsep$ - IF RIGHT$(f$, 1) = idepathsep$ THEN - path$ = idezgetfilepath$(path$, f$) 'note: path ending with pathsep needn't contain a file - idetxt(o(1).txt) = "" - idetxt(o(2).txt) = idezpathlist$(path$) - o(2).sel = -1 - GOTO idesaveasloop - END IF - - IF FileHasExtension(f$) = 0 THEN f$ = f$ + ".bas" - - path$ = idezgetfilepath$(path$, f$) - ideerror = 3 - OPEN path$ + idepathsep$ + f$ FOR BINARY AS #150 - ideerror = 1 - IF LOF(150) THEN - CLOSE #150 - a$ = idefileexists - IF a$ = "N" THEN - idesaveas$ = "C" - EXIT FUNCTION 'user didn't agree to overwrite - END IF - ELSE - CLOSE #150 - END IF - ideprogname$ = f$: _TITLE ideprogname + " - QB64" - idesave path$ + idepathsep$ + f$ - idepath$ = path$ - IdeAddRecent idepath$ + idepathsep$ + ideprogname$ - IdeSaveBookmarks idepath$ + idepathsep$ + ideprogname$ - EXIT FUNCTION - END IF - - idesaveasloop: - - 'end of custom controls - mousedown = 0 - mouseup = 0 - LOOP - -END FUNCTION - FUNCTION idesavenow$ - - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, 40, 4, "" - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("#Yes" + sep + "#No" + sep + "#Cancel") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 4: PRINT "Program is not saved. Save it now?"; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - IF UCASE$(K$) = "C" THEN altletter$ = "C" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF K$ = CHR$(27) THEN - idesavenow$ = "C" - EXIT FUNCTION - END IF - - IF info THEN - IF info = 1 THEN idesavenow$ = "Y" - IF info = 2 THEN idesavenow$ = "N" - IF info = 3 THEN idesavenow$ = "C" - EXIT FUNCTION - END IF - - 'end of custom controls - mousedown = 0 - mouseup = 0 - LOOP - + m$ = "Program is not saved. Save it now?" + result = idemessagebox("", m$, "#Yes;#No;#Cancel") + SELECT CASE result + CASE 1: idesavenow$ = "Y" + CASE 2: idesavenow$ = "N" + CASE 0, 3: idesavenow$ = "C" + END SELECT END FUNCTION SUB idesetline (i, text$) @@ -8364,113 +12334,125 @@ SUB idesetline (i, text$) END SUB +FUNCTION timeElapsedSince! (startTime!) + IF startTime! > TIMER THEN startTime! = startTime! - 86400 + timeElapsedSince! = TIMER - startTime! +END FUNCTION + SUB ideshowtext - _PALETTECOLOR 1, IDEBackgroundColor, 0 - _PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details - _PALETTECOLOR 5, IDEBracketHighlightColor, 0 - _PALETTECOLOR 6, IDEBackgroundColor2, 0 - _PALETTECOLOR 8, IDENumbersColor, 0 - _PALETTECOLOR 10, IDEMetaCommandColor, 0 - _PALETTECOLOR 11, IDECommentColor, 0 - _PALETTECOLOR 12, IDEKeywordColor, 0 - _PALETTECOLOR 13, IDETextColor, 0 - _PALETTECOLOR 14, IDEQuoteColor, 0 + IF ideshowtextBypassColorRestore = 0 THEN + _PALETTECOLOR 1, IDEBackgroundColor, 0 + _PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details + _PALETTECOLOR 5, IDEBracketHighlightColor, 0 + _PALETTECOLOR 6, IDEBackgroundColor2, 0 + _PALETTECOLOR 7, IDEChromaColor, 0 + _PALETTECOLOR 8, IDENumbersColor, 0 + _PALETTECOLOR 10, IDEMetaCommandColor, 0 + _PALETTECOLOR 11, IDECommentColor, 0 + _PALETTECOLOR 12, IDEKeywordColor, 0 + _PALETTECOLOR 13, IDETextColor, 0 + _PALETTECOLOR 14, IDEQuoteColor, 0 + END IF + ideshowtextBypassColorRestore = 0 char.sep$ = CHR$(34) + " =<>+-/\^:;,*()'" + initialNum.char$ = "0123456789-.&" + num.char$ = "0123456789EDed+-.`%&!#~HBOhboACFacf" + + DIM ideshowtext_comment AS _BYTE, ideshowtext_quote AS _BYTE STATIC prevListOfCustomWords$, manualList AS _BYTE + DIM startTime AS SINGLE - IF idefocusline <> 0 THEN - 'there's an error and compilation is halted, - 'so we'll build the list of subs/functions - 'for proper highlighting: - IF idechangemade THEN manualList = 0 - IF manualList = 0 THEN - manualList = -1 - listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength) - FOR y = 1 TO iden - a$ = UCASE$(LTRIM$(RTRIM$(idegetline(y)))) - sf = 0 - IF LEFT$(a$, 4) = "SUB " THEN sf = 1 - IF LEFT$(a$, 9) = "FUNCTION " THEN sf = 2 - IF sf THEN - IF RIGHT$(a$, 7) = " STATIC" THEN - a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) + startTime = TIMER + + IF NOT DisableSyntaxHighlighter THEN + IF idefocusline <> 0 THEN + 'there's an error and compilation is halted, + 'so we'll build the list of subs/functions + 'for proper highlighting: + IF idechangemade THEN manualList = 0 + IF manualList = 0 THEN + manualList = -1 + listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength) + FOR y = 1 TO iden + a$ = UCASE$(_TRIM$(idegetline(y))) + sf = 0 + IF LEFT$(a$, 4) = "SUB " THEN sf = 1 + IF LEFT$(a$, 9) = "FUNCTION " THEN sf = 2 + IF sf THEN + IF RIGHT$(a$, 7) = " STATIC" THEN + a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) + END IF + + IF sf = 1 THEN + a$ = MID$(a$, 5) + ELSE + a$ = MID$(a$, 10) + END IF + + a$ = LTRIM$(RTRIM$(a$)) + x = INSTR(a$, "(") + IF x THEN + a$ = RTRIM$(LEFT$(a$, x - 1)) + ELSE + cleanSubName a$ + END IF + listOfCustomKeywords$ = listOfCustomKeywords$ + "@" + removesymbol2$(a$) + "@" END IF - - IF sf = 1 THEN - a$ = MID$(a$, 5) - ELSE - a$ = MID$(a$, 10) - END IF - - a$ = LTRIM$(RTRIM$(a$)) - x = INSTR(a$, "(") - IF x THEN - a$ = RTRIM$(LEFT$(a$, x - 1)) - END IF - - 'attempt to cleanse n$, just in case there are any comments or other unwanted stuff - FOR CleanseN = 1 TO LEN(a$) - SELECT CASE MID$(a$, CleanseN, 1) - CASE " ", "'", ":" - a$ = LEFT$(a$, CleanseN - 1) - EXIT FOR - END SELECT - NEXT - listOfCustomKeywords$ = listOfCustomKeywords$ + "@" + removesymbol2$(a$) + "@" - END IF - NEXT + NEXT + END IF + ELSE + manualList = 0 END IF - ELSE - manualList = 0 - END IF - IF prevListOfCustomWords$ <> listOfCustomKeywords$ THEN - IF manualList = 0 THEN - DO - atSign = INSTR(atSign + 1, listOfCustomKeywords$, "@") - nextAt = INSTR(atSign + 1, listOfCustomKeywords$, "@") - IF nextAt = 0 THEN EXIT DO - IF atSign > customKeywordsLength THEN - checkKeyword$ = removesymbol2$(MID$(listOfCustomKeywords$, atSign + 1, (nextAt - atSign) - 1)) - IF LEN(checkKeyword$) THEN - hashchkflags = HASHFLAG_RESERVED + HASHFLAG_CONSTANT - hashchkflags = hashchkflags + HASHFLAG_FUNCTION - hashres1 = HashFind(checkKeyword$, hashchkflags, hashresflags, hashresref) - IF hashres1 <> 0 THEN hashres1 = 1 - hashchkflags = HASHFLAG_RESERVED + HASHFLAG_CONSTANT - hashchkflags = hashchkflags + HASHFLAG_SUB - hashres2 = HashFind(checkKeyword$, hashchkflags, hashresflags, hashresref) - IF hashres2 <> 0 THEN hashres2 = 1 - IF hashres1 + hashres2 = 0 THEN - 'remove this custom keyword if not registered - MID$(listOfCustomKeywords$, atSign + 1, (nextAt - atSign) - 1) = STRING$(LEN(checkKeyword$), "@") + IF prevListOfCustomWords$ <> listOfCustomKeywords$ THEN + IF manualList = 0 THEN + DO + atSign = INSTR(atSign + 1, listOfCustomKeywords$, "@") + nextAt = INSTR(atSign + 1, listOfCustomKeywords$, "@") + IF nextAt = 0 THEN EXIT DO + IF atSign > customKeywordsLength THEN + checkKeyword$ = removesymbol2$(MID$(listOfCustomKeywords$, atSign + 1, (nextAt - atSign) - 1)) + IF LEN(checkKeyword$) THEN + hashchkflags = HASHFLAG_RESERVED + HASHFLAG_CONSTANT + hashchkflags = hashchkflags + HASHFLAG_FUNCTION + hashres1 = HashFind(checkKeyword$, hashchkflags, hashresflags, hashresref) + IF hashres1 <> 0 THEN hashres1 = 1 + hashchkflags = HASHFLAG_RESERVED + HASHFLAG_CONSTANT + hashchkflags = hashchkflags + HASHFLAG_SUB + hashres2 = HashFind(checkKeyword$, hashchkflags, hashresflags, hashresref) + IF hashres2 <> 0 THEN hashres2 = 1 + IF hashres1 + hashres2 = 0 THEN + 'remove this custom keyword if not registered + MID$(listOfCustomKeywords$, atSign + 1, (nextAt - atSign) - 1) = STRING$(LEN(checkKeyword$), "@") + END IF END IF END IF - END IF - LOOP - END IF - - FOR i = 1 TO LEN(listOfCustomKeywords$) - checkChar = ASC(listOfCustomKeywords$, i) - IF checkChar = 64 THEN - IF RIGHT$(tempList$, 1) <> "@" THEN tempList$ = tempList$ + "@" - ELSE - tempList$ = tempList$ + CHR$(checkChar) + LOOP END IF - NEXT - listOfCustomKeywords$ = tempList$ - DO WHILE INSTR(listOfCustomKeywords$, fix046$) - x = INSTR(listOfCustomKeywords$, fix046$) - listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, x - 1) + "." + RIGHT$(listOfCustomKeywords$, LEN(listOfCustomKeywords$) - x + 1 - LEN(fix046$)) - LOOP + FOR i = 1 TO LEN(listOfCustomKeywords$) + checkChar = ASC(listOfCustomKeywords$, i) + IF checkChar = 64 THEN + IF RIGHT$(tempList$, 1) <> "@" THEN tempList$ = tempList$ + "@" + ELSE + tempList$ = tempList$ + CHR$(checkChar) + END IF + NEXT + listOfCustomKeywords$ = tempList$ - prevListOfCustomWords$ = listOfCustomKeywords$ + DO WHILE INSTR(listOfCustomKeywords$, fix046$) + x = INSTR(listOfCustomKeywords$, fix046$) + listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, x - 1) + "." + RIGHT$(listOfCustomKeywords$, LEN(listOfCustomKeywords$) - x + 1 - LEN(fix046$)) + LOOP + + prevListOfCustomWords$ = listOfCustomKeywords$ + END IF END IF + cc = -1 IF idecx < idesx THEN idesx = idecx @@ -8488,228 +12470,218 @@ SUB ideshowtext l = idesy EnteringRGB = 0 - idecy_multilinestart = 0 - idecy_multilineend = 0 - a$ = idegetline(idecy) - findquotecomment$ = a$: GOSUB FindQuoteComment - IF RIGHT$(a$, 1) = "_" AND ideshowtext_comment = 0 THEN - 'Find the beginning of the multiline - FOR idecy_i = idecy - 1 TO 1 STEP -1 - b$ = idegetline(idecy_i) - findquotecomment$ = b$: GOSUB FindQuoteComment - IF RIGHT$(b$, 1) <> "_" OR ideshowtext_comment = -1 THEN idecy_multilinestart = idecy_i + 1: EXIT FOR - NEXT - IF idecy_multilinestart = 0 THEN idecy_multilinestart = 1 - - 'Find the end of the multiline - FOR idecy_i = idecy + 1 TO iden - b$ = idegetline(idecy_i) - findquotecomment$ = b$: GOSUB FindQuoteComment - IF RIGHT$(b$, 1) <> "_" OR ideshowtext_comment = -1 THEN idecy_multilineend = idecy_i: EXIT FOR - NEXT - IF idecy_multilineend = 0 THEN idecy_multilinestart = iden - ELSE - IF idecy > 1 THEN b$ = idegetline(idecy - 1) ELSE b$ = "" - findquotecomment$ = b$: GOSUB FindQuoteComment - IF RIGHT$(b$, 1) = "_" AND ideshowtext_comment = 0 THEN - idecy_multilineend = idecy - + IF NOT DisableSyntaxHighlighter THEN + idecy_multilinestart = 0 + idecy_multilineend = 0 + a$ = idegetline(idecy) + FindQuoteComment a$, LEN(a$), ideshowtext_comment, ideshowtext_quote + IF RIGHT$(a$, 1) = "_" AND ideshowtext_comment = 0 THEN 'Find the beginning of the multiline FOR idecy_i = idecy - 1 TO 1 STEP -1 b$ = idegetline(idecy_i) - findquotecomment$ = b$: GOSUB FindQuoteComment + FindQuoteComment b$, LEN(b$), ideshowtext_comment, ideshowtext_quote IF RIGHT$(b$, 1) <> "_" OR ideshowtext_comment = -1 THEN idecy_multilinestart = idecy_i + 1: EXIT FOR NEXT IF idecy_multilinestart = 0 THEN idecy_multilinestart = 1 - END IF - END IF - IF idecy > 1 THEN b$ = idegetline(idecy - 1) ELSE b$ = "" - - ActiveINCLUDELink = 0 - - FOR y = 0 TO (idewy - 9) - LOCATE y + 3, 1 - COLOR 7, 1 - PRINT CHR$(179); 'clear prev bookmarks from lhs - - IF ShowLineNumbers THEN - IF ShowLineNumbersUseBG THEN COLOR , 6 - PRINT SPACE$(maxLineNumberLength); - IF l <= iden THEN - l2$ = STR$(l) - IF POS(1) - (LEN(l2$) + 1) >= 2 THEN - LOCATE y + 3, POS(1) - (LEN(l2$) + 1) - PRINT l2$; - END IF - END IF - IF ShowLineNumbersSeparator THEN LOCATE y + 3, 1 + maxLineNumberLength: PRINT CHR$(179); - COLOR , 1 - END IF - - IF l = idefocusline AND idecy <> l THEN - COLOR 7, 4 'Line with error gets a red background - ELSEIF idecy = l OR (l >= idecy_multilinestart AND l <= idecy_multilineend) THEN - IF HideCurrentLineHighlight = 0 THEN COLOR 7, 6 'Highlight the current line + 'Find the end of the multiline + FOR idecy_i = idecy + 1 TO iden + b$ = idegetline(idecy_i) + FindQuoteComment b$, LEN(b$), ideshowtext_comment, ideshowtext_quote + IF RIGHT$(b$, 1) <> "_" OR ideshowtext_comment = -1 THEN idecy_multilineend = idecy_i: EXIT FOR + NEXT + IF idecy_multilineend = 0 THEN idecy_multilinestart = iden ELSE - COLOR 7, 1 'Regular text color + IF idecy > 1 THEN b$ = idegetline(idecy - 1) ELSE b$ = "" + FindQuoteComment b$, LEN(b$), ideshowtext_comment, ideshowtext_quote + IF RIGHT$(b$, 1) = "_" AND ideshowtext_comment = 0 THEN + idecy_multilineend = idecy + + 'Find the beginning of the multiline + FOR idecy_i = idecy - 1 TO 1 STEP -1 + b$ = idegetline(idecy_i) + FindQuoteComment b$, LEN(b$), ideshowtext_comment, ideshowtext_quote + IF RIGHT$(b$, 1) <> "_" OR ideshowtext_comment = -1 THEN idecy_multilinestart = idecy_i + 1: EXIT FOR + NEXT + IF idecy_multilinestart = 0 THEN idecy_multilinestart = 1 + END IF END IF - IF l <= iden THEN - 'IF idecompiling = 0 AND INSTR(usedVariableList$, CHR$(1) + MKL$(l) + CHR$(2) + "VAR:" + CHR$(3)) > 0 THEN - ' LOCATE y + 3, 1 - ' prevBG% = _BACKGROUNDCOLOR - ' COLOR 15, 7 - ' PRINT CHR$(26); 'indicate there's an unused variable defined on this line - ' COLOR , prevBG% - 'END IF + IF idecy > 1 THEN b$ = idegetline(idecy - 1) ELSE b$ = "" - a$ = idegetline(l) - link_idecx = 0 - rgb_idecx = 0 - IF l = idecy THEN - IF idecx <= LEN(a$) AND idecx >= 1 THEN - cc = ASC(a$, idecx) - IF cc = 32 THEN - IF LTRIM$(LEFT$(a$, idecx)) = "" THEN cc = -1 + ActiveINCLUDELink = 0 + + FOR y = 0 TO (idewy - 9) + COLOR 7, 1 + _PRINTSTRING (1, y + 3), CHR$(179) 'clear prev bookmarks from lhs + + GOSUB ShowLineNumber + + IF (l = idefocusline AND idecy <> l AND IdeDebugMode = 0) OR (l = idefocusline AND idecy = l AND IdeDebugMode <> 0) THEN + COLOR 7, 4 'Line with error gets a red background + ELSEIF idecy = l OR (l >= idecy_multilinestart AND l <= idecy_multilineend) THEN + IF HideCurrentLineHighlight = 0 AND IdeSystem = 1 THEN COLOR 7, 6 'Highlight the current line + ELSE + COLOR 7, 1 'Regular text color + END IF + + IF l <= iden THEN + DO UNTIL l < UBOUND(InValidLine) 'make certain we have enough InValidLine elements to cover us in case someone scrolls QB64 + REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE ' to the end of a program before the IDE has finished + LOOP ' verifying the code and growing the array during the IDE passes. + + a$ = idegetline(l) + link_idecx = 0 + shiftEnter_idecx = 0 + IF l = idecy THEN + IF idecx <= LEN(a$) AND idecx >= 1 THEN + cc = ASC(a$, idecx) + IF cc = 32 THEN + IF LTRIM$(LEFT$(a$, idecx)) = "" THEN cc = -1 + END IF END IF - END IF - 'Check if the cursor is positioned inside a comment or - 'quotation marks: - findquotecomment$ = LEFT$(a$, idecx): GOSUB FindQuoteComment - idecx_comment = ideshowtext_comment - idecx_quote = ideshowtext_quote + 'Check if the cursor is positioned inside a comment or + 'quotation marks: + FindQuoteComment a$, idecx, ideshowtext_comment, ideshowtext_quote + idecx_comment = ideshowtext_comment + idecx_quote = ideshowtext_quote - 'Check if we're on a bracket, to highlight it and its match - brackets = 0 - bracket1 = 0 - bracket2 = 0 - IF idecx_comment + idecx_quote = 0 AND brackethighlight = -1 THEN - inquote = 0 - comment = 0 - IF MID$(a$, idecx, 1) = "(" THEN - brackets = 1 - bracket1 = idecx - ScanBracket2: - FOR k = bracket1 + 1 TO LEN(a$) - SELECT CASE MID$(a$, k, 1) - CASE CHR$(34) - inquote = NOT inquote - CASE "'" - IF inquote = 0 THEN comment = -1: EXIT FOR - END SELECT - IF MID$(a$, k, 1) = ")" AND inquote = 0 THEN - brackets = brackets - 1 - IF brackets = 0 THEN bracket2 = k: EXIT FOR - ELSEIF MID$(a$, k, 1) = "(" AND inquote = 0 THEN - brackets = brackets + 1 - END IF - NEXT - ELSEIF MID$(a$, idecx - 1, 1) = "(" AND MID$(a$, idecx, 1) <> CHR$(34) THEN - brackets = 1 - bracket1 = idecx - 1 - GOTO ScanBracket2 - ELSEIF MID$(a$, idecx, 1) = ")" THEN - brackets = 1 - bracket2 = idecx - ScanBracket1: - FOR k = bracket2 - 1 TO 1 STEP -1 - SELECT CASE MID$(a$, k, 1) - CASE CHR$(34) - inquote = NOT inquote - END SELECT - IF MID$(a$, k, 1) = "(" AND inquote = 0 THEN - brackets = brackets - 1 - IF brackets = 0 THEN bracket1 = k: EXIT FOR - ELSEIF MID$(a$, k, 1) = ")" AND inquote = 0 THEN - brackets = brackets + 1 - END IF - NEXT - ELSEIF MID$(a$, idecx - 1, 1) = ")" AND MID$(a$, idecx, 1) <> CHR$(34) THEN - brackets = 1 - bracket2 = idecx - 1 - GOTO ScanBracket1 - ELSE - 'Maybe there isn't an open bracket immediately to our left, - 'but maybe we're typing a line and there's an orphan open - 'bracket to our left, somewhere. It'll be highlighted until closed. - brackets = 1 - orphanBracket = 0 - IF idecx >= LEN(a$) + 1 THEN - FOR k = idecx - 1 TO 1 STEP -1 + 'Check if we're on a bracket, to highlight it and its match + brackets = 0 + bracket1 = 0 + bracket2 = 0 + IF idecx_comment + idecx_quote = 0 AND brackethighlight = -1 THEN + inquote = 0 + comment = 0 + IF MID$(a$, idecx, 1) = "(" THEN + brackets = 1 + bracket1 = idecx + ScanBracket2: + FOR k = bracket1 + 1 TO LEN(a$) + SELECT CASE MID$(a$, k, 1) + CASE CHR$(34) + inquote = NOT inquote + CASE "'" + IF inquote = 0 THEN comment = -1: EXIT FOR + END SELECT + IF MID$(a$, k, 1) = ")" AND inquote = 0 THEN + brackets = brackets - 1 + IF brackets = 0 THEN bracket2 = k: EXIT FOR + ELSEIF MID$(a$, k, 1) = "(" AND inquote = 0 THEN + brackets = brackets + 1 + END IF + NEXT + ELSEIF MID$(a$, idecx - 1, 1) = "(" AND MID$(a$, idecx, 1) <> CHR$(34) THEN + brackets = 1 + bracket1 = idecx - 1 + GOTO ScanBracket2 + ELSEIF MID$(a$, idecx, 1) = ")" THEN + brackets = 1 + bracket2 = idecx + ScanBracket1: + FOR k = bracket2 - 1 TO 1 STEP -1 SELECT CASE MID$(a$, k, 1) CASE CHR$(34) inquote = NOT inquote END SELECT IF MID$(a$, k, 1) = "(" AND inquote = 0 THEN brackets = brackets - 1 - IF brackets = 0 THEN bracket1 = k: orphanBracket = -1: EXIT FOR + IF brackets = 0 THEN bracket1 = k: EXIT FOR ELSEIF MID$(a$, k, 1) = ")" AND inquote = 0 THEN brackets = brackets + 1 END IF NEXT + ELSEIF MID$(a$, idecx - 1, 1) = ")" AND MID$(a$, idecx, 1) <> CHR$(34) THEN + brackets = 1 + bracket2 = idecx - 1 + GOTO ScanBracket1 END IF END IF - END IF - 'If the user is typing on the current line and has just inserted - 'an _RGB(, _RGB32(, _RGBA( or _RGBA32(, we'll offer the RGB - 'color mixer. - a2$ = UCASE$(a$) - IF idecx = LEN(a$) + 1 AND idecx_comment + idecx_quote = 0 THEN - IF RIGHT$(a2$, 5) = "_RGB(" OR _ - RIGHT$(a2$, 7) = "_RGB32(" OR _ - RIGHT$(a2$, 6) = "_RGBA(" OR _ - RIGHT$(a2$, 8) = "_RGBA32(" THEN - rgb_idecx = LEN(a$) - a$ = a$ + " --> Hit Shift+ENTER to open the RGB mixer" - EnteringRGB = -1 + 'If the user is typing on the current line and has just inserted + 'an _RGB(, _RGB32(, _RGBA( or _RGBA32(, we'll offer the RGB + 'color mixer. + a2$ = UCASE$(a$) + 'IF IdeAutoComplete AND idecx = LEN(a$) + 1 AND idecx_comment + idecx_quote = 0 THEN + IF idecx = LEN(a$) + 1 AND idecx_comment + idecx_quote = 0 THEN + IF (RIGHT$(a2$, 5) = "_RGB(" OR _ + RIGHT$(a2$, 7) = "_RGB32(" OR _ + RIGHT$(a2$, 6) = "_RGBA(" OR _ + RIGHT$(a2$, 8) = "_RGBA32(") OR _ + ((RIGHT$(a2$, 4) = "RGB(" OR _ + RIGHT$(a2$, 6) = "RGB32(" OR _ + RIGHT$(a2$, 5) = "RGBA(" OR _ + RIGHT$(a2$, 7) = "RGBA32(") AND qb64prefix_set = 1) THEN + shiftEnter_idecx = LEN(a$) + a$ = a$ + " --> Shift+ENTER to open the RGB mixer" + EnteringRGB = -1 + END IF + ELSEIF idecx_comment + idecx_quote = 0 THEN + IF (MID$(a2$, idecx - 5, 5) = "_RGB(" OR _ + MID$(a2$, idecx - 7, 7) = "_RGB32(" OR _ + MID$(a2$, idecx - 6, 6) = "_RGBA(" OR _ + MID$(a2$, idecx - 8, 8) = "_RGBA32(") OR _ + ((MID$(a2$, idecx - 4, 4) = "RGB(" OR _ + MID$(a2$, idecx - 6, 6) = "RGB32(" OR _ + MID$(a2$, idecx - 5, 5) = "RGBA(" OR _ + MID$(a2$, idecx - 7, 7) = "RGBA32(") AND qb64prefix_set = 1) THEN + IF INSTR("0123456789", MID$(a2$, idecx, 1)) = 0 THEN EnteringRGB = -1 + END IF END IF - ELSEIF idecx_comment + idecx_quote = 0 THEN - IF MID$(a2$, idecx - 5, 5) = "_RGB(" OR _ - MID$(a2$, idecx - 7, 7) = "_RGB32(" OR _ - MID$(a2$, idecx - 6, 6) = "_RGBA(" OR _ - MID$(a2$, idecx - 8, 8) = "_RGBA32(" THEN - IF INSTR("0123456789", MID$(a2$, idecx, 1)) = 0 THEN EnteringRGB = -1 + + FindInclude = _INSTRREV(a2$, "$INCLUDE") + IF FindInclude > 0 THEN + link_idecx = LEN(a$) + FindApostrophe1 = INSTR(FindInclude + 8, a2$, "'") + FindApostrophe2 = INSTR(FindApostrophe1 + 1, a2$, "'") + ActiveINCLUDELinkFile = MID$(a$, FindApostrophe1 + 1, FindApostrophe2 - FindApostrophe1 - 1) + p$ = idepath$ + pathsep$ + f$ = p$ + ActiveINCLUDELinkFile + IF _FILEEXISTS(f$) OR _FILEEXISTS(ActiveINCLUDELinkFile) THEN + a$ = a$ + " --> Double-click to open": ActiveINCLUDELink = idecy + END IF END IF + END IF 'l = idecy + + a2$ = SPACE$(idesx + (idewx - 3)) + MID$(a2$, 1) = a$ + ELSE + a2$ = SPACE$((idewx - 2)) + END IF + + 'Syntax highlighter + inquote = 0 + metacommand = 0 + comment = 0 + isKeyword = 0: oldChar$ = "" + isCustomKeyword = 0 + multiHighlightLength = 0 + prevBG% = _BACKGROUNDCOLOR + + FOR m = 1 TO LEN(a2$) 'print to the screen while checking required color changes + IF timeElapsedSince(startTime) > 1 THEN + result = idemessagebox("Syntax Highlighter Disabled", "Syntax Highlighter has been disabled to avoid slowing down the IDE.\nYou can reenable the Highlighter in the 'Options' menu.", "") + DisableSyntaxHighlighter = -1 + WriteConfigSetting generalSettingsSection$, "DisableSyntaxHighlighter", "True" + menu$(OptionsMenuID, OptionsMenuDisableSyntax) = "Syntax #Highlighter" + GOTO noSyntaxHighlighting END IF - - FindInclude = INSTR(a2$, "$INCLUDE") - IF FindInclude > 0 THEN - link_idecx = LEN(a$) - ActiveINCLUDELink = idecy - FindApostrophe1 = INSTR(FindInclude + 8, a2$, "'") - FindApostrophe2 = INSTR(FindApostrophe1 + 1, a2$, "'") - ActiveINCLUDELinkFile = MID$(a$, FindApostrophe1 + 1, FindApostrophe2 - FindApostrophe1 - 1) - p$ = idepath$ + pathsep$ - f$ = p$ + ActiveINCLUDELinkFile - IF _FILEEXISTS(f$) THEN a$ = a$ + " --> Double-click to open" - END IF - END IF 'l = idecy - - a2$ = SPACE$(idesx + (idewx - 3)) - MID$(a2$, 1) = a$ - ELSE - a2$ = SPACE$((idewx - 2)) - END IF - - 'Syntax highlighter - inquote = 0 - metacommand = 0 - comment = 0 - isKeyword = 0: oldChar$ = "" - isCustomKeyword = 0 - multiHighlightLength = 0 - prevBG% = _BACKGROUNDCOLOR - - FOR m = 1 TO LEN(a2$) 'print to the screen while checking required color changes - IF m > idesx + idewx - 2 THEN EXIT FOR - IF ideselect = 1 AND LEN(ideCurrentSingleLineSelection) > 0 AND multiHighlightLength = 0 AND multihighlight = -1 THEN - 'the current selection was found at this spot. Multi-highlight takes place: - IF LCASE$(MID$(a2$, m, LEN(ideCurrentSingleLineSelection))) = LCASE$(ideCurrentSingleLineSelection) THEN - IF m > 1 THEN - IF INSTR(char.sep$, MID$(a2$, m - 1, 1)) > 0 THEN + IF m > idesx + idewx - 2 THEN EXIT FOR 'stop printing when off screen + IF ideselect = 1 AND LEN(ideCurrentSingleLineSelection) > 0 AND multiHighlightLength = 0 AND multihighlight = -1 THEN + IF LCASE$(MID$(a2$, m, LEN(ideCurrentSingleLineSelection))) = LCASE$(ideCurrentSingleLineSelection) THEN + 'the current selection was found at this spot. Multi-highlight takes place: + IF m > 1 THEN + IF INSTR(char.sep$, MID$(a2$, m - 1, 1)) > 0 THEN + IF m + LEN(ideCurrentSingleLineSelection) < LEN(a2$) AND _ + (INSTR(char.sep$, MID$(a2$, m + LEN(ideCurrentSingleLineSelection), 1)) > 0 OR _ + MID$(a2$, m + LEN(ideCurrentSingleLineSelection), 1) = ".") THEN + multiHighlightLength = LEN(ideCurrentSingleLineSelection) + ELSEIF m + LEN(ideCurrentSingleLineSelection) >= LEN(a2$) THEN + multiHighlightLength = LEN(ideCurrentSingleLineSelection) + END IF + END IF + ELSE IF m + LEN(ideCurrentSingleLineSelection) < LEN(a2$) AND _ (INSTR(char.sep$, MID$(a2$, m + LEN(ideCurrentSingleLineSelection), 1)) > 0 OR _ MID$(a2$, m + LEN(ideCurrentSingleLineSelection), 1) = ".") THEN @@ -8718,235 +12690,256 @@ SUB ideshowtext multiHighlightLength = LEN(ideCurrentSingleLineSelection) END IF END IF - ELSE - IF m + LEN(ideCurrentSingleLineSelection) < LEN(a2$) AND _ - (INSTR(char.sep$, MID$(a2$, m + LEN(ideCurrentSingleLineSelection), 1)) > 0 OR _ - MID$(a2$, m + LEN(ideCurrentSingleLineSelection), 1) = ".") THEN - multiHighlightLength = LEN(ideCurrentSingleLineSelection) - ELSEIF m + LEN(ideCurrentSingleLineSelection) >= LEN(a2$) THEN - multiHighlightLength = LEN(ideCurrentSingleLineSelection) - END IF END IF END IF - END IF - IF comment = 0 THEN - SELECT CASE MID$(a2$, m, 1) - CASE CHR$(34): inquote = NOT inquote - CASE "'": IF inquote = 0 THEN comment = -1 - END SELECT - END IF + thisChar$ = MID$(a2$, m, 1) - COLOR 13 + IF comment = 0 THEN + SELECT CASE thisChar$ + CASE CHR$(34): inquote = NOT inquote + CASE "'": IF inquote = 0 THEN comment = -1 + END SELECT + END IF - thisChar$ = MID$(a2$, m, 1) - IF (LEN(oldChar$) > 0 OR m = 1) AND inquote = 0 AND isKeyword = 0 THEN - IF (INSTR(char.sep$, oldChar$) > 0 OR oldChar$ = "?") AND INSTR(char.sep$, thisChar$) = 0 THEN - 'a new "word" begins; check if it's an internal keyword - checkKeyword$ = "" - right.sep$ = "" - FOR i = m TO LEN(a2$) - IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): EXIT FOR - checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1) - NEXT - IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar - checkKeyword$ = UCASE$(checkKeyword$) - IF INSTR(listOfKeywords$, "@" + checkKeyword$ + "@") > 0 THEN - IF checkKeyword$ = "$END" THEN - IF UCASE$(MID$(a2$, m, 7)) = "$END IF" THEN checkKeyword$ = "$END IF" - ELSEIF checkKeyword$ = "THEN" AND _ + COLOR 13 + + IF InValidLine(l) THEN COLOR 7: GOTO SkipSyntaxHighlighter + + IF (LEN(oldChar$) > 0 OR m = 1) AND inquote = 0 AND isKeyword = 0 THEN + IF INSTR(initialNum.char$, thisChar$) > 0 AND oldChar$ <> ")" AND (INSTR(char.sep$, oldChar$) > 0 OR oldChar$ = "?") THEN + 'a number literal + checkKeyword$ = "" + is_Number = 0 + + FOR i = m TO LEN(a2$) + IF INSTR(num.char$, MID$(a2$, i, 1)) = 0 THEN EXIT FOR + checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1) + NEXT + + IF checkKeyword$ = "-" OR checkKeyword$ = "." OR checkKeyword$ = "&" THEN + checkKeyword$ = "" + ELSE + IF isnumber(checkKeyword$) THEN + is_Number = -1 + isKeyword = LEN(checkKeyword$) + ELSEIF INSTR(UserDefineList$, "@" + UCASE$(checkKeyword$)) > 0 THEN + 'keep checking + FOR i = i TO LEN(a2$) + IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): GOTO keywordAcquired + checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1) + NEXT + GOTO keywordAcquired + END IF + END IF + GOTO setOldChar + END IF + + IF (INSTR(char.sep$, oldChar$) > 0 OR oldChar$ = "?") AND INSTR(char.sep$, thisChar$) = 0 THEN + 'a new "word" begins; check if it's an internal keyword + checkKeyword$ = "" + right.sep$ = "" + FOR i = m TO LEN(a2$) + IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): EXIT FOR + checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1) + NEXT + IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar + keywordAcquired: + checkKeyword$ = UCASE$(checkKeyword$) + IF INSTR(listOfKeywords$, "@" + checkKeyword$ + "@") > 0 OR _ + (qb64prefix_set = 1 AND INSTR(listOfKeywords$, "@_" + checkKeyword$ + "@") > 0) THEN + 'special cases + IF checkKeyword$ = "$END" THEN + IF UCASE$(MID$(a2$, m, 7)) = "$END IF" THEN checkKeyword$ = "$END IF" + ELSEIF checkKeyword$ = "THEN" AND _ + (UCASE$(LEFT$(LTRIM$(a2$), 3)) = "$IF" OR _ + UCASE$(LEFT$(LTRIM$(a2$), 7)) = "$ELSEIF") THEN + metacommand = -1 + ELSEIF checkKeyword$ = "$ASSERTS" THEN + IF UCASE$(_TRIM$(a2$)) = "$ASSERTS:CONSOLE" THEN + checkKeyword$ = "$ASSERTS:CONSOLE" + END IF + END IF + isKeyword = LEN(checkKeyword$) + ELSEIF INSTR(listOfCustomKeywords$, "@" + removesymbol2$(checkKeyword$) + "@") > 0 THEN + isCustomKeyword = -1 + isKeyword = LEN(checkKeyword$) + ELSEIF INSTR(UserDefineList$, "@" + checkKeyword$ + "@") > 0 AND _ (UCASE$(LEFT$(LTRIM$(a2$), 3)) = "$IF" OR _ UCASE$(LEFT$(LTRIM$(a2$), 7)) = "$ELSEIF") THEN - metacommand = -1 + isCustomKeyword = -1 + isKeyword = LEN(checkKeyword$) END IF - isKeyword = LEN(checkKeyword$) - ELSEIF INSTR(listOfCustomKeywords$, "@" + removesymbol2$(checkKeyword$) + "@") > 0 THEN - isCustomKeyword = -1 - isKeyword = LEN(checkKeyword$) + END IF + END IF + setOldChar: + oldChar$ = thisChar$ + + IF isKeyword > 0 AND keywordHighlight THEN + IF is_Number THEN + COLOR 8 + ELSEIF isCustomKeyword THEN + COLOR 10 ELSE - 'maybe a number literal? - readFullNumber: - is_Number = 0 - extraChars = 0 - - 'Continue reading if checkKeyword$ ended in a "." - IF right.sep$ = "." OR thisChar$ = "-" OR thisChar$ = "." THEN - checkKeyword$ = checkKeyword$ + right.sep$ - FOR i = i + 1 TO LEN(a2$) - IF INSTR(char.sep$, MID$(a2$, i, 1)) THEN - IF MID$(a2$, i, 1) = "." AND right.sep$ = "." THEN - 'a number won't contain two ".", so this - 'can be safely discarded - checkKeyword$ = "" - END IF - EXIT FOR - END IF - checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1) - NEXT - END IF - - 'Remove eventual type sygils - SELECT CASE RIGHT$(checkKeyword$, 1) - CASE "`", "%", "&", "!", "#" - checkKeyword$ = LEFT$(checkKeyword$, LEN(checkKeyword$) - 1) - extraChars = 1 - END SELECT - - SELECT CASE RIGHT$(checkKeyword$, 1) - CASE "~", "%", "&", "#" - checkKeyword$ = LEFT$(checkKeyword$, LEN(checkKeyword$) - 1) - extraChars = extraChars + 1 - END SELECT - - IF RIGHT$(checkKeyword$, 1) = "~" THEN - checkKeyword$ = LEFT$(checkKeyword$, LEN(checkKeyword$) - 1) - extraChars = extraChars + 1 - END IF - - IF isnumber(checkKeyword$) THEN - is_Number = -1 - ELSEIF LEFT$(checkKeyword$, 2) = "&H" OR _ - LEFT$(checkKeyword$, 2) = "&O" OR _ - LEFT$(checkKeyword$, 2) = "&B" THEN - is_Number = -1 - END IF - IF is_Number THEN isKeyword = LEN(checkKeyword$) + extraChars ELSE checkKeyword$ = "" - END IF - ELSE - 'is this a negative number? - IF thisChar$ = "-" AND LEN(oldChar$) > 0 AND INSTR(char.sep$, oldChar$) > 0 THEN - nextChar$ = MID$(a2$, m + 1, 1) - checkNegNumber: - IF LEN(nextChar$) THEN - IF (ASC(nextChar$) >= 48 AND ASC(nextChar$) <= 57) THEN - 'it's a number - checkKeyword$ = "-" - right.sep$ = "" - i = m - GOTO readFullNumber - ELSEIF ASC(nextChar$) = 46 THEN - nextChar$ = MID$(a2$, m + 2, 1) - IF LEN(nextChar$) > 0 THEN - IF ASC(nextChar$) <> 46 THEN GOTO checkNegNumber - END IF - END IF - END IF + COLOR 12 END IF + IF LEFT$(checkKeyword$, 1) = "$" THEN metacommand = -1 END IF - END IF - setOldChar: - oldChar$ = thisChar$ - IF isKeyword > 0 AND keywordHighlight THEN - IF is_Number THEN - COLOR 8 - ELSEIF isCustomKeyword THEN + IF comment THEN + COLOR 11 + IF metacommand THEN + SELECT CASE checkKeyword$ + CASE "$INCLUDE" + IF INSTR(m + 1, UCASE$(a2$), checkKeyword$) = 0 THEN COLOR 10 + CASE "$DYNAMIC", "$STATIC" + IF INSTR(m + 1, UCASE$(a2$), "$DYNAMIC") = 0 AND INSTR(m + 1, UCASE$(a2$), "$STATIC") = 0 THEN COLOR 10 + END SELECT + END IF + ELSEIF metacommand THEN COLOR 10 + ELSEIF inquote OR thisChar$ = CHR$(34) THEN + COLOR 14 + END IF + + SkipSyntaxHighlighter: + + IF l = idecy AND (link_idecx > 0 AND m > link_idecx) THEN COLOR 10 + IF (shiftEnter_idecx > 0 AND m > shiftEnter_idecx) THEN COLOR 10 + + IF l = idecy AND (m = bracket1 OR m = bracket2) THEN + COLOR , 5 + ELSEIF multiHighlightLength > 0 AND multihighlight = -1 THEN + multiHighlightLength = multiHighlightLength - 1 + COLOR , 5 ELSE - COLOR 12 + COLOR , prevBG% END IF - IF LEFT$(checkKeyword$, 1) = "$" THEN metacommand = -1 - END IF - IF comment THEN - COLOR 11 - IF metacommand AND (checkKeyword$ = "$INCLUDE" OR checkKeyword$ = "$DYNAMIC" _ - OR checkKeyword$ = "$STATIC") THEN COLOR 10 - ELSEIF metacommand THEN - COLOR 10 - ELSEIF inquote OR MID$(a2$, m, 1) = CHR$(34) THEN - COLOR 14 - END IF - - IF l = idecy AND (m = bracket1 OR m = bracket2) THEN - COLOR , 5 - IF orphanBracket THEN COLOR , 4 - ELSEIF multiHighlightLength > 0 AND multihighlight = -1 THEN - multiHighlightLength = multiHighlightLength - 1 - COLOR , 5 - ELSE - COLOR , prevBG% - END IF - - IF l = idecy AND ((link_idecx > 0 AND m > link_idecx) OR _ - (rgb_idecx > 0 AND m > rgb_idecx)) THEN COLOR 10 - - DO UNTIL l < UBOUND(InValidLine) 'make certain we have enough InValidLine elements to cover us in case someone scrolls QB64 - REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT ' to the end of a program before the IDE has finished - LOOP ' verifying the code and growing the array during the IDE passes. - IF InValidLine(l) AND 1 THEN COLOR 7 - - IF ShowLineNumbers THEN - IF (2 + m - idesx) + maxLineNumberLength >= 2 + maxLineNumberLength AND (2 + m - idesx) + maxLineNumberLength < idewx THEN - LOCATE y + 3, (2 + m - idesx) + maxLineNumberLength - PRINT thisChar$; + IF ShowLineNumbers THEN + IF (2 + m - idesx) + maxLineNumberLength >= 2 + maxLineNumberLength AND (2 + m - idesx) + maxLineNumberLength < idewx THEN + _PRINTSTRING ((2 + m - idesx) + maxLineNumberLength, y + 3), thisChar$ + END IF + ELSE + IF 2 + m - idesx >= 2 AND 2 + m - idesx < idewx THEN + _PRINTSTRING (2 + m - idesx, y + 3), thisChar$ + END IF END IF - ELSE - IF 2 + m - idesx >= 2 AND 2 + m - idesx < idewx THEN - LOCATE y + 3, 2 + m - idesx - PRINT thisChar$; - END IF - END IF - 'Restore BG color in case a matching bracket was printed with different BG - IF l = idecy THEN COLOR , 6 - IF isKeyword > 0 THEN isKeyword = isKeyword - 1 - IF isKeyword = 0 THEN checkKeyword$ = "": metacommand = 0: is_Number = 0: isCustomKeyword = 0 - NEXT m + 'Restore BG color in case a matching bracket was printed with different BG + IF l = idecy THEN COLOR , 6 + IF isKeyword > 0 THEN isKeyword = isKeyword - 1 + IF isKeyword = 0 THEN checkKeyword$ = "": metacommand = 0: is_Number = 0: isCustomKeyword = 0 + NEXT m + + 'apply selection color change if necessary + IF (IdeSystem = 1 OR IdeSystem = 2) AND ideselect <> 0 THEN + IF l >= sy1 AND l <= sy2 THEN + IF sy1 = sy2 THEN 'single line select + COLOR 1, 7 + x2 = idesx + FOR x = 2 + maxLineNumberLength TO (idewx - 1) + IF x2 >= sx1 AND x2 < sx2 THEN + a = SCREEN(y + 3, x) + + IF a = 63 THEN '"?" + c = SCREEN(y + 3, x, 1) + ELSE + c = 1 + END IF + IF (c AND 15) = 0 THEN 'black background + COLOR 0, 7 + _PRINTSTRING (x, y + 3), "?" + COLOR 1, 7 + ELSE + _PRINTSTRING (x, y + 3), CHR$(a) + END IF - 'apply selection color change if necessary - IF ideselect THEN - IF l >= sy1 AND l <= sy2 THEN - IF sy1 = sy2 THEN 'single line select - COLOR 1, 7 - x2 = idesx - FOR x = 2 + maxLineNumberLength TO (idewx - 2) - IF x2 >= sx1 AND x2 < sx2 THEN - a = SCREEN(y + 3, x) - IF a = 63 THEN '"?" - c = SCREEN(y + 3, x, 1) - ELSE - c = 1 - END IF - IF (c AND 15) = 0 THEN 'black background - COLOR 0, 7 - LOCATE y + 3, x: PRINT "?"; - COLOR 1, 7 - ELSE - LOCATE y + 3, x: PRINT CHR$(a); END IF + x2 = x2 + 1 + NEXT + COLOR 7, 1 + ELSE 'multiline select + IF idecx = 1 AND l = sy2 AND idecy > sy1 THEN GOTO nofinalselect + LOCATE y + 3, 2 + maxLineNumberLength + COLOR 1, 7 + FOR x = idesx TO idesx + idewx - (2 + maxLineNumberLength) + PRINT MID$(a2$, x, 1); + NEXT - END IF - x2 = x2 + 1 - NEXT - COLOR 7, 1 - ELSE 'multiline select - IF idecx = 1 AND l = sy2 AND idecy > sy1 THEN GOTO nofinalselect - LOCATE y + 3, 2 + maxLineNumberLength - COLOR 1, 7 - - FOR x = idesx TO idesx + idewx - (2 + maxLineNumberLength) - PRINT MID$(a2$, x, 1); - NEXT - - COLOR 7, 1 - nofinalselect: + COLOR 7, 1 + nofinalselect: + END IF END IF END IF - END IF - l = l + 1 - NEXT + l = l + 1 + NEXT + ELSE + noSyntaxHighlighting: + 'original SUB ideshowtext routine: + COLOR 13, 1 + l = idesy + FOR y = 0 TO (idewy - 9) + COLOR 7, 1 + _PRINTSTRING (1, y + 3), CHR$(179) 'clear prev bookmarks from lhs + + GOSUB ShowLineNumber + + IF l = idefocusline AND idecy <> l THEN COLOR 13, 4 ELSE COLOR 13, 1 + + IF l <= iden THEN + a$ = idegetline(l) + a2$ = SPACE$(idesx + (idewx - 3) - maxLineNumberLength) + MID$(a2$, 1) = a$ + a2$ = RIGHT$(a2$, (idewx - 2) - maxLineNumberLength) + ELSE + a2$ = SPACE$((idewx - 2) - maxLineNumberLength) + END IF + _PRINTSTRING (2 + maxLineNumberLength, y + 3), a2$ + + IF l = idecy THEN + IF idecx <= LEN(a$) AND idecx >= 1 THEN + cc = ASC(a$, idecx) + IF cc = 32 THEN + IF LTRIM$(LEFT$(a$, idecx)) = "" THEN cc = -1 + END IF + END IF + END IF + + 'apply selection color change if necessary + IF ideselect THEN + IF l >= sy1 AND l <= sy2 THEN + IF sy1 = sy2 THEN 'single line select + COLOR 1, 7 + x2 = idesx + FOR x = 2 + maxLineNumberLength TO (idewx - 1) + IF x2 >= sx1 AND x2 < sx2 THEN + a = SCREEN(y + 3, x): _PRINTSTRING (x, y + 3), CHR$(a) + END IF + x2 = x2 + 1 + NEXT + COLOR 7, 1 + ELSE 'multiline select + IF idecx = 1 AND l = sy2 AND idecy > sy1 THEN GOTO nofinalselect0 + COLOR 1, 7: _PRINTSTRING (2 + maxLineNumberLength, y + 3), a2$ + COLOR 7, 1 + nofinalselect0: + END IF + END IF + END IF + + l = l + 1 + NEXT + END IF COLOR 7, 1 FOR b = 1 TO IdeBmkN y = IdeBmk(b).y IF y >= idesy AND y <= idesy + (idewy - 9) THEN - 'IF INSTR(usedVariableList$, CHR$(1) + MKL$(y) + CHR$(2) + "VAR:" + CHR$(3)) = 0 THEN - LOCATE 3 + y - idesy, 1: PRINT CHR$(197); - 'END IF + _PRINTSTRING (1, 3 + y - idesy), CHR$(197) END IF NEXT @@ -8955,29 +12948,86 @@ SUB ideshowtext 'update cursor pos in status bar COLOR 0, 3 - LOCATE idewy + idesubwindow, idewx - 20: PRINT " : "; + a$ = SPACE$(10) + b$ = "" + RSET a$ = LTRIM$(STR$(idecy)) IF idecx < 100000 THEN - LOCATE idewy + idesubwindow, idewx - 9 - a$ = LTRIM$(STR$(idecx)) - PRINT a$; - IF cc <> -1 THEN PRINT "(" + str2$(cc) + ")"; + b$ = SPACE$(10) + c$ = LTRIM$(STR$(idecx)) + IF cc <> -1 THEN c$ = c$ + "(" + str2$(cc) + ")" + LSET b$ = c$ END IF - a$ = LTRIM$(STR$(idecy)) - LOCATE idewy + idesubwindow, (idewx - 10) - LEN(a$) - PRINT a$; + lineNumberStatus$ = a$ + ":" + b$ + '_PRINTSTRING (idewx - 21, idewy + idesubwindow), CHR$(179) + _PRINTSTRING (idewx - 20, idewy + idesubwindow), lineNumberStatus$ SCREEN , , 0, 0: LOCATE idecy - idesy + 3, maxLineNumberLength + idecx - idesx + 2: SCREEN , , 3, 0 EXIT SUB - FindQuoteComment: - ideshowtext_comment = 0: ideshowtext_quote = 0 - FOR ideshowtext_k = 1 TO LEN(findquotecomment$) - SELECT CASE MID$(findquotecomment$, ideshowtext_k, 1) - CASE CHR$(34): ideshowtext_quote = NOT ideshowtext_quote - CASE "'": IF ideshowtext_quote = 0 THEN ideshowtext_comment = -1: EXIT FOR - END SELECT - NEXT ideshowtext_k + ShowLineNumber: + DO WHILE l > UBOUND(IdeBreakpoints) + REDIM _PRESERVE IdeBreakpoints(UBOUND(IdeBreakpoints) + 100) AS _BYTE + LOOP + + DO WHILE l > UBOUND(IdeSkipLines) + REDIM _PRESERVE IdeSkipLines(UBOUND(IdeSkipLines) + 100) AS _BYTE + LOOP + + IF ShowLineNumbers THEN + IF ShowLineNumbersUseBG THEN COLOR , 6 + IF (searchStringFoundOn > 0 AND searchStringFoundOn = l) OR (l = debugnextline AND vWatchOn = 1) THEN + COLOR 13, 5 + IF searchStringFoundOn > 0 AND searchStringFoundOn = l THEN searchStringFoundOn = 0 + END IF + IF vWatchOn = 1 AND IdeBreakpoints(l) <> 0 THEN COLOR , 4 + IF vWatchOn = 1 AND IdeSkipLines(l) <> 0 THEN COLOR 14 + _PRINTSTRING (2, y + 3), SPACE$(maxLineNumberLength) + IF l <= iden THEN + l2$ = STR$(l) + IF 2 + maxLineNumberLength - (LEN(l2$) + 1) >= 2 THEN + _PRINTSTRING (2 + maxLineNumberLength - (LEN(l2$) + 1), y + 3), l2$ + IF vWatchOn THEN + IF IdeBreakpoints(l) <> 0 THEN + _PRINTSTRING (2, y + 3), CHR$(7) + ELSEIF IdeSkipLines(l) <> 0 THEN + _PRINTSTRING (2, y + 3), "!" + END IF + END IF + END IF + END IF + IF ShowLineNumbersSeparator THEN + IF l = debugnextline THEN + COLOR 10 + _PRINTSTRING (1 + maxLineNumberLength, y + 3), CHR$(16) + ELSE + _PRINTSTRING (1 + maxLineNumberLength, y + 3), CHR$(179) + END IF + ELSE + IF l = debugnextline THEN + COLOR 10 + _PRINTSTRING (1 + maxLineNumberLength, y + 3), CHR$(16) + END IF + END IF + COLOR , 1 + ELSE + IF vWatchOn = 1 AND (IdeBreakpoints(l) <> 0 OR IdeSkipLines(l) <> 0) THEN + COLOR 7, 4 + IF l = debugnextline THEN + COLOR 10 + _PRINTSTRING (1, y + 3), CHR$(16) + ELSEIF IdeSkipLines(l) <> 0 THEN + COLOR 14, 1 + _PRINTSTRING (1, y + 3), "!" + ELSE + _PRINTSTRING (1, y + 3), CHR$(7) + END IF + ELSEIF vWatchOn = 1 AND l = debugnextline THEN + COLOR 10 + _PRINTSTRING (1, y + 3), CHR$(16) + END IF + END IF RETURN + END SUB FUNCTION idesubs$ @@ -8993,59 +13043,84 @@ FUNCTION idesubs$ sep = CHR$(0) '-------- end of generic dialog box header -------- - '------- identify word or character at current cursor position - copied/adapted from FUNCTION ide2: - a$ = idegetline(idecy) - x = idecx - IF x <= LEN(a$) THEN - IF alphanumeric(ASC(a$, x)) THEN - x1 = x - DO WHILE x1 > 1 - IF alphanumeric(ASC(a$, x1 - 1)) OR ASC(a$, x1 - 1) = 36 THEN x1 = x1 - 1 ELSE EXIT DO - LOOP - x2 = x - DO WHILE x2 < LEN(a$) - IF alphanumeric(ASC(a$, x2 + 1)) OR ASC(a$, x2 + 1) = 36 THEN x2 = x2 + 1 ELSE EXIT DO - LOOP - a2$ = MID$(a$, x1, x2 - x1 + 1) - ELSE - a2$ = CHR$(ASC(a$, x)) - END IF - a2$ = UCASE$(a2$) 'a2$ now holds the word or character at current cursor position - IF LEN(a2$) > 1 THEN - DO UNTIL alphanumeric(ASC(RIGHT$(a2$, 1))) - a2$ = LEFT$(a2$, LEN(a2$) - 1) 'removes sigil, if any - LOOP - END IF + '------- identify word or character at current cursor position + a2$ = UCASE$(getWordAtCursor$) + IF LEN(a2$) > 1 THEN + DO UNTIL alphanumeric(ASC(RIGHT$(a2$, 1))) + a2$ = LEFT$(a2$, LEN(a2$) - 1) 'removes sigil, if any + IF LEN(a2$) = 0 THEN EXIT DO + LOOP END IF '-------- init -------- + l$ = ideprogname$ + IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$ + + IF idewx < 100 THEN + moduleNameLenLimit = 20 + ELSE + moduleNameLenLimit = 42 + END IF + + maxModuleNameLen = LEN(l$) + IF maxModuleNameLen > moduleNameLenLimit + 2 THEN + l$ = LEFT$(l$, moduleNameLenLimit - 1) + STRING$(3, 250) + maxModuleNameLen = moduleNameLenLimit + ELSEIF maxModuleNameLen < 10 THEN + maxModuleNameLen = 10 + END IF + ly$ = MKL$(1) lySorted$ = ly$ CurrentlyViewingWhichSUBFUNC = 1 PreferCurrentCursorSUBFUNC = 0 InsideDECLARE = 0 FoundExternalSUBFUNC = 0 - l$ = ideprogname$ - IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$ - lSorted$ = l$ + maxLineCount = 0 + + REDIM SortedSubsList(1 TO 100) AS STRING * 998 + REDIM CaseBkpSubsList(1 TO 100) AS STRING * 998 + REDIM TotalLines(0 TO 100) AS LONG + REDIM SubNames(0 TO 100) AS STRING + REDIM SubLines(0 TO 100) AS LONG + REDIM Args(0 TO 100) AS STRING + REDIM SF(0 TO 100) AS STRING TotalSUBs = 0 + ModuleSize = 0 'in lines SortedSubsFlag = idesortsubs + SubClosed = 0 FOR y = 1 TO iden a$ = idegetline(y) + IF SubClosed = 0 THEN ModuleSize = ModuleSize + 1 a$ = LTRIM$(RTRIM$(a$)) sf = 0 nca$ = UCASE$(a$) IF LEFT$(nca$, 8) = "DECLARE " AND INSTR(nca$, " LIBRARY") > 0 THEN InsideDECLARE = -1 IF LEFT$(nca$, 11) = "END DECLARE" THEN InsideDECLARE = 0 - IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB " - IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNC " + IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB " + IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNC " IF sf THEN + 'Resize SortedSubsList() and helper arrays + TotalSUBs = TotalSUBs + 1 + IF NOT InsideDECLARE THEN LastOpenSUB = TotalSUBs + IF TotalSUBs > UBOUND(SortedSubsList) THEN + REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs + 99) AS STRING * 998 + REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs + 99) AS STRING * 998 + REDIM _PRESERVE TotalLines(0 TO TotalSUBs + 99) AS LONG + REDIM _PRESERVE SubNames(0 TO TotalSUBs + 99) AS STRING + REDIM _PRESERVE SubLines(0 TO TotalSUBs + 99) AS LONG + REDIM _PRESERVE Args(0 TO TotalSUBs + 99) AS STRING + REDIM _PRESERVE SF(0 TO TotalSUBs + 99) AS STRING + END IF + IF RIGHT$(nca$, 7) = " STATIC" THEN a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) END IF + + 'Store line number ly$ = ly$ + MKL$(y) 'Check if the cursor is currently inside this SUB/FUNCTION to position the @@ -9062,22 +13137,24 @@ FUNCTION idesubs$ END IF a$ = LTRIM$(RTRIM$(a$)) x = INSTR(a$, "(") - IF x THEN + DIM comment AS _BYTE, quote AS _BYTE + IF x THEN FindQuoteComment a$, x, comment, quote + IF x > 0 AND comment = 0 AND quote = 0 THEN n$ = RTRIM$(LEFT$(a$, x - 1)) args$ = RIGHT$(a$, LEN(a$) - x + 1) + x = 1 + FOR i = 2 TO LEN(args$) + IF ASC(args$, i) = 40 THEN x = x + 1 + IF ASC(args$, i) = 41 THEN x = x - 1 + IF x = 0 THEN args$ = LEFT$(args$, i): EXIT FOR + NEXT ELSE n$ = a$ - args$ = "" + args$ = "()" END IF - - 'attempt to cleanse n$, just in case there are any comments or other unwanted stuff - FOR CleanseN = 1 TO LEN(n$) - SELECT CASE MID$(n$, CleanseN, 1) - CASE " ", "'", ":" - n$ = LEFT$(n$, CleanseN - 1) - EXIT FOR - END SELECT - NEXT + cleanSubName n$ + IF LEN(n$) > maxModuleNameLen THEN maxModuleNameLen = LEN(n$) + IF maxModuleNameLen > moduleNameLenLimit THEN maxModuleNameLen = moduleNameLenLimit 'If the user currently has the cursor over a SUB/FUNC name, let's highlight it 'instead of the currently in edition, for a quick link functionality: @@ -9089,54 +13166,147 @@ FUNCTION idesubs$ END IF IF a2$ = UCASE$(n2$) THEN PreferCurrentCursorSUBFUNC = (LEN(ly$) / 4) - IF InsideDECLARE = -1 THEN n$ = "*" + n$: FoundExternalSUBFUNC = -1 - - IF LEN(n$) <= 20 THEN - n$ = n$ + SPACE$(20 - LEN(n$)) + IF InsideDECLARE = -1 THEN + n$ = "*" + n$ + FoundExternalSUBFUNC = -1 ELSE - n$ = LEFT$(n$, 17) + STRING$(3, 250) + IF SubClosed = 0 THEN ModuleSize = 0: GOSUB AddLineCount + SubClosed = 0 + ModuleSize = 0 END IF - IF LEN(args$) <= (idewx - 41) THEN - args$ = args$ + SPACE$((idewx - 41) - LEN(args$)) - ELSE - args$ = LEFT$(args$, (idewx - 44)) + STRING$(3, 250) - END IF - l$ = l$ + sep + CHR$(195) + CHR$(196) + n$ + " " + sf$ + args$ - 'Populate SortedSubsList() - TotalSUBs = TotalSUBs + 1 - ListItemLength = LEN(n$ + " " + sf$ + args$) - REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs) AS STRING * 998 - REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs) AS STRING * 998 - CaseBkpSubsList(TotalSUBs) = n$ + " " + sf$ + args$ - SortedSubsList(TotalSUBs) = UCASE$(CaseBkpSubsList(TotalSUBs)) - MID$(CaseBkpSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength) - MID$(SortedSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength) + 'Populate arrays + SubNames(TotalSUBs) = n$ + SubLines(TotalSUBs) = y + Args(TotalSUBs) = args$ + SF(TotalSUBs) = sf$ + ELSE 'no sf + 'remove double spaces + i = INSTR(nca$, " ") + DO WHILE i > 0 + nca$ = LEFT$(nca$, i) + MID$(nca$, i + 2) + i = INSTR(i, nca$, " ") + LOOP + + cursor = 0 + LookForENDSUB: + sf = INSTR(cursor + 1, nca$, "END SUB") + IF sf = 0 THEN sf = INSTR(cursor + 1, nca$, "END FUNCTION") + + IF sf THEN + FindQuoteComment nca$, sf, comment, quote + IF comment OR quote THEN cursor = sf: GOTO LookForENDSUB + GOSUB AddLineCount + END IF END IF NEXT - FOR x = LEN(l$) TO 1 STEP -1 - a$ = MID$(l$, x, 1) - IF a$ = CHR$(195) THEN MID$(l$, x, 1) = CHR$(192): EXIT FOR + IF SubClosed = 0 THEN GOSUB AddLineCount + + 'fix arrays to remove empty items + IF TotalSUBs > 0 AND TotalSUBs < UBOUND(SortedSubsList) THEN + REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs) AS STRING * 998 + REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs) AS STRING * 998 + REDIM _PRESERVE TotalLines(0 TO TotalSUBs) AS LONG + REDIM _PRESERVE SubNames(0 TO TotalSUBs) AS STRING + REDIM _PRESERVE SubLines(0 TO TotalSUBs) AS LONG + REDIM _PRESERVE Args(0 TO TotalSUBs) AS STRING + REDIM _PRESERVE SF(0 TO TotalSUBs) AS STRING + END IF + + 'build headers (normal, sorted, normal with line count, sorted with line count) + IF TotalSUBs > 0 THEN + IF LEN(LTRIM$(STR$(maxLineCount))) <= 10 THEN + maxLineCountSpace = 10 + linesHeader$ = "Line count" + external$ = "external" + END IF + IF LEN(LTRIM$(STR$(maxLineCount))) <= 5 THEN + maxLineCountSpace = 5 + linesHeader$ = "Lines" + external$ = CHR$(196) + END IF + + l$ = l$ + SPACE$((maxModuleNameLen + 2) - LEN(l$)) + lSized$ = l$ + lSortedSized$ = l$ + l$ = l$ + " Type Arguments" + lSorted$ = l$ + lSorted$ = l$ + lSized$ = lSized$ + " " + linesHeader$ + " Type Arguments" + sep + lSortedSized$ = lSortedSized$ + " " + linesHeader$ + " Type Arguments" + ELSE + l$ = ideprogname$ + IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$ + lSized$ = l$ + END IF + + 'build lists + dialogWidth = 50 + argsLength = 2 + FOR x = 1 TO TotalSUBs + n$ = SubNames(x) + IF LEN(n$) > maxModuleNameLen THEN + n$ = LEFT$(n$, maxModuleNameLen - 3) + STRING$(3, 250) + ELSE + n$ = n$ + SPACE$(maxModuleNameLen - LEN(n$)) + END IF + + args$ = Args(x) + IF LEN(args$) > argsLength THEN argsLength = LEN(args$) + IF LEN(args$) <= (idewx - 41) THEN + args$ = args$ + SPACE$((idewx - 41) - LEN(args$)) + ELSE + args$ = LEFT$(args$, (idewx - 44)) + STRING$(3, 250) + END IF + + sf$ = SF(x) + + l$ = l$ + sep + CHR$(195) + CHR$(196) + n$ + " " + CHR$(16) + CHR$(2) + _ + sf$ + CHR$(16) + CHR$(16) + args$ + + IF TotalLines(x) = 0 THEN num$ = external$ ELSE num$ = LTRIM$(STR$(TotalLines(x))) + lSized$ = lSized$ + CHR$(195) + CHR$(196) + n$ + " " + _ + CHR$(16) + CHR$(2) + SPACE$(maxLineCountSpace - LEN(num$)) + num$ + " " _ + + sf$ + CHR$(16) + CHR$(16) + args$ + sep + + listItem$ = n$ + " " + CHR$(1) + CHR$(16) + CHR$(2) + sf$ + CHR$(16) + CHR$(16) + args$ + ListItemLength = LEN(listItem$) + SortedSubsList(x) = UCASE$(listItem$) + CaseBkpSubsList(x) = listItem$ + MID$(CaseBkpSubsList(x), 992, 6) = MKL$(SubLines(x)) + MKI$(ListItemLength) + MID$(SortedSubsList(x), 992, 6) = MKL$(SubLines(x)) + MKI$(ListItemLength) NEXT + MID$(l$, _INSTRREV(l$, CHR$(195)), 1) = CHR$(192) + MID$(lSized$, _INSTRREV(lSized$, CHR$(195)), 1) = CHR$(192) + IF TotalSUBs > 1 THEN sort SortedSubsList() + FOR x = 1 TO TotalSUBs ListItemLength = CVI(MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 2, 2)) lySorted$ = lySorted$ + MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) FOR RestoreCaseBkp = 1 TO TotalSUBs IF MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) = MID$(CaseBkpSubsList(RestoreCaseBkp), LEN(CaseBkpSubsList(RestoreCaseBkp)) - 6, 4) THEN - lSorted$ = lSorted$ + sep + CHR$(195) + CHR$(196) + LEFT$(CaseBkpSubsList(RestoreCaseBkp), ListItemLength) + lSorted$ = lSorted$ + sep + CHR$(195) + CHR$(196) + temp$ = LEFT$(CaseBkpSubsList(RestoreCaseBkp), ListItemLength) + lSorted$ = lSorted$ + LEFT$(temp$, INSTR(temp$, CHR$(1)) - 1) + _ + MID$(temp$, INSTR(temp$, CHR$(1)) + 1) + + num$ = LTRIM$(STR$(TotalLines(RestoreCaseBkp))) + IF LEFT$(temp$, 1) = "*" THEN num$ = external$ + lSortedSized$ = lSortedSized$ + sep + CHR$(195) + CHR$(196) + lSortedSized$ = lSortedSized$ + LEFT$(temp$, INSTR(temp$, CHR$(1)) - 1) + _ + SPACE$(maxLineCountSpace - LEN(num$)) + CHR$(16) + CHR$(2) + num$ + " " + _ + MID$(temp$, INSTR(temp$, CHR$(1)) + 1) EXIT FOR END IF NEXT NEXT - FOR x = LEN(lSorted$) TO 1 STEP -1 - a$ = MID$(lSorted$, x, 1) - IF a$ = CHR$(195) THEN MID$(lSorted$, x, 1) = CHR$(192): EXIT FOR - NEXT + MID$(lSorted$, _INSTRREV(lSorted$, CHR$(195)), 1) = CHR$(192) + MID$(lSortedSized$, _INSTRREV(lSortedSized$, CHR$(195)), 1) = CHR$(192) SortedSubsFlag = idesortsubs ELSE SortedSubsFlag = 0 'Override idesortsubs if the current program doesn't have more than 1 subprocedure @@ -9144,15 +13314,28 @@ FUNCTION idesubs$ '72,19 i = 0 - idepar p, idewx - 8, idewy + idesubwindow - 6, "SUBs" + dialogHeight = TotalSUBs + 4 + IF dialogHeight > idewy + idesubwindow - 6 THEN + dialogHeight = idewy + idesubwindow - 6 + END IF + + IF argsLength + maxModuleNameLen + maxLineCountSpace + 20 > dialogWidth THEN dialogWidth = argsLength + maxModuleNameLen + maxLineCountSpace + 20 + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + + idepar p, dialogWidth, dialogHeight, "SUBs" i = i + 1 o(i).typ = 2 o(i).y = 1 '68 - o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 9 - o(i).txt = idenewtxt(l$) + o(i).w = dialogWidth - 4: o(i).h = dialogHeight - 3 IF SortedSubsFlag = 0 THEN + IF IDESubsLength THEN + o(i).txt = idenewtxt(lSized$) + ELSE + o(i).txt = idenewtxt(l$) + END IF + IF PreferCurrentCursorSUBFUNC <> 0 THEN o(i).sel = PreferCurrentCursorSUBFUNC ELSE @@ -9160,6 +13343,11 @@ FUNCTION idesubs$ END IF ELSE idetxt(o(i).txt) = lSorted$ + IF IDESubsLength THEN + o(i).txt = idenewtxt(lSortedSized$) + ELSE + o(i).txt = idenewtxt(lSorted$) + END IF IF PreferCurrentCursorSUBFUNC <> 0 THEN FOR x = 1 TO TotalSUBs IF MID$(ly$, PreferCurrentCursorSUBFUNC * 4 - 3, 4) = MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) THEN @@ -9178,21 +13366,31 @@ FUNCTION idesubs$ END IF o(i).nam = idenewtxt("Program Items") + i = i + 1 + o(i).typ = 4 'check box + o(i).x = 2 + o(i).y = dialogHeight + o(i).nam = idenewtxt("#Line Count") + o(i).sel = IDESubsLength + + i = i + 1 + o(i).typ = 4 'check box + o(i).x = 18 + o(i).y = dialogHeight + o(i).nam = idenewtxt("#Sort") + o(i).sel = SortedSubsFlag i = i + 1 o(i).typ = 3 - o(i).y = idewy + idesubwindow - 6 - o(i).txt = idenewtxt("#Edit" + sep + "#Cancel") - o(i).dft = 1 - - IF TotalSUBs > 1 THEN - i = i + 1 - o(i).typ = 4 'check box - o(i).x = idewx - 22 - o(i).y = idewy + idesubwindow - 6 - o(i).nam = idenewtxt("#Sorted A-Z") - o(i).sel = SortedSubsFlag + o(i).w = 26 + o(i).x = dialogWidth - 22 + o(i).y = dialogHeight + IF IdeDebugMode = 0 THEN + o(i).txt = idenewtxt("#Edit" + sep + "#Cancel") + ELSE + o(i).txt = idenewtxt("#View" + sep + "#Cancel") END IF + o(i).dft = 1 '-------- end of init -------- @@ -9220,8 +13418,9 @@ FUNCTION idesubs$ '-------- end of generic display dialog box & objects -------- '-------- custom display changes -------- - IF FoundExternalSUBFUNC = -1 THEN - COLOR 2, 7: LOCATE idewy + idesubwindow - 3, p.x + 2: PRINT "* external"; + IF FoundExternalSUBFUNC THEN + COLOR 2, 7 + _PRINTSTRING (p.x + p.w - 32, p.y + p.h), "* external" END IF '-------- end of custom display changes -------- @@ -9271,16 +13470,17 @@ FUNCTION idesubs$ NEXT '-------- end of generic input response -------- - IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN + IF K$ = CHR$(27) OR (focus = 5 AND info <> 0) THEN idesubs$ = "C" GOSUB SaveSortSettings + ClearMouse EXIT FUNCTION END IF - IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) OR (info = 1 AND focus = 1) THEN + IF K$ = CHR$(13) OR (focus = 4 AND info <> 0) OR (info = 1 AND focus = 1) THEN y = o(1).sel IF y < 1 THEN y = -y - AddQuickNavHistory idecy + AddQuickNavHistory IF SortedSubsFlag = 0 THEN idecy = CVL(MID$(ly$, y * 4 - 3, 4)) ELSE @@ -9291,9 +13491,28 @@ FUNCTION idesubs$ idesx = 1 GOSUB SaveSortSettings + ClearMouse EXIT FUNCTION END IF + IF o(2).sel <> IDESubsLength THEN + IDESubsLength = o(2).sel + IF IDESubsLength THEN + IF o(3).sel THEN + idetxt(o(1).txt) = lSortedSized$ + ELSE + idetxt(o(1).txt) = lSized$ + END IF + ELSE + IF o(3).sel THEN + idetxt(o(1).txt) = lSorted$ + ELSE + idetxt(o(1).txt) = l$ + END IF + END IF + focus = 1 + END IF + IF TotalSUBs > 1 THEN IF o(3).sel <> SortedSubsFlag THEN SortedSubsFlag = o(3).sel @@ -9310,7 +13529,11 @@ FUNCTION idesubs$ NEXT END IF - idetxt(o(1).txt) = l$ + IF IDESubsLength THEN + idetxt(o(1).txt) = lSized$ + ELSE + idetxt(o(1).txt) = l$ + END IF o(1).sel = PreviousSelection focus = 1 ELSE @@ -9325,7 +13548,11 @@ FUNCTION idesubs$ NEXT END IF - idetxt(o(1).txt) = lSorted$ + IF IDESubsLength THEN + idetxt(o(1).txt) = lSortedSized$ + ELSE + idetxt(o(1).txt) = lSorted$ + END IF o(1).sel = PreviousSelection focus = 1 END IF @@ -9339,16 +13566,26 @@ FUNCTION idesubs$ EXIT FUNCTION SaveSortSettings: - IF TotalSUBs > 1 AND idesortsubs <> SortedSubsFlag THEN - idesortsubs = SortedSubsFlag - IF idesortsubs THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "TRUE" - ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE" - END IF + idesortsubs = SortedSubsFlag + IF idesortsubs THEN + WriteConfigSetting displaySettingsSection$, "IDE_SortSUBs", "True" + ELSE + WriteConfigSetting displaySettingsSection$, "IDE_SortSUBs", "False" + END IF + + IF IDESubsLength THEN + WriteConfigSetting displaySettingsSection$, "IDE_SUBsLength", "True" + ELSE + WriteConfigSetting displaySettingsSection$, "IDE_SUBsLength", "False" END IF RETURN + AddLineCount: + ModuleSize = ModuleSize + 1 + TotalLines(LastOpenSUB) = ModuleSize + IF ModuleSize > maxLineCount THEN maxLineCount = ModuleSize + SubClosed = -1 + RETURN END FUNCTION @@ -9369,25 +13606,34 @@ FUNCTION idelanguagebox 'generate list of available code pages l$ = idecpname(1) + dialogWidth = LEN(l$) FOR x = 2 TO idecpnum l$ = l$ + sep + idecpname(x) + IF LEN(idecpname(x)) > dialogWidth THEN dialogWidth = LEN(idecpname(x)) NEXT l$ = UCASE$(l$) i = 0 - idepar p, idewx - 8, idewy + idesubwindow - 6, "Language" + dialogHeight = idecpnum + 5 + IF dialogHeight > idewy + idesubwindow - 6 THEN + dialogHeight = idewy + idesubwindow - 6 + END IF + IF dialogWidth < 60 THEN dialogWidth = 60 + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + + idepar p, dialogWidth, dialogHeight, "Language" i = i + 1 o(i).typ = 2 - o(i).y = 2 - o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 10 + o(i).y = 3 + o(i).w = dialogWidth - 4: o(i).h = dialogheight - 5 o(i).txt = idenewtxt(l$) o(i).sel = 1: IF idecpindex THEN o(i).sel = idecpindex o(i).nam = idenewtxt("Code Pages") i = i + 1 o(i).typ = 3 - o(i).y = idewy + idesubwindow - 6 + o(i).y = dialogheight o(i).txt = idenewtxt("#OK" + sep + "#Cancel") o(i).dft = 1 @@ -9419,7 +13665,10 @@ FUNCTION idelanguagebox '-------- end of generic display dialog box & objects -------- '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 1, p.x + 2: PRINT "Code-page for ASCII-UNICODE mapping: (Default: CP437)" + COLOR 0, 7 + _PRINTSTRING (p.x + 2, p.y + 1), "Code-page for ASCII-UNICODE mapping (Default = CP437):" + COLOR 2, 7 + _PRINTSTRING (p.x + 2, p.y + 2), "(affects the display of TTF fonts set in Options-Display)" '-------- end of custom display changes -------- @@ -9486,7 +13735,7 @@ FUNCTION idelanguagebox 'save changes v% = y: idecpindex = v% - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", STR$(idecpindex) + WriteConfigSetting displaySettingsSection$, "IDE_CodePage", STR$(idecpindex) EXIT FUNCTION END IF @@ -9496,7 +13745,7 @@ FUNCTION idelanguagebox mouseup = 0 LOOP - + idelanguagebox = 0 END FUNCTION @@ -9515,19 +13764,45 @@ FUNCTION idewarningbox '-------- init -------- - DIM warningLines(1 TO warningListItems) AS LONG + IF LEN(ideprogname) THEN thisprog$ = ideprogname ELSE thisprog$ = "Untitled" + tempfolderindexstr$ + maxModuleNameLen = LEN(thisprog$) + 'calculate longest module name + FOR x = 1 TO warningListItems + IF warningLines(x) = 0 THEN _CONTINUE + + IF warningIncLines(x) > 0 THEN + IF LEN(warningIncFiles(x)) > maxModuleNameLen THEN + maxModuleNameLen = LEN(warningIncFiles(x)) + END IF + END IF + NEXT + + 'build list + dialogWidth = 60 FOR x = 1 TO warningListItems - warningLines(x) = CVL(LEFT$(warning$(x), 4)) IF warningLines(x) = 0 THEN - l$ = l$ + MID$(warning$(x), 5) - IF x > 1 THEN ASC(l$, treeConnection) = 192 + l$ = l$ + warning$(x) + IF x > 1 AND treeConnection > 0 THEN ASC(l$, treeConnection) = 192 ELSE - l2$ = "line" + STR$(warningLines(x)) - l3$ = SPACE$(maxLineNumberLength + 4) - RSET l3$ = l2$ + l3$ = CHR$(16) + CHR$(2) 'dark grey + IF warningIncLines(x) > 0 THEN + num$ = SPACE$(LEN(STR$(maxLineNumber)) + 1) + RSET num$ = str2$(warningIncLines(x)) + l3$ = l3$ + warningIncFiles(x) + SPACE$(maxModuleNameLen - LEN(warningIncFiles(x))) + ":" + CHR$(16) + CHR$(16) + num$ + ELSE + num$ = SPACE$(LEN(STR$(maxLineNumber)) + 1) + RSET num$ = str2$(warningLines(x)) + l3$ = l3$ + thisprog$ + SPACE$(maxModuleNameLen - LEN(thisprog$)) + ":" + CHR$(16) + CHR$(16) + num$ + END IF treeConnection = LEN(l$) + 1 - l$ = l$ + CHR$(195) + CHR$(196) + l3$ + ": " + MID$(warning$(x), 5) + text$ = warning$(x) + IF LEN(l3$ + text$) + 6 > dialogWidth THEN dialogWidth = LEN(l3$ + text$) + 6 + IF LEN(text$) THEN + l$ = l$ + CHR$(195) + CHR$(196) + l3$ + ": " + text$ + ELSE + l$ = l$ + CHR$(195) + CHR$(196) + l3$ + END IF END IF IF x < warningListItems THEN l$ = l$ + sep NEXT @@ -9542,14 +13817,16 @@ FUNCTION idewarningbox dialogHeight = idewy + idesubwindow - 6 END IF - idepar p, idewx - 8, dialogHeight, "Compilation status" + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + + idepar p, dialogWidth, dialogHeight, "Compilation status" i = i + 1 o(i).typ = 2 o(i).y = 2 - o(i).w = idewx - 12: o(i).h = dialogHeight - 4 + o(i).w = dialogWidth - 4: o(i).h = dialogHeight - 4 o(i).txt = idenewtxt(l$) - o(i).sel = 1: IF idecpindex THEN o(i).sel = idecpindex + o(i).sel = 1 o(i).nam = idenewtxt("Warnings (" + LTRIM$(STR$(totalWarnings)) + ")") i = i + 1 @@ -9586,7 +13863,7 @@ FUNCTION idewarningbox '-------- end of generic display dialog box & objects -------- '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 1, p.x + 2: PRINT "Double-click on an item to jump to the line indicated" + COLOR 0, 7: _PRINTSTRING (p.x + 2, p.y + 1), "Double-click on an item to jump to the line indicated" '-------- end of custom display changes -------- @@ -9644,8 +13921,13 @@ FUNCTION idewarningbox y = ABS(o(1).sel) IF y >= 1 AND y <= warningListItems AND warningLines(y) > 0 THEN idegotobox_LastLineNum = warningLines(y) - AddQuickNavHistory idecy + AddQuickNavHistory idecy = idegotobox_LastLineNum + idecentercurrentline + IF warningIncLines(y) > 0 THEN + warningInInclude = idecy + warningInIncludeLine = warningIncLines(y) + END IF ideselect = 0 EXIT FUNCTION END IF @@ -9656,15 +13938,16 @@ FUNCTION idewarningbox mouseup = 0 LOOP + idewarningbox = 0 END FUNCTION SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, mousedown, mouseup, mx, my, info, mw) - STATIC SearchTerm$, LastKeybInput AS SINGLE + STATIC LastKeybInput AS SINGLE DIM sep AS STRING * 1 sep = CHR$(0) t = o.typ - + mouseup = mouseup 'just to clear warnings of unused variables IF t = 1 THEN 'text field IF mousedown THEN x1 = o.par.x + o.x: y = o.par.y + o.y @@ -9696,8 +13979,8 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m a$ = idetxt(o.txt) IF focusoffset = 0 THEN - IF LEN(kk$) = 1 THEN - k = ASC(kk$) + IF LEN(kk$) = 1 OR KB <> 0 THEN + IF LEN(kk$) = 1 THEN k = ASC(kk$) IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(kk$) = "V") THEN 'paste from clipboard clip$ = _CLIPBOARD$ 'read clipboard x = INSTR(clip$, CHR$(13)) @@ -9839,6 +14122,50 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m IF t = 2 THEN 'list box idetxt(o.stx) = "" + 'Populate ListBoxITEMS: + a$ = idetxt(o.txt) + REDIM ListBoxITEMS(0) AS STRING + REDIM OriginalListBoxITEMS(0) AS STRING + IF LEN(a$) > 0 THEN + n = 0: x = 1 + DO + x2 = INSTR(x, a$, sep) + IF x2 > 0 THEN + n = n + 1 + IF n > UBOUND(ListBoxITEMS) THEN + REDIM _PRESERVE ListBoxITEMS(1 TO n + 999) AS STRING + REDIM _PRESERVE OriginalListBoxITEMS(1 TO n + 999) AS STRING + END IF + ListBoxITEMS(n) = _TRIM$(MID$(a$, x, x2 - x)) + OriginalListBoxITEMS(n) = MID$(a$, x, x2 - x) + IF LEN(ListBoxITEMS(n)) THEN + DO WHILE ASC(ListBoxITEMS(n)) < 32 OR ASC(ListBoxITEMS(n)) > 126 + ListBoxITEMS(n) = MID$(ListBoxITEMS(n), 2) + IF LEN(ListBoxITEMS(n)) = 0 THEN EXIT DO + LOOP + END IF + ELSE + n = n + 1 + IF n > UBOUND(ListBoxITEMS) THEN + REDIM _PRESERVE ListBoxITEMS(1 TO n + 999) AS STRING + REDIM _PRESERVE OriginalListBoxITEMS(1 TO n + 999) AS STRING + END IF + ListBoxITEMS(n) = _TRIM$(RIGHT$(a$, LEN(a$) - x + 1)) + OriginalListBoxITEMS(n) = RIGHT$(a$, LEN(a$) - x + 1) + IF LEN(ListBoxITEMS(n)) THEN + DO WHILE ASC(ListBoxITEMS(n)) < 32 OR ASC(ListBoxITEMS(n)) > 126 + ListBoxITEMS(n) = MID$(ListBoxITEMS(n), 2) + IF LEN(ListBoxITEMS(n)) = 0 THEN EXIT DO + LOOP + END IF + EXIT DO + END IF + x = x2 + 1 + LOOP + REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING + REDIM _PRESERVE OriginalListBoxITEMS(1 TO n) AS STRING + END IF + IF mousedown THEN x1 = o.par.x + o.x: y1 = o.par.y + o.y x2 = x1 + o.w + 1: y2 = y1 + o.h + 1 @@ -9849,7 +14176,7 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m y = y + o.v1 IF o.sel = y THEN info = 1 o.sel = y - IF o.sel > o.num THEN o.sel = o.num + IF o.sel > o.num THEN o.sel = -o.num END IF END IF @@ -9949,43 +14276,20 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m IF LEN(kk$) = 1 THEN ResetKeybTimer = 0 - IF TIMER - LastKeybInput > 1 THEN SearchTerm$ = "": ResetKeybTimer = -1 + IF timeElapsedSince(LastKeybInput) > 1 THEN fileDlgSearchTerm$ = "": ResetKeybTimer = -1 LastKeybInput = TIMER - k = ASC(UCASE$(kk$)): IF k < 32 OR k > 126 THEN k = 255 - - 'Populate ListBoxITEMS: - a$ = idetxt(o.txt) - REDIM ListBoxITEMS(0) AS STRING - IF LEN(a$) > 0 THEN - n = 0: x = 1 - DO - x2 = INSTR(x, a$, sep) - IF x2 > 0 THEN - n = n + 1 - REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING - ListBoxITEMS(n) = MID$(a$, x, x2 - x) - ELSE - n = n + 1 - REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING - ListBoxITEMS(n) = RIGHT$(a$, LEN(a$) - x + 1) - EXIT DO - END IF - x = x2 + 1 - LOOP - END IF - - IF k = 255 THEN - IF o.sel > 0 THEN idetxt(o.stx) = ListBoxITEMS(o.sel) + k = ASC(UCASE$(kk$)) + IF k < 32 OR k > 126 THEN GOTO selected 'Search is not performed if kk$ isn't a printable character - ELSE - SearchTerm$ = SearchTerm$ + UCASE$(kk$) END IF - IF LEN(SearchTerm$) = 2 AND LEFT$(SearchTerm$, 1) = RIGHT$(SearchTerm$, 1) THEN + fileDlgSearchTerm$ = fileDlgSearchTerm$ + UCASE$(kk$) + + IF LEN(fileDlgSearchTerm$) = 2 AND LEFT$(fileDlgSearchTerm$, 1) = RIGHT$(fileDlgSearchTerm$, 1) THEN 'if the user is pressing the same letter again, we deduce the search 'is only for the initials ResetKeybTimer = -1 - SearchTerm$ = UCASE$(kk$) + fileDlgSearchTerm$ = UCASE$(kk$) END IF SearchPass = 1 @@ -9994,18 +14298,9 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m retryfind: IF SearchPass > 2 THEN GOTO selected FOR findMatch = StartSearch TO n - validCHARS$ = "" - FOR ai = 1 TO LEN(ListBoxITEMS(findMatch)) - aa = ASC(UCASE$(ListBoxITEMS(findMatch)), ai) - IF aa > 126 OR (k <> 95 AND aa = 95) OR (k <> 42 AND aa = 42) THEN - 'ignore - ELSE - validCHARS$ = validCHARS$ + CHR$(aa) - END IF - NEXT - IF findMatch = o.sel THEN idetxt(o.stx) = ListBoxITEMS(findMatch) - IF LEFT$(validCHARS$, LEN(SearchTerm$)) = SearchTerm$ THEN + IF UCASE$(LEFT$(ListBoxITEMS(findMatch), LEN(fileDlgSearchTerm$))) = UCASE$(fileDlgSearchTerm$) THEN o.sel = findMatch + idetxt(o.stx) = OriginalListBoxITEMS(findMatch) GOTO selected END IF NEXT findMatch @@ -10015,8 +14310,8 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m GOTO retryfind selected: END IF - END IF + IF o.sel > 0 AND o.sel <= UBOUND(OriginalListBoxITEMS) THEN idetxt(o.stx) = OriginalListBoxITEMS(o.sel) 'hot-key focus IF LEN(altletter$) THEN @@ -10192,10 +14487,10 @@ FUNCTION idevbar (x, y, h, i2, n2) 'draw background & arrows COLOR 0, 7 - LOCATE y, x: PRINT CHR$(24); - LOCATE y + h - 1, x: PRINT CHR$(25); + _PRINTSTRING (x, y), CHR$(24) + _PRINTSTRING (x, y + h - 1), CHR$(25) FOR y2 = y + 1 TO y + h - 2 - LOCATE y2, x: PRINT CHR$(176); + _PRINTSTRING (x, y2), CHR$(176) NEXT 'draw slider @@ -10224,7 +14519,7 @@ FUNCTION idevbar (x, y, h, i2, n2) 'show whichever is closer of the two positions p! = (i - 1) / (n - 1) IF p! < .5 THEN y2 = y + 1 ELSE y2 = y + 2 - LOCATE y2, x: PRINT CHR$(219); + _PRINTSTRING (x, y2), CHR$(219) idevbar = y2 EXIT FUNCTION END IF @@ -10238,13 +14533,13 @@ FUNCTION idevbar (x, y, h, i2, n2) END IF IF i = 1 THEN y2 = y + 1 - LOCATE y2, x: PRINT CHR$(219); + _PRINTSTRING (x, y2), CHR$(219) idevbar = y2 EXIT FUNCTION END IF IF i = n THEN y2 = y + h - 2 - LOCATE y2, x: PRINT CHR$(219); + _PRINTSTRING (x, y2), CHR$(219) idevbar = y2 EXIT FUNCTION END IF @@ -10252,7 +14547,7 @@ FUNCTION idevbar (x, y, h, i2, n2) p! = (i - 1) / (n - 1) p! = p! * (h - 4) y2 = y + 2 + INT(p!) - LOCATE y2, x: PRINT CHR$(219); + _PRINTSTRING (x, y2), CHR$(219) idevbar = y2 EXIT FUNCTION END IF @@ -10262,14 +14557,6 @@ SUB idewait _DELAY 0.1 END SUB -SUB idewait4alt - 'stub -END SUB - -SUB idewait4mous - 'stub -END SUB - FUNCTION idezchangepath$ (path$, newpath$) idezchangepath$ = path$ 'default (for unsuccessful cases) @@ -10315,7 +14602,7 @@ FUNCTION idezchangepath$ (path$, newpath$) END FUNCTION -FUNCTION idezfilelist$ (path$, method) 'method0=*.bas, method1=*.* +FUNCTION idezfilelist$ (path$, method, mask$) 'method0=*.bas, method1=*.*, method2=custom mask DIM sep AS STRING * 1 sep = CHR$(0) @@ -10323,6 +14610,7 @@ FUNCTION idezfilelist$ (path$, method) 'method0=*.bas, method1=*.* OPEN ".\internal\temp\files.txt" FOR OUTPUT AS #150: CLOSE #150 IF method = 0 THEN SHELL _HIDE "dir /b /ON /A-D " + QuotedFilename$(path$) + "\*.bas >.\internal\temp\files.txt" IF method = 1 THEN SHELL _HIDE "dir /b /ON /A-D " + QuotedFilename$(path$) + "\*.* >.\internal\temp\files.txt" + IF method = 2 THEN SHELL _HIDE "dir /b /ON /A-D " + QuotedFilename$(path$) + "\" + QuotedFilename$(mask$) + " >.\internal\temp\files.txt" filelist$ = "" OPEN ".\internal\temp\files.txt" FOR INPUT AS #150 DO UNTIL EOF(150) @@ -10338,32 +14626,39 @@ FUNCTION idezfilelist$ (path$, method) 'method0=*.bas, method1=*.* IF os$ = "LNX" THEN filelist$ = "" - FOR i = 1 TO 2 - method - OPEN "./internal/temp/files.txt" FOR OUTPUT AS #150: CLOSE #150 - IF method = 0 THEN + IF method = 0 THEN + FOR i = 1 TO 2 + OPEN "./internal/temp/files.txt" FOR OUTPUT AS #150: CLOSE #150 IF i = 1 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*.bas" + CHR$(34) + " | sort >./internal/temp/files.txt" IF i = 2 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*.BAS" + CHR$(34) + " | sort >./internal/temp/files.txt" - END IF - IF method = 1 THEN - IF i = 1 THEN SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*" + CHR$(34) + " | sort >./internal/temp/files.txt" - END IF - OPEN "./internal/temp/files.txt" FOR INPUT AS #150 - DO UNTIL EOF(150) - LINE INPUT #150, a$ - IF LEN(a$) = 0 THEN EXIT DO - FOR x = LEN(a$) TO 1 STEP -1 - a2$ = MID$(a$, x, 1) - IF a2$ = "/" THEN - a$ = RIGHT$(a$, LEN(a$) - x) - EXIT FOR - END IF - NEXT - IF filelist$ = "" THEN filelist$ = a$ ELSE filelist$ = filelist$ + sep + a$ - LOOP - CLOSE #150 - NEXT + GOSUB AddToList + NEXT + ELSEIF method = 1 THEN + SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + "*" + CHR$(34) + " | sort >./internal/temp/files.txt" + GOSUB AddToList + ELSEIF method = 2 THEN + SHELL _HIDE "find " + QuotedFilename$(path$) + " -maxdepth 1 -type f -name " + CHR$(34) + mask$ + CHR$(34) + " | sort >./internal/temp/files.txt" + GOSUB AddToList + END IF idezfilelist$ = filelist$ EXIT FUNCTION + + AddToList: + OPEN "./internal/temp/files.txt" FOR INPUT AS #150 + DO UNTIL EOF(150) + LINE INPUT #150, a$ + IF LEN(a$) = 0 THEN EXIT DO + FOR x = LEN(a$) TO 1 STEP -1 + a2$ = MID$(a$, x, 1) + IF a2$ = "/" THEN + a$ = RIGHT$(a$, LEN(a$) - x) + EXIT FOR + END IF + NEXT + IF filelist$ = "" THEN filelist$ = a$ ELSE filelist$ = filelist$ + sep + a$ + LOOP + CLOSE #150 + RETURN END IF END FUNCTION @@ -10371,23 +14666,21 @@ END FUNCTION FUNCTION idezgetroot$ 'note: does NOT including a trailing / or \ on the right - IF os$ = "WIN" THEN - SHELL _HIDE "cd >.\internal\temp\root.txt" - OPEN ".\internal\temp\root.txt" FOR INPUT AS #150 - LINE INPUT #150, a$ - idezgetroot$ = a$ - CLOSE #150 - EXIT FUNCTION - END IF - - IF os$ = "LNX" THEN - SHELL _HIDE "pwd >./internal/temp/root.txt" - OPEN "./internal/temp/root.txt" FOR INPUT AS #150 - LINE INPUT #150, a$ - idezgetroot$ = a$ - CLOSE #150 - EXIT FUNCTION - END IF + IF os$ = "WIN" THEN + SHELL _HIDE "cd >.\internal\temp\root.txt" + OPEN ".\internal\temp\root.txt" FOR INPUT AS #150 + LINE INPUT #150, a$ + idezgetroot$ = a$ + CLOSE #150 + EXIT FUNCTION + ELSE + SHELL _HIDE "pwd >./internal/temp/root.txt" + OPEN "./internal/temp/root.txt" FOR INPUT AS #150 + LINE INPUT #150, a$ + idezgetroot$ = a$ + CLOSE #150 + EXIT FUNCTION + END IF END FUNCTION @@ -10416,10 +14709,19 @@ FUNCTION idezpathlist$ (path$) IF LEN(pathlist$) THEN pathlist$ = ".." + sep + pathlist$ ELSE pathlist$ = ".." END IF 'add drive paths + + DECLARE LIBRARY + FUNCTION logical_drives& () + END DECLARE + + d = logical_drives& FOR i = 0 TO 25 - IF LEN(pathlist$) THEN pathlist$ = pathlist$ + sep - pathlist$ = pathlist$ + CHR$(65 + i) + ":" + IF RIGHT$(pathlist$, 1) <> sep AND LEN(pathlist$) > 0 THEN pathlist$ = pathlist$ + sep + IF _READBIT(d, i) THEN + pathlist$ = pathlist$ + CHR$(65 + i) + ":" + END IF NEXT + idezpathlist$ = pathlist$ EXIT FUNCTION END IF @@ -10458,32 +14760,16 @@ END FUNCTION FUNCTION ideztakepath$ (f$) 'assume f$ contains a filename with an optional path p$ = "" - IF os$ = "WIN" THEN - FOR i = LEN(f$) TO 1 STEP -1 - a$ = MID$(f$, i, 1) - IF a$ = "\" THEN - p$ = LEFT$(f$, i - 1) - f$ = RIGHT$(f$, LEN(f$) - i) - EXIT FOR - END IF - NEXT - ideztakepath$ = p$ - EXIT FUNCTION - END IF - - IF os$ = "LNX" THEN - FOR i = LEN(f$) TO 1 STEP -1 - a$ = MID$(f$, i, 1) - IF a$ = "/" THEN - p$ = LEFT$(f$, i - 1) - f$ = RIGHT$(f$, LEN(f$) - i) - EXIT FOR - END IF - NEXT - ideztakepath$ = p$ - EXIT FUNCTION - END IF - + FOR i = LEN(f$) TO 1 STEP -1 + a$ = MID$(f$, i, 1) + IF a$ = "\" OR a$ = "/" THEN + p$ = LEFT$(f$, i - 1) + f$ = RIGHT$(f$, LEN(f$) - i) + EXIT FOR + END IF + NEXT + ideztakepath$ = p$ + EXIT FUNCTION END FUNCTION 'file f$ exists, and may contain a path @@ -10493,10 +14779,13 @@ END FUNCTION FUNCTION idezgetfilepath$ (root$, f$) 'step #1: seperate file's name from its path (if any) p$ = ideztakepath$(f$) 'note: this is a simple seperation of the string + 'step #2: if path was undefined, set it to root IF LEN(p$) = 0 THEN p$ = root$ + 'step #3: if path is relative, make it relative to root$ - IF LEFT$(p$, 1) = "." THEN p$ = root$ + idepathsep$ + p$ + IF _DIREXISTS(root$ + idepathsep$ + p$) THEN p$ = root$ + idepathsep$ + p$ + 'step #4: attempt a CHDIR to the path to (i) validate its existance ' & (ii) allow listing the paths full name ideerror = 4 'path not found @@ -10504,37 +14793,18 @@ FUNCTION idezgetfilepath$ (root$, f$) IF os$ = "WIN" THEN IF RIGHT$(p2$, 1) = ":" THEN p2$ = p2$ + "\" 'force change to root of drive END IF + IF _DIREXISTS(p2$) = 0 THEN EXIT FUNCTION + CHDIR p2$ ideerror = 1 'step #5: get the path's full name (assume success) - IF os$ = "WIN" THEN - SHELL _HIDE "cd >" + QuotedFilename$(ideroot$) + "\internal\temp\root.txt" - OPEN ideroot$ + "\internal\temp\root.txt" FOR INPUT AS #150 - LINE INPUT #150, p$ - IF RIGHT$(p$, 1) = "\" THEN p$ = LEFT$(p$, LEN(p$) - 1) 'strip trailing \ after root drive path - CLOSE #150 - END IF - IF os$ = "LNX" THEN - SHELL _HIDE "pwd >" + QuotedFilename$(ideroot$) + "/internal/temp/root.txt" - OPEN ideroot$ + "/internal/temp/root.txt" FOR INPUT AS #150 - LINE INPUT #150, p$ - CLOSE #150 - END IF + p$ = _CWD$ 'step #6: restore root path (assume success) CHDIR ideroot$ 'important: no validation of f$ necessary idezgetfilepath$ = p$ END FUNCTION -SUB initmouse - _MOUSESHOW -END SUB - - - - - - FUNCTION idelayoutbox '-------- generic dialog box header -------- @@ -10550,39 +14820,53 @@ FUNCTION idelayoutbox '-------- init -------- i = 0 - idepar p, 60, 8, "Code Layout" + idepar p, 60, 9, "Code Layout" i = i + 1 + ideautolayoutid = i o(i).typ = 4 'check box o(i).y = 2 o(i).nam = idenewtxt("#Auto Spacing & Upper/Lowercase Formatting") o(i).sel = ideautolayout i = i + 1 + ideautolayoutkwcapitalsid = i o(i).typ = 4 'check box - o(i).y = 4 + o(i).y = 3 + o(i).x = 6 + o(i).nam = idenewtxt("#Keywords in CAPITALS") + o(i).sel = ideautolayoutkwcapitals + + i = i + 1 + ideautoindentID = i + o(i).typ = 4 'check box + o(i).y = 5 o(i).nam = idenewtxt("Auto #Indent -") o(i).sel = ideautoindent a2$ = str2$(ideautoindentsize) i = i + 1 + ideautoindentsizeid = i o(i).typ = 1 o(i).x = 20 - o(i).y = 4 + o(i).y = 5 o(i).nam = idenewtxt("#Spacing") o(i).txt = idenewtxt(a2$) o(i).v1 = LEN(a2$) i = i + 1 + ideindentsubsid = i o(i).typ = 4 - o(i).y = 6 - o(i).nam = idenewtxt("Indent #SUBs and FUNCTIONs") + o(i).x = 6 + o(i).y = 7 + o(i).nam = idenewtxt("Indent SUBs and #FUNCTIONs") o(i).sel = ideindentsubs i = i + 1 + buttonsid = i o(i).typ = 3 - o(i).y = 8 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") + o(i).y = 9 + o(i).txt = idenewtxt("#OK" + sep + "#Cancel") o(i).dft = 1 '-------- end of init -------- @@ -10662,14 +14946,14 @@ FUNCTION idelayoutbox IF focus <> PrevFocus THEN 'Always start with TextBox values selected upon getting focus PrevFocus = focus - IF focus = 3 THEN + IF o(focus).typ = 1 THEN o(focus).v1 = LEN(idetxt(o(focus).txt)) IF o(focus).v1 > 0 THEN o(focus).issel = -1 o(focus).sx1 = 0 END IF END IF - a$ = idetxt(o(3).txt) + a$ = idetxt(o(ideautoindentsizeid).txt) IF LEN(a$) > 2 THEN a$ = LEFT$(a$, 2) '2 character limit FOR i = 1 TO LEN(a$) a = ASC(a$, i) @@ -10680,18 +14964,32 @@ FUNCTION idelayoutbox a = VAL(a$) IF a > 64 THEN a$ = "64" END IF - idetxt(o(3).txt) = a$ + idetxt(o(ideautoindentsizeid).txt) = a$ - IF K$ = CHR$(27) OR (focus = 6 AND info <> 0) THEN EXIT FUNCTION - IF K$ = CHR$(13) OR (focus = 5 AND info <> 0) THEN + IF focus = ideautolayoutkwcapitalsid AND o(ideautolayoutkwcapitalsid).sel = 1 THEN + o(ideautolayoutid).sel = 1 + END IF + + IF focus = ideindentsubsid AND o(ideindentsubsid).sel = 1 THEN + o(ideautoindentID).sel = 1 + END IF + + IF o(ideautolayoutid).sel = 0 THEN o(ideautolayoutkwcapitalsid).sel = 0 + IF o(ideautoindentID).sel = 0 THEN o(ideindentsubsid).sel = 0 + + IF K$ = CHR$(27) OR (focus = buttonsid + 1 AND info <> 0) THEN EXIT FUNCTION 'cancel + IF K$ = CHR$(13) OR (focus = buttonsid AND info <> 0) THEN 'ok 'save changes - v% = o(1).sel: IF v% <> 0 THEN v% = 1 'ideautolayout - + v% = o(ideautolayoutid).sel: IF v% <> 0 THEN v% = 1 'ideautolayout IF ideautolayout <> v% THEN ideautolayout = v%: idelayoutbox = 1 - v% = o(2).sel: IF v% <> 0 THEN v% = 1 'ideautoindent + v% = o(ideautolayoutkwcapitalsid).sel: IF v% <> 0 THEN v% = 1 'ideautolayoutkwcapitals + IF ideautolayoutkwcapitals <> v% THEN ideautolayoutkwcapitals = v%: idelayoutbox = 1 + + v% = o(ideautoindentid).sel: IF v% <> 0 THEN v% = 1 'ideautoindent IF ideautoindent <> v% THEN ideautoindent = v%: idelayoutbox = 1 - v$ = idetxt(o(3).txt) 'ideautoindentsize + + v$ = idetxt(o(ideautoindentsizeid).txt) 'ideautoindentsize IF v$ = "" THEN v$ = "4" v% = VAL(v$) IF v% < 0 OR v% > 64 THEN v% = 4 @@ -10700,24 +14998,29 @@ FUNCTION idelayoutbox IF ideautoindent <> 0 THEN idelayoutbox = 1 END IF - v% = o(4).sel: IF v% <> 0 THEN v% = 1 'ideindentsubs + v% = o(ideindentsubsid).sel: IF v% <> 0 THEN v% = 1 'ideindentsubs IF ideindentsubs <> v% THEN ideindentsubs = v%: idelayoutbox = 1 IF ideautolayout THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoFormat", "TRUE" + WriteConfigSetting displaySettingsSection$, "IDE_AutoFormat", "True" ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoFormat", "FALSE" + WriteConfigSetting displaySettingsSection$, "IDE_AutoFormat", "False" + END IF + IF ideautolayoutkwcapitals THEN + WriteConfigSetting displaySettingsSection$, "IDE_KeywordCapital", "True" + ELSE + WriteConfigSetting displaySettingsSection$, "IDE_KeywordCapital", "False" END IF IF ideautoindent THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoIndent", "TRUE" + WriteConfigSetting displaySettingsSection$, "IDE_AutoIndent", "True" ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoIndent", "FALSE" + WriteConfigSetting displaySettingsSection$, "IDE_AutoIndent", "False" END IF - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSize", STR$(ideautoindentsize) + WriteConfigSetting displaySettingsSection$, "IDE_IndentSize", STR$(ideautoindentsize) IF ideindentsubs THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "TRUE" + WriteConfigSetting displaySettingsSection$, "IDE_IndentSUBs", "True" ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_IndentSUBs", "FALSE" + WriteConfigSetting displaySettingsSection$, "IDE_IndentSUBs", "False" END IF EXIT FUNCTION END IF @@ -10735,464 +15038,66 @@ END FUNCTION FUNCTION idebackupbox - - '-------- generic dialog box header -------- - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, 50, 5, "Backup/Undo" - a2$ = str2$(idebackupsize) - i = i + 1 - PrevFocus = 1 - o(i).typ = 1 - o(i).y = 2 - o(i).nam = idenewtxt("#Undo buffer limit (10-2000MB)") - o(i).txt = idenewtxt(a2$) - o(i).v1 = LEN(a2$) - IF o(i).v1 > 0 THEN - o(i).issel = -1 - o(i).sx1 = 0 + v$ = ideinputbox$("Backup/Undo", "#Undo buffer limit (10-2000MB)", a2$, "0123456789", 50, 4, 0) + IF v$ = "" THEN EXIT FUNCTION + + 'save changes + v& = VAL(v$) + IF v& < 10 THEN v& = 10 + IF v& > 2000 THEN v& = 2000 + + IF v& < idebackupsize THEN + OPEN tmpdir$ + "undo2.bin" FOR OUTPUT AS #151: CLOSE #151 + ideundobase = 0 + ideundopos = 0 END IF - i = i + 1 - o(i).typ = 3 - o(i).y = 5 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - 'specific post controls - IF focus <> PrevFocus THEN - 'Always start with TextBox values selected upon getting focus - PrevFocus = focus - IF focus = 1 THEN - o(focus).v1 = LEN(idetxt(o(focus).txt)) - IF o(focus).v1 > 0 THEN o(focus).issel = -1 - o(focus).sx1 = 0 - END IF - END IF - - a$ = idetxt(o(1).txt) - IF LEN(a$) > 4 THEN a$ = LEFT$(a$, 4) '4 character limit - FOR i = 1 TO LEN(a$) - a = ASC(a$, i) - IF i = 2 AND ASC(a$, 1) = 48 THEN a$ = "0": EXIT FOR - IF a < 48 OR a > 57 THEN a$ = LEFT$(a$, i - 1): EXIT FOR - NEXT - IF focus <> 1 THEN - a = VAL(a$) - IF a < 10 THEN a$ = "10" - IF a > 2000 THEN a$ = "2000" - END IF - idetxt(o(1).txt) = a$ - - - - IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN EXIT FUNCTION - - IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) THEN - 'save changes - v$ = idetxt(o(1).txt) 'idebackupsize - v& = VAL(v$) - IF v& < 10 THEN v& = 10 - IF v& > 2000 THEN v& = 2000 - - IF v& < idebackupsize THEN - OPEN tmpdir$ + "undo2.bin" FOR OUTPUT AS #151: CLOSE #151 - ideundobase = 0 - ideundopos = 0 - END IF - - idebackupsize = v& - WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", STR$(v&) + " 'in MB" - idebackupbox = 1 - EXIT FUNCTION - END IF - - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP + idebackupsize = v& + WriteConfigSetting generalSettingsSection$, "BackupSize", STR$(v&) + " 'in MB" + idebackupbox = 1 END FUNCTION - - - -FUNCTION idemodifycommandbox - '-------- generic dialog box header -------- - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, 65, 5, "Modify COMMAND$" - - a2$ = ModifyCOMMAND$ - IF LEN(a2$) > 0 THEN a2$ = MID$(a2$, 2) - i = i + 1 - PrevFocus = 1 - o(i).typ = 1 - o(i).y = 2 - o(i).nam = idenewtxt("#Enter text for COMMAND$") - o(i).txt = idenewtxt(a2$) - o(i).v1 = LEN(a2$) - IF o(i).v1 > 0 THEN - o(i).issel = -1 - o(i).sx1 = 0 - END IF - - i = i + 1 - o(i).typ = 3 - o(i).y = 5 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - 'specific post controls - IF focus <> PrevFocus THEN - 'Always start with TextBox values selected upon getting focus - PrevFocus = focus - IF focus = 1 THEN - o(focus).v1 = LEN(idetxt(o(focus).txt)) - IF o(focus).v1 > 0 THEN o(focus).issel = -1 - o(focus).sx1 = 0 - END IF - END IF - - IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN EXIT FUNCTION - - IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) THEN - ModifyCOMMAND$ = " " + idetxt(o(1).txt) - IF LTRIM$(RTRIM$(ModifyCOMMAND$)) = "" THEN ModifyCOMMAND$ = "" - EXIT FUNCTION - END IF - - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP -END FUNCTION - -FUNCTION idegotobox - '-------- generic dialog box header -------- - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - '-------- init -------- - i = 0 - idepar p, 30, 5, "Go To Line" - +SUB idegotobox IF idegotobox_LastLineNum > 0 THEN a2$ = str2$(idegotobox_LastLineNum) ELSE a2$ = "" - i = i + 1 - PrevFocus = 1 - o(i).typ = 1 - o(i).y = 2 - o(i).nam = idenewtxt("#Line") - o(i).txt = idenewtxt(a2$) - o(i).v1 = LEN(a2$) - IF o(i).v1 > 0 THEN - o(i).issel = -1 - o(i).sx1 = 0 - END IF + v$ = ideinputbox$("Go To Line", "#Line", a2$, "0123456789", 30, 8, 0) + IF v$ = "" THEN EXIT SUB - i = i + 1 - o(i).typ = 3 - o(i).y = 5 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") - o(i).dft = 1 - '-------- end of init -------- + v& = VAL(v$) + IF v& < 1 THEN v& = 1 + IF v& > iden THEN v& = iden + idegotobox_LastLineNum = v& + AddQuickNavHistory + idecy = v& + idecentercurrentline + ideselect = 0 +END SUB - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- +SUB ideSetTCPPortBox + a2$ = str2$(idebaseTcpPort) + v$ = ideinputbox$("Base TCP/IP Port Number", "#Port number for $DEBUG mode", a2$, "0123456789", 45, 5, 0) + IF v$ = "" THEN EXIT SUB - DO 'main loop + idebaseTcpPort = VAL(v$) + IF idebaseTcpPort = 0 THEN idebaseTcpPort = 9000 + WriteConfigSetting debugSettingsSection$, "BaseTCPPort", str2$(idebaseTcpPort) +END SUB +FUNCTION idegetlinenumberbox(title$, initialValue&) + a2$ = str2$(initialValue&) + IF a2$ = "0" THEN a2$ = "" + v$ = ideinputbox$(title$, "#Line", a2$, "0123456789", 30, 8, 0) + IF v$ = "" THEN EXIT FUNCTION - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN + v& = VAL(v$) + IF v& < 1 THEN v& = 1 + IF v& > iden THEN v& = iden - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - 'specific post controls - IF focus <> PrevFocus THEN - 'Always start with TextBox values selected upon getting focus - PrevFocus = focus - IF focus = 1 THEN - o(focus).v1 = LEN(idetxt(o(focus).txt)) - IF o(focus).v1 > 0 THEN o(focus).issel = -1 - o(focus).sx1 = 0 - END IF - END IF - - a$ = idetxt(o(1).txt) - IF LEN(a$) > 8 THEN a$ = LEFT$(a$, 8) '8 character limit - FOR i = 1 TO LEN(a$) - a = ASC(a$, i) - IF i = 2 AND ASC(a$, 1) = 48 THEN a$ = "0": EXIT FOR - IF a < 48 OR a > 57 THEN a$ = LEFT$(a$, i - 1): EXIT FOR - NEXT - IF focus <> 1 THEN - a = VAL(a$) - IF a < 1 THEN a$ = "1" - END IF - idetxt(o(1).txt) = a$ - - IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN EXIT FUNCTION - - IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) THEN - v$ = idetxt(o(1).txt) - v& = VAL(v$) - IF v& < 1 THEN v& = 1 - IF v& > iden THEN v& = iden - idegotobox_LastLineNum = v& - AddQuickNavHistory idecy - idecy = v& - ideselect = 0 - EXIT FUNCTION - END IF - - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP + idegetlinenumberbox = v& END FUNCTION - - FUNCTION ideadvancedbox '-------- generic dialog box header -------- @@ -11224,7 +15129,8 @@ FUNCTION ideadvancedbox o(i).y = y o(i).nam = idenewtxt("Embed C++ debug information into executable") o(i).sel = idedebuginfo - y = y + 1: Direct_Text$(y) = " " + CHR$(254) + " Investigate crashes/freezes at C++ (not QB64) code level" + y = y + 1: Direct_Text$(y) = " " + CHR$(254) + " This setting is not required for $DEBUG mode" + y = y + 1: Direct_Text$(y) = " " + CHR$(254) + " Use it to investigate crashes/freezes at C++ (not QB64) code level" y = y + 1: Direct_Text$(y) = " " + CHR$(254) + " Use internal/temp/debug batch file to debug your executable" y = y + 1: Direct_Text$(y) = " " + CHR$(254) + " Increases executable size" y = y + 1: Direct_Text$(y) = " " + CHR$(254) + " Makes public the names of variables in your program's code" @@ -11265,7 +15171,7 @@ FUNCTION ideadvancedbox '-------- custom display changes -------- FOR y = 1 TO 100 IF LEN(Direct_Text$(y)) THEN - COLOR 0, 7: LOCATE p.y + y, p.x + 1: PRINT Direct_Text$(y) + COLOR 0, 7: _PRINTSTRING (p.x + 1, p.y + y), Direct_Text$(y) END IF NEXT '-------- end of custom display changes -------- @@ -11328,52 +15234,26 @@ FUNCTION ideadvancedbox IF v% <> idedebuginfo THEN idedebuginfo = v% IF idedebuginfo THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "TRUE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!" + WriteConfigSetting generalSettingsSection$, "DebugInfo", "True" + DebugInfoIniWarning$ ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!" + WriteConfigSetting generalSettingsSection$, "DebugInfo", "False" + DebugInfoIniWarning$ END IF Include_GDB_Debugging_Info = idedebuginfo - IF os$ = "WIN" THEN - CHDIR "internal\c" - SHELL _HIDE "cmd /c purge_all_precompiled_content_win.bat" - CHDIR "..\.." - END IF - IF os$ = "LNX" THEN - CHDIR "./internal/c" - - IF INSTR(_OS$, "[MACOSX]") THEN - SHELL _HIDE "./purge_all_precompiled_content_osx.command" - ELSE - SHELL _HIDE "./purge_all_precompiled_content_lnx.sh" - END IF - CHDIR "../.." - END IF + purgeprecompiledcontent idechangemade = 1 'force recompilation + startPausedPending = 0 END IF - '... - - EXIT FUNCTION END IF - - - - - - - - - - - - 'end of custom controls mousedown = 0 mouseup = 0 LOOP + + ideadvancedbox = 0 END FUNCTION @@ -11382,7 +15262,7 @@ END FUNCTION -SUB idemessagebox (titlestr$, messagestr$) +FUNCTION idemessagebox (titlestr$, messagestr$, buttons$) '-------- generic dialog box header -------- PCOPY 0, 2 @@ -11396,8 +15276,9 @@ SUB idemessagebox (titlestr$, messagestr$) '-------- end of generic dialog box header -------- '-------- init -------- + messagestr$ = StrReplace$(messagestr$, "\n", CHR$(10)) MessageLines = 1 - DIM FullMessage$(1 TO 4) + DIM FullMessage$(1 TO 8) PrevScan = 1 DO NextScan = INSTR(NextScan + 1, messagestr$, CHR$(10)) @@ -11416,15 +15297,24 @@ SUB idemessagebox (titlestr$, messagestr$) END IF LOOP + IF buttons$ = "" THEN buttons$ = "#OK" + totalButtons = 1 + FOR i = 1 TO LEN(buttons$) + IF ASC(buttons$, i) = 59 THEN totalButtons = totalButtons + 1 + NEXT + buttonsLen = LEN(buttons$) + totalButtons * 6 + i = 0 w2 = LEN(titlestr$) + 4 IF w < w2 THEN w = w2 + IF w < buttonsLen THEN w = buttonsLen + IF w > idewx - 4 THEN w = idewx - 4 idepar p, w, 3 + MessageLines, titlestr$ i = i + 1 o(i).typ = 3 o(i).y = 3 + MessageLines - o(i).txt = idenewtxt("OK") + o(i).txt = idenewtxt(StrReplace$(buttons$, ";", sep)) o(i).dft = 1 '-------- end of init -------- @@ -11454,8 +15344,10 @@ SUB idemessagebox (titlestr$, messagestr$) '-------- custom display changes -------- COLOR 0, 7 FOR i = 1 TO MessageLines - LOCATE p.y + 1 + i, p.x + (w \ 2 - LEN(FullMessage$(i)) \ 2) + 1 - PRINT FullMessage$(i); + IF LEN(FullMessage$(i)) > p.w - 2 THEN + FullMessage$(i) = LEFT$(FullMessage$(i), p.w - 5) + STRING$(3, 250) + END IF + _PRINTSTRING (p.x + (w \ 2 - LEN(FullMessage$(i)) \ 2) + 1, p.y + 1 + i), FullMessage$(i) NEXT i '-------- end of custom display changes -------- @@ -11490,6 +15382,9 @@ SUB idemessagebox (titlestr$, messagestr$) '-------- generic input response -------- info = 0 + + IF UCASE$(K$) >= "A" AND UCASE$(K$) <= "Z" THEN altletter$ = UCASE$(K$) + IF K$ = "" THEN K$ = CHR$(255) IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" @@ -11506,76 +15401,271 @@ SUB idemessagebox (titlestr$, messagestr$) '-------- end of generic input response -------- 'specific post controls - IF K$ = CHR$(27) OR K$ = CHR$(13) OR (focus = 1 AND info <> 0) THEN EXIT SUB + IF K$ = CHR$(27) THEN EXIT FUNCTION + + IF K$ = CHR$(13) OR (info <> 0) THEN + idemessagebox = focus + ClearMouse + EXIT FUNCTION + END IF 'end of custom controls mousedown = 0 mouseup = 0 LOOP -END SUB +END FUNCTION FUNCTION ideyesnobox$ (titlestr$, messagestr$) 'returns "Y" or "N" - '-------- generic dialog box header -------- - PCOPY 3, 0 - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- + result = idemessagebox(titlestr$, messagestr$, "#Yes;#No") + IF result = 1 THEN ideyesnobox$ = "Y" ELSE ideyesnobox$ = "N" +END FUNCTION 'yes/no box - '-------- init -------- - i = 0 - w = LEN(messagestr$) + 2 - w2 = LEN(titlestr$) + 4 - IF w < w2 THEN w = w2 - idepar p, w, 4, titlestr$ - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("#Yes" + sep + "#No") - o(i).dft = 1 - '-------- end of init -------- +'SUB idecheckupdates +' FOR i = 1 TO 3 +' SELECT CASE i +' CASE 1 +' remoteFile$ = "www.qb64.org/getver.php" +' lookFor$ = "Version$ = " +' m$ = "Connecting to qb64.org...\n" + STRING$(10, 219) + STRING$(20, 176) + "\n" +' m$ = m$ + "Checking stable version (1/3)" +' temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "") +' CASE 2 +' remoteFile$ = "www.qb64.org/getdevver.php" +' lookFor$ = "Version$ = " +' m$ = "Connecting to qb64.org...\n" + STRING$(20, 219) + STRING$(10, 176) + "\n" +' m$ = m$ + "Checking development version (2/3)" +' temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "") +' CASE 3 +' remoteFile$ = "www.qb64.org/devbuilds2.php" +' lookFor$ = "document.getElementById('gitlink').innerHTML = " +' m$ = "Connecting to qb64.org...\n" + STRING$(30, 219) + "\n" +' m$ = m$ + "Checking development build (3/3)" +' temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "") +' END SELECT - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- +' DO +' temp$ = ideactivitybox$("update", "", "", "", "") +' IF LEN(temp$) THEN +' 'either ESC or click means "cancel" for this dialog in particular +' Result$ = Download$("", "", "", 0) +' EXIT SUB +' END IF - DO 'main loop +' Result$ = Download$(remoteFile$, contents$, lookFor$, 30) +' SELECT CASE CVI(LEFT$(Result$, 2)) +' CASE 1 'Success +' found = CVL(MID$(Result$, 3, 4)) +' SELECT CASE i +' CASE 1 +' remoteVersion$ = MID$(contents$, found + LEN(lookFor$) + 1) +' remoteVersion$ = LEFT$(remoteVersion$, INSTR(remoteVersion$, CHR$(34)) - 1) +' CASE 2 +' remoteDevVersion$ = MID$(contents$, found + LEN(lookFor$) + 1) +' remoteDevVersion$ = LEFT$(remoteDevVersion$, INSTR(remoteDevVersion$, CHR$(34)) - 1) +' CASE 3 +' remoteDevBuild$ = MID$(contents$, found + LEN(lookFor$) + 1) +' remoteDevBuild$ = LEFT$(remoteDevBuild$, INSTR(remoteDevBuild$, CHR$(34)) - 1) +' END SELECT +' EXIT DO +' CASE 2, 3 'Can't reach server; Timeout +' EXIT DO +' END SELECT - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- +' _LIMIT 100 +' LOOP +' Result$ = Download$("", "", "", 0) +' NEXT - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 2: PRINT messagestr$; - '-------- end of custom display changes -------- +' m$ = "Current version: " + Version$ + " " + DevChannel$ +' IF LEN(AutoBuildMsg$) THEN m$ = m$ + ", " + AutoBuildMsg$ +' m$ = m$ + ".\n" - 'update visual page and cursor position - PCOPY 1, 0 +' DIM button$(1 TO 3) +' button$(3) = "#Close" +' IF LEN(remoteVersion$) THEN +' button$(1) = "Get #Stable Release" +' IF INSTR(remoteVersion$, "Cannot") = 0 THEN +' IF remoteVersion$ > Version$ THEN +' 'higher version number in the stable release is newer than current version +' 'regardless of this being a dev build +' m$ = m$ + "\n- A new stable version is available: v" + remoteVersion$ + ";" +' ELSE +' IF INSTR(DevChannel$, "Development") = 0 THEN +' 'if remoteVersion$ is not higher than current and this is not +' 'a dev build, we're all good. +' m$ = m$ + "\n- You have the latest stable version: v" + Version$ + ";" +' button$(1) = "#OK" +' ELSE +' IF remoteVersion$ = Version$ THEN +' 'if this is a dev build and version numbers match, that probably means +' 'a stable version based on this dev build was released +' m$ = m$ + "\n- A new stable version is available: v" + remoteVersion$ + ";" +' ELSE +' 'if remoteVersion$ is not higher than current and this is not +' 'a dev build, we're all good. +' m$ = m$ + "\n- No new stable version available;" +' button$(1) = "#OK" +' END IF +' END IF +' END IF +' END IF +' ELSE +' m$ = m$ + "\n- Failed to check for updates. Try again later." +' button$(1) = "#OK" +' END IF - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 +' IF LEN(remoteDevVersion$) THEN +' button$(2) = "Get #Dev Build" +' IF INSTR(remoteDevVersion$, "error: ") = 0 THEN +' IF INSTR(DevChannel$, "Development") = 0 THEN +' 'if this is not a dev build, it'll be offered +' m$ = m$ + "\n- Development build available: v" + remoteDevVersion$ +' IF LEN(remoteDevBuild$) THEN m$ = m$ + ", " + remoteDevBuild$ +' m$ = m$ + ";" +' ELSE +' IF remoteDevVersion$ >= Version$ THEN +' 'this is a dev build and remote version is same or higher +' m$ = m$ + "\n- Latest dev build available: v" + remoteDevVersion$ +' IF LEN(remoteDevBuild$) THEN m$ = m$ + ", " + remoteDevBuild$ +' m$ = m$ + ";" +' END IF +' END IF +' END IF +' ELSE +' m$ = m$ + "\n- Failed to check for dev builds. Try again later." +' button$(2) = "#Close" +' IF button$(1) = "#OK" THEN button$(2) = "" +' button$(3) = "" +' END IF - '-------- read input -------- - change = 0 - DO +' buttons$ = "" +' FOR i = 1 TO 3 +' IF LEN(button$(i)) THEN +' IF LEN(buttons$) THEN buttons$ = buttons$ + ";" +' buttons$ = buttons$ + button$(i) +' END IF +' NEXT + +' result = idemessagebox("Check for Newer Version", m$, buttons$) +' IF result = 0 THEN EXIT SUB + +' url$ = "" +' SELECT CASE button$(result) +' CASE "Get #Dev Build" +' url$ = "https://www.qb64.org/portal/development-build/" +' CASE "Get #Stable Release" +' url$ = "https://github.com/QB64Team/qb64/releases/latest" +' END SELECT + +' IF LEN(url$) = 0 THEN EXIT SUB + +' IF INSTR(_OS$, "WIN") THEN +' SHELL _HIDE _DONTWAIT "start " + url$ +' ELSEIF INSTR(_OS$, "MAC") THEN +' SHELL _HIDE _DONTWAIT "open " + url$ +' ELSE +' SHELL _HIDE _DONTWAIT "xdg-open " + url$ +' END IF +'END SUB + + +FUNCTION ideactivitybox$ (action$, titlestr$, messagestr$, buttons$) STATIC + + SELECT CASE LCASE$(action$) + CASE "setup" + '-------- generic dialog box header -------- + PCOPY 0, 2 + PCOPY 0, 1 + SCREEN , , 1, 0 + focus = 1 + REDIM p AS idedbptype + REDIM o(1 TO 100) AS idedbotype + REDIM sep AS STRING * 1 + sep = CHR$(0) + '-------- end of generic dialog box header -------- + + '-------- init -------- + messagestr$ = StrReplace$(messagestr$, "\n", CHR$(10)) + MessageLines = 1 + REDIM FullMessage$(1 TO 8) + PrevScan = 1 + DO + NextScan = INSTR(NextScan + 1, messagestr$, CHR$(10)) + IF NextScan > 0 THEN + FullMessage$(MessageLines) = MID$(messagestr$, PrevScan, NextScan - PrevScan) + tw = LEN(FullMessage$(MessageLines)) + 2 + IF tw > w THEN w = tw + PrevScan = NextScan + 1 + MessageLines = MessageLines + 1 + IF MessageLines > UBOUND(FullMessage$) THEN EXIT DO + ELSE + FullMessage$(MessageLines) = MID$(messagestr$, PrevScan) + tw = LEN(FullMessage$(MessageLines)) + 2 + IF tw > w THEN w = tw + EXIT DO + END IF + LOOP + + IF buttons$ = "" THEN buttons$ = "#OK" + totalButtons = 1 + FOR i = 1 TO LEN(buttons$) + IF ASC(buttons$, i) = 59 THEN totalButtons = totalButtons + 1 + NEXT + buttonsLen = LEN(buttons$) + totalButtons * 6 + + i = 0 + w2 = LEN(titlestr$) + 4 + IF w < w2 THEN w = w2 + IF w < buttonsLen THEN w = buttonsLen + IF w > idewx - 4 THEN w = idewx - 4 + idepar p, w, 3 + MessageLines, titlestr$ + + i = i + 1 + o(i).typ = 3 + o(i).y = 3 + MessageLines + o(i).txt = idenewtxt(StrReplace$(buttons$, ";", sep)) + o(i).dft = 1 + '-------- end of init -------- + + '-------- generic init -------- + FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects + '-------- end of generic init -------- + CASE "update" + '-------- generic display dialog box & objects -------- + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + + 'prepare object + o(i).foc = focus - f 'focus offset + o(i).cx = 0: o(i).cy = 0 + idedrawobj o(i), f 'display object + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + END IF + NEXT i + lastfocus = f - 1 + '-------- end of generic display dialog box & objects -------- + + '-------- custom display changes -------- + COLOR 0, 7 + FOR i = 1 TO MessageLines + IF LEN(FullMessage$(i)) > p.w - 2 THEN + FullMessage$(i) = LEFT$(FullMessage$(i), p.w - 5) + STRING$(3, 250) + END IF + _PRINTSTRING (p.x + (w \ 2 - LEN(FullMessage$(i)) \ 2) + 1, p.y + 1 + i), FullMessage$(i) + NEXT i + '-------- end of custom display changes -------- + + 'update visual page and cursor position + PCOPY 1, 0 + IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 + + '-------- read input -------- + change = 0 GetInput IF mWHEEL THEN change = 1 IF KB THEN change = 1 @@ -11585,56 +15675,54 @@ FUNCTION ideyesnobox$ (titlestr$, messagestr$) 'returns "Y" or "N" alt = KALT: IF alt <> oldalt THEN change = 1 oldalt = alt _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + + IF change THEN + IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 + 'convert "alt+letter" scancode to letter's ASCII character + altletter$ = "" + IF alt AND NOT KCTRL THEN + IF LEN(K$) = 1 THEN + k = ASC(UCASE$(K$)) + IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + END IF + END IF + SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 + '-------- end of read input -------- + + '-------- generic input response -------- + info = 0 + + IF UCASE$(K$) >= "A" AND UCASE$(K$) <= "Z" THEN altletter$ = UCASE$(K$) + + IF K$ = "" THEN K$ = CHR$(255) + IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 + IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" + IF focus < 1 THEN focus = lastfocus + IF focus > lastfocus THEN focus = 1 + f = 1 + FOR i = 1 TO 100 + t = o(i).typ + IF t THEN + focusoffset = focus - f + ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL + END IF + NEXT + '-------- end of generic input response -------- + + 'specific post controls + IF K$ = CHR$(27) THEN ideactivitybox$ = MKI$(0) + + IF K$ = CHR$(13) OR (info <> 0) THEN + ideactivitybox$ = MKI$(1) + MKL$(focus) + ClearMouse + END IF + 'end of custom controls + + mousedown = 0 + mouseup = 0 END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - IF UCASE$(K$) = "Y" THEN altletter$ = "Y" - IF UCASE$(K$) = "N" THEN altletter$ = "N" - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - IF K$ = CHR$(27) THEN - ideyesnobox$ = "N" - EXIT FUNCTION - END IF - - IF info THEN - IF info = 1 THEN ideyesnobox$ = "Y" ELSE ideyesnobox$ = "N" - EXIT FUNCTION - END IF - - 'end of custom controls - mousedown = 0 - mouseup = 0 - LOOP - -END FUNCTION 'yes/no box - + END SELECT +END FUNCTION FUNCTION idedisplaybox @@ -11653,21 +15741,21 @@ FUNCTION idedisplaybox '-------- init -------- i = 0 - 'idepar p, 60, 16, "Display" - 'note: manually set window position in case display to set too large by accident - p.x = (80 \ 2) - 60 \ 2 - p.y = (25 \ 2) - 16 \ 2 + 'note: manually set window position in case display is set too large by accident p.w = 60 p.h = 18 + p.x = (80 \ 2) - p.w \ 2 + p.y = (25 \ 2) - p.h \ 2 p.nam = idenewtxt("Display") a2$ = str2$(idewx) i = i + 1 PrevFocus = 1 o(i).typ = 1 - o(i).x = 16 + o(i).x = 3 o(i).y = 2 - o(i).nam = idenewtxt("#Width") + o(i).w = 10 + o(i).nam = idenewtxt("Window #width") o(i).txt = idenewtxt(a2$) o(i).v1 = LEN(a2$) IF o(i).v1 > 0 THEN @@ -11678,46 +15766,79 @@ FUNCTION idedisplaybox a2$ = str2$(idewy + idesubwindow) i = i + 1 o(i).typ = 1 - o(i).x = 15 + o(i).x = 2 o(i).y = 5 - o(i).nam = idenewtxt("#Height") + o(i).w = 10 + o(i).nam = idenewtxt("Window #height") o(i).txt = idenewtxt(a2$) o(i).v1 = LEN(a2$) i = i + 1 o(i).typ = 4 'check box - o(i).y = 8 - o(i).nam = idenewtxt("Restore window #position at startup") + o(i).y = 7 + IF INSTR(_OS$, "WIN") > 0 OR INSTR(_OS$, "MAC") > 0 THEN + o(i).nam = idenewtxt("#Remember position + size") + ELSE + o(i).nam = idenewtxt("#Remember size") + END IF IF IDE_AutoPosition THEN o(i).sel = 1 + i = i + 1 + tmpNormalCursorStart = IDENormalCursorStart + o(i).typ = 1 + o(i).x = 33 + o(i).y = 2 + o(i).nam = idenewtxt("Cursor #start") + o(i).txt = idenewtxt(str2$(IDENormalCursorStart)) + o(i).v1 = LEN(a2$) + + i = i + 1 + tmpNormalCursorEnd = IDENormalCursorEnd + o(i).typ = 1 + o(i).x = 35 + o(i).y = 5 + o(i).nam = idenewtxt("Cursor #end") + o(i).txt = idenewtxt(str2$(IDENormalCursorEnd)) + o(i).v1 = LEN(a2$) + + i = i + 1 + o(i).typ = 4 'check box + o(i).y = 9 + o(i).nam = idenewtxt("#Use _FONT 8") + o(i).sel = IDE_UseFont8 + prevFont8Setting = o(i).sel + i = i + 1 o(i).typ = 4 'check box o(i).y = 10 - o(i).nam = idenewtxt("Custom #Font:") + o(i).nam = idenewtxt("Use monospace #TTF font:") o(i).sel = idecustomfont + prevCustomFontSetting = o(i).sel a2$ = idecustomfontfile$ + prevFontFile$ = a2$ i = i + 1 o(i).typ = 1 o(i).x = 10 o(i).y = 12 - o(i).nam = idenewtxt("File #Name") + o(i).nam = idenewtxt("#Font file") o(i).txt = idenewtxt(a2$) o(i).v1 = LEN(a2$) a2$ = str2$(idecustomfontheight) + prevFontSize$ = a2$ i = i + 1 o(i).typ = 1 o(i).x = 10 o(i).y = 15 - o(i).nam = idenewtxt("#Row Height (Pixels)") + o(i).nam = idenewtxt("Font size in #pixels") o(i).txt = idenewtxt(a2$) o(i).v1 = LEN(a2$) i = i + 1 o(i).typ = 3 - o(i).y = 18 - o(i).txt = idenewtxt("OK" + sep + "#Cancel") + o(i).y = p.h + o(i).txt = idenewtxt("#OK" + sep + "#Cancel") o(i).dft = 1 '-------- end of init -------- @@ -11745,8 +15866,7 @@ FUNCTION idedisplaybox '-------- end of generic display dialog box & objects -------- '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 2: PRINT "Window Size -"; - COLOR 0, 7: LOCATE p.y + 10, p.x + 29: PRINT " Monospace TTF Font "; + LOCATE , , , tmpNormalCursorStart, tmpNormalCursorEnd '-------- end of custom display changes -------- 'update visual page and cursor position @@ -11800,13 +15920,14 @@ FUNCTION idedisplaybox IF focus <> PrevFocus THEN 'Always start with TextBox values selected upon getting focus PrevFocus = focus - IF focus = 1 OR focus = 2 OR focus = 5 OR focus = 6 THEN + IF o(focus).typ = 1 THEN o(focus).v1 = LEN(idetxt(o(focus).txt)) IF o(focus).v1 > 0 THEN o(focus).issel = -1 o(focus).sx1 = 0 END IF END IF + 'width a$ = idetxt(o(1).txt) IF LEN(a$) > 3 THEN a$ = LEFT$(a$, 3) '3 character limit FOR i = 1 TO LEN(a$) @@ -11820,6 +15941,7 @@ FUNCTION idedisplaybox END IF idetxt(o(1).txt) = a$ + 'height a$ = idetxt(o(2).txt) IF LEN(a$) > 3 THEN a$ = LEFT$(a$, 3) '3 character limit FOR i = 1 TO LEN(a$) @@ -11833,40 +15955,108 @@ FUNCTION idedisplaybox END IF idetxt(o(2).txt) = a$ - a$ = idetxt(o(5).txt) - IF LEN(a$) > 1024 THEN a$ = LEFT$(a$, 1024) - idetxt(o(5).txt) = a$ - - a$ = idetxt(o(6).txt) + 'cursor start + a$ = idetxt(o(4).txt) IF LEN(a$) > 2 THEN a$ = LEFT$(a$, 2) '2 character limit FOR i = 1 TO LEN(a$) a = ASC(a$, i) IF a < 48 OR a > 57 THEN a$ = "": EXIT FOR IF i = 2 AND ASC(a$, 1) = 48 THEN a$ = "0": EXIT FOR NEXT - IF focus <> 6 THEN + IF LEN(a$) THEN a = VAL(a$) ELSE a = 0 + IF focus <> 4 THEN + IF a < 0 THEN a$ = "0" + IF a > 31 THEN a$ = "31" + tmpNormalCursorStart = VAL(a$) + ELSE + IF a < 0 THEN a = 0 + IF a > 31 THEN a = 31 + tmpNormalCursorStart = a + END IF + idetxt(o(4).txt) = a$ + + 'cursor end + a$ = idetxt(o(5).txt) + IF LEN(a$) > 2 THEN a$ = LEFT$(a$, 2) '2 character limit + FOR i = 1 TO LEN(a$) + a = ASC(a$, i) + IF a < 48 OR a > 57 THEN a$ = "": EXIT FOR + IF i = 2 AND ASC(a$, 1) = 48 THEN a$ = "0": EXIT FOR + NEXT + IF LEN(a$) THEN a = VAL(a$) ELSE a = 0 + IF focus <> 5 THEN + IF a < 0 THEN a$ = "0" + IF a > 31 THEN a$ = "31" + tmpNormalCursorEnd = VAL(a$) + ELSE + IF a < 0 THEN a = 0 + IF a > 31 THEN a = 31 + tmpNormalCursorEnd = a + END IF + idetxt(o(5).txt) = a$ + + IF prevFont8Setting <> o(6).sel THEN + prevFont8Setting = o(6).sel + IF o(6).sel THEN o(7).sel = 0: prevCustomFontSetting = 0 + END IF + + IF prevCustomFontSetting <> o(7).sel THEN + prevCustomFontSetting = o(7).sel + IF o(7).sel THEN o(6).sel = 0: prevFont8Setting = 0 + END IF + + a$ = idetxt(o(8).txt) + IF LEN(a$) > 1024 THEN a$ = LEFT$(a$, 1024) + idetxt(o(8).txt) = a$ + IF a$ <> prevFontFile$ THEN + prevFontFile$ = a$ + IF o(7).sel = 0 THEN + o(6).sel = 0: prevFont8Setting = 0 + o(7).sel = 1: prevCustomFontSetting = 1 + END IF + END IF + + a$ = idetxt(o(9).txt) + IF LEN(a$) > 2 THEN a$ = LEFT$(a$, 2) '2 character limit + FOR i = 1 TO LEN(a$) + a = ASC(a$, i) + IF a < 48 OR a > 57 THEN a$ = "": EXIT FOR + IF i = 2 AND ASC(a$, 1) = 48 THEN a$ = "0": EXIT FOR + NEXT + IF focus <> 9 THEN IF LEN(a$) THEN a = VAL(a$) ELSE a = 0 IF a < 8 THEN a$ = "8" END IF - idetxt(o(6).txt) = a$ + idetxt(o(9).txt) = a$ + IF a$ <> prevFontSize$ THEN + prevFontSize$ = a$ + IF o(7).sel = 0 THEN + o(6).sel = 0: prevFont8Setting = 0 + o(7).sel = 1: prevCustomFontSetting = 1 + END IF + END IF - - IF K$ = CHR$(27) OR (focus = 8 AND info <> 0) THEN EXIT FUNCTION - IF K$ = CHR$(13) OR (focus = 7 AND info <> 0) THEN + IF K$ = CHR$(27) OR (focus = 11 AND info <> 0) THEN EXIT FUNCTION + IF K$ = CHR$(13) OR (focus = 10 AND info <> 0) THEN x = 0 'change to custom font 'get size in v% - v$ = idetxt(o(6).txt): IF v$ = "" THEN v$ = "0" + v$ = idetxt(o(9).txt): IF v$ = "" THEN v$ = "0" v% = VAL(v$) IF v% < 8 THEN v% = 8 IF v% > 99 THEN v% = 99 IF v% <> idecustomfontheight THEN x = 1 - IF o(4).sel <> idecustomfont THEN - IF o(4).sel = 0 THEN - _FONT 16 + IF o(6).sel <> IDE_UseFont8 THEN + IDE_UseFont8 = o(6).sel + idedisplaybox = 1 + END IF + + IF o(7).sel <> idecustomfont THEN + IF o(7).sel = 0 THEN + IF IDE_UseFont8 THEN _FONT 8 ELSE _FONT 16 _FREEFONT idecustomfonthandle ELSE x = 1 @@ -11874,14 +16064,14 @@ FUNCTION idedisplaybox END IF - v$ = idetxt(o(5).txt): IF v$ <> idecustomfontfile$ THEN x = 1 + v$ = idetxt(o(8).txt): IF v$ <> idecustomfontfile$ THEN x = 1 - IF o(4).sel = 1 AND x = 1 THEN + IF o(7).sel = 1 AND x = 1 THEN oldhandle = idecustomfonthandle idecustomfonthandle = _LOADFONT(v$, v%, "MONOSPACE") IF idecustomfonthandle = -1 THEN 'failed! - revert to default settings - o(4).sel = 0: idetxt(o(5).txt) = "c:\windows\fonts\lucon.ttf": idetxt(o(6).txt) = "21": _FONT 16 + o(7).sel = 0: idetxt(o(8).txt) = "C:\Windows\Fonts\lucon.ttf": idetxt(o(9).txt) = "21": IF IDE_UseFont8 THEN _FONT 8 ELSE _FONT 16 ELSE _FONT idecustomfonthandle END IF @@ -11908,38 +16098,47 @@ FUNCTION idedisplaybox IF v% <> 0 THEN v% = -1 IDE_AutoPosition = v% - v% = o(4).sel + v% = o(7).sel IF v% <> 0 THEN v% = 1 idecustomfont = v% - v$ = idetxt(o(5).txt) + v$ = idetxt(o(8).txt) IF LEN(v$) > 1024 THEN v$ = LEFT$(v$, 1024) idecustomfontfile$ = v$ v$ = v$ + SPACE$(1024 - LEN(v$)) - v$ = idetxt(o(6).txt): IF v$ = "" THEN v$ = "0" + v$ = idetxt(o(9).txt): IF v$ = "" THEN v$ = "0" v% = VAL(v$) IF v% < 8 THEN v% = 8 IF v% > 99 THEN v% = 99 idecustomfontheight = v% - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", STR$(idewx) - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", STR$(idewy) + WriteConfigSetting windowSettingsSection$, "IDE_Width", STR$(idewx) + WriteConfigSetting windowSettingsSection$, "IDE_Height", STR$(idewy) IF idecustomfont THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "TRUE" + WriteConfigSetting displaySettingsSection$, "IDE_CustomFont", "True" ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont", "FALSE" + WriteConfigSetting displaySettingsSection$, "IDE_CustomFont", "False" + END IF + IF IDE_UseFont8 THEN + WriteConfigSetting displaySettingsSection$, "IDE_UseFont8", "True" + ELSE + WriteConfigSetting displaySettingsSection$, "IDE_UseFont8", "False" END IF IF IDE_AutoPosition THEN - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE" + WriteConfigSetting displaySettingsSection$, "IDE_AutoPosition", "True" ELSE - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "FALSE" + WriteConfigSetting displaySettingsSection$, "IDE_AutoPosition", "False" END IF - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFont$", idecustomfontfile$ - WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CustomFontSize", STR$(idecustomfontheight) + WriteConfigSetting displaySettingsSection$, "IDE_CustomFont$", idecustomfontfile$ + WriteConfigSetting displaySettingsSection$, "IDE_CustomFontSize", STR$(idecustomfontheight) + IDENormalCursorStart = tmpNormalCursorStart + WriteConfigSetting displaySettingsSection$, "IDE_NormalCursorStart", str2$(IDENormalCursorStart) + IDENormalCursorEnd = tmpNormalCursorEnd + WriteConfigSetting displaySettingsSection$, "IDE_NormalCursorEnd", str2$(IDENormalCursorEnd) EXIT FUNCTION END IF @@ -11955,9 +16154,9 @@ FUNCTION idechoosecolorsbox DIM bkpIDEQuoteColor AS _UNSIGNED LONG, bkpIDETextColor AS _UNSIGNED LONG DIM bkpIDEBackgroundColor AS _UNSIGNED LONG, bkpIDEKeywordColor AS _UNSIGNED LONG DIM bkpIDEBackgroundColor2 AS _UNSIGNED LONG, bkpIDENumbersColor AS _UNSIGNED LONG - DIM bkpIDEBracketHighlightColor AS _UNSIGNED LONG + DIM bkpIDEBracketHighlightColor AS _UNSIGNED LONG, bkpIDEChromaColor AS _UNSIGNED LONG - TotalItems = 9 + TotalItems = 10 DIM SelectionIndicator$(1 TO TotalItems) bkpIDECommentColor = IDECommentColor bkpIDEMetaCommandColor = IDEMetaCommandColor @@ -11968,6 +16167,7 @@ FUNCTION idechoosecolorsbox bkpIDEBackgroundColor = IDEBackgroundColor bkpIDEBackgroundColor2 = IDEBackgroundColor2 bkpIDEBracketHighlightColor = IDEBracketHighlightColor + bkpIDEChromaColor = IDEChromaColor '-------- generic dialog box header -------- PCOPY 0, 2 @@ -11985,7 +16185,7 @@ FUNCTION idechoosecolorsbox _PALETTECOLOR 5, &HFF00A800, 0 'Original green may have been changed by the Help System, so 5 is now green i = 0 - idepar p, 73, 19, "IDE Colors" + idepar p, 73, 20, "IDE Colors" l$ = CHR$(16) + "Normal Text" l$ = l$ + sep + " Keywords" @@ -11996,10 +16196,11 @@ FUNCTION idechoosecolorsbox l$ = l$ + sep + " Background" l$ = l$ + sep + " Current line background" l$ = l$ + sep + " Bracket/selection highlight" + l$ = l$ + sep + " Menus and dialogs" i = i + 1 o(i).typ = 2 o(i).y = 4 - o(i).w = 30: o(i).h = 9 + o(i).w = 30: o(i).h = 10 o(i).txt = idenewtxt(l$) o(i).sel = 1 SelectedITEM = 1 @@ -12038,29 +16239,29 @@ FUNCTION idechoosecolorsbox i = i + 1 o(i).typ = 4 'check box - o(i).y = 15 + o(i).y = 16 o(i).nam = idenewtxt("#Highlight brackets") IF brackethighlight THEN o(i).sel = 1 i = i + 1 o(i).typ = 4 'check box - o(i).y = 16 + o(i).y = 17 o(i).nam = idenewtxt("#Multi-highlight (selection)") IF multihighlight THEN o(i).sel = 1 i = i + 1 o(i).typ = 4 'check box - o(i).y = 17 - o(i).nam = idenewtxt("#Keyword highlight") + o(i).y = 18 + o(i).nam = idenewtxt("Highlight #keywords and numbers") IF keywordHighlight THEN o(i).sel = 1 i = i + 1 o(i).typ = 3 - o(i).y = 19 - o(i).txt = idenewtxt("#OK" + sep + "Restore #defaults" + sep + "#Cancel") + o(i).y = 20 + o(i).txt = idenewtxt("#OK" + sep + "Restore #Defaults" + sep + "#Cancel") o(i).dft = 1 - result = ReadConfigSetting("SchemeID", value$) + result = ReadConfigSetting(colorSettingsSection$, "SchemeID", value$) SchemeID = VAL(value$) IF SchemeID > TotalColorSchemes THEN SchemeID = 0 @@ -12070,7 +16271,7 @@ FUNCTION idechoosecolorsbox 'Validate this scheme first FoundPipe = INSTR(ColorSchemes$(SchemeID), "|") IF FoundPipe > 0 THEN - IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 81 THEN + IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 90 THEN a2$ = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1) ELSE SchemeID = 0 @@ -12138,6 +16339,7 @@ FUNCTION idechoosecolorsbox _PALETTECOLOR 1, IDEBackgroundColor, 0 _PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details _PALETTECOLOR 6, IDEBackgroundColor2, 0 + _PALETTECOLOR 7, IDEChromaColor, 0 _PALETTECOLOR 8, IDENumbersColor, 0 _PALETTECOLOR 10, IDEMetaCommandColor, 0 _PALETTECOLOR 11, IDECommentColor, 0 @@ -12151,7 +16353,7 @@ FUNCTION idechoosecolorsbox T = VAL(idetxt(o(2).txt)): r = ((T / 255) * 26) IF T = 0 THEN slider$ = CHR$(195) IF T = 255 THEN slider$ = CHR$(180) - LOCATE p.y + 5, p.x + 39 + r: PRINT slider$; + _PRINTSTRING (p.x + 39 + r, p.y + 5), slider$ COLOR 0: LOCATE p.y + 8, p.x + 36: PRINT "G: "; COLOR 5: PRINT STRING$(26, 196); @@ -12159,7 +16361,7 @@ FUNCTION idechoosecolorsbox T = VAL(idetxt(o(3).txt)): r = ((T / 255) * 26) IF T = 0 THEN slider$ = CHR$(195) IF T = 255 THEN slider$ = CHR$(180) - LOCATE p.y + 8, p.x + 39 + r: PRINT slider$; + _PRINTSTRING (p.x + 39 + r, p.y + 8), slider$ COLOR 0: LOCATE p.y + 11, p.x + 36: PRINT "B: "; COLOR 9: PRINT STRING$(26, 196); @@ -12167,14 +16369,14 @@ FUNCTION idechoosecolorsbox T = VAL(idetxt(o(4).txt)): r = ((T / 255) * 26) IF T = 0 THEN slider$ = CHR$(195) IF T = 255 THEN slider$ = CHR$(180) - LOCATE p.y + 11, p.x + 39 + r: PRINT slider$; - - COLOR 7, 1 - LOCATE p.y + 13, p.x + 39: PRINT CHR$(218); STRING$(25, 196); - LOCATE p.y + 14, p.x + 39: PRINT CHR$(179); SPACE$(25); - LOCATE p.y + 15, p.x + 39: PRINT CHR$(179); SPACE$(25); + _PRINTSTRING (p.x + 39 + r, p.y + 11), slider$ SELECT EVERYCASE SelectedITEM + CASE 1 TO 9 + COLOR 7, 1 + _PRINTSTRING (p.x + 39, p.y + 13), CHR$(218) + STRING$(25, 196) + _PRINTSTRING (p.x + 39, p.y + 14), CHR$(179) + SPACE$(25) + _PRINTSTRING (p.x + 39, p.y + 15), CHR$(179) + SPACE$(25) CASE 1: COLOR 13, 1: SampleText$ = "myVar% = " 'Normal text CASE 2: COLOR 12, 1: SampleText$ = "CLS: PRINT" 'Keywords CASE 3: COLOR 13, 1: SampleText$ = "myVar% = " 'Normal text @@ -12186,21 +16388,27 @@ FUNCTION idechoosecolorsbox CASE 9 COLOR 6, 6: SampleText$ = "" 'Bracket highlight _PALETTECOLOR 6, IDEBracketHighlightColor, 0 + CASE 10 + COLOR 0, 7 + _PRINTSTRING (p.x + 39, p.y + 13), CHR$(218) + STRING$(24, 196) + CHR$(191) + _PRINTSTRING (p.x + 39, p.y + 14), CHR$(179) + SPACE$(24) + CHR$(179) + _PRINTSTRING (p.x + 39, p.y + 15), CHR$(192) + STRING$(24, 196) + CHR$(217) + SampleText$ = " Open... Ctrl+O " END SELECT - LOCATE p.y + 14, p.x + 40: PRINT SampleText$; + _PRINTSTRING (p.x + 40, p.y + 14), SampleText$ IF SelectedITEM = 1 OR SelectedITEM = 3 THEN COLOR 8, 1 - LOCATE p.y + 14, p.x + 49: PRINT "5"; + _PRINTSTRING (p.x + 49, p.y + 14), "5" ELSEIF SelectedITEM = 2 THEN COLOR 13, 1 - LOCATE p.y + 14, p.x + 51: PRINT "myVar%"; + _PRINTSTRING (p.x + 51, p.y + 14), "myVar%" ELSEIF SelectedITEM = 4 THEN COLOR 12, 1 - LOCATE p.y + 14, p.x + 40: PRINT "PRINT"; + _PRINTSTRING (p.x + 40, p.y + 14), "PRINT" ELSEIF SelectedITEM = 5 THEN COLOR 11, 1 - LOCATE p.y + 14, p.x + 40: PRINT "'"; + _PRINTSTRING (p.x + 40, p.y + 14), "'" ELSEIF SelectedITEM = 9 THEN LOCATE p.y + 14, p.x + 40 COLOR 13, 1: PRINT "myVar% = "; @@ -12209,6 +16417,9 @@ FUNCTION idechoosecolorsbox COLOR 13, 6: PRINT "("; LOCATE p.y + 14, p.x + 56 PRINT ")"; + ELSEIF SelectedITEM = 10 THEN + COLOR 15, 7 + _PRINTSTRING (p.x + 41, p.y + 14), "O" END IF '-------- end of custom display changes -------- @@ -12281,7 +16492,7 @@ FUNCTION idechoosecolorsbox END IF 'Save and Erase color scheme (Buttons): - IF (SchemeID = 0 OR SchemeID > PresetColorSchemes) AND mB THEN + IF (SchemeID = 0 OR SchemeID > PresetColorSchemes) AND mCLICK THEN IF mY = p.y + 2 AND mX >= p.x + 60 AND mX <= p.x + 65 THEN 'Save IF SchemeID = 0 THEN @@ -12292,13 +16503,13 @@ FUNCTION idechoosecolorsbox i = 0 DO i = i + 1 - result = ReadConfigSetting("Scheme" + str2$(i) + "$", value$) + result = ReadConfigSetting(colorSchemesSection$, "Scheme" + str2$(i) + "$", value$) IF value$ = "" OR value$ = "0" THEN EXIT DO LOOP 'Build scheme string SchemeString$ = SchemeString$ + "|" - FOR j = 1 TO 9 + FOR j = 1 TO 10 SELECT CASE j CASE 1: CurrentColor~& = IDETextColor CASE 2: CurrentColor~& = IDEKeywordColor @@ -12309,6 +16520,7 @@ FUNCTION idechoosecolorsbox CASE 7: CurrentColor~& = IDEBackgroundColor CASE 8: CurrentColor~& = IDEBackgroundColor2 CASE 9: CurrentColor~& = IDEBracketHighlightColor + CASE 10: CurrentColor~& = IDEChromaColor END SELECT r$ = str2$(_RED32(CurrentColor~&)): r$ = STRING$(3 - LEN(r$), "0") + r$ @@ -12318,7 +16530,7 @@ FUNCTION idechoosecolorsbox NEXT j 'Save user scheme - WriteConfigSetting "'[IDE COLOR SCHEMES]", "Scheme" + str2$(i) + "$", SchemeString$ + WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", SchemeString$ LoadColorSchemes SchemeID = PresetColorSchemes + i ChangedScheme = -1 @@ -12336,7 +16548,7 @@ FUNCTION idechoosecolorsbox SchemeString$ = SchemeString$ + "|" 'Build scheme string - FOR j = 1 TO 9 + FOR j = 1 TO 10 SELECT CASE j CASE 1: CurrentColor~& = IDETextColor CASE 2: CurrentColor~& = IDEKeywordColor @@ -12347,6 +16559,7 @@ FUNCTION idechoosecolorsbox CASE 7: CurrentColor~& = IDEBackgroundColor CASE 8: CurrentColor~& = IDEBackgroundColor2 CASE 9: CurrentColor~& = IDEBracketHighlightColor + CASE 10: CurrentColor~& = IDEChromaColor END SELECT r$ = str2$(_RED32(CurrentColor~&)): r$ = STRING$(3 - LEN(r$), "0") + r$ @@ -12356,7 +16569,7 @@ FUNCTION idechoosecolorsbox NEXT j 'Save user scheme - WriteConfigSetting "'[IDE COLOR SCHEMES]", "Scheme" + str2$(i) + "$", SchemeString$ + WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", SchemeString$ LoadColorSchemes SchemeID = PresetColorSchemes + i ChangedScheme = -1 @@ -12372,7 +16585,7 @@ FUNCTION idechoosecolorsbox K$ = "" IF what$ = "Y" THEN i = SchemeID - PresetColorSchemes - WriteConfigSetting "'[IDE COLOR SCHEMES]", "Scheme" + str2$(i) + "$", "0" + WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", "0" LoadColorSchemes SchemeID = SchemeID - 1 ChangedScheme = -1 @@ -12386,7 +16599,7 @@ FUNCTION idechoosecolorsbox 'Scheme selection arrows: ChangedScheme = 0 SchemeArrow = 0 - IF (mB AND mY = p.y + 2 AND mX >= p.x + 2 AND mX <= p.x + 4) OR _ + IF (mCLICK AND mY = p.y + 2 AND mX >= p.x + 2 AND mX <= p.x + 4) OR _ (K$ = CHR$(0) + CHR$(75) AND (focus = 1)) THEN SchemeArrow = -1 IF SchemeID = 0 THEN @@ -12395,7 +16608,7 @@ FUNCTION idechoosecolorsbox ELSE IF SchemeID > 1 THEN SchemeID = SchemeID - 1: ChangedScheme = -1 END IF - ELSEIF (mB AND mY = p.y + 2 AND mX >= p.x + 5 AND mX <= p.x + 7) OR _ + ELSEIF (mCLICK AND mY = p.y + 2 AND mX >= p.x + 5 AND mX <= p.x + 7) OR _ (K$ = CHR$(0) + CHR$(77) AND (focus = 1)) THEN SchemeArrow = 1 IF SchemeID = 0 THEN @@ -12412,7 +16625,7 @@ FUNCTION idechoosecolorsbox ValidateScheme: FoundPipe = INSTR(ColorSchemes$(SchemeID), "|") IF FoundPipe > 0 THEN - IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 81 THEN + IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 90 THEN a2$ = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1) ELSE SchemeID = SchemeID + SchemeArrow @@ -12432,7 +16645,7 @@ FUNCTION idechoosecolorsbox o(9).v1 = LEN(idetxt(o(9).txt)) o(9).issel = -1 o(9).sx1 = 0 - ColorData$ = RIGHT$(ColorSchemes$(SchemeID), 81) + ColorData$ = RIGHT$(ColorSchemes$(SchemeID), 90) i = 1 r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3 IDETextColor = _RGB32(VAL(r$), VAL(g$), VAL(b$)) @@ -12452,13 +16665,18 @@ FUNCTION idechoosecolorsbox IDEBackgroundColor2 = _RGB32(VAL(r$), VAL(g$), VAL(b$)) r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3 IDEBracketHighlightColor = _RGB32(VAL(r$), VAL(g$), VAL(b$)) - _DELAY .2 + r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3 + IDEChromaColor = _RGB32(VAL(r$), VAL(g$), VAL(b$)) GOTO ChangeTextBoxes END IF IF mB AND mY = p.y + 5 AND mX >= p.x + 39 AND mX <= p.x + 39 + 26 THEN newValue = (mX - p.x - 39) * (255 / 26) idetxt(o(2).txt) = str2$(newValue) + IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN + idetxt(o(3).txt) = str2$(newValue) + idetxt(o(4).txt) = str2$(newValue) + END IF focus = 2 o(focus).v1 = LEN(idetxt(o(focus).txt)) o(focus).issel = -1 @@ -12469,6 +16687,10 @@ FUNCTION idechoosecolorsbox IF mB AND mY = p.y + 8 AND mX >= p.x + 39 AND mX <= p.x + 39 + 26 THEN newValue = (mX - p.x - 39) * (255 / 26) idetxt(o(3).txt) = str2$(newValue) + IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN + idetxt(o(2).txt) = str2$(newValue) + idetxt(o(4).txt) = str2$(newValue) + END IF focus = 3 o(focus).v1 = LEN(idetxt(o(focus).txt)) o(focus).issel = -1 @@ -12479,6 +16701,10 @@ FUNCTION idechoosecolorsbox IF mB AND mY = p.y + 11 AND mX >= p.x + 39 AND mX <= p.x + 39 + 26 THEN newValue = (mX - p.x - 39) * (255 / 26) idetxt(o(4).txt) = str2$(newValue) + IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN + idetxt(o(2).txt) = str2$(newValue) + idetxt(o(3).txt) = str2$(newValue) + END IF focus = 4 o(focus).v1 = LEN(idetxt(o(focus).txt)) o(focus).issel = -1 @@ -12503,7 +16729,7 @@ FUNCTION idechoosecolorsbox IF SelectedITEM <> o(1).sel AND o(1).sel > 0 THEN SelectedITEM = o(1).sel - FOR i = 1 TO 9: SelectionIndicator$(i) = " ": NEXT i + FOR i = 1 TO 10: SelectionIndicator$(i) = " ": NEXT i SelectionIndicator$(SelectedITEM) = CHR$(16) i = 0 @@ -12516,6 +16742,7 @@ FUNCTION idechoosecolorsbox i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Background" i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Current line background" i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Bracket/selection highlight" + i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Menus and dialogs" idetxt(o(1).txt) = l$ ChangeTextBoxes: @@ -12529,6 +16756,7 @@ FUNCTION idechoosecolorsbox CASE 7: CurrentColor~& = IDEBackgroundColor CASE 8: CurrentColor~& = IDEBackgroundColor2 CASE 9: CurrentColor~& = IDEBracketHighlightColor + CASE 10: CurrentColor~& = IDEChromaColor END SELECT idetxt(o(2).txt) = str2$(_RED32(CurrentColor~&)) idetxt(o(3).txt) = str2$(_GREEN32(CurrentColor~&)) @@ -12584,6 +16812,7 @@ FUNCTION idechoosecolorsbox CASE 7: IDEBackgroundColor = CurrentColor~& 'Background CASE 8: IDEBackgroundColor2 = CurrentColor~& 'Current line background CASE 9: IDEBracketHighlightColor = CurrentColor~& 'Bracket highlight + CASE 10: IDEChromaColor = CurrentColor~& END SELECT IF K$ = CHR$(27) OR (focus = 10 AND info <> 0) THEN @@ -12592,29 +16821,22 @@ FUNCTION idechoosecolorsbox IDEQuoteColor = bkpIDEQuoteColor IDETextColor = bkpIDETextColor IDEKeywordColor = bkpIDEKeywordColor + IDENumbersColor = bkpIDENumbersColor IDEBackgroundColor = bkpIDEBackgroundColor IDEBackgroundColor2 = bkpIDEBackgroundColor2 IDEBracketHighlightColor = bkpIDEBracketHighlightColor + IDEChromaColor = bkpIDEChromaColor EXIT FUNCTION END IF IF (focus = 9 AND info <> 0) THEN LoadDefaultScheme: - IDECommentColor = _RGB32(85, 255, 255) - IDEMetaCommandColor = _RGB32(85, 255, 85) - IDEQuoteColor = _RGB32(255, 255, 85) - IDETextColor = _RGB32(226, 226, 226) - IDEKeywordColor = _RGB32(147, 196, 235) - IDENumbersColor = _RGB32(245, 128, 177) - IDEBackgroundColor = _RGB32(0, 0, 170) - IDEBackgroundColor2 = _RGB32(0, 108, 177) - IDEBracketHighlightColor = _RGB32(0, 147, 177) + GOSUB enableHighlighter SchemeID = 1 FoundPipe = INSTR(ColorSchemes$(SchemeID), "|") idetxt(o(9).txt) = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1) - IF ChangedScheme THEN _DELAY .2 info = 0 - GOTO ChangeTextBoxes + GOTO ApplyScheme END IF IF (focus = 8 AND info <> 0) OR _ @@ -12627,8 +16849,10 @@ FUNCTION idechoosecolorsbox (focus = 7 AND K$ = CHR$(13)) OR _ (focus = 11 AND K$ = CHR$(13)) THEN 'save changes - WriteConfigSetting "'[IDE COLOR SETTINGS]", "SchemeID", str2$(SchemeID) - FOR i = 1 TO 9 + GOSUB enableHighlighter + + WriteConfigSetting colorSettingsSection$, "SchemeID", str2$(SchemeID) + FOR i = 1 TO 10 SELECT CASE i CASE 1: CurrentColor~& = IDETextColor: colorid$ = "TextColor" CASE 2: CurrentColor~& = IDEKeywordColor: colorid$ = "KeywordColor" @@ -12639,13 +16863,9 @@ FUNCTION idechoosecolorsbox CASE 7: CurrentColor~& = IDEBackgroundColor: colorid$ = "BackgroundColor" CASE 8: CurrentColor~& = IDEBackgroundColor2: colorid$ = "BackgroundColor2" CASE 9: CurrentColor~& = IDEBracketHighlightColor: colorid$ = "HighlightColor" + CASE 10: CurrentColor~& = IDEChromaColor: colorid$ = "ChromaColor" END SELECT - r$ = str2$(_RED32(CurrentColor~&)) - g$ = str2$(_GREEN32(CurrentColor~&)) - b$ = str2$(_BLUE32(CurrentColor~&)) - - RGBString$ = "_RGB32(" + r$ + "," + g$ + "," + b$ + ")" - WriteConfigSetting "'[IDE COLOR SETTINGS]", colorid$, RGBString$ + WriteConfigSetting colorSettingsSection$, colorid$, rgbs$(CurrentColor~&) NEXT i v% = o(5).sel @@ -12653,9 +16873,9 @@ FUNCTION idechoosecolorsbox brackethighlight = v% IF brackethighlight THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "BracketHighlight", "TRUE" + WriteConfigSetting generalSettingsSection$, "BracketHighlight", "True" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "BracketHighlight", "FALSE" + WriteConfigSetting generalSettingsSection$, "BracketHighlight", "False" END IF v% = o(6).sel @@ -12663,9 +16883,9 @@ FUNCTION idechoosecolorsbox multihighlight = v% IF multihighlight THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "MultiHighlight", "TRUE" + WriteConfigSetting generalSettingsSection$, "MultiHighlight", "True" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "MultiHighlight", "FALSE" + WriteConfigSetting generalSettingsSection$, "MultiHighlight", "False" END IF v% = o(7).sel @@ -12673,9 +16893,9 @@ FUNCTION idechoosecolorsbox keywordHighlight = v% IF keywordHighlight THEN - WriteConfigSetting "'[GENERAL SETTINGS]", "KeywordHighlight", "TRUE" + WriteConfigSetting generalSettingsSection$, "KeywordHighlight", "True" ELSE - WriteConfigSetting "'[GENERAL SETTINGS]", "KeywordHighlight", "FALSE" + WriteConfigSetting generalSettingsSection$, "KeywordHighlight", "False" END IF EXIT FUNCTION @@ -12686,6 +16906,9 @@ FUNCTION idechoosecolorsbox mousedown = 0 mouseup = 0 LOOP + + idechoosecolorsbox = 0 + EXIT FUNCTION NewUserScheme: IF SchemeID > 0 AND SchemeID <= PresetColorSchemes THEN @@ -12696,10 +16919,18 @@ FUNCTION idechoosecolorsbox idetxt(o(9).txt) = "User-defined" END IF RETURN + + enableHighlighter: + IF DisableSyntaxHighlighter THEN + DisableSyntaxHighlighter = 0 + WriteConfigSetting generalSettingsSection$, "DisableSyntaxHighlighter", "False" + menu$(OptionsMenuID, OptionsMenuDisableSyntax) = CHR$(7) + "Syntax #Highlighter" + END IF + RETURN END FUNCTION -FUNCTION idecolorpicker$ (editing) +FUNCTION idergbmixer$ (editing) '-------- generic dialog box header -------- PCOPY 0, 2 PCOPY 0, 1 @@ -12781,16 +17012,12 @@ FUNCTION idecolorpicker$ (editing) 'one closer to the cursor. Found_RGB = 0 DO - Found_RGB = INSTR(Found_RGB + 1, a$, "_RGB") + Found_RGB = INSTR(Found_RGB + 1, a$, "RGB") IF Found_RGB = 0 THEN EXIT DO FindBracket1 = INSTR(Found_RGB, a$, "(") FindBracket2 = INSTR(FindBracket1, a$, ")") IF FindBracket1 > 0 AND FindBracket2 > 0 THEN - 'Check the number of commas in the brackets. - '2 or 3 are accepted. - RGBArgs$ = MID$(a$, FindBracket1 + 1, FindBracket2 - FindBracket1 - 1) - TotalCommas = CountItems(RGBArgs$, ",") - IF TotalCommas = 2 OR TotalCommas = 3 THEN All_RGB$ = All_RGB$ + MKI$(Found_RGB) + All_RGB$ = All_RGB$ + MKI$(Found_RGB) END IF LOOP @@ -12816,10 +17043,12 @@ FUNCTION idecolorpicker$ (editing) END IF 'Read RGB values and fill the textboxes - IF LEFT$(a2$, 5) = "_RGB(" OR _ - LEFT$(a2$, 7) = "_RGB32(" OR _ - LEFT$(a2$, 6) = "_RGBA(" OR _ - LEFT$(a2$, 8) = "_RGBA32(" THEN + DIM newSyntax AS _BYTE + IF LEFT$(a2$, 4) = "RGB(" OR _ + LEFT$(a2$, 6) = "RGB32(" OR _ + LEFT$(a2$, 5) = "RGBA(" OR _ + LEFT$(a2$, 7) = "RGBA32(" THEN + IF LEFT$(a2$, 6) = "RGB32(" THEN newSyntax = -1 IF InsertRGBAt = 0 THEN InsertRGBAt = sx1 FindComma1 = INSTR(a2$, ",") IF FindComma1 > 0 THEN @@ -12861,6 +17090,58 @@ FUNCTION idecolorpicker$ (editing) idetxt(o(2).txt) = str2$(g) idetxt(o(3).txt) = str2$(b) + FOR i = 1 TO 3 + o(i).sx1 = 0 + o(i).v1 = LEN(idetxt(o(i).txt)) + IF o(i).v1 > 0 THEN o(i).issel = -1 + NEXT i + ELSEIF newSyntax THEN 'in case it's _RGB32(intensity, alpha) + r$ = "" + FOR i = FindComma1 - 1 TO 1 STEP -1 + IF ASC(a2$, i) >= 48 AND ASC(a2$, i) <= 57 THEN + r$ = MID$(a2$, i, 1) + r$ + ELSE + EXIT FOR + END IF + NEXT i + + r = VAL(r$): IF r < 0 THEN r = 0 + IF r > 255 THEN r = 255 + g = r + b = r + + idetxt(o(1).txt) = str2$(r) + idetxt(o(2).txt) = str2$(g) + idetxt(o(3).txt) = str2$(b) + + FOR i = 1 TO 3 + o(i).sx1 = 0 + o(i).v1 = LEN(idetxt(o(i).txt)) + IF o(i).v1 > 0 THEN o(i).issel = -1 + NEXT i + END IF + ELSEIF newSyntax THEN + '_RGB32(intensity)? + FindComma1 = INSTR(a2$, ")") + IF FindComma1 THEN + r$ = "" + FOR i = FindComma1 - 1 TO 1 STEP -1 + IF ASC(a2$, i) >= 48 AND ASC(a2$, i) <= 57 THEN + r$ = MID$(a2$, i, 1) + r$ + ELSE + EXIT FOR + END IF + NEXT i + + r = VAL(r$): IF r < 0 THEN r = 0 + IF r > 255 THEN r = 255 + g = r + b = r + + idetxt(o(1).txt) = str2$(r) + idetxt(o(2).txt) = str2$(g) + idetxt(o(3).txt) = str2$(b) + FOR i = 1 TO 3 o(i).sx1 = 0 o(i).v1 = LEN(idetxt(o(i).txt)) @@ -12869,7 +17150,7 @@ FUNCTION idecolorpicker$ (editing) END IF END IF ELSE - 'If a selection if present, it spans only one line, but + 'If a selection is present, it spans only one line, but 'no _RGB is selected, let's try to find some _RGB around. IF ideselect AND ideselecty1 = idecy THEN ideselect = 0 @@ -12912,7 +17193,7 @@ FUNCTION idecolorpicker$ (editing) T = VAL(idetxt(o(1).txt)): r = ((T / 255) * 46) IF T = 0 THEN slider$ = CHR$(195) IF T = 255 THEN slider$ = CHR$(180) - LOCATE p.y + 2, p.x + 15 + r: PRINT slider$; + _PRINTSTRING (p.x + 15 + r, p.y + 2), slider$ COLOR 0: LOCATE p.y + 5, p.x + 13: PRINT "G: "; COLOR 5: PRINT STRING$(46, 196); @@ -12920,7 +17201,7 @@ FUNCTION idecolorpicker$ (editing) T = VAL(idetxt(o(2).txt)): r = ((T / 255) * 46) IF T = 0 THEN slider$ = CHR$(195) IF T = 255 THEN slider$ = CHR$(180) - LOCATE p.y + 5, p.x + 15 + r: PRINT slider$; + _PRINTSTRING (p.x + 15 + r, p.y + 5), slider$ COLOR 0: LOCATE p.y + 8, p.x + 13: PRINT "B: "; COLOR 9: PRINT STRING$(46, 196); @@ -12928,12 +17209,13 @@ FUNCTION idecolorpicker$ (editing) T = VAL(idetxt(o(3).txt)): r = ((T / 255) * 46) IF T = 0 THEN slider$ = CHR$(195) IF T = 255 THEN slider$ = CHR$(180) - LOCATE p.y + 8, p.x + 15 + r: PRINT slider$; + _PRINTSTRING (p.x + 15 + r, p.y + 8), slider$ + + COLOR 0: _PRINTSTRING (p.x + 19, p.y + 9), "Hold CTRL to drag all sliders at once." COLOR 12 FOR i = 2 TO 8 - LOCATE p.y + i, p.x + 2 - PRINT STRING$(10, 219); + _PRINTSTRING (p.x + 2, p.y + i), STRING$(10, 219) NEXT i '-------- end of custom display changes -------- @@ -12997,6 +17279,10 @@ FUNCTION idecolorpicker$ (editing) IF mB AND mY = p.y + 2 AND mX >= p.x + 15 AND mX <= p.x + 15 + 46 THEN newValue = (mX - p.x - 15) * (255 / 46) idetxt(o(1).txt) = str2$(newValue) + IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN + idetxt(o(2).txt) = str2$(newValue) + idetxt(o(3).txt) = str2$(newValue) + END IF focus = 1 o(focus).v1 = LEN(idetxt(o(focus).txt)) o(focus).issel = -1 @@ -13006,6 +17292,10 @@ FUNCTION idecolorpicker$ (editing) IF mB AND mY = p.y + 5 AND mX >= p.x + 15 AND mX <= p.x + 15 + 46 THEN newValue = (mX - p.x - 15) * (255 / 46) idetxt(o(2).txt) = str2$(newValue) + IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN + idetxt(o(1).txt) = str2$(newValue) + idetxt(o(3).txt) = str2$(newValue) + END IF focus = 2 o(focus).v1 = LEN(idetxt(o(focus).txt)) o(focus).issel = -1 @@ -13015,6 +17305,10 @@ FUNCTION idecolorpicker$ (editing) IF mB AND mY = p.y + 8 AND mX >= p.x + 15 AND mX <= p.x + 15 + 46 THEN newValue = (mX - p.x - 15) * (255 / 46) idetxt(o(3).txt) = str2$(newValue) + IF _KEYDOWN(100305) OR _KEYDOWN(100306) THEN + idetxt(o(1).txt) = str2$(newValue) + idetxt(o(2).txt) = str2$(newValue) + END IF focus = 3 o(focus).v1 = LEN(idetxt(o(focus).txt)) o(focus).issel = -1 @@ -13054,7 +17348,11 @@ FUNCTION idecolorpicker$ (editing) NEXT checkRGB CurrentColor~& = _RGB32(VAL(idetxt(o(1).txt)), VAL(idetxt(o(2).txt)), VAL(idetxt(o(3).txt))) - CurrentRGB$ = idetxt(o(1).txt) + ", " + idetxt(o(2).txt) + ", " + idetxt(o(3).txt) + IF newSyntax AND (idetxt(o(1).txt) = idetxt(o(2).txt) AND idetxt(o(2).txt) = idetxt(o(3).txt)) THEN + CurrentRGB$ = idetxt(o(1).txt) + ELSE + CurrentRGB$ = idetxt(o(1).txt) + ", " + idetxt(o(2).txt) + ", " + idetxt(o(3).txt) + END IF _PALETTECOLOR 12, CurrentColor~&, 0 IF K$ = CHR$(27) OR (focus = 6 AND info <> 0) THEN @@ -13063,17 +17361,23 @@ FUNCTION idecolorpicker$ (editing) END IF IF (focus = 5 AND info <> 0) THEN + 'Return the current RGB string + IF (idetxt(o(1).txt) = idetxt(o(2).txt) AND idetxt(o(2).txt) = idetxt(o(3).txt)) THEN + CurrentRGB$ = "_RGB32(" + idetxt(o(1).txt) + ")" + ELSE + CurrentRGB$ = "_RGB32(" + idetxt(o(1).txt) + ", " + idetxt(o(2).txt) + ", " + idetxt(o(3).txt) + ")" + END IF + _CLIPBOARD$ = CurrentRGB$ - idecolorpicker$ = CurrentRGB$ ideselect = prev.ideselect EXIT FUNCTION END IF - IF (focus = 4 AND info <> 0) OR _ - (focus = 1 AND K$ = CHR$(13)) OR _ - (focus = 2 AND K$ = CHR$(13)) OR _ - (focus = 3 AND K$ = CHR$(13)) OR _ - (focus = 4 AND K$ = CHR$(13)) THEN + IF (focus = 4 AND info <> 0) OR _ + (focus = 1 AND K$ = CHR$(13)) OR _ + (focus = 2 AND K$ = CHR$(13)) OR _ + (focus = 3 AND K$ = CHR$(13)) OR _ + (focus = 4 AND K$ = CHR$(13)) THEN IF CurrentLine$ = "" THEN CurrentLine$ = idegetline(idecy) IF editing THEN 'If we're changing an existing statement, let's insert the values @@ -13081,7 +17385,7 @@ FUNCTION idecolorpicker$ (editing) FindBracket1 = INSTR(InsertRGBAt, CurrentLine$, "(") FindBracket2 = INSTR(FindBracket1, CurrentLine$, ")") OldRGB$ = MID$(CurrentLine$, FindBracket1, FindBracket2 - FindBracket1 + 1) - IF CountItems(OldRGB$, ",") = 3 THEN 'If the current statement has the ALPHA parameter + IF (newSyntax AND CountItems(OldRGB$, ",") = 1) OR CountItems(OldRGB$, ",") = 3 THEN 'If the current statement has the ALPHA parameter FOR i = FindBracket2 TO FindBracket1 STEP -1 IF ASC(CurrentLine$, i) = 44 THEN FindBracket2 = i: EXIT FOR NEXT i @@ -13091,6 +17395,7 @@ FUNCTION idecolorpicker$ (editing) NewLine$ = NewLine$ + CurrentRGB$ NewLine$ = NewLine$ + MID$(CurrentLine$, FindBracket2) idechangemade = 1 + startPausedPending = 0 idesetline idecy, NewLine$ 'Select the inserted bit @@ -13098,49 +17403,20 @@ FUNCTION idecolorpicker$ (editing) idecx = ideselectx1 + LEN(CurrentRGB$) ideselecty1 = idecy prev.ideselect = 1 - ELSE - detail$ = "no _RGB statement found" - IF ideselect AND ideselecty1 <> idecy THEN - detail$ = "can't insert - multiple lines" - END IF - _CLIPBOARD$ = CurrentRGB$ - ideerrormessage "Copied to the clipboard (" + detail$ + ")." - END IF - ELSE - IF ideselect THEN - IF ideselecty1 <> idecy THEN - _CLIPBOARD$ = CurrentRGB$ - ideerrormessage "Copied to the clipboard (can't insert - multiple lines)." - ELSE - 'Delete selection and insert current RGB values - sx1 = ideselectx1: sx2 = idecx - IF sx1 > sx2 THEN SWAP sx1, sx2 - NewLine$ = LEFT$(CurrentLine$, sx1 - 1) - NewLine$ = NewLine$ + CurrentRGB$ - NewLine$ = NewLine$ + MID$(CurrentLine$, sx2) - idechangemade = 1 - idesetline idecy, NewLine$ - - 'Select the inserted bit - ideselectx1 = sx1 - idecx = ideselectx1 + LEN(CurrentRGB$) - ideselecty1 = idecy - prev.ideselect = 1 - END IF - ELSE - 'Insert current RGB values at the cursor - NewLine$ = LEFT$(CurrentLine$, idecx - 1) - NewLine$ = NewLine$ + CurrentRGB$ - NewLine$ = NewLine$ + MID$(CurrentLine$, idecx) - idechangemade = 1 - idesetline idecy, NewLine$ - - idecx = idecx + LEN(CurrentRGB$) - prev.ideselect = 0 + CurrentRGB$ = "" 'return nothing since we've already inserted it above END IF END IF - 'Return the current RGB string - idecolorpicker$ = CurrentRGB$ + + IF LEN(CurrentRGB$) THEN + 'Return the current RGB string + IF (idetxt(o(1).txt) = idetxt(o(2).txt) AND idetxt(o(2).txt) = idetxt(o(3).txt)) THEN + CurrentRGB$ = "_RGB32(" + idetxt(o(1).txt) + ")" + ELSE + CurrentRGB$ = "_RGB32(" + idetxt(o(1).txt) + ", " + idetxt(o(2).txt) + ", " + idetxt(o(3).txt) + ")" + END IF + END IF + + idergbmixer$ = CurrentRGB$ ideselect = prev.ideselect EXIT FUNCTION END IF @@ -13271,7 +17547,16 @@ SUB GetInput LOOP END SUB - +SUB ClearMouse + iCHANGED = 0 + mB = 0 + mB2 = 0 + mCLICK = 0 + mRELEASE = 0 + DO WHILE _MOUSEBUTTON(1) OR _MOUSEBUTTON(2) + i = _MOUSEINPUT + LOOP +END SUB SUB Help_ShowText @@ -13309,7 +17594,7 @@ SUB Help_ShowText LOCATE sy, sx DO UNTIL c = 13 COLOR col AND 15, col \ 16 - IF Help_Select = 2 THEN + IF IdeSystem = 3 AND Help_Select = 2 THEN IF y >= Help_SelY1 AND y <= Help_SelY2 THEN IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN COLOR 0, 7 @@ -13330,7 +17615,7 @@ SUB Help_ShowText FOR x4 = 1 TO Help_wx2 - POS(0) + 1 IF col = 0 THEN col = 7 COLOR col AND 15, col \ 16 - IF Help_Select = 2 THEN + IF IdeSystem = 3 AND Help_Select = 2 THEN IF y >= Help_SelY1 AND y <= Help_SelY2 THEN IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN COLOR 0, 7 @@ -13348,7 +17633,7 @@ SUB Help_ShowText x3 = Help_sx FOR x4 = 1 TO Help_ww COLOR 7, 0 - IF Help_Select = 2 THEN + IF IdeSystem = 3 AND Help_Select = 2 THEN IF y >= Help_SelY1 AND y <= Help_SelY2 THEN IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN COLOR 0, 7 @@ -13382,6 +17667,7 @@ SUB Help_ShowText END SUB + FUNCTION idesearchedbox$ '-------- generic dialog box header -------- @@ -13431,6 +17717,11 @@ FUNCTION idesearchedbox$ idepar p, 20, h, "" p.x = idewx - 24 p.y = idewy - 6 - h + IF p.y < 3 THEN + p.h = p.h - abs(3 - p.y) + h = p.h + p.y = 3 + END IF i = i + 1 o(i).typ = 2 @@ -13579,6 +17870,25 @@ SUB IdeImportBookmarks (f2$) END IF NEXT END IF + + 'at the same time, import breakpoint and skip line data + x = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "total breakpoints")) + IF x THEN + FOR i = 1 TO x + j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(i))) + IF j > UBOUND(IdeBreakpoints) THEN EXIT FOR + IdeBreakpoints(j) = -1 + NEXT + END IF + + x = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "total skips")) + IF x THEN + FOR i = 1 TO x + j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "skip" + STR$(i))) + IF j > UBOUND(IdeSkipLines) THEN EXIT FOR + IdeSkipLines(j) = -1 + NEXT + END IF END SUB SUB IdeSaveBookmarks (f2$) @@ -13599,6 +17909,30 @@ SUB IdeSaveBookmarks (f2$) a$ = f$ + MKL$(LEN(d$)) + d$ + a$ fh = FREEFILE: OPEN ".\internal\temp\bookmarks.bin" FOR OUTPUT AS #fh: CLOSE #fh fh = FREEFILE: OPEN ".\internal\temp\bookmarks.bin" FOR BINARY AS #fh: PUT #fh, , a$: CLOSE #fh + + 'at the same time, save breakpoint and skip line data + IF vWatchOn THEN + WriteSetting ".\internal\temp\debug.ini", f2$, "total breakpoints", "0" + WriteSetting ".\internal\temp\debug.ini", f2$, "total skips", "0" + + x = 0 + FOR i = 1 TO UBOUND(IdeBreakpoints) + IF IdeBreakpoints(i) THEN + x = x + 1 + WriteSetting ".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(x), str2$(i) + END IF + NEXT + WriteSetting ".\internal\temp\debug.ini", f2$, "total breakpoints", str2$(x) + + x = 0 + FOR i = 1 TO UBOUND(IdeSkipLines) + IF IdeSkipLines(i) THEN + x = x + 1 + WriteSetting ".\internal\temp\debug.ini", f2$, "skip" + STR$(x), str2$(i) + END IF + NEXT + WriteSetting ".\internal\temp\debug.ini", f2$, "total skips", str2$(x) + END IF END SUB FUNCTION iderecentbox$ @@ -13622,13 +17956,22 @@ FUNCTION iderecentbox$ l$ = "" + dialogWidth = 72 + totalRecent = 0 fh = FREEFILE OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$ a$ = RIGHT$(a$, LEN(a$) - 2) + REDIM tempList$(100) DO WHILE LEN(a$) ai = INSTR(a$, CRLF) IF ai THEN f$ = LEFT$(a$, ai - 1): IF ai = LEN(a$) - 1 THEN a$ = "" ELSE a$ = RIGHT$(a$, LEN(a$) - ai - 3) + IF LEN(f$) + 6 > dialogWidth THEN dialogWidth = LEN(f$) + 6 + totalRecent = totalRecent + 1 + IF totalRecent > UBOUND(tempList$) THEN + REDIM _PRESERVE tempList$(UBOUND(tempList$) + 100) + END IF + tempList$(totalRecent) = f$ IF LEN(l$) THEN l$ = l$ + sep + f$ ELSE l$ = f$ END IF LOOP @@ -13636,21 +17979,27 @@ FUNCTION iderecentbox$ '72,19 i = 0 - idepar p, idewx - 8, idewy + idesubwindow - 6, "Open" + dialogHeight = (totalRecent) + 3 + IF dialogHeight > idewy + idesubwindow - 6 THEN + dialogHeight = idewy + idesubwindow - 6 + END IF + + IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8 + idepar p, dialogWidth, dialogHeight, "Open" i = i + 1 o(i).typ = 2 o(i).y = 1 '68 - o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 9 + o(i).w = dialogWidth - 4: o(i).h = dialogHeight - 3 o(i).txt = idenewtxt(l$) o(i).sel = 1 o(i).nam = idenewtxt("Recent Programs") i = i + 1 o(i).typ = 3 - o(i).y = idewy + idesubwindow - 6 - o(i).txt = idenewtxt("#OK" + sep + "#Cancel" + sep + "Clea#r list" + sep + "#Remove broken links") + o(i).y = dialogHeight + o(i).txt = idenewtxt("#Open" + sep + "#Cancel" + sep + "Clear #list" + sep + "#Remove broken links") o(i).dft = 1 '-------- end of init -------- @@ -13732,7 +18081,7 @@ FUNCTION iderecentbox$ END IF IF (K$ = CHR$(13) AND focus = 1) OR (focus = 2 AND info <> 0) OR (info = 1 AND focus = 1) THEN - f$ = idetxt(o(1).stx) + f$ = tempList$(ABS(o(1).sel)) iderecentbox$ = f$ EXIT FUNCTION END IF @@ -13762,31 +18111,53 @@ SUB IdeMakeFileMenu m = 1: i = 0 menu$(m, i) = "File": i = i + 1 menu$(m, i) = "#New Ctrl+N": i = i + 1 + menuDesc$(m, i - 1) = "Closes current program and starts a blank one" menu$(m, i) = "#Open... Ctrl+O": i = i + 1 + menuDesc$(m, i - 1) = "Loads a program into memory" menu$(m, i) = "#Save Ctrl+S": i = i + 1 + menuDesc$(m, i - 1) = "Writes current program to a file on disk" menu$(m, i) = "Save #As...": i = i + 1 + menuDesc$(m, i - 1) = "Saves current program with specified name" fh = FREEFILE OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$ a$ = RIGHT$(a$, LEN(a$) - 2) - FOR r = 1 TO 5 - IF r <= 4 THEN IdeRecentLink(r, 1) = "" + maxRecentInFileMenu = UBOUND(IdeRecentLink, 1) + maxLengthRecentFiles = 35 + FOR r = 1 TO maxRecentInFileMenu + 1 + IF r <= maxRecentInFileMenu THEN IdeRecentLink(r, 1) = "" ai = INSTR(a$, CRLF) IF ai THEN IF r = 1 THEN menu$(m, i) = "-": i = i + 1 f$ = LEFT$(a$, ai - 1): IF ai = LEN(a$) - 1 THEN a$ = "" ELSE a$ = RIGHT$(a$, LEN(a$) - ai - 3) - IF r <= 4 THEN IdeRecentLink(r, 2) = f$ - IF r = 5 THEN f$ = "#Recent..." - IF LEN(f$) > 25 THEN f$ = STRING$(3, 250) + RIGHT$(f$, 22) - IF r <= 4 THEN IdeRecentLink(r, 1) = f$ - menu$(m, i) = f$: i = i + 1 + IF r <= maxRecentInFileMenu THEN IdeRecentLink(r, 2) = f$ + 'f$ = MID$(f$, _INSTRREV(f$, pathsep$) + 1) + IF LEN(f$) > maxLengthRecentFiles THEN f$ = STRING$(3, 250) + RIGHT$(f$, maxLengthRecentFiles - 3) + f$ = "#" + str2$(r) + " " + f$ + IF r = maxRecentInFileMenu + 1 THEN f$ = "#Recent..." + menu$(m, i) = f$ + IF r <= maxRecentInFileMenu THEN + IdeRecentLink(r, 1) = f$ + f$ = "Open '" + IdeRecentLink(r, 2) + "'" + ai = 3 + DO UNTIL LEN(f$) <= idewx - 2 + ai = ai + 1 + f$ = "Open '" + STRING$(3, 250) + MID$(IdeRecentLink(r, 2), ai) + "'" + LOOP + menuDesc$(m, i) = f$ + END IF + i = i + 1 END IF NEXT CLOSE #fh IF menu$(m, i - 1) <> "#Recent..." AND menu$(m, i - 1) <> "Save #As..." THEN - menu$(m, i) = "Clear #Recent...": i = i + 1 + menu$(m, i) = "#Clear Recent...": i = i + 1 + menuDesc$(m, i - 1) = "Clears list of recently loaded files" + ELSE + menuDesc$(m, i - 1) = "Displays a complete list of recently loaded files" END IF menu$(m, i) = "-": i = i + 1 menu$(m, i) = "E#xit": i = i + 1 + menuDesc$(m, i - 1) = "Exits QB64" menusize(m) = i - 1 END SUB @@ -13797,252 +18168,289 @@ SUB IdeMakeContextualMenu m = idecontextualmenuID: i = 0 menu$(m, i) = "Contextual": i = i + 1 - 'Figure out if the user wants to search for a selected term -- copied from idefind$ - IF ideselect THEN - IF ideselecty1 = idecy THEN 'single line selected - a$ = idegetline(idecy) - a2$ = "" - sx1 = ideselectx1: sx2 = idecx - IF sx2 < sx1 THEN SWAP sx1, sx2 - FOR x = sx1 TO sx2 - 1 - IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " - NEXT - END IF - IF LEN(a2$) > 0 THEN - sela2$ = UCASE$(a2$) - idecontextualSearch$ = a2$ - IF LEN(a2$) > 22 THEN - a2$ = LEFT$(a2$, 19) + STRING$(3, 250) - END IF - menu$(m, i) = "Find '" + a2$ + "'": i = i + 1 - Selection$ = a2$ - END IF - END IF - 'build SUB/FUNCTION list: - TotalSF = 0 - FOR y = 1 TO iden - a$ = idegetline(y) - a$ = LTRIM$(RTRIM$(a$)) - sf = 0 - nca$ = UCASE$(a$) - IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB " - IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNC " - IF sf THEN - IF RIGHT$(nca$, 7) = " STATIC" THEN - a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) + IF IdeDebugMode = 2 THEN + menu$(m, i) = "#Continue F5": i = i + 1 + menuDesc$(m, i - 1) = "Runs until the end of the current procedure is reached" + menu$(m, i) = "Step O#ut F6": i = i + 1 + menuDesc$(m, i - 1) = "Runs until the end of the current procedure is reached" + menu$(m, i) = "Ste#p Into F7": i = i + 1 + menuDesc$(m, i - 1) = "Runs the next line of code and pauses execution" + menu$(m, i) = "Step #Over F8": i = i + 1 + menuDesc$(m, i - 1) = "Runs the next line of code without entering subs/functions" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "Set #Next Line Ctrl+G": i = i + 1 + menuDesc$(m, i - 1) = "Jumps to the selected line before continuing execution" + menu$(m, i) = "#Run To This Line Ctrl+Shift+G": i = i + 1 + menuDesc$(m, i - 1) = "Runs until the selected line is reached" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "Toggle #Breakpoint F9": i = i + 1 + menuDesc$(m, i - 1) = "Sets/clears breakpoint at cursor location" + menu$(m, i) = "Clear All Breakpoints F10": i = i + 1 + menuDesc$(m, i - 1) = "Removes all breakpoints" + menu$(m, i) = "Toggle #Skip Line Ctrl+P": i = i + 1 + menuDesc$(m, i - 1) = "Sets/clears flag to skip line" + menu$(m, i) = "#Unskip All Lines Ctrl+F10": i = i + 1 + menuDesc$(m, i - 1) = "Removes all line skip flags" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "SUBs... F2": i = i + 1 + menuDesc$(m, i - 1) = "Displays a list of SUB/FUNCTION procedures" + menu$(m, i) = "#Watch List... F4": i = i + 1 + menuDesc$(m, i - 1) = "Adds variables to watch list" + menu$(m, i) = "Call Stack... F12": i = i + 1 + menuDesc$(m, i - 1) = "Displays the call stack of the current program's execution" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "#Exit $DEBUG mode ESC": i = i + 1 + menuDesc$(m, i - 1) = "Disconnects from the running program and returns control to the IDE" + ELSE + IF IdeSystem = 1 OR IdeSystem = 2 THEN + 'Figure out if the user wants to search for a selected term + Selection$ = getSelectedText$(0) + sela2$ = Selection$ + IF LEN(Selection$) > 0 THEN + idecontextualSearch$ = Selection$ + IF LEN(sela2$) > 22 THEN + sela2$ = LEFT$(sela2$, 19) + STRING$(3, 250) + END IF + menu$(m, i) = "Find '" + sela2$ + "'": i = i + 1 + menuDesc$(m, i - 1) = "Searches for the text currently selected" END IF - IF sf = 1 THEN - a$ = RIGHT$(a$, LEN(a$) - 4) - ELSE - a$ = RIGHT$(a$, LEN(a$) - 9) - END IF + 'build SUB/FUNCTION list: + TotalSF = 0 + FOR y = 1 TO iden + a$ = idegetline(y) + a$ = LTRIM$(RTRIM$(a$)) + sf = 0 + nca$ = UCASE$(a$) + IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB " + IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNC " + IF sf THEN + IF RIGHT$(nca$, 7) = " STATIC" THEN + a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7)) + END IF - a$ = LTRIM$(RTRIM$(a$)) - x = INSTR(a$, "(") - IF x THEN - n$ = RTRIM$(LEFT$(a$, x - 1)) - ELSE - n$ = a$ - END IF + IF sf = 1 THEN + a$ = RIGHT$(a$, LEN(a$) - 4) + ELSE + a$ = RIGHT$(a$, LEN(a$) - 9) + END IF - 'attempt to cleanse n$, just in case there are any comments or other unwanted stuff - FOR CleanseN = 1 TO LEN(n$) - SELECT CASE MID$(n$, CleanseN, 1) - CASE " ", "'", ":" - n$ = LEFT$(n$, CleanseN - 1) - EXIT FOR - END SELECT + a$ = LTRIM$(RTRIM$(a$)) + x = INSTR(a$, "(") + IF x THEN + n$ = RTRIM$(LEFT$(a$, x - 1)) + ELSE + n$ = a$ + cleanSubName n$ + END IF + + n2$ = n$ + IF LEN(n2$) > 1 THEN + DO UNTIL alphanumeric(ASC(RIGHT$(n2$, 1))) + n2$ = LEFT$(n$, LEN(n2$) - 1) 'removes sigil, if any + LOOP + END IF + + 'Populate SubFuncLIST() + TotalSF = TotalSF + 1 + REDIM _PRESERVE SubFuncLIST(1 TO TotalSF) AS STRING + SubFuncLIST(TotalSF) = MKL$(y) + CHR$(sf) + n2$ + END IF NEXT - n2$ = n$ - IF LEN(n2$) > 1 THEN - DO UNTIL alphanumeric(ASC(RIGHT$(n2$, 1))) - n2$ = LEFT$(n$, LEN(n2$) - 1) 'removes sigil, if any + 'identify if word or character at current cursor position is in the help system OR a sub/func + a2$ = UCASE$(getWordAtCursor$) + + 'check if cursor is on sub/func/label name + IF LEN(LTRIM$(RTRIM$(Selection$))) > 0 THEN + DO UNTIL alphanumeric(ASC(RIGHT$(Selection$, 1))) + Selection$ = LEFT$(Selection$, LEN(Selection$) - 1) 'removes sigil, if any + IF LEN(Selection$) = 0 THEN EXIT DO LOOP + Selection$ = LTRIM$(RTRIM$(Selection$)) END IF - 'Populate SubFuncLIST() - TotalSF = TotalSF + 1 - REDIM _PRESERVE SubFuncLIST(1 TO TotalSF) AS STRING - SubFuncLIST(TotalSF) = MKL$(y) + CHR$(sf) + n2$ - END IF - NEXT + IF RIGHT$(a2$, 1) = "$" THEN a3$ = LEFT$(a2$, LEN(a2$) - 1) ELSE a3$ = a2$ 'creates a new version without $ - 'identify if word or character at current cursor position is in the help system OR a sub/func - '(copied/adapted from ide2) - a$ = idegetline(idecy) - a2$ = "" - x = idecx - IF x <= LEN(a$) AND x >= 1 THEN - IF alphanumeric(ASC(a$, x)) THEN - x1 = x - DO WHILE x1 > 1 - IF alphanumeric(ASC(a$, x1 - 1)) OR ASC(a$, x1 - 1) = 36 THEN x1 = x1 - 1 ELSE EXIT DO - LOOP - x2 = x - DO WHILE x2 < LEN(a$) - IF alphanumeric(ASC(a$, x2 + 1)) OR ASC(a$, x2 + 1) = 36 THEN x2 = x2 + 1 ELSE EXIT DO - LOOP - a2$ = MID$(a$, x1, x2 - x1 + 1) - ELSE - a2$ = CHR$(ASC(a$, x)) - END IF - a2$ = UCASE$(a2$) - END IF + IF LEN(a3$) > 0 OR LEN(Selection$) > 0 THEN - 'check if cursor is on sub/func/label name - IF LEN(LTRIM$(RTRIM$(Selection$))) > 0 THEN - DO UNTIL alphanumeric(ASC(RIGHT$(Selection$, 1))) - Selection$ = LEFT$(Selection$, LEN(Selection$) - 1) 'removes sigil, if any - IF LEN(Selection$) = 0 THEN EXIT DO - LOOP - Selection$ = LTRIM$(RTRIM$(Selection$)) - END IF + FOR CheckSF = 1 TO TotalSF + IF a3$ = UCASE$(MID$(SubFuncLIST(CheckSF), 6)) OR UCASE$(Selection$) = UCASE$(MID$(SubFuncLIST(CheckSF), 6)) THEN + CurrSF$ = FindCurrentSF$(idecy) + IF LEN(CurrSF$) = 0 THEN GOTO SkipCheckCurrSF - IF RIGHT$(a2$, 1) = "$" THEN a3$ = LEFT$(a2$, LEN(a2$) - 1) ELSE a3$ = a2$ 'creates a new version without $ + DO UNTIL alphanumeric(ASC(RIGHT$(CurrSF$, 1))) + CurrSF$ = LEFT$(CurrSF$, LEN(CurrSF$) - 1) 'removes sigil, if any + IF LEN(CurrSF$) = 0 THEN EXIT DO + LOOP + CurrSF$ = UCASE$(CurrSF$) - IF LEN(a3$) > 0 OR LEN(Selection$) > 0 THEN + SkipCheckCurrSF: + IF ASC(SubFuncLIST(CheckSF), 5) = 1 THEN + CursorSF$ = "SUB " + ELSE + CursorSF$ = "FUNCTION " + END IF + CursorSF$ = CursorSF$ + MID$(SubFuncLIST(CheckSF), 6) - FOR CheckSF = 1 TO TotalSF - IF a3$ = UCASE$(MID$(SubFuncLIST(CheckSF), 6)) OR UCASE$(Selection$) = UCASE$(MID$(SubFuncLIST(CheckSF), 6)) THEN + IF UCASE$(CursorSF$) = CurrSF$ THEN + EXIT FOR + ELSE + menu$(m, i) = "#Go To " + CursorSF$: i = i + 1 + menuDesc$(m, i - 1) = "Jumps to procedure definition" + SubFuncLIST(1) = SubFuncLIST(CheckSF) + EXIT FOR + END IF + END IF + NEXT CheckSF + + v = 0 CurrSF$ = FindCurrentSF$(idecy) - IF LEN(CurrSF$) = 0 THEN GOTO SkipCheckCurrSF - - DO UNTIL alphanumeric(ASC(RIGHT$(CurrSF$, 1))) - CurrSF$ = LEFT$(CurrSF$, LEN(CurrSF$) - 1) 'removes sigil, if any - IF LEN(CurrSF$) = 0 THEN EXIT DO - LOOP - CurrSF$ = UCASE$(CurrSF$) - - SkipCheckCurrSF: - IF ASC(SubFuncLIST(CheckSF), 5) = 1 THEN - CursorSF$ = "SUB " - ELSE - CursorSF$ = "FUNCTION " - END IF - CursorSF$ = CursorSF$ + MID$(SubFuncLIST(CheckSF), 6) - - IF UCASE$(CursorSF$) = CurrSF$ THEN - EXIT FOR - ELSE - menu$(m, i) = "#Go To " + CursorSF$: i = i + 1 - SubFuncLIST(1) = SubFuncLIST(CheckSF) - EXIT FOR + IF validname(a2$) THEN v = HashFind(a2$, HASHFLAG_LABEL, ignore, r) + CheckThisLabel: + IF v THEN + LabelLineNumber = Labels(r).SourceLineNumber + ThisLabelScope$ = FindCurrentSF$(LabelLineNumber) + IF ThisLabelScope$ <> CurrSF$ AND v = 2 THEN + v = HashFindCont(ignore, r) + GOTO CheckThisLabel + END IF + IF LabelLineNumber > 0 AND LabelLineNumber <> idecy THEN + menu$(m, i) = "Go To #Label " + RTRIM$(Labels(r).cn): i = i + 1 + menuDesc$(m, i - 1) = "Jumps to label" + REDIM _PRESERVE SubFuncLIST(1 TO UBOUND(SubFuncLIST) + 1) AS STRING + SubFuncLIST(UBOUND(SubFuncLIST)) = MKL$(Labels(r).SourceLineNumber) + END IF END IF END IF - NEXT CheckSF - v = 0 - CurrSF$ = FindCurrentSF$(idecy) - IF NOT Error_Happened THEN v = HashFind(a2$, HASHFLAG_LABEL, ignore, r) - CheckThisLabel: - IF v THEN - LabelLineNumber = Labels(r).SourceLineNumber - ThisLabelScope$ = FindCurrentSF$(LabelLineNumber) - IF ThisLabelScope$ <> CurrSF$ AND v = 2 THEN - v = HashFindCont(ignore, r) - GOTO CheckThisLabel - END IF - IF LabelLineNumber > 0 AND LabelLineNumber <> idecy THEN - menu$(m, i) = "Go To #Label " + RTRIM$(Labels(r).cn): i = i + 1 - REDIM _PRESERVE SubFuncLIST(1 TO UBOUND(SubFuncLIST) + 1) AS STRING - SubFuncLIST(UBOUND(SubFuncLIST)) = MKL$(Labels(r).SourceLineNumber) - END IF - END IF - END IF + IF LEN(a2$) > 0 THEN + 'check if a2$ is in help links + lnks = 0 + l2$ = findHelpTopic$(a2$, lnks, -1) - IF LEN(a2$) > 0 THEN - 'check if F1 is in help links - fh = FREEFILE - OPEN "internal\help\links.bin" FOR INPUT AS #fh - lnks = 0: lnks$ = CHR$(0) - DO UNTIL EOF(fh) - LINE INPUT #fh, l$ - c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c) - IF a2$ = UCASE$(l1$) THEN - IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN - lnks = lnks + 1 - EXIT DO + IF lnks THEN + IF LEN(l2$) > 15 THEN + l2$ = LEFT$(l2$, 12) + STRING$(3, 250) + END IF + IF INSTR(l2$, "PARENTHESIS") = 0 THEN + menu$(m, i) = "#Help On '" + l2$ + "'": i = i + 1 + menuDesc$(m, i - 1) = "Opens help article on the selected term" + END IF END IF END IF - LOOP - CLOSE #fh - IF lnks THEN - IF LEN(l2$) > 15 THEN - l2$ = LEFT$(l2$, 12) + STRING$(3, 250) - END IF - IF INSTR(l2$, "Parenthesis") = 0 THEN - menu$(m, i) = "#Help On '" + l2$ + "'": i = i + 1 - END IF - END IF - END IF - - IF i > 1 THEN - menu$(m, i) = "-": i = i + 1 - END IF - - '--------- Check if _RGB mixer should be offered: ----------------------------------------- - a$ = idegetline(idecy) - IF ideselect THEN - IF ideselecty1 <> idecy THEN GOTO NoRGBFound 'multi line selected - END IF - - Found_RGB = 0 - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGB(") - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGB32(") - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGBA(") - Found_RGB = Found_RGB + INSTR(UCASE$(a$), "_RGBA32(") - IF Found_RGB THEN - menu$(m, i) = "Open _RGB Color Mi#xer": i = i + 1 - menu$(m, i) = "-": i = i + 1 - END IF - NoRGBFound: - '--------- _RGB mixer check done. -------------------------------------------- - - IF ideselect THEN menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1 - IF ideselect THEN menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1 - - clip$ = _CLIPBOARD$ 'read clipboard - IF LEN(clip$) THEN menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1 - - IF ideselect THEN menu$(m, i) = "Cl#ear Del": i = i + 1 - menu$(m, i) = "Select #All Ctrl+A": i = i + 1 - menu$(m, i) = "-": i = i + 1 - menu$(m, i) = "Toggle Comment Ctrl+T": i = i + 1 - menu$(m, i) = "Add Comment (') Ctrl+R": i = i + 1 - menu$(m, i) = "Remove Comment (') Ctrl+Shift+R": i = i + 1 - IF ideselect THEN - y1 = idecy - y2 = ideselecty1 - IF y1 = y2 THEN 'single line selected - a$ = idegetline(idecy) - a2$ = "" - sx1 = ideselectx1: sx2 = idecx - IF sx2 < sx1 THEN SWAP sx1, sx2 - FOR x = sx1 TO sx2 - 1 - IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " - NEXT - IF a2$ <> "" THEN - menu$(m, i) = "Increase Indent TAB": i = i + 1 - menu$(m, i) = "Decrease Indent" - IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" - i = i + 1 + IF i > 1 THEN menu$(m, i) = "-": i = i + 1 END IF - ELSE - menu$(m, i) = "Increase Indent TAB": i = i + 1 - menu$(m, i) = "Decrease Indent" - IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" - i = i + 1 + + '--------- Check if _RGB mixer should be offered: ----------------------------------------- + a$ = idegetline(idecy) + IF ideselect THEN + IF ideselecty1 <> idecy THEN GOTO NoRGBFound 'multi line selected + END IF + + Found_RGB = 0 + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGB(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGB32(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGBA(") + Found_RGB = Found_RGB + INSTR(UCASE$(a$), "RGBA32(") + IF Found_RGB THEN + menu$(m, i) = "#RGB Color Mixer...": i = i + 1 + menuDesc$(m, i - 1) = "Allows mixing colors to edit/insert _RGB statements" + menu$(m, i) = "-": i = i + 1 + END IF + NoRGBFound: + '--------- _RGB mixer check done. -------------------------------------------- + + IF (ideselect <> 0) THEN + menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text and copies it to clipboard" + menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1 + menuDesc$(m, i - 1) = "Copies selected text to clipboard" + END IF + + clip$ = _CLIPBOARD$ 'read clipboard + IF LEN(clip$) THEN + menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1 + menuDesc$(m, i - 1) = "Inserts clipboard contents at current location" + END IF + + IF ideselect THEN + menu$(m, i) = "Cl#ear Del": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text" + END IF + menu$(m, i) = "Select #All Ctrl+A": i = i + 1 + menuDesc$(m, i - 1) = "Selects all contents of current program" menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "To#ggle Comment Ctrl+T": i = i + 1 + menuDesc$(m, i - 1) = "Toggles comment (') on the current selection" + menu$(m, i) = "Add Co#mment (') Ctrl+R": i = i + 1 + menuDesc$(m, i - 1) = "Adds comment marker (') to the current selection" + menu$(m, i) = "Remove Comme#nt (') Ctrl+Shift+R": i = i + 1 + menuDesc$(m, i - 1) = "Removes comment marker (') from the current selection" + IF ideselect THEN + y1 = idecy + y2 = ideselecty1 + IF y1 = y2 THEN 'single line selected + a$ = idegetline(idecy) + a2$ = "" + sx1 = ideselectx1: sx2 = idecx + IF sx2 < sx1 THEN SWAP sx1, sx2 + FOR x = sx1 TO sx2 - 1 + IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " + NEXT + IF a2$ <> "" THEN + menu$(m, i) = "#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" + IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" + i = i + 1 + menu$(m, i) = "-": i = i + 1 + END IF + ELSE + menu$(m, i) = "#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" + IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" + i = i + 1 + menu$(m, i) = "-": i = i + 1 + END IF + ELSE + menu$(m, i) = "-": i = i + 1 + END IF + menu$(m, i) = "New #SUB...": i = i + 1 + menuDesc$(m, i - 1) = "Creates a new subprocedure at the end of the current program" + menu$(m, i) = "New #FUNCTION...": i = i + 1 + menuDesc$(m, i - 1) = "Creates a new function at the end of the current program" + ELSEIF IdeSystem = 3 THEN + IF (Help_Select = 2) THEN + menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1 + menuDesc$(m, i - 1) = "Copies selected text to clipboard" + END IF + menu$(m, i) = "Select #All Ctrl+A": i = i + 1 + menuDesc$(m, i - 1) = "Selects all contents of current article" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "#Contents Page": i = i + 1 + menuDesc$(m, i - 1) = "Displays help contents page" + menu$(m, i) = "Keyword #Index": i = i + 1 + menuDesc$(m, i - 1) = "Displays keyword index page" + menu$(m, i) = "#Keywords by Usage": i = i + 1 + menuDesc$(m, i - 1) = "Displays keywords index by usage" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "#Update Current Page": i = i + 1 + menuDesc$(m, i - 1) = "Downloads the latest version of this article from the wiki" + menu$(m, i) = "Update All #Pages...": i = i + 1 + menuDesc$(m, i - 1) = "Downloads the latest version of all articles from the wiki" + menu$(m, i) = "View Current Page On #Wiki": i = i + 1 + menuDesc$(m, i - 1) = "Launches the default browser and navigates to the current article on the wiki" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "Clo#se Help ESC": i = i + 1 + menuDesc$(m, i - 1) = "Closes help window" END IF - ELSE - menu$(m, i) = "-": i = i + 1 END IF - menu$(m, i) = "New #SUB...": i = i + 1 - menu$(m, i) = "New #FUNCTION...": i = i + 1 menusize(m) = i - 1 END SUB @@ -14050,78 +18458,140 @@ SUB IdeMakeEditMenu m = ideeditmenuID: i = 0 menu$(m, i) = "Edit": i = i + 1 - menu$(m, i) = "#Undo Ctrl+Z": i = i + 1 - menu$(m, i) = "#Redo Ctrl+Y": i = i + 1 + IF IdeSystem = 1 THEN + menu$(m, i) = "#Undo Ctrl+Z": i = i + 1 + menuDesc$(m, i - 1) = "Restores program state before last edit" + menu$(m, i) = "#Redo Ctrl+Y": i = i + 1 + menuDesc$(m, i - 1) = "Redoes latest undo action" + ELSE + menu$(m, i) = "~#Undo Ctrl+Z": i = i + 1 + menuDesc$(m, i - 1) = "Restores program state before last edit" + menu$(m, i) = "~#Redo Ctrl+Y": i = i + 1 + menuDesc$(m, i - 1) = "Redoes latest undo action" + END IF menu$(m, i) = "-": i = i + 1 - IF ideselect THEN + IF (IdeSystem = 1 AND ideselect = 1) OR IdeSystem = 2 THEN menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text and copies it to clipboard" menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1 + menuDesc$(m, i - 1) = "Copies selected text to clipboard" + ELSEIF (IdeSystem = 3 AND Help_Select = 2) THEN + menu$(m, i) = "~Cu#t Shift+Del or Ctrl+X": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text and copies it to clipboard" + menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1 + menuDesc$(m, i - 1) = "Copies selected text to clipboard" ELSE menu$(m, i) = "~Cu#t Shift+Del or Ctrl+X": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text and copies it to clipboard" menu$(m, i) = "~#Copy Ctrl+Ins or Ctrl+C": i = i + 1 + menuDesc$(m, i - 1) = "Copies selected text to clipboard" END IF clip$ = _CLIPBOARD$ 'read clipboard - IF LEN(clip$) THEN + IF (LEN(clip$) > 0 AND IdeSystem = 1) OR IdeSystem = 2 THEN menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1 + menuDesc$(m, i - 1) = "Inserts clipboard contents at current location" ELSE menu$(m, i) = "~#Paste Shift+Ins or Ctrl+V": i = i + 1 + menuDesc$(m, i - 1) = "Inserts clipboard contents at current location" END IF - IF ideselect THEN + IF (IdeSystem = 1 AND ideselect = 1) OR IdeSystem = 2 THEN menu$(m, i) = "Cl#ear Del": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text" ELSE menu$(m, i) = "~Cl#ear Del": i = i + 1 + menuDesc$(m, i - 1) = "Deletes selected text" END IF menu$(m, i) = "Select #All Ctrl+A": i = i + 1 - menu$(m, i) = "-": i = i + 1 - menu$(m, i) = "Toggle Comment Ctrl+T": i = i + 1 - menu$(m, i) = "Add Comment (') Ctrl+R": i = i + 1 - menu$(m, i) = "Remove Comment (') Ctrl+Shift+R": i = i + 1 - IF ideselect THEN - y1 = idecy - y2 = ideselecty1 - IF y1 = y2 THEN 'single line selected - a$ = idegetline(idecy) - a2$ = "" - sx1 = ideselectx1: sx2 = idecx - IF sx2 < sx1 THEN SWAP sx1, sx2 - FOR x = sx1 TO sx2 - 1 - IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " - NEXT - IF a2$ = "" THEN - menu$(m, i) = "~Increase Indent TAB": i = i + 1 - menu$(m, i) = "~Decrease Indent" - IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" - i = i + 1 + menuDesc$(m, i - 1) = "Selects all contents of current program" + + IF IdeSystem = 1 THEN + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "To#ggle Comment Ctrl+T": i = i + 1 + menuDesc$(m, i - 1) = "Toggles comment (') on the current selection" + menu$(m, i) = "Add Co#mment (') Ctrl+R": i = i + 1 + menuDesc$(m, i - 1) = "Adds comment marker (') to the current selection" + menu$(m, i) = "Remove Comme#nt (') Ctrl+Shift+R": i = i + 1 + menuDesc$(m, i - 1) = "Removes comment marker (') from the current selection" + IF ideselect THEN + y1 = idecy + y2 = ideselecty1 + IF y1 = y2 THEN 'single line selected + a$ = idegetline(idecy) + a2$ = "" + sx1 = ideselectx1: sx2 = idecx + IF sx2 < sx1 THEN SWAP sx1, sx2 + FOR x = sx1 TO sx2 - 1 + IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " " + NEXT + IF a2$ = "" THEN + menu$(m, i) = "~#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "~#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" + IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" + i = i + 1 + ELSE + menu$(m, i) = "#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" + IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" + i = i + 1 + END IF ELSE - menu$(m, i) = "Increase Indent TAB": i = i + 1 - menu$(m, i) = "Decrease Indent" + menu$(m, i) = "#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" i = i + 1 END IF ELSE - menu$(m, i) = "Increase Indent TAB": i = i + 1 - menu$(m, i) = "Decrease Indent" + menu$(m, i) = "~#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "~#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" i = i + 1 END IF + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "New #SUB...": i = i + 1 + menuDesc$(m, i - 1) = "Creates a new subprocedure at the end of the current program" + menu$(m, i) = "New #FUNCTION...": i = i + 1 + menuDesc$(m, i - 1) = "Creates a new function at the end of the current program" ELSE - menu$(m, i) = "~Increase Indent TAB": i = i + 1 - menu$(m, i) = "~Decrease Indent" + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "~To#ggle Comment Ctrl+T": i = i + 1 + menuDesc$(m, i - 1) = "Toggles comment (') on the current selection" + menu$(m, i) = "~Add Co#mment (') Ctrl+R": i = i + 1 + menuDesc$(m, i - 1) = "Adds comment marker (') to the current selection" + menu$(m, i) = "~Remove Comme#nt (') Ctrl+Shift+R": i = i + 1 + menuDesc$(m, i - 1) = "Removes comment marker (') from the current selection" + menu$(m, i) = "~#Increase Indent TAB": i = i + 1 + menuDesc$(m, i - 1) = "Increases indentation of the current selection" + menu$(m, i) = "~#Decrease Indent" + menuDesc$(m, i) = "Decreases indentation of the current selection" IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB" i = i + 1 + menu$(m, i) = "-": i = i + 1 + menu$(m, i) = "~New #SUB...": i = i + 1 + menuDesc$(m, i - 1) = "Creates a new subprocedure at the end of the current program" + menu$(m, i) = "~New #FUNCTION...": i = i + 1 + menuDesc$(m, i - 1) = "Creates a new function at the end of the current program" END IF - menu$(m, i) = "-": i = i + 1 - menu$(m, i) = "New #SUB...": i = i + 1 - menu$(m, i) = "New #FUNCTION...": i = i + 1 menusize(m) = i - 1 END SUB SUB IdeAddRecent (f2$) - f$ = CRLF + f2$ + CRLF + f$ = f2$ + + f$ = removeDoubleSlashes(f$) + + f$ = CRLF + f$ + CRLF fh = FREEFILE OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$ x = INSTR(UCASE$(a$), UCASE$(f$)) @@ -14135,6 +18605,22 @@ SUB IdeAddRecent (f2$) IdeMakeFileMenu END SUB +FUNCTION removeDoubleSlashes$(f$) + x = INSTR(f$, "//") + DO WHILE x + f$ = LEFT$(f$, x - 1) + MID$(f$, x + 1) + x = INSTR(f$, "//") + LOOP + + x = INSTR(f$, "\\") + DO WHILE x + f$ = LEFT$(f$, x - 1) + MID$(f$, x + 1) + x = INSTR(f$, "\\") + LOOP + + removeDoubleSlashes$ = f$ +END FUNCTION + SUB IdeAddSearched (s2$) s$ = CRLF + s2$ + CRLF fh = FREEFILE @@ -14149,137 +18635,522 @@ SUB IdeAddSearched (s2$) CLOSE #fh END SUB -SUB ideASCIIbox - 'IF INSTR(_OS$, "WIN") THEN ret% = SHELL("internal\ASCII-Picker.exe") ELSE ret% = SHELL("internal/ASCII-Picker") - '(code to fix font and arrow keys also written by Steve) - w = _WIDTH: h = _HEIGHT - font = _FONT - temp = _NEWIMAGE(640, 480, 32) - temp1 = _NEWIMAGE(640, 480, 32) - ws = _NEWIMAGE(640, 480, 32) - SCREEN temp - CLS , _RGB(0, 0, 170) - COLOR , _RGB(0, 0, 170) - FOR y = 1 TO 16 - FOR x = 1 TO 16 - LINE (x * 40, 0)-(x * 40, 480), _RGB32(255, 255, 0) - LINE (0, y * 30)-(640, y * 30), _RGB32(255, 255, 0) - IF counter THEN _PRINTSTRING (x * 40 - 28, y * 30 - 23), CHR$(counter) - counter = counter + 1 - NEXT - NEXT +SUB ideupdatehelpbox + '-------- generic dialog box header -------- + PCOPY 0, 2 + PCOPY 0, 1 + SCREEN , , 1, 0 + focus = 1 + DIM p AS idedbptype + DIM o(1 TO 100) AS idedbotype + DIM sep AS STRING * 1 + sep = CHR$(0) + '-------- end of generic dialog box header -------- - _DEST temp1 - CLS , _RGB(0, 0, 170) - COLOR , _RGB(0, 0, 170) - counter = 0 - FOR y = 1 TO 16 - FOR x = 1 TO 16 - LINE (x * 40, 0)-(x * 40, 480), _RGB32(255, 255, 0) - LINE (0, y * 30)-(640, y * 30), _RGB32(255, 255, 0) - text$ = LTRIM$(STR$(counter)) - IF counter THEN _PRINTSTRING (x * 40 - 24 - (LEN(text$)) * 4, y * 30 - 23), text$ - counter = counter + 1 - NEXT - NEXT - _DEST temp - - x = 1: y = 1 - _PUTIMAGE , temp, ws - DO: LOOP WHILE _MOUSEINPUT 'clear the mouse input buffer - oldmousex = _MOUSEX: oldmousey = _MOUSEY - - DO - _LIMIT 60 - DO: LOOP WHILE _MOUSEINPUT - IF oldx <> _MOUSEX AND oldy <> _MOUSEY THEN - x = _MOUSEX \ 40 + 1 'If mouse moved, where are we now? - y = _MOUSEY \ 30 + 1 - END IF - oldx = _MOUSEX: oldy = _MOUSEY - - num = (y - 1) * 16 + x - 1 - IF num = 0 THEN - text$ = "" - ELSE - flashcounter = flashcounter + 1 - IF flashcounter > 30 THEN - COLOR _RGB32(255, 255, 255), _RGB(0, 0, 170) - text$ = CHR$(num) - IF LEN(text$) = 1 THEN text$ = " " + text$ + " " - ELSE - COLOR _RGB32(255, 255, 255), _RGB(0, 0, 170) - text$ = RTRIM$(LTRIM$(STR$(num))) - END IF - END IF - IF flashcounter = 60 THEN flashcounter = 1 - CLS - IF toggle THEN _PUTIMAGE , temp1, temp ELSE _PUTIMAGE , ws, temp - _PRINTSTRING (x * 40 - 24 - (LEN(text$)) * 4, y * 30 - 23), text$ - LINE (x * 40 - 40, y * 30 - 30)-(x * 40, y * 30), _RGBA32(255, 255, 255, 150), BF - - k1 = _KEYHIT - MouseClick = 0: MouseExit = 0 - IF MouseButtonSwapped THEN - MouseClick = _MOUSEBUTTON(2): MouseExit = _MOUSEBUTTON(1) - ELSE - MouseClick = _MOUSEBUTTON(1): MouseExit = _MOUSEBUTTON(2) - END IF - SELECT CASE k1 - CASE 13: EXIT DO - CASE 27 - _AUTODISPLAY - SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 - IF _RESIZE THEN donothing = atall - EXIT SUB - CASE 32: toggle = NOT toggle - CASE 18432: y = y - 1 - CASE 19200: x = x - 1 - CASE 20480: y = y + 1 - CASE 19712: x = x + 1 - END SELECT - - IF x < 1 THEN x = 1 - IF x > 16 THEN x = 16 - IF y < 1 THEN y = 1 - IF y > 16 THEN y = 16 - _DISPLAY - Ex = _EXIT - IF Ex THEN - _AUTODISPLAY - SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 - IF _RESIZE THEN donothing = atall - EXIT FUNCTION - END IF - IF MouseExit THEN - _AUTODISPLAY - SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 - IF _RESIZE THEN donothing = atall - EXIT FUNCTION - END IF - - LOOP UNTIL MouseClick - - ret% = (y - 1) * 16 + x - 1 - IF ret% > 0 AND ret% < 255 THEN - l = idecy - a$ = idegetline(l) - l$ = LEFT$(a$, idecx - 1): r$ = RIGHT$(a$, LEN(a$) - idecx + 1) - text$ = l$ + CHR$(ret%) + r$ - textlen = LEN(text$) - l$ = LEFT$(idet$, ideli - 1) - m$ = MKL$(textlen) + text$ + MKL$(textlen) - r$ = RIGHT$(idet$, LEN(idet$) - ideli - LEN(a$) - 7) - idet$ = l$ + m$ + r$ - idecx = idecx + 1 + '-------- init -------- + IF idehelp = 0 THEN + old_idesubwindow = idesubwindow: old_idewy = idewy + idesubwindow = idewy \ 2: idewy = idewy - idesubwindow + Help_wx1 = 2: Help_wy1 = idewy + 1: Help_wx2 = idewx - 1: Help_wy2 = idewy + idesubwindow - 2: Help_ww = Help_wx2 - Help_wx1 + 1: Help_wh = Help_wy2 - Help_wy1 + 1 + idesubwindow = old_idesubwindow: idewy = old_idewy END IF - _AUTODISPLAY + MessageLines = 2 + DIM FullMessage$(1 TO 2) + UpdateStep = 1 - SCREEN 0: WIDTH w, h - _FONT font - _DEST 0: _DELAY .2 - IF _RESIZE THEN donothing = atall + i = 0 + w2 = LEN(titlestr$) + 4 + IF w < w2 THEN w = w2 + IF w > idewx - 4 THEN w = idewx - 4 + idepar p, 60, 6, "Update Help" + + i = i + 1 + ButtonID = i + o(i).typ = 3 + o(i).y = 6 + o(i).txt = idenewtxt("#Cancel") + o(i).dft = 1 + '-------- end of init -------- + + '-------- generic init -------- + FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects + '-------- end of generic init -------- + + DO 'main loop + + + '-------- generic display dialog box & objects -------- + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + + 'prepare object + o(i).foc = focus - f 'focus offset + o(i).cx = 0: o(i).cy = 0 + idedrawobj o(i), f 'display object + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + END IF + NEXT i + lastfocus = f - 1 + '-------- end of generic display dialog box & objects -------- + + '-------- custom display changes -------- + 'update steps + SELECT CASE UpdateStep + CASE 1 + FullMessage$(2) = "Generating list of cached content..." + CASE 2 + FullMessage$(2) = "Adding core help pages to list..." + CASE 3 + FullMessage$(2) = "Regenerating keyword list..." + CASE 4 + FullMessage$(2) = "Building download queue..." + CASE 5 + FullMessage$(1) = "Updating help content file " + str2$(n) + "/" + str2$(c) +"..." + END SELECT + + FOR i = 1 TO MessageLines + IF i = 1 THEN COLOR 0, 7 ELSE COLOR 2, 7 + IF LEN(FullMessage$(i)) > p.w - 2 THEN + FullMessage$(i) = LEFT$(FullMessage$(i), p.w - 5) + STRING$(3, 250) + END IF + _PRINTSTRING (p.x + (p.w \ 2 - LEN(FullMessage$(i)) \ 2) + 1, p.y + 1 + i), FullMessage$(i) + NEXT i + + COLOR 0, 7 + IF UpdateStep = 5 THEN + maxprogresswidth = 52 'arbitrary + percentage = INT(n / c * 100) + percentagechars = INT(maxprogresswidth * n / c) + 'percentageMsg$ = "[" + STRING$(percentagechars, 254) + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%" + percentageMsg$ = STRING$(percentagechars, 219) + STRING$(maxprogresswidth - percentagechars, 176) + STR$(percentage) + "%" + _PRINTSTRING (p.x + (p.w \ 2 - LEN(percentageMsg$) \ 2) + 1, p.y + 4), percentageMsg$ + ELSEIF UpdateStep = 6 THEN + percentageMsg$ = STRING$(maxprogresswidth, 219) + " 100%" + _PRINTSTRING (p.x + (p.w \ 2 - LEN(percentageMsg$) \ 2) + 1, p.y + 4), percentageMsg$ + END IF + '-------- end of custom display changes -------- + + 'update visual page and cursor position + PCOPY 1, 0 + IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 + + '-------- read input -------- + GetInput + IF mCLICK THEN mousedown = 1 + IF mRELEASE THEN mouseup = 1 + alt = KALT + oldalt = alt + + IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 + 'convert "alt+letter" scancode to letter's ASCII character + altletter$ = "" + IF alt AND NOT KCTRL THEN + IF LEN(K$) = 1 THEN + k = ASC(UCASE$(K$)) + IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + END IF + END IF + SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 + '-------- end of read input -------- + + '-------- generic input response -------- + info = 0 + + IF UCASE$(K$) = "C" THEN altletter$ = UCASE$(K$) + + IF K$ = "" THEN K$ = CHR$(255) + IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 + IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" + IF focus < 1 THEN focus = lastfocus + IF focus > lastfocus THEN focus = 1 + f = 1 + FOR i = 1 TO 100 + t = o(i).typ + IF t THEN + focusoffset = focus - f + ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL + END IF + NEXT + '-------- end of generic input response -------- + + 'specific post controls + IF K$ = CHR$(27) OR K$ = CHR$(13) OR (info <> 0) THEN + IF UpdateStep < 6 THEN q$ = ideyesnobox("", "Cancel download?") ELSE q$ = "Y" + IF q$ = "Y" THEN EXIT FUNCTION + END IF + 'end of custom controls + + '-------- update routine ------------------------------------- + SELECT CASE UpdateStep + CASE 1 + 'Create a list of all files to be recached + f$ = CHR$(0) + idezfilelist$("internal/help", 1, "") + CHR$(0) + IF LEN(f$) = 2 THEN f$ = CHR$(0) + + 'Prepend core pages to list + f$ = CHR$(0) + "Keyword_Reference_-_By_usage.txt" + f$ + f$ = CHR$(0) + "QB64_Help_Menu.txt" + f$ + f$ = CHR$(0) + "QB64_FAQ.txt" + f$ + UpdateStep = UpdateStep + 1 + CASE 2 + UpdateStep = UpdateStep + 1 + CASE 3 + 'Download and PARSE alphabetical index to build required F1 help links + FullMessage$(1) = "Regenerating keyword list..." + Help_Recaching = 1: Help_IgnoreCache = 1 + a$ = Wiki$("Keyword Reference - Alphabetical") + Help_Recaching = 0: Help_IgnoreCache = 0 + WikiParse a$ + UpdateStep = UpdateStep + 1 + CASE 4 + 'Add all linked pages to download list (if not already in list) + fh = FREEFILE + OPEN "internal\help\links.bin" FOR INPUT AS #fh + DO UNTIL EOF(fh) + LINE INPUT #fh, l$ + IF LEN(l$) THEN + c = INSTR(l$, ","): PageName2$ = RIGHT$(l$, LEN(l$) - c) + DO WHILE INSTR(PageName2$, " ") + ASC(PageName2$, INSTR(PageName2$, " ")) = 95 + LOOP + DO WHILE INSTR(PageName2$, "&") + i = INSTR(PageName2$, "&") + PageName2$ = LEFT$(PageName2$, i - 1) + "%26" + RIGHT$(PageName2$, LEN(PageName2$) - i) + LOOP + DO WHILE INSTR(PageName2$, "/") + i = INSTR(PageName2$, "/") + PageName2$ = LEFT$(PageName2$, i - 1) + "%2F" + RIGHT$(PageName2$, LEN(PageName2$) - i) + LOOP + PageName2$ = PageName2$ + ".txt" + IF INSTR(f$, CHR$(0) + PageName2$ + CHR$(0)) = 0 THEN + f$ = f$ + PageName2$ + CHR$(0) + END IF + END IF + LOOP + CLOSE #fh + + 'Redownload all listed files + IF f$ <> CHR$(0) THEN + c = 0 'count files to download + FOR x = 2 TO LEN(f$) + IF ASC(f$, x) = 0 THEN c = c + 1 + NEXT + c = c - 1 + + f$ = RIGHT$(f$, LEN(f$) - 1) + z$ = CHR$(0) + n = 0 + ELSE + GOTO stoprecache + END IF + FullMessage$(2) = "" + UpdateStep = UpdateStep + 1 + CASE 5 + IF LEN(f$) > 0 THEN + x2 = INSTR(f$, z$) + f2$ = LEFT$(f$, x2 - 1): f$ = RIGHT$(f$, LEN(f$) - x2) + + IF RIGHT$(f2$, 4) = ".txt" THEN + f2$ = LEFT$(f2$, LEN(f2$) - 4) + n = n + 1 + FullMessage$(2) = "Page title: " + f2$ + Help_IgnoreCache = 1: Help_Recaching = 1: ignore$ = Wiki(f2$): Help_Recaching = 0: Help_IgnoreCache = 0 + END IF + ELSE + UpdateStep = UpdateStep + 1 + END IF + CASE 6 + stoprecache: + FullMessage$(1) = "All pages updated." + FullMessage$(2) = "" + idetxt(o(ButtonID).txt) = "#Close" + _LIMIT 20 + END SELECT + '-------- end of update routine ------------------------------ + + mousedown = 0 + mouseup = 0 + LOOP +END SUB + +FUNCTION ideASCIIbox$(relaunch) + + '-------- generic dialog box header -------- + PCOPY 0, 2 + PCOPY 0, 1 + SCREEN , , 1, 0 + focus = 1 + DIM p AS idedbptype + DIM o(1 TO 100) AS idedbotype + DIM sep AS STRING * 1 + sep = CHR$(0) + '-------- end of generic dialog box header -------- + + '-------- init -------- + STATIC ASCIIWarningShown + relaunch = 0 + + i = 0 + idepar p, 56, 21, "ASCII Chart" + + i = i + 1 + o(i).typ = 1 'hidden text box to give focus to the chart + o(i).y = 3 + o(i).x = 5 + o(i).w = 5 + + TYPE position + x AS INTEGER + y AS INTEGER + caption AS STRING + END TYPE + DIM asciiTable(1 TO 255) AS position + + a = 0 + x = 5 + y = 2 + FOR i = 0 TO 15 + FOR j = 0 TO 15 + a = a + 1 + IF a > 255 THEN EXIT FOR + asciiTable(a).x = p.x + x + asciiTable(a).y = p.y + y + asciiTable(a).caption = " " + CHR$(a) + " " + x = x + 3 + NEXT + IF a > 255 THEN EXIT FOR + x = 5 + y = y + 1 + NEXT + + i = i + 1 + o(i).typ = 3 + o(i).y = 21 + o(i).txt = idenewtxt("#Insert character" + sep + "Insert C#HR$" + sep + "#Close") + o(i).dft = 1 + + Selected = 1 + + '-------- end of init -------- + + '-------- generic init -------- + FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects + '-------- end of generic init -------- + + DO 'main loop + '-------- generic display dialog box & objects -------- + idedrawpar p + f = 1: cx = 0: cy = 0 + FOR i = 1 TO 100 + IF o(i).typ THEN + 'prepare object + o(i).foc = focus - f 'focus offset + o(i).cx = 0: o(i).cy = 0 + idedrawobj o(i), f 'display object + IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy + END IF + NEXT i + lastfocus = f - 1 + '-------- end of generic display dialog box & objects -------- + + '-------- custom display changes -------- + IF focus = 1 THEN + idebox p.x + 4, p.y + 1, 50, 18 + END IF + + Hover = 0 + FOR i = 1 TO 255 + IF mX >= asciiTable(i).x AND mX <= asciiTable(i).x + 2 AND mY = asciiTable(i).y THEN + IF mouseMoved THEN Hover = i: COLOR 7, 0 + IF mCLICK THEN + Selected = i + focus = 1 + IF timeElapsedSince(lastClick!) <= .3 and lastClickOn = i THEN + 'double click on chart + relaunch = -1 + GOTO insertChar + END IF + lastClick! = TIMER + lastClickOn = i + END IF + ELSE + COLOR 2, 7 + END IF + IF Selected = i THEN COLOR 15, 0 + _PRINTSTRING (asciiTable(i).x, asciiTable(i).y), asciiTable(i).caption + NEXT + + COLOR 0, 7 + IF Selected > 0 THEN + _PRINTSTRING (p.x + 5, p.y + 19), "Selected:" + STR$(Selected) + END IF + + COLOR 2, 7 + IF Hover > 0 AND Hover <> Selected THEN + _PRINTSTRING (p.x + 5, p.y + 20), "Hovered: " + STR$(Hover) + END IF + + '-------- end of custom display changes -------- + + 'update visual page and cursor position + PCOPY 1, 0 + IF cx THEN + SCREEN , , 0, 0 + IF focus = 1 THEN + IF Selected THEN + LOCATE asciiTable(Selected).y, asciiTable(Selected).x + 1, 1 + END IF + ELSE + LOCATE cy, cx, 1 + END IF + SCREEN , , 1, 0 + END IF + + '-------- read input -------- + change = 0 + mouseMoved = 0 + DO + GetInput + IF mWHEEL THEN change = 1 + IF KB THEN change = 1 + IF mCLICK THEN mousedown = 1: change = 1 + IF mRELEASE THEN mouseup = 1: change = 1 + IF mB THEN change = 1 + IF mX <> prev.mX OR mY <> prev.mY THEN change = 1: prev.mX = mX: prev.mY = mY: mouseMoved = -1 + alt = KALT: IF alt <> oldalt THEN change = 1 + oldalt = alt + _LIMIT 100 + LOOP UNTIL change + IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 + 'convert "alt+letter" scancode to letter's ASCII character + altletter$ = "" + IF alt AND NOT KCTRL THEN + IF LEN(K$) = 1 THEN + k = ASC(UCASE$(K$)) + IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) + END IF + END IF + SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 + '-------- end of read input -------- + + '-------- generic input response -------- + info = 0 + IF K$ = "" THEN K$ = CHR$(255) + IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 + IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" + IF focus < 1 THEN focus = lastfocus + IF focus > lastfocus THEN focus = 1 + f = 1 + FOR i = 1 TO 100 + t = o(i).typ + IF t THEN + focusoffset = focus - f + ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL + END IF + NEXT + '-------- end of generic input response -------- + + IF mY > p.y AND mY < p.y + p.h AND mX > p.x AND mX < p.x + p.w THEN + IF Hover = 0 AND mCLICK THEN focus = 1 + END IF + + IF (K$ = CHR$(13) AND focus = 1) THEN + GOTO insertChar + END IF + + IF focus = 2 AND (K$ = CHR$(13) OR info <> 0) THEN + insertChar: + IF Selected < 32 AND ASCIIWarningShown = 0 THEN + ASCIIWarningShown = -1 + result = idemessagebox("Control Characters", "Inserting ASCII control characters (1-32) may cause\nunexpected IDE behavior. Consider inserting CHR$ instead.\nProceed anyway?", "#Yes;#No;#Cancel") + IF result = 2 THEN EXIT FUNCTION + IF result = 3 THEN GOTO dlgLoop + END IF + ideASCIIbox$ = CHR$(Selected) + EXIT FUNCTION + END IF + + IF (focus = 3 AND (info <> 0 OR K$ = CHR$(13))) THEN + ideASCIIbox$ = "CHR$(" + str2$(Selected) + ")" + EXIT FUNCTION + END IF + + 'Cancel: + IF (info <> 0 OR K$ = CHR$(13)) AND focus = 4 THEN EXIT FUNCTION + + IF K$ = CHR$(27) THEN EXIT FUNCTION + + IF focus = 1 THEN 'chart control (keyboard) + KCTRL = _KEYDOWN(100305) OR _KEYDOWN(100306) + SELECT CASE KB + CASE 18176: Selected = 1 'Home + CASE 20224: Selected = 255 'End + CASE 19712 'Right + IF KCTRL AND Selected > 0 THEN + DO UNTIL Selected MOD 16 = 0 OR Selected = 255 + Selected = Selected + 1 + LOOP + ELSE + Selected = Selected + 1 + END IF + IF Selected > 255 THEN Selected = 1 + CASE 19200 'Left + IF KCTRL AND Selected > 0 THEN + DO UNTIL Selected MOD 16 = 1 + Selected = Selected - 1 + LOOP + ELSE + Selected = Selected - 1 + END IF + IF Selected < 1 THEN Selected = 255 + CASE 20480 'Down + IF KCTRL AND Selected > 0 THEN + IF Selected = 240 THEN + Selected = 255 + ELSE + DO UNTIL Selected >= 240 + Selected = Selected + 16 + LOOP + END IF + IF Selected > 255 THEN Selected = 255 + ELSE + IF Selected = 240 THEN + 'corner case + Selected = 255 + ELSEIF Selected + 16 <= 255 THEN + Selected = Selected + 16 + ELSE + Selected = Selected + 16 - 256 + END IF + END IF + CASE 18432 'Up + IF KCTRL AND Selected > 0 THEN + DO UNTIL Selected <= 16 + Selected = Selected - 16 + LOOP + IF Selected < 1 THEN Selected = 1 + ELSE + IF Selected = 16 THEN + 'corner case + Selected = 240 + ELSEIF Selected - 16 >= 1 THEN + Selected = Selected - 16 + ELSE + Selected = Selected - 16 + 256 + END IF + END IF + END SELECT + END IF + + 'end of custom controls + mousedown = 0 + mouseup = 0 + + dlgLoop: + LOOP END FUNCTION @@ -14302,7 +19173,7 @@ FUNCTION idef1box$ (lnks$, lnks) '72,19 i = 0 - idepar p, 40, lnks + 3, "F1" + idepar p, 40, lnks + 3, "Contextual help" i = i + 1 o(i).typ = 2 @@ -14410,248 +19281,6 @@ FUNCTION idef1box$ (lnks$, lnks) END FUNCTION -SUB Mathbox - 'Draw a box - - '-------- generic dialog box header -------- - PCOPY 0, 2 - PCOPY 0, 1 - SCREEN , , 1, 0 - focus = 1 - DIM p AS idedbptype - DIM o(1 TO 100) AS idedbotype - DIM sep AS STRING * 1 - sep = CHR$(0) - '-------- end of generic dialog box header -------- - - DoAnother: - titlestr$ = " Give me a Math Equation " - messagestr$ = "" - - '-------- init -------- - i = 0 - w = LEN(messagestr$) + 2 - w2 = LEN(titlestr$) + 4 - IF w < w2 THEN w = w2 - idepar p, w, 4, titlestr$ - - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("OK") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - DO 'main loop - - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 2: PRINT messagestr$; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - IF K$ = CHR$(27) THEN EXIT SUB - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - IF K$ > CHR$(31) AND K$ < CHR$(123) THEN messagestr$ = messagestr$ + K$ - IF K$ = CHR$(8) THEN messagestr$ = LEFT$(messagestr$, LEN(messagestr$) - 1) - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - 'specific post controls - IF K$ = CHR$(27) OR K$ = CHR$(13) OR (focus = 1 AND info <> 0) THEN EXIT DO - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP - - - temp$ = messagestr$ 'Make a back up of our user return - titlestr$ = "(H)ex/(D)ec (U)n(C)omment (ESC)ape/(R)edo" - ev$ = Evaluate_Expression$(messagestr$) - messagestr$ = ev$ - - '-------- init -------- - i = 0 - w = LEN(messagestr$) + 2 - w2 = LEN(titlestr$) + 4 - IF w < w2 THEN w = w2 - idepar p, w, 4, titlestr$ - - i = i + 1 - o(i).typ = 3 - o(i).y = 4 - o(i).txt = idenewtxt("OK") - o(i).dft = 1 - '-------- end of init -------- - - '-------- generic init -------- - FOR i = 1 TO 100: o(i).par = p: NEXT 'set parent info of objects - '-------- end of generic init -------- - - - - - DO 'main loop - - - '-------- generic display dialog box & objects -------- - idedrawpar p - f = 1: cx = 0: cy = 0 - FOR i = 1 TO 100 - IF o(i).typ THEN - - 'prepare object - o(i).foc = focus - f 'focus offset - o(i).cx = 0: o(i).cy = 0 - idedrawobj o(i), f 'display object - IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy - END IF - NEXT i - lastfocus = f - 1 - '-------- end of generic display dialog box & objects -------- - - '-------- custom display changes -------- - COLOR 0, 7: LOCATE p.y + 2, p.x + 2: PRINT messagestr$; - '-------- end of custom display changes -------- - - 'update visual page and cursor position - PCOPY 1, 0 - IF cx THEN SCREEN , , 0, 0: LOCATE cy, cx, 1: SCREEN , , 1, 0 - - '-------- read input -------- - change = 0 - DO - GetInput - IF mWHEEL THEN change = 1 - IF KB THEN change = 1 - IF mCLICK THEN mousedown = 1: change = 1 - IF mRELEASE THEN mouseup = 1: change = 1 - IF mB THEN change = 1 - alt = KALT: IF alt <> oldalt THEN change = 1 - oldalt = alt - _LIMIT 100 - LOOP UNTIL change - IF alt AND NOT KCTRL THEN idehl = 1 ELSE idehl = 0 - 'convert "alt+letter" scancode to letter's ASCII character - altletter$ = "" - IF alt AND NOT KCTRL THEN - IF LEN(K$) = 1 THEN - k = ASC(UCASE$(K$)) - IF k >= 65 AND k <= 90 THEN altletter$ = CHR$(k) - END IF - END IF - SCREEN , , 0, 0: LOCATE , , 0: SCREEN , , 1, 0 - '-------- end of read input -------- - - '-------- generic input response -------- - info = 0 - IF K$ = "" THEN K$ = CHR$(255) - IF KSHIFT = 0 AND K$ = CHR$(9) THEN focus = focus + 1 - IF (KSHIFT AND K$ = CHR$(9)) OR (INSTR(_OS$, "MAC") AND K$ = CHR$(25)) THEN focus = focus - 1: K$ = "" - IF focus < 1 THEN focus = lastfocus - IF focus > lastfocus THEN focus = 1 - IF K$ = "H" OR K$ = "h" THEN ev$ = "&H" + HEX$(VAL(ev$)) - IF K$ = "D" OR K$ = "d" THEN ev$ = STR$(VAL(ev$)) - IF K$ = "U" OR K$ = "u" THEN comment = 0 - IF K$ = "C" OR K$ = "c" THEN comment = -1 - IF K$ = "R" OR K$ = "r" THEN GOTO DoAnother - IF K$ = CHR$(27) THEN EXIT SUB - IF comment THEN messagestr$ = ev$ + " ' " + temp$ ELSE messagestr$ = ev$ - - f = 1 - FOR i = 1 TO 100 - t = o(i).typ - IF t THEN - focusoffset = focus - f - ideobjupdate o(i), focus, f, focusoffset, K$, altletter$, mB, mousedown, mouseup, mX, mY, info, mWHEEL - END IF - NEXT - '-------- end of generic input response -------- - - 'specific post controls - IF K$ = CHR$(27) OR K$ = CHR$(13) OR (focus = 1 AND info <> 0) THEN EXIT DO - 'end of custom controls - - mousedown = 0 - mouseup = 0 - LOOP - - IF INSTR(messagestr$, " LINES INSERTED") THEN EXIT SUB - - l = idecy - a$ = idegetline(l) - l$ = LEFT$(a$, idecx - 1): r$ = RIGHT$(a$, LEN(a$) - idecx + 1) - text$ = l$ + messagestr$ + r$ - textlen = LEN(text$) - l$ = LEFT$(idet$, ideli - 1) - m$ = MKL$(textlen) + text$ + MKL$(textlen) - r$ = RIGHT$(idet$, LEN(idet$) - ideli - LEN(a$) - 7) - idet$ = l$ + m$ + r$ - idecx = idecx + LEN(messagestr$) -END SUB - 'After Cormen, Leiserson, Rivest & Stein "Introduction To Algoritms" via Wikipedia SUB sort (arr() AS STRING * 998) FOR i& = LBOUND(arr) + 1 TO UBOUND(arr) @@ -14670,16 +19299,14 @@ FUNCTION FindProposedTitle$ 'Finds the first occurence of _TITLE to suggest a file name 'when saving for the first time or saving as. - FOR find_TITLE = 1 TO iden - thisline$ = idegetline(find_TITLE) + DIM c AS _BYTE, q AS _BYTE, i + FOR i = 1 TO iden + thisline$ = idegetline(i) thisline$ = LTRIM$(RTRIM$(thisline$)) found_TITLE = INSTR(UCASE$(thisline$), "_TITLE " + CHR$(34)) IF found_TITLE > 0 THEN - InQuote%% = 0 - FOR check_quotes = 1 TO found_TITLE - IF MID$(thisline$, check_quotes, 1) = CHR$(34) THEN InQuote%% = NOT InQuote%% - NEXT check_quotes - IF NOT InQuote%% THEN + FindQuoteComment thisline$, found_TITLE, c, q + IF NOT q THEN Find_ClosingQuote = INSTR(found_TITLE + 8, thisline$, CHR$(34)) IF Find_ClosingQuote > 0 THEN TempFound_TITLE$ = MID$(thisline$, found_TITLE + 8, (Find_ClosingQuote - found_TITLE) - 8) @@ -14690,18 +19317,20 @@ FUNCTION FindProposedTitle$ NEXT InvalidChars$ = ":/\?*><|" + CHR$(34) - FOR wipe_INVALID = 1 TO LEN(TempFound_TITLE$) - ThisChar$ = MID$(TempFound_TITLE$, wipe_INVALID, 1) + FOR i = 1 TO LEN(TempFound_TITLE$) + ThisChar$ = MID$(TempFound_TITLE$, i, 1) IF INSTR(InvalidChars$, ThisChar$) = 0 THEN Found_TITLE$ = Found_TITLE$ + ThisChar$ END IF - NEXT wipe_INVALID + NEXT i FindProposedTitle$ = LTRIM$(RTRIM$(Found_TITLE$)) END FUNCTION FUNCTION FindCurrentSF$ (whichline) - 'Get the name of the SUB/FUNCTION whichline is in. + 'Get the SUB/FUNCTION name 'whichline' is in. + 'The FOR...NEXT loop goes backwards from 'whichline' to the start of the program + 'to see if we're inside a SUB/FUNCTION. EXITs FOR once that is figured. sfname$ = "" IF whichline > 0 THEN @@ -14712,14 +19341,21 @@ FUNCTION FindCurrentSF$ (whichline) ncthisline$ = UCASE$(thisline$) IF LEFT$(ncthisline$, 4) = "SUB " THEN isSF = 1 IF LEFT$(ncthisline$, 9) = "FUNCTION " THEN isSF = 2 - IF isSF > 0 THEN + IF LEFT$(ncthisline$, 7) = "END SUB" AND currSF_CHECK < whichline THEN EXIT FOR + IF LEFT$(ncthisline$, 12) = "END FUNCTION" AND currSF_CHECK < whichline THEN EXIT FOR + IF isSF THEN IF RIGHT$(ncthisline$, 7) = " STATIC" THEN thisline$ = RTRIM$(LEFT$(thisline$, LEN(thisline$) - 7)) END IF - thisline$ = RTRIM$(LTRIM$(thisline$)) + IF isSF = 1 THEN + thisline$ = RIGHT$(thisline$, LEN(thisline$) - 4) + ELSE + thisline$ = RIGHT$(thisline$, LEN(thisline$) - 9) + END IF + thisline$ = LTRIM$(RTRIM$(thisline$)) checkargs = INSTR(thisline$, "(") - IF checkargs > 0 THEN + IF checkargs THEN sfname$ = RTRIM$(LEFT$(thisline$, checkargs - 1)) ELSE sfname$ = thisline$ @@ -14730,7 +19366,7 @@ FUNCTION FindCurrentSF$ (whichline) InsideDECLARE = 0 FOR declib_CHECK = currSF_CHECK TO 1 STEP -1 thisline$ = idegetline(declib_CHECK) - thisline$ = RTRIM$(LTRIM$(thisline$)) + thisline$ = LTRIM$(RTRIM$(thisline$)) ncthisline$ = UCASE$(thisline$) IF LEFT$(ncthisline$, 8) = "DECLARE " AND INSTR(ncthisline$, " LIBRARY") > 0 THEN InsideDECLARE = -1: EXIT FOR IF LEFT$(ncthisline$, 11) = "END DECLARE" THEN EXIT FOR @@ -14738,8 +19374,27 @@ FUNCTION FindCurrentSF$ (whichline) IF InsideDECLARE = -1 THEN sfname$ = "" + ELSE + 'Ok, we're not inside a DECLARE LIBRARY block. + 'But what if we're past the end of this module's SUBs and FUNCTIONs, + 'and all that's left is a bunch of comments or $INCLUDES? + 'We'll also check for that: + endedSF = 0 + FOR endSF_CHECK = whichline TO iden + thisline$ = idegetline(endSF_CHECK) + thisline$ = LTRIM$(RTRIM$(thisline$)) + ncthisline$ = UCASE$(thisline$) + IF LEFT$(ncthisline$, 7) = "END SUB" THEN endedSF = 1: EXIT FOR + IF LEFT$(ncthisline$, 12) = "END FUNCTION" THEN endedSF = 2: EXIT FOR + IF LEFT$(ncthisline$, 4) = "SUB " AND endSF_CHECK = whichline THEN endedSF = 1: EXIT FOR + IF LEFT$(ncthisline$, 9) = "FUNCTION " AND endSF_CHECK = whichline THEN endedSF = 2: EXIT FOR + IF LEFT$(ncthisline$, 4) = "SUB " AND InsideDECLARE = 0 THEN EXIT FOR + IF LEFT$(ncthisline$, 9) = "FUNCTION " AND InsideDECLARE = 0 THEN EXIT FOR + IF LEFT$(ncthisline$, 8) = "DECLARE " AND INSTR(ncthisline$, " LIBRARY") > 0 THEN InsideDECLARE = -1 + IF LEFT$(ncthisline$, 11) = "END DECLARE" THEN InsideDECLARE = 0 + NEXT + IF endedSF = 0 THEN sfname$ = "" ELSE EXIT FOR END IF - EXIT FOR END IF NEXT END IF @@ -14747,16 +19402,19 @@ FUNCTION FindCurrentSF$ (whichline) FindCurrentSF$ = sfname$ END FUNCTION -SUB AddQuickNavHistory (LineNumber&) +SUB AddQuickNavHistory IF QuickNavTotal > 0 THEN - IF QuickNavHistory(QuickNavTotal) = LineNumber& THEN EXIT SUB + IF QuickNavHistory(QuickNavTotal).idecy = idecy THEN EXIT SUB END IF QuickNavTotal = QuickNavTotal + 1 - REDIM _PRESERVE QuickNavHistory(1 TO QuickNavTotal) AS LONG + REDIM _PRESERVE QuickNavHistory(1 TO QuickNavTotal) AS QuickNavType - QuickNavHistory(QuickNavTotal) = LineNumber& + QuickNavHistory(QuickNavTotal).idecy = idecy + QuickNavHistory(QuickNavTotal).idecx = idecx + QuickNavHistory(QuickNavTotal).idesy = idesy + QuickNavHistory(QuickNavTotal).idesx = idesx END SUB SUB UpdateIdeInfo @@ -14767,18 +19425,34 @@ SUB UpdateIdeInfo IdeInfo = MID$(IdeInfo, 2) Percentage% = VAL(MID$(IdeInfo, 1, 3)) COLOR 13, 1 - LOCATE idewy - 1, 2 - PRINT STRING$(((idewx - 2) * Percentage%) / 100, "_"); + _PRINTSTRING (2, idewy - 1), STRING$(((idewx - 2) * Percentage%) / 100, "_") END IF END IF a$ = IdeInfo IF LEN(a$) > (idewx - 20) THEN a$ = LEFT$(a$, (idewx - 23)) + STRING$(3, 250) IF LEN(a$) < (idewx - 20) THEN a$ = a$ + SPACE$((idewx - 20) - LEN(a$)) - COLOR 0, 3: LOCATE idewy + idesubwindow, 2 - PRINT a$; + COLOR 0, 3 + _PRINTSTRING (2, idewy + idesubwindow), a$ + + IF LEN(versionStringStatus$) = 0 THEN + versionStringStatus$ = " v" + Version$ + IF LEN(AutoBuildMsg$) THEN versionStringStatus$ = versionStringStatus$ + MID$(AutoBuildMsg$, _INSTRREV(AutoBuildMsg$, " ")) + versionStringStatus$ = versionStringStatus$ + " " + END IF + '_PRINTSTRING (idewx - 22 - LEN(versionStringStatus$), idewy + idesubwindow), CHR$(179) + COLOR 2, 3 + _PRINTSTRING (idewx - 21 - LEN(versionStringStatus$), idewy + idesubwindow), versionStringStatus$ + PCOPY 3, 0 END SUB +SUB UpdateMenuHelpLine (a$) + IF LEN(a$) > (idewx - 2) THEN a$ = LEFT$(a$, (idewx - 4)) + STRING$(3, 250) + COLOR 0, 3 + _PRINTSTRING (1, idewy + idesubwindow), SPACE$(idewx) + _PRINTSTRING (2, idewy + idesubwindow), a$ +END SUB + FUNCTION DarkenFGBG (Action AS _BYTE) 'Darken the interface while compilation is taking place, 'to give a sense of temporary unavailability: @@ -14789,11 +19463,13 @@ FUNCTION DarkenFGBG (Action AS _BYTE) TempDarkerKWColor~& = _RGB32(_RED32(IDEKeywordColor) * .5, _GREEN32(IDEKeywordColor) * .5, _BLUE32(IDEKeywordColor) * .5) TempDarkerNumColor~& = _RGB32(_RED32(IDENumbersColor) * .5, _GREEN32(IDENumbersColor) * .5, _BLUE32(IDENumbersColor) * .5) TempDarkerCommentColor~& = _RGB32(_RED32(IDECommentColor) * .5, _GREEN32(IDECommentColor) * .5, _BLUE32(IDECommentColor) * .5) + TempDarkerIDEChromaColor~& = _RGB32(_RED32(IDEChromaColor) * .5, _GREEN32(IDEChromaColor) * .5, _BLUE32(IDEChromaColor) * .5) TempDarkerMetaColor~& = _RGB32(_RED32(IDEMetaCommandColor) * .5, _GREEN32(IDEMetaCommandColor) * .5, _BLUE32(IDEMetaCommandColor) * .5) TempDarkerQuoteColor~& = _RGB32(_RED32(IDEQuoteColor) * .5, _GREEN32(IDEQuoteColor) * .5, _BLUE32(IDEQuoteColor) * .5) _PALETTECOLOR 1, TempDarkerBGColor~&, 0 _PALETTECOLOR 5, TempDarkerBGColor~&, 0 _PALETTECOLOR 6, TempDarkerBG2Color~&, 0 + _PALETTECOLOR 7, TempDarkerIDEChromaColor~&, 0 _PALETTECOLOR 8, TempDarkerNumColor~&, 0 _PALETTECOLOR 10, TempDarkerMetaColor~&, 0 _PALETTECOLOR 11, TempDarkerCommentColor~&, 0 @@ -14804,6 +19480,7 @@ FUNCTION DarkenFGBG (Action AS _BYTE) _PALETTECOLOR 1, IDEBackgroundColor, 0 _PALETTECOLOR 5, IDEBracketHighlightColor, 0 _PALETTECOLOR 6, IDEBackgroundColor2, 0 + _PALETTECOLOR 7, IDEChromaColor, 0 _PALETTECOLOR 8, IDENumbersColor, 0 _PALETTECOLOR 10, IDEMetaCommandColor, 0 _PALETTECOLOR 11, IDECommentColor, 0 @@ -14811,6 +19488,8 @@ FUNCTION DarkenFGBG (Action AS _BYTE) _PALETTECOLOR 13, IDETextColor, 0 _PALETTECOLOR 14, IDEQuoteColor, 0 END IF + + DarkenFGBG = 0 END SUB SUB HideBracketHighlight @@ -14819,30 +19498,34 @@ SUB HideBracketHighlight 'color will be used differently in this dialog. oldBracketHighlightSetting = brackethighlight oldMultiHighlightSetting = multihighlight + oldShowLineNumbersUseBG = ShowLineNumbersUseBG brackethighlight = 0 multihighlight = 0 + ShowLineNumbersUseBG = 0 SCREEN , , 0 HideCurrentLineHighlight = -1 ideshowtext HideCurrentLineHighlight = 0 brackethighlight = oldBracketHighlightSetting multihighlight = oldMultiHighlightSetting + ShowLineNumbersUseBG = oldShowLineNumbersUseBG END SUB SUB LoadColorSchemes DIM i AS LONG 'Preset built-in schemes - PresetColorSchemes = 9 + PresetColorSchemes = 10 REDIM ColorSchemes$(1 TO PresetColorSchemes): i = 0 - i = i + 1: ColorSchemes$(i) = "QB64 Default|226226226147196235245128177255255085085255085085255255000000170000108177000147177" - i = i + 1: ColorSchemes$(i) = "Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177" - i = i + 1: ColorSchemes$(i) = "Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177" - i = i + 1: ColorSchemes$(i) = "CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088" - i = i + 1: ColorSchemes$(i) = "Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177" - i = i + 1: ColorSchemes$(i) = "Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177" - i = i + 1: ColorSchemes$(i) = "Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177" - i = i + 1: ColorSchemes$(i) = "Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177" - i = i + 1: ColorSchemes$(i) = "All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177" + i = i + 1: ColorSchemes$(i) = "Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108170170170" + i = i + 1: ColorSchemes$(i) = "Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177170170170" + i = i + 1: ColorSchemes$(i) = "QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177170170170" + i = i + 1: ColorSchemes$(i) = "Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177170170170" + i = i + 1: ColorSchemes$(i) = "CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088170170170" + i = i + 1: ColorSchemes$(i) = "Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177170170170" + i = i + 1: ColorSchemes$(i) = "Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177170170170" + i = i + 1: ColorSchemes$(i) = "Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177170170170" + i = i + 1: ColorSchemes$(i) = "Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177170170170" + i = i + 1: ColorSchemes$(i) = "All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177170170170" TotalColorSchemes = PresetColorSchemes LastValidColorScheme = TotalColorSchemes @@ -14850,7 +19533,7 @@ SUB LoadColorSchemes i = 0 DO i = i + 1 - result = ReadConfigSetting("Scheme" + str2$(i) + "$", value$) + result = ReadConfigSetting(colorSchemesSection$, "Scheme" + str2$(i) + "$", value$) IF result THEN TotalColorSchemes = TotalColorSchemes + 1 IF TotalColorSchemes > UBOUND(ColorSchemes$) THEN @@ -14862,14 +19545,20 @@ SUB LoadColorSchemes IF LEN(MID$(value$, FoundPipe + 1)) = 81 THEN 'Extended schemes (9 colors): LastValidColorScheme = TotalColorSchemes + value$ = value$ + "170170170" + WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", value$ + ColorSchemes$(TotalColorSchemes) = value$ + ELSEIF LEN(MID$(value$, FoundPipe + 1)) = 90 THEN + 'Extended schemes (10 colors): + LastValidColorScheme = TotalColorSchemes ELSEIF LEN(MID$(value$, FoundPipe + 1)) = 54 THEN 'Version 1.1 schemes (only 6 colors) 'Convert to extended scheme: temp$ = LEFT$(value$, FoundPipe) temp$ = temp$ + MID$(value$, FoundPipe + 1, 9) + "069147216245128177" - temp$ = temp$ + MID$(value$, FoundPipe + 10) + "000147177" + temp$ = temp$ + MID$(value$, FoundPipe + 10) + "000147177170170170" ColorSchemes$(TotalColorSchemes) = temp$ - WriteConfigSetting "'[IDE COLOR SCHEMES]", "Scheme" + str2$(i) + "$", temp$ + WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", temp$ LastValidColorScheme = TotalColorSchemes ELSE GOTO DiscardInvalid @@ -14902,16 +19591,16 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$) SELECT CASE Format% CASE 2300 'VBDOS - idemessagebox "Invalid format", "VBDOS binary format not supported." + result = idemessagebox("Invalid format", "VBDOS binary format not supported.", "") BinaryFormatCheck% = 1 CASE 764 'QBX 7.1 - idemessagebox "Invalid format", "QBX 7.1 binary format not supported." + result = idemessagebox("Invalid format", "QBX 7.1 binary format not supported.", "") BinaryFormatCheck% = 1 CASE 252 'QuickBASIC 4.5 IF INSTR(_OS$, "WIN") THEN convertUtility$ = "internal\utilities\QB45BIN.exe" ELSE - convertUtility$ = "internal/utilities/QB45BIN" + convertUtility$ = "./internal/utilities/QB45BIN" END IF IF _FILEEXISTS(convertUtility$) THEN what$ = ideyesnobox("Binary format", "QuickBASIC 4.5 binary format detected. Convert to plain text?") @@ -14931,21 +19620,20 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$) SCREEN , , 3, 0 dummy = DarkenFGBG(1) - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window - LOCATE idewy - 3, 2 + clearStatusWindow 0 COLOR 15, 1 - PRINT "Converting... " + _PRINTSTRING (2, idewy - 3), "Converting... " PCOPY 3, 0 convertLine$ = convertUtility$ + " " + QuotedFilename$(file$) + " -o " + QuotedFilename$(ofile$) SHELL _HIDE convertLine$ - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 dummy = DarkenFGBG(0) PCOPY 3, 0 IF _FILEEXISTS(ofile$) = 0 THEN - idemessagebox "Binary format", "Conversion failed." + result = idemessagebox("Binary format", "Conversion failed.", "") BinaryFormatCheck% = 2 'conversion failed ELSE pathToCheck$ = getfilepath$(ofile$) @@ -14960,29 +19648,32 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$) BinaryFormatCheck% = 1 END IF ELSE - IF _FILEEXISTS("source/utilities/QB45BIN.bas") = 0 THEN - idemessagebox "Binary format", "Conversion utility not found. Cannot open QuickBASIC 4.5 binary format." + IF _FILEEXISTS("internal/support/converter/QB45BIN.bas") = 0 THEN + result = idemessagebox("Binary format", "Conversion utility not found. Cannot open QuickBASIC 4.5 binary format.", "") BinaryFormatCheck% = 1 EXIT FUNCTION END IF what$ = ideyesnobox("Binary format", "QuickBASIC 4.5 binary format detected. Convert to plain text?") IF what$ = "Y" THEN 'Compile the utility first, then convert the file - IF _DIREXISTS("internal/utilities") = 0 THEN MKDIR "internal/utilities" + IF _DIREXISTS("./internal/utilities") = 0 THEN MKDIR "./internal/utilities" PCOPY 3, 0 SCREEN , , 3, 0 dummy = DarkenFGBG(1) - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window - LOCATE idewy - 3, 2 + clearStatusWindow 0 COLOR 15, 1 - PRINT "Preparing to convert..." + _PRINTSTRING (2, idewy - 3), "Preparing to convert..." PCOPY 3, 0 - SHELL _HIDE "qb64 -x source/utilities/QB45BIN.bas -o internal/utilities/QB45BIN" + IF INSTR(_OS$, "WIN") THEN + SHELL _HIDE "qb64 -x internal/support/converter/QB45BIN.bas -o internal/utilities/QB45BIN" + ELSE + SHELL _HIDE "./qb64 -x ./internal/support/converter/QB45BIN.bas -o ./internal/utilities/QB45BIN" + END IF IF _FILEEXISTS(convertUtility$) THEN GOTO ConvertIt - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window + clearStatusWindow 0 dummy = DarkenFGBG(0) PCOPY 3, 0 - idemessagebox "Binary format", "Error launching conversion utility." + result = idemessagebox("Binary format", "Error launching conversion utility.", "") END IF BinaryFormatCheck% = 1 END IF @@ -15004,5 +19695,383 @@ FUNCTION removesymbol2$ (varname$) removesymbol2$ = LEFT$(varname$, i - 1) END FUNCTION +SUB cleanSubName (n$) + x = INSTR(n$, "'"): IF x THEN n$ = LEFT$(n$, x - 1) + x = INSTR(n$, ":"): IF x THEN n$ = LEFT$(n$, x - 1) + x = INSTR(n$, " "): IF x THEN n$ = LEFT$(n$, x - 1) +END SUB + +SUB clearStatusWindow(whichLine) + COLOR 7, 1 + IF whichLine = 0 THEN + FOR whichLine = 1 TO 3 + _PRINTSTRING (2, (idewy - 4) + whichLine), SPACE$(idewx - 2) + NEXT + ELSE + _PRINTSTRING (2, (idewy - 4) + whichLine), SPACE$(idewx - 2) + END IF +END SUB + +SUB setStatusMessage(row, text$, fg) + COLOR fg + _PRINTSTRING (2, (idewy - 4) + row), text$ + PCOPY 3, 0 +END SUB + +FUNCTION getWordAtCursor$ + a$ = idegetline(idecy) + x = idecx + IF x <= LEN(a$) THEN + IF ASC(a$, x) = 32 AND x > 1 THEN + IF ASC(a$, x - 1) <> 32 THEN x = x - 1 + END IF + try: + IF alphanumeric(ASC(a$, x)) THEN + x1 = x + DO WHILE x1 > 1 + IF alphanumeric(ASC(a$, x1 - 1)) OR ASC(a$, x1 - 1) = 36 THEN x1 = x1 - 1 ELSE EXIT DO + LOOP + x2 = x + DO WHILE x2 < LEN(a$) + IF alphanumeric(ASC(a$, x2 + 1)) OR ASC(a$, x2 + 1) = 36 THEN x2 = x2 + 1 ELSE EXIT DO + LOOP + a2$ = MID$(a$, x1, x2 - x1 + 1) + ELSE + symbol$ = CHR$(ASC(a$, x)) + IF symbol$ = CHR$(32) THEN EXIT FUNCTION + IF symbol$ = "~" THEN getWordAtCursor$ = "~": EXIT FUNCTION + IF symbol$ = "`" THEN getWordAtCursor$ = "`": EXIT FUNCTION + IF symbol$ = "%" AND MID$(a$, x + 1) = "&" THEN getWordAtCursor$ = "%&": EXIT FUNCTION + IF symbol$ = "&" AND MID$(a$, x - 1) = "%" THEN getWordAtCursor$ = "%&": EXIT FUNCTION + x1 = x + DO WHILE x1 > 1 + IF MID$(a$, x1 - 1, 1) = symbol$ THEN x1 = x1 - 1 ELSE EXIT DO + LOOP + x2 = x + DO WHILE x2 < LEN(a$) + IF MID$(a$, x2 + 1, 1) = symbol$ THEN x2 = x2 + 1 ELSE EXIT DO + LOOP + a2$ = MID$(a$, x1, x2 - x1 + 1) + END IF + getWordAtCursor$ = a2$ 'a2$ now holds the word or character at current cursor position + ELSEIF x = LEN(a$) + 1 AND x > 1 THEN + IF ASC(a$, x - 1) <> 32 THEN x = x - 1: GOTO try + END IF +END FUNCTION + +FUNCTION getSelectedText$(multiline AS _BYTE) + IF ideselect THEN + sy1 = ideselecty1 + sy2 = idecy + IF sy1 > sy2 THEN SWAP sy1, sy2 + sx1 = ideselectx1 + sx2 = idecx + IF sx1 > sx2 THEN SWAP sx1, sx2 + FOR y = sy1 TO sy2 + IF y <= iden THEN + a$ = idegetline(y) + IF sy1 = sy2 THEN 'single line select + FOR x = sx1 TO sx2 - 1 + IF x <= LEN(a$) THEN clip$ = clip$ + MID$(a$, x, 1) ELSE clip$ = clip$ + " " + NEXT + ELSE 'multiline select + IF NOT multiline THEN EXIT FUNCTION + IF idecx = 1 AND y = sy2 AND idecy > sy1 THEN GOTO nofinalcopy + clip$ = clip$ + a$ + CHR$(13) + CHR$(10) + nofinalcopy: + IF y = sy2 AND idecx > 1 AND LEN(a$) > 0 THEN clip$ = LEFT$(clip$, LEN(clip$) - 2) + END IF + END IF + NEXT + getSelectedText$ = clip$ + END IF +END FUNCTION + +SUB delselect + sy1 = ideselecty1 + sy2 = idecy + IF sy1 > sy2 THEN SWAP sy1, sy2 + sx1 = ideselectx1 + sx2 = idecx + IF sx1 > sx2 THEN SWAP sx1, sx2 + nolastlinedel = 0 + IF sy1 <> sy2 AND idecx = 1 AND idecy > sy1 THEN sy2 = sy2 - 1: nolastlinedel = 1 'ignore last line of multi-line select? + + + FOR y = sy2 TO sy1 STEP -1 + IF sy1 = sy2 AND nolastlinedel = 0 THEN 'single line select + a$ = idegetline(y) + a2$ = "" + IF sx1 <= LEN(a$) THEN a2$ = LEFT$(a$, sx1 - 1) ELSE a2$ = a$ + IF sx2 <= LEN(a$) THEN a2$ = a2$ + RIGHT$(a$, LEN(a$) - sx2 + 1) + idesetline y, a2$ + ELSE 'multiline select + IF iden = 1 AND y = 1 THEN idesetline y, "" ELSE idedelline y + END IF + NEXT + + idecx = sx1: IF sy1 <> sy2 OR nolastlinedel = 1 THEN idecx = 1 + idecy = sy1 + ideselect = 0 +END SUB + +SUB insertAtCursor (tempk$) + 'insert + IF ideselect THEN delselect + a$ = idegetline(idecy) + IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$)) + a$ = LEFT$(a$, idecx - 1) + tempk$ + RIGHT$(a$, LEN(a$) - idecx + 1) + idesetline idecy, converttabs$(a$) + + IF PasteCursorAtEnd THEN + 'Place the cursor at the end of the inserted content: + idecx = idecx + LEN(tempk$) + END IF + + idechangemade = 1 + startPausedPending = 0 +END SUB + +FUNCTION findHelpTopic$(topic$, lnks, firstOnly AS _BYTE) + 'check if topic$ is in help links + ' - returns a list of help links separated by CHR$(0) + ' - returns the total number of links found by changing 'lnks' + a2$ = UCASE$(topic$) + fh = FREEFILE + OPEN "internal\help\links.bin" FOR BINARY AS #fh + lnks = 0: lnks$ = CHR$(0) + DO UNTIL EOF(fh) + LINE INPUT #fh, l$ + c = INSTR(l$, ","): l1$ = LEFT$(l$, c - 1): l2$ = RIGHT$(l$, LEN(l$) - c) + IF a2$ = UCASE$(l1$) OR (qb64prefix_set = 1 AND LEFT$(l1$, 1) = "_" AND a2$ = MID$(l1$, 2)) THEN + IF INSTR(lnks$, CHR$(0) + l2$ + CHR$(0)) = 0 THEN + lnks = lnks + 1 + IF firstOnly THEN findHelpTopic$ = l2$: CLOSE #fh: EXIT FUNCTION + IF l2$ = l1$ THEN + lnks$ = CHR$(0) + l2$ + lnks$ + ELSE + lnks$ = lnks$ + l2$ + CHR$(0) + END IF + END IF + END IF + LOOP + CLOSE #fh + findHelpTopic$ = lnks$ +END FUNCTION + +FUNCTION isnumber (__a$) + a$ = UCASE$(__a$) + IF LEN(a$) = 0 THEN EXIT FUNCTION + + IF INSTR("@&H@&O@&B@", "@" + LEFT$(a$, 2) + "@") THEN isnumber = 1: EXIT FUNCTION + + i = INSTR(a$, "~"): IF i THEN GOTO foundsymbol + i = INSTR(a$, "`"): IF i THEN GOTO foundsymbol + i = INSTR(a$, "%"): IF i THEN GOTO foundsymbol + i = INSTR(a$, "&"): IF i THEN GOTO foundsymbol + i = INSTR(a$, "!"): IF i THEN GOTO foundsymbol + i = INSTR(a$, "#"): IF i THEN GOTO foundsymbol + i = INSTR(a$, "$"): IF i THEN GOTO foundsymbol + GOTO proceedWithoutSymbol + foundsymbol: + IF i = 1 THEN EXIT FUNCTION + symbol$ = RIGHT$(a$, LEN(a$) - i + 1) + IF symboltype(symbol$) = 0 THEN EXIT FUNCTION + a$ = LEFT$(a$, i - 1) + + proceedWithoutSymbol: + ff = 0 + ee = 0 + dd = 0 + neg = 0 + FOR i = 1 TO LEN(a$) + a = ASC(a$, i) + IF a = 45 THEN + IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND ((dd > 0 AND dd = i - 1) OR (ee > 0 AND ee = i - 1) OR (ff > 0 AND ff = i - 1))) THEN neg = (i = 1): _CONTINUE + EXIT FUNCTION + END IF + IF a = 46 THEN + IF dp = 1 THEN EXIT FUNCTION + dp = 1 + _CONTINUE + END IF + IF a = 68 THEN 'dD + IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION + dd = i + IF neg <> 0 AND dd = 2 THEN EXIT FUNCTION + _CONTINUE + END IF + IF a = 69 THEN 'eE + IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION + ee = i + IF neg <> 0 AND ee = 2 THEN EXIT FUNCTION + _CONTINUE + END IF + IF a = 70 THEN 'fF + IF dd > 0 OR ee > 0 OR ff > 0 THEN EXIT FUNCTION + ff = i + IF neg <> 0 AND ff = 2 THEN EXIT FUNCTION + _CONTINUE + END IF + IF a = 43 THEN '+ + IF (dd > 0 AND dd = i - 1) OR (ee > 0 AND ee = i - 1) OR (ff > 0 AND ff = i - 1) THEN _CONTINUE + EXIT FUNCTION + END IF + + IF a >= 48 AND a <= 57 THEN _CONTINUE + EXIT FUNCTION + NEXT + isnumber = 1 +END FUNCTION + '$INCLUDE:'wiki\wiki_methods.bas' +SUB purgeprecompiledcontent + IF os$ = "WIN" THEN + CHDIR "internal\c" + SHELL _HIDE "cmd /c purge_all_precompiled_content_win.bat" + CHDIR "..\.." + END IF + IF os$ = "LNX" THEN + CHDIR "./internal/c" + + IF INSTR(_OS$, "[MACOSX]") THEN + SHELL _HIDE "./purge_all_precompiled_content_osx.command" + ELSE + SHELL _HIDE "./purge_all_precompiled_content_lnx.sh" + END IF + CHDIR "../.." + END IF +END SUB + +SUB printWrapStatus (x AS INTEGER, y AS INTEGER, initialX AS INTEGER, __text$) + DIM text$, nextWord$ + DIM AS INTEGER i, findSep, findColorMarker, changeColor, changeColorAfter + text$ = __text$ + + LOCATE y, x + DO WHILE LEN(_TRIM$(text$)) + findSep = INSTR(text$, " ") + IF findSep THEN + nextWord$ = LEFT$(text$, findSep) + ELSE + findSep = LEN(text$) + nextWord$ = text$ + END IF + text$ = MID$(text$, findSep + 1) + IF POS(0) + LEN(nextWord$) > _WIDTH THEN + IF CSRLIN + 1 <= (idewy - 4) + 3 THEN + LOCATE CSRLIN + 1, initialX + ELSE + 'no more room for printing + EXIT SUB + END IF + END IF + + changeColor = 0 + changeColorAfter = 0 + skipSpace = 0 + FOR i = 0 TO 2 + findColorMarker = INSTR(nextWord$, CHR$(i)) + IF findColorMarker = 1 THEN + nextWord$ = MID$(nextWord$, 2) + changeColor = i + 1 + GOSUB applyColorChange + ELSEIF findColorMarker > 0 THEN + nextWord$ = LEFT$(nextWord$, findColorMarker - 1) + MID$(nextWord$, findColorMarker + 1) + IF RIGHT$(nextWord$, 1) = " " THEN + nextWord$ = RTRIM$(nextWord$) + skipSpace = -1 + END IF + changeColorAfter = i + 1 + END IF + NEXT + + PRINT nextWord$; + + IF changeColorAfter THEN + changeColor = changeColorAfter + GOSUB applyColorChange + IF skipSpace THEN LOCATE , POS(0) + 1 + END IF + LOOP + EXIT SUB + + applyColorChange: + SELECT EVERYCASE changeColor + CASE 1 + IF _DEFAULTCOLOR <> 11 THEN COLOR 11 ELSE COLOR 7 + CASE 2 + COLOR 7, 1 + CASE 3 + COLOR 12, 6 + END SELECT + RETURN +END SUB + +FUNCTION GetBytes$(__value$, numberOfBytes&) + STATIC previousValue$, getBytesPosition& + + value$ = __value$ + IF value$ <> previousValue$ THEN + previousValue$ = value$ + getBytesPosition& = 1 + END IF + + IF numberOfBytes& = 0 THEN EXIT FUNCTION + + GetBytes$ = MID$(value$, getBytesPosition&, numberOfBytes&) + getBytesPosition& = getBytesPosition& + numberOfBytes& +END FUNCTION + +'FUNCTION Download$ (url$, outputVar$, lookFor$, timelimit) STATIC +' 'as seen on http://www.qb64.org/wiki/Downloading_Files +' 'adapted for use in the IDE + +' DIM theClient AS LONG, l AS LONG +' DIM prevUrl$, prevUrl2$, url2$, x AS LONG +' DIM e$, url3$, x$, t!, a2$, a$, i AS LONG +' DIM i2 AS LONG, i3 AS LONG, d$, fh AS LONG + +' IF url$ <> prevUrl$ OR url$ = "" THEN +' prevUrl$ = url$ +' IF url$ = "" THEN +' prevUrl2$ = "" +' IF theClient THEN CLOSE theClient: theClient = 0 +' EXIT FUNCTION +' END IF +' url2$ = url$ +' x = INSTR(url2$, "/") +' IF x THEN url2$ = LEFT$(url$, x - 1) +' IF url2$ <> prevUrl2$ THEN +' prevUrl2$ = url2$ +' IF theClient THEN CLOSE theClient: theClient = 0 +' theClient = _OPENCLIENT("TCP/IP:80:" + url2$) +' IF theClient = 0 THEN Download = MKI$(2): prevUrl$ = "": EXIT FUNCTION +' END IF +' e$ = CHR$(13) + CHR$(10) ' end of line characters +' url3$ = RIGHT$(url$, LEN(url$) - x + 1) +' x$ = "GET " + url3$ + " HTTP/1.1" + e$ +' x$ = x$ + "Host: " + url2$ + e$ + e$ +' PUT #theClient, , x$ +' t! = TIMER ' start time +' END IF + +' GET #theClient, , a2$ +' a$ = a$ + a2$ +' i = INSTR(a$, lookFor$) +' IF i THEN +' outputVar$ = a$ +' Download = MKI$(1) + MKL$(i) 'indicates download was successful +' prevUrl$ = "" +' prevUrl2$ = "" +' a$ = "" +' CLOSE theClient +' theClient = 0 +' EXIT FUNCTION +' END IF ' i +' IF TIMER > t! + timelimit THEN CLOSE theClient: theClient = 0: Download = MKI$(3): prevUrl$ = "": EXIT FUNCTION +' Download = MKI$(0) 'still working +'END FUNCTION + + diff --git a/source/ide/wiki/wiki_global.bas b/source/ide/wiki/wiki_global.bas index 590db199e..5bf5463ec 100644 --- a/source/ide/wiki/wiki_global.bas +++ b/source/ide/wiki/wiki_global.bas @@ -1,5 +1,6 @@ DIM SHARED Cache_Folder AS STRING Cache_Folder$ = "internal\help" +IF INSTR(_OS$, "WIN") = 0 THEN Cache_Folder$ = "internal/help" IF _DIREXISTS("internal") = 0 THEN GOTO NoInternalFolder IF _DIREXISTS(Cache_Folder$) = 0 THEN MKDIR Cache_Folder$ DIM SHARED Help_sx, Help_sy, Help_cx, Help_cy diff --git a/source/ide/wiki/wiki_methods.bas b/source/ide/wiki/wiki_methods.bas index c5272e52a..6ae2977a2 100644 --- a/source/ide/wiki/wiki_methods.bas +++ b/source/ide/wiki/wiki_methods.bas @@ -7,7 +7,6 @@ FUNCTION Back2BackName$ (a$) END FUNCTION FUNCTION Wiki$ (PageName$) - STATIC AlternativeServer AS _BYTE Help_PageLoaded$ = PageName$ PageName2$ = PageName$ @@ -31,11 +30,32 @@ FUNCTION Wiki$ (PageName$) a$ = SPACE$(LOF(fh)) GET #fh, , a$ CLOSE #fh + chr13 = INSTR(a$, CHR$(13)) + removedchr13 = 0 + DO WHILE chr13 > 0 + removedchr13 = -1 + a$ = LEFT$(a$, chr13 - 1) + MID$(a$, chr13 + 1) + chr13 = INSTR(a$, CHR$(13)) + LOOP + IF removedchr13 THEN + fh = FREEFILE + OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR OUTPUT AS #fh: CLOSE #fh + OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR BINARY AS #fh + PUT #fh, 1, a$ + CLOSE #fh + END IF Wiki$ = a$ EXIT FUNCTION END IF END IF + IF _SHELLHIDE("curl --version") <> 0 THEN + PCOPY 2, 0 + result = idemessagebox("QB64", "Cannot find 'curl'.", "#Abort") + PCOPY 3, 0: SCREEN , , 3, 0 + EXIT FUNCTION + END IF + IF Help_Recaching = 0 THEN a$ = "Downloading '" + PageName$ + "' page..." IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + STRING$(3, 250) @@ -47,78 +67,36 @@ FUNCTION Wiki$ (PageName$) PCOPY 3, 0 END IF - url$ = "www.qb64.org/wiki/index.php?title=" + PageName2$ + "&action=edit" - 'when fetching from .org, look for name="wpTextbox1"> + url$ = CHR$(34) + wikiBaseAddress$ + "/index.php?title=" + PageName2$ + "&action=edit" + CHR$(34) + outputFile$ = Cache_Folder$ + "/" + PageName2$ + ".txt" + + 'wiki text delimiters: s1$ = "name=" + CHR$(34) + "wpTextbox1" + CHR$(34) + ">" - try: - IF AlternativeServer THEN - url$ = "www.qb64.net/wiki/index.php?title=" + PageName2$ + "&action=edit" - s1$ = "readonly=" + CHR$(34) + "readonly" + CHR$(34) + ">" - END IF - url2$ = url$ - x = INSTR(url2$, "/") - IF x THEN url2$ = LEFT$(url$, x - 1) - c = _OPENCLIENT("TCP/IP:80:" + url2$) - IF c = 0 THEN - IF INSTR(url$, ".net") = 0 THEN - AlternativeServer = -1 - IF Help_Recaching = 0 THEN - a$ = "Downloading '" + PageName$ + "' page from alternative server..." - IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + STRING$(3, 250) - IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$)) + s2$ = "" - COLOR 0, 3: LOCATE idewy + idesubwindow, 2 - PRINT a$; + SHELL _HIDE "curl -o " + CHR$(34) + outputFile$ + CHR$(34) + " " + url$ + fh = FREEFILE + OPEN outputFile$ FOR BINARY AS #fh 'get new content + a$ = SPACE$(LOF(fh)) + GET #fh, 1, a$ + CLOSE #fh - PCOPY 3, 0 - END IF - GOTO try - ELSE - EXIT FUNCTION + s1 = INSTR(a$, s1$) + IF s1 > 0 THEN + 'clean up downloaded contents + a$ = MID$(a$, s1 + LEN(s1$)) + s2 = INSTR(a$, s2$) + IF s2 > 0 THEN + a$ = LEFT$(a$, s2) END IF - END IF - e$ = CHR$(13) + CHR$(10) - url3$ = RIGHT$(url$, LEN(url$) - x + 1) - x$ = "GET " + url3$ + " HTTP/1.1" + e$ - x$ = x$ + "Host: " + url2$ + e$ + e$ - PUT #c, , x$ - t! = TIMER - DO - _DELAY 0.1 - GET #c, , a2$ - IF LEN(a2$) THEN - a$ = a$ + a2$ - IF INSTR(a$, "") THEN - CLOSE #c - s2$ = "" - s1 = INSTR(a$, s1$): IF s1 = 0 THEN EXIT FUNCTION - s1 = s1 + LEN(s1$) - s2 = INSTR(a$, s2$): IF s2 = 0 THEN EXIT FUNCTION - s2 = s2 - 1 - IF s1 > s2 THEN EXIT FUNCTION - a$ = MID$(a$, s1, s2 - s1 + 1) - fh = FREEFILE - E = 0 - ON ERROR GOTO qberror_test - OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR OUTPUT AS #fh 'clear old content - ON ERROR GOTO qberror - IF E = 0 THEN - CLOSE #fh - ON ERROR GOTO qberror_test - OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR BINARY AS #fh - ON ERROR GOTO qberror - IF E = 0 THEN - PUT #fh, , a$ - CLOSE #fh - END IF - END IF - Wiki$ = a$ - EXIT FUNCTION - END IF - END IF - LOOP UNTIL ABS(TIMER - t!) > 20 - CLOSE #c + OPEN outputFile$ FOR OUTPUT AS #fh 'clear old content + PRINT #fh, a$ 'save clean content + CLOSE #fh + END IF + + Wiki$ = a$ + EXIT FUNCTION END FUNCTION SUB Help_AddTxt (t$, col, link) @@ -181,7 +159,7 @@ SUB Help_NewLine IF Help_Pos > help_w THEN help_w = Help_Pos Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 13 - Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = col + Help_BG_Col * 16 + Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = Help_BG_Col * 16 Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 0 Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 0 @@ -272,9 +250,10 @@ SUB WikiParse (a$) ' eg. {{KW|PRINT}}=a key word, a link to a page ' {{Cl|PRINT}}=a key word in a code example, will be printed in bold and aqua ' {{Parameter|expression}}=a parameter, in italics - ' {{PageSyntax}} {{PageDescription}} {{PageExamples}} + ' {{PageSyntax}} {{PageParameters}} {{PageDescription}} {{PageExamples}} ' {{CodeStart}} {{CodeEnd}} {{OutputStart}} {{OutputEnd}} - ' {{PageSeeAlso}} {{PageNavigation}} + ' {{PageSeeAlso}} {{PageNavigation}} {{PageLegacySupport}} + ' {{PageQBasic}} {{PageAvailability}} ' [[SPACE$]]=a link to wikipage called "SPACE$" ' [[INTEGER|integer]]=a link, link's name is on left and text to appear is on right ' *=a dot point @@ -289,6 +268,12 @@ SUB WikiParse (a$) c$(ii) = SPACE$(ii) NEXT + i = INSTR(a$, "") + 1) + i = INSTR(a$, "= LEN(a$) THEN EXIT DO + IF l$ = "|-" THEN _CONTINUE + + m$ = "" + IF LEFT$(l$, 2) = "! " THEN m$ = "!!" + IF LEFT$(l$, 2) = "| " THEN m$ = "||" + + IF LEN(m$) THEN + 'new row + totalRows = totalRows + 1 + IF totalRows > UBOUND(tableRow) THEN + REDIM _PRESERVE tableRow(1 TO UBOUND(tableRow) + 99) AS STRING + END IF + + 'columns + j = 3 + thisCol = 0 + DO + p$ = wikiGetUntil$(l$, j, m$) + j = j + 1 + IF LEN(_TRIM$(p$)) THEN + thisCol = thisCol + 1 + IF totalCols < thisCol THEN totalCols = thisCol + IF thisCol > UBOUND(tableCol) THEN + REDIM _PRESERVE tableCol(1 TO UBOUND(tableCol) + 99) AS INTEGER + END IF + IF tableCol(thisCol) < LEN(_TRIM$(p$)) + 2 THEN tableCol(thisCol) = LEN(_TRIM$(p$)) + 2 + tableRow(totalRows) = tableRow(totalRows) + _TRIM$(p$) + CHR$(0) + END IF + LOOP WHILE j < LEN(l$) + END IF + LOOP + backupHelp_BG_Col = Help_BG_Col + backupBold = Help_Bold + Help_BG_Col = 2 + FOR printTable = 1 TO totalRows + IF printTable = 1 THEN + Help_Bold = 1 + ELSE + Help_Bold = 0 + END IF + col = Help_Col + + j = 1 + tableOutput$ = "" + FOR checkCol = 1 TO totalCols + p$ = wikiGetUntil$(tableRow(printTable), j, CHR$(0)) + p$ = StrReplace$(p$, "<", "<") + p$ = StrReplace$(p$, ">", ">") + p$ = StrReplace$(p$, CHR$(194) + CHR$(160), "") + p$ = StrReplace$(p$, "&", "&") + p$ = StrReplace$(p$, CHR$(226) + CHR$(136) + CHR$(146), "-") + p$ = StrReplace$(p$, "", "") + p$ = StrReplace$(p$, "", "") + p$ = StrReplace$(p$, "
    ", "") + p$ = StrReplace$(p$, "
    ", "") + p$ = StrReplace$(p$, "
    ", "") + + thisCol$ = SPACE$(tableCol(checkCol)) + MID$(thisCol$, 2) = p$ + tableOutput$ = tableOutput$ + thisCol$ + NEXT + Help_AddTxt tableOutput$, col, 0 + Help_AddTxt CHR$(13), col, 0 + NEXT + Help_BG_Col = backupHelp_BG_Col + Help_Bold = backupBold + Help_AddTxt CHR$(13), col, 0 + ELSE + i = i + 1 + FOR ii = i TO LEN(a$) - 1 + IF MID$(a$, ii, 2) = "|}" THEN i = ii + 1: EXIT FOR + NEXT + END IF GOTO Special END IF @@ -784,3 +865,20 @@ SUB WikiParse (a$) END SUB + +FUNCTION wikiGetLine$ (a$, i) + wikiGetLine$ = wikiGetUntil(a$, i, CHR$(10)) +END FUNCTION + +FUNCTION wikiGetUntil$ (a$, i, separator$) + IF i >= LEN(a$) THEN EXIT FUNCTION + j = INSTR(i, a$, separator$) + IF j = 0 THEN + wikiGetUntil$ = MID$(a$, i) + i = LEN(a$) + ELSE + wikiGetUntil$ = MID$(a$, i, j - i) + i = j + 1 + END IF +END FUNCTION + diff --git a/source/qb64.bas b/source/qb64.bas index db2d0a9ee..84b5bbb6f 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -14,56 +14,54 @@ $SCREENHIDE '$INCLUDE:'global\settings.bas' '$INCLUDE:'global\constants.bas' '$INCLUDE:'subs_functions\extensions\opengl\opengl_global.bas' +'$INCLUDE:'utilities\ini-manager\ini.bi' -'INCLUDE:'qb_framework\qb_framework_global.bas' -DEFLNG A-Z - -'INCLUDE:'virtual_keyboard\virtual_keyboard_global.bas' -DEFLNG A-Z - -'$INCLUDE:'android\android_global.bas' DEFLNG A-Z '-------- Optional IDE Component (1/2) -------- '$INCLUDE:'ide\ide_global.bas' -REDIM SHARED OName(0) AS STRING 'Operation Name -REDIM SHARED PL(0) AS INTEGER 'Priority Level -DIM SHARED QuickReturn AS INTEGER -Set_OrderOfOperations 'This will also make certain our directories are valid, and if not make them. +REDIM SHARED OName(1000) AS STRING 'Operation Name +REDIM SHARED PL(1000) AS INTEGER 'Priority Level +REDIM SHARED PP_TypeMod(0) AS STRING, PP_ConvertedMod(0) AS STRING 'Prepass Name Conversion variables. +Set_OrderOfOperations -DIM SHARED MakeAndroid 'build an Android project (refer to SUB UseAndroid) -DIM SHARED VirtualKeyboardState -DIM SHARED DesiredVirtualKeyboardState -DIM SHARED RecompileAttemptsForVirtualKeyboardState +DIM SHARED vWatchOn, vWatchRecompileAttempts, vWatchDesiredState, vWatchErrorCall$ +DIM SHARED vWatchNewVariable$, vWatchVariableExclusions$ +vWatchErrorCall$ = "if (stop_program) {*__LONG_VWATCH_LINENUMBER=0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);};if(new_error){bkp_new_error=new_error;new_error=0;*__LONG_VWATCH_LINENUMBER=-1; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);new_error=bkp_new_error;};" +vWatchVariableExclusions$ = "@__LONG_VWATCH_LINENUMBER@__LONG_VWATCH_SUBLEVEL@__LONG_VWATCH_GOTO@" + _ + "@__STRING_VWATCH_SUBNAME@__STRING_VWATCH_CALLSTACK@__ARRAY_BYTE_VWATCH_BREAKPOINTS" + _ + "@__ARRAY_BYTE_VWATCH_SKIPLINES@__STRING_VWATCH_INTERNALSUBNAME@__ARRAY_STRING_VWATCH_STACK@" + +DIM SHARED nativeDataTypes$ +nativeDataTypes$ = "@_OFFSET@OFFSET@_UNSIGNED _OFFSET@UNSIGNED OFFSET@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@_BYTE@_UNSIGNED _BYTE@BYTE@UNSIGNED BYTE@INTEGER@_UNSIGNED INTEGER@UNSIGNED INTEGER@LONG@_UNSIGNED LONG@UNSIGNED LONG@_INTEGER64@INTEGER64@_UNSIGNED _INTEGER64@UNSIGNED INTEGER64@SINGLE@DOUBLE@_FLOAT@FLOAT@STRING@" + +DIM SHARED qb64prefix_set_recompileAttempts, qb64prefix_set_desiredState +DIM SHARED opex_recompileAttempts, opex_desiredState +DIM SHARED opexarray_recompileAttempts, opexarray_desiredState REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG +REDIM SelectCaseHasCaseBlock(100) DIM ExecLevel(255), ExecCounter AS INTEGER REDIM SHARED UserDefine(1, 100) AS STRING '0 element is the name, 1 element is the string value -REDIM SHARED InValidLine(10000) AS _BIT +REDIM SHARED InValidLine(10000) AS _BYTE DIM DefineElse(255) AS _BYTE -DIM SHARED UserDefineCount AS INTEGER +DIM SHARED UserDefineCount AS INTEGER, UserDefineList$ +UserDefineList$ = "@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@" UserDefine(0, 0) = "WINDOWS": UserDefine(0, 1) = "WIN" UserDefine(0, 2) = "LINUX" UserDefine(0, 3) = "MAC": UserDefine(0, 4) = "MACOSX" UserDefine(0, 5) = "32BIT": UserDefine(0, 6) = "64BIT" +UserDefine(0, 7) = "VERSION" IF INSTR(_OS$, "WIN") THEN UserDefine(1, 0) = "-1": UserDefine(1, 1) = "-1" ELSE UserDefine(1, 0) = "0": UserDefine(1, 1) = "0" IF INSTR(_OS$, "LINUX") THEN UserDefine(1, 2) = "-1" ELSE UserDefine(1, 2) = "0" IF INSTR(_OS$, "MAC") THEN UserDefine(1, 3) = "-1": UserDefine(1, 4) = "-1" ELSE UserDefine(1, 3) = "0": UserDefine(1, 4) = "0" IF INSTR(_OS$, "32BIT") THEN UserDefine(1, 5) = "-1": UserDefine(1, 6) = "0" ELSE UserDefine(1, 5) = "0": UserDefine(1, 6) = "-1" +UserDefine(1, 7) = Version$ +DIM SHARED QB64_uptime! - -'refactor patch -DIM SHARED Refactor_Source AS STRING -DIM SHARED Refactor_Dest AS STRING -IF _FILEEXISTS("refactor.txt") THEN - fh = FREEFILE - OPEN "refactor.txt" FOR BINARY AS #fh - LINE INPUT #fh, Refactor_Source - LINE INPUT #fh, Refactor_Dest - CLOSE fh -END IF +QB64_uptime! = TIMER NoInternalFolder: IF _DIREXISTS("internal") = 0 THEN @@ -76,7 +74,7 @@ IF _DIREXISTS("internal") = 0 THEN DO _LIMIT 1 LOOP UNTIL INKEY$ <> "" - SYSTEM + SYSTEM 1 END IF DIM SHARED Include_GDB_Debugging_Info 'set using "options.bin" @@ -94,7 +92,7 @@ CONST DEPENDENCY_PRINTER = 9: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 CONST DEPENDENCY_ICON = 10: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 CONST DEPENDENCY_SCREENIMAGE = 11: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 CONST DEPENDENCY_DEVICEINPUT = 12: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 'removes support for gamepad input if not present - +CONST DEPENDENCY_ZLIB = 13: DEPENDENCY_LAST = DEPENDENCY_LAST + 1 'ZLIB library linkage, if desired, for compression/decompression. @@ -103,18 +101,33 @@ DIM SHARED DEPENDENCY(1 TO DEPENDENCY_LAST) DIM SHARED UseGL 'declared SUB _GL (no params) -DIM SHARED OS_BITS AS LONG +DIM SHARED OS_BITS AS LONG, WindowTitle AS STRING OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32 -IF OS_BITS = 32 THEN _TITLE "QB64 x32" ELSE _TITLE "QB64 x64" +IF OS_BITS = 32 THEN WindowTitle = "QB64 x32" ELSE WindowTitle = "QB64 x64" +_TITLE WindowTitle -DIM SHARED ConsoleMode, No_C_Compile_Mode, Cloud, NoIDEMode -DIM SHARED VerboseMode AS _BYTE, CMDLineFile AS STRING +DIM SHARED ConsoleMode, No_C_Compile_Mode, NoIDEMode +DIM SHARED ShowWarnings AS _BYTE, QuietMode AS _BYTE, CMDLineFile AS STRING +DIM SHARED MonochromeLoggingMode AS _BYTE -DIM SHARED totalUnusedVariables AS LONG, usedVariableList$, bypassNextVariable AS _BYTE +TYPE usedVarList + AS LONG id, linenumber, includeLevel, includedLine, scope, localIndex + AS LONG arrayElementSize + AS _BYTE used, watch, isarray, displayFormat 'displayFormat: 0=DEC;1=HEX;2=BIN;3=OCT + AS STRING name, cname, varType, includedFile, subfunc + AS STRING watchRange, indexes, elements, elementTypes 'for Arrays and UDTs + AS STRING elementOffset, storage +END TYPE + +REDIM SHARED backupUsedVariableList(1000) AS usedVarList +DIM SHARED typeDefinitions$, backupTypeDefinitions$ +DIM SHARED totalVariablesCreated AS LONG, totalMainVariablesCreated AS LONG +DIM SHARED bypassNextVariable AS _BYTE DIM SHARED totalWarnings AS LONG, warningListItems AS LONG, lastWarningHeader AS STRING -DIM SHARED duplicateConstWarning AS _BYTE -DIM SHARED ExeIconSet AS LONG +DIM SHARED duplicateConstWarning AS _BYTE, warningsissued AS _BYTE +DIM SHARED emptySCWarning AS _BYTE, maxLineNumber AS LONG +DIM SHARED ExeIconSet AS LONG, qb64prefix$, qb64prefix_set DIM SHARED VersionInfoSet AS _BYTE 'Variables to handle $VERSIONINFO metacommand: @@ -127,6 +140,7 @@ DIM SHARED NoChecks DIM SHARED Console DIM SHARED ScreenHide +DIM SHARED Asserts DIM SHARED OptMax AS LONG OptMax = 256 REDIM SHARED Opt(1 TO OptMax, 1 TO 10) AS STRING * 256 @@ -277,7 +291,7 @@ ELSE OPEN tmpdir$ + "temp.bin" FOR OUTPUT LOCK WRITE AS #26 DO WHILE E i = i + 1 - IF i = 1000 THEN PRINT "Unable to locate the 'internal' folder": END + IF i = 1000 THEN PRINT "Unable to locate the 'internal' folder": END 1 MKDIR ".\internal\temp" + str2$(i) IF os$ = "WIN" THEN tmpdir$ = ".\internal\temp" + str2$(i) + "\": tmpdir2$ = "..\\temp" + str2$(i) + "\\" IF os$ = "LNX" THEN tmpdir$ = "./internal/temp" + str2$(i) + "/": tmpdir2$ = "../temp" + str2$(i) + "/" @@ -342,13 +356,13 @@ DIM SHARED idemessage AS STRING 'set by qb64-error(...) to the error message to 'is later passed to the ide in message #8 DIM SHARED optionexplicit AS _BYTE +DIM SHARED optionexplicitarray AS _BYTE DIM SHARED optionexplicit_cmd AS _BYTE DIM SHARED ideStartAtLine AS LONG, errorLineInInclude AS LONG +DIM SHARED warningInInclude AS LONG, warningInIncludeLine AS LONG DIM SHARED outputfile_cmd$ DIM SHARED compilelog$ -DIM cname(4) AS STRING - '$INCLUDE:'global\IDEsettings.bas' CMDLineFile = ParseCMDLineArgs$ @@ -626,22 +640,7 @@ REDIM SHARED constdefined(constmax) AS LONG 'UDT 'names DIM SHARED lasttype AS LONG -DIM SHARED udtxname(1000) AS STRING * 256 -DIM SHARED udtxcname(1000) AS STRING * 256 -DIM SHARED udtxsize(1000) AS LONG -DIM SHARED udtxbytealign(1000) AS INTEGER 'first element MUST be on a byte alignment & size is a multiple of 8 -DIM SHARED udtxnext(1000) AS LONG -DIM SHARED udtxvariable(1000) AS INTEGER 'true if the udt contains variable length elements -'elements DIM SHARED lasttypeelement AS LONG -DIM SHARED udtename(1000) AS STRING * 256 -DIM SHARED udtecname(1000) AS STRING * 256 -DIM SHARED udtebytealign(1000) AS INTEGER -DIM SHARED udtesize(1000) AS LONG -DIM SHARED udtetype(1000) AS LONG -DIM SHARED udtetypesize(1000) AS LONG -DIM SHARED udtearrayelements(1000) AS LONG -DIM SHARED udtenext(1000) AS LONG TYPE idstruct @@ -688,7 +687,7 @@ TYPE idstruct sfid AS LONG 'id number of variable's parent sub/function sfarg AS INTEGER 'argument/parameter # within call (1=first) - NoCloud AS INTEGER + hr_syntax AS STRING END TYPE DIM SHARED id AS idstruct @@ -769,8 +768,10 @@ DIM SHARED findidsecondarg AS STRING DIM SHARED findanotherid AS INTEGER DIM SHARED findidinternal AS LONG DIM SHARED currentid AS LONG 'is the index of the last ID accessed -DIM SHARED linenumber AS LONG +DIM SHARED linenumber AS LONG, reallinenumber AS LONG, totallinenumber AS LONG, definingtypeerror AS LONG DIM SHARED wholeline AS STRING +DIM SHARED firstLineNumberLabelvWatch AS LONG, lastLineNumberLabelvWatch AS LONG +DIM SHARED vWatchUsedLabels AS STRING, vWatchUsedSkipLabels AS STRING DIM SHARED linefragment AS STRING 'COMMON SHARED bitmask() AS _INTEGER64 'COMMON SHARED bitmaskinv() AS _INTEGER64 @@ -778,6 +779,7 @@ DIM SHARED linefragment AS STRING DIM SHARED arrayprocessinghappened AS INTEGER DIM SHARED stringprocessinghappened AS INTEGER DIM SHARED cleanupstringprocessingcall AS STRING +DIM SHARED inputfunctioncalled AS _BYTE DIM SHARED recompile AS INTEGER 'forces recompilation 'COMMON SHARED cmemlist() AS INTEGER DIM SHARED optionbase AS INTEGER @@ -791,6 +793,7 @@ DIM SHARED module AS STRING DIM SHARED subfunc AS STRING DIM SHARED subfuncn AS LONG +DIM SHARED closedsubfunc AS _BYTE DIM SHARED subfuncid AS LONG DIM SHARED defdatahandle AS INTEGER @@ -810,8 +813,8 @@ DIM SHARED uniquenumbern AS LONG 'CLEAR , , 16384 -DIM SHARED bitmask(1 TO 56) AS _INTEGER64 -DIM SHARED bitmaskinv(1 TO 56) AS _INTEGER64 +DIM SHARED bitmask(1 TO 64) AS _INTEGER64 +DIM SHARED bitmaskinv(1 TO 64) AS _INTEGER64 DIM SHARED defineextaz(1 TO 27) AS STRING DIM SHARED defineaz(1 TO 27) AS STRING '27 is an underscore @@ -852,18 +855,19 @@ UDTTYPE = ISUDT + ISPOINTER DIM SHARED statementn AS LONG +DIM SHARED everycasenewcase AS LONG - -DIM controllevel AS INTEGER '0=not in a control block -DIM controltype(1000) AS INTEGER +DIM SHARED controllevel AS INTEGER '0=not in a control block +DIM SHARED controltype(1000) AS INTEGER '1=IF (awaiting END IF) '2=FOR (awaiting NEXT) '3=DO (awaiting LOOP [UNTIL|WHILE param]) '4=DO WHILE/UNTIL (awaiting LOOP) '5=WHILE (awaiting WEND) +'6=$IF (precompiler) '10=SELECT CASE qbs (awaiting END SELECT/CASE) '11=SELECT CASE int64 (awaiting END SELECT/CASE) '12=SELECT CASE uint64 (awaiting END SELECT/CASE) @@ -874,10 +878,11 @@ DIM controltype(1000) AS INTEGER '17=SELECT CASE uint32 '18=CASE (awaiting END SELECT/CASE/CASE ELSE) '19=CASE ELSE (awaiting END SELECT) +'32=SUB/FUNCTION (awaiting END SUB/FUNCTION) DIM controlid(1000) AS LONG DIM controlvalue(1000) AS LONG DIM controlstate(1000) AS INTEGER -DIM controlref(1000) AS LONG 'the line number the control was created on +DIM SHARED controlref(1000) AS LONG 'the line number the control was created on @@ -886,7 +891,7 @@ DIM controlref(1000) AS LONG 'the line number the control was created on ON ERROR GOTO qberror i2&& = 1 -FOR i&& = 1 TO 56 +FOR i&& = 1 TO 64 bitmask(i&&) = i2&& bitmaskinv(i&&) = NOT i2&& i2&& = i2&& + 2 ^ i&& @@ -972,7 +977,6 @@ END IF IF C = 5 THEN 'end of program reached - 'bas code can be force-included after the last line lastLine = 1 lastLineReturn = 1 IF idepass = 1 THEN @@ -1054,16 +1058,6 @@ IF C = 9 THEN 'run GOTO sendcommand END IF - 'hack! (a new message should be sent to the IDE stating C++ compilation was successful) - COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window - IF idemode THEN - 'Darken fg/bg colors - dummy = DarkenFGBG(1) - COLOR 15 - END IF - LOCATE idewy - 3, 2: PRINT "Starting program..."; - PCOPY 3, 0 - 'execute program IF iderunmode = 1 THEN @@ -1097,7 +1091,11 @@ IF C = 9 THEN 'run dummy = DarkenFGBG(0) END IF - sendc$ = CHR$(6) 'ready + IF vWatchOn THEN + sendc$ = CHR$(254) 'launch debug interface + ELSE + sendc$ = CHR$(6) 'ready + END IF GOTO sendcommand END IF @@ -1107,7 +1105,9 @@ ideerror: IF INSTR(idemessage$, sp$) THEN 'Something went wrong here, so let's give a generic error message to the user. '(No error message should contain sp$ - that is, CHR$(13), when not in Debug mode) - idemessage$ = "Compiler error (check for syntax errors) (Reference:" + terrmsg$ = _ERRORMESSAGE$ + IF terrmsg$ = "No error" THEN terrmsg$ = "Internal error" + idemessage$ = "Compiler error (check for syntax errors) (" + terrmsg$ + ":" IF ERR THEN idemessage$ = idemessage$ + str2$(ERR) + "-" IF _ERRORLINE THEN idemessage$ = idemessage$ + str2$(_ERRORLINE) IF _INCLERRORLINE THEN idemessage$ = idemessage$ + "-" + _INCLERRORFILE$ + "-" + str2$(_INCLERRORLINE) @@ -1120,7 +1120,10 @@ GOTO sendcommand noide: -PRINT "QB64 COMPILER V" + Version$ +IF (qb64versionprinted = 0 OR ConsoleMode = 0) AND NOT QuietMode THEN + qb64versionprinted = -1 + PRINT "QB64 Compiler V" + Version$ +END IF IF CMDLineFile = "" THEN LINE INPUT ; "COMPILE (.bas)>", f$ @@ -1133,6 +1136,7 @@ f$ = LTRIM$(RTRIM$(f$)) IF FileHasExtension(f$) = 0 THEN f$ = f$ + ".bas" sourcefile$ = f$ +CMDLineFile = sourcefile$ 'derive name from sourcefile f$ = RemoveFileExtension$(f$) @@ -1142,7 +1146,7 @@ path.source$ = getfilepath$(sourcefile$) IF LEN(path.source$) THEN IF _DIREXISTS(path.source$) = 0 THEN PRINT - PRINT "CANNOT LOCATE SOURCE FILE: " + sourcefile$ + PRINT "Cannot locate source file: " + sourcefile$ IF ConsoleMode THEN SYSTEM 1 END 1 END IF @@ -1171,7 +1175,7 @@ file$ = f$ fullrecompile: BU_DEPENDENCY_CONSOLE_ONLY = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) -FOR i = 1 TO UBOUND(Dependency): DEPENDENCY(i) = 0: NEXT +FOR i = 1 TO UBOUND(DEPENDENCY): DEPENDENCY(i) = 0: NEXT DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = BU_DEPENDENCY_CONSOLE_ONLY AND 2 'Restore -g switch if used Error_Happened = 0 @@ -1198,22 +1202,28 @@ sflistn = -1 'no entries SubNameLabels = sp 'QB64 will perform a repass to resolve sub names used as labels -DesiredVirtualKeyboardState = 0 -IF MakeAndroid THEN DesiredVirtualKeyboardState = 1 -RecompileAttemptsForVirtualKeyboardState = 0 +vWatchDesiredState = 0 +vWatchRecompileAttempts = 0 + +qb64prefix_set_desiredState = 0 +qb64prefix_set_recompileAttempts = 0 + +opex_desiredState = 0 +opex_recompileAttempts = 0 + +opexarray_desiredState = 0 +opexarray_recompileAttempts = 0 recompile: +vWatchOn = vWatchDesiredState +vWatchVariable "", -1 'reset internal variables list -'For installing Android assets -REDIM SHARED installFiles(0) AS STRING -REDIM SHARED installFilesSourceLocation(0) AS STRING -REDIM SHARED installFilesIn(0) AS STRING -REDIM SHARED installFolder(0) AS STRING -REDIM SHARED installFolderSourceLocation(0) AS STRING -REDIM SHARED installFolderIn(0) AS STRING +qb64prefix_set = qb64prefix_set_desiredState +qb64prefix$ = "_" -'move desired state into active state -VirtualKeyboardState = DesiredVirtualKeyboardState +optionexplicit = opex_desiredState +IF optionexplicit_cmd = -1 AND NoIDEMode = 1 THEN optionexplicit = -1 +optionexplicitarray = opexarray_desiredState lastLineReturn = 0 lastLine = 0 @@ -1373,6 +1383,7 @@ HashAdd "WHILE", f, 0 'clear/init variables Console = 0 ScreenHide = 0 +Asserts = 0 ResolveStaticFunctions = 0 dynamiclibrary = 0 dimsfarray = 0 @@ -1399,7 +1410,23 @@ addmetainclude$ = "" nextrunlineindex = 1 lasttype = 0 lasttypeelement = 0 +REDIM SHARED udtxname(1000) AS STRING * 256 +REDIM SHARED udtxcname(1000) AS STRING * 256 +REDIM SHARED udtxsize(1000) AS LONG +REDIM SHARED udtxbytealign(1000) AS INTEGER 'first element MUST be on a byte alignment & size is a multiple of 8 +REDIM SHARED udtxnext(1000) AS LONG +REDIM SHARED udtxvariable(1000) AS INTEGER 'true if the udt contains variable length elements +'elements +REDIM SHARED udtename(1000) AS STRING * 256 +REDIM SHARED udtecname(1000) AS STRING * 256 +REDIM SHARED udtebytealign(1000) AS INTEGER +REDIM SHARED udtesize(1000) AS LONG +REDIM SHARED udtetype(1000) AS LONG +REDIM SHARED udtetypesize(1000) AS LONG +REDIM SHARED udtearrayelements(1000) AS LONG +REDIM SHARED udtenext(1000) AS LONG definingtype = 0 +definingtypeerror = 0 constlast = -1 'constlastshared = -1 defdatahandle = 18 @@ -1408,7 +1435,6 @@ addmetastatic = 0 addmetadynamic = 0 DynamicMode = 0 optionbase = 0 -optionexplicit = 0: IF optionexplicit_cmd = -1 AND NoIDEMode = 1 THEN optionexplicit = -1 ExeIconSet = 0 VersionInfoSet = 0 viFileVersionNum$ = "": viProductVersionNum$ = "": viCompanyName$ = "" @@ -1417,6 +1443,7 @@ viLegalCopyright$ = "": viLegalTrademarks$ = "": viOriginalFilename$ = "" viProductName$ = "": viProductVersion$ = "": viComments$ = "": viWeb$ = "" DataOffset = 0 statementn = 0 +everycasenewcase = 0 qberrorhappened = 0: qberrorcode = 0: qberrorline = 0 FOR i = 1 TO 27: defineaz(i) = "SINGLE": defineextaz(i) = "!": NEXT controllevel = 0 @@ -1427,20 +1454,33 @@ linefragment$ = "" idn = 0 arrayprocessinghappened = 0 stringprocessinghappened = 0 +inputfunctioncalled = 0 subfuncn = 0 +closedsubfunc = 0 subfunc = "" SelectCaseCounter = 0 ExecCounter = 0 -UserDefineCount = 6 -usedVariableList$ = "" -totalUnusedVariables = 0 +UserDefineCount = 7 +totalVariablesCreated = 0 +typeDefinitions$ = "" +totalMainVariablesCreated = 0 +REDIM SHARED usedVariableList(1000) AS usedVarList totalWarnings = 0 duplicateConstWarning = 0 +emptySCWarning = 0 warningListItems = 0 lastWarningHeader = "" +vWatchUsedLabels = SPACE$(1000) +vWatchUsedSkipLabels = SPACE$(1000) +firstLineNumberLabelvWatch = 0 REDIM SHARED warning$(1000) +REDIM SHARED warningLines(1000) AS LONG +REDIM SHARED warningIncLines(1000) AS LONG +REDIM SHARED warningIncFiles(1000) AS STRING +maxLineNumber = 0 uniquenumbern = 0 + ''create a type for storing memory blocks ''UDT ''names @@ -1464,72 +1504,77 @@ uniquenumbern = 0 'import _MEM type ptrsz = OS_BITS \ 8 -IF Cloud = 0 THEN - lasttype = lasttype + 1: i = lasttype - udtxname(i) = "_MEM" - udtxcname(i) = "_MEM" - udtxsize(i) = ((ptrsz) * 5 + (4) * 1 + (8) * 1) * 8 - udtxbytealign(i) = 1 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "OFFSET" - udtecname(i2) = "OFFSET" - udtebytealign(i2) = 1 - udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 - udtetypesize(i2) = 0 'tsize - udtxnext(i) = i2 - i3 = i2 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "SIZE" - udtecname(i2) = "SIZE" - udtebytealign(i2) = 1 - udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 - udtetypesize(i2) = 0 'tsize - udtenext(i3) = i2 - i3 = i2 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "$_LOCK_ID" - udtecname(i2) = "$_LOCK_ID" - udtebytealign(i2) = 1 - udtetype(i2) = INTEGER64TYPE: udtesize(i2) = 64 - udtetypesize(i2) = 0 'tsize - udtenext(i3) = i2 - i3 = i2 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "$_LOCK_OFFSET" - udtecname(i2) = "$_LOCK_OFFSET" - udtebytealign(i2) = 1 - udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 - udtetypesize(i2) = 0 'tsize - udtenext(i3) = i2 - i3 = i2 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "TYPE" - udtecname(i2) = "TYPE" - udtebytealign(i2) = 1 - udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 - udtetypesize(i2) = 0 'tsize - udtenext(i3) = i2 - i3 = i2 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "ELEMENTSIZE" - udtecname(i2) = "ELEMENTSIZE" - udtebytealign(i2) = 1 - udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 - udtetypesize(i2) = 0 'tsize - udtenext(i3) = i2 - udtenext(i2) = 0 - i3 = i2 - lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement - udtename(i2) = "IMAGE" - udtecname(i2) = "IMAGE" - udtebytealign(i2) = 1 - udtetype(i2) = LONGTYPE: udtesize(i2) = 32 - udtetypesize(i2) = 0 'tsize - udtenext(i3) = i2 - udtenext(i2) = 0 - - -END IF 'cloud = 0 +lasttype = lasttype + 1: i = lasttype +udtxname(i) = "_MEM" +udtxcname(i) = "_MEM" +udtxsize(i) = ((ptrsz) * 5 + (4) * 2 + (8) * 1) * 8 +udtxbytealign(i) = 1 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "OFFSET" +udtecname(i2) = "OFFSET" +udtebytealign(i2) = 1 +udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 +udtetypesize(i2) = 0 'tsize +udtxnext(i) = i2 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "SIZE" +udtecname(i2) = "SIZE" +udtebytealign(i2) = 1 +udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "$_LOCK_ID" +udtecname(i2) = "$_LOCK_ID" +udtebytealign(i2) = 1 +udtetype(i2) = INTEGER64TYPE: udtesize(i2) = 64 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "$_LOCK_OFFSET" +udtecname(i2) = "$_LOCK_OFFSET" +udtebytealign(i2) = 1 +udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "TYPE" +udtecname(i2) = "TYPE" +udtebytealign(i2) = 1 +udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "ELEMENTSIZE" +udtecname(i2) = "ELEMENTSIZE" +udtebytealign(i2) = 1 +udtetype(i2) = OFFSETTYPE: udtesize(i2) = ptrsz * 8 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +udtenext(i2) = 0 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "IMAGE" +udtecname(i2) = "IMAGE" +udtebytealign(i2) = 1 +udtetype(i2) = LONGTYPE: udtesize(i2) = 32 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +udtenext(i2) = 0 +i3 = i2 +lasttypeelement = lasttypeelement + 1: i2 = lasttypeelement +udtename(i2) = "SOUND" +udtecname(i2) = "SOUND" +udtebytealign(i2) = 1 +udtetype(i2) = LONGTYPE: udtesize(i2) = 32 +udtetypesize(i2) = 0 'tsize +udtenext(i3) = i2 +udtenext(i2) = 0 @@ -1554,7 +1599,7 @@ IF idemode = 0 THEN qberrorhappened1: IF qberrorhappened = 1 THEN PRINT - PRINT "CANNOT LOCATE SOURCE FILE:" + sourcefile$ + PRINT "Cannot locate source file: " + sourcefile$ IF ConsoleMode THEN SYSTEM 1 END 1 ELSE @@ -1565,9 +1610,25 @@ END IF reginternal +IF qb64prefix_set THEN + qb64prefix$ = "" + + 're-add internal keywords without the "_" prefix + reginternal + + f = HASHFLAG_TYPE + HASHFLAG_RESERVED + HashAdd "UNSIGNED", f, 0 + HashAdd "BIT", f, 0 + HashAdd "BYTE", f, 0 + HashAdd "INTEGER64", f, 0 + HashAdd "OFFSET", f, 0 + HashAdd "FLOAT", f, 0 + + f = HASHFLAG_RESERVED + HASHFLAG_CUSTOMSYNTAX + HashAdd "EXPLICIT", f, 0 +END IF OPEN tmpdir$ + "global.txt" FOR OUTPUT AS #18 -IF Cloud THEN PRINT #18, "int32 cloud_app=1;" ELSE PRINT #18, "int32 cloud_app=0;" IF iderecompile THEN iderecompile = 0 @@ -1578,11 +1639,16 @@ END IF IF idemode THEN GOTO ideret1 +IF NOT QuietMode THEN + PRINT + PRINT "Beginning C++ output from QB64 code... " +END IF + lineinput3load sourcefile$ DO - stevewashere: '### STEVE EDIT FOR CONST EXPANSION 10/11/2013 + '### STEVE EDIT FOR CONST EXPANSION 10/11/2013 wholeline$ = lineinput3$ IF wholeline$ = CHR$(13) THEN EXIT DO @@ -1592,16 +1658,19 @@ DO IF lastLine <> 0 OR firstLine <> 0 THEN lineBackup$ = wholeline$ 'backup the real line (will be blank when lastline is set) - IF VirtualKeyboardState THEN - IF firstLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\header.bas" - IF lastLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\footer.bas" + forceIncludeFromRoot$ = "" + IF vWatchOn THEN + addingvWatch = 1 + IF firstLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch.bi" + IF lastLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch.bm" ELSE - IF firstLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\header_stub.bas" - IF lastLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\footer_stub.bas" + 'IF firstLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch_stub.bi" + IF lastLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch_stub.bm" END IF firstLine = 0: lastLine = 0 - GOTO forceInclude_prepass + IF LEN(forceIncludeFromRoot$) THEN GOTO forceInclude_prepass forceIncludeCompleted_prepass: + addingvWatch = 0 wholeline$ = lineBackup$ END IF @@ -1612,38 +1681,55 @@ DO layoutok = 0 linenumber = linenumber + 1 + reallinenumber = reallinenumber + 1 DO UNTIL linenumber < UBOUND(InValidLine) 'color information flag for each line - REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT + REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE LOOP InValidLine(linenumber) = 0 IF LEN(wholeline$) THEN - wholeline$ = lineformat(wholeline$) - IF Error_Happened THEN GOTO errmes - - temp$ = LTRIM$(RTRIM$(UCASE$(wholestv$))) - - IF temp$ = "$VIRTUALKEYBOARD:ON" THEN - DesiredVirtualKeyboardState = 1 - IF VirtualKeyboardState = 0 THEN - IF RecompileAttemptsForVirtualKeyboardState = 0 THEN - 'this is the first time a conflict has occurred, so react immediately with a full recompilation using the desired state - RecompileAttemptsForVirtualKeyboardState = RecompileAttemptsForVirtualKeyboardState + 1 + IF UCASE$(_TRIM$(wholeline$)) = "$NOPREFIX" THEN + qb64prefix_set_desiredState = 1 + IF qb64prefix_set = 0 THEN + IF qb64prefix_set_recompileAttempts = 0 THEN + qb64prefix_set_recompileAttempts = qb64prefix_set_recompileAttempts + 1 GOTO do_recompile - ELSE - 'continue compilation to retrieve the final state requested and act on that as required END IF END IF END IF - IF temp$ = "$VIRTUALKEYBOARD:OFF" THEN - DesiredVirtualKeyboardState = 0 - IF VirtualKeyboardState <> 0 THEN - IF RecompileAttemptsForVirtualKeyboardState = 0 THEN + wholeline$ = lineformat(wholeline$) + IF Error_Happened THEN GOTO errmes + + + temp$ = LTRIM$(RTRIM$(UCASE$(wholestv$))) + + IF temp$ = "$COLOR:0" THEN + IF qb64prefix_set THEN + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color0_noprefix.bi" + ELSE + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color0.bi" + END IF + GOTO finishedlinepp + END IF + + IF temp$ = "$COLOR:32" THEN + IF qb64prefix_set THEN + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color32_noprefix.bi" + ELSE + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color32.bi" + END IF + GOTO finishedlinepp + END IF + + IF temp$ = "$DEBUG" THEN + vWatchDesiredState = 1 + IF vWatchOn = 0 THEN + IF vWatchRecompileAttempts = 0 THEN 'this is the first time a conflict has occurred, so react immediately with a full recompilation using the desired state - RecompileAttemptsForVirtualKeyboardState = RecompileAttemptsForVirtualKeyboardState + 1 + vWatchRecompileAttempts = vWatchRecompileAttempts + 1 GOTO do_recompile ELSE 'continue compilation to retrieve the final state requested and act on that as required @@ -1711,13 +1797,19 @@ DO IF ExecLevel(ExecCounter) THEN DO UNTIL linenumber < UBOUND(InValidLine) - REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT + REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE LOOP InValidLine(linenumber) = -1 GOTO finishedlinepp 'we don't check for anything inside lines that we've marked for skipping END IF + IF LEFT$(temp$, 7) = "$ERROR " THEN + temp$ = LTRIM$(MID$(temp$, 7)) + a$ = "Compilation check failed: " + temp$ + GOTO errmes + END IF + IF LEFT$(temp$, 5) = "$LET " THEN temp$ = LTRIM$(MID$(temp$, 5)) 'simply shorten our string to parse 'For starters, let's make certain that we have 3 elements to deal with @@ -1725,17 +1817,7 @@ DO IF temp = 0 THEN a$ = "Invalid Syntax. $LET = ": GOTO errmes l$ = RTRIM$(LEFT$(temp$, temp - 1)): r$ = LTRIM$(MID$(temp$, temp + 1)) 'then validate to make certain the left side looks proper - l1$ = "" - FOR i = 1 TO LEN(l$) - a = ASC(l$, i) - SELECT CASE a - CASE 32 'strip out spaces - CASE 46: l1$ = l1$ + CHR$(a) - CASE IS < 48, IS > 90: a$ = "Invalid symbol left of equal sign (" + CHR$(a) + ")": GOTO errmes - CASE ELSE: l1$ = l1$ + CHR$(a) - END SELECT - NEXT - l$ = l1$ + IF validname(l$) = 0 THEN a$ = "Invalid flag name": GOTO errmes IF LEFT$(r$, 1) = CHR$(34) THEN r$ = LTRIM$(MID$(r$, 2)) IF RIGHT$(r$, 1) = CHR$(34) THEN r$ = RTRIM$(LEFT$(r$, LEN(r$) - 1)) IF LEFT$(r$, 1) = "-" THEN @@ -1752,15 +1834,14 @@ DO CASE 46 'periods are fine. r1$ = r1$ + "." CASE IS < 48, IS > 90 - a$ = "Invalid symbol right of equal sign (" + CHR$(a) + ")": GOTO errmes + a$ = "Invalid value": GOTO errmes CASE ELSE r1$ = r1$ + CHR$(a) END SELECT NEXT r$ = r1$ - layout$ = "$LET " + l$ + " = " + r$ 'First look to see if we have an existing setting like this and if so, update it - FOR i = 7 TO UserDefineCount 'UserDefineCount 1-6 are reserved for automatic OS/BIT detection + FOR i = 8 TO UserDefineCount 'UserDefineCount 1-7 are reserved for automatic OS/BIT detection & version IF UserDefine(0, i) = l$ THEN UserDefine(1, i) = r$: GOTO finishedlinepp NEXT 'Otherwise create a new setting and set the initial value for it @@ -1774,7 +1855,6 @@ DO END IF - cwholeline$ = wholeline$ wholeline$ = eleucase$(wholeline$) '********REMOVE THIS LINE LATER******** @@ -1825,6 +1905,10 @@ DO thirdelement$ = getelement(a$, 3) '======================================== + IF n = 2 AND firstelement$ = "END" AND (secondelement$ = "SUB" OR secondelement$ = "FUNCTION") THEN + closedsubfunc = -1 + END IF + 'declare library IF declaringlibrary THEN @@ -1860,89 +1944,153 @@ DO END IF END IF - lasttypeelement = lasttypeelement + 1 - i2 = lasttypeelement - udtenext(i2) = 0 - - IF n < 3 THEN a$ = "Expected variablename AS type or END TYPE": GOTO errmes + IF n < 3 THEN a$ = "Expected element-name AS type, AS type element-list, or END TYPE": GOTO errmes n$ = firstelement$ - ii = 2 + IF n$ <> "AS" THEN + 'traditional variable-name AS type syntax, single-element + lasttypeelement = lasttypeelement + 1 + i2 = lasttypeelement + WHILE i2 > UBOUND(udtenext): increaseUDTArrays: WEND + udtenext(i2) = 0 - udtearrayelements(i2) = 0 + ii = 2 - IF ii >= n OR getelement$(a$, ii) <> "AS" THEN a$ = "Expected variablename AS type or END TYPE": GOTO errmes - t$ = getelements$(a$, ii + 1, n) + udtearrayelements(i2) = 0 - typ = typname2typ(t$) - IF Error_Happened THEN GOTO errmes - IF typ = 0 THEN a$ = "Undefined type": GOTO errmes - typsize = typname2typsize + IF ii >= n OR getelement$(a$, ii) <> "AS" THEN a$ = "Expected element-name AS type, AS type element-list, or END TYPE": GOTO errmes + t$ = getelements$(a$, ii + 1, n) - IF validname(n$) = 0 THEN a$ = "Invalid name": GOTO errmes - udtename(i2) = n$ + IF t$ = RTRIM$(udtxname(definingtype)) THEN a$ = "Invalid self-reference": GOTO errmes + typ = typname2typ(t$) + IF Error_Happened THEN GOTO errmes + IF typ = 0 THEN a$ = "Undefined type": GOTO errmes + typsize = typname2typsize - udtecname(i2) = getelement$(ca$, 1) - udtetype(i2) = typ - udtetypesize(i2) = typsize + IF validname(n$) = 0 THEN a$ = "Invalid name": GOTO errmes + udtename(i2) = n$ + udtecname(i2) = getelement$(ca$, 1) + NormalTypeBlock: + typeDefinitions$ = typeDefinitions$ + MKL$(i2) + MKL$(LEN(n$)) + n$ + udtetype(i2) = typ + udtetypesize(i2) = typsize - hashname$ = n$ + hashname$ = n$ - 'check for name conflicts (any similar reserved or element from current UDT) - hashchkflags = HASHFLAG_RESERVED + HASHFLAG_UDTELEMENT - hashres = HashFind(hashname$, hashchkflags, hashresflags, hashresref) - DO WHILE hashres - IF hashresflags AND HASHFLAG_UDTELEMENT THEN - IF hashresref = i THEN a$ = "Name already in use": GOTO errmes - END IF - IF hashresflags AND HASHFLAG_RESERVED THEN - IF hashresflags AND (HASHFLAG_TYPE + HASHFLAG_CUSTOMSYNTAX + HASHFLAG_OPERATOR + HASHFLAG_XELEMENTNAME) THEN a$ = "Name already in use": GOTO errmes - END IF - IF hashres <> 1 THEN hashres = HashFindCont(hashresflags, hashresref) ELSE hashres = 0 - LOOP - 'add to hash table - HashAdd hashname$, HASHFLAG_UDTELEMENT, i - - 'Calculate element's size - IF typ AND ISUDT THEN - u = typ AND 511 - udtesize(i2) = udtxsize(u) - IF udtxbytealign(u) THEN udtxbytealign(i) = 1: udtebytealign(i2) = 1 - IF udtxvariable(u) THEN udtxvariable(i) = -1 - ELSE - IF (typ AND ISSTRING) THEN - IF (typ AND ISFIXEDLENGTH) = 0 THEN - udtesize(i2) = OFFSETTYPE AND 511 - udtxvariable(i) = -1 - ELSE - udtesize(i2) = typsize * 8 + 'check for name conflicts (any similar reserved or element from current UDT) + hashchkflags = HASHFLAG_RESERVED + HASHFLAG_UDTELEMENT + hashres = HashFind(hashname$, hashchkflags, hashresflags, hashresref) + DO WHILE hashres + IF hashresflags AND HASHFLAG_UDTELEMENT THEN + IF hashresref = i THEN a$ = "Name already in use (" + hashname$ + ")": GOTO errmes END IF - udtxbytealign(i) = 1: udtebytealign(i2) = 1 + IF hashresflags AND HASHFLAG_RESERVED THEN + IF hashresflags AND (HASHFLAG_TYPE + HASHFLAG_CUSTOMSYNTAX + HASHFLAG_OPERATOR + HASHFLAG_XELEMENTNAME) THEN a$ = "Name already in use (" + hashname$ + ")": GOTO errmes + END IF + IF hashres <> 1 THEN hashres = HashFindCont(hashresflags, hashresref) ELSE hashres = 0 + LOOP + 'add to hash table + HashAdd hashname$, HASHFLAG_UDTELEMENT, i + + 'Calculate element's size + IF typ AND ISUDT THEN + u = typ AND 511 + udtesize(i2) = udtxsize(u) + IF udtxbytealign(u) THEN udtxbytealign(i) = 1: udtebytealign(i2) = 1 + IF udtxvariable(u) THEN udtxvariable(i) = -1 ELSE - udtesize(i2) = typ AND 511 - IF (typ AND ISOFFSETINBITS) = 0 THEN udtxbytealign(i) = 1: udtebytealign(i2) = 1 + IF (typ AND ISSTRING) THEN + IF (typ AND ISFIXEDLENGTH) = 0 THEN + udtesize(i2) = OFFSETTYPE AND 511 + udtxvariable(i) = -1 + ELSE + udtesize(i2) = typsize * 8 + END IF + udtxbytealign(i) = 1: udtebytealign(i2) = 1 + ELSE + udtesize(i2) = typ AND 511 + IF (typ AND ISOFFSETINBITS) = 0 THEN udtxbytealign(i) = 1: udtebytealign(i2) = 1 + END IF END IF - END IF - 'Increase block size - IF udtebytealign(i2) THEN - IF udtxsize(i) MOD 8 THEN - udtxsize(i) = udtxsize(i) + (8 - (udtxsize(i) MOD 8)) + 'Increase block size + IF udtebytealign(i2) THEN + IF udtxsize(i) MOD 8 THEN + udtxsize(i) = udtxsize(i) + (8 - (udtxsize(i) MOD 8)) + END IF END IF - END IF - udtxsize(i) = udtxsize(i) + udtesize(i2) + udtxsize(i) = udtxsize(i) + udtesize(i2) - 'Link element to previous element - IF udtxnext(i) = 0 THEN - udtxnext(i) = i2 + 'Link element to previous element + IF udtxnext(i) = 0 THEN + udtxnext(i) = i2 + ELSE + udtenext(i2 - 1) = i2 + END IF + + 'print "+"+rtrim$(udtename(i2));udtetype(i2);udtesize(i2);udtebytealign(i2);udtxsize(i) + IF newAsTypeBlockSyntax THEN RETURN + GOTO finishedlinepp ELSE - udtenext(i2 - 1) = i2 + 'new AS type variable-list syntax, multiple elements + ii = 2 + + IF ii >= n THEN a$ = "Expected element-name AS type, AS type element-list, or END TYPE": GOTO errmes + previousElement$ = "" + t$ = "" + lastElement$ = "" + buildTypeName: + lastElement$ = getelement$(a$, ii) + IF lastElement$ <> "," AND lastElement$ <> "" THEN + n$ = lastElement$ + cn$ = getelement$(ca$, ii) + IF LEN(previousElement$) THEN t$ = t$ + previousElement$ + " " + previousElement$ = n$ + lastElement$ = "" + ii = ii + 1 + GOTO buildTypeName + END IF + + t$ = RTRIM$(t$) + IF t$ = RTRIM$(udtxname(definingtype)) THEN a$ = "Invalid self-reference": GOTO errmes + typ = typname2typ(t$) + IF Error_Happened THEN GOTO errmes + IF typ = 0 THEN a$ = "Undefined type": GOTO errmes + typsize = typname2typsize + + previousElement$ = lastElement$ + nexttypeelement: + lasttypeelement = lasttypeelement + 1 + i2 = lasttypeelement + WHILE i2 > UBOUND(udtenext): increaseUDTArrays: WEND + udtenext(i2) = 0 + udtearrayelements(i2) = 0 + + udtename(i2) = n$ + udtecname(i2) = cn$ + + IF validname(n$) = 0 THEN a$ = "Invalid name": GOTO errmes + + newAsTypeBlockSyntax = -1 + GOSUB NormalTypeBlock + newAsTypeBlockSyntax = 0 + + getNextElement: + ii = ii + 1 + lastElement$ = getelement$(a$, ii) + IF lastElement$ = "" THEN GOTO finishedlinepp + IF ii = n AND lastElement$ = "," THEN a$ = "Expected element-name": GOTO errmes + IF lastElement$ = "," THEN + IF previousElement$ = "," THEN a$ = "Expected element-name": GOTO errmes + previousElement$ = lastElement$ + GOTO getNextElement + END IF + n$ = lastElement$ + IF previousElement$ <> "," THEN a$ = "Expected ,": GOTO errmes + previousElement$ = lastElement$ + cn$ = getelement$(ca$, ii) + GOTO nexttypeelement END IF - - 'print "+"+rtrim$(udtename(i2));udtetype(i2);udtesize(i2);udtebytealign(i2);udtxsize(i) - - GOTO finishedlinepp - END IF 'definingtype IF definingtype AND n >= 1 THEN a$ = "Expected END TYPE": GOTO errmes @@ -1951,9 +2099,12 @@ DO IF firstelement$ = "TYPE" THEN IF n <> 2 THEN a$ = "Expected TYPE typename": GOTO errmes lasttype = lasttype + 1 + typeDefinitions$ = typeDefinitions$ + MKL$(-1) + MKL$(lasttype) definingtype = lasttype i = definingtype + WHILE i > UBOUND(udtenext): increaseUDTArrays: WEND IF validname(secondelement$) = 0 THEN a$ = "Invalid name": GOTO errmes + typeDefinitions$ = typeDefinitions$ + MKL$(LEN(secondelement$)) + secondelement$ udtxname(i) = secondelement$ udtxcname(i) = getelement(ca$, 2) udtxnext(i) = 0 @@ -1973,7 +2124,7 @@ DO IF hashresflags AND HASHFLAG_RESERVED THEN IF (hashresflags AND (HASHFLAG_TYPE + HASHFLAG_OPERATOR + HASHFLAG_CUSTOMSYNTAX + HASHFLAG_XTYPENAME)) = 0 THEN allow = 1 END IF - IF allow = 0 THEN a$ = "Name already in use": GOTO errmes + IF allow = 0 THEN a$ = "Name already in use (" + hashname$ + ")": GOTO errmes IF hashres <> 1 THEN hashres = HashFindCont(hashresflags, hashresref) ELSE hashres = 0 LOOP @@ -1988,14 +2139,13 @@ DO - stevewashere2: ' ### STEVE EDIT ON 10/11/2013 (Const Expansion) - - IF n >= 1 AND firstelement$ = "CONST" THEN 'l$ = "CONST" 'DEF... do not change type, the expression is stored in a suitable type 'based on its value if type isn't forced/specified + IF subfuncn > 0 AND closedsubfunc <> 0 THEN a$ = "Statement cannot be placed between SUB/FUNCTIONs": GOTO errmes + 'convert periods to _046_ i2 = INSTR(a$, sp + "." + sp) IF i2 THEN @@ -2008,251 +2158,12 @@ DO firstelement$ = getelement(a$, 1): secondelement$ = getelement(a$, 2): thirdelement$ = getelement(a$, 3) END IF - - 'Steve Tweak to add _RGB32 and _MATH support to CONST - 'Our alteration to allow for multiple uses of RGB and RGBA inside a CONST //SMcNeill - altered = 0 - - 'Edit 02/23/2014 to add space between = and _ for statements like CONST x=_RGB(123,0,0) and stop us from gettting an error. - DO - L = INSTR(wholestv$, "=_") - IF L THEN - wholestv$ = LEFT$(wholestv$, L) + " " + MID$(wholestv$, L + 1) - END IF - LOOP UNTIL L = 0 - 'End of Edit on 02/23/2014 - - DO - finished = -1 - L = INSTR(L + 1, UCASE$(wholestv$), " _RGBA") - IF L > 0 THEN - altered = -1 - l$ = LEFT$(wholestv$, L - 1) - vp = INSTR(L, wholestv$, "(") - IF vp > 0 THEN - E = INSTR(vp + 1, wholestv$, ")") - IF E > 0 THEN - 'get our 3 colors or 4 if we need RGBA values - first = INSTR(vp, wholestv$, ",") - second = INSTR(first + 1, wholestv$, ",") - third = INSTR(second + 1, wholestv$, ",") - fourth = INSTR(third + 1, wholestv$, ",") 'If we need RGBA we need this one as well - red$ = MID$(wholestv$, vp + 1, first - vp - 1) - green$ = MID$(wholestv$, first + 1, second - first - 1) - blue$ = MID$(wholestv$, second + 1, third - second - 1) - alpha$ = MID$(wholestv$, third + 1) - IF MID$(wholestv$, L + 6, 2) = "32" THEN - val$ = "32" - ELSE - val$ = MID$(wholestv$, fourth + 1) - END IF - SELECT CASE VAL(val$) - CASE 0, 1, 2, 7, 8, 9, 10, 11, 12, 13, 256 - wi& = _NEWIMAGE(240, 120, VAL(val$)) - clr~& = _RGBA(VAL(red$), VAL(green$), VAL(blue$), VAL(alpha$), wi&) - _FREEIMAGE wi& - CASE 32 - clr~& = _RGBA32(VAL(red$), VAL(green$), VAL(blue$), VAL(alpha$)) - CASE ELSE - a$ = "Invalid Screen Mode.": GOTO errmes - END SELECT - - wholestv$ = l$ + STR$(clr~&) + RIGHT$(wholestv$, LEN(wholestv$) - E) - finished = 0 - ELSE - 'no finishing bracket - a$ = ") Expected": GOTO errmes - END IF - ELSE - 'no starting bracket - a$ = "( Expected": GOTO errmes - END IF - END IF - LOOP UNTIL finished - - DO - finished = -1 - L = INSTR(L + 1, UCASE$(wholestv$), " _RGB32") - IF L = 0 THEN L = INSTR(L + 1, UCASE$(wholestv$), " _RGB") - IF L > 0 THEN - altered = -1 - l$ = LEFT$(wholestv$, L - 1) - vp = INSTR(L, wholestv$, "(") - IF vp > 0 THEN - E = INSTR(vp + 1, wholestv$, ")") - IF E > 0 THEN - IF E = vp + 1 THEN a$ = "Syntax error": GOTO errmes - red$ = "" - green$ = "" - blue$ = "" - alpha$ = "" - first = 0: second = 0: third = 0 - first = INSTR(vp, wholestv$, ",") - IF first THEN second = INSTR(first + 1, wholestv$, ",") - IF second THEN third = INSTR(second + 1, wholestv$, ",") - IF first > 0 AND second > 0 AND third > 0 THEN - 'rgb + alpha (or _RGB with screen mode) - red$ = MID$(wholestv$, vp + 1, first - vp - 1) - green$ = MID$(wholestv$, first + 1, second - first - 1) - blue$ = MID$(wholestv$, second + 1) - alpha$ = MID$(wholestv$, third + 1) - ELSEIF first > 0 AND second > 0 THEN - 'regular rgb - red$ = MID$(wholestv$, vp + 1, first - vp - 1) - green$ = MID$(wholestv$, first + 1, second - first - 1) - blue$ = MID$(wholestv$, second + 1) - ELSEIF first > 0 THEN - 'grayscale + alpha - red$ = MID$(wholestv$, vp + 1, first - vp - 1) - alpha$ = MID$(wholestv$, first + 1) - ELSE - 'grayscale - red$ = MID$(wholestv$, vp + 1) - END IF - - IF MID$(wholestv$, L + 5, 2) = "32" THEN - val$ = "32" - ELSE - val$ = MID$(wholestv$, third + 1) - IF VAL(val$) = 32 THEN val$ = "33" - END IF - - SELECT CASE VAL(val$) - CASE 0, 1, 2, 7, 8, 9, 10, 11, 12, 13, 33, 256 - IF val$ = "33" THEN val$ = "32" - wi& = _NEWIMAGE(240, 120, VAL(val$)) - clr~& = _RGB(VAL(red$), VAL(green$), VAL(blue$), wi&) - _FREEIMAGE wi& - CASE 32 - IF first > 0 AND second > 0 AND third > 0 THEN - 'rgb + alpha - clr~& = _RGB32(VAL(red$), VAL(green$), VAL(blue$), VAL(alpha$)) - ELSEIF first > 0 AND second > 0 THEN - 'regular rgb - clr~& = _RGB32(VAL(red$), VAL(green$), VAL(blue$)) - ELSEIF first > 0 THEN - 'grayscale + alpha - clr~& = _RGB32(VAL(red$), VAL(alpha$)) - ELSE - clr~& = _RGB32(VAL(red$)) - END IF - CASE ELSE - a$ = "Invalid screen mode": GOTO errmes - END SELECT - - wholestv$ = l$ + STR$(clr~&) + RIGHT$(wholestv$, LEN(wholestv$) - E) - finished = 0 - ELSE - a$ = ") Expected": GOTO errmes - END IF - ELSE - a$ = "( Expected": GOTO errmes - END IF - END IF - LOOP UNTIL finished - - ' ### END OF STEVE EDIT FOR EXPANDED CONST SUPPORT ### - - 'New Edit by Steve on 02/23/2014 to add support for the new Math functions - - - L = 0: Emergency_Exit = 0 'A counter where if we're inside the same DO-Loop for more than 10,000 times, we assume it's an endless loop that didn't process properly and toss out an error message instead of locking up the program. - DO - L = INSTR(L + 1, wholestv$, "=") - IF L THEN - l2 = INSTR(L + 1, wholestv$, ",") 'Look for a comma after that - IF l2 = 0 THEN 'If there's no comma, then we're working to the end of the line - l2 = LEN(wholestv$) - ELSE - l2 = l2 - 1 'else we only want to take what's before that comma and see if we can use it - END IF - temp$ = " " + MID$(wholestv$, L + 1, l2 - L) + " " - - FOR i2 = 0 TO constlast - cname(1) = " " + constname(i2) + " " - cname(2) = "(" + constname(i2) + " " - cname(3) = " " + constname(i2) + ")" - cname(4) = "(" + constname(i2) + ")" - DO - found = 0 - FOR i3 = 1 TO 4 - found = INSTR(UCASE$(temp$), cname(i3)) - IF found THEN EXIT FOR - NEXT - IF found THEN - t = consttype(i2) - IF t AND ISSTRING THEN - r$ = conststring(i2) - i4 = _INSTRREV(r$, ",") - r$ = LEFT$(r$, i4 - 1) - ELSE - IF t AND ISFLOAT THEN - r$ = STR$(constfloat(i2)) - ELSE - IF t AND ISUNSIGNED THEN r$ = STR$(constuinteger(i2)) ELSE r$ = STR$(constinteger(i2)) - END IF - END IF - temp$ = LEFT$(temp$, found) + r$ + MID$(temp$, found + LEN(constname(i2)) + 1) - - altered = -1 - END IF - LOOP UNTIL found = 0 - NEXT - wholestv$ = LEFT$(wholestv$, L) + _TRIM$(temp$) + MID$(wholestv$, l2 + 1) - L = L + 1 - END IF - Emergency_Exit = Emergency_Exit + 1 - IF Emergency_Exit > 10000 THEN a$ = "CONST ERROR: Endless Loop trying to substitute values.": GOTO errmes - LOOP UNTIL L = 0 - - L = 0: Emergency_Exit = 0 'A counter where if we're inside the same DO-Loop for more than 10,000 times, we assume it's an endless loop that didn't process properly and toss out an error message instead of locking up the program. - DO - L = INSTR(L + 1, wholestv$, "=") - IF L THEN - l2 = INSTR(L + 1, wholestv$, ",") 'Look for a comma after that - IF l2 = 0 THEN 'If there's no comma, then we're working to the end of the line - l2 = LEN(wholestv$) - ELSE - l2 = l2 - 1 'else we only want to take what's before that comma and see if we can use it - END IF - temp$ = MID$(wholestv$, L + 1, l2 - L) - temp$ = _TRIM$(temp$) - temp1$ = Evaluate_Expression$(temp$) - IF LEFT$(temp1$, 5) <> "ERROR" AND temp$ <> temp1$ THEN - 'The math routine should have did its replacement for us. - altered = -1 - wholestv$ = LEFT$(wholestv$, L) + temp1$ + MID$(wholestv$, l2 + 1) - ELSE - 'We should leave it as it is and let the normal CONST routine handle things from here on out and see if it passes the rest of the error checks. - END IF - L = L + 1 - END IF - Emergency_Exit = Emergency_Exit + 1 - IF Emergency_Exit > 10000 THEN a$ = "CONST ERROR: Attempting to process MATH Function caused Endless Loop. Please recheck your math formula.": GOTO errmes - LOOP UNTIL L = 0 - - - 'End of Math Support Edit - - 'Steve edit to update the CONST with the Math and _RGB functions - IF altered THEN - altered = 0 - wholeline$ = wholestv$ - linenumber = linenumber - 1 - GOTO ideprepass - END IF - 'End of Final Edits to CONST - - - - IF n < 3 THEN a$ = "Expected CONST name = value/expression": GOTO errmes i = 2 constdefpendingpp: pending = 0 n$ = getelement$(ca$, i): i = i + 1 - 'l$ = l$ + sp + n$ + sp + "=" typeoverride = 0 s$ = removesymbol$(n$) IF Error_Happened THEN GOTO errmes @@ -2268,6 +2179,7 @@ DO 'get expression e$ = "" + readable_e$ = "" B = 0 FOR i2 = i TO n e2$ = getelement$(ca$, i2) @@ -2280,11 +2192,43 @@ DO EXIT FOR END IF IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$ + + e3$ = e2$ + IF LEN(e2$) > 1 THEN + IF ASC(e2$, 1) = 34 THEN + removeComma = _INSTRREV(e2$, ",") + e3$ = LEFT$(e2$, removeComma - 1) + ELSE + removeComma = INSTR(e2$, ",") + e3$ = MID$(e2$, removeComma + 1) + END IF + END IF + + IF LEN(readable_e$) = 0 THEN + readable_e$ = e3$ + ELSE + readable_e$ = readable_e$ + " " + e3$ + END IF NEXT + 'intercept current expression and pass it through Evaluate_Expression$ + '(unless it is a literal string) + IF LEFT$(readable_e$, 1) <> CHR$(34) THEN + temp1$ = _TRIM$(Evaluate_Expression$(readable_e$)) + IF LEFT$(temp1$, 5) <> "ERROR" AND e$ <> temp1$ THEN + e$ = lineformat(temp1$) 'retrieve parseable format + ELSE + IF temp1$ = "ERROR - Division By Zero" THEN a$ = temp1$: GOTO errmes + IF INSTR(temp1$, "Improper operations") THEN + a$ = "Invalid CONST expression.14": GOTO errmes + END IF + END IF + END IF + + 'Proceed as usual e$ = fixoperationorder(e$) IF Error_Happened THEN GOTO errmes - 'l$ = l$ + sp + tlayout$ + e$ = evaluateconst(e$, t) IF Error_Happened THEN GOTO errmes @@ -2361,44 +2305,34 @@ DO 'just issue a warning instead of an error issueWarning = 0 IF t AND ISSTRING THEN - IF conststring(hashresref) = e$ THEN issueWarning = -1 + IF conststring(hashresref) = e$ THEN issueWarning = -1: thisconstval$ = e$ ELSE IF t AND ISFLOAT THEN - IF constfloat(hashresref) = constval## THEN issueWarning = -1 + IF constfloat(hashresref) = constval## THEN issueWarning = -1: thisconstval$ = STR$(constval##) ELSE IF t AND ISUNSIGNED THEN - IF constuinteger(hashresref) = constval~&& THEN issueWarning = -1 + IF constuinteger(hashresref) = constval~&& THEN issueWarning = -1: thisconstval$ = STR$(constval~&&) ELSE - IF constinteger(hashresref) = constval&& THEN issueWarning = -1 + IF constinteger(hashresref) = constval&& THEN issueWarning = -1: thisconstval$ = STR$(constval&&) END IF END IF END IF IF issueWarning THEN - addWarning 0, "Constant already defined (same value):" - addWarning linenumber, n$ - IF idemode = 0 THEN - IF duplicateConstWarning = 0 THEN PRINT "WARNING: duplicate constant definition"; - IF VerboseMode THEN - PRINT ": '"; n$; "' (line"; STR$(linenumber); ")" - ELSE - IF duplicateConstWarning = 0 THEN - duplicateConstWarning = -1 - PRINT - END IF - END IF + IF NOT IgnoreWarnings THEN + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "duplicate constant definition", n$ + " =" + thisconstval$ END IF GOTO constAddDone ELSE - a$ = "Name already in use": GOTO errmes + a$ = "Name already in use (" + hashname$ + ")": GOTO errmes END IF END IF END IF IF hashresflags AND HASHFLAG_RESERVED THEN - a$ = "Name already in use": GOTO errmes + a$ = "Name already in use (" + hashname$ + ")": GOTO errmes END IF IF hashresflags AND (HASHFLAG_SUB + HASHFLAG_FUNCTION) THEN - IF ids(hashresref).internal_subfunc = 0 OR RTRIM$(ids(hashresref).musthave) <> "$" THEN a$ = "Name already in use": GOTO errmes - IF t AND ISSTRING THEN a$ = "Name already in use": GOTO errmes + IF ids(hashresref).internal_subfunc = 0 OR RTRIM$(ids(hashresref).musthave) <> "$" THEN a$ = "Name already in use (" + hashname$ + ")": GOTO errmes + IF t AND ISSTRING THEN a$ = "Name already in use (" + hashname$ + ")": GOTO errmes END IF IF hashres <> 1 THEN hashres = HashFindCont(hashresflags, hashresref) ELSE hashres = 0 LOOP @@ -2437,7 +2371,6 @@ DO END IF 'layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ - GOTO finishedlinepp END IF @@ -2450,7 +2383,7 @@ DO IF firstelement$ = "DEFSNG" THEN d = 1 IF firstelement$ = "DEFDBL" THEN d = 1 IF firstelement$ = "DEFSTR" THEN d = 1 - IF firstelement$ = "_DEFINE" THEN d = 1 + IF firstelement$ = "_DEFINE" OR (firstelement$ = "DEFINE" AND qb64prefix_set = 1) THEN d = 1 IF d THEN predefining = 1: GOTO predefine predefined: predefining = 0 @@ -2460,7 +2393,6 @@ DO 'declare library IF firstelement$ = "DECLARE" THEN IF secondelement$ = "LIBRARY" OR secondelement$ = "DYNAMIC" OR secondelement$ = "CUSTOMTYPE" OR secondelement$ = "STATIC" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** declaringlibrary = 1 indirectlibrary = 0 IF secondelement$ = "CUSTOMTYPE" OR secondelement$ = "DYNAMIC" THEN indirectlibrary = 1 @@ -2478,6 +2410,7 @@ DO IF sf THEN subfuncn = subfuncn + 1 + closedsubfunc = 0 IF n = 1 THEN a$ = "Expected name after SUB/FUNCTION": GOTO errmes @@ -2587,23 +2520,23 @@ DO FOR i2 = i2 TO n2 e$ = getelement$(a2$, i2) IF e$ = "(" THEN - IF m <> 0 THEN a$ = "Syntax error": GOTO errmes + IF m <> 0 THEN a$ = "Syntax error - too many opening brackets": GOTO errmes m = 1 array = 1 GOTO gotaa END IF IF e$ = ")" THEN - IF m <> 1 THEN a$ = "Syntax error": GOTO errmes + IF m <> 1 THEN a$ = "Syntax error - closing bracket without opening bracket": GOTO errmes m = 2 GOTO gotaa END IF IF e$ = "AS" THEN - IF m <> 0 AND m <> 2 THEN a$ = "Syntax error": GOTO errmes + IF m <> 0 AND m <> 2 THEN a$ = "Syntax error - check your brackets": GOTO errmes m = 3 GOTO gotaa END IF IF m = 1 THEN GOTO gotaa 'ignore contents of bracket - IF m <> 3 THEN a$ = "Syntax error": GOTO errmes + IF m <> 3 THEN a$ = "Syntax error - check your brackets": GOTO errmes IF t2$ = "" THEN t2$ = e$ ELSE t2$ = t2$ + " " + e$ gotaa: NEXT i2 @@ -2612,7 +2545,8 @@ DO argnelereq = 0 - IF symbol2$ <> "" AND t2$ <> "" THEN a$ = "Syntax error": GOTO errmes + IF symbol2$ <> "" AND t2$ <> "" THEN a$ = "Syntax error - check parameter types": GOTO errmes + IF t2$ = "" AND e$ = "AS" THEN a$ = "Expected AS type": GOTO errmes IF t2$ = "" THEN t2$ = symbol2$ IF t2$ = "" THEN IF LEFT$(n2$, 1) = "_" THEN v = 27 ELSE v = ASC(UCASE$(n2$)) - 64 @@ -2736,6 +2670,7 @@ DO '======================================== finishedlinepp: + firstLine = 0 END IF a$ = "" ca$ = "" @@ -2856,6 +2791,10 @@ END IF IF definingtype THEN definingtype = 0 'ignore this error so that auto-formatting can be performed and catch it again later IF declaringlibrary THEN declaringlibrary = 0 'ignore this error so that auto-formatting can be performed and catch it again later +totallinenumber = reallinenumber + +'IF idemode = 0 AND NOT QuietMode THEN PRINT "first pass finished.": PRINT "Translating code... " + 'prepass finished lineinput3index = 1 'reset input line @@ -2872,6 +2811,7 @@ subfuncn = 0 lastLineReturn = 0 lastLine = 0 firstLine = 1 +UserDefineCount = 7 FOR i = 0 TO constlast: constdefined(i) = 0: NEXT 'undefine constants @@ -2933,6 +2873,7 @@ endifs = 0 lineelseused = 0 continuelinefrom = 0 linenumber = 0 +reallinenumber = 0 declaringlibrary = 0 PRINT #12, "S_0:;" 'note: REQUIRED by run statement @@ -2950,16 +2891,19 @@ DO IF lastLine <> 0 OR firstLine <> 0 THEN lineBackup$ = a3$ 'backup the real first line (will be blank when lastline is set) - IF VirtualKeyboardState THEN - IF firstLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\header.bas" - IF lastLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\footer.bas" + forceIncludeFromRoot$ = "" + IF vWatchOn THEN + addingvWatch = 1 + IF firstLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch.bi" + IF lastLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch.bm" ELSE - IF firstLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\header_stub.bas" - IF lastLine <> 0 THEN forceIncludeFromRoot$ = "source\virtual_keyboard\embed\footer_stub.bas" + 'IF firstLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch_stub.bi" + IF lastLine <> 0 THEN forceIncludeFromRoot$ = "internal\support\vwatch\vwatch_stub.bm" END IF firstLine = 0: lastLine = 0 - GOTO forceInclude + IF LEN(forceIncludeFromRoot$) THEN GOTO forceInclude forceIncludeCompleted: + addingvWatch = 0 a3$ = lineBackup$ END IF @@ -2990,20 +2934,38 @@ DO IF idemode = 0 AND inclevel = 0 THEN a3$ = lineinput3$ IF a3$ = CHR$(13) THEN EXIT DO linenumber = linenumber + 1 - IF linenumber = 1 THEN opex_comments = -1 + reallinenumber = reallinenumber + 1 IF InValidLine(linenumber) THEN layoutok = 1 - layout$ = SPACE$(controllevel) + LTRIM$(RTRIM$(a3$)) + layout$ = SPACE$(controllevel + 1) + LTRIM$(RTRIM$(a3$)) IF idemode GOTO ideret4 ELSE GOTO skipide4 END IF layout = "" layoutok = 1 - IF idemode = 0 THEN - IF LEN(a3$) THEN - dotlinecount = dotlinecount + 1: IF dotlinecount >= 100 THEN dotlinecount = 0: PRINT "."; + IF idemode = 0 AND NOT QuietMode THEN + 'IF LEN(a3$) THEN + ' dotlinecount = dotlinecount + 1: IF dotlinecount >= 100 THEN dotlinecount = 0: PRINT "."; + 'END IF + maxprogresswidth = 50 'arbitrary + percentage = INT(reallinenumber / totallinenumber * 100) + percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber) + IF percentage <> prevpercentage AND percentagechars <> prevpercentagechars THEN + prevpercentage = percentage + prevpercentagechars = percentagechars + IF ConsoleMode THEN + PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%"; + IF os$ = "LNX" THEN + PRINT CHR$(27) + "[A" + ELSE + PRINT CHR$(13); + END IF + ELSE + LOCATE , 1 + PRINT STRING$(percentagechars, 219) + STRING$(maxprogresswidth - percentagechars, 176) + STR$(percentage) + "%"; + END IF END IF END IF @@ -3026,38 +2988,38 @@ DO a3u$ = UCASE$(a3$) - IF LEFT$(a3u$, 4) = "REM " OR _ - (LEFT$(a3u$, 3) = "REM" AND LEN(a3u$) = 3) OR _ - LEFT$(a3u$, 1) = "'" OR _ - (LEFT$(a3u$, 7) = "OPTION " AND LEFT$(LTRIM$(MID$(a3u$, 8)), 9) = "_EXPLICIT") THEN - 'It's a comment or OPTION _EXPLICIT itself, alright. - 'But even being a comment, there could be an $INCLUDE in there, let's check: - IF LEFT$(a3u$, 4) = "REM " THEN i = 5 ELSE i = 2 - IF LEFT$(LTRIM$(MID$(a3u$, i)), 8) = "$INCLUDE" THEN opex_comments = 0 - ELSE - 'As soon as a line isn't a comment anymore, it can't come before OPTION _EXPLICIT - opex_comments = 0 - END IF - 'QB64 Metacommands IF ASC(a3$) = 36 THEN '$ 'precompiler commands should always be executed FIRST. - IF a3u$ = "$END IF" OR a3u$ = "$ENDIF" THEN IF DefineElse(ExecCounter) = 0 THEN a$ = "$END IF without $IF": GOTO errmes DefineElse(ExecCounter) = 0 'We no longer have an $IF block at this level ExecCounter = ExecCounter - 1 - layout$ = "$END IF" + layout$ = SCase$("$End If") controltype(controllevel) = 0 controllevel = controllevel - 1 GOTO finishednonexec END IF IF LEFT$(a3u$, 4) = "$IF " THEN + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF + temp$ = LTRIM$(MID$(a3u$, 4)) 'strip off the $IF and extra spaces temp$ = RTRIM$(LEFT$(temp$, LEN(temp$) - 4)) 'and strip off the THEN and extra spaces - temp = INSTR(temp$, "=") + temp = 0 + IF temp = 0 THEN tempOp$ = "<=": temp = INSTR(temp$, tempOp$) + IF temp = 0 THEN tempOp$ = "=<": temp = INSTR(temp$, tempOp$): tempOp$ = "<=" + IF temp = 0 THEN tempOp$ = ">=": temp = INSTR(temp$, tempOp$) + IF temp = 0 THEN tempOp$ = "=>": temp = INSTR(temp$, tempOp$): tempOp$ = ">=" + IF temp = 0 THEN tempOp$ = "<>": temp = INSTR(temp$, tempOp$) + IF temp = 0 THEN tempOp$ = "><": temp = INSTR(temp$, tempOp$): tempOp$ = "<>" + IF temp = 0 THEN tempOp$ = "=": temp = INSTR(temp$, tempOp$) + IF temp = 0 THEN tempOp$ = ">": temp = INSTR(temp$, tempOp$) + IF temp = 0 THEN tempOp$ = "<": temp = INSTR(temp$, tempOp$) ExecCounter = ExecCounter + 1 ExecLevel(ExecCounter) = -1 'default to a skip value @@ -3071,9 +3033,9 @@ DO controllevel = controllevel + 1 controltype(controllevel) = 6 - IF temp = 0 THEN layout$ = "$IF " + temp$ + " THEN": GOTO finishednonexec 'no = sign in the $IF statement, so we're going to assume the user is doing something like $IF flag - l$ = RTRIM$(LEFT$(temp$, temp - 1)): r$ = LTRIM$(MID$(temp$, temp + 1)) - layout$ = "$IF " + l$ + " = " + r$ + " THEN" + IF temp = 0 THEN layout$ = SCase$("$If ") + temp$ + SCase$(" Then"): GOTO finishednonexec 'no = sign in the $IF statement, so we're going to assume the user is doing something like $IF flag + l$ = RTRIM$(LEFT$(temp$, temp - 1)): r$ = LTRIM$(MID$(temp$, temp + LEN(tempOp$))) + layout$ = SCase$("$If ") + l$ + " " + tempOp$ + " " + r$ + SCase$(" Then") GOTO finishednonexec END IF @@ -3086,7 +3048,7 @@ DO ELSE ExecLevel(ExecCounter) = ExecLevel(ExecCounter - 1) 'If we were processing code before, code after this segment is going to be SKIPPED END IF - layout$ = "$ELSE" + layout$ = SCase$("$Else") lhscontrollevel = lhscontrollevel - 1 GOTO finishednonexec END IF @@ -3113,9 +3075,9 @@ DO lhscontrollevel = lhscontrollevel - 1 temp = INSTR(temp$, "=") - IF temp = 0 THEN layout$ = "$ELSEIF " + temp$ + " THEN": GOTO finishednonexec 'no = sign in the $IF statement, so we're going to assume the user is doing something like $IF flag + IF temp = 0 THEN layout$ = SCase$("$ElseIf ") + temp$ + SCase$(" Then"): GOTO finishednonexec 'no = sign in the $IF statement, so we're going to assume the user is doing something like $IF flag l$ = RTRIM$(LEFT$(temp$, temp - 1)): r$ = LTRIM$(MID$(temp$, temp + 1)) - layout$ = "$ELSEIF " + l$ + " = " + r$ + " THEN" + layout$ = SCase$("$ElseIf ") + l$ + " = " + r$ + SCase$(" Then") GOTO finishednonexec END IF END IF @@ -3131,9 +3093,9 @@ DO 'For starters, let's make certain that we have 3 elements to deal with temp = INSTR(temp$, "=") 'without an = in there, we can't get a value from the left and right side l$ = RTRIM$(LEFT$(temp$, temp - 1)): r$ = LTRIM$(MID$(temp$, temp + 1)) - layout$ = "$LET " + l$ + " = " + r$ + layout$ = SCase$("$Let ") + l$ + " = " + r$ 'First look to see if we have an existing setting like this and if so, update it - FOR i = 7 TO UserDefineCount 'UserDefineCount 1-6 are reserved for automatic OS/BIT detection + FOR i = 7 TO UserDefineCount 'UserDefineCount 1-7 are reserved for automatic OS/BIT detection & version IF UserDefine(0, i) = l$ THEN UserDefine(1, i) = r$: GOTO finishednonexec NEXT 'Otherwise create a new setting and set the initial value for it @@ -3146,164 +3108,133 @@ DO GOTO finishednonexec END IF - - - '$INSTALLFILES [src_relative_to_bas_path_like_include] [IN dst_relative_to_application_root] - '$INSTALLFOLDER [src_relative_to_bas_path_like_include] [IN dst_relative_to_application_root] - metacommand$ = "" - IF INSTR(a3u$, "$INSTALLFILES ") = 1 THEN metacommand$ = "$INSTALLFILES" - IF INSTR(a3u$, "$INSTALLFOLDER ") = 1 THEN metacommand$ = "$INSTALLFOLDER" - metacommandHint$ = "Expected " + CHR$(34) + "source-location" + CHR$(34) + " [IN " + CHR$(34) + "dest-location" + CHR$(34) + "]" - IF metacommand$ <> "" THEN - sourceContent$ = "" - destLocation$ = "" - i3step = 0 - i3start = 0 - a4$ = a3$ + " '" 'finish with whitespace and comment - a3string$ = "" - l$ = metacommand$ - FOR i3 = LEN(metacommand$) + 2 TO LEN(a4$) - c3 = ASC(a4$, i3) - whitespace = 0 - IF i3start = 0 AND c3 = 39 THEN - IF i3 <> LEN(metacommand$) + 2 THEN l$ = l$ + sp + MID$(a3$, i3) 'trailing comment - EXIT FOR - END IF - IF c3 = 32 OR c3 = 9 THEN whitespace = 1 - IF c3 = 34 OR i3start <> 0 THEN - IF c3 = 34 THEN - IF i3start = 0 THEN - i3start = i3 - ELSE - a3quotedString$ = MID$(a3$, i3start + 1, i3 - i3start - 1) - l$ = l$ + sp + CHR$(34) + a3quotedString$ + CHR$(34) - IF i3step <> 0 AND i3step <> 2 THEN a$ = metacommandHint$: GOTO errmes - IF i3step = 0 THEN sourceContent$ = a3quotedString$: i3step = 1 - IF i3step = 2 THEN destLocation$ = a3quotedString$: i3step = 3 - i3start = 0 - END IF - END IF - ELSE - IF whitespace = 0 THEN - a3string$ = a3string$ + CHR$(c3) - ELSE - IF a3string$ <> "" THEN - IF UCASE$(a3string$) <> "IN" THEN a$ = metacommandHint$: GOTO errmes - IF i3step <> 1 THEN a$ = metacommandHint$: GOTO errmes - l$ = l$ + sp + "IN" - i3step = 2 - a3string$ = "" - END IF - END IF - END IF - NEXT - IF LEN(a3string$) THEN a$ = metacommandHint$: GOTO errmes - IF i3start <> 0 THEN a$ = metacommandHint$: GOTO errmes - IF i3step = 0 OR i3step = 2 THEN a$ = metacommandHint$: GOTO errmes - 'PRINT sourceContent$ - 'PRINT destLocation$ - - sourceLocation$ = "" - IF inclevel = 0 THEN - IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$) + IF a3u$ = "$COLOR:0" THEN + layout$ = SCase$("$Color:0") + IF qb64prefix_set THEN + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color0_noprefix.bi" ELSE - p$ = getfilepath$(incname(inclevel)) + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color0.bi" END IF - sourceLocation$ = p$ - - IF metacommand$ = "$INSTALLFILES" THEN - AryAddStr installFiles(), sourceContent$ - AryAddStr installFilesSourceLocation(), sourceLocation$ - AryAddStr installFilesIn(), destLocation$ - ELSE - AryAddStr installFolder(), sourceContent$ - AryAddStr installFolderSourceLocation(), sourceLocation$ - AryAddStr installFolderIn(), destLocation$ - END IF - - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = l$ + layoutdone = 1 GOTO finishednonexec END IF - 'IF a3u$ = "$RESIZE:SMOOTH" THEN - ' IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - ' layout$ = "$RESIZE:SMOOTH" - ' Resize = 1: Resize_Scale = 2 - ' GOTO finishednonexec - 'END IF + IF a3u$ = "$COLOR:32" THEN + layout$ = SCase$("$Color:32") + IF qb64prefix_set THEN + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color32_noprefix.bi" + ELSE + addmetainclude$ = getfilepath$(COMMAND$(0)) + "internal" + pathsep$ + "support" + pathsep$ + "color" + pathsep$ + "color32.bi" + END IF + layoutdone = 1 + GOTO finishednonexec + END IF + + IF a3u$ = "$NOPREFIX" THEN + 'already set in prepass + layout$ = SCase$("$NoPrefix") + GOTO finishednonexec + END IF IF a3u$ = "$VIRTUALKEYBOARD:ON" THEN - layout$ = "$VIRTUALKEYBOARD:ON" + 'Deprecated; does nothing. + layout$ = SCase$("$VirtualKeyboard:On") + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Deprecated feature", "$VirtualKeyboard" GOTO finishednonexec END IF IF a3u$ = "$VIRTUALKEYBOARD:OFF" THEN - layout$ = "$VIRTUALKEYBOARD:OFF" + 'Deprecated; does nothing. + layout$ = SCase$("$VirtualKeyboard:Off") + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Deprecated feature", "$VirtualKeyboard" + GOTO finishednonexec + END IF + + IF a3u$ = "$DEBUG" THEN + layout$ = SCase$("$Debug") + IF NoIDEMode THEN + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "$Debug", "$Debug features only work from the IDE" + END IF GOTO finishednonexec END IF IF a3u$ = "$CHECKING:OFF" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$CHECKING:OFF" + layout$ = SCase$("$Checking:Off") NoChecks = 1 + IF vWatchOn <> 0 AND NoIDEMode = 0 AND inclevel = 0 THEN + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "$Debug", "$Debug features won't work in $Checking:Off blocks" + END IF GOTO finishednonexec END IF IF a3u$ = "$CHECKING:ON" THEN - layout$ = "$CHECKING:ON" + layout$ = SCase$("$Checking:On") NoChecks = 0 GOTO finishednonexec END IF IF a3u$ = "$CONSOLE" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$CONSOLE" + layout$ = SCase$("$Console") Console = 1 GOTO finishednonexec END IF IF a3u$ = "$CONSOLE:ONLY" THEN - layout$ = "$CONSOLE:ONLY" + layout$ = SCase$("$Console:Only") DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) OR 1 Console = 1 + IF prepass = 0 THEN + IF NoChecks = 0 THEN PRINT #12, "do{" + PRINT #12, "sub__dest(func__console());" + PRINT #12, "sub__source(func__console());" + GOTO finishedline2 + ELSE + GOTO finishednonexec + END IF + END IF + + IF a3u$ = "$ASSERTS" THEN + layout$ = SCase$("$Asserts") + Asserts = 1 + GOTO finishednonexec + END IF + + IF a3u$ = "$ASSERTS:CONSOLE" THEN + layout$ = SCase$("$Asserts:Console") + Asserts = 1 + Console = 1 GOTO finishednonexec END IF IF a3u$ = "$SCREENHIDE" THEN - layout$ = "$SCREENHIDE" + layout$ = SCase$("$ScreenHide") ScreenHide = 1 GOTO finishednonexec END IF IF a3u$ = "$SCREENSHOW" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$SCREENSHOW" + layout$ = SCase$("$ScreenShow") ScreenHide = 0 GOTO finishednonexec END IF IF a3u$ = "$RESIZE:OFF" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$RESIZE:OFF" + layout$ = SCase$("$Resize:Off") Resize = 0: Resize_Scale = 0 GOTO finishednonexec END IF IF a3u$ = "$RESIZE:ON" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$RESIZE:ON" + layout$ = SCase$("$Resize:On") Resize = 1: Resize_Scale = 0 GOTO finishednonexec END IF IF a3u$ = "$RESIZE:STRETCH" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$RESIZE:STRETCH" + layout$ = SCase$("$Resize:Stretch") Resize = 1: Resize_Scale = 1 GOTO finishednonexec END IF IF a3u$ = "$RESIZE:SMOOTH" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** - layout$ = "$RESIZE:SMOOTH" + layout$ = SCase$("$Resize:Smooth") Resize = 1: Resize_Scale = 2 GOTO finishednonexec END IF @@ -3323,44 +3254,44 @@ DO CASE "FILEVERSION#" GOSUB ValidateVersion viFileVersionNum$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:FILEVERSION#=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:FILEVERSION#=") + VersionInfoValue$ CASE "PRODUCTVERSION#" GOSUB ValidateVersion viProductVersionNum$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:PRODUCTVERSION#=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:PRODUCTVERSION#=") + VersionInfoValue$ CASE "COMPANYNAME" viCompanyName$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:CompanyName=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "CompanyName=" + VersionInfoValue$ CASE "FILEDESCRIPTION" viFileDescription$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:FileDescription=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "FileDescription=" + VersionInfoValue$ CASE "FILEVERSION" viFileVersion$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:FileVersion=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "FileVersion=" + VersionInfoValue$ CASE "INTERNALNAME" viInternalName$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:InternalName=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "InternalName=" + VersionInfoValue$ CASE "LEGALCOPYRIGHT" viLegalCopyright$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:LegalCopyright=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "LegalCopyright=" + VersionInfoValue$ CASE "LEGALTRADEMARKS" viLegalTrademarks$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:LegalTrademarks=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "LegalTrademarks=" + VersionInfoValue$ CASE "ORIGINALFILENAME" viOriginalFilename$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:OriginalFilename=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "OriginalFilename=" + VersionInfoValue$ CASE "PRODUCTNAME" viProductName$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:ProductName=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "ProductName=" + VersionInfoValue$ CASE "PRODUCTVERSION" viProductVersion$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:ProductVersion=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "ProductVersion=" + VersionInfoValue$ CASE "COMMENTS" viComments$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:Comments=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "Comments=" + VersionInfoValue$ CASE "WEB" viWeb$ = VersionInfoValue$ - layout$ = "$VERSIONINFO:Web=" + VersionInfoValue$ + layout$ = SCase$("$VersionInfo:") + "Web=" + VersionInfoValue$ CASE ELSE a$ = "Invalid key. (Use FILEVERSION#, PRODUCTVERSION#, CompanyName, FileDescription, FileVersion, InternalName, LegalCopyright, LegalTrademarks, OriginalFilename, ProductName, ProductVersion, Comments or Web)" GOTO errmes @@ -3372,12 +3303,12 @@ DO ValidateVersion: 'Check if only numbers and commas (4 comma-separated values) - IF LEN(VersionInfoValue$) = 0 THEN a$ = "Expected: $VERSIONINFO:" + VersionInfoKey$ + "=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)": GOTO errmes + IF LEN(VersionInfoValue$) = 0 THEN a$ = "Expected $VERSIONINFO:" + VersionInfoKey$ + "=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)": GOTO errmes viCommas = 0 FOR i = 1 TO LEN(VersionInfoValue$) IF ASC(VersionInfoValue$, i) = 44 THEN viCommas = viCommas + 1 IF INSTR("0123456789,", MID$(VersionInfoValue$, i, 1)) = 0 OR (i = LEN(VersionInfoValue$) AND viCommas <> 3) OR RIGHT$(VersionInfoValue$, 1) = "," THEN - a$ = "Expected: $VERSIONINFO:" + VersionInfoKey$ + "=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)": GOTO errmes + a$ = "Expected $VERSIONINFO:" + VersionInfoKey$ + "=#,#,#,# (4 comma-separated numeric values: major, minor, revision and build)": GOTO errmes END IF NEXT RETURN @@ -3395,7 +3326,7 @@ DO END IF ExeIconFile$ = RTRIM$(LTRIM$(MID$(a3$, FirstDelimiter + 1, SecondDelimiter - FirstDelimiter - 1))) IF LEN(ExeIconFile$) = 0 THEN a$ = "Expected $EXEICON:'filename'": GOTO errmes - layout$ = "$EXEICON:'" + ExeIconFile$ + "'" + MID$(a3$, SecondDelimiter + 1) + layout$ = SCase$("$ExeIcon:'") + ExeIconFile$ + "'" + MID$(a3$, SecondDelimiter + 1) IF INSTR(_OS$, "WIN") THEN 'Actual metacommand processing. Windows only. @@ -3446,7 +3377,7 @@ DO ExeIconSet = linenumber SetDependency DEPENDENCY_ICON - PRINT #12, "do{" + IF NoChecks = 0 THEN PRINT #12, "do{" PRINT #12, "sub__icon(NULL,NULL,0);" GOTO finishedline2 END IF @@ -3495,13 +3426,15 @@ DO label$ = getelement(entireline$, 1) IF validlabel(label$) THEN + IF closedmain <> 0 AND subfunc = "" THEN a$ = "Labels cannot be placed between SUB/FUNCTIONs": GOTO errmes + v = HashFind(label$, HASHFLAG_LABEL, ignore, r) addlabchk100: IF v THEN s = Labels(r).Scope IF s = subfuncn OR s = -1 THEN 'same scope? IF s = -1 THEN Labels(r).Scope = subfuncn 'acquire scope - IF Labels(r).State = 1 THEN a$ = "Duplicate label": GOTO errmes + IF Labels(r).State = 1 THEN a$ = "Duplicate label (" + RTRIM$(Labels(r).cn) + ")": GOTO errmes 'aquire state 0 types tlayout$ = RTRIM$(Labels(r).cn) GOTO addlabaq100 @@ -3535,7 +3468,8 @@ DO inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34) END IF IF NoChecks = 0 THEN - PRINT #12, "if(qbevent){evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}" + IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = "" + PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}" END IF IF n = 1 THEN GOTO finishednonexec entireline$ = getelements(entireline$, 2, n): u$ = UCASE$(entireline$): n = n - 1 @@ -3557,13 +3491,15 @@ DO IF validname(a$) = 0 THEN a$ = "Invalid name": GOTO errmes + IF closedmain <> 0 AND subfunc = "" THEN a$ = "Labels cannot be placed between SUB/FUNCTIONs": GOTO errmes + v = HashFind(a$, HASHFLAG_LABEL, ignore, r) addlabchk: IF v THEN s = Labels(r).Scope IF s = subfuncn OR s = -1 THEN 'same scope? IF s = -1 THEN Labels(r).Scope = subfuncn 'acquire scope - IF Labels(r).State = 1 THEN a$ = "Duplicate label": GOTO errmes + IF Labels(r).State = 1 THEN a$ = "Duplicate label (" + RTRIM$(Labels(r).cn) + ")": GOTO errmes 'aquire state 0 types tlayout$ = RTRIM$(Labels(r).cn) GOTO addlabaq @@ -3593,7 +3529,8 @@ DO inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34) END IF IF NoChecks = 0 THEN - PRINT #12, "if(qbevent){evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}" + IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = "" + PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}" END IF entireline$ = RIGHT$(entireline$, LEN(entireline$) - x3): u$ = UCASE$(entireline$) n = numelements(entireline$): IF n = 0 THEN GOTO finishednonexec @@ -3802,7 +3739,7 @@ DO IF n <= 2 THEN IF firstelement$ = "DATA" THEN - l$ = firstelement$ + l$ = SCase$("Data") IF n = 2 THEN e$ = SPACE$((LEN(secondelement$) - 1) \ 2) @@ -3830,7 +3767,7 @@ DO IF firstelement$ = "END" THEN IF n <> 2 OR secondelement$ <> "DECLARE" THEN a$ = "Expected END DECLARE": GOTO errmes declaringlibrary = 0 - l$ = "END" + sp + "DECLARE" + l$ = SCase$("End" + sp + "Declare") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec END IF 'end declare @@ -3850,30 +3787,84 @@ DO IF firstelement$ = "END" THEN IF n <> 2 OR secondelement$ <> "TYPE" THEN a$ = "Expected END TYPE": GOTO errmes definingtype = 0 - l$ = "END" + sp + "TYPE" + l$ = SCase$("End" + sp + "Type") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec END IF - IF n < 3 OR secondelement$ <> "AS" THEN a$ = "Expected element-name AS type-name": GOTO errmes + 'IF n < 3 THEN definingtypeerror = linenumber: a$ = "Expected element-name AS type or AS type element-list": GOTO errmes + IF n < 3 THEN a$ = "Expected element-name AS type or AS type element-list": GOTO errmes definingtype = 2 - l$ = getelement(ca$, 1) + sp + "AS" - t$ = getelements$(a$, 3, n) - typ = typname2typ(t$) - IF Error_Happened THEN GOTO errmes - IF typ = 0 THEN a$ = "Undefined type": GOTO errmes - IF typ AND ISUDT THEN - t$ = RTRIM$(udtxcname(typ AND 511)) + IF firstelement$ = "AS" THEN + l$ = SCase$("As") + t$ = "" + wordsInTypeName = 0 + DO + nextElement$ = getelement$(a$, 2 + wordsInTypeName) + IF nextElement$ = "," THEN + 'element-list + wordsInTypeName = wordsInTypeName - 2 + EXIT DO + END IF + + wordsInTypeName = wordsInTypeName + 1 + IF wordsInTypeName = n - 2 THEN + 'single element in line + wordsInTypeName = wordsInTypeName - 1 + EXIT DO + END IF + LOOP + + t$ = getelements$(a$, 2, 2 + wordsInTypeName) + typ = typname2typ(t$) + IF Error_Happened THEN GOTO errmes + IF typ = 0 THEN a$ = "Undefined type": GOTO errmes + IF typ AND ISUDT THEN + IF UCASE$(RTRIM$(t$)) = "MEM" AND RTRIM$(udtxcname(typ AND 511)) = "_MEM" AND qb64prefix_set = 1 THEN + t$ = MID$(RTRIM$(udtxcname(typ AND 511)), 2) + ELSE + t$ = RTRIM$(udtxcname(typ AND 511)) + END IF + l$ = l$ + sp + t$ + ELSE + l$ = l$ + sp + SCase2$(t$) + END IF + + 'Now add each variable: + FOR i = 3 + wordsInTypeName TO n + thisElement$ = getelement$(ca$, i) + IF thisElement$ = "," THEN + l$ = l$ + thisElement$ + ELSE + l$ = l$ + sp + thisElement$ + END IF + NEXT + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + ELSE + l$ = getelement(ca$, 1) + sp + SCase$("As") + t$ = getelements$(a$, 3, n) + typ = typname2typ(t$) + IF Error_Happened THEN GOTO errmes + IF typ = 0 THEN a$ = "Undefined type": GOTO errmes + IF typ AND ISUDT THEN + IF UCASE$(RTRIM$(t$)) = "MEM" AND RTRIM$(udtxcname(typ AND 511)) = "_MEM" AND qb64prefix_set = 1 THEN + t$ = MID$(RTRIM$(udtxcname(typ AND 511)), 2) + ELSE + t$ = RTRIM$(udtxcname(typ AND 511)) + END IF + l$ = l$ + sp + t$ + ELSE + l$ = l$ + sp + SCase2$(t$) + END IF + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ END IF - l$ = l$ + sp + t$ - layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec END IF 'defining type IF firstelement$ = "TYPE" THEN IF n <> 2 THEN a$ = "Expected TYPE type-name": GOTO errmes - l$ = "TYPE" + sp + getelement(ca$, 2) + l$ = SCase$("Type") + sp + getelement(ca$, 2) layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ definingtype = 1 definingtypeerror = linenumber @@ -3893,13 +3884,13 @@ DO staticlinkedlibrary = 0 x = 3 - l$ = "DECLARE" + sp + "LIBRARY" + l$ = SCase$("Declare" + sp + "Library") IF secondelement$ = "DYNAMIC" THEN e$ = getelement$(a$, 3): IF e$ <> "LIBRARY" THEN a$ = "Expected DYNAMIC LIBRARY " + CHR$(34) + "..." + CHR$(34): GOTO errmes dynamiclibrary = 1 x = 4 - l$ = "DECLARE" + sp + "DYNAMIC" + sp + "LIBRARY" + l$ = SCase$("Declare" + sp + "Dynamic" + sp + "Library") IF n = 3 THEN a$ = "Expected DECLARE DYNAMIC LIBRARY " + CHR$(34) + "..." + CHR$(34): GOTO errmes indirectlibrary = 1 END IF @@ -3908,14 +3899,14 @@ DO e$ = getelement$(a$, 3): IF e$ <> "LIBRARY" THEN a$ = "Expected CUSTOMTYPE LIBRARY": GOTO errmes customtypelibrary = 1 x = 4 - l$ = "DECLARE" + sp + "CUSTOMTYPE" + sp + "LIBRARY" + l$ = SCase$("Declare" + sp + "CustomType" + sp + "Library") indirectlibrary = 1 END IF IF secondelement$ = "STATIC" THEN e$ = getelement$(a$, 3): IF e$ <> "LIBRARY" THEN a$ = "Expected STATIC LIBRARY": GOTO errmes x = 4 - l$ = "DECLARE" + sp + "STATIC" + sp + "LIBRARY" + l$ = SCase$("Declare" + sp + "Static" + sp + "Library") staticlinkedlibrary = 1 END IF @@ -4746,7 +4737,11 @@ DO a$ = "Unregistered SUB/FUNCTION encountered": GOTO errmes createsf: IF UCASE$(e$) = "_GL" THEN e$ = "_GL" - l$ = firstelement$ + sp + e$ + symbol$ + IF firstelement$ = "SUB" THEN + l$ = SCase$("Sub") + sp + e$ + symbol$ + ELSE + l$ = SCase$("Function") + sp + e$ + symbol$ + END IF id2 = id targetid = currentid @@ -4764,9 +4759,9 @@ DO ee$ = RIGHT$(ee$, LEN(ee$) - 1) x = INSTR(ee$, CHR$(34)): IF x = 0 THEN a$ = "Expected " + CHR$(34): GOTO errmes ee$ = LEFT$(ee$, x - 1) - l$ = l$ + sp + "ALIAS" + sp + CHR_QUOTE + ee$ + CHR_QUOTE + l$ = l$ + sp + SCase$("Alias") + sp + CHR_QUOTE + ee$ + CHR_QUOTE ELSE - l$ = l$ + sp + "ALIAS" + sp + ee$ + l$ = l$ + sp + SCase$("Alias") + sp + ee$ END IF 'strip fix046$ (created by unquoted periods) @@ -4790,12 +4785,14 @@ DO 'check for open controls (copy #2) IF controllevel <> 0 AND controltype(controllevel) <> 6 THEN 'It's OK for subs to be inside $IF blocks - x = controltype(controllevel) - IF x = 1 THEN a$ = "IF without END IF" - IF x = 2 THEN a$ = "FOR without NEXT" - IF x = 3 OR x = 4 THEN a$ = "DO without LOOP" - IF x = 5 THEN a$ = "WHILE without WEND" - IF (x >= 10 AND x <= 17) OR x = 18 OR x = 19 THEN a$ = "SELECT CASE without END SELECT" + a$ = "Unidentified open control block" + SELECT CASE controltype(controllevel) + CASE 1: a$ = "IF without END IF" + CASE 2: a$ = "FOR without NEXT" + CASE 3, 4: a$ = "DO without LOOP" + CASE 5: a$ = "WHILE without WEND" + CASE 10 TO 19: a$ = "SELECT CASE without END SELECT" + END SELECT linenumber = controlref(controllevel) GOTO errmes END IF @@ -4803,10 +4800,14 @@ DO IF ideindentsubs THEN controllevel = controllevel + 1 controltype(controllevel) = 32 + controlref(controllevel) = linenumber END IF subfunc = RTRIM$(id.callname) 'SUB_..." + IF id.subfunc = 1 THEN subfuncoriginalname$ = "FUNCTION " ELSE subfuncoriginalname$ = "SUB " + subfuncoriginalname$ = subfuncoriginalname$ + RTRIM$(id.cn) subfuncn = subfuncn + 1 + closedsubfunc = 0 subfuncid = targetid subfuncret$ = "" @@ -4962,9 +4963,9 @@ DO byvalue = 0 IF UCASE$(e$) = "BYVAL" THEN - IF declaringlibrary = 0 THEN a$ = "BYVAL can currently only be used with DECLARE LIBRARY": GOTO errmes + IF declaringlibrary = 0 THEN a$ = "BYVAL can only be used with DECLARE LIBRARY": GOTO errmes byvalue = 1: a2$ = RIGHT$(a2$, LEN(a2$) - 6) - IF RIGHT$(l$, 1) = "(" THEN l$ = l$ + sp2 + "BYVAL" ELSE l$ = l$ + sp + "BYVAL" + IF RIGHT$(l$, 1) = "(" THEN l$ = l$ + sp2 + SCase$("ByVal") ELSE l$ = l$ + sp + SCase$("Byval") n2 = numelements(a2$): e$ = getelement$(a2$, 1) END IF @@ -4983,30 +4984,31 @@ DO FOR i2 = 2 TO n2 e$ = getelement$(a2$, i2) IF e$ = "(" THEN - IF m <> 0 THEN a$ = "Syntax error": GOTO errmes + IF m <> 0 THEN a$ = "Syntax error - too many opening brackets": GOTO errmes m = 1 array = 1 l$ = l$ + sp2 + "(" GOTO gotaa2 END IF IF e$ = ")" THEN - IF m <> 1 THEN a$ = "Syntax error": GOTO errmes + IF m <> 1 THEN a$ = "Syntax error - closing bracket without opening bracket": GOTO errmes m = 2 l$ = l$ + sp2 + ")" GOTO gotaa2 END IF IF UCASE$(e$) = "AS" THEN - IF m <> 0 AND m <> 2 THEN a$ = "Syntax error": GOTO errmes + IF m <> 0 AND m <> 2 THEN a$ = "Syntax error - check your brackets": GOTO errmes m = 3 - l$ = l$ + sp + "AS" + l$ = l$ + sp + SCase$("As") GOTO gotaa2 END IF IF m = 1 THEN l$ = l$ + sp + e$: GOTO gotaa2 'ignore contents of option bracket telling how many dimensions (add to layout as is) - IF m <> 3 THEN a$ = "Syntax error": GOTO errmes + IF m <> 3 THEN a$ = "Syntax error - check your brackets": GOTO errmes IF t2$ = "" THEN t2$ = e$ ELSE t2$ = t2$ + " " + e$ gotaa2: NEXT i2 - IF symbol2$ <> "" AND t2$ <> "" THEN a$ = "Syntax error": GOTO errmes + IF m = 1 THEN a$ = "Syntax error - check your brackets": GOTO errmes + IF symbol2$ <> "" AND t2$ <> "" THEN a$ = "Syntax error - check parameter types": GOTO errmes IF LEN(t2$) THEN 'add type-name after AS @@ -5016,13 +5018,19 @@ DO IF Error_Happened THEN GOTO errmes IF typ = 0 THEN a$ = "Undefined type": GOTO errmes IF typ AND ISUDT THEN - t3$ = RTRIM$(udtxcname(typ AND 511)) + IF RTRIM$(udtxcname(typ AND 511)) = "_MEM" AND UCASE$(t3$) = "MEM" AND qb64prefix_set = 1 THEN + t3$ = MID$(RTRIM$(udtxcname(typ AND 511)), 2) + ELSE + t3$ = RTRIM$(udtxcname(typ AND 511)) + END IF + l$ = l$ + sp + t3$ ELSE - FOR t3i = 1 TO LEN(t3i) + FOR t3i = 1 TO LEN(t3$) IF ASC(t3$, t3i) = 32 THEN ASC(t3$, t3i) = ASC(sp) NEXT + t3$ = SCase2$(t3$) + l$ = l$ + sp + t3$ END IF - l$ = l$ + sp + t3$ END IF IF t2$ = "" THEN t2$ = symbol2$ @@ -5071,6 +5079,9 @@ DO IF t2$ = RTRIM$(udtxname(xx)) THEN PRINT #17, "void*" GOTO decudt + ELSEIF RTRIM$(udtxname(xx)) = "_MEM" AND t2$ = "MEM" AND qb64prefix_set = 1 THEN + PRINT #17, "void*" + GOTO decudt END IF NEXT t$ = typ2ctyp$(0, t2$) @@ -5142,7 +5153,7 @@ DO END IF 'n>2 AllowLocalName = 0 - IF addstatic2layout THEN l$ = l$ + sp + "STATIC" + IF addstatic2layout THEN l$ = l$ + sp + SCase$("Static") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ PRINT #17, ");" @@ -5164,6 +5175,24 @@ DO PRINT #12, "sf_mem_lock=mem_lock_tmp;" PRINT #12, "sf_mem_lock->type=3;" + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;" + IF subfunc <> "SUB_VWATCH" THEN + inclinenump$ = "" + IF inclinenumber(inclevel) THEN + thisincname$ = getfilepath$(incname$(inclevel)) + thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1) + inclinenump$ = "(" + thisincname$ + "," + STR$(inclinenumber(inclevel)) + ") " + END IF + + PRINT #12, "qbs_set(__STRING_VWATCH_SUBNAME,qbs_new_txt_len(" + CHR$(34) + inclinenump$ + subfuncoriginalname$ + CHR$(34) + "," + str2$(LEN(inclinenump$ + subfuncoriginalname$)) + "));" + PRINT #12, "qbs_cleanup(qbs_tmp_base,0);" + PRINT #12, "qbs_set(__STRING_VWATCH_INTERNALSUBNAME,qbs_new_txt_len(" + CHR$(34) + subfunc + CHR$(34) + "," + str2$(LEN(subfunc)) + "));" + PRINT #12, "qbs_cleanup(qbs_tmp_base,0);" + PRINT #12, "*__LONG_VWATCH_LINENUMBER=-2; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF + END IF + PRINT #12, "if (new_error) goto exit_subfunc;" 'statementn = statementn + 1 @@ -5273,12 +5302,14 @@ DO 'check for open controls (copy #3) IF controllevel <> 0 AND controltype(controllevel) <> 6 AND controltype(controllevel) <> 32 THEN 'It's OK for subs to be inside $IF blocks - x = controltype(controllevel) - IF x = 1 THEN a$ = "IF without END IF" - IF x = 2 THEN a$ = "FOR without NEXT" - IF x = 3 OR x = 4 THEN a$ = "DO without LOOP" - IF x = 5 THEN a$ = "WHILE without WEND" - IF (x >= 10 AND x <= 17) OR x = 18 OR x = 19 THEN a$ = "SELECT CASE without END SELECT" + a$ = "Unidentified open control block" + SELECT CASE controltype(controllevel) + CASE 1: a$ = "IF without END IF" + CASE 2: a$ = "FOR without NEXT" + CASE 3, 4: a$ = "DO without LOOP" + CASE 5: a$ = "WHILE without WEND" + CASE 10 TO 19: a$ = "SELECT CASE without END SELECT" + END SELECT linenumber = controlref(controllevel) GOTO errmes END IF @@ -5288,12 +5319,60 @@ DO controllevel = controllevel - 1 END IF - l$ = firstelement$ + sp + secondelement$ + IF LEFT$(subfunc, 4) = "SUB_" THEN secondelement$ = SCase$("Sub") ELSE secondelement$ = SCase$("Function") + l$ = SCase$("End") + sp + secondelement$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + IF vWatchOn = 1 THEN + vWatchVariable "", 1 + END IF + staticarraylist = "": staticarraylistn = 0 'remove previously listed arrays dimstatic = 0 PRINT #12, "exit_subfunc:;" + IF vWatchOn = 1 THEN + IF NoChecks = 0 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + vWatchAddLabel 0, -1 + END IF + PRINT #12, "*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;" + + IF inclinenumber(inclevel) = 0 AND firstLineNumberLabelvWatch > 0 THEN + PRINT #12, "goto VWATCH_SKIPSETNEXTLINE;" + PRINT #12, "VWATCH_SETNEXTLINE:;" + PRINT #12, "switch (*__LONG_VWATCH_GOTO) {" + FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch + WHILE i > LEN(vWatchUsedLabels) + vWatchUsedLabels = vWatchUsedLabels + SPACE$(1000) + vWatchUsedSkipLabels = vWatchUsedSkipLabels + SPACE$(1000) + WEND + IF ASC(vWatchUsedLabels, i) = 1 THEN + PRINT #12, " case " + str2$(i) + ":" + PRINT #12, " goto VWATCH_LABEL_" + str2$(i) + ";" + PRINT #12, " break;" + END IF + NEXT + PRINT #12, " default:" + PRINT #12, " *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;" + PRINT #12, " goto VWATCH_SETNEXTLINE;" + PRINT #12, "}" + + PRINT #12, "VWATCH_SKIPLINE:;" + PRINT #12, "switch (*__LONG_VWATCH_GOTO) {" + FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch + IF ASC(vWatchUsedSkipLabels, i) = 1 THEN + PRINT #12, " case -" + str2$(i) + ":" + PRINT #12, " goto VWATCH_SKIPLABEL_" + str2$(i) + ";" + PRINT #12, " break;" + END IF + NEXT + PRINT #12, "}" + + PRINT #12, "VWATCH_SKIPSETNEXTLINE:;" + END IF + firstLineNumberLabelvWatch = 0 + END IF 'release _MEM lock for this scope PRINT #12, "free_mem_lock(sf_mem_lock);" @@ -5309,6 +5388,7 @@ DO PRINT #15, "}" PRINT #15, "error(3);" 'no valid return possible subfunc = "" + closedsubfunc = -1 'unshare temp. shared variables FOR i = 1 TO idn @@ -5332,7 +5412,7 @@ DO IF n >= 1 AND firstelement$ = "CONST" THEN - l$ = "CONST" + l$ = SCase$("Const") 'DEF... do not change type, the expression is stored in a suitable type 'based on its value if type isn't forced/specified IF n < 3 THEN a$ = "Expected CONST name = value/expression": GOTO errmes @@ -5397,15 +5477,15 @@ DO predefine: IF n >= 2 THEN asreq = 0 - IF firstelement$ = "DEFINT" THEN a$ = a$ + sp + "AS" + sp + "INTEGER": n = n + 2: GOTO definetype - IF firstelement$ = "DEFLNG" THEN a$ = a$ + sp + "AS" + sp + "LONG": n = n + 2: GOTO definetype - IF firstelement$ = "DEFSNG" THEN a$ = a$ + sp + "AS" + sp + "SINGLE": n = n + 2: GOTO definetype - IF firstelement$ = "DEFDBL" THEN a$ = a$ + sp + "AS" + sp + "DOUBLE": n = n + 2: GOTO definetype - IF firstelement$ = "DEFSTR" THEN a$ = a$ + sp + "AS" + sp + "STRING": n = n + 2: GOTO definetype - IF firstelement$ = "_DEFINE" THEN + IF firstelement$ = "DEFINT" THEN l$ = SCase$("DefInt"): a$ = a$ + sp + "AS" + sp + "INTEGER": n = n + 2: GOTO definetype + IF firstelement$ = "DEFLNG" THEN l$ = SCase$("DefLng"): a$ = a$ + sp + "AS" + sp + "LONG": n = n + 2: GOTO definetype + IF firstelement$ = "DEFSNG" THEN l$ = SCase$("DefSng"): a$ = a$ + sp + "AS" + sp + "SINGLE": n = n + 2: GOTO definetype + IF firstelement$ = "DEFDBL" THEN l$ = SCase$("DefDbl"): a$ = a$ + sp + "AS" + sp + "DOUBLE": n = n + 2: GOTO definetype + IF firstelement$ = "DEFSTR" THEN l$ = SCase$("DefStr"): a$ = a$ + sp + "AS" + sp + "STRING": n = n + 2: GOTO definetype + IF firstelement$ = "_DEFINE" OR (firstelement$ = "DEFINE" AND qb64prefix_set = 1) THEN asreq = 1 + IF firstelement$ = "_DEFINE" THEN l$ = SCase$("_Define") ELSE l$ = SCase$("Define") definetype: - l$ = firstelement$ 'get type from rhs typ$ = "" typ2$ = "" @@ -5417,8 +5497,8 @@ DO typ2$ = t$ + sp + typ2$ NEXT typ$ = RTRIM$(typ$) - IF t$ <> "AS" THEN a$ = "_DEFINE: Expected ... AS ...": GOTO errmes - IF i = n OR i = 2 THEN a$ = "_DEFINE: Expected ... AS ...": GOTO errmes + IF t$ <> "AS" THEN a$ = qb64prefix$ + "DEFINE: Expected ... AS ...": GOTO errmes + IF i = n OR i = 2 THEN a$ = qb64prefix$ + "DEFINE: Expected ... AS ...": GOTO errmes n = i - 1 @@ -5427,8 +5507,8 @@ DO definenext: 'expects an alphabet letter or underscore i = i + 1: e$ = getelement$(a$, i): E = ASC(UCASE$(e$)) - IF LEN(e$) > 1 THEN a$ = "_DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes - IF E <> 95 AND (E > 90 OR E < 65) THEN a$ = "_DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes + IF LEN(e$) > 1 THEN a$ = qb64prefix$ + "DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes + IF E <> 95 AND (E > 90 OR E < 65) THEN a$ = qb64prefix$ + "DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes IF E = 95 THEN E = 27 ELSE E = E - 64 defineaz(E) = typ$ defineextaz(E) = type2symbol(typ$) @@ -5438,21 +5518,21 @@ DO IF i = n THEN IF predefining = 1 THEN GOTO predefined - IF asreq THEN l$ = l$ + sp + "AS" + sp + typ2$ + IF asreq THEN l$ = l$ + sp + SCase$("As") + sp + typ2$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec END IF 'expects "-" or "," i = i + 1: e$ = getelement$(a$, i) - IF e$ <> "-" AND e$ <> "," THEN a$ = "_DEFINE: Expected - or ,": GOTO errmes + IF e$ <> "-" AND e$ <> "," THEN a$ = qb64prefix$ + "DEFINE: Expected - or ,": GOTO errmes IF e$ = "-" THEN l$ = l$ + sp2 + "-" - IF i = n THEN a$ = "_DEFINE: Syntax incomplete": GOTO errmes + IF i = n THEN a$ = qb64prefix$ + "DEFINE: Syntax incomplete": GOTO errmes 'expects an alphabet letter or underscore i = i + 1: e$ = getelement$(a$, i): E = ASC(UCASE$(e$)) - IF LEN(e$) > 1 THEN a$ = "_DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes - IF E <> 95 AND (E > 90 OR E < 65) THEN a$ = "_DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes + IF LEN(e$) > 1 THEN a$ = qb64prefix$ + "DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes + IF E <> 95 AND (E > 90 OR E < 65) THEN a$ = qb64prefix$ + "DEFINE: Expected an alphabet letter or the underscore character (_)": GOTO errmes IF E = 95 THEN E = 27 ELSE E = E - 64 IF firste > E THEN SWAP E, firste FOR e2 = firste TO E @@ -5463,13 +5543,13 @@ DO l$ = l$ + sp2 + e$ IF i = n THEN IF predefining = 1 THEN GOTO predefined - IF asreq THEN l$ = l$ + sp + "AS" + sp + typ2$ + IF asreq THEN l$ = l$ + sp + SCase$("As") + sp + typ2$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec END IF 'expects "," i = i + 1: e$ = getelement$(a$, i) - IF e$ <> "," THEN a$ = "_DEFINE: Expected ,": GOTO errmes + IF e$ <> "," THEN a$ = qb64prefix$ + "DEFINE: Expected ,": GOTO errmes END IF l$ = l$ + sp2 + "," GOTO definenext @@ -5487,7 +5567,7 @@ DO IF n >= 1 THEN IF firstelement$ = "NEXT" THEN - l$ = "NEXT" + l$ = SCase$("Next") IF n = 1 THEN GOTO simplenext v$ = "" FOR i = 2 TO n @@ -5520,6 +5600,10 @@ DO IF controltype(controllevel) <> 2 THEN a$ = "NEXT without FOR": GOTO errmes IF n <> 1 AND controlvalue(controllevel) <> currentid THEN a$ = "Incorrect variable after NEXT": GOTO errmes PRINT #12, "fornext_continue_" + str2$(controlid(controllevel)) + ":;" + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 AND NoChecks = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF PRINT #12, "}" PRINT #12, "fornext_exit_" + str2$(controlid(controllevel)) + ":;" controllevel = controllevel - 1 @@ -5546,6 +5630,11 @@ DO IF firstelement$ = "WHILE" THEN IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF + controllevel = controllevel + 1 controlref(controllevel) = linenumber controltype(controllevel) = 5 @@ -5553,7 +5642,7 @@ DO IF n >= 2 THEN e$ = fixoperationorder(getelements$(ca$, 2, n)) IF Error_Happened THEN GOTO errmes - l$ = "WHILE" + sp + tlayout$ + l$ = SCase$("While") + sp + tlayout$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ e$ = evaluate(e$, typ) IF Error_Happened THEN GOTO errmes @@ -5561,6 +5650,10 @@ DO IF Error_Happened THEN GOTO errmes IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")" IF (typ AND ISSTRING) THEN a$ = "WHILE ERROR! Cannot accept a STRING type.": GOTO errmes + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF PRINT #12, "while((" + e$ + ")||new_error){" ELSE a$ = "WHILE ERROR! Expected expression after WHILE.": GOTO errmes @@ -5579,7 +5672,7 @@ DO PRINT #12, "}" PRINT #12, "ww_exit_" + str2$(controlid(controllevel)) + ":;" controllevel = controllevel - 1 - l$ = "WEND" + l$ = SCase$("Wend") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec '***no error causing code, event checking done by WHILE*** END IF @@ -5592,13 +5685,19 @@ DO IF n >= 1 THEN IF firstelement$ = "DO" THEN IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF + controllevel = controllevel + 1 controlref(controllevel) = linenumber - l$ = "DO" + l$ = SCase$("Do") IF n >= 2 THEN whileuntil = 0 - IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + "WHILE" - IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + "UNTIL" + IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + SCase$("While") + IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + SCase$("Until") IF whileuntil = 0 THEN a$ = "DO ERROR! Expected WHILE or UNTIL after DO.": GOTO errmes IF whileuntil > 0 AND n = 2 THEN a$ = "Condition expected after WHILE/UNTIL": GOTO errmes e$ = fixoperationorder(getelements$(ca$, 3, n)) @@ -5611,10 +5710,19 @@ DO IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")" IF (typ AND ISSTRING) THEN a$ = "DO ERROR! Cannot accept a STRING type.": GOTO errmes IF whileuntil = 1 THEN PRINT #12, "while((" + e$ + ")||new_error){" ELSE PRINT #12, "while((!(" + e$ + "))||new_error){" + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF controltype(controllevel) = 4 ELSE controltype(controllevel) = 3 - PRINT #12, "do{" + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 AND NoChecks = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "do{*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + ELSE + PRINT #12, "do{" + END IF END IF controlid(controllevel) = uniquenumber layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ @@ -5624,14 +5732,14 @@ DO IF n >= 1 THEN IF firstelement$ = "LOOP" THEN - l$ = "LOOP" + l$ = SCase$("Loop") IF controltype(controllevel) <> 3 AND controltype(controllevel) <> 4 THEN a$ = "PROGRAM FLOW ERROR!": GOTO errmes IF n >= 2 THEN IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 IF controltype(controllevel) = 4 THEN a$ = "PROGRAM FLOW ERROR!": GOTO errmes whileuntil = 0 - IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + "WHILE" - IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + "UNTIL" + IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + SCase$("While") + IF secondelement$ = "UNTIL" THEN whileuntil = 2: l$ = l$ + sp + SCase$("Until") IF whileuntil = 0 THEN a$ = "LOOP ERROR! Expected WHILE or UNTIL after LOOP.": GOTO errmes IF whileuntil > 0 AND n = 2 THEN a$ = "Condition expected after WHILE/UNTIL": GOTO errmes e$ = fixoperationorder(getelements$(ca$, 3, n)) @@ -5644,9 +5752,19 @@ DO IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")" IF (typ AND ISSTRING) THEN a$ = "LOOP ERROR! Cannot accept a STRING type.": GOTO errmes PRINT #12, "dl_continue_" + str2$(controlid(controllevel)) + ":;" + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF IF whileuntil = 1 THEN PRINT #12, "}while((" + e$ + ")&&(!new_error));" ELSE PRINT #12, "}while((!(" + e$ + "))&&(!new_error));" ELSE PRINT #12, "dl_continue_" + str2$(controlid(controllevel)) + ":;" + + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + IF controltype(controllevel) = 4 THEN PRINT #12, "}" ELSE @@ -5673,7 +5791,13 @@ DO IF firstelement$ = "FOR" THEN IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 - l$ = "FOR" + l$ = SCase$("For") + + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF + controllevel = controllevel + 1 controlref(controllevel) = linenumber controltype(controllevel) = 2 @@ -5778,7 +5902,7 @@ DO 'final e$ = fixoperationorder$(p2$) IF Error_Happened THEN GOTO errmes - l$ = l$ + sp + "TO" + sp + tlayout$ + l$ = l$ + sp + SCase$("To") + sp + tlayout$ e$ = evaluatetotyp(e$, ctyp) IF Error_Happened THEN GOTO errmes PRINT #12, "fornext_finalvalue" + u$ + "=" + e$ + ";" @@ -5786,9 +5910,15 @@ DO 'step e$ = fixoperationorder$(p3$) IF Error_Happened THEN GOTO errmes - IF stepused = 1 THEN l$ = l$ + sp + "STEP" + sp + tlayout$ + IF stepused = 1 THEN l$ = l$ + sp + SCase$("Step") + sp + tlayout$ e$ = evaluatetotyp(e$, ctyp) IF Error_Happened THEN GOTO errmes + + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + PRINT #12, "fornext_step" + u$ + "=" + e$ + ";" PRINT #12, "if (fornext_step" + u$ + "<0) fornext_step_negative" + u$ + "=1; else fornext_step_negative" + u$ + "=0;" @@ -5859,7 +5989,7 @@ DO PRINT #12, "}else{" controlstate(controllevel) = 2 IF lineelseused = 0 THEN lhscontrollevel = lhscontrollevel - 1 - l$ = "ELSE" + l$ = SCase$("Else") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec '***no error causing code, event checking done by IF*** END IF @@ -5870,8 +6000,13 @@ DO IF n >= 3 THEN IF firstelement$ = "ELSEIF" THEN - IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 - + IF NoChecks = 0 THEN + PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + END IF FOR i = controllevel TO 1 STEP -1 t = controltype(i) IF t = 1 THEN @@ -5883,7 +6018,7 @@ DO PRINT #12, "}else{" e$ = fixoperationorder$(getelements$(ca$, 2, n - 1)) IF Error_Happened THEN GOTO errmes - l$ = "ELSEIF" + sp + tlayout$ + sp + "THEN" + l$ = SCase$("ElseIf") + sp + tlayout$ + sp + SCase$("Then") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ e$ = evaluate(e$, typ) IF Error_Happened THEN GOTO errmes @@ -5907,7 +6042,18 @@ DO IF n >= 3 THEN IF firstelement$ = "IF" THEN - IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF NoChecks = 0 THEN + PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + END IF + + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF e$ = getelement(a$, n) iftype = 0 @@ -5923,7 +6069,7 @@ DO e$ = fixoperationorder$(getelements(ca$, 2, n - 1)) IF Error_Happened THEN GOTO errmes - l$ = "IF" + sp + tlayout$ + l$ = SCase$("If") + sp + tlayout$ e$ = evaluate(e$, typ) IF Error_Happened THEN GOTO errmes IF (typ AND ISREFERENCE) THEN e$ = refer$(e$, typ, 0) @@ -5939,7 +6085,7 @@ DO PRINT #12, "if ((" + e$ + ")||new_error){" END IF - IF iftype = 1 THEN l$ = l$ + sp + "THEN" 'note: 'GOTO' will be added when iftype=2 + IF iftype = 1 THEN l$ = l$ + sp + SCase$("Then") 'note: 'GOTO' will be added when iftype=2 layoutdone = 1: IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ IF iftype = 2 THEN 'IF ... GOTO @@ -5956,7 +6102,7 @@ DO IF controltype(controllevel) <> 1 THEN a$ = "END IF without IF": GOTO errmes layoutdone = 1 IF impliedendif = 0 THEN - l$ = "END IF" + l$ = SCase$("End If") IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ END IF @@ -5977,10 +6123,15 @@ DO IF controltype(controllevel) <> 1 THEN a$ = "END IF without IF": GOTO errmes layoutdone = 1 IF impliedendif = 0 THEN - l$ = "END" + sp + "IF" + l$ = SCase$("End" + sp + "If") IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ END IF + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + PRINT #12, "}" FOR i = 1 TO controlvalue(controllevel) PRINT #12, "}" @@ -5995,23 +6146,36 @@ DO 'SELECT CASE IF n >= 1 THEN IF firstelement$ = "SELECT" THEN - IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF NoChecks = 0 THEN + PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + END IF + + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF + SelectCaseCounter = SelectCaseCounter + 1 IF UBOUND(EveryCaseSet) <= SelectCaseCounter THEN REDIM _PRESERVE EveryCaseSet(SelectCaseCounter) - + IF UBOUND(SelectCaseHasCaseBlock) <= SelectCaseCounter THEN REDIM _PRESERVE SelectCaseHasCaseBlock(SelectCaseCounter) + SelectCaseHasCaseBlock(SelectCaseCounter) = 0 IF secondelement$ = "EVERYCASE" THEN EveryCaseSet(SelectCaseCounter) = -1 IF n = 2 THEN a$ = "Expected SELECT CASE expression": GOTO errmes e$ = fixoperationorder(getelements$(ca$, 3, n)) IF Error_Happened THEN GOTO errmes - l$ = "SELECT EVERYCASE " + tlayout$ + l$ = SCase$("Select EveryCase ") + tlayout$ ELSE EveryCaseSet(SelectCaseCounter) = 0 IF n = 1 OR secondelement$ <> "CASE" THEN a$ = "Expected CASE or EVERYCASE": GOTO errmes IF n = 2 THEN a$ = "Expected SELECT CASE expression": GOTO errmes e$ = fixoperationorder(getelements$(ca$, 3, n)) IF Error_Happened THEN GOTO errmes - l$ = "SELECT CASE " + tlayout$ + l$ = SCase$("Select Case ") + tlayout$ END IF layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ @@ -6096,6 +6260,8 @@ DO '18=CASE (awaiting END SELECT/CASE/CASE ELSE) '19=CASE ELSE (awaiting END SELECT) IF controltype(controllevel) = 18 THEN + everycasenewcase = everycasenewcase + 1 + PRINT #12, "sc_ec_" + str2$(everycasenewcase) + "_end:;" controllevel = controllevel - 1 IF EveryCaseSet(SelectCaseCounter) = 0 THEN PRINT #12, "goto sc_" + str2$(controlid(controllevel)) + "_end;" PRINT #12, "}" @@ -6104,31 +6270,41 @@ DO controllevel = controllevel - 1 IF EveryCaseSet(SelectCaseCounter) THEN PRINT #12, "} /* End of SELECT EVERYCASE ELSE */" END IF + PRINT #12, "sc_" + str2$(controlid(controllevel)) + "_end:;" IF controltype(controllevel) < 10 OR controltype(controllevel) > 17 THEN a$ = "END SELECT without SELECT CASE": GOTO errmes + + IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + + IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + 'warn user of empty SELECT CASE block + IF NOT IgnoreWarnings THEN + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "empty SELECT CASE block", "" + END IF + END IF + controllevel = controllevel - 1 SelectCaseCounter = SelectCaseCounter - 1 - l$ = "END" + sp + "SELECT" + l$ = SCase$("End" + sp + "Select") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec '***no error causing code, event checking done by SELECT CASE*** END IF END IF - 'Steve Edit on 07-05-2014 to generate an error message if someone inserts code between SELECT CASE and CASE such as: - 'SELECT CASE x - 'm = 3 - 'CASE 1 - 'END SELECT - 'The above used to give no errors, but this one line fix should correct that. (I hope) - IF n >= 1 AND firstelement$ <> "CASE" AND controltype(controllevel) >= 10 AND controltype(controllevel) < 17 THEN a$ = "Expected CASE expression": GOTO errmes - 'End of Edit + 'prevents code from being placed before 'CASE condition' in a SELECT CASE block + IF n >= 1 AND firstelement$ <> "CASE" AND SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN + a$ = "Expected CASE expression": GOTO errmes + END IF 'CASE IF n >= 1 THEN IF firstelement$ = "CASE" THEN - l$ = "CASE" + l$ = SCase$("Case") 'complete current case if necessary '18=CASE (awaiting END SELECT/CASE/CASE ELSE) '19=CASE ELSE (awaiting END SELECT) @@ -6136,6 +6312,8 @@ DO IF controltype(controllevel) = 18 THEN lhscontrollevel = lhscontrollevel - 1 controllevel = controllevel - 1 + everycasenewcase = everycasenewcase + 1 + PRINT #12, "sc_ec_" + str2$(everycasenewcase) + "_end:;" IF EveryCaseSet(SelectCaseCounter) = 0 THEN PRINT #12, "goto sc_" + str2$(controlid(controllevel)) + "_end;" ELSE @@ -6147,9 +6325,9 @@ DO 'if nochecks=0 then PRINT #12, "S_" + str2$(statementn) + ":;" END IF - IF controltype(controllevel) < 10 OR controltype(controllevel) > 17 THEN a$ = "CASE without SELECT CASE": GOTO errmes + IF controltype(controllevel) <> 6 AND (controltype(controllevel) < 10 OR controltype(controllevel) > 17) THEN a$ = "CASE without SELECT CASE": GOTO errmes IF n = 1 THEN a$ = "Expected CASE expression": GOTO errmes - + SelectCaseHasCaseBlock(SelectCaseCounter) = -1 'upgrade: @@ -6207,13 +6385,19 @@ DO IF EveryCaseSet(SelectCaseCounter) THEN PRINT #12, "if (sc_" + str2$(controlid(controllevel)) + "_var==0) {" controllevel = controllevel + 1: controltype(controllevel) = 19 controlref(controllevel) = controlref(controllevel - 1) - l$ = l$ + sp + "ELSE" + l$ = l$ + sp + SCase$("Else") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishednonexec '***no error causing code, event checking done by SELECT CASE*** END IF END IF - IF NoChecks = 0 THEN PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF NoChecks = 0 THEN + PRINT #12, "S_" + str2$(statementn) + ":;": dynscope = 1 + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + END IF + END IF @@ -6257,7 +6441,7 @@ DO IF i2 = 1 THEN e$ = el$ ELSE e$ = er$ e$ = fixoperationorder(e$) IF Error_Happened THEN GOTO errmes - IF i2 = 1 THEN l$ = l$ + sp + tlayout$ ELSE l$ = l$ + sp + "TO" + sp + tlayout$ + IF i2 = 1 THEN l$ = l$ + sp + tlayout$ ELSE l$ = l$ + sp + SCase$("To") + sp + tlayout$ e$ = evaluate(e$, typ) IF Error_Happened THEN GOTO errmes IF (typ AND ISREFERENCE) THEN e$ = refer(e$, typ, 0) @@ -6325,7 +6509,7 @@ DO IF o$ = ">=" THEN o = 1 IF o$ = "<=" THEN o = 1 IF o <> 1 THEN a$ = "Expected IS =,<>,>,<,>=,<= expression": GOTO errmes - l$ = l$ + sp + "IS" + sp + o2$ + l$ = l$ + sp + SCase$("Is") + sp + o2$ e$ = getelements$(e$, 3, n2) 'fall through to type 3 using modified e$ & o$ END IF @@ -6398,7 +6582,12 @@ DO 'static scope commands: IF NoChecks = 0 THEN - PRINT #12, "do{" + IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + PRINT #12, "do{*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + ELSE + PRINT #12, "do{" + END IF 'PRINT #12, "S_" + str2$(statementn) + ":;" END IF @@ -6406,7 +6595,7 @@ DO IF n > 1 THEN IF firstelement$ = "PALETTE" THEN IF secondelement$ = "USING" THEN - l$ = "PALETTE" + sp + "USING" + sp + l$ = SCase$("Palette" + sp + "Using" + sp) IF n < 3 THEN a$ = "Expected PALETTE USING array-name": GOTO errmes 'check array e$ = getelement$(ca$, 3) @@ -6449,22 +6638,22 @@ DO IF firstelement$ = "KEY" THEN IF n = 1 THEN a$ = "Expected KEY ...": GOTO errmes - l$ = "KEY" + sp + l$ = SCase$("KEY") + sp IF secondelement$ = "OFF" THEN IF n > 2 THEN a$ = "Expected KEY OFF only": GOTO errmes - l$ = l$ + "OFF": layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + l$ = l$ + SCase$("Off"): layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ PRINT #12, "key_off();" GOTO finishedline END IF IF secondelement$ = "ON" THEN IF n > 2 THEN a$ = "Expected KEY ON only": GOTO errmes - l$ = l$ + "ON": layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + l$ = l$ + SCase$("On"): layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ PRINT #12, "key_on();" GOTO finishedline END IF IF secondelement$ = "LIST" THEN IF n > 2 THEN a$ = "Expected KEY LIST only": GOTO errmes - l$ = l$ + "LIST": layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + l$ = l$ + SCase$("List"): layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ PRINT #12, "key_list();" GOTO finishedline END IF @@ -6522,7 +6711,7 @@ DO GOTO fielderror fieldgotfn: IF e$ = "#" OR LEN(e$) = 0 THEN GOTO fielderror - IF LEFT$(e$, 2) = "#" + sp THEN e$ = RIGHT$(e$, LEN(e$) - 2): l$ = "FIELD" + sp + "#" + sp2 ELSE l$ = "FIELD" + sp + IF LEFT$(e$, 2) = "#" + sp THEN e$ = RIGHT$(e$, LEN(e$) - 2): l$ = SCase$("Field") + sp + "#" + sp2 ELSE l$ = SCase$("Field") + sp e$ = fixoperationorder(e$) IF Error_Happened THEN GOTO errmes l$ = l$ + tlayout$ + sp2 + "," + sp @@ -6549,7 +6738,7 @@ DO IF LEN(e$) = 0 THEN GOTO fielderror e$ = fixoperationorder(e$) IF Error_Happened THEN GOTO errmes - l$ = l$ + tlayout$ + sp + "AS" + sp + l$ = l$ + tlayout$ + sp + SCase$("As") + sp sizee$ = evaluatetotyp(e$, 32&) IF Error_Happened THEN GOTO errmes @@ -6613,10 +6802,11 @@ DO IF n = 2 THEN IF firstelement$ = "EXIT" THEN - l$ = firstelement$ + sp + secondelement$ + l$ = SCase$("Exit") + sp IF secondelement$ = "DO" THEN 'scan backwards until previous control level reached + l$ = l$ + SCase$("Do") FOR i = controllevel TO 1 STEP -1 t = controltype(i) IF t = 3 OR t = 4 THEN @@ -6630,6 +6820,7 @@ DO IF secondelement$ = "FOR" THEN 'scan backwards until previous control level reached + l$ = l$ + SCase$("For") FOR i = controllevel TO 1 STEP -1 t = controltype(i) IF t = 2 THEN @@ -6643,6 +6834,7 @@ DO IF secondelement$ = "WHILE" THEN 'scan backwards until previous control level reached + l$ = l$ + SCase$("While") FOR i = controllevel TO 1 STEP -1 t = controltype(i) IF t = 5 THEN @@ -6654,6 +6846,38 @@ DO a$ = "EXIT WHILE without WHILE": GOTO errmes END IF + IF secondelement$ = "SELECT" THEN + 'scan backwards until previous control level reached + l$ = l$ + SCase$("Select") + FOR i = controllevel TO 1 STEP -1 + t = controltype(i) + IF t = 18 OR t = 19 THEN 'CASE/CASE ELSE + PRINT #12, "goto sc_" + str2$(controlid(i - 1)) + "_end;" + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + GOTO finishedline + END IF + NEXT + a$ = "EXIT SELECT without SELECT": GOTO errmes + END IF + + IF secondelement$ = "CASE" THEN + 'scan backwards until previous control level reached + l$ = l$ + SCase$("Case") + FOR i = controllevel TO 1 STEP -1 + t = controltype(i) + IF t = 18 THEN 'CASE + PRINT #12, "goto sc_ec_" + str2$(everycasenewcase + 1) + "_end;" + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + GOTO finishedline + ELSEIF t = 19 THEN 'CASE ELSE + PRINT #12, "goto sc_" + str2$(controlid(i - 1)) + "_end;" + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + GOTO finishedline + END IF + NEXT + a$ = "EXIT CASE without CASE": GOTO errmes + END IF + END IF END IF @@ -6671,7 +6895,7 @@ DO IF i > n THEN a$ = "Expected (": GOTO errmes a2$ = getelement$(ca$, i): i = i + 1 IF a2$ <> "(" THEN a$ = "Expected (": GOTO errmes - l$ = "ON" + sp + "STRIG" + sp2 + "(" + l$ = SCase$("On" + sp + "Strig" + sp2 + "(") IF i > n THEN a$ = "Expected ...": GOTO errmes B = 0 x = 0 @@ -6768,7 +6992,7 @@ DO Labels(r).Error_Line = linenumber Labels(r).Scope_Restriction = subfuncn END IF 'x - l$ = l$ + "GOSUB" + sp + tlayout$ + l$ = l$ + SCase$("GoSub") + sp + tlayout$ PRINT #30, "if(strig_event_id==" + str2$(onstrigid) + ")goto LABEL_" + a2$ + ";" @@ -6862,7 +7086,7 @@ DO IF i > n THEN a$ = "Expected (": GOTO errmes a2$ = getelement$(ca$, i): i = i + 1 IF a2$ <> "(" THEN a$ = "Expected (": GOTO errmes - l$ = "ON" + sp + "TIMER" + sp2 + "(" + l$ = SCase$("On" + sp + "Timer" + sp2 + "(") IF i > n THEN a$ = "Expected ...": GOTO errmes B = 0 x = 0 @@ -6948,7 +7172,7 @@ DO Labels(r).Error_Line = linenumber Labels(r).Scope_Restriction = subfuncn END IF 'x - l$ = l$ + "GOSUB" + sp + tlayout$ + l$ = l$ + SCase$("GoSub") + sp + tlayout$ PRINT #25, "if(timer_event_id==" + str2$(ontimerid) + ")goto LABEL_" + a2$ + ";" @@ -7041,7 +7265,7 @@ DO IF i > n THEN a$ = "Expected (": GOTO errmes a2$ = getelement$(ca$, i): i = i + 1 IF a2$ <> "(" THEN a$ = "Expected (": GOTO errmes - l$ = "ON" + sp + "KEY" + sp2 + "(" + l$ = SCase$("On" + sp + "Key" + sp2 + "(") IF i > n THEN a$ = "Expected ...": GOTO errmes B = 0 x = 0 @@ -7107,7 +7331,7 @@ DO Labels(r).Error_Line = linenumber Labels(r).Scope_Restriction = subfuncn END IF 'x - l$ = l$ + "GOSUB" + sp + tlayout$ + l$ = l$ + SCase$("GoSub") + sp + tlayout$ PRINT #28, "if(key_event_id==" + str2$(onkeyid) + ")goto LABEL_" + a2$ + ";" @@ -7218,44 +7442,197 @@ DO - l$ = "SHARED" + l$ = SCase$("Shared") subfuncshr: 'get variable name n$ = getelement$(ca$, i): i = i + 1 - IF n$ = "" THEN a$ = "Expected SHARED variable-name": GOTO errmes + IF n$ = "" THEN a$ = "Expected SHARED variable-name or SHARED AS type variable-list": GOTO errmes - s$ = removesymbol(n$) - IF Error_Happened THEN GOTO errmes - l2$ = s$ 'either symbol or nothing + IF UCASE$(n$) <> "AS" THEN + 'traditional dim syntax for SHARED + newSharedSyntax = 0 + s$ = removesymbol(n$) + IF Error_Happened THEN GOTO errmes + l2$ = s$ 'either symbol or nothing - 'array? - a = 0 - IF getelement$(a$, i) = "(" THEN - IF getelement$(a$, i + 1) <> ")" THEN a$ = "Expected ()": GOTO errmes - i = i + 2 - a = 1 - l2$ = l2$ + sp2 + "(" + sp2 + ")" - END IF + 'array? + a = 0 + IF getelement$(a$, i) = "(" THEN + IF getelement$(a$, i + 1) <> ")" THEN a$ = "Expected ()": GOTO errmes + i = i + 2 + a = 1 + l2$ = l2$ + sp2 + "(" + sp2 + ")" + END IF - method = 1 + method = 1 - 'specific type? - t$ = "" - ts$ = "" - t3$ = "" - IF getelement$(a$, i) = "AS" THEN - l2$ = l2$ + sp + "AS" - getshrtyp: + 'specific type? + t$ = "" + ts$ = "" + t3$ = "" + IF getelement$(a$, i) = "AS" THEN + l2$ = l2$ + sp + SCase$("As") + getshrtyp: + i = i + 1 + t2$ = getelement$(a$, i) + IF t2$ <> "," AND t2$ <> "" THEN + IF t$ = "" THEN t$ = t2$ ELSE t$ = t$ + " " + t2$ + IF t3$ = "" THEN t3$ = t2$ ELSE t3$ = t3$ + sp + t2$ + GOTO getshrtyp + END IF + IF t$ = "" THEN a$ = "Expected AS type": GOTO errmes + + t = typname2typ(t$) + IF Error_Happened THEN GOTO errmes + IF t AND ISINCONVENTIONALMEMORY THEN t = t - ISINCONVENTIONALMEMORY + IF t AND ISPOINTER THEN t = t - ISPOINTER + IF t AND ISREFERENCE THEN t = t - ISREFERENCE + tsize = typname2typsize + method = 0 + IF (t AND ISUDT) = 0 THEN + ts$ = type2symbol$(t$) + l2$ = l2$ + sp + SCase2$(t3$) + ELSE + t3$ = RTRIM$(udtxcname(t AND 511)) + IF RTRIM$(udtxcname(t AND 511)) = "_MEM" AND UCASE$(t$) = "MEM" AND qb64prefix_set = 1 THEN + t3$ = MID$(RTRIM$(udtxcname(t AND 511)), 2) + END IF + l2$ = l2$ + sp + t3$ + END IF + IF Error_Happened THEN GOTO errmes + + END IF 'as + + IF LEN(s$) <> 0 AND LEN(t$) <> 0 THEN a$ = "Expected symbol or AS type after variable name": GOTO errmes + + 'no symbol of type specified, apply default + IF s$ = "" AND t$ = "" THEN + IF LEFT$(n$, 1) = "_" THEN v = 27 ELSE v = ASC(UCASE$(n$)) - 64 + s$ = defineextaz(v) + END IF + + NormalSharedBlock: + 'switch to main module + oldsubfunc$ = subfunc$ + subfunc$ = "" + defdatahandle = 18 + CLOSE #13: OPEN tmpdir$ + "maindata.txt" FOR APPEND AS #13 + CLOSE #19: OPEN tmpdir$ + "mainfree.txt" FOR APPEND AS #19 + + 'use 'try' to locate the variable (if it already exists) + n2$ = n$ + s$ + ts$ 'note: either ts$ or s$ will exist unless it is a UDT + try = findid(n2$) + IF Error_Happened THEN GOTO errmes + DO WHILE try + IF a THEN + 'an array + + IF id.arraytype THEN + IF LEN(t$) = 0 THEN GOTO shrfound + t2 = id.arraytype: t2size = id.tsize + IF t2 AND ISINCONVENTIONALMEMORY THEN t2 = t2 - ISINCONVENTIONALMEMORY + IF t2 AND ISPOINTER THEN t2 = t2 - ISPOINTER + IF t2 AND ISREFERENCE THEN t2 = t2 - ISREFERENCE + IF t = t2 AND tsize = t2size THEN GOTO shrfound + END IF + + ELSE + 'not an array + + IF id.t THEN + IF LEN(t$) = 0 THEN GOTO shrfound + t2 = id.t: t2size = id.tsize + IF t2 AND ISINCONVENTIONALMEMORY THEN t2 = t2 - ISINCONVENTIONALMEMORY + IF t2 AND ISPOINTER THEN t2 = t2 - ISPOINTER + IF t2 AND ISREFERENCE THEN t2 = t2 - ISREFERENCE + + IF Debug THEN PRINT #9, "SHARED:comparing:"; t; t2, tsize; t2size + + IF t = t2 AND tsize = t2size THEN GOTO shrfound + END IF + + END IF + + IF try = 2 THEN findanotherid = 1: try = findid(n2$) ELSE try = 0 + IF Error_Happened THEN GOTO errmes + LOOP + 'unknown variable + IF a THEN a$ = "Array '" + n$ + "' not defined": GOTO errmes + 'create variable + IF LEN(s$) THEN typ$ = s$ ELSE typ$ = t$ + IF optionexplicit THEN a$ = "Variable '" + n$ + "' (" + symbol2fulltypename$(typ$) + ") not defined": GOTO errmes + bypassNextVariable = -1 + retval = dim2(n$, typ$, method, "") + manageVariableList "", vWatchNewVariable$, 0, 2 + IF Error_Happened THEN GOTO errmes + 'note: variable created! + + shrfound: + IF newSharedSyntax = 0 THEN + l$ = l$ + sp + RTRIM$(id.cn) + l2$ + ELSE + IF sharedAsLayoutAdded = 0 THEN + sharedAsLayoutAdded = -1 + l$ = l$ + l2$ + sp$ + RTRIM$(id.cn) + l3$ + ELSE + l$ = l$ + sp$ + RTRIM$(id.cn) + l3$ + END IF + END IF + + ids(currentid).share = ids(currentid).share OR 2 'set as temporarily shared + + 'method must apply to the current sub/function regardless of how the variable was defined in 'main' + lmay = LEN(RTRIM$(id.mayhave)): lmust = LEN(RTRIM$(id.musthave)) + IF lmay <> 0 OR lmust <> 0 THEN + IF (method = 1 AND lmust = 0) OR (method = 0 AND lmay = 0) THEN + revertmaymusthaven = revertmaymusthaven + 1 + revertmaymusthave(revertmaymusthaven) = currentid + SWAP ids(currentid).musthave, ids(currentid).mayhave + END IF + END IF + + 'switch back to sub/func + subfunc$ = oldsubfunc$ + defdatahandle = 13 + CLOSE #13: OPEN tmpdir$ + "data" + str2$(subfuncn) + ".txt" FOR APPEND AS #13 + CLOSE #19: OPEN tmpdir$ + "free" + str2$(subfuncn) + ".txt" FOR APPEND AS #19 + + IF newSharedSyntax THEN RETURN + + IF getelement$(a$, i) = "," THEN i = i + 1: l$ = l$ + sp2 + ",": GOTO subfuncshr + IF getelement$(a$, i) <> "" THEN a$ = "Expected ,": GOTO errmes + + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + GOTO finishedline + ELSE + 'new dim syntax for SHARED! + i = i - 1 'relocate back to "AS" + + 'estabilish the data type: + t$ = "" + ts$ = "" + t3$ = "" + n$ = "" + previousElement$ = "" + l2$ = sp + SCase$("As") + sharedAsLayoutAdded = 0 + getshrtyp2: i = i + 1 t2$ = getelement$(a$, i) - IF t2$ <> "," AND t2$ <> "" THEN - IF t$ = "" THEN t$ = t2$ ELSE t$ = t$ + " " + t2$ - IF t3$ = "" THEN t3$ = t2$ ELSE t3$ = t3$ + sp + t2$ - GOTO getshrtyp + IF t2$ <> "," AND t2$ <> "(" AND t2$ <> "" THEN + 'get first variable name + n$ = getelement$(ca$, i) + + IF LEN(previousElement$) THEN + IF t$ = "" THEN t$ = previousElement$ ELSE t$ = t$ + " " + previousElement$ + IF t3$ = "" THEN t3$ = previousElement$ ELSE t3$ = t3$ + sp + previousElement$ + END IF + previousElement$ = t2$ + GOTO getshrtyp2 END IF - IF t$ = "" THEN a$ = "Expected AS type": GOTO errmes + IF t$ = "" THEN a$ = "Expected SHARED AS type variable-list or SHARED variable-name AS type": GOTO errmes t = typname2typ(t$) IF Error_Happened THEN GOTO errmes @@ -7264,100 +7641,53 @@ DO IF t AND ISREFERENCE THEN t = t - ISREFERENCE tsize = typname2typsize method = 0 - IF (t AND ISUDT) = 0 THEN ts$ = type2symbol$(t$) ELSE t3$ = RTRIM$(udtxcname(t AND 511)) - IF Error_Happened THEN GOTO errmes - l2$ = l2$ + sp + t3$ - - END IF 'as - - IF LEN(s$) <> 0 AND LEN(t$) <> 0 THEN a$ = "Expected symbol or AS type after variable name": GOTO errmes - - 'no symbol of type specified, apply default - IF s$ = "" AND t$ = "" THEN - IF LEFT$(n$, 1) = "_" THEN v = 27 ELSE v = ASC(UCASE$(n$)) - 64 - s$ = defineextaz(v) - END IF - - 'switch to main module - oldsubfunc$ = subfunc$ - subfunc$ = "" - defdatahandle = 18 - CLOSE #13: OPEN tmpdir$ + "maindata.txt" FOR APPEND AS #13 - CLOSE #19: OPEN tmpdir$ + "mainfree.txt" FOR APPEND AS #19 - - 'use 'try' to locate the variable (if it already exists) - n2$ = n$ + s$ + ts$ 'note: either ts$ or s$ will exist unless it is a UDT - try = findid(n2$) - IF Error_Happened THEN GOTO errmes - DO WHILE try - IF a THEN - 'an array - - IF id.arraytype THEN - IF LEN(t$) = 0 THEN GOTO shrfound - t2 = id.arraytype: t2size = id.tsize - IF t2 AND ISINCONVENTIONALMEMORY THEN t2 = t2 - ISINCONVENTIONALMEMORY - IF t2 AND ISPOINTER THEN t2 = t2 - ISPOINTER - IF t2 AND ISREFERENCE THEN t2 = t2 - ISREFERENCE - IF t = t2 AND tsize = t2size THEN GOTO shrfound - END IF - + IF (t AND ISUDT) = 0 THEN + ts$ = type2symbol$(t$) + l2$ = l2$ + sp + SCase2$(t3$) ELSE - 'not an array - - IF id.t THEN - IF LEN(t$) = 0 THEN GOTO shrfound - t2 = id.t: t2size = id.tsize - IF t2 AND ISINCONVENTIONALMEMORY THEN t2 = t2 - ISINCONVENTIONALMEMORY - IF t2 AND ISPOINTER THEN t2 = t2 - ISPOINTER - IF t2 AND ISREFERENCE THEN t2 = t2 - ISREFERENCE - - IF Debug THEN PRINT #9, "SHARED:comparing:"; t; t2, tsize; t2size - - IF t = t2 AND tsize = t2size THEN GOTO shrfound + t3$ = RTRIM$(udtxcname(t AND 511)) + IF RTRIM$(udtxcname(t AND 511)) = "_MEM" AND UCASE$(t$) = "MEM" AND qb64prefix_set = 1 THEN + t3$ = MID$(RTRIM$(udtxcname(t AND 511)), 2) END IF - + l2$ = l2$ + sp + t3$ END IF - - IF try = 2 THEN findanotherid = 1: try = findid(n2$) ELSE try = 0 IF Error_Happened THEN GOTO errmes - LOOP - 'unknown variable - IF a THEN a$ = "Array '" + n$ + "' not defined": GOTO errmes - 'create variable - IF LEN(s$) THEN typ$ = s$ ELSE typ$ = t$ - IF optionexplicit THEN a$ = "Variable '" + n$ + "' (" + symbol2fulltypename$(typ$) + ") not defined": GOTO errmes - bypassNextVariable = -1 - retval = dim2(n$, typ$, method, "") - IF Error_Happened THEN GOTO errmes - 'note: variable created! - shrfound: - l$ = l$ + sp + RTRIM$(id.cn) + l2$ - - ids(currentid).share = ids(currentid).share OR 2 'set as temporarily shared - - 'method must apply to the current sub/function regardless of how the variable was defined in 'main' - lmay = LEN(RTRIM$(id.mayhave)): lmust = LEN(RTRIM$(id.musthave)) - IF lmay <> 0 OR lmust <> 0 THEN - IF (method = 1 AND lmust = 0) OR (method = 0 AND lmay = 0) THEN - revertmaymusthaven = revertmaymusthaven + 1 - revertmaymusthave(revertmaymusthaven) = currentid - SWAP ids(currentid).musthave, ids(currentid).mayhave + subfuncshr2: + s$ = removesymbol(n$) + IF Error_Happened THEN GOTO errmes + IF s$ <> "" THEN + a$ = "Cannot use type symbol with SHARED AS type variable-list (" + s$ + ")" + GOTO errmes END IF + + 'array? + a = 0 + l3$ = "" + IF getelement$(a$, i) = "(" THEN + IF getelement$(a$, i + 1) <> ")" THEN a$ = "Expected ()": GOTO errmes + i = i + 2 + a = 1 + l3$ = sp2 + "(" + sp2 + ")" + END IF + + newSharedSyntax = -1 + GOSUB NormalSharedBlock + newSharedSyntax = 0 + + IF getelement$(a$, i) = "," THEN + i = i + 1 + l$ = l$ + sp2 + "," + + 'get next variable name + n$ = getelement$(ca$, i): i = i + 1 + GOTO subfuncshr2 + END IF + IF getelement$(a$, i) <> "" THEN a$ = "Expected ,": GOTO errmes + + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + GOTO finishedline END IF - - 'switch back to sub/func - subfunc$ = oldsubfunc$ - defdatahandle = 13 - CLOSE #13: OPEN tmpdir$ + "data" + str2$(subfuncn) + ".txt" FOR APPEND AS #13 - CLOSE #19: OPEN tmpdir$ + "free" + str2$(subfuncn) + ".txt" FOR APPEND AS #19 - - IF getelement$(a$, i) = "," THEN i = i + 1: l$ = l$ + sp2 + ",": GOTO subfuncshr - IF getelement$(a$, i) <> "" THEN a$ = "Expected ,": GOTO errmes - - layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ - GOTO finishedline END IF END IF @@ -7369,10 +7699,11 @@ DO IF secondelement$ = "SUB" THEN sf = 2 IF sf THEN - IF LEN(subfunc) = 0 THEN a$ = "EXIT " + secondelement$ + " must be used within a SUB/FUNCTION": GOTO errmes + IF LEN(subfunc) = 0 THEN a$ = "EXIT " + secondelement$ + " must be used within a " + secondelement$: GOTO errmes PRINT #12, "goto exit_subfunc;" - l$ = firstelement$ + sp + secondelement$ + IF LEFT$(subfunc, 4) = "SUB_" THEN secondelement$ = SCase$("Sub") ELSE secondelement$ = SCase$("Function") + l$ = SCase$("Exit") + sp + secondelement$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline END IF @@ -7381,9 +7712,9 @@ DO '_ECHO checking - IF firstelement$ = "_ECHO" THEN + IF firstelement$ = "_ECHO" OR (firstelement$ = "ECHO" AND qb64prefix_set = 1) THEN IF Console = 0 THEN - a$ = "_ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first": GOTO errmes + a$ = qb64prefix$ + "ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first": GOTO errmes END IF END IF @@ -7446,7 +7777,7 @@ DO 'validate stringvariable$ stringvariable$ = fixoperationorder$(stringvariable$) IF Error_Happened THEN GOTO errmes - l$ = "ASC" + sp2 + "(" + sp2 + tlayout$ + l$ = SCase$("Asc") + sp2 + "(" + sp2 + tlayout$ e$ = evaluate(stringvariable$, sourcetyp) IF Error_Happened THEN GOTO errmes @@ -7536,12 +7867,12 @@ DO midgotpart: i = i + 1 LOOP - IF stringvariable$ = "" THEN a$ = "Syntax error": GOTO errmes - IF start$ = "" THEN a$ = "Syntax error": GOTO errmes + IF stringvariable$ = "" THEN a$ = "Syntax error - first parameter must be a string variable/array-element": GOTO errmes + IF start$ = "" THEN a$ = "Syntax error - second parameter not optional": GOTO errmes 'check if it is a valid source string stringvariable$ = fixoperationorder$(stringvariable$) IF Error_Happened THEN GOTO errmes - l$ = "MID$" + sp2 + "(" + sp2 + tlayout$ + l$ = SCase$("Mid$") + sp2 + "(" + sp2 + tlayout$ e$ = evaluate(stringvariable$, sourcetyp) IF Error_Happened THEN GOTO errmes IF (sourcetyp AND ISREFERENCE) = 0 OR (sourcetyp AND ISSTRING) = 0 THEN a$ = "MID$ expects a string variable/array-element as its first argument": GOTO errmes @@ -7580,7 +7911,7 @@ DO IF n >= 2 THEN IF firstelement$ = "ERASE" THEN i = 2 - l$ = "ERASE" + l$ = SCase$("Erase") erasenextarray: var$ = getelement$(ca$, i) x$ = var$: ls$ = removesymbol(x$) @@ -7682,25 +8013,29 @@ DO 'DIM/REDIM/STATIC IF n >= 2 THEN dimoption = 0: redimoption = 0: commonoption = 0 - IF firstelement$ = "DIM" THEN dimoption = 1 + IF firstelement$ = "DIM" THEN l$ = SCase$("Dim"): dimoption = 1 IF firstelement$ = "REDIM" THEN + l$ = SCase$("ReDim") dimoption = 2: redimoption = 1 - IF secondelement$ = "_PRESERVE" THEN + IF secondelement$ = "_PRESERVE" OR (secondelement$ = "PRESERVE" AND qb64prefix_set = 1) THEN redimoption = 2 - IF n = 2 THEN a$ = "Expected REDIM _PRESERVE ...": GOTO errmes + IF secondelement$ = "_PRESERVE" THEN + l$ = l$ + sp + SCase$("_Preserve") + ELSE + l$ = l$ + sp + SCase$("Preserve") + END IF + IF n = 2 THEN a$ = "Expected REDIM " + qb64prefix$ + "PRESERVE ...": GOTO errmes END IF END IF - IF firstelement$ = "STATIC" THEN dimoption = 3 - IF firstelement$ = "COMMON" THEN dimoption = 1: commonoption = 1 + IF firstelement$ = "STATIC" THEN l$ = SCase$("Static"): dimoption = 3 + IF firstelement$ = "COMMON" THEN l$ = SCase$("Common"): dimoption = 1: commonoption = 1 IF dimoption THEN - l$ = firstelement$ - IF dimoption = 3 AND subfuncn = 0 THEN a$ = "STATIC must be used within a SUB/FUNCTION": GOTO errmes IF commonoption = 1 AND subfuncn <> 0 THEN a$ = "COMMON cannot be used within a SUB/FUNCTION": GOTO errmes i = 2 - IF redimoption = 2 THEN i = 3: l$ = l$ + sp + "_PRESERVE" + IF redimoption = 2 THEN i = 3 IF dimoption <> 3 THEN 'shared cannot be static a2$ = getelement(a$, i) @@ -7708,559 +8043,684 @@ DO IF subfuncn <> 0 THEN a$ = "DIM/REDIM SHARED invalid within a SUB/FUNCTION": GOTO errmes dimshared = 1 i = i + 1 - l$ = l$ + sp + a2$ + l$ = l$ + sp + SCase$("Shared") END IF END IF IF dimoption = 3 THEN dimstatic = 1: AllowLocalName = 1 - dimnext: - notype = 0 - listarray = 0 + 'look for new dim syntax: DIM AS variabletype var1, var2, etc.... + e$ = getelement$(a$, i) + IF e$ <> "AS" THEN + 'no "AS", so this is the traditional dim syntax + dimnext: + newDimSyntax = 0 + notype = 0 + listarray = 0 - 'old chain code - 'chaincommonarray=0 + 'old chain code + 'chaincommonarray=0 - varname$ = getelement(ca$, i): i = i + 1 - IF varname$ = "" THEN a$ = "Expected variable-name": GOTO errmes + varname$ = getelement(ca$, i): i = i + 1 + IF varname$ = "" THEN a$ = "Expected " + firstelement$ + " variable-name or " + firstelement$ + " AS type variable-list": GOTO errmes - 'get the next element - IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1 + 'get the next element + IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1 - 'check if next element is a ( to create an array - elements$ = "" + 'check if next element is a ( to create an array + elements$ = "" - IF e$ = "(" THEN - B = 1 - FOR i = i TO n - e$ = getelement(ca$, i) - IF e$ = "(" THEN B = B + 1 - IF e$ = ")" THEN B = B - 1 - IF B = 0 THEN EXIT FOR - IF LEN(elements$) THEN elements$ = elements$ + sp + e$ ELSE elements$ = e$ - NEXT - IF B <> 0 THEN a$ = "Expected )": GOTO errmes - i = i + 1 'set i to point to the next element + IF e$ = "(" THEN + B = 1 + FOR i = i TO n + e$ = getelement(ca$, i) + IF e$ = "(" THEN B = B + 1 + IF e$ = ")" THEN B = B - 1 + IF B = 0 THEN EXIT FOR + IF LEN(elements$) THEN elements$ = elements$ + sp + e$ ELSE elements$ = e$ + NEXT + IF B <> 0 THEN a$ = "Expected )": GOTO errmes + i = i + 1 'set i to point to the next element - IF commonoption THEN elements$ = "?" + IF commonoption THEN elements$ = "?" - IF Debug THEN PRINT #9, "DIM2:array:elements$:[" + elements$ + "]" + IF Debug THEN PRINT #9, "DIM2:array:elements$:[" + elements$ + "]" - 'arrayname() means list array to it will automatically be static when it is formally dimensioned later - 'note: listed arrays are always created in dynamic memory, but their contents are not erased - ' this differs from static arrays from SUB...STATIC and the unique QB64 method -> STATIC arrayname(100) - IF dimoption = 3 THEN 'STATIC used - IF LEN(elements$) = 0 THEN 'nothing between brackets - listarray = 1 'add to static list + 'arrayname() means list array to it will automatically be static when it is formally dimensioned later + 'note: listed arrays are always created in dynamic memory, but their contents are not erased + ' this differs from static arrays from SUB...STATIC and the unique QB64 method -> STATIC arrayname(100) + IF dimoption = 3 THEN 'STATIC used + IF LEN(elements$) = 0 THEN 'nothing between brackets + listarray = 1 'add to static list + END IF + END IF + + 'last element was ")" + 'get next element + IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1 + END IF 'e$="(" + d$ = e$ + + dimmethod = 0 + + appendname$ = "" 'the symbol to append to name returned by dim2 + appendtype$ = "" 'eg. sp+AS+spINTEGER + dim2typepassback$ = "" + + 'does varname have an appended symbol? + s$ = removesymbol$(varname$) + IF Error_Happened THEN GOTO errmes + IF validname(varname$) = 0 THEN a$ = "Invalid variable name": GOTO errmes + + IF s$ <> "" THEN + typ$ = s$ + dimmethod = 1 + appendname$ = typ$ + GOTO dimgottyp + END IF + + IF d$ = "AS" THEN + appendtype$ = sp + SCase$("As") + typ$ = "" + FOR i = i TO n + d$ = getelement(a$, i) + IF d$ = "," THEN i = i + 1: EXIT FOR + typ$ = typ$ + d$ + " " + appendtype$ = appendtype$ + sp + d$ + d$ = "" + NEXT + appendtype$ = SCase2$(appendtype$) 'capitalise default types (udt override this later if necessary) + typ$ = RTRIM$(typ$) + GOTO dimgottyp + END IF + + 'auto-define type based on name + notype = 1 + IF LEFT$(varname$, 1) = "_" THEN v = 27 ELSE v = ASC(UCASE$(varname$)) - 64 + typ$ = defineaz(v) + dimmethod = 1 + GOTO dimgottyp + + dimgottyp: + IF d$ <> "" AND d$ <> "," THEN a$ = "DIM: Expected ,": GOTO errmes + + 'In QBASIC, if no type info is given it can refer to an expeicit/formally defined array + IF notype <> 0 AND dimoption <> 3 AND dimoption <> 1 THEN 'not DIM or STATIC which only create new content + IF LEN(elements$) THEN 'an array + IF FindArray(varname$) THEN + IF LEN(RTRIM$(id.mayhave)) THEN 'explict/formally defined + typ$ = id2fulltypename$ 'adopt type + dimmethod = 0 'set as formally defined + END IF + END IF END IF END IF - 'last element was ")" - 'get next element - IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1 - END IF 'e$="(" - d$ = e$ + NormalDimBlock: + IF dimoption = 3 AND LEN(elements$) THEN 'eg. STATIC a(100) + 'does a conflicting array exist? (use findarray) if so again this should lead to duplicate definition + typ2$ = symbol2fulltypename$(typ$) + t = typname2typ(typ2$): ts = typname2typsize + 'try name without any extension + IF FindArray(varname$) THEN 'name without any symbol + IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static + IF LEN(RTRIM$(id.musthave)) THEN + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes + END IF + END IF + ELSE + IF dimmethod = 0 THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes 'explicit over explicit + ELSE + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes + END IF + END IF + END IF + END IF + END IF + END IF + 'add extension (if possible) + IF (t AND ISUDT) = 0 THEN + s2$ = type2symbol$(typ2$) + IF Error_Happened THEN GOTO errmes + IF FindArray(varname$ + s2$) THEN + IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static + IF LEN(RTRIM$(id.musthave)) THEN + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes + END IF + END IF + ELSE + IF dimmethod = 0 THEN + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes 'explicit over explicit + ELSE + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes + END IF + END IF + END IF + END IF + END IF + END IF + END IF 'not a UDT + END IF - dimmethod = 0 + IF listarray THEN 'eg. STATIC a() + 'note: list is cleared by END SUB/FUNCTION - appendname$ = "" 'the symbol to append to name returned by dim2 - appendtype$ = "" 'eg. sp+AS+spINTEGER - dim2typepassback$ = "" + 'is a conflicting array already listed? if so this should cause a duplicate definition error + 'check for conflict within list: + xi = 1 + FOR x = 1 TO staticarraylistn + varname2$ = getelement$(staticarraylist, xi): xi = xi + 1 + typ2$ = getelement$(staticarraylist, xi): xi = xi + 1 + dimmethod2 = VAL(getelement$(staticarraylist, xi)): xi = xi + 1 + 'check if they are similar + IF UCASE$(varname$) = UCASE$(varname2$) THEN + IF dimmethod2 = 1 THEN + 'old using symbol + IF symbol2fulltypename$(typ$) = typ2$ THEN a$ = "Name already in use (" + varname$ + ")": GOTO errmes + ELSE + 'old using AS + IF dimmethod = 0 THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes + ELSE + IF symbol2fulltypename$(typ$) = typ2$ THEN a$ = "Name already in use (" + varname$ + ")": GOTO errmes + END IF + END IF + END IF + NEXT - 'does varname have an appended symbol? - s$ = removesymbol$(varname$) - IF Error_Happened THEN GOTO errmes - IF validname(varname$) = 0 THEN a$ = "Invalid variable name": GOTO errmes + 'does a conflicting array exist? (use findarray) if so again this should lead to duplicate definition + typ2$ = symbol2fulltypename$(typ$) + t = typname2typ(typ2$): ts = typname2typsize + 'try name without any extension + IF FindArray(varname$) THEN 'name without any symbol + IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static + IF LEN(RTRIM$(id.musthave)) THEN + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes + END IF + END IF + ELSE + IF dimmethod = 0 THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes 'explicit over explicit + ELSE + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + ")": GOTO errmes + END IF + END IF + END IF + END IF + END IF + END IF + 'add extension (if possible) + IF (t AND ISUDT) = 0 THEN + s2$ = type2symbol$(typ2$) + IF Error_Happened THEN GOTO errmes + IF FindArray(varname$ + s2$) THEN + IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static + IF LEN(RTRIM$(id.musthave)) THEN + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes + END IF + END IF + ELSE + IF dimmethod = 0 THEN + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes 'explicit over explicit + ELSE + 'if types match then fail + IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN + IF ts = id.tsize THEN + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes + END IF + END IF + END IF + END IF + END IF + END IF + END IF 'not a UDT - IF s$ <> "" THEN - typ$ = s$ - dimmethod = 1 - appendname$ = typ$ - GOTO dimgottyp - END IF + 'note: static list arrays cannot be created until they are formally [or informally] (RE)DIM'd later + IF LEN(staticarraylist) THEN staticarraylist = staticarraylist + sp + staticarraylist = staticarraylist + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + IF Error_Happened THEN GOTO errmes + staticarraylistn = staticarraylistn + 1 + l$ = l$ + sp + varname$ + appendname$ + sp2 + "(" + sp2 + ")" + appendtype$ + 'note: none of the following code is run, dim2 call is also skipped - IF d$ = "AS" THEN - appendtype$ = sp + "AS" + ELSE + + olddimstatic = dimstatic + + 'check if varname is on the static list + IF LEN(elements$) THEN 'it's an array + IF subfuncn THEN 'it's in a sub/function + xi = 1 + FOR x = 1 TO staticarraylistn + varname2$ = getelement$(staticarraylist, xi): xi = xi + 1 + typ2$ = getelement$(staticarraylist, xi): xi = xi + 1 + dimmethod2 = VAL(getelement$(staticarraylist, xi)): xi = xi + 1 + 'check if they are similar + IF UCASE$(varname$) = UCASE$(varname2$) THEN + IF symbol2fulltypename$(typ$) = typ2$ THEN + IF Error_Happened THEN GOTO errmes + IF dimmethod = dimmethod2 THEN + 'match found! + varname$ = varname2$ + dimstatic = 3 + IF dimoption = 3 THEN a$ = "Array already listed as STATIC": GOTO errmes + END IF + END IF 'typ + END IF 'varname + NEXT + END IF + END IF + + 'COMMON exception + 'note: COMMON alone does not imply SHARED + ' if either(or both) COMMON & later DIM have SHARED, variable becomes shared + IF commonoption THEN + IF LEN(elements$) THEN + + 'add array to list + IF LEN(commonarraylist) THEN commonarraylist = commonarraylist + sp + 'note: dimmethod distinguishes between a%(...) vs a(...) AS INTEGER + commonarraylist = commonarraylist + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + sp + str2(dimshared) + IF Error_Happened THEN GOTO errmes + commonarraylistn = commonarraylistn + 1 + IF Debug THEN PRINT #9, "common listed:" + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + sp + str2(dimshared) + IF Error_Happened THEN GOTO errmes + + x = 0 + + v$ = varname$ + IF dimmethod = 1 THEN v$ = v$ + typ$ + try = findid(v$) + IF Error_Happened THEN GOTO errmes + DO WHILE try + IF id.arraytype THEN + + t = typname2typ(typ$) + IF Error_Happened THEN GOTO errmes + s = typname2typsize + match = 1 + 'note: dimmethod 2 is already matched + IF dimmethod = 0 THEN + t2 = id.arraytype + s2 = id.tsize + IF (t AND ISFLOAT) <> (t2 AND ISFLOAT) THEN match = 0 + IF (t AND ISUNSIGNED) <> (t2 AND ISUNSIGNED) THEN match = 0 + IF (t AND ISSTRING) <> (t2 AND ISSTRING) THEN match = 0 + IF (t AND ISFIXEDLENGTH) <> (t2 AND ISFIXEDLENGTH) THEN match = 0 + IF (t AND ISOFFSETINBITS) <> (t2 AND ISOFFSETINBITS) THEN match = 0 + IF (t AND ISUDT) <> (t2 AND ISUDT) THEN match = 0 + IF (t AND 511) <> (t2 AND 511) THEN match = 0 + IF s <> s2 THEN match = 0 + 'check for implicit/explicit declaration match + oldmethod = 0: IF LEN(RTRIM$(id.musthave)) THEN oldmethod = 1 + IF oldmethod <> dimmethod THEN match = 0 + END IF + + IF match THEN + x = currentid + IF dimshared THEN ids(x).share = 1 'share if necessary + tlayout$ = RTRIM$(id.cn) + sp + "(" + sp2 + ")" + + IF dimmethod = 0 THEN + IF t AND ISUDT THEN + dim2typepassback$ = RTRIM$(udtxcname(t AND 511)) + IF UCASE$(typ$) = "MEM" AND qb64prefix_set = 1 AND RTRIM$(udtxcname(t AND 511)) = "_MEM" THEN + dim2typepassback$ = MID$(RTRIM$(udtxcname(t AND 511)), 2) + END IF + ELSE + dim2typepassback$ = typ$ + DO WHILE INSTR(dim2typepassback$, " ") + ASC(dim2typepassback$, INSTR(dim2typepassback$, " ")) = ASC(sp) + LOOP + dim2typepassback$ = SCase2$(dim2typepassback$) + END IF + END IF 'method 0 + + EXIT DO + END IF 'match + + END IF 'arraytype + IF try = 2 THEN findanotherid = 1: try = findid(v$) ELSE try = 0 + IF Error_Happened THEN GOTO errmes + LOOP + + IF x = 0 THEN x = idn + 1 + + 'note: the following code only adds include directives, everything else is defered + OPEN tmpdir$ + "chain.txt" FOR APPEND AS #22 + 'include directive + PRINT #22, "#include " + CHR$(34) + "chain" + str2$(x) + ".txt" + CHR$(34) + CLOSE #22 + 'create/clear include file + OPEN tmpdir$ + "chain" + str2$(x) + ".txt" FOR OUTPUT AS #22: CLOSE #22 + + OPEN tmpdir$ + "inpchain.txt" FOR APPEND AS #22 + 'include directive + PRINT #22, "#include " + CHR$(34) + "inpchain" + str2$(x) + ".txt" + CHR$(34) + CLOSE #22 + 'create/clear include file + OPEN tmpdir$ + "inpchain" + str2$(x) + ".txt" FOR OUTPUT AS #22: CLOSE #22 + + 'note: elements$="?" + IF x <> idn + 1 THEN GOTO skipdim 'array already exists + GOTO dimcommonarray + + END IF + END IF + + 'is varname on common list? + '****** + IF LEN(elements$) THEN 'it's an array + IF subfuncn = 0 THEN 'not in a sub/function + + IF Debug THEN PRINT #9, "common checking:" + varname$ + + xi = 1 + FOR x = 1 TO commonarraylistn + varname2$ = getelement$(commonarraylist, xi): xi = xi + 1 + typ2$ = getelement$(commonarraylist, xi): xi = xi + 1 + dimmethod2 = VAL(getelement$(commonarraylist, xi)): xi = xi + 1 + dimshared2 = VAL(getelement$(commonarraylist, xi)): xi = xi + 1 + IF Debug THEN PRINT #9, "common checking against:" + varname2$ + sp + typ2$ + sp + str2(dimmethod2) + sp + str2(dimshared2) + 'check if they are similar + IF varname$ = varname2$ THEN + IF symbol2fulltypename$(typ$) = typ2$ THEN + IF Error_Happened THEN GOTO errmes + IF dimmethod = dimmethod2 THEN + + 'match found! + 'enforce shared status (if necessary) + IF dimshared2 THEN dimshared = dimshared OR 2 'temp force SHARED + + 'old chain code + 'chaincommonarray=x + + END IF 'method + END IF 'typ + END IF 'varname + NEXT + END IF + END IF + + dimcommonarray: + retval = dim2(varname$, typ$, dimmethod, elements$) + IF Error_Happened THEN GOTO errmes + skipdim: + IF dimshared >= 2 THEN dimshared = dimshared - 2 + + 'non-array COMMON variable + IF commonoption <> 0 AND LEN(elements$) = 0 THEN + + 'CHAIN.TXT (save) + + use_global_byte_elements = 1 + + 'switch output from main.txt to chain.txt + CLOSE #12 + OPEN tmpdir$ + "chain.txt" FOR APPEND AS #12 + l2$ = tlayout$ + + PRINT #12, "int32val=1;" 'simple variable + PRINT #12, "sub_put(FF,NULL,byte_element((uint64)&int32val,4," + NewByteElement$ + "),0);" + + t = id.t + bits = t AND 511 + IF t AND ISUDT THEN bits = udtxsize(t AND 511) + IF t AND ISSTRING THEN + IF t AND ISFIXEDLENGTH THEN + bits = id.tsize * 8 + ELSE + PRINT #12, "int64val=__STRING_" + RTRIM$(id.n) + "->len*8;" + bits = 0 + END IF + END IF + + IF bits THEN + PRINT #12, "int64val=" + str2$(bits) + ";" 'size in bits + END IF + PRINT #12, "sub_put(FF,NULL,byte_element((uint64)&int64val,8," + NewByteElement$ + "),0);" + + 'put the variable + e$ = RTRIM$(id.n) + + IF (t AND ISUDT) = 0 THEN + IF t AND ISFIXEDLENGTH THEN + e$ = e$ + "$" + str2$(id.tsize) + ELSE + e$ = e$ + typevalue2symbol$(t) + IF Error_Happened THEN GOTO errmes + END IF + END IF + e$ = evaluatetotyp(fixoperationorder$(e$), -4) + IF Error_Happened THEN GOTO errmes + + PRINT #12, "sub_put(FF,NULL," + e$ + ",0);" + + tlayout$ = l2$ + 'revert output to main.txt + CLOSE #12 + OPEN tmpdir$ + "main.txt" FOR APPEND AS #12 + + + 'INPCHAIN.TXT (load) + + 'switch output from main.txt to chain.txt + CLOSE #12 + OPEN tmpdir$ + "inpchain.txt" FOR APPEND AS #12 + l2$ = tlayout$ + + + PRINT #12, "if (int32val==1){" + 'get the size in bits + PRINT #12, "sub_get(FF,NULL,byte_element((uint64)&int64val,8," + NewByteElement$ + "),0);" + '***assume correct size*** + + e$ = RTRIM$(id.n) + t = id.t + IF (t AND ISUDT) = 0 THEN + IF t AND ISFIXEDLENGTH THEN + e$ = e$ + "$" + str2$(id.tsize) + ELSE + e$ = e$ + typevalue2symbol$(t) + IF Error_Happened THEN GOTO errmes + END IF + END IF + + IF t AND ISSTRING THEN + IF (t AND ISFIXEDLENGTH) = 0 THEN + PRINT #12, "tqbs=qbs_new(int64val>>3,1);" + PRINT #12, "qbs_set(__STRING_" + RTRIM$(id.n) + ",tqbs);" + 'now that the string is the correct size, the following GET command will work correctly... + END IF + END IF + + e$ = evaluatetotyp(fixoperationorder$(e$), -4) + IF Error_Happened THEN GOTO errmes + PRINT #12, "sub_get(FF,NULL," + e$ + ",0);" + + PRINT #12, "sub_get(FF,NULL,byte_element((uint64)&int32val,4," + NewByteElement$ + "),0);" 'get next command + PRINT #12, "}" + + tlayout$ = l2$ + 'revert output to main.txt + CLOSE #12 + OPEN tmpdir$ + "main.txt" FOR APPEND AS #12 + + use_global_byte_elements = 0 + + END IF + + commonarraylisted: + + IF LEN(appendtype$) > 0 AND newDimSyntax = -1 THEN + IF LEN(dim2typepassback$) THEN appendtype$ = sp + SCase$("As") + sp + dim2typepassback$ + IF newDimSyntaxTypePassBack = 0 THEN + newDimSyntaxTypePassBack = -1 + l$ = l$ + appendtype$ + END IF + END IF + + n2 = numelements(tlayout$) + l$ = l$ + sp + getelement$(tlayout$, 1) + appendname$ + IF n2 > 1 THEN + l$ = l$ + sp2 + getelements$(tlayout$, 2, n2) + END IF + + IF LEN(appendtype$) > 0 AND newDimSyntax = 0 THEN + IF LEN(dim2typepassback$) THEN appendtype$ = sp + SCase$("As") + sp + dim2typepassback$ + l$ = l$ + appendtype$ + END IF + + 'modify first element name to include symbol + + dimstatic = olddimstatic + + END IF 'listarray=0 + + IF newDimSyntax THEN RETURN + + IF d$ = "," THEN l$ = l$ + sp2 + ",": GOTO dimnext + + dimoption = 0 + dimshared = 0 + redimoption = 0 + IF dimstatic = 1 THEN dimstatic = 0 + AllowLocalName = 0 + + layoutdone = 1 + IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ + + GOTO finishedline + ELSE + 'yes, this is the new dim syntax. + i = i + 1 'skip "AS" + newDimSyntaxTypePassBack = 0 + + 'estabilish the data type: + appendname$ = "" + appendtype$ = sp + SCase$("As") typ$ = "" + varname$ = "" + previousElement$ = "" FOR i = i TO n d$ = getelement(a$, i) - IF d$ = "," THEN i = i + 1: EXIT FOR - typ$ = typ$ + d$ + " " - appendtype$ = appendtype$ + sp + d$ + IF d$ = "," OR d$ = "(" THEN EXIT FOR + varname$ = getelement(ca$, i) + IF LEN(previousElement$) THEN + typ$ = typ$ + previousElement$ + " " + appendtype$ = appendtype$ + sp + previousElement$ + END IF + previousElement$ = d$ d$ = "" NEXT - appendtype$ = UCASE$(appendtype$) 'capitalise default types (udt override this later if necessary) + appendtype$ = SCase2$(appendtype$) 'capitalise default types (udt override this later if necessary) typ$ = RTRIM$(typ$) - GOTO dimgottyp - END IF - 'auto-define type based on name - notype = 1 - IF LEFT$(varname$, 1) = "_" THEN v = 27 ELSE v = ASC(UCASE$(varname$)) - 64 - typ$ = defineaz(v) - dimmethod = 1 - GOTO dimgottyp + dimnext2: + notype = 0 + listarray = 0 - dimgottyp: - IF d$ <> "" AND d$ <> "," THEN a$ = "DIM: Expected comma!": GOTO errmes + IF typ$ = "" OR varname$ = "" THEN a$ = "Expected " + firstelement$ + " AS type variable-list or " + firstelement$ + " variable-name AS type": GOTO errmes - 'In QBASIC, if no type info is given it can refer to an expeicit/formally defined array - IF notype <> 0 AND dimoption <> 3 AND dimoption <> 1 THEN 'not DIM or STATIC which only create new content - IF LEN(elements$) THEN 'an array - IF FindArray(varname$) THEN - IF LEN(RTRIM$(id.mayhave)) THEN 'explict/formally defined - typ$ = id2fulltypename$ 'adopt type - dimmethod = 0 'set as formally defined + 'get the next element + IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1 + + 'check if next element is a ( to create an array + elements$ = "" + + IF e$ = "(" THEN + B = 1 + FOR i = i TO n + e$ = getelement(ca$, i) + IF e$ = "(" THEN B = B + 1 + IF e$ = ")" THEN B = B - 1 + IF B = 0 THEN EXIT FOR + IF LEN(elements$) THEN elements$ = elements$ + sp + e$ ELSE elements$ = e$ + NEXT + IF B <> 0 THEN a$ = "Expected )": GOTO errmes + i = i + 1 'set i to point to the next element + + IF commonoption THEN elements$ = "?" + + + IF Debug THEN PRINT #9, "DIM2:array:elements$:[" + elements$ + "]" + + 'arrayname() means list array to it will automatically be static when it is formally dimensioned later + 'note: listed arrays are always created in dynamic memory, but their contents are not erased + ' this differs from static arrays from SUB...STATIC and the unique QB64 method -> STATIC arrayname(100) + IF dimoption = 3 THEN 'STATIC used + IF LEN(elements$) = 0 THEN 'nothing between brackets + listarray = 1 'add to static list END IF END IF - END IF - END IF - IF dimoption = 3 AND LEN(elements$) THEN 'eg. STATIC a(100) - 'does a conflicting array exist? (use findarray) if so again this should lead to duplicate definition - typ2$ = symbol2fulltypename$(typ$) - t = typname2typ(typ2$): ts = typname2typsize - 'try name without any extension - IF FindArray(varname$) THEN 'name without any symbol - IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static - IF LEN(RTRIM$(id.musthave)) THEN - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - ELSE - IF dimmethod = 0 THEN - a$ = "Name already in use": GOTO errmes 'explicit over explicit - ELSE - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - END IF - END IF - END IF - END IF - 'add extension (if possible) - IF (t AND ISUDT) = 0 THEN - s2$ = type2symbol$(typ2$) - IF Error_Happened THEN GOTO errmes - IF FindArray(varname$ + s2$) THEN - IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static - IF LEN(RTRIM$(id.musthave)) THEN - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - ELSE - IF dimmethod = 0 THEN - a$ = "Name already in use": GOTO errmes 'explicit over explicit - ELSE - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - END IF - END IF - END IF - END IF - END IF 'not a UDT - END IF + 'last element was ")" + 'get next element + IF i >= n + 1 THEN e$ = "" ELSE e$ = getelement(a$, i): i = i + 1 + END IF 'e$="(" + d$ = e$ - IF listarray THEN 'eg. STATIC a() - 'note: list is cleared by END SUB/FUNCTION + dimmethod = 0 - 'is a conflicting array already listed? if so this should cause a duplicate definition error - 'check for conflict within list: - xi = 1 - FOR x = 1 TO staticarraylistn - varname2$ = getelement$(staticarraylist, xi): xi = xi + 1 - typ2$ = getelement$(staticarraylist, xi): xi = xi + 1 - dimmethod2 = VAL(getelement$(staticarraylist, xi)): xi = xi + 1 - 'check if they are similar - IF UCASE$(varname$) = UCASE$(varname2$) THEN - IF dimmethod2 = 1 THEN - 'old using symbol - IF symbol2fulltypename$(typ$) = typ2$ THEN a$ = "Name already in use": GOTO errmes - ELSE - 'old using AS - IF dimmethod = 0 THEN - a$ = "Name already in use": GOTO errmes - ELSE - IF symbol2fulltypename$(typ$) = typ2$ THEN a$ = "Name already in use": GOTO errmes - END IF - END IF - END IF - NEXT + dim2typepassback$ = "" - 'does a conflicting array exist? (use findarray) if so again this should lead to duplicate definition - typ2$ = symbol2fulltypename$(typ$) - t = typname2typ(typ2$): ts = typname2typsize - 'try name without any extension - IF FindArray(varname$) THEN 'name without any symbol - IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static - IF LEN(RTRIM$(id.musthave)) THEN - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - ELSE - IF dimmethod = 0 THEN - a$ = "Name already in use": GOTO errmes 'explicit over explicit - ELSE - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - END IF - END IF - END IF - END IF - 'add extension (if possible) - IF (t AND ISUDT) = 0 THEN - s2$ = type2symbol$(typ2$) - IF Error_Happened THEN GOTO errmes - IF FindArray(varname$ + s2$) THEN - IF id.insubfuncn = subfuncn THEN 'global cannot conflict with static - IF LEN(RTRIM$(id.musthave)) THEN - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - ELSE - IF dimmethod = 0 THEN - a$ = "Name already in use": GOTO errmes 'explicit over explicit - ELSE - 'if types match then fail - IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN - IF ts = id.tsize THEN - a$ = "Name already in use": GOTO errmes - END IF - END IF - END IF - END IF - END IF - END IF - END IF 'not a UDT - - 'note: static list arrays cannot be created until they are formally [or informally] (RE)DIM'd later - IF LEN(staticarraylist) THEN staticarraylist = staticarraylist + sp - staticarraylist = staticarraylist + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + 'does varname have an appended symbol? + s$ = removesymbol$(varname$) IF Error_Happened THEN GOTO errmes - staticarraylistn = staticarraylistn + 1 - l$ = l$ + sp + varname$ + appendname$ + sp2 + "(" + sp2 + ")" + appendtype$ - 'note: none of the following code is run, dim2 call is also skipped + IF validname(varname$) = 0 THEN a$ = "Invalid variable name": GOTO errmes - ELSE - - olddimstatic = dimstatic - - 'check if varname is on the static list - IF LEN(elements$) THEN 'it's an array - IF subfuncn THEN 'it's in a sub/function - xi = 1 - FOR x = 1 TO staticarraylistn - varname2$ = getelement$(staticarraylist, xi): xi = xi + 1 - typ2$ = getelement$(staticarraylist, xi): xi = xi + 1 - dimmethod2 = VAL(getelement$(staticarraylist, xi)): xi = xi + 1 - 'check if they are similar - IF UCASE$(varname$) = UCASE$(varname2$) THEN - IF symbol2fulltypename$(typ$) = typ2$ THEN - IF Error_Happened THEN GOTO errmes - IF dimmethod = dimmethod2 THEN - 'match found! - varname$ = varname2$ - dimstatic = 3 - IF dimoption = 3 THEN a$ = "Array already listed as STATIC": GOTO errmes - END IF - END IF 'typ - END IF 'varname - NEXT - END IF + IF s$ <> "" THEN + a$ = "Cannot use type symbol with " + firstelement$ + " AS type variable-list (" + s$ + ")" + GOTO errmes END IF - 'COMMON exception - 'note: COMMON alone does not imply SHARED - ' if either(or both) COMMON & later DIM have SHARED, variable becomes shared - IF commonoption THEN - IF LEN(elements$) THEN + IF d$ <> "" AND d$ <> "," THEN a$ = "DIM: Expected ,": GOTO errmes - 'add array to list - IF LEN(commonarraylist) THEN commonarraylist = commonarraylist + sp - 'note: dimmethod distinguishes between a%(...) vs a(...) AS INTEGER - commonarraylist = commonarraylist + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + sp + str2(dimshared) - IF Error_Happened THEN GOTO errmes - commonarraylistn = commonarraylistn + 1 - IF Debug THEN PRINT #9, "common listed:" + varname$ + sp + symbol2fulltypename$(typ$) + sp + str2(dimmethod) + sp + str2(dimshared) - IF Error_Happened THEN GOTO errmes + newDimSyntax = -1 + GOSUB NormalDimBlock + newDimSyntax = 0 - x = 0 - - v$ = varname$ - IF dimmethod = 1 THEN v$ = v$ + typ$ - try = findid(v$) - IF Error_Happened THEN GOTO errmes - DO WHILE try - IF id.arraytype THEN - - t = typname2typ(typ$) - IF Error_Happened THEN GOTO errmes - s = typname2typsize - match = 1 - 'note: dimmethod 2 is already matched - IF dimmethod = 0 THEN - t2 = id.arraytype - s2 = id.tsize - IF (t AND ISFLOAT) <> (t2 AND ISFLOAT) THEN match = 0 - IF (t AND ISUNSIGNED) <> (t2 AND ISUNSIGNED) THEN match = 0 - IF (t AND ISSTRING) <> (t2 AND ISSTRING) THEN match = 0 - IF (t AND ISFIXEDLENGTH) <> (t2 AND ISFIXEDLENGTH) THEN match = 0 - IF (t AND ISOFFSETINBITS) <> (t2 AND ISOFFSETINBITS) THEN match = 0 - IF (t AND ISUDT) <> (t2 AND ISUDT) THEN match = 0 - IF (t AND 511) <> (t2 AND 511) THEN match = 0 - IF s <> s2 THEN match = 0 - 'check for implicit/explicit declaration match - oldmethod = 0: IF LEN(RTRIM$(id.musthave)) THEN oldmethod = 1 - IF oldmethod <> dimmethod THEN match = 0 - END IF - - IF match THEN - x = currentid - IF dimshared THEN ids(x).share = 1 'share if necessary - tlayout$ = RTRIM$(id.cn) + sp + "(" + sp2 + ")" - - IF dimmethod = 0 THEN - IF t AND ISUDT THEN - dim2typepassback$ = RTRIM$(udtxcname(t AND 511)) - ELSE - dim2typepassback$ = typ$ - DO WHILE INSTR(dim2typepassback$, " ") - ASC(dim2typepassback$, INSTR(dim2typepassback$, " ")) = ASC(sp) - LOOP - dim2typepassback$ = UCASE$(dim2typepassback$) - END IF - END IF 'method 0 - - EXIT DO - END IF 'match - - END IF 'arraytype - IF try = 2 THEN findanotherid = 1: try = findid(v$) ELSE try = 0 - IF Error_Happened THEN GOTO errmes - LOOP - - IF x = 0 THEN x = idn + 1 - - 'note: the following code only adds include directives, everything else is defered - OPEN tmpdir$ + "chain.txt" FOR APPEND AS #22 - 'include directive - PRINT #22, "#include " + CHR$(34) + "chain" + str2$(x) + ".txt" + CHR$(34) - CLOSE #22 - 'create/clear include file - OPEN tmpdir$ + "chain" + str2$(x) + ".txt" FOR OUTPUT AS #22: CLOSE #22 - - OPEN tmpdir$ + "inpchain.txt" FOR APPEND AS #22 - 'include directive - PRINT #22, "#include " + CHR$(34) + "inpchain" + str2$(x) + ".txt" + CHR$(34) - CLOSE #22 - 'create/clear include file - OPEN tmpdir$ + "inpchain" + str2$(x) + ".txt" FOR OUTPUT AS #22: CLOSE #22 - - 'note: elements$="?" - IF x <> idn + 1 THEN GOTO skipdim 'array already exists - GOTO dimcommonarray - - END IF + IF d$ = "," THEN + l$ = l$ + sp2 + "," + varname$ = getelement(ca$, i): i = i + 1 + GOTO dimnext2 END IF - 'is varname on common list? - '****** - IF LEN(elements$) THEN 'it's an array - IF subfuncn = 0 THEN 'not in a sub/function + dimoption = 0 + dimshared = 0 + redimoption = 0 + IF dimstatic = 1 THEN dimstatic = 0 + AllowLocalName = 0 - IF Debug THEN PRINT #9, "common checking:" + varname$ + layoutdone = 1 + IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ - xi = 1 - FOR x = 1 TO commonarraylistn - varname2$ = getelement$(commonarraylist, xi): xi = xi + 1 - typ2$ = getelement$(commonarraylist, xi): xi = xi + 1 - dimmethod2 = VAL(getelement$(commonarraylist, xi)): xi = xi + 1 - dimshared2 = VAL(getelement$(commonarraylist, xi)): xi = xi + 1 - IF Debug THEN PRINT #9, "common checking against:" + varname2$ + sp + typ2$ + sp + str2(dimmethod2) + sp + str2(dimshared2) - 'check if they are similar - IF varname$ = varname2$ THEN - IF symbol2fulltypename$(typ$) = typ2$ THEN - IF Error_Happened THEN GOTO errmes - IF dimmethod = dimmethod2 THEN - - 'match found! - 'enforce shared status (if necessary) - IF dimshared2 THEN dimshared = dimshared OR 2 'temp force SHARED - - 'old chain code - 'chaincommonarray=x - - END IF 'method - END IF 'typ - END IF 'varname - NEXT - END IF - END IF - - dimcommonarray: - retval = dim2(varname$, typ$, dimmethod, elements$) - IF Error_Happened THEN GOTO errmes - skipdim: - IF dimshared >= 2 THEN dimshared = dimshared - 2 - - 'non-array COMMON variable - IF commonoption <> 0 AND LEN(elements$) = 0 THEN - - 'CHAIN.TXT (save) - - use_global_byte_elements = 1 - - 'switch output from main.txt to chain.txt - CLOSE #12 - OPEN tmpdir$ + "chain.txt" FOR APPEND AS #12 - l2$ = tlayout$ - - PRINT #12, "int32val=1;" 'simple variable - PRINT #12, "sub_put(FF,NULL,byte_element((uint64)&int32val,4," + NewByteElement$ + "),0);" - - t = id.t - bits = t AND 511 - IF t AND ISUDT THEN bits = udtxsize(t AND 511) - IF t AND ISSTRING THEN - IF t AND ISFIXEDLENGTH THEN - bits = id.tsize * 8 - ELSE - PRINT #12, "int64val=__STRING_" + RTRIM$(id.n) + "->len*8;" - bits = 0 - END IF - END IF - - IF bits THEN - PRINT #12, "int64val=" + str2$(bits) + ";" 'size in bits - END IF - PRINT #12, "sub_put(FF,NULL,byte_element((uint64)&int64val,8," + NewByteElement$ + "),0);" - - 'put the variable - e$ = RTRIM$(id.n) - - IF (t AND ISUDT) = 0 THEN - IF t AND ISFIXEDLENGTH THEN - e$ = e$ + "$" + str2$(id.tsize) - ELSE - e$ = e$ + typevalue2symbol$(t) - IF Error_Happened THEN GOTO errmes - END IF - END IF - e$ = evaluatetotyp(fixoperationorder$(e$), -4) - IF Error_Happened THEN GOTO errmes - - PRINT #12, "sub_put(FF,NULL," + e$ + ",0);" - - tlayout$ = l2$ - 'revert output to main.txt - CLOSE #12 - OPEN tmpdir$ + "main.txt" FOR APPEND AS #12 - - - 'INPCHAIN.TXT (load) - - 'switch output from main.txt to chain.txt - CLOSE #12 - OPEN tmpdir$ + "inpchain.txt" FOR APPEND AS #12 - l2$ = tlayout$ - - - PRINT #12, "if (int32val==1){" - 'get the size in bits - PRINT #12, "sub_get(FF,NULL,byte_element((uint64)&int64val,8," + NewByteElement$ + "),0);" - '***assume correct size*** - - e$ = RTRIM$(id.n) - t = id.t - IF (t AND ISUDT) = 0 THEN - IF t AND ISFIXEDLENGTH THEN - e$ = e$ + "$" + str2$(id.tsize) - ELSE - e$ = e$ + typevalue2symbol$(t) - IF Error_Happened THEN GOTO errmes - END IF - END IF - - IF t AND ISSTRING THEN - IF (t AND ISFIXEDLENGTH) = 0 THEN - PRINT #12, "tqbs=qbs_new(int64val>>3,1);" - PRINT #12, "qbs_set(__STRING_" + RTRIM$(id.n) + ",tqbs);" - 'now that the string is the correct size, the following GET command will work correctly... - END IF - END IF - - e$ = evaluatetotyp(fixoperationorder$(e$), -4) - IF Error_Happened THEN GOTO errmes - PRINT #12, "sub_get(FF,NULL," + e$ + ",0);" - - PRINT #12, "sub_get(FF,NULL,byte_element((uint64)&int32val,4," + NewByteElement$ + "),0);" 'get next command - PRINT #12, "}" - - tlayout$ = l2$ - 'revert output to main.txt - CLOSE #12 - OPEN tmpdir$ + "main.txt" FOR APPEND AS #12 - - use_global_byte_elements = 0 - - END IF - - commonarraylisted: - - n2 = numelements(tlayout$) - l$ = l$ + sp + getelement$(tlayout$, 1) + appendname$ - IF n2 > 1 THEN - l$ = l$ + sp2 + getelements$(tlayout$, 2, n2) - END IF - - IF LEN(appendtype$) THEN - IF LEN(dim2typepassback$) THEN appendtype$ = sp + "AS" + sp + dim2typepassback$ - l$ = l$ + appendtype$ - END IF - - 'modify first element name to include symbol - - dimstatic = olddimstatic - - END IF 'listarray=0 - - IF d$ = "," THEN l$ = l$ + sp2 + ",": GOTO dimnext - - dimoption = 0 - dimshared = 0 - redimoption = 0 - IF dimstatic = 1 THEN dimstatic = 0 - AllowLocalName = 0 - - layoutdone = 1 - IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ - - GOTO finishedline + GOTO finishedline + END IF END IF END IF @@ -8286,7 +8746,7 @@ DO 'goto IF n = 2 THEN IF getelement$(a$, 1) = "GOTO" THEN - l$ = "GOTO" + l$ = SCase$("GoTo") a2$ = getelement$(ca$, 2) THENGOTO: IF validlabel(a2$) = 0 THEN a$ = "Invalid label!": GOTO errmes @@ -8324,8 +8784,8 @@ DO END IF IF n = 1 THEN - IF firstelement$ = "_CONTINUE" THEN - l$ = "_CONTINUE" + IF firstelement$ = "_CONTINUE" OR (firstelement$ = "CONTINUE" AND qb64prefix_set = 1) THEN + IF firstelement$ = "_CONTINUE" THEN l$ = SCase$("_Continue") ELSE l$ = SCase$("Continue") 'scan backwards until previous control level reached FOR i = controllevel TO 1 STEP -1 t = controltype(i) @@ -8343,12 +8803,21 @@ DO GOTO finishedline END IF NEXT - a$ = "_CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block": GOTO errmes + a$ = qb64prefix$ + "CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block": GOTO errmes + END IF + END IF + + IF firstelement$ = "CHAIN" THEN + IF vWatchOn THEN + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Feature incompatible with $Debug mode", "CHAIN" END IF END IF IF firstelement$ = "RUN" THEN 'RUN - l$ = "RUN" + IF vWatchOn THEN + addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Feature incompatible with $Debug mode", "RUN" + END IF + l$ = SCase$("Run") IF n = 1 THEN 'no parameters PRINT #12, "sub_run_init();" 'note: called first to free up screen-locked image handles @@ -8412,7 +8881,6 @@ DO END IF ELSE 'assume it's a string containing a filename to execute - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** e$ = evaluatetotyp(e$, ISSTRING) IF Error_Happened THEN GOTO errmes PRINT #12, "sub_run(" + e$ + ");" @@ -8428,7 +8896,7 @@ DO IF firstelement$ = "END" THEN - l$ = "END" + l$ = SCase$("End") IF n > 1 THEN e$ = getelements$(ca$, 2, n) e$ = fixoperationorder$(e$): IF Error_Happened THEN GOTO errmes @@ -8441,7 +8909,8 @@ DO thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1) inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34) END IF - PRINT #12, "if(qbevent){evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors) + IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = "" + PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors) PRINT #12, "exit_code=" + e$ + ";" l$ = l$ + sp + l2$ END IF @@ -8451,7 +8920,7 @@ DO END IF IF firstelement$ = "SYSTEM" THEN - l$ = "SYSTEM" + l$ = SCase$("System") IF n > 1 THEN e$ = getelements$(ca$, 2, n) e$ = fixoperationorder$(e$): IF Error_Happened THEN GOTO errmes @@ -8464,12 +8933,19 @@ DO thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1) inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34) END IF - PRINT #12, "if(qbevent){evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors) + IF vWatchOn = 1 AND NoChecks = 0 AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = "" + PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors) PRINT #12, "exit_code=" + e$ + ";" l$ = l$ + sp + l2$ END IF + IF vWatchOn = 1 THEN + IF inclinenumber(inclevel) = 0 THEN + vWatchAddLabel linenumber, 0 + END IF + PRINT #12, "*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF PRINT #12, "if (sub_gl_called) error(271);" PRINT #12, "close_program=1;" PRINT #12, "end();" @@ -8479,19 +8955,24 @@ DO IF n >= 1 THEN IF firstelement$ = "STOP" THEN - l$ = "STOP" + l$ = SCase$("Stop") IF n > 1 THEN e$ = getelements$(ca$, 2, n) e$ = fixoperationorder$(e$) IF Error_Happened THEN GOTO errmes - l$ = "STOP" + sp + tlayout$ + l$ = SCase$("Stop") + sp + tlayout$ e$ = evaluatetotyp(e$, 64) IF Error_Happened THEN GOTO errmes 'note: this value is currently ignored but evaluated for checking reasons END IF layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ - PRINT #12, "close_program=1;" - PRINT #12, "end();" + IF vWatchOn = 1 AND NoChecks = 0 AND inclinenumber(inclevel) = 0 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;" + vWatchAddLabel linenumber, 0 + ELSE + PRINT #12, "close_program=1;" + PRINT #12, "end();" + END IF GOTO finishedline END IF END IF @@ -8509,7 +8990,7 @@ DO IF firstelement$ = "RETURN" THEN IF n = 1 THEN PRINT #12, "#include " + CHR$(34) + "ret" + str2$(subfuncn) + ".txt" + CHR$(34) - l$ = "RETURN" + l$ = SCase$("Return") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline ELSE @@ -8547,7 +9028,7 @@ DO END IF 'x PRINT #12, "goto LABEL_" + a2$ + ";" - l$ = "RETURN" + sp + tlayout$ + l$ = SCase$("Return") + sp + tlayout$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline END IF @@ -8556,7 +9037,7 @@ DO IF n >= 1 THEN IF firstelement$ = "RESUME" THEN - l$ = "RESUME" + l$ = SCase$("Resume") IF n = 1 THEN resumeprev: @@ -8573,7 +9054,7 @@ DO PRINT #12, "if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;}" - l$ = l$ + sp + "NEXT" + l$ = l$ + sp + SCase$("Next") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline END IF @@ -8614,7 +9095,7 @@ DO IF n = 4 THEN IF getelements(a$, 1, 3) = "ON" + sp + "ERROR" + sp + "GOTO" THEN - l$ = "ON" + sp + "ERROR" + sp + "GOTO" + l$ = SCase$("On" + sp + "Error" + sp + "GoTo") lbl$ = getelement$(ca$, 4) IF lbl$ = "0" THEN PRINT #12, "error_goto_line=0;" @@ -8664,11 +9145,11 @@ DO IF n >= 1 THEN IF firstelement$ = "RESTORE" THEN - l$ = "RESTORE" + l$ = SCase$("Restore") IF n = 1 THEN PRINT #12, "data_offset=0;" ELSE - IF n > 2 THEN a$ = "Syntax error": GOTO errmes + IF n > 2 THEN a$ = "Syntax error - too many parameters (expected RESTORE label/line number)": GOTO errmes lbl$ = getelement$(ca$, 2) IF validlabel(lbl$) = 0 THEN a$ = "Invalid label": GOTO errmes @@ -8716,8 +9197,7 @@ DO '(_MEM) _MEMPUT _MEMGET IF n >= 1 THEN - IF firstelement$ = "_MEMGET" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** + IF firstelement$ = "_MEMGET" OR (firstelement$ = "MEMGET" AND qb64prefix_set = 1) THEN 'get expressions e$ = "" B = 0 @@ -8730,21 +9210,21 @@ DO ne = ne + 1 IF ne = 1 THEN blk$ = e$: e$ = "" IF ne = 2 THEN offs$ = e$: e$ = "" - IF ne = 3 THEN a$ = "Syntax error": GOTO errmes + IF ne = 3 THEN a$ = "Syntax error - too many parameters (Expected " + qb64prefix$ + "MEMGET mem-reference, offset, variable)": GOTO errmes ELSE IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$ END IF NEXT var$ = e$ - IF e$ = "" OR ne <> 2 THEN a$ = "Expected _MEMGET mem-reference,offset,variable": GOTO errmes + IF e$ = "" OR ne <> 2 THEN a$ = "Expected " + qb64prefix$ + "MEMGET mem-reference, offset, variable": GOTO errmes - l$ = "_MEMGET" + sp + IF firstelement$ = "_MEMGET" THEN l$ = SCase$("_MemGet") + sp ELSE l$ = SCase$("MemGet") + sp e$ = fixoperationorder$(blk$): IF Error_Happened THEN GOTO errmes l$ = l$ + tlayout$ test$ = evaluate(e$, typ): IF Error_Happened THEN GOTO errmes - IF (typ AND ISUDT) = 0 OR (typ AND 511) <> 1 THEN a$ = "Expected _MEM type": GOTO errmes + IF (typ AND ISUDT) = 0 OR (typ AND 511) <> 1 THEN a$ = "Expected " + qb64prefix$ + "MEM type": GOTO errmes blkoffs$ = evaluatetotyp(e$, -6) ' IF typ AND ISREFERENCE THEN e$ = refer(e$, typ, 0) @@ -8816,8 +9296,7 @@ DO IF n >= 1 THEN - IF firstelement$ = "_MEMPUT" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** + IF firstelement$ = "_MEMPUT" OR (firstelement$ = "MEMPUT" AND qb64prefix_set = 1) THEN 'get expressions typ$ = "" e$ = "" @@ -8837,16 +9316,16 @@ DO IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$ END IF NEXT - IF ne < 2 OR e$ = "" THEN a$ = "Expected _MEMPUT mem-reference,offset,variable|value[AS type]": GOTO errmes + IF ne < 2 OR e$ = "" THEN a$ = "Expected " + qb64prefix$ + "MEMPUT mem-reference, offset, variable|value[AS type]": GOTO errmes IF ne = 2 THEN var$ = e$ ELSE typ$ = UCASE$(e$) - l$ = "_MEMPUT" + sp + IF firstelement$ = "_MEMPUT" THEN l$ = SCase$("_MemPut") + sp ELSE l$ = SCase$("MemPut") + sp e$ = fixoperationorder$(blk$): IF Error_Happened THEN GOTO errmes l$ = l$ + tlayout$ test$ = evaluate(e$, typ): IF Error_Happened THEN GOTO errmes - IF (typ AND ISUDT) = 0 OR (typ AND 511) <> 1 THEN a$ = "Expected _MEM type": GOTO errmes + IF (typ AND ISUDT) = 0 OR (typ AND 511) <> 1 THEN a$ = "Expected " + qb64prefix$ + "MEM type": GOTO errmes blkoffs$ = evaluatetotyp(e$, -6) e$ = fixoperationorder$(offs$): IF Error_Happened THEN GOTO errmes @@ -8911,11 +9390,11 @@ DO 'typname2typsize = 0 'the default t = typname2typ(typ$) IF t = 0 THEN a$ = "Invalid type": GOTO errmes - IF (t AND ISOFFSETINBITS) <> 0 OR (t AND ISUDT) <> 0 OR (t AND ISSTRING) THEN a$ = "_MEMPUT requires numeric type": GOTO errmes + IF (t AND ISOFFSETINBITS) <> 0 OR (t AND ISUDT) <> 0 OR (t AND ISSTRING) THEN a$ = qb64prefix$ + "MEMPUT requires numeric type": GOTO errmes IF (t AND ISPOINTER) THEN t = t - ISPOINTER 'attempt conversion... e$ = fixoperationorder$(var$): IF Error_Happened THEN GOTO errmes - l$ = l$ + sp2 + "," + sp + tlayout$ + sp + "AS" + sp + typ$ + l$ = l$ + sp2 + "," + sp + tlayout$ + sp + SCase$("As") + sp + typ$ e$ = evaluatetotyp(e$, t): IF Error_Happened THEN GOTO errmes st$ = typ2ctyp$(t, "") varsize$ = str2((t AND 511) \ 8) @@ -8953,8 +9432,7 @@ DO IF n >= 1 THEN - IF firstelement$ = "_MEMFILL" THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** + IF firstelement$ = "_MEMFILL" OR (firstelement$ = "MEMFILL" AND qb64prefix_set = 1) THEN 'get expressions typ$ = "" e$ = "" @@ -8975,16 +9453,16 @@ DO IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$ END IF NEXT - IF ne < 3 OR e$ = "" THEN a$ = "Expected _MEMFILL mem-reference,offset,bytes,variable|value[AS type]": GOTO errmes + IF ne < 3 OR e$ = "" THEN a$ = "Expected " + qb64prefix$ + "MEMFILL mem-reference, offset, bytes, variable|value[AS type]": GOTO errmes IF ne = 3 THEN var$ = e$ ELSE typ$ = UCASE$(e$) - l$ = "_MEMFILL" + sp + IF firstelement$ = "_MEMFILL" THEN l$ = SCase$("_MemFill") + sp ELSE l$ = SCase$("MemFill") + sp e$ = fixoperationorder$(blk$): IF Error_Happened THEN GOTO errmes l$ = l$ + tlayout$ test$ = evaluate(e$, typ): IF Error_Happened THEN GOTO errmes - IF (typ AND ISUDT) = 0 OR (typ AND 511) <> 1 THEN a$ = "Expected _MEM type": GOTO errmes + IF (typ AND ISUDT) = 0 OR (typ AND 511) <> 1 THEN a$ = "Expected " + qb64prefix$ + "MEM type": GOTO errmes blkoffs$ = evaluatetotyp(e$, -6) e$ = fixoperationorder$(offs$): IF Error_Happened THEN GOTO errmes @@ -9021,11 +9499,11 @@ DO '... AS type method t = typname2typ(typ$) IF t = 0 THEN a$ = "Invalid type": GOTO errmes - IF (t AND ISOFFSETINBITS) <> 0 OR (t AND ISUDT) <> 0 OR (t AND ISSTRING) THEN a$ = "_MEMFILL requires numeric type": GOTO errmes + IF (t AND ISOFFSETINBITS) <> 0 OR (t AND ISUDT) <> 0 OR (t AND ISSTRING) THEN a$ = qb64prefix$ + "MEMFILL requires numeric type": GOTO errmes IF (t AND ISPOINTER) THEN t = t - ISPOINTER 'attempt conversion... e$ = fixoperationorder$(var$): IF Error_Happened THEN GOTO errmes - l$ = l$ + sp2 + "," + sp + tlayout$ + sp + "AS" + sp + typ$ + l$ = l$ + sp2 + "," + sp + tlayout$ + sp + SCase$("As") + sp + typ$ e$ = evaluatetotyp(e$, t): IF Error_Happened THEN GOTO errmes c$ = "sub__memfill_" @@ -9110,7 +9588,7 @@ DO IF argn = 1 THEN 'interrupt number e$ = fixoperationorder$(e$) IF Error_Happened THEN GOTO errmes - l$ = "CALL" + sp + n$ + sp2 + "(" + sp2 + tlayout$ + l$ = SCase$("Call") + sp + n$ + sp2 + "(" + sp2 + tlayout$ IF cispecial = 1 THEN l$ = n$ + sp + tlayout$ e$ = evaluatetotyp(e$, 64&) IF Error_Happened THEN GOTO errmes @@ -9149,7 +9627,7 @@ DO 'call to CALL ABSOLUTE beyond reasonable doubt IF n$ = "ABSOLUTE" THEN - l$ = "CALL" + sp + "ABSOLUTE" + sp2 + "(" + sp2 + l$ = SCase$("Call" + sp + "Absolute" + sp2 + "(" + sp2) argn = 0 n = numelements(a$) B = 0 @@ -9315,12 +9793,14 @@ DO END IF - IF id.NoCloud THEN - IF Cloud THEN a$ = "Feature not supported on QLOUD": GOTO errmes '***NOCLOUD*** + 'generate error on driect _GL call + IF firstelement$ = "_GL" THEN + a$ = "Cannot call SUB _GL directly": GOTO errmes END IF - 'generate error on driect _GL call - IF firstelement$ = "_GL" THEN a$ = "Cannot call SUB _GL directly": GOTO errmes + IF firstelement$ = "VWATCH" THEN + a$ = "Cannot call SUB VWATCH directly": GOTO errmes + END IF IF firstelement$ = "OPEN" THEN 'gwbasic or qbasic version? @@ -9346,9 +9826,12 @@ DO IF firstelement$ = "CLOSE" OR firstelement$ = "RESET" THEN IF firstelement$ = "RESET" THEN - IF n > 1 THEN a$ = "Syntax error": GOTO errmes + IF n > 1 THEN a$ = "Syntax error - RESET takes no parameters": GOTO errmes + l$ = SCase$("Reset") + ELSE + l$ = SCase$("Close") END IF - l$ = firstelement$ + IF n = 1 THEN PRINT #12, "sub_close(NULL,0);" 'closes all files ELSE @@ -9475,7 +9958,7 @@ DO IF firstelement$ = "INPUT" THEN 'file input IF n > 1 THEN IF getelement$(a$, 2) = "#" THEN - l$ = "INPUT" + sp + "#": IF lineinput THEN l$ = "LINE" + sp + l$ + l$ = SCase$("Input") + sp + "#": IF lineinput THEN l$ = SCase$("Line") + sp + l$ u$ = str2$(uniquenumber) 'which file? @@ -9572,7 +10055,7 @@ DO IF firstelement$ = "INPUT" THEN - l$ = "INPUT": IF lineinput THEN l$ = "LINE" + sp + l$ + l$ = SCase$("Input"): IF lineinput THEN l$ = SCase$("Line") + sp + l$ commaneeded = 0 i = 2 @@ -9596,7 +10079,7 @@ DO IF a2$ = "," THEN GOTO finishedpromptstring END IF - a$ = "INPUT STATEMENT: SYNTAX ERROR!": GOTO errmes + a$ = "Syntax error - Reference: INPUT [;] " + CHR$(34) + "[Question or statement text]" + CHR$(34) + "{,|;} variable[, ...] or INPUT ; variable[, ...]": GOTO errmes END IF 'there was no promptstring, so print a ? IF lineinput = 0 THEN PRINT #12, "qbs_print(qbs_new_txt(" + CHR$(34) + "? " + CHR$(34) + "),0);" @@ -9605,7 +10088,7 @@ DO FOR i = i TO n IF commaneeded = 1 THEN a2$ = getelement$(ca$, i) - IF a2$ <> "," THEN a$ = "INPUT STATEMENT: SYNTAX ERROR! (COMMA EXPECTED)": GOTO errmes + IF a2$ <> "," THEN a$ = "Syntax error - comma expected": GOTO errmes ELSE B = 0 @@ -9643,7 +10126,7 @@ DO IF lineinput THEN a$ = "Expected string variable": GOTO errmes IF (t AND ISARRAY) THEN IF (t AND ISOFFSETINBITS) THEN - a$ = "INPUT cannot handle BIT array elements yet": GOTO errmes + a$ = "INPUT cannot handle BIT array elements": GOTO errmes END IF END IF e$ = "&(" + refer(e$, t, 0) + ")" @@ -9672,10 +10155,16 @@ DO gotinputvar: commaneeded = commaneeded + 1: IF commaneeded = 2 THEN commaneeded = 0 NEXT - IF numvar = 0 THEN a$ = "INPUT STATEMENT: SYNTAX ERROR! (NO VARIABLES LISTED FOR INPUT)": GOTO errmes + IF numvar = 0 THEN a$ = "Syntax error - Reference: INPUT [;] " + CHR$(34) + "[Question or statement text]" + CHR$(34) + "{,|;} variable[, ...] or INPUT ; variable[, ...]": GOTO errmes IF lineinput = 1 AND numvar > 1 THEN a$ = "Too many variables": GOTO errmes + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF PRINT #12, "qbs_input(" + str2(numvar) + "," + str2$(newline) + ");" PRINT #12, "if (stop_program) end();" + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF PRINT #12, cleanupstringprocessingcall$ + "0);" layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline @@ -9764,7 +10253,7 @@ DO 'LSET/RSET IF firstelement$ = "LSET" OR firstelement$ = "RSET" THEN IF n = 1 THEN a$ = "Expected " + firstelement$ + " ...": GOTO errmes - l$ = firstelement$ + IF firstelement$ = "LSET" THEN l$ = SCase$("LSet") ELSE l$ = SCase$("RSet") dest$ = "" source$ = "" part = 1 @@ -9843,7 +10332,7 @@ DO IF (e1typ AND ISREFERENCE) = 0 OR (e2typ AND ISREFERENCE) = 0 THEN a$ = "Expected variable": GOTO errmes layoutdone = 1 - l$ = "SWAP" + sp + e1l$ + sp2 + "," + sp + e2l$ + l$ = SCase$("Swap") + sp + e1l$ + sp2 + "," + sp + e2l$ IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$ 'swap strings? @@ -9924,7 +10413,8 @@ DO END IF IF firstelement$ = "OPTION" THEN - IF optionexplicit = 0 THEN e$ = " or OPTION _EXPLICIT" ELSE e$ = "" + IF optionexplicit = 0 THEN e$ = " or OPTION " + qb64prefix$ + "EXPLICIT" ELSE e$ = "" + IF optionexplicitarray = 0 THEN e$ = e$ + " or OPTION " + qb64prefix$ + "EXPLICITARRAY" IF n = 1 THEN a$ = "Expected OPTION BASE" + e$: GOTO errmes e$ = getelement$(a$, 2) SELECT CASE e$ @@ -9932,19 +10422,50 @@ DO l$ = getelement$(a$, 3) IF l$ <> "0" AND l$ <> "1" THEN a$ = "Expected OPTION BASE 0 or 1": GOTO errmes IF l$ = "1" THEN optionbase = 1 ELSE optionbase = 0 - l$ = "OPTION" + sp + "BASE" + sp + l$ + l$ = SCase$("Option" + sp + "Base") + sp + l$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline - CASE "_EXPLICIT" - IF optionexplicit = -1 AND NoIDEMode = 0 THEN a$ = "Duplicate OPTION _EXPLICIT": GOTO errmes - IF LEN(layout$) THEN a$ = "OPTION _EXPLICIT must come before any other statement": GOTO errmes - IF linenumber > 1 AND opex_comments = 0 THEN a$ = "OPTION _EXPLICIT must come before any other statement": GOTO errmes - optionexplicit = -1 - l$ = "OPTION" + sp + "_EXPLICIT" + CASE "EXPLICIT", "_EXPLICIT" + IF e$ = "EXPLICIT" AND qb64prefix$ = "_" THEN + IF optionexplicit = 0 THEN e$ = " or OPTION " + qb64prefix$ + "EXPLICIT" ELSE e$ = "" + IF optionexplicitarray = 0 THEN e$ = e$ + " or OPTION " + qb64prefix$ + "EXPLICITARRAY" + a$ = "Expected OPTION BASE" + e$: GOTO errmes + END IF + + opex_desiredState = -1 + IF optionexplicit = 0 THEN + IF opex_recompileAttempts = 0 THEN + opex_recompileAttempts = opex_recompileAttempts + 1 + GOTO do_recompile + END IF + END IF + + l$ = SCase$("Option") + sp + IF e$ = "EXPLICIT" THEN l$ = l$ + SCase$("Explicit") ELSE l$ = l$ + SCase$("_Explicit") + layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ + GOTO finishedline + CASE "EXPLICITARRAY", "_EXPLICITARRAY" + IF e$ = "EXPLICITARRAY" AND qb64prefix$ = "_" THEN + IF optionexplicit = 0 THEN e$ = " or OPTION " + qb64prefix$ + "EXPLICIT" ELSE e$ = "" + IF optionexplicitarray = 0 THEN e$ = e$ + " or OPTION " + qb64prefix$ + "EXPLICITARRAY" + a$ = "Expected OPTION BASE" + e$: GOTO errmes + END IF + + opexarray_desiredState = -1 + IF optionexplicitarray = 0 THEN + IF opexarray_recompileAttempts = 0 THEN + opexarray_recompileAttempts = opexarray_recompileAttempts + 1 + GOTO do_recompile + END IF + END IF + + l$ = SCase$("Option") + sp + IF e$ = "EXPLICITARRAY" THEN l$ = l$ + SCase$("ExplicitArray") ELSE l$ = l$ + SCase$("_ExplicitArray") layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ GOTO finishedline CASE ELSE - IF optionexplicit = 0 THEN e$ = " or OPTION _EXPLICIT" ELSE e$ = "" + IF optionexplicit = 0 THEN e$ = " or OPTION " + qb64prefix$ + "EXPLICIT" ELSE e$ = "" + IF optionexplicitarray = 0 THEN e$ = e$ + " or OPTION " + qb64prefix$ + "EXPLICITARRAY" a$ = "Expected OPTION BASE" + e$: GOTO errmes END SELECT END IF @@ -9990,10 +10511,19 @@ DO ' it has one extra index which is the arg after IF usecall THEN - IF usecall = 1 THEN l$ = "CALL" + sp + RTRIM$(id.cn) + RTRIM$(id.musthave) + sp2 + "(" + sp2 - IF usecall = 2 THEN l$ = "CALL" + sp + RTRIM$(id.cn) + RTRIM$(id.musthave) + sp 'sp at end for easy parsing + IF id.internal_subfunc THEN + IF usecall = 1 THEN l$ = SCase$("Call") + sp + SCase$(RTRIM$(id.cn)) + RTRIM$(id.musthave) + sp2 + "(" + sp2 + IF usecall = 2 THEN l$ = SCase$("Call") + sp + SCase$(RTRIM$(id.cn)) + RTRIM$(id.musthave) + sp 'sp at end for easy parsing + ELSE + IF usecall = 1 THEN l$ = SCase$("Call") + sp + RTRIM$(id.cn) + RTRIM$(id.musthave) + sp2 + "(" + sp2 + IF usecall = 2 THEN l$ = SCase$("Call") + sp + RTRIM$(id.cn) + RTRIM$(id.musthave) + sp 'sp at end for easy parsing + END IF ELSE - l$ = RTRIM$(id.cn) + RTRIM$(id.musthave) + sp + IF id.internal_subfunc THEN + l$ = SCase$(RTRIM$(id.cn)) + RTRIM$(id.musthave) + sp + ELSE + l$ = RTRIM$(id.cn) + RTRIM$(id.musthave) + sp + END IF END IF subcall$ = RTRIM$(id.callname) + "(" @@ -10346,7 +10876,7 @@ DO 'the number of array elements required is known AND 'the number of elements in the array to be passed is known - IF id.arrayelements <> nelereq THEN a$ = "Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported (yet)": GOTO errmes + IF id.arrayelements <> nelereq THEN a$ = "Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported": GOTO errmes END IF @@ -10408,7 +10938,7 @@ DO ELSE 'not a udt IF arr THEN - IF (sourcetyp2 AND ISOFFSETINBITS) THEN a$ = "Cannot pass BIT array offsets yet": GOTO errmes + IF (sourcetyp2 AND ISOFFSETINBITS) THEN a$ = "Cannot pass BIT array offsets": GOTO errmes e$ = "(&(" + refer(e$, sourcetyp, 0) + "))" IF Error_Happened THEN GOTO errmes ELSE @@ -10477,7 +11007,11 @@ DO IF explicitreference = 0 THEN IF targettyp AND ISUDT THEN nth = i - x$ = "'" + RTRIM$(udtxcname(targettyp AND 511)) + "'" + IF qb64prefix_set AND udtxcname(targettyp AND 511) = "_MEM" THEN + x$ = "'" + MID$(RTRIM$(udtxcname(targettyp AND 511)), 2) + "'" + ELSE + x$ = "'" + RTRIM$(udtxcname(targettyp AND 511)) + "'" + END IF IF ids(targetid).args = 1 THEN a$ = "TYPE " + x$ + " required for sub": GOTO errmes a$ = str_nth$(nth) + " sub argument requires TYPE " + x$: GOTO errmes END IF @@ -10594,7 +11128,7 @@ DO IF x2$ = "," THEN x2$ = x2$ + sp: GOTO customlaychar2 IF x$ = CHR$(0) THEN 'substitution - IF x2$ = "STEP" THEN x2$ = x2$ + sp2: GOTO customlaychar2 + IF x2$ = "STEP" THEN x2$ = SCase$("Step") + sp2: GOTO customlaychar2 x2$ = x2$ + sp: GOTO customlaychar2 END IF @@ -10625,7 +11159,21 @@ DO subcall$ = subcall$ + "," + str2$(passed&) END IF subcall$ = subcall$ + ");" + + IF firstelement$ = "SLEEP" THEN + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF + END IF + PRINT #12, subcall$ + + IF firstelement$ = "SLEEP" THEN + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF + END IF + subcall$ = "" IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);" @@ -10655,10 +11203,10 @@ DO IF n >= 1 THEN IF firstelement$ = "LET" THEN - IF n = 1 THEN a$ = "Syntax error": GOTO errmes + IF n = 1 THEN a$ = "Syntax error - Reference: LET variable = expression (tip: LET is entirely optional)": GOTO errmes ca$ = RIGHT$(ca$, LEN(ca$) - 4) n = n - 1 - l$ = "LET" + l$ = SCase$("Let") IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ 'note: layoutdone=1 will be set later GOTO letused @@ -10685,6 +11233,13 @@ DO THENGOTO = 0 finishedline2: + IF inputfunctioncalled THEN + inputfunctioncalled = 0 + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF + END IF + IF arrayprocessinghappened = 1 THEN arrayprocessinghappened = 0 inclinenump$ = "" @@ -10695,16 +11250,19 @@ DO inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34) END IF IF NoChecks = 0 THEN + IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = "" IF dynscope THEN dynscope = 0 - PRINT #12, "if(qbevent){evnt(" + str2$(linenumber) + inclinenump$ + ");if(r)goto S_" + str2$(statementn) + ";}" + PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");if(r)goto S_" + str2$(statementn) + ";}" ELSE - PRINT #12, "if(!qbevent)break;evnt(" + str2$(linenumber) + inclinenump$ + ");}while(r);" + PRINT #12, "if(!qbevent)break;" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}while(r);" END IF END IF finishednonexec: + firstLine = 0 + IF layoutdone = 0 THEN layoutok = 0 'invalidate layout if not handled IF continuelinefrom = 0 THEN 'note: manager #2 requires this condition @@ -10875,19 +11433,23 @@ IF definingtype THEN linenumber = definingtypeerror: a$ = "TYPE without END TYPE 'check for open controls (copy #1) IF controllevel THEN - x = controltype(controllevel) a$ = "Unidentified open control block" - IF x = 1 THEN a$ = "IF without END IF" - IF x = 2 THEN a$ = "FOR without NEXT" - IF x = 3 OR x = 4 THEN a$ = "DO without LOOP" - IF x = 5 THEN a$ = "WHILE without WEND" - IF x = 6 THEN a$ = "$IF without $END IF" - IF (x >= 10 AND x <= 17) OR x = 18 OR x = 19 THEN a$ = "SELECT CASE without END SELECT" + SELECT CASE controltype(controllevel) + CASE 1: a$ = "IF without END IF" + CASE 2: a$ = "FOR without NEXT" + CASE 3, 4: a$ = "DO without LOOP" + CASE 5: a$ = "WHILE without WEND" + CASE 6: a$ = "$IF without $END IF" + CASE 10 TO 19: a$ = "SELECT CASE without END SELECT" + CASE 32: a$ = "SUB/FUNCTION without END SUB/FUNCTION" + END SELECT linenumber = controlref(controllevel) GOTO errmes END IF -IF LEN(subfunc) THEN a$ = "SUB/FUNCTION without END SUB/FUNCTION": GOTO errmes +IF ideindentsubs = 0 THEN + IF LEN(subfunc) THEN a$ = "SUB/FUNCTION without END SUB/FUNCTION": GOTO errmes +END IF 'close the error handler (cannot be put in 'closemain' because subs/functions can also add error jumps to this file) PRINT #14, "exit(99);" 'in theory this line should never be run! @@ -10913,6 +11475,9 @@ FOR i = 1 TO idn getid i IF Error_Happened THEN GOTO errmes IF id.arrayelements = -1 THEN GOTO clearerasereturned 'cannot erase non-existant array + IF INSTR(vWatchVariableExclusions$, "@" + RTRIM$(id.callname) + "@") > 0 THEN + GOTO clearerasereturned + END IF clearerasereturn = 1: GOTO clearerase END IF 'array @@ -10935,14 +11500,23 @@ FOR i = 1 TO idn PRINT #12, "memset((void*)(" + e$ + "->chr),0," + bytes$ + ");" GOTO cleared ELSE - PRINT #12, e$ + "->len=0;" + IF INSTR(vWatchVariableExclusions$, "@" + e$ + "@") = 0 AND LEFT$(e$, 12) <> "_SUB_VWATCH_" THEN + PRINT #12, e$ + "->len=0;" + END IF GOTO cleared END IF END IF IF typ AND ISUDT THEN - PRINT #12, "memset((void*)" + e$ + ",0," + bytes$ + ");" + IF udtxvariable(typ AND 511) THEN + 'this next procedure resets values of UDT variables with variable-length strings + clear_udt_with_varstrings e$, typ AND 511, 12, 0 + ELSE + PRINT #12, "memset((void*)" + e$ + ",0," + bytes$ + ");" + END IF ELSE - PRINT #12, "*" + e$ + "=0;" + IF INSTR(vWatchVariableExclusions$, "@" + e$ + "@") = 0 AND LEFT$(e$, 12) <> "_SUB_VWATCH_" THEN + PRINT #12, "*" + e$ + "=0;" + END IF END IF GOTO cleared END IF 'non-array variable @@ -11111,8 +11685,8 @@ FOR x = 1 TO commonarraylistn NEXT IF Debug THEN PRINT #9, "Finished COMMON array list check!" -IF DesiredVirtualKeyboardState <> VirtualKeyboardState THEN - RecompileAttemptsForVirtualKeyboardState = RecompileAttemptsForVirtualKeyboardState + 1 +IF vWatchDesiredState <> vWatchOn THEN + vWatchRecompileAttempts = vWatchRecompileAttempts + 1 recompile = 1 END IF @@ -11153,7 +11727,7 @@ FOR r = 1 TO nLabels END IF END IF - linenumber = Labels(r).Error_Line: a$ = "Label not defined": GOTO errmes + linenumber = Labels(r).Error_Line: a$ = "Label '" + RTRIM$(Labels(r).cn) + "' not defined": GOTO errmes END IF @@ -11206,6 +11780,18 @@ ELSE PRINT #18, "int32 screen_hide_startup=0;" END IF +IF Asserts THEN + PRINT #18, "int32 asserts=1;" +ELSE + PRINT #18, "int32 asserts=0;" +END IF + +IF vWatchOn THEN + PRINT #18, "int32 vwatch=-1;" +ELSE + PRINT #18, "int32 vwatch=0;" +END IF + fh = FREEFILE OPEN tmpdir$ + "dyninfo.txt" FOR APPEND AS #fh IF Resize THEN @@ -11216,6 +11802,11 @@ IF Resize_Scale THEN END IF CLOSE #fh +IF vWatchOn = 1 THEN + vWatchVariable "", 1 +END IF + + 'DATA_finalize PRINT #18, "ptrszint data_size=" + str2(DataOffset) + ";" IF DataOffset = 0 THEN @@ -11672,61 +12263,37 @@ OPEN tmpdir$ + "temp.bin" FOR OUTPUT LOCK WRITE AS #26 'relock compilelog$ = tmpdir$ + "compilelog.txt" OPEN compilelog$ FOR OUTPUT AS #1: CLOSE #1 'Clear log - - -'OPEN "unusedVariableList.txt" FOR OUTPUT AS #1: CLOSE #1 -'OPEN "unusedVariableList.txt" FOR BINARY AS #1 -'PUT #1, 1, usedVariableList$ 'warning$(1) -'CLOSE #1 - -IF totalUnusedVariables > 0 THEN - IF idemode = 0 THEN - PRINT "WARNING:"; STR$(totalUnusedVariables); " unused variable"; - IF totalUnusedVariables > 1 THEN PRINT "s"; - IF VerboseMode THEN - PRINT ":" - findItem = 0 - DO - s$ = CHR$(2) + "VAR:" + CHR$(3) - findItem = INSTR(findItem + 1, usedVariableList$, s$) - IF findItem = 0 THEN EXIT DO - whichLine = CVL(MID$(usedVariableList$, findItem - 4, 4)) - varNameLen = CVI(MID$(usedVariableList$, findItem + 6, 2)) - internalVarName$ = MID$(usedVariableList$, findItem + 8, varNameLen) - findLF = INSTR(findItem + 9 + varNameLen, usedVariableList$, CHR$(10)) - varname$ = MID$(usedVariableList$, findItem + 9 + varNameLen, findLF - (findItem + 9 + varNameLen)) - PRINT SPACE$(4); varname$; " ("; internalVarName$; ", line"; STR$(whichLine); ")" - LOOP - ELSE - PRINT - END IF +IF idemode = 0 AND NOT QuietMode THEN + IF ConsoleMode THEN + PRINT "[" + STRING$(maxprogresswidth, ".") + "] 100%" ELSE - findItem = 0 - maxVarNameLen = 0 - DO - s$ = CHR$(2) + "VAR:" + CHR$(3) - findItem = INSTR(findItem + 1, usedVariableList$, s$) - IF findItem = 0 THEN EXIT DO - varNameLen = CVI(MID$(usedVariableList$, findItem + 6, 2)) - internalVarName$ = MID$(usedVariableList$, findItem + 8, varNameLen) - findLF = INSTR(findItem + 9 + varNameLen, usedVariableList$, CHR$(10)) - varname$ = MID$(usedVariableList$, findItem + 9 + varNameLen, findLF - (findItem + 9 + varNameLen)) - IF LEN(varname$) > maxVarNameLen THEN maxVarNameLen = LEN(varname$) - LOOP + LOCATE , 1 + PRINT STRING$(maxprogresswidth, 219) + " 100%" + END IF +END IF - findItem = 0 - addWarning 0, "Unused variables (" + LTRIM$(STR$(totalUnusedVariables)) + "):" - DO - s$ = CHR$(2) + "VAR:" + CHR$(3) - findItem = INSTR(findItem + 1, usedVariableList$, s$) - IF findItem = 0 THEN EXIT DO - whichLine = CVL(MID$(usedVariableList$, findItem - 4, 4)) - varNameLen = CVI(MID$(usedVariableList$, findItem + 6, 2)) - internalVarName$ = MID$(usedVariableList$, findItem + 8, varNameLen) - findLF = INSTR(findItem + 9 + varNameLen, usedVariableList$, CHR$(10)) - varname$ = MID$(usedVariableList$, findItem + 9 + varNameLen, findLF - (findItem + 9 + varNameLen)) - addWarning whichLine, varname$ + SPACE$((maxVarNameLen + 1) - LEN(varname$)) + " (" + internalVarName$ + ")" - LOOP +IF NOT IgnoreWarnings THEN + totalUnusedVariables = 0 + FOR i = 1 TO totalVariablesCreated + IF usedVariableList(i).used = 0 THEN + totalUnusedVariables = totalUnusedVariables + 1 + END IF + NEXT + + IF totalUnusedVariables > 0 THEN + maxVarNameLen = 0 + FOR i = 1 TO totalVariablesCreated + IF usedVariableList(i).used = 0 THEN + IF LEN(usedVariableList(i).name) > maxVarNameLen THEN maxVarNameLen = LEN(usedVariableList(i).name) + END IF + NEXT + + header$ = "unused variable" 's (" + LTRIM$(STR$(totalUnusedVariables)) + ")" + FOR i = 1 TO totalVariablesCreated + IF usedVariableList(i).used = 0 THEN + addWarning usedVariableList(i).linenumber, usedVariableList(i).includeLevel, usedVariableList(i).includedLine, usedVariableList(i).includedFile, header$, usedVariableList(i).name + SPACE$((maxVarNameLen + 1) - LEN(usedVariableList(i).name)) + " " + usedVariableList(i).varType + END IF + NEXT END IF END IF @@ -11734,11 +12301,13 @@ IF idemode THEN GOTO ideret5 ide6: IF idemode = 0 AND No_C_Compile_Mode = 0 THEN - PRINT - IF os$ = "LNX" THEN - PRINT "COMPILING C++ CODE INTO EXECUTABLE..." - ELSE - PRINT "COMPILING C++ CODE INTO EXE..." + IF NOT QuietMode THEN + PRINT + IF os$ = "LNX" THEN + PRINT "Compiling C++ code into executable..." + ELSE + PRINT "Compiling C++ code into EXE..." + END IF END IF IF LEN(outputfile_cmd$) THEN 'resolve relative path for output file @@ -11748,7 +12317,7 @@ IF idemode = 0 AND No_C_Compile_Mode = 0 THEN IF LEN(path.out$) THEN IF _DIREXISTS(path.out$) = 0 THEN PRINT - PRINT "CAN'T CREATE OUTPUT EXECUTABLE - PATH NOT FOUND: " + path.out$ + PRINT "Can't create output executable - path not found: " + path.out$ IF ConsoleMode THEN SYSTEM 1 END 1 END IF @@ -11794,9 +12363,54 @@ IF os$ = "WIN" THEN END IF IF VersionInfoSet THEN + manifest = FREEFILE + OPEN tmpdir$ + file$ + extension$ + ".manifest" FOR OUTPUT AS #manifest + PRINT #manifest, "" + PRINT #manifest, "" + PRINT #manifest, "" + PRINT #manifest, "" + viFileDescription$ + "" + PRINT #manifest, "" + PRINT #manifest, " " + PRINT #manifest, " " + PRINT #manifest, " " + PRINT #manifest, "" + PRINT #manifest, "" + CLOSE #manifest + + manifestembed = FREEFILE + OPEN tmpdir$ + "manifest.h" FOR OUTPUT AS #manifestembed + PRINT #manifestembed, "#ifndef RESOURCE_H" + PRINT #manifestembed, "#define RESOURCE_H" + PRINT #manifestembed, "#ifdef __cplusplus" + PRINT #manifestembed, "extern " + QuotedFilename("C") + " {" + PRINT #manifestembed, "#endif" + PRINT #manifestembed, "#ifdef __cplusplus" + PRINT #manifestembed, "}" + PRINT #manifestembed, "#endif" + PRINT #manifestembed, "#endif /* RESOURCE_H */" + PRINT #manifestembed, "#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 /*Defined manifest file*/" + PRINT #manifestembed, "#define RT_MANIFEST 24" + CLOSE #manifestembed + iconfilehandle = FREEFILE OPEN tmpdir$ + "icon.rc" FOR APPEND AS #iconfilehandle PRINT #iconfilehandle, "" + PRINT #iconfilehandle, "#include " + QuotedFilename("manifest.h") + PRINT #iconfilehandle, "" + PRINT #iconfilehandle, "CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST " + QuotedFilename(file$ + extension$ + ".manifest") + PRINT #iconfilehandle, "" PRINT #iconfilehandle, "1 VERSIONINFO" IF LEN(viFileVersionNum$) THEN PRINT #iconfilehandle, "FILEVERSION "; viFileVersionNum$ IF LEN(viProductVersionNum$) THEN PRINT #iconfilehandle, "PRODUCTVERSION "; viProductVersionNum$ @@ -11818,6 +12432,10 @@ IF os$ = "WIN" THEN PRINT #iconfilehandle, " VALUE " + QuotedFilename$("Web") + "," + QuotedFilename$(viWeb$ + "\0") PRINT #iconfilehandle, " END" PRINT #iconfilehandle, " END" + PRINT #iconfilehandle, " BLOCK " + QuotedFilename$("VarFileInfo") + PRINT #iconfilehandle, " BEGIN" + PRINT #iconfilehandle, " VALUE " + QuotedFilename$("Translation") + ", 0x409, 0x04E4" + PRINT #iconfilehandle, " END" PRINT #iconfilehandle, "END" CLOSE #iconfilehandle END IF @@ -11848,7 +12466,6 @@ x = INSTR(ver$, "."): IF x THEN ASC(ver$, x) = 95 'change "." to "_" libs$ = "" IF DEPENDENCY(DEPENDENCY_GL) THEN - IF Cloud THEN a$ = "GL not supported on QLOUD": GOTO errmes '***NOCLOUD*** defines$ = defines$ + defines_header$ + "DEPENDENCY_GL" END IF @@ -11960,6 +12577,15 @@ IF DEPENDENCY(DEPENDENCY_AUDIO_OUT) THEN libs$ = libs$ + " " + d2$ + "\src.a" END IF +IF DEPENDENCY(DEPENDENCY_ZLIB) THEN + defines$ = defines$ + defines_header$ + "DEPENDENCY_ZLIB" + IF MacOSX THEN + libs$ = libs$ + " -lz" + ELSE + libs$ = libs$ + " -l:libz.a" + END IF +END IF + 'finalize libs$ and defines$ strings IF LEN(libs$) THEN libs$ = libs$ + " " PATH_SLASH_CORRECT libs$ @@ -12024,16 +12650,6 @@ END IF -IF MakeAndroid THEN - - - - - - - - GOTO Skip_Build -END IF IF os$ = "WIN" THEN @@ -12461,6 +13077,8 @@ IF os$ = "LNX" THEN IF INSTR(_OS$, "[MACOSX]") THEN OPEN "./internal/c/makeline_osx.txt" FOR INPUT AS #150 + ELSEIF DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) THEN + OPEN "./internal/c/makeline_lnx_nogui.txt" FOR INPUT AS #150 ELSE OPEN "./internal/c/makeline_lnx.txt" FOR INPUT AS #150 END IF @@ -12473,7 +13091,7 @@ IF os$ = "LNX" THEN IF inline_DATA = 0 THEN 'add data.o? IF DataOffset THEN - x = INSTR(a$, "-lX11") + x = INSTR(a$, "-lrt") IF x THEN a$ = LEFT$(a$, x - 1) + " " + tmpdir2$ + "data.o " + RIGHT$(a$, LEN(a$) - x + 1) END IF @@ -12639,15 +13257,15 @@ END IF IF compfailed THEN IF idemode THEN - idemessage$ = "C++ Compilation failed (Check " + CHR$(0) + compilelog$ + CHR$(0) + ")" + idemessage$ = "C++ Compilation failed " + CHR$(0) + "(Check " + _TRIM$(compilelog$) + ")" GOTO ideerror END IF IF compfailed THEN - PRINT "C++ COMPILATION FAILED!" + PRINT "ERROR: C++ compilation failed." PRINT "Check " + compilelog$ + " for details." END IF ELSE - IF idemode = 0 THEN PRINT "OUTPUT: "; lastBinaryGenerated$ + IF idemode = 0 AND NOT QuietMode THEN PRINT "Output: "; lastBinaryGenerated$ END IF @@ -12660,7 +13278,7 @@ IF idemode THEN GOTO ideret6 No_C_Compile: -IF compfailed <> 0 AND ConsoleMode = 0 THEN END 1 +IF (compfailed <> 0 OR warningsissued <> 0) AND ConsoleMode = 0 THEN END 1 IF compfailed <> 0 THEN SYSTEM 1 SYSTEM 0 @@ -12669,6 +13287,22 @@ E = 1 RESUME NEXT qberror: +'_CONSOLE ON +'_ECHO "A QB error has occurred (and you have compiled in debugging support)." +'_ECHO "Some key information (qb64.bas):" +'_ECHO "Error" + STR$(ERR) +'_ECHO "Description: " + _ERRORMESSAGE$ +'_ECHO "Line" + STR$(_ERRORLINE) +'IF _INCLERRORLINE THEN +' _ECHO "Included line" + STR$(_INCLERRORLINE) +' _ECHO "Included file " + _INCLERRORFILE$ +'END IF +'_ECHO "" +'_ECHO "Loaded source file details:" +'_ECHO "ideerror =" + STR$(ideerror) + "; qberrorhappened =" + STR$(qberrorhappened) + "; qberrorhappenedvalue =" + STR$(qberrorhappenedvalue) + "; linenumber =" + STR$(linenumber) +'_ECHO "ca$ = {" + ca$ + "}, idecommand$ = {" + idecommand$ + "}" +'_ECHO "linefragment = {" + linefragment+ "}" + IF Debug THEN 'A more in-your-face error handler IF ConsoleMode THEN PRINT @@ -12681,6 +13315,7 @@ IF Debug THEN 'A more in-your-face error handler PRINT "A QB error has occurred (and you have compiled in debugging support)." PRINT "Some key information (qb64.bas):" PRINT "Error"; ERR + PRINT "Description: "; _ERRORMESSAGE$ PRINT "Line"; _ERRORLINE IF _INCLERRORLINE THEN PRINT "Included line"; _INCLERRORLINE @@ -12696,9 +13331,13 @@ END IF IF ideerror THEN 'error happened inside the IDE fh = FREEFILE - OPEN "internal\temp\ideerror.txt" FOR OUTPUT AS #fh + OPEN "internal\temp\ideerror.txt" FOR APPEND AS #fh + PRINT #fh, DATE$; TIME$; "--------------------" PRINT #fh, ERR + PRINT #fh, _ERRORMESSAGE$ PRINT #fh, _ERRORLINE + PRINT #fh, _INCLERRORLINE + PRINT #fh, _INCLERRORFILE$ CLOSE #fh sendc$ = CHR$(255) 'a runtime error has occurred RESUME sendcommand 'allow IDE to handle error recovery @@ -12714,7 +13353,7 @@ IF Debug THEN PRINT #9, "ERL="; ERL IF idemode AND qberrorhappenedvalue >= 0 THEN 'real qb error occurred ideerrorline = linenumber - idemessage$ = "Compiler error (check for syntax errors) (Reference:" + idemessage$ = "Compiler error (check for syntax errors) (" + _ERRORMESSAGE$ + ":" IF ERR THEN idemessage$ = idemessage$ + str2$(ERR) + "-" IF _ERRORLINE THEN idemessage$ = idemessage$ + str2$(_ERRORLINE) IF _INCLERRORLINE THEN idemessage$ = idemessage$ + "-" + _INCLERRORFILE$ + "-" + str2$(_INCLERRORLINE) @@ -12752,7 +13391,15 @@ IF idemode THEN END IF 'non-ide mode output PRINT +IF NOT MonochromeLoggingMode THEN + IF INSTR(_OS$, "WIN") THEN + COLOR 4 + ELSE + COLOR 9 + END IF +END IF PRINT a$ +IF NOT MonochromeLoggingMode THEN COLOR 7 FOR i = 1 TO LEN(linefragment) IF MID$(linefragment, i, 1) = sp$ THEN MID$(linefragment, i, 1) = " " NEXT @@ -12760,7 +13407,12 @@ FOR i = 1 TO LEN(wholeline) IF MID$(wholeline, i, 1) = sp$ THEN MID$(wholeline, i, 1) = " " NEXT PRINT "Caused by (or after):" + linefragment -PRINT "LINE " + str2(linenumber) + ":" + wholeline +IF NOT MonochromeLoggingMode THEN COLOR 8 +PRINT "LINE "; +IF NOT MonochromeLoggingMode THEN COLOR 15 +PRINT str2(linenumber) + ":"; +IF NOT MonochromeLoggingMode THEN COLOR 7 +PRINT wholeline IF ConsoleMode THEN SYSTEM 1 END 1 @@ -12771,77 +13423,84 @@ FUNCTION ParseCMDLineArgs$ () 'in which case they're simply asking for trouble). FOR i = 1 TO _COMMANDCOUNT token$ = COMMAND$(i) - IF LCASE$(token$) = "-help" OR LCASE$(token$) = "--help" OR LCASE$(token$) = "-h" OR LCASE$(token$) = "/help" THEN token$ = "-?" + IF LCASE$(token$) = "/?" OR LCASE$(token$) = "--help" OR LCASE$(token$) = "/help" THEN token$ = "-?" SELECT CASE LCASE$(LEFT$(token$, 2)) CASE "-?" 'Command-line help _DEST _CONSOLE - PRINT "QB64 COMPILER V" + Version$ + IF qb64versionprinted = 0 THEN qb64versionprinted = -1: PRINT "QB64 Compiler V" + Version$ PRINT - PRINT "USAGE: qb64 [switches] " + PRINT "Usage: qb64 [switches] " PRINT - PRINT "OPTIONS:" + PRINT "Options:" PRINT " Source file to load" ' '80 columns - PRINT " -v Verbose mode (detailed warnings)" PRINT " -c Compile instead of edit" + PRINT " -o Write output executable to " PRINT " -x Compile instead of edit and output the result to the" PRINT " console" - PRINT " -p Purge all pre-compiled content first" - PRINT " -z Generate C code without compiling to executable" - PRINT " -o Write output executable to " - PRINT " -e Enables OPTION _EXPLICIT, making variable declaration" + PRINT " -w Show warnings" + PRINT " -q Quiet mode (does not inhibit warnings or errors)" + PRINT " -m Do not colorize compiler output (monochrome mode)" + PRINT " -e Enable OPTION _EXPLICIT, making variable declaration" PRINT " mandatory (per-compilation; doesn't affect the" PRINT " source file or global settings)" PRINT " -s[:switch=true/false] View/edit compiler settings" - PRINT " -l: Starts the IDE at the specified line number" + PRINT " -l: Start the IDE at the specified line number" + PRINT " -p Purge all pre-compiled content first" + PRINT " -z Generate C code without compiling to executable" PRINT SYSTEM - CASE "-v" 'Verbose mode - VerboseMode = -1 - CASE "-p" 'Purge - IF os$ = "WIN" THEN - CHDIR "internal\c" - SHELL _HIDE "cmd /c purge_all_precompiled_content_win.bat" - CHDIR "..\.." - END IF - IF os$ = "LNX" THEN - CHDIR "./internal/c" - - IF INSTR(_OS$, "[MACOSX]") THEN - SHELL _HIDE "./purge_all_precompiled_content_osx.command" - ELSE - SHELL _HIDE "./purge_all_precompiled_content_lnx.sh" - END IF - CHDIR "../.." - END IF + CASE "-c" 'Compile instead of edit + NoIDEMode = 1 + cmdlineswitch = -1 + CASE "-o" 'Specify an output file + IF LEN(COMMAND$(i + 1)) > 0 THEN outputfile_cmd$ = COMMAND$(i + 1): i = i + 1 + cmdlineswitch = -1 + CASE "-x" 'Use the console + ConsoleMode = 1 + NoIDEMode = 1 'Implies -c + cmdlineswitch = -1 + CASE "-w" 'Show warnings + ShowWarnings = -1 + cmdlineswitch = -1 + CASE "-q" 'Quiet mode + QuietMode = -1 + cmdlineswitch = -1 + CASE "-m" 'Monochrome mode + MonochromeLoggingMode = -1 + cmdlineswitch = -1 + CASE "-e" 'Option Explicit + optionexplicit_cmd = -1 + cmdlineswitch = -1 CASE "-s" 'Settings + settingsMode = -1 _DEST _CONSOLE - PRINT "QB64 COMPILER V" + Version$ + IF qb64versionprinted = 0 THEN qb64versionprinted = -1: PRINT "QB64 Compiler V" + Version$ SELECT CASE LCASE$(MID$(token$, 3)) CASE "" PRINT "debuginfo = "; - IF idedebuginfo THEN PRINT "TRUE" ELSE PRINT "FALSE" + IF idedebuginfo THEN PRINT "true" ELSE PRINT "false" PRINT "exewithsource = "; - IF SaveExeWithSource THEN PRINT "TRUE" ELSE PRINT "FALSE" + IF SaveExeWithSource THEN PRINT "true" ELSE PRINT "false" SYSTEM CASE ":exewithsource" PRINT "exewithsource = "; - IF SaveExeWithSource THEN PRINT "TRUE" ELSE PRINT "FALSE" + IF SaveExeWithSource THEN PRINT "true" ELSE PRINT "false" SYSTEM CASE ":exewithsource=true" - WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "TRUE" - PRINT "exewithsource = TRUE" - SYSTEM + WriteConfigSetting generalSettingsSection$, "SaveExeWithSource", "True" + PRINT "exewithsource = true" + SaveExeWithSource = -1 CASE ":exewithsource=false" - WriteConfigSetting "'[GENERAL SETTINGS]", "SaveExeWithSource", "FALSE" - PRINT "exewithsource = FALSE" - SYSTEM + WriteConfigSetting generalSettingsSection$, "SaveExeWithSource", "False" + PRINT "exewithsource = false" + SaveExeWithSource = 0 CASE ":debuginfo" PRINT "debuginfo = "; - IF idedebuginfo THEN PRINT "TRUE" ELSE PRINT "FALSE" + IF idedebuginfo THEN PRINT "true" ELSE PRINT "false" SYSTEM CASE ":debuginfo=true" - PRINT "debuginfo = TRUE" - WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "TRUE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!" + PRINT "debuginfo = true" + WriteConfigSetting generalSettingsSection$, "DebugInfo", "True" + DebugInfoIniWarning$ idedebuginfo = 1 Include_GDB_Debugging_Info = idedebuginfo IF os$ = "WIN" THEN @@ -12859,10 +13518,9 @@ FUNCTION ParseCMDLineArgs$ () END IF CHDIR "../.." END IF - SYSTEM CASE ":debuginfo=false" - PRINT "debuginfo = FALSE" - WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!" + PRINT "debuginfo = false" + WriteConfigSetting generalSettingsSection$, "DebugInfo", "False" + DebugInfoIniWarning$ idedebuginfo = 0 Include_GDB_Debugging_Info = idedebuginfo IF os$ = "WIN" THEN @@ -12880,36 +13538,50 @@ FUNCTION ParseCMDLineArgs$ () END IF CHDIR "../.." END IF - SYSTEM CASE ELSE - PRINT "INVALID SETTINGS SWITCH: "; token$ + PRINT "Invalid settings switch: "; token$ PRINT - PRINT "VALID SWITCHES:" + PRINT "Valid switches:" PRINT " -s:debuginfo=true/false (Embed C++ debug info into .EXE)" PRINT " -s:exewithsource=true/false (Save .EXE in the source folder)" - SYSTEM + SYSTEM 1 END SELECT - CASE "-e" 'Option Explicit - optionexplicit_cmd = -1 + _DEST 0 + CASE "-l" 'goto line (ide mode only); -l: + IF MID$(token$, 3, 1) = ":" THEN ideStartAtLine = VAL(MID$(token$, 4)) + cmdlineswitch = -1 + CASE "-p" 'Purge + IF os$ = "WIN" THEN + CHDIR "internal\c" + SHELL _HIDE "cmd /c purge_all_precompiled_content_win.bat" + CHDIR "..\.." + END IF + IF os$ = "LNX" THEN + CHDIR "./internal/c" + + IF INSTR(_OS$, "[MACOSX]") THEN + SHELL _HIDE "./purge_all_precompiled_content_osx.command" + ELSE + SHELL _HIDE "./purge_all_precompiled_content_lnx.sh" + END IF + CHDIR "../.." + END IF + cmdlineswitch = -1 CASE "-z" 'Not compiling C code No_C_Compile_Mode = 1 ConsoleMode = 1 'Implies -x NoIDEMode = 1 'Implies -c - CASE "-x" 'Use the console - ConsoleMode = 1 - NoIDEMode = 1 'Implies -c - CASE "-c" 'Compile instead of edit - NoIDEMode = 1 - CASE "-o" 'Specify an output file - IF LEN(COMMAND$(i + 1)) > 0 THEN outputfile_cmd$ = COMMAND$(i + 1): i = i + 1 - CASE "-l" 'goto line (ide mode only); -l: - IF MID$(token$, 3, 1) = ":" THEN ideStartAtLine = VAL(MID$(token$, 4)) + cmdlineswitch = -1 CASE ELSE 'Something we don't recognise, assume it's a filename IF PassedFileName$ = "" THEN PassedFileName$ = token$ END SELECT NEXT i - IF LEN(PassedFileName$) THEN ParseCMDLineArgs$ = PassedFileName$ + IF LEN(PassedFileName$) THEN + ParseCMDLineArgs$ = PassedFileName$ + ELSE + IF cmdlineswitch = 0 AND settingsMode = -1 THEN SYSTEM + END IF END FUNCTION FUNCTION Type2MemTypeValue (t1) @@ -13043,7 +13715,7 @@ FUNCTION allocarray (n2$, elements$, elementsize, udt) e3base$ = fixoperationorder$(e3base$) IF Error_Happened THEN EXIT FUNCTION - IF basegiven THEN l$ = l$ + tlayout$ + sp + "TO" + sp + IF basegiven THEN l$ = l$ + tlayout$ + sp + SCase$("To") + sp e3base$ = evaluatetotyp$(e3base$, 64&) IF Error_Happened THEN EXIT FUNCTION @@ -13217,7 +13889,7 @@ FUNCTION allocarray (n2$, elements$, elementsize, udt) 'REDIM (not DIM) must be used to redefine an array IF redimoption = 0 THEN f12$ = f12$ + CRLF + "if (" + n$ + "[2]&1){" 'array is defined - f12$ = f12$ + CRLF + "error(10);" 'cannot redefine an array without using REDIM! + f12$ = f12$ + CRLF + "if (!error_occurred) error(10);" 'cannot redefine an array without using REDIM! f12$ = f12$ + CRLF + "}else{" ELSE '--------ERASE EXISTING ARRAY IF NECESSARY-------- @@ -13494,7 +14166,7 @@ END FUNCTION FUNCTION arrayreference$ (indexes$, typ) arrayprocessinghappened = 1 - '*returns an array reference: idnumber CHR$(179) index$ + '*returns an array reference: idnumber | index$ '*does not take into consideration the type of the array '*expects array id to be passed in the global id structure @@ -13556,9 +14228,18 @@ FUNCTION arrayreference$ (indexes$, typ) IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION argi = (elements - curarg) * 4 + 4 IF curarg = 1 THEN - r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+" + IF NoChecks = 0 THEN + r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+" + ELSE + r$ = r$ + "(" + e$ + ")-" + n$ + "[" + str2(argi) + "]+" + END IF + ELSE - r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+" + IF NoChecks = 0 THEN + r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+" + ELSE + r$ = r$ + "((" + e$ + ")-" + n$ + "[" + str2(argi) + "])*" + n$ + "[" + str2(argi + 2) + "]+" + END IF END IF firsti = i + 1 curarg = curarg + 1 @@ -13622,18 +14303,136 @@ SUB clearid id = cleariddata END SUB +SUB vWatchVariable (this$, action AS _BYTE) + STATIC totalLocalVariables AS LONG, localVariablesList$ + STATIC totalMainModuleVariables AS LONG, mainModuleVariablesList$ + + SELECT CASE action + CASE -1 'reset + totalLocalVariables = 0 + localVariablesList$ = "" + totalMainModuleVariables = 0 + mainModuleVariablesList$ = "" + CASE 0 'add + IF INSTR(vWatchVariableExclusions$, "@" + this$ + "@") > 0 OR LEFT$(this$, 12) = "_SUB_VWATCH_" THEN + EXIT SUB + END IF + + vWatchNewVariable$ = this$ + IF subfunc = "" THEN + totalMainModuleVariables = totalMainModuleVariables + 1 + mainModuleVariablesList$ = mainModuleVariablesList$ + "vwatch_global_vars[" + str2$(totalMainModuleVariables - 1) + "] = &" + this$ + ";" + CRLF + manageVariableList id.cn, this$, totalMainModuleVariables - 1, 0 + ELSE + totalLocalVariables = totalLocalVariables + 1 + localVariablesList$ = localVariablesList$ + "vwatch_local_vars[" + str2$(totalLocalVariables - 1) + "] = &" + this$ + ";" + CRLF + manageVariableList id.cn, this$, totalLocalVariables - 1, 0 + END IF + CASE 1 'dump to data[].txt & reset + IF subfunc = "" THEN + IF totalMainModuleVariables > 0 THEN + PRINT #13, "void *vwatch_local_vars[0];" + PRINT #18, "void *vwatch_global_vars["; totalMainModuleVariables; "];" + PRINT #13, mainModuleVariablesList$ + ELSE + PRINT #13, "void *vwatch_local_vars[0];" + PRINT #18, "void *vwatch_global_vars[0];" + END IF + + mainModuleVariablesList$ = "" + totalMainModuleVariables = 0 + ELSE + IF subfunc <> "SUB_VWATCH" THEN + IF totalLocalVariables > 0 THEN + PRINT #13, "void *vwatch_local_vars["; (totalLocalVariables); "];" + PRINT #13, localVariablesList$ + ELSE + PRINT #13, "void *vwatch_local_vars[0];" + END IF + ELSE + PRINT #13, "void *vwatch_local_vars[0];" + END IF + + localVariablesList$ = "" + totalLocalVariables = 0 + END IF + END SELECT +END SUB + +SUB vWatchAddLabel (this AS LONG, lastLine AS _BYTE) + STATIC prevLabel AS LONG, prevSkip AS LONG + + IF lastLine = 0 THEN + WHILE this > LEN(vWatchUsedLabels) + vWatchUsedLabels = vWatchUsedLabels + SPACE$(1000) + vWatchUsedSkipLabels = vWatchUsedSkipLabels + SPACE$(1000) + WEND + + IF firstLineNumberLabelvWatch = 0 THEN + firstLineNumberLabelvWatch = this + ELSE + IF prevSkip <> prevLabel THEN + ASC(vWatchUsedSkipLabels, prevLabel) = 1 + PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;" + prevSkip = prevLabel + END IF + END IF + + IF prevLabel <> this THEN + ASC(vWatchUsedLabels, this) = 1 + PRINT #12, "VWATCH_LABEL_" + str2$(this) + ":;" + prevLabel = this + lastLineNumberLabelvWatch = this + END IF + ELSE + IF prevSkip <> prevLabel THEN + ASC(vWatchUsedSkipLabels, prevLabel) = 1 + PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;" + prevSkip = prevLabel + END IF + END IF +END SUB + SUB closemain xend PRINT #12, "return;" + IF vWatchOn AND firstLineNumberLabelvWatch > 0 THEN + PRINT #12, "VWATCH_SETNEXTLINE:;" + PRINT #12, "switch (*__LONG_VWATCH_GOTO) {" + FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch + IF ASC(vWatchUsedLabels, i) = 1 THEN + PRINT #12, " case " + str2$(i) + ":" + PRINT #12, " goto VWATCH_LABEL_" + str2$(i) + ";" + PRINT #12, " break;" + END IF + NEXT + PRINT #12, " default:" + PRINT #12, " *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;" + PRINT #12, " goto VWATCH_SETNEXTLINE;" + PRINT #12, "}" + + PRINT #12, "VWATCH_SKIPLINE:;" + PRINT #12, "switch (*__LONG_VWATCH_GOTO) {" + FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch + IF ASC(vWatchUsedSkipLabels, i) = 1 THEN + PRINT #12, " case -" + str2$(i) + ":" + PRINT #12, " goto VWATCH_SKIPLABEL_" + str2$(i) + ";" + PRINT #12, " break;" + END IF + NEXT + PRINT #12, "}" + + END IF + PRINT #12, "}" PRINT #15, "}" 'end case PRINT #15, "}" PRINT #15, "error(3);" 'no valid return possible closedmain = 1 - + firstLineNumberLabelvWatch = 0 END SUB FUNCTION countelements (a$) @@ -13699,8 +14498,11 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) 'UDT 'is it a udt? FOR i = 1 TO lasttype - IF typ$ = RTRIM$(udtxname(i)) THEN + IF typ$ = RTRIM$(udtxname(i)) OR (typ$ = "MEM" AND RTRIM$(udtxname(i)) = "_MEM" AND qb64prefix_set = 1) THEN dim2typepassback$ = RTRIM$(udtxcname(i)) + IF typ$ = "MEM" AND RTRIM$(udtxname(i)) = "_MEM" THEN + dim2typepassback$ = MID$(RTRIM$(udtxcname(i)), 2) + END IF n$ = "UDT_" + varname$ @@ -13757,6 +14559,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) id.arrayelements = nume id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -13793,7 +14596,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) PRINT #13, "}" END IF END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -13805,10 +14610,10 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) 'check if _UNSIGNED was specified unsgn = 0 - IF LEFT$(typ$, 10) = "_UNSIGNED " THEN + IF LEFT$(typ$, 10) = "_UNSIGNED " OR (LEFT$(typ$, 9) = "UNSIGNED " AND qb64prefix_set = 1) THEN unsgn = 1 - typ$ = RIGHT$(typ$, LEN(typ$) - 10) - IF LEN(typ$) = 0 THEN Give_Error "Expected more type information after _UNSIGNED!": EXIT FUNCTION + typ$ = MID$(typ$, INSTR(typ$, CHR$(32)) + 1) + IF LEN(typ$) = 0 THEN Give_Error "Expected more type information after " + qb64prefix$ + "UNSIGNED!": EXIT FUNCTION END IF n$ = "" 'n$ is assumed to be "" after branching into the code for each type @@ -13856,6 +14661,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) END IF IF v&& < 1 OR v&& > 9999999999 THEN Give_Error "STRING * out-of-range constant": EXIT FUNCTION bytes = v&& + dim2typepassback$ = SCase$("String * ") + constcname(i2) GOTO constantlenstr END IF @@ -13926,6 +14732,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) END IF regid IF Error_Happened THEN EXIT FUNCTION + vWatchVariable n$, 0 GOTO dim2exitfunc END IF @@ -13958,7 +14765,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN id.musthave = "$" + str2(bytes) END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14025,6 +14834,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) END IF regid IF Error_Happened THEN EXIT FUNCTION + vWatchVariable n$, 0 GOTO dim2exitfunc END IF @@ -14048,20 +14858,22 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN id.musthave = "$" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF - IF LEFT$(typ$, 4) = "_BIT" THEN - IF LEN(typ$) > 4 THEN - IF LEFT$(typ$, 7) <> "_BIT * " THEN Give_Error "Expected _BIT * number": EXIT FUNCTION - c$ = RIGHT$(typ$, LEN(typ$) - 7) + IF LEFT$(typ$, 4) = "_BIT" OR (LEFT$(typ$, 3) = "BIT" AND qb64prefix_set = 1) THEN + IF (LEFT$(typ$, 4) = "_BIT" AND LEN(typ$) > 4) OR (LEFT$(typ$, 3) = "BIT" AND LEN(typ$) > 3) THEN + IF LEFT$(typ$, 7) <> "_BIT * " AND LEFT$(typ$, 6) <> "BIT * " THEN Give_Error "Expected " + qb64prefix$ + "BIT * number": EXIT FUNCTION + c$ = MID$(typ$, INSTR(typ$, " * ") + 3) IF isuinteger(c$) = 0 THEN Give_Error "Number expected after *": EXIT FUNCTION - IF LEN(c$) > 2 THEN Give_Error "Too many characters in number after *": EXIT FUNCTION + IF LEN(c$) > 2 THEN Give_Error "Cannot create a bit variable of size > 64 bits": EXIT FUNCTION bits = VAL(c$) IF bits = 0 THEN Give_Error "Cannot create a bit variable of size 0 bits": EXIT FUNCTION - IF bits > 57 THEN Give_Error "Cannot create a bit variable of size > 24 bits": EXIT FUNCTION + IF bits > 64 THEN Give_Error "Cannot create a bit variable of size > 64 bits": EXIT FUNCTION ELSE bits = 1 END IF @@ -14071,6 +14883,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) 'array of bit-length variables IF elements$ <> "" THEN + IF bits > 63 THEN Give_Error "Cannot create a bit array of size > 63 bits": EXIT FUNCTION arraydesc = 0 cmps$ = varname$: IF unsgn THEN cmps$ = cmps$ + "~" cmps$ = cmps$ + "`" + str2(bits) @@ -14131,6 +14944,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) END IF regid IF Error_Happened THEN EXIT FUNCTION + vWatchVariable n$, 0 GOTO dim2exitfunc END IF 'standard bit-length variable @@ -14151,12 +14965,14 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN IF unsgn THEN id.musthave = "~`" + str2(bits) ELSE id.musthave = "`" + str2(bits) END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF - IF typ$ = "_BYTE" THEN + IF typ$ = "_BYTE" OR (typ$ = "BYTE" AND qb64prefix_set = 1) THEN ct$ = "int8" IF unsgn THEN n$ = "U": ct$ = "u" + ct$ n$ = n$ + "BYTE_" + varname$ @@ -14236,7 +15052,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN IF unsgn THEN id.musthave = "~%%" ELSE id.musthave = "%%" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14318,7 +15136,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN IF unsgn THEN id.musthave = "~%" ELSE id.musthave = "%" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14330,7 +15150,7 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) - IF typ$ = "_OFFSET" THEN + IF typ$ = "_OFFSET" OR (typ$ = "OFFSET" AND qb64prefix_set = 1) THEN ct$ = "ptrszint" IF unsgn THEN n$ = "U": ct$ = "u" + ct$ n$ = n$ + "OFFSET_" + varname$ @@ -14405,7 +15225,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN IF unsgn THEN id.musthave = "~%&" ELSE id.musthave = "%&" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14489,12 +15311,14 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN IF unsgn THEN id.musthave = "~&" ELSE id.musthave = "&" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF - IF typ$ = "_INTEGER64" THEN + IF typ$ = "_INTEGER64" OR (typ$ = "INTEGER64" AND qb64prefix_set = 1) THEN ct$ = "int64" IF unsgn THEN n$ = "U": ct$ = "u" + ct$ n$ = n$ + "INTEGER64_" + varname$ @@ -14573,7 +15397,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN IF unsgn THEN id.musthave = "~&&" ELSE id.musthave = "&&" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14657,7 +15483,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN id.musthave = "!" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14739,12 +15567,14 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN id.musthave = "#" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF - IF typ$ = "_FLOAT" THEN + IF typ$ = "_FLOAT" OR (typ$ = "FLOAT" AND qb64prefix_set = 1) THEN ct$ = "long double" n$ = n$ + "FLOAT_" + varname$ IF elements$ <> "" THEN @@ -14821,7 +15651,9 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) IF method = 1 THEN id.musthave = "##" END IF + id.callname = n$ regid + vWatchVariable n$, 0 IF Error_Happened THEN EXIT FUNCTION GOTO dim2exitfunc END IF @@ -14829,9 +15661,6 @@ FUNCTION dim2 (varname$, typ2$, method, elements$) Give_Error "Unknown type": EXIT FUNCTION dim2exitfunc: - IF bypassNextVariable = 0 THEN - manageVariableList cvarname$, n$, 0 - END IF bypassNextVariable = 0 IF dimsfarray THEN @@ -14922,7 +15751,7 @@ FUNCTION udtreference$ (o$, a$, typ AS LONG) GOTO udtfindelenext END IF - 'Change e reference to u CHR$(179) 0 reference? + 'Change e reference to u | 0 reference? IF udtetype(E) AND ISUDT THEN u = udtetype(E) AND 511 E = 0 @@ -14932,7 +15761,7 @@ FUNCTION udtreference$ (o$, a$, typ AS LONG) r$ = r$ + str2$(u) + sp3 + str2$(E) + sp3 - IF o MOD 8 THEN Give_Error "QB64 cannot handle bit offsets within user defined types yet": EXIT FUNCTION + IF o MOD 8 THEN Give_Error "QB64 cannot handle bit offsets within user defined types": EXIT FUNCTION o = o \ 8 IF o$ <> "" THEN @@ -15197,7 +16026,7 @@ FUNCTION evaluate$ (a2$, typ AS LONG) NEXT fakee$ = "10": FOR i2 = 2 TO nume: fakee$ = fakee$ + sp + "," + sp + "10": NEXT IF Debug THEN PRINT #9, "evaluate:creating undefined array using dim2(" + l$ + "," + dtyp$ + ",1," + fakee$ + ")" - IF optionexplicit THEN Give_Error "Array '" + l$ + "' (" + symbol2fulltypename$(dtyp$) + ") not defined": EXIT FUNCTION + IF optionexplicit OR optionexplicitarray THEN Give_Error "Array '" + l$ + "' (" + symbol2fulltypename$(dtyp$) + ") not defined": EXIT FUNCTION IF Error_Happened THEN EXIT FUNCTION olddimstatic = dimstatic method = 1 @@ -15422,6 +16251,7 @@ FUNCTION evaluate$ (a2$, typ AS LONG) IF optionexplicit THEN Give_Error "Variable '" + x$ + "' (" + symbol2fulltypename$(typ$) + ") not defined": EXIT FUNCTION bypassNextVariable = -1 retval = dim2(x$, typ$, 1, "") + manageVariableList "", vWatchNewVariable$, 0, 3 IF Error_Happened THEN EXIT FUNCTION simplevarfound: @@ -15807,6 +16637,12 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) targetid = currentid IF RTRIM$(id2.callname) = "func_stub" THEN Give_Error "Command not implemented": EXIT FUNCTION + IF RTRIM$(id2.callname) = "func_input" AND args = 1 AND inputfunctioncalled = 0 THEN + inputfunctioncalled = -1 + IF vWatchOn = 1 THEN + PRINT #12, "*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF + END IF SetDependency id2.Dependency @@ -15830,7 +16666,14 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) NEXT omitargs = omitarg_last - omitarg_first + 1 - IF args <> id2.args - omitargs AND args <> id2.args THEN Give_Error "Incorrect number of arguments passed to function": EXIT FUNCTION + IF args <> id2.args - omitargs AND args <> id2.args THEN + IF LEN(id2.hr_syntax) > 0 THEN + Give_Error "Incorrect number of arguments - Reference: " + id2.hr_syntax + ELSE + Give_Error "Incorrect number of arguments passed to function" + END IF + EXIT FUNCTION + END IF passomit = 1 'pass omit flags param to function @@ -15841,16 +16684,19 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF n$ = "ASC" AND args = 2 THEN GOTO skipargnumchk IF id2.overloaded = -1 AND (args >= id2.minargs AND args <= id2.args) THEN GOTO skipargnumchk - IF id2.args <> args THEN Give_Error "Incorrect number of arguments passed to function": EXIT FUNCTION + IF id2.args <> args THEN + IF LEN(id2.hr_syntax) > 0 THEN + Give_Error "Incorrect number of arguments - Reference: " + id2.hr_syntax + ELSE + Give_Error "Incorrect number of arguments passed to function" + END IF + EXIT FUNCTION + END IF END IF skipargnumchk: - IF id2.NoCloud THEN - IF Cloud THEN Give_Error "Feature not supported on QLOUD" '***NOCLOUD*** - END IF - r$ = RTRIM$(id2.callname) + "(" @@ -15898,7 +16744,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) '*special case CVI,CVL,CVS,CVD,_CV (part #1) - IF n$ = "_CV" THEN + IF n$ = "_CV" OR (n$ = "CV" AND qb64prefix_set = 1) THEN IF curarg = 1 THEN cvtype$ = type2symbol$(e$) IF Error_Happened THEN EXIT FUNCTION @@ -15909,7 +16755,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) '*special case MKI,MKL,MKS,MKD,_MK (part #1) - IF n$ = "_MK" THEN + IF n$ = "_MK" OR (n$ = "MK" AND qb64prefix_set = 1) THEN IF RTRIM$(id2.musthave) = "$" THEN IF curarg = 1 THEN mktype$ = type2symbol$(e$) @@ -15967,7 +16813,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) 'PRINT #12, "r$="; r$ '*special case* - IF n$ = "_MEMGET" THEN + IF n$ = "_MEMGET" OR (n$ = "MEMGET" AND qb64prefix_set = 1) THEN IF curarg = 1 THEN memget_blk$ = e$ END IF @@ -15985,7 +16831,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) END IF t = typname2typ(e$) IF t = 0 THEN Give_Error "Invalid TYPE name": EXIT FUNCTION - IF t AND ISOFFSETINBITS THEN Give_Error "_BIT TYPE unsupported": EXIT FUNCTION + IF t AND ISOFFSETINBITS THEN Give_Error qb64prefix$ + "BIT TYPE unsupported": EXIT FUNCTION memget_size = typname2typsize IF t AND ISSTRING THEN IF (t AND ISFIXEDLENGTH) = 0 THEN Give_Error "Expected STRING * ...": EXIT FUNCTION @@ -16043,7 +16889,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) '------------------------------------------------------------------------------------------------------------ '***special case*** - IF n$ = "_MEM" THEN + IF n$ = "_MEM" OR (n$ = "MEM" AND qb64prefix_set = 1) THEN IF curarg = 1 THEN IF args = 1 THEN targettyp = -7 @@ -16056,12 +16902,12 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) END IF '*special case* - IF n$ = "_OFFSET" THEN + IF n$ = "_OFFSET" OR (n$ = "OFFSET" AND qb64prefix_set = 1) THEN IF (sourcetyp AND ISREFERENCE) = 0 THEN - Give_Error "_OFFSET expects the name of a variable/array": EXIT FUNCTION + Give_Error qb64prefix$ + "OFFSET expects the name of a variable/array": EXIT FUNCTION END IF IF (sourcetyp AND ISARRAY) THEN - IF (sourcetyp AND ISOFFSETINBITS) THEN Give_Error "_OFFSET cannot reference _BIT type arrays": EXIT FUNCTION + IF (sourcetyp AND ISOFFSETINBITS) THEN Give_Error qb64prefix$ + "OFFSET cannot reference _BIT type arrays": EXIT FUNCTION END IF r$ = "((uptrszint)(" + evaluatetotyp$(e2$, -6) + "))" IF Error_Happened THEN EXIT FUNCTION @@ -16100,6 +16946,35 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) GOTO evalfuncspecial END IF + + '*special case* + IF n$ = "_BIN" OR (n$ = "BIN" AND qb64prefix_set = 1) THEN + IF RTRIM$(id2.musthave) = "$" THEN + bits = sourcetyp AND 511 + + IF (sourcetyp AND ISSTRING) THEN Give_Error "Expected numeric value": EXIT FUNCTION + wasref = 0 + IF (sourcetyp AND ISREFERENCE) THEN e$ = refer(e$, sourcetyp, 0): wasref = 1 + IF Error_Happened THEN EXIT FUNCTION + bits = sourcetyp AND 511 + IF (sourcetyp AND ISOFFSETINBITS) THEN + e$ = "func__bin(" + e$ + "," + str2$(bits) + ")" + ELSE + IF (sourcetyp AND ISFLOAT) THEN + e$ = "func__bin_float(" + e$ + ")" + ELSE + IF bits = 64 THEN + IF wasref = 0 THEN bits = 0 + END IF + e$ = "func__bin(" + e$ + "," + str2$(bits) + ")" + END IF + END IF + typ& = STRINGTYPE - ISPOINTER + r$ = e$ + GOTO evalfuncspecial + END IF + END IF + '*special case* IF n$ = "OCT" THEN IF RTRIM$(id2.musthave) = "$" THEN @@ -16128,8 +17003,6 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) END IF END IF - - '*special case* IF n$ = "HEX" THEN IF RTRIM$(id2.musthave) = "$" THEN @@ -16162,13 +17035,6 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) END IF - - - - - - - '*special case* IF n$ = "EXP" THEN bits = sourcetyp AND 511 @@ -16220,7 +17086,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) END IF '*special case* - IF n$ = "_ROUND" THEN + IF n$ = "_ROUND" OR (n$ = "ROUND" AND qb64prefix_set = 1) THEN IF (sourcetyp AND ISSTRING) THEN Give_Error "Expected numeric value": EXIT FUNCTION IF (sourcetyp AND ISREFERENCE) THEN e$ = refer(e$, sourcetyp, 0) IF Error_Happened THEN EXIT FUNCTION @@ -16332,10 +17198,10 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF n$ = "MKL" THEN mktype = 2: mktype$ = "&" IF n$ = "MKS" THEN mktype = 3: mktype$ = "!" IF n$ = "MKD" THEN mktype = 4: mktype$ = "#" - IF n$ = "_MK" THEN mktype = -1 + IF n$ = "_MK" OR (n$ = "MK" AND qb64prefix_set = 1) THEN mktype = -1 IF mktype THEN IF mktype <> -1 OR curarg = 2 THEN - IF (sourcetyp AND ISOFFSET) THEN Give_Error "Cannot convert _OFFSET type to other types": EXIT FUNCTION + 'IF (sourcetyp AND ISOFFSET) THEN Give_Error "Cannot convert " + qb64prefix$ + "OFFSET type to other types": EXIT FUNCTION 'both _MK and trad. process the following qtyp& = 0 IF mktype$ = "%%" THEN ctype$ = "b": qtyp& = BYTETYPE - ISPOINTER @@ -16349,9 +17215,11 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF mktype$ = "!" THEN ctype$ = "s": qtyp& = SINGLETYPE - ISPOINTER IF mktype$ = "#" THEN ctype$ = "d": qtyp& = DOUBLETYPE - ISPOINTER IF mktype$ = "##" THEN ctype$ = "f": qtyp& = FLOATTYPE - ISPOINTER + IF mktype$ = "%&" THEN ctype$ = "o": qtyp& = OFFSETTYPE - ISPOINTER + IF mktype$ = "~%&" THEN ctype$ = "uo": qtyp& = UOFFSETTYPE - ISPOINTER IF LEFT$(mktype$, 2) = "~`" THEN ctype$ = "ubit": qtyp& = UINTEGER64TYPE - ISPOINTER: size = VAL(RIGHT$(mktype$, LEN(mktype$) - 2)) IF LEFT$(mktype$, 1) = "`" THEN ctype$ = "bit": qtyp& = INTEGER64TYPE - ISPOINTER: size = VAL(RIGHT$(mktype$, LEN(mktype$) - 1)) - IF qtyp& = 0 THEN Give_Error "_MK only accepts numeric types": EXIT FUNCTION + IF qtyp& = 0 THEN Give_Error qb64prefix$ + "MK only accepts numeric types": EXIT FUNCTION IF size THEN r$ = ctype$ + "2string(" + str2(size) + "," ELSE @@ -16368,7 +17236,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF n$ = "CVL" THEN cvtype = 2: cvtype$ = "&" IF n$ = "CVS" THEN cvtype = 3: cvtype$ = "!" IF n$ = "CVD" THEN cvtype = 4: cvtype$ = "#" - IF n$ = "_CV" THEN cvtype = -1 + IF n$ = "_CV" OR (n$ = "CV" AND qb64prefix_set = 1) THEN cvtype = -1 IF cvtype THEN IF cvtype <> -1 OR curarg = 2 THEN IF (sourcetyp AND ISSTRING) = 0 THEN Give_Error n$ + " requires a STRING argument": EXIT FUNCTION @@ -16386,9 +17254,11 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF cvtype$ = "!" THEN ctype$ = "s": typ& = SINGLETYPE - ISPOINTER IF cvtype$ = "#" THEN ctype$ = "d": typ& = DOUBLETYPE - ISPOINTER IF cvtype$ = "##" THEN ctype$ = "f": typ& = FLOATTYPE - ISPOINTER + IF cvtype$ = "%&" THEN ctype$ = "o": typ& = OFFSETTYPE - ISPOINTER + IF cvtype$ = "~%&" THEN ctype$ = "uo": typ& = UOFFSETTYPE - ISPOINTER IF LEFT$(cvtype$, 2) = "~`" THEN ctype$ = "ubit": typ& = UINTEGER64TYPE - ISPOINTER: size = VAL(RIGHT$(cvtype$, LEN(cvtype$) - 2)) IF LEFT$(cvtype$, 1) = "`" THEN ctype$ = "bit": typ& = INTEGER64TYPE - ISPOINTER: size = VAL(RIGHT$(cvtype$, LEN(cvtype$) - 1)) - IF typ& = 0 THEN Give_Error "_CV cannot return STRING type!": EXIT FUNCTION + IF typ& = 0 THEN Give_Error qb64prefix$ + "CV cannot return STRING type!": EXIT FUNCTION IF ctype$ = "bit" OR ctype$ = "ubit" THEN r$ = "string2" + ctype$ + "(" + e$ + "," + str2(size) + ")" ELSE @@ -16807,7 +17677,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) 'print id.arrayelements,nelereq ' 1 , 2 - IF id.arrayelements <> nelereq THEN Give_Error "Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported (yet)": EXIT FUNCTION + IF id.arrayelements <> nelereq THEN Give_Error "Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported": EXIT FUNCTION @@ -16882,7 +17752,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) ELSE 'not a udt IF arr THEN - IF (sourcetyp2 AND ISOFFSETINBITS) THEN Give_Error "Cannot pass BIT array offsets yet": EXIT FUNCTION + IF (sourcetyp2 AND ISOFFSETINBITS) THEN Give_Error "Cannot pass BIT array offsets": EXIT FUNCTION e$ = "(&(" + refer(e$, sourcetyp, 0) + "))" IF Error_Happened THEN EXIT FUNCTION ELSE @@ -16979,7 +17849,11 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF targettyp AND ISUDT THEN nth = curarg IF omitarg_last <> 0 AND nth > omitarg_last THEN nth = nth - 1 - x$ = "'" + RTRIM$(udtxcname(targettyp AND 511)) + "'" + IF qb64prefix_set AND udtxcname(targettyp AND 511) = "_MEM" THEN + x$ = "'" + MID$(RTRIM$(udtxcname(targettyp AND 511)), 2) + "'" + ELSE + x$ = "'" + RTRIM$(udtxcname(targettyp AND 511)) + "'" + END IF IF ids(targetid).args = 1 THEN Give_Error "TYPE " + x$ + " required for function": EXIT FUNCTION Give_Error str_nth$(nth) + " function argument requires TYPE " + x$: EXIT FUNCTION END IF @@ -17067,7 +17941,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) r$ = r$ + e$ '***special case**** - IF n$ = "_MEM" THEN + IF n$ = "_MEM" OR (n$ = "MEM" AND qb64prefix_set = 1) THEN IF args = 1 THEN IF curarg = 1 THEN r$ = r$ + ")": GOTO evalfuncspecial END IF @@ -17237,6 +18111,11 @@ FUNCTION evaluatetotyp$ (a2$, targettyp AS LONG) IF (udtetype(E) AND ISSTRING) > 0 AND (udtetype(E) AND ISFIXEDLENGTH) = 0 AND (targettyp = -5) THEN evaluatetotyp$ = "(*(qbs**)" + dst$ + ")->len" EXIT FUNCTION + ELSEIF (udtetype(E) AND ISSTRING) > 0 AND (udtetype(E) AND ISFIXEDLENGTH) = 0 AND (targettyp = -4) THEN + dst$ = "(*((qbs**)((char*)" + scope$ + n$ + "+(" + o$ + "))))->chr" + bytes$ = "(*((qbs**)((char*)" + scope$ + n$ + "+(" + o$ + "))))->len" + evaluatetotyp$ = "byte_element((uint64)" + dst$ + "," + bytes$ + "," + NewByteElement$ + ")" + EXIT FUNCTION END IF bytes$ = str2(udtesize(E) \ 8) END IF @@ -17399,7 +18278,7 @@ FUNCTION evaluatetotyp$ (a2$, targettyp AS LONG) ELSE - Give_Error "_MEMELEMENT cannot reference variable-length strings": EXIT FUNCTION + Give_Error qb64prefix$ + "MEMELEMENT cannot reference variable-length strings": EXIT FUNCTION END IF EXIT FUNCTION @@ -17428,7 +18307,7 @@ FUNCTION evaluatetotyp$ (a2$, targettyp AS LONG) e$ = refer(e$, sourcetyp, 0) IF Error_Happened THEN EXIT FUNCTION ELSE - Give_Error "_MEMELEMENT cannot reference variable-length strings": EXIT FUNCTION + Give_Error qb64prefix$ + "MEMELEMENT cannot reference variable-length strings": EXIT FUNCTION END IF 'evaluatetotyp$ = "byte_element((uint64)" + e$ + "->chr," + bytes$ + "," + NewByteElement$ + ")" @@ -17505,7 +18384,7 @@ FUNCTION evaluatetotyp$ (a2$, targettyp AS LONG) IF (sourcetyp AND ISARRAY) THEN IF sourcetyp AND ISSTRING THEN IF (sourcetyp AND ISFIXEDLENGTH) = 0 THEN - Give_Error "_MEM cannot reference variable-length strings": EXIT FUNCTION + Give_Error qb64prefix$ + "MEM cannot reference variable-length strings": EXIT FUNCTION END IF END IF @@ -17547,7 +18426,7 @@ FUNCTION evaluatetotyp$ (a2$, targettyp AS LONG) 'String IF sourcetyp AND ISSTRING THEN - IF (sourcetyp AND ISFIXEDLENGTH) = 0 THEN Give_Error "_MEM cannot reference variable-length strings": EXIT FUNCTION + IF (sourcetyp AND ISFIXEDLENGTH) = 0 THEN Give_Error qb64prefix$ + "MEM cannot reference variable-length strings": EXIT FUNCTION idnumber = VAL(e$) getid idnumber: IF Error_Happened THEN EXIT FUNCTION @@ -17691,7 +18570,7 @@ FUNCTION evaluatetotyp$ (a2$, targettyp AS LONG) 'pointer required? IF (targettyp AND ISPOINTER) THEN - Give_Error "evaluatetotyp received a request for a pointer! (as yet unsupported)": EXIT FUNCTION + Give_Error "evaluatetotyp received a request for a pointer (unsupported)": EXIT FUNCTION '... Give_Error "Invalid pointer": EXIT FUNCTION END IF @@ -17758,7 +18637,7 @@ FUNCTION findid& (n2$) ''' END IF 'safeguard END IF - 'optomizations for later comparisons + 'optimizations for later comparisons insf$ = subfunc + SPACE$(256 - LEN(subfunc)) secondarg$ = secondarg$ + SPACE$(256 - LEN(secondarg$)) IF LEN(sc$) THEN scpassed = 1: sc$ = sc$ + SPACE$(8 - LEN(sc$)) ELSE scpassed = 0 @@ -17777,7 +18656,7 @@ FUNCTION findid& (n2$) hashretry: z = HashFindCont(unrequired, i) ELSE - z = HashFindRev(n$, 1, unrequired, i) + z = HashFind(n$, 1, unrequired, i) END IF findidinternal = z IF z = 0 THEN GOTO noid @@ -17802,10 +18681,18 @@ FUNCTION findid& (n2$) 'some subs require a second argument (eg. PUT #, DEF SEG, etc.) IF ids(i).subfunc = 2 THEN IF ASC(ids(i).secondargmustbe) <> 32 THEN 'exists? - IF secondarg$ <> ids(i).secondargmustbe THEN GOTO findidnomatch + IF RTRIM$(secondarg$) = UCASE$(RTRIM$(ids(i).secondargmustbe)) THEN + ELSEIF qb64prefix_set = 1 AND LEFT$(ids(i).secondargmustbe, 1) = "_" AND LEFT$(secondarg$, 1) <> "_" AND RTRIM$(secondarg$) = UCASE$(MID$(RTRIM$(ids(i).secondargmustbe), 2)) THEN + ELSE + GOTO findidnomatch + END IF END IF IF ASC(ids(i).secondargcantbe) <> 32 THEN 'exists? - IF secondarg$ = ids(i).secondargcantbe THEN GOTO findidnomatch + IF RTRIM$(secondarg$) <> UCASE$(RTRIM$(ids(i).secondargcantbe)) THEN + ELSEIF qb64prefix_set = 1 AND LEFT$(ids(i).secondargcantbe, 1) = "_" AND LEFT$(secondarg$, 1) <> "_" AND RTRIM$(secondarg$) <> UCASE$(MID$(RTRIM$(ids(i).secondargcantbe), 2)) THEN + ELSE + GOTO findidnomatch + END IF END IF END IF 'second sub argument possible @@ -17854,31 +18741,8 @@ FUNCTION findid& (n2$) id = ids(i) t = id.t - IF t = 0 THEN - t = id.arraytype - IF t AND ISUDT THEN - manageVariableList "", scope$ + "ARRAY_UDT_" + RTRIM$(id.n), 1 - ELSE - n$ = id2shorttypename$ - IF LEFT$(n$, 1) = "_" THEN - manageVariableList "", scope$ + "ARRAY" + n$ + "_" + RTRIM$(id.n), 2 - ELSE - manageVariableList "", scope$ + "ARRAY_" + n$ + "_" + RTRIM$(id.n), 3 - END IF - END IF - ELSE - IF t AND ISUDT THEN - manageVariableList "", scope$ + "UDT_" + RTRIM$(id.n), 4 - ELSE - n$ = id2shorttypename$ - IF LEFT$(n$, 1) = "_" THEN - manageVariableList "", scope$ + MID$(n$, 2) + "_" + RTRIM$(id.n), 5 - ELSE - manageVariableList "", scope$ + n$ + "_" + RTRIM$(id.n), 6 - END IF - END IF - END IF - + temp$ = refer$(str2$(i), t, 1) + manageVariableList "", temp$, 0, 1 currentid = i EXIT FUNCTION @@ -17982,7 +18846,10 @@ END FUNCTION + FUNCTION fixoperationorder$ (savea$) + STATIC uboundlbound AS _BYTE + a$ = savea$ IF Debug THEN PRINT #9, "fixoperationorder:in:" + a$ @@ -17991,6 +18858,7 @@ FUNCTION fixoperationorder$ (savea$) n = numelements(a$) 'n is maintained throughout function IF fooindwel = 1 THEN 'actions to take on initial call only + uboundlbound = 0 'Quick check for duplicate binary operations uppercasea$ = UCASE$(a$) 'capitalize it once to reduce calls to ucase over and over @@ -18423,8 +19291,8 @@ FUNCTION fixoperationorder$ (savea$) IF isoperator(f2$) THEN lastt = 3: lastti = i IF LEN(f2$) > 1 THEN - IF f2$ <> UCASE$(f2$) THEN - f2$ = UCASE$(f2$) + IF f2$ <> SCase2$(f2$) THEN + f2$ = SCase2$(f2$) removeelements a$, i, i, 0 insertelements a$, i - 1, f2$ END IF @@ -18434,7 +19302,6 @@ FUNCTION fixoperationorder$ (savea$) GOTO classdone END IF - IF alphanumeric(c) THEN lastt = 4: lastti = i @@ -18616,7 +19483,9 @@ FUNCTION fixoperationorder$ (savea$) IF Debug THEN PRINT #9, "found id matching " + f2$ - IF nextc = 40 THEN '( + IF nextc = 40 OR uboundlbound <> 0 THEN '( + + uboundlbound = 0 'function or array? IF id.arraytype <> 0 OR id.subfunc = 1 THEN @@ -18626,7 +19495,14 @@ FUNCTION fixoperationorder$ (savea$) f3$ = f2$ s$ = removesymbol$(f3$) IF Error_Happened THEN EXIT FUNCTION - f2$ = RTRIM$(id.cn) + s$ + IF id.internal_subfunc THEN + f2$ = SCase$(RTRIM$(id.cn)) + s$ + IF (UCASE$(f2$) = "UBOUND" OR UCASE$(f2$) = "LBOUND") THEN + uboundlbound = 2 + END IF + ELSE + f2$ = RTRIM$(id.cn) + s$ + END IF removeelements a$, i, i, 0 insertelements a$, i - 1, UCASE$(f2$) f$ = f$ + f2$ + sp + "(" + sp @@ -18665,7 +19541,11 @@ FUNCTION fixoperationorder$ (savea$) 'check if next item is a period 'correct name - f2$ = RTRIM$(id.cn) + removesymbol$(f2$) + IF id.internal_subfunc THEN + f2$ = SCase$(RTRIM$(id.cn)) + removesymbol$(f2$) + ELSE + f2$ = RTRIM$(id.cn) + removesymbol$(f2$) + END IF IF Error_Happened THEN EXIT FUNCTION removeelements a$, i, i, 0 insertelements a$, i - 1, UCASE$(f2$) @@ -18724,7 +19604,11 @@ FUNCTION fixoperationorder$ (savea$) f3$ = f2$ s$ = removesymbol$(f3$) IF Error_Happened THEN EXIT FUNCTION - f2$ = RTRIM$(id.cn) + s$ + IF id.internal_subfunc THEN + f2$ = SCase$(RTRIM$(id.cn)) + s$ + ELSE + f2$ = RTRIM$(id.cn) + s$ + END IF 'change was is returned to uppercase removeelements a$, i, i, 0 insertelements a$, i - 1, UCASE$(f2$) @@ -18744,18 +19628,18 @@ FUNCTION fixoperationorder$ (savea$) f3$ = UCASE$(f2$) internaltype = 0 IF f3$ = "STRING" THEN internaltype = 1 - IF f3$ = "_UNSIGNED" THEN internaltype = 1 - IF f3$ = "_BIT" THEN internaltype = 1 - IF f3$ = "_BYTE" THEN internaltype = 1 + IF f3$ = "_UNSIGNED" OR (f3$ = "UNSIGNED" AND qb64prefix_set = 1) THEN internaltype = 1 + IF f3$ = "_BIT" OR (f3$ = "BIT" AND qb64prefix_set = 1) THEN internaltype = 1 + IF f3$ = "_BYTE" OR (f3$ = "BYTE" AND qb64prefix_set = 1) THEN internaltype = 1 IF f3$ = "INTEGER" THEN internaltype = 1 IF f3$ = "LONG" THEN internaltype = 1 - IF f3$ = "_INTEGER64" THEN internaltype = 1 + IF f3$ = "_INTEGER64" OR (f3$ = "INTEGER64" AND qb64prefix_set = 1) THEN internaltype = 1 IF f3$ = "SINGLE" THEN internaltype = 1 IF f3$ = "DOUBLE" THEN internaltype = 1 - IF f3$ = "_FLOAT" THEN internaltype = 1 - IF f3$ = "_OFFSET" THEN internaltype = 1 + IF f3$ = "_FLOAT" OR (f3$ = "FLOAT" AND qb64prefix_set = 1) THEN internaltype = 1 + IF f3$ = "_OFFSET" OR (f3$ = "OFFSET" AND qb64prefix_set = 1) THEN internaltype = 1 IF internaltype = 1 THEN - f2$ = f3$ + f2$ = SCase2$(f3$) removeelements a$, i, i, 0 insertelements a$, i - 1, f3$ GOTO classdone @@ -18770,13 +19654,13 @@ FUNCTION fixoperationorder$ (savea$) f$ = f$ + sp classdone_special: NEXT + IF LEN(f$) THEN f$ = LEFT$(f$, LEN(f$) - 1) 'remove trailing 'sp' IF Debug THEN PRINT #9, "fixoperationorder:identification:" + a$, n IF Debug THEN PRINT #9, "fixoperationorder:identification(layout):" + f$, n - '----------------I. Pass (){}bracketed items (if any) to fixoperationorder & build return---------------- 'note: items seperated by commas are done seperately @@ -18822,6 +19706,7 @@ FUNCTION fixoperationorder$ (savea$) END IF IF c = 41 OR c = 125 THEN ')} + IF uboundlbound THEN uboundlbound = uboundlbound - 1 b = b - 1 IF b = 0 THEN @@ -19008,40 +19893,6 @@ SUB insertelements (a$, i, elements$) END SUB -FUNCTION isnumber (a$) - IF LEN(a$) = 0 THEN EXIT FUNCTION - FOR i = 1 TO LEN(a$) - a = ASC(MID$(a$, i, 1)) - IF a = 45 THEN - IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND (d = i - 1 OR E = i - 1)) THEN _CONTINUE - EXIT FUNCTION - END IF - IF a = 46 THEN - IF dp = 1 THEN EXIT FUNCTION - dp = 1 - _CONTINUE - END IF - IF a = 100 OR a = 68 THEN 'D - IF d > 1 OR E > 1 THEN EXIT FUNCTION - d = i - _CONTINUE - END IF - IF a = 101 OR a = 69 THEN 'E - IF d > 0 OR E > 1 THEN EXIT FUNCTION - E = i - _CONTINUE - END IF - IF a = 43 THEN '+ - IF d = i - 1 OR E = i - 1 THEN _CONTINUE - EXIT FUNCTION - END IF - - IF a >= 48 AND a <= 57 THEN _CONTINUE - EXIT FUNCTION - NEXT - isnumber = 1 -END FUNCTION - FUNCTION isoperator (a2$) a$ = UCASE$(a2$) l = 0 @@ -19101,7 +19952,7 @@ FUNCTION isvalidvariable (a$) NEXT isvalidvariable = 1 - IF i > n THEN EXIT FUNCTION + IF i > n THEN EXIT FUNCTION 'i is always greater than n because n is undefined here. Why didn't I remove this line and the ones below it, which will never run? Cause I'm a coward. F.h. e$ = RIGHT$(a$, LEN(a$) - i - 1) IF e$ = "%%" OR e$ = "~%%" THEN EXIT FUNCTION IF e$ = "%" OR e$ = "~%" THEN EXIT FUNCTION @@ -19763,7 +20614,7 @@ FUNCTION lineformat$ (a$) 'note: In QBASIC 'IF cond THEN REM comment' counts as a single line IF statement, however use of ' instead of REM does not IF UCASE$(RIGHT$(a2$, 5)) = sp + "THEN" THEN a2$ = a2$ + sp + "'" 'add nop - layoutcomment = "REM" + layoutcomment = SCase$("Rem") GOTO comment END IF END IF @@ -19997,59 +20848,49 @@ FUNCTION lineformat$ (a$) c$ = LTRIM$(c$) IF LEN(c$) = 0 THEN GOTO lineformatdone2 ac = ASC(c$) + 'note: any non-whitespace character between the comment leader and the + ' first '$' renders this a plain comment + ' : the leading '$' does NOT have to be part of a valid metacommand. + ' E.g., REM $FOO $DYNAMIC is a valid metacommand line IF ac <> 36 THEN GOTO lineformatdone2 nocasec$ = LTRIM$(RIGHT$(ca$, LEN(ca$) - i + 1)) memmode = 0 - FOR x = 1 TO LEN(c$) - mcnext: - IF MID$(c$, x, 1) = "$" THEN + x = 1 + DO + 'note: metacommands may appear on a line any number of times but only + ' the last appearance of $INCLUDE, and either $STATIC or $DYNAMIC, + ' is processed + ' : metacommands do not need to be terminated by word boundaries. + ' E.g., $STATICanychars$DYNAMIC is valid - 'note: $STATICksdcdweh$DYNAMIC is valid! + IF MID$(c$, x, 7) = "$STATIC" THEN + memmode = 1 + ELSEIF MID$(c$, x, 8) = "$DYNAMIC" THEN + memmode = 2 + ELSEIF MID$(c$, x, 8) = "$INCLUDE" THEN + 'note: INCLUDE adds the file AFTER the line it is on has been processed + 'skip spaces until : + FOR xx = x + 8 TO LEN(c$) + ac = ASC(MID$(c$, xx, 1)) + IF ac = 58 THEN EXIT FOR ': + IF ac <> 32 AND ac <> 9 THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION + NEXT + x = xx + 'skip spaces until ' + FOR xx = x + 1 TO LEN(c$) + ac = ASC(MID$(c$, xx, 1)) + IF ac = 39 THEN EXIT FOR 'character:' + IF ac <> 32 AND ac <> 9 THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION + NEXT + x = xx + xx = INSTR(x + 1, c$, "'") + IF xx = 0 THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION + addmetainclude$ = MID$(nocasec$, x + 1, xx - x - 1) + IF addmetainclude$ = "" THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION + END IF - IF MID$(c$, x, 7) = "$STATIC" THEN - memmode = 1 - xx = INSTR(x + 1, c$, "$") - if xx=0 then exit for else - x = xx: GOTO mcnext - END IF - - IF MID$(c$, x, 8) = "$DYNAMIC" THEN - memmode = 2 - xx = INSTR(x + 1, c$, "$") - IF xx = 0 THEN EXIT FOR - x = xx: GOTO mcnext - END IF - - IF MID$(c$, x, 8) = "$INCLUDE" THEN - IF Cloud THEN Give_Error "Feature not supported on QLOUD": EXIT FUNCTION - 'note: INCLUDE adds the file AFTER the line it is on has been processed - 'note: No other metacommands can follow the INCLUDE metacommand! - 'skip spaces until : - FOR xx = x + 8 TO LEN(c$) - ac = ASC(MID$(c$, xx, 1)) - IF ac = 58 THEN EXIT FOR ': - IF ac <> 32 AND ac <> 9 THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION - NEXT - x = xx - 'skip spaces until ' - FOR xx = x + 1 TO LEN(c$) - ac = ASC(MID$(c$, xx, 1)) - IF ac = 39 THEN EXIT FOR 'character:' - IF ac <> 32 AND ac <> 9 THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION - NEXT - x = xx - xx = INSTR(x + 1, c$, "'") - IF xx = 0 THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION - addmetainclude$ = MID$(nocasec$, x + 1, xx - x - 1) - IF addmetainclude$ = "" THEN Give_Error "Expected $INCLUDE:'filename'": EXIT FUNCTION - GOTO mcfinal - END IF - - 'add more metacommands here - - END IF '$ - NEXT - mcfinal: + x = INSTR(x + 1, c$, "$") + LOOP WHILE x <> 0 IF memmode = 1 THEN addmetastatic = 1 IF memmode = 2 THEN addmetadynamic = 1 @@ -20196,6 +21037,7 @@ FUNCTION operatorusage (operator$, typ AS LONG, info$, lhs AS LONG, rhs AS LONG, IF operator$ = ">=" THEN info$ = ">=": operatorusage = 3: EXIT FUNCTION lhs = 1: rhs = 1: result = 1 + operator$ = UCASE$(operator$) IF operator$ = "MOD" THEN info$ = "%": operatorusage = 1: EXIT FUNCTION IF operator$ = "\" THEN info$ = "/ ": operatorusage = 1: EXIT FUNCTION IF operator$ = "IMP" THEN info$ = "|": operatorusage = 4: EXIT FUNCTION @@ -20245,7 +21087,7 @@ FUNCTION refer$ (a2$, typ AS LONG, method AS LONG) i = INSTR(a$, sp3): o$ = RIGHT$(a$, LEN(a$) - i) n$ = "UDT_" + RTRIM$(id.n): IF id.t = 0 THEN n$ = "ARRAY_" + n$ + "[0]" IF E = 0 THEN Give_Error "User defined types in expressions are invalid": EXIT FUNCTION - IF typ AND ISOFFSETINBITS THEN Give_Error "Cannot resolve bit-length variables inside user defined types yet": EXIT FUNCTION + IF typ AND ISOFFSETINBITS THEN Give_Error "Cannot resolve bit-length variables inside user defined types": EXIT FUNCTION IF typ AND ISSTRING THEN IF typ AND ISFIXEDLENGTH THEN @@ -20253,7 +21095,7 @@ FUNCTION refer$ (a2$, typ AS LONG, method AS LONG) r$ = "qbs_new_fixed(" + o2$ + "," + str2(udtetypesize(E)) + ",1)" typ = STRINGTYPE + ISFIXEDLENGTH 'ISPOINTER retained, it is still a pointer! ELSE - r$ = "*((qbs**)(" + scope$ + n$ + "+(" + o$ + ")))" + r$ = "*((qbs**)((char*)" + scope$ + n$ + "+(" + o$ + ")))" typ = STRINGTYPE END IF ELSE @@ -20406,14 +21248,6 @@ SUB regid id.cn = n$ END IF - IF LEN(Refactor_Source) THEN - n$ = RTRIM$(id.n) - IF UCASE$(n$) = UCASE$(Refactor_Source) THEN - id.cn = Refactor_Dest - END IF - END IF - - id.insubfunc = subfunc id.insubfuncn = subfuncn @@ -20451,7 +21285,7 @@ SUB regid IF INSTR(ids(currentid).mayhave, "$") = 0 THEN allow = 1 END IF END IF - IF allow = 0 THEN Give_Error "Name already in use": EXIT SUB + IF allow = 0 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF 'hashres IF hashres <> 1 THEN hashres = HashFindCont(hashresflags, hashresref) ELSE hashres = 0 LOOP @@ -20482,35 +21316,35 @@ SUB regid 'All reserved words can be used as variables in QBASIC if "$" is appended to the variable name! '(allow) ELSE - Give_Error "Name already in use": EXIT SUB 'Conflicts with reserved word + Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'Conflicts with reserved word END IF END IF 'HASHFLAG_RESERVED 'conflict with sub/function? IF hashresflags AND (HASHFLAG_FUNCTION + HASHFLAG_SUB) THEN - IF ids(hashresref).internal_subfunc = 0 THEN Give_Error "Name already in use": EXIT SUB 'QBASIC doesn't allow a variable of the same name as a user-defined sub/func + IF ids(hashresref).internal_subfunc = 0 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'QBASIC doesn't allow a variable of the same name as a user-defined sub/func IF RTRIM$(id.n) = "WIDTH" AND ids(hashresref).subfunc = 2 THEN GOTO varname_exception musthave$ = RTRIM$(id.musthave) IF LEN(musthave$) = 0 THEN IF RTRIM$(ids(hashresref).musthave) = "$" THEN 'a sub/func requiring "$" can co-exist with implicit numeric variables - IF INSTR(id.mayhave, "$") THEN Give_Error "Name already in use": EXIT SUB + IF INSTR(id.mayhave, "$") THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB ELSE - Give_Error "Name already in use": EXIT SUB 'Implicitly defined variables cannot conflict with sub/func names + Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'Implicitly defined variables cannot conflict with sub/func names END IF END IF 'len(musthave$)=0 IF INSTR(musthave$, "$") THEN - IF RTRIM$(ids(hashresref).musthave) = "$" THEN Give_Error "Name already in use": EXIT SUB 'A sub/function name already exists as a string + IF RTRIM$(ids(hashresref).musthave) = "$" THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'A sub/function name already exists as a string '(allow) ELSE - IF RTRIM$(ids(hashresref).musthave) <> "$" THEN Give_Error "Name already in use": EXIT SUB 'A non-"$" sub/func name already exists with this name + IF RTRIM$(ids(hashresref).musthave) <> "$" THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'A non-"$" sub/func name already exists with this name END IF END IF 'HASHFLAG_FUNCTION + HASHFLAG_SUB 'conflict with constant? IF hashresflags AND HASHFLAG_CONSTANT THEN scope1 = constsubfunc(hashresref) - IF (scope1 = 0 AND AllowLocalName = 0) OR scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF (scope1 = 0 AND AllowLocalName = 0) OR scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF 'conflict with variable? @@ -20518,12 +21352,12 @@ SUB regid astype1 = 0: IF ASC(ids(hashresref).musthave) = 32 THEN astype1 = 1 scope1 = ids(hashresref).insubfuncn IF astype1 = 1 AND astype2 = 1 THEN - IF scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF 'same type? IF id.t = ids(hashresref).t THEN IF id.tsize = ids(hashresref).tsize THEN - IF scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF END IF 'will astype'd fixed STRING-variable mask a non-fixed string? @@ -20531,7 +21365,7 @@ SUB regid IF astype2 = 1 THEN IF ids(hashresref).t AND ISSTRING THEN IF (ids(hashresref).t AND ISFIXEDLENGTH) = 0 THEN - IF scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF END IF END IF @@ -20562,29 +21396,29 @@ SUB regid 'All reserved words can be used as variables in QBASIC if "$" is appended to the variable name! '(allow) ELSE - Give_Error "Name already in use": EXIT SUB 'Conflicts with reserved word + Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'Conflicts with reserved word END IF END IF 'HASHFLAG_RESERVED 'conflict with sub/function? IF hashresflags AND (HASHFLAG_FUNCTION + HASHFLAG_SUB) THEN - IF ids(hashresref).internal_subfunc = 0 THEN Give_Error "Name already in use": EXIT SUB 'QBASIC doesn't allow a variable of the same name as a user-defined sub/func + IF ids(hashresref).internal_subfunc = 0 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'QBASIC doesn't allow a variable of the same name as a user-defined sub/func IF RTRIM$(id.n) = "WIDTH" AND ids(hashresref).subfunc = 2 THEN GOTO arrayname_exception musthave$ = RTRIM$(id.musthave) IF LEN(musthave$) = 0 THEN IF RTRIM$(ids(hashresref).musthave) = "$" THEN 'a sub/func requiring "$" can co-exist with implicit numeric variables - IF INSTR(id.mayhave, "$") THEN Give_Error "Name already in use": EXIT SUB + IF INSTR(id.mayhave, "$") THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB ELSE - Give_Error "Name already in use": EXIT SUB 'Implicitly defined variables cannot conflict with sub/func names + Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'Implicitly defined variables cannot conflict with sub/func names END IF END IF 'len(musthave$)=0 IF INSTR(musthave$, "$") THEN - IF RTRIM$(ids(hashresref).musthave) = "$" THEN Give_Error "Name already in use": EXIT SUB 'A sub/function name already exists as a string + IF RTRIM$(ids(hashresref).musthave) = "$" THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'A sub/function name already exists as a string '(allow) ELSE - IF RTRIM$(ids(hashresref).musthave) <> "$" THEN Give_Error "Name already in use": EXIT SUB 'A non-"$" sub/func name already exists with this name + IF RTRIM$(ids(hashresref).musthave) <> "$" THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB 'A non-"$" sub/func name already exists with this name END IF END IF 'HASHFLAG_FUNCTION + HASHFLAG_SUB @@ -20593,12 +21427,12 @@ SUB regid astype1 = 0: IF ASC(ids(hashresref).musthave) = 32 THEN astype1 = 1 scope1 = ids(hashresref).insubfuncn IF astype1 = 1 AND astype2 = 1 THEN - IF scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF 'same type? IF id.arraytype = ids(hashresref).arraytype THEN IF id.tsize = ids(hashresref).tsize THEN - IF scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF END IF 'will astype'd fixed STRING-variable mask a non-fixed string? @@ -20606,7 +21440,7 @@ SUB regid IF astype2 = 1 THEN IF ids(hashresref).arraytype AND ISSTRING THEN IF (ids(hashresref).arraytype AND ISFIXEDLENGTH) = 0 THEN - IF scope1 = scope2 THEN Give_Error "Name already in use": EXIT SUB + IF scope1 = scope2 THEN Give_Error "Name already in use (" + n$ + ")": EXIT SUB END IF END IF END IF @@ -20722,7 +21556,7 @@ FUNCTION symboltype (s$) 'returns type or 0(not a valid symbol) IF isuinteger(RIGHT$(s$, l - 1)) THEN IF l > 3 THEN EXIT FUNCTION n = VAL(RIGHT$(s$, l - 1)) - IF n > 56 THEN EXIT FUNCTION + IF n > 64 THEN EXIT FUNCTION symboltype = n + ISOFFSETINBITS: EXIT FUNCTION END IF EXIT FUNCTION @@ -20748,7 +21582,7 @@ FUNCTION symboltype (s$) 'returns type or 0(not a valid symbol) IF isuinteger(RIGHT$(s$, l - 2)) THEN IF l > 4 THEN EXIT FUNCTION n = VAL(RIGHT$(s$, l - 2)) - IF n > 56 THEN EXIT FUNCTION + IF n > 64 THEN EXIT FUNCTION symboltype = n + ISOFFSETINBITS + ISUNSIGNED: EXIT FUNCTION END IF EXIT FUNCTION @@ -21174,6 +22008,7 @@ FUNCTION seperateargs (a$, ca$, pass&) OutOfRange = 2147483647 position = OutOfRange which = 0 + removePrefix = 0 IF i <= n THEN 'Past end of contect check FOR o = 1 TO t words = OptWords(x, o) @@ -21187,11 +22022,13 @@ FUNCTION seperateargs (a$, ca$, pass&) c$ = c$ + " " + getelement$(a$, i3 + w - 1) NEXT w 'Compare - IF c$ = RTRIM$(Opt(x, o)) THEN + noPrefixMatch = LEFT$(Opt(x, o), 1) = "_" AND qb64prefix_set = 1 AND c$ = UCASE$(MID$(RTRIM$(Opt(x, o)), 2)) + IF c$ = UCASE$(RTRIM$(Opt(x, o))) OR noPrefixMatch THEN 'Record Match IF i3 < position THEN position = i3 which = o + IF noPrefixMatch THEN removePrefix = 1 bvalue = b EXIT FOR 'Exit the i3 loop END IF 'position check @@ -21234,7 +22071,7 @@ FUNCTION seperateargs (a$, ca$, pass&) END IF END IF 'Expression i = i + OptWords(x, which) - separgslayout(x) = CHR$(LEN(RTRIM$(Opt(x, which)))) + RTRIM$(Opt(x, which)) + separgslayout(x) = CHR$(LEN(RTRIM$(Opt(x, which))) - removePrefix) + SCase$(MID$(RTRIM$(Opt(x, which)), removePrefix + 1)) separgs(x) = CHR$(0) + str2(which) ELSE 'Not Found... @@ -21257,6 +22094,7 @@ FUNCTION seperateargs (a$, ca$, pass&) IF Branches = 0 THEN 'All options have been exhausted seperateargs_error = 1 seperateargs_error_message = "Syntax error" + IF LEN(id2.hr_syntax) > 0 THEN seperateargs_error_message = seperateargs_error_message + " - Reference: " + id2.hr_syntax EXIT FUNCTION END IF '2)Toggle taken branch to untaken and revert @@ -21407,10 +22245,8 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) i = INSTR(a$, sp3): o$ = RIGHT$(a$, LEN(a$) - i) n$ = "UDT_" + RTRIM$(id.n): IF id.t = 0 THEN n$ = "ARRAY_" + n$ + "[0]" - IF Cloud = 0 THEN - IF E <> 0 AND u = 1 THEN 'Setting _MEM type elements is not allowed! - Give_Error "Cannot set read-only element of _MEM TYPE": EXIT SUB - END IF + IF E <> 0 AND u = 1 THEN 'Setting _MEM type elements is not allowed! + Give_Error "Cannot set read-only element of _MEM TYPE": EXIT SUB END IF IF E = 0 THEN @@ -21451,7 +22287,6 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) directudt: IF u <> u2 OR e2 <> 0 THEN Give_Error "Expected = similar user defined type": EXIT SUB dst$ = "((char*)" + lhsscope$ + n$ + ")+(" + o$ + ")" - copy_full_udt dst$, src$, 12, 0, u 'print "setFULLUDTrefer!" @@ -21461,13 +22296,13 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) END IF 'e=0 - IF typ AND ISOFFSETINBITS THEN Give_Error "Cannot resolve bit-length variables inside user defined types yet": EXIT SUB + IF typ AND ISOFFSETINBITS THEN Give_Error "Cannot resolve bit-length variables inside user defined types": EXIT SUB IF typ AND ISSTRING THEN IF typ AND ISFIXEDLENGTH THEN o2$ = "(((uint8*)" + scope$ + n$ + ")+(" + o$ + "))" r$ = "qbs_new_fixed(" + o2$ + "," + str2(udtetypesize(E)) + ",1)" ELSE - r$ = "*((qbs**)((" + scope$ + n$ + ")+(" + o$ + ")))" + r$ = "*((qbs**)((char*)(" + scope$ + n$ + ")+(" + o$ + ")))" END IF IF method = 0 THEN e$ = evaluatetotyp(e$, STRINGTYPE - ISPOINTER) IF Error_Happened THEN EXIT SUB @@ -21488,7 +22323,6 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) 'print "setUDTrefer:"+r$,e$ tlayout$ = tl$ IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2) - manageVariableList "", scope$ + n$, 7 EXIT SUB END IF @@ -21523,7 +22357,6 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) PRINT #12, cleanupstringprocessingcall$ + "0);" tlayout$ = tl$ IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2) - manageVariableList "", r$, 8 EXIT SUB END IF @@ -21599,7 +22432,6 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) IF arrayprocessinghappened THEN arrayprocessinghappened = 0 tlayout$ = tl$ IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2) - manageVariableList "", r$, 9 EXIT SUB END IF @@ -21631,7 +22463,6 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) IF arrayprocessinghappened THEN arrayprocessinghappened = 0 tlayout$ = tl$ IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2) - manageVariableList "", r$, 10 EXIT SUB END IF @@ -21660,8 +22491,6 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) tlayout$ = tl$ IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2) - manageVariableList "", r$, 11 - EXIT SUB END IF 'variable @@ -21669,7 +22498,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG) END SUB FUNCTION str2$ (v AS LONG) - str2$ = LTRIM$(RTRIM$(STR$(v))) + str2$ = _TRIM$(STR$(v)) END FUNCTION FUNCTION str2u64$ (v~&&) @@ -21705,7 +22534,7 @@ FUNCTION typ2ctyp$ (t AS LONG, tstr AS STRING) IF b = 16 THEN ctyp$ = "int16" IF b = 32 THEN ctyp$ = "int32" IF b = 64 THEN ctyp$ = "int64" - IF typ AND ISOFFSET THEN ctyp$ = "ptrszint" + IF t AND ISOFFSET THEN ctyp$ = "ptrszint" IF (t AND ISUNSIGNED) THEN ctyp$ = "u" + ctyp$ END IF IF t AND ISOFFSET THEN @@ -21727,7 +22556,7 @@ FUNCTION typ2ctyp$ (t AS LONG, tstr AS STRING) IF n$ <> "" THEN IF isuinteger(n$) = 0 THEN Give_Error "Invalid index after _BIT type": EXIT FUNCTION b = VAL(n$) - IF b > 57 THEN Give_Error "Invalid index after _BIT type": EXIT FUNCTION + IF b > 64 THEN Give_Error "Invalid index after _BIT type": EXIT FUNCTION END IF IF b <= 32 THEN ctyp$ = "int32" ELSE ctyp$ = "int64" IF unsgn THEN ctyp$ = "u" + ctyp$ @@ -21764,22 +22593,41 @@ FUNCTION type2symbol$ (typ$) IF MID$(t$, i, 1) = sp THEN MID$(t$, i, 1) = " " NEXT e$ = "Cannot convert type (" + typ$ + ") to symbol" - t2$ = "_UNSIGNED _BIT": s$ = "~`1": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_UNSIGNED _BYTE": s$ = "~%%": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_UNSIGNED INTEGER": s$ = "~%": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_UNSIGNED LONG": s$ = "~&": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_UNSIGNED _INTEGER64": s$ = "~&&": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_UNSIGNED _OFFSET": s$ = "~%&": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_BIT": s$ = "`1": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_BYTE": s$ = "%%": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "INTEGER": s$ = "%": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "LONG": s$ = "&": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_INTEGER64": s$ = "&&": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_OFFSET": s$ = "%&": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "SINGLE": s$ = "!": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "DOUBLE": s$ = "#": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "_FLOAT": s$ = "##": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound - t2$ = "STRING": s$ = "$": IF LEFT$(t$, LEN(t2$)) = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED _BIT": s$ = "~`1": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED _BYTE": s$ = "~%%": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED LONG": s$ = "~&": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED _INTEGER64": s$ = "~&&": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED INTEGER": s$ = "~%": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED _OFFSET": s$ = "~%&": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_BIT": s$ = "`1": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_BYTE": s$ = "%%": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "LONG": s$ = "&": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_INTEGER64": s$ = "&&": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_OFFSET": s$ = "%&": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "SINGLE": s$ = "!": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "DOUBLE": s$ = "#": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "_FLOAT": s$ = "##": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "STRING": s$ = "$": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED BIT": s$ = "~`1": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED BYTE": s$ = "~%%": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED LONG": s$ = "~&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED INTEGER64": s$ = "~&&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED INTEGER": s$ = "~%": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED OFFSET": s$ = "~%&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED _BIT": s$ = "~`1": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED _BYTE": s$ = "~%%": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED _INTEGER64": s$ = "~&&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "UNSIGNED _OFFSET": s$ = "~%&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED BIT": s$ = "~`1": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED BYTE": s$ = "~%%": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED INTEGER64": s$ = "~&&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "_UNSIGNED OFFSET": s$ = "~%&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "BIT": s$ = "`1": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "BYTE": s$ = "%%": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "INTEGER64": s$ = "&&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "INTEGER": s$ = "%": IF t$ = t2$ THEN GOTO t2sfound + t2$ = "OFFSET": s$ = "%&": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound + t2$ = "FLOAT": s$ = "##": IF qb64prefix_set = 1 AND t$ = t2$ THEN GOTO t2sfound Give_Error e$: EXIT FUNCTION t2sfound: type2symbol$ = s$ @@ -21791,7 +22639,7 @@ FUNCTION type2symbol$ (typ$) IF isuinteger(t$) = 0 THEN Give_Error e$: EXIT FUNCTION v = VAL(t$) IF v = 0 THEN Give_Error e$: EXIT FUNCTION - IF s$ <> "$" AND v > 56 THEN Give_Error e$: EXIT FUNCTION + IF s$ <> "$" AND v > 64 THEN Give_Error e$: EXIT FUNCTION IF s$ = "$" THEN s$ = s$ + str2$(v) ELSE @@ -21841,7 +22689,7 @@ FUNCTION typname2typ& (t2$) IF n$ <> "" THEN IF isuinteger(n$) = 0 THEN Give_Error "Invalid index after _BIT type": EXIT FUNCTION b = VAL(n$) - IF b > 56 THEN Give_Error "Invalid index after _BIT type": EXIT FUNCTION + IF b > 64 THEN Give_Error "Invalid index after _BIT type": EXIT FUNCTION END IF IF unsgn THEN typname2typ& = UBITTYPE + (b - 1) ELSE typname2typ& = BITTYPE + (b - 1) EXIT FUNCTION @@ -21920,30 +22768,33 @@ FUNCTION typname2typ& (t2$) IF t$ = "SINGLE" THEN typname2typ& = SINGLETYPE: EXIT FUNCTION IF t$ = "DOUBLE" THEN typname2typ& = DOUBLETYPE: EXIT FUNCTION - IF t$ = "_FLOAT" THEN typname2typ& = FLOATTYPE: EXIT FUNCTION - IF LEFT$(t$, 10) = "_UNSIGNED " THEN u = 1: t$ = RIGHT$(t$, LEN(t$) - 10) - IF LEFT$(t$, 4) = "_BIT" THEN - IF t$ = "_BIT" THEN + IF t$ = "_FLOAT" OR (t$ = "FLOAT" AND qb64prefix_set = 1) THEN typname2typ& = FLOATTYPE: EXIT FUNCTION + IF LEFT$(t$, 10) = "_UNSIGNED " OR (LEFT$(t$, 9) = "UNSIGNED " AND qb64prefix_set = 1) THEN + u = 1 + t$ = MID$(t$, INSTR(t$, CHR$(32)) + 1) + END IF + IF LEFT$(t$, 4) = "_BIT" OR (LEFT$(t$, 3) = "BIT" AND qb64prefix_set = 1) THEN + IF t$ = "_BIT" OR (t$ = "BIT" AND qb64prefix_set = 1) THEN IF u THEN typname2typ& = UBITTYPE ELSE typname2typ& = BITTYPE EXIT FUNCTION END IF - IF LEFT$(t$, 7) <> "_BIT * " THEN Give_Error "Expected _BIT * number": EXIT FUNCTION + IF LEFT$(t$, 7) <> "_BIT * " OR (LEFT$(t$, 6) = "BIT * " AND qb64prefix_set = 1) THEN Give_Error "Expected _BIT * number": EXIT FUNCTION n$ = RIGHT$(t$, LEN(t$) - 7) - IF isuinteger(n$) = 0 THEN Give_Error "Invalid size after _BIT *": EXIT FUNCTION + IF isuinteger(n$) = 0 THEN Give_Error "Invalid size after " + qb64prefix$ + "BIT *": EXIT FUNCTION b = VAL(n$) - IF b = 0 OR b > 56 THEN Give_Error "Invalid size after _BIT *": EXIT FUNCTION + IF b = 0 OR b > 64 THEN Give_Error "Invalid size after " + qb64prefix$ + "BIT *": EXIT FUNCTION t = BITTYPE - 1 + b: IF u THEN t = t + ISUNSIGNED typname2typ& = t EXIT FUNCTION END IF t = 0 - IF t$ = "_BYTE" THEN t = BYTETYPE + IF t$ = "_BYTE" OR (t$ = "BYTE" AND qb64prefix_set = 1) THEN t = BYTETYPE IF t$ = "INTEGER" THEN t = INTEGERTYPE IF t$ = "LONG" THEN t = LONGTYPE - IF t$ = "_INTEGER64" THEN t = INTEGER64TYPE - IF t$ = "_OFFSET" THEN t = OFFSETTYPE + IF t$ = "_INTEGER64" OR (t$ = "INTEGER64" AND qb64prefix_set = 1) THEN t = INTEGER64TYPE + IF t$ = "_OFFSET" OR (t$ = "OFFSET" AND qb64prefix_set = 1) THEN t = OFFSETTYPE IF t THEN IF u THEN t = t + ISUNSIGNED typname2typ& = t @@ -21956,6 +22807,9 @@ FUNCTION typname2typ& (t2$) IF t$ = RTRIM$(udtxname(i)) THEN typname2typ& = ISUDT + ISPOINTER + i EXIT FUNCTION + ELSEIF RTRIM$(udtxname(i)) = "_MEM" AND t$ = "MEM" AND qb64prefix_set = 1 THEN + typname2typ& = ISUDT + ISPOINTER + i + EXIT FUNCTION END IF NEXT @@ -22098,7 +22952,11 @@ FUNCTION validlabel (LABEL2$) END FUNCTION SUB xend - + IF vWatchOn = 1 THEN + 'check if closedmain = 0 in case a main module ends in an include. + IF (inclinenumber(inclevel) = 0 OR closedmain = 0) THEN vWatchAddLabel 0, -1 + PRINT #12, "*__LONG_VWATCH_LINENUMBER= 0; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);" + END IF PRINT #12, "sub_end();" END SUB @@ -22122,7 +22980,7 @@ SUB xfileprint (a$, ca$, n) printgotfn: e$ = fixoperationorder$(a3$) IF Error_Happened THEN EXIT SUB - l$ = "PRINT" + sp + "#" + sp2 + tlayout$ + sp2 + "," + l$ = SCase$("Print") + sp + "#" + sp2 + tlayout$ + sp2 + "," e$ = evaluatetotyp(e$, 64&) IF Error_Happened THEN EXIT SUB PRINT #12, "tab_fileno=tmp_fileno=" + e$ + ";" @@ -22134,7 +22992,7 @@ SUB xfileprint (a$, ca$, n) IF getelement(a$, i) = "USING" THEN 'get format string fpujump: - l$ = l$ + sp + "USING" + l$ = l$ + sp + SCase$("Using") e$ = "": b = 0: puformat$ = "" FOR i = i + 1 TO n a2$ = getelement(ca$, i) @@ -22325,7 +23183,7 @@ SUB xfileprint (a$, ca$, n) END SUB SUB xfilewrite (ca$, n) - l$ = "WRITE" + sp + "#" + l$ = SCase$("Write") + sp + "#" u$ = str2$(uniquenumber) PRINT #12, "tab_spc_cr_size=2;" IF n = 2 THEN Give_Error "Expected # ...": EXIT SUB @@ -22441,7 +23299,7 @@ SUB xgosub (ca$) Labels(r).Error_Line = linenumber END IF 'x - l$ = "GOSUB" + sp + tlayout$ + l$ = SCase$("GoSub") + sp + tlayout$ layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$ 'note: This code fragment also used by ON ... GOTO/GOSUB 'assume label is reachable (revise) @@ -22458,7 +23316,7 @@ END SUB SUB xongotogosub (a$, ca$, n) IF n < 4 THEN Give_Error "Expected ON expression GOTO/GOSUB label,label,...": EXIT SUB - l$ = "ON" + l$ = SCase$("On") b = 0 FOR i = 2 TO n e2$ = getelement$(a$, i) @@ -22554,8 +23412,8 @@ END SUB SUB xprint (a$, ca$, n) u$ = str2$(uniquenumber) - l$ = "PRINT" - IF ASC(a$) = 76 THEN lp = 1: lp$ = "l": l$ = "LPRINT": PRINT #12, "tab_LPRINT=1;": DEPENDENCY(DEPENDENCY_PRINTER) = 1 '"L" + l$ = SCase$("Print") + IF ASC(a$) = 76 THEN lp = 1: lp$ = "l": l$ = SCase$("LPrint"): PRINT #12, "tab_LPRINT=1;": DEPENDENCY(DEPENDENCY_PRINTER) = 1 '"L" 'PRINT USING? IF n >= 2 THEN @@ -22563,7 +23421,7 @@ SUB xprint (a$, ca$, n) 'get format string i = 3 pujump: - l$ = l$ + sp + "USING" + l$ = l$ + sp + SCase$("Using") e$ = "": b = 0: puformat$ = "" FOR i = i TO n a2$ = getelement(ca$, i) @@ -22769,7 +23627,7 @@ END SUB SUB xread (ca$, n) - l$ = "READ" + l$ = SCase$("Read") IF n = 1 THEN Give_Error "Expected variable": EXIT SUB i = 2 IF i > n THEN Give_Error "Expected , ...": EXIT SUB @@ -22826,7 +23684,7 @@ SUB xread (ca$, n) END SUB SUB xwrite (ca$, n) - l$ = "WRITE" + l$ = SCase$("Write") u$ = str2$(uniquenumber) IF n = 1 THEN PRINT #12, "qbs_print(nothingstring,1);" @@ -23077,7 +23935,7 @@ FUNCTION evaluateconst$ (a2$, t AS LONG) EXIT FUNCTION END IF - IF o$ = "NOT" THEN + IF UCASE$(o$) = "NOT" THEN IF btype(2) AND ISFLOAT THEN r&& = _CV(_FLOAT, block(2)) ELSE @@ -23105,7 +23963,7 @@ FUNCTION evaluateconst$ (a2$, t AS LONG) 'get operator IF i >= n THEN Give_Error "Invalid CONST expression.8": EXIT FUNCTION - o$ = block(i) + o$ = UCASE$(block(i)) i = i + 1 IF isoperator(o$) = 0 THEN Give_Error "Invalid CONST expression.9": EXIT FUNCTION IF i > n THEN Give_Error "Invalid CONST expression.10": EXIT FUNCTION @@ -23298,20 +24156,24 @@ FUNCTION id2fulltypename$ id2fulltypename$ = a$: EXIT FUNCTION END IF IF t AND ISOFFSETINBITS THEN - IF bits > 1 THEN a$ = "_BIT * " + str2(bits) ELSE a$ = "_BIT" - IF t AND ISUNSIGNED THEN a$ = "_UNSIGNED " + a$ + IF bits > 1 THEN a$ = qb64prefix$ + "BIT * " + str2(bits) ELSE a$ = qb64prefix$ + "BIT" + IF t AND ISUNSIGNED THEN a$ = qb64prefix$ + "UNSIGNED " + a$ id2fulltypename$ = a$: EXIT FUNCTION END IF IF t AND ISFLOAT THEN IF bits = 32 THEN a$ = "SINGLE" IF bits = 64 THEN a$ = "DOUBLE" - IF bits = 256 THEN a$ = "_FLOAT" + IF bits = 256 THEN a$ = qb64prefix$ + "FLOAT" ELSE 'integer-based - IF bits = 8 THEN a$ = "_BYTE" + IF bits = 8 THEN a$ = qb64prefix$ + "BYTE" IF bits = 16 THEN a$ = "INTEGER" IF bits = 32 THEN a$ = "LONG" - IF bits = 64 THEN a$ = "_INTEGER64" - IF t AND ISUNSIGNED THEN a$ = "_UNSIGNED " + a$ + IF bits = 64 THEN a$ = qb64prefix$ + "INTEGER64" + IF t AND ISUNSIGNED THEN a$ = qb64prefix$ + "UNSIGNED " + a$ + END IF + IF t AND ISOFFSET THEN + a$ = qb64prefix$ + "OFFSET" + IF t AND ISUNSIGNED THEN a$ = qb64prefix$ + "UNSIGNED " + a$ END IF id2fulltypename$ = a$ END FUNCTION @@ -23363,23 +24225,23 @@ FUNCTION symbol2fulltypename$ (s2$) u = 1 IF LEN(typ$) = 1 THEN Give_Error "Expected ~...": EXIT FUNCTION s$ = RIGHT$(s$, LEN(s$) - 1) - u$ = "_UNSIGNED " + u$ = qb64prefix$ + "UNSIGNED " END IF - IF s$ = "%%" THEN t$ = u$ + "_BYTE": GOTO gotsym2typ + IF s$ = "%%" THEN t$ = u$ + qb64prefix$ + "BYTE": GOTO gotsym2typ IF s$ = "%" THEN t$ = u$ + "INTEGER": GOTO gotsym2typ IF s$ = "&" THEN t$ = u$ + "LONG": GOTO gotsym2typ - IF s$ = "&&" THEN t$ = u$ + "_INTEGER64": GOTO gotsym2typ - IF s$ = "%&" THEN t$ = u$ + "_OFFSET": GOTO gotsym2typ + IF s$ = "&&" THEN t$ = u$ + qb64prefix$ + "INTEGER64": GOTO gotsym2typ + IF s$ = "%&" THEN t$ = u$ + qb64prefix$ + "OFFSET": GOTO gotsym2typ IF LEFT$(s$, 1) = "`" THEN IF LEN(s$) = 1 THEN - t$ = u$ + "_BIT * 1" + t$ = u$ + qb64prefix$ + "BIT * 1" GOTO gotsym2typ END IF n$ = RIGHT$(s$, LEN(s$) - 1) IF isuinteger(n$) = 0 THEN Give_Error "Expected number after symbol `": EXIT FUNCTION - t$ = u$ + "_BIT * " + n$ + t$ = u$ + qb64prefix$ + "BIT * " + n$ GOTO gotsym2typ END IF @@ -23387,7 +24249,7 @@ FUNCTION symbol2fulltypename$ (s2$) IF s$ = "!" THEN t$ = "SINGLE": GOTO gotsym2typ IF s$ = "#" THEN t$ = "DOUBLE": GOTO gotsym2typ - IF s$ = "##" THEN t$ = "_FLOAT": GOTO gotsym2typ + IF s$ = "##" THEN t$ = qb64prefix$ + "FLOAT": GOTO gotsym2typ IF s$ = "$" THEN t$ = "STRING": GOTO gotsym2typ IF LEFT$(s$, 1) = "$" THEN @@ -23524,9 +24386,9 @@ SUB Build (path$) c$ = GDB_Fix$(c$) IF use THEN IF os$ = "WIN" THEN - SHELL _HIDE "cmd /C " + c$ + " 2>> " + return_path$ + "\" + compilelog$ + SHELL _HIDE "cmd /C " + c$ + " 2>> " + QuotedFilename$(return_path$ + "\" + compilelog$) ELSE - SHELL _HIDE c$ + " 2>> " + previous_dir$ + "/" + compilelog$ + SHELL _HIDE c$ + " 2>> " + QuotedFilename$(previous_dir$ + "/" + compilelog$) END IF END IF LOOP @@ -23577,44 +24439,11 @@ SUB PATH_SLASH_CORRECT (a$) END IF END SUB -SUB UseAndroid (Yes) - - STATIC inline_DATA_backup - STATIC inline_DATA_backup_set - IF inline_DATA_backup_set = 0 THEN - inline_DATA_backup_set = 1 - inline_DATA_backup = inline_DATA - END IF - - IF Yes THEN - IF MakeAndroid = 0 THEN - MakeAndroid = 1 - inline_DATA = 1 - idechangemade = 1 - IDEBuildModeChanged = 1 - END IF - ELSE - IF MakeAndroid THEN - MakeAndroid = 0 - inline_DATA = inline_DATA_backup - idechangemade = 1 - IDEBuildModeChanged = 1 - END IF - END IF - -END SUB - 'Steve Subs/Functins for _MATH support with CONST FUNCTION Evaluate_Expression$ (e$) t$ = e$ 'So we preserve our original data, we parse a temp copy of it - - b = INSTR(UCASE$(e$), "EQL") 'take out assignment before the preparser sees it - IF b THEN t$ = MID$(e$, b + 3): var$ = UCASE$(LTRIM$(RTRIM$(MID$(e$, 1, b - 1)))) - - QuickReturn = 0 PreParse t$ - IF QuickReturn THEN Evaluate_Expression$ = t$: EXIT FUNCTION IF LEFT$(t$, 5) = "ERROR" THEN Evaluate_Expression$ = t$: EXIT FUNCTION @@ -23632,16 +24461,14 @@ FUNCTION Evaluate_Expression$ (e$) END IF LOOP s = Eval_E - c + 1 - IF s < 1 THEN PRINT "ERROR -- BAD () Count": END + IF s < 1 THEN Evaluate_Expression$ = "ERROR -- BAD () Count": EXIT FUNCTION eval$ = " " + MID$(exp$, s, Eval_E - s) + " " 'pad with a space before and after so the parser can pick up the values properly. - ParseExpression eval$ + ParseExpression eval$ eval$ = LTRIM$(RTRIM$(eval$)) - IF LEFT$(eval$, 5) = "ERROR" THEN Evaluate_Expression$ = eval$: EXIT SUB + IF LEFT$(eval$, 5) = "ERROR" THEN Evaluate_Expression$ = eval$: EXIT FUNCTION exp$ = DWD(LEFT$(exp$, s - 2) + eval$ + MID$(exp$, Eval_E + 1)) IF MID$(exp$, 1, 1) = "N" THEN MID$(exp$, 1) = "-" - - temppp$ = DWD(LEFT$(exp$, s - 2) + " ## " + eval$ + " ## " + MID$(exp$, E + 1)) END IF LOOP UNTIL Eval_E = 0 c = 0 @@ -23649,7 +24476,7 @@ FUNCTION Evaluate_Expression$ (e$) c = c + 1 SELECT CASE MID$(exp$, c, 1) CASE "0" TO "9", ".", "-" 'At this point, we should only have number values left. - CASE ELSE: Evaluate_Expression$ = "ERROR - Unknown Diagnosis: (" + exp$ + ") ": EXIT SUB + CASE ELSE: Evaluate_Expression$ = "ERROR - Unknown Diagnosis: (" + exp$ + ") ": EXIT FUNCTION END SELECT LOOP UNTIL c >= LEN(exp$) @@ -23660,8 +24487,10 @@ END FUNCTION SUB ParseExpression (exp$) DIM num(10) AS STRING + 'PRINT exp$ + exp$ = DWD(exp$) 'We should now have an expression with no () to deal with - IF MID$(exp$, 2, 1) = "-" THEN exp$ = "0+" + MID$(exp$, 2) + FOR J = 1 TO 250 lowest = 0 DO UNTIL lowest = LEN(exp$) @@ -23669,12 +24498,23 @@ SUB ParseExpression (exp$) FOR P = 1 TO UBOUND(OName) 'Look for first valid operator IF J = PL(P) THEN 'Priority levels match - IF LEFT$(exp$, 1) = "-" THEN op = INSTR(2, exp$, OName(P)) ELSE op = INSTR(exp$, OName(P)) + IF LEFT$(exp$, 1) = "-" THEN startAt = 2 ELSE startAt = 1 + op = INSTR(startAt, exp$, OName(P)) + IF op = 0 AND LEFT$(OName(P), 1) = "_" AND qb64prefix_set = 1 THEN + 'try again without prefix + op = INSTR(startAt, exp$, MID$(OName(P), 2)) + IF op > 0 THEN + exp$ = LEFT$(exp$, op - 1) + "_" + MID$(exp$, op) + lowest = lowest + 1 + END IF + END IF IF op > 0 AND op < lowest THEN lowest = op: OpOn = P END IF NEXT IF OpOn = 0 THEN EXIT DO 'We haven't gotten to the proper PL for this OP to be processed yet. - IF LEFT$(exp$, 1) = "-" THEN op = INSTR(2, exp$, OName(OpOn)) ELSE op = INSTR(exp$, OName(OpOn)) + IF LEFT$(exp$, 1) = "-" THEN startAt = 2 ELSE startAt = 1 + op = INSTR(startAt, exp$, OName(OpOn)) + numset = 0 '*** SPECIAL OPERATION RULESETS @@ -23693,6 +24533,7 @@ SUB ParseExpression (exp$) CASE "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "N": numset = -1 'Valid digit CASE "-" 'We need to check if it's a minus or a negative IF OName(OpOn) = "_PI" OR numset THEN EXIT DO + CASE ",": numset = 0 CASE ELSE 'Not a valid digit, we found our separator EXIT DO END SELECT @@ -23728,13 +24569,14 @@ SUB ParseExpression (exp$) num(2) = MID$(exp$, op + LEN(OName(OpOn)), E - op - LEN(OName(OpOn)) + 1) 'Get our second number IF MID$(num(1), 1, 1) = "N" THEN MID$(num(1), 1) = "-" IF MID$(num(2), 1, 1) = "N" THEN MID$(num(2), 1) = "-" - num(3) = EvaluateNumbers(OpOn, num()) + IF num(1) = "-" THEN + num(3) = "N" + EvaluateNumbers(OpOn, num()) + ELSE + num(3) = EvaluateNumbers(OpOn, num()) + END IF IF MID$(num(3), 1, 1) = "-" THEN MID$(num(3), 1) = "N" - 'PRINT "*************" - 'PRINT num(1), OName(OpOn), num(2), num(3), exp$ IF LEFT$(num(3), 5) = "ERROR" THEN exp$ = num(3): EXIT SUB exp$ = LTRIM$(N2S(DWD(LEFT$(exp$, s) + RTRIM$(LTRIM$(num(3))) + MID$(exp$, E + 1)))) - 'PRINT exp$ END IF op = 0 LOOP @@ -23748,199 +24590,362 @@ SUB Set_OrderOfOperations 'PL sets our priortity level. 1 is highest to 65535 for the lowest. 'I used a range here so I could add in new priority levels as needed. 'OName ended up becoming the name of our commands, as I modified things.... Go figure! LOL! - + REDIM OName(10000) AS STRING, PL(10000) AS INTEGER 'Constants get evaluated first, with a Priority Level of 1 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_PI" - REDIM _PRESERVE PL(i): PL(i) = 1 - 'I'm not certain where exactly percentages should go. They kind of seem like a special case to me. COS10% should be COS.1 I'd think... - 'I'm putting it here for now, and if anyone knows someplace better for it in our order of operations, let me know. - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "%" - REDIM _PRESERVE PL(i): PL(i) = 5 + + i = i + 1: OName(i) = "C_UOF": PL(i) = 5 'convert to unsigned offset + i = i + 1: OName(i) = "C_OF": PL(i) = 5 'convert to offset + i = i + 1: OName(i) = "C_UBY": PL(i) = 5 'convert to unsigned byte + i = i + 1: OName(i) = "C_BY": PL(i) = 5 'convert to byte + i = i + 1: OName(i) = "C_UIN": PL(i) = 5 'convert to unsigned integer + i = i + 1: OName(i) = "C_IN": PL(i) = 5 'convert to integer + i = i + 1: OName(i) = "C_UIF": PL(i) = 5 'convert to unsigned int64 + i = i + 1: OName(i) = "C_IF": PL(i) = 5 'convert to int64 + i = i + 1: OName(i) = "C_ULO": PL(i) = 5 'convert to unsigned long + i = i + 1: OName(i) = "C_LO": PL(i) = 5 'convert to long + i = i + 1: OName(i) = "C_SI": PL(i) = 5 'convert to single + i = i + 1: OName(i) = "C_FL": PL(i) = 5 'convert to float + i = i + 1: OName(i) = "C_DO": PL(i) = 5 'convert to double + i = i + 1: OName(i) = "C_UBI": PL(i) = 5 'convert to unsigned bit + i = i + 1: OName(i) = "C_BI": PL(i) = 5 'convert to bit + 'Then Functions with PL 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_ACOS" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_ASIN" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_ARCSEC" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_ARCCSC" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_ARCCOT" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_SECH" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_CSCH" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_COTH" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "COS" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "SIN" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "TAN" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "LOG" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "EXP" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "ATN" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_D2R" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_D2G" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_R2D" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_R2G" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_G2D" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_G2R" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "ABS" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "SGN" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "INT" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_ROUND" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "FIX" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_SEC" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_CSC" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "_COT" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "ASC" - REDIM _PRESERVE PL(i): PL(i) = 10 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "CHR$" - REDIM _PRESERVE PL(i): PL(i) = 10 + i = i + 1:: OName(i) = "_PI": PL(i) = 10 + i = i + 1: OName(i) = "_ACOS": PL(i) = 10 + i = i + 1: OName(i) = "_ASIN": PL(i) = 10 + i = i + 1: OName(i) = "_ARCSEC": PL(i) = 10 + i = i + 1: OName(i) = "_ARCCSC": PL(i) = 10 + i = i + 1: OName(i) = "_ARCCOT": PL(i) = 10 + i = i + 1: OName(i) = "_SECH": PL(i) = 10 + i = i + 1: OName(i) = "_CSCH": PL(i) = 10 + i = i + 1: OName(i) = "_COTH": PL(i) = 10 + i = i + 1: OName(i) = "COS": PL(i) = 10 + i = i + 1: OName(i) = "SIN": PL(i) = 10 + i = i + 1: OName(i) = "TAN": PL(i) = 10 + i = i + 1: OName(i) = "LOG": PL(i) = 10 + i = i + 1: OName(i) = "EXP": PL(i) = 10 + i = i + 1: OName(i) = "ATN": PL(i) = 10 + i = i + 1: OName(i) = "_D2R": PL(i) = 10 + i = i + 1: OName(i) = "_D2G": PL(i) = 10 + i = i + 1: OName(i) = "_R2D": PL(i) = 10 + i = i + 1: OName(i) = "_R2G": PL(i) = 10 + i = i + 1: OName(i) = "_G2D": PL(i) = 10 + i = i + 1: OName(i) = "_G2R": PL(i) = 10 + i = i + 1: OName(i) = "ABS": PL(i) = 10 + i = i + 1: OName(i) = "SGN": PL(i) = 10 + i = i + 1: OName(i) = "INT": PL(i) = 10 + i = i + 1: OName(i) = "_ROUND": PL(i) = 10 + i = i + 1: OName(i) = "_CEIL": PL(i) = 10 + i = i + 1: OName(i) = "FIX": PL(i) = 10 + i = i + 1: OName(i) = "_SEC": PL(i) = 10 + i = i + 1: OName(i) = "_CSC": PL(i) = 10 + i = i + 1: OName(i) = "_COT": PL(i) = 10 + i = i + 1: OName(i) = "ASC": PL(i) = 10 + i = i + 1: OName(i) = "C_RG": PL(i) = 10 '_RGB32 converted + i = i + 1: OName(i) = "C_RA": PL(i) = 10 '_RGBA32 converted + i = i + 1: OName(i) = "_RGB": PL(i) = 10 + i = i + 1: OName(i) = "_RGBA": PL(i) = 10 + i = i + 1: OName(i) = "C_RX": PL(i) = 10 '_RED32 converted + i = i + 1: OName(i) = "C_GR": PL(i) = 10 ' _GREEN32 converted + i = i + 1: OName(i) = "C_BL": PL(i) = 10 '_BLUE32 converted + i = i + 1: OName(i) = "C_AL": PL(i) = 10 '_ALPHA32 converted + i = i + 1: OName(i) = "_RED": PL(i) = 10 + i = i + 1: OName(i) = "_GREEN": PL(i) = 10 + i = i + 1: OName(i) = "_BLUE": PL(i) = 10 + i = i + 1: OName(i) = "_ALPHA": PL(i) = 10 'Exponents with PL 20 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "^" - REDIM _PRESERVE PL(i): PL(i) = 20 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "SQR" - REDIM _PRESERVE PL(i): PL(i) = 20 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "ROOT" - REDIM _PRESERVE PL(i): PL(i) = 20 + i = i + 1: OName(i) = "^": PL(i) = 20 + i = i + 1: OName(i) = "SQR": PL(i) = 20 + i = i + 1: OName(i) = "ROOT": PL(i) = 20 'Multiplication and Division PL 30 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "*" - REDIM _PRESERVE PL(i): PL(i) = 30 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "/" - REDIM _PRESERVE PL(i): PL(i) = 30 + i = i + 1: OName(i) = "*": PL(i) = 30 + i = i + 1: OName(i) = "/": PL(i) = 30 'Integer Division PL 40 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "\" - REDIM _PRESERVE PL(i): PL(i) = 40 + i = i + 1: OName(i) = "\": PL(i) = 40 'MOD PL 50 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "MOD" - REDIM _PRESERVE PL(i): PL(i) = 50 + i = i + 1: OName(i) = "MOD": PL(i) = 50 'Addition and Subtraction PL 60 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "+" - REDIM _PRESERVE PL(i): PL(i) = 60 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "-" - REDIM _PRESERVE PL(i): PL(i) = 60 + i = i + 1: OName(i) = "+": PL(i) = 60 + i = i + 1: OName(i) = "-": PL(i) = 60 'Relational Operators =, >, <, <>, <=, >= PL 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "<>" - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "><" 'These next three are just reversed symbols as an attempt to help process a common typo - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "<=" - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = ">=" - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "=<" 'I personally can never keep these things straight. Is it < = or = <... - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "=>" 'Who knows, check both! - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = ">" - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "<" - REDIM _PRESERVE PL(i): PL(i) = 70 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "=" - REDIM _PRESERVE PL(i): PL(i) = 70 + i = i + 1: OName(i) = "<>": PL(i) = 70 'These next three are just reversed symbols as an attempt to help process a common typo + i = i + 1: OName(i) = "><": PL(i) = 70 + i = i + 1: OName(i) = "<=": PL(i) = 70 + i = i + 1: OName(i) = ">=": PL(i) = 70 + i = i + 1: OName(i) = "=<": PL(i) = 70 'I personally can never keep these things straight. Is it < = or = <... + i = i + 1: OName(i) = "=>": PL(i) = 70 'Who knows, check both! + i = i + 1: OName(i) = ">": PL(i) = 70 + i = i + 1: OName(i) = "<": PL(i) = 70 + i = i + 1: OName(i) = "=": PL(i) = 70 'Logical Operations PL 80+ - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "NOT" - REDIM _PRESERVE PL(i): PL(i) = 80 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "AND" - REDIM _PRESERVE PL(i): PL(i) = 90 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "OR" - REDIM _PRESERVE PL(i): PL(i) = 100 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "XOR" - REDIM _PRESERVE PL(i): PL(i) = 110 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "EQV" - REDIM _PRESERVE PL(i): PL(i) = 120 - i = i + 1: REDIM _PRESERVE OName(i): OName(i) = "IMP" - REDIM _PRESERVE PL(i): PL(i) = 130 + i = i + 1: OName(i) = "NOT": PL(i) = 80 + i = i + 1: OName(i) = "AND": PL(i) = 90 + i = i + 1: OName(i) = "OR": PL(i) = 100 + i = i + 1: OName(i) = "XOR": PL(i) = 110 + i = i + 1: OName(i) = "EQV": PL(i) = 120 + i = i + 1: OName(i) = "IMP": PL(i) = 130 + i = i + 1: OName(i) = ",": PL(i) = 1000 + REDIM _PRESERVE OName(i) AS STRING, PL(i) AS INTEGER END SUB FUNCTION EvaluateNumbers$ (p, num() AS STRING) DIM n1 AS _FLOAT, n2 AS _FLOAT, n3 AS _FLOAT - SELECT CASE OName(p) 'Depending on our operator.. - CASE "_PI": n1 = 3.14159265358979323846264338327950288## 'Future compatable in case something ever stores extra digits for PI - CASE "%": n1 = (VAL(num(1))) / 100 'Note percent is a special case and works with the number BEFORE the % command and not after - CASE "_ACOS": n1 = _ACOS(VAL(num(2))) - CASE "_ASIN": n1 = _ASIN(VAL(num(2))) - CASE "_ARCSEC": n1 = _ARCSEC(VAL(num(2))) - CASE "_ARCCSC": n1 = _ARCCSC(VAL(num(2))) - CASE "_ARCCOT": n1 = _ARCCOT(VAL(num(2))) - CASE "_SECH": n1 = _SECH(VAL(num(2))) - CASE "_CSCH": n1 = _CSCH(VAL(num(2))) - CASE "_COTH": n1 = _COTH(VAL(num(2))) - CASE "COS": n1 = COS(VAL(num(2))) - CASE "SIN": n1 = SIN(VAL(num(2))) - CASE "TAN": n1 = TAN(VAL(num(2))) - CASE "LOG": n1 = LOG(VAL(num(2))) - CASE "EXP": n1 = EXP(VAL(num(2))) - CASE "ATN": n1 = ATN(VAL(num(2))) - CASE "_D2R": n1 = 0.0174532925 * (VAL(num(2))) - CASE "_D2G": n1 = 1.1111111111 * (VAL(num(2))) - CASE "_R2D": n1 = 57.2957795 * (VAL(num(2))) - CASE "_R2G": n1 = 0.015707963 * (VAL(num(2))) - CASE "_G2D": n1 = 0.9 * (VAL(num(2))) - CASE "_G2R": n1 = 63.661977237 * (VAL(num(2))) - CASE "ABS": n1 = ABS(VAL(num(2))) - CASE "SGN": n1 = SGN(VAL(num(2))) - CASE "INT": n1 = INT(VAL(num(2))) - CASE "_ROUND": n1 = _ROUND(VAL(num(2))) - CASE "FIX": n1 = FIX(VAL(num(2))) - CASE "_SEC": n1 = _SEC(VAL(num(2))) - CASE "_CSC": n1 = _CSC(VAL(num(2))) - CASE "_COT": n1 = _COT(VAL(num(2))) - CASE "^": n1 = VAL(num(1)) ^ VAL(num(2)) - CASE "SQR": n1 = SQR(VAL(num(2))) - CASE "ROOT" - n1 = VAL(num(1)): n2 = VAL(num(2)) - IF n2 = 1 THEN EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1))): EXIT FUNCTION - IF n1 < 0 AND n2 >= 1 THEN sign = -1: n1 = -n1 ELSE sign = 1 - n3 = 1## / n2 - IF n3 <> INT(n3) AND n2 < 1 THEN sign = SGN(n1): n1 = ABS(n1) - n1 = sign * (n1 ^ n3) - CASE "*": n1 = VAL(num(1)) * VAL(num(2)) - CASE "/": n1 = VAL(num(1)) / VAL(num(2)) - CASE "\": n1 = VAL(num(1)) \ VAL(num(2)) - CASE "MOD": n1 = VAL(num(1)) MOD VAL(num(2)) - CASE "+": n1 = VAL(num(1)) + VAL(num(2)) - CASE "-": n1 = VAL(num(1)) - VAL(num(2)) - CASE "=": n1 = VAL(num(1)) = VAL(num(2)) - CASE ">": n1 = VAL(num(1)) > VAL(num(2)) - CASE "<": n1 = VAL(num(1)) < VAL(num(2)) - CASE "<>", "><": n1 = VAL(num(1)) <> VAL(num(2)) - CASE "<=", "=<": n1 = VAL(num(1)) <= VAL(num(2)) - CASE ">=", "=>": n1 = VAL(num(1)) >= VAL(num(2)) - CASE "NOT": n1 = NOT VAL(num(2)) - CASE "AND": n1 = VAL(num(1)) AND VAL(num(2)) - CASE "OR": n1 = VAL(num(1)) OR VAL(num(2)) - CASE "XOR": n1 = VAL(num(1)) XOR VAL(num(2)) - CASE "EQV": n1 = VAL(num(1)) EQV VAL(num(2)) - CASE "IMP": n1 = VAL(num(1)) IMP VAL(num(2)) - CASE ELSE - EvaluateNumbers$ = "ERROR - Bad operation (We shouldn't see this)" 'Let's say we're bad... + 'PRINT "EVALNUM:"; OName(p), num(1), num(2) + + IF _TRIM$(num(1)) = "" THEN num(1) = "0" + + IF PL(p) >= 20 AND (LEN(_TRIM$(num(1))) = 0 OR LEN(_TRIM$(num(2))) = 0) THEN + EvaluateNumbers$ = "ERROR - Missing operand": EXIT FUNCTION + END IF + + IF INSTR(num(1), ",") THEN + EvaluateNumbers$ = "ERROR - Invalid comma (" + num(1) + ")": EXIT FUNCTION + END IF + l2 = INSTR(num(2), ",") + IF l2 THEN + SELECT CASE OName(p) 'only certain commands should pass a comma value + CASE "C_RG", "C_RA", "_RGB", "_RGBA", "_RED", "_GREEN", "C_BL", "_ALPHA" + CASE ELSE + C$ = MID$(num(2), l2) + num(2) = LEFT$(num(2), l2 - 1) + END SELECT + END IF + + SELECT CASE PL(p) 'divide up the work so we want do as much case checking + CASE 5 'Type conversions + 'Note, these are special cases and work with the number BEFORE the command and not after + SELECT CASE OName(p) 'Depending on our operator.. + CASE "C_UOF": n1~%& = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1~%&))) + CASE "C_ULO": n1%& = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1%&))) + CASE "C_UBY": n1~%% = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1~%%))) + CASE "C_UIN": n1~% = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1~%))) + CASE "C_BY": n1%% = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1%%))) + CASE "C_IN": n1% = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1%))) + CASE "C_UIF": n1~&& = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1~&&))) + CASE "C_OF": n1~& = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1~&))) + CASE "C_IF": n1&& = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1&&))) + CASE "C_LO": n1& = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1&))) + CASE "C_UBI": n1~` = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1~`))) + CASE "C_BI": n1` = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1`))) + CASE "C_FL": n1## = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1##))) + CASE "C_DO": n1# = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1#))) + CASE "C_SI": n1! = VAL(num(1)): EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1!))) + END SELECT + EXIT FUNCTION + CASE 10 'functions + SELECT CASE OName(p) 'Depending on our operator.. + CASE "_PI" + n1 = 3.14159265358979323846264338327950288## 'Future compatable in case something ever stores extra digits for PI + IF num(2) <> "" THEN n1 = n1 * VAL(num(2)) + CASE "_ACOS": n1 = _ACOS(VAL(num(2))) + CASE "_ASIN": n1 = _ASIN(VAL(num(2))) + CASE "_ARCSEC": n1 = _ARCSEC(VAL(num(2))) + CASE "_ARCCSC": n1 = _ARCCSC(VAL(num(2))) + CASE "_ARCCOT": n1 = _ARCCOT(VAL(num(2))) + CASE "_SECH": n1 = _SECH(VAL(num(2))) + CASE "_CSCH": n1 = _CSCH(VAL(num(2))) + CASE "_COTH": n1 = _COTH(VAL(num(2))) + CASE "C_RG" + n$ = num(2) + IF n$ = "" THEN EvaluateNumbers$ = "ERROR - Invalid null _RGB32": EXIT FUNCTION + c1 = INSTR(n$, ",") + IF c1 THEN c2 = INSTR(c1 + 1, n$, ",") + IF c2 THEN c3 = INSTR(c2 + 1, n$, ",") + IF c3 THEN c4 = INSTR(c3 + 1, n$, ",") + IF c1 = 0 THEN 'there's no comma in the command to parse. It's a grayscale value + n = VAL(num(2)) + n1 = _RGB32(n, n, n) + ELSEIF c2 = 0 THEN 'there's one comma and not 2. It's grayscale with alpha. + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + n1 = _RGBA32(n, n, n, n2) + ELSEIF c3 = 0 THEN 'there's two commas. It's _RGB values + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + n3 = VAL(MID$(num(2), c2 + 1)) + n1 = _RGB32(n, n2, n3) + ELSEIF c4 = 0 THEN 'there's three commas. It's _RGBA values + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + n3 = VAL(MID$(num(2), c2 + 1)) + n4 = VAL(MID$(num(2), c3 + 1)) + n1 = _RGBA32(n, n2, n3, n4) + ELSE 'we have more than three commas. I have no idea WTH type of values got passed here! + EvaluateNumbers$ = "ERROR - Invalid comma count (" + num(2) + ")": EXIT FUNCTION + END IF + CASE "C_RA" + n$ = num(2) + IF n$ = "" THEN EvaluateNumbers$ = "ERROR - Invalid null _RGBA32": EXIT FUNCTION + c1 = INSTR(n$, ",") + IF c1 THEN c2 = INSTR(c1 + 1, n$, ",") + IF c2 THEN c3 = INSTR(c2 + 1, n$, ",") + IF c3 THEN c4 = INSTR(c3 + 1, n$, ",") + IF c3 = 0 OR c4 <> 0 THEN EvaluateNumbers$ = "ERROR - Invalid comma count (" + num(2) + ")": EXIT FUNCTION + 'we have to have 3 commas; not more, not less. + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + n3 = VAL(MID$(num(2), c2 + 1)) + n4 = VAL(MID$(num(2), c3 + 1)) + n1 = _RGBA32(n, n2, n3, n4) + CASE "_RGB" + n$ = num(2) + IF n$ = "" THEN EvaluateNumbers$ = "ERROR - Invalid null _RGB": EXIT FUNCTION + c1 = INSTR(n$, ",") + IF c1 THEN c2 = INSTR(c1 + 1, n$, ",") + IF c2 THEN c3 = INSTR(c2 + 1, n$, ",") + IF c3 THEN c4 = INSTR(c3 + 1, n$, ",") + IF c3 = 0 OR c4 <> 0 THEN EvaluateNumbers$ = "ERROR - Invalid comma count (" + num(2) + "). _RGB requires 4 parameters for Red, Green, Blue, ScreenMode.": EXIT FUNCTION + 'we have to have 3 commas; not more, not less. + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + n3 = VAL(MID$(num(2), c2 + 1)) + n4 = VAL(MID$(num(2), c3 + 1)) + SELECT CASE n4 + CASE 0 TO 2, 7 TO 13, 256, 32 'these are the good screen values + CASE ELSE + EvaluateNumbers$ = "ERROR - Invalid Screen Mode (" + STR$(n4) + ")": EXIT FUNCTION + END SELECT + t = _NEWIMAGE(1, 1, n4) + n1 = _RGB(n, n2, n3, t) + _FREEIMAGE t + CASE "_RGBA" + n$ = num(2) + IF n$ = "" THEN EvaluateNumbers$ = "ERROR - Invalid null _RGBA": EXIT FUNCTION + c1 = INSTR(n$, ",") + IF c1 THEN c2 = INSTR(c1 + 1, n$, ",") + IF c2 THEN c3 = INSTR(c2 + 1, n$, ",") + IF c3 THEN c4 = INSTR(c3 + 1, n$, ",") + IF c4 THEN c5 = INSTR(c4 + 1, n$, ",") + IF c4 = 0 OR c5 <> 0 THEN EvaluateNumbers$ = "ERROR - Invalid comma count (" + num(2) + "). _RGBA requires 5 parameters for Red, Green, Blue, Alpha, ScreenMode.": EXIT FUNCTION + 'we have to have 4 commas; not more, not less. + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + n3 = VAL(MID$(num(2), c2 + 1)) + n4 = VAL(MID$(num(2), c3 + 1)) + n5 = VAL(MID$(num(2), c4 + 1)) + SELECT CASE n5 + CASE 0 TO 2, 7 TO 13, 256, 32 'these are the good screen values + CASE ELSE + EvaluateNumbers$ = "ERROR - Invalid Screen Mode (" + STR$(n5) + ")": EXIT FUNCTION + END SELECT + t = _NEWIMAGE(1, 1, n5) + n1 = _RGBA(n, n2, n3, n4, t) + _FREEIMAGE t + CASE "_RED", "_GREEN", "_BLUE", "_ALPHA" + n$ = num(2) + IF n$ = "" THEN EvaluateNumbers$ = "ERROR - Invalid null " + OName(p): EXIT FUNCTION + c1 = INSTR(n$, ",") + IF c1 = 0 THEN EvaluateNumbers$ = "ERROR - " + OName(p) + " requires 2 parameters for Color, ScreenMode.": EXIT FUNCTION + IF c1 THEN c2 = INSTR(c1 + 1, n$, ",") + IF c2 THEN EvaluateNumbers$ = "ERROR - " + OName(p) + " requires 2 parameters for Color, ScreenMode.": EXIT FUNCTION + n = VAL(LEFT$(num(2), c1)) + n2 = VAL(MID$(num(2), c1 + 1)) + SELECT CASE n2 + CASE 0 TO 2, 7 TO 13, 256, 32 'these are the good screen values + CASE ELSE + EvaluateNumbers$ = "ERROR - Invalid Screen Mode (" + STR$(n2) + ")": EXIT FUNCTION + END SELECT + t = _NEWIMAGE(1, 1, n4) + SELECT CASE OName(p) + CASE "_RED": n1 = _RED(n, t) + CASE "_BLUE": n1 = _BLUE(n, t) + CASE "_GREEN": n1 = _GREEN(n, t) + CASE "_ALPHA": n1 = _ALPHA(n, t) + END SELECT + _FREEIMAGE t + CASE "C_RX", "C_GR", "C_BL", "C_AL" + n$ = num(2) + IF n$ = "" THEN EvaluateNumbers$ = "ERROR - Invalid null " + OName(p): EXIT FUNCTION + n = VAL(num(2)) + SELECT CASE OName(p) + CASE "C_RX": n1 = _RED32(n) + CASE "C_BL": n1 = _BLUE32(n) + CASE "C_GR": n1 = _GREEN32(n) + CASE "C_AL": n1 = _ALPHA32(n) + END SELECT + CASE "COS": n1 = COS(VAL(num(2))) + CASE "SIN": n1 = SIN(VAL(num(2))) + CASE "TAN": n1 = TAN(VAL(num(2))) + CASE "LOG": n1 = LOG(VAL(num(2))) + CASE "EXP": n1 = EXP(VAL(num(2))) + CASE "ATN": n1 = ATN(VAL(num(2))) + CASE "_D2R": n1 = 0.0174532925 * (VAL(num(2))) + CASE "_D2G": n1 = 1.1111111111 * (VAL(num(2))) + CASE "_R2D": n1 = 57.2957795 * (VAL(num(2))) + CASE "_R2G": n1 = 0.015707963 * (VAL(num(2))) + CASE "_G2D": n1 = 0.9 * (VAL(num(2))) + CASE "_G2R": n1 = 63.661977237 * (VAL(num(2))) + CASE "ABS": n1 = ABS(VAL(num(2))) + CASE "SGN": n1 = SGN(VAL(num(2))) + CASE "INT": n1 = INT(VAL(num(2))) + CASE "_ROUND": n1 = _ROUND(VAL(num(2))) + CASE "_CEIL": n1 = _CEIL(VAL(num(2))) + CASE "FIX": n1 = FIX(VAL(num(2))) + CASE "_SEC": n1 = _SEC(VAL(num(2))) + CASE "_CSC": n1 = _CSC(VAL(num(2))) + CASE "_COT": n1 = _COT(VAL(num(2))) + END SELECT + CASE 20 TO 60 'Math Operators + SELECT CASE OName(p) 'Depending on our operator.. + CASE "^": n1 = VAL(num(1)) ^ VAL(num(2)) + CASE "SQR": n1 = SQR(VAL(num(2))) + CASE "ROOT" + n1 = VAL(num(1)): n2 = VAL(num(2)) + IF n2 = 1 THEN EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1))): EXIT FUNCTION + IF n1 < 0 AND n2 >= 1 THEN sign = -1: n1 = -n1 ELSE sign = 1 + n3 = 1## / n2 + IF n3 <> INT(n3) AND n2 < 1 THEN sign = SGN(n1): n1 = ABS(n1) + n1 = sign * (n1 ^ n3) + CASE "*": n1 = VAL(num(1)) * VAL(num(2)) + CASE "/" + IF VAL(num(2)) <> 0 THEN + n1 = VAL(num(1)) / VAL(num(2)) + ELSE + EvaluateNumbers$ = "ERROR - Division By Zero" + EXIT FUNCTION + END IF + CASE "\" + IF VAL(num(2)) <> 0 THEN + n1 = VAL(num(1)) \ VAL(num(2)) + ELSE + EvaluateNumbers$ = "ERROR - Division By Zero" + EXIT FUNCTION + END IF + CASE "MOD" + IF VAL(num(2)) <> 0 THEN + n1 = VAL(num(1)) MOD VAL(num(2)) + ELSE + EvaluateNumbers$ = "ERROR - Division By Zero" + EXIT FUNCTION + END IF + CASE "+": n1 = VAL(num(1)) + VAL(num(2)) + CASE "-": + n1 = VAL(num(1)) - VAL(num(2)) + END SELECT + CASE 70 'Relational Operators =, >, <, <>, <=, >= + SELECT CASE OName(p) 'Depending on our operator.. + CASE "=": n1 = VAL(num(1)) = VAL(num(2)) + CASE ">": n1 = VAL(num(1)) > VAL(num(2)) + CASE "<": n1 = VAL(num(1)) < VAL(num(2)) + CASE "<>", "><": n1 = VAL(num(1)) <> VAL(num(2)) + CASE "<=", "=<": n1 = VAL(num(1)) <= VAL(num(2)) + CASE ">=", "=>": n1 = VAL(num(1)) >= VAL(num(2)) + END SELECT + CASE ELSE 'a value we haven't processed elsewhere + SELECT CASE OName(p) 'Depending on our operator.. + CASE "NOT": n1 = NOT VAL(num(2)) + CASE "AND": n1 = VAL(num(1)) AND VAL(num(2)) + CASE "OR": n1 = VAL(num(1)) OR VAL(num(2)) + CASE "XOR": n1 = VAL(num(1)) XOR VAL(num(2)) + CASE "EQV": n1 = VAL(num(1)) EQV VAL(num(2)) + CASE "IMP": n1 = VAL(num(1)) IMP VAL(num(2)) + END SELECT END SELECT - EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1))) + + EvaluateNumbers$ = RTRIM$(LTRIM$(STR$(n1))) + C$ END FUNCTION FUNCTION DWD$ (exp$) 'Deal With Duplicates @@ -23970,12 +24975,47 @@ FUNCTION DWD$ (exp$) 'Deal With Duplicates LOOP UNTIL l = 0 LOOP UNTIL NOT bad DWD$ = t$ - VerifyString t$ END FUNCTION SUB PreParse (e$) DIM f AS _FLOAT + STATIC TotalPrefixedPP_TypeMod AS LONG, TotalPP_TypeMod AS LONG + IF PP_TypeMod(0) = "" THEN + REDIM PP_TypeMod(100) AS STRING, PP_ConvertedMod(100) AS STRING 'Large enough to hold all values to begin with + PP_TypeMod(0) = "Initialized" 'Set so we don't do this section over and over, as we keep the values in shared memory. + 'and the below is a conversion list so symbols don't get cross confused. + i = i + 1: PP_TypeMod(i) = "~`": PP_ConvertedMod(i) = "C_UBI" 'unsigned bit + i = i + 1: PP_TypeMod(i) = "~%%": PP_ConvertedMod(i) = "C_UBY" 'unsigned byte + i = i + 1: PP_TypeMod(i) = "~%&": PP_ConvertedMod(i) = "C_UOF" 'unsigned offset + i = i + 1: PP_TypeMod(i) = "~%": PP_ConvertedMod(i) = "C_UIN" 'unsigned integer + i = i + 1: PP_TypeMod(i) = "~&&": PP_ConvertedMod(i) = "C_UIF" 'unsigned integer64 + i = i + 1: PP_TypeMod(i) = "~&": PP_ConvertedMod(i) = "C_ULO" 'unsigned long + i = i + 1: PP_TypeMod(i) = "`": PP_ConvertedMod(i) = "C_BI" 'bit + i = i + 1: PP_TypeMod(i) = "%%": PP_ConvertedMod(i) = "C_BY" 'byte + i = i + 1: PP_TypeMod(i) = "%&": PP_ConvertedMod(i) = "C_OF" 'offset + i = i + 1: PP_TypeMod(i) = "%": PP_ConvertedMod(i) = "C_IN" 'integer + i = i + 1: PP_TypeMod(i) = "&&": PP_ConvertedMod(i) = "C_IF" 'integer64 + i = i + 1: PP_TypeMod(i) = "&": PP_ConvertedMod(i) = "C_LO" 'long + i = i + 1: PP_TypeMod(i) = "!": PP_ConvertedMod(i) = "C_SI" 'single + i = i + 1: PP_TypeMod(i) = "##": PP_ConvertedMod(i) = "C_FL" 'float + i = i + 1: PP_TypeMod(i) = "#": PP_ConvertedMod(i) = "C_DO" 'double + i = i + 1: PP_TypeMod(i) = "_RGB32": PP_ConvertedMod(i) = "C_RG" 'rgb32 + i = i + 1: PP_TypeMod(i) = "_RGBA32": PP_ConvertedMod(i) = "C_RA" 'rgba32 + i = i + 1: PP_TypeMod(i) = "_RED32": PP_ConvertedMod(i) = "C_RX" 'red32 + i = i + 1: PP_TypeMod(i) = "_GREEN32": PP_ConvertedMod(i) = "C_GR" 'green32 + i = i + 1: PP_TypeMod(i) = "_BLUE32": PP_ConvertedMod(i) = "C_BL" 'blue32 + i = i + 1: PP_TypeMod(i) = "_ALPHA32": PP_ConvertedMod(i) = "C_AL" 'alpha32 + TotalPrefixedPP_TypeMod = i + i = i + 1: PP_TypeMod(i) = "RGB32": PP_ConvertedMod(i) = "C_RG" 'rgb32 + i = i + 1: PP_TypeMod(i) = "RGBA32": PP_ConvertedMod(i) = "C_RA" 'rgba32 + i = i + 1: PP_TypeMod(i) = "RED32": PP_ConvertedMod(i) = "C_RX" 'red32 + i = i + 1: PP_TypeMod(i) = "GREEN32": PP_ConvertedMod(i) = "C_GR" 'green32 + i = i + 1: PP_TypeMod(i) = "BLUE32": PP_ConvertedMod(i) = "C_BL" 'blue32 + i = i + 1: PP_TypeMod(i) = "ALPHA32": PP_ConvertedMod(i) = "C_AL" 'alpha32 + TotalPP_TypeMod = i + REDIM _PRESERVE PP_TypeMod(i) AS STRING, PP_ConvertedMod(i) AS STRING 'And then resized to just contain the necessary space in memory + END IF t$ = e$ 'First strip all spaces @@ -23998,10 +25038,45 @@ SUB PreParse (e$) LOOP UNTIL l = 0 IF c <> c1 THEN e$ = "ERROR -- Bad Parenthesis:" + STR$(c) + "( vs" + STR$(c1) + ")": EXIT SUB + 'replace existing CONST values + sep$ = "()+-*/\><=^" + FOR i2 = 0 TO constlast + thisConstName$ = constname(i2) + FOR replaceConstPass = 1 TO 2 + found = 0 + DO + found = INSTR(found + 1, UCASE$(t$), thisConstName$) + IF found THEN + IF found > 1 THEN + IF INSTR(sep$, MID$(t$, found - 1, 1)) = 0 THEN _CONTINUE + END IF + IF found + LEN(thisConstName$) <= LEN(t$) THEN + IF INSTR(sep$, MID$(t$, found + LEN(thisConstName$), 1)) = 0 THEN _CONTINUE + END IF + t = consttype(i2) + IF t AND ISSTRING THEN + r$ = conststring(i2) + i4 = _INSTRREV(r$, ",") + r$ = LEFT$(r$, i4 - 1) + ELSE + IF t AND ISFLOAT THEN + r$ = STR$(constfloat(i2)) + r$ = N2S(r$) + ELSE + IF t AND ISUNSIGNED THEN r$ = STR$(constuinteger(i2)) ELSE r$ = STR$(constinteger(i2)) + END IF + END IF + t$ = LEFT$(t$, found - 1) + _TRIM$(r$) + MID$(t$, found + LEN(thisConstName$)) + END IF + LOOP UNTIL found = 0 + thisConstName$ = constname(i2) + constnamesymbol(i2) + NEXT + NEXT + 'Modify so that NOT will process properly l = 0 DO - l = INSTR(l + 1, t$, "NOT") + l = INSTR(l + 1, t$, "NOT ") IF l THEN 'We need to work magic on the statement so it looks pretty. ' 1 + NOT 2 + 1 is actually processed as 1 + (NOT 2 + 1) @@ -24018,14 +25093,51 @@ SUB PreParse (e$) END IF LOOP UNTIL l = 0 + uboundPP_TypeMod = TotalPrefixedPP_TypeMod + IF qb64prefix_set = 1 THEN uboundPP_TypeMod = TotalPP_TypeMod + FOR j = 1 TO uboundPP_TypeMod + l = 0 + DO + l = INSTR(l + 1, t$, PP_TypeMod(j)) + IF l = 0 THEN EXIT DO + i = 0: l1 = 0: l2 = 0: lo = LEN(PP_TypeMod(j)) + DO + IF PL(i) > 10 THEN + l2 = _INSTRREV(l, t$, OName$(i)) + IF l2 > 0 AND l2 > l1 THEN l1 = l2 + END IF + i = i + lo + LOOP UNTIL i > UBOUND(PL) + l$ = LEFT$(t$, l1) + m$ = MID$(t$, l1 + 1, l - l1 - 1) + r$ = PP_ConvertedMod(j) + MID$(t$, l + lo) + IF j > 15 THEN + t$ = l$ + m$ + r$ 'replacement routine for commands which might get confused with others, like _RGB and _RGB32 + ELSE + 'the first 15 commands need to properly place the parenthesis around the value we want to convert. + t$ = l$ + "(" + m$ + ")" + r$ + END IF + l = l + 2 + LEN(PP_TypeMod(j)) 'move forward from the length of the symbol we checked + the new "(" and ")" + LOOP + NEXT + 'Check for bad operators before a ( bracket l = 0 DO l = INSTR(l + 1, t$, "(") - IF l AND l > 2 THEN 'Don't check the starting bracket; there's nothing before it. + IF l > 0 AND l > 2 THEN 'Don't check the starting bracket; there's nothing before it. good = 0 FOR i = 1 TO UBOUND(OName) - IF MID$(t$, l - LEN(OName(i)), LEN(OName(i))) = OName(i) AND PL(i) > 1 AND PL(i) <= 250 THEN good = -1: EXIT FOR 'We found an operator after our ), and it's not a CONST (like PI) + m$ = MID$(t$, l - LEN(OName(i)), LEN(OName(i))) + IF m$ = OName(i) THEN + good = -1: EXIT FOR 'We found an operator after our ), and it's not a CONST (like PI) + ELSE + IF LEFT$(OName(i), 1) = "_" AND qb64prefix_set = 1 THEN + 'try without prefix + m$ = MID$(t$, l - (LEN(OName(i)) - 1), LEN(OName(i)) - 1) + IF m$ = MID$(OName(i), 2) THEN good = -1: EXIT FOR + END IF + END IF NEXT IF NOT good THEN e$ = "ERROR - Improper operations before (.": EXIT SUB l = l + 1 @@ -24036,10 +25148,19 @@ SUB PreParse (e$) l = 0 DO l = INSTR(l + 1, t$, ")") - IF l AND l < LEN(t$) THEN + IF l > 0 AND l < LEN(t$) THEN good = 0 FOR i = 1 TO UBOUND(OName) - IF MID$(t$, l + 1, LEN(OName(i))) = OName(i) AND PL(i) > 1 AND PL(i) <= 250 THEN good = -1: EXIT FOR 'We found an operator after our ), and it's not a CONST (like PI) + m$ = MID$(t$, l + 1, LEN(OName(i))) + IF m$ = OName(i) THEN + good = -1: EXIT FOR 'We found an operator after our ), and it's not a CONST (like PI + ELSE + IF LEFT$(OName(i), 1) = "_" AND qb64prefix_set = 1 THEN + 'try without prefix + m$ = MID$(t$, l + 1, LEN(OName(i)) - 1) + IF m$ = MID$(OName(i), 2) THEN good = -1: EXIT FOR + END IF + END IF NEXT IF MID$(t$, l + 1, 1) = ")" THEN good = -1 IF NOT good THEN e$ = "ERROR - Improper operations after ).": EXIT SUB @@ -24101,9 +25222,9 @@ SUB PreParse (e$) END IF LOOP UNTIL l = 0 - t$ = N2S(t$) - VerifyString t$ + 't$ = N2S(t$) + VerifyString t$ e$ = t$ END SUB @@ -24115,26 +25236,37 @@ SUB VerifyString (t$) DO comp$ = MID$(t$, j, 1) SELECT CASE comp$ - CASE "0" TO "9", ".", "(", ")": j = j + 1 + CASE "0" TO "9", ".", "(", ")", ",": j = j + 1 CASE ELSE good = 0 + extrachar = 0 FOR i = 1 TO UBOUND(OName) - IF MID$(t$, j, LEN(OName(i))) = OName(i) THEN good = -1: EXIT FOR 'We found an operator after our ), and it's not a CONST (like PI) + IF MID$(t$, j, LEN(OName(i))) = OName(i) THEN + good = -1: EXIT FOR 'We found an operator after our ), and it's not a CONST (like PI) + ELSE + IF LEFT$(OName(i), 1) = "_" AND qb64prefix_set = 1 THEN + 'try without prefix + IF MID$(t$, j, LEN(OName(i)) - 1) = MID$(OName(i), 2) THEN + good = -1: extrachar = 1: EXIT FOR + END IF + END IF + END IF NEXT IF NOT good THEN t$ = "ERROR - Bad Operational value. (" + comp$ + ")": EXIT SUB - j = j + LEN(OName(i)) + j = j + (LEN(OName(i)) - extrachar) END SELECT LOOP UNTIL j > LEN(t$) END SUB FUNCTION N2S$ (exp$) 'scientific Notation to String + t$ = LTRIM$(RTRIM$(exp$)) - IF LEFT$(t$, 1) = "-" THEN sign$ = "-": t$ = MID$(t$, 2) + IF LEFT$(t$, 1) = "-" OR LEFT$(t$, 1) = "N" THEN sign$ = "-": t$ = MID$(t$, 2) dp = INSTR(t$, "D+"): dm = INSTR(t$, "D-") ep = INSTR(t$, "E+"): em = INSTR(t$, "E-") check1 = SGN(dp) + SGN(dm) + SGN(ep) + SGN(em) - IF check1 < 1 OR check1 > 1 THEN N2S = exp$: EXIT SUB 'If no scientic notation is found, or if we find more than 1 type, it's not SN! + IF check1 < 1 OR check1 > 1 THEN N2S = exp$: EXIT FUNCTION 'If no scientic notation is found, or if we find more than 1 type, it's not SN! SELECT CASE l 'l now tells us where the SN starts at. CASE IS < dp: l = dp @@ -24171,7 +25303,7 @@ FUNCTION N2S$ (exp$) 'scientific Notation to String END SELECT N2S$ = sign$ + l$ -END SUB +END FUNCTION FUNCTION QuotedFilename$ (f$) @@ -24608,124 +25740,39 @@ SUB Give_Error (a$) Error_Message = a$ END SUB -SUB WriteConfigSetting (heading$, item$, tvalue$) - value$ = tvalue$ - SHARED ConfigFile$, ConfigBak$ - - InFile = FREEFILE: OPEN ConfigFile$ FOR BINARY AS #InFile - OutFile = FREEFILE: OPEN ConfigBak$ FOR OUTPUT AS #OutFile - placed = 0 - - 'check for quotes where needed for strings - IF RIGHT$(RTRIM$(item$), 1) = "$" THEN - IF LEFT$(value$, 1) <> CHR$(34) THEN value$ = CHR$(34) + value$ - IF RIGHT$(value$, 1) <> CHR$(34) THEN value$ = value$ + CHR$(34) - END IF - - IF LOF(InFile) THEN - DO UNTIL EOF(InFile) - LINE INPUT #InFile, junk$ - 'we really don't care about heading$ here; it's only used to make things easier for the user to locate in the config file - junk$ = LTRIM$(RTRIM$(junk$)) - l = INSTR(junk$, "=") 'compare the values to the left of the equal sign - compare$ = RTRIM$(LEFT$(junk$, l - 1)) - - IF UCASE$(compare$) = UCASE$(item$) THEN 'if it's a match, replace it - PRINT #OutFile, item$; " = "; value$ - placed = -1 - ELSE - PRINT #OutFile, junk$ 'otherwise put that line back and check the next one - END IF - LOOP - END IF - - CLOSE #InFile, #OutFile - KILL ConfigFile$ - IF NOT placed THEN 'we didn't find the proper setting already in the file somewhere. - 'Either the file was corrupted, or the user deleted this particulat setting sometime in the past. - 'Now we look to see if the heading exists in the file or not. - 'If it does, then we place the new setting under that heading. - 'If not then we write that heading to the end of the file to make it easier for the user to locate in the future - 'and then we write it below there. - OPEN ConfigBak$ FOR BINARY AS #InFile - OPEN "internal/config.tmp" FOR OUTPUT AS #OutFile - out$ = item$ + " = " + value$ - DO UNTIL EOF(InFile) OR LOF(InFile) = 0 - LINE INPUT #InFile, temp$ - PRINT #OutFile, temp$ - IF INSTR(temp$, heading$) THEN PRINT #OutFile, out$: placed = -1 'If we have the heading, we want to print the item after it - LOOP - IF NOT placed THEN 'If the heading doesn't exist already then we'll make the heading and the item - PRINT #OutFile, "" - PRINT #OutFile, heading$ - PRINT #OutFile, out$ - END IF - CLOSE #InFile, #OutFile - KILL ConfigBak$ - NAME "internal/config.tmp" AS ConfigFile$ - ELSE - NAME ConfigBak$ AS ConfigFile$ - END IF +SUB WriteConfigSetting (section$, item$, value$) + WriteSetting ConfigFile$, section$, item$, value$ END SUB -FUNCTION ReadConfigSetting (item$, value$) - SHARED ConfigFile$ - value$ = "" 'We start by blanking the value$ as a default return state - InFile = FREEFILE: OPEN ConfigFile$ FOR BINARY AS #InFile - - IF LOF(InFile) THEN - found = 0 - DO UNTIL EOF(InFile) - LINE INPUT #InFile, temp$ - temp$ = LTRIM$(RTRIM$(temp$)) - l = INSTR(temp$, "=") - compare$ = LTRIM$(RTRIM$(LEFT$(temp$, l - 1))) - IF UCASE$(compare$) = UCASE$(item$) THEN found = -1: EXIT DO - LOOP - CLOSE #InFile - IF found THEN 'we found what we're looking for - IF l THEN - value$ = MID$(temp$, l + 1) - l = INSTR(value$, CHR$(13)) 'we only want what's before a CR - IF l THEN value$ = LEFT$(value$, l) - l = INSTR(value$, CHR$(10)) 'or a LineFeed - 'These are basic text files; they shouldn't have stray CHR$(10) or CHR$(13) characters in them! - IF l THEN value$ = LEFT$(value$, l) - value$ = LTRIM$(RTRIM$(value$)) - 'check for quotes where needed for strings and remove them so our return value doesn't contain them - IF RIGHT$(RTRIM$(item$), 1) = "$" THEN - IF LEFT$(value$, 1) = CHR$(34) THEN value$ = MID$(value$, 2) - IF RIGHT$(value$, 1) = CHR$(34) THEN value$ = LEFT$(value$, LEN(value$) - 1) - END IF - ReadConfigSetting = -1 - EXIT FUNCTION - END IF - END IF - END IF - CLOSE #InFile - ReadConfigSetting = 0 'failed to find the setting +FUNCTION ReadConfigSetting (section$, item$, value$) + value$ = ReadSetting$(ConfigFile$, section$, item$) + ReadConfigSetting = (LEN(value$) > 0) END FUNCTION -FUNCTION VRGBS (text$, DefaultColor AS _UNSIGNED LONG) +FUNCTION VRGBS~& (text$, DefaultColor AS _UNSIGNED LONG) 'Value of RGB String = VRGBS without a ton of typing 'A function to get the RGB value back from a string such as _RGB32(255,255,255) 'text$ is the string that we send to check for a value 'DefaultColor is the value we send back if the string isn't in the proper format - VRGBS = DefaultColor 'A return the default value if we can't parse the string properly + VRGBS~& = DefaultColor 'A return the default value if we can't parse the string properly IF UCASE$(LEFT$(text$, 4)) = "_RGB" THEN rpos = INSTR(text$, "(") gpos = INSTR(rpos, text$, ",") bpos = INSTR(gpos + 1, text$, ",") IF rpos <> 0 AND bpos <> 0 AND gpos <> 0 THEN - red = VAL(MID$(text$, rpos + 1)) - green = VAL(MID$(text$, gpos + 1)) - blue = VAL(MID$(text$, bpos + 1)) - VRGBS = _RGB32(red, green, blue) + red = VAL(_TRIM$(MID$(text$, rpos + 1))) + green = VAL(_TRIM$(MID$(text$, gpos + 1))) + blue = VAL(_TRIM$(MID$(text$, bpos + 1))) + VRGBS~& = _RGB32(red, green, blue) END IF END IF END FUNCTION +FUNCTION rgbs$ (c AS _UNSIGNED LONG) + rgbs$ = "_RGB32(" + _TRIM$(STR$(_RED32(c))) + ", " + _TRIM$(STR$(_GREEN32(c))) + ", " + _TRIM$(STR$(_BLUE32(c))) + ")" +END FUNCTION + FUNCTION EvalPreIF (text$, err$) temp$ = text$ 'so we don't corrupt the string sent to us for evaluation err$ = "" 'null the err message to begin with @@ -24749,7 +25796,7 @@ FUNCTION EvalPreIF (text$, err$) SELECT CASE a$ CASE " " 'ignore spaces CASE "=", "<", ">" - IF a$ = firstsymbol$ THEN err$ = "Duplicate operator (" + a$ + ")": EXIT SUB + IF a$ = firstsymbol$ THEN err$ = "Duplicate operator (" + a$ + ")": EXIT FUNCTION second = i: secondsymbol$ = a$ CASE ELSE 'we found a symbol we don't recognize EXIT FOR @@ -24768,6 +25815,7 @@ FUNCTION EvalPreIF (text$, err$) NEXT leftside$ = RTRIM$(LEFT$(temp$, i)) l$ = LTRIM$(RTRIM$(MID$(temp$, i + 1, LEN(l$) - i))) + IF validname(l$) = 0 THEN err$ = "Invalid flag name": EXIT FUNCTION rightstop = LEN(r$) FOR i = 1 TO LEN(r$) IF ASC(r$, i) = 32 THEN EXIT FOR @@ -24784,11 +25832,15 @@ FUNCTION EvalPreIF (text$, err$) NEXT END IF IF INSTR(symbol$, "=") THEN 'check to see if we're equal in any case with = + UserFound = 0 FOR i = 0 TO UserDefineCount - IF UserDefine(0, i) = l$ AND UserDefine(1, i) = r$ THEN result$ = " -1 ": GOTO finishedcheck + IF UserDefine(0, i) = l$ THEN + UserFound = -1 + IF UserDefine(1, i) = r$ THEN result$ = " -1 ": GOTO finishedcheck + END IF NEXT - IF NOT UserFound AND LTRIM$(RTRIM$(r$)) = "UNDEFINED" THEN result$ = " -1 ": GOTO finishedcheck - IF UserFound AND LTRIM$(RTRIM$(r$)) = "DEFINED" THEN result$ = " -1 ": GOTO finishedcheck + IF UserFound = 0 AND LTRIM$(RTRIM$(r$)) = "UNDEFINED" THEN result$ = " -1 ": GOTO finishedcheck + IF UserFound = -1 AND LTRIM$(RTRIM$(r$)) = "DEFINED" THEN result$ = " -1 ": GOTO finishedcheck END IF IF INSTR(symbol$, ">") THEN 'check to see if we're greater than in any case with > @@ -24892,7 +25944,7 @@ FUNCTION EvalPreIF (text$, err$) NEXT END IF -END SUB +END FUNCTION FUNCTION VerifyNumber (text$) t$ = LTRIM$(RTRIM$(text$)) @@ -24934,7 +25986,31 @@ SUB free_udt_varstrings (n$, udt, file, base_offset) element = udtenext(element) LOOP END SUB - + +SUB clear_udt_with_varstrings (n$, udt, file, base_offset) + IF NOT udtxvariable(udt) THEN EXIT SUB + element = udtxnext(udt) + offset = 0 + DO WHILE element + IF udtetype(element) AND ISSTRING THEN + IF (udtetype(element) AND ISFIXEDLENGTH) = 0 THEN + PRINT #file, "(*(qbs**)(((char*)" + n$ + ")+" + STR$(base_offset + offset) + "))->len=0;" + ELSE + PRINT #file, "memset((char*)" + n$ + "+" + STR$(base_offset + offset) + ",0," + STR$(udtesize(element) \ 8) + ");" + END IF + ELSE + IF udtetype(element) AND ISUDT THEN + clear_udt_with_varstrings n$, udtetype(element) AND 511, file, base_offset + offset + ELSE + PRINT #file, "memset((char*)" + n$ + "+" + STR$(base_offset + offset) + ",0," + STR$(udtesize(element) \ 8) + ");" + END IF + END IF + offset = offset + udtesize(element) \ 8 + element = udtenext(element) + LOOP +END SUB + + SUB initialise_array_udt_varstrings (n$, udt, base_offset, bytesperelement$, acc$) IF NOT udtxvariable(udt) THEN EXIT SUB offset = base_offset @@ -24988,7 +26064,7 @@ SUB copy_full_udt (dst$, src$, file, base_offset, udt) element = udtenext(element) LOOP END SUB - + SUB dump_udts f = FREEFILE OPEN "types.txt" FOR OUTPUT AS #f @@ -25003,64 +26079,231 @@ SUB dump_udts CLOSE #f END SUB -SUB manageVariableList (name$, __cname$, action AS _BYTE) - DIM findItem AS LONG, s$, cname$ - cname$ = __cname$ +SUB manageVariableList (__name$, __cname$, localIndex AS LONG, action AS _BYTE) + DIM findItem AS LONG, cname$, i AS LONG, j AS LONG, name$, temp$ + name$ = RTRIM$(__name$) + cname$ = RTRIM$(__cname$) + + IF LEN(cname$) = 0 THEN EXIT SUB findItem = INSTR(cname$, "[") IF findItem THEN cname$ = LEFT$(cname$, findItem - 1) END IF + found = 0 + FOR i = 1 TO totalVariablesCreated + IF usedVariableList(i).cname = cname$ THEN found = -1: EXIT FOR + NEXT + SELECT CASE action CASE 0 'add - s$ = CHR$(4) + MKI$(LEN(cname$)) + cname$ + CHR$(5) - IF INSTR(usedVariableList$, s$) = 0 THEN - ASC(s$, 1) = 3 - usedVariableList$ = usedVariableList$ + CHR$(1) + MKL$(linenumber) + CHR$(2) - usedVariableList$ = usedVariableList$ + "VAR:" + s$ + name$ + CHR$(10) - totalUnusedVariables = totalUnusedVariables + 1 - 'warning$(1) = warning$(1) + "Adding " + cname$ + " at line" + STR$(linenumber) + CHR$(10) + IF found = 0 THEN + IF i > UBOUND(usedVariableList) THEN + REDIM _PRESERVE usedVariableList(UBOUND(usedVariableList) + 999) AS usedVarList + END IF + + usedVariableList(i).id = currentid + usedVariableList(i).used = 0 + usedVariableList(i).watch = 0 + usedVariableList(i).displayFormat = 0 + usedVariableList(i).storage = "" + usedVariableList(i).linenumber = linenumber + usedVariableList(i).includeLevel = inclevel + IF inclevel > 0 THEN + usedVariableList(i).includedLine = inclinenumber(inclevel) + thisincname$ = getfilepath$(incname$(inclevel)) + thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1) + usedVariableList(i).includedFile = thisincname$ + ELSE + totalMainVariablesCreated = totalMainVariablesCreated + 1 + usedVariableList(i).includedLine = 0 + usedVariableList(i).includedFile = "" + END IF + usedVariableList(i).scope = subfuncn + usedVariableList(i).subfunc = subfunc + usedVariableList(i).varType = id2fulltypename$ + usedVariableList(i).cname = cname$ + usedVariableList(i).localIndex = localIndex + + 'remove eventual instances of fix046$ in name$ + DO WHILE INSTR(name$, fix046$) + x = INSTR(name$, fix046$): name$ = LEFT$(name$, x - 1) + "." + RIGHT$(name$, LEN(name$) - x + 1 - LEN(fix046$)) + LOOP + + IF LEN(RTRIM$(id.musthave)) > 0 THEN + usedVariableList(i).name = name$ + RTRIM$(id.musthave) + ELSEIF LEN(RTRIM$(id.mayhave)) > 0 THEN + usedVariableList(i).name = name$ + RTRIM$(id.mayhave) + ELSE + usedVariableList(i).name = name$ + END IF + + IF (id.arrayelements > 0) THEN + usedVariableList(i).isarray = -1 + usedVariableList(i).name = usedVariableList(i).name + "()" + ELSE + usedVariableList(i).isarray = 0 + END IF + usedVariableList(i).watchRange = "" + usedVariableList(i).arrayElementSize = 0 + usedVariableList(i).indexes = "" + usedVariableList(i).elements = "" + usedVariableList(i).elementTypes = "" + usedVariableList(i).elementOffset = "" + totalVariablesCreated = totalVariablesCreated + 1 + + temp$ = MKL$(-1) + MKL$(LEN(cname$)) + cname$ + found = INSTR(backupVariableWatchList$, temp$) + IF found THEN + 'this variable existed in a previous edit of this program + 'in this same session; let's preselect it. + j = CVL(MID$(backupVariableWatchList$, found + LEN(temp$), 4)) + + 'if there have been changes in TYPEs, this variable won't be preselected + IF (LEN(backupUsedVariableList(j).elements) > 0 AND backupTypeDefinitions$ = typeDefinitions$) OR _ + (LEN(backupUsedVariableList(j).elements) = 0) THEN + usedVariableList(i).watch = backupUsedVariableList(j).watch + usedVariableList(i).watchRange = backupUsedVariableList(j).watchRange + usedVariableList(i).indexes = backupUsedVariableList(j).indexes + usedVariableList(i).displayFormat = backupUsedVariableList(j).displayFormat + usedVariableList(i).elements = backupUsedVariableList(j).elements + usedVariableList(i).elementTypes = backupUsedVariableList(j).elementTypes + usedVariableList(i).elementOffset = backupUsedVariableList(j).elementOffset + END IF + END IF END IF - CASE ELSE 'find and remove - s$ = CHR$(3) + MKI$(LEN(cname$)) + cname$ + CHR$(5) - findItem = INSTR(usedVariableList$, s$) - IF findItem THEN - ASC(usedVariableList$, findItem) = 4 - totalUnusedVariables = totalUnusedVariables - 1 + CASE ELSE 'find and mark as used + IF found THEN + usedVariableList(i).used = -1 END IF - 'warning$(1) = warning$(1) + "Action:" + STR$(action) + " Searching " + cname$ + " at line" + STR$(linenumber) + CHR$(10) END SELECT END SUB -SUB addWarning (lineNumber AS LONG, text$) - IF lineNumber > 0 THEN - totalWarnings = totalWarnings + 1 - ELSE - IF lastWarningHeader = text$ THEN - EXIT SUB +SUB addWarning (whichLineNumber AS LONG, includeLevel AS LONG, incLineNumber AS LONG, incFileName$, header$, text$) + warningsissued = -1 + totalWarnings = totalWarnings + 1 + + IF idemode = 0 AND ShowWarnings THEN + thissource$ = getfilepath$(CMDLineFile) + thissource$ = MID$(CMDLineFile, LEN(thissource$) + 1) + thisincname$ = getfilepath$(incFileName$) + thisincname$ = MID$(incFileName$, LEN(thisincname$) + 1) + + IF NOT MonochromeLoggingMode THEN COLOR 15 + IF includeLevel > 0 AND incLineNumber > 0 THEN + PRINT thisincname$; ":"; + PRINT str2$(incLineNumber); ": "; ELSE - lastWarningHeader = text$ + PRINT thissource$; ":"; + PRINT str2$(whichLineNumber); ": "; + END IF + + IF NOT MonochromeLoggingMode THEN COLOR 13 + PRINT "warning: "; + IF NOT MonochromeLoggingMode THEN COLOR 7 + PRINT header$ + + IF LEN(text$) > 0 THEN + IF NOT MonochromeLoggingMode THEN COLOR 2 + PRINT SPACE$(4); text$ + IF NOT MonochromeLoggingMode THEN COLOR 7 + END IF + ELSEIF idemode THEN + IF NOT IgnoreWarnings THEN + IF whichLineNumber > maxLineNumber THEN maxLineNumber = whichLineNumber + IF lastWarningHeader <> header$ THEN + lastWarningHeader = header$ + GOSUB increaseWarningCount + warning$(warningListItems) = header$ + warningLines(warningListItems) = 0 + END IF + + GOSUB increaseWarningCount + warning$(warningListItems) = text$ + warningLines(warningListItems) = whichLineNumber + IF includeLevel > 0 THEN + thisincname$ = getfilepath$(incFileName$) + thisincname$ = MID$(incFileName$, LEN(thisincname$) + 1) + warningIncLines(warningListItems) = incLineNumber + warningIncFiles(warningListItems) = thisincname$ + ELSE + warningIncLines(warningListItems) = 0 + warningIncFiles(warningListItems) = "" + END IF END IF END IF - + EXIT SUB + increaseWarningCount: warningListItems = warningListItems + 1 - IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999) - warning$(warningListItems) = MKL$(lineNumber) + text$ + IF warningListItems > UBOUND(warning$) THEN + REDIM _PRESERVE warning$(warningListItems + 999) + REDIM _PRESERVE warningLines(warningListItems + 999) AS LONG + REDIM _PRESERVE warningIncLines(warningListItems + 999) AS LONG + REDIM _PRESERVE warningIncFiles(warningListItems + 999) AS STRING + END IF + RETURN +END SUB + +FUNCTION SCase$ (t$) + IF ideautolayoutkwcapitals THEN SCase$ = UCASE$(t$) ELSE SCase$ = t$ +END FUNCTION + +FUNCTION SCase2$ (t$) + separator$ = sp + IF ideautolayoutkwcapitals THEN + SCase2$ = UCASE$(t$) + ELSE + newWord = -1 + temp$ = "" + FOR i = 1 TO LEN(t$) + s$ = MID$(t$, i, 1) + IF newWord THEN + IF s$ = "_" OR s$ = separator$ THEN + temp$ = temp$ + s$ + ELSE + temp$ = temp$ + UCASE$(s$) + newWord = 0 + END IF + ELSE + IF s$ = separator$ THEN + temp$ = temp$ + separator$ + newWord = -1 + ELSE + temp$ = temp$ + LCASE$(s$) + END IF + END IF + NEXT + SCase2$ = temp$ + END IF +END FUNCTION + +SUB increaseUDTArrays + x = UBOUND(udtxname) + REDIM _PRESERVE udtxname(x + 1000) AS STRING * 256 + REDIM _PRESERVE udtxcname(x + 1000) AS STRING * 256 + REDIM _PRESERVE udtxsize(x + 1000) AS LONG + REDIM _PRESERVE udtxbytealign(x + 1000) AS INTEGER 'first element MUST be on a byte alignment & size is a multiple of 8 + REDIM _PRESERVE udtxnext(x + 1000) AS LONG + REDIM _PRESERVE udtxvariable(x + 1000) AS INTEGER 'true if the udt contains variable length elements + 'elements + REDIM _PRESERVE udtename(x + 1000) AS STRING * 256 + REDIM _PRESERVE udtecname(x + 1000) AS STRING * 256 + REDIM _PRESERVE udtebytealign(x + 1000) AS INTEGER + REDIM _PRESERVE udtesize(x + 1000) AS LONG + REDIM _PRESERVE udtetype(x + 1000) AS LONG + REDIM _PRESERVE udtetypesize(x + 1000) AS LONG + REDIM _PRESERVE udtearrayelements(x + 1000) AS LONG + REDIM _PRESERVE udtenext(x + 1000) AS LONG END SUB '$INCLUDE:'utilities\strings.bas' - '$INCLUDE:'subs_functions\extensions\opengl\opengl_methods.bas' +'$INCLUDE:'utilities\ini-manager\ini.bm' -'INCLUDE:'qb_framework\qb_framework_methods.bas' -DEFLNG A-Z - -'INCLUDE:'virtual_keyboard\virtual_keyboard_methods.bas' -DEFLNG A-Z - -'$INCLUDE:'android\android_methods.bas' DEFLNG A-Z '-------- Optional IDE Component (2/2) -------- '$INCLUDE:'ide\ide_methods.bas' + + diff --git a/source/qb_framework/qb_framework_global.bas b/source/qb_framework/qb_framework_global.bas deleted file mode 100644 index 1ac2adccd..000000000 --- a/source/qb_framework/qb_framework_global.bas +++ /dev/null @@ -1,172 +0,0 @@ -'#################### QB-FRAMEWORK: Environment #################### -DEFLNG A-Z -'DEFLNG A-Z isn't required, but certain functions require LONG type variables -'as their parameters and return data in them, for example QB_NODE_each(...) -'################################################## - -'#################### QB-FRAMEWORK: Global #################### -DIM SHARED QB_DEBUG AS LONG '1 or 0 -DIM SHARED QB_DEBUG_VERBOSE AS LONG '1 or 0 -QB_DEBUG = 0 -QB_DEBUG_VERBOSE = 0 'set in conjunction with QB_DEBUG for more detailed debug infromation -IF QB_DEBUG_VERBOSE THEN QB_DEBUG = 1 -'Quick copy-paste references: -' QB_DEBUG_VERBOSE = 1: QB_DEBUG = 1 -' QB_DEBUG_VERBOSE = 0: QB_DEBUG = 0 -'################################################## - -'#################### EACH: Global #################### -'Handle Handlers (used to manage a set of handles) -CONST QB_EACH_NO_BLANK& = 0 'the default, blank entries will not be returned -CONST QB_EACH_ALLOW_BLANK& = 1 'captures implied blanks in adjacent, leading & trailing separators -CONST QB_EACH_ALLOW_ALL_BLANK& = 2 'also captures blank if entire parent is blank (not captured by default) - -'#################### HANDLE: Global #################### -'Handle Handlers (used to manage a set of handles) -TYPE __QB_HANDLE_HANDLER - lastFreedListIndex AS LONG '0=none - lastHandle AS LONG - count AS LONG -END TYPE -REDIM SHARED __QB_HANDLE_handler(1 + 0) AS __QB_HANDLE_HANDLER -'manually setup the first handle handler to maintain handles to our handle handlers -__QB_HANDLE_handler(1).lastHandle = 1 -__QB_HANDLE_handler(1).lastFreedListIndex = 0 -'Freed List -TYPE __QB_HANDLE_FREEDLIST - handle AS LONG - prevFreedListIndex AS LONG 'of same owner -END TYPE -REDIM SHARED __QB_HANDLE_freedList(1 + 0) AS __QB_HANDLE_FREEDLIST -DIM SHARED __QB_HANDLE_freedList_Last AS LONG: __QB_HANDLE_freedList_Last = 1 -DIM SHARED __QB_HANDLE_freedList_Next AS LONG: __QB_HANDLE_freedList_Next = 1 -'Freed-Freed List -REDIM SHARED __QB_HANDLE_freedFreedList(1 + 0) AS LONG -DIM SHARED __QB_HANDLE_freedFreedList_Last AS LONG: __QB_HANDLE_freedFreedList_Last = 1 -DIM SHARED __QB_HANDLE_freedFreedList_Next AS LONG: __QB_HANDLE_freedFreedList_Next = 1 -'################################################## - -'#################### DATETIME: Global #################### -CONST QB_DATETIME_TYPE_LOCAL = 1 'local time -CONST QB_DATETIME_TYPE_OFFSET = 3 -CONST QB_DATETIME_TYPE_DURATION = 4 -'For duration: -' 1 day=24 hours regardless of timezone -' 1 year=366 days regardless of year -' 1 month=31 days regardless of month -TYPE QB_DATETIME - reserved AS LONG - days AS LONG '1-31 - months AS LONG '1-12 - years AS LONG 'eg. 2015 - hours AS LONG '0-23 - minutes AS LONG '0-59 - seconds AS LONG '0-59 - milliseconds AS LONG '0-999 - microseconds AS LONG '0-999 (a microsecond is 1/1000th of a millisecond) - type AS LONG -END TYPE -DIM SHARED __QB_DATETIME_TYPE_EMPTY AS QB_DATETIME -REDIM SHARED __QB_DATETIME(0 + 1) AS QB_DATETIME -DIM SHARED __QB_DATETIME_ubound AS LONG: __QB_DATETIME_ubound = 1 -DIM SHARED __QB_DATETIME_handleSet AS LONG: __QB_DATETIME_handleSet = QB_HANDLE_newSet -'################################################## - -'#################### STRING: Global #################### -REDIM SHARED __QB_STR_string(1 + 0) AS STRING -REDIM SHARED __QB_STR_stringValid(1 + 0) AS LONG -DIM SHARED __QB_STR_stringUbound AS LONG: __QB_STR_stringUbound = 1 -DIM SHARED __QB_STR_handleSet AS LONG: __QB_STR_handleSet = QB_HANDLE_newSet -DIM SHARED QB_STR_QUOTE AS STRING: QB_STR_QUOTE = CHR$(34) -'################################################## - -'#################### NODE: Global #################### -CONST QB_NODE_TYPE_HASHSET& = 1 -CONST QB_NODE_TYPE_LIST& = 2 -CONST QB_NODE_TYPE_DICTIONARY& = 4 -CONST QB_NODE_TYPE_VALUE& = 8 'a simple value, optionally with a label - -CONST QB_NODE_ALLOW_DUPLICATE_KEYS& = 256 -CONST QB_NODE_CASE_SENSITIVE& = 512 -CONST QB_NODE_AVOID_DUPLICATE_VALUES_PER_KEY& = 1024 'new entries will not be added to a key if it already contains the value unless nTh is specified -CONST QB_NODE_DUPLICATE_VALUES_CASE_SENSITIVE& = 2048 'duplicate values check is case sensitive -CONST QB_NODE_DESTROY_ORPHANED_CHILDNODES& = 4096 - -CONST QB_NODE_FORMAT_LONG& = 1 -CONST QB_NODE_FORMAT_STR& = 2 -CONST QB_NODE_FORMAT_BOOL& = 4 -CONST QB_NODE_FORMAT_NULL& = 8 - -CONST QB_TRUE& = -1 -CONST QB_FALSE& = 0 -CONST QB_NULL& = -2 - -TYPE QB_NODE_TYPE - valid AS LONG - type AS LONG - flags AS LONG - 'linkage - parent AS LONG - firstChild AS LONG - lastChild AS LONG - count AS LONG - next AS LONG - prev AS LONG - owner AS LONG 'optional - 'label & value - label AS LONG - labelFormat AS LONG 'eg. QB_NODE_FORMAT_STR - value AS LONG - valueFormat AS LONG - 'hashsets & dictionaries - hashOffset AS LONG 'added to all keys to increase the chance of uniqueness against other KVP sets with different owners - hashReference AS LONG 'handle/value of the hashtable reference which points to this node -END TYPE - -DIM SHARED QB_NODE_TYPE_EMPTY AS QB_NODE_TYPE -QB_NODE_TYPE_EMPTY.labelFormat = QB_NODE_FORMAT_NULL -QB_NODE_TYPE_EMPTY.valueFormat = QB_NODE_FORMAT_NULL -REDIM SHARED __QB_NODE(0 + 1) AS QB_NODE_TYPE -REDIM SHARED __QB_NODE_hashLists(0 + 16777215) AS LONG -DIM SHARED __QB_NODE_ubound: __QB_NODE_ubound = 1 -DIM SHARED __QB_NODE_handleSet AS LONG: __QB_NODE_handleSet = QB_HANDLE_newSet - -'################################################## - -'#################### __JSON: Global #################### -CONST QB_JSON_STRING& = 1 -CONST QB_JSON_NUMBER& = 2 -CONST QB_JSON_BOOL& = 3 -CONST QB_JSON_NULL& = 4 -'http://www.ecma-international.org/publications/files/ECMA-ST/ECMA-404.pdf -'\b Backspace CHR$(8) -'\f Form feed CHR$(12) -'\n New line CHR$(10) -'\r Carriage return CHR$(13) -'\t Tab CHR$(9) -'\" Double quote CHR$(34) -'\\ Backslash caracter CHR$(92) -DIM SHARED __QB_JSON_escape_lookup(255) AS LONG -__QB_JSON_escape_lookup(8) = ASC("b") -__QB_JSON_escape_lookup(12) = ASC("f") -__QB_JSON_escape_lookup(10) = ASC("n") -__QB_JSON_escape_lookup(13) = ASC("r") -__QB_JSON_escape_lookup(9) = ASC("t") -__QB_JSON_escape_lookup(34) = 34 -__QB_JSON_escape_lookup(92) = ASC("\") -DIM SHARED __QB_JSON_escape_lookup_reversed(255) AS LONG -__QB_JSON_escape_lookup_reversed(ASC("b")) = 8 -__QB_JSON_escape_lookup_reversed(ASC("f")) = 12 -__QB_JSON_escape_lookup_reversed(ASC("n")) = 10 -__QB_JSON_escape_lookup_reversed(ASC("r")) = 13 -__QB_JSON_escape_lookup_reversed(ASC("t")) = 9 -__QB_JSON_escape_lookup_reversed(34) = 34 -__QB_JSON_escape_lookup_reversed(ASC("\")) = 92 -__QB_JSON_escape_lookup_reversed(ASC("B")) = 8 -__QB_JSON_escape_lookup_reversed(ASC("F")) = 12 -__QB_JSON_escape_lookup_reversed(ASC("N")) = 10 -__QB_JSON_escape_lookup_reversed(ASC("R")) = 13 -__QB_JSON_escape_lookup_reversed(ASC("T")) = 9 -__QB_JSON_escape_lookup_reversed(ASC("'")) = 39 'allow for escaping single quotes \' -_MAPUNICODE &H00A0~& TO 255 -'################################################## diff --git a/source/qb_framework/qb_framework_methods.bas b/source/qb_framework/qb_framework_methods.bas deleted file mode 100644 index cc471fb5b..000000000 --- a/source/qb_framework/qb_framework_methods.bas +++ /dev/null @@ -1,1968 +0,0 @@ -DEFLNG A-Z - -'#################### NODESET: Methods #################### - -FUNCTION QB_FRAMEWORK_leakInfo$ -DIM QB__handlesets AS LONG -QB__handlesets = QB_HANDLE_count(1) -DIM QB__nodes AS LONG -QB__nodes = QB_HANDLE_count(__QB_NODE_handleSet) -DIM QB__datetimes AS LONG -QB__datetimes = QB_HANDLE_count(__QB_DATETIME_handleSet) -DIM QB__strings AS LONG -QB__strings = QB_HANDLE_count(__QB_STR_handleSet) -DIM QB__leakInfo AS LONG -QB__leakInfo = QB_NODE_newDictionary -QB_NODE_assign QB__leakInfo, QB_NODE_newValueWithLabel_long("HANDLE_set_count", QB__handlesets) -QB_NODE_assign QB__leakInfo, QB_NODE_newValueWithLabel_long("STR_count", QB__strings) -QB_NODE_assign QB__leakInfo, QB_NODE_newValueWithLabel_long("NODE_count", QB__nodes) -QB_NODE_assign QB__leakInfo, QB_NODE_newValueWithLabel_long("DATETIME_count", QB__datetimes) -QB_NODE_assign QB__leakInfo, QB_NODE_newValueWithLabel_long("global_hash_table_size", (UBOUND(__QB_NODE_hashLists) + 1) * 4) -QB_FRAMEWORK_leakInfo$ = QB_NODESET_serialize(QB__leakInfo, "json") -QB_NODE_destroy QB__leakInfo -END FUNCTION - -SUB QB_NODESET_free (QB__selIn AS LONG) -IF QB__selIn < 0 THEN - QB_NODE_destroy -QB__selIn 'destroy this list/hashset of nodes -END IF -END SUB - -FUNCTION QB_NODESET_count& (QB__selIn AS LONG) -QB_NODESET_count& = QB_NODESET_count_PRESERVE&(QB__selIn) -QB_NODESET_free QB__selIn -END FUNCTION -FUNCTION QB_NODESET_count_PRESERVE& (QB__selIn AS LONG) -IF QB__selIn < 0 THEN - QB_NODESET_count_PRESERVE& = __QB_NODE(-QB__selIn).count -ELSE - IF QB__selIn <> 0 THEN - QB_NODESET_count_PRESERVE& = 1 - ELSE - QB_NODESET_count_PRESERVE& = 0 - END IF -END IF -END FUNCTION - -FUNCTION QB_NODESET_equal& (QB__selIn AS LONG, value AS STRING) -DIM QB__selOut AS LONG: QB__selOut = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -DIM QB__newSel AS LONG -IF QB__selIn < 0 THEN - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - IF __QB_NODE(QB__sel).valueFormat = QB_NODE_FORMAT_STR THEN - IF QB_STR_get(__QB_NODE(QB__sel).value) = value THEN - QB__newSel = QB_NODE_newLabel_long(QB__sel) - QB_NODE_assign QB__selOut, QB__newSel - END IF - END IF - LOOP -ELSE - QB__sel = QB__selIn - IF __QB_NODE(QB__sel).valueFormat = QB_NODE_FORMAT_STR THEN - IF QB_STR_get(__QB_NODE(QB__sel).value) = value THEN - QB__newSel = QB_NODE_newLabel_long(QB__sel) - QB_NODE_assign QB__selOut, QB__newSel - END IF - END IF -END IF -QB_NODESET_equal& = -QB__selOut -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_label_equal& (QB__selIn AS LONG, value AS STRING) -DIM QB__selOut AS LONG: QB__selOut = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -DIM QB__newSel AS LONG -IF QB__selIn < 0 THEN - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - IF __QB_NODE(QB__sel).labelFormat = QB_NODE_FORMAT_STR THEN - IF QB_STR_get(__QB_NODE(QB__sel).label) = value THEN - QB__newSel = QB_NODE_newLabel_long(QB__sel) - QB_NODE_assign QB__selOut, QB__newSel - END IF - END IF - LOOP -ELSE - QB__sel = QB__selIn - IF __QB_NODE(QB__sel).labelFormat = QB_NODE_FORMAT_STR THEN - IF QB_STR_get(__QB_NODE(QB__sel).label) = value THEN - QB__newSel = QB_NODE_newLabel_long(QB__sel) - QB_NODE_assign QB__selOut, QB__newSel - END IF - END IF -END IF -QB_NODESET_label_equal& = -QB__selOut -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_allChildren& (QB__selIn AS LONG) 'all decendants, all depths -DIM QB__selOut AS LONG: QB__selOut = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -IF QB__selIn < 0 THEN - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - IF __QB_NODE(QB__sel).count THEN - __QB_NODESET_addChildren QB__sel, QB__selOut - END IF - LOOP -ELSE - QB__sel = QB__selIn - IF __QB_NODE(QB__sel).count THEN - __QB_NODESET_addChildren QB__sel, QB__selOut - END IF -END IF -QB_NODESET_allChildren& = -QB__selOut -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_children& (QB__selIn AS LONG) 'only 1st level decendants -DIM QB__selOut AS LONG: QB__selOut = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -IF QB__selIn < 0 THEN - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - IF __QB_NODE(QB__sel).count THEN - __QB_NODESET_addChildrenWithDepth QB__sel, QB__selOut, 1, 1, 1 - END IF - LOOP -ELSE - QB__sel = QB__selIn - IF __QB_NODE(QB__sel).count THEN - __QB_NODESET_addChildrenWithDepth QB__sel, QB__selOut, 1, 1, 1 - END IF -END IF -QB_NODESET_children& = -QB__selOut -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_parent& (QB__selIn AS LONG) -DIM QB__selOut AS LONG: QB__selOut = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -DIM QB__newSel AS LONG -IF QB__selIn < 0 THEN - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - IF __QB_NODE(QB__sel).parent THEN - QB__newSel = QB_NODE_newLabel_long(__QB_NODE(QB__sel).parent) - QB_NODE_assign QB__selOut, QB__newSel - END IF - LOOP -ELSE - QB__sel = QB__selIn - IF __QB_NODE(QB__sel).parent THEN - QB__newSel = QB_NODE_newLabel_long(__QB_NODE(QB__sel).parent) - QB_NODE_assign QB__selOut, QB__newSel - END IF -END IF -QB_NODESET_parent& = -QB__selOut -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_node& (QB__selIn AS LONG) -IF QB__selIn >= 0 THEN - QB_NODESET_node& = QB__selIn - 'note: not a nodeset, no need to call nodeset free - EXIT FUNCTION -END IF -DIM QB__sel AS LONG -QB__sel = __QB_NODE(-QB__selIn).firstChild -IF QB__sel <> 0 THEN - QB__sel = __QB_NODE(QB__sel).label -END IF -QB_NODESET_node& = QB__sel -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_parents& (QB__selIn AS LONG) -DIM QB__selOut AS LONG: QB__selOut = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -DIM QB__newSel AS LONG -IF QB__selIn < 0 THEN - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - QB__sel = __QB_NODE(QB__sel).parent - DO WHILE QB__sel - QB__newSel = QB_NODE_newLabel_long(QB__sel) - QB_NODE_assign QB__selOut, QB__newSel - QB__sel = __QB_NODE(QB__sel).parent - LOOP - LOOP -ELSE - QB__sel = QB__selIn - QB__sel = __QB_NODE(QB__sel).parent - DO WHILE QB__sel - QB__newSel = QB_NODE_newLabel_long(QB__sel) - QB_NODE_assign QB__selOut, QB__newSel - QB__sel = __QB_NODE(QB__sel).parent - LOOP -END IF -QB_NODESET_parents& = -QB__selOut -QB_NODESET_free QB__selIn -END FUNCTION - -FUNCTION QB_NODESET_each& (QB__SelInI AS LONG, QB__selIn AS LONG, QB__selInIterator AS LONG) -DIM QB__ret AS LONG -QB__ret = QB_NODESET_each_PRESERVE(QB__SelInI, QB__selIn, QB__selInIterator) -IF QB__ret = 0 THEN QB_NODESET_free QB__selIn -QB_NODESET_each& = QB__ret -END FUNCTION -FUNCTION QB_NODESET_each_PRESERVE& (QB__SelInI AS LONG, QB__selIn AS LONG, QB__selInIterator AS LONG) -IF QB__selIn > 0 THEN - IF QB__selInIterator = 0 THEN - QB_NODESET_each_PRESERVE& = -1 - QB__SelInI = QB__selIn - ELSE - QB__selInIterator = 1 - QB_NODESET_each_PRESERVE& = 0 - QB__SelInI = 0 - END IF -ELSE - DIM QB__ret AS LONG - QB_NODESET_each_PRESERVE = QB_NODE_each(QB__SelInI, -QB__selIn, QB__selInIterator) - IF QB__SelInI <> 0 THEN QB__SelInI = __QB_NODE(QB__SelInI).label -END IF -END FUNCTION - -FUNCTION QB_NODESET_deserialize& (json AS STRING, format AS STRING) 'only "json" is supported -'prepass to make deserializing by scanning (INSTR) for : { } [ ] , work -DIM json2 AS STRING -json2 = SPACE$(LEN(json) * 6) 'the maximum size preparsed content can grow is 6x -i2 = 0 -inblock = 0 -lastA = 0 -lastLastA = 0 -FOR i1 = 1 TO LEN(json) - a = ASC(json, i1) - IF inblock THEN - IF a = 58 OR a = 123 OR a = 125 OR a = 91 OR a = 93 OR a = 44 THEN 'escape... : { } [ ] , - IF a = 58 THEN i2 = i2 + 6: MID$(json2, i2 - 5, 6) = "\u003A" - IF a = 123 THEN i2 = i2 + 6: MID$(json2, i2 - 5, 6) = "\u007B" - IF a = 125 THEN i2 = i2 + 6: MID$(json2, i2 - 5, 6) = "\u007D" - IF a = 91 THEN i2 = i2 + 6: MID$(json2, i2 - 5, 6) = "\u005B" - IF a = 93 THEN i2 = i2 + 6: MID$(json2, i2 - 5, 6) = "\u005D" - IF a = 44 THEN i2 = i2 + 6: MID$(json2, i2 - 5, 6) = "\u002C" - ELSE - i2 = i2 + 1: ASC(json2, i2) = a - END IF - IF a = inblock AND ((lastA <> 92) OR (lastA = 92 AND lastLastA = 92)) THEN inblock = 0 'note: we allow \' - ELSE - IF a = 34 THEN inblock = 34 - IF a = 39 THEN inblock = 39 - i2 = i2 + 1: ASC(json2, i2) = a - END IF - lastLastA = lastA - lastA = a -NEXT -json2 = LEFT$(json2, i2) -json2 = LTRIM$(RTRIM$(json2)) -DIM QB__index AS LONG -QB__index = 1 -QB_NODESET_deserialize& = __QB_JSON_deserialize(json2, QB__index, 0) -END FUNCTION - -FUNCTION QB_NODESET_serialize$ (QB__selIn AS LONG, format AS STRING) 'only "json" is supported -QB_NODESET_serialize$ = QB_NODESET_serialize_PRESERVE$(QB__selIn, format) -QB_NODESET_free QB__selIn -END FUNCTION -FUNCTION QB_NODESET_serialize_PRESERVE$ (QB__selIn AS LONG, format AS STRING) 'only "json" is supported -DIM QB__ret AS STRING -DIM QB__SelInI AS LONG: DIM QB__SelInIterator AS LONG -DIM QB__sel AS LONG -IF QB__selIn < 0 THEN - DIM QB__n AS LONG - DO WHILE QB_NODE_each(QB__SelInI, -QB__selIn, QB__SelInIterator) - QB__sel = __QB_NODE(QB__SelInI).label - QB__n = QB__n + 1 - __QB_JSON_serialize QB__ret, QB__sel, 0 - IF __QB_NODE(-QB__selIn).count <> QB__n THEN QB__ret = QB__ret + "," - LOOP -ELSE - QB__sel = QB__selIn - __QB_JSON_serialize QB__ret, QB__sel, 0 -END IF -QB_NODESET_serialize_PRESERVE$ = QB__ret -END FUNCTION - -'######################################## - -'#################### DATETIME: Methods #################### -FUNCTION QB_DATETIME_new (dateTimeType AS LONG) -DIM QB__handle AS LONG -QB__handle = QB_HANDLE_new(__QB_DATETIME_handleSet) -IF QB__handle > __QB_DATETIME_ubound THEN - __QB_DATETIME_ubound = QB__handle * 2 - REDIM _PRESERVE __QB_DATETIME(__QB_DATETIME_ubound) AS QB_DATETIME -END IF -__QB_DATETIME(QB__handle) = __QB_DATETIME_TYPE_EMPTY -__QB_DATETIME(QB__handle).reserved = 1 -__QB_DATETIME(QB__handle).type = dateTimeType -QB_DATETIME_new& = QB__handle -END FUNCTION - -SUB QB_DATETIME_get (QB__handle AS LONG, dateTimeToPopulate AS QB_DATETIME) -dateTimeToPopulate = __QB_DATETIME(QB__handle) -END SUB - -SUB QB_DATETIME_set (QB__handle AS LONG, dateTimeToPopulate AS QB_DATETIME) -__QB_DATETIME(QB__handle) = dateTimeToPopulate -END SUB - -SUB QB_DATETIME_free (QB__handle AS LONG) -IF QB__handle > __QB_DATETIME_ubound OR QB__handle <= 0 THEN ERROR 258: EXIT SUB 'invalid handle -IF __QB_DATETIME(QB__handle).reserved = 0 THEN ERROR 258: EXIT SUB -__QB_DATETIME(QB__handle).reserved = 0 -QB_HANDLE_free QB__handle, __QB_DATETIME_handleSet -END SUB - -FUNCTION QB_DATETIME_now -DIM QB__handle AS LONG -QB__handle = QB_DATETIME_new(QB_DATETIME_TYPE_LOCAL) -DIM QB__date AS STRING -QB__date = DATE$ 'mm-dd-yyyy -DIM QB__time AS STRING -QB__time = TIME$ 'hh:mm:ss -DIM QB__timer AS DOUBLE -QB__timer = TIMER(0.001) -__QB_DATETIME(QB__handle).months = VAL(MID$(QB__date, 1, 2)) -__QB_DATETIME(QB__handle).days = VAL(MID$(QB__date, 4, 2)) -__QB_DATETIME(QB__handle).years = VAL(MID$(QB__date, 7, 4)) -__QB_DATETIME(QB__handle).hours = VAL(MID$(QB__time, 1, 2)) -__QB_DATETIME(QB__handle).minutes = VAL(MID$(QB__time, 4, 2)) -__QB_DATETIME(QB__handle).seconds = VAL(MID$(QB__time, 7, 2)) -DIM QB__msStr AS STRING -DIM QB__ms AS LONG -QB__msStr = LTRIM$(STR$(QB__timer - INT(QB__timer))) -IF LEN(QB__msStr) > 4 THEN QB__msStr = LEFT$(QB__msStr, 4) -QB__ms = VAL(QB__msStr) * 1000 -IF QB__ms >= 1000 THEN QB__ms = 0 -__QB_DATETIME(QB__handle).milliseconds = QB__ms -QB_DATETIME_now& = QB__handle -END FUNCTION - -FUNCTION QB_DATETIME_format$ (QB__handle AS LONG, format AS STRING) -'Example: -' PRINT QB_DATETIME_format(myDateHandle, "D/M/YYYY H:mm:ss {AM}") 'could print "31/3/2012 5:02:05 PM" -' -'YYYY - 4 digit year -'YY - 2 digit year -'MM - 2 digit month -'M - 1 or 2 digit month -'DD - 2 digit day -'D - 1 or 2 digit day -'{TH},{Th},{th} -'{JAN},{jan},{Jan} -'{JANUARY},{january},{January} -'{MONDAY},{Monday},{monday} -'hh - 2 digit hour (24 hour time) -'HH - 2 digit hour (12 hour time) -'h - 1 or 2 digit hour (24 hour time) -'H - 1 or 2 digit hour (12 hour time) -'mm - 2 digit minutes -'m - 1 or 2 digit minutes -'ss - 2 digit seconds -'s - 1 or 2 digit seconds -'zzz - 3 digit milliseconds -'z - 1, 2 or 3 digit milliseconds -'{AM},{am} -DIM QB__out AS STRING -QB__out = "" -DIM QB__i AS LONG -DIM QB__fi AS LONG -DIM QB__s AS STRING -DIM QB__i1 AS LONG - -DIM QB__minDigits AS LONG -DIM QB__value AS STRING - -DIM QB__rhs AS STRING - -DIM QB__n AS LONG -DIM QB__x AS LONG - -DIM QB__smartCase AS LONG - -FOR QB__fi = 1 TO LEN(format) - - FOR QB__i = 1 TO 100 - - QB__minDigits = -1 'N/A - QB__smartCase = 0 'match case exactly - - QB__s = "" - - QB__n = 0 - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "{am}" - QB__smartCase = 1 - IF __QB_DATETIME(QB__handle).hours > 11 THEN QB__value = "pm" ELSE QB__value = "am" - END IF - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "{th}" - QB__smartCase = 1 - QB__value = "th" - IF __QB_DATETIME(QB__handle).days MOD 10 = 1 THEN QB__value = "st" - IF __QB_DATETIME(QB__handle).days MOD 10 = 2 THEN QB__value = "nd" - IF __QB_DATETIME(QB__handle).days MOD 10 = 3 THEN QB__value = "rd" - IF __QB_DATETIME(QB__handle).days > 10 AND __QB_DATETIME(QB__handle).days < 14 THEN QB__value = "th" - END IF - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "{monday}" - QB__smartCase = 1 - DIM QB__month AS LONG - DIM QB__year AS LONG - DIM QB__day AS LONG - DIM QB__newYear AS STRING - DIM QB__century AS LONG - DIM QB__dmy AS LONG - 'http://brisray.com/qbasic/qdate.htm - QB__day = __QB_DATETIME(QB__handle).days - QB__month = __QB_DATETIME(QB__handle).months - QB__year = __QB_DATETIME(QB__handle).years - IF QB__month < 3 THEN - QB__month = QB__month + 12 - QB__year = QB__year - 1 - END IF - '*** Add 1 to the month and multiply by 2.61 - '*** Drop the fraction (not round) afterwards - QB__month = QB__month + 1 - QB__month = FIX(QB__month * 2.61) - '*** Add Day, Month and the last two digits of the year - QB__newYear = LTRIM$(STR$(QB__year)) - QB__year = VAL(RIGHT$(QB__newYear, 2)) - QB__dmy = QB__day + QB__month + QB__year - QB__century = VAL(LEFT$(QB__newYear, 2)) - '*** Add a quarter of the last two digits of the year - '*** (truncated not rounded) - QB__year = FIX(QB__year / 4) - QB__dmy = QB__dmy + QB__year - '*** Add the following factors for the year - IF QB__century = 18 THEN QB__century = 2 - IF QB__century = 19 THEN QB__century = 0 - IF QB__century = 20 THEN QB__century = 6 - IF QB__century = 21 THEN QB__century = 4 - QB__dmy = QB__dmy + QB__century - '*** The day of the week is the modulus of DMY divided by 7 - QB__dmy = QB__dmy MOD 7 - IF QB__dmy = 0 THEN QB__value = "sunday" - IF QB__dmy = 1 THEN QB__value = "monday" - IF QB__dmy = 2 THEN QB__value = "tuesday" - IF QB__dmy = 3 THEN QB__value = "wednesday" - IF QB__dmy = 4 THEN QB__value = "thursday" - IF QB__dmy = 5 THEN QB__value = "friday" - IF QB__dmy = 6 THEN QB__value = "saturday" - END IF - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "{mon}" - QB__smartCase = 1 - 'http://brisray.com/qbasic/qdate.htm - QB__day = __QB_DATETIME(QB__handle).days - QB__month = __QB_DATETIME(QB__handle).months - QB__year = __QB_DATETIME(QB__handle).years - IF QB__month < 3 THEN - QB__month = QB__month + 12 - QB__year = QB__year - 1 - END IF - '*** Add 1 to the month and multiply by 2.61 - '*** Drop the fraction (not round) afterwards - QB__month = QB__month + 1 - QB__month = FIX(QB__month * 2.61) - '*** Add Day, Month and the last two digits of the year - QB__newYear = LTRIM$(STR$(QB__year)) - QB__year = VAL(RIGHT$(QB__newYear, 2)) - QB__dmy = QB__day + QB__month + QB__year - QB__century = VAL(LEFT$(QB__newYear, 2)) - '*** Add a quarter of the last two digits of the year - '*** (truncated not rounded) - QB__year = FIX(QB__year / 4) - QB__dmy = QB__dmy + QB__year - '*** Add the following factors for the year - IF QB__century = 18 THEN QB__century = 2 - IF QB__century = 19 THEN QB__century = 0 - IF QB__century = 20 THEN QB__century = 6 - IF QB__century = 21 THEN QB__century = 4 - QB__dmy = QB__dmy + QB__century - '*** The day of the week is the modulus of DMY divided by 7 - QB__dmy = QB__dmy MOD 7 - IF QB__dmy = 0 THEN QB__value = "sun" - IF QB__dmy = 1 THEN QB__value = "mon" - IF QB__dmy = 2 THEN QB__value = "tue" - IF QB__dmy = 3 THEN QB__value = "wed" - IF QB__dmy = 4 THEN QB__value = "thu" - IF QB__dmy = 5 THEN QB__value = "fri" - IF QB__dmy = 6 THEN QB__value = "sat" - END IF - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "{jan}" - QB__smartCase = 1 - IF __QB_DATETIME(QB__handle).months = 1 THEN QB__value = "jan" - IF __QB_DATETIME(QB__handle).months = 2 THEN QB__value = "feb" - IF __QB_DATETIME(QB__handle).months = 3 THEN QB__value = "mar" - IF __QB_DATETIME(QB__handle).months = 4 THEN QB__value = "apr" - IF __QB_DATETIME(QB__handle).months = 5 THEN QB__value = "may" - IF __QB_DATETIME(QB__handle).months = 6 THEN QB__value = "jun" - IF __QB_DATETIME(QB__handle).months = 7 THEN QB__value = "jul" - IF __QB_DATETIME(QB__handle).months = 8 THEN QB__value = "aug" - IF __QB_DATETIME(QB__handle).months = 9 THEN QB__value = "sep" - IF __QB_DATETIME(QB__handle).months = 10 THEN QB__value = "oct" - IF __QB_DATETIME(QB__handle).months = 11 THEN QB__value = "nov" - IF __QB_DATETIME(QB__handle).months = 12 THEN QB__value = "dec" - END IF - - - - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "{january}" - QB__smartCase = 1 - IF __QB_DATETIME(QB__handle).months = 1 THEN QB__value = "january" - IF __QB_DATETIME(QB__handle).months = 2 THEN QB__value = "february" - IF __QB_DATETIME(QB__handle).months = 3 THEN QB__value = "march" - IF __QB_DATETIME(QB__handle).months = 4 THEN QB__value = "april" - IF __QB_DATETIME(QB__handle).months = 5 THEN QB__value = "may" - IF __QB_DATETIME(QB__handle).months = 6 THEN QB__value = "june" - IF __QB_DATETIME(QB__handle).months = 7 THEN QB__value = "july" - IF __QB_DATETIME(QB__handle).months = 8 THEN QB__value = "august" - IF __QB_DATETIME(QB__handle).months = 9 THEN QB__value = "september" - IF __QB_DATETIME(QB__handle).months = 10 THEN QB__value = "october" - IF __QB_DATETIME(QB__handle).months = 11 THEN QB__value = "november" - IF __QB_DATETIME(QB__handle).months = 12 THEN QB__value = "december" - END IF - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "YYYY": QB__minDigits = 4: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).years) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "YY": QB__minDigits = 2: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).years MOD 100) - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "MM": QB__minDigits = 2: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).months) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "M": QB__minDigits = 1: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).months) - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "DD": QB__minDigits = 2: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).days) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "D": QB__minDigits = 1: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).days) - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "hh": QB__minDigits = 2: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).hours) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "h": QB__minDigits = 1: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).hours) - - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "HH": QB__minDigits = 2: - QB__x = __QB_DATETIME(QB__handle).hours - IF QB__x > 12 THEN QB__x = QB__x - 12 - IF QB__x = 0 THEN QB__x = 12 - QB__value = QB_STR_long(QB__x) - END IF - QB__n = QB__n + 1: IF QB__i = QB__n THEN - QB__s = "H": QB__minDigits = 1 - QB__x = __QB_DATETIME(QB__handle).hours - IF QB__x > 12 THEN QB__x = QB__x - 12 - IF QB__x = 0 THEN QB__x = 12 - QB__value = QB_STR_long(QB__x) - END IF - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "mm": QB__minDigits = 2: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).minutes) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "m": QB__minDigits = 1: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).minutes) - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "ss": QB__minDigits = 2: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).seconds) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "s": QB__minDigits = 1: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).seconds) - - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "zzz": QB__minDigits = 3: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).milliseconds) - QB__n = QB__n + 1: IF QB__i = QB__n THEN QB__s = "z": QB__minDigits = 1: QB__value = QB_STR_long(__QB_DATETIME(QB__handle).milliseconds) - - - IF QB__s <> "" THEN - - IF QB__smartCase THEN - QB__rhs = LCASE$(RIGHT$(format, LEN(format) - QB__fi + 1)) + " " - ELSE - QB__rhs = RIGHT$(format, LEN(format) - QB__fi + 1) + " " - END IF - - IF LEFT$(QB__rhs, LEN(QB__s)) = QB__s THEN - IF QB__minDigits <> -1 THEN - IF LEN(QB__value) < QB__minDigits THEN - QB__value = STRING$(QB__minDigits - LEN(QB__value), "0") + QB__value - END IF - END IF - IF QB__smartCase THEN - QB__rhs = RIGHT$(format, LEN(format) - QB__fi + 1) + " " - QB__value = __QB_DATETIME_format_smartCase$(QB__rhs, QB__value) - END IF - - QB__out = QB__out + QB__value - QB__fi = QB__fi + LEN(QB__s) - 1 - EXIT FOR - END IF - END IF - NEXT - IF QB__i = 101 THEN QB__out = QB__out + MID$(format, QB__fi, 1) -NEXT -QB_DATETIME_format$ = QB__out -END FUNCTION - -'######################################## - - -'#################### STRING: Methods #################### - -FUNCTION QB_STR_empty& -DIM QB__handle AS LONG -QB__handle = QB_HANDLE_new(__QB_STR_handleSet) -IF QB__handle > __QB_STR_stringUbound THEN - __QB_STR_stringUbound = QB__handle * 2 - REDIM _PRESERVE __QB_STR_string(__QB_STR_stringUbound) AS STRING - REDIM _PRESERVE __QB_STR_stringValid(__QB_STR_stringUbound) AS LONG -END IF -__QB_STR_stringValid(QB__handle) = 1 -IF LEN(__QB_STR_string(QB__handle)) <> 0 THEN __QB_STR_string(QB__handle) = "" -QB_STR_empty& = QB__handle -END FUNCTION - -FUNCTION QB_STR_new& (Value AS STRING) -DIM QB__handle AS LONG -QB__handle = QB_HANDLE_new(__QB_STR_handleSet) -IF QB__handle > __QB_STR_stringUbound THEN - __QB_STR_stringUbound = QB__handle * 2 - REDIM _PRESERVE __QB_STR_string(__QB_STR_stringUbound) AS STRING - REDIM _PRESERVE __QB_STR_stringValid(__QB_STR_stringUbound) AS LONG -END IF -__QB_STR_stringValid(QB__handle) = 1 -__QB_STR_string(QB__handle) = Value -QB_STR_new& = QB__handle -END FUNCTION - -FUNCTION QB_STR_get$ (handle AS LONG) -IF handle > __QB_STR_stringUbound OR handle <= 0 THEN - $CHECKING:OFF - ERROR 258 'invalid handle - EXIT SUB - $CHECKING:ON -END IF -IF __QB_STR_stringValid(handle) = 0 THEN - $CHECKING:OFF - ERROR 258 'invalid handle - EXIT SUB - $CHECKING:ON -END IF -QB_STR_get$ = __QB_STR_string(handle) -END FUNCTION - -SUB QB_STR_set (handle AS LONG, value AS STRING) -IF handle > __QB_STR_stringUbound OR handle <= 0 THEN ERROR 258: EXIT SUB 'invalid handle -IF __QB_STR_stringValid(handle) = 0 THEN ERROR 258: EXIT SUB -__QB_STR_string(handle) = value -END SUB - -SUB QB_STR_free (handle AS LONG) -IF handle > __QB_STR_stringUbound OR handle <= 0 THEN ERROR 258: EXIT SUB 'invalid handle -IF __QB_STR_stringValid(handle) = 0 THEN ERROR 258: EXIT SUB -__QB_STR_stringValid(handle) = 0 -QB_HANDLE_free handle, __QB_STR_handleSet -END SUB - -FUNCTION QB_STR_long$ (value AS LONG) 'returns a string representation of a long value -QB_STR_long$ = LTRIM$(STR$(value)) -END FUNCTION - -'################################################## - - -'#################### HANDLE: Methods #################### - -FUNCTION QB_HANDLE_newSet& -DIM QB__context AS LONG -QB__context = QB_HANDLE_new(1) -IF UBOUND(__QB_HANDLE_handler) < QB__context THEN - REDIM _PRESERVE __QB_HANDLE_handler(QB__context * 2) AS __QB_HANDLE_HANDLER -END IF -__QB_HANDLE_handler(QB__context).lastFreedListIndex = 0 -__QB_HANDLE_handler(QB__context).lastHandle = 0 -__QB_HANDLE_handler(QB__context).count = 0 -QB_HANDLE_newSet& = QB__context -END FUNCTION - -SUB QB_HANDLE_freeSet (context AS LONG) -QB_HANDLE_free context, 1 -END SUB - -FUNCTION QB_HANDLE_count& (context AS LONG) -QB_HANDLE_count& = __QB_HANDLE_handler(context).count -END FUNCTION - -FUNCTION QB_HANDLE_new& (context AS LONG) -__QB_HANDLE_handler(context).count = __QB_HANDLE_handler(context).count + 1 -DIM QB__handle AS LONG -IF __QB_HANDLE_handler(context).lastFreedListIndex = 0 THEN - QB__handle = __QB_HANDLE_handler(context).lastHandle + 1 - __QB_HANDLE_handler(context).lastHandle = QB__handle - QB_HANDLE_new& = QB__handle - EXIT FUNCTION -END IF -DIM __QB_HANDLE_lastIndex AS LONG -__QB_HANDLE_lastIndex = __QB_HANDLE_handler(context).lastFreedListIndex -QB__handle = __QB_HANDLE_freedList(__QB_HANDLE_lastIndex).handle -__QB_HANDLE_handler(context).lastFreedListIndex = __QB_HANDLE_freedList(__QB_HANDLE_lastIndex).prevFreedListIndex -'add to freed-freed list so the freed structure can be reused -IF __QB_HANDLE_freedFreedList_Next > __QB_HANDLE_freedFreedList_Last THEN - __QB_HANDLE_freedFreedList_Last = __QB_HANDLE_freedFreedList_Next * 2 - REDIM _PRESERVE __QB_HANDLE_freedFreedList(__QB_HANDLE_freedFreedList_Last) AS LONG -END IF -__QB_HANDLE_freedFreedList(__QB_HANDLE_freedFreedList_Next) = __QB_HANDLE_lastIndex -__QB_HANDLE_freedFreedList_Next = __QB_HANDLE_freedFreedList_Next + 1 -QB_HANDLE_new& = QB__handle -END FUNCTION - -SUB QB_HANDLE_free (handle AS LONG, context AS LONG) 'MUST pass a valid handle -__QB_HANDLE_handler(context).count = __QB_HANDLE_handler(context).count - 1 -'add handle to freed list -DIM QB__index AS LONG -IF __QB_HANDLE_freedFreedList_Next > 1 THEN 'recover from freed-freed list? - __QB_HANDLE_freedFreedList_Next = __QB_HANDLE_freedFreedList_Next - 1 - QB__index = __QB_HANDLE_freedFreedList(__QB_HANDLE_freedFreedList_Next) -ELSE - IF __QB_HANDLE_freedList_Next > __QB_HANDLE_freedList_Last THEN - __QB_HANDLE_freedList_Last = __QB_HANDLE_freedList_Next * 2 - REDIM _PRESERVE __QB_HANDLE_freedList(__QB_HANDLE_freedList_Last) AS __QB_HANDLE_FREEDLIST - END IF - QB__index = __QB_HANDLE_freedList_Next - __QB_HANDLE_freedList_Next = __QB_HANDLE_freedList_Next + 1 -END IF -__QB_HANDLE_freedList(QB__index).prevFreedListIndex = __QB_HANDLE_handler(context).lastFreedListIndex -__QB_HANDLE_freedList(QB__index).handle = handle -__QB_HANDLE_handler(context).lastFreedListIndex = QB__index -END SUB - -'################################################## - - -'#################### EACH: Methods #################### - -FUNCTION QB_EACH_str_in_str& (value AS STRING, parent AS STRING, separator AS STRING, flags AS LONG, i AS LONG) -'requirements: -' iterator must be a LONG, initially set to 0 -'notes: -' refer to constants for available flags (0 is default) -DIM QB__byteValue AS LONG -DIM QB__parentLen AS LONG -DIM QB__sepValue AS LONG -DIM QB__i1 AS LONG -DIM QB__retry AS LONG -QB__sepValue = ASC(separator) -QB__parentLen = LEN(parent) -DO - i = i + 1 - IF i > QB__parentLen THEN - value = "" - IF i = QB__parentLen + 1 THEN - IF QB__parentLen <> 0 THEN - IF ASC(parent, i - 1) = QB__sepValue THEN - IF (flags AND (QB_EACH_ALLOW_BLANK OR QB_EACH_ALLOW_ALL_BLANK)) <> 0 THEN QB_EACH_str_in_str& = -1 - END IF - ELSE - IF (flags AND QB_EACH_ALLOW_ALL_BLANK) <> 0 THEN QB_EACH_str_in_str& = -1 - END IF - END IF - EXIT FUNCTION - END IF - QB__i1 = i - byteValue = ASC(parent, i) - $CHECKING:OFF - DO WHILE byteValue <> QB__sepValue - i = i + 1 - IF i > QB__parentLen THEN EXIT DO - byteValue = ASC(parent, i) - LOOP - $CHECKING:ON - value = MID$(parent, QB__i1, i - QB__i1) - IF LEN(value) = 0 AND (flags AND (QB_EACH_ALLOW_BLANK OR QB_EACH_ALLOW_ALL_BLANK)) = 0 THEN - QB__retry = 1 - ELSE - QB__retry = 0 - END IF -LOOP WHILE QB__retry -QB_EACH_str_in_str& = -1 -END FUNCTION - -FUNCTION QB_EACH_long_in_str& (value AS LONG, parent AS STRING, separator AS STRING, i AS LONG) -'requirements: -' a comma separated list of valid LONG values -' no whitespace -' no leading, trailing or adjacent commas -' iterator must be a LONG -' value must be a LONG -DIM QB__byteValue AS LONG -DIM QB__parentLen AS LONG -DIM QB__negate AS LONG -DIM QB__sepValue AS LONG -QB__sepValue = ASC(separator) -QB__parentLen = LEN(parent) -value = 0 'reset value (avoids undefined results) -i = i + 1 -IF i > QB__parentLen THEN EXIT FUNCTION -QB__byteValue = ASC(parent, i) -IF QB__byteValue = 45 THEN - QB__negate = 1 - i = i + 1 - QB__byteValue = ASC(parent, i) -END IF -DO WHILE QB__byteValue <> QB__sepValue - value = value * 10 + QB__byteValue - 48 - i = i + 1 - IF i > QB__parentLen THEN EXIT DO - QB__byteValue = ASC(parent, i) -LOOP -IF QB__negate THEN value = -value -QB_EACH_long_in_str& = -1 -END FUNCTION - -'################################################## - - -'#################### Key Value Pair Dictionary Look-Ups: Methods #################### - - - -FUNCTION QB_NODE_newValueWithLabel& (label AS STRING, value AS STRING) 'assume str_str -DIM QB__handle AS LONG -QB__handle = __QB_NODE_new&(QB_NODE_TYPE_VALUE) -__QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR -__QB_NODE(QB__handle).label = QB_STR_new(label) -__QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_STR -__QB_NODE(QB__handle).value = QB_STR_new(value) -QB_NODE_newValueWithLabel& = QB__handle -END FUNCTION - - -FUNCTION QB_NODE_newValueWithLabel_long& (label AS STRING, value AS LONG) 'assume str_long -DIM QB__handle AS LONG -QB__handle = __QB_NODE_new&(QB_NODE_TYPE_VALUE) -__QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR -__QB_NODE(QB__handle).label = QB_STR_new(label) -__QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_LONG -__QB_NODE(QB__handle).value = value -QB_NODE_newValueWithLabel_long& = QB__handle -END FUNCTION - -FUNCTION QB_NODE_newValueWithLabel_bool& (label AS STRING, value AS LONG) 'assume str_bool -DIM QB__handle AS LONG -QB__handle = __QB_NODE_new&(QB_NODE_TYPE_VALUE) -__QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR -__QB_NODE(QB__handle).label = QB_STR_new(label) -__QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_BOOL -IF value = 0 THEN - __QB_NODE(QB__handle).value = QB_FALSE -ELSE - __QB_NODE(QB__handle).value = QB_TRUE -END IF -QB_NODE_newValueWithLabel_bool& = QB__handle -END FUNCTION - -FUNCTION QB_NODE_newLabel& (label AS STRING) 'assume str -DIM QB__handle AS LONG -QB__handle = __QB_NODE_new&(QB_NODE_TYPE_VALUE) -__QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR -__QB_NODE(QB__handle).label = QB_STR_new(label) -QB_NODE_newLabel& = QB__handle -END FUNCTION - -FUNCTION QB_NODE_newValue& (value AS STRING) 'assume str -DIM QB__handle AS LONG -QB__handle = __QB_NODE_new&(QB_NODE_TYPE_VALUE) -__QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_STR -__QB_NODE(QB__handle).value = QB_STR_new(value) -QB_NODE_newValue& = QB__handle -END FUNCTION - -FUNCTION QB_NODE_newLabel_long& (label AS LONG) -DIM QB__handle AS LONG -QB__handle = __QB_NODE_new&(QB_NODE_TYPE_VALUE) -__QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_LONG -__QB_NODE(QB__handle).label = label -QB_NODE_newLabel_long& = QB__handle -END FUNCTION - -FUNCTION QB_NODE_typeName$ (nodeType AS LONG) -IF nodeType = 1 THEN QB_NODE_typeName$ = "HASHSET" -IF nodeType = 2 THEN QB_NODE_typeName$ = "LIST" -IF nodeType = 4 THEN QB_NODE_typeName$ = "DICTIONARY" -IF nodeType = 8 THEN QB_NODE_typeName$ = "VALUE" -END FUNCTION - -FUNCTION QB_NODE_new& (nodeType AS LONG, flags AS LONG) -IF QB_DEBUG_VERBOSE THEN PRINT "QB_NODE_new()" -DIM QB__handle AS LONG -QB__handle = QB_HANDLE_new(__QB_NODE_handleSet) -IF QB__handle > __QB_NODE_ubound THEN - __QB_NODE_ubound = QB__handle * 2 - REDIM _PRESERVE __QB_NODE(__QB_NODE_ubound) AS QB_NODE_TYPE -END IF -__QB_NODE(QB__handle) = QB_NODE_TYPE_EMPTY -__QB_NODE(QB__handle).valid = 1 -__QB_NODE(QB__handle).type = nodeType -__QB_NODE(QB__handle).flags = flags -IF nodeType AND (QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_DICTIONARY) THEN - __QB_NODE(QB__handle).hashOffset = INT(RND * 16777215) -END IF -IF QB_DEBUG THEN PRINT "Created node type"; nodeType -QB_NODE_new& = QB__handle -END FUNCTION - - -FUNCTION QB_NODE_newDictionary& -QB_NODE_newDictionary& = QB_NODE_new(QB_NODE_TYPE_DICTIONARY, 0) -END FUNCTION - -FUNCTION QB_NODE_newList& -QB_NODE_newList& = QB_NODE_new(QB_NODE_TYPE_LIST, 0) -END FUNCTION - -FUNCTION QB_NODE_newHashSet& -QB_NODE_newHashSet& = QB_NODE_new(QB_NODE_TYPE_HASHSET, 0) -END FUNCTION - -SUB QB_NODE_setValue_format (QB__handle AS LONG, value AS LONG, format AS LONG) -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_VALUE) = -1 THEN EXIT FUNCTION -$CHECKING:ON -'format-specific validation here -__QB_NODE(QB__handle).value = value -__QB_NODE(QB__handle).valueFormat = format -END SUB - -SUB QB_NODE_setLabel_format (QB__handle AS LONG, label AS LONG, format AS LONG) -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_VALUE + QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_LIST + QB_NODE_TYPE_DICTIONARY) = -1 THEN EXIT FUNCTION -$CHECKING:ON -'format-specific validation here -__QB_NODE(QB__handle).label = label -__QB_NODE(QB__handle).labelFormat = format -END SUB - -SUB QB_NODE_setValue (QB__handle AS LONG, value AS STRING) 'assume str -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_VALUE) = -1 THEN EXIT FUNCTION -$CHECKING:ON -__QB_NODE(QB__handle).value = QB_STR_new(value) -__QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_STR -END SUB - -SUB QB_NODE_setLabel (QB__handle AS LONG, label AS STRING) 'assume str -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_VALUE + QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_LIST + QB_NODE_TYPE_DICTIONARY) = -1 THEN EXIT FUNCTION -$CHECKING:ON -'TODO: If parent is a dictionary/hashset detach then reattach -__QB_NODE(QB__handle).label = QB_STR_new(label) -__QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR -END SUB - -FUNCTION QB_NODE_value$ (QB__handle AS LONG) 'assume str -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_VALUE) = -1 THEN EXIT FUNCTION -$CHECKING:ON -'format-specific validation here -IF __QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_STR THEN - QB_NODE_value$ = QB_STR_get(__QB_NODE(QB__handle).value) - EXIT FUNCTION -END IF -IF __QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_LONG THEN - QB_NODE_value$ = QB_STR_long(__QB_NODE(QB__handle).value) - EXIT FUNCTION -END IF -IF __QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_NULL THEN - QB_NODE_value$ = "null" - EXIT FUNCTION -END IF -IF __QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_BOOL THEN - IF __QB_NODE(QB__handle).value <> 0 THEN - QB_NODE_value$ = "true" - ELSE - QB_NODE_value$ = "false" - END IF - EXIT FUNCTION -END IF -QB_NODE_value$ = "undefined" -END SUB - -FUNCTION QB_NODE_label$ (QB__handle AS LONG) 'assume str -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_VALUE) = -1 THEN EXIT FUNCTION -$CHECKING:ON -'format-specific validation here -IF __QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR THEN - QB_NODE_label$ = QB_STR_get(__QB_NODE(QB__handle).label) - EXIT FUNCTION -END IF -IF __QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_LONG THEN - QB_NODE_label$ = QB_STR_long(__QB_NODE(QB__handle).label) - EXIT FUNCTION -END IF -IF __QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_NULL THEN - QB_NODE_label$ = "null" - EXIT FUNCTION -END IF -IF __QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_BOOL THEN - IF __QB_NODE(QB__handle).label <> 0 THEN - QB_NODE_label$ = "true" - ELSE - QB_NODE_label$ = "false" - END IF - EXIT FUNCTION -END IF -QB_NODE_label$ = "undefined" -END SUB - -FUNCTION QB_NODE_count& (QB__handle AS LONG) -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_LIST) = -1 THEN EXIT FUNCTION -$CHECKING:ON -QB_NODE_count& = __QB_NODE(QB__handle).count -END FUNCTION - -FUNCTION QB_NODE_each& (child AS LONG, parent AS LONG, i AS LONG) -$CHECKING:OFF -IF i = 0 THEN - IF __QB_NODE_validateHandle(parent, QB_NODE_TYPE_LIST + QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_DICTIONARY) = -1 THEN EXIT FUNCTION -END IF -$CHECKING:ON -'i is either 0(on first call), -1(end of set reached) or the NEXT node -IF i = -1 THEN - child = 0 - EXIT FUNCTION -END IF -IF i = 0 THEN - child = __QB_NODE(parent).firstChild -ELSE - child = i -END IF -IF child = 0 THEN 'node does not exist - i = -1 - EXIT FUNCTION -END IF -i = __QB_NODE(child).next -IF i = 0 THEN - i = -1 -END IF -QB_NODE_each& = -1 -END FUNCTION - -FUNCTION QB_NODE_eachWithLabel_format& (child AS LONG, parent AS LONG, label AS LONG, labelFormat AS LONG, i AS LONG) -$CHECKING:OFF -IF i = 0 THEN - IF __QB_NODE_validateHandle(parent, QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) = -1 THEN EXIT FUNCTION -END IF -$CHECKING:ON -IF __QB_NODE(parent).type AND (QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) THEN - 'i is either 0(on first call), -1(end of set reached) or the NEXT node - IF i = -1 THEN - child = 0 - EXIT FUNCTION - END IF - DIM QB__label AS STRING - IF i = 0 THEN - DIM QB__hashValue AS LONG - IF labelFormat = QB_NODE_FORMAT_LONG THEN - QB__hashValue = __QB_NODE_hashLong(label, __QB_NODE(parent).hashOffset) - ELSE - IF labelFormat = QB_NODE_FORMAT_STR THEN - QB__label = QB_STR_get(label) - IF (__QB_NODE(parent).flags AND QB_NODE_CASE_SENSITIVE) = 0 THEN - QB__label = LCASE$(QB__label) - END IF - QB__hashValue = __QB_NODE_hashStr(QB__label, __QB_NODE(parent).hashOffset) - END IF - END IF - DIM QB__hashList AS LONG - QB__hashList = __QB_NODE_hashLists(QB__hashValue) - IF QB__hashList = 0 THEN - 'no hash list exists - i = -1 - EXIT FUNCTION - END IF - i = __QB_NODE(QB__hashList).firstChild - ELSE - IF labelFormat = QB_NODE_FORMAT_STR THEN - QB__label = QB_STR_get(label) - IF (__QB_NODE(parent).flags AND QB_NODE_CASE_SENSITIVE) = 0 THEN - QB__label = LCASE$(QB__label) - END IF - END IF - END IF - DO - IF i = 0 THEN - i = -1 - EXIT FUNCTION - END IF - 'check if current node matches label - IF __QB_NODE(i).owner = parent THEN 'same owner - IF __QB_NODE(i).labelFormat = labelFormat THEN 'same label format - DIM QB__same AS LONG - QB__same = 0 - IF labelFormat = QB_NODE_FORMAT_LONG THEN - IF __QB_NODE(i).label = label THEN QB__same = 1 - ELSE - IF QB_STR_get(__QB_NODE(i).label) = QB__label THEN QB__same = 1 - END IF - IF QB__same THEN 'same label - child = __QB_NODE(i).value - i = __QB_NODE(i).next - IF i = 0 THEN - i = -1 - END IF - QB_NODE_eachWithLabel_format& = -1 - EXIT FUNCTION - END IF - END IF - END IF - i = __QB_NODE(i).next - LOOP -END IF 'DICTIONARY -END FUNCTION - -FUNCTION QB_NODE_withLabel_format& (parent AS LONG, label AS LONG, labelFormat AS LONG) -$CHECKING:OFF -IF __QB_NODE_validateHandle(parent, QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) = -1 THEN EXIT FUNCTION -$CHECKING:ON -IF __QB_NODE(parent).type AND (QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) THEN - DIM QB__label AS STRING - DIM QB__hashValue AS LONG - IF labelFormat = QB_NODE_FORMAT_LONG THEN - QB__hashValue = __QB_NODE_hashLong(label, __QB_NODE(parent).hashOffset) - ELSE - IF labelFormat = QB_NODE_FORMAT_STR THEN - QB__label = QB_STR_get(label) - IF (__QB_NODE(parent).flags AND QB_NODE_CASE_SENSITIVE) = 0 THEN - QB__label = LCASE$(QB__label) - END IF - QB__hashValue = __QB_NODE_hashStr(QB__label, __QB_NODE(parent).hashOffset) - END IF - END IF - DIM QB__hashList AS LONG - QB__hashList = __QB_NODE_hashLists(QB__hashValue) - IF QB__hashList = 0 THEN EXIT FUNCTION - DIM QB__i AS LONG - QB__i = __QB_NODE(QB__hashList).firstChild - DO WHILE QB__i <> 0 - IF __QB_NODE(QB__i).owner = parent THEN 'same owner - IF __QB_NODE(QB__i).labelFormat = labelFormat THEN 'same label format - DIM QB__same AS LONG - QB__same = 0 - IF labelFormat = QB_NODE_FORMAT_LONG THEN - IF __QB_NODE(QB__i).label = label THEN QB__same = 1 - ELSE - IF QB_STR_get(__QB_NODE(QB__i).label) = QB__label THEN QB__same = 1 - END IF - IF QB__same THEN 'same label - QB_NODE_withLabel_format& = __QB_NODE(QB__i).value - EXIT FUNCTION - END IF - END IF - END IF - QB__i = __QB_NODE(QB__i).next - LOOP - EXIT FUNCTION 'not found -END IF 'DICTIONARY -END FUNCTION - -FUNCTION QB_NODE_valueOfLabel$ (parent AS LONG, label AS STRING) 'assume str-label, str-value -DIM QB__i AS LONG -QB__i = QB_NODE_withLabel&(parent, label) -IF QB__i THEN - QB_NODE_valueOfLabel$ = QB_NODE_value(QB__i) -END IF -END FUNCTION - -FUNCTION QB_NODE_valueOfLabel_long& (parent AS LONG, label AS STRING) 'assume str-label -DIM QB__i AS LONG -QB__i = QB_NODE_withLabel&(parent, label) -IF QB__i THEN - QB_NODE_valueOfLabel_long& = __QB_NODE(QB__i).value -END IF -END FUNCTION - -FUNCTION QB_NODE_valueOfLabel_bool& (parent AS LONG, label AS STRING) 'assume str-label -DIM QB__i AS LONG -QB__i = QB_NODE_withLabel&(parent, label) -IF QB__i THEN - QB_NODE_valueOfLabel_bool& = __QB_NODE(QB__i).value -END IF -END FUNCTION - -FUNCTION QB_NODE_withLabel& (parent AS LONG, label AS STRING) -$CHECKING:OFF -IF __QB_NODE_validateHandle(parent, QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) = -1 THEN EXIT FUNCTION -$CHECKING:ON -IF __QB_NODE(parent).type AND (QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) THEN - DIM QB__label AS STRING - DIM QB__hashValue AS LONG - QB__label = label - IF (__QB_NODE(parent).flags AND QB_NODE_CASE_SENSITIVE) = 0 THEN - QB__label = LCASE$(QB__label) - END IF - QB__hashValue = __QB_NODE_hashStr(QB__label, __QB_NODE(parent).hashOffset) - DIM QB__hashList AS LONG - QB__hashList = __QB_NODE_hashLists(QB__hashValue) - IF QB__hashList = 0 THEN EXIT FUNCTION - DIM QB__i AS LONG - QB__i = __QB_NODE(QB__hashList).firstChild - DO WHILE QB__i <> 0 - IF __QB_NODE(QB__i).owner = parent THEN 'same owner - IF __QB_NODE(QB__i).labelFormat = QB_NODE_FORMAT_STR THEN 'same label format - DIM QB__same AS LONG - QB__same = 0 - IF QB_STR_get(__QB_NODE(QB__i).label) = QB__label THEN QB__same = 1 - IF QB__same THEN 'same label - QB_NODE_withLabel& = __QB_NODE(QB__i).value - EXIT FUNCTION - END IF - END IF - END IF - QB__i = __QB_NODE(QB__i).next - LOOP - EXIT FUNCTION 'not found -END IF 'DICTIONARY -END FUNCTION - - -SUB QB_NODE_assign (parent AS LONG, child AS LONG) -$CHECKING:OFF -IF __QB_NODE_validateHandle(child, QB_NODE_TYPE_VALUE + QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_LIST + QB_NODE_TYPE_DICTIONARY) = -1 THEN EXIT FUNCTION -IF __QB_NODE_validateHandle(parent, QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_LIST + QB_NODE_TYPE_DICTIONARY) = -1 THEN EXIT FUNCTION -$CHECKING:ON - -IF __QB_NODE(parent).type AND (QB_NODE_TYPE_LIST) THEN - QB_NODE_detach child - __QB_NODE_append parent, child -END IF - -IF __QB_NODE(parent).type AND (QB_NODE_TYPE_DICTIONARY + QB_NODE_TYPE_HASHSET) THEN - QB_NODE_detach child - - DIM QB__label AS STRING - DIM QB__hashValue AS LONG - - IF __QB_NODE(child).labelFormat = QB_NODE_FORMAT_LONG THEN - QB__hashValue = __QB_NODE_hashLong(__QB_NODE(child).label, __QB_NODE(parent).hashOffset) - ELSE - IF __QB_NODE(child).labelFormat = QB_NODE_FORMAT_STR THEN - QB__label = QB_STR_get(__QB_NODE(child).label) - IF (__QB_NODE(parent).flags AND QB_NODE_CASE_SENSITIVE) = 0 THEN - QB__label = LCASE$(QB__label) - END IF - QB__hashValue = __QB_NODE_hashStr(QB__label, __QB_NODE(parent).hashOffset) - END IF - END IF - DIM QB__hashList AS LONG - QB__hashList = __QB_NODE_hashLists(QB__hashValue) - DIM QB__canReplace AS LONG - QB__canReplace = 1 - IF (__QB_NODE(parent).flags AND QB_NODE_ALLOW_DUPLICATE_KEYS) <> 0 THEN - QB__canReplace = 0 - IF (__QB_NODE(parent).flags AND QB_NODE_AVOID_DUPLICATE_VALUES_PER_KEY) <> 0 THEN QB__canReplace = 1 - END IF - - DIM QB__childValue AS STRING - IF (__QB_NODE(parent).flags AND QB_NODE_AVOID_DUPLICATE_VALUES_PER_KEY) <> 0 AND __QB_NODE(child).labelFormat = QB_NODE_FORMAT_STR THEN - QB__childValue = QB_STR_get(__QB_NODE(child).value) - IF (__QB_NODE(parent).flags AND QB_NODE_DUPLICATE_VALUES_CASE_SENSITIVE) = 0 THEN QB__childValue = LCASE$(QB__childValue) - END IF - - IF QB__hashList = 0 OR QB__canReplace = 0 THEN - IF QB__hashList = 0 THEN - QB__hashList = QB_NODE_new(QB_NODE_TYPE_LIST, 0) - __QB_NODE_hashLists(QB__hashValue) = QB__hashList - __QB_NODE(QB__hashList).hashReference = QB__hashValue - END IF - ELSE - DIM QB__this AS LONG - DIM QB__i AS LONG - DO WHILE QB_NODE_each(QB__this, QB__hashList, QB__i) - IF __QB_NODE(QB__this).owner = parent THEN 'same owner - IF __QB_NODE(QB__this).labelFormat = __QB_NODE(child).labelFormat THEN 'same label format - DIM QB__same AS LONG - QB__same = 0 - IF __QB_NODE(child).labelFormat = QB_NODE_FORMAT_LONG THEN - IF __QB_NODE(QB__this).label = __QB_NODE(child).label THEN QB__same = 1 - ELSE - IF QB_STR_get(__QB_NODE(QB__this).label) = QB__label THEN QB__same = 1 - END IF - IF QB__same THEN 'same label - IF (__QB_NODE(parent).flags AND QB_NODE_ALLOW_DUPLICATE_KEYS) <> 0 THEN - IF (__QB_NODE(parent).flags AND QB_NODE_AVOID_DUPLICATE_VALUES_PER_KEY) <> 0 THEN - IF __QB_NODE(QB__this).valueFormat = __QB_NODE(child).valueFormat THEN 'same value format - IF __QB_NODE(child).labelFormat = QB_NODE_FORMAT_LONG THEN - IF __QB_NODE(child).value = __QB_NODE(QB__this).value THEN - 'optionally, destroy this child - IF __QB_NODE(parent).flags AND QB_NODE_DESTROY_ORPHANED_CHILDNODES THEN - QB_NODE_destroy child - END IF - EXIT SUB 'entry already exists - END IF - ELSE - IF (__QB_NODE(parent).flags AND QB_NODE_DUPLICATE_VALUES_CASE_SENSITIVE) <> 0 THEN - IF QB_STR_get(__QB_NODE(QB__this).value) = QB__childValue THEN - 'optionally, destroy this child - IF __QB_NODE(parent).flags AND QB_NODE_DESTROY_ORPHANED_CHILDNODES THEN - QB_NODE_destroy child - END IF - EXIT SUB 'entry already exists - END IF - ELSE - IF LCASE$(QB_STR_get(__QB_NODE(QB__this).value)) = QB__childValue THEN - 'optionally, destroy this child - IF __QB_NODE(parent).flags AND QB_NODE_DESTROY_ORPHANED_CHILDNODES THEN - QB_NODE_destroy child - END IF - EXIT SUB 'entry already exists - END IF - END IF - END IF - END IF - END IF - ELSE - 'duplicate keys not allowed - __QB_NODE_append parent, child - 'update existing reference to child - DIM QB__oldChild AS LONG - QB__oldChild = __QB_NODE(QB__this).value - __QB_NODE_detach QB__oldChild 'generic detach must be used (reference will be re-used) - 'optionally, destroy old child - IF __QB_NODE(parent).flags AND QB_NODE_DESTROY_ORPHANED_CHILDNODES THEN - QB_NODE_destroy QB__oldChild - END IF - __QB_NODE(QB__this).value = child - __QB_NODE(child).hashReference = QB__this - EXIT SUB - END IF - END IF - END IF - END IF - LOOP - END IF - 'create new reference to child - __QB_NODE_append parent, child - DIM QB__ref AS LONG - QB__ref = QB_NODE_new(QB_NODE_TYPE_VALUE, 0) - IF __QB_NODE(child).labelFormat = QB_NODE_FORMAT_LONG THEN - QB_NODE_setLabel_format QB__ref, __QB_NODE(child).label, QB_NODE_FORMAT_LONG - ELSE - QB_NODE_setLabel_format QB__ref, QB_STR_new(QB__label), QB_NODE_FORMAT_STR - END IF - QB_NODE_setValue_format QB__ref, child, QB_NODE_FORMAT_LONG - __QB_NODE(QB__ref).owner = parent 'owner allows searching elimination of conflicting hash entries from other sets - 'add reference to list - __QB_NODE_append QB__hashList, QB__ref - __QB_NODE(child).hashReference = QB__ref -END IF 'dictionary - - - - - - - - -END SUB 'assign - -SUB QB_NODE_detach (QB__handle AS LONG) -IF QB_DEBUG_VERBOSE THEN - PRINT "QB_NODE_detach: Node"; QB__handle; "of type: " + QB_NODE_typeName(__QB_NODE(QB__handle).type) -END IF -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, 0) = -1 THEN EXIT FUNCTION -$CHECKING:ON -DIM QB__parent AS LONG -DIM QB__ref AS LONG -DIM QB__ref_parent AS LONG -'dictionaries & hashsets require removal of their hash table reference link -QB__parent = __QB_NODE(QB__handle).parent -IF QB__parent THEN 'has parent - IF __QB_NODE(QB__parent).type AND (QB_NODE_TYPE_HASHSET + QB_NODE_TYPE_DICTIONARY) THEN - QB__ref = __QB_NODE(QB__handle).hashReference - QB__ref_parent = __QB_NODE(QB__ref).parent - IF __QB_NODE(QB__ref_parent).count = 1 THEN - 'last reference - IF QB_DEBUG_VERBOSE THEN - PRINT "QB_NODE_detach: Calling destroy on parent hashreference-list node"; QB__ref_parent; "of type: " + QB_NODE_typeName(__QB_NODE(QB__ref_parent).type) + " (no more entries)" - END IF - 'clear the hash entry pointing to this list - __QB_NODE_hashLists(__QB_NODE(QB__ref_parent).hashReference) = 0 'step 1 (must happen before step 2) - __QB_NODE_destroy QB__ref_parent 'step 2 - ELSE - __QB_NODE_destroy QB__ref - END IF - IF __QB_NODE(QB__parent).flags AND QB_NODE_DESTROY_ORPHANED_CHILDNODES THEN - __QB_NODE_detach QB__handle 'perform generic detach - __QB_NODE_destroy QB__handle - EXIT FUNCTION - END IF - __QB_NODE_detach QB__handle 'perform generic detach - EXIT FUNCTION - END IF -END IF -__QB_NODE_detach QB__handle 'perform generic detach -END SUB - -SUB QB_NODE_destroy (QB__handle AS LONG) -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, 0) = -1 THEN EXIT FUNCTION -$CHECKING:ON -'destroy this node and all its children recursively -__QB_NODE_destroy QB__handle -END SUB - -SUB __QB_NODE_destroy (QB__handle AS LONG) - -IF QB_DEBUG_VERBOSE THEN - PRINT "__QB_NODE_destroy: Will destroy node"; QB__handle; "of type: " + QB_NODE_typeName(__QB_NODE(QB__handle).type) -END IF - -'when a collection is being destroyed, prevent QB_NODE_DESTROY_ORPHANED_CHILDNODES from firing a delete operation twice -IF __QB_NODE(QB__handle).flags AND QB_NODE_DESTROY_ORPHANED_CHILDNODES THEN - __QB_NODE(QB__handle).flags = __QB_NODE(QB__handle).flags - QB_NODE_DESTROY_ORPHANED_CHILDNODES -END IF - -'before any node can be destroyed it must be detached -QB_NODE_detach QB__handle -'destroy this node's children (if any) -DIM QB__child AS LONG -DIM QB__next AS LONG -QB__child = __QB_NODE(QB__handle).firstChild -DO WHILE QB__child - QB__next = __QB_NODE(QB__child).next - IF QB_DEBUG_VERBOSE THEN - PRINT "__QB_NODE_destroy: Calling destroy on child node"; QB__child; "of type: " + QB_NODE_typeName(__QB_NODE(QB__child).type) - END IF - __QB_NODE_destroy QB__child - QB__child = QB__next -LOOP -'destroy this object -IF QB_DEBUG_VERBOSE THEN - PRINT "__QB_NODE_destroy: Destroying node"; QB__handle; "of type: " + QB_NODE_typeName(__QB_NODE(QB__handle).type) -END IF -$CHECKING:OFF -IF __QB_NODE_validateHandle(QB__handle, 0) = -1 THEN EXIT FUNCTION -$CHECKING:ON -__QB_NODE(QB__handle).valid = 0 -'cleanup string references -IF __QB_NODE(QB__handle).valueFormat = QB_NODE_FORMAT_STR THEN - QB_STR_free __QB_NODE(QB__handle).value -END IF -IF __QB_NODE(QB__handle).labelFormat = QB_NODE_FORMAT_STR THEN - QB_STR_free __QB_NODE(QB__handle).label -END IF -QB_HANDLE_free QB__handle, __QB_NODE_handleSet -END SUB - -FUNCTION __QB_NODE_new& (nodeType AS LONG) -IF QB_DEBUG_VERBOSE THEN PRINT "__QB_NODE_new()" -DIM QB__handle AS LONG -QB__handle = QB_HANDLE_new(__QB_NODE_handleSet) -IF QB__handle > __QB_NODE_ubound THEN - __QB_NODE_ubound = QB__handle * 2 - REDIM _PRESERVE __QB_NODE(__QB_NODE_ubound) AS QB_NODE_TYPE -END IF -__QB_NODE(QB__handle) = QB_NODE_TYPE_EMPTY -__QB_NODE(QB__handle).valid = 1 -__QB_NODE(QB__handle).type = nodeType -IF QB_DEBUG_VERBOSE THEN PRINT "Created node type"; nodeType -__QB_NODE_new& = QB__handle -END FUNCTION - -SUB __QB_NODE_append (parent AS LONG, child AS LONG) -'generic append to end of parent list -'assumes child is detached -__QB_NODE(child).parent = parent -IF __QB_NODE(parent).firstChild = 0 THEN - 'is first entry in list - __QB_NODE(parent).count = 1 - __QB_NODE(parent).firstChild = child - __QB_NODE(parent).lastChild = child -ELSE - 'add to existing list - DIM QB__i AS LONG - QB__i = __QB_NODE(parent).lastChild - __QB_NODE(parent).count = __QB_NODE(parent).count + 1 - __QB_NODE(parent).lastChild = child - __QB_NODE(QB__i).next = child - __QB_NODE(child).prev = QB__i -END IF -END SUB - -FUNCTION __QB_NODE_hashLong (value AS LONG, baseOffset AS LONG) -__QB_NODE_hashLong = (value + baseOffset) AND &HFFFFFF~& -END FUNCTION - -FUNCTION __QB_NODE_hashStr (value AS STRING, baseOffset AS LONG) -DIM QB__keyNameLen AS LONG -DIM QB__i AS LONG -DIM QB__hashValue AS LONG -QB__keyNameLen = LEN(value) -QB__i = 1 -DO WHILE QB__i <= QB__keyNameLen - QB__hashValue = QB__hashValue + ASC(value, QB__i) * QB__i * 15 - QB__i = QB__i + 1 -LOOP -__QB_NODE_hashStr = (QB__hashValue + baseOffset) AND &HFFFFFF~& -END FUNCTION - -FUNCTION __QB_NODE_validateHandle (handle AS LONG, optionalRequiredType AS LONG) -$CHECKING:OFF -IF handle > __QB_NODE_ubound OR handle <= 0 THEN ERROR 258: EXIT FUNCTION 'invalid handle -IF __QB_NODE(handle).valid = 0 THEN ERROR 258: EXIT FUNCTION -IF optionalRequiredType <> 0 THEN - IF (optionalRequiredType AND __QB_NODE(handle).type) = 0 THEN - ERROR 258 - __QB_NODE_validateHandle = -1 - EXIT FUNCTION - END IF -END IF -$CHECKING:ON -END FUNCTION - -SUB __QB_NODE_detach (handle AS LONG) -IF QB_DEBUG_VERBOSE THEN - PRINT "__QB_NODE_detach: Node"; handle; "of type: " + QB_NODE_typeName(__QB_NODE(handle).type) -END IF -'generic detach method (regardless of parent type) -DIM QB__i -QB__i = __QB_NODE(handle).next -IF QB__i THEN - __QB_NODE(QB__i).prev = __QB_NODE(handle).prev -END IF -QB__i = __QB_NODE(handle).prev -IF QB__i THEN - __QB_NODE(QB__i).next = __QB_NODE(handle).next -END IF -QB__i = __QB_NODE(handle).parent -IF QB__i THEN - IF __QB_NODE(QB__i).firstChild = handle THEN __QB_NODE(QB__i).firstChild = __QB_NODE(handle).next - IF __QB_NODE(QB__i).lastChild = handle THEN __QB_NODE(QB__i).lastChild = __QB_NODE(handle).prev - __QB_NODE(QB__i).count = __QB_NODE(QB__i).count - 1 - __QB_NODE(handle).parent = 0 -END IF -__QB_NODE(handle).next = 0 -__QB_NODE(handle).prev = 0 -__QB_NODE(handle).hashReference = 0 -END SUB - -'################################################## - - - -SUB __QB_NODESET_addChildren (QB__parent AS LONG, QB__selOut AS LONG) -DIM QB__child AS LONG -DIM QB__newSel AS LONG -QB__child = __QB_NODE(QB__parent).firstChild -DO WHILE QB__child - QB__newSel = QB_NODE_newLabel_long(QB__child) - QB_NODE_assign QB__selOut, QB__newSel - IF __QB_NODE(QB__child).firstChild THEN __QB_NODESET_addChildren QB__child, QB__selOut - QB__child = __QB_NODE(QB__child).next -LOOP -END SUB - -SUB __QB_NODESET_addChildrenWithDepth (QB__parent AS LONG, QB__selOut AS LONG, currentDepth AS LONG, minDepth AS LONG, maxDepth AS LONG) -DIM QB__child AS LONG -DIM QB__newSel AS LONG -QB__child = __QB_NODE(QB__parent).firstChild -DO WHILE QB__child - IF currentDepth >= minDepth THEN - QB__newSel = QB_NODE_newLabel_long(QB__child) - QB_NODE_assign QB__selOut, QB__newSel - END IF - IF currentDepth < maxDepth THEN - IF __QB_NODE(QB__child).firstChild THEN - __QB_NODESET_addChildrenWithDepth QB__child, QB__selOut, currentDepth + 1, minDepth, maxDepth - END IF - END IF - QB__child = __QB_NODE(QB__child).next -LOOP -END SUB - - - -SUB __QB_NODE_debugInfo (QB__i AS LONG) -PRINT "-------- __QB_NODE_debugInfo:"; QB__i; "--------" -'type -DIM QB__type AS LONG -QB__type = __QB_NODE(QB__i).type -PRINT "TYPE: " + QB_NODE_typeName(QB__type) -'label -IF __QB_NODE(QB__i).labelFormat = QB_NODE_FORMAT_STR THEN - PRINT "LABEL: " + QB_STR_get(__QB_NODE(QB__i).label) -END IF -'value -IF __QB_NODE(QB__i).valueFormat = QB_NODE_FORMAT_STR THEN - PRINT "VALUE: " + QB_STR_get(__QB_NODE(QB__i).value) -END IF -IF __QB_NODE(QB__i).parent THEN - PRINT "Has parent of type " + QB_NODE_typeName(__QB_NODE(__QB_NODE(QB__i).parent).type) + " ["; __QB_NODE(QB__i).parent; "]" -ELSE - PRINT "This is a root element" -END IF -IF __QB_NODE(QB__i).firstChild THEN - PRINT "Has child of type " + QB_NODE_typeName(__QB_NODE(__QB_NODE(QB__i).firstChild).type) + " ["; __QB_NODE(QB__i).firstChild; "]" -END IF -IF __QB_NODE(QB__i).next THEN - PRINT "Has next sibling of type " + QB_NODE_typeName(__QB_NODE(__QB_NODE(QB__i).next).type) + " ["; __QB_NODE(QB__i).next; "]" -END IF -IF __QB_NODE(QB__i).prev THEN - PRINT "Has previous sibling of type " + QB_NODE_typeName(__QB_NODE(__QB_NODE(QB__i).prev).type) + " ["; __QB_NODE(QB__i).prev; "]" -END IF -PRINT "----------------" -END SUB - -'################################################## - - -'#################### JSON: Private Methods #################### - -FUNCTION __QB_JSON_unescape$ (QB__in AS STRING, QB__detectedFormat AS LONG, QB__detectedFormatValue AS LONG) -'-unescapes string -'-strips paired single or double quotes -'-detects data type (string, number, bool, null) -'-very permissive -QB__detectedFormat = 0 -QB__detectedFormatValue = 0 -DIM QB__out AS STRING -DIM QB__i1 AS LONG -DIM QB__i2 AS LONG -DIM QB__i3 AS LONG -DIM QB__in_len AS LONG -DIM QB__a AS LONG -DIM QB__a2 AS LONG -DIM QB__hex AS STRING -DIM QB__hex_len AS LONG -DIM QB__quoted AS LONG -QB__in_len = LEN(QB__in) -QB__out = SPACE$(QB__in_len) 'output is never longer than input -QB__i1 = 1 -QB__i2 = 0 -QB__i = 0 -'trim -QB__in = LTRIM$(RTRIM$(QB__in)) -QB__in_len = LEN(QB__in) -'strip quotes -IF ASC(QB__in) = 34 OR ASC(QB__in) = 39 THEN - IF ASC(QB__in, QB__in_len) = ASC(QB__in) AND QB__in_len > 1 THEN - QB__quoted = ASC(QB__in) - QB__detectedFormat = QB_NODE_FORMAT_STR - QB__in_len = QB__in_len - 2 - QB__in = MID$(QB__in, 2, QB__in_len) - END IF -END IF -'detect type if not quoted -IF QB__quoted = 0 THEN - IF QB__in_len = 4 THEN - IF LCASE$(QB__in) = "true" THEN QB__in = "true": QB__detectedFormat = QB_NODE_FORMAT_BOOL: QB__detectedFormatValue = QB_TRUE - IF LCASE$(QB__in) = "null" THEN QB__in = "null": QB__detectedFormat = QB_NODE_FORMAT_NULL: QB__detectedFormatValue = QB_NULL - END IF - IF QB__in_len = 5 THEN - IF LCASE$(QB__in) = "false" THEN QB__in = "false": QB__detectedFormat = QB_NODE_FORMAT_BOOL: QB__detectedFormatValue = QB_FALSE - END IF - IF QB__detectedFormat = 0 THEN - QB__a = ASC(QB__in) - IF QB__a >= 48 AND QB__a <= 57 THEN '0-9 - IF INSTR(QB__in, ".") = 0 THEN - QB__detectedFormat = QB_NODE_FORMAT_LONG: QB__detectedFormatValue = VAL(QB__in) - END IF - ELSE - IF QB__a = 45 THEN '- - IF INSTR(QB__in, ".") = 0 THEN - QB__detectedFormat = QB_NODE_FORMAT_LONG: QB__detectedFormatValue = VAL(QB__in) - END IF - END IF - IF QB__a = 46 THEN '. - 'TODO: decimal support - END IF - END IF - IF QB__detectedFormat = 0 THEN QB__detectedFormat = QB_NODE_FORMAT_STR - END IF -END IF -'if a string, parse to convert escaped content -IF QB__detectedFormat = QB_NODE_FORMAT_STR THEN - DO WHILE QB__i1 <= QB__in_len - QB__a = ASC(QB__in, QB__i1) - IF QB__a <> 92 OR QB__i1 = QB__in_len THEN 'not \ or at end - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a - ELSE - QB__i1 = QB__i1 + 1: QB__a = ASC(QB__in, QB__i1) - QB__a2 = __QB_JSON_escape_lookup_reversed(QB__a) - IF QB__a2 THEN - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a2 - ELSE - IF QB__a = 117 OR QB__a = 85 AND QB__i1 + 4 <= QB__in_len THEN 'u or U - QB__a2 = VAL("&H" + MID$(QB__in, QB__i1 + 1, 4) + "~&") 'unicode code point - QB__i1 = QB__i1 + 4 - QB__a = 0 - IF QB__a2 = 0 THEN - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = 0 - ELSE - 'todo: replace with dictionary lookup - FOR QB__i3 = 1 TO 255 - IF QB__a2 = _MAPUNICODE(QB__i3) THEN - QB__a = QB__i3 - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a - EXIT FOR - END IF - NEXT - IF QB__i3 = 256 THEN 'could not locate a match for the character, show a question mark - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = 63 '? - END IF - END IF - ELSE - 'unknown \??? combination (add as is) - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = 92 '\ - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a '2nd character - END IF - END IF - END IF - QB__i1 = QB__i1 + 1 - LOOP - __QB_JSON_unescape$ = LEFT$(QB__out, QB__i2) -ELSE - __QB_JSON_unescape$ = QB__in -END IF -END FUNCTION - -FUNCTION __QB_JSON_escape$ (QB__in AS STRING) -DIM QB__out AS STRING -DIM QB__i1 AS LONG -DIM QB__i2 AS LONG -DIM QB__in_len AS LONG -DIM QB__a AS LONG -DIM QB__a2 AS LONG -DIM QB__hex AS STRING -DIM QB__hex_len AS LONG -QB__in_len = LEN(QB__in) -QB__out = SPACE$(QB__in_len * 6) 'worst possible case is double size (\uXXXX) -QB__i1 = 1 -QB__i2 = 0 -QB__i = 0 -DO WHILE QB__i1 <= QB__in_len - QB__a = ASC(QB__in, QB__i1) - IF QB__a <> 92 AND QB__a <> 34 AND (QB__a >= 32 AND QB__a <= 126) THEN 'not \ or " and valid standard ASCII - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a - ELSE - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = 92 '\ - QB__a2 = __QB_JSON_escape_lookup(QB__a) - IF QB__a2 THEN - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a2 - ELSE - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = 117 'u - IF QB__a = 0 THEN - QB__hex = "0" - ELSE - QB__hex = HEX$(_MAPUNICODE(QB__a)) - END IF - QB__hex_len = LEN(QB__hex) - QB__a2 = 48 - FOR QB__i = 1 TO 4 - IF 5 - QB__i <= QB__hex_len THEN - QB__a2 = ASC(QB__hex, QB__i - (4 - QB__hex_len)) - END IF - QB__i2 = QB__i2 + 1: ASC(QB__out, QB__i2) = QB__a2 - NEXT - END IF - END IF - QB__i1 = QB__i1 + 1 -LOOP -__QB_JSON_escape$ = LEFT$(QB__out, QB__i2) -END FUNCTION - -FUNCTION __QB_JSON_output_string$ (QB__in AS STRING) -__QB_JSON_output_string$ = QB_STR_QUOTE + __QB_JSON_escape$(QB__in) + QB_STR_QUOTE -END FUNCTION - -SUB __QB_JSON_serialize (json AS STRING, first AS LONG, addSiblings AS LONG) -DIM QB__i AS LONG -QB__i = first -DO WHILE QB__i - IF QB__i <> first THEN - json = json + "," - END IF - IF __QB_NODE(QB__i).type = QB_NODE_TYPE_DICTIONARY THEN - IF __QB_NODE(QB__i).labelFormat = QB_NODE_FORMAT_STR THEN - json = json + __QB_JSON_output_string(QB_STR_get(__QB_NODE(QB__i).label)) + ":" - END IF - json = json + "{" - __QB_JSON_serialize json, __QB_NODE(QB__i).firstChild, 1 - json = json + "}" - END IF - IF __QB_NODE(QB__i).type = QB_NODE_TYPE_LIST THEN - IF __QB_NODE(QB__i).labelFormat = QB_NODE_FORMAT_STR THEN - json = json + __QB_JSON_output_string(QB_STR_get(__QB_NODE(QB__i).label)) + ":" - END IF - json = json + "[" - __QB_JSON_serialize json, __QB_NODE(QB__i).firstChild, 1 - json = json + "]" - END IF - IF __QB_NODE(QB__i).type = QB_NODE_TYPE_VALUE THEN - IF __QB_NODE(QB__i).labelFormat = QB_NODE_FORMAT_STR THEN - json = json + __QB_JSON_output_string(QB_STR_get(__QB_NODE(QB__i).label)) + ":" - END IF - IF __QB_NODE(QB__i).valueFormat <> QB_NODE_FORMAT_STR THEN - json = json + QB_NODE_value(QB__i) - ELSE - json = json + __QB_JSON_output_string(QB_NODE_value(QB__i)) - END IF - END IF - IF addSiblings THEN - QB__i = __QB_NODE(QB__i).next - ELSE - QB__i = 0 - END IF -LOOP -END SUB - - -FUNCTION __QB_JSON_deserialize (QB__json AS STRING, QB__index AS LONG, QB__parent AS LONG) -'returns the first node created - -DIM QB__firstNodeCreated AS LONG -DIM QB__ignore AS LONG - -DIM QB__index1 AS LONG -QB__index1 = QB__index - -DIM QB__asc AS LONG -DIM QB__labelIndex AS LONG -DIM QB__label AS STRING -DIM QB__value AS STRING -DIM QB__obj AS LONG -DIM QB__objAdded AS LONG -DIM QB__final AS LONG -DIM QB__detectedFormat AS LONG -DIM QB__detectedFormatValue AS LONG -DIM QB__contentExists AS LONG -DO WHILE QB__index <= LEN(QB__json) + 1 - IF QB__index = LEN(QB__json) + 1 THEN - QB__final = 1 - QB__asc = 32 'whitespace - ELSE - QB__asc = ASC(QB__json, QB__index) - END IF - - IF QB__asc = 44 OR QB__asc = 125 OR QB__asc = 93 OR QB__final <> 0 THEN ', } ] final - IF QB__objAdded = 0 AND QB__contentExists <> 0 THEN - QB__value = MID$(QB__json, QB__index1, (QB__index - QB__index1)) - 'TODO: derive value format here - QB__obj = QB_NODE_new(QB_NODE_TYPE_VALUE, 0) - IF QB__firstNodeCreated = 0 THEN QB__firstNodeCreated = QB__obj - IF QB__label <> "" THEN - QB_NODE_setLabel QB__obj, __QB_JSON_unescape$(QB__label, 0, 0) - QB__label = "" - END IF - QB__value = __QB_JSON_unescape$(QB__value, QB__detectedFormat, QB__detectedFormatValue) - IF QB__detectedFormat = QB_NODE_FORMAT_STR THEN - QB_NODE_setValue_format QB__obj, QB_STR_new(QB__value), QB__detectedFormat - ELSE - QB_NODE_setValue_format QB__obj, QB__detectedFormatValue, QB__detectedFormat - END IF - IF QB__parent <> 0 THEN QB_NODE_assign QB__parent, QB__obj - END IF - 'end of block encountered? - IF QB__asc = 125 OR QB__asc = 93 OR QB__final <> 0 THEN '} ] final - __QB_JSON_deserialize = QB__firstNodeCreated - EXIT FUNCTION - END IF - QB__index1 = QB__index + 1 - QB__objAdded = 0 - QB__contentExists = 0 - END IF - - IF QB__asc <> 44 AND QB__asc <> 32 AND QB__asc <> 9 THEN QB__contentExists = 1 - - IF QB__asc = 58 THEN ': - IF LEN(QB__label) THEN - 'already has label - PRINT "Invalid label separator encountered ':'" - END - END IF - QB__label = MID$(QB__json, QB__index1, (QB__index - QB__index1)) - QB__index1 = QB__index + 1 'move start location - QB__contentExists = 0 - END IF - - IF QB__asc = 123 THEN '{ - IF QB__objAdded <> 0 THEN - PRINT "Expected ," - END - END IF - QB__obj = QB_NODE_newDictionary - IF QB__firstNodeCreated = 0 THEN QB__firstNodeCreated = QB__obj - IF QB__label <> "" THEN - QB_NODE_setLabel QB__obj, __QB_JSON_unescape$(QB__label, 0, 0) - QB__label = "" - END IF - QB__index = QB__index + 1 - QB__ignore = __QB_JSON_deserialize(QB__json, QB__index, QB__obj) - IF ASC(QB__json, QB__index) <> 125 THEN '} - PRINT "Expected }" - END - END IF - IF QB__parent <> 0 THEN QB_NODE_assign QB__parent, QB__obj - QB__objAdded = 1 - QB__contentExists = 0 - END IF - - IF QB__asc = 91 THEN '[ - IF QB__objAdded <> 0 THEN - PRINT "Expected ," - END IF - QB__obj = QB_NODE_newList - IF QB__firstNodeCreated = 0 THEN QB__firstNodeCreated = QB__obj - IF QB__label <> "" THEN - QB_NODE_setLabel QB__obj, __QB_JSON_unescape$(QB__label, 0, 0) - QB__label = "" - END IF - QB__index = QB__index + 1 - QB__ignore = __QB_JSON_deserialize(QB__json, QB__index, QB__obj) - IF ASC(QB__json, QB__index) <> 93 THEN '] - PRINT "Expected ]" - END - END IF - IF QB__parent <> 0 THEN QB_NODE_assign QB__parent, QB__obj - QB__objAdded = 1 - QB__contentExists = 0 - END IF - - QB__index = QB__index + 1 -LOOP -PRINT "Unexpected end of loop encountered" -END - -END FUNCTION - -'################################################## - -'#################### DATETIME: Private Methods #################### - -FUNCTION __QB_DATETIME_format_smartCase$ (format AS STRING, value AS STRING) -DIM QB__type AS LONG -DIM QB__a AS LONG -DIM QB__a2 AS LONG -QB__a = ASC(format, 2) -QB__a2 = ASC(format, 3) -IF QB__a >= 65 AND QB__a <= 90 THEN - IF QB__a2 >= 65 AND QB__a2 <= 90 THEN - value = UCASE$(value) - ELSE - value = UCASE$(LEFT$(value, 1)) + LCASE$(MID$(value, 2)) - END IF -ELSE - value = LCASE$(value) -END IF -__QB_DATETIME_format_smartCase$ = value -END FUNCTION - -'################################################## \ No newline at end of file diff --git a/source/subs_functions/extensions/opengl/opengl_methods.bas b/source/subs_functions/extensions/opengl/opengl_methods.bas index 16ef21f78..923833831 100644 --- a/source/subs_functions/extensions/opengl/opengl_methods.bas +++ b/source/subs_functions/extensions/opengl/opengl_methods.bas @@ -71,7 +71,7 @@ SUB gl_scan_header d = 0: a2$ = "" h = FREEFILE - OPEN "internal\c\parts\core\gl_header_for_parsing\gl.h" FOR INPUT AS #h + OPEN "internal\c\parts\core\gl_header_for_parsing\gl.h" FOR BINARY AS #h DO UNTIL EOF(h) LINE INPUT #h, a$ IF LEN(a$) THEN @@ -332,9 +332,9 @@ SUB gl_include_content 'add constants FOR d = 1 TO GL_DEFINES_LAST - IF ASC(GL_DEFINES(d)) <> 95 THEN - GL_DEFINES(d) = "_" + GL_DEFINES(d) - END IF + 'IF ASC(GL_DEFINES(d)) <> 95 THEN + ' GL_DEFINES(d) = "_" + GL_DEFINES(d) + 'END IF constlast = constlast + 1 IF constlast > constmax THEN constmax = constmax * 2 @@ -350,8 +350,8 @@ SUB gl_include_content REDIM _PRESERVE constdefined(constmax) AS LONG END IF i = constlast - constname(i) = GL_DEFINES(d) - constcname(i) = GL_DEFINES(d) + constname(i) = qb64prefix$ + GL_DEFINES(d) + constcname(i) = qb64prefix$ + GL_DEFINES(d) constnamesymbol(i) = "&&" consttype(i) = INTEGER64TYPE - ISPOINTER constinteger(i) = GL_DEFINES_VALUE(d) @@ -379,6 +379,7 @@ SUB gl_include_content clearid id.ccall = 1 '*** important for handling string returns correctly *** id.n = RTRIM$(g.cn) + IF qb64prefix_set = 1 THEN id.n = MID$(RTRIM$(g.cn), 2) s = g.subfunc id.subfunc = s id.callname = RTRIM$(g.callname) @@ -394,7 +395,7 @@ SUB gl_include_content 'SUB gluPerspective (BYVAL fovy#, BYVAL aspect#, BYVAL zNear#, BYVAL zFar#) reginternalsubfunc = 1 clearid - id.n = "_gluPerspective" + id.n = qb64prefix$ + "gluPerspective" id.subfunc = 2 'sub id.callname = "gluPerspective" id.args = 4 diff --git a/source/subs_functions/subs_functions.bas b/source/subs_functions/subs_functions.bas index d057ca504..01550c4fd 100644 --- a/source/subs_functions/subs_functions.bas +++ b/source/subs_functions/subs_functions.bas @@ -26,139 +26,147 @@ 'stubs for internally handled commands: clearid -id.n = "ASC": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Asc": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "END": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Asc": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "LSET": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "End": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "RSET": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "LSet": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "MID": id.subfunc = 2: id.callname = "sub_stub": id.musthave = "$": regid +id.n = "RSet": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "PRINT": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Mid": id.subfunc = 2: id.callname = "sub_stub": id.musthave = "$": regid clearid -id.n = "OPTION": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Print": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "SWAP": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Option": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "SYSTEM": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Swap": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "WRITE": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "System": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "READ": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Write": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "CLOSE": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Read": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "RESET": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Close": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "INPUT": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "Reset": id.subfunc = 2: id.callname = "sub_stub": regid +clearid +id.n = "Input": id.subfunc = 2: id.callname = "sub_stub": regid 'stubs for unimplemented commands: clearid -id.n = "TRON": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "TrOn": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "TROFF": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "TrOff": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "LIST": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "List": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "DEF": id.subfunc = 2: id.callname = "sub_stub": id.secondargcantbe = "SEG": regid +id.n = "Def": id.subfunc = 2: id.callname = "sub_stub": id.secondargcantbe = "SEG": regid clearid -id.n = "IOCTL": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = "IoCtl": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "IOCTL": id.subfunc = 1: id.callname = "func_stub": id.musthave = "$": id.args = 1: id.arg = MKL$(LONGTYPE - ISPOINTER): id.ret = STRINGTYPE - ISPOINTER: regid +id.n = "IoCtl": id.subfunc = 1: id.callname = "func_stub": id.musthave = "$": id.args = 1: id.arg = MKL$(LONGTYPE - ISPOINTER): id.ret = STRINGTYPE - ISPOINTER: regid clearid -id.n = "FRE": id.subfunc = 1: id.callname = "func_stub": id.args = 1: id.arg = MKL$(LONGTYPE - ISPOINTER): id.ret = LONGTYPE - ISPOINTER: regid +id.n = "Fre": id.subfunc = 1: id.callname = "func_stub": id.args = 1: id.arg = MKL$(LONGTYPE - ISPOINTER): id.ret = LONGTYPE - ISPOINTER: regid clearid -id.n = "SETMEM": id.subfunc = 1: id.callname = "func_stub": id.args = 1: id.arg = MKL$(LONGTYPE - ISPOINTER): id.ret = LONGTYPE - ISPOINTER: regid +id.n = "SetMem": id.subfunc = 1: id.callname = "func_stub": id.args = 1: id.arg = MKL$(LONGTYPE - ISPOINTER): id.ret = LONGTYPE - ISPOINTER: regid clearid -id.n = "FILEATTR": id.subfunc = 1: id.callname = "func_stub": id.args = 2: id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER): id.ret = LONGTYPE - ISPOINTER: regid +id.n = "FileAttr": id.subfunc = 1: id.callname = "func_stub": id.args = 2: id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER): id.ret = LONGTYPE - ISPOINTER: regid clearid -id.n = "_MEMGET": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = qb64prefix$ + "MemGet": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "_MEMPUT": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = qb64prefix$ + "MemPut": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "_MEMFILL": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = qb64prefix$ + "MemFill": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "_CONTINUE": id.subfunc = 2: id.callname = "sub_stub": regid +id.n = qb64prefix$ + "Continue": id.subfunc = 2: id.callname = "sub_stub": regid clearid -id.n = "_RESIZE" +id.n = qb64prefix$ + "Resize" id.subfunc = 2 id.callname = "sub__resize" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{ON|OFF}][,{_STRETCH|_SMOOTH}]" +id.specialformat = "[{On|Off}][,{_Stretch|_Smooth}]" +id.hr_syntax = "_RESIZE [{ON|OFF}][, {_STRETCH|_SMOOTH}]" regid clearid -id.n = "_RESIZE" +id.n = qb64prefix$ + "Resize" id.subfunc = 1 id.callname = "func__resize" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_RESIZE" regid clearid -id.n = "_RESIZEWIDTH" +id.n = qb64prefix$ + "ResizeWidth" id.subfunc = 1 id.callname = "func__resizewidth" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_RESIZEWIDTH" regid clearid -id.n = "_RESIZEHEIGHT" +id.n = qb64prefix$ + "ResizeHeight" id.subfunc = 1 id.callname = "func__resizeheight" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_RESIZEHEIGHT" regid clearid -id.n = "_SCALEDWIDTH" +id.n = qb64prefix$ + "ScaledWidth" id.subfunc = 1 id.callname = "func__scaledwidth" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SCALEDWIDTH" regid clearid -id.n = "_SCALEDHEIGHT" +id.n = qb64prefix$ + "ScaledHeight" id.subfunc = 1 id.callname = "func__scaledheight" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SCALEDHEIGHT" regid clearid -id.n = "_GLRENDER" +id.n = qb64prefix$ + "GLRender" id.subfunc = 2 id.callname = "sub__glrender" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{_BEHIND|_ONTOP|_ONLY}" -id.NoCloud = 1 +id.specialformat = "{_Behind|_OnTop|_Only}" +id.hr_syntax = "_GLRENDER {_Behind|_OnTop|_Only}" regid clearid -id.n = "_DISPLAYORDER" +id.n = qb64prefix$ + "DisplayOrder" id.subfunc = 2 id.callname = "sub__displayorder" id.args = 4 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}[,{_SOFTWARE|_HARDWARE|_HARDWARE1|_GLRENDER}]]]]" -id.NoCloud = 1 +id.specialformat = "[{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}]]]]" +id.hr_syntax = "_DISPLAYORDER {_Software|_Hardware|_Hardware1|_GLRender} (any combination/order)" regid clearid -id.n = "_MEMGET" +id.n = qb64prefix$ + "MemGet" id.subfunc = 1 id.callname = "func__memget" id.args = 3 id.arg = MKL$(UDTTYPE + (1)) + MKL$(OFFSETTYPE - ISPOINTER) + MKL$(-1) 'x = _MEMGET(block, offset, type) id.ret = -1 -id.NoCloud = 1 +id.hr_syntax = "_MEMGET(block, offset, type)" regid clearid -id.n = "_MEM" +id.n = qb64prefix$ + "Mem" id.subfunc = 1 id.callname = "func__mem" 'id.args = 1 @@ -167,209 +175,228 @@ id.args = 2 id.arg = MKL$(OFFSETTYPE - ISPOINTER) + MKL$(OFFSETTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined -id.NoCloud = 1 +id.hr_syntax = "_MEM(referenceVariable) or _MEM(offset, byteSize)" regid '---special case--- clearid -id.n = "_MEMELEMENT" +id.n = qb64prefix$ + "MemElement" id.subfunc = 1 id.callname = "func__mem" id.args = 1 id.arg = MKL$(-8) id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined -id.NoCloud = 1 +id.hr_syntax = "_MEMELEMENT(referenceVariable)" regid '---special case--- clearid -id.n = "_MEMFREE" +id.n = qb64prefix$ + "MemFree" id.subfunc = 2 id.callname = "sub__memfree" id.args = 1 id.arg = MKL$(UDTTYPE + (1)) -id.NoCloud = 1 +id.hr_syntax = "_MEMFREE memoryVariable" regid clearid -id.n = "_MEMEXISTS" +id.n = qb64prefix$ + "MemExists" id.subfunc = 1 id.callname = "func__memexists" id.args = 1 id.arg = MKL$(UDTTYPE + (1)) id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_MEMEXISTS(memBlock)" regid clearid -id.n = "_MEMNEW" +id.n = qb64prefix$ + "MemNew" id.subfunc = 1 id.callname = "func__memnew" id.args = 1 id.arg = MKL$(OFFSETTYPE - ISPOINTER) id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined -id.NoCloud = 1 +id.hr_syntax = "_MEMNEW(byteSize)" regid clearid -id.n = "_MEMIMAGE" +id.n = qb64prefix$ + "MemImage" id.subfunc = 1 id.callname = "func__memimage" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" 'dest is default id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined -id.NoCloud = 1 +id.hr_syntax = "_MEMIMAGE or _MEMIMAGE(imageHandle)" +regid + +clearid +id.n = qb64prefix$ + "MemSound": id.Dependency = DEPENDENCY_AUDIO_DECODE +id.subfunc = 1 +id.callname = "func__memsound" +id.args = 2 +id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = ISUDT + (1) 'the _MEM type is the first TYPE defined +id.hr_syntax = "_MEMSOUND(soundHandle)" regid clearid '_MEMCOPY a, aoffset, bytes TO b, boffset -id.n = "_MEMCOPY" +id.n = qb64prefix$ + "MemCopy" id.subfunc = 2 id.callname = "sub__memcopy" id.args = 5 id.arg = MKL$(UDTTYPE + (1)) + MKL$(OFFSETTYPE - ISPOINTER) + MKL$(OFFSETTYPE - ISPOINTER) + MKL$(UDTTYPE + (1)) + MKL$(OFFSETTYPE - ISPOINTER) -id.specialformat = "?,?,?{TO}?,?" 'dest is default -id.NoCloud = 1 +id.specialformat = "?,?,?{To}?,?" 'dest is default +id.hr_syntax = "_MEMCOPY sourceBlock, sourceBlock.OFFSET, sourceBlock.SIZE TO destBlock, destBlock.OFFSET" regid clearid -id.n = "_CONSOLETITLE" +id.n = qb64prefix$ + "ConsoleTitle" id.subfunc = 2 id.callname = "sub__consoletitle" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_CONSOLETITLE title$" regid clearid -id.n = "_SCREENSHOW" +id.n = qb64prefix$ + "ScreenShow" id.subfunc = 2 id.callname = "sub__screenshow" -id.NoCloud = 1 +id.hr_syntax = "_SCREENSHOW" regid clearid -id.n = "_SCREENHIDE" +id.n = qb64prefix$ + "ScreenHide" id.subfunc = 2 id.callname = "sub__screenhide" -id.NoCloud = 1 +id.hr_syntax = "_SCREENHIDE" regid clearid -id.n = "_SCREENHIDE" +id.n = qb64prefix$ + "ScreenHide" id.subfunc = 1 id.callname = "func__screenhide" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SCREENHIDE" regid clearid -id.n = "_CONSOLE" +id.n = qb64prefix$ + "Console" id.subfunc = 1 id.callname = "func__console" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_CONSOLE" regid clearid -id.n = "_CONSOLE" +id.n = qb64prefix$ + "Console" id.subfunc = 2 id.callname = "sub__console" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{ON|OFF}" -id.NoCloud = 1 +id.specialformat = "{On|Off}" +id.hr_syntax = "_CONSOLE {On|Off}" regid clearid -id.n = "_CONTROLCHR" +id.n = qb64prefix$ + "ControlChr" id.subfunc = 2 id.callname = "sub__controlchr" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{ON|OFF}" +id.specialformat = "{On|Off}" +id.hr_syntax = "_CONTROLCHR {On|Off}" regid clearid -id.n = "_BLINK" +id.n = qb64prefix$ + "Blink" id.subfunc = 2 id.callname = "sub__blink" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{ON|OFF}" +id.specialformat = "{On|Off}" +id.hr_syntax = "_BLINK {On|Off}" regid clearid -id.n = "_BLINK" +id.n = qb64prefix$ + "Blink" id.subfunc = 1 id.callname = "func__blink" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_BLINK" regid clearid -id.n = "_FILEEXISTS" +id.n = qb64prefix$ + "FileExists" id.subfunc = 1 id.callname = "func__fileexists" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_FILEEXISTS(fileName$)" regid clearid -id.n = "_DIREXISTS" +id.n = qb64prefix$ + "DirExists" id.subfunc = 1 id.callname = "func__direxists" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_DIREXISTS(path$)" regid 'QB64 DEVICE interface clearid -id.n = "STICK": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = "Stick": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func_stick" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "?[,?]" +id.hr_syntax = "STICK(direction%) or STICK(direction%, axis_number%)" regid clearid -id.n = "STRIG": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = "Strig": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func_strig" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "?[,?]" +id.hr_syntax = "STRIG(button_function%) or STRIG(button_function%, device_number%)" regid clearid -id.n = "STRIG": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = "Strig": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 2 id.callname = "sub_strig" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[(?[,?])]{ON|OFF|STOP}" +id.specialformat = "[(?[,?])]{On|Off|Stop}" 'In previous versions of BASIC, the statement STRIG ON enables testing of the joystick triggers; STRIG OFF disables joystick trigger testing. QuickBASIC ignores STRIG ON and STRIG OFF statements--the statements are provided for compatibility with earlier versions. +id.hr_syntax = "STRIG(button%) {On|Off|Stop}" regid clearid -id.n = "_DEVICES": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "Devices": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__devices" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_DEVICES" regid clearid -id.n = "_DEVICE": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "Device": id.Dependency=DEPENDENCY_DEVICEINPUT id.musthave = "$" id.subfunc = 1 id.callname = "func__device" @@ -377,87 +404,96 @@ id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_DEVICE$(device_number)" regid clearid -id.n = "_DEVICEINPUT": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "DeviceInput": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__deviceinput" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_DEVICEINPUT or _DEVICEINPUT(device_number%)" regid clearid -id.n = "_LASTBUTTON": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "LastButton": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__lastbutton" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_LASTBUTTON(deviceNumber)" regid clearid -id.n = "_LASTAXIS": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "LastAxis": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__lastaxis" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_LASTAXIS(deviceNumber)" regid clearid -id.n = "_LASTWHEEL": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "LastWheel": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__lastwheel" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_LASTWHEEL(deviceNumber)" regid clearid -id.n = "_BUTTON": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "Button": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__button" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_BUTTON(button_number%)" regid clearid -id.n = "_BUTTONCHANGE": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "ButtonChange": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__buttonchange" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_BUTTONCHANGE(button_number%)" regid clearid -id.n = "_AXIS": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "Axis": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__axis" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_AXIS(axis_number%)" regid clearid -id.n = "_WHEEL": id.Dependency=DEPENDENCY_DEVICEINPUT +id.n = qb64prefix$ + "Wheel": id.Dependency=DEPENDENCY_DEVICEINPUT id.subfunc = 1 id.callname = "func__wheel" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_WHEEL(wheelNumber%)" regid @@ -470,155 +506,165 @@ regid clearid -id.n = "KEY" +id.n = "Key" id.subfunc = 2 id.callname = "sub_key" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "(?){ON|OFF|STOP}" +id.specialformat = "(?){On|Off|Stop}" +id.hr_syntax = "KEY(number) {On|Off|Stop}" regid clearid -id.n = "_SCREENX" +id.n = qb64prefix$ + "ScreenX" id.subfunc = 1 id.callname = "func__screenx" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SCREENX" regid clearid -id.n = "_SCREENY" +id.n = qb64prefix$ + "ScreenY" id.subfunc = 1 id.callname = "func__screeny" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SCREENY" regid clearid -id.n = "_SCREENMOVE" +id.n = qb64prefix$ + "ScreenMove" id.subfunc = 2 id.callname = "sub__screenmove" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{_MIDDLE}][?,?]" +id.specialformat = "[{_Middle}][?,?]" +id.hr_syntax = "_SCREENMOVE x, y or _SCREENMOVE _Middle" regid clearid -id.n = "_MOUSEMOVE" +id.n = qb64prefix$ + "MouseMove" id.subfunc = 2 id.callname = "sub__mousemove" id.args = 2 id.arg = MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) +id.hr_syntax = "_MOUSEMOVE x, y" regid clearid -id.n = "_OS" +id.n = qb64prefix$ + "OS" id.musthave = "$" id.subfunc = 1 id.callname = "func__os" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_OS$" regid clearid -id.n = "_TITLE" +id.n = qb64prefix$ + "Title" id.musthave = "$" id.subfunc = 1 id.callname = "func__title" id.ret = STRINGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_TITLE$" regid clearid -id.n = "_MAPUNICODE" +id.n = qb64prefix$ + "MapUnicode" id.subfunc = 2 id.callname = "sub__mapunicode" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "?{TO}?" +id.specialformat = "?{To}?" +id.hr_syntax = "_MAPUNICODE unicode& TO asciiCode%" regid clearid -id.n = "_MAPUNICODE" +id.n = qb64prefix$ + "MapUnicode" id.subfunc = 1 id.callname = "func__mapunicode" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_MAPUNICODE(asciiCode%)" regid clearid -id.n = "_KEYDOWN" +id.n = qb64prefix$ + "KeyDown" id.subfunc = 1 id.callname = "func__keydown" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_KEYDOWN(code&)" regid clearid -id.n = "_KEYHIT" +id.n = qb64prefix$ + "KeyHit" id.subfunc = 1 id.callname = "func__keyhit" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_KEYHIT" regid clearid -id.n = "_WINDOWHANDLE" +id.n = qb64prefix$ + "WindowHandle" id.subfunc = 1 id.callname = "func__handle" id.ret = INTEGER64TYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_WINDOWHANDLE" regid clearid -id.n = "FILES" +id.n = "Files" id.subfunc = 2 id.callname = "sub_files" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "[?]" -id.NoCloud = 1 +id.hr_syntax = "FILES fileSpec$" regid clearid -id.n = "_PRINTIMAGE": id.Dependency = DEPENDENCY_PRINTER +id.n = qb64prefix$ + "PrintImage": id.Dependency = DEPENDENCY_PRINTER id.subfunc = 2 id.callname = "sub__printimage" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) ''proposed version: ''id.specialformat = "[_SQUAREPIXELS][?][,(?,?)-(?,?)]" -id.NoCloud = 1 +id.hr_syntax = "_PRINTIMAGE imageHandle&" regid 'remote desktop clearid -id.n = "_SCREENCLICK" +id.n = qb64prefix$ + "ScreenClick" id.subfunc = 2 id.callname = "sub__screenclick" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?[,?]" -id.NoCloud = 1 +id.hr_syntax = "_SCREENCLICK x, y[, button%]" regid clearid -id.n = "_SCREENPRINT" +id.n = qb64prefix$ + "ScreenPrint" id.subfunc = 2 id.callname = "sub__screenprint" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SCREENPRINT text$" regid clearid -id.n = "_SCREENIMAGE": id.Dependency = DEPENDENCY_SCREENIMAGE +id.n = qb64prefix$ + "ScreenImage": id.Dependency = DEPENDENCY_SCREENIMAGE id.subfunc = 1 id.callname = "func__screenimage" id.args = 4 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?,?,?,?]" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SCREENIMAGE(column1, row1, column2, row2)" regid @@ -626,753 +672,841 @@ regid clearid -id.n = "LOCK" +id.n = "Lock" id.subfunc = 2 id.callname = "sub_lock" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) -id.specialformat = "[#]?[,[?][{TO}?]]" -id.NoCloud = 1 +id.specialformat = "[#]?[,[?][{To}?]]" +id.hr_syntax = "LOCK #fileNumber%, record& or LOCK #fileNumber% firstRecord& TO lastRecord&" regid clearid -id.n = "UNLOCK" +id.n = "Unlock" id.subfunc = 2 id.callname = "sub_unlock" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) -id.specialformat = "[#]?[,[?][{TO}?]]" -id.NoCloud = 1 +id.specialformat = "[#]?[,[?][{To}?]]" +id.hr_syntax = "UNLOCK #fileNumber%, record& or UNLOCK #fileNumber% firstRecord& TO lastRecord&" regid clearid -id.n = "_FREETIMER" +id.n = qb64prefix$ + "FreeTimer" id.subfunc = 1 id.callname = "func__freetimer" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_FREETIMER" regid clearid -id.n = "TIMER" +id.n = "Timer" id.subfunc = 2 id.callname = "sub_timer" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[(?)]{ON|OFF|STOP|FREE}" +id.specialformat = "[(?)]{On|Off|Stop|Free}" +id.hr_syntax = "TIMER[(number%)] {On|Off|Stop|Free}" regid clearid -id.n = "_FULLSCREEN" +id.n = qb64prefix$ + "FullScreen" id.subfunc = 2 id.callname = "sub__fullscreen" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{_OFF|_STRETCH|_SQUAREPIXELS|OFF}][,{_SMOOTH}]" -id.NoCloud = 1 +id.specialformat = "[{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]" +id.hr_syntax = "_FULLSCREEN [{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]" regid clearid -id.n = "_ALLOWFULLSCREEN" +id.n = qb64prefix$ + "AllowFullScreen" id.subfunc = 2 id.callname = "sub__allowfullscreen" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{_STRETCH|_SQUAREPIXELS|_OFF|_ALL|OFF}][,{_SMOOTH|_OFF|_ALL|OFF}]" -id.NoCloud = 1 +id.specialformat = "[{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]" +id.hr_syntax = "_ALLOWFULLSCREEN [{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]" regid clearid -id.n = "_FULLSCREEN" +id.n = qb64prefix$ + "FullScreen" id.subfunc = 1 id.callname = "func__fullscreen" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_FULLSCREEN" regid clearid -id.n = "_SMOOTH" +id.n = qb64prefix$ + "Smooth" id.subfunc = 1 id.callname = "func__fullscreensmooth" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SMOOTH" regid clearid -id.n = "_WINDOWHASFOCUS" +id.n = qb64prefix$ + "WindowHasFocus" id.subfunc = 1 id.callname = "func__hasfocus" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_WINDOWHASFOCUS" regid clearid -id.n = "_CLIPBOARD" +id.n = qb64prefix$ + "Clipboard" id.musthave = "$" id.subfunc = 2 id.callname = "sub__clipboard" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "=?" -id.NoCloud = 1 +id.hr_syntax = "_CLIPBOARD$ = text$" regid clearid -id.n = "_CLIPBOARD" +id.n = qb64prefix$ + "Clipboard" id.musthave = "$" id.subfunc = 1 id.callname = "func__clipboard" id.ret = STRINGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_CLIPBOARD$" regid clearid -id.n = "_CLIPBOARDIMAGE": id.Dependency = DEPENDENCY_SCREENIMAGE +id.n = qb64prefix$ + "ClipboardImage": id.Dependency = DEPENDENCY_SCREENIMAGE id.subfunc = 1 id.callname = "func__clipboardimage" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_CLIPBOARDIMAGE" regid clearid -id.n = "_CLIPBOARDIMAGE": id.Dependency = DEPENDENCY_SCREENIMAGE +id.n = qb64prefix$ + "ClipboardImage": id.Dependency = DEPENDENCY_SCREENIMAGE id.subfunc = 2 id.callname = "sub__clipboardimage" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "=?" -id.NoCloud = 1 +id.hr_syntax = "_CLIPBOARDIMAGE = existingImageHandle&" regid clearid -id.n = "_EXIT" +id.n = qb64prefix$ + "Exit" id.subfunc = 1 id.callname = "func__exit" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_EXIT" regid clearid -id.n = "_OPENHOST": id.Dependency = DEPENDENCY_SOCKETS +id.n = qb64prefix$ + "OpenHost": id.Dependency = DEPENDENCY_SOCKETS id.subfunc = 1 id.callname = "func__openhost" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_OPENHOST(" + CHR$(34) + "TCP/IP:portNumber" + CHR$(34) + ")" regid clearid -id.n = "_CONNECTED" +id.n = qb64prefix$ + "Connected" id.subfunc = 1 id.callname = "func__connected" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_CONNECTED(connectionHandle&)" regid clearid -id.n = "_CONNECTIONADDRESS" +id.n = qb64prefix$ + "ConnectionAddress" id.mayhave = "$" id.subfunc = 1 id.callname = "func__connectionaddress" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_CONNECTIONADDRESS(connectionHandle&)" regid clearid -id.n = "_OPENCONNECTION" +id.n = qb64prefix$ + "OpenConnection" id.subfunc = 1 id.callname = "func__openconnection" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_OPENCONNECTION(hostHandle)" regid clearid -id.n = "_OPENCLIENT": id.Dependency = DEPENDENCY_SOCKETS +id.n = qb64prefix$ + "OpenClient": id.Dependency = DEPENDENCY_SOCKETS id.subfunc = 1 id.callname = "func__openclient" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_OPENCLIENT(" + CHR$(34) + "TCP/IP:port:address" + CHR$(34) + ")" regid clearid -id.n = "ENVIRON" +id.n = qb64prefix$ + "EnvironCount" +id.subfunc = 1 +id.callname = "func__environcount" +id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_ENVIRONCOUNT" +regid + +clearid +id.n = "Environ" id.musthave = "$" id.subfunc = 1 id.callname = "func_environ" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "ENVIRON$(listIndex%) or ENVIRON$(systemID$)" regid clearid -id.n = "ENVIRON" +id.n = "Environ" id.subfunc = 2 id.callname = "sub_environ" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "ENVIRON stringExpression$" regid clearid -id.n = "_ERRORLINE" +id.n = qb64prefix$ + "ErrorLine" id.subfunc = 1 id.callname = "func__errorline" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_ERRORLINE" regid clearid -id.n = "_INCLERRORLINE" +id.n = qb64prefix$ + "InclErrorLine" id.subfunc = 1 id.callname = "func__inclerrorline" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_INCLERRORLINE" regid +clearid +id.n = qb64prefix$ + "ErrorMessage" +id.musthave = "$" +id.subfunc = 1 +id.callname = "func__errormessage" +id.arg = MKL$(LONGTYPE - ISPOINTER) +id.args = 1 +id.specialformat = "[?]" +id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_ERRORMESSAGE$ or _ERRORMESSAGE$(errorCode%)" +regid clearid -id.n = "_DISPLAY" +id.n = qb64prefix$ + "Assert" +id.subfunc = 2 +id.callname = "sub__assert" +id.args = 2 +id.specialformat = "?[,?]" +id.arg = MKL$(INTEGERTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) +id.hr_syntax = "_ASSERT condition[, errorMessage$]" +regid + +clearid +id.n = qb64prefix$ + "Display" id.subfunc = 2 id.callname = "sub__display" +id.hr_syntax = "_DISPLAY" regid clearid -id.n = "_AUTODISPLAY" +id.n = qb64prefix$ + "AutoDisplay" id.subfunc = 2 id.callname = "sub__autodisplay" +id.hr_syntax = "_AUTODISPLAY" regid clearid -id.n = "_LIMIT" +id.n = qb64prefix$ + "Limit" id.subfunc = 2 id.callname = "sub__limit" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) +id.hr_syntax = "_LIMIT framesPerSecond!" regid clearid -id.n = "_FPS" +id.n = qb64prefix$ + "FPS" id.subfunc = 2 id.callname = "sub__fps" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) -id.specialformat = "[{_AUTO}][?]" +id.specialformat = "[{_Auto}][?]" +id.hr_syntax = "_FPS fps! or _FPS _Auto" regid clearid -id.n = "_DELAY" +id.n = qb64prefix$ + "Delay" id.subfunc = 2 id.callname = "sub__delay" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) +id.hr_syntax = "_DELAY seconds!" regid clearid -id.n = "_ICON": id.Dependency = DEPENDENCY_ICON +id.n = qb64prefix$ + "Icon": id.Dependency = DEPENDENCY_ICON id.subfunc = 2 id.callname = "sub__icon" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?[,?]]" -id.NoCloud = 1 +id.hr_syntax = "_ICON [mainImageHandle&[, smallImageHandle&]]" regid clearid -id.n = "_TITLE" +id.n = qb64prefix$ + "Title" id.subfunc = 2 id.callname = "sub__title" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_TITLE text$" regid clearid -id.n = "_ECHO" +id.n = qb64prefix$ + "Echo" id.subfunc = 2 id.callname = "sub__echo" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_ECHO text$" regid clearid -id.n = "_ACCEPTFILEDROP" +id.n = qb64prefix$ + "AcceptFileDrop" id.subfunc = 2 id.callname = "sub__filedrop" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{ON|OFF}]" -id.NoCloud = 1 +id.specialformat = "[{On|Off}]" +id.hr_syntax = "_ACCEPTFILEDROP [{On|Off}]" regid clearid -id.n = "_ACCEPTFILEDROP" +id.n = qb64prefix$ + "AcceptFileDrop" id.subfunc = 1 id.callname = "func__filedrop" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_ACCEPTFILEDROP" regid clearid -id.n = "_FINISHDROP" +id.n = qb64prefix$ + "FinishDrop" id.subfunc = 2 id.callname = "sub__finishdrop" -id.NoCloud = 1 +id.hr_syntax = "_FINISHDROP" regid clearid -id.n = "_TOTALDROPPEDFILES" +id.n = qb64prefix$ + "TotalDroppedFiles" id.subfunc = 1 id.callname = "func__totaldroppedfiles" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_TOTALDROPPEDFILES" regid clearid -id.n = "_DROPPEDFILE" +id.n = qb64prefix$ + "DroppedFile" id.mayhave = "$" id.subfunc = 1 id.callname = "func__droppedfile" id.ret = STRINGTYPE - ISPOINTER -id.NoCloud = 1 id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_DROPPEDFILE$ or _DROPPEDFILE$(index&)" regid clearid -id.n = "CLEAR" +id.n = "Clear" id.subfunc = 2 id.callname = "sub_clear" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?][,[?][,?]]" +id.hr_syntax = "CLEAR" regid 'IMAGE CREATION/FREEING clearid -id.n = "_NEWIMAGE" +id.n = qb64prefix$ + "NewImage" id.subfunc = 1 id.callname = "func__newimage" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_NEWIMAGE(width&, height&, mode)" regid clearid -id.n = "_LOADIMAGE": id.Dependency = DEPENDENCY_IMAGE_CODEC +id.n = qb64prefix$ + "LoadImage": id.Dependency = DEPENDENCY_IMAGE_CODEC id.subfunc = 1 id.callname = "func__loadimage" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_LOADIMAGE(fileName$[, mode])" regid clearid -id.n = "_FREEIMAGE" +id.n = qb64prefix$ + "FreeImage" id.subfunc = 2 id.callname = "sub__freeimage" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_FREEIMAGE handle&" regid clearid -id.n = "_COPYIMAGE" +id.n = qb64prefix$ + "CopyImage" id.subfunc = 1 id.callname = "func__copyimage" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_COPYIMAGE[(imageHandle&[, mode])]" regid 'IMAGE SELECTION clearid -id.n = "_SOURCE" +id.n = qb64prefix$ + "Source" id.subfunc = 2 id.callname = "sub__source" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?" +id.hr_syntax = "_SOURCE handle&" regid clearid -id.n = "_DEST" +id.n = qb64prefix$ + "Dest" id.subfunc = 2 id.callname = "sub__dest" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?" +id.hr_syntax = "_DEST imageHandle&" regid clearid -id.n = "_SOURCE" +id.n = qb64prefix$ + "Source" id.subfunc = 1 id.callname = "func__source" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SOURCE" regid clearid -id.n = "_DEST" +id.n = qb64prefix$ + "Dest" id.subfunc = 1 id.callname = "func__dest" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_DEST" regid clearid -id.n = "_DISPLAY" +id.n = qb64prefix$ + "Display" id.subfunc = 1 id.callname = "func__display" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_DISPLAY" regid 'IMAGE SETTINGS clearid -id.n = "_BLEND" +id.n = qb64prefix$ + "Blend" id.subfunc = 2 id.callname = "sub__blend" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_BLEND [imageHandle&]" regid clearid -id.n = "_DONTBLEND" +id.n = qb64prefix$ + "DontBlend" id.subfunc = 2 id.callname = "sub__dontblend" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_DONTBLEND [imageHandle&]" regid clearid -id.n = "_CLEARCOLOR" +id.n = qb64prefix$ + "ClearColor" id.subfunc = 2 id.callname = "sub__clearcolor" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{_NONE}][?][,?]" +id.specialformat = "[{_None}][?][,?]" +id.hr_syntax = "_CLEARCOLOR {color&|_None}[,dest_handle&]" regid 'USING/CHANGING A SURFACE clearid -id.n = "_PUTIMAGE" +id.n = qb64prefix$ + "PutImage" id.subfunc = 2 id.callname = "sub__putimage" id.args = 10 id.arg = MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) -id.specialformat = "[[{STEP}](?,?)[-[{STEP}](?,?)]][,[?][,[?][,[[{STEP}](?,?)[-[{STEP}](?,?)]][,{_SMOOTH}]]]]" +id.specialformat = "[[{Step}](?,?)[-[{Step}](?,?)]][,[?][,[?][,[[{Step}](?,?)[-[{Step}](?,?)]][,{_Smooth}]]]]" +id.hr_syntax = "_PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]][_SMOOTH]" regid clearid -id.n = "_MAPTRIANGLE" +id.n = qb64prefix$ + "MapTriangle" id.subfunc = 2 id.callname = "sub__maptriangle" id.args = 19 id.arg = MKL$(LONGTYPE - ISPOINTER)+MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{_CLOCKWISE|_ANTICLOCKWISE}][{_SEAMLESS}](?,?)-(?,?)-(?,?)[,?]{TO}(?,?[,?])-(?,?[,?])-(?,?[,?])[,[?][,{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]" +id.specialformat = "[{_Clockwise|_AntiClockwise}][{_Seamless}](?,?)-(?,?)-(?,?)[,?]{To}(?,?[,?])-(?,?[,?])-(?,?[,?])[,[?][,{_Smooth|_SmoothShrunk|_SmoothStretched}]]" +id.hr_syntax = "_MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]" regid clearid -id.n = "_DEPTHBUFFER" +id.n = qb64prefix$ + "DepthBuffer" id.subfunc = 2 id.callname = "sub__depthbuffer" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER)+MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{ON|OFF|LOCK|_CLEAR}[,?]" +id.specialformat = "{On|Off|Lock|_Clear}[,?]" +id.hr_syntax = "_DEPTHBUFFER {On|Off|Lock|_Clear}[,handle&]" regid clearid -id.n = "_SETALPHA" +id.n = qb64prefix$ + "SetAlpha" id.subfunc = 2 id.callname = "sub__setalpha" id.args = 4 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "?[,[?[{TO}?]][,?]]" +id.specialformat = "?[,[?[{To}?]][,?]]" +id.hr_syntax = "_SETALPHA alpha& or _SETALPHA color1& TO color2&[, imageHandle&]" regid 'IMAGE INFO clearid -id.n = "_WIDTH" +id.n = qb64prefix$ + "Width" id.subfunc = 1 id.callname = "func__width" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_WIDTH(imageHandle&)" regid clearid -id.n = "_HEIGHT" +id.n = qb64prefix$ + "Height" id.subfunc = 1 id.callname = "func__height" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_HEIGHT(imageHandle&)" regid clearid -id.n = "_PIXELSIZE" +id.n = qb64prefix$ + "PixelSize" id.subfunc = 1 id.callname = "func__pixelsize" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_PIXELSIZE[(imageHandle&)]" regid clearid -id.n = "_CLEARCOLOR" +id.n = qb64prefix$ + "ClearColor" id.subfunc = 1 id.callname = "func__clearcolor" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_CLEARCOLOR[(sourceHandle&)]" regid clearid -id.n = "_BLEND" +id.n = qb64prefix$ + "Blend" id.subfunc = 1 id.callname = "func__blend" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_BLEND[(imageHandle&)]" regid clearid -id.n = "_DEFAULTCOLOR" +id.n = qb64prefix$ + "DefaultColor" id.subfunc = 1 id.callname = "func__defaultcolor" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "_DEFAULTCOLOR[(imageHandle&)]" regid clearid -id.n = "_BACKGROUNDCOLOR" +id.n = qb64prefix$ + "BackgroundColor" id.subfunc = 1 id.callname = "func__backgroundcolor" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "_BACKGROUNDCOLOR(imageHandle&)]" regid '256 COLOR PALETTES clearid -id.n = "_PALETTECOLOR" +id.n = qb64prefix$ + "PaletteColor" id.subfunc = 1 id.callname = "func__palettecolor" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_PALETTECOLOR(attributeNumber%, imgHandle&)" regid clearid -id.n = "_PALETTECOLOR" +id.n = qb64prefix$ + "PaletteColor" id.subfunc = 2 id.callname = "sub__palettecolor" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?[,?]" +id.hr_syntax = "_PALETTECOLOR attribute%, newColor&[, imgHandle&]" regid clearid -id.n = "_COPYPALETTE" +id.n = qb64prefix$ + "CopyPalette" id.subfunc = 2 id.callname = "sub__copypalette" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?][,?]" +id.hr_syntax = "_COPYPALETTE [sourceImageHandle&[, destinationImageHandle&]]" regid 'FONT SUPPORT clearid -id.n = "_LOADFONT": id.Dependency = DEPENDENCY_LOADFONT +id.n = qb64prefix$ + "LoadFont": id.Dependency = DEPENDENCY_LOADFONT id.subfunc = 1 id.callname = "func__loadfont" id.args = 3 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "?,?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_LOADFONT(fileName$, size%[, " + CHR$(34) + "{MONOSPACE|, BOLD|, ITALIC|, UNDERLINE|, UNICODE|, DONTBLEND}" + CHR$(34) + "])" regid clearid -id.n = "_FONT" +id.n = qb64prefix$ + "Font" id.subfunc = 2 id.callname = "sub__font" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" +id.hr_syntax = "_FONT fontHandle&[, imageHandle&]" regid clearid -id.n = "_FONTWIDTH" +id.n = qb64prefix$ + "FontWidth" id.subfunc = 1 id.callname = "func__fontwidth" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_FONTWIDTH or _FONTWIDTH(fontHandle&)" regid clearid -id.n = "_FONTHEIGHT" +id.n = qb64prefix$ + "FontHeight" id.subfunc = 1 id.callname = "func__fontheight" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_FONTHEIGHT or _FONTHEIGHT(fontHandle&)" regid clearid -id.n = "_FONT" +id.n = qb64prefix$ + "Font" id.subfunc = 1 id.callname = "func__font" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_FONT[(imageHandle&)]" regid clearid -id.n = "_PRINTSTRING" +id.n = qb64prefix$ + "PrintString" id.subfunc = 2 id.callname = "sub__printstring" id.args = 4 id.arg = MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?),?[,?]" +id.specialformat = "[{Step}](?,?),?[,?]" +id.hr_syntax = "_PRINTSTRING(x, y), text$[, imageHandle&]" regid clearid -id.n = "_PRINTWIDTH" +id.n = qb64prefix$ + "PrintWidth" id.subfunc = 1 id.callname = "func__printwidth" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_PRINTWIDTH(textToPrint$[, destinationHandle&])" regid clearid -id.n = "_FREEFONT" +id.n = qb64prefix$ + "FreeFont" id.subfunc = 2 id.callname = "sub__freefont" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?" +id.hr_syntax = "_FREEFONT fontHandle&" regid clearid -id.n = "_PRINTMODE" +id.n = qb64prefix$ + "PrintMode" id.subfunc = 2 id.callname = "sub__printmode" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{_FILLBACKGROUND|_KEEPBACKGROUND|_ONLYBACKGROUND}[,?]" +id.specialformat = "{_FillBackground|_KeepBackground|_OnlyBackground}[,?]" +id.hr_syntax = "_PRINTMODE {_FillBackground|_KeepBackground|_OnlyBackground}[, imageHandle&]" regid clearid -id.n = "_PRINTMODE" +id.n = qb64prefix$ + "PrintMode" id.subfunc = 1 id.callname = "func__printmode" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_PRINTMODE[(imageHandle&)]" regid 'WORKING WITH COLORS clearid -id.n = "_RGBA" +id.n = qb64prefix$ + "RGBA" id.subfunc = 1 id.callname = "func__rgba" id.args = 5 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?,?,?[,?]" id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "_RGBA(red&, green&, blue&, alpha&[, imageHandle&])" regid clearid -id.n = "_RGB" +id.n = qb64prefix$ + "RGB" id.subfunc = 1 id.callname = "func__rgb" id.args = 4 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?,?[,?]" id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "_RGB(red&, green&, blue&[, imageHandle&])" regid clearid -id.n = "_RED" +id.n = qb64prefix$ + "Red" id.subfunc = 1 id.callname = "func__red" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_RED(rgbaColorIndex&[, imageHandle&])" regid clearid -id.n = "_GREEN" +id.n = qb64prefix$ + "Green" id.subfunc = 1 id.callname = "func__green" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_GREEN(rgbaColorIndex&[, imageHandle&])" regid clearid -id.n = "_BLUE" +id.n = qb64prefix$ + "Blue" id.subfunc = 1 id.callname = "func__blue" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_BLUE(rgbaColorIndex&[, imageHandle&])" regid clearid -id.n = "_ALPHA" +id.n = qb64prefix$ + "Alpha" id.subfunc = 1 id.callname = "func__alpha" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_ALPHA(color~&[, imageHandle&])" regid clearid -id.n = "_RGBA32" +id.n = qb64prefix$ + "RGBA32" id.subfunc = 1 id.callname = "func__rgba32" id.args = 4 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "_RGBA32(red&, green&, blue&, alpha&)" regid clearid -id.n = "_RGB32" +id.n = qb64prefix$ + "RGB32" id.subfunc = 1 id.callname = "func__rgb32" id.overloaded = -1 @@ -1380,297 +1514,319 @@ id.minargs = 1 id.args = 4 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "_RGB32(red&, green&, blue&[, alpha&]) or _RGB32(intensity&[, alpha&])" regid clearid -id.n = "_RED32" +id.n = qb64prefix$ + "Red32" id.subfunc = 1 id.callname = "func__red32" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_RED32(rgbaColor&)" regid clearid -id.n = "_GREEN32" +id.n = qb64prefix$ + "Green32" id.subfunc = 1 id.callname = "func__green32" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_GREEN32(rgbaColor&)" regid clearid -id.n = "_BLUE32" +id.n = qb64prefix$ + "Blue32" id.subfunc = 1 id.callname = "func__blue32" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_BLUE32(rgbaColor&)" regid clearid -id.n = "_ALPHA32" +id.n = qb64prefix$ + "Alpha32" id.subfunc = 1 id.callname = "func__alpha32" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_ALPHA32(rgbaColor&)" regid clearid -id.n = "DRAW" +id.n = "Draw" id.subfunc = 2 id.callname = "sub_draw" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) +id.hr_syntax = "DRAW drawString$" regid clearid -id.n = "PLAY": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = "Play": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub_play" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -'id.NoCloud = 1 +id.hr_syntax = "PLAY commandString$" regid clearid -id.n = "PLAY": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = "Play": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func_play" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "PLAY" regid 'QB64 MOUSE clearid -id.n = "_MOUSESHOW" +id.n = qb64prefix$ + "MouseShow" id.subfunc = 2 id.callname = "sub__mouseshow" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSESHOW [cursorShape$]" regid clearid -id.n = "_MOUSEHIDE" +id.n = qb64prefix$ + "MouseHide" id.subfunc = 2 id.callname = "sub__mousehide" +id.hr_syntax = "_MOUSEHIDE" regid clearid -id.n = "_MOUSEINPUT" +id.n = qb64prefix$ + "MouseInput" id.subfunc = 1 id.callname = "func__mouseinput" id.ret = LONGTYPE - ISPOINTER id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSEINPUT" regid clearid -id.n = "_MOUSEX" +id.n = qb64prefix$ + "MouseX" id.subfunc = 1 id.callname = "func__mousex" id.ret = SINGLETYPE - ISPOINTER id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSEX" regid clearid -id.n = "_MOUSEY" +id.n = qb64prefix$ + "MouseY" id.subfunc = 1 id.callname = "func__mousey" id.ret = SINGLETYPE - ISPOINTER id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSEY" regid clearid -id.n = "_MOUSEMOVEMENTX" +id.n = qb64prefix$ + "MouseMovementX" id.subfunc = 1 id.callname = "func__mousemovementx" id.ret = SINGLETYPE - ISPOINTER id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSEMOVEMENTX" regid clearid -id.n = "_MOUSEMOVEMENTY" +id.n = qb64prefix$ + "MouseMovementY" id.subfunc = 1 id.callname = "func__mousemovementy" id.ret = SINGLETYPE - ISPOINTER id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSEMOVEMENTY" regid clearid -id.n = "_MOUSEBUTTON" +id.n = qb64prefix$ + "MouseButton" id.subfunc = 1 id.callname = "func__mousebutton" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER)+MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "?[,?]" +id.hr_syntax = "_MOUSEBUTTON(buttonNumber)" regid clearid -id.n = "_MOUSEWHEEL" +id.n = qb64prefix$ + "MouseWheel" id.subfunc = 1 id.callname = "func__mousewheel" id.ret = LONGTYPE - ISPOINTER id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "_MOUSEWHEEL" regid clearid -id.n = "_MOUSEPIPEOPEN" +id.n = qb64prefix$ + "MousePipeOpen" id.subfunc = 1 id.callname = "func__mousepipeopen" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_MOUSEPIPEOPEN" regid clearid -id.n = "_MOUSEINPUTPIPE" +id.n = qb64prefix$ + "MouseInputPipe" id.subfunc = 2 id.callname = "sub__mouseinputpipe" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) +id.hr_syntax = "_MOUSEINPUTPIPE(context)" regid clearid -id.n = "_MOUSEPIPECLOSE" +id.n = qb64prefix$ + "MousePipeClose" id.subfunc = 2 id.callname = "sub__mousepipeclose" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) +id.hr_syntax = "_MOUSEPIPECLOSE(context)" regid clearid -id.n = "FREEFILE" +id.n = "FreeFile" id.subfunc = 1 id.callname = "func_freefile" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_FREEFILE" regid clearid -id.n = "NAME" +id.n = "Name" id.subfunc = 2 id.callname = "sub_name" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) -id.specialformat = "?{AS}?" +id.specialformat = "?{As}?" +id.hr_syntax = "NAME oldFileOrFolderName$ AS newFileOrFolderName$" regid clearid -id.n = "KILL" +id.n = "Kill" id.subfunc = 2 id.callname = "sub_kill" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) +id.hr_syntax = "KILL fileSpec$" regid clearid -id.n = "CHDIR" +id.n = "ChDir" id.subfunc = 2 id.callname = "sub_chdir" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 0 'allowed so initial subfolder can be entered +id.hr_syntax = "CHDIR path$" regid clearid -id.n = "MKDIR" +id.n = "MkDir" id.subfunc = 2 id.callname = "sub_mkdir" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "MKDIR pathSpec$" regid clearid -id.n = "RMDIR" +id.n = "RmDir" id.subfunc = 2 id.callname = "sub_rmdir" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "RMDIR path$" regid clearid -id.n = "CHAIN" +id.n = "Chain" id.subfunc = 2 id.callname = "sub_chain" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "CHAIN moduleName$" +regid + + +clearid +id.n = "Shell" +id.subfunc = 2 +id.callname = "sub_shell2" +id.args = 1 +id.arg = MKL$(STRINGTYPE - ISPOINTER) +id.specialformat = "{_Hide}[{_DontWait}][?]" +id.secondargmustbe = "_Hide" +id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$" regid clearid -id.n = "SHELL" +id.n = "Shell" +id.subfunc = 2 +id.callname = "sub_shell3" +id.args = 1 +id.arg = MKL$(STRINGTYPE - ISPOINTER) +id.specialformat = "{_DontWait}[{_Hide}][?]" +id.secondargmustbe = "_DontWait" +id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$" +regid + +clearid +id.n = "Shell" id.subfunc = 2 id.callname = "sub_shell" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "[?]" 'id.secondargcantbe = "_HIDE" -id.NoCloud = 1 +id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$" regid clearid -id.n = "SHELL" -id.subfunc = 2 -id.callname = "sub_shell2" -id.args = 1 -id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.specialformat = "{_HIDE}[{_DONTWAIT}][?]" -id.secondargmustbe = "_HIDE" -id.NoCloud = 1 -regid - -clearid -id.n = "SHELL" -id.subfunc = 2 -id.callname = "sub_shell3" -id.args = 1 -id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.specialformat = "{_DONTWAIT}[{_HIDE}][?]" -id.secondargmustbe = "_DONTWAIT" -id.NoCloud = 1 -regid - -clearid -id.n = "SHELL" +id.n = "Shell" id.subfunc = 1 id.callname = "func_shell" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = INTEGER64TYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "SHELL(commandToRun$)" regid clearid -id.n = "_SHELLHIDE" +id.n = qb64prefix$ + "ShellHide" id.subfunc = 1 id.callname = "func__shellhide" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = INTEGER64TYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SHELLHIDE(commandToRun$)" regid clearid -id.n = "COMMAND" +id.n = "Command" id.musthave = "$" id.subfunc = 1 id.callname = "func_command" @@ -1678,232 +1834,233 @@ id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER id.specialformat = "[?]" -id.NoCloud = 1 +id.hr_syntax = "COMMAND$[(index%)]" regid clearid -id.n = "_COMMANDCOUNT" +id.n = qb64prefix$ + "CommandCount" id.subfunc = 1 id.callname = "func__commandcount" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_COMMANDCOUNT" regid 'QB64 AUDIO clearid -id.n = "_SNDRATE": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndRate": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndrate" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDRATE" regid clearid -id.n = "_SNDRAW": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndRaw": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndraw" id.args = 3 id.arg = MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,[?][,?]]" -id.NoCloud = 1 +id.hr_syntax = "_SNDRAW leftSample[, rightSample][, pipeHandle&]" regid clearid -id.n = "_SNDRAWDONE": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndRawDone": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndrawdone" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" -id.NoCloud = 1 +id.hr_syntax = "_SNDRAWDONE" regid clearid -id.n = "_SNDOPENRAW": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndOpenRaw": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndopenraw" id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDOPENRAW" regid clearid -id.n = "_SNDRAWLEN": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndRawLen": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndrawlen" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.ret = DOUBLETYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDRAWLEN" regid clearid -id.n = "_SNDLEN": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndLen": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndlen" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDLEN(handle&)" regid clearid -id.n = "_SNDPAUSED": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndPaused": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndpaused" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDPAUSED(handle&)" regid clearid -id.n = "_SNDPLAYFILE": id.Dependency = DEPENDENCY_AUDIO_DECODE +id.n = qb64prefix$ + "SndPlayFile": id.Dependency = DEPENDENCY_AUDIO_DECODE id.subfunc = 2 id.callname = "sub__sndplayfile" id.args = 3 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) id.specialformat = "?[,[?][,?]]" -id.NoCloud = 1 +id.hr_syntax = "_SNDPLAYFILE fileName$[, , volume!]" regid clearid -id.n = "_SNDPLAYCOPY": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndPlayCopy": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndplaycopy" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) id.specialformat = "?[,?]" -id.NoCloud = 1 +id.hr_syntax = "_SNDPLAYCOPY handle&[, volume!]" regid clearid -id.n = "_SNDSTOP": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndStop": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndstop" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDSTOP handle&" regid clearid -id.n = "_SNDLOOP": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndLoop": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndloop" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDLOOP handle&" regid clearid -id.n = "_SNDLIMIT": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndLimit": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndlimit" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDLIMIT handle&, numberOfSeconds!" regid clearid -id.n = "_SNDOPEN": id.Dependency = DEPENDENCY_AUDIO_DECODE +id.n = qb64prefix$ + "SndOpen": id.Dependency = DEPENDENCY_AUDIO_DECODE id.subfunc = 1 id.callname = "func__sndopen" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = ULONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDOPEN(fileName$)" regid clearid -id.n = "_SNDSETPOS": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndSetPos": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndsetpos" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDSETPOS handle&, position!" regid clearid -id.n = "_SNDGETPOS": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndGetPos": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndgetpos" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDGETPOS(handle&)" regid clearid -id.n = "_SNDPLAYING": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndPlaying": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndplaying" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDPLAYING(handle&)" regid clearid -id.n = "_SNDPAUSE": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndPause": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndpause" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDPAUSE handle&" regid clearid -id.n = "_SNDBAL": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndBal": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndbal" id.args = 5 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) id.specialformat = "?,[?][,[?][,[?][,[?]]]]" -id.NoCloud = 1 +id.hr_syntax = "_SNDBAL handle&[, x!][, y!][, z!][, channel&]]" regid clearid -id.n = "_SNDVOL": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndVol": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndvol" id.args = 2 id.arg = MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDVOL handle&, volume!" regid clearid -id.n = "_SNDPLAY": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndPlay": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndplay" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDPLAY handle&" regid clearid -id.n = "_SNDCOPY": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndCopy": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 1 id.callname = "func__sndcopy" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) id.ret = ULONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "_SNDCOPY(handle&)" regid clearid -id.n = "_SNDCLOSE": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = qb64prefix$ + "SndClose": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub__sndclose" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "_SNDCLOSE handle&" regid clearid -id.n = "INPUT" +id.n = "Input" id.musthave = "$" id.subfunc = 1 id.callname = "func_input" @@ -1911,33 +2068,37 @@ id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "INPUT$(numberOfBytes%[, fileOrPortNumber])" regid clearid -id.n = "SEEK" +id.n = "Seek" id.subfunc = 2 id.callname = "sub_seek" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[#]?,?" +id.hr_syntax = "SEEK filenumber&, position" regid clearid -id.n = "SEEK" +id.n = "Seek" id.subfunc = 1 id.callname = "func_seek" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "SEEK(filenumber&)" regid clearid -id.n = "LOC" +id.n = "Loc" id.subfunc = 1 id.callname = "func_loc" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "LOC(fileOrPortNumber%)" regid clearid @@ -1947,6 +2108,7 @@ id.callname = "func_eof" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "EOF(fileNumber&)" regid clearid @@ -1956,378 +2118,430 @@ id.callname = "func_lof" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "LOF(fileNumber&)" regid clearid -id.n = "SCREEN" +id.n = "Screen" id.subfunc = 1 id.callname = "func_screen" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?[,?]" id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "SCREEN(x, y[, colorflag%])" regid clearid -id.n = "PMAP" +id.n = "PMap" id.subfunc = 1 id.callname = "func_pmap" id.args = 2 id.arg = MKL$(SINGLETYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER +id.hr_syntax = "PMAP(coordinate, function_number%)" regid clearid -id.n = "POINT" +id.n = "Point" id.subfunc = 1 id.callname = "func_point" id.args = 2 id.arg = MKL$(SINGLETYPE - ISPOINTER) + MKL$(SINGLETYPE - ISPOINTER) id.specialformat = "?[,?]" id.ret = DOUBLETYPE - ISPOINTER +id.hr_syntax = "POINT(x, y) or POINT({0|1|2|3})" regid clearid -id.n = "TAB" +id.n = "Tab" id.subfunc = 1 id.callname = "func_tab" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "TAB(column%)" regid clearid -id.n = "SPC" +id.n = "Spc" id.subfunc = 1 id.callname = "func_spc" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "SPC(count%)" regid clearid -id.n = "WAIT" +id.n = "Wait" id.subfunc = 2 id.callname = "sub_wait" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,?[,?]" +id.hr_syntax = "WAIT port%, andMask%[, xorMask%]" regid clearid -id.n = "INP" +id.n = "Inp" id.subfunc = 1 id.callname = "func_inp" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "INP(address)" regid clearid -id.n = "POS" +id.n = "Pos" id.subfunc = 1 id.callname = "func_pos" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "POS(0)" regid clearid -id.n = "SGN" +id.n = "Sgn" id.subfunc = 1 id.callname = "func_sgn" id.args = 1 id.arg = MKL$(-1) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "SGN(value)" regid clearid -id.n = "LBOUND" +id.n = "LBound" id.subfunc = 1 id.args = 2 id.arg = MKL$(-1) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "LBOUND(arrayName[, dimension%])" regid clearid -id.n = "UBOUND" +id.n = "UBound" id.subfunc = 1 id.args = 2 id.arg = MKL$(-1) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,[?]" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "UBOUND(arrayName[, dimension%])" regid clearid -id.n = "OCT" +id.n = qb64prefix$ + "Bin" id.musthave = "$" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_BIN$(number)" regid clearid -id.n = "HEX" +id.n = "Oct" id.musthave = "$" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "OCT$(number)" regid clearid -id.n = "SLEEP" +id.n = "Hex" +id.musthave = "$" +id.subfunc = 1 +id.args = 1 +id.arg = MKL$(-1) +id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "HEX$(decimalNumber)" +regid + +clearid +id.n = "Sleep" id.subfunc = 2 id.callname = "sub_sleep" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" +id.hr_syntax = "SLEEP seconds%" regid clearid -id.n = "EXP" +id.n = "Exp" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = -1 +id.hr_syntax = "EXP(numericExpression)" regid clearid -id.n = "FIX" +id.n = "Fix" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = -1 +id.hr_syntax = "FIX(expression)" regid clearid -id.n = "INT" +id.n = "Int" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = -1 +id.hr_syntax = "INT(expression)" regid clearid -id.n = "CDBL" +id.n = "CDbl" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = DOUBLETYPE - ISPOINTER +id.hr_syntax = "CDBL(expression)" regid clearid -id.n = "CSNG" +id.n = "CSng" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = SINGLETYPE - ISPOINTER +id.hr_syntax = "CSNG(expression)" regid clearid -id.n = "_ROUND" +id.n = qb64prefix$ + "Round" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = INTEGER64TYPE - ISPOINTER +id.hr_syntax = "_ROUND(number)" regid clearid -id.n = "CINT" +id.n = "CInt" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = INTEGERTYPE - ISPOINTER +id.hr_syntax = "CINT(expression)" regid clearid -id.n = "CLNG" +id.n = "CLng" id.subfunc = 1 id.args = 1 id.arg = MKL$(-1) id.ret = INTEGERTYPE - ISPOINTER +id.hr_syntax = "CLNG(expression)" regid clearid -id.n = "TIME" +id.n = "Time" id.musthave = "$" id.subfunc = 2 id.callname = "sub_time" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "=?" +id.hr_syntax = "TIME$ = timeToSet$" regid clearid -id.n = "TIME" +id.n = "Time" id.musthave = "$" id.subfunc = 1 id.callname = "func_time" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "TIME$" regid clearid -id.n = "DATE" +id.n = "Date" id.musthave = "$" id.subfunc = 2 id.callname = "sub_date" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.specialformat = "=?" +id.hr_syntax = "DATE$ = dateToSet$" regid clearid -id.n = "DATE" +id.n = "Date" id.musthave = "$" id.subfunc = 1 id.callname = "func_date" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "DATE$" regid clearid -id.n = "CSRLIN" +id.n = "CsrLin" id.subfunc = 1 id.callname = "func_csrlin" id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "CSRLIN" regid clearid -id.n = "PAINT" +id.n = "Paint" id.subfunc = 2 id.callname = "sub_paint" id.args = 5 id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?)[,[?][,[?][,?]]]" +id.specialformat = "[{Step}](?,?)[,[?][,[?][,?]]]" 'PAINT [STEP] (x!,y!)[,[paint] [,[bordercolor&] [,background$]]] +id.hr_syntax = "PAINT [STEP] (x!, y!)[,[fillColor&] [,[bordercolor&] [,pattern$]]]" regid clearid -id.n = "CIRCLE" +id.n = "Circle" id.subfunc = 2 id.callname = "sub_circle" id.args = 7 id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?),?[,[?][,[?][,[?][,?]]]]" +id.specialformat = "[{Step}](?,?),?[,[?][,[?][,[?][,?]]]]" 'CIRCLE [STEP] (x!,y!),radius![,[color&] [,[start!] [,[end!] [,aspect!]]]] +id.hr_syntax = "CIRCLE [STEP] (x!, y!), radius![, [color&] [, [start!] [, [end!] [, aspect!]]]]" regid clearid -id.n = "BLOAD" +id.n = "BLoad" id.subfunc = 2 id.callname = "sub_bload" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?[,?]" +id.hr_syntax = "BLOAD fileName$, VARPTR(imageArray%(index))" regid clearid -id.n = "BSAVE" +id.n = "BSave" id.subfunc = 2 id.callname = "sub_bsave" id.args = 3 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.hr_syntax = "BSAVE saveFile$, VARPTR(array(index)), fileSize&" +regid + +'double definition +clearid +id.n = "Get" +id.subfunc = 2 +id.callname = "sub_graphics_get" +id.args = 6 +id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(ULONGTYPE - ISPOINTER) +id.specialformat = "[{Step}](?,?)-[{Step}](?,?),?[,?]" +id.secondargmustbe = "Step" +id.hr_syntax = "GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]" regid clearid -id.n = "GET" +id.n = "Get" +id.subfunc = 2 +id.callname = "sub_graphics_get" +id.args = 6 +id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(ULONGTYPE - ISPOINTER) +id.specialformat = "[{Step}](?,?)-[{Step}](?,?),?[,?]" +id.secondargmustbe = "(" +id.hr_syntax = "GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]" +regid + +'double definition +clearid +id.n = "Put" +id.subfunc = 2 +id.callname = "sub_graphics_put" +id.args = 5 +id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) +id.specialformat = "[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]" +'PUT [STEP] (x!,y!),arrayname# [(indexes%)] [,actionverb] +'PUT (10, 10), myimage, _CLIP, 0 +id.secondargmustbe = "Step" +id.hr_syntax = "PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]" +regid +clearid +id.n = "Put" +id.subfunc = 2 +id.callname = "sub_graphics_put" +id.args = 5 +id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) +id.specialformat = "[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]" +'PUT [STEP] (x!,y!),arrayname# [(indexes%)] [,actionverb] +'PUT (10, 10), myimage, _CLIP, 0 +id.secondargmustbe = "(" +id.hr_syntax = "PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]" +regid + +clearid +id.n = "Get" id.subfunc = 2 id.callname = "sub_get" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(-4) 'id.specialformat = "[#]?,[?],?" 'non field complient definition id.specialformat = "[#]?[,[?][,?]]" 'field complient definition +id.hr_syntax = "GET #fileNumber&, [position][, targetVariable|targetArray()}]" regid clearid -id.n = "PUT" +id.n = "Put" id.subfunc = 2 id.callname = "sub_put" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(-4) 'id.specialformat = "[#]?,[?],?" 'non field complient definition id.specialformat = "[#]?[,[?][,?]]" 'field complient definition +id.hr_syntax = "PUT #filenumber&, [position][, {holdingvariable|holdingarray()}]" regid -'double definition clearid -id.n = "GET" +id.n = "Open" id.subfunc = 2 -id.callname = "sub_graphics_get" +id.callname = "sub_open" id.args = 6 -id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(ULONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?)-[{STEP}](?,?),?[,?]" -id.secondargmustbe = "STEP" +id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.specialformat = "?[{For Random|For Binary|For Input|For Output|For Append}][{Access Read Write|Access Read|Access Write}][{Shared|Lock Read Write|Lock Read|Lock Write}]{As}[#]?[{Len =}?]" +id.hr_syntax = "OPEN fileName$ [FOR mode] [ACCESS|LOCK|SHARED [{READ|WRITE}] AS [#]fileNumber& [LEN = recordLength]" regid clearid -id.n = "GET" -id.subfunc = 2 -id.callname = "sub_graphics_get" -id.args = 6 -id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(ULONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?)-[{STEP}](?,?),?[,?]" -id.secondargmustbe = "(" -regid - -'double definition -clearid -id.n = "PUT" -id.subfunc = 2 -id.callname = "sub_graphics_put" -id.args = 5 -id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?),?[,[{_CLIP}][{PSET|PRESET|AND|OR|XOR}][,?]]" -'PUT [STEP] (x!,y!),arrayname# [(indexes%)] [,actionverb] -'PUT (10, 10), myimage, _CLIP, 0 -id.secondargmustbe = "STEP" -regid -clearid -id.n = "PUT" -id.subfunc = 2 -id.callname = "sub_graphics_put" -id.args = 5 -id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(-3) + MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?),?[,[{_CLIP}][{PSET|PRESET|AND|OR|XOR}][,?]]" -'PUT [STEP] (x!,y!),arrayname# [(indexes%)] [,actionverb] -'PUT (10, 10), myimage, _CLIP, 0 -id.secondargmustbe = "(" -regid - -clearid -id.n = "OPEN" +id.n = "Open" id.subfunc = 2 id.callname = "sub_open_gwbasic" id.args = 4 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "?,[#]?,?[,?]" -regid -clearid -id.n = "OPEN" -id.subfunc = 2 -id.callname = "sub_open" -id.args = 6 -id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "?[{FOR RANDOM|FOR BINARY|FOR INPUT|FOR OUTPUT|FOR APPEND}][{ACCESS READ WRITE|ACCESS READ|ACCESS WRITE}][{SHARED|LOCK READ WRITE|LOCK READ|LOCK WRITE}]{AS}[#]?[{LEN =}?]" +id.hr_syntax = "OPEN modeLetter$, [#]fileNumber&, fileName$[, recordLength]" regid clearid -id.n = "VAL" +id.n = "Val" id.subfunc = 1 id.callname = "func_val" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "VAL(string_value$)" regid clearid @@ -2338,6 +2552,7 @@ id.callname = "func_mksmbf" id.args = 1 id.arg = MKL$(SINGLETYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "MKSMBF$(value!)" regid clearid id.n = "MKDMBF" @@ -2347,6 +2562,7 @@ id.callname = "func_mkdmbf" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "MKDMBF$(value#)" regid clearid @@ -2357,6 +2573,7 @@ id.callname = "" id.args = 1 id.arg = MKL$(INTEGERTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "MKI$(integerVariableOrLiteral%)" regid clearid id.n = "MKL" @@ -2366,6 +2583,7 @@ id.callname = "" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "MKL$(longVariableOrLiteral&)" regid clearid id.n = "MKS" @@ -2375,6 +2593,7 @@ id.callname = "" id.args = 1 id.arg = MKL$(SINGLETYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "MKS$(singlePrecisionVariableOrLiteral!)" regid clearid id.n = "MKD" @@ -2384,15 +2603,17 @@ id.callname = "" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "MKD$(doublePrecisionVariableOrLiteral#)" regid clearid -id.n = "_MK" +id.n = qb64prefix$ + "MK" id.musthave = "$" id.subfunc = 1 id.callname = "" id.args = 2 id.arg = MKL$(-1) + MKL$(-1) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_MK$(numericalType, numericalValue)" regid clearid @@ -2402,6 +2623,7 @@ id.callname = "func_cvsmbf" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER +id.hr_syntax = "CVSMBF(stringData$)" regid clearid id.n = "CVDMBF" @@ -2410,6 +2632,7 @@ id.callname = "func_cvdmbf" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = DOUBLETYPE - ISPOINTER +id.hr_syntax = "CVDMBF(stringData$)" regid clearid @@ -2419,6 +2642,7 @@ id.callname = "" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = INTEGERTYPE - ISPOINTER +id.hr_syntax = "CVI(stringData$)" regid clearid id.n = "CVL" @@ -2427,6 +2651,7 @@ id.callname = "" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "CVL(stringData$)" regid clearid id.n = "CVS" @@ -2435,6 +2660,7 @@ id.callname = "" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER +id.hr_syntax = "CVS(stringData$)" regid clearid id.n = "CVD" @@ -2443,58 +2669,64 @@ id.callname = "" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = DOUBLETYPE - ISPOINTER +id.hr_syntax = "CVD(stringData$)" regid clearid -id.n = "_CV" +id.n = qb64prefix$ + "CV" id.subfunc = 1 id.callname = "" id.args = 2 id.arg = MKL$(-1) + MKL$(STRINGTYPE - ISPOINTER) id.ret = -1 +id.hr_syntax = "_CV(numericalType, MKstringValue$)" regid clearid -id.n = "STRING" +id.n = "String" id.musthave = "$" id.subfunc = 1 id.callname = "func_string" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "STRING$(count&, {character$ | ASCIIcode%})" regid clearid -id.n = "SPACE" +id.n = "Space" id.musthave = "$" id.subfunc = 1 id.callname = "func_space" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "SPACE$(count&)" regid clearid -id.n = "INSTR" +id.n = "InStr" id.subfunc = 1 id.callname = "func_instr" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?],?,?" 'checked! +id.hr_syntax = "INSTR([start%,] baseString$, searchString$)" regid clearid -id.n = "_INSTRREV" +id.n = qb64prefix$ + "InStrRev" id.subfunc = 1 id.callname = "func__instrrev" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER id.specialformat = "[?],?,?" 'checked! +id.hr_syntax = "_INSTRREV([start%,] baseString$, searchString$)" regid clearid -id.n = "MID" +id.n = "Mid" id.musthave = "$" id.subfunc = 1 id.callname = "func_mid" @@ -2502,326 +2734,361 @@ id.args = 3 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER id.specialformat = "?,?,[?]" 'checked! +id.hr_syntax = "MID$(stringValue$, startPosition%[, bytes%])" regid clearid -id.n = "SADD" +id.n = "SAdd" id.subfunc = 1 id.callname = "" id.args = 1 id.arg = MKL$(-1) '!this value is ignored, the qb64 compiler handles this function id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "SADD(stringVariable$)" regid clearid -id.n = "CLS" +id.n = "Cls" id.subfunc = 2 id.callname = "sub_cls" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER) id.specialformat = "[?][,?]" +id.hr_syntax = "CLS [method%] [, bgColor&]" regid clearid -id.n = "SQR" +id.n = "Sqr" id.subfunc = 1 id.callname = "func_sqr" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "SQR(value)" regid clearid -id.n = "CHR" +id.n = "Chr" id.musthave = "$" id.subfunc = 1 id.callname = "func_chr" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "CHR$(code%)" regid clearid -id.n = "VARPTR" +id.n = "VarPtr" id.subfunc = 1 id.callname = "" id.args = 1 id.arg = MKL$(-1) '!this value is ignored, the qb64 compiler handles this function id.ret = STRINGTYPE - ISPOINTER id.musthave = "$" +id.hr_syntax = "VARPTR(variable_name[(reference_index%)])" regid clearid -id.n = "VARPTR" +id.n = "VarPtr" id.subfunc = 1 id.callname = "" id.args = 1 id.arg = MKL$(-1) '!this value is ignored, the qb64 compiler handles this function id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "VARPTR(variable_name[(reference_index%)])" regid clearid -id.n = "_OFFSET" +id.n = qb64prefix$ + "Offset" id.subfunc = 1 id.callname = "" id.args = 1 id.arg = MKL$(-1) '!this value is ignored, the qb64 compiler handles this function id.ret = UOFFSETTYPE - ISPOINTER +id.hr_syntax = "_OFFSET(variable)" regid clearid -id.n = "VARSEG" +id.n = "VarSeg" id.subfunc = 1 id.callname = "" id.args = 1 id.arg = MKL$(-1) '!this value is ignored, the qb64 compiler handles this function id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "VARSEG(variable_name[(start_index)])" regid clearid -id.n = "POKE" +id.n = "Poke" id.subfunc = 2 id.callname = "sub_poke" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.hr_syntax = "POKE segment_offset, offset_value" regid clearid -id.n = "PEEK" +id.n = "Peek" id.subfunc = 1 id.callname = "func_peek" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "PEEK(segment_offset)" regid clearid -id.n = "DEF" +id.n = "Def" id.subfunc = 2 id.callname = "sub_defseg" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{SEG}[=?]" 'checked! -id.secondargmustbe = "SEG" +id.specialformat = "{Seg}[=?]" 'checked! +id.secondargmustbe = "Seg" +id.hr_syntax = "DEF SEG [=][{segment|VARSEG(variable}]" regid clearid -id.n = "SIN" +id.n = "Sin" id.subfunc = 1 id.callname = "sin" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "SIN(radian_angle!)" regid clearid -id.n = "COS" +id.n = "Cos" id.subfunc = 1 id.callname = "cos" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "COS(radian_angle!)" regid clearid -id.n = "TAN" +id.n = "Tan" id.subfunc = 1 id.callname = "tan" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "TAN(radian_angle!)" regid clearid -id.n = "ATN" +id.n = "Atn" id.subfunc = 1 id.callname = "atan" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "ATN(tangent!)" regid clearid -id.n = "LOG" +id.n = "Log" id.subfunc = 1 id.callname = "func_log" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "LOG(value)" regid clearid -id.n = "ABS" +id.n = "Abs" id.subfunc = 1 id.callname = "func_abs" id.args = 1 id.arg = MKL$(-1) 'takes anything numerical id.ret = FLOATTYPE - ISPOINTER '***overridden by function evaluatefunc*** +id.hr_syntax = "ABS(numericalValue)" regid clearid -id.n = "ERL" +id.n = "Erl" id.subfunc = 1 id.callname = "get_error_erl" id.args = 0 id.ret = DOUBLETYPE - ISPOINTER +id.hr_syntax = "ERL" regid clearid -id.n = "ERR" +id.n = "Err" id.subfunc = 1 id.callname = "get_error_err" id.args = 0 id.ret = ULONGTYPE - ISPOINTER +id.hr_syntax = "ERR" regid clearid -id.n = "ERROR" +id.n = "Error" id.subfunc = 2 id.callname = "error" id.args = 1 id.arg = MKL$(ULONGTYPE - ISPOINTER) +id.hr_syntax = "ERROR codeNumber%" regid clearid -id.n = "LINE" +id.n = "Line" id.subfunc = 2 id.callname = "sub_line" id.args = 7 id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[[{STEP}](?,?)]-[{STEP}](?,?)[,[?][,[{B|BF}][,?]]]" +id.specialformat = "[[{Step}](?,?)]-[{Step}](?,?)[,[?][,[{B|BF}][,?]]]" +id.hr_syntax = "LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]" regid clearid -id.n = "SOUND": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = "Sound": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub_sound" id.args = 2 id.arg = MKL$(DOUBLETYPE - ISPOINTER) + MKL$(DOUBLETYPE - ISPOINTER) -'id.NoCloud = 1 +id.hr_syntax = "SOUND frequency, duration" regid clearid -id.n = "BEEP": id.Dependency = DEPENDENCY_AUDIO_OUT +id.n = "Beep": id.Dependency = DEPENDENCY_AUDIO_OUT id.subfunc = 2 id.callname = "sub_beep" id.args = 0 -'id.NoCloud = 1 +id.hr_syntax = "BEEP" regid clearid -id.n = "TIMER" +id.n = "Timer" id.subfunc = 1 id.callname = "func_timer" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "TIMER[(accuracy!)]" regid clearid -id.n = "RND" +id.n = "Rnd" id.subfunc = 1 id.callname = "func_rnd" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = SINGLETYPE - ISPOINTER id.specialformat = "[?]" 'checked! +id.hr_syntax = "RND[(behavior)]" regid clearid -id.n = "RANDOMIZE" +id.n = "Randomize" id.subfunc = 2 id.callname = "sub_randomize" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) -id.specialformat = "[[{USING}]?]" 'checked! +id.specialformat = "[[{Using}]?]" 'checked! +id.hr_syntax = "RANDOMIZE [USING] {seednumber|TIMER}" regid clearid -id.n = "OUT" +id.n = "Out" id.subfunc = 2 id.callname = "sub_out" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.hr_syntax = "OUT registerAddress%, value%" regid clearid -id.n = "PCOPY" +id.n = "PCopy" id.subfunc = 2 id.callname = "sub_pcopy" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.hr_syntax = "PCOPY sourcePage%, destinationPage%" regid clearid -id.n = "VIEW" +id.n = "View" id.subfunc = 2 id.callname = "qbg_sub_view" id.args = 6 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[[{SCREEN}](?,?)-(?,?)[,[?][,?]]]" -id.secondargcantbe = "PRINT" +id.specialformat = "[[{Screen}](?,?)-(?,?)[,[?][,?]]]" +id.secondargcantbe = "Print" +id.hr_syntax = "VIEW [SCREEN] (column1, row1)-(column2, row2)[, color][, border]" regid clearid -id.n = "VIEW" +id.n = "View" id.subfunc = 2 id.callname = "qbg_sub_view_print" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "{PRINT}[?{TO}?]" 'new! -id.secondargmustbe = "PRINT" +id.specialformat = "{Print}[?{To}?]" 'new! +id.secondargmustbe = "Print" +id.hr_syntax = "VIEW PRINT [topRow% TO bottomRow%]" regid clearid -id.n = "WINDOW" +id.n = "Window" id.subfunc = 2 id.callname = "qbg_sub_window" id.args = 4 id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) -id.specialformat = "[[{SCREEN}](?,?)-(?,?)]" +id.specialformat = "[[{Screen}](?,?)-(?,?)]" +id.hr_syntax = "WINDOW [[SCREEN] (x1!, y1!) - (x2!, y2!)]" regid clearid -id.n = "LOCATE" +id.n = "Locate" id.subfunc = 2 id.callname = "qbg_sub_locate" id.args = 5 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?][,[?][,[?][,[?][,?]]]]" +id.hr_syntax = "LOCATE [row%][, column%] [, cursor%][, cursorStart%, cursorStop%]" regid clearid -id.n = "COLOR" +id.n = "Color" id.subfunc = 2 id.callname = "qbg_sub_color" id.args = 3 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?][,[?][,?]]" +id.hr_syntax = "COLOR [foreground&][, background&]" regid clearid -id.n = "PALETTE" +id.n = "Palette" id.subfunc = 2 id.callname = "qbg_palette" id.args = 2 id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?,?]" +id.hr_syntax = "PALETTE [attribute%, red% + (green% * 256) + (blue% * 65536)] or PALETTE [existingAttribute%, newAttribute%]" regid clearid -id.n = "WIDTH" +id.n = "Width" id.subfunc = 2 id.callname = "qbsub_width" -id.args = 3 -id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{#|LPRINT}][?][,?]" 'new! +id.args = 5 +id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.specialformat = "[{#|LPrint}][?][,[?][,[?][,[?]]]]" 'new! +'id.specialformat = "[{#|LPRINT}][?][,?]" 'new! +id.hr_syntax = "WIDTH [columns%][, rows%] or WIDTH {file_number|device}, columnwidth%" regid clearid -id.n = "SCREEN" +id.n = "Screen" id.subfunc = 2 id.callname = "qbg_screen" id.args = 5 @@ -2829,535 +3096,754 @@ id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE 'id.specialformat = "[?][,[?][,[?][,?]]]" 'new! 'id.specialformat = "[?][,[?][,[?][,[?][,{_MANUALDISPLAY}]]]]" 'breaks compilation! 'id.specialformat = "[?][,[?][,[?][,[?][,[{_MANUALDISPLAY}]]]]]" <-pre-bulletproofing -id.specialformat = "[?][,[?][,[?][,[?][,[{_MANUALDISPLAY}?]]]]]" 'a temp format for transition reasons" +id.specialformat = "[?][,[?][,[?][,[?][,[{_ManualDisplay}?]]]]]" 'a temp format for transition reasons" +id.hr_syntax = "SCREEN {mode%|imagehandle&} [, , active_page, visual_page]" regid clearid -id.n = "PSET" +id.n = "PSet" id.subfunc = 2 id.callname = "sub_pset" id.args = 3 id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?)[,?]" +id.specialformat = "[{Step}](?,?)[,?]" +id.hr_syntax = "PSET [STEP](column%, row%)[, colorAttribute]" regid clearid -id.n = "PRESET" +id.n = "PReset" id.subfunc = 2 id.callname = "sub_preset" id.args = 3 id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.specialformat = "[{STEP}](?,?)[,?]" +id.specialformat = "[{Step}](?,?)[,?]" +id.hr_syntax = "PRESET [STEP](column%, row%)[, colorAttribute]" regid clearid -id.n = "ASC" +id.n = "Asc" id.subfunc = 1 id.callname = "qbs_asc" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "ASC(text$[, position%])" regid clearid -id.n = "LEN" +id.n = "Len" id.subfunc = 1 id.callname = "" 'callname is not used id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) 'note: LEN is a special case, any input is actually accepted id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "LEN(literalTextOrVariable$)" regid clearid -id.n = "INKEY" +id.n = "InKey" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_inkey" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "INKEY$" regid clearid -id.n = "STR" +id.n = "Str" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_str" id.args = 1 id.arg = MKL$(-1) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "STR$(number)" regid clearid -id.n = "UCASE" +id.n = "UCase" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_ucase" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "UCASE$(text$)" regid clearid -id.n = "LCASE" +id.n = "LCase" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_lcase" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "LCASE$(text$)" regid clearid -id.n = "LEFT" +id.n = "Left" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_left" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "LEFT$(stringValue$, numberOfCharacters%)" regid clearid -id.n = "RIGHT" +id.n = "Right" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_right" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "RIGHT$(stringValue$, numberOfCharacters%)" regid clearid -id.n = "LTRIM" +id.n = "LTrim" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_ltrim" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "LTRIM$(text$)" regid clearid -id.n = "RTRIM" +id.n = "RTrim" id.musthave = "$" id.subfunc = 1 id.callname = "qbs_rtrim" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "RTRIM$(text$)" regid clearid -id.n = "_TRIM" +id.n = qb64prefix$ + "Trim" id.musthave = "$" id.subfunc = 1 id.callname = "qbs__trim" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_TRIM$(text$)" regid clearid -id.n = "PRINT" +id.n = "Print" id.subfunc = 2 id.callname = "qbs_print" 'not called directly id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) +id.hr_syntax = "PRINT [expression] [{;|,] [expression...]" regid clearid -id.n = "LPRINT": id.Dependency = DEPENDENCY_PRINTER +id.n = "LPrint": id.Dependency = DEPENDENCY_PRINTER id.subfunc = 2 id.callname = "qbs_lprint" 'not called directly id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) -id.NoCloud = 1 +id.hr_syntax = "LPRINT [expression] [{;|,}]" regid clearid -id.n = "LPOS": id.Dependency = DEPENDENCY_PRINTER +id.n = "LPos": id.Dependency = DEPENDENCY_PRINTER id.subfunc = 1 id.callname = "func_lpos" id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER -id.NoCloud = 1 +id.hr_syntax = "LPOS(index%)" regid 'Get Current Working Directory clearid -id.n = "_CWD" +id.n = qb64prefix$ + "CWD" id.musthave = "$" id.subfunc = 1 id.callname = "func__cwd" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_CWD$" regid 'Get the directory the program was started from (before the currenct directory is automatically changed to the executables directory) clearid -id.n = "_STARTDIR" +id.n = qb64prefix$ + "StartDir" id.musthave = "$" id.subfunc = 1 id.callname = "func__startdir" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_STARTDIR$" regid 'Return a path that best represents the context provided e.g. _DIR$("DESKTOP") clearid -id.n = "_DIR" +id.n = qb64prefix$ + "Dir" id.musthave = "$" id.subfunc = 1 id.callname = "func__dir" id.args = 1 id.arg = MKL$(STRINGTYPE - ISPOINTER) id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_DIR$(" + CHR$(34) + "folderspecification" + CHR$(34) + ")" regid 'Return the name of the included file in which the last error occurred clearid -id.n = "_INCLERRORFILE" +id.n = qb64prefix$ + "InclErrorFile" id.musthave = "$" id.subfunc = 1 id.callname = "func__inclerrorfile" id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_INCLERRORFILE$" regid clearid -id.n = "_KEYCLEAR" +id.n = qb64prefix$ + "KeyClear" id.subfunc = 2 id.args = 1 id.arg = MKL$(LONGTYPE - ISPOINTER) id.specialformat = "[?]" id.callname = "sub__keyclear" +id.hr_syntax = "_KEYCLEAR buffer&" regid clearid -id.n = "_D2R" +id.n = qb64prefix$ + "D2R" id.subfunc = 1 id.callname = "func_deg2rad" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_D2R(angleInDegrees!)" regid clearid -id.n = "_D2G" +id.n = qb64prefix$ + "D2G" id.subfunc = 1 id.callname = "func_deg2grad" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_D2G(angleInDegrees!)" regid clearid -id.n = "_R2D" +id.n = qb64prefix$ + "R2D" id.subfunc = 1 id.callname = "func_rad2deg" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_R2D(angleInRadians!)" regid clearid -id.n = "_R2G" +id.n = qb64prefix$ + "R2G" id.subfunc = 1 id.callname = "func_rad2grad" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_R2G(angleInRadians!)" regid clearid -id.n = "_G2D" +id.n = qb64prefix$ + "G2D" id.subfunc = 1 id.callname = "func_grad2deg" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_G2D(gradient!)" regid clearid -id.n = "_G2R" +id.n = qb64prefix$ + "G2R" id.subfunc = 1 id.callname = "func_grad2rad" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_G2R(gradient!)" regid clearid 'Clear the old id info so we set the slate for a new one -id.n = "_ATAN2" 'The name of our new one +id.n = qb64prefix$ + "Atan2" 'The name of our new one id.subfunc = 1 'And this is a function id.callname = "atan2" 'The C name of the function id.args = 2 'It takes 2 parameters to work id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value +id.hr_syntax = "_ATAN2(y, x)" regid 'and we're finished with ID registration clearid 'Clear the old id info so we set the slate for a new one -id.n = "_HYPOT" 'The name of our new one +id.n = qb64prefix$ + "Hypot" 'The name of our new one id.subfunc = 1 'And this is a function id.callname = "hypot" 'The C name of the function id.args = 2 'It takes 2 parameters to work id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value +id.hr_syntax = "_HYPOT(x, y)" regid 'and we're finished with ID registration clearid -id.n = "_ASIN" +id.n = qb64prefix$ + "Asin" id.subfunc = 1 id.callname = "asin" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ASIN(sine_value!)" regid clearid -id.n = "_ACOS" +id.n = qb64prefix$ + "Acos" id.subfunc = 1 id.callname = "acos" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ACOS(cosine_value!)" regid clearid -id.n = "_SINH" +id.n = qb64prefix$ + "Sinh" id.subfunc = 1 id.callname = "sinh" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_SINH(value)" regid clearid -id.n = "_COSH" +id.n = qb64prefix$ + "Cosh" id.subfunc = 1 id.callname = "cosh" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_COSH(value)" regid clearid -id.n = "_TANH" +id.n = qb64prefix$ + "Tanh" id.subfunc = 1 id.callname = "tanh" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_TANH(value)" regid clearid -id.n = "_ASINH" +id.n = qb64prefix$ + "Asinh" id.subfunc = 1 id.callname = "asinh" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ASINH(value)" regid clearid -id.n = "_ACOSH" +id.n = qb64prefix$ + "Acosh" id.subfunc = 1 id.callname = "acosh" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ACOSH(value)" regid clearid -id.n = "_ATANH" +id.n = qb64prefix$ + "Atanh" id.subfunc = 1 id.callname = "atanh" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ATANH(value)" regid clearid -id.n = "_CEIL" +id.n = qb64prefix$ + "Ceil" id.subfunc = 1 id.callname = "ceil" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_CEIL(expression)" regid clearid -id.n = "_PI" +id.n = qb64prefix$ + "Pi" id.subfunc = 1 id.callname = "func_pi" id.args = 1 id.arg = MKL$(DOUBLETYPE - ISPOINTER) id.ret = DOUBLETYPE - ISPOINTER id.specialformat = "[?]" +id.hr_syntax = "_PI[(multiplier)]" regid clearid -id.n = "_DESKTOPHEIGHT" +id.n = qb64prefix$ + "DesktopHeight" id.subfunc = 1 id.callname = "func_screenheight" id.args = 0 id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_DESKTOPHEIGHT" regid clearid -id.n = "_DESKTOPWIDTH" +id.n = qb64prefix$ + "DesktopWidth" id.subfunc = 1 id.callname = "func_screenwidth" id.args = 0 id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_DESKTOPWIDTH" regid clearid -id.n = "_SCREENICON" 'name change to from _ICONIFYWINDOW to _SCREENICON to match the screenshow and screenhide +id.n = qb64prefix$ + "ScreenIcon" 'name change to from _ICONIFYWINDOW to _SCREENICON to match the screenshow and screenhide id.subfunc = 2 id.callname = "sub_screenicon" +id.hr_syntax = "_SCREENICON" regid clearid -id.n = "_SCREENEXISTS" +id.n = qb64prefix$ + "ScreenExists" id.subfunc = 1 id.callname = "func_windowexists" +id.hr_syntax = "_SCREENEXISTS" regid clearid -id.n = "_CONTROLCHR" +id.n = qb64prefix$ + "ControlChr" id.subfunc = 1 id.callname = "func__controlchr" id.args = 0 id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_CONTROLCHR" regid clearid -id.n = "_STRICMP" +id.n = qb64prefix$ + "StriCmp" id.subfunc = 1 id.callname = "func__str_nc_compare" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_STRICMP(string1$, string2$)" regid clearid -id.n = "_STRCMP" +id.n = qb64prefix$ + "StrCmp" id.subfunc = 1 id.callname = "func__str_compare" id.args = 2 id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_STRCMP(string1$, string2$)" regid clearid -id.n = "_ARCSEC" +id.n = qb64prefix$ + "Arcsec" id.subfunc = 1 id.callname = "func_arcsec" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ARCSEC(value)" regid clearid -id.n = "_ARCCSC" +id.n = qb64prefix$ + "Arccsc" id.subfunc = 1 id.callname = "func_arccsc" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ARCCSC(value)" regid clearid -id.n = "_ARCCOT" +id.n = qb64prefix$ + "Arccot" id.subfunc = 1 id.callname = "func_arccot" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_ARCCOT(value)" regid clearid -id.n = "_SECH" +id.n = qb64prefix$ + "Sech" id.subfunc = 1 id.callname = "func_sech" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_SECH(value)" regid clearid -id.n = "_CSCH" +id.n = qb64prefix$ + "Csch" id.subfunc = 1 id.callname = "func_csch" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_CSCH(value)" regid clearid -id.n = "_COTH" +id.n = qb64prefix$ + "Coth" id.subfunc = 1 id.callname = "func_coth" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_COTH(value)" regid clearid -id.n = "_SEC" +id.n = qb64prefix$ + "Sec" id.subfunc = 1 id.callname = "func_sec" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_SEC(value)" regid clearid -id.n = "_CSC" +id.n = qb64prefix$ + "Csc" id.subfunc = 1 id.callname = "func_csc" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_CSC(value)" regid clearid -id.n = "_COT" +id.n = qb64prefix$ + "Cot" id.subfunc = 1 id.callname = "func_cot" id.args = 1 id.arg = MKL$(FLOATTYPE - ISPOINTER) id.ret = FLOATTYPE - ISPOINTER +id.hr_syntax = "_COT(value)" regid clearid -id.n = "_SCREENICON" +id.n = qb64prefix$ + "ScreenIcon" id.subfunc = 1 id.callname = "func_screenicon" id.args = 0 id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SCREENICON" regid clearid -id.n = "_AUTODISPLAY" +id.n = qb64prefix$ + "AutoDisplay" id.subfunc = 1 id.callname = "func__autodisplay" id.args = 0 id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_AUTODISPLAY" regid clearid -id.n = "_SHR" +id.n = qb64prefix$ + "SHR" id.subfunc = 1 id.callname = "func__shr" id.args = 2 -id.arg = MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.ret = INTEGER64TYPE - ISPOINTER +id.arg = MKL$(UINTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = UINTEGER64TYPE - ISPOINTER +id.hr_syntax = "_SHR(numericalVariable, numericalValue)" regid clearid -id.n = "_SHL" +id.n = qb64prefix$ + "SHL" id.subfunc = 1 id.callname = "func__shl" id.args = 2 -id.arg = MKL$(INTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) -id.ret = INTEGER64TYPE - ISPOINTER +id.arg = MKL$(UINTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = UINTEGER64TYPE - ISPOINTER +id.hr_syntax = "_SHL(numericalVariable, numericalValue)" +regid + +clearid +id.n = qb64prefix$ + "Deflate" +id.Dependency=DEPENDENCY_ZLIB +id.musthave = "$" +id.subfunc = 1 +id.callname = "func__deflate" +id.args = 1 +id.arg = MKL$(STRINGTYPE - ISPOINTER) +id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_DEFLATE$(stringToCompress$)" +regid + +clearid +id.n = qb64prefix$ + "Inflate" +id.Dependency=DEPENDENCY_ZLIB +id.musthave = "$" +id.subfunc = 1 +id.callname = "func__inflate" +id.args = 2 +id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(INTEGER64TYPE - ISPOINTER) +id.specialformat = "?[,?]" +id.ret = STRINGTYPE - ISPOINTER +id.hr_syntax = "_INFLATE$(stringToDecompress$[, originalSize&])" +regid + +clearid +id.n = qb64prefix$ + "CInp" +id.subfunc = 1 +id.callname = "func__cinp" +id.args = 1 +id.arg = MKL$(LONGTYPE - ISPOINTER) +id.specialformat = "[?]" +id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_CINP" +regid + +clearid +id.n = qb64prefix$ + "CapsLock" +id.subfunc = 1 +id.callname = "func__capslock" +id.args = 0 +id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_CAPSLOCK" +regid + +clearid +id.n = qb64prefix$ + "ScrollLock" +id.subfunc = 1 +id.callname = "func__scrolllock" +id.args = 0 +id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_SCROLLLOCK" +regid + +clearid +id.n = qb64prefix$ + "NumLock" +id.subfunc = 1 +id.callname = "func__numlock" +id.args = 0 +id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_NUMLOCK" +regid + +clearid +id.n = qb64prefix$ + "CapsLock" +id.subfunc = 2 +id.callname = "sub__capslock" +id.arg = MKL$(LONGTYPE - ISPOINTER) +id.args = 1 +id.specialformat = "{On|Off|_Toggle}" +id.hr_syntax = "_CAPSLOCK {On|Off|_Toggle}" +regid + +clearid +id.n = qb64prefix$ + "Scrolllock" +id.subfunc = 2 +id.callname = "sub__scrolllock" +id.arg = MKL$(LONGTYPE - ISPOINTER) +id.args = 1 +id.specialformat = "{On|Off|_Toggle}" +id.hr_syntax = "_SCROLLLOCK {On|Off|_Toggle}" +regid + +clearid +id.n = qb64prefix$ + "Numlock" +id.subfunc = 2 +id.callname = "sub__numlock" +id.arg = MKL$(LONGTYPE - ISPOINTER) +id.args = 1 +id.specialformat = "{On|Off|_Toggle}" +id.hr_syntax = "_NUMLOCK {On|Off|_Toggle}" +regid + +clearid +id.n = qb64prefix$ + "ConsoleFont" +id.subfunc = 2 +id.callname = "sub__consolefont" +id.args = 2 +id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(INTEGERTYPE - ISPOINTER) +id.hr_syntax = "_CONSOLEFONT fontFile$" +regid + +clearid +id.n = qb64prefix$ + "ConsoleCursor" +id.subfunc = 2 +id.callname = "sub__console_cursor" +id.args = 2 +id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.specialformat = "[{_Show|_Hide}][,?]" +id.hr_syntax = "_CONSOLECURSOR {_Show|_Hide}[, size%]" +regid + +clearid +id.n = qb64prefix$ + "ConsoleInput" +id.subfunc = 1 +id.callname = "func__getconsoleinput" +id.args = 0 +id.ret = LONGTYPE - ISPOINTER +id.hr_syntax = "_CONSOLEINPUT" +regid + +clearid +id.n = qb64prefix$ + "ReadBit" +id.subfunc = 1 +id.callname = "func__readbit" +id.args = 2 +id.arg = MKL$(UINTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = INTEGER64TYPE - ISPOINTER +id.hr_syntax = "_READBIT(numericalVariable, numericalValue)" +regid + +clearid +id.n = qb64prefix$ + "SetBit" +id.subfunc = 1 +id.callname = "func__setbit" +id.args = 2 +id.arg = MKL$(UINTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = UINTEGER64TYPE - ISPOINTER +id.hr_syntax = "_SETBIT(numericalVariable, numericalValue)" +regid + +clearid +id.n = qb64prefix$ + "ResetBit" +id.subfunc = 1 +id.callname = "func__resetbit" +id.args = 2 +id.arg = MKL$(UINTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = UINTEGER64TYPE - ISPOINTER +id.hr_syntax = "_RESETBIT(numericalVariable, numericalValue)" +regid + +clearid +id.n = qb64prefix$ + "ToggleBit" +id.subfunc = 1 +id.callname = "func__togglebit" +id.args = 2 +id.arg = MKL$(UINTEGER64TYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) +id.ret = UINTEGER64TYPE - ISPOINTER +id.hr_syntax = "_TOGGLEBIT(numericalVariable, numericalValue)" regid diff --git a/source/subs_functions/syntax_highlighter_list.bas b/source/subs_functions/syntax_highlighter_list.bas new file mode 100644 index 000000000..684fe1f9c --- /dev/null +++ b/source/subs_functions/syntax_highlighter_list.bas @@ -0,0 +1,8 @@ +DIM SHARED listOfKeywords$, listOfCustomKeywords$, customKeywordsLength AS LONG +listOfKeywords$ = "@?@$CHECKING@$ERROR@$CONSOLE@ONLY@$DYNAMIC@$ELSE@$ELSEIF@$END@$ENDIF@$EXEICON@$IF@$INCLUDE@$LET@$RESIZE@$SCREENHIDE@$SCREENSHOW@$STATIC@$VERSIONINFO@$VIRTUALKEYBOARD@ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@CALL@CALLS@CASE@IS@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@GET@GOSUB@GOTO@HEX$@IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@KEY@KILL@LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@NAME@NEXT@NOT@OCT$@OFF@ON@OPEN@OPTION@OR@OUT@OUTPUT@PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@PRINT@PSET@PUT@RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@VAL@VARPTR@VARPTR$@VARSEG@VIEW@WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@XOR@_ACOS@_ACOSH@_ALPHA@_ALPHA32@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ATAN2@_ATANH@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@_BIN$@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BUTTON@_BUTTONCHANGE@_BYTE@_CEIL@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS$@_CONNECTIONADDRESS@_CONSOLE@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CSC@_CSCH@_CV@_CWD$@_D2G@_D2R@_DEFAULTCOLOR@_DEFINE@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@" +listOfKeywords$ = listOfKeywords$ + "_ERRORLINE@_ERRORMESSAGE$@_EXIT@_EXPLICIT@_EXPLICITARRAY@_FILEEXISTS@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLSCREEN@_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@_HEIGHT@_HIDE@_HYPOT@_ICON@_INCLERRORFILE$@_INCLERRORLINE@_INTEGER64@_KEYCLEAR@_KEYDOWN@_KEYHIT@_LASTAXIS@_LASTBUTTON@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_MAPTRIANGLE@_MAPUNICODE@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMSOUND@_MEMNEW@_MEMPUT@_MIDDLE@_MK$@_MOUSEBUTTON@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSEPIPEOPEN@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@_NEWIMAGE@_OFFSET@_OPENCLIENT@_OPENCONNECTION@_OPENHOST@_OS$@_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@_R2D@_R2G@_RED@_RED32@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROUND@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SEC@_SECH@_SETALPHA@_SHELLHIDE@_SINH@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOURCE@_STARTDIR$@_STRCMP@_STRICMP@_TANH@_TITLE@_TITLE$@_UNSIGNED@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@_GLCALLLIST@_GLCALLLISTS@_GLCLEAR@_GLCLEARACCUM@_GLCLEARCOLOR@_GLCLEARDEPTH@_GLCLEARINDEX@_GLCLEARSTENCIL@_GLCLIPPLANE@_GLCOLOR3B@_GLCOLOR3BV@_GLCOLOR3D@_GLCOLOR3DV@_GLCOLOR3F@_GLCOLOR3FV@_GLCOLOR3I@_GLCOLOR3IV@_GLCOLOR3S@_GLCOLOR3SV@_GLCOLOR3UB@_GLCOLOR3UBV@_GLCOLOR3UI@_GLCOLOR3UIV@_GLCOLOR3US@_GLCOLOR3USV@_GLCOLOR4B@_GLCOLOR4BV@_GLCOLOR4D@_GLCOLOR4DV@_GLCOLOR4F@_GLCOLOR4FV@_GLCOLOR4I@_GLCOLOR4IV@_GLCOLOR4S@_GLCOLOR4SV@_GLCOLOR4UB@_GLCOLOR4UBV@_GLCOLOR4UI@_GLCOLOR4UIV@_GLCOLOR4US@_GLCOLOR4USV@_GLCOLORMASK@_GLCOLORMATERIAL@_GLCOLORPOINTER@_GLCOPYPIXELS@_GLCOPYTEXIMAGE1D@_GLCOPYTEXIMAGE2D@_GLCOPYTEXSUBIMAGE1D@" +listOfKeywords$ = listOfKeywords$ + "_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@_GLGENLISTS@_GLGENTEXTURES@_GLGETBOOLEANV@_GLGETCLIPPLANE@_GLGETDOUBLEV@_GLGETERROR@_GLGETFLOATV@_GLGETINTEGERV@_GLGETLIGHTFV@_GLGETLIGHTIV@_GLGETMAPDV@_GLGETMAPFV@_GLGETMAPIV@_GLGETMATERIALFV@_GLGETMATERIALIV@_GLGETPIXELMAPFV@_GLGETPIXELMAPUIV@_GLGETPIXELMAPUSV@_GLGETPOINTERV@_GLGETPOLYGONSTIPPLE@_GLGETSTRING@_GLGETTEXENVFV@_GLGETTEXENVIV@_GLGETTEXGENDV@_GLGETTEXGENFV@_GLGETTEXGENIV@_GLGETTEXIMAGE@_GLGETTEXLEVELPARAMETERFV@_GLGETTEXLEVELPARAMETERIV@_GLGETTEXPARAMETERFV@_GLGETTEXPARAMETERIV@_GLHINT@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@_GLORTHO@_GLPASSTHROUGH@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@" +listOfKeywords$ = listOfKeywords$ + "_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@_GLRASTERPOS2D@_GLRASTERPOS2DV@_GLRASTERPOS2F@_GLRASTERPOS2FV@_GLRASTERPOS2I@_GLRASTERPOS2IV@_GLRASTERPOS2S@_GLRASTERPOS2SV@_GLRASTERPOS3D@_GLRASTERPOS3DV@_GLRASTERPOS3F@_GLRASTERPOS3FV@_GLRASTERPOS3I@_GLRASTERPOS3IV@_GLRASTERPOS3S@_GLRASTERPOS3SV@_GLRASTERPOS4D@_GLRASTERPOS4DV@_GLRASTERPOS4F@_GLRASTERPOS4FV@_GLRASTERPOS4I@_GLRASTERPOS4IV@_GLRASTERPOS4S@_GLRASTERPOS4SV@_GLREADBUFFER@_GLREADPIXELS@_GLRECTD@_GLRECTDV@_GLRECTF@_GLRECTFV@_GLRECTI@_GLRECTIV@_GLRECTS@_GLRECTSV@_GLRENDERMODE@_GLROTATED@_GLROTATEF@_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@_GLTEXCOORD1D@_GLTEXCOORD1DV@_GLTEXCOORD1F@_GLTEXCOORD1FV@_GLTEXCOORD1I@_GLTEXCOORD1IV@_GLTEXCOORD1S@_GLTEXCOORD1SV@_GLTEXCOORD2D@_GLTEXCOORD2DV@_GLTEXCOORD2F@_GLTEXCOORD2FV@_GLTEXCOORD2I@_GLTEXCOORD2IV@_GLTEXCOORD2S@_GLTEXCOORD2SV@_GLTEXCOORD3D@_GLTEXCOORD3DV@_GLTEXCOORD3F@_GLTEXCOORD3FV@_GLTEXCOORD3I@_GLTEXCOORD3IV@_GLTEXCOORD3S@_GLTEXCOORD3SV@_GLTEXCOORD4D@_GLTEXCOORD4DV@_GLTEXCOORD4F@_GLTEXCOORD4FV@_GLTEXCOORD4I@_GLTEXCOORD4IV@_GLTEXCOORD4S@_GLTEXCOORD4SV@_GLTEXCOORDPOINTER@_GLTEXENVF@_GLTEXENVFV@_GLTEXENVI@_GLTEXENVIV@_GLTEXGEND@_GLTEXGENDV@_GLTEXGENF@_GLTEXGENFV@_GLTEXGENI@_GLTEXGENIV@_GLTEXIMAGE1D@_GLTEXIMAGE2D@_GLTEXPARAMETERF@_GLTEXPARAMETERFV@_GLTEXPARAMETERI@_GLTEXPARAMETERIV@_GLTEXSUBIMAGE1D@_GLTEXSUBIMAGE2D@_GLTRANSLATED@_GLTRANSLATEF@_GLVERTEX2D@_GLVERTEX2DV@_GLVERTEX2F@_GLVERTEX2FV@_GLVERTEX2I@_GLVERTEX2IV@_GLVERTEX2S@_GLVERTEX2SV@_GLVERTEX3D@_GLVERTEX3DV@_GLVERTEX3F@_GLVERTEX3FV@_GLVERTEX3I@_GLVERTEX3IV@_GLVERTEX3S@_GLVERTEX3SV@_GLVERTEX4D@_GLVERTEX4DV@_GLVERTEX4F@_GLVERTEX4FV@_GLVERTEX4I@_GLVERTEX4IV@_GLVERTEX4S@_GLVERTEX4SV@_GLVERTEXPOINTER@_GLVIEWPORT@SMOOTH@STRETCH@_ANTICLOCKWISE@_BEHIND@_CLEAR@_FILLBACKGROUND@_GLUPERSPECTIVE@_HARDWARE@_HARDWARE1@_KEEPBACKGROUND@_NONE@_OFF@_ONLY@_ONLYBACKGROUND@_ONTOP@_SEAMLESS@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@" +listOfKeywords$ = listOfKeywords$ + "_SOFTWARE@_SQUAREPIXELS@_STRETCH@_ALLOWFULLSCREEN@_ALL@_ECHO@_INSTRREV@_TRIM$@_ACCEPTFILEDROP@_FINISHDROP@_TOTALDROPPEDFILES@_DROPPEDFILE@_DROPPEDFILE$@_SHR@_SHL@" +listOfKeywords$ = listOfKeywords$ + "_DEFLATE$@_INFLATE$@_READBIT@_RESETBIT@_SETBIT@_TOGGLEBIT@$ASSERTS@_ASSERT@_CAPSLOCK@_NUMLOCK@_SCROLLLOCK@_TOGGLE@_CONSOLEFONT@_CONSOLECURSOR@_CONSOLEINPUT@_CINP@$NOPREFIX@$COLOR@$DEBUG@_ENVIRONCOUNT@" + diff --git a/source/utilities/ini-manager/ini.bi b/source/utilities/ini-manager/ini.bi new file mode 100644 index 000000000..ecb096e29 --- /dev/null +++ b/source/utilities/ini-manager/ini.bi @@ -0,0 +1,21 @@ +'INI Manager +'Fellippe Heitor, 2017-2021 - fellippe@qb64.org - @fellippeheitor + +'This file isn't required to be at the top of your programs, +'unless you intend to use OPTION _EXPLICIT + +'Global variables declaration +DIM currentIniFileName$ +DIM currentIniFileLOF AS _UNSIGNED LONG +DIM IniWholeFile$ +DIM IniSectionData$ +DIM IniPosition AS _UNSIGNED LONG +DIM IniNewFile$ +DIM IniLastSection$ +DIM IniLastKey$ +DIM IniLF$ +DIM IniDisableAutoCommit +DIM IniCODE +DIM IniAllowBasicComments +DIM IniForceReload +DIM IniDisableAddQuotes diff --git a/source/utilities/ini-manager/ini.bm b/source/utilities/ini-manager/ini.bm new file mode 100644 index 000000000..8cdfad644 --- /dev/null +++ b/source/utilities/ini-manager/ini.bm @@ -0,0 +1,501 @@ +'INI Manager v1.01 +'Fellippe Heitor, 2017-2021 - fellippe@qb64.org - @fellippeheitor + +SUB IniCommit + SHARED currentIniFileName$, IniWholeFile$, currentIniFileLOF AS _UNSIGNED LONG + SHARED IniNewFile$, IniDisableAutoCommit, IniCODE + + IF currentIniFileName$ = "" THEN IniCODE = 18: EXIT SUB + + IniWholeFile$ = IniNewFile$ + currentIniFileLOF = LEN(IniNewFile$) + + IF NOT IniDisableAutoCommit THEN + DIM fileNum AS INTEGER + + fileNum = FREEFILE + OPEN currentIniFileName$ FOR BINARY AS #fileNum + + IF LEN(IniWholeFile$) < LOF(fileNum) THEN + CLOSE fileNum + OPEN currentIniFileName$ FOR OUTPUT AS #fileNum: CLOSE #fileNum + OPEN currentIniFileName$ FOR BINARY AS #fileNum + END IF + + PUT #fileNum, 1, IniNewFile$ + CLOSE #fileNum 'flush + END IF +END SUB + +FUNCTION IniGetSection$ (__section$) + SHARED IniPosition AS _UNSIGNED LONG, IniCODE, currentIniFileName$ + SHARED IniLF$, IniWholeFile$, currentIniFileLOF AS _UNSIGNED LONG + + IF currentIniFileName$ = "" THEN IniCODE = 18: EXIT FUNCTION + IF currentIniFileLOF = 0 OR LEN(LTRIM$(RTRIM$(IniWholeFile$))) = 0 THEN IniCODE = 17: EXIT FUNCTION + + IniCODE = 0 + + DIM section$, foundSection AS _UNSIGNED LONG, endSection AS _UNSIGNED LONG + DIM i AS _UNSIGNED LONG, Bracket1 AS _UNSIGNED LONG, sectionStart AS _UNSIGNED LONG + DIM inQuote AS _BYTE + + section$ = IniFormatSection$(__section$) + IF IniCODE THEN EXIT FUNCTION + + IF section$ = "[]" THEN + 'fetch the "global" section, if present + sectionStart = INSTR(IniWholeFile$, "[") + IF sectionStart = 0 THEN IniGetSection$ = IniWholeFile$: EXIT FUNCTION + + FOR i = sectionStart - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = 10 THEN foundSection = i + 1: EXIT FOR + IF ASC(IniWholeFile$, i) <> 32 THEN EXIT FOR + NEXT + + IF i = 0 THEN foundSection = 1 + + IniGetSection$ = LEFT$(IniWholeFile$, foundSection - 1) + ELSE + DO + sectionStart = INSTR(sectionStart + 1, LCASE$(IniWholeFile$), LCASE$(section$)) + IF sectionStart = 0 THEN IniCODE = 14: EXIT DO + + 'make sure it's a valid section header + foundSection = 0 + FOR i = sectionStart - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = 10 THEN foundSection = i + 1: EXIT FOR + IF ASC(IniWholeFile$, i) <> 32 THEN EXIT FOR + NEXT + + IF i = 0 THEN foundSection = 1 + + IF foundSection > 0 THEN + 'we found it; time to identify where this section ends + '(either another [section] or the end of the file + Bracket1 = sectionStart + checkAgain: + Bracket1 = INSTR(Bracket1 + 1, IniWholeFile$, "[") + + IF Bracket1 > 0 THEN + 'found a bracket; check if it's inside quotes + inQuote = 0 + FOR i = 1 TO Bracket1 - 1 + IF ASC(IniWholeFile$, i) = 34 THEN inQuote = NOT inQuote + NEXT + IF inQuote THEN GOTO checkAgain + + FOR i = Bracket1 - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = 10 THEN endSection = i + 1 - LEN(IniLF$): EXIT FOR + IF ASC(IniWholeFile$, i) = 61 THEN GOTO checkAgain 'bracket is inside a key's value + IF i <= foundSection THEN EXIT FOR + NEXT + IniGetSection$ = MID$(IniWholeFile$, foundSection, endSection - foundSection) + ELSE + IniGetSection$ = MID$(IniWholeFile$, foundSection) + END IF + EXIT FUNCTION + END IF + LOOP + END IF +END FUNCTION + +FUNCTION IniFormatSection$ (__section$) + SHARED IniCODE + + DIM section$ + + section$ = LTRIM$(RTRIM$(__section$)) + + 'sections are in the format [section name] - add brackets if not passed + IF LEFT$(section$, 1) <> "[" THEN section$ = "[" + section$ + IF RIGHT$(section$, 1) <> "]" THEN section$ = section$ + "]" + + IF INSTR(MID$(section$, 2, LEN(section$) - 3), "[") OR INSTR(MID$(section$, 2, LEN(section$) - 3), "]") THEN + IniCODE = 15 + EXIT FUNCTION + END IF + + IniFormatSection$ = section$ +END FUNCTION + +FUNCTION ReadSetting$ (file$, __section$, __key$) + SHARED IniLastSection$, IniLastKey$, IniWholeFile$, IniLF$ + SHARED IniPosition AS _UNSIGNED LONG, IniSectionData$ + SHARED IniCODE, IniAllowBasicComments + SHARED currentIniFileLOF AS _UNSIGNED LONG + + IniLoad file$ + IF IniCODE THEN EXIT FUNCTION + + IF currentIniFileLOF = 0 OR LEN(LTRIM$(RTRIM$(IniWholeFile$))) = 0 THEN IniCODE = 17: EXIT FUNCTION + + DIM Equal AS _UNSIGNED LONG, tempValue$, key$, section$ + DIM Quote AS _UNSIGNED LONG, Comment AS _UNSIGNED LONG + DIM i AS LONG, FoundLF AS _UNSIGNED LONG + + section$ = IniFormatSection(__section$) + IF IniCODE THEN EXIT FUNCTION + + 'fetch the desired section$ + IniSectionData$ = IniGetSection(section$) + IF IniCODE > 0 AND IniCODE <> 17 THEN EXIT FUNCTION + + IF LEN(IniSectionData$) = 0 AND section$ <> "[]" THEN IniCODE = 14: EXIT FUNCTION + + IniLastSection$ = section$ + + IniPosition = 0 + + key$ = LTRIM$(RTRIM$(__key$)) + IniLastKey$ = "" + IF key$ = "" THEN IniCODE = 12: EXIT FUNCTION + + IF LEFT$(key$, 1) = ";" OR LEFT$(key$, 1) = "'" OR INSTR(key$, "[") > 0 OR INSTR(key$, "]") > 0 OR INSTR(key$, "=") > 0 THEN + IniCODE = 12 + EXIT FUNCTION + END IF + + IniLastKey$ = key$ + + IF IniPosition > 0 THEN Equal = IniPosition: GOTO KeyFound + CheckKey: + IniPosition = INSTR(IniPosition + 1, LCASE$(IniSectionData$), LCASE$(key$)) + + IF IniPosition > 0 THEN + 'identify if this occurrence is actually a key and not part of a key name/value + FOR i = IniPosition - 1 TO 1 STEP -1 + IF ASC(IniSectionData$, i) = 10 THEN EXIT FOR + IF ASC(IniSectionData$, i) <> 10 AND ASC(IniSectionData$, i) <> 32 THEN + 'not a key + GOTO CheckKey + END IF + NEXT + + 'check if there's nothing but an equal sign ahead + FOR i = IniPosition + LEN(key$) TO LEN(IniSectionData$) + IF ASC(IniSectionData$, i) = ASC("=") THEN EXIT FOR + IF ASC(IniSectionData$, i) <> ASC("=") AND ASC(IniSectionData$, i) <> 32 THEN + 'not the key + GOTO CheckKey + END IF + NEXT + + 'so far so good; check if there is an assignment + Equal = INSTR(IniPosition, IniSectionData$, "=") + KeyFound: + FoundLF = INSTR(IniPosition, IniSectionData$, IniLF$) + + IF FoundLF > 0 THEN + IF Equal > FoundLF THEN GOTO CheckKey + ELSE + FoundLF = LEN(IniSectionData$) + 1 + IF Equal = 0 THEN GOTO CheckKey + END IF + + tempValue$ = LTRIM$(RTRIM$(MID$(IniSectionData$, Equal + 1, FoundLF - Equal - 1))) + + IF LEN(tempValue$) > 0 THEN + IF LEFT$(tempValue$, 1) = CHR$(34) THEN + tempValue$ = MID$(tempValue$, 2) + Quote = INSTR(tempValue$, CHR$(34)) + IF Quote > 0 THEN + tempValue$ = LEFT$(tempValue$, Quote - 1) + END IF + ELSE + IF IniAllowBasicComments THEN Comment = INSTR(tempValue$, "'") 'BASIC style comments accepted + IF Comment = 0 THEN Comment = INSTR(tempValue$, ";") + IF Comment > 0 THEN + tempValue$ = LTRIM$(RTRIM$(LEFT$(tempValue$, Comment - 1))) + END IF + END IF + ELSE + IniCODE = 2 + END IF + ELSE + IniCODE = 3 + EXIT FUNCTION + END IF + + ReadSetting$ = tempValue$ + IniLastSection$ = IniCurrentSection$ +END FUNCTION + +FUNCTION IniCurrentSection$ + SHARED IniPosition AS _UNSIGNED LONG, IniSectionData$, IniWholeFile$ + + DIM GlobalPosition AS _UNSIGNED LONG, i AS _UNSIGNED LONG + DIM ClosingBracket AS _UNSIGNED LONG + + GlobalPosition = INSTR(IniWholeFile$, IniSectionData$) + IniPosition - 1 + + CheckSection: + FOR i = GlobalPosition - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = ASC("[") THEN + GlobalPosition = i: EXIT FOR + END IF + NEXT + + IF i = 0 THEN IniCurrentSection$ = "[]": EXIT FUNCTION + + 'identify if this occurrence is actually a section header and not something else + FOR i = GlobalPosition - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = 10 THEN EXIT FOR + IF ASC(IniWholeFile$, i) <> 10 AND ASC(IniWholeFile$, i) <> 32 THEN + 'not a section header + GOTO CheckSection + END IF + NEXT + + ClosingBracket = INSTR(GlobalPosition, IniWholeFile$, "]") + IF ClosingBracket > 0 THEN + IniCurrentSection$ = MID$(IniWholeFile$, GlobalPosition, ClosingBracket - GlobalPosition + 1) + END IF +END FUNCTION + +SUB WriteSetting (file$, __section$, __key$, __value$) + SHARED IniPosition AS _UNSIGNED LONG, IniCODE, currentIniFileName$ + SHARED IniLF$, IniWholeFile$, IniSectionData$ + SHARED IniLastSection$, IniLastKey$, IniNewFile$ + SHARED IniDisableAddQuotes + + DIM tempValue$, section$, key$, value$ + + IniCODE = 0 + + 'prepare variables for the write operation + section$ = IniFormatSection$(__section$) + IF IniCODE THEN EXIT SUB + + key$ = LTRIM$(RTRIM$(__key$)) + IF key$ = "" THEN IniCODE = 12: EXIT SUB + IniLastKey$ = key$ + + value$ = LTRIM$(RTRIM$(__value$)) + IF LTRIM$(STR$(VAL(value$))) <> value$ THEN + IF NOT IniDisableAddQuotes THEN + 'if not a numeric value and value contains spaces, add quotation marks + IF INSTR(value$, CHR$(32)) THEN value$ = CHR$(34) + value$ + CHR$(34) + END IF + END IF + + 'Read the existing key to fill IniPosition + tempValue$ = ReadSetting$(file$, section$, key$) + + 'map IniPosition (set in the section block) to the global file position + IniPosition = INSTR(IniWholeFile$, IniSectionData$) + IniPosition - 1 + + IF IniCODE = 1 OR IniCODE = 17 THEN + 'file not found or empty; create a new one + IF file$ = "" THEN file$ = currentIniFileName$ + IF file$ = "" THEN IniCODE = 21: EXIT SUB + + currentIniFileName$ = file$ + + IF section$ <> "[]" THEN + IniNewFile$ = section$ + IniLF$ + END IF + + IniNewFile$ = IniNewFile$ + key$ + "=" + value$ + + IniCODE = 0 + IniCommit + IniLoad file$ + IF IniCODE = 0 THEN IniCODE = 11 + IniLastSection$ = section$ + EXIT SUB + END IF + + IF IniCODE = 0 OR IniCODE = 2 THEN 'key found and read back; write new value$ + IF LCASE$(IniLastSection$) = LCASE$(section$) THEN + IF LTRIM$(RTRIM$(__value$)) = tempValue$ AND LEN(LTRIM$(RTRIM$(__value$))) > 0 THEN + 'identical values skip the writing routine + IniCODE = 8 + EXIT SUB + END IF + + DIM nextLine AS _UNSIGNED LONG + nextLine = INSTR(IniPosition + 1, IniWholeFile$, IniLF$) + + 'create new file contents + IniNewFile$ = LEFT$(IniWholeFile$, IniPosition - 1) + IniNewFile$ = IniNewFile$ + key$ + "=" + value$ + + IF nextLine > 0 THEN + IniNewFile$ = IniNewFile$ + MID$(IniWholeFile$, nextLine) + END IF + + IniCommit + + IniCODE = 4 + END IF + ELSEIF IniCODE = 3 OR IniCODE = 14 THEN 'Key not found, Section not found + IniCODE = 0 + IF LCASE$(IniLastSection$) = LCASE$(section$) THEN + 'find this section$ in the current ini file; + DIM Bracket1 AS _UNSIGNED LONG + DIM beginSection AS _UNSIGNED LONG, endSection AS _UNSIGNED LONG + DIM i AS _UNSIGNED LONG + + beginSection = 0 + endSection = 0 + + CheckSection: + beginSection = INSTR(beginSection + 1, LCASE$(IniWholeFile$), LCASE$(section$)) + IF beginSection = 0 THEN GOTO CreateSection + + 'identify if this occurrence is actually the section header and not something else + FOR i = beginSection - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = 10 THEN EXIT FOR + IF ASC(IniWholeFile$, i) <> 10 AND ASC(IniWholeFile$, i) <> 32 THEN + 'not the section header + GOTO CheckSection + END IF + NEXT + + 'we found it; time to identify where this section ends + '(either another [section], a blank line or the end of the file + Bracket1 = INSTR(beginSection + 1, IniWholeFile$, "[") + IF Bracket1 > 0 THEN + FOR i = Bracket1 - 1 TO 1 STEP -1 + IF ASC(IniWholeFile$, i) = 10 THEN endSection = i + 1 - LEN(IniLF$): EXIT FOR + IF i <= beginSection THEN EXIT FOR + NEXT + END IF + + IF endSection > 0 THEN + 'add values to the end of the specified section$ + IniNewFile$ = LEFT$(IniWholeFile$, endSection - 1) + IniNewFile$ = IniNewFile$ + key$ + "=" + value$ + IniLF$ + IF MID$(IniWholeFile$, endSection, LEN(IniLF$)) <> IniLF$ THEN IniNewFile$ = IniNewFile$ + IniLF$ + IniNewFile$ = IniNewFile$ + MID$(IniWholeFile$, endSection) + ELSE + 'add values to the end of the file + IniNewFile$ = IniWholeFile$ + IF RIGHT$(IniNewFile$, LEN(IniLF$)) = IniLF$ THEN + IniNewFile$ = IniNewFile$ + key$ + "=" + value$ + ELSE + IniNewFile$ = IniNewFile$ + IniLF$ + key$ + "=" + value$ + END IF + END IF + + IniCommit + + IF IniCODE = 0 THEN IniCODE = 7 + EXIT SUB + ELSE + CreateSection: + IniNewFile$ = IniWholeFile$ + IF section$ = "[]" THEN GOTO WriteAtTop + + IF RIGHT$(IniNewFile$, LEN(IniLF$) * 2) = IniLF$ + IniLF$ THEN + IniNewFile$ = IniNewFile$ + section$ + IniLF$ + key$ + "=" + value$ + IniLF$ + ELSEIF RIGHT$(IniNewFile$, LEN(IniLF$)) = IniLF$ THEN + IniNewFile$ = IniNewFile$ + IniLF$ + section$ + IniLF$ + key$ + "=" + value$ + IniLF$ + ELSE + IniNewFile$ = IniNewFile$ + IniLF$ + IniLF$ + section$ + IniLF$ + key$ + "=" + value$ + IniLF$ + END IF + + IniCommit + + IF IniCODE = 0 THEN IniCODE = 9 ELSE IniCODE = 16 + EXIT SUB + END IF + + 'if not found, key$=value$ is written to the beginning of the file + WriteAtTop: + IniNewFile$ = key$ + "=" + value$ + IniLF$ + IF LEFT$(LTRIM$(IniWholeFile$), 1) = "[" THEN IniNewFile$ = IniNewFile$ + IniLF$ + IniNewFile$ = IniNewFile$ + IniWholeFile$ + + IniCommit + + IniCODE = 5 + END IF +END SUB + +SUB IniSetAddQuotes (state AS _BYTE) + SHARED IniDisableAddQuotes + IF state THEN + IniDisableAddQuotes = 0 + ELSE + IniDisableAddQuotes = -1 + END IF +END SUB + +SUB IniSetForceReload (state AS _BYTE) + SHARED IniForceReload + IF state THEN + IniForceReload = -1 + ELSE + IniForceReload = 0 + END IF +END SUB + +SUB IniSetAllowBasicComments (state AS _BYTE) + SHARED IniAllowBasicComments + IF state THEN + IniAllowBasicComments = -1 + ELSE + IniAllowBasicComments = 0 + END IF +END SUB + +SUB IniSetAutoCommit (state AS _BYTE) + SHARED IniDisableAutoCommit + IF state THEN + IniDisableAutoCommit = 0 + ELSE + IniDisableAutoCommit = -1 + END IF +END SUB + +SUB IniLoad (file$) + SHARED IniCODE, currentIniFileName$, IniLF$, IniWholeFile$ + SHARED currentIniFileLOF AS _UNSIGNED LONG + SHARED IniForceReload + DIM fileNum AS INTEGER + + 'Error messages are returned with IniCODE + IniCODE = 0 + + IF file$ <> "" AND currentIniFileName$ <> file$ THEN currentIniFileName$ = "" + + IF IniForceReload AND LEN(currentIniFileName$) > 0 THEN + file$ = currentIniFileName$ + currentIniFileName$ = "" + END IF + + 'Passing an empty file$ is allowed if user already + 'passed a valid file in this session. + IF currentIniFileName$ = "" THEN + 'initialization + IF _FILEEXISTS(file$) THEN + currentIniFileName$ = file$ + + 'Load file into memory + fileNum = FREEFILE + OPEN currentIniFileName$ FOR BINARY AS #fileNum + currentIniFileLOF = LOF(fileNum) + IniWholeFile$ = SPACE$(currentIniFileLOF) + GET #fileNum, 1, IniWholeFile$ + CLOSE #fileNum + + 'Check if this ini file uses CRLF or LF + IF INSTR(IniWholeFile$, CHR$(13)) THEN IniLF$ = CHR$(13) + CHR$(10) ELSE IniLF$ = CHR$(10) + ELSE + IniFileNotFound: + IniCODE = 1 + + $IF WIN THEN + IniLF$ = CHR$(13) + CHR$(10) + $ELSE + IniLF$ = CHR$(10) + $END IF + EXIT SUB + END IF + ELSEIF NOT _FILEEXISTS(currentIniFileName$) THEN + currentIniFileName$ = "" + GOTO IniFileNotFound + END IF +END SUB diff --git a/source/utilities/ini-manager/readme.txt b/source/utilities/ini-manager/readme.txt new file mode 100644 index 000000000..228c1c4f6 --- /dev/null +++ b/source/utilities/ini-manager/readme.txt @@ -0,0 +1,2 @@ +This is a reduced version of INI-Manager. The full package can be downloaded +from https://github.com/FellippeHeitor/INI-Manager. diff --git a/source/utilities/strings.bas b/source/utilities/strings.bas index 44c8e24a3..f1a9aed53 100644 --- a/source/utilities/strings.bas +++ b/source/utilities/strings.bas @@ -1,28 +1,33 @@ -' -' String manipulation functions -' - -FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive - a$ = myString$ - b$ = LCASE$(whatToRemove$) - i = INSTR(LCASE$(a$), b$) - DO WHILE i - a$ = LEFT$(a$, i - 1) + RIGHT$(a$, LEN(a$) - i - LEN(b$) + 1) - i = INSTR(LCASE$(a$), b$) - LOOP - StrRemove$ = a$ -END FUNCTION - -FUNCTION StrReplace$ (myString$, find$, replaceWith$) 'noncase sensitive - IF LEN(myString$) = 0 THEN EXIT FUNCTION - a$ = myString$ - b$ = LCASE$(find$) - basei = 1 - i = INSTR(basei, LCASE$(a$), b$) - DO WHILE i - a$ = LEFT$(a$, i - 1) + replaceWith$ + RIGHT$(a$, LEN(a$) - i - LEN(b$) + 1) - basei = i + LEN(replaceWith$) - i = INSTR(basei, LCASE$(a$), b$) - LOOP - StrReplace$ = a$ -END FUNCTION +' +' String manipulation functions +' + +FUNCTION StrRemove$ (myString$, whatToRemove$) 'noncase sensitive + DIM a$, b$ + DIM AS LONG i + + a$ = myString$ + b$ = LCASE$(whatToRemove$) + i = INSTR(LCASE$(a$), b$) + DO WHILE i + a$ = LEFT$(a$, i - 1) + RIGHT$(a$, LEN(a$) - i - LEN(b$) + 1) + i = INSTR(LCASE$(a$), b$) + LOOP + StrRemove$ = a$ +END FUNCTION + +FUNCTION StrReplace$ (myString$, find$, replaceWith$) 'noncase sensitive + DIM a$, b$ + DIM AS LONG basei, i + IF LEN(myString$) = 0 THEN EXIT FUNCTION + a$ = myString$ + b$ = LCASE$(find$) + basei = 1 + i = INSTR(basei, LCASE$(a$), b$) + DO WHILE i + a$ = LEFT$(a$, i - 1) + replaceWith$ + RIGHT$(a$, LEN(a$) - i - LEN(b$) + 1) + basei = i + LEN(replaceWith$) + i = INSTR(basei, LCASE$(a$), b$) + LOOP + StrReplace$ = a$ +END FUNCTION diff --git a/source/virtual_keyboard/embed/footer.bas b/source/virtual_keyboard/embed/footer.bas deleted file mode 100644 index b319e5b7d..000000000 --- a/source/virtual_keyboard/embed/footer.bas +++ /dev/null @@ -1,2 +0,0 @@ -'$include:'..\..\qb_framework\qb_framework_methods.bas' -'$include:'..\virtual_keyboard_methods.bas' diff --git a/source/virtual_keyboard/embed/footer_stub.bas b/source/virtual_keyboard/embed/footer_stub.bas deleted file mode 100644 index 6d8004f6d..000000000 --- a/source/virtual_keyboard/embed/footer_stub.bas +++ /dev/null @@ -1,2 +0,0 @@ -SUB VkUpdate -END SUB diff --git a/source/virtual_keyboard/embed/header.bas b/source/virtual_keyboard/embed/header.bas deleted file mode 100644 index 129b2516e..000000000 --- a/source/virtual_keyboard/embed/header.bas +++ /dev/null @@ -1,7 +0,0 @@ -'$include:'..\..\qb_framework\qb_framework_global.bas' -'$include:'..\virtual_keyboard_global.bas' -DEFSNG A-Z -$INSTALLFILES "..\..\..\cyberbit.ttf" -$INSTALLFILES "..\layouts\virtual_keyboard_layout_default.txt" -dim shared appRootPath as string -appRootPath$=_CWD$+"\" '_CWD$ is the application root when the program launches, preserve this value for later use before client program changes the path diff --git a/source/virtual_keyboard/embed/header_stub.bas b/source/virtual_keyboard/embed/header_stub.bas deleted file mode 100644 index 440272153..000000000 --- a/source/virtual_keyboard/embed/header_stub.bas +++ /dev/null @@ -1 +0,0 @@ -'blank line \ No newline at end of file diff --git a/source/virtual_keyboard/layouts/virtual_keyboard_layout_default.txt b/source/virtual_keyboard/layouts/virtual_keyboard_layout_default.txt deleted file mode 100644 index c2a9399a0..000000000 --- a/source/virtual_keyboard/layouts/virtual_keyboard_layout_default.txt +++ /dev/null @@ -1 +0,0 @@ -{"width":90,"keys":[{"type":"keySet","x":0,"y":30,"width":6,"height":3,"label":"\u2261","childKeys":[{"type":"key","offsetX":25,"offsetY":-30,"width":34,"height":6,"label":"","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_SPACE"}}},{"type":"key","offsetX":86,"offsetY":-30,"width":4,"height":6,"label":"Esc","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_ESCAPE"}}},{"type":"key","offsetX":0,"offsetY":-24,"width":14,"height":6,"label":"Shift","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_LSHIFT"}}},{"type":"key","offsetX":0,"offsetY":-18,"width":11,"height":6,"label":"Caps Lock","locks":true,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_CAPSLOCK"}}},{"type":"key","offsetX":0,"offsetY":-12,"width":9,"height":6,"label":"Tab","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_TAB"}}},{"type":"key","offsetX":78,"offsetY":-6,"width":12,"height":6,"label":"Back Space","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_BACKSPACE"}}},{"type":"key","offsetX":72,"offsetY":-6,"width":6,"height":6,"label":"=","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_EQUAL"},"keydownWithShift":{"keyCode":"KEY_PLUS","label":"+"}}},{"type":"key","offsetX":66,"offsetY":-6,"width":6,"height":6,"label":"-","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_MINUS"},"keydownWithShift":{"keyCode":"KEY_UNDERSCORE","label":"_"}}},{"type":"key","offsetX":60,"offsetY":-6,"width":6,"height":6,"label":"0","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_0"},"keydownWithShift":{"keyCode":"KEY_CLOSE_BRACKET","label":")"}}},{"type":"key","offsetX":54,"offsetY":-6,"width":6,"height":6,"label":"9","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_9"},"keydownWithShift":{"keyCode":"KEY_OPEN_BRACKET","label":"("}}},{"type":"key","offsetX":48,"offsetY":-6,"width":6,"height":6,"label":"8","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_8"},"keydownWithShift":{"keyCode":"KEY_STAR","label":"*"}}},{"type":"key","offsetX":42,"offsetY":-6,"width":6,"height":6,"label":"7","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_7"},"keydownWithShift":{"keyCode":"KEY_AND","label":"&"}}},{"type":"key","offsetX":36,"offsetY":-6,"width":6,"height":6,"label":"6","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_6"},"keydownWithShift":{"keyCode":"KEY_CARET","label":"^"}}},{"type":"key","offsetX":30,"offsetY":-6,"width":6,"height":6,"label":"5","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_5"},"keydownWithShift":{"keyCode":"KEY_PERCENT","label":"%"}}},{"type":"key","offsetX":18,"offsetY":-6,"width":6,"height":6,"label":"3","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_3"},"keydownWithShift":{"keyCode":"KEY_HASH","label":"#"}}},{"type":"key","offsetX":24,"offsetY":-6,"width":6,"height":6,"label":"4","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_4"},"keydownWithShift":{"keyCode":"KEY_DOLLAR","label":"$"}}},{"type":"key","offsetX":0,"offsetY":-30,"width":9,"height":6,"label":"Ctrl","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_LCTRL"}}},{"type":"key","offsetX":9,"offsetY":-30,"width":8,"height":6,"label":"\u2302","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LSUPER"}}},{"type":"key","offsetX":17,"offsetY":-30,"width":8,"height":6,"label":"Alt","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_LALT"}}},{"type":"key","offsetX":59,"offsetY":-30,"width":9,"height":6,"label":"Alt","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_RALT"}}},{"type":"key","offsetX":80,"offsetY":-24,"width":10,"height":6,"label":"Shift","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_RSHIFT"}}},{"type":"key","offsetX":74,"offsetY":-30,"width":6,"height":6,"label":"\u2193","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_DOWN"}}},{"type":"key","offsetX":68,"offsetY":-30,"width":6,"height":6,"label":"\u2190","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LEFT"}}},{"type":"key","offsetX":80,"offsetY":-30,"width":6,"height":6,"label":"\u2192","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_RIGHT"}}},{"type":"key","offsetX":74,"offsetY":-24,"width":6,"height":6,"label":"\u2191","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_UP"}}},{"type":"key","offsetX":68,"offsetY":-24,"width":6,"height":6,"label":"/","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_FORWARD_SLASH"},"keydownWithShift":{"keyCode":"KEY_QUESTION","label":"?"}}},{"type":"key","offsetX":62,"offsetY":-24,"width":6,"height":6,"label":".","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_DOT"},"keydownWithShift":{"keyCode":"KEY_GREATER_THAN","label":">"}}},{"type":"key","offsetX":56,"offsetY":-24,"width":6,"height":6,"label":",","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_COMMA"},"keydownWithShift":{"keyCode":"KEY_LESS_THAN","label":"<"}}},{"type":"key","offsetX":50,"offsetY":-24,"width":6,"height":6,"label":"m","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_M"},"keydownWithShift":{"keyCode":"KEY_UCASE_M","label":"M"}}},{"type":"key","offsetX":44,"offsetY":-24,"width":6,"height":6,"label":"n","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_N"},"keydownWithShift":{"keyCode":"KEY_UCASE_N","label":"N"}}},{"type":"key","offsetX":38,"offsetY":-24,"width":6,"height":6,"label":"b","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_B"},"keydownWithShift":{"keyCode":"KEY_UCASE_B","label":"B"}}},{"type":"key","offsetX":32,"offsetY":-24,"width":6,"height":6,"label":"v","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_V"},"keydownWithShift":{"keyCode":"KEY_UCASE_V","label":"V"}}},{"type":"key","offsetX":26,"offsetY":-24,"width":6,"height":6,"label":"c","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_C"},"keydownWithShift":{"keyCode":"KEY_UCASE_C","label":"C"}}},{"type":"key","offsetX":20,"offsetY":-24,"width":6,"height":6,"label":"x","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_X"},"keydownWithShift":{"keyCode":"KEY_UCASE_X","label":"X"}}},{"type":"key","offsetX":14,"offsetY":-24,"width":6,"height":6,"label":"z","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_Z"},"keydownWithShift":{"keyCode":"KEY_UCASE_Z","label":"Z"}}},{"type":"key","offsetX":77,"offsetY":-18,"width":13,"height":6,"label":"Enter","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_ENTER"}}},{"type":"key","offsetX":81,"offsetY":-12,"width":9,"height":6,"label":"\\","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_BACK_SLASH"},"keydownWithShift":{"keyCode":"KEY_VERTICAL_BAR","label":"|"}}},{"type":"key","offsetX":71,"offsetY":-18,"width":6,"height":6,"label":"'","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_APOSTROPHE"},"keydownWithShift":{"keyCode":"KEY_QUOTE","label":"\""}}},{"type":"key","offsetX":65,"offsetY":-18,"width":6,"height":6,"label":";","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_SEMICOLON"},"keydownWithShift":{"keyCode":"KEY_COLON","label":":"}}},{"type":"key","offsetX":59,"offsetY":-18,"width":6,"height":6,"label":"l","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_L"},"keydownWithShift":{"keyCode":"KEY_UCASE_L","label":"L"}}},{"type":"key","offsetX":53,"offsetY":-18,"width":6,"height":6,"label":"k","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_K"},"keydownWithShift":{"keyCode":"KEY_UCASE_K","label":"K"}}},{"type":"key","offsetX":47,"offsetY":-18,"width":6,"height":6,"label":"j","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_J"},"keydownWithShift":{"keyCode":"KEY_UCASE_J","label":"J"}}},{"type":"key","offsetX":41,"offsetY":-18,"width":6,"height":6,"label":"h","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_H"},"keydownWithShift":{"keyCode":"KEY_UCASE_H","label":"H"}}},{"type":"key","offsetX":35,"offsetY":-18,"width":6,"height":6,"label":"g","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_G"},"keydownWithShift":{"keyCode":"KEY_UCASE_G","label":"G"}}},{"type":"key","offsetX":29,"offsetY":-18,"width":6,"height":6,"label":"f","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_F"},"keydownWithShift":{"keyCode":"KEY_UCASE_F","label":"F"}}},{"type":"key","offsetX":23,"offsetY":-18,"width":6,"height":6,"label":"d","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_D"},"keydownWithShift":{"keyCode":"KEY_UCASE_D","label":"D"}}},{"type":"key","offsetX":17,"offsetY":-18,"width":6,"height":6,"label":"s","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_S"},"keydownWithShift":{"keyCode":"KEY_UCASE_S","label":"S"}}},{"type":"key","offsetX":11,"offsetY":-18,"width":6,"height":6,"label":"a","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_A"},"keydownWithShift":{"keyCode":"KEY_UCASE_A","label":"A"}}},{"type":"key","offsetX":12,"offsetY":-6,"width":6,"height":6,"label":"2","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_2"},"keydownWithShift":{"keyCode":"KEY_AT","label":"@"}}},{"type":"key","offsetX":75,"offsetY":-12,"width":6,"height":6,"label":"]","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_CLOSE_BRACKET_SQUARE"},"keydownWithShift":{"keyCode":"KEY_CLOSE_BRACKET_CURLY","label":"}"}}},{"type":"key","offsetX":69,"offsetY":-12,"width":6,"height":6,"label":"[","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_OPEN_BRACKET_SQUARE"},"keydownWithShift":{"keyCode":"KEY_OPEN_BRACKET_CURLY","label":"{"}}},{"type":"key","offsetX":63,"offsetY":-12,"width":6,"height":6,"label":"p","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_P"},"keydownWithShift":{"keyCode":"KEY_UCASE_P","label":"P"}}},{"type":"key","offsetX":57,"offsetY":-12,"width":6,"height":6,"label":"o","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_O"},"keydownWithShift":{"keyCode":"KEY_UCASE_O","label":"O"}}},{"type":"key","offsetX":51,"offsetY":-12,"width":6,"height":6,"label":"i","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_I"},"keydownWithShift":{"keyCode":"KEY_UCASE_I","label":"I"}}},{"type":"key","offsetX":45,"offsetY":-12,"width":6,"height":6,"label":"u","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_U"},"keydownWithShift":{"keyCode":"KEY_UCASE_U","label":"U"}}},{"type":"key","offsetX":39,"offsetY":-12,"width":6,"height":6,"label":"y","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_Y"},"keydownWithShift":{"keyCode":"KEY_UCASE_Y","label":"Y"}}},{"type":"key","offsetX":33,"offsetY":-12,"width":6,"height":6,"label":"t","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_T"},"keydownWithShift":{"keyCode":"KEY_UCASE_T","label":"T"}}},{"type":"key","offsetX":27,"offsetY":-12,"width":6,"height":6,"label":"r","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_R"},"keydownWithShift":{"keyCode":"KEY_UCASE_R","label":"R"}}},{"type":"key","offsetX":21,"offsetY":-12,"width":6,"height":6,"label":"e","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_E"},"keydownWithShift":{"keyCode":"KEY_UCASE_E","label":"E"}}},{"type":"key","offsetX":15,"offsetY":-12,"width":6,"height":6,"label":"w","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_W"},"keydownWithShift":{"keyCode":"KEY_UCASE_W","label":"W"}}},{"type":"key","offsetX":9,"offsetY":-12,"width":6,"height":6,"label":"q","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_Q"},"keydownWithShift":{"keyCode":"KEY_UCASE_Q","label":"Q"}}},{"type":"key","offsetX":6,"offsetY":-6,"width":6,"height":6,"label":"1","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_1"},"keydownWithShift":{"keyCode":"KEY_EXCLAMATION","label":"!"}}},{"type":"key","offsetX":0,"offsetY":-6,"width":6,"height":6,"label":"`","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_REVERSE_APOSTROPHE"},"keydownWithShift":{"keyCode":"KEY_TILDE","label":"~"}}}]}]} diff --git a/source/virtual_keyboard/virtual_keyboard_global.bas b/source/virtual_keyboard/virtual_keyboard_global.bas deleted file mode 100644 index c317326bf..000000000 --- a/source/virtual_keyboard/virtual_keyboard_global.bas +++ /dev/null @@ -1,177 +0,0 @@ -DEFSNG A-Z - -DECLARE LIBRARY - SUB requestKeyboardOverlayImage (BYVAL handle AS LONG) - SUB mouseinput_mode (BYVAL exclusive AS LONG) - FUNCTION func__mouseinput_exclusive& -END DECLARE - -'VK Constants -'$include:'virtual_keyboard_keycodes.bas' -'$include:'virtual_keyboard_keypush.bas' - -'VK Types -TYPE VKEY_EVENT - keydown AS LONG -END TYPE - -TYPE VKEY_DPAD - up AS VKEY_EVENT - down AS VKEY_EVENT - left AS VKEY_EVENT - right AS VKEY_EVENT - x AS SINGLE '-1 to 1 - y AS SINGLE '-1 to 1 - dx AS LONG '-1, 0, 1 - dy AS LONG '-1, 0, 1 - lastKeyDx AS LONG '-1, 0, 1 - lastKeyDy AS LONG '-1, 0, 1 -END TYPE - -TYPE VKEY_TYPE - active AS LONG '1=in use - internal AS LONG - role AS STRING * 4 - state AS LONG - label AS STRING * 100 - x AS LONG 'left hand side - y AS LONG 'from base of screen - w AS LONG 'width - h AS LONG 'height (default is 10) - parent AS LONG - offsetX AS LONG - offsetY AS LONG - held AS LONG - event AS VKEY_EVENT - - hasShiftedEvent AS LONG - shiftedEvent AS VKEY_EVENT 'eg. when shifted or caps lock is on - shiftedLabel AS STRING * 100 - - locks AS LONG '1 or 0 eg. num lock, scroll lock, caps lock - lockIsTemporary AS LONG 'eg shift key, locks till next press - locked AS LONG - dpad AS VKEY_DPAD - - - subImage AS LONG - - image AS LONG - highlightImage AS LONG - selectedImage AS LONG - shiftedImage AS LONG - shiftedHighlightImage AS LONG - shiftedSelectedImage AS LONG - - reDraw AS LONG - - 'key repeat - lastKeydownTime AS SINGLE - keyRepeatCount AS LONG - keyRepeatKeyCode AS LONG - -END TYPE - -'VK Global Variables -DIM SHARED VK(1000) AS VKEY_TYPE -DIM SHARED VkLast - -DIM SHARED VkEmpty AS VKEY_TYPE -VkEmpty.label = "" - -DIM SHARED VkHide: VkHide = 1 - -DIM SHARED VkUnitStepY: VkUnitStepY = 6 -DIM SHARED VkNewKeySize: VkNewKeySize = 6 -DIM SHARED VkDefaultWidth: VkDefaultWidth = 6 -DIM SHARED VkLastSelectionPage: VkLastSelectionPage = 1 -DIM SHARED VkUnitSize 'size of a unit in pixels (floating point) - -DIM SHARED VkDefaultSelectKeyPage: VkDefaultSelectKeyPage = 1 -DIM SHARED VkFont -DIM SHARED VkFontSmall -DIM SHARED VkKeyNameLookup AS LONG -DIM SHARED VkKeyCodeLookup AS LONG -VkAddKeyNames - -'fonts are loaded on startup, not all sizes are available and the system will -'find/use the best match -DIM SHARED vkFonts(1000) AS LONG -DIM SHARED vkFontAllow(1000) AS LONG -vkFontAllow(8)=1 -vkFontAllow(9)=1 -vkFontAllow(10)=1 -vkFontAllow(11)=1 -vkFontAllow(12)=1 -vkFontAllow(14)=1 -vkFontAllow(16)=1 -vkFontAllow(18)=1 -vkFontAllow(20)=1 -vkFontAllow(24)=1 -vkFontAllow(28)=1 -vkFontAllow(32)=1 -vkFontAllow(36)=1 -vkFontAllow(48)=1 -vkFontAllow(72)=1 -vkFontAllow(100)=1 - -DIM SHARED VkBgTex -DIM SHARED VkBorderTex -DIM SHARED VkInternalBgTex -DIM SHARED VkInternalBorderTex -DIM SHARED VkClearTex - -DIM SHARED VkSelectedKey -DIM SHARED VkAddShiftedKey - -DIM SHARED VkWinX -DIM SHARED VkWinY -DIM SHARED VkOverlay 'an image overlayed over the other content -DIM SHARED VkBackbuffer 'backbuffer of overlay - -DIM SHARED VkExiting -DIM SHARED VkExited - -DIM SHARED VkReset - -DIM SHARED VkDelayStartTime AS DOUBLE -DIM SHARED VkDelay AS DOUBLE -VkDelayStartTime=TIMER(0.001) -VkDelay=1 'programs typically set their screen resolution on start, so wait a second before trying to build a keyboard which matches that resolution -DIM SHARED VkDelayedReset - -DIM SHARED VkWidthInUnits - -DIM SHARED VkTimer -VkTimer = _FREETIMER - -DIM SHARED VkReDraw AS LONG: VkReDraw = 1 - -DIM SHARED VkDelayUntilFirstRepeat AS SINGLE: VkDelayUntilFirstRepeat = 0.75 -DIM SHARED VkDelayUntilFollowingRepeats AS SINGLE: VkDelayUntilFollowingRepeats = 0.025 '40 per sec - -TYPE VkRegTypeX - ax AS INTEGER - bx AS INTEGER - cx AS INTEGER - dx AS INTEGER - bp AS INTEGER - si AS INTEGER - di AS INTEGER - flags AS INTEGER - ds AS INTEGER - es AS INTEGER -END TYPE -DIM SHARED VkReg AS VkRegTypeX - -DIM SHARED VkSharedMouseMx AS LONG -DIM SHARED VkSharedMouseMy AS LONG -DIM SHARED VkSharedMouseMb AS LONG - -DIM SHARED VkSharedInputMode AS LONG: VkSharedInputMode = -1 - -ON TIMER(VkTimer, .01) VkUpdate -TIMER(VkTimer) ON - -DIM SHARED VkMousePipe AS LONG -DIM SHARED VkMousePipeCapture AS LONG \ No newline at end of file diff --git a/source/virtual_keyboard/virtual_keyboard_keycodes.bas b/source/virtual_keyboard/virtual_keyboard_keycodes.bas deleted file mode 100644 index eb4bd2132..000000000 --- a/source/virtual_keyboard/virtual_keyboard_keycodes.bas +++ /dev/null @@ -1,207 +0,0 @@ -CONST VK_KEY_PAUSE& = 100019 -CONST VK_KEY_NUMLOCK& = 100300 -CONST VK_KEY_CAPSLOCK& = 100301 -CONST VK_KEY_SCROLLOCK& = 100302 -CONST VK_KEY_RSHIFT& = 100303 -CONST VK_KEY_LSHIFT& = 100304 -CONST VK_KEY_RCTRL& = 100305 -CONST VK_KEY_LCTRL& = 100306 -CONST VK_KEY_RALT& = 100307 -CONST VK_KEY_LALT& = 100308 -CONST VK_KEY_RMETA& = 100309 'Left 'Apple' key (MacOSX) -CONST VK_KEY_LMETA& = 100310 'Right 'Apple' key (MacOSX) -CONST VK_KEY_LSUPER& = 100311 'Left "Windows" key -CONST VK_KEY_RSUPER& = 100312 'Right "Windows"key -CONST VK_KEY_MODE& = 100313 '"AltGr" key -CONST VK_KEY_COMPOSE& = 100314 -CONST VK_KEY_HELP& = 100315 -CONST VK_KEY_PRINT& = 100316 -CONST VK_KEY_SYSREQ& = 100317 -CONST VK_KEY_BREAK& = 100318 -CONST VK_KEY_MENU& = 100319 -CONST VK_KEY_POWER& = 100320 -CONST VK_KEY_EURO& = 100321 -CONST VK_KEY_UNDO& = 100322 -CONST VK_KEY_KP0& = 100256 -CONST VK_KEY_KP1& = 100257 -CONST VK_KEY_KP2& = 100258 -CONST VK_KEY_KP3& = 100259 -CONST VK_KEY_KP4& = 100260 -CONST VK_KEY_KP5& = 100261 -CONST VK_KEY_KP6& = 100262 -CONST VK_KEY_KP7& = 100263 -CONST VK_KEY_KP8& = 100264 -CONST VK_KEY_KP9& = 100265 -CONST VK_KEY_KP_PERIOD& = 100266 -CONST VK_KEY_KP_DIVIDE& = 100267 -CONST VK_KEY_KP_MULTIPLY& = 100268 -CONST VK_KEY_KP_MINUS& = 100269 -CONST VK_KEY_KP_PLUS& = 100270 -CONST VK_KEY_KP_ENTER& = 100271 -CONST VK_KEY_KP_INSERT& = 200000 -CONST VK_KEY_KP_END& = 200001 -CONST VK_KEY_KP_DOWN& = 200002 -CONST VK_KEY_KP_PAGE_DOWN& = 200003 -CONST VK_KEY_KP_LEFT& = 200004 -CONST VK_KEY_KP_MIDDLE& = 200005 -CONST VK_KEY_KP_RIGHT& = 200006 -CONST VK_KEY_KP_HOME& = 200007 -CONST VK_KEY_KP_UP& = 200008 -CONST VK_KEY_KP_PAGE_UP& = 200009 -CONST VK_KEY_KP_DELETE& = 200010 -CONST VK_KEY_SCROLL_LOCK_MODE& = 200011 -CONST VK_KEY_INSERT_MODE& = 200012 - -CONST VK_KEY_F1& = 15104 -CONST VK_KEY_F2& = 15360 -CONST VK_KEY_F3& = 15616 -CONST VK_KEY_F4& = 15872 -CONST VK_KEY_F5& = 16128 -CONST VK_KEY_F6& = 16384 -CONST VK_KEY_F7& = 16640 -CONST VK_KEY_F8& = 16896 -CONST VK_KEY_F9& = 17152 -CONST VK_KEY_F10& = 17408 -CONST VK_KEY_F11& = 34048 -CONST VK_KEY_F12& = 34304 - -CONST VK_KEY_INSERT& = 20992 -CONST VK_KEY_DELETE& = 21248 -CONST VK_KEY_HOME& = 18176 -CONST VK_KEY_END& = 20224 -CONST VK_KEY_PAGE_UP& = 18688 -CONST VK_KEY_PAGE_DOWN& = 20736 - -CONST VK_KEY_UP& = 18432 -CONST VK_KEY_DOWN& = 20480 -CONST VK_KEY_LEFT& = 19200 -CONST VK_KEY_RIGHT& = 19712 - -CONST VK_KEY_BACKSPACE& = 8 -CONST VK_KEY_TAB& = 9 - -CONST VK_KEY_ENTER& = 13 -CONST VK_KEY_ESCAPE& = 27 - -CONST VK_KEY_SPACE& = 32 -CONST VK_KEY_EXCLAMATION& = 33 -CONST VK_KEY_QUOTE& = 34 -CONST VK_KEY_HASH& = 35 -CONST VK_KEY_DOLLAR& = 36 -CONST VK_KEY_PERCENT& = 37 -CONST VK_KEY_AND& = 38 -CONST VK_KEY_APOSTROPHE& = 39 -CONST VK_KEY_OPEN_BRACKET& = 40 -CONST VK_KEY_CLOSE_BRACKET& = 41 -CONST VK_KEY_STAR& = 42 -CONST VK_KEY_PLUS& = 43 -CONST VK_KEY_COMMA& = 44 -CONST VK_KEY_MINUS& = 45 -CONST VK_KEY_DOT& = 46 -CONST VK_KEY_FORWARD_SLASH& = 47 -CONST VK_KEY_0& = 48 -CONST VK_KEY_1& = 49 -CONST VK_KEY_2& = 50 -CONST VK_KEY_3& = 51 -CONST VK_KEY_4& = 52 -CONST VK_KEY_5& = 53 -CONST VK_KEY_6& = 54 -CONST VK_KEY_7& = 55 -CONST VK_KEY_8& = 56 -CONST VK_KEY_9& = 57 -CONST VK_KEY_COLON& = 58 -CONST VK_KEY_SEMICOLON& = 59 -CONST VK_KEY_LESS_THAN& = 60 -CONST VK_KEY_EQUAL& = 61 -CONST VK_KEY_GREATER_THAN& = 62 -CONST VK_KEY_QUESTION& = 63 -CONST VK_KEY_AT& = 64 -CONST VK_KEY_A& = 65 -CONST VK_KEY_B& = 66 -CONST VK_KEY_C& = 67 -CONST VK_KEY_D& = 68 -CONST VK_KEY_E& = 69 -CONST VK_KEY_F& = 70 -CONST VK_KEY_G& = 71 -CONST VK_KEY_H& = 72 -CONST VK_KEY_I& = 73 -CONST VK_KEY_J& = 74 -CONST VK_KEY_K& = 75 -CONST VK_KEY_L& = 76 -CONST VK_KEY_M& = 77 -CONST VK_KEY_N& = 78 -CONST VK_KEY_O& = 79 -CONST VK_KEY_P& = 80 -CONST VK_KEY_Q& = 81 -CONST VK_KEY_R& = 82 -CONST VK_KEY_S& = 83 -CONST VK_KEY_T& = 84 -CONST VK_KEY_U& = 85 -CONST VK_KEY_V& = 86 -CONST VK_KEY_W& = 87 -CONST VK_KEY_X& = 88 -CONST VK_KEY_Y& = 89 -CONST VK_KEY_Z& = 90 -CONST VK_KEY_UCASE_A& = 65 -CONST VK_KEY_UCASE_B& = 66 -CONST VK_KEY_UCASE_C& = 67 -CONST VK_KEY_UCASE_D& = 68 -CONST VK_KEY_UCASE_E& = 69 -CONST VK_KEY_UCASE_F& = 70 -CONST VK_KEY_UCASE_G& = 71 -CONST VK_KEY_UCASE_H& = 72 -CONST VK_KEY_UCASE_I& = 73 -CONST VK_KEY_UCASE_J& = 74 -CONST VK_KEY_UCASE_K& = 75 -CONST VK_KEY_UCASE_L& = 76 -CONST VK_KEY_UCASE_M& = 77 -CONST VK_KEY_UCASE_N& = 78 -CONST VK_KEY_UCASE_O& = 79 -CONST VK_KEY_UCASE_P& = 80 -CONST VK_KEY_UCASE_Q& = 81 -CONST VK_KEY_UCASE_R& = 82 -CONST VK_KEY_UCASE_S& = 83 -CONST VK_KEY_UCASE_T& = 84 -CONST VK_KEY_UCASE_U& = 85 -CONST VK_KEY_UCASE_V& = 86 -CONST VK_KEY_UCASE_W& = 87 -CONST VK_KEY_UCASE_X& = 88 -CONST VK_KEY_UCASE_Y& = 89 -CONST VK_KEY_UCASE_Z& = 90 -CONST VK_KEY_OPEN_BRACKET_SQUARE& = 91 -CONST VK_KEY_BACK_SLASH& = 92 -CONST VK_KEY_CLOSE_BRACKET_SQUARE& = 93 -CONST VK_KEY_CARET& = 94 -CONST VK_KEY_UNDERSCORE& = 95 -CONST VK_KEY_REVERSE_APOSTROPHE& = 96 -CONST VK_KEY_LCASE_A& = 97 -CONST VK_KEY_LCASE_B& = 98 -CONST VK_KEY_LCASE_C& = 99 -CONST VK_KEY_LCASE_D& = 100 -CONST VK_KEY_LCASE_E& = 101 -CONST VK_KEY_LCASE_F& = 102 -CONST VK_KEY_LCASE_G& = 103 -CONST VK_KEY_LCASE_H& = 104 -CONST VK_KEY_LCASE_I& = 105 -CONST VK_KEY_LCASE_J& = 106 -CONST VK_KEY_LCASE_K& = 107 -CONST VK_KEY_LCASE_L& = 108 -CONST VK_KEY_LCASE_M& = 109 -CONST VK_KEY_LCASE_N& = 110 -CONST VK_KEY_LCASE_O& = 111 -CONST VK_KEY_LCASE_P& = 112 -CONST VK_KEY_LCASE_Q& = 113 -CONST VK_KEY_LCASE_R& = 114 -CONST VK_KEY_LCASE_S& = 115 -CONST VK_KEY_LCASE_T& = 116 -CONST VK_KEY_LCASE_U& = 117 -CONST VK_KEY_LCASE_V& = 118 -CONST VK_KEY_LCASE_W& = 119 -CONST VK_KEY_LCASE_X& = 120 -CONST VK_KEY_LCASE_Y& = 121 -CONST VK_KEY_LCASE_Z& = 122 -CONST VK_KEY_OPEN_BRACKET_CURLY& = 123 -CONST VK_KEY_VERTICAL_BAR& = 124 -CONST VK_KEY_CLOSE_BRACKET_CURLY& = 125 -CONST VK_KEY_TILDE& = 126 -CONST VK_KEY_BACKSPACE_ALTERNATE& = 127 diff --git a/source/virtual_keyboard/virtual_keyboard_keypush.bas b/source/virtual_keyboard/virtual_keyboard_keypush.bas deleted file mode 100644 index e6267e503..000000000 --- a/source/virtual_keyboard/virtual_keyboard_keypush.bas +++ /dev/null @@ -1,11 +0,0 @@ -DECLARE LIBRARY "" - SUB keydown_ascii (BYVAL keycode~&) - SUB keyup_ascii (BYVAL keycode~&) - SUB keydown_unicode (BYVAL keycode~&) - SUB keyup_unicode (BYVAL keycode~&) - SUB keydown_vk (BYVAL keycode~&) - SUB keyup_vk (BYVAL keycode~&) - 'these map directly to keydown/keyup except for unicode which remaps extended CP437 & double-width - SUB keydown (BYVAL keycode~&) - SUB keyup (BYVAL keycode~&) -END DECLARE \ No newline at end of file diff --git a/source/virtual_keyboard/virtual_keyboard_methods.bas b/source/virtual_keyboard/virtual_keyboard_methods.bas deleted file mode 100644 index 89518fe29..000000000 --- a/source/virtual_keyboard/virtual_keyboard_methods.bas +++ /dev/null @@ -1,2811 +0,0 @@ -DEFSNG A-Z - - -SUB VkResetMenu 'clears internal keys and rebuilds primary menu - -VkRemoveInternal - -i = VkByRole("ROOT") - -c = 0 -'add menu - -IF VkHide <> 0 THEN - c = c + 1 - i2 = VkNew - VkReLabel i2, "Show" - VK(i2).parent = i - VK(i2).offsetX = VkDefaultWidth * c - VK(i2).internal = 1 - VK(i2).role = "SHOW" - VK(i2).w = VkNewKeySize -ELSE - c = c + 1 - i2 = VkNew - VkReLabel i2, "Hide" - VK(i2).parent = i - VK(i2).offsetX = VkDefaultWidth * c - VK(i2).internal = 1 - VK(i2).role = "HIDE" - VK(i2).w = VkNewKeySize -END IF - - -c = c + 1 -i2 = VkNew -VkReLabel i2, "File" -VK(i2).parent = i -VK(i2).offsetX = VkDefaultWidth * c -VK(i2).internal = 1 -VK(i2).role = "FILE" -VK(i2).w = VkNewKeySize -VK(i2).locks = 1 - -c = c + 1 -i2 = VkNew -VkReLabel i2, "Edit" -VK(i2).parent = i -VK(i2).offsetX = VkDefaultWidth * c -VK(i2).internal = 1 -VK(i2).role = "EDIT" -VK(i2).w = VkNewKeySize -VK(i2).locks = 1 - -c = c + 1 -i2 = VkNew -VkReLabel i2, "Size" -VK(i2).parent = i -VK(i2).offsetX = VkDefaultWidth * c -VK(i2).internal = 1 -VK(i2).role = "SIZE" -VK(i2).w = VkNewKeySize -VK(i2).locks = 1 - -c = c + 1 -i2 = VkNew -VkReLabel i2, "Abc.." -VK(i2).parent = i -VK(i2).offsetX = VkDefaultWidth * c -VK(i2).internal = 1 -VK(i2).role = "ABC." -VK(i2).w = VkNewKeySize -VK(i2).locks = 1 - -'POSTPONED UNTIL 2ND RELEASE -'c = c + 1 -'i2 = VkNew -'VkReLabel i2, "Type" -'VK(i2).parent = i -'VK(i2).offsetX = VkDefaultWidth * c -'VK(i2).internal = 1 -'VK(i2).role = "TYPE" -'VK(i2).w = VkNewKeySize -'VK(i2).locks = 1 - -'DEPRECATED (MOUSE PIPES REMOVED THE REQUIREMENT FOR INPUT MODE SELECTION) -'c = c + 1 -'i2 = VkNew -'VkReLabel i2, "Input Mode" -'VK(i2).parent = i -'VK(i2).offsetX = VkDefaultWidth * c -'VK(i2).internal = 1 -'VK(i2).role = "IMOD" -'VK(i2).w = VkNewKeySize -'VK(i2).locks = 1 - -END SUB - - -SUB VkSelectKey (page) - -VkDefaultSelectKeyPage = page - -VkRemoveInternal - -rt = VkByRole("ROOT") - -i2 = VkNew -VK(i2).offsetX = 0 -VK(i2).offsetY = -1 * VkUnitStepY -VK(i2).parent = rt -VkReLabel i2, CHR$(26) -VK(i2).internal = 1 -VK(i2).role = "NSET" -p = page + 1 -VK(i2).state = p - -i2 = VkNew -VK(i2).offsetX = 0 -VK(i2).offsetY = -2 * VkUnitStepY -VK(i2).parent = rt -VkReLabel i2, CHR$(27) -VK(i2).internal = 1 -VK(i2).role = "PSET" -p = page - 1 -IF p < 1 THEN p = 1 -VK(i2).state = p - - -'a = -1000 - -DIM range(100, 1 TO 2) AS LONG - -r = 0 - -'key groups (first because they are more useful than individual keys) - -r = r + 1: range(r, 1) = -1001: range(r, 2) = range(r, 1) 'Set: Full KB -r = r + 1: range(r, 1) = -1000: range(r, 2) = range(r, 1) 'Set: F1-F12 -r = r + 1: range(r, 1) = -1002: range(r, 2) = range(r, 1) 'Set: Game Controller -r = r + 1: range(r, 1) = -1003: range(r, 2) = range(r, 1) 'Set: Arrow Pad -r = r + 1: range(r, 1) = -1004: range(r, 2) = range(r, 1) 'Set: WASD Pad -r = r + 1: range(r, 1) = -1005: range(r, 2) = range(r, 1) 'Set: Ins-Home-PageUp Del-End-PageDown -r = r + 1: range(r, 1) = -1006: range(r, 2) = range(r, 1) 'Set: Num Pad - - - - -'D-Pad -r = r + 1: range(r, 1) = 1000: range(r, 2) = 1004 'D-Pad - -'"safe"/essential ASCII (reordered for convenience) -r = r + 1: range(r, 1) = 97: range(r, 2) = 122 'a-z -r = r + 1: range(r, 1) = 48: range(r, 2) = 57 '0-9 -r = r + 1: range(r, 1) = 65: range(r, 2) = 90 'A-Z -r = r + 1: range(r, 1) = 32: range(r, 2) = 32 'SPACE -r = r + 1: range(r, 1) = 13: range(r, 2) = 13 'ENTER -r = r + 1: range(r, 1) = 8: range(r, 2) = 8 'BACKSPACE -r = r + 1: range(r, 1) = 9: range(r, 2) = 9 'TAB -r = r + 1: range(r, 1) = 33: range(r, 2) = 47 '" "-"/" -r = r + 1: range(r, 1) = 58: range(r, 2) = 64 '":"-"@" -r = r + 1: range(r, 1) = 91: range(r, 2) = 96 '"["-"`" -r = r + 1: range(r, 1) = 123: range(r, 2) = 126 '"{"-"~" -r = r + 1: range(r, 1) = 27: range(r, 2) = 27 'ESCAPE -r = r + 1: range(r, 1) = 1005: range(r, 2) = 1035 '(see below) -'arrow keys -'INSERT, etc -'F1-F12 -'standard modifier keys (SHIFT, ALT, etc) -'other special keys (Windows key, ...) - -'extended ASCII -r = r + 1: range(r, 1) = 127: range(r, 2) = 255 - -'"unsafe" ASCII (placed after all content to avoid confusion with arrows) -r = r + 1: range(r, 1) = 1: range(r, 2) = 7 -r = r + 1: range(r, 1) = 10: range(r, 2) = 12 -r = r + 1: range(r, 1) = 14: range(r, 2) = 26 -'r = r + 1: range(r, 1) = 28: range(r, 2) = 31-4 - - - -ranges = r -a = range(1, 1) - -FOR cpage = 1 TO page - FOR y = 0 TO -3 STEP -1 - FOR x = 1 TO 7 - - - IF cpage = page THEN - i2 = VkNew - VK(i2).offsetX = x * VkDefaultWidth + 1 - VK(i2).offsetY = y * VkUnitStepY - VK(i2).parent = rt - END IF - - IF a <= 255 AND a >= 0 THEN - - IF cpage = page THEN - VkReLabel i2, CHR$(a) - IF a = 32 THEN VkReLabel i2, "Space" - IF a = 13 THEN VkReLabel i2, "Enter" - IF a = 8 THEN VkReLabel i2, "Back Space" - IF a = 9 THEN VkReLabel i2, "Tab" - IF a = 0 THEN VkReLabel i2, "Null" - IF a = 7 THEN VkReLabel i2, "Bell" - IF a = 10 THEN VkReLabel i2, "Line Feed" - IF a = 11 THEN VkReLabel i2, "Vert Tab" - IF a = 12 THEN VkReLabel i2, "Form Feed" - IF a = 27 THEN VkReLabel i2, "Esc" - IF a = 255 THEN VkReLabel i2, "Nbsp" - VK(i2).event.keydown = a - END IF - - - - ELSE - - label$ = "?" - code = 63 - lockIsTemporary = 0 - locks = 0 - - - 'key sets - IF a = -1000 THEN label$ = "F1-F12": code = a - IF a = -1001 THEN label$ = "Full KB": code = a - IF a = -1002 THEN label$ = "Game Controller": code = a - IF a = -1003 THEN label$ = "Arrow Pad": code = a - IF a = -1004 THEN label$ = "WASD Pad": code = a - IF a = -1005 THEN label$ = "Ins-Home-PageUp Del-End-PageDown": code = a - IF a = -1006 THEN label$ = "Num Pad": code = a - - - - n = 1000 - 1 - - n = n + 1: IF a = n THEN label$ = "Virtual Joystick": code = -1 - - 'n = n + 1: IF a = n THEN label$ = CHR$(24) + "[UP-ARROW]": code = VK_KEY_UP - 'n = n + 1: IF a = n THEN label$ = CHR$(25) + "[DOWN-ARROW]": code = VK_KEY_DOWN - 'n = n + 1: IF a = n THEN label$ = CHR$(27) + "[LEFT-ARROW]": code = VK_KEY_LEFT - 'n = n + 1: IF a = n THEN label$ = CHR$(26) + "[RIGHT-ARROW]": code = VK_KEY_RIGHT - n = n + 1: IF a = n THEN label$ = CHR$(24): code = VK_KEY_UP - n = n + 1: IF a = n THEN label$ = CHR$(25): code = VK_KEY_DOWN - n = n + 1: IF a = n THEN label$ = CHR$(27): code = VK_KEY_LEFT - n = n + 1: IF a = n THEN label$ = CHR$(26): code = VK_KEY_RIGHT - - n = n + 1: IF a = n THEN label$ = "Ins": code = VK_KEY_INSERT - n = n + 1: IF a = n THEN label$ = "Del": code = VK_KEY_DELETE - n = n + 1: IF a = n THEN label$ = "Home": code = VK_KEY_HOME - n = n + 1: IF a = n THEN label$ = "End": code = VK_KEY_END - n = n + 1: IF a = n THEN label$ = "Page Up": code = VK_KEY_PAGE_UP - n = n + 1: IF a = n THEN label$ = "Page Down": code = VK_KEY_PAGE_DOWN - - - n = n + 1: IF a = n THEN label$ = "F1": code = VK_KEY_F1 - n = n + 1: IF a = n THEN label$ = "F2": code = VK_KEY_F2 - n = n + 1: IF a = n THEN label$ = "F3": code = VK_KEY_F3 - n = n + 1: IF a = n THEN label$ = "F4": code = VK_KEY_F4 - n = n + 1: IF a = n THEN label$ = "F5": code = VK_KEY_F5 - n = n + 1: IF a = n THEN label$ = "F6": code = VK_KEY_F6 - n = n + 1: IF a = n THEN label$ = "F7": code = VK_KEY_F7 - n = n + 1: IF a = n THEN label$ = "F8": code = VK_KEY_F8 - n = n + 1: IF a = n THEN label$ = "F9": code = VK_KEY_F9 - n = n + 1: IF a = n THEN label$ = "F10": code = VK_KEY_F10 - n = n + 1: IF a = n THEN label$ = "F11": code = VK_KEY_F11 - n = n + 1: IF a = n THEN label$ = "F12": code = VK_KEY_F12 - - n = n + 1 - IF a = n THEN - label$ = "Shift (Left)" - code = VK_KEY_LSHIFT - locks = 1: lockIsTemporary = 1 - END IF - n = n + 1 - IF a = n THEN - label$ = "Shift (Right)" - code = VK_KEY_RSHIFT - locks = 1: lockIsTemporary = 1 - END IF - n = n + 1 - IF a = n THEN - label$ = "Ctrl (Left)" - code = VK_KEY_LCTRL - locks = 1: lockIsTemporary = 1 - END IF - n = n + 1 - IF a = n THEN - label$ = "Ctrl (Right)" - code = VK_KEY_RCTRL - locks = 1: lockIsTemporary = 1 - END IF - - n = n + 1 - IF a = n THEN - label$ = "Alt (Left)" - code = VK_KEY_LALT - locks = 1: lockIsTemporary = 1 - END IF - n = n + 1 - IF a = n THEN - label$ = "Alt (Right)" - code = VK_KEY_RALT - locks = 1: lockIsTemporary = 1 - END IF - - n = n + 1 - IF a = n THEN - label$ = "Caps Lock" - code = VK_KEY_CAPSLOCK - locks = 1 - END IF - n = n + 1 - IF a = n THEN - label$ = "Num Lock" - code = VK_KEY_NUMLOCK - locks = 1 - END IF - n = n + 1 - IF a = n THEN - label$ = "Scr Lock" - code = VK_KEY_SCROLLOCK - locks = 1 - END IF - - n = n + 1: IF a = n THEN label$ = "Win (Left)": code = VK_KEY_LSUPER - n = n + 1: IF a = n THEN label$ = "Win (Right)": code = VK_KEY_RSUPER - n = n + 1: IF a = n THEN label$ = "Apple (Left)": code = VK_KEY_LMETA - n = n + 1: IF a = n THEN label$ = "Apple (Right)": code = VK_KEY_RMETA - - 'SCREEN 2 - 'PRINT n-1 - - - - 'CONST KEY_KP0& = 100256 - 'CONST KEY_KP1& = 100257 - 'CONST KEY_KP2& = 100258 - 'CONST KEY_KP3& = 100259 - 'CONST KEY_KP4& = 100260 - 'CONST KEY_KP5& = 100261 - 'CONST KEY_KP6& = 100262 - 'CONST KEY_KP7& = 100263 - 'CONST KEY_KP8& = 100264 - 'CONST KEY_KP9& = 100265 - 'CONST KEY_KP_PERIOD& = 100266 - 'CONST KEY_KP_DIVIDE& = 100267 - 'CONST KEY_KP_MULTIPLY& = 100268 - 'CONST KEY_KP_MINUS& = 100269 - 'CONST KEY_KP_PLUS& = 100270 - 'CONST KEY_KP_ENTER& = 100271 - 'CONST KEY_KP_INSERT& = 200000 - 'CONST KEY_KP_END& = 200001 - 'CONST KEY_KP_DOWN& = 200002 - 'CONST KEY_KP_PAGE_DOWN& = 200003 - 'CONST KEY_KP_LEFT& = 200004 - 'CONST KEY_KP_MIDDLE& = 200005 - 'CONST KEY_KP_RIGHT& = 200006 - 'CONST KEY_KP_HOME& = 200007 - 'CONST KEY_KP_UP& = 200008 - 'CONST KEY_KP_PAGE_UP& = 200009 - 'CONST KEY_KP_DELETE& = 200010 - - size = LEN(label$) - - text$ = label$ - IF INSTR(text$, " ") THEN - text2$ = RIGHT$(text$, LEN(text$) - INSTR(text$, " ")) - text$ = LEFT$(text$, INSTR(text$, " ") - 1) - IF LEN(text2$) > LEN(text$) THEN size = LEN(text2$) ELSE size = LEN(text$) - END IF - - - IF size > 5 THEN - x = x + (size - 5) \ 5 + 1 - IF cpage = page THEN VK(i2).w = VkDefaultWidth + ((size - 5) \ 5 + 1) * VkDefaultWidth - END IF - - IF cpage = page THEN - VkReLabel i2, label$ - VK(i2).event.keydown = code - VK(i2).lockIsTemporary = lockIsTemporary - VK(i2).locks = locks - END IF - END IF - - IF cpage = page THEN - VK(i2).internal = 1 - VK(i2).role = "VALU" - END IF - - 'END IF - - a = a + 1 - - FOR r = 0 TO ranges - IF range(r, 2) + 1 = a THEN - IF r = ranges THEN noMore = 1 ELSE a = range(r + 1, 1) - EXIT FOR - END IF - NEXT - - IF noMore THEN EXIT SUB - - NEXT - NEXT -NEXT -END SUB - - - - -SUB VkPress (i) - - -role$ = VK(i).role - -IF role$ = "ROOT" THEN - VkAddShiftedKey = 0 - IF VK(i).locked = 0 THEN - VK(i).held = 1 - VK(i).locked = 1 - - VkResetMenu - - ELSE - 'remove all internal keys - VkRemoveInternal - VK(i).locked = 0 - END IF - EXIT SUB - -END IF - -IF role$ = "AA.." THEN - IF VkSelectedKey <> 0 THEN - IF VK(VkSelectedKey).event.keydown >= 0 THEN - VkAddShiftedKey = 0 - VkSelectKey VkDefaultSelectKeyPage - END IF - END IF - EXIT SUB -END IF - -IF role$ = "^AA." THEN - IF VkSelectedKey <> 0 THEN - IF VK(VkSelectedKey).event.keydown >= 0 THEN - VkAddShiftedKey = 1 - VkSelectKey VkDefaultSelectKeyPage - END IF - END IF - EXIT SUB -END IF - -IF role$ = "ADDK" THEN - VkSelectedKey = 0 - VkAddShiftedKey = 0 - VkSelectKey VkDefaultSelectKeyPage - EXIT SUB -END IF - -IF role$ = "DELK" THEN - i2 = VkSelectedKey - IF i2 <> 0 THEN - 'if this is a parent handle, all children need to be detached first - IF VK(i2).event.keydown = -2 THEN 'keyset handle - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).parent = 0 - VK(i3).offsetX = 0 - VK(i3).offsetY = 0 - END IF - END IF - NEXT - END IF - VkRemove i2 - VkSelectedKey = 0 - VkResetMenu - END IF - EXIT SUB -END IF - - -IF role$ = "DSET" THEN - i2 = VkSelectedKey - hasChildren = 0 - IF i2 <> 0 THEN - 'if this is a parent handle, all children need to be deleted first - IF VK(i2).event.keydown = -2 THEN 'keyset handle - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - IF VK(i3).parent = i2 THEN - VkRemove i3 - hasChildren = 1 - END IF - END IF - NEXT - END IF - IF hasChildren THEN - VkRemove i2 - VkSelectedKey = 0 - VkResetMenu - END IF - END IF - EXIT SUB -END IF - -IF role$ = "DALL" THEN - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - IF VK(i3).internal = 0 THEN - VkRemove i3 - END IF - END IF - NEXT - VkSelectedKey = 0 - VkResetMenu - EXIT SUB -END IF - -IF role$ = "EDIT" THEN - IF VK(i).locked = 1 THEN - VkResetMenu - ELSE - VkHide = 0 'do not hide keybaord when editing - VkResetMenu - i = VkByRole(role$) - VK(i).locked = 1 - - ox = VK(i).offsetX - - oy = 0 - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Add Keys" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "ADDK" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Del Key" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "DELK" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Del Set" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "DSET" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Del All" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "DALL" - VK(i2).w = VkNewKeySize - - - END IF - VkReDraw = 1 - EXIT SUB -END IF 'edit - -IF role$ = "HIDE" THEN - VkHide = -1 - VkResetMenu - VkPress VkByRole("ROOT") - EXIT SUB -END IF -IF role$ = "SHOW" THEN - VkHide = 0 - VkResetMenu - VkPress VkByRole("ROOT") - EXIT SUB -END IF - -IF role$ = "SAVE" THEN - VkSave - VkResetMenu -END IF - -IF role$ = "FILE" THEN - IF VK(i).locked = 1 THEN - VkResetMenu - ELSE - VkHide = 0 'do not hide keybaord when editing - VkResetMenu - i = VkByRole(role$) - VK(i).locked = 1 - - ox = VK(i).offsetX - oy = 0 - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Save" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "SAVE" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Reset" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "RSET" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Exit" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "EXIT" - VK(i2).w = VkNewKeySize - - END IF - VkReDraw = 1 - EXIT SUB -END IF 'FILE - -IF role$ = "EXIT" THEN - 'remove ALL keys, even root keys - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - VkRemove i3 - END IF - NEXT - VkSelectedKey = 0 - VkExiting=1 - EXIT SUB -END IF - -IF role$ = "RSET" THEN - 'remove all keys - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - IF VK(i3).internal = 0 THEN - VkRemove i3 - END IF - END IF - NEXT - VkSelectedKey = 0 - 'load default layout (if one exists) - VkFile$="" - if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_default.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_default.txt" - if VkFile$<>"" then - fh = FREEFILE - OPEN VkFile$ FOR INPUT AS #fh - LINE INPUT #fh, json$ - CLOSE #fh - root = QB_NODESET_deserialize(json$, "json") - DIM oldVkWidthInUnits AS LONG - oldVkWidthInUnits=VkWidthInUnits - VkWidthInUnits=90 - DIM rootValueNode AS LONG - rootValueNode=QB_NODE_withLabel(root, "width") - if rootValueNode then VkWidthInUnits=QB_NODE_valueOfLabel_long(root, "width") - if VkWidthInUnits<>oldVkWidthInUnits then - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - VK(i3).reDraw = 1 - END IF - NEXT - VkReset = 1 - END IF - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(root), "keys")), 0 - QB_NODE_destroy root - end if - VkResetMenu - EXIT SUB -END IF - -IF role$ = "SCUP" THEN - VkWidthInUnits=VkWidthInUnits-6 - if VkWidthInUnits<90-6*7 then VkWidthInUnits=90-6*7 - 'force all keys to be redrawn - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - VK(i3).reDraw = 1 - END IF - NEXT - VkReset = 1 - EXIT SUB -END IF - -IF role$ = "SCDN" THEN - VkWidthInUnits=VkWidthInUnits+6 - if VkWidthInUnits>90+6*20 then VkWidthInUnits=90+6*20 - 'force all keys to be redrawn - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - VK(i3).reDraw = 1 - END IF - NEXT - VkReset = 1 - EXIT SUB -END IF - -IF role$ = "BIGR" THEN - i2 = VkSelectedKey - IF i2 <> 0 THEN - IF VK(i2).event.keydown >= 0 THEN - VK(i2).w = VK(i2).w + 1 - VK(i2).reDraw = 1 - END IF - END IF - EXIT SUB -END IF - -IF role$ = "SMLR" THEN - i2 = VkSelectedKey - IF i2 <> 0 THEN - IF VK(i2).event.keydown >= 0 THEN - VK(i2).w = VK(i2).w - 1 - IF VK(i2).w < 2 THEN VK(i2).w = 2 - VK(i2).reDraw = 1 - END IF - END IF - EXIT SUB -END IF - -IF role$ = "SIZE" THEN - IF VK(i).locked = 1 THEN - VkResetMenu - ELSE - VkHide = 0 'do not hide keybaord when editing - VkResetMenu - i = VkByRole(role$) - VK(i).locked = 1 - - ox = VK(i).offsetX - - oy = 0 - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, chr$(17) + chr$(196) + chr$(196) + chr$(16) - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "BIGR" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, chr$(196) + chr$(16) + chr$(17) + chr$(196) - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "SMLR" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Scale Up" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "SCUP" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Scale Down" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "SCDN" - VK(i2).w = VkNewKeySize - - END IF - VkReDraw = 1 - EXIT SUB -END IF 'SIZE - - - -IF role$ = "ABC." THEN - IF VK(i).locked = 1 THEN - VkResetMenu - ELSE - VkHide = 0 'do not hide keybaord when editing - VkResetMenu - i = VkByRole(role$) - VK(i).locked = 1 - - ox = VK(i).offsetX - - oy = 0 - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Aa..." - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "AA.." - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Aa... ^^" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "^AA." - VK(i2).w = VkNewKeySize - - END IF - VkReDraw = 1 - EXIT SUB -END IF 'ABC. - - -IF role$ = "TYPE" THEN - IF VK(i).locked = 1 THEN - VkResetMenu - ELSE - VkHide = 0 'do not hide keybaord when editing - VkResetMenu - i = VkByRole(role$) - VK(i).locked = 1 - - ox = VK(i).offsetX - - oy = 0 - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Locks" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "LOCK" - VK(i2).w = VkNewKeySize - - oy = oy + 1 - i2 = VkNew - VkReLabel i2, "Waits Press" - VK(i2).parent = VK(i).parent - VK(i2).offsetX = ox - VK(i2).offsetY = -oy * VkUnitStepY - VK(i2).internal = 1 - VK(i2).role = "STKY" - VK(i2).w = VkNewKeySize - - END IF - VkReDraw = 1 - EXIT SUB -END IF 'TYPE - - - -'IF role$ = "IMOD" THEN -' IF VK(i).locked = 1 THEN -' VkResetMenu -' ELSE -' VkResetMenu -' i = VkByRole(role$) -' VK(i).locked = 1 -' ox = VK(i).offsetX -' oy = 0 -' -' oy = oy + 1 -' i2 = VkNew -' VkReLabel i2, "Share Input" -' VK(i2).parent = VK(i).parent -' VK(i2).offsetX = ox -' VK(i2).offsetY = -oy * VkUnitStepY -' VK(i2).internal = 1 -' VK(i2).locks = 1 -' IF VkSharedInputMode <> 0 THEN VK(i2).locked = 1 -' VK(i2).role = "IMSH" -' VK(i2).w = VkNewKeySize -' -' oy = oy + 1 -' i2 = VkNew -' VkReLabel i2, "Excl- usive" -' VK(i2).parent = VK(i).parent -' VK(i2).offsetX = ox -' VK(i2).offsetY = -oy * VkUnitStepY -' VK(i2).internal = 1 -' VK(i2).locks = 1 -' IF VkSharedInputMode = 0 THEN VK(i2).locked = 1 -' VK(i2).role = "IMEX" -' VK(i2).w = VkNewKeySize -' -' END IF -' VkReDraw = 1 -' EXIT SUB -'END IF 'TYPE - -'IF role$ = "IMSH" THEN -' i3 = VkByRole("IMSH") -' VK(i3).locked = 1 -' i3 = VkByRole("IMEX") -' VK(i3).locked = 0 -' VkSharedInputMode = -1 -' VkReDraw = 1 -' DO WHILE func__mouseinput_exclusive: LOOP -' DO WHILE _MOUSEINPUT: LOOP -' mouseinput_mode 0 -' EXIT SUB -'END IF - -'IF role$ = "IMEX" THEN -' i3 = VkByRole("IMSH") -' VK(i3).locked = 0 -' i3 = VkByRole("IMEX") -' VK(i3).locked = 1 -' VkSharedInputMode = 0 -' VkReDraw = 1 -' DO WHILE func__mouseinput_exclusive: LOOP -' DO WHILE _MOUSEINPUT: LOOP -' mouseinput_mode 1 -' EXIT SUB -'END IF - -IF VK(i).role = "NSET" OR VK(i).role = "PSET" THEN - page = VK(i).state - VkSelectKey page - EXIT SUB -END IF - -IF VK(i).role = "USER" THEN - rt = VkByRole("ROOT") - IF VK(rt).locked <> 0 THEN - - 'select key - VkSelectedKey = i - VkReDraw = 1 - EXIT SUB - - END IF - - EXIT SUB -END IF - - -IF VK(i).role = "VALU" THEN - - - i3 = VkByRole("ROOT") - - IF VK(i).event.keydown <= -1000 THEN 'Full KB - 'add parent (handle) key - i2 = VkNew - VK(i2).x = VK(i3).x + VkDefaultWidth * 0 + 1 - VK(i2).y = VK(i3).y - VkDefaultWidth * 1 - VkReLabel i2, CHR$(240) - VK(i2).role = "USER" - VK(i2).h = CINT(VkUnitStepY / 2) - VK(i2).event.keydown = -2 'a "keySet" - END IF - - - IF VK(i).event.keydown = -1004 THEN 'WASD Pad - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qa\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_A\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qd\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_D\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qw\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_W\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qs\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_S\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 1 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - - - IF VK(i).event.keydown = -1003 THEN 'Arrow Pad - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2192\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RIGHT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2190\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LEFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2193\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DOWN\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2191\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UP\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 1 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - - 'Ins-Home-PageUp Del-End-PageDown - IF VK(i).event.keydown = -1005 THEN 'Ins-Home-PageUp Del-End-PageDown - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qPage Down\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_PAGE_DOWN\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qPage Up\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_PAGE_UP\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qEnd\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_END\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qHome\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_HOME\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qDel\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DELETE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qIns\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_INSERT\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 2 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - IF VK(i).event.keydown = -1006 THEN 'Num Pad - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q5\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_5\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q4\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_4\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q3\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_3\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q2\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_2\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q1\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_1\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:12,\qheight\q:6,\qlabel\q:\q0\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_0\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q6\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_6\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q7\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_7\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q8\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_8\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q/\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_FORWARD_SLASH\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q*\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_STAR\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:18,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:12,\qlabel\q:\q+\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_PLUS\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:18,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q-\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_MINUS\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qBack Space\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_BACKSPACE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:18,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:12,\qlabel\q:\qEnter\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_ENTER\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q9\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_9\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q.\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DOT\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 5 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - - - - - IF VK(i).event.keydown = -1002 THEN 'Game Controller - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:70,\qoffsetY\q:18,\qwidth\q:20,\qheight\q:6,\qlabel\q:\qR\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UCASE_R\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:18,\qwidth\q:20,\qheight\q:6,\qlabel\q:\qL\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UCASE_L\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:75,\qoffsetY\q:0,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qB\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UCASE_B\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:80,\qoffsetY\q:6,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qA\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UCASE_A\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:75,\qoffsetY\q:12,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qX\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UCASE_X\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:70,\qoffsetY\q:6,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qY\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UCASE_Y\q}}},{\qtype\q:\qjoystick\q,\qoffsetX\q:6,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qVirtual Joystick\q,\qevents\q:{\qup\q:{\qkeyCode\q:\qKEY_UP\q},\qdown\q:{\qkeyCode\q:\qKEY_DOWN\q},\qleft\q:{\qkeyCode\q:\qKEY_LEFT\q},\qright\q:{\qkeyCode\q:\qKEY_RIGHT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:33,\qoffsetY\q:6,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qSpace\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_SPACE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:48,\qoffsetY\q:6,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qEnter\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_ENTER\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 4 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - - IF VK(i).event.keydown = -1001 THEN 'Full KB - 'no shifted characters: - 'json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q`\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_REVERSE_APOSTROPHE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q1\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_1\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:9,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qq\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_Q\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:15,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qw\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_W\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:21,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qe\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_E\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:27,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qr\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_R\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:33,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qt\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_T\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:39,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qy\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_Y\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:45,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qu\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_U\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:51,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qi\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_I\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:57,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qo\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_O\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:63,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qp\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_P\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:69,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q[\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_OPEN_BRACKET_SQUARE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:75,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q]\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_CLOSE_BRACKET_SQUARE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q2\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_2\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:11,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qa\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_A\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:17,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qs\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_S\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:23,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qd\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_D\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:29,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qf\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_F\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:35,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qg\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_G\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:41,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qh\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_H\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:47,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qj\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_J\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:53,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qk\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_K\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:59,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\ql\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_L\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:65,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q;\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_SEMICOLON\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:71,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q'\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_APOSTROPHE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:81,\qoffsetY\q:18,\qwidth\q:9,\qheight\q:6,\qlabel\q:\q\\\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_BACK_SLASH\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:77,\qoffsetY\q:12,\qwidth\q:13,\qheight\q:6,\qlabel\q:\qEnter\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_ENTER\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:14,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qz\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_Z\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:20,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qx\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_X\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:26,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qc\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_C\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:32,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qv\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_V\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:38,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qb\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_B\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:44,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qn\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_N\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:50,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qm\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_M\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:56,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q,\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_COMMA\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:62,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q.\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DOT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:68,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q/\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_FORWARD_SLASH\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:74,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2191\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UP\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:80,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2192\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RIGHT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:68,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2190\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LEFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:74,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2193\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DOWN\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:80,\qoffsetY\q:6,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qShift\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RSHIFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:59,\qoffsetY\q:0,\qwidth\q:9,\qheight\q:6,\qlabel\q:\qAlt\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RALT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:17,\qoffsetY\q:0,\qwidth\q:8,\qheight\q:6,\qlabel\q:\qAlt\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LALT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:9,\qoffsetY\q:0,\qwidth\q:8,\qheight\q:6,\qlabel\q:\q\u2302\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LSUPER\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:9,\qheight\q:6,\qlabel\q:\qCtrl\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCTRL\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:24,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q4\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_4\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:18,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q3\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_3\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:30,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q5\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_5\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:36,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q6\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_6\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:42,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q7\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_7\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:48,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q8\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_8\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:54,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q9\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_9\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:60,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q0\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_0\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:66,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q-\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_MINUS\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:72,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q=\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_EQUAL\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:84,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qBack Space\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_BACKSPACE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:78,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q+\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_PLUS\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:18,\qwidth\q:9,\qheight\q:6,\qlabel\q:\qTab\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_TAB\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:12,\qwidth\q:11,\qheight\q:6,\qlabel\q:\qCaps Lock\q,\qlocks\q:true,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_CAPSLOCK\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:6,\qwidth\q:14,\qheight\q:6,\qlabel\q:\qShift\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LSHIFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:86,\qoffsetY\q:0,\qwidth\q:4,\qheight\q:6,\qlabel\q:\qEsc\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_ESCAPE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:25,\qoffsetY\q:0,\qwidth\q:34,\qheight\q:6,\qlabel\q:\q\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_SPACE\q}}}]}" - 'with shifted characters: - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q`\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_REVERSE_APOSTROPHE\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_TILDE\q,\qlabel\q:\q~\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q1\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_1\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_EXCLAMATION\q,\qlabel\q:\q!\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:9,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qq\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_Q\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_Q\q,\qlabel\q:\qQ\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:15,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qw\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_W\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_W\q,\qlabel\q:\qW\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:21,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qe\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_E\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_E\q,\qlabel\q:\qE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:27,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qr\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_R\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_R\q,\qlabel\q:\qR\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:33,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qt\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_T\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_T\q,\qlabel\q:\qT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:39,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qy\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_Y\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_Y\q,\qlabel\q:\qY\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:45,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qu\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_U\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_U\q,\qlabel\q:\qU\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:51,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qi\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_I\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_I\q,\qlabel\q:\qI\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:57,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qo\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_O\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_O\q,\qlabel\q:\qO\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:63,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qp\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_P\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_P\q,\qlabel\q:\qP\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:69,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q[\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_OPEN_BRACKET_SQUARE\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_OPEN_BRACKET_CURLY\q,\qlabel\q:\q{\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:75,\qoffsetY\q:18,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q]\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_CLOSE_BRACKET_SQUARE\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_CLOSE_BRACKET_CURLY\q,\qlabel\q:\q}\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q2\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_2\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_AT\q,\qlabel\q:\q@\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:11,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qa\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_A\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_A\q,\qlabel\q:\qA\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:17,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qs\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_S\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_S\q,\qlabel\q:\qS\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:23,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qd\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_D\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_D\q,\qlabel\q:\qD\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:29,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qf\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_F\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_F\q,\qlabel\q:\qF\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:35,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qg\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_G\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_G\q,\qlabel\q:\qG\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:41,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qh\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_H\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_H\q,\qlabel\q:\qH\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:47,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qj\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_J\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_J\q,\qlabel\q:\qJ\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:53,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qk\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_K\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_K\q,\qlabel\q:\qK\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:59,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\ql\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_L\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_L\q,\qlabel\q:\qL\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:65,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q;\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_SEMICOLON\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_COLON\q,\qlabel\q:\q:\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:71,\qoffsetY\q:12,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q'\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_APOSTROPHE\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_QUOTE\q,\qlabel\q:\q\\q\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:81,\qoffsetY\q:18,\qwidth\q:9,\qheight\q:6,\qlabel\q:\q\\\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_BACK_SLASH\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_VERTICAL_BAR\q,\qlabel\q:\q|\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:77,\qoffsetY\q:12,\qwidth\q:13,\qheight\q:6,\qlabel\q:\qEnter\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_ENTER\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:14,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qz\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_Z\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_Z\q,\qlabel\q:\qZ\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:20,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qx\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_X\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_X\q,\qlabel\q:\qX\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:26,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qc\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_C\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_C\q,\qlabel\q:\qC\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:32,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qv\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_V\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_V\q,\qlabel\q:\qV\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:38,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qb\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_B\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_B\q,\qlabel\q:\qB\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:44,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qn\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_N\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_N\q,\qlabel\q:\qN\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:50,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qm\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCASE_M\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UCASE_M\q,\qlabel\q:\qM\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:56,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q,\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_COMMA\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_LESS_THAN\q,\qlabel\q:\q<\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:62,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q.\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DOT\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_GREATER_THAN\q,\qlabel\q:\q>\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:68,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q/\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_FORWARD_SLASH\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_QUESTION\q,\qlabel\q:\q?\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:74,\qoffsetY\q:6,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2191\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_UP\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:80,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2192\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RIGHT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:68,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2190\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LEFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:74,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q\u2193\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_DOWN\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:80,\qoffsetY\q:6,\qwidth\q:10,\qheight\q:6,\qlabel\q:\qShift\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RSHIFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:59,\qoffsetY\q:0,\qwidth\q:9,\qheight\q:6,\qlabel\q:\qAlt\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_RALT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:17,\qoffsetY\q:0,\qwidth\q:8,\qheight\q:6,\qlabel\q:\qAlt\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LALT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:9,\qoffsetY\q:0,\qwidth\q:8,\qheight\q:6,\qlabel\q:\q\u2302\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LSUPER\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:9,\qheight\q:6,\qlabel\q:\qCtrl\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LCTRL\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:24,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q4\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_4\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_DOLLAR\q,\qlabel\q:\q$\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:18,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q3\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_3\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_HASH\q,\qlabel\q:\q#\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:30,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q5\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_5\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_PERCENT\q,\qlabel\q:\q%\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:36,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q6\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_6\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_CARET\q,\qlabel\q:\q^\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:42,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q7\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_7\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_AND\q,\qlabel\q:\q&\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:48,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q8\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_8\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_STAR\q,\qlabel\q:\q*\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:54,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q9\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_9\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_OPEN_BRACKET\q,\qlabel\q:\q(\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:60,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q0\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_0\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_CLOSE_BRACKET\q,\qlabel\q:\q)\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:66,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q-\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_MINUS\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_UNDERSCORE\q,\qlabel\q:\q_\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:72,\qoffsetY\q:24,\qwidth\q:6,\qheight\q:6,\qlabel\q:\q=\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_EQUAL\q},\qkeydownWithShift\q:{\qkeyCode\q:\qKEY_PLUS\q,\qlabel\q:\q+\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:78,\qoffsetY\q:24,\qwidth\q:12,\qheight\q:6,\qlabel\q:\qBack Space\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_BACKSPACE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:18,\qwidth\q:9,\qheight\q:6,\qlabel\q:\qTab\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_TAB\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:12,\qwidth\q:11,\qheight\q:6,\qlabel\q:\qCaps Lock\q,\qlocks\q:true,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_CAPSLOCK\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:6,\qwidth\q:14,\qheight\q:6,\qlabel\q:\qShift\q,\qlocks\q:true,\qlockIsTemporary\q:true,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_LSHIFT\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:86,\qoffsetY\q:0,\qwidth\q:4,\qheight\q:6,\qlabel\q:\qEsc\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_ESCAPE\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:25,\qoffsetY\q:0,\qwidth\q:34,\qheight\q:6,\qlabel\q:\q\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_SPACE\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 5 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - IF VK(i).event.keydown = -1000 THEN 'F1-F12 - json$ = "{\qkeys\q:[{\qtype\q:\qkey\q,\qoffsetX\q:66,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF12\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F12\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:60,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF11\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F11\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:54,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF10\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F10\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:48,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF9\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F9\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:42,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF8\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F8\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:36,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF7\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F7\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:30,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF6\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F6\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:24,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF5\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F5\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:18,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF4\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F4\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:12,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF3\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F3\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:6,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF2\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F2\q}}},{\qtype\q:\qkey\q,\qoffsetX\q:0,\qoffsetY\q:0,\qwidth\q:6,\qheight\q:6,\qlabel\q:\qF1\q,\qlocks\q:false,\qlockIsTemporary\q:false,\qevents\q:{\qkeydown\q:{\qkeyCode\q:\qKEY_F1\q}}}]}" - keyset = QB_NODESET_deserialize(VkGetQuotedString(json$), "json") - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(keyset), "keys")), i2 - FOR i3 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i3).parent = i2 THEN - VK(i3).offsetY = VK(i3).offsetY - VkDefaultWidth * 1 - END IF - END IF - NEXT - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - VkSelectedKey = i2 - EXIT SUB - END IF - - addingNewKey = 0 - IF VkSelectedKey <> 0 THEN - i2 = VkSelectedKey - ELSE - addingNewKey = 1 - i2 = VkNew - VK(i2).x = VK(i3).x + VkDefaultWidth * 0 + 1 - VK(i2).y = VK(i3).y - VkDefaultWidth * 1 - END IF - - - - ' hasShiftedEvent AS LONG - ' shiftedEvent AS VKEY_EVENT 'eg. when shifted or caps lock is on - ' shiftedLabel AS STRING * 100 - 'VkAddShiftedKey - - label$ = RTRIM$(VK(i).label) - IF INSTR(label$, " (") > 1 AND INSTR(label$, ")") > 1 THEN - 'strip meta info - label$ = LEFT$(label$, INSTR(label$, " (") - 1) - END IF - - IF VkAddShiftedKey THEN - VkAddShiftedKey = 0 - VK(i2).hasShiftedEvent = 1 - VkReLabelShifted i2, label$ - VK(i2).shiftedEvent.keydown = VK(i).event.keydown - ELSE - VkReLabel i2, label$ - VK(i2).event.keydown = VK(i).event.keydown - VK(i2).locks = VK(i).locks - VK(i2).lockIsTemporary = VK(i).lockIsTemporary - END IF - - 'for a-z & A-Z automatically add their shifted key codes - IF addingNewKey <> 0 AND VkAddShiftedKey = 0 THEN - keyCode = VK(i).event.keydown - shiftedKeyCode = keyCode - IF keyCode >= 97 AND keyCode <= 122 THEN shiftedKeyCode = keyCode - 32 - IF keyCode >= 65 AND keyCode <= 90 THEN shiftedKeyCode = keyCode + 32 - IF shiftedKeyCode <> keyCode THEN - VK(i2).hasShiftedEvent = 1 - VK(i2).shiftedEvent.keydown = shiftedKeyCode - VK(i2).shiftedLabel = CHR$(shiftedKeyCode) - END IF - END IF - - VK(i2).role = "USER" - - VkPress (VkByRole("ROOT")) - VkPress (VkByRole("ROOT")) - - VkSelectedKey = i2 - EXIT SUB -END IF - -END SUB - -FUNCTION VkNew -VkReDraw = 1 -i2 = 0 -FOR i = 1 TO VkLast - IF VK(i).active = 0 THEN - i2 = i - END IF -NEXT -IF i2 = 0 THEN i2 = i: VkLast = i -i = i2 -VK(i) = VkEmpty -VK(i).active = 1 -VK(i).x = 0 -VK(i).y = 0 -VK(i).w = VkDefaultWidth -VK(i).h = VkUnitStepY -VK(i).role = "UNKN" -VkNew = i -END FUNCTION - -SUB VkRemove (i) -VkReDraw = 1 -VK(i).active = 0 -IF VK(i).image THEN _FREEIMAGE VK(i).image -IF VK(i).subImage THEN _FREEIMAGE VK(i).subImage -IF VK(i).highlightImage THEN _FREEIMAGE VK(i).highlightImage -IF VK(i).selectedImage THEN _FREEIMAGE VK(i).selectedImage -END SUB - -SUB VkRemoveInternal -FOR i = 1 TO VkLast - IF VK(i).active THEN - IF VK(i).internal THEN - IF VK(i).role <> "ROOT" THEN - VkRemove i - END IF - END IF - END IF -NEXT -END SUB - -FUNCTION VkByRole (role$) -FOR i = 1 TO VkLast - IF VK(i).active = 1 THEN - IF VK(i).role = role$ THEN VkByRole = i: EXIT FUNCTION - END IF -NEXT -END FUNCTION - -SUB VkLongPress (i) -'avoid using long press for now because Windows delays MOUSEDOWN to MOUSEUP on touch -VkPress i -END SUB - -SUB VkKeyRepeat (i) -keydown VK(i).keyRepeatKeyCode -VK(i).lastKeydownTime = TIMER -VK(i).keyRepeatCount = VK(i).keyRepeatCount + 1 -END SUB - -SUB VkKeyDown (i) -VkReDraw = 1 -'called whenever user key down -IF VK(i).internal = 0 THEN - rt = VkByRole("ROOT") - IF VK(rt).locked = 0 THEN 'not in edit mode - - - keydownvalue = VK(i).event.keydown - IF VK(i).hasShiftedEvent THEN - IF VkShiftInEffect THEN keydownvalue = VK(i).shiftedEvent.keydown - END IF - - IF keydownvalue <> 0 THEN - - IF VK(i).locks <> 0 OR VK(i).lockIsTemporary <> 0 THEN - - IF VK(i).locked <> 0 THEN - keyup keydownvalue - VK(i).locked = 0 - VK(i).held = 0 - ELSE - keydown keydownvalue - VK(i).locked = 1 - VK(i).held = 1 - END IF - ELSE - VK(i).held = 1 - keydown keydownvalue - VK(i).lastKeydownTime = TIMER - VK(i).keyRepeatKeyCode = keydownvalue - VK(i).keyRepeatCount = 0 - END IF - END IF - END IF - - IF VK(i).locks = 0 THEN - FOR i2 = 1 TO VkLast - IF VK(i2).active THEN - IF VK(i2).internal = 0 THEN - IF i <> i2 THEN - IF VK(i2).locks THEN - IF VK(i2).locked THEN - IF VK(i2).lockIsTemporary THEN - VkKeyDown i2 - END IF - END IF - END IF - END IF - END IF - END IF - NEXT - END IF - -ELSE - VK(i).held = 1 -END IF - - - - - - -END SUB - -SUB VkKeyUp (i) -VkReDraw = 1 -'called whenever user key down -IF VK(i).internal = 0 THEN - rt = VkByRole("ROOT") - IF VK(rt).locked = 0 THEN 'not in edit mode - - - keydownvalue = VK(i).event.keydown - IF VK(i).hasShiftedEvent THEN - IF VkShiftInEffect THEN keydownvalue = VK(i).shiftedEvent.keydown - END IF - - - IF keydownvalue <> 0 THEN - IF VK(i).locks <> 0 OR VK(i).lockIsTemporary <> 0 THEN - 'do nothing - ELSE - keyup keydownvalue - VK(i).held = 0 - END IF - END IF - END IF -ELSE - VK(i).held = 0 -END IF -END SUB - -SUB VkUpdate - -if VkDelay>0 then - VkTimeNow#=TIMER(0.001) - if VkTimeNow#=VkDelayStartTime+VkDelay THEN VkDelay=0 - exit sub -end if - -if vkExited then - DO WHILE _MOUSEINPUT(VkMousePipe) - _MOUSEINPUTPIPE VkMousePipe - LOOP - exit sub -end if - -if VkExiting=1 then VkExiting=2 - -subOldDest = _DEST -subOldSource = _SOURCE - -reDraw = VkReDraw -VkReDraw = 0 - -IF reDraw THEN - 'SOUND 1000, .1 -END IF - -STATIC VkI -STATIC VKoldX -STATIC VKoldY -STATIC VKdragging -STATIC VKstart - -STATIC mDownX -STATIC mDownY -STATIC omb - -STATIC mb, mx, my - -STATIC sx, sy - -STATIC VkInit - -'theme colors -'for user keys: -textCol& = _RGBA32(255, 255, 255, 192) -borderCol& = _RGBA32(32, 32, 32, 192) -borderSelectedCol& = _RGBA32(255, 255, 255, 192) -bgCol& = _RGBA32(96, 96, 96, 128) -bgHighlightCol& = _RGBA32(128, 128, 128, 128) - - -'for customization: -InternalTextCol& = _RGBA32(255, 255, 255, 255) -InternalBorderCol& = _RGBA32(255, 255, 255, 192) -InternalBgCol& = _RGBA32(0, 0, 0, 192) -InternalBgHighlightCol& = _RGBA32(128, 128, 128, 128) - -'Init is done once -IF VkInit = 0 THEN - VkWidthInUnits = 90 'default width in units (may be changed by loading a layout) - VkReset = 1 -END IF - -winX = _SCALEDWIDTH -winY = _SCALEDHEIGHT - -IF winX <> VkWinX OR winY <> VkWinY THEN - 'store new resolution - VkWinX = winX - VkWinY = winY - 'clear overlay image (if one exists yet) - if VkOverlay then - _PUTIMAGE , VkClearTex, VkOverlay - end if - 'beging a delay (wait until screen has fully repositioned) - VkDelayStartTime=TIMER(0.001) - VkDelay=1 - VkDelayedReset=1 - exit sub -END IF - -if VkDelayedReset=1 then - VkDelayedReset=0 - VkReset = 1 -end if - -'Reset occurs whenever the screen size changes -IF VkReset = 1 THEN - VkReset = 0 - - 'get new dimensions - VkWinX = winX - VkWinY = winY - - 'PRINT winX, winY - ' END - - sx = VkWinX: sy = VkWinY 'shortcuts - - 'we need to free the old overlay & backbuffer, but because they might be - 'in use we cannot do it immediately - VkOverlay32 = _NEWIMAGE(VkWinX, VkWinY, 32) - VkOverlay = _COPYIMAGE(VkOverlay32, 33) - VkBackbuffer = _COPYIMAGE(VkOverlay32, 33) - _FREEIMAGE VkOverlay32 - - VkUnitSize = sx / VkWidthInUnits - - h = CINT(VkUnitStepY * VkUnitSize * 0.5) - - - 'VkFont = _LOADFONT("c:\windows\fonts\lucon.ttf", CINT(h)) - 'VkFontSmall = _LOADFONT("c:\windows\fonts\lucon.ttf", CINT(h * 0.5)) - - - 'generic textures - - VkReDraw = 1 - FOR i = 1 TO VkLast - IF VK(i).active THEN - VK(i).reDraw = 1 - END IF - NEXT - -END IF 'reset - -IF VkInit = 0 THEN - - VkClearTex = VkColTex(_RGBA32(0, 0, 0, 0)): _DONTBLEND VkClearTex - - i = VkNew - VK(i).x = 0 'VkDefaultWidth - VK(i).y = VkUnitStepY * 4 '*** do not modify or scaled up keybaord will be off screen*** - VK(i).w = VkDefaultWidth - VK(i).h = VkUnitStepY - VK(i).role = "ROOT" - VK(i).internal = 1 - VK(i).locks = 1 - VkReLabel i, "KB" 'CHR$(15) - - VkLoad - -END IF - -VkInit = 1 - -IF reDraw THEN - - 'clear backbuffer - _DONTBLEND VkBackbuffer - _PUTIMAGE , VkClearTex, VkBackbuffer - _BLEND VkBackbuffer - - 'correct offsets of keys relative to parents - FOR i = 1 TO VkLast - IF VK(i).active THEN - p = VK(i).parent - IF p THEN - VK(i).x = VK(p).x + VK(i).offsetX - VK(i).y = VK(p).y + VK(i).offsetY - END IF - END IF - NEXT - - rt = VkByRole("ROOT") - - shiftInEffect = VkShiftInEffect - 'render keys - FOR internal = 0 TO 1 - FOR i = 1 TO VkLast - IF VK(i).active THEN - IF VK(i).internal = internal AND (VK(i).event.keydown <> -2 OR VK(rt).locked <> 0) and (internal=1 or vkHide=0) THEN - x = VK(i).x * VkUnitSize - y = VK(i).y * VkUnitSize - w = VK(i).w - h = VK(i).h - x1 = INT(x) - x2 = INT(x + VkUnitSize * w) - 1 - y1 = sy - 1 - INT(y) - y2 = sy - 1 - INT(y + VkUnitSize * h) + 1 - w2 = x2 - x1 + 1 'pixel metrics - h2 = y1 - y2 + 1 - - 'get key colors - cText& = textCol& - cBorder& = borderCol& - cBg& = bgCol& - cBgHighlight& = bgHighlightCol& - IF VK(i).internal THEN - cText& = InternalTextCol& - cBorder& = InternalBorderCol& - cBg& = InternalBgCol& - cBgHighlight& = InternalBgHighlightCol& - END IF - - - IF VK(i).event.keydown = -1 AND VK(i).internal = 0 THEN 'D-PAD - - 're-calculate dimensions - x = (VK(i).x - VkDefaultWidth) * VkUnitSize - y = (VK(i).y - VkUnitStepY) * VkUnitSize - w = VK(i).w * 3 - h = VK(i).h * 3 - x1 = INT(x) - x2 = INT(x + VkUnitSize * w) - 1 - y1 = sy - 1 - INT(y) - y2 = sy - 1 - INT(y + VkUnitSize * h) + 1 - w2 = x2 - x1 + 1 'pixel metrics - h2 = y1 - y2 + 1 - - create = 0 - - IF VK(i).image <> 0 AND create = 0 THEN - 'has required size changed? - iw = _WIDTH(VK(i).image) - ih = _HEIGHT(VK(i).image) - IF iw <> w2 OR ih <> h2 THEN - create = 1 - END IF - END IF - - IF VK(i).reDraw THEN VK(i).reDraw = 0: create = 1 - - IF create THEN - 'invalidate - IF VK(i).image <> 0 THEN _FREEIMAGE VK(i).image: VK(i).image = 0 - IF VK(i).subImage <> 0 THEN _FREEIMAGE VK(i).subImage: VK(i).subImage = 0 - END IF - - IF VK(i).image = 0 THEN - 'soft render base - defKey = _NEWIMAGE(w2, h2, 32) - _DEST defKey - _DONTBLEND - dpcx = w2 \ 2: dpcy = h2 \ 2 - dprad = w2 \ 2 - 3 - CIRCLE (dpcx, dpcy), dprad, _RGBA32(255, 255, 255, 255) - PAINT (dpcx, dpcy), cBg&, _RGBA32(255, 255, 255, 255) - 'CIRCLE (dpcx, dpcy), dprad, _RGBA32(_RED32(cBg&), _GREEN32(cBg&), _BLUE32(cBg&), _ALPHA32(cBg&) * 0.75) - a = _ALPHA32(cBg&) - FOR r = dprad TO dprad + 10 STEP 0.15 - a = a - 10 - IF a < 0 THEN EXIT FOR - CIRCLE (dpcx, dpcy), r, _RGBA32(_RED32(cBg&), _GREEN32(cBg&), _BLUE32(cBg&), a) - NEXT - _BLEND - 'conv to hw - VK(i).image = _COPYIMAGE(defKey, 33) - _FREEIMAGE defKey - 'soft render stick - defKey = _NEWIMAGE(w2, h2, 32) - _DEST defKey - _DONTBLEND - dprad = dprad / 2.5 - CIRCLE (dpcx, dpcy), dprad, _RGBA32(255, 255, 255, 255) - PAINT (dpcx, dpcy), _RGBA32(255, 255, 255, 128), _RGBA32(255, 255, 255, 255) - a = 128 - FOR r = dprad TO dprad + 10 STEP 0.15 - a = a - 10 - IF a < 0 THEN EXIT FOR - CIRCLE (dpcx, dpcy), r, _RGBA32(255, 255, 255, a) - NEXT - _BLEND - 'conv to hw - VK(i).subImage = _COPYIMAGE(defKey, 33) - _FREEIMAGE defKey - END IF - - dpadx = VK(i).dpad.x: dpady = VK(i).dpad.y - IF VkHide = 0 OR VK(i).internal <> 0 THEN - _PUTIMAGE (x1, y2), VK(i).image, VkBackbuffer - _PUTIMAGE (x1 + dpadx * VkUnitSize * VkDefaultWidth * 0.89, y2 + dpady * VkUnitSize * VkDefaultWidth * 0.89), VK(i).subImage, VkBackbuffer - END IF - - GOTO special_key - END IF - - - - - 'standard key - create = 0 - - IF VK(i).image <> 0 AND create = 0 THEN - 'has required size changed? - iw = _WIDTH(VK(i).image) - ih = _HEIGHT(VK(i).image) - IF iw <> w2 OR ih <> h2 THEN - create = 1 - END IF - END IF - - IF VK(i).reDraw THEN VK(i).reDraw = 0: create = 1 - - IF create THEN - 'invalidate - IF VK(i).image <> 0 THEN _FREEIMAGE VK(i).image: VK(i).image = 0 - IF VK(i).highlightImage <> 0 THEN _FREEIMAGE VK(i).highlightImage: VK(i).highlightImage = 0 - IF VK(i).selectedImage <> 0 THEN _FREEIMAGE VK(i).selectedImage: VK(i).selectedImage = 0 - END IF - - IF VK(i).image = 0 THEN - 'soft render default key - - FOR shiftedPass = 0 TO 1 - IF shiftedPass = 0 OR (shiftedPass = 1 AND VK(i).hasShiftedEvent <> 0) THEN - FOR pass = 1 TO 3 - defKey = _NEWIMAGE(w2, h2, 32) - _DEST defKey - _DONTBLEND - - IF pass <> 2 THEN LINE (0, 0)-(w2 - 1, h2 - 1), cBg&, BF - IF pass = 2 THEN LINE (0, 0)-(w2 - 1, h2 - 1), cBgHighlight&, BF - - IF pass <> 3 THEN - LINE (0, 0)-(w2 - 1, h2 - 1), cBorder&, B - ELSE - LINE (0, 0)-(w2 - 1, h2 - 1), borderSelectedCol&, B - END IF - - _BLEND - - 'add text - - 'convert label to image - text$ = RTRIM$(VK(i).label) - IF shiftedPass THEN text$ = RTRIM$(VK(i).shiftedLabel) - - text2$ = "" - - IF text$ <> "" THEN - - lines = 1 - IF INSTR(text$, " ") THEN - lines = 2 - text2$ = RIGHT$(text$, LEN(text$) - INSTR(text$, " ")) - text$ = LEFT$(text$, INSTR(text$, " ") - 1) - END IF - - defKeyHeightInPixels = VkUnitStepY * VkUnitSize - '42.6 for screen 0 80x25 - font = VkFindFont(INT(defKeyHeightInPixels / 2)) 'ideally 20 for 80x25 - IF lines = 2 OR LEN(text$) >= 2 AND text$ <> "KB" THEN - font = VkFindFont(INT(defKeyHeightInPixels / 3.5)) 'ideally 12 for 80x25 - END IF - - _FONT font - - cw = _PRINTWIDTH(text$) - IF lines = 2 THEN - cw2 = _PRINTWIDTH(text2$) - IF cw2 > cw THEN cw = cw2 - END IF - ch = _FONTHEIGHT - IF cw <> 0 AND ch <> 0 THEN - - ox = w2 \ 2 - cw \ 2 - oy = h2 \ 2 - (ch * lines) \ 2 - - ' _PUTIMAGE ((x1 + x2) / 2 - cw / 2, (y1 + y2) / 2 - ch / 2), ci33, VkBackbuffer - - _PRINTMODE _KEEPBACKGROUND - COLOR cText& - _CONTROLCHR OFF - _PRINTSTRING (ox, oy), text$ - IF text2$ <> "" THEN _PRINTSTRING (ox, oy + ch), text2$ - _CONTROLCHR ON - - - - END IF 'cw <> 0 AND ch <> 0 - END IF 'text$<>"" - - - - ' _FONT font - ' cw = _PRINTWIDTH(text$) - ' IF lines = 2 THEN - ' cw2 = _PRINTWIDTH(text2$) - ' IF cw2 > cw THEN cw = cw2 - ' END IF - ' ch = _FONTHEIGHT - - - - - ' ' GOTO 1 - ' IF cw = 0 OR ch = 0 THEN GOTO 1 - - - - - ' ci = _NEWIMAGE(cw, ch * lines, 32) - ' _DEST ci - ' _FONT font - ' _PRINTMODE _KEEPBACKGROUND - ' COLOR textCol& - ' _CONTROLCHR OFF - ' _PRINTSTRING (0, 0), text$ - ' _PRINTSTRING (0, ch), text2$ - ' _CONTROLCHR ON - - - - 'IF VK(i).held THEN - ' cBg& = cBgHighlight& - 'END IF - - 'bgTex = VkColTex(bgCol&) - 'borderTex = VkColTex(borderCol&) - - ''PRINT x1, y1, x2, y2 - '_PUTIMAGE (x1 + 1, y2 + 1)-(x2 - 1, y1 - 1), bgTex, VkBackbuffer - - '_PUTIMAGE (x1, y2)-(x2, y2), borderTex, VkBackbuffer - '_PUTIMAGE (x1, y2 + 1)-(x1, y1), borderTex, VkBackbuffer - '_PUTIMAGE (x2, y2 + 1)-(x2, y1), borderTex, VkBackbuffer - '_PUTIMAGE (x1 + 1, y1)-(x2 - 1, y1), borderTex, VkBackbuffer - - - ''LINE (x1, y1)-(x2, y2), borderCol&, B - '' _BLEND - '' _BLEND bgTex - - 'IF g = 0 THEN - ' g = 1 - ' ' _PUTIMAGE (0, 0)-(100, 100), bgTex - ' ' _PUTIMAGE (50, 50)-(150, 150), borderTex - 'END IF - '_FREEIMAGE bgTex - '_FREEIMAGE borderTex - - 'conv to hw - IF shiftedPass = 0 THEN - IF pass = 1 THEN VK(i).image = _COPYIMAGE(defKey, 33) - IF pass = 2 THEN VK(i).highlightImage = _COPYIMAGE(defKey, 33) - IF pass = 3 THEN VK(i).selectedImage = _COPYIMAGE(defKey, 33) - ELSE - IF pass = 1 THEN VK(i).shiftedImage = _COPYIMAGE(defKey, 33) - IF pass = 2 THEN VK(i).shiftedHighlightImage = _COPYIMAGE(defKey, 33) - IF pass = 3 THEN VK(i).shiftedSelectedImage = _COPYIMAGE(defKey, 33) - END IF - _FREEIMAGE defKey - NEXT 'pass - END IF - NEXT 'shiftedPass - 'SOUND 1000, 0.1 - END IF - - 'assume shift in effect - shifted = 0 - IF VK(i).hasShiftedEvent THEN - IF shiftInEffect THEN - shifted = 1 - END IF - END IF - - - IF VkHide = 0 OR VK(i).internal <> 0 THEN - IF shifted THEN - IF VkSelectedKey = i AND VK(rt).locked <> 0 THEN - _PUTIMAGE (x1, y2), VK(i).shiftedSelectedImage, VkBackbuffer - ELSE - IF VK(i).locks THEN - IF VK(i).locked THEN - _PUTIMAGE (x1, y2), VK(i).shiftedHighlightImage, VkBackbuffer - ELSE - _PUTIMAGE (x1, y2), VK(i).shiftedImage, VkBackbuffer - END IF - ELSE - IF VK(i).held THEN - _PUTIMAGE (x1, y2), VK(i).shiftedHighlightImage, VkBackbuffer - ELSE - _PUTIMAGE (x1, y2), VK(i).shiftedImage, VkBackbuffer - END IF - END IF - END IF - ELSE - IF VkSelectedKey = i AND VK(rt).locked <> 0 THEN - _PUTIMAGE (x1, y2), VK(i).selectedImage, VkBackbuffer - ELSE - IF VK(i).locks THEN - IF VK(i).locked THEN - _PUTIMAGE (x1, y2), VK(i).highlightImage, VkBackbuffer - ELSE - _PUTIMAGE (x1, y2), VK(i).image, VkBackbuffer - END IF - ELSE - IF VK(i).held THEN - _PUTIMAGE (x1, y2), VK(i).highlightImage, VkBackbuffer - ELSE - _PUTIMAGE (x1, y2), VK(i).image, VkBackbuffer - END IF - END IF - END IF - END IF - END IF - ''convert label to image - 'text$ = RTRIM$(VK(i).label) - 'IF text$ <> "" THEN - ' lines = 1 - ' IF INSTR(text$, " ") THEN - ' lines = 2 - ' text2$ = RIGHT$(text$, LEN(text$) - INSTR(text$, " ")) - ' text$ = LEFT$(text$, INSTR(text$, " ") - 1) - ' END IF - - - ' font = VkFont - - - - - ' IF lines = 2 OR LEN(text$) > 1 THEN - ' font = VkFontSmall - ' END IF - - - - ' STATIC dummy32 - ' IF dummy32 = 0 THEN - ' dummy32 = _NEWIMAGE(1, 1, 32) - ' END IF - - - ' olddest = _DEST - ' _DEST dummy32 - ' _FONT font - ' cw = _PRINTWIDTH(text$) - ' IF lines = 2 THEN - ' cw2 = _PRINTWIDTH(text2$) - ' IF cw2 > cw THEN cw = cw2 - ' END IF - ' ch = _FONTHEIGHT - - - - - ' ' GOTO 1 - ' IF cw = 0 OR ch = 0 THEN GOTO 1 - - - - - ' ci = _NEWIMAGE(cw, ch * lines, 32) - ' _DEST ci - ' _FONT font - ' _PRINTMODE _KEEPBACKGROUND - ' COLOR textCol& - ' _CONTROLCHR OFF - ' _PRINTSTRING (0, 0), text$ - ' _PRINTSTRING (0, ch), text2$ - ' _CONTROLCHR ON - - ' ch = ch * lines - ' ci33 = _COPYIMAGE(ci, 33) - ' _FREEIMAGE ci - - ' 'IF VkFontScale = 1 THEN - ' _PUTIMAGE ((x1 + x2) / 2 - cw / 2, (y1 + y2) / 2 - ch / 2), ci33, VkBackbuffer - ' 'ELSE - ' 'cw = cw / VkFontScale - ' 'ch = ch / VkFontScale - ' '_PUTIMAGE ((x1 + x2) / 2 - cw / 2, (y1 + y2) / 2 - ch / 2)-((x1 + x2) / 2 + cw / 2 - 1, (y1 + y2) / 2 + ch / 2 - 1), ci33, VkBackbuffer, , _SMOOTH - ' 'END IF - ' _FREEIMAGE ci33 - - ' 1 - ' _DEST olddest - - special_key: - ' _DEST olddest - ' END IF - - END IF - END IF - NEXT - NEXT - - - - - - '_PUTIMAGE (mx, my)-(mx + 100, my + 100), borderTex, VkBackbuffer - - '_PUTIMAGE , VkBackbuffer, VkOverlay - _DONTBLEND VkBackbuffer - _PUTIMAGE , VkBackbuffer, VkOverlay - '_PUTIMAGE (0, 0)-(639, 399), VkOverlay - requestKeyboardOverlayImage VkOverlay - _BLEND VkBackbuffer - -END IF 'reDraw - - -'key repeat -timeNow! = TIMER -FOR i = 1 TO VkLast - IF VK(i).active THEN - IF VK(i).internal = 0 THEN - IF VK(i).lastKeydownTime <> 0 THEN 'only keys which can repeat will have this set - IF VK(i).held THEN - IF VK(i).keyRepeatCount = 0 THEN - IF ABS(VK(i).lastKeydownTime - timeNow!) > VkDelayUntilFirstRepeat THEN - VkKeyRepeat i - END IF - ELSE - IF ABS(VK(i).lastKeydownTime - timeNow!) > VkDelayUntilFollowingRepeats THEN - VkKeyRepeat i - END IF - END IF - END IF - END IF - END IF - END IF -NEXT - -DO - - mDown = 0 - mUp = 0 - mEvent = 0 - -if VkMousePipe=0 then - VkMousePipe=_MOUSEPIPEOPEN 'create new pipe -end if - -' IF VkSharedInputMode THEN -' VkGetMouse VkSharedMouseMx, VkSharedMouseMy, VkSharedMouseMb -' mb = VkSharedMouseMb -' mb = mb AND 1 -' IF mb <> 0 THEN mb = -1 -' mx = VkSharedMouseMx -' my = VkSharedMouseMy -' 'CALL INTERRUPT is a problem... -' 'if ((display_page->compatible_mode==1)||(display_page->compatible_mode==7)||(display_page->compatible_mode==13)) cpu.cx*=2; -' 'if (display_page->text){ -' ' //note: a range from 0 to columns*8-1 is returned regardless of the number of actual pixels -' ' cpu.cx=(mx-0.5)*8.0; -' ' if (cpu.cx>=(display_page->width*8)) cpu.cx=(display_page->width*8)-1; -' ' //note: a range from 0 to rows*8-1 is returned regardless of the number of actual pixels -' ' //obselete line of code: cpu.dx=(((float)cpu.dx)/((float)(display_page->height*fontheight[display_page->font])))*((float)(display_page->height*8));//(mouse_y/height_in_pixels)*(rows*8) -' ' cpu.dx=(my-0.5)*8.0; -' ' if (cpu.dx>=(display_page->height*8)) cpu.dx=(display_page->height*8)-1; -' '} -' 'reverse adjustments made by CALL INTERRUPT -' IF _PIXELSIZE = 1 THEN 'legacy modes adjustment -' mx = mx \ 2 -' END IF -' IF _PIXELSIZE = 0 THEN 'screen 0 adjustment -' mx = (mx / 8) + 0.5 -' my = (my / 8) + 0.5 -' END IF -' 'apply new adjustments -' IF _PIXELSIZE = 0 THEN 'screen 0 adjustment -' mx = mx * 8 - 4 -' my = my * 16 - 8 -' END IF -' IF mb = -1 AND omb = 0 THEN mDown = -1: mEvent = 1 -' IF mb = 0 AND omb = -1 THEN mUp = -1: mEvent = 1 -' omb = mb -' ELSE - - DO WHILE _MOUSEINPUT(VkMousePipe) - mb = _MOUSEBUTTON(1, VkMousePipe) - - mx = _MOUSEX(VkMousePipe) - my = _MOUSEY(VkMousePipe) - - sw=_width(0) - sh=_height(0) - - IF _PIXELSIZE = 0 THEN 'screen 0 adjustment - mx = mx * 8 - 4 - my = my * 16 - 8 - sw=sw*8 - sh=sh*16 - END IF - - mx = CINT(mx*(_SCALEDWIDTH/sw)) - my = CINT(my*(_SCALEDHEIGHT/sh)) - - IF mb = -1 AND omb = 0 THEN mDown = -1: mEvent = 1: EXIT DO - - if VkMousePipeCapture=0 then - _MOUSEINPUTPIPE VkMousePipe - end if - - IF mb = 0 AND omb = -1 THEN - VkMousePipeCapture=0 - mUp = -1 - mEvent = 1 - EXIT DO - end if - - LOOP - omb = mb -' END IF - - rootId = VkByRole("ROOT") - editMode = VK(rootId).locked - - IF mDown THEN - mDownX = mx - mDownY = my - i2 = 0 - - FOR internal = 1 TO 0 STEP -1 - FOR i = VkLast TO 1 STEP -1 - IF VK(i).active THEN - IF VK(i).internal = internal THEN - if internal=1 or VkHide=0 then - x = VK(i).x * VkUnitSize - y = VK(i).y * VkUnitSize - w = VK(i).w - h = VK(i).h - x1 = INT(x) - x2 = INT(x + VkUnitSize * w) - 1 - y1 = sy - 1 - INT(y) - y2 = sy - 1 - INT(y + VkUnitSize * h) + 1 - IF mx >= x1 AND mx <= x2 AND my >= y2 AND my <= y1 THEN - i2 = i - EXIT FOR - END IF - end if - END IF - END IF - NEXT - IF i2 THEN EXIT FOR - NEXT - IF i2 THEN - VkI = i2 - VKoldX = VK(i2).x - VKoldY = VK(i2).y - VKdragging = 0 - VKstart = TIMER(0.001) - 'VK(i2).held = -1 - VkKeyDown i2 - VkMousePipeCapture=1 - END IF - if VkMousePipeCapture=0 then _MOUSEINPUTPIPE VkMousePipe - END IF - - IF mUp THEN - IF VkI THEN - - IF VK(VkI).event.keydown = -1 THEN - IF editMode = 0 THEN - VkUpdateDPAD VkI, 0, 0 - END IF - END IF - - VkKeyUp VkI - IF VKdragging = 0 THEN - VKend = TIMER(0.001) - duration = VKend - VKstart - IF duration > 0.5 THEN - VkLongPress (VkI) - ELSE - VkPress (VkI) - END IF - END IF - 'VK(VKi).held = 0 - VkI = 0 - END IF - END IF - rt = VkByRole("ROOT") - IF mb THEN - IF VkI THEN - - canMove = 0 - IF VK(rt).locked <> 0 OR VK(VkI).internal = 1 THEN canMove = 1 - - IF canMove = 1 THEN - 'calculate distance in units from mouse down location to current location - nx = VKoldX + CINT((mx - mDownX) / VkUnitSize) - ny = VKoldY - CINT((my - mDownY) / VkUnitSize / VkUnitStepY) * VkUnitStepY - - distX = ABS(VKoldX - nx) - distY = ABS(VKoldY - ny) - IF distY > distX THEN dist = distY ELSE dist = distX - - IF dist >= VkUnitStepY THEN - - IF VK(rt).locked <> 0 OR VK(VkI).internal = 1 THEN - - VKdragging = -1 - 'VK(VKi).held = 0 - IF VK(VkI).parent <> 0 AND VK(VkI).internal <> 0 THEN - p = VK(VkI).parent - mDownX = mDownX + (VK(VkI).x - VK(p).x) * VkUnitSize - mDownY = mDownY + (VK(p).y - VK(VkI).y) * VkUnitSize - VkI = p - END IF - END IF - END IF - END IF 'canmove=1 - - 'dpad - IF canMove = 0 THEN - IF VK(rt).locked = 0 AND VK(VkI).event.keydown = -1 THEN - 'dpad - VKdragging = -1 - END IF - END IF - - IF VKdragging THEN - IF VK(rt).locked = 0 AND VK(VkI).event.keydown = -1 THEN - dpadx = mx - mDownX '(VK(VkI).x * VkUnitSize + VkUnitSize / 2) - dpady = my - mDownY ' (sy - VK(VkI).y * VkUnitSize - VkUnitSize / 2) - dpadx = dpadx / (VkUnitSize * VkDefaultWidth * 0.9) - dpady = dpady / (VkUnitSize * VkDefaultWidth * 0.9) - 'normalize if greater than 1 unit - l = SQR(dpadx * dpadx + dpady * dpady) - IF l > 1 THEN - dpadx = dpadx / l - dpady = dpady / l - END IF - VkUpdateDPAD VkI, dpadx, dpady - 'convert dpad value relative to 1/0 - - - - - ELSE - 'prevent off-screen drag - IF nx < 0 THEN nx = 0 - IF ny < 0 THEN ny = 0 - 'prevent covering of other (non-internal) keys - ox = VK(VkI).x - oy = VK(VkI).y - oldOffsetX = VK(VkI).offsetX - oldOffsetY = VK(VkI).offsetY - IF ox <> nx OR oy <> ny THEN - sgnx = SGN(nx - ox): IF sgnx = 0 THEN sgnx = 1 - sgny = SGN(ny - oy) * VkUnitStepY: IF sgny = 0 THEN sgny = VkUnitStepY - bestDist = 10000 - FOR ix = ox TO nx STEP sgnx - FOR iy = oy TO ny STEP sgny - blocked = 0 - IF VK(VkI).event.keydown <> -2 AND VK(VkI).internal = 0 THEN - nw = VK(VkI).w - FOR i = 1 TO VkLast - IF VK(i).internal = 0 AND VK(i).active AND i <> VkI AND VK(i).event.keydown <> -2 THEN - y = VK(i).y: x = VK(i).x: w = VK(i).w - IF iy = y THEN 'same row - ok = 0 - IF ix >= x + w THEN ok = 1 - IF ix + nw <= x THEN ok = 1 - IF ok = 0 THEN blocked = 1 - END IF - END IF - NEXT - END IF - IF blocked = 0 THEN - dist = ABS(nx - ix) + ABS(ny - iy) - IF dist < bestDist THEN - bestDist = dist - IF VK(VkI).parent THEN - VK(VkI).offsetX = oldOffsetX + (ix - ox) - VK(VkI).offsetY = oldOffsetY + (iy - oy) - END IF - VK(VkI).x = ix - VK(VkI).y = iy - VkReDraw = 1 - END IF - END IF - NEXT - NEXT - END IF - END IF - END IF - END IF - END IF - -LOOP UNTIL mEvent = 0 - - - -'_DISPLAY -'_LIMIT 30 -'k$ = inkey$ -'k$ = "" - -_DEST subOldDest -_SOURCE subOldSource - -if VkExiting=2 then - VkExiting=0 - VkExited=1 -end if - -END SUB - - - - - -FUNCTION VkColTex& (col&) -i& = _NEWIMAGE(1, 1, 32) -oldDest& = _DEST -_DEST i& -_DONTBLEND -CLS , col& -_BLEND -_DEST oldDest& -VkColTex& = _COPYIMAGE(i&, 33) -_FREEIMAGE i& -END FUNCTION - -SUB VkUpdateDPAD (i, x, y) -VkReDraw = 1 -ox = VK(i).dpad.x -oy = VK(i).dpad.y -minDist = 0.35 'diagonal max. dist is ~7 -odx = VK(i).dpad.dx -ody = VK(i).dpad.dy -dx = 0 -IF x <= -minDist THEN dx = -1 -IF x >= minDist THEN dx = 1 -dy = 0 -IF y <= -minDist THEN dy = -1 -IF y >= minDist THEN dy = 1 -'hardcoded dpad keys -VK(i).dpad.left.keydown = VK_KEY_LEFT -VK(i).dpad.right.keydown = VK_KEY_RIGHT -VK(i).dpad.up.keydown = VK_KEY_UP -VK(i).dpad.down.keydown = VK_KEY_DOWN -IF dx <> odx THEN - IF odx = -1 THEN keyup VK(i).dpad.left.keydown - IF odx = 1 THEN keyup VK(i).dpad.right.keydown - IF dx = -1 THEN keydown VK(i).dpad.left.keydown: VK(i).dpad.lastKeyDx = dx: VK(i).dpad.lastKeyDy = 0 - IF dx = 1 THEN keydown VK(i).dpad.right.keydown: VK(i).dpad.lastKeyDx = dx: VK(i).dpad.lastKeyDy = 0 -END IF -IF dy <> ody THEN - IF ody = -1 THEN keyup VK(i).dpad.up.keydown - IF ody = 1 THEN keyup VK(i).dpad.down.keydown - IF dy = -1 THEN keydown VK(i).dpad.up.keydown: VK(i).dpad.lastKeyDy = dy: VK(i).dpad.lastKeyDx = 0 - IF dy = 1 THEN keydown VK(i).dpad.down.keydown: VK(i).dpad.lastKeyDy = dy: VK(i).dpad.lastKeyDx = 0 -END IF -'strongest direction must have been represented by last known keydown event fired by dpad -IF dx <> 0 OR dy <> 0 THEN 'has direction - bestDx = 0: bestDy = 0 - IF ABS(x) > ABS(y) THEN - bestDx = SGN(x) - ELSE - bestDy = SGN(y) - END IF - IF bestDx <> VK(i).dpad.lastKeyDx AND bestDx <> 0 THEN - dx = bestDx - IF dx = -1 THEN keydown VK(i).dpad.left.keydown: VK(i).dpad.lastKeyDx = dx: VK(i).dpad.lastKeyDy = 0 - IF dx = 1 THEN keydown VK(i).dpad.right.keydown: VK(i).dpad.lastKeyDx = dx: VK(i).dpad.lastKeyDy = 0 - - ELSE - IF bestDy <> VK(i).dpad.lastKeyDy AND bestDy <> 0 THEN - dy = bestDy - IF dy = -1 THEN keydown VK(i).dpad.up.keydown: VK(i).dpad.lastKeyDy = dy: VK(i).dpad.lastKeyDx = 0 - IF dy = 1 THEN keydown VK(i).dpad.down.keydown: VK(i).dpad.lastKeyDy = dy: VK(i).dpad.lastKeyDx = 0 - - END IF - END IF -END IF -VK(i).dpad.dx = dx -VK(i).dpad.dy = dy -VK(i).dpad.x = x -VK(i).dpad.y = y -END SUB - -SUB VkReLabel (i, label$) -VkReDraw = 1 -VK(i).label = label$ -VK(i).reDraw = 1 -END SUB - -SUB VkReLabelShifted (i, label$) -VkReDraw = 1 -VK(i).shiftedLabel = label$ -VK(i).reDraw = 1 -END SUB - - -SUB VkAddKeyName (keyName AS STRING, keyCode AS LONG) -value = QB_NODE_new(QB_NODE_TYPE_VALUE, 0) -QB_NODE_setLabel_format value, QB_STR_new(keyName), QB_NODE_FORMAT_STR -QB_NODE_setValue_format value, keyCode, QB_NODE_FORMAT_LONG -QB_NODE_assign VkKeyCodeLookup, value -value = QB_NODE_new(QB_NODE_TYPE_VALUE, 0) -QB_NODE_setLabel_format value, keyCode, QB_NODE_FORMAT_LONG -QB_NODE_setValue_format value, QB_STR_new(keyName), QB_NODE_FORMAT_STR -QB_NODE_assign VkKeyNameLookup, value -END SUB - -SUB VkAddKeyNames - -VkKeyNameLookup = QB_NODE_newDictionary -VkKeyCodeLookup = QB_NODE_newDictionary - -VkAddKeyName "KEY_PAUSE", 100019 -VkAddKeyName "KEY_NUMLOCK", 100300 -VkAddKeyName "KEY_CAPSLOCK", 100301 -VkAddKeyName "KEY_SCROLLOCK", 100302 -VkAddKeyName "KEY_RSHIFT", 100303 -VkAddKeyName "KEY_LSHIFT", 100304 -VkAddKeyName "KEY_RCTRL", 100305 -VkAddKeyName "KEY_LCTRL", 100306 -VkAddKeyName "KEY_RALT", 100307 -VkAddKeyName "KEY_LALT", 100308 -VkAddKeyName "KEY_RMETA", 100309 -VkAddKeyName "KEY_LMETA", 100310 -VkAddKeyName "KEY_LSUPER", 100311 -VkAddKeyName "KEY_RSUPER", 100312 -VkAddKeyName "KEY_MODE", 100313 -VkAddKeyName "KEY_COMPOSE", 100314 -VkAddKeyName "KEY_HELP", 100315 -VkAddKeyName "KEY_PRINT", 100316 -VkAddKeyName "KEY_SYSREQ", 100317 -VkAddKeyName "KEY_BREAK", 100318 -VkAddKeyName "KEY_MENU", 100319 -VkAddKeyName "KEY_POWER", 100320 -VkAddKeyName "KEY_EURO", 100321 -VkAddKeyName "KEY_UNDO", 100322 -VkAddKeyName "KEY_KP0", 100256 -VkAddKeyName "KEY_KP1", 100257 -VkAddKeyName "KEY_KP2", 100258 -VkAddKeyName "KEY_KP3", 100259 -VkAddKeyName "KEY_KP4", 100260 -VkAddKeyName "KEY_KP5", 100261 -VkAddKeyName "KEY_KP6", 100262 -VkAddKeyName "KEY_KP7", 100263 -VkAddKeyName "KEY_KP8", 100264 -VkAddKeyName "KEY_KP9", 100265 -VkAddKeyName "KEY_KP_PERIOD", 100266 -VkAddKeyName "KEY_KP_DIVIDE", 100267 -VkAddKeyName "KEY_KP_MULTIPLY", 100268 -VkAddKeyName "KEY_KP_MINUS", 100269 -VkAddKeyName "KEY_KP_PLUS", 100270 -VkAddKeyName "KEY_KP_ENTER", 100271 -VkAddKeyName "KEY_KP_INSERT", 200000 -VkAddKeyName "KEY_KP_END", 200001 -VkAddKeyName "KEY_KP_DOWN", 200002 -VkAddKeyName "KEY_KP_PAGE_DOWN", 200003 -VkAddKeyName "KEY_KP_LEFT", 200004 -VkAddKeyName "KEY_KP_MIDDLE", 200005 -VkAddKeyName "KEY_KP_RIGHT", 200006 -VkAddKeyName "KEY_KP_HOME", 200007 -VkAddKeyName "KEY_KP_UP", 200008 -VkAddKeyName "KEY_KP_PAGE_UP", 200009 -VkAddKeyName "KEY_KP_DELETE", 200010 -VkAddKeyName "KEY_SCROLL_LOCK_MODE", 200011 -VkAddKeyName "KEY_INSERT_MODE", 200012 - -VkAddKeyName "KEY_F1", 15104 -VkAddKeyName "KEY_F2", 15360 -VkAddKeyName "KEY_F3", 15616 -VkAddKeyName "KEY_F4", 15872 -VkAddKeyName "KEY_F5", 16128 -VkAddKeyName "KEY_F6", 16384 -VkAddKeyName "KEY_F7", 16640 -VkAddKeyName "KEY_F8", 16896 -VkAddKeyName "KEY_F9", 17152 -VkAddKeyName "KEY_F10", 17408 -VkAddKeyName "KEY_F11", 34048 -VkAddKeyName "KEY_F12", 34304 - -VkAddKeyName "KEY_INSERT", 20992 -VkAddKeyName "KEY_DELETE", 21248 -VkAddKeyName "KEY_HOME", 18176 -VkAddKeyName "KEY_END", 20224 -VkAddKeyName "KEY_PAGE_UP", 18688 -VkAddKeyName "KEY_PAGE_DOWN", 20736 - -VkAddKeyName "KEY_UP", 18432 -VkAddKeyName "KEY_DOWN", 20480 -VkAddKeyName "KEY_LEFT", 19200 -VkAddKeyName "KEY_RIGHT", 19712 - -VkAddKeyName "KEY_BACKSPACE", 8 -VkAddKeyName "KEY_TAB", 9 - -VkAddKeyName "KEY_ENTER", 13 -VkAddKeyName "KEY_ESCAPE", 27 - -VkAddKeyName "KEY_SPACE", 32 -VkAddKeyName "KEY_EXCLAMATION", 33 -VkAddKeyName "KEY_QUOTE", 34 -VkAddKeyName "KEY_HASH", 35 -VkAddKeyName "KEY_DOLLAR", 36 -VkAddKeyName "KEY_PERCENT", 37 -VkAddKeyName "KEY_AND", 38 -VkAddKeyName "KEY_APOSTROPHE", 39 -VkAddKeyName "KEY_OPEN_BRACKET", 40 -VkAddKeyName "KEY_CLOSE_BRACKET", 41 -VkAddKeyName "KEY_STAR", 42 -VkAddKeyName "KEY_PLUS", 43 -VkAddKeyName "KEY_COMMA", 44 -VkAddKeyName "KEY_MINUS", 45 -VkAddKeyName "KEY_DOT", 46 -VkAddKeyName "KEY_FORWARD_SLASH", 47 -VkAddKeyName "KEY_0", 48 -VkAddKeyName "KEY_1", 49 -VkAddKeyName "KEY_2", 50 -VkAddKeyName "KEY_3", 51 -VkAddKeyName "KEY_4", 52 -VkAddKeyName "KEY_5", 53 -VkAddKeyName "KEY_6", 54 -VkAddKeyName "KEY_7", 55 -VkAddKeyName "KEY_8", 56 -VkAddKeyName "KEY_9", 57 -VkAddKeyName "KEY_COLON", 58 -VkAddKeyName "KEY_SEMICOLON", 59 -VkAddKeyName "KEY_LESS_THAN", 60 -VkAddKeyName "KEY_EQUAL", 61 -VkAddKeyName "KEY_GREATER_THAN", 62 -VkAddKeyName "KEY_QUESTION", 63 -VkAddKeyName "KEY_AT", 64 -VkAddKeyName "KEY_A", 65 -VkAddKeyName "KEY_B", 66 -VkAddKeyName "KEY_C", 67 -VkAddKeyName "KEY_D", 68 -VkAddKeyName "KEY_E", 69 -VkAddKeyName "KEY_F", 70 -VkAddKeyName "KEY_G", 71 -VkAddKeyName "KEY_H", 72 -VkAddKeyName "KEY_I", 73 -VkAddKeyName "KEY_J", 74 -VkAddKeyName "KEY_K", 75 -VkAddKeyName "KEY_L", 76 -VkAddKeyName "KEY_M", 77 -VkAddKeyName "KEY_N", 78 -VkAddKeyName "KEY_O", 79 -VkAddKeyName "KEY_P", 80 -VkAddKeyName "KEY_Q", 81 -VkAddKeyName "KEY_R", 82 -VkAddKeyName "KEY_S", 83 -VkAddKeyName "KEY_T", 84 -VkAddKeyName "KEY_U", 85 -VkAddKeyName "KEY_V", 86 -VkAddKeyName "KEY_W", 87 -VkAddKeyName "KEY_X", 88 -VkAddKeyName "KEY_Y", 89 -VkAddKeyName "KEY_Z", 90 -VkAddKeyName "KEY_UCASE_A", 65 -VkAddKeyName "KEY_UCASE_B", 66 -VkAddKeyName "KEY_UCASE_C", 67 -VkAddKeyName "KEY_UCASE_D", 68 -VkAddKeyName "KEY_UCASE_E", 69 -VkAddKeyName "KEY_UCASE_F", 70 -VkAddKeyName "KEY_UCASE_G", 71 -VkAddKeyName "KEY_UCASE_H", 72 -VkAddKeyName "KEY_UCASE_I", 73 -VkAddKeyName "KEY_UCASE_J", 74 -VkAddKeyName "KEY_UCASE_K", 75 -VkAddKeyName "KEY_UCASE_L", 76 -VkAddKeyName "KEY_UCASE_M", 77 -VkAddKeyName "KEY_UCASE_N", 78 -VkAddKeyName "KEY_UCASE_O", 79 -VkAddKeyName "KEY_UCASE_P", 80 -VkAddKeyName "KEY_UCASE_Q", 81 -VkAddKeyName "KEY_UCASE_R", 82 -VkAddKeyName "KEY_UCASE_S", 83 -VkAddKeyName "KEY_UCASE_T", 84 -VkAddKeyName "KEY_UCASE_U", 85 -VkAddKeyName "KEY_UCASE_V", 86 -VkAddKeyName "KEY_UCASE_W", 87 -VkAddKeyName "KEY_UCASE_X", 88 -VkAddKeyName "KEY_UCASE_Y", 89 -VkAddKeyName "KEY_UCASE_Z", 90 -VkAddKeyName "KEY_OPEN_BRACKET_SQUARE", 91 -VkAddKeyName "KEY_BACK_SLASH", 92 -VkAddKeyName "KEY_CLOSE_BRACKET_SQUARE", 93 -VkAddKeyName "KEY_CARET", 94 -VkAddKeyName "KEY_UNDERSCORE", 95 -VkAddKeyName "KEY_REVERSE_APOSTROPHE", 96 -VkAddKeyName "KEY_LCASE_A", 97 -VkAddKeyName "KEY_LCASE_B", 98 -VkAddKeyName "KEY_LCASE_C", 99 -VkAddKeyName "KEY_LCASE_D", 100 -VkAddKeyName "KEY_LCASE_E", 101 -VkAddKeyName "KEY_LCASE_F", 102 -VkAddKeyName "KEY_LCASE_G", 103 -VkAddKeyName "KEY_LCASE_H", 104 -VkAddKeyName "KEY_LCASE_I", 105 -VkAddKeyName "KEY_LCASE_J", 106 -VkAddKeyName "KEY_LCASE_K", 107 -VkAddKeyName "KEY_LCASE_L", 108 -VkAddKeyName "KEY_LCASE_M", 109 -VkAddKeyName "KEY_LCASE_N", 110 -VkAddKeyName "KEY_LCASE_O", 111 -VkAddKeyName "KEY_LCASE_P", 112 -VkAddKeyName "KEY_LCASE_Q", 113 -VkAddKeyName "KEY_LCASE_R", 114 -VkAddKeyName "KEY_LCASE_S", 115 -VkAddKeyName "KEY_LCASE_T", 116 -VkAddKeyName "KEY_LCASE_U", 117 -VkAddKeyName "KEY_LCASE_V", 118 -VkAddKeyName "KEY_LCASE_W", 119 -VkAddKeyName "KEY_LCASE_X", 120 -VkAddKeyName "KEY_LCASE_Y", 121 -VkAddKeyName "KEY_LCASE_Z", 122 -VkAddKeyName "KEY_OPEN_BRACKET_CURLY", 123 -VkAddKeyName "KEY_VERTICAL_BAR", 124 -VkAddKeyName "KEY_CLOSE_BRACKET_CURLY", 125 -VkAddKeyName "KEY_TILDE", 126 -VkAddKeyName "KEY_BACKSPACE_ALTERNATE", 127 -END SUB - -FUNCTION VkGetKeyName$ (keyCode AS LONG) -VkGetKeyName$ = QB_STR_long(keyCode) -DIM VkChild AS LONG -DIM VkI AS LONG -DO WHILE QB_NODE_eachWithLabel_format(VkChild, VkKeyNameLookup, keyCode, QB_NODE_FORMAT_LONG, VkI) - VkGetKeyName$ = QB_NODE_value(VkChild) - EXIT FUNCTION -LOOP -END FUNCTION - -FUNCTION VkGetKeyCode& (keyName AS STRING) -DIM i AS LONG -i = QB_NODE_withLabel(VkKeyCodeLookup, keyName) -IF i THEN - VkGetKeyCode& = VAL(QB_NODE_value(i)) -ELSE - VkGetKeyCode& = VAL(keyName) -END IF -END FUNCTION - - -SUB VkSaveKeys (parentNode AS LONG, parentKey AS LONG) -FOR i = 1 TO VkLast - IF VK(i).internal = 0 AND VK(i).active <> 0 AND VK(i).parent = parentKey THEN - - thisKey = QB_NODE_newDictionary - QB_NODE_assign parentNode, thisKey - - 'get type - keyType$ = "key" - IF VK(i).event.keydown = -1 THEN - keyType$ = "joystick" - END IF - IF VK(i).event.keydown = -2 THEN - keyType$ = "keySet" - END IF - - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel("type", keyType$) - - IF parentKey = 0 THEN - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_long("x", VK(i).x) - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_long("y", VK(i).y) - ELSE - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_long("offsetX", VK(i).offsetX) - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_long("offsetY", VK(i).offsetY) - END IF - - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_long("width", VK(i).w) - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_long("height", VK(i).h) - - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel("label", RTRIM$(VK(i).label)) - - events = QB_NODE_newDictionary: QB_NODE_setLabel events, "events" - IF keyType$ = "key" THEN - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_bool("locks", VK(i).locks) - QB_NODE_assign thisKey, QB_NODE_newValueWithLabel_bool("lockIsTemporary", VK(i).lockIsTemporary) - event = QB_NODE_newDictionary: QB_NODE_setLabel event, "keydown": QB_NODE_assign events, event - QB_NODE_assign event, QB_NODE_newValueWithLabel("keyCode", VkGetKeyName(VK(i).event.keydown)) - IF VK(i).hasShiftedEvent THEN - event = QB_NODE_newDictionary: QB_NODE_setLabel event, "keydownWithShift": QB_NODE_assign events, event - QB_NODE_assign event, QB_NODE_newValueWithLabel("keyCode", VkGetKeyName(VK(i).shiftedEvent.keydown)) - QB_NODE_assign event, QB_NODE_newValueWithLabel("label", RTRIM$(VK(i).shiftedLabel)) - END IF - END IF - IF keyType$ = "joystick" THEN - 'hardcode keys - VK(i).dpad.left.keydown = VK_KEY_LEFT - VK(i).dpad.right.keydown = VK_KEY_RIGHT - VK(i).dpad.up.keydown = VK_KEY_UP - VK(i).dpad.down.keydown = VK_KEY_DOWN - event = QB_NODE_newDictionary: QB_NODE_setLabel event, "up": QB_NODE_assign events, event - QB_NODE_assign event, QB_NODE_newValueWithLabel("keyCode", VkGetKeyName(VK(i).dpad.up.keydown)) - event = QB_NODE_newDictionary: QB_NODE_setLabel event, "down": QB_NODE_assign events, event - QB_NODE_assign event, QB_NODE_newValueWithLabel("keyCode", VkGetKeyName(VK(i).dpad.down.keydown)) - event = QB_NODE_newDictionary: QB_NODE_setLabel event, "left": QB_NODE_assign events, event - QB_NODE_assign event, QB_NODE_newValueWithLabel("keyCode", VkGetKeyName(VK(i).dpad.left.keydown)) - event = QB_NODE_newDictionary: QB_NODE_setLabel event, "right": QB_NODE_assign events, event - QB_NODE_assign event, QB_NODE_newValueWithLabel("keyCode", VkGetKeyName(VK(i).dpad.right.keydown)) - END IF - IF keyType$ = "keySet" THEN - END IF - IF QB_NODE_count(events) > 0 THEN - QB_NODE_assign thisKey, events - ELSE - QB_NODE_destroy events - END IF - - childKeys = QB_NODE_newList: QB_NODE_setLabel childKeys, "childKeys" - VkSaveKeys childKeys, i - IF QB_NODE_count(childKeys) > 0 THEN - QB_NODE_assign thisKey, childKeys - ELSE - QB_NODE_destroy childKeys - END IF - END IF -NEXT -END SUB - -SUB VkSave -root = QB_NODE_newDictionary -QB_NODE_assign root, QB_NODE_newValueWithLabel_long("width", VkWidthInUnits) -keys = QB_NODE_newList: QB_NODE_setLabel keys, "keys": QB_NODE_assign root, keys -VkSaveKeys keys, 0 -json$ = QB_NODESET_serialize(root, "json") -QB_NODE_destroy root -fh = FREEFILE -OPEN appRootPath$+"virtual_keyboard_layout_current.txt" FOR OUTPUT AS #fh -PRINT #fh, json$ -CLOSE #fh -END SUB - -SUB VkLoadKeys (parentNode AS LONG, parentKey AS LONG) -DIM iterator AS LONG -DIM keyNode AS LONG -DO WHILE QB_NODE_each(keyNode, parentNode, iterator) - DIM events AS LONG - DIM event AS LONG - events = QB_NODE_withLabel(keyNode, "events") - keyType$ = QB_NODE_valueOfLabel(keyNode, "type") - i = VkNew - VK(i).role = "USER" - VK(i).parent = parentKey - IF parentKey THEN - VK(i).offsetX = QB_NODE_valueOfLabel_long(keyNode, "offsetX") - VK(i).offsetY = QB_NODE_valueOfLabel_long(keyNode, "offsetY") - ELSE - VK(i).x = QB_NODE_valueOfLabel_long(keyNode, "x") - VK(i).y = QB_NODE_valueOfLabel_long(keyNode, "y") - END IF - VK(i).w = QB_NODE_valueOfLabel_long(keyNode, "width") - VK(i).h = QB_NODE_valueOfLabel_long(keyNode, "height") - VK(i).label = QB_NODE_valueOfLabel(keyNode, "label") - IF keyType$ = "key" THEN - VK(i).locks = QB_NODE_valueOfLabel_bool(keyNode, "locks") - VK(i).lockIsTemporary = QB_NODE_valueOfLabel_bool(keyNode, "lockIsTemporary") - VK(i).event.keydown = VkGetKeyCode&(QB_NODE_valueOfLabel(QB_NODE_withLabel(events, "keydown"), "keyCode")) - shiftedEvent = QB_NODE_withLabel(events, "keydownWithShift") - IF shiftedEvent THEN - VK(i).hasShiftedEvent = 1 - VK(i).shiftedEvent.keydown = VkGetKeyCode&(QB_NODE_valueOfLabel(shiftedEvent, "keyCode")) - VK(i).shiftedLabel = QB_NODE_valueOfLabel(shiftedEvent, "label") - END IF - END IF - IF keyType$ = "keySet" THEN - VK(i).event.keydown = -2 - VkLoadKeys QB_NODE_withLabel(keyNode, "childKeys"), i - END IF - IF keyType$ = "joystick" THEN - VK(i).event.keydown = -1 - VK(i).dpad.left.keydown = VkGetKeyCode&(QB_NODE_valueOfLabel(QB_NODE_withLabel(events, "left"), "keyCode")) - VK(i).dpad.right.keydown = VkGetKeyCode&(QB_NODE_valueOfLabel(QB_NODE_withLabel(events, "right"), "keyCode")) - VK(i).dpad.up.keydown = VkGetKeyCode&(QB_NODE_valueOfLabel(QB_NODE_withLabel(events, "up"), "keyCode")) - VK(i).dpad.down.keydown = VkGetKeyCode&(QB_NODE_valueOfLabel(QB_NODE_withLabel(events, "down"), "keyCode")) - END IF -LOOP -END SUB - -FUNCTION VkGetQuotedString$ (a$) -a2$ = SPACE$(LEN(a$)) -i2 = 0 -FOR i = 1 TO LEN(a$) - a2 = a - a = ASC(a$, i) - IF a2 = 92 AND a = 113 THEN - ASC(a2$, i2) = 34 - ELSE - i2 = i2 + 1 - ASC(a2$, i2) = a - END IF -NEXT -a2$ = LEFT$(a2$, i2) -VkGetQuotedString$ = a2$ -END FUNCTION - -SUB VkLoad -VkFile$="" -if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_default.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_default.txt" -if _FILEEXISTS(appRootPath$+"virtual_keyboard_layout_current.txt") then VkFile$=appRootPath$+"virtual_keyboard_layout_current.txt" -if VkFile$<>"" then - fh = FREEFILE - OPEN VkFile$ FOR INPUT AS #fh - LINE INPUT #fh, json$ - CLOSE #fh - root = QB_NODESET_deserialize(json$, "json") - DIM oldVkWidthInUnits AS LONG - oldVkWidthInUnits=VkWidthInUnits - VkWidthInUnits=90 - DIM rootValueNode AS LONG - rootValueNode=QB_NODE_withLabel(root, "width") - if rootValueNode then VkWidthInUnits=QB_NODE_valueOfLabel_long(root, "width") - if VkWidthInUnits<>oldVkWidthInUnits then - FOR i3 = 1 TO VkLast - IF VK(i3).active THEN - VK(i3).reDraw = 1 - END IF - NEXT - VkReset = 1 - END IF - VkLoadKeys QB_NODESET_node(QB_NODESET_label_equal(QB_NODESET_children(root), "keys")), 0 - QB_NODE_destroy root -end if -END SUB - -FUNCTION VkShiftInEffect -shiftInEffect = 0 -'IF _KEYDOWN(VK_KEY_LSHIFT) OR _KEYDOWN(VK_KEY_RSHIFT) THEN -' shiftInEffect = 1 -'END IF -shiftLockInEffect = 0 -FOR i = 1 TO VkLast - IF VK(i).active THEN - IF VK(i).internal = 0 THEN - 'is this a caps lock or shift key? - 'is it active? - IF VK(i).event.keydown = VK_KEY_CAPSLOCK THEN - IF VK(i).held <> 0 THEN - shiftLockInEffect = 1 - END IF - END IF - END IF - END IF -NEXT -shiftKeyHeld = 0 -FOR i = 1 TO VkLast - IF VK(i).active THEN - IF VK(i).internal = 0 THEN - 'is this a caps lock or shift key? - 'is it active? - IF VK(i).event.keydown = VK_KEY_LSHIFT OR VK(i).event.keydown = VK_KEY_RSHIFT THEN - IF VK(i).held <> 0 THEN - shiftKeyHeld = 1 - END IF - END IF - END IF - END IF -NEXT -IF shiftLockInEffect + shiftKeyHeld = 1 THEN shiftInEffect = 1 -IF VkAddShiftedKey = 1 THEN shiftInEffect = 1 -VkShiftInEffect = shiftInEffect -END FUNCTION - -SUB VkGetMouse (mx AS LONG, my AS LONG, mb AS LONG) -'DIM SHARED VkReg AS VkRegTypeX -VkReg.ax = 3 -CALL INTERRUPT(&H33, VkReg, VkReg) -mb = VkReg.bx AND 1 -mx = VkReg.cx -my = VkReg.dx -END SUB - -FUNCTION VkFindFont& (idealSize AS LONG) -FOR diff = 0 TO 1000 - FOR negative = 0 TO 1 - IF negative THEN - size = idealSize - diff - ELSE - size = idealSize + diff \ 2 'increase of size is less desirable that decrease of size - END IF - IF size >= 0 AND size <= UBOUND(vkfontAllow) THEN - IF vkFontAllow(size) THEN - if vkFonts(size)=0 then vkFonts(size)=_LOADFONT(appRootPath$+"cyberbit.ttf", size) - if vkFonts(size)=0 then 'font failed to load, so use inbuilt font instead - vkFonts(size)=16 - if size<16 then vkFonts(size)=8 - end if - VkFindFont& = vkFonts(size) - EXIT FUNCTION - END IF - END IF - NEXT -NEXT -END FUNCTION diff --git a/virtual_keyboard_layout_default.txt b/virtual_keyboard_layout_default.txt deleted file mode 100644 index c2a9399a0..000000000 --- a/virtual_keyboard_layout_default.txt +++ /dev/null @@ -1 +0,0 @@ -{"width":90,"keys":[{"type":"keySet","x":0,"y":30,"width":6,"height":3,"label":"\u2261","childKeys":[{"type":"key","offsetX":25,"offsetY":-30,"width":34,"height":6,"label":"","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_SPACE"}}},{"type":"key","offsetX":86,"offsetY":-30,"width":4,"height":6,"label":"Esc","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_ESCAPE"}}},{"type":"key","offsetX":0,"offsetY":-24,"width":14,"height":6,"label":"Shift","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_LSHIFT"}}},{"type":"key","offsetX":0,"offsetY":-18,"width":11,"height":6,"label":"Caps Lock","locks":true,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_CAPSLOCK"}}},{"type":"key","offsetX":0,"offsetY":-12,"width":9,"height":6,"label":"Tab","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_TAB"}}},{"type":"key","offsetX":78,"offsetY":-6,"width":12,"height":6,"label":"Back Space","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_BACKSPACE"}}},{"type":"key","offsetX":72,"offsetY":-6,"width":6,"height":6,"label":"=","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_EQUAL"},"keydownWithShift":{"keyCode":"KEY_PLUS","label":"+"}}},{"type":"key","offsetX":66,"offsetY":-6,"width":6,"height":6,"label":"-","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_MINUS"},"keydownWithShift":{"keyCode":"KEY_UNDERSCORE","label":"_"}}},{"type":"key","offsetX":60,"offsetY":-6,"width":6,"height":6,"label":"0","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_0"},"keydownWithShift":{"keyCode":"KEY_CLOSE_BRACKET","label":")"}}},{"type":"key","offsetX":54,"offsetY":-6,"width":6,"height":6,"label":"9","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_9"},"keydownWithShift":{"keyCode":"KEY_OPEN_BRACKET","label":"("}}},{"type":"key","offsetX":48,"offsetY":-6,"width":6,"height":6,"label":"8","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_8"},"keydownWithShift":{"keyCode":"KEY_STAR","label":"*"}}},{"type":"key","offsetX":42,"offsetY":-6,"width":6,"height":6,"label":"7","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_7"},"keydownWithShift":{"keyCode":"KEY_AND","label":"&"}}},{"type":"key","offsetX":36,"offsetY":-6,"width":6,"height":6,"label":"6","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_6"},"keydownWithShift":{"keyCode":"KEY_CARET","label":"^"}}},{"type":"key","offsetX":30,"offsetY":-6,"width":6,"height":6,"label":"5","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_5"},"keydownWithShift":{"keyCode":"KEY_PERCENT","label":"%"}}},{"type":"key","offsetX":18,"offsetY":-6,"width":6,"height":6,"label":"3","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_3"},"keydownWithShift":{"keyCode":"KEY_HASH","label":"#"}}},{"type":"key","offsetX":24,"offsetY":-6,"width":6,"height":6,"label":"4","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_4"},"keydownWithShift":{"keyCode":"KEY_DOLLAR","label":"$"}}},{"type":"key","offsetX":0,"offsetY":-30,"width":9,"height":6,"label":"Ctrl","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_LCTRL"}}},{"type":"key","offsetX":9,"offsetY":-30,"width":8,"height":6,"label":"\u2302","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LSUPER"}}},{"type":"key","offsetX":17,"offsetY":-30,"width":8,"height":6,"label":"Alt","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_LALT"}}},{"type":"key","offsetX":59,"offsetY":-30,"width":9,"height":6,"label":"Alt","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_RALT"}}},{"type":"key","offsetX":80,"offsetY":-24,"width":10,"height":6,"label":"Shift","locks":true,"lockIsTemporary":true,"events":{"keydown":{"keyCode":"KEY_RSHIFT"}}},{"type":"key","offsetX":74,"offsetY":-30,"width":6,"height":6,"label":"\u2193","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_DOWN"}}},{"type":"key","offsetX":68,"offsetY":-30,"width":6,"height":6,"label":"\u2190","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LEFT"}}},{"type":"key","offsetX":80,"offsetY":-30,"width":6,"height":6,"label":"\u2192","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_RIGHT"}}},{"type":"key","offsetX":74,"offsetY":-24,"width":6,"height":6,"label":"\u2191","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_UP"}}},{"type":"key","offsetX":68,"offsetY":-24,"width":6,"height":6,"label":"/","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_FORWARD_SLASH"},"keydownWithShift":{"keyCode":"KEY_QUESTION","label":"?"}}},{"type":"key","offsetX":62,"offsetY":-24,"width":6,"height":6,"label":".","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_DOT"},"keydownWithShift":{"keyCode":"KEY_GREATER_THAN","label":">"}}},{"type":"key","offsetX":56,"offsetY":-24,"width":6,"height":6,"label":",","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_COMMA"},"keydownWithShift":{"keyCode":"KEY_LESS_THAN","label":"<"}}},{"type":"key","offsetX":50,"offsetY":-24,"width":6,"height":6,"label":"m","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_M"},"keydownWithShift":{"keyCode":"KEY_UCASE_M","label":"M"}}},{"type":"key","offsetX":44,"offsetY":-24,"width":6,"height":6,"label":"n","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_N"},"keydownWithShift":{"keyCode":"KEY_UCASE_N","label":"N"}}},{"type":"key","offsetX":38,"offsetY":-24,"width":6,"height":6,"label":"b","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_B"},"keydownWithShift":{"keyCode":"KEY_UCASE_B","label":"B"}}},{"type":"key","offsetX":32,"offsetY":-24,"width":6,"height":6,"label":"v","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_V"},"keydownWithShift":{"keyCode":"KEY_UCASE_V","label":"V"}}},{"type":"key","offsetX":26,"offsetY":-24,"width":6,"height":6,"label":"c","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_C"},"keydownWithShift":{"keyCode":"KEY_UCASE_C","label":"C"}}},{"type":"key","offsetX":20,"offsetY":-24,"width":6,"height":6,"label":"x","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_X"},"keydownWithShift":{"keyCode":"KEY_UCASE_X","label":"X"}}},{"type":"key","offsetX":14,"offsetY":-24,"width":6,"height":6,"label":"z","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_Z"},"keydownWithShift":{"keyCode":"KEY_UCASE_Z","label":"Z"}}},{"type":"key","offsetX":77,"offsetY":-18,"width":13,"height":6,"label":"Enter","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_ENTER"}}},{"type":"key","offsetX":81,"offsetY":-12,"width":9,"height":6,"label":"\\","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_BACK_SLASH"},"keydownWithShift":{"keyCode":"KEY_VERTICAL_BAR","label":"|"}}},{"type":"key","offsetX":71,"offsetY":-18,"width":6,"height":6,"label":"'","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_APOSTROPHE"},"keydownWithShift":{"keyCode":"KEY_QUOTE","label":"\""}}},{"type":"key","offsetX":65,"offsetY":-18,"width":6,"height":6,"label":";","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_SEMICOLON"},"keydownWithShift":{"keyCode":"KEY_COLON","label":":"}}},{"type":"key","offsetX":59,"offsetY":-18,"width":6,"height":6,"label":"l","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_L"},"keydownWithShift":{"keyCode":"KEY_UCASE_L","label":"L"}}},{"type":"key","offsetX":53,"offsetY":-18,"width":6,"height":6,"label":"k","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_K"},"keydownWithShift":{"keyCode":"KEY_UCASE_K","label":"K"}}},{"type":"key","offsetX":47,"offsetY":-18,"width":6,"height":6,"label":"j","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_J"},"keydownWithShift":{"keyCode":"KEY_UCASE_J","label":"J"}}},{"type":"key","offsetX":41,"offsetY":-18,"width":6,"height":6,"label":"h","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_H"},"keydownWithShift":{"keyCode":"KEY_UCASE_H","label":"H"}}},{"type":"key","offsetX":35,"offsetY":-18,"width":6,"height":6,"label":"g","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_G"},"keydownWithShift":{"keyCode":"KEY_UCASE_G","label":"G"}}},{"type":"key","offsetX":29,"offsetY":-18,"width":6,"height":6,"label":"f","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_F"},"keydownWithShift":{"keyCode":"KEY_UCASE_F","label":"F"}}},{"type":"key","offsetX":23,"offsetY":-18,"width":6,"height":6,"label":"d","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_D"},"keydownWithShift":{"keyCode":"KEY_UCASE_D","label":"D"}}},{"type":"key","offsetX":17,"offsetY":-18,"width":6,"height":6,"label":"s","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_S"},"keydownWithShift":{"keyCode":"KEY_UCASE_S","label":"S"}}},{"type":"key","offsetX":11,"offsetY":-18,"width":6,"height":6,"label":"a","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_A"},"keydownWithShift":{"keyCode":"KEY_UCASE_A","label":"A"}}},{"type":"key","offsetX":12,"offsetY":-6,"width":6,"height":6,"label":"2","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_2"},"keydownWithShift":{"keyCode":"KEY_AT","label":"@"}}},{"type":"key","offsetX":75,"offsetY":-12,"width":6,"height":6,"label":"]","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_CLOSE_BRACKET_SQUARE"},"keydownWithShift":{"keyCode":"KEY_CLOSE_BRACKET_CURLY","label":"}"}}},{"type":"key","offsetX":69,"offsetY":-12,"width":6,"height":6,"label":"[","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_OPEN_BRACKET_SQUARE"},"keydownWithShift":{"keyCode":"KEY_OPEN_BRACKET_CURLY","label":"{"}}},{"type":"key","offsetX":63,"offsetY":-12,"width":6,"height":6,"label":"p","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_P"},"keydownWithShift":{"keyCode":"KEY_UCASE_P","label":"P"}}},{"type":"key","offsetX":57,"offsetY":-12,"width":6,"height":6,"label":"o","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_O"},"keydownWithShift":{"keyCode":"KEY_UCASE_O","label":"O"}}},{"type":"key","offsetX":51,"offsetY":-12,"width":6,"height":6,"label":"i","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_I"},"keydownWithShift":{"keyCode":"KEY_UCASE_I","label":"I"}}},{"type":"key","offsetX":45,"offsetY":-12,"width":6,"height":6,"label":"u","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_U"},"keydownWithShift":{"keyCode":"KEY_UCASE_U","label":"U"}}},{"type":"key","offsetX":39,"offsetY":-12,"width":6,"height":6,"label":"y","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_Y"},"keydownWithShift":{"keyCode":"KEY_UCASE_Y","label":"Y"}}},{"type":"key","offsetX":33,"offsetY":-12,"width":6,"height":6,"label":"t","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_T"},"keydownWithShift":{"keyCode":"KEY_UCASE_T","label":"T"}}},{"type":"key","offsetX":27,"offsetY":-12,"width":6,"height":6,"label":"r","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_R"},"keydownWithShift":{"keyCode":"KEY_UCASE_R","label":"R"}}},{"type":"key","offsetX":21,"offsetY":-12,"width":6,"height":6,"label":"e","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_E"},"keydownWithShift":{"keyCode":"KEY_UCASE_E","label":"E"}}},{"type":"key","offsetX":15,"offsetY":-12,"width":6,"height":6,"label":"w","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_W"},"keydownWithShift":{"keyCode":"KEY_UCASE_W","label":"W"}}},{"type":"key","offsetX":9,"offsetY":-12,"width":6,"height":6,"label":"q","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_LCASE_Q"},"keydownWithShift":{"keyCode":"KEY_UCASE_Q","label":"Q"}}},{"type":"key","offsetX":6,"offsetY":-6,"width":6,"height":6,"label":"1","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_1"},"keydownWithShift":{"keyCode":"KEY_EXCLAMATION","label":"!"}}},{"type":"key","offsetX":0,"offsetY":-6,"width":6,"height":6,"label":"`","locks":false,"lockIsTemporary":false,"events":{"keydown":{"keyCode":"KEY_REVERSE_APOSTROPHE"},"keydownWithShift":{"keyCode":"KEY_TILDE","label":"~"}}}]}]}